Home » CEEFAX disks » telesoftware16.adl » 12-05-89/Strike

12-05-89/Strike

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 » CEEFAX disks » telesoftware16.adl
Filename: 12-05-89/Strike
Read OK: ✔
File size: 16E4 bytes
Load address: 1900
Exec address: 1900
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
    0REM AIR STRIKE MK VII
    1REM Jon McFarlane 1983 
    2ONERRORPROCCOL(2):CLS:VDU4:GOTO7
    3DIMN$(5),HH%(5):FORN%=1TO5:N$(N%)="Beeb 3":HH%(N%)=100:NEXT
    4VDU23,230,0,64,96,112,127,63,31,0,23,231,0,0,96,144,248,255,248,0,23,232,0,7,63,114,114,63,7,0,23,233,0,224,252,78,78,252,224,0,23,234,129,66,36,24,24,36,66,129,23,236,0,16,16,16,248,172,252,252,23,237,0,0,0,49,25,13,7,3
    5MODE1:VDU23,238,0,0,0,140,152,176,224,192,23,239,219,219,126,126,60,60,60,24,23,235,0,0,64,64,67,66,67,67,23,226,85,170,85,170,85,170,85,170:ENVELOPE1,1,1,-1,1,1,1,1,126,0,0,-5,100,0
    6A$=CHR$230+CHR$231:B$=CHR$232+CHR$233:C$=CHR$234:ENVELOPE2,10,0,0,0,10,10,10,126,-5,-5,-5,110,0:ENVELOPE3,7,-10,20,-10,1,1,1,0,0,0,-127,100,0:BBX=-10:AAX=0
    7VDU23;8202;0;0;0;:PROCINST
    8BS%=0:AS%=0:S%=0:A%=50:B%=500:T%=0
    9LIV%=3:VDU4:PROCCOL(7):COLOUR130:COLOUR0:CLS:INPUT''''''''''"Which level(1-3)",LEV%:CLS:IFLEV%<1ORLEV%>3THEN9
   10PROCTUNE:VDU5:ONLEV%GOSUB96,97,98
   11VDU23;8202;0;0;0;:PROCTERR
   12R=RND(4):ONR GOSUB27,28,29,30
   13BON%=RND(10):IFBON%=1PRINTTAB(0,3)"Double points!!":BON%=2 ELSEIFBON%=3   PRINTTAB(0,3)"Mystery points!!":BON%=   RND(4)ELSE BON%=1
   14GCOL4,3:MOVEA%,B%:PRINTA$:IFR<3   MOVEC%,D%
   15IFR=2PRINTB$:SOUND3,1,20,255ELSEIFR=1PRINTC$:SOUND3,3,100,255
   16GOTO19
   17IF AL=0GOTO36
   18GOTO16
   19GCOL4,0:MOVEA%,B%:PRINTA$:IFINKEY (-66)BS%=BS%+1ELSEIFINKEY(-98)BS%=BS%-1 ELSEIFINKEY(-1)AS%=AS%+6
   20IFAS%>90 AS%=90 ELSEIFAS%<MS% AS%=MS%
   21IFBS%>10 BS%=10 ELSEIFBS%<-20 BS%=-20
   22B%=B%+BS%:A%=A%+AS%:AS%=AS%-1
   23IFA%>=1250THEN11ELSEIFB%<=0ORB%>=1000 THEN60 ELSEIFA%>1250THENN%=31:GOTO17
   24GCOL4,3:MOVEA%,B%:PRINTA$:IFINKEY (-74)GOTO32
   25IFA%<C%+32ANDA%>C% ANDB%-16<D% ANDB%-16>D%-32 THEN60
   26GOTO17
   27C%=1200:D%=RND(500)+100:RETURN
   28C%=1200:D%=RND(500)+100:RETURN
   29GOSUB31:MOVEC%,D%:PRINTCHR$235;   CHR$236:RETURN
   30GOSUB31:MOVEC%,D%:PRINTCHR$237;   CHR$238:RETURN
   31C%=1110:D%=X+33:GCOL0,1:RETURN
   32MOVEA%+64,B%-16:GCOL4,3:DRAW1280, B%-16:SOUND1,-15,200,1:SOUND2,-15,205,1:GCOL4,0:DRAWA%+64,B%-16:IFB%-16<D% AND  B%-16>D%-32 ANDA%<=C% THEN33ELSEGOTO17
   33IFAL=1ENDPROC
   34*FX15
   35PROCSC:PROCEXP:GOTO17
   36ON R GOTO40,37,46,44
   37GCOL4,0:MOVEC%,D%:PRINTB$:C%=C%-  CR%:IFD%<B% D%=D%+CR% ELSE D%=D%-CR%
   38GCOL4,3:MOVEC%,D%:PRINTB$:IFRND(FR%)=1 AND C%>A% THENPROCAFIRE
   39GOTO16
   40GCOL4,0:MOVEC%,D%:PRINTC$:IFC%<A% THENC%=C%+CR% ELSEIFC%>A%THENC%=C%-CR%
   41IFD%>B% D%=D%-CR% ELSEIFD%<B% D%= D%+CR%
   42GCOL4,3:MOVEC%,D%:PRINTC$:IFC%<A% +100 AND C%>A%-100 AND D%<B%+100 AND D%>B%-100 THEN 94
   43GOTO16
   44IFB%<D%THENGOTO16
   45MOVEAAX,BBX:VDU226:AAX=RND(1280): MOVEAAX,B%:VDU226:BBX=B%:IFAAX-16<A% ANDAAX-16>A%-32 THEN60ELSEGOTO16
   46IFD%<B% ANDRND(5)=1THEN48
   47GOTO16
   48RS%=RND(140):MOVEC%,D%:GCOL4,3:   DRAWA%+RS%,B%:SOUND1,-15,255,1:SOUND2,  -15,250,1:GCOL4,0:DRAWC%,D%:IFRS%<65THEN60
   49GOTO16
   50DEFPROCTERR
   51VDU19,2,2,0,0,0:*FX15
   52AAX=0:BBX=-10
   53IFT%>995PROCNM
   54VDU4:PROCCOL(2):CLS:COLOUR3:PRINTTAB(0,1);"Score=";S%;"  ";
   55IFLIV%>3PROCSL ELSEPRINTSTRING$(LIV%-1,CHR$230+CHR$231+" ");
   56PRINT" ";"Hi-score=";HH%(1);"  ";N$(1):VDU5:MOVE0,0:GCOL0,2:FORM%=0TO1100STEP100:X=RND(10)*32-2:DRAWM%,X:NEXT:DRAW1200,X
   57DRAW1300,RND(10)*32-2:AL=0:IFA%>1000THENA%=10 ELSEIFA%<10A%=1200
   58ENDPROC
   59IFB%<=0B%=10 ELSEIFB%>=1000 B%=990
   60*FX15,0
   61SOUND0,2,4,50
   62VDU19,0,8,0,0,0,19,3,0,0,0,0:GCOL0,1:FORN%=1TO50:MOVEA%+32,B%-16:DRAWRND(1280),RND(1024):NEXT
   63VDU4,19,0,7,0,0,0,19,3,0,0,0,0
   64LIV%=LIV%-1:IFLIV%>0THEN110ELSEL%=0
   65COLOUR0:PROCCOL(8):CLS:COLOUR1:PRINT'''TAB(9);"Air Strike Hi-scores.":COLOUR3:PRINT'':FORN%=1TO5:IFN%=L%COLOUR2ELSECOLOUR3
   66PRINTN%;")";N$(N%);"....";HH%(N%)'':NEXT
   67IFS%>=HH%(5)GOTO84
   68COLOUR1:PRINT''TAB(9)"Press S to start.":REPEATUNTILGET$="S":GOTO8
   69DEFPROCEXP
   70MOVEC%,D%:GCOL0,1:AL=1
   71IFR=1PRINTC$ELSEIFR=2PRINTB$ELSEIFR=3VDU235,236ELSEVDU237,238
   72SOUND0,2,5,50:FORM2%=1TO3:VDU19,1,M2%;0;0;0;:TIME=0:REPEATUNTILTIME>2:NEXT:MOVEC%,D%:GCOL0,0:IFR=1PRINTC$ELSEIFR=2PRINTB$ELSEIFR=3VDU235,236ELSEVDU237,238
   73GCOL0,1:VDU19,1,1,0,0,0
   74FORN%=3TO0STEP-1:GCOL0,N%:MOVEC%-50,D%:DRAWC%+50,D%:MOVED%-50,C%:DRAWD%+50,C%:MOVEC%-50,D%-50:DRAWC%+50,D%+50:MOVE C%-50,D%+50:DRAWC%+50,D%-50:MOVEC%,D%+50:DRAWC%,D%-50:NEXT
   75C%=0:D%=0:ENDPROC
   76DEFPROCAFIRE
   77MOVEC%,D%-16:GCOL4,3:DRAW0,D%-16: SOUND1,-15,255,1:SOUND2,-15,250,1:GCOL4,0:DRAWC%,D%-16:IFD%-16<B% ANDD%-16>B%-32THEN78ELSEENDPROC
   78GOTO60
   79DEFPROCSC
   80P%=S%
   81IFR=1S%=S%+PT%*BON% ELSEIFR=2 S%= S%+PT%*2*BON% ELSEIFR=3 S%=S%+40*BON%   ELSES%=S%+30*BON%
   82T%=T%+S%-P%
   83VDU4:PRINTTAB(6,1);S%:VDU5:ENDPROC
   84*FX15,0
   85PRINT''TAB(15);"Hi-score!!"
   86PRINT''TAB(3);:INPUT"Please enter your name ",AA$:IFLEN(AA$)>4THENAA$=LEFT$(AA$,4)ELSEIFLENAA$<4REPEAT:AA$=AA$+" ":UNTILLENAA$=4
   87AA$=AA$+" "+STR$(LEV%)
   88L%=0:REPEAT:L%=L%+1:UNTILHH%(L%)<=S%ORL%=5
   89IFL%=6GOTO93
   90H%=6:REPEAT:H%=H%-1:HH%(H%)=HH%(H%-1):N$(H%)=N$(H%-1):UNTILH%=L%
   91N$(L%)=AA$:HH%(L%)=S%:S%=0:GOTO65
   92IFMID$(AA$,6,1)<MID$(N$(5),6,1)L%=4:GOTO90
   93S%=0:GOTO65
   94*FX15,0
   95SOUND0,2,4,50:FORN%=1TO50:MOVEC%+ 16,B%-16:DRAWRND(1280),RND(1024):NEXT:  GOTO63
   96MS%=40:CR%=25:FR%=3:PT%=20:RETURN
   97MS%=15:CR%=15:FR%=8:PT%=10:RETURN
   98MS%=10:CR%=10:FR%=10:PT%=5:RETURN
   99TIME=0:REPEATUNTILTIME=100:A%=50: B%=500:PRINTTAB(6+LIV%*2,1);"  ":VDU5:  GOTO11
  100DEFPROCCOL(Z%):VDU20,19,2,Z%,0,0,0:ENDPROC
  101DEFPROCNM:PROCCOL(9):COLOUR2:VDU4:T%=T%-1000:PRINTTAB(10,12)"EXTRA SHIP BONUS":LIV%=LIV%+1:FORN%=1TO3:SOUND3,-15,250,10:TIME=0:REPEATUNTILTIME=100:NEXT:ENDPROC
  102DEFPROCSL:PRINTA$;"+";LIV%-2;:ENDPROC
  103DEFPROCINST:PROCCOL(6):COLOUR130:COLOUR0:CLS
  104PRINT'TAB(15);"AIR STRIKE":PRINT'"You have three ships.Z moves you down,"''"A moves you up,press SHIFT to accelerate":PRINT"and RETURN to fire."''"You can move through the mountains"''"without exploding,but do not go too far"
  105PRINT'"up or down.Level 3 is the easiest,"''"level 1 the hardest.There are more"''"points to be gained in level 1 than in"''"the other levels."''"Press 'S' to continue."'''"Press <ESCAPE> to return to this page."
  106REPEATUNTILGET$="S"
  107CLS:PRINT''A$;"  Your ship."''B$;"  Alien ship.Moves about and fires"''"at you."''C$;"  Death satellite.Moves in close and"''"explodes."''CHR$235;CHR$236"  Radar base.Fires accurate missiles"''"at overhead ships."''CHR$237;CHR$238;
  108PRINT;"  AA gun.Fires flak at overhead ships.":PRINT"Press S to start.";:REPEATUNTILGET$="S"
  109ENDPROC
  110REPEATUNTILADVAL(-5)=15:A%=50:IFB%<100 B%=200
  111GOTO11
  112DEFPROCTUNE:PRINTTAB(15,15);" READY !!"
  113LOCALN%,A%:RESTORE115:FORN%=1TO13:READA%:SOUND1,-15,A%,3:SOUND2,-15,A%-48,3:NEXT:SOUND1,-15,101,7:SOUND2,-15,53,7
  114PRINT''TAB(15);"Here we go....":TIME=0:REPEATUNTILTIME>100:ENDPROC
  115DATA101,117,129,117,109,121,137,121,101,117,129,117,101

