Atari 8-bit Source code

10DIMB$(25),V$(25),F$(25),C$(25),A(31,15),X(50),Y(50):G=0:L=0:W=0
11B$="ADDDADADADDBABDDAAADDDADD"
12V$="DDADDDAAADDDADDDCCCDDCDCD"
13F$="DDCDDDDCDDBBBBBDDCDDDDCDD"
14C$="DDDDDDDDDDDDDDDDDDDDDDDDD"
20GRAPHICS2:POSITION3,1:?#6;"><><":POSITION8,4:?#6;"THE":POSITION1,6:?#6;""
21POSITION8,8:?#6;"GAME"
30GOSUB4000
35?:?"WORKING":?"STANDBYWHILEILOCATEABATCAVE..."
40GOSUB5000
100POKE752,1:POKE656,1:POKE657,15:?"YOURMOVE";
110FORI=1TO100:P=STICK(0)
120IFSTRIG(0)=0THENP=-1:GOTO180
125IFPEEK(53279)=3THEN300
130IFP<>15THEN180
140SETCOLOR1,4,10:FORJ=1TO30-DFAC*3:NEXTJ:SETCOLOR0,2,8:FORJ=1TO30-DFAC*3:NEXTJ:SETCOLOR2,9,8
145P=STICK(0):IFP<>15THEN180
146IFSTRIG(0)=0THENP=-1:GOTO180
147IFPEEK(53279)=3THEN300
150FORL=1TO200STEP10:SOUND0,L,2,14:NEXTL
155P=STICK(0):IFP<>15THEN180
156IFSTRIG(0)=0THENP=-1:GOTO180
157IFPEEK(53279)=3THEN300
160SETCOLOR1,4,3:FORJ=1TO30-DFAC*3:NEXTJ:SETCOLOR0,13,2:FORJ=1TO30-DFAC*3:NEXTJ:SETCOLOR2,9,4
170NEXTI
175GOTO300
180A(X1,Y1)=0:FORK=1TO5:POSITIONX1*5,5*Y1+K-1:?#6;C$(K*5-4,K*5):NEXTK
190IFP=-1THENH=H+1:X1=INT(RND(0)*31):Y1=INT(RND(0)*15)
191IFP=-1THENPOKE656,1:POKE657,15:?"HYPERMOVE":FORL=206TO1STEP-5:SOUND0,L,8,14:NEXTL:GOTO300
200IFP=14THENY1=Y1-1:GOTO300
210IFP=6THENX1=X1+1:Y1=Y1-1:GOTO300
220IFP=7THENX1=X1+1:GOTO300
230IFP=5THENX1=X1+1:Y1=Y1+1:GOTO300
240IFP=13THENY1=Y1+1:GOTO300
250IFP=9THENX1=X1-1:Y1=Y1+1:GOTO300
260IFP=11THENX1=X1-1:GOTO300
270IFP=10THENX1=X1-1:Y1=Y1-1:GOTO300
280GOTO100
300SOUND0,0,0,0:M=M+1:POKE656,1:POKE657,15:?""
301SETCOLOR1,4,3:SETCOLOR0,13,2:SETCOLOR2,9,4
310ONA(X1,Y1)GOTO6000,6500
320FORK=1TO5:POSITIONX1*5,5*Y1+K-1:?#6;V$(K*5-4,K*5):NEXTK:J=0:A(X1,Y1)=3
330FORI=1TOBAT:IFX(I)=0THEN400
340FORK=1TO5:POSITIONX(I)*5,5*Y(I)+K-1:?#6;C$(K*5-4,K*5):NEXTK:A(X(I),Y(I))=0
350X(I)=X(I)+SGN(X1-X(I)):Y(I)=Y(I)+SGN(Y1-Y(I))
360ONA(X(I),Y(I))GOTO380,380,6500
370FORK=1TO5:POSITIONX(I)*5,Y(I)*5+K-1:?#6;B$(K*5-4,K*5):NEXTK:J=J+1:A(X(I),Y(I))=2:GOTO400
380X(I)=0:K=K+1
385FORL=200TO5STEP-5:SOUND0,L,4,14:NEXTL:GOTO400
400NEXTI
410IFJ<>0THEN100
1000GRAPHICS0:?:?"YOUWIN";
1010G=G+1:W=W+1:IFW*2>GTHENDFAC=DFAC+1
1020IFH=0ANDM<=KTHENDFAC=DFAC+1
1030IFM*2<KTHENDFAC=DFAC+1
1040OLDBAT=BAT:GOSUB4120
1050?"IN";M;"MOVES.":SOUND0,0,0,0
1060?:?"NUMBEROFBATS:";OLDBAT
1070L=G-W
1080?:?"GAMES:";G;"WON/LOST:";W;"/";L
1090?:?:?:?"presstocontinue"
1100?:?"pressbuttontoend"
1110POKE53279,0:SOUND0,0,0,0
1120P5=PEEK(53279):PS=STRIG(0)
1130IFP5=6THENGRAPHICS0:GOTO35
1140IFPS=0THEN2000
1150GOTO1110
2000GRAPHICS19:A=19:B=10:DEG:COL=0:FORI=2TO10STEP2:FORJ=0TO360STEP60/I:IFCOL>3THENCOL=0
2010COL=COL+1:COLORCOL
2020PLOTA,B:DRAWTOA+SIN(J)*I,B+COS(J)*I:SOUND0,J/1.5,I,14:NEXTJ:NEXTI:GRAPHICS0:SOUND0,0,0,0:END
3000GRAPHICS0:?"":?
3005?"USETOMOVE.":?:?"USEBUTTONTOMATERIALIZETOARANDOMLOCATION.":?
3010?"USETOREMAINSTATIONARY.":?:?
3020?"THEREAREANUMBEROFBATSANDFENCESDETERMINEDBYTHELEVELSELECTED."
3030?:?"THEBATSAREDESTROYEDBYFLYINGINTOTHEFENCESORINTOEACHOTHER.":?
3040?"YOUWINWHENALLBATSAREDESTROYED!"
3050POKE752,1:POSITION2,20:?"Presstobegingame.":?"presstoobtainINSTRUCTIONS.";:RETURN
4000POKE752,1:?"presstobegingame":?"presstoobtainINSTRUCTIONS"
4010POKE53279,0:DFAC=0
4030IFPEEK(53279)=6THEN4055
4040IFPEEK(53279)=5THENGOSUB3000
4050GOTO4010
4055FORI=1TO100:NEXTI
4060POSITION2,20:?"";DFAC;""
4065?"PRESSTOCHANGEDIFFICULTY.PRESSTOSTARTGAME."
4070IFPEEK(53279)=6THEN4120
4080IFPEEK(53279)=3THEN4100
4090POKE53279,0:GOTO4070
4100DFAC=DFAC+1:FORI=1TO10:NEXTI:IFDFAC>9THENDFAC=0
4110POKE53279,0:GOTO4060
4120BAT=10+INT(DFAC*4.4)
4130FENCE=40+DFAC*3
4140RETURN
5000FORI=0TO15:FORJ=0TO31:A(J,I)=0:A(0,I)=1:A(31,I)=1:NEXTJ:NEXTI
5010FORI=0TO31:A(I,0)=1:A(I,15)=1:NEXTI
5020FORI=1TOFENCE:A(INT(RND(0)*31),INT(RND(0)*15))=1:NEXTI
5030FORI=1TOBAT
5040X(I)=INT(RND(0)*31):Y(I)=INT(RND(0)*15):IFA(X(I),Y(I))<>0THEN5040
5050A(X(I),Y(I))=2
5060NEXTI
5070X1=INT(RND(0)*31):Y1=INT(RND(0)*15):IFA(X1,Y1)<>0THEN5070
5080A(X1,Y1)=3
5090H=0:K=0:M=0:GRAPHICS7:SETCOLOR0,13,2:SETCOLOR1,4,3:SETCOLOR2,9,4
5095POKE752,1:POKE656,1:POKE657,15:?"BATS:";BAT;
5100FORJ=0TO15:FORI=0TO31
5110ONA(I,J)GOTO5130,5140,5150
5120GOTO5160
5130FORK=1TO5:POSITIONI*5,J*5+K-1:?#6;F$(K*5-4,K*5);:NEXTK:GOTO5160
5140FORK=1TO5:POSITIONI*5,J*5+K-1:?#6;B$(K*5-4,K*5);:NEXTK:GOTO5160
5150FORK=1TO5:POSITIONI*5,J*5+K-1:?#6;V$(K*5-4,K*5);:NEXTK:GOTO5160
5160NEXTI:NEXTJ
5170POKE752,1:POKE656,1:POKE657,3:?"presstobegin":POKE53279,0
5180IFPEEK(53279)=7THEN5180
5190IFPEEK(53279)<>6THEN5170
5200?:?:?:?:RETURN
6000GRAPHICS19:FORK=1TO5:POSITION16,12+K-1:?#6;V$(K*5-4,K*5):NEXTK
6010COLOR2:PLOT12,16:DRAWTO12,13:PLOT11,14:DRAWTO17,14:PLOT19,14:DRAWTO26,14:PLOT25,16:DRAWTO25,13
6020FORI=1TO15:SETCOLOR0,2,I:SETCOLOR1,4,I:SETCOLOR2,9,I:SOUND0,250,10,I:SOUND1,250,8,I:SOUND2,250,6,I
6030SOUND3,250,2,I:FORJ=1TO20:NEXTJ:NEXTI
6040FORI=200TO1STEP-1:SOUND0,I,10,15:NEXTI
6050FORL=0TO3:SOUNDL,O,O,O:NEXTL
6060GRAPHICS18:POSITION2,2:?#6;"BYfence":FORI=1TO200:NEXTI
6070GOTO7000
6500GRAPHICS19:FORK=1TO5:POSITION16,12+K-1:?#6;V$(K*5-4,K*5):POSITION17,7+K-1:?#6;B$(K*5-4,K*5):NEXTK
6510FORI=0TO15:SETCOLOR1,4,I:FORL=0TO3:SOUNDL,RND(0)*4+20,10,I:NEXTL:FORJ=1TO20:NEXTJ:NEXTI
6520FORL=0TO3:SOUNDL,0,0,0:NEXTL
6530GRAPHICS18:POSITION2,2:?#6;"BYbat":FORI=1TO200:NEXTI
7000GRAPHICS0:?:?"YOULOSE";CHR$(255):G=G+1:IFW*2<GTHENDFAC=DFAC-1
7010IFDFAC<0THENDFAC=0
7020OLDBAT=BAT:GOSUB4120
7040IFDFAC=0ANDOLDBAT=BATTHENBAT=OLDBAT-2
7060GOTO1050
9999GOTO9999	

• Download link 1

• Download link 1
• Download link 2