Atari 8-bit Source code

0 DIM B$(96):​B$="l[l[l[l[l[l[l[l[l[l[fQfQrQl[l`r`VVbbnAtt":​Q=5
1 P=144:​C=P*256:​MOVE 57344,​C,​512:​MOVE ADR(",​VU$fk><x<fBU$<z|<"),​C+24,​48:​DIM A$(15):​DO:​F=47
2 GRAPHICS 17:​MOVE ADR(""),​708,​4:​POKE 756,​P:​COLOR 163:​PLOT 0,​1:​DRAWTO 19,​1:​DRAWTO 19,​23:​DRAWTO 0,​23:​DRAWTO 0,​1:​S=0:​X=10:​Y=4:​V=X:​W=18:​D=20:​M=32
3 REPEAT:​T=STICK(0):​J=(T=7)-(T=11):​K=(T=13)-(T=14):​LOCATE X+J,​Y+K,​L:​IF L<>163 AND L<>4:​COLOR 32:​PLOT X,​Y:​X=X+J:​Y=Y+K:​ENDIF
4 IF L=39:​S=S+50:​U=12:​ENDIF:​G=(G+1) MOD (D*5):​O=(O+1) MOD D:​E=E-0.3*(E>0):​POSITION 3,​0:​? #6;S,​H:​IF S>H:​H=S:​ENDIF:​IF G=0:​COLOR 39
5 PLOT RAND(18)+1,​RAND(21)+2:​COLOR 134:​PLOT RAND(18)+1,​RAND(21)+2:​D=D-(D>5):​N=10:​ENDIF:​COLOR 4:​PLOT X,​Y:​IF O=0:​COLOR 32:​PLOT V,​W:​F=(F+1) MOD 48
6 Q=Q+3:​Q=Q-6*(Q=11):​V=V+(V<X)-(V>X):​W=W+(W<Y)-(W>Y):​LOCATE V,​W,​M:​COLOR Q:​PLOT V,​W:​E=6:​ENDIF:​SOUND 3,​ASC(B$(F+1,​F+1)),​10,​E
7 SOUND 2,​ASC(B$(F+49,​F+49)),​12,​E:​SOUND 0,​U*10,​10,​U:​U=U-(U>0):​SOUND 1,​100-N*10,​8,​N:​N=N-(N>0):​UNTIL M=4 OR L=Q OR L=134:​POSITION 5,​10
8 ? #6;"":​SOUND:​A$="":​POSITION 2,​6:​? #6;A$:​POSITION 2,​7:​? #6;"cemetry chase":​POSITION 2,​8:​? #6;A$:​POSITION 3,​14
9 ? #6;"":​FOR I=14 TO 0 STEP -0.1:​SOUND 0,​250-I*15,​8,​I:​NEXT I:​GET KEY:​LOOP