Home » CEEFAX disks » telesoftware10.adl » 25-10-88/CHESS2

25-10-88/CHESS2

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 » telesoftware10.adl
Filename: 25-10-88/CHESS2
Read OK:
File size: 1C33 bytes
Load address: FFFF1900
Exec address: FFFF8023
Duplicates

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

File contents
   10REM Chinese chess
   20REM By Daniel Tang
   30IFPAGE<>&E00GOTO1800
   40MODE1:VDU23;8202;0;0;0;19,2,6,0,0,0:*FX11,10
   50PROCboard:DIMc%(8,10):nm%=8:PROCsetchars:PRINTTAB(33,4)"Move."
   60IF K%=1 PROCone ELSE PROCtwo
   70FORA=20TO150STEP10:SOUND1,-12,A,1:NEXT
   80PRINTTAB(0,29)"Again? (y/n)";
   90REPEATA$=CHR$(GETAND&DF)
  100UNTIL INSTR("YN",A$)>0:PRINTA$;
  110IF A$="Y" RUN ELSE END
  120DEFPROCone:REPEAT:PRINTTAB(31,3)"  Your  ":PROCusermove(128):IF(c%(4,9)<128ANDc%(4,9)>0)ORc%(4,1)>128GOTO140
  130PRINTTAB(31,3)"   My   ":PROCcompmove
  140UNTIL(c%(4,9)<128ANDc%(4,9)>0)ORc%(4,1)>128
  150IFc%(4,1)>127PRINTTAB(31,6)"You win"
  160IFc%(4,9)<127ANDc%(4,9)<>0PRINTTAB(33,6)"I win"
  170ENDPROC
  180DEFPROCtwo:REPEAT:PRINTTAB(31,3)"Player 1":PROCusermove(128):IF(c%(4,9)<128ANDc%(4,9)>0)ORc%(4,1)>128GOTO200
  190PRINTTAB(31,3)"Player 2":PROCusermove(0)
  200UNTIL(c%(4,9)<128ANDc%(4,9)>0)ORc%(4,1)>128:PRINTTAB(31,6)"You win":IFc%(4,1)>127PRINTTAB(31,7)"Player 1"
  210IFc%(4,9)<127ANDc%(4,9)<>0PRINTTAB(31,7)"Player 2"
  220ENDPROC
  230DEFPROCprintchar(X%,Y%,C%):X%=X%-1:Y%=Y%-1:IFC%>128C%=C%-128:cl%=2ELSEcl%=1
  240W%=&8FF+(72*(C%-1)):M%=&3008+(X%*64)+(Y%*&780):FORX%=M%TOM%+&500STEP640:FORY%=X%TOX%+32STEP16:FORC%=Y%TOY%+7:W%=W%+1:Z%=?W%
  250IFcl%=2?C%=?C%EOR((Z%AND240)+(Z%/16)):?(C%+8)=?(C%+8)EOR(((Z%AND15)*16)+(Z%AND15))ELSE?C%=?C%EORZ%AND240:?(C%+8)=?(C%+8)EOR(Z%AND15)*16
  260NEXT,,:ENDPROC
  270DEFPROCusermove(C%)
  280IFC%=128P%=1:Q%=0
  290IFC%=0P%=1:Q%=8
  300GCOL3,7:FORA%=1TO2:X%=P%:Y%=9-Q%
  310REPEAT:MOVEP%*128-128,Q%*96+204:DRAWP%*128,Q%*96+204:*FX21,0
  320A$=GET$:MOVEP%*128-128,Q%*96+204:DRAWP%*128,Q%*96+204:IFINKEY-67P%=P%+1
  330IFINKEY-98P%=P%-1
  340IFINKEY-73Q%=Q%+1
  350IFINKEY-105Q%=Q%-1
  360IFQ%<0Q%=0
  370IFQ%>8Q%=8
  380IFP%<1P%=1
  390IFP%>7P%=7
  400UNTILINKEY-74:REPEAT:UNTILINKEY-74=0:IFc%(P%,9-Q%)=0ANDA%=1GOTO310
  410SOUND1,-7,220,2:NEXT:Q%=9-Q%:PROCchek:IF(c%(X%,Y%)AND128)<>C%m%=1
  420IFm%=1PRINTTAB(31,3)" Illegal":SOUND2,-10,5,15:FORA=1TO1500:NEXT:GOTO280
  430PROCmc:SOUND1,-8,100,2:ENDPROC
  440DEFPROCchek:m%=0:IFY%>3ANDY%<7ANDc%(X%,Y%)>5ANDc%(X%,Y%)<8AND((X%=1ANDP%=2)OR(X%=7ANDP%=6))P%=4
  450IFY%>3ANDY%<7ANDc%(X%,Y%)>5ANDc%(X%,Y%)<8ANDX%=4ANDP%=3P%=1
  460IFY%>3ANDY%<7ANDc%(X%,Y%)>5ANDc%(X%,Y%)<8ANDX%=4ANDP%=5P%=7
  470IFABS(X%-P%)>1ORABS(Y%-Q%)>1m%=1
  480IFABS(X%-P%)=1ANDABS(Y%-Q%)=1m%=1
  490IFm%=1ANDY%=Q%ANDABS(X%-P%)=3ANDY%>3ANDY%<7AND((c%(X%,Y%)AND127)=7OR(c%(X%,Y%)AND127)=6)m%=0
  500IFP%>1ANDP%<7ANDQ%>3ANDQ%<7ANDP%<>4AND(c%(X%,Y%)AND127)<>1m%=1
  510IFP%>7ORP%<1ORQ%>9ORQ%<1m%=1
  520IF((P%=3AND(Q%=1ORQ%=9))OR(P%=5AND(Q%=1ORQ%=9))OR(P%=4AND(Q%=2ORQ%=8)))ANDc%(P%,Q%)<>0m%=1
  530IF(c%(X%,Y%)AND127)=1AND(c%(P%,Q%)AND127)=8GOTO550
  540IF(c%(P%,Q%)AND127)>=(c%(X%,Y%)AND127)OR((c%(X%,Y%)AND127)=8AND(c%(P%,Q%)AND127)=1)m%=1
  550IFc%(P%,Q%)<>0AND(c%(X%,Y%)AND128)=(c%(P%,Q%)AND128)m%=1
  560ENDPROC
  570DEFPROCcompmove:R%=4:S%=9:T%=0:E%=0:IF(c%(3,9)<128ANDc%(3,9)<>0)OR(c%(5,9)<128ANDc%(5,9)<>0)OR(c%(4,8)<128ANDc%(4,8)<>0)den%=1:GOTO820
  580IF(c%(4,7)<128ANDc%(4,7)<>0)OR(c%(2,9)<128ANDc%(2,9)<>0)OR(c%(6,9)<128ANDc%(6,9)<>0)OR(c%(5,8)<128ANDc%(5,8)<>0)OR(c%(3,8)<128ANDc%(3,8)<>0)den%=1:GOTO820
  590den%=0:Y%=0:IFnm%<4GOTO630
  600IFc%(4,2)=0R%=4:S%=2:GOTO820
  610IFc%(3,1)=0R%=3:S%=1:GOTO820
  620IFc%(5,1)=0R%=5:S%=1:GOTO820
  630REPEAT:Y%=Y%+1:X%=0:REPEAT:X%=X%+1:IFc%(X%,Y%)>128ORc%(X%,Y%)=0GOTO710
  640PROCnext(X%,Y%):IFA%=1Q%=Y%+1:P%=X%:PROCvl:E%=1:IFm%=0GOTO970
  650IFB%=1Q%=Y%:P%=X%+1:PROCvl:E%=1:IFm%=0GOTO970
  660IFC%=1Q%=Y%-1:P%=X%:PROCvl:E%=1:IFm%=0GOTO970
  670IFD%=1Q%=Y%:P%=X%-1:PROCvl:E%=1:IFm%=0GOTO970
  680IFE%PROCnext(X%,Y%)
  690IFA%=2ORB%=2ORC%=2ORD%=2PROCrunaway:IFm%=0GOTO970
  700E%=0
  710UNTILX%=7:UNTILY%=9:Y%=0:REPEAT:Y%=Y%+1:X%=0:REPEAT:X%=X%+1:IFc%(X%,Y%)>128ORc%(X%,Y%)=0GOTO810
  720IF(X%=3ANDY%=1)OR(X%=5ANDY%=1)OR(X%=4ANDY%=2)GOTO810
  730PROCnear(X%,Y%):IFB%=1Q%=Y%:P%=X%+1:PROCvl:IFm%=0GOTO970
  740IFC%=1Q%=Y%-1:P%=X%:PROCvl:IFm%=0GOTO970
  750IFD%=1Q%=Y%:P%=X%-1:PROCvl:IFm%=0GOTO970
  760IFCB%=1ORCD%=1Q%=Y%-1:P%=X%:PROCvl:IFm%=0GOTO970
  770IFAB%=1ORAD%=1Q%=Y%+1:P%=X%:PROCvl:IFm%=0GOTO970
  780IFCB%=1ORAB%=1Q%=Y%:P%=X%+1:PROCvl:IFm%=0GOTO970
  790IFCD%=1ORAD%=1Q%=Y%:P%=X%-1:PROCvl:IFm%=0GOTO970
  800IFA%=1Q%=Y%+1:P%=X%:PROCvl:IFm%=0GOTO970
  810UNTILX%=7:UNTILY%=9
  820T%=0
  830E%=RND(2):O%=E%AND1:PROCnearest(R%,S%,T%):T%=N%:REPEAT:E%=E%AND1:P%=X%:Q%=Y%:IFE%=0ANDX%>R%P%=X%-1
  840IFE%=0ANDX%<R%P%=X%+1
  850IF(E%=1ORX%=R%)ANDY%<S%Q%=Y%+1
  860IF(E%=1ORX%=R%)ANDY%>S%Q%=Y%-1
  870IFE%=0ANDX%=4ANDY%=7ANDc%(4,8)<>0P%=X%-1:Q%=Y%
  880IFE%=1ANDX%=4ANDY%=7ANDc%(4,8)<>0P%=X%+1:Q%=Y%
  890E%=E%EOR1:PROCvl:IFc%(P%,Q%)<128ANDc%(P%,Q%)<>0m%=1
  900IFP%=4ANDQ%=1m%=1
  910IFden%=1ANDc%(P%,Q%)=0m%=0
  920UNTILm%=0ORE%=O%
  930IFE%=O%ANDm%=1ANDden%=1GOTO590
  940IFE%=O%ANDT%=100PROCmoveaway(0):GOTO980
  950IFE%=O%ANDm%=1GOTO830
  960GOTO980
  970UNTILTRUE:UNTILTRUE
  980IFP%=X%ANDQ%=Y%PROCmoveaway(1)
  990PROCmc:SOUND1,-8,100,2:ENDPROC
 1000DEFPROCnext(E%,F%)
 1010IFE%=P%ANDF%=Q%L%=c%(P%,Q%):c%(P%,Q%)=c%(X%,Y%)
 1020PROCcon(E%,F%+1,E%,F%):A%=U%:PROCcon(E%+1,F%,E%,F%):B%=U%:PROCcon(E%,F%-1,E%,F%):C%=U%:PROCcon(E%-1,F%,E%,F%):D%=U%
 1030IFE%=P%ANDF%=Q%c%(P%,Q%)=L%
 1040ENDPROC
 1050DEFPROCnearest(A%,B%,T%):D%=0
 1060N%=100:FORQ%=1TO9:FORP%=1TO7
 1070IFD%=1AND((P%=3ANDQ%=1)OR(P%=5ANDQ%=1)OR(P%=4ANDQ%=2))GOTO1100
 1080IFc%(P%,Q%)<128ANDc%(P%,Q%)<>0ANDABS(P%-A%)+ABS(Q%-B%)=N%ANDRND(2)=1X%=P%:Y%=Q%
 1090IFc%(P%,Q%)<128ANDc%(P%,Q%)<>0ANDABS(P%-A%)+ABS(Q%-B%)<N%ANDABS(P%-A%)+ABS(Q%-B%)>T%X%=P%:Y%=Q%:N%=ABS(P%-A%)+ABS(Q%-B%)
 1100NEXT,
 1110IFD%=1ANDN%=100D%=2:GOTO1060
 1120IFD%=0AND((X%=3ANDY%=1)OR(X%=5ANDY%=1)OR(X%=4ANDY%=2))D%=1:GOTO1060
 1130ENDPROC
 1140DEFPROCrunaway:A%=RND(4)
 1150IFA%=1Q%=Y%-1:P%=X%
 1160IFA%=2Q%=Y%:P%=X%-1
 1170IFA%=3Q%=Y%+1:P%=X%
 1180IFA%=4Q%=Y%:P%=X%+1
 1190IFc%(P%,Q%)<>0GOTO1210
 1200PROCvl:IFm%=0ENDPROC
 1210FORS%=1TO4
 1220IFS%=1Q%=Y%-1:P%=X%
 1230IFS%=2Q%=Y%:P%=X%-1
 1240IFS%=3Q%=Y%+1:P%=X%
 1250IFS%=4Q%=Y%:P%=X%+1
 1260IFc%(P%,Q%)<>0GOTO1280
 1270PROCvl:IFm%=0S%=5
 1280NEXT
 1290IFS%=5m%=1
 1300ENDPROC
 1310DEFPROCcon(X%,Y%,E%,F%):p%=0
 1320IFX%>7ORX%<1ORY%>9ORY%<1U%=0:ENDPROC
 1330IFF%>3ANDF%<7ANDc%(E%,F%)<8AND((E%=1ANDX%=2)OR(E%=7ANDX%=6))X%=4:p%=1
 1340IFF%>3ANDF%<7ANDc%(E%,F%)<8ANDE%=4ANDX%=5X%=7:p%=1
 1350IFF%>3ANDF%<7ANDc%(E%,F%)<8ANDE%=4ANDX%=3X%=1:p%=1
 1360IF(c%(X%,Y%)AND127)<(c%(E%,F%)AND127)U%=1ELSEU%=2
 1370IF(c%(E%,F%)AND127)=1AND(c%(X%,Y%)AND127)=8U%=1
 1380IF(c%(E%,F%)AND127)=8AND(c%(X%,Y%)AND127)=1U%=2
 1390IFc%(X%,Y%)<128OR(c%(X%,Y%)AND127)=(c%(E%,F%)AND127)U%=3
 1400IFc%(X%,Y%)=0U%=0
 1410IF((E%=3ANDF%=1)OR(E%=5ANDF%=1)OR(E%=4ANDF%=2))ANDU%=2U%=3
 1420IF((E%=3ANDF%=9)OR(E%=5ANDF%=9)OR(E%=4ANDF%=8))ANDU%=2U%=3
 1430IFF%>3ANDF%<7ANDE%<>1ANDE%<>4ANDE%<>7ANDU%=2U%=3
 1440IFY%>3ANDY%<7ANDX%<>1ANDX%<>4ANDX%<>7ANDU%=1U%=3
 1450IFp%=1ANDc%(X%,Y%)<>134ANDc%(X%,Y%)<>135ANDc%(E%,F%)<>6ANDc%(E%,F%)<>7U%=0
 1460IFp%=1ANDc%(X%,Y%)=136ANDU%=2U%=3
 1470ENDPROC
 1480DEFPROCmc:PROCprintchar(X%,Y%,c%(X%,Y%)):PROCprintchar(P%,Q%,c%(X%,Y%))
 1490IFc%(P%,Q%)<>0PROCprintchar(P%,Q%,c%(P%,Q%))
 1500IFc%(P%,Q%)<128ANDc%(P%,Q%)<>0nm%=nm%-1
 1510c%(P%,Q%)=c%(X%,Y%):c%(X%,Y%)=0:ENDPROC
 1520DEFPROCvl:PROCchek:PROCnext(P%,Q%)
 1530IFA%=2ORB%=2ORC%=2ORD%=2m%=1
 1540ENDPROC
 1550DEFPROCnear(E%,F%):PROCcon(E%,F%+2,E%,F%):A%=U%:PROCcon(E%+2,F%,E%,F%):B%=U%:PROCcon(E%,F%-2,E%,F%):C%=U%:PROCcon(E%-2,F%,E%,F%):D%=U%:PROCcon(E%+1,F%-1,E%,F%):CB%=U%:PROCcon(E%+1,F%+1,E%,F%):AB%=U%:PROCcon(E%-1,F%+1,E%,F%):AD%=U%
 1560PROCcon(E%-1,F%-1,E%,F%):CD%=U%:ENDPROC
 1570DEFPROCmoveaway(pass%):Y%=0:X%=0
 1580REPEAT:Y%=Y%+1:REPEAT:X%=X%+1:UNTILX%=8OR(c%(X%,Y%)<128ANDc%(X%,Y%)>0)
 1590IFX%=8X%=0
 1600UNTILY%=10OR(c%(X%,Y%)<128ANDc%(X%,Y%)>0):IF Y%=10 P%=X%:Q%=Y%:ENDPROC
 1610P%=X%+1:Q%=Y%:IFpass%PROCchek ELSEPROCvl
 1620IF m%=0 ENDPROC
 1630P%=X%-1:Q%=Y%:IFpass%PROCchek ELSEPROCvl
 1640IF m%=0 ENDPROC
 1650P%=X%:Q%=Y%-1:IFpass%PROCchek ELSEPROCvl
 1660IF m%=0 ENDPROC
 1670P%=X%:Q%=Y%+1:IFpass%PROCchek ELSEPROCvl
 1680IF m%=0 ENDPROC
 1690IF Y%<10 Y%=Y%-1:GOTO1580
 1700ENDPROC
 1710DEFPROCsetchars:RESTORE1740:FORD%=1TO8:READE%,F%,C%:c%(E%,F%)=C%:c%(8-E%,10-F%)=C%+128:NEXT:FORY%=1TO9:FORX%=1TO7
 1720IFc%(X%,Y%)<>0PROCprintchar(X%,Y%,c%(X%,Y%))
 1730NEXT,:ENDPROC
 1740DATA1,1,7,7,1,6,2,2,3,6,2,2,1,3,1,3,3,5,5,3,4,7,3,8
 1750DEFPROCboard:GCOL0,1:FORX%=0TO7:MOVE(X%*128),156:DRAW(X%*128),1024:NEXT:FORY%=0TO9:MOVE0,(Y%*96)+156:DRAW896,(Y%*96)+156:NEXT:GCOL0,2:MOVE132,728:MOVE380,728:PLOT85,132,448:PLOT85,380,448:MOVE516,728:MOVE764,728:PLOT85,516,448
 1760PLOT85,764,448:GCOL0,7:RESTORE1770:FORA%=1TO10:READX%,Y%,R%:PROCcircle(X%,Y%,R%):NEXT:ENDPROC
 1770DATA448,204,44,448,204,32,448,976,44,448,976,32,320,204,30,320,976,30,576,204,30,576,976,30,448,300,30,448,880,30
 1780DEFPROCcircle(X%,Y%,R%):VDU29,X%;Y%;0;0;0;:MOVE0,R%:PX%=0:PY%=R%:FORA=0TO2STEP0.5:X%=SIN(A)*R%:Y%=COS(A)*R%:MOVEPX%,PY%:DRAWX%,Y%:MOVE-PX%,PY%:DRAW-X%,Y%:MOVEPX%,-PY%:DRAWX%,-Y%:MOVE-PX%,-PY%:DRAW-X%,-Y%:PX%=X%:PY%=Y%:NEXT
 1790VDU29,0;0;0;0;0;:ENDPROC
 1800*T.
 1810FORA%=PAGE TOTOP+3STEP4:!(A%-&B00)=!A%:NEXT:PAGE=&E00:$&100="O."+CHR$13+"RUN"+CHR$13:FORC%=&100TO&106:OSCLI("*FX138,0,"+STR$(?C%)):NEXT

