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!
|
|
-
Entry name:Escape 10
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2014 (NOMAM 2014)
-
Year:2014
Listing 1
10 GRAPHICS 0:DIM C$(56):READ C$:GOSUB 95:POKE 752,1:POKE 710,2:COLOR 36:PLOT 1,0:DRAWTO 37,0:PLOT 1,22:DRAWTO 37,22:COLOR 37:PLOT 38,0:DRAWTO 38,23:M=5 20 L=L+1:POSITION 10,23:? "LEVEL ";L;" LIVES ";M;:FOR Z=1 TO 10:COLOR 32+(Z>5)*2:GOSUB 90:NEXT Z:IF L/3=INT(L/3) THEN COLOR 38:GOSUB 90 30 X=0:Y=11:H=0:I=0:COLOR 37:PLOT 38,E:E=2+INT(RND(0)*18):COLOR 39:PLOT 38,E:IF L/8=INT(L/8) THEN COLOR 35:GOSUB 90 40 OX=X:OY=Y:X=X+H:S=STICK(0):Y=Y+(H AND S=13)-(H AND S=14):H=H OR ( NOT STRIG(0)):PAUSE 3 50 COLOR 32:PLOT OX,OY:LOCATE X,Y,U:IF U=32 THEN COLOR 33:PLOT X,Y:GOTO 40 60 X=X*(X<38):M=M+(U=35):G=20*(U=39)+40*(U=35):GOTO G+70*( NOT G):REM IF U=45 THEN 20 70 COLOR 32:PLOT (U=34 OR U=38)*X,Y:M=M-(U<>38 AND I=0):I=I+(U=38):IF M>0 THEN GOTO 20+20*(U=38 OR (I AND X)) 80 POSITION 12,0:? " GAME OVER ";:FOR Z=1 TO 2 STEP 0:Z=Z+STRIG(0):NEXT Z:FOR Z=1 TO 2 STEP 0:Z=Z+( NOT (STRIG(0))):NEXT Z:RUN 90 PLOT 5+INT(RND(0)*31),1+INT(RND(0)*20):RETURN:DATA 00<><UwU"3ff3ff 95 FOR A=32768 TO 32768+1023:POKE A,PEEK(A+24576):NEXT A:FOR A=1 TO 56:POKE 32776+A,ASC(C$(A,A)):NEXT A:POKE 756,128:RETURN
Listing 2
10 GRAPHICS 0:DIM C$(56):READ C$:GOSUB 95:POKE 752,1:POKE 710,2:COLOR 36:PLOT 1,0:DRAWTO 37,0:PLOT 1,22:DRAWTO 37,22:COLOR 37:PLOT 38,0:DRAWTO 38,23:M=5 20 L=L+1:POSITION 10,23:? "LEVEL ";L;" LIVES ";M;:FOR Z=1 TO 10:COLOR 32+(Z>5)*2:GOSUB 90:NEXT Z:IF L/3=INT(L/3) THEN COLOR 38:GOSUB 90 30 X=0:Y=11:H=0:I=0:COLOR 37:PLOT 38,E:E=2+INT(RND(0)*18):COLOR 39:PLOT 38,E:IF L/8=INT(L/8) THEN COLOR 35:GOSUB 90 40 OX=X:OY=Y:X=X+H:S=STICK(0):Y=Y+(H AND S=13)-(H AND S=14):H=H OR ( NOT STRIG(0)):Z=1.23/5.43*0.456/1.45*1.23 50 COLOR 32:PLOT OX,OY:LOCATE X,Y,U:IF U=32 THEN COLOR 33:PLOT X,Y:GOTO 40 60 X=X*(X<38):M=M+(U=35):G=20*(U=39)+40*(U=35):GOTO G+70*( NOT G):REM IF U=45 THEN 20 70 COLOR 32:PLOT (U=34 OR U=38)*X,Y:M=M-(U<>38 AND I=0):I=I+(U=38):IF M>0 THEN GOTO 20+20*(U=38 OR (I AND X)) 80 POSITION 12,0:? " GAME OVER ";:FOR Z=1 TO 2 STEP 0:Z=Z+STRIG(0):NEXT Z:FOR Z=1 TO 2 STEP 0:Z=Z+ NOT (STRIG(0)):NEXT Z:RUN 90 PLOT 5+INT(RND(0)*31),1+INT(RND(0)*20):RETURN:DATA 00<><UwU"3ff3ff 95 FOR A=32768 TO 32768+1023:POKE A,PEEK(A+24576):NEXT A:FOR A=1 TO 56:POKE 32776+A,ASC(C$(A,A)):NEXT A:POKE 756,128:RETURN
References
Downloads
Downloads
Copyright holder