This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
|
-
Entry name:Chase
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2015 (NOMAM 2015)
-
Year:2015
Listing 1
1 GRAPHICS 0:POKE 710,0:POKE 752,1:COLOR 147:PLOT 7,5:DRAWTO 30,5:DRAWTO 30,17:DRAWTO 7,17:DRAWTO 7,5:POSITION 7,4:X=20:Y=7+RAND(10):A=9:B=7+RAND(10) 2 FOR Q=1 TO 15:W=7+(RND*21):V=5+(RND*12):POSITION W,V:? "":NEXT Q:POSITION 7,4:? "P:":POSITION 16,3:? "":POSITION X,Y:? "@":PAUSE 70 3 POSITION X,Y:? " ":ST=STICK(0):X=X+(ST=7)-(ST=11):Y=Y+(ST=13)-(ST=14):LOCATE X,Y,L:IF L<>32 THEN POSITION 17,9:? "":PAUSE 100:RUN 4 POSITION X,Y:? "@":P=P+1:POSITION 10,4:? P:POSITION A,B:? " " 5 IF A<X THEN A=A+1:LOCATE A,B,L:IF L=147 THEN SOUND 1,20,10,10:PAUSE 20:SOUND 1,0,0,0:GOTO 1 6 IF A>X THEN A=A-1:LOCATE A,B,L:IF L=147 THEN SOUND 1,20,10,10:PAUSE 20:SOUND 1,0,0,0:GOTO 1 7 IF B<Y THEN B=B+1:LOCATE A,B,L:IF L=147 THEN SOUND 1,20,10,10:PAUSE 20:SOUND 1,0,0,0:GOTO 1 8 IF B>Y THEN B=B-1:LOCATE A,B,L:IF L=147 THEN SOUND 1,20,10,10:PAUSE 20:SOUND 1,0,0,0:GOTO 1 9 POSITION A,B:? "#":IF A=X AND B=Y THEN POSITION 17,9:? "":SOUND 1,90,8,8:PAUSE 100:RUN 10 PAUSE 0.2:GOTO 3
References
Listing downloads
Downloads
Copyright holder