Cat

Home » Archimedes archive » Micro User » MU 1990-04.adf » Cat

Cat

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 » Archimedes archive » Micro User » MU 1990-04.adf
Filename:	Cat
Read OK:	✔
File size:	1627 bytes
Load address:	FFFFFB43
Exec address:	6D57957E

File contents

   10REM Cheshire Cat
   20REM  By J.Perry
   30REM (c) The Micro User
   40IF HIMEM<&8000 PROCreloc(&1300)
   50ONERROR MODE7:REPORT:PRINT" at line ";ERL:END
   60MODE7:VDU23,1,0;0;0;0;
   70PROCi:PROCj:PROCc
   80MODE2:VDU5,23,1,0;0;0;0;
   90PROCs:PROCg
  100ti=0:REPEATti=ti+1:UNTILti>2000 OR NOTINKEY(0)
  110CLG:GCOL0,1
  120MOVE192,512:PRINT"Another Game ?"
  130REPEATA=INKEY0:UNTIL A<>-1
  140IFA=78 END
  150RUN
  160:
  170DEFPROCi
  180qu=-1:l=4:ol=4:r=4:or=4:go=0
  190F=FALSE
  200DIMk(7),lo(7),f(7)
  210FORI=1TO7:lo(I)=I
  220k(I)=100*(I DIV4)+10*((I MOD4) DIV2)+(I MOD2):NEXT
  230FORN=7TO3STEP-1:rd=RND(N-1):td=lo(N):lo(N)=lo(rd):lo(rd)=td:NEXT
  240ENVELOPE1,129,0,1,-1,0,1,1,127,-4,-2,-14,126,0:*FX9,8
  250ENVELOPE2,1,-2,-1,-1,200,50,1,10,-1,0,-126,1,1:*FX10,8
  260ENVELOPE3,2,0,0,0,1,1,1,126,-1,0,-2,126,126
  270ENVELOPE4,3,3,0,0,4,0,0,120,-3,0,-4,100,120
  280ENVELOPE5,1,15,7,0,1,1,6,127,-1,0,-2,126,126
  290ENVELOPE6,1,4,-3,-3,6,3,3,127,-1,-1,-20,126,126
  300ENVELOPE7,1,28,20,-48,1,1,1,126,-1,0,-2,126,80
  310ENVELOPE8,1,0,0,0,0,0,0,5,-1,0,-2,100,80
  320ENDPROC
  330:
  340DEFPROCj
  350PROCdb(1,10,0,"Cheshire Cat")
  360PROCdb(1,9,2,"______________")
  370PROCdb(6,5,5,"Sound On  :  Sound Off")
  380PROCdb(2,0,11,"Choose level :")
  390PROCdb(5,3,15,"One  :  Two  : Three : Four.")
  400PROCdb(4,0,20,"Press S and Q for sound.")
  410PROCdb(4,0,22,"Press Return to choose level.")
  420C=0:REPEAT:C=C+1:IFC=5 C=1
  430IFINKEY-82 qu=-1
  440IFINKEY-17 qu=0
  450PROCdb(4,17+qu*13,7,"__________")
  460PROCdb(4,3-qu*13,7,"           ")
  470IFqu SOUND0,1,1,4
  480PROCdb(4,C*8-7,17,"_______")
  490IFC>1 PROCdb(4,C*8-15,17,"       ") ELSE PROCdb(4,25,17,"       ")
  500ti=0:REPEATti=ti+1:UNTILti>200 OR INKEY-74
  510UNTILINKEY-74:gl=18+C*3
  520ENDPROC
  530:
  540DEFPROCdb(c,x,y,m$):FORI=0TO1:PRINTTAB(x,y+I);CHR$141;CHR$(128+c);m$:NEXT:ENDPROC
  550:
  560DEFPROCc
  570VDU23,224,62,65,65,129,130,130,140,240,23,225,0,62,62,78,12,12,0,0
  580VDU23,226,124,130,130,129,65,65,49,15,23,227,0,124,124,114,48,48,0,0
  590VDU23,228,0,24,24,60,60,126,126,0
  600VDU23,229,48,12,194,56,6,0,14,240,23,230,12,48,67,28,96,0,112,15
  610VDU23,231,0,238,238,238,0,187,187,187,23,232,0,126,126,24,24,126,126,0
  620VDU23,233,0,126,126,96,126,126,96,0,23,234,0,102,126,60,60,126,102,0
  630VDU23,235,0,126,66,90,90,66,126,0,23,236,0,0,60,36,36,60,0,0
  640VDU23,237,0,126,126,126,126,126,126,0,23,238,238,132,132,228,36,36,228,0
  650VDU23,239,238,170,170,174,168,168,232,0,23,240,0,126,126,24,24,24,24,0
  660br$=STRING$(5,CHR$231)+CHR$10+STRING$(5,CHR$8)+CHR$231+"   "+CHR$231+CHR$10+STRING$(5,CHR$8)+STRING$(5,CHR$231)
  670f$=CHR$233+CHR$232+CHR$240
  680ENDPROC
  690:
  700DEFPROCs
  710FORI=1TO7:PROCk(I)
  720NEXT:PROCl:PROCr:PROCx
  730FORI=1TO29:PROCbox(4,1048,I*32-4,1192,I*32+28):NEXT
  740GCOL0,6:MOVE1064,gl*32-8:PRINTCHR$238;CHR$239
  750ENDPROC
  760:
  770DEFPROCbox(c,x,y,x1,y1):GCOL0,c:MOVEx,y:DRAWx,y1:DRAWx1,y1:DRAWx1,y:DRAWx,y:ENDPROC
  780:
  790DEFPROCk(s)
  800t=s*136:PROCbox(7,160,t+16,336,t-120):PROCbox(7,72,t-32,144,t-72):GCOL0,2:MOVE80,t-40:PRINT;s
  810PROCbox(5,640,t,960,t-96)
  820MOVE640,t:PRINTbr$:PROCbox(7,696,t-28,896,t-64)
  830IFk(s)>99 GCOL0,4:MOVE192,t:PRINTCHR$226;CHR$224:GCOL0,3:MOVE192,t:PRINTCHR$227;CHR$225
  840IF(k(s)/10) MOD10=1:GCOL0,1:MOVE224,t-32:PRINTCHR$228
  850IFk(s) MOD 10=1:GCOL0,7:MOVE192,t-72:PRINTCHR$229;CHR$230
  860ENDPROC
  870:
  880DEFPROCl
  890FORI=0TO1
  900IFI=0 t=ol*136 ELSE t=l*136
  910PROCbox(7-I*6,160,t+16,336,t-120)
  920NEXT:ENDPROC
  930:
  940DEFPROCr
  950FORI=0TO1
  960IFI=0 t=or*136 ELSE t=r*136
  970PROCbox(5-I*4,640,t,960,t-96)
  980NEXT:ENDPROC
  990:
 1000DEFPROCx
 1010FORI=0TO1:GCOL0,I
 1020IFI=0 t1=ol*136-52:t2=or*136-52 ELSE t1=l*136-52:t2=r*136-52
 1030MOVE344,t1:DRAW632,t2
 1040NEXT:ENDPROC
 1050:
 1060DEFPROCg
 1070REPEAT:REPEAT
 1080IFINKEY-98:IFl>1 l=l-1:PROCl:GOTO1100
 1090IFINKEY-66:IFl<7 l=l+1:PROCl
 1100IFINKEY-73:IFr<7 r=r+1:PROCr:GOTO1120
 1110IFINKEY-105:IFr>1 r=r-1:PROCr
 1120IFor<>r OR ol<>l PROCx
 1130ol=l:or=r
 1140IFINKEY-84 F=TRUE
 1150UNTILINKEY-74 OR F=TRUE
 1160IFF=TRUE GOTO1270
 1170IFqu SOUND&11,2,255,5:SOUND&10,3,7,3
 1180PROCq:R=r*136-32
 1190go=go+1:PROCy
 1200IFS=0co=2:S$=f$:IFqu SOUND1,4,40,1
 1210IFS=1 co=1:S$=STRING$(3,CHR$234)
 1220IFS=2 AND (C=2 OR C=4) co=2:S$=f$:IFqu SOUND1,4,40,1
 1230IFS=2 AND (C=1 OR C=3) co=8:S$=STRING$(3,CHR$235):GCOL0,15:MOVE704,R:PRINTSTRING$(3,CHR$236):IFqu SOUND1,5,80,10
 1240GCOL0,co:MOVE704,R:PRINTS$
 1250ti=0:REPEATti=ti+1:UNTILINKEY-99 ORti>1000
 1260GCOL0,0:MOVE704,R:PRINTSTRING$(3,CHR$237)
 1270UNTILF OR go=gl-2
 1280PROCz:PROCm
 1290ENDPROC
 1300:
 1310DEFPROCq
 1320L=lo(r)
 1330IFC>2 V=0:LO=100-100*(L DIV4)+10-10*((L MOD4) DIV2)+1-(L MOD2):IFLO+k(l)=111 S=2:ENDPROC
 1340IFC<3 V=1:LO=100*(L DIV4)+10*((L MOD4) DIV2)+(L MOD2):IFl=L S=2:ENDPROC
 1350IFk(l) DIV100=V AND LO DIV100=0 S=1:ENDPROC
 1360IF(k(l)/10) MOD10=V AND (LO/10) MOD10=0 S=1:ENDPROC
 1370IFk(l) MOD10=V AND LO MOD10=0 S=1:ENDPROC
 1380S=0:ENDPROC
 1390:
 1400DEFPROCy
 1410FORi=0TO1:GCOL0,3-2*i
 1420G=4+go*32:I=i*12
 1430MOVE1056,I+G:MOVE1184,I+G
 1440PLOT85,1056,20-I+G:PLOT85,1184,20-I+G:NEXT
 1450ENDPROC
 1460:
 1470DEFPROCz
 1480PROCbox(7,160,l*136+16,336,l*136-120):PROCbox(7,640,r*136,960,r*136-96)
 1490GCOL0,0:MOVE344,l*136-52:DRAW632,r*136-52
 1500r=4:or=4:FORJ=1TO7
 1510ol=J:l=J:PROCl:PROCx:PROCr
 1520REPEAT
 1530IFINKEY-73:IFr<7 r=r+1:PROCr:GOTO1550
 1540IFINKEY-105:IFr>1 r=r-1:PROCr
 1550IFr<>or PROCx
 1560or=r
 1570X=0:FORK=1TO7:IFf(K)=r X=1
 1580NEXT
 1590UNTILINKEY-74 AND X=0
 1600f(J)=r:GCOL0,0:MOVE344,l*136-52:DRAW632,r*136-52:PROCf
 1610NEXT
 1620ENDPROC
 1630:
 1640DEFPROCf
 1650FORI=0TO44STEP4
 1660PROCbox(6,648+I,r*136-I-4,952-I,r*136-92+I)
 1670NEXT:GCOL0,4:MOVE648,r*136-32:PRINT;J
 1680ENDPROC
 1690:
 1700DEFPROCm:*FX15
 1710PROCbox(5,640,r*136,960,r*136-96)
 1720rig=0:FORI=1TO7
 1730FORJ=1TO7:IFlo(J)=I k=J
 1740NEXT
 1750IFk=f(I) rig=rig+1:GCOL0,8:MOVE772,k*136-32:PRINTCHR$235:C=15:S=2 ELSE C=1:S=0
 1760SOUND1,1,48+S*24,4
 1770GCOL0,C:MOVE772,k*136-32:PRINTCHR$(234+S):IFk=f(I) GCOL0,4
 1780MOVE344,I*136-52:PLOT21,632,k*136-52:MOVE896,k*136-32:PRINT;I
 1790ti=0:REPEATti=ti+1:UNTILti=500 OR NOTINKEY(0)
 1800NEXT
 1810ti=0:REPEATti=ti+1:UNTILti=2000 OR NOTINKEY(0)
 1820CLG:FORI=0TOrig
 1830SOUND1,6,50+I*5,20
 1840FORJ=0TO7:j=16+J*160:i=(I+1)*128
 1850IFrig=7 c=RND(7) ELSE c=6
 1860PROCbox(c,j-4,i+4,j+128,i-108)
 1870GCOL0,4:MOVEj,i:PRINTCHR$226;CHR$224:GCOL0,3:MOVEj,i:PRINTCHR$227;CHR$225
 1880GCOL0,1:MOVEj+32,i-32:PRINTCHR$228
 1890GCOL0,7:MOVEj,i-72:PRINTCHR$229;CHR$230
 1900NEXT:NEXT
 1910IFgo<10 g=32 ELSE g=0
 1920IFrig=7 GOTO2010
 1930R=rig*128+208
 1940GCOL0,4:MOVE64,R:PRINT"You got   correct"
 1950MOVE192,R-40:PRINT"in    guesses"
 1960FORI=0TO1:GCOL0,4+I*2
 1970MOVE576+I*8,R+I*4:PRINT;rig:MOVE384+I*8+g,R-40+I*4:PRINT;go:NEXT
 1980ti=0:REPEATti=ti+1:UNTILti=2000 OR NOTINKEY(0)
 1990ENDPROC
 2000:
 2010FORI=0TO128STEP4
 2020PROCbox(0,328+I,400+I,948-I,656-I):NEXT
 2030GCOL0,4:MOVE576,536:PRINT"in":MOVE416,448:PRINT"guesses"
 2040FORI=0TO1:GCOL0,4+I*2
 2050MOVE320+I*8,614+I*4:PRINT"ALL RIGHT!":MOVE576+I*8+g,488+I*4:PRINT;go:NEXT
 2060IFqu=FALSE GOTO2110
 2070P%=0:D%=2:SOUND2,0,0,3:SOUND3,0,0,6:FORI%=0TO16:FORE%=3TO5
 2080P%=(P%+E%)AND31
 2090SOUND1,7,P%*4,D%:SOUND2,8,P%*4,D%:SOUND3,8,P%*4,D%
 2100NEXT:NEXT
 2110ti=0:REPEATti=ti+1:UNTILti=2000 OR NOTINKEY(0)
 2120ENDPROC
 2130:
 2140DEFPROCreloc(Q%):CLS:*T.
 2150P%=PAGE:IFP%<=Q% ENDPROC
 2160L%=TOP-P%:PRINTCHR$129CHR$136"Relocating....."
 2170FORM%=0TOL%-1STEP4
 2180Q%!M%=P%!M%:NEXT
 2190PAGE=Q%:A%=138:X%=0:*FX15
 2200$&100="OLD"+CHR$13+"RUN"+CHR$6+CHR$13
 2210FORL%=&100TO&108:Y%=?L%
 2220Z%=USR&FFF4:NEXT:VDU21:ENDPROC


� Cheshire Cat
�  By J.Perry
� (c) The Micro User
(� �<&8000 �reloc(&1300)
2� �7:�:�" at line ";�:�
<�7:�23,1,0;0;0;0;
F�i:�j:�c
P�2:�5,23,1,0;0;0;0;
Z	�s:�g
d"ti=0:�ti=ti+1:�ti>2000 � ��(0)
n
�:�0,1
x�192,512:�"Another Game ?"
��A=�0:� A<>-1
��A=78 �
��
�:
���i
� qu=-1:l=4:ol=4:r=4:or=4:go=0
�F=�
��k(7),lo(7),f(7)
��I=1�7:lo(I)=I
�+k(I)=100*(I �4)+10*((I �4) �2)+(I �2):�
�9�N=7�3�-1:rd=�(N-1):td=lo(N):lo(N)=lo(rd):lo(rd)=td:�
�2�1,129,0,1,-1,0,1,1,127,-4,-2,-14,126,0:*FX9,8
�3�2,1,-2,-1,-1,200,50,1,10,-1,0,-126,1,1:*FX10,8
(�3,2,0,0,0,1,1,1,126,-1,0,-2,126,126
(�4,3,3,0,0,4,0,0,120,-3,0,-4,100,120
)�5,1,15,7,0,1,1,6,127,-1,0,-2,126,126
",�6,1,4,-3,-3,6,3,3,127,-1,-1,-20,126,126
,+�7,1,28,20,-48,1,1,1,126,-1,0,-2,126,80
6%�8,1,0,0,0,0,0,0,5,-1,0,-2,100,80
@�
J:
T��j
^�db(1,10,0,"Cheshire Cat")
h�db(1,9,2,"______________")
r'�db(6,5,5,"Sound On  :  Sound Off")
| �db(2,0,11,"Choose level :")
�.�db(5,3,15,"One  :  Two  : Three : Four.")
�*�db(4,0,20,"Press S and Q for sound.")
�/�db(4,0,22,"Press Return to choose level.")
�C=0:�:C=C+1:�C=5 C=1
��-82 qu=-1
��-17 qu=0
�"�db(4,17+qu*13,7,"__________")
�"�db(4,3-qu*13,7,"           ")
��qu �0,1,1,4
��db(4,C*8-7,17,"_______")
�<�C>1 �db(4,C*8-15,17,"       ") � �db(4,25,17,"       ")
� ti=0:�ti=ti+1:�ti>200 � �-74
���-74:gl=18+C*3
�
:
7��db(c,x,y,m$):�I=0�1:�x,y+I);�141;�(128+c);m$:�:�
&:
0��c
:D�23,224,62,65,65,129,130,130,140,240,23,225,0,62,62,78,12,12,0,0
DF�23,226,124,130,130,129,65,65,49,15,23,227,0,124,124,114,48,48,0,0
N#�23,228,0,24,24,60,60,126,126,0
XB�23,229,48,12,194,56,6,0,14,240,23,230,12,48,67,28,96,0,112,15
bH�23,231,0,238,238,238,0,187,187,187,23,232,0,126,126,24,24,126,126,0
lF�23,233,0,126,126,96,126,126,96,0,23,234,0,102,126,60,60,126,102,0
v>�23,235,0,126,66,90,90,66,126,0,23,236,0,0,60,36,36,60,0,0
�J�23,237,0,126,126,126,126,126,126,0,23,238,238,132,132,228,36,36,228,0
�H�23,239,238,170,170,174,168,168,232,0,23,240,0,126,126,24,24,24,24,0
�?br$=�5,�231)+�10+�5,�8)+�231+"   "+�231+�10+�5,�8)+�5,�231)
�f$=�233+�232+�240
��
�:
���s
��I=1�7:�k(I)
��:�l:�r:�x
�.�I=1�29:�box(4,1048,I*32-4,1192,I*32+28):�
�!�0,6:�1064,gl*32-8:�238;�239
��
�:
:��box(c,x,y,x1,y1):�0,c:�x,y:�x,y1:�x1,y1:�x1,y:�x,y:�
:

��k(s)
 Qt=s*136:�box(7,160,t+16,336,t-120):�box(7,72,t-32,144,t-72):�0,2:�80,t-40:�;s
*�box(5,640,t,960,t-96)
4)�640,t:�br$:�box(7,696,t-28,896,t-64)
>:�k(s)>99 �0,4:�192,t:�226;�224:�0,3:�192,t:�227;�225
H)�(k(s)/10) �10=1:�0,1:�224,t-32:�228
R*�k(s) � 10=1:�0,7:�192,t-72:�229;�230
\�
f:
p��l
z
�I=0�1
��I=0 t=ol*136 � t=l*136
�"�box(7-I*6,160,t+16,336,t-120)
��:�
�:
���r
�
�I=0�1
��I=0 t=or*136 � t=r*136
��box(5-I*4,640,t,960,t-96)
��:�
�:
���x
��I=0�1:�0,I
�<�I=0 t1=ol*136-52:t2=or*136-52 � t1=l*136-52:t2=r*136-52
�344,t1:�632,t2
�:�
:
$��g
.�:�
8�-98:�l>1 l=l-1:�l:�DLD
B�-66:�l<7 l=l+1:�l
L�-73:�r<7 r=r+1:�r:�D`D
V�-105:�r>1 r=r-1:�r
`�or<>r � ol<>l �x
j
ol=l:or=r
t
�-84 F=�
~��-74 � F=�
��F=� �dvD
��qu �&11,2,255,5:�&10,3,7,3
��q:R=r*136-32
�go=go+1:�y
� �S=0co=2:S$=f$:�qu �1,4,40,1
��S=1 co=1:S$=�3,�234)
�/�S=2 � (C=2 � C=4) co=2:S$=f$:�qu �1,4,40,1
�M�S=2 � (C=1 � C=3) co=8:S$=�3,�235):�0,15:�704,R:��3,�236):�qu �1,5,80,10
��0,co:�704,R:�S$
� ti=0:�ti=ti+1:��-99 �ti>1000
��0,0:�704,R:��3,�237)
��F � go=gl-2
	�z:�m

