Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_RiscOs_Apps_1.adf » !PrinterPS/!RunImage

!PrinterPS/!RunImage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_RiscOs_Apps_1.adf
Filename: !PrinterPS/!RunImage
Read OK:
File size: 74FF bytes
Load address: FFFFFB41
Exec address: C759AB20
File contents
   10REM > !RunImage Version 1.12
   20REM Purpose: printer independent part of printer application
   30REM Authors: DTee, AThompson, NReeves, DSeal
   40VersionNumber$="1.12"
   50LIBRARY "<PDriver$Dir>.Library"
   60PROCinit
   70ON ERROR PROCerror(ERR,REPORT$)
   80REPEAT
   90 SYS "Wimp_Poll",poll_mask%,event% TO action%
  100 PROCdespatch_poll
  110UNTIL FALSE
  120END
  130:
  140DEFPROCdespatch_poll
  150 IF NOT FNPrinter_process_event(action%, event%) THEN
  160  CASE action% OF
  170   WHEN 0: PROCcopy
  180   WHEN 1: PROCredraw(!event%)
  190           IF !event%=confirm% THEN PROCendconfirm
  200   WHEN 2: IF !event%<>confirm% THEN PROCendconfirm
  210           PROCopen(!event%,event%!4,event%!8,event%!12,event%!16,event%!20,event%!24,event%!28)
  220   WHEN 3: PROCendconfirm
  230           PROCclose(!event%)
  240   WHEN 6: PROCmouse(!event%,event%!4,event%!8,event%!12,event%!16,event%!20)
  250           PROCendconfirm
  260   WHEN 8: PROCkey(!event%,event%!4,event%!24)
  270   WHEN 9: PROCdecodemenu(menuhandle%, event%)
  280           PROCgetpointer:IF buttons%AND1 THEN PROCremenu
  290   WHEN 17,18:PROCreceive(event%)
  300   WHEN 19:PROCbounced(event%)
  310  ENDCASE
  320 ENDIF
  330ENDPROC
  340:
  350DEF FNp_field(size%)
  360 printer_field% += size%
  370 = printer_field% - size%
  380:
  390DEF PROCinit
  400LOCAL ERROR
  410in_file%=0
  420out_file%=0
  430REM define printer class independent fields in printer data area
  440printer_field% = 0
  450  list_pointer_field% = FNp_field(4)
  460         pxres_field% = FNp_field(4)
  470         pyres_field% = FNp_field(4)
  480      features_field% = FNp_field(4)
  490   description_field% = FNp_field(4)
  500pxres_halftone_field% = FNp_field(4)
  510pyres_halftone_field% = FNp_field(4)
  520printer_number_field% = FNp_field(4)
  530REM set up the page description data
  540 page_width_field% = 0
  550page_height_field% = 1
  560page_bottom_field% = 2
  570   page_top_field% = 3
  580  page_left_field% = 4
  590 page_right_field% = 5
  600  page_name_field% = 7:REM only used to index page_ptrs%()
  610maxpage%=2
  620DIM page_names$(maxpage%)
  630page_names$()="unused"
  640DIM page_selection$(maxpage%)
  650page_selection$()=""
  660DIM page_desc%(maxpage%, page_right_field%)
  670page_number% = 0: REM the descriptor we start with
  680page_number_set% = 0: REM the one currently set
  690page_number_config% = 0
  700REM the array of PTR#'s for Save_Config
  710DIM page_ptrs%(maxpage%, page_name_field%)
  720page_ptrs%()=-1
  730mm_to_72000 = 1814.4*72000/(180<<8) : REM conversion factor constant
  740REM define page size window icons
  750    psw_OK_icon% = 0
  760  psw_name_icon% = 1
  770psw_height_icon% = 2
  780 psw_width_icon% = 3
  790   psw_top_icon% = 4
  800psw_bottom_icon% = 5
  810  psw_left_icon% = 6
  820 psw_right_icon% = 7
  830 psw_page1_icon% = 10
  840 psw_page2_icon% = 11
  850 psw_page3_icon% = 12
  860REM define class independent icons in main window
  870main_description% = 1
  880REM PrData files without "version:" are old.
  890PrData_version% = 0
  900REM mark configure options as unset initially
  910page_number_ptr%= -1
  920      file_ptr% = -1
  930   file_config% = 0
  940   printer_ptr% = -1
  950printer_config% = 0
  960   printer_new% = 0
  970  location_ptr% = -1
  980      baud_ptr% = -1
  990      data_ptr% = -1
 1000       XON_ptr% = -1
 1010    server_ptr% = -1
 1020      feed_ptr% = -1
 1030REM message values
 1040Message_PrintFile%     =&80140
 1050Message_WillPrint%     =&80141
 1060Message_PrintSave%     =&80142
 1070Message_PrintInit%     =&80143
 1080Message_PrintBusy%     =&80144
 1090Message_PrintTypeOdd%  =&80145
 1100Message_PrintTypeKnown%=&80146
 1110Message_SetPrinter%    =&80147
 1120Message_MenuWarn%      =&400C0
 1130REM dimension system arrays
 1140DIM q% &800
 1150DIM event% &800
 1160maxbuf%=&800
 1170DIM curbuf% maxbuf%: endbuf% = curbuf%+maxbuf%
 1180DIM menufree% &800: menuend% = menufree%+&800
 1190DIM icon_buf% 40
 1200DIM text_buffer% 12, valid_buffer% 12
 1210DIM block% 20
 1220DIM error_blk% 256
 1230DIM msg% 256
 1240DIM file_name% 201
 1250$file_name%=""
 1260bufsz%=256
 1270DIM buf% bufsz%
 1280REM set up colours
 1290`wbcol=&0:`wfcol=&7:`tfcol=&7
 1300REM initial mask state
 1310poll_mask% = NOT(%111 << 17): REM only messages
 1320confirm_answer% = 0 : REM not inside FNconfirm currently
 1330PROCPrinter_initialise
 1340IF PrData_version% <> PrData_expected% THEN ERROR 100,"Incompatible printer data file found in application: please replace it"
 1350Printer$=PrinterClass$
 1360save_name$=""
 1370print_ref%=0
 1380REM  Initialise WIMP
 1390DIM taskid% 5: $taskid%="TASK"
 1400SYS "Wimp_Initialise",200,!taskid%,Printer$ TO ,task_handle%
 1410ON ERROR LOCAL PROCerror(ERR, REPORT$):PROCterminate
 1420msg%!0=20
 1430msg%!12=0
 1440msg%!16=Message_PrintInit%
 1450SYS "Wimp_SendMessage", 18, msg%, 0
 1460ENDPROC
 1470:
 1480DEF PROCinit2
 1490LOCAL S$
 1500LOCAL ERROR
 1510REM load the template file
 1520SYS "Wimp_OpenTemplate",,"<PDriver$Dir>.Templates"
 1530main% = FNwindow("main")
 1540confirm% = FNwindow("confirm")
 1550info% = FNwindow("info")
 1560pagesize% = FNwindow("pagesize")
 1570PROCPrinter_load_templates
 1580SYS "Wimp_CloseTemplate"
 1590printer_type$ = ""
 1600icprint%=FNiconbar
 1610REM create the menu tree
 1620DIM server_new% 8
 1630$server_new% = ""
 1640IF $file_name%="" THEN
 1650 SYS "XOS_ReadVarVal","PrinterType$5",file_name%,200 TO ,,L%
 1660 IF L% THEN
 1670  file_name%?L% = 13
 1680 ELSE
 1690  $file_name%="<PDriver$Dir>.^.PrintData"
 1700 ENDIF
 1710ENDIF
 1720baudm% = FNcrmenu("#Baud;75;150;300;1200;2400;4800;9600;19200;50;110;134.5;600;1800;3600;7200")
 1730bitsm% = FNcrmenu("#Bits;5;6;7;8")
 1740paritym% = FNcrmenu("#Parity;off;odd;even;1 on TX;0 on TX")
 1750stopm% = FNcrmenu("#Stop bits;1;2 (1.5 if 5 bits parity,1 if 8 bits no parity)")
 1760datam% = FNcrmenu("#Data format;Bits>bitsm%;Parity>paritym%;Stop bits>stopm%")
 1770serialm% = FNcrmenu("#Serial;Baud rate>baudm%;Data format>datam%;XON / XOFF")
 1780netprintm% = FNcrmenu("#Net print;$server_new%(8)")
 1790filemenu% = FNcrmenu("#File name;$file_name%(200)")
 1800printmenu% = FNcrmenu("#"+Printer$+";Info>info%#;Parallel;Serial>serialm%;Network>netprintm%;File>filemenu%#;!Page size>pagesize%;Save choices;Stop printing;Quit")
 1810PROCset_print_state(FALSE)
 1820PROCdefaults
 1830REM set up net printing data if necessary
 1840IF location_new%=4 THEN PROCsetup_net_server ELSE server_set$="<unset>"
 1850page_number%=page_number_config%
 1860page_number_set%=page_number_config%
 1870PROCset_page_size
 1880PROCPrinter_set_initial_state
 1890ON ERROR LOCAL PROCerror(ERR, REPORT$):ENDPROC
 1900PROCchange_icon
 1910ENDPROC
 1920:
 1930DEFPROCsetup_net_server
 1940LOCAL S%,N%
 1950LOCAL ERROR
 1960ON ERROR LOCAL server_set$="<unset>":ENDPROC
 1970SYS"NetPrint_ReadPSNumber" TO S%,N%
 1980IF S%=0 THEN
 1990 SYS"NetPrint_ReadPSName",,q%,20 TO ,S%
 2000 S%?0=13
 2010 server_set$=$q%
 2020ELSE
 2030 server_set$=STR$N%+"."+STR$S%
 2040ENDIF
 2050PROCset_ps
 2060ENDPROC
 2070:
 2080DEF PROCSaveConfig
 2090LOCAL I%,J%
 2100out_file%=OPENUP"<PDriver$Dir>.PrData"
 2110FOR J%=0TOmaxpage%
 2120 FOR I%=0TOpage_name_field%
 2130   IF page_ptrs%(J%,I%)<>-1 THEN
 2140     PTR#out_file% = page_ptrs%(J%,I%)
 2150     IF I%=page_name_field% THEN
 2160      BPUT#out_file%,page_names$(J%)+STRING$(80-LENpage_names$(J%),";");
 2170     ELSE
 2180      BPUT#out_file%,RIGHT$("000000000"+STR$page_desc%(J%,I%),10);
 2190     ENDIF
 2200   ENDIF
 2210 NEXT
 2220NEXT
 2230IF page_number_ptr% <> -1 THEN
 2240 IF page_number_config% <> page_number_set% THEN
 2250  PTR#out_file% = page_number_ptr%
 2260  BPUT#out_file%,RIGHT$("0"+STR$page_number_set%,2);
 2270  page_number_config% = page_number_set%
 2280 ENDIF
 2290ENDIF
 2300IF file_ptr% <> -1 THEN
 2310 IF file_config$ <> $file_name% THEN
 2320  PTR#out_file% = file_ptr%
 2330  BPUT#out_file%,$file_name%+STRING$(80-LEN$file_name%,";");
 2340  file_config$ = $file_name%
 2350 ENDIF
 2360ENDIF
 2370IF printer_ptr% <> -1 THEN
 2380 IF printer_config% <> printer_new% THEN
 2390  PTR#out_file% = printer_ptr%
 2400  BPUT#out_file%,RIGHT$("0"+STR$printer_new%,2);
 2410  printer_config% = printer_new%
 2420 ENDIF
 2430ENDIF
 2440IF location_new%=5 AND FNlowercase(LEFT$($file_name%,5))="null:" THEN
 2450 IF location_config% <> location_new% THEN
 2460  IF location_ptr% <> -1 THEN
 2470   PTR#out_file% = location_ptr%
 2480   BPUT#out_file%,"0";
 2490  ENDIF
 2500  location_config%=location_new%
 2510 ENDIF
 2520 SYS"OS_CLI","Configure Print 0"
 2530ELSE
 2540 IF location_config% <> location_new% THEN
 2550  IF location_ptr% <> -1 THEN
 2560   PTR#out_file% = location_ptr%
 2570   BPUT#out_file%,STR$location_new%;
 2580  ENDIF
 2590  location_config%=location_new%
 2600 ENDIF
 2610 SYS"XOS_CLI","Configure Print "+STR$location_new%
 2620ENDIF
 2630IF baud_config% <> baud_new% THEN
 2640 IF baud_ptr% <> -1 THEN
 2650  PTR#out_file%=baud_ptr%
 2660  BPUT#out_file%,STR$baud_new%;
 2670 ENDIF
 2680 baud_config% = baud_new%
 2690ENDIF
 2700IF location_new%=2 AND baud_new%<=7 THEN SYS"OS_CLI","Configure Baud "+STR$(baud_new%+1)
 2710IF data_config% <> data_new% THEN
 2720 IF data_ptr% <> -1 THEN
 2730  PTR#out_file%=data_ptr%
 2740  A$=STR$~(data_new%):IF LENA$=1 A$="0"+A$
 2750  BPUT#out_file%,"&"+A$;
 2760 ENDIF
 2770 data_config% = data_new%
 2780ENDIF
 2790IF XON_config% <> XON_new% THEN
 2800 IF XON_ptr% <> -1 THEN
 2810  PTR#out_file%=XON_ptr%
 2820  BPUT#out_file%,STR$XON_new%;
 2830 ENDIF
 2840 XON_config% = XON_new%
 2850ENDIF
 2860IF server_config$ <> $server_new% THEN
 2870 IF server_ptr% <> -1 THEN
 2880  PTR#out_file%=server_ptr%
 2890  BPUT#out_file%,$server_new%+STRING$(8-LEN$server_new%,";");
 2900 ENDIF
 2910 server_config$ = $server_new%
 2920ENDIF
 2930IF location_new%=4 THEN
 2940 SYS"XOS_CLI","Configure PS "+$server_new%
 2950 PROCset_ps
 2960ENDIF
 2970PROCPrinter_AmendConfig
 2980CLOSE#out_file%:out_file%=0
 2990ENDPROC
 3000:
 3010DEF PROCset_ps
 3020LOCAL ERROR
 3030ON ERROR LOCAL ENDPROC
 3040OSCLI("PS "+$server_new%)
 3050server_set$=$server_new%
 3060ENDPROC
 3070:
 3080DEFPROCterminate
 3090*unset $Printing
 3100ON ERROR SYS"Wimp_CloseDown":END
 3110PROCPrinter_CloseFiles
 3120PROCPrinter_terminate
 3130IF in_file%<>0 SYS"XOS_Find",0,in_file%:in_file%=0
 3140IF out_file%<>0 PROCEscOn:SYS"XOS_Find",0,out_file%:out_file%=0:PROCEscOff
 3150SYS"Wimp_CloseDown"
 3160END
 3170:
 3180DEF PROCdefaults
 3190LOCAL ramval%, temp%
 3200data_new%=data_config%
 3210PROCset_tick(bitsm%,3-(data_new% AND 3),1)
 3220IF data_new% AND (1<<3) THEN
 3230 PROCset_tick(paritym%,((data_new% >> 4) AND 3)+1,1)
 3240ELSE
 3250 PROCset_tick(paritym%,0,1)
 3260ENDIF
 3270PROCset_tick(stopm%,(data_new%>>2) AND 1,1)
 3280PROCset_tick(serialm%, 2, XON_new%)
 3290SYS "OS_Byte", 161, 15 TO ,,temp%
 3300IF baud_ptr% = -1 THEN baud_config% = (temp% AND %00011100) >> 2
 3310baud_new% = baud_config%
 3320IF location_ptr%=-1 THEN location_config% = (temp% AND %11100000) >> 5
 3330IF location_config% = 2 THEN
 3340 SYS"OS_Byte",8,baud_new%+1
 3350 SYS"OS_Byte",7,baud_new%+1
 3360 SYS"OS_SerialOp",1,data_new%
 3370 SYS"OS_SerialOp",0,XON_new%,NOT1
 3380 PROCPrinter_Ignore
 3390 PROCPrinter_XonXoff(XON_new%)
 3400ENDIF
 3410IF location_config% = 0 THEN $file_name% = "null:":location_config%=5
 3420PROCset_tick(baudm%, baud_new%, 1)
 3430CASE location_config% OF
 3440   WHEN 1: PROCset_tick(printmenu%, 1, 1)
 3450   WHEN 2: PROCset_tick(printmenu%, 2, 1)
 3460   WHEN 4: PROCset_tick(printmenu%, 3, 1)
 3470   WHEN 5: PROCset_tick(printmenu%, 4, 1)
 3480ENDCASE
 3490location_new% = location_config%
 3500PROCPrinter_Location(location_new%)
 3510IF location_new%=5 PROCstamp
 3520IF server_ptr% = -1 THEN
 3530 SYS "OS_Byte", 161, 3 TO ,,temp%
 3540 IF temp% = 0 THEN
 3550  SYS "OS_Byte", 161, 4 TO ,,temp%
 3560  server_config$ = CHR$(temp%)
 3570  ramval% = &99
 3580  REPEAT
 3590   SYS "OS_Byte", 161, ramval% TO ,,temp%
 3600   IF temp% >32 server_config$ = server_config$ + CHR$(temp%)
 3610   ramval% += 1
 3620  UNTIL temp% <= 32 OR ramval% = &9E
 3630 ELSE
 3640  server_config$ = "."+STR$(temp%)
 3650  SYS "OS_Byte", 161, 4 TO ,,temp%
 3660  server_config$ = STR$(temp%) + server_config$
 3670 ENDIF
 3680ENDIF
 3690$server_new% = server_config$
 3700ENDPROC
 3710:
 3720DEF PROCredraw(handle%)
 3730ENDPROC
 3740:
 3750DEF PROCreceive(message%)
 3760LOCAL my_ref%, type$, option$, I%, pflag%, sender%
 3770my_ref% = message%!8
 3780CASE message%!16 OF
 3790 WHEN 0,Message_PrintBusy%
 3800  PROCendconfirm
 3810  PROCterminate
 3820 WHEN 8
 3830  IF print_on% THEN
 3840   sender% = message%!4
 3850   FOR I%=0TO252STEP4:msg%!I%=message%!I%:NEXT
 3860   msg%!12 = my_ref%
 3870   SYS "Wimp_SendMessage", 19, msg%, sender%
 3880   IF FNconfirm("A file is being printed; are you sure you want to Quit?") THEN
 3890    *FX 21,3
 3900    PROCstop_printing
 3910    SYS "Wimp_GetCaretPosition",,msg%
 3920    msg%!24 = &1FC
 3930    SYS "Wimp_SendMessage",8,msg%,sender%
 3940   ENDIF
 3950  ENDIF
 3960 WHEN 1,Message_PrintSave%
 3970  REM save onto our icon; reply with Print message
 3980  FOR I%=0TO252STEP4:msg%!I%=message%!I%:NEXT
 3990  PROCendconfirm
 4000  IF print_ref% THEN PROCmoan("Can only print one file at a time")
 4010  save_name$=FNrtoz(message%+44)
 4020  IF print_on% THEN
 4030   IF message%!16=1 THEN
 4040    PROCmoan("Already printing")
 4050   ELSE
 4060    msg%!0 = 20
 4070    msg%!12 = my_ref%
 4080    msg%!16 = Message_PrintBusy%
 4090    SYS "Wimp_SendMessage", 17, msg%, msg%!4
 4100   ENDIF
 4110  ELSE
 4120   msg%!12 = my_ref%
 4130   msg%!16 = Message_PrintFile%
 4140   msg%!0 = 60
 4150   $(msg%+44) = "<Printer$Scrap>"
 4160   msg%?59 = 0
 4170   SYS "Wimp_SendMessage", 18, msg%, msg%!4
 4180   msg%!4 = message%!4
 4190   print_ref%=msg%!8
 4200  ENDIF
 4210 WHEN 3
 4220  sender%=message%!4
 4230  PROCendconfirm
 4240  IF print_ref% IF print_ref%<>message%!12 THEN PROCmoan("Can only print one file at a time")
 4250  print_ref%=0
 4260  IF print_on%  THEN
 4270   PROCmoan("Already printing")
 4280  ELSE
 4290   FOR I%=0TO252STEP4:msg%!I%=message%!I%:NEXT
 4300   filenam$=FNrtoz(message%+44)
 4310   message%!12 = my_ref%
 4320   SYS "Wimp_SendMessage",19,message%,message%!4
 4330   REM just ack the message in case FNconfirm called
 4340   Ftype%=message%!40
 4350   type_state%=0
 4360   msg%!12=0
 4370   msg%!16=Message_PrintTypeOdd%
 4380   SYS"Wimp_SendMessage", 18, msg%, 0
 4390   print_ref%=msg%!8
 4400   REPEAT
 4410    SYS "Wimp_Poll",poll_mask%,event% TO action%
 4420    PROCdespatch_poll
 4430   UNTIL type_state%
 4440   pflag%=FALSE
 4450   movetotemp%=FALSE
 4460   IF type_state%=2 THEN
 4470    movetotemp%=TRUE
 4480   ELSE
 4490    IF FNcheck_type THEN
 4500     IF Alias$ <> "" THEN
 4510      SYS "Wimp_StartTask",Alias$+" "+filenam$
 4520      movetotemp%=TRUE
 4530     ELSE
 4540      pflag%=TRUE
 4550     ENDIF
 4560    ENDIF
 4570   ENDIF
 4580   IF movetotemp% THEN
 4590    in_file%=OPENIN"<Printer$Temp>"
 4600    IF in_file%<>0 THEN
 4610     IF filenam$ = "<Printer$Scrap>" THEN OSCLI("remove "+filenam$)
 4620     filenam$ = "<Printer$Temp>"
 4630     CLOSE#in_file%:in_file%=0
 4640     pflag%=TRUE
 4650    ENDIF
 4660   ENDIF
 4670   IF pflag% THEN
 4680    IF location_new% = 4 THEN
 4690     type$ = "netprint#"+printer_type$+":$"
 4700    ELSE
 4710     IF location_new% = 5 THEN OSCLI("set PrinterType$5 "+$file_name%)
 4720     type$="printer:$"
 4730     SYS"OS_Byte",5,location_new%
 4740    ENDIF
 4750    REM filenam$ is also used in PROCcopy
 4760    in_file%  = OPENIN(filenam$)
 4770    IF in_file% = 0 THEN
 4780     PROCmoan("Can't open '"+filenam$+"' for printing")
 4790    ENDIF
 4800    out_file% = OPENOUT(type$+".output")
 4810    IF out_file% = 0 THEN
 4820     CLOSE#in_file%:in_file%=0
 4830     PROCmoan("Can't open '"+type$+".output' for printing")
 4840    ENDIF
 4850    PROCset_print_state(TRUE)
 4860    PROCchange_icon:PROCupdate_icon
 4870    pbuf%=ADVAL(-4)
 4880    sent%=FALSE
 4890    PROCPrinter_Header
 4900   ENDIF
 4910  ENDIF
 4920  REM send DataLoadAck back to original sender
 4930  msg%!0  = 20
 4940  msg%!12 = my_ref%
 4950  msg%!16 = 4
 4960  msg%!36 = -1
 4970  SYS"Wimp_SendMessage", 17, msg%, sender%
 4980 WHEN &502: REM help request
 4990  IF message%!32=-2 AND message%!36=icprint% PROChelpreply("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)
 5000 WHEN Message_WillPrint%
 5010  print_ref%=0
 5020 WHEN Message_PrintInit%
 5030  IF poll_mask%<>NOT(%111 << 17) THEN
 5040   IF print_on% THEN
 5050    msg%!0=20
 5060    msg%!12=my_ref%
 5070    msg%!16=Message_PrintBusy%
 5080    SYS "Wimp_SendMessage", 17, msg%, message%!4
 5090   ELSE
 5100    PROCterminate
 5110   ENDIF
 5120  ENDIF
 5130 WHEN Message_PrintTypeKnown%
 5140  Ftype%=message%!40
 5150  type_state%=2
 5160  print_ref%=0
 5170 WHEN Message_MenuWarn%
 5180  IF message%!20 = pagesize% THEN
 5190   page_number%=page_number_set%
 5200   PROCset_pagesize_window
 5210   SYS "Wimp_CreateSubMenu",,message%!20,message%!24,message%!28
 5220  ENDIF
 5230ENDCASE
 5240ENDPROC
 5250:
 5260DEFPROChelpreply(help$, ref%, to%)
 5270msg%!0     = 256
 5280msg%!12    = ref%
 5290msg%!16    = &503
 5300$(msg%+20) = help$
 5310PROCzero_terminate(msg%+20)
 5320SYS "Wimp_SendMessage", 17, msg%, to%
 5330ENDPROC
 5340:
 5350DEFPROCbounced(message%)
 5360CASE message%!16 OF
 5370 WHEN Message_PrintFile%
 5380  print_ref%=0
 5390  REM must be an app that can't do its own printing; reply to message
 5400  REM still in msg%
 5410  PROCendconfirm
 5420  IF NOT print_on%  THEN
 5430   REM can't ask for confirmation of stupid types as an affirmative
 5440   REM click will probably shut down the transfer at the source
 5450   msg%!16    = 2
 5460   msg%!36    = -1 : REM file is not safe
 5470   SYS "Wimp_SendMessage", 17, msg%, msg%!4
 5480  ELSE
 5490   PROCmoan("Already printing")
 5500  ENDIF
 5510 WHEN Message_PrintInit%
 5520  PROCinit2
 5530  poll_mask%=1
 5540 WHEN Message_PrintTypeOdd%
 5550  type_state%=1
 5560  print_ref%=0
 5570ENDCASE
 5580ENDPROC
 5590:
 5600DEFFNcheck_type
 5610LOCAL L%,psr%, type$
 5620Alias$=""
 5630REM if an Alias$@PrintType_<Ftype%> exists then print via that
 5640type$ = RIGHT$("00"+STR$~Ftype%, 3)
 5650SYS"XOS_ReadVarVal","Alias$@PrintType_"+type$,,-1 TO ,,L%
 5660IF L% < 0 THEN Alias$="@PrintType_"+type$: = TRUE
 5670IF Ftype% = &FFF OR Ftype% = &FFE OR Ftype% = &FEB OR Ftype%=OutputType% THEN =TRUE
 5680REM text, exec and obey files are all straight text
 5690IF Ftype% = &1000 THEN PROCmoan("Cannot print directories")
 5700IF Ftype% = &2000 THEN PROCmoan("Cannot print applications")
 5710IF Ftype% = &3000 THEN
 5720 $error_blk% = "untyped"
 5730ELSE
 5740 SYS"XOS_ReadVarVal","File$Type_"+type$,error_blk%,100 TO ,,L%;psr%
 5750 IF psr% AND 1 THEN $error_blk%="type &"+STR$~Ftype% ELSE error_blk%?L% = 13
 5760ENDIF
 5770=FNconfirm("I don't know how to print "+$error_blk%+" files; do you want me to print your file as plain text?")
 5780:
 5790DEFFNconfirm(message$)
 5800LOCAL S%, action%
 5810S%=FNiconaddr(confirm%,0)
 5820$S%=message$
 5830PROCgetpointer
 5840SYS "Wimp_CreateMenu",,confirm%,mousex%-200,mousey%+200
 5850confirm_answer% = 2
 5860REPEAT
 5870 SYS "Wimp_Poll",poll_mask%,event% TO action%
 5880 PROCdespatch_poll
 5890UNTIL confirm_answer% <> 2
 5900PROCclose(confirm%)
 5910=confirm_answer%
 5920:
 5930DEFPROCendconfirm
 5940IF confirm_answer% = 2 THEN confirm_answer%=FALSE
 5950REM FNconfirm closes the window if necessary
 5960ENDPROC
 5970:
 5980DEF FNrtoz(s%)
 5990LOCAL n$
 6000WHILE?s%:n$+=CHR$?s%:s%+=1:ENDWHILE
 6010=n$
 6020:
 6030DEF PROCcopy
 6040LOCAL L%
 6050LOCAL ERROR
 6060ON ERROR LOCAL:RESTORE ERROR:PROCerror(ERR, REPORT$):PROCstop_printing:ENDPROC
 6070IF sent% THEN
 6080 IF ADVAL(-4)>=pbuf% THEN
 6090  PROCPrinter_Footer
 6100  CLOSE#in_file%:in_file%=0
 6110  PROCEscOn:CLOSE#out_file%:out_file%=0:PROCEscOff
 6120  PROCstop_printing
 6130 ENDIF
 6140ELSE
 6150 IF location_new%=1 OR location_new%=2 THEN
 6160  L%=ADVAL(-4)
 6170  IF L%>bufsz% L%=bufsz%
 6180 ELSE
 6190  L%=128
 6200 ENDIF
 6210 sent%=FNPrinter_Send(L%)
 6220ENDIF
 6230ENDPROC
 6240:
 6250DEFPROCstop_printing
 6260PROCset_print_state(FALSE)
 6270PROCchange_icon:PROCupdate_icon
 6280PROCPrinter_CloseFiles
 6290IF in_file% SYS"XOS_Find",0,in_file%:in_file%=0
 6300IF out_file% PROCEscOn:SYS"XOS_Find",0,out_file%:out_file%=0:PROCEscOff
 6310IF filenam$ = "<Printer$Scrap>" THEN OSCLI("remove "+filenam$)
 6320IF filenam$ = "<Printer$Temp>" THEN OSCLI("remove "+filenam$)
 6330REM delete the scrap file: now finished with
 6340PROCupdate_icon
 6350ENDPROC
 6360:
 6370DEF FNread_psw_icon(icon%)
 6380=$FNiconaddr(pagesize%,icon%)
 6390:
 6400DEF PROCread_numericpsw_icon(icon%,field%)
 6410page_desc%(page_number%,field%)=VAL(FNread_psw_icon(icon%))*mm_to_72000
 6420ENDPROC
 6430:
 6440DEF PROCmouse(mousex%,mousey%,buttons%,handle%,icon%,oldbuttons%)
 6450IF handle%=pagesize% AND (buttons% AND NOT 2)<>0 THEN
 6460 CASE icon% OF
 6470  WHEN psw_OK_icon%
 6480    page_number_set%=page_number%
 6490    page_names$(page_number%)=FNread_psw_icon(psw_name_icon%)
 6500    PROCread_numericpsw_icon(psw_width_icon%, page_width_field%)
 6510    PROCread_numericpsw_icon(psw_height_icon%,page_height_field%)
 6520    PROCread_numericpsw_icon(psw_top_icon%,   page_top_field%)
 6530    PROCread_numericpsw_icon(psw_bottom_icon%,page_bottom_field%)
 6540    PROCread_numericpsw_icon(psw_right_icon%, page_right_field%)
 6550    PROCread_numericpsw_icon(psw_left_icon%,  page_left_field%)
 6560    icon%  = page_desc%(page_number%,page_height_field%)
 6570    icon% -= page_desc%(page_number%,page_top_field%)
 6580    page_desc%(page_number%,page_top_field%) = icon%
 6590    icon%  = page_desc%(page_number%,page_width_field%)
 6600    icon% -= page_desc%(page_number%,page_right_field%)
 6610    page_desc%(page_number%,page_right_field%) = icon%
 6620    PROCset_page_size
 6630    IF (buttons% AND 1)=0 THEN SYS"Wimp_CreateMenu",,-1
 6640  WHEN psw_page1_icon%,psw_page2_icon%,psw_page3_icon%
 6650    page_number% = icon%-psw_page1_icon%
 6660    PROCset_pagesize_window
 6670 ENDCASE
 6680ELSE
 6690 CASE buttons% OF
 6700  WHEN 4: REM left hand click
 6710   CASE handle% OF
 6720     WHEN -2:
 6730     PROCfront(main%)
 6740    WHEN confirm%:
 6750     IF icon%=1 THEN confirm_answer%=TRUE
 6760     IF icon%=2 THEN confirm_answer%=FALSE
 6770   ENDCASE
 6780  WHEN 2: REM menu button
 6790   CASE handle% OF
 6800    WHEN -2: PROCmenu(printmenu%)
 6810  ENDCASE
 6820 ENDCASE
 6830ENDIF
 6840ENDPROC
 6850:
 6860DEF PROCkey(window%,icon%,ch%)
 6870IF window%=pagesize% AND ch%=13 THEN
 6880 REM step caret to next writeable icon
 6890 icon%+=1
 6900 IF icon%>psw_right_icon% THEN
 6910  PROCmouse(0,0,4,pagesize%,psw_OK_icon%,0): REM fake OK click
 6920 ELSE
 6930  SYS"Wimp_SetCaretPosition",pagesize%,icon%,,,-1,0
 6940 ENDIF
 6950ELSE
 6960 SYS"Wimp_ProcessKey",ch%
 6970ENDIF
 6980ENDPROC
 6990:
 7000DEF PROCdecodemenu(menuhandle%,menus%)
 7010CASE menuhandle% OF
 7020 WHEN printmenu%
 7030  IF print_on% AND (!menus%<5) THEN ENDPROC
 7040  CASE !menus% OF
 7050   WHEN 1
 7060    PROCtickit(printmenu%, 1, 4)
 7070    location_new% = 1
 7080    PROCPrinter_Location(location_new%)
 7090    *FX 5,1
 7100   WHEN 2
 7110    PROCPrinter_Ignore
 7120    PROCdecodemenu(serialm%, menus%+4)
 7130    PROCtickit(printmenu%, 2, 4)
 7140    location_new% = 2
 7150    PROCPrinter_Location(location_new%)
 7160    SYS "OS_Byte", 8, baud_new%+1
 7170    SYS "OS_Byte", 7, baud_new%+1
 7180    SYS "OS_SerialOp",1,data_new%
 7190    SYS "OS_SerialOp",0,XON_new%,NOT 1
 7200    PROCPrinter_XonXoff(XON_new%)
 7210    *FX 5,2
 7220   WHEN 3
 7230    PROCdecodemenu(netprintm%, menus%+4)
 7240    PROCtickit(printmenu%, 3, 4)
 7250    location_new% = 4
 7260    PROCPrinter_Location(location_new%)
 7270    PROCset_ps
 7280    *FX 5,4
 7290   WHEN 4
 7300    location_new%=5
 7310    PROCPrinter_Location(location_new%)
 7320    PROCtickit(printmenu%, 4, 4)
 7330    IF LEN$file_name%=0 THEN $file_name%="<PDriver$Dir>.^.PrintData"
 7340    SYS "XOS_CLI","Set PrinterType$5 "+$file_name%
 7350    PROCstamp
 7360    *FX 5,5
 7370   WHEN 6
 7380    PROCSaveConfig
 7390   WHEN 7
 7400    IF print_on% THEN
 7410     *FX 21,3
 7420     PROCstop_printing
 7430    ENDIF
 7440   WHEN 8
 7450    IF print_on% THEN
 7460     *FX 21,3
 7470     PROCstop_printing
 7480    ENDIF
 7490    PROCterminate
 7500  ENDCASE
 7510  PROCchange_icon
 7520 WHEN serialm%
 7530  CASE !menus% OF
 7540   WHEN 0
 7550    PROCdecodemenu(baudm%, menus%+4)
 7560   WHEN 1
 7570    PROCdecodemenu(datam%, menus%+4)
 7580   WHEN 2
 7590    XON_new% = XON_new% EOR 1
 7600    PROCset_tick(serialm%,2,XON_new%)
 7610  ENDCASE
 7620 WHEN baudm%
 7630  IF !menus% <> -1 THEN
 7640   PROCtickit(baudm%, !menus%, 14)
 7650   baud_new%=!menus%
 7660  ENDIF
 7670 WHEN datam%
 7680  CASE !menus% OF
 7690   WHEN 0
 7700    PROCdecodemenu(bitsm%, menus%+4)
 7710   WHEN 1
 7720    PROCdecodemenu(paritym%, menus%+4)
 7730   WHEN 2
 7740    PROCdecodemenu(stopm%, menus%+4)
 7750  ENDCASE
 7760 WHEN bitsm%
 7770  IF !menus% <> -1 THEN
 7780   data_new%=(data_new% AND %111100)+3-!menus%
 7790   PROCtickit(bitsm%, !menus%, 3)
 7800  ENDIF
 7810 WHEN paritym%
 7820  IF !menus% <> -1 THEN
 7830   IF !menus% THEN
 7840    data_new% = (data_new% AND %111)+8+((!menus%-1)<<4)
 7850   ELSE
 7860    data_new% = data_new% AND NOT(1<<3)
 7870   ENDIF
 7880   PROCtickit(paritym%, !menus%, 4)
 7890  ENDIF
 7900 WHEN stopm%
 7910  IF !menus% <> -1 THEN
 7920   data_new%=(data_new% AND %111011) EOR (!menus%<<2)
 7930   PROCtickit(stopm%, !menus%, 1)
 7940  ENDIF
 7950ENDCASE
 7960PROCupdate_icon
 7970ENDPROC
 7980:
 7990DEF PROCupdate_any_icon(window%, icon%)
 8000block%!0  = window%
 8010block%!4  = icon%
 8020block%!8  = 0
 8030block%!12 = 0
 8040SYS "Wimp_SetIconState",,block%
 8050ENDPROC
 8060:
 8070DEF PROCupdate_icon
 8080PROCupdate_any_icon(-2,icprint%)
 8090ENDPROC
 8100:
 8110DEF PROCtickit(menu%, item%, nitems%)
 8120LOCAL I%
 8130FOR I%=0 TO nitems%
 8140  PROCset_tick(menu%, I%, 0)
 8150NEXT
 8160PROCset_tick(menu%, item%, 1)
 8170ENDPROC
 8180:
 8190DEF PROCfront(h%)
 8200!q%=h%
 8210SYS "Wimp_GetWindowState",,q% : q%!28=-1
 8220SYS "Wimp_OpenWindow",,q%
 8230ENDPROC
 8240:
 8250DEF PROCopen(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
 8260!q%=handle%
 8270q%!4=x0%:q%!8=y0%:q%!12=x1%:q%!16=y1%
 8280q%!20=scx%:q%!24=scy%
 8290q%!28=bhandle%
 8300SYS "Wimp_OpenWindow",,q%
 8310ENDPROC
 8320:
 8330DEF PROCset_psw_icon(icon%,value$)
 8340LOCAL A%
 8350A%=FNiconaddr(pagesize%,icon%)
 8360$A%=value$
 8370PROCupdate_any_icon(pagesize%,icon%)
 8380SYS "Wimp_GetCaretPosition",,block%
 8390IF !block%=pagesize% AND block%!4=icon% THEN
 8400 A%=LENvalue$
 8410 IF block%!20<A% THEN A%=block%!20
 8420 SYS"Wimp_SetCaretPosition",pagesize%,icon%,,,-1,A%
 8430ENDIF
 8440ENDPROC
 8450:
 8460DEF PROCset_numeric_psw_icon(icon%,value%)
 8470LOCAL@%
 8480@%=&0102010A
 8490PROCset_psw_icon(icon%,STR$(value%/mm_to_72000))
 8500ENDPROC
 8510:
 8520DEF PROCset_pagesize_window
 8530LOCAL P%,V%
 8540P%=page_number%
 8550PROCset_psw_icon(psw_name_icon%,page_names$(page_number%))
 8560PROCset_numeric_psw_icon(psw_height_icon%,page_desc%(P%,page_height_field%))
 8570PROCset_numeric_psw_icon(psw_width_icon%, page_desc%(P%,page_width_field%))
 8580PROCset_numeric_psw_icon(psw_bottom_icon%,page_desc%(P%,page_bottom_field%))
 8590PROCset_numeric_psw_icon(psw_left_icon%,  page_desc%(P%,page_left_field%))
 8600V%=page_desc%(P%,page_height_field%)-page_desc%(P%,page_top_field%)
 8610PROCset_numeric_psw_icon(psw_top_icon%,   V%)
 8620V%=page_desc%(P%,page_width_field%)-page_desc%(P%,page_right_field%)
 8630PROCset_numeric_psw_icon(psw_right_icon%, V%)
 8640FOR I%=0TO2
 8650PROCset_icon_state(pagesize%,psw_page1_icon%+I%, (1<<21) AND (I%=page_number%),1<<21)
 8660NEXT
 8670ENDPROC
 8680:
 8690DEF PROCclose(handle%)
 8700!q%=handle%:SYS "Wimp_CloseWindow",,q%
 8710ENDPROC
 8720:
 8730DEF FNwindow(a$)
 8740LOCAL c%
 8750SYS "Wimp_LoadTemplate",,q%,curbuf%,endbuf%,-1,a$,0 TO ,,curbuf%,,,,c%
 8760IF c%=0 THEN PROCmoan("Template '"+a$+"' not found")
 8770SYS "Wimp_CreateWindow",,q% TO c%
 8780=c%
 8790:
 8800DEF FNiconaddr(h%,i%)
 8810!q%=h%:q%!4=i%:SYS "Wimp_GetIconState",,q%
 8820IF (q%!24 AND &100)=0 THEN PROCmoan("Icon is not indirected")
 8830=q%!28
 8840:
 8850DEF PROCmenu(m%)
 8860LOCAL Y%
 8870Y% = mousey%
 8880IFY%<540 THEN Y%=540
 8890menuhandle%=m%
 8900SYS "Wimp_CreateMenu",,menuhandle%,mousex%-64,Y%
 8910ENDPROC
 8920:
 8930DEF PROCremenu
 8940LOCAL Y%
 8950Y% = mousey%
 8960IF Y% < 300 THEN Y% = 316
 8970SYS "Wimp_CreateMenu",,menuhandle%,mousex%-64,Y% :REM default coords
 8980ENDPROC
 8990:
 9000DEF FNcrmenu(menu$)
 9010IF menufree%+28 > menuend% THEN PROCmoan("Menu area full")
 9020LOCAL m%,i%
 9030menuptr%=menufree%
 9040i%=0
 9050IF LEFT$(menu$,1)="#" THEN i%=1:menutitle$=FNpar(";") ELSE menutitle$=""
 9060$menuptr%=menutitle$
 9070menuptr%?12=`tfcol:menuptr%?13=2:menuptr%?14=`wfcol:menuptr%?15=`wbcol
 9080menuptr%!16=196-24:menuptr%!20=44:menuptr%!24=0
 9090menuptr%+=28:maxx%=LENmenutitle$-3
 9100REPEAT item$=FNpar(";"):PROCmenuitem(item$):UNTIL item$=""
 9110m%=menufree%:m%!16=(maxx%*8+6)*2
 9120menufree%=menuptr%
 9130=m%
 9140:
 9150DEF PROCmenuitem(text$)
 9160IF text$="" THEN menuptr%!-24=(menuptr%!-24)OR&80:ENDPROC
 9170IF menuptr%+24 > menuend% THEN PROCmoan("Menu area full")
 9180LOCALi%,flg%,V%
 9190flg%=&00
 9200i%=INSTR(text$,">")
 9210IF RIGHT$(text$,1)="#" THEN text$=LEFT$(text$,LENtext$-1):flg%+=&02
 9220IFi%>0THENsubptr%=EVALMID$(text$,i%+1):text$=LEFT$(text$,i%-1)ELSEsubptr%=-1
 9230menuptr%!0=flg%
 9240menuptr%!4=subptr%
 9250menuptr%!8=&07000021
 9260IFLEFT$(text$,1)="$"THEN
 9270 !menuptr%+=&04
 9280 menuptr%!8+=&108
 9290 i%=INSTR(text$,"(")
 9300 IFi%>0THENL%=VALMID$(text$,i%+1):text$=LEFT$(text$,i%-1)ELSEL%=12
 9310 V% = -1
 9320 menuptr%!12=EVALMID$(text$,2)
 9330 menuptr%!16=-1
 9340 menuptr%!20=L%
 9350 text$=STRING$(L%," ")
 9360 IF maxx%<20 THEN maxx%=20
 9370ELSE
 9380 IFLEFT$(text$,1)="!"THEN
 9390  text$=RIGHT$(text$,LENtext$-1)
 9400  !menuptr%+=&08: REM get warning when it opens.
 9410 ENDIF
 9420 IFLENtext$<=12THEN
 9430  $(menuptr%+12)=text$
 9440 ELSE I%=FNworkspace(LENtext$+1):$I%=text$
 9450  menuptr%!12=I%:menuptr%!16=-1:menuptr%!20=LENtext$+1
 9460  menuptr%!8=menuptr%!8 OR &100
 9470 ENDIF
 9480IFLENtext$>maxx% THENmaxx%=LENtext$
 9490ENDIF
 9500menuptr%+=24
 9510ENDPROC
 9520:
 9530DEF FNworkspace(L%)
 9540DIM L% L%
 9550= L%
 9560:
 9570DEF FNpar(sep$)
 9580i1%=i%+1:i%=INSTR(menu$+sep$,sep$,i1%)
 9590=MID$(menu$,i1%,i%-i1%)
 9600:
 9610DEF PROCshade(menuhandle%, item%)
 9620menuhandle%!(28+8+24*item%)=menuhandle%!(28+8+24*item%)EOR&400000:ENDPROC
 9630:
 9640DEF FNshade_status(menuhandle%,item%) = -((menuhandle%!(28+8+24*item%) AND &400000)=&400000)
 9650:
 9660DEF PROCset_shade(menuhandle%, item%, val%)
 9670IF val%<>FNshade_status(menuhandle%,item%) THEN PROCshade(menuhandle%,item%)
 9680ENDPROC
 9690:
 9700DEF PROCtick(menuhandle%,item%)
 9710menuhandle%!(28+24*item%)=menuhandle%!(28+24*item%)EOR&01
 9720ENDPROC
 9730:
 9740DEF FNtick_status(menuhandle%, item%) = menuhandle%!(28+24*item%)AND1
 9750:
 9760DEF PROCset_tick(menuhandle%, item%, val%)
 9770IF val%<>FNtick_status(menuhandle%,item%) THEN PROCtick(menuhandle%,item%)
 9780ENDPROC
 9790:
 9800DEF PROCset_print_state(flag%)
 9810PROCset_shade(printmenu%,1,-flag%)
 9820PROCset_shade(printmenu%,2,-flag%)
 9830PROCset_shade(printmenu%,3,-flag%)
 9840PROCset_shade(printmenu%,4,-flag%)
 9850PROCset_shade(printmenu%,5,-flag%)
 9860PROCset_shade(printmenu%,6,-flag%)
 9870PROCset_shade(printmenu%,7,(1+flag%))
 9880PROCset_shade(printmenu%,8,-flag%)
 9890print_on%=flag%
 9900poll_mask%=(poll_mask% AND NOT1) OR (1+flag%)
 9910IF flag% THEN
 9920 *set $Printing "T"
 9930ELSE
 9940 *unset $Printing
 9950ENDIF
 9960ENDPROC
 9970:
 9980DEF PROCset_page_size
 9990LOCAL A%,B%,C%,D%,E%,F%
