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:Get!
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2015 (NOMAM 2015)
-
Year:2015
Listing 1
0 CLS:SETCOLOR 2,12,17:POSITION 30,0:PRINT "GET!":A=0:X=0:Y=5:C=0:GET D:IF D>0 AND C>0 THEN GOTO 1:ELSE:GOTO 0 1 W=RAND(20):Z=RAND(10):C=0:POSITION 30,0:PRINT "GET!" 2 POKE 752,1:POSITION X,Y:PRINT "X":POSITION W,Z:PRINT "O":POSITION 30,7:PRINT "SCORE=":POSITION 37,7:PRINT A 3 DSOUND:S=STICK(0):IF S=11 AND X>0 THEN X=X-1:POSITION X+1,Y:PRINT " " 4 IF S=7 AND X<20 THEN X=X+1:POSITION X-1,Y:PRINT " " 5 IF S=14 AND Y>0 THEN Y=Y-1:POSITION X,Y+1:PRINT " " 6 IF S=13 AND Y<10 THEN Y=Y+1:POSITION X,Y-1:PRINT " " 7 IF W=X AND Y=Z THEN SOUND 1,12,12,12:A=A+1:GOTO 1 8 C=C+1:IF C<100 THEN GOTO 2 9 POSITION 30,9:PRINT "GAME OVER.":A=0:C=0:GET D:IF D>0 THEN CLS:X=0:Y=5:CLS:GOTO 1:ELSE:GOTO 9
References
Listing downloads
Downloads
Copyright holder