Atari 8-bit Source code

100X=5:Y=10:L=1:D=9:MY=47:V9=1:GT=690:V8=2:B=1:DX=1
120DIMXC(15),YC(15),U$(1),T$(1):FORT=5TO15:READH,I:XC(T)=H:YC(T)=I:NEXTT:U$=CHR$(28):T$=CHR$(127)
130DATA1,1,1,-1,1,0,0,0,-1,1,-1,-1,-1,0,0,0,0,1,0,-1,0,0
140DIMX(10),Y(10)
150POKE53277,3:POKE704,130:POKE705,216
200GRAPHICS5:POKE752,1:POKE77,0:SETCOLOR0,2,6:?"SABOTAGE",
210?T$;"ROOM";(B-V9)+1;"MISSION";V9:G=7-B:?"SCORE",,,"LIVES":?SC,,,D:T2=0:V1=0:IFB=5THEN7000
220GOSUB6000:IFB=4THENPLOT39,40:DRAWTO39,9:DRAWTO41,9:DRAWTO41,40
230FORT=10TO60STEP20:PLOTT,2:DRAWTOT,20*RND(1)+14:PLOTT+10,40:DRAWTOT+10,31-20*RND(1):NEXTT:GOSUB4100
240COLOR2:FORT=1TO10:H=INT(70*RND(1)+5):I=INT(27*RND(1)+10):PLOTH,I:X(T)=H:Y(T)=I:NEXTT:GOSUB4000
250IFB=3THENPLOT30,10:DRAWTO30,20:PLOT50,10:DRAWTO50,20
500T=STICK(0)
540COLOR0:PLOTX,Y:X=X+XC(T):Y=Y+YC(T):LOCATEX,Y,H:IFH>0THEN2000
560IFT<>15THENDX=XC(T):DY=YC(T)
600IFSTRIG(0)=0ANDM=0THENM=2:MX=X:MY=Y:XM=2*DX:YM=2*DY
610PLOTMX,MY:MX=MX+XM:MY=MY+YM:COLOR1:PLOTX,Y:LOCATEMX,MY,H:LOCATEMX-XM/2,MY-YM/2,I:IFH+I>0THEN1000
620COLORM:PLOTMX,MY:IFX>75THEN3000
630GOTOGT
640IFV7*RND(1)<0.1THENSETCOLOR2,0,0
650IFRND(1)<0.1THENSETCOLOR2,9,4
690IFT1>0THENT1=T1+1:IFT1>G*2THENGOSUB5000:T1=0
700IFT2/2000+RND(1)<0.9700000000000001ORL=0ORT1>0THEN720
710T1=1:COLOR2:GOSUB4000:SOUND1,20*G+20,2,4:TX=X:TY=Y:COLOR0:GOSUB4100
720IFRND(1)<0.02ANDL=1THENH=INT(10*RND(1)+1):COLOR2:PLOTX(H),Y(H)
900IFL=0THENT4=T4+1:IFT4>G*30THENL=1:COLOR2:G=G-1:GOSUB4000:COLOR3:GOSUB4100:IFG<V8THENG=V8
910T2=T2+1:T3=T3+1:IFT3>300THENT3=0:G=G-1:IFG<V8THENG=V8
990GOTO500
1000IFI>0THENMX=MX-XM/2:MY=MY-YM/2
1010LOCATEMX,MY,H:ONHGOTO2000,1100,1150
1100IFMY<7ANDMX>38ANDMX<42THEN1500
1110V2=0:FORT=40TO100STEP5:SOUND0,T,10,8:NEXTT:SOUND0,0,0,0:SC=SC+1:?U$;SC:GOTO1200
1150SOUND0,100,10,4:FORT=0TO20:NEXTT:SOUND0,0,0,0:V2=3
1200M=0:COLORV2:PLOTMX,MY:XM=0:YM=0:MX=0:MY=40:GOTO630
1500IFV1=1THENV2=2:GOTO1200
1510V1=1:T1=0:L=0:T4=0:FORT=0TO75:SOUND0,T,2,8:NEXTT:SOUND0,0,0,0:SOUND1,0,0,0
1520SC=SC+5:?U$;SC:COLOR0:GOSUB4000:GOSUB4100:V2=0:GOTO1200
2000COLOR2:PLOTX-2,Y-2:DRAWTOX+2,Y+2:PLOTX-2,Y+2:DRAWTOX+2,Y-2:FORT=1TO40:SOUND0,10,T,8:NEXTT
2010COLOR0:PLOTX-2,Y-2:DRAWTOX+2,Y+2:PLOTX-2,Y+2:DRAWTOX+2,Y-2:SETCOLOR2,9,4:IFY>37ORY<5THENY=20
2020D=D-1:?,,,U$;D;:T1=0:X=5:SOUND0,0,0,0:SOUND1,0,0,0:IFD<1THENPOKE53248,0:POKE53249,0:GOTO11000
2030?:GOSUB6000:IFL=0ORB=6THENCOLOR0:GOSUB4000
2040GOSUB4100:GOTO500
3000IFB=5THEN8000
3010IFB=6THEN10000
3020I=0:FORT=1TO10:LOCATEX(T),Y(T),H:I=I+H:NEXTT:V4=V4+I/2
3030IFI>8THENSOUND0,30,12,4:COLOR0:PLOTX,Y:X=5:FORT=1TO100:NEXTT:SOUND0,0,0,0:GOTO690
3040IFI=0THENSC=SC+5:?U$;SC:FORT=1TO1200STEP20:SOUND1,T,10,4:NEXTT
3050FORT=255TO0STEP-1:SOUND1,T,10,5:NEXTT:X=5:T1=0:B=B+1:L=1:GOTO200
4000PLOT39,3:DRAWTO41,3:PLOT39,4:DRAWTO41,4:PLOT40,5:RETURN
4100PLOT37,3:DRAWTO37,7:DRAWTO43,7:DRAWTO43,3:PLOT36,3:DRAWTO36,8:DRAWTO44,8:DRAWTO44,3:RETURN
5000COLOR2:PLOT40,6:DRAWTOTX,TY:SOUND1,1,4,6:LOCATEX,Y,H
5020COLOR0:PLOT40,6:DRAWTOTX,TY:IFH=2THEN2000
5030COLOR3:GOSUB4100:SOUND1,0,0,0:RETURN
6000COLOR3:FORT=0TO3:PLOTT,T:DRAWTOT,39+T:DRAWTO79-T*0.6,39:DRAWTO79-T*0.6,T:DRAWTOT,T:NEXTT:RETURN
7000GOSUB6000:FORT=10TO40STEP5:PLOTT,0:DRAWTOT,40:NEXTT:FORT=1TO10:PLOT7,T:DRAWTO35,T:NEXTT
7010POKE53248,200:POKE53249,200:FORT=10TO40STEP5:PLOT10,T:DRAWTO40,T:NEXTT:GOSUB4100
7020FORT=43TO70STEP8:PLOTT,40:DRAWTOT,8:PLOTT+4,0:DRAWTOT+4,35:NEXTT
7040COLOR2:FORT=1TO150:PLOT70*RND(1)+5,30*RND(1)+5:NEXTT:PLOT43,30:GOSUB4000:GT=690:GOTO500
8000SC=SC+30:?"MISSIONACCOMPLISHED":FORT=255TO0STEP-1:SOUND0,T,10,6:SOUND1,T,12,6:NEXTT
8010GRAPHICS5:POKE752,1:SETCOLOR0,2,6:?"YOUNOWHAVETOESCAPEBEFORE":?"THECOMPLEXISDESTROYED."
8020POKE53248,0:POKE53249,0:FORT=0TO256:SOUND0,T,10,4:NEXTT:?:?:?SC,,,D:?U$;U$;
8030GOSUB6000:FORT=10TO60STEP20:PLOTT,2:DRAWTOT,20+V4:PLOTT+10,40:DRAWTOT+10,22-V4:V4=V4+2
8040IFV4>16THENV4=16
8050NEXTT:X=5:B=6:GT=9000:V5=200-V9*20:COLOR2:FORT=0TO100:H=8*RND(1):PLOTH*H+5,30*RND(1)+5:NEXTT:V4=0:L=1
8100?"SCORE","TIMELEFT","LIVES":?
9000V5=V5-1:SOUND1,V5,2,4:?,U$;INT(0.16*V5);"":IFV5>0THEN900
9500FORT=10TO0STEP-1:SETCOLOR4,0,12:FORH=1TO10:NEXTH:SETCOLOR4,0,0:SOUND0,T*10+100,12,10
9510SOUND1,T*5+125,2,10:NEXTT:SETCOLOR4,0,12:GOTO11000
10000SC=SC+10:X=5:GRAPHICS2:?#6;"GOODJOB!!"
10005?#6,,,,"YOUCOMPLETED","MISSION";V9,,,"SCORE",SC,"LIVES",D,"TIMELEFT";V5*0.16
10010FORT=1TO80:SOUND1,200*RND(1),10,4:FORH=1TO20:NEXTH:NEXTT:SOUND1,0,0,0
10020V9=V9+1:B=V9:GT=640:T1=0:V8=V8-0.3:V7=4.5-V9:GOTO150
11000SOUND0,0,0,0:SOUND1,0,0,0:?:?"PRESSSTARTTOPLAYAGAIN";
11010IFPEEK(53279)<>6THEN11010
11020RUN	

• Download link 1

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