10-06-88/CASTLE

Home » CEEFAX disks » telesoftware7.adl » 10-06-88/CASTLE

10-06-88/CASTLE

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 » telesoftware7.adl
Filename:	10-06-88/CASTLE
Read OK:	✔
File size:	1888 bytes
Load address:	FFFF1900
Exec address:	FFFF8023

Duplicates

There are 2 duplicate copies of this file in the archive:

AEW website » mu » mu_5_25_discs_Micro_User_03_01_D-MU03_01.ssd » CASTLE
AEW website » mu » mu_Micro_User_03_01_MU3-1_B.uef » CASTLE
CEEFAX disks » telesoftware7.adl » 10-06-88/CASTLE

File contents

   10REM CATACASTLES by Thomas Evans
   20REM **** DOUAI SCHOOL ****
   25REM (C) The Micro User
   30REM SET UP GRAPHICS
   40*TV255
   50*FX4,1
   60MODE7
   70VDU23;8202;0;0;0
   80FORT%=15TO20
   90PRINTTAB(14,T%);CHR$(151)
  100NEXT
  110VDU31,0,21,130,157,148,31,19,21,235,255,183,13,10,130,157,148,31,20,22,175,13,10,130,157,148
  120PROCman(0,1):PROCman(37,2)
  130FORX=3TO31STEP28
  140VDU31,X,19,149,191,175,255,175,111,31,X,20,145,170,191,160,239,165
  150NEXT
  160PROCcata(1,0):PROCcata(2,0)
  170PROCcastle(9):PROCcastle(27)
  180PROCtitle:PRINT"DO YOU WANT INSTRUCTIONS?";:G$=GET$:IF G$="Y" OR G$="y" PROCinstruct
  190FORT%=0TO14
  200PRINTTAB(0,T%);CHR$(151);SPC(38)
  210NEXT
  220VDU31,0,3,150,13,10,150
  230REM SET UP VARIABLES ------------
  240DIM B%(1,2),A(4,2),C%(2),KO%(2),P%(2),AN(2),OG%(2),G%(2),I%(2),DA%(2)
  250B%(0,0)=1:B%(1,0)=2:B%(0,1)=4:B%(1,1)=8:B%(0,2)=16:B%(1,2)=64
  260KO%(1)=0:KO%(2)=0:C%(1)=0:C%(2)=0:AN(1)=1.6:AN(2)=4.7:G%(1)=0:G%(2)=0:I%(1)=-81:I%(2)=-106
  270A%=135:DA%(1)=20:DA%(2)=20:D%=1:X%=3:R%=1:T%=0:TIME=0
  280ENVELOPE1,2,1,-1,1,1,1,1,121,-10,-5,2,125,120
  290ENVELOPE2,3,0,0,0,0,0,0,121,-10,-5,-2,120,120
  300ENVELOPE3,6,2,1,1,1,1,1,121,-10,-5,-2,120,120
  310ENVELOPE4,1,0,0,0,0,0,0,61,0,-10,-120,120,0
  320REM MAJOR LOOP
  330FOR Z%=1TO2
  340IF C%(Z%)<>0 GOTO 410
  350OG%(Z%)=G%(Z%):G%(Z%)=INKEY(I%(Z%))
  360F%=AN(Z%)*20:IF F%=0 OR F%=126 GOTO 390
  370IFG%(Z%)=-1 VDU31,20+FNMAN(Z%)*17,18,163
  380AN(Z%)=AN(Z%)-G%(Z%)*FNMAN(Z%)*.05
  390IF G%(Z%)=0 AND OG%(Z%)=-1 PROCfire
  400GOTO640
  410IF(C%(Z%) AND 1)=0 GOTO 500
  420VDU31,A(1,Z%),A(2,Z%),P%(Z%)
  430A(4,Z%)=A(4,Z%)-.0325
  440A(1,Z%)=A(1,Z%)+A(3,Z%)
  450A(2,Z%)=A(2,Z%)-A(4,Z%)
  460P%(Z%)=FNPOINT(A(1,Z%),A(2,Z%))
  470IF P%(Z%)>160 PROChit:GOTO 500
  480IF A(2,Z%)>21 PROCtermin(Z%):SOUND1,-13,40,3:GOTO 500
  490PROCbullet(A(1,Z%),A(2,Z%))
  500BIT=C%(Z%) AND 2
  510IF NOT(BIT=2) GOTO 570
  520KO%(Z%)=KO%(Z%)-1
  530IFKO%(Z%)<>0GOTO640 
  540C%(Z%)=C%(Z%)AND253:SOUND1,-13,40,3
  550IFZ%=1 PROCman(0,1):PROCtermin(1) ELSE PROCman(37,2):PROCtermin(2)
  560GOTO640
  570BIT=C%(Z%) AND 4
  580IF NOT(BIT=4) GOTO 640
  590IFINKEY(I%(Z%))=0 GOTO 640
  600PROCcata(Z%,1):SOUND0,2,29,10
  610OG%(Z%)=0:C%(Z%)=1:P%(Z%)=160
  620A(1,Z%)=X%+1:A(2,Z%)=5
  630A(3,Z%)=0:A(4,Z%)=0
  640NEXT Z%
  650IF TIME<30 GOTO 330
  660TIME=0
  670R%=R%+1:IFR%=3 R%=1
  680IF R%=2 X%=X%+D%
  690IFX%<2 OR X%>36 D%=D%*-1:X%=X%+D%
  700PROCptero(D%,R%,X%)
  710GOTO330
  720END
  730DEFPROCman(X,N)
  740ON N GOTO 750,770
  750VDU31,X,17,149,239,164,31,X,18,147,234,51,31,X,19,147,254,165,31,X,20,148,234,176
  760GOTO780
  770VDU31,X,17,149,168,191,31,X,18,147,227,181,31,X,19,147,170,253,31,X,20,148,224,181
  780ENDPROC
  790DEFPROCcata(N,T)
  800IF N=1 X=3 ELSE X=31
  810ON T*2+N GOTO 820,840,860,880
  820VDU31,X,16,150,176,176,31,X,17,150,163,185,176,31,X+1,18,150,181,162,228,235
  830GOTO890
  840VDU31,X+3,16,150,224,224,31,X+2,17,150,224,230,163,31,X,18,150,183,184,161,234,147
  850GOTO890
  860VDU31,X,15,150,160,224,31,X,16,150,160,169,184,31,X+1,17,150,176,170,176,31,X+1,18,150,181,160,233,235
  870GOTO890
  880VDU31,X+3,15,150,176,31,X+2,16,150,228,166,160,31,X+1,17,150,224,165,224,160,31,X,18,150,183,182,160,234
  890ENDPROC
  900DEFPROCcatacl(N)
  910ON N GOTO 920,940
  920VDU31,5,15,160,31,4,16,160,160,160,31,4,17,160,160,160,160,31,5,18,160,160,160,160
  930GOTO950
  940VDU31,35,15,160,31,34,16,160,160,160,31,33,17,160,160,160,160,31,32,18,160,160,160,160
  950ENDPROC
  960DEFPROCcastle(X)
  970VDU31,X-1,15,147,255,160,255,160,255,31,X-1,16,147,255,255,255,255,255,31,X,17,147,255,255,255,31,X,17,147,255,255,255,31,X,17,147,255,255,255
  980VDU31,X,18,147,255,255,255,31,X,19,147,255,255,255,31,X,20,147,255,255,255
  990ENDPROC
 1000DEFPROCptero(D,T,X)
 1010ON D+T+1 GOTO 1020,1040,1060,1080
 1020VDU31,X,3,176,254,176,31,X,4,162,171,161
 1030GOTO1090
 1040VDU31,X,3,160,240,240,160,31,X,4,162,170,183,160
 1050GOTO1090
 1060VDU31,X,3,224,253,224,31,X,4,162,167,161
 1070GOTO1090
 1080VDU31,X-1,3,160,240,240,160,31,X-1,4,160,235,165,161
 1090ENDPROC
 1100DEFPROCtitle
 1110PRINTTAB(9,0);CHR$(141);CHR$(130);"CATACASTLES";CHR$(140);CHR$(129);"by";CHR$(134);"Thomas Evans"
 1120PRINTTAB(9);CHR$(141);CHR$(133);"CATACASTLES"'
 1130ENDPROC
 1140DEF FNMAN(Z%)
 1150IFZ%=1 K%=-1 ELSE K%=1
 1160=K%
 1170DEFPROCfire
 1180SOUND1,1,6,9
 1190OG%(Z%)=0
 1200A(1,Z%)=20+FNMAN(Z%)*14:A(2,Z%)=15
 1210A(3,Z%)=SIN(AN(Z%))
 1220A(4,Z%)=COS(AN(Z%))
 1230PROCcata(Z%,1)
 1240C%(Z%)=1:IF Z%=1 P%(Z%)=160 ELSE P%(Z%)=150
 1250IFZ%=1 VDU31,3,18 ELSE VDU31,37,18
 1260VDU160
 1270ENDPROC
 1280DEF FNPOINT(U%,V%)
 1290VDU31,U%,V%
 1300B%=(USR &FFF4 AND &FF00) DIV256 OR 128
 1310=B%
 1320DEFPROCbullet(X,Y)
 1330VDU31,INT(X),INT(Y)
 1340VDU 160+B%(INT((X-INT(X))*2),INT((Y-INT(Y))*3))
 1350ENDPROC
 1360DEFPROCtermin(Z%)
 1370C%(Z%)=C%(Z%) AND 254
 1380IF (C%(Z%) AND 2)=0 PROCcatacl(Z%):PROCcata(Z%,0)
 1390IF Z%=1 AN(1)=1.6 ELSE AN(2)=4.7
 1400ENDPROC
 1410DEFPROChit
 1420IFINT(A(1,1))=INT(A(1,2)) AND INT(A(2,1))=INT(A(2,2)) PROCtermin(1):PROCtermin(2):VDU31,INT(A(1,1)),INT(A(2,1)),160:SOUND1,-13,40,3:GOTO1490
 1430IF A(2,Z%)<5 D%=(Z%-1.5)*-2:C%(Z%)=C%(Z%) OR 4:TR%=1:C%(3-Z%)=C%(3-Z%) AND 251:SOUND0,2,29,10:GOTO 1480
 1440NO=ABS(INT(A(1,Z%))-20):ZZ%=(SGN(A(1,Z%)-21)+1)/2+1
 1450IFNO>=18 PROCsulk(ZZ%):GOTO1480
 1460IFNO>=12 PROCdud(ZZ%):GOTO1480
 1470IFNO>=7 PROCbull(ZZ%,Z%)
 1480PROCtermin(Z%)
 1490ENDPROC
 1500DEFPROCsulk(Z%)
 1510SOUND1,3,2,20
 1520IFZ%=1 PROCman(0,2):VDU31,3,18,160 ELSE PROCman(37,1)
 1530C%(Z%)=C%(Z%) OR 2:IF KO%(Z%)=0 KO%(Z%)=95
 1540ENDPROC
 1550DEFPROCdud(ZZ%)
 1560SOUND1,3,2,20
 1570PROCcatacl(ZZ%)
 1580C%(ZZ%)=C%(ZZ%) OR 2:IF KO%(ZZ%)=0 KO%(ZZ%)=70
 1590ENDPROC
 1600DEFPROCbull(ZZ%,Z%)
 1610SOUND0,4,6,4
 1620DA%(ZZ%)=DA%(ZZ%)-1
 1630HI=A(2,Z%)
 1640REPEAT
 1650HI=HI-1
 1660UNTIL FNPOINT(A(1,Z%),HI)<>255
 1670VDU31,A(1,Z%),HI+1,160
 1680IF DA%(ZZ%)<1 Z%=3-ZZ%:GOTO 1920
 1690ENDPROC
 1700DEFPROCinstruct
 1710PRINTTAB(0,3);"  The two barons,each controlled by a"
 1720PRINT"player,are trying to knock down each"
 1730PRINT"others castles,by using:"
 1740PRINT"     Left player     Right player"
 1750PRINT"     SHIFT LOCK  and COPY"
 1760PRINT"to fire.The longer the key is held down"
 1770PRINT"before releasing,so the greater the "
 1780PRINT"angle of fire.Releasing the key lets"
 1790PRINT"loose your boulder."'
 1800PRINT"  ANY KEY TO CONTINUE INSTRUCTIONS":G=GET
 1810PRINTTAB(0,3);"  If it hits the castle,it will partly "
 1820PRINT"crumble - the winner being the one with"
 1830PRINT"some castle left.                      "
 1840PRINT"  Hit a man and he will sulk for a     "
 1850PRINT"time,whilst a hit catapault takes a    "
 1860PRINT"little less time to repair.            "
 1870PRINT"  Hit the bird,and he will drop your   "
 1880PRINT"boulder when you say,so long as you    "
 1890PRINT"were last to hit him.Use your fire key."'
 1900PRINT"ANY KEY TO START:      HAPPY SHOOTING  ":G=GET
 1910ENDPROC
 1920PRINTTAB(13,6);CHR$(130);CHR$(141);"THE WINNER"
 1930PRINTTAB(13,7);CHR$(133);CHR$(141);"THE WINNER"
 1940ONZ% GOTO 1950,1970
 1950VDU31,12,8,145,255,31,11,9,145,248,255,255,31,9,10,145,245,232,255,183,31,9,11,145,255,255,167,31,9,12,145,255,255,244
 1960GOTO1980
 1970VDU31,25,8,145,255,31,24,9,145,255,255,244,31,25,10,145,235,255,180,250,31,26,11,145,171,255,255,31,26,12,145,248,255,255
 1980*FX15,0
 1990FORT=1TO3:SOUND1,-15,101,3:SOUND1,-15,117,3:NEXT:SOUND1,-15,101,7
 2000PRINTTAB(11,24);"ANOTHER GAME?";
 2010G$=GET$:IF G$<>"N" AND G$<>"n" THEN RUN ELSE GOTO 2010


!� CATACASTLES by Thomas Evans
� **** DOUAI SCHOOL ****
� (C) The Micro User
� SET UP GRAPHICS
(
*TV255
2
*FX4,1
<�7
F�23;8202;0;0;0
P
�T%=15�20
Z�14,T%);�(151)
d�
n^�31,0,21,130,157,148,31,19,21,235,255,183,13,10,130,157,148,31,20,22,175,13,10,130,157,148
x�man(0,1):�man(37,2)
��X=3�31�28
�D�31,X,19,149,191,175,255,175,111,31,X,20,145,170,191,160,239,165
��
��cata(1,0):�cata(2,0)
��castle(9):�castle(27)
�I�title:�"DO YOU WANT INSTRUCTIONS?";:G$=�:� G$="Y" � G$="y" �instruct
��T%=0�14
��0,T%);�(151);�(38)
��
��31,0,3,150,13,10,150
�#� SET UP VARIABLES ------------
�G� B%(1,2),A(4,2),C%(2),KO%(2),P%(2),AN(2),OG%(2),G%(2),I%(2),DA%(2)
�AB%(0,0)=1:B%(1,0)=2:B%(0,1)=4:B%(1,1)=8:B%(0,2)=16:B%(1,2)=64
^KO%(1)=0:KO%(2)=0:C%(1)=0:C%(2)=0:AN(1)=1.6:AN(2)=4.7:G%(1)=0:G%(2)=0:I%(1)=-81:I%(2)=-106
6A%=135:DA%(1)=20:DA%(2)=20:D%=1:X%=3:R%=1:T%=0:�=0
*�1,2,1,-1,1,1,1,1,121,-10,-5,2,125,120
"*�2,3,0,0,0,0,0,0,121,-10,-5,-2,120,120
,*�3,6,2,1,1,1,1,1,121,-10,-5,-2,120,120
6(�4,1,0,0,0,0,0,0,61,0,-10,-120,120,0
@� MAJOR LOOP
J� Z%=1�2
T� C%(Z%)<>0 � �tZA
^#OG%(Z%)=G%(Z%):G%(Z%)=�(I%(Z%))
h'F%=AN(Z%)*20:� F%=0 � F%=126 � �tFA
r(�G%(Z%)=-1 �31,20+�MAN(Z%)*17,18,163
|%AN(Z%)=AN(Z%)-G%(Z%)*�MAN(Z%)*.05
�!� G%(Z%)=0 � OG%(Z%)=-1 �fire
�	�t@B
��(C%(Z%) � 1)=0 � �dtA
��31,A(1,Z%),A(2,Z%),P%(Z%)
�A(4,Z%)=A(4,Z%)-.0325
�A(1,Z%)=A(1,Z%)+A(3,Z%)
�A(2,Z%)=A(2,Z%)-A(4,Z%)
�"P%(Z%)=�POINT(A(1,Z%),A(2,Z%))
�� P%(Z%)>160 �hit:� �dtA
�/� A(2,Z%)>21 �termin(Z%):�1,-13,40,3:� �dtA
��bullet(A(1,Z%),A(2,Z%))
�BIT=C%(Z%) � 2
�� �(BIT=2) � �TzB
KO%(Z%)=KO%(Z%)-1
�KO%(Z%)<>0�t@B 
!C%(Z%)=C%(Z%)�253:�1,-13,40,3
&6�Z%=1 �man(0,1):�termin(1) � �man(37,2):�termin(2)
0	�t@B
:BIT=C%(Z%) � 4
D� �(BIT=4) � �t@B
N�(I%(Z%))=0 � �t@B
X�cata(Z%,1):�0,2,29,10
b!OG%(Z%)=0:C%(Z%)=1:P%(Z%)=160
lA(1,Z%)=X%+1:A(2,Z%)=5
vA(3,Z%)=0:A(4,Z%)=0
�� Z%
�� �<30 � �DJA
��=0
�R%=R%+1:�R%=3 R%=1
�� R%=2 X%=X%+D%
�#�X%<2 � X%>36 D%=D%*-1:X%=X%+D%
��ptero(D%,R%,X%)
�	�DJA
��
���man(X,N)
�� N � �dnB,�TBC
�S�31,X,17,149,239,164,31,X,18,147,234,51,31,X,19,147,254,165,31,X,20,148,234,176
�	�TLC
T�31,X,17,149,168,191,31,X,18,147,227,181,31,X,19,147,170,253,31,X,20,148,224,181
�
��cata(N,T)
 � N=1 X=3 � X=31
*!� T*2+N � �TtC,�DHC,�D\C,�DpC
4N�31,X,16,150,176,176,31,X,17,150,163,185,176,31,X+1,18,150,181,162,228,235
>	�DzC
HT�31,X+3,16,150,224,224,31,X+2,17,150,224,230,163,31,X,18,150,183,184,161,234,147
R	�DzC
\h�31,X,15,150,160,224,31,X,16,150,160,169,184,31,X+1,17,150,176,170,176,31,X+1,18,150,181,160,233,235
f	�DzC
pj�31,X+3,15,150,176,31,X+2,16,150,228,166,160,31,X+1,17,150,224,165,224,160,31,X,18,150,183,182,160,234
z�
���catacl(N)
�� N � �tXC,�tlC
�T�31,5,15,160,31,4,16,160,160,160,31,4,17,160,160,160,160,31,5,18,160,160,160,160
�	�tvC
�X�31,35,15,160,31,34,16,160,160,160,31,33,17,160,160,160,160,31,32,18,160,160,160,160
��
���castle(X)
ʐ�31,X-1,15,147,255,160,255,160,255,31,X-1,16,147,255,255,255,255,255,31,X,17,147,255,255,255,31,X,17,147,255,255,255,31,X,17,147,255,255,255
�L�31,X,18,147,255,255,255,31,X,19,147,255,255,255,31,X,20,147,255,255,255
��
���ptero(D,T,X)
�!� D+T+1 � �d|C,�TPD,�TdD,�TxD
�*�31,X,3,176,254,176,31,X,4,162,171,161
	�DBD
2�31,X,3,160,240,240,160,31,X,4,162,170,183,160
	�DBD
$*�31,X,3,224,253,224,31,X,4,162,167,161
.	�DBD
86�31,X-1,3,160,240,240,160,31,X-1,4,160,235,165,161
B�
L��title
VO�9,0);�(141);�(130);"CATACASTLES";�(140);�(129);"by";�(134);"Thomas Evans"
`%�9);�(141);�(133);"CATACASTLES"'
j�
t� �MAN(Z%)
~�Z%=1 K%=-1 � K%=1
�=K%
�
��fire
��1,1,6,9
�
OG%(Z%)=0
�%A(1,Z%)=20+�MAN(Z%)*14:A(2,Z%)=15
�A(3,Z%)=�(AN(Z%))
�A(4,Z%)=�(AN(Z%))
��cata(Z%,1)
�+C%(Z%)=1:� Z%=1 P%(Z%)=160 � P%(Z%)=150
��Z%=1 �31,3,18 � �31,37,18
��160
��
� �POINT(U%,V%)


�31,U%,V%
#B%=(� &FFF4 � &FF00) �256 � 128
=B%
(��bullet(X,Y)
2�31,�(X),�(Y)
<)� 160+B%(�((X-�(X))*2),�((Y-�(Y))*3))
F�
P��termin(Z%)
ZC%(Z%)=C%(Z%) � 254
d,� (C%(Z%) � 2)=0 �catacl(Z%):�cata(Z%,0)
n � Z%=1 AN(1)=1.6 � AN(2)=4.7
x�
�	��hit
�r�(A(1,1))=�(A(1,2)) � �(A(2,1))=�(A(2,2)) �termin(1):�termin(2):�31,�(A(1,1)),�(A(2,1)),160:�1,-13,40,3:�dRE
�`� A(2,Z%)<5 D%=(Z%-1.5)*-2:C%(Z%)=C%(Z%) � 4:TR%=1:C%(3-Z%)=C%(3-Z%) � 251:�0,2,29,10:� �dHE
�1NO=�(�(A(1,Z%))-20):ZZ%=(�(A(1,Z%)-21)+1)/2+1
��NO>=18 �sulk(ZZ%):�dHE
��NO>=12 �dud(ZZ%):�dHE
��NO>=7 �bull(ZZ%,Z%)
��termin(Z%)
��
���sulk(Z%)
�
�1,3,2,20
�-�Z%=1 �man(0,2):�31,3,18,160 � �man(37,1)
�,C%(Z%)=C%(Z%) � 2:� KO%(Z%)=0 KO%(Z%)=95
�
��dud(ZZ%)

�1,3,2,20
"�catacl(ZZ%)
,0C%(ZZ%)=C%(ZZ%) � 2:� KO%(ZZ%)=0 KO%(ZZ%)=70
6�
@��bull(ZZ%,Z%)
J�0,4,6,4
TDA%(ZZ%)=DA%(ZZ%)-1
^HI=A(2,Z%)
h�
rHI=HI-1
|� �POINT(A(1,Z%),HI)<>255
��31,A(1,Z%),HI+1,160
� � DA%(ZZ%)<1 Z%=3-ZZ%:� �t@G
��
���instruct
�2�0,3);"  The two barons,each controlled by a"
�+�"player,are trying to knock down each"
��"others castles,by using:"
�(�"     Left player     Right player"
� �"     SHIFT LOCK  and COPY"
�.�"to fire.The longer the key is held down"
�+�"before releasing,so the greater the "
�+�"angle of fire.Releasing the key lets"
��"loose your boulder."'
-�"  ANY KEY TO CONTINUE INSTRUCTIONS":G=�
4�0,3);"  If it hits the castle,it will partly "
.�"crumble - the winner being the one with"
&.�"some castle left.                      "
0.�"  Hit a man and he will sulk for a     "
:.�"time,whilst a hit catapault takes a    "
D.�"little less time to repair.            "
N.�"  Hit the bird,and he will drop your   "
X.�"boulder when you say,so long as you    "
b/�"were last to hit him.Use your fire key."'
l2�"ANY KEY TO START:      HAPPY SHOOTING  ":G=�
v�
�&�13,6);�(130);�(141);"THE WINNER"
�&�13,7);�(133);�(141);"THE WINNER"
��Z% � �t^G,�trG
�x�31,12,8,145,255,31,11,9,145,248,255,255,31,9,10,145,245,232,255,183,31,9,11,145,255,255,167,31,9,12,145,255,255,244
�	�t|G
�{�31,25,8,145,255,31,24,9,145,255,255,244,31,25,10,145,235,255,180,250,31,26,11,145,171,255,255,31,26,12,145,248,255,255
�*FX15,0
�3�T=1�3:�1,-15,101,3:�1,-15,117,3:�:�1,-15,101,7
��11,24);"ANOTHER GAME?";
�)G$=�:� G$<>"N" � G$<>"n" � � � � �dZG
�

00000000  0d 00 0a 21 f4 20 43 41  54 41 43 41 53 54 4c 45  |...!. CATACASTLE|
00000010  53 20 62 79 20 54 68 6f  6d 61 73 20 45 76 61 6e  |S by Thomas Evan|
00000020  73 0d 00 14 1c f4 20 2a  2a 2a 2a 20 44 4f 55 41  |s..... **** DOUA|
00000030  49 20 53 43 48 4f 4f 4c  20 2a 2a 2a 2a 0d 00 19  |I SCHOOL ****...|
00000040  18 f4 20 28 43 29 20 54  68 65 20 4d 69 63 72 6f  |.. (C) The Micro|
00000050  20 55 73 65 72 0d 00 1e  15 f4 20 53 45 54 20 55  | User..... SET U|
00000060  50 20 47 52 41 50 48 49  43 53 0d 00 28 0a 2a 54  |P GRAPHICS..(.*T|
00000070  56 32 35 35 0d 00 32 0a  2a 46 58 34 2c 31 0d 00  |V255..2.*FX4,1..|
00000080  3c 06 eb 37 0d 00 46 12  ef 32 33 3b 38 32 30 32  |<..7..F..23;8202|
00000090  3b 30 3b 30 3b 30 0d 00  50 0d e3 54 25 3d 31 35  |;0;0;0..P..T%=15|
000000a0  b8 32 30 0d 00 5a 13 f1  8a 31 34 2c 54 25 29 3b  |.20..Z...14,T%);|
000000b0  bd 28 31 35 31 29 0d 00  64 05 ed 0d 00 6e 5e ef  |.(151)..d....n^.|
000000c0  33 31 2c 30 2c 32 31 2c  31 33 30 2c 31 35 37 2c  |31,0,21,130,157,|
000000d0  31 34 38 2c 33 31 2c 31  39 2c 32 31 2c 32 33 35  |148,31,19,21,235|
000000e0  2c 32 35 35 2c 31 38 33  2c 31 33 2c 31 30 2c 31  |,255,183,13,10,1|
000000f0  33 30 2c 31 35 37 2c 31  34 38 2c 33 31 2c 32 30  |30,157,148,31,20|
00000100  2c 32 32 2c 31 37 35 2c  31 33 2c 31 30 2c 31 33  |,22,175,13,10,13|
00000110  30 2c 31 35 37 2c 31 34  38 0d 00 78 18 f2 6d 61  |0,157,148..x..ma|
00000120  6e 28 30 2c 31 29 3a f2  6d 61 6e 28 33 37 2c 32  |n(0,1):.man(37,2|
00000130  29 0d 00 82 0e e3 58 3d  33 b8 33 31 88 32 38 0d  |).....X=3.31.28.|
00000140  00 8c 44 ef 33 31 2c 58  2c 31 39 2c 31 34 39 2c  |..D.31,X,19,149,|
00000150  31 39 31 2c 31 37 35 2c  32 35 35 2c 31 37 35 2c  |191,175,255,175,|
00000160  31 31 31 2c 33 31 2c 58  2c 32 30 2c 31 34 35 2c  |111,31,X,20,145,|
00000170  31 37 30 2c 31 39 31 2c  31 36 30 2c 32 33 39 2c  |170,191,160,239,|
00000180  31 36 35 0d 00 96 05 ed  0d 00 a0 19 f2 63 61 74  |165..........cat|
00000190  61 28 31 2c 30 29 3a f2  63 61 74 61 28 32 2c 30  |a(1,0):.cata(2,0|
000001a0  29 0d 00 aa 1a f2 63 61  73 74 6c 65 28 39 29 3a  |).....castle(9):|
000001b0  f2 63 61 73 74 6c 65 28  32 37 29 0d 00 b4 49 f2  |.castle(27)...I.|
000001c0  74 69 74 6c 65 3a f1 22  44 4f 20 59 4f 55 20 57  |title:."DO YOU W|
000001d0  41 4e 54 20 49 4e 53 54  52 55 43 54 49 4f 4e 53  |ANT INSTRUCTIONS|
000001e0  3f 22 3b 3a 47 24 3d be  3a e7 20 47 24 3d 22 59  |?";:G$=.:. G$="Y|
000001f0  22 20 84 20 47 24 3d 22  79 22 20 f2 69 6e 73 74  |" . G$="y" .inst|
00000200  72 75 63 74 0d 00 be 0c  e3 54 25 3d 30 b8 31 34  |ruct.....T%=0.14|
00000210  0d 00 c8 18 f1 8a 30 2c  54 25 29 3b bd 28 31 35  |......0,T%);.(15|
00000220  31 29 3b 89 28 33 38 29  0d 00 d2 05 ed 0d 00 dc  |1);.(38)........|
00000230  19 ef 33 31 2c 30 2c 33  2c 31 35 30 2c 31 33 2c  |..31,0,3,150,13,|
00000240  31 30 2c 31 35 30 0d 00  e6 23 f4 20 53 45 54 20  |10,150...#. SET |
00000250  55 50 20 56 41 52 49 41  42 4c 45 53 20 2d 2d 2d  |UP VARIABLES ---|
00000260  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 00 f0 47 de 20 42  |---------...G. B|
00000270  25 28 31 2c 32 29 2c 41  28 34 2c 32 29 2c 43 25  |%(1,2),A(4,2),C%|
00000280  28 32 29 2c 4b 4f 25 28  32 29 2c 50 25 28 32 29  |(2),KO%(2),P%(2)|
00000290  2c 41 4e 28 32 29 2c 4f  47 25 28 32 29 2c 47 25  |,AN(2),OG%(2),G%|
000002a0  28 32 29 2c 49 25 28 32  29 2c 44 41 25 28 32 29  |(2),I%(2),DA%(2)|
000002b0  0d 00 fa 41 42 25 28 30  2c 30 29 3d 31 3a 42 25  |...AB%(0,0)=1:B%|
000002c0  28 31 2c 30 29 3d 32 3a  42 25 28 30 2c 31 29 3d  |(1,0)=2:B%(0,1)=|
000002d0  34 3a 42 25 28 31 2c 31  29 3d 38 3a 42 25 28 30  |4:B%(1,1)=8:B%(0|
000002e0  2c 32 29 3d 31 36 3a 42  25 28 31 2c 32 29 3d 36  |,2)=16:B%(1,2)=6|
000002f0  34 0d 01 04 5e 4b 4f 25  28 31 29 3d 30 3a 4b 4f  |4...^KO%(1)=0:KO|
00000300  25 28 32 29 3d 30 3a 43  25 28 31 29 3d 30 3a 43  |%(2)=0:C%(1)=0:C|
00000310  25 28 32 29 3d 30 3a 41  4e 28 31 29 3d 31 2e 36  |%(2)=0:AN(1)=1.6|
00000320  3a 41 4e 28 32 29 3d 34  2e 37 3a 47 25 28 31 29  |:AN(2)=4.7:G%(1)|
00000330  3d 30 3a 47 25 28 32 29  3d 30 3a 49 25 28 31 29  |=0:G%(2)=0:I%(1)|
00000340  3d 2d 38 31 3a 49 25 28  32 29 3d 2d 31 30 36 0d  |=-81:I%(2)=-106.|
00000350  01 0e 36 41 25 3d 31 33  35 3a 44 41 25 28 31 29  |..6A%=135:DA%(1)|
00000360  3d 32 30 3a 44 41 25 28  32 29 3d 32 30 3a 44 25  |=20:DA%(2)=20:D%|
00000370  3d 31 3a 58 25 3d 33 3a  52 25 3d 31 3a 54 25 3d  |=1:X%=3:R%=1:T%=|
00000380  30 3a d1 3d 30 0d 01 18  2a e2 31 2c 32 2c 31 2c  |0:.=0...*.1,2,1,|
00000390  2d 31 2c 31 2c 31 2c 31  2c 31 2c 31 32 31 2c 2d  |-1,1,1,1,1,121,-|
000003a0  31 30 2c 2d 35 2c 32 2c  31 32 35 2c 31 32 30 0d  |10,-5,2,125,120.|
000003b0  01 22 2a e2 32 2c 33 2c  30 2c 30 2c 30 2c 30 2c  |."*.2,3,0,0,0,0,|
000003c0  30 2c 30 2c 31 32 31 2c  2d 31 30 2c 2d 35 2c 2d  |0,0,121,-10,-5,-|
000003d0  32 2c 31 32 30 2c 31 32  30 0d 01 2c 2a e2 33 2c  |2,120,120..,*.3,|
000003e0  36 2c 32 2c 31 2c 31 2c  31 2c 31 2c 31 2c 31 32  |6,2,1,1,1,1,1,12|
000003f0  31 2c 2d 31 30 2c 2d 35  2c 2d 32 2c 31 32 30 2c  |1,-10,-5,-2,120,|
00000400  31 32 30 0d 01 36 28 e2  34 2c 31 2c 30 2c 30 2c  |120..6(.4,1,0,0,|
00000410  30 2c 30 2c 30 2c 30 2c  36 31 2c 30 2c 2d 31 30  |0,0,0,0,61,0,-10|
00000420  2c 2d 31 32 30 2c 31 32  30 2c 30 0d 01 40 10 f4  |,-120,120,0..@..|
00000430  20 4d 41 4a 4f 52 20 4c  4f 4f 50 0d 01 4a 0c e3  | MAJOR LOOP..J..|
00000440  20 5a 25 3d 31 b8 32 0d  01 54 16 e7 20 43 25 28  | Z%=1.2..T.. C%(|
00000450  5a 25 29 3c 3e 30 20 e5  20 8d 74 5a 41 0d 01 5e  |Z%)<>0 . .tZA..^|
00000460  23 4f 47 25 28 5a 25 29  3d 47 25 28 5a 25 29 3a  |#OG%(Z%)=G%(Z%):|
00000470  47 25 28 5a 25 29 3d a6  28 49 25 28 5a 25 29 29  |G%(Z%)=.(I%(Z%))|
00000480  0d 01 68 27 46 25 3d 41  4e 28 5a 25 29 2a 32 30  |..h'F%=AN(Z%)*20|
00000490  3a e7 20 46 25 3d 30 20  84 20 46 25 3d 31 32 36  |:. F%=0 . F%=126|
000004a0  20 e5 20 8d 74 46 41 0d  01 72 28 e7 47 25 28 5a  | . .tFA..r(.G%(Z|
000004b0  25 29 3d 2d 31 20 ef 33  31 2c 32 30 2b a4 4d 41  |%)=-1 .31,20+.MA|
000004c0  4e 28 5a 25 29 2a 31 37  2c 31 38 2c 31 36 33 0d  |N(Z%)*17,18,163.|
000004d0  01 7c 25 41 4e 28 5a 25  29 3d 41 4e 28 5a 25 29  |.|%AN(Z%)=AN(Z%)|
000004e0  2d 47 25 28 5a 25 29 2a  a4 4d 41 4e 28 5a 25 29  |-G%(Z%)*.MAN(Z%)|
000004f0  2a 2e 30 35 0d 01 86 21  e7 20 47 25 28 5a 25 29  |*.05...!. G%(Z%)|
00000500  3d 30 20 80 20 4f 47 25  28 5a 25 29 3d 2d 31 20  |=0 . OG%(Z%)=-1 |
00000510  f2 66 69 72 65 0d 01 90  09 e5 8d 74 40 42 0d 01  |.fire......t@B..|
00000520  9a 1a e7 28 43 25 28 5a  25 29 20 80 20 31 29 3d  |...(C%(Z%) . 1)=|
00000530  30 20 e5 20 8d 64 74 41  0d 01 a4 1e ef 33 31 2c  |0 . .dtA.....31,|
00000540  41 28 31 2c 5a 25 29 2c  41 28 32 2c 5a 25 29 2c  |A(1,Z%),A(2,Z%),|
00000550  50 25 28 5a 25 29 0d 01  ae 19 41 28 34 2c 5a 25  |P%(Z%)....A(4,Z%|
00000560  29 3d 41 28 34 2c 5a 25  29 2d 2e 30 33 32 35 0d  |)=A(4,Z%)-.0325.|
00000570  01 b8 1b 41 28 31 2c 5a  25 29 3d 41 28 31 2c 5a  |...A(1,Z%)=A(1,Z|
00000580  25 29 2b 41 28 33 2c 5a  25 29 0d 01 c2 1b 41 28  |%)+A(3,Z%)....A(|
00000590  32 2c 5a 25 29 3d 41 28  32 2c 5a 25 29 2d 41 28  |2,Z%)=A(2,Z%)-A(|
000005a0  34 2c 5a 25 29 0d 01 cc  22 50 25 28 5a 25 29 3d  |4,Z%)..."P%(Z%)=|
000005b0  a4 50 4f 49 4e 54 28 41  28 31 2c 5a 25 29 2c 41  |.POINT(A(1,Z%),A|
000005c0  28 32 2c 5a 25 29 29 0d  01 d6 1c e7 20 50 25 28  |(2,Z%))..... P%(|
000005d0  5a 25 29 3e 31 36 30 20  f2 68 69 74 3a e5 20 8d  |Z%)>160 .hit:. .|
000005e0  64 74 41 0d 01 e0 2f e7  20 41 28 32 2c 5a 25 29  |dtA.../. A(2,Z%)|
000005f0  3e 32 31 20 f2 74 65 72  6d 69 6e 28 5a 25 29 3a  |>21 .termin(Z%):|
00000600  d4 31 2c 2d 31 33 2c 34  30 2c 33 3a e5 20 8d 64  |.1,-13,40,3:. .d|
00000610  74 41 0d 01 ea 1c f2 62  75 6c 6c 65 74 28 41 28  |tA.....bullet(A(|
00000620  31 2c 5a 25 29 2c 41 28  32 2c 5a 25 29 29 0d 01  |1,Z%),A(2,Z%))..|
00000630  f4 12 42 49 54 3d 43 25  28 5a 25 29 20 80 20 32  |..BIT=C%(Z%) . 2|
00000640  0d 01 fe 15 e7 20 ac 28  42 49 54 3d 32 29 20 e5  |..... .(BIT=2) .|
00000650  20 8d 54 7a 42 0d 02 08  15 4b 4f 25 28 5a 25 29  | .TzB....KO%(Z%)|
00000660  3d 4b 4f 25 28 5a 25 29  2d 31 0d 02 12 15 e7 4b  |=KO%(Z%)-1.....K|
00000670  4f 25 28 5a 25 29 3c 3e  30 e5 8d 74 40 42 20 0d  |O%(Z%)<>0..t@B .|
00000680  02 1c 21 43 25 28 5a 25  29 3d 43 25 28 5a 25 29  |..!C%(Z%)=C%(Z%)|
00000690  80 32 35 33 3a d4 31 2c  2d 31 33 2c 34 30 2c 33  |.253:.1,-13,40,3|
000006a0  0d 02 26 36 e7 5a 25 3d  31 20 f2 6d 61 6e 28 30  |..&6.Z%=1 .man(0|
000006b0  2c 31 29 3a f2 74 65 72  6d 69 6e 28 31 29 20 8b  |,1):.termin(1) .|
000006c0  20 f2 6d 61 6e 28 33 37  2c 32 29 3a f2 74 65 72  | .man(37,2):.ter|
000006d0  6d 69 6e 28 32 29 0d 02  30 09 e5 8d 74 40 42 0d  |min(2)..0...t@B.|
000006e0  02 3a 12 42 49 54 3d 43  25 28 5a 25 29 20 80 20  |.:.BIT=C%(Z%) . |
000006f0  34 0d 02 44 15 e7 20 ac  28 42 49 54 3d 34 29 20  |4..D.. .(BIT=4) |
00000700  e5 20 8d 74 40 42 0d 02  4e 17 e7 a6 28 49 25 28  |. .t@B..N...(I%(|
00000710  5a 25 29 29 3d 30 20 e5  20 8d 74 40 42 0d 02 58  |Z%))=0 . .t@B..X|
00000720  1a f2 63 61 74 61 28 5a  25 2c 31 29 3a d4 30 2c  |..cata(Z%,1):.0,|
00000730  32 2c 32 39 2c 31 30 0d  02 62 21 4f 47 25 28 5a  |2,29,10..b!OG%(Z|
00000740  25 29 3d 30 3a 43 25 28  5a 25 29 3d 31 3a 50 25  |%)=0:C%(Z%)=1:P%|
00000750  28 5a 25 29 3d 31 36 30  0d 02 6c 1a 41 28 31 2c  |(Z%)=160..l.A(1,|
00000760  5a 25 29 3d 58 25 2b 31  3a 41 28 32 2c 5a 25 29  |Z%)=X%+1:A(2,Z%)|
00000770  3d 35 0d 02 76 17 41 28  33 2c 5a 25 29 3d 30 3a  |=5..v.A(3,Z%)=0:|
00000780  41 28 34 2c 5a 25 29 3d  30 0d 02 80 08 ed 20 5a  |A(4,Z%)=0..... Z|
00000790  25 0d 02 8a 11 e7 20 91  3c 33 30 20 e5 20 8d 44  |%..... .<30 . .D|
000007a0  4a 41 0d 02 94 07 d1 3d  30 0d 02 9e 16 52 25 3d  |JA.....=0....R%=|
000007b0  52 25 2b 31 3a e7 52 25  3d 33 20 52 25 3d 31 0d  |R%+1:.R%=3 R%=1.|
000007c0  02 a8 13 e7 20 52 25 3d  32 20 58 25 3d 58 25 2b  |.... R%=2 X%=X%+|
000007d0  44 25 0d 02 b2 23 e7 58  25 3c 32 20 84 20 58 25  |D%...#.X%<2 . X%|
000007e0  3e 33 36 20 44 25 3d 44  25 2a 2d 31 3a 58 25 3d  |>36 D%=D%*-1:X%=|
000007f0  58 25 2b 44 25 0d 02 bc  14 f2 70 74 65 72 6f 28  |X%+D%.....ptero(|
00000800  44 25 2c 52 25 2c 58 25  29 0d 02 c6 09 e5 8d 44  |D%,R%,X%)......D|
00000810  4a 41 0d 02 d0 05 e0 0d  02 da 0e dd f2 6d 61 6e  |JA...........man|
00000820  28 58 2c 4e 29 0d 02 e4  13 ee 20 4e 20 e5 20 8d  |(X,N)..... N . .|
00000830  64 6e 42 2c 8d 54 42 43  0d 02 ee 53 ef 33 31 2c  |dnB,.TBC...S.31,|
00000840  58 2c 31 37 2c 31 34 39  2c 32 33 39 2c 31 36 34  |X,17,149,239,164|
00000850  2c 33 31 2c 58 2c 31 38  2c 31 34 37 2c 32 33 34  |,31,X,18,147,234|
00000860  2c 35 31 2c 33 31 2c 58  2c 31 39 2c 31 34 37 2c  |,51,31,X,19,147,|
00000870  32 35 34 2c 31 36 35 2c  33 31 2c 58 2c 32 30 2c  |254,165,31,X,20,|
00000880  31 34 38 2c 32 33 34 2c  31 37 36 0d 02 f8 09 e5  |148,234,176.....|
00000890  8d 54 4c 43 0d 03 02 54  ef 33 31 2c 58 2c 31 37  |.TLC...T.31,X,17|
000008a0  2c 31 34 39 2c 31 36 38  2c 31 39 31 2c 33 31 2c  |,149,168,191,31,|
000008b0  58 2c 31 38 2c 31 34 37  2c 32 32 37 2c 31 38 31  |X,18,147,227,181|
000008c0  2c 33 31 2c 58 2c 31 39  2c 31 34 37 2c 31 37 30  |,31,X,19,147,170|
000008d0  2c 32 35 33 2c 33 31 2c  58 2c 32 30 2c 31 34 38  |,253,31,X,20,148|
000008e0  2c 32 32 34 2c 31 38 31  0d 03 0c 05 e1 0d 03 16  |,224,181........|
000008f0  0f dd f2 63 61 74 61 28  4e 2c 54 29 0d 03 20 14  |...cata(N,T).. .|
00000900  e7 20 4e 3d 31 20 58 3d  33 20 8b 20 58 3d 33 31  |. N=1 X=3 . X=31|
00000910  0d 03 2a 21 ee 20 54 2a  32 2b 4e 20 e5 20 8d 54  |..*!. T*2+N . .T|
00000920  74 43 2c 8d 44 48 43 2c  8d 44 5c 43 2c 8d 44 70  |tC,.DHC,.D\C,.Dp|
00000930  43 0d 03 34 4e ef 33 31  2c 58 2c 31 36 2c 31 35  |C..4N.31,X,16,15|
00000940  30 2c 31 37 36 2c 31 37  36 2c 33 31 2c 58 2c 31  |0,176,176,31,X,1|
00000950  37 2c 31 35 30 2c 31 36  33 2c 31 38 35 2c 31 37  |7,150,163,185,17|
00000960  36 2c 33 31 2c 58 2b 31  2c 31 38 2c 31 35 30 2c  |6,31,X+1,18,150,|
00000970  31 38 31 2c 31 36 32 2c  32 32 38 2c 32 33 35 0d  |181,162,228,235.|
00000980  03 3e 09 e5 8d 44 7a 43  0d 03 48 54 ef 33 31 2c  |.>...DzC..HT.31,|
00000990  58 2b 33 2c 31 36 2c 31  35 30 2c 32 32 34 2c 32  |X+3,16,150,224,2|
000009a0  32 34 2c 33 31 2c 58 2b  32 2c 31 37 2c 31 35 30  |24,31,X+2,17,150|
000009b0  2c 32 32 34 2c 32 33 30  2c 31 36 33 2c 33 31 2c  |,224,230,163,31,|
000009c0  58 2c 31 38 2c 31 35 30  2c 31 38 33 2c 31 38 34  |X,18,150,183,184|
000009d0  2c 31 36 31 2c 32 33 34  2c 31 34 37 0d 03 52 09  |,161,234,147..R.|
000009e0  e5 8d 44 7a 43 0d 03 5c  68 ef 33 31 2c 58 2c 31  |..DzC..\h.31,X,1|
000009f0  35 2c 31 35 30 2c 31 36  30 2c 32 32 34 2c 33 31  |5,150,160,224,31|
00000a00  2c 58 2c 31 36 2c 31 35  30 2c 31 36 30 2c 31 36  |,X,16,150,160,16|
00000a10  39 2c 31 38 34 2c 33 31  2c 58 2b 31 2c 31 37 2c  |9,184,31,X+1,17,|
00000a20  31 35 30 2c 31 37 36 2c  31 37 30 2c 31 37 36 2c  |150,176,170,176,|
00000a30  33 31 2c 58 2b 31 2c 31  38 2c 31 35 30 2c 31 38  |31,X+1,18,150,18|
00000a40  31 2c 31 36 30 2c 32 33  33 2c 32 33 35 0d 03 66  |1,160,233,235..f|
00000a50  09 e5 8d 44 7a 43 0d 03  70 6a ef 33 31 2c 58 2b  |...DzC..pj.31,X+|
00000a60  33 2c 31 35 2c 31 35 30  2c 31 37 36 2c 33 31 2c  |3,15,150,176,31,|
00000a70  58 2b 32 2c 31 36 2c 31  35 30 2c 32 32 38 2c 31  |X+2,16,150,228,1|
00000a80  36 36 2c 31 36 30 2c 33  31 2c 58 2b 31 2c 31 37  |66,160,31,X+1,17|
00000a90  2c 31 35 30 2c 32 32 34  2c 31 36 35 2c 32 32 34  |,150,224,165,224|
00000aa0  2c 31 36 30 2c 33 31 2c  58 2c 31 38 2c 31 35 30  |,160,31,X,18,150|
00000ab0  2c 31 38 33 2c 31 38 32  2c 31 36 30 2c 32 33 34  |,183,182,160,234|
00000ac0  0d 03 7a 05 e1 0d 03 84  0f dd f2 63 61 74 61 63  |..z........catac|
00000ad0  6c 28 4e 29 0d 03 8e 13  ee 20 4e 20 e5 20 8d 74  |l(N)..... N . .t|
00000ae0  58 43 2c 8d 74 6c 43 0d  03 98 54 ef 33 31 2c 35  |XC,.tlC...T.31,5|
00000af0  2c 31 35 2c 31 36 30 2c  33 31 2c 34 2c 31 36 2c  |,15,160,31,4,16,|
00000b00  31 36 30 2c 31 36 30 2c  31 36 30 2c 33 31 2c 34  |160,160,160,31,4|
00000b10  2c 31 37 2c 31 36 30 2c  31 36 30 2c 31 36 30 2c  |,17,160,160,160,|
00000b20  31 36 30 2c 33 31 2c 35  2c 31 38 2c 31 36 30 2c  |160,31,5,18,160,|
00000b30  31 36 30 2c 31 36 30 2c  31 36 30 0d 03 a2 09 e5  |160,160,160.....|
00000b40  8d 74 76 43 0d 03 ac 58  ef 33 31 2c 33 35 2c 31  |.tvC...X.31,35,1|
00000b50  35 2c 31 36 30 2c 33 31  2c 33 34 2c 31 36 2c 31  |5,160,31,34,16,1|
00000b60  36 30 2c 31 36 30 2c 31  36 30 2c 33 31 2c 33 33  |60,160,160,31,33|
00000b70  2c 31 37 2c 31 36 30 2c  31 36 30 2c 31 36 30 2c  |,17,160,160,160,|
00000b80  31 36 30 2c 33 31 2c 33  32 2c 31 38 2c 31 36 30  |160,31,32,18,160|
00000b90  2c 31 36 30 2c 31 36 30  2c 31 36 30 0d 03 b6 05  |,160,160,160....|
00000ba0  e1 0d 03 c0 0f dd f2 63  61 73 74 6c 65 28 58 29  |.......castle(X)|
00000bb0  0d 03 ca 90 ef 33 31 2c  58 2d 31 2c 31 35 2c 31  |.....31,X-1,15,1|
00000bc0  34 37 2c 32 35 35 2c 31  36 30 2c 32 35 35 2c 31  |47,255,160,255,1|
00000bd0  36 30 2c 32 35 35 2c 33  31 2c 58 2d 31 2c 31 36  |60,255,31,X-1,16|
00000be0  2c 31 34 37 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,147,255,255,255|
00000bf0  2c 32 35 35 2c 32 35 35  2c 33 31 2c 58 2c 31 37  |,255,255,31,X,17|
00000c00  2c 31 34 37 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,147,255,255,255|
00000c10  2c 33 31 2c 58 2c 31 37  2c 31 34 37 2c 32 35 35  |,31,X,17,147,255|
00000c20  2c 32 35 35 2c 32 35 35  2c 33 31 2c 58 2c 31 37  |,255,255,31,X,17|
00000c30  2c 31 34 37 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,147,255,255,255|
00000c40  0d 03 d4 4c ef 33 31 2c  58 2c 31 38 2c 31 34 37  |...L.31,X,18,147|
00000c50  2c 32 35 35 2c 32 35 35  2c 32 35 35 2c 33 31 2c  |,255,255,255,31,|
00000c60  58 2c 31 39 2c 31 34 37  2c 32 35 35 2c 32 35 35  |X,19,147,255,255|
00000c70  2c 32 35 35 2c 33 31 2c  58 2c 32 30 2c 31 34 37  |,255,31,X,20,147|
00000c80  2c 32 35 35 2c 32 35 35  2c 32 35 35 0d 03 de 05  |,255,255,255....|
00000c90  e1 0d 03 e8 12 dd f2 70  74 65 72 6f 28 44 2c 54  |.......ptero(D,T|
00000ca0  2c 58 29 0d 03 f2 21 ee  20 44 2b 54 2b 31 20 e5  |,X)...!. D+T+1 .|
00000cb0  20 8d 64 7c 43 2c 8d 54  50 44 2c 8d 54 64 44 2c  | .d|C,.TPD,.TdD,|
00000cc0  8d 54 78 44 0d 03 fc 2a  ef 33 31 2c 58 2c 33 2c  |.TxD...*.31,X,3,|
00000cd0  31 37 36 2c 32 35 34 2c  31 37 36 2c 33 31 2c 58  |176,254,176,31,X|
00000ce0  2c 34 2c 31 36 32 2c 31  37 31 2c 31 36 31 0d 04  |,4,162,171,161..|
00000cf0  06 09 e5 8d 44 42 44 0d  04 10 32 ef 33 31 2c 58  |....DBD...2.31,X|
00000d00  2c 33 2c 31 36 30 2c 32  34 30 2c 32 34 30 2c 31  |,3,160,240,240,1|
00000d10  36 30 2c 33 31 2c 58 2c  34 2c 31 36 32 2c 31 37  |60,31,X,4,162,17|
00000d20  30 2c 31 38 33 2c 31 36  30 0d 04 1a 09 e5 8d 44  |0,183,160......D|
00000d30  42 44 0d 04 24 2a ef 33  31 2c 58 2c 33 2c 32 32  |BD..$*.31,X,3,22|
00000d40  34 2c 32 35 33 2c 32 32  34 2c 33 31 2c 58 2c 34  |4,253,224,31,X,4|
00000d50  2c 31 36 32 2c 31 36 37  2c 31 36 31 0d 04 2e 09  |,162,167,161....|
00000d60  e5 8d 44 42 44 0d 04 38  36 ef 33 31 2c 58 2d 31  |..DBD..86.31,X-1|
00000d70  2c 33 2c 31 36 30 2c 32  34 30 2c 32 34 30 2c 31  |,3,160,240,240,1|
00000d80  36 30 2c 33 31 2c 58 2d  31 2c 34 2c 31 36 30 2c  |60,31,X-1,4,160,|
00000d90  32 33 35 2c 31 36 35 2c  31 36 31 0d 04 42 05 e1  |235,165,161..B..|
00000da0  0d 04 4c 0b dd f2 74 69  74 6c 65 0d 04 56 4f f1  |..L...title..VO.|
00000db0  8a 39 2c 30 29 3b bd 28  31 34 31 29 3b bd 28 31  |.9,0);.(141);.(1|
00000dc0  33 30 29 3b 22 43 41 54  41 43 41 53 54 4c 45 53  |30);"CATACASTLES|
00000dd0  22 3b bd 28 31 34 30 29  3b bd 28 31 32 39 29 3b  |";.(140);.(129);|
00000de0  22 62 79 22 3b bd 28 31  33 34 29 3b 22 54 68 6f  |"by";.(134);"Tho|
00000df0  6d 61 73 20 45 76 61 6e  73 22 0d 04 60 25 f1 8a  |mas Evans"..`%..|
00000e00  39 29 3b bd 28 31 34 31  29 3b bd 28 31 33 33 29  |9);.(141);.(133)|
00000e10  3b 22 43 41 54 41 43 41  53 54 4c 45 53 22 27 0d  |;"CATACASTLES"'.|
00000e20  04 6a 05 e1 0d 04 74 0e  dd 20 a4 4d 41 4e 28 5a  |.j....t.. .MAN(Z|
00000e30  25 29 0d 04 7e 16 e7 5a  25 3d 31 20 4b 25 3d 2d  |%)..~..Z%=1 K%=-|
00000e40  31 20 8b 20 4b 25 3d 31  0d 04 88 07 3d 4b 25 0d  |1 . K%=1....=K%.|
00000e50  04 92 0a dd f2 66 69 72  65 0d 04 9c 0c d4 31 2c  |.....fire.....1,|
00000e60  31 2c 36 2c 39 0d 04 a6  0d 4f 47 25 28 5a 25 29  |1,6,9....OG%(Z%)|
00000e70  3d 30 0d 04 b0 25 41 28  31 2c 5a 25 29 3d 32 30  |=0...%A(1,Z%)=20|
00000e80  2b a4 4d 41 4e 28 5a 25  29 2a 31 34 3a 41 28 32  |+.MAN(Z%)*14:A(2|
00000e90  2c 5a 25 29 3d 31 35 0d  04 ba 15 41 28 33 2c 5a  |,Z%)=15....A(3,Z|
00000ea0  25 29 3d b5 28 41 4e 28  5a 25 29 29 0d 04 c4 15  |%)=.(AN(Z%))....|
00000eb0  41 28 34 2c 5a 25 29 3d  9b 28 41 4e 28 5a 25 29  |A(4,Z%)=.(AN(Z%)|
00000ec0  29 0d 04 ce 0f f2 63 61  74 61 28 5a 25 2c 31 29  |).....cata(Z%,1)|
00000ed0  0d 04 d8 2b 43 25 28 5a  25 29 3d 31 3a e7 20 5a  |...+C%(Z%)=1:. Z|
00000ee0  25 3d 31 20 50 25 28 5a  25 29 3d 31 36 30 20 8b  |%=1 P%(Z%)=160 .|
00000ef0  20 50 25 28 5a 25 29 3d  31 35 30 0d 04 e2 1e e7  | P%(Z%)=150.....|
00000f00  5a 25 3d 31 20 ef 33 31  2c 33 2c 31 38 20 8b 20  |Z%=1 .31,3,18 . |
00000f10  ef 33 31 2c 33 37 2c 31  38 0d 04 ec 08 ef 31 36  |.31,37,18.....16|
00000f20  30 0d 04 f6 05 e1 0d 05  00 13 dd 20 a4 50 4f 49  |0.......... .POI|
00000f30  4e 54 28 55 25 2c 56 25  29 0d 05 0a 0d ef 33 31  |NT(U%,V%).....31|
00000f40  2c 55 25 2c 56 25 0d 05  14 23 42 25 3d 28 ba 20  |,U%,V%...#B%=(. |
00000f50  26 46 46 46 34 20 80 20  26 46 46 30 30 29 20 81  |&FFF4 . &FF00) .|
00000f60  32 35 36 20 84 20 31 32  38 0d 05 1e 07 3d 42 25  |256 . 128....=B%|
00000f70  0d 05 28 11 dd f2 62 75  6c 6c 65 74 28 58 2c 59  |..(...bullet(X,Y|
00000f80  29 0d 05 32 11 ef 33 31  2c a8 28 58 29 2c a8 28  |)..2..31,.(X),.(|
00000f90  59 29 0d 05 3c 29 ef 20  31 36 30 2b 42 25 28 a8  |Y)..<). 160+B%(.|
00000fa0  28 28 58 2d a8 28 58 29  29 2a 32 29 2c a8 28 28  |((X-.(X))*2),.((|
00000fb0  59 2d a8 28 59 29 29 2a  33 29 29 0d 05 46 05 e1  |Y-.(Y))*3))..F..|
00000fc0  0d 05 50 10 dd f2 74 65  72 6d 69 6e 28 5a 25 29  |..P...termin(Z%)|
00000fd0  0d 05 5a 17 43 25 28 5a  25 29 3d 43 25 28 5a 25  |..Z.C%(Z%)=C%(Z%|
00000fe0  29 20 80 20 32 35 34 0d  05 64 2c e7 20 28 43 25  |) . 254..d,. (C%|
00000ff0  28 5a 25 29 20 80 20 32  29 3d 30 20 f2 63 61 74  |(Z%) . 2)=0 .cat|
00001000  61 63 6c 28 5a 25 29 3a  f2 63 61 74 61 28 5a 25  |acl(Z%):.cata(Z%|
00001010  2c 30 29 0d 05 6e 20 e7  20 5a 25 3d 31 20 41 4e  |,0)..n . Z%=1 AN|
00001020  28 31 29 3d 31 2e 36 20  8b 20 41 4e 28 32 29 3d  |(1)=1.6 . AN(2)=|
00001030  34 2e 37 0d 05 78 05 e1  0d 05 82 09 dd f2 68 69  |4.7..x........hi|
00001040  74 0d 05 8c 72 e7 a8 28  41 28 31 2c 31 29 29 3d  |t...r..(A(1,1))=|
00001050  a8 28 41 28 31 2c 32 29  29 20 80 20 a8 28 41 28  |.(A(1,2)) . .(A(|
00001060  32 2c 31 29 29 3d a8 28  41 28 32 2c 32 29 29 20  |2,1))=.(A(2,2)) |
00001070  f2 74 65 72 6d 69 6e 28  31 29 3a f2 74 65 72 6d  |.termin(1):.term|
00001080  69 6e 28 32 29 3a ef 33  31 2c a8 28 41 28 31 2c  |in(2):.31,.(A(1,|
00001090  31 29 29 2c a8 28 41 28  32 2c 31 29 29 2c 31 36  |1)),.(A(2,1)),16|
000010a0  30 3a d4 31 2c 2d 31 33  2c 34 30 2c 33 3a e5 8d  |0:.1,-13,40,3:..|
000010b0  64 52 45 0d 05 96 60 e7  20 41 28 32 2c 5a 25 29  |dRE...`. A(2,Z%)|
000010c0  3c 35 20 44 25 3d 28 5a  25 2d 31 2e 35 29 2a 2d  |<5 D%=(Z%-1.5)*-|
000010d0  32 3a 43 25 28 5a 25 29  3d 43 25 28 5a 25 29 20  |2:C%(Z%)=C%(Z%) |
000010e0  84 20 34 3a 54 52 25 3d  31 3a 43 25 28 33 2d 5a  |. 4:TR%=1:C%(3-Z|
000010f0  25 29 3d 43 25 28 33 2d  5a 25 29 20 80 20 32 35  |%)=C%(3-Z%) . 25|
00001100  31 3a d4 30 2c 32 2c 32  39 2c 31 30 3a e5 20 8d  |1:.0,2,29,10:. .|
00001110  64 48 45 0d 05 a0 31 4e  4f 3d 94 28 a8 28 41 28  |dHE...1NO=.(.(A(|
00001120  31 2c 5a 25 29 29 2d 32  30 29 3a 5a 5a 25 3d 28  |1,Z%))-20):ZZ%=(|
00001130  b4 28 41 28 31 2c 5a 25  29 2d 32 31 29 2b 31 29  |.(A(1,Z%)-21)+1)|
00001140  2f 32 2b 31 0d 05 aa 1c  e7 4e 4f 3e 3d 31 38 20  |/2+1.....NO>=18 |
00001150  f2 73 75 6c 6b 28 5a 5a  25 29 3a e5 8d 64 48 45  |.sulk(ZZ%):..dHE|
00001160  0d 05 b4 1b e7 4e 4f 3e  3d 31 32 20 f2 64 75 64  |.....NO>=12 .dud|
00001170  28 5a 5a 25 29 3a e5 8d  64 48 45 0d 05 be 18 e7  |(ZZ%):..dHE.....|
00001180  4e 4f 3e 3d 37 20 f2 62  75 6c 6c 28 5a 5a 25 2c  |NO>=7 .bull(ZZ%,|
00001190  5a 25 29 0d 05 c8 0f f2  74 65 72 6d 69 6e 28 5a  |Z%).....termin(Z|
000011a0  25 29 0d 05 d2 05 e1 0d  05 dc 0e dd f2 73 75 6c  |%)...........sul|
000011b0  6b 28 5a 25 29 0d 05 e6  0d d4 31 2c 33 2c 32 2c  |k(Z%).....1,3,2,|
000011c0  32 30 0d 05 f0 2d e7 5a  25 3d 31 20 f2 6d 61 6e  |20...-.Z%=1 .man|
000011d0  28 30 2c 32 29 3a ef 33  31 2c 33 2c 31 38 2c 31  |(0,2):.31,3,18,1|
000011e0  36 30 20 8b 20 f2 6d 61  6e 28 33 37 2c 31 29 0d  |60 . .man(37,1).|
000011f0  05 fa 2c 43 25 28 5a 25  29 3d 43 25 28 5a 25 29  |..,C%(Z%)=C%(Z%)|
00001200  20 84 20 32 3a e7 20 4b  4f 25 28 5a 25 29 3d 30  | . 2:. KO%(Z%)=0|
00001210  20 4b 4f 25 28 5a 25 29  3d 39 35 0d 06 04 05 e1  | KO%(Z%)=95.....|
00001220  0d 06 0e 0e dd f2 64 75  64 28 5a 5a 25 29 0d 06  |......dud(ZZ%)..|
00001230  18 0d d4 31 2c 33 2c 32  2c 32 30 0d 06 22 10 f2  |...1,3,2,20.."..|
00001240  63 61 74 61 63 6c 28 5a  5a 25 29 0d 06 2c 30 43  |catacl(ZZ%)..,0C|
00001250  25 28 5a 5a 25 29 3d 43  25 28 5a 5a 25 29 20 84  |%(ZZ%)=C%(ZZ%) .|
00001260  20 32 3a e7 20 4b 4f 25  28 5a 5a 25 29 3d 30 20  | 2:. KO%(ZZ%)=0 |
00001270  4b 4f 25 28 5a 5a 25 29  3d 37 30 0d 06 36 05 e1  |KO%(ZZ%)=70..6..|
00001280  0d 06 40 12 dd f2 62 75  6c 6c 28 5a 5a 25 2c 5a  |..@...bull(ZZ%,Z|
00001290  25 29 0d 06 4a 0c d4 30  2c 34 2c 36 2c 34 0d 06  |%)..J..0,4,6,4..|
000012a0  54 17 44 41 25 28 5a 5a  25 29 3d 44 41 25 28 5a  |T.DA%(ZZ%)=DA%(Z|
000012b0  5a 25 29 2d 31 0d 06 5e  0e 48 49 3d 41 28 32 2c  |Z%)-1..^.HI=A(2,|
000012c0  5a 25 29 0d 06 68 05 f5  0d 06 72 0b 48 49 3d 48  |Z%)..h....r.HI=H|
000012d0  49 2d 31 0d 06 7c 1d fd  20 a4 50 4f 49 4e 54 28  |I-1..|.. .POINT(|
000012e0  41 28 31 2c 5a 25 29 2c  48 49 29 3c 3e 32 35 35  |A(1,Z%),HI)<>255|
000012f0  0d 06 86 18 ef 33 31 2c  41 28 31 2c 5a 25 29 2c  |.....31,A(1,Z%),|
00001300  48 49 2b 31 2c 31 36 30  0d 06 90 20 e7 20 44 41  |HI+1,160... . DA|
00001310  25 28 5a 5a 25 29 3c 31  20 5a 25 3d 33 2d 5a 5a  |%(ZZ%)<1 Z%=3-ZZ|
00001320  25 3a e5 20 8d 74 40 47  0d 06 9a 05 e1 0d 06 a4  |%:. .t@G........|
00001330  0e dd f2 69 6e 73 74 72  75 63 74 0d 06 ae 32 f1  |...instruct...2.|
00001340  8a 30 2c 33 29 3b 22 20  20 54 68 65 20 74 77 6f  |.0,3);"  The two|
00001350  20 62 61 72 6f 6e 73 2c  65 61 63 68 20 63 6f 6e  | barons,each con|
00001360  74 72 6f 6c 6c 65 64 20  62 79 20 61 22 0d 06 b8  |trolled by a"...|
00001370  2b f1 22 70 6c 61 79 65  72 2c 61 72 65 20 74 72  |+."player,are tr|
00001380  79 69 6e 67 20 74 6f 20  6b 6e 6f 63 6b 20 64 6f  |ying to knock do|
00001390  77 6e 20 65 61 63 68 22  0d 06 c2 1f f1 22 6f 74  |wn each"....."ot|
000013a0  68 65 72 73 20 63 61 73  74 6c 65 73 2c 62 79 20  |hers castles,by |
000013b0  75 73 69 6e 67 3a 22 0d  06 cc 28 f1 22 20 20 20  |using:"...(."   |
000013c0  20 20 4c 65 66 74 20 70  6c 61 79 65 72 20 20 20  |  Left player   |
000013d0  20 20 52 69 67 68 74 20  70 6c 61 79 65 72 22 0d  |  Right player".|
000013e0  06 d6 20 f1 22 20 20 20  20 20 53 48 49 46 54 20  |.. ."     SHIFT |
000013f0  4c 4f 43 4b 20 20 61 6e  64 20 43 4f 50 59 22 0d  |LOCK  and COPY".|
00001400  06 e0 2e f1 22 74 6f 20  66 69 72 65 2e 54 68 65  |...."to fire.The|
00001410  20 6c 6f 6e 67 65 72 20  74 68 65 20 6b 65 79 20  | longer the key |
00001420  69 73 20 68 65 6c 64 20  64 6f 77 6e 22 0d 06 ea  |is held down"...|
00001430  2b f1 22 62 65 66 6f 72  65 20 72 65 6c 65 61 73  |+."before releas|
00001440  69 6e 67 2c 73 6f 20 74  68 65 20 67 72 65 61 74  |ing,so the great|
00001450  65 72 20 74 68 65 20 22  0d 06 f4 2b f1 22 61 6e  |er the "...+."an|
00001460  67 6c 65 20 6f 66 20 66  69 72 65 2e 52 65 6c 65  |gle of fire.Rele|
00001470  61 73 69 6e 67 20 74 68  65 20 6b 65 79 20 6c 65  |asing the key le|
00001480  74 73 22 0d 06 fe 1b f1  22 6c 6f 6f 73 65 20 79  |ts"....."loose y|
00001490  6f 75 72 20 62 6f 75 6c  64 65 72 2e 22 27 0d 07  |our boulder."'..|
000014a0  08 2d f1 22 20 20 41 4e  59 20 4b 45 59 20 54 4f  |.-."  ANY KEY TO|
000014b0  20 43 4f 4e 54 49 4e 55  45 20 49 4e 53 54 52 55  | CONTINUE INSTRU|
000014c0  43 54 49 4f 4e 53 22 3a  47 3d a5 0d 07 12 34 f1  |CTIONS":G=....4.|
000014d0  8a 30 2c 33 29 3b 22 20  20 49 66 20 69 74 20 68  |.0,3);"  If it h|
000014e0  69 74 73 20 74 68 65 20  63 61 73 74 6c 65 2c 69  |its the castle,i|
000014f0  74 20 77 69 6c 6c 20 70  61 72 74 6c 79 20 22 0d  |t will partly ".|
00001500  07 1c 2e f1 22 63 72 75  6d 62 6c 65 20 2d 20 74  |...."crumble - t|
00001510  68 65 20 77 69 6e 6e 65  72 20 62 65 69 6e 67 20  |he winner being |
00001520  74 68 65 20 6f 6e 65 20  77 69 74 68 22 0d 07 26  |the one with"..&|
00001530  2e f1 22 73 6f 6d 65 20  63 61 73 74 6c 65 20 6c  |.."some castle l|
00001540  65 66 74 2e 20 20 20 20  20 20 20 20 20 20 20 20  |eft.            |
00001550  20 20 20 20 20 20 20 20  20 20 22 0d 07 30 2e f1  |          "..0..|
00001560  22 20 20 48 69 74 20 61  20 6d 61 6e 20 61 6e 64  |"  Hit a man and|
00001570  20 68 65 20 77 69 6c 6c  20 73 75 6c 6b 20 66 6f  | he will sulk fo|
00001580  72 20 61 20 20 20 20 20  22 0d 07 3a 2e f1 22 74  |r a     "..:.."t|
00001590  69 6d 65 2c 77 68 69 6c  73 74 20 61 20 68 69 74  |ime,whilst a hit|
000015a0  20 63 61 74 61 70 61 75  6c 74 20 74 61 6b 65 73  | catapault takes|
000015b0  20 61 20 20 20 20 22 0d  07 44 2e f1 22 6c 69 74  | a    "..D.."lit|
000015c0  74 6c 65 20 6c 65 73 73  20 74 69 6d 65 20 74 6f  |tle less time to|
000015d0  20 72 65 70 61 69 72 2e  20 20 20 20 20 20 20 20  | repair.        |
000015e0  20 20 20 20 22 0d 07 4e  2e f1 22 20 20 48 69 74  |    "..N.."  Hit|
000015f0  20 74 68 65 20 62 69 72  64 2c 61 6e 64 20 68 65  | the bird,and he|
00001600  20 77 69 6c 6c 20 64 72  6f 70 20 79 6f 75 72 20  | will drop your |
00001610  20 20 22 0d 07 58 2e f1  22 62 6f 75 6c 64 65 72  |  "..X.."boulder|
00001620  20 77 68 65 6e 20 79 6f  75 20 73 61 79 2c 73 6f  | when you say,so|
00001630  20 6c 6f 6e 67 20 61 73  20 79 6f 75 20 20 20 20  | long as you    |
00001640  22 0d 07 62 2f f1 22 77  65 72 65 20 6c 61 73 74  |"..b/."were last|
00001650  20 74 6f 20 68 69 74 20  68 69 6d 2e 55 73 65 20  | to hit him.Use |
00001660  79 6f 75 72 20 66 69 72  65 20 6b 65 79 2e 22 27  |your fire key."'|
00001670  0d 07 6c 32 f1 22 41 4e  59 20 4b 45 59 20 54 4f  |..l2."ANY KEY TO|
00001680  20 53 54 41 52 54 3a 20  20 20 20 20 20 48 41 50  | START:      HAP|
00001690  50 59 20 53 48 4f 4f 54  49 4e 47 20 20 22 3a 47  |PY SHOOTING  ":G|
000016a0  3d a5 0d 07 76 05 e1 0d  07 80 26 f1 8a 31 33 2c  |=...v.....&..13,|
000016b0  36 29 3b bd 28 31 33 30  29 3b bd 28 31 34 31 29  |6);.(130);.(141)|
000016c0  3b 22 54 48 45 20 57 49  4e 4e 45 52 22 0d 07 8a  |;"THE WINNER"...|
000016d0  26 f1 8a 31 33 2c 37 29  3b bd 28 31 33 33 29 3b  |&..13,7);.(133);|
000016e0  bd 28 31 34 31 29 3b 22  54 48 45 20 57 49 4e 4e  |.(141);"THE WINN|
000016f0  45 52 22 0d 07 94 13 ee  5a 25 20 e5 20 8d 74 5e  |ER".....Z% . .t^|
00001700  47 2c 8d 74 72 47 0d 07  9e 78 ef 33 31 2c 31 32  |G,.trG...x.31,12|
00001710  2c 38 2c 31 34 35 2c 32  35 35 2c 33 31 2c 31 31  |,8,145,255,31,11|
00001720  2c 39 2c 31 34 35 2c 32  34 38 2c 32 35 35 2c 32  |,9,145,248,255,2|
00001730  35 35 2c 33 31 2c 39 2c  31 30 2c 31 34 35 2c 32  |55,31,9,10,145,2|
00001740  34 35 2c 32 33 32 2c 32  35 35 2c 31 38 33 2c 33  |45,232,255,183,3|
00001750  31 2c 39 2c 31 31 2c 31  34 35 2c 32 35 35 2c 32  |1,9,11,145,255,2|
00001760  35 35 2c 31 36 37 2c 33  31 2c 39 2c 31 32 2c 31  |55,167,31,9,12,1|
00001770  34 35 2c 32 35 35 2c 32  35 35 2c 32 34 34 0d 07  |45,255,255,244..|
00001780  a8 09 e5 8d 74 7c 47 0d  07 b2 7b ef 33 31 2c 32  |....t|G...{.31,2|
00001790  35 2c 38 2c 31 34 35 2c  32 35 35 2c 33 31 2c 32  |5,8,145,255,31,2|
000017a0  34 2c 39 2c 31 34 35 2c  32 35 35 2c 32 35 35 2c  |4,9,145,255,255,|
000017b0  32 34 34 2c 33 31 2c 32  35 2c 31 30 2c 31 34 35  |244,31,25,10,145|
000017c0  2c 32 33 35 2c 32 35 35  2c 31 38 30 2c 32 35 30  |,235,255,180,250|
000017d0  2c 33 31 2c 32 36 2c 31  31 2c 31 34 35 2c 31 37  |,31,26,11,145,17|
000017e0  31 2c 32 35 35 2c 32 35  35 2c 33 31 2c 32 36 2c  |1,255,255,31,26,|
000017f0  31 32 2c 31 34 35 2c 32  34 38 2c 32 35 35 2c 32  |12,145,248,255,2|
00001800  35 35 0d 07 bc 0b 2a 46  58 31 35 2c 30 0d 07 c6  |55....*FX15,0...|
00001810  33 e3 54 3d 31 b8 33 3a  d4 31 2c 2d 31 35 2c 31  |3.T=1.3:.1,-15,1|
00001820  30 31 2c 33 3a d4 31 2c  2d 31 35 2c 31 31 37 2c  |01,3:.1,-15,117,|
00001830  33 3a ed 3a d4 31 2c 2d  31 35 2c 31 30 31 2c 37  |3:.:.1,-15,101,7|
00001840  0d 07 d0 1d f1 8a 31 31  2c 32 34 29 3b 22 41 4e  |......11,24);"AN|
00001850  4f 54 48 45 52 20 47 41  4d 45 3f 22 3b 0d 07 da  |OTHER GAME?";...|
00001860  29 47 24 3d be 3a e7 20  47 24 3c 3e 22 4e 22 20  |)G$=.:. G$<>"N" |
00001870  80 20 47 24 3c 3e 22 6e  22 20 8c 20 f9 20 8b 20  |. G$<>"n" . . . |
00001880  e5 20 8d 64 5a 47 0d ff                           |. .dZG..|
00001888

10-06-88/CASTLE.m0

10-06-88/CASTLE.m1

10-06-88/CASTLE.m2

10-06-88/CASTLE.m4

10-06-88/CASTLE.m5

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