"� > !RunImage for Applications
� Version 1.00
#� Written by Toby Mackenzie �94
(#� � Acorn Archimedes World 1994
2?� � �_Error_Box(�,�$+" (Initialisation code "+�(�)+")",6):�
<
F� task% 4:$task%="TASK"
P:ș"Wimp_Initialise",200,!task%,"Applications" � ,myid%
Z
d�_Initialise_Variables
n�_Load_Templates
x�_Mode_Info
��_Make_Menus
��_Load_Sprites
��_Install_Icon
�
�
�o� � �_Error_Box(�,�$+" (Internal code "+�(�)+")   Click OK to continue or Cancel to quit",3):� reply%=2 � �
�
��
�;  ș"Wimp_Poll",%10000001100100110011,q% � reason_code%
�  Ȏ reason_code% �
�H    � 2 : �_Open_Window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
�!    � 3 : �_Close_Window(!q%)
�6    � 6 : �_Check_Mouse(!q%,q%!4,q%!8,q%!12,q%!16)

    � 9 : �_Menu_Select(q%)

    � 17,18 : �_Receive

  �

"� quit%

,ș"Wimp_CloseDown":�

6

@

J:� �_Check_Mouse(mousex%,mousey%,button%,window%,icon%)

T�

^Ȏ window% �

h   � -2:  � icon%=warnicon% �

rJ    � button%=2 � ș"Wimp_CreateMenu",,icbarmenu%,mousex%-48,96+(2*44)

|    � button%=4 �

�B      �"Set alias$OpenDir Filer_Opendir <Apps$Dir>.Applicatio"

�      �"OpenDir"

�       �"Unset alias$OpenDir"

�	    �

�   �

�I  � WHEN info%:IF icon%=7 THEN OSCLI"WimpTask Run <Apps$Dir>.!Manual"

��

��

�

�� �_Menu_Select(q%)

�� !q%=1 � quit%=�

� ș "Wimp_GetPointerInfo",,q%

�3� q%!8=1 � ș "Wimp_CreateMenu",,menu%,!q%,q%!4
�

� �_Receive
&Ȏ q%!16 �
0  � 0     : quit%=�
:;  � &502  : �_Interactive_Help(q%!20,q%!24,q%!32,q%!36)
D9  � &400C2: newtaskid%=q%!4:taskname$=�string0(q%+28)
NC               � taskname$="Applications" � newtaskid%<>myid% �
X                 quit%=�
b               �
l�
v�
�
�� �_Mode_Info
�>!q%=130:q%!4=131:q%!8=-1:ș"OS_ReadVduVariables",q%,q%+128
�)ș"OS_ReadModeVariable",�,4 � ,,Xeig%
�)ș"OS_ReadModeVariable",�,5 � ,,Yeig%
�;Far_X%=((q%!128)+1)*2^Xeig%:Far_Y%=((q%!132)+1)*2^Yeig%
��
�
�9� �_Interactive_Help(mouse_x%,mouse_y%,window%,icon%)
�%q%!12=q%!8:q%!16=&503:help%=q%+20
�Ȏ window% �
�  �WHEN -2 : IF icon%=warnicon% THEN PROC_Help("This is the Applications icon.|MClick on it to run the Applications Quiz.")
��
#?help%=0:!q%=(help%+24-q%)� � 3
$ș "Wimp_SendMessage",17,q%,q%!4
�
 
*� �_Help(a$)
4 $help%=a$+"|M"
> help%+=�a$+2
H�
R
\@� �_Open_Window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
fș"Wimp_OpenWindow",,q%
p�
z
�� �_Close_Window(!q%)
�ș"Wimp_CloseWindow",,q%
��
�
�� �_Initialise_Variables
�8� q% 2048, menufree% &800, temp% 9128, errorbuf% 256
�� fhands% 256
�� loop%
�� loop%=0 � 252 � 4
�  fhands%!loop%=0
��
�curws%=temp%
�maxws%=temp%+2048
menustart%=menufree%
menuend%=menufree%+&800
menu%=0
$quit%=�
.ver$="1.00 (24-Sept-94)"
8�
B
L� �_Load_Templates
V� space%
`space%=temp%
j1ș"Wimp_OpenTemplate",,"<Apps$Dir>.Templates"
tIș"Wimp_LoadTemplate",,q%,space%,temp%+9128,fhands%,"Info" � ,,space%
~%ș"Wimp_CreateWindow",,q% � info%
�Lș"Wimp_LoadTemplate",,q%,space%,temp%+9128,fhands%,"Welcome" � ,,space%
�(ș"Wimp_CreateWindow",,q% � welcome%
�ș"Wimp_CloseTemplate"
�curws%=space%
��
�
�� �_Load_Sprites
�-S%=�"<Apps$Dir>.!Sprites":T%=�#S%+16:�#S%
�� sprites% T%
�!sprites%=T%:sprites%!8=1
�!ș"OS_SpriteOp",&100,sprites%
�7ș"OS_SpriteOp",&10A,sprites%,"<Apps$Dir>.!Sprites"
�


� �_Install_Icon
T!q%=-2:q%!4=0:q%!8=-16:q%!12=75:q%!16=92:q%!20=%00010111000000000011000100001011
(spname$="s!Apps2"
2ictext$="Apps"
<� spstore% �(spname$)+1
F� textstore% �(ictext$)+1
P$(spstore%)=spname$
Z$(textstore%)=ictext$
d#q%!24=textstore%:q%!28=spstore%
n!q%!32=�(spname$)+�(ictext$)+2
x(ș "Wimp_CreateIcon",,q% � warnicon%
��
�
�� �string0(a%)
�
�a$:a$=""
�
ȕ ?a%
�a$+=�?a%
�	a%+=1
��
�=a$
�
�� �_Leaf(process_string$)
�� string$,loop%
�loop%=�(process_string$)
%ȕ �process_string$,loop%,1)<>"."
-string$=�process_string$,loop%,1)+string$
loop%-=1
"�
,=string$
6
@� �_Make_Menus
J)� Special characters in menu strings:
T)� # before first item indicates TITLE
^F� # as last character of an item indicates a dotted line after it.
hJ� $ followed by a DIMmed block name is a writeable icon (length in ())
r>� > followed by a variable = a submenu or subwindow handle
|F� } followed by a variable = a manually-generated subwindow handle
�?� / as last character of an item means item will be in grey
�>� \ as last character of an item means item will be ticked
�:� � followed by a two digit number = background colour
�:� | followed by a two digit number = foreground colour
�C� { at end of title indicates that menu items should be centred
�
�menufree%=menustart%
�%� loop%=menustart% � menuend% � 4
�!loop%=0
��
�;icbarmenu%=�_Create_Menu("#Apps,Info>info%,Quit","","")
��
�
(� �_Create_Menu(menu$,menu2$,menu3$)
4� menufree%+28 > menuend% � � 1,"Menu area full"
� m%,i%
&menuptr%=menufree%
0i%=0
:@� �menu$,1)="#" � i%=1:menutitle$=�_Par(",") � menutitle$=""
D� �menutitle$,1)="{" �
Nboticon%=9
X+menutitle$=�menutitle$,�(menutitle$)-1)
b�
lboticon%=1
v�
�$menuptr%=menutitle$
�;menuptr%?12=7:menuptr%?13=2:menuptr%?14=7:menuptr%?15=0
�3menuptr%!16=196-24:menuptr%!20=44:menuptr%!24=0
�$menuptr%+=28:maxx%=�menutitle$-3
��
�item$=�_Par(",")
�� item$="++" �
�i%=0
�menu$=menu2$
��
�� item$="+++" �
�i%=0
�menu$=menu3$
�
�_Menu_Item(item$)
�
 �
*� item$=""
4� maxx% > 20 � maxx%=20
>$m%=menufree%:m%!16=(maxx%*8+6)*2
Hmenufree%=menuptr%
R=m%
\
f� �_Menu_Item(text$)
p2� text$="" � menuptr%!-24=(menuptr%!-24)�&80:�
z3� menuptr%+24 > menuend% � � 1,"Menu area full"
�� i%,flg%,V%
�flg%=&00
�i%=�text$,">")
�
�i%>0�
�subptr%=��text$,i%+1)
�text$=�text$,i%-1)
��
�ii%=�text$,"}")
��ii%>0�
�subptr%=��text$,ii%+1)
�text$=�text$,ii%-1)
�
flg%+=&08
��
	subptr%=-1
	�
	�
	$6� �text$,1)="#" � text$=�text$,�text$-1):flg%+=&02
	.6� �text$,1)="\" � text$=�text$,�text$-1):flg%+=&01
	8iii% = �text$,"|")
	Biiii% = �text$,"�")
	L� iii% = 0 � iiii% = 0 �
	Vmfg%=0 << 28:mbg% = 7 << 24
	`�
	j
Ȏ iii% �
	t� 0:mfg%=0 << 28
	~
	�)mfg%=(�(�text$,iii%+1,2)) � 16) << 28
	�'text$=�text$,iii%-1)+�text$,iii%+3)
	��
	�iiii% = �text$,"�")
	�Ȏ iiii% �
	�� 0:mbg%=7 << 24
	�
	�*mbg%=(�(�text$,iiii%+1,2)) � 16) << 24
	�)text$=�text$,iiii%-1)+�text$,iiii%+3)
	��
	��
	�menuptr%!0=flg%
menuptr%!4=subptr%

%menuptr%!8=mfg%+mbg%+&20+boticon%
L� �text$,1)="/" � text$=�text$,�text$-1):menuptr%!8=(menuptr%!8 � 1<<22)
�text$,1)="$"�
( !menuptr%+=&04
2 menuptr%!8+=&108
< i%=�text$,"(")
F4 �i%>0�L%=��text$,i%+1):text$=�text$,i%-1)�L%=12
P V% = -1
Z menuptr%!12=��text$,2)
d menuptr%!16=-1
n menuptr%!20=L%
x text$=�L%," ")
��
� �text$<=12�
� $(menuptr%+12)=text$
� �
�' I%=�_Workspace(�text$+1):$I%=text$
�7 menuptr%!12=I%:menuptr%!16=-1:menuptr%!20=�text$+1
�! menuptr%!8=menuptr%!8 � &100
� �
��
��text$>maxx% �maxx%=�text$
�menuptr%+=24
��
�
� �_Par(sep$)
%i1%=i%+1:i%=�menu$+sep$,sep$,i1%)
=�menu$,i1%,i%-i1%)
"
,� �_Workspace(L%)
63� curws%+L%>maxws% � � 1,"No more buffer space"
@curws%+=L%:=curws%-L%
J
T� �_Upper(str_to_conv$)
^stcloop%=0
hnewstr$=""
r�
|stcloop%+=1
�"stc$=�str_to_conv$,stcloop%,1)
�� �stc$>96 � �stc$<123 �
�$newstr$=newstr$+�(�(stc$) � &DF)
��
�newstr$=newstr$+�(�(stc$))
��
�� �newstr$=�str_to_conv$
�=newstr$
�
�$� �_Error_Box(err,report$,type%)
�!errorbuf%=err
�$(errorbuf%+4)=report$+�(0)
�Aș"Wimp_ReportError",errorbuf%,type%,"Applications" � ,reply%
�

�DEF PROC_Lose_Fonts
&�FOR d%=1 TO 255
0�REPEAT
:� IF ?(fhands%+d%)<>0 THEN
D�  SYS"XFont_LoseFont",d%
N$�  ?(fhands%+d%)=?(fhands%+d%)-1
X� ENDIF
b� UNTIL ?(fhands%+d%)=0
l
� NEXT
v
� ENDPROC
�

00000000  0d 00 0a 22 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |...". > !RunImag|
00000010  65 20 66 6f 72 20 41 70  70 6c 69 63 61 74 69 6f  |e for Applicatio|
00000020  6e 73 0d 00 14 12 f4 20  56 65 72 73 69 6f 6e 20  |ns..... Version |
00000030  31 2e 30 30 0d 00 1e 23  f4 20 57 72 69 74 74 65  |1.00...#. Writte|
00000040  6e 20 62 79 20 54 6f 62  79 20 4d 61 63 6b 65 6e  |n by Toby Macken|
00000050  7a 69 65 20 91 39 34 0d  00 28 23 f4 20 a9 20 41  |zie .94..(#. . A|
00000060  63 6f 72 6e 20 41 72 63  68 69 6d 65 64 65 73 20  |corn Archimedes |
00000070  57 6f 72 6c 64 20 31 39  39 34 0d 00 32 3f ee 20  |World 1994..2?. |
00000080  85 20 f2 5f 45 72 72 6f  72 5f 42 6f 78 28 9f 2c  |. ._Error_Box(.,|
00000090  f6 24 2b 22 20 28 49 6e  69 74 69 61 6c 69 73 61  |.$+" (Initialisa|
000000a0  74 69 6f 6e 20 63 6f 64  65 20 22 2b c3 28 9e 29  |tion code "+.(.)|
000000b0  2b 22 29 22 2c 36 29 3a  e0 0d 00 3c 04 0d 00 46  |+")",6):...<...F|
000000c0  1b de 20 74 61 73 6b 25  20 34 3a 24 74 61 73 6b  |.. task% 4:$task|
000000d0  25 3d 22 54 41 53 4b 22  0d 00 50 3a c8 99 22 57  |%="TASK"..P:.."W|
000000e0  69 6d 70 5f 49 6e 69 74  69 61 6c 69 73 65 22 2c  |imp_Initialise",|
000000f0  32 30 30 2c 21 74 61 73  6b 25 2c 22 41 70 70 6c  |200,!task%,"Appl|
00000100  69 63 61 74 69 6f 6e 73  22 20 b8 20 2c 6d 79 69  |ications" . ,myi|
00000110  64 25 0d 00 5a 04 0d 00  64 1a f2 5f 49 6e 69 74  |d%..Z...d.._Init|
00000120  69 61 6c 69 73 65 5f 56  61 72 69 61 62 6c 65 73  |ialise_Variables|
00000130  0d 00 6e 14 f2 5f 4c 6f  61 64 5f 54 65 6d 70 6c  |..n.._Load_Templ|
00000140  61 74 65 73 0d 00 78 0f  f2 5f 4d 6f 64 65 5f 49  |ates..x.._Mode_I|
00000150  6e 66 6f 0d 00 82 10 f2  5f 4d 61 6b 65 5f 4d 65  |nfo....._Make_Me|
00000160  6e 75 73 0d 00 8c 12 f2  5f 4c 6f 61 64 5f 53 70  |nus....._Load_Sp|
00000170  72 69 74 65 73 0d 00 96  12 f2 5f 49 6e 73 74 61  |rites....._Insta|
00000180  6c 6c 5f 49 63 6f 6e 0d  00 a0 04 0d 00 aa 04 0d  |ll_Icon.........|
00000190  00 b4 6f ee 20 85 20 f2  5f 45 72 72 6f 72 5f 42  |..o. . ._Error_B|
000001a0  6f 78 28 9f 2c f6 24 2b  22 20 28 49 6e 74 65 72  |ox(.,.$+" (Inter|
000001b0  6e 61 6c 20 63 6f 64 65  20 22 2b c3 28 9e 29 2b  |nal code "+.(.)+|
000001c0  22 29 20 20 20 43 6c 69  63 6b 20 4f 4b 20 74 6f  |")   Click OK to|
000001d0  20 63 6f 6e 74 69 6e 75  65 20 6f 72 20 43 61 6e  | continue or Can|
000001e0  63 65 6c 20 74 6f 20 71  75 69 74 22 2c 33 29 3a  |cel to quit",3):|
000001f0  e7 20 72 65 70 6c 79 25  3d 32 20 8c 20 e0 0d 00  |. reply%=2 . ...|
00000200  be 04 0d 00 c8 05 f5 0d  00 d2 3b 20 20 c8 99 22  |..........;  .."|
00000210  57 69 6d 70 5f 50 6f 6c  6c 22 2c 25 31 30 30 30  |Wimp_Poll",%1000|
00000220  30 30 30 31 31 30 30 31  30 30 31 31 30 30 31 31  |0001100100110011|
00000230  2c 71 25 20 b8 20 72 65  61 73 6f 6e 5f 63 6f 64  |,q% . reason_cod|
00000240  65 25 0d 00 dc 17 20 20  c8 8e 20 72 65 61 73 6f  |e%....  .. reaso|
00000250  6e 5f 63 6f 64 65 25 20  ca 0d 00 e6 48 20 20 20  |n_code% ....H   |
00000260  20 c9 20 32 20 3a 20 f2  5f 4f 70 65 6e 5f 57 69  | . 2 : ._Open_Wi|
00000270  6e 64 6f 77 28 21 71 25  2c 71 25 21 34 2c 71 25  |ndow(!q%,q%!4,q%|
00000280  21 38 2c 71 25 21 31 32  2c 71 25 21 31 36 2c 71  |!8,q%!12,q%!16,q|
00000290  25 21 32 30 2c 71 25 21  32 34 2c 71 25 21 32 38  |%!20,q%!24,q%!28|
000002a0  29 0d 00 f0 21 20 20 20  20 c9 20 33 20 3a 20 f2  |)...!    . 3 : .|
000002b0  5f 43 6c 6f 73 65 5f 57  69 6e 64 6f 77 28 21 71  |_Close_Window(!q|
000002c0  25 29 0d 00 fa 36 20 20  20 20 c9 20 36 20 3a 20  |%)...6    . 6 : |
000002d0  f2 5f 43 68 65 63 6b 5f  4d 6f 75 73 65 28 21 71  |._Check_Mouse(!q|
000002e0  25 2c 71 25 21 34 2c 71  25 21 38 2c 71 25 21 31  |%,q%!4,q%!8,q%!1|
000002f0  32 2c 71 25 21 31 36 29  0d 01 04 1f 20 20 20 20  |2,q%!16)....    |
00000300  c9 20 39 20 3a 20 f2 5f  4d 65 6e 75 5f 53 65 6c  |. 9 : ._Menu_Sel|
00000310  65 63 74 28 71 25 29 0d  01 0e 1b 20 20 20 20 c9  |ect(q%)....    .|
00000320  20 31 37 2c 31 38 20 3a  20 f2 5f 52 65 63 65 69  | 17,18 : ._Recei|
00000330  76 65 0d 01 18 07 20 20  cb 0d 01 22 0b fd 20 71  |ve....  ...".. q|
00000340  75 69 74 25 0d 01 2c 18  c8 99 22 57 69 6d 70 5f  |uit%..,..."Wimp_|
00000350  43 6c 6f 73 65 44 6f 77  6e 22 3a e0 0d 01 36 04  |CloseDown":...6.|
00000360  0d 01 40 04 0d 01 4a 3a  dd 20 f2 5f 43 68 65 63  |..@...J:. ._Chec|
00000370  6b 5f 4d 6f 75 73 65 28  6d 6f 75 73 65 78 25 2c  |k_Mouse(mousex%,|
00000380  6d 6f 75 73 65 79 25 2c  62 75 74 74 6f 6e 25 2c  |mousey%,button%,|
00000390  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 29 0d 01  |window%,icon%)..|
000003a0  54 05 cd 0d 01 5e 10 c8  8e 20 77 69 6e 64 6f 77  |T....^... window|
000003b0  25 20 ca 0d 01 68 20 20  20 c9 20 2d 32 3a 20 20  |% ...h   . -2:  |
000003c0  e7 20 69 63 6f 6e 25 3d  77 61 72 6e 69 63 6f 6e  |. icon%=warnicon|
000003d0  25 20 8c 0d 01 72 4a 20  20 20 20 e7 20 62 75 74  |% ...rJ    . but|
000003e0  74 6f 6e 25 3d 32 20 8c  20 c8 99 22 57 69 6d 70  |ton%=2 . .."Wimp|
000003f0  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 69 63  |_CreateMenu",,ic|
00000400  62 61 72 6d 65 6e 75 25  2c 6d 6f 75 73 65 78 25  |barmenu%,mousex%|
00000410  2d 34 38 2c 39 36 2b 28  32 2a 34 34 29 0d 01 7c  |-48,96+(2*44)..||
00000420  15 20 20 20 20 e7 20 62  75 74 74 6f 6e 25 3d 34  |.    . button%=4|
00000430  20 8c 0d 01 86 42 20 20  20 20 20 20 ff 22 53 65  | ....B      ."Se|
00000440  74 20 61 6c 69 61 73 24  4f 70 65 6e 44 69 72 20  |t alias$OpenDir |
00000450  46 69 6c 65 72 5f 4f 70  65 6e 64 69 72 20 3c 41  |Filer_Opendir <A|
00000460  70 70 73 24 44 69 72 3e  2e 41 70 70 6c 69 63 61  |pps$Dir>.Applica|
00000470  74 69 6f 22 0d 01 90 14  20 20 20 20 20 20 ff 22  |tio"....      ."|
00000480  4f 70 65 6e 44 69 72 22  0d 01 9a 20 20 20 20 20  |OpenDir"...     |
00000490  20 20 ff 22 55 6e 73 65  74 20 61 6c 69 61 73 24  |  ."Unset alias$|
000004a0  4f 70 65 6e 44 69 72 22  0d 01 a4 09 20 20 20 20  |OpenDir"....    |
000004b0  cd 0d 01 ae 08 20 20 20  cd 0d 01 b8 49 20 20 f4  |.....   ....I  .|
000004c0  20 57 48 45 4e 20 69 6e  66 6f 25 3a 49 46 20 69  | WHEN info%:IF i|
000004d0  63 6f 6e 25 3d 37 20 54  48 45 4e 20 4f 53 43 4c  |con%=7 THEN OSCL|
000004e0  49 22 57 69 6d 70 54 61  73 6b 20 52 75 6e 20 3c  |I"WimpTask Run <|
000004f0  41 70 70 73 24 44 69 72  3e 2e 21 4d 61 6e 75 61  |Apps$Dir>.!Manua|
00000500  6c 22 0d 01 c2 05 cb 0d  01 cc 05 e1 0d 01 d6 04  |l"..............|
00000510  0d 01 e0 17 dd 20 f2 5f  4d 65 6e 75 5f 53 65 6c  |..... ._Menu_Sel|
00000520  65 63 74 28 71 25 29 0d  01 ea 15 e7 20 21 71 25  |ect(q%)..... !q%|
00000530  3d 31 20 8c 20 71 75 69  74 25 3d b9 0d 01 f4 20  |=1 . quit%=.... |
00000540  c8 99 20 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |.. "Wimp_GetPoin|
00000550  74 65 72 49 6e 66 6f 22  2c 2c 71 25 0d 01 fe 33  |terInfo",,q%...3|
00000560  e7 20 71 25 21 38 3d 31  20 8c 20 c8 99 20 22 57  |. q%!8=1 . .. "W|
00000570  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00000580  2c 6d 65 6e 75 25 2c 21  71 25 2c 71 25 21 34 0d  |,menu%,!q%,q%!4.|
00000590  02 08 05 e1 0d 02 12 04  0d 02 1c 0f dd 20 f2 5f  |............. ._|
000005a0  52 65 63 65 69 76 65 0d  02 26 0e c8 8e 20 71 25  |Receive..&... q%|
000005b0  21 31 36 20 ca 0d 02 30  17 20 20 c9 20 30 20 20  |!16 ...0.  . 0  |
000005c0  20 20 20 3a 20 71 75 69  74 25 3d b9 0d 02 3a 3b  |   : quit%=...:;|
000005d0  20 20 c9 20 26 35 30 32  20 20 3a 20 f2 5f 49 6e  |  . &502  : ._In|
000005e0  74 65 72 61 63 74 69 76  65 5f 48 65 6c 70 28 71  |teractive_Help(q|
000005f0  25 21 32 30 2c 71 25 21  32 34 2c 71 25 21 33 32  |%!20,q%!24,q%!32|
00000600  2c 71 25 21 33 36 29 0d  02 44 39 20 20 c9 20 26  |,q%!36)..D9  . &|
00000610  34 30 30 43 32 3a 20 6e  65 77 74 61 73 6b 69 64  |400C2: newtaskid|
00000620  25 3d 71 25 21 34 3a 74  61 73 6b 6e 61 6d 65 24  |%=q%!4:taskname$|
00000630  3d a4 73 74 72 69 6e 67  30 28 71 25 2b 32 38 29  |=.string0(q%+28)|
00000640  0d 02 4e 43 20 20 20 20  20 20 20 20 20 20 20 20  |..NC            |
00000650  20 20 20 e7 20 74 61 73  6b 6e 61 6d 65 24 3d 22  |   . taskname$="|
00000660  41 70 70 6c 69 63 61 74  69 6f 6e 73 22 20 80 20  |Applications" . |
00000670  6e 65 77 74 61 73 6b 69  64 25 3c 3e 6d 79 69 64  |newtaskid%<>myid|
00000680  25 20 8c 0d 02 58 1c 20  20 20 20 20 20 20 20 20  |% ...X.         |
00000690  20 20 20 20 20 20 20 20  71 75 69 74 25 3d b9 0d  |        quit%=..|
000006a0  02 62 14 20 20 20 20 20  20 20 20 20 20 20 20 20  |.b.             |
000006b0  20 20 cd 0d 02 6c 05 cb  0d 02 76 05 e1 0d 02 80  |  ...l....v.....|
000006c0  04 0d 02 8a 11 dd 20 f2  5f 4d 6f 64 65 5f 49 6e  |...... ._Mode_In|
000006d0  66 6f 0d 02 94 3e 21 71  25 3d 31 33 30 3a 71 25  |fo...>!q%=130:q%|
000006e0  21 34 3d 31 33 31 3a 71  25 21 38 3d 2d 31 3a c8  |!4=131:q%!8=-1:.|
000006f0  99 22 4f 53 5f 52 65 61  64 56 64 75 56 61 72 69  |."OS_ReadVduVari|
00000700  61 62 6c 65 73 22 2c 71  25 2c 71 25 2b 31 32 38  |ables",q%,q%+128|
00000710  0d 02 9e 29 c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |...).."OS_ReadMo|
00000720  64 65 56 61 72 69 61 62  6c 65 22 2c eb 2c 34 20  |deVariable",.,4 |
00000730  b8 20 2c 2c 58 65 69 67  25 0d 02 a8 29 c8 99 22  |. ,,Xeig%...).."|
00000740  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00000750  62 6c 65 22 2c eb 2c 35  20 b8 20 2c 2c 59 65 69  |ble",.,5 . ,,Yei|
00000760  67 25 0d 02 b2 3b 46 61  72 5f 58 25 3d 28 28 71  |g%...;Far_X%=((q|
00000770  25 21 31 32 38 29 2b 31  29 2a 32 5e 58 65 69 67  |%!128)+1)*2^Xeig|
00000780  25 3a 46 61 72 5f 59 25  3d 28 28 71 25 21 31 33  |%:Far_Y%=((q%!13|
00000790  32 29 2b 31 29 2a 32 5e  59 65 69 67 25 0d 02 bc  |2)+1)*2^Yeig%...|
000007a0  05 e1 0d 02 c6 04 0d 02  d0 39 dd 20 f2 5f 49 6e  |.........9. ._In|
000007b0  74 65 72 61 63 74 69 76  65 5f 48 65 6c 70 28 6d  |teractive_Help(m|
000007c0  6f 75 73 65 5f 78 25 2c  6d 6f 75 73 65 5f 79 25  |ouse_x%,mouse_y%|
000007d0  2c 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 29 0d  |,window%,icon%).|
000007e0  02 da 25 71 25 21 31 32  3d 71 25 21 38 3a 71 25  |..%q%!12=q%!8:q%|
000007f0  21 31 36 3d 26 35 30 33  3a 68 65 6c 70 25 3d 71  |!16=&503:help%=q|
00000800  25 2b 32 30 0d 02 e4 10  c8 8e 20 77 69 6e 64 6f  |%+20...... windo|
00000810  77 25 20 ca 0d 02 ee 7f  20 20 f4 57 48 45 4e 20  |w% .....  .WHEN |
00000820  2d 32 20 3a 20 49 46 20  69 63 6f 6e 25 3d 77 61  |-2 : IF icon%=wa|
00000830  72 6e 69 63 6f 6e 25 20  54 48 45 4e 20 50 52 4f  |rnicon% THEN PRO|
00000840  43 5f 48 65 6c 70 28 22  54 68 69 73 20 69 73 20  |C_Help("This is |
00000850  74 68 65 20 41 70 70 6c  69 63 61 74 69 6f 6e 73  |the Applications|
00000860  20 69 63 6f 6e 2e 7c 4d  43 6c 69 63 6b 20 6f 6e  | icon.|MClick on|
00000870  20 69 74 20 74 6f 20 72  75 6e 20 74 68 65 20 41  | it to run the A|
00000880  70 70 6c 69 63 61 74 69  6f 6e 73 20 51 75 69 7a  |pplications Quiz|
00000890  2e 22 29 0d 02 f8 05 cb  0d 03 02 23 3f 68 65 6c  |.")........#?hel|
000008a0  70 25 3d 30 3a 21 71 25  3d 28 68 65 6c 70 25 2b  |p%=0:!q%=(help%+|
000008b0  32 34 2d 71 25 29 80 20  ac 20 33 0d 03 0c 24 c8  |24-q%). . 3...$.|
000008c0  99 20 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |. "Wimp_SendMess|
000008d0  61 67 65 22 2c 31 37 2c  71 25 2c 71 25 21 34 0d  |age",17,q%,q%!4.|
000008e0  03 16 05 e1 0d 03 20 04  0d 03 2a 10 dd 20 f2 5f  |...... ...*.. ._|
000008f0  48 65 6c 70 28 61 24 29  0d 03 34 13 20 24 68 65  |Help(a$)..4. $he|
00000900  6c 70 25 3d 61 24 2b 22  7c 4d 22 0d 03 3e 11 20  |lp%=a$+"|M"..>. |
00000910  68 65 6c 70 25 2b 3d a9  61 24 2b 32 0d 03 48 05  |help%+=.a$+2..H.|
00000920  e1 0d 03 52 04 0d 03 5c  40 dd 20 f2 5f 4f 70 65  |...R...\@. ._Ope|
00000930  6e 5f 57 69 6e 64 6f 77  28 21 71 25 2c 71 25 21  |n_Window(!q%,q%!|
00000940  34 2c 71 25 21 38 2c 71  25 21 31 32 2c 71 25 21  |4,q%!8,q%!12,q%!|
00000950  31 36 2c 71 25 21 32 30  2c 71 25 21 32 34 2c 71  |16,q%!20,q%!24,q|
00000960  25 21 32 38 29 0d 03 66  1b c8 99 22 57 69 6d 70  |%!28)..f..."Wimp|
00000970  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 71 25  |_OpenWindow",,q%|
00000980  0d 03 70 05 e1 0d 03 7a  04 0d 03 84 19 dd 20 f2  |..p....z...... .|
00000990  5f 43 6c 6f 73 65 5f 57  69 6e 64 6f 77 28 21 71  |_Close_Window(!q|
000009a0  25 29 0d 03 8e 1c c8 99  22 57 69 6d 70 5f 43 6c  |%)......"Wimp_Cl|
000009b0  6f 73 65 57 69 6e 64 6f  77 22 2c 2c 71 25 0d 03  |oseWindow",,q%..|
000009c0  98 05 e1 0d 03 a2 04 0d  03 ac 1c dd 20 f2 5f 49  |............ ._I|
000009d0  6e 69 74 69 61 6c 69 73  65 5f 56 61 72 69 61 62  |nitialise_Variab|
000009e0  6c 65 73 0d 03 b6 38 de  20 71 25 20 32 30 34 38  |les...8. q% 2048|
000009f0  2c 20 6d 65 6e 75 66 72  65 65 25 20 26 38 30 30  |, menufree% &800|
00000a00  2c 20 74 65 6d 70 25 20  39 31 32 38 2c 20 65 72  |, temp% 9128, er|
00000a10  72 6f 72 62 75 66 25 20  32 35 36 0d 03 c0 11 de  |rorbuf% 256.....|
00000a20  20 66 68 61 6e 64 73 25  20 32 35 36 0d 03 ca 0b  | fhands% 256....|
00000a30  ea 20 6c 6f 6f 70 25 0d  03 d4 17 e3 20 6c 6f 6f  |. loop%..... loo|
00000a40  70 25 3d 30 20 b8 20 32  35 32 20 88 20 34 0d 03  |p%=0 . 252 . 4..|
00000a50  de 15 20 20 66 68 61 6e  64 73 25 21 6c 6f 6f 70  |..  fhands%!loop|
00000a60  25 3d 30 0d 03 e8 05 ed  0d 03 f2 10 63 75 72 77  |%=0.........curw|
00000a70  73 25 3d 74 65 6d 70 25  0d 03 fc 15 6d 61 78 77  |s%=temp%....maxw|
00000a80  73 25 3d 74 65 6d 70 25  2b 32 30 34 38 0d 04 06  |s%=temp%+2048...|
00000a90  18 6d 65 6e 75 73 74 61  72 74 25 3d 6d 65 6e 75  |.menustart%=menu|
00000aa0  66 72 65 65 25 0d 04 10  1b 6d 65 6e 75 65 6e 64  |free%....menuend|
00000ab0  25 3d 6d 65 6e 75 66 72  65 65 25 2b 26 38 30 30  |%=menufree%+&800|
00000ac0  0d 04 1a 0b 6d 65 6e 75  25 3d 30 0d 04 24 0b 71  |....menu%=0..$.q|
00000ad0  75 69 74 25 3d a3 0d 04  2e 1c 76 65 72 24 3d 22  |uit%=.....ver$="|
00000ae0  31 2e 30 30 20 28 32 34  2d 53 65 70 74 2d 39 34  |1.00 (24-Sept-94|
00000af0  29 22 0d 04 38 05 e1 0d  04 42 04 0d 04 4c 16 dd  |)"..8....B...L..|
00000b00  20 f2 5f 4c 6f 61 64 5f  54 65 6d 70 6c 61 74 65  | ._Load_Template|
00000b10  73 0d 04 56 0c ea 20 73  70 61 63 65 25 0d 04 60  |s..V.. space%..`|
00000b20  10 73 70 61 63 65 25 3d  74 65 6d 70 25 0d 04 6a  |.space%=temp%..j|
00000b30  31 c8 99 22 57 69 6d 70  5f 4f 70 65 6e 54 65 6d  |1.."Wimp_OpenTem|
00000b40  70 6c 61 74 65 22 2c 2c  22 3c 41 70 70 73 24 44  |plate",,"<Apps$D|
00000b50  69 72 3e 2e 54 65 6d 70  6c 61 74 65 73 22 0d 04  |ir>.Templates"..|
00000b60  74 49 c8 99 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |tI.."Wimp_LoadTe|
00000b70  6d 70 6c 61 74 65 22 2c  2c 71 25 2c 73 70 61 63  |mplate",,q%,spac|
00000b80  65 25 2c 74 65 6d 70 25  2b 39 31 32 38 2c 66 68  |e%,temp%+9128,fh|
00000b90  61 6e 64 73 25 2c 22 49  6e 66 6f 22 20 b8 20 2c  |ands%,"Info" . ,|
00000ba0  2c 73 70 61 63 65 25 0d  04 7e 25 c8 99 22 57 69  |,space%..~%.."Wi|
00000bb0  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00000bc0  2c 2c 71 25 20 b8 20 69  6e 66 6f 25 0d 04 88 4c  |,,q% . info%...L|
00000bd0  c8 99 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |.."Wimp_LoadTemp|
00000be0  6c 61 74 65 22 2c 2c 71  25 2c 73 70 61 63 65 25  |late",,q%,space%|
00000bf0  2c 74 65 6d 70 25 2b 39  31 32 38 2c 66 68 61 6e  |,temp%+9128,fhan|
00000c00  64 73 25 2c 22 57 65 6c  63 6f 6d 65 22 20 b8 20  |ds%,"Welcome" . |
00000c10  2c 2c 73 70 61 63 65 25  0d 04 92 28 c8 99 22 57  |,,space%...(.."W|
00000c20  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00000c30  22 2c 2c 71 25 20 b8 20  77 65 6c 63 6f 6d 65 25  |",,q% . welcome%|
00000c40  0d 04 9c 1a c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |......"Wimp_Clos|
00000c50  65 54 65 6d 70 6c 61 74  65 22 0d 04 a6 11 63 75  |eTemplate"....cu|
00000c60  72 77 73 25 3d 73 70 61  63 65 25 0d 04 b0 05 e1  |rws%=space%.....|
00000c70  0d 04 ba 04 0d 04 c4 14  dd 20 f2 5f 4c 6f 61 64  |......... ._Load|
00000c80  5f 53 70 72 69 74 65 73  0d 04 ce 2d 53 25 3d 8e  |_Sprites...-S%=.|
00000c90  22 3c 41 70 70 73 24 44  69 72 3e 2e 21 53 70 72  |"<Apps$Dir>.!Spr|
00000ca0  69 74 65 73 22 3a 54 25  3d a2 23 53 25 2b 31 36  |ites":T%=.#S%+16|
00000cb0  3a d9 23 53 25 0d 04 d8  11 de 20 73 70 72 69 74  |:.#S%..... sprit|
00000cc0  65 73 25 20 54 25 0d 04  e2 1d 21 73 70 72 69 74  |es% T%....!sprit|
00000cd0  65 73 25 3d 54 25 3a 73  70 72 69 74 65 73 25 21  |es%=T%:sprites%!|
00000ce0  38 3d 31 0d 04 ec 21 c8  99 22 4f 53 5f 53 70 72  |8=1...!.."OS_Spr|
00000cf0  69 74 65 4f 70 22 2c 26  31 30 30 2c 73 70 72 69  |iteOp",&100,spri|
00000d00  74 65 73 25 0d 04 f6 37  c8 99 22 4f 53 5f 53 70  |tes%...7.."OS_Sp|
00000d10  72 69 74 65 4f 70 22 2c  26 31 30 41 2c 73 70 72  |riteOp",&10A,spr|
00000d20  69 74 65 73 25 2c 22 3c  41 70 70 73 24 44 69 72  |ites%,"<Apps$Dir|
00000d30  3e 2e 21 53 70 72 69 74  65 73 22 0d 05 00 05 e1  |>.!Sprites".....|
00000d40  0d 05 0a 04 0d 05 14 14  dd 20 f2 5f 49 6e 73 74  |......... ._Inst|
00000d50  61 6c 6c 5f 49 63 6f 6e  0d 05 1e 54 21 71 25 3d  |all_Icon...T!q%=|
00000d60  2d 32 3a 71 25 21 34 3d  30 3a 71 25 21 38 3d 2d  |-2:q%!4=0:q%!8=-|
00000d70  31 36 3a 71 25 21 31 32  3d 37 35 3a 71 25 21 31  |16:q%!12=75:q%!1|
00000d80  36 3d 39 32 3a 71 25 21  32 30 3d 25 30 30 30 31  |6=92:q%!20=%0001|
00000d90  30 31 31 31 30 30 30 30  30 30 30 30 30 30 31 31  |0111000000000011|
00000da0  30 30 30 31 30 30 30 30  31 30 31 31 0d 05 28 15  |000100001011..(.|
00000db0  73 70 6e 61 6d 65 24 3d  22 73 21 41 70 70 73 32  |spname$="s!Apps2|
00000dc0  22 0d 05 32 12 69 63 74  65 78 74 24 3d 22 41 70  |"..2.ictext$="Ap|
00000dd0  70 73 22 0d 05 3c 1b de  20 73 70 73 74 6f 72 65  |ps"..<.. spstore|
00000de0  25 20 a9 28 73 70 6e 61  6d 65 24 29 2b 31 0d 05  |% .(spname$)+1..|
00000df0  46 1d de 20 74 65 78 74  73 74 6f 72 65 25 20 a9  |F.. textstore% .|
00000e00  28 69 63 74 65 78 74 24  29 2b 31 0d 05 50 17 24  |(ictext$)+1..P.$|
00000e10  28 73 70 73 74 6f 72 65  25 29 3d 73 70 6e 61 6d  |(spstore%)=spnam|
00000e20  65 24 0d 05 5a 19 24 28  74 65 78 74 73 74 6f 72  |e$..Z.$(textstor|
00000e30  65 25 29 3d 69 63 74 65  78 74 24 0d 05 64 23 71  |e%)=ictext$..d#q|
00000e40  25 21 32 34 3d 74 65 78  74 73 74 6f 72 65 25 3a  |%!24=textstore%:|
00000e50  71 25 21 32 38 3d 73 70  73 74 6f 72 65 25 0d 05  |q%!28=spstore%..|
00000e60  6e 21 71 25 21 33 32 3d  a9 28 73 70 6e 61 6d 65  |n!q%!32=.(spname|
00000e70  24 29 2b a9 28 69 63 74  65 78 74 24 29 2b 32 0d  |$)+.(ictext$)+2.|
00000e80  05 78 28 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.x(.. "Wimp_Crea|
00000e90  74 65 49 63 6f 6e 22 2c  2c 71 25 20 b8 20 77 61  |teIcon",,q% . wa|
00000ea0  72 6e 69 63 6f 6e 25 0d  05 82 05 e1 0d 05 8c 04  |rnicon%.........|
00000eb0  0d 05 96 12 dd 20 a4 73  74 72 69 6e 67 30 28 61  |..... .string0(a|
00000ec0  25 29 0d 05 a0 0d ea 61  24 3a 61 24 3d 22 22 0d  |%).....a$:a$="".|
00000ed0  05 aa 0a c8 95 20 3f 61  25 0d 05 b4 0c 61 24 2b  |..... ?a%....a$+|
00000ee0  3d bd 3f 61 25 0d 05 be  09 61 25 2b 3d 31 0d 05  |=.?a%....a%+=1..|
00000ef0  c8 05 ce 0d 05 d2 07 3d  61 24 0d 05 dc 04 0d 05  |.......=a$......|
00000f00  e6 1d dd 20 a4 5f 4c 65  61 66 28 70 72 6f 63 65  |... ._Leaf(proce|
00000f10  73 73 5f 73 74 72 69 6e  67 24 29 0d 05 f0 13 ea  |ss_string$).....|
00000f20  20 73 74 72 69 6e 67 24  2c 6c 6f 6f 70 25 0d 05  | string$,loop%..|
00000f30  fa 1c 6c 6f 6f 70 25 3d  a9 28 70 72 6f 63 65 73  |..loop%=.(proces|
00000f40  73 5f 73 74 72 69 6e 67  24 29 0d 06 04 25 c8 95  |s_string$)...%..|
00000f50  20 c1 70 72 6f 63 65 73  73 5f 73 74 72 69 6e 67  | .process_string|
00000f60  24 2c 6c 6f 6f 70 25 2c  31 29 3c 3e 22 2e 22 0d  |$,loop%,1)<>".".|
00000f70  06 0e 2d 73 74 72 69 6e  67 24 3d c1 70 72 6f 63  |..-string$=.proc|
00000f80  65 73 73 5f 73 74 72 69  6e 67 24 2c 6c 6f 6f 70  |ess_string$,loop|
00000f90  25 2c 31 29 2b 73 74 72  69 6e 67 24 0d 06 18 0c  |%,1)+string$....|
00000fa0  6c 6f 6f 70 25 2d 3d 31  0d 06 22 05 ce 0d 06 2c  |loop%-=1.."....,|
00000fb0  0c 3d 73 74 72 69 6e 67  24 0d 06 36 04 0d 06 40  |.=string$..6...@|
00000fc0  12 dd 20 f2 5f 4d 61 6b  65 5f 4d 65 6e 75 73 0d  |.. ._Make_Menus.|
00000fd0  06 4a 29 f4 20 53 70 65  63 69 61 6c 20 63 68 61  |.J). Special cha|
00000fe0  72 61 63 74 65 72 73 20  69 6e 20 6d 65 6e 75 20  |racters in menu |
00000ff0  73 74 72 69 6e 67 73 3a  0d 06 54 29 f4 20 23 20  |strings:..T). # |
00001000  62 65 66 6f 72 65 20 66  69 72 73 74 20 69 74 65  |before first ite|
00001010  6d 20 69 6e 64 69 63 61  74 65 73 20 54 49 54 4c  |m indicates TITL|
00001020  45 0d 06 5e 46 f4 20 23  20 61 73 20 6c 61 73 74  |E..^F. # as last|
00001030  20 63 68 61 72 61 63 74  65 72 20 6f 66 20 61 6e  | character of an|
00001040  20 69 74 65 6d 20 69 6e  64 69 63 61 74 65 73 20  | item indicates |
00001050  61 20 64 6f 74 74 65 64  20 6c 69 6e 65 20 61 66  |a dotted line af|
00001060  74 65 72 20 69 74 2e 0d  06 68 4a f4 20 24 20 66  |ter it...hJ. $ f|
00001070  6f 6c 6c 6f 77 65 64 20  62 79 20 61 20 44 49 4d  |ollowed by a DIM|
00001080  6d 65 64 20 62 6c 6f 63  6b 20 6e 61 6d 65 20 69  |med block name i|
00001090  73 20 61 20 77 72 69 74  65 61 62 6c 65 20 69 63  |s a writeable ic|
000010a0  6f 6e 20 28 6c 65 6e 67  74 68 20 69 6e 20 28 29  |on (length in ()|
000010b0  29 0d 06 72 3e f4 20 3e  20 66 6f 6c 6c 6f 77 65  |)..r>. > followe|
000010c0  64 20 62 79 20 61 20 76  61 72 69 61 62 6c 65 20  |d by a variable |
000010d0  3d 20 61 20 73 75 62 6d  65 6e 75 20 6f 72 20 73  |= a submenu or s|
000010e0  75 62 77 69 6e 64 6f 77  20 68 61 6e 64 6c 65 0d  |ubwindow handle.|
000010f0  06 7c 46 f4 20 7d 20 66  6f 6c 6c 6f 77 65 64 20  |.|F. } followed |
00001100  62 79 20 61 20 76 61 72  69 61 62 6c 65 20 3d 20  |by a variable = |
00001110  61 20 6d 61 6e 75 61 6c  6c 79 2d 67 65 6e 65 72  |a manually-gener|
00001120  61 74 65 64 20 73 75 62  77 69 6e 64 6f 77 20 68  |ated subwindow h|
00001130  61 6e 64 6c 65 0d 06 86  3f f4 20 2f 20 61 73 20  |andle...?. / as |
00001140  6c 61 73 74 20 63 68 61  72 61 63 74 65 72 20 6f  |last character o|
00001150  66 20 61 6e 20 69 74 65  6d 20 6d 65 61 6e 73 20  |f an item means |
00001160  69 74 65 6d 20 77 69 6c  6c 20 62 65 20 69 6e 20  |item will be in |
00001170  67 72 65 79 0d 06 90 3e  f4 20 5c 20 61 73 20 6c  |grey...>. \ as l|
00001180  61 73 74 20 63 68 61 72  61 63 74 65 72 20 6f 66  |ast character of|
00001190  20 61 6e 20 69 74 65 6d  20 6d 65 61 6e 73 20 69  | an item means i|
000011a0  74 65 6d 20 77 69 6c 6c  20 62 65 20 74 69 63 6b  |tem will be tick|
000011b0  65 64 0d 06 9a 3a f4 20  a4 20 66 6f 6c 6c 6f 77  |ed...:. . follow|
000011c0  65 64 20 62 79 20 61 20  74 77 6f 20 64 69 67 69  |ed by a two digi|
000011d0  74 20 6e 75 6d 62 65 72  20 3d 20 62 61 63 6b 67  |t number = backg|
000011e0  72 6f 75 6e 64 20 63 6f  6c 6f 75 72 0d 06 a4 3a  |round colour...:|
000011f0  f4 20 7c 20 66 6f 6c 6c  6f 77 65 64 20 62 79 20  |. | followed by |
00001200  61 20 74 77 6f 20 64 69  67 69 74 20 6e 75 6d 62  |a two digit numb|
00001210  65 72 20 3d 20 66 6f 72  65 67 72 6f 75 6e 64 20  |er = foreground |
00001220  63 6f 6c 6f 75 72 0d 06  ae 43 f4 20 7b 20 61 74  |colour...C. { at|
00001230  20 65 6e 64 20 6f 66 20  74 69 74 6c 65 20 69 6e  | end of title in|
00001240  64 69 63 61 74 65 73 20  74 68 61 74 20 6d 65 6e  |dicates that men|
00001250  75 20 69 74 65 6d 73 20  73 68 6f 75 6c 64 20 62  |u items should b|
00001260  65 20 63 65 6e 74 72 65  64 0d 06 b8 04 0d 06 c2  |e centred.......|
00001270  18 6d 65 6e 75 66 72 65  65 25 3d 6d 65 6e 75 73  |.menufree%=menus|
00001280  74 61 72 74 25 0d 06 cc  25 e3 20 6c 6f 6f 70 25  |tart%...%. loop%|
00001290  3d 6d 65 6e 75 73 74 61  72 74 25 20 b8 20 6d 65  |=menustart% . me|
000012a0  6e 75 65 6e 64 25 20 88  20 34 0d 06 d6 0c 21 6c  |nuend% . 4....!l|
000012b0  6f 6f 70 25 3d 30 0d 06  e0 05 ed 0d 06 ea 3b 69  |oop%=0........;i|
000012c0  63 62 61 72 6d 65 6e 75  25 3d a4 5f 43 72 65 61  |cbarmenu%=._Crea|
000012d0  74 65 5f 4d 65 6e 75 28  22 23 41 70 70 73 2c 49  |te_Menu("#Apps,I|
000012e0  6e 66 6f 3e 69 6e 66 6f  25 2c 51 75 69 74 22 2c  |nfo>info%,Quit",|
000012f0  22 22 2c 22 22 29 0d 06  f4 05 e1 0d 06 fe 04 0d  |"","")..........|
00001300  07 08 28 dd 20 a4 5f 43  72 65 61 74 65 5f 4d 65  |..(. ._Create_Me|
00001310  6e 75 28 6d 65 6e 75 24  2c 6d 65 6e 75 32 24 2c  |nu(menu$,menu2$,|
00001320  6d 65 6e 75 33 24 29 0d  07 12 34 e7 20 6d 65 6e  |menu3$)...4. men|
00001330  75 66 72 65 65 25 2b 32  38 20 3e 20 6d 65 6e 75  |ufree%+28 > menu|
00001340  65 6e 64 25 20 8c 20 85  20 31 2c 22 4d 65 6e 75  |end% . . 1,"Menu|
00001350  20 61 72 65 61 20 66 75  6c 6c 22 0d 07 1c 0b ea  | area full".....|
00001360  20 6d 25 2c 69 25 0d 07  26 16 6d 65 6e 75 70 74  | m%,i%..&.menupt|
00001370  72 25 3d 6d 65 6e 75 66  72 65 65 25 0d 07 30 08  |r%=menufree%..0.|
00001380  69 25 3d 30 0d 07 3a 40  e7 20 c0 6d 65 6e 75 24  |i%=0..:@. .menu$|
00001390  2c 31 29 3d 22 23 22 20  8c 20 69 25 3d 31 3a 6d  |,1)="#" . i%=1:m|
000013a0  65 6e 75 74 69 74 6c 65  24 3d a4 5f 50 61 72 28  |enutitle$=._Par(|
000013b0  22 2c 22 29 20 8b 20 6d  65 6e 75 74 69 74 6c 65  |",") . menutitle|
000013c0  24 3d 22 22 0d 07 44 1a  e7 20 c2 6d 65 6e 75 74  |$=""..D.. .menut|
000013d0  69 74 6c 65 24 2c 31 29  3d 22 7b 22 20 8c 0d 07  |itle$,1)="{" ...|
000013e0  4e 0e 62 6f 74 69 63 6f  6e 25 3d 39 0d 07 58 2b  |N.boticon%=9..X+|
000013f0  6d 65 6e 75 74 69 74 6c  65 24 3d c0 6d 65 6e 75  |menutitle$=.menu|
00001400  74 69 74 6c 65 24 2c a9  28 6d 65 6e 75 74 69 74  |title$,.(menutit|
00001410  6c 65 24 29 2d 31 29 0d  07 62 05 cc 0d 07 6c 0e  |le$)-1)..b....l.|
00001420  62 6f 74 69 63 6f 6e 25  3d 31 0d 07 76 05 cd 0d  |boticon%=1..v...|
00001430  07 80 18 24 6d 65 6e 75  70 74 72 25 3d 6d 65 6e  |...$menuptr%=men|
00001440  75 74 69 74 6c 65 24 0d  07 8a 3b 6d 65 6e 75 70  |utitle$...;menup|
00001450  74 72 25 3f 31 32 3d 37  3a 6d 65 6e 75 70 74 72  |tr%?12=7:menuptr|
00001460  25 3f 31 33 3d 32 3a 6d  65 6e 75 70 74 72 25 3f  |%?13=2:menuptr%?|
00001470  31 34 3d 37 3a 6d 65 6e  75 70 74 72 25 3f 31 35  |14=7:menuptr%?15|
00001480  3d 30 0d 07 94 33 6d 65  6e 75 70 74 72 25 21 31  |=0...3menuptr%!1|
00001490  36 3d 31 39 36 2d 32 34  3a 6d 65 6e 75 70 74 72  |6=196-24:menuptr|
000014a0  25 21 32 30 3d 34 34 3a  6d 65 6e 75 70 74 72 25  |%!20=44:menuptr%|
000014b0  21 32 34 3d 30 0d 07 9e  24 6d 65 6e 75 70 74 72  |!24=0...$menuptr|
000014c0  25 2b 3d 32 38 3a 6d 61  78 78 25 3d a9 6d 65 6e  |%+=28:maxx%=.men|
000014d0  75 74 69 74 6c 65 24 2d  33 0d 07 a8 05 f5 0d 07  |utitle$-3.......|
000014e0  b2 14 69 74 65 6d 24 3d  a4 5f 50 61 72 28 22 2c  |..item$=._Par(",|
000014f0  22 29 0d 07 bc 12 e7 20  69 74 65 6d 24 3d 22 2b  |")..... item$="+|
00001500  2b 22 20 8c 0d 07 c6 08  69 25 3d 30 0d 07 d0 10  |+" .....i%=0....|
00001510  6d 65 6e 75 24 3d 6d 65  6e 75 32 24 0d 07 da 05  |menu$=menu2$....|
00001520  cc 0d 07 e4 13 e7 20 69  74 65 6d 24 3d 22 2b 2b  |...... item$="++|
00001530  2b 22 20 8c 0d 07 ee 08  69 25 3d 30 0d 07 f8 10  |+" .....i%=0....|
00001540  6d 65 6e 75 24 3d 6d 65  6e 75 33 24 0d 08 02 05  |menu$=menu3$....|
00001550  cc 0d 08 0c 16 f2 5f 4d  65 6e 75 5f 49 74 65 6d  |......_Menu_Item|
00001560  28 69 74 65 6d 24 29 0d  08 16 05 cd 0d 08 20 05  |(item$)....... .|
00001570  cd 0d 08 2a 0e fd 20 69  74 65 6d 24 3d 22 22 0d  |...*.. item$="".|
00001580  08 34 1b e7 20 6d 61 78  78 25 20 3e 20 32 30 20  |.4.. maxx% > 20 |
00001590  8c 20 6d 61 78 78 25 3d  32 30 0d 08 3e 24 6d 25  |. maxx%=20..>$m%|
000015a0  3d 6d 65 6e 75 66 72 65  65 25 3a 6d 25 21 31 36  |=menufree%:m%!16|
000015b0  3d 28 6d 61 78 78 25 2a  38 2b 36 29 2a 32 0d 08  |=(maxx%*8+6)*2..|
000015c0  48 16 6d 65 6e 75 66 72  65 65 25 3d 6d 65 6e 75  |H.menufree%=menu|
000015d0  70 74 72 25 0d 08 52 07  3d 6d 25 0d 08 5c 04 0d  |ptr%..R.=m%..\..|
000015e0  08 66 18 dd 20 f2 5f 4d  65 6e 75 5f 49 74 65 6d  |.f.. ._Menu_Item|
000015f0  28 74 65 78 74 24 29 0d  08 70 32 e7 20 74 65 78  |(text$)..p2. tex|
00001600  74 24 3d 22 22 20 8c 20  6d 65 6e 75 70 74 72 25  |t$="" . menuptr%|
00001610  21 2d 32 34 3d 28 6d 65  6e 75 70 74 72 25 21 2d  |!-24=(menuptr%!-|
00001620  32 34 29 84 26 38 30 3a  e1 0d 08 7a 33 e7 20 6d  |24).&80:...z3. m|
00001630  65 6e 75 70 74 72 25 2b  32 34 20 3e 20 6d 65 6e  |enuptr%+24 > men|
00001640  75 65 6e 64 25 20 8c 20  85 20 31 2c 22 4d 65 6e  |uend% . . 1,"Men|
00001650  75 20 61 72 65 61 20 66  75 6c 6c 22 0d 08 84 10  |u area full"....|
00001660  ea 20 69 25 2c 66 6c 67  25 2c 56 25 0d 08 8e 0c  |. i%,flg%,V%....|
00001670  66 6c 67 25 3d 26 30 30  0d 08 98 12 69 25 3d a7  |flg%=&00....i%=.|
00001680  74 65 78 74 24 2c 22 3e  22 29 0d 08 a2 0a e7 69  |text$,">").....i|
00001690  25 3e 30 8c 0d 08 ac 19  73 75 62 70 74 72 25 3d  |%>0.....subptr%=|
000016a0  a0 c1 74 65 78 74 24 2c  69 25 2b 31 29 0d 08 b6  |..text$,i%+1)...|
000016b0  16 74 65 78 74 24 3d c0  74 65 78 74 24 2c 69 25  |.text$=.text$,i%|
000016c0  2d 31 29 0d 08 c0 05 cc  0d 08 ca 13 69 69 25 3d  |-1).........ii%=|
000016d0  a7 74 65 78 74 24 2c 22  7d 22 29 0d 08 d4 0b e7  |.text$,"}").....|
000016e0  69 69 25 3e 30 8c 0d 08  de 1a 73 75 62 70 74 72  |ii%>0.....subptr|
000016f0  25 3d a0 c1 74 65 78 74  24 2c 69 69 25 2b 31 29  |%=..text$,ii%+1)|
00001700  0d 08 e8 17 74 65 78 74  24 3d c0 74 65 78 74 24  |....text$=.text$|
00001710  2c 69 69 25 2d 31 29 0d  08 f2 0d 66 6c 67 25 2b  |,ii%-1)....flg%+|
00001720  3d 26 30 38 0d 08 fc 05  cc 0d 09 06 0e 73 75 62  |=&08.........sub|
00001730  70 74 72 25 3d 2d 31 0d  09 10 05 cd 0d 09 1a 05  |ptr%=-1.........|
00001740  cd 0d 09 24 36 e7 20 c2  74 65 78 74 24 2c 31 29  |...$6. .text$,1)|
00001750  3d 22 23 22 20 8c 20 74  65 78 74 24 3d c0 74 65  |="#" . text$=.te|
00001760  78 74 24 2c a9 74 65 78  74 24 2d 31 29 3a 66 6c  |xt$,.text$-1):fl|
00001770  67 25 2b 3d 26 30 32 0d  09 2e 36 e7 20 c2 74 65  |g%+=&02...6. .te|
00001780  78 74 24 2c 31 29 3d 22  5c 22 20 8c 20 74 65 78  |xt$,1)="\" . tex|
00001790  74 24 3d c0 74 65 78 74  24 2c a9 74 65 78 74 24  |t$=.text$,.text$|
000017a0  2d 31 29 3a 66 6c 67 25  2b 3d 26 30 31 0d 09 38  |-1):flg%+=&01..8|
000017b0  16 69 69 69 25 20 3d 20  a7 74 65 78 74 24 2c 22  |.iii% = .text$,"|
000017c0  7c 22 29 0d 09 42 17 69  69 69 69 25 20 3d 20 a7  ||")..B.iiii% = .|
000017d0  74 65 78 74 24 2c 22 a4  22 29 0d 09 4c 1c e7 20  |text$,".")..L.. |
000017e0  69 69 69 25 20 3d 20 30  20 80 20 69 69 69 69 25  |iii% = 0 . iiii%|
000017f0  20 3d 20 30 20 8c 0d 09  56 1f 6d 66 67 25 3d 30  | = 0 ...V.mfg%=0|
00001800  20 3c 3c 20 32 38 3a 6d  62 67 25 20 3d 20 37 20  | << 28:mbg% = 7 |
00001810  3c 3c 20 32 34 0d 09 60  05 cc 0d 09 6a 0d c8 8e  |<< 24..`....j...|
00001820  20 69 69 69 25 20 ca 0d  09 74 14 c9 20 30 3a 6d  | iii% ...t.. 0:m|
00001830  66 67 25 3d 30 20 3c 3c  20 32 38 0d 09 7e 05 7f  |fg%=0 << 28..~..|
00001840  0d 09 88 29 6d 66 67 25  3d 28 bb 28 c1 74 65 78  |...)mfg%=(.(.tex|
00001850  74 24 2c 69 69 69 25 2b  31 2c 32 29 29 20 83 20  |t$,iii%+1,2)) . |
00001860  31 36 29 20 3c 3c 20 32  38 0d 09 92 27 74 65 78  |16) << 28...'tex|
00001870  74 24 3d c0 74 65 78 74  24 2c 69 69 69 25 2d 31  |t$=.text$,iii%-1|
00001880  29 2b c1 74 65 78 74 24  2c 69 69 69 25 2b 33 29  |)+.text$,iii%+3)|
00001890  0d 09 9c 05 cb 0d 09 a6  17 69 69 69 69 25 20 3d  |.........iiii% =|
000018a0  20 a7 74 65 78 74 24 2c  22 a4 22 29 0d 09 b0 0e  | .text$,".")....|
000018b0  c8 8e 20 69 69 69 69 25  20 ca 0d 09 ba 14 c9 20  |.. iiii% ...... |
000018c0  30 3a 6d 62 67 25 3d 37  20 3c 3c 20 32 34 0d 09  |0:mbg%=7 << 24..|
000018d0  c4 05 7f 0d 09 ce 2a 6d  62 67 25 3d 28 bb 28 c1  |......*mbg%=(.(.|
000018e0  74 65 78 74 24 2c 69 69  69 69 25 2b 31 2c 32 29  |text$,iiii%+1,2)|
000018f0  29 20 83 20 31 36 29 20  3c 3c 20 32 34 0d 09 d8  |) . 16) << 24...|
00001900  29 74 65 78 74 24 3d c0  74 65 78 74 24 2c 69 69  |)text$=.text$,ii|
00001910  69 69 25 2d 31 29 2b c1  74 65 78 74 24 2c 69 69  |ii%-1)+.text$,ii|
00001920  69 69 25 2b 33 29 0d 09  e2 05 cb 0d 09 ec 05 cd  |ii%+3)..........|
00001930  0d 09 f6 13 6d 65 6e 75  70 74 72 25 21 30 3d 66  |....menuptr%!0=f|
00001940  6c 67 25 0d 0a 00 16 6d  65 6e 75 70 74 72 25 21  |lg%....menuptr%!|
00001950  34 3d 73 75 62 70 74 72  25 0d 0a 0a 25 6d 65 6e  |4=subptr%...%men|
00001960  75 70 74 72 25 21 38 3d  6d 66 67 25 2b 6d 62 67  |uptr%!8=mfg%+mbg|
00001970  25 2b 26 32 30 2b 62 6f  74 69 63 6f 6e 25 0d 0a  |%+&20+boticon%..|
00001980  14 4c e7 20 c2 74 65 78  74 24 2c 31 29 3d 22 2f  |.L. .text$,1)="/|
00001990  22 20 8c 20 74 65 78 74  24 3d c0 74 65 78 74 24  |" . text$=.text$|
000019a0  2c a9 74 65 78 74 24 2d  31 29 3a 6d 65 6e 75 70  |,.text$-1):menup|
000019b0  74 72 25 21 38 3d 28 6d  65 6e 75 70 74 72 25 21  |tr%!8=(menuptr%!|
000019c0  38 20 84 20 31 3c 3c 32  32 29 0d 0a 1e 13 e7 c0  |8 . 1<<22)......|
000019d0  74 65 78 74 24 2c 31 29  3d 22 24 22 8c 0d 0a 28  |text$,1)="$"...(|
000019e0  13 20 21 6d 65 6e 75 70  74 72 25 2b 3d 26 30 34  |. !menuptr%+=&04|
000019f0  0d 0a 32 15 20 6d 65 6e  75 70 74 72 25 21 38 2b  |..2. menuptr%!8+|
00001a00  3d 26 31 30 38 0d 0a 3c  13 20 69 25 3d a7 74 65  |=&108..<. i%=.te|
00001a10  78 74 24 2c 22 28 22 29  0d 0a 46 34 20 e7 69 25  |xt$,"(")..F4 .i%|
00001a20  3e 30 8c 4c 25 3d bb c1  74 65 78 74 24 2c 69 25  |>0.L%=..text$,i%|
00001a30  2b 31 29 3a 74 65 78 74  24 3d c0 74 65 78 74 24  |+1):text$=.text$|
00001a40  2c 69 25 2d 31 29 8b 4c  25 3d 31 32 0d 0a 50 0c  |,i%-1).L%=12..P.|
00001a50  20 56 25 20 3d 20 2d 31  0d 0a 5a 1b 20 6d 65 6e  | V% = -1..Z. men|
00001a60  75 70 74 72 25 21 31 32  3d a0 c1 74 65 78 74 24  |uptr%!12=..text$|
00001a70  2c 32 29 0d 0a 64 13 20  6d 65 6e 75 70 74 72 25  |,2)..d. menuptr%|
00001a80  21 31 36 3d 2d 31 0d 0a  6e 13 20 6d 65 6e 75 70  |!16=-1..n. menup|
00001a90  74 72 25 21 32 30 3d 4c  25 0d 0a 78 13 20 74 65  |tr%!20=L%..x. te|
00001aa0  78 74 24 3d c4 4c 25 2c  22 20 22 29 0d 0a 82 05  |xt$=.L%," ")....|
00001ab0  cc 0d 0a 8c 11 20 e7 a9  74 65 78 74 24 3c 3d 31  |..... ..text$<=1|
00001ac0  32 8c 0d 0a 96 19 20 24  28 6d 65 6e 75 70 74 72  |2..... $(menuptr|
00001ad0  25 2b 31 32 29 3d 74 65  78 74 24 0d 0a a0 06 20  |%+12)=text$.... |
00001ae0  cc 0d 0a aa 27 20 49 25  3d a4 5f 57 6f 72 6b 73  |....' I%=._Works|
00001af0  70 61 63 65 28 a9 74 65  78 74 24 2b 31 29 3a 24  |pace(.text$+1):$|
00001b00  49 25 3d 74 65 78 74 24  0d 0a b4 37 20 6d 65 6e  |I%=text$...7 men|
00001b10  75 70 74 72 25 21 31 32  3d 49 25 3a 6d 65 6e 75  |uptr%!12=I%:menu|
00001b20  70 74 72 25 21 31 36 3d  2d 31 3a 6d 65 6e 75 70  |ptr%!16=-1:menup|
00001b30  74 72 25 21 32 30 3d a9  74 65 78 74 24 2b 31 0d  |tr%!20=.text$+1.|
00001b40  0a be 21 20 6d 65 6e 75  70 74 72 25 21 38 3d 6d  |..! menuptr%!8=m|
00001b50  65 6e 75 70 74 72 25 21  38 20 84 20 26 31 30 30  |enuptr%!8 . &100|
00001b60  0d 0a c8 06 20 cd 0d 0a  d2 05 cd 0d 0a dc 1f e7  |.... ...........|
00001b70  a9 74 65 78 74 24 3e 6d  61 78 78 25 20 8c 6d 61  |.text$>maxx% .ma|
00001b80  78 78 25 3d a9 74 65 78  74 24 0d 0a e6 10 6d 65  |xx%=.text$....me|
00001b90  6e 75 70 74 72 25 2b 3d  32 34 0d 0a f0 05 e1 0d  |nuptr%+=24......|
00001ba0  0a fa 04 0d 0b 04 11 dd  20 a4 5f 50 61 72 28 73  |........ ._Par(s|
00001bb0  65 70 24 29 0d 0b 0e 25  69 31 25 3d 69 25 2b 31  |ep$)...%i1%=i%+1|
00001bc0  3a 69 25 3d a7 6d 65 6e  75 24 2b 73 65 70 24 2c  |:i%=.menu$+sep$,|
00001bd0  73 65 70 24 2c 69 31 25  29 0d 0b 18 17 3d c1 6d  |sep$,i1%)....=.m|
00001be0  65 6e 75 24 2c 69 31 25  2c 69 25 2d 69 31 25 29  |enu$,i1%,i%-i1%)|
00001bf0  0d 0b 22 04 0d 0b 2c 15  dd 20 a4 5f 57 6f 72 6b  |.."...,.. ._Work|
00001c00  73 70 61 63 65 28 4c 25  29 0d 0b 36 33 e7 20 63  |space(L%)..63. c|
00001c10  75 72 77 73 25 2b 4c 25  3e 6d 61 78 77 73 25 20  |urws%+L%>maxws% |
00001c20  8c 20 85 20 31 2c 22 4e  6f 20 6d 6f 72 65 20 62  |. . 1,"No more b|
00001c30  75 66 66 65 72 20 73 70  61 63 65 22 0d 0b 40 19  |uffer space"..@.|
00001c40  63 75 72 77 73 25 2b 3d  4c 25 3a 3d 63 75 72 77  |curws%+=L%:=curw|
00001c50  73 25 2d 4c 25 0d 0b 4a  04 0d 0b 54 1b dd 20 a4  |s%-L%..J...T.. .|
00001c60  5f 55 70 70 65 72 28 73  74 72 5f 74 6f 5f 63 6f  |_Upper(str_to_co|
00001c70  6e 76 24 29 0d 0b 5e 0e  73 74 63 6c 6f 6f 70 25  |nv$)..^.stcloop%|
00001c80  3d 30 0d 0b 68 0e 6e 65  77 73 74 72 24 3d 22 22  |=0..h.newstr$=""|
00001c90  0d 0b 72 05 f5 0d 0b 7c  0f 73 74 63 6c 6f 6f 70  |..r....|.stcloop|
00001ca0  25 2b 3d 31 0d 0b 86 22  73 74 63 24 3d c1 73 74  |%+=1..."stc$=.st|
00001cb0  72 5f 74 6f 5f 63 6f 6e  76 24 2c 73 74 63 6c 6f  |r_to_conv$,stclo|
00001cc0  6f 70 25 2c 31 29 0d 0b  90 1c e7 20 97 73 74 63  |op%,1)..... .stc|
00001cd0  24 3e 39 36 20 80 20 97  73 74 63 24 3c 31 32 33  |$>96 . .stc$<123|
00001ce0  20 8c 0d 0b 9a 24 6e 65  77 73 74 72 24 3d 6e 65  | ....$newstr$=ne|
00001cf0  77 73 74 72 24 2b bd 28  97 28 73 74 63 24 29 20  |wstr$+.(.(stc$) |
00001d00  80 20 26 44 46 29 0d 0b  a4 05 cc 0d 0b ae 1e 6e  |. &DF).........n|
00001d10  65 77 73 74 72 24 3d 6e  65 77 73 74 72 24 2b bd  |ewstr$=newstr$+.|
00001d20  28 97 28 73 74 63 24 29  29 0d 0b b8 05 cd 0d 0b  |(.(stc$)).......|
00001d30  c2 1c fd 20 a9 6e 65 77  73 74 72 24 3d a9 73 74  |... .newstr$=.st|
00001d40  72 5f 74 6f 5f 63 6f 6e  76 24 0d 0b cc 0c 3d 6e  |r_to_conv$....=n|
00001d50  65 77 73 74 72 24 0d 0b  d6 04 0d 0b e0 24 dd 20  |ewstr$.......$. |
00001d60  f2 5f 45 72 72 6f 72 5f  42 6f 78 28 65 72 72 2c  |._Error_Box(err,|
00001d70  72 65 70 6f 72 74 24 2c  74 79 70 65 25 29 0d 0b  |report$,type%)..|
00001d80  ea 12 21 65 72 72 6f 72  62 75 66 25 3d 65 72 72  |..!errorbuf%=err|
00001d90  0d 0b f4 1f 24 28 65 72  72 6f 72 62 75 66 25 2b  |....$(errorbuf%+|
00001da0  34 29 3d 72 65 70 6f 72  74 24 2b bd 28 30 29 0d  |4)=report$+.(0).|
00001db0  0b fe 41 c8 99 22 57 69  6d 70 5f 52 65 70 6f 72  |..A.."Wimp_Repor|
00001dc0  74 45 72 72 6f 72 22 2c  65 72 72 6f 72 62 75 66  |tError",errorbuf|
00001dd0  25 2c 74 79 70 65 25 2c  22 41 70 70 6c 69 63 61  |%,type%,"Applica|
00001de0  74 69 6f 6e 73 22 20 b8  20 2c 72 65 70 6c 79 25  |tions" . ,reply%|
00001df0  0d 0c 08 05 e1 0d 0c 12  04 0d 0c 1c 18 f4 44 45  |..............DE|
00001e00  46 20 50 52 4f 43 5f 4c  6f 73 65 5f 46 6f 6e 74  |F PROC_Lose_Font|
00001e10  73 0d 0c 26 14 f4 46 4f  52 20 64 25 3d 31 20 54  |s..&..FOR d%=1 T|
00001e20  4f 20 32 35 35 0d 0c 30  0b f4 52 45 50 45 41 54  |O 255..0..REPEAT|
00001e30  0d 0c 3a 1e f4 20 49 46  20 3f 28 66 68 61 6e 64  |..:.. IF ?(fhand|
00001e40  73 25 2b 64 25 29 3c 3e  30 20 54 48 45 4e 0d 0c  |s%+d%)<>0 THEN..|
00001e50  44 1d f4 20 20 53 59 53  22 58 46 6f 6e 74 5f 4c  |D..  SYS"XFont_L|
00001e60  6f 73 65 46 6f 6e 74 22  2c 64 25 0d 0c 4e 24 f4  |oseFont",d%..N$.|
00001e70  20 20 3f 28 66 68 61 6e  64 73 25 2b 64 25 29 3d  |  ?(fhands%+d%)=|
00001e80  3f 28 66 68 61 6e 64 73  25 2b 64 25 29 2d 31 0d  |?(fhands%+d%)-1.|
00001e90  0c 58 0b f4 20 45 4e 44  49 46 0d 0c 62 1b f4 20  |.X.. ENDIF..b.. |
00001ea0  55 4e 54 49 4c 20 3f 28  66 68 61 6e 64 73 25 2b  |UNTIL ?(fhands%+|
00001eb0  64 25 29 3d 30 0d 0c 6c  0a f4 20 4e 45 58 54 0d  |d%)=0..l.. NEXT.|
00001ec0  0c 76 0d f4 20 45 4e 44  50 52 4f 43 0d ff        |.v.. ENDPROC..|
00001ece