BeebDisk/HEX

Home » Archimedes archive » Acorn Computing » 1994 02 subscription disc.adf » 9402s » BeebDisk/HEX

BeebDisk/HEX

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 » Acorn Computing » 1994 02 subscription disc.adf » 9402s
Filename:	BeebDisk/HEX
Read OK:	✔
File size:	113B bytes
Load address:	0000
Exec address:	0000

Duplicates

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

Archimedes archive » Acorn Computing » 1994 02 subscription disc.adf » 9402s » BeebDisk/HEX
AEW website » mu » mu_5_25_discs_Micro_User_11_13_D-MU11_13.ssd » HEX

File contents

   10REM Hex!
   20REM By Adrian Jackson
   30REM (c) The Micro User
   40REM ===================
   50ONERROR MODE7:PROCerror:END
   60PROCsetup
   70MODE1:VDU19,2,5,0,0,0,19,1,4,0,0,0,23;8202;0;0;0;:PROCboard:PROCinit
   80REPEAT:PROCmove:PROCcheck:UNTILwon>0:PROCwon(won):GOTO70
   90DEFPROChex(hx,hy,hs,hc)
  100GCOL0,3
  110MOVEhx,hy:DRAWhx+2*hs,hy+2*hs:DRAWhx+5*hs,hy+2*hs:DRAWhx+7*hs,hy:DRAWhx+5*hs,hy-2*hs:DRAWhx+2*hs,hy-2*hs:DRAWhx,hy
  120IFhc=0ENDPROC ELSE GCOL0,hc:FOR hz=hy+2*hs-4 TO hy-2*hs+4 STEP-4:MOVE hx+4*hs,hz:PLOT77,hx+4*hs,hz:NEXT
  130ENDPROC
  140DEFPROCboard
  150FOR bp=1 TO 11:FOR bd=1 TO 11
  160PROChex(605+(bp-1)*50-(bd-1)*50,100+(bd-1)*20+(bp-1)*20,10,0)
  170NEXT:NEXT:GCOL0,2
  180MOVE20,0:DRAW0,20:DRAW0,1000:DRAW20,1020:DRAW1259,1020:DRAW1279,1000:DRAW1279,20:DRAW1259,0:DRAW20,0
  190MOVE28,8:DRAW8,28:DRAW8,576:DRAW28,596:DRAW1251,596:DRAW1271,576:DRAW1271,28:DRAW1251,8:DRAW28,8
  200MOVE28,604:DRAW8,624:DRAW8,992:DRAW28,1012:DRAW1251,1012:DRAW1271,992:DRAW1271,624:DRAW1251,604:DRAW28,604
  210GCOL0,3
  220RESTORE290:FORdl=1TO6:READlb,C%,D%:MOVEC%,D%:GCOL0,3:FORld=1TOlb:READA%,B%:DRAWA%,B%:NEXT:DRAWC%,D%:READnf:GCOL0,1:FORld=1TOnf:READA%,B%,C%,D%:FORfl=B%TOD%:PLOT77,A%+(fl-B%)*(C%-A%)/(D%-B%),fl:NEXT:NEXT:NEXT
  230MOVE105,300:GCOL0,2:FORA%=1TO11:PLOT1,20,20:PLOT1,30,0:NEXT:GCOL0,1:FORA%=1TO10:PLOT1,20,-20:PLOT1,30,0:NEXT:PLOT1,20,-20:GCOL0,2:FORA%=1TO11:PLOT1,-20,-20:PLOT1,-30,0:NEXT:GCOL0,1:FORA%=1TO10:PLOT1,-20,20:PLOT1,-30,0:NEXT
  240PLOT1,-20,20
  250PROChex(350,880,25,1):PROChex(350,760,25,2):MOVE700,836:GCOL0,3:VDU5:PRINT"TO PLAY":MOVE692,844:DRAW924,844:DRAW924,800:DRAW692,800:DRAW692,844
  260GCOL0,3:FORA%=880TO760STEP-5:MOVE692,800:DRAW525,A%:NEXT:FORA%=880TO760STEP-5:MOVE692,844:DRAW525,A%:NEXT:FORA%=880TO760STEP-5:MOVE465,820:DRAW525,A%:NEXT
  270RESTORE290:FORdl=1TO6:READlb,C%,D%:MOVEC%+940,D%:GCOL0,3:FORld=1TOlb:READA%,B%:DRAWA%+940,B%:NEXT:DRAWC%+940,D%:READnf:GCOL0,2:FORld=1TOnf:READA%,B%,C%,D%:FORfl=B%TOD%:PLOT77,940+A%+(fl-B%)*(C%-A%)/(D%-B%),fl:NEXT:NEXT:NEXT
  280PROCtune(700):ENDPROC
  290DATA3,250,704,250,992,300,992,300,704,1,254,708,254,988,3,250,694,250,640,300,640,300,694,1,254,644,254,690,11,40,992,40,880,130,880,130,925,150,925,150,880,240,880,240,992,150,992,150,947,130,947,130,992,2,44,884,44,988,174,884,174
  300DATA988,11,40,870,240,870,240,840,100,840,100,830,240,830,240,800,100,800,100,790,240,790,240,760,40,760,1,44,764,44,866,11,40,750,110,750,140,725,170,750,240,750,170,695,240,640,170,640,140,665,110,640,40,640,110,695,2,50,644,230
  310DATA746,230,644,50,746,3,40,632,40,624,300,624,300,632,1,44,628,44,629
  320DEFPROCwon(Z%):T=TIME+750:REPEAT:VDU19,1,5,0,0,0,19,2,4,0,0,0,19,1,4,0,0,0,19,2,5,0,0,0:UNTILTIME>T:CLS
  330FORA%=1TO4:PROChex(A%*300-235,600,30,1):NEXT:FORA%=1TO3:PROChex(A%*300-85,540,30,2):NEXT:FORA%=1TO2:PROChex(A%*300+65,420,30,3):NEXT:PROChex(515,360,30,3)
  340GCOL3,3:VDU5:FORA%=1TO4:MOVEA%*300-146,616:PRINTMID$("PAE"+STR$Z%,A%,1):NEXT:FORA%=1TO3:MOVEA%*300+4,556:PRINTMID$("LYR",A%,1):NEXT:FORA%=1TO2:MOVEA%*300+154,436:PRINTMID$("WN",A%,1):NEXT:MOVE604,376:PRINT"O"
  350T=TIME+750:REPEAT:VDU19,1,5,0,0,0,19,2,4,0,0,0,19,1,4,0,0,0,19,2,5,0,0,0:UNTILTIME>T:VDU4
  360PROCtune(670)
  370COLOUR1:PRINTTAB(8,25);"Press ";:COLOUR2:PRINT;"<SPACE> ";:COLOUR1:PRINT;"to play.":REPEAT:VDU19,1,5,0,0,0,19,2,4,0,0,0,19,1,4,0,0,0,19,2,5,0,0,0:UNTILINKEY-99
  380ENDPROC
  390DEFPROCsetup:DIMboard(10,10),check(10,10):ENVELOPE1,1,0,0,0,0,0,0,126,-1,0,-3,126,126:ENDPROC
  400DEFPROCinit:FORA%=0TO10:FORB%=0TO10:board(A%,B%)=0:NEXT:NEXT:won=0:ENDPROC
  410DEFPROCmove:PROCmove1(1):PROCcheck:IFwon>0 GOTO420 ELSE PROCmove1(2)
  420ENDPROC
  430DEFPROCcheck
  440FORA%=1TO2:FORB%=0TO10:FORC%=0TO10:IFboard(B%,C%)=A% check(B%,C%)=1 ELSE check(B%,C%)=0
  450NEXT:NEXT:FORB%=0TO10:IFA%=1AND check(0,B%)=1 check(0,B%)=2 ELSE IFA%=2 AND check(B%,0)=1 check(B%,0)=2
  460NEXT:REPEAT:D%=0:FORB%=0TO10:FORC%=0TO10:IFcheck(B%,C%)=2 PROCsearch
  470NEXT:NEXT:UNTILD%=0
  480FORB%=0TO10:IF(A%=1 AND check(10,B%)>1)OR(A%=2 AND check(B%,10)>1) won=A%
  490NEXT:NEXT
  500ENDPROC
  510DEFPROCsearch:RESTORE 540:FORF%=0TO5:READf%,g%:b%=B%-f%:c%=C%-g%:IF b%<0 OR b%>10 OR c%<0 OR c%>10 NEXT:ENDPROC
  520IFcheck(b%,c%)=1 check(b%,c%)=2:D%=D%+1
  530NEXT:ENDPROC
  540DATA-1,0,-1,1,0,-1,0,1,1,-1,1,0
  550DEFPROCmove1(H%):B%=0:C%=0:GCOL0,H%:MOVE700,836:VDU5:PRINT"TO PLAY":MOVE425,772-120*(H%=1):GCOL3,3:PRINT"*"
  560GCOL3,3:REPEAT:MOVE675+B%*50-(C%+1)*50,100+(C%+1)*20+B%*20:PRINT"."
  570T=TIME+10:REPEATUNTILTIME>T
  580REPEATUNTILINKEY-73 OR INKEY-105 OR INKEY-99 OR INKEY-66 OR INKEY-98:MOVE675+B%*50-(C%+1)*50,100+(C%+1)*20+B%*20:PRINT".":IFINKEY-73ANDB%<10 B%=B%+1
  590IFINKEY-105ANDB%>0 B%=B%-1
  600IFINKEY-66ANDC%<10 C%=C%+1
  610IFINKEY-98ANDC%>0 C%=C%-1
  620UNTILINKEY-99 ANDboard(B%,10-C%)=0:SOUND0,1,5,2:PROChex(605+B%*50-C%*50,100+C%*20+B%*20,10,H%):board(B%,10-C%)=H%
  630GCOL0,3:MOVE700,836:VDU5:PRINT"TO PLAY":MOVE425,772-120*(H%=1):GCOL3,3:PRINT"*":ENDPROC
  640DEFPROCtune(M%):RESTOREM%:REPEAT:FORL%=1TO3:READJ%,K%:IFK%=0 GOTO 660
  650IFJ%=0 ANDK%<>0 SOUNDL%,0,J%,K% ELSE SOUNDL%,1,J%,K%
  660NEXT:UNTILJ%=0 AND K%=1:ENDPROC
  670DATA0,8,0,8,33,8,157,4,145,8,81,16,145,4,117,8,81,8,149,8,0,0,0,0,145,4,109,4,0,0,137,8,101,8,41,8
  680DATA117,28,101,28,69,8,0,0,0,0,89,4,0,0,0,0,81,4,0,0,0,0,77,4,0,0,0,0,69,4,0,8,0,8,61,8
  690DATA137,4,125,24,101,16,129,4,0,0,0,0,145,8,0,0,0,0,137,8,0,0,101,8,129,32,109,32,97,32,0,1,0,1,0,1
  700DATA129,4,97,16,69,8,129,4,0,0,0,0,129,4,0,0,61,8,137,4,0,0,0,0
  710DATA145,8,117,16,53,12,145,8,0,0,53,4,137,4,101,16,61,12,129,4,0,0,0,0,137,8,0,0,61,2,129,32,97,32,0,2,0,0,0,0,61,32
  720DATA0,1,0,1,0,1
  730DEFPROCerror:REPORT:PRINT" at line ";ERL:ENDPROC



� Hex!
� By Adrian Jackson
� (c) The Micro User
(� ===================
2� �7:�error:�
<
�setup
F=�1:�19,2,5,0,0,0,19,1,4,0,0,0,23;8202;0;0;0;:�board:�init
P)�:�move:�check:�won>0:�won(won):�DF@
Z��hex(hx,hy,hs,hc)
d�0,3
na�hx,hy:�hx+2*hs,hy+2*hs:�hx+5*hs,hy+2*hs:�hx+7*hs,hy:�hx+5*hs,hy-2*hs:�hx+2*hs,hy-2*hs:�hx,hy
xO�hc=0� � �0,hc:� hz=hy+2*hs-4 � hy-2*hs+4 �-4:� hx+4*hs,hz:�77,hx+4*hs,hz:�
��
���board
�� bp=1 � 11:� bd=1 � 11
�>�hex(605+(bp-1)*50-(bd-1)*50,100+(bd-1)*20+(bp-1)*20,10,0)
��:�:�0,2
�M�20,0:�0,20:�0,1000:�20,1020:�1259,1020:�1279,1000:�1279,20:�1259,0:�20,0
�I�28,8:�8,28:�8,576:�28,596:�1251,596:�1271,576:�1271,28:�1251,8:�28,8
�S�28,604:�8,624:�8,992:�28,1012:�1251,1012:�1271,992:�1271,624:�1251,604:�28,604
��0,3
ܘ��TbA:�dl=1�6:�lb,C%,D%:�C%,D%:�0,3:�ld=1�lb:�A%,B%:�A%,B%:�:�C%,D%:�nf:�0,1:�ld=1�nf:�A%,B%,C%,D%:�fl=B%�D%:�77,A%+(fl-B%)*(C%-A%)/(D%-B%),fl:�:�:�
��105,300:�0,2:�A%=1�11:�1,20,20:�1,30,0:�:�0,1:�A%=1�10:�1,20,-20:�1,30,0:�:�1,20,-20:�0,2:�A%=1�11:�1,-20,-20:�1,-30,0:�:�0,1:�A%=1�10:�1,-20,20:�1,-30,0:�
�
�1,-20,20
�r�hex(350,880,25,1):�hex(350,760,25,2):�700,836:�0,3:�5:�"TO PLAY":�692,844:�924,844:�924,800:�692,800:�692,844
n�0,3:�A%=880�760�-5:�692,800:�525,A%:�:�A%=880�760�-5:�692,844:�525,A%:�:�A%=880�760�-5:�465,820:�525,A%:�
���TbA:�dl=1�6:�lb,C%,D%:�C%+940,D%:�0,3:�ld=1�lb:�A%,B%:�A%+940,B%:�:�C%+940,D%:�nf:�0,2:�ld=1�nf:�A%,B%,C%,D%:�fl=B%�D%:�77,940+A%+(fl-B%)*(C%-A%)/(D%-B%),fl:�:�:�
�tune(700):�
"��3,250,704,250,992,300,992,300,704,1,254,708,254,988,3,250,694,250,640,300,640,300,694,1,254,644,254,690,11,40,992,40,880,130,880,130,925,150,925,150,880,240,880,240,992,150,992,150,947,130,947,130,992,2,44,884,44,988,174,884,174
,��988,11,40,870,240,870,240,840,100,840,100,830,240,830,240,800,100,800,100,790,240,790,240,760,40,760,1,44,764,44,866,11,40,750,110,750,140,725,170,750,240,750,170,695,240,640,170,640,140,665,110,640,40,640,110,695,2,50,644,230
6G�746,230,644,50,746,3,40,632,40,624,300,624,300,632,1,44,628,44,629
@S��won(Z%):T=�+750:�:�19,1,5,0,0,0,19,2,4,0,0,0,19,1,4,0,0,0,19,2,5,0,0,0:��>T:�
J��A%=1�4:�hex(A%*300-235,600,30,1):�:�A%=1�3:�hex(A%*300-85,540,30,2):�:�A%=1�2:�hex(A%*300+65,420,30,3):�:�hex(515,360,30,3)
T��3,3:�5:�A%=1�4:�A%*300-146,616:�"PAE"+�Z%,A%,1):�:�A%=1�3:�A%*300+4,556:�"LYR",A%,1):�:�A%=1�2:�A%*300+154,436:�"WN",A%,1):�:�604,376:�"O"
^JT=�+750:�:�19,1,5,0,0,0,19,2,4,0,0,0,19,1,4,0,0,0,19,2,5,0,0,0:��>T:�4
h�tune(670)
rv�1:�8,25);"Press ";:�2:�;"<SPACE> ";:�1:�;"to play.":�:�19,1,5,0,0,0,19,2,4,0,0,0,19,1,4,0,0,0,19,2,5,0,0,0:��-99
|�
�M��setup:�board(10,10),check(10,10):�1,1,0,0,0,0,0,0,126,-1,0,-3,126,126:�
�7��init:�A%=0�10:�B%=0�10:board(A%,B%)=0:�:�:won=0:�
�4��move:�move1(1):�check:�won>0 �tdA � �move1(2)
��
���check
�N�A%=1�2:�B%=0�10:�C%=0�10:�board(B%,C%)=A% check(B%,C%)=1 � check(B%,C%)=0
�Y�:�:�B%=0�10:�A%=1� check(0,B%)=1 check(0,B%)=2 � �A%=2 � check(B%,0)=1 check(B%,0)=2
�6�:�:D%=0:�B%=0�10:�C%=0�10:�check(B%,C%)=2 �search
�
�:�:�D%=0
�D�B%=0�10:�(A%=1 � check(10,B%)>1)�(A%=2 � check(B%,10)>1) won=A%
��:�
��
�V��search:� �T\B:�F%=0�5:�f%,g%:b%=B%-f%:c%=C%-g%:� b%<0 � b%>10 � c%<0 � c%>10 �:�
*�check(b%,c%)=1 check(b%,c%)=2:D%=D%+1
�:�
 �-1,0,-1,1,0,-1,0,1,1,-1,1,0
&T��move1(H%):B%=0:C%=0:�0,H%:�700,836:�5:�"TO PLAY":�425,772-120*(H%=1):�3,3:�"*"
08�3,3:�:�675+B%*50-(C%+1)*50,100+(C%+1)*20+B%*20:�"."
:T=�+10:���>T
Di���-73 � �-105 � �-99 � �-66 � �-98:�675+B%*50-(C%+1)*50,100+(C%+1)*20+B%*20:�".":�-73�B%<10 B%=B%+1
N�-105�B%>0 B%=B%-1
X�-66�C%<10 C%=C%+1
b�-98�C%>0 C%=C%-1
ld��-99 �board(B%,10-C%)=0:�0,1,5,2:�hex(605+B%*50-C%*50,100+C%*20+B%*20,10,H%):board(B%,10-C%)=H%
v?�0,3:�700,836:�5:�"TO PLAY":�425,772-120*(H%=1):�3,3:�"*":�
�0��tune(M%):�M%:�:�L%=1�3:�J%,K%:�K%=0 � �tTB
�*�J%=0 �K%<>0 �L%,0,J%,K% � �L%,1,J%,K%
��:�J%=0 � K%=1:�
�c�0,8,0,8,33,8,157,4,145,8,81,16,145,4,117,8,81,8,149,8,0,0,0,0,145,4,109,4,0,0,137,8,101,8,41,8
�X�117,28,101,28,69,8,0,0,0,0,89,4,0,0,0,0,81,4,0,0,0,0,77,4,0,0,0,0,69,4,0,8,0,8,61,8
�d�137,4,125,24,101,16,129,4,0,0,0,0,145,8,0,0,0,0,137,8,0,0,101,8,129,32,109,32,97,32,0,1,0,1,0,1
�@�129,4,97,16,69,8,129,4,0,0,0,0,129,4,0,0,61,8,137,4,0,0,0,0
�u�145,8,117,16,53,12,145,8,0,0,53,4,137,4,101,16,61,12,129,4,0,0,0,0,137,8,0,0,61,2,129,32,97,32,0,2,0,0,0,0,61,32
��0,1,0,1,0,1
���error:�:�" at line ";�:�
�

00000000  0d 00 0a 0a f4 20 48 65  78 21 0d 00 14 17 f4 20  |..... Hex!..... |
00000010  42 79 20 41 64 72 69 61  6e 20 4a 61 63 6b 73 6f  |By Adrian Jackso|
00000020  6e 0d 00 1e 18 f4 20 28  63 29 20 54 68 65 20 4d  |n..... (c) The M|
00000030  69 63 72 6f 20 55 73 65  72 0d 00 28 19 f4 20 3d  |icro User..(.. =|
00000040  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000050  3d 3d 0d 00 32 12 ee 85  20 eb 37 3a f2 65 72 72  |==..2... .7:.err|
00000060  6f 72 3a e0 0d 00 3c 0a  f2 73 65 74 75 70 0d 00  |or:...<..setup..|
00000070  46 3d eb 31 3a ef 31 39  2c 32 2c 35 2c 30 2c 30  |F=.1:.19,2,5,0,0|
00000080  2c 30 2c 31 39 2c 31 2c  34 2c 30 2c 30 2c 30 2c  |,0,19,1,4,0,0,0,|
00000090  32 33 3b 38 32 30 32 3b  30 3b 30 3b 30 3b 3a f2  |23;8202;0;0;0;:.|
000000a0  62 6f 61 72 64 3a f2 69  6e 69 74 0d 00 50 29 f5  |board:.init..P).|
000000b0  3a f2 6d 6f 76 65 3a f2  63 68 65 63 6b 3a fd 77  |:.move:.check:.w|
000000c0  6f 6e 3e 30 3a f2 77 6f  6e 28 77 6f 6e 29 3a e5  |on>0:.won(won):.|
000000d0  8d 44 46 40 0d 00 5a 16  dd f2 68 65 78 28 68 78  |.DF@..Z...hex(hx|
000000e0  2c 68 79 2c 68 73 2c 68  63 29 0d 00 64 08 e6 30  |,hy,hs,hc)..d..0|
000000f0  2c 33 0d 00 6e 61 ec 68  78 2c 68 79 3a df 68 78  |,3..na.hx,hy:.hx|
00000100  2b 32 2a 68 73 2c 68 79  2b 32 2a 68 73 3a df 68  |+2*hs,hy+2*hs:.h|
00000110  78 2b 35 2a 68 73 2c 68  79 2b 32 2a 68 73 3a df  |x+5*hs,hy+2*hs:.|
00000120  68 78 2b 37 2a 68 73 2c  68 79 3a df 68 78 2b 35  |hx+7*hs,hy:.hx+5|
00000130  2a 68 73 2c 68 79 2d 32  2a 68 73 3a df 68 78 2b  |*hs,hy-2*hs:.hx+|
00000140  32 2a 68 73 2c 68 79 2d  32 2a 68 73 3a df 68 78  |2*hs,hy-2*hs:.hx|
00000150  2c 68 79 0d 00 78 4f e7  68 63 3d 30 e1 20 8b 20  |,hy..xO.hc=0. . |
00000160  e6 30 2c 68 63 3a e3 20  68 7a 3d 68 79 2b 32 2a  |.0,hc:. hz=hy+2*|
00000170  68 73 2d 34 20 b8 20 68  79 2d 32 2a 68 73 2b 34  |hs-4 . hy-2*hs+4|
00000180  20 88 2d 34 3a ec 20 68  78 2b 34 2a 68 73 2c 68  | .-4:. hx+4*hs,h|
00000190  7a 3a f0 37 37 2c 68 78  2b 34 2a 68 73 2c 68 7a  |z:.77,hx+4*hs,hz|
000001a0  3a ed 0d 00 82 05 e1 0d  00 8c 0b dd f2 62 6f 61  |:............boa|
000001b0  72 64 0d 00 96 1b e3 20  62 70 3d 31 20 b8 20 31  |rd..... bp=1 . 1|
000001c0  31 3a e3 20 62 64 3d 31  20 b8 20 31 31 0d 00 a0  |1:. bd=1 . 11...|
000001d0  3e f2 68 65 78 28 36 30  35 2b 28 62 70 2d 31 29  |>.hex(605+(bp-1)|
000001e0  2a 35 30 2d 28 62 64 2d  31 29 2a 35 30 2c 31 30  |*50-(bd-1)*50,10|
000001f0  30 2b 28 62 64 2d 31 29  2a 32 30 2b 28 62 70 2d  |0+(bd-1)*20+(bp-|
00000200  31 29 2a 32 30 2c 31 30  2c 30 29 0d 00 aa 0c ed  |1)*20,10,0).....|
00000210  3a ed 3a e6 30 2c 32 0d  00 b4 4d ec 32 30 2c 30  |:.:.0,2...M.20,0|
00000220  3a df 30 2c 32 30 3a df  30 2c 31 30 30 30 3a df  |:.0,20:.0,1000:.|
00000230  32 30 2c 31 30 32 30 3a  df 31 32 35 39 2c 31 30  |20,1020:.1259,10|
00000240  32 30 3a df 31 32 37 39  2c 31 30 30 30 3a df 31  |20:.1279,1000:.1|
00000250  32 37 39 2c 32 30 3a df  31 32 35 39 2c 30 3a df  |279,20:.1259,0:.|
00000260  32 30 2c 30 0d 00 be 49  ec 32 38 2c 38 3a df 38  |20,0...I.28,8:.8|
00000270  2c 32 38 3a df 38 2c 35  37 36 3a df 32 38 2c 35  |,28:.8,576:.28,5|
00000280  39 36 3a df 31 32 35 31  2c 35 39 36 3a df 31 32  |96:.1251,596:.12|
00000290  37 31 2c 35 37 36 3a df  31 32 37 31 2c 32 38 3a  |71,576:.1271,28:|
000002a0  df 31 32 35 31 2c 38 3a  df 32 38 2c 38 0d 00 c8  |.1251,8:.28,8...|
000002b0  53 ec 32 38 2c 36 30 34  3a df 38 2c 36 32 34 3a  |S.28,604:.8,624:|
000002c0  df 38 2c 39 39 32 3a df  32 38 2c 31 30 31 32 3a  |.8,992:.28,1012:|
000002d0  df 31 32 35 31 2c 31 30  31 32 3a df 31 32 37 31  |.1251,1012:.1271|
000002e0  2c 39 39 32 3a df 31 32  37 31 2c 36 32 34 3a df  |,992:.1271,624:.|
000002f0  31 32 35 31 2c 36 30 34  3a df 32 38 2c 36 30 34  |1251,604:.28,604|
00000300  0d 00 d2 08 e6 30 2c 33  0d 00 dc 98 f7 8d 54 62  |.....0,3......Tb|
00000310  41 3a e3 64 6c 3d 31 b8  36 3a f3 6c 62 2c 43 25  |A:.dl=1.6:.lb,C%|
00000320  2c 44 25 3a ec 43 25 2c  44 25 3a e6 30 2c 33 3a  |,D%:.C%,D%:.0,3:|
00000330  e3 6c 64 3d 31 b8 6c 62  3a f3 41 25 2c 42 25 3a  |.ld=1.lb:.A%,B%:|
00000340  df 41 25 2c 42 25 3a ed  3a df 43 25 2c 44 25 3a  |.A%,B%:.:.C%,D%:|
00000350  f3 6e 66 3a e6 30 2c 31  3a e3 6c 64 3d 31 b8 6e  |.nf:.0,1:.ld=1.n|
00000360  66 3a f3 41 25 2c 42 25  2c 43 25 2c 44 25 3a e3  |f:.A%,B%,C%,D%:.|
00000370  66 6c 3d 42 25 b8 44 25  3a f0 37 37 2c 41 25 2b  |fl=B%.D%:.77,A%+|
00000380  28 66 6c 2d 42 25 29 2a  28 43 25 2d 41 25 29 2f  |(fl-B%)*(C%-A%)/|
00000390  28 44 25 2d 42 25 29 2c  66 6c 3a ed 3a ed 3a ed  |(D%-B%),fl:.:.:.|
000003a0  0d 00 e6 a0 ec 31 30 35  2c 33 30 30 3a e6 30 2c  |.....105,300:.0,|
000003b0  32 3a e3 41 25 3d 31 b8  31 31 3a f0 31 2c 32 30  |2:.A%=1.11:.1,20|
000003c0  2c 32 30 3a f0 31 2c 33  30 2c 30 3a ed 3a e6 30  |,20:.1,30,0:.:.0|
000003d0  2c 31 3a e3 41 25 3d 31  b8 31 30 3a f0 31 2c 32  |,1:.A%=1.10:.1,2|
000003e0  30 2c 2d 32 30 3a f0 31  2c 33 30 2c 30 3a ed 3a  |0,-20:.1,30,0:.:|
000003f0  f0 31 2c 32 30 2c 2d 32  30 3a e6 30 2c 32 3a e3  |.1,20,-20:.0,2:.|
00000400  41 25 3d 31 b8 31 31 3a  f0 31 2c 2d 32 30 2c 2d  |A%=1.11:.1,-20,-|
00000410  32 30 3a f0 31 2c 2d 33  30 2c 30 3a ed 3a e6 30  |20:.1,-30,0:.:.0|
00000420  2c 31 3a e3 41 25 3d 31  b8 31 30 3a f0 31 2c 2d  |,1:.A%=1.10:.1,-|
00000430  32 30 2c 32 30 3a f0 31  2c 2d 33 30 2c 30 3a ed  |20,20:.1,-30,0:.|
00000440  0d 00 f0 0d f0 31 2c 2d  32 30 2c 32 30 0d 00 fa  |.....1,-20,20...|
00000450  72 f2 68 65 78 28 33 35  30 2c 38 38 30 2c 32 35  |r.hex(350,880,25|
00000460  2c 31 29 3a f2 68 65 78  28 33 35 30 2c 37 36 30  |,1):.hex(350,760|
00000470  2c 32 35 2c 32 29 3a ec  37 30 30 2c 38 33 36 3a  |,25,2):.700,836:|
00000480  e6 30 2c 33 3a ef 35 3a  f1 22 54 4f 20 50 4c 41  |.0,3:.5:."TO PLA|
00000490  59 22 3a ec 36 39 32 2c  38 34 34 3a df 39 32 34  |Y":.692,844:.924|
000004a0  2c 38 34 34 3a df 39 32  34 2c 38 30 30 3a df 36  |,844:.924,800:.6|
000004b0  39 32 2c 38 30 30 3a df  36 39 32 2c 38 34 34 0d  |92,800:.692,844.|
000004c0  01 04 6e e6 30 2c 33 3a  e3 41 25 3d 38 38 30 b8  |..n.0,3:.A%=880.|
000004d0  37 36 30 88 2d 35 3a ec  36 39 32 2c 38 30 30 3a  |760.-5:.692,800:|
000004e0  df 35 32 35 2c 41 25 3a  ed 3a e3 41 25 3d 38 38  |.525,A%:.:.A%=88|
000004f0  30 b8 37 36 30 88 2d 35  3a ec 36 39 32 2c 38 34  |0.760.-5:.692,84|
00000500  34 3a df 35 32 35 2c 41  25 3a ed 3a e3 41 25 3d  |4:.525,A%:.:.A%=|
00000510  38 38 30 b8 37 36 30 88  2d 35 3a ec 34 36 35 2c  |880.760.-5:.465,|
00000520  38 32 30 3a df 35 32 35  2c 41 25 3a ed 0d 01 0e  |820:.525,A%:....|
00000530  a8 f7 8d 54 62 41 3a e3  64 6c 3d 31 b8 36 3a f3  |...TbA:.dl=1.6:.|
00000540  6c 62 2c 43 25 2c 44 25  3a ec 43 25 2b 39 34 30  |lb,C%,D%:.C%+940|
00000550  2c 44 25 3a e6 30 2c 33  3a e3 6c 64 3d 31 b8 6c  |,D%:.0,3:.ld=1.l|
00000560  62 3a f3 41 25 2c 42 25  3a df 41 25 2b 39 34 30  |b:.A%,B%:.A%+940|
00000570  2c 42 25 3a ed 3a df 43  25 2b 39 34 30 2c 44 25  |,B%:.:.C%+940,D%|
00000580  3a f3 6e 66 3a e6 30 2c  32 3a e3 6c 64 3d 31 b8  |:.nf:.0,2:.ld=1.|
00000590  6e 66 3a f3 41 25 2c 42  25 2c 43 25 2c 44 25 3a  |nf:.A%,B%,C%,D%:|
000005a0  e3 66 6c 3d 42 25 b8 44  25 3a f0 37 37 2c 39 34  |.fl=B%.D%:.77,94|
000005b0  30 2b 41 25 2b 28 66 6c  2d 42 25 29 2a 28 43 25  |0+A%+(fl-B%)*(C%|
000005c0  2d 41 25 29 2f 28 44 25  2d 42 25 29 2c 66 6c 3a  |-A%)/(D%-B%),fl:|
000005d0  ed 3a ed 3a ed 0d 01 18  10 f2 74 75 6e 65 28 37  |.:.:......tune(7|
000005e0  30 30 29 3a e1 0d 01 22  e9 dc 33 2c 32 35 30 2c  |00):..."..3,250,|
000005f0  37 30 34 2c 32 35 30 2c  39 39 32 2c 33 30 30 2c  |704,250,992,300,|
00000600  39 39 32 2c 33 30 30 2c  37 30 34 2c 31 2c 32 35  |992,300,704,1,25|
00000610  34 2c 37 30 38 2c 32 35  34 2c 39 38 38 2c 33 2c  |4,708,254,988,3,|
00000620  32 35 30 2c 36 39 34 2c  32 35 30 2c 36 34 30 2c  |250,694,250,640,|
00000630  33 30 30 2c 36 34 30 2c  33 30 30 2c 36 39 34 2c  |300,640,300,694,|
00000640  31 2c 32 35 34 2c 36 34  34 2c 32 35 34 2c 36 39  |1,254,644,254,69|
00000650  30 2c 31 31 2c 34 30 2c  39 39 32 2c 34 30 2c 38  |0,11,40,992,40,8|
00000660  38 30 2c 31 33 30 2c 38  38 30 2c 31 33 30 2c 39  |80,130,880,130,9|
00000670  32 35 2c 31 35 30 2c 39  32 35 2c 31 35 30 2c 38  |25,150,925,150,8|
00000680  38 30 2c 32 34 30 2c 38  38 30 2c 32 34 30 2c 39  |80,240,880,240,9|
00000690  39 32 2c 31 35 30 2c 39  39 32 2c 31 35 30 2c 39  |92,150,992,150,9|
000006a0  34 37 2c 31 33 30 2c 39  34 37 2c 31 33 30 2c 39  |47,130,947,130,9|
000006b0  39 32 2c 32 2c 34 34 2c  38 38 34 2c 34 34 2c 39  |92,2,44,884,44,9|
000006c0  38 38 2c 31 37 34 2c 38  38 34 2c 31 37 34 0d 01  |88,174,884,174..|
000006d0  2c e7 dc 39 38 38 2c 31  31 2c 34 30 2c 38 37 30  |,..988,11,40,870|
000006e0  2c 32 34 30 2c 38 37 30  2c 32 34 30 2c 38 34 30  |,240,870,240,840|
000006f0  2c 31 30 30 2c 38 34 30  2c 31 30 30 2c 38 33 30  |,100,840,100,830|
00000700  2c 32 34 30 2c 38 33 30  2c 32 34 30 2c 38 30 30  |,240,830,240,800|
00000710  2c 31 30 30 2c 38 30 30  2c 31 30 30 2c 37 39 30  |,100,800,100,790|
00000720  2c 32 34 30 2c 37 39 30  2c 32 34 30 2c 37 36 30  |,240,790,240,760|
00000730  2c 34 30 2c 37 36 30 2c  31 2c 34 34 2c 37 36 34  |,40,760,1,44,764|
00000740  2c 34 34 2c 38 36 36 2c  31 31 2c 34 30 2c 37 35  |,44,866,11,40,75|
00000750  30 2c 31 31 30 2c 37 35  30 2c 31 34 30 2c 37 32  |0,110,750,140,72|
00000760  35 2c 31 37 30 2c 37 35  30 2c 32 34 30 2c 37 35  |5,170,750,240,75|
00000770  30 2c 31 37 30 2c 36 39  35 2c 32 34 30 2c 36 34  |0,170,695,240,64|
00000780  30 2c 31 37 30 2c 36 34  30 2c 31 34 30 2c 36 36  |0,170,640,140,66|
00000790  35 2c 31 31 30 2c 36 34  30 2c 34 30 2c 36 34 30  |5,110,640,40,640|
000007a0  2c 31 31 30 2c 36 39 35  2c 32 2c 35 30 2c 36 34  |,110,695,2,50,64|
000007b0  34 2c 32 33 30 0d 01 36  47 dc 37 34 36 2c 32 33  |4,230..6G.746,23|
000007c0  30 2c 36 34 34 2c 35 30  2c 37 34 36 2c 33 2c 34  |0,644,50,746,3,4|
000007d0  30 2c 36 33 32 2c 34 30  2c 36 32 34 2c 33 30 30  |0,632,40,624,300|
000007e0  2c 36 32 34 2c 33 30 30  2c 36 33 32 2c 31 2c 34  |,624,300,632,1,4|
000007f0  34 2c 36 32 38 2c 34 34  2c 36 32 39 0d 01 40 53  |4,628,44,629..@S|
00000800  dd f2 77 6f 6e 28 5a 25  29 3a 54 3d 91 2b 37 35  |..won(Z%):T=.+75|
00000810  30 3a f5 3a ef 31 39 2c  31 2c 35 2c 30 2c 30 2c  |0:.:.19,1,5,0,0,|
00000820  30 2c 31 39 2c 32 2c 34  2c 30 2c 30 2c 30 2c 31  |0,19,2,4,0,0,0,1|
00000830  39 2c 31 2c 34 2c 30 2c  30 2c 30 2c 31 39 2c 32  |9,1,4,0,0,0,19,2|
00000840  2c 35 2c 30 2c 30 2c 30  3a fd 91 3e 54 3a db 0d  |,5,0,0,0:..>T:..|
00000850  01 4a 80 e3 41 25 3d 31  b8 34 3a f2 68 65 78 28  |.J..A%=1.4:.hex(|
00000860  41 25 2a 33 30 30 2d 32  33 35 2c 36 30 30 2c 33  |A%*300-235,600,3|
00000870  30 2c 31 29 3a ed 3a e3  41 25 3d 31 b8 33 3a f2  |0,1):.:.A%=1.3:.|
00000880  68 65 78 28 41 25 2a 33  30 30 2d 38 35 2c 35 34  |hex(A%*300-85,54|
00000890  30 2c 33 30 2c 32 29 3a  ed 3a e3 41 25 3d 31 b8  |0,30,2):.:.A%=1.|
000008a0  32 3a f2 68 65 78 28 41  25 2a 33 30 30 2b 36 35  |2:.hex(A%*300+65|
000008b0  2c 34 32 30 2c 33 30 2c  33 29 3a ed 3a f2 68 65  |,420,30,3):.:.he|
000008c0  78 28 35 31 35 2c 33 36  30 2c 33 30 2c 33 29 0d  |x(515,360,30,3).|
000008d0  01 54 92 e6 33 2c 33 3a  ef 35 3a e3 41 25 3d 31  |.T..3,3:.5:.A%=1|
000008e0  b8 34 3a ec 41 25 2a 33  30 30 2d 31 34 36 2c 36  |.4:.A%*300-146,6|
000008f0  31 36 3a f1 c1 22 50 41  45 22 2b c3 5a 25 2c 41  |16:.."PAE"+.Z%,A|
00000900  25 2c 31 29 3a ed 3a e3  41 25 3d 31 b8 33 3a ec  |%,1):.:.A%=1.3:.|
00000910  41 25 2a 33 30 30 2b 34  2c 35 35 36 3a f1 c1 22  |A%*300+4,556:.."|
00000920  4c 59 52 22 2c 41 25 2c  31 29 3a ed 3a e3 41 25  |LYR",A%,1):.:.A%|
00000930  3d 31 b8 32 3a ec 41 25  2a 33 30 30 2b 31 35 34  |=1.2:.A%*300+154|
00000940  2c 34 33 36 3a f1 c1 22  57 4e 22 2c 41 25 2c 31  |,436:.."WN",A%,1|
00000950  29 3a ed 3a ec 36 30 34  2c 33 37 36 3a f1 22 4f  |):.:.604,376:."O|
00000960  22 0d 01 5e 4a 54 3d 91  2b 37 35 30 3a f5 3a ef  |"..^JT=.+750:.:.|
00000970  31 39 2c 31 2c 35 2c 30  2c 30 2c 30 2c 31 39 2c  |19,1,5,0,0,0,19,|
00000980  32 2c 34 2c 30 2c 30 2c  30 2c 31 39 2c 31 2c 34  |2,4,0,0,0,19,1,4|
00000990  2c 30 2c 30 2c 30 2c 31  39 2c 32 2c 35 2c 30 2c  |,0,0,0,19,2,5,0,|
000009a0  30 2c 30 3a fd 91 3e 54  3a ef 34 0d 01 68 0e f2  |0,0:..>T:.4..h..|
000009b0  74 75 6e 65 28 36 37 30  29 0d 01 72 76 fb 31 3a  |tune(670)..rv.1:|
000009c0  f1 8a 38 2c 32 35 29 3b  22 50 72 65 73 73 20 22  |..8,25);"Press "|
000009d0  3b 3a fb 32 3a f1 3b 22  3c 53 50 41 43 45 3e 20  |;:.2:.;"<SPACE> |
000009e0  22 3b 3a fb 31 3a f1 3b  22 74 6f 20 70 6c 61 79  |";:.1:.;"to play|
000009f0  2e 22 3a f5 3a ef 31 39  2c 31 2c 35 2c 30 2c 30  |.":.:.19,1,5,0,0|
00000a00  2c 30 2c 31 39 2c 32 2c  34 2c 30 2c 30 2c 30 2c  |,0,19,2,4,0,0,0,|
00000a10  31 39 2c 31 2c 34 2c 30  2c 30 2c 30 2c 31 39 2c  |19,1,4,0,0,0,19,|
00000a20  32 2c 35 2c 30 2c 30 2c  30 3a fd a6 2d 39 39 0d  |2,5,0,0,0:..-99.|
00000a30  01 7c 05 e1 0d 01 86 4d  dd f2 73 65 74 75 70 3a  |.|.....M..setup:|
00000a40  de 62 6f 61 72 64 28 31  30 2c 31 30 29 2c 63 68  |.board(10,10),ch|
00000a50  65 63 6b 28 31 30 2c 31  30 29 3a e2 31 2c 31 2c  |eck(10,10):.1,1,|
00000a60  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 31 32 36 2c  |0,0,0,0,0,0,126,|
00000a70  2d 31 2c 30 2c 2d 33 2c  31 32 36 2c 31 32 36 3a  |-1,0,-3,126,126:|
00000a80  e1 0d 01 90 37 dd f2 69  6e 69 74 3a e3 41 25 3d  |....7..init:.A%=|
00000a90  30 b8 31 30 3a e3 42 25  3d 30 b8 31 30 3a 62 6f  |0.10:.B%=0.10:bo|
00000aa0  61 72 64 28 41 25 2c 42  25 29 3d 30 3a ed 3a ed  |ard(A%,B%)=0:.:.|
00000ab0  3a 77 6f 6e 3d 30 3a e1  0d 01 9a 34 dd f2 6d 6f  |:won=0:....4..mo|
00000ac0  76 65 3a f2 6d 6f 76 65  31 28 31 29 3a f2 63 68  |ve:.move1(1):.ch|
00000ad0  65 63 6b 3a e7 77 6f 6e  3e 30 20 e5 8d 74 64 41  |eck:.won>0 ..tdA|
00000ae0  20 8b 20 f2 6d 6f 76 65  31 28 32 29 0d 01 a4 05  | . .move1(2)....|
00000af0  e1 0d 01 ae 0b dd f2 63  68 65 63 6b 0d 01 b8 4e  |.......check...N|
00000b00  e3 41 25 3d 31 b8 32 3a  e3 42 25 3d 30 b8 31 30  |.A%=1.2:.B%=0.10|
00000b10  3a e3 43 25 3d 30 b8 31  30 3a e7 62 6f 61 72 64  |:.C%=0.10:.board|
00000b20  28 42 25 2c 43 25 29 3d  41 25 20 63 68 65 63 6b  |(B%,C%)=A% check|
00000b30  28 42 25 2c 43 25 29 3d  31 20 8b 20 63 68 65 63  |(B%,C%)=1 . chec|
00000b40  6b 28 42 25 2c 43 25 29  3d 30 0d 01 c2 59 ed 3a  |k(B%,C%)=0...Y.:|
00000b50  ed 3a e3 42 25 3d 30 b8  31 30 3a e7 41 25 3d 31  |.:.B%=0.10:.A%=1|
00000b60  80 20 63 68 65 63 6b 28  30 2c 42 25 29 3d 31 20  |. check(0,B%)=1 |
00000b70  63 68 65 63 6b 28 30 2c  42 25 29 3d 32 20 8b 20  |check(0,B%)=2 . |
00000b80  e7 41 25 3d 32 20 80 20  63 68 65 63 6b 28 42 25  |.A%=2 . check(B%|
00000b90  2c 30 29 3d 31 20 63 68  65 63 6b 28 42 25 2c 30  |,0)=1 check(B%,0|
00000ba0  29 3d 32 0d 01 cc 36 ed  3a f5 3a 44 25 3d 30 3a  |)=2...6.:.:D%=0:|
00000bb0  e3 42 25 3d 30 b8 31 30  3a e3 43 25 3d 30 b8 31  |.B%=0.10:.C%=0.1|
00000bc0  30 3a e7 63 68 65 63 6b  28 42 25 2c 43 25 29 3d  |0:.check(B%,C%)=|
00000bd0  32 20 f2 73 65 61 72 63  68 0d 01 d6 0d ed 3a ed  |2 .search.....:.|
00000be0  3a fd 44 25 3d 30 0d 01  e0 44 e3 42 25 3d 30 b8  |:.D%=0...D.B%=0.|
00000bf0  31 30 3a e7 28 41 25 3d  31 20 80 20 63 68 65 63  |10:.(A%=1 . chec|
00000c00  6b 28 31 30 2c 42 25 29  3e 31 29 84 28 41 25 3d  |k(10,B%)>1).(A%=|
00000c10  32 20 80 20 63 68 65 63  6b 28 42 25 2c 31 30 29  |2 . check(B%,10)|
00000c20  3e 31 29 20 77 6f 6e 3d  41 25 0d 01 ea 07 ed 3a  |>1) won=A%.....:|
00000c30  ed 0d 01 f4 05 e1 0d 01  fe 56 dd f2 73 65 61 72  |.........V..sear|
00000c40  63 68 3a f7 20 8d 54 5c  42 3a e3 46 25 3d 30 b8  |ch:. .T\B:.F%=0.|
00000c50  35 3a f3 66 25 2c 67 25  3a 62 25 3d 42 25 2d 66  |5:.f%,g%:b%=B%-f|
00000c60  25 3a 63 25 3d 43 25 2d  67 25 3a e7 20 62 25 3c  |%:c%=C%-g%:. b%<|
00000c70  30 20 84 20 62 25 3e 31  30 20 84 20 63 25 3c 30  |0 . b%>10 . c%<0|
00000c80  20 84 20 63 25 3e 31 30  20 ed 3a e1 0d 02 08 2a  | . c%>10 .:....*|
00000c90  e7 63 68 65 63 6b 28 62  25 2c 63 25 29 3d 31 20  |.check(b%,c%)=1 |
00000ca0  63 68 65 63 6b 28 62 25  2c 63 25 29 3d 32 3a 44  |check(b%,c%)=2:D|
00000cb0  25 3d 44 25 2b 31 0d 02  12 07 ed 3a e1 0d 02 1c  |%=D%+1.....:....|
00000cc0  20 dc 2d 31 2c 30 2c 2d  31 2c 31 2c 30 2c 2d 31  | .-1,0,-1,1,0,-1|
00000cd0  2c 30 2c 31 2c 31 2c 2d  31 2c 31 2c 30 0d 02 26  |,0,1,1,-1,1,0..&|
00000ce0  54 dd f2 6d 6f 76 65 31  28 48 25 29 3a 42 25 3d  |T..move1(H%):B%=|
00000cf0  30 3a 43 25 3d 30 3a e6  30 2c 48 25 3a ec 37 30  |0:C%=0:.0,H%:.70|
00000d00  30 2c 38 33 36 3a ef 35  3a f1 22 54 4f 20 50 4c  |0,836:.5:."TO PL|
00000d10  41 59 22 3a ec 34 32 35  2c 37 37 32 2d 31 32 30  |AY":.425,772-120|
00000d20  2a 28 48 25 3d 31 29 3a  e6 33 2c 33 3a f1 22 2a  |*(H%=1):.3,3:."*|
00000d30  22 0d 02 30 38 e6 33 2c  33 3a f5 3a ec 36 37 35  |"..08.3,3:.:.675|
00000d40  2b 42 25 2a 35 30 2d 28  43 25 2b 31 29 2a 35 30  |+B%*50-(C%+1)*50|
00000d50  2c 31 30 30 2b 28 43 25  2b 31 29 2a 32 30 2b 42  |,100+(C%+1)*20+B|
00000d60  25 2a 32 30 3a f1 22 2e  22 0d 02 3a 10 54 3d 91  |%*20:."."..:.T=.|
00000d70  2b 31 30 3a f5 fd 91 3e  54 0d 02 44 69 f5 fd a6  |+10:...>T..Di...|
00000d80  2d 37 33 20 84 20 a6 2d  31 30 35 20 84 20 a6 2d  |-73 . .-105 . .-|
00000d90  39 39 20 84 20 a6 2d 36  36 20 84 20 a6 2d 39 38  |99 . .-66 . .-98|
00000da0  3a ec 36 37 35 2b 42 25  2a 35 30 2d 28 43 25 2b  |:.675+B%*50-(C%+|
00000db0  31 29 2a 35 30 2c 31 30  30 2b 28 43 25 2b 31 29  |1)*50,100+(C%+1)|
00000dc0  2a 32 30 2b 42 25 2a 32  30 3a f1 22 2e 22 3a e7  |*20+B%*20:.".":.|
00000dd0  a6 2d 37 33 80 42 25 3c  31 30 20 42 25 3d 42 25  |.-73.B%<10 B%=B%|
00000de0  2b 31 0d 02 4e 17 e7 a6  2d 31 30 35 80 42 25 3e  |+1..N...-105.B%>|
00000df0  30 20 42 25 3d 42 25 2d  31 0d 02 58 17 e7 a6 2d  |0 B%=B%-1..X...-|
00000e00  36 36 80 43 25 3c 31 30  20 43 25 3d 43 25 2b 31  |66.C%<10 C%=C%+1|
00000e10  0d 02 62 16 e7 a6 2d 39  38 80 43 25 3e 30 20 43  |..b...-98.C%>0 C|
00000e20  25 3d 43 25 2d 31 0d 02  6c 64 fd a6 2d 39 39 20  |%=C%-1..ld..-99 |
00000e30  80 62 6f 61 72 64 28 42  25 2c 31 30 2d 43 25 29  |.board(B%,10-C%)|
00000e40  3d 30 3a d4 30 2c 31 2c  35 2c 32 3a f2 68 65 78  |=0:.0,1,5,2:.hex|
00000e50  28 36 30 35 2b 42 25 2a  35 30 2d 43 25 2a 35 30  |(605+B%*50-C%*50|
00000e60  2c 31 30 30 2b 43 25 2a  32 30 2b 42 25 2a 32 30  |,100+C%*20+B%*20|
00000e70  2c 31 30 2c 48 25 29 3a  62 6f 61 72 64 28 42 25  |,10,H%):board(B%|
00000e80  2c 31 30 2d 43 25 29 3d  48 25 0d 02 76 3f e6 30  |,10-C%)=H%..v?.0|
00000e90  2c 33 3a ec 37 30 30 2c  38 33 36 3a ef 35 3a f1  |,3:.700,836:.5:.|
00000ea0  22 54 4f 20 50 4c 41 59  22 3a ec 34 32 35 2c 37  |"TO PLAY":.425,7|
00000eb0  37 32 2d 31 32 30 2a 28  48 25 3d 31 29 3a e6 33  |72-120*(H%=1):.3|
00000ec0  2c 33 3a f1 22 2a 22 3a  e1 0d 02 80 30 dd f2 74  |,3:."*":....0..t|
00000ed0  75 6e 65 28 4d 25 29 3a  f7 4d 25 3a f5 3a e3 4c  |une(M%):.M%:.:.L|
00000ee0  25 3d 31 b8 33 3a f3 4a  25 2c 4b 25 3a e7 4b 25  |%=1.3:.J%,K%:.K%|
00000ef0  3d 30 20 e5 20 8d 74 54  42 0d 02 8a 2a e7 4a 25  |=0 . .tTB...*.J%|
00000f00  3d 30 20 80 4b 25 3c 3e  30 20 d4 4c 25 2c 30 2c  |=0 .K%<>0 .L%,0,|
00000f10  4a 25 2c 4b 25 20 8b 20  d4 4c 25 2c 31 2c 4a 25  |J%,K% . .L%,1,J%|
00000f20  2c 4b 25 0d 02 94 14 ed  3a fd 4a 25 3d 30 20 80  |,K%.....:.J%=0 .|
00000f30  20 4b 25 3d 31 3a e1 0d  02 9e 63 dc 30 2c 38 2c  | K%=1:....c.0,8,|
00000f40  30 2c 38 2c 33 33 2c 38  2c 31 35 37 2c 34 2c 31  |0,8,33,8,157,4,1|
00000f50  34 35 2c 38 2c 38 31 2c  31 36 2c 31 34 35 2c 34  |45,8,81,16,145,4|
00000f60  2c 31 31 37 2c 38 2c 38  31 2c 38 2c 31 34 39 2c  |,117,8,81,8,149,|
00000f70  38 2c 30 2c 30 2c 30 2c  30 2c 31 34 35 2c 34 2c  |8,0,0,0,0,145,4,|
00000f80  31 30 39 2c 34 2c 30 2c  30 2c 31 33 37 2c 38 2c  |109,4,0,0,137,8,|
00000f90  31 30 31 2c 38 2c 34 31  2c 38 0d 02 a8 58 dc 31  |101,8,41,8...X.1|
00000fa0  31 37 2c 32 38 2c 31 30  31 2c 32 38 2c 36 39 2c  |17,28,101,28,69,|
00000fb0  38 2c 30 2c 30 2c 30 2c  30 2c 38 39 2c 34 2c 30  |8,0,0,0,0,89,4,0|
00000fc0  2c 30 2c 30 2c 30 2c 38  31 2c 34 2c 30 2c 30 2c  |,0,0,0,81,4,0,0,|
00000fd0  30 2c 30 2c 37 37 2c 34  2c 30 2c 30 2c 30 2c 30  |0,0,77,4,0,0,0,0|
00000fe0  2c 36 39 2c 34 2c 30 2c  38 2c 30 2c 38 2c 36 31  |,69,4,0,8,0,8,61|
00000ff0  2c 38 0d 02 b2 64 dc 31  33 37 2c 34 2c 31 32 35  |,8...d.137,4,125|
00001000  2c 32 34 2c 31 30 31 2c  31 36 2c 31 32 39 2c 34  |,24,101,16,129,4|
00001010  2c 30 2c 30 2c 30 2c 30  2c 31 34 35 2c 38 2c 30  |,0,0,0,0,145,8,0|
00001020  2c 30 2c 30 2c 30 2c 31  33 37 2c 38 2c 30 2c 30  |,0,0,0,137,8,0,0|
00001030  2c 31 30 31 2c 38 2c 31  32 39 2c 33 32 2c 31 30  |,101,8,129,32,10|
00001040  39 2c 33 32 2c 39 37 2c  33 32 2c 30 2c 31 2c 30  |9,32,97,32,0,1,0|
00001050  2c 31 2c 30 2c 31 0d 02  bc 40 dc 31 32 39 2c 34  |,1,0,1...@.129,4|
00001060  2c 39 37 2c 31 36 2c 36  39 2c 38 2c 31 32 39 2c  |,97,16,69,8,129,|
00001070  34 2c 30 2c 30 2c 30 2c  30 2c 31 32 39 2c 34 2c  |4,0,0,0,0,129,4,|
00001080  30 2c 30 2c 36 31 2c 38  2c 31 33 37 2c 34 2c 30  |0,0,61,8,137,4,0|
00001090  2c 30 2c 30 2c 30 0d 02  c6 75 dc 31 34 35 2c 38  |,0,0,0...u.145,8|
000010a0  2c 31 31 37 2c 31 36 2c  35 33 2c 31 32 2c 31 34  |,117,16,53,12,14|
000010b0  35 2c 38 2c 30 2c 30 2c  35 33 2c 34 2c 31 33 37  |5,8,0,0,53,4,137|
000010c0  2c 34 2c 31 30 31 2c 31  36 2c 36 31 2c 31 32 2c  |,4,101,16,61,12,|
000010d0  31 32 39 2c 34 2c 30 2c  30 2c 30 2c 30 2c 31 33  |129,4,0,0,0,0,13|
000010e0  37 2c 38 2c 30 2c 30 2c  36 31 2c 32 2c 31 32 39  |7,8,0,0,61,2,129|
000010f0  2c 33 32 2c 39 37 2c 33  32 2c 30 2c 32 2c 30 2c  |,32,97,32,0,2,0,|
00001100  30 2c 30 2c 30 2c 36 31  2c 33 32 0d 02 d0 10 dc  |0,0,0,61,32.....|
00001110  30 2c 31 2c 30 2c 31 2c  30 2c 31 0d 02 da 1e dd  |0,1,0,1,0,1.....|
00001120  f2 65 72 72 6f 72 3a f6  3a f1 22 20 61 74 20 6c  |.error:.:." at l|
00001130  69 6e 65 20 22 3b 9e 3a  e1 0d ff                 |ine ";.:...|
0000113b

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