� Chinese chess
� By Daniel Tang
�<>&E00�THG
(+�1:�23;8202;0;0;0;19,2,6,0,0,0:*FX11,10
23�board:�c%(8,10):nm%=8:�setchars:�33,4)"Move."
<� K%=1 �one � �two
F�A=20�150�10:�1,-12,A,1:�
P�0,29)"Again? (y/n)";
Z�A$=�(��&DF)
d� �"YN",A$)>0:�A$;
n� A$="Y" � � �
xV��one:�:�31,3)"  Your  ":�usermove(128):�(c%(4,9)<128�c%(4,9)>0)�c%(4,1)>128�tL@
��31,3)"   My   ":�compmove
�(�(c%(4,9)<128�c%(4,9)>0)�c%(4,1)>128
� �c%(4,1)>127�31,6)"You win"
�)�c%(4,9)<127�c%(4,9)<>0�33,6)"I win"
��
�V��two:�:�31,3)"Player 1":�usermove(128):�(c%(4,9)<128�c%(4,9)>0)�c%(4,1)>128�dH@
�"�31,3)"Player 2":�usermove(0)
�W�(c%(4,9)<128�c%(4,9)>0)�c%(4,1)>128:�31,6)"You win":�c%(4,1)>127�31,7)"Player 1"
�,�c%(4,9)<127�c%(4,9)<>0�31,7)"Player 2"
��
�F��printchar(X%,Y%,C%):X%=X%-1:Y%=Y%-1:�C%>128C%=C%-128:cl%=2�cl%=1
�pW%=&8FF+(72*(C%-1)):M%=&3008+(X%*64)+(Y%*&780):�X%=M%�M%+&500�640:�Y%=X%�X%+32�16:�C%=Y%�Y%+7:W%=W%+1:Z%=?W%
�u�cl%=2?C%=?C%�((Z%�240)+(Z%/16)):?(C%+8)=?(C%+8)�(((Z%�15)*16)+(Z%�15))�?C%=?C%�Z%�240:?(C%+8)=?(C%+8)�(Z%�15)*16
	�,,:�
��usermove(C%)
�C%=128P%=1:Q%=0
"�C%=0P%=1:Q%=8
,�3,7:�A%=1�2:X%=P%:Y%=9-Q%
65�:�P%*128-128,Q%*96+204:�P%*128,Q%*96+204:*FX21,0
@=A$=�:�P%*128-128,Q%*96+204:�P%*128,Q%*96+204:�-67P%=P%+1
J�-98P%=P%-1
T�-73Q%=Q%+1
^�-105Q%=Q%-1
h
�Q%<0Q%=0
r
�Q%>8Q%=8
|
�P%<1P%=1
�
�P%>7P%=7
�,��-74:�:��-74=0:�c%(P%,9-Q%)=0�A%=1�TvA
�8�1,-7,220,2:�:Q%=9-Q%:�chek:�(c%(X%,Y%)�128)<>C%m%=1
�8�m%=1�31,3)" Illegal":�2,-10,5,15:�A=1�1500:�:�TXA
��mc:�1,-8,100,2:�
�P��chek:m%=0:�Y%>3�Y%<7�c%(X%,Y%)>5�c%(X%,Y%)<8�((X%=1�P%=2)�(X%=7�P%=6))P%=4
�4�Y%>3�Y%<7�c%(X%,Y%)>5�c%(X%,Y%)<8�X%=4�P%=3P%=1
�4�Y%>3�Y%<7�c%(X%,Y%)>5�c%(X%,Y%)<8�X%=4�P%=5P%=7
��(X%-P%)>1��(Y%-Q%)>1m%=1
��(X%-P%)=1��(Y%-Q%)=1m%=1
�N�m%=1�Y%=Q%��(X%-P%)=3�Y%>3�Y%<7�((c%(X%,Y%)�127)=7�(c%(X%,Y%)�127)=6)m%=0
�5�P%>1�P%<7�Q%>3�Q%<7�P%<>4�(c%(X%,Y%)�127)<>1m%=1
��P%>7�P%<1�Q%>9�Q%<1m%=1
P�((P%=3�(Q%=1�Q%=9))�(P%=5�(Q%=1�Q%=9))�(P%=4�(Q%=2�Q%=8)))�c%(P%,Q%)<>0m%=1
-�(c%(X%,Y%)�127)=1�(c%(P%,Q%)�127)=8�TfB
O�(c%(P%,Q%)�127)>=(c%(X%,Y%)�127)�((c%(X%,Y%)�127)=8�(c%(P%,Q%)�127)=1)m%=1
&5�c%(P%,Q%)<>0�(c%(X%,Y%)�128)=(c%(P%,Q%)�128)m%=1
0�
:z��compmove:R%=4:S%=9:T%=0:E%=0:�(c%(3,9)<128�c%(3,9)<>0)�(c%(5,9)<128�c%(5,9)<>0)�(c%(4,8)<128�c%(4,8)<>0)den%=1:�TtC
D��(c%(4,7)<128�c%(4,7)<>0)�(c%(2,9)<128�c%(2,9)<>0)�(c%(6,9)<128�c%(6,9)<>0)�(c%(5,8)<128�c%(5,8)<>0)�(c%(3,8)<128�c%(3,8)<>0)den%=1:�TtC
Nden%=0:Y%=0:�nm%<4�DvB
X�c%(4,2)=0R%=4:S%=2:�TtC
b�c%(3,1)=0R%=3:S%=1:�TtC
l�c%(5,1)=0R%=5:S%=1:�TtC
v<�:Y%=Y%+1:X%=0:�:X%=X%+1:�c%(X%,Y%)>128�c%(X%,Y%)=0�dFB
�7�next(X%,Y%):�A%=1Q%=Y%+1:P%=X%:�vl:E%=1:�m%=0�dJC
�*�B%=1Q%=Y%:P%=X%+1:�vl:E%=1:�m%=0�dJC
�*�C%=1Q%=Y%-1:P%=X%:�vl:E%=1:�m%=0�dJC
�*�D%=1Q%=Y%:P%=X%-1:�vl:E%=1:�m%=0�dJC
��E%�next(X%,Y%)
�+�A%=2�B%=2�C%=2�D%=2�runaway:�m%=0�dJC
�E%=0
�M�X%=7:�Y%=9:Y%=0:�:Y%=Y%+1:X%=0:�:X%=X%+1:�c%(X%,Y%)>128�c%(X%,Y%)=0�TjC
�-�(X%=3�Y%=1)�(X%=5�Y%=1)�(X%=4�Y%=2)�TjC
�2�near(X%,Y%):�B%=1Q%=Y%:P%=X%+1:�vl:�m%=0�dJC
�%�C%=1Q%=Y%-1:P%=X%:�vl:�m%=0�dJC
�%�D%=1Q%=Y%:P%=X%-1:�vl:�m%=0�dJC
�,�CB%=1�CD%=1Q%=Y%-1:P%=X%:�vl:�m%=0�dJC
,�AB%=1�AD%=1Q%=Y%+1:P%=X%:�vl:�m%=0�dJC
,�CB%=1�AB%=1Q%=Y%:P%=X%+1:�vl:�m%=0�dJC
,�CD%=1�AD%=1Q%=Y%:P%=X%-1:�vl:�m%=0�dJC
 %�A%=1Q%=Y%+1:P%=X%:�vl:�m%=0�dJC