�
:
��q
(L=lo(r)
2L�C>2 V=0:LO=100-100*(L �4)+10-10*((L �4) �2)+1-(L �2):�LO+k(l)=111 S=2:�
<;�C<3 V=1:LO=100*(L �4)+10*((L �4) �2)+(L �2):�l=L S=2:�
F"�k(l) �100=V � LO �100=0 S=1:�
P*�(k(l)/10) �10=V � (LO/10) �10=0 S=1:�
Z �k(l) �10=V � LO �10=0 S=1:�
d	S=0:�
n:
x��y
��i=0�1:�0,3-2*i
�G=4+go*32:I=i*12
��1056,I+G:�1184,I+G
�%�85,1056,20-I+G:�85,1184,20-I+G:�
��
�:
���z
�E�box(7,160,l*136+16,336,l*136-120):�box(7,640,r*136,960,r*136-96)
�$�0,0:�344,l*136-52:�632,r*136-52
�r=4:or=4:�J=1�7
�ol=J:l=J:�l:�x:�r
��
��-73:�r<7 r=r+1:�r:�TNF
�-105:�r>1 r=r-1:�r

�r<>or �x
or=r
"X=0:�K=1�7:�f(K)=r X=1
,�
6��-74 � X=0
@.f(J)=r:�0,0:�344,l*136-52:�632,r*136-52:�f
J�
T�
^:
h��f
r
�I=0�44�4
|,�box(6,648+I,r*136-I-4,952-I,r*136-92+I)
��:�0,4:�648,r*136-32:�;J
��
�:
�
��m:*FX15
�"�box(5,640,r*136,960,r*136-96)
�rig=0:�I=1�7
��J=1�7:�lo(J)=I k=J
��
�A�k=f(I) rig=rig+1:�0,8:�772,k*136-32:�235:C=15:S=2 � C=1:S=0
��1,1,48+S*24,4
�-�0,C:�772,k*136-32:�(234+S):�k=f(I) �0,4
�4�344,I*136-52:�21,632,k*136-52:�896,k*136-32:�;I
�!ti=0:�ti=ti+1:�ti=500 � ��(0)
�
"ti=0:�ti=ti+1:�ti=2000 � ��(0)
�:�I=0�rig
&�1,6,50+I*5,20
0!�J=0�7:j=16+J*160:i=(I+1)*128
:�rig=7 c=�(7) � c=6
D�box(c,j-4,i+4,j+128,i-108)
N-�0,4:�j,i:�226;�224:�0,3:�j,i:�227;�225
X�0,1:�j+32,i-32:�228
b�0,7:�j,i-72:�229;�230
l�:�
v�go<10 g=32 � g=0
��rig=7 �dZG
�R=rig*128+208
�#�0,4:�64,R:�"You got   correct"
��192,R-40:�"in    guesses"
��I=0�1:�0,4+I*2
�3�576+I*8,R+I*4:�;rig:�384+I*8+g,R-40+I*4:�;go:�
�"ti=0:�ti=ti+1:�ti=2000 � ��(0)
��
�:
��I=0�128�4
�%�box(0,328+I,400+I,948-I,656-I):�
�+�0,4:�576,536:�"in":�416,448:�"guesses"
��I=0�1:�0,4+I*2
<�320+I*8,614+I*4:�"ALL RIGHT!":�576+I*8+g,488+I*4:�;go:�
�qu=� �T~H
0P%=0:D%=2:�2,0,0,3:�3,0,0,6:�I%=0�16:�E%=3�5
 P%=(P%+E%)�31
**�1,7,P%*4,D%:�2,8,P%*4,D%:�3,8,P%*4,D%
4�:�
>"ti=0:�ti=ti+1:�ti=2000 � ��(0)
H�
R:
\��reloc(Q%):�:*T.
fP%=�:�P%<=Q% �
p'L%=�P-P%:�129�136"Relocating....."
z�M%=0�L%-1�4
�Q%!M%=P%!M%:�
��=Q%:A%=138:X%=0:*FX15
� $&100="OLD"+�13+"RUN"+�6+�13
��L%=&100�&108:Y%=?L%
�Z%=�&FFF4:�:�21:�
�

00000000  0d 00 0a 12 f4 20 43 68  65 73 68 69 72 65 20 43  |..... Cheshire C|
00000010  61 74 0d 00 14 11 f4 20  20 42 79 20 4a 2e 50 65  |at.....  By J.Pe|
00000020  72 72 79 0d 00 1e 18 f4  20 28 63 29 20 54 68 65  |rry..... (c) The|
00000030  20 4d 69 63 72 6f 20 55  73 65 72 0d 00 28 1b e7  | Micro User..(..|
00000040  20 93 3c 26 38 30 30 30  20 f2 72 65 6c 6f 63 28  | .<&8000 .reloc(|
00000050  26 31 33 30 30 29 0d 00  32 1c ee 85 20 eb 37 3a  |&1300)..2... .7:|
00000060  f6 3a f1 22 20 61 74 20  6c 69 6e 65 20 22 3b 9e  |.:." at line ";.|
00000070  3a e0 0d 00 3c 15 eb 37  3a ef 32 33 2c 31 2c 30  |:...<..7:.23,1,0|
00000080  3b 30 3b 30 3b 30 3b 0d  00 46 0c f2 69 3a f2 6a  |;0;0;0;..F..i:.j|
00000090  3a f2 63 0d 00 50 17 eb  32 3a ef 35 2c 32 33 2c  |:.c..P..2:.5,23,|
000000a0  31 2c 30 3b 30 3b 30 3b  30 3b 0d 00 5a 09 f2 73  |1,0;0;0;0;..Z..s|
000000b0  3a f2 67 0d 00 64 22 74  69 3d 30 3a f5 74 69 3d  |:.g..d"ti=0:.ti=|
000000c0  74 69 2b 31 3a fd 74 69  3e 32 30 30 30 20 84 20  |ti+1:.ti>2000 . |
000000d0  ac a6 28 30 29 0d 00 6e  0a da 3a e6 30 2c 31 0d  |..(0)..n..:.0,1.|
000000e0  00 78 1e ec 31 39 32 2c  35 31 32 3a f1 22 41 6e  |.x..192,512:."An|
000000f0  6f 74 68 65 72 20 47 61  6d 65 20 3f 22 0d 00 82  |other Game ?"...|
00000100  11 f5 41 3d a6 30 3a fd  20 41 3c 3e 2d 31 0d 00  |..A=.0:. A<>-1..|
00000110  8c 0b e7 41 3d 37 38 20  e0 0d 00 96 05 f9 0d 00  |...A=78 ........|
00000120  a0 05 3a 0d 00 aa 07 dd  f2 69 0d 00 b4 20 71 75  |..:......i... qu|
00000130  3d 2d 31 3a 6c 3d 34 3a  6f 6c 3d 34 3a 72 3d 34  |=-1:l=4:ol=4:r=4|
00000140  3a 6f 72 3d 34 3a 67 6f  3d 30 0d 00 be 07 46 3d  |:or=4:go=0....F=|
00000150  a3 0d 00 c8 14 de 6b 28  37 29 2c 6c 6f 28 37 29  |......k(7),lo(7)|
00000160  2c 66 28 37 29 0d 00 d2  12 e3 49 3d 31 b8 37 3a  |,f(7).....I=1.7:|
00000170  6c 6f 28 49 29 3d 49 0d  00 dc 2b 6b 28 49 29 3d  |lo(I)=I...+k(I)=|
00000180  31 30 30 2a 28 49 20 81  34 29 2b 31 30 2a 28 28  |100*(I .4)+10*((|
00000190  49 20 83 34 29 20 81 32  29 2b 28 49 20 83 32 29  |I .4) .2)+(I .2)|
000001a0  3a ed 0d 00 e6 39 e3 4e  3d 37 b8 33 88 2d 31 3a  |:....9.N=7.3.-1:|
000001b0  72 64 3d b3 28 4e 2d 31  29 3a 74 64 3d 6c 6f 28  |rd=.(N-1):td=lo(|
000001c0  4e 29 3a 6c 6f 28 4e 29  3d 6c 6f 28 72 64 29 3a  |N):lo(N)=lo(rd):|
000001d0  6c 6f 28 72 64 29 3d 74  64 3a ed 0d 00 f0 32 e2  |lo(rd)=td:....2.|
000001e0  31 2c 31 32 39 2c 30 2c  31 2c 2d 31 2c 30 2c 31  |1,129,0,1,-1,0,1|
000001f0  2c 31 2c 31 32 37 2c 2d  34 2c 2d 32 2c 2d 31 34  |,1,127,-4,-2,-14|
00000200  2c 31 32 36 2c 30 3a 2a  46 58 39 2c 38 0d 00 fa  |,126,0:*FX9,8...|
00000210  33 e2 32 2c 31 2c 2d 32  2c 2d 31 2c 2d 31 2c 32  |3.2,1,-2,-1,-1,2|
00000220  30 30 2c 35 30 2c 31 2c  31 30 2c 2d 31 2c 30 2c  |00,50,1,10,-1,0,|
00000230  2d 31 32 36 2c 31 2c 31  3a 2a 46 58 31 30 2c 38  |-126,1,1:*FX10,8|
00000240  0d 01 04 28 e2 33 2c 32  2c 30 2c 30 2c 30 2c 31  |...(.3,2,0,0,0,1|
00000250  2c 31 2c 31 2c 31 32 36  2c 2d 31 2c 30 2c 2d 32  |,1,1,126,-1,0,-2|
00000260  2c 31 32 36 2c 31 32 36  0d 01 0e 28 e2 34 2c 33  |,126,126...(.4,3|
00000270  2c 33 2c 30 2c 30 2c 34  2c 30 2c 30 2c 31 32 30  |,3,0,0,4,0,0,120|
00000280  2c 2d 33 2c 30 2c 2d 34  2c 31 30 30 2c 31 32 30  |,-3,0,-4,100,120|
00000290  0d 01 18 29 e2 35 2c 31  2c 31 35 2c 37 2c 30 2c  |...).5,1,15,7,0,|
000002a0  31 2c 31 2c 36 2c 31 32  37 2c 2d 31 2c 30 2c 2d  |1,1,6,127,-1,0,-|
000002b0  32 2c 31 32 36 2c 31 32  36 0d 01 22 2c e2 36 2c  |2,126,126..",.6,|
000002c0  31 2c 34 2c 2d 33 2c 2d  33 2c 36 2c 33 2c 33 2c  |1,4,-3,-3,6,3,3,|
000002d0  31 32 37 2c 2d 31 2c 2d  31 2c 2d 32 30 2c 31 32  |127,-1,-1,-20,12|
000002e0  36 2c 31 32 36 0d 01 2c  2b e2 37 2c 31 2c 32 38  |6,126..,+.7,1,28|
000002f0  2c 32 30 2c 2d 34 38 2c  31 2c 31 2c 31 2c 31 32  |,20,-48,1,1,1,12|
00000300  36 2c 2d 31 2c 30 2c 2d  32 2c 31 32 36 2c 38 30  |6,-1,0,-2,126,80|
00000310  0d 01 36 25 e2 38 2c 31  2c 30 2c 30 2c 30 2c 30  |..6%.8,1,0,0,0,0|
00000320  2c 30 2c 30 2c 35 2c 2d  31 2c 30 2c 2d 32 2c 31  |,0,0,5,-1,0,-2,1|
00000330  30 30 2c 38 30 0d 01 40  05 e1 0d 01 4a 05 3a 0d  |00,80..@....J.:.|
00000340  01 54 07 dd f2 6a 0d 01  5e 1e f2 64 62 28 31 2c  |.T...j..^..db(1,|
00000350  31 30 2c 30 2c 22 43 68  65 73 68 69 72 65 20 43  |10,0,"Cheshire C|
00000360  61 74 22 29 0d 01 68 1f  f2 64 62 28 31 2c 39 2c  |at")..h..db(1,9,|
00000370  32 2c 22 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |2,"_____________|
00000380  5f 22 29 0d 01 72 27 f2  64 62 28 36 2c 35 2c 35  |_")..r'.db(6,5,5|
00000390  2c 22 53 6f 75 6e 64 20  4f 6e 20 20 3a 20 20 53  |,"Sound On  :  S|
000003a0  6f 75 6e 64 20 4f 66 66  22 29 0d 01 7c 20 f2 64  |ound Off")..| .d|
000003b0  62 28 32 2c 30 2c 31 31  2c 22 43 68 6f 6f 73 65  |b(2,0,11,"Choose|
000003c0  20 6c 65 76 65 6c 20 3a  22 29 0d 01 86 2e f2 64  | level :").....d|
000003d0  62 28 35 2c 33 2c 31 35  2c 22 4f 6e 65 20 20 3a  |b(5,3,15,"One  :|
000003e0  20 20 54 77 6f 20 20 3a  20 54 68 72 65 65 20 3a  |  Two  : Three :|
000003f0  20 46 6f 75 72 2e 22 29  0d 01 90 2a f2 64 62 28  | Four.")...*.db(|
00000400  34 2c 30 2c 32 30 2c 22  50 72 65 73 73 20 53 20  |4,0,20,"Press S |
00000410  61 6e 64 20 51 20 66 6f  72 20 73 6f 75 6e 64 2e  |and Q for sound.|
00000420  22 29 0d 01 9a 2f f2 64  62 28 34 2c 30 2c 32 32  |").../.db(4,0,22|
00000430  2c 22 50 72 65 73 73 20  52 65 74 75 72 6e 20 74  |,"Press Return t|
00000440  6f 20 63 68 6f 6f 73 65  20 6c 65 76 65 6c 2e 22  |o choose level."|
00000450  29 0d 01 a4 18 43 3d 30  3a f5 3a 43 3d 43 2b 31  |)....C=0:.:C=C+1|
00000460  3a e7 43 3d 35 20 43 3d  31 0d 01 ae 0f e7 a6 2d  |:.C=5 C=1......-|
00000470  38 32 20 71 75 3d 2d 31  0d 01 b8 0e e7 a6 2d 31  |82 qu=-1......-1|
00000480  37 20 71 75 3d 30 0d 01  c2 22 f2 64 62 28 34 2c  |7 qu=0...".db(4,|
00000490  31 37 2b 71 75 2a 31 33  2c 37 2c 22 5f 5f 5f 5f  |17+qu*13,7,"____|
000004a0  5f 5f 5f 5f 5f 5f 22 29  0d 01 cc 22 f2 64 62 28  |______")...".db(|
000004b0  34 2c 33 2d 71 75 2a 31  33 2c 37 2c 22 20 20 20  |4,3-qu*13,7,"   |
000004c0  20 20 20 20 20 20 20 20  22 29 0d 01 d6 10 e7 71  |        ").....q|
000004d0  75 20 d4 30 2c 31 2c 31  2c 34 0d 01 e0 1d f2 64  |u .0,1,1,4.....d|
000004e0  62 28 34 2c 43 2a 38 2d  37 2c 31 37 2c 22 5f 5f  |b(4,C*8-7,17,"__|
000004f0  5f 5f 5f 5f 5f 22 29 0d  01 ea 3c e7 43 3e 31 20  |_____")...<.C>1 |
00000500  f2 64 62 28 34 2c 43 2a  38 2d 31 35 2c 31 37 2c  |.db(4,C*8-15,17,|
00000510  22 20 20 20 20 20 20 20  22 29 20 8b 20 f2 64 62  |"       ") . .db|
00000520  28 34 2c 32 35 2c 31 37  2c 22 20 20 20 20 20 20  |(4,25,17,"      |
00000530  20 22 29 0d 01 f4 20 74  69 3d 30 3a f5 74 69 3d  | ")... ti=0:.ti=|
00000540  74 69 2b 31 3a fd 74 69  3e 32 30 30 20 84 20 a6  |ti+1:.ti>200 . .|
00000550  2d 37 34 0d 01 fe 13 fd  a6 2d 37 34 3a 67 6c 3d  |-74......-74:gl=|
00000560  31 38 2b 43 2a 33 0d 02  08 05 e1 0d 02 12 05 3a  |18+C*3.........:|
00000570  0d 02 1c 37 dd f2 64 62  28 63 2c 78 2c 79 2c 6d  |...7..db(c,x,y,m|
00000580  24 29 3a e3 49 3d 30 b8  31 3a f1 8a 78 2c 79 2b  |$):.I=0.1:..x,y+|
00000590  49 29 3b bd 31 34 31 3b  bd 28 31 32 38 2b 63 29  |I);.141;.(128+c)|
000005a0  3b 6d 24 3a ed 3a e1 0d  02 26 05 3a 0d 02 30 07  |;m$:.:...&.:..0.|
000005b0  dd f2 63 0d 02 3a 44 ef  32 33 2c 32 32 34 2c 36  |..c..:D.23,224,6|
000005c0  32 2c 36 35 2c 36 35 2c  31 32 39 2c 31 33 30 2c  |2,65,65,129,130,|
000005d0  31 33 30 2c 31 34 30 2c  32 34 30 2c 32 33 2c 32  |130,140,240,23,2|
000005e0  32 35 2c 30 2c 36 32 2c  36 32 2c 37 38 2c 31 32  |25,0,62,62,78,12|
000005f0  2c 31 32 2c 30 2c 30 0d  02 44 46 ef 32 33 2c 32  |,12,0,0..DF.23,2|
00000600  32 36 2c 31 32 34 2c 31  33 30 2c 31 33 30 2c 31  |26,124,130,130,1|
00000610  32 39 2c 36 35 2c 36 35  2c 34 39 2c 31 35 2c 32  |29,65,65,49,15,2|
00000620  33 2c 32 32 37 2c 30 2c  31 32 34 2c 31 32 34 2c  |3,227,0,124,124,|
00000630  31 31 34 2c 34 38 2c 34  38 2c 30 2c 30 0d 02 4e  |114,48,48,0,0..N|
00000640  23 ef 32 33 2c 32 32 38  2c 30 2c 32 34 2c 32 34  |#.23,228,0,24,24|
00000650  2c 36 30 2c 36 30 2c 31  32 36 2c 31 32 36 2c 30  |,60,60,126,126,0|
00000660  0d 02 58 42 ef 32 33 2c  32 32 39 2c 34 38 2c 31  |..XB.23,229,48,1|
00000670  32 2c 31 39 34 2c 35 36  2c 36 2c 30 2c 31 34 2c  |2,194,56,6,0,14,|
00000680  32 34 30 2c 32 33 2c 32  33 30 2c 31 32 2c 34 38  |240,23,230,12,48|
00000690  2c 36 37 2c 32 38 2c 39  36 2c 30 2c 31 31 32 2c  |,67,28,96,0,112,|
000006a0  31 35 0d 02 62 48 ef 32  33 2c 32 33 31 2c 30 2c  |15..bH.23,231,0,|
000006b0  32 33 38 2c 32 33 38 2c  32 33 38 2c 30 2c 31 38  |238,238,238,0,18|
000006c0  37 2c 31 38 37 2c 31 38  37 2c 32 33 2c 32 33 32  |7,187,187,23,232|
000006d0  2c 30 2c 31 32 36 2c 31  32 36 2c 32 34 2c 32 34  |,0,126,126,24,24|
000006e0  2c 31 32 36 2c 31 32 36  2c 30 0d 02 6c 46 ef 32  |,126,126,0..lF.2|
000006f0  33 2c 32 33 33 2c 30 2c  31 32 36 2c 31 32 36 2c  |3,233,0,126,126,|
00000700  39 36 2c 31 32 36 2c 31  32 36 2c 39 36 2c 30 2c  |96,126,126,96,0,|
00000710  32 33 2c 32 33 34 2c 30  2c 31 30 32 2c 31 32 36  |23,234,0,102,126|
00000720  2c 36 30 2c 36 30 2c 31  32 36 2c 31 30 32 2c 30  |,60,60,126,102,0|
00000730  0d 02 76 3e ef 32 33 2c  32 33 35 2c 30 2c 31 32  |..v>.23,235,0,12|
00000740  36 2c 36 36 2c 39 30 2c  39 30 2c 36 36 2c 31 32  |6,66,90,90,66,12|
00000750  36 2c 30 2c 32 33 2c 32  33 36 2c 30 2c 30 2c 36  |6,0,23,236,0,0,6|
00000760  30 2c 33 36 2c 33 36 2c  36 30 2c 30 2c 30 0d 02  |0,36,36,60,0,0..|
00000770  80 4a ef 32 33 2c 32 33  37 2c 30 2c 31 32 36 2c  |.J.23,237,0,126,|
00000780  31 32 36 2c 31 32 36 2c  31 32 36 2c 31 32 36 2c  |126,126,126,126,|
00000790  31 32 36 2c 30 2c 32 33  2c 32 33 38 2c 32 33 38  |126,0,23,238,238|
000007a0  2c 31 33 32 2c 31 33 32  2c 32 32 38 2c 33 36 2c  |,132,132,228,36,|
000007b0  33 36 2c 32 32 38 2c 30  0d 02 8a 48 ef 32 33 2c  |36,228,0...H.23,|
000007c0  32 33 39 2c 32 33 38 2c  31 37 30 2c 31 37 30 2c  |239,238,170,170,|
000007d0  31 37 34 2c 31 36 38 2c  31 36 38 2c 32 33 32 2c  |174,168,168,232,|
000007e0  30 2c 32 33 2c 32 34 30  2c 30 2c 31 32 36 2c 31  |0,23,240,0,126,1|
000007f0  32 36 2c 32 34 2c 32 34  2c 32 34 2c 32 34 2c 30  |26,24,24,24,24,0|
00000800  0d 02 94 3f 62 72 24 3d  c4 35 2c bd 32 33 31 29  |...?br$=.5,.231)|
00000810  2b bd 31 30 2b c4 35 2c  bd 38 29 2b bd 32 33 31  |+.10+.5,.8)+.231|
00000820  2b 22 20 20 20 22 2b bd  32 33 31 2b bd 31 30 2b  |+"   "+.231+.10+|
00000830  c4 35 2c bd 38 29 2b c4  35 2c bd 32 33 31 29 0d  |.5,.8)+.5,.231).|
00000840  02 9e 15 66 24 3d bd 32  33 33 2b bd 32 33 32 2b  |...f$=.233+.232+|
00000850  bd 32 34 30 0d 02 a8 05  e1 0d 02 b2 05 3a 0d 02  |.240.........:..|
00000860  bc 07 dd f2 73 0d 02 c6  10 e3 49 3d 31 b8 37 3a  |....s.....I=1.7:|
00000870  f2 6b 28 49 29 0d 02 d0  0e ed 3a f2 6c 3a f2 72  |.k(I).....:.l:.r|
00000880  3a f2 78 0d 02 da 2e e3  49 3d 31 b8 32 39 3a f2  |:.x.....I=1.29:.|
00000890  62 6f 78 28 34 2c 31 30  34 38 2c 49 2a 33 32 2d  |box(4,1048,I*32-|
000008a0  34 2c 31 31 39 32 2c 49  2a 33 32 2b 32 38 29 3a  |4,1192,I*32+28):|
000008b0  ed 0d 02 e4 21 e6 30 2c  36 3a ec 31 30 36 34 2c  |....!.0,6:.1064,|
000008c0  67 6c 2a 33 32 2d 38 3a  f1 bd 32 33 38 3b bd 32  |gl*32-8:..238;.2|
000008d0  33 39 0d 02 ee 05 e1 0d  02 f8 05 3a 0d 03 02 3a  |39.........:...:|
000008e0  dd f2 62 6f 78 28 63 2c  78 2c 79 2c 78 31 2c 79  |..box(c,x,y,x1,y|
000008f0  31 29 3a e6 30 2c 63 3a  ec 78 2c 79 3a df 78 2c  |1):.0,c:.x,y:.x,|
00000900  79 31 3a df 78 31 2c 79  31 3a df 78 31 2c 79 3a  |y1:.x1,y1:.x1,y:|
00000910  df 78 2c 79 3a e1 0d 03  0c 05 3a 0d 03 16 0a dd  |.x,y:.....:.....|
00000920  f2 6b 28 73 29 0d 03 20  51 74 3d 73 2a 31 33 36  |.k(s).. Qt=s*136|
00000930  3a f2 62 6f 78 28 37 2c  31 36 30 2c 74 2b 31 36  |:.box(7,160,t+16|
00000940  2c 33 33 36 2c 74 2d 31  32 30 29 3a f2 62 6f 78  |,336,t-120):.box|
00000950  28 37 2c 37 32 2c 74 2d  33 32 2c 31 34 34 2c 74  |(7,72,t-32,144,t|
00000960  2d 37 32 29 3a e6 30 2c  32 3a ec 38 30 2c 74 2d  |-72):.0,2:.80,t-|
00000970  34 30 3a f1 3b 73 0d 03  2a 1a f2 62 6f 78 28 35  |40:.;s..*..box(5|
00000980  2c 36 34 30 2c 74 2c 39  36 30 2c 74 2d 39 36 29  |,640,t,960,t-96)|
00000990  0d 03 34 29 ec 36 34 30  2c 74 3a f1 62 72 24 3a  |..4).640,t:.br$:|
000009a0  f2 62 6f 78 28 37 2c 36  39 36 2c 74 2d 32 38 2c  |.box(7,696,t-28,|
000009b0  38 39 36 2c 74 2d 36 34  29 0d 03 3e 3a e7 6b 28  |896,t-64)..>:.k(|
000009c0  73 29 3e 39 39 20 e6 30  2c 34 3a ec 31 39 32 2c  |s)>99 .0,4:.192,|
000009d0  74 3a f1 bd 32 32 36 3b  bd 32 32 34 3a e6 30 2c  |t:..226;.224:.0,|
000009e0  33 3a ec 31 39 32 2c 74  3a f1 bd 32 32 37 3b bd  |3:.192,t:..227;.|
000009f0  32 32 35 0d 03 48 29 e7  28 6b 28 73 29 2f 31 30  |225..H).(k(s)/10|
00000a00  29 20 83 31 30 3d 31 3a  e6 30 2c 31 3a ec 32 32  |) .10=1:.0,1:.22|
00000a10  34 2c 74 2d 33 32 3a f1  bd 32 32 38 0d 03 52 2a  |4,t-32:..228..R*|
00000a20  e7 6b 28 73 29 20 83 20  31 30 3d 31 3a e6 30 2c  |.k(s) . 10=1:.0,|
00000a30  37 3a ec 31 39 32 2c 74  2d 37 32 3a f1 bd 32 32  |7:.192,t-72:..22|
00000a40  39 3b bd 32 33 30 0d 03  5c 05 e1 0d 03 66 05 3a  |9;.230..\....f.:|
00000a50  0d 03 70 07 dd f2 6c 0d  03 7a 0a e3 49 3d 30 b8  |..p...l..z..I=0.|
00000a60  31 0d 03 84 1b e7 49 3d  30 20 74 3d 6f 6c 2a 31  |1.....I=0 t=ol*1|
00000a70  33 36 20 8b 20 74 3d 6c  2a 31 33 36 0d 03 8e 22  |36 . t=l*136..."|
00000a80  f2 62 6f 78 28 37 2d 49  2a 36 2c 31 36 30 2c 74  |.box(7-I*6,160,t|
00000a90  2b 31 36 2c 33 33 36 2c  74 2d 31 32 30 29 0d 03  |+16,336,t-120)..|
00000aa0  98 07 ed 3a e1 0d 03 a2  05 3a 0d 03 ac 07 dd f2  |...:.....:......|
00000ab0  72 0d 03 b6 0a e3 49 3d  30 b8 31 0d 03 c0 1b e7  |r.....I=0.1.....|
00000ac0  49 3d 30 20 74 3d 6f 72  2a 31 33 36 20 8b 20 74  |I=0 t=or*136 . t|
00000ad0  3d 72 2a 31 33 36 0d 03  ca 1e f2 62 6f 78 28 35  |=r*136.....box(5|
00000ae0  2d 49 2a 34 2c 36 34 30  2c 74 2c 39 36 30 2c 74  |-I*4,640,t,960,t|
00000af0  2d 39 36 29 0d 03 d4 07  ed 3a e1 0d 03 de 05 3a  |-96).....:.....:|
00000b00  0d 03 e8 07 dd f2 78 0d  03 f2 0f e3 49 3d 30 b8  |......x.....I=0.|
00000b10  31 3a e6 30 2c 49 0d 03  fc 3c e7 49 3d 30 20 74  |1:.0,I...<.I=0 t|
00000b20  31 3d 6f 6c 2a 31 33 36  2d 35 32 3a 74 32 3d 6f  |1=ol*136-52:t2=o|
00000b30  72 2a 31 33 36 2d 35 32  20 8b 20 74 31 3d 6c 2a  |r*136-52 . t1=l*|
00000b40  31 33 36 2d 35 32 3a 74  32 3d 72 2a 31 33 36 2d  |136-52:t2=r*136-|
00000b50  35 32 0d 04 06 13 ec 33  34 34 2c 74 31 3a df 36  |52.....344,t1:.6|
00000b60  33 32 2c 74 32 0d 04 10  07 ed 3a e1 0d 04 1a 05  |32,t2.....:.....|
00000b70  3a 0d 04 24 07 dd f2 67  0d 04 2e 07 f5 3a f5 0d  |:..$...g.....:..|
00000b80  04 38 1d e7 a6 2d 39 38  3a e7 6c 3e 31 20 6c 3d  |.8...-98:.l>1 l=|
00000b90  6c 2d 31 3a f2 6c 3a e5  8d 44 4c 44 0d 04 42 17  |l-1:.l:..DLD..B.|
00000ba0  e7 a6 2d 36 36 3a e7 6c  3c 37 20 6c 3d 6c 2b 31  |..-66:.l<7 l=l+1|
00000bb0  3a f2 6c 0d 04 4c 1d e7  a6 2d 37 33 3a e7 72 3c  |:.l..L...-73:.r<|
00000bc0  37 20 72 3d 72 2b 31 3a  f2 72 3a e5 8d 44 60 44  |7 r=r+1:.r:..D`D|
00000bd0  0d 04 56 18 e7 a6 2d 31  30 35 3a e7 72 3e 31 20  |..V...-105:.r>1 |
00000be0  72 3d 72 2d 31 3a f2 72  0d 04 60 15 e7 6f 72 3c  |r=r-1:.r..`..or<|
00000bf0  3e 72 20 84 20 6f 6c 3c  3e 6c 20 f2 78 0d 04 6a  |>r . ol<>l .x..j|
00000c00  0d 6f 6c 3d 6c 3a 6f 72  3d 72 0d 04 74 0d e7 a6  |.ol=l:or=r..t...|
00000c10  2d 38 34 20 46 3d b9 0d  04 7e 0f fd a6 2d 37 34  |-84 F=...~...-74|
00000c20  20 84 20 46 3d b9 0d 04  88 0e e7 46 3d b9 20 e5  | . F=......F=. .|
00000c30  8d 64 76 44 0d 04 92 1f  e7 71 75 20 d4 26 31 31  |.dvD.....qu .&11|
00000c40  2c 32 2c 32 35 35 2c 35  3a d4 26 31 30 2c 33 2c  |,2,255,5:.&10,3,|
00000c50  37 2c 33 0d 04 9c 11 f2  71 3a 52 3d 72 2a 31 33  |7,3.....q:R=r*13|
00000c60  36 2d 33 32 0d 04 a6 0e  67 6f 3d 67 6f 2b 31 3a  |6-32....go=go+1:|
00000c70  f2 79 0d 04 b0 20 e7 53  3d 30 63 6f 3d 32 3a 53  |.y... .S=0co=2:S|
00000c80  24 3d 66 24 3a e7 71 75  20 d4 31 2c 34 2c 34 30  |$=f$:.qu .1,4,40|
00000c90  2c 31 0d 04 ba 19 e7 53  3d 31 20 63 6f 3d 31 3a  |,1.....S=1 co=1:|
00000ca0  53 24 3d c4 33 2c bd 32  33 34 29 0d 04 c4 2f e7  |S$=.3,.234).../.|
00000cb0  53 3d 32 20 80 20 28 43  3d 32 20 84 20 43 3d 34  |S=2 . (C=2 . C=4|
00000cc0  29 20 63 6f 3d 32 3a 53  24 3d 66 24 3a e7 71 75  |) co=2:S$=f$:.qu|
00000cd0  20 d4 31 2c 34 2c 34 30  2c 31 0d 04 ce 4d e7 53  | .1,4,40,1...M.S|
00000ce0  3d 32 20 80 20 28 43 3d  31 20 84 20 43 3d 33 29  |=2 . (C=1 . C=3)|
00000cf0  20 63 6f 3d 38 3a 53 24  3d c4 33 2c bd 32 33 35  | co=8:S$=.3,.235|
00000d00  29 3a e6 30 2c 31 35 3a  ec 37 30 34 2c 52 3a f1  |):.0,15:.704,R:.|
00000d10  c4 33 2c bd 32 33 36 29  3a e7 71 75 20 d4 31 2c  |.3,.236):.qu .1,|
00000d20  35 2c 38 30 2c 31 30 0d  04 d8 14 e6 30 2c 63 6f  |5,80,10.....0,co|
00000d30  3a ec 37 30 34 2c 52 3a  f1 53 24 0d 04 e2 20 74  |:.704,R:.S$... t|
00000d40  69 3d 30 3a f5 74 69 3d  74 69 2b 31 3a fd a6 2d  |i=0:.ti=ti+1:..-|
00000d50  39 39 20 84 74 69 3e 31  30 30 30 0d 04 ec 19 e6  |99 .ti>1000.....|
00000d60  30 2c 30 3a ec 37 30 34  2c 52 3a f1 c4 33 2c bd  |0,0:.704,R:..3,.|
00000d70  32 33 37 29 0d 04 f6 10  fd 46 20 84 20 67 6f 3d  |237).....F . go=|
00000d80  67 6c 2d 32 0d 05 00 09  f2 7a 3a f2 6d 0d 05 0a  |gl-2.....z:.m...|
00000d90  05 e1 0d 05 14 05 3a 0d  05 1e 07 dd f2 71 0d 05  |......:......q..|
00000da0  28 0b 4c 3d 6c 6f 28 72  29 0d 05 32 4c e7 43 3e  |(.L=lo(r)..2L.C>|
00000db0  32 20 56 3d 30 3a 4c 4f  3d 31 30 30 2d 31 30 30  |2 V=0:LO=100-100|
00000dc0  2a 28 4c 20 81 34 29 2b  31 30 2d 31 30 2a 28 28  |*(L .4)+10-10*((|
00000dd0  4c 20 83 34 29 20 81 32  29 2b 31 2d 28 4c 20 83  |L .4) .2)+1-(L .|
00000de0  32 29 3a e7 4c 4f 2b 6b  28 6c 29 3d 31 31 31 20  |2):.LO+k(l)=111 |
00000df0  53 3d 32 3a e1 0d 05 3c  3b e7 43 3c 33 20 56 3d  |S=2:...<;.C<3 V=|
00000e00  31 3a 4c 4f 3d 31 30 30  2a 28 4c 20 81 34 29 2b  |1:LO=100*(L .4)+|
00000e10  31 30 2a 28 28 4c 20 83  34 29 20 81 32 29 2b 28  |10*((L .4) .2)+(|
00000e20  4c 20 83 32 29 3a e7 6c  3d 4c 20 53 3d 32 3a e1  |L .2):.l=L S=2:.|
00000e30  0d 05 46 22 e7 6b 28 6c  29 20 81 31 30 30 3d 56  |..F".k(l) .100=V|
00000e40  20 80 20 4c 4f 20 81 31  30 30 3d 30 20 53 3d 31  | . LO .100=0 S=1|
00000e50  3a e1 0d 05 50 2a e7 28  6b 28 6c 29 2f 31 30 29  |:...P*.(k(l)/10)|
00000e60  20 83 31 30 3d 56 20 80  20 28 4c 4f 2f 31 30 29  | .10=V . (LO/10)|
00000e70  20 83 31 30 3d 30 20 53  3d 31 3a e1 0d 05 5a 20  | .10=0 S=1:...Z |
00000e80  e7 6b 28 6c 29 20 83 31  30 3d 56 20 80 20 4c 4f  |.k(l) .10=V . LO|
00000e90  20 83 31 30 3d 30 20 53  3d 31 3a e1 0d 05 64 09  | .10=0 S=1:...d.|
00000ea0  53 3d 30 3a e1 0d 05 6e  05 3a 0d 05 78 07 dd f2  |S=0:...n.:..x...|
00000eb0  79 0d 05 82 13 e3 69 3d  30 b8 31 3a e6 30 2c 33  |y.....i=0.1:.0,3|
00000ec0  2d 32 2a 69 0d 05 8c 14  47 3d 34 2b 67 6f 2a 33  |-2*i....G=4+go*3|
00000ed0  32 3a 49 3d 69 2a 31 32  0d 05 96 17 ec 31 30 35  |2:I=i*12.....105|
00000ee0  36 2c 49 2b 47 3a ec 31  31 38 34 2c 49 2b 47 0d  |6,I+G:.1184,I+G.|
00000ef0  05 a0 25 f0 38 35 2c 31  30 35 36 2c 32 30 2d 49  |..%.85,1056,20-I|
00000f00  2b 47 3a f0 38 35 2c 31  31 38 34 2c 32 30 2d 49  |+G:.85,1184,20-I|
00000f10  2b 47 3a ed 0d 05 aa 05  e1 0d 05 b4 05 3a 0d 05  |+G:..........:..|
00000f20  be 07 dd f2 7a 0d 05 c8  45 f2 62 6f 78 28 37 2c  |....z...E.box(7,|
00000f30  31 36 30 2c 6c 2a 31 33  36 2b 31 36 2c 33 33 36  |160,l*136+16,336|
00000f40  2c 6c 2a 31 33 36 2d 31  32 30 29 3a f2 62 6f 78  |,l*136-120):.box|
00000f50  28 37 2c 36 34 30 2c 72  2a 31 33 36 2c 39 36 30  |(7,640,r*136,960|
00000f60  2c 72 2a 31 33 36 2d 39  36 29 0d 05 d2 24 e6 30  |,r*136-96)...$.0|
00000f70  2c 30 3a ec 33 34 34 2c  6c 2a 31 33 36 2d 35 32  |,0:.344,l*136-52|
00000f80  3a df 36 33 32 2c 72 2a  31 33 36 2d 35 32 0d 05  |:.632,r*136-52..|
00000f90  dc 13 72 3d 34 3a 6f 72  3d 34 3a e3 4a 3d 31 b8  |..r=4:or=4:.J=1.|
00000fa0  37 0d 05 e6 15 6f 6c 3d  4a 3a 6c 3d 4a 3a f2 6c  |7....ol=J:l=J:.l|
00000fb0  3a f2 78 3a f2 72 0d 05  f0 05 f5 0d 05 fa 1d e7  |:.x:.r..........|
00000fc0  a6 2d 37 33 3a e7 72 3c  37 20 72 3d 72 2b 31 3a  |.-73:.r<7 r=r+1:|
00000fd0  f2 72 3a e5 8d 54 4e 46  0d 06 04 18 e7 a6 2d 31  |.r:..TNF......-1|
00000fe0  30 35 3a e7 72 3e 31 20  72 3d 72 2d 31 3a f2 72  |05:.r>1 r=r-1:.r|
00000ff0  0d 06 0e 0d e7 72 3c 3e  6f 72 20 f2 78 0d 06 18  |.....r<>or .x...|
00001000  08 6f 72 3d 72 0d 06 22  1a 58 3d 30 3a e3 4b 3d  |.or=r..".X=0:.K=|
00001010  31 b8 37 3a e7 66 28 4b  29 3d 72 20 58 3d 31 0d  |1.7:.f(K)=r X=1.|
00001020  06 2c 05 ed 0d 06 36 0f  fd a6 2d 37 34 20 80 20  |.,....6...-74 . |
00001030  58 3d 30 0d 06 40 2e 66  28 4a 29 3d 72 3a e6 30  |X=0..@.f(J)=r:.0|
00001040  2c 30 3a ec 33 34 34 2c  6c 2a 31 33 36 2d 35 32  |,0:.344,l*136-52|
00001050  3a df 36 33 32 2c 72 2a  31 33 36 2d 35 32 3a f2  |:.632,r*136-52:.|
00001060  66 0d 06 4a 05 ed 0d 06  54 05 e1 0d 06 5e 05 3a  |f..J....T....^.:|
00001070  0d 06 68 07 dd f2 66 0d  06 72 0d e3 49 3d 30 b8  |..h...f..r..I=0.|
00001080  34 34 88 34 0d 06 7c 2c  f2 62 6f 78 28 36 2c 36  |44.4..|,.box(6,6|
00001090  34 38 2b 49 2c 72 2a 31  33 36 2d 49 2d 34 2c 39  |48+I,r*136-I-4,9|
000010a0  35 32 2d 49 2c 72 2a 31  33 36 2d 39 32 2b 49 29  |52-I,r*136-92+I)|
000010b0  0d 06 86 1c ed 3a e6 30  2c 34 3a ec 36 34 38 2c  |.....:.0,4:.648,|
000010c0  72 2a 31 33 36 2d 33 32  3a f1 3b 4a 0d 06 90 05  |r*136-32:.;J....|
000010d0  e1 0d 06 9a 05 3a 0d 06  a4 0d dd f2 6d 3a 2a 46  |.....:......m:*F|
000010e0  58 31 35 0d 06 ae 22 f2  62 6f 78 28 35 2c 36 34  |X15...".box(5,64|
000010f0  30 2c 72 2a 31 33 36 2c  39 36 30 2c 72 2a 31 33  |0,r*136,960,r*13|
00001100  36 2d 39 36 29 0d 06 b8  10 72 69 67 3d 30 3a e3  |6-96)....rig=0:.|
00001110  49 3d 31 b8 37 0d 06 c2  17 e3 4a 3d 31 b8 37 3a  |I=1.7.....J=1.7:|
00001120  e7 6c 6f 28 4a 29 3d 49  20 6b 3d 4a 0d 06 cc 05  |.lo(J)=I k=J....|
00001130  ed 0d 06 d6 41 e7 6b 3d  66 28 49 29 20 72 69 67  |....A.k=f(I) rig|
00001140  3d 72 69 67 2b 31 3a e6  30 2c 38 3a ec 37 37 32  |=rig+1:.0,8:.772|
00001150  2c 6b 2a 31 33 36 2d 33  32 3a f1 bd 32 33 35 3a  |,k*136-32:..235:|
00001160  43 3d 31 35 3a 53 3d 32  20 8b 20 43 3d 31 3a 53  |C=15:S=2 . C=1:S|
00001170  3d 30 0d 06 e0 12 d4 31  2c 31 2c 34 38 2b 53 2a  |=0.....1,1,48+S*|
00001180  32 34 2c 34 0d 06 ea 2d  e6 30 2c 43 3a ec 37 37  |24,4...-.0,C:.77|
00001190  32 2c 6b 2a 31 33 36 2d  33 32 3a f1 bd 28 32 33  |2,k*136-32:..(23|
000011a0  34 2b 53 29 3a e7 6b 3d  66 28 49 29 20 e6 30 2c  |4+S):.k=f(I) .0,|
000011b0  34 0d 06 f4 34 ec 33 34  34 2c 49 2a 31 33 36 2d  |4...4.344,I*136-|
000011c0  35 32 3a f0 32 31 2c 36  33 32 2c 6b 2a 31 33 36  |52:.21,632,k*136|
000011d0  2d 35 32 3a ec 38 39 36  2c 6b 2a 31 33 36 2d 33  |-52:.896,k*136-3|
000011e0  32 3a f1 3b 49 0d 06 fe  21 74 69 3d 30 3a f5 74  |2:.;I...!ti=0:.t|
000011f0  69 3d 74 69 2b 31 3a fd  74 69 3d 35 30 30 20 84  |i=ti+1:.ti=500 .|
00001200  20 ac a6 28 30 29 0d 07  08 05 ed 0d 07 12 22 74  | ..(0)........"t|
00001210  69 3d 30 3a f5 74 69 3d  74 69 2b 31 3a fd 74 69  |i=0:.ti=ti+1:.ti|
00001220  3d 32 30 30 30 20 84 20  ac a6 28 30 29 0d 07 1c  |=2000 . ..(0)...|
00001230  0e da 3a e3 49 3d 30 b8  72 69 67 0d 07 26 12 d4  |..:.I=0.rig..&..|
00001240  31 2c 36 2c 35 30 2b 49  2a 35 2c 32 30 0d 07 30  |1,6,50+I*5,20..0|
00001250  21 e3 4a 3d 30 b8 37 3a  6a 3d 31 36 2b 4a 2a 31  |!.J=0.7:j=16+J*1|
00001260  36 30 3a 69 3d 28 49 2b  31 29 2a 31 32 38 0d 07  |60:i=(I+1)*128..|
00001270  3a 17 e7 72 69 67 3d 37  20 63 3d b3 28 37 29 20  |:..rig=7 c=.(7) |
00001280  8b 20 63 3d 36 0d 07 44  1f f2 62 6f 78 28 63 2c  |. c=6..D..box(c,|
00001290  6a 2d 34 2c 69 2b 34 2c  6a 2b 31 32 38 2c 69 2d  |j-4,i+4,j+128,i-|
000012a0  31 30 38 29 0d 07 4e 2d  e6 30 2c 34 3a ec 6a 2c  |108)..N-.0,4:.j,|
000012b0  69 3a f1 bd 32 32 36 3b  bd 32 32 34 3a e6 30 2c  |i:..226;.224:.0,|
000012c0  33 3a ec 6a 2c 69 3a f1  bd 32 32 37 3b bd 32 32  |3:.j,i:..227;.22|
000012d0  35 0d 07 58 19 e6 30 2c  31 3a ec 6a 2b 33 32 2c  |5..X..0,1:.j+32,|
000012e0  69 2d 33 32 3a f1 bd 32  32 38 0d 07 62 1b e6 30  |i-32:..228..b..0|
000012f0  2c 37 3a ec 6a 2c 69 2d  37 32 3a f1 bd 32 32 39  |,7:.j,i-72:..229|
00001300  3b bd 32 33 30 0d 07 6c  07 ed 3a ed 0d 07 76 15  |;.230..l..:...v.|
00001310  e7 67 6f 3c 31 30 20 67  3d 33 32 20 8b 20 67 3d  |.go<10 g=32 . g=|
00001320  30 0d 07 80 10 e7 72 69  67 3d 37 20 e5 8d 64 5a  |0.....rig=7 ..dZ|
00001330  47 0d 07 8a 11 52 3d 72  69 67 2a 31 32 38 2b 32  |G....R=rig*128+2|
00001340  30 38 0d 07 94 23 e6 30  2c 34 3a ec 36 34 2c 52  |08...#.0,4:.64,R|
00001350  3a f1 22 59 6f 75 20 67  6f 74 20 20 20 63 6f 72  |:."You got   cor|
00001360  72 65 63 74 22 0d 07 9e  1e ec 31 39 32 2c 52 2d  |rect".....192,R-|
00001370  34 30 3a f1 22 69 6e 20  20 20 20 67 75 65 73 73  |40:."in    guess|
00001380  65 73 22 0d 07 a8 13 e3  49 3d 30 b8 31 3a e6 30  |es".....I=0.1:.0|
00001390  2c 34 2b 49 2a 32 0d 07  b2 33 ec 35 37 36 2b 49  |,4+I*2...3.576+I|
000013a0  2a 38 2c 52 2b 49 2a 34  3a f1 3b 72 69 67 3a ec  |*8,R+I*4:.;rig:.|
000013b0  33 38 34 2b 49 2a 38 2b  67 2c 52 2d 34 30 2b 49  |384+I*8+g,R-40+I|
000013c0  2a 34 3a f1 3b 67 6f 3a  ed 0d 07 bc 22 74 69 3d  |*4:.;go:...."ti=|
000013d0  30 3a f5 74 69 3d 74 69  2b 31 3a fd 74 69 3d 32  |0:.ti=ti+1:.ti=2|
000013e0  30 30 30 20 84 20 ac a6  28 30 29 0d 07 c6 05 e1  |000 . ..(0).....|
000013f0  0d 07 d0 05 3a 0d 07 da  0e e3 49 3d 30 b8 31 32  |....:.....I=0.12|
00001400  38 88 34 0d 07 e4 25 f2  62 6f 78 28 30 2c 33 32  |8.4...%.box(0,32|
00001410  38 2b 49 2c 34 30 30 2b  49 2c 39 34 38 2d 49 2c  |8+I,400+I,948-I,|
00001420  36 35 36 2d 49 29 3a ed  0d 07 ee 2b e6 30 2c 34  |656-I):....+.0,4|
00001430  3a ec 35 37 36 2c 35 33  36 3a f1 22 69 6e 22 3a  |:.576,536:."in":|
00001440  ec 34 31 36 2c 34 34 38  3a f1 22 67 75 65 73 73  |.416,448:."guess|
00001450  65 73 22 0d 07 f8 13 e3  49 3d 30 b8 31 3a e6 30  |es".....I=0.1:.0|
00001460  2c 34 2b 49 2a 32 0d 08  02 3c ec 33 32 30 2b 49  |,4+I*2...<.320+I|
00001470  2a 38 2c 36 31 34 2b 49  2a 34 3a f1 22 41 4c 4c  |*8,614+I*4:."ALL|
00001480  20 52 49 47 48 54 21 22  3a ec 35 37 36 2b 49 2a  | RIGHT!":.576+I*|
00001490  38 2b 67 2c 34 38 38 2b  49 2a 34 3a f1 3b 67 6f  |8+g,488+I*4:.;go|
000014a0  3a ed 0d 08 0c 0f e7 71  75 3d a3 20 e5 8d 54 7e  |:......qu=. ..T~|
000014b0  48 0d 08 16 30 50 25 3d  30 3a 44 25 3d 32 3a d4  |H...0P%=0:D%=2:.|
000014c0  32 2c 30 2c 30 2c 33 3a  d4 33 2c 30 2c 30 2c 36  |2,0,0,3:.3,0,0,6|
000014d0  3a e3 49 25 3d 30 b8 31  36 3a e3 45 25 3d 33 b8  |:.I%=0.16:.E%=3.|
000014e0  35 0d 08 20 11 50 25 3d  28 50 25 2b 45 25 29 80  |5.. .P%=(P%+E%).|
000014f0  33 31 0d 08 2a 2a d4 31  2c 37 2c 50 25 2a 34 2c  |31..**.1,7,P%*4,|
00001500  44 25 3a d4 32 2c 38 2c  50 25 2a 34 2c 44 25 3a  |D%:.2,8,P%*4,D%:|
00001510  d4 33 2c 38 2c 50 25 2a  34 2c 44 25 0d 08 34 07  |.3,8,P%*4,D%..4.|
00001520  ed 3a ed 0d 08 3e 22 74  69 3d 30 3a f5 74 69 3d  |.:...>"ti=0:.ti=|
00001530  74 69 2b 31 3a fd 74 69  3d 32 30 30 30 20 84 20  |ti+1:.ti=2000 . |
00001540  ac a6 28 30 29 0d 08 48  05 e1 0d 08 52 05 3a 0d  |..(0)..H....R.:.|
00001550  08 5c 15 dd f2 72 65 6c  6f 63 28 51 25 29 3a db  |.\...reloc(Q%):.|
00001560  3a 2a 54 2e 0d 08 66 12  50 25 3d 90 3a e7 50 25  |:*T...f.P%=.:.P%|
00001570  3c 3d 51 25 20 e1 0d 08  70 27 4c 25 3d b8 50 2d  |<=Q% ...p'L%=.P-|
00001580  50 25 3a f1 bd 31 32 39  bd 31 33 36 22 52 65 6c  |P%:..129.136"Rel|
00001590  6f 63 61 74 69 6e 67 2e  2e 2e 2e 2e 22 0d 08 7a  |ocating....."..z|
000015a0  10 e3 4d 25 3d 30 b8 4c  25 2d 31 88 34 0d 08 84  |..M%=0.L%-1.4...|
000015b0  11 51 25 21 4d 25 3d 50  25 21 4d 25 3a ed 0d 08  |.Q%!M%=P%!M%:...|
000015c0  8e 1a d0 3d 51 25 3a 41  25 3d 31 33 38 3a 58 25  |...=Q%:A%=138:X%|
000015d0  3d 30 3a 2a 46 58 31 35  0d 08 98 20 24 26 31 30  |=0:*FX15... $&10|
000015e0  30 3d 22 4f 4c 44 22 2b  bd 31 33 2b 22 52 55 4e  |0="OLD"+.13+"RUN|
000015f0  22 2b bd 36 2b bd 31 33  0d 08 a2 18 e3 4c 25 3d  |"+.6+.13.....L%=|
00001600  26 31 30 30 b8 26 31 30  38 3a 59 25 3d 3f 4c 25  |&100.&108:Y%=?L%|
00001610  0d 08 ac 15 5a 25 3d ba  26 46 46 46 34 3a ed 3a  |....Z%=.&FFF4:.:|
00001620  ef 32 31 3a e1 0d ff                              |.21:...|
00001627

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .