� > !RunImage Version 1.10
>� Purpose: printer independent part of printer application
.� Authors: DTee, AThompson, NReeves, DSeal
(VersionNumber$="1.10"
2ț "<PDriver$Dir>.Library"
<	�init
F� � �error(�,�$)
P�
Z/ ș "Wimp_Poll",poll_mask%,event% � action%
d �despatch_poll
n� �
x�
�:
���despatch_poll
�2 � � �Printer_process_event(action%, event%) �
�  Ȏ action% �
�   � 0: �copy
�   � 1: �redraw(!event%)
�/           � !event%=confirm% � �endconfirm
�-   � 2: � !event%<>confirm% � �endconfirm
�a           �open(!event%,event%!4,event%!8,event%!12,event%!16,event%!20,event%!24,event%!28)
�   � 3: �endconfirm
�           �close(!event%)
�K   � 6: �mouse(!event%,event%!4,event%!8,event%!12,event%!16,event%!20)
�           �endconfirm

,   � 8: �key(!event%,event%!4,event%!24)

,   � 9: �decodemenu(menuhandle%, event%)

1           �getpointer:� buttons%�1 � �remenu

"   � 17,18:�receive(event%)

,   � 19:�bounced(event%)

6  �

@ �

J�

T:

^� �p_field(size%)

h printer_field% += size%

r = printer_field% - size%

|:

�� �init

�� �

�in_file%=0

�out_file%=0

�B� define printer class independent fields in printer data area

�printer_field% = 0

�'  list_pointer_field% = �p_field(4)

�'         pxres_field% = �p_field(4)

�'         pyres_field% = �p_field(4)

�'      features_field% = �p_field(4)

�'   description_field% = �p_field(4)

�'pxres_halftone_field% = �p_field(4)

�'pyres_halftone_field% = �p_field(4)
'printer_number_field% = �p_field(4)
&� set up the page description data
 page_width_field% = 0
&page_height_field% = 1
0page_bottom_field% = 2
:   page_top_field% = 3
D  page_left_field% = 4
N page_right_field% = 5
X<  page_name_field% = 7:� only used to index page_ptrs%()
bmaxpage%=2
l� page_names$(maxpage%)
vpage_names$()="unused"
�� page_selection$(maxpage%)
�page_selection$()=""
�-� page_desc%(maxpage%, page_right_field%)
�4page_number% = 0: � the descriptor we start with
�1page_number_set% = 0: � the one currently set
�page_number_config% = 0
�)� the array of PTR#'s for Save_Config
�,� page_ptrs%(maxpage%, page_name_field%)
�page_ptrs%()=-1
�Fmm_to_72000 = 1814.4*72000/(180<<8) : � conversion factor constant
�#� define page size window icons
�    psw_OK_icon% = 0
�  psw_name_icon% = 1
psw_height_icon% = 2
 psw_width_icon% = 3
   psw_top_icon% = 4
 psw_bottom_icon% = 5
*  psw_left_icon% = 6
4 psw_right_icon% = 7
> psw_page1_icon% = 10
H psw_page2_icon% = 11
R psw_page3_icon% = 12
\3� define class independent icons in main window
fmain_description% = 1
p.� PrData files without "version:" are old.
zPrData_version% = 0
�/� mark configure options as unset initially
�page_number_ptr%= -1
�      file_ptr% = -1
�   file_config% = 0
�   printer_ptr% = -1
�printer_config% = 0
�   printer_new% = 0
�  location_ptr% = -1
�      baud_ptr% = -1
�      data_ptr% = -1
�       XON_ptr% = -1
�    server_ptr% = -1
�      feed_ptr% = -1
� message values
"Message_PrintFile%     =&80140
"Message_WillPrint%     =&80141
$"Message_PrintSave%     =&80142
."Message_PrintInit%     =&80143
8"Message_PrintBusy%     =&80144
B"Message_PrintTypeOdd%  =&80145
L"Message_PrintTypeKnown%=&80146
V"Message_SetPrinter%    =&80147
`"Message_MenuWarn%      =&400C0
j� dimension system arrays
t
� q% &800
~� event% &800
�maxbuf%=&800
�0� curbuf% maxbuf%: endbuf% = curbuf%+maxbuf%
�/� menufree% &800: menuend% = menufree%+&800
�� icon_buf% 40
�'� text_buffer% 12, valid_buffer% 12
�� block% 20
�� error_blk% 256
�� msg% 256
�� file_name% 201
�$file_name%=""
�bufsz%=256
�� buf% bufsz%
� set up colours

!`wbcol=&0:`wfcol=&7:`tfcol=&7
� initial mask state
/poll_mask% = �(%111 << 17): � only messages
(:confirm_answer% = 0 : � not inside FNconfirm currently
2�Printer_initialise
<z� PrData_version% <> PrData_expected% � � 100,"Incompatible printer data file found in application: please replace it"
FPrinter$=PrinterClass$
Psave_name$=""
Zprint_ref%=0
d�  Initialise WIMP
n � taskid% 5: $taskid%="TASK"
x>ș "Wimp_Initialise",200,!taskid%,Printer$ � ,task_handle%
�"� � � �error(�, �$):�terminate
�
msg%!0=20
�
msg%!12=0
�msg%!16=Message_PrintInit%
�&ș "Wimp_SendMessage", 18, msg%, 0
��
�:
�� �init2
�� S$
�� �
�� load the template file
�5ș "Wimp_OpenTemplate",,"<PDriver$Dir>.Templates"
�main% = �window("main")
!confirm% = �window("confirm")
info% = �window("info")
#pagesize% = �window("pagesize")
"�Printer_load_templates
,ș "Wimp_CloseTemplate"
6printer_type$ = ""
@icprint%=�iconbar
J� create the menu tree
T� server_new% 8
^$server_new% = ""
h� $file_name%="" �
r> ș "XOS_ReadVarVal","PrinterType$5",file_name%,200 � ,,L%
| � L% �
�  file_name%?L% = 13
� �
�-  $file_name%="<PDriver$Dir>.^.PrintData"
� �
��
�bbaudm% = �crmenu("#Baud;75;150;300;1200;2400;4800;9600;19200;50;110;134.5;600;1800;3600;7200")
�%bitsm% = �crmenu("#Bits;5;6;7;8")
�>paritym% = �crmenu("#Parity;off;odd;even;1 on TX;0 on TX")
�Sstopm% = �crmenu("#Stop bits;1;2 (1.5 if 5 bits parity,1 if 8 bits no parity)")
�Qdatam% = �crmenu("#Data format;Bits>bitsm%;Parity>paritym%;Stop bits>stopm%")
�Pserialm% = �crmenu("#Serial;Baud rate>baudm%;Data format>datam%;XON / XOFF")
�6netprintm% = �crmenu("#Net print;$server_new%(8)")
�6filemenu% = �crmenu("#File name;$file_name%(200)")
�printmenu% = �crmenu("#"+Printer$+";Info>info%#;Parallel;Serial>serialm%;Network>netprintm%;File>filemenu%#;!Page size>pagesize%;Save choices;Stop printing;Quit")
�set_print_state(�)

�defaults
&+� set up net printing data if necessary
0A� location_new%=4 � �setup_net_server � server_set$="<unset>"
:$page_number%=page_number_config%
D(page_number_set%=page_number_config%
N�set_page_size
X�Printer_set_initial_state
b� � � �error(�, �$):�
l�change_icon
v�
�:
���setup_net_server
�� S%,N%
�� �
�!� � � server_set$="<unset>":�
�&ș"XNetPrint_ReadPSNumber" � S%,N%
�� S%=0 �
�* ș"XNetPrint_ReadPSName",,q%,20 � ,S%
�
 S%?-1=13
� server_set$=$q%
��
� server_set$=�N%+"."+�S%
��
�set_ps
�
:
 � �SaveConfig
*� I%,J%
4%out_file%=�"<PDriver$Dir>.PrData"
>� J%=0�maxpage%
H � I%=0�page_name_field%
R    � page_ptrs%(J%,I%)<>-1 �
\(     �#out_file% = page_ptrs%(J%,I%)
f      � I%=page_name_field% �
p@      �#out_file%,page_names$(J%)+�80-�page_names$(J%),";");
z
     �
�:      �#out_file%,�"000000000"+�page_desc%(J%,I%),10);
�
     �
�   �
� �
��
�� page_number_ptr% <> -1 �
�0 � page_number_config% <> page_number_set% �
�$  �#out_file% = page_number_ptr%
�,  �#out_file%,�"0"+�page_number_set%,2);
�,  page_number_config% = page_number_set%
� �
��
�� file_ptr% <> -1 �
	$ � file_config$ <> $file_name% �
	  �#out_file% = file_ptr%
	4  �#out_file%,$file_name%+�80-�$file_name%,";");
	$   file_config$ = $file_name%
	. �
	8�
	B� printer_ptr% <> -1 �
	L( � printer_config% <> printer_new% �
	V   �#out_file% = printer_ptr%
	`(  �#out_file%,�"0"+�printer_new%,2);
	j$  printer_config% = printer_new%
	t �
	~�
	�=� location_new%=5 � �lowercase(�$file_name%,5))="null:" �
	�* � location_config% <> location_new% �
	�  � location_ptr% <> -1 �
	�"   �#out_file% = location_ptr%
	�   �#out_file%,"0";
	�  �
	�$  location_config%=location_new%
	� �
	�# ș"OS_CLI","Configure Print 0"
	��
	�* � location_config% <> location_new% �
	�  � location_ptr% <> -1 �
"   �#out_file% = location_ptr%

"   �#out_file%,�location_new%;
  �
$  location_config%=location_new%
( �
22 ș"XOS_CLI","Configure Print "+�location_new%
<�
F!� baud_config% <> baud_new% �
P � baud_ptr% <> -1 �
Z  �#out_file%=baud_ptr%
d  �#out_file%,�baud_new%;
n �
x baud_config% = baud_new%
��
�R� location_new%=2 � baud_new%<=7 � ș"OS_CLI","Configure Baud "+�(baud_new%+1)
�!� data_config% <> data_new% �
� � data_ptr% <> -1 �
�  �#out_file%=data_ptr%
�(  A$=�~(data_new%):� �A$=1 A$="0"+A$
�  �#out_file%,"&"+A$;
� �
� data_config% = data_new%
��
�� XON_config% <> XON_new% �
� � XON_ptr% <> -1 �
�  �#out_file%=XON_ptr%
  �#out_file%,�XON_new%;
 �
 XON_config% = XON_new%
"�
,&� server_config$ <> $server_new% �
6 � server_ptr% <> -1 �
@  �#out_file%=server_ptr%
J5  �#out_file%,$server_new%+�8-�$server_new%,";");
T �
^" server_config$ = $server_new%
h�
r� location_new%=4 �
|- ș"XOS_CLI","Configure PS "+$server_new%
� �set_ps
��
��Printer_AmendConfig
��#out_file%:out_file%=0
��
�:
�
� �set_ps
�� �
�� � � �
��("PS "+$server_new%)
�server_set$=$server_new%
��
�:
��terminate
*unset $Printing
� � ș"Wimp_CloseDown":�
&�Printer_CloseFiles
0�Printer_terminate
:4� in_file%<>0 ș"XOS_Find",0,in_file%:in_file%=0
DF� out_file%<>0 �EscOn:ș"XOS_Find",0,out_file%:out_file%=0:�EscOff
Nș"Wimp_CloseDown"
X�
b:
l� �defaults
v� ramval%, temp%
�data_new%=data_config%
�)�set_tick(bitsm%,3-(data_new% � 3),1)
�� data_new% � (1<<3) �
�3 �set_tick(paritym%,((data_new% >> 4) � 3)+1,1)
��
� �set_tick(paritym%,0,1)
��
�*�set_tick(stopm%,(data_new%>>2) � 1,1)
�$�set_tick(serialm%, 2, XON_new%)
�#ș "OS_Byte", 161, 15 � ,,temp%
�>� baud_ptr% = -1 � baud_config% = (temp% � %00011100) >> 2
�baud_new% = baud_config%
�D� location_ptr%=-1 � location_config% = (temp% � %11100000) >> 5

� location_config% = 2 �

 ș"OS_Byte",8,baud_new%+1

 ș"OS_Byte",7,baud_new%+1

   ș"OS_SerialOp",1,data_new%

*" ș"OS_SerialOp",0,XON_new%,�1

4 �Printer_Ignore

> �Printer_XonXoff(XON_new%)

H�

RE� location_config% = 0 � $file_name% = "null:":location_config%=5

\#�set_tick(baudm%, baud_new%, 1)

fȎ location_config% �

p'   � 1: �set_tick(printmenu%, 1, 1)

z'   � 2: �set_tick(printmenu%, 2, 1)

�'   � 4: �set_tick(printmenu%, 3, 1)

�'   � 5: �set_tick(printmenu%, 4, 1)

��

�$location_new% = location_config%

�$�Printer_Location(location_new%)

�� location_new%=5 �stamp

�� server_ptr% = -1 �

�# ș "OS_Byte", 161, 3 � ,,temp%

� � temp% = 0 �

�$  ș "OS_Byte", 161, 4 � ,,temp%

�  server_config$ = �(temp%)

�  ramval% = &99

�  �
+   ș "OS_Byte", 161, ramval% � ,,temp%
=   � temp% >32 server_config$ = server_config$ + �(temp%)
   ramval% += 1
$#  � temp% <= 32 � ramval% = &9E
. �
8#  server_config$ = "."+�(temp%)
B$  ș "OS_Byte", 161, 4 � ,,temp%
L0  server_config$ = �(temp%) + server_config$
V �
`�
j!$server_new% = server_config$
t�
~:
�� �redraw(handle%)
��
�:
�� �receive(message%)
�2� my_ref%, type$, option$, I%, pflag%, sender%
�my_ref% = message%!8
�Ȏ message%!16 �
� � 0,Message_PrintBusy%
�  �endconfirm
�  �terminate
� � 8
�  � print_on% �
   sender% = message%!4

)   � I%=0�252�4:msg%!I%=message%!I%:�
   msg%!12 = my_ref%
/   ș "Wimp_SendMessage", 19, msg%, sender%
(N   � �confirm("A file is being printed; are you sure you want to Quit?") �
2    *FX 21,3
<    �stop_printing
F(    ș "Wimp_GetCaretPosition",,msg%
P    msg%!24 = &1FC
Z,    ș "Wimp_SendMessage",8,msg%,sender%
d   �
n  �
x � 1,Message_PrintSave%
�4  � save onto our icon; reply with Print message
�(  � I%=0�252�4:msg%!I%=message%!I%:�
�  �endconfirm
�?  � print_ref% � �moan("Can only print one file at a time")
�#  save_name$=�rtoz(message%+44)
�  � print_on% �
�   � message%!16=1 �
�!    �moan("Already printing")
�   �
�    msg%!0 = 20
�    msg%!12 = my_ref%
�$    msg%!16 = Message_PrintBusy%
�/    ș "Wimp_SendMessage", 17, msg%, msg%!4
   �
  �
   msg%!12 = my_ref%
"#   msg%!16 = Message_PrintFile%
,   msg%!0 = 60
6%   $(msg%+44) = "<Printer$Scrap>"
@   msg%?59 = 0
J.   ș "Wimp_SendMessage", 18, msg%, msg%!4
T   msg%!4 = message%!4
^   print_ref%=msg%!8
h  �
r � 3
|  sender%=message%!4
�  �endconfirm
�Y  � print_ref% � print_ref%<>message%!12 � �moan("Can only print one file at a time")
�  print_ref%=0
�  � print_on%  �
�    �moan("Already printing")
�  �
�)   � I%=0�252�4:msg%!I%=message%!I%:�
�"   filenam$=�rtoz(message%+44)
�   message%!12 = my_ref%
�3   ș "Wimp_SendMessage",19,message%,message%!4
�6   � just ack the message in case FNconfirm called
�   Ftype%=message%!40
�   type_state%=0
   msg%!12=0
$   msg%!16=Message_PrintTypeOdd%
(   ș"Wimp_SendMessage", 18, msg%, 0
&   print_ref%=msg%!8
0   �
:2    ș "Wimp_Poll",poll_mask%,event% � action%
D    �despatch_poll
N   � type_state%
X   pflag%=�
b   movetotemp%=�
l   � type_state%=2 �
v    movetotemp%=�
�   �
�    � �check_type �
�     � Alias$ <> "" �
�1      ș "Wimp_StartTask",Alias$+" "+filenam$
�      movetotemp%=�
�
     �
�      pflag%=�
�
     �
�	    �
�   �
�   � movetotemp% �
�"    in_file%=�"<Printer$Temp>"
�    � in_file%<>0 �
?     � filenam$ = "<Printer$Scrap>" � �("remove "+filenam$)
$     filenam$ = "<Printer$Temp>"
     �#in_file%:in_file%=0
      pflag%=�
*	    �
4   �
>   � pflag% �
H    � location_new% = 4 �
R/     type$ = "netprint#"+printer_type$+":$"
\	    �
fB     � location_new% = 5 � �("set PrinterType$5 "+$file_name%)
p     type$="printer:$"
z$     ș"OS_Byte",5,location_new%
�	    �
�+    � filenam$ is also used in PROCcopy
�    in_file%  = �(filenam$)
�    � in_file% = 0 �
�8     �moan("Can't open '"+filenam$+"' for printing")
�	    �
�&    out_file% = �(type$+".output")
�    � out_file% = 0 �
�     �#in_file%:in_file%=0
�<     �moan("Can't open '"+type$+".output' for printing")
�	    �
�    �set_print_state(�)
�!    �change_icon:�update_icon
    pbuf%=�(-4)
    sent%=�
    �Printer_Header
$   �
.  �
80  � send DataLoadAck back to original sender
B  msg%!0  = 20
L  msg%!12 = my_ref%
V  msg%!16 = 4
`  msg%!36 = -1
j-  ș"Wimp_SendMessage", 17, msg%, sender%
t � &502: � help request
~�  � message%!32=-2 � message%!36=icprint% �helpreply("This is the "+FullPrinterClass$+" printer icon.|MDrop text files on to it to print them.|MClick MENU or SELECT to set the printer options.",my_ref%,message%!4)
� � Message_WillPrint%
�  print_ref%=0
� � Message_PrintInit%
�#  � poll_mask%<>�(%111 << 17) �
�   � print_on% �
�    msg%!0=20
�    msg%!12=my_ref%
�"    msg%!16=Message_PrintBusy%
�3    ș "Wimp_SendMessage", 17, msg%, message%!4
�   �
�    �terminate
�   �
  �

 � Message_PrintTypeKnown%
  Ftype%=message%!40
  type_state%=2
(  print_ref%=0
2 � Message_MenuWarn%
<!  � message%!20 = pagesize% �
F$   page_number%=page_number_set%
P   �set_pagesize_window
ZC   ș "Wimp_CreateSubMenu",,message%!20,message%!24,message%!28
d  �
n�
x�
�:
�!��helpreply(help$, ref%, to%)
�msg%!0     = 256
�msg%!12    = ref%
�msg%!16    = &503
�$(msg%+20) = help$
��zero_terminate(msg%+20)
�(ș "Wimp_SendMessage", 17, msg%, to%
��
�:
���bounced(message%)
�Ȏ message%!16 �
� � Message_PrintFile%
  print_ref%=0
G  � must be an app that can't do its own printing; reply to message
  � still in msg%
"  �endconfirm
,  � � print_on%  �
6E   � can't ask for confirmation of stupid types as an affirmative
@A   � click will probably shut down the transfer at the source
J   msg%!16    = 2
T+   msg%!36    = -1 : � file is not safe
^.   ș "Wimp_SendMessage", 17, msg%, msg%!4
h  �
r    �moan("Already printing")
|  �
� � Message_PrintInit%
�  �init2
�  poll_mask%=1
� � Message_PrintTypeOdd%
�  type_state%=1
�  print_ref%=0
��
��
�:
�ݤcheck_type
�� L%,psr%, type$
�
Alias$=""
�@� if an Alias$@PrintType_<Ftype%> exists then print via that
type$ = �"00"+�~Ftype%, 3)
;ș"XOS_ReadVarVal","Alias$@PrintType_"+type$,,-1 � ,,L%
.� L% < 0 � Alias$="@PrintType_"+type$: = �
&M� Ftype% = &FFF � Ftype% = &FFE � Ftype% = &FEB � Ftype%=OutputType% � =�
05� text, exec and obey files are all straight text
:8� Ftype% = &1000 � �moan("Cannot print directories")
D9� Ftype% = &2000 � �moan("Cannot print applications")
N� Ftype% = &3000 �
X $error_blk% = "untyped"
b�
lE ș"XOS_ReadVarVal","File$Type_"+type$,error_blk%,100 � ,,L%;psr%
vD � psr% � 1 � $error_blk%="type &"+�~Ftype% � error_blk%?L% = 13
��
�r=�confirm("I don't know how to print "+$error_blk%+" files; do you want me to print your file as plain text?")
�:
�ݤconfirm(message$)
�� S%, action%
�S%=�iconaddr(confirm%,0)
�$S%=message$
��getpointer
�:ș "Wimp_CreateMenu",,confirm%,mousex%-200,mousey%+200
�confirm_answer% = 2
��
�/ ș "Wimp_Poll",poll_mask%,event% � action%
� �despatch_poll
� confirm_answer% <> 2
�close(confirm%)
=confirm_answer%
 :
*��endconfirm
4-� confirm_answer% = 2 � confirm_answer%=�
>.� FNconfirm closes the window if necessary
H�
R:
\� �rtoz(s%)
f� n$
pȕ?s%:n$+=�?s%:s%+=1:�
z=n$
�:
�� �copy
�� L%
�� �
�,� � �:� �:�error(�, �$):�stop_printing:�
�
� sent% �
� � �(-4)>=pbuf% �
�  �Printer_Footer
�  �#in_file%:in_file%=0
�,  �EscOn:�#out_file%:out_file%=0:�EscOff
�  �stop_printing
� �
��
* � location_new%=1 � location_new%=2 �
  L%=�(-4)
  � L%>bufsz% L%=bufsz%
$ �
.  L%=128
8 �
B sent%=�Printer_Send(L%)
L�
V�
`:
j��stop_printing
t�set_print_state(�)
~�change_icon:�update_icon
��Printer_CloseFiles
�1� in_file% ș"XOS_Find",0,in_file%:in_file%=0
�C� out_file% �EscOn:ș"XOS_Find",0,out_file%:out_file%=0:�EscOff
�:� filenam$ = "<Printer$Scrap>" � �("remove "+filenam$)
�9� filenam$ = "<Printer$Temp>" � �("remove "+filenam$)
�.� delete the scrap file: now finished with
��update_icon
��
�:
�� �read_psw_icon(icon%)
� =$�iconaddr(pagesize%,icon%)
�:
)� �read_numericpsw_icon(icon%,field%)

Hpage_desc%(page_number%,field%)=�(�read_psw_icon(icon%))*mm_to_72000
�
:
(@� �mouse(mousex%,mousey%,buttons%,handle%,icon%,oldbuttons%)
2/� handle%=pagesize% � (buttons% � � 2)<>0 �
< Ȏ icon% �
F  � psw_OK_icon%
P%    page_number_set%=page_number%
Z@    page_names$(page_number%)=�read_psw_icon(psw_name_icon%)
dA    �read_numericpsw_icon(psw_width_icon%, page_width_field%)
nB    �read_numericpsw_icon(psw_height_icon%,page_height_field%)
x?    �read_numericpsw_icon(psw_top_icon%,   page_top_field%)
�B    �read_numericpsw_icon(psw_bottom_icon%,page_bottom_field%)
�A    �read_numericpsw_icon(psw_right_icon%, page_right_field%)
�@    �read_numericpsw_icon(psw_left_icon%,  page_left_field%)
�<    icon%  = page_desc%(page_number%,page_height_field%)
�9    icon% -= page_desc%(page_number%,page_top_field%)
�8    page_desc%(page_number%,page_top_field%) = icon%
�;    icon%  = page_desc%(page_number%,page_width_field%)
�;    icon% -= page_desc%(page_number%,page_right_field%)
�:    page_desc%(page_number%,page_right_field%) = icon%
�    �set_page_size
�4    � (buttons% � 1)=0 � ș"Wimp_CreateMenu",,-1
�7  � psw_page1_icon%,psw_page2_icon%,psw_page3_icon%
�,    page_number% = icon%-psw_page1_icon%
    �set_pagesize_window
 �
�
" Ȏ buttons% �
,  � 4: � left hand click
6   Ȏ handle% �
@     � -2:
J     �front(main%)
T    � confirm%:
^&     � icon%=1 � confirm_answer%=�
h&     � icon%=2 � confirm_answer%=�
r   �
|  � 2: � menu button
�   Ȏ handle% �
�    � -2: �menu(printmenu%)
�  �
� �
��
��
�:
�� �key(window%,icon%,ch%)
�"� window%=pagesize% � ch%=13 �
�( � step caret to next writeable icon
�
 icon%+=1
� � icon%>psw_right_icon% �
�=  �mouse(0,0,4,pagesize%,psw_OK_icon%,0): � fake OK click
 �
6  ș"Wimp_SetCaretPosition",pagesize%,icon%,,,-1,0
 �
&�
0 ș"Wimp_ProcessKey",ch%
:�
D�
N:
X%� �decodemenu(menuhandle%,menus%)
bȎ menuhandle% �
l � printmenu%
v#  � print_on% � (!menus%<5) � �
�  Ȏ !menus% �
�
   � 1
�!    �tickit(printmenu%, 1, 4)
�    location_new% = 1
�(    �Printer_Location(location_new%)
�    *FX 5,1
�
   � 2
�    �Printer_Ignore
�'    �decodemenu(serialm%, menus%+4)
�!    �tickit(printmenu%, 2, 4)
�    location_new% = 2
�(    �Printer_Location(location_new%)
�$    ș "OS_Byte", 8, baud_new%+1
$    ș "OS_Byte", 7, baud_new%+1
$    ș "OS_SerialOp",1,data_new%
'    ș "OS_SerialOp",0,XON_new%,� 1
 "    �Printer_XonXoff(XON_new%)
*    *FX 5,2
4
   � 3
>)    �decodemenu(netprintm%, menus%+4)
H!    �tickit(printmenu%, 3, 4)
R    location_new% = 4
\(    �Printer_Location(location_new%)
f    �set_ps
p    *FX 5,4
z
   � 4
�    location_new%=5
�(    �Printer_Location(location_new%)
�!    �tickit(printmenu%, 4, 4)
�B    � �$file_name%=0 � $file_name%="<PDriver$Dir>.^.PrintData"
�5    ș "XOS_CLI","Set PrinterType$5 "+$file_name%
�    �stamp
�    *FX 5,5
�
   � 6
�    �SaveConfig
�
   � 7
�    � print_on% �
�     *FX 21,3
�     �stop_printing
	    �

   � 8
    � print_on% �
$     *FX 21,3
.     �stop_printing
8	    �
B    �terminate
L  �
V  �change_icon
` � serialm%
j  Ȏ !menus% �
t
   � 0
~%    �decodemenu(baudm%, menus%+4)
�
   � 1
�%    �decodemenu(datam%, menus%+4)
�
   � 2
�    XON_new% = XON_new% � 1
�&    �set_tick(serialm%,2,XON_new%)
�  �
�
 � baudm%
�  � !menus% <> -1 �
�#   �tickit(baudm%, !menus%, 14)
�   baud_new%=!menus%
�  �
�
 � datam%
  Ȏ !menus% �


   � 0
%    �decodemenu(bitsm%, menus%+4)

   � 1
('    �decodemenu(paritym%, menus%+4)
2
   � 2
<%    �decodemenu(stopm%, menus%+4)
F  �
P
 � bitsm%
Z  � !menus% <> -1 �
d0   data_new%=(data_new% � %111100)+3-!menus%
n"   �tickit(bitsm%, !menus%, 3)
x  �
� � paritym%
�  � !menus% <> -1 �
�   � !menus% �
�9    data_new% = (data_new% � %111)+8+((!menus%-1)<<4)
�   �
�'    data_new% = data_new% � �(1<<3)
�   �
�$   �tickit(paritym%, !menus%, 4)
�  �
�
 � stopm%
�  � !menus% <> -1 �
�5   data_new%=(data_new% � %111011) � (!menus%<<2)
�"   �tickit(stopm%, !menus%, 1)
  �
�
�update_icon
"�
,:
6&� �update_any_icon(window%, icon%)
@block%!0  = window%
Jblock%!4  = icon%
Tblock%!8  = 0
^block%!12 = 0
h"ș "Wimp_SetIconState",,block%
r�
|:
�� �update_icon
�!�update_any_icon(-2,icprint%)
��
�:
�$� �tickit(menu%, item%, nitems%)
�� I%
�� I%=0 � nitems%
�  �set_tick(menu%, I%, 0)
��
��set_tick(menu%, item%, 1)
��
�:
�� �front(h%)
 
!q%=h%
 +ș "Wimp_GetWindowState",,q% : q%!28=-1
 ș "Wimp_OpenWindow",,q%
 &�
 0:
 :7� �open(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
 D!q%=handle%
 N)q%!4=x0%:q%!8=y0%:q%!12=x1%:q%!16=y1%
 Xq%!20=scx%:q%!24=scy%
 bq%!28=bhandle%
 lș "Wimp_OpenWindow",,q%
 v�
 �:
 �!� �set_psw_icon(icon%,value$)
 �� A%
 �!A%=�iconaddr(pagesize%,icon%)
 �$A%=value$
 �%�update_any_icon(pagesize%,icon%)
 �&ș "Wimp_GetCaretPosition",,block%
 �*� !block%=pagesize% � block%!4=icon% �
 � A%=�value$
 �" � block%!20<A% � A%=block%!20
 �6 ș"Wimp_SetCaretPosition",pagesize%,icon%,,,-1,A%
 ��
 ��
!:
!)� �set_numeric_psw_icon(icon%,value%)
!�@%
! @%=&0102010A
!*.�set_psw_icon(icon%,�(value%/mm_to_72000))
!4�
!>:
!H� �set_pagesize_window
!R� P%,V%
!\P%=page_number%
!f;�set_psw_icon(psw_name_icon%,page_names$(page_number%))
!pM�set_numeric_psw_icon(psw_height_icon%,page_desc%(P%,page_height_field%))
!zL�set_numeric_psw_icon(psw_width_icon%, page_desc%(P%,page_width_field%))
!�M�set_numeric_psw_icon(psw_bottom_icon%,page_desc%(P%,page_bottom_field%))
!�K�set_numeric_psw_icon(psw_left_icon%,  page_desc%(P%,page_left_field%))
!�GV%=page_desc%(P%,page_height_field%)-page_desc%(P%,page_top_field%)
!�.�set_numeric_psw_icon(psw_top_icon%,   V%)
!�HV%=page_desc%(P%,page_width_field%)-page_desc%(P%,page_right_field%)
!�.�set_numeric_psw_icon(psw_right_icon%, V%)
!�� I%=0�2
!�T�set_icon_state(pagesize%,psw_page1_icon%+I%, (1<<21) � (I%=page_number%),1<<21)
!��
!��
!�:
!�� �close(handle%)
!�)!q%=handle%:ș "Wimp_CloseWindow",,q%
"�
":
"� �window(a$)
"$� c%
".Hș "Wimp_LoadTemplate",,q%,curbuf%,endbuf%,-1,a$,0 � ,,curbuf%,,,,c%
"81� c%=0 � �moan("Template '"+a$+"' not found")
"B#ș "Wimp_CreateWindow",,q% � c%
"L=c%
"V:
"`� �iconaddr(h%,i%)
"j-!q%=h%:q%!4=i%:ș "Wimp_GetIconState",,q%
"t8� (q%!24 � &100)=0 � �moan("Icon is not indirected")
"~
=q%!28
"�:
"�� �menu(m%)
"�� Y%
"�Y% = mousey%
"��Y%<540 � Y%=540
"�menuhandle%=m%
"�3ș "Wimp_CreateMenu",,menuhandle%,mousex%-64,Y%
"��
"�:
"�
� �remenu
"�� Y%
"�Y% = mousey%
#� Y% < 300 � Y% = 316
#
Eș "Wimp_CreateMenu",,menuhandle%,mousex%-64,Y% :� default coords
#�
#:
#(� �crmenu(menu$)
#27� menufree%+28 > menuend% � �moan("Menu area full")
#<� m%,i%
#Fmenuptr%=menufree%
#Pi%=0
#Z?� �menu$,1)="#" � i%=1:menutitle$=�par(";") � menutitle$=""
#d$menuptr%=menutitle$
#nJmenuptr%?12=`tfcol:menuptr%?13=2:menuptr%?14=`wfcol:menuptr%?15=`wbcol
#x3menuptr%!16=196-24:menuptr%!20=44:menuptr%!24=0
#�$menuptr%+=28:maxx%=�menutitle$-3
#�1� item$=�par(";"):�menuitem(item$):� item$=""
#�$m%=menufree%:m%!16=(maxx%*8+6)*2
#�menufree%=menuptr%
#�=m%
#�:
#�� �menuitem(text$)
#�2� text$="" � menuptr%!-24=(menuptr%!-24)�&80:�
#�6� menuptr%+24 > menuend% � �moan("Menu area full")
#��i%,flg%,V%
#�flg%=&00
#�i%=�text$,">")
#�6� �text$,1)="#" � text$=�text$,�text$-1):flg%+=&02
$=�i%>0�subptr%=��text$,i%+1):text$=�text$,i%-1)�subptr%=-1
$menuptr%!0=flg%
$menuptr%!4=subptr%
$"menuptr%!8=&07000021
$,�text$,1)="$"�
$6 !menuptr%+=&04
$@ menuptr%!8+=&108
$J i%=�text$,"(")
$T4 �i%>0�L%=��text$,i%+1):text$=�text$,i%-1)�L%=12
$^ V% = -1
$h menuptr%!12=��text$,2)
$r menuptr%!16=-1
$| menuptr%!20=L%
$� text$=�L%," ")
$� � maxx%<20 � maxx%=20
$��
$� �text$,1)="!"�
$�  text$=�text$,�text$-1)
$�2  !menuptr%+=&08: � get warning when it opens.
$� �
$� �text$<=12�
$�  $(menuptr%+12)=text$
$�( � I%=�workspace(�text$+1):$I%=text$
$�8  menuptr%!12=I%:menuptr%!16=-1:menuptr%!20=�text$+1
$�"  menuptr%!8=menuptr%!8 � &100
$� �
%�text$>maxx% �maxx%=�text$
%�
%menuptr%+=24
%&�
%0:
%:� �workspace(L%)
%D� L% L%
%N= L%
%X:
%b� �par(sep$)
%l%i1%=i%+1:i%=�menu$+sep$,sep$,i1%)
%v=�menu$,i1%,i%-i1%)
%�:
%� � �shade(menuhandle%, item%)
%�Emenuhandle%!(28+8+24*item%)=menuhandle%!(28+8+24*item%)�&400000:�
%�:
%�[� �shade_status(menuhandle%,item%) = -((menuhandle%!(28+8+24*item%) � &400000)=&400000)
%�:
%�*� �set_shade(menuhandle%, item%, val%)
%�H� val%<>�shade_status(menuhandle%,item%) � �shade(menuhandle%,item%)
%��
%�:
%�� �tick(menuhandle%,item%)
%�;menuhandle%!(28+24*item%)=menuhandle%!(28+24*item%)�&01
%��
&:
&D� �tick_status(menuhandle%, item%) = menuhandle%!(28+24*item%)�1
&:
& )� �set_tick(menuhandle%, item%, val%)
&*F� val%<>�tick_status(menuhandle%,item%) � �tick(menuhandle%,item%)
&4�
&>:
&H� �set_print_state(flag%)
&R#�set_shade(printmenu%,1,-flag%)
&\#�set_shade(printmenu%,2,-flag%)
&f#�set_shade(printmenu%,3,-flag%)
&p#�set_shade(printmenu%,4,-flag%)
&z#�set_shade(printmenu%,5,-flag%)
&�#�set_shade(printmenu%,6,-flag%)
&�&�set_shade(printmenu%,7,(1+flag%))
&�#�set_shade(printmenu%,8,-flag%)
&�print_on%=flag%
&�,poll_mask%=(poll_mask% � �1) � (1+flag%)
&�
� flag% �
&� *set $Printing "T"
&��
&� *unset $Printing
&��
&��
&�:
&�� �set_page_size
'� A%,B%,C%,D%,E%,F%
'
msg%!0=20
'
msg%!12=0
'$msg%!16=Message_SetPrinter%
'.&ș "Wimp_SendMessage", 17, msg%, 0
'81A%=page_desc%(page_number%,page_width_field%)
'B2B%=page_desc%(page_number%,page_height_field%)
'L0C%=page_desc%(page_number%,page_left_field%)
'V2D%=page_desc%(page_number%,page_bottom_field%)
'`1E%=page_desc%(page_number%,page_right_field%)
'j/F%=page_desc%(page_number%,page_top_field%)
't/ș "PDriver_SetPageSize",,A%,B%,C%,D%,E%,F%
'~�Printer_change_page_size
'��
'�:
'�2� �set_icon_state(handle%, icon%, eor%, mask%)
'�!icon_buf%  = handle%
'�icon_buf%!4 = icon%
'�icon_buf%!8 = eor%
'�icon_buf%!12 = mask%
'�%ș "Wimp_SetIconState",,icon_buf%
'��
'�:
'�� �iconbar
'�� I%
(icon_buf%!0 =-2
(
icon_buf%!4 =0
(icon_buf%!8 =-16
(icon_buf%!12=144
((icon_buf%!16= 86
(2Gicon_buf%!20= &1700312B:  � 0001 0111 0000 0000 0011 0001 0010 1011
(<#$text_buffer%   = printer_type$
(F#$valid_buffer%  = "S!"+Printer$
(Picon_buf%!24= text_buffer%
(Z icon_buf%!28 = valid_buffer%
(d%icon_buf%!32 = �($text_buffer%)+1
(n(ș "Wimp_CreateIcon",,icon_buf% � I%
(x=I%
(�:
(�� �change_icon
(��set_ptype
(�!$text_buffer% = printer_type$
(��
(�:
(���set_ptype
(�� print_on% �
(� printer_type$ = "Printing"
(��
(�ș"OS_Byte",5,location_new%
(�Ȏ location_new% �
(�$ � 1: printer_type$ = "Parallel"
)" � 2: printer_type$ = "Serial"
)% � 4: printer_type$ = server_set$
)	 � 5:
)"-  � �lowercase(�$file_name%,5))="null:" �
),!   printer_type$ = "To null:"
)6  �
)@    printer_type$ = "To file"
)J  �
)T0  �("set PrinterType$5 """+$file_name%+"""")
)^�
)h�
)r�
)|:
)�� �getpointer
)� ș "Wimp_GetPointerInfo",,q%
)�*mousex%=!q%:mousey%=q%!4:buttons%=q%!8
)�handle%=q%!12:icon%=q%!16
)��
)�:
)�� �moan(report$)
)�� &20000,report$
)�:
)�� �error(err%, report$)
)�� stop%
)��EscOff
)�'stop%=(report$<>"Already printing")
*V� (err%<&10100 � err%>&20000) � err%<>17 � report$=report$+" internal error "+�(�)
*!error_blk% = err%
*$(error_blk%+4)=report$
*&!�zero_terminate(error_blk%+4)
*0"� stop% � print_on% � *FX 21,3
*:2ș "Wimp_ReportError", error_blk%, 1, Printer$
*D�endconfirm
*N
� stop% �
*X �Printer_CloseFiles
*b � print_on% �stop_printing
*l2 � in_file% ș"XOS_Find",0,in_file%:in_file%=0
*vD � out_file% �EscOn:ș"XOS_Find",0,out_file%:out_file%=0:�EscOff
*��
*��
*�:
*���zero_terminate(S%)
*�S%?�$S% = 0
*��
*�:
*�ݤlowercase(S$)
*�� R$, C%
*�	R$=""
*�ȕ �S$>0
*� C% = ��S$,1)
*� S$ = �S$,�S$-1)
+2 � C%>=�"A" � C%<=�"Z" � C% = C% - �"A" + �"a"
+ R$ += �C%
+�
+ =R$
+*:
+4� �stamp
+>� load%
+H� �
+R� � � �
+\'ș "OS_File",5,file_name% � ,,load%
+fS� (load%>>>8) <> &FFF000 + OutputType% � ș "OS_File",11,file_name%,OutputType%
+p�
+z:
+�� �EscOn
+�*FX 229
+��
+�:
+�
� �EscOff
+�
*FX 229,1
+��
�

00000000  0d 00 0a 1e f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 20 56 65 72 73 69 6f  6e 20 31 2e 31 30 0d 00  |e Version 1.10..|
00000020  14 3e f4 20 50 75 72 70  6f 73 65 3a 20 70 72 69  |.>. Purpose: pri|
00000030  6e 74 65 72 20 69 6e 64  65 70 65 6e 64 65 6e 74  |nter independent|
00000040  20 70 61 72 74 20 6f 66  20 70 72 69 6e 74 65 72  | part of printer|
00000050  20 61 70 70 6c 69 63 61  74 69 6f 6e 0d 00 1e 2e  | application....|
00000060  f4 20 41 75 74 68 6f 72  73 3a 20 44 54 65 65 2c  |. Authors: DTee,|
00000070  20 41 54 68 6f 6d 70 73  6f 6e 2c 20 4e 52 65 65  | AThompson, NRee|
00000080  76 65 73 2c 20 44 53 65  61 6c 0d 00 28 19 56 65  |ves, DSeal..(.Ve|
00000090  72 73 69 6f 6e 4e 75 6d  62 65 72 24 3d 22 31 2e  |rsionNumber$="1.|
000000a0  31 30 22 0d 00 32 1e c8  9b 20 22 3c 50 44 72 69  |10"..2... "<PDri|
000000b0  76 65 72 24 44 69 72 3e  2e 4c 69 62 72 61 72 79  |ver$Dir>.Library|
000000c0  22 0d 00 3c 09 f2 69 6e  69 74 0d 00 46 14 ee 20  |"..<..init..F.. |
000000d0  85 20 f2 65 72 72 6f 72  28 9f 2c f6 24 29 0d 00  |. .error(.,.$)..|
000000e0  50 05 f5 0d 00 5a 2f 20  c8 99 20 22 57 69 6d 70  |P....Z/ .. "Wimp|
000000f0  5f 50 6f 6c 6c 22 2c 70  6f 6c 6c 5f 6d 61 73 6b  |_Poll",poll_mask|
00000100  25 2c 65 76 65 6e 74 25  20 b8 20 61 63 74 69 6f  |%,event% . actio|
00000110  6e 25 0d 00 64 13 20 f2  64 65 73 70 61 74 63 68  |n%..d. .despatch|
00000120  5f 70 6f 6c 6c 0d 00 6e  07 fd 20 a3 0d 00 78 05  |_poll..n.. ...x.|
00000130  e0 0d 00 82 05 3a 0d 00  8c 13 dd f2 64 65 73 70  |.....:......desp|
00000140  61 74 63 68 5f 70 6f 6c  6c 0d 00 96 32 20 e7 20  |atch_poll...2 . |
00000150  ac 20 a4 50 72 69 6e 74  65 72 5f 70 72 6f 63 65  |. .Printer_proce|
00000160  73 73 5f 65 76 65 6e 74  28 61 63 74 69 6f 6e 25  |ss_event(action%|
00000170  2c 20 65 76 65 6e 74 25  29 20 8c 0d 00 a0 12 20  |, event%) ..... |
00000180  20 c8 8e 20 61 63 74 69  6f 6e 25 20 ca 0d 00 aa  | .. action% ....|
00000190  11 20 20 20 c9 20 30 3a  20 f2 63 6f 70 79 0d 00  |.   . 0: .copy..|
000001a0  b4 1c 20 20 20 c9 20 31  3a 20 f2 72 65 64 72 61  |..   . 1: .redra|
000001b0  77 28 21 65 76 65 6e 74  25 29 0d 00 be 2f 20 20  |w(!event%).../  |
000001c0  20 20 20 20 20 20 20 20  20 e7 20 21 65 76 65 6e  |         . !even|
000001d0  74 25 3d 63 6f 6e 66 69  72 6d 25 20 8c 20 f2 65  |t%=confirm% . .e|
000001e0  6e 64 63 6f 6e 66 69 72  6d 0d 00 c8 2d 20 20 20  |ndconfirm...-   |
000001f0  c9 20 32 3a 20 e7 20 21  65 76 65 6e 74 25 3c 3e  |. 2: . !event%<>|
00000200  63 6f 6e 66 69 72 6d 25  20 8c 20 f2 65 6e 64 63  |confirm% . .endc|
00000210  6f 6e 66 69 72 6d 0d 00  d2 61 20 20 20 20 20 20  |onfirm...a      |
00000220  20 20 20 20 20 f2 6f 70  65 6e 28 21 65 76 65 6e  |     .open(!even|
00000230  74 25 2c 65 76 65 6e 74  25 21 34 2c 65 76 65 6e  |t%,event%!4,even|
00000240  74 25 21 38 2c 65 76 65  6e 74 25 21 31 32 2c 65  |t%!8,event%!12,e|
00000250  76 65 6e 74 25 21 31 36  2c 65 76 65 6e 74 25 21  |vent%!16,event%!|
00000260  32 30 2c 65 76 65 6e 74  25 21 32 34 2c 65 76 65  |20,event%!24,eve|
00000270  6e 74 25 21 32 38 29 0d  00 dc 17 20 20 20 c9 20  |nt%!28)....   . |
00000280  33 3a 20 f2 65 6e 64 63  6f 6e 66 69 72 6d 0d 00  |3: .endconfirm..|
00000290  e6 1e 20 20 20 20 20 20  20 20 20 20 20 f2 63 6c  |..           .cl|
000002a0  6f 73 65 28 21 65 76 65  6e 74 25 29 0d 00 f0 4b  |ose(!event%)...K|
000002b0  20 20 20 c9 20 36 3a 20  f2 6d 6f 75 73 65 28 21  |   . 6: .mouse(!|
000002c0  65 76 65 6e 74 25 2c 65  76 65 6e 74 25 21 34 2c  |event%,event%!4,|
000002d0  65 76 65 6e 74 25 21 38  2c 65 76 65 6e 74 25 21  |event%!8,event%!|
000002e0  31 32 2c 65 76 65 6e 74  25 21 31 36 2c 65 76 65  |12,event%!16,eve|
000002f0  6e 74 25 21 32 30 29 0d  00 fa 1a 20 20 20 20 20  |nt%!20)....     |
00000300  20 20 20 20 20 20 f2 65  6e 64 63 6f 6e 66 69 72  |      .endconfir|
00000310  6d 0d 01 04 2c 20 20 20  c9 20 38 3a 20 f2 6b 65  |m...,   . 8: .ke|
00000320  79 28 21 65 76 65 6e 74  25 2c 65 76 65 6e 74 25  |y(!event%,event%|
00000330  21 34 2c 65 76 65 6e 74  25 21 32 34 29 0d 01 0e  |!4,event%!24)...|
00000340  2c 20 20 20 c9 20 39 3a  20 f2 64 65 63 6f 64 65  |,   . 9: .decode|
00000350  6d 65 6e 75 28 6d 65 6e  75 68 61 6e 64 6c 65 25  |menu(menuhandle%|
00000360  2c 20 65 76 65 6e 74 25  29 0d 01 18 31 20 20 20  |, event%)...1   |
00000370  20 20 20 20 20 20 20 20  f2 67 65 74 70 6f 69 6e  |        .getpoin|
00000380  74 65 72 3a e7 20 62 75  74 74 6f 6e 73 25 80 31  |ter:. buttons%.1|
00000390  20 8c 20 f2 72 65 6d 65  6e 75 0d 01 22 1f 20 20  | . .remenu..".  |
000003a0  20 c9 20 31 37 2c 31 38  3a f2 72 65 63 65 69 76  | . 17,18:.receiv|
000003b0  65 28 65 76 65 6e 74 25  29 0d 01 2c 1c 20 20 20  |e(event%)..,.   |
000003c0  c9 20 31 39 3a f2 62 6f  75 6e 63 65 64 28 65 76  |. 19:.bounced(ev|
000003d0  65 6e 74 25 29 0d 01 36  07 20 20 cb 0d 01 40 06  |ent%)..6.  ...@.|
000003e0  20 cd 0d 01 4a 05 e1 0d  01 54 05 3a 0d 01 5e 15  | ...J....T.:..^.|
000003f0  dd 20 a4 70 5f 66 69 65  6c 64 28 73 69 7a 65 25  |. .p_field(size%|
00000400  29 0d 01 68 1c 20 70 72  69 6e 74 65 72 5f 66 69  |)..h. printer_fi|
00000410  65 6c 64 25 20 2b 3d 20  73 69 7a 65 25 0d 01 72  |eld% += size%..r|
00000420  1d 20 3d 20 70 72 69 6e  74 65 72 5f 66 69 65 6c  |. = printer_fiel|
00000430  64 25 20 2d 20 73 69 7a  65 25 0d 01 7c 05 3a 0d  |d% - size%..|.:.|
00000440  01 86 0b dd 20 f2 69 6e  69 74 0d 01 90 07 ea 20  |.... .init..... |
00000450  85 0d 01 9a 0e 69 6e 5f  66 69 6c 65 25 3d 30 0d  |.....in_file%=0.|
00000460  01 a4 0f 6f 75 74 5f 66  69 6c 65 25 3d 30 0d 01  |...out_file%=0..|
00000470  ae 42 f4 20 64 65 66 69  6e 65 20 70 72 69 6e 74  |.B. define print|
00000480  65 72 20 63 6c 61 73 73  20 69 6e 64 65 70 65 6e  |er class indepen|
00000490  64 65 6e 74 20 66 69 65  6c 64 73 20 69 6e 20 70  |dent fields in p|
000004a0  72 69 6e 74 65 72 20 64  61 74 61 20 61 72 65 61  |rinter data area|
000004b0  0d 01 b8 16 70 72 69 6e  74 65 72 5f 66 69 65 6c  |....printer_fiel|
000004c0  64 25 20 3d 20 30 0d 01  c2 27 20 20 6c 69 73 74  |d% = 0...'  list|
000004d0  5f 70 6f 69 6e 74 65 72  5f 66 69 65 6c 64 25 20  |_pointer_field% |
000004e0  3d 20 a4 70 5f 66 69 65  6c 64 28 34 29 0d 01 cc  |= .p_field(4)...|
000004f0  27 20 20 20 20 20 20 20  20 20 70 78 72 65 73 5f  |'         pxres_|
00000500  66 69 65 6c 64 25 20 3d  20 a4 70 5f 66 69 65 6c  |field% = .p_fiel|
00000510  64 28 34 29 0d 01 d6 27  20 20 20 20 20 20 20 20  |d(4)...'        |
00000520  20 70 79 72 65 73 5f 66  69 65 6c 64 25 20 3d 20  | pyres_field% = |
00000530  a4 70 5f 66 69 65 6c 64  28 34 29 0d 01 e0 27 20  |.p_field(4)...' |
00000540  20 20 20 20 20 66 65 61  74 75 72 65 73 5f 66 69  |     features_fi|
00000550  65 6c 64 25 20 3d 20 a4  70 5f 66 69 65 6c 64 28  |eld% = .p_field(|
00000560  34 29 0d 01 ea 27 20 20  20 64 65 73 63 72 69 70  |4)...'   descrip|
00000570  74 69 6f 6e 5f 66 69 65  6c 64 25 20 3d 20 a4 70  |tion_field% = .p|
00000580  5f 66 69 65 6c 64 28 34  29 0d 01 f4 27 70 78 72  |_field(4)...'pxr|
00000590  65 73 5f 68 61 6c 66 74  6f 6e 65 5f 66 69 65 6c  |es_halftone_fiel|
000005a0  64 25 20 3d 20 a4 70 5f  66 69 65 6c 64 28 34 29  |d% = .p_field(4)|
000005b0  0d 01 fe 27 70 79 72 65  73 5f 68 61 6c 66 74 6f  |...'pyres_halfto|
000005c0  6e 65 5f 66 69 65 6c 64  25 20 3d 20 a4 70 5f 66  |ne_field% = .p_f|
000005d0  69 65 6c 64 28 34 29 0d  02 08 27 70 72 69 6e 74  |ield(4)...'print|
000005e0  65 72 5f 6e 75 6d 62 65  72 5f 66 69 65 6c 64 25  |er_number_field%|
000005f0  20 3d 20 a4 70 5f 66 69  65 6c 64 28 34 29 0d 02  | = .p_field(4)..|
00000600  12 26 f4 20 73 65 74 20  75 70 20 74 68 65 20 70  |.&. set up the p|
00000610  61 67 65 20 64 65 73 63  72 69 70 74 69 6f 6e 20  |age description |
00000620  64 61 74 61 0d 02 1c 1a  20 70 61 67 65 5f 77 69  |data.... page_wi|
00000630  64 74 68 5f 66 69 65 6c  64 25 20 3d 20 30 0d 02  |dth_field% = 0..|
00000640  26 1a 70 61 67 65 5f 68  65 69 67 68 74 5f 66 69  |&.page_height_fi|
00000650  65 6c 64 25 20 3d 20 31  0d 02 30 1a 70 61 67 65  |eld% = 1..0.page|
00000660  5f 62 6f 74 74 6f 6d 5f  66 69 65 6c 64 25 20 3d  |_bottom_field% =|
00000670  20 32 0d 02 3a 1a 20 20  20 70 61 67 65 5f 74 6f  | 2..:.   page_to|
00000680  70 5f 66 69 65 6c 64 25  20 3d 20 33 0d 02 44 1a  |p_field% = 3..D.|
00000690  20 20 70 61 67 65 5f 6c  65 66 74 5f 66 69 65 6c  |  page_left_fiel|
000006a0  64 25 20 3d 20 34 0d 02  4e 1a 20 70 61 67 65 5f  |d% = 4..N. page_|
000006b0  72 69 67 68 74 5f 66 69  65 6c 64 25 20 3d 20 35  |right_field% = 5|
000006c0  0d 02 58 3c 20 20 70 61  67 65 5f 6e 61 6d 65 5f  |..X<  page_name_|
000006d0  66 69 65 6c 64 25 20 3d  20 37 3a f4 20 6f 6e 6c  |field% = 7:. onl|
000006e0  79 20 75 73 65 64 20 74  6f 20 69 6e 64 65 78 20  |y used to index |
000006f0  70 61 67 65 5f 70 74 72  73 25 28 29 0d 02 62 0e  |page_ptrs%()..b.|
00000700  6d 61 78 70 61 67 65 25  3d 32 0d 02 6c 1b de 20  |maxpage%=2..l.. |
00000710  70 61 67 65 5f 6e 61 6d  65 73 24 28 6d 61 78 70  |page_names$(maxp|
00000720  61 67 65 25 29 0d 02 76  1a 70 61 67 65 5f 6e 61  |age%)..v.page_na|
00000730  6d 65 73 24 28 29 3d 22  75 6e 75 73 65 64 22 0d  |mes$()="unused".|
00000740  02 80 1f de 20 70 61 67  65 5f 73 65 6c 65 63 74  |.... page_select|
00000750  69 6f 6e 24 28 6d 61 78  70 61 67 65 25 29 0d 02  |ion$(maxpage%)..|
00000760  8a 18 70 61 67 65 5f 73  65 6c 65 63 74 69 6f 6e  |..page_selection|
00000770  24 28 29 3d 22 22 0d 02  94 2d de 20 70 61 67 65  |$()=""...-. page|
00000780  5f 64 65 73 63 25 28 6d  61 78 70 61 67 65 25 2c  |_desc%(maxpage%,|
00000790  20 70 61 67 65 5f 72 69  67 68 74 5f 66 69 65 6c  | page_right_fiel|
000007a0  64 25 29 0d 02 9e 34 70  61 67 65 5f 6e 75 6d 62  |d%)...4page_numb|
000007b0  65 72 25 20 3d 20 30 3a  20 f4 20 74 68 65 20 64  |er% = 0: . the d|
000007c0  65 73 63 72 69 70 74 6f  72 20 77 65 20 73 74 61  |escriptor we sta|
000007d0  72 74 20 77 69 74 68 0d  02 a8 31 70 61 67 65 5f  |rt with...1page_|
000007e0  6e 75 6d 62 65 72 5f 73  65 74 25 20 3d 20 30 3a  |number_set% = 0:|
000007f0  20 f4 20 74 68 65 20 6f  6e 65 20 63 75 72 72 65  | . the one curre|
00000800  6e 74 6c 79 20 73 65 74  0d 02 b2 1b 70 61 67 65  |ntly set....page|
00000810  5f 6e 75 6d 62 65 72 5f  63 6f 6e 66 69 67 25 20  |_number_config% |
00000820  3d 20 30 0d 02 bc 29 f4  20 74 68 65 20 61 72 72  |= 0...). the arr|
00000830  61 79 20 6f 66 20 50 54  52 23 27 73 20 66 6f 72  |ay of PTR#'s for|
00000840  20 53 61 76 65 5f 43 6f  6e 66 69 67 0d 02 c6 2c  | Save_Config...,|
00000850  de 20 70 61 67 65 5f 70  74 72 73 25 28 6d 61 78  |. page_ptrs%(max|
00000860  70 61 67 65 25 2c 20 70  61 67 65 5f 6e 61 6d 65  |page%, page_name|
00000870  5f 66 69 65 6c 64 25 29  0d 02 d0 13 70 61 67 65  |_field%)....page|
00000880  5f 70 74 72 73 25 28 29  3d 2d 31 0d 02 da 46 6d  |_ptrs%()=-1...Fm|
00000890  6d 5f 74 6f 5f 37 32 30  30 30 20 3d 20 31 38 31  |m_to_72000 = 181|
000008a0  34 2e 34 2a 37 32 30 30  30 2f 28 31 38 30 3c 3c  |4.4*72000/(180<<|
000008b0  38 29 20 3a 20 f4 20 63  6f 6e 76 65 72 73 69 6f  |8) : . conversio|
000008c0  6e 20 66 61 63 74 6f 72  20 63 6f 6e 73 74 61 6e  |n factor constan|
000008d0  74 0d 02 e4 23 f4 20 64  65 66 69 6e 65 20 70 61  |t...#. define pa|
000008e0  67 65 20 73 69 7a 65 20  77 69 6e 64 6f 77 20 69  |ge size window i|
000008f0  63 6f 6e 73 0d 02 ee 18  20 20 20 20 70 73 77 5f  |cons....    psw_|
00000900  4f 4b 5f 69 63 6f 6e 25  20 3d 20 30 0d 02 f8 18  |OK_icon% = 0....|
00000910  20 20 70 73 77 5f 6e 61  6d 65 5f 69 63 6f 6e 25  |  psw_name_icon%|
00000920  20 3d 20 31 0d 03 02 18  70 73 77 5f 68 65 69 67  | = 1....psw_heig|
00000930  68 74 5f 69 63 6f 6e 25  20 3d 20 32 0d 03 0c 18  |ht_icon% = 2....|
00000940  20 70 73 77 5f 77 69 64  74 68 5f 69 63 6f 6e 25  | psw_width_icon%|
00000950  20 3d 20 33 0d 03 16 18  20 20 20 70 73 77 5f 74  | = 3....   psw_t|
00000960  6f 70 5f 69 63 6f 6e 25  20 3d 20 34 0d 03 20 18  |op_icon% = 4.. .|
00000970  70 73 77 5f 62 6f 74 74  6f 6d 5f 69 63 6f 6e 25  |psw_bottom_icon%|
00000980  20 3d 20 35 0d 03 2a 18  20 20 70 73 77 5f 6c 65  | = 5..*.  psw_le|
00000990  66 74 5f 69 63 6f 6e 25  20 3d 20 36 0d 03 34 18  |ft_icon% = 6..4.|
000009a0  20 70 73 77 5f 72 69 67  68 74 5f 69 63 6f 6e 25  | psw_right_icon%|
000009b0  20 3d 20 37 0d 03 3e 19  20 70 73 77 5f 70 61 67  | = 7..>. psw_pag|
000009c0  65 31 5f 69 63 6f 6e 25  20 3d 20 31 30 0d 03 48  |e1_icon% = 10..H|
000009d0  19 20 70 73 77 5f 70 61  67 65 32 5f 69 63 6f 6e  |. psw_page2_icon|
000009e0  25 20 3d 20 31 31 0d 03  52 19 20 70 73 77 5f 70  |% = 11..R. psw_p|
000009f0  61 67 65 33 5f 69 63 6f  6e 25 20 3d 20 31 32 0d  |age3_icon% = 12.|
00000a00  03 5c 33 f4 20 64 65 66  69 6e 65 20 63 6c 61 73  |.\3. define clas|
00000a10  73 20 69 6e 64 65 70 65  6e 64 65 6e 74 20 69 63  |s independent ic|
00000a20  6f 6e 73 20 69 6e 20 6d  61 69 6e 20 77 69 6e 64  |ons in main wind|
00000a30  6f 77 0d 03 66 19 6d 61  69 6e 5f 64 65 73 63 72  |ow..f.main_descr|
00000a40  69 70 74 69 6f 6e 25 20  3d 20 31 0d 03 70 2e f4  |iption% = 1..p..|
00000a50  20 50 72 44 61 74 61 20  66 69 6c 65 73 20 77 69  | PrData files wi|
00000a60  74 68 6f 75 74 20 22 76  65 72 73 69 6f 6e 3a 22  |thout "version:"|
00000a70  20 61 72 65 20 6f 6c 64  2e 0d 03 7a 17 50 72 44  | are old...z.PrD|
00000a80  61 74 61 5f 76 65 72 73  69 6f 6e 25 20 3d 20 30  |ata_version% = 0|
00000a90  0d 03 84 2f f4 20 6d 61  72 6b 20 63 6f 6e 66 69  |.../. mark confi|
00000aa0  67 75 72 65 20 6f 70 74  69 6f 6e 73 20 61 73 20  |gure options as |
00000ab0  75 6e 73 65 74 20 69 6e  69 74 69 61 6c 6c 79 0d  |unset initially.|
00000ac0  03 8e 18 70 61 67 65 5f  6e 75 6d 62 65 72 5f 70  |...page_number_p|
00000ad0  74 72 25 3d 20 2d 31 0d  03 98 18 20 20 20 20 20  |tr%= -1....     |
00000ae0  20 66 69 6c 65 5f 70 74  72 25 20 3d 20 2d 31 0d  | file_ptr% = -1.|
00000af0  03 a2 17 20 20 20 66 69  6c 65 5f 63 6f 6e 66 69  |...   file_confi|
00000b00  67 25 20 3d 20 30 0d 03  ac 18 20 20 20 70 72 69  |g% = 0....   pri|
00000b10  6e 74 65 72 5f 70 74 72  25 20 3d 20 2d 31 0d 03  |nter_ptr% = -1..|
00000b20  b6 17 70 72 69 6e 74 65  72 5f 63 6f 6e 66 69 67  |..printer_config|
00000b30  25 20 3d 20 30 0d 03 c0  17 20 20 20 70 72 69 6e  |% = 0....   prin|
00000b40  74 65 72 5f 6e 65 77 25  20 3d 20 30 0d 03 ca 18  |ter_new% = 0....|
00000b50  20 20 6c 6f 63 61 74 69  6f 6e 5f 70 74 72 25 20  |  location_ptr% |
00000b60  3d 20 2d 31 0d 03 d4 18  20 20 20 20 20 20 62 61  |= -1....      ba|
00000b70  75 64 5f 70 74 72 25 20  3d 20 2d 31 0d 03 de 18  |ud_ptr% = -1....|
00000b80  20 20 20 20 20 20 64 61  74 61 5f 70 74 72 25 20  |      data_ptr% |
00000b90  3d 20 2d 31 0d 03 e8 18  20 20 20 20 20 20 20 58  |= -1....       X|
00000ba0  4f 4e 5f 70 74 72 25 20  3d 20 2d 31 0d 03 f2 18  |ON_ptr% = -1....|
00000bb0  20 20 20 20 73 65 72 76  65 72 5f 70 74 72 25 20  |    server_ptr% |
00000bc0  3d 20 2d 31 0d 03 fc 18  20 20 20 20 20 20 66 65  |= -1....      fe|
00000bd0  65 64 5f 70 74 72 25 20  3d 20 2d 31 0d 04 06 14  |ed_ptr% = -1....|
00000be0  f4 20 6d 65 73 73 61 67  65 20 76 61 6c 75 65 73  |. message values|
00000bf0  0d 04 10 22 4d 65 73 73  61 67 65 5f 50 72 69 6e  |..."Message_Prin|
00000c00  74 46 69 6c 65 25 20 20  20 20 20 3d 26 38 30 31  |tFile%     =&801|
00000c10  34 30 0d 04 1a 22 4d 65  73 73 61 67 65 5f 57 69  |40..."Message_Wi|
00000c20  6c 6c 50 72 69 6e 74 25  20 20 20 20 20 3d 26 38  |llPrint%     =&8|
00000c30  30 31 34 31 0d 04 24 22  4d 65 73 73 61 67 65 5f  |0141..$"Message_|
00000c40  50 72 69 6e 74 53 61 76  65 25 20 20 20 20 20 3d  |PrintSave%     =|
00000c50  26 38 30 31 34 32 0d 04  2e 22 4d 65 73 73 61 67  |&80142..."Messag|
00000c60  65 5f 50 72 69 6e 74 49  6e 69 74 25 20 20 20 20  |e_PrintInit%    |
00000c70  20 3d 26 38 30 31 34 33  0d 04 38 22 4d 65 73 73  | =&80143..8"Mess|
00000c80  61 67 65 5f 50 72 69 6e  74 42 75 73 79 25 20 20  |age_PrintBusy%  |
00000c90  20 20 20 3d 26 38 30 31  34 34 0d 04 42 22 4d 65  |   =&80144..B"Me|
00000ca0  73 73 61 67 65 5f 50 72  69 6e 74 54 79 70 65 4f  |ssage_PrintTypeO|
00000cb0  64 64 25 20 20 3d 26 38  30 31 34 35 0d 04 4c 22  |dd%  =&80145..L"|
00000cc0  4d 65 73 73 61 67 65 5f  50 72 69 6e 74 54 79 70  |Message_PrintTyp|
00000cd0  65 4b 6e 6f 77 6e 25 3d  26 38 30 31 34 36 0d 04  |eKnown%=&80146..|
00000ce0  56 22 4d 65 73 73 61 67  65 5f 53 65 74 50 72 69  |V"Message_SetPri|
00000cf0  6e 74 65 72 25 20 20 20  20 3d 26 38 30 31 34 37  |nter%    =&80147|
00000d00  0d 04 60 22 4d 65 73 73  61 67 65 5f 4d 65 6e 75  |..`"Message_Menu|
00000d10  57 61 72 6e 25 20 20 20  20 20 20 3d 26 34 30 30  |Warn%      =&400|
00000d20  43 30 0d 04 6a 1d f4 20  64 69 6d 65 6e 73 69 6f  |C0..j.. dimensio|
00000d30  6e 20 73 79 73 74 65 6d  20 61 72 72 61 79 73 0d  |n system arrays.|
00000d40  04 74 0d de 20 71 25 20  26 38 30 30 0d 04 7e 11  |.t.. q% &800..~.|
00000d50  de 20 65 76 65 6e 74 25  20 26 38 30 30 0d 04 88  |. event% &800...|
00000d60  10 6d 61 78 62 75 66 25  3d 26 38 30 30 0d 04 92  |.maxbuf%=&800...|
00000d70  30 de 20 63 75 72 62 75  66 25 20 6d 61 78 62 75  |0. curbuf% maxbu|
00000d80  66 25 3a 20 65 6e 64 62  75 66 25 20 3d 20 63 75  |f%: endbuf% = cu|
00000d90  72 62 75 66 25 2b 6d 61  78 62 75 66 25 0d 04 9c  |rbuf%+maxbuf%...|
00000da0  2f de 20 6d 65 6e 75 66  72 65 65 25 20 26 38 30  |/. menufree% &80|
00000db0  30 3a 20 6d 65 6e 75 65  6e 64 25 20 3d 20 6d 65  |0: menuend% = me|
00000dc0  6e 75 66 72 65 65 25 2b  26 38 30 30 0d 04 a6 12  |nufree%+&800....|
00000dd0  de 20 69 63 6f 6e 5f 62  75 66 25 20 34 30 0d 04  |. icon_buf% 40..|
00000de0  b0 27 de 20 74 65 78 74  5f 62 75 66 66 65 72 25  |.'. text_buffer%|
00000df0  20 31 32 2c 20 76 61 6c  69 64 5f 62 75 66 66 65  | 12, valid_buffe|
00000e00  72 25 20 31 32 0d 04 ba  0f de 20 62 6c 6f 63 6b  |r% 12..... block|
00000e10  25 20 32 30 0d 04 c4 14  de 20 65 72 72 6f 72 5f  |% 20..... error_|
00000e20  62 6c 6b 25 20 32 35 36  0d 04 ce 0e de 20 6d 73  |blk% 256..... ms|
00000e30  67 25 20 32 35 36 0d 04  d8 14 de 20 66 69 6c 65  |g% 256..... file|
00000e40  5f 6e 61 6d 65 25 20 32  30 31 0d 04 e2 12 24 66  |_name% 201....$f|
00000e50  69 6c 65 5f 6e 61 6d 65  25 3d 22 22 0d 04 ec 0e  |ile_name%=""....|
00000e60  62 75 66 73 7a 25 3d 32  35 36 0d 04 f6 11 de 20  |bufsz%=256..... |
00000e70  62 75 66 25 20 62 75 66  73 7a 25 0d 05 00 14 f4  |buf% bufsz%.....|
00000e80  20 73 65 74 20 75 70 20  63 6f 6c 6f 75 72 73 0d  | set up colours.|
00000e90  05 0a 21 60 77 62 63 6f  6c 3d 26 30 3a 60 77 66  |..!`wbcol=&0:`wf|
00000ea0  63 6f 6c 3d 26 37 3a 60  74 66 63 6f 6c 3d 26 37  |col=&7:`tfcol=&7|
00000eb0  0d 05 14 18 f4 20 69 6e  69 74 69 61 6c 20 6d 61  |..... initial ma|
00000ec0  73 6b 20 73 74 61 74 65  0d 05 1e 2f 70 6f 6c 6c  |sk state.../poll|
00000ed0  5f 6d 61 73 6b 25 20 3d  20 ac 28 25 31 31 31 20  |_mask% = .(%111 |
00000ee0  3c 3c 20 31 37 29 3a 20  f4 20 6f 6e 6c 79 20 6d  |<< 17): . only m|
00000ef0  65 73 73 61 67 65 73 0d  05 28 3a 63 6f 6e 66 69  |essages..(:confi|
00000f00  72 6d 5f 61 6e 73 77 65  72 25 20 3d 20 30 20 3a  |rm_answer% = 0 :|
00000f10  20 f4 20 6e 6f 74 20 69  6e 73 69 64 65 20 46 4e  | . not inside FN|
00000f20  63 6f 6e 66 69 72 6d 20  63 75 72 72 65 6e 74 6c  |confirm currentl|
00000f30  79 0d 05 32 17 f2 50 72  69 6e 74 65 72 5f 69 6e  |y..2..Printer_in|
00000f40  69 74 69 61 6c 69 73 65  0d 05 3c 7a e7 20 50 72  |itialise..<z. Pr|
00000f50  44 61 74 61 5f 76 65 72  73 69 6f 6e 25 20 3c 3e  |Data_version% <>|
00000f60  20 50 72 44 61 74 61 5f  65 78 70 65 63 74 65 64  | PrData_expected|
00000f70  25 20 8c 20 85 20 31 30  30 2c 22 49 6e 63 6f 6d  |% . . 100,"Incom|
00000f80  70 61 74 69 62 6c 65 20  70 72 69 6e 74 65 72 20  |patible printer |
00000f90  64 61 74 61 20 66 69 6c  65 20 66 6f 75 6e 64 20  |data file found |
00000fa0  69 6e 20 61 70 70 6c 69  63 61 74 69 6f 6e 3a 20  |in application: |
00000fb0  70 6c 65 61 73 65 20 72  65 70 6c 61 63 65 20 69  |please replace i|
00000fc0  74 22 0d 05 46 1a 50 72  69 6e 74 65 72 24 3d 50  |t"..F.Printer$=P|
00000fd0  72 69 6e 74 65 72 43 6c  61 73 73 24 0d 05 50 11  |rinterClass$..P.|
00000fe0  73 61 76 65 5f 6e 61 6d  65 24 3d 22 22 0d 05 5a  |save_name$=""..Z|
00000ff0  10 70 72 69 6e 74 5f 72  65 66 25 3d 30 0d 05 64  |.print_ref%=0..d|
00001000  16 f4 20 20 49 6e 69 74  69 61 6c 69 73 65 20 57  |..  Initialise W|
00001010  49 4d 50 0d 05 6e 20 de  20 74 61 73 6b 69 64 25  |IMP..n . taskid%|
00001020  20 35 3a 20 24 74 61 73  6b 69 64 25 3d 22 54 41  | 5: $taskid%="TA|
00001030  53 4b 22 0d 05 78 3e c8  99 20 22 57 69 6d 70 5f  |SK"..x>.. "Wimp_|
00001040  49 6e 69 74 69 61 6c 69  73 65 22 2c 32 30 30 2c  |Initialise",200,|
00001050  21 74 61 73 6b 69 64 25  2c 50 72 69 6e 74 65 72  |!taskid%,Printer|
00001060  24 20 b8 20 2c 74 61 73  6b 5f 68 61 6e 64 6c 65  |$ . ,task_handle|
00001070  25 0d 05 82 22 ee 20 85  20 ea 20 f2 65 72 72 6f  |%...". . . .erro|
00001080  72 28 9f 2c 20 f6 24 29  3a f2 74 65 72 6d 69 6e  |r(., .$):.termin|
00001090  61 74 65 0d 05 8c 0d 6d  73 67 25 21 30 3d 32 30  |ate....msg%!0=20|
000010a0  0d 05 96 0d 6d 73 67 25  21 31 32 3d 30 0d 05 a0  |....msg%!12=0...|
000010b0  1e 6d 73 67 25 21 31 36  3d 4d 65 73 73 61 67 65  |.msg%!16=Message|
000010c0  5f 50 72 69 6e 74 49 6e  69 74 25 0d 05 aa 26 c8  |_PrintInit%...&.|
000010d0  99 20 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |. "Wimp_SendMess|
000010e0  61 67 65 22 2c 20 31 38  2c 20 6d 73 67 25 2c 20  |age", 18, msg%, |
000010f0  30 0d 05 b4 05 e1 0d 05  be 05 3a 0d 05 c8 0c dd  |0.........:.....|
00001100  20 f2 69 6e 69 74 32 0d  05 d2 08 ea 20 53 24 0d  | .init2..... S$.|
00001110  05 dc 07 ea 20 85 0d 05  e6 1c f4 20 6c 6f 61 64  |.... ...... load|
00001120  20 74 68 65 20 74 65 6d  70 6c 61 74 65 20 66 69  | the template fi|
00001130  6c 65 0d 05 f0 35 c8 99  20 22 57 69 6d 70 5f 4f  |le...5.. "Wimp_O|
00001140  70 65 6e 54 65 6d 70 6c  61 74 65 22 2c 2c 22 3c  |penTemplate",,"<|
00001150  50 44 72 69 76 65 72 24  44 69 72 3e 2e 54 65 6d  |PDriver$Dir>.Tem|
00001160  70 6c 61 74 65 73 22 0d  05 fa 1b 6d 61 69 6e 25  |plates"....main%|
00001170  20 3d 20 a4 77 69 6e 64  6f 77 28 22 6d 61 69 6e  | = .window("main|
00001180  22 29 0d 06 04 21 63 6f  6e 66 69 72 6d 25 20 3d  |")...!confirm% =|
00001190  20 a4 77 69 6e 64 6f 77  28 22 63 6f 6e 66 69 72  | .window("confir|
000011a0  6d 22 29 0d 06 0e 1b 69  6e 66 6f 25 20 3d 20 a4  |m")....info% = .|
000011b0  77 69 6e 64 6f 77 28 22  69 6e 66 6f 22 29 0d 06  |window("info")..|
000011c0  18 23 70 61 67 65 73 69  7a 65 25 20 3d 20 a4 77  |.#pagesize% = .w|
000011d0  69 6e 64 6f 77 28 22 70  61 67 65 73 69 7a 65 22  |indow("pagesize"|
000011e0  29 0d 06 22 1b f2 50 72  69 6e 74 65 72 5f 6c 6f  |).."..Printer_lo|
000011f0  61 64 5f 74 65 6d 70 6c  61 74 65 73 0d 06 2c 1b  |ad_templates..,.|
00001200  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 54 65  |.. "Wimp_CloseTe|
00001210  6d 70 6c 61 74 65 22 0d  06 36 16 70 72 69 6e 74  |mplate"..6.print|
00001220  65 72 5f 74 79 70 65 24  20 3d 20 22 22 0d 06 40  |er_type$ = ""..@|
00001230  15 69 63 70 72 69 6e 74  25 3d a4 69 63 6f 6e 62  |.icprint%=.iconb|
00001240  61 72 0d 06 4a 1a f4 20  63 72 65 61 74 65 20 74  |ar..J.. create t|
00001250  68 65 20 6d 65 6e 75 20  74 72 65 65 0d 06 54 13  |he menu tree..T.|
00001260  de 20 73 65 72 76 65 72  5f 6e 65 77 25 20 38 0d  |. server_new% 8.|
00001270  06 5e 15 24 73 65 72 76  65 72 5f 6e 65 77 25 20  |.^.$server_new% |
00001280  3d 20 22 22 0d 06 68 16  e7 20 24 66 69 6c 65 5f  |= ""..h.. $file_|
00001290  6e 61 6d 65 25 3d 22 22  20 8c 0d 06 72 3e 20 c8  |name%="" ...r> .|
000012a0  99 20 22 58 4f 53 5f 52  65 61 64 56 61 72 56 61  |. "XOS_ReadVarVa|
000012b0  6c 22 2c 22 50 72 69 6e  74 65 72 54 79 70 65 24  |l","PrinterType$|
000012c0  35 22 2c 66 69 6c 65 5f  6e 61 6d 65 25 2c 32 30  |5",file_name%,20|
000012d0  30 20 b8 20 2c 2c 4c 25  0d 06 7c 0b 20 e7 20 4c  |0 . ,,L%..|. . L|
000012e0  25 20 8c 0d 06 86 18 20  20 66 69 6c 65 5f 6e 61  |% .....  file_na|
000012f0  6d 65 25 3f 4c 25 20 3d  20 31 33 0d 06 90 06 20  |me%?L% = 13.... |
00001300  cc 0d 06 9a 2d 20 20 24  66 69 6c 65 5f 6e 61 6d  |....-  $file_nam|
00001310  65 25 3d 22 3c 50 44 72  69 76 65 72 24 44 69 72  |e%="<PDriver$Dir|
00001320  3e 2e 5e 2e 50 72 69 6e  74 44 61 74 61 22 0d 06  |>.^.PrintData"..|
00001330  a4 06 20 cd 0d 06 ae 05  cd 0d 06 b8 62 62 61 75  |.. .........bbau|
00001340  64 6d 25 20 3d 20 a4 63  72 6d 65 6e 75 28 22 23  |dm% = .crmenu("#|
00001350  42 61 75 64 3b 37 35 3b  31 35 30 3b 33 30 30 3b  |Baud;75;150;300;|
00001360  31 32 30 30 3b 32 34 30  30 3b 34 38 30 30 3b 39  |1200;2400;4800;9|
00001370  36 30 30 3b 31 39 32 30  30 3b 35 30 3b 31 31 30  |600;19200;50;110|
00001380  3b 31 33 34 2e 35 3b 36  30 30 3b 31 38 30 30 3b  |;134.5;600;1800;|
00001390  33 36 30 30 3b 37 32 30  30 22 29 0d 06 c2 25 62  |3600;7200")...%b|
000013a0  69 74 73 6d 25 20 3d 20  a4 63 72 6d 65 6e 75 28  |itsm% = .crmenu(|
000013b0  22 23 42 69 74 73 3b 35  3b 36 3b 37 3b 38 22 29  |"#Bits;5;6;7;8")|
000013c0  0d 06 cc 3e 70 61 72 69  74 79 6d 25 20 3d 20 a4  |...>paritym% = .|
000013d0  63 72 6d 65 6e 75 28 22  23 50 61 72 69 74 79 3b  |crmenu("#Parity;|
000013e0  6f 66 66 3b 6f 64 64 3b  65 76 65 6e 3b 31 20 6f  |off;odd;even;1 o|
000013f0  6e 20 54 58 3b 30 20 6f  6e 20 54 58 22 29 0d 06  |n TX;0 on TX")..|
00001400  d6 53 73 74 6f 70 6d 25  20 3d 20 a4 63 72 6d 65  |.Sstopm% = .crme|
00001410  6e 75 28 22 23 53 74 6f  70 20 62 69 74 73 3b 31  |nu("#Stop bits;1|
00001420  3b 32 20 28 31 2e 35 20  69 66 20 35 20 62 69 74  |;2 (1.5 if 5 bit|
00001430  73 20 70 61 72 69 74 79  2c 31 20 69 66 20 38 20  |s parity,1 if 8 |
00001440  62 69 74 73 20 6e 6f 20  70 61 72 69 74 79 29 22  |bits no parity)"|
00001450  29 0d 06 e0 51 64 61 74  61 6d 25 20 3d 20 a4 63  |)...Qdatam% = .c|
00001460  72 6d 65 6e 75 28 22 23  44 61 74 61 20 66 6f 72  |rmenu("#Data for|
00001470  6d 61 74 3b 42 69 74 73  3e 62 69 74 73 6d 25 3b  |mat;Bits>bitsm%;|
00001480  50 61 72 69 74 79 3e 70  61 72 69 74 79 6d 25 3b  |Parity>paritym%;|
00001490  53 74 6f 70 20 62 69 74  73 3e 73 74 6f 70 6d 25  |Stop bits>stopm%|
000014a0  22 29 0d 06 ea 50 73 65  72 69 61 6c 6d 25 20 3d  |")...Pserialm% =|
000014b0  20 a4 63 72 6d 65 6e 75  28 22 23 53 65 72 69 61  | .crmenu("#Seria|
000014c0  6c 3b 42 61 75 64 20 72  61 74 65 3e 62 61 75 64  |l;Baud rate>baud|
000014d0  6d 25 3b 44 61 74 61 20  66 6f 72 6d 61 74 3e 64  |m%;Data format>d|
000014e0  61 74 61 6d 25 3b 58 4f  4e 20 2f 20 58 4f 46 46  |atam%;XON / XOFF|
000014f0  22 29 0d 06 f4 36 6e 65  74 70 72 69 6e 74 6d 25  |")...6netprintm%|
00001500  20 3d 20 a4 63 72 6d 65  6e 75 28 22 23 4e 65 74  | = .crmenu("#Net|
00001510  20 70 72 69 6e 74 3b 24  73 65 72 76 65 72 5f 6e  | print;$server_n|
00001520  65 77 25 28 38 29 22 29  0d 06 fe 36 66 69 6c 65  |ew%(8)")...6file|
00001530  6d 65 6e 75 25 20 3d 20  a4 63 72 6d 65 6e 75 28  |menu% = .crmenu(|
00001540  22 23 46 69 6c 65 20 6e  61 6d 65 3b 24 66 69 6c  |"#File name;$fil|
00001550  65 5f 6e 61 6d 65 25 28  32 30 30 29 22 29 0d 07  |e_name%(200)")..|
00001560  08 a6 70 72 69 6e 74 6d  65 6e 75 25 20 3d 20 a4  |..printmenu% = .|
00001570  63 72 6d 65 6e 75 28 22  23 22 2b 50 72 69 6e 74  |crmenu("#"+Print|
00001580  65 72 24 2b 22 3b 49 6e  66 6f 3e 69 6e 66 6f 25  |er$+";Info>info%|
00001590  23 3b 50 61 72 61 6c 6c  65 6c 3b 53 65 72 69 61  |#;Parallel;Seria|
000015a0  6c 3e 73 65 72 69 61 6c  6d 25 3b 4e 65 74 77 6f  |l>serialm%;Netwo|
000015b0  72 6b 3e 6e 65 74 70 72  69 6e 74 6d 25 3b 46 69  |rk>netprintm%;Fi|
000015c0  6c 65 3e 66 69 6c 65 6d  65 6e 75 25 23 3b 21 50  |le>filemenu%#;!P|
000015d0  61 67 65 20 73 69 7a 65  3e 70 61 67 65 73 69 7a  |age size>pagesiz|
000015e0  65 25 3b 53 61 76 65 20  63 68 6f 69 63 65 73 3b  |e%;Save choices;|
000015f0  53 74 6f 70 20 70 72 69  6e 74 69 6e 67 3b 51 75  |Stop printing;Qu|
00001600  69 74 22 29 0d 07 12 17  f2 73 65 74 5f 70 72 69  |it").....set_pri|
00001610  6e 74 5f 73 74 61 74 65  28 a3 29 0d 07 1c 0d f2  |nt_state(.).....|
00001620  64 65 66 61 75 6c 74 73  0d 07 26 2b f4 20 73 65  |defaults..&+. se|
00001630  74 20 75 70 20 6e 65 74  20 70 72 69 6e 74 69 6e  |t up net printin|
00001640  67 20 64 61 74 61 20 69  66 20 6e 65 63 65 73 73  |g data if necess|
00001650  61 72 79 0d 07 30 41 e7  20 6c 6f 63 61 74 69 6f  |ary..0A. locatio|
00001660  6e 5f 6e 65 77 25 3d 34  20 8c 20 f2 73 65 74 75  |n_new%=4 . .setu|
00001670  70 5f 6e 65 74 5f 73 65  72 76 65 72 20 8b 20 73  |p_net_server . s|
00001680  65 72 76 65 72 5f 73 65  74 24 3d 22 3c 75 6e 73  |erver_set$="<uns|
00001690  65 74 3e 22 0d 07 3a 24  70 61 67 65 5f 6e 75 6d  |et>"..:$page_num|
000016a0  62 65 72 25 3d 70 61 67  65 5f 6e 75 6d 62 65 72  |ber%=page_number|
000016b0  5f 63 6f 6e 66 69 67 25  0d 07 44 28 70 61 67 65  |_config%..D(page|
000016c0  5f 6e 75 6d 62 65 72 5f  73 65 74 25 3d 70 61 67  |_number_set%=pag|
000016d0  65 5f 6e 75 6d 62 65 72  5f 63 6f 6e 66 69 67 25  |e_number_config%|
000016e0  0d 07 4e 12 f2 73 65 74  5f 70 61 67 65 5f 73 69  |..N..set_page_si|
000016f0  7a 65 0d 07 58 1e f2 50  72 69 6e 74 65 72 5f 73  |ze..X..Printer_s|
00001700  65 74 5f 69 6e 69 74 69  61 6c 5f 73 74 61 74 65  |et_initial_state|
00001710  0d 07 62 19 ee 20 85 20  ea 20 f2 65 72 72 6f 72  |..b.. . . .error|
00001720  28 9f 2c 20 f6 24 29 3a  e1 0d 07 6c 10 f2 63 68  |(., .$):...l..ch|
00001730  61 6e 67 65 5f 69 63 6f  6e 0d 07 76 05 e1 0d 07  |ange_icon..v....|
00001740  80 05 3a 0d 07 8a 16 dd  f2 73 65 74 75 70 5f 6e  |..:......setup_n|
00001750  65 74 5f 73 65 72 76 65  72 0d 07 94 0b ea 20 53  |et_server..... S|
00001760  25 2c 4e 25 0d 07 9e 07  ea 20 85 0d 07 a8 21 ee  |%,N%..... ....!.|
00001770  20 85 20 ea 20 73 65 72  76 65 72 5f 73 65 74 24  | . . server_set$|
00001780  3d 22 3c 75 6e 73 65 74  3e 22 3a e1 0d 07 b2 26  |="<unset>":....&|
00001790  c8 99 22 58 4e 65 74 50  72 69 6e 74 5f 52 65 61  |.."XNetPrint_Rea|
000017a0  64 50 53 4e 75 6d 62 65  72 22 20 b8 20 53 25 2c  |dPSNumber" . S%,|
000017b0  4e 25 0d 07 bc 0c e7 20  53 25 3d 30 20 8c 0d 07  |N%..... S%=0 ...|
000017c0  c6 2a 20 c8 99 22 58 4e  65 74 50 72 69 6e 74 5f  |.* .."XNetPrint_|
000017d0  52 65 61 64 50 53 4e 61  6d 65 22 2c 2c 71 25 2c  |ReadPSName",,q%,|
000017e0  32 30 20 b8 20 2c 53 25  0d 07 d0 0d 20 53 25 3f  |20 . ,S%.... S%?|
000017f0  2d 31 3d 31 33 0d 07 da  14 20 73 65 72 76 65 72  |-1=13.... server|
00001800  5f 73 65 74 24 3d 24 71  25 0d 07 e4 05 cc 0d 07  |_set$=$q%.......|
00001810  ee 1c 20 73 65 72 76 65  72 5f 73 65 74 24 3d c3  |.. server_set$=.|
00001820  4e 25 2b 22 2e 22 2b c3  53 25 0d 07 f8 05 cd 0d  |N%+"."+.S%......|
00001830  08 02 0b f2 73 65 74 5f  70 73 0d 08 0c 05 e1 0d  |....set_ps......|
00001840  08 16 05 3a 0d 08 20 11  dd 20 f2 53 61 76 65 43  |...:.. .. .SaveC|
00001850  6f 6e 66 69 67 0d 08 2a  0b ea 20 49 25 2c 4a 25  |onfig..*.. I%,J%|
00001860  0d 08 34 25 6f 75 74 5f  66 69 6c 65 25 3d ad 22  |..4%out_file%=."|
00001870  3c 50 44 72 69 76 65 72  24 44 69 72 3e 2e 50 72  |<PDriver$Dir>.Pr|
00001880  44 61 74 61 22 0d 08 3e  13 e3 20 4a 25 3d 30 b8  |Data"..>.. J%=0.|
00001890  6d 61 78 70 61 67 65 25  0d 08 48 1c 20 e3 20 49  |maxpage%..H. . I|
000018a0  25 3d 30 b8 70 61 67 65  5f 6e 61 6d 65 5f 66 69  |%=0.page_name_fi|
000018b0  65 6c 64 25 0d 08 52 20  20 20 20 e7 20 70 61 67  |eld%..R    . pag|
000018c0  65 5f 70 74 72 73 25 28  4a 25 2c 49 25 29 3c 3e  |e_ptrs%(J%,I%)<>|
000018d0  2d 31 20 8c 0d 08 5c 28  20 20 20 20 20 cf 23 6f  |-1 ...\(     .#o|
000018e0  75 74 5f 66 69 6c 65 25  20 3d 20 70 61 67 65 5f  |ut_file% = page_|
000018f0  70 74 72 73 25 28 4a 25  2c 49 25 29 0d 08 66 20  |ptrs%(J%,I%)..f |
00001900  20 20 20 20 20 e7 20 49  25 3d 70 61 67 65 5f 6e  |     . I%=page_n|
00001910  61 6d 65 5f 66 69 65 6c  64 25 20 8c 0d 08 70 40  |ame_field% ...p@|
00001920  20 20 20 20 20 20 d5 23  6f 75 74 5f 66 69 6c 65  |      .#out_file|
00001930  25 2c 70 61 67 65 5f 6e  61 6d 65 73 24 28 4a 25  |%,page_names$(J%|
00001940  29 2b c4 38 30 2d a9 70  61 67 65 5f 6e 61 6d 65  |)+.80-.page_name|
00001950  73 24 28 4a 25 29 2c 22  3b 22 29 3b 0d 08 7a 0a  |s$(J%),";");..z.|
00001960  20 20 20 20 20 cc 0d 08  84 3a 20 20 20 20 20 20  |     ....:      |
00001970  d5 23 6f 75 74 5f 66 69  6c 65 25 2c c2 22 30 30  |.#out_file%,."00|
00001980  30 30 30 30 30 30 30 22  2b c3 70 61 67 65 5f 64  |0000000"+.page_d|
00001990  65 73 63 25 28 4a 25 2c  49 25 29 2c 31 30 29 3b  |esc%(J%,I%),10);|
000019a0  0d 08 8e 0a 20 20 20 20  20 cd 0d 08 98 08 20 20  |....     .....  |
000019b0  20 cd 0d 08 a2 06 20 ed  0d 08 ac 05 ed 0d 08 b6  | ..... .........|
000019c0  1e e7 20 70 61 67 65 5f  6e 75 6d 62 65 72 5f 70  |.. page_number_p|
000019d0  74 72 25 20 3c 3e 20 2d  31 20 8c 0d 08 c0 30 20  |tr% <> -1 ....0 |
000019e0  e7 20 70 61 67 65 5f 6e  75 6d 62 65 72 5f 63 6f  |. page_number_co|
000019f0  6e 66 69 67 25 20 3c 3e  20 70 61 67 65 5f 6e 75  |nfig% <> page_nu|
00001a00  6d 62 65 72 5f 73 65 74  25 20 8c 0d 08 ca 24 20  |mber_set% ....$ |
00001a10  20 cf 23 6f 75 74 5f 66  69 6c 65 25 20 3d 20 70  | .#out_file% = p|
00001a20  61 67 65 5f 6e 75 6d 62  65 72 5f 70 74 72 25 0d  |age_number_ptr%.|
00001a30  08 d4 2c 20 20 d5 23 6f  75 74 5f 66 69 6c 65 25  |..,  .#out_file%|
00001a40  2c c2 22 30 22 2b c3 70  61 67 65 5f 6e 75 6d 62  |,."0"+.page_numb|
00001a50  65 72 5f 73 65 74 25 2c  32 29 3b 0d 08 de 2c 20  |er_set%,2);..., |
00001a60  20 70 61 67 65 5f 6e 75  6d 62 65 72 5f 63 6f 6e  | page_number_con|
00001a70  66 69 67 25 20 3d 20 70  61 67 65 5f 6e 75 6d 62  |fig% = page_numb|
00001a80  65 72 5f 73 65 74 25 0d  08 e8 06 20 cd 0d 08 f2  |er_set%.... ....|
00001a90  05 cd 0d 08 fc 17 e7 20  66 69 6c 65 5f 70 74 72  |....... file_ptr|
00001aa0  25 20 3c 3e 20 2d 31 20  8c 0d 09 06 24 20 e7 20  |% <> -1 ....$ . |
00001ab0  66 69 6c 65 5f 63 6f 6e  66 69 67 24 20 3c 3e 20  |file_config$ <> |
00001ac0  24 66 69 6c 65 5f 6e 61  6d 65 25 20 8c 0d 09 10  |$file_name% ....|
00001ad0  1d 20 20 cf 23 6f 75 74  5f 66 69 6c 65 25 20 3d  |.  .#out_file% =|
00001ae0  20 66 69 6c 65 5f 70 74  72 25 0d 09 1a 34 20 20  | file_ptr%...4  |
00001af0  d5 23 6f 75 74 5f 66 69  6c 65 25 2c 24 66 69 6c  |.#out_file%,$fil|
00001b00  65 5f 6e 61 6d 65 25 2b  c4 38 30 2d a9 24 66 69  |e_name%+.80-.$fi|
00001b10  6c 65 5f 6e 61 6d 65 25  2c 22 3b 22 29 3b 0d 09  |le_name%,";");..|
00001b20  24 20 20 20 66 69 6c 65  5f 63 6f 6e 66 69 67 24  |$   file_config$|
00001b30  20 3d 20 24 66 69 6c 65  5f 6e 61 6d 65 25 0d 09  | = $file_name%..|
00001b40  2e 06 20 cd 0d 09 38 05  cd 0d 09 42 1a e7 20 70  |.. ...8....B.. p|
00001b50  72 69 6e 74 65 72 5f 70  74 72 25 20 3c 3e 20 2d  |rinter_ptr% <> -|
00001b60  31 20 8c 0d 09 4c 28 20  e7 20 70 72 69 6e 74 65  |1 ...L( . printe|
00001b70  72 5f 63 6f 6e 66 69 67  25 20 3c 3e 20 70 72 69  |r_config% <> pri|
00001b80  6e 74 65 72 5f 6e 65 77  25 20 8c 0d 09 56 20 20  |nter_new% ...V  |
00001b90  20 cf 23 6f 75 74 5f 66  69 6c 65 25 20 3d 20 70  | .#out_file% = p|
00001ba0  72 69 6e 74 65 72 5f 70  74 72 25 0d 09 60 28 20  |rinter_ptr%..`( |
00001bb0  20 d5 23 6f 75 74 5f 66  69 6c 65 25 2c c2 22 30  | .#out_file%,."0|
00001bc0  22 2b c3 70 72 69 6e 74  65 72 5f 6e 65 77 25 2c  |"+.printer_new%,|
00001bd0  32 29 3b 0d 09 6a 24 20  20 70 72 69 6e 74 65 72  |2);..j$  printer|
00001be0  5f 63 6f 6e 66 69 67 25  20 3d 20 70 72 69 6e 74  |_config% = print|
00001bf0  65 72 5f 6e 65 77 25 0d  09 74 06 20 cd 0d 09 7e  |er_new%..t. ...~|
00001c00  05 cd 0d 09 88 3d e7 20  6c 6f 63 61 74 69 6f 6e  |.....=. location|
00001c10  5f 6e 65 77 25 3d 35 20  80 20 a4 6c 6f 77 65 72  |_new%=5 . .lower|
00001c20  63 61 73 65 28 c0 24 66  69 6c 65 5f 6e 61 6d 65  |case(.$file_name|
00001c30  25 2c 35 29 29 3d 22 6e  75 6c 6c 3a 22 20 8c 0d  |%,5))="null:" ..|
00001c40  09 92 2a 20 e7 20 6c 6f  63 61 74 69 6f 6e 5f 63  |..* . location_c|
00001c50  6f 6e 66 69 67 25 20 3c  3e 20 6c 6f 63 61 74 69  |onfig% <> locati|
00001c60  6f 6e 5f 6e 65 77 25 20  8c 0d 09 9c 1d 20 20 e7  |on_new% .....  .|
00001c70  20 6c 6f 63 61 74 69 6f  6e 5f 70 74 72 25 20 3c  | location_ptr% <|
00001c80  3e 20 2d 31 20 8c 0d 09  a6 22 20 20 20 cf 23 6f  |> -1 ...."   .#o|
00001c90  75 74 5f 66 69 6c 65 25  20 3d 20 6c 6f 63 61 74  |ut_file% = locat|
00001ca0  69 6f 6e 5f 70 74 72 25  0d 09 b0 17 20 20 20 d5  |ion_ptr%....   .|
00001cb0  23 6f 75 74 5f 66 69 6c  65 25 2c 22 30 22 3b 0d  |#out_file%,"0";.|
00001cc0  09 ba 07 20 20 cd 0d 09  c4 24 20 20 6c 6f 63 61  |...  ....$  loca|
00001cd0  74 69 6f 6e 5f 63 6f 6e  66 69 67 25 3d 6c 6f 63  |tion_config%=loc|
00001ce0  61 74 69 6f 6e 5f 6e 65  77 25 0d 09 ce 06 20 cd  |ation_new%.... .|
00001cf0  0d 09 d8 23 20 c8 99 22  4f 53 5f 43 4c 49 22 2c  |...# .."OS_CLI",|
00001d00  22 43 6f 6e 66 69 67 75  72 65 20 50 72 69 6e 74  |"Configure Print|
00001d10  20 30 22 0d 09 e2 05 cc  0d 09 ec 2a 20 e7 20 6c  | 0"........* . l|
00001d20  6f 63 61 74 69 6f 6e 5f  63 6f 6e 66 69 67 25 20  |ocation_config% |
00001d30  3c 3e 20 6c 6f 63 61 74  69 6f 6e 5f 6e 65 77 25  |<> location_new%|
00001d40  20 8c 0d 09 f6 1d 20 20  e7 20 6c 6f 63 61 74 69  | .....  . locati|
00001d50  6f 6e 5f 70 74 72 25 20  3c 3e 20 2d 31 20 8c 0d  |on_ptr% <> -1 ..|
00001d60  0a 00 22 20 20 20 cf 23  6f 75 74 5f 66 69 6c 65  |.."   .#out_file|
00001d70  25 20 3d 20 6c 6f 63 61  74 69 6f 6e 5f 70 74 72  |% = location_ptr|
00001d80  25 0d 0a 0a 22 20 20 20  d5 23 6f 75 74 5f 66 69  |%..."   .#out_fi|
00001d90  6c 65 25 2c c3 6c 6f 63  61 74 69 6f 6e 5f 6e 65  |le%,.location_ne|
00001da0  77 25 3b 0d 0a 14 07 20  20 cd 0d 0a 1e 24 20 20  |w%;....  ....$  |
00001db0  6c 6f 63 61 74 69 6f 6e  5f 63 6f 6e 66 69 67 25  |location_config%|
00001dc0  3d 6c 6f 63 61 74 69 6f  6e 5f 6e 65 77 25 0d 0a  |=location_new%..|
00001dd0  28 06 20 cd 0d 0a 32 32  20 c8 99 22 58 4f 53 5f  |(. ...22 .."XOS_|
00001de0  43 4c 49 22 2c 22 43 6f  6e 66 69 67 75 72 65 20  |CLI","Configure |
00001df0  50 72 69 6e 74 20 22 2b  c3 6c 6f 63 61 74 69 6f  |Print "+.locatio|
00001e00  6e 5f 6e 65 77 25 0d 0a  3c 05 cd 0d 0a 46 21 e7  |n_new%..<....F!.|
00001e10  20 62 61 75 64 5f 63 6f  6e 66 69 67 25 20 3c 3e  | baud_config% <>|
00001e20  20 62 61 75 64 5f 6e 65  77 25 20 8c 0d 0a 50 18  | baud_new% ...P.|
00001e30  20 e7 20 62 61 75 64 5f  70 74 72 25 20 3c 3e 20  | . baud_ptr% <> |
00001e40  2d 31 20 8c 0d 0a 5a 1b  20 20 cf 23 6f 75 74 5f  |-1 ...Z.  .#out_|
00001e50  66 69 6c 65 25 3d 62 61  75 64 5f 70 74 72 25 0d  |file%=baud_ptr%.|
00001e60  0a 64 1d 20 20 d5 23 6f  75 74 5f 66 69 6c 65 25  |.d.  .#out_file%|
00001e70  2c c3 62 61 75 64 5f 6e  65 77 25 3b 0d 0a 6e 06  |,.baud_new%;..n.|
00001e80  20 cd 0d 0a 78 1d 20 62  61 75 64 5f 63 6f 6e 66  | ...x. baud_conf|
00001e90  69 67 25 20 3d 20 62 61  75 64 5f 6e 65 77 25 0d  |ig% = baud_new%.|
00001ea0  0a 82 05 cd 0d 0a 8c 52  e7 20 6c 6f 63 61 74 69  |.......R. locati|
00001eb0  6f 6e 5f 6e 65 77 25 3d  32 20 80 20 62 61 75 64  |on_new%=2 . baud|
00001ec0  5f 6e 65 77 25 3c 3d 37  20 8c 20 c8 99 22 4f 53  |_new%<=7 . .."OS|
00001ed0  5f 43 4c 49 22 2c 22 43  6f 6e 66 69 67 75 72 65  |_CLI","Configure|
00001ee0  20 42 61 75 64 20 22 2b  c3 28 62 61 75 64 5f 6e  | Baud "+.(baud_n|
00001ef0  65 77 25 2b 31 29 0d 0a  96 21 e7 20 64 61 74 61  |ew%+1)...!. data|
00001f00  5f 63 6f 6e 66 69 67 25  20 3c 3e 20 64 61 74 61  |_config% <> data|
00001f10  5f 6e 65 77 25 20 8c 0d  0a a0 18 20 e7 20 64 61  |_new% ..... . da|
00001f20  74 61 5f 70 74 72 25 20  3c 3e 20 2d 31 20 8c 0d  |ta_ptr% <> -1 ..|
00001f30  0a aa 1b 20 20 cf 23 6f  75 74 5f 66 69 6c 65 25  |...  .#out_file%|
00001f40  3d 64 61 74 61 5f 70 74  72 25 0d 0a b4 28 20 20  |=data_ptr%...(  |
00001f50  41 24 3d c3 7e 28 64 61  74 61 5f 6e 65 77 25 29  |A$=.~(data_new%)|
00001f60  3a e7 20 a9 41 24 3d 31  20 41 24 3d 22 30 22 2b  |:. .A$=1 A$="0"+|
00001f70  41 24 0d 0a be 19 20 20  d5 23 6f 75 74 5f 66 69  |A$....  .#out_fi|
00001f80  6c 65 25 2c 22 26 22 2b  41 24 3b 0d 0a c8 06 20  |le%,"&"+A$;.... |
00001f90  cd 0d 0a d2 1d 20 64 61  74 61 5f 63 6f 6e 66 69  |..... data_confi|
00001fa0  67 25 20 3d 20 64 61 74  61 5f 6e 65 77 25 0d 0a  |g% = data_new%..|
00001fb0  dc 05 cd 0d 0a e6 1f e7  20 58 4f 4e 5f 63 6f 6e  |........ XON_con|
00001fc0  66 69 67 25 20 3c 3e 20  58 4f 4e 5f 6e 65 77 25  |fig% <> XON_new%|
00001fd0  20 8c 0d 0a f0 17 20 e7  20 58 4f 4e 5f 70 74 72  | ..... . XON_ptr|
00001fe0  25 20 3c 3e 20 2d 31 20  8c 0d 0a fa 1a 20 20 cf  |% <> -1 .....  .|
00001ff0  23 6f 75 74 5f 66 69 6c  65 25 3d 58 4f 4e 5f 70  |#out_file%=XON_p|
00002000  74 72 25 0d 0b 04 1c 20  20 d5 23 6f 75 74 5f 66  |tr%....  .#out_f|
00002010  69 6c 65 25 2c c3 58 4f  4e 5f 6e 65 77 25 3b 0d  |ile%,.XON_new%;.|
00002020  0b 0e 06 20 cd 0d 0b 18  1b 20 58 4f 4e 5f 63 6f  |... ..... XON_co|
00002030  6e 66 69 67 25 20 3d 20  58 4f 4e 5f 6e 65 77 25  |nfig% = XON_new%|
00002040  0d 0b 22 05 cd 0d 0b 2c  26 e7 20 73 65 72 76 65  |.."....,&. serve|
00002050  72 5f 63 6f 6e 66 69 67  24 20 3c 3e 20 24 73 65  |r_config$ <> $se|
00002060  72 76 65 72 5f 6e 65 77  25 20 8c 0d 0b 36 1a 20  |rver_new% ...6. |
00002070  e7 20 73 65 72 76 65 72  5f 70 74 72 25 20 3c 3e  |. server_ptr% <>|
00002080  20 2d 31 20 8c 0d 0b 40  1d 20 20 cf 23 6f 75 74  | -1 ...@.  .#out|
00002090  5f 66 69 6c 65 25 3d 73  65 72 76 65 72 5f 70 74  |_file%=server_pt|
000020a0  72 25 0d 0b 4a 35 20 20  d5 23 6f 75 74 5f 66 69  |r%..J5  .#out_fi|
000020b0  6c 65 25 2c 24 73 65 72  76 65 72 5f 6e 65 77 25  |le%,$server_new%|
000020c0  2b c4 38 2d a9 24 73 65  72 76 65 72 5f 6e 65 77  |+.8-.$server_new|
000020d0  25 2c 22 3b 22 29 3b 0d  0b 54 06 20 cd 0d 0b 5e  |%,";");..T. ...^|
000020e0  22 20 73 65 72 76 65 72  5f 63 6f 6e 66 69 67 24  |" server_config$|
000020f0  20 3d 20 24 73 65 72 76  65 72 5f 6e 65 77 25 0d  | = $server_new%.|
00002100  0b 68 05 cd 0d 0b 72 17  e7 20 6c 6f 63 61 74 69  |.h....r.. locati|
00002110  6f 6e 5f 6e 65 77 25 3d  34 20 8c 0d 0b 7c 2d 20  |on_new%=4 ...|- |
00002120  c8 99 22 58 4f 53 5f 43  4c 49 22 2c 22 43 6f 6e  |.."XOS_CLI","Con|
00002130  66 69 67 75 72 65 20 50  53 20 22 2b 24 73 65 72  |figure PS "+$ser|
00002140  76 65 72 5f 6e 65 77 25  0d 0b 86 0c 20 f2 73 65  |ver_new%.... .se|
00002150  74 5f 70 73 0d 0b 90 05  cd 0d 0b 9a 18 f2 50 72  |t_ps..........Pr|
00002160  69 6e 74 65 72 5f 41 6d  65 6e 64 43 6f 6e 66 69  |inter_AmendConfi|
00002170  67 0d 0b a4 1b d9 23 6f  75 74 5f 66 69 6c 65 25  |g.....#out_file%|
00002180  3a 6f 75 74 5f 66 69 6c  65 25 3d 30 0d 0b ae 05  |:out_file%=0....|
00002190  e1 0d 0b b8 05 3a 0d 0b  c2 0d dd 20 f2 73 65 74  |.....:..... .set|
000021a0  5f 70 73 0d 0b cc 07 ea  20 85 0d 0b d6 0b ee 20  |_ps..... ...... |
000021b0  85 20 ea 20 e1 0d 0b e0  19 ff 28 22 50 53 20 22  |. . ......("PS "|
000021c0  2b 24 73 65 72 76 65 72  5f 6e 65 77 25 29 0d 0b  |+$server_new%)..|
000021d0  ea 1c 73 65 72 76 65 72  5f 73 65 74 24 3d 24 73  |..server_set$=$s|
000021e0  65 72 76 65 72 5f 6e 65  77 25 0d 0b f4 05 e1 0d  |erver_new%......|
000021f0  0b fe 05 3a 0d 0c 08 0f  dd f2 74 65 72 6d 69 6e  |...:......termin|
00002200  61 74 65 0d 0c 12 14 2a  75 6e 73 65 74 20 24 50  |ate....*unset $P|
00002210  72 69 6e 74 69 6e 67 0d  0c 1c 1c ee 20 85 20 c8  |rinting..... . .|
00002220  99 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  |."Wimp_CloseDown|
00002230  22 3a e0 0d 0c 26 17 f2  50 72 69 6e 74 65 72 5f  |":...&..Printer_|
00002240  43 6c 6f 73 65 46 69 6c  65 73 0d 0c 30 16 f2 50  |CloseFiles..0..P|
00002250  72 69 6e 74 65 72 5f 74  65 72 6d 69 6e 61 74 65  |rinter_terminate|
00002260  0d 0c 3a 34 e7 20 69 6e  5f 66 69 6c 65 25 3c 3e  |..:4. in_file%<>|
00002270  30 20 c8 99 22 58 4f 53  5f 46 69 6e 64 22 2c 30  |0 .."XOS_Find",0|
00002280  2c 69 6e 5f 66 69 6c 65  25 3a 69 6e 5f 66 69 6c  |,in_file%:in_fil|
00002290  65 25 3d 30 0d 0c 44 46  e7 20 6f 75 74 5f 66 69  |e%=0..DF. out_fi|
000022a0  6c 65 25 3c 3e 30 20 f2  45 73 63 4f 6e 3a c8 99  |le%<>0 .EscOn:..|
000022b0  22 58 4f 53 5f 46 69 6e  64 22 2c 30 2c 6f 75 74  |"XOS_Find",0,out|
000022c0  5f 66 69 6c 65 25 3a 6f  75 74 5f 66 69 6c 65 25  |_file%:out_file%|
000022d0  3d 30 3a f2 45 73 63 4f  66 66 0d 0c 4e 16 c8 99  |=0:.EscOff..N...|
000022e0  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
000022f0  0d 0c 58 05 e0 0d 0c 62  05 3a 0d 0c 6c 0f dd 20  |..X....b.:..l.. |
00002300  f2 64 65 66 61 75 6c 74  73 0d 0c 76 14 ea 20 72  |.defaults..v.. r|
00002310  61 6d 76 61 6c 25 2c 20  74 65 6d 70 25 0d 0c 80  |amval%, temp%...|
00002320  1a 64 61 74 61 5f 6e 65  77 25 3d 64 61 74 61 5f  |.data_new%=data_|
00002330  63 6f 6e 66 69 67 25 0d  0c 8a 29 f2 73 65 74 5f  |config%...).set_|
00002340  74 69 63 6b 28 62 69 74  73 6d 25 2c 33 2d 28 64  |tick(bitsm%,3-(d|
00002350  61 74 61 5f 6e 65 77 25  20 80 20 33 29 2c 31 29  |ata_new% . 3),1)|
00002360  0d 0c 94 1a e7 20 64 61  74 61 5f 6e 65 77 25 20  |..... data_new% |
00002370  80 20 28 31 3c 3c 33 29  20 8c 0d 0c 9e 33 20 f2  |. (1<<3) ....3 .|
00002380  73 65 74 5f 74 69 63 6b  28 70 61 72 69 74 79 6d  |set_tick(paritym|
00002390  25 2c 28 28 64 61 74 61  5f 6e 65 77 25 20 3e 3e  |%,((data_new% >>|
000023a0  20 34 29 20 80 20 33 29  2b 31 2c 31 29 0d 0c a8  | 4) . 3)+1,1)...|
000023b0  05 cc 0d 0c b2 1c 20 f2  73 65 74 5f 74 69 63 6b  |...... .set_tick|
000023c0  28 70 61 72 69 74 79 6d  25 2c 30 2c 31 29 0d 0c  |(paritym%,0,1)..|
000023d0  bc 05 cd 0d 0c c6 2a f2  73 65 74 5f 74 69 63 6b  |......*.set_tick|
000023e0  28 73 74 6f 70 6d 25 2c  28 64 61 74 61 5f 6e 65  |(stopm%,(data_ne|
000023f0  77 25 3e 3e 32 29 20 80  20 31 2c 31 29 0d 0c d0  |w%>>2) . 1,1)...|
00002400  24 f2 73 65 74 5f 74 69  63 6b 28 73 65 72 69 61  |$.set_tick(seria|
00002410  6c 6d 25 2c 20 32 2c 20  58 4f 4e 5f 6e 65 77 25  |lm%, 2, XON_new%|
00002420  29 0d 0c da 23 c8 99 20  22 4f 53 5f 42 79 74 65  |)...#.. "OS_Byte|
00002430  22 2c 20 31 36 31 2c 20  31 35 20 b8 20 2c 2c 74  |", 161, 15 . ,,t|
00002440  65 6d 70 25 0d 0c e4 3e  e7 20 62 61 75 64 5f 70  |emp%...>. baud_p|
00002450  74 72 25 20 3d 20 2d 31  20 8c 20 62 61 75 64 5f  |tr% = -1 . baud_|
00002460  63 6f 6e 66 69 67 25 20  3d 20 28 74 65 6d 70 25  |config% = (temp%|
00002470  20 80 20 25 30 30 30 31  31 31 30 30 29 20 3e 3e  | . %00011100) >>|
00002480  20 32 0d 0c ee 1c 62 61  75 64 5f 6e 65 77 25 20  | 2....baud_new% |
00002490  3d 20 62 61 75 64 5f 63  6f 6e 66 69 67 25 0d 0c  |= baud_config%..|
000024a0  f8 44 e7 20 6c 6f 63 61  74 69 6f 6e 5f 70 74 72  |.D. location_ptr|
000024b0  25 3d 2d 31 20 8c 20 6c  6f 63 61 74 69 6f 6e 5f  |%=-1 . location_|
000024c0  63 6f 6e 66 69 67 25 20  3d 20 28 74 65 6d 70 25  |config% = (temp%|
000024d0  20 80 20 25 31 31 31 30  30 30 30 30 29 20 3e 3e  | . %11100000) >>|
000024e0  20 35 0d 0d 02 1c e7 20  6c 6f 63 61 74 69 6f 6e  | 5..... location|
000024f0  5f 63 6f 6e 66 69 67 25  20 3d 20 32 20 8c 0d 0d  |_config% = 2 ...|
00002500  0c 1e 20 c8 99 22 4f 53  5f 42 79 74 65 22 2c 38  |.. .."OS_Byte",8|
00002510  2c 62 61 75 64 5f 6e 65  77 25 2b 31 0d 0d 16 1e  |,baud_new%+1....|
00002520  20 c8 99 22 4f 53 5f 42  79 74 65 22 2c 37 2c 62  | .."OS_Byte",7,b|
00002530  61 75 64 5f 6e 65 77 25  2b 31 0d 0d 20 20 20 c8  |aud_new%+1..   .|
00002540  99 22 4f 53 5f 53 65 72  69 61 6c 4f 70 22 2c 31  |."OS_SerialOp",1|
00002550  2c 64 61 74 61 5f 6e 65  77 25 0d 0d 2a 22 20 c8  |,data_new%..*" .|
00002560  99 22 4f 53 5f 53 65 72  69 61 6c 4f 70 22 2c 30  |."OS_SerialOp",0|
00002570  2c 58 4f 4e 5f 6e 65 77  25 2c ac 31 0d 0d 34 14  |,XON_new%,.1..4.|
00002580  20 f2 50 72 69 6e 74 65  72 5f 49 67 6e 6f 72 65  | .Printer_Ignore|
00002590  0d 0d 3e 1f 20 f2 50 72  69 6e 74 65 72 5f 58 6f  |..>. .Printer_Xo|
000025a0  6e 58 6f 66 66 28 58 4f  4e 5f 6e 65 77 25 29 0d  |nXoff(XON_new%).|
000025b0  0d 48 05 cd 0d 0d 52 45  e7 20 6c 6f 63 61 74 69  |.H....RE. locati|
000025c0  6f 6e 5f 63 6f 6e 66 69  67 25 20 3d 20 30 20 8c  |on_config% = 0 .|
000025d0  20 24 66 69 6c 65 5f 6e  61 6d 65 25 20 3d 20 22  | $file_name% = "|
000025e0  6e 75 6c 6c 3a 22 3a 6c  6f 63 61 74 69 6f 6e 5f  |null:":location_|
000025f0  63 6f 6e 66 69 67 25 3d  35 0d 0d 5c 23 f2 73 65  |config%=5..\#.se|
00002600  74 5f 74 69 63 6b 28 62  61 75 64 6d 25 2c 20 62  |t_tick(baudm%, b|
00002610  61 75 64 5f 6e 65 77 25  2c 20 31 29 0d 0d 66 19  |aud_new%, 1)..f.|
00002620  c8 8e 20 6c 6f 63 61 74  69 6f 6e 5f 63 6f 6e 66  |.. location_conf|
00002630  69 67 25 20 ca 0d 0d 70  27 20 20 20 c9 20 31 3a  |ig% ...p'   . 1:|
00002640  20 f2 73 65 74 5f 74 69  63 6b 28 70 72 69 6e 74  | .set_tick(print|
00002650  6d 65 6e 75 25 2c 20 31  2c 20 31 29 0d 0d 7a 27  |menu%, 1, 1)..z'|
00002660  20 20 20 c9 20 32 3a 20  f2 73 65 74 5f 74 69 63  |   . 2: .set_tic|
00002670  6b 28 70 72 69 6e 74 6d  65 6e 75 25 2c 20 32 2c  |k(printmenu%, 2,|
00002680  20 31 29 0d 0d 84 27 20  20 20 c9 20 34 3a 20 f2  | 1)...'   . 4: .|
00002690  73 65 74 5f 74 69 63 6b  28 70 72 69 6e 74 6d 65  |set_tick(printme|
000026a0  6e 75 25 2c 20 33 2c 20  31 29 0d 0d 8e 27 20 20  |nu%, 3, 1)...'  |
000026b0  20 c9 20 35 3a 20 f2 73  65 74 5f 74 69 63 6b 28  | . 5: .set_tick(|
000026c0  70 72 69 6e 74 6d 65 6e  75 25 2c 20 34 2c 20 31  |printmenu%, 4, 1|
000026d0  29 0d 0d 98 05 cb 0d 0d  a2 24 6c 6f 63 61 74 69  |)........$locati|
000026e0  6f 6e 5f 6e 65 77 25 20  3d 20 6c 6f 63 61 74 69  |on_new% = locati|
000026f0  6f 6e 5f 63 6f 6e 66 69  67 25 0d 0d ac 24 f2 50  |on_config%...$.P|
00002700  72 69 6e 74 65 72 5f 4c  6f 63 61 74 69 6f 6e 28  |rinter_Location(|
00002710  6c 6f 63 61 74 69 6f 6e  5f 6e 65 77 25 29 0d 0d  |location_new%)..|
00002720  b6 1c e7 20 6c 6f 63 61  74 69 6f 6e 5f 6e 65 77  |... location_new|
00002730  25 3d 35 20 f2 73 74 61  6d 70 0d 0d c0 18 e7 20  |%=5 .stamp..... |
00002740  73 65 72 76 65 72 5f 70  74 72 25 20 3d 20 2d 31  |server_ptr% = -1|
00002750  20 8c 0d 0d ca 23 20 c8  99 20 22 4f 53 5f 42 79  | ....# .. "OS_By|
00002760  74 65 22 2c 20 31 36 31  2c 20 33 20 b8 20 2c 2c  |te", 161, 3 . ,,|
00002770  74 65 6d 70 25 0d 0d d4  12 20 e7 20 74 65 6d 70  |temp%.... . temp|
00002780  25 20 3d 20 30 20 8c 0d  0d de 24 20 20 c8 99 20  |% = 0 ....$  .. |
00002790  22 4f 53 5f 42 79 74 65  22 2c 20 31 36 31 2c 20  |"OS_Byte", 161, |
000027a0  34 20 b8 20 2c 2c 74 65  6d 70 25 0d 0d e8 1f 20  |4 . ,,temp%.... |
000027b0  20 73 65 72 76 65 72 5f  63 6f 6e 66 69 67 24 20  | server_config$ |
000027c0  3d 20 bd 28 74 65 6d 70  25 29 0d 0d f2 13 20 20  |= .(temp%)....  |
000027d0  72 61 6d 76 61 6c 25 20  3d 20 26 39 39 0d 0d fc  |ramval% = &99...|
000027e0  07 20 20 f5 0d 0e 06 2b  20 20 20 c8 99 20 22 4f  |.  ....+   .. "O|
000027f0  53 5f 42 79 74 65 22 2c  20 31 36 31 2c 20 72 61  |S_Byte", 161, ra|
00002800  6d 76 61 6c 25 20 b8 20  2c 2c 74 65 6d 70 25 0d  |mval% . ,,temp%.|
00002810  0e 10 3d 20 20 20 e7 20  74 65 6d 70 25 20 3e 33  |..=   . temp% >3|
00002820  32 20 73 65 72 76 65 72  5f 63 6f 6e 66 69 67 24  |2 server_config$|
00002830  20 3d 20 73 65 72 76 65  72 5f 63 6f 6e 66 69 67  | = server_config|
00002840  24 20 2b 20 bd 28 74 65  6d 70 25 29 0d 0e 1a 13  |$ + .(temp%)....|
00002850  20 20 20 72 61 6d 76 61  6c 25 20 2b 3d 20 31 0d  |   ramval% += 1.|
00002860  0e 24 23 20 20 fd 20 74  65 6d 70 25 20 3c 3d 20  |.$#  . temp% <= |
00002870  33 32 20 84 20 72 61 6d  76 61 6c 25 20 3d 20 26  |32 . ramval% = &|
00002880  39 45 0d 0e 2e 06 20 cc  0d 0e 38 23 20 20 73 65  |9E.... ...8#  se|
00002890  72 76 65 72 5f 63 6f 6e  66 69 67 24 20 3d 20 22  |rver_config$ = "|
000028a0  2e 22 2b c3 28 74 65 6d  70 25 29 0d 0e 42 24 20  |."+.(temp%)..B$ |
000028b0  20 c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 20 31  | .. "OS_Byte", 1|
000028c0  36 31 2c 20 34 20 b8 20  2c 2c 74 65 6d 70 25 0d  |61, 4 . ,,temp%.|
000028d0  0e 4c 30 20 20 73 65 72  76 65 72 5f 63 6f 6e 66  |.L0  server_conf|
000028e0  69 67 24 20 3d 20 c3 28  74 65 6d 70 25 29 20 2b  |ig$ = .(temp%) +|
000028f0  20 73 65 72 76 65 72 5f  63 6f 6e 66 69 67 24 0d  | server_config$.|
00002900  0e 56 06 20 cd 0d 0e 60  05 cd 0d 0e 6a 21 24 73  |.V. ...`....j!$s|
00002910  65 72 76 65 72 5f 6e 65  77 25 20 3d 20 73 65 72  |erver_new% = ser|
00002920  76 65 72 5f 63 6f 6e 66  69 67 24 0d 0e 74 05 e1  |ver_config$..t..|
00002930  0d 0e 7e 05 3a 0d 0e 88  16 dd 20 f2 72 65 64 72  |..~.:..... .redr|
00002940  61 77 28 68 61 6e 64 6c  65 25 29 0d 0e 92 05 e1  |aw(handle%).....|
00002950  0d 0e 9c 05 3a 0d 0e a6  18 dd 20 f2 72 65 63 65  |....:..... .rece|
00002960  69 76 65 28 6d 65 73 73  61 67 65 25 29 0d 0e b0  |ive(message%)...|
00002970  32 ea 20 6d 79 5f 72 65  66 25 2c 20 74 79 70 65  |2. my_ref%, type|
00002980  24 2c 20 6f 70 74 69 6f  6e 24 2c 20 49 25 2c 20  |$, option$, I%, |
00002990  70 66 6c 61 67 25 2c 20  73 65 6e 64 65 72 25 0d  |pflag%, sender%.|
000029a0  0e ba 18 6d 79 5f 72 65  66 25 20 3d 20 6d 65 73  |...my_ref% = mes|
000029b0  73 61 67 65 25 21 38 0d  0e c4 14 c8 8e 20 6d 65  |sage%!8...... me|
000029c0  73 73 61 67 65 25 21 31  36 20 ca 0d 0e ce 1b 20  |ssage%!16 ..... |
000029d0  c9 20 30 2c 4d 65 73 73  61 67 65 5f 50 72 69 6e  |. 0,Message_Prin|
000029e0  74 42 75 73 79 25 0d 0e  d8 11 20 20 f2 65 6e 64  |tBusy%....  .end|
000029f0  63 6f 6e 66 69 72 6d 0d  0e e2 10 20 20 f2 74 65  |confirm....  .te|
00002a00  72 6d 69 6e 61 74 65 0d  0e ec 08 20 c9 20 38 0d  |rminate.... . 8.|
00002a10  0e f6 13 20 20 e7 20 70  72 69 6e 74 5f 6f 6e 25  |...  . print_on%|
00002a20  20 8c 0d 0f 00 1b 20 20  20 73 65 6e 64 65 72 25  | .....   sender%|
00002a30  20 3d 20 6d 65 73 73 61  67 65 25 21 34 0d 0f 0a  | = message%!4...|
00002a40  29 20 20 20 e3 20 49 25  3d 30 b8 32 35 32 88 34  |)   . I%=0.252.4|
00002a50  3a 6d 73 67 25 21 49 25  3d 6d 65 73 73 61 67 65  |:msg%!I%=message|
00002a60  25 21 49 25 3a ed 0d 0f  14 18 20 20 20 6d 73 67  |%!I%:.....   msg|
00002a70  25 21 31 32 20 3d 20 6d  79 5f 72 65 66 25 0d 0f  |%!12 = my_ref%..|
00002a80  1e 2f 20 20 20 c8 99 20  22 57 69 6d 70 5f 53 65  |./   .. "Wimp_Se|
00002a90  6e 64 4d 65 73 73 61 67  65 22 2c 20 31 39 2c 20  |ndMessage", 19, |
00002aa0  6d 73 67 25 2c 20 73 65  6e 64 65 72 25 0d 0f 28  |msg%, sender%..(|
00002ab0  4e 20 20 20 e7 20 a4 63  6f 6e 66 69 72 6d 28 22  |N   . .confirm("|
00002ac0  41 20 66 69 6c 65 20 69  73 20 62 65 69 6e 67 20  |A file is being |
00002ad0  70 72 69 6e 74 65 64 3b  20 61 72 65 20 79 6f 75  |printed; are you|
00002ae0  20 73 75 72 65 20 79 6f  75 20 77 61 6e 74 20 74  | sure you want t|
00002af0  6f 20 51 75 69 74 3f 22  29 20 8c 0d 0f 32 10 20  |o Quit?") ...2. |
00002b00  20 20 20 2a 46 58 20 32  31 2c 33 0d 0f 3c 16 20  |   *FX 21,3..<. |
00002b10  20 20 20 f2 73 74 6f 70  5f 70 72 69 6e 74 69 6e  |   .stop_printin|
00002b20  67 0d 0f 46 28 20 20 20  20 c8 99 20 22 57 69 6d  |g..F(    .. "Wim|
00002b30  70 5f 47 65 74 43 61 72  65 74 50 6f 73 69 74 69  |p_GetCaretPositi|
00002b40  6f 6e 22 2c 2c 6d 73 67  25 0d 0f 50 16 20 20 20  |on",,msg%..P.   |
00002b50  20 6d 73 67 25 21 32 34  20 3d 20 26 31 46 43 0d  | msg%!24 = &1FC.|
00002b60  0f 5a 2c 20 20 20 20 c8  99 20 22 57 69 6d 70 5f  |.Z,    .. "Wimp_|
00002b70  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 38 2c 6d  |SendMessage",8,m|
00002b80  73 67 25 2c 73 65 6e 64  65 72 25 0d 0f 64 08 20  |sg%,sender%..d. |
00002b90  20 20 cd 0d 0f 6e 07 20  20 cd 0d 0f 78 1b 20 c9  |  ...n.  ...x. .|
00002ba0  20 31 2c 4d 65 73 73 61  67 65 5f 50 72 69 6e 74  | 1,Message_Print|
00002bb0  53 61 76 65 25 0d 0f 82  34 20 20 f4 20 73 61 76  |Save%...4  . sav|
00002bc0  65 20 6f 6e 74 6f 20 6f  75 72 20 69 63 6f 6e 3b  |e onto our icon;|
00002bd0  20 72 65 70 6c 79 20 77  69 74 68 20 50 72 69 6e  | reply with Prin|
00002be0  74 20 6d 65 73 73 61 67  65 0d 0f 8c 28 20 20 e3  |t message...(  .|
00002bf0  20 49 25 3d 30 b8 32 35  32 88 34 3a 6d 73 67 25  | I%=0.252.4:msg%|
00002c00  21 49 25 3d 6d 65 73 73  61 67 65 25 21 49 25 3a  |!I%=message%!I%:|
00002c10  ed 0d 0f 96 11 20 20 f2  65 6e 64 63 6f 6e 66 69  |.....  .endconfi|
00002c20  72 6d 0d 0f a0 3f 20 20  e7 20 70 72 69 6e 74 5f  |rm...?  . print_|
00002c30  72 65 66 25 20 8c 20 f2  6d 6f 61 6e 28 22 43 61  |ref% . .moan("Ca|
00002c40  6e 20 6f 6e 6c 79 20 70  72 69 6e 74 20 6f 6e 65  |n only print one|
00002c50  20 66 69 6c 65 20 61 74  20 61 20 74 69 6d 65 22  | file at a time"|
00002c60  29 0d 0f aa 23 20 20 73  61 76 65 5f 6e 61 6d 65  |)...#  save_name|
00002c70  24 3d a4 72 74 6f 7a 28  6d 65 73 73 61 67 65 25  |$=.rtoz(message%|
00002c80  2b 34 34 29 0d 0f b4 13  20 20 e7 20 70 72 69 6e  |+44)....  . prin|
00002c90  74 5f 6f 6e 25 20 8c 0d  0f be 18 20 20 20 e7 20  |t_on% .....   . |
00002ca0  6d 65 73 73 61 67 65 25  21 31 36 3d 31 20 8c 0d  |message%!16=1 ..|
00002cb0  0f c8 21 20 20 20 20 f2  6d 6f 61 6e 28 22 41 6c  |..!    .moan("Al|
00002cc0  72 65 61 64 79 20 70 72  69 6e 74 69 6e 67 22 29  |ready printing")|
00002cd0  0d 0f d2 08 20 20 20 cc  0d 0f dc 13 20 20 20 20  |....   .....    |
00002ce0  6d 73 67 25 21 30 20 3d  20 32 30 0d 0f e6 19 20  |msg%!0 = 20.... |
00002cf0  20 20 20 6d 73 67 25 21  31 32 20 3d 20 6d 79 5f  |   msg%!12 = my_|
00002d00  72 65 66 25 0d 0f f0 24  20 20 20 20 6d 73 67 25  |ref%...$    msg%|
00002d10  21 31 36 20 3d 20 4d 65  73 73 61 67 65 5f 50 72  |!16 = Message_Pr|
00002d20  69 6e 74 42 75 73 79 25  0d 0f fa 2f 20 20 20 20  |intBusy%.../    |
00002d30  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
00002d40  73 61 67 65 22 2c 20 31  37 2c 20 6d 73 67 25 2c  |sage", 17, msg%,|
00002d50  20 6d 73 67 25 21 34 0d  10 04 08 20 20 20 cd 0d  | msg%!4....   ..|
00002d60  10 0e 07 20 20 cc 0d 10  18 18 20 20 20 6d 73 67  |...  .....   msg|
00002d70  25 21 31 32 20 3d 20 6d  79 5f 72 65 66 25 0d 10  |%!12 = my_ref%..|
00002d80  22 23 20 20 20 6d 73 67  25 21 31 36 20 3d 20 4d  |"#   msg%!16 = M|
00002d90  65 73 73 61 67 65 5f 50  72 69 6e 74 46 69 6c 65  |essage_PrintFile|
00002da0  25 0d 10 2c 12 20 20 20  6d 73 67 25 21 30 20 3d  |%..,.   msg%!0 =|
00002db0  20 36 30 0d 10 36 25 20  20 20 24 28 6d 73 67 25  | 60..6%   $(msg%|
00002dc0  2b 34 34 29 20 3d 20 22  3c 50 72 69 6e 74 65 72  |+44) = "<Printer|
00002dd0  24 53 63 72 61 70 3e 22  0d 10 40 12 20 20 20 6d  |$Scrap>"..@.   m|
00002de0  73 67 25 3f 35 39 20 3d  20 30 0d 10 4a 2e 20 20  |sg%?59 = 0..J.  |
00002df0  20 c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  | .. "Wimp_SendMe|
00002e00  73 73 61 67 65 22 2c 20  31 38 2c 20 6d 73 67 25  |ssage", 18, msg%|
00002e10  2c 20 6d 73 67 25 21 34  0d 10 54 1a 20 20 20 6d  |, msg%!4..T.   m|
00002e20  73 67 25 21 34 20 3d 20  6d 65 73 73 61 67 65 25  |sg%!4 = message%|
00002e30  21 34 0d 10 5e 18 20 20  20 70 72 69 6e 74 5f 72  |!4..^.   print_r|
00002e40  65 66 25 3d 6d 73 67 25  21 38 0d 10 68 07 20 20  |ef%=msg%!8..h.  |
00002e50  cd 0d 10 72 08 20 c9 20  33 0d 10 7c 18 20 20 73  |...r. . 3..|.  s|
00002e60  65 6e 64 65 72 25 3d 6d  65 73 73 61 67 65 25 21  |ender%=message%!|
00002e70  34 0d 10 86 11 20 20 f2  65 6e 64 63 6f 6e 66 69  |4....  .endconfi|
00002e80  72 6d 0d 10 90 59 20 20  e7 20 70 72 69 6e 74 5f  |rm...Y  . print_|
00002e90  72 65 66 25 20 e7 20 70  72 69 6e 74 5f 72 65 66  |ref% . print_ref|
00002ea0  25 3c 3e 6d 65 73 73 61  67 65 25 21 31 32 20 8c  |%<>message%!12 .|
00002eb0  20 f2 6d 6f 61 6e 28 22  43 61 6e 20 6f 6e 6c 79  | .moan("Can only|
00002ec0  20 70 72 69 6e 74 20 6f  6e 65 20 66 69 6c 65 20  | print one file |
00002ed0  61 74 20 61 20 74 69 6d  65 22 29 0d 10 9a 12 20  |at a time").... |
00002ee0  20 70 72 69 6e 74 5f 72  65 66 25 3d 30 0d 10 a4  | print_ref%=0...|
00002ef0  14 20 20 e7 20 70 72 69  6e 74 5f 6f 6e 25 20 20  |.  . print_on%  |
00002f00  8c 0d 10 ae 20 20 20 20  f2 6d 6f 61 6e 28 22 41  |....    .moan("A|
00002f10  6c 72 65 61 64 79 20 70  72 69 6e 74 69 6e 67 22  |lready printing"|
00002f20  29 0d 10 b8 07 20 20 cc  0d 10 c2 29 20 20 20 e3  |)....  ....)   .|
00002f30  20 49 25 3d 30 b8 32 35  32 88 34 3a 6d 73 67 25  | I%=0.252.4:msg%|
00002f40  21 49 25 3d 6d 65 73 73  61 67 65 25 21 49 25 3a  |!I%=message%!I%:|
00002f50  ed 0d 10 cc 22 20 20 20  66 69 6c 65 6e 61 6d 24  |...."   filenam$|
00002f60  3d a4 72 74 6f 7a 28 6d  65 73 73 61 67 65 25 2b  |=.rtoz(message%+|
00002f70  34 34 29 0d 10 d6 1c 20  20 20 6d 65 73 73 61 67  |44)....   messag|
00002f80  65 25 21 31 32 20 3d 20  6d 79 5f 72 65 66 25 0d  |e%!12 = my_ref%.|
00002f90  10 e0 33 20 20 20 c8 99  20 22 57 69 6d 70 5f 53  |..3   .. "Wimp_S|
00002fa0  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 39 2c 6d  |endMessage",19,m|
00002fb0  65 73 73 61 67 65 25 2c  6d 65 73 73 61 67 65 25  |essage%,message%|
00002fc0  21 34 0d 10 ea 36 20 20  20 f4 20 6a 75 73 74 20  |!4...6   . just |
00002fd0  61 63 6b 20 74 68 65 20  6d 65 73 73 61 67 65 20  |ack the message |
00002fe0  69 6e 20 63 61 73 65 20  46 4e 63 6f 6e 66 69 72  |in case FNconfir|
00002ff0  6d 20 63 61 6c 6c 65 64  0d 10 f4 19 20 20 20 46  |m called....   F|
00003000  74 79 70 65 25 3d 6d 65  73 73 61 67 65 25 21 34  |type%=message%!4|
00003010  30 0d 10 fe 14 20 20 20  74 79 70 65 5f 73 74 61  |0....   type_sta|
00003020  74 65 25 3d 30 0d 11 08  10 20 20 20 6d 73 67 25  |te%=0....   msg%|
00003030  21 31 32 3d 30 0d 11 12  24 20 20 20 6d 73 67 25  |!12=0...$   msg%|
00003040  21 31 36 3d 4d 65 73 73  61 67 65 5f 50 72 69 6e  |!16=Message_Prin|
00003050  74 54 79 70 65 4f 64 64  25 0d 11 1c 28 20 20 20  |tTypeOdd%...(   |
00003060  c8 99 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |.."Wimp_SendMess|
00003070  61 67 65 22 2c 20 31 38  2c 20 6d 73 67 25 2c 20  |age", 18, msg%, |
00003080  30 0d 11 26 18 20 20 20  70 72 69 6e 74 5f 72 65  |0..&.   print_re|
00003090  66 25 3d 6d 73 67 25 21  38 0d 11 30 08 20 20 20  |f%=msg%!8..0.   |
000030a0  f5 0d 11 3a 32 20 20 20  20 c8 99 20 22 57 69 6d  |...:2    .. "Wim|
000030b0  70 5f 50 6f 6c 6c 22 2c  70 6f 6c 6c 5f 6d 61 73  |p_Poll",poll_mas|
000030c0  6b 25 2c 65 76 65 6e 74  25 20 b8 20 61 63 74 69  |k%,event% . acti|
000030d0  6f 6e 25 0d 11 44 16 20  20 20 20 f2 64 65 73 70  |on%..D.    .desp|
000030e0  61 74 63 68 5f 70 6f 6c  6c 0d 11 4e 14 20 20 20  |atch_poll..N.   |
000030f0  fd 20 74 79 70 65 5f 73  74 61 74 65 25 0d 11 58  |. type_state%..X|
00003100  0f 20 20 20 70 66 6c 61  67 25 3d a3 0d 11 62 14  |.   pflag%=...b.|
00003110  20 20 20 6d 6f 76 65 74  6f 74 65 6d 70 25 3d a3  |   movetotemp%=.|
00003120  0d 11 6c 18 20 20 20 e7  20 74 79 70 65 5f 73 74  |..l.   . type_st|
00003130  61 74 65 25 3d 32 20 8c  0d 11 76 15 20 20 20 20  |ate%=2 ...v.    |
00003140  6d 6f 76 65 74 6f 74 65  6d 70 25 3d b9 0d 11 80  |movetotemp%=....|
00003150  08 20 20 20 cc 0d 11 8a  17 20 20 20 20 e7 20 a4  |.   .....    . .|
00003160  63 68 65 63 6b 5f 74 79  70 65 20 8c 0d 11 94 19  |check_type .....|
00003170  20 20 20 20 20 e7 20 41  6c 69 61 73 24 20 3c 3e  |     . Alias$ <>|
00003180  20 22 22 20 8c 0d 11 9e  31 20 20 20 20 20 20 c8  | "" ....1      .|
00003190  99 20 22 57 69 6d 70 5f  53 74 61 72 74 54 61 73  |. "Wimp_StartTas|
000031a0  6b 22 2c 41 6c 69 61 73  24 2b 22 20 22 2b 66 69  |k",Alias$+" "+fi|
000031b0  6c 65 6e 61 6d 24 0d 11  a8 17 20 20 20 20 20 20  |lenam$....      |
000031c0  6d 6f 76 65 74 6f 74 65  6d 70 25 3d b9 0d 11 b2  |movetotemp%=....|
000031d0  0a 20 20 20 20 20 cc 0d  11 bc 12 20 20 20 20 20  |.     .....     |
000031e0  20 70 66 6c 61 67 25 3d  b9 0d 11 c6 0a 20 20 20  | pflag%=.....   |
000031f0  20 20 cd 0d 11 d0 09 20  20 20 20 cd 0d 11 da 08  |  .....    .....|
00003200  20 20 20 cd 0d 11 e4 16  20 20 20 e7 20 6d 6f 76  |   .....   . mov|
00003210  65 74 6f 74 65 6d 70 25  20 8c 0d 11 ee 22 20 20  |etotemp% ...."  |
00003220  20 20 69 6e 5f 66 69 6c  65 25 3d 8e 22 3c 50 72  |  in_file%=."<Pr|
00003230  69 6e 74 65 72 24 54 65  6d 70 3e 22 0d 11 f8 17  |inter$Temp>"....|
00003240  20 20 20 20 e7 20 69 6e  5f 66 69 6c 65 25 3c 3e  |    . in_file%<>|
00003250  30 20 8c 0d 12 02 3f 20  20 20 20 20 e7 20 66 69  |0 ....?     . fi|
00003260  6c 65 6e 61 6d 24 20 3d  20 22 3c 50 72 69 6e 74  |lenam$ = "<Print|
00003270  65 72 24 53 63 72 61 70  3e 22 20 8c 20 ff 28 22  |er$Scrap>" . .("|
00003280  72 65 6d 6f 76 65 20 22  2b 66 69 6c 65 6e 61 6d  |remove "+filenam|
00003290  24 29 0d 12 0c 24 20 20  20 20 20 66 69 6c 65 6e  |$)...$     filen|
000032a0  61 6d 24 20 3d 20 22 3c  50 72 69 6e 74 65 72 24  |am$ = "<Printer$|
000032b0  54 65 6d 70 3e 22 0d 12  16 1e 20 20 20 20 20 d9  |Temp>"....     .|
000032c0  23 69 6e 5f 66 69 6c 65  25 3a 69 6e 5f 66 69 6c  |#in_file%:in_fil|
000032d0  65 25 3d 30 0d 12 20 11  20 20 20 20 20 70 66 6c  |e%=0.. .     pfl|
000032e0  61 67 25 3d b9 0d 12 2a  09 20 20 20 20 cd 0d 12  |ag%=...*.    ...|
000032f0  34 08 20 20 20 cd 0d 12  3e 11 20 20 20 e7 20 70  |4.   ...>.   . p|
00003300  66 6c 61 67 25 20 8c 0d  12 48 1d 20 20 20 20 e7  |flag% ...H.    .|
00003310  20 6c 6f 63 61 74 69 6f  6e 5f 6e 65 77 25 20 3d  | location_new% =|
00003320  20 34 20 8c 0d 12 52 2f  20 20 20 20 20 74 79 70  | 4 ...R/     typ|
00003330  65 24 20 3d 20 22 6e 65  74 70 72 69 6e 74 23 22  |e$ = "netprint#"|
00003340  2b 70 72 69 6e 74 65 72  5f 74 79 70 65 24 2b 22  |+printer_type$+"|
00003350  3a 24 22 0d 12 5c 09 20  20 20 20 cc 0d 12 66 42  |:$"..\.    ...fB|
00003360  20 20 20 20 20 e7 20 6c  6f 63 61 74 69 6f 6e 5f  |     . location_|
00003370  6e 65 77 25 20 3d 20 35  20 8c 20 ff 28 22 73 65  |new% = 5 . .("se|
00003380  74 20 50 72 69 6e 74 65  72 54 79 70 65 24 35 20  |t PrinterType$5 |
00003390  22 2b 24 66 69 6c 65 5f  6e 61 6d 65 25 29 0d 12  |"+$file_name%)..|
000033a0  70 1a 20 20 20 20 20 74  79 70 65 24 3d 22 70 72  |p.     type$="pr|
000033b0  69 6e 74 65 72 3a 24 22  0d 12 7a 24 20 20 20 20  |inter:$"..z$    |
000033c0  20 c8 99 22 4f 53 5f 42  79 74 65 22 2c 35 2c 6c  | .."OS_Byte",5,l|
000033d0  6f 63 61 74 69 6f 6e 5f  6e 65 77 25 0d 12 84 09  |ocation_new%....|
000033e0  20 20 20 20 cd 0d 12 8e  2b 20 20 20 20 f4 20 66  |    ....+    . f|
000033f0  69 6c 65 6e 61 6d 24 20  69 73 20 61 6c 73 6f 20  |ilenam$ is also |
00003400  75 73 65 64 20 69 6e 20  50 52 4f 43 63 6f 70 79  |used in PROCcopy|
00003410  0d 12 98 1f 20 20 20 20  69 6e 5f 66 69 6c 65 25  |....    in_file%|
00003420  20 20 3d 20 8e 28 66 69  6c 65 6e 61 6d 24 29 0d  |  = .(filenam$).|
00003430  12 a2 18 20 20 20 20 e7  20 69 6e 5f 66 69 6c 65  |...    . in_file|
00003440  25 20 3d 20 30 20 8c 0d  12 ac 38 20 20 20 20 20  |% = 0 ....8     |
00003450  f2 6d 6f 61 6e 28 22 43  61 6e 27 74 20 6f 70 65  |.moan("Can't ope|
00003460  6e 20 27 22 2b 66 69 6c  65 6e 61 6d 24 2b 22 27  |n '"+filenam$+"'|
00003470  20 66 6f 72 20 70 72 69  6e 74 69 6e 67 22 29 0d  | for printing").|
00003480  12 b6 09 20 20 20 20 cd  0d 12 c0 26 20 20 20 20  |...    ....&    |
00003490  6f 75 74 5f 66 69 6c 65  25 20 3d 20 ae 28 74 79  |out_file% = .(ty|
000034a0  70 65 24 2b 22 2e 6f 75  74 70 75 74 22 29 0d 12  |pe$+".output")..|
000034b0  ca 19 20 20 20 20 e7 20  6f 75 74 5f 66 69 6c 65  |..    . out_file|
000034c0  25 20 3d 20 30 20 8c 0d  12 d4 1e 20 20 20 20 20  |% = 0 .....     |
000034d0  d9 23 69 6e 5f 66 69 6c  65 25 3a 69 6e 5f 66 69  |.#in_file%:in_fi|
000034e0  6c 65 25 3d 30 0d 12 de  3c 20 20 20 20 20 f2 6d  |le%=0...<     .m|
000034f0  6f 61 6e 28 22 43 61 6e  27 74 20 6f 70 65 6e 20  |oan("Can't open |
00003500  27 22 2b 74 79 70 65 24  2b 22 2e 6f 75 74 70 75  |'"+type$+".outpu|
00003510  74 27 20 66 6f 72 20 70  72 69 6e 74 69 6e 67 22  |t' for printing"|
00003520  29 0d 12 e8 09 20 20 20  20 cd 0d 12 f2 1b 20 20  |)....    .....  |
00003530  20 20 f2 73 65 74 5f 70  72 69 6e 74 5f 73 74 61  |  .set_print_sta|
00003540  74 65 28 b9 29 0d 12 fc  21 20 20 20 20 f2 63 68  |te(.)...!    .ch|
00003550  61 6e 67 65 5f 69 63 6f  6e 3a f2 75 70 64 61 74  |ange_icon:.updat|
00003560  65 5f 69 63 6f 6e 0d 13  06 13 20 20 20 20 70 62  |e_icon....    pb|
00003570  75 66 25 3d 96 28 2d 34  29 0d 13 10 0f 20 20 20  |uf%=.(-4)....   |
00003580  20 73 65 6e 74 25 3d a3  0d 13 1a 17 20 20 20 20  | sent%=.....    |
00003590  f2 50 72 69 6e 74 65 72  5f 48 65 61 64 65 72 0d  |.Printer_Header.|
000035a0  13 24 08 20 20 20 cd 0d  13 2e 07 20 20 cd 0d 13  |.$.   .....  ...|
000035b0  38 30 20 20 f4 20 73 65  6e 64 20 44 61 74 61 4c  |80  . send DataL|
000035c0  6f 61 64 41 63 6b 20 62  61 63 6b 20 74 6f 20 6f  |oadAck back to o|
000035d0  72 69 67 69 6e 61 6c 20  73 65 6e 64 65 72 0d 13  |riginal sender..|
000035e0  42 12 20 20 6d 73 67 25  21 30 20 20 3d 20 32 30  |B.  msg%!0  = 20|
000035f0  0d 13 4c 17 20 20 6d 73  67 25 21 31 32 20 3d 20  |..L.  msg%!12 = |
00003600  6d 79 5f 72 65 66 25 0d  13 56 11 20 20 6d 73 67  |my_ref%..V.  msg|
00003610  25 21 31 36 20 3d 20 34  0d 13 60 12 20 20 6d 73  |%!16 = 4..`.  ms|
00003620  67 25 21 33 36 20 3d 20  2d 31 0d 13 6a 2d 20 20  |g%!36 = -1..j-  |
00003630  c8 99 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |.."Wimp_SendMess|
00003640  61 67 65 22 2c 20 31 37  2c 20 6d 73 67 25 2c 20  |age", 17, msg%, |
00003650  73 65 6e 64 65 72 25 0d  13 74 1b 20 c9 20 26 35  |sender%..t. . &5|
00003660  30 32 3a 20 f4 20 68 65  6c 70 20 72 65 71 75 65  |02: . help reque|
00003670  73 74 0d 13 7e d9 20 20  e7 20 6d 65 73 73 61 67  |st..~.  . messag|
00003680  65 25 21 33 32 3d 2d 32  20 80 20 6d 65 73 73 61  |e%!32=-2 . messa|
00003690  67 65 25 21 33 36 3d 69  63 70 72 69 6e 74 25 20  |ge%!36=icprint% |
000036a0  f2 68 65 6c 70 72 65 70  6c 79 28 22 54 68 69 73  |.helpreply("This|
000036b0  20 69 73 20 74 68 65 20  22 2b 46 75 6c 6c 50 72  | is the "+FullPr|
000036c0  69 6e 74 65 72 43 6c 61  73 73 24 2b 22 20 70 72  |interClass$+" pr|
000036d0  69 6e 74 65 72 20 69 63  6f 6e 2e 7c 4d 44 72 6f  |inter icon.|MDro|
000036e0  70 20 74 65 78 74 20 66  69 6c 65 73 20 6f 6e 20  |p text files on |
000036f0  74 6f 20 69 74 20 74 6f  20 70 72 69 6e 74 20 74  |to it to print t|
00003700  68 65 6d 2e 7c 4d 43 6c  69 63 6b 20 4d 45 4e 55  |hem.|MClick MENU|
00003710  20 6f 72 20 53 45 4c 45  43 54 20 74 6f 20 73 65  | or SELECT to se|
00003720  74 20 74 68 65 20 70 72  69 6e 74 65 72 20 6f 70  |t the printer op|
00003730  74 69 6f 6e 73 2e 22 2c  6d 79 5f 72 65 66 25 2c  |tions.",my_ref%,|
00003740  6d 65 73 73 61 67 65 25  21 34 29 0d 13 88 19 20  |message%!4).... |
00003750  c9 20 4d 65 73 73 61 67  65 5f 57 69 6c 6c 50 72  |. Message_WillPr|
00003760  69 6e 74 25 0d 13 92 12  20 20 70 72 69 6e 74 5f  |int%....  print_|
00003770  72 65 66 25 3d 30 0d 13  9c 19 20 c9 20 4d 65 73  |ref%=0.... . Mes|
00003780  73 61 67 65 5f 50 72 69  6e 74 49 6e 69 74 25 0d  |sage_PrintInit%.|
00003790  13 a6 23 20 20 e7 20 70  6f 6c 6c 5f 6d 61 73 6b  |..#  . poll_mask|
000037a0  25 3c 3e ac 28 25 31 31  31 20 3c 3c 20 31 37 29  |%<>.(%111 << 17)|
000037b0  20 8c 0d 13 b0 14 20 20  20 e7 20 70 72 69 6e 74  | .....   . print|
000037c0  5f 6f 6e 25 20 8c 0d 13  ba 11 20 20 20 20 6d 73  |_on% .....    ms|
000037d0  67 25 21 30 3d 32 30 0d  13 c4 17 20 20 20 20 6d  |g%!0=20....    m|
000037e0  73 67 25 21 31 32 3d 6d  79 5f 72 65 66 25 0d 13  |sg%!12=my_ref%..|
000037f0  ce 22 20 20 20 20 6d 73  67 25 21 31 36 3d 4d 65  |."    msg%!16=Me|
00003800  73 73 61 67 65 5f 50 72  69 6e 74 42 75 73 79 25  |ssage_PrintBusy%|
00003810  0d 13 d8 33 20 20 20 20  c8 99 20 22 57 69 6d 70  |...3    .. "Wimp|
00003820  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 20 31  |_SendMessage", 1|
00003830  37 2c 20 6d 73 67 25 2c  20 6d 65 73 73 61 67 65  |7, msg%, message|
00003840  25 21 34 0d 13 e2 08 20  20 20 cc 0d 13 ec 12 20  |%!4....   ..... |
00003850  20 20 20 f2 74 65 72 6d  69 6e 61 74 65 0d 13 f6  |   .terminate...|
00003860  08 20 20 20 cd 0d 14 00  07 20 20 cd 0d 14 0a 1e  |.   .....  .....|
00003870  20 c9 20 4d 65 73 73 61  67 65 5f 50 72 69 6e 74  | . Message_Print|
00003880  54 79 70 65 4b 6e 6f 77  6e 25 0d 14 14 18 20 20  |TypeKnown%....  |
00003890  46 74 79 70 65 25 3d 6d  65 73 73 61 67 65 25 21  |Ftype%=message%!|
000038a0  34 30 0d 14 1e 13 20 20  74 79 70 65 5f 73 74 61  |40....  type_sta|
000038b0  74 65 25 3d 32 0d 14 28  12 20 20 70 72 69 6e 74  |te%=2..(.  print|
000038c0  5f 72 65 66 25 3d 30 0d  14 32 18 20 c9 20 4d 65  |_ref%=0..2. . Me|
000038d0  73 73 61 67 65 5f 4d 65  6e 75 57 61 72 6e 25 0d  |ssage_MenuWarn%.|
000038e0  14 3c 21 20 20 e7 20 6d  65 73 73 61 67 65 25 21  |.<!  . message%!|
000038f0  32 30 20 3d 20 70 61 67  65 73 69 7a 65 25 20 8c  |20 = pagesize% .|
00003900  0d 14 46 24 20 20 20 70  61 67 65 5f 6e 75 6d 62  |..F$   page_numb|
00003910  65 72 25 3d 70 61 67 65  5f 6e 75 6d 62 65 72 5f  |er%=page_number_|
00003920  73 65 74 25 0d 14 50 1b  20 20 20 f2 73 65 74 5f  |set%..P.   .set_|
00003930  70 61 67 65 73 69 7a 65  5f 77 69 6e 64 6f 77 0d  |pagesize_window.|
00003940  14 5a 43 20 20 20 c8 99  20 22 57 69 6d 70 5f 43  |.ZC   .. "Wimp_C|
00003950  72 65 61 74 65 53 75 62  4d 65 6e 75 22 2c 2c 6d  |reateSubMenu",,m|
00003960  65 73 73 61 67 65 25 21  32 30 2c 6d 65 73 73 61  |essage%!20,messa|
00003970  67 65 25 21 32 34 2c 6d  65 73 73 61 67 65 25 21  |ge%!24,message%!|
00003980  32 38 0d 14 64 07 20 20  cd 0d 14 6e 05 cb 0d 14  |28..d.  ...n....|
00003990  78 05 e1 0d 14 82 05 3a  0d 14 8c 21 dd f2 68 65  |x......:...!..he|
000039a0  6c 70 72 65 70 6c 79 28  68 65 6c 70 24 2c 20 72  |lpreply(help$, r|
000039b0  65 66 25 2c 20 74 6f 25  29 0d 14 96 14 6d 73 67  |ef%, to%)....msg|
000039c0  25 21 30 20 20 20 20 20  3d 20 32 35 36 0d 14 a0  |%!0     = 256...|
000039d0  15 6d 73 67 25 21 31 32  20 20 20 20 3d 20 72 65  |.msg%!12    = re|
000039e0  66 25 0d 14 aa 15 6d 73  67 25 21 31 36 20 20 20  |f%....msg%!16   |
000039f0  20 3d 20 26 35 30 33 0d  14 b4 16 24 28 6d 73 67  | = &503....$(msg|
00003a00  25 2b 32 30 29 20 3d 20  68 65 6c 70 24 0d 14 be  |%+20) = help$...|
00003a10  1c f2 7a 65 72 6f 5f 74  65 72 6d 69 6e 61 74 65  |..zero_terminate|
00003a20  28 6d 73 67 25 2b 32 30  29 0d 14 c8 28 c8 99 20  |(msg%+20)...(.. |
00003a30  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00003a40  65 22 2c 20 31 37 2c 20  6d 73 67 25 2c 20 74 6f  |e", 17, msg%, to|
00003a50  25 0d 14 d2 05 e1 0d 14  dc 05 3a 0d 14 e6 17 dd  |%.........:.....|
00003a60  f2 62 6f 75 6e 63 65 64  28 6d 65 73 73 61 67 65  |.bounced(message|
00003a70  25 29 0d 14 f0 14 c8 8e  20 6d 65 73 73 61 67 65  |%)...... message|
00003a80  25 21 31 36 20 ca 0d 14  fa 19 20 c9 20 4d 65 73  |%!16 ..... . Mes|
00003a90  73 61 67 65 5f 50 72 69  6e 74 46 69 6c 65 25 0d  |sage_PrintFile%.|
00003aa0  15 04 12 20 20 70 72 69  6e 74 5f 72 65 66 25 3d  |...  print_ref%=|
00003ab0  30 0d 15 0e 47 20 20 f4  20 6d 75 73 74 20 62 65  |0...G  . must be|
00003ac0  20 61 6e 20 61 70 70 20  74 68 61 74 20 63 61 6e  | an app that can|
00003ad0  27 74 20 64 6f 20 69 74  73 20 6f 77 6e 20 70 72  |'t do its own pr|
00003ae0  69 6e 74 69 6e 67 3b 20  72 65 70 6c 79 20 74 6f  |inting; reply to|
00003af0  20 6d 65 73 73 61 67 65  0d 15 18 15 20 20 f4 20  | message....  . |
00003b00  73 74 69 6c 6c 20 69 6e  20 6d 73 67 25 0d 15 22  |still in msg%.."|
00003b10  11 20 20 f2 65 6e 64 63  6f 6e 66 69 72 6d 0d 15  |.  .endconfirm..|
00003b20  2c 16 20 20 e7 20 ac 20  70 72 69 6e 74 5f 6f 6e  |,.  . . print_on|
00003b30  25 20 20 8c 0d 15 36 45  20 20 20 f4 20 63 61 6e  |%  ...6E   . can|
00003b40  27 74 20 61 73 6b 20 66  6f 72 20 63 6f 6e 66 69  |'t ask for confi|
00003b50  72 6d 61 74 69 6f 6e 20  6f 66 20 73 74 75 70 69  |rmation of stupi|
00003b60  64 20 74 79 70 65 73 20  61 73 20 61 6e 20 61 66  |d types as an af|
00003b70  66 69 72 6d 61 74 69 76  65 0d 15 40 41 20 20 20  |firmative..@A   |
00003b80  f4 20 63 6c 69 63 6b 20  77 69 6c 6c 20 70 72 6f  |. click will pro|
00003b90  62 61 62 6c 79 20 73 68  75 74 20 64 6f 77 6e 20  |bably shut down |
00003ba0  74 68 65 20 74 72 61 6e  73 66 65 72 20 61 74 20  |the transfer at |
00003bb0  74 68 65 20 73 6f 75 72  63 65 0d 15 4a 15 20 20  |the source..J.  |
00003bc0  20 6d 73 67 25 21 31 36  20 20 20 20 3d 20 32 0d  | msg%!16    = 2.|
00003bd0  15 54 2b 20 20 20 6d 73  67 25 21 33 36 20 20 20  |.T+   msg%!36   |
00003be0  20 3d 20 2d 31 20 3a 20  f4 20 66 69 6c 65 20 69  | = -1 : . file i|
00003bf0  73 20 6e 6f 74 20 73 61  66 65 0d 15 5e 2e 20 20  |s not safe..^.  |
00003c00  20 c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  | .. "Wimp_SendMe|
00003c10  73 73 61 67 65 22 2c 20  31 37 2c 20 6d 73 67 25  |ssage", 17, msg%|
00003c20  2c 20 6d 73 67 25 21 34  0d 15 68 07 20 20 cc 0d  |, msg%!4..h.  ..|
00003c30  15 72 20 20 20 20 f2 6d  6f 61 6e 28 22 41 6c 72  |.r    .moan("Alr|
00003c40  65 61 64 79 20 70 72 69  6e 74 69 6e 67 22 29 0d  |eady printing").|
00003c50  15 7c 07 20 20 cd 0d 15  86 19 20 c9 20 4d 65 73  |.|.  ..... . Mes|
00003c60  73 61 67 65 5f 50 72 69  6e 74 49 6e 69 74 25 0d  |sage_PrintInit%.|
00003c70  15 90 0c 20 20 f2 69 6e  69 74 32 0d 15 9a 12 20  |...  .init2.... |
00003c80  20 70 6f 6c 6c 5f 6d 61  73 6b 25 3d 31 0d 15 a4  | poll_mask%=1...|
00003c90  1c 20 c9 20 4d 65 73 73  61 67 65 5f 50 72 69 6e  |. . Message_Prin|
00003ca0  74 54 79 70 65 4f 64 64  25 0d 15 ae 13 20 20 74  |tTypeOdd%....  t|
00003cb0  79 70 65 5f 73 74 61 74  65 25 3d 31 0d 15 b8 12  |ype_state%=1....|
00003cc0  20 20 70 72 69 6e 74 5f  72 65 66 25 3d 30 0d 15  |  print_ref%=0..|
00003cd0  c2 05 cb 0d 15 cc 05 e1  0d 15 d6 05 3a 0d 15 e0  |............:...|
00003ce0  10 dd a4 63 68 65 63 6b  5f 74 79 70 65 0d 15 ea  |...check_type...|
00003cf0  14 ea 20 4c 25 2c 70 73  72 25 2c 20 74 79 70 65  |.. L%,psr%, type|
00003d00  24 0d 15 f4 0d 41 6c 69  61 73 24 3d 22 22 0d 15  |$....Alias$=""..|
00003d10  fe 40 f4 20 69 66 20 61  6e 20 41 6c 69 61 73 24  |.@. if an Alias$|
00003d20  40 50 72 69 6e 74 54 79  70 65 5f 3c 46 74 79 70  |@PrintType_<Ftyp|
00003d30  65 25 3e 20 65 78 69 73  74 73 20 74 68 65 6e 20  |e%> exists then |
00003d40  70 72 69 6e 74 20 76 69  61 20 74 68 61 74 0d 16  |print via that..|
00003d50  08 1e 74 79 70 65 24 20  3d 20 c2 22 30 30 22 2b  |..type$ = ."00"+|
00003d60  c3 7e 46 74 79 70 65 25  2c 20 33 29 0d 16 12 3b  |.~Ftype%, 3)...;|
00003d70  c8 99 22 58 4f 53 5f 52  65 61 64 56 61 72 56 61  |.."XOS_ReadVarVa|
00003d80  6c 22 2c 22 41 6c 69 61  73 24 40 50 72 69 6e 74  |l","Alias$@Print|
00003d90  54 79 70 65 5f 22 2b 74  79 70 65 24 2c 2c 2d 31  |Type_"+type$,,-1|
00003da0  20 b8 20 2c 2c 4c 25 0d  16 1c 2e e7 20 4c 25 20  | . ,,L%..... L% |
00003db0  3c 20 30 20 8c 20 41 6c  69 61 73 24 3d 22 40 50  |< 0 . Alias$="@P|
00003dc0  72 69 6e 74 54 79 70 65  5f 22 2b 74 79 70 65 24  |rintType_"+type$|
00003dd0  3a 20 3d 20 b9 0d 16 26  4d e7 20 46 74 79 70 65  |: = ...&M. Ftype|
00003de0  25 20 3d 20 26 46 46 46  20 84 20 46 74 79 70 65  |% = &FFF . Ftype|
00003df0  25 20 3d 20 26 46 46 45  20 84 20 46 74 79 70 65  |% = &FFE . Ftype|
00003e00  25 20 3d 20 26 46 45 42  20 84 20 46 74 79 70 65  |% = &FEB . Ftype|
00003e10  25 3d 4f 75 74 70 75 74  54 79 70 65 25 20 8c 20  |%=OutputType% . |
00003e20  3d b9 0d 16 30 35 f4 20  74 65 78 74 2c 20 65 78  |=...05. text, ex|
00003e30  65 63 20 61 6e 64 20 6f  62 65 79 20 66 69 6c 65  |ec and obey file|
00003e40  73 20 61 72 65 20 61 6c  6c 20 73 74 72 61 69 67  |s are all straig|
00003e50  68 74 20 74 65 78 74 0d  16 3a 38 e7 20 46 74 79  |ht text..:8. Fty|
00003e60  70 65 25 20 3d 20 26 31  30 30 30 20 8c 20 f2 6d  |pe% = &1000 . .m|
00003e70  6f 61 6e 28 22 43 61 6e  6e 6f 74 20 70 72 69 6e  |oan("Cannot prin|
00003e80  74 20 64 69 72 65 63 74  6f 72 69 65 73 22 29 0d  |t directories").|
00003e90  16 44 39 e7 20 46 74 79  70 65 25 20 3d 20 26 32  |.D9. Ftype% = &2|
00003ea0  30 30 30 20 8c 20 f2 6d  6f 61 6e 28 22 43 61 6e  |000 . .moan("Can|
00003eb0  6e 6f 74 20 70 72 69 6e  74 20 61 70 70 6c 69 63  |not print applic|
00003ec0  61 74 69 6f 6e 73 22 29  0d 16 4e 16 e7 20 46 74  |ations")..N.. Ft|
00003ed0  79 70 65 25 20 3d 20 26  33 30 30 30 20 8c 0d 16  |ype% = &3000 ...|
00003ee0  58 1c 20 24 65 72 72 6f  72 5f 62 6c 6b 25 20 3d  |X. $error_blk% =|
00003ef0  20 22 75 6e 74 79 70 65  64 22 0d 16 62 05 cc 0d  | "untyped"..b...|
00003f00  16 6c 45 20 c8 99 22 58  4f 53 5f 52 65 61 64 56  |.lE .."XOS_ReadV|
00003f10  61 72 56 61 6c 22 2c 22  46 69 6c 65 24 54 79 70  |arVal","File$Typ|
00003f20  65 5f 22 2b 74 79 70 65  24 2c 65 72 72 6f 72 5f  |e_"+type$,error_|
00003f30  62 6c 6b 25 2c 31 30 30  20 b8 20 2c 2c 4c 25 3b  |blk%,100 . ,,L%;|
00003f40  70 73 72 25 0d 16 76 44  20 e7 20 70 73 72 25 20  |psr%..vD . psr% |
00003f50  80 20 31 20 8c 20 24 65  72 72 6f 72 5f 62 6c 6b  |. 1 . $error_blk|
00003f60  25 3d 22 74 79 70 65 20  26 22 2b c3 7e 46 74 79  |%="type &"+.~Fty|
00003f70  70 65 25 20 8b 20 65 72  72 6f 72 5f 62 6c 6b 25  |pe% . error_blk%|
00003f80  3f 4c 25 20 3d 20 31 33  0d 16 80 05 cd 0d 16 8a  |?L% = 13........|
00003f90  72 3d a4 63 6f 6e 66 69  72 6d 28 22 49 20 64 6f  |r=.confirm("I do|
00003fa0  6e 27 74 20 6b 6e 6f 77  20 68 6f 77 20 74 6f 20  |n't know how to |
00003fb0  70 72 69 6e 74 20 22 2b  24 65 72 72 6f 72 5f 62  |print "+$error_b|
00003fc0  6c 6b 25 2b 22 20 66 69  6c 65 73 3b 20 64 6f 20  |lk%+" files; do |
00003fd0  79 6f 75 20 77 61 6e 74  20 6d 65 20 74 6f 20 70  |you want me to p|
00003fe0  72 69 6e 74 20 79 6f 75  72 20 66 69 6c 65 20 61  |rint your file a|
00003ff0  73 20 70 6c 61 69 6e 20  74 65 78 74 3f 22 29 0d  |s plain text?").|
00004000  16 94 05 3a 0d 16 9e 17  dd a4 63 6f 6e 66 69 72  |...:......confir|
00004010  6d 28 6d 65 73 73 61 67  65 24 29 0d 16 a8 11 ea  |m(message$).....|
00004020  20 53 25 2c 20 61 63 74  69 6f 6e 25 0d 16 b2 1c  | S%, action%....|
00004030  53 25 3d a4 69 63 6f 6e  61 64 64 72 28 63 6f 6e  |S%=.iconaddr(con|
00004040  66 69 72 6d 25 2c 30 29  0d 16 bc 10 24 53 25 3d  |firm%,0)....$S%=|
00004050  6d 65 73 73 61 67 65 24  0d 16 c6 0f f2 67 65 74  |message$.....get|
00004060  70 6f 69 6e 74 65 72 0d  16 d0 3a c8 99 20 22 57  |pointer...:.. "W|
00004070  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00004080  2c 63 6f 6e 66 69 72 6d  25 2c 6d 6f 75 73 65 78  |,confirm%,mousex|
00004090  25 2d 32 30 30 2c 6d 6f  75 73 65 79 25 2b 32 30  |%-200,mousey%+20|
000040a0  30 0d 16 da 17 63 6f 6e  66 69 72 6d 5f 61 6e 73  |0....confirm_ans|
000040b0  77 65 72 25 20 3d 20 32  0d 16 e4 05 f5 0d 16 ee  |wer% = 2........|
000040c0  2f 20 c8 99 20 22 57 69  6d 70 5f 50 6f 6c 6c 22  |/ .. "Wimp_Poll"|
000040d0  2c 70 6f 6c 6c 5f 6d 61  73 6b 25 2c 65 76 65 6e  |,poll_mask%,even|
000040e0  74 25 20 b8 20 61 63 74  69 6f 6e 25 0d 16 f8 13  |t% . action%....|
000040f0  20 f2 64 65 73 70 61 74  63 68 5f 70 6f 6c 6c 0d  | .despatch_poll.|
00004100  17 02 1a fd 20 63 6f 6e  66 69 72 6d 5f 61 6e 73  |.... confirm_ans|
00004110  77 65 72 25 20 3c 3e 20  32 0d 17 0c 14 f2 63 6c  |wer% <> 2.....cl|
00004120  6f 73 65 28 63 6f 6e 66  69 72 6d 25 29 0d 17 16  |ose(confirm%)...|
00004130  14 3d 63 6f 6e 66 69 72  6d 5f 61 6e 73 77 65 72  |.=confirm_answer|
00004140  25 0d 17 20 05 3a 0d 17  2a 10 dd f2 65 6e 64 63  |%.. .:..*...endc|
00004150  6f 6e 66 69 72 6d 0d 17  34 2d e7 20 63 6f 6e 66  |onfirm..4-. conf|
00004160  69 72 6d 5f 61 6e 73 77  65 72 25 20 3d 20 32 20  |irm_answer% = 2 |
00004170  8c 20 63 6f 6e 66 69 72  6d 5f 61 6e 73 77 65 72  |. confirm_answer|
00004180  25 3d a3 0d 17 3e 2e f4  20 46 4e 63 6f 6e 66 69  |%=...>.. FNconfi|
00004190  72 6d 20 63 6c 6f 73 65  73 20 74 68 65 20 77 69  |rm closes the wi|
000041a0  6e 64 6f 77 20 69 66 20  6e 65 63 65 73 73 61 72  |ndow if necessar|
000041b0  79 0d 17 48 05 e1 0d 17  52 05 3a 0d 17 5c 0f dd  |y..H....R.:..\..|
000041c0  20 a4 72 74 6f 7a 28 73  25 29 0d 17 66 08 ea 20  | .rtoz(s%)..f.. |
000041d0  6e 24 0d 17 70 1a c8 95  3f 73 25 3a 6e 24 2b 3d  |n$..p...?s%:n$+=|
000041e0  bd 3f 73 25 3a 73 25 2b  3d 31 3a ce 0d 17 7a 07  |.?s%:s%+=1:...z.|
000041f0  3d 6e 24 0d 17 84 05 3a  0d 17 8e 0b dd 20 f2 63  |=n$....:..... .c|
00004200  6f 70 79 0d 17 98 08 ea  20 4c 25 0d 17 a2 07 ea  |opy..... L%.....|
00004210  20 85 0d 17 ac 2c ee 20  85 20 ea 3a f7 20 85 3a  | ....,. . .:. .:|
00004220  f2 65 72 72 6f 72 28 9f  2c 20 f6 24 29 3a f2 73  |.error(., .$):.s|
00004230  74 6f 70 5f 70 72 69 6e  74 69 6e 67 3a e1 0d 17  |top_printing:...|
00004240  b6 0d e7 20 73 65 6e 74  25 20 8c 0d 17 c0 15 20  |... sent% ..... |
00004250  e7 20 96 28 2d 34 29 3e  3d 70 62 75 66 25 20 8c  |. .(-4)>=pbuf% .|
00004260  0d 17 ca 15 20 20 f2 50  72 69 6e 74 65 72 5f 46  |....  .Printer_F|
00004270  6f 6f 74 65 72 0d 17 d4  1b 20 20 d9 23 69 6e 5f  |ooter....  .#in_|
00004280  66 69 6c 65 25 3a 69 6e  5f 66 69 6c 65 25 3d 30  |file%:in_file%=0|
00004290  0d 17 de 2c 20 20 f2 45  73 63 4f 6e 3a d9 23 6f  |...,  .EscOn:.#o|
000042a0  75 74 5f 66 69 6c 65 25  3a 6f 75 74 5f 66 69 6c  |ut_file%:out_fil|
000042b0  65 25 3d 30 3a f2 45 73  63 4f 66 66 0d 17 e8 14  |e%=0:.EscOff....|
000042c0  20 20 f2 73 74 6f 70 5f  70 72 69 6e 74 69 6e 67  |  .stop_printing|
000042d0  0d 17 f2 06 20 cd 0d 17  fc 05 cc 0d 18 06 2a 20  |.... .........* |
000042e0  e7 20 6c 6f 63 61 74 69  6f 6e 5f 6e 65 77 25 3d  |. location_new%=|
000042f0  31 20 84 20 6c 6f 63 61  74 69 6f 6e 5f 6e 65 77  |1 . location_new|
00004300  25 3d 32 20 8c 0d 18 10  0e 20 20 4c 25 3d 96 28  |%=2 .....  L%=.(|
00004310  2d 34 29 0d 18 1a 1b 20  20 e7 20 4c 25 3e 62 75  |-4)....  . L%>bu|
00004320  66 73 7a 25 20 4c 25 3d  62 75 66 73 7a 25 0d 18  |fsz% L%=bufsz%..|
00004330  24 06 20 cc 0d 18 2e 0c  20 20 4c 25 3d 31 32 38  |$. .....  L%=128|
00004340  0d 18 38 06 20 cd 0d 18  42 1c 20 73 65 6e 74 25  |..8. ...B. sent%|
00004350  3d a4 50 72 69 6e 74 65  72 5f 53 65 6e 64 28 4c  |=.Printer_Send(L|
00004360  25 29 0d 18 4c 05 cd 0d  18 56 05 e1 0d 18 60 05  |%)..L....V....`.|
00004370  3a 0d 18 6a 13 dd f2 73  74 6f 70 5f 70 72 69 6e  |:..j...stop_prin|
00004380  74 69 6e 67 0d 18 74 17  f2 73 65 74 5f 70 72 69  |ting..t..set_pri|
00004390  6e 74 5f 73 74 61 74 65  28 a3 29 0d 18 7e 1d f2  |nt_state(.)..~..|
000043a0  63 68 61 6e 67 65 5f 69  63 6f 6e 3a f2 75 70 64  |change_icon:.upd|
000043b0  61 74 65 5f 69 63 6f 6e  0d 18 88 17 f2 50 72 69  |ate_icon.....Pri|
000043c0  6e 74 65 72 5f 43 6c 6f  73 65 46 69 6c 65 73 0d  |nter_CloseFiles.|
000043d0  18 92 31 e7 20 69 6e 5f  66 69 6c 65 25 20 c8 99  |..1. in_file% ..|
000043e0  22 58 4f 53 5f 46 69 6e  64 22 2c 30 2c 69 6e 5f  |"XOS_Find",0,in_|
000043f0  66 69 6c 65 25 3a 69 6e  5f 66 69 6c 65 25 3d 30  |file%:in_file%=0|
00004400  0d 18 9c 43 e7 20 6f 75  74 5f 66 69 6c 65 25 20  |...C. out_file% |
00004410  f2 45 73 63 4f 6e 3a c8  99 22 58 4f 53 5f 46 69  |.EscOn:.."XOS_Fi|
00004420  6e 64 22 2c 30 2c 6f 75  74 5f 66 69 6c 65 25 3a  |nd",0,out_file%:|
00004430  6f 75 74 5f 66 69 6c 65  25 3d 30 3a f2 45 73 63  |out_file%=0:.Esc|
00004440  4f 66 66 0d 18 a6 3a e7  20 66 69 6c 65 6e 61 6d  |Off...:. filenam|
00004450  24 20 3d 20 22 3c 50 72  69 6e 74 65 72 24 53 63  |$ = "<Printer$Sc|
00004460  72 61 70 3e 22 20 8c 20  ff 28 22 72 65 6d 6f 76  |rap>" . .("remov|
00004470  65 20 22 2b 66 69 6c 65  6e 61 6d 24 29 0d 18 b0  |e "+filenam$)...|
00004480  39 e7 20 66 69 6c 65 6e  61 6d 24 20 3d 20 22 3c  |9. filenam$ = "<|
00004490  50 72 69 6e 74 65 72 24  54 65 6d 70 3e 22 20 8c  |Printer$Temp>" .|
000044a0  20 ff 28 22 72 65 6d 6f  76 65 20 22 2b 66 69 6c  | .("remove "+fil|
000044b0  65 6e 61 6d 24 29 0d 18  ba 2e f4 20 64 65 6c 65  |enam$)..... dele|
000044c0  74 65 20 74 68 65 20 73  63 72 61 70 20 66 69 6c  |te the scrap fil|
000044d0  65 3a 20 6e 6f 77 20 66  69 6e 69 73 68 65 64 20  |e: now finished |
000044e0  77 69 74 68 0d 18 c4 10  f2 75 70 64 61 74 65 5f  |with.....update_|
000044f0  69 63 6f 6e 0d 18 ce 05  e1 0d 18 d8 05 3a 0d 18  |icon.........:..|
00004500  e2 1b dd 20 a4 72 65 61  64 5f 70 73 77 5f 69 63  |... .read_psw_ic|
00004510  6f 6e 28 69 63 6f 6e 25  29 0d 18 ec 20 3d 24 a4  |on(icon%)... =$.|
00004520  69 63 6f 6e 61 64 64 72  28 70 61 67 65 73 69 7a  |iconaddr(pagesiz|
00004530  65 25 2c 69 63 6f 6e 25  29 0d 18 f6 05 3a 0d 19  |e%,icon%)....:..|
00004540  00 29 dd 20 f2 72 65 61  64 5f 6e 75 6d 65 72 69  |.). .read_numeri|
00004550  63 70 73 77 5f 69 63 6f  6e 28 69 63 6f 6e 25 2c  |cpsw_icon(icon%,|
00004560  66 69 65 6c 64 25 29 0d  19 0a 48 70 61 67 65 5f  |field%)...Hpage_|
00004570  64 65 73 63 25 28 70 61  67 65 5f 6e 75 6d 62 65  |desc%(page_numbe|
00004580  72 25 2c 66 69 65 6c 64  25 29 3d bb 28 a4 72 65  |r%,field%)=.(.re|
00004590  61 64 5f 70 73 77 5f 69  63 6f 6e 28 69 63 6f 6e  |ad_psw_icon(icon|
000045a0  25 29 29 2a 6d 6d 5f 74  6f 5f 37 32 30 30 30 0d  |%))*mm_to_72000.|
000045b0  19 14 05 e1 0d 19 1e 05  3a 0d 19 28 40 dd 20 f2  |........:..(@. .|
000045c0  6d 6f 75 73 65 28 6d 6f  75 73 65 78 25 2c 6d 6f  |mouse(mousex%,mo|
000045d0  75 73 65 79 25 2c 62 75  74 74 6f 6e 73 25 2c 68  |usey%,buttons%,h|
000045e0  61 6e 64 6c 65 25 2c 69  63 6f 6e 25 2c 6f 6c 64  |andle%,icon%,old|
000045f0  62 75 74 74 6f 6e 73 25  29 0d 19 32 2f e7 20 68  |buttons%)..2/. h|
00004600  61 6e 64 6c 65 25 3d 70  61 67 65 73 69 7a 65 25  |andle%=pagesize%|
00004610  20 80 20 28 62 75 74 74  6f 6e 73 25 20 80 20 ac  | . (buttons% . .|
00004620  20 32 29 3c 3e 30 20 8c  0d 19 3c 0f 20 c8 8e 20  | 2)<>0 ...<. .. |
00004630  69 63 6f 6e 25 20 ca 0d  19 46 14 20 20 c9 20 70  |icon% ...F.  . p|
00004640  73 77 5f 4f 4b 5f 69 63  6f 6e 25 0d 19 50 25 20  |sw_OK_icon%..P% |
00004650  20 20 20 70 61 67 65 5f  6e 75 6d 62 65 72 5f 73  |   page_number_s|
00004660  65 74 25 3d 70 61 67 65  5f 6e 75 6d 62 65 72 25  |et%=page_number%|
00004670  0d 19 5a 40 20 20 20 20  70 61 67 65 5f 6e 61 6d  |..Z@    page_nam|
00004680  65 73 24 28 70 61 67 65  5f 6e 75 6d 62 65 72 25  |es$(page_number%|
00004690  29 3d a4 72 65 61 64 5f  70 73 77 5f 69 63 6f 6e  |)=.read_psw_icon|
000046a0  28 70 73 77 5f 6e 61 6d  65 5f 69 63 6f 6e 25 29  |(psw_name_icon%)|
000046b0  0d 19 64 41 20 20 20 20  f2 72 65 61 64 5f 6e 75  |..dA    .read_nu|
000046c0  6d 65 72 69 63 70 73 77  5f 69 63 6f 6e 28 70 73  |mericpsw_icon(ps|
000046d0  77 5f 77 69 64 74 68 5f  69 63 6f 6e 25 2c 20 70  |w_width_icon%, p|
000046e0  61 67 65 5f 77 69 64 74  68 5f 66 69 65 6c 64 25  |age_width_field%|
000046f0  29 0d 19 6e 42 20 20 20  20 f2 72 65 61 64 5f 6e  |)..nB    .read_n|
00004700  75 6d 65 72 69 63 70 73  77 5f 69 63 6f 6e 28 70  |umericpsw_icon(p|
00004710  73 77 5f 68 65 69 67 68  74 5f 69 63 6f 6e 25 2c  |sw_height_icon%,|
00004720  70 61 67 65 5f 68 65 69  67 68 74 5f 66 69 65 6c  |page_height_fiel|
00004730  64 25 29 0d 19 78 3f 20  20 20 20 f2 72 65 61 64  |d%)..x?    .read|
00004740  5f 6e 75 6d 65 72 69 63  70 73 77 5f 69 63 6f 6e  |_numericpsw_icon|
00004750  28 70 73 77 5f 74 6f 70  5f 69 63 6f 6e 25 2c 20  |(psw_top_icon%, |
00004760  20 20 70 61 67 65 5f 74  6f 70 5f 66 69 65 6c 64  |  page_top_field|
00004770  25 29 0d 19 82 42 20 20  20 20 f2 72 65 61 64 5f  |%)...B    .read_|
00004780  6e 75 6d 65 72 69 63 70  73 77 5f 69 63 6f 6e 28  |numericpsw_icon(|
00004790  70 73 77 5f 62 6f 74 74  6f 6d 5f 69 63 6f 6e 25  |psw_bottom_icon%|
000047a0  2c 70 61 67 65 5f 62 6f  74 74 6f 6d 5f 66 69 65  |,page_bottom_fie|
000047b0  6c 64 25 29 0d 19 8c 41  20 20 20 20 f2 72 65 61  |ld%)...A    .rea|
000047c0  64 5f 6e 75 6d 65 72 69  63 70 73 77 5f 69 63 6f  |d_numericpsw_ico|
000047d0  6e 28 70 73 77 5f 72 69  67 68 74 5f 69 63 6f 6e  |n(psw_right_icon|
000047e0  25 2c 20 70 61 67 65 5f  72 69 67 68 74 5f 66 69  |%, page_right_fi|
000047f0  65 6c 64 25 29 0d 19 96  40 20 20 20 20 f2 72 65  |eld%)...@    .re|
00004800  61 64 5f 6e 75 6d 65 72  69 63 70 73 77 5f 69 63  |ad_numericpsw_ic|
00004810  6f 6e 28 70 73 77 5f 6c  65 66 74 5f 69 63 6f 6e  |on(psw_left_icon|
00004820  25 2c 20 20 70 61 67 65  5f 6c 65 66 74 5f 66 69  |%,  page_left_fi|
00004830  65 6c 64 25 29 0d 19 a0  3c 20 20 20 20 69 63 6f  |eld%)...<    ico|
00004840  6e 25 20 20 3d 20 70 61  67 65 5f 64 65 73 63 25  |n%  = page_desc%|
00004850  28 70 61 67 65 5f 6e 75  6d 62 65 72 25 2c 70 61  |(page_number%,pa|
00004860  67 65 5f 68 65 69 67 68  74 5f 66 69 65 6c 64 25  |ge_height_field%|
00004870  29 0d 19 aa 39 20 20 20  20 69 63 6f 6e 25 20 2d  |)...9    icon% -|
00004880  3d 20 70 61 67 65 5f 64  65 73 63 25 28 70 61 67  |= page_desc%(pag|
00004890  65 5f 6e 75 6d 62 65 72  25 2c 70 61 67 65 5f 74  |e_number%,page_t|
000048a0  6f 70 5f 66 69 65 6c 64  25 29 0d 19 b4 38 20 20  |op_field%)...8  |
000048b0  20 20 70 61 67 65 5f 64  65 73 63 25 28 70 61 67  |  page_desc%(pag|
000048c0  65 5f 6e 75 6d 62 65 72  25 2c 70 61 67 65 5f 74  |e_number%,page_t|
000048d0  6f 70 5f 66 69 65 6c 64  25 29 20 3d 20 69 63 6f  |op_field%) = ico|
000048e0  6e 25 0d 19 be 3b 20 20  20 20 69 63 6f 6e 25 20  |n%...;    icon% |
000048f0  20 3d 20 70 61 67 65 5f  64 65 73 63 25 28 70 61  | = page_desc%(pa|
00004900  67 65 5f 6e 75 6d 62 65  72 25 2c 70 61 67 65 5f  |ge_number%,page_|
00004910  77 69 64 74 68 5f 66 69  65 6c 64 25 29 0d 19 c8  |width_field%)...|
00004920  3b 20 20 20 20 69 63 6f  6e 25 20 2d 3d 20 70 61  |;    icon% -= pa|
00004930  67 65 5f 64 65 73 63 25  28 70 61 67 65 5f 6e 75  |ge_desc%(page_nu|
00004940  6d 62 65 72 25 2c 70 61  67 65 5f 72 69 67 68 74  |mber%,page_right|
00004950  5f 66 69 65 6c 64 25 29  0d 19 d2 3a 20 20 20 20  |_field%)...:    |
00004960  70 61 67 65 5f 64 65 73  63 25 28 70 61 67 65 5f  |page_desc%(page_|
00004970  6e 75 6d 62 65 72 25 2c  70 61 67 65 5f 72 69 67  |number%,page_rig|
00004980  68 74 5f 66 69 65 6c 64  25 29 20 3d 20 69 63 6f  |ht_field%) = ico|
00004990  6e 25 0d 19 dc 16 20 20  20 20 f2 73 65 74 5f 70  |n%....    .set_p|
000049a0  61 67 65 5f 73 69 7a 65  0d 19 e6 34 20 20 20 20  |age_size...4    |
000049b0  e7 20 28 62 75 74 74 6f  6e 73 25 20 80 20 31 29  |. (buttons% . 1)|
000049c0  3d 30 20 8c 20 c8 99 22  57 69 6d 70 5f 43 72 65  |=0 . .."Wimp_Cre|
000049d0  61 74 65 4d 65 6e 75 22  2c 2c 2d 31 0d 19 f0 37  |ateMenu",,-1...7|
000049e0  20 20 c9 20 70 73 77 5f  70 61 67 65 31 5f 69 63  |  . psw_page1_ic|
000049f0  6f 6e 25 2c 70 73 77 5f  70 61 67 65 32 5f 69 63  |on%,psw_page2_ic|
00004a00  6f 6e 25 2c 70 73 77 5f  70 61 67 65 33 5f 69 63  |on%,psw_page3_ic|
00004a10  6f 6e 25 0d 19 fa 2c 20  20 20 20 70 61 67 65 5f  |on%...,    page_|
00004a20  6e 75 6d 62 65 72 25 20  3d 20 69 63 6f 6e 25 2d  |number% = icon%-|
00004a30  70 73 77 5f 70 61 67 65  31 5f 69 63 6f 6e 25 0d  |psw_page1_icon%.|
00004a40  1a 04 1c 20 20 20 20 f2  73 65 74 5f 70 61 67 65  |...    .set_page|
00004a50  73 69 7a 65 5f 77 69 6e  64 6f 77 0d 1a 0e 06 20  |size_window.... |
00004a60  cb 0d 1a 18 05 cc 0d 1a  22 12 20 c8 8e 20 62 75  |........". .. bu|
00004a70  74 74 6f 6e 73 25 20 ca  0d 1a 2c 1c 20 20 c9 20  |ttons% ...,.  . |
00004a80  34 3a 20 f4 20 6c 65 66  74 20 68 61 6e 64 20 63  |4: . left hand c|
00004a90  6c 69 63 6b 0d 1a 36 13  20 20 20 c8 8e 20 68 61  |lick..6.   .. ha|
00004aa0  6e 64 6c 65 25 20 ca 0d  1a 40 0e 20 20 20 20 20  |ndle% ...@.     |
00004ab0  c9 20 2d 32 3a 0d 1a 4a  16 20 20 20 20 20 f2 66  |. -2:..J.     .f|
00004ac0  72 6f 6e 74 28 6d 61 69  6e 25 29 0d 1a 54 13 20  |ront(main%)..T. |
00004ad0  20 20 20 c9 20 63 6f 6e  66 69 72 6d 25 3a 0d 1a  |   . confirm%:..|
00004ae0  5e 26 20 20 20 20 20 e7  20 69 63 6f 6e 25 3d 31  |^&     . icon%=1|
00004af0  20 8c 20 63 6f 6e 66 69  72 6d 5f 61 6e 73 77 65  | . confirm_answe|
00004b00  72 25 3d b9 0d 1a 68 26  20 20 20 20 20 e7 20 69  |r%=...h&     . i|
00004b10  63 6f 6e 25 3d 32 20 8c  20 63 6f 6e 66 69 72 6d  |con%=2 . confirm|
00004b20  5f 61 6e 73 77 65 72 25  3d a3 0d 1a 72 08 20 20  |_answer%=...r.  |
00004b30  20 cb 0d 1a 7c 18 20 20  c9 20 32 3a 20 f4 20 6d  | ...|.  . 2: . m|
00004b40  65 6e 75 20 62 75 74 74  6f 6e 0d 1a 86 13 20 20  |enu button....  |
00004b50  20 c8 8e 20 68 61 6e 64  6c 65 25 20 ca 0d 1a 90  | .. handle% ....|
00004b60  1f 20 20 20 20 c9 20 2d  32 3a 20 f2 6d 65 6e 75  |.    . -2: .menu|
00004b70  28 70 72 69 6e 74 6d 65  6e 75 25 29 0d 1a 9a 07  |(printmenu%)....|
00004b80  20 20 cb 0d 1a a4 06 20  cb 0d 1a ae 05 cd 0d 1a  |  ..... ........|
00004b90  b8 05 e1 0d 1a c2 05 3a  0d 1a cc 1d dd 20 f2 6b  |.......:..... .k|
00004ba0  65 79 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |ey(window%,icon%|
00004bb0  2c 63 68 25 29 0d 1a d6  22 e7 20 77 69 6e 64 6f  |,ch%)...". windo|
00004bc0  77 25 3d 70 61 67 65 73  69 7a 65 25 20 80 20 63  |w%=pagesize% . c|
00004bd0  68 25 3d 31 33 20 8c 0d  1a e0 28 20 f4 20 73 74  |h%=13 ....( . st|
00004be0  65 70 20 63 61 72 65 74  20 74 6f 20 6e 65 78 74  |ep caret to next|
00004bf0  20 77 72 69 74 65 61 62  6c 65 20 69 63 6f 6e 0d  | writeable icon.|
00004c00  1a ea 0d 20 69 63 6f 6e  25 2b 3d 31 0d 1a f4 1e  |... icon%+=1....|
00004c10  20 e7 20 69 63 6f 6e 25  3e 70 73 77 5f 72 69 67  | . icon%>psw_rig|
00004c20  68 74 5f 69 63 6f 6e 25  20 8c 0d 1a fe 3d 20 20  |ht_icon% ....=  |
00004c30  f2 6d 6f 75 73 65 28 30  2c 30 2c 34 2c 70 61 67  |.mouse(0,0,4,pag|
00004c40  65 73 69 7a 65 25 2c 70  73 77 5f 4f 4b 5f 69 63  |esize%,psw_OK_ic|
00004c50  6f 6e 25 2c 30 29 3a 20  f4 20 66 61 6b 65 20 4f  |on%,0): . fake O|
00004c60  4b 20 63 6c 69 63 6b 0d  1b 08 06 20 cc 0d 1b 12  |K click.... ....|
00004c70  36 20 20 c8 99 22 57 69  6d 70 5f 53 65 74 43 61  |6  .."Wimp_SetCa|
00004c80  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 70 61 67  |retPosition",pag|
00004c90  65 73 69 7a 65 25 2c 69  63 6f 6e 25 2c 2c 2c 2d  |esize%,icon%,,,-|
00004ca0  31 2c 30 0d 1b 1c 06 20  cd 0d 1b 26 05 cc 0d 1b  |1,0.... ...&....|
00004cb0  30 1c 20 c8 99 22 57 69  6d 70 5f 50 72 6f 63 65  |0. .."Wimp_Proce|
00004cc0  73 73 4b 65 79 22 2c 63  68 25 0d 1b 3a 05 cd 0d  |ssKey",ch%..:...|
00004cd0  1b 44 05 e1 0d 1b 4e 05  3a 0d 1b 58 25 dd 20 f2  |.D....N.:..X%. .|
00004ce0  64 65 63 6f 64 65 6d 65  6e 75 28 6d 65 6e 75 68  |decodemenu(menuh|
00004cf0  61 6e 64 6c 65 25 2c 6d  65 6e 75 73 25 29 0d 1b  |andle%,menus%)..|
00004d00  62 14 c8 8e 20 6d 65 6e  75 68 61 6e 64 6c 65 25  |b... menuhandle%|
00004d10  20 ca 0d 1b 6c 11 20 c9  20 70 72 69 6e 74 6d 65  | ...l. . printme|
00004d20  6e 75 25 0d 1b 76 23 20  20 e7 20 70 72 69 6e 74  |nu%..v#  . print|
00004d30  5f 6f 6e 25 20 80 20 28  21 6d 65 6e 75 73 25 3c  |_on% . (!menus%<|
00004d40  35 29 20 8c 20 e1 0d 1b  80 12 20 20 c8 8e 20 21  |5) . .....  .. !|
00004d50  6d 65 6e 75 73 25 20 ca  0d 1b 8a 0a 20 20 20 c9  |menus% .....   .|
00004d60  20 31 0d 1b 94 21 20 20  20 20 f2 74 69 63 6b 69  | 1...!    .ticki|
00004d70  74 28 70 72 69 6e 74 6d  65 6e 75 25 2c 20 31 2c  |t(printmenu%, 1,|
00004d80  20 34 29 0d 1b 9e 19 20  20 20 20 6c 6f 63 61 74  | 4)....    locat|
00004d90  69 6f 6e 5f 6e 65 77 25  20 3d 20 31 0d 1b a8 28  |ion_new% = 1...(|
00004da0  20 20 20 20 f2 50 72 69  6e 74 65 72 5f 4c 6f 63  |    .Printer_Loc|
00004db0  61 74 69 6f 6e 28 6c 6f  63 61 74 69 6f 6e 5f 6e  |ation(location_n|
00004dc0  65 77 25 29 0d 1b b2 0f  20 20 20 20 2a 46 58 20  |ew%)....    *FX |
00004dd0  35 2c 31 0d 1b bc 0a 20  20 20 c9 20 32 0d 1b c6  |5,1....   . 2...|
00004de0  17 20 20 20 20 f2 50 72  69 6e 74 65 72 5f 49 67  |.    .Printer_Ig|
00004df0  6e 6f 72 65 0d 1b d0 27  20 20 20 20 f2 64 65 63  |nore...'    .dec|
00004e00  6f 64 65 6d 65 6e 75 28  73 65 72 69 61 6c 6d 25  |odemenu(serialm%|
00004e10  2c 20 6d 65 6e 75 73 25  2b 34 29 0d 1b da 21 20  |, menus%+4)...! |
00004e20  20 20 20 f2 74 69 63 6b  69 74 28 70 72 69 6e 74  |   .tickit(print|
00004e30  6d 65 6e 75 25 2c 20 32  2c 20 34 29 0d 1b e4 19  |menu%, 2, 4)....|
00004e40  20 20 20 20 6c 6f 63 61  74 69 6f 6e 5f 6e 65 77  |    location_new|
00004e50  25 20 3d 20 32 0d 1b ee  28 20 20 20 20 f2 50 72  |% = 2...(    .Pr|
00004e60  69 6e 74 65 72 5f 4c 6f  63 61 74 69 6f 6e 28 6c  |inter_Location(l|
00004e70  6f 63 61 74 69 6f 6e 5f  6e 65 77 25 29 0d 1b f8  |ocation_new%)...|
00004e80  24 20 20 20 20 c8 99 20  22 4f 53 5f 42 79 74 65  |$    .. "OS_Byte|
00004e90  22 2c 20 38 2c 20 62 61  75 64 5f 6e 65 77 25 2b  |", 8, baud_new%+|
00004ea0  31 0d 1c 02 24 20 20 20  20 c8 99 20 22 4f 53 5f  |1...$    .. "OS_|
00004eb0  42 79 74 65 22 2c 20 37  2c 20 62 61 75 64 5f 6e  |Byte", 7, baud_n|
00004ec0  65 77 25 2b 31 0d 1c 0c  24 20 20 20 20 c8 99 20  |ew%+1...$    .. |
00004ed0  22 4f 53 5f 53 65 72 69  61 6c 4f 70 22 2c 31 2c  |"OS_SerialOp",1,|
00004ee0  64 61 74 61 5f 6e 65 77  25 0d 1c 16 27 20 20 20  |data_new%...'   |
00004ef0  20 c8 99 20 22 4f 53 5f  53 65 72 69 61 6c 4f 70  | .. "OS_SerialOp|
00004f00  22 2c 30 2c 58 4f 4e 5f  6e 65 77 25 2c ac 20 31  |",0,XON_new%,. 1|
00004f10  0d 1c 20 22 20 20 20 20  f2 50 72 69 6e 74 65 72  |.. "    .Printer|
00004f20  5f 58 6f 6e 58 6f 66 66  28 58 4f 4e 5f 6e 65 77  |_XonXoff(XON_new|
00004f30  25 29 0d 1c 2a 0f 20 20  20 20 2a 46 58 20 35 2c  |%)..*.    *FX 5,|
00004f40  32 0d 1c 34 0a 20 20 20  c9 20 33 0d 1c 3e 29 20  |2..4.   . 3..>) |
00004f50  20 20 20 f2 64 65 63 6f  64 65 6d 65 6e 75 28 6e  |   .decodemenu(n|
00004f60  65 74 70 72 69 6e 74 6d  25 2c 20 6d 65 6e 75 73  |etprintm%, menus|
00004f70  25 2b 34 29 0d 1c 48 21  20 20 20 20 f2 74 69 63  |%+4)..H!    .tic|
00004f80  6b 69 74 28 70 72 69 6e  74 6d 65 6e 75 25 2c 20  |kit(printmenu%, |
00004f90  33 2c 20 34 29 0d 1c 52  19 20 20 20 20 6c 6f 63  |3, 4)..R.    loc|
00004fa0  61 74 69 6f 6e 5f 6e 65  77 25 20 3d 20 34 0d 1c  |ation_new% = 4..|
00004fb0  5c 28 20 20 20 20 f2 50  72 69 6e 74 65 72 5f 4c  |\(    .Printer_L|
00004fc0  6f 63 61 74 69 6f 6e 28  6c 6f 63 61 74 69 6f 6e  |ocation(location|
00004fd0  5f 6e 65 77 25 29 0d 1c  66 0f 20 20 20 20 f2 73  |_new%)..f.    .s|
00004fe0  65 74 5f 70 73 0d 1c 70  0f 20 20 20 20 2a 46 58  |et_ps..p.    *FX|
00004ff0  20 35 2c 34 0d 1c 7a 0a  20 20 20 c9 20 34 0d 1c  | 5,4..z.   . 4..|
00005000  84 17 20 20 20 20 6c 6f  63 61 74 69 6f 6e 5f 6e  |..    location_n|
00005010  65 77 25 3d 35 0d 1c 8e  28 20 20 20 20 f2 50 72  |ew%=5...(    .Pr|
00005020  69 6e 74 65 72 5f 4c 6f  63 61 74 69 6f 6e 28 6c  |inter_Location(l|
00005030  6f 63 61 74 69 6f 6e 5f  6e 65 77 25 29 0d 1c 98  |ocation_new%)...|
00005040  21 20 20 20 20 f2 74 69  63 6b 69 74 28 70 72 69  |!    .tickit(pri|
00005050  6e 74 6d 65 6e 75 25 2c  20 34 2c 20 34 29 0d 1c  |ntmenu%, 4, 4)..|
00005060  a2 42 20 20 20 20 e7 20  a9 24 66 69 6c 65 5f 6e  |.B    . .$file_n|
00005070  61 6d 65 25 3d 30 20 8c  20 24 66 69 6c 65 5f 6e  |ame%=0 . $file_n|
00005080  61 6d 65 25 3d 22 3c 50  44 72 69 76 65 72 24 44  |ame%="<PDriver$D|
00005090  69 72 3e 2e 5e 2e 50 72  69 6e 74 44 61 74 61 22  |ir>.^.PrintData"|
000050a0  0d 1c ac 35 20 20 20 20  c8 99 20 22 58 4f 53 5f  |...5    .. "XOS_|
000050b0  43 4c 49 22 2c 22 53 65  74 20 50 72 69 6e 74 65  |CLI","Set Printe|
000050c0  72 54 79 70 65 24 35 20  22 2b 24 66 69 6c 65 5f  |rType$5 "+$file_|
000050d0  6e 61 6d 65 25 0d 1c b6  0e 20 20 20 20 f2 73 74  |name%....    .st|
000050e0  61 6d 70 0d 1c c0 0f 20  20 20 20 2a 46 58 20 35  |amp....    *FX 5|
000050f0  2c 35 0d 1c ca 0a 20 20  20 c9 20 36 0d 1c d4 13  |,5....   . 6....|
00005100  20 20 20 20 f2 53 61 76  65 43 6f 6e 66 69 67 0d  |    .SaveConfig.|
00005110  1c de 0a 20 20 20 c9 20  37 0d 1c e8 15 20 20 20  |...   . 7....   |
00005120  20 e7 20 70 72 69 6e 74  5f 6f 6e 25 20 8c 0d 1c  | . print_on% ...|
00005130  f2 11 20 20 20 20 20 2a  46 58 20 32 31 2c 33 0d  |..     *FX 21,3.|
00005140  1c fc 17 20 20 20 20 20  f2 73 74 6f 70 5f 70 72  |...     .stop_pr|
00005150  69 6e 74 69 6e 67 0d 1d  06 09 20 20 20 20 cd 0d  |inting....    ..|
00005160  1d 10 0a 20 20 20 c9 20  38 0d 1d 1a 15 20 20 20  |...   . 8....   |
00005170  20 e7 20 70 72 69 6e 74  5f 6f 6e 25 20 8c 0d 1d  | . print_on% ...|
00005180  24 11 20 20 20 20 20 2a  46 58 20 32 31 2c 33 0d  |$.     *FX 21,3.|
00005190  1d 2e 17 20 20 20 20 20  f2 73 74 6f 70 5f 70 72  |...     .stop_pr|
000051a0  69 6e 74 69 6e 67 0d 1d  38 09 20 20 20 20 cd 0d  |inting..8.    ..|
000051b0  1d 42 12 20 20 20 20 f2  74 65 72 6d 69 6e 61 74  |.B.    .terminat|
000051c0  65 0d 1d 4c 07 20 20 cb  0d 1d 56 12 20 20 f2 63  |e..L.  ...V.  .c|
000051d0  68 61 6e 67 65 5f 69 63  6f 6e 0d 1d 60 0f 20 c9  |hange_icon..`. .|
000051e0  20 73 65 72 69 61 6c 6d  25 0d 1d 6a 12 20 20 c8  | serialm%..j.  .|
000051f0  8e 20 21 6d 65 6e 75 73  25 20 ca 0d 1d 74 0a 20  |. !menus% ...t. |
00005200  20 20 c9 20 30 0d 1d 7e  25 20 20 20 20 f2 64 65  |  . 0..~%    .de|
00005210  63 6f 64 65 6d 65 6e 75  28 62 61 75 64 6d 25 2c  |codemenu(baudm%,|
00005220  20 6d 65 6e 75 73 25 2b  34 29 0d 1d 88 0a 20 20  | menus%+4)....  |
00005230  20 c9 20 31 0d 1d 92 25  20 20 20 20 f2 64 65 63  | . 1...%    .dec|
00005240  6f 64 65 6d 65 6e 75 28  64 61 74 61 6d 25 2c 20  |odemenu(datam%, |
00005250  6d 65 6e 75 73 25 2b 34  29 0d 1d 9c 0a 20 20 20  |menus%+4)....   |
00005260  c9 20 32 0d 1d a6 1f 20  20 20 20 58 4f 4e 5f 6e  |. 2....    XON_n|
00005270  65 77 25 20 3d 20 58 4f  4e 5f 6e 65 77 25 20 82  |ew% = XON_new% .|
00005280  20 31 0d 1d b0 26 20 20  20 20 f2 73 65 74 5f 74  | 1...&    .set_t|
00005290  69 63 6b 28 73 65 72 69  61 6c 6d 25 2c 32 2c 58  |ick(serialm%,2,X|
000052a0  4f 4e 5f 6e 65 77 25 29  0d 1d ba 07 20 20 cb 0d  |ON_new%)....  ..|
000052b0  1d c4 0d 20 c9 20 62 61  75 64 6d 25 0d 1d ce 17  |... . baudm%....|
000052c0  20 20 e7 20 21 6d 65 6e  75 73 25 20 3c 3e 20 2d  |  . !menus% <> -|
000052d0  31 20 8c 0d 1d d8 23 20  20 20 f2 74 69 63 6b 69  |1 ....#   .ticki|
000052e0  74 28 62 61 75 64 6d 25  2c 20 21 6d 65 6e 75 73  |t(baudm%, !menus|
000052f0  25 2c 20 31 34 29 0d 1d  e2 18 20 20 20 62 61 75  |%, 14)....   bau|
00005300  64 5f 6e 65 77 25 3d 21  6d 65 6e 75 73 25 0d 1d  |d_new%=!menus%..|
00005310  ec 07 20 20 cd 0d 1d f6  0d 20 c9 20 64 61 74 61  |..  ..... . data|
00005320  6d 25 0d 1e 00 12 20 20  c8 8e 20 21 6d 65 6e 75  |m%....  .. !menu|
00005330  73 25 20 ca 0d 1e 0a 0a  20 20 20 c9 20 30 0d 1e  |s% .....   . 0..|
00005340  14 25 20 20 20 20 f2 64  65 63 6f 64 65 6d 65 6e  |.%    .decodemen|
00005350  75 28 62 69 74 73 6d 25  2c 20 6d 65 6e 75 73 25  |u(bitsm%, menus%|
00005360  2b 34 29 0d 1e 1e 0a 20  20 20 c9 20 31 0d 1e 28  |+4)....   . 1..(|
00005370  27 20 20 20 20 f2 64 65  63 6f 64 65 6d 65 6e 75  |'    .decodemenu|
00005380  28 70 61 72 69 74 79 6d  25 2c 20 6d 65 6e 75 73  |(paritym%, menus|
00005390  25 2b 34 29 0d 1e 32 0a  20 20 20 c9 20 32 0d 1e  |%+4)..2.   . 2..|
000053a0  3c 25 20 20 20 20 f2 64  65 63 6f 64 65 6d 65 6e  |<%    .decodemen|
000053b0  75 28 73 74 6f 70 6d 25  2c 20 6d 65 6e 75 73 25  |u(stopm%, menus%|
000053c0  2b 34 29 0d 1e 46 07 20  20 cb 0d 1e 50 0d 20 c9  |+4)..F.  ...P. .|
000053d0  20 62 69 74 73 6d 25 0d  1e 5a 17 20 20 e7 20 21  | bitsm%..Z.  . !|
000053e0  6d 65 6e 75 73 25 20 3c  3e 20 2d 31 20 8c 0d 1e  |menus% <> -1 ...|
000053f0  64 30 20 20 20 64 61 74  61 5f 6e 65 77 25 3d 28  |d0   data_new%=(|
00005400  64 61 74 61 5f 6e 65 77  25 20 80 20 25 31 31 31  |data_new% . %111|
00005410  31 30 30 29 2b 33 2d 21  6d 65 6e 75 73 25 0d 1e  |100)+3-!menus%..|
00005420  6e 22 20 20 20 f2 74 69  63 6b 69 74 28 62 69 74  |n"   .tickit(bit|
00005430  73 6d 25 2c 20 21 6d 65  6e 75 73 25 2c 20 33 29  |sm%, !menus%, 3)|
00005440  0d 1e 78 07 20 20 cd 0d  1e 82 0f 20 c9 20 70 61  |..x.  ..... . pa|
00005450  72 69 74 79 6d 25 0d 1e  8c 17 20 20 e7 20 21 6d  |ritym%....  . !m|
00005460  65 6e 75 73 25 20 3c 3e  20 2d 31 20 8c 0d 1e 96  |enus% <> -1 ....|
00005470  12 20 20 20 e7 20 21 6d  65 6e 75 73 25 20 8c 0d  |.   . !menus% ..|
00005480  1e a0 39 20 20 20 20 64  61 74 61 5f 6e 65 77 25  |..9    data_new%|
00005490  20 3d 20 28 64 61 74 61  5f 6e 65 77 25 20 80 20  | = (data_new% . |
000054a0  25 31 31 31 29 2b 38 2b  28 28 21 6d 65 6e 75 73  |%111)+8+((!menus|
000054b0  25 2d 31 29 3c 3c 34 29  0d 1e aa 08 20 20 20 cc  |%-1)<<4)....   .|
000054c0  0d 1e b4 27 20 20 20 20  64 61 74 61 5f 6e 65 77  |...'    data_new|
000054d0  25 20 3d 20 64 61 74 61  5f 6e 65 77 25 20 80 20  |% = data_new% . |
000054e0  ac 28 31 3c 3c 33 29 0d  1e be 08 20 20 20 cd 0d  |.(1<<3)....   ..|
000054f0  1e c8 24 20 20 20 f2 74  69 63 6b 69 74 28 70 61  |..$   .tickit(pa|
00005500  72 69 74 79 6d 25 2c 20  21 6d 65 6e 75 73 25 2c  |ritym%, !menus%,|
00005510  20 34 29 0d 1e d2 07 20  20 cd 0d 1e dc 0d 20 c9  | 4)....  ..... .|
00005520  20 73 74 6f 70 6d 25 0d  1e e6 17 20 20 e7 20 21  | stopm%....  . !|
00005530  6d 65 6e 75 73 25 20 3c  3e 20 2d 31 20 8c 0d 1e  |menus% <> -1 ...|
00005540  f0 35 20 20 20 64 61 74  61 5f 6e 65 77 25 3d 28  |.5   data_new%=(|
00005550  64 61 74 61 5f 6e 65 77  25 20 80 20 25 31 31 31  |data_new% . %111|
00005560  30 31 31 29 20 82 20 28  21 6d 65 6e 75 73 25 3c  |011) . (!menus%<|
00005570  3c 32 29 0d 1e fa 22 20  20 20 f2 74 69 63 6b 69  |<2)..."   .ticki|
00005580  74 28 73 74 6f 70 6d 25  2c 20 21 6d 65 6e 75 73  |t(stopm%, !menus|
00005590  25 2c 20 31 29 0d 1f 04  07 20 20 cd 0d 1f 0e 05  |%, 1)....  .....|
000055a0  cb 0d 1f 18 10 f2 75 70  64 61 74 65 5f 69 63 6f  |......update_ico|
000055b0  6e 0d 1f 22 05 e1 0d 1f  2c 05 3a 0d 1f 36 26 dd  |n.."....,.:..6&.|
000055c0  20 f2 75 70 64 61 74 65  5f 61 6e 79 5f 69 63 6f  | .update_any_ico|
000055d0  6e 28 77 69 6e 64 6f 77  25 2c 20 69 63 6f 6e 25  |n(window%, icon%|
000055e0  29 0d 1f 40 17 62 6c 6f  63 6b 25 21 30 20 20 3d  |)..@.block%!0  =|
000055f0  20 77 69 6e 64 6f 77 25  0d 1f 4a 15 62 6c 6f 63  | window%..J.bloc|
00005600  6b 25 21 34 20 20 3d 20  69 63 6f 6e 25 0d 1f 54  |k%!4  = icon%..T|
00005610  11 62 6c 6f 63 6b 25 21  38 20 20 3d 20 30 0d 1f  |.block%!8  = 0..|
00005620  5e 11 62 6c 6f 63 6b 25  21 31 32 20 3d 20 30 0d  |^.block%!12 = 0.|
00005630  1f 68 22 c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |.h".. "Wimp_SetI|
00005640  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
00005650  25 0d 1f 72 05 e1 0d 1f  7c 05 3a 0d 1f 86 12 dd  |%..r....|.:.....|
00005660  20 f2 75 70 64 61 74 65  5f 69 63 6f 6e 0d 1f 90  | .update_icon...|
00005670  21 f2 75 70 64 61 74 65  5f 61 6e 79 5f 69 63 6f  |!.update_any_ico|
00005680  6e 28 2d 32 2c 69 63 70  72 69 6e 74 25 29 0d 1f  |n(-2,icprint%)..|
00005690  9a 05 e1 0d 1f a4 05 3a  0d 1f ae 24 dd 20 f2 74  |.......:...$. .t|
000056a0  69 63 6b 69 74 28 6d 65  6e 75 25 2c 20 69 74 65  |ickit(menu%, ite|
000056b0  6d 25 2c 20 6e 69 74 65  6d 73 25 29 0d 1f b8 08  |m%, nitems%)....|
000056c0  ea 20 49 25 0d 1f c2 14  e3 20 49 25 3d 30 20 b8  |. I%..... I%=0 .|
000056d0  20 6e 69 74 65 6d 73 25  0d 1f cc 1d 20 20 f2 73  | nitems%....  .s|
000056e0  65 74 5f 74 69 63 6b 28  6d 65 6e 75 25 2c 20 49  |et_tick(menu%, I|
000056f0  25 2c 20 30 29 0d 1f d6  05 ed 0d 1f e0 1e f2 73  |%, 0)..........s|
00005700  65 74 5f 74 69 63 6b 28  6d 65 6e 75 25 2c 20 69  |et_tick(menu%, i|
00005710  74 65 6d 25 2c 20 31 29  0d 1f ea 05 e1 0d 1f f4  |tem%, 1)........|
00005720  05 3a 0d 1f fe 10 dd 20  f2 66 72 6f 6e 74 28 68  |.:..... .front(h|
00005730  25 29 0d 20 08 0a 21 71  25 3d 68 25 0d 20 12 2b  |%). ..!q%=h%. .+|
00005740  c8 99 20 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.. "Wimp_GetWind|
00005750  6f 77 53 74 61 74 65 22  2c 2c 71 25 20 3a 20 71  |owState",,q% : q|
00005760  25 21 32 38 3d 2d 31 0d  20 1c 1c c8 99 20 22 57  |%!28=-1. .... "W|
00005770  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00005780  2c 71 25 0d 20 26 05 e1  0d 20 30 05 3a 0d 20 3a  |,q%. &... 0.:. :|
00005790  37 dd 20 f2 6f 70 65 6e  28 68 61 6e 64 6c 65 25  |7. .open(handle%|
000057a0  2c 78 30 25 2c 79 30 25  2c 78 31 25 2c 79 31 25  |,x0%,y0%,x1%,y1%|
000057b0  2c 73 63 78 25 2c 73 63  79 25 2c 62 68 61 6e 64  |,scx%,scy%,bhand|
000057c0  6c 65 25 29 0d 20 44 0f  21 71 25 3d 68 61 6e 64  |le%). D.!q%=hand|
000057d0  6c 65 25 0d 20 4e 29 71  25 21 34 3d 78 30 25 3a  |le%. N)q%!4=x0%:|
000057e0  71 25 21 38 3d 79 30 25  3a 71 25 21 31 32 3d 78  |q%!8=y0%:q%!12=x|
000057f0  31 25 3a 71 25 21 31 36  3d 79 31 25 0d 20 58 19  |1%:q%!16=y1%. X.|
00005800  71 25 21 32 30 3d 73 63  78 25 3a 71 25 21 32 34  |q%!20=scx%:q%!24|
00005810  3d 73 63 79 25 0d 20 62  12 71 25 21 32 38 3d 62  |=scy%. b.q%!28=b|
00005820  68 61 6e 64 6c 65 25 0d  20 6c 1c c8 99 20 22 57  |handle%. l... "W|
00005830  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00005840  2c 71 25 0d 20 76 05 e1  0d 20 80 05 3a 0d 20 8a  |,q%. v... ..:. .|
00005850  21 dd 20 f2 73 65 74 5f  70 73 77 5f 69 63 6f 6e  |!. .set_psw_icon|
00005860  28 69 63 6f 6e 25 2c 76  61 6c 75 65 24 29 0d 20  |(icon%,value$). |
00005870  94 08 ea 20 41 25 0d 20  9e 21 41 25 3d a4 69 63  |... A%. .!A%=.ic|
00005880  6f 6e 61 64 64 72 28 70  61 67 65 73 69 7a 65 25  |onaddr(pagesize%|
00005890  2c 69 63 6f 6e 25 29 0d  20 a8 0e 24 41 25 3d 76  |,icon%). ..$A%=v|
000058a0  61 6c 75 65 24 0d 20 b2  25 f2 75 70 64 61 74 65  |alue$. .%.update|
000058b0  5f 61 6e 79 5f 69 63 6f  6e 28 70 61 67 65 73 69  |_any_icon(pagesi|
000058c0  7a 65 25 2c 69 63 6f 6e  25 29 0d 20 bc 26 c8 99  |ze%,icon%). .&..|
000058d0  20 22 57 69 6d 70 5f 47  65 74 43 61 72 65 74 50  | "Wimp_GetCaretP|
000058e0  6f 73 69 74 69 6f 6e 22  2c 2c 62 6c 6f 63 6b 25  |osition",,block%|
000058f0  0d 20 c6 2a e7 20 21 62  6c 6f 63 6b 25 3d 70 61  |. .*. !block%=pa|
00005900  67 65 73 69 7a 65 25 20  80 20 62 6c 6f 63 6b 25  |gesize% . block%|
00005910  21 34 3d 69 63 6f 6e 25  20 8c 0d 20 d0 0f 20 41  |!4=icon% .. .. A|
00005920  25 3d a9 76 61 6c 75 65  24 0d 20 da 22 20 e7 20  |%=.value$. ." . |
00005930  62 6c 6f 63 6b 25 21 32  30 3c 41 25 20 8c 20 41  |block%!20<A% . A|
00005940  25 3d 62 6c 6f 63 6b 25  21 32 30 0d 20 e4 36 20  |%=block%!20. .6 |
00005950  c8 99 22 57 69 6d 70 5f  53 65 74 43 61 72 65 74  |.."Wimp_SetCaret|
00005960  50 6f 73 69 74 69 6f 6e  22 2c 70 61 67 65 73 69  |Position",pagesi|
00005970  7a 65 25 2c 69 63 6f 6e  25 2c 2c 2c 2d 31 2c 41  |ze%,icon%,,,-1,A|
00005980  25 0d 20 ee 05 cd 0d 20  f8 05 e1 0d 21 02 05 3a  |%. .... ....!..:|
00005990  0d 21 0c 29 dd 20 f2 73  65 74 5f 6e 75 6d 65 72  |.!.). .set_numer|
000059a0  69 63 5f 70 73 77 5f 69  63 6f 6e 28 69 63 6f 6e  |ic_psw_icon(icon|
000059b0  25 2c 76 61 6c 75 65 25  29 0d 21 16 07 ea 40 25  |%,value%).!...@%|
000059c0  0d 21 20 10 40 25 3d 26  30 31 30 32 30 31 30 41  |.! .@%=&0102010A|
000059d0  0d 21 2a 2e f2 73 65 74  5f 70 73 77 5f 69 63 6f  |.!*..set_psw_ico|
000059e0  6e 28 69 63 6f 6e 25 2c  c3 28 76 61 6c 75 65 25  |n(icon%,.(value%|
000059f0  2f 6d 6d 5f 74 6f 5f 37  32 30 30 30 29 29 0d 21  |/mm_to_72000)).!|
00005a00  34 05 e1 0d 21 3e 05 3a  0d 21 48 1a dd 20 f2 73  |4...!>.:.!H.. .s|
00005a10  65 74 5f 70 61 67 65 73  69 7a 65 5f 77 69 6e 64  |et_pagesize_wind|
00005a20  6f 77 0d 21 52 0b ea 20  50 25 2c 56 25 0d 21 5c  |ow.!R.. P%,V%.!\|
00005a30  13 50 25 3d 70 61 67 65  5f 6e 75 6d 62 65 72 25  |.P%=page_number%|
00005a40  0d 21 66 3b f2 73 65 74  5f 70 73 77 5f 69 63 6f  |.!f;.set_psw_ico|
00005a50  6e 28 70 73 77 5f 6e 61  6d 65 5f 69 63 6f 6e 25  |n(psw_name_icon%|
00005a60  2c 70 61 67 65 5f 6e 61  6d 65 73 24 28 70 61 67  |,page_names$(pag|
00005a70  65 5f 6e 75 6d 62 65 72  25 29 29 0d 21 70 4d f2  |e_number%)).!pM.|
00005a80  73 65 74 5f 6e 75 6d 65  72 69 63 5f 70 73 77 5f  |set_numeric_psw_|
00005a90  69 63 6f 6e 28 70 73 77  5f 68 65 69 67 68 74 5f  |icon(psw_height_|
00005aa0  69 63 6f 6e 25 2c 70 61  67 65 5f 64 65 73 63 25  |icon%,page_desc%|
00005ab0  28 50 25 2c 70 61 67 65  5f 68 65 69 67 68 74 5f  |(P%,page_height_|
00005ac0  66 69 65 6c 64 25 29 29  0d 21 7a 4c f2 73 65 74  |field%)).!zL.set|
00005ad0  5f 6e 75 6d 65 72 69 63  5f 70 73 77 5f 69 63 6f  |_numeric_psw_ico|
00005ae0  6e 28 70 73 77 5f 77 69  64 74 68 5f 69 63 6f 6e  |n(psw_width_icon|
00005af0  25 2c 20 70 61 67 65 5f  64 65 73 63 25 28 50 25  |%, page_desc%(P%|
00005b00  2c 70 61 67 65 5f 77 69  64 74 68 5f 66 69 65 6c  |,page_width_fiel|
00005b10  64 25 29 29 0d 21 84 4d  f2 73 65 74 5f 6e 75 6d  |d%)).!.M.set_num|
00005b20  65 72 69 63 5f 70 73 77  5f 69 63 6f 6e 28 70 73  |eric_psw_icon(ps|
00005b30  77 5f 62 6f 74 74 6f 6d  5f 69 63 6f 6e 25 2c 70  |w_bottom_icon%,p|
00005b40  61 67 65 5f 64 65 73 63  25 28 50 25 2c 70 61 67  |age_desc%(P%,pag|
00005b50  65 5f 62 6f 74 74 6f 6d  5f 66 69 65 6c 64 25 29  |e_bottom_field%)|
00005b60  29 0d 21 8e 4b f2 73 65  74 5f 6e 75 6d 65 72 69  |).!.K.set_numeri|
00005b70  63 5f 70 73 77 5f 69 63  6f 6e 28 70 73 77 5f 6c  |c_psw_icon(psw_l|
00005b80  65 66 74 5f 69 63 6f 6e  25 2c 20 20 70 61 67 65  |eft_icon%,  page|
00005b90  5f 64 65 73 63 25 28 50  25 2c 70 61 67 65 5f 6c  |_desc%(P%,page_l|
00005ba0  65 66 74 5f 66 69 65 6c  64 25 29 29 0d 21 98 47  |eft_field%)).!.G|
00005bb0  56 25 3d 70 61 67 65 5f  64 65 73 63 25 28 50 25  |V%=page_desc%(P%|
00005bc0  2c 70 61 67 65 5f 68 65  69 67 68 74 5f 66 69 65  |,page_height_fie|
00005bd0  6c 64 25 29 2d 70 61 67  65 5f 64 65 73 63 25 28  |ld%)-page_desc%(|
00005be0  50 25 2c 70 61 67 65 5f  74 6f 70 5f 66 69 65 6c  |P%,page_top_fiel|
00005bf0  64 25 29 0d 21 a2 2e f2  73 65 74 5f 6e 75 6d 65  |d%).!...set_nume|
00005c00  72 69 63 5f 70 73 77 5f  69 63 6f 6e 28 70 73 77  |ric_psw_icon(psw|
00005c10  5f 74 6f 70 5f 69 63 6f  6e 25 2c 20 20 20 56 25  |_top_icon%,   V%|
00005c20  29 0d 21 ac 48 56 25 3d  70 61 67 65 5f 64 65 73  |).!.HV%=page_des|
00005c30  63 25 28 50 25 2c 70 61  67 65 5f 77 69 64 74 68  |c%(P%,page_width|
00005c40  5f 66 69 65 6c 64 25 29  2d 70 61 67 65 5f 64 65  |_field%)-page_de|
00005c50  73 63 25 28 50 25 2c 70  61 67 65 5f 72 69 67 68  |sc%(P%,page_righ|
00005c60  74 5f 66 69 65 6c 64 25  29 0d 21 b6 2e f2 73 65  |t_field%).!...se|
00005c70  74 5f 6e 75 6d 65 72 69  63 5f 70 73 77 5f 69 63  |t_numeric_psw_ic|
00005c80  6f 6e 28 70 73 77 5f 72  69 67 68 74 5f 69 63 6f  |on(psw_right_ico|
00005c90  6e 25 2c 20 56 25 29 0d  21 c0 0c e3 20 49 25 3d  |n%, V%).!... I%=|
00005ca0  30 b8 32 0d 21 ca 54 f2  73 65 74 5f 69 63 6f 6e  |0.2.!.T.set_icon|
00005cb0  5f 73 74 61 74 65 28 70  61 67 65 73 69 7a 65 25  |_state(pagesize%|
00005cc0  2c 70 73 77 5f 70 61 67  65 31 5f 69 63 6f 6e 25  |,psw_page1_icon%|
00005cd0  2b 49 25 2c 20 28 31 3c  3c 32 31 29 20 80 20 28  |+I%, (1<<21) . (|
00005ce0  49 25 3d 70 61 67 65 5f  6e 75 6d 62 65 72 25 29  |I%=page_number%)|
00005cf0  2c 31 3c 3c 32 31 29 0d  21 d4 05 ed 0d 21 de 05  |,1<<21).!....!..|
00005d00  e1 0d 21 e8 05 3a 0d 21  f2 15 dd 20 f2 63 6c 6f  |..!..:.!... .clo|
00005d10  73 65 28 68 61 6e 64 6c  65 25 29 0d 21 fc 29 21  |se(handle%).!.)!|
00005d20  71 25 3d 68 61 6e 64 6c  65 25 3a c8 99 20 22 57  |q%=handle%:.. "W|
00005d30  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
00005d40  2c 2c 71 25 0d 22 06 05  e1 0d 22 10 05 3a 0d 22  |,,q%."...."..:."|
00005d50  1a 11 dd 20 a4 77 69 6e  64 6f 77 28 61 24 29 0d  |... .window(a$).|
00005d60  22 24 08 ea 20 63 25 0d  22 2e 48 c8 99 20 22 57  |"$.. c%.".H.. "W|
00005d70  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00005d80  22 2c 2c 71 25 2c 63 75  72 62 75 66 25 2c 65 6e  |",,q%,curbuf%,en|
00005d90  64 62 75 66 25 2c 2d 31  2c 61 24 2c 30 20 b8 20  |dbuf%,-1,a$,0 . |
00005da0  2c 2c 63 75 72 62 75 66  25 2c 2c 2c 2c 63 25 0d  |,,curbuf%,,,,c%.|
00005db0  22 38 31 e7 20 63 25 3d  30 20 8c 20 f2 6d 6f 61  |"81. c%=0 . .moa|
00005dc0  6e 28 22 54 65 6d 70 6c  61 74 65 20 27 22 2b 61  |n("Template '"+a|
00005dd0  24 2b 22 27 20 6e 6f 74  20 66 6f 75 6e 64 22 29  |$+"' not found")|
00005de0  0d 22 42 23 c8 99 20 22  57 69 6d 70 5f 43 72 65  |."B#.. "Wimp_Cre|
00005df0  61 74 65 57 69 6e 64 6f  77 22 2c 2c 71 25 20 b8  |ateWindow",,q% .|
00005e00  20 63 25 0d 22 4c 07 3d  63 25 0d 22 56 05 3a 0d  | c%."L.=c%."V.:.|
00005e10  22 60 16 dd 20 a4 69 63  6f 6e 61 64 64 72 28 68  |"`.. .iconaddr(h|
00005e20  25 2c 69 25 29 0d 22 6a  2d 21 71 25 3d 68 25 3a  |%,i%)."j-!q%=h%:|
00005e30  71 25 21 34 3d 69 25 3a  c8 99 20 22 57 69 6d 70  |q%!4=i%:.. "Wimp|
00005e40  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00005e50  71 25 0d 22 74 38 e7 20  28 71 25 21 32 34 20 80  |q%."t8. (q%!24 .|
00005e60  20 26 31 30 30 29 3d 30  20 8c 20 f2 6d 6f 61 6e  | &100)=0 . .moan|
00005e70  28 22 49 63 6f 6e 20 69  73 20 6e 6f 74 20 69 6e  |("Icon is not in|
00005e80  64 69 72 65 63 74 65 64  22 29 0d 22 7e 0a 3d 71  |directed")."~.=q|
00005e90  25 21 32 38 0d 22 88 05  3a 0d 22 92 0f dd 20 f2  |%!28."..:."... .|
00005ea0  6d 65 6e 75 28 6d 25 29  0d 22 9c 08 ea 20 59 25  |menu(m%)."... Y%|
00005eb0  0d 22 a6 10 59 25 20 3d  20 6d 6f 75 73 65 79 25  |."..Y% = mousey%|
00005ec0  0d 22 b0 14 e7 59 25 3c  35 34 30 20 8c 20 59 25  |."...Y%<540 . Y%|
00005ed0  3d 35 34 30 0d 22 ba 12  6d 65 6e 75 68 61 6e 64  |=540."..menuhand|
00005ee0  6c 65 25 3d 6d 25 0d 22  c4 33 c8 99 20 22 57 69  |le%=m%.".3.. "Wi|
00005ef0  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00005f00  6d 65 6e 75 68 61 6e 64  6c 65 25 2c 6d 6f 75 73  |menuhandle%,mous|
00005f10  65 78 25 2d 36 34 2c 59  25 0d 22 ce 05 e1 0d 22  |ex%-64,Y%."...."|
00005f20  d8 05 3a 0d 22 e2 0d dd  20 f2 72 65 6d 65 6e 75  |..:."... .remenu|
00005f30  0d 22 ec 08 ea 20 59 25  0d 22 f6 10 59 25 20 3d  |."... Y%."..Y% =|
00005f40  20 6d 6f 75 73 65 79 25  0d 23 00 19 e7 20 59 25  | mousey%.#... Y%|
00005f50  20 3c 20 33 30 30 20 8c  20 59 25 20 3d 20 33 31  | < 300 . Y% = 31|
00005f60  36 0d 23 0a 45 c8 99 20  22 57 69 6d 70 5f 43 72  |6.#.E.. "Wimp_Cr|
00005f70  65 61 74 65 4d 65 6e 75  22 2c 2c 6d 65 6e 75 68  |eateMenu",,menuh|
00005f80  61 6e 64 6c 65 25 2c 6d  6f 75 73 65 78 25 2d 36  |andle%,mousex%-6|
00005f90  34 2c 59 25 20 3a f4 20  64 65 66 61 75 6c 74 20  |4,Y% :. default |
00005fa0  63 6f 6f 72 64 73 0d 23  14 05 e1 0d 23 1e 05 3a  |coords.#....#..:|
00005fb0  0d 23 28 14 dd 20 a4 63  72 6d 65 6e 75 28 6d 65  |.#(.. .crmenu(me|
00005fc0  6e 75 24 29 0d 23 32 37  e7 20 6d 65 6e 75 66 72  |nu$).#27. menufr|
00005fd0  65 65 25 2b 32 38 20 3e  20 6d 65 6e 75 65 6e 64  |ee%+28 > menuend|
00005fe0  25 20 8c 20 f2 6d 6f 61  6e 28 22 4d 65 6e 75 20  |% . .moan("Menu |
00005ff0  61 72 65 61 20 66 75 6c  6c 22 29 0d 23 3c 0b ea  |area full").#<..|
00006000  20 6d 25 2c 69 25 0d 23  46 16 6d 65 6e 75 70 74  | m%,i%.#F.menupt|
00006010  72 25 3d 6d 65 6e 75 66  72 65 65 25 0d 23 50 08  |r%=menufree%.#P.|
00006020  69 25 3d 30 0d 23 5a 3f  e7 20 c0 6d 65 6e 75 24  |i%=0.#Z?. .menu$|
00006030  2c 31 29 3d 22 23 22 20  8c 20 69 25 3d 31 3a 6d  |,1)="#" . i%=1:m|
00006040  65 6e 75 74 69 74 6c 65  24 3d a4 70 61 72 28 22  |enutitle$=.par("|
00006050  3b 22 29 20 8b 20 6d 65  6e 75 74 69 74 6c 65 24  |;") . menutitle$|
00006060  3d 22 22 0d 23 64 18 24  6d 65 6e 75 70 74 72 25  |="".#d.$menuptr%|
00006070  3d 6d 65 6e 75 74 69 74  6c 65 24 0d 23 6e 4a 6d  |=menutitle$.#nJm|
00006080  65 6e 75 70 74 72 25 3f  31 32 3d 60 74 66 63 6f  |enuptr%?12=`tfco|
00006090  6c 3a 6d 65 6e 75 70 74  72 25 3f 31 33 3d 32 3a  |l:menuptr%?13=2:|
000060a0  6d 65 6e 75 70 74 72 25  3f 31 34 3d 60 77 66 63  |menuptr%?14=`wfc|
000060b0  6f 6c 3a 6d 65 6e 75 70  74 72 25 3f 31 35 3d 60  |ol:menuptr%?15=`|
000060c0  77 62 63 6f 6c 0d 23 78  33 6d 65 6e 75 70 74 72  |wbcol.#x3menuptr|
000060d0  25 21 31 36 3d 31 39 36  2d 32 34 3a 6d 65 6e 75  |%!16=196-24:menu|
000060e0  70 74 72 25 21 32 30 3d  34 34 3a 6d 65 6e 75 70  |ptr%!20=44:menup|
000060f0  74 72 25 21 32 34 3d 30  0d 23 82 24 6d 65 6e 75  |tr%!24=0.#.$menu|
00006100  70 74 72 25 2b 3d 32 38  3a 6d 61 78 78 25 3d a9  |ptr%+=28:maxx%=.|
00006110  6d 65 6e 75 74 69 74 6c  65 24 2d 33 0d 23 8c 31  |menutitle$-3.#.1|
00006120  f5 20 69 74 65 6d 24 3d  a4 70 61 72 28 22 3b 22  |. item$=.par(";"|
00006130  29 3a f2 6d 65 6e 75 69  74 65 6d 28 69 74 65 6d  |):.menuitem(item|
00006140  24 29 3a fd 20 69 74 65  6d 24 3d 22 22 0d 23 96  |$):. item$="".#.|
00006150  24 6d 25 3d 6d 65 6e 75  66 72 65 65 25 3a 6d 25  |$m%=menufree%:m%|
00006160  21 31 36 3d 28 6d 61 78  78 25 2a 38 2b 36 29 2a  |!16=(maxx%*8+6)*|
00006170  32 0d 23 a0 16 6d 65 6e  75 66 72 65 65 25 3d 6d  |2.#..menufree%=m|
00006180  65 6e 75 70 74 72 25 0d  23 aa 07 3d 6d 25 0d 23  |enuptr%.#..=m%.#|
00006190  b4 05 3a 0d 23 be 16 dd  20 f2 6d 65 6e 75 69 74  |..:.#... .menuit|
000061a0  65 6d 28 74 65 78 74 24  29 0d 23 c8 32 e7 20 74  |em(text$).#.2. t|
000061b0  65 78 74 24 3d 22 22 20  8c 20 6d 65 6e 75 70 74  |ext$="" . menupt|
000061c0  72 25 21 2d 32 34 3d 28  6d 65 6e 75 70 74 72 25  |r%!-24=(menuptr%|
000061d0  21 2d 32 34 29 84 26 38  30 3a e1 0d 23 d2 36 e7  |!-24).&80:..#.6.|
000061e0  20 6d 65 6e 75 70 74 72  25 2b 32 34 20 3e 20 6d  | menuptr%+24 > m|
000061f0  65 6e 75 65 6e 64 25 20  8c 20 f2 6d 6f 61 6e 28  |enuend% . .moan(|
00006200  22 4d 65 6e 75 20 61 72  65 61 20 66 75 6c 6c 22  |"Menu area full"|
00006210  29 0d 23 dc 0f ea 69 25  2c 66 6c 67 25 2c 56 25  |).#...i%,flg%,V%|
00006220  0d 23 e6 0c 66 6c 67 25  3d 26 30 30 0d 23 f0 12  |.#..flg%=&00.#..|
00006230  69 25 3d a7 74 65 78 74  24 2c 22 3e 22 29 0d 23  |i%=.text$,">").#|
00006240  fa 36 e7 20 c2 74 65 78  74 24 2c 31 29 3d 22 23  |.6. .text$,1)="#|
00006250  22 20 8c 20 74 65 78 74  24 3d c0 74 65 78 74 24  |" . text$=.text$|
00006260  2c a9 74 65 78 74 24 2d  31 29 3a 66 6c 67 25 2b  |,.text$-1):flg%+|
00006270  3d 26 30 32 0d 24 04 3d  e7 69 25 3e 30 8c 73 75  |=&02.$.=.i%>0.su|
00006280  62 70 74 72 25 3d a0 c1  74 65 78 74 24 2c 69 25  |bptr%=..text$,i%|
00006290  2b 31 29 3a 74 65 78 74  24 3d c0 74 65 78 74 24  |+1):text$=.text$|
000062a0  2c 69 25 2d 31 29 8b 73  75 62 70 74 72 25 3d 2d  |,i%-1).subptr%=-|
000062b0  31 0d 24 0e 13 6d 65 6e  75 70 74 72 25 21 30 3d  |1.$..menuptr%!0=|
000062c0  66 6c 67 25 0d 24 18 16  6d 65 6e 75 70 74 72 25  |flg%.$..menuptr%|
000062d0  21 34 3d 73 75 62 70 74  72 25 0d 24 22 18 6d 65  |!4=subptr%.$".me|
000062e0  6e 75 70 74 72 25 21 38  3d 26 30 37 30 30 30 30  |nuptr%!8=&070000|
000062f0  32 31 0d 24 2c 13 e7 c0  74 65 78 74 24 2c 31 29  |21.$,...text$,1)|
00006300  3d 22 24 22 8c 0d 24 36  13 20 21 6d 65 6e 75 70  |="$"..$6. !menup|
00006310  74 72 25 2b 3d 26 30 34  0d 24 40 15 20 6d 65 6e  |tr%+=&04.$@. men|
00006320  75 70 74 72 25 21 38 2b  3d 26 31 30 38 0d 24 4a  |uptr%!8+=&108.$J|
00006330  13 20 69 25 3d a7 74 65  78 74 24 2c 22 28 22 29  |. i%=.text$,"(")|
00006340  0d 24 54 34 20 e7 69 25  3e 30 8c 4c 25 3d bb c1  |.$T4 .i%>0.L%=..|
00006350  74 65 78 74 24 2c 69 25  2b 31 29 3a 74 65 78 74  |text$,i%+1):text|
00006360  24 3d c0 74 65 78 74 24  2c 69 25 2d 31 29 8b 4c  |$=.text$,i%-1).L|
00006370  25 3d 31 32 0d 24 5e 0c  20 56 25 20 3d 20 2d 31  |%=12.$^. V% = -1|
00006380  0d 24 68 1b 20 6d 65 6e  75 70 74 72 25 21 31 32  |.$h. menuptr%!12|
00006390  3d a0 c1 74 65 78 74 24  2c 32 29 0d 24 72 13 20  |=..text$,2).$r. |
000063a0  6d 65 6e 75 70 74 72 25  21 31 36 3d 2d 31 0d 24  |menuptr%!16=-1.$|
000063b0  7c 13 20 6d 65 6e 75 70  74 72 25 21 32 30 3d 4c  ||. menuptr%!20=L|
000063c0  25 0d 24 86 13 20 74 65  78 74 24 3d c4 4c 25 2c  |%.$.. text$=.L%,|
000063d0  22 20 22 29 0d 24 90 1a  20 e7 20 6d 61 78 78 25  |" ").$.. . maxx%|
000063e0  3c 32 30 20 8c 20 6d 61  78 78 25 3d 32 30 0d 24  |<20 . maxx%=20.$|
000063f0  9a 05 cc 0d 24 a4 14 20  e7 c0 74 65 78 74 24 2c  |....$.. ..text$,|
00006400  31 29 3d 22 21 22 8c 0d  24 ae 1c 20 20 74 65 78  |1)="!"..$..  tex|
00006410  74 24 3d c2 74 65 78 74  24 2c a9 74 65 78 74 24  |t$=.text$,.text$|
00006420  2d 31 29 0d 24 b8 32 20  20 21 6d 65 6e 75 70 74  |-1).$.2  !menupt|
00006430  72 25 2b 3d 26 30 38 3a  20 f4 20 67 65 74 20 77  |r%+=&08: . get w|
00006440  61 72 6e 69 6e 67 20 77  68 65 6e 20 69 74 20 6f  |arning when it o|
00006450  70 65 6e 73 2e 0d 24 c2  06 20 cd 0d 24 cc 11 20  |pens..$.. ..$.. |
00006460  e7 a9 74 65 78 74 24 3c  3d 31 32 8c 0d 24 d6 1a  |..text$<=12..$..|
00006470  20 20 24 28 6d 65 6e 75  70 74 72 25 2b 31 32 29  |  $(menuptr%+12)|
00006480  3d 74 65 78 74 24 0d 24  e0 28 20 cc 20 49 25 3d  |=text$.$.( . I%=|
00006490  a4 77 6f 72 6b 73 70 61  63 65 28 a9 74 65 78 74  |.workspace(.text|
000064a0  24 2b 31 29 3a 24 49 25  3d 74 65 78 74 24 0d 24  |$+1):$I%=text$.$|
000064b0  ea 38 20 20 6d 65 6e 75  70 74 72 25 21 31 32 3d  |.8  menuptr%!12=|
000064c0  49 25 3a 6d 65 6e 75 70  74 72 25 21 31 36 3d 2d  |I%:menuptr%!16=-|
000064d0  31 3a 6d 65 6e 75 70 74  72 25 21 32 30 3d a9 74  |1:menuptr%!20=.t|
000064e0  65 78 74 24 2b 31 0d 24  f4 22 20 20 6d 65 6e 75  |ext$+1.$."  menu|
000064f0  70 74 72 25 21 38 3d 6d  65 6e 75 70 74 72 25 21  |ptr%!8=menuptr%!|
00006500  38 20 84 20 26 31 30 30  0d 24 fe 06 20 cd 0d 25  |8 . &100.$.. ..%|
00006510  08 1f e7 a9 74 65 78 74  24 3e 6d 61 78 78 25 20  |....text$>maxx% |
00006520  8c 6d 61 78 78 25 3d a9  74 65 78 74 24 0d 25 12  |.maxx%=.text$.%.|
00006530  05 cd 0d 25 1c 10 6d 65  6e 75 70 74 72 25 2b 3d  |...%..menuptr%+=|
00006540  32 34 0d 25 26 05 e1 0d  25 30 05 3a 0d 25 3a 14  |24.%&...%0.:.%:.|
00006550  dd 20 a4 77 6f 72 6b 73  70 61 63 65 28 4c 25 29  |. .workspace(L%)|
00006560  0d 25 44 0b de 20 4c 25  20 4c 25 0d 25 4e 08 3d  |.%D.. L% L%.%N.=|
00006570  20 4c 25 0d 25 58 05 3a  0d 25 62 10 dd 20 a4 70  | L%.%X.:.%b.. .p|
00006580  61 72 28 73 65 70 24 29  0d 25 6c 25 69 31 25 3d  |ar(sep$).%l%i1%=|
00006590  69 25 2b 31 3a 69 25 3d  a7 6d 65 6e 75 24 2b 73  |i%+1:i%=.menu$+s|
000065a0  65 70 24 2c 73 65 70 24  2c 69 31 25 29 0d 25 76  |ep$,sep$,i1%).%v|
000065b0  17 3d c1 6d 65 6e 75 24  2c 69 31 25 2c 69 25 2d  |.=.menu$,i1%,i%-|
000065c0  69 31 25 29 0d 25 80 05  3a 0d 25 8a 20 dd 20 f2  |i1%).%..:.%. . .|
000065d0  73 68 61 64 65 28 6d 65  6e 75 68 61 6e 64 6c 65  |shade(menuhandle|
000065e0  25 2c 20 69 74 65 6d 25  29 0d 25 94 45 6d 65 6e  |%, item%).%.Emen|
000065f0  75 68 61 6e 64 6c 65 25  21 28 32 38 2b 38 2b 32  |uhandle%!(28+8+2|
00006600  34 2a 69 74 65 6d 25 29  3d 6d 65 6e 75 68 61 6e  |4*item%)=menuhan|
00006610  64 6c 65 25 21 28 32 38  2b 38 2b 32 34 2a 69 74  |dle%!(28+8+24*it|
00006620  65 6d 25 29 82 26 34 30  30 30 30 30 3a e1 0d 25  |em%).&400000:..%|
00006630  9e 05 3a 0d 25 a8 5b dd  20 a4 73 68 61 64 65 5f  |..:.%.[. .shade_|
00006640  73 74 61 74 75 73 28 6d  65 6e 75 68 61 6e 64 6c  |status(menuhandl|
00006650  65 25 2c 69 74 65 6d 25  29 20 3d 20 2d 28 28 6d  |e%,item%) = -((m|
00006660  65 6e 75 68 61 6e 64 6c  65 25 21 28 32 38 2b 38  |enuhandle%!(28+8|
00006670  2b 32 34 2a 69 74 65 6d  25 29 20 80 20 26 34 30  |+24*item%) . &40|
00006680  30 30 30 30 29 3d 26 34  30 30 30 30 30 29 0d 25  |0000)=&400000).%|
00006690  b2 05 3a 0d 25 bc 2a dd  20 f2 73 65 74 5f 73 68  |..:.%.*. .set_sh|
000066a0  61 64 65 28 6d 65 6e 75  68 61 6e 64 6c 65 25 2c  |ade(menuhandle%,|
000066b0  20 69 74 65 6d 25 2c 20  76 61 6c 25 29 0d 25 c6  | item%, val%).%.|
000066c0  48 e7 20 76 61 6c 25 3c  3e a4 73 68 61 64 65 5f  |H. val%<>.shade_|
000066d0  73 74 61 74 75 73 28 6d  65 6e 75 68 61 6e 64 6c  |status(menuhandl|
000066e0  65 25 2c 69 74 65 6d 25  29 20 8c 20 f2 73 68 61  |e%,item%) . .sha|
000066f0  64 65 28 6d 65 6e 75 68  61 6e 64 6c 65 25 2c 69  |de(menuhandle%,i|
00006700  74 65 6d 25 29 0d 25 d0  05 e1 0d 25 da 05 3a 0d  |tem%).%....%..:.|
00006710  25 e4 1e dd 20 f2 74 69  63 6b 28 6d 65 6e 75 68  |%... .tick(menuh|
00006720  61 6e 64 6c 65 25 2c 69  74 65 6d 25 29 0d 25 ee  |andle%,item%).%.|
00006730  3b 6d 65 6e 75 68 61 6e  64 6c 65 25 21 28 32 38  |;menuhandle%!(28|
00006740  2b 32 34 2a 69 74 65 6d  25 29 3d 6d 65 6e 75 68  |+24*item%)=menuh|
00006750  61 6e 64 6c 65 25 21 28  32 38 2b 32 34 2a 69 74  |andle%!(28+24*it|
00006760  65 6d 25 29 82 26 30 31  0d 25 f8 05 e1 0d 26 02  |em%).&01.%....&.|
00006770  05 3a 0d 26 0c 44 dd 20  a4 74 69 63 6b 5f 73 74  |.:.&.D. .tick_st|
00006780  61 74 75 73 28 6d 65 6e  75 68 61 6e 64 6c 65 25  |atus(menuhandle%|
00006790  2c 20 69 74 65 6d 25 29  20 3d 20 6d 65 6e 75 68  |, item%) = menuh|
000067a0  61 6e 64 6c 65 25 21 28  32 38 2b 32 34 2a 69 74  |andle%!(28+24*it|
000067b0  65 6d 25 29 80 31 0d 26  16 05 3a 0d 26 20 29 dd  |em%).1.&..:.& ).|
000067c0  20 f2 73 65 74 5f 74 69  63 6b 28 6d 65 6e 75 68  | .set_tick(menuh|
000067d0  61 6e 64 6c 65 25 2c 20  69 74 65 6d 25 2c 20 76  |andle%, item%, v|
000067e0  61 6c 25 29 0d 26 2a 46  e7 20 76 61 6c 25 3c 3e  |al%).&*F. val%<>|
000067f0  a4 74 69 63 6b 5f 73 74  61 74 75 73 28 6d 65 6e  |.tick_status(men|
00006800  75 68 61 6e 64 6c 65 25  2c 69 74 65 6d 25 29 20  |uhandle%,item%) |
00006810  8c 20 f2 74 69 63 6b 28  6d 65 6e 75 68 61 6e 64  |. .tick(menuhand|
00006820  6c 65 25 2c 69 74 65 6d  25 29 0d 26 34 05 e1 0d  |le%,item%).&4...|
00006830  26 3e 05 3a 0d 26 48 1d  dd 20 f2 73 65 74 5f 70  |&>.:.&H.. .set_p|
00006840  72 69 6e 74 5f 73 74 61  74 65 28 66 6c 61 67 25  |rint_state(flag%|
00006850  29 0d 26 52 23 f2 73 65  74 5f 73 68 61 64 65 28  |).&R#.set_shade(|
00006860  70 72 69 6e 74 6d 65 6e  75 25 2c 31 2c 2d 66 6c  |printmenu%,1,-fl|
00006870  61 67 25 29 0d 26 5c 23  f2 73 65 74 5f 73 68 61  |ag%).&\#.set_sha|
00006880  64 65 28 70 72 69 6e 74  6d 65 6e 75 25 2c 32 2c  |de(printmenu%,2,|
00006890  2d 66 6c 61 67 25 29 0d  26 66 23 f2 73 65 74 5f  |-flag%).&f#.set_|
000068a0  73 68 61 64 65 28 70 72  69 6e 74 6d 65 6e 75 25  |shade(printmenu%|
000068b0  2c 33 2c 2d 66 6c 61 67  25 29 0d 26 70 23 f2 73  |,3,-flag%).&p#.s|
000068c0  65 74 5f 73 68 61 64 65  28 70 72 69 6e 74 6d 65  |et_shade(printme|
000068d0  6e 75 25 2c 34 2c 2d 66  6c 61 67 25 29 0d 26 7a  |nu%,4,-flag%).&z|
000068e0  23 f2 73 65 74 5f 73 68  61 64 65 28 70 72 69 6e  |#.set_shade(prin|
000068f0  74 6d 65 6e 75 25 2c 35  2c 2d 66 6c 61 67 25 29  |tmenu%,5,-flag%)|
00006900  0d 26 84 23 f2 73 65 74  5f 73 68 61 64 65 28 70  |.&.#.set_shade(p|
00006910  72 69 6e 74 6d 65 6e 75  25 2c 36 2c 2d 66 6c 61  |rintmenu%,6,-fla|
00006920  67 25 29 0d 26 8e 26 f2  73 65 74 5f 73 68 61 64  |g%).&.&.set_shad|
00006930  65 28 70 72 69 6e 74 6d  65 6e 75 25 2c 37 2c 28  |e(printmenu%,7,(|
00006940  31 2b 66 6c 61 67 25 29  29 0d 26 98 23 f2 73 65  |1+flag%)).&.#.se|
00006950  74 5f 73 68 61 64 65 28  70 72 69 6e 74 6d 65 6e  |t_shade(printmen|
00006960  75 25 2c 38 2c 2d 66 6c  61 67 25 29 0d 26 a2 13  |u%,8,-flag%).&..|
00006970  70 72 69 6e 74 5f 6f 6e  25 3d 66 6c 61 67 25 0d  |print_on%=flag%.|
00006980  26 ac 2c 70 6f 6c 6c 5f  6d 61 73 6b 25 3d 28 70  |&.,poll_mask%=(p|
00006990  6f 6c 6c 5f 6d 61 73 6b  25 20 80 20 ac 31 29 20  |oll_mask% . .1) |
000069a0  84 20 28 31 2b 66 6c 61  67 25 29 0d 26 b6 0d e7  |. (1+flag%).&...|
000069b0  20 66 6c 61 67 25 20 8c  0d 26 c0 17 20 2a 73 65  | flag% ..&.. *se|
000069c0  74 20 24 50 72 69 6e 74  69 6e 67 20 22 54 22 0d  |t $Printing "T".|
000069d0  26 ca 05 cc 0d 26 d4 15  20 2a 75 6e 73 65 74 20  |&....&.. *unset |
000069e0  24 50 72 69 6e 74 69 6e  67 0d 26 de 05 cd 0d 26  |$Printing.&....&|
000069f0  e8 05 e1 0d 26 f2 05 3a  0d 26 fc 14 dd 20 f2 73  |....&..:.&... .s|
00006a00  65 74 5f 70 61 67 65 5f  73 69 7a 65 0d 27 06 17  |et_page_size.'..|
00006a10  ea 20 41 25 2c 42 25 2c  43 25 2c 44 25 2c 45 25  |. A%,B%,C%,D%,E%|
00006a20  2c 46 25 0d 27 10 0d 6d  73 67 25 21 30 3d 32 30  |,F%.'..msg%!0=20|
00006a30  0d 27 1a 0d 6d 73 67 25  21 31 32 3d 30 0d 27 24  |.'..msg%!12=0.'$|
00006a40  1f 6d 73 67 25 21 31 36  3d 4d 65 73 73 61 67 65  |.msg%!16=Message|
00006a50  5f 53 65 74 50 72 69 6e  74 65 72 25 0d 27 2e 26  |_SetPrinter%.'.&|
00006a60  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
00006a70  73 61 67 65 22 2c 20 31  37 2c 20 6d 73 67 25 2c  |sage", 17, msg%,|
00006a80  20 30 0d 27 38 31 41 25  3d 70 61 67 65 5f 64 65  | 0.'81A%=page_de|
00006a90  73 63 25 28 70 61 67 65  5f 6e 75 6d 62 65 72 25  |sc%(page_number%|
00006aa0  2c 70 61 67 65 5f 77 69  64 74 68 5f 66 69 65 6c  |,page_width_fiel|
00006ab0  64 25 29 0d 27 42 32 42  25 3d 70 61 67 65 5f 64  |d%).'B2B%=page_d|
00006ac0  65 73 63 25 28 70 61 67  65 5f 6e 75 6d 62 65 72  |esc%(page_number|
00006ad0  25 2c 70 61 67 65 5f 68  65 69 67 68 74 5f 66 69  |%,page_height_fi|
00006ae0  65 6c 64 25 29 0d 27 4c  30 43 25 3d 70 61 67 65  |eld%).'L0C%=page|
00006af0  5f 64 65 73 63 25 28 70  61 67 65 5f 6e 75 6d 62  |_desc%(page_numb|
00006b00  65 72 25 2c 70 61 67 65  5f 6c 65 66 74 5f 66 69  |er%,page_left_fi|
00006b10  65 6c 64 25 29 0d 27 56  32 44 25 3d 70 61 67 65  |eld%).'V2D%=page|
00006b20  5f 64 65 73 63 25 28 70  61 67 65 5f 6e 75 6d 62  |_desc%(page_numb|
00006b30  65 72 25 2c 70 61 67 65  5f 62 6f 74 74 6f 6d 5f  |er%,page_bottom_|
00006b40  66 69 65 6c 64 25 29 0d  27 60 31 45 25 3d 70 61  |field%).'`1E%=pa|
00006b50  67 65 5f 64 65 73 63 25  28 70 61 67 65 5f 6e 75  |ge_desc%(page_nu|
00006b60  6d 62 65 72 25 2c 70 61  67 65 5f 72 69 67 68 74  |mber%,page_right|
00006b70  5f 66 69 65 6c 64 25 29  0d 27 6a 2f 46 25 3d 70  |_field%).'j/F%=p|
00006b80  61 67 65 5f 64 65 73 63  25 28 70 61 67 65 5f 6e  |age_desc%(page_n|
00006b90  75 6d 62 65 72 25 2c 70  61 67 65 5f 74 6f 70 5f  |umber%,page_top_|
00006ba0  66 69 65 6c 64 25 29 0d  27 74 2f c8 99 20 22 50  |field%).'t/.. "P|
00006bb0  44 72 69 76 65 72 5f 53  65 74 50 61 67 65 53 69  |Driver_SetPageSi|
00006bc0  7a 65 22 2c 2c 41 25 2c  42 25 2c 43 25 2c 44 25  |ze",,A%,B%,C%,D%|
00006bd0  2c 45 25 2c 46 25 0d 27  7e 1d f2 50 72 69 6e 74  |,E%,F%.'~..Print|
00006be0  65 72 5f 63 68 61 6e 67  65 5f 70 61 67 65 5f 73  |er_change_page_s|
00006bf0  69 7a 65 0d 27 88 05 e1  0d 27 92 05 3a 0d 27 9c  |ize.'....'..:.'.|
00006c00  32 dd 20 f2 73 65 74 5f  69 63 6f 6e 5f 73 74 61  |2. .set_icon_sta|
00006c10  74 65 28 68 61 6e 64 6c  65 25 2c 20 69 63 6f 6e  |te(handle%, icon|
00006c20  25 2c 20 65 6f 72 25 2c  20 6d 61 73 6b 25 29 0d  |%, eor%, mask%).|
00006c30  27 a6 19 21 69 63 6f 6e  5f 62 75 66 25 20 20 3d  |'..!icon_buf%  =|
00006c40  20 68 61 6e 64 6c 65 25  0d 27 b0 17 69 63 6f 6e  | handle%.'..icon|
00006c50  5f 62 75 66 25 21 34 20  3d 20 69 63 6f 6e 25 0d  |_buf%!4 = icon%.|
00006c60  27 ba 16 69 63 6f 6e 5f  62 75 66 25 21 38 20 3d  |'..icon_buf%!8 =|
00006c70  20 65 6f 72 25 0d 27 c4  18 69 63 6f 6e 5f 62 75  | eor%.'..icon_bu|
00006c80  66 25 21 31 32 20 3d 20  6d 61 73 6b 25 0d 27 ce  |f%!12 = mask%.'.|
00006c90  25 c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  |%.. "Wimp_SetIco|
00006ca0  6e 53 74 61 74 65 22 2c  2c 69 63 6f 6e 5f 62 75  |nState",,icon_bu|
00006cb0  66 25 0d 27 d8 05 e1 0d  27 e2 05 3a 0d 27 ec 0e  |f%.'....'..:.'..|
00006cc0  dd 20 a4 69 63 6f 6e 62  61 72 0d 27 f6 08 ea 20  |. .iconbar.'... |
00006cd0  49 25 0d 28 00 13 69 63  6f 6e 5f 62 75 66 25 21  |I%.(..icon_buf%!|
00006ce0  30 20 3d 2d 32 0d 28 0a  12 69 63 6f 6e 5f 62 75  |0 =-2.(..icon_bu|
00006cf0  66 25 21 34 20 3d 30 0d  28 14 14 69 63 6f 6e 5f  |f%!4 =0.(..icon_|
00006d00  62 75 66 25 21 38 20 3d  2d 31 36 0d 28 1e 14 69  |buf%!8 =-16.(..i|
00006d10  63 6f 6e 5f 62 75 66 25  21 31 32 3d 31 34 34 0d  |con_buf%!12=144.|
00006d20  28 28 14 69 63 6f 6e 5f  62 75 66 25 21 31 36 3d  |((.icon_buf%!16=|
00006d30  20 38 36 0d 28 32 47 69  63 6f 6e 5f 62 75 66 25  | 86.(2Gicon_buf%|
00006d40  21 32 30 3d 20 26 31 37  30 30 33 31 32 42 3a 20  |!20= &1700312B: |
00006d50  20 f4 20 30 30 30 31 20  30 31 31 31 20 30 30 30  | . 0001 0111 000|
00006d60  30 20 30 30 30 30 20 30  30 31 31 20 30 30 30 31  |0 0000 0011 0001|
00006d70  20 30 30 31 30 20 31 30  31 31 0d 28 3c 23 24 74  | 0010 1011.(<#$t|
00006d80  65 78 74 5f 62 75 66 66  65 72 25 20 20 20 3d 20  |ext_buffer%   = |
00006d90  70 72 69 6e 74 65 72 5f  74 79 70 65 24 0d 28 46  |printer_type$.(F|
00006da0  23 24 76 61 6c 69 64 5f  62 75 66 66 65 72 25 20  |#$valid_buffer% |
00006db0  20 3d 20 22 53 21 22 2b  50 72 69 6e 74 65 72 24  | = "S!"+Printer$|
00006dc0  0d 28 50 1e 69 63 6f 6e  5f 62 75 66 25 21 32 34  |.(P.icon_buf%!24|
00006dd0  3d 20 74 65 78 74 5f 62  75 66 66 65 72 25 0d 28  |= text_buffer%.(|
00006de0  5a 20 69 63 6f 6e 5f 62  75 66 25 21 32 38 20 3d  |Z icon_buf%!28 =|
00006df0  20 76 61 6c 69 64 5f 62  75 66 66 65 72 25 0d 28  | valid_buffer%.(|
00006e00  64 25 69 63 6f 6e 5f 62  75 66 25 21 33 32 20 3d  |d%icon_buf%!32 =|
00006e10  20 a9 28 24 74 65 78 74  5f 62 75 66 66 65 72 25  | .($text_buffer%|
00006e20  29 2b 31 0d 28 6e 28 c8  99 20 22 57 69 6d 70 5f  |)+1.(n(.. "Wimp_|
00006e30  43 72 65 61 74 65 49 63  6f 6e 22 2c 2c 69 63 6f  |CreateIcon",,ico|
00006e40  6e 5f 62 75 66 25 20 b8  20 49 25 0d 28 78 07 3d  |n_buf% . I%.(x.=|
00006e50  49 25 0d 28 82 05 3a 0d  28 8c 12 dd 20 f2 63 68  |I%.(..:.(... .ch|
00006e60  61 6e 67 65 5f 69 63 6f  6e 0d 28 96 0e f2 73 65  |ange_icon.(...se|
00006e70  74 5f 70 74 79 70 65 0d  28 a0 21 24 74 65 78 74  |t_ptype.(.!$text|
00006e80  5f 62 75 66 66 65 72 25  20 3d 20 70 72 69 6e 74  |_buffer% = print|
00006e90  65 72 5f 74 79 70 65 24  0d 28 aa 05 e1 0d 28 b4  |er_type$.(....(.|
00006ea0  05 3a 0d 28 be 0f dd f2  73 65 74 5f 70 74 79 70  |.:.(....set_ptyp|
00006eb0  65 0d 28 c8 11 e7 20 70  72 69 6e 74 5f 6f 6e 25  |e.(... print_on%|
00006ec0  20 8c 0d 28 d2 1f 20 70  72 69 6e 74 65 72 5f 74  | ..(.. printer_t|
00006ed0  79 70 65 24 20 3d 20 22  50 72 69 6e 74 69 6e 67  |ype$ = "Printing|
00006ee0  22 0d 28 dc 05 cc 0d 28  e6 1f c8 99 22 4f 53 5f  |".(....(...."OS_|
00006ef0  42 79 74 65 22 2c 35 2c  6c 6f 63 61 74 69 6f 6e  |Byte",5,location|
00006f00  5f 6e 65 77 25 0d 28 f0  16 c8 8e 20 6c 6f 63 61  |_new%.(.... loca|
00006f10  74 69 6f 6e 5f 6e 65 77  25 20 ca 0d 28 fa 24 20  |tion_new% ..(.$ |
00006f20  c9 20 31 3a 20 70 72 69  6e 74 65 72 5f 74 79 70  |. 1: printer_typ|
00006f30  65 24 20 3d 20 22 50 61  72 61 6c 6c 65 6c 22 0d  |e$ = "Parallel".|
00006f40  29 04 22 20 c9 20 32 3a  20 70 72 69 6e 74 65 72  |)." . 2: printer|
00006f50  5f 74 79 70 65 24 20 3d  20 22 53 65 72 69 61 6c  |_type$ = "Serial|
00006f60  22 0d 29 0e 25 20 c9 20  34 3a 20 70 72 69 6e 74  |".).% . 4: print|
00006f70  65 72 5f 74 79 70 65 24  20 3d 20 73 65 72 76 65  |er_type$ = serve|
00006f80  72 5f 73 65 74 24 0d 29  18 09 20 c9 20 35 3a 0d  |r_set$.).. . 5:.|
00006f90  29 22 2d 20 20 e7 20 a4  6c 6f 77 65 72 63 61 73  |)"-  . .lowercas|
00006fa0  65 28 c0 24 66 69 6c 65  5f 6e 61 6d 65 25 2c 35  |e(.$file_name%,5|
00006fb0  29 29 3d 22 6e 75 6c 6c  3a 22 20 8c 0d 29 2c 21  |))="null:" ..),!|
00006fc0  20 20 20 70 72 69 6e 74  65 72 5f 74 79 70 65 24  |   printer_type$|
00006fd0  20 3d 20 22 54 6f 20 6e  75 6c 6c 3a 22 0d 29 36  | = "To null:".)6|
00006fe0  07 20 20 cc 0d 29 40 20  20 20 20 70 72 69 6e 74  |.  ..)@    print|
00006ff0  65 72 5f 74 79 70 65 24  20 3d 20 22 54 6f 20 66  |er_type$ = "To f|
00007000  69 6c 65 22 0d 29 4a 07  20 20 cd 0d 29 54 30 20  |ile".)J.  ..)T0 |
00007010  20 ff 28 22 73 65 74 20  50 72 69 6e 74 65 72 54  | .("set PrinterT|
00007020  79 70 65 24 35 20 22 22  22 2b 24 66 69 6c 65 5f  |ype$5 """+$file_|
00007030  6e 61 6d 65 25 2b 22 22  22 22 29 0d 29 5e 05 cb  |name%+"""").)^..|
00007040  0d 29 68 05 cd 0d 29 72  05 e1 0d 29 7c 05 3a 0d  |.)h...)r...)|.:.|
00007050  29 86 11 dd 20 f2 67 65  74 70 6f 69 6e 74 65 72  |)... .getpointer|
00007060  0d 29 90 20 c8 99 20 22  57 69 6d 70 5f 47 65 74  |.). .. "Wimp_Get|
00007070  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 71 25  |PointerInfo",,q%|
00007080  0d 29 9a 2a 6d 6f 75 73  65 78 25 3d 21 71 25 3a  |.).*mousex%=!q%:|
00007090  6d 6f 75 73 65 79 25 3d  71 25 21 34 3a 62 75 74  |mousey%=q%!4:but|
000070a0  74 6f 6e 73 25 3d 71 25  21 38 0d 29 a4 1d 68 61  |tons%=q%!8.)..ha|
000070b0  6e 64 6c 65 25 3d 71 25  21 31 32 3a 69 63 6f 6e  |ndle%=q%!12:icon|
000070c0  25 3d 71 25 21 31 36 0d  29 ae 05 e1 0d 29 b8 05  |%=q%!16.)....)..|
000070d0  3a 0d 29 c2 14 dd 20 f2  6d 6f 61 6e 28 72 65 70  |:.)... .moan(rep|
000070e0  6f 72 74 24 29 0d 29 cc  14 85 20 26 32 30 30 30  |ort$).)... &2000|
000070f0  30 2c 72 65 70 6f 72 74  24 0d 29 d6 05 3a 0d 29  |0,report$.)..:.)|
00007100  e0 1b dd 20 f2 65 72 72  6f 72 28 65 72 72 25 2c  |... .error(err%,|
00007110  20 72 65 70 6f 72 74 24  29 0d 29 ea 0b ea 20 73  | report$).)... s|
00007120  74 6f 70 25 0d 29 f4 0b  f2 45 73 63 4f 66 66 0d  |top%.)...EscOff.|
00007130  29 fe 27 73 74 6f 70 25  3d 28 72 65 70 6f 72 74  |).'stop%=(report|
00007140  24 3c 3e 22 41 6c 72 65  61 64 79 20 70 72 69 6e  |$<>"Already prin|
00007150  74 69 6e 67 22 29 0d 2a  08 56 e7 20 28 65 72 72  |ting").*.V. (err|
00007160  25 3c 26 31 30 31 30 30  20 84 20 65 72 72 25 3e  |%<&10100 . err%>|
00007170  26 32 30 30 30 30 29 20  80 20 65 72 72 25 3c 3e  |&20000) . err%<>|
00007180  31 37 20 8c 20 72 65 70  6f 72 74 24 3d 72 65 70  |17 . report$=rep|
00007190  6f 72 74 24 2b 22 20 69  6e 74 65 72 6e 61 6c 20  |ort$+" internal |
000071a0  65 72 72 6f 72 20 22 2b  c3 28 9e 29 0d 2a 12 16  |error "+.(.).*..|
000071b0  21 65 72 72 6f 72 5f 62  6c 6b 25 20 3d 20 65 72  |!error_blk% = er|
000071c0  72 25 0d 2a 1c 1b 24 28  65 72 72 6f 72 5f 62 6c  |r%.*..$(error_bl|
000071d0  6b 25 2b 34 29 3d 72 65  70 6f 72 74 24 0d 2a 26  |k%+4)=report$.*&|
000071e0  21 f2 7a 65 72 6f 5f 74  65 72 6d 69 6e 61 74 65  |!.zero_terminate|
000071f0  28 65 72 72 6f 72 5f 62  6c 6b 25 2b 34 29 0d 2a  |(error_blk%+4).*|
00007200  30 22 e7 20 73 74 6f 70  25 20 e7 20 70 72 69 6e  |0". stop% . prin|
00007210  74 5f 6f 6e 25 20 8c 20  2a 46 58 20 32 31 2c 33  |t_on% . *FX 21,3|
00007220  0d 2a 3a 32 c8 99 20 22  57 69 6d 70 5f 52 65 70  |.*:2.. "Wimp_Rep|
00007230  6f 72 74 45 72 72 6f 72  22 2c 20 65 72 72 6f 72  |ortError", error|
00007240  5f 62 6c 6b 25 2c 20 31  2c 20 50 72 69 6e 74 65  |_blk%, 1, Printe|
00007250  72 24 0d 2a 44 0f f2 65  6e 64 63 6f 6e 66 69 72  |r$.*D..endconfir|
00007260  6d 0d 2a 4e 0d e7 20 73  74 6f 70 25 20 8c 0d 2a  |m.*N.. stop% ..*|
00007270  58 18 20 f2 50 72 69 6e  74 65 72 5f 43 6c 6f 73  |X. .Printer_Clos|
00007280  65 46 69 6c 65 73 0d 2a  62 1f 20 e7 20 70 72 69  |eFiles.*b. . pri|
00007290  6e 74 5f 6f 6e 25 20 f2  73 74 6f 70 5f 70 72 69  |nt_on% .stop_pri|
000072a0  6e 74 69 6e 67 0d 2a 6c  32 20 e7 20 69 6e 5f 66  |nting.*l2 . in_f|
000072b0  69 6c 65 25 20 c8 99 22  58 4f 53 5f 46 69 6e 64  |ile% .."XOS_Find|
000072c0  22 2c 30 2c 69 6e 5f 66  69 6c 65 25 3a 69 6e 5f  |",0,in_file%:in_|
000072d0  66 69 6c 65 25 3d 30 0d  2a 76 44 20 e7 20 6f 75  |file%=0.*vD . ou|
000072e0  74 5f 66 69 6c 65 25 20  f2 45 73 63 4f 6e 3a c8  |t_file% .EscOn:.|
000072f0  99 22 58 4f 53 5f 46 69  6e 64 22 2c 30 2c 6f 75  |."XOS_Find",0,ou|
00007300  74 5f 66 69 6c 65 25 3a  6f 75 74 5f 66 69 6c 65  |t_file%:out_file|
00007310  25 3d 30 3a f2 45 73 63  4f 66 66 0d 2a 80 05 cd  |%=0:.EscOff.*...|
00007320  0d 2a 8a 05 e1 0d 2a 94  05 3a 0d 2a 9e 18 dd f2  |.*....*..:.*....|
00007330  7a 65 72 6f 5f 74 65 72  6d 69 6e 61 74 65 28 53  |zero_terminate(S|
00007340  25 29 0d 2a a8 0f 53 25  3f a9 24 53 25 20 3d 20  |%).*..S%?.$S% = |
00007350  30 0d 2a b2 05 e1 0d 2a  bc 05 3a 0d 2a c6 13 dd  |0.*....*..:.*...|
00007360  a4 6c 6f 77 65 72 63 61  73 65 28 53 24 29 0d 2a  |.lowercase(S$).*|
00007370  d0 0c ea 20 52 24 2c 20  43 25 0d 2a da 09 52 24  |... R$, C%.*..R$|
00007380  3d 22 22 0d 2a e4 0c c8  95 20 a9 53 24 3e 30 0d  |="".*.... .S$>0.|
00007390  2a ee 11 20 43 25 20 3d  20 97 c0 53 24 2c 31 29  |*.. C% = ..S$,1)|
000073a0  0d 2a f8 14 20 53 24 20  3d 20 c2 53 24 2c a9 53  |.*.. S$ = .S$,.S|
000073b0  24 2d 31 29 0d 2b 02 32  20 e7 20 43 25 3e 3d 97  |$-1).+.2 . C%>=.|
000073c0  22 41 22 20 80 20 43 25  3c 3d 97 22 5a 22 20 8c  |"A" . C%<=."Z" .|
000073d0  20 43 25 20 3d 20 43 25  20 2d 20 97 22 41 22 20  | C% = C% - ."A" |
000073e0  2b 20 97 22 61 22 0d 2b  0c 0e 20 52 24 20 2b 3d  |+ ."a".+.. R$ +=|
000073f0  20 bd 43 25 0d 2b 16 05  ce 0d 2b 20 07 3d 52 24  | .C%.+....+ .=R$|
00007400  0d 2b 2a 05 3a 0d 2b 34  0c dd 20 f2 73 74 61 6d  |.+*.:.+4.. .stam|
00007410  70 0d 2b 3e 0b ea 20 6c  6f 61 64 25 0d 2b 48 07  |p.+>.. load%.+H.|
00007420  ea 20 85 0d 2b 52 0b ee  20 85 20 ea 20 e1 0d 2b  |. ..+R.. . . ..+|
00007430  5c 27 c8 99 20 22 4f 53  5f 46 69 6c 65 22 2c 35  |\'.. "OS_File",5|
00007440  2c 66 69 6c 65 5f 6e 61  6d 65 25 20 b8 20 2c 2c  |,file_name% . ,,|
00007450  6c 6f 61 64 25 0d 2b 66  53 e7 20 28 6c 6f 61 64  |load%.+fS. (load|
00007460  25 3e 3e 3e 38 29 20 3c  3e 20 26 46 46 46 30 30  |%>>>8) <> &FFF00|
00007470  30 20 2b 20 4f 75 74 70  75 74 54 79 70 65 25 20  |0 + OutputType% |
00007480  8c 20 c8 99 20 22 4f 53  5f 46 69 6c 65 22 2c 31  |. .. "OS_File",1|
00007490  31 2c 66 69 6c 65 5f 6e  61 6d 65 25 2c 4f 75 74  |1,file_name%,Out|
000074a0  70 75 74 54 79 70 65 25  0d 2b 70 05 e1 0d 2b 7a  |putType%.+p...+z|
000074b0  05 3a 0d 2b 84 0c dd 20  f2 45 73 63 4f 6e 0d 2b  |.:.+... .EscOn.+|
000074c0  8e 0b 2a 46 58 20 32 32  39 0d 2b 98 05 e1 0d 2b  |..*FX 229.+....+|
000074d0  a2 05 3a 0d 2b ac 0d dd  20 f2 45 73 63 4f 66 66  |..:.+... .EscOff|
000074e0  0d 2b b6 0d 2a 46 58 20  32 32 39 2c 31 0d 2b c0  |.+..*FX 229,1.+.|
000074f0  05 e1 0d ff                                       |....|
000074f4