� > !RunImage Version 1.12
>� Purpose: printer independent part of printer application
.� Authors: DTee, AThompson, NReeves, DSeal
(VersionNumber$="1.12"
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>":�
�%ș"NetPrint_ReadPSNumber" � S%,N%
�� S%=0 �
�) ș"NetPrint_ReadPSName",,q%,20 � ,S%
� S%?0=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
+��
+�>*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 32 0d 00  |e Version 1.12..|
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 32 22 0d 00 32 1e c8  9b 20 22 3c 50 44 72 69  |12"..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 25  |="<unset>":....%|
00001790  c8 99 22 4e 65 74 50 72  69 6e 74 5f 52 65 61 64  |.."NetPrint_Read|
000017a0  50 53 4e 75 6d 62 65 72  22 20 b8 20 53 25 2c 4e  |PSNumber" . S%,N|
000017b0  25 0d 07 bc 0c e7 20 53  25 3d 30 20 8c 0d 07 c6  |%..... S%=0 ....|
000017c0  29 20 c8 99 22 4e 65 74  50 72 69 6e 74 5f 52 65  |) .."NetPrint_Re|
000017d0  61 64 50 53 4e 61 6d 65  22 2c 2c 71 25 2c 32 30  |adPSName",,q%,20|
000017e0  20 b8 20 2c 53 25 0d 07  d0 0c 20 53 25 3f 30 3d  | . ,S%.... S%?0=|
000017f0  31 33 0d 07 da 14 20 73  65 72 76 65 72 5f 73 65  |13.... server_se|
00001800  74 24 3d 24 71 25 0d 07  e4 05 cc 0d 07 ee 1c 20  |t$=$q%......... |
00001810  73 65 72 76 65 72 5f 73  65 74 24 3d c3 4e 25 2b  |server_set$=.N%+|
00001820  22 2e 22 2b c3 53 25 0d  07 f8 05 cd 0d 08 02 0b  |"."+.S%.........|
00001830  f2 73 65 74 5f 70 73 0d  08 0c 05 e1 0d 08 16 05  |.set_ps.........|
00001840  3a 0d 08 20 11 dd 20 f2  53 61 76 65 43 6f 6e 66  |:.. .. .SaveConf|
00001850  69 67 0d 08 2a 0b ea 20  49 25 2c 4a 25 0d 08 34  |ig..*.. I%,J%..4|
00001860  25 6f 75 74 5f 66 69 6c  65 25 3d ad 22 3c 50 44  |%out_file%=."<PD|
00001870  72 69 76 65 72 24 44 69  72 3e 2e 50 72 44 61 74  |river$Dir>.PrDat|
00001880  61 22 0d 08 3e 13 e3 20  4a 25 3d 30 b8 6d 61 78  |a"..>.. J%=0.max|
00001890  70 61 67 65 25 0d 08 48  1c 20 e3 20 49 25 3d 30  |page%..H. . I%=0|
000018a0  b8 70 61 67 65 5f 6e 61  6d 65 5f 66 69 65 6c 64  |.page_name_field|
000018b0  25 0d 08 52 20 20 20 20  e7 20 70 61 67 65 5f 70  |%..R    . page_p|
000018c0  74 72 73 25 28 4a 25 2c  49 25 29 3c 3e 2d 31 20  |trs%(J%,I%)<>-1 |
000018d0  8c 0d 08 5c 28 20 20 20  20 20 cf 23 6f 75 74 5f  |...\(     .#out_|
000018e0  66 69 6c 65 25 20 3d 20  70 61 67 65 5f 70 74 72  |file% = page_ptr|
000018f0  73 25 28 4a 25 2c 49 25  29 0d 08 66 20 20 20 20  |s%(J%,I%)..f    |
00001900  20 20 e7 20 49 25 3d 70  61 67 65 5f 6e 61 6d 65  |  . I%=page_name|
00001910  5f 66 69 65 6c 64 25 20  8c 0d 08 70 40 20 20 20  |_field% ...p@   |
00001920  20 20 20 d5 23 6f 75 74  5f 66 69 6c 65 25 2c 70  |   .#out_file%,p|
00001930  61 67 65 5f 6e 61 6d 65  73 24 28 4a 25 29 2b c4  |age_names$(J%)+.|
00001940  38 30 2d a9 70 61 67 65  5f 6e 61 6d 65 73 24 28  |80-.page_names$(|
00001950  4a 25 29 2c 22 3b 22 29  3b 0d 08 7a 0a 20 20 20  |J%),";");..z.   |
00001960  20 20 cc 0d 08 84 3a 20  20 20 20 20 20 d5 23 6f  |  ....:      .#o|
00001970  75 74 5f 66 69 6c 65 25  2c c2 22 30 30 30 30 30  |ut_file%,."00000|
00001980  30 30 30 30 22 2b c3 70  61 67 65 5f 64 65 73 63  |0000"+.page_desc|
00001990  25 28 4a 25 2c 49 25 29  2c 31 30 29 3b 0d 08 8e  |%(J%,I%),10);...|
000019a0  0a 20 20 20 20 20 cd 0d  08 98 08 20 20 20 cd 0d  |.     .....   ..|
000019b0  08 a2 06 20 ed 0d 08 ac  05 ed 0d 08 b6 1e e7 20  |... ........... |
000019c0  70 61 67 65 5f 6e 75 6d  62 65 72 5f 70 74 72 25  |page_number_ptr%|
000019d0  20 3c 3e 20 2d 31 20 8c  0d 08 c0 30 20 e7 20 70  | <> -1 ....0 . p|
000019e0  61 67 65 5f 6e 75 6d 62  65 72 5f 63 6f 6e 66 69  |age_number_confi|
000019f0  67 25 20 3c 3e 20 70 61  67 65 5f 6e 75 6d 62 65  |g% <> page_numbe|
00001a00  72 5f 73 65 74 25 20 8c  0d 08 ca 24 20 20 cf 23  |r_set% ....$  .#|
00001a10  6f 75 74 5f 66 69 6c 65  25 20 3d 20 70 61 67 65  |out_file% = page|
00001a20  5f 6e 75 6d 62 65 72 5f  70 74 72 25 0d 08 d4 2c  |_number_ptr%...,|
00001a30  20 20 d5 23 6f 75 74 5f  66 69 6c 65 25 2c c2 22  |  .#out_file%,."|
00001a40  30 22 2b c3 70 61 67 65  5f 6e 75 6d 62 65 72 5f  |0"+.page_number_|
00001a50  73 65 74 25 2c 32 29 3b  0d 08 de 2c 20 20 70 61  |set%,2);...,  pa|
00001a60  67 65 5f 6e 75 6d 62 65  72 5f 63 6f 6e 66 69 67  |ge_number_config|
00001a70  25 20 3d 20 70 61 67 65  5f 6e 75 6d 62 65 72 5f  |% = page_number_|
00001a80  73 65 74 25 0d 08 e8 06  20 cd 0d 08 f2 05 cd 0d  |set%.... .......|
00001a90  08 fc 17 e7 20 66 69 6c  65 5f 70 74 72 25 20 3c  |.... file_ptr% <|
00001aa0  3e 20 2d 31 20 8c 0d 09  06 24 20 e7 20 66 69 6c  |> -1 ....$ . fil|
00001ab0  65 5f 63 6f 6e 66 69 67  24 20 3c 3e 20 24 66 69  |e_config$ <> $fi|
00001ac0  6c 65 5f 6e 61 6d 65 25  20 8c 0d 09 10 1d 20 20  |le_name% .....  |
00001ad0  cf 23 6f 75 74 5f 66 69  6c 65 25 20 3d 20 66 69  |.#out_file% = fi|
00001ae0  6c 65 5f 70 74 72 25 0d  09 1a 34 20 20 d5 23 6f  |le_ptr%...4  .#o|
00001af0  75 74 5f 66 69 6c 65 25  2c 24 66 69 6c 65 5f 6e  |ut_file%,$file_n|
00001b00  61 6d 65 25 2b c4 38 30  2d a9 24 66 69 6c 65 5f  |ame%+.80-.$file_|
00001b10  6e 61 6d 65 25 2c 22 3b  22 29 3b 0d 09 24 20 20  |name%,";");..$  |
00001b20  20 66 69 6c 65 5f 63 6f  6e 66 69 67 24 20 3d 20  | file_config$ = |
00001b30  24 66 69 6c 65 5f 6e 61  6d 65 25 0d 09 2e 06 20  |$file_name%.... |
00001b40  cd 0d 09 38 05 cd 0d 09  42 1a e7 20 70 72 69 6e  |...8....B.. prin|
00001b50  74 65 72 5f 70 74 72 25  20 3c 3e 20 2d 31 20 8c  |ter_ptr% <> -1 .|
00001b60  0d 09 4c 28 20 e7 20 70  72 69 6e 74 65 72 5f 63  |..L( . printer_c|
00001b70  6f 6e 66 69 67 25 20 3c  3e 20 70 72 69 6e 74 65  |onfig% <> printe|
00001b80  72 5f 6e 65 77 25 20 8c  0d 09 56 20 20 20 cf 23  |r_new% ...V   .#|
00001b90  6f 75 74 5f 66 69 6c 65  25 20 3d 20 70 72 69 6e  |out_file% = prin|
00001ba0  74 65 72 5f 70 74 72 25  0d 09 60 28 20 20 d5 23  |ter_ptr%..`(  .#|
00001bb0  6f 75 74 5f 66 69 6c 65  25 2c c2 22 30 22 2b c3  |out_file%,."0"+.|
00001bc0  70 72 69 6e 74 65 72 5f  6e 65 77 25 2c 32 29 3b  |printer_new%,2);|
00001bd0  0d 09 6a 24 20 20 70 72  69 6e 74 65 72 5f 63 6f  |..j$  printer_co|
00001be0  6e 66 69 67 25 20 3d 20  70 72 69 6e 74 65 72 5f  |nfig% = printer_|
00001bf0  6e 65 77 25 0d 09 74 06  20 cd 0d 09 7e 05 cd 0d  |new%..t. ...~...|
00001c00  09 88 3d e7 20 6c 6f 63  61 74 69 6f 6e 5f 6e 65  |..=. location_ne|
00001c10  77 25 3d 35 20 80 20 a4  6c 6f 77 65 72 63 61 73  |w%=5 . .lowercas|
00001c20  65 28 c0 24 66 69 6c 65  5f 6e 61 6d 65 25 2c 35  |e(.$file_name%,5|
00001c30  29 29 3d 22 6e 75 6c 6c  3a 22 20 8c 0d 09 92 2a  |))="null:" ....*|
00001c40  20 e7 20 6c 6f 63 61 74  69 6f 6e 5f 63 6f 6e 66  | . location_conf|
00001c50  69 67 25 20 3c 3e 20 6c  6f 63 61 74 69 6f 6e 5f  |ig% <> location_|
00001c60  6e 65 77 25 20 8c 0d 09  9c 1d 20 20 e7 20 6c 6f  |new% .....  . lo|
00001c70  63 61 74 69 6f 6e 5f 70  74 72 25 20 3c 3e 20 2d  |cation_ptr% <> -|
00001c80  31 20 8c 0d 09 a6 22 20  20 20 cf 23 6f 75 74 5f  |1 ...."   .#out_|
00001c90  66 69 6c 65 25 20 3d 20  6c 6f 63 61 74 69 6f 6e  |file% = location|
00001ca0  5f 70 74 72 25 0d 09 b0  17 20 20 20 d5 23 6f 75  |_ptr%....   .#ou|
00001cb0  74 5f 66 69 6c 65 25 2c  22 30 22 3b 0d 09 ba 07  |t_file%,"0";....|
00001cc0  20 20 cd 0d 09 c4 24 20  20 6c 6f 63 61 74 69 6f  |  ....$  locatio|
00001cd0  6e 5f 63 6f 6e 66 69 67  25 3d 6c 6f 63 61 74 69  |n_config%=locati|
00001ce0  6f 6e 5f 6e 65 77 25 0d  09 ce 06 20 cd 0d 09 d8  |on_new%.... ....|
00001cf0  23 20 c8 99 22 4f 53 5f  43 4c 49 22 2c 22 43 6f  |# .."OS_CLI","Co|
00001d00  6e 66 69 67 75 72 65 20  50 72 69 6e 74 20 30 22  |nfigure Print 0"|
00001d10  0d 09 e2 05 cc 0d 09 ec  2a 20 e7 20 6c 6f 63 61  |........* . loca|
00001d20  74 69 6f 6e 5f 63 6f 6e  66 69 67 25 20 3c 3e 20  |tion_config% <> |
00001d30  6c 6f 63 61 74 69 6f 6e  5f 6e 65 77 25 20 8c 0d  |location_new% ..|
00001d40  09 f6 1d 20 20 e7 20 6c  6f 63 61 74 69 6f 6e 5f  |...  . location_|
00001d50  70 74 72 25 20 3c 3e 20  2d 31 20 8c 0d 0a 00 22  |ptr% <> -1 ...."|
00001d60  20 20 20 cf 23 6f 75 74  5f 66 69 6c 65 25 20 3d  |   .#out_file% =|
00001d70  20 6c 6f 63 61 74 69 6f  6e 5f 70 74 72 25 0d 0a  | location_ptr%..|
00001d80  0a 22 20 20 20 d5 23 6f  75 74 5f 66 69 6c 65 25  |."   .#out_file%|
00001d90  2c c3 6c 6f 63 61 74 69  6f 6e 5f 6e 65 77 25 3b  |,.location_new%;|
00001da0  0d 0a 14 07 20 20 cd 0d  0a 1e 24 20 20 6c 6f 63  |....  ....$  loc|
00001db0  61 74 69 6f 6e 5f 63 6f  6e 66 69 67 25 3d 6c 6f  |ation_config%=lo|
00001dc0  63 61 74 69 6f 6e 5f 6e  65 77 25 0d 0a 28 06 20  |cation_new%..(. |
00001dd0  cd 0d 0a 32 32 20 c8 99  22 58 4f 53 5f 43 4c 49  |...22 .."XOS_CLI|
00001de0  22 2c 22 43 6f 6e 66 69  67 75 72 65 20 50 72 69  |","Configure Pri|
00001df0  6e 74 20 22 2b c3 6c 6f  63 61 74 69 6f 6e 5f 6e  |nt "+.location_n|
00001e00  65 77 25 0d 0a 3c 05 cd  0d 0a 46 21 e7 20 62 61  |ew%..<....F!. ba|
00001e10  75 64 5f 63 6f 6e 66 69  67 25 20 3c 3e 20 62 61  |ud_config% <> ba|
00001e20  75 64 5f 6e 65 77 25 20  8c 0d 0a 50 18 20 e7 20  |ud_new% ...P. . |
00001e30  62 61 75 64 5f 70 74 72  25 20 3c 3e 20 2d 31 20  |baud_ptr% <> -1 |
00001e40  8c 0d 0a 5a 1b 20 20 cf  23 6f 75 74 5f 66 69 6c  |...Z.  .#out_fil|
00001e50  65 25 3d 62 61 75 64 5f  70 74 72 25 0d 0a 64 1d  |e%=baud_ptr%..d.|
00001e60  20 20 d5 23 6f 75 74 5f  66 69 6c 65 25 2c c3 62  |  .#out_file%,.b|
00001e70  61 75 64 5f 6e 65 77 25  3b 0d 0a 6e 06 20 cd 0d  |aud_new%;..n. ..|
00001e80  0a 78 1d 20 62 61 75 64  5f 63 6f 6e 66 69 67 25  |.x. baud_config%|
00001e90  20 3d 20 62 61 75 64 5f  6e 65 77 25 0d 0a 82 05  | = baud_new%....|
00001ea0  cd 0d 0a 8c 52 e7 20 6c  6f 63 61 74 69 6f 6e 5f  |....R. location_|
00001eb0  6e 65 77 25 3d 32 20 80  20 62 61 75 64 5f 6e 65  |new%=2 . baud_ne|
00001ec0  77 25 3c 3d 37 20 8c 20  c8 99 22 4f 53 5f 43 4c  |w%<=7 . .."OS_CL|
00001ed0  49 22 2c 22 43 6f 6e 66  69 67 75 72 65 20 42 61  |I","Configure Ba|
00001ee0  75 64 20 22 2b c3 28 62  61 75 64 5f 6e 65 77 25  |ud "+.(baud_new%|
00001ef0  2b 31 29 0d 0a 96 21 e7  20 64 61 74 61 5f 63 6f  |+1)...!. data_co|
00001f00  6e 66 69 67 25 20 3c 3e  20 64 61 74 61 5f 6e 65  |nfig% <> data_ne|
00001f10  77 25 20 8c 0d 0a a0 18  20 e7 20 64 61 74 61 5f  |w% ..... . data_|
00001f20  70 74 72 25 20 3c 3e 20  2d 31 20 8c 0d 0a aa 1b  |ptr% <> -1 .....|
00001f30  20 20 cf 23 6f 75 74 5f  66 69 6c 65 25 3d 64 61  |  .#out_file%=da|
00001f40  74 61 5f 70 74 72 25 0d  0a b4 28 20 20 41 24 3d  |ta_ptr%...(  A$=|
00001f50  c3 7e 28 64 61 74 61 5f  6e 65 77 25 29 3a e7 20  |.~(data_new%):. |
00001f60  a9 41 24 3d 31 20 41 24  3d 22 30 22 2b 41 24 0d  |.A$=1 A$="0"+A$.|
00001f70  0a be 19 20 20 d5 23 6f  75 74 5f 66 69 6c 65 25  |...  .#out_file%|
00001f80  2c 22 26 22 2b 41 24 3b  0d 0a c8 06 20 cd 0d 0a  |,"&"+A$;.... ...|
00001f90  d2 1d 20 64 61 74 61 5f  63 6f 6e 66 69 67 25 20  |.. data_config% |
00001fa0  3d 20 64 61 74 61 5f 6e  65 77 25 0d 0a dc 05 cd  |= data_new%.....|
00001fb0  0d 0a e6 1f e7 20 58 4f  4e 5f 63 6f 6e 66 69 67  |..... XON_config|
00001fc0  25 20 3c 3e 20 58 4f 4e  5f 6e 65 77 25 20 8c 0d  |% <> XON_new% ..|
00001fd0  0a f0 17 20 e7 20 58 4f  4e 5f 70 74 72 25 20 3c  |... . XON_ptr% <|
00001fe0  3e 20 2d 31 20 8c 0d 0a  fa 1a 20 20 cf 23 6f 75  |> -1 .....  .#ou|
00001ff0  74 5f 66 69 6c 65 25 3d  58 4f 4e 5f 70 74 72 25  |t_file%=XON_ptr%|
00002000  0d 0b 04 1c 20 20 d5 23  6f 75 74 5f 66 69 6c 65  |....  .#out_file|
00002010  25 2c c3 58 4f 4e 5f 6e  65 77 25 3b 0d 0b 0e 06  |%,.XON_new%;....|
00002020  20 cd 0d 0b 18 1b 20 58  4f 4e 5f 63 6f 6e 66 69  | ..... XON_confi|
00002030  67 25 20 3d 20 58 4f 4e  5f 6e 65 77 25 0d 0b 22  |g% = XON_new%.."|
00002040  05 cd 0d 0b 2c 26 e7 20  73 65 72 76 65 72 5f 63  |....,&. server_c|
00002050  6f 6e 66 69 67 24 20 3c  3e 20 24 73 65 72 76 65  |onfig$ <> $serve|
00002060  72 5f 6e 65 77 25 20 8c  0d 0b 36 1a 20 e7 20 73  |r_new% ...6. . s|
00002070  65 72 76 65 72 5f 70 74  72 25 20 3c 3e 20 2d 31  |erver_ptr% <> -1|
00002080  20 8c 0d 0b 40 1d 20 20  cf 23 6f 75 74 5f 66 69  | ...@.  .#out_fi|
00002090  6c 65 25 3d 73 65 72 76  65 72 5f 70 74 72 25 0d  |le%=server_ptr%.|
000020a0  0b 4a 35 20 20 d5 23 6f  75 74 5f 66 69 6c 65 25  |.J5  .#out_file%|
000020b0  2c 24 73 65 72 76 65 72  5f 6e 65 77 25 2b c4 38  |,$server_new%+.8|
000020c0  2d a9 24 73 65 72 76 65  72 5f 6e 65 77 25 2c 22  |-.$server_new%,"|
000020d0  3b 22 29 3b 0d 0b 54 06  20 cd 0d 0b 5e 22 20 73  |;");..T. ...^" s|
000020e0  65 72 76 65 72 5f 63 6f  6e 66 69 67 24 20 3d 20  |erver_config$ = |
000020f0  24 73 65 72 76 65 72 5f  6e 65 77 25 0d 0b 68 05  |$server_new%..h.|
00002100  cd 0d 0b 72 17 e7 20 6c  6f 63 61 74 69 6f 6e 5f  |...r.. location_|
00002110  6e 65 77 25 3d 34 20 8c  0d 0b 7c 2d 20 c8 99 22  |new%=4 ...|- .."|
00002120  58 4f 53 5f 43 4c 49 22  2c 22 43 6f 6e 66 69 67  |XOS_CLI","Config|
00002130  75 72 65 20 50 53 20 22  2b 24 73 65 72 76 65 72  |ure PS "+$server|
00002140  5f 6e 65 77 25 0d 0b 86  0c 20 f2 73 65 74 5f 70  |_new%.... .set_p|
00002150  73 0d 0b 90 05 cd 0d 0b  9a 18 f2 50 72 69 6e 74  |s..........Print|
00002160  65 72 5f 41 6d 65 6e 64  43 6f 6e 66 69 67 0d 0b  |er_AmendConfig..|
00002170  a4 1b d9 23 6f 75 74 5f  66 69 6c 65 25 3a 6f 75  |...#out_file%:ou|
00002180  74 5f 66 69 6c 65 25 3d  30 0d 0b ae 05 e1 0d 0b  |t_file%=0.......|
00002190  b8 05 3a 0d 0b c2 0d dd  20 f2 73 65 74 5f 70 73  |..:..... .set_ps|
000021a0  0d 0b cc 07 ea 20 85 0d  0b d6 0b ee 20 85 20 ea  |..... ...... . .|
000021b0  20 e1 0d 0b e0 19 ff 28  22 50 53 20 22 2b 24 73  | ......("PS "+$s|
000021c0  65 72 76 65 72 5f 6e 65  77 25 29 0d 0b ea 1c 73  |erver_new%)....s|
000021d0  65 72 76 65 72 5f 73 65  74 24 3d 24 73 65 72 76  |erver_set$=$serv|
000021e0  65 72 5f 6e 65 77 25 0d  0b f4 05 e1 0d 0b fe 05  |er_new%.........|
000021f0  3a 0d 0c 08 0f dd f2 74  65 72 6d 69 6e 61 74 65  |:......terminate|
00002200  0d 0c 12 14 2a 75 6e 73  65 74 20 24 50 72 69 6e  |....*unset $Prin|
00002210  74 69 6e 67 0d 0c 1c 1c  ee 20 85 20 c8 99 22 57  |ting..... . .."W|
00002220  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 3a e0  |imp_CloseDown":.|
00002230  0d 0c 26 17 f2 50 72 69  6e 74 65 72 5f 43 6c 6f  |..&..Printer_Clo|
00002240  73 65 46 69 6c 65 73 0d  0c 30 16 f2 50 72 69 6e  |seFiles..0..Prin|
00002250  74 65 72 5f 74 65 72 6d  69 6e 61 74 65 0d 0c 3a  |ter_terminate..:|
00002260  34 e7 20 69 6e 5f 66 69  6c 65 25 3c 3e 30 20 c8  |4. in_file%<>0 .|
00002270  99 22 58 4f 53 5f 46 69  6e 64 22 2c 30 2c 69 6e  |."XOS_Find",0,in|
00002280  5f 66 69 6c 65 25 3a 69  6e 5f 66 69 6c 65 25 3d  |_file%:in_file%=|
00002290  30 0d 0c 44 46 e7 20 6f  75 74 5f 66 69 6c 65 25  |0..DF. out_file%|
000022a0  3c 3e 30 20 f2 45 73 63  4f 6e 3a c8 99 22 58 4f  |<>0 .EscOn:.."XO|
000022b0  53 5f 46 69 6e 64 22 2c  30 2c 6f 75 74 5f 66 69  |S_Find",0,out_fi|
000022c0  6c 65 25 3a 6f 75 74 5f  66 69 6c 65 25 3d 30 3a  |le%:out_file%=0:|
000022d0  f2 45 73 63 4f 66 66 0d  0c 4e 16 c8 99 22 57 69  |.EscOff..N..."Wi|
000022e0  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 0d 0c 58  |mp_CloseDown"..X|
000022f0  05 e0 0d 0c 62 05 3a 0d  0c 6c 0f dd 20 f2 64 65  |....b.:..l.. .de|
00002300  66 61 75 6c 74 73 0d 0c  76 14 ea 20 72 61 6d 76  |faults..v.. ramv|
00002310  61 6c 25 2c 20 74 65 6d  70 25 0d 0c 80 1a 64 61  |al%, temp%....da|
00002320  74 61 5f 6e 65 77 25 3d  64 61 74 61 5f 63 6f 6e  |ta_new%=data_con|
00002330  66 69 67 25 0d 0c 8a 29  f2 73 65 74 5f 74 69 63  |fig%...).set_tic|
00002340  6b 28 62 69 74 73 6d 25  2c 33 2d 28 64 61 74 61  |k(bitsm%,3-(data|
00002350  5f 6e 65 77 25 20 80 20  33 29 2c 31 29 0d 0c 94  |_new% . 3),1)...|
00002360  1a e7 20 64 61 74 61 5f  6e 65 77 25 20 80 20 28  |.. data_new% . (|
00002370  31 3c 3c 33 29 20 8c 0d  0c 9e 33 20 f2 73 65 74  |1<<3) ....3 .set|
00002380  5f 74 69 63 6b 28 70 61  72 69 74 79 6d 25 2c 28  |_tick(paritym%,(|
00002390  28 64 61 74 61 5f 6e 65  77 25 20 3e 3e 20 34 29  |(data_new% >> 4)|
000023a0  20 80 20 33 29 2b 31 2c  31 29 0d 0c a8 05 cc 0d  | . 3)+1,1)......|
000023b0  0c b2 1c 20 f2 73 65 74  5f 74 69 63 6b 28 70 61  |... .set_tick(pa|
000023c0  72 69 74 79 6d 25 2c 30  2c 31 29 0d 0c bc 05 cd  |ritym%,0,1).....|
000023d0  0d 0c c6 2a f2 73 65 74  5f 74 69 63 6b 28 73 74  |...*.set_tick(st|
000023e0  6f 70 6d 25 2c 28 64 61  74 61 5f 6e 65 77 25 3e  |opm%,(data_new%>|
000023f0  3e 32 29 20 80 20 31 2c  31 29 0d 0c d0 24 f2 73  |>2) . 1,1)...$.s|
00002400  65 74 5f 74 69 63 6b 28  73 65 72 69 61 6c 6d 25  |et_tick(serialm%|
00002410  2c 20 32 2c 20 58 4f 4e  5f 6e 65 77 25 29 0d 0c  |, 2, XON_new%)..|
00002420  da 23 c8 99 20 22 4f 53  5f 42 79 74 65 22 2c 20  |.#.. "OS_Byte", |
00002430  31 36 31 2c 20 31 35 20  b8 20 2c 2c 74 65 6d 70  |161, 15 . ,,temp|
00002440  25 0d 0c e4 3e e7 20 62  61 75 64 5f 70 74 72 25  |%...>. baud_ptr%|
00002450  20 3d 20 2d 31 20 8c 20  62 61 75 64 5f 63 6f 6e  | = -1 . baud_con|
00002460  66 69 67 25 20 3d 20 28  74 65 6d 70 25 20 80 20  |fig% = (temp% . |
00002470  25 30 30 30 31 31 31 30  30 29 20 3e 3e 20 32 0d  |%00011100) >> 2.|
00002480  0c ee 1c 62 61 75 64 5f  6e 65 77 25 20 3d 20 62  |...baud_new% = b|
00002490  61 75 64 5f 63 6f 6e 66  69 67 25 0d 0c f8 44 e7  |aud_config%...D.|
000024a0  20 6c 6f 63 61 74 69 6f  6e 5f 70 74 72 25 3d 2d  | location_ptr%=-|
000024b0  31 20 8c 20 6c 6f 63 61  74 69 6f 6e 5f 63 6f 6e  |1 . location_con|
000024c0  66 69 67 25 20 3d 20 28  74 65 6d 70 25 20 80 20  |fig% = (temp% . |
000024d0  25 31 31 31 30 30 30 30  30 29 20 3e 3e 20 35 0d  |%11100000) >> 5.|
000024e0  0d 02 1c e7 20 6c 6f 63  61 74 69 6f 6e 5f 63 6f  |.... location_co|
000024f0  6e 66 69 67 25 20 3d 20  32 20 8c 0d 0d 0c 1e 20  |nfig% = 2 ..... |
00002500  c8 99 22 4f 53 5f 42 79  74 65 22 2c 38 2c 62 61  |.."OS_Byte",8,ba|
00002510  75 64 5f 6e 65 77 25 2b  31 0d 0d 16 1e 20 c8 99  |ud_new%+1.... ..|
00002520  22 4f 53 5f 42 79 74 65  22 2c 37 2c 62 61 75 64  |"OS_Byte",7,baud|
00002530  5f 6e 65 77 25 2b 31 0d  0d 20 20 20 c8 99 22 4f  |_new%+1..   .."O|
00002540  53 5f 53 65 72 69 61 6c  4f 70 22 2c 31 2c 64 61  |S_SerialOp",1,da|
00002550  74 61 5f 6e 65 77 25 0d  0d 2a 22 20 c8 99 22 4f  |ta_new%..*" .."O|
00002560  53 5f 53 65 72 69 61 6c  4f 70 22 2c 30 2c 58 4f  |S_SerialOp",0,XO|
00002570  4e 5f 6e 65 77 25 2c ac  31 0d 0d 34 14 20 f2 50  |N_new%,.1..4. .P|
00002580  72 69 6e 74 65 72 5f 49  67 6e 6f 72 65 0d 0d 3e  |rinter_Ignore..>|
00002590  1f 20 f2 50 72 69 6e 74  65 72 5f 58 6f 6e 58 6f  |. .Printer_XonXo|
000025a0  66 66 28 58 4f 4e 5f 6e  65 77 25 29 0d 0d 48 05  |ff(XON_new%)..H.|
000025b0  cd 0d 0d 52 45 e7 20 6c  6f 63 61 74 69 6f 6e 5f  |...RE. location_|
000025c0  63 6f 6e 66 69 67 25 20  3d 20 30 20 8c 20 24 66  |config% = 0 . $f|
000025d0  69 6c 65 5f 6e 61 6d 65  25 20 3d 20 22 6e 75 6c  |ile_name% = "nul|
000025e0  6c 3a 22 3a 6c 6f 63 61  74 69 6f 6e 5f 63 6f 6e  |l:":location_con|
000025f0  66 69 67 25 3d 35 0d 0d  5c 23 f2 73 65 74 5f 74  |fig%=5..\#.set_t|
00002600  69 63 6b 28 62 61 75 64  6d 25 2c 20 62 61 75 64  |ick(baudm%, baud|
00002610  5f 6e 65 77 25 2c 20 31  29 0d 0d 66 19 c8 8e 20  |_new%, 1)..f... |
00002620  6c 6f 63 61 74 69 6f 6e  5f 63 6f 6e 66 69 67 25  |location_config%|
00002630  20 ca 0d 0d 70 27 20 20  20 c9 20 31 3a 20 f2 73  | ...p'   . 1: .s|
00002640  65 74 5f 74 69 63 6b 28  70 72 69 6e 74 6d 65 6e  |et_tick(printmen|
00002650  75 25 2c 20 31 2c 20 31  29 0d 0d 7a 27 20 20 20  |u%, 1, 1)..z'   |
00002660  c9 20 32 3a 20 f2 73 65  74 5f 74 69 63 6b 28 70  |. 2: .set_tick(p|
00002670  72 69 6e 74 6d 65 6e 75  25 2c 20 32 2c 20 31 29  |rintmenu%, 2, 1)|
00002680  0d 0d 84 27 20 20 20 c9  20 34 3a 20 f2 73 65 74  |...'   . 4: .set|
00002690  5f 74 69 63 6b 28 70 72  69 6e 74 6d 65 6e 75 25  |_tick(printmenu%|
000026a0  2c 20 33 2c 20 31 29 0d  0d 8e 27 20 20 20 c9 20  |, 3, 1)...'   . |
000026b0  35 3a 20 f2 73 65 74 5f  74 69 63 6b 28 70 72 69  |5: .set_tick(pri|
000026c0  6e 74 6d 65 6e 75 25 2c  20 34 2c 20 31 29 0d 0d  |ntmenu%, 4, 1)..|
000026d0  98 05 cb 0d 0d a2 24 6c  6f 63 61 74 69 6f 6e 5f  |......$location_|
000026e0  6e 65 77 25 20 3d 20 6c  6f 63 61 74 69 6f 6e 5f  |new% = location_|
000026f0  63 6f 6e 66 69 67 25 0d  0d ac 24 f2 50 72 69 6e  |config%...$.Prin|
00002700  74 65 72 5f 4c 6f 63 61  74 69 6f 6e 28 6c 6f 63  |ter_Location(loc|
00002710  61 74 69 6f 6e 5f 6e 65  77 25 29 0d 0d b6 1c e7  |ation_new%).....|
00002720  20 6c 6f 63 61 74 69 6f  6e 5f 6e 65 77 25 3d 35  | location_new%=5|
00002730  20 f2 73 74 61 6d 70 0d  0d c0 18 e7 20 73 65 72  | .stamp..... ser|
00002740  76 65 72 5f 70 74 72 25  20 3d 20 2d 31 20 8c 0d  |ver_ptr% = -1 ..|
00002750  0d ca 23 20 c8 99 20 22  4f 53 5f 42 79 74 65 22  |..# .. "OS_Byte"|
00002760  2c 20 31 36 31 2c 20 33  20 b8 20 2c 2c 74 65 6d  |, 161, 3 . ,,tem|
00002770  70 25 0d 0d d4 12 20 e7  20 74 65 6d 70 25 20 3d  |p%.... . temp% =|
00002780  20 30 20 8c 0d 0d de 24  20 20 c8 99 20 22 4f 53  | 0 ....$  .. "OS|
00002790  5f 42 79 74 65 22 2c 20  31 36 31 2c 20 34 20 b8  |_Byte", 161, 4 .|
000027a0  20 2c 2c 74 65 6d 70 25  0d 0d e8 1f 20 20 73 65  | ,,temp%....  se|
000027b0  72 76 65 72 5f 63 6f 6e  66 69 67 24 20 3d 20 bd  |rver_config$ = .|
000027c0  28 74 65 6d 70 25 29 0d  0d f2 13 20 20 72 61 6d  |(temp%)....  ram|
000027d0  76 61 6c 25 20 3d 20 26  39 39 0d 0d fc 07 20 20  |val% = &99....  |
000027e0  f5 0d 0e 06 2b 20 20 20  c8 99 20 22 4f 53 5f 42  |....+   .. "OS_B|
000027f0  79 74 65 22 2c 20 31 36  31 2c 20 72 61 6d 76 61  |yte", 161, ramva|
00002800  6c 25 20 b8 20 2c 2c 74  65 6d 70 25 0d 0e 10 3d  |l% . ,,temp%...=|
00002810  20 20 20 e7 20 74 65 6d  70 25 20 3e 33 32 20 73  |   . temp% >32 s|
00002820  65 72 76 65 72 5f 63 6f  6e 66 69 67 24 20 3d 20  |erver_config$ = |
00002830  73 65 72 76 65 72 5f 63  6f 6e 66 69 67 24 20 2b  |server_config$ +|
00002840  20 bd 28 74 65 6d 70 25  29 0d 0e 1a 13 20 20 20  | .(temp%)....   |
00002850  72 61 6d 76 61 6c 25 20  2b 3d 20 31 0d 0e 24 23  |ramval% += 1..$#|
00002860  20 20 fd 20 74 65 6d 70  25 20 3c 3d 20 33 32 20  |  . temp% <= 32 |
00002870  84 20 72 61 6d 76 61 6c  25 20 3d 20 26 39 45 0d  |. ramval% = &9E.|
00002880  0e 2e 06 20 cc 0d 0e 38  23 20 20 73 65 72 76 65  |... ...8#  serve|
00002890  72 5f 63 6f 6e 66 69 67  24 20 3d 20 22 2e 22 2b  |r_config$ = "."+|
000028a0  c3 28 74 65 6d 70 25 29  0d 0e 42 24 20 20 c8 99  |.(temp%)..B$  ..|
000028b0  20 22 4f 53 5f 42 79 74  65 22 2c 20 31 36 31 2c  | "OS_Byte", 161,|
000028c0  20 34 20 b8 20 2c 2c 74  65 6d 70 25 0d 0e 4c 30  | 4 . ,,temp%..L0|
000028d0  20 20 73 65 72 76 65 72  5f 63 6f 6e 66 69 67 24  |  server_config$|
000028e0  20 3d 20 c3 28 74 65 6d  70 25 29 20 2b 20 73 65  | = .(temp%) + se|
000028f0  72 76 65 72 5f 63 6f 6e  66 69 67 24 0d 0e 56 06  |rver_config$..V.|
00002900  20 cd 0d 0e 60 05 cd 0d  0e 6a 21 24 73 65 72 76  | ...`....j!$serv|
00002910  65 72 5f 6e 65 77 25 20  3d 20 73 65 72 76 65 72  |er_new% = server|
00002920  5f 63 6f 6e 66 69 67 24  0d 0e 74 05 e1 0d 0e 7e  |_config$..t....~|
00002930  05 3a 0d 0e 88 16 dd 20  f2 72 65 64 72 61 77 28  |.:..... .redraw(|
00002940  68 61 6e 64 6c 65 25 29  0d 0e 92 05 e1 0d 0e 9c  |handle%)........|
00002950  05 3a 0d 0e a6 18 dd 20  f2 72 65 63 65 69 76 65  |.:..... .receive|
00002960  28 6d 65 73 73 61 67 65  25 29 0d 0e b0 32 ea 20  |(message%)...2. |
00002970  6d 79 5f 72 65 66 25 2c  20 74 79 70 65 24 2c 20  |my_ref%, type$, |
00002980  6f 70 74 69 6f 6e 24 2c  20 49 25 2c 20 70 66 6c  |option$, I%, pfl|
00002990  61 67 25 2c 20 73 65 6e  64 65 72 25 0d 0e ba 18  |ag%, sender%....|
000029a0  6d 79 5f 72 65 66 25 20  3d 20 6d 65 73 73 61 67  |my_ref% = messag|
000029b0  65 25 21 38 0d 0e c4 14  c8 8e 20 6d 65 73 73 61  |e%!8...... messa|
000029c0  67 65 25 21 31 36 20 ca  0d 0e ce 1b 20 c9 20 30  |ge%!16 ..... . 0|
000029d0  2c 4d 65 73 73 61 67 65  5f 50 72 69 6e 74 42 75  |,Message_PrintBu|
000029e0  73 79 25 0d 0e d8 11 20  20 f2 65 6e 64 63 6f 6e  |sy%....  .endcon|
000029f0  66 69 72 6d 0d 0e e2 10  20 20 f2 74 65 72 6d 69  |firm....  .termi|
00002a00  6e 61 74 65 0d 0e ec 08  20 c9 20 38 0d 0e f6 13  |nate.... . 8....|
00002a10  20 20 e7 20 70 72 69 6e  74 5f 6f 6e 25 20 8c 0d  |  . print_on% ..|
00002a20  0f 00 1b 20 20 20 73 65  6e 64 65 72 25 20 3d 20  |...   sender% = |
00002a30  6d 65 73 73 61 67 65 25  21 34 0d 0f 0a 29 20 20  |message%!4...)  |
00002a40  20 e3 20 49 25 3d 30 b8  32 35 32 88 34 3a 6d 73  | . I%=0.252.4:ms|
00002a50  67 25 21 49 25 3d 6d 65  73 73 61 67 65 25 21 49  |g%!I%=message%!I|
00002a60  25 3a ed 0d 0f 14 18 20  20 20 6d 73 67 25 21 31  |%:.....   msg%!1|
00002a70  32 20 3d 20 6d 79 5f 72  65 66 25 0d 0f 1e 2f 20  |2 = my_ref%.../ |
00002a80  20 20 c8 99 20 22 57 69  6d 70 5f 53 65 6e 64 4d  |  .. "Wimp_SendM|
00002a90  65 73 73 61 67 65 22 2c  20 31 39 2c 20 6d 73 67  |essage", 19, msg|
00002aa0  25 2c 20 73 65 6e 64 65  72 25 0d 0f 28 4e 20 20  |%, sender%..(N  |
00002ab0  20 e7 20 a4 63 6f 6e 66  69 72 6d 28 22 41 20 66  | . .confirm("A f|
00002ac0  69 6c 65 20 69 73 20 62  65 69 6e 67 20 70 72 69  |ile is being pri|
00002ad0  6e 74 65 64 3b 20 61 72  65 20 79 6f 75 20 73 75  |nted; are you su|
00002ae0  72 65 20 79 6f 75 20 77  61 6e 74 20 74 6f 20 51  |re you want to Q|
00002af0  75 69 74 3f 22 29 20 8c  0d 0f 32 10 20 20 20 20  |uit?") ...2.    |
00002b00  2a 46 58 20 32 31 2c 33  0d 0f 3c 16 20 20 20 20  |*FX 21,3..<.    |
00002b10  f2 73 74 6f 70 5f 70 72  69 6e 74 69 6e 67 0d 0f  |.stop_printing..|
00002b20  46 28 20 20 20 20 c8 99  20 22 57 69 6d 70 5f 47  |F(    .. "Wimp_G|
00002b30  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
00002b40  2c 2c 6d 73 67 25 0d 0f  50 16 20 20 20 20 6d 73  |,,msg%..P.    ms|
00002b50  67 25 21 32 34 20 3d 20  26 31 46 43 0d 0f 5a 2c  |g%!24 = &1FC..Z,|
00002b60  20 20 20 20 c8 99 20 22  57 69 6d 70 5f 53 65 6e  |    .. "Wimp_Sen|
00002b70  64 4d 65 73 73 61 67 65  22 2c 38 2c 6d 73 67 25  |dMessage",8,msg%|
00002b80  2c 73 65 6e 64 65 72 25  0d 0f 64 08 20 20 20 cd  |,sender%..d.   .|
00002b90  0d 0f 6e 07 20 20 cd 0d  0f 78 1b 20 c9 20 31 2c  |..n.  ...x. . 1,|
00002ba0  4d 65 73 73 61 67 65 5f  50 72 69 6e 74 53 61 76  |Message_PrintSav|
00002bb0  65 25 0d 0f 82 34 20 20  f4 20 73 61 76 65 20 6f  |e%...4  . save o|
00002bc0  6e 74 6f 20 6f 75 72 20  69 63 6f 6e 3b 20 72 65  |nto our icon; re|
00002bd0  70 6c 79 20 77 69 74 68  20 50 72 69 6e 74 20 6d  |ply with Print m|
00002be0  65 73 73 61 67 65 0d 0f  8c 28 20 20 e3 20 49 25  |essage...(  . I%|
00002bf0  3d 30 b8 32 35 32 88 34  3a 6d 73 67 25 21 49 25  |=0.252.4:msg%!I%|
00002c00  3d 6d 65 73 73 61 67 65  25 21 49 25 3a ed 0d 0f  |=message%!I%:...|
00002c10  96 11 20 20 f2 65 6e 64  63 6f 6e 66 69 72 6d 0d  |..  .endconfirm.|
00002c20  0f a0 3f 20 20 e7 20 70  72 69 6e 74 5f 72 65 66  |..?  . print_ref|
00002c30  25 20 8c 20 f2 6d 6f 61  6e 28 22 43 61 6e 20 6f  |% . .moan("Can o|
00002c40  6e 6c 79 20 70 72 69 6e  74 20 6f 6e 65 20 66 69  |nly print one fi|
00002c50  6c 65 20 61 74 20 61 20  74 69 6d 65 22 29 0d 0f  |le at a time")..|
00002c60  aa 23 20 20 73 61 76 65  5f 6e 61 6d 65 24 3d a4  |.#  save_name$=.|
00002c70  72 74 6f 7a 28 6d 65 73  73 61 67 65 25 2b 34 34  |rtoz(message%+44|
00002c80  29 0d 0f b4 13 20 20 e7  20 70 72 69 6e 74 5f 6f  |)....  . print_o|
00002c90  6e 25 20 8c 0d 0f be 18  20 20 20 e7 20 6d 65 73  |n% .....   . mes|
00002ca0  73 61 67 65 25 21 31 36  3d 31 20 8c 0d 0f c8 21  |sage%!16=1 ....!|
00002cb0  20 20 20 20 f2 6d 6f 61  6e 28 22 41 6c 72 65 61  |    .moan("Alrea|
00002cc0  64 79 20 70 72 69 6e 74  69 6e 67 22 29 0d 0f d2  |dy printing")...|
00002cd0  08 20 20 20 cc 0d 0f dc  13 20 20 20 20 6d 73 67  |.   .....    msg|
00002ce0  25 21 30 20 3d 20 32 30  0d 0f e6 19 20 20 20 20  |%!0 = 20....    |
00002cf0  6d 73 67 25 21 31 32 20  3d 20 6d 79 5f 72 65 66  |msg%!12 = my_ref|
00002d00  25 0d 0f f0 24 20 20 20  20 6d 73 67 25 21 31 36  |%...$    msg%!16|
00002d10  20 3d 20 4d 65 73 73 61  67 65 5f 50 72 69 6e 74  | = Message_Print|
00002d20  42 75 73 79 25 0d 0f fa  2f 20 20 20 20 c8 99 20  |Busy%.../    .. |
00002d30  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00002d40  65 22 2c 20 31 37 2c 20  6d 73 67 25 2c 20 6d 73  |e", 17, msg%, ms|
00002d50  67 25 21 34 0d 10 04 08  20 20 20 cd 0d 10 0e 07  |g%!4....   .....|
00002d60  20 20 cc 0d 10 18 18 20  20 20 6d 73 67 25 21 31  |  .....   msg%!1|
00002d70  32 20 3d 20 6d 79 5f 72  65 66 25 0d 10 22 23 20  |2 = my_ref%.."# |
00002d80  20 20 6d 73 67 25 21 31  36 20 3d 20 4d 65 73 73  |  msg%!16 = Mess|
00002d90  61 67 65 5f 50 72 69 6e  74 46 69 6c 65 25 0d 10  |age_PrintFile%..|
00002da0  2c 12 20 20 20 6d 73 67  25 21 30 20 3d 20 36 30  |,.   msg%!0 = 60|
00002db0  0d 10 36 25 20 20 20 24  28 6d 73 67 25 2b 34 34  |..6%   $(msg%+44|
00002dc0  29 20 3d 20 22 3c 50 72  69 6e 74 65 72 24 53 63  |) = "<Printer$Sc|
00002dd0  72 61 70 3e 22 0d 10 40  12 20 20 20 6d 73 67 25  |rap>"..@.   msg%|
00002de0  3f 35 39 20 3d 20 30 0d  10 4a 2e 20 20 20 c8 99  |?59 = 0..J.   ..|
00002df0  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
00002e00  67 65 22 2c 20 31 38 2c  20 6d 73 67 25 2c 20 6d  |ge", 18, msg%, m|
00002e10  73 67 25 21 34 0d 10 54  1a 20 20 20 6d 73 67 25  |sg%!4..T.   msg%|
00002e20  21 34 20 3d 20 6d 65 73  73 61 67 65 25 21 34 0d  |!4 = message%!4.|
00002e30  10 5e 18 20 20 20 70 72  69 6e 74 5f 72 65 66 25  |.^.   print_ref%|
00002e40  3d 6d 73 67 25 21 38 0d  10 68 07 20 20 cd 0d 10  |=msg%!8..h.  ...|
00002e50  72 08 20 c9 20 33 0d 10  7c 18 20 20 73 65 6e 64  |r. . 3..|.  send|
00002e60  65 72 25 3d 6d 65 73 73  61 67 65 25 21 34 0d 10  |er%=message%!4..|
00002e70  86 11 20 20 f2 65 6e 64  63 6f 6e 66 69 72 6d 0d  |..  .endconfirm.|
00002e80  10 90 59 20 20 e7 20 70  72 69 6e 74 5f 72 65 66  |..Y  . print_ref|
00002e90  25 20 e7 20 70 72 69 6e  74 5f 72 65 66 25 3c 3e  |% . print_ref%<>|
00002ea0  6d 65 73 73 61 67 65 25  21 31 32 20 8c 20 f2 6d  |message%!12 . .m|
00002eb0  6f 61 6e 28 22 43 61 6e  20 6f 6e 6c 79 20 70 72  |oan("Can only pr|
00002ec0  69 6e 74 20 6f 6e 65 20  66 69 6c 65 20 61 74 20  |int one file at |
00002ed0  61 20 74 69 6d 65 22 29  0d 10 9a 12 20 20 70 72  |a time")....  pr|
00002ee0  69 6e 74 5f 72 65 66 25  3d 30 0d 10 a4 14 20 20  |int_ref%=0....  |
00002ef0  e7 20 70 72 69 6e 74 5f  6f 6e 25 20 20 8c 0d 10  |. print_on%  ...|
00002f00  ae 20 20 20 20 f2 6d 6f  61 6e 28 22 41 6c 72 65  |.    .moan("Alre|
00002f10  61 64 79 20 70 72 69 6e  74 69 6e 67 22 29 0d 10  |ady printing")..|
00002f20  b8 07 20 20 cc 0d 10 c2  29 20 20 20 e3 20 49 25  |..  ....)   . I%|
00002f30  3d 30 b8 32 35 32 88 34  3a 6d 73 67 25 21 49 25  |=0.252.4:msg%!I%|
00002f40  3d 6d 65 73 73 61 67 65  25 21 49 25 3a ed 0d 10  |=message%!I%:...|
00002f50  cc 22 20 20 20 66 69 6c  65 6e 61 6d 24 3d a4 72  |."   filenam$=.r|
00002f60  74 6f 7a 28 6d 65 73 73  61 67 65 25 2b 34 34 29  |toz(message%+44)|
00002f70  0d 10 d6 1c 20 20 20 6d  65 73 73 61 67 65 25 21  |....   message%!|
00002f80  31 32 20 3d 20 6d 79 5f  72 65 66 25 0d 10 e0 33  |12 = my_ref%...3|
00002f90  20 20 20 c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |   .. "Wimp_Send|
00002fa0  4d 65 73 73 61 67 65 22  2c 31 39 2c 6d 65 73 73  |Message",19,mess|
00002fb0  61 67 65 25 2c 6d 65 73  73 61 67 65 25 21 34 0d  |age%,message%!4.|
00002fc0  10 ea 36 20 20 20 f4 20  6a 75 73 74 20 61 63 6b  |..6   . just ack|
00002fd0  20 74 68 65 20 6d 65 73  73 61 67 65 20 69 6e 20  | the message in |
00002fe0  63 61 73 65 20 46 4e 63  6f 6e 66 69 72 6d 20 63  |case FNconfirm c|
00002ff0  61 6c 6c 65 64 0d 10 f4  19 20 20 20 46 74 79 70  |alled....   Ftyp|
00003000  65 25 3d 6d 65 73 73 61  67 65 25 21 34 30 0d 10  |e%=message%!40..|
00003010  fe 14 20 20 20 74 79 70  65 5f 73 74 61 74 65 25  |..   type_state%|
00003020  3d 30 0d 11 08 10 20 20  20 6d 73 67 25 21 31 32  |=0....   msg%!12|
00003030  3d 30 0d 11 12 24 20 20  20 6d 73 67 25 21 31 36  |=0...$   msg%!16|
00003040  3d 4d 65 73 73 61 67 65  5f 50 72 69 6e 74 54 79  |=Message_PrintTy|
00003050  70 65 4f 64 64 25 0d 11  1c 28 20 20 20 c8 99 22  |peOdd%...(   .."|
00003060  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00003070  22 2c 20 31 38 2c 20 6d  73 67 25 2c 20 30 0d 11  |", 18, msg%, 0..|
00003080  26 18 20 20 20 70 72 69  6e 74 5f 72 65 66 25 3d  |&.   print_ref%=|
00003090  6d 73 67 25 21 38 0d 11  30 08 20 20 20 f5 0d 11  |msg%!8..0.   ...|
000030a0  3a 32 20 20 20 20 c8 99  20 22 57 69 6d 70 5f 50  |:2    .. "Wimp_P|
000030b0  6f 6c 6c 22 2c 70 6f 6c  6c 5f 6d 61 73 6b 25 2c  |oll",poll_mask%,|
000030c0  65 76 65 6e 74 25 20 b8  20 61 63 74 69 6f 6e 25  |event% . action%|
000030d0  0d 11 44 16 20 20 20 20  f2 64 65 73 70 61 74 63  |..D.    .despatc|
000030e0  68 5f 70 6f 6c 6c 0d 11  4e 14 20 20 20 fd 20 74  |h_poll..N.   . t|
000030f0  79 70 65 5f 73 74 61 74  65 25 0d 11 58 0f 20 20  |ype_state%..X.  |
00003100  20 70 66 6c 61 67 25 3d  a3 0d 11 62 14 20 20 20  | pflag%=...b.   |
00003110  6d 6f 76 65 74 6f 74 65  6d 70 25 3d a3 0d 11 6c  |movetotemp%=...l|
00003120  18 20 20 20 e7 20 74 79  70 65 5f 73 74 61 74 65  |.   . type_state|
00003130  25 3d 32 20 8c 0d 11 76  15 20 20 20 20 6d 6f 76  |%=2 ...v.    mov|
00003140  65 74 6f 74 65 6d 70 25  3d b9 0d 11 80 08 20 20  |etotemp%=.....  |
00003150  20 cc 0d 11 8a 17 20 20  20 20 e7 20 a4 63 68 65  | .....    . .che|
00003160  63 6b 5f 74 79 70 65 20  8c 0d 11 94 19 20 20 20  |ck_type .....   |
00003170  20 20 e7 20 41 6c 69 61  73 24 20 3c 3e 20 22 22  |  . Alias$ <> ""|
00003180  20 8c 0d 11 9e 31 20 20  20 20 20 20 c8 99 20 22  | ....1      .. "|
00003190  57 69 6d 70 5f 53 74 61  72 74 54 61 73 6b 22 2c  |Wimp_StartTask",|
000031a0  41 6c 69 61 73 24 2b 22  20 22 2b 66 69 6c 65 6e  |Alias$+" "+filen|
000031b0  61 6d 24 0d 11 a8 17 20  20 20 20 20 20 6d 6f 76  |am$....      mov|
000031c0  65 74 6f 74 65 6d 70 25  3d b9 0d 11 b2 0a 20 20  |etotemp%=.....  |
000031d0  20 20 20 cc 0d 11 bc 12  20 20 20 20 20 20 70 66  |   .....      pf|
000031e0  6c 61 67 25 3d b9 0d 11  c6 0a 20 20 20 20 20 cd  |lag%=.....     .|
000031f0  0d 11 d0 09 20 20 20 20  cd 0d 11 da 08 20 20 20  |....    .....   |
00003200  cd 0d 11 e4 16 20 20 20  e7 20 6d 6f 76 65 74 6f  |.....   . moveto|
00003210  74 65 6d 70 25 20 8c 0d  11 ee 22 20 20 20 20 69  |temp% ...."    i|
00003220  6e 5f 66 69 6c 65 25 3d  8e 22 3c 50 72 69 6e 74  |n_file%=."<Print|
00003230  65 72 24 54 65 6d 70 3e  22 0d 11 f8 17 20 20 20  |er$Temp>"....   |
00003240  20 e7 20 69 6e 5f 66 69  6c 65 25 3c 3e 30 20 8c  | . in_file%<>0 .|
00003250  0d 12 02 3f 20 20 20 20  20 e7 20 66 69 6c 65 6e  |...?     . filen|
00003260  61 6d 24 20 3d 20 22 3c  50 72 69 6e 74 65 72 24  |am$ = "<Printer$|
00003270  53 63 72 61 70 3e 22 20  8c 20 ff 28 22 72 65 6d  |Scrap>" . .("rem|
00003280  6f 76 65 20 22 2b 66 69  6c 65 6e 61 6d 24 29 0d  |ove "+filenam$).|
00003290  12 0c 24 20 20 20 20 20  66 69 6c 65 6e 61 6d 24  |..$     filenam$|
000032a0  20 3d 20 22 3c 50 72 69  6e 74 65 72 24 54 65 6d  | = "<Printer$Tem|
000032b0  70 3e 22 0d 12 16 1e 20  20 20 20 20 d9 23 69 6e  |p>"....     .#in|
000032c0  5f 66 69 6c 65 25 3a 69  6e 5f 66 69 6c 65 25 3d  |_file%:in_file%=|
000032d0  30 0d 12 20 11 20 20 20  20 20 70 66 6c 61 67 25  |0.. .     pflag%|
000032e0  3d b9 0d 12 2a 09 20 20  20 20 cd 0d 12 34 08 20  |=...*.    ...4. |
000032f0  20 20 cd 0d 12 3e 11 20  20 20 e7 20 70 66 6c 61  |  ...>.   . pfla|
00003300  67 25 20 8c 0d 12 48 1d  20 20 20 20 e7 20 6c 6f  |g% ...H.    . lo|
00003310  63 61 74 69 6f 6e 5f 6e  65 77 25 20 3d 20 34 20  |cation_new% = 4 |
00003320  8c 0d 12 52 2f 20 20 20  20 20 74 79 70 65 24 20  |...R/     type$ |
00003330  3d 20 22 6e 65 74 70 72  69 6e 74 23 22 2b 70 72  |= "netprint#"+pr|
00003340  69 6e 74 65 72 5f 74 79  70 65 24 2b 22 3a 24 22  |inter_type$+":$"|
00003350  0d 12 5c 09 20 20 20 20  cc 0d 12 66 42 20 20 20  |..\.    ...fB   |
00003360  20 20 e7 20 6c 6f 63 61  74 69 6f 6e 5f 6e 65 77  |  . location_new|
00003370  25 20 3d 20 35 20 8c 20  ff 28 22 73 65 74 20 50  |% = 5 . .("set P|
00003380  72 69 6e 74 65 72 54 79  70 65 24 35 20 22 2b 24  |rinterType$5 "+$|
00003390  66 69 6c 65 5f 6e 61 6d  65 25 29 0d 12 70 1a 20  |file_name%)..p. |
000033a0  20 20 20 20 74 79 70 65  24 3d 22 70 72 69 6e 74  |    type$="print|
000033b0  65 72 3a 24 22 0d 12 7a  24 20 20 20 20 20 c8 99  |er:$"..z$     ..|
000033c0  22 4f 53 5f 42 79 74 65  22 2c 35 2c 6c 6f 63 61  |"OS_Byte",5,loca|
000033d0  74 69 6f 6e 5f 6e 65 77  25 0d 12 84 09 20 20 20  |tion_new%....   |
000033e0  20 cd 0d 12 8e 2b 20 20  20 20 f4 20 66 69 6c 65  | ....+    . file|
000033f0  6e 61 6d 24 20 69 73 20  61 6c 73 6f 20 75 73 65  |nam$ is also use|
00003400  64 20 69 6e 20 50 52 4f  43 63 6f 70 79 0d 12 98  |d in PROCcopy...|
00003410  1f 20 20 20 20 69 6e 5f  66 69 6c 65 25 20 20 3d  |.    in_file%  =|
00003420  20 8e 28 66 69 6c 65 6e  61 6d 24 29 0d 12 a2 18  | .(filenam$)....|
00003430  20 20 20 20 e7 20 69 6e  5f 66 69 6c 65 25 20 3d  |    . in_file% =|
00003440  20 30 20 8c 0d 12 ac 38  20 20 20 20 20 f2 6d 6f  | 0 ....8     .mo|
00003450  61 6e 28 22 43 61 6e 27  74 20 6f 70 65 6e 20 27  |an("Can't open '|
00003460  22 2b 66 69 6c 65 6e 61  6d 24 2b 22 27 20 66 6f  |"+filenam$+"' fo|
00003470  72 20 70 72 69 6e 74 69  6e 67 22 29 0d 12 b6 09  |r printing")....|
00003480  20 20 20 20 cd 0d 12 c0  26 20 20 20 20 6f 75 74  |    ....&    out|
00003490  5f 66 69 6c 65 25 20 3d  20 ae 28 74 79 70 65 24  |_file% = .(type$|
000034a0  2b 22 2e 6f 75 74 70 75  74 22 29 0d 12 ca 19 20  |+".output").... |
000034b0  20 20 20 e7 20 6f 75 74  5f 66 69 6c 65 25 20 3d  |   . out_file% =|
000034c0  20 30 20 8c 0d 12 d4 1e  20 20 20 20 20 d9 23 69  | 0 .....     .#i|
000034d0  6e 5f 66 69 6c 65 25 3a  69 6e 5f 66 69 6c 65 25  |n_file%:in_file%|
000034e0  3d 30 0d 12 de 3c 20 20  20 20 20 f2 6d 6f 61 6e  |=0...<     .moan|
000034f0  28 22 43 61 6e 27 74 20  6f 70 65 6e 20 27 22 2b  |("Can't open '"+|
00003500  74 79 70 65 24 2b 22 2e  6f 75 74 70 75 74 27 20  |type$+".output' |
00003510  66 6f 72 20 70 72 69 6e  74 69 6e 67 22 29 0d 12  |for printing")..|
00003520  e8 09 20 20 20 20 cd 0d  12 f2 1b 20 20 20 20 f2  |..    .....    .|
00003530  73 65 74 5f 70 72 69 6e  74 5f 73 74 61 74 65 28  |set_print_state(|
00003540  b9 29 0d 12 fc 21 20 20  20 20 f2 63 68 61 6e 67  |.)...!    .chang|
00003550  65 5f 69 63 6f 6e 3a f2  75 70 64 61 74 65 5f 69  |e_icon:.update_i|
00003560  63 6f 6e 0d 13 06 13 20  20 20 20 70 62 75 66 25  |con....    pbuf%|
00003570  3d 96 28 2d 34 29 0d 13  10 0f 20 20 20 20 73 65  |=.(-4)....    se|
00003580  6e 74 25 3d a3 0d 13 1a  17 20 20 20 20 f2 50 72  |nt%=.....    .Pr|
00003590  69 6e 74 65 72 5f 48 65  61 64 65 72 0d 13 24 08  |inter_Header..$.|
000035a0  20 20 20 cd 0d 13 2e 07  20 20 cd 0d 13 38 30 20  |   .....  ...80 |
000035b0  20 f4 20 73 65 6e 64 20  44 61 74 61 4c 6f 61 64  | . send DataLoad|
000035c0  41 63 6b 20 62 61 63 6b  20 74 6f 20 6f 72 69 67  |Ack back to orig|
000035d0  69 6e 61 6c 20 73 65 6e  64 65 72 0d 13 42 12 20  |inal sender..B. |
000035e0  20 6d 73 67 25 21 30 20  20 3d 20 32 30 0d 13 4c  | msg%!0  = 20..L|
000035f0  17 20 20 6d 73 67 25 21  31 32 20 3d 20 6d 79 5f  |.  msg%!12 = my_|
00003600  72 65 66 25 0d 13 56 11  20 20 6d 73 67 25 21 31  |ref%..V.  msg%!1|
00003610  36 20 3d 20 34 0d 13 60  12 20 20 6d 73 67 25 21  |6 = 4..`.  msg%!|
00003620  33 36 20 3d 20 2d 31 0d  13 6a 2d 20 20 c8 99 22  |36 = -1..j-  .."|
00003630  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00003640  22 2c 20 31 37 2c 20 6d  73 67 25 2c 20 73 65 6e  |", 17, msg%, sen|
00003650  64 65 72 25 0d 13 74 1b  20 c9 20 26 35 30 32 3a  |der%..t. . &502:|
00003660  20 f4 20 68 65 6c 70 20  72 65 71 75 65 73 74 0d  | . help request.|
00003670  13 7e d9 20 20 e7 20 6d  65 73 73 61 67 65 25 21  |.~.  . message%!|
00003680  33 32 3d 2d 32 20 80 20  6d 65 73 73 61 67 65 25  |32=-2 . message%|
00003690  21 33 36 3d 69 63 70 72  69 6e 74 25 20 f2 68 65  |!36=icprint% .he|
000036a0  6c 70 72 65 70 6c 79 28  22 54 68 69 73 20 69 73  |lpreply("This is|
000036b0  20 74 68 65 20 22 2b 46  75 6c 6c 50 72 69 6e 74  | the "+FullPrint|
000036c0  65 72 43 6c 61 73 73 24  2b 22 20 70 72 69 6e 74  |erClass$+" print|
000036d0  65 72 20 69 63 6f 6e 2e  7c 4d 44 72 6f 70 20 74  |er icon.|MDrop t|
000036e0  65 78 74 20 66 69 6c 65  73 20 6f 6e 20 74 6f 20  |ext files on to |
000036f0  69 74 20 74 6f 20 70 72  69 6e 74 20 74 68 65 6d  |it to print them|
00003700  2e 7c 4d 43 6c 69 63 6b  20 4d 45 4e 55 20 6f 72  |.|MClick MENU or|
00003710  20 53 45 4c 45 43 54 20  74 6f 20 73 65 74 20 74  | SELECT to set t|
00003720  68 65 20 70 72 69 6e 74  65 72 20 6f 70 74 69 6f  |he printer optio|
00003730  6e 73 2e 22 2c 6d 79 5f  72 65 66 25 2c 6d 65 73  |ns.",my_ref%,mes|
00003740  73 61 67 65 25 21 34 29  0d 13 88 19 20 c9 20 4d  |sage%!4).... . M|
00003750  65 73 73 61 67 65 5f 57  69 6c 6c 50 72 69 6e 74  |essage_WillPrint|
00003760  25 0d 13 92 12 20 20 70  72 69 6e 74 5f 72 65 66  |%....  print_ref|
00003770  25 3d 30 0d 13 9c 19 20  c9 20 4d 65 73 73 61 67  |%=0.... . Messag|
00003780  65 5f 50 72 69 6e 74 49  6e 69 74 25 0d 13 a6 23  |e_PrintInit%...#|
00003790  20 20 e7 20 70 6f 6c 6c  5f 6d 61 73 6b 25 3c 3e  |  . poll_mask%<>|
000037a0  ac 28 25 31 31 31 20 3c  3c 20 31 37 29 20 8c 0d  |.(%111 << 17) ..|
000037b0  13 b0 14 20 20 20 e7 20  70 72 69 6e 74 5f 6f 6e  |...   . print_on|
000037c0  25 20 8c 0d 13 ba 11 20  20 20 20 6d 73 67 25 21  |% .....    msg%!|
000037d0  30 3d 32 30 0d 13 c4 17  20 20 20 20 6d 73 67 25  |0=20....    msg%|
000037e0  21 31 32 3d 6d 79 5f 72  65 66 25 0d 13 ce 22 20  |!12=my_ref%..." |
000037f0  20 20 20 6d 73 67 25 21  31 36 3d 4d 65 73 73 61  |   msg%!16=Messa|
00003800  67 65 5f 50 72 69 6e 74  42 75 73 79 25 0d 13 d8  |ge_PrintBusy%...|
00003810  33 20 20 20 20 c8 99 20  22 57 69 6d 70 5f 53 65  |3    .. "Wimp_Se|
00003820  6e 64 4d 65 73 73 61 67  65 22 2c 20 31 37 2c 20  |ndMessage", 17, |
00003830  6d 73 67 25 2c 20 6d 65  73 73 61 67 65 25 21 34  |msg%, message%!4|
00003840  0d 13 e2 08 20 20 20 cc  0d 13 ec 12 20 20 20 20  |....   .....    |
00003850  f2 74 65 72 6d 69 6e 61  74 65 0d 13 f6 08 20 20  |.terminate....  |
00003860  20 cd 0d 14 00 07 20 20  cd 0d 14 0a 1e 20 c9 20  | .....  ..... . |
00003870  4d 65 73 73 61 67 65 5f  50 72 69 6e 74 54 79 70  |Message_PrintTyp|
00003880  65 4b 6e 6f 77 6e 25 0d  14 14 18 20 20 46 74 79  |eKnown%....  Fty|
00003890  70 65 25 3d 6d 65 73 73  61 67 65 25 21 34 30 0d  |pe%=message%!40.|
000038a0  14 1e 13 20 20 74 79 70  65 5f 73 74 61 74 65 25  |...  type_state%|
000038b0  3d 32 0d 14 28 12 20 20  70 72 69 6e 74 5f 72 65  |=2..(.  print_re|
000038c0  66 25 3d 30 0d 14 32 18  20 c9 20 4d 65 73 73 61  |f%=0..2. . Messa|
000038d0  67 65 5f 4d 65 6e 75 57  61 72 6e 25 0d 14 3c 21  |ge_MenuWarn%..<!|
000038e0  20 20 e7 20 6d 65 73 73  61 67 65 25 21 32 30 20  |  . message%!20 |
000038f0  3d 20 70 61 67 65 73 69  7a 65 25 20 8c 0d 14 46  |= pagesize% ...F|
00003900  24 20 20 20 70 61 67 65  5f 6e 75 6d 62 65 72 25  |$   page_number%|
00003910  3d 70 61 67 65 5f 6e 75  6d 62 65 72 5f 73 65 74  |=page_number_set|
00003920  25 0d 14 50 1b 20 20 20  f2 73 65 74 5f 70 61 67  |%..P.   .set_pag|
00003930  65 73 69 7a 65 5f 77 69  6e 64 6f 77 0d 14 5a 43  |esize_window..ZC|
00003940  20 20 20 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |   .. "Wimp_Crea|
00003950  74 65 53 75 62 4d 65 6e  75 22 2c 2c 6d 65 73 73  |teSubMenu",,mess|
00003960  61 67 65 25 21 32 30 2c  6d 65 73 73 61 67 65 25  |age%!20,message%|
00003970  21 32 34 2c 6d 65 73 73  61 67 65 25 21 32 38 0d  |!24,message%!28.|
00003980  14 64 07 20 20 cd 0d 14  6e 05 cb 0d 14 78 05 e1  |.d.  ...n....x..|
00003990  0d 14 82 05 3a 0d 14 8c  21 dd f2 68 65 6c 70 72  |....:...!..helpr|
000039a0  65 70 6c 79 28 68 65 6c  70 24 2c 20 72 65 66 25  |eply(help$, ref%|
000039b0  2c 20 74 6f 25 29 0d 14  96 14 6d 73 67 25 21 30  |, to%)....msg%!0|
000039c0  20 20 20 20 20 3d 20 32  35 36 0d 14 a0 15 6d 73  |     = 256....ms|
000039d0  67 25 21 31 32 20 20 20  20 3d 20 72 65 66 25 0d  |g%!12    = ref%.|
000039e0  14 aa 15 6d 73 67 25 21  31 36 20 20 20 20 3d 20  |...msg%!16    = |
000039f0  26 35 30 33 0d 14 b4 16  24 28 6d 73 67 25 2b 32  |&503....$(msg%+2|
00003a00  30 29 20 3d 20 68 65 6c  70 24 0d 14 be 1c f2 7a  |0) = help$.....z|
00003a10  65 72 6f 5f 74 65 72 6d  69 6e 61 74 65 28 6d 73  |ero_terminate(ms|
00003a20  67 25 2b 32 30 29 0d 14  c8 28 c8 99 20 22 57 69  |g%+20)...(.. "Wi|
00003a30  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00003a40  20 31 37 2c 20 6d 73 67  25 2c 20 74 6f 25 0d 14  | 17, msg%, to%..|
00003a50  d2 05 e1 0d 14 dc 05 3a  0d 14 e6 17 dd f2 62 6f  |.......:......bo|
00003a60  75 6e 63 65 64 28 6d 65  73 73 61 67 65 25 29 0d  |unced(message%).|
00003a70  14 f0 14 c8 8e 20 6d 65  73 73 61 67 65 25 21 31  |..... message%!1|
00003a80  36 20 ca 0d 14 fa 19 20  c9 20 4d 65 73 73 61 67  |6 ..... . Messag|
00003a90  65 5f 50 72 69 6e 74 46  69 6c 65 25 0d 15 04 12  |e_PrintFile%....|
00003aa0  20 20 70 72 69 6e 74 5f  72 65 66 25 3d 30 0d 15  |  print_ref%=0..|
00003ab0  0e 47 20 20 f4 20 6d 75  73 74 20 62 65 20 61 6e  |.G  . must be an|
00003ac0  20 61 70 70 20 74 68 61  74 20 63 61 6e 27 74 20  | app that can't |
00003ad0  64 6f 20 69 74 73 20 6f  77 6e 20 70 72 69 6e 74  |do its own print|
00003ae0  69 6e 67 3b 20 72 65 70  6c 79 20 74 6f 20 6d 65  |ing; reply to me|
00003af0  73 73 61 67 65 0d 15 18  15 20 20 f4 20 73 74 69  |ssage....  . sti|
00003b00  6c 6c 20 69 6e 20 6d 73  67 25 0d 15 22 11 20 20  |ll in msg%..".  |
00003b10  f2 65 6e 64 63 6f 6e 66  69 72 6d 0d 15 2c 16 20  |.endconfirm..,. |
00003b20  20 e7 20 ac 20 70 72 69  6e 74 5f 6f 6e 25 20 20  | . . print_on%  |
00003b30  8c 0d 15 36 45 20 20 20  f4 20 63 61 6e 27 74 20  |...6E   . can't |
00003b40  61 73 6b 20 66 6f 72 20  63 6f 6e 66 69 72 6d 61  |ask for confirma|
00003b50  74 69 6f 6e 20 6f 66 20  73 74 75 70 69 64 20 74  |tion of stupid t|
00003b60  79 70 65 73 20 61 73 20  61 6e 20 61 66 66 69 72  |ypes as an affir|
00003b70  6d 61 74 69 76 65 0d 15  40 41 20 20 20 f4 20 63  |mative..@A   . c|
00003b80  6c 69 63 6b 20 77 69 6c  6c 20 70 72 6f 62 61 62  |lick will probab|
00003b90  6c 79 20 73 68 75 74 20  64 6f 77 6e 20 74 68 65  |ly shut down the|
00003ba0  20 74 72 61 6e 73 66 65  72 20 61 74 20 74 68 65  | transfer at the|
00003bb0  20 73 6f 75 72 63 65 0d  15 4a 15 20 20 20 6d 73  | source..J.   ms|
00003bc0  67 25 21 31 36 20 20 20  20 3d 20 32 0d 15 54 2b  |g%!16    = 2..T+|
00003bd0  20 20 20 6d 73 67 25 21  33 36 20 20 20 20 3d 20  |   msg%!36    = |
00003be0  2d 31 20 3a 20 f4 20 66  69 6c 65 20 69 73 20 6e  |-1 : . file is n|
00003bf0  6f 74 20 73 61 66 65 0d  15 5e 2e 20 20 20 c8 99  |ot safe..^.   ..|
00003c00  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
00003c10  67 65 22 2c 20 31 37 2c  20 6d 73 67 25 2c 20 6d  |ge", 17, msg%, m|
00003c20  73 67 25 21 34 0d 15 68  07 20 20 cc 0d 15 72 20  |sg%!4..h.  ...r |
00003c30  20 20 20 f2 6d 6f 61 6e  28 22 41 6c 72 65 61 64  |   .moan("Alread|
00003c40  79 20 70 72 69 6e 74 69  6e 67 22 29 0d 15 7c 07  |y printing")..|.|
00003c50  20 20 cd 0d 15 86 19 20  c9 20 4d 65 73 73 61 67  |  ..... . Messag|
00003c60  65 5f 50 72 69 6e 74 49  6e 69 74 25 0d 15 90 0c  |e_PrintInit%....|
00003c70  20 20 f2 69 6e 69 74 32  0d 15 9a 12 20 20 70 6f  |  .init2....  po|
00003c80  6c 6c 5f 6d 61 73 6b 25  3d 31 0d 15 a4 1c 20 c9  |ll_mask%=1.... .|
00003c90  20 4d 65 73 73 61 67 65  5f 50 72 69 6e 74 54 79  | Message_PrintTy|
00003ca0  70 65 4f 64 64 25 0d 15  ae 13 20 20 74 79 70 65  |peOdd%....  type|
00003cb0  5f 73 74 61 74 65 25 3d  31 0d 15 b8 12 20 20 70  |_state%=1....  p|
00003cc0  72 69 6e 74 5f 72 65 66  25 3d 30 0d 15 c2 05 cb  |rint_ref%=0.....|
00003cd0  0d 15 cc 05 e1 0d 15 d6  05 3a 0d 15 e0 10 dd a4  |.........:......|
00003ce0  63 68 65 63 6b 5f 74 79  70 65 0d 15 ea 14 ea 20  |check_type..... |
00003cf0  4c 25 2c 70 73 72 25 2c  20 74 79 70 65 24 0d 15  |L%,psr%, type$..|
00003d00  f4 0d 41 6c 69 61 73 24  3d 22 22 0d 15 fe 40 f4  |..Alias$=""...@.|
00003d10  20 69 66 20 61 6e 20 41  6c 69 61 73 24 40 50 72  | if an Alias$@Pr|
00003d20  69 6e 74 54 79 70 65 5f  3c 46 74 79 70 65 25 3e  |intType_<Ftype%>|
00003d30  20 65 78 69 73 74 73 20  74 68 65 6e 20 70 72 69  | exists then pri|
00003d40  6e 74 20 76 69 61 20 74  68 61 74 0d 16 08 1e 74  |nt via that....t|
00003d50  79 70 65 24 20 3d 20 c2  22 30 30 22 2b c3 7e 46  |ype$ = ."00"+.~F|
00003d60  74 79 70 65 25 2c 20 33  29 0d 16 12 3b c8 99 22  |type%, 3)...;.."|
00003d70  58 4f 53 5f 52 65 61 64  56 61 72 56 61 6c 22 2c  |XOS_ReadVarVal",|
00003d80  22 41 6c 69 61 73 24 40  50 72 69 6e 74 54 79 70  |"Alias$@PrintTyp|
00003d90  65 5f 22 2b 74 79 70 65  24 2c 2c 2d 31 20 b8 20  |e_"+type$,,-1 . |
00003da0  2c 2c 4c 25 0d 16 1c 2e  e7 20 4c 25 20 3c 20 30  |,,L%..... L% < 0|
00003db0  20 8c 20 41 6c 69 61 73  24 3d 22 40 50 72 69 6e  | . Alias$="@Prin|
00003dc0  74 54 79 70 65 5f 22 2b  74 79 70 65 24 3a 20 3d  |tType_"+type$: =|
00003dd0  20 b9 0d 16 26 4d e7 20  46 74 79 70 65 25 20 3d  | ...&M. Ftype% =|
00003de0  20 26 46 46 46 20 84 20  46 74 79 70 65 25 20 3d  | &FFF . Ftype% =|
00003df0  20 26 46 46 45 20 84 20  46 74 79 70 65 25 20 3d  | &FFE . Ftype% =|
00003e00  20 26 46 45 42 20 84 20  46 74 79 70 65 25 3d 4f  | &FEB . Ftype%=O|
00003e10  75 74 70 75 74 54 79 70  65 25 20 8c 20 3d b9 0d  |utputType% . =..|
00003e20  16 30 35 f4 20 74 65 78  74 2c 20 65 78 65 63 20  |.05. text, exec |
00003e30  61 6e 64 20 6f 62 65 79  20 66 69 6c 65 73 20 61  |and obey files a|
00003e40  72 65 20 61 6c 6c 20 73  74 72 61 69 67 68 74 20  |re all straight |
00003e50  74 65 78 74 0d 16 3a 38  e7 20 46 74 79 70 65 25  |text..:8. Ftype%|
00003e60  20 3d 20 26 31 30 30 30  20 8c 20 f2 6d 6f 61 6e  | = &1000 . .moan|
00003e70  28 22 43 61 6e 6e 6f 74  20 70 72 69 6e 74 20 64  |("Cannot print d|
00003e80  69 72 65 63 74 6f 72 69  65 73 22 29 0d 16 44 39  |irectories")..D9|
00003e90  e7 20 46 74 79 70 65 25  20 3d 20 26 32 30 30 30  |. Ftype% = &2000|
00003ea0  20 8c 20 f2 6d 6f 61 6e  28 22 43 61 6e 6e 6f 74  | . .moan("Cannot|
00003eb0  20 70 72 69 6e 74 20 61  70 70 6c 69 63 61 74 69  | print applicati|
00003ec0  6f 6e 73 22 29 0d 16 4e  16 e7 20 46 74 79 70 65  |ons")..N.. Ftype|
00003ed0  25 20 3d 20 26 33 30 30  30 20 8c 0d 16 58 1c 20  |% = &3000 ...X. |
00003ee0  24 65 72 72 6f 72 5f 62  6c 6b 25 20 3d 20 22 75  |$error_blk% = "u|
00003ef0  6e 74 79 70 65 64 22 0d  16 62 05 cc 0d 16 6c 45  |ntyped"..b....lE|
00003f00  20 c8 99 22 58 4f 53 5f  52 65 61 64 56 61 72 56  | .."XOS_ReadVarV|
00003f10  61 6c 22 2c 22 46 69 6c  65 24 54 79 70 65 5f 22  |al","File$Type_"|
00003f20  2b 74 79 70 65 24 2c 65  72 72 6f 72 5f 62 6c 6b  |+type$,error_blk|
00003f30  25 2c 31 30 30 20 b8 20  2c 2c 4c 25 3b 70 73 72  |%,100 . ,,L%;psr|
00003f40  25 0d 16 76 44 20 e7 20  70 73 72 25 20 80 20 31  |%..vD . psr% . 1|
00003f50  20 8c 20 24 65 72 72 6f  72 5f 62 6c 6b 25 3d 22  | . $error_blk%="|
00003f60  74 79 70 65 20 26 22 2b  c3 7e 46 74 79 70 65 25  |type &"+.~Ftype%|
00003f70  20 8b 20 65 72 72 6f 72  5f 62 6c 6b 25 3f 4c 25  | . error_blk%?L%|
00003f80  20 3d 20 31 33 0d 16 80  05 cd 0d 16 8a 72 3d a4  | = 13........r=.|
00003f90  63 6f 6e 66 69 72 6d 28  22 49 20 64 6f 6e 27 74  |confirm("I don't|
00003fa0  20 6b 6e 6f 77 20 68 6f  77 20 74 6f 20 70 72 69  | know how to pri|
00003fb0  6e 74 20 22 2b 24 65 72  72 6f 72 5f 62 6c 6b 25  |nt "+$error_blk%|
00003fc0  2b 22 20 66 69 6c 65 73  3b 20 64 6f 20 79 6f 75  |+" files; do you|
00003fd0  20 77 61 6e 74 20 6d 65  20 74 6f 20 70 72 69 6e  | want me to prin|
00003fe0  74 20 79 6f 75 72 20 66  69 6c 65 20 61 73 20 70  |t your file as p|
00003ff0  6c 61 69 6e 20 74 65 78  74 3f 22 29 0d 16 94 05  |lain text?")....|
00004000  3a 0d 16 9e 17 dd a4 63  6f 6e 66 69 72 6d 28 6d  |:......confirm(m|
00004010  65 73 73 61 67 65 24 29  0d 16 a8 11 ea 20 53 25  |essage$)..... S%|
00004020  2c 20 61 63 74 69 6f 6e  25 0d 16 b2 1c 53 25 3d  |, action%....S%=|
00004030  a4 69 63 6f 6e 61 64 64  72 28 63 6f 6e 66 69 72  |.iconaddr(confir|
00004040  6d 25 2c 30 29 0d 16 bc  10 24 53 25 3d 6d 65 73  |m%,0)....$S%=mes|
00004050  73 61 67 65 24 0d 16 c6  0f f2 67 65 74 70 6f 69  |sage$.....getpoi|
00004060  6e 74 65 72 0d 16 d0 3a  c8 99 20 22 57 69 6d 70  |nter...:.. "Wimp|
00004070  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 63 6f  |_CreateMenu",,co|
00004080  6e 66 69 72 6d 25 2c 6d  6f 75 73 65 78 25 2d 32  |nfirm%,mousex%-2|
00004090  30 30 2c 6d 6f 75 73 65  79 25 2b 32 30 30 0d 16  |00,mousey%+200..|
000040a0  da 17 63 6f 6e 66 69 72  6d 5f 61 6e 73 77 65 72  |..confirm_answer|
000040b0  25 20 3d 20 32 0d 16 e4  05 f5 0d 16 ee 2f 20 c8  |% = 2......../ .|
000040c0  99 20 22 57 69 6d 70 5f  50 6f 6c 6c 22 2c 70 6f  |. "Wimp_Poll",po|
000040d0  6c 6c 5f 6d 61 73 6b 25  2c 65 76 65 6e 74 25 20  |ll_mask%,event% |
000040e0  b8 20 61 63 74 69 6f 6e  25 0d 16 f8 13 20 f2 64  |. action%.... .d|
000040f0  65 73 70 61 74 63 68 5f  70 6f 6c 6c 0d 17 02 1a  |espatch_poll....|
00004100  fd 20 63 6f 6e 66 69 72  6d 5f 61 6e 73 77 65 72  |. confirm_answer|
00004110  25 20 3c 3e 20 32 0d 17  0c 14 f2 63 6c 6f 73 65  |% <> 2.....close|
00004120  28 63 6f 6e 66 69 72 6d  25 29 0d 17 16 14 3d 63  |(confirm%)....=c|
00004130  6f 6e 66 69 72 6d 5f 61  6e 73 77 65 72 25 0d 17  |onfirm_answer%..|
00004140  20 05 3a 0d 17 2a 10 dd  f2 65 6e 64 63 6f 6e 66  | .:..*...endconf|
00004150  69 72 6d 0d 17 34 2d e7  20 63 6f 6e 66 69 72 6d  |irm..4-. confirm|
00004160  5f 61 6e 73 77 65 72 25  20 3d 20 32 20 8c 20 63  |_answer% = 2 . c|
00004170  6f 6e 66 69 72 6d 5f 61  6e 73 77 65 72 25 3d a3  |onfirm_answer%=.|
00004180  0d 17 3e 2e f4 20 46 4e  63 6f 6e 66 69 72 6d 20  |..>.. FNconfirm |
00004190  63 6c 6f 73 65 73 20 74  68 65 20 77 69 6e 64 6f  |closes the windo|
000041a0  77 20 69 66 20 6e 65 63  65 73 73 61 72 79 0d 17  |w if necessary..|
000041b0  48 05 e1 0d 17 52 05 3a  0d 17 5c 0f dd 20 a4 72  |H....R.:..\.. .r|
000041c0  74 6f 7a 28 73 25 29 0d  17 66 08 ea 20 6e 24 0d  |toz(s%)..f.. n$.|
000041d0  17 70 1a c8 95 3f 73 25  3a 6e 24 2b 3d bd 3f 73  |.p...?s%:n$+=.?s|
000041e0  25 3a 73 25 2b 3d 31 3a  ce 0d 17 7a 07 3d 6e 24  |%:s%+=1:...z.=n$|
000041f0  0d 17 84 05 3a 0d 17 8e  0b dd 20 f2 63 6f 70 79  |....:..... .copy|
00004200  0d 17 98 08 ea 20 4c 25  0d 17 a2 07 ea 20 85 0d  |..... L%..... ..|
00004210  17 ac 2c ee 20 85 20 ea  3a f7 20 85 3a f2 65 72  |..,. . .:. .:.er|
00004220  72 6f 72 28 9f 2c 20 f6  24 29 3a f2 73 74 6f 70  |ror(., .$):.stop|
00004230  5f 70 72 69 6e 74 69 6e  67 3a e1 0d 17 b6 0d e7  |_printing:......|
00004240  20 73 65 6e 74 25 20 8c  0d 17 c0 15 20 e7 20 96  | sent% ..... . .|
00004250  28 2d 34 29 3e 3d 70 62  75 66 25 20 8c 0d 17 ca  |(-4)>=pbuf% ....|
00004260  15 20 20 f2 50 72 69 6e  74 65 72 5f 46 6f 6f 74  |.  .Printer_Foot|
00004270  65 72 0d 17 d4 1b 20 20  d9 23 69 6e 5f 66 69 6c  |er....  .#in_fil|
00004280  65 25 3a 69 6e 5f 66 69  6c 65 25 3d 30 0d 17 de  |e%:in_file%=0...|
00004290  2c 20 20 f2 45 73 63 4f  6e 3a d9 23 6f 75 74 5f  |,  .EscOn:.#out_|
000042a0  66 69 6c 65 25 3a 6f 75  74 5f 66 69 6c 65 25 3d  |file%:out_file%=|
000042b0  30 3a f2 45 73 63 4f 66  66 0d 17 e8 14 20 20 f2  |0:.EscOff....  .|
000042c0  73 74 6f 70 5f 70 72 69  6e 74 69 6e 67 0d 17 f2  |stop_printing...|
000042d0  06 20 cd 0d 17 fc 05 cc  0d 18 06 2a 20 e7 20 6c  |. .........* . l|
000042e0  6f 63 61 74 69 6f 6e 5f  6e 65 77 25 3d 31 20 84  |ocation_new%=1 .|
000042f0  20 6c 6f 63 61 74 69 6f  6e 5f 6e 65 77 25 3d 32  | location_new%=2|
00004300  20 8c 0d 18 10 0e 20 20  4c 25 3d 96 28 2d 34 29  | .....  L%=.(-4)|
00004310  0d 18 1a 1b 20 20 e7 20  4c 25 3e 62 75 66 73 7a  |....  . L%>bufsz|
00004320  25 20 4c 25 3d 62 75 66  73 7a 25 0d 18 24 06 20  |% L%=bufsz%..$. |
00004330  cc 0d 18 2e 0c 20 20 4c  25 3d 31 32 38 0d 18 38  |.....  L%=128..8|
00004340  06 20 cd 0d 18 42 1c 20  73 65 6e 74 25 3d a4 50  |. ...B. sent%=.P|
00004350  72 69 6e 74 65 72 5f 53  65 6e 64 28 4c 25 29 0d  |rinter_Send(L%).|
00004360  18 4c 05 cd 0d 18 56 05  e1 0d 18 60 05 3a 0d 18  |.L....V....`.:..|
00004370  6a 13 dd f2 73 74 6f 70  5f 70 72 69 6e 74 69 6e  |j...stop_printin|
00004380  67 0d 18 74 17 f2 73 65  74 5f 70 72 69 6e 74 5f  |g..t..set_print_|
00004390  73 74 61 74 65 28 a3 29  0d 18 7e 1d f2 63 68 61  |state(.)..~..cha|
000043a0  6e 67 65 5f 69 63 6f 6e  3a f2 75 70 64 61 74 65  |nge_icon:.update|
000043b0  5f 69 63 6f 6e 0d 18 88  17 f2 50 72 69 6e 74 65  |_icon.....Printe|
000043c0  72 5f 43 6c 6f 73 65 46  69 6c 65 73 0d 18 92 31  |r_CloseFiles...1|
000043d0  e7 20 69 6e 5f 66 69 6c  65 25 20 c8 99 22 58 4f  |. in_file% .."XO|
000043e0  53 5f 46 69 6e 64 22 2c  30 2c 69 6e 5f 66 69 6c  |S_Find",0,in_fil|
000043f0  65 25 3a 69 6e 5f 66 69  6c 65 25 3d 30 0d 18 9c  |e%:in_file%=0...|
00004400  43 e7 20 6f 75 74 5f 66  69 6c 65 25 20 f2 45 73  |C. out_file% .Es|
00004410  63 4f 6e 3a c8 99 22 58  4f 53 5f 46 69 6e 64 22  |cOn:.."XOS_Find"|
00004420  2c 30 2c 6f 75 74 5f 66  69 6c 65 25 3a 6f 75 74  |,0,out_file%:out|
00004430  5f 66 69 6c 65 25 3d 30  3a f2 45 73 63 4f 66 66  |_file%=0:.EscOff|
00004440  0d 18 a6 3a e7 20 66 69  6c 65 6e 61 6d 24 20 3d  |...:. filenam$ =|
00004450  20 22 3c 50 72 69 6e 74  65 72 24 53 63 72 61 70  | "<Printer$Scrap|
00004460  3e 22 20 8c 20 ff 28 22  72 65 6d 6f 76 65 20 22  |>" . .("remove "|
00004470  2b 66 69 6c 65 6e 61 6d  24 29 0d 18 b0 39 e7 20  |+filenam$)...9. |
00004480  66 69 6c 65 6e 61 6d 24  20 3d 20 22 3c 50 72 69  |filenam$ = "<Pri|
00004490  6e 74 65 72 24 54 65 6d  70 3e 22 20 8c 20 ff 28  |nter$Temp>" . .(|
000044a0  22 72 65 6d 6f 76 65 20  22 2b 66 69 6c 65 6e 61  |"remove "+filena|
000044b0  6d 24 29 0d 18 ba 2e f4  20 64 65 6c 65 74 65 20  |m$)..... delete |
000044c0  74 68 65 20 73 63 72 61  70 20 66 69 6c 65 3a 20  |the scrap file: |
000044d0  6e 6f 77 20 66 69 6e 69  73 68 65 64 20 77 69 74  |now finished wit|
000044e0  68 0d 18 c4 10 f2 75 70  64 61 74 65 5f 69 63 6f  |h.....update_ico|
000044f0  6e 0d 18 ce 05 e1 0d 18  d8 05 3a 0d 18 e2 1b dd  |n.........:.....|
00004500  20 a4 72 65 61 64 5f 70  73 77 5f 69 63 6f 6e 28  | .read_psw_icon(|
00004510  69 63 6f 6e 25 29 0d 18  ec 20 3d 24 a4 69 63 6f  |icon%)... =$.ico|
00004520  6e 61 64 64 72 28 70 61  67 65 73 69 7a 65 25 2c  |naddr(pagesize%,|
00004530  69 63 6f 6e 25 29 0d 18  f6 05 3a 0d 19 00 29 dd  |icon%)....:...).|
00004540  20 f2 72 65 61 64 5f 6e  75 6d 65 72 69 63 70 73  | .read_numericps|
00004550  77 5f 69 63 6f 6e 28 69  63 6f 6e 25 2c 66 69 65  |w_icon(icon%,fie|
00004560  6c 64 25 29 0d 19 0a 48  70 61 67 65 5f 64 65 73  |ld%)...Hpage_des|
00004570  63 25 28 70 61 67 65 5f  6e 75 6d 62 65 72 25 2c  |c%(page_number%,|
00004580  66 69 65 6c 64 25 29 3d  bb 28 a4 72 65 61 64 5f  |field%)=.(.read_|
00004590  70 73 77 5f 69 63 6f 6e  28 69 63 6f 6e 25 29 29  |psw_icon(icon%))|
000045a0  2a 6d 6d 5f 74 6f 5f 37  32 30 30 30 0d 19 14 05  |*mm_to_72000....|
000045b0  e1 0d 19 1e 05 3a 0d 19  28 40 dd 20 f2 6d 6f 75  |.....:..(@. .mou|
000045c0  73 65 28 6d 6f 75 73 65  78 25 2c 6d 6f 75 73 65  |se(mousex%,mouse|
000045d0  79 25 2c 62 75 74 74 6f  6e 73 25 2c 68 61 6e 64  |y%,buttons%,hand|
000045e0  6c 65 25 2c 69 63 6f 6e  25 2c 6f 6c 64 62 75 74  |le%,icon%,oldbut|
000045f0  74 6f 6e 73 25 29 0d 19  32 2f e7 20 68 61 6e 64  |tons%)..2/. hand|
00004600  6c 65 25 3d 70 61 67 65  73 69 7a 65 25 20 80 20  |le%=pagesize% . |
00004610  28 62 75 74 74 6f 6e 73  25 20 80 20 ac 20 32 29  |(buttons% . . 2)|
00004620  3c 3e 30 20 8c 0d 19 3c  0f 20 c8 8e 20 69 63 6f  |<>0 ...<. .. ico|
00004630  6e 25 20 ca 0d 19 46 14  20 20 c9 20 70 73 77 5f  |n% ...F.  . psw_|
00004640  4f 4b 5f 69 63 6f 6e 25  0d 19 50 25 20 20 20 20  |OK_icon%..P%    |
00004650  70 61 67 65 5f 6e 75 6d  62 65 72 5f 73 65 74 25  |page_number_set%|
00004660  3d 70 61 67 65 5f 6e 75  6d 62 65 72 25 0d 19 5a  |=page_number%..Z|
00004670  40 20 20 20 20 70 61 67  65 5f 6e 61 6d 65 73 24  |@    page_names$|
00004680  28 70 61 67 65 5f 6e 75  6d 62 65 72 25 29 3d a4  |(page_number%)=.|
00004690  72 65 61 64 5f 70 73 77  5f 69 63 6f 6e 28 70 73  |read_psw_icon(ps|
000046a0  77 5f 6e 61 6d 65 5f 69  63 6f 6e 25 29 0d 19 64  |w_name_icon%)..d|
000046b0  41 20 20 20 20 f2 72 65  61 64 5f 6e 75 6d 65 72  |A    .read_numer|
000046c0  69 63 70 73 77 5f 69 63  6f 6e 28 70 73 77 5f 77  |icpsw_icon(psw_w|
000046d0  69 64 74 68 5f 69 63 6f  6e 25 2c 20 70 61 67 65  |idth_icon%, page|
000046e0  5f 77 69 64 74 68 5f 66  69 65 6c 64 25 29 0d 19  |_width_field%)..|
000046f0  6e 42 20 20 20 20 f2 72  65 61 64 5f 6e 75 6d 65  |nB    .read_nume|
00004700  72 69 63 70 73 77 5f 69  63 6f 6e 28 70 73 77 5f  |ricpsw_icon(psw_|
00004710  68 65 69 67 68 74 5f 69  63 6f 6e 25 2c 70 61 67  |height_icon%,pag|
00004720  65 5f 68 65 69 67 68 74  5f 66 69 65 6c 64 25 29  |e_height_field%)|
00004730  0d 19 78 3f 20 20 20 20  f2 72 65 61 64 5f 6e 75  |..x?    .read_nu|
00004740  6d 65 72 69 63 70 73 77  5f 69 63 6f 6e 28 70 73  |mericpsw_icon(ps|
00004750  77 5f 74 6f 70 5f 69 63  6f 6e 25 2c 20 20 20 70  |w_top_icon%,   p|
00004760  61 67 65 5f 74 6f 70 5f  66 69 65 6c 64 25 29 0d  |age_top_field%).|
00004770  19 82 42 20 20 20 20 f2  72 65 61 64 5f 6e 75 6d  |..B    .read_num|
00004780  65 72 69 63 70 73 77 5f  69 63 6f 6e 28 70 73 77  |ericpsw_icon(psw|
00004790  5f 62 6f 74 74 6f 6d 5f  69 63 6f 6e 25 2c 70 61  |_bottom_icon%,pa|
000047a0  67 65 5f 62 6f 74 74 6f  6d 5f 66 69 65 6c 64 25  |ge_bottom_field%|
000047b0  29 0d 19 8c 41 20 20 20  20 f2 72 65 61 64 5f 6e  |)...A    .read_n|
000047c0  75 6d 65 72 69 63 70 73  77 5f 69 63 6f 6e 28 70  |umericpsw_icon(p|
000047d0  73 77 5f 72 69 67 68 74  5f 69 63 6f 6e 25 2c 20  |sw_right_icon%, |
000047e0  70 61 67 65 5f 72 69 67  68 74 5f 66 69 65 6c 64  |page_right_field|
000047f0  25 29 0d 19 96 40 20 20  20 20 f2 72 65 61 64 5f  |%)...@    .read_|
00004800  6e 75 6d 65 72 69 63 70  73 77 5f 69 63 6f 6e 28  |numericpsw_icon(|
00004810  70 73 77 5f 6c 65 66 74  5f 69 63 6f 6e 25 2c 20  |psw_left_icon%, |
00004820  20 70 61 67 65 5f 6c 65  66 74 5f 66 69 65 6c 64  | page_left_field|
00004830  25 29 0d 19 a0 3c 20 20  20 20 69 63 6f 6e 25 20  |%)...<    icon% |
00004840  20 3d 20 70 61 67 65 5f  64 65 73 63 25 28 70 61  | = page_desc%(pa|
00004850  67 65 5f 6e 75 6d 62 65  72 25 2c 70 61 67 65 5f  |ge_number%,page_|
00004860  68 65 69 67 68 74 5f 66  69 65 6c 64 25 29 0d 19  |height_field%)..|
00004870  aa 39 20 20 20 20 69 63  6f 6e 25 20 2d 3d 20 70  |.9    icon% -= p|
00004880  61 67 65 5f 64 65 73 63  25 28 70 61 67 65 5f 6e  |age_desc%(page_n|
00004890  75 6d 62 65 72 25 2c 70  61 67 65 5f 74 6f 70 5f  |umber%,page_top_|
000048a0  66 69 65 6c 64 25 29 0d  19 b4 38 20 20 20 20 70  |field%)...8    p|
000048b0  61 67 65 5f 64 65 73 63  25 28 70 61 67 65 5f 6e  |age_desc%(page_n|
000048c0  75 6d 62 65 72 25 2c 70  61 67 65 5f 74 6f 70 5f  |umber%,page_top_|
000048d0  66 69 65 6c 64 25 29 20  3d 20 69 63 6f 6e 25 0d  |field%) = icon%.|
000048e0  19 be 3b 20 20 20 20 69  63 6f 6e 25 20 20 3d 20  |..;    icon%  = |
000048f0  70 61 67 65 5f 64 65 73  63 25 28 70 61 67 65 5f  |page_desc%(page_|
00004900  6e 75 6d 62 65 72 25 2c  70 61 67 65 5f 77 69 64  |number%,page_wid|
00004910  74 68 5f 66 69 65 6c 64  25 29 0d 19 c8 3b 20 20  |th_field%)...;  |
00004920  20 20 69 63 6f 6e 25 20  2d 3d 20 70 61 67 65 5f  |  icon% -= page_|
00004930  64 65 73 63 25 28 70 61  67 65 5f 6e 75 6d 62 65  |desc%(page_numbe|
00004940  72 25 2c 70 61 67 65 5f  72 69 67 68 74 5f 66 69  |r%,page_right_fi|
00004950  65 6c 64 25 29 0d 19 d2  3a 20 20 20 20 70 61 67  |eld%)...:    pag|
00004960  65 5f 64 65 73 63 25 28  70 61 67 65 5f 6e 75 6d  |e_desc%(page_num|
00004970  62 65 72 25 2c 70 61 67  65 5f 72 69 67 68 74 5f  |ber%,page_right_|
00004980  66 69 65 6c 64 25 29 20  3d 20 69 63 6f 6e 25 0d  |field%) = icon%.|
00004990  19 dc 16 20 20 20 20 f2  73 65 74 5f 70 61 67 65  |...    .set_page|
000049a0  5f 73 69 7a 65 0d 19 e6  34 20 20 20 20 e7 20 28  |_size...4    . (|
000049b0  62 75 74 74 6f 6e 73 25  20 80 20 31 29 3d 30 20  |buttons% . 1)=0 |
000049c0  8c 20 c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |. .."Wimp_Create|
000049d0  4d 65 6e 75 22 2c 2c 2d  31 0d 19 f0 37 20 20 c9  |Menu",,-1...7  .|
000049e0  20 70 73 77 5f 70 61 67  65 31 5f 69 63 6f 6e 25  | psw_page1_icon%|
000049f0  2c 70 73 77 5f 70 61 67  65 32 5f 69 63 6f 6e 25  |,psw_page2_icon%|
00004a00  2c 70 73 77 5f 70 61 67  65 33 5f 69 63 6f 6e 25  |,psw_page3_icon%|
00004a10  0d 19 fa 2c 20 20 20 20  70 61 67 65 5f 6e 75 6d  |...,    page_num|
00004a20  62 65 72 25 20 3d 20 69  63 6f 6e 25 2d 70 73 77  |ber% = icon%-psw|
00004a30  5f 70 61 67 65 31 5f 69  63 6f 6e 25 0d 1a 04 1c  |_page1_icon%....|
00004a40  20 20 20 20 f2 73 65 74  5f 70 61 67 65 73 69 7a  |    .set_pagesiz|
00004a50  65 5f 77 69 6e 64 6f 77  0d 1a 0e 06 20 cb 0d 1a  |e_window.... ...|
00004a60  18 05 cc 0d 1a 22 12 20  c8 8e 20 62 75 74 74 6f  |.....". .. butto|
00004a70  6e 73 25 20 ca 0d 1a 2c  1c 20 20 c9 20 34 3a 20  |ns% ...,.  . 4: |
00004a80  f4 20 6c 65 66 74 20 68  61 6e 64 20 63 6c 69 63  |. left hand clic|
00004a90  6b 0d 1a 36 13 20 20 20  c8 8e 20 68 61 6e 64 6c  |k..6.   .. handl|
00004aa0  65 25 20 ca 0d 1a 40 0e  20 20 20 20 20 c9 20 2d  |e% ...@.     . -|
00004ab0  32 3a 0d 1a 4a 16 20 20  20 20 20 f2 66 72 6f 6e  |2:..J.     .fron|
00004ac0  74 28 6d 61 69 6e 25 29  0d 1a 54 13 20 20 20 20  |t(main%)..T.    |
00004ad0  c9 20 63 6f 6e 66 69 72  6d 25 3a 0d 1a 5e 26 20  |. confirm%:..^& |
00004ae0  20 20 20 20 e7 20 69 63  6f 6e 25 3d 31 20 8c 20  |    . icon%=1 . |
00004af0  63 6f 6e 66 69 72 6d 5f  61 6e 73 77 65 72 25 3d  |confirm_answer%=|
00004b00  b9 0d 1a 68 26 20 20 20  20 20 e7 20 69 63 6f 6e  |...h&     . icon|
00004b10  25 3d 32 20 8c 20 63 6f  6e 66 69 72 6d 5f 61 6e  |%=2 . confirm_an|
00004b20  73 77 65 72 25 3d a3 0d  1a 72 08 20 20 20 cb 0d  |swer%=...r.   ..|
00004b30  1a 7c 18 20 20 c9 20 32  3a 20 f4 20 6d 65 6e 75  |.|.  . 2: . menu|
00004b40  20 62 75 74 74 6f 6e 0d  1a 86 13 20 20 20 c8 8e  | button....   ..|
00004b50  20 68 61 6e 64 6c 65 25  20 ca 0d 1a 90 1f 20 20  | handle% .....  |
00004b60  20 20 c9 20 2d 32 3a 20  f2 6d 65 6e 75 28 70 72  |  . -2: .menu(pr|
00004b70  69 6e 74 6d 65 6e 75 25  29 0d 1a 9a 07 20 20 cb  |intmenu%)....  .|
00004b80  0d 1a a4 06 20 cb 0d 1a  ae 05 cd 0d 1a b8 05 e1  |.... ...........|
00004b90  0d 1a c2 05 3a 0d 1a cc  1d dd 20 f2 6b 65 79 28  |....:..... .key(|
00004ba0  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 2c 63 68  |window%,icon%,ch|
00004bb0  25 29 0d 1a d6 22 e7 20  77 69 6e 64 6f 77 25 3d  |%)...". window%=|
00004bc0  70 61 67 65 73 69 7a 65  25 20 80 20 63 68 25 3d  |pagesize% . ch%=|
00004bd0  31 33 20 8c 0d 1a e0 28  20 f4 20 73 74 65 70 20  |13 ....( . step |
00004be0  63 61 72 65 74 20 74 6f  20 6e 65 78 74 20 77 72  |caret to next wr|
00004bf0  69 74 65 61 62 6c 65 20  69 63 6f 6e 0d 1a ea 0d  |iteable icon....|
00004c00  20 69 63 6f 6e 25 2b 3d  31 0d 1a f4 1e 20 e7 20  | icon%+=1.... . |
00004c10  69 63 6f 6e 25 3e 70 73  77 5f 72 69 67 68 74 5f  |icon%>psw_right_|
00004c20  69 63 6f 6e 25 20 8c 0d  1a fe 3d 20 20 f2 6d 6f  |icon% ....=  .mo|
00004c30  75 73 65 28 30 2c 30 2c  34 2c 70 61 67 65 73 69  |use(0,0,4,pagesi|
00004c40  7a 65 25 2c 70 73 77 5f  4f 4b 5f 69 63 6f 6e 25  |ze%,psw_OK_icon%|
00004c50  2c 30 29 3a 20 f4 20 66  61 6b 65 20 4f 4b 20 63  |,0): . fake OK c|
00004c60  6c 69 63 6b 0d 1b 08 06  20 cc 0d 1b 12 36 20 20  |lick.... ....6  |
00004c70  c8 99 22 57 69 6d 70 5f  53 65 74 43 61 72 65 74  |.."Wimp_SetCaret|
00004c80  50 6f 73 69 74 69 6f 6e  22 2c 70 61 67 65 73 69  |Position",pagesi|
00004c90  7a 65 25 2c 69 63 6f 6e  25 2c 2c 2c 2d 31 2c 30  |ze%,icon%,,,-1,0|
00004ca0  0d 1b 1c 06 20 cd 0d 1b  26 05 cc 0d 1b 30 1c 20  |.... ...&....0. |
00004cb0  c8 99 22 57 69 6d 70 5f  50 72 6f 63 65 73 73 4b  |.."Wimp_ProcessK|
00004cc0  65 79 22 2c 63 68 25 0d  1b 3a 05 cd 0d 1b 44 05  |ey",ch%..:....D.|
00004cd0  e1 0d 1b 4e 05 3a 0d 1b  58 25 dd 20 f2 64 65 63  |...N.:..X%. .dec|
00004ce0  6f 64 65 6d 65 6e 75 28  6d 65 6e 75 68 61 6e 64  |odemenu(menuhand|
00004cf0  6c 65 25 2c 6d 65 6e 75  73 25 29 0d 1b 62 14 c8  |le%,menus%)..b..|
00004d00  8e 20 6d 65 6e 75 68 61  6e 64 6c 65 25 20 ca 0d  |. menuhandle% ..|
00004d10  1b 6c 11 20 c9 20 70 72  69 6e 74 6d 65 6e 75 25  |.l. . printmenu%|
00004d20  0d 1b 76 23 20 20 e7 20  70 72 69 6e 74 5f 6f 6e  |..v#  . print_on|
00004d30  25 20 80 20 28 21 6d 65  6e 75 73 25 3c 35 29 20  |% . (!menus%<5) |
00004d40  8c 20 e1 0d 1b 80 12 20  20 c8 8e 20 21 6d 65 6e  |. .....  .. !men|
00004d50  75 73 25 20 ca 0d 1b 8a  0a 20 20 20 c9 20 31 0d  |us% .....   . 1.|
00004d60  1b 94 21 20 20 20 20 f2  74 69 63 6b 69 74 28 70  |..!    .tickit(p|
00004d70  72 69 6e 74 6d 65 6e 75  25 2c 20 31 2c 20 34 29  |rintmenu%, 1, 4)|
00004d80  0d 1b 9e 19 20 20 20 20  6c 6f 63 61 74 69 6f 6e  |....    location|
00004d90  5f 6e 65 77 25 20 3d 20  31 0d 1b a8 28 20 20 20  |_new% = 1...(   |
00004da0  20 f2 50 72 69 6e 74 65  72 5f 4c 6f 63 61 74 69  | .Printer_Locati|
00004db0  6f 6e 28 6c 6f 63 61 74  69 6f 6e 5f 6e 65 77 25  |on(location_new%|
00004dc0  29 0d 1b b2 0f 20 20 20  20 2a 46 58 20 35 2c 31  |)....    *FX 5,1|
00004dd0  0d 1b bc 0a 20 20 20 c9  20 32 0d 1b c6 17 20 20  |....   . 2....  |
00004de0  20 20 f2 50 72 69 6e 74  65 72 5f 49 67 6e 6f 72  |  .Printer_Ignor|
00004df0  65 0d 1b d0 27 20 20 20  20 f2 64 65 63 6f 64 65  |e...'    .decode|
00004e00  6d 65 6e 75 28 73 65 72  69 61 6c 6d 25 2c 20 6d  |menu(serialm%, m|
00004e10  65 6e 75 73 25 2b 34 29  0d 1b da 21 20 20 20 20  |enus%+4)...!    |
00004e20  f2 74 69 63 6b 69 74 28  70 72 69 6e 74 6d 65 6e  |.tickit(printmen|
00004e30  75 25 2c 20 32 2c 20 34  29 0d 1b e4 19 20 20 20  |u%, 2, 4)....   |
00004e40  20 6c 6f 63 61 74 69 6f  6e 5f 6e 65 77 25 20 3d  | location_new% =|
00004e50  20 32 0d 1b ee 28 20 20  20 20 f2 50 72 69 6e 74  | 2...(    .Print|
00004e60  65 72 5f 4c 6f 63 61 74  69 6f 6e 28 6c 6f 63 61  |er_Location(loca|
00004e70  74 69 6f 6e 5f 6e 65 77  25 29 0d 1b f8 24 20 20  |tion_new%)...$  |
00004e80  20 20 c8 99 20 22 4f 53  5f 42 79 74 65 22 2c 20  |  .. "OS_Byte", |
00004e90  38 2c 20 62 61 75 64 5f  6e 65 77 25 2b 31 0d 1c  |8, baud_new%+1..|
00004ea0  02 24 20 20 20 20 c8 99  20 22 4f 53 5f 42 79 74  |.$    .. "OS_Byt|
00004eb0  65 22 2c 20 37 2c 20 62  61 75 64 5f 6e 65 77 25  |e", 7, baud_new%|
00004ec0  2b 31 0d 1c 0c 24 20 20  20 20 c8 99 20 22 4f 53  |+1...$    .. "OS|
00004ed0  5f 53 65 72 69 61 6c 4f  70 22 2c 31 2c 64 61 74  |_SerialOp",1,dat|
00004ee0  61 5f 6e 65 77 25 0d 1c  16 27 20 20 20 20 c8 99  |a_new%...'    ..|
00004ef0  20 22 4f 53 5f 53 65 72  69 61 6c 4f 70 22 2c 30  | "OS_SerialOp",0|
00004f00  2c 58 4f 4e 5f 6e 65 77  25 2c ac 20 31 0d 1c 20  |,XON_new%,. 1.. |
00004f10  22 20 20 20 20 f2 50 72  69 6e 74 65 72 5f 58 6f  |"    .Printer_Xo|
00004f20  6e 58 6f 66 66 28 58 4f  4e 5f 6e 65 77 25 29 0d  |nXoff(XON_new%).|
00004f30  1c 2a 0f 20 20 20 20 2a  46 58 20 35 2c 32 0d 1c  |.*.    *FX 5,2..|
00004f40  34 0a 20 20 20 c9 20 33  0d 1c 3e 29 20 20 20 20  |4.   . 3..>)    |
00004f50  f2 64 65 63 6f 64 65 6d  65 6e 75 28 6e 65 74 70  |.decodemenu(netp|
00004f60  72 69 6e 74 6d 25 2c 20  6d 65 6e 75 73 25 2b 34  |rintm%, menus%+4|
00004f70  29 0d 1c 48 21 20 20 20  20 f2 74 69 63 6b 69 74  |)..H!    .tickit|
00004f80  28 70 72 69 6e 74 6d 65  6e 75 25 2c 20 33 2c 20  |(printmenu%, 3, |
00004f90  34 29 0d 1c 52 19 20 20  20 20 6c 6f 63 61 74 69  |4)..R.    locati|
00004fa0  6f 6e 5f 6e 65 77 25 20  3d 20 34 0d 1c 5c 28 20  |on_new% = 4..\( |
00004fb0  20 20 20 f2 50 72 69 6e  74 65 72 5f 4c 6f 63 61  |   .Printer_Loca|
00004fc0  74 69 6f 6e 28 6c 6f 63  61 74 69 6f 6e 5f 6e 65  |tion(location_ne|
00004fd0  77 25 29 0d 1c 66 0f 20  20 20 20 f2 73 65 74 5f  |w%)..f.    .set_|
00004fe0  70 73 0d 1c 70 0f 20 20  20 20 2a 46 58 20 35 2c  |ps..p.    *FX 5,|
00004ff0  34 0d 1c 7a 0a 20 20 20  c9 20 34 0d 1c 84 17 20  |4..z.   . 4.... |
00005000  20 20 20 6c 6f 63 61 74  69 6f 6e 5f 6e 65 77 25  |   location_new%|
00005010  3d 35 0d 1c 8e 28 20 20  20 20 f2 50 72 69 6e 74  |=5...(    .Print|
00005020  65 72 5f 4c 6f 63 61 74  69 6f 6e 28 6c 6f 63 61  |er_Location(loca|
00005030  74 69 6f 6e 5f 6e 65 77  25 29 0d 1c 98 21 20 20  |tion_new%)...!  |
00005040  20 20 f2 74 69 63 6b 69  74 28 70 72 69 6e 74 6d  |  .tickit(printm|
00005050  65 6e 75 25 2c 20 34 2c  20 34 29 0d 1c a2 42 20  |enu%, 4, 4)...B |
00005060  20 20 20 e7 20 a9 24 66  69 6c 65 5f 6e 61 6d 65  |   . .$file_name|
00005070  25 3d 30 20 8c 20 24 66  69 6c 65 5f 6e 61 6d 65  |%=0 . $file_name|
00005080  25 3d 22 3c 50 44 72 69  76 65 72 24 44 69 72 3e  |%="<PDriver$Dir>|
00005090  2e 5e 2e 50 72 69 6e 74  44 61 74 61 22 0d 1c ac  |.^.PrintData"...|
000050a0  35 20 20 20 20 c8 99 20  22 58 4f 53 5f 43 4c 49  |5    .. "XOS_CLI|
000050b0  22 2c 22 53 65 74 20 50  72 69 6e 74 65 72 54 79  |","Set PrinterTy|
000050c0  70 65 24 35 20 22 2b 24  66 69 6c 65 5f 6e 61 6d  |pe$5 "+$file_nam|
000050d0  65 25 0d 1c b6 0e 20 20  20 20 f2 73 74 61 6d 70  |e%....    .stamp|
000050e0  0d 1c c0 0f 20 20 20 20  2a 46 58 20 35 2c 35 0d  |....    *FX 5,5.|
000050f0  1c ca 0a 20 20 20 c9 20  36 0d 1c d4 13 20 20 20  |...   . 6....   |
00005100  20 f2 53 61 76 65 43 6f  6e 66 69 67 0d 1c de 0a  | .SaveConfig....|
00005110  20 20 20 c9 20 37 0d 1c  e8 15 20 20 20 20 e7 20  |   . 7....    . |
00005120  70 72 69 6e 74 5f 6f 6e  25 20 8c 0d 1c f2 11 20  |print_on% ..... |
00005130  20 20 20 20 2a 46 58 20  32 31 2c 33 0d 1c fc 17  |    *FX 21,3....|
00005140  20 20 20 20 20 f2 73 74  6f 70 5f 70 72 69 6e 74  |     .stop_print|
00005150  69 6e 67 0d 1d 06 09 20  20 20 20 cd 0d 1d 10 0a  |ing....    .....|
00005160  20 20 20 c9 20 38 0d 1d  1a 15 20 20 20 20 e7 20  |   . 8....    . |
00005170  70 72 69 6e 74 5f 6f 6e  25 20 8c 0d 1d 24 11 20  |print_on% ...$. |
00005180  20 20 20 20 2a 46 58 20  32 31 2c 33 0d 1d 2e 17  |    *FX 21,3....|
00005190  20 20 20 20 20 f2 73 74  6f 70 5f 70 72 69 6e 74  |     .stop_print|
000051a0  69 6e 67 0d 1d 38 09 20  20 20 20 cd 0d 1d 42 12  |ing..8.    ...B.|
000051b0  20 20 20 20 f2 74 65 72  6d 69 6e 61 74 65 0d 1d  |    .terminate..|
000051c0  4c 07 20 20 cb 0d 1d 56  12 20 20 f2 63 68 61 6e  |L.  ...V.  .chan|
000051d0  67 65 5f 69 63 6f 6e 0d  1d 60 0f 20 c9 20 73 65  |ge_icon..`. . se|
000051e0  72 69 61 6c 6d 25 0d 1d  6a 12 20 20 c8 8e 20 21  |rialm%..j.  .. !|
000051f0  6d 65 6e 75 73 25 20 ca  0d 1d 74 0a 20 20 20 c9  |menus% ...t.   .|
00005200  20 30 0d 1d 7e 25 20 20  20 20 f2 64 65 63 6f 64  | 0..~%    .decod|
00005210  65 6d 65 6e 75 28 62 61  75 64 6d 25 2c 20 6d 65  |emenu(baudm%, me|
00005220  6e 75 73 25 2b 34 29 0d  1d 88 0a 20 20 20 c9 20  |nus%+4)....   . |
00005230  31 0d 1d 92 25 20 20 20  20 f2 64 65 63 6f 64 65  |1...%    .decode|
00005240  6d 65 6e 75 28 64 61 74  61 6d 25 2c 20 6d 65 6e  |menu(datam%, men|
00005250  75 73 25 2b 34 29 0d 1d  9c 0a 20 20 20 c9 20 32  |us%+4)....   . 2|
00005260  0d 1d a6 1f 20 20 20 20  58 4f 4e 5f 6e 65 77 25  |....    XON_new%|
00005270  20 3d 20 58 4f 4e 5f 6e  65 77 25 20 82 20 31 0d  | = XON_new% . 1.|
00005280  1d b0 26 20 20 20 20 f2  73 65 74 5f 74 69 63 6b  |..&    .set_tick|
00005290  28 73 65 72 69 61 6c 6d  25 2c 32 2c 58 4f 4e 5f  |(serialm%,2,XON_|
000052a0  6e 65 77 25 29 0d 1d ba  07 20 20 cb 0d 1d c4 0d  |new%)....  .....|
000052b0  20 c9 20 62 61 75 64 6d  25 0d 1d ce 17 20 20 e7  | . baudm%....  .|
000052c0  20 21 6d 65 6e 75 73 25  20 3c 3e 20 2d 31 20 8c  | !menus% <> -1 .|
000052d0  0d 1d d8 23 20 20 20 f2  74 69 63 6b 69 74 28 62  |...#   .tickit(b|
000052e0  61 75 64 6d 25 2c 20 21  6d 65 6e 75 73 25 2c 20  |audm%, !menus%, |
000052f0  31 34 29 0d 1d e2 18 20  20 20 62 61 75 64 5f 6e  |14)....   baud_n|
00005300  65 77 25 3d 21 6d 65 6e  75 73 25 0d 1d ec 07 20  |ew%=!menus%.... |
00005310  20 cd 0d 1d f6 0d 20 c9  20 64 61 74 61 6d 25 0d  | ..... . datam%.|
00005320  1e 00 12 20 20 c8 8e 20  21 6d 65 6e 75 73 25 20  |...  .. !menus% |
00005330  ca 0d 1e 0a 0a 20 20 20  c9 20 30 0d 1e 14 25 20  |.....   . 0...% |
00005340  20 20 20 f2 64 65 63 6f  64 65 6d 65 6e 75 28 62  |   .decodemenu(b|
00005350  69 74 73 6d 25 2c 20 6d  65 6e 75 73 25 2b 34 29  |itsm%, menus%+4)|
00005360  0d 1e 1e 0a 20 20 20 c9  20 31 0d 1e 28 27 20 20  |....   . 1..('  |
00005370  20 20 f2 64 65 63 6f 64  65 6d 65 6e 75 28 70 61  |  .decodemenu(pa|
00005380  72 69 74 79 6d 25 2c 20  6d 65 6e 75 73 25 2b 34  |ritym%, menus%+4|
00005390  29 0d 1e 32 0a 20 20 20  c9 20 32 0d 1e 3c 25 20  |)..2.   . 2..<% |
000053a0  20 20 20 f2 64 65 63 6f  64 65 6d 65 6e 75 28 73  |   .decodemenu(s|
000053b0  74 6f 70 6d 25 2c 20 6d  65 6e 75 73 25 2b 34 29  |topm%, menus%+4)|
000053c0  0d 1e 46 07 20 20 cb 0d  1e 50 0d 20 c9 20 62 69  |..F.  ...P. . bi|
000053d0  74 73 6d 25 0d 1e 5a 17  20 20 e7 20 21 6d 65 6e  |tsm%..Z.  . !men|
000053e0  75 73 25 20 3c 3e 20 2d  31 20 8c 0d 1e 64 30 20  |us% <> -1 ...d0 |
000053f0  20 20 64 61 74 61 5f 6e  65 77 25 3d 28 64 61 74  |  data_new%=(dat|
00005400  61 5f 6e 65 77 25 20 80  20 25 31 31 31 31 30 30  |a_new% . %111100|
00005410  29 2b 33 2d 21 6d 65 6e  75 73 25 0d 1e 6e 22 20  |)+3-!menus%..n" |
00005420  20 20 f2 74 69 63 6b 69  74 28 62 69 74 73 6d 25  |  .tickit(bitsm%|
00005430  2c 20 21 6d 65 6e 75 73  25 2c 20 33 29 0d 1e 78  |, !menus%, 3)..x|
00005440  07 20 20 cd 0d 1e 82 0f  20 c9 20 70 61 72 69 74  |.  ..... . parit|
00005450  79 6d 25 0d 1e 8c 17 20  20 e7 20 21 6d 65 6e 75  |ym%....  . !menu|
00005460  73 25 20 3c 3e 20 2d 31  20 8c 0d 1e 96 12 20 20  |s% <> -1 .....  |
00005470  20 e7 20 21 6d 65 6e 75  73 25 20 8c 0d 1e a0 39  | . !menus% ....9|
00005480  20 20 20 20 64 61 74 61  5f 6e 65 77 25 20 3d 20  |    data_new% = |
00005490  28 64 61 74 61 5f 6e 65  77 25 20 80 20 25 31 31  |(data_new% . %11|
000054a0  31 29 2b 38 2b 28 28 21  6d 65 6e 75 73 25 2d 31  |1)+8+((!menus%-1|
000054b0  29 3c 3c 34 29 0d 1e aa  08 20 20 20 cc 0d 1e b4  |)<<4)....   ....|
000054c0  27 20 20 20 20 64 61 74  61 5f 6e 65 77 25 20 3d  |'    data_new% =|
000054d0  20 64 61 74 61 5f 6e 65  77 25 20 80 20 ac 28 31  | data_new% . .(1|
000054e0  3c 3c 33 29 0d 1e be 08  20 20 20 cd 0d 1e c8 24  |<<3)....   ....$|
000054f0  20 20 20 f2 74 69 63 6b  69 74 28 70 61 72 69 74  |   .tickit(parit|
00005500  79 6d 25 2c 20 21 6d 65  6e 75 73 25 2c 20 34 29  |ym%, !menus%, 4)|
00005510  0d 1e d2 07 20 20 cd 0d  1e dc 0d 20 c9 20 73 74  |....  ..... . st|
00005520  6f 70 6d 25 0d 1e e6 17  20 20 e7 20 21 6d 65 6e  |opm%....  . !men|
00005530  75 73 25 20 3c 3e 20 2d  31 20 8c 0d 1e f0 35 20  |us% <> -1 ....5 |
00005540  20 20 64 61 74 61 5f 6e  65 77 25 3d 28 64 61 74  |  data_new%=(dat|
00005550  61 5f 6e 65 77 25 20 80  20 25 31 31 31 30 31 31  |a_new% . %111011|
00005560  29 20 82 20 28 21 6d 65  6e 75 73 25 3c 3c 32 29  |) . (!menus%<<2)|
00005570  0d 1e fa 22 20 20 20 f2  74 69 63 6b 69 74 28 73  |..."   .tickit(s|
00005580  74 6f 70 6d 25 2c 20 21  6d 65 6e 75 73 25 2c 20  |topm%, !menus%, |
00005590  31 29 0d 1f 04 07 20 20  cd 0d 1f 0e 05 cb 0d 1f  |1)....  ........|
000055a0  18 10 f2 75 70 64 61 74  65 5f 69 63 6f 6e 0d 1f  |...update_icon..|
000055b0  22 05 e1 0d 1f 2c 05 3a  0d 1f 36 26 dd 20 f2 75  |"....,.:..6&. .u|
000055c0  70 64 61 74 65 5f 61 6e  79 5f 69 63 6f 6e 28 77  |pdate_any_icon(w|
000055d0  69 6e 64 6f 77 25 2c 20  69 63 6f 6e 25 29 0d 1f  |indow%, icon%)..|
000055e0  40 17 62 6c 6f 63 6b 25  21 30 20 20 3d 20 77 69  |@.block%!0  = wi|
000055f0  6e 64 6f 77 25 0d 1f 4a  15 62 6c 6f 63 6b 25 21  |ndow%..J.block%!|
00005600  34 20 20 3d 20 69 63 6f  6e 25 0d 1f 54 11 62 6c  |4  = icon%..T.bl|
00005610  6f 63 6b 25 21 38 20 20  3d 20 30 0d 1f 5e 11 62  |ock%!8  = 0..^.b|
00005620  6c 6f 63 6b 25 21 31 32  20 3d 20 30 0d 1f 68 22  |lock%!12 = 0..h"|
00005630  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
00005640  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 0d 1f  |State",,block%..|
00005650  72 05 e1 0d 1f 7c 05 3a  0d 1f 86 12 dd 20 f2 75  |r....|.:..... .u|
00005660  70 64 61 74 65 5f 69 63  6f 6e 0d 1f 90 21 f2 75  |pdate_icon...!.u|
00005670  70 64 61 74 65 5f 61 6e  79 5f 69 63 6f 6e 28 2d  |pdate_any_icon(-|
00005680  32 2c 69 63 70 72 69 6e  74 25 29 0d 1f 9a 05 e1  |2,icprint%).....|
00005690  0d 1f a4 05 3a 0d 1f ae  24 dd 20 f2 74 69 63 6b  |....:...$. .tick|
000056a0  69 74 28 6d 65 6e 75 25  2c 20 69 74 65 6d 25 2c  |it(menu%, item%,|
000056b0  20 6e 69 74 65 6d 73 25  29 0d 1f b8 08 ea 20 49  | nitems%)..... I|
000056c0  25 0d 1f c2 14 e3 20 49  25 3d 30 20 b8 20 6e 69  |%..... I%=0 . ni|
000056d0  74 65 6d 73 25 0d 1f cc  1d 20 20 f2 73 65 74 5f  |tems%....  .set_|
000056e0  74 69 63 6b 28 6d 65 6e  75 25 2c 20 49 25 2c 20  |tick(menu%, I%, |
000056f0  30 29 0d 1f d6 05 ed 0d  1f e0 1e f2 73 65 74 5f  |0)..........set_|
00005700  74 69 63 6b 28 6d 65 6e  75 25 2c 20 69 74 65 6d  |tick(menu%, item|
00005710  25 2c 20 31 29 0d 1f ea  05 e1 0d 1f f4 05 3a 0d  |%, 1).........:.|
00005720  1f fe 10 dd 20 f2 66 72  6f 6e 74 28 68 25 29 0d  |.... .front(h%).|
00005730  20 08 0a 21 71 25 3d 68  25 0d 20 12 2b c8 99 20  | ..!q%=h%. .+.. |
00005740  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00005750  74 61 74 65 22 2c 2c 71  25 20 3a 20 71 25 21 32  |tate",,q% : q%!2|
00005760  38 3d 2d 31 0d 20 1c 1c  c8 99 20 22 57 69 6d 70  |8=-1. .... "Wimp|
00005770  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 71 25  |_OpenWindow",,q%|
00005780  0d 20 26 05 e1 0d 20 30  05 3a 0d 20 3a 37 dd 20  |. &... 0.:. :7. |
00005790  f2 6f 70 65 6e 28 68 61  6e 64 6c 65 25 2c 78 30  |.open(handle%,x0|
000057a0  25 2c 79 30 25 2c 78 31  25 2c 79 31 25 2c 73 63  |%,y0%,x1%,y1%,sc|
000057b0  78 25 2c 73 63 79 25 2c  62 68 61 6e 64 6c 65 25  |x%,scy%,bhandle%|
000057c0  29 0d 20 44 0f 21 71 25  3d 68 61 6e 64 6c 65 25  |). D.!q%=handle%|
000057d0  0d 20 4e 29 71 25 21 34  3d 78 30 25 3a 71 25 21  |. N)q%!4=x0%:q%!|
000057e0  38 3d 79 30 25 3a 71 25  21 31 32 3d 78 31 25 3a  |8=y0%:q%!12=x1%:|
000057f0  71 25 21 31 36 3d 79 31  25 0d 20 58 19 71 25 21  |q%!16=y1%. X.q%!|
00005800  32 30 3d 73 63 78 25 3a  71 25 21 32 34 3d 73 63  |20=scx%:q%!24=sc|
00005810  79 25 0d 20 62 12 71 25  21 32 38 3d 62 68 61 6e  |y%. b.q%!28=bhan|
00005820  64 6c 65 25 0d 20 6c 1c  c8 99 20 22 57 69 6d 70  |dle%. l... "Wimp|
00005830  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 71 25  |_OpenWindow",,q%|
00005840  0d 20 76 05 e1 0d 20 80  05 3a 0d 20 8a 21 dd 20  |. v... ..:. .!. |
00005850  f2 73 65 74 5f 70 73 77  5f 69 63 6f 6e 28 69 63  |.set_psw_icon(ic|
00005860  6f 6e 25 2c 76 61 6c 75  65 24 29 0d 20 94 08 ea  |on%,value$). ...|
00005870  20 41 25 0d 20 9e 21 41  25 3d a4 69 63 6f 6e 61  | A%. .!A%=.icona|
00005880  64 64 72 28 70 61 67 65  73 69 7a 65 25 2c 69 63  |ddr(pagesize%,ic|
00005890  6f 6e 25 29 0d 20 a8 0e  24 41 25 3d 76 61 6c 75  |on%). ..$A%=valu|
000058a0  65 24 0d 20 b2 25 f2 75  70 64 61 74 65 5f 61 6e  |e$. .%.update_an|
000058b0  79 5f 69 63 6f 6e 28 70  61 67 65 73 69 7a 65 25  |y_icon(pagesize%|
000058c0  2c 69 63 6f 6e 25 29 0d  20 bc 26 c8 99 20 22 57  |,icon%). .&.. "W|
000058d0  69 6d 70 5f 47 65 74 43  61 72 65 74 50 6f 73 69  |imp_GetCaretPosi|
000058e0  74 69 6f 6e 22 2c 2c 62  6c 6f 63 6b 25 0d 20 c6  |tion",,block%. .|
000058f0  2a e7 20 21 62 6c 6f 63  6b 25 3d 70 61 67 65 73  |*. !block%=pages|
00005900  69 7a 65 25 20 80 20 62  6c 6f 63 6b 25 21 34 3d  |ize% . block%!4=|
00005910  69 63 6f 6e 25 20 8c 0d  20 d0 0f 20 41 25 3d a9  |icon% .. .. A%=.|
00005920  76 61 6c 75 65 24 0d 20  da 22 20 e7 20 62 6c 6f  |value$. ." . blo|
00005930  63 6b 25 21 32 30 3c 41  25 20 8c 20 41 25 3d 62  |ck%!20<A% . A%=b|
00005940  6c 6f 63 6b 25 21 32 30  0d 20 e4 36 20 c8 99 22  |lock%!20. .6 .."|
00005950  57 69 6d 70 5f 53 65 74  43 61 72 65 74 50 6f 73  |Wimp_SetCaretPos|
00005960  69 74 69 6f 6e 22 2c 70  61 67 65 73 69 7a 65 25  |ition",pagesize%|
00005970  2c 69 63 6f 6e 25 2c 2c  2c 2d 31 2c 41 25 0d 20  |,icon%,,,-1,A%. |
00005980  ee 05 cd 0d 20 f8 05 e1  0d 21 02 05 3a 0d 21 0c  |.... ....!..:.!.|
00005990  29 dd 20 f2 73 65 74 5f  6e 75 6d 65 72 69 63 5f  |). .set_numeric_|
000059a0  70 73 77 5f 69 63 6f 6e  28 69 63 6f 6e 25 2c 76  |psw_icon(icon%,v|
000059b0  61 6c 75 65 25 29 0d 21  16 07 ea 40 25 0d 21 20  |alue%).!...@%.! |
000059c0  10 40 25 3d 26 30 31 30  32 30 31 30 41 0d 21 2a  |.@%=&0102010A.!*|
000059d0  2e f2 73 65 74 5f 70 73  77 5f 69 63 6f 6e 28 69  |..set_psw_icon(i|
000059e0  63 6f 6e 25 2c c3 28 76  61 6c 75 65 25 2f 6d 6d  |con%,.(value%/mm|
000059f0  5f 74 6f 5f 37 32 30 30  30 29 29 0d 21 34 05 e1  |_to_72000)).!4..|
00005a00  0d 21 3e 05 3a 0d 21 48  1a dd 20 f2 73 65 74 5f  |.!>.:.!H.. .set_|
00005a10  70 61 67 65 73 69 7a 65  5f 77 69 6e 64 6f 77 0d  |pagesize_window.|
00005a20  21 52 0b ea 20 50 25 2c  56 25 0d 21 5c 13 50 25  |!R.. P%,V%.!\.P%|
00005a30  3d 70 61 67 65 5f 6e 75  6d 62 65 72 25 0d 21 66  |=page_number%.!f|
00005a40  3b f2 73 65 74 5f 70 73  77 5f 69 63 6f 6e 28 70  |;.set_psw_icon(p|
00005a50  73 77 5f 6e 61 6d 65 5f  69 63 6f 6e 25 2c 70 61  |sw_name_icon%,pa|
00005a60  67 65 5f 6e 61 6d 65 73  24 28 70 61 67 65 5f 6e  |ge_names$(page_n|
00005a70  75 6d 62 65 72 25 29 29  0d 21 70 4d f2 73 65 74  |umber%)).!pM.set|
00005a80  5f 6e 75 6d 65 72 69 63  5f 70 73 77 5f 69 63 6f  |_numeric_psw_ico|
00005a90  6e 28 70 73 77 5f 68 65  69 67 68 74 5f 69 63 6f  |n(psw_height_ico|
00005aa0  6e 25 2c 70 61 67 65 5f  64 65 73 63 25 28 50 25  |n%,page_desc%(P%|
00005ab0  2c 70 61 67 65 5f 68 65  69 67 68 74 5f 66 69 65  |,page_height_fie|
00005ac0  6c 64 25 29 29 0d 21 7a  4c f2 73 65 74 5f 6e 75  |ld%)).!zL.set_nu|
00005ad0  6d 65 72 69 63 5f 70 73  77 5f 69 63 6f 6e 28 70  |meric_psw_icon(p|
00005ae0  73 77 5f 77 69 64 74 68  5f 69 63 6f 6e 25 2c 20  |sw_width_icon%, |
00005af0  70 61 67 65 5f 64 65 73  63 25 28 50 25 2c 70 61  |page_desc%(P%,pa|
00005b00  67 65 5f 77 69 64 74 68  5f 66 69 65 6c 64 25 29  |ge_width_field%)|
00005b10  29 0d 21 84 4d f2 73 65  74 5f 6e 75 6d 65 72 69  |).!.M.set_numeri|
00005b20  63 5f 70 73 77 5f 69 63  6f 6e 28 70 73 77 5f 62  |c_psw_icon(psw_b|
00005b30  6f 74 74 6f 6d 5f 69 63  6f 6e 25 2c 70 61 67 65  |ottom_icon%,page|
00005b40  5f 64 65 73 63 25 28 50  25 2c 70 61 67 65 5f 62  |_desc%(P%,page_b|
00005b50  6f 74 74 6f 6d 5f 66 69  65 6c 64 25 29 29 0d 21  |ottom_field%)).!|
00005b60  8e 4b f2 73 65 74 5f 6e  75 6d 65 72 69 63 5f 70  |.K.set_numeric_p|
00005b70  73 77 5f 69 63 6f 6e 28  70 73 77 5f 6c 65 66 74  |sw_icon(psw_left|
00005b80  5f 69 63 6f 6e 25 2c 20  20 70 61 67 65 5f 64 65  |_icon%,  page_de|
00005b90  73 63 25 28 50 25 2c 70  61 67 65 5f 6c 65 66 74  |sc%(P%,page_left|
00005ba0  5f 66 69 65 6c 64 25 29  29 0d 21 98 47 56 25 3d  |_field%)).!.GV%=|
00005bb0  70 61 67 65 5f 64 65 73  63 25 28 50 25 2c 70 61  |page_desc%(P%,pa|
00005bc0  67 65 5f 68 65 69 67 68  74 5f 66 69 65 6c 64 25  |ge_height_field%|
00005bd0  29 2d 70 61 67 65 5f 64  65 73 63 25 28 50 25 2c  |)-page_desc%(P%,|
00005be0  70 61 67 65 5f 74 6f 70  5f 66 69 65 6c 64 25 29  |page_top_field%)|
00005bf0  0d 21 a2 2e f2 73 65 74  5f 6e 75 6d 65 72 69 63  |.!...set_numeric|
00005c00  5f 70 73 77 5f 69 63 6f  6e 28 70 73 77 5f 74 6f  |_psw_icon(psw_to|
00005c10  70 5f 69 63 6f 6e 25 2c  20 20 20 56 25 29 0d 21  |p_icon%,   V%).!|
00005c20  ac 48 56 25 3d 70 61 67  65 5f 64 65 73 63 25 28  |.HV%=page_desc%(|
00005c30  50 25 2c 70 61 67 65 5f  77 69 64 74 68 5f 66 69  |P%,page_width_fi|
00005c40  65 6c 64 25 29 2d 70 61  67 65 5f 64 65 73 63 25  |eld%)-page_desc%|
00005c50  28 50 25 2c 70 61 67 65  5f 72 69 67 68 74 5f 66  |(P%,page_right_f|
00005c60  69 65 6c 64 25 29 0d 21  b6 2e f2 73 65 74 5f 6e  |ield%).!...set_n|
00005c70  75 6d 65 72 69 63 5f 70  73 77 5f 69 63 6f 6e 28  |umeric_psw_icon(|
00005c80  70 73 77 5f 72 69 67 68  74 5f 69 63 6f 6e 25 2c  |psw_right_icon%,|
00005c90  20 56 25 29 0d 21 c0 0c  e3 20 49 25 3d 30 b8 32  | V%).!... I%=0.2|
00005ca0  0d 21 ca 54 f2 73 65 74  5f 69 63 6f 6e 5f 73 74  |.!.T.set_icon_st|
00005cb0  61 74 65 28 70 61 67 65  73 69 7a 65 25 2c 70 73  |ate(pagesize%,ps|
00005cc0  77 5f 70 61 67 65 31 5f  69 63 6f 6e 25 2b 49 25  |w_page1_icon%+I%|
00005cd0  2c 20 28 31 3c 3c 32 31  29 20 80 20 28 49 25 3d  |, (1<<21) . (I%=|
00005ce0  70 61 67 65 5f 6e 75 6d  62 65 72 25 29 2c 31 3c  |page_number%),1<|
00005cf0  3c 32 31 29 0d 21 d4 05  ed 0d 21 de 05 e1 0d 21  |<21).!....!....!|
00005d00  e8 05 3a 0d 21 f2 15 dd  20 f2 63 6c 6f 73 65 28  |..:.!... .close(|
00005d10  68 61 6e 64 6c 65 25 29  0d 21 fc 29 21 71 25 3d  |handle%).!.)!q%=|
00005d20  68 61 6e 64 6c 65 25 3a  c8 99 20 22 57 69 6d 70  |handle%:.. "Wimp|
00005d30  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 71  |_CloseWindow",,q|
00005d40  25 0d 22 06 05 e1 0d 22  10 05 3a 0d 22 1a 11 dd  |%."...."..:."...|
00005d50  20 a4 77 69 6e 64 6f 77  28 61 24 29 0d 22 24 08  | .window(a$)."$.|
00005d60  ea 20 63 25 0d 22 2e 48  c8 99 20 22 57 69 6d 70  |. c%.".H.. "Wimp|
00005d70  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
00005d80  71 25 2c 63 75 72 62 75  66 25 2c 65 6e 64 62 75  |q%,curbuf%,endbu|
00005d90  66 25 2c 2d 31 2c 61 24  2c 30 20 b8 20 2c 2c 63  |f%,-1,a$,0 . ,,c|
00005da0  75 72 62 75 66 25 2c 2c  2c 2c 63 25 0d 22 38 31  |urbuf%,,,,c%."81|
00005db0  e7 20 63 25 3d 30 20 8c  20 f2 6d 6f 61 6e 28 22  |. c%=0 . .moan("|
00005dc0  54 65 6d 70 6c 61 74 65  20 27 22 2b 61 24 2b 22  |Template '"+a$+"|
00005dd0  27 20 6e 6f 74 20 66 6f  75 6e 64 22 29 0d 22 42  |' not found")."B|
00005de0  23 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |#.. "Wimp_Create|
00005df0  57 69 6e 64 6f 77 22 2c  2c 71 25 20 b8 20 63 25  |Window",,q% . c%|
00005e00  0d 22 4c 07 3d 63 25 0d  22 56 05 3a 0d 22 60 16  |."L.=c%."V.:."`.|
00005e10  dd 20 a4 69 63 6f 6e 61  64 64 72 28 68 25 2c 69  |. .iconaddr(h%,i|
00005e20  25 29 0d 22 6a 2d 21 71  25 3d 68 25 3a 71 25 21  |%)."j-!q%=h%:q%!|
00005e30  34 3d 69 25 3a c8 99 20  22 57 69 6d 70 5f 47 65  |4=i%:.. "Wimp_Ge|
00005e40  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 25 0d  |tIconState",,q%.|
00005e50  22 74 38 e7 20 28 71 25  21 32 34 20 80 20 26 31  |"t8. (q%!24 . &1|
00005e60  30 30 29 3d 30 20 8c 20  f2 6d 6f 61 6e 28 22 49  |00)=0 . .moan("I|
00005e70  63 6f 6e 20 69 73 20 6e  6f 74 20 69 6e 64 69 72  |con is not indir|
00005e80  65 63 74 65 64 22 29 0d  22 7e 0a 3d 71 25 21 32  |ected")."~.=q%!2|
00005e90  38 0d 22 88 05 3a 0d 22  92 0f dd 20 f2 6d 65 6e  |8."..:."... .men|
00005ea0  75 28 6d 25 29 0d 22 9c  08 ea 20 59 25 0d 22 a6  |u(m%)."... Y%.".|
00005eb0  10 59 25 20 3d 20 6d 6f  75 73 65 79 25 0d 22 b0  |.Y% = mousey%.".|
00005ec0  14 e7 59 25 3c 35 34 30  20 8c 20 59 25 3d 35 34  |..Y%<540 . Y%=54|
00005ed0  30 0d 22 ba 12 6d 65 6e  75 68 61 6e 64 6c 65 25  |0."..menuhandle%|
00005ee0  3d 6d 25 0d 22 c4 33 c8  99 20 22 57 69 6d 70 5f  |=m%.".3.. "Wimp_|
00005ef0  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 6d 65 6e  |CreateMenu",,men|
00005f00  75 68 61 6e 64 6c 65 25  2c 6d 6f 75 73 65 78 25  |uhandle%,mousex%|
00005f10  2d 36 34 2c 59 25 0d 22  ce 05 e1 0d 22 d8 05 3a  |-64,Y%."...."..:|
00005f20  0d 22 e2 0d dd 20 f2 72  65 6d 65 6e 75 0d 22 ec  |."... .remenu.".|
00005f30  08 ea 20 59 25 0d 22 f6  10 59 25 20 3d 20 6d 6f  |.. Y%."..Y% = mo|
00005f40  75 73 65 79 25 0d 23 00  19 e7 20 59 25 20 3c 20  |usey%.#... Y% < |
00005f50  33 30 30 20 8c 20 59 25  20 3d 20 33 31 36 0d 23  |300 . Y% = 316.#|
00005f60  0a 45 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.E.. "Wimp_Creat|
00005f70  65 4d 65 6e 75 22 2c 2c  6d 65 6e 75 68 61 6e 64  |eMenu",,menuhand|
00005f80  6c 65 25 2c 6d 6f 75 73  65 78 25 2d 36 34 2c 59  |le%,mousex%-64,Y|
00005f90  25 20 3a f4 20 64 65 66  61 75 6c 74 20 63 6f 6f  |% :. default coo|
00005fa0  72 64 73 0d 23 14 05 e1  0d 23 1e 05 3a 0d 23 28  |rds.#....#..:.#(|
00005fb0  14 dd 20 a4 63 72 6d 65  6e 75 28 6d 65 6e 75 24  |.. .crmenu(menu$|
00005fc0  29 0d 23 32 37 e7 20 6d  65 6e 75 66 72 65 65 25  |).#27. menufree%|
00005fd0  2b 32 38 20 3e 20 6d 65  6e 75 65 6e 64 25 20 8c  |+28 > menuend% .|
00005fe0  20 f2 6d 6f 61 6e 28 22  4d 65 6e 75 20 61 72 65  | .moan("Menu are|
00005ff0  61 20 66 75 6c 6c 22 29  0d 23 3c 0b ea 20 6d 25  |a full").#<.. m%|
00006000  2c 69 25 0d 23 46 16 6d  65 6e 75 70 74 72 25 3d  |,i%.#F.menuptr%=|
00006010  6d 65 6e 75 66 72 65 65  25 0d 23 50 08 69 25 3d  |menufree%.#P.i%=|
00006020  30 0d 23 5a 3f e7 20 c0  6d 65 6e 75 24 2c 31 29  |0.#Z?. .menu$,1)|
00006030  3d 22 23 22 20 8c 20 69  25 3d 31 3a 6d 65 6e 75  |="#" . i%=1:menu|
00006040  74 69 74 6c 65 24 3d a4  70 61 72 28 22 3b 22 29  |title$=.par(";")|
00006050  20 8b 20 6d 65 6e 75 74  69 74 6c 65 24 3d 22 22  | . menutitle$=""|
00006060  0d 23 64 18 24 6d 65 6e  75 70 74 72 25 3d 6d 65  |.#d.$menuptr%=me|
00006070  6e 75 74 69 74 6c 65 24  0d 23 6e 4a 6d 65 6e 75  |nutitle$.#nJmenu|
00006080  70 74 72 25 3f 31 32 3d  60 74 66 63 6f 6c 3a 6d  |ptr%?12=`tfcol:m|
00006090  65 6e 75 70 74 72 25 3f  31 33 3d 32 3a 6d 65 6e  |enuptr%?13=2:men|
000060a0  75 70 74 72 25 3f 31 34  3d 60 77 66 63 6f 6c 3a  |uptr%?14=`wfcol:|
000060b0  6d 65 6e 75 70 74 72 25  3f 31 35 3d 60 77 62 63  |menuptr%?15=`wbc|
000060c0  6f 6c 0d 23 78 33 6d 65  6e 75 70 74 72 25 21 31  |ol.#x3menuptr%!1|
000060d0  36 3d 31 39 36 2d 32 34  3a 6d 65 6e 75 70 74 72  |6=196-24:menuptr|
000060e0  25 21 32 30 3d 34 34 3a  6d 65 6e 75 70 74 72 25  |%!20=44:menuptr%|
000060f0  21 32 34 3d 30 0d 23 82  24 6d 65 6e 75 70 74 72  |!24=0.#.$menuptr|
00006100  25 2b 3d 32 38 3a 6d 61  78 78 25 3d a9 6d 65 6e  |%+=28:maxx%=.men|
00006110  75 74 69 74 6c 65 24 2d  33 0d 23 8c 31 f5 20 69  |utitle$-3.#.1. i|
00006120  74 65 6d 24 3d a4 70 61  72 28 22 3b 22 29 3a f2  |tem$=.par(";"):.|
00006130  6d 65 6e 75 69 74 65 6d  28 69 74 65 6d 24 29 3a  |menuitem(item$):|
00006140  fd 20 69 74 65 6d 24 3d  22 22 0d 23 96 24 6d 25  |. item$="".#.$m%|
00006150  3d 6d 65 6e 75 66 72 65  65 25 3a 6d 25 21 31 36  |=menufree%:m%!16|
00006160  3d 28 6d 61 78 78 25 2a  38 2b 36 29 2a 32 0d 23  |=(maxx%*8+6)*2.#|
00006170  a0 16 6d 65 6e 75 66 72  65 65 25 3d 6d 65 6e 75  |..menufree%=menu|
00006180  70 74 72 25 0d 23 aa 07  3d 6d 25 0d 23 b4 05 3a  |ptr%.#..=m%.#..:|
00006190  0d 23 be 16 dd 20 f2 6d  65 6e 75 69 74 65 6d 28  |.#... .menuitem(|
000061a0  74 65 78 74 24 29 0d 23  c8 32 e7 20 74 65 78 74  |text$).#.2. text|
000061b0  24 3d 22 22 20 8c 20 6d  65 6e 75 70 74 72 25 21  |$="" . menuptr%!|
000061c0  2d 32 34 3d 28 6d 65 6e  75 70 74 72 25 21 2d 32  |-24=(menuptr%!-2|
000061d0  34 29 84 26 38 30 3a e1  0d 23 d2 36 e7 20 6d 65  |4).&80:..#.6. me|
000061e0  6e 75 70 74 72 25 2b 32  34 20 3e 20 6d 65 6e 75  |nuptr%+24 > menu|
000061f0  65 6e 64 25 20 8c 20 f2  6d 6f 61 6e 28 22 4d 65  |end% . .moan("Me|
00006200  6e 75 20 61 72 65 61 20  66 75 6c 6c 22 29 0d 23  |nu area full").#|
00006210  dc 0f ea 69 25 2c 66 6c  67 25 2c 56 25 0d 23 e6  |...i%,flg%,V%.#.|
00006220  0c 66 6c 67 25 3d 26 30  30 0d 23 f0 12 69 25 3d  |.flg%=&00.#..i%=|
00006230  a7 74 65 78 74 24 2c 22  3e 22 29 0d 23 fa 36 e7  |.text$,">").#.6.|
00006240  20 c2 74 65 78 74 24 2c  31 29 3d 22 23 22 20 8c  | .text$,1)="#" .|
00006250  20 74 65 78 74 24 3d c0  74 65 78 74 24 2c a9 74  | text$=.text$,.t|
00006260  65 78 74 24 2d 31 29 3a  66 6c 67 25 2b 3d 26 30  |ext$-1):flg%+=&0|
00006270  32 0d 24 04 3d e7 69 25  3e 30 8c 73 75 62 70 74  |2.$.=.i%>0.subpt|
00006280  72 25 3d a0 c1 74 65 78  74 24 2c 69 25 2b 31 29  |r%=..text$,i%+1)|
00006290  3a 74 65 78 74 24 3d c0  74 65 78 74 24 2c 69 25  |:text$=.text$,i%|
000062a0  2d 31 29 8b 73 75 62 70  74 72 25 3d 2d 31 0d 24  |-1).subptr%=-1.$|
000062b0  0e 13 6d 65 6e 75 70 74  72 25 21 30 3d 66 6c 67  |..menuptr%!0=flg|
000062c0  25 0d 24 18 16 6d 65 6e  75 70 74 72 25 21 34 3d  |%.$..menuptr%!4=|
000062d0  73 75 62 70 74 72 25 0d  24 22 18 6d 65 6e 75 70  |subptr%.$".menup|
000062e0  74 72 25 21 38 3d 26 30  37 30 30 30 30 32 31 0d  |tr%!8=&07000021.|
000062f0  24 2c 13 e7 c0 74 65 78  74 24 2c 31 29 3d 22 24  |$,...text$,1)="$|
00006300  22 8c 0d 24 36 13 20 21  6d 65 6e 75 70 74 72 25  |"..$6. !menuptr%|
00006310  2b 3d 26 30 34 0d 24 40  15 20 6d 65 6e 75 70 74  |+=&04.$@. menupt|
00006320  72 25 21 38 2b 3d 26 31  30 38 0d 24 4a 13 20 69  |r%!8+=&108.$J. i|
00006330  25 3d a7 74 65 78 74 24  2c 22 28 22 29 0d 24 54  |%=.text$,"(").$T|
00006340  34 20 e7 69 25 3e 30 8c  4c 25 3d bb c1 74 65 78  |4 .i%>0.L%=..tex|
00006350  74 24 2c 69 25 2b 31 29  3a 74 65 78 74 24 3d c0  |t$,i%+1):text$=.|
00006360  74 65 78 74 24 2c 69 25  2d 31 29 8b 4c 25 3d 31  |text$,i%-1).L%=1|
00006370  32 0d 24 5e 0c 20 56 25  20 3d 20 2d 31 0d 24 68  |2.$^. V% = -1.$h|
00006380  1b 20 6d 65 6e 75 70 74  72 25 21 31 32 3d a0 c1  |. menuptr%!12=..|
00006390  74 65 78 74 24 2c 32 29  0d 24 72 13 20 6d 65 6e  |text$,2).$r. men|
000063a0  75 70 74 72 25 21 31 36  3d 2d 31 0d 24 7c 13 20  |uptr%!16=-1.$|. |
000063b0  6d 65 6e 75 70 74 72 25  21 32 30 3d 4c 25 0d 24  |menuptr%!20=L%.$|
000063c0  86 13 20 74 65 78 74 24  3d c4 4c 25 2c 22 20 22  |.. text$=.L%," "|
000063d0  29 0d 24 90 1a 20 e7 20  6d 61 78 78 25 3c 32 30  |).$.. . maxx%<20|
000063e0  20 8c 20 6d 61 78 78 25  3d 32 30 0d 24 9a 05 cc  | . maxx%=20.$...|
000063f0  0d 24 a4 14 20 e7 c0 74  65 78 74 24 2c 31 29 3d  |.$.. ..text$,1)=|
00006400  22 21 22 8c 0d 24 ae 1c  20 20 74 65 78 74 24 3d  |"!"..$..  text$=|
00006410  c2 74 65 78 74 24 2c a9  74 65 78 74 24 2d 31 29  |.text$,.text$-1)|
00006420  0d 24 b8 32 20 20 21 6d  65 6e 75 70 74 72 25 2b  |.$.2  !menuptr%+|
00006430  3d 26 30 38 3a 20 f4 20  67 65 74 20 77 61 72 6e  |=&08: . get warn|
00006440  69 6e 67 20 77 68 65 6e  20 69 74 20 6f 70 65 6e  |ing when it open|
00006450  73 2e 0d 24 c2 06 20 cd  0d 24 cc 11 20 e7 a9 74  |s..$.. ..$.. ..t|
00006460  65 78 74 24 3c 3d 31 32  8c 0d 24 d6 1a 20 20 24  |ext$<=12..$..  $|
00006470  28 6d 65 6e 75 70 74 72  25 2b 31 32 29 3d 74 65  |(menuptr%+12)=te|
00006480  78 74 24 0d 24 e0 28 20  cc 20 49 25 3d a4 77 6f  |xt$.$.( . I%=.wo|
00006490  72 6b 73 70 61 63 65 28  a9 74 65 78 74 24 2b 31  |rkspace(.text$+1|
000064a0  29 3a 24 49 25 3d 74 65  78 74 24 0d 24 ea 38 20  |):$I%=text$.$.8 |
000064b0  20 6d 65 6e 75 70 74 72  25 21 31 32 3d 49 25 3a  | menuptr%!12=I%:|
000064c0  6d 65 6e 75 70 74 72 25  21 31 36 3d 2d 31 3a 6d  |menuptr%!16=-1:m|
000064d0  65 6e 75 70 74 72 25 21  32 30 3d a9 74 65 78 74  |enuptr%!20=.text|
000064e0  24 2b 31 0d 24 f4 22 20  20 6d 65 6e 75 70 74 72  |$+1.$."  menuptr|
000064f0  25 21 38 3d 6d 65 6e 75  70 74 72 25 21 38 20 84  |%!8=menuptr%!8 .|
00006500  20 26 31 30 30 0d 24 fe  06 20 cd 0d 25 08 1f e7  | &100.$.. ..%...|
00006510  a9 74 65 78 74 24 3e 6d  61 78 78 25 20 8c 6d 61  |.text$>maxx% .ma|
00006520  78 78 25 3d a9 74 65 78  74 24 0d 25 12 05 cd 0d  |xx%=.text$.%....|
00006530  25 1c 10 6d 65 6e 75 70  74 72 25 2b 3d 32 34 0d  |%..menuptr%+=24.|
00006540  25 26 05 e1 0d 25 30 05  3a 0d 25 3a 14 dd 20 a4  |%&...%0.:.%:.. .|
00006550  77 6f 72 6b 73 70 61 63  65 28 4c 25 29 0d 25 44  |workspace(L%).%D|
00006560  0b de 20 4c 25 20 4c 25  0d 25 4e 08 3d 20 4c 25  |.. L% L%.%N.= L%|
00006570  0d 25 58 05 3a 0d 25 62  10 dd 20 a4 70 61 72 28  |.%X.:.%b.. .par(|
00006580  73 65 70 24 29 0d 25 6c  25 69 31 25 3d 69 25 2b  |sep$).%l%i1%=i%+|
00006590  31 3a 69 25 3d a7 6d 65  6e 75 24 2b 73 65 70 24  |1:i%=.menu$+sep$|
000065a0  2c 73 65 70 24 2c 69 31  25 29 0d 25 76 17 3d c1  |,sep$,i1%).%v.=.|
000065b0  6d 65 6e 75 24 2c 69 31  25 2c 69 25 2d 69 31 25  |menu$,i1%,i%-i1%|
000065c0  29 0d 25 80 05 3a 0d 25  8a 20 dd 20 f2 73 68 61  |).%..:.%. . .sha|
000065d0  64 65 28 6d 65 6e 75 68  61 6e 64 6c 65 25 2c 20  |de(menuhandle%, |
000065e0  69 74 65 6d 25 29 0d 25  94 45 6d 65 6e 75 68 61  |item%).%.Emenuha|
000065f0  6e 64 6c 65 25 21 28 32  38 2b 38 2b 32 34 2a 69  |ndle%!(28+8+24*i|
00006600  74 65 6d 25 29 3d 6d 65  6e 75 68 61 6e 64 6c 65  |tem%)=menuhandle|
00006610  25 21 28 32 38 2b 38 2b  32 34 2a 69 74 65 6d 25  |%!(28+8+24*item%|
00006620  29 82 26 34 30 30 30 30  30 3a e1 0d 25 9e 05 3a  |).&400000:..%..:|
00006630  0d 25 a8 5b dd 20 a4 73  68 61 64 65 5f 73 74 61  |.%.[. .shade_sta|
00006640  74 75 73 28 6d 65 6e 75  68 61 6e 64 6c 65 25 2c  |tus(menuhandle%,|
00006650  69 74 65 6d 25 29 20 3d  20 2d 28 28 6d 65 6e 75  |item%) = -((menu|
00006660  68 61 6e 64 6c 65 25 21  28 32 38 2b 38 2b 32 34  |handle%!(28+8+24|
00006670  2a 69 74 65 6d 25 29 20  80 20 26 34 30 30 30 30  |*item%) . &40000|
00006680  30 29 3d 26 34 30 30 30  30 30 29 0d 25 b2 05 3a  |0)=&400000).%..:|
00006690  0d 25 bc 2a dd 20 f2 73  65 74 5f 73 68 61 64 65  |.%.*. .set_shade|
000066a0  28 6d 65 6e 75 68 61 6e  64 6c 65 25 2c 20 69 74  |(menuhandle%, it|
000066b0  65 6d 25 2c 20 76 61 6c  25 29 0d 25 c6 48 e7 20  |em%, val%).%.H. |
000066c0  76 61 6c 25 3c 3e a4 73  68 61 64 65 5f 73 74 61  |val%<>.shade_sta|
000066d0  74 75 73 28 6d 65 6e 75  68 61 6e 64 6c 65 25 2c  |tus(menuhandle%,|
000066e0  69 74 65 6d 25 29 20 8c  20 f2 73 68 61 64 65 28  |item%) . .shade(|
000066f0  6d 65 6e 75 68 61 6e 64  6c 65 25 2c 69 74 65 6d  |menuhandle%,item|
00006700  25 29 0d 25 d0 05 e1 0d  25 da 05 3a 0d 25 e4 1e  |%).%....%..:.%..|
00006710  dd 20 f2 74 69 63 6b 28  6d 65 6e 75 68 61 6e 64  |. .tick(menuhand|
00006720  6c 65 25 2c 69 74 65 6d  25 29 0d 25 ee 3b 6d 65  |le%,item%).%.;me|
00006730  6e 75 68 61 6e 64 6c 65  25 21 28 32 38 2b 32 34  |nuhandle%!(28+24|
00006740  2a 69 74 65 6d 25 29 3d  6d 65 6e 75 68 61 6e 64  |*item%)=menuhand|
00006750  6c 65 25 21 28 32 38 2b  32 34 2a 69 74 65 6d 25  |le%!(28+24*item%|
00006760  29 82 26 30 31 0d 25 f8  05 e1 0d 26 02 05 3a 0d  |).&01.%....&..:.|
00006770  26 0c 44 dd 20 a4 74 69  63 6b 5f 73 74 61 74 75  |&.D. .tick_statu|
00006780  73 28 6d 65 6e 75 68 61  6e 64 6c 65 25 2c 20 69  |s(menuhandle%, i|
00006790  74 65 6d 25 29 20 3d 20  6d 65 6e 75 68 61 6e 64  |tem%) = menuhand|
000067a0  6c 65 25 21 28 32 38 2b  32 34 2a 69 74 65 6d 25  |le%!(28+24*item%|
000067b0  29 80 31 0d 26 16 05 3a  0d 26 20 29 dd 20 f2 73  |).1.&..:.& ). .s|
000067c0  65 74 5f 74 69 63 6b 28  6d 65 6e 75 68 61 6e 64  |et_tick(menuhand|
000067d0  6c 65 25 2c 20 69 74 65  6d 25 2c 20 76 61 6c 25  |le%, item%, val%|
000067e0  29 0d 26 2a 46 e7 20 76  61 6c 25 3c 3e a4 74 69  |).&*F. val%<>.ti|
000067f0  63 6b 5f 73 74 61 74 75  73 28 6d 65 6e 75 68 61  |ck_status(menuha|
00006800  6e 64 6c 65 25 2c 69 74  65 6d 25 29 20 8c 20 f2  |ndle%,item%) . .|
00006810  74 69 63 6b 28 6d 65 6e  75 68 61 6e 64 6c 65 25  |tick(menuhandle%|
00006820  2c 69 74 65 6d 25 29 0d  26 34 05 e1 0d 26 3e 05  |,item%).&4...&>.|
00006830  3a 0d 26 48 1d dd 20 f2  73 65 74 5f 70 72 69 6e  |:.&H.. .set_prin|
00006840  74 5f 73 74 61 74 65 28  66 6c 61 67 25 29 0d 26  |t_state(flag%).&|
00006850  52 23 f2 73 65 74 5f 73  68 61 64 65 28 70 72 69  |R#.set_shade(pri|
00006860  6e 74 6d 65 6e 75 25 2c  31 2c 2d 66 6c 61 67 25  |ntmenu%,1,-flag%|
00006870  29 0d 26 5c 23 f2 73 65  74 5f 73 68 61 64 65 28  |).&\#.set_shade(|
00006880  70 72 69 6e 74 6d 65 6e  75 25 2c 32 2c 2d 66 6c  |printmenu%,2,-fl|
00006890  61 67 25 29 0d 26 66 23  f2 73 65 74 5f 73 68 61  |ag%).&f#.set_sha|
000068a0  64 65 28 70 72 69 6e 74  6d 65 6e 75 25 2c 33 2c  |de(printmenu%,3,|
000068b0  2d 66 6c 61 67 25 29 0d  26 70 23 f2 73 65 74 5f  |-flag%).&p#.set_|
000068c0  73 68 61 64 65 28 70 72  69 6e 74 6d 65 6e 75 25  |shade(printmenu%|
000068d0  2c 34 2c 2d 66 6c 61 67  25 29 0d 26 7a 23 f2 73  |,4,-flag%).&z#.s|
000068e0  65 74 5f 73 68 61 64 65  28 70 72 69 6e 74 6d 65  |et_shade(printme|
000068f0  6e 75 25 2c 35 2c 2d 66  6c 61 67 25 29 0d 26 84  |nu%,5,-flag%).&.|
00006900  23 f2 73 65 74 5f 73 68  61 64 65 28 70 72 69 6e  |#.set_shade(prin|
00006910  74 6d 65 6e 75 25 2c 36  2c 2d 66 6c 61 67 25 29  |tmenu%,6,-flag%)|
00006920  0d 26 8e 26 f2 73 65 74  5f 73 68 61 64 65 28 70  |.&.&.set_shade(p|
00006930  72 69 6e 74 6d 65 6e 75  25 2c 37 2c 28 31 2b 66  |rintmenu%,7,(1+f|
00006940  6c 61 67 25 29 29 0d 26  98 23 f2 73 65 74 5f 73  |lag%)).&.#.set_s|
00006950  68 61 64 65 28 70 72 69  6e 74 6d 65 6e 75 25 2c  |hade(printmenu%,|
00006960  38 2c 2d 66 6c 61 67 25  29 0d 26 a2 13 70 72 69  |8,-flag%).&..pri|
00006970  6e 74 5f 6f 6e 25 3d 66  6c 61 67 25 0d 26 ac 2c  |nt_on%=flag%.&.,|
00006980  70 6f 6c 6c 5f 6d 61 73  6b 25 3d 28 70 6f 6c 6c  |poll_mask%=(poll|
00006990  5f 6d 61 73 6b 25 20 80  20 ac 31 29 20 84 20 28  |_mask% . .1) . (|
000069a0  31 2b 66 6c 61 67 25 29  0d 26 b6 0d e7 20 66 6c  |1+flag%).&... fl|
000069b0  61 67 25 20 8c 0d 26 c0  17 20 2a 73 65 74 20 24  |ag% ..&.. *set $|
000069c0  50 72 69 6e 74 69 6e 67  20 22 54 22 0d 26 ca 05  |Printing "T".&..|
000069d0  cc 0d 26 d4 15 20 2a 75  6e 73 65 74 20 24 50 72  |..&.. *unset $Pr|
000069e0  69 6e 74 69 6e 67 0d 26  de 05 cd 0d 26 e8 05 e1  |inting.&....&...|
000069f0  0d 26 f2 05 3a 0d 26 fc  14 dd 20 f2 73 65 74 5f  |.&..:.&... .set_|
00006a00  70 61 67 65 5f 73 69 7a  65 0d 27 06 17 ea 20 41  |page_size.'... A|
00006a10  25 2c 42 25 2c 43 25 2c  44 25 2c 45 25 2c 46 25  |%,B%,C%,D%,E%,F%|
00006a20  0d 27 10 0d 6d 73 67 25  21 30 3d 32 30 0d 27 1a  |.'..msg%!0=20.'.|
00006a30  0d 6d 73 67 25 21 31 32  3d 30 0d 27 24 1f 6d 73  |.msg%!12=0.'$.ms|
00006a40  67 25 21 31 36 3d 4d 65  73 73 61 67 65 5f 53 65  |g%!16=Message_Se|
00006a50  74 50 72 69 6e 74 65 72  25 0d 27 2e 26 c8 99 20  |tPrinter%.'.&.. |
00006a60  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00006a70  65 22 2c 20 31 37 2c 20  6d 73 67 25 2c 20 30 0d  |e", 17, msg%, 0.|
00006a80  27 38 31 41 25 3d 70 61  67 65 5f 64 65 73 63 25  |'81A%=page_desc%|
00006a90  28 70 61 67 65 5f 6e 75  6d 62 65 72 25 2c 70 61  |(page_number%,pa|
00006aa0  67 65 5f 77 69 64 74 68  5f 66 69 65 6c 64 25 29  |ge_width_field%)|
00006ab0  0d 27 42 32 42 25 3d 70  61 67 65 5f 64 65 73 63  |.'B2B%=page_desc|
00006ac0  25 28 70 61 67 65 5f 6e  75 6d 62 65 72 25 2c 70  |%(page_number%,p|
00006ad0  61 67 65 5f 68 65 69 67  68 74 5f 66 69 65 6c 64  |age_height_field|
00006ae0  25 29 0d 27 4c 30 43 25  3d 70 61 67 65 5f 64 65  |%).'L0C%=page_de|
00006af0  73 63 25 28 70 61 67 65  5f 6e 75 6d 62 65 72 25  |sc%(page_number%|
00006b00  2c 70 61 67 65 5f 6c 65  66 74 5f 66 69 65 6c 64  |,page_left_field|
00006b10  25 29 0d 27 56 32 44 25  3d 70 61 67 65 5f 64 65  |%).'V2D%=page_de|
00006b20  73 63 25 28 70 61 67 65  5f 6e 75 6d 62 65 72 25  |sc%(page_number%|
00006b30  2c 70 61 67 65 5f 62 6f  74 74 6f 6d 5f 66 69 65  |,page_bottom_fie|
00006b40  6c 64 25 29 0d 27 60 31  45 25 3d 70 61 67 65 5f  |ld%).'`1E%=page_|
00006b50  64 65 73 63 25 28 70 61  67 65 5f 6e 75 6d 62 65  |desc%(page_numbe|
00006b60  72 25 2c 70 61 67 65 5f  72 69 67 68 74 5f 66 69  |r%,page_right_fi|
00006b70  65 6c 64 25 29 0d 27 6a  2f 46 25 3d 70 61 67 65  |eld%).'j/F%=page|
00006b80  5f 64 65 73 63 25 28 70  61 67 65 5f 6e 75 6d 62  |_desc%(page_numb|
00006b90  65 72 25 2c 70 61 67 65  5f 74 6f 70 5f 66 69 65  |er%,page_top_fie|
00006ba0  6c 64 25 29 0d 27 74 2f  c8 99 20 22 50 44 72 69  |ld%).'t/.. "PDri|
00006bb0  76 65 72 5f 53 65 74 50  61 67 65 53 69 7a 65 22  |ver_SetPageSize"|
00006bc0  2c 2c 41 25 2c 42 25 2c  43 25 2c 44 25 2c 45 25  |,,A%,B%,C%,D%,E%|
00006bd0  2c 46 25 0d 27 7e 1d f2  50 72 69 6e 74 65 72 5f  |,F%.'~..Printer_|
00006be0  63 68 61 6e 67 65 5f 70  61 67 65 5f 73 69 7a 65  |change_page_size|
00006bf0  0d 27 88 05 e1 0d 27 92  05 3a 0d 27 9c 32 dd 20  |.'....'..:.'.2. |
00006c00  f2 73 65 74 5f 69 63 6f  6e 5f 73 74 61 74 65 28  |.set_icon_state(|
00006c10  68 61 6e 64 6c 65 25 2c  20 69 63 6f 6e 25 2c 20  |handle%, icon%, |
00006c20  65 6f 72 25 2c 20 6d 61  73 6b 25 29 0d 27 a6 19  |eor%, mask%).'..|
00006c30  21 69 63 6f 6e 5f 62 75  66 25 20 20 3d 20 68 61  |!icon_buf%  = ha|
00006c40  6e 64 6c 65 25 0d 27 b0  17 69 63 6f 6e 5f 62 75  |ndle%.'..icon_bu|
00006c50  66 25 21 34 20 3d 20 69  63 6f 6e 25 0d 27 ba 16  |f%!4 = icon%.'..|
00006c60  69 63 6f 6e 5f 62 75 66  25 21 38 20 3d 20 65 6f  |icon_buf%!8 = eo|
00006c70  72 25 0d 27 c4 18 69 63  6f 6e 5f 62 75 66 25 21  |r%.'..icon_buf%!|
00006c80  31 32 20 3d 20 6d 61 73  6b 25 0d 27 ce 25 c8 99  |12 = mask%.'.%..|
00006c90  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
00006ca0  61 74 65 22 2c 2c 69 63  6f 6e 5f 62 75 66 25 0d  |ate",,icon_buf%.|
00006cb0  27 d8 05 e1 0d 27 e2 05  3a 0d 27 ec 0e dd 20 a4  |'....'..:.'... .|
00006cc0  69 63 6f 6e 62 61 72 0d  27 f6 08 ea 20 49 25 0d  |iconbar.'... I%.|
00006cd0  28 00 13 69 63 6f 6e 5f  62 75 66 25 21 30 20 3d  |(..icon_buf%!0 =|
00006ce0  2d 32 0d 28 0a 12 69 63  6f 6e 5f 62 75 66 25 21  |-2.(..icon_buf%!|
00006cf0  34 20 3d 30 0d 28 14 14  69 63 6f 6e 5f 62 75 66  |4 =0.(..icon_buf|
00006d00  25 21 38 20 3d 2d 31 36  0d 28 1e 14 69 63 6f 6e  |%!8 =-16.(..icon|
00006d10  5f 62 75 66 25 21 31 32  3d 31 34 34 0d 28 28 14  |_buf%!12=144.((.|
00006d20  69 63 6f 6e 5f 62 75 66  25 21 31 36 3d 20 38 36  |icon_buf%!16= 86|
00006d30  0d 28 32 47 69 63 6f 6e  5f 62 75 66 25 21 32 30  |.(2Gicon_buf%!20|
00006d40  3d 20 26 31 37 30 30 33  31 32 42 3a 20 20 f4 20  |= &1700312B:  . |
00006d50  30 30 30 31 20 30 31 31  31 20 30 30 30 30 20 30  |0001 0111 0000 0|
00006d60  30 30 30 20 30 30 31 31  20 30 30 30 31 20 30 30  |000 0011 0001 00|
00006d70  31 30 20 31 30 31 31 0d  28 3c 23 24 74 65 78 74  |10 1011.(<#$text|
00006d80  5f 62 75 66 66 65 72 25  20 20 20 3d 20 70 72 69  |_buffer%   = pri|
00006d90  6e 74 65 72 5f 74 79 70  65 24 0d 28 46 23 24 76  |nter_type$.(F#$v|
00006da0  61 6c 69 64 5f 62 75 66  66 65 72 25 20 20 3d 20  |alid_buffer%  = |
00006db0  22 53 21 22 2b 50 72 69  6e 74 65 72 24 0d 28 50  |"S!"+Printer$.(P|
00006dc0  1e 69 63 6f 6e 5f 62 75  66 25 21 32 34 3d 20 74  |.icon_buf%!24= t|
00006dd0  65 78 74 5f 62 75 66 66  65 72 25 0d 28 5a 20 69  |ext_buffer%.(Z i|
00006de0  63 6f 6e 5f 62 75 66 25  21 32 38 20 3d 20 76 61  |con_buf%!28 = va|
00006df0  6c 69 64 5f 62 75 66 66  65 72 25 0d 28 64 25 69  |lid_buffer%.(d%i|
00006e00  63 6f 6e 5f 62 75 66 25  21 33 32 20 3d 20 a9 28  |con_buf%!32 = .(|
00006e10  24 74 65 78 74 5f 62 75  66 66 65 72 25 29 2b 31  |$text_buffer%)+1|
00006e20  0d 28 6e 28 c8 99 20 22  57 69 6d 70 5f 43 72 65  |.(n(.. "Wimp_Cre|
00006e30  61 74 65 49 63 6f 6e 22  2c 2c 69 63 6f 6e 5f 62  |ateIcon",,icon_b|
00006e40  75 66 25 20 b8 20 49 25  0d 28 78 07 3d 49 25 0d  |uf% . I%.(x.=I%.|
00006e50  28 82 05 3a 0d 28 8c 12  dd 20 f2 63 68 61 6e 67  |(..:.(... .chang|
00006e60  65 5f 69 63 6f 6e 0d 28  96 0e f2 73 65 74 5f 70  |e_icon.(...set_p|
00006e70  74 79 70 65 0d 28 a0 21  24 74 65 78 74 5f 62 75  |type.(.!$text_bu|
00006e80  66 66 65 72 25 20 3d 20  70 72 69 6e 74 65 72 5f  |ffer% = printer_|
00006e90  74 79 70 65 24 0d 28 aa  05 e1 0d 28 b4 05 3a 0d  |type$.(....(..:.|
00006ea0  28 be 0f dd f2 73 65 74  5f 70 74 79 70 65 0d 28  |(....set_ptype.(|
00006eb0  c8 11 e7 20 70 72 69 6e  74 5f 6f 6e 25 20 8c 0d  |... print_on% ..|
00006ec0  28 d2 1f 20 70 72 69 6e  74 65 72 5f 74 79 70 65  |(.. printer_type|
00006ed0  24 20 3d 20 22 50 72 69  6e 74 69 6e 67 22 0d 28  |$ = "Printing".(|
00006ee0  dc 05 cc 0d 28 e6 1f c8  99 22 4f 53 5f 42 79 74  |....(...."OS_Byt|
00006ef0  65 22 2c 35 2c 6c 6f 63  61 74 69 6f 6e 5f 6e 65  |e",5,location_ne|
00006f00  77 25 0d 28 f0 16 c8 8e  20 6c 6f 63 61 74 69 6f  |w%.(.... locatio|
00006f10  6e 5f 6e 65 77 25 20 ca  0d 28 fa 24 20 c9 20 31  |n_new% ..(.$ . 1|
00006f20  3a 20 70 72 69 6e 74 65  72 5f 74 79 70 65 24 20  |: printer_type$ |
00006f30  3d 20 22 50 61 72 61 6c  6c 65 6c 22 0d 29 04 22  |= "Parallel".)."|
00006f40  20 c9 20 32 3a 20 70 72  69 6e 74 65 72 5f 74 79  | . 2: printer_ty|
00006f50  70 65 24 20 3d 20 22 53  65 72 69 61 6c 22 0d 29  |pe$ = "Serial".)|
00006f60  0e 25 20 c9 20 34 3a 20  70 72 69 6e 74 65 72 5f  |.% . 4: printer_|
00006f70  74 79 70 65 24 20 3d 20  73 65 72 76 65 72 5f 73  |type$ = server_s|
00006f80  65 74 24 0d 29 18 09 20  c9 20 35 3a 0d 29 22 2d  |et$.).. . 5:.)"-|
00006f90  20 20 e7 20 a4 6c 6f 77  65 72 63 61 73 65 28 c0  |  . .lowercase(.|
00006fa0  24 66 69 6c 65 5f 6e 61  6d 65 25 2c 35 29 29 3d  |$file_name%,5))=|
00006fb0  22 6e 75 6c 6c 3a 22 20  8c 0d 29 2c 21 20 20 20  |"null:" ..),!   |
00006fc0  70 72 69 6e 74 65 72 5f  74 79 70 65 24 20 3d 20  |printer_type$ = |
00006fd0  22 54 6f 20 6e 75 6c 6c  3a 22 0d 29 36 07 20 20  |"To null:".)6.  |
00006fe0  cc 0d 29 40 20 20 20 20  70 72 69 6e 74 65 72 5f  |..)@    printer_|
00006ff0  74 79 70 65 24 20 3d 20  22 54 6f 20 66 69 6c 65  |type$ = "To file|
00007000  22 0d 29 4a 07 20 20 cd  0d 29 54 30 20 20 ff 28  |".)J.  ..)T0  .(|
00007010  22 73 65 74 20 50 72 69  6e 74 65 72 54 79 70 65  |"set PrinterType|
00007020  24 35 20 22 22 22 2b 24  66 69 6c 65 5f 6e 61 6d  |$5 """+$file_nam|
00007030  65 25 2b 22 22 22 22 29  0d 29 5e 05 cb 0d 29 68  |e%+"""").)^...)h|
00007040  05 cd 0d 29 72 05 e1 0d  29 7c 05 3a 0d 29 86 11  |...)r...)|.:.)..|
00007050  dd 20 f2 67 65 74 70 6f  69 6e 74 65 72 0d 29 90  |. .getpointer.).|
00007060  20 c8 99 20 22 57 69 6d  70 5f 47 65 74 50 6f 69  | .. "Wimp_GetPoi|
00007070  6e 74 65 72 49 6e 66 6f  22 2c 2c 71 25 0d 29 9a  |nterInfo",,q%.).|
00007080  2a 6d 6f 75 73 65 78 25  3d 21 71 25 3a 6d 6f 75  |*mousex%=!q%:mou|
00007090  73 65 79 25 3d 71 25 21  34 3a 62 75 74 74 6f 6e  |sey%=q%!4:button|
000070a0  73 25 3d 71 25 21 38 0d  29 a4 1d 68 61 6e 64 6c  |s%=q%!8.)..handl|
000070b0  65 25 3d 71 25 21 31 32  3a 69 63 6f 6e 25 3d 71  |e%=q%!12:icon%=q|
000070c0  25 21 31 36 0d 29 ae 05  e1 0d 29 b8 05 3a 0d 29  |%!16.)....)..:.)|
000070d0  c2 14 dd 20 f2 6d 6f 61  6e 28 72 65 70 6f 72 74  |... .moan(report|
000070e0  24 29 0d 29 cc 14 85 20  26 32 30 30 30 30 2c 72  |$).)... &20000,r|
000070f0  65 70 6f 72 74 24 0d 29  d6 05 3a 0d 29 e0 1b dd  |eport$.)..:.)...|
00007100  20 f2 65 72 72 6f 72 28  65 72 72 25 2c 20 72 65  | .error(err%, re|
00007110  70 6f 72 74 24 29 0d 29  ea 0b ea 20 73 74 6f 70  |port$).)... stop|
00007120  25 0d 29 f4 0b f2 45 73  63 4f 66 66 0d 29 fe 27  |%.)...EscOff.).'|
00007130  73 74 6f 70 25 3d 28 72  65 70 6f 72 74 24 3c 3e  |stop%=(report$<>|
00007140  22 41 6c 72 65 61 64 79  20 70 72 69 6e 74 69 6e  |"Already printin|
00007150  67 22 29 0d 2a 08 56 e7  20 28 65 72 72 25 3c 26  |g").*.V. (err%<&|
00007160  31 30 31 30 30 20 84 20  65 72 72 25 3e 26 32 30  |10100 . err%>&20|
00007170  30 30 30 29 20 80 20 65  72 72 25 3c 3e 31 37 20  |000) . err%<>17 |
00007180  8c 20 72 65 70 6f 72 74  24 3d 72 65 70 6f 72 74  |. report$=report|
00007190  24 2b 22 20 69 6e 74 65  72 6e 61 6c 20 65 72 72  |$+" internal err|
000071a0  6f 72 20 22 2b c3 28 9e  29 0d 2a 12 16 21 65 72  |or "+.(.).*..!er|
000071b0  72 6f 72 5f 62 6c 6b 25  20 3d 20 65 72 72 25 0d  |ror_blk% = err%.|
000071c0  2a 1c 1b 24 28 65 72 72  6f 72 5f 62 6c 6b 25 2b  |*..$(error_blk%+|
000071d0  34 29 3d 72 65 70 6f 72  74 24 0d 2a 26 21 f2 7a  |4)=report$.*&!.z|
000071e0  65 72 6f 5f 74 65 72 6d  69 6e 61 74 65 28 65 72  |ero_terminate(er|
000071f0  72 6f 72 5f 62 6c 6b 25  2b 34 29 0d 2a 30 22 e7  |ror_blk%+4).*0".|
00007200  20 73 74 6f 70 25 20 e7  20 70 72 69 6e 74 5f 6f  | stop% . print_o|
00007210  6e 25 20 8c 20 2a 46 58  20 32 31 2c 33 0d 2a 3a  |n% . *FX 21,3.*:|
00007220  32 c8 99 20 22 57 69 6d  70 5f 52 65 70 6f 72 74  |2.. "Wimp_Report|
00007230  45 72 72 6f 72 22 2c 20  65 72 72 6f 72 5f 62 6c  |Error", error_bl|
00007240  6b 25 2c 20 31 2c 20 50  72 69 6e 74 65 72 24 0d  |k%, 1, Printer$.|
00007250  2a 44 0f f2 65 6e 64 63  6f 6e 66 69 72 6d 0d 2a  |*D..endconfirm.*|
00007260  4e 0d e7 20 73 74 6f 70  25 20 8c 0d 2a 58 18 20  |N.. stop% ..*X. |
00007270  f2 50 72 69 6e 74 65 72  5f 43 6c 6f 73 65 46 69  |.Printer_CloseFi|
00007280  6c 65 73 0d 2a 62 1f 20  e7 20 70 72 69 6e 74 5f  |les.*b. . print_|
00007290  6f 6e 25 20 f2 73 74 6f  70 5f 70 72 69 6e 74 69  |on% .stop_printi|
000072a0  6e 67 0d 2a 6c 32 20 e7  20 69 6e 5f 66 69 6c 65  |ng.*l2 . in_file|
000072b0  25 20 c8 99 22 58 4f 53  5f 46 69 6e 64 22 2c 30  |% .."XOS_Find",0|
000072c0  2c 69 6e 5f 66 69 6c 65  25 3a 69 6e 5f 66 69 6c  |,in_file%:in_fil|
000072d0  65 25 3d 30 0d 2a 76 44  20 e7 20 6f 75 74 5f 66  |e%=0.*vD . out_f|
000072e0  69 6c 65 25 20 f2 45 73  63 4f 6e 3a c8 99 22 58  |ile% .EscOn:.."X|
000072f0  4f 53 5f 46 69 6e 64 22  2c 30 2c 6f 75 74 5f 66  |OS_Find",0,out_f|
00007300  69 6c 65 25 3a 6f 75 74  5f 66 69 6c 65 25 3d 30  |ile%:out_file%=0|
00007310  3a f2 45 73 63 4f 66 66  0d 2a 80 05 cd 0d 2a 8a  |:.EscOff.*....*.|
00007320  05 e1 0d 2a 94 05 3a 0d  2a 9e 18 dd f2 7a 65 72  |...*..:.*....zer|
00007330  6f 5f 74 65 72 6d 69 6e  61 74 65 28 53 25 29 0d  |o_terminate(S%).|
00007340  2a a8 0f 53 25 3f a9 24  53 25 20 3d 20 30 0d 2a  |*..S%?.$S% = 0.*|
00007350  b2 05 e1 0d 2a bc 05 3a  0d 2a c6 13 dd a4 6c 6f  |....*..:.*....lo|
00007360  77 65 72 63 61 73 65 28  53 24 29 0d 2a d0 0c ea  |wercase(S$).*...|
00007370  20 52 24 2c 20 43 25 0d  2a da 09 52 24 3d 22 22  | R$, C%.*..R$=""|
00007380  0d 2a e4 0c c8 95 20 a9  53 24 3e 30 0d 2a ee 11  |.*.... .S$>0.*..|
00007390  20 43 25 20 3d 20 97 c0  53 24 2c 31 29 0d 2a f8  | C% = ..S$,1).*.|
000073a0  14 20 53 24 20 3d 20 c2  53 24 2c a9 53 24 2d 31  |. S$ = .S$,.S$-1|
000073b0  29 0d 2b 02 32 20 e7 20  43 25 3e 3d 97 22 41 22  |).+.2 . C%>=."A"|
000073c0  20 80 20 43 25 3c 3d 97  22 5a 22 20 8c 20 43 25  | . C%<=."Z" . C%|
000073d0  20 3d 20 43 25 20 2d 20  97 22 41 22 20 2b 20 97  | = C% - ."A" + .|
000073e0  22 61 22 0d 2b 0c 0e 20  52 24 20 2b 3d 20 bd 43  |"a".+.. R$ += .C|
000073f0  25 0d 2b 16 05 ce 0d 2b  20 07 3d 52 24 0d 2b 2a  |%.+....+ .=R$.+*|
00007400  05 3a 0d 2b 34 0c dd 20  f2 73 74 61 6d 70 0d 2b  |.:.+4.. .stamp.+|
00007410  3e 0b ea 20 6c 6f 61 64  25 0d 2b 48 07 ea 20 85  |>.. load%.+H.. .|
00007420  0d 2b 52 0b ee 20 85 20  ea 20 e1 0d 2b 5c 27 c8  |.+R.. . . ..+\'.|
00007430  99 20 22 4f 53 5f 46 69  6c 65 22 2c 35 2c 66 69  |. "OS_File",5,fi|
00007440  6c 65 5f 6e 61 6d 65 25  20 b8 20 2c 2c 6c 6f 61  |le_name% . ,,loa|
00007450  64 25 0d 2b 66 53 e7 20  28 6c 6f 61 64 25 3e 3e  |d%.+fS. (load%>>|
00007460  3e 38 29 20 3c 3e 20 26  46 46 46 30 30 30 20 2b  |>8) <> &FFF000 +|
00007470  20 4f 75 74 70 75 74 54  79 70 65 25 20 8c 20 c8  | OutputType% . .|
00007480  99 20 22 4f 53 5f 46 69  6c 65 22 2c 31 31 2c 66  |. "OS_File",11,f|
00007490  69 6c 65 5f 6e 61 6d 65  25 2c 4f 75 74 70 75 74  |ile_name%,Output|
000074a0  54 79 70 65 25 0d 2b 70  05 e1 0d 2b 7a 05 3a 0d  |Type%.+p...+z.:.|
000074b0  2b 84 0c dd 20 f2 45 73  63 4f 6e 0d 2b 8e 0b 2a  |+... .EscOn.+..*|
000074c0  46 58 20 32 32 39 0d 2b  98 05 e1 0d 2b a2 05 3a  |FX 229.+....+..:|
000074d0  0d 2b ac 0d dd 20 f2 45  73 63 4f 66 66 0d 2b b6  |.+... .EscOff.+.|
000074e0  0d 2a 46 58 20 32 32 39  2c 31 0d 2b c0 05 e1 0d  |.*FX 229,1.+....|
000074f0  2b ca 0e 3e 2a 46 58 20  32 32 39 2c 31 0d ff     |+..>*FX 229,1..|
000074ff