Random game
Random game
Random demo
Chase Chase Chase Chase
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	

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!