d�  PUZZLER  by  A. Pratt
n�  (c) The Micro User
x�4
�� A$(15),D$(9),list$(5)
� � R%(15),N%(15),C%(16),S%(5)
��initialise
��introduction
��choose
��5
�� I%=0 � 14:A$(I%)="*":�
�A$(15)=" "
�� P%<4 �fillposter
��23;8202;0;0;0;
� �19,1,0;0;19,2,0;0;19,3,0;0;
�� 16,336:�box(3,672)
��board(1):�19,3,7;0;:�story

�28,0,31,19,22:�:�26

�board(1):�jumble:time=�

�

"�19,1,4;0;19,2,1;0;

,�19,1,1;0;19,2,4;0;

6� �=time+200

@�19,1,0;0;19,2,0;0;

J
�board(2)

T�19,1,1;0;19,2,4;0;

^�pieces

h&old%=12:new%=old%:count=0:solved=�

r)�2:�13,14)"MOVES:":�3:�15,16);count

|�28,0,31,19,23:�instruct

��:�5

�5� (old% � 4)*160+80,888-(old% � 4)*160:� 3,3:�"+"

�
�:*FX15,1

�valid=�:key=�

�5� (old% � 4)*160+80,888-(old% � 4)*160:� 3,3:�"+"

�>� (key=90 � key=122) � (old% � 4)<>0 � new%=old%-1:valid=�

�>� (key=88 � key=120) � (old% � 4)<>3 � new%=old%+1:valid=�

�=� (key=42 � key=58) � (old% � 4)<>0 � new%=old%-4:valid=�

�=� (key=47 � key=63) � (old% � 4)<>3 � new%=old%+4:valid=�

�5� (new% � 4)*160+80,888-(new% � 4)*160:� 3,3:�"+"

�� valid

�
�wait(15)

�count=count+1
6� (new% � 4)*160+40,840-(new% � 4)*160:�box(0,150)

�wait(15)
F� (old% � 4)*160+40,840-(old% � 4)*160:�box((N%(new%) � 24)/8,150)
&?A$(old%)=A$(new%):T%=N%(old%):N%(old%)=N%(new%):N%(new%)=T%
05� (old% � 4)*160+80,928-(old% � 4)*160:� A$(old%)
:
�wait(15)
D� 965,335:�box(0,176)
N� 965,511:�;count
X�4
bold%=new%:�test
l� solved
v$�:�19,1,9;0;19,2,12;0;19,3,11;0;
��5
�� 832,447:�0,2:�"SOLVED"
��4:�wait(20)
�0�"PETE WISHES TO THANK"'" YOU   VERY   MUCH"
��wait(400)
��4
��19,0,4;0;
�4�14,1)"WIZZ KIDS"''�8)"Name"�19)"Minimum Moves"
�� count>=min � �dxB
�min=count:J%=0
�&� I%=5 � 1 �-1:� min<=S%(I%) J%=I%
��
�� I%=1 � 5
� I%=J% �'�7)name$�27);min
�'�7)list$(I%)�27);S%(I%)
�:�3
 � J%=0 �'�7)name$�27);min
*2�'''"1  Try to improve your score ";name$;" ?"
4�'"2  Try another puzzle ?"
>+�'"3  Do you think you can do better ?"
H�:�28,0,31,39,28:�:*FX15,1
R)�"What is your choice (1 to 3) ? " Q%
\� Q%>0 � Q%<4
f� Q%=3 � J% �newlist
p� Q% � �tt@,�tj@,�t`@
z�
���initialise
�� I%=1 � 9:� D$(I%)
��
�#� I%=1 � 5:� list$(I%):� S%(I%)
��
�� I%=0 � 15:� R:R%(I%)=R+7
��
��
���introduction
��26:�:�19,0,4;0;
��''"Welcome to Pete and his collection of"''"puzzling posters. Try and help him sort"''"out the letters into the correct order"''"and earn yourself a place on the list of"
��'�14)"WIZZ KIDS"'''"Only puzzles 1 to 3 are shown sorted"''"out before being randomly jumbled just"''"like the other six."
�name$=""
�:�28,0,31,39,28:�:*FX15,1
�"Enter your Name ? " name$
 � �(name$)>8 name$=�name$,8)
$� name$<>""
.min=9999
8�
B��choose
L�:�28,0,31,39,28:�:*FX15,1
V.�"Choose your puzzle (Enter 1 to 9) ? " P%
`� P%>0 � P%<10
j�
t��story
~L�14,2)"POOR"�13,4)"PETE'S"�12,6)"PUZZLING"�13,8)"POSTER"�14,10)"No.";P%
�)�wait(10):�19,1,1;0;19,2,4;0;:�pieces
�w�1:�0,22)"THIS  IS  WHAT  IT"'"SHOULD  LOOK  LIKE"'"HOWEVER SOME NAUGHTYBOYS  HAVE  JUMBLED"'"ALL   THE   LETTERS"
�5�2:�"CAN YOU TRY AND SORTIT OUT FOR POOR PETE":�3
�
�wait(30)
��"Press the SPACE bar"
��:� �(-99)
��
���instruct
ح�2:�"Use"''"to move the ";:�3:�;"+";:�2:�;" symbolonto the  piece  youwish  to  move  and sort out the Poster with  all  the  ";:�1:�"red";:�2:�" squares at the  top":�3
�/�4,0)"Up= *,  Down= ?   Left= Z, Right= X"
��
�
��newlist
� J%=5 � �ThE

� I%=4 � J% �-1
)S%(I%+1)=S%(I%):list$(I%+1)=list$(I%)
�
(S%(J%)=min:list$(J%)=name$
2�
<��board(R%):T%=0
F� Y%=840 � 360 � -160
P� X%=40 � 520 � 160
Z� X%,Y%
d"� R%=1 C%=1+(T% � 8)-2*(T%=15)
n.� R%=2 C%=1+((T%+T% � 4 � 2)� 2)-2*(T%=12)
x�box(C%,150)
�T%=T%+1
��
��
��
���pieces
��5
�� I%=0 � 15
�/� (I% � 4)*160+80,928-(I% � 4)*160:� A$(I%)
��
��4:�wait(20)
��
���box(C%,S%)
�8� 0,C%:� 1,S%,0:� 81,0,S%:� 1,-S%,0:� 81,0,-S%:� 0,3
�
��fillposter
K%=�(�D$(P%),1))
"� I%=0 � 14:R%=I%+1
,�convert
6�
@A$(15)=" "
J�
T��jumble
^� I%=0 � 16:C%(I%)=0:�
hK%=�(�D$(P%),1))
r� L%=0 � 14:I%=L%-(L%>11)
|#R%=�(8)+8*(I% � 4 � 2 � I% � 2)
�� R%=16 � C%(R%) � �D|F
��convert:C%(R%)=-1
��
�A$(12)=" ":N%(12)=R%(15)
��
�
��convert
�QB%=�(�D$(P%),R%*2,1)):A$(I%)=�(55+�(�D$(P%),R%*2-1,1))*K%+B%*((B%<7)-(B%>7)))
�N%(I%)=R%(R%-1)
��
�
��test
�failed=�:F%=0:T$=""
�� I%=0 � 15
�,� N%(I%)=R%(I%) � F%=F%+1 � T$=T$+A$(I%)
�
� F%<16 failed=�
$� F%=14 � �T$,1)=�T$,1) failed=�
&� N%(15)<>25 failed=�
0� � failed � solved=�
:�
D��wait(W%)
N
time=�
X�:� �>time+W%
b�
l� puzzle data
v%� 2244372123272747222445563637517
�%� 9452634343745484637481424182614
�%� 3251526163313532614342627151755
�%� 4736442225375644233731432445568
�%� 5322464142224434324653436434516
�%� 4331546573356243614342623335635
�%� 2437332344423144273337474522238
�%� 4281426144749484533281424182614
�%� 5334224342463634312265343366536
�;� WIZARD,100,BRAINS,150,SMARTY,200,PETE,250,GRANDPA,300
�,� 1,3,5,7,8,6,4,2,9,11,13,15,16,14,12,18
�� Wordcoder
�-� Assemble the codes for all the alphabet
��6
� � A%(26,5),B%(26,5),K%(26,5)
�0� �15)"WORD CODER"''"Enter your 15 letters"'
�/D$="                                ":D$=""
�� L%=1 � 4
�$� S%=10 � 35:Z$=�(S%+55):K%=L%+3
�A%=�(S%/K%):B%=S%-A%*K%
�� B%<8 A%=A%+1:B%=B%-K%
�� B%<-6 A%=A%-1:B%=B%+K%
� A%>9 K%=K%+1:� �dfO
� A%<0 K%=K%-1:� �dfO
0A%(S%-9,L%)=A%:B%(S%-9,L%)=B%:K%(S%-9,L%)=K%
"�
,�
6!� Assemble code for the words
@X%=�(4)
J� S%=1 � 15
T8�"Letter ";S%;" ?";:� " "A$:I%=�(A$)-64+32*(A$>="a")
^D$=D$+�(A%(I%,X%))
h3� B%(I%,X%)<0 D$=D$+�(-1*B%(I%,X%)) � D$=D$+"7"
r�
|D$=D$+�(X%+3):� 'D$'
�

00000000  0d 00 64 1c f4 20 20 50  55 5a 5a 4c 45 52 20 20  |..d..  PUZZLER  |
00000010  62 79 20 20 41 2e 20 50  72 61 74 74 0d 00 6e 19  |by  A. Pratt..n.|
00000020  f4 20 20 28 63 29 20 54  68 65 20 4d 69 63 72 6f  |.  (c) The Micro|
00000030  20 55 73 65 72 0d 00 78  06 eb 34 0d 00 82 1b de  | User..x..4.....|
00000040  20 41 24 28 31 35 29 2c  44 24 28 39 29 2c 6c 69  | A$(15),D$(9),li|
00000050  73 74 24 28 35 29 0d 00  8c 20 de 20 52 25 28 31  |st$(5)... . R%(1|
00000060  35 29 2c 4e 25 28 31 35  29 2c 43 25 28 31 36 29  |5),N%(15),C%(16)|
00000070  2c 53 25 28 35 29 0d 00  96 0f f2 69 6e 69 74 69  |,S%(5).....initi|
00000080  61 6c 69 73 65 0d 00 a0  11 f2 69 6e 74 72 6f 64  |alise.....introd|
00000090  75 63 74 69 6f 6e 0d 00  aa 0b f2 63 68 6f 6f 73  |uction.....choos|
000000a0  65 0d 00 b4 06 eb 35 0d  00 be 1c e3 20 49 25 3d  |e.....5..... I%=|
000000b0  30 20 b8 20 31 34 3a 41  24 28 49 25 29 3d 22 2a  |0 . 14:A$(I%)="*|
000000c0  22 3a ed 0d 00 c8 0e 41  24 28 31 35 29 3d 22 20  |":.....A$(15)=" |
000000d0  22 0d 00 d2 16 e7 20 50  25 3c 34 20 f2 66 69 6c  |"..... P%<4 .fil|
000000e0  6c 70 6f 73 74 65 72 0d  00 dc 13 ef 32 33 3b 38  |lposter.....23;8|
000000f0  32 30 32 3b 30 3b 30 3b  30 3b 0d 00 e6 20 ef 31  |202;0;0;0;... .1|
00000100  39 2c 31 2c 30 3b 30 3b  31 39 2c 32 2c 30 3b 30  |9,1,0;0;19,2,0;0|
00000110  3b 31 39 2c 33 2c 30 3b  30 3b 0d 00 f0 18 ec 20  |;19,3,0;0;..... |
00000120  31 36 2c 33 33 36 3a f2  62 6f 78 28 33 2c 36 37  |16,336:.box(3,67|
00000130  32 29 0d 00 fa 1f f2 62  6f 61 72 64 28 31 29 3a  |2).....board(1):|
00000140  ef 31 39 2c 33 2c 37 3b  30 3b 3a f2 73 74 6f 72  |.19,3,7;0;:.stor|
00000150  79 0d 01 04 18 ef 32 38  2c 30 2c 33 31 2c 31 39  |y.....28,0,31,19|
00000160  2c 32 32 3a db 3a ef 32  36 0d 01 0e 1c f2 62 6f  |,22:.:.26.....bo|
00000170  61 72 64 28 31 29 3a f2  6a 75 6d 62 6c 65 3a 74  |ard(1):.jumble:t|
00000180  69 6d 65 3d 91 0d 01 18  05 f5 0d 01 22 17 ef 31  |ime=........"..1|
00000190  39 2c 31 2c 34 3b 30 3b  31 39 2c 32 2c 31 3b 30  |9,1,4;0;19,2,1;0|
000001a0  3b 0d 01 2c 17 ef 31 39  2c 31 2c 31 3b 30 3b 31  |;..,..19,1,1;0;1|
000001b0  39 2c 32 2c 34 3b 30 3b  0d 01 36 10 fd 20 91 3d  |9,2,4;0;..6.. .=|
000001c0  74 69 6d 65 2b 32 30 30  0d 01 40 17 ef 31 39 2c  |time+200..@..19,|
000001d0  31 2c 30 3b 30 3b 31 39  2c 32 2c 30 3b 30 3b 0d  |1,0;0;19,2,0;0;.|
000001e0  01 4a 0d f2 62 6f 61 72  64 28 32 29 0d 01 54 17  |.J..board(2)..T.|
000001f0  ef 31 39 2c 31 2c 31 3b  30 3b 31 39 2c 32 2c 34  |.19,1,1;0;19,2,4|
00000200  3b 30 3b 0d 01 5e 0b f2  70 69 65 63 65 73 0d 01  |;0;..^..pieces..|
00000210  68 26 6f 6c 64 25 3d 31  32 3a 6e 65 77 25 3d 6f  |h&old%=12:new%=o|
00000220  6c 64 25 3a 63 6f 75 6e  74 3d 30 3a 73 6f 6c 76  |ld%:count=0:solv|
00000230  65 64 3d a3 0d 01 72 29  fb 32 3a f1 8a 31 33 2c  |ed=...r).2:..13,|
00000240  31 34 29 22 4d 4f 56 45  53 3a 22 3a fb 33 3a f1  |14)"MOVES:":.3:.|
00000250  8a 31 35 2c 31 36 29 3b  63 6f 75 6e 74 0d 01 7c  |.15,16);count..||
00000260  1c ef 32 38 2c 30 2c 33  31 2c 31 39 2c 32 33 3a  |..28,0,31,19,23:|
00000270  f2 69 6e 73 74 72 75 63  74 0d 01 86 08 f5 3a ef  |.instruct.....:.|
00000280  35 0d 01 90 35 ec 20 28  6f 6c 64 25 20 83 20 34  |5...5. (old% . 4|
00000290  29 2a 31 36 30 2b 38 30  2c 38 38 38 2d 28 6f 6c  |)*160+80,888-(ol|
000002a0  64 25 20 81 20 34 29 2a  31 36 30 3a e6 20 33 2c  |d% . 4)*160:. 3,|
000002b0  33 3a f1 22 2b 22 0d 01  9a 0d f5 3a 2a 46 58 31  |3:."+".....:*FX1|
000002c0  35 2c 31 0d 01 a4 11 76  61 6c 69 64 3d a3 3a 6b  |5,1....valid=.:k|
000002d0  65 79 3d a5 0d 01 ae 35  ec 20 28 6f 6c 64 25 20  |ey=....5. (old% |
000002e0  83 20 34 29 2a 31 36 30  2b 38 30 2c 38 38 38 2d  |. 4)*160+80,888-|
000002f0  28 6f 6c 64 25 20 81 20  34 29 2a 31 36 30 3a e6  |(old% . 4)*160:.|
00000300  20 33 2c 33 3a f1 22 2b  22 0d 01 b8 3e e7 20 28  | 3,3:."+"...>. (|
00000310  6b 65 79 3d 39 30 20 84  20 6b 65 79 3d 31 32 32  |key=90 . key=122|
00000320  29 20 80 20 28 6f 6c 64  25 20 83 20 34 29 3c 3e  |) . (old% . 4)<>|
00000330  30 20 8c 20 6e 65 77 25  3d 6f 6c 64 25 2d 31 3a  |0 . new%=old%-1:|
00000340  76 61 6c 69 64 3d b9 0d  01 c2 3e e7 20 28 6b 65  |valid=....>. (ke|
00000350  79 3d 38 38 20 84 20 6b  65 79 3d 31 32 30 29 20  |y=88 . key=120) |
00000360  80 20 28 6f 6c 64 25 20  83 20 34 29 3c 3e 33 20  |. (old% . 4)<>3 |
00000370  8c 20 6e 65 77 25 3d 6f  6c 64 25 2b 31 3a 76 61  |. new%=old%+1:va|
00000380  6c 69 64 3d b9 0d 01 cc  3d e7 20 28 6b 65 79 3d  |lid=....=. (key=|
00000390  34 32 20 84 20 6b 65 79  3d 35 38 29 20 80 20 28  |42 . key=58) . (|
000003a0  6f 6c 64 25 20 81 20 34  29 3c 3e 30 20 8c 20 6e  |old% . 4)<>0 . n|
000003b0  65 77 25 3d 6f 6c 64 25  2d 34 3a 76 61 6c 69 64  |ew%=old%-4:valid|
000003c0  3d b9 0d 01 d6 3d e7 20  28 6b 65 79 3d 34 37 20  |=....=. (key=47 |
000003d0  84 20 6b 65 79 3d 36 33  29 20 80 20 28 6f 6c 64  |. key=63) . (old|
000003e0  25 20 81 20 34 29 3c 3e  33 20 8c 20 6e 65 77 25  |% . 4)<>3 . new%|
000003f0  3d 6f 6c 64 25 2b 34 3a  76 61 6c 69 64 3d b9 0d  |=old%+4:valid=..|
00000400  01 e0 35 ec 20 28 6e 65  77 25 20 83 20 34 29 2a  |..5. (new% . 4)*|
00000410  31 36 30 2b 38 30 2c 38  38 38 2d 28 6e 65 77 25  |160+80,888-(new%|
00000420  20 81 20 34 29 2a 31 36  30 3a e6 20 33 2c 33 3a  | . 4)*160:. 3,3:|
00000430  f1 22 2b 22 0d 01 ea 0b  fd 20 76 61 6c 69 64 0d  |."+"..... valid.|
00000440  01 f4 0d f2 77 61 69 74  28 31 35 29 0d 01 fe 11  |....wait(15)....|
00000450  63 6f 75 6e 74 3d 63 6f  75 6e 74 2b 31 0d 02 08  |count=count+1...|
00000460  36 ec 20 28 6e 65 77 25  20 83 20 34 29 2a 31 36  |6. (new% . 4)*16|
00000470  30 2b 34 30 2c 38 34 30  2d 28 6e 65 77 25 20 81  |0+40,840-(new% .|
00000480  20 34 29 2a 31 36 30 3a  f2 62 6f 78 28 30 2c 31  | 4)*160:.box(0,1|
00000490  35 30 29 0d 02 12 0d f2  77 61 69 74 28 31 35 29  |50).....wait(15)|
000004a0  0d 02 1c 46 ec 20 28 6f  6c 64 25 20 83 20 34 29  |...F. (old% . 4)|
000004b0  2a 31 36 30 2b 34 30 2c  38 34 30 2d 28 6f 6c 64  |*160+40,840-(old|
000004c0  25 20 81 20 34 29 2a 31  36 30 3a f2 62 6f 78 28  |% . 4)*160:.box(|
000004d0  28 4e 25 28 6e 65 77 25  29 20 80 20 32 34 29 2f  |(N%(new%) . 24)/|
000004e0  38 2c 31 35 30 29 0d 02  26 3f 41 24 28 6f 6c 64  |8,150)..&?A$(old|
000004f0  25 29 3d 41 24 28 6e 65  77 25 29 3a 54 25 3d 4e  |%)=A$(new%):T%=N|
00000500  25 28 6f 6c 64 25 29 3a  4e 25 28 6f 6c 64 25 29  |%(old%):N%(old%)|
00000510  3d 4e 25 28 6e 65 77 25  29 3a 4e 25 28 6e 65 77  |=N%(new%):N%(new|
00000520  25 29 3d 54 25 0d 02 30  35 ec 20 28 6f 6c 64 25  |%)=T%..05. (old%|
00000530  20 83 20 34 29 2a 31 36  30 2b 38 30 2c 39 32 38  | . 4)*160+80,928|
00000540  2d 28 6f 6c 64 25 20 81  20 34 29 2a 31 36 30 3a  |-(old% . 4)*160:|
00000550  f1 20 41 24 28 6f 6c 64  25 29 0d 02 3a 0d f2 77  |. A$(old%)..:..w|
00000560  61 69 74 28 31 35 29 0d  02 44 19 ec 20 39 36 35  |ait(15)..D.. 965|
00000570  2c 33 33 35 3a f2 62 6f  78 28 30 2c 31 37 36 29  |,335:.box(0,176)|
00000580  0d 02 4e 15 ec 20 39 36  35 2c 35 31 31 3a f1 3b  |..N.. 965,511:.;|
00000590  63 6f 75 6e 74 0d 02 58  06 ef 34 0d 02 62 13 6f  |count..X..4..b.o|
000005a0  6c 64 25 3d 6e 65 77 25  3a f2 74 65 73 74 0d 02  |ld%=new%:.test..|
000005b0  6c 0c fd 20 73 6f 6c 76  65 64 0d 02 76 24 db 3a  |l.. solved..v$.:|
000005c0  ef 31 39 2c 31 2c 39 3b  30 3b 31 39 2c 32 2c 31  |.19,1,9;0;19,2,1|
000005d0  32 3b 30 3b 31 39 2c 33  2c 31 31 3b 30 3b 0d 02  |2;0;19,3,11;0;..|
000005e0  80 06 ef 35 0d 02 8a 1c  ec 20 38 33 32 2c 34 34  |...5..... 832,44|
000005f0  37 3a e6 30 2c 32 3a f1  22 53 4f 4c 56 45 44 22  |7:.0,2:."SOLVED"|
00000600  0d 02 94 10 ef 34 3a f2  77 61 69 74 28 32 30 29  |.....4:.wait(20)|
00000610  0d 02 9e 30 f1 22 50 45  54 45 20 57 49 53 48 45  |...0."PETE WISHE|
00000620  53 20 54 4f 20 54 48 41  4e 4b 22 27 22 20 59 4f  |S TO THANK"'" YO|
00000630  55 20 20 20 56 45 52 59  20 20 20 4d 55 43 48 22  |U   VERY   MUCH"|
00000640  0d 02 a8 0e f2 77 61 69  74 28 34 30 30 29 0d 02  |.....wait(400)..|
00000650  b2 06 eb 34 0d 02 bc 0e  ef 31 39 2c 30 2c 34 3b  |...4.....19,0,4;|
00000660  30 3b 0d 02 c6 34 f1 8a  31 34 2c 31 29 22 57 49  |0;...4..14,1)"WI|
00000670  5a 5a 20 4b 49 44 53 22  27 27 8a 38 29 22 4e 61  |ZZ KIDS"''.8)"Na|
00000680  6d 65 22 8a 31 39 29 22  4d 69 6e 69 6d 75 6d 20  |me".19)"Minimum |
00000690  4d 6f 76 65 73 22 0d 02  d0 17 e7 20 63 6f 75 6e  |Moves"..... coun|
000006a0  74 3e 3d 6d 69 6e 20 e5  20 8d 64 78 42 0d 02 da  |t>=min . .dxB...|
000006b0  12 6d 69 6e 3d 63 6f 75  6e 74 3a 4a 25 3d 30 0d  |.min=count:J%=0.|
000006c0  02 e4 26 e3 20 49 25 3d  35 20 b8 20 31 20 88 2d  |..&. I%=5 . 1 .-|
000006d0  31 3a e7 20 6d 69 6e 3c  3d 53 25 28 49 25 29 20  |1:. min<=S%(I%) |
000006e0  4a 25 3d 49 25 0d 02 ee  05 ed 0d 02 f8 0e e3 20  |J%=I%.......... |
000006f0  49 25 3d 31 20 b8 20 35  0d 03 02 1e e7 20 49 25  |I%=1 . 5..... I%|
00000700  3d 4a 25 20 f1 27 8a 37  29 6e 61 6d 65 24 8a 32  |=J% .'.7)name$.2|
00000710  37 29 3b 6d 69 6e 0d 03  0c 1d f1 27 8a 37 29 6c  |7);min.....'.7)l|
00000720  69 73 74 24 28 49 25 29  8a 32 37 29 3b 53 25 28  |ist$(I%).27);S%(|
00000730  49 25 29 0d 03 16 08 ed  3a fb 33 0d 03 20 1d e7  |I%).....:.3.. ..|
00000740  20 4a 25 3d 30 20 f1 27  8a 37 29 6e 61 6d 65 24  | J%=0 .'.7)name$|
00000750  8a 32 37 29 3b 6d 69 6e  0d 03 2a 32 f1 27 27 27  |.27);min..*2.'''|
00000760  22 31 20 20 54 72 79 20  74 6f 20 69 6d 70 72 6f  |"1  Try to impro|
00000770  76 65 20 79 6f 75 72 20  73 63 6f 72 65 20 22 3b  |ve your score ";|
00000780  6e 61 6d 65 24 3b 22 20  3f 22 0d 03 34 1f f1 27  |name$;" ?"..4..'|
00000790  22 32 20 20 54 72 79 20  61 6e 6f 74 68 65 72 20  |"2  Try another |
000007a0  70 75 7a 7a 6c 65 20 3f  22 0d 03 3e 2b f1 27 22  |puzzle ?"..>+.'"|
000007b0  33 20 20 44 6f 20 79 6f  75 20 74 68 69 6e 6b 20  |3  Do you think |
000007c0  79 6f 75 20 63 61 6e 20  64 6f 20 62 65 74 74 65  |you can do bette|
000007d0  72 20 3f 22 0d 03 48 1e  f5 3a ef 32 38 2c 30 2c  |r ?"..H..:.28,0,|
000007e0  33 31 2c 33 39 2c 32 38  3a db 3a 2a 46 58 31 35  |31,39,28:.:*FX15|
000007f0  2c 31 0d 03 52 29 e8 22  57 68 61 74 20 69 73 20  |,1..R)."What is |
00000800  79 6f 75 72 20 63 68 6f  69 63 65 20 28 31 20 74  |your choice (1 t|
00000810  6f 20 33 29 20 3f 20 22  20 51 25 0d 03 5c 11 fd  |o 3) ? " Q%..\..|
00000820  20 51 25 3e 30 20 80 20  51 25 3c 34 0d 03 66 18  | Q%>0 . Q%<4..f.|
00000830  e7 20 51 25 3d 33 20 80  20 4a 25 20 f2 6e 65 77  |. Q%=3 . J% .new|
00000840  6c 69 73 74 0d 03 70 19  ee 20 51 25 20 e5 20 8d  |list..p.. Q% . .|
00000850  74 74 40 2c 8d 74 6a 40  2c 8d 74 60 40 0d 03 7a  |tt@,.tj@,.t`@..z|
00000860  05 e0 0d 03 84 10 dd f2  69 6e 69 74 69 61 6c 69  |........initiali|
00000870  73 65 0d 03 8e 17 e3 20  49 25 3d 31 20 b8 20 39  |se..... I%=1 . 9|
00000880  3a f3 20 44 24 28 49 25  29 0d 03 98 05 ed 0d 03  |:. D$(I%).......|
00000890  a2 23 e3 20 49 25 3d 31  20 b8 20 35 3a f3 20 6c  |.#. I%=1 . 5:. l|
000008a0  69 73 74 24 28 49 25 29  3a f3 20 53 25 28 49 25  |ist$(I%):. S%(I%|
000008b0  29 0d 03 ac 05 ed 0d 03  b6 1e e3 20 49 25 3d 30  |).......... I%=0|
000008c0  20 b8 20 31 35 3a f3 20  52 3a 52 25 28 49 25 29  | . 15:. R:R%(I%)|
000008d0  3d 52 2b 37 0d 03 c0 05  ed 0d 03 ca 05 e1 0d 03  |=R+7............|
000008e0  d4 12 dd f2 69 6e 74 72  6f 64 75 63 74 69 6f 6e  |....introduction|
000008f0  0d 03 de 14 ef 32 36 3a  db 3a ef 31 39 2c 30 2c  |.....26:.:.19,0,|
00000900  34 3b 30 3b 0d 03 e8 af  f1 27 27 22 57 65 6c 63  |4;0;.....''"Welc|
00000910  6f 6d 65 20 74 6f 20 50  65 74 65 20 61 6e 64 20  |ome to Pete and |
00000920  68 69 73 20 63 6f 6c 6c  65 63 74 69 6f 6e 20 6f  |his collection o|
00000930  66 22 27 27 22 70 75 7a  7a 6c 69 6e 67 20 70 6f  |f"''"puzzling po|
00000940  73 74 65 72 73 2e 20 54  72 79 20 61 6e 64 20 68  |sters. Try and h|
00000950  65 6c 70 20 68 69 6d 20  73 6f 72 74 22 27 27 22  |elp him sort"''"|
00000960  6f 75 74 20 74 68 65 20  6c 65 74 74 65 72 73 20  |out the letters |
00000970  69 6e 74 6f 20 74 68 65  20 63 6f 72 72 65 63 74  |into the correct|
00000980  20 6f 72 64 65 72 22 27  27 22 61 6e 64 20 65 61  | order"''"and ea|
00000990  72 6e 20 79 6f 75 72 73  65 6c 66 20 61 20 70 6c  |rn yourself a pl|
000009a0  61 63 65 20 6f 6e 20 74  68 65 20 6c 69 73 74 20  |ace on the list |
000009b0  6f 66 22 0d 03 f2 7f f1  27 8a 31 34 29 22 57 49  |of".....'.14)"WI|
000009c0  5a 5a 20 4b 49 44 53 22  27 27 27 22 4f 6e 6c 79  |ZZ KIDS"'''"Only|
000009d0  20 70 75 7a 7a 6c 65 73  20 31 20 74 6f 20 33 20  | puzzles 1 to 3 |
000009e0  61 72 65 20 73 68 6f 77  6e 20 73 6f 72 74 65 64  |are shown sorted|
000009f0  22 27 27 22 6f 75 74 20  62 65 66 6f 72 65 20 62  |"''"out before b|
00000a00  65 69 6e 67 20 72 61 6e  64 6f 6d 6c 79 20 6a 75  |eing randomly ju|
00000a10  6d 62 6c 65 64 20 6a 75  73 74 22 27 27 22 6c 69  |mbled just"''"li|
00000a20  6b 65 20 74 68 65 20 6f  74 68 65 72 20 73 69 78  |ke the other six|
00000a30  2e 22 0d 03 fc 0c 6e 61  6d 65 24 3d 22 22 0d 04  |."....name$=""..|
00000a40  06 1e f5 3a ef 32 38 2c  30 2c 33 31 2c 33 39 2c  |...:.28,0,31,39,|
00000a50  32 38 3a db 3a 2a 46 58  31 35 2c 31 0d 04 10 1f  |28:.:*FX15,1....|
00000a60  e8 22 45 6e 74 65 72 20  79 6f 75 72 20 4e 61 6d  |."Enter your Nam|
00000a70  65 20 3f 20 22 20 6e 61  6d 65 24 0d 04 1a 20 e7  |e ? " name$... .|
00000a80  20 a9 28 6e 61 6d 65 24  29 3e 38 20 6e 61 6d 65  | .(name$)>8 name|
00000a90  24 3d c0 6e 61 6d 65 24  2c 38 29 0d 04 24 0f fd  |$=.name$,8)..$..|
00000aa0  20 6e 61 6d 65 24 3c 3e  22 22 0d 04 2e 0c 6d 69  | name$<>""....mi|
00000ab0  6e 3d 39 39 39 39 0d 04  38 05 e1 0d 04 42 0c dd  |n=9999..8....B..|
00000ac0  f2 63 68 6f 6f 73 65 0d  04 4c 1e f5 3a ef 32 38  |.choose..L..:.28|
00000ad0  2c 30 2c 33 31 2c 33 39  2c 32 38 3a db 3a 2a 46  |,0,31,39,28:.:*F|
00000ae0  58 31 35 2c 31 0d 04 56  2e e8 22 43 68 6f 6f 73  |X15,1..V.."Choos|
00000af0  65 20 79 6f 75 72 20 70  75 7a 7a 6c 65 20 28 45  |e your puzzle (E|
00000b00  6e 74 65 72 20 31 20 74  6f 20 39 29 20 3f 20 22  |nter 1 to 9) ? "|
00000b10  20 50 25 0d 04 60 12 fd  20 50 25 3e 30 20 80 20  | P%..`.. P%>0 . |
00000b20  50 25 3c 31 30 0d 04 6a  05 e1 0d 04 74 0b dd f2  |P%<10..j....t...|
00000b30  73 74 6f 72 79 0d 04 7e  4c f1 8a 31 34 2c 32 29  |story..~L..14,2)|
00000b40  22 50 4f 4f 52 22 8a 31  33 2c 34 29 22 50 45 54  |"POOR".13,4)"PET|
00000b50  45 27 53 22 8a 31 32 2c  36 29 22 50 55 5a 5a 4c  |E'S".12,6)"PUZZL|
00000b60  49 4e 47 22 8a 31 33 2c  38 29 22 50 4f 53 54 45  |ING".13,8)"POSTE|
00000b70  52 22 8a 31 34 2c 31 30  29 22 4e 6f 2e 22 3b 50  |R".14,10)"No.";P|
00000b80  25 0d 04 88 29 f2 77 61  69 74 28 31 30 29 3a ef  |%...).wait(10):.|
00000b90  31 39 2c 31 2c 31 3b 30  3b 31 39 2c 32 2c 34 3b  |19,1,1;0;19,2,4;|
00000ba0  30 3b 3a f2 70 69 65 63  65 73 0d 04 92 77 fb 31  |0;:.pieces...w.1|
00000bb0  3a f1 8a 30 2c 32 32 29  22 54 48 49 53 20 20 49  |:..0,22)"THIS  I|
00000bc0  53 20 20 57 48 41 54 20  20 49 54 22 27 22 53 48  |S  WHAT  IT"'"SH|
00000bd0  4f 55 4c 44 20 20 4c 4f  4f 4b 20 20 4c 49 4b 45  |OULD  LOOK  LIKE|
00000be0  22 27 22 48 4f 57 45 56  45 52 20 53 4f 4d 45 20  |"'"HOWEVER SOME |
00000bf0  4e 41 55 47 48 54 59 42  4f 59 53 20 20 48 41 56  |NAUGHTYBOYS  HAV|
00000c00  45 20 20 4a 55 4d 42 4c  45 44 22 27 22 41 4c 4c  |E  JUMBLED"'"ALL|
00000c10  20 20 20 54 48 45 20 20  20 4c 45 54 54 45 52 53  |   THE   LETTERS|
00000c20  22 0d 04 9c 35 fb 32 3a  f1 22 43 41 4e 20 59 4f  |"...5.2:."CAN YO|
00000c30  55 20 54 52 59 20 41 4e  44 20 53 4f 52 54 49 54  |U TRY AND SORTIT|
00000c40  20 4f 55 54 20 46 4f 52  20 50 4f 4f 52 20 50 45  | OUT FOR POOR PE|
00000c50  54 45 22 3a fb 33 0d 04  a6 0d f2 77 61 69 74 28  |TE":.3.....wait(|
00000c60  33 30 29 0d 04 b0 1a f1  22 50 72 65 73 73 20 74  |30)....."Press t|
00000c70  68 65 20 53 50 41 43 45  20 62 61 72 22 0d 04 ba  |he SPACE bar"...|
00000c80  0e f5 3a fd 20 a6 28 2d  39 39 29 0d 04 c4 05 e1  |..:. .(-99).....|
00000c90  0d 04 ce 0e dd f2 69 6e  73 74 72 75 63 74 0d 04  |......instruct..|
00000ca0  d8 ad fb 32 3a f1 22 55  73 65 22 27 27 22 74 6f  |...2:."Use"''"to|
00000cb0  20 6d 6f 76 65 20 74 68  65 20 22 3b 3a fb 33 3a  | move the ";:.3:|
00000cc0  f1 3b 22 2b 22 3b 3a fb  32 3a f1 3b 22 20 73 79  |.;"+";:.2:.;" sy|
00000cd0  6d 62 6f 6c 6f 6e 74 6f  20 74 68 65 20 20 70 69  |mbolonto the  pi|
00000ce0  65 63 65 20 20 79 6f 75  77 69 73 68 20 20 74 6f  |ece  youwish  to|
00000cf0  20 20 6d 6f 76 65 20 20  61 6e 64 20 73 6f 72 74  |  move  and sort|
00000d00  20 6f 75 74 20 74 68 65  20 50 6f 73 74 65 72 20  | out the Poster |
00000d10  77 69 74 68 20 20 61 6c  6c 20 20 74 68 65 20 20  |with  all  the  |
00000d20  22 3b 3a fb 31 3a f1 22  72 65 64 22 3b 3a fb 32  |";:.1:."red";:.2|
00000d30  3a f1 22 20 73 71 75 61  72 65 73 20 61 74 20 74  |:." squares at t|
00000d40  68 65 20 20 74 6f 70 22  3a fb 33 0d 04 e2 2f f1  |he  top":.3.../.|
00000d50  8a 34 2c 30 29 22 55 70  3d 20 2a 2c 20 20 44 6f  |.4,0)"Up= *,  Do|
00000d60  77 6e 3d 20 3f 20 20 20  4c 65 66 74 3d 20 5a 2c  |wn= ?   Left= Z,|
00000d70  20 52 69 67 68 74 3d 20  58 22 0d 04 ec 05 e1 0d  | Right= X"......|
00000d80  04 f6 0d dd f2 6e 65 77  6c 69 73 74 0d 05 00 11  |.....newlist....|
00000d90  e7 20 4a 25 3d 35 20 e5  20 8d 54 68 45 0d 05 0a  |. J%=5 . .ThE...|
00000da0  13 e3 20 49 25 3d 34 20  b8 20 4a 25 20 88 2d 31  |.. I%=4 . J% .-1|
00000db0  0d 05 14 29 53 25 28 49  25 2b 31 29 3d 53 25 28  |...)S%(I%+1)=S%(|
00000dc0  49 25 29 3a 6c 69 73 74  24 28 49 25 2b 31 29 3d  |I%):list$(I%+1)=|
00000dd0  6c 69 73 74 24 28 49 25  29 0d 05 1e 05 ed 0d 05  |list$(I%).......|
00000de0  28 1e 53 25 28 4a 25 29  3d 6d 69 6e 3a 6c 69 73  |(.S%(J%)=min:lis|
00000df0  74 24 28 4a 25 29 3d 6e  61 6d 65 24 0d 05 32 05  |t$(J%)=name$..2.|
00000e00  e1 0d 05 3c 14 dd f2 62  6f 61 72 64 28 52 25 29  |...<...board(R%)|
00000e10  3a 54 25 3d 30 0d 05 46  19 e3 20 59 25 3d 38 34  |:T%=0..F.. Y%=84|
00000e20  30 20 b8 20 33 36 30 20  88 20 2d 31 36 30 0d 05  |0 . 360 . -160..|
00000e30  50 17 e3 20 58 25 3d 34  30 20 b8 20 35 32 30 20  |P.. X%=40 . 520 |
00000e40  88 20 31 36 30 0d 05 5a  0b ec 20 58 25 2c 59 25  |. 160..Z.. X%,Y%|
00000e50  0d 05 64 22 e7 20 52 25  3d 31 20 43 25 3d 31 2b  |..d". R%=1 C%=1+|
00000e60  28 54 25 20 81 20 38 29  2d 32 2a 28 54 25 3d 31  |(T% . 8)-2*(T%=1|
00000e70  35 29 0d 05 6e 2e e7 20  52 25 3d 32 20 43 25 3d  |5)..n.. R%=2 C%=|
00000e80  31 2b 28 28 54 25 2b 54  25 20 81 20 34 20 83 20  |1+((T%+T% . 4 . |
00000e90  32 29 83 20 32 29 2d 32  2a 28 54 25 3d 31 32 29  |2). 2)-2*(T%=12)|
00000ea0  0d 05 78 10 f2 62 6f 78  28 43 25 2c 31 35 30 29  |..x..box(C%,150)|
00000eb0  0d 05 82 0b 54 25 3d 54  25 2b 31 0d 05 8c 05 ed  |....T%=T%+1.....|
00000ec0  0d 05 96 05 ed 0d 05 a0  05 e1 0d 05 aa 0c dd f2  |................|
00000ed0  70 69 65 63 65 73 0d 05  b4 06 ef 35 0d 05 be 0f  |pieces.....5....|
00000ee0  e3 20 49 25 3d 30 20 b8  20 31 35 0d 05 c8 2f ec  |. I%=0 . 15.../.|
00000ef0  20 28 49 25 20 83 20 34  29 2a 31 36 30 2b 38 30  | (I% . 4)*160+80|
00000f00  2c 39 32 38 2d 28 49 25  20 81 20 34 29 2a 31 36  |,928-(I% . 4)*16|
00000f10  30 3a f1 20 41 24 28 49  25 29 0d 05 d2 05 ed 0d  |0:. A$(I%)......|
00000f20  05 dc 10 ef 34 3a f2 77  61 69 74 28 32 30 29 0d  |....4:.wait(20).|
00000f30  05 e6 05 e1 0d 05 f0 10  dd f2 62 6f 78 28 43 25  |..........box(C%|
00000f40  2c 53 25 29 0d 05 fa 38  e6 20 30 2c 43 25 3a f0  |,S%)...8. 0,C%:.|
00000f50  20 31 2c 53 25 2c 30 3a  f0 20 38 31 2c 30 2c 53  | 1,S%,0:. 81,0,S|
00000f60  25 3a f0 20 31 2c 2d 53  25 2c 30 3a f0 20 38 31  |%:. 1,-S%,0:. 81|
00000f70  2c 30 2c 2d 53 25 3a e6  20 30 2c 33 0d 06 04 05  |,0,-S%:. 0,3....|
00000f80  e1 0d 06 0e 10 dd f2 66  69 6c 6c 70 6f 73 74 65  |.......fillposte|
00000f90  72 0d 06 18 14 4b 25 3d  bb 28 c2 44 24 28 50 25  |r....K%=.(.D$(P%|
00000fa0  29 2c 31 29 29 0d 06 22  17 e3 20 49 25 3d 30 20  |),1))..".. I%=0 |
00000fb0  b8 20 31 34 3a 52 25 3d  49 25 2b 31 0d 06 2c 0c  |. 14:R%=I%+1..,.|
00000fc0  f2 63 6f 6e 76 65 72 74  0d 06 36 05 ed 0d 06 40  |.convert..6....@|
00000fd0  0e 41 24 28 31 35 29 3d  22 20 22 0d 06 4a 05 e1  |.A$(15)=" "..J..|
00000fe0  0d 06 54 0c dd f2 6a 75  6d 62 6c 65 0d 06 5e 1a  |..T...jumble..^.|
00000ff0  e3 20 49 25 3d 30 20 b8  20 31 36 3a 43 25 28 49  |. I%=0 . 16:C%(I|
00001000  25 29 3d 30 3a ed 0d 06  68 14 4b 25 3d bb 28 c2  |%)=0:...h.K%=.(.|
00001010  44 24 28 50 25 29 2c 31  29 29 0d 06 72 1d e3 20  |D$(P%),1))..r.. |
00001020  4c 25 3d 30 20 b8 20 31  34 3a 49 25 3d 4c 25 2d  |L%=0 . 14:I%=L%-|
00001030  28 4c 25 3e 31 31 29 0d  06 7c 23 52 25 3d b3 28  |(L%>11)..|#R%=.(|
00001040  38 29 2b 38 2a 28 49 25  20 81 20 34 20 83 20 32  |8)+8*(I% . 4 . 2|
00001050  20 82 20 49 25 20 83 20  32 29 0d 06 86 1b e7 20  | . I% . 2)..... |
00001060  52 25 3d 31 36 20 84 20  43 25 28 52 25 29 20 e5  |R%=16 . C%(R%) .|
00001070  20 8d 44 7c 46 0d 06 90  16 f2 63 6f 6e 76 65 72  | .D|F.....conver|
00001080  74 3a 43 25 28 52 25 29  3d 2d 31 0d 06 9a 05 ed  |t:C%(R%)=-1.....|
00001090  0d 06 a4 1c 41 24 28 31  32 29 3d 22 20 22 3a 4e  |....A$(12)=" ":N|
000010a0  25 28 31 32 29 3d 52 25  28 31 35 29 0d 06 ae 05  |%(12)=R%(15)....|
000010b0  e1 0d 06 b8 0d dd f2 63  6f 6e 76 65 72 74 0d 06  |.......convert..|
000010c0  c2 51 42 25 3d bb 28 c1  44 24 28 50 25 29 2c 52  |.QB%=.(.D$(P%),R|
000010d0  25 2a 32 2c 31 29 29 3a  41 24 28 49 25 29 3d bd  |%*2,1)):A$(I%)=.|
000010e0  28 35 35 2b bb 28 c1 44  24 28 50 25 29 2c 52 25  |(55+.(.D$(P%),R%|
000010f0  2a 32 2d 31 2c 31 29 29  2a 4b 25 2b 42 25 2a 28  |*2-1,1))*K%+B%*(|
00001100  28 42 25 3c 37 29 2d 28  42 25 3e 37 29 29 29 0d  |(B%<7)-(B%>7))).|
00001110  06 cc 13 4e 25 28 49 25  29 3d 52 25 28 52 25 2d  |...N%(I%)=R%(R%-|
00001120  31 29 0d 06 d6 05 e1 0d  06 e0 0a dd f2 74 65 73  |1)...........tes|
00001130  74 0d 06 ea 17 66 61 69  6c 65 64 3d a3 3a 46 25  |t....failed=.:F%|
00001140  3d 30 3a 54 24 3d 22 22  0d 06 f4 0f e3 20 49 25  |=0:T$=""..... I%|
00001150  3d 30 20 b8 20 31 35 0d  06 fe 2c e7 20 4e 25 28  |=0 . 15...,. N%(|
00001160  49 25 29 3d 52 25 28 49  25 29 20 8c 20 46 25 3d  |I%)=R%(I%) . F%=|
00001170  46 25 2b 31 20 8b 20 54  24 3d 54 24 2b 41 24 28  |F%+1 . T$=T$+A$(|
00001180  49 25 29 0d 07 08 05 ed  0d 07 12 14 e7 20 46 25  |I%).......... F%|
00001190  3c 31 36 20 66 61 69 6c  65 64 3d b9 0d 07 1c 24  |<16 failed=....$|
000011a0  e7 20 46 25 3d 31 34 20  80 20 c0 54 24 2c 31 29  |. F%=14 . .T$,1)|
000011b0  3d c2 54 24 2c 31 29 20  66 61 69 6c 65 64 3d a3  |=.T$,1) failed=.|
000011c0  0d 07 26 19 e7 20 4e 25  28 31 35 29 3c 3e 32 35  |..&.. N%(15)<>25|
000011d0  20 66 61 69 6c 65 64 3d  b9 0d 07 30 19 e7 20 ac  | failed=...0.. .|
000011e0  20 66 61 69 6c 65 64 20  8c 20 73 6f 6c 76 65 64  | failed . solved|
000011f0  3d b9 0d 07 3a 05 e1 0d  07 44 0e dd f2 77 61 69  |=...:....D...wai|
00001200  74 28 57 25 29 0d 07 4e  0a 74 69 6d 65 3d 91 0d  |t(W%)..N.time=..|
00001210  07 58 11 f5 3a fd 20 91  3e 74 69 6d 65 2b 57 25  |.X..:. .>time+W%|
00001220  0d 07 62 05 e1 0d 07 6c  11 f4 20 70 75 7a 7a 6c  |..b....l.. puzzl|
00001230  65 20 64 61 74 61 0d 07  76 25 dc 20 32 32 34 34  |e data..v%. 2244|
00001240  33 37 32 31 32 33 32 37  32 37 34 37 32 32 32 34  |3721232727472224|
00001250  34 35 35 36 33 36 33 37  35 31 37 0d 07 80 25 dc  |45563637517...%.|
00001260  20 39 34 35 32 36 33 34  33 34 33 37 34 35 34 38  | 945263434374548|
00001270  34 36 33 37 34 38 31 34  32 34 31 38 32 36 31 34  |4637481424182614|
00001280  0d 07 8a 25 dc 20 33 32  35 31 35 32 36 31 36 33  |...%. 3251526163|
00001290  33 31 33 35 33 32 36 31  34 33 34 32 36 32 37 31  |3135326143426271|
000012a0  35 31 37 35 35 0d 07 94  25 dc 20 34 37 33 36 34  |51755...%. 47364|
000012b0  34 32 32 32 35 33 37 35  36 34 34 32 33 33 37 33  |4222537564423373|
000012c0  31 34 33 32 34 34 35 35  36 38 0d 07 9e 25 dc 20  |1432445568...%. |
000012d0  35 33 32 32 34 36 34 31  34 32 32 32 34 34 33 34  |5322464142224434|
000012e0  33 32 34 36 35 33 34 33  36 34 33 34 35 31 36 0d  |324653436434516.|
000012f0  07 a8 25 dc 20 34 33 33  31 35 34 36 35 37 33 33  |..%. 43315465733|
00001300  35 36 32 34 33 36 31 34  33 34 32 36 32 33 33 33  |5624361434262333|
00001310  35 36 33 35 0d 07 b2 25  dc 20 32 34 33 37 33 33  |5635...%. 243733|
00001320  32 33 34 34 34 32 33 31  34 34 32 37 33 33 33 37  |2344423144273337|
00001330  34 37 34 35 32 32 32 33  38 0d 07 bc 25 dc 20 34  |474522238...%. 4|
00001340  32 38 31 34 32 36 31 34  34 37 34 39 34 38 34 35  |2814261447494845|
00001350  33 33 32 38 31 34 32 34  31 38 32 36 31 34 0d 07  |33281424182614..|
00001360  c6 25 dc 20 35 33 33 34  32 32 34 33 34 32 34 36  |.%. 533422434246|
00001370  33 36 33 34 33 31 32 32  36 35 33 34 33 33 36 36  |3634312265343366|
00001380  35 33 36 0d 07 d0 3b dc  20 57 49 5a 41 52 44 2c  |536...;. WIZARD,|
00001390  31 30 30 2c 42 52 41 49  4e 53 2c 31 35 30 2c 53  |100,BRAINS,150,S|
000013a0  4d 41 52 54 59 2c 32 30  30 2c 50 45 54 45 2c 32  |MARTY,200,PETE,2|
000013b0  35 30 2c 47 52 41 4e 44  50 41 2c 33 30 30 0d 07  |50,GRANDPA,300..|
000013c0  da 2c dc 20 31 2c 33 2c  35 2c 37 2c 38 2c 36 2c  |.,. 1,3,5,7,8,6,|
000013d0  34 2c 32 2c 39 2c 31 31  2c 31 33 2c 31 35 2c 31  |4,2,9,11,13,15,1|
000013e0  36 2c 31 34 2c 31 32 2c  31 38 0d 0f a0 0f f4 20  |6,14,12,18..... |
000013f0  57 6f 72 64 63 6f 64 65  72 0d 0f aa 2d f4 20 41  |Wordcoder...-. A|
00001400  73 73 65 6d 62 6c 65 20  74 68 65 20 63 6f 64 65  |ssemble the code|
00001410  73 20 66 6f 72 20 61 6c  6c 20 74 68 65 20 61 6c  |s for all the al|
00001420  70 68 61 62 65 74 0d 0f  b4 06 eb 36 0d 0f be 20  |phabet.....6... |
00001430  de 20 41 25 28 32 36 2c  35 29 2c 42 25 28 32 36  |. A%(26,5),B%(26|
00001440  2c 35 29 2c 4b 25 28 32  36 2c 35 29 0d 0f c3 30  |,5),K%(26,5)...0|
00001450  f1 20 8a 31 35 29 22 57  4f 52 44 20 43 4f 44 45  |. .15)"WORD CODE|
00001460  52 22 27 27 22 45 6e 74  65 72 20 79 6f 75 72 20  |R"''"Enter your |
00001470  31 35 20 6c 65 74 74 65  72 73 22 27 0d 0f c8 2f  |15 letters"'.../|
00001480  44 24 3d 22 20 20 20 20  20 20 20 20 20 20 20 20  |D$="            |
00001490  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000014a0  20 20 20 20 22 3a 44 24  3d 22 22 0d 0f d2 0e e3  |    ":D$="".....|
000014b0  20 4c 25 3d 31 20 b8 20  34 0d 0f dc 24 e3 20 53  | L%=1 . 4...$. S|
000014c0  25 3d 31 30 20 b8 20 33  35 3a 5a 24 3d bd 28 53  |%=10 . 35:Z$=.(S|
000014d0  25 2b 35 35 29 3a 4b 25  3d 4c 25 2b 33 0d 0f e6  |%+55):K%=L%+3...|
000014e0  1b 41 25 3d a8 28 53 25  2f 4b 25 29 3a 42 25 3d  |.A%=.(S%/K%):B%=|
000014f0  53 25 2d 41 25 2a 4b 25  0d 0f f0 1b e7 20 42 25  |S%-A%*K%..... B%|
00001500  3c 38 20 41 25 3d 41 25  2b 31 3a 42 25 3d 42 25  |<8 A%=A%+1:B%=B%|
00001510  2d 4b 25 0d 0f fa 1c e7  20 42 25 3c 2d 36 20 41  |-K%..... B%<-6 A|
00001520  25 3d 41 25 2d 31 3a 42  25 3d 42 25 2b 4b 25 0d  |%=A%-1:B%=B%+K%.|
00001530  10 04 19 e7 20 41 25 3e  39 20 4b 25 3d 4b 25 2b  |.... A%>9 K%=K%+|
00001540  31 3a e5 20 8d 64 66 4f  0d 10 0e 19 e7 20 41 25  |1:. .dfO..... A%|
00001550  3c 30 20 4b 25 3d 4b 25  2d 31 3a e5 20 8d 64 66  |<0 K%=K%-1:. .df|
00001560  4f 0d 10 18 30 41 25 28  53 25 2d 39 2c 4c 25 29  |O...0A%(S%-9,L%)|
00001570  3d 41 25 3a 42 25 28 53  25 2d 39 2c 4c 25 29 3d  |=A%:B%(S%-9,L%)=|
00001580  42 25 3a 4b 25 28 53 25  2d 39 2c 4c 25 29 3d 4b  |B%:K%(S%-9,L%)=K|
00001590  25 0d 10 22 05 ed 0d 10  2c 05 ed 0d 10 36 21 f4  |%.."....,....6!.|
000015a0  20 41 73 73 65 6d 62 6c  65 20 63 6f 64 65 20 66  | Assemble code f|
000015b0  6f 72 20 74 68 65 20 77  6f 72 64 73 0d 10 40 0b  |or the words..@.|
000015c0  58 25 3d b3 28 34 29 0d  10 4a 0f e3 20 53 25 3d  |X%=.(4)..J.. S%=|
000015d0  31 20 b8 20 31 35 0d 10  54 38 f1 22 4c 65 74 74  |1 . 15..T8."Lett|
000015e0  65 72 20 22 3b 53 25 3b  22 20 3f 22 3b 3a e8 20  |er ";S%;" ?";:. |
000015f0  22 20 22 41 24 3a 49 25  3d 97 28 41 24 29 2d 36  |" "A$:I%=.(A$)-6|
00001600  34 2b 33 32 2a 28 41 24  3e 3d 22 61 22 29 0d 10  |4+32*(A$>="a")..|
00001610  5e 16 44 24 3d 44 24 2b  c3 28 41 25 28 49 25 2c  |^.D$=D$+.(A%(I%,|
00001620  58 25 29 29 0d 10 68 33  e7 20 42 25 28 49 25 2c  |X%))..h3. B%(I%,|
00001630  58 25 29 3c 30 20 44 24  3d 44 24 2b c3 28 2d 31  |X%)<0 D$=D$+.(-1|
00001640  2a 42 25 28 49 25 2c 58  25 29 29 20 8b 20 44 24  |*B%(I%,X%)) . D$|
00001650  3d 44 24 2b 22 37 22 0d  10 72 05 ed 0d 10 7c 18  |=D$+"7"..r....|.|
00001660  44 24 3d 44 24 2b c3 28  58 25 2b 33 29 3a f1 20  |D$=D$+.(X%+3):. |
00001670  27 44 24 27 0d ff                                 |'D$'..|
00001676