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:Jump
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2016 (NOMAM 2016)
-
Year:2016
Listing 1
0 GRAPHICS 5:DIM M$(42):M$="DDAADDDDAADDDBBBBDBDBBDBDDCCDDDCDDCDCCDDCC":POKE 752,1 1 X=16:GOSUB 7:X=55:GOSUB 7:WHILE STRIG(0)<>0:WEND:POKE 656,1:POKE 657,23:? "0 ":J=0 2 L=-7:S=1:P=0:D=0:POKE 656,1:POKE 657,16:? "SCORE":WHILE 1:C=1:GOSUB 8:C=0:GOSUB 8 3 L=L+S:POKE 656,1:POKE 657,23:? P:IF L MOD 2=0 THEN SOUND 0,120+5*L,10,5:C=2:GOSUB 9 4 IF STRIG(0)=0 AND D<=0:C=0:D=5:GOSUB 9:J=-2:C=2:GOSUB 9:C=0:GOSUB 9:J=0:ENDIF 5 IF ABS(L)>6:L=S*6:S=S*-1:ENDIF:SOUND 0,0,0,0:LOCATE 38,35,Z:D=D-1 6 IF L=6 AND S=-1:IF Z=0:P=P+1:ELSE:GOTO 1:ENDIF:ENDIF:WEND:POKE 752,0:END 7 FOR I=1 TO 7:POSITION X,I+29:? #6;M$(6*I-5,6*I):NEXT I:RETURN 8 COLOR C:PLOT 22,32:DRAWTO 28,32+L:DRAWTO 48,32+L:DRAWTO 54,32:RETURN 9 COLOR C:CIRCLE 38,36+J,2:FILLTO 38,36+J:RETURN
References
Listing downloads
Copyright holder