Atari 8-bit Source code

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 00<><UwU"3ff3ff
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	

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 00<><UwU"3ff3ff
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