� > <InitDM$Dir>.!RunImage
2� !InitDM application: init dot matrix printer
(� Copyright (C) Walther Schoonenberg
(:
20program$="InitDM":version$="1.00 (3-Feb-90)"
<:
F� taskid%4:$taskid%="TASK"
P9ș "Wimp_Initialise",200,!taskid%,program$ � version%
Z� � �errorbox:�
d:
n%� q% 256,block% &1000,iconbuf% 40
x/maxws%=&1400:� ws% maxws%:wsend%=ws%+maxws%
�4ș "Wimp_OpenTemplate",,"<InitDM$Dir>.Templates"
�+� � ș "Wimp_CloseTemplate":�errorbox:�
�Aș "Wimp_LoadTemplate",,block%,ws%,wsend%,-1,"Info",0 � ,,ws%
�*ș "Wimp_CreateWindow",,block% � info%
�2version%=�iconaddr(info%,4):$version%=version$
�Aș "Wimp_LoadTemplate",,block%,ws%,wsend%,-1,"Main",0 � ,,ws%
�*ș "Wimp_CreateWindow",,block% � main%
� printer%=�iconaddr(main%,24)
�tm%=�iconaddr(main%,16)
�bm%=�iconaddr(main%,4)
�lm%=�iconaddr(main%,19)
�rm%=�iconaddr(main%,20)
�Dș "Wimp_LoadTemplate",,block%,ws%,wsend%,-1,"message",0 � ,,ws%

-ș "Wimp_CreateWindow",,block% � message%

'message_icon%=�iconaddr(message%,0)

Dș "Wimp_LoadTemplate",,block%,ws%,wsend%,-1,"Options",0 � ,,ws%

"-ș "Wimp_CreateWindow",,block% � options%

,ș "Wimp_CloseTemplate"

6� � �errorbox:�

@	�init

Jquit%=�

T#mask%=1: � mask out null_reason

^�

h'  ș "Wimp_Poll",mask%,q% � reason%

r  Ȏ reason% �

|  � 1: �redraw_window(!q%)

�D  � 2: �open_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)

�  � 3: �close_window(!q%)

�8  � 6: �mouse_click(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)

�  � 9: �menu_select

�  � 17,18: �receive(q%!16)

�  �

�� quit%

�ș "Wimp_CloseDown"

��

�:

�� �info(block%)

�Ux0%=!block%:y0%=block%!4:x1%=block%!8:y1%=block%!12:scx%=block%!16:scy%=block%!20

�bx%=x0%-scx%:by%=y1%-scy%
�
:
� �getw(handle%)
&4!block%=handle%:ș "Wimp_GetWindowState",,block%
07�info(block%+4):bhandle%=block%!28:flags%=block%!32
:�
D:
N� �redraw_window(handle%)
X!q%=handle%
b&ș "Wimp_RedrawWindow",,q% � more%
l�info(q%+4)
vȕ more%
�(  ș "Wimp_GetRectangle",,q% � more%
��
��
�:
�� �front(handle%)
�� handle%=-1 �
��getw(handle%)
�6�open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,-1)
��
�:
�� �reopen(handle%)
��getw(handle%)
�F�open_window(handle%,xo%,yo%,x1%-x0%+xo%,y1%-y0%+yo%,scx%,scy%,-1)
�
:
>� �open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
 � handle%=-1 �
*'block%!0=handle%:block%!28=bhandle%
49block%!4=x0%:block%!8=y0%:block%!12=x1%:block%!16=y1%
>!block%!20=scx%:block%!24=scy%
H ș "Wimp_OpenWindow",,block%
R�
\:
f� �getpointer
p$ș "Wimp_GetPointerInfo",,block%
z`mousex%=!block%:mousey%=block%!4:b%=block%!8:handle%=block%!12:icon%=block%!16:ob%=block%!20
��
�:
�� �close_window(handle%)
��getw(handle%)
�xo%=x0%:yo%=y0%:open%=�
�)!q%=handle%:ș "Wimp_CloseWindow",,q%
��
�:
�� �do_menu
�6ș "Wimp_CreateMenu",,iconmenu%,mousex%-64,96+4*44
��
�:
�*� �create_menu_level(menublock%,text$)
J� newtext$,title$,width%,ptr%,shade%,tick%,dotted%,fgcol%,submenu%,mb%

level%+=1
+mb%=menublock%+(level%-1)*menublocksize
$ title$=�text$,�text$,",")-1)
.width%=196
8� �title$,1)="(" �
B  title$=�title$,2)
L'  width%=�(�title$,�title$,")")-1))
V$  title$=�title$,�title$,")")+1)
`�
jtext$=�text$,�text$,",")+1)
t"$mb%=�title$,11): � menu title
~Amb%?12=`tfcol:mb%?13=2:mb%?14=`wfcol:mb%?15=`wbcol: � colours
�(mb%!16=width%: � width of menu items
�%mb%!20=44: � height of menu items
�'mb%!24=0: � vert. gap between items
�� �text$,1)<>"," text$+=","
�)ptr%=mb%+28: � start menu items block
��
�  shade%=0
�
  tick%=0
�  dotted%=0
�  submenu%=-1
�6  � �text$,1)="<" � shade%=&400000:text$=�text$,2)
�/  � �text$,1)=">" � tick%=1:text$=�text$,2)
1  � �text$,1)=":" � dotted%=2:text$=�text$,2)

  � �text$,1)="!" �
%    submenu%=sub%(�(�text$,2,1)))
    text$=�text$,3)
(  �
2  � �text$,1)="(" �
<    text$=�text$,2)
F0    newtext$=menu$(�(�text$,�text$,")")-1)))
P#    text$=�text$,�text$,")")+1)
Z8    submenu%=�create_menu_level(menublock%,newtext$)
d  �
n+  $(ptr%+12)=��text$,�text$,",")-1),12)
x!  text$=�text$,�text$,",")+1)
�1  ptr%!0=tick% � dotted% � (&80 � (text$=""))
�  ptr%!4=submenu%
�L  � shade% � ptr%!8=&400000 � &010021 � 7<<28 � 0<<24 � ptr%!8=&07000021
�  ptr%+=24
�� text$=""
�=mb%
�:
�$� �create_menu(menublock%,text$)
�� crap%
�level%=0
�.crap%=�create_menu_level(menublock%,text$)
�?� crap%<>menublock% � 0,"Internal error in PROCcreate_menu"
��
:
� �icon_set(h%,i%)
-!q%=h%:q%!4=i%:ș "Wimp_GetIconState",,q%
"=((q%!24 � 1<<21)<>0)
,:
6� �set_icon(h%,i%)
@)!q%=h%:q%!4=i%:q%!8=1<<21:q%!12=1<<21
Jș "Wimp_SetIconState",,q%
T�
^:
h� �clear_icon(h%,i%)
r)!q%=h%:q%!4=i%:q%!8=0<<21:q%!12=1<<21
|ș "Wimp_SetIconState",,q%
��
�:
�� �iconaddr(h%,i%)
�-!q%=h%:q%!4=i%:ș "Wimp_GetIconState",,q%
�3� (q%!24 � &100)=0 � 0,"Icon is not indirected"
�
=q%!28
�:
�� �warningbox(warning$)
�!q%=�:$(q%+4)=warning$+�(0)
�'ș "Wimp_ReportError",q%,1,program$
��
�:
�
� �online
� start%,end%,wait%
start%=�(-4)
5� 2:� 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0:� 3
&wait%=�(5)
0end%=�(-4)
:=(start%=end%)
D:
N� �read(id%,� lf%)
X� data$,byte%
bdata$=""
lbyte%=�# id%
v<� byte toevoegen aan data$ zolang niet linefeed of komma
�ȕ byte%<>10 � byte%<>44
�  data$+=�(byte%)
�  byte%=�# id%
��
�lf%=�: � byte%=10 lf%=�
�
=data$
�:
�� �lowercase(s$)
�� K%,c%,lower$
�
lower$=""
�� K%=1 � �(s$)
�  c%=�(�s$,K%,1))
�!  � c%>=�("A") � c%<=�("Z") �
#    lower$+=�(c%-�("A")+�("a"))
  �
    lower$+=�(c%)
   �
*�
4=lower$
>:
H!� �send_code(id%,name$,code%)
R� s$,lf%,ok%
\!s$=�lowercase(�read(id%,lf%))
f#� s$<>�lowercase(name$) � lf% �
p  ok%=�
z�
�	  � 2
�  �
�    s$=�read(id%,lf%)
�&    � s$="*" � 1,code% � � 1,�(s$)
�  � lf%
�	  � 3
�  ok%=�
��
�=ok%
�:
�� �jump_code(id%,name$)
�� s$,lf%,ok%
�!s$=�lowercase(�read(id%,lf%))
	#� s$<>�lowercase(name$) � lf% �
	  ok%=�
	�
	$  �
	.    s$=�read(id%,lf%)
	8  � lf%
	B  ok%=�
	L�
	V=ok%
	`:
	j� �setup_printer
	t� K%,t$,id%,lf%
	~'id%=�("<InitDM$Dir>.<InitDM$File>")
	�.� id%=0 � 0,"Printer codes file not found"
	�(printer$=�read(id%,lf%):� � lf% �7:�
	�3ok%=�send_code(id%,"reset",0): � resets printer
	�� � ok% �#id%:�
	�� K%=1 � 3
	�
  Ȏ K% �
	�  � 1: t$="pica"
	�  � 2: t$="elite"
	�  � 3: t$="condensed"
	�  �
	�C  � K%=pitch% ok%=�send_code(id%,t$,0) � ok%=�jump_code(id%,t$)
	�  � � ok% �#id%:�
�

|� nlq% ok%=�jump_code(id%,"draft"):ok%=�send_code(id%,"nlq",0) � ok%=�send_code(id%,"draft",0):ok%=�jump_code(id%,"nlq")
� � ok% �#id%:�
9ok%=�send_code(id%,"linespacing",ls%): � in 1/72 inch
(� � ok% �#id%:�
25ok%=�send_code(id%,"pagelength",pl%): � in inches
<� � ok% �#id%:�
F7ok%=�send_code(id%,"topmargin",�($tm%)): � in lines
P� � ok% �#id%:�
Z:ok%=�send_code(id%,"bottommargin",�($bm%)): � in lines
d� � ok% �#id%:�
n8ok%=�send_code(id%,"leftmargin",�($lm%)): � in chars
x� � ok% �#id%:�
�9ok%=�send_code(id%,"rightmargin",�($rm%)): � in chars
�
�# id%
��
�:
�� �do_it
��("FX 5,0")
�G� �icon_set(options%,2) �("FX 5,1"): � printing to parall.interface
�G� �icon_set(options%,3) �("FX 5,2"): � printing to serial interface
�Q� � �online �message("Printer unconnected/offline Reconnect and try again"):�
��setup_printer
�4� � ok% �warningbox("Printer codes file not OK")
��
�:
� �receive(message%)
Ȏ message% �
� 0: quit%=�
"�
,�
6:
@.� �mouse_click(x%,y%,b%,handle%,icon%,ob%)
Jmousex%=x%:mousey%=y%
TȎ b% �
^� 2
h  � handle%=-2 �do_menu
r	� 1,4
|  Ȏ handle% �
�
  � main%
�    Ȏ icon% �
�    � 12: pitch%=1
�    �  7: pitch%=2
�    �  8: pitch%=3
�    �  9: nlq%=� nlq%
�    �  6: ls%=12
�    � 14: ls%=9
�    �  2: pl%=11
�    � 11: pl%=12
�"    � 26: �close_window(main%)
�)    � 21: �close_window(main%):�do_it
�g    � 24: �message("Change the printer codes file to configure this program for your own printer.")
	    �
  � message%
)    � icon%=1 �close_window(message%)
&
  � -2
06    � open% �front(main%) � �reopen(main%):open%=�
:  �
D�
N�
X:
b� �menu_select
l� menu$,adjust%
v;ș "Wimp_GetPointerInfo",,block%:adjust%=(block%!8 � 1)
�9ș "Wimp_DecodeMenu",,iconmenu%,q%,�200," ")�,,,menu$
�Ȏ menu$ �
�� "Save options"
�$  id%=�("<InitDM$Dir>.!Choices")
�!  �#id%,�icon_set(options%,2)
�!  �#id%,�icon_set(options%,3)
�  �#id%
�� "Quit"
�
  quit%=�
��
�� adjust% �do_menu
��
�:

� �init


� id%,lf%

I`wbcol=0:`tbcol=2:`sco=3:`mbcol=2:`wfcol=7:`tfcol=7:`sci=1:`tbcol2=12

 %� iconmenu% 268:menublocksize=268

*menublocksize=268

4!noofdiagw=2:� sub%(noofdiagw)

>� icon menu

H@menu$="(210)"+program$+",!1Info,!2Options,Save options,Quit"

R"sub%(1)=info%:sub%(2)=options%

\� iconmenu% 2*menublocksize

f!�create_menu(iconmenu%,menu$)

pI!q%=-1:q%!4=0:q%!8=0:q%!12=69:q%!16=68:q%!20=&3002:$(q%+24)="!initdm"

z'ș "Wimp_CreateIcon",,q% � iconbar%

�open%=�

�H�getpointer:xo%=mousex%:yo%=mousey%: � only necessary if open%=FALSE

�"id%=�("<InitDM$Dir>.!Choices")

�� id%<>0 �

�  b%=�#id%:� parallel

�   � b% �set_icon(options%,2)

�  b%=�#id%:� serial

�   � b% �set_icon(options%,3)

�  �#id%

��

�  �set_icon(options%,2)

��

�!pitch%=1:nlq%=�:ls%=12:pl%=12
'id%=�("<InitDM$Dir>.<InitDM$File>")
.� id%=0 � 0,"Printer codes file not found"
Cprinter$=�read(id%,lf%):� � lf% � 0,"Printer codes file not OK"
$$printer%=printer$
.
�# id%
8�
B:
L� �message(message$)
V$message_icon%=message$
`�front(message%)
j�
t:
~� �errorbox
�� �
�� � � ș "Wimp_CloseDown":�
�6!q%=�:$(q%+4)=�$+" (internal error "+�(�)+")"+�(0)
�'ș "Wimp_ReportError",q%,1,program$
�ș "Wimp_CloseDown"
��
�

00000000  0d 00 0a 1e f4 20 3e 20  3c 49 6e 69 74 44 4d 24  |..... > <InitDM$|
00000010  44 69 72 3e 2e 21 52 75  6e 49 6d 61 67 65 0d 00  |Dir>.!RunImage..|
00000020  14 32 f4 20 21 49 6e 69  74 44 4d 20 61 70 70 6c  |.2. !InitDM appl|
00000030  69 63 61 74 69 6f 6e 3a  20 69 6e 69 74 20 64 6f  |ication: init do|
00000040  74 20 6d 61 74 72 69 78  20 70 72 69 6e 74 65 72  |t matrix printer|
00000050  0d 00 1e 28 f4 20 43 6f  70 79 72 69 67 68 74 20  |...(. Copyright |
00000060  28 43 29 20 57 61 6c 74  68 65 72 20 53 63 68 6f  |(C) Walther Scho|
00000070  6f 6e 65 6e 62 65 72 67  0d 00 28 05 3a 0d 00 32  |onenberg..(.:..2|
00000080  30 70 72 6f 67 72 61 6d  24 3d 22 49 6e 69 74 44  |0program$="InitD|
00000090  4d 22 3a 76 65 72 73 69  6f 6e 24 3d 22 31 2e 30  |M":version$="1.0|
000000a0  30 20 28 33 2d 46 65 62  2d 39 30 29 22 0d 00 3c  |0 (3-Feb-90)"..<|
000000b0  05 3a 0d 00 46 1e de 20  74 61 73 6b 69 64 25 34  |.:..F.. taskid%4|
000000c0  3a 24 74 61 73 6b 69 64  25 3d 22 54 41 53 4b 22  |:$taskid%="TASK"|
000000d0  0d 00 50 39 c8 99 20 22  57 69 6d 70 5f 49 6e 69  |..P9.. "Wimp_Ini|
000000e0  74 69 61 6c 69 73 65 22  2c 32 30 30 2c 21 74 61  |tialise",200,!ta|
000000f0  73 6b 69 64 25 2c 70 72  6f 67 72 61 6d 24 20 b8  |skid%,program$ .|
00000100  20 76 65 72 73 69 6f 6e  25 0d 00 5a 13 ee 20 85  | version%..Z.. .|
00000110  20 f2 65 72 72 6f 72 62  6f 78 3a e0 0d 00 64 05  | .errorbox:...d.|
00000120  3a 0d 00 6e 25 de 20 71  25 20 32 35 36 2c 62 6c  |:..n%. q% 256,bl|
00000130  6f 63 6b 25 20 26 31 30  30 30 2c 69 63 6f 6e 62  |ock% &1000,iconb|
00000140  75 66 25 20 34 30 0d 00  78 2f 6d 61 78 77 73 25  |uf% 40..x/maxws%|
00000150  3d 26 31 34 30 30 3a de  20 77 73 25 20 6d 61 78  |=&1400:. ws% max|
00000160  77 73 25 3a 77 73 65 6e  64 25 3d 77 73 25 2b 6d  |ws%:wsend%=ws%+m|
00000170  61 78 77 73 25 0d 00 82  34 c8 99 20 22 57 69 6d  |axws%...4.. "Wim|
00000180  70 5f 4f 70 65 6e 54 65  6d 70 6c 61 74 65 22 2c  |p_OpenTemplate",|
00000190  2c 22 3c 49 6e 69 74 44  4d 24 44 69 72 3e 2e 54  |,"<InitDM$Dir>.T|
000001a0  65 6d 70 6c 61 74 65 73  22 0d 00 8c 2b ee 20 85  |emplates"...+. .|
000001b0  20 c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 54  | .. "Wimp_CloseT|
000001c0  65 6d 70 6c 61 74 65 22  3a f2 65 72 72 6f 72 62  |emplate":.errorb|
000001d0  6f 78 3a e0 0d 00 96 41  c8 99 20 22 57 69 6d 70  |ox:....A.. "Wimp|
000001e0  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
000001f0  62 6c 6f 63 6b 25 2c 77  73 25 2c 77 73 65 6e 64  |block%,ws%,wsend|
00000200  25 2c 2d 31 2c 22 49 6e  66 6f 22 2c 30 20 b8 20  |%,-1,"Info",0 . |
00000210  2c 2c 77 73 25 0d 00 a0  2a c8 99 20 22 57 69 6d  |,,ws%...*.. "Wim|
00000220  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00000230  2c 62 6c 6f 63 6b 25 20  b8 20 69 6e 66 6f 25 0d  |,block% . info%.|
00000240  00 aa 32 76 65 72 73 69  6f 6e 25 3d a4 69 63 6f  |..2version%=.ico|
00000250  6e 61 64 64 72 28 69 6e  66 6f 25 2c 34 29 3a 24  |naddr(info%,4):$|
00000260  76 65 72 73 69 6f 6e 25  3d 76 65 72 73 69 6f 6e  |version%=version|
00000270  24 0d 00 b4 41 c8 99 20  22 57 69 6d 70 5f 4c 6f  |$...A.. "Wimp_Lo|
00000280  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 62 6c 6f  |adTemplate",,blo|
00000290  63 6b 25 2c 77 73 25 2c  77 73 65 6e 64 25 2c 2d  |ck%,ws%,wsend%,-|
000002a0  31 2c 22 4d 61 69 6e 22  2c 30 20 b8 20 2c 2c 77  |1,"Main",0 . ,,w|
000002b0  73 25 0d 00 be 2a c8 99  20 22 57 69 6d 70 5f 43  |s%...*.. "Wimp_C|
000002c0  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |reateWindow",,bl|
000002d0  6f 63 6b 25 20 b8 20 6d  61 69 6e 25 0d 00 c8 20  |ock% . main%... |
000002e0  70 72 69 6e 74 65 72 25  3d a4 69 63 6f 6e 61 64  |printer%=.iconad|
000002f0  64 72 28 6d 61 69 6e 25  2c 32 34 29 0d 00 d2 1b  |dr(main%,24)....|
00000300  74 6d 25 3d a4 69 63 6f  6e 61 64 64 72 28 6d 61  |tm%=.iconaddr(ma|
00000310  69 6e 25 2c 31 36 29 0d  00 dc 1a 62 6d 25 3d a4  |in%,16)....bm%=.|
00000320  69 63 6f 6e 61 64 64 72  28 6d 61 69 6e 25 2c 34  |iconaddr(main%,4|
00000330  29 0d 00 e6 1b 6c 6d 25  3d a4 69 63 6f 6e 61 64  |)....lm%=.iconad|
00000340  64 72 28 6d 61 69 6e 25  2c 31 39 29 0d 00 f0 1b  |dr(main%,19)....|
00000350  72 6d 25 3d a4 69 63 6f  6e 61 64 64 72 28 6d 61  |rm%=.iconaddr(ma|
00000360  69 6e 25 2c 32 30 29 0d  00 fa 44 c8 99 20 22 57  |in%,20)...D.. "W|
00000370  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00000380  22 2c 2c 62 6c 6f 63 6b  25 2c 77 73 25 2c 77 73  |",,block%,ws%,ws|
00000390  65 6e 64 25 2c 2d 31 2c  22 6d 65 73 73 61 67 65  |end%,-1,"message|
000003a0  22 2c 30 20 b8 20 2c 2c  77 73 25 0d 01 04 2d c8  |",0 . ,,ws%...-.|
000003b0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
000003c0  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 20 b8 20  |ndow",,block% . |
000003d0  6d 65 73 73 61 67 65 25  0d 01 0e 27 6d 65 73 73  |message%...'mess|
000003e0  61 67 65 5f 69 63 6f 6e  25 3d a4 69 63 6f 6e 61  |age_icon%=.icona|
000003f0  64 64 72 28 6d 65 73 73  61 67 65 25 2c 30 29 0d  |ddr(message%,0).|
00000400  01 18 44 c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |..D.. "Wimp_Load|
00000410  54 65 6d 70 6c 61 74 65  22 2c 2c 62 6c 6f 63 6b  |Template",,block|
00000420  25 2c 77 73 25 2c 77 73  65 6e 64 25 2c 2d 31 2c  |%,ws%,wsend%,-1,|
00000430  22 4f 70 74 69 6f 6e 73  22 2c 30 20 b8 20 2c 2c  |"Options",0 . ,,|
00000440  77 73 25 0d 01 22 2d c8  99 20 22 57 69 6d 70 5f  |ws%.."-.. "Wimp_|
00000450  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 62  |CreateWindow",,b|
00000460  6c 6f 63 6b 25 20 b8 20  6f 70 74 69 6f 6e 73 25  |lock% . options%|
00000470  0d 01 2c 1b c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |..,... "Wimp_Clo|
00000480  73 65 54 65 6d 70 6c 61  74 65 22 0d 01 36 13 ee  |seTemplate"..6..|
00000490  20 85 20 f2 65 72 72 6f  72 62 6f 78 3a e0 0d 01  | . .errorbox:...|
000004a0  40 09 f2 69 6e 69 74 0d  01 4a 0b 71 75 69 74 25  |@..init..J.quit%|
000004b0  3d a3 0d 01 54 23 6d 61  73 6b 25 3d 31 3a 20 f4  |=...T#mask%=1: .|
000004c0  20 6d 61 73 6b 20 6f 75  74 20 6e 75 6c 6c 5f 72  | mask out null_r|
000004d0  65 61 73 6f 6e 0d 01 5e  05 f5 0d 01 68 27 20 20  |eason..^....h'  |
000004e0  c8 99 20 22 57 69 6d 70  5f 50 6f 6c 6c 22 2c 6d  |.. "Wimp_Poll",m|
000004f0  61 73 6b 25 2c 71 25 20  b8 20 72 65 61 73 6f 6e  |ask%,q% . reason|
00000500  25 0d 01 72 12 20 20 c8  8e 20 72 65 61 73 6f 6e  |%..r.  .. reason|
00000510  25 20 ca 0d 01 7c 1e 20  20 c9 20 31 3a 20 f2 72  |% ...|.  . 1: .r|
00000520  65 64 72 61 77 5f 77 69  6e 64 6f 77 28 21 71 25  |edraw_window(!q%|
00000530  29 0d 01 86 44 20 20 c9  20 32 3a 20 f2 6f 70 65  |)...D  . 2: .ope|
00000540  6e 5f 77 69 6e 64 6f 77  28 21 71 25 2c 71 25 21  |n_window(!q%,q%!|
00000550  34 2c 71 25 21 38 2c 71  25 21 31 32 2c 71 25 21  |4,q%!8,q%!12,q%!|
00000560  31 36 2c 71 25 21 32 30  2c 71 25 21 32 34 2c 71  |16,q%!20,q%!24,q|
00000570  25 21 32 38 29 0d 01 90  1d 20 20 c9 20 33 3a 20  |%!28)....  . 3: |
00000580  f2 63 6c 6f 73 65 5f 77  69 6e 64 6f 77 28 21 71  |.close_window(!q|
00000590  25 29 0d 01 9a 38 20 20  c9 20 36 3a 20 f2 6d 6f  |%)...8  . 6: .mo|
000005a0  75 73 65 5f 63 6c 69 63  6b 28 21 71 25 2c 71 25  |use_click(!q%,q%|
000005b0  21 34 2c 71 25 21 38 2c  71 25 21 31 32 2c 71 25  |!4,q%!8,q%!12,q%|
000005c0  21 31 36 2c 71 25 21 32  30 29 0d 01 a4 17 20 20  |!16,q%!20)....  |
000005d0  c9 20 39 3a 20 f2 6d 65  6e 75 5f 73 65 6c 65 63  |. 9: .menu_selec|
000005e0  74 0d 01 ae 1e 20 20 c9  20 31 37 2c 31 38 3a 20  |t....  . 17,18: |
000005f0  f2 72 65 63 65 69 76 65  28 71 25 21 31 36 29 0d  |.receive(q%!16).|
00000600  01 b8 07 20 20 cb 0d 01  c2 0b fd 20 71 75 69 74  |...  ...... quit|
00000610  25 0d 01 cc 17 c8 99 20  22 57 69 6d 70 5f 43 6c  |%...... "Wimp_Cl|
00000620  6f 73 65 44 6f 77 6e 22  0d 01 d6 05 e0 0d 01 e0  |oseDown"........|
00000630  05 3a 0d 01 ea 13 dd 20  f2 69 6e 66 6f 28 62 6c  |.:..... .info(bl|
00000640  6f 63 6b 25 29 0d 01 f4  55 78 30 25 3d 21 62 6c  |ock%)...Ux0%=!bl|
00000650  6f 63 6b 25 3a 79 30 25  3d 62 6c 6f 63 6b 25 21  |ock%:y0%=block%!|
00000660  34 3a 78 31 25 3d 62 6c  6f 63 6b 25 21 38 3a 79  |4:x1%=block%!8:y|
00000670  31 25 3d 62 6c 6f 63 6b  25 21 31 32 3a 73 63 78  |1%=block%!12:scx|
00000680  25 3d 62 6c 6f 63 6b 25  21 31 36 3a 73 63 79 25  |%=block%!16:scy%|
00000690  3d 62 6c 6f 63 6b 25 21  32 30 0d 01 fe 1d 62 78  |=block%!20....bx|
000006a0  25 3d 78 30 25 2d 73 63  78 25 3a 62 79 25 3d 79  |%=x0%-scx%:by%=y|
000006b0  31 25 2d 73 63 79 25 0d  02 08 05 e1 0d 02 12 05  |1%-scy%.........|
000006c0  3a 0d 02 1c 14 dd 20 f2  67 65 74 77 28 68 61 6e  |:..... .getw(han|
000006d0  64 6c 65 25 29 0d 02 26  34 21 62 6c 6f 63 6b 25  |dle%)..&4!block%|
000006e0  3d 68 61 6e 64 6c 65 25  3a c8 99 20 22 57 69 6d  |=handle%:.. "Wim|
000006f0  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00000700  22 2c 2c 62 6c 6f 63 6b  25 0d 02 30 37 f2 69 6e  |",,block%..07.in|
00000710  66 6f 28 62 6c 6f 63 6b  25 2b 34 29 3a 62 68 61  |fo(block%+4):bha|
00000720  6e 64 6c 65 25 3d 62 6c  6f 63 6b 25 21 32 38 3a  |ndle%=block%!28:|
00000730  66 6c 61 67 73 25 3d 62  6c 6f 63 6b 25 21 33 32  |flags%=block%!32|
00000740  0d 02 3a 05 e1 0d 02 44  05 3a 0d 02 4e 1d dd 20  |..:....D.:..N.. |
00000750  f2 72 65 64 72 61 77 5f  77 69 6e 64 6f 77 28 68  |.redraw_window(h|
00000760  61 6e 64 6c 65 25 29 0d  02 58 0f 21 71 25 3d 68  |andle%)..X.!q%=h|
00000770  61 6e 64 6c 65 25 0d 02  62 26 c8 99 20 22 57 69  |andle%..b&.. "Wi|
00000780  6d 70 5f 52 65 64 72 61  77 57 69 6e 64 6f 77 22  |mp_RedrawWindow"|
00000790  2c 2c 71 25 20 b8 20 6d  6f 72 65 25 0d 02 6c 0f  |,,q% . more%..l.|
000007a0  f2 69 6e 66 6f 28 71 25  2b 34 29 0d 02 76 0c c8  |.info(q%+4)..v..|
000007b0  95 20 6d 6f 72 65 25 0d  02 80 28 20 20 c8 99 20  |. more%...(  .. |
000007c0  22 57 69 6d 70 5f 47 65  74 52 65 63 74 61 6e 67  |"Wimp_GetRectang|
000007d0  6c 65 22 2c 2c 71 25 20  b8 20 6d 6f 72 65 25 0d  |le",,q% . more%.|
000007e0  02 8a 05 ce 0d 02 94 05  e1 0d 02 9e 05 3a 0d 02  |.............:..|
000007f0  a8 15 dd 20 f2 66 72 6f  6e 74 28 68 61 6e 64 6c  |... .front(handl|
00000800  65 25 29 0d 02 b2 12 e7  20 68 61 6e 64 6c 65 25  |e%)..... handle%|
00000810  3d 2d 31 20 e1 0d 02 bc  12 f2 67 65 74 77 28 68  |=-1 ......getw(h|
00000820  61 6e 64 6c 65 25 29 0d  02 c6 36 f2 6f 70 65 6e  |andle%)...6.open|
00000830  5f 77 69 6e 64 6f 77 28  68 61 6e 64 6c 65 25 2c  |_window(handle%,|
00000840  78 30 25 2c 79 30 25 2c  78 31 25 2c 79 31 25 2c  |x0%,y0%,x1%,y1%,|
00000850  73 63 78 25 2c 73 63 79  25 2c 2d 31 29 0d 02 d0  |scx%,scy%,-1)...|
00000860  05 e1 0d 02 da 05 3a 0d  02 e4 16 dd 20 f2 72 65  |......:..... .re|
00000870  6f 70 65 6e 28 68 61 6e  64 6c 65 25 29 0d 02 ee  |open(handle%)...|
00000880  12 f2 67 65 74 77 28 68  61 6e 64 6c 65 25 29 0d  |..getw(handle%).|
00000890  02 f8 46 f2 6f 70 65 6e  5f 77 69 6e 64 6f 77 28  |..F.open_window(|
000008a0  68 61 6e 64 6c 65 25 2c  78 6f 25 2c 79 6f 25 2c  |handle%,xo%,yo%,|
000008b0  78 31 25 2d 78 30 25 2b  78 6f 25 2c 79 31 25 2d  |x1%-x0%+xo%,y1%-|
000008c0  79 30 25 2b 79 6f 25 2c  73 63 78 25 2c 73 63 79  |y0%+yo%,scx%,scy|
000008d0  25 2c 2d 31 29 0d 03 02  05 e1 0d 03 0c 05 3a 0d  |%,-1).........:.|
000008e0  03 16 3e dd 20 f2 6f 70  65 6e 5f 77 69 6e 64 6f  |..>. .open_windo|
000008f0  77 28 68 61 6e 64 6c 65  25 2c 78 30 25 2c 79 30  |w(handle%,x0%,y0|
00000900  25 2c 78 31 25 2c 79 31  25 2c 73 63 78 25 2c 73  |%,x1%,y1%,scx%,s|
00000910  63 79 25 2c 62 68 61 6e  64 6c 65 25 29 0d 03 20  |cy%,bhandle%).. |
00000920  12 e7 20 68 61 6e 64 6c  65 25 3d 2d 31 20 e1 0d  |.. handle%=-1 ..|
00000930  03 2a 27 62 6c 6f 63 6b  25 21 30 3d 68 61 6e 64  |.*'block%!0=hand|
00000940  6c 65 25 3a 62 6c 6f 63  6b 25 21 32 38 3d 62 68  |le%:block%!28=bh|
00000950  61 6e 64 6c 65 25 0d 03  34 39 62 6c 6f 63 6b 25  |andle%..49block%|
00000960  21 34 3d 78 30 25 3a 62  6c 6f 63 6b 25 21 38 3d  |!4=x0%:block%!8=|
00000970  79 30 25 3a 62 6c 6f 63  6b 25 21 31 32 3d 78 31  |y0%:block%!12=x1|
00000980  25 3a 62 6c 6f 63 6b 25  21 31 36 3d 79 31 25 0d  |%:block%!16=y1%.|
00000990  03 3e 21 62 6c 6f 63 6b  25 21 32 30 3d 73 63 78  |.>!block%!20=scx|
000009a0  25 3a 62 6c 6f 63 6b 25  21 32 34 3d 73 63 79 25  |%:block%!24=scy%|
000009b0  0d 03 48 20 c8 99 20 22  57 69 6d 70 5f 4f 70 65  |..H .. "Wimp_Ope|
000009c0  6e 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |nWindow",,block%|
000009d0  0d 03 52 05 e1 0d 03 5c  05 3a 0d 03 66 11 dd 20  |..R....\.:..f.. |
000009e0  f2 67 65 74 70 6f 69 6e  74 65 72 0d 03 70 24 c8  |.getpointer..p$.|
000009f0  99 20 22 57 69 6d 70 5f  47 65 74 50 6f 69 6e 74  |. "Wimp_GetPoint|
00000a00  65 72 49 6e 66 6f 22 2c  2c 62 6c 6f 63 6b 25 0d  |erInfo",,block%.|
00000a10  03 7a 60 6d 6f 75 73 65  78 25 3d 21 62 6c 6f 63  |.z`mousex%=!bloc|
00000a20  6b 25 3a 6d 6f 75 73 65  79 25 3d 62 6c 6f 63 6b  |k%:mousey%=block|
00000a30  25 21 34 3a 62 25 3d 62  6c 6f 63 6b 25 21 38 3a  |%!4:b%=block%!8:|
00000a40  68 61 6e 64 6c 65 25 3d  62 6c 6f 63 6b 25 21 31  |handle%=block%!1|
00000a50  32 3a 69 63 6f 6e 25 3d  62 6c 6f 63 6b 25 21 31  |2:icon%=block%!1|
00000a60  36 3a 6f 62 25 3d 62 6c  6f 63 6b 25 21 32 30 0d  |6:ob%=block%!20.|
00000a70  03 84 05 e1 0d 03 8e 05  3a 0d 03 98 1c dd 20 f2  |........:..... .|
00000a80  63 6c 6f 73 65 5f 77 69  6e 64 6f 77 28 68 61 6e  |close_window(han|
00000a90  64 6c 65 25 29 0d 03 a2  12 f2 67 65 74 77 28 68  |dle%).....getw(h|
00000aa0  61 6e 64 6c 65 25 29 0d  03 ac 1b 78 6f 25 3d 78  |andle%)....xo%=x|
00000ab0  30 25 3a 79 6f 25 3d 79  30 25 3a 6f 70 65 6e 25  |0%:yo%=y0%:open%|
00000ac0  3d a3 0d 03 b6 29 21 71  25 3d 68 61 6e 64 6c 65  |=....)!q%=handle|
00000ad0  25 3a c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |%:.. "Wimp_Close|
00000ae0  57 69 6e 64 6f 77 22 2c  2c 71 25 0d 03 c0 05 e1  |Window",,q%.....|
00000af0  0d 03 ca 05 3a 0d 03 d4  0e dd 20 f2 64 6f 5f 6d  |....:..... .do_m|
00000b00  65 6e 75 0d 03 de 36 c8  99 20 22 57 69 6d 70 5f  |enu...6.. "Wimp_|
00000b10  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 69 63 6f  |CreateMenu",,ico|
00000b20  6e 6d 65 6e 75 25 2c 6d  6f 75 73 65 78 25 2d 36  |nmenu%,mousex%-6|
00000b30  34 2c 39 36 2b 34 2a 34  34 0d 03 e8 05 e1 0d 03  |4,96+4*44.......|
00000b40  f2 05 3a 0d 03 fc 2a dd  20 a4 63 72 65 61 74 65  |..:...*. .create|
00000b50  5f 6d 65 6e 75 5f 6c 65  76 65 6c 28 6d 65 6e 75  |_menu_level(menu|
00000b60  62 6c 6f 63 6b 25 2c 74  65 78 74 24 29 0d 04 06  |block%,text$)...|
00000b70  4a ea 20 6e 65 77 74 65  78 74 24 2c 74 69 74 6c  |J. newtext$,titl|
00000b80  65 24 2c 77 69 64 74 68  25 2c 70 74 72 25 2c 73  |e$,width%,ptr%,s|
00000b90  68 61 64 65 25 2c 74 69  63 6b 25 2c 64 6f 74 74  |hade%,tick%,dott|
00000ba0  65 64 25 2c 66 67 63 6f  6c 25 2c 73 75 62 6d 65  |ed%,fgcol%,subme|
00000bb0  6e 75 25 2c 6d 62 25 0d  04 10 0d 6c 65 76 65 6c  |nu%,mb%....level|
00000bc0  25 2b 3d 31 0d 04 1a 2b  6d 62 25 3d 6d 65 6e 75  |%+=1...+mb%=menu|
00000bd0  62 6c 6f 63 6b 25 2b 28  6c 65 76 65 6c 25 2d 31  |block%+(level%-1|
00000be0  29 2a 6d 65 6e 75 62 6c  6f 63 6b 73 69 7a 65 0d  |)*menublocksize.|
00000bf0  04 24 20 74 69 74 6c 65  24 3d c0 74 65 78 74 24  |.$ title$=.text$|
00000c00  2c a7 74 65 78 74 24 2c  22 2c 22 29 2d 31 29 0d  |,.text$,",")-1).|
00000c10  04 2e 0e 77 69 64 74 68  25 3d 31 39 36 0d 04 38  |...width%=196..8|
00000c20  16 e7 20 c0 74 69 74 6c  65 24 2c 31 29 3d 22 28  |.. .title$,1)="(|
00000c30  22 20 8c 0d 04 42 17 20  20 74 69 74 6c 65 24 3d  |" ...B.  title$=|
00000c40  c1 74 69 74 6c 65 24 2c  32 29 0d 04 4c 27 20 20  |.title$,2)..L'  |
00000c50  77 69 64 74 68 25 3d bb  28 c0 74 69 74 6c 65 24  |width%=.(.title$|
00000c60  2c a7 74 69 74 6c 65 24  2c 22 29 22 29 2d 31 29  |,.title$,")")-1)|
00000c70  29 0d 04 56 24 20 20 74  69 74 6c 65 24 3d c1 74  |)..V$  title$=.t|
00000c80  69 74 6c 65 24 2c a7 74  69 74 6c 65 24 2c 22 29  |itle$,.title$,")|
00000c90  22 29 2b 31 29 0d 04 60  05 cd 0d 04 6a 1f 74 65  |")+1)..`....j.te|
00000ca0  78 74 24 3d c1 74 65 78  74 24 2c a7 74 65 78 74  |xt$=.text$,.text|
00000cb0  24 2c 22 2c 22 29 2b 31  29 0d 04 74 22 24 6d 62  |$,",")+1)..t"$mb|
00000cc0  25 3d c0 74 69 74 6c 65  24 2c 31 31 29 3a 20 f4  |%=.title$,11): .|
00000cd0  20 6d 65 6e 75 20 74 69  74 6c 65 0d 04 7e 41 6d  | menu title..~Am|
00000ce0  62 25 3f 31 32 3d 60 74  66 63 6f 6c 3a 6d 62 25  |b%?12=`tfcol:mb%|
00000cf0  3f 31 33 3d 32 3a 6d 62  25 3f 31 34 3d 60 77 66  |?13=2:mb%?14=`wf|
00000d00  63 6f 6c 3a 6d 62 25 3f  31 35 3d 60 77 62 63 6f  |col:mb%?15=`wbco|
00000d10  6c 3a 20 f4 20 63 6f 6c  6f 75 72 73 0d 04 88 28  |l: . colours...(|
00000d20  6d 62 25 21 31 36 3d 77  69 64 74 68 25 3a 20 f4  |mb%!16=width%: .|
00000d30  20 77 69 64 74 68 20 6f  66 20 6d 65 6e 75 20 69  | width of menu i|
00000d40  74 65 6d 73 0d 04 92 25  6d 62 25 21 32 30 3d 34  |tems...%mb%!20=4|
00000d50  34 3a 20 f4 20 68 65 69  67 68 74 20 6f 66 20 6d  |4: . height of m|
00000d60  65 6e 75 20 69 74 65 6d  73 0d 04 9c 27 6d 62 25  |enu items...'mb%|
00000d70  21 32 34 3d 30 3a 20 f4  20 76 65 72 74 2e 20 67  |!24=0: . vert. g|
00000d80  61 70 20 62 65 74 77 65  65 6e 20 69 74 65 6d 73  |ap between items|
00000d90  0d 04 a6 1f e7 20 c2 74  65 78 74 24 2c 31 29 3c  |..... .text$,1)<|
00000da0  3e 22 2c 22 20 74 65 78  74 24 2b 3d 22 2c 22 0d  |>"," text$+=",".|
00000db0  04 b0 29 70 74 72 25 3d  6d 62 25 2b 32 38 3a 20  |..)ptr%=mb%+28: |
00000dc0  f4 20 73 74 61 72 74 20  6d 65 6e 75 20 69 74 65  |. start menu ite|
00000dd0  6d 73 20 62 6c 6f 63 6b  0d 04 ba 05 f5 0d 04 c4  |ms block........|
00000de0  0e 20 20 73 68 61 64 65  25 3d 30 0d 04 ce 0d 20  |.  shade%=0.... |
00000df0  20 74 69 63 6b 25 3d 30  0d 04 d8 0f 20 20 64 6f  | tick%=0....  do|
00000e00  74 74 65 64 25 3d 30 0d  04 e2 11 20 20 73 75 62  |tted%=0....  sub|
00000e10  6d 65 6e 75 25 3d 2d 31  0d 04 ec 36 20 20 e7 20  |menu%=-1...6  . |
00000e20  c0 74 65 78 74 24 2c 31  29 3d 22 3c 22 20 8c 20  |.text$,1)="<" . |
00000e30  73 68 61 64 65 25 3d 26  34 30 30 30 30 30 3a 74  |shade%=&400000:t|
00000e40  65 78 74 24 3d c1 74 65  78 74 24 2c 32 29 0d 04  |ext$=.text$,2)..|
00000e50  f6 2f 20 20 e7 20 c0 74  65 78 74 24 2c 31 29 3d  |./  . .text$,1)=|
00000e60  22 3e 22 20 8c 20 74 69  63 6b 25 3d 31 3a 74 65  |">" . tick%=1:te|
00000e70  78 74 24 3d c1 74 65 78  74 24 2c 32 29 0d 05 00  |xt$=.text$,2)...|
00000e80  31 20 20 e7 20 c0 74 65  78 74 24 2c 31 29 3d 22  |1  . .text$,1)="|
00000e90  3a 22 20 8c 20 64 6f 74  74 65 64 25 3d 32 3a 74  |:" . dotted%=2:t|
00000ea0  65 78 74 24 3d c1 74 65  78 74 24 2c 32 29 0d 05  |ext$=.text$,2)..|
00000eb0  0a 17 20 20 e7 20 c0 74  65 78 74 24 2c 31 29 3d  |..  . .text$,1)=|
00000ec0  22 21 22 20 8c 0d 05 14  25 20 20 20 20 73 75 62  |"!" ....%    sub|
00000ed0  6d 65 6e 75 25 3d 73 75  62 25 28 bb 28 c1 74 65  |menu%=sub%(.(.te|
00000ee0  78 74 24 2c 32 2c 31 29  29 29 0d 05 1e 17 20 20  |xt$,2,1)))....  |
00000ef0  20 20 74 65 78 74 24 3d  c1 74 65 78 74 24 2c 33  |  text$=.text$,3|
00000f00  29 0d 05 28 07 20 20 cd  0d 05 32 17 20 20 e7 20  |)..(.  ...2.  . |
00000f10  c0 74 65 78 74 24 2c 31  29 3d 22 28 22 20 8c 0d  |.text$,1)="(" ..|
00000f20  05 3c 17 20 20 20 20 74  65 78 74 24 3d c1 74 65  |.<.    text$=.te|
00000f30  78 74 24 2c 32 29 0d 05  46 30 20 20 20 20 6e 65  |xt$,2)..F0    ne|
00000f40  77 74 65 78 74 24 3d 6d  65 6e 75 24 28 bb 28 c0  |wtext$=menu$(.(.|
00000f50  74 65 78 74 24 2c a7 74  65 78 74 24 2c 22 29 22  |text$,.text$,")"|
00000f60  29 2d 31 29 29 29 0d 05  50 23 20 20 20 20 74 65  |)-1)))..P#    te|
00000f70  78 74 24 3d c1 74 65 78  74 24 2c a7 74 65 78 74  |xt$=.text$,.text|
00000f80  24 2c 22 29 22 29 2b 31  29 0d 05 5a 38 20 20 20  |$,")")+1)..Z8   |
00000f90  20 73 75 62 6d 65 6e 75  25 3d a4 63 72 65 61 74  | submenu%=.creat|
00000fa0  65 5f 6d 65 6e 75 5f 6c  65 76 65 6c 28 6d 65 6e  |e_menu_level(men|
00000fb0  75 62 6c 6f 63 6b 25 2c  6e 65 77 74 65 78 74 24  |ublock%,newtext$|
00000fc0  29 0d 05 64 07 20 20 cd  0d 05 6e 2b 20 20 24 28  |)..d.  ...n+  $(|
00000fd0  70 74 72 25 2b 31 32 29  3d c0 c0 74 65 78 74 24  |ptr%+12)=..text$|
00000fe0  2c a7 74 65 78 74 24 2c  22 2c 22 29 2d 31 29 2c  |,.text$,",")-1),|
00000ff0  31 32 29 0d 05 78 21 20  20 74 65 78 74 24 3d c1  |12)..x!  text$=.|
00001000  74 65 78 74 24 2c a7 74  65 78 74 24 2c 22 2c 22  |text$,.text$,","|
00001010  29 2b 31 29 0d 05 82 31  20 20 70 74 72 25 21 30  |)+1)...1  ptr%!0|
00001020  3d 74 69 63 6b 25 20 84  20 64 6f 74 74 65 64 25  |=tick% . dotted%|
00001030  20 84 20 28 26 38 30 20  80 20 28 74 65 78 74 24  | . (&80 . (text$|
00001040  3d 22 22 29 29 0d 05 8c  15 20 20 70 74 72 25 21  |=""))....  ptr%!|
00001050  34 3d 73 75 62 6d 65 6e  75 25 0d 05 96 4c 20 20  |4=submenu%...L  |
00001060  e7 20 73 68 61 64 65 25  20 8c 20 70 74 72 25 21  |. shade% . ptr%!|
00001070  38 3d 26 34 30 30 30 30  30 20 84 20 26 30 31 30  |8=&400000 . &010|
00001080  30 32 31 20 84 20 37 3c  3c 32 38 20 84 20 30 3c  |021 . 7<<28 . 0<|
00001090  3c 32 34 20 8b 20 70 74  72 25 21 38 3d 26 30 37  |<24 . ptr%!8=&07|
000010a0  30 30 30 30 32 31 0d 05  a0 0e 20 20 70 74 72 25  |000021....  ptr%|
000010b0  2b 3d 32 34 0d 05 aa 0e  fd 20 74 65 78 74 24 3d  |+=24..... text$=|
000010c0  22 22 0d 05 b4 08 3d 6d  62 25 0d 05 be 05 3a 0d  |""....=mb%....:.|
000010d0  05 c8 24 dd 20 f2 63 72  65 61 74 65 5f 6d 65 6e  |..$. .create_men|
000010e0  75 28 6d 65 6e 75 62 6c  6f 63 6b 25 2c 74 65 78  |u(menublock%,tex|
000010f0  74 24 29 0d 05 d2 0b ea  20 63 72 61 70 25 0d 05  |t$)..... crap%..|
00001100  dc 0c 6c 65 76 65 6c 25  3d 30 0d 05 e6 2e 63 72  |..level%=0....cr|
00001110  61 70 25 3d a4 63 72 65  61 74 65 5f 6d 65 6e 75  |ap%=.create_menu|
00001120  5f 6c 65 76 65 6c 28 6d  65 6e 75 62 6c 6f 63 6b  |_level(menublock|
00001130  25 2c 74 65 78 74 24 29  0d 05 f0 3f e7 20 63 72  |%,text$)...?. cr|
00001140  61 70 25 3c 3e 6d 65 6e  75 62 6c 6f 63 6b 25 20  |ap%<>menublock% |
00001150  85 20 30 2c 22 49 6e 74  65 72 6e 61 6c 20 65 72  |. 0,"Internal er|
00001160  72 6f 72 20 69 6e 20 50  52 4f 43 63 72 65 61 74  |ror in PROCcreat|
00001170  65 5f 6d 65 6e 75 22 0d  05 fa 05 e1 0d 06 04 05  |e_menu".........|
00001180  3a 0d 06 0e 16 dd 20 a4  69 63 6f 6e 5f 73 65 74  |:..... .icon_set|
00001190  28 68 25 2c 69 25 29 0d  06 18 2d 21 71 25 3d 68  |(h%,i%)...-!q%=h|
000011a0  25 3a 71 25 21 34 3d 69  25 3a c8 99 20 22 57 69  |%:q%!4=i%:.. "Wi|
000011b0  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
000011c0  2c 2c 71 25 0d 06 22 19  3d 28 28 71 25 21 32 34  |,,q%..".=((q%!24|
000011d0  20 80 20 31 3c 3c 32 31  29 3c 3e 30 29 0d 06 2c  | . 1<<21)<>0)..,|
000011e0  05 3a 0d 06 36 16 dd 20  f2 73 65 74 5f 69 63 6f  |.:..6.. .set_ico|
000011f0  6e 28 68 25 2c 69 25 29  0d 06 40 29 21 71 25 3d  |n(h%,i%)..@)!q%=|
00001200  68 25 3a 71 25 21 34 3d  69 25 3a 71 25 21 38 3d  |h%:q%!4=i%:q%!8=|
00001210  31 3c 3c 32 31 3a 71 25  21 31 32 3d 31 3c 3c 32  |1<<21:q%!12=1<<2|
00001220  31 0d 06 4a 1e c8 99 20  22 57 69 6d 70 5f 53 65  |1..J... "Wimp_Se|
00001230  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 25 0d  |tIconState",,q%.|
00001240  06 54 05 e1 0d 06 5e 05  3a 0d 06 68 18 dd 20 f2  |.T....^.:..h.. .|
00001250  63 6c 65 61 72 5f 69 63  6f 6e 28 68 25 2c 69 25  |clear_icon(h%,i%|
00001260  29 0d 06 72 29 21 71 25  3d 68 25 3a 71 25 21 34  |)..r)!q%=h%:q%!4|
00001270  3d 69 25 3a 71 25 21 38  3d 30 3c 3c 32 31 3a 71  |=i%:q%!8=0<<21:q|
00001280  25 21 31 32 3d 31 3c 3c  32 31 0d 06 7c 1e c8 99  |%!12=1<<21..|...|
00001290  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
000012a0  61 74 65 22 2c 2c 71 25  0d 06 86 05 e1 0d 06 90  |ate",,q%........|
000012b0  05 3a 0d 06 9a 16 dd 20  a4 69 63 6f 6e 61 64 64  |.:..... .iconadd|
000012c0  72 28 68 25 2c 69 25 29  0d 06 a4 2d 21 71 25 3d  |r(h%,i%)...-!q%=|
000012d0  68 25 3a 71 25 21 34 3d  69 25 3a c8 99 20 22 57  |h%:q%!4=i%:.. "W|
000012e0  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
000012f0  22 2c 2c 71 25 0d 06 ae  33 e7 20 28 71 25 21 32  |",,q%...3. (q%!2|
00001300  34 20 80 20 26 31 30 30  29 3d 30 20 85 20 30 2c  |4 . &100)=0 . 0,|
00001310  22 49 63 6f 6e 20 69 73  20 6e 6f 74 20 69 6e 64  |"Icon is not ind|
00001320  69 72 65 63 74 65 64 22  0d 06 b8 0a 3d 71 25 21  |irected"....=q%!|
00001330  32 38 0d 06 c2 05 3a 0d  06 cc 1b dd 20 f2 77 61  |28....:..... .wa|
00001340  72 6e 69 6e 67 62 6f 78  28 77 61 72 6e 69 6e 67  |rningbox(warning|
00001350  24 29 0d 06 d6 1f 21 71  25 3d 9f 3a 24 28 71 25  |$)....!q%=.:$(q%|
00001360  2b 34 29 3d 77 61 72 6e  69 6e 67 24 2b bd 28 30  |+4)=warning$+.(0|
00001370  29 0d 06 e0 27 c8 99 20  22 57 69 6d 70 5f 52 65  |)...'.. "Wimp_Re|
00001380  70 6f 72 74 45 72 72 6f  72 22 2c 71 25 2c 31 2c  |portError",q%,1,|
00001390  70 72 6f 67 72 61 6d 24  0d 06 ea 05 e1 0d 06 f4  |program$........|
000013a0  05 3a 0d 06 fe 0d dd 20  a4 6f 6e 6c 69 6e 65 0d  |.:..... .online.|
000013b0  07 08 17 ea 20 73 74 61  72 74 25 2c 65 6e 64 25  |.... start%,end%|
000013c0  2c 77 61 69 74 25 0d 07  12 10 73 74 61 72 74 25  |,wait%....start%|
000013d0  3d 96 28 2d 34 29 0d 07  1c 35 ef 20 32 3a ef 20  |=.(-4)...5. 2:. |
000013e0  31 2c 30 2c 31 2c 30 2c  31 2c 30 2c 31 2c 30 2c  |1,0,1,0,1,0,1,0,|
*
00001400  31 2c 30 2c 31 2c 30 3a  ef 20 33 0d 07 26 0e 77  |1,0,1,0:. 3..&.w|
00001410  61 69 74 25 3d a6 28 35  29 0d 07 30 0e 65 6e 64  |ait%=.(5)..0.end|
00001420  25 3d 96 28 2d 34 29 0d  07 3a 12 3d 28 73 74 61  |%=.(-4)..:.=(sta|
00001430  72 74 25 3d 65 6e 64 25  29 0d 07 44 05 3a 0d 07  |rt%=end%)..D.:..|
00001440  4e 16 dd 20 a4 72 65 61  64 28 69 64 25 2c f8 20  |N.. .read(id%,. |
00001450  6c 66 25 29 0d 07 58 11  ea 20 64 61 74 61 24 2c  |lf%)..X.. data$,|
00001460  62 79 74 65 25 0d 07 62  0c 64 61 74 61 24 3d 22  |byte%..b.data$="|
00001470  22 0d 07 6c 10 62 79 74  65 25 3d 9a 23 20 69 64  |"..l.byte%=.# id|
00001480  25 0d 07 76 3c f4 20 62  79 74 65 20 74 6f 65 76  |%..v<. byte toev|
00001490  6f 65 67 65 6e 20 61 61  6e 20 64 61 74 61 24 20  |oegen aan data$ |
000014a0  7a 6f 6c 61 6e 67 20 6e  69 65 74 20 6c 69 6e 65  |zolang niet line|
000014b0  66 65 65 64 20 6f 66 20  6b 6f 6d 6d 61 0d 07 80  |feed of komma...|
000014c0  1c c8 95 20 62 79 74 65  25 3c 3e 31 30 20 80 20  |... byte%<>10 . |
000014d0  62 79 74 65 25 3c 3e 34  34 0d 07 8a 15 20 20 64  |byte%<>44....  d|
000014e0  61 74 61 24 2b 3d bd 28  62 79 74 65 25 29 0d 07  |ata$+=.(byte%)..|
000014f0  94 12 20 20 62 79 74 65  25 3d 9a 23 20 69 64 25  |..  byte%=.# id%|
00001500  0d 07 9e 05 ce 0d 07 a8  1b 6c 66 25 3d a3 3a 20  |.........lf%=.: |
00001510  e7 20 62 79 74 65 25 3d  31 30 20 6c 66 25 3d b9  |. byte%=10 lf%=.|
00001520  0d 07 b2 0a 3d 64 61 74  61 24 0d 07 bc 05 3a 0d  |....=data$....:.|
00001530  07 c6 14 dd 20 a4 6c 6f  77 65 72 63 61 73 65 28  |.... .lowercase(|
00001540  73 24 29 0d 07 d0 12 ea  20 4b 25 2c 63 25 2c 6c  |s$)..... K%,c%,l|
00001550  6f 77 65 72 24 0d 07 da  0d 6c 6f 77 65 72 24 3d  |ower$....lower$=|
00001560  22 22 0d 07 e4 12 e3 20  4b 25 3d 31 20 b8 20 a9  |""..... K%=1 . .|
00001570  28 73 24 29 0d 07 ee 15  20 20 63 25 3d 97 28 c1  |(s$)....  c%=.(.|
00001580  73 24 2c 4b 25 2c 31 29  29 0d 07 f8 21 20 20 e7  |s$,K%,1))...!  .|
00001590  20 63 25 3e 3d 97 28 22  41 22 29 20 80 20 63 25  | c%>=.("A") . c%|
000015a0  3c 3d 97 28 22 5a 22 29  20 8c 0d 08 02 23 20 20  |<=.("Z") ....#  |
000015b0  20 20 6c 6f 77 65 72 24  2b 3d bd 28 63 25 2d 97  |  lower$+=.(c%-.|
000015c0  28 22 41 22 29 2b 97 28  22 61 22 29 29 0d 08 0c  |("A")+.("a"))...|
000015d0  07 20 20 cc 0d 08 16 15  20 20 20 20 6c 6f 77 65  |.  .....    lowe|
000015e0  72 24 2b 3d bd 28 63 25  29 0d 08 20 07 20 20 cd  |r$+=.(c%).. .  .|
000015f0  0d 08 2a 05 ed 0d 08 34  0b 3d 6c 6f 77 65 72 24  |..*....4.=lower$|
00001600  0d 08 3e 05 3a 0d 08 48  21 dd 20 a4 73 65 6e 64  |..>.:..H!. .send|
00001610  5f 63 6f 64 65 28 69 64  25 2c 6e 61 6d 65 24 2c  |_code(id%,name$,|
00001620  63 6f 64 65 25 29 0d 08  52 10 ea 20 73 24 2c 6c  |code%)..R.. s$,l|
00001630  66 25 2c 6f 6b 25 0d 08  5c 21 73 24 3d a4 6c 6f  |f%,ok%..\!s$=.lo|
00001640  77 65 72 63 61 73 65 28  a4 72 65 61 64 28 69 64  |wercase(.read(id|
00001650  25 2c 6c 66 25 29 29 0d  08 66 23 e7 20 73 24 3c  |%,lf%))..f#. s$<|
00001660  3e a4 6c 6f 77 65 72 63  61 73 65 28 6e 61 6d 65  |>.lowercase(name|
00001670  24 29 20 84 20 6c 66 25  20 8c 0d 08 70 0b 20 20  |$) . lf% ...p.  |
00001680  6f 6b 25 3d a3 0d 08 7a  05 cc 0d 08 84 09 20 20  |ok%=...z......  |
00001690  ef 20 32 0d 08 8e 07 20  20 f5 0d 08 98 19 20 20  |. 2....  .....  |
000016a0  20 20 73 24 3d a4 72 65  61 64 28 69 64 25 2c 6c  |  s$=.read(id%,l|
000016b0  66 25 29 0d 08 a2 26 20  20 20 20 e7 20 73 24 3d  |f%)...&    . s$=|
000016c0  22 2a 22 20 ef 20 31 2c  63 6f 64 65 25 20 8b 20  |"*" . 1,code% . |
000016d0  ef 20 31 2c bb 28 73 24  29 0d 08 ac 0b 20 20 fd  |. 1,.(s$)....  .|
000016e0  20 6c 66 25 0d 08 b6 09  20 20 ef 20 33 0d 08 c0  | lf%....  . 3...|
000016f0  0b 20 20 6f 6b 25 3d b9  0d 08 ca 05 cd 0d 08 d4  |.  ok%=.........|
00001700  08 3d 6f 6b 25 0d 08 de  05 3a 0d 08 e8 1b dd 20  |.=ok%....:..... |
00001710  a4 6a 75 6d 70 5f 63 6f  64 65 28 69 64 25 2c 6e  |.jump_code(id%,n|
00001720  61 6d 65 24 29 0d 08 f2  10 ea 20 73 24 2c 6c 66  |ame$)..... s$,lf|
00001730  25 2c 6f 6b 25 0d 08 fc  21 73 24 3d a4 6c 6f 77  |%,ok%...!s$=.low|
00001740  65 72 63 61 73 65 28 a4  72 65 61 64 28 69 64 25  |ercase(.read(id%|
00001750  2c 6c 66 25 29 29 0d 09  06 23 e7 20 73 24 3c 3e  |,lf%))...#. s$<>|
00001760  a4 6c 6f 77 65 72 63 61  73 65 28 6e 61 6d 65 24  |.lowercase(name$|
00001770  29 20 84 20 6c 66 25 20  8c 0d 09 10 0b 20 20 6f  |) . lf% .....  o|
00001780  6b 25 3d a3 0d 09 1a 05  cc 0d 09 24 07 20 20 f5  |k%=........$.  .|
00001790  0d 09 2e 19 20 20 20 20  73 24 3d a4 72 65 61 64  |....    s$=.read|
000017a0  28 69 64 25 2c 6c 66 25  29 0d 09 38 0b 20 20 fd  |(id%,lf%)..8.  .|
000017b0  20 6c 66 25 0d 09 42 0b  20 20 6f 6b 25 3d b9 0d  | lf%..B.  ok%=..|
000017c0  09 4c 05 cd 0d 09 56 08  3d 6f 6b 25 0d 09 60 05  |.L....V.=ok%..`.|
000017d0  3a 0d 09 6a 14 dd 20 f2  73 65 74 75 70 5f 70 72  |:..j.. .setup_pr|
000017e0  69 6e 74 65 72 0d 09 74  13 ea 20 4b 25 2c 74 24  |inter..t.. K%,t$|
000017f0  2c 69 64 25 2c 6c 66 25  0d 09 7e 27 69 64 25 3d  |,id%,lf%..~'id%=|
00001800  8e 28 22 3c 49 6e 69 74  44 4d 24 44 69 72 3e 2e  |.("<InitDM$Dir>.|
00001810  3c 49 6e 69 74 44 4d 24  46 69 6c 65 3e 22 29 0d  |<InitDM$File>").|
00001820  09 88 2e e7 20 69 64 25  3d 30 20 85 20 30 2c 22  |.... id%=0 . 0,"|
00001830  50 72 69 6e 74 65 72 20  63 6f 64 65 73 20 66 69  |Printer codes fi|
00001840  6c 65 20 6e 6f 74 20 66  6f 75 6e 64 22 0d 09 92  |le not found"...|
00001850  28 70 72 69 6e 74 65 72  24 3d a4 72 65 61 64 28  |(printer$=.read(|
00001860  69 64 25 2c 6c 66 25 29  3a e7 20 ac 20 6c 66 25  |id%,lf%):. . lf%|
00001870  20 ef 37 3a e1 0d 09 9c  33 6f 6b 25 3d a4 73 65  | .7:....3ok%=.se|
00001880  6e 64 5f 63 6f 64 65 28  69 64 25 2c 22 72 65 73  |nd_code(id%,"res|
00001890  65 74 22 2c 30 29 3a 20  f4 20 72 65 73 65 74 73  |et",0): . resets|
000018a0  20 70 72 69 6e 74 65 72  0d 09 a6 13 e7 20 ac 20  | printer..... . |
000018b0  6f 6b 25 20 d9 23 69 64  25 3a e1 0d 09 b0 0e e3  |ok% .#id%:......|
000018c0  20 4b 25 3d 31 20 b8 20  33 0d 09 ba 0d 20 20 c8  | K%=1 . 3....  .|
000018d0  8e 20 4b 25 20 ca 0d 09  c4 14 20 20 c9 20 31 3a  |. K% .....  . 1:|
000018e0  20 74 24 3d 22 70 69 63  61 22 0d 09 ce 15 20 20  | t$="pica"....  |
000018f0  c9 20 32 3a 20 74 24 3d  22 65 6c 69 74 65 22 0d  |. 2: t$="elite".|
00001900  09 d8 19 20 20 c9 20 33  3a 20 74 24 3d 22 63 6f  |...  . 3: t$="co|
00001910  6e 64 65 6e 73 65 64 22  0d 09 e2 07 20 20 cb 0d  |ndensed"....  ..|
00001920  09 ec 43 20 20 e7 20 4b  25 3d 70 69 74 63 68 25  |..C  . K%=pitch%|
00001930  20 6f 6b 25 3d a4 73 65  6e 64 5f 63 6f 64 65 28  | ok%=.send_code(|
00001940  69 64 25 2c 74 24 2c 30  29 20 8b 20 6f 6b 25 3d  |id%,t$,0) . ok%=|
00001950  a4 6a 75 6d 70 5f 63 6f  64 65 28 69 64 25 2c 74  |.jump_code(id%,t|
00001960  24 29 0d 09 f6 15 20 20  e7 20 ac 20 6f 6b 25 20  |$)....  . . ok% |
00001970  d9 23 69 64 25 3a e1 0d  0a 00 05 ed 0d 0a 0a 7c  |.#id%:.........||
00001980  e7 20 6e 6c 71 25 20 6f  6b 25 3d a4 6a 75 6d 70  |. nlq% ok%=.jump|
00001990  5f 63 6f 64 65 28 69 64  25 2c 22 64 72 61 66 74  |_code(id%,"draft|
000019a0  22 29 3a 6f 6b 25 3d a4  73 65 6e 64 5f 63 6f 64  |"):ok%=.send_cod|
000019b0  65 28 69 64 25 2c 22 6e  6c 71 22 2c 30 29 20 8b  |e(id%,"nlq",0) .|
000019c0  20 6f 6b 25 3d a4 73 65  6e 64 5f 63 6f 64 65 28  | ok%=.send_code(|
000019d0  69 64 25 2c 22 64 72 61  66 74 22 2c 30 29 3a 6f  |id%,"draft",0):o|
000019e0  6b 25 3d a4 6a 75 6d 70  5f 63 6f 64 65 28 69 64  |k%=.jump_code(id|
000019f0  25 2c 22 6e 6c 71 22 29  0d 0a 14 13 e7 20 ac 20  |%,"nlq")..... . |
00001a00  6f 6b 25 20 d9 23 69 64  25 3a e1 0d 0a 1e 39 6f  |ok% .#id%:....9o|
00001a10  6b 25 3d a4 73 65 6e 64  5f 63 6f 64 65 28 69 64  |k%=.send_code(id|
00001a20  25 2c 22 6c 69 6e 65 73  70 61 63 69 6e 67 22 2c  |%,"linespacing",|
00001a30  6c 73 25 29 3a 20 f4 20  69 6e 20 31 2f 37 32 20  |ls%): . in 1/72 |
00001a40  69 6e 63 68 0d 0a 28 13  e7 20 ac 20 6f 6b 25 20  |inch..(.. . ok% |
00001a50  d9 23 69 64 25 3a e1 0d  0a 32 35 6f 6b 25 3d a4  |.#id%:...25ok%=.|
00001a60  73 65 6e 64 5f 63 6f 64  65 28 69 64 25 2c 22 70  |send_code(id%,"p|
00001a70  61 67 65 6c 65 6e 67 74  68 22 2c 70 6c 25 29 3a  |agelength",pl%):|
00001a80  20 f4 20 69 6e 20 69 6e  63 68 65 73 0d 0a 3c 13  | . in inches..<.|
00001a90  e7 20 ac 20 6f 6b 25 20  d9 23 69 64 25 3a e1 0d  |. . ok% .#id%:..|
00001aa0  0a 46 37 6f 6b 25 3d a4  73 65 6e 64 5f 63 6f 64  |.F7ok%=.send_cod|
00001ab0  65 28 69 64 25 2c 22 74  6f 70 6d 61 72 67 69 6e  |e(id%,"topmargin|
00001ac0  22 2c bb 28 24 74 6d 25  29 29 3a 20 f4 20 69 6e  |",.($tm%)): . in|
00001ad0  20 6c 69 6e 65 73 0d 0a  50 13 e7 20 ac 20 6f 6b  | lines..P.. . ok|
00001ae0  25 20 d9 23 69 64 25 3a  e1 0d 0a 5a 3a 6f 6b 25  |% .#id%:...Z:ok%|
00001af0  3d a4 73 65 6e 64 5f 63  6f 64 65 28 69 64 25 2c  |=.send_code(id%,|
00001b00  22 62 6f 74 74 6f 6d 6d  61 72 67 69 6e 22 2c bb  |"bottommargin",.|
00001b10  28 24 62 6d 25 29 29 3a  20 f4 20 69 6e 20 6c 69  |($bm%)): . in li|
00001b20  6e 65 73 0d 0a 64 13 e7  20 ac 20 6f 6b 25 20 d9  |nes..d.. . ok% .|
00001b30  23 69 64 25 3a e1 0d 0a  6e 38 6f 6b 25 3d a4 73  |#id%:...n8ok%=.s|
00001b40  65 6e 64 5f 63 6f 64 65  28 69 64 25 2c 22 6c 65  |end_code(id%,"le|
00001b50  66 74 6d 61 72 67 69 6e  22 2c bb 28 24 6c 6d 25  |ftmargin",.($lm%|
00001b60  29 29 3a 20 f4 20 69 6e  20 63 68 61 72 73 0d 0a  |)): . in chars..|
00001b70  78 13 e7 20 ac 20 6f 6b  25 20 d9 23 69 64 25 3a  |x.. . ok% .#id%:|
00001b80  e1 0d 0a 82 39 6f 6b 25  3d a4 73 65 6e 64 5f 63  |....9ok%=.send_c|
00001b90  6f 64 65 28 69 64 25 2c  22 72 69 67 68 74 6d 61  |ode(id%,"rightma|
00001ba0  72 67 69 6e 22 2c bb 28  24 72 6d 25 29 29 3a 20  |rgin",.($rm%)): |
00001bb0  f4 20 69 6e 20 63 68 61  72 73 0d 0a 8c 0a d9 23  |. in chars.....#|
00001bc0  20 69 64 25 0d 0a 96 05  e1 0d 0a a0 05 3a 0d 0a  | id%.........:..|
00001bd0  aa 0c dd 20 f2 64 6f 5f  69 74 0d 0a b4 0f ff 28  |... .do_it.....(|
00001be0  22 46 58 20 35 2c 30 22  29 0d 0a be 47 e7 20 a4  |"FX 5,0")...G. .|
00001bf0  69 63 6f 6e 5f 73 65 74  28 6f 70 74 69 6f 6e 73  |icon_set(options|
00001c00  25 2c 32 29 20 ff 28 22  46 58 20 35 2c 31 22 29  |%,2) .("FX 5,1")|
00001c10  3a 20 f4 20 70 72 69 6e  74 69 6e 67 20 74 6f 20  |: . printing to |
00001c20  70 61 72 61 6c 6c 2e 69  6e 74 65 72 66 61 63 65  |parall.interface|
00001c30  0d 0a c8 47 e7 20 a4 69  63 6f 6e 5f 73 65 74 28  |...G. .icon_set(|
00001c40  6f 70 74 69 6f 6e 73 25  2c 33 29 20 ff 28 22 46  |options%,3) .("F|
00001c50  58 20 35 2c 32 22 29 3a  20 f4 20 70 72 69 6e 74  |X 5,2"): . print|
00001c60  69 6e 67 20 74 6f 20 73  65 72 69 61 6c 20 69 6e  |ing to serial in|
00001c70  74 65 72 66 61 63 65 0d  0a d2 51 e7 20 ac 20 a4  |terface...Q. . .|
00001c80  6f 6e 6c 69 6e 65 20 f2  6d 65 73 73 61 67 65 28  |online .message(|
00001c90  22 50 72 69 6e 74 65 72  20 75 6e 63 6f 6e 6e 65  |"Printer unconne|
00001ca0  63 74 65 64 2f 6f 66 66  6c 69 6e 65 20 52 65 63  |cted/offline Rec|
00001cb0  6f 6e 6e 65 63 74 20 61  6e 64 20 74 72 79 20 61  |onnect and try a|
00001cc0  67 61 69 6e 22 29 3a e1  0d 0a dc 12 f2 73 65 74  |gain"):......set|
00001cd0  75 70 5f 70 72 69 6e 74  65 72 0d 0a e6 34 e7 20  |up_printer...4. |
00001ce0  ac 20 6f 6b 25 20 f2 77  61 72 6e 69 6e 67 62 6f  |. ok% .warningbo|
00001cf0  78 28 22 50 72 69 6e 74  65 72 20 63 6f 64 65 73  |x("Printer codes|
00001d00  20 66 69 6c 65 20 6e 6f  74 20 4f 4b 22 29 0d 0a  | file not OK")..|
00001d10  f0 05 e1 0d 0a fa 05 3a  0d 0b 04 18 dd 20 f2 72  |.......:..... .r|
00001d20  65 63 65 69 76 65 28 6d  65 73 73 61 67 65 25 29  |eceive(message%)|
00001d30  0d 0b 0e 11 c8 8e 20 6d  65 73 73 61 67 65 25 20  |...... message% |
00001d40  ca 0d 0b 18 10 c9 20 30  3a 20 71 75 69 74 25 3d  |...... 0: quit%=|
00001d50  b9 0d 0b 22 05 cb 0d 0b  2c 05 e1 0d 0b 36 05 3a  |..."....,....6.:|
00001d60  0d 0b 40 2e dd 20 f2 6d  6f 75 73 65 5f 63 6c 69  |..@.. .mouse_cli|
00001d70  63 6b 28 78 25 2c 79 25  2c 62 25 2c 68 61 6e 64  |ck(x%,y%,b%,hand|
00001d80  6c 65 25 2c 69 63 6f 6e  25 2c 6f 62 25 29 0d 0b  |le%,icon%,ob%)..|
00001d90  4a 19 6d 6f 75 73 65 78  25 3d 78 25 3a 6d 6f 75  |J.mousex%=x%:mou|
00001da0  73 65 79 25 3d 79 25 0d  0b 54 0b c8 8e 20 62 25  |sey%=y%..T... b%|
00001db0  20 ca 0d 0b 5e 07 c9 20  32 0d 0b 68 1b 20 20 e7  | ...^.. 2..h.  .|
00001dc0  20 68 61 6e 64 6c 65 25  3d 2d 32 20 f2 64 6f 5f  | handle%=-2 .do_|
00001dd0  6d 65 6e 75 0d 0b 72 09  c9 20 31 2c 34 0d 0b 7c  |menu..r.. 1,4..||
00001de0  12 20 20 c8 8e 20 68 61  6e 64 6c 65 25 20 ca 0d  |.  .. handle% ..|
00001df0  0b 86 0d 20 20 c9 20 6d  61 69 6e 25 0d 0b 90 12  |...  . main%....|
00001e00  20 20 20 20 c8 8e 20 69  63 6f 6e 25 20 ca 0d 0b  |    .. icon% ...|
00001e10  9a 16 20 20 20 20 c9 20  31 32 3a 20 70 69 74 63  |..    . 12: pitc|
00001e20  68 25 3d 31 0d 0b a4 16  20 20 20 20 c9 20 20 37  |h%=1....    .  7|
00001e30  3a 20 70 69 74 63 68 25  3d 32 0d 0b ae 16 20 20  |: pitch%=2....  |
00001e40  20 20 c9 20 20 38 3a 20  70 69 74 63 68 25 3d 33  |  .  8: pitch%=3|
00001e50  0d 0b b8 19 20 20 20 20  c9 20 20 39 3a 20 6e 6c  |....    .  9: nl|
00001e60  71 25 3d ac 20 6e 6c 71  25 0d 0b c2 14 20 20 20  |q%=. nlq%....   |
00001e70  20 c9 20 20 36 3a 20 6c  73 25 3d 31 32 0d 0b cc  | .  6: ls%=12...|
00001e80  13 20 20 20 20 c9 20 31  34 3a 20 6c 73 25 3d 39  |.    . 14: ls%=9|
00001e90  0d 0b d6 14 20 20 20 20  c9 20 20 32 3a 20 70 6c  |....    .  2: pl|
00001ea0  25 3d 31 31 0d 0b e0 14  20 20 20 20 c9 20 31 31  |%=11....    . 11|
00001eb0  3a 20 70 6c 25 3d 31 32  0d 0b ea 22 20 20 20 20  |: pl%=12..."    |
00001ec0  c9 20 32 36 3a 20 f2 63  6c 6f 73 65 5f 77 69 6e  |. 26: .close_win|
00001ed0  64 6f 77 28 6d 61 69 6e  25 29 0d 0b f4 29 20 20  |dow(main%)...)  |
00001ee0  20 20 c9 20 32 31 3a 20  f2 63 6c 6f 73 65 5f 77  |  . 21: .close_w|
00001ef0  69 6e 64 6f 77 28 6d 61  69 6e 25 29 3a f2 64 6f  |indow(main%):.do|
00001f00  5f 69 74 0d 0b fe 67 20  20 20 20 c9 20 32 34 3a  |_it...g    . 24:|
00001f10  20 f2 6d 65 73 73 61 67  65 28 22 43 68 61 6e 67  | .message("Chang|
00001f20  65 20 74 68 65 20 70 72  69 6e 74 65 72 20 63 6f  |e the printer co|
00001f30  64 65 73 20 66 69 6c 65  20 74 6f 20 63 6f 6e 66  |des file to conf|
00001f40  69 67 75 72 65 20 74 68  69 73 20 70 72 6f 67 72  |igure this progr|
00001f50  61 6d 20 66 6f 72 20 79  6f 75 72 20 6f 77 6e 20  |am for your own |
00001f60  70 72 69 6e 74 65 72 2e  22 29 0d 0c 08 09 20 20  |printer.")....  |
00001f70  20 20 cb 0d 0c 12 10 20  20 c9 20 6d 65 73 73 61  |  .....  . messa|
00001f80  67 65 25 0d 0c 1c 29 20  20 20 20 e7 20 69 63 6f  |ge%...)    . ico|
00001f90  6e 25 3d 31 20 f2 63 6c  6f 73 65 5f 77 69 6e 64  |n%=1 .close_wind|
00001fa0  6f 77 28 6d 65 73 73 61  67 65 25 29 0d 0c 26 0a  |ow(message%)..&.|
00001fb0  20 20 c9 20 2d 32 0d 0c  30 36 20 20 20 20 e7 20  |  . -2..06    . |
00001fc0  6f 70 65 6e 25 20 f2 66  72 6f 6e 74 28 6d 61 69  |open% .front(mai|
00001fd0  6e 25 29 20 8b 20 f2 72  65 6f 70 65 6e 28 6d 61  |n%) . .reopen(ma|
00001fe0  69 6e 25 29 3a 6f 70 65  6e 25 3d b9 0d 0c 3a 07  |in%):open%=...:.|
00001ff0  20 20 cb 0d 0c 44 05 cb  0d 0c 4e 05 e1 0d 0c 58  |  ...D....N....X|
00002000  05 3a 0d 0c 62 12 dd 20  f2 6d 65 6e 75 5f 73 65  |.:..b.. .menu_se|
00002010  6c 65 63 74 0d 0c 6c 13  ea 20 6d 65 6e 75 24 2c  |lect..l.. menu$,|
00002020  61 64 6a 75 73 74 25 0d  0c 76 3b c8 99 20 22 57  |adjust%..v;.. "W|
00002030  69 6d 70 5f 47 65 74 50  6f 69 6e 74 65 72 49 6e  |imp_GetPointerIn|
00002040  66 6f 22 2c 2c 62 6c 6f  63 6b 25 3a 61 64 6a 75  |fo",,block%:adju|
00002050  73 74 25 3d 28 62 6c 6f  63 6b 25 21 38 20 80 20  |st%=(block%!8 . |
00002060  31 29 0d 0c 80 39 c8 99  20 22 57 69 6d 70 5f 44  |1)...9.. "Wimp_D|
00002070  65 63 6f 64 65 4d 65 6e  75 22 2c 2c 69 63 6f 6e  |ecodeMenu",,icon|
00002080  6d 65 6e 75 25 2c 71 25  2c c4 32 30 30 2c 22 20  |menu%,q%,.200," |
00002090  22 29 b8 2c 2c 2c 6d 65  6e 75 24 0d 0c 8a 0e c8  |").,,,menu$.....|
000020a0  8e 20 6d 65 6e 75 24 20  ca 0d 0c 94 14 c9 20 22  |. menu$ ...... "|
000020b0  53 61 76 65 20 6f 70 74  69 6f 6e 73 22 0d 0c 9e  |Save options"...|
000020c0  24 20 20 69 64 25 3d ae  28 22 3c 49 6e 69 74 44  |$  id%=.("<InitD|
000020d0  4d 24 44 69 72 3e 2e 21  43 68 6f 69 63 65 73 22  |M$Dir>.!Choices"|
000020e0  29 0d 0c a8 21 20 20 d5  23 69 64 25 2c a4 69 63  |)...!  .#id%,.ic|
000020f0  6f 6e 5f 73 65 74 28 6f  70 74 69 6f 6e 73 25 2c  |on_set(options%,|
00002100  32 29 0d 0c b2 21 20 20  d5 23 69 64 25 2c a4 69  |2)...!  .#id%,.i|
00002110  63 6f 6e 5f 73 65 74 28  6f 70 74 69 6f 6e 73 25  |con_set(options%|
00002120  2c 33 29 0d 0c bc 0b 20  20 d9 23 69 64 25 0d 0c  |,3)....  .#id%..|
00002130  c6 0c c9 20 22 51 75 69  74 22 0d 0c d0 0d 20 20  |... "Quit"....  |
00002140  71 75 69 74 25 3d b9 0d  0c da 05 cb 0d 0c e4 16  |quit%=..........|
00002150  e7 20 61 64 6a 75 73 74  25 20 f2 64 6f 5f 6d 65  |. adjust% .do_me|
00002160  6e 75 0d 0c ee 05 e1 0d  0c f8 05 3a 0d 0d 02 0b  |nu.........:....|
00002170  dd 20 f2 69 6e 69 74 0d  0d 0c 0d ea 20 69 64 25  |. .init..... id%|
00002180  2c 6c 66 25 0d 0d 16 49  60 77 62 63 6f 6c 3d 30  |,lf%...I`wbcol=0|
00002190  3a 60 74 62 63 6f 6c 3d  32 3a 60 73 63 6f 3d 33  |:`tbcol=2:`sco=3|
000021a0  3a 60 6d 62 63 6f 6c 3d  32 3a 60 77 66 63 6f 6c  |:`mbcol=2:`wfcol|
000021b0  3d 37 3a 60 74 66 63 6f  6c 3d 37 3a 60 73 63 69  |=7:`tfcol=7:`sci|
000021c0  3d 31 3a 60 74 62 63 6f  6c 32 3d 31 32 0d 0d 20  |=1:`tbcol2=12.. |
000021d0  25 de 20 69 63 6f 6e 6d  65 6e 75 25 20 32 36 38  |%. iconmenu% 268|
000021e0  3a 6d 65 6e 75 62 6c 6f  63 6b 73 69 7a 65 3d 32  |:menublocksize=2|
000021f0  36 38 0d 0d 2a 15 6d 65  6e 75 62 6c 6f 63 6b 73  |68..*.menublocks|
00002200  69 7a 65 3d 32 36 38 0d  0d 34 21 6e 6f 6f 66 64  |ize=268..4!noofd|
00002210  69 61 67 77 3d 32 3a de  20 73 75 62 25 28 6e 6f  |iagw=2:. sub%(no|
00002220  6f 66 64 69 61 67 77 29  0d 0d 3e 0f f4 20 69 63  |ofdiagw)..>.. ic|
00002230  6f 6e 20 6d 65 6e 75 0d  0d 48 40 6d 65 6e 75 24  |on menu..H@menu$|
00002240  3d 22 28 32 31 30 29 22  2b 70 72 6f 67 72 61 6d  |="(210)"+program|
00002250  24 2b 22 2c 21 31 49 6e  66 6f 2c 21 32 4f 70 74  |$+",!1Info,!2Opt|
00002260  69 6f 6e 73 2c 53 61 76  65 20 6f 70 74 69 6f 6e  |ions,Save option|
00002270  73 2c 51 75 69 74 22 0d  0d 52 22 73 75 62 25 28  |s,Quit"..R"sub%(|
00002280  31 29 3d 69 6e 66 6f 25  3a 73 75 62 25 28 32 29  |1)=info%:sub%(2)|
00002290  3d 6f 70 74 69 6f 6e 73  25 0d 0d 5c 1f de 20 69  |=options%..\.. i|
000022a0  63 6f 6e 6d 65 6e 75 25  20 32 2a 6d 65 6e 75 62  |conmenu% 2*menub|
000022b0  6c 6f 63 6b 73 69 7a 65  0d 0d 66 21 f2 63 72 65  |locksize..f!.cre|
000022c0  61 74 65 5f 6d 65 6e 75  28 69 63 6f 6e 6d 65 6e  |ate_menu(iconmen|
000022d0  75 25 2c 6d 65 6e 75 24  29 0d 0d 70 49 21 71 25  |u%,menu$)..pI!q%|
000022e0  3d 2d 31 3a 71 25 21 34  3d 30 3a 71 25 21 38 3d  |=-1:q%!4=0:q%!8=|
000022f0  30 3a 71 25 21 31 32 3d  36 39 3a 71 25 21 31 36  |0:q%!12=69:q%!16|
00002300  3d 36 38 3a 71 25 21 32  30 3d 26 33 30 30 32 3a  |=68:q%!20=&3002:|
00002310  24 28 71 25 2b 32 34 29  3d 22 21 69 6e 69 74 64  |$(q%+24)="!initd|
00002320  6d 22 0d 0d 7a 27 c8 99  20 22 57 69 6d 70 5f 43  |m"..z'.. "Wimp_C|
00002330  72 65 61 74 65 49 63 6f  6e 22 2c 2c 71 25 20 b8  |reateIcon",,q% .|
00002340  20 69 63 6f 6e 62 61 72  25 0d 0d 84 0b 6f 70 65  | iconbar%....ope|
00002350  6e 25 3d b9 0d 0d 8e 48  f2 67 65 74 70 6f 69 6e  |n%=....H.getpoin|
00002360  74 65 72 3a 78 6f 25 3d  6d 6f 75 73 65 78 25 3a  |ter:xo%=mousex%:|
00002370  79 6f 25 3d 6d 6f 75 73  65 79 25 3a 20 f4 20 6f  |yo%=mousey%: . o|
00002380  6e 6c 79 20 6e 65 63 65  73 73 61 72 79 20 69 66  |nly necessary if|
00002390  20 6f 70 65 6e 25 3d 46  41 4c 53 45 0d 0d 98 22  | open%=FALSE..."|
000023a0  69 64 25 3d 8e 28 22 3c  49 6e 69 74 44 4d 24 44  |id%=.("<InitDM$D|
000023b0  69 72 3e 2e 21 43 68 6f  69 63 65 73 22 29 0d 0d  |ir>.!Choices")..|
000023c0  a2 0e e7 20 69 64 25 3c  3e 30 20 8c 0d 0d ac 19  |... id%<>0 .....|
000023d0  20 20 62 25 3d 9a 23 69  64 25 3a f4 20 70 61 72  |  b%=.#id%:. par|
000023e0  61 6c 6c 65 6c 0d 0d b6  20 20 20 e7 20 62 25 20  |allel...   . b% |
000023f0  f2 73 65 74 5f 69 63 6f  6e 28 6f 70 74 69 6f 6e  |.set_icon(option|
00002400  73 25 2c 32 29 0d 0d c0  17 20 20 62 25 3d 9a 23  |s%,2)....  b%=.#|
00002410  69 64 25 3a f4 20 73 65  72 69 61 6c 0d 0d ca 20  |id%:. serial... |
00002420  20 20 e7 20 62 25 20 f2  73 65 74 5f 69 63 6f 6e  |  . b% .set_icon|
00002430  28 6f 70 74 69 6f 6e 73  25 2c 33 29 0d 0d d4 0b  |(options%,3)....|
00002440  20 20 d9 23 69 64 25 0d  0d de 05 cc 0d 0d e8 1b  |  .#id%.........|
00002450  20 20 f2 73 65 74 5f 69  63 6f 6e 28 6f 70 74 69  |  .set_icon(opti|
00002460  6f 6e 73 25 2c 32 29 0d  0d f2 05 cd 0d 0d fc 21  |ons%,2)........!|
00002470  70 69 74 63 68 25 3d 31  3a 6e 6c 71 25 3d a3 3a  |pitch%=1:nlq%=.:|
00002480  6c 73 25 3d 31 32 3a 70  6c 25 3d 31 32 0d 0e 06  |ls%=12:pl%=12...|
00002490  27 69 64 25 3d 8e 28 22  3c 49 6e 69 74 44 4d 24  |'id%=.("<InitDM$|
000024a0  44 69 72 3e 2e 3c 49 6e  69 74 44 4d 24 46 69 6c  |Dir>.<InitDM$Fil|
000024b0  65 3e 22 29 0d 0e 10 2e  e7 20 69 64 25 3d 30 20  |e>")..... id%=0 |
000024c0  85 20 30 2c 22 50 72 69  6e 74 65 72 20 63 6f 64  |. 0,"Printer cod|
000024d0  65 73 20 66 69 6c 65 20  6e 6f 74 20 66 6f 75 6e  |es file not foun|
000024e0  64 22 0d 0e 1a 43 70 72  69 6e 74 65 72 24 3d a4  |d"...Cprinter$=.|
000024f0  72 65 61 64 28 69 64 25  2c 6c 66 25 29 3a e7 20  |read(id%,lf%):. |
00002500  ac 20 6c 66 25 20 85 20  30 2c 22 50 72 69 6e 74  |. lf% . 0,"Print|
00002510  65 72 20 63 6f 64 65 73  20 66 69 6c 65 20 6e 6f  |er codes file no|
00002520  74 20 4f 4b 22 0d 0e 24  16 24 70 72 69 6e 74 65  |t OK"..$.$printe|
00002530  72 25 3d 70 72 69 6e 74  65 72 24 0d 0e 2e 0a d9  |r%=printer$.....|
00002540  23 20 69 64 25 0d 0e 38  05 e1 0d 0e 42 05 3a 0d  |# id%..8....B.:.|
00002550  0e 4c 18 dd 20 f2 6d 65  73 73 61 67 65 28 6d 65  |.L.. .message(me|
00002560  73 73 61 67 65 24 29 0d  0e 56 1b 24 6d 65 73 73  |ssage$)..V.$mess|
00002570  61 67 65 5f 69 63 6f 6e  25 3d 6d 65 73 73 61 67  |age_icon%=messag|
00002580  65 24 0d 0e 60 14 f2 66  72 6f 6e 74 28 6d 65 73  |e$..`..front(mes|
00002590  73 61 67 65 25 29 0d 0e  6a 05 e1 0d 0e 74 05 3a  |sage%)..j....t.:|
000025a0  0d 0e 7e 0f dd 20 f2 65  72 72 6f 72 62 6f 78 0d  |..~.. .errorbox.|
000025b0  0e 88 07 ea 20 85 0d 0e  92 1f ee 20 85 20 ea 20  |.... ...... . . |
000025c0  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |.. "Wimp_CloseDo|
000025d0  77 6e 22 3a e0 0d 0e 9c  36 21 71 25 3d 9f 3a 24  |wn":....6!q%=.:$|
000025e0  28 71 25 2b 34 29 3d f6  24 2b 22 20 28 69 6e 74  |(q%+4)=.$+" (int|
000025f0  65 72 6e 61 6c 20 65 72  72 6f 72 20 22 2b c3 28  |ernal error "+.(|
00002600  9e 29 2b 22 29 22 2b bd  28 30 29 0d 0e a6 27 c8  |.)+")"+.(0)...'.|
00002610  99 20 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |. "Wimp_ReportEr|
00002620  72 6f 72 22 2c 71 25 2c  31 2c 70 72 6f 67 72 61  |ror",q%,1,progra|
00002630  6d 24 0d 0e b0 17 c8 99  20 22 57 69 6d 70 5f 43  |m$...... "Wimp_C|
00002640  6c 6f 73 65 44 6f 77 6e  22 0d 0e ba 05 e1 0d ff  |loseDown".......|
00002650