�"�**********************
�"�*�WORDBOX DATA MAKER�*
�"�**********************
(�7:�off:�enquire
2� � �wordbox:�
<�1
F	�init
P�screen
Z�ask
d	�save
n
�again
x�wordbox
��7:�
�&��screen:�off:�19,1,4,0,0,0:�129:�
�.�double("WORDBOX DATA MAKER",1,39,3,129):�
�&��block:�28,5,13,34,10:�130:�:�0:�
���init:� help$(9),a$(9,3):�
�)��double(text$,down%,wide%,col1,col2)
��26:�col1:�col2
� across%=(wide%�2)-�(text$)�2
�A%=&A:X%=0:Y%=&9:D=&900
�� letter%=1 � �(text$)
�(B$=�text$,letter%,1):?D=�(B$):�&FFF1
�R�23,243,D?1,D?1,D?2,D?2,D?3,D?3,D?4,D?4,23,244,D?5,D?5,D?6,D?6,D?7,D?7,D?8,D?8
�=�across%+letter%,down%)�243�across%+letter%,down%+1)�244

�:�

��off:�23;11,0;0;0;0:�

��on:�23;11,255;0;0;0:�

"	��ask

,6�double("Number of rounds 1-9 ?",5,39,2,129):*FX21

6X�block:�:round=�-48:� round>0 �round <10:�round=1 round$=" round" � round$=" rounds"

@&�double(�round+round$,11,39,0,130)

J �check:�ans$="N" �wipe:�TvA

Tr�screen:�loop=0�round-1:�double("Round number "+�(loop+1)+" of "+�round,4,39,2,129):�28,11,27,28,18:�128:�:�26

^�il=1�4

h@�double("Please enter line No "+�il+" or return",7,39,2,129)

r�

|�block:flag=�:*FX21

�f�'�8)a$(loop,il-1):� �a$(loop,il-1)>14 �7:�double("TOO LONG !!",15,39,2,128):C=�(200):�wipe:�D|A

�;�a$(loop,il-1)="" �10,1)"BLANK LINE":a$(loop,il-1)=" "

� �check:�ans$="N" �wipe:�D|A

�%�checkline(a$(loop,il-1)):� �flag

�1�double(a$(loop,il-1),17+2*il,39,3,128):�wipe

��

�D�0,7)�80," "):�double("Please enter clue or return",7,39,3,129)

�l�block:�'�8)help$(loop):� �help$(loop)>16 �26,7:�double("TOO LONG !!",15,39,2,128):C=�(200):�wipe:�dLA

�:�help$(loop)="" �12,1)"NO CLUE":help$(loop)="No help"

� �check:�ans$="N" �wipe:�dLA

�:�wipe:�double(help$(loop),29,39,0,129):�block:C=�(200)

�*�26:�129:�0,7)�80," ")�0,29)�78," ");

��:�
��check
2�double("IS THIS CORRECT ?",15,39,2,128):*FX21
+�:ans$=�(� � &DF):� ans$="Y" � ans$="N"
&�
0!��wipe:�129:�0,15)�80," "):�
:
��save
D:�screen:�double("Enter name for data file",7,39,3,129)
N_�block:�'�11)name$:� �name$>7 �7,26:�double("TOO LONG !!",15,39,2,128):C=�(200):�wipe:�DNB
X�check:�ans$="N" � �DNB
b5�wipe:�block:�double("Saving "+name$,11,39,0,130)
lmax=round-1
v
F=� name$
�� #F,max
�
�z=0� max
��x=0�3:� #F,a$(z,x):�
�� #F,help$(z)
��
�� #F
�7�block:�double(name$+" saved",11,39,1,130):D=�(200)
��
���again
�F�screen:�block:�double("Any more data to enter Y/N ?",11,39,0,130)
�+�:ans$=�(� � &DF):� ans$="Y" � ans$="N"
�� ans$="Y" � � � �
���checkline(Z$)
�i=1� �(Z$)
ltr$=�Z$,i,1):ltr%=�(ltr$)
�� (ltr%<65 � ltr%>90) � (ltr%<96 � ltr%>122) � ltr%<>32 � �7:�wipe:�double("Only letters allowed",15,39,2,128):C=�(200):�wipe:flag=�:i=�Z$
 �
*�
4
��wordbox
>>�block:�double("Do you wish to run WORDBOX ?",11,39,0,130)
H+�:ans$=�(� � &DF):� ans$="Y" � ans$="N"
R� ans$="Y" � �"WORDBOX"
\�
f��dbl(text$,down,colr)
p�loop=down � down+1
z-�16-(�text$)/2,loop)�141�(128+colr)text$
��
��
�
��enquire
�$�dbl("Instructions (Y/N) ?",6,5)
�+� ans$=�(� � &DF):� ans$="Y" � ans$="N"
�� ans$="N" �
��header
��print(6,7,3)
��print(10,12,6)
��print(15,19,1)
��wait:�header
��print(6,8,5)
�#�print(10,12,2):�print(14,15,4)
!�print(17,18,3):�wait:�header
!�print(6,8,6):�print(10,13,2)
�print(15,17,1)
$	�wait
.�
8.�"This program will make it easy to write"
B+�"your own data files for the wordbox."
L)�"First you must enter the number of"
V)�"rounds i.e. number of answers. The"
`�"maximum is 9."
j.�"Each input will be checked and you will"
t-�"be asked to validate every entry. When"
~*�"asked�PLEASE CHECK ALL INPUT�as any"
�-�"error found after this stage will mean"
�#�"re-entering ALL of the data."
�+�"Each line of each answer must now be"
�)�"entered. Only upper and lower case"
�.�"letters are allowed, along with spaces."
�)�"The maximum line length, including"
�)�"spaces, is 14 characters and up to"
�!�"four rows are catered for."
�-�"To enter a blank row just press return"
��"when offered."
�,�"After validation, any input will then"
�(�"be displayed in the lower window."
,�"When four rows have been accepted the"

*�"lower window will show�EXACTLY�what"
"�"will appear in the wordbox."
.�"You will then be asked to supply a clue"
(.�"and characters are not limited for this"
2+�"input. If you do not wish to offer a"
<�"clue just press return."
F-�"This will be repeated for each answer."
P.�"The final input will be a file name for"
Z+�"your data, which will then be saved."
d
��wait
n	*FX21
x'�9,24)�136"Any key when ready";:�
��
��
���header
��:�l=2�3
�:�10,l)�157�151�12,l)�141�130"Instructions."�30,l)�156
��
��
���print(low,high,colr)
�� row=low � high
�� data$
��0,row)�(128+colr)data$
��
��
�

00000000  0d 00 0a 1d f4 22 83 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.....".*********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 00 14  |*************...|
00000020  1d f4 22 83 2a 81 57 4f  52 44 42 4f 58 20 44 41  |..".*.WORDBOX DA|
00000030  54 41 20 4d 41 4b 45 52  83 2a 0d 00 1e 1d f4 22  |TA MAKER.*....."|
00000040  83 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.***************|
00000050  2a 2a 2a 2a 2a 2a 2a 0d  00 28 14 eb 37 3a f2 6f  |*******..(..7:.o|
00000060  66 66 3a f2 65 6e 71 75  69 72 65 0d 00 32 12 ee  |ff:.enquire..2..|
00000070  20 85 20 f2 77 6f 72 64  62 6f 78 3a e0 0d 00 3c  | . .wordbox:...<|
00000080  06 eb 31 0d 00 46 09 f2  69 6e 69 74 0d 00 50 0b  |..1..F..init..P.|
00000090  f2 73 63 72 65 65 6e 0d  00 5a 08 f2 61 73 6b 0d  |.screen..Z..ask.|
000000a0  00 64 09 f2 73 61 76 65  0d 00 6e 0a f2 61 67 61  |.d..save..n..aga|
000000b0  69 6e 0d 00 78 0c f2 77  6f 72 64 62 6f 78 0d 00  |in..x..wordbox..|
000000c0  82 08 eb 37 3a e0 0d 00  8c 26 dd f2 73 63 72 65  |...7:....&..scre|
000000d0  65 6e 3a f2 6f 66 66 3a  ef 31 39 2c 31 2c 34 2c  |en:.off:.19,1,4,|
000000e0  30 2c 30 2c 30 3a fb 31  32 39 3a db 0d 00 96 2e  |0,0,0:.129:.....|
000000f0  f2 64 6f 75 62 6c 65 28  22 57 4f 52 44 42 4f 58  |.double("WORDBOX|
00000100  20 44 41 54 41 20 4d 41  4b 45 52 22 2c 31 2c 33  | DATA MAKER",1,3|
00000110  39 2c 33 2c 31 32 39 29  3a e1 0d 00 a0 26 dd f2  |9,3,129):....&..|
00000120  62 6c 6f 63 6b 3a ef 32  38 2c 35 2c 31 33 2c 33  |block:.28,5,13,3|
00000130  34 2c 31 30 3a fb 31 33  30 3a db 3a fb 30 3a e1  |4,10:.130:.:.0:.|
00000140  0d 00 aa 1f dd f2 69 6e  69 74 3a de 20 68 65 6c  |......init:. hel|
00000150  70 24 28 39 29 2c 61 24  28 39 2c 33 29 3a e1 0d  |p$(9),a$(9,3):..|
00000160  00 b4 29 dd f2 64 6f 75  62 6c 65 28 74 65 78 74  |..)..double(text|
00000170  24 2c 64 6f 77 6e 25 2c  77 69 64 65 25 2c 63 6f  |$,down%,wide%,co|
00000180  6c 31 2c 63 6f 6c 32 29  0d 00 be 13 ef 32 36 3a  |l1,col2).....26:|
00000190  fb 63 6f 6c 31 3a fb 63  6f 6c 32 0d 00 c8 20 61  |.col1:.col2... a|
000001a0  63 72 6f 73 73 25 3d 28  77 69 64 65 25 81 32 29  |cross%=(wide%.2)|
000001b0  2d a9 28 74 65 78 74 24  29 81 32 0d 00 d2 1b 41  |-.(text$).2....A|
000001c0  25 3d 26 41 3a 58 25 3d  30 3a 59 25 3d 26 39 3a  |%=&A:X%=0:Y%=&9:|
000001d0  44 3d 26 39 30 30 0d 00  dc 1a e3 20 6c 65 74 74  |D=&900..... lett|
000001e0  65 72 25 3d 31 20 b8 20  a9 28 74 65 78 74 24 29  |er%=1 . .(text$)|
000001f0  0d 00 e6 28 42 24 3d c1  74 65 78 74 24 2c 6c 65  |...(B$=.text$,le|
00000200  74 74 65 72 25 2c 31 29  3a 3f 44 3d 97 28 42 24  |tter%,1):?D=.(B$|
00000210  29 3a d6 26 46 46 46 31  0d 00 f0 52 ef 32 33 2c  |):.&FFF1...R.23,|
00000220  32 34 33 2c 44 3f 31 2c  44 3f 31 2c 44 3f 32 2c  |243,D?1,D?1,D?2,|
00000230  44 3f 32 2c 44 3f 33 2c  44 3f 33 2c 44 3f 34 2c  |D?2,D?3,D?3,D?4,|
00000240  44 3f 34 2c 32 33 2c 32  34 34 2c 44 3f 35 2c 44  |D?4,23,244,D?5,D|
00000250  3f 35 2c 44 3f 36 2c 44  3f 36 2c 44 3f 37 2c 44  |?5,D?6,D?6,D?7,D|
00000260  3f 37 2c 44 3f 38 2c 44  3f 38 0d 00 fa 3d f1 8a  |?7,D?8,D?8...=..|
00000270  61 63 72 6f 73 73 25 2b  6c 65 74 74 65 72 25 2c  |across%+letter%,|
00000280  64 6f 77 6e 25 29 bd 32  34 33 8a 61 63 72 6f 73  |down%).243.acros|
00000290  73 25 2b 6c 65 74 74 65  72 25 2c 64 6f 77 6e 25  |s%+letter%,down%|
000002a0  2b 31 29 bd 32 34 34 0d  01 04 07 ed 3a e1 0d 01  |+1).244.....:...|
000002b0  0e 1a dd f2 6f 66 66 3a  ef 32 33 3b 31 31 2c 30  |....off:.23;11,0|
000002c0  3b 30 3b 30 3b 30 3a e1  0d 01 18 1b dd f2 6f 6e  |;0;0;0:.......on|
000002d0  3a ef 32 33 3b 31 31 2c  32 35 35 3b 30 3b 30 3b  |:.23;11,255;0;0;|
000002e0  30 3a e1 0d 01 22 09 dd  f2 61 73 6b 0d 01 2c 36  |0:..."...ask..,6|
000002f0  f2 64 6f 75 62 6c 65 28  22 4e 75 6d 62 65 72 20  |.double("Number |
00000300  6f 66 20 72 6f 75 6e 64  73 20 31 2d 39 20 3f 22  |of rounds 1-9 ?"|
00000310  2c 35 2c 33 39 2c 32 2c  31 32 39 29 3a 2a 46 58  |,5,39,2,129):*FX|
00000320  32 31 0d 01 36 58 f2 62  6c 6f 63 6b 3a f5 3a 72  |21..6X.block:.:r|
00000330  6f 75 6e 64 3d a5 2d 34  38 3a fd 20 72 6f 75 6e  |ound=.-48:. roun|
00000340  64 3e 30 20 80 72 6f 75  6e 64 20 3c 31 30 3a e7  |d>0 .round <10:.|
00000350  72 6f 75 6e 64 3d 31 20  72 6f 75 6e 64 24 3d 22  |round=1 round$="|
00000360  20 72 6f 75 6e 64 22 20  8b 20 72 6f 75 6e 64 24  | round" . round$|
00000370  3d 22 20 72 6f 75 6e 64  73 22 0d 01 40 26 f2 64  |=" rounds"..@&.d|
00000380  6f 75 62 6c 65 28 c3 72  6f 75 6e 64 2b 72 6f 75  |ouble(.round+rou|
00000390  6e 64 24 2c 31 31 2c 33  39 2c 30 2c 31 33 30 29  |nd$,11,39,0,130)|
000003a0  0d 01 4a 20 f2 63 68 65  63 6b 3a e7 61 6e 73 24  |..J .check:.ans$|
000003b0  3d 22 4e 22 20 f2 77 69  70 65 3a e5 8d 54 76 41  |="N" .wipe:..TvA|
000003c0  0d 01 54 72 f2 73 63 72  65 65 6e 3a e3 6c 6f 6f  |..Tr.screen:.loo|
000003d0  70 3d 30 b8 72 6f 75 6e  64 2d 31 3a f2 64 6f 75  |p=0.round-1:.dou|
000003e0  62 6c 65 28 22 52 6f 75  6e 64 20 6e 75 6d 62 65  |ble("Round numbe|
000003f0  72 20 22 2b c3 28 6c 6f  6f 70 2b 31 29 2b 22 20  |r "+.(loop+1)+" |
00000400  6f 66 20 22 2b c3 72 6f  75 6e 64 2c 34 2c 33 39  |of "+.round,4,39|
00000410  2c 32 2c 31 32 39 29 3a  ef 32 38 2c 31 31 2c 32  |,2,129):.28,11,2|
00000420  37 2c 32 38 2c 31 38 3a  fb 31 32 38 3a db 3a ef  |7,28,18:.128:.:.|
00000430  32 36 0d 01 5e 0b e3 69  6c 3d 31 b8 34 0d 01 68  |26..^..il=1.4..h|
00000440  40 f2 64 6f 75 62 6c 65  28 22 50 6c 65 61 73 65  |@.double("Please|
00000450  20 65 6e 74 65 72 20 6c  69 6e 65 20 4e 6f 20 22  | enter line No "|
00000460  2b c3 69 6c 2b 22 20 6f  72 20 72 65 74 75 72 6e  |+.il+" or return|
00000470  22 2c 37 2c 33 39 2c 32  2c 31 32 39 29 0d 01 72  |",7,39,2,129)..r|
00000480  05 f5 0d 01 7c 17 f2 62  6c 6f 63 6b 3a 66 6c 61  |....|..block:fla|
00000490  67 3d a3 3a 2a 46 58 32  31 0d 01 86 66 e8 86 27  |g=.:*FX21...f..'|
000004a0  8a 38 29 61 24 28 6c 6f  6f 70 2c 69 6c 2d 31 29  |.8)a$(loop,il-1)|
000004b0  3a e7 20 a9 61 24 28 6c  6f 6f 70 2c 69 6c 2d 31  |:. .a$(loop,il-1|
000004c0  29 3e 31 34 20 ef 37 3a  f2 64 6f 75 62 6c 65 28  |)>14 .7:.double(|
000004d0  22 54 4f 4f 20 4c 4f 4e  47 20 21 21 22 2c 31 35  |"TOO LONG !!",15|
000004e0  2c 33 39 2c 32 2c 31 32  38 29 3a 43 3d a6 28 32  |,39,2,128):C=.(2|
000004f0  30 30 29 3a f2 77 69 70  65 3a e5 8d 44 7c 41 0d  |00):.wipe:..D|A.|
00000500  01 90 3b e7 61 24 28 6c  6f 6f 70 2c 69 6c 2d 31  |..;.a$(loop,il-1|
00000510  29 3d 22 22 20 f1 8a 31  30 2c 31 29 22 42 4c 41  |)="" ..10,1)"BLA|
00000520  4e 4b 20 4c 49 4e 45 22  3a 61 24 28 6c 6f 6f 70  |NK LINE":a$(loop|
00000530  2c 69 6c 2d 31 29 3d 22  20 22 0d 01 9a 20 f2 63  |,il-1)=" "... .c|
00000540  68 65 63 6b 3a e7 61 6e  73 24 3d 22 4e 22 20 f2  |heck:.ans$="N" .|
00000550  77 69 70 65 3a e5 8d 44  7c 41 0d 01 a4 25 f2 63  |wipe:..D|A...%.c|
00000560  68 65 63 6b 6c 69 6e 65  28 61 24 28 6c 6f 6f 70  |heckline(a$(loop|
00000570  2c 69 6c 2d 31 29 29 3a  fd 20 ac 66 6c 61 67 0d  |,il-1)):. .flag.|
00000580  01 ae 31 f2 64 6f 75 62  6c 65 28 61 24 28 6c 6f  |..1.double(a$(lo|
00000590  6f 70 2c 69 6c 2d 31 29  2c 31 37 2b 32 2a 69 6c  |op,il-1),17+2*il|
000005a0  2c 33 39 2c 33 2c 31 32  38 29 3a f2 77 69 70 65  |,39,3,128):.wipe|
000005b0  0d 01 b8 05 ed 0d 01 c2  44 f1 8a 30 2c 37 29 c4  |........D..0,7).|
000005c0  38 30 2c 22 20 22 29 3a  f2 64 6f 75 62 6c 65 28  |80," "):.double(|
000005d0  22 50 6c 65 61 73 65 20  65 6e 74 65 72 20 63 6c  |"Please enter cl|
000005e0  75 65 20 6f 72 20 72 65  74 75 72 6e 22 2c 37 2c  |ue or return",7,|
000005f0  33 39 2c 33 2c 31 32 39  29 0d 01 cc 6c f2 62 6c  |39,3,129)...l.bl|
00000600  6f 63 6b 3a e8 86 27 8a  38 29 68 65 6c 70 24 28  |ock:..'.8)help$(|
00000610  6c 6f 6f 70 29 3a e7 20  a9 68 65 6c 70 24 28 6c  |loop):. .help$(l|
00000620  6f 6f 70 29 3e 31 36 20  ef 32 36 2c 37 3a f2 64  |oop)>16 .26,7:.d|
00000630  6f 75 62 6c 65 28 22 54  4f 4f 20 4c 4f 4e 47 20  |ouble("TOO LONG |
00000640  21 21 22 2c 31 35 2c 33  39 2c 32 2c 31 32 38 29  |!!",15,39,2,128)|
00000650  3a 43 3d a6 28 32 30 30  29 3a f2 77 69 70 65 3a  |:C=.(200):.wipe:|
00000660  e5 8d 64 4c 41 0d 01 d6  3a e7 68 65 6c 70 24 28  |..dLA...:.help$(|
00000670  6c 6f 6f 70 29 3d 22 22  20 f1 8a 31 32 2c 31 29  |loop)="" ..12,1)|
00000680  22 4e 4f 20 43 4c 55 45  22 3a 68 65 6c 70 24 28  |"NO CLUE":help$(|
00000690  6c 6f 6f 70 29 3d 22 4e  6f 20 68 65 6c 70 22 0d  |loop)="No help".|
000006a0  01 e0 20 f2 63 68 65 63  6b 3a e7 61 6e 73 24 3d  |.. .check:.ans$=|
000006b0  22 4e 22 20 f2 77 69 70  65 3a e5 8d 64 4c 41 0d  |"N" .wipe:..dLA.|
000006c0  01 ea 3a f2 77 69 70 65  3a f2 64 6f 75 62 6c 65  |..:.wipe:.double|
000006d0  28 68 65 6c 70 24 28 6c  6f 6f 70 29 2c 32 39 2c  |(help$(loop),29,|
000006e0  33 39 2c 30 2c 31 32 39  29 3a f2 62 6c 6f 63 6b  |39,0,129):.block|
000006f0  3a 43 3d a6 28 32 30 30  29 0d 01 f4 2a ef 32 36  |:C=.(200)...*.26|
00000700  3a fb 31 32 39 3a f1 8a  30 2c 37 29 c4 38 30 2c  |:.129:..0,7).80,|
00000710  22 20 22 29 8a 30 2c 32  39 29 c4 37 38 2c 22 20  |" ").0,29).78," |
00000720  22 29 3b 0d 01 fe 07 ed  3a e1 0d 02 08 0b dd f2  |");.....:.......|
00000730  63 68 65 63 6b 0d 02 12  32 f2 64 6f 75 62 6c 65  |check...2.double|
00000740  28 22 49 53 20 54 48 49  53 20 43 4f 52 52 45 43  |("IS THIS CORREC|
00000750  54 20 3f 22 2c 31 35 2c  33 39 2c 32 2c 31 32 38  |T ?",15,39,2,128|
00000760  29 3a 2a 46 58 32 31 0d  02 1c 2b f5 3a 61 6e 73  |):*FX21...+.:ans|
00000770  24 3d bd 28 a5 20 80 20  26 44 46 29 3a fd 20 61  |$=.(. . &DF):. a|
00000780  6e 73 24 3d 22 59 22 20  84 20 61 6e 73 24 3d 22  |ns$="Y" . ans$="|
00000790  4e 22 0d 02 26 05 e1 0d  02 30 21 dd f2 77 69 70  |N"..&....0!..wip|
000007a0  65 3a fb 31 32 39 3a f1  8a 30 2c 31 35 29 c4 38  |e:.129:..0,15).8|
000007b0  30 2c 22 20 22 29 3a e1  0d 02 3a 0a dd f2 73 61  |0," "):...:...sa|
000007c0  76 65 0d 02 44 3a f2 73  63 72 65 65 6e 3a f2 64  |ve..D:.screen:.d|
000007d0  6f 75 62 6c 65 28 22 45  6e 74 65 72 20 6e 61 6d  |ouble("Enter nam|
000007e0  65 20 66 6f 72 20 64 61  74 61 20 66 69 6c 65 22  |e for data file"|
000007f0  2c 37 2c 33 39 2c 33 2c  31 32 39 29 0d 02 4e 5f  |,7,39,3,129)..N_|
00000800  f2 62 6c 6f 63 6b 3a e8  27 8a 31 31 29 6e 61 6d  |.block:.'.11)nam|
00000810  65 24 3a e7 20 a9 6e 61  6d 65 24 3e 37 20 ef 37  |e$:. .name$>7 .7|
00000820  2c 32 36 3a f2 64 6f 75  62 6c 65 28 22 54 4f 4f  |,26:.double("TOO|
00000830  20 4c 4f 4e 47 20 21 21  22 2c 31 35 2c 33 39 2c  | LONG !!",15,39,|
00000840  32 2c 31 32 38 29 3a 43  3d a6 28 32 30 30 29 3a  |2,128):C=.(200):|
00000850  f2 77 69 70 65 3a e5 8d  44 4e 42 0d 02 58 1b f2  |.wipe:..DNB..X..|
00000860  63 68 65 63 6b 3a e7 61  6e 73 24 3d 22 4e 22 20  |check:.ans$="N" |
00000870  8c 20 8d 44 4e 42 0d 02  62 35 f2 77 69 70 65 3a  |. .DNB..b5.wipe:|
00000880  f2 62 6c 6f 63 6b 3a f2  64 6f 75 62 6c 65 28 22  |.block:.double("|
00000890  53 61 76 69 6e 67 20 22  2b 6e 61 6d 65 24 2c 31  |Saving "+name$,1|
000008a0  31 2c 33 39 2c 30 2c 31  33 30 29 0d 02 6c 0f 6d  |1,39,0,130)..l.m|
000008b0  61 78 3d 72 6f 75 6e 64  2d 31 0d 02 76 0d 46 3d  |ax=round-1..v.F=|
000008c0  ae 20 6e 61 6d 65 24 0d  02 80 0c f1 20 23 46 2c  |. name$..... #F,|
000008d0  6d 61 78 0d 02 8a 0d e3  7a 3d 30 b8 20 6d 61 78  |max.....z=0. max|
000008e0  0d 02 94 19 e3 78 3d 30  b8 33 3a f1 20 23 46 2c  |.....x=0.3:. #F,|
000008f0  61 24 28 7a 2c 78 29 3a  ed 0d 02 9e 11 f1 20 23  |a$(z,x):...... #|
00000900  46 2c 68 65 6c 70 24 28  7a 29 0d 02 a8 05 ed 0d  |F,help$(z)......|
00000910  02 b2 08 d9 20 23 46 0d  02 bc 37 f2 62 6c 6f 63  |.... #F...7.bloc|
00000920  6b 3a f2 64 6f 75 62 6c  65 28 6e 61 6d 65 24 2b  |k:.double(name$+|
00000930  22 20 73 61 76 65 64 22  2c 31 31 2c 33 39 2c 31  |" saved",11,39,1|
00000940  2c 31 33 30 29 3a 44 3d  a6 28 32 30 30 29 0d 02  |,130):D=.(200)..|
00000950  c6 05 e1 0d 02 d0 0b dd  f2 61 67 61 69 6e 0d 02  |.........again..|
00000960  da 46 f2 73 63 72 65 65  6e 3a f2 62 6c 6f 63 6b  |.F.screen:.block|
00000970  3a f2 64 6f 75 62 6c 65  28 22 41 6e 79 20 6d 6f  |:.double("Any mo|
00000980  72 65 20 64 61 74 61 20  74 6f 20 65 6e 74 65 72  |re data to enter|
00000990  20 59 2f 4e 20 3f 22 2c  31 31 2c 33 39 2c 30 2c  | Y/N ?",11,39,0,|
000009a0  31 33 30 29 0d 02 e4 2b  f5 3a 61 6e 73 24 3d bd  |130)...+.:ans$=.|
000009b0  28 a5 20 80 20 26 44 46  29 3a fd 20 61 6e 73 24  |(. . &DF):. ans$|
000009c0  3d 22 59 22 20 84 20 61  6e 73 24 3d 22 4e 22 0d  |="Y" . ans$="N".|
000009d0  02 ee 16 e7 20 61 6e 73  24 3d 22 59 22 20 8c 20  |.... ans$="Y" . |
000009e0  f9 20 8b 20 e1 0d 02 f8  13 dd f2 63 68 65 63 6b  |. . .......check|
000009f0  6c 69 6e 65 28 5a 24 29  0d 03 02 0f e3 69 3d 31  |line(Z$).....i=1|
00000a00  b8 20 a9 28 5a 24 29 0d  03 0c 1e 6c 74 72 24 3d  |. .(Z$)....ltr$=|
00000a10  c1 5a 24 2c 69 2c 31 29  3a 6c 74 72 25 3d 97 28  |.Z$,i,1):ltr%=.(|
00000a20  6c 74 72 24 29 0d 03 16  8e e7 20 28 6c 74 72 25  |ltr$)..... (ltr%|
00000a30  3c 36 35 20 84 20 6c 74  72 25 3e 39 30 29 20 80  |<65 . ltr%>90) .|
00000a40  20 28 6c 74 72 25 3c 39  36 20 84 20 6c 74 72 25  | (ltr%<96 . ltr%|
00000a50  3e 31 32 32 29 20 80 20  6c 74 72 25 3c 3e 33 32  |>122) . ltr%<>32|
00000a60  20 8c 20 ef 37 3a f2 77  69 70 65 3a f2 64 6f 75  | . .7:.wipe:.dou|
00000a70  62 6c 65 28 22 4f 6e 6c  79 20 6c 65 74 74 65 72  |ble("Only letter|
00000a80  73 20 61 6c 6c 6f 77 65  64 22 2c 31 35 2c 33 39  |s allowed",15,39|
00000a90  2c 32 2c 31 32 38 29 3a  43 3d a6 28 32 30 30 29  |,2,128):C=.(200)|
00000aa0  3a f2 77 69 70 65 3a 66  6c 61 67 3d b9 3a 69 3d  |:.wipe:flag=.:i=|
00000ab0  a9 5a 24 0d 03 20 05 ed  0d 03 2a 05 e1 0d 03 34  |.Z$.. ....*....4|
00000ac0  0d dd f2 77 6f 72 64 62  6f 78 0d 03 3e 3e f2 62  |...wordbox..>>.b|
00000ad0  6c 6f 63 6b 3a f2 64 6f  75 62 6c 65 28 22 44 6f  |lock:.double("Do|
00000ae0  20 79 6f 75 20 77 69 73  68 20 74 6f 20 72 75 6e  | you wish to run|
00000af0  20 57 4f 52 44 42 4f 58  20 3f 22 2c 31 31 2c 33  | WORDBOX ?",11,3|
00000b00  39 2c 30 2c 31 33 30 29  0d 03 48 2b f5 3a 61 6e  |9,0,130)..H+.:an|
00000b10  73 24 3d bd 28 a5 20 80  20 26 44 46 29 3a fd 20  |s$=.(. . &DF):. |
00000b20  61 6e 73 24 3d 22 59 22  20 84 20 61 6e 73 24 3d  |ans$="Y" . ans$=|
00000b30  22 4e 22 0d 03 52 1b e7  20 61 6e 73 24 3d 22 59  |"N"..R.. ans$="Y|
00000b40  22 20 8c 20 d7 22 57 4f  52 44 42 4f 58 22 0d 03  |" . ."WORDBOX"..|
00000b50  5c 05 e1 0d 03 66 1a dd  f2 64 62 6c 28 74 65 78  |\....f...dbl(tex|
00000b60  74 24 2c 64 6f 77 6e 2c  63 6f 6c 72 29 0d 03 70  |t$,down,colr)..p|
00000b70  17 e3 6c 6f 6f 70 3d 64  6f 77 6e 20 b8 20 64 6f  |..loop=down . do|
00000b80  77 6e 2b 31 0d 03 7a 2d  f1 8a 31 36 2d 28 a9 74  |wn+1..z-..16-(.t|
00000b90  65 78 74 24 29 2f 32 2c  6c 6f 6f 70 29 bd 31 34  |ext$)/2,loop).14|
00000ba0  31 bd 28 31 32 38 2b 63  6f 6c 72 29 74 65 78 74  |1.(128+colr)text|
00000bb0  24 0d 03 84 05 ed 0d 03  8e 05 e1 0d 03 98 0d dd  |$...............|
00000bc0  f2 65 6e 71 75 69 72 65  0d 03 a2 24 f2 64 62 6c  |.enquire...$.dbl|
00000bd0  28 22 49 6e 73 74 72 75  63 74 69 6f 6e 73 20 28  |("Instructions (|
00000be0  59 2f 4e 29 20 3f 22 2c  36 2c 35 29 0d 03 ac 2b  |Y/N) ?",6,5)...+|
00000bf0  f5 20 61 6e 73 24 3d bd  28 a5 20 80 20 26 44 46  |. ans$=.(. . &DF|
00000c00  29 3a fd 20 61 6e 73 24  3d 22 59 22 20 84 20 61  |):. ans$="Y" . a|
00000c10  6e 73 24 3d 22 4e 22 0d  03 b6 10 e7 20 61 6e 73  |ns$="N"..... ans|
00000c20  24 3d 22 4e 22 20 e1 0d  03 c0 0b f2 68 65 61 64  |$="N" ......head|
00000c30  65 72 0d 03 ca 11 f2 70  72 69 6e 74 28 36 2c 37  |er.....print(6,7|
00000c40  2c 33 29 0d 03 d4 13 f2  70 72 69 6e 74 28 31 30  |,3).....print(10|
00000c50  2c 31 32 2c 36 29 0d 03  de 13 f2 70 72 69 6e 74  |,12,6).....print|
00000c60  28 31 35 2c 31 39 2c 31  29 0d 03 e8 11 f2 77 61  |(15,19,1).....wa|
00000c70  69 74 3a f2 68 65 61 64  65 72 0d 03 f2 11 f2 70  |it:.header.....p|
00000c80  72 69 6e 74 28 36 2c 38  2c 35 29 0d 03 fc 23 f2  |rint(6,8,5)...#.|
00000c90  70 72 69 6e 74 28 31 30  2c 31 32 2c 32 29 3a f2  |print(10,12,2):.|
00000ca0  70 72 69 6e 74 28 31 34  2c 31 35 2c 34 29 0d 04  |print(14,15,4)..|
00000cb0  06 21 f2 70 72 69 6e 74  28 31 37 2c 31 38 2c 33  |.!.print(17,18,3|
00000cc0  29 3a f2 77 61 69 74 3a  f2 68 65 61 64 65 72 0d  |):.wait:.header.|
00000cd0  04 10 21 f2 70 72 69 6e  74 28 36 2c 38 2c 36 29  |..!.print(6,8,6)|
00000ce0  3a f2 70 72 69 6e 74 28  31 30 2c 31 33 2c 32 29  |:.print(10,13,2)|
00000cf0  0d 04 1a 13 f2 70 72 69  6e 74 28 31 35 2c 31 37  |.....print(15,17|
00000d00  2c 31 29 0d 04 24 09 f2  77 61 69 74 0d 04 2e 05  |,1)..$..wait....|
00000d10  e1 0d 04 38 2e dc 22 54  68 69 73 20 70 72 6f 67  |...8.."This prog|
00000d20  72 61 6d 20 77 69 6c 6c  20 6d 61 6b 65 20 69 74  |ram will make it|
00000d30  20 65 61 73 79 20 74 6f  20 77 72 69 74 65 22 0d  | easy to write".|
00000d40  04 42 2b dc 22 79 6f 75  72 20 6f 77 6e 20 64 61  |.B+."your own da|
00000d50  74 61 20 66 69 6c 65 73  20 66 6f 72 20 74 68 65  |ta files for the|
00000d60  20 77 6f 72 64 62 6f 78  2e 22 0d 04 4c 29 dc 22  | wordbox."..L)."|
00000d70  46 69 72 73 74 20 79 6f  75 20 6d 75 73 74 20 65  |First you must e|
00000d80  6e 74 65 72 20 74 68 65  20 6e 75 6d 62 65 72 20  |nter the number |
00000d90  6f 66 22 0d 04 56 29 dc  22 72 6f 75 6e 64 73 20  |of"..V)."rounds |
00000da0  69 2e 65 2e 20 6e 75 6d  62 65 72 20 6f 66 20 61  |i.e. number of a|
00000db0  6e 73 77 65 72 73 2e 20  54 68 65 22 0d 04 60 14  |nswers. The"..`.|
00000dc0  dc 22 6d 61 78 69 6d 75  6d 20 69 73 20 39 2e 22  |."maximum is 9."|
00000dd0  0d 04 6a 2e dc 22 45 61  63 68 20 69 6e 70 75 74  |..j.."Each input|
00000de0  20 77 69 6c 6c 20 62 65  20 63 68 65 63 6b 65 64  | will be checked|
00000df0  20 61 6e 64 20 79 6f 75  20 77 69 6c 6c 22 0d 04  | and you will"..|
00000e00  74 2d dc 22 62 65 20 61  73 6b 65 64 20 74 6f 20  |t-."be asked to |
00000e10  76 61 6c 69 64 61 74 65  20 65 76 65 72 79 20 65  |validate every e|
00000e20  6e 74 72 79 2e 20 57 68  65 6e 22 0d 04 7e 2a dc  |ntry. When"..~*.|
00000e30  22 61 73 6b 65 64 87 50  4c 45 41 53 45 20 43 48  |"asked.PLEASE CH|
00000e40  45 43 4b 20 41 4c 4c 20  49 4e 50 55 54 81 61 73  |ECK ALL INPUT.as|
00000e50  20 61 6e 79 22 0d 04 88  2d dc 22 65 72 72 6f 72  | any"...-."error|
00000e60  20 66 6f 75 6e 64 20 61  66 74 65 72 20 74 68 69  | found after thi|
00000e70  73 20 73 74 61 67 65 20  77 69 6c 6c 20 6d 65 61  |s stage will mea|
00000e80  6e 22 0d 04 92 23 dc 22  72 65 2d 65 6e 74 65 72  |n"...#."re-enter|
00000e90  69 6e 67 20 41 4c 4c 20  6f 66 20 74 68 65 20 64  |ing ALL of the d|
00000ea0  61 74 61 2e 22 0d 04 9c  2b dc 22 45 61 63 68 20  |ata."...+."Each |
00000eb0  6c 69 6e 65 20 6f 66 20  65 61 63 68 20 61 6e 73  |line of each ans|
00000ec0  77 65 72 20 6d 75 73 74  20 6e 6f 77 20 62 65 22  |wer must now be"|
00000ed0  0d 04 a6 29 dc 22 65 6e  74 65 72 65 64 2e 20 4f  |...)."entered. O|
00000ee0  6e 6c 79 20 75 70 70 65  72 20 61 6e 64 20 6c 6f  |nly upper and lo|
00000ef0  77 65 72 20 63 61 73 65  22 0d 04 b0 2e dc 22 6c  |wer case"....."l|
00000f00  65 74 74 65 72 73 20 61  72 65 20 61 6c 6c 6f 77  |etters are allow|
00000f10  65 64 2c 20 61 6c 6f 6e  67 20 77 69 74 68 20 73  |ed, along with s|
00000f20  70 61 63 65 73 2e 22 0d  04 ba 29 dc 22 54 68 65  |paces."...)."The|
00000f30  20 6d 61 78 69 6d 75 6d  20 6c 69 6e 65 20 6c 65  | maximum line le|
00000f40  6e 67 74 68 2c 20 69 6e  63 6c 75 64 69 6e 67 22  |ngth, including"|
00000f50  0d 04 c4 29 dc 22 73 70  61 63 65 73 2c 20 69 73  |...)."spaces, is|
00000f60  20 31 34 20 63 68 61 72  61 63 74 65 72 73 20 61  | 14 characters a|
00000f70  6e 64 20 75 70 20 74 6f  22 0d 04 ce 21 dc 22 66  |nd up to"...!."f|
00000f80  6f 75 72 20 72 6f 77 73  20 61 72 65 20 63 61 74  |our rows are cat|
00000f90  65 72 65 64 20 66 6f 72  2e 22 0d 04 d8 2d dc 22  |ered for."...-."|
00000fa0  54 6f 20 65 6e 74 65 72  20 61 20 62 6c 61 6e 6b  |To enter a blank|
00000fb0  20 72 6f 77 20 6a 75 73  74 20 70 72 65 73 73 20  | row just press |
00000fc0  72 65 74 75 72 6e 22 0d  04 e2 14 dc 22 77 68 65  |return"....."whe|
00000fd0  6e 20 6f 66 66 65 72 65  64 2e 22 0d 04 ec 2c dc  |n offered."...,.|
00000fe0  22 41 66 74 65 72 20 76  61 6c 69 64 61 74 69 6f  |"After validatio|
00000ff0  6e 2c 20 61 6e 79 20 69  6e 70 75 74 20 77 69 6c  |n, any input wil|
00001000  6c 20 74 68 65 6e 22 0d  04 f6 28 dc 22 62 65 20  |l then"...(."be |
00001010  64 69 73 70 6c 61 79 65  64 20 69 6e 20 74 68 65  |displayed in the|
00001020  20 6c 6f 77 65 72 20 77  69 6e 64 6f 77 2e 22 0d  | lower window.".|
00001030  05 00 2c dc 22 57 68 65  6e 20 66 6f 75 72 20 72  |..,."When four r|
00001040  6f 77 73 20 68 61 76 65  20 62 65 65 6e 20 61 63  |ows have been ac|
00001050  63 65 70 74 65 64 20 74  68 65 22 0d 05 0a 2a dc  |cepted the"...*.|
00001060  22 6c 6f 77 65 72 20 77  69 6e 64 6f 77 20 77 69  |"lower window wi|
00001070  6c 6c 20 73 68 6f 77 87  45 58 41 43 54 4c 59 86  |ll show.EXACTLY.|
00001080  77 68 61 74 22 0d 05 14  22 dc 22 77 69 6c 6c 20  |what"..."."will |
00001090  61 70 70 65 61 72 20 69  6e 20 74 68 65 20 77 6f  |appear in the wo|
000010a0  72 64 62 6f 78 2e 22 0d  05 1e 2e dc 22 59 6f 75  |rdbox."....."You|
000010b0  20 77 69 6c 6c 20 74 68  65 6e 20 62 65 20 61 73  | will then be as|
000010c0  6b 65 64 20 74 6f 20 73  75 70 70 6c 79 20 61 20  |ked to supply a |
000010d0  63 6c 75 65 22 0d 05 28  2e dc 22 61 6e 64 20 63  |clue"..(.."and c|
000010e0  68 61 72 61 63 74 65 72  73 20 61 72 65 20 6e 6f  |haracters are no|
000010f0  74 20 6c 69 6d 69 74 65  64 20 66 6f 72 20 74 68  |t limited for th|
00001100  69 73 22 0d 05 32 2b dc  22 69 6e 70 75 74 2e 20  |is"..2+."input. |
00001110  49 66 20 79 6f 75 20 64  6f 20 6e 6f 74 20 77 69  |If you do not wi|
00001120  73 68 20 74 6f 20 6f 66  66 65 72 20 61 22 0d 05  |sh to offer a"..|
00001130  3c 1e dc 22 63 6c 75 65  20 6a 75 73 74 20 70 72  |<.."clue just pr|
00001140  65 73 73 20 72 65 74 75  72 6e 2e 22 0d 05 46 2d  |ess return."..F-|
00001150  dc 22 54 68 69 73 20 77  69 6c 6c 20 62 65 20 72  |."This will be r|
00001160  65 70 65 61 74 65 64 20  66 6f 72 20 65 61 63 68  |epeated for each|
00001170  20 61 6e 73 77 65 72 2e  22 0d 05 50 2e dc 22 54  | answer."..P.."T|
00001180  68 65 20 66 69 6e 61 6c  20 69 6e 70 75 74 20 77  |he final input w|
00001190  69 6c 6c 20 62 65 20 61  20 66 69 6c 65 20 6e 61  |ill be a file na|
000011a0  6d 65 20 66 6f 72 22 0d  05 5a 2b dc 22 79 6f 75  |me for"..Z+."you|
000011b0  72 20 64 61 74 61 2c 20  77 68 69 63 68 20 77 69  |r data, which wi|
000011c0  6c 6c 20 74 68 65 6e 20  62 65 20 73 61 76 65 64  |ll then be saved|
000011d0  2e 22 0d 05 64 0a dd f2  77 61 69 74 0d 05 6e 09  |."..d...wait..n.|
000011e0  2a 46 58 32 31 0d 05 78  27 f1 8a 39 2c 32 34 29  |*FX21..x'..9,24)|
000011f0  bd 31 33 36 22 41 6e 79  20 6b 65 79 20 77 68 65  |.136"Any key whe|
00001200  6e 20 72 65 61 64 79 22  3b 3a e7 a5 0d 05 82 05  |n ready";:......|
00001210  e1 0d 05 8c 05 fa 0d 05  96 0c dd f2 68 65 61 64  |............head|
00001220  65 72 0d 05 a0 0c db 3a  e3 6c 3d 32 b8 33 0d 05  |er.....:.l=2.3..|
00001230  aa 3a f1 8a 31 30 2c 6c  29 bd 31 35 37 bd 31 35  |.:..10,l).157.15|
00001240  31 8a 31 32 2c 6c 29 bd  31 34 31 bd 31 33 30 22  |1.12,l).141.130"|
00001250  49 6e 73 74 72 75 63 74  69 6f 6e 73 2e 22 8a 33  |Instructions.".3|
00001260  30 2c 6c 29 bd 31 35 36  0d 05 b4 05 ed 0d 05 be  |0,l).156........|
00001270  05 e1 0d 05 c8 1a dd f2  70 72 69 6e 74 28 6c 6f  |........print(lo|
00001280  77 2c 68 69 67 68 2c 63  6f 6c 72 29 0d 05 d2 14  |w,high,colr)....|
00001290  e3 20 72 6f 77 3d 6c 6f  77 20 b8 20 68 69 67 68  |. row=low . high|
000012a0  0d 05 dc 0b f3 20 64 61  74 61 24 0d 05 e6 1c f1  |..... data$.....|
000012b0  8a 30 2c 72 6f 77 29 bd  28 31 32 38 2b 63 6f 6c  |.0,row).(128+col|
000012c0  72 29 64 61 74 61 24 0d  05 f0 05 ed 0d 05 fa 05  |r)data$.........|
000012d0  e1 0d ff                                          |...|
000012d3