� AIR STRIKE MK VII
� Jon McFarlane 1983 
��COL(2):�:�4:�TG@
7�N$(5),HH%(5):�N%=1�5:N$(N%)="Beeb 3":HH%(N%)=100:�
��23,230,0,64,96,112,127,63,31,0,23,231,0,0,96,144,248,255,248,0,23,232,0,7,63,114,114,63,7,0,23,233,0,224,252,78,78,252,224,0,23,234,129,66,36,24,24,36,66,129,23,236,0,16,16,16,248,172,252,252,23,237,0,0,0,49,25,13,7,3
��1:�23,238,0,0,0,140,152,176,224,192,23,239,219,219,126,126,60,60,60,24,23,235,0,0,64,64,67,66,67,67,23,226,85,170,85,170,85,170,85,170:�1,1,1,-1,1,1,1,1,126,0,0,-5,100,0
�A$=�230+�231:B$=�232+�233:C$=�234:�2,10,0,0,0,10,10,10,126,-5,-5,-5,110,0:�3,7,-10,20,-10,1,1,1,0,0,0,-127,100,0:BBX=-10:AAX=0
�23;8202;0;0;0;:�INST
&BS%=0:AS%=0:S%=0:A%=50:B%=500:T%=0
	XLIV%=3:�4:�COL(7):�130:�0:�:�''''''''''"Which level(1-3)",LEV%:�:�LEV%<1�LEV%>3��TI@

!�TUNE:�5:�LEV%�D`@,�Da@,�Db@
�23;8202;0;0;0;:�TERR
"R=�(4):�R �T[@,�T\@,�T]@,�T^@

mBON%=�(10):�BON%=1�0,3)"Double points!!":BON%=2 ��BON%=3   �0,3)"Mystery points!!":BON%=   �(4)� BON%=1
!�4,3:�A%,B%:�A$:�R<3   �C%,D%
,�R=2�B$:�3,1,20,255��R=1�C$:�3,3,100,255
	�TS@
� AL=0�Td@
	�TP@
G�4,0:�A%,B%:�A$:� (-66)BS%=BS%+1��(-98)BS%=BS%-1 ��(-1)AS%=AS%+6
$�AS%>90 AS%=90 ��AS%<MS% AS%=MS%
$�BS%>10 BS%=10 ��BS%<-20 BS%=-20
!B%=B%+BS%:A%=A%+AS%:AS%=AS%-1
>�A%>=1250��TK@��B%<=0�B%>=1000 ��T|@ ��A%>1250�N%=31:�TQ@
!�4,3:�A%,B%:�A$:� (-74)�T`@
0�A%<C%+32�A%>C% �B%-16<D% �B%-16>D%-32 ��T|@
	�TQ@
C%=1200:D%=�(500)+100:�
C%=1200:D%=�(500)+100:�
 �T_@:�C%,D%:�235;   �236:�
 �T_@:�C%,D%:�237;   �238:�
C%=1110:D%=X+33:�0,1:�
 {�A%+64,B%-16:�4,3:�1280, B%-16:�1,-15,200,1:�2,-15,205,1:�4,0:�A%+64,B%-16:�B%-16<D% �  B%-16>D%-32 �A%<=C% ��Ta@��TQ@
!
�AL=1�
"	*FX15
#�SC:�EXP:�TQ@
$� R �Th@,�Te@,�Tn@,�Tl@
%<�4,0:�C%,D%:�B$:C%=C%-  CR%:�D%<B% D%=D%+CR% � D%=D%-CR%
&-�4,3:�C%,D%:�B$:�(FR%)=1 � C%>A% ��AFIRE
'	�TP@
(7�4,0:�C%,D%:�C$:�C%<A% �C%=C%+CR% ��C%>A%�C%=C%-CR%
)'�D%>B% D%=D%-CR% ��D%<B% D%= D%+CR%
*J�4,3:�C%,D%:�C$:�C%<A% +100 � C%>A%-100 � D%<B%+100 � D%>B%-100 � �D^@
+	�TP@
,�B%<D%��TP@
-W�AAX,BBX:�226:AAX=�(1280): �AAX,B%:�226:BBX=B%:�AAX-16<A% �AAX-16>A%-32 ��T|@��TP@
.�D%<B% ��(5)=1��Tp@
/	�TP@
0]RS%=�(140):�C%,D%:�4,3:   �A%+RS%,B%:�1,-15,255,1:�2,  -15,250,1:�4,0:�C%,D%:�RS%<65��T|@
1	�TP@
2
��TERR
3�19,2,2,0,0,0:*FX15
4AAX=0:BBX=-10
5�T%>995�NM
6,�4:�COL(2):�:�3:�0,1);"Score=";S%;"  ";
7(�LIV%>3�SL ���LIV%-1,�230+�231+" ");
8_�" ";"Hi-score=";HH%(1);"  ";N$(1):�5:�0,0:�0,2:�M%=0�1100�100:X=�(10)*32-2:�M%,X:�:�1200,X
97�1300,�(10)*32-2:AL=0:�A%>1000�A%=10 ��A%<10A%=1200
:�
;!�B%<=0B%=10 ��B%>=1000 B%=990
<*FX15,0
=
�0,2,4,50
>L�19,0,8,0,0,0,19,3,0,0,0,0:�0,1:�N%=1�50:�A%+32,B%-16:߳(1280),�(1024):�
? �4,19,0,7,0,0,0,19,3,0,0,0,0
@!LIV%=LIV%-1:�LIV%>0��Dn@�L%=0
AN�0:�COL(8):�:�1:�'''�9);"Air Strike Hi-scores.":�3:�'':�N%=1�5:�N%=L%�2��3
B%�N%;")";N$(N%);"....";HH%(N%)'':�
C�S%>=HH%(5)�DT@
D.�1:�''�9)"Press S to start.":���="S":�TH@
E	��EXP
F�C%,D%:�0,1:AL=1
G)�R=1�C$��R=2�B$��R=3�235,236��237,238
He�0,2,5,50:�M2%=1�3:�19,1,M2%;0;0;0;:�=0:���>2:�:�C%,D%:�0,0:�R=1�C$��R=2�B$��R=3�235,236��237,238
I�0,1:�19,1,1,0,0,0
J��N%=3�0�-1:�0,N%:�C%-50,D%:�C%+50,D%:�D%-50,C%:�D%+50,C%:�C%-50,D%-50:�C%+50,D%+50:� C%-50,D%+50:�C%+50,D%-50:�C%,D%+50:�C%,D%-50:�
KC%=0:D%=0:�
L��AFIRE
Mc�C%,D%-16:�4,3:�0,D%-16: �1,-15,255,1:�2,-15,250,1:�4,0:�C%,D%-16:�D%-16<B% �D%-16>B%-32��DN@��
N	�T|@
O��SC
P	P%=S%
QS�R=1S%=S%+PT%*BON% ��R=2 S%= S%+PT%*2*BON% ��R=3 S%=S%+40*BON%   �S%=S%+30*BON%
RT%=T%+S%-P%
S�4:�6,1);S%:�5:�
T*FX15,0
U�''�15);"Hi-score!!"
V]�''�3);:�"Please enter your name ",AA$:�(AA$)>4�AA$=�AA$,4)��AA$<4�:AA$=AA$+" ":��AA$=4
WAA$=AA$+" "+�(LEV%)
X$L%=0:�:L%=L%+1:�HH%(L%)<=S%�L%=5
Y�L%=6�D]@
Z;H%=6:�:H%=H%-1:HH%(H%)=HH%(H%-1):N$(H%)=N$(H%-1):�H%=L%
[$N$(L%)=AA$:HH%(L%)=S%:S%=0:�DA@
\$�AA$,6,1)<�N$(5),6,1)L%=4:�DZ@
]S%=0:�DA@
^*FX15,0
_?�0,2,4,50:�N%=1�50:�C%+ 16,B%-16:߳(1280),�(1024):�:  �T@
` MS%=40:CR%=25:FR%=3:PT%=20:�
a MS%=15:CR%=15:FR%=8:PT%=10:�
b MS%=10:CR%=10:FR%=10:PT%=5:�
c;�=0:���=100:A%=50: B%=500:�6+LIV%*2,1);"  ":�5:  �TK@
d!��COL(Z%):�20,19,2,Z%,0,0,0:�
en��NM:�COL(9):�2:�4:T%=T%-1000:�10,12)"EXTRA SHIP BONUS":LIV%=LIV%+1:�N%=1�3:�3,-15,250,10:�=0:���=100:�:�
f��SL:�A$;"+";LIV%-2;:�
g��INST:�COL(6):�130:�0:�
h��'�15);"AIR STRIKE":�'"You have three ships.Z moves you down,"''"A moves you up,press SHIFT to accelerate":�"and RETURN to fire."''"You can move through the mountains"''"without exploding,but do not go too far"
i��'"up or down.Level 3 is the easiest,"''"level 1 the hardest.There are more"''"points to be gained in level 1 than in"''"the other levels."''"Press 'S' to continue."'''"Press <ESCAPE> to return to this page."
j���="S"
k��:�''A$;"  Your ship."''B$;"  Alien ship.Moves about and fires"''"at you."''C$;"  Death satellite.Moves in close and"''"explodes."''�235;�236"  Radar base.Fires accurate missiles"''"at overhead ships."''�237;�238;
lL�;"  AA gun.Fires flak at overhead ships.":�"Press S to start.";:���="S"
m�
n#���(-5)=15:A%=50:�B%<100 B%=200
o	�TK@
p��TUNE:�15,15);" READY !!"
qS�N%,A%:��Ds@:�N%=1�13:�A%:�1,-15,A%,3:�2,-15,A%-48,3:�:�1,-15,101,7:�2,-15,53,7
r*�''�15);"Here we go....":�=0:���>100:�
s8�101,117,129,117,109,121,137,121,101,117,129,117,101
�LEAP=0
PE� M%=2 � LEAP=1 � ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������
00000000  0d 00 00 17 f4 20 41 49  52 20 53 54 52 49 4b 45  |..... AIR STRIKE|
00000010  20 4d 4b 20 56 49 49 0d  00 01 19 f4 20 4a 6f 6e  | MK VII..... Jon|
00000020  20 4d 63 46 61 72 6c 61  6e 65 20 31 39 38 33 20  | McFarlane 1983 |
00000030  0d 00 02 18 ee 85 f2 43  4f 4c 28 32 29 3a db 3a  |.......COL(2):.:|
00000040  ef 34 3a e5 8d 54 47 40  0d 00 03 37 de 4e 24 28  |.4:..TG@...7.N$(|
00000050  35 29 2c 48 48 25 28 35  29 3a e3 4e 25 3d 31 b8  |5),HH%(5):.N%=1.|
00000060  35 3a 4e 24 28 4e 25 29  3d 22 42 65 65 62 20 33  |5:N$(N%)="Beeb 3|
00000070  22 3a 48 48 25 28 4e 25  29 3d 31 30 30 3a ed 0d  |":HH%(N%)=100:..|
00000080  00 04 de ef 32 33 2c 32  33 30 2c 30 2c 36 34 2c  |....23,230,0,64,|
00000090  39 36 2c 31 31 32 2c 31  32 37 2c 36 33 2c 33 31  |96,112,127,63,31|
000000a0  2c 30 2c 32 33 2c 32 33  31 2c 30 2c 30 2c 39 36  |,0,23,231,0,0,96|
000000b0  2c 31 34 34 2c 32 34 38  2c 32 35 35 2c 32 34 38  |,144,248,255,248|
000000c0  2c 30 2c 32 33 2c 32 33  32 2c 30 2c 37 2c 36 33  |,0,23,232,0,7,63|
000000d0  2c 31 31 34 2c 31 31 34  2c 36 33 2c 37 2c 30 2c  |,114,114,63,7,0,|
000000e0  32 33 2c 32 33 33 2c 30  2c 32 32 34 2c 32 35 32  |23,233,0,224,252|
000000f0  2c 37 38 2c 37 38 2c 32  35 32 2c 32 32 34 2c 30  |,78,78,252,224,0|
00000100  2c 32 33 2c 32 33 34 2c  31 32 39 2c 36 36 2c 33  |,23,234,129,66,3|
00000110  36 2c 32 34 2c 32 34 2c  33 36 2c 36 36 2c 31 32  |6,24,24,36,66,12|
00000120  39 2c 32 33 2c 32 33 36  2c 30 2c 31 36 2c 31 36  |9,23,236,0,16,16|
00000130  2c 31 36 2c 32 34 38 2c  31 37 32 2c 32 35 32 2c  |,16,248,172,252,|
00000140  32 35 32 2c 32 33 2c 32  33 37 2c 30 2c 30 2c 30  |252,23,237,0,0,0|
00000150  2c 34 39 2c 32 35 2c 31  33 2c 37 2c 33 0d 00 05  |,49,25,13,7,3...|
00000160  ae eb 31 3a ef 32 33 2c  32 33 38 2c 30 2c 30 2c  |..1:.23,238,0,0,|
00000170  30 2c 31 34 30 2c 31 35  32 2c 31 37 36 2c 32 32  |0,140,152,176,22|
00000180  34 2c 31 39 32 2c 32 33  2c 32 33 39 2c 32 31 39  |4,192,23,239,219|
00000190  2c 32 31 39 2c 31 32 36  2c 31 32 36 2c 36 30 2c  |,219,126,126,60,|
000001a0  36 30 2c 36 30 2c 32 34  2c 32 33 2c 32 33 35 2c  |60,60,24,23,235,|
000001b0  30 2c 30 2c 36 34 2c 36  34 2c 36 37 2c 36 36 2c  |0,0,64,64,67,66,|
000001c0  36 37 2c 36 37 2c 32 33  2c 32 32 36 2c 38 35 2c  |67,67,23,226,85,|
000001d0  31 37 30 2c 38 35 2c 31  37 30 2c 38 35 2c 31 37  |170,85,170,85,17|
000001e0  30 2c 38 35 2c 31 37 30  3a e2 31 2c 31 2c 31 2c  |0,85,170:.1,1,1,|
000001f0  2d 31 2c 31 2c 31 2c 31  2c 31 2c 31 32 36 2c 30  |-1,1,1,1,1,126,0|
00000200  2c 30 2c 2d 35 2c 31 30  30 2c 30 0d 00 06 82 41  |,0,-5,100,0....A|
00000210  24 3d bd 32 33 30 2b bd  32 33 31 3a 42 24 3d bd  |$=.230+.231:B$=.|
00000220  32 33 32 2b bd 32 33 33  3a 43 24 3d bd 32 33 34  |232+.233:C$=.234|
00000230  3a e2 32 2c 31 30 2c 30  2c 30 2c 30 2c 31 30 2c  |:.2,10,0,0,0,10,|
00000240  31 30 2c 31 30 2c 31 32  36 2c 2d 35 2c 2d 35 2c  |10,10,126,-5,-5,|
00000250  2d 35 2c 31 31 30 2c 30  3a e2 33 2c 37 2c 2d 31  |-5,110,0:.3,7,-1|
00000260  30 2c 32 30 2c 2d 31 30  2c 31 2c 31 2c 31 2c 30  |0,20,-10,1,1,1,0|
00000270  2c 30 2c 30 2c 2d 31 32  37 2c 31 30 30 2c 30 3a  |,0,0,-127,100,0:|
00000280  42 42 58 3d 2d 31 30 3a  41 41 58 3d 30 0d 00 07  |BBX=-10:AAX=0...|
00000290  19 ef 32 33 3b 38 32 30  32 3b 30 3b 30 3b 30 3b  |..23;8202;0;0;0;|
000002a0  3a f2 49 4e 53 54 0d 00  08 26 42 53 25 3d 30 3a  |:.INST...&BS%=0:|
000002b0  41 53 25 3d 30 3a 53 25  3d 30 3a 41 25 3d 35 30  |AS%=0:S%=0:A%=50|
000002c0  3a 42 25 3d 35 30 30 3a  54 25 3d 30 0d 00 09 58  |:B%=500:T%=0...X|
000002d0  4c 49 56 25 3d 33 3a ef  34 3a f2 43 4f 4c 28 37  |LIV%=3:.4:.COL(7|
000002e0  29 3a fb 31 33 30 3a fb  30 3a db 3a e8 27 27 27  |):.130:.0:.:.'''|
000002f0  27 27 27 27 27 27 27 22  57 68 69 63 68 20 6c 65  |'''''''"Which le|
00000300  76 65 6c 28 31 2d 33 29  22 2c 4c 45 56 25 3a db  |vel(1-3)",LEV%:.|
00000310  3a e7 4c 45 56 25 3c 31  84 4c 45 56 25 3e 33 8c  |:.LEV%<1.LEV%>3.|
00000320  8d 54 49 40 0d 00 0a 21  f2 54 55 4e 45 3a ef 35  |.TI@...!.TUNE:.5|
00000330  3a ee 4c 45 56 25 e4 8d  44 60 40 2c 8d 44 61 40  |:.LEV%..D`@,.Da@|
00000340  2c 8d 44 62 40 0d 00 0b  19 ef 32 33 3b 38 32 30  |,.Db@.....23;820|
00000350  32 3b 30 3b 30 3b 30 3b  3a f2 54 45 52 52 0d 00  |2;0;0;0;:.TERR..|
00000360  0c 22 52 3d b3 28 34 29  3a ee 52 20 e4 8d 54 5b  |."R=.(4):.R ..T[|
00000370  40 2c 8d 54 5c 40 2c 8d  54 5d 40 2c 8d 54 5e 40  |@,.T\@,.T]@,.T^@|
00000380  0d 00 0d 6d 42 4f 4e 25  3d b3 28 31 30 29 3a e7  |...mBON%=.(10):.|
00000390  42 4f 4e 25 3d 31 f1 8a  30 2c 33 29 22 44 6f 75  |BON%=1..0,3)"Dou|
000003a0  62 6c 65 20 70 6f 69 6e  74 73 21 21 22 3a 42 4f  |ble points!!":BO|
000003b0  4e 25 3d 32 20 8b e7 42  4f 4e 25 3d 33 20 20 20  |N%=2 ..BON%=3   |
000003c0  f1 8a 30 2c 33 29 22 4d  79 73 74 65 72 79 20 70  |..0,3)"Mystery p|
000003d0  6f 69 6e 74 73 21 21 22  3a 42 4f 4e 25 3d 20 20  |oints!!":BON%=  |
000003e0  20 b3 28 34 29 8b 20 42  4f 4e 25 3d 31 0d 00 0e  | .(4). BON%=1...|
000003f0  21 e6 34 2c 33 3a ec 41  25 2c 42 25 3a f1 41 24  |!.4,3:.A%,B%:.A$|
00000400  3a e7 52 3c 33 20 20 20  ec 43 25 2c 44 25 0d 00  |:.R<3   .C%,D%..|
00000410  0f 2c e7 52 3d 32 f1 42  24 3a d4 33 2c 31 2c 32  |.,.R=2.B$:.3,1,2|
00000420  30 2c 32 35 35 8b e7 52  3d 31 f1 43 24 3a d4 33  |0,255..R=1.C$:.3|
00000430  2c 33 2c 31 30 30 2c 32  35 35 0d 00 10 09 e5 8d  |,3,100,255......|
00000440  54 53 40 0d 00 11 0f e7  20 41 4c 3d 30 e5 8d 54  |TS@..... AL=0..T|
00000450  64 40 0d 00 12 09 e5 8d  54 50 40 0d 00 13 47 e6  |d@......TP@...G.|
00000460  34 2c 30 3a ec 41 25 2c  42 25 3a f1 41 24 3a e7  |4,0:.A%,B%:.A$:.|
00000470  a6 20 28 2d 36 36 29 42  53 25 3d 42 53 25 2b 31  |. (-66)BS%=BS%+1|
00000480  8b e7 a6 28 2d 39 38 29  42 53 25 3d 42 53 25 2d  |...(-98)BS%=BS%-|
00000490  31 20 8b e7 a6 28 2d 31  29 41 53 25 3d 41 53 25  |1 ...(-1)AS%=AS%|
000004a0  2b 36 0d 00 14 24 e7 41  53 25 3e 39 30 20 41 53  |+6...$.AS%>90 AS|
000004b0  25 3d 39 30 20 8b e7 41  53 25 3c 4d 53 25 20 41  |%=90 ..AS%<MS% A|
000004c0  53 25 3d 4d 53 25 0d 00  15 24 e7 42 53 25 3e 31  |S%=MS%...$.BS%>1|
000004d0  30 20 42 53 25 3d 31 30  20 8b e7 42 53 25 3c 2d  |0 BS%=10 ..BS%<-|
000004e0  32 30 20 42 53 25 3d 2d  32 30 0d 00 16 21 42 25  |20 BS%=-20...!B%|
000004f0  3d 42 25 2b 42 53 25 3a  41 25 3d 41 25 2b 41 53  |=B%+BS%:A%=A%+AS|
00000500  25 3a 41 53 25 3d 41 53  25 2d 31 0d 00 17 3e e7  |%:AS%=AS%-1...>.|
00000510  41 25 3e 3d 31 32 35 30  8c 8d 54 4b 40 8b e7 42  |A%>=1250..TK@..B|
00000520  25 3c 3d 30 84 42 25 3e  3d 31 30 30 30 20 8c 8d  |%<=0.B%>=1000 ..|
00000530  54 7c 40 20 8b e7 41 25  3e 31 32 35 30 8c 4e 25  |T|@ ..A%>1250.N%|
00000540  3d 33 31 3a e5 8d 54 51  40 0d 00 18 21 e6 34 2c  |=31:..TQ@...!.4,|
00000550  33 3a ec 41 25 2c 42 25  3a f1 41 24 3a e7 a6 20  |3:.A%,B%:.A$:.. |
00000560  28 2d 37 34 29 e5 8d 54  60 40 0d 00 19 30 e7 41  |(-74)..T`@...0.A|
00000570  25 3c 43 25 2b 33 32 80  41 25 3e 43 25 20 80 42  |%<C%+32.A%>C% .B|
00000580  25 2d 31 36 3c 44 25 20  80 42 25 2d 31 36 3e 44  |%-16<D% .B%-16>D|
00000590  25 2d 33 32 20 8c 8d 54  7c 40 0d 00 1a 09 e5 8d  |%-32 ..T|@......|
000005a0  54 51 40 0d 00 1b 1b 43  25 3d 31 32 30 30 3a 44  |TQ@....C%=1200:D|
000005b0  25 3d b3 28 35 30 30 29  2b 31 30 30 3a f8 0d 00  |%=.(500)+100:...|
000005c0  1c 1b 43 25 3d 31 32 30  30 3a 44 25 3d b3 28 35  |..C%=1200:D%=.(5|
000005d0  30 30 29 2b 31 30 30 3a  f8 0d 00 1d 20 e4 8d 54  |00)+100:.... ..T|
000005e0  5f 40 3a ec 43 25 2c 44  25 3a f1 bd 32 33 35 3b  |_@:.C%,D%:..235;|
000005f0  20 20 20 bd 32 33 36 3a  f8 0d 00 1e 20 e4 8d 54  |   .236:.... ..T|
00000600  5f 40 3a ec 43 25 2c 44  25 3a f1 bd 32 33 37 3b  |_@:.C%,D%:..237;|
00000610  20 20 20 bd 32 33 38 3a  f8 0d 00 1f 1a 43 25 3d  |   .238:.....C%=|
00000620  31 31 31 30 3a 44 25 3d  58 2b 33 33 3a e6 30 2c  |1110:D%=X+33:.0,|
00000630  31 3a f8 0d 00 20 7b ec  41 25 2b 36 34 2c 42 25  |1:... {.A%+64,B%|
00000640  2d 31 36 3a e6 34 2c 33  3a df 31 32 38 30 2c 20  |-16:.4,3:.1280, |
00000650  42 25 2d 31 36 3a d4 31  2c 2d 31 35 2c 32 30 30  |B%-16:.1,-15,200|
00000660  2c 31 3a d4 32 2c 2d 31  35 2c 32 30 35 2c 31 3a  |,1:.2,-15,205,1:|
00000670  e6 34 2c 30 3a df 41 25  2b 36 34 2c 42 25 2d 31  |.4,0:.A%+64,B%-1|
00000680  36 3a e7 42 25 2d 31 36  3c 44 25 20 80 20 20 42  |6:.B%-16<D% .  B|
00000690  25 2d 31 36 3e 44 25 2d  33 32 20 80 41 25 3c 3d  |%-16>D%-32 .A%<=|
000006a0  43 25 20 8c 8d 54 61 40  8b e5 8d 54 51 40 0d 00  |C% ..Ta@...TQ@..|
000006b0  21 0a e7 41 4c 3d 31 e1  0d 00 22 09 2a 46 58 31  |!..AL=1...".*FX1|
000006c0  35 0d 00 23 12 f2 53 43  3a f2 45 58 50 3a e5 8d  |5..#..SC:.EXP:..|
000006d0  54 51 40 0d 00 24 1c ee  20 52 20 e5 8d 54 68 40  |TQ@..$.. R ..Th@|
000006e0  2c 8d 54 65 40 2c 8d 54  6e 40 2c 8d 54 6c 40 0d  |,.Te@,.Tn@,.Tl@.|
000006f0  00 25 3c e6 34 2c 30 3a  ec 43 25 2c 44 25 3a f1  |.%<.4,0:.C%,D%:.|
00000700  42 24 3a 43 25 3d 43 25  2d 20 20 43 52 25 3a e7  |B$:C%=C%-  CR%:.|
00000710  44 25 3c 42 25 20 44 25  3d 44 25 2b 43 52 25 20  |D%<B% D%=D%+CR% |
00000720  8b 20 44 25 3d 44 25 2d  43 52 25 0d 00 26 2d e6  |. D%=D%-CR%..&-.|
00000730  34 2c 33 3a ec 43 25 2c  44 25 3a f1 42 24 3a e7  |4,3:.C%,D%:.B$:.|
00000740  b3 28 46 52 25 29 3d 31  20 80 20 43 25 3e 41 25  |.(FR%)=1 . C%>A%|
00000750  20 8c f2 41 46 49 52 45  0d 00 27 09 e5 8d 54 50  | ..AFIRE..'...TP|
00000760  40 0d 00 28 37 e6 34 2c  30 3a ec 43 25 2c 44 25  |@..(7.4,0:.C%,D%|
00000770  3a f1 43 24 3a e7 43 25  3c 41 25 20 8c 43 25 3d  |:.C$:.C%<A% .C%=|
00000780  43 25 2b 43 52 25 20 8b  e7 43 25 3e 41 25 8c 43  |C%+CR% ..C%>A%.C|
00000790  25 3d 43 25 2d 43 52 25  0d 00 29 27 e7 44 25 3e  |%=C%-CR%..)'.D%>|
000007a0  42 25 20 44 25 3d 44 25  2d 43 52 25 20 8b e7 44  |B% D%=D%-CR% ..D|
000007b0  25 3c 42 25 20 44 25 3d  20 44 25 2b 43 52 25 0d  |%<B% D%= D%+CR%.|
000007c0  00 2a 4a e6 34 2c 33 3a  ec 43 25 2c 44 25 3a f1  |.*J.4,3:.C%,D%:.|
000007d0  43 24 3a e7 43 25 3c 41  25 20 2b 31 30 30 20 80  |C$:.C%<A% +100 .|
000007e0  20 43 25 3e 41 25 2d 31  30 30 20 80 20 44 25 3c  | C%>A%-100 . D%<|
000007f0  42 25 2b 31 30 30 20 80  20 44 25 3e 42 25 2d 31  |B%+100 . D%>B%-1|
00000800  30 30 20 8c 20 8d 44 5e  40 0d 00 2b 09 e5 8d 54  |00 . .D^@..+...T|
00000810  50 40 0d 00 2c 10 e7 42  25 3c 44 25 8c e5 8d 54  |P@..,..B%<D%...T|
00000820  50 40 0d 00 2d 57 ec 41  41 58 2c 42 42 58 3a ef  |P@..-W.AAX,BBX:.|
00000830  32 32 36 3a 41 41 58 3d  b3 28 31 32 38 30 29 3a  |226:AAX=.(1280):|
00000840  20 ec 41 41 58 2c 42 25  3a ef 32 32 36 3a 42 42  | .AAX,B%:.226:BB|
00000850  58 3d 42 25 3a e7 41 41  58 2d 31 36 3c 41 25 20  |X=B%:.AAX-16<A% |
00000860  80 41 41 58 2d 31 36 3e  41 25 2d 33 32 20 8c 8d  |.AAX-16>A%-32 ..|
00000870  54 7c 40 8b e5 8d 54 50  40 0d 00 2e 17 e7 44 25  |T|@...TP@.....D%|
00000880  3c 42 25 20 80 b3 28 35  29 3d 31 8c 8d 54 70 40  |<B% ..(5)=1..Tp@|
00000890  0d 00 2f 09 e5 8d 54 50  40 0d 00 30 5d 52 53 25  |../...TP@..0]RS%|
000008a0  3d b3 28 31 34 30 29 3a  ec 43 25 2c 44 25 3a e6  |=.(140):.C%,D%:.|
000008b0  34 2c 33 3a 20 20 20 df  41 25 2b 52 53 25 2c 42  |4,3:   .A%+RS%,B|
000008c0  25 3a d4 31 2c 2d 31 35  2c 32 35 35 2c 31 3a d4  |%:.1,-15,255,1:.|
000008d0  32 2c 20 20 2d 31 35 2c  32 35 30 2c 31 3a e6 34  |2,  -15,250,1:.4|
000008e0  2c 30 3a df 43 25 2c 44  25 3a e7 52 53 25 3c 36  |,0:.C%,D%:.RS%<6|
000008f0  35 8c 8d 54 7c 40 0d 00  31 09 e5 8d 54 50 40 0d  |5..T|@..1...TP@.|
00000900  00 32 0a dd f2 54 45 52  52 0d 00 33 17 ef 31 39  |.2...TERR..3..19|
00000910  2c 32 2c 32 2c 30 2c 30  2c 30 3a 2a 46 58 31 35  |,2,2,0,0,0:*FX15|
00000920  0d 00 34 11 41 41 58 3d  30 3a 42 42 58 3d 2d 31  |..4.AAX=0:BBX=-1|
00000930  30 0d 00 35 0e e7 54 25  3e 39 39 35 f2 4e 4d 0d  |0..5..T%>995.NM.|
00000940  00 36 2c ef 34 3a f2 43  4f 4c 28 32 29 3a db 3a  |.6,.4:.COL(2):.:|
00000950  fb 33 3a f1 8a 30 2c 31  29 3b 22 53 63 6f 72 65  |.3:..0,1);"Score|
00000960  3d 22 3b 53 25 3b 22 20  20 22 3b 0d 00 37 28 e7  |=";S%;"  ";..7(.|
00000970  4c 49 56 25 3e 33 f2 53  4c 20 8b f1 c4 4c 49 56  |LIV%>3.SL ...LIV|
00000980  25 2d 31 2c bd 32 33 30  2b bd 32 33 31 2b 22 20  |%-1,.230+.231+" |
00000990  22 29 3b 0d 00 38 5f f1  22 20 22 3b 22 48 69 2d  |");..8_." ";"Hi-|
000009a0  73 63 6f 72 65 3d 22 3b  48 48 25 28 31 29 3b 22  |score=";HH%(1);"|
000009b0  20 20 22 3b 4e 24 28 31  29 3a ef 35 3a ec 30 2c  |  ";N$(1):.5:.0,|
000009c0  30 3a e6 30 2c 32 3a e3  4d 25 3d 30 b8 31 31 30  |0:.0,2:.M%=0.110|
000009d0  30 88 31 30 30 3a 58 3d  b3 28 31 30 29 2a 33 32  |0.100:X=.(10)*32|
000009e0  2d 32 3a df 4d 25 2c 58  3a ed 3a df 31 32 30 30  |-2:.M%,X:.:.1200|
000009f0  2c 58 0d 00 39 37 df 31  33 30 30 2c b3 28 31 30  |,X..97.1300,.(10|
00000a00  29 2a 33 32 2d 32 3a 41  4c 3d 30 3a e7 41 25 3e  |)*32-2:AL=0:.A%>|
00000a10  31 30 30 30 8c 41 25 3d  31 30 20 8b e7 41 25 3c  |1000.A%=10 ..A%<|
00000a20  31 30 41 25 3d 31 32 30  30 0d 00 3a 05 e1 0d 00  |10A%=1200..:....|
00000a30  3b 21 e7 42 25 3c 3d 30  42 25 3d 31 30 20 8b e7  |;!.B%<=0B%=10 ..|
00000a40  42 25 3e 3d 31 30 30 30  20 42 25 3d 39 39 30 0d  |B%>=1000 B%=990.|
00000a50  00 3c 0b 2a 46 58 31 35  2c 30 0d 00 3d 0d d4 30  |.<.*FX15,0..=..0|
00000a60  2c 32 2c 34 2c 35 30 0d  00 3e 4c ef 31 39 2c 30  |,2,4,50..>L.19,0|
00000a70  2c 38 2c 30 2c 30 2c 30  2c 31 39 2c 33 2c 30 2c  |,8,0,0,0,19,3,0,|
00000a80  30 2c 30 2c 30 3a e6 30  2c 31 3a e3 4e 25 3d 31  |0,0,0:.0,1:.N%=1|
00000a90  b8 35 30 3a ec 41 25 2b  33 32 2c 42 25 2d 31 36  |.50:.A%+32,B%-16|
00000aa0  3a df b3 28 31 32 38 30  29 2c b3 28 31 30 32 34  |:..(1280),.(1024|
00000ab0  29 3a ed 0d 00 3f 20 ef  34 2c 31 39 2c 30 2c 37  |):...? .4,19,0,7|
00000ac0  2c 30 2c 30 2c 30 2c 31  39 2c 33 2c 30 2c 30 2c  |,0,0,0,19,3,0,0,|
00000ad0  30 2c 30 0d 00 40 21 4c  49 56 25 3d 4c 49 56 25  |0,0..@!LIV%=LIV%|
00000ae0  2d 31 3a e7 4c 49 56 25  3e 30 8c 8d 44 6e 40 8b  |-1:.LIV%>0..Dn@.|
00000af0  4c 25 3d 30 0d 00 41 4e  fb 30 3a f2 43 4f 4c 28  |L%=0..AN.0:.COL(|
00000b00  38 29 3a db 3a fb 31 3a  f1 27 27 27 8a 39 29 3b  |8):.:.1:.'''.9);|
00000b10  22 41 69 72 20 53 74 72  69 6b 65 20 48 69 2d 73  |"Air Strike Hi-s|
00000b20  63 6f 72 65 73 2e 22 3a  fb 33 3a f1 27 27 3a e3  |cores.":.3:.'':.|
00000b30  4e 25 3d 31 b8 35 3a e7  4e 25 3d 4c 25 fb 32 8b  |N%=1.5:.N%=L%.2.|
00000b40  fb 33 0d 00 42 25 f1 4e  25 3b 22 29 22 3b 4e 24  |.3..B%.N%;")";N$|
00000b50  28 4e 25 29 3b 22 2e 2e  2e 2e 22 3b 48 48 25 28  |(N%);"....";HH%(|
00000b60  4e 25 29 27 27 3a ed 0d  00 43 14 e7 53 25 3e 3d  |N%)'':...C..S%>=|
00000b70  48 48 25 28 35 29 e5 8d  44 54 40 0d 00 44 2e fb  |HH%(5)..DT@..D..|
00000b80  31 3a f1 27 27 8a 39 29  22 50 72 65 73 73 20 53  |1:.''.9)"Press S|
00000b90  20 74 6f 20 73 74 61 72  74 2e 22 3a f5 fd be 3d  | to start.":...=|
00000ba0  22 53 22 3a e5 8d 54 48  40 0d 00 45 09 dd f2 45  |"S":..TH@..E...E|
00000bb0  58 50 0d 00 46 14 ec 43  25 2c 44 25 3a e6 30 2c  |XP..F..C%,D%:.0,|
00000bc0  31 3a 41 4c 3d 31 0d 00  47 29 e7 52 3d 31 f1 43  |1:AL=1..G).R=1.C|
00000bd0  24 8b e7 52 3d 32 f1 42  24 8b e7 52 3d 33 ef 32  |$..R=2.B$..R=3.2|
00000be0  33 35 2c 32 33 36 8b ef  32 33 37 2c 32 33 38 0d  |35,236..237,238.|
00000bf0  00 48 65 d4 30 2c 32 2c  35 2c 35 30 3a e3 4d 32  |.He.0,2,5,50:.M2|
00000c00  25 3d 31 b8 33 3a ef 31  39 2c 31 2c 4d 32 25 3b  |%=1.3:.19,1,M2%;|
00000c10  30 3b 30 3b 30 3b 3a d1  3d 30 3a f5 fd 91 3e 32  |0;0;0;:.=0:...>2|
00000c20  3a ed 3a ec 43 25 2c 44  25 3a e6 30 2c 30 3a e7  |:.:.C%,D%:.0,0:.|
00000c30  52 3d 31 f1 43 24 8b e7  52 3d 32 f1 42 24 8b e7  |R=1.C$..R=2.B$..|
00000c40  52 3d 33 ef 32 33 35 2c  32 33 36 8b ef 32 33 37  |R=3.235,236..237|
00000c50  2c 32 33 38 0d 00 49 16  e6 30 2c 31 3a ef 31 39  |,238..I..0,1:.19|
00000c60  2c 31 2c 31 2c 30 2c 30  2c 30 0d 00 4a 87 e3 4e  |,1,1,0,0,0..J..N|
00000c70  25 3d 33 b8 30 88 2d 31  3a e6 30 2c 4e 25 3a ec  |%=3.0.-1:.0,N%:.|
00000c80  43 25 2d 35 30 2c 44 25  3a df 43 25 2b 35 30 2c  |C%-50,D%:.C%+50,|
00000c90  44 25 3a ec 44 25 2d 35  30 2c 43 25 3a df 44 25  |D%:.D%-50,C%:.D%|
00000ca0  2b 35 30 2c 43 25 3a ec  43 25 2d 35 30 2c 44 25  |+50,C%:.C%-50,D%|
00000cb0  2d 35 30 3a df 43 25 2b  35 30 2c 44 25 2b 35 30  |-50:.C%+50,D%+50|
00000cc0  3a ec 20 43 25 2d 35 30  2c 44 25 2b 35 30 3a df  |:. C%-50,D%+50:.|
00000cd0  43 25 2b 35 30 2c 44 25  2d 35 30 3a ec 43 25 2c  |C%+50,D%-50:.C%,|
00000ce0  44 25 2b 35 30 3a df 43  25 2c 44 25 2d 35 30 3a  |D%+50:.C%,D%-50:|
00000cf0  ed 0d 00 4b 0f 43 25 3d  30 3a 44 25 3d 30 3a e1  |...K.C%=0:D%=0:.|
00000d00  0d 00 4c 0b dd f2 41 46  49 52 45 0d 00 4d 63 ec  |..L...AFIRE..Mc.|
00000d10  43 25 2c 44 25 2d 31 36  3a e6 34 2c 33 3a df 30  |C%,D%-16:.4,3:.0|
00000d20  2c 44 25 2d 31 36 3a 20  d4 31 2c 2d 31 35 2c 32  |,D%-16: .1,-15,2|
00000d30  35 35 2c 31 3a d4 32 2c  2d 31 35 2c 32 35 30 2c  |55,1:.2,-15,250,|
00000d40  31 3a e6 34 2c 30 3a df  43 25 2c 44 25 2d 31 36  |1:.4,0:.C%,D%-16|
00000d50  3a e7 44 25 2d 31 36 3c  42 25 20 80 44 25 2d 31  |:.D%-16<B% .D%-1|
00000d60  36 3e 42 25 2d 33 32 8c  8d 44 4e 40 8b e1 0d 00  |6>B%-32..DN@....|
00000d70  4e 09 e5 8d 54 7c 40 0d  00 4f 08 dd f2 53 43 0d  |N...T|@..O...SC.|
00000d80  00 50 09 50 25 3d 53 25  0d 00 51 53 e7 52 3d 31  |.P.P%=S%..QS.R=1|
00000d90  53 25 3d 53 25 2b 50 54  25 2a 42 4f 4e 25 20 8b  |S%=S%+PT%*BON% .|
00000da0  e7 52 3d 32 20 53 25 3d  20 53 25 2b 50 54 25 2a  |.R=2 S%= S%+PT%*|
00000db0  32 2a 42 4f 4e 25 20 8b  e7 52 3d 33 20 53 25 3d  |2*BON% ..R=3 S%=|
00000dc0  53 25 2b 34 30 2a 42 4f  4e 25 20 20 20 8b 53 25  |S%+40*BON%   .S%|
00000dd0  3d 53 25 2b 33 30 2a 42  4f 4e 25 0d 00 52 0f 54  |=S%+30*BON%..R.T|
00000de0  25 3d 54 25 2b 53 25 2d  50 25 0d 00 53 15 ef 34  |%=T%+S%-P%..S..4|
00000df0  3a f1 8a 36 2c 31 29 3b  53 25 3a ef 35 3a e1 0d  |:..6,1);S%:.5:..|
00000e00  00 54 0b 2a 46 58 31 35  2c 30 0d 00 55 18 f1 27  |.T.*FX15,0..U..'|
00000e10  27 8a 31 35 29 3b 22 48  69 2d 73 63 6f 72 65 21  |'.15);"Hi-score!|
00000e20  21 22 0d 00 56 5d f1 27  27 8a 33 29 3b 3a e8 22  |!"..V].''.3);:."|
00000e30  50 6c 65 61 73 65 20 65  6e 74 65 72 20 79 6f 75  |Please enter you|
00000e40  72 20 6e 61 6d 65 20 22  2c 41 41 24 3a e7 a9 28  |r name ",AA$:..(|
00000e50  41 41 24 29 3e 34 8c 41  41 24 3d c0 41 41 24 2c  |AA$)>4.AA$=.AA$,|
00000e60  34 29 8b e7 a9 41 41 24  3c 34 f5 3a 41 41 24 3d  |4)...AA$<4.:AA$=|
00000e70  41 41 24 2b 22 20 22 3a  fd a9 41 41 24 3d 34 0d  |AA$+" ":..AA$=4.|
00000e80  00 57 17 41 41 24 3d 41  41 24 2b 22 20 22 2b c3  |.W.AA$=AA$+" "+.|
00000e90  28 4c 45 56 25 29 0d 00  58 24 4c 25 3d 30 3a f5  |(LEV%)..X$L%=0:.|
00000ea0  3a 4c 25 3d 4c 25 2b 31  3a fd 48 48 25 28 4c 25  |:L%=L%+1:.HH%(L%|
00000eb0  29 3c 3d 53 25 84 4c 25  3d 35 0d 00 59 0e e7 4c  |)<=S%.L%=5..Y..L|
00000ec0  25 3d 36 e5 8d 44 5d 40  0d 00 5a 3b 48 25 3d 36  |%=6..D]@..Z;H%=6|
00000ed0  3a f5 3a 48 25 3d 48 25  2d 31 3a 48 48 25 28 48  |:.:H%=H%-1:HH%(H|
00000ee0  25 29 3d 48 48 25 28 48  25 2d 31 29 3a 4e 24 28  |%)=HH%(H%-1):N$(|
00000ef0  48 25 29 3d 4e 24 28 48  25 2d 31 29 3a fd 48 25  |H%)=N$(H%-1):.H%|
00000f00  3d 4c 25 0d 00 5b 24 4e  24 28 4c 25 29 3d 41 41  |=L%..[$N$(L%)=AA|
00000f10  24 3a 48 48 25 28 4c 25  29 3d 53 25 3a 53 25 3d  |$:HH%(L%)=S%:S%=|
00000f20  30 3a e5 8d 44 41 40 0d  00 5c 24 e7 c1 41 41 24  |0:..DA@..\$..AA$|
00000f30  2c 36 2c 31 29 3c c1 4e  24 28 35 29 2c 36 2c 31  |,6,1)<.N$(5),6,1|
00000f40  29 4c 25 3d 34 3a e5 8d  44 5a 40 0d 00 5d 0e 53  |)L%=4:..DZ@..].S|
00000f50  25 3d 30 3a e5 8d 44 41  40 0d 00 5e 0b 2a 46 58  |%=0:..DA@..^.*FX|
00000f60  31 35 2c 30 0d 00 5f 3f  d4 30 2c 32 2c 34 2c 35  |15,0.._?.0,2,4,5|
00000f70  30 3a e3 4e 25 3d 31 b8  35 30 3a ec 43 25 2b 20  |0:.N%=1.50:.C%+ |
00000f80  31 36 2c 42 25 2d 31 36  3a df b3 28 31 32 38 30  |16,B%-16:..(1280|
00000f90  29 2c b3 28 31 30 32 34  29 3a ed 3a 20 20 e5 8d  |),.(1024):.:  ..|
00000fa0  54 7f 40 0d 00 60 20 4d  53 25 3d 34 30 3a 43 52  |T.@..` MS%=40:CR|
00000fb0  25 3d 32 35 3a 46 52 25  3d 33 3a 50 54 25 3d 32  |%=25:FR%=3:PT%=2|
00000fc0  30 3a f8 0d 00 61 20 4d  53 25 3d 31 35 3a 43 52  |0:...a MS%=15:CR|
00000fd0  25 3d 31 35 3a 46 52 25  3d 38 3a 50 54 25 3d 31  |%=15:FR%=8:PT%=1|
00000fe0  30 3a f8 0d 00 62 20 4d  53 25 3d 31 30 3a 43 52  |0:...b MS%=10:CR|
00000ff0  25 3d 31 30 3a 46 52 25  3d 31 30 3a 50 54 25 3d  |%=10:FR%=10:PT%=|
00001000  35 3a f8 0d 00 63 3b d1  3d 30 3a f5 fd 91 3d 31  |5:...c;.=0:...=1|
00001010  30 30 3a 41 25 3d 35 30  3a 20 42 25 3d 35 30 30  |00:A%=50: B%=500|
00001020  3a f1 8a 36 2b 4c 49 56  25 2a 32 2c 31 29 3b 22  |:..6+LIV%*2,1);"|
00001030  20 20 22 3a ef 35 3a 20  20 e5 8d 54 4b 40 0d 00  |  ":.5:  ..TK@..|
00001040  64 21 dd f2 43 4f 4c 28  5a 25 29 3a ef 32 30 2c  |d!..COL(Z%):.20,|
00001050  31 39 2c 32 2c 5a 25 2c  30 2c 30 2c 30 3a e1 0d  |19,2,Z%,0,0,0:..|
00001060  00 65 6e dd f2 4e 4d 3a  f2 43 4f 4c 28 39 29 3a  |.en..NM:.COL(9):|
00001070  fb 32 3a ef 34 3a 54 25  3d 54 25 2d 31 30 30 30  |.2:.4:T%=T%-1000|
00001080  3a f1 8a 31 30 2c 31 32  29 22 45 58 54 52 41 20  |:..10,12)"EXTRA |
00001090  53 48 49 50 20 42 4f 4e  55 53 22 3a 4c 49 56 25  |SHIP BONUS":LIV%|
000010a0  3d 4c 49 56 25 2b 31 3a  e3 4e 25 3d 31 b8 33 3a  |=LIV%+1:.N%=1.3:|
000010b0  d4 33 2c 2d 31 35 2c 32  35 30 2c 31 30 3a d1 3d  |.3,-15,250,10:.=|
000010c0  30 3a f5 fd 91 3d 31 30  30 3a ed 3a e1 0d 00 66  |0:...=100:.:...f|
000010d0  1a dd f2 53 4c 3a f1 41  24 3b 22 2b 22 3b 4c 49  |...SL:.A$;"+";LI|
000010e0  56 25 2d 32 3b 3a e1 0d  00 67 1c dd f2 49 4e 53  |V%-2;:...g...INS|
000010f0  54 3a f2 43 4f 4c 28 36  29 3a fb 31 33 30 3a fb  |T:.COL(6):.130:.|
00001100  30 3a db 0d 00 68 d6 f1  27 8a 31 35 29 3b 22 41  |0:...h..'.15);"A|
00001110  49 52 20 53 54 52 49 4b  45 22 3a f1 27 22 59 6f  |IR STRIKE":.'"Yo|
00001120  75 20 68 61 76 65 20 74  68 72 65 65 20 73 68 69  |u have three shi|
00001130  70 73 2e 5a 20 6d 6f 76  65 73 20 79 6f 75 20 64  |ps.Z moves you d|
00001140  6f 77 6e 2c 22 27 27 22  41 20 6d 6f 76 65 73 20  |own,"''"A moves |
00001150  79 6f 75 20 75 70 2c 70  72 65 73 73 20 53 48 49  |you up,press SHI|
00001160  46 54 20 74 6f 20 61 63  63 65 6c 65 72 61 74 65  |FT to accelerate|
00001170  22 3a f1 22 61 6e 64 20  52 45 54 55 52 4e 20 74  |":."and RETURN t|
00001180  6f 20 66 69 72 65 2e 22  27 27 22 59 6f 75 20 63  |o fire."''"You c|
00001190  61 6e 20 6d 6f 76 65 20  74 68 72 6f 75 67 68 20  |an move through |
000011a0  74 68 65 20 6d 6f 75 6e  74 61 69 6e 73 22 27 27  |the mountains"''|
000011b0  22 77 69 74 68 6f 75 74  20 65 78 70 6c 6f 64 69  |"without explodi|
000011c0  6e 67 2c 62 75 74 20 64  6f 20 6e 6f 74 20 67 6f  |ng,but do not go|
000011d0  20 74 6f 6f 20 66 61 72  22 0d 00 69 d4 f1 27 22  | too far"..i..'"|
000011e0  75 70 20 6f 72 20 64 6f  77 6e 2e 4c 65 76 65 6c  |up or down.Level|
000011f0  20 33 20 69 73 20 74 68  65 20 65 61 73 69 65 73  | 3 is the easies|
00001200  74 2c 22 27 27 22 6c 65  76 65 6c 20 31 20 74 68  |t,"''"level 1 th|
00001210  65 20 68 61 72 64 65 73  74 2e 54 68 65 72 65 20  |e hardest.There |
00001220  61 72 65 20 6d 6f 72 65  22 27 27 22 70 6f 69 6e  |are more"''"poin|
00001230  74 73 20 74 6f 20 62 65  20 67 61 69 6e 65 64 20  |ts to be gained |
00001240  69 6e 20 6c 65 76 65 6c  20 31 20 74 68 61 6e 20  |in level 1 than |
00001250  69 6e 22 27 27 22 74 68  65 20 6f 74 68 65 72 20  |in"''"the other |
00001260  6c 65 76 65 6c 73 2e 22  27 27 22 50 72 65 73 73  |levels."''"Press|
00001270  20 27 53 27 20 74 6f 20  63 6f 6e 74 69 6e 75 65  | 'S' to continue|
00001280  2e 22 27 27 27 22 50 72  65 73 73 20 3c 45 53 43  |."'''"Press <ESC|
00001290  41 50 45 3e 20 74 6f 20  72 65 74 75 72 6e 20 74  |APE> to return t|
000012a0  6f 20 74 68 69 73 20 70  61 67 65 2e 22 0d 00 6a  |o this page."..j|
000012b0  0b f5 fd be 3d 22 53 22  0d 00 6b d9 db 3a f1 27  |....="S"..k..:.'|
000012c0  27 41 24 3b 22 20 20 59  6f 75 72 20 73 68 69 70  |'A$;"  Your ship|
000012d0  2e 22 27 27 42 24 3b 22  20 20 41 6c 69 65 6e 20  |."''B$;"  Alien |
000012e0  73 68 69 70 2e 4d 6f 76  65 73 20 61 62 6f 75 74  |ship.Moves about|
000012f0  20 61 6e 64 20 66 69 72  65 73 22 27 27 22 61 74  | and fires"''"at|
00001300  20 79 6f 75 2e 22 27 27  43 24 3b 22 20 20 44 65  | you."''C$;"  De|
00001310  61 74 68 20 73 61 74 65  6c 6c 69 74 65 2e 4d 6f  |ath satellite.Mo|
00001320  76 65 73 20 69 6e 20 63  6c 6f 73 65 20 61 6e 64  |ves in close and|
00001330  22 27 27 22 65 78 70 6c  6f 64 65 73 2e 22 27 27  |"''"explodes."''|
00001340  bd 32 33 35 3b bd 32 33  36 22 20 20 52 61 64 61  |.235;.236"  Rada|
00001350  72 20 62 61 73 65 2e 46  69 72 65 73 20 61 63 63  |r base.Fires acc|
00001360  75 72 61 74 65 20 6d 69  73 73 69 6c 65 73 22 27  |urate missiles"'|
00001370  27 22 61 74 20 6f 76 65  72 68 65 61 64 20 73 68  |'"at overhead sh|
00001380  69 70 73 2e 22 27 27 bd  32 33 37 3b bd 32 33 38  |ips."''.237;.238|
00001390  3b 0d 00 6c 4c f1 3b 22  20 20 41 41 20 67 75 6e  |;..lL.;"  AA gun|
000013a0  2e 46 69 72 65 73 20 66  6c 61 6b 20 61 74 20 6f  |.Fires flak at o|
000013b0  76 65 72 68 65 61 64 20  73 68 69 70 73 2e 22 3a  |verhead ships.":|
000013c0  f1 22 50 72 65 73 73 20  53 20 74 6f 20 73 74 61  |."Press S to sta|
000013d0  72 74 2e 22 3b 3a f5 fd  be 3d 22 53 22 0d 00 6d  |rt.";:...="S"..m|
000013e0  05 e1 0d 00 6e 23 f5 fd  96 28 2d 35 29 3d 31 35  |....n#...(-5)=15|
000013f0  3a 41 25 3d 35 30 3a e7  42 25 3c 31 30 30 20 42  |:A%=50:.B%<100 B|
00001400  25 3d 32 30 30 0d 00 6f  09 e5 8d 54 4b 40 0d 00  |%=200..o...TK@..|
00001410  70 1f dd f2 54 55 4e 45  3a f1 8a 31 35 2c 31 35  |p...TUNE:..15,15|
00001420  29 3b 22 20 52 45 41 44  59 20 21 21 22 0d 00 71  |);" READY !!"..q|
00001430  53 ea 4e 25 2c 41 25 3a  f7 8d 44 73 40 3a e3 4e  |S.N%,A%:..Ds@:.N|
00001440  25 3d 31 b8 31 33 3a f3  41 25 3a d4 31 2c 2d 31  |%=1.13:.A%:.1,-1|
00001450  35 2c 41 25 2c 33 3a d4  32 2c 2d 31 35 2c 41 25  |5,A%,3:.2,-15,A%|
00001460  2d 34 38 2c 33 3a ed 3a  d4 31 2c 2d 31 35 2c 31  |-48,3:.:.1,-15,1|
00001470  30 31 2c 37 3a d4 32 2c  2d 31 35 2c 35 33 2c 37  |01,7:.2,-15,53,7|
00001480  0d 00 72 2a f1 27 27 8a  31 35 29 3b 22 48 65 72  |..r*.''.15);"Her|
00001490  65 20 77 65 20 67 6f 2e  2e 2e 2e 22 3a d1 3d 30  |e we go....":.=0|
000014a0  3a f5 fd 91 3e 31 30 30  3a e1 0d 00 73 38 dc 31  |:...>100:...s8.1|
000014b0  30 31 2c 31 31 37 2c 31  32 39 2c 31 31 37 2c 31  |01,117,129,117,1|
000014c0  30 39 2c 31 32 31 2c 31  33 37 2c 31 32 31 2c 31  |09,121,137,121,1|
000014d0  30 31 2c 31 31 37 2c 31  32 39 2c 31 31 37 2c 31  |01,117,129,117,1|
000014e0  30 31 0d ff 4c 45 41 50  3d 30 0d 0a 50 45 e7 20  |01..LEAP=0..PE. |
000014f0  4d 25 3d 32 20 80 20 4c  45 41 50 3d 31 20 80 20  |M%=2 . LEAP=1 . |
00001500  e5 e5 e5 e5 e5 e5 e5 e5  e5 e5 e5 e5 e5 e5 e5 e5  |................|
*
000016e0  e5 e5 e5 e5                                       |....|
000016e4
12-05-89/Strike.m0
12-05-89/Strike.m1
12-05-89/Strike.m2
12-05-89/Strike.m4
12-05-89/Strike.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .