Home » Personal collection » Acorn ADFS disks » Electron » Micropower.ADF » Bandits/B2
Bandits/B2
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Personal collection » Acorn ADFS disks » Electron » Micropower.ADF |
Filename: | Bandits/B2 |
Read OK: | ✔ |
File size: | 2200 bytes |
Load address: | 0F00 |
Exec address: | 0F00 |
Duplicates
There are 4 duplicate copies of this file in the archive:
- AEW website » micropower » micropower_tapes_Bandits-At-3-O-Clock_BanditsAt3OClock_E.uef » B2
- Personal collection » Acorn ADFS disks » Electron » Micropower.ADF » Bandits/B2
- Personal collection » Acorn hard disk » zipped_disks » elk08 » micropower/Bandits/B2
- Personal collection » Acorn tapes » Commercial_Releases » micropower_tape16a_acorn_bandits_three_oclock.wav » B2
- Personal collection » Acorn tapes » Commercial_Releases » micropower_tape16a_acorn_bandits_three_oclock.wav » B2
File contents
10ONERRORGOTO25 15FORT%=0TO&5FFSTEP4:T%!&900=T%!&2B00:NEXT 20MODE5:VDU23,1,0;0;0;0;:COLOUR1:PRINTTAB(0,14);"Bandits at 3 o'clock";TAB(0,0):CLEAR:PROCinit 25*FX210,0 30MODE1:VDU20:VDU23,1,0;0;0;0;:PROCo:MODE5:VDU23,1,0;0;0;0;:PROCb:PROCc:PROCs:IFn%=0THEN *FX210,1 40PROCstart:TIME=0 60REPEAT:N%=(N%+1)MOD15:IFN%MOD3=0PROCK(N%DIV3) 70PROCL:PROCR 80IFINKEY-67PROCF 90IFINKEY-104PROCG 100UNTIL(H%=8ORG%=8)ANDH%<>6ANDG%<>6:IFN%<6PROCK(2) 130sc%=100-TIME/100:IFN%<9PROCK(3) 140N%=0:REPEAT:N%=N%+1:PROCL:PROCR:IFG%=8ANDH%=8PROCFLUSH 150IFINKEY-67AND(H%=4ORH%=6)PROCF 160IFINKEY-104AND(G%=4ORG%=6)PROCG 165IFH%=6ORG%=6N%=0 170UNTILN%=25:PROCFLUSH 200MOVEX%,Y%:PRINTP1$:MOVEU%,Z%:PRINTP2$:PROCg 210VDU4:COLOUR3:PRINTTAB(0,3)"KILLS ";K1%;TAB(12,3)"KILLS ";K2%; 215PRINTTAB(0,0)"GAMES ";G1%;TAB(12,0)"GAMES ";G2%; 216IFsc%<0ORH%=8sc%=0 217SC%=SC%+sc%:IFSC%>HI% HI%=SC% 220IFPN%=1PRINTTAB(0,0)"SCORE ";SC%;" ";TAB(12,0)"HIGH "HI%;" "; 225IFK1%=0ANDK2%=0 SC%=0 230VDU5:PROCd(150):GOTO40 240DEFPROCL:IFH%<>4GOTO320 245GCOL3,2 250V%=24:O%=(O%+(INKEY-66)*8+ABS(INKEY-98)*8+64)MOD64 260T%=(X%+V%*C(O%)+1279)MOD1279:S%=Y%+V%*S(O%):IFS%<76GOTO400 270!&74=&8FF+O%DIV8*16:MOVEX%,Y%:PRINTP1$ 280CALL&C41:MOVET%,S%:PRINTP1$:X%=T%:Y%=S% 290IFPOINT(X%+68,Y%-56)=1ORPOINT(X%-8,Y%-56)=1H%=5 300IFA%=0ORABS(X%-1050)>100ORABS(Y%-520)>100 ENDPROC 305H%=4-(RND(10)=5):FORJ%=1TO2:SOUND&10,2,5,6:MOVE1040,600:PLOT6,X%+32,Y%-32:NEXT:SOUND0,n%,4,255 310ENDPROC 320ONH%GOTO 310,330,340,250,360,380,310,410 330H%=3:T%=0:S%=80:O%=0:!&74=&8FF:V%=0:GOTO280 340V%=V%+1:SOUND&10,n%,4,255:IF V%<D1% GOTO260 350H%=4:VDU4:PRINTTAB(16,1)" ":VDU5:GOTO250 360IFY%>900PROCkof(X%,Y%)ELSEIFY%>120PROCexp(X%,Y%,6) 370H%=6:Z1%=1279+V%*C(O%):V%=4:SOUND&13,4,130,255 380V%=V%+2:S%=Y%-V%:IFABS(O%-48)>1 O%=(O%+62)MOD64 390T%=(X%+Z1%)MOD1279:IFS%>80 !&74=&8FF+O%DIV8*16:MOVEX%,Y%:PRINTP1$:CALL&C41:MOVET%,S%:PRINTP1$:X%=T%:Y%=S%:ENDPROC 400S%=80:MOVEX%,Y%:PRINTP1$:X%=T%:Y%=S%:PROCC1:ENDPROC 410PROCd(5):ENDPROC 420DEFPROCd(T%):T%=T%+TIME:REPEATUNTILTIME>T%:ENDPROC 440DEFPROCR:IFG%<>4GOTO520 450W%=24:Q%=(Q%+(INKEY-105)*8+ABS(INKEY-73)*8+64)MOD64 460T%=(U%-W%*C(Q%)+1279)MOD1279:S%=Z%-W%*S(Q%):IFS%<76GOTO590 470!&76=&97F+Q%DIV8*16:MOVEU%,Z%:PRINTP2$ 480CALL&C4B:MOVET%,S%:PRINTP2$:U%=T%:Z%=S% 490IFPOINT(U%+68,Z%-56)=1ORPOINT(U%-8,Z%-56)=1G%=5 500IFA%=0ORABS(U%-250)>100ORABS(Z%-520)>100 ENDPROC 505G%=4-(RND(10)=5):FORJ%=1TO2:SOUND&10,2,6,6:MOVE250,600:PLOT6,U%+32,Z%-32:NEXT:SOUND0,n%,4,255 510ENDPROC 520ONG%GOTO510,530,540,450,550,570,510,410,610,615,630,635 530G%=3:T%=1216:S%=80:Q%=0:!&76=&97F:W%=0:GOTO480 540W%=W%+1:IFW%<D1%GOTO460ELSEG%=4-5*(PN%=1):GOTO450 550IFZ%>900PROCkof(U%,Z%)ELSEIFZ%>120PROCexp(U%,Z%,6) 560G%=6:Z2%=1279-W%*C(Q%):W%=4:SOUND&12,4,130,255 570W%=W%+2:S%=Z%-W%:IFABS(Q%-16)>1Q%=(Q%+66)MOD64 580T%=(U%+Z2%)MOD1279:IFS%>80 !&76=&97F+Q%DIV8*16:MOVEU%,Z%:PRINTP2$:CALL&C4B:MOVET%,S%:PRINTP2$:U%=T%:Z%=S%:ENDPROC 590S%=80:MOVEU%,Z%:PRINTP2$:U%=T%:Z%=S%:PROCC2:ENDPROC 610IFZ%<740 Q%=56:W%=20:GOTO460 ELSEG%=10 615T%=(U%+1264)MOD1280:A=PI/640*U%:S%=660+120*SINA:Q%=(65+4*COSA)MOD64 620IFABS(U%-300)<8G%=9+RND(3) 625GOTO470 630T%=(U%+1264)MOD1280:S%=Z%:Q%=0:GOTO620 635T%=(U%+1264)MOD1280:A=PI/640*U%:S%=750+120*COSA:Q%=(65-4*SINA)MOD64:GOTO620 640DEFPROCF:IFG%=6ORH%=6THEN ENDPROC ELSEx%=X%+32:y%=Y%-32:u%=200*C(O%)+X%+32:v%=200*S(O%)+Y%-32 650SOUND&10,2,6,6:PROCf:IFPOINT(u%,v%)=2ORPOINT((u%+x%)/2,(v%+y%)/2)=2G%=5 660SOUND0,n%,4,255:ENDPROC 680DEFPROCG:IF H%=6ORG%=6 THEN ENDPROC ELSEx%=U%+32:y%=Z%-32:u%=-200*C(Q%)+U%+32:v%=-200*S(Q%)+Z%-32 690SOUND&10,2,6,6:PROCf:IFPOINT(u%,v%)=2ORPOINT((u%+x%)/2,(v%+y%)/2)=2H%=5 700SOUND0,n%,4,255:ENDPROC 720DEFPROCf:FORJ%=1TO4:MOVEx%,y%:PLOT6,u%,v%:NEXT:ENDPROC 740DEFPROCexp(x%,y%,j%):FORI%=1TOj%:SOUND&10,3,6,3:MOVEx%,y%:PRINTE$(1) 750MOVEx%+16,y%-16:PRINTE$(0):NEXT:IFj%>6ENDPROC 760SOUND&10,n%,4,255:ENDPROC 770DEFPROCK(M%):IFF%=0ORM%=1ORM%>3ENDPROC 780IFM%=0FORI%=1TO3:X%(I%)=RND(300)+250*I%:Y%(I%)=RND(150)+400:NEXT 790FORI%=1TO3:MOVEX%(I%),Y%(I%):PRINTE$(M%):NEXT:GCOL3,2:ENDPROC 810DEFPROCkof(u%,z%):FORI%=1TO4:SOUND&10,n%,6,2:MOVEu%+16,z%-16:PRINTE$(0):PROCd(20):NEXT:ENDPROC 820DEFPROCC1:!&74=&8FF+O%DIV8*16:CALL&C41:MOVEX%,Y%:PRINTP1$:SOUND&13,0,0,0 830PROCd(10):PROCexp(X%,Y%,10):MOVEX%,Y%:PRINTP1$:!&74=&C60 840CALL&C41:MOVEX%,Y%:PRINTP1$:H%=8:K2%=K2%+1:PROCexp(X%,Y%,6):ENDPROC 860DEFPROCC2:!&76=&97F+Q%DIV8*16:CALL&C4B:MOVEU%,Z%:PRINTP2$:SOUND&12,0,0,0 870PROCd(10):PROCexp(U%,Z%,10):MOVEU%,Z%:PRINTP2$:!&76=&C60 880CALL&C4B:MOVEU%,Z%:PRINTP2$:G%=8:K1%=K1%+1:PROCexp(U%,Z%,6):ENDPROC 900DEFPROCg:LOCALI%,XL%,XR%,Y%:XL%=520:XR%=720:Y%=52 910IFK2%>0FORI%=1TOK2%:XL%=XL%-48:MOVEXL%,Y%:PRINT$&BCC:NEXT 920IFH%=8SOUND&13,3,175,5 930IFK1%>0FORI%=1TOK1%:XR%=XR%+48:MOVEXR%,Y%:PRINT$&BD3:NEXT 940IFG%=8SOUND&12,3,195,5 950IFK1%<7ANDK2%<7ENDPROC 953MOVE320,500:GCOL0,2:PRINT"GAME OVER":PROCd(30):PROCFLUSH:PROCtune(SGN(K2%-K1%)+2):PROCd(200+n%*15):MOVE320,500:GCOL0,0:PRINT"GAME OVER" 960XL%=520:XR%=720:FORI%=1TOK2%:XL%=XL%-48:MOVEXL%,Y%:PRINTB$:NEXT 970FORI%=1TOK1%:XR%=XR%+48:MOVEXR%,Y%:PRINTB$:NEXT 980IFK1%>K2%G1%=G1%+1ELSEIFK1%<K2%G2%=G2%+1 990K1%=0:K2%=0:ENDPROC 1000DEFPROCFLUSH:SOUND&10,0,0,0:SOUND&11,0,0,0:SOUND&12,0,0,0:SOUND&13,0,0,0:PROCenv:ENDPROC 1010DEFPROCtune(T%):RESTORE(1050+10*T%):IFn%=0ENDPROC 1020ENVELOPE 4,1,0,0,0,0,0,0,126,-1,-1,-1,126,30:REPEAT:READN,D 1030N=4*N+76:SOUND1,4,N+48,D:PROCd(1):SOUND2,4,N,D:PROCd(1) 1040SOUND3,4,N,D:PROCd(12):UNTILD<1:PROCd(80):PROCFLUSH:ENDPROC 1060DATA6,1,6,1,6,1,8,1,10,1,11,1,10,3,13,3,13,0 1070DATA7,5,6,2,7,5,10,10,7,3,7,0 1080DATA8,9,13,7,8,7,8,7,6,6,5,6,6,7,8,3,8,0 1090DATA6,8,8,3,10,3,8,3,6,3,8,3,10,5,6,2,6,4,6,0 1110DEFPROCstart:N%=10:H%=2:G%=2:GCOL3,2:PROCL:PROCR 1120PROCenv:IFK1%=0ANDK2%=0PROCtune(4) 1130SOUND&10,n%,6,255:SOUND18,1,45,255:VDU4:COLOUR0:PRINTTAB(3,2);"FIRE TO START" 1140REPEATUNTILINKEY-67 OR INKEY-104:XL%=480:XR%=750:COLOUR2 1150PRINTTAB(3,2)" SCRAMBLE ":VDU5 1160REPEAT:MOVEXL%,50:PRINT$&BD9:MOVEXR%,50:PRINT$&BE6:SOUND&10,n%/2,4,1 1170MOVEXL%,50:PRINT$&BD9:MOVEXL%,50:PRINT$&BE0:MOVEXR%,50:PRINT$&BE6 1180MOVEXR%,50:PRINT$&BEC:MOVEXL%,50:PRINT$&BE0:MOVEXR%,50:PRINT$&BEC 1190XL%=XL%-24:XR%=XR%+24:UNTILXL%<40ANDXR%>1240:VDU4 1195GCOL3,2 1200PRINTTAB(6,2)"CONTACT ":SOUND&11,1,137,255:VDU5:D1%=RND(6)+12:ENDPROC 1220DEFPROCb:VDU28;3,19;17,129,18;128,16,12,5 1225IFb$="DAY "VDU19;4;0; 1230GCOL0,3:FORI%=1TO2:RESTORE(1250+I%*10):REPEAT:READP%,X%,Y% 1240PLOTP%,X%,Y%:UNTILP%=-1:GCOL0,1:NEXT 1250 MOVE610,70:VDU253:MOVE670,50:VDU253:MOVE612,160:VDU43 1259ENDPROC 1260DATA4,670,20,4,670,50,85,730,20,85,730,50,4,550,50,4,550,20,85,610,50,85,610,20,4,670,20,85,610,80,85,670,80,-1,0,0 1270DATA4,0,20,4,0,0,85,1279,20,85,1279,0,4,550,50,4,570,70,85,610,50,85,610,70,4,730,50,4,710,70,85,670,50,85,670,70,4,670,80,4,640,140,85,610,80,4,570,20,5,570,50,4,590,20,5,590,50,4,610,20,5,610,80,4,670,20,5,670,80,-1,0,0 1280DEFPROCc:IFCL%=0ENDPROC 1285RESTORE1320:FORC%=1TO5:READX%,Y%,R%:FORI%=X%-R%TOX%+R%STEP4 1290Y1%=SQR(R%*R%-(X%-I%)^2):MOVEI%,Y%-Y1%:GCOL0,3:DRAWI%,Y%+Y1%:NEXT,:ENDPROC 1320DATA500,750,50,600,750,80,700,800,50,700,700,70,780,750,60 1340DEFPROCinit:DIMC(63),S(63),X%(3),Y%(3),E$(3):A=PI/32 1345c$="Y":f$="Y":a$="N":b$="DAY ":PN%=2:CL%=1:F%=1:A%=0:n%=-13:n$="Y" 1350FORI%=0TO63:C(I%)=COS(A*I%):S(I%)=SIN(A*I%):NEXT:?&D00=0:?&E00=0 1360P1$=$&B80:P2$=$&B90:E$(0)=$&BA0:E$(1)=$&BB0:E$(2)=$&BC0:E$(3)=$&BF3 1430B$=$&BC6:!&70=&BFF:!&72=&C1F:PROCenv:ENDPROC 1450DEFPROCenv:IFn%=0FORT%=1TO4:ENVELOPET%,0,0,0,0,0,0,0,0,0,0,0,0,0:NEXT:ENDPROC 1455ENVELOPE 1,1,4,0,4,1,1,1,0,0,0,0,0,0 1460ENVELOPE 2,0,0,0,0,0,0,0,126,-4,0,-10,126,110 1470ENVELOPE 3,0,0,0,0,0,0,0,40,-1,0,-1,126,100 1480ENVELOPE 4,8,-1,-1,-1,255,255,255,40,-4,0,0,126,126:ENDPROC 1500DEFPROCs:IFA%=0ENDPROC 1501VDU29,1000;600;:GCOL0,1:FORI%=&B00TO&B49STEP3:PLOT?I%,I%?1,I%?2:NEXT 1502GCOL0,3:FORI%=&B4CTO&B7ASTEP3:PLOT?I%,I%?1,I%?2:NEXT 1503VDU29,300;600;:GCOL0,1:FORI%=&B00TO&B49STEP3:PLOT?I%,-I%?1,I%?2:NEXT 1504GCOL0,3:FORI%=&B4CTO&B7ASTEP3:PLOT?I%,-I%?1,I%?2:NEXT:VDU29,0;0;:ENDPROC 2000DEFPROCo:K1%=0:K2%=0:G1%=0:G2%=0:HI%=0:SC%=0 2005COLOUR2:PRINTTAB(16,5)"DOGFIGHT";TAB(9,28)"PRESS <SPACE> TO START" 2030COLOUR1:PRINTTAB(10,10)"Players";TAB(10,12)"Background";TAB(10,14)"Clouds";TAB(10,16)"Flak";TAB(10,18)"Airships";TAB(10,20)"Sound" 2090PRINTTAB(8,23)"<ESCAPE> TO OPTIONS PAGE";TAB(1,25)"PRESS - P,B,C,F,A,S - TO CHANGE OPTIONS" 2175COLOUR3:PRINTTAB(30,10);PN%;TAB(30,12)b$;TAB(30,14)c$;TAB(30,16)f$;TAB(30,18)a$;TAB(30,20)n$;TAB(11,8)"** OPTIONS PAGE **":PROCtune(1):*FX15,0 3010g$=GET$:IFg$="P"PN%=1-(PN%=1):PRINTTAB(30,10);PN%:GOTO3010 3030IFg$="C"c$=CHR$(78-11*(c$="N")):CL%=-(c$="Y"):PRINTTAB(30,14)c$:GOTO3010 3040IFg$="F"f$=CHR$(78-11*(f$="N")):F%=-(f$="Y"):PRINTTAB(30,16)f$:GOTO3010 3050IFg$="A"a$=CHR$(78-11*(a$="N")):A%=-(a$="Y"):PRINTTAB(30,18)a$:GOTO3010 3055IFg$="S"n$=CHR$(78-11*(n$="N")):n%=(n$="Y")*15:PRINTTAB(30,20)n$:GOTO3010 3060IFg$=" "ENDPROC ELSE IFg$<>"B"VDU7:GOTO3010 3070IFb$="DAY "b$="NIGHT"ELSEb$="DAY " 3080PRINTTAB(30,12)b$:GOTO3010
��TY@ #�T%=0�&5FF�4:T%!&900=T%!&2B00:� E�5:�23,1,0;0;0;0;:�1:�0,14);"Bandits at 3 o'clock";�0,0):�:�init *FX210,0 G�1:�20:�23,1,0;0;0;0;:�o:�5:�23,1,0;0;0;0;:�b:�c:�s:�n%=0� *FX210,1 (�start:�=0 <"�:N%=(N%+1)�15:�N%�3=0�K(N%�3) F �L:�R P�-67�F Z�-104�G d'�(H%=8�G%=8)�H%<>6�G%<>6:�N%<6�K(2) �sc%=100-�/100:�N%<9�K(3) �)N%=0:�:N%=N%+1:�L:�R:�G%=8�H%=8�FLUSH ��-67�(H%=4�H%=6)�F ��-104�(G%=4�G%=6)�G ��H%=6�G%=6N%=0 ��N%=25:�FLUSH ��X%,Y%:�P1$:�U%,Z%:�P2$:�g �0�4:�3:�0,3)"KILLS ";K1%;�12,3)"KILLS ";K2%; �*�0,0)"GAMES ";G1%;�12,0)"GAMES ";G2%; ��sc%<0�H%=8sc%=0 � SC%=SC%+sc%:�SC%>HI% HI%=SC% �8�PN%=1�0,0)"SCORE ";SC%;" ";�12,0)"HIGH "HI%;" "; ��K1%=0�K2%=0 SC%=0 ��5:�d(150):�Th@ ���L:�H%<>4�D@A ��3,2 �*V%=24:O%=(O%+(�-66)*8+�(�-98)*8+64)�64 9T%=(X%+V%*C(O%)+1279)�1279:S%=Y%+V%*S(O%):�S%<76�tPA !!&74=&8FF+O%�8*16:�X%,Y%:�P1$ !�&C41:�T%,S%:�P1$:X%=T%:Y%=S% "'�X%+68,Y%-56)=1��X%-8,Y%-56)=1H%=5 ,(�A%=0��(X%-1050)>100��(Y%-520)>100 � 1LH%=4-(�(10)=5):�J%=1�2:�&10,2,5,6:�1040,600:�6,X%+32,Y%-32:�:�0,n%,4,255 6� @0�H%� �TvA,�DJA,�DTA,�dz@,�DhA,�D|A,�TvA,�tZA J-H%=3:T%=0:S%=80:O%=0:!&74=&8FF:V%=0:�TXA T(V%=V%+1:�&10,n%,4,255:� V%<D1% �TDA ^%H%=4:�4:�16,1)" ":�5:�dz@ h+�Y%>900�kof(X%,Y%)��Y%>120�exp(X%,Y%,6) r.H%=6:Z1%=1279+V%*C(O%):V%=4:�&13,4,130,255 |.V%=V%+2:S%=Y%-V%:�(O%-48)>1 O%=(O%+62)�64 �YT%=(X%+Z1%)�1279:�S%>80 !&74=&8FF+O%�8*16:�X%,Y%:�P1$:�&C41:�T%,S%:�P1$:X%=T%:Y%=S%:� �'S%=80:�X%,Y%:�P1$:X%=T%:Y%=S%:�C1:� ��d(5):� ���d(T%):T%=T%+�:���>T%:� ���R:�G%<>4�THB �+W%=24:Q%=(Q%+(�-105)*8+�(�-73)*8+64)�64 �9T%=(U%-W%*C(Q%)+1279)�1279:S%=Z%-W%*S(Q%):�S%<76�DNB �!!&76=&97F+Q%�8*16:�U%,Z%:�P2$ �"�&C4B:�T%,S%:�P2$:U%=T%:Z%=S% �'�U%+68,Z%-56)=1��U%-8,Z%-56)=1G%=5 �'�A%=0��(U%-250)>100��(Z%-520)>100 � �KG%=4-(�(10)=5):�J%=1�2:�&10,2,6,6:�250,600:�6,U%+32,Z%-32:�:�0,n%,4,255 �� C�G%�d~A,�TRB,�T\B,�dBA,�TfB,�TzB,�d~A,�tZA,�DbB,�DgB,�DvB,�D{B 0G%=3:T%=1216:S%=80:Q%=0:!&76=&97F:W%=0:�d`A -W%=W%+1:�W%<D1%�dLA�G%=4-5*(PN%=1):�dBA &+�Z%>900�kof(U%,Z%)��Z%>120�exp(U%,Z%,6) 0.G%=6:Z2%=1279-W%*C(Q%):W%=4:�&12,4,130,255 :-W%=W%+2:S%=Z%-W%:�(Q%-16)>1Q%=(Q%+66)�64 DYT%=(U%+Z2%)�1279:�S%>80 !&76=&97F+Q%�8*16:�U%,Z%:�P2$:�&C4B:�T%,S%:�P2$:U%=T%:Z%=S%:� N'S%=80:�U%,Z%:�P2$:U%=T%:Z%=S%:�C2:� b$�Z%<740 Q%=56:W%=20:�dLA �G%=10 g>T%=(U%+1264)�1280:A=�/640*U%:S%=660+120*�A:Q%=(65+4*�A)�64 l�(U%-300)<8G%=9+�(3) q �dVA v&T%=(U%+1264)�1280:S%=Z%:Q%=0:�DlB {DT%=(U%+1264)�1280:A=�/640*U%:S%=750+120*�A:Q%=(65-4*�A)�64:�DlB �N��F:�G%=6�H%=6� � �x%=X%+32:y%=Y%-32:u%=200*C(O%)+X%+32:v%=200*S(O%)+Y%-32 �8�&10,2,6,6:�f:�u%,v%)=2��(u%+x%)/2,(v%+y%)/2)=2G%=5 ��0,n%,4,255:� �R��G:� H%=6�G%=6 � � �x%=U%+32:y%=Z%-32:u%=-200*C(Q%)+U%+32:v%=-200*S(Q%)+Z%-32 �8�&10,2,6,6:�f:�u%,v%)=2��(u%+x%)/2,(v%+y%)/2)=2H%=5 ��0,n%,4,255:� �#��f:�J%=1�4:�x%,y%:�6,u%,v%:�:� �5��exp(x%,y%,j%):�I%=1�j%:�&10,3,6,3:�x%,y%:�E$(1) � �x%+16,y%-16:�E$(0):�:�j%>6� ��&10,n%,4,255:� ��K(M%):�F%=0�M%=1�M%>3� 9�M%=0�I%=1�3:X%(I%)=�(300)+250*I%:Y%(I%)=�(150)+400:� +�I%=1�3:�X%(I%),Y%(I%):�E$(M%):�:�3,2:� *C��kof(u%,z%):�I%=1�4:�&10,n%,6,2:�u%+16,z%-16:�E$(0):�d(20):�:� 47��C1:!&74=&8FF+O%�8*16:�&C41:�X%,Y%:�P1$:�&13,0,0,0 >/�d(10):�exp(X%,Y%,10):�X%,Y%:�P1$:!&74=&C60 H4�&C41:�X%,Y%:�P1$:H%=8:K2%=K2%+1:�exp(X%,Y%,6):� \7��C2:!&76=&97F+Q%�8*16:�&C4B:�U%,Z%:�P2$:�&12,0,0,0 f/�d(10):�exp(U%,Z%,10):�U%,Z%:�P2$:!&76=&C60 p4�&C4B:�U%,Z%:�P2$:G%=8:K1%=K1%+1:�exp(U%,Z%,6):� �,��g:�I%,XL%,XR%,Y%:XL%=520:XR%=720:Y%=52 �/�K2%>0�I%=1�K2%:XL%=XL%-48:�XL%,Y%:�$&BCC:� ��H%=8�&13,3,175,5 �/�K1%>0�I%=1�K1%:XR%=XR%+48:�XR%,Y%:�$&BD3:� ��G%=8�&12,3,195,5 ��K1%<7�K2%<7� �i�320,500:�0,2:�"GAME OVER":�d(30):�FLUSH:�tune(�(K2%-K1%)+2):�d(200+n%*15):�320,500:�0,0:�"GAME OVER" �6XL%=520:XR%=720:�I%=1�K2%:XL%=XL%-48:�XL%,Y%:�B$:� �&�I%=1�K1%:XR%=XR%+48:�XR%,Y%:�B$:� �'�K1%>K2%G1%=G1%+1��K1%<K2%G2%=G2%+1 �K1%=0:K2%=0:� �>��FLUSH:�&10,0,0,0:�&11,0,0,0:�&12,0,0,0:�&13,0,0,0:�env:� �#��tune(T%):�(1050+10*T%):�n%=0� �0� 4,1,0,0,0,0,0,0,126,-1,-1,-1,126,30:�:�N,D -N=4*N+76:�1,4,N+48,D:�d(1):�2,4,N,D:�d(1) (�3,4,N,D:�d(12):�D<1:�d(80):�FLUSH:� $-�6,1,6,1,6,1,8,1,10,1,11,1,10,3,13,3,13,0 .�7,5,6,2,7,5,10,10,7,3,7,0 8)�8,9,13,7,8,7,8,7,6,6,5,6,6,7,8,3,8,0 B.�6,8,8,3,10,3,8,3,6,3,8,3,10,5,6,2,6,4,6,0 V&��start:N%=10:H%=2:G%=2:�3,2:�L:�R `�env:�K1%=0�K2%=0�tune(4) j;�&10,n%,6,255:�18,1,45,255:�4:�0:�3,2);"FIRE TO START" t%���-67 � �-104:XL%=480:XR%=750:�2 ~�3,2)" SCRAMBLE ":�5 �1�:�XL%,50:�$&BD9:�XR%,50:�$&BE6:�&10,n%/2,4,1 �0�XL%,50:�$&BD9:�XL%,50:�$&BE0:�XR%,50:�$&BE6 �0�XR%,50:�$&BEC:�XL%,50:�$&BE0:�XR%,50:�$&BEC �-XL%=XL%-24:XR%=XR%+24:�XL%<40�XR%>1240:�4 ��3,2 �4�6,2)"CONTACT ":�&11,1,137,255:�5:D1%=�(6)+12:� �&��b:�28;3,19;17,129,18;128,16,12,5 ��b$="DAY "�19;4;0; �*�0,3:�I%=1�2:�(1250+I%*10):�:�P%,X%,Y% ��P%,X%,Y%:�P%=-1:�0,1:� �+ �610,70:�253:�670,50:�253:�612,160:�43 �� �t�4,670,20,4,670,50,85,730,20,85,730,50,4,550,50,4,550,20,85,610,50,85,610,20,4,670,20,85,610,80,85,670,80,-1,0,0 ���4,0,20,4,0,0,85,1279,20,85,1279,0,4,550,50,4,570,70,85,610,50,85,610,70,4,730,50,4,710,70,85,670,50,85,670,70,4,670,80,4,640,140,85,610,80,4,570,20,5,570,50,4,590,20,5,590,50,4,610,20,5,610,80,4,670,20,5,670,80,-1,0,0 ��c:�CL%=0� -��ThE:�C%=1�5:�X%,Y%,R%:�I%=X%-R%�X%+R%�4 :Y1%=�(R%*R%-(X%-I%)^2):�I%,Y%-Y1%:�0,3:�I%,Y%+Y1%:�,:� (;�500,750,50,600,750,80,700,800,50,700,700,70,780,750,60 <0��init:�C(63),S(63),X%(3),Y%(3),E$(3):A=�/32 AGc$="Y":f$="Y":a$="N":b$="DAY ":PN%=2:CL%=1:F%=1:A%=0:n%=-13:n$="Y" F:�I%=0�63:C(I%)=�(A*I%):S(I%)=�(A*I%):�:?&D00=0:?&E00=0 PGP1$=$&B80:P2$=$&B90:E$(0)=$&BA0:E$(1)=$&BB0:E$(2)=$&BC0:E$(3)=$&BF3 �'B$=$&BC6:!&70=&BFF:!&72=&C1F:�env:� �8��env:�n%=0�T%=1�4:�T%,0,0,0,0,0,0,0,0,0,0,0,0,0:�:� �#� 1,1,4,0,4,1,1,1,0,0,0,0,0,0 �*� 2,0,0,0,0,0,0,0,126,-4,0,-10,126,110 �(� 3,0,0,0,0,0,0,0,40,-1,0,-1,126,100 �2� 4,8,-1,-1,-1,255,255,255,40,-4,0,0,126,126:� ���s:�A%=0� �7�29,1000;600;:�0,1:�I%=&B00�&B49�3:�?I%,I%?1,I%?2:� �)�0,3:�I%=&B4C�&B7A�3:�?I%,I%?1,I%?2:� �7�29,300;600;:�0,1:�I%=&B00�&B49�3:�?I%,-I%?1,I%?2:� �5�0,3:�I%=&B4C�&B7A�3:�?I%,-I%?1,I%?2:�:�29,0;0;:� �+��o:K1%=0:K2%=0:G1%=0:G2%=0:HI%=0:SC%=0 �7�2:�16,5)"DOGFIGHT";�9,28)"PRESS <SPACE> TO START" �k�1:�10,10)"Players";�10,12)"Background";�10,14)"Clouds";�10,16)"Flak";�10,18)"Airships";�10,20)"Sound" *U�8,23)"<ESCAPE> TO OPTIONS PAGE";�1,25)"PRESS - P,B,C,F,A,S - TO CHANGE OPTIONS" q�3:�30,10);PN%;�30,12)b$;�30,14)c$;�30,16)f$;�30,18)a$;�30,20)n$;�11,8)"** OPTIONS PAGE **":�tune(1):*FX15,0 �0g$=�:�g$="P"PN%=1-(PN%=1):�30,10);PN%:�dBK �>�g$="C"c$=�(78-11*(c$="N")):CL%=-(c$="Y"):�30,14)c$:�dBK �=�g$="F"f$=�(78-11*(f$="N")):F%=-(f$="Y"):�30,16)f$:�dBK �=�g$="A"a$=�(78-11*(a$="N")):A%=-(a$="Y"):�30,18)a$:�dBK �?�g$="S"n$=�(78-11*(n$="N")):n%=(n$="Y")*15:�30,20)n$:�dBK ��g$=" "� � �g$<>"B"�7:�dBK �$�b$="DAY "b$="NIGHT"�b$="DAY " �30,12)b$:�dBK �1" t%���-67 � �-104:XL%=480:XR%=750:�2 ~�3,2)" SCRAMBLE ":�5 �1�:�XL%,50:�$&BD9:�XR%,50:�$&BE6:�&10,n%/2,4,1 �0�XL%,50:�$&BD9:�XL%,50:�$&BE0:�XR%,50:�$&BE ����� x` (,,-,,,,8 tx8��f2 q���� �ph��Р @@ X0004444�44 @@��Lf39. ����q 2f̜8xt 8,,,,-,,( `x ����� .93fL�@@ 44�4444000X @@ ����hp� @___ �@@ � � ���P@#, � 1 >����H! @� '