*�X%=7:�Y%=9
4T%=0
>UE%=�(2):O%=E%�1:�nearest(R%,S%,T%):T%=N%:�:E%=E%�1:P%=X%:Q%=Y%:�E%=0�X%>R%P%=X%-1
H�E%=0�X%<R%P%=X%+1
R�(E%=1�X%=R%)�Y%<S%Q%=Y%+1
\�(E%=1�X%=R%)�Y%>S%Q%=Y%-1
f+�E%=0�X%=4�Y%=7�c%(4,8)<>0P%=X%-1:Q%=Y%
p+�E%=1�X%=4�Y%=7�c%(4,8)<>0P%=X%+1:Q%=Y%
z/E%=E%�1:�vl:�c%(P%,Q%)<128�c%(P%,Q%)<>0m%=1
��P%=4�Q%=1m%=1
��den%=1�c%(P%,Q%)=0m%=0
��m%=0�E%=O%
��E%=O%�m%=1�den%=1�DNB
�#�E%=O%�T%=100�moveaway(0):�dTC
��E%=O%�m%=1�T~C
�	�dTC
�	��:��
��P%=X%�Q%=Y%�moveaway(1)
��mc:�1,-8,100,2:�
���next(E%,F%)
�0�E%=P%�F%=Q%L%=c%(P%,Q%):c%(P%,Q%)=c%(X%,Y%)
�k�con(E%,F%+1,E%,F%):A%=U%:�con(E%+1,F%,E%,F%):B%=U%:�con(E%,F%-1,E%,F%):C%=U%:�con(E%-1,F%,E%,F%):D%=U%
�E%=P%�F%=Q%c%(P%,Q%)=L%
�
��nearest(A%,B%,T%):D%=0
$N%=100:�Q%=1�9:�P%=1�7
.4�D%=1�((P%=3�Q%=1)�(P%=5�Q%=1)�(P%=4�Q%=2))�DLD
8F�c%(P%,Q%)<128�c%(P%,Q%)<>0��(P%-A%)+�(Q%-B%)=N%��(2)=1X%=P%:Y%=Q%
Bi�c%(P%,Q%)<128�c%(P%,Q%)<>0��(P%-A%)+�(Q%-B%)<N%��(P%-A%)+�(Q%-B%)>T%X%=P%:Y%=Q%:N%=�(P%-A%)+�(Q%-B%)
L�,
V�D%=1�N%=100D%=2:�TdD
`9�D%=0�((X%=3�Y%=1)�(X%=5�Y%=1)�(X%=4�Y%=2))D%=1:�TdD
j�
t��runaway:A%=�(4)
~�A%=1Q%=Y%-1:P%=X%
��A%=2Q%=Y%:P%=X%-1
��A%=3Q%=Y%+1:P%=X%
��A%=4Q%=Y%:P%=X%+1
��c%(P%,Q%)<>0�tzD
��vl:�m%=0�
��S%=1�4
��S%=1Q%=Y%-1:P%=X%
��S%=2Q%=Y%:P%=X%-1
��S%=3Q%=Y%+1:P%=X%
��S%=4Q%=Y%:P%=X%+1
��c%(P%,Q%)<>0�T@E
��vl:�m%=0S%=5
�


�S%=5m%=1
�
��con(X%,Y%,E%,F%):p%=0
(�X%>7�X%<1�Y%>9�Y%<1U%=0:�
2=�F%>3�F%<7�c%(E%,F%)<8�((E%=1�X%=2)�(E%=7�X%=6))X%=4:p%=1
<-�F%>3�F%<7�c%(E%,F%)<8�E%=4�X%=5X%=7:p%=1
F-�F%>3�F%<7�c%(E%,F%)<8�E%=4�X%=3X%=1:p%=1
P-�(c%(X%,Y%)�127)<(c%(E%,F%)�127)U%=1�U%=2
Z,�(c%(E%,F%)�127)=1�(c%(X%,Y%)�127)=8U%=1
d,�(c%(E%,F%)�127)=8�(c%(X%,Y%)�127)=1U%=2
n6�c%(X%,Y%)<128�(c%(X%,Y%)�127)=(c%(E%,F%)�127)U%=3
x�c%(X%,Y%)=0U%=0
�3�((E%=3�F%=1)�(E%=5�F%=1)�(E%=4�F%=2))�U%=2U%=3
�3�((E%=3�F%=9)�(E%=5�F%=9)�(E%=4�F%=8))�U%=2U%=3
�)�F%>3�F%<7�E%<>1�E%<>4�E%<>7�U%=2U%=3
�)�Y%>3�Y%<7�X%<>1�X%<>4�X%<>7�U%=1U%=3
�E�p%=1�c%(X%,Y%)<>134�c%(X%,Y%)<>135�c%(E%,F%)<>6�c%(E%,F%)<>7U%=0
� �p%=1�c%(X%,Y%)=136�U%=2U%=3
��
�@��mc:�printchar(X%,Y%,c%(X%,Y%)):�printchar(P%,Q%,c%(X%,Y%))
�,�c%(P%,Q%)<>0�printchar(P%,Q%,c%(P%,Q%))
�(�c%(P%,Q%)<128�c%(P%,Q%)<>0nm%=nm%-1
�%c%(P%,Q%)=c%(X%,Y%):c%(X%,Y%)=0:�
���vl:�chek:�next(P%,Q%)
��A%=2�B%=2�C%=2�D%=2m%=1
�
���near(E%,F%):�con(E%,F%+2,E%,F%):A%=U%:�con(E%+2,F%,E%,F%):B%=U%:�con(E%,F%-2,E%,F%):C%=U%:�con(E%-2,F%,E%,F%):D%=U%:�con(E%+1,F%-1,E%,F%):CB%=U%:�con(E%+1,F%+1,E%,F%):AB%=U%:�con(E%-1,F%+1,E%,F%):AD%=U%
"�con(E%-1,F%-1,E%,F%):CD%=U%:�
"��moveaway(pass%):Y%=0:X%=0
,9�:Y%=Y%+1:�:X%=X%+1:�X%=8�(c%(X%,Y%)<128�c%(X%,Y%)>0)
6
�X%=8X%=0
@<�Y%=10�(c%(X%,Y%)<128�c%(X%,Y%)>0):� Y%=10 P%=X%:Q%=Y%:�
J"P%=X%+1:Q%=Y%:�pass%�chek ��vl
T� m%=0 �
^"P%=X%-1:Q%=Y%:�pass%�chek ��vl
h� m%=0 �
r"P%=X%:Q%=Y%-1:�pass%�chek ��vl
|� m%=0 �
�"P%=X%:Q%=Y%+1:�pass%�chek ��vl
�� m%=0 �
�� Y%<10 Y%=Y%-1:�TlF
��
�[��setchars:��dLF:�D%=1�8:�E%,F%,C%:c%(E%,F%)=C%:c%(8-E%,10-F%)=C%+128:�:�Y%=1�9:�X%=1�7
�,�c%(X%,Y%)<>0�printchar(X%,Y%,c%(X%,Y%))
��,:�
�4�1,1,7,7,1,6,2,2,3,6,2,2,1,3,1,3,3,5,5,3,4,7,3,8
֮��board:�0,1:�X%=0�7:�(X%*128),156:�(X%*128),1024:�:�Y%=0�9:�0,(Y%*96)+156:�896,(Y%*96)+156:�:�0,2:�132,728:�380,728:�85,132,448:�85,380,448:�516,728:�764,728:�85,516,448
�C�85,764,448:�0,7:��djF:�A%=1�10:�X%,Y%,R%:�circle(X%,Y%,R%):�:�
�r�448,204,44,448,204,32,448,976,44,448,976,32,320,204,30,320,976,30,576,204,30,576,976,30,448,300,30,448,880,30
���circle(X%,Y%,R%):�29,X%;Y%;0;0;0;:�0,R%:PX%=0:PY%=R%:�A=0�2�0.5:X%=�(A)*R%:Y%=�(A)*R%:�PX%,PY%:�X%,Y%:�-PX%,PY%:�-X%,Y%:�PX%,-PY%:�X%,-Y%:�-PX%,-PY%:�-X%,-Y%:PX%=X%:PY%=Y%:�
��29,0;0;0;0;0;:�
*T.
h�A%=� ��P+3�4:!(A%-&B00)=!A%:�:�=&E00:$&100="O."+�13+"RUN"+�13:�C%=&100�&106:�("*FX138,0,"+�(?C%)):�
�
00000000  0d 00 0a 13 f4 20 43 68  69 6e 65 73 65 20 63 68  |..... Chinese ch|
00000010  65 73 73 0d 00 14 14 f4  20 42 79 20 44 61 6e 69  |ess..... By Dani|
00000020  65 6c 20 54 61 6e 67 0d  00 1e 11 e7 90 3c 3e 26  |el Tang......<>&|
00000030  45 30 30 e5 8d 54 48 47  0d 00 28 2b eb 31 3a ef  |E00..THG..(+.1:.|
00000040  32 33 3b 38 32 30 32 3b  30 3b 30 3b 30 3b 31 39  |23;8202;0;0;0;19|
00000050  2c 32 2c 36 2c 30 2c 30  2c 30 3a 2a 46 58 31 31  |,2,6,0,0,0:*FX11|
00000060  2c 31 30 0d 00 32 33 f2  62 6f 61 72 64 3a de 63  |,10..23.board:.c|
00000070  25 28 38 2c 31 30 29 3a  6e 6d 25 3d 38 3a f2 73  |%(8,10):nm%=8:.s|
00000080  65 74 63 68 61 72 73 3a  f1 8a 33 33 2c 34 29 22  |etchars:..33,4)"|
00000090  4d 6f 76 65 2e 22 0d 00  3c 16 e7 20 4b 25 3d 31  |Move."..<.. K%=1|
000000a0  20 f2 6f 6e 65 20 8b 20  f2 74 77 6f 0d 00 46 1d  | .one . .two..F.|
000000b0  e3 41 3d 32 30 b8 31 35  30 88 31 30 3a d4 31 2c  |.A=20.150.10:.1,|
000000c0  2d 31 32 2c 41 2c 31 3a  ed 0d 00 50 1a f1 8a 30  |-12,A,1:...P...0|
000000d0  2c 32 39 29 22 41 67 61  69 6e 3f 20 28 79 2f 6e  |,29)"Again? (y/n|
000000e0  29 22 3b 0d 00 5a 10 f5  41 24 3d bd 28 a5 80 26  |)";..Z..A$=.(..&|
000000f0  44 46 29 0d 00 64 16 fd  20 a7 22 59 4e 22 2c 41  |DF)..d.. ."YN",A|
00000100  24 29 3e 30 3a f1 41 24  3b 0d 00 6e 12 e7 20 41  |$)>0:.A$;..n.. A|
00000110  24 3d 22 59 22 20 f9 20  8b 20 e0 0d 00 78 56 dd  |$="Y" . . ...xV.|
00000120  f2 6f 6e 65 3a f5 3a f1  8a 33 31 2c 33 29 22 20  |.one:.:..31,3)" |
00000130  20 59 6f 75 72 20 20 22  3a f2 75 73 65 72 6d 6f  | Your  ":.usermo|
00000140  76 65 28 31 32 38 29 3a  e7 28 63 25 28 34 2c 39  |ve(128):.(c%(4,9|
00000150  29 3c 31 32 38 80 63 25  28 34 2c 39 29 3e 30 29  |)<128.c%(4,9)>0)|
00000160  84 63 25 28 34 2c 31 29  3e 31 32 38 e5 8d 74 4c  |.c%(4,1)>128..tL|
00000170  40 0d 00 82 1f f1 8a 33  31 2c 33 29 22 20 20 20  |@......31,3)"   |
00000180  4d 79 20 20 20 22 3a f2  63 6f 6d 70 6d 6f 76 65  |My   ":.compmove|
00000190  0d 00 8c 28 fd 28 63 25  28 34 2c 39 29 3c 31 32  |...(.(c%(4,9)<12|
000001a0  38 80 63 25 28 34 2c 39  29 3e 30 29 84 63 25 28  |8.c%(4,9)>0).c%(|
000001b0  34 2c 31 29 3e 31 32 38  0d 00 96 20 e7 63 25 28  |4,1)>128... .c%(|
000001c0  34 2c 31 29 3e 31 32 37  f1 8a 33 31 2c 36 29 22  |4,1)>127..31,6)"|
000001d0  59 6f 75 20 77 69 6e 22  0d 00 a0 29 e7 63 25 28  |You win"...).c%(|
000001e0  34 2c 39 29 3c 31 32 37  80 63 25 28 34 2c 39 29  |4,9)<127.c%(4,9)|
000001f0  3c 3e 30 f1 8a 33 33 2c  36 29 22 49 20 77 69 6e  |<>0..33,6)"I win|
00000200  22 0d 00 aa 05 e1 0d 00  b4 56 dd f2 74 77 6f 3a  |"........V..two:|
00000210  f5 3a f1 8a 33 31 2c 33  29 22 50 6c 61 79 65 72  |.:..31,3)"Player|
00000220  20 31 22 3a f2 75 73 65  72 6d 6f 76 65 28 31 32  | 1":.usermove(12|
00000230  38 29 3a e7 28 63 25 28  34 2c 39 29 3c 31 32 38  |8):.(c%(4,9)<128|
00000240  80 63 25 28 34 2c 39 29  3e 30 29 84 63 25 28 34  |.c%(4,9)>0).c%(4|
00000250  2c 31 29 3e 31 32 38 e5  8d 64 48 40 0d 00 be 22  |,1)>128..dH@..."|
00000260  f1 8a 33 31 2c 33 29 22  50 6c 61 79 65 72 20 32  |..31,3)"Player 2|
00000270  22 3a f2 75 73 65 72 6d  6f 76 65 28 30 29 0d 00  |":.usermove(0)..|
00000280  c8 57 fd 28 63 25 28 34  2c 39 29 3c 31 32 38 80  |.W.(c%(4,9)<128.|
00000290  63 25 28 34 2c 39 29 3e  30 29 84 63 25 28 34 2c  |c%(4,9)>0).c%(4,|
000002a0  31 29 3e 31 32 38 3a f1  8a 33 31 2c 36 29 22 59  |1)>128:..31,6)"Y|
000002b0  6f 75 20 77 69 6e 22 3a  e7 63 25 28 34 2c 31 29  |ou win":.c%(4,1)|
000002c0  3e 31 32 37 f1 8a 33 31  2c 37 29 22 50 6c 61 79  |>127..31,7)"Play|
000002d0  65 72 20 31 22 0d 00 d2  2c e7 63 25 28 34 2c 39  |er 1"...,.c%(4,9|
000002e0  29 3c 31 32 37 80 63 25  28 34 2c 39 29 3c 3e 30  |)<127.c%(4,9)<>0|
000002f0  f1 8a 33 31 2c 37 29 22  50 6c 61 79 65 72 20 32  |..31,7)"Player 2|
00000300  22 0d 00 dc 05 e1 0d 00  e6 46 dd f2 70 72 69 6e  |"........F..prin|
00000310  74 63 68 61 72 28 58 25  2c 59 25 2c 43 25 29 3a  |tchar(X%,Y%,C%):|
00000320  58 25 3d 58 25 2d 31 3a  59 25 3d 59 25 2d 31 3a  |X%=X%-1:Y%=Y%-1:|
00000330  e7 43 25 3e 31 32 38 43  25 3d 43 25 2d 31 32 38  |.C%>128C%=C%-128|
00000340  3a 63 6c 25 3d 32 8b 63  6c 25 3d 31 0d 00 f0 70  |:cl%=2.cl%=1...p|
00000350  57 25 3d 26 38 46 46 2b  28 37 32 2a 28 43 25 2d  |W%=&8FF+(72*(C%-|
00000360  31 29 29 3a 4d 25 3d 26  33 30 30 38 2b 28 58 25  |1)):M%=&3008+(X%|
00000370  2a 36 34 29 2b 28 59 25  2a 26 37 38 30 29 3a e3  |*64)+(Y%*&780):.|
00000380  58 25 3d 4d 25 b8 4d 25  2b 26 35 30 30 88 36 34  |X%=M%.M%+&500.64|
00000390  30 3a e3 59 25 3d 58 25  b8 58 25 2b 33 32 88 31  |0:.Y%=X%.X%+32.1|
000003a0  36 3a e3 43 25 3d 59 25  b8 59 25 2b 37 3a 57 25  |6:.C%=Y%.Y%+7:W%|
000003b0  3d 57 25 2b 31 3a 5a 25  3d 3f 57 25 0d 00 fa 75  |=W%+1:Z%=?W%...u|
000003c0  e7 63 6c 25 3d 32 3f 43  25 3d 3f 43 25 82 28 28  |.cl%=2?C%=?C%.((|
000003d0  5a 25 80 32 34 30 29 2b  28 5a 25 2f 31 36 29 29  |Z%.240)+(Z%/16))|
000003e0  3a 3f 28 43 25 2b 38 29  3d 3f 28 43 25 2b 38 29  |:?(C%+8)=?(C%+8)|
000003f0  82 28 28 28 5a 25 80 31  35 29 2a 31 36 29 2b 28  |.(((Z%.15)*16)+(|
00000400  5a 25 80 31 35 29 29 8b  3f 43 25 3d 3f 43 25 82  |Z%.15)).?C%=?C%.|
00000410  5a 25 80 32 34 30 3a 3f  28 43 25 2b 38 29 3d 3f  |Z%.240:?(C%+8)=?|
00000420  28 43 25 2b 38 29 82 28  5a 25 80 31 35 29 2a 31  |(C%+8).(Z%.15)*1|
00000430  36 0d 01 04 09 ed 2c 2c  3a e1 0d 01 0e 12 dd f2  |6.....,,:.......|
00000440  75 73 65 72 6d 6f 76 65  28 43 25 29 0d 01 18 14  |usermove(C%)....|
00000450  e7 43 25 3d 31 32 38 50  25 3d 31 3a 51 25 3d 30  |.C%=128P%=1:Q%=0|
00000460  0d 01 22 12 e7 43 25 3d  30 50 25 3d 31 3a 51 25  |.."..C%=0P%=1:Q%|
00000470  3d 38 0d 01 2c 1e e6 33  2c 37 3a e3 41 25 3d 31  |=8..,..3,7:.A%=1|
00000480  b8 32 3a 58 25 3d 50 25  3a 59 25 3d 39 2d 51 25  |.2:X%=P%:Y%=9-Q%|
00000490  0d 01 36 35 f5 3a ec 50  25 2a 31 32 38 2d 31 32  |..65.:.P%*128-12|
000004a0  38 2c 51 25 2a 39 36 2b  32 30 34 3a df 50 25 2a  |8,Q%*96+204:.P%*|
000004b0  31 32 38 2c 51 25 2a 39  36 2b 32 30 34 3a 2a 46  |128,Q%*96+204:*F|
000004c0  58 32 31 2c 30 0d 01 40  3d 41 24 3d be 3a ec 50  |X21,0..@=A$=.:.P|
000004d0  25 2a 31 32 38 2d 31 32  38 2c 51 25 2a 39 36 2b  |%*128-128,Q%*96+|
000004e0  32 30 34 3a df 50 25 2a  31 32 38 2c 51 25 2a 39  |204:.P%*128,Q%*9|
000004f0  36 2b 32 30 34 3a e7 a6  2d 36 37 50 25 3d 50 25  |6+204:..-67P%=P%|
00000500  2b 31 0d 01 4a 10 e7 a6  2d 39 38 50 25 3d 50 25  |+1..J...-98P%=P%|
00000510  2d 31 0d 01 54 10 e7 a6  2d 37 33 51 25 3d 51 25  |-1..T...-73Q%=Q%|
00000520  2b 31 0d 01 5e 11 e7 a6  2d 31 30 35 51 25 3d 51  |+1..^...-105Q%=Q|
00000530  25 2d 31 0d 01 68 0d e7  51 25 3c 30 51 25 3d 30  |%-1..h..Q%<0Q%=0|
00000540  0d 01 72 0d e7 51 25 3e  38 51 25 3d 38 0d 01 7c  |..r..Q%>8Q%=8..||
00000550  0d e7 50 25 3c 31 50 25  3d 31 0d 01 86 0d e7 50  |..P%<1P%=1.....P|
00000560  25 3e 37 50 25 3d 37 0d  01 90 2c fd a6 2d 37 34  |%>7P%=7...,..-74|
00000570  3a f5 3a fd a6 2d 37 34  3d 30 3a e7 63 25 28 50  |:.:..-74=0:.c%(P|
00000580  25 2c 39 2d 51 25 29 3d  30 80 41 25 3d 31 e5 8d  |%,9-Q%)=0.A%=1..|
00000590  54 76 41 0d 01 9a 38 d4  31 2c 2d 37 2c 32 32 30  |TvA...8.1,-7,220|
000005a0  2c 32 3a ed 3a 51 25 3d  39 2d 51 25 3a f2 63 68  |,2:.:Q%=9-Q%:.ch|
000005b0  65 6b 3a e7 28 63 25 28  58 25 2c 59 25 29 80 31  |ek:.(c%(X%,Y%).1|
000005c0  32 38 29 3c 3e 43 25 6d  25 3d 31 0d 01 a4 38 e7  |28)<>C%m%=1...8.|
000005d0  6d 25 3d 31 f1 8a 33 31  2c 33 29 22 20 49 6c 6c  |m%=1..31,3)" Ill|
000005e0  65 67 61 6c 22 3a d4 32  2c 2d 31 30 2c 35 2c 31  |egal":.2,-10,5,1|
000005f0  35 3a e3 41 3d 31 b8 31  35 30 30 3a ed 3a e5 8d  |5:.A=1.1500:.:..|
00000600  54 58 41 0d 01 ae 15 f2  6d 63 3a d4 31 2c 2d 38  |TXA.....mc:.1,-8|
00000610  2c 31 30 30 2c 32 3a e1  0d 01 b8 50 dd f2 63 68  |,100,2:....P..ch|
00000620  65 6b 3a 6d 25 3d 30 3a  e7 59 25 3e 33 80 59 25  |ek:m%=0:.Y%>3.Y%|
00000630  3c 37 80 63 25 28 58 25  2c 59 25 29 3e 35 80 63  |<7.c%(X%,Y%)>5.c|
00000640  25 28 58 25 2c 59 25 29  3c 38 80 28 28 58 25 3d  |%(X%,Y%)<8.((X%=|
00000650  31 80 50 25 3d 32 29 84  28 58 25 3d 37 80 50 25  |1.P%=2).(X%=7.P%|
00000660  3d 36 29 29 50 25 3d 34  0d 01 c2 34 e7 59 25 3e  |=6))P%=4...4.Y%>|
00000670  33 80 59 25 3c 37 80 63  25 28 58 25 2c 59 25 29  |3.Y%<7.c%(X%,Y%)|
00000680  3e 35 80 63 25 28 58 25  2c 59 25 29 3c 38 80 58  |>5.c%(X%,Y%)<8.X|
00000690  25 3d 34 80 50 25 3d 33  50 25 3d 31 0d 01 cc 34  |%=4.P%=3P%=1...4|
000006a0  e7 59 25 3e 33 80 59 25  3c 37 80 63 25 28 58 25  |.Y%>3.Y%<7.c%(X%|
000006b0  2c 59 25 29 3e 35 80 63  25 28 58 25 2c 59 25 29  |,Y%)>5.c%(X%,Y%)|
000006c0  3c 38 80 58 25 3d 34 80  50 25 3d 35 50 25 3d 37  |<8.X%=4.P%=5P%=7|
000006d0  0d 01 d6 1e e7 94 28 58  25 2d 50 25 29 3e 31 84  |......(X%-P%)>1.|
000006e0  94 28 59 25 2d 51 25 29  3e 31 6d 25 3d 31 0d 01  |.(Y%-Q%)>1m%=1..|
000006f0  e0 1e e7 94 28 58 25 2d  50 25 29 3d 31 80 94 28  |....(X%-P%)=1..(|
00000700  59 25 2d 51 25 29 3d 31  6d 25 3d 31 0d 01 ea 4e  |Y%-Q%)=1m%=1...N|
00000710  e7 6d 25 3d 31 80 59 25  3d 51 25 80 94 28 58 25  |.m%=1.Y%=Q%..(X%|
00000720  2d 50 25 29 3d 33 80 59  25 3e 33 80 59 25 3c 37  |-P%)=3.Y%>3.Y%<7|
00000730  80 28 28 63 25 28 58 25  2c 59 25 29 80 31 32 37  |.((c%(X%,Y%).127|
00000740  29 3d 37 84 28 63 25 28  58 25 2c 59 25 29 80 31  |)=7.(c%(X%,Y%).1|
00000750  32 37 29 3d 36 29 6d 25  3d 30 0d 01 f4 35 e7 50  |27)=6)m%=0...5.P|
00000760  25 3e 31 80 50 25 3c 37  80 51 25 3e 33 80 51 25  |%>1.P%<7.Q%>3.Q%|
00000770  3c 37 80 50 25 3c 3e 34  80 28 63 25 28 58 25 2c  |<7.P%<>4.(c%(X%,|
00000780  59 25 29 80 31 32 37 29  3c 3e 31 6d 25 3d 31 0d  |Y%).127)<>1m%=1.|
00000790  01 fe 1c e7 50 25 3e 37  84 50 25 3c 31 84 51 25  |....P%>7.P%<1.Q%|
000007a0  3e 39 84 51 25 3c 31 6d  25 3d 31 0d 02 08 50 e7  |>9.Q%<1m%=1...P.|
000007b0  28 28 50 25 3d 33 80 28  51 25 3d 31 84 51 25 3d  |((P%=3.(Q%=1.Q%=|
000007c0  39 29 29 84 28 50 25 3d  35 80 28 51 25 3d 31 84  |9)).(P%=5.(Q%=1.|
000007d0  51 25 3d 39 29 29 84 28  50 25 3d 34 80 28 51 25  |Q%=9)).(P%=4.(Q%|
000007e0  3d 32 84 51 25 3d 38 29  29 29 80 63 25 28 50 25  |=2.Q%=8))).c%(P%|
000007f0  2c 51 25 29 3c 3e 30 6d  25 3d 31 0d 02 12 2d e7  |,Q%)<>0m%=1...-.|
00000800  28 63 25 28 58 25 2c 59  25 29 80 31 32 37 29 3d  |(c%(X%,Y%).127)=|
00000810  31 80 28 63 25 28 50 25  2c 51 25 29 80 31 32 37  |1.(c%(P%,Q%).127|
00000820  29 3d 38 e5 8d 54 66 42  0d 02 1c 4f e7 28 63 25  |)=8..TfB...O.(c%|
00000830  28 50 25 2c 51 25 29 80  31 32 37 29 3e 3d 28 63  |(P%,Q%).127)>=(c|
00000840  25 28 58 25 2c 59 25 29  80 31 32 37 29 84 28 28  |%(X%,Y%).127).((|
00000850  63 25 28 58 25 2c 59 25  29 80 31 32 37 29 3d 38  |c%(X%,Y%).127)=8|
00000860  80 28 63 25 28 50 25 2c  51 25 29 80 31 32 37 29  |.(c%(P%,Q%).127)|
00000870  3d 31 29 6d 25 3d 31 0d  02 26 35 e7 63 25 28 50  |=1)m%=1..&5.c%(P|
00000880  25 2c 51 25 29 3c 3e 30  80 28 63 25 28 58 25 2c  |%,Q%)<>0.(c%(X%,|
00000890  59 25 29 80 31 32 38 29  3d 28 63 25 28 50 25 2c  |Y%).128)=(c%(P%,|
000008a0  51 25 29 80 31 32 38 29  6d 25 3d 31 0d 02 30 05  |Q%).128)m%=1..0.|
000008b0  e1 0d 02 3a 7a dd f2 63  6f 6d 70 6d 6f 76 65 3a  |...:z..compmove:|
000008c0  52 25 3d 34 3a 53 25 3d  39 3a 54 25 3d 30 3a 45  |R%=4:S%=9:T%=0:E|
000008d0  25 3d 30 3a e7 28 63 25  28 33 2c 39 29 3c 31 32  |%=0:.(c%(3,9)<12|
000008e0  38 80 63 25 28 33 2c 39  29 3c 3e 30 29 84 28 63  |8.c%(3,9)<>0).(c|
000008f0  25 28 35 2c 39 29 3c 31  32 38 80 63 25 28 35 2c  |%(5,9)<128.c%(5,|
00000900  39 29 3c 3e 30 29 84 28  63 25 28 34 2c 38 29 3c  |9)<>0).(c%(4,8)<|
00000910  31 32 38 80 63 25 28 34  2c 38 29 3c 3e 30 29 64  |128.c%(4,8)<>0)d|
00000920  65 6e 25 3d 31 3a e5 8d  54 74 43 0d 02 44 8d e7  |en%=1:..TtC..D..|
00000930  28 63 25 28 34 2c 37 29  3c 31 32 38 80 63 25 28  |(c%(4,7)<128.c%(|
00000940  34 2c 37 29 3c 3e 30 29  84 28 63 25 28 32 2c 39  |4,7)<>0).(c%(2,9|
00000950  29 3c 31 32 38 80 63 25  28 32 2c 39 29 3c 3e 30  |)<128.c%(2,9)<>0|
00000960  29 84 28 63 25 28 36 2c  39 29 3c 31 32 38 80 63  |).(c%(6,9)<128.c|
00000970  25 28 36 2c 39 29 3c 3e  30 29 84 28 63 25 28 35  |%(6,9)<>0).(c%(5|
00000980  2c 38 29 3c 31 32 38 80  63 25 28 35 2c 38 29 3c  |,8)<128.c%(5,8)<|
00000990  3e 30 29 84 28 63 25 28  33 2c 38 29 3c 31 32 38  |>0).(c%(3,8)<128|
000009a0  80 63 25 28 33 2c 38 29  3c 3e 30 29 64 65 6e 25  |.c%(3,8)<>0)den%|
000009b0  3d 31 3a e5 8d 54 74 43  0d 02 4e 1b 64 65 6e 25  |=1:..TtC..N.den%|
000009c0  3d 30 3a 59 25 3d 30 3a  e7 6e 6d 25 3c 34 e5 8d  |=0:Y%=0:.nm%<4..|
000009d0  44 76 42 0d 02 58 1d e7  63 25 28 34 2c 32 29 3d  |DvB..X..c%(4,2)=|
000009e0  30 52 25 3d 34 3a 53 25  3d 32 3a e5 8d 54 74 43  |0R%=4:S%=2:..TtC|
000009f0  0d 02 62 1d e7 63 25 28  33 2c 31 29 3d 30 52 25  |..b..c%(3,1)=0R%|
00000a00  3d 33 3a 53 25 3d 31 3a  e5 8d 54 74 43 0d 02 6c  |=3:S%=1:..TtC..l|
00000a10  1d e7 63 25 28 35 2c 31  29 3d 30 52 25 3d 35 3a  |..c%(5,1)=0R%=5:|
00000a20  53 25 3d 31 3a e5 8d 54  74 43 0d 02 76 3c f5 3a  |S%=1:..TtC..v<.:|
00000a30  59 25 3d 59 25 2b 31 3a  58 25 3d 30 3a f5 3a 58  |Y%=Y%+1:X%=0:.:X|
00000a40  25 3d 58 25 2b 31 3a e7  63 25 28 58 25 2c 59 25  |%=X%+1:.c%(X%,Y%|
00000a50  29 3e 31 32 38 84 63 25  28 58 25 2c 59 25 29 3d  |)>128.c%(X%,Y%)=|
00000a60  30 e5 8d 64 46 42 0d 02  80 37 f2 6e 65 78 74 28  |0..dFB...7.next(|
00000a70  58 25 2c 59 25 29 3a e7  41 25 3d 31 51 25 3d 59  |X%,Y%):.A%=1Q%=Y|
00000a80  25 2b 31 3a 50 25 3d 58  25 3a f2 76 6c 3a 45 25  |%+1:P%=X%:.vl:E%|
00000a90  3d 31 3a e7 6d 25 3d 30  e5 8d 64 4a 43 0d 02 8a  |=1:.m%=0..dJC...|
00000aa0  2a e7 42 25 3d 31 51 25  3d 59 25 3a 50 25 3d 58  |*.B%=1Q%=Y%:P%=X|
00000ab0  25 2b 31 3a f2 76 6c 3a  45 25 3d 31 3a e7 6d 25  |%+1:.vl:E%=1:.m%|
00000ac0  3d 30 e5 8d 64 4a 43 0d  02 94 2a e7 43 25 3d 31  |=0..dJC...*.C%=1|
00000ad0  51 25 3d 59 25 2d 31 3a  50 25 3d 58 25 3a f2 76  |Q%=Y%-1:P%=X%:.v|
00000ae0  6c 3a 45 25 3d 31 3a e7  6d 25 3d 30 e5 8d 64 4a  |l:E%=1:.m%=0..dJ|
00000af0  43 0d 02 9e 2a e7 44 25  3d 31 51 25 3d 59 25 3a  |C...*.D%=1Q%=Y%:|
00000b00  50 25 3d 58 25 2d 31 3a  f2 76 6c 3a 45 25 3d 31  |P%=X%-1:.vl:E%=1|
00000b10  3a e7 6d 25 3d 30 e5 8d  64 4a 43 0d 02 a8 13 e7  |:.m%=0..dJC.....|
00000b20  45 25 f2 6e 65 78 74 28  58 25 2c 59 25 29 0d 02  |E%.next(X%,Y%)..|
00000b30  b2 2b e7 41 25 3d 32 84  42 25 3d 32 84 43 25 3d  |.+.A%=2.B%=2.C%=|
00000b40  32 84 44 25 3d 32 f2 72  75 6e 61 77 61 79 3a e7  |2.D%=2.runaway:.|
00000b50  6d 25 3d 30 e5 8d 64 4a  43 0d 02 bc 08 45 25 3d  |m%=0..dJC....E%=|
00000b60  30 0d 02 c6 4d fd 58 25  3d 37 3a fd 59 25 3d 39  |0...M.X%=7:.Y%=9|
00000b70  3a 59 25 3d 30 3a f5 3a  59 25 3d 59 25 2b 31 3a  |:Y%=0:.:Y%=Y%+1:|
00000b80  58 25 3d 30 3a f5 3a 58  25 3d 58 25 2b 31 3a e7  |X%=0:.:X%=X%+1:.|
00000b90  63 25 28 58 25 2c 59 25  29 3e 31 32 38 84 63 25  |c%(X%,Y%)>128.c%|
00000ba0  28 58 25 2c 59 25 29 3d  30 e5 8d 54 6a 43 0d 02  |(X%,Y%)=0..TjC..|
00000bb0  d0 2d e7 28 58 25 3d 33  80 59 25 3d 31 29 84 28  |.-.(X%=3.Y%=1).(|
00000bc0  58 25 3d 35 80 59 25 3d  31 29 84 28 58 25 3d 34  |X%=5.Y%=1).(X%=4|
00000bd0  80 59 25 3d 32 29 e5 8d  54 6a 43 0d 02 da 32 f2  |.Y%=2)..TjC...2.|
00000be0  6e 65 61 72 28 58 25 2c  59 25 29 3a e7 42 25 3d  |near(X%,Y%):.B%=|
00000bf0  31 51 25 3d 59 25 3a 50  25 3d 58 25 2b 31 3a f2  |1Q%=Y%:P%=X%+1:.|
00000c00  76 6c 3a e7 6d 25 3d 30  e5 8d 64 4a 43 0d 02 e4  |vl:.m%=0..dJC...|
00000c10  25 e7 43 25 3d 31 51 25  3d 59 25 2d 31 3a 50 25  |%.C%=1Q%=Y%-1:P%|
00000c20  3d 58 25 3a f2 76 6c 3a  e7 6d 25 3d 30 e5 8d 64  |=X%:.vl:.m%=0..d|
00000c30  4a 43 0d 02 ee 25 e7 44  25 3d 31 51 25 3d 59 25  |JC...%.D%=1Q%=Y%|
00000c40  3a 50 25 3d 58 25 2d 31  3a f2 76 6c 3a e7 6d 25  |:P%=X%-1:.vl:.m%|
00000c50  3d 30 e5 8d 64 4a 43 0d  02 f8 2c e7 43 42 25 3d  |=0..dJC...,.CB%=|
00000c60  31 84 43 44 25 3d 31 51  25 3d 59 25 2d 31 3a 50  |1.CD%=1Q%=Y%-1:P|
00000c70  25 3d 58 25 3a f2 76 6c  3a e7 6d 25 3d 30 e5 8d  |%=X%:.vl:.m%=0..|
00000c80  64 4a 43 0d 03 02 2c e7  41 42 25 3d 31 84 41 44  |dJC...,.AB%=1.AD|
00000c90  25 3d 31 51 25 3d 59 25  2b 31 3a 50 25 3d 58 25  |%=1Q%=Y%+1:P%=X%|
00000ca0  3a f2 76 6c 3a e7 6d 25  3d 30 e5 8d 64 4a 43 0d  |:.vl:.m%=0..dJC.|
00000cb0  03 0c 2c e7 43 42 25 3d  31 84 41 42 25 3d 31 51  |..,.CB%=1.AB%=1Q|
00000cc0  25 3d 59 25 3a 50 25 3d  58 25 2b 31 3a f2 76 6c  |%=Y%:P%=X%+1:.vl|
00000cd0  3a e7 6d 25 3d 30 e5 8d  64 4a 43 0d 03 16 2c e7  |:.m%=0..dJC...,.|
00000ce0  43 44 25 3d 31 84 41 44  25 3d 31 51 25 3d 59 25  |CD%=1.AD%=1Q%=Y%|
00000cf0  3a 50 25 3d 58 25 2d 31  3a f2 76 6c 3a e7 6d 25  |:P%=X%-1:.vl:.m%|
00000d00  3d 30 e5 8d 64 4a 43 0d  03 20 25 e7 41 25 3d 31  |=0..dJC.. %.A%=1|
00000d10  51 25 3d 59 25 2b 31 3a  50 25 3d 58 25 3a f2 76  |Q%=Y%+1:P%=X%:.v|
00000d20  6c 3a e7 6d 25 3d 30 e5  8d 64 4a 43 0d 03 2a 0f  |l:.m%=0..dJC..*.|
00000d30  fd 58 25 3d 37 3a fd 59  25 3d 39 0d 03 34 08 54  |.X%=7:.Y%=9..4.T|
00000d40  25 3d 30 0d 03 3e 55 45  25 3d b3 28 32 29 3a 4f  |%=0..>UE%=.(2):O|
00000d50  25 3d 45 25 80 31 3a f2  6e 65 61 72 65 73 74 28  |%=E%.1:.nearest(|
00000d60  52 25 2c 53 25 2c 54 25  29 3a 54 25 3d 4e 25 3a  |R%,S%,T%):T%=N%:|
00000d70  f5 3a 45 25 3d 45 25 80  31 3a 50 25 3d 58 25 3a  |.:E%=E%.1:P%=X%:|
00000d80  51 25 3d 59 25 3a e7 45  25 3d 30 80 58 25 3e 52  |Q%=Y%:.E%=0.X%>R|
00000d90  25 50 25 3d 58 25 2d 31  0d 03 48 16 e7 45 25 3d  |%P%=X%-1..H..E%=|
00000da0  30 80 58 25 3c 52 25 50  25 3d 58 25 2b 31 0d 03  |0.X%<R%P%=X%+1..|
00000db0  52 1e e7 28 45 25 3d 31  84 58 25 3d 52 25 29 80  |R..(E%=1.X%=R%).|
00000dc0  59 25 3c 53 25 51 25 3d  59 25 2b 31 0d 03 5c 1e  |Y%<S%Q%=Y%+1..\.|
00000dd0  e7 28 45 25 3d 31 84 58  25 3d 52 25 29 80 59 25  |.(E%=1.X%=R%).Y%|
00000de0  3e 53 25 51 25 3d 59 25  2d 31 0d 03 66 2b e7 45  |>S%Q%=Y%-1..f+.E|
00000df0  25 3d 30 80 58 25 3d 34  80 59 25 3d 37 80 63 25  |%=0.X%=4.Y%=7.c%|
00000e00  28 34 2c 38 29 3c 3e 30  50 25 3d 58 25 2d 31 3a  |(4,8)<>0P%=X%-1:|
00000e10  51 25 3d 59 25 0d 03 70  2b e7 45 25 3d 31 80 58  |Q%=Y%..p+.E%=1.X|
00000e20  25 3d 34 80 59 25 3d 37  80 63 25 28 34 2c 38 29  |%=4.Y%=7.c%(4,8)|
00000e30  3c 3e 30 50 25 3d 58 25  2b 31 3a 51 25 3d 59 25  |<>0P%=X%+1:Q%=Y%|
00000e40  0d 03 7a 2f 45 25 3d 45  25 82 31 3a f2 76 6c 3a  |..z/E%=E%.1:.vl:|
00000e50  e7 63 25 28 50 25 2c 51  25 29 3c 31 32 38 80 63  |.c%(P%,Q%)<128.c|
00000e60  25 28 50 25 2c 51 25 29  3c 3e 30 6d 25 3d 31 0d  |%(P%,Q%)<>0m%=1.|
00000e70  03 84 12 e7 50 25 3d 34  80 51 25 3d 31 6d 25 3d  |....P%=4.Q%=1m%=|
00000e80  31 0d 03 8e 1b e7 64 65  6e 25 3d 31 80 63 25 28  |1.....den%=1.c%(|
00000e90  50 25 2c 51 25 29 3d 30  6d 25 3d 30 0d 03 98 0f  |P%,Q%)=0m%=0....|
00000ea0  fd 6d 25 3d 30 84 45 25  3d 4f 25 0d 03 a2 1b e7  |.m%=0.E%=O%.....|
00000eb0  45 25 3d 4f 25 80 6d 25  3d 31 80 64 65 6e 25 3d  |E%=O%.m%=1.den%=|
00000ec0  31 e5 8d 44 4e 42 0d 03  ac 23 e7 45 25 3d 4f 25  |1..DNB...#.E%=O%|
00000ed0  80 54 25 3d 31 30 30 f2  6d 6f 76 65 61 77 61 79  |.T%=100.moveaway|
00000ee0  28 30 29 3a e5 8d 64 54  43 0d 03 b6 14 e7 45 25  |(0):..dTC.....E%|
00000ef0  3d 4f 25 80 6d 25 3d 31  e5 8d 54 7e 43 0d 03 c0  |=O%.m%=1..T~C...|
00000f00  09 e5 8d 64 54 43 0d 03  ca 09 fd b9 3a fd b9 0d  |...dTC......:...|
00000f10  03 d4 1c e7 50 25 3d 58  25 80 51 25 3d 59 25 f2  |....P%=X%.Q%=Y%.|
00000f20  6d 6f 76 65 61 77 61 79  28 31 29 0d 03 de 15 f2  |moveaway(1).....|
00000f30  6d 63 3a d4 31 2c 2d 38  2c 31 30 30 2c 32 3a e1  |mc:.1,-8,100,2:.|
00000f40  0d 03 e8 11 dd f2 6e 65  78 74 28 45 25 2c 46 25  |......next(E%,F%|
00000f50  29 0d 03 f2 30 e7 45 25  3d 50 25 80 46 25 3d 51  |)...0.E%=P%.F%=Q|
00000f60  25 4c 25 3d 63 25 28 50  25 2c 51 25 29 3a 63 25  |%L%=c%(P%,Q%):c%|
00000f70  28 50 25 2c 51 25 29 3d  63 25 28 58 25 2c 59 25  |(P%,Q%)=c%(X%,Y%|
00000f80  29 0d 03 fc 6b f2 63 6f  6e 28 45 25 2c 46 25 2b  |)...k.con(E%,F%+|
00000f90  31 2c 45 25 2c 46 25 29  3a 41 25 3d 55 25 3a f2  |1,E%,F%):A%=U%:.|
00000fa0  63 6f 6e 28 45 25 2b 31  2c 46 25 2c 45 25 2c 46  |con(E%+1,F%,E%,F|
00000fb0  25 29 3a 42 25 3d 55 25  3a f2 63 6f 6e 28 45 25  |%):B%=U%:.con(E%|
00000fc0  2c 46 25 2d 31 2c 45 25  2c 46 25 29 3a 43 25 3d  |,F%-1,E%,F%):C%=|
00000fd0  55 25 3a f2 63 6f 6e 28  45 25 2d 31 2c 46 25 2c  |U%:.con(E%-1,F%,|
00000fe0  45 25 2c 46 25 29 3a 44  25 3d 55 25 0d 04 06 1c  |E%,F%):D%=U%....|
00000ff0  e7 45 25 3d 50 25 80 46  25 3d 51 25 63 25 28 50  |.E%=P%.F%=Q%c%(P|
00001000  25 2c 51 25 29 3d 4c 25  0d 04 10 05 e1 0d 04 1a  |%,Q%)=L%........|
00001010  1c dd f2 6e 65 61 72 65  73 74 28 41 25 2c 42 25  |...nearest(A%,B%|
00001020  2c 54 25 29 3a 44 25 3d  30 0d 04 24 1a 4e 25 3d  |,T%):D%=0..$.N%=|
00001030  31 30 30 3a e3 51 25 3d  31 b8 39 3a e3 50 25 3d  |100:.Q%=1.9:.P%=|
00001040  31 b8 37 0d 04 2e 34 e7  44 25 3d 31 80 28 28 50  |1.7...4.D%=1.((P|
00001050  25 3d 33 80 51 25 3d 31  29 84 28 50 25 3d 35 80  |%=3.Q%=1).(P%=5.|
00001060  51 25 3d 31 29 84 28 50  25 3d 34 80 51 25 3d 32  |Q%=1).(P%=4.Q%=2|
00001070  29 29 e5 8d 44 4c 44 0d  04 38 46 e7 63 25 28 50  |))..DLD..8F.c%(P|
00001080  25 2c 51 25 29 3c 31 32  38 80 63 25 28 50 25 2c  |%,Q%)<128.c%(P%,|
00001090  51 25 29 3c 3e 30 80 94  28 50 25 2d 41 25 29 2b  |Q%)<>0..(P%-A%)+|
000010a0  94 28 51 25 2d 42 25 29  3d 4e 25 80 b3 28 32 29  |.(Q%-B%)=N%..(2)|
000010b0  3d 31 58 25 3d 50 25 3a  59 25 3d 51 25 0d 04 42  |=1X%=P%:Y%=Q%..B|
000010c0  69 e7 63 25 28 50 25 2c  51 25 29 3c 31 32 38 80  |i.c%(P%,Q%)<128.|
000010d0  63 25 28 50 25 2c 51 25  29 3c 3e 30 80 94 28 50  |c%(P%,Q%)<>0..(P|
000010e0  25 2d 41 25 29 2b 94 28  51 25 2d 42 25 29 3c 4e  |%-A%)+.(Q%-B%)<N|
000010f0  25 80 94 28 50 25 2d 41  25 29 2b 94 28 51 25 2d  |%..(P%-A%)+.(Q%-|
00001100  42 25 29 3e 54 25 58 25  3d 50 25 3a 59 25 3d 51  |B%)>T%X%=P%:Y%=Q|
00001110  25 3a 4e 25 3d 94 28 50  25 2d 41 25 29 2b 94 28  |%:N%=.(P%-A%)+.(|
00001120  51 25 2d 42 25 29 0d 04  4c 06 ed 2c 0d 04 56 1a  |Q%-B%)..L..,..V.|
00001130  e7 44 25 3d 31 80 4e 25  3d 31 30 30 44 25 3d 32  |.D%=1.N%=100D%=2|
00001140  3a e5 8d 54 64 44 0d 04  60 39 e7 44 25 3d 30 80  |:..TdD..`9.D%=0.|
00001150  28 28 58 25 3d 33 80 59  25 3d 31 29 84 28 58 25  |((X%=3.Y%=1).(X%|
00001160  3d 35 80 59 25 3d 31 29  84 28 58 25 3d 34 80 59  |=5.Y%=1).(X%=4.Y|
00001170  25 3d 32 29 29 44 25 3d  31 3a e5 8d 54 64 44 0d  |%=2))D%=1:..TdD.|
00001180  04 6a 05 e1 0d 04 74 15  dd f2 72 75 6e 61 77 61  |.j....t...runawa|
00001190  79 3a 41 25 3d b3 28 34  29 0d 04 7e 16 e7 41 25  |y:A%=.(4)..~..A%|
000011a0  3d 31 51 25 3d 59 25 2d  31 3a 50 25 3d 58 25 0d  |=1Q%=Y%-1:P%=X%.|
000011b0  04 88 16 e7 41 25 3d 32  51 25 3d 59 25 3a 50 25  |....A%=2Q%=Y%:P%|
000011c0  3d 58 25 2d 31 0d 04 92  16 e7 41 25 3d 33 51 25  |=X%-1.....A%=3Q%|
000011d0  3d 59 25 2b 31 3a 50 25  3d 58 25 0d 04 9c 16 e7  |=Y%+1:P%=X%.....|
000011e0  41 25 3d 34 51 25 3d 59  25 3a 50 25 3d 58 25 2b  |A%=4Q%=Y%:P%=X%+|
000011f0  31 0d 04 a6 16 e7 63 25  28 50 25 2c 51 25 29 3c  |1.....c%(P%,Q%)<|
00001200  3e 30 e5 8d 74 7a 44 0d  04 b0 0e f2 76 6c 3a e7  |>0..tzD.....vl:.|
00001210  6d 25 3d 30 e1 0d 04 ba  0b e3 53 25 3d 31 b8 34  |m%=0......S%=1.4|
00001220  0d 04 c4 16 e7 53 25 3d  31 51 25 3d 59 25 2d 31  |.....S%=1Q%=Y%-1|
00001230  3a 50 25 3d 58 25 0d 04  ce 16 e7 53 25 3d 32 51  |:P%=X%.....S%=2Q|
00001240  25 3d 59 25 3a 50 25 3d  58 25 2d 31 0d 04 d8 16  |%=Y%:P%=X%-1....|
00001250  e7 53 25 3d 33 51 25 3d  59 25 2b 31 3a 50 25 3d  |.S%=3Q%=Y%+1:P%=|
00001260  58 25 0d 04 e2 16 e7 53  25 3d 34 51 25 3d 59 25  |X%.....S%=4Q%=Y%|
00001270  3a 50 25 3d 58 25 2b 31  0d 04 ec 16 e7 63 25 28  |:P%=X%+1.....c%(|
00001280  50 25 2c 51 25 29 3c 3e  30 e5 8d 54 40 45 0d 04  |P%,Q%)<>0..T@E..|
00001290  f6 11 f2 76 6c 3a e7 6d  25 3d 30 53 25 3d 35 0d  |...vl:.m%=0S%=5.|
000012a0  05 00 05 ed 0d 05 0a 0d  e7 53 25 3d 35 6d 25 3d  |.........S%=5m%=|
000012b0  31 0d 05 14 05 e1 0d 05  1e 1b dd f2 63 6f 6e 28  |1...........con(|
000012c0  58 25 2c 59 25 2c 45 25  2c 46 25 29 3a 70 25 3d  |X%,Y%,E%,F%):p%=|
000012d0  30 0d 05 28 1e e7 58 25  3e 37 84 58 25 3c 31 84  |0..(..X%>7.X%<1.|
000012e0  59 25 3e 39 84 59 25 3c  31 55 25 3d 30 3a e1 0d  |Y%>9.Y%<1U%=0:..|
000012f0  05 32 3d e7 46 25 3e 33  80 46 25 3c 37 80 63 25  |.2=.F%>3.F%<7.c%|
00001300  28 45 25 2c 46 25 29 3c  38 80 28 28 45 25 3d 31  |(E%,F%)<8.((E%=1|
00001310  80 58 25 3d 32 29 84 28  45 25 3d 37 80 58 25 3d  |.X%=2).(E%=7.X%=|
00001320  36 29 29 58 25 3d 34 3a  70 25 3d 31 0d 05 3c 2d  |6))X%=4:p%=1..<-|
00001330  e7 46 25 3e 33 80 46 25  3c 37 80 63 25 28 45 25  |.F%>3.F%<7.c%(E%|
00001340  2c 46 25 29 3c 38 80 45  25 3d 34 80 58 25 3d 35  |,F%)<8.E%=4.X%=5|
00001350  58 25 3d 37 3a 70 25 3d  31 0d 05 46 2d e7 46 25  |X%=7:p%=1..F-.F%|
00001360  3e 33 80 46 25 3c 37 80  63 25 28 45 25 2c 46 25  |>3.F%<7.c%(E%,F%|
00001370  29 3c 38 80 45 25 3d 34  80 58 25 3d 33 58 25 3d  |)<8.E%=4.X%=3X%=|
00001380  31 3a 70 25 3d 31 0d 05  50 2d e7 28 63 25 28 58  |1:p%=1..P-.(c%(X|
00001390  25 2c 59 25 29 80 31 32  37 29 3c 28 63 25 28 45  |%,Y%).127)<(c%(E|
000013a0  25 2c 46 25 29 80 31 32  37 29 55 25 3d 31 8b 55  |%,F%).127)U%=1.U|
000013b0  25 3d 32 0d 05 5a 2c e7  28 63 25 28 45 25 2c 46  |%=2..Z,.(c%(E%,F|
000013c0  25 29 80 31 32 37 29 3d  31 80 28 63 25 28 58 25  |%).127)=1.(c%(X%|
000013d0  2c 59 25 29 80 31 32 37  29 3d 38 55 25 3d 31 0d  |,Y%).127)=8U%=1.|
000013e0  05 64 2c e7 28 63 25 28  45 25 2c 46 25 29 80 31  |.d,.(c%(E%,F%).1|
000013f0  32 37 29 3d 38 80 28 63  25 28 58 25 2c 59 25 29  |27)=8.(c%(X%,Y%)|
00001400  80 31 32 37 29 3d 31 55  25 3d 32 0d 05 6e 36 e7  |.127)=1U%=2..n6.|
00001410  63 25 28 58 25 2c 59 25  29 3c 31 32 38 84 28 63  |c%(X%,Y%)<128.(c|
00001420  25 28 58 25 2c 59 25 29  80 31 32 37 29 3d 28 63  |%(X%,Y%).127)=(c|
00001430  25 28 45 25 2c 46 25 29  80 31 32 37 29 55 25 3d  |%(E%,F%).127)U%=|
00001440  33 0d 05 78 14 e7 63 25  28 58 25 2c 59 25 29 3d  |3..x..c%(X%,Y%)=|
00001450  30 55 25 3d 30 0d 05 82  33 e7 28 28 45 25 3d 33  |0U%=0...3.((E%=3|
00001460  80 46 25 3d 31 29 84 28  45 25 3d 35 80 46 25 3d  |.F%=1).(E%=5.F%=|
00001470  31 29 84 28 45 25 3d 34  80 46 25 3d 32 29 29 80  |1).(E%=4.F%=2)).|
00001480  55 25 3d 32 55 25 3d 33  0d 05 8c 33 e7 28 28 45  |U%=2U%=3...3.((E|
00001490  25 3d 33 80 46 25 3d 39  29 84 28 45 25 3d 35 80  |%=3.F%=9).(E%=5.|
000014a0  46 25 3d 39 29 84 28 45  25 3d 34 80 46 25 3d 38  |F%=9).(E%=4.F%=8|
000014b0  29 29 80 55 25 3d 32 55  25 3d 33 0d 05 96 29 e7  |)).U%=2U%=3...).|
000014c0  46 25 3e 33 80 46 25 3c  37 80 45 25 3c 3e 31 80  |F%>3.F%<7.E%<>1.|
000014d0  45 25 3c 3e 34 80 45 25  3c 3e 37 80 55 25 3d 32  |E%<>4.E%<>7.U%=2|
000014e0  55 25 3d 33 0d 05 a0 29  e7 59 25 3e 33 80 59 25  |U%=3...).Y%>3.Y%|
000014f0  3c 37 80 58 25 3c 3e 31  80 58 25 3c 3e 34 80 58  |<7.X%<>1.X%<>4.X|
00001500  25 3c 3e 37 80 55 25 3d  31 55 25 3d 33 0d 05 aa  |%<>7.U%=1U%=3...|
00001510  45 e7 70 25 3d 31 80 63  25 28 58 25 2c 59 25 29  |E.p%=1.c%(X%,Y%)|
00001520  3c 3e 31 33 34 80 63 25  28 58 25 2c 59 25 29 3c  |<>134.c%(X%,Y%)<|
00001530  3e 31 33 35 80 63 25 28  45 25 2c 46 25 29 3c 3e  |>135.c%(E%,F%)<>|
00001540  36 80 63 25 28 45 25 2c  46 25 29 3c 3e 37 55 25  |6.c%(E%,F%)<>7U%|
00001550  3d 30 0d 05 b4 20 e7 70  25 3d 31 80 63 25 28 58  |=0... .p%=1.c%(X|
00001560  25 2c 59 25 29 3d 31 33  36 80 55 25 3d 32 55 25  |%,Y%)=136.U%=2U%|
00001570  3d 33 0d 05 be 05 e1 0d  05 c8 40 dd f2 6d 63 3a  |=3........@..mc:|
00001580  f2 70 72 69 6e 74 63 68  61 72 28 58 25 2c 59 25  |.printchar(X%,Y%|
00001590  2c 63 25 28 58 25 2c 59  25 29 29 3a f2 70 72 69  |,c%(X%,Y%)):.pri|
000015a0  6e 74 63 68 61 72 28 50  25 2c 51 25 2c 63 25 28  |ntchar(P%,Q%,c%(|
000015b0  58 25 2c 59 25 29 29 0d  05 d2 2c e7 63 25 28 50  |X%,Y%))...,.c%(P|
000015c0  25 2c 51 25 29 3c 3e 30  f2 70 72 69 6e 74 63 68  |%,Q%)<>0.printch|
000015d0  61 72 28 50 25 2c 51 25  2c 63 25 28 50 25 2c 51  |ar(P%,Q%,c%(P%,Q|
000015e0  25 29 29 0d 05 dc 28 e7  63 25 28 50 25 2c 51 25  |%))...(.c%(P%,Q%|
000015f0  29 3c 31 32 38 80 63 25  28 50 25 2c 51 25 29 3c  |)<128.c%(P%,Q%)<|
00001600  3e 30 6e 6d 25 3d 6e 6d  25 2d 31 0d 05 e6 25 63  |>0nm%=nm%-1...%c|
00001610  25 28 50 25 2c 51 25 29  3d 63 25 28 58 25 2c 59  |%(P%,Q%)=c%(X%,Y|
00001620  25 29 3a 63 25 28 58 25  2c 59 25 29 3d 30 3a e1  |%):c%(X%,Y%)=0:.|
00001630  0d 05 f0 1b dd f2 76 6c  3a f2 63 68 65 6b 3a f2  |......vl:.chek:.|
00001640  6e 65 78 74 28 50 25 2c  51 25 29 0d 05 fa 1c e7  |next(P%,Q%).....|
00001650  41 25 3d 32 84 42 25 3d  32 84 43 25 3d 32 84 44  |A%=2.B%=2.C%=2.D|
00001660  25 3d 32 6d 25 3d 31 0d  06 04 05 e1 0d 06 0e d0  |%=2m%=1.........|
00001670  dd f2 6e 65 61 72 28 45  25 2c 46 25 29 3a f2 63  |..near(E%,F%):.c|
00001680  6f 6e 28 45 25 2c 46 25  2b 32 2c 45 25 2c 46 25  |on(E%,F%+2,E%,F%|
00001690  29 3a 41 25 3d 55 25 3a  f2 63 6f 6e 28 45 25 2b  |):A%=U%:.con(E%+|
000016a0  32 2c 46 25 2c 45 25 2c  46 25 29 3a 42 25 3d 55  |2,F%,E%,F%):B%=U|
000016b0  25 3a f2 63 6f 6e 28 45  25 2c 46 25 2d 32 2c 45  |%:.con(E%,F%-2,E|
000016c0  25 2c 46 25 29 3a 43 25  3d 55 25 3a f2 63 6f 6e  |%,F%):C%=U%:.con|
000016d0  28 45 25 2d 32 2c 46 25  2c 45 25 2c 46 25 29 3a  |(E%-2,F%,E%,F%):|
000016e0  44 25 3d 55 25 3a f2 63  6f 6e 28 45 25 2b 31 2c  |D%=U%:.con(E%+1,|
000016f0  46 25 2d 31 2c 45 25 2c  46 25 29 3a 43 42 25 3d  |F%-1,E%,F%):CB%=|
00001700  55 25 3a f2 63 6f 6e 28  45 25 2b 31 2c 46 25 2b  |U%:.con(E%+1,F%+|
00001710  31 2c 45 25 2c 46 25 29  3a 41 42 25 3d 55 25 3a  |1,E%,F%):AB%=U%:|
00001720  f2 63 6f 6e 28 45 25 2d  31 2c 46 25 2b 31 2c 45  |.con(E%-1,F%+1,E|
00001730  25 2c 46 25 29 3a 41 44  25 3d 55 25 0d 06 18 22  |%,F%):AD%=U%..."|
00001740  f2 63 6f 6e 28 45 25 2d  31 2c 46 25 2d 31 2c 45  |.con(E%-1,F%-1,E|
00001750  25 2c 46 25 29 3a 43 44  25 3d 55 25 3a e1 0d 06  |%,F%):CD%=U%:...|
00001760  22 1f dd f2 6d 6f 76 65  61 77 61 79 28 70 61 73  |"...moveaway(pas|
00001770  73 25 29 3a 59 25 3d 30  3a 58 25 3d 30 0d 06 2c  |s%):Y%=0:X%=0..,|
00001780  39 f5 3a 59 25 3d 59 25  2b 31 3a f5 3a 58 25 3d  |9.:Y%=Y%+1:.:X%=|
00001790  58 25 2b 31 3a fd 58 25  3d 38 84 28 63 25 28 58  |X%+1:.X%=8.(c%(X|
000017a0  25 2c 59 25 29 3c 31 32  38 80 63 25 28 58 25 2c  |%,Y%)<128.c%(X%,|
000017b0  59 25 29 3e 30 29 0d 06  36 0d e7 58 25 3d 38 58  |Y%)>0)..6..X%=8X|
000017c0  25 3d 30 0d 06 40 3c fd  59 25 3d 31 30 84 28 63  |%=0..@<.Y%=10.(c|
000017d0  25 28 58 25 2c 59 25 29  3c 31 32 38 80 63 25 28  |%(X%,Y%)<128.c%(|
000017e0  58 25 2c 59 25 29 3e 30  29 3a e7 20 59 25 3d 31  |X%,Y%)>0):. Y%=1|
000017f0  30 20 50 25 3d 58 25 3a  51 25 3d 59 25 3a e1 0d  |0 P%=X%:Q%=Y%:..|
00001800  06 4a 22 50 25 3d 58 25  2b 31 3a 51 25 3d 59 25  |.J"P%=X%+1:Q%=Y%|
00001810  3a e7 70 61 73 73 25 f2  63 68 65 6b 20 8b f2 76  |:.pass%.chek ..v|
00001820  6c 0d 06 54 0c e7 20 6d  25 3d 30 20 e1 0d 06 5e  |l..T.. m%=0 ...^|
00001830  22 50 25 3d 58 25 2d 31  3a 51 25 3d 59 25 3a e7  |"P%=X%-1:Q%=Y%:.|
00001840  70 61 73 73 25 f2 63 68  65 6b 20 8b f2 76 6c 0d  |pass%.chek ..vl.|
00001850  06 68 0c e7 20 6d 25 3d  30 20 e1 0d 06 72 22 50  |.h.. m%=0 ...r"P|
00001860  25 3d 58 25 3a 51 25 3d  59 25 2d 31 3a e7 70 61  |%=X%:Q%=Y%-1:.pa|
00001870  73 73 25 f2 63 68 65 6b  20 8b f2 76 6c 0d 06 7c  |ss%.chek ..vl..||
00001880  0c e7 20 6d 25 3d 30 20  e1 0d 06 86 22 50 25 3d  |.. m%=0 ...."P%=|
00001890  58 25 3a 51 25 3d 59 25  2b 31 3a e7 70 61 73 73  |X%:Q%=Y%+1:.pass|
000018a0  25 f2 63 68 65 6b 20 8b  f2 76 6c 0d 06 90 0c e7  |%.chek ..vl.....|
000018b0  20 6d 25 3d 30 20 e1 0d  06 9a 19 e7 20 59 25 3c  | m%=0 ...... Y%<|
000018c0  31 30 20 59 25 3d 59 25  2d 31 3a e5 8d 54 6c 46  |10 Y%=Y%-1:..TlF|
000018d0  0d 06 a4 05 e1 0d 06 ae  5b dd f2 73 65 74 63 68  |........[..setch|
000018e0  61 72 73 3a f7 8d 64 4c  46 3a e3 44 25 3d 31 b8  |ars:..dLF:.D%=1.|
000018f0  38 3a f3 45 25 2c 46 25  2c 43 25 3a 63 25 28 45  |8:.E%,F%,C%:c%(E|
00001900  25 2c 46 25 29 3d 43 25  3a 63 25 28 38 2d 45 25  |%,F%)=C%:c%(8-E%|
00001910  2c 31 30 2d 46 25 29 3d  43 25 2b 31 32 38 3a ed  |,10-F%)=C%+128:.|
00001920  3a e3 59 25 3d 31 b8 39  3a e3 58 25 3d 31 b8 37  |:.Y%=1.9:.X%=1.7|
00001930  0d 06 b8 2c e7 63 25 28  58 25 2c 59 25 29 3c 3e  |...,.c%(X%,Y%)<>|
00001940  30 f2 70 72 69 6e 74 63  68 61 72 28 58 25 2c 59  |0.printchar(X%,Y|
00001950  25 2c 63 25 28 58 25 2c  59 25 29 29 0d 06 c2 08  |%,c%(X%,Y%))....|
00001960  ed 2c 3a e1 0d 06 cc 34  dc 31 2c 31 2c 37 2c 37  |.,:....4.1,1,7,7|
00001970  2c 31 2c 36 2c 32 2c 32  2c 33 2c 36 2c 32 2c 32  |,1,6,2,2,3,6,2,2|
00001980  2c 31 2c 33 2c 31 2c 33  2c 33 2c 35 2c 35 2c 33  |,1,3,1,3,3,5,5,3|
00001990  2c 34 2c 37 2c 33 2c 38  0d 06 d6 ae dd f2 62 6f  |,4,7,3,8......bo|
000019a0  61 72 64 3a e6 30 2c 31  3a e3 58 25 3d 30 b8 37  |ard:.0,1:.X%=0.7|
000019b0  3a ec 28 58 25 2a 31 32  38 29 2c 31 35 36 3a df  |:.(X%*128),156:.|
000019c0  28 58 25 2a 31 32 38 29  2c 31 30 32 34 3a ed 3a  |(X%*128),1024:.:|
000019d0  e3 59 25 3d 30 b8 39 3a  ec 30 2c 28 59 25 2a 39  |.Y%=0.9:.0,(Y%*9|
000019e0  36 29 2b 31 35 36 3a df  38 39 36 2c 28 59 25 2a  |6)+156:.896,(Y%*|
000019f0  39 36 29 2b 31 35 36 3a  ed 3a e6 30 2c 32 3a ec  |96)+156:.:.0,2:.|
00001a00  31 33 32 2c 37 32 38 3a  ec 33 38 30 2c 37 32 38  |132,728:.380,728|
00001a10  3a f0 38 35 2c 31 33 32  2c 34 34 38 3a f0 38 35  |:.85,132,448:.85|
00001a20  2c 33 38 30 2c 34 34 38  3a ec 35 31 36 2c 37 32  |,380,448:.516,72|
00001a30  38 3a ec 37 36 34 2c 37  32 38 3a f0 38 35 2c 35  |8:.764,728:.85,5|
00001a40  31 36 2c 34 34 38 0d 06  e0 43 f0 38 35 2c 37 36  |16,448...C.85,76|
00001a50  34 2c 34 34 38 3a e6 30  2c 37 3a f7 8d 64 6a 46  |4,448:.0,7:..djF|
00001a60  3a e3 41 25 3d 31 b8 31  30 3a f3 58 25 2c 59 25  |:.A%=1.10:.X%,Y%|
00001a70  2c 52 25 3a f2 63 69 72  63 6c 65 28 58 25 2c 59  |,R%:.circle(X%,Y|
00001a80  25 2c 52 25 29 3a ed 3a  e1 0d 06 ea 72 dc 34 34  |%,R%):.:....r.44|
00001a90  38 2c 32 30 34 2c 34 34  2c 34 34 38 2c 32 30 34  |8,204,44,448,204|
00001aa0  2c 33 32 2c 34 34 38 2c  39 37 36 2c 34 34 2c 34  |,32,448,976,44,4|
00001ab0  34 38 2c 39 37 36 2c 33  32 2c 33 32 30 2c 32 30  |48,976,32,320,20|
00001ac0  34 2c 33 30 2c 33 32 30  2c 39 37 36 2c 33 30 2c  |4,30,320,976,30,|
00001ad0  35 37 36 2c 32 30 34 2c  33 30 2c 35 37 36 2c 39  |576,204,30,576,9|
00001ae0  37 36 2c 33 30 2c 34 34  38 2c 33 30 30 2c 33 30  |76,30,448,300,30|
00001af0  2c 34 34 38 2c 38 38 30  2c 33 30 0d 06 f4 b3 dd  |,448,880,30.....|
00001b00  f2 63 69 72 63 6c 65 28  58 25 2c 59 25 2c 52 25  |.circle(X%,Y%,R%|
00001b10  29 3a ef 32 39 2c 58 25  3b 59 25 3b 30 3b 30 3b  |):.29,X%;Y%;0;0;|
00001b20  30 3b 3a ec 30 2c 52 25  3a 50 58 25 3d 30 3a 50  |0;:.0,R%:PX%=0:P|
00001b30  59 25 3d 52 25 3a e3 41  3d 30 b8 32 88 30 2e 35  |Y%=R%:.A=0.2.0.5|
00001b40  3a 58 25 3d b5 28 41 29  2a 52 25 3a 59 25 3d 9b  |:X%=.(A)*R%:Y%=.|
00001b50  28 41 29 2a 52 25 3a ec  50 58 25 2c 50 59 25 3a  |(A)*R%:.PX%,PY%:|
00001b60  df 58 25 2c 59 25 3a ec  2d 50 58 25 2c 50 59 25  |.X%,Y%:.-PX%,PY%|
00001b70  3a df 2d 58 25 2c 59 25  3a ec 50 58 25 2c 2d 50  |:.-X%,Y%:.PX%,-P|
00001b80  59 25 3a df 58 25 2c 2d  59 25 3a ec 2d 50 58 25  |Y%:.X%,-Y%:.-PX%|
00001b90  2c 2d 50 59 25 3a df 2d  58 25 2c 2d 59 25 3a 50  |,-PY%:.-X%,-Y%:P|
00001ba0  58 25 3d 58 25 3a 50 59  25 3d 59 25 3a ed 0d 06  |X%=X%:PY%=Y%:...|
00001bb0  fe 14 ef 32 39 2c 30 3b  30 3b 30 3b 30 3b 30 3b  |...29,0;0;0;0;0;|
00001bc0  3a e1 0d 07 08 07 2a 54  2e 0d 07 12 68 e3 41 25  |:.....*T....h.A%|
00001bd0  3d 90 20 b8 b8 50 2b 33  88 34 3a 21 28 41 25 2d  |=. ..P+3.4:!(A%-|
00001be0  26 42 30 30 29 3d 21 41  25 3a ed 3a d0 3d 26 45  |&B00)=!A%:.:.=&E|
00001bf0  30 30 3a 24 26 31 30 30  3d 22 4f 2e 22 2b bd 31  |00:$&100="O."+.1|
00001c00  33 2b 22 52 55 4e 22 2b  bd 31 33 3a e3 43 25 3d  |3+"RUN"+.13:.C%=|
00001c10  26 31 30 30 b8 26 31 30  36 3a ff 28 22 2a 46 58  |&100.&106:.("*FX|
00001c20  31 33 38 2c 30 2c 22 2b  c3 28 3f 43 25 29 29 3a  |138,0,"+.(?C%)):|
00001c30  ed 0d ff                                          |...|
00001c33
25-10-88/CHESS2.m0
25-10-88/CHESS2.m1
25-10-88/CHESS2.m2
25-10-88/CHESS2.m4
25-10-88/CHESS2.m5