10000msg%!0=20
10010msg%!12=0
10020msg%!16=Message_SetPrinter%
10030SYS "Wimp_SendMessage", 17, msg%, 0
10040A%=page_desc%(page_number%,page_width_field%)
10050B%=page_desc%(page_number%,page_height_field%)
10060C%=page_desc%(page_number%,page_left_field%)
10070D%=page_desc%(page_number%,page_bottom_field%)
10080E%=page_desc%(page_number%,page_right_field%)
10090F%=page_desc%(page_number%,page_top_field%)
10100SYS "PDriver_SetPageSize",,A%,B%,C%,D%,E%,F%
10110PROCPrinter_change_page_size
10120ENDPROC
10130:
10140DEF PROCset_icon_state(handle%, icon%, eor%, mask%)
10150!icon_buf%  = handle%
10160icon_buf%!4 = icon%
10170icon_buf%!8 = eor%
10180icon_buf%!12 = mask%
10190SYS "Wimp_SetIconState",,icon_buf%
10200ENDPROC
10210:
10220DEF FNiconbar
10230LOCAL I%
10240icon_buf%!0 =-2
10250icon_buf%!4 =0
10260icon_buf%!8 =-16
10270icon_buf%!12=144
10280icon_buf%!16= 86
10290icon_buf%!20= &1700312B:  REM 0001 0111 0000 0000 0011 0001 0010 1011
10300$text_buffer%   = printer_type$
10310$valid_buffer%  = "S!"+Printer$
10320icon_buf%!24= text_buffer%
10330icon_buf%!28 = valid_buffer%
10340icon_buf%!32 = LEN($text_buffer%)+1
10350SYS "Wimp_CreateIcon",,icon_buf% TO I%
10360=I%
10370:
10380DEF PROCchange_icon
10390PROCset_ptype
10400$text_buffer% = printer_type$
10410ENDPROC
10420:
10430DEFPROCset_ptype
10440IF print_on% THEN
10450 printer_type$ = "Printing"
10460ELSE
10470SYS"OS_Byte",5,location_new%
10480CASE location_new% OF
10490 WHEN 1: printer_type$ = "Parallel"
10500 WHEN 2: printer_type$ = "Serial"
10510 WHEN 4: printer_type$ = server_set$
10520 WHEN 5:
10530  IF FNlowercase(LEFT$($file_name%,5))="null:" THEN
10540   printer_type$ = "To null:"
10550  ELSE
10560   printer_type$ = "To file"
10570  ENDIF
10580  OSCLI("set PrinterType$5 """+$file_name%+"""")
10590ENDCASE
10600ENDIF
10610ENDPROC
10620:
10630DEF PROCgetpointer
10640SYS "Wimp_GetPointerInfo",,q%
10650mousex%=!q%:mousey%=q%!4:buttons%=q%!8
10660handle%=q%!12:icon%=q%!16
10670ENDPROC
10680:
10690DEF PROCmoan(report$)
10700ERROR &20000,report$
10710:
10720DEF PROCerror(err%, report$)
10730LOCAL stop%
10740PROCEscOff
10750stop%=(report$<>"Already printing")
10760IF (err%<&10100 OR err%>&20000) AND err%<>17 THEN report$=report$+" internal error "+STR$(ERL)
10770!error_blk% = err%
10780$(error_blk%+4)=report$
10790PROCzero_terminate(error_blk%+4)
10800IF stop% IF print_on% THEN *FX 21,3
10810SYS "Wimp_ReportError", error_blk%, 1, Printer$
10820PROCendconfirm
10830IF stop% THEN
10840 PROCPrinter_CloseFiles
10850 IF print_on% PROCstop_printing
10860 IF in_file% SYS"XOS_Find",0,in_file%:in_file%=0
10870 IF out_file% PROCEscOn:SYS"XOS_Find",0,out_file%:out_file%=0:PROCEscOff
10880ENDIF
10890ENDPROC
10900:
10910DEFPROCzero_terminate(S%)
10920S%?LEN$S% = 0
10930ENDPROC
10940:
10950DEFFNlowercase(S$)
10960LOCAL R$, C%
10970R$=""
10980WHILE LENS$>0
10990 C% = ASCLEFT$(S$,1)
11000 S$ = RIGHT$(S$,LENS$-1)
11010 IF C%>=ASC"A" AND C%<=ASC"Z" THEN C% = C% - ASC"A" + ASC"a"
11020 R$ += CHR$C%
11030ENDWHILE
11040=R$
11050:
11060DEF PROCstamp
11070LOCAL load%
11080LOCAL ERROR
11090ON ERROR LOCAL ENDPROC
11100SYS "OS_File",5,file_name% TO ,,load%
11110IF (load%>>>8) <> &FFF000 + OutputType% THEN SYS "OS_File",11,file_name%,OutputType%
11120ENDPROC
11130:
11140DEF PROCEscOn
11150*FX 229
11160ENDPROC
11170:
11180DEF PROCEscOff
11190*FX 229,1
11200ENDPROC
11210>*FX 229,1

� > !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
!PrinterPS/!RunImage.m0
!PrinterPS/!RunImage.m1
!PrinterPS/!RunImage.m2
!PrinterPS/!RunImage.m4
!PrinterPS/!RunImage.m5