� >!RunImage
,� Desktop front-end for Syst_Font module
� By Darren Durbin
(� -------------------------
2:
<	�init
F� � �wimp_err
P	�desk
Z�
d:
n� �init
x9 � templates% &400, menu% &800, errblk% &100, q% &100
� � task% 4, ind% &200
� $task%="TASK"
�/ ș "Wimp_Initialise",200,!task%,"Sys Font"
� �getmodeinfo
�
 �windows
�
 �iconbar
� �menus
��
�:
�� �iconbar
� � sx%,sy%,sm%,px%,py%
� text$="SysFont"
� sprite$="!Syst_Font"

 � sprite% (�(sprite$)+1)

 � text% (�(text$)+1)

 $sprite%="S"+sprite$

" $text%="SysFont"

,5 ș "Wimp_SpriteOp",40,,sprite$ � ,,,sx%,sy%,,sm%

6, ș "OS_ReadModeVariable",sm%,4 � ,,px%:

@ sx%=sx%<<px%

J, ș "OS_ReadModeVariable",sm%,5 � ,,py%:

T sy%=sy%<<py%

^$ � �text$*16>sx% � sx%=�text$*16

h !q%=-1

r q%!4=0

|
 q%!8=-16

� q%!12=q%!4+sx%

� q%!16=20+sy%

� q%!20=&1700310B

� q%!24=text%

� q%!28=sprite%

� q%!32=�text$

�# ș "Wimp_CreateIcon",,q% � !q%

��

�:

�� �errblk(err%,report$)

� !errblk%=err%

�D $(errblk%+4)=report$+" at line "+Þ+" (Error number "+ß+")"+�0

�=errblk%
:
� �wimp_err
5 ș "Wimp_ReportError",�errblk(�,�$),1,"Sys Font"
& �
0�
::
D� �mouse(q%)
N
 mx%=q%!0
X
 my%=q%!4
b
 mb%=q%!8
l � q%!12<>-2 � �
v
 Ȏ mb% �
�   � 2 :
�F    ș "Wimp_CreateMenu",,menu%,mx%-menu%!16/2-24,100+44*numitems%
� �
��
�:
�� �desk
� �
�#  ș "Wimp_Poll",0,q% � reason%
�  Ȏ reason% �
�
   � 6
�    �mouse(q%)
�
   � 9
�    �menusel(q%)
   � 17,18
    �message(q%)
  �
  � �
*�
4:
>� �menusel(q%)
H' ș "Wimp_GetPointerInfo" ,,errblk%
R  adj%=(((errblk%!8) � 1) >0)
\
 Ȏ !q% �
f	  � 0
p   :
z	  � 1
�   *ItalicText
�	  � 2
�   *Italic2Text
�	  � 3
�   *BoldText
�	  � 4
�   *ThinText
�	  � 5
�   *TrendyText
�	  � 6
�   *InverseText
�	  � 7
�   *UnderlineText
	  � 8
   *FutureText
	  � 9
   *DefaultText

  � 10
$   ș "Wimp_CloseDown"
%   �
. �
8
 � adj% �
BD  ș "Wimp_CreateMenu",,menu%,mx%-menu%!16/2-24,100+44*numitems%
L �
V/ ș "Wimp_ForceRedraw",-1,0,0,scrx1%,scry1%
`�
j:
t� �message(q%)
~ Ȏ q%!16 �
�	  � 0
�   ș "Wimp_CloseDown"
�   �
� �
��
�:
�� �string(a%)
�	 � b$
�
 b$=""
� ȕ ?a%<>0
�  b$+=�?a%
�  a%+=1
 �

=b$
:
� �readvarval(var$)
( $buffer%=var$+�(0)
24 ș "OS_ReadVarVal",buffer%,buffer%,&FF � ,,len%
< ?(buffer%+len%)=13
F
=$buffer%
P:
Z� �menus
d max_len%=�"Font Select"*16
n numitems%=12
x $menu%="Font Select"
� menu%?12=7
� menu%?13=2
� menu%?14=7
� menu%?15=0
� menu%!16=max_len%+12
� menu%!20=44
� menu%!24=0
� menuptr%=menu%+28
� �makemen("Info",2)
� �makemen("Italic 1",0)
� �makemen("Italic 2",0)
� �makemen("Bold",0)
� �makemen("Thin",0)
 �makemen("Trendy",0)
 �makemen("Inverse",0)
 �makemen("Underline",0)
" �makemen("Future",0)
# �makemen("Default",2)
, �makemen("Quit",0)
6 menuptr%!-24=&80
@�
J:
T� �makemen(item$,flags)
^ � item$="Info" �
h  submenu%=infohand%
r �
|  submenu%=-1
� �
� menuptr%!0=flags
� menuptr%!4=submenu%
� menuptr%!8=&07000021
� $(menuptr%+12)=item$
� menuptr%+=24
��
�:
�� �windows
�7 ș "Wimp_OpenTemplate",,"<SystFont$Dir>.Templates"
� infohand%=�cr_wind("Info")
� ș "Wimp_CloseTemplate"
��
:
� �cr_wind(name$)
A ș "Wimp_LoadTemplate",,templates%,ind%,ind%+&1FF,-1,name$,0
&/ ș "Wimp_CreateWindow",,templates% � hand%
0
=hand%
::
D� �getmodeinfo
N q%!0=4
X q%!4=5
b q%!8=11
l
 q%!12=12
v
 q%!16=-1
�& ș "OS_ReadVduVariables",q%,q%+20
� dx%=1<<(q%!20)
� dy%=1<<(q%!24)
� scrx1%=(q%!28+1)*dx%
� scry1%=(q%!32+1)*dy%
��
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 2c f4 20 44 65  73 6b 74 6f 70 20 66 72  |...,. Desktop fr|
00000020  6f 6e 74 2d 65 6e 64 20  66 6f 72 20 53 79 73 74  |ont-end for Syst|
00000030  5f 46 6f 6e 74 20 6d 6f  64 75 6c 65 0d 00 1e 16  |_Font module....|
00000040  f4 20 42 79 20 44 61 72  72 65 6e 20 44 75 72 62  |. By Darren Durb|
00000050  69 6e 0d 00 28 1f f4 20  2d 2d 2d 2d 2d 2d 2d 2d  |in..(.. --------|
00000060  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000070  2d 0d 00 32 05 3a 0d 00  3c 09 f2 69 6e 69 74 0d  |-..2.:..<..init.|
00000080  00 46 11 ee 20 85 20 f2  77 69 6d 70 5f 65 72 72  |.F.. . .wimp_err|
00000090  0d 00 50 09 f2 64 65 73  6b 0d 00 5a 05 e0 0d 00  |..P..desk..Z....|
000000a0  64 05 3a 0d 00 6e 0b dd  20 f2 69 6e 69 74 0d 00  |d.:..n.. .init..|
000000b0  78 39 20 de 20 74 65 6d  70 6c 61 74 65 73 25 20  |x9 . templates% |
000000c0  26 34 30 30 2c 20 6d 65  6e 75 25 20 26 38 30 30  |&400, menu% &800|
000000d0  2c 20 65 72 72 62 6c 6b  25 20 26 31 30 30 2c 20  |, errblk% &100, |
000000e0  71 25 20 26 31 30 30 0d  00 82 19 20 de 20 74 61  |q% &100.... . ta|
000000f0  73 6b 25 20 34 2c 20 69  6e 64 25 20 26 32 30 30  |sk% 4, ind% &200|
00000100  0d 00 8c 12 20 24 74 61  73 6b 25 3d 22 54 41 53  |.... $task%="TAS|
00000110  4b 22 0d 00 96 2f 20 c8  99 20 22 57 69 6d 70 5f  |K".../ .. "Wimp_|
00000120  49 6e 69 74 69 61 6c 69  73 65 22 2c 32 30 30 2c  |Initialise",200,|
00000130  21 74 61 73 6b 25 2c 22  53 79 73 20 46 6f 6e 74  |!task%,"Sys Font|
00000140  22 0d 00 a0 11 20 f2 67  65 74 6d 6f 64 65 69 6e  |".... .getmodein|
00000150  66 6f 0d 00 aa 0d 20 f2  77 69 6e 64 6f 77 73 0d  |fo.... .windows.|
00000160  00 b4 0d 20 f2 69 63 6f  6e 62 61 72 0d 00 be 0b  |... .iconbar....|
00000170  20 f2 6d 65 6e 75 73 0d  00 c8 05 e1 0d 00 d2 05  | .menus.........|
00000180  3a 0d 00 dc 0e dd 20 f2  69 63 6f 6e 62 61 72 0d  |:..... .iconbar.|
00000190  00 e6 1a 20 ea 20 73 78  25 2c 73 79 25 2c 73 6d  |... . sx%,sy%,sm|
000001a0  25 2c 70 78 25 2c 70 79  25 0d 00 f0 14 20 74 65  |%,px%,py%.... te|
000001b0  78 74 24 3d 22 53 79 73  46 6f 6e 74 22 0d 00 fa  |xt$="SysFont"...|
000001c0  19 20 73 70 72 69 74 65  24 3d 22 21 53 79 73 74  |. sprite$="!Syst|
000001d0  5f 46 6f 6e 74 22 0d 01  04 1d 20 de 20 73 70 72  |_Font".... . spr|
000001e0  69 74 65 25 20 28 a9 28  73 70 72 69 74 65 24 29  |ite% (.(sprite$)|
000001f0  2b 31 29 0d 01 0e 19 20  de 20 74 65 78 74 25 20  |+1).... . text% |
00000200  28 a9 28 74 65 78 74 24  29 2b 31 29 0d 01 18 19  |(.(text$)+1)....|
00000210  20 24 73 70 72 69 74 65  25 3d 22 53 22 2b 73 70  | $sprite%="S"+sp|
00000220  72 69 74 65 24 0d 01 22  15 20 24 74 65 78 74 25  |rite$..". $text%|
00000230  3d 22 53 79 73 46 6f 6e  74 22 0d 01 2c 35 20 c8  |="SysFont"..,5 .|
00000240  99 20 22 57 69 6d 70 5f  53 70 72 69 74 65 4f 70  |. "Wimp_SpriteOp|
00000250  22 2c 34 30 2c 2c 73 70  72 69 74 65 24 20 b8 20  |",40,,sprite$ . |
00000260  2c 2c 2c 73 78 25 2c 73  79 25 2c 2c 73 6d 25 0d  |,,,sx%,sy%,,sm%.|
00000270  01 36 2c 20 c8 99 20 22  4f 53 5f 52 65 61 64 4d  |.6, .. "OS_ReadM|
00000280  6f 64 65 56 61 72 69 61  62 6c 65 22 2c 73 6d 25  |odeVariable",sm%|
00000290  2c 34 20 b8 20 2c 2c 70  78 25 3a 0d 01 40 11 20  |,4 . ,,px%:..@. |
000002a0  73 78 25 3d 73 78 25 3c  3c 70 78 25 0d 01 4a 2c  |sx%=sx%<<px%..J,|
000002b0  20 c8 99 20 22 4f 53 5f  52 65 61 64 4d 6f 64 65  | .. "OS_ReadMode|
000002c0  56 61 72 69 61 62 6c 65  22 2c 73 6d 25 2c 35 20  |Variable",sm%,5 |
000002d0  b8 20 2c 2c 70 79 25 3a  0d 01 54 11 20 73 79 25  |. ,,py%:..T. sy%|
000002e0  3d 73 79 25 3c 3c 70 79  25 0d 01 5e 24 20 e7 20  |=sy%<<py%..^$ . |
000002f0  a9 74 65 78 74 24 2a 31  36 3e 73 78 25 20 8c 20  |.text$*16>sx% . |
00000300  73 78 25 3d a9 74 65 78  74 24 2a 31 36 0d 01 68  |sx%=.text$*16..h|
00000310  0b 20 21 71 25 3d 2d 31  0d 01 72 0b 20 71 25 21  |. !q%=-1..r. q%!|
00000320  34 3d 30 0d 01 7c 0d 20  71 25 21 38 3d 2d 31 36  |4=0..|. q%!8=-16|
00000330  0d 01 86 13 20 71 25 21  31 32 3d 71 25 21 34 2b  |.... q%!12=q%!4+|
00000340  73 78 25 0d 01 90 11 20  71 25 21 31 36 3d 32 30  |sx%.... q%!16=20|
00000350  2b 73 79 25 0d 01 9a 14  20 71 25 21 32 30 3d 26  |+sy%.... q%!20=&|
00000360  31 37 30 30 33 31 30 42  0d 01 a4 10 20 71 25 21  |1700310B.... q%!|
00000370  32 34 3d 74 65 78 74 25  0d 01 ae 12 20 71 25 21  |24=text%.... q%!|
00000380  32 38 3d 73 70 72 69 74  65 25 0d 01 b8 11 20 71  |28=sprite%.... q|
00000390  25 21 33 32 3d a9 74 65  78 74 24 0d 01 c2 23 20  |%!32=.text$...# |
000003a0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 49  |.. "Wimp_CreateI|
000003b0  63 6f 6e 22 2c 2c 71 25  20 b8 20 21 71 25 0d 01  |con",,q% . !q%..|
000003c0  cc 05 e1 0d 01 d6 05 3a  0d 01 e0 1b dd 20 a4 65  |.......:..... .e|
000003d0  72 72 62 6c 6b 28 65 72  72 25 2c 72 65 70 6f 72  |rrblk(err%,repor|
000003e0  74 24 29 0d 01 ea 12 20  21 65 72 72 62 6c 6b 25  |t$).... !errblk%|
000003f0  3d 65 72 72 25 0d 01 f4  44 20 24 28 65 72 72 62  |=err%...D $(errb|
00000400  6c 6b 25 2b 34 29 3d 72  65 70 6f 72 74 24 2b 22  |lk%+4)=report$+"|
00000410  20 61 74 20 6c 69 6e 65  20 22 2b c3 9e 2b 22 20  | at line "+..+" |
00000420  28 45 72 72 6f 72 20 6e  75 6d 62 65 72 20 22 2b  |(Error number "+|
00000430  c3 9f 2b 22 29 22 2b bd  30 0d 01 fe 0c 3d 65 72  |..+")"+.0....=er|
00000440  72 62 6c 6b 25 0d 02 08  05 3a 0d 02 12 0f dd 20  |rblk%....:..... |
00000450  f2 77 69 6d 70 5f 65 72  72 0d 02 1c 35 20 c8 99  |.wimp_err...5 ..|
00000460  20 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  | "Wimp_ReportErr|
00000470  6f 72 22 2c a4 65 72 72  62 6c 6b 28 9f 2c f6 24  |or",.errblk(.,.$|
00000480  29 2c 31 2c 22 53 79 73  20 46 6f 6e 74 22 0d 02  |),1,"Sys Font"..|
00000490  26 06 20 e0 0d 02 30 05  e1 0d 02 3a 05 3a 0d 02  |&. ...0....:.:..|
000004a0  44 10 dd 20 f2 6d 6f 75  73 65 28 71 25 29 0d 02  |D.. .mouse(q%)..|
000004b0  4e 0d 20 6d 78 25 3d 71  25 21 30 0d 02 58 0d 20  |N. mx%=q%!0..X. |
000004c0  6d 79 25 3d 71 25 21 34  0d 02 62 0d 20 6d 62 25  |my%=q%!4..b. mb%|
000004d0  3d 71 25 21 38 0d 02 6c  14 20 e7 20 71 25 21 31  |=q%!8..l. . q%!1|
000004e0  32 3c 3e 2d 32 20 8c 20  e1 0d 02 76 0d 20 c8 8e  |2<>-2 . ...v. ..|
000004f0  20 6d 62 25 20 ca 0d 02  80 0c 20 20 20 c9 20 32  | mb% .....   . 2|
00000500  20 3a 0d 02 8a 46 20 20  20 20 c8 99 20 22 57 69  | :...F    .. "Wi|
00000510  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00000520  6d 65 6e 75 25 2c 6d 78  25 2d 6d 65 6e 75 25 21  |menu%,mx%-menu%!|
00000530  31 36 2f 32 2d 32 34 2c  31 30 30 2b 34 34 2a 6e  |16/2-24,100+44*n|
00000540  75 6d 69 74 65 6d 73 25  0d 02 94 06 20 cb 0d 02  |umitems%.... ...|
00000550  9e 05 e1 0d 02 a8 05 3a  0d 02 b2 0b dd 20 f2 64  |.......:..... .d|
00000560  65 73 6b 0d 02 bc 06 20  f5 0d 02 c6 23 20 20 c8  |esk.... ....#  .|
00000570  99 20 22 57 69 6d 70 5f  50 6f 6c 6c 22 2c 30 2c  |. "Wimp_Poll",0,|
00000580  71 25 20 b8 20 72 65 61  73 6f 6e 25 0d 02 d0 12  |q% . reason%....|
00000590  20 20 c8 8e 20 72 65 61  73 6f 6e 25 20 ca 0d 02  |  .. reason% ...|
000005a0  da 0a 20 20 20 c9 20 36  0d 02 e4 12 20 20 20 20  |..   . 6....    |
000005b0  f2 6d 6f 75 73 65 28 71  25 29 0d 02 ee 0a 20 20  |.mouse(q%)....  |
000005c0  20 c9 20 39 0d 02 f8 14  20 20 20 20 f2 6d 65 6e  | . 9....    .men|
000005d0  75 73 65 6c 28 71 25 29  0d 03 02 0e 20 20 20 c9  |usel(q%)....   .|
000005e0  20 31 37 2c 31 38 0d 03  0c 14 20 20 20 20 f2 6d  | 17,18....    .m|
000005f0  65 73 73 61 67 65 28 71  25 29 0d 03 16 07 20 20  |essage(q%)....  |
00000600  cb 0d 03 20 08 20 fd 20  a3 0d 03 2a 05 e1 0d 03  |... . . ...*....|
00000610  34 05 3a 0d 03 3e 12 dd  20 f2 6d 65 6e 75 73 65  |4.:..>.. .menuse|
00000620  6c 28 71 25 29 0d 03 48  27 20 c8 99 20 22 57 69  |l(q%)..H' .. "Wi|
00000630  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00000640  6f 22 20 2c 2c 65 72 72  62 6c 6b 25 0d 03 52 20  |o" ,,errblk%..R |
00000650  20 61 64 6a 25 3d 28 28  28 65 72 72 62 6c 6b 25  | adj%=(((errblk%|
00000660  21 38 29 20 80 20 31 29  20 3e 30 29 0d 03 5c 0d  |!8) . 1) >0)..\.|
00000670  20 c8 8e 20 21 71 25 20  ca 0d 03 66 09 20 20 c9  | .. !q% ...f.  .|
00000680  20 30 0d 03 70 08 20 20  20 3a 0d 03 7a 09 20 20  | 0..p.   :..z.  |
00000690  c9 20 31 0d 03 84 12 20  20 20 2a 49 74 61 6c 69  |. 1....   *Itali|
000006a0  63 54 65 78 74 0d 03 8e  09 20 20 c9 20 32 0d 03  |cText....  . 2..|
000006b0  98 13 20 20 20 2a 49 74  61 6c 69 63 32 54 65 78  |..   *Italic2Tex|
000006c0  74 0d 03 a2 09 20 20 c9  20 33 0d 03 ac 10 20 20  |t....  . 3....  |
000006d0  20 2a 42 6f 6c 64 54 65  78 74 0d 03 b6 09 20 20  | *BoldText....  |
000006e0  c9 20 34 0d 03 c0 10 20  20 20 2a 54 68 69 6e 54  |. 4....   *ThinT|
000006f0  65 78 74 0d 03 ca 09 20  20 c9 20 35 0d 03 d4 12  |ext....  . 5....|
00000700  20 20 20 2a 54 72 65 6e  64 79 54 65 78 74 0d 03  |   *TrendyText..|
00000710  de 09 20 20 c9 20 36 0d  03 e8 13 20 20 20 2a 49  |..  . 6....   *I|
00000720  6e 76 65 72 73 65 54 65  78 74 0d 03 f2 09 20 20  |nverseText....  |
00000730  c9 20 37 0d 03 fc 15 20  20 20 2a 55 6e 64 65 72  |. 7....   *Under|
00000740  6c 69 6e 65 54 65 78 74  0d 04 06 09 20 20 c9 20  |lineText....  . |
00000750  38 0d 04 10 12 20 20 20  2a 46 75 74 75 72 65 54  |8....   *FutureT|
00000760  65 78 74 0d 04 1a 09 20  20 c9 20 39 0d 04 1b 13  |ext....  . 9....|
00000770  20 20 20 2a 44 65 66 61  75 6c 74 54 65 78 74 0d  |   *DefaultText.|
00000780  04 1c 0a 20 20 c9 20 31  30 0d 04 24 1a 20 20 20  |...  . 10..$.   |
00000790  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |.. "Wimp_CloseDo|
000007a0  77 6e 22 0d 04 25 08 20  20 20 e0 0d 04 2e 06 20  |wn"..%.   ..... |
000007b0  cb 0d 04 38 0d 20 e7 20  61 64 6a 25 20 8c 0d 04  |...8. . adj% ...|
000007c0  42 44 20 20 c8 99 20 22  57 69 6d 70 5f 43 72 65  |BD  .. "Wimp_Cre|
000007d0  61 74 65 4d 65 6e 75 22  2c 2c 6d 65 6e 75 25 2c  |ateMenu",,menu%,|
000007e0  6d 78 25 2d 6d 65 6e 75  25 21 31 36 2f 32 2d 32  |mx%-menu%!16/2-2|
000007f0  34 2c 31 30 30 2b 34 34  2a 6e 75 6d 69 74 65 6d  |4,100+44*numitem|
00000800  73 25 0d 04 4c 06 20 cd  0d 04 56 2f 20 c8 99 20  |s%..L. ...V/ .. |
00000810  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
00000820  77 22 2c 2d 31 2c 30 2c  30 2c 73 63 72 78 31 25  |w",-1,0,0,scrx1%|
00000830  2c 73 63 72 79 31 25 0d  04 60 05 e1 0d 04 6a 05  |,scry1%..`....j.|
00000840  3a 0d 04 74 12 dd 20 f2  6d 65 73 73 61 67 65 28  |:..t.. .message(|
00000850  71 25 29 0d 04 7e 0f 20  c8 8e 20 71 25 21 31 36  |q%)..~. .. q%!16|
00000860  20 ca 0d 04 88 09 20 20  c9 20 30 0d 04 92 1a 20  | .....  . 0.... |
00000870  20 20 c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |  .. "Wimp_Close|
00000880  44 6f 77 6e 22 0d 04 9c  08 20 20 20 e0 0d 04 a6  |Down"....   ....|
00000890  06 20 cb 0d 04 b0 05 e1  0d 04 ba 05 3a 0d 04 c4  |. ..........:...|
000008a0  11 dd 20 a4 73 74 72 69  6e 67 28 61 25 29 0d 04  |.. .string(a%)..|
000008b0  ce 09 20 ea 20 62 24 0d  04 d8 0a 20 62 24 3d 22  |.. . b$.... b$="|
000008c0  22 0d 04 e2 0e 20 c8 95  20 3f 61 25 3c 3e 30 0d  |".... .. ?a%<>0.|
000008d0  04 ec 0e 20 20 62 24 2b  3d bd 3f 61 25 0d 04 f6  |...  b$+=.?a%...|
000008e0  0b 20 20 61 25 2b 3d 31  0d 05 00 06 20 ce 0d 05  |.  a%+=1.... ...|
000008f0  0a 07 3d 62 24 0d 05 14  05 3a 0d 05 1e 17 dd 20  |..=b$....:..... |
00000900  a4 72 65 61 64 76 61 72  76 61 6c 28 76 61 72 24  |.readvarval(var$|
00000910  29 0d 05 28 17 20 24 62  75 66 66 65 72 25 3d 76  |)..(. $buffer%=v|
00000920  61 72 24 2b bd 28 30 29  0d 05 32 34 20 c8 99 20  |ar$+.(0)..24 .. |
00000930  22 4f 53 5f 52 65 61 64  56 61 72 56 61 6c 22 2c  |"OS_ReadVarVal",|
00000940  62 75 66 66 65 72 25 2c  62 75 66 66 65 72 25 2c  |buffer%,buffer%,|
00000950  26 46 46 20 b8 20 2c 2c  6c 65 6e 25 0d 05 3c 17  |&FF . ,,len%..<.|
00000960  20 3f 28 62 75 66 66 65  72 25 2b 6c 65 6e 25 29  | ?(buffer%+len%)|
00000970  3d 31 33 0d 05 46 0d 3d  24 62 75 66 66 65 72 25  |=13..F.=$buffer%|
00000980  0d 05 50 05 3a 0d 05 5a  0c dd 20 f2 6d 65 6e 75  |..P.:..Z.. .menu|
00000990  73 0d 05 64 1f 20 6d 61  78 5f 6c 65 6e 25 3d a9  |s..d. max_len%=.|
000009a0  22 46 6f 6e 74 20 53 65  6c 65 63 74 22 2a 31 36  |"Font Select"*16|
000009b0  0d 05 6e 11 20 6e 75 6d  69 74 65 6d 73 25 3d 31  |..n. numitems%=1|
000009c0  32 0d 05 78 19 20 24 6d  65 6e 75 25 3d 22 46 6f  |2..x. $menu%="Fo|
000009d0  6e 74 20 53 65 6c 65 63  74 22 0d 05 82 0f 20 6d  |nt Select".... m|
000009e0  65 6e 75 25 3f 31 32 3d  37 0d 05 8c 0f 20 6d 65  |enu%?12=7.... me|
000009f0  6e 75 25 3f 31 33 3d 32  0d 05 96 0f 20 6d 65 6e  |nu%?13=2.... men|
00000a00  75 25 3f 31 34 3d 37 0d  05 a0 0f 20 6d 65 6e 75  |u%?14=7.... menu|
00000a10  25 3f 31 35 3d 30 0d 05  aa 19 20 6d 65 6e 75 25  |%?15=0.... menu%|
00000a20  21 31 36 3d 6d 61 78 5f  6c 65 6e 25 2b 31 32 0d  |!16=max_len%+12.|
00000a30  05 b4 10 20 6d 65 6e 75  25 21 32 30 3d 34 34 0d  |... menu%!20=44.|
00000a40  05 be 0f 20 6d 65 6e 75  25 21 32 34 3d 30 0d 05  |... menu%!24=0..|
00000a50  c8 16 20 6d 65 6e 75 70  74 72 25 3d 6d 65 6e 75  |.. menuptr%=menu|
00000a60  25 2b 32 38 0d 05 d2 17  20 f2 6d 61 6b 65 6d 65  |%+28.... .makeme|
00000a70  6e 28 22 49 6e 66 6f 22  2c 32 29 0d 05 dc 1b 20  |n("Info",2).... |
00000a80  f2 6d 61 6b 65 6d 65 6e  28 22 49 74 61 6c 69 63  |.makemen("Italic|
00000a90  20 31 22 2c 30 29 0d 05  e6 1b 20 f2 6d 61 6b 65  | 1",0).... .make|
00000aa0  6d 65 6e 28 22 49 74 61  6c 69 63 20 32 22 2c 30  |men("Italic 2",0|
00000ab0  29 0d 05 f0 17 20 f2 6d  61 6b 65 6d 65 6e 28 22  |).... .makemen("|
00000ac0  42 6f 6c 64 22 2c 30 29  0d 05 fa 17 20 f2 6d 61  |Bold",0).... .ma|
00000ad0  6b 65 6d 65 6e 28 22 54  68 69 6e 22 2c 30 29 0d  |kemen("Thin",0).|
00000ae0  06 04 19 20 f2 6d 61 6b  65 6d 65 6e 28 22 54 72  |... .makemen("Tr|
00000af0  65 6e 64 79 22 2c 30 29  0d 06 0e 1a 20 f2 6d 61  |endy",0).... .ma|
00000b00  6b 65 6d 65 6e 28 22 49  6e 76 65 72 73 65 22 2c  |kemen("Inverse",|
00000b10  30 29 0d 06 18 1c 20 f2  6d 61 6b 65 6d 65 6e 28  |0).... .makemen(|
00000b20  22 55 6e 64 65 72 6c 69  6e 65 22 2c 30 29 0d 06  |"Underline",0)..|
00000b30  22 19 20 f2 6d 61 6b 65  6d 65 6e 28 22 46 75 74  |". .makemen("Fut|
00000b40  75 72 65 22 2c 30 29 0d  06 23 1a 20 f2 6d 61 6b  |ure",0)..#. .mak|
00000b50  65 6d 65 6e 28 22 44 65  66 61 75 6c 74 22 2c 32  |emen("Default",2|
00000b60  29 0d 06 2c 17 20 f2 6d  61 6b 65 6d 65 6e 28 22  |)..,. .makemen("|
00000b70  51 75 69 74 22 2c 30 29  0d 06 36 15 20 6d 65 6e  |Quit",0)..6. men|
00000b80  75 70 74 72 25 21 2d 32  34 3d 26 38 30 0d 06 40  |uptr%!-24=&80..@|
00000b90  05 e1 0d 06 4a 05 3a 0d  06 54 1b dd 20 f2 6d 61  |....J.:..T.. .ma|
00000ba0  6b 65 6d 65 6e 28 69 74  65 6d 24 2c 66 6c 61 67  |kemen(item$,flag|
00000bb0  73 29 0d 06 5e 15 20 e7  20 69 74 65 6d 24 3d 22  |s)..^. . item$="|
00000bc0  49 6e 66 6f 22 20 8c 0d  06 68 18 20 20 73 75 62  |Info" ...h.  sub|
00000bd0  6d 65 6e 75 25 3d 69 6e  66 6f 68 61 6e 64 25 0d  |menu%=infohand%.|
00000be0  06 72 06 20 cc 0d 06 7c  11 20 20 73 75 62 6d 65  |.r. ...|.  subme|
00000bf0  6e 75 25 3d 2d 31 0d 06  86 06 20 cd 0d 06 90 15  |nu%=-1.... .....|
00000c00  20 6d 65 6e 75 70 74 72  25 21 30 3d 66 6c 61 67  | menuptr%!0=flag|
00000c10  73 0d 06 9a 18 20 6d 65  6e 75 70 74 72 25 21 34  |s.... menuptr%!4|
00000c20  3d 73 75 62 6d 65 6e 75  25 0d 06 a4 19 20 6d 65  |=submenu%.... me|
00000c30  6e 75 70 74 72 25 21 38  3d 26 30 37 30 30 30 30  |nuptr%!8=&070000|
00000c40  32 31 0d 06 ae 19 20 24  28 6d 65 6e 75 70 74 72  |21.... $(menuptr|
00000c50  25 2b 31 32 29 3d 69 74  65 6d 24 0d 06 b8 11 20  |%+12)=item$.... |
00000c60  6d 65 6e 75 70 74 72 25  2b 3d 32 34 0d 06 c2 05  |menuptr%+=24....|
00000c70  e1 0d 06 cc 05 3a 0d 06  d6 0e dd 20 f2 77 69 6e  |.....:..... .win|
00000c80  64 6f 77 73 0d 06 e0 37  20 c8 99 20 22 57 69 6d  |dows...7 .. "Wim|
00000c90  70 5f 4f 70 65 6e 54 65  6d 70 6c 61 74 65 22 2c  |p_OpenTemplate",|
00000ca0  2c 22 3c 53 79 73 74 46  6f 6e 74 24 44 69 72 3e  |,"<SystFont$Dir>|
00000cb0  2e 54 65 6d 70 6c 61 74  65 73 22 0d 06 ea 1f 20  |.Templates".... |
00000cc0  69 6e 66 6f 68 61 6e 64  25 3d a4 63 72 5f 77 69  |infohand%=.cr_wi|
00000cd0  6e 64 28 22 49 6e 66 6f  22 29 0d 06 f4 1c 20 c8  |nd("Info").... .|
00000ce0  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 54 65 6d  |. "Wimp_CloseTem|
00000cf0  70 6c 61 74 65 22 0d 06  fe 05 e1 0d 07 08 05 3a  |plate".........:|
00000d00  0d 07 12 15 dd 20 a4 63  72 5f 77 69 6e 64 28 6e  |..... .cr_wind(n|
00000d10  61 6d 65 24 29 0d 07 1c  41 20 c8 99 20 22 57 69  |ame$)...A .. "Wi|
00000d20  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000d30  2c 2c 74 65 6d 70 6c 61  74 65 73 25 2c 69 6e 64  |,,templates%,ind|
00000d40  25 2c 69 6e 64 25 2b 26  31 46 46 2c 2d 31 2c 6e  |%,ind%+&1FF,-1,n|
00000d50  61 6d 65 24 2c 30 0d 07  26 2f 20 c8 99 20 22 57  |ame$,0..&/ .. "W|
00000d60  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00000d70  22 2c 2c 74 65 6d 70 6c  61 74 65 73 25 20 b8 20  |",,templates% . |
00000d80  68 61 6e 64 25 0d 07 30  0a 3d 68 61 6e 64 25 0d  |hand%..0.=hand%.|
00000d90  07 3a 05 3a 0d 07 44 12  dd 20 f2 67 65 74 6d 6f  |.:.:..D.. .getmo|
00000da0  64 65 69 6e 66 6f 0d 07  4e 0b 20 71 25 21 30 3d  |deinfo..N. q%!0=|
00000db0  34 0d 07 58 0b 20 71 25  21 34 3d 35 0d 07 62 0c  |4..X. q%!4=5..b.|
00000dc0  20 71 25 21 38 3d 31 31  0d 07 6c 0d 20 71 25 21  | q%!8=11..l. q%!|
00000dd0  31 32 3d 31 32 0d 07 76  0d 20 71 25 21 31 36 3d  |12=12..v. q%!16=|
00000de0  2d 31 0d 07 80 26 20 c8  99 20 22 4f 53 5f 52 65  |-1...& .. "OS_Re|
00000df0  61 64 56 64 75 56 61 72  69 61 62 6c 65 73 22 2c  |adVduVariables",|
00000e00  71 25 2c 71 25 2b 32 30  0d 07 81 13 20 64 78 25  |q%,q%+20.... dx%|
00000e10  3d 31 3c 3c 28 71 25 21  32 30 29 0d 07 82 13 20  |=1<<(q%!20).... |
00000e20  64 79 25 3d 31 3c 3c 28  71 25 21 32 34 29 0d 07  |dy%=1<<(q%!24)..|
00000e30  8a 19 20 73 63 72 78 31  25 3d 28 71 25 21 32 38  |.. scrx1%=(q%!28|
00000e40  2b 31 29 2a 64 78 25 0d  07 94 19 20 73 63 72 79  |+1)*dx%.... scry|
00000e50  31 25 3d 28 71 25 21 33  32 2b 31 29 2a 64 79 25  |1%=(q%!32+1)*dy%|
00000e60  0d 07 9e 05 e1 0d ff                              |.......|
00000e67