!� > <BasicSave$dir>.!RunImage
:
#�  Desktop version of 'Azumith'
(:
2!�  Based on an idea ages old!
<)�  By PauI Thornton.  01 January 1990
F:
P� � �error
Z;ș "Wimp_Initialise",200,&4B534154,"Azumith" � ,handle%
d,� Q% &800, P% &800, block% 1000, q% 1600
n6� main_blk% 1000, rate_blk% 500, var 12, rtbuff 64
x� line$(5)
�$q%="TASK"
�mws=&100
�wait%=5
�locat$="<Azumith$Dir>"
�� indir% mws, indir2% mws
��loadmenus
�/ș "Wimp_OpenTemplate",,locat$+".Templates"
�<ș "Wimp_LoadTemplate",,Q%,indir%,indir%+mws,-1,"main",0
�>ș "Wimp_LoadTemplate",,P%,indir2%,indir2%+mws,-1,"info",0
�+ș "Wimp_CreateWindow",,Q% � ourwindow%
�,ș "Wimp_CreateWindow",,P% � infowindow%
�ș "Wimp_CloseTemplate"
��displaywindow

	�doit

:

�

"
�check

,%ș "Wimp_Poll",0,block% � reason%

6$� reason%>0 � �dealwith(reason%)

@;� reason%=3 � ((reason%=17 � reason%=18) � block%!16=0)

J"ș "Wimp_CloseDown",handle%,q%

T�

^:

h� �dealwith(R)

r
Ȏ R �

|&� 2 : ș "Wimp_OpenWindow",,block%

�'� 3 : ș "Wimp_CloseWindow",,block%

�� 6 : �mouse

�� 9 : �menu_select

��

��

�:

�:

�� �doit

��concoct

�
� J=0 � 4

��write(J,line$(J+1))

��

�)ș "OS_ReadMonotonicTime" � lastdone%
�
:
� �check
&$ș "OS_ReadMonotonicTime" � now%
0*� now%>(lastdone%+(wait%*100)) � �doit
:�
D:
N� �error
Xș "Wimp_DragBox",,0
b
!block%=�
lfatal=�
v>$(block%+4)="Internal error, line "+�(�)+".  "+�$+"."+�(0)
�,ș "Wimp_ReportError",block%,1,"Azumith"
�
� �DJA
�:
�� �displaywindow
�!block%=ourwindow%
�block%!4=0
�block%!8=-176
�block%!12=778
�block%!16=0
�block%!20=0
�block%!24=0
�block%!28=-1
� ș "Wimp_OpenWindow",,block%
�
:
� �write(icon,text$)
 !q%=ourwindow%
*
q%!4=icon
4ș "Wimp_GetIconState",,q%
>$q%!28=text$
H
q%!8=0
Rq%!12=0
\ș "Wimp_SetIconState",,q%
f�
p:
z� �loadmenus
�L=�(locat$+".Menus")
�dim=�#L
��#L
�� menu_data% dim
�-� "LOAD "+locat$+".Menus "+�~(menu_data%)
�current_menu$=""
��
�:
� � �create_menu(title$,x%,y%)
�meny%=y%
��build_menu(title$,meny%)
�menx%=x%-64
�meny%=y%
)ș "Wimp_CreateMenu",,blk,menx%,meny%
�
:
$#� �build_menu(title$,� height%)
.9� ofs,i,menuitems,dots,wimpflags,flags,ptr,name$,ptr$
8%ofs=�find_menu(title$,menu_data%)
B(� ofs=� � � 44,"Menu data not found"
L'blk$=�get_menu_item(menu_data%,ofs)
Vblk=�(blk$)
`$blk=�title$,12)
jblk?12=7
tblk?13=2
~blk?14=7
�blk?15=0
�blk!16=172
�
blk!20=44
�blk!24=0
�i=28
�menuitems=0:dots=0
�2ȕ menu_data%?ofs<>�"~" � menu_data%?ofs<>�"^"
��menu_item
�K� �name$,1)="@" � name$=�name$,�name$-1):ptr$=�build_submenu(name$,pos)
�� (flags � 4)=4 �
�instr%=�ptr$,",")
�" blk!(i+12)=�(�ptr$,instr%-1))
ptr$=�ptr$,instr%+1)

blk!(i+20)=�(ptr$)
wimpflags=wimpflags � 2^8

ptr=-1
($$(blk!(i+12))=�name$,blk!(i+20))
2�
<$(blk+i+12)=�name$,12)
Fptr=�(ptr$)
P�
Zblk!i=flags
dblk!(i+4)=ptr
nblk!(i+8)=wimpflags
x
i=i+24
�menuitems+=1
��
�'height%=96+(menuitems*44)+(dots*24)
�current_menu$=�$blk,12)
��
�:
�� �menu_item
�wimpflags=&7000021
�flags=0:ptr$="-1":func$=""
�(name$=�get_menu_item(menu_data%,ofs)
�B� menu_data%?ofs=33 ofs+=1:ptr$=�get_menu_item(menu_data%,ofs)
�L� menu_data%?ofs=�"{" ofs+=1:wimpflags=�(�get_menu_item(menu_data%,ofs))
�E� menu_data%?ofs=�"\" ofs+=1:func$=�get_menu_item(menu_data%,ofs)
A� menu_data%?ofs=�"~" � menu_data%?ofs=�"^" flags=flags � &80
.� �name$,1)="}" � flags+=1:name$=�name$,2)
.� �name$,1)="#" � flags+=4:name$=�name$,2)
"=� �name$,1)="}" � flags+=2:name$=�name$,�name$-1):dots+=1
,�
6:
@ � �build_submenu(title$,pos)
J� blk$,blk
T�build_menu(title$,pos)
^	=blk$
h:
r� �menu_select
| ș "Wimp_GetPointerInfo",,q%
�
but%=q%!8
�depth%=0
��decode_menu(current_menu$)
�N� (but% � 1)=1 � �reopenmenu(current_menu$,menx%,meny%):� current_menu$=""
��
�:
�!� �reopenmenu(title$,mx%,my%)
�%ofs=�find_menu(title$,menu_data%)
�)blk=�(�get_menu_item(menu_data%,ofs))
�%ș "Wimp_CreateMenu",,blk,mx%,my%
�current_menu$=title$
��
�:
� �decode_menu(title$)
� men_loop,func$
%ofs=�find_menu(title$,menu_data%)
&)blk=�(�get_menu_item(menu_data%,ofs))
0men_loop=0
:ȕ men_loop<=block%!depth%
D
dots=0
N�menu_item
Xmen_loop+=1
b�
l� block%!depth%>-1 �
vJ� �name$,1)="@" � name$=�name$,�name$-1):depth%+=4:�decode_menu(name$)
�!� func$<>"" � a=�("FN"+func$)
��
��
�:
�� �mouse
�;� block%!8=2 � �create_menu("Azumith",!block%,block%!4)
��
�:
� � �get_menu_item(db%,� off%)
�	� st$
�$ȕ db%?off%<>&0A � db%?off%<>&0D
�st$+=�(db%?off%)
�off%+=1
�
off%+=1
=st$
 :
*� �find_menu(name$,data)
4	� fi$
>name$="^"+name$
H	ofs=0
R�
\ fi$=�get_menu_item(data,ofs)
f� fi$=name$ � fi$="~"
p� fi$="~" � =-1
z=ofs
�:
�� �quit
�
� �DJA
��
�:
�
�� "young man","old man"
�%� "from Gwent   ","from Kent    "
�%� "from Tashkent","from Brent   "
�1� "curdled","wrapped up","covered","spun dry"
�-� "his foot","a dog","the cat","his head"
�/� "with a tent","in cement  ","in a vent  "
�W� "One day in the park      ","One night after dark   ","Last week in the park    "
	)� "ran off","turned blue","went bang"
	;� "like a quark   ","with a spark   ","with a bark    "
	5� "where it went","its intent   ","why it went  "
	$:
	.� �concoct
	8
� �d@H
	B� P=1 � �(2):� M$:�
	Lline$(1)="There was a "+M$
	V
� �dJH
	`� P=1 � �(4):� M$:�
	jline$(1)=line$(1)+" "+M$
	t
� �d^H
	~� P=1 � �(4):� M$:�
	�line$(2)="Who "+M$
	�
� �dhH
	�� P=1 � �(4):� M$:�
	�line$(2)=line$(2)+" "+M$
	�
� �drH
	�� P=1 � �(3):� M$:�
	�line$(2)=line$(2)+" "+M$
	�
� �d|H
	�� P=1 � �(3):� M$:�
	�line$(3)=M$:line$(4)="It"
	�
� �TFI
	�� P=1 � �(3):� M$:�
line$(4)=line$(4)+" "+M$


� �TPI
� P=1 � �(3):� M$:�
line$(4)=line$(4)+" "+M$
(
� �TZI
2� P=1 � �(3):� M$:�
<(line$(5)="And no-one worked out "+M$
F:
P�
�

00000000  0d 00 0a 21 f4 20 3e 20  3c 42 61 73 69 63 53 61  |...!. > <BasicSa|
00000010  76 65 24 64 69 72 3e 2e  21 52 75 6e 49 6d 61 67  |ve$dir>.!RunImag|
00000020  65 0d 00 14 05 3a 0d 00  1e 23 f4 20 20 44 65 73  |e....:...#.  Des|
00000030  6b 74 6f 70 20 76 65 72  73 69 6f 6e 20 6f 66 20  |ktop version of |
00000040  27 41 7a 75 6d 69 74 68  27 0d 00 28 05 3a 0d 00  |'Azumith'..(.:..|
00000050  32 21 f4 20 20 42 61 73  65 64 20 6f 6e 20 61 6e  |2!.  Based on an|
00000060  20 69 64 65 61 20 61 67  65 73 20 6f 6c 64 21 0d  | idea ages old!.|
00000070  00 3c 29 f4 20 20 42 79  20 50 61 75 49 20 54 68  |.<).  By PauI Th|
00000080  6f 72 6e 74 6f 6e 2e 20  20 30 31 20 4a 61 6e 75  |ornton.  01 Janu|
00000090  61 72 79 20 31 39 39 30  0d 00 46 05 3a 0d 00 50  |ary 1990..F.:..P|
000000a0  0e ee 20 85 20 f2 65 72  72 6f 72 0d 00 5a 3b c8  |.. . .error..Z;.|
000000b0  99 20 22 57 69 6d 70 5f  49 6e 69 74 69 61 6c 69  |. "Wimp_Initiali|
000000c0  73 65 22 2c 32 30 30 2c  26 34 42 35 33 34 31 35  |se",200,&4B53415|
000000d0  34 2c 22 41 7a 75 6d 69  74 68 22 20 b8 20 2c 68  |4,"Azumith" . ,h|
000000e0  61 6e 64 6c 65 25 0d 00  64 2c de 20 51 25 20 26  |andle%..d,. Q% &|
000000f0  38 30 30 2c 20 50 25 20  26 38 30 30 2c 20 62 6c  |800, P% &800, bl|
00000100  6f 63 6b 25 20 31 30 30  30 2c 20 71 25 20 31 36  |ock% 1000, q% 16|
00000110  30 30 0d 00 6e 36 de 20  6d 61 69 6e 5f 62 6c 6b  |00..n6. main_blk|
00000120  25 20 31 30 30 30 2c 20  72 61 74 65 5f 62 6c 6b  |% 1000, rate_blk|
00000130  25 20 35 30 30 2c 20 76  61 72 20 31 32 2c 20 72  |% 500, var 12, r|
00000140  74 62 75 66 66 20 36 34  0d 00 78 0e de 20 6c 69  |tbuff 64..x.. li|
00000150  6e 65 24 28 35 29 0d 00  82 0e 24 71 25 3d 22 54  |ne$(5)....$q%="T|
00000160  41 53 4b 22 0d 00 8c 0c  6d 77 73 3d 26 31 30 30  |ASK"....mws=&100|
00000170  0d 00 96 0b 77 61 69 74  25 3d 35 0d 00 a0 1a 6c  |....wait%=5....l|
00000180  6f 63 61 74 24 3d 22 3c  41 7a 75 6d 69 74 68 24  |ocat$="<Azumith$|
00000190  44 69 72 3e 22 0d 00 aa  1d de 20 69 6e 64 69 72  |Dir>"..... indir|
000001a0  25 20 6d 77 73 2c 20 69  6e 64 69 72 32 25 20 6d  |% mws, indir2% m|
000001b0  77 73 0d 00 b4 0e f2 6c  6f 61 64 6d 65 6e 75 73  |ws.....loadmenus|
000001c0  0d 00 be 2f c8 99 20 22  57 69 6d 70 5f 4f 70 65  |.../.. "Wimp_Ope|
000001d0  6e 54 65 6d 70 6c 61 74  65 22 2c 2c 6c 6f 63 61  |nTemplate",,loca|
000001e0  74 24 2b 22 2e 54 65 6d  70 6c 61 74 65 73 22 0d  |t$+".Templates".|
000001f0  00 c8 3c c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |..<.. "Wimp_Load|
00000200  54 65 6d 70 6c 61 74 65  22 2c 2c 51 25 2c 69 6e  |Template",,Q%,in|
00000210  64 69 72 25 2c 69 6e 64  69 72 25 2b 6d 77 73 2c  |dir%,indir%+mws,|
00000220  2d 31 2c 22 6d 61 69 6e  22 2c 30 0d 00 d2 3e c8  |-1,"main",0...>.|
00000230  99 20 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |. "Wimp_LoadTemp|
00000240  6c 61 74 65 22 2c 2c 50  25 2c 69 6e 64 69 72 32  |late",,P%,indir2|
00000250  25 2c 69 6e 64 69 72 32  25 2b 6d 77 73 2c 2d 31  |%,indir2%+mws,-1|
00000260  2c 22 69 6e 66 6f 22 2c  30 0d 00 dc 2b c8 99 20  |,"info",0...+.. |
00000270  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00000280  6f 77 22 2c 2c 51 25 20  b8 20 6f 75 72 77 69 6e  |ow",,Q% . ourwin|
00000290  64 6f 77 25 0d 00 e6 2c  c8 99 20 22 57 69 6d 70  |dow%...,.. "Wimp|
000002a0  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
000002b0  50 25 20 b8 20 69 6e 66  6f 77 69 6e 64 6f 77 25  |P% . infowindow%|
000002c0  0d 00 f0 1b c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |...... "Wimp_Clo|
000002d0  73 65 54 65 6d 70 6c 61  74 65 22 0d 00 fa 12 f2  |seTemplate".....|
000002e0  64 69 73 70 6c 61 79 77  69 6e 64 6f 77 0d 01 04  |displaywindow...|
000002f0  09 f2 64 6f 69 74 0d 01  0e 05 3a 0d 01 18 05 f5  |..doit....:.....|
00000300  0d 01 22 0a f2 63 68 65  63 6b 0d 01 2c 25 c8 99  |.."..check..,%..|
00000310  20 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 30 2c 62  | "Wimp_Poll",0,b|
00000320  6c 6f 63 6b 25 20 b8 20  72 65 61 73 6f 6e 25 0d  |lock% . reason%.|
00000330  01 36 24 e7 20 72 65 61  73 6f 6e 25 3e 30 20 8c  |.6$. reason%>0 .|
00000340  20 f2 64 65 61 6c 77 69  74 68 28 72 65 61 73 6f  | .dealwith(reaso|
00000350  6e 25 29 0d 01 40 3b fd  20 72 65 61 73 6f 6e 25  |n%)..@;. reason%|
00000360  3d 33 20 84 20 28 28 72  65 61 73 6f 6e 25 3d 31  |=3 . ((reason%=1|
00000370  37 20 84 20 72 65 61 73  6f 6e 25 3d 31 38 29 20  |7 . reason%=18) |
00000380  80 20 62 6c 6f 63 6b 25  21 31 36 3d 30 29 0d 01  |. block%!16=0)..|
00000390  4a 22 c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |J".. "Wimp_Close|
000003a0  44 6f 77 6e 22 2c 68 61  6e 64 6c 65 25 2c 71 25  |Down",handle%,q%|
000003b0  0d 01 54 05 e0 0d 01 5e  05 3a 0d 01 68 12 dd 20  |..T....^.:..h.. |
000003c0  f2 64 65 61 6c 77 69 74  68 28 52 29 0d 01 72 0a  |.dealwith(R)..r.|
000003d0  c8 8e 20 52 20 ca 0d 01  7c 26 c9 20 32 20 3a 20  |.. R ...|&. 2 : |
000003e0  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
000003f0  64 6f 77 22 2c 2c 62 6c  6f 63 6b 25 0d 01 86 27  |dow",,block%...'|
00000400  c9 20 33 20 3a 20 c8 99  20 22 57 69 6d 70 5f 43  |. 3 : .. "Wimp_C|
00000410  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |loseWindow",,blo|
00000420  63 6b 25 0d 01 90 10 c9  20 36 20 3a 20 f2 6d 6f  |ck%..... 6 : .mo|
00000430  75 73 65 0d 01 9a 16 c9  20 39 20 3a 20 f2 6d 65  |use..... 9 : .me|
00000440  6e 75 5f 73 65 6c 65 63  74 0d 01 a4 05 cb 0d 01  |nu_select.......|
00000450  ae 05 e1 0d 01 b8 05 3a  0d 01 c2 05 3a 0d 01 cc  |.......:....:...|
00000460  0b dd 20 f2 64 6f 69 74  0d 01 d6 0c f2 63 6f 6e  |.. .doit.....con|
00000470  63 6f 63 74 0d 01 e0 0d  e3 20 4a 3d 30 20 b8 20  |coct..... J=0 . |
00000480  34 0d 01 ea 18 f2 77 72  69 74 65 28 4a 2c 6c 69  |4.....write(J,li|
00000490  6e 65 24 28 4a 2b 31 29  29 0d 01 f4 05 ed 0d 01  |ne$(J+1)).......|
000004a0  fe 29 c8 99 20 22 4f 53  5f 52 65 61 64 4d 6f 6e  |.).. "OS_ReadMon|
000004b0  6f 74 6f 6e 69 63 54 69  6d 65 22 20 b8 20 6c 61  |otonicTime" . la|
000004c0  73 74 64 6f 6e 65 25 0d  02 08 05 e1 0d 02 12 05  |stdone%.........|
000004d0  3a 0d 02 1c 0c dd 20 f2  63 68 65 63 6b 0d 02 26  |:..... .check..&|
000004e0  24 c8 99 20 22 4f 53 5f  52 65 61 64 4d 6f 6e 6f  |$.. "OS_ReadMono|
000004f0  74 6f 6e 69 63 54 69 6d  65 22 20 b8 20 6e 6f 77  |tonicTime" . now|
00000500  25 0d 02 30 2a e7 20 6e  6f 77 25 3e 28 6c 61 73  |%..0*. now%>(las|
00000510  74 64 6f 6e 65 25 2b 28  77 61 69 74 25 2a 31 30  |tdone%+(wait%*10|
00000520  30 29 29 20 8c 20 f2 64  6f 69 74 0d 02 3a 05 e1  |0)) . .doit..:..|
00000530  0d 02 44 05 3a 0d 02 4e  0c dd 20 f2 65 72 72 6f  |..D.:..N.. .erro|
00000540  72 0d 02 58 18 c8 99 20  22 57 69 6d 70 5f 44 72  |r..X... "Wimp_Dr|
00000550  61 67 42 6f 78 22 2c 2c  30 0d 02 62 0d 21 62 6c  |agBox",,0..b.!bl|
00000560  6f 63 6b 25 3d 9f 0d 02  6c 0b 66 61 74 61 6c 3d  |ock%=...l.fatal=|
00000570  b9 0d 02 76 3e 24 28 62  6c 6f 63 6b 25 2b 34 29  |...v>$(block%+4)|
00000580  3d 22 49 6e 74 65 72 6e  61 6c 20 65 72 72 6f 72  |="Internal error|
00000590  2c 20 6c 69 6e 65 20 22  2b c3 28 9e 29 2b 22 2e  |, line "+.(.)+".|
000005a0  20 20 22 2b f6 24 2b 22  2e 22 2b bd 28 30 29 0d  |  "+.$+"."+.(0).|
000005b0  02 80 2c c8 99 20 22 57  69 6d 70 5f 52 65 70 6f  |..,.. "Wimp_Repo|
000005c0  72 74 45 72 72 6f 72 22  2c 62 6c 6f 63 6b 25 2c  |rtError",block%,|
000005d0  31 2c 22 41 7a 75 6d 69  74 68 22 0d 02 8a 0a e5  |1,"Azumith".....|
000005e0  20 8d 44 4a 41 0d 02 94  05 3a 0d 02 9e 14 dd 20  | .DJA....:..... |
000005f0  f2 64 69 73 70 6c 61 79  77 69 6e 64 6f 77 0d 02  |.displaywindow..|
00000600  a8 16 21 62 6c 6f 63 6b  25 3d 6f 75 72 77 69 6e  |..!block%=ourwin|
00000610  64 6f 77 25 0d 02 b2 0e  62 6c 6f 63 6b 25 21 34  |dow%....block%!4|
00000620  3d 30 0d 02 bc 11 62 6c  6f 63 6b 25 21 38 3d 2d  |=0....block%!8=-|
00000630  31 37 36 0d 02 c6 11 62  6c 6f 63 6b 25 21 31 32  |176....block%!12|
00000640  3d 37 37 38 0d 02 d0 0f  62 6c 6f 63 6b 25 21 31  |=778....block%!1|
00000650  36 3d 30 0d 02 da 0f 62  6c 6f 63 6b 25 21 32 30  |6=0....block%!20|
00000660  3d 30 0d 02 e4 0f 62 6c  6f 63 6b 25 21 32 34 3d  |=0....block%!24=|
00000670  30 0d 02 ee 10 62 6c 6f  63 6b 25 21 32 38 3d 2d  |0....block%!28=-|
00000680  31 0d 02 f8 20 c8 99 20  22 57 69 6d 70 5f 4f 70  |1... .. "Wimp_Op|
00000690  65 6e 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |enWindow",,block|
000006a0  25 0d 03 02 05 e1 0d 03  0c 05 3a 0d 03 16 18 dd  |%.........:.....|
000006b0  20 f2 77 72 69 74 65 28  69 63 6f 6e 2c 74 65 78  | .write(icon,tex|
000006c0  74 24 29 0d 03 20 12 21  71 25 3d 6f 75 72 77 69  |t$).. .!q%=ourwi|
000006d0  6e 64 6f 77 25 0d 03 2a  0d 71 25 21 34 3d 69 63  |ndow%..*.q%!4=ic|
000006e0  6f 6e 0d 03 34 1e c8 99  20 22 57 69 6d 70 5f 47  |on..4... "Wimp_G|
000006f0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 71 25  |etIconState",,q%|
00000700  0d 03 3e 10 24 71 25 21  32 38 3d 74 65 78 74 24  |..>.$q%!28=text$|
00000710  0d 03 48 0a 71 25 21 38  3d 30 0d 03 52 0b 71 25  |..H.q%!8=0..R.q%|
00000720  21 31 32 3d 30 0d 03 5c  1e c8 99 20 22 57 69 6d  |!12=0..\... "Wim|
00000730  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00000740  2c 71 25 0d 03 66 05 e1  0d 03 70 05 3a 0d 03 7a  |,q%..f....p.:..z|
00000750  10 dd 20 f2 6c 6f 61 64  6d 65 6e 75 73 0d 03 84  |.. .loadmenus...|
00000760  18 4c 3d 8e 28 6c 6f 63  61 74 24 2b 22 2e 4d 65  |.L=.(locat$+".Me|
00000770  6e 75 73 22 29 0d 03 8e  0b 64 69 6d 3d a2 23 4c  |nus")....dim=.#L|
00000780  0d 03 98 07 d9 23 4c 0d  03 a2 14 de 20 6d 65 6e  |.....#L..... men|
00000790  75 5f 64 61 74 61 25 20  64 69 6d 0d 03 ac 2d ff  |u_data% dim...-.|
000007a0  20 22 4c 4f 41 44 20 22  2b 6c 6f 63 61 74 24 2b  | "LOAD "+locat$+|
000007b0  22 2e 4d 65 6e 75 73 20  22 2b c3 7e 28 6d 65 6e  |".Menus "+.~(men|
000007c0  75 5f 64 61 74 61 25 29  0d 03 b6 14 63 75 72 72  |u_data%)....curr|
000007d0  65 6e 74 5f 6d 65 6e 75  24 3d 22 22 0d 03 c0 05  |ent_menu$=""....|
000007e0  e1 0d 03 ca 05 3a 0d 03  d4 20 dd 20 f2 63 72 65  |.....:... . .cre|
000007f0  61 74 65 5f 6d 65 6e 75  28 74 69 74 6c 65 24 2c  |ate_menu(title$,|
00000800  78 25 2c 79 25 29 0d 03  de 0c 6d 65 6e 79 25 3d  |x%,y%)....meny%=|
00000810  79 25 0d 03 e8 1d f2 62  75 69 6c 64 5f 6d 65 6e  |y%.....build_men|
00000820  75 28 74 69 74 6c 65 24  2c 6d 65 6e 79 25 29 0d  |u(title$,meny%).|
00000830  03 f2 0f 6d 65 6e 78 25  3d 78 25 2d 36 34 0d 03  |...menx%=x%-64..|
00000840  fc 0c 6d 65 6e 79 25 3d  79 25 0d 04 06 29 c8 99  |..meny%=y%...)..|
00000850  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
00000860  75 22 2c 2c 62 6c 6b 2c  6d 65 6e 78 25 2c 6d 65  |u",,blk,menx%,me|
00000870  6e 79 25 0d 04 10 05 e1  0d 04 1a 05 3a 0d 04 24  |ny%.........:..$|
00000880  23 dd 20 f2 62 75 69 6c  64 5f 6d 65 6e 75 28 74  |#. .build_menu(t|
00000890  69 74 6c 65 24 2c f8 20  68 65 69 67 68 74 25 29  |itle$,. height%)|
000008a0  0d 04 2e 39 ea 20 6f 66  73 2c 69 2c 6d 65 6e 75  |...9. ofs,i,menu|
000008b0  69 74 65 6d 73 2c 64 6f  74 73 2c 77 69 6d 70 66  |items,dots,wimpf|
000008c0  6c 61 67 73 2c 66 6c 61  67 73 2c 70 74 72 2c 6e  |lags,flags,ptr,n|
000008d0  61 6d 65 24 2c 70 74 72  24 0d 04 38 25 6f 66 73  |ame$,ptr$..8%ofs|
000008e0  3d a4 66 69 6e 64 5f 6d  65 6e 75 28 74 69 74 6c  |=.find_menu(titl|
000008f0  65 24 2c 6d 65 6e 75 5f  64 61 74 61 25 29 0d 04  |e$,menu_data%)..|
00000900  42 28 e7 20 6f 66 73 3d  b9 20 8c 20 85 20 34 34  |B(. ofs=. . . 44|
00000910  2c 22 4d 65 6e 75 20 64  61 74 61 20 6e 6f 74 20  |,"Menu data not |
00000920  66 6f 75 6e 64 22 0d 04  4c 27 62 6c 6b 24 3d a4  |found"..L'blk$=.|
00000930  67 65 74 5f 6d 65 6e 75  5f 69 74 65 6d 28 6d 65  |get_menu_item(me|
00000940  6e 75 5f 64 61 74 61 25  2c 6f 66 73 29 0d 04 56  |nu_data%,ofs)..V|
00000950  0f 62 6c 6b 3d a0 28 62  6c 6b 24 29 0d 04 60 14  |.blk=.(blk$)..`.|
00000960  24 62 6c 6b 3d c0 74 69  74 6c 65 24 2c 31 32 29  |$blk=.title$,12)|
00000970  0d 04 6a 0c 62 6c 6b 3f  31 32 3d 37 0d 04 74 0c  |..j.blk?12=7..t.|
00000980  62 6c 6b 3f 31 33 3d 32  0d 04 7e 0c 62 6c 6b 3f  |blk?13=2..~.blk?|
00000990  31 34 3d 37 0d 04 88 0c  62 6c 6b 3f 31 35 3d 30  |14=7....blk?15=0|
000009a0  0d 04 92 0e 62 6c 6b 21  31 36 3d 31 37 32 0d 04  |....blk!16=172..|
000009b0  9c 0d 62 6c 6b 21 32 30  3d 34 34 0d 04 a6 0c 62  |..blk!20=44....b|
000009c0  6c 6b 21 32 34 3d 30 0d  04 b0 08 69 3d 32 38 0d  |lk!24=0....i=28.|
000009d0  04 ba 16 6d 65 6e 75 69  74 65 6d 73 3d 30 3a 64  |...menuitems=0:d|
000009e0  6f 74 73 3d 30 0d 04 c4  32 c8 95 20 6d 65 6e 75  |ots=0...2.. menu|
000009f0  5f 64 61 74 61 25 3f 6f  66 73 3c 3e 97 22 7e 22  |_data%?ofs<>."~"|
00000a00  20 80 20 6d 65 6e 75 5f  64 61 74 61 25 3f 6f 66  | . menu_data%?of|
00000a10  73 3c 3e 97 22 5e 22 0d  04 ce 0e f2 6d 65 6e 75  |s<>."^".....menu|
00000a20  5f 69 74 65 6d 0d 04 d8  4b e7 20 c2 6e 61 6d 65  |_item...K. .name|
00000a30  24 2c 31 29 3d 22 40 22  20 8c 20 6e 61 6d 65 24  |$,1)="@" . name$|
00000a40  3d c0 6e 61 6d 65 24 2c  a9 6e 61 6d 65 24 2d 31  |=.name$,.name$-1|
00000a50  29 3a 70 74 72 24 3d a4  62 75 69 6c 64 5f 73 75  |):ptr$=.build_su|
00000a60  62 6d 65 6e 75 28 6e 61  6d 65 24 2c 70 6f 73 29  |bmenu(name$,pos)|
00000a70  0d 04 e2 15 e7 20 28 66  6c 61 67 73 20 80 20 34  |..... (flags . 4|
00000a80  29 3d 34 20 8c 0d 04 ec  15 69 6e 73 74 72 25 3d  |)=4 .....instr%=|
00000a90  a7 70 74 72 24 2c 22 2c  22 29 0d 04 f6 22 20 62  |.ptr$,",")..." b|
00000aa0  6c 6b 21 28 69 2b 31 32  29 3d a0 28 c0 70 74 72  |lk!(i+12)=.(.ptr|
00000ab0  24 2c 69 6e 73 74 72 25  2d 31 29 29 0d 05 00 18  |$,instr%-1))....|
00000ac0  70 74 72 24 3d c1 70 74  72 24 2c 69 6e 73 74 72  |ptr$=.ptr$,instr|
00000ad0  25 2b 31 29 0d 05 0a 16  62 6c 6b 21 28 69 2b 32  |%+1)....blk!(i+2|
00000ae0  30 29 3d a0 28 70 74 72  24 29 0d 05 14 1d 77 69  |0)=.(ptr$)....wi|
00000af0  6d 70 66 6c 61 67 73 3d  77 69 6d 70 66 6c 61 67  |mpflags=wimpflag|
00000b00  73 20 84 20 32 5e 38 0d  05 1e 0a 70 74 72 3d 2d  |s . 2^8....ptr=-|
00000b10  31 0d 05 28 24 24 28 62  6c 6b 21 28 69 2b 31 32  |1..($$(blk!(i+12|
00000b20  29 29 3d c0 6e 61 6d 65  24 2c 62 6c 6b 21 28 69  |))=.name$,blk!(i|
00000b30  2b 32 30 29 29 0d 05 32  05 cc 0d 05 3c 1a 24 28  |+20))..2....<.$(|
00000b40  62 6c 6b 2b 69 2b 31 32  29 3d c0 6e 61 6d 65 24  |blk+i+12)=.name$|
00000b50  2c 31 32 29 0d 05 46 0f  70 74 72 3d a0 28 70 74  |,12)..F.ptr=.(pt|
00000b60  72 24 29 0d 05 50 05 cd  0d 05 5a 0f 62 6c 6b 21  |r$)..P....Z.blk!|
00000b70  69 3d 66 6c 61 67 73 0d  05 64 11 62 6c 6b 21 28  |i=flags..d.blk!(|
00000b80  69 2b 34 29 3d 70 74 72  0d 05 6e 17 62 6c 6b 21  |i+4)=ptr..n.blk!|
00000b90  28 69 2b 38 29 3d 77 69  6d 70 66 6c 61 67 73 0d  |(i+8)=wimpflags.|
00000ba0  05 78 0a 69 3d 69 2b 32  34 0d 05 82 10 6d 65 6e  |.x.i=i+24....men|
00000bb0  75 69 74 65 6d 73 2b 3d  31 0d 05 8c 05 ce 0d 05  |uitems+=1.......|
00000bc0  96 27 68 65 69 67 68 74  25 3d 39 36 2b 28 6d 65  |.'height%=96+(me|
00000bd0  6e 75 69 74 65 6d 73 2a  34 34 29 2b 28 64 6f 74  |nuitems*44)+(dot|
00000be0  73 2a 32 34 29 0d 05 a0  1b 63 75 72 72 65 6e 74  |s*24)....current|
00000bf0  5f 6d 65 6e 75 24 3d c0  24 62 6c 6b 2c 31 32 29  |_menu$=.$blk,12)|
00000c00  0d 05 aa 05 e1 0d 05 b4  05 3a 0d 05 be 10 dd 20  |.........:..... |
00000c10  f2 6d 65 6e 75 5f 69 74  65 6d 0d 05 c8 16 77 69  |.menu_item....wi|
00000c20  6d 70 66 6c 61 67 73 3d  26 37 30 30 30 30 32 31  |mpflags=&7000021|
00000c30  0d 05 d2 1e 66 6c 61 67  73 3d 30 3a 70 74 72 24  |....flags=0:ptr$|
00000c40  3d 22 2d 31 22 3a 66 75  6e 63 24 3d 22 22 0d 05  |="-1":func$=""..|
00000c50  dc 28 6e 61 6d 65 24 3d  a4 67 65 74 5f 6d 65 6e  |.(name$=.get_men|
00000c60  75 5f 69 74 65 6d 28 6d  65 6e 75 5f 64 61 74 61  |u_item(menu_data|
00000c70  25 2c 6f 66 73 29 0d 05  e6 42 e7 20 6d 65 6e 75  |%,ofs)...B. menu|
00000c80  5f 64 61 74 61 25 3f 6f  66 73 3d 33 33 20 6f 66  |_data%?ofs=33 of|
00000c90  73 2b 3d 31 3a 70 74 72  24 3d a4 67 65 74 5f 6d  |s+=1:ptr$=.get_m|
00000ca0  65 6e 75 5f 69 74 65 6d  28 6d 65 6e 75 5f 64 61  |enu_item(menu_da|
00000cb0  74 61 25 2c 6f 66 73 29  0d 05 f0 4c e7 20 6d 65  |ta%,ofs)...L. me|
00000cc0  6e 75 5f 64 61 74 61 25  3f 6f 66 73 3d 97 22 7b  |nu_data%?ofs=."{|
00000cd0  22 20 6f 66 73 2b 3d 31  3a 77 69 6d 70 66 6c 61  |" ofs+=1:wimpfla|
00000ce0  67 73 3d a0 28 a4 67 65  74 5f 6d 65 6e 75 5f 69  |gs=.(.get_menu_i|
00000cf0  74 65 6d 28 6d 65 6e 75  5f 64 61 74 61 25 2c 6f  |tem(menu_data%,o|
00000d00  66 73 29 29 0d 05 fa 45  e7 20 6d 65 6e 75 5f 64  |fs))...E. menu_d|
00000d10  61 74 61 25 3f 6f 66 73  3d 97 22 5c 22 20 6f 66  |ata%?ofs=."\" of|
00000d20  73 2b 3d 31 3a 66 75 6e  63 24 3d a4 67 65 74 5f  |s+=1:func$=.get_|
00000d30  6d 65 6e 75 5f 69 74 65  6d 28 6d 65 6e 75 5f 64  |menu_item(menu_d|
00000d40  61 74 61 25 2c 6f 66 73  29 0d 06 04 41 e7 20 6d  |ata%,ofs)...A. m|
00000d50  65 6e 75 5f 64 61 74 61  25 3f 6f 66 73 3d 97 22  |enu_data%?ofs=."|
00000d60  7e 22 20 84 20 6d 65 6e  75 5f 64 61 74 61 25 3f  |~" . menu_data%?|
00000d70  6f 66 73 3d 97 22 5e 22  20 66 6c 61 67 73 3d 66  |ofs=."^" flags=f|
00000d80  6c 61 67 73 20 84 20 26  38 30 0d 06 0e 2e e7 20  |lags . &80..... |
00000d90  c0 6e 61 6d 65 24 2c 31  29 3d 22 7d 22 20 8c 20  |.name$,1)="}" . |
00000da0  66 6c 61 67 73 2b 3d 31  3a 6e 61 6d 65 24 3d c1  |flags+=1:name$=.|
00000db0  6e 61 6d 65 24 2c 32 29  0d 06 18 2e e7 20 c0 6e  |name$,2)..... .n|
00000dc0  61 6d 65 24 2c 31 29 3d  22 23 22 20 8c 20 66 6c  |ame$,1)="#" . fl|
00000dd0  61 67 73 2b 3d 34 3a 6e  61 6d 65 24 3d c1 6e 61  |ags+=4:name$=.na|
00000de0  6d 65 24 2c 32 29 0d 06  22 3d e7 20 c2 6e 61 6d  |me$,2).."=. .nam|
00000df0  65 24 2c 31 29 3d 22 7d  22 20 8c 20 66 6c 61 67  |e$,1)="}" . flag|
00000e00  73 2b 3d 32 3a 6e 61 6d  65 24 3d c0 6e 61 6d 65  |s+=2:name$=.name|
00000e10  24 2c a9 6e 61 6d 65 24  2d 31 29 3a 64 6f 74 73  |$,.name$-1):dots|
00000e20  2b 3d 31 0d 06 2c 05 e1  0d 06 36 05 3a 0d 06 40  |+=1..,....6.:..@|
00000e30  20 dd 20 a4 62 75 69 6c  64 5f 73 75 62 6d 65 6e  | . .build_submen|
00000e40  75 28 74 69 74 6c 65 24  2c 70 6f 73 29 0d 06 4a  |u(title$,pos)..J|
00000e50  0e ea 20 62 6c 6b 24 2c  62 6c 6b 0d 06 54 1b f2  |.. blk$,blk..T..|
00000e60  62 75 69 6c 64 5f 6d 65  6e 75 28 74 69 74 6c 65  |build_menu(title|
00000e70  24 2c 70 6f 73 29 0d 06  5e 09 3d 62 6c 6b 24 0d  |$,pos)..^.=blk$.|
00000e80  06 68 05 3a 0d 06 72 12  dd 20 f2 6d 65 6e 75 5f  |.h.:..r.. .menu_|
00000e90  73 65 6c 65 63 74 0d 06  7c 20 c8 99 20 22 57 69  |select..| .. "Wi|
00000ea0  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00000eb0  6f 22 2c 2c 71 25 0d 06  86 0d 62 75 74 25 3d 71  |o",,q%....but%=q|
00000ec0  25 21 38 0d 06 90 0c 64  65 70 74 68 25 3d 30 0d  |%!8....depth%=0.|
00000ed0  06 9a 1f f2 64 65 63 6f  64 65 5f 6d 65 6e 75 28  |....decode_menu(|
00000ee0  63 75 72 72 65 6e 74 5f  6d 65 6e 75 24 29 0d 06  |current_menu$)..|
00000ef0  a4 4e e7 20 28 62 75 74  25 20 80 20 31 29 3d 31  |.N. (but% . 1)=1|
00000f00  20 8c 20 f2 72 65 6f 70  65 6e 6d 65 6e 75 28 63  | . .reopenmenu(c|
00000f10  75 72 72 65 6e 74 5f 6d  65 6e 75 24 2c 6d 65 6e  |urrent_menu$,men|
00000f20  78 25 2c 6d 65 6e 79 25  29 3a 8b 20 63 75 72 72  |x%,meny%):. curr|
00000f30  65 6e 74 5f 6d 65 6e 75  24 3d 22 22 0d 06 ae 05  |ent_menu$=""....|
00000f40  e1 0d 06 b8 05 3a 0d 06  c2 21 dd 20 f2 72 65 6f  |.....:...!. .reo|
00000f50  70 65 6e 6d 65 6e 75 28  74 69 74 6c 65 24 2c 6d  |penmenu(title$,m|
00000f60  78 25 2c 6d 79 25 29 0d  06 cc 25 6f 66 73 3d a4  |x%,my%)...%ofs=.|
00000f70  66 69 6e 64 5f 6d 65 6e  75 28 74 69 74 6c 65 24  |find_menu(title$|
00000f80  2c 6d 65 6e 75 5f 64 61  74 61 25 29 0d 06 d6 29  |,menu_data%)...)|
00000f90  62 6c 6b 3d a0 28 a4 67  65 74 5f 6d 65 6e 75 5f  |blk=.(.get_menu_|
00000fa0  69 74 65 6d 28 6d 65 6e  75 5f 64 61 74 61 25 2c  |item(menu_data%,|
00000fb0  6f 66 73 29 29 0d 06 e0  25 c8 99 20 22 57 69 6d  |ofs))...%.. "Wim|
00000fc0  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 62  |p_CreateMenu",,b|
00000fd0  6c 6b 2c 6d 78 25 2c 6d  79 25 0d 06 ea 18 63 75  |lk,mx%,my%....cu|
00000fe0  72 72 65 6e 74 5f 6d 65  6e 75 24 3d 74 69 74 6c  |rrent_menu$=titl|
00000ff0  65 24 0d 06 f4 05 e1 0d  06 fe 05 3a 0d 07 08 1a  |e$.........:....|
00001000  dd 20 f2 64 65 63 6f 64  65 5f 6d 65 6e 75 28 74  |. .decode_menu(t|
00001010  69 74 6c 65 24 29 0d 07  12 14 ea 20 6d 65 6e 5f  |itle$)..... men_|
00001020  6c 6f 6f 70 2c 66 75 6e  63 24 0d 07 1c 25 6f 66  |loop,func$...%of|
00001030  73 3d a4 66 69 6e 64 5f  6d 65 6e 75 28 74 69 74  |s=.find_menu(tit|
00001040  6c 65 24 2c 6d 65 6e 75  5f 64 61 74 61 25 29 0d  |le$,menu_data%).|
00001050  07 26 29 62 6c 6b 3d a0  28 a4 67 65 74 5f 6d 65  |.&)blk=.(.get_me|
00001060  6e 75 5f 69 74 65 6d 28  6d 65 6e 75 5f 64 61 74  |nu_item(menu_dat|
00001070  61 25 2c 6f 66 73 29 29  0d 07 30 0e 6d 65 6e 5f  |a%,ofs))..0.men_|
00001080  6c 6f 6f 70 3d 30 0d 07  3a 1e c8 95 20 6d 65 6e  |loop=0..:... men|
00001090  5f 6c 6f 6f 70 3c 3d 62  6c 6f 63 6b 25 21 64 65  |_loop<=block%!de|
000010a0  70 74 68 25 0d 07 44 0a  64 6f 74 73 3d 30 0d 07  |pth%..D.dots=0..|
000010b0  4e 0e f2 6d 65 6e 75 5f  69 74 65 6d 0d 07 58 0f  |N..menu_item..X.|
000010c0  6d 65 6e 5f 6c 6f 6f 70  2b 3d 31 0d 07 62 05 ce  |men_loop+=1..b..|
000010d0  0d 07 6c 18 e7 20 62 6c  6f 63 6b 25 21 64 65 70  |..l.. block%!dep|
000010e0  74 68 25 3e 2d 31 20 8c  0d 07 76 4a e7 20 c2 6e  |th%>-1 ...vJ. .n|
000010f0  61 6d 65 24 2c 31 29 3d  22 40 22 20 8c 20 6e 61  |ame$,1)="@" . na|
00001100  6d 65 24 3d c0 6e 61 6d  65 24 2c a9 6e 61 6d 65  |me$=.name$,.name|
00001110  24 2d 31 29 3a 64 65 70  74 68 25 2b 3d 34 3a f2  |$-1):depth%+=4:.|
00001120  64 65 63 6f 64 65 5f 6d  65 6e 75 28 6e 61 6d 65  |decode_menu(name|
00001130  24 29 0d 07 80 21 e7 20  66 75 6e 63 24 3c 3e 22  |$)...!. func$<>"|
00001140  22 20 8c 20 61 3d a0 28  22 46 4e 22 2b 66 75 6e  |" . a=.("FN"+fun|
00001150  63 24 29 0d 07 8a 05 cd  0d 07 94 05 e1 0d 07 9e  |c$).............|
00001160  05 3a 0d 07 a8 0c dd 20  f2 6d 6f 75 73 65 0d 07  |.:..... .mouse..|
00001170  b2 3b e7 20 62 6c 6f 63  6b 25 21 38 3d 32 20 8c  |.;. block%!8=2 .|
00001180  20 f2 63 72 65 61 74 65  5f 6d 65 6e 75 28 22 41  | .create_menu("A|
00001190  7a 75 6d 69 74 68 22 2c  21 62 6c 6f 63 6b 25 2c  |zumith",!block%,|
000011a0  62 6c 6f 63 6b 25 21 34  29 0d 07 bc 05 e1 0d 07  |block%!4).......|
000011b0  c6 05 3a 0d 07 d0 20 dd  20 a4 67 65 74 5f 6d 65  |..:... . .get_me|
000011c0  6e 75 5f 69 74 65 6d 28  64 62 25 2c f8 20 6f 66  |nu_item(db%,. of|
000011d0  66 25 29 0d 07 da 09 ea  20 73 74 24 0d 07 e4 24  |f%)..... st$...$|
000011e0  c8 95 20 64 62 25 3f 6f  66 66 25 3c 3e 26 30 41  |.. db%?off%<>&0A|
000011f0  20 80 20 64 62 25 3f 6f  66 66 25 3c 3e 26 30 44  | . db%?off%<>&0D|
00001200  0d 07 ee 14 73 74 24 2b  3d bd 28 64 62 25 3f 6f  |....st$+=.(db%?o|
00001210  66 66 25 29 0d 07 f8 0b  6f 66 66 25 2b 3d 31 0d  |ff%)....off%+=1.|
00001220  08 02 05 ce 0d 08 0c 0b  6f 66 66 25 2b 3d 31 0d  |........off%+=1.|
00001230  08 16 08 3d 73 74 24 0d  08 20 05 3a 0d 08 2a 1c  |...=st$.. .:..*.|
00001240  dd 20 a4 66 69 6e 64 5f  6d 65 6e 75 28 6e 61 6d  |. .find_menu(nam|
00001250  65 24 2c 64 61 74 61 29  0d 08 34 09 ea 20 66 69  |e$,data)..4.. fi|
00001260  24 0d 08 3e 13 6e 61 6d  65 24 3d 22 5e 22 2b 6e  |$..>.name$="^"+n|
00001270  61 6d 65 24 0d 08 48 09  6f 66 73 3d 30 0d 08 52  |ame$..H.ofs=0..R|
00001280  05 f5 0d 08 5c 20 66 69  24 3d a4 67 65 74 5f 6d  |....\ fi$=.get_m|
00001290  65 6e 75 5f 69 74 65 6d  28 64 61 74 61 2c 6f 66  |enu_item(data,of|
000012a0  73 29 0d 08 66 19 fd 20  66 69 24 3d 6e 61 6d 65  |s)..f.. fi$=name|
000012b0  24 20 84 20 66 69 24 3d  22 7e 22 0d 08 70 13 e7  |$ . fi$="~"..p..|
000012c0  20 66 69 24 3d 22 7e 22  20 8c 20 3d 2d 31 0d 08  | fi$="~" . =-1..|
000012d0  7a 08 3d 6f 66 73 0d 08  84 05 3a 0d 08 8e 0b dd  |z.=ofs....:.....|
000012e0  20 a4 71 75 69 74 0d 08  98 0a e5 20 8d 44 4a 41  | .quit..... .DJA|
000012f0  0d 08 a2 05 e0 0d 08 ac  05 3a 0d 08 b6 04 0d 08  |.........:......|
00001300  c0 1b dc 20 22 79 6f 75  6e 67 20 6d 61 6e 22 2c  |... "young man",|
00001310  22 6f 6c 64 20 6d 61 6e  22 0d 08 ca 25 dc 20 22  |"old man"...%. "|
00001320  66 72 6f 6d 20 47 77 65  6e 74 20 20 20 22 2c 22  |from Gwent   ","|
00001330  66 72 6f 6d 20 4b 65 6e  74 20 20 20 20 22 0d 08  |from Kent    "..|
00001340  d4 25 dc 20 22 66 72 6f  6d 20 54 61 73 68 6b 65  |.%. "from Tashke|
00001350  6e 74 22 2c 22 66 72 6f  6d 20 42 72 65 6e 74 20  |nt","from Brent |
00001360  20 20 22 0d 08 de 31 dc  20 22 63 75 72 64 6c 65  |  "...1. "curdle|
00001370  64 22 2c 22 77 72 61 70  70 65 64 20 75 70 22 2c  |d","wrapped up",|
00001380  22 63 6f 76 65 72 65 64  22 2c 22 73 70 75 6e 20  |"covered","spun |
00001390  64 72 79 22 0d 08 e8 2d  dc 20 22 68 69 73 20 66  |dry"...-. "his f|
000013a0  6f 6f 74 22 2c 22 61 20  64 6f 67 22 2c 22 74 68  |oot","a dog","th|
000013b0  65 20 63 61 74 22 2c 22  68 69 73 20 68 65 61 64  |e cat","his head|
000013c0  22 0d 08 f2 2f dc 20 22  77 69 74 68 20 61 20 74  |".../. "with a t|
000013d0  65 6e 74 22 2c 22 69 6e  20 63 65 6d 65 6e 74 20  |ent","in cement |
000013e0  20 22 2c 22 69 6e 20 61  20 76 65 6e 74 20 20 22  | ","in a vent  "|
000013f0  0d 08 fc 57 dc 20 22 4f  6e 65 20 64 61 79 20 69  |...W. "One day i|
00001400  6e 20 74 68 65 20 70 61  72 6b 20 20 20 20 20 20  |n the park      |
00001410  22 2c 22 4f 6e 65 20 6e  69 67 68 74 20 61 66 74  |","One night aft|
00001420  65 72 20 64 61 72 6b 20  20 20 22 2c 22 4c 61 73  |er dark   ","Las|
00001430  74 20 77 65 65 6b 20 69  6e 20 74 68 65 20 70 61  |t week in the pa|
00001440  72 6b 20 20 20 20 22 0d  09 06 29 dc 20 22 72 61  |rk    "...). "ra|
00001450  6e 20 6f 66 66 22 2c 22  74 75 72 6e 65 64 20 62  |n off","turned b|
00001460  6c 75 65 22 2c 22 77 65  6e 74 20 62 61 6e 67 22  |lue","went bang"|
00001470  0d 09 10 3b dc 20 22 6c  69 6b 65 20 61 20 71 75  |...;. "like a qu|
00001480  61 72 6b 20 20 20 22 2c  22 77 69 74 68 20 61 20  |ark   ","with a |
00001490  73 70 61 72 6b 20 20 20  22 2c 22 77 69 74 68 20  |spark   ","with |
000014a0  61 20 62 61 72 6b 20 20  20 20 22 0d 09 1a 35 dc  |a bark    "...5.|
000014b0  20 22 77 68 65 72 65 20  69 74 20 77 65 6e 74 22  | "where it went"|
000014c0  2c 22 69 74 73 20 69 6e  74 65 6e 74 20 20 20 22  |,"its intent   "|
000014d0  2c 22 77 68 79 20 69 74  20 77 65 6e 74 20 20 22  |,"why it went  "|
000014e0  0d 09 24 05 3a 0d 09 2e  0e dd 20 f2 63 6f 6e 63  |..$.:..... .conc|
000014f0  6f 63 74 0d 09 38 0a f7  20 8d 64 40 48 0d 09 42  |oct..8.. .d@H..B|
00001500  17 e3 20 50 3d 31 20 b8  20 b3 28 32 29 3a f3 20  |.. P=1 . .(2):. |
00001510  4d 24 3a ed 0d 09 4c 1e  6c 69 6e 65 24 28 31 29  |M$:...L.line$(1)|
00001520  3d 22 54 68 65 72 65 20  77 61 73 20 61 20 22 2b  |="There was a "+|
00001530  4d 24 0d 09 56 0a f7 20  8d 64 4a 48 0d 09 60 17  |M$..V.. .dJH..`.|
00001540  e3 20 50 3d 31 20 b8 20  b3 28 34 29 3a f3 20 4d  |. P=1 . .(4):. M|
00001550  24 3a ed 0d 09 6a 1c 6c  69 6e 65 24 28 31 29 3d  |$:...j.line$(1)=|
00001560  6c 69 6e 65 24 28 31 29  2b 22 20 22 2b 4d 24 0d  |line$(1)+" "+M$.|
00001570  09 74 0a f7 20 8d 64 5e  48 0d 09 7e 17 e3 20 50  |.t.. .d^H..~.. P|
00001580  3d 31 20 b8 20 b3 28 34  29 3a f3 20 4d 24 3a ed  |=1 . .(4):. M$:.|
00001590  0d 09 88 16 6c 69 6e 65  24 28 32 29 3d 22 57 68  |....line$(2)="Wh|
000015a0  6f 20 22 2b 4d 24 0d 09  92 0a f7 20 8d 64 68 48  |o "+M$..... .dhH|
000015b0  0d 09 9c 17 e3 20 50 3d  31 20 b8 20 b3 28 34 29  |..... P=1 . .(4)|
000015c0  3a f3 20 4d 24 3a ed 0d  09 a6 1c 6c 69 6e 65 24  |:. M$:.....line$|
000015d0  28 32 29 3d 6c 69 6e 65  24 28 32 29 2b 22 20 22  |(2)=line$(2)+" "|
000015e0  2b 4d 24 0d 09 b0 0a f7  20 8d 64 72 48 0d 09 ba  |+M$..... .drH...|
000015f0  17 e3 20 50 3d 31 20 b8  20 b3 28 33 29 3a f3 20  |.. P=1 . .(3):. |
00001600  4d 24 3a ed 0d 09 c4 1c  6c 69 6e 65 24 28 32 29  |M$:.....line$(2)|
00001610  3d 6c 69 6e 65 24 28 32  29 2b 22 20 22 2b 4d 24  |=line$(2)+" "+M$|
00001620  0d 09 ce 0a f7 20 8d 64  7c 48 0d 09 d8 17 e3 20  |..... .d|H..... |
00001630  50 3d 31 20 b8 20 b3 28  33 29 3a f3 20 4d 24 3a  |P=1 . .(3):. M$:|
00001640  ed 0d 09 e2 1d 6c 69 6e  65 24 28 33 29 3d 4d 24  |.....line$(3)=M$|
00001650  3a 6c 69 6e 65 24 28 34  29 3d 22 49 74 22 0d 09  |:line$(4)="It"..|
00001660  ec 0a f7 20 8d 54 46 49  0d 09 f6 17 e3 20 50 3d  |... .TFI..... P=|
00001670  31 20 b8 20 b3 28 33 29  3a f3 20 4d 24 3a ed 0d  |1 . .(3):. M$:..|
00001680  0a 00 1c 6c 69 6e 65 24  28 34 29 3d 6c 69 6e 65  |...line$(4)=line|
00001690  24 28 34 29 2b 22 20 22  2b 4d 24 0d 0a 0a 0a f7  |$(4)+" "+M$.....|
000016a0  20 8d 54 50 49 0d 0a 14  17 e3 20 50 3d 31 20 b8  | .TPI..... P=1 .|
000016b0  20 b3 28 33 29 3a f3 20  4d 24 3a ed 0d 0a 1e 1c  | .(3):. M$:.....|
000016c0  6c 69 6e 65 24 28 34 29  3d 6c 69 6e 65 24 28 34  |line$(4)=line$(4|
000016d0  29 2b 22 20 22 2b 4d 24  0d 0a 28 0a f7 20 8d 54  |)+" "+M$..(.. .T|
000016e0  5a 49 0d 0a 32 17 e3 20  50 3d 31 20 b8 20 b3 28  |ZI..2.. P=1 . .(|
000016f0  33 29 3a f3 20 4d 24 3a  ed 0d 0a 3c 28 6c 69 6e  |3):. M$:...<(lin|
00001700  65 24 28 35 29 3d 22 41  6e 64 20 6e 6f 2d 6f 6e  |e$(5)="And no-on|
00001710  65 20 77 6f 72 6b 65 64  20 6f 75 74 20 22 2b 4d  |e worked out "+M|
00001720  24 0d 0a 46 05 3a 0d 0a  50 05 e1 0d ff           |$..F.:..P....|
0000172d