Atari 8-bit Source code

0 DIM A$(4),​B$(4),​C$(24):​C$="<<":​GRAPHICS 0:​A=(PEEK(106)-8)*256:​MOVE 57344,​A,​1024:​MOVE ADR(C$),​A+32,​24
1 POKE 756,​A/256:​B=DPEEK(560):​POKE 752,​1:​POKE B+6,​128:​POKE B+27,​128:​COLOR 37:​DO:​C=3:​D=1:​E=0:​F=50:​G=0:​WHILE (C>0):​CLS:​POSITION 8,​0
2 ? "":​POSITION 0,​21:​? "Lives:​";C;" Level:​";D;" Score:​";E:​POSITION 0,​11:​? "$":​H=11:​I=11:​J=11
3 FOR K=1 TO 38:​L=RAND(2):​IF L=0:​L=-1:​ENDIF:​H=H+L:​IF H>19:​H=19:​ENDIF:​IF H<2:​H=2:​ENDIF:​POSITION K,​H:​? "$":​PAUSE 2:​NEXT K:​FOR K=0 TO 38:​J=I:​PAUSE F
4 IF STICK(0)=14:​I=I-1:​ENDIF:​IF STICK(0)=13:​I=I+1:​ENDIF:​DSOUND 0,​H*10,​10,​15:​LOCATE K,​I,​M:​POSITION K,​I:​? "%":​IF M=32:​C=C-1:​DSOUND:​G=1:​EXIT:​ELSE
5 E=E+5:​ENDIF:​DSOUND:​POSITION 34,​21:​? E:​IF K>0 AND K<38:​POSITION K-1,​J:​? "&":​ENDIF:​NEXT K:​IF G=1 AND C>0:​G=0:​A$="YOU":​B$="FELL":​EXEC A:​ELSE:​F=F-5
6 D=D+1:​ENDIF:​WEND:​A$="GAME":​B$="OVER":​EXEC A:​LOOP
7 PROC A:​TEXT 4,​3,​A$:​TEXT 4,​10,​B$:​FOR K=1 TO 148:​POKE 710,​K:​SOUND 0,​40,​10*K,​100:​NEXT K:​DSOUND:​WHILE STRIG(0):​WEND:​ENDPROC