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:Death Race without Jason Statham
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2013 (NOMAM 2013)
-
Year:2013
Listing 1
10 GRAPHICS 0:P=20:I=1:DIM LEFT(487),RIGHT(487):SETCOLOR 1,0,15:SETCOLOR 2,0,0:POKE 82,0:POKE 752,1:LEFT(1)=10 20 POSITION 14,12:? "DEATH RACE":POSITION 9,14:? "without Jason Statham" 30 FOR B=1 TO 18:WIDTH=20-B:FOR C=1 TO 27 40 I=I+1:LEFT(I)=ABS(LEFT(I-1)+INT(3*RND(0)-1)):IF LEFT(I)+WIDTH>39 THEN LEFT(I)=39-WIDTH 50 RIGHT(I)=LEFT(I)+WIDTH:NEXT C:NEXT B 60 FOR I=1 TO 487:SOUND 1,49-INT((I/30)),2,15:POSITION LEFT(I),0:? "|";:POSITION RIGHT(I),0:? "|";:POSITION 0,0:? "" 70 P=P-(STICK(0)<12)+2*(STICK(0)<8) 80 LOCATE P,22,X:POSITION P-2,23:? " ";:IF X=124 THEN FOR J=0 TO 255:SOUND 1,J,0,15:NEXT J:SOUND 1,0,0,0:GOTO 100 90 NEXT I 100 ? "":POSITION 12,11:? "Your Score: ";I:POKE 752,0:END
References
Listing downloads
Downloads
Copyright holder