Atari 65XE, Owner'S Manual

Page: 86 / 135

PLAYERS AND MISSILES
This program uses a technique called Player Missile Graphics to
create a pink monster that moves across your screen in front of a blue
vertical bar. If you want to make the monster scoot behind the blue
bar, simply change line 150 to 150 POKE 6 2 3 , 4 .
10 POKE 7 6 4 , 2 5 5 : P O K E 580,1
20 GRAPHICS 3+16
30 FOR X=16 TO 24 : FOR Y=0 TO 23 : COLOR 3 : PLOT X, Y : NEXT
Y : N E X T X
40 MEMTOP=PEEK(741)+256*PEEK(742)-1
50 PMBASE=INT((MEMTOP-1024) /1024)*1024
60 ADJTOP=384
70 POKE 7 4 2 , I N T (ADJTOP/256) :
POKE 741,ADJTOP-256*PEEK(742)
80 POKE 54279,PMBASE/256
90 POKE 53277,2
100 POKE 5 5 9 , 3 4 + 8
110 P0=512
120 FOR A=P0 TO P0+128:POKE A,0: NEXT A
130 FOR A=P0+60 TO P0+67:READ B: POKE A , B : N E X T A
140 POKE 5 3 2 5 6 , 3
150 POKE 623,1
160 POKE 704,108
170 POKE 5 3 2 4 8 , P E E K ( 2 0 ) :GOTO 170
180 DATA 6 0 , 1 2 6 , 1 2 9 , 1 5 3 , 2 5 5 , 3 6 , 6 6 , 1 2 9
TOPSY-TURVY
When you run Topsy-Turvy, your screen will be filled with strange
writing. To straighten it out, simply press . To mess things up
again, press
10 POKE 764,255:POKE 580,1
20 GRAPHICS 18:POKE 712,128: P O K E 755,5
30 POSITION 5,3:PRINT #6; "WELCOME TO"
40 POSITION 2,5:PRINT #6; "THE TOPSY-TURVY":POSITION
6,7:PRINT #6; "WORLD OF": POSITION 6,9
50 PRINT # 6 ; " C O M P U T E R S "
60 IF PEEK(53279)=5 THEN POKE 755,5:POKE 712,128
70 IF PEEK(53279)=6 THEN POKE 755,l:POKE 712,99
80 GOTO 60
81