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:Zbieracz
-
Category:Games
-
Publisher/Developer:Tajemnice Atari
-
Year:1991
Listing 1
1 POKE 82,0:GRAPHICS 0:POKE 752,2:FOR I=0 TO 19:? " ....................":NEXT I:A=0:LX=1:LY=1:P=0:T=0 2 X=INT(RND(0)*20)+1:Y=INT(RND(0)*20)+1:LOCATE X,Y,C:IF C=46 THEN POSITION X,Y:? "x":A=A+1:SOUND 0,A*10,10,10-A 3 ON A<10 GOTO 2:X=1:Y=1:IF P=10 THEN POSITION 25,5:? "GRATULACJE!":POSITION 25,7:? "CZAS:";T:POSITION 0,21:END 4 S=STICK(0):X=X+(S=7)-(S=11):X=X+(X<1)-(X>20):Y=Y+(S=13)-(S=14):Y=Y+(Y<0)-(Y>19):LOCATE X,Y,C:IF C=120 THEN P=P+1:? CHR$(253) 5 POSITION X,Y:? "O":T=T+1:POSITION 30,5:? 10-P;" ":POSITION LX,LY:? ".":LX=X:LY=Y:ON P=10 GOTO 3:GOTO 4
Listing 2
1 POKE 82,0:GRAPHICS 0:POKE 752,2:FOR I=0 TO 19:? " ....................":NEXT I:A=0:LX=1:LY=1:P=0:T=0 2 X=INT(RND(0)*20)+1:Y=INT(RND(0)*20)+1:LOCATE X,Y,C:IF C=46 THEN POSITION X,Y:? "x":A=A+1:SOUND 0,A*10,10,10-A 3 ON A<10 GOTO 2:X=1:Y=1:IF P=10 THEN POSITION 25,5:? "GRATULACJE!":POSITION 25,7:? "CZAS:";T:POSITION 0,21:END 4 S=STICK(0):X=X+(S=7)-(S=11):X=X+(X<1)-(X>20):Y=Y+(S=13)-(S=14):Y=Y+(Y<0)-(Y>19) 5 LOCATE X,Y,C:IF C=120 THEN P=P+1:? CHR$(253) 6 POSITION X,Y:? "O":T=T+1:POSITION 30,5:? 10-P;" ":POSITION LX,LY:? ".":LX=X:LY=Y:ON P=10 GOTO 3:GOTO 4
References
Listing downloads
Copyright holder