Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21.ADF » G/PUZZ

G/PUZZ

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 » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21.ADF
Filename: G/PUZZ
Read OK:
File size: 0AD2 bytes
Load address: FFFF0E00
Exec address: FFFF8023
File contents
   10MODE2:VDU23;8202;0;0;0;
   20*FX16,0
   30*FX9,1
   40*FX10,1
   50DIM A%(5,5)
   60DIM B%(5,5) 
   70FORW%=0TO5:A%(0,W%)=1:READ d%:B%(0,W%)=d%:NEXT
   80FORW%=0TO5:A%(1,W%)=7:READ d%:B%(1,W%)=d%:NEXT
   90FORW%=0TO5:A%(2,W%)=2:READ d%:B%(2,W%)=d%:NEXT
  100FORW%=0TO5:A%(3,W%)=5:READ d%:B%(3,W%)=d%:NEXT
  110FORW%=0TO5:A%(4,W%)=3:READ d%:B%(4,W%)=d%:NEXT
  120FORW%=0TO5:A%(5,W%)=6:READ d%:B%(5,W%)=d%:NEXT
  130VDU23,224,129,66,36,24,24,36,66,129,23,225,0,0,252,252,252,252,252,252,23,226,-1;-1;-1;-1;19,12,4;0;28,2,30,16,2,17,140,12,28,3,29,15,3,17,128,12,17,140,28,2,16,16,16,12,17,132,26:ENVELOPE 1,1,-50,100,-50,1,1,1,0,0,0,0,0,0
  140A$=CHR$9+CHR$226:FORP=18TO28STEP2:VDU31,3,P:PRINTSTRING$(6,A$):NEXT:FORP=4TO8STEP2:VDU31,4,P,17,1,225,9,225,9,17,2,225,9,225,9,17,3,225,9,225:NEXT:FORP=10TO14STEP2:VDU31,4,P,17,7,225,9,225,9,17,5,225,9,225,9,17,6,225,9,225:NEXT
  150H%=9:I%=9:M%=0:N%=0:R%=1:G%=0:VDU17,128,31,H%,I%,17,7,224
  160REPEAT
  170IFINKEY-98 ANDH%>5 PROCO:H%=H%-2:PROCN
  180IFINKEY-67 ANDH%<13 PROCO:H%=H%+2:PROCN
  190IFINKEY-105 ANDI%<12 PROCO:I%=I%+2:PROCN
  200IFINKEY-73 ANDI%>6 PROCO:I%=I%-2:PROCN
  205 FORD=0TO200:NEXT
  210IFINKEY-99 PROCP
  220UNTILR%=0
  230VDU31,H%,I%,32,20,31,3,16,17,7:PRINT"  WELL DONE  "
  240SOUND1,1,200,200
  250TIME=0
  260REPEATUNTILTIME>500
  270VDU31,3,16:PRINT"M-MENU  R-RUN"
  280REPEAT
  290IFINKEY-102 CHAIN"MENU"
  300IFINKEY-52 R%=1
  310UNTILR%=1
  320RUN
  330END
  340DEFPROCP
  350IFH%=5 PROCA1:ENDPROC
  360IFH%=7 PROCA2:ENDPROC
  370IFH%=9 PROCA3:ENDPROC
  380IFH%=11PROCA4:ENDPROC
  390IFH%=13PROCA5
  400ENDPROC
  410DEFPROCA1
  420IFI%=5 PROCA(0,0,0,3,0,4,0,1):ENDPROC
  430IFI%=7 PROCA(0,1,0,4,0,5,0,2):ENDPROC
  440IFI%=9 PROCA(0,2,0,5,1,3,1,0):ENDPROC
  450IFI%=11PROCA(1,0,1,3,1,4,1,1):ENDPROC
  460PROCA(1,1,1,4,1,5,1,2):ENDPROC
  470DEFPROCA2
  480IFI%=5 PROCA(0,3,2,0,2,1,0,4):ENDPROC
  490IFI%=7 PROCA(0,4,2,1,2,2,0,5):ENDPROC
  500IFI%=9 PROCA(0,5,2,2,3,0,1,3):ENDPROC
  510IFI%=11PROCA(1,3,3,0,3,1,1,4):ENDPROC
  520PROCA(1,4,3,1,3,2,1,5):ENDPROC
  530DEFPROCA3
  540IFI%=5 PROCA(2,0,2,3,2,4,2,1):ENDPROC
  550IFI%=7 PROCA(2,1,2,4,2,5,2,2):ENDPROC
  560IFI%=9 PROCA(2,2,2,5,3,3,3,0):ENDPROC
  570IFI%=11PROCA(3,0,3,3,3,4,3,1):ENDPROC
  580PROCA(3,1,3,4,3,5,3,2):ENDPROC
  590DEFPROCA4
  600IFI%=5 PROCA(2,3,4,0,4,1,2,4):ENDPROC
  610IFI%=7 PROCA(2,4,4,1,4,2,2,5):ENDPROC
  620IFI%=9 PROCA(2,5,4,2,5,0,3,3):ENDPROC
  630IFI%=11PROCA(3,3,5,0,5,1,3,4):ENDPROC
  640PROCA(3,4,5,1,5,2,3,5):ENDPROC
  650DEFPROCA5
  660IFI%=5 PROCA(4,0,4,3,4,4,4,1):ENDPROC
  670IFI%=7 PROCA(4,1,4,4,4,5,4,2):ENDPROC
  680IFI%=9 PROCA(4,2,4,5,5,3,5,0):ENDPROC
  690IFI%=11PROCA(5,0,5,3,5,4,5,1):ENDPROC
  700PROCA(5,1,5,4,5,5,5,2):ENDPROC
  710DEFPROCA(S%,T%,U%,V%,W%,X%,Y%,Z%)
  720M%=A%(S%,T%):A%(S%,T%)=A%(U%,V%):A%(U%,V%)=A%(W%,X%):A%(W%,X%)=A%(Y%,Z%):A%(Y%,Z%)=M%
  730VDU17,132
  740VDU31,H%-1,I%-1,17,A%(S%,T%),225,9,17,A%(U%,V%),225
  750VDU31,H%-1,I%+1,17,A%(Y%,Z%),225,9,17,A%(W%,X%),225
  760C%=32:D%=32:E%=32:F%=32
  770IF A%(S%,T%)<>B%(S%,T%) C%=226
  780IF A%(U%,V%)<>B%(U%,V%) D%=226
  790IF A%(W%,X%)<>B%(W%,X%) E%=226
  800IF A%(Y%,Z%)<>B%(Y%,Z%) F%=226
  810VDU31,H%-1,I%+13,17,7,C%,9,D%
  820VDU31,H%-1,I%+15,F%,9,E%
  830VDU17,128
  840PROCCH(0):IFR%=1ENDPROC
  850PROCCH(1):IFR%=1ENDPROC
  860PROCCH(2):IFR%=1ENDPROC
  870PROCCH(3):IFR%=1ENDPROC
  880PROCCH(4):IFR%=1ENDPROC
  890PROCCH(5):ENDPROC
  900DEFPROCCH(G%)
  910R%=0
  920FORW%=0TO5
  930IF A%(G%,W%)<>B%(G%,W%) R%=1
  940NEXT
  950ENDPROC
  960DEFPROCO:VDU31,H%,I%,32:ENDPROC
  970DEFPROCN:VDU31,H%,I%,17,7,224:ENDPROC
  980DATA 2,2,6,3,3,5
  990DATA 5,1,1,2,3,5
 1000DATA 7,1,6,3,6,3
 1010DATA 2,1,7,3,6,6
 1020DATA 1,5,7,2,1,6
 1030DATA 7,2,7,5,5,7

�2:�23;8202;0;0;0;
*FX16,0

*FX9,1
(*FX10,1
2
� A%(5,5)
<� B%(5,5) 
F)�W%=0�5:A%(0,W%)=1:� d%:B%(0,W%)=d%:�
P)�W%=0�5:A%(1,W%)=7:� d%:B%(1,W%)=d%:�
Z)�W%=0�5:A%(2,W%)=2:� d%:B%(2,W%)=d%:�
d)�W%=0�5:A%(3,W%)=5:� d%:B%(3,W%)=d%:�
n)�W%=0�5:A%(4,W%)=3:� d%:B%(4,W%)=d%:�
x)�W%=0�5:A%(5,W%)=6:� d%:B%(5,W%)=d%:�
���23,224,129,66,36,24,24,36,66,129,23,225,0,0,252,252,252,252,252,252,23,226,-1;-1;-1;-1;19,12,4;0;28,2,30,16,2,17,140,12,28,3,29,15,3,17,128,12,17,140,28,2,16,16,16,12,17,132,26:� 1,1,-50,100,-50,1,1,1,0,0,0,0,0,0
��A$=�9+�226:�P=18�28�2:�31,3,P:��6,A$):�:�P=4�8�2:�31,4,P,17,1,225,9,225,9,17,2,225,9,225,9,17,3,225,9,225:�:�P=10�14�2:�31,4,P,17,7,225,9,225,9,17,5,225,9,225,9,17,6,225,9,225:�
�;H%=9:I%=9:M%=0:N%=0:R%=1:G%=0:�17,128,31,H%,I%,17,7,224
��
��-98 �H%>5 �O:H%=H%-2:�N
��-67 �H%<13 �O:H%=H%+2:�N
��-105 �I%<12 �O:I%=I%+2:�N
��-73 �I%>6 �O:I%=I%-2:�N
� �D=0�200:�
��-99 �P
�	�R%=0
�1�31,H%,I%,32,20,31,3,16,17,7:�"  WELL DONE  "
��1,1,200,200
��=0
���>500
�31,3,16:�"M-MENU  R-RUN"
�
"�-102 �"MENU"
,�-52 R%=1
6	�R%=1
@�
J�
T��P
^�H%=5 �A1:�
h�H%=7 �A2:�
r�H%=9 �A3:�
|�H%=11�A4:�
�
�H%=13�A5
��
���A1
��I%=5 �A(0,0,0,3,0,4,0,1):�
��I%=7 �A(0,1,0,4,0,5,0,2):�
��I%=9 �A(0,2,0,5,1,3,1,0):�
��I%=11�A(1,0,1,3,1,4,1,1):�
��A(1,1,1,4,1,5,1,2):�
���A2
��I%=5 �A(0,3,2,0,2,1,0,4):�
��I%=7 �A(0,4,2,1,2,2,0,5):�
��I%=9 �A(0,5,2,2,3,0,1,3):�
��I%=11�A(1,3,3,0,3,1,1,4):�
�A(1,4,3,1,3,2,1,5):�
��A3
�I%=5 �A(2,0,2,3,2,4,2,1):�
&�I%=7 �A(2,1,2,4,2,5,2,2):�
0�I%=9 �A(2,2,2,5,3,3,3,0):�
:�I%=11�A(3,0,3,3,3,4,3,1):�
D�A(3,1,3,4,3,5,3,2):�
N��A4
X�I%=5 �A(2,3,4,0,4,1,2,4):�
b�I%=7 �A(2,4,4,1,4,2,2,5):�
l�I%=9 �A(2,5,4,2,5,0,3,3):�
v�I%=11�A(3,3,5,0,5,1,3,4):�
��A(3,4,5,1,5,2,3,5):�
���A5
��I%=5 �A(4,0,4,3,4,4,4,1):�
��I%=7 �A(4,1,4,4,4,5,4,2):�
��I%=9 �A(4,2,4,5,5,3,5,0):�
��I%=11�A(5,0,5,3,5,4,5,1):�
��A(5,1,5,4,5,5,5,2):�
� ��A(S%,T%,U%,V%,W%,X%,Y%,Z%)
�YM%=A%(S%,T%):A%(S%,T%)=A%(U%,V%):A%(U%,V%)=A%(W%,X%):A%(W%,X%)=A%(Y%,Z%):A%(Y%,Z%)=M%
��17,132
�5�31,H%-1,I%-1,17,A%(S%,T%),225,9,17,A%(U%,V%),225
�5�31,H%-1,I%+1,17,A%(Y%,Z%),225,9,17,A%(W%,X%),225
�C%=32:D%=32:E%=32:F%=32
!� A%(S%,T%)<>B%(S%,T%) C%=226
!� A%(U%,V%)<>B%(U%,V%) D%=226
!� A%(W%,X%)<>B%(W%,X%) E%=226
 !� A%(Y%,Z%)<>B%(Y%,Z%) F%=226
*�31,H%-1,I%+13,17,7,C%,9,D%
4�31,H%-1,I%+15,F%,9,E%
>�17,128
H�CH(0):�R%=1�
R�CH(1):�R%=1�
\�CH(2):�R%=1�
f�CH(3):�R%=1�
p�CH(4):�R%=1�
z�CH(5):�
���CH(G%)
�R%=0
��W%=0�5
�� A%(G%,W%)<>B%(G%,W%) R%=1
��
��
���O:�31,H%,I%,32:�
���N:�31,H%,I%,17,7,224:�
�� 2,2,6,3,3,5
�� 5,1,1,2,3,5
�� 7,1,6,3,6,3
�� 2,1,7,3,6,6
�� 1,5,7,2,1,6
� 7,2,7,5,5,7
�
00000000  0d 00 0a 16 eb 32 3a ef  32 33 3b 38 32 30 32 3b  |.....2:.23;8202;|
00000010  30 3b 30 3b 30 3b 0d 00  14 0b 2a 46 58 31 36 2c  |0;0;0;....*FX16,|
00000020  30 0d 00 1e 0a 2a 46 58  39 2c 31 0d 00 28 0b 2a  |0....*FX9,1..(.*|
00000030  46 58 31 30 2c 31 0d 00  32 0d de 20 41 25 28 35  |FX10,1..2.. A%(5|
00000040  2c 35 29 0d 00 3c 0e de  20 42 25 28 35 2c 35 29  |,5)..<.. B%(5,5)|
00000050  20 0d 00 46 29 e3 57 25  3d 30 b8 35 3a 41 25 28  | ..F).W%=0.5:A%(|
00000060  30 2c 57 25 29 3d 31 3a  f3 20 64 25 3a 42 25 28  |0,W%)=1:. d%:B%(|
00000070  30 2c 57 25 29 3d 64 25  3a ed 0d 00 50 29 e3 57  |0,W%)=d%:...P).W|
00000080  25 3d 30 b8 35 3a 41 25  28 31 2c 57 25 29 3d 37  |%=0.5:A%(1,W%)=7|
00000090  3a f3 20 64 25 3a 42 25  28 31 2c 57 25 29 3d 64  |:. d%:B%(1,W%)=d|
000000a0  25 3a ed 0d 00 5a 29 e3  57 25 3d 30 b8 35 3a 41  |%:...Z).W%=0.5:A|
000000b0  25 28 32 2c 57 25 29 3d  32 3a f3 20 64 25 3a 42  |%(2,W%)=2:. d%:B|
000000c0  25 28 32 2c 57 25 29 3d  64 25 3a ed 0d 00 64 29  |%(2,W%)=d%:...d)|
000000d0  e3 57 25 3d 30 b8 35 3a  41 25 28 33 2c 57 25 29  |.W%=0.5:A%(3,W%)|
000000e0  3d 35 3a f3 20 64 25 3a  42 25 28 33 2c 57 25 29  |=5:. d%:B%(3,W%)|
000000f0  3d 64 25 3a ed 0d 00 6e  29 e3 57 25 3d 30 b8 35  |=d%:...n).W%=0.5|
00000100  3a 41 25 28 34 2c 57 25  29 3d 33 3a f3 20 64 25  |:A%(4,W%)=3:. d%|
00000110  3a 42 25 28 34 2c 57 25  29 3d 64 25 3a ed 0d 00  |:B%(4,W%)=d%:...|
00000120  78 29 e3 57 25 3d 30 b8  35 3a 41 25 28 35 2c 57  |x).W%=0.5:A%(5,W|
00000130  25 29 3d 36 3a f3 20 64  25 3a 42 25 28 35 2c 57  |%)=6:. d%:B%(5,W|
00000140  25 29 3d 64 25 3a ed 0d  00 82 d9 ef 32 33 2c 32  |%)=d%:......23,2|
00000150  32 34 2c 31 32 39 2c 36  36 2c 33 36 2c 32 34 2c  |24,129,66,36,24,|
00000160  32 34 2c 33 36 2c 36 36  2c 31 32 39 2c 32 33 2c  |24,36,66,129,23,|
00000170  32 32 35 2c 30 2c 30 2c  32 35 32 2c 32 35 32 2c  |225,0,0,252,252,|
00000180  32 35 32 2c 32 35 32 2c  32 35 32 2c 32 35 32 2c  |252,252,252,252,|
00000190  32 33 2c 32 32 36 2c 2d  31 3b 2d 31 3b 2d 31 3b  |23,226,-1;-1;-1;|
000001a0  2d 31 3b 31 39 2c 31 32  2c 34 3b 30 3b 32 38 2c  |-1;19,12,4;0;28,|
000001b0  32 2c 33 30 2c 31 36 2c  32 2c 31 37 2c 31 34 30  |2,30,16,2,17,140|
000001c0  2c 31 32 2c 32 38 2c 33  2c 32 39 2c 31 35 2c 33  |,12,28,3,29,15,3|
000001d0  2c 31 37 2c 31 32 38 2c  31 32 2c 31 37 2c 31 34  |,17,128,12,17,14|
000001e0  30 2c 32 38 2c 32 2c 31  36 2c 31 36 2c 31 36 2c  |0,28,2,16,16,16,|
000001f0  31 32 2c 31 37 2c 31 33  32 2c 32 36 3a e2 20 31  |12,17,132,26:. 1|
00000200  2c 31 2c 2d 35 30 2c 31  30 30 2c 2d 35 30 2c 31  |,1,-50,100,-50,1|
00000210  2c 31 2c 31 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,1,1,0,0,0,0,0,0|
00000220  0d 00 8c b5 41 24 3d bd  39 2b bd 32 32 36 3a e3  |....A$=.9+.226:.|
00000230  50 3d 31 38 b8 32 38 88  32 3a ef 33 31 2c 33 2c  |P=18.28.2:.31,3,|
00000240  50 3a f1 c4 36 2c 41 24  29 3a ed 3a e3 50 3d 34  |P:..6,A$):.:.P=4|
00000250  b8 38 88 32 3a ef 33 31  2c 34 2c 50 2c 31 37 2c  |.8.2:.31,4,P,17,|
00000260  31 2c 32 32 35 2c 39 2c  32 32 35 2c 39 2c 31 37  |1,225,9,225,9,17|
00000270  2c 32 2c 32 32 35 2c 39  2c 32 32 35 2c 39 2c 31  |,2,225,9,225,9,1|
00000280  37 2c 33 2c 32 32 35 2c  39 2c 32 32 35 3a ed 3a  |7,3,225,9,225:.:|
00000290  e3 50 3d 31 30 b8 31 34  88 32 3a ef 33 31 2c 34  |.P=10.14.2:.31,4|
000002a0  2c 50 2c 31 37 2c 37 2c  32 32 35 2c 39 2c 32 32  |,P,17,7,225,9,22|
000002b0  35 2c 39 2c 31 37 2c 35  2c 32 32 35 2c 39 2c 32  |5,9,17,5,225,9,2|
000002c0  32 35 2c 39 2c 31 37 2c  36 2c 32 32 35 2c 39 2c  |25,9,17,6,225,9,|
000002d0  32 32 35 3a ed 0d 00 96  3b 48 25 3d 39 3a 49 25  |225:....;H%=9:I%|
000002e0  3d 39 3a 4d 25 3d 30 3a  4e 25 3d 30 3a 52 25 3d  |=9:M%=0:N%=0:R%=|
000002f0  31 3a 47 25 3d 30 3a ef  31 37 2c 31 32 38 2c 33  |1:G%=0:.17,128,3|
00000300  31 2c 48 25 2c 49 25 2c  31 37 2c 37 2c 32 32 34  |1,H%,I%,17,7,224|
00000310  0d 00 a0 05 f5 0d 00 aa  1d e7 a6 2d 39 38 20 80  |...........-98 .|
00000320  48 25 3e 35 20 f2 4f 3a  48 25 3d 48 25 2d 32 3a  |H%>5 .O:H%=H%-2:|
00000330  f2 4e 0d 00 b4 1e e7 a6  2d 36 37 20 80 48 25 3c  |.N......-67 .H%<|
00000340  31 33 20 f2 4f 3a 48 25  3d 48 25 2b 32 3a f2 4e  |13 .O:H%=H%+2:.N|
00000350  0d 00 be 1f e7 a6 2d 31  30 35 20 80 49 25 3c 31  |......-105 .I%<1|
00000360  32 20 f2 4f 3a 49 25 3d  49 25 2b 32 3a f2 4e 0d  |2 .O:I%=I%+2:.N.|
00000370  00 c8 1d e7 a6 2d 37 33  20 80 49 25 3e 36 20 f2  |.....-73 .I%>6 .|
00000380  4f 3a 49 25 3d 49 25 2d  32 3a f2 4e 0d 00 cd 0f  |O:I%=I%-2:.N....|
00000390  20 e3 44 3d 30 b8 32 30  30 3a ed 0d 00 d2 0c e7  | .D=0.200:......|
000003a0  a6 2d 39 39 20 f2 50 0d  00 dc 09 fd 52 25 3d 30  |.-99 .P.....R%=0|
000003b0  0d 00 e6 31 ef 33 31 2c  48 25 2c 49 25 2c 33 32  |...1.31,H%,I%,32|
000003c0  2c 32 30 2c 33 31 2c 33  2c 31 36 2c 31 37 2c 37  |,20,31,3,16,17,7|
000003d0  3a f1 22 20 20 57 45 4c  4c 20 44 4f 4e 45 20 20  |:."  WELL DONE  |
000003e0  22 0d 00 f0 10 d4 31 2c  31 2c 32 30 30 2c 32 30  |".....1,1,200,20|
000003f0  30 0d 00 fa 07 d1 3d 30  0d 01 04 0b f5 fd 91 3e  |0.....=0.......>|
00000400  35 30 30 0d 01 0e 1d ef  33 31 2c 33 2c 31 36 3a  |500.....31,3,16:|
00000410  f1 22 4d 2d 4d 45 4e 55  20 20 52 2d 52 55 4e 22  |."M-MENU  R-RUN"|
00000420  0d 01 18 05 f5 0d 01 22  12 e7 a6 2d 31 30 32 20  |......."...-102 |
00000430  d7 22 4d 45 4e 55 22 0d  01 2c 0e e7 a6 2d 35 32  |."MENU"..,...-52|
00000440  20 52 25 3d 31 0d 01 36  09 fd 52 25 3d 31 0d 01  | R%=1..6..R%=1..|
00000450  40 05 f9 0d 01 4a 05 e0  0d 01 54 07 dd f2 50 0d  |@....J....T...P.|
00000460  01 5e 0f e7 48 25 3d 35  20 f2 41 31 3a e1 0d 01  |.^..H%=5 .A1:...|
00000470  68 0f e7 48 25 3d 37 20  f2 41 32 3a e1 0d 01 72  |h..H%=7 .A2:...r|
00000480  0f e7 48 25 3d 39 20 f2  41 33 3a e1 0d 01 7c 0f  |..H%=9 .A3:...|.|
00000490  e7 48 25 3d 31 31 f2 41  34 3a e1 0d 01 86 0d e7  |.H%=11.A4:......|
000004a0  48 25 3d 31 33 f2 41 35  0d 01 90 05 e1 0d 01 9a  |H%=13.A5........|
000004b0  08 dd f2 41 31 0d 01 a4  1f e7 49 25 3d 35 20 f2  |...A1.....I%=5 .|
000004c0  41 28 30 2c 30 2c 30 2c  33 2c 30 2c 34 2c 30 2c  |A(0,0,0,3,0,4,0,|
000004d0  31 29 3a e1 0d 01 ae 1f  e7 49 25 3d 37 20 f2 41  |1):......I%=7 .A|
000004e0  28 30 2c 31 2c 30 2c 34  2c 30 2c 35 2c 30 2c 32  |(0,1,0,4,0,5,0,2|
000004f0  29 3a e1 0d 01 b8 1f e7  49 25 3d 39 20 f2 41 28  |):......I%=9 .A(|
00000500  30 2c 32 2c 30 2c 35 2c  31 2c 33 2c 31 2c 30 29  |0,2,0,5,1,3,1,0)|
00000510  3a e1 0d 01 c2 1f e7 49  25 3d 31 31 f2 41 28 31  |:......I%=11.A(1|
00000520  2c 30 2c 31 2c 33 2c 31  2c 34 2c 31 2c 31 29 3a  |,0,1,3,1,4,1,1):|
00000530  e1 0d 01 cc 19 f2 41 28  31 2c 31 2c 31 2c 34 2c  |......A(1,1,1,4,|
00000540  31 2c 35 2c 31 2c 32 29  3a e1 0d 01 d6 08 dd f2  |1,5,1,2):.......|
00000550  41 32 0d 01 e0 1f e7 49  25 3d 35 20 f2 41 28 30  |A2.....I%=5 .A(0|
00000560  2c 33 2c 32 2c 30 2c 32  2c 31 2c 30 2c 34 29 3a  |,3,2,0,2,1,0,4):|
00000570  e1 0d 01 ea 1f e7 49 25  3d 37 20 f2 41 28 30 2c  |......I%=7 .A(0,|
00000580  34 2c 32 2c 31 2c 32 2c  32 2c 30 2c 35 29 3a e1  |4,2,1,2,2,0,5):.|
00000590  0d 01 f4 1f e7 49 25 3d  39 20 f2 41 28 30 2c 35  |.....I%=9 .A(0,5|
000005a0  2c 32 2c 32 2c 33 2c 30  2c 31 2c 33 29 3a e1 0d  |,2,2,3,0,1,3):..|
000005b0  01 fe 1f e7 49 25 3d 31  31 f2 41 28 31 2c 33 2c  |....I%=11.A(1,3,|
000005c0  33 2c 30 2c 33 2c 31 2c  31 2c 34 29 3a e1 0d 02  |3,0,3,1,1,4):...|
000005d0  08 19 f2 41 28 31 2c 34  2c 33 2c 31 2c 33 2c 32  |...A(1,4,3,1,3,2|
000005e0  2c 31 2c 35 29 3a e1 0d  02 12 08 dd f2 41 33 0d  |,1,5):.......A3.|
000005f0  02 1c 1f e7 49 25 3d 35  20 f2 41 28 32 2c 30 2c  |....I%=5 .A(2,0,|
00000600  32 2c 33 2c 32 2c 34 2c  32 2c 31 29 3a e1 0d 02  |2,3,2,4,2,1):...|
00000610  26 1f e7 49 25 3d 37 20  f2 41 28 32 2c 31 2c 32  |&..I%=7 .A(2,1,2|
00000620  2c 34 2c 32 2c 35 2c 32  2c 32 29 3a e1 0d 02 30  |,4,2,5,2,2):...0|
00000630  1f e7 49 25 3d 39 20 f2  41 28 32 2c 32 2c 32 2c  |..I%=9 .A(2,2,2,|
00000640  35 2c 33 2c 33 2c 33 2c  30 29 3a e1 0d 02 3a 1f  |5,3,3,3,0):...:.|
00000650  e7 49 25 3d 31 31 f2 41  28 33 2c 30 2c 33 2c 33  |.I%=11.A(3,0,3,3|
00000660  2c 33 2c 34 2c 33 2c 31  29 3a e1 0d 02 44 19 f2  |,3,4,3,1):...D..|
00000670  41 28 33 2c 31 2c 33 2c  34 2c 33 2c 35 2c 33 2c  |A(3,1,3,4,3,5,3,|
00000680  32 29 3a e1 0d 02 4e 08  dd f2 41 34 0d 02 58 1f  |2):...N...A4..X.|
00000690  e7 49 25 3d 35 20 f2 41  28 32 2c 33 2c 34 2c 30  |.I%=5 .A(2,3,4,0|
000006a0  2c 34 2c 31 2c 32 2c 34  29 3a e1 0d 02 62 1f e7  |,4,1,2,4):...b..|
000006b0  49 25 3d 37 20 f2 41 28  32 2c 34 2c 34 2c 31 2c  |I%=7 .A(2,4,4,1,|
000006c0  34 2c 32 2c 32 2c 35 29  3a e1 0d 02 6c 1f e7 49  |4,2,2,5):...l..I|
000006d0  25 3d 39 20 f2 41 28 32  2c 35 2c 34 2c 32 2c 35  |%=9 .A(2,5,4,2,5|
000006e0  2c 30 2c 33 2c 33 29 3a  e1 0d 02 76 1f e7 49 25  |,0,3,3):...v..I%|
000006f0  3d 31 31 f2 41 28 33 2c  33 2c 35 2c 30 2c 35 2c  |=11.A(3,3,5,0,5,|
00000700  31 2c 33 2c 34 29 3a e1  0d 02 80 19 f2 41 28 33  |1,3,4):......A(3|
00000710  2c 34 2c 35 2c 31 2c 35  2c 32 2c 33 2c 35 29 3a  |,4,5,1,5,2,3,5):|
00000720  e1 0d 02 8a 08 dd f2 41  35 0d 02 94 1f e7 49 25  |.......A5.....I%|
00000730  3d 35 20 f2 41 28 34 2c  30 2c 34 2c 33 2c 34 2c  |=5 .A(4,0,4,3,4,|
00000740  34 2c 34 2c 31 29 3a e1  0d 02 9e 1f e7 49 25 3d  |4,4,1):......I%=|
00000750  37 20 f2 41 28 34 2c 31  2c 34 2c 34 2c 34 2c 35  |7 .A(4,1,4,4,4,5|
00000760  2c 34 2c 32 29 3a e1 0d  02 a8 1f e7 49 25 3d 39  |,4,2):......I%=9|
00000770  20 f2 41 28 34 2c 32 2c  34 2c 35 2c 35 2c 33 2c  | .A(4,2,4,5,5,3,|
00000780  35 2c 30 29 3a e1 0d 02  b2 1f e7 49 25 3d 31 31  |5,0):......I%=11|
00000790  f2 41 28 35 2c 30 2c 35  2c 33 2c 35 2c 34 2c 35  |.A(5,0,5,3,5,4,5|
000007a0  2c 31 29 3a e1 0d 02 bc  19 f2 41 28 35 2c 31 2c  |,1):......A(5,1,|
000007b0  35 2c 34 2c 35 2c 35 2c  35 2c 32 29 3a e1 0d 02  |5,4,5,5,5,2):...|
000007c0  c6 20 dd f2 41 28 53 25  2c 54 25 2c 55 25 2c 56  |. ..A(S%,T%,U%,V|
000007d0  25 2c 57 25 2c 58 25 2c  59 25 2c 5a 25 29 0d 02  |%,W%,X%,Y%,Z%)..|
000007e0  d0 59 4d 25 3d 41 25 28  53 25 2c 54 25 29 3a 41  |.YM%=A%(S%,T%):A|
000007f0  25 28 53 25 2c 54 25 29  3d 41 25 28 55 25 2c 56  |%(S%,T%)=A%(U%,V|
00000800  25 29 3a 41 25 28 55 25  2c 56 25 29 3d 41 25 28  |%):A%(U%,V%)=A%(|
00000810  57 25 2c 58 25 29 3a 41  25 28 57 25 2c 58 25 29  |W%,X%):A%(W%,X%)|
00000820  3d 41 25 28 59 25 2c 5a  25 29 3a 41 25 28 59 25  |=A%(Y%,Z%):A%(Y%|
00000830  2c 5a 25 29 3d 4d 25 0d  02 da 0b ef 31 37 2c 31  |,Z%)=M%.....17,1|
00000840  33 32 0d 02 e4 35 ef 33  31 2c 48 25 2d 31 2c 49  |32...5.31,H%-1,I|
00000850  25 2d 31 2c 31 37 2c 41  25 28 53 25 2c 54 25 29  |%-1,17,A%(S%,T%)|
00000860  2c 32 32 35 2c 39 2c 31  37 2c 41 25 28 55 25 2c  |,225,9,17,A%(U%,|
00000870  56 25 29 2c 32 32 35 0d  02 ee 35 ef 33 31 2c 48  |V%),225...5.31,H|
00000880  25 2d 31 2c 49 25 2b 31  2c 31 37 2c 41 25 28 59  |%-1,I%+1,17,A%(Y|
00000890  25 2c 5a 25 29 2c 32 32  35 2c 39 2c 31 37 2c 41  |%,Z%),225,9,17,A|
000008a0  25 28 57 25 2c 58 25 29  2c 32 32 35 0d 02 f8 1b  |%(W%,X%),225....|
000008b0  43 25 3d 33 32 3a 44 25  3d 33 32 3a 45 25 3d 33  |C%=32:D%=32:E%=3|
000008c0  32 3a 46 25 3d 33 32 0d  03 02 21 e7 20 41 25 28  |2:F%=32...!. A%(|
000008d0  53 25 2c 54 25 29 3c 3e  42 25 28 53 25 2c 54 25  |S%,T%)<>B%(S%,T%|
000008e0  29 20 43 25 3d 32 32 36  0d 03 0c 21 e7 20 41 25  |) C%=226...!. A%|
000008f0  28 55 25 2c 56 25 29 3c  3e 42 25 28 55 25 2c 56  |(U%,V%)<>B%(U%,V|
00000900  25 29 20 44 25 3d 32 32  36 0d 03 16 21 e7 20 41  |%) D%=226...!. A|
00000910  25 28 57 25 2c 58 25 29  3c 3e 42 25 28 57 25 2c  |%(W%,X%)<>B%(W%,|
00000920  58 25 29 20 45 25 3d 32  32 36 0d 03 20 21 e7 20  |X%) E%=226.. !. |
00000930  41 25 28 59 25 2c 5a 25  29 3c 3e 42 25 28 59 25  |A%(Y%,Z%)<>B%(Y%|
00000940  2c 5a 25 29 20 46 25 3d  32 32 36 0d 03 2a 1f ef  |,Z%) F%=226..*..|
00000950  33 31 2c 48 25 2d 31 2c  49 25 2b 31 33 2c 31 37  |31,H%-1,I%+13,17|
00000960  2c 37 2c 43 25 2c 39 2c  44 25 0d 03 34 1a ef 33  |,7,C%,9,D%..4..3|
00000970  31 2c 48 25 2d 31 2c 49  25 2b 31 35 2c 46 25 2c  |1,H%-1,I%+15,F%,|
00000980  39 2c 45 25 0d 03 3e 0b  ef 31 37 2c 31 32 38 0d  |9,E%..>..17,128.|
00000990  03 48 11 f2 43 48 28 30  29 3a e7 52 25 3d 31 e1  |.H..CH(0):.R%=1.|
000009a0  0d 03 52 11 f2 43 48 28  31 29 3a e7 52 25 3d 31  |..R..CH(1):.R%=1|
000009b0  e1 0d 03 5c 11 f2 43 48  28 32 29 3a e7 52 25 3d  |...\..CH(2):.R%=|
000009c0  31 e1 0d 03 66 11 f2 43  48 28 33 29 3a e7 52 25  |1...f..CH(3):.R%|
000009d0  3d 31 e1 0d 03 70 11 f2  43 48 28 34 29 3a e7 52  |=1...p..CH(4):.R|
000009e0  25 3d 31 e1 0d 03 7a 0c  f2 43 48 28 35 29 3a e1  |%=1...z..CH(5):.|
000009f0  0d 03 84 0c dd f2 43 48  28 47 25 29 0d 03 8e 08  |......CH(G%)....|
00000a00  52 25 3d 30 0d 03 98 0b  e3 57 25 3d 30 b8 35 0d  |R%=0.....W%=0.5.|
00000a10  03 a2 1f e7 20 41 25 28  47 25 2c 57 25 29 3c 3e  |.... A%(G%,W%)<>|
00000a20  42 25 28 47 25 2c 57 25  29 20 52 25 3d 31 0d 03  |B%(G%,W%) R%=1..|
00000a30  ac 05 ed 0d 03 b6 05 e1  0d 03 c0 16 dd f2 4f 3a  |..............O:|
00000a40  ef 33 31 2c 48 25 2c 49  25 2c 33 32 3a e1 0d 03  |.31,H%,I%,32:...|
00000a50  ca 1c dd f2 4e 3a ef 33  31 2c 48 25 2c 49 25 2c  |....N:.31,H%,I%,|
00000a60  31 37 2c 37 2c 32 32 34  3a e1 0d 03 d4 11 dc 20  |17,7,224:...... |
00000a70  32 2c 32 2c 36 2c 33 2c  33 2c 35 0d 03 de 11 dc  |2,2,6,3,3,5.....|
00000a80  20 35 2c 31 2c 31 2c 32  2c 33 2c 35 0d 03 e8 11  | 5,1,1,2,3,5....|
00000a90  dc 20 37 2c 31 2c 36 2c  33 2c 36 2c 33 0d 03 f2  |. 7,1,6,3,6,3...|
00000aa0  11 dc 20 32 2c 31 2c 37  2c 33 2c 36 2c 36 0d 03  |.. 2,1,7,3,6,6..|
00000ab0  fc 11 dc 20 31 2c 35 2c  37 2c 32 2c 31 2c 36 0d  |... 1,5,7,2,1,6.|
00000ac0  04 06 11 dc 20 37 2c 32  2c 37 2c 35 2c 35 2c 37  |.... 7,2,7,5,5,7|
00000ad0  0d ff                                             |..|
00000ad2
G/PUZZ.m0
G/PUZZ.m1
G/PUZZ.m2
G/PUZZ.m4
G/PUZZ.m5