Atari 8-bit Source code

0DIMB$(200),F$(32680-ADR(B$)),A$(200),D$(231),C$(999):F$="":F$(999)=F$:F$(2)=F$
1GRAPHICS18:?#6;"":POKE89,128:C$=F$:FORG=0TO79:POKE33408+G,PEEK(57472+G)
2NEXTG:C$="JJJJJJ8G8|llH!D8TDTn"
3SOUND0,0,0,0:ONFGOTO6:FORX=0TO1:SOUND0,95+Z*3,6,Z/2:Z=Z-(Z>0):X=1-STRIG(0):NEXTX:Z=30
4POKE40545,128:POKE756,130:POKE711,244:D$=F$:D$(6,15)="LLLLLLLLLL":F=1:S=0:A$=F$
5A$(10,11)="":A$(21)=A$:A$(173,173)="":A$(192,193)="":POKE18,0:POKE19,0
6POKE77,0:J=STICK(0):M=M+(J=15):K=((J=11)+3*(J=7))*(M>0):ONK=0GOTO3:POSITION9,11
7A$(190,191)="":A$(170,171)="":M=0:B$=A$:L=147+2*K:F=B$(L,L)="":S=S+1
8SOUND0,99-PEEK(19),8,12:B$(L,L)="":IFFTHENB$(L-1,L)="":B$(L-20,L-20)=""
9N=(INT(RND(0)*3)*6+8)*(PEEK(19)<15)+1:A$(27,34)=C$(N):A$(41)=B$:?#6;S:GOTO6	

0DI.B$(200),F$(32680-ADR(B$)),A$(200),D$(231),C$(999):F$="":F$(999)=F$:F$(2)=F$
1GR.18:?#6;"":POK.89,128:C$=F$:F.G=0TO79:POK.33408+G,PEEK(57472+G)
2N.G:C$="JJJJJJ8G8|llH!D8TDTn"
3SO.0,0,0,0:ONFGOTO6:F.X=0TO1:SO.0,95+Z*3,6,Z/2:Z=Z-(Z>0):X=1-STRIG(0):N.X:Z=30
4POK.40545,128:POK.756,130:POK.711,244:D$=F$:D$(6,15)="LLLLLLLLLL":F=1:S=0:A$=F$
5A$(10,11)="":A$(21)=A$:A$(173,173)="":A$(192,193)="":POK.18,0:POK.19,0
6POK.77,0:J=STICK(0):M=M+(J=15):K=((J=11)+3*(J=7))*(M>0):ONK=0GOTO3:POS.9,11
7A$(190,191)="":A$(170,171)="":M=0:B$=A$:L=147+2*K:F=B$(L,L)="":S=S+1
8SO.0,99-PEEK(19),8,12:B$(L,L)="":IFFTHENB$(L-1,L)="":B$(L-20,L-20)=""
9N=(INT(RND(0)*3)*6+8)*(PEEK(19)<15)+1:A$(27,34)=C$(N):A$(41)=B$:?#6;S:G.6	

• Download link 1
• Download link 2

• Download link 1
• Download link 2
• Download link 3