Home » Personal collection » Acorn hard disk » apps » Printers » RiscOs2/!PrinterDM/!RunImage
RiscOs2/!PrinterDM/!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 hard disk » apps » Printers |
| Filename: | RiscOs2/!PrinterDM/!RunImage |
| Read OK: | ✔ |
| File size: | 5B5C bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There are 3 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Archimedes » Dominic_2.ADF » PrinterDMs/!PrinterDM/!RunImage
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Dominic_2.adf » PrinterDMs/!PrinterDM/!RunImage
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Dominic_2B.adf » PrinterDMs/!PrinterDM/!RunImage
- Personal collection » Acorn hard disk » apps » Printers » RiscOs2/!PrinterDM/!RunImage
File contents
10REM >!RunImage Version 0.82
20REM Purpose: printer independent part of printer application
30REM Authors: DTee, AThompson, NReeves
40LIBRARY "<PDriver$dir>.Library"
50PROCinit
60ON ERROR PROCerror(ERR,REPORT$)
70REPEAT
80 SYS "Wimp_Poll",poll_mask%,event% TO action%
90 PROCdespatch_poll
100UNTIL FALSE
110END
120:
130DEFPROCdespatch_poll
140 IF NOT FNPrinter_process_event(action%, event%) THEN
150 CASE action% OF
160 WHEN 0: PROCcopy
170 WHEN 1: PROCredraw(!event%)
180 IF !event%=confirm% THEN PROCendconfirm
190 WHEN 2: IF !event%<>confirm% THEN PROCendconfirm
200 PROCopen(!event%,event%!4,event%!8,event%!12,event%!16,event%!20,event%!24,event%!28)
210 WHEN 3: PROCendconfirm
220 PROCclose(!event%)
230 WHEN 6: PROCmouse(!event%,event%!4,event%!8,event%!12,event%!16,event%!20)
240 PROCendconfirm
250 WHEN 9: PROCdecodemenu(menuhandle%, event%)
260 PROCgetpointer:IF buttons%AND1 THEN PROCremenu
270 WHEN 17,18:PROCreceive(event%)
280 WHEN 19:PROCbounced(event%)
290 ENDCASE
300 ENDIF
310ENDPROC
320:
330DEF FNp_field(size%)
340 printer_field% += size%
350 = printer_field% - size%
360:
370DEF PROCinit
380LOCAL ERROR
390in_file%=0
400out_file%=0
410REM define printer class independent fields in printer data area
420printer_field% = 0
430 list_pointer_field% = FNp_field(4)
440 pxres_field% = FNp_field(4)
450 pyres_field% = FNp_field(4)
460 features_field% = FNp_field(4)
470 description_field% = FNp_field(4)
480pxres_halftone_field% = FNp_field(4)
490pyres_halftone_field% = FNp_field(4)
500printer_number_field% = FNp_field(4)
510 page_width_field% = FNp_field(4)
520 page_height_field% = FNp_field(4)
530 page_bottom_field% = FNp_field(4)
540 page_top_field% = FNp_field(4)
550 page_left_field% = FNp_field(4)
560 page_right_field% = FNp_field(4)
570REM define class independent icons in main window
580main_description% = 1
590REM mark configure options as unset initially
600 printer_ptr% = -1
610printer_config% = 0
620 printer_new% = 0
630 location_ptr% = -1
640 baud_ptr% = -1
650 data_ptr% = -1
660 XON_ptr% = -1
670 server_ptr% = -1
680 feed_ptr% = -1
690REM message values
700Message_PrintFile% =&80140
710Message_WillPrint% =&80141
720Message_PrintSave% =&80142
730Message_PrintInit% =&80143
740Message_PrintBusy% =&80144
750Message_PrintTypeOdd% =&80145
760Message_PrintTypeKnown%=&80146
770Message_SetPrinter% =&80147
780REM dimension system arrays
790DIM q% &800
800DIM event% &800
810maxbuf%=&800
820DIM curbuf% maxbuf%: endbuf% = curbuf%+maxbuf%
830DIM menufree% &800: menuend% = menufree%+&800
840DIM icon_buf% 40
850DIM text_buffer% 12, valid_buffer% 12
860DIM block% 20
870DIM error_blk% 256
880DIM msg% 256
890bufsz%=256
900DIM buf% bufsz%
910REM set up colours
920`wbcol=&0:`wfcol=&7:`tfcol=&7
930REM initial mask state
940poll_mask% = NOT(%111 << 17): REM only messages
950confirm_answer% = 0 : REM not inside FNconfirm currently
960PROCPrinter_initialise
970Printer$=PrinterClass$
980save_name$=""
990print_ref%=0
1000REM Initialise WIMP
1010DIM taskid% 5: $taskid%="TASK"
1020SYS "Wimp_Initialise",200,!taskid%,Printer$ TO ,task_handle%
1030ON ERROR LOCAL PROCerror(ERR, REPORT$):PROCterminate
1040msg%!0=20
1050msg%!12=0
1060msg%!16=Message_PrintInit%
1070SYS "Wimp_SendMessage", 18, msg%, 0
1080ENDPROC
1090:
1100DEF PROCinit2
1110LOCAL S$
1120LOCAL ERROR
1130REM load the template file
1140SYS "Wimp_OpenTemplate",,"<PDriver$dir>.Templates"
1150main% = FNwindow("main")
1160confirm% = FNwindow("confirm")
1170info% = FNwindow("info")
1180PROCPrinter_load_templates
1190SYS "Wimp_CloseTemplate"
1200printer_type$ = ""
1210icprint%=FNiconbar
1220REM create the menu tree
1230DIM server_new% 8
1240$server_new% = ""
1250DIM file_name% 201
1260SYS "XOS_ReadVarVal","PrinterType$5",file_name%,200 TO ,,L%
1270IF L% THEN
1280 file_name%?L% = 13
1290ELSE
1300 $file_name%="<PDriver$Dir>.^.PrintData"
1310ENDIF
1320baudm% = FNcrmenu("#Baud;75;150;300;1200;2400;4800;9600;19200;50;110;134.5;600;1800;3600;7200")
1330bitsm% = FNcrmenu("#Bits;5;6;7;8")
1340paritym% = FNcrmenu("#Parity;off;odd;even;1 on TX;0 on TX")
1350stopm% = FNcrmenu("#Stop bits;1;2 (1.5 if 5 bits parity,1 if 8 bits no parity)")
1360datam% = FNcrmenu("#Data format;Bits>bitsm%;Parity>paritym%;Stop bits>stopm%")
1370serialm% = FNcrmenu("#Serial;Baud rate>baudm%;Data format>datam%;XON / XOFF")
1380netprintm% = FNcrmenu("#Net print;$server_new%(8)")
1390filemenu% = FNcrmenu("#File name;$file_name%(200)")
1400printmenu% = FNcrmenu("#"+Printer$+";Info>info%#;Parallel;Serial>serialm%;Network>netprintm%;File>filemenu%#;Save choices;Stop printing;Quit")
1410PROCset_print_state(FALSE)
1420PROCdefaults
1430PROCPrinter_set_initial_state
1440ON ERROR LOCAL PROCerror(ERR, REPORT$):ENDPROC
1450PROCchange_icon
1460ENDPROC
1470:
1480DEF PROCSaveConfig
1490out_file%=OPENUP"<PDriver$dir>.PrData"
1500IF printer_ptr% <> -1 THEN
1510 IF printer_config% <> printer_new% THEN
1520 PTR#out_file% = printer_ptr%
1530 BPUT#out_file%,RIGHT$("0"+STR$printer_new%,2);
1540 printer_config% = printer_new%
1550 ENDIF
1560ENDIF
1570IF location_new%=5 AND FNlowercase(LEFT$($file_name%,5))="null:" THEN
1580 IF location_config% <> location_new% THEN
1590 IF location_ptr% <> -1 THEN
1600 PTR#out_file% = location_ptr%
1610 BPUT#out_file%,"0";
1620 ENDIF
1630 location_config%=location_new%
1640 ENDIF
1650 SYS"OS_CLI","Configure Print 0"
1660ELSE
1670 IF location_config% <> location_new% THEN
1680 IF location_ptr% <> -1 THEN
1690 PTR#out_file% = location_ptr%
1700 BPUT#out_file%,STR$location_new%;
1710 ENDIF
1720 location_config%=location_new%
1730 ENDIF
1740 SYS"XOS_CLI","Configure Print "+STR$location_new%
1750ENDIF
1760IF baud_config% <> baud_new% THEN
1770 IF baud_ptr% <> -1 THEN
1780 PTR#out_file%=baud_ptr%
1790 BPUT#out_file%,STR$baud_new%;
1800 ENDIF
1810 baud_config% = baud_new%
1820ENDIF
1830IF location_new%=2 AND baud_new%<=7 THEN SYS"OS_CLI","Configure Baud "+STR$(baud_new%+1)
1840IF data_config% <> data_new% THEN
1850 IF data_ptr% <> -1 THEN
1860 PTR#out_file%=data_ptr%
1870 A$=STR$~(data_new%):IF LENA$=1 A$="0"+A$
1880 BPUT#out_file%,"&"+A$;
1890 ENDIF
1900 data_config% = data_new%
1910ENDIF
1920IF XON_config% <> XON_new% THEN
1930 IF XON_ptr% <> -1 THEN
1940 PTR#out_file%=XON_ptr%
1950 BPUT#out_file%,STR$XON_new%;
1960 ENDIF
1970 XON_config% = XON_new%
1980ENDIF
1990IF server_config$ <> $server_new% THEN
2000 IF server_ptr% <> -1 THEN
2010 PTR#out_file%=server_ptr%
2020 BPUT#out_file%,$server_new%+STRING$(8-LEN$server_new%,";");
2030 ENDIF
2040 server_config$ = $server_new%
2050ENDIF
2060IF location_new%=4 THEN
2070 SYS"XOS_CLI","Configure PS "+$server_new%
2080 SYS"XOS_CLI","PS "+$server_new%
2090ENDIF
2100PROCPrinter_AmendConfig
2110CLOSE#out_file%:out_file%=0
2120ENDPROC
2130:
2140DEFPROCterminate
2150*unset $Printing
2160ON ERROR SYS"Wimp_CloseDown":END
2170PROCPrinter_terminate
2180IF in_file%<>0 SYS"XOS_Find",0,in_file%:in_file%=0
2190IF out_file%<>0 PROCEscOn:SYS"XOS_Find",0,out_file%:out_file%=0:PROCEscOff
2200SYS"Wimp_CloseDown"
2210END
2220:
2230DEF PROCdefaults
2240LOCAL ramval%, temp%
2250data_new%=data_config%
2260PROCset_tick(bitsm%,3-(data_new% AND 3),1)
2270IF data_new% AND (1<<3) THEN
2280 PROCset_tick(paritym%,((data_new% >> 4) AND 3)+1,1)
2290ELSE
2300 PROCset_tick(paritym%,0,1)
2310ENDIF
2320PROCset_tick(stopm%,(data_new%>>2) AND 1,1)
2330PROCset_tick(serialm%, 2, XON_new%)
2340SYS "OS_Byte", 161, 15 TO ,,temp%
2350IF baud_ptr% = -1 THEN baud_config% = (temp% AND %00011100) >> 2
2360baud_new% = baud_config%
2370IF location_ptr%=-1 THEN location_config% = (temp% AND %11100000) >> 5
2380IF location_config% = 2 THEN
2390 SYS"OS_Byte",8,baud_new%+1
2400 SYS"OS_Byte",7,baud_new%+1
2410 SYS"OS_SerialOp",1,data_new%
2420 SYS"OS_SerialOp",0,XON_new%,NOT1
2430 PROCPrinter_Ignore
2440 PROCPrinter_XonXoff(XON_new%)
2450ENDIF
2460IF location_config% = 0 THEN $file_name% = "null:":location_config%=5
2470PROCset_tick(baudm%, baud_new%, 1)
2480CASE location_config% OF
2490 WHEN 1: PROCset_tick(printmenu%, 1, 1)
2500 WHEN 2: PROCset_tick(printmenu%, 2, 1)
2510 WHEN 4: PROCset_tick(printmenu%, 3, 1)
2520 WHEN 5: PROCset_tick(printmenu%, 4, 1)
2530ENDCASE
2540location_new% = location_config%
2550IF location_new%=5 PROCstamp
2560IF server_ptr% = -1 THEN
2570 SYS "OS_Byte", 161, 3 TO ,,temp%
2580 IF temp% = 0 THEN
2590 SYS "OS_Byte", 161, 4 TO ,,temp%
2600 server_config$ = CHR$(temp%)
2610 ramval% = &99
2620 REPEAT
2630 SYS "OS_Byte", 161, ramval% TO ,,temp%
2640 IF temp% >32 server_config$ = server_config$ + CHR$(temp%)
2650 ramval% += 1
2660 UNTIL temp% <= 32 OR ramval% = &9E
2670 ELSE
2680 server_config$ = "."+STR$(temp%)
2690 SYS "OS_Byte", 161, 4 TO ,,temp%
2700 server_config$ = STR$(temp%) + server_config$
2710 ENDIF
2720ENDIF
2730$server_new% = server_config$
2740ENDPROC
2750:
2760DEF PROCredraw(handle%)
2770ENDPROC
2780:
2790DEF PROCreceive(message%)
2800LOCAL my_ref%, type$, option$, I%, pflag%
2810my_ref% = message%!8
2820CASE message%!16 OF
2830 WHEN 0,Message_PrintBusy%
2840 PROCendconfirm
2850 PROCterminate
2860 WHEN 1,Message_PrintSave%
2870 REM save onto our icon; reply with Print message
2880 FOR I%=0TO252STEP4:msg%!I%=message%!I%:NEXT
2890 PROCendconfirm
2900 IF print_ref% THEN PROCmoan("Can only print one file at a time")
2910 save_name$=FNrtoz(message%+44)
2920 IF print_on% THEN
2930 IF message%!16=1 THEN
2940 PROCmoan("Already printing")
2950 ELSE
2960 msg%!0 = 20
2970 msg%!12 = my_ref%
2980 msg%!16 = Message_PrintBusy%
2990 SYS "Wimp_SendMessage", 17, msg%, msg%!4
3000 ENDIF
3010 ELSE
3020 msg%!12 = my_ref%
3030 msg%!16 = Message_PrintFile%
3040 IF message%!16=1 THEN
3050 msg%!0 = 60
3060 $(msg%+44) = "<Printer$Scrap>"
3070 msg%?59 = 0
3080 ENDIF
3090 SYS "Wimp_SendMessage", 18, msg%, msg%!4
3100 msg%!4 = message%!4
3110 print_ref%=msg%!8
3120 ENDIF
3130 WHEN 3
3140 PROCendconfirm
3150 IF print_ref% IF print_ref%<>message%!12 THEN PROCmoan("Can only print one file at a time")
3160 print_ref%=0
3170 IF print_on% THEN
3180 PROCmoan("Already printing")
3190 ELSE
3200 FOR I%=0TO252STEP4:msg%!I%=message%!I%:NEXT
3210 filenam$=FNrtoz(message%+44)
3220 message%!12 = my_ref%
3230 SYS "Wimp_SendMessage",19,message%,message%!4
3240 REM just ack the message in case FNconfirm called
3250 Ftype%=message%!40
3260 type_state%=0
3270 IF Ftype%<>OutputType% THEN
3280 msg%!12=0
3290 msg%!16=Message_PrintTypeOdd%
3300 SYS"Wimp_SendMessage", 18, msg%, 0
3310 print_ref%=msg%!8
3320 REPEAT
3330 SYS "Wimp_Poll",poll_mask%,event% TO action%
3340 PROCdespatch_poll
3350 UNTIL type_state%
3360 ENDIF
3370 pflag%=FALSE
3380 IF type_state%=2 THEN
3390 IF filenam$ = "<Printer$Scrap>" THEN OSCLI("remove "+filenam$)
3400 in_file%=OPENIN"<Printer$Temp>"
3410 IF in_file%<>0 THEN
3420 filenam$ = "<Printer$Temp>"
3430 CLOSE#in_file%:in_file%=0
3440 pflag%=TRUE
3450 ENDIF
3460 ELSE
3470 IF FNcheck_type THEN
3480 IF Alias$ <> "" THEN
3490 SYS "Wimp_StartTask",Alias$+" "+filenam$
3500 in_file%=OPENIN"<Printer$Temp>"
3510 IF in_file%<>0 THEN
3520 filenam$ = "<Printer$Temp>"
3530 IF filenam$ = "<Printer$Scrap>" THEN OSCLI("remove "+filenam$)
3540 CLOSE#in_file%:in_file%=0
3550 pflag%=TRUE
3560 ENDIF
3570 ELSE
3580 pflag%=TRUE
3590 ENDIF
3600 ENDIF
3610 ENDIF
3620 IF pflag% THEN
3630 IF location_new% = 4 THEN
3640 type$ = "netprint#"+printer_type$+":$"
3650 ELSE
3660 IF location_new% = 5 THEN OSCLI("set PrinterType$5 "+$file_name%)
3670 type$="printer:$"
3680 SYS"OS_Byte",5,location_new%
3690 ENDIF
3700 REM filenam$ is also used in PROCcopy
3710 in_file% = OPENIN(filenam$)
3720 IF in_file% = 0 THEN
3730 PROCmoan("Can't open '"+filenam$+"' for printing")
3740 ENDIF
3750 out_file% = OPENOUT(type$+".output")
3760 IF out_file% = 0 THEN
3770 CLOSE#in_file%:in_file%=0
3780 PROCmoan("Can't open '"+type$+".output' for printing")
3790 ENDIF
3800 PROCset_print_state(TRUE)
3810 PROCchange_icon:PROCupdate_icon
3820 pbuf%=ADVAL(-4)
3830 sent%=FALSE
3840 PROCPrinter_Header
3850 ENDIF
3860 REM indicate we received the file OK
3870 msg%!0 = 20
3880 msg%!12 = my_ref%
3890 msg%!16 = 4
3900 msg%!36 = -1
3910 SYS"Wimp_SendMessage", 17, msg%, msg%!4
3920 ENDIF
3930 WHEN &502: REM help request
3940 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)
3950 WHEN Message_WillPrint%
3960 print_ref%=0
3970 WHEN Message_PrintInit%
3980 IF poll_mask%<>NOT(%111 << 17) THEN
3990 IF print_on% THEN
4000 msg%!0=20
4010 msg%!12=my_ref%
4020 msg%!16=Message_PrintBusy%
4030 SYS "Wimp_SendMessage", 17, msg%, message%!4
4040 ELSE
4050 PROCterminate
4060 ENDIF
4070 ENDIF
4080 WHEN Message_PrintTypeKnown%
4090 Ftype%=message%!40
4100 type_state%=2
4110 print_ref%=0
4120ENDCASE
4130ENDPROC
4140:
4150DEFPROChelpreply(help$, ref%, to%)
4160msg%!0 = 256
4170msg%!12 = ref%
4180msg%!16 = &503
4190$(msg%+20) = help$
4200PROCzero_terminate(msg%+20)
4210SYS "Wimp_SendMessage", 17, msg%, to%
4220ENDPROC
4230:
4240DEFPROCbounced(message%)
4250CASE message%!16 OF
4260 WHEN Message_PrintFile%
4270 print_ref%=0
4280 REM must be an app that can't do its own printing; reply to message
4290 REM still in msg%
4300 PROCendconfirm
4310 IF NOT print_on% THEN
4320 REM can't ask for confirmation of stupid types as an affirmative
4330 REM click will probably shut down the transfer at the source
4340 msg%!16 = 2
4350 msg%!36 = -1 : REM file is not safe
4360 SYS "Wimp_SendMessage", 17, msg%, msg%!4
4370 ELSE
4380 PROCmoan("Already printing")
4390 ENDIF
4400 WHEN Message_PrintInit%
4410 PROCinit2
4420 poll_mask%=1
4430 WHEN Message_PrintTypeOdd%
4440 type_state%=1
4450 print_ref%=0
4460ENDCASE
4470ENDPROC
4480:
4490DEFFNcheck_type
4500LOCAL L%,psr%, type$
4510Alias$=""
4520REM if an Alias$@PrintType_<Ftype%> exists then print via that
4530type$ = STR$~Ftype%
4540IF LENtype$ < 3 THEN type$ = STRING$(3-LENtype$,"0")+type$
4550SYS"XOS_ReadVarVal","Alias$@PrintType_"+type$,,-1 TO ,,L%
4560IF L% < 0 THEN Alias$="@PrintType_"+type$: = TRUE
4570IF Ftype% = &FFF OR Ftype% = &FFE OR Ftype% = &FEB OR Ftype%=OutputType% THEN =TRUE
4580REM text, exec and obey files are all straight text
4590IF Ftype% = &1000 THEN PROCmoan("Cannot print directories")
4600IF Ftype% = &2000 THEN PROCmoan("Cannot print applications")
4610IF Ftype% = &3000 THEN
4620 $error_blk% = "an untyped"
4630ELSE
4640 SYS"XOS_ReadVarVal","File$Type_"+type$,error_blk%,100 TO ,,L%;psr%
4650 IF psr% AND 1 THEN $error_blk%="type &"+STR$~Ftype% ELSE error_blk%?L% = 13
4660ENDIF
4670=FNconfirm("This is a "+$error_blk%+" file; do you really want to print it?")
4680:
4690DEFFNconfirm(message$)
4700LOCAL S%, action%
4710S%=FNiconaddr(confirm%,0)
4720$S%=message$
4730PROCgetpointer
4740SYS "Wimp_CreateMenu",,confirm%,mousex%-200,mousey%+200
4750confirm_answer% = 2
4760REPEAT
4770 SYS "Wimp_Poll",poll_mask%,event% TO action%
4780 PROCdespatch_poll
4790UNTIL confirm_answer% <> 2
4800PROCclose(confirm%)
4810=confirm_answer%
4820:
4830DEFPROCendconfirm
4840IF confirm_answer% = 2 THEN confirm_answer%=FALSE
4850REM FNconfirm closes the window if necessary
4860ENDPROC
4870:
4880DEF FNrtoz(s%)
4890LOCAL n$
4900WHILE?s%:n$+=CHR$?s%:s%+=1:ENDWHILE
4910=n$
4920:
4930DEF PROCcopy
4940LOCAL L%
4950LOCAL ERROR
4960ON ERROR LOCAL RESTORE ERROR:PROCerror(ERR, REPORT$):PROCstop_printing:ENDPROC
4970IF sent% THEN
4980 IF ADVAL(-4)>=pbuf% THEN
4990 PROCPrinter_Footer
5000 CLOSE#in_file%:in_file%=0
5010 PROCEscOn:CLOSE#out_file%:out_file%=0:PROCEscOff
5020 PROCstop_printing
5030 ENDIF
5040ELSE
5050 IF location_new%=1 OR location_new%=2 THEN
5060 L%=ADVAL(-4)
5070 IF L%>bufsz% L%=bufsz%
5080 ELSE
5090 L%=128
5100 ENDIF
5110 sent%=FNPrinter_Send(L%)
5120ENDIF
5130ENDPROC
5140:
5150DEFPROCstop_printing
5160PROCset_print_state(FALSE)
5170PROCchange_icon:PROCupdate_icon
5180IF in_file% SYS"XOS_Find",0,in_file%:in_file%=0
5190IF out_file% PROCEscOn:SYS"XOS_Find",0,out_file%:out_file%=0:PROCEscOff
5200IF filenam$ = "<Printer$Scrap>" THEN OSCLI("remove "+filenam$)
5210IF filenam$ = "<Printer$Temp>" THEN OSCLI("remove "+filenam$)
5220REM delete the scrap file: now finished with
5230PROCupdate_icon
5240ENDPROC
5250:
5260DEF PROCmouse(mousex%,mousey%,buttons%,handle%,icon%,oldbuttons%)
5270CASE buttons% OF
5280 WHEN 4: REM left hand click
5290 CASE handle% OF
5300 WHEN -2:
5310 PROCfront(main%)
5320 WHEN confirm%:
5330 IF icon%=1 THEN confirm_answer%=TRUE
5340 IF icon%=2 THEN confirm_answer%=FALSE
5350 ENDCASE
5360 WHEN 2: REM menu button
5370 CASE handle% OF
5380 WHEN -2: PROCmenu(printmenu%)
5390 ENDCASE
5400ENDCASE
5410ENDPROC
5420:
5430DEF PROCdecodemenu(menuhandle%,menus%)
5440CASE menuhandle% OF
5450 WHEN printmenu%
5460 IF print_on% AND (!menus%<5) THEN ENDPROC
5470 CASE !menus% OF
5480 WHEN 1
5490 PROCtickit(printmenu%, 1, 4)
5500 location_new% = 1
5510 *FX 5,1
5520 WHEN 2
5530 PROCPrinter_Ignore
5540 PROCdecodemenu(serialm%, menus%+4)
5550 PROCtickit(printmenu%, 2, 4)
5560 location_new% = 2
5570 SYS "OS_Byte", 8, baud_new%+1
5580 SYS "OS_Byte", 7, baud_new%+1
5590 SYS "OS_SerialOp",1,data_new%
5600 SYS "OS_SerialOp",0,XON_new%,NOT 1
5610 PROCPrinter_XonXoff(XON_new%)
5620 *FX 5,2
5630 WHEN 3
5640 PROCdecodemenu(netprintm%, menus%+4)
5650 PROCtickit(printmenu%, 3, 4)
5660 location_new% = 4
5670 SYS "XOS_CLI","PS "+$server_new%
5680 *FX 5,4
5690 WHEN 4
5700 location_new%=5
5710 PROCtickit(printmenu%, 4, 4)
5720 IF LEN$file_name%=0 THEN $file_name%="<PDriver$Dir>.^.PrintData"
5730 SYS "XOS_CLI","Set PrinterType$5 "+$file_name%
5740 PROCstamp
5750 *FX 5,5
5760 WHEN 5
5770 PROCSaveConfig
5780 WHEN 6
5790 IF print_on% THEN
5800 *FX 21,3
5810 PROCstop_printing
5820 ENDIF
5830 WHEN 7
5840 IF print_on% THEN
5850 *FX 21,3
5860 PROCstop_printing
5870 ENDIF
5880 PROCterminate
5890 ENDCASE
5900 PROCchange_icon
5910 WHEN serialm%
5920 CASE !menus% OF
5930 WHEN 0
5940 PROCdecodemenu(baudm%, menus%+4)
5950 WHEN 1
5960 PROCdecodemenu(datam%, menus%+4)
5970 WHEN 2
5980 XON_new% = XON_new% EOR 1
5990 PROCset_tick(serialm%,2,XON_new%)
6000 ENDCASE
6010 WHEN baudm%
6020 IF !menus% <> -1 THEN
6030 PROCtickit(baudm%, !menus%, 14)
6040 baud_new%=!menus%
6050 ENDIF
6060 WHEN datam%
6070 CASE !menus% OF
6080 WHEN 0
6090 PROCdecodemenu(bitsm%, menus%+4)
6100 WHEN 1
6110 PROCdecodemenu(paritym%, menus%+4)
6120 WHEN 2
6130 PROCdecodemenu(stopm%, menus%+4)
6140 ENDCASE
6150 WHEN bitsm%
6160 IF !menus% <> -1 THEN
6170 data_new%=(data_new% AND %111100)+3-!menus%
6180 PROCtickit(bitsm%, !menus%, 3)
6190 ENDIF
6200 WHEN paritym%
6210 IF !menus% <> -1 THEN
6220 IF !menus% THEN
6230 data_new% = (data_new% AND %111)+8+((!menus%-1)<<4)
6240 ELSE
6250 data_new% = data_new% AND NOT(1<<3)
6260 ENDIF
6270 PROCtickit(paritym%, !menus%, 4)
6280 ENDIF
6290 WHEN stopm%
6300 IF !menus% <> -1 THEN
6310 data_new%=(data_new% AND %111011) EOR (!menus%<<2)
6320 PROCtickit(stopm%, !menus%, 1)
6330 ENDIF
6340ENDCASE
6350PROCupdate_icon
6360ENDPROC
6370:
6380DEF PROCupdate_icon
6390block%!0 = -2
6400block%!4 = icprint%
6410block%!8 = 0
6420block%!12 = 0
6430SYS "Wimp_SetIconState",,block%
6440ENDPROC
6450:
6460DEF PROCtickit(menu%, item%, nitems%)
6470LOCAL I%
6480FOR I%=0 TO nitems%
6490 PROCset_tick(menu%, I%, 0)
6500NEXT
6510PROCset_tick(menu%, item%, 1)
6520ENDPROC
6530:
6540DEF PROCfront(h%)
6550!q%=h%
6560SYS "Wimp_GetWindowState",,q% : q%!28=-1
6570SYS "Wimp_OpenWindow",,q%
6580ENDPROC
6590:
6600DEF PROCopen(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
6610!q%=handle%
6620q%!4=x0%:q%!8=y0%:q%!12=x1%:q%!16=y1%
6630q%!20=scx%:q%!24=scy%
6640q%!28=bhandle%
6650SYS "Wimp_OpenWindow",,q%
6660ENDPROC
6670:
6680DEF PROCclose(handle%)
6690!q%=handle%:SYS "Wimp_CloseWindow",,q%
6700ENDPROC
6710:
6720DEF FNwindow(a$)
6730LOCAL c%
6740SYS "Wimp_LoadTemplate",,q%,curbuf%,endbuf%,-1,a$,0 TO ,,curbuf%,,,,c%
6750IF c%=0 THEN PROCmoan("Template '"+a$+"' not found")
6760SYS "Wimp_CreateWindow",,q% TO c%
6770=c%
6780:
6790DEF FNiconaddr(h%,i%)
6800!q%=h%:q%!4=i%:SYS "Wimp_GetIconState",,q%
6810IF (q%!24 AND &100)=0 THEN PROCmoan("Icon is not indirected")
6820=q%!28
6830:
6840DEF PROCmenu(m%)
6850LOCAL Y%
6860Y% = mousey%
6870IF Y%<496 THEN Y%=496
6880menuhandle%=m%
6890SYS "Wimp_CreateMenu",,menuhandle%,mousex%-66,Y%
6900ENDPROC
6910:
6920DEF PROCremenu
6930LOCAL Y%
6940Y% = mousey%
6950IF Y% < 300 THEN Y% = 316
6960SYS "Wimp_CreateMenu",,menuhandle%,mousex%-66,Y% :REM default coords
6970ENDPROC
6980:
6990DEF FNcrmenu(menu$)
7000IF menufree%+28 > menuend% THEN PROCmoan("Menu area full")
7010LOCAL m%,i%
7020menuptr%=menufree%
7030i%=0
7040IF LEFT$(menu$,1)="#" THEN i%=1:menutitle$=FNpar(";") ELSE menutitle$=""
7050$menuptr%=menutitle$
7060menuptr%?12=`tfcol:menuptr%?13=2:menuptr%?14=`wfcol:menuptr%?15=`wbcol
7070menuptr%!16=196-24:menuptr%!20=44:menuptr%!24=0
7080menuptr%+=28:maxx%=LENmenutitle$-3
7090REPEAT item$=FNpar(";"):PROCmenuitem(item$):UNTIL item$=""
7100m%=menufree%:m%!16=(maxx%*8+6)*2
7110menufree%=menuptr%
7120=m%
7130:
7140DEF PROCmenuitem(text$)
7150IF text$="" THEN menuptr%!-24=(menuptr%!-24)OR&80:ENDPROC
7160IF menuptr%+24 > menuend% THEN PROCmoan("Menu area full")
7170LOCALi%,flg%,V%
7180flg%=&00
7190i%=INSTR(text$,">")
7200IF RIGHT$(text$,1)="#" THEN text$=LEFT$(text$,LENtext$-1):flg%+=&02
7210IFi%>0THENsubptr%=EVALMID$(text$,i%+1):text$=LEFT$(text$,i%-1)ELSEsubptr%=-1
7220menuptr%!0=flg%
7230menuptr%!4=subptr%
7240menuptr%!8=&07000021
7250IFLEFT$(text$,1)="$"THEN
7260 !menuptr%+=&04
7270 menuptr%!8+=&108
7280 i%=INSTR(text$,"(")
7290 IFi%>0THENL%=VALMID$(text$,i%+1):text$=LEFT$(text$,i%-1)ELSEL%=12
7300 V% = -1
7310 menuptr%!12=EVALMID$(text$,2)
7320 menuptr%!16=-1
7330 menuptr%!20=L%
7340 text$=STRING$(L%," ")
7350 IF maxx%<20 THEN maxx%=20
7360ELSE
7370 IFLENtext$<=12THEN
7380 $(menuptr%+12)=text$
7390 ELSE I%=FNworkspace(LENtext$+1):$I%=text$
7400 menuptr%!12=I%:menuptr%!16=-1:menuptr%!20=LENtext$+1
7410 menuptr%!8=menuptr%!8 OR &100
7420 ENDIF
7430IFLENtext$>maxx% THENmaxx%=LENtext$
7440ENDIF
7450menuptr%+=24
7460ENDPROC
7470:
7480DEF FNworkspace(L%)
7490DIM L% L%
7500= L%
7510:
7520DEF FNpar(sep$)
7530i1%=i%+1:i%=INSTR(menu$+sep$,sep$,i1%)
7540=MID$(menu$,i1%,i%-i1%)
7550:
7560DEF PROCshade(menuhandle%, item%)
7570menuhandle%!(28+8+24*item%)=menuhandle%!(28+8+24*item%)EOR&400000:ENDPROC
7580:
7590DEF FNshade_status(menuhandle%,item%) = -((menuhandle%!(28+8+24*item%) AND &400000)=&400000)
7600:
7610DEF PROCset_shade(menuhandle%, item%, value%)
7620LOCAL st%
7630st% = FNshade_status(menuhandle%, item%)
7640IF value% <> st% THEN PROCshade(menuhandle%, item%)
7650ENDPROC
7660:
7670DEF PROCtick(menuhandle%,item%)
7680menuhandle%!(28+24*item%)=menuhandle%!(28+24*item%)EOR&01
7690ENDPROC
7700:
7710DEF FNtick_status(menuhandle%, item%) = menuhandle%!(28+24*item%)AND1
7720:
7730DEF PROCset_tick(menuhandle%, item%, value%)
7740IF FNtick_status(menuhandle%, item%)<>value% THEN PROCtick(menuhandle%, item%)
7750ENDPROC
7760:
7770DEF PROCset_print_state(flag%)
7780PROCset_shade(printmenu%,1,-flag%)
7790PROCset_shade(printmenu%,2,-flag%)
7800PROCset_shade(printmenu%,3,-flag%)
7810PROCset_shade(printmenu%,4,-flag%)
7820PROCset_shade(printmenu%,5,-flag%)
7830PROCset_shade(printmenu%,6,(1+flag%))
7840PROCset_shade(printmenu%,7,-flag%)
7850print_on%=flag%
7860poll_mask%=(poll_mask% AND NOT1) OR (1+flag%)
7870IF flag% THEN
7880 *set $Printing "T"
7890ELSE
7900 *unset $Printing
7910ENDIF
7920ENDPROC
7930:
7940DEF FNread_icon_data(handle%, icon%)
7950!icon_buf% = handle%
7960icon_buf%!4 = icon%
7970SYS "Wimp_GetIconState", , icon_buf%
7980IF icon_buf%!28 < curbuf% THEN =$(icon_buf%!28) ELSE = $(icon_buf%+28)
7990:
8000DEF PROCset_icon_state(handle%, icon%, eor%, mask%)
8010!icon_buf% = handle%
8020icon_buf%!4 = icon%
8030icon_buf%!8 = eor%
8040icon_buf%!12 = mask%
8050SYS "Wimp_SetIconState",,icon_buf%
8060ENDPROC
8070:
8080DEF FNiconbar
8090LOCAL I%
8100icon_buf%!0 =-2
8110icon_buf%!4 =0
8120icon_buf%!8 =-16
8130icon_buf%!12=144
8140icon_buf%!16= 86
8150icon_buf%!20= &1700312B: REM 0001 0111 0000 0000 0011 0001 0010 1011
8160$text_buffer% = printer_type$
8170$valid_buffer% = "S!"+Printer$
8180icon_buf%!24= text_buffer%
8190icon_buf%!28 = valid_buffer%
8200icon_buf%!32 = LEN($text_buffer%)+1
8210SYS "Wimp_CreateIcon",,icon_buf% TO I%
8220=I%
8230:
8240DEF PROCchange_icon
8250PROCset_ptype
8260$text_buffer% = printer_type$
8270ENDPROC
8280:
8290DEFPROCset_ptype
8300IF print_on% THEN
8310 printer_type$ = "Printing"
8320ELSE
8330SYS"OS_Byte",5,location_new%
8340CASE location_new% OF
8350 WHEN 1: printer_type$ = "Parallel"
8360 WHEN 2: printer_type$ = "Serial"
8370 WHEN 4: printer_type$ = $server_new%
8380 WHEN 5:
8390 IF FNlowercase(LEFT$($file_name%,5))="null:" THEN
8400 printer_type$ = "To null:"
8410 ELSE
8420 printer_type$ = "To file"
8430 ENDIF
8440 OSCLI("set PrinterType$5 """+$file_name%+"""")
8450ENDCASE
8460ENDIF
8470ENDPROC
8480:
8490DEF PROCgetpointer
8500SYS "Wimp_GetPointerInfo",,q%
8510mousex%=!q%:mousey%=q%!4:buttons%=q%!8
8520handle%=q%!12:icon%=q%!16
8530ENDPROC
8540:
8550DEF PROCmoan(report$)
8560ERROR &20000,report$
8570:
8580DEF PROCerror(err%, report$)
8590LOCAL stop%
8600PROCEscOff
8610stop%=(report$<>"Already printing")
8620IF (err%<&10100 OR err%>&20000) AND err%<>17 THEN report$=report$+" internal error "+STR$(ERL)
8630!error_blk% = err%
8640$(error_blk%+4)=report$
8650PROCzero_terminate(error_blk%+4)
8660IF stop% IF print_on% THEN *FX 21,3
8670SYS "Wimp_ReportError", error_blk%, 1, Printer$
8680PROCendconfirm
8690IF stop% THEN
8700 IF print_on% PROCstop_printing
8710 IF in_file% SYS"XOS_Find",0,in_file%:in_file%=0
8720 IF out_file% PROCEscOn:SYS"XOS_Find",0,out_file%:out_file%=0:PROCEscOff
8730ENDIF
8740ENDPROC
8750:
8760DEFPROCzero_terminate(S%)
8770S%?LEN$S% = 0
8780ENDPROC
8790:
8800DEFFNlowercase(S$)
8810LOCAL R$, C%
8820R$=""
8830WHILE LENS$>0
8840 C% = ASCLEFT$(S$,1)
8850 S$ = RIGHT$(S$,LENS$-1)
8860 IF C%>=ASC"A" AND C%<=ASC"Z" THEN C% = C% - ASC"A" + ASC"a"
8870 R$ += CHR$C%
8880ENDWHILE
8890=R$
8900:
8910DEF PROCstamp
8920LOCAL load%
8930LOCAL ERROR
8940ON ERROR LOCAL ENDPROC
8950SYS "OS_File",5,file_name% TO ,,load%
8960IF (load%>>>8) <> &FFF000 + OutputType% THEN SYS "OS_File",11,file_name%,OutputType%
8970ENDPROC
8980:
8990DEF PROCEscOn
9000*FX 229
9010ENDPROC
9020:
9030DEF PROCEscOff
9040*FX 229,1
9050ENDPROC
� >!RunImage Version 0.82
>� Purpose: printer independent part of printer application
'� Authors: DTee, AThompson, NReeves
( ț "<PDriver$dir>.Library"
2 �init
<� � �error(�,�$)
F�
P/ ș "Wimp_Poll",poll_mask%,event% � action%
Z �despatch_poll
d� �
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
�, � 9: �decodemenu(menuhandle%, event%)
1 �getpointer:� buttons%�1 � �remenu
� 17,18:�receive(event%)
� 19:�bounced(event%)
" �
, �
6�
@:
J� �p_field(size%)
T printer_field% += size%
^ = printer_field% - size%
h:
r � �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)
�' page_width_field% = �p_field(4)
' page_height_field% = �p_field(4)
' page_bottom_field% = �p_field(4)
' page_top_field% = �p_field(4)
&' page_left_field% = �p_field(4)
0' page_right_field% = �p_field(4)
:3� define class independent icons in main window
Dmain_description% = 1
N/� mark configure options as unset initially
X printer_ptr% = -1
bprinter_config% = 0
l printer_new% = 0
v 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
�"Message_PrintBusy% =&80144
�"Message_PrintTypeOdd% =&80145
�"Message_PrintTypeKnown%=&80146
"Message_SetPrinter% =&80147
� dimension system arrays
� q% &800
� event% &800
*maxbuf%=&800
40� curbuf% maxbuf%: endbuf% = curbuf%+maxbuf%
>/� menufree% &800: menuend% = menufree%+&800
H� icon_buf% 40
R'� text_buffer% 12, valid_buffer% 12
\� block% 20
f� error_blk% 256
p� msg% 256
zbufsz%=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
��Printer_initialise
�Printer$=PrinterClass$
�save_name$=""
�print_ref%=0
�� Initialise WIMP
� � taskid% 5: $taskid%="TASK"
�>ș "Wimp_Initialise",200,!taskid%,Printer$ � ,task_handle%
"� � � �error(�, �$):�terminate
msg%!0=20
msg%!12=0
$ msg%!16=Message_PrintInit%
.&ș "Wimp_SendMessage", 18, msg%, 0
8�
B:
L � �init2
V� S$
`� �
j � load the template file
t5ș "Wimp_OpenTemplate",,"<PDriver$dir>.Templates"
~main% = �window("main")
�!confirm% = �window("confirm")
�info% = �window("info")
��Printer_load_templates
�ș "Wimp_CloseTemplate"
�printer_type$ = ""
�icprint%=�iconbar
�� create the menu tree
�� server_new% 8
�$server_new% = ""
�� file_name% 201
�=ș "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")
2%bitsm% = �crmenu("#Bits;5;6;7;8")
<>paritym% = �crmenu("#Parity;off;odd;even;1 on TX;0 on TX")
FSstopm% = �crmenu("#Stop bits;1;2 (1.5 if 5 bits parity,1 if 8 bits no parity)")
PQdatam% = �crmenu("#Data format;Bits>bitsm%;Parity>paritym%;Stop bits>stopm%")
ZPserialm% = �crmenu("#Serial;Baud rate>baudm%;Data format>datam%;XON / XOFF")
d6netprintm% = �crmenu("#Net print;$server_new%(8)")
n6filemenu% = �crmenu("#File name;$file_name%(200)")
x�printmenu% = �crmenu("#"+Printer$+";Info>info%#;Parallel;Serial>serialm%;Network>netprintm%;File>filemenu%#;Save choices;Stop printing;Quit")
��set_print_state(�)
�
�defaults
� �Printer_set_initial_state
�� � � �error(�, �$):�
��change_icon
��
�:
�� �SaveConfig
�%out_file%=�"<PDriver$dir>.PrData"
�� printer_ptr% <> -1 �
�( � printer_config% <> printer_new% �
� �#out_file% = printer_ptr%
�( �#out_file%,�"0"+�printer_new%,2);
$ printer_config% = printer_new%
�
�
"=� location_new%=5 � �lowercase(�$file_name%,5))="null:" �
,* � location_config% <> location_new% �
6 � location_ptr% <> -1 �
@" �#out_file% = location_ptr%
J �#out_file%,"0";
T �
^$ location_config%=location_new%
h �
r# ș"OS_CLI","Configure Print 0"
|�
�* � location_config% <> location_new% �
� � location_ptr% <> -1 �
�" �#out_file% = location_ptr%
�" �#out_file%,�location_new%;
� �
�$ location_config%=location_new%
� �
�2 ș"XOS_CLI","Configure Print "+�location_new%
��
�!� baud_config% <> baud_new% �
� � baud_ptr% <> -1 �
� �#out_file%=baud_ptr%
� �#out_file%,�baud_new%;
�
baud_config% = baud_new%
�
&R� location_new%=2 � baud_new%<=7 � ș"OS_CLI","Configure Baud "+�(baud_new%+1)
0!� data_config% <> data_new% �
: � data_ptr% <> -1 �
D �#out_file%=data_ptr%
N( A$=�~(data_new%):� �A$=1 A$="0"+A$
X �#out_file%,"&"+A$;
b �
l data_config% = data_new%
v�
� � XON_config% <> XON_new% �
� � XON_ptr% <> -1 �
� �#out_file%=XON_ptr%
� �#out_file%,�XON_new%;
� �
� XON_config% = XON_new%
��
�&� server_config$ <> $server_new% �
� � server_ptr% <> -1 �
� �#out_file%=server_ptr%
�5 �#out_file%,$server_new%+�8-�$server_new%,";");
� �
�" server_config$ = $server_new%
�
� location_new%=4 �
- ș"XOS_CLI","Configure PS "+$server_new%
# ș"XOS_CLI","PS "+$server_new%
*�
4�Printer_AmendConfig
>�#out_file%:out_file%=0
H�
R:
\��terminate
f*unset $Printing
p � � ș"Wimp_CloseDown":�
z�Printer_terminate
�4� in_file%<>0 ș"XOS_Find",0,in_file%:in_file%=0
�F� out_file%<>0 �EscOn:ș"XOS_Find",0,out_file%:out_file%=0:�EscOff
�ș"Wimp_CloseDown"
��
�:
�� �defaults
�� 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
8 baud_new% = baud_config%
BD� location_ptr%=-1 � location_config% = (temp% � %11100000) >> 5
L � location_config% = 2 �
V ș"OS_Byte",8,baud_new%+1
` ș"OS_Byte",7,baud_new%+1
j ș"OS_SerialOp",1,data_new%
t" ș"OS_SerialOp",0,XON_new%,�1
~ �Printer_Ignore
� �Printer_XonXoff(XON_new%)
��
�E� location_config% = 0 � $file_name% = "null:":location_config%=5
�#�set_tick(baudm%, baud_new%, 1)
�Ȏ location_config% �
�' � 1: �set_tick(printmenu%, 1, 1)
�' � 2: �set_tick(printmenu%, 2, 1)
�' � 4: �set_tick(printmenu%, 3, 1)
�' � 5: �set_tick(printmenu%, 4, 1)
��
�$location_new% = location_config%
� � location_new%=5 �stamp
� server_ptr% = -1 �
# ș "OS_Byte", 161, 3 � ,,temp%
� temp% = 0 �
$ ș "OS_Byte", 161, 4 � ,,temp%
( server_config$ = �(temp%)
2 ramval% = &99
< �
F+ ș "OS_Byte", 161, ramval% � ,,temp%
P= � temp% >32 server_config$ = server_config$ + �(temp%)
Z ramval% += 1
d# � temp% <= 32 � ramval% = &9E
n �
x# server_config$ = "."+�(temp%)
�$ ș "OS_Byte", 161, 4 � ,,temp%
�0 server_config$ = �(temp%) + server_config$
� �
��
�!$server_new% = server_config$
��
�:
�� �redraw(handle%)
��
�:
�� �receive(message%)
�)� my_ref%, type$, option$, I%, pflag%
�my_ref% = message%!8
Ȏ message%!16 �
� 0,Message_PrintBusy%
�endconfirm
" �terminate
, � 1,Message_PrintSave%
64 � save onto our icon; reply with Print message
@( � I%=0�252�4:msg%!I%=message%!I%:�
J �endconfirm
T? � print_ref% � �moan("Can only print one file at a time")
^# save_name$=�rtoz(message%+44)
h � print_on% �
r � 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%
� � message%!16=1 �
� msg%!0 = 60
�& $(msg%+44) = "<Printer$Scrap>"
� msg%?59 = 0
�
. ș "Wimp_SendMessage", 18, msg%, msg%!4
msg%!4 = message%!4
& print_ref%=msg%!8
0 �
: � 3
D �endconfirm
NY � print_ref% � print_ref%<>message%!12 � �moan("Can only print one file at a time")
X print_ref%=0
b � print_on% �
l �moan("Already printing")
v �
�) � 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
� � Ftype%<>OutputType% �
� msg%!12=0
�% msg%!16=Message_PrintTypeOdd%
�) ș"Wimp_SendMessage", 18, msg%, 0
� print_ref%=msg%!8
� �
3 ș "Wimp_Poll",poll_mask%,event% � action%
�despatch_poll
� type_state%
�
* pflag%=�
4 � type_state%=2 �
>> � filenam$ = "<Printer$Scrap>" � �("remove "+filenam$)
H" in_file%=�"<Printer$Temp>"
R � in_file%<>0 �
\$ filenam$ = "<Printer$Temp>"
f �#in_file%:in_file%=0
p pflag%=�
z �
� �
� � �check_type �
� � Alias$ <> "" �
�1 ș "Wimp_StartTask",Alias$+" "+filenam$
�$ in_file%=�"<Printer$Temp>"
� � in_file%<>0 �
�& filenam$ = "<Printer$Temp>"
�A � filenam$ = "<Printer$Scrap>" � �("remove "+filenam$)
� �#in_file%:in_file%=0
� pflag%=�
� �
�
�
� pflag%=�
�
�
�
$ � pflag% �
. � location_new% = 4 �
8/ type$ = "netprint#"+printer_type$+":$"
B �
LB � location_new% = 5 � �("set PrinterType$5 "+$file_name%)
V type$="printer:$"
`$ ș"OS_Byte",5,location_new%
j �
t+ � 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
�
) � indicate we received the file OK
msg%!0 = 20
( msg%!12 = my_ref%
2 msg%!16 = 4
< msg%!36 = -1
F- ș"Wimp_SendMessage", 17, msg%, msg%!4
P �
Z � &502: � help request
d� � 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)
n � Message_WillPrint%
x 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
�
"�
,:
6!��helpreply(help$, ref%, to%)
@msg%!0 = 256
Jmsg%!12 = ref%
Tmsg%!16 = &503
^$(msg%+20) = help$
h �zero_terminate(msg%+20)
r(ș "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% �
�E � can't ask for confirmation of stupid types as an affirmative
�A � click will probably shut down the transfer at the source
� msg%!16 = 2
�+ msg%!36 = -1 : � file is not safe
. ș "Wimp_SendMessage", 17, msg%, msg%!4
�
�moan("Already printing")
& �
0 � Message_PrintInit%
: �init2
D poll_mask%=1
N � Message_PrintTypeOdd%
X type_state%=1
b print_ref%=0
l�
v�
�:
�ݤcheck_type
�� L%,psr%, type$
�
Alias$=""
�@� if an Alias$@PrintType_<Ftype%> exists then print via that
�type$ = �~Ftype%
�/� �type$ < 3 � type$ = �3-�type$,"0")+type$
�;ș"XOS_ReadVarVal","Alias$@PrintType_"+type$,,-1 � ,,L%
�.� L% < 0 � Alias$="@PrintType_"+type$: = �
�M� Ftype% = &FFF � Ftype% = &FFE � Ftype% = &FEB � Ftype%=OutputType% � =�
�5� text, exec and obey files are all straight text
�8� Ftype% = &1000 � �moan("Cannot print directories")
�9� Ftype% = &2000 � �moan("Cannot print applications")
� Ftype% = &3000 �
$error_blk% = "an untyped"
�
E ș"XOS_ReadVarVal","File$Type_"+type$,error_blk%,100 � ,,L%;psr%
*D � psr% � 1 � $error_blk%="type &"+�~Ftype% � error_blk%?L% = 13
4�
>P=�confirm("This is a "+$error_blk%+" file; do you really want to print it?")
H:
Rݤconfirm(message$)
\� S%, action%
f S%=�iconaddr(confirm%,0)
p$S%=message$
z�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
�-� confirm_answer% = 2 � confirm_answer%=�
�.� FNconfirm closes the window if necessary
��
:
� �rtoz(s%)
� n$
$ȕ?s%:n$+=�?s%:s%+=1:�
.=n$
8:
B � �copy
L� L%
V� �
`,� � � � �:�error(�, �$):�stop_printing:�
j
� sent% �
t � �(-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
� �
� sent%=�Printer_Send(L%)
�
�
:
��stop_printing
(�set_print_state(�)
2 �change_icon:�update_icon
<1� in_file% ș"XOS_Find",0,in_file%:in_file%=0
FC� out_file% �EscOn:ș"XOS_Find",0,out_file%:out_file%=0:�EscOff
P:� filenam$ = "<Printer$Scrap>" � �("remove "+filenam$)
Z9� filenam$ = "<Printer$Temp>" � �("remove "+filenam$)
d.� delete the scrap file: now finished with
n�update_icon
x�
�:
�@� �mouse(mousex%,mousey%,buttons%,handle%,icon%,oldbuttons%)
�Ȏ buttons% �
� � 4: � left hand click
� Ȏ handle% �
� � -2:
� �front(main%)
� � confirm%:
�% � icon%=1 � confirm_answer%=�
�% � icon%=2 � confirm_answer%=�
� �
� � 2: � menu button
� Ȏ handle% �
� -2: �menu(printmenu%)
�
�
"�
,:
6%� �decodemenu(menuhandle%,menus%)
@Ȏ menuhandle% �
J � printmenu%
T# � print_on% � (!menus%<5) � �
^ Ȏ !menus% �
h
� 1
r! �tickit(printmenu%, 1, 4)
| location_new% = 1
� *FX 5,1
�
� 2
� �Printer_Ignore
�' �decodemenu(serialm%, menus%+4)
�! �tickit(printmenu%, 2, 4)
� location_new% = 2
�$ ș "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
�
� 3
) �decodemenu(netprintm%, menus%+4)
! �tickit(printmenu%, 3, 4)
location_new% = 4
&' ș "XOS_CLI","PS "+$server_new%
0 *FX 5,4
:
� 4
D location_new%=5
N! �tickit(printmenu%, 4, 4)
XB � �$file_name%=0 � $file_name%="<PDriver$Dir>.^.PrintData"
b5 ș "XOS_CLI","Set PrinterType$5 "+$file_name%
l �stamp
v *FX 5,5
�
� 5
� �SaveConfig
�
� 6
� � print_on% �
� *FX 21,3
� �stop_printing
� �
�
� 7
� � print_on% �
� *FX 21,3
� �stop_printing
� �
� �terminate
�
�change_icon
� serialm%
Ȏ !menus% �
*
� 0
4% �decodemenu(baudm%, menus%+4)
>
� 1
H% �decodemenu(datam%, menus%+4)
R
� 2
\ XON_new% = XON_new% � 1
f& �set_tick(serialm%,2,XON_new%)
p �
z
� baudm%
� � !menus% <> -1 �
�# �tickit(baudm%, !menus%, 14)
� baud_new%=!menus%
� �
�
� datam%
� Ȏ !menus% �
�
� 0
�% �decodemenu(bitsm%, menus%+4)
�
� 1
�' �decodemenu(paritym%, menus%+4)
�
� 2
�% �decodemenu(stopm%, menus%+4)
� �
� bitsm%
� !menus% <> -1 �
0 data_new%=(data_new% � %111100)+3-!menus%
$" �tickit(bitsm%, !menus%, 3)
. �
8 � paritym%
B � !menus% <> -1 �
L � !menus% �
V9 data_new% = (data_new% � %111)+8+((!menus%-1)<<4)
` �
j' data_new% = data_new% � �(1<<3)
t �
~$ �tickit(paritym%, !menus%, 4)
� �
�
� stopm%
� � !menus% <> -1 �
�5 data_new%=(data_new% � %111011) � (!menus%<<2)
�" �tickit(stopm%, !menus%, 1)
� �
��
��update_icon
��
�:
�� �update_icon
�block%!0 = -2
block%!4 = icprint%
block%!8 = 0
block%!12 = 0
"ș "Wimp_SetIconState",,block%
(�
2:
<$� �tickit(menu%, item%, nitems%)
F� I%
P� I%=0 � nitems%
Z �set_tick(menu%, I%, 0)
d�
n �set_tick(menu%, item%, 1)
x�
�:
�� �front(h%)
�
!q%=h%
�+ș "Wimp_GetWindowState",,q% : q%!28=-1
� ș "Wimp_OpenWindow",,q%
��
�:
�7� �open(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
�!q%=handle%
�)q%!4=x0%:q%!8=y0%:q%!12=x1%:q%!16=y1%
�q%!20=scx%:q%!24=scy%
�q%!28=bhandle%
� ș "Wimp_OpenWindow",,q%
�
:
� �close(handle%)
")!q%=handle%:ș "Wimp_CloseWindow",,q%
,�
6:
@� �window(a$)
J� c%
THș "Wimp_LoadTemplate",,q%,curbuf%,endbuf%,-1,a$,0 � ,,curbuf%,,,,c%
^1� c%=0 � �moan("Template '"+a$+"' not found")
h#ș "Wimp_CreateWindow",,q% � c%
r=c%
|:
�� �iconaddr(h%,i%)
�-!q%=h%:q%!4=i%:ș "Wimp_GetIconState",,q%
�8� (q%!24 � &100)=0 � �moan("Icon is not indirected")
�
=q%!28
�:
�� �menu(m%)
�� Y%
�Y% = mousey%
�� Y%<496 � Y%=496
�menuhandle%=m%
�3ș "Wimp_CreateMenu",,menuhandle%,mousex%-66,Y%
��
�:
� �remenu
� Y%
Y% = mousey%
&� Y% < 300 � Y% = 316
0Eș "Wimp_CreateMenu",,menuhandle%,mousex%-66,Y% :� default coords
:�
D:
N� �crmenu(menu$)
X7� menufree%+28 > menuend% � �moan("Menu area full")
b � m%,i%
lmenuptr%=menufree%
vi%=0
�?� �menu$,1)="#" � i%=1:menutitle$=�par(";") � menutitle$=""
�$menuptr%=menutitle$
�Jmenuptr%?12=`tfcol:menuptr%?13=2:menuptr%?14=`wfcol:menuptr%?15=`wbcol
�3menuptr%!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
4menuptr%!0=flg%
>menuptr%!4=subptr%
Hmenuptr%!8=&07000021
R�text$,1)="$"�
\ !menuptr%+=&04
f menuptr%!8+=&108
p i%=�text$,"(")
z4 �i%>0�L%=��text$,i%+1):text$=�text$,i%-1)�L%=12
� V% = -1
� menuptr%!12=��text$,2)
� menuptr%!16=-1
� menuptr%!20=L%
� text$=�L%," ")
� � maxx%<20 � maxx%=20
��
� �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
$�
.:
8� �workspace(L%)
B � L% L%
L= L%
V:
`� �par(sep$)
j%i1%=i%+1:i%=�menu$+sep$,sep$,i1%)
t=�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%, value%)
� � st%
�+st% = �shade_status(menuhandle%, item%)
�0� value% <> st% � �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
(:
2+� �set_tick(menuhandle%, item%, value%)
<J� �tick_status(menuhandle%, item%)<>value% � �tick(menuhandle%, item%)
F�
P:
Z � �set_print_state(flag%)
d#�set_shade(printmenu%,1,-flag%)
n#�set_shade(printmenu%,2,-flag%)
x#�set_shade(printmenu%,3,-flag%)
�#�set_shade(printmenu%,4,-flag%)
�#�set_shade(printmenu%,5,-flag%)
�&�set_shade(printmenu%,6,(1+flag%))
�#�set_shade(printmenu%,7,-flag%)
�print_on%=flag%
�,poll_mask%=(poll_mask% � �1) � (1+flag%)
�
� flag% �
� *set $Printing "T"
��
� *unset $Printing
��
��
�:
%� �read_icon_data(handle%, icon%)
!icon_buf% = handle%
icon_buf%!4 = icon%
"'ș "Wimp_GetIconState", , icon_buf%
,C� icon_buf%!28 < curbuf% � =$(icon_buf%!28) � = $(icon_buf%+28)
6:
@2� �set_icon_state(handle%, icon%, eor%, mask%)
J!icon_buf% = handle%
Ticon_buf%!4 = icon%
^icon_buf%!8 = eor%
hicon_buf%!12 = mask%
r%ș "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
�Gicon_buf%!20= &1700312B: � 0001 0111 0000 0000 0011 0001 0010 1011
�#$text_buffer% = printer_type$
�#$valid_buffer% = "S!"+Printer$
� icon_buf%!24= text_buffer%
� icon_buf%!28 = valid_buffer%
%icon_buf%!32 = �($text_buffer%)+1
(ș "Wimp_CreateIcon",,icon_buf% � I%
=I%
&:
0� �change_icon
:�set_ptype
D!$text_buffer% = printer_type$
N�
X:
b��set_ptype
l� print_on% �
v printer_type$ = "Printing"
��
� ș"OS_Byte",5,location_new%
�Ȏ location_new% �
�$ � 1: printer_type$ = "Parallel"
�" � 2: printer_type$ = "Serial"
�& � 4: printer_type$ = $server_new%
� � 5:
�- � �lowercase(�$file_name%,5))="null:" �
�! printer_type$ = "To null:"
� �
� printer_type$ = "To file"
� �
�0 �("set PrinterType$5 """+$file_name%+"""")
!�
! �
!�
! :
!*� �getpointer
!4 ș "Wimp_GetPointerInfo",,q%
!>*mousex%=!q%:mousey%=q%!4:buttons%=q%!8
!H handle%=q%!12:icon%=q%!16
!R�
!\:
!f� �moan(report$)
!p� &20000,report$
!z:
!�� �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)
!�"� stop% � print_on% � *FX 21,3
!�2ș "Wimp_ReportError", error_blk%, 1, Printer$
!��endconfirm
!�
� stop% �
!� � print_on% �stop_printing
"2 � in_file% ș"XOS_Find",0,in_file%:in_file%=0
"D � out_file% �EscOn:ș"XOS_Find",0,out_file%:out_file%=0:�EscOff
"�
"$�
".:
"8��zero_terminate(S%)
"BS%?�$S% = 0
"L�
"V:
"`ݤlowercase(S$)
"j � R$, C%
"t R$=""
"~ ȕ �S$>0
"� C% = ��S$,1)
"� S$ = �S$,�S$-1)
"�2 � C%>=�"A" � C%<=�"Z" � C% = C% - �"A" + �"a"
"� R$ += �C%
"��
"�=R$
"�:
"� � �stamp
"� � load%
"�� �
"� � � � �
"�'ș "OS_File",5,file_name% � ,,load%
# S� (load%>>>8) <> &FFF000 + OutputType% � ș "OS_File",11,file_name%,OutputType%
#
�
#:
# � �EscOn
#( *FX 229
#2�
#<:
#F
� �EscOff
#P
*FX 229,1
#Z�
� 00000000 0d 00 0a 1d f4 20 3e 21 52 75 6e 49 6d 61 67 65 |..... >!RunImage|
00000010 20 56 65 72 73 69 6f 6e 20 30 2e 38 32 0d 00 14 | Version 0.82...|
00000020 3e f4 20 50 75 72 70 6f 73 65 3a 20 70 72 69 6e |>. Purpose: prin|
00000030 74 65 72 20 69 6e 64 65 70 65 6e 64 65 6e 74 20 |ter independent |
00000040 70 61 72 74 20 6f 66 20 70 72 69 6e 74 65 72 20 |part of printer |
00000050 61 70 70 6c 69 63 61 74 69 6f 6e 0d 00 1e 27 f4 |application...'.|
00000060 20 41 75 74 68 6f 72 73 3a 20 44 54 65 65 2c 20 | Authors: DTee, |
00000070 41 54 68 6f 6d 70 73 6f 6e 2c 20 4e 52 65 65 76 |AThompson, NReev|
00000080 65 73 0d 00 28 1e c8 9b 20 22 3c 50 44 72 69 76 |es..(... "<PDriv|
00000090 65 72 24 64 69 72 3e 2e 4c 69 62 72 61 72 79 22 |er$dir>.Library"|
000000a0 0d 00 32 09 f2 69 6e 69 74 0d 00 3c 14 ee 20 85 |..2..init..<.. .|
000000b0 20 f2 65 72 72 6f 72 28 9f 2c f6 24 29 0d 00 46 | .error(.,.$)..F|
000000c0 05 f5 0d 00 50 2f 20 c8 99 20 22 57 69 6d 70 5f |....P/ .. "Wimp_|
000000d0 50 6f 6c 6c 22 2c 70 6f 6c 6c 5f 6d 61 73 6b 25 |Poll",poll_mask%|
000000e0 2c 65 76 65 6e 74 25 20 b8 20 61 63 74 69 6f 6e |,event% . action|
000000f0 25 0d 00 5a 13 20 f2 64 65 73 70 61 74 63 68 5f |%..Z. .despatch_|
00000100 70 6f 6c 6c 0d 00 64 07 fd 20 a3 0d 00 6e 05 e0 |poll..d.. ...n..|
00000110 0d 00 78 05 3a 0d 00 82 13 dd f2 64 65 73 70 61 |..x.:......despa|
00000120 74 63 68 5f 70 6f 6c 6c 0d 00 8c 32 20 e7 20 ac |tch_poll...2 . .|
00000130 20 a4 50 72 69 6e 74 65 72 5f 70 72 6f 63 65 73 | .Printer_proces|
00000140 73 5f 65 76 65 6e 74 28 61 63 74 69 6f 6e 25 2c |s_event(action%,|
00000150 20 65 76 65 6e 74 25 29 20 8c 0d 00 96 12 20 20 | event%) ..... |
00000160 c8 8e 20 61 63 74 69 6f 6e 25 20 ca 0d 00 a0 11 |.. action% .....|
00000170 20 20 20 c9 20 30 3a 20 f2 63 6f 70 79 0d 00 aa | . 0: .copy...|
00000180 1c 20 20 20 c9 20 31 3a 20 f2 72 65 64 72 61 77 |. . 1: .redraw|
00000190 28 21 65 76 65 6e 74 25 29 0d 00 b4 2f 20 20 20 |(!event%).../ |
000001a0 20 20 20 20 20 20 20 20 e7 20 21 65 76 65 6e 74 | . !event|
000001b0 25 3d 63 6f 6e 66 69 72 6d 25 20 8c 20 f2 65 6e |%=confirm% . .en|
000001c0 64 63 6f 6e 66 69 72 6d 0d 00 be 2d 20 20 20 c9 |dconfirm...- .|
000001d0 20 32 3a 20 e7 20 21 65 76 65 6e 74 25 3c 3e 63 | 2: . !event%<>c|
000001e0 6f 6e 66 69 72 6d 25 20 8c 20 f2 65 6e 64 63 6f |onfirm% . .endco|
000001f0 6e 66 69 72 6d 0d 00 c8 61 20 20 20 20 20 20 20 |nfirm...a |
00000200 20 20 20 20 f2 6f 70 65 6e 28 21 65 76 65 6e 74 | .open(!event|
00000210 25 2c 65 76 65 6e 74 25 21 34 2c 65 76 65 6e 74 |%,event%!4,event|
00000220 25 21 38 2c 65 76 65 6e 74 25 21 31 32 2c 65 76 |%!8,event%!12,ev|
00000230 65 6e 74 25 21 31 36 2c 65 76 65 6e 74 25 21 32 |ent%!16,event%!2|
00000240 30 2c 65 76 65 6e 74 25 21 32 34 2c 65 76 65 6e |0,event%!24,even|
00000250 74 25 21 32 38 29 0d 00 d2 17 20 20 20 c9 20 33 |t%!28).... . 3|
00000260 3a 20 f2 65 6e 64 63 6f 6e 66 69 72 6d 0d 00 dc |: .endconfirm...|
00000270 1e 20 20 20 20 20 20 20 20 20 20 20 f2 63 6c 6f |. .clo|
00000280 73 65 28 21 65 76 65 6e 74 25 29 0d 00 e6 4b 20 |se(!event%)...K |
00000290 20 20 c9 20 36 3a 20 f2 6d 6f 75 73 65 28 21 65 | . 6: .mouse(!e|
000002a0 76 65 6e 74 25 2c 65 76 65 6e 74 25 21 34 2c 65 |vent%,event%!4,e|
000002b0 76 65 6e 74 25 21 38 2c 65 76 65 6e 74 25 21 31 |vent%!8,event%!1|
000002c0 32 2c 65 76 65 6e 74 25 21 31 36 2c 65 76 65 6e |2,event%!16,even|
000002d0 74 25 21 32 30 29 0d 00 f0 1a 20 20 20 20 20 20 |t%!20).... |
000002e0 20 20 20 20 20 f2 65 6e 64 63 6f 6e 66 69 72 6d | .endconfirm|
000002f0 0d 00 fa 2c 20 20 20 c9 20 39 3a 20 f2 64 65 63 |..., . 9: .dec|
00000300 6f 64 65 6d 65 6e 75 28 6d 65 6e 75 68 61 6e 64 |odemenu(menuhand|
00000310 6c 65 25 2c 20 65 76 65 6e 74 25 29 0d 01 04 31 |le%, event%)...1|
00000320 20 20 20 20 20 20 20 20 20 20 20 f2 67 65 74 70 | .getp|
00000330 6f 69 6e 74 65 72 3a e7 20 62 75 74 74 6f 6e 73 |ointer:. buttons|
00000340 25 80 31 20 8c 20 f2 72 65 6d 65 6e 75 0d 01 0e |%.1 . .remenu...|
00000350 1f 20 20 20 c9 20 31 37 2c 31 38 3a f2 72 65 63 |. . 17,18:.rec|
00000360 65 69 76 65 28 65 76 65 6e 74 25 29 0d 01 18 1c |eive(event%)....|
00000370 20 20 20 c9 20 31 39 3a f2 62 6f 75 6e 63 65 64 | . 19:.bounced|
00000380 28 65 76 65 6e 74 25 29 0d 01 22 07 20 20 cb 0d |(event%)..". ..|
00000390 01 2c 06 20 cd 0d 01 36 05 e1 0d 01 40 05 3a 0d |.,. ...6....@.:.|
000003a0 01 4a 15 dd 20 a4 70 5f 66 69 65 6c 64 28 73 69 |.J.. .p_field(si|
000003b0 7a 65 25 29 0d 01 54 1c 20 70 72 69 6e 74 65 72 |ze%)..T. printer|
000003c0 5f 66 69 65 6c 64 25 20 2b 3d 20 73 69 7a 65 25 |_field% += size%|
000003d0 0d 01 5e 1d 20 3d 20 70 72 69 6e 74 65 72 5f 66 |..^. = printer_f|
000003e0 69 65 6c 64 25 20 2d 20 73 69 7a 65 25 0d 01 68 |ield% - size%..h|
000003f0 05 3a 0d 01 72 0b dd 20 f2 69 6e 69 74 0d 01 7c |.:..r.. .init..||
00000400 07 ea 20 85 0d 01 86 0e 69 6e 5f 66 69 6c 65 25 |.. .....in_file%|
00000410 3d 30 0d 01 90 0f 6f 75 74 5f 66 69 6c 65 25 3d |=0....out_file%=|
00000420 30 0d 01 9a 42 f4 20 64 65 66 69 6e 65 20 70 72 |0...B. define pr|
00000430 69 6e 74 65 72 20 63 6c 61 73 73 20 69 6e 64 65 |inter class inde|
00000440 70 65 6e 64 65 6e 74 20 66 69 65 6c 64 73 20 69 |pendent fields i|
00000450 6e 20 70 72 69 6e 74 65 72 20 64 61 74 61 20 61 |n printer data a|
00000460 72 65 61 0d 01 a4 16 70 72 69 6e 74 65 72 5f 66 |rea....printer_f|
00000470 69 65 6c 64 25 20 3d 20 30 0d 01 ae 27 20 20 6c |ield% = 0...' l|
00000480 69 73 74 5f 70 6f 69 6e 74 65 72 5f 66 69 65 6c |ist_pointer_fiel|
00000490 64 25 20 3d 20 a4 70 5f 66 69 65 6c 64 28 34 29 |d% = .p_field(4)|
000004a0 0d 01 b8 27 20 20 20 20 20 20 20 20 20 70 78 72 |...' pxr|
000004b0 65 73 5f 66 69 65 6c 64 25 20 3d 20 a4 70 5f 66 |es_field% = .p_f|
000004c0 69 65 6c 64 28 34 29 0d 01 c2 27 20 20 20 20 20 |ield(4)...' |
000004d0 20 20 20 20 70 79 72 65 73 5f 66 69 65 6c 64 25 | pyres_field%|
000004e0 20 3d 20 a4 70 5f 66 69 65 6c 64 28 34 29 0d 01 | = .p_field(4)..|
000004f0 cc 27 20 20 20 20 20 20 66 65 61 74 75 72 65 73 |.' features|
00000500 5f 66 69 65 6c 64 25 20 3d 20 a4 70 5f 66 69 65 |_field% = .p_fie|
00000510 6c 64 28 34 29 0d 01 d6 27 20 20 20 64 65 73 63 |ld(4)...' desc|
00000520 72 69 70 74 69 6f 6e 5f 66 69 65 6c 64 25 20 3d |ription_field% =|
00000530 20 a4 70 5f 66 69 65 6c 64 28 34 29 0d 01 e0 27 | .p_field(4)...'|
00000540 70 78 72 65 73 5f 68 61 6c 66 74 6f 6e 65 5f 66 |pxres_halftone_f|
00000550 69 65 6c 64 25 20 3d 20 a4 70 5f 66 69 65 6c 64 |ield% = .p_field|
00000560 28 34 29 0d 01 ea 27 70 79 72 65 73 5f 68 61 6c |(4)...'pyres_hal|
00000570 66 74 6f 6e 65 5f 66 69 65 6c 64 25 20 3d 20 a4 |ftone_field% = .|
00000580 70 5f 66 69 65 6c 64 28 34 29 0d 01 f4 27 70 72 |p_field(4)...'pr|
00000590 69 6e 74 65 72 5f 6e 75 6d 62 65 72 5f 66 69 65 |inter_number_fie|
000005a0 6c 64 25 20 3d 20 a4 70 5f 66 69 65 6c 64 28 34 |ld% = .p_field(4|
000005b0 29 0d 01 fe 27 20 20 20 20 70 61 67 65 5f 77 69 |)...' page_wi|
000005c0 64 74 68 5f 66 69 65 6c 64 25 20 3d 20 a4 70 5f |dth_field% = .p_|
000005d0 66 69 65 6c 64 28 34 29 0d 02 08 27 20 20 20 70 |field(4)...' p|
000005e0 61 67 65 5f 68 65 69 67 68 74 5f 66 69 65 6c 64 |age_height_field|
000005f0 25 20 3d 20 a4 70 5f 66 69 65 6c 64 28 34 29 0d |% = .p_field(4).|
00000600 02 12 27 20 20 20 70 61 67 65 5f 62 6f 74 74 6f |..' page_botto|
00000610 6d 5f 66 69 65 6c 64 25 20 3d 20 a4 70 5f 66 69 |m_field% = .p_fi|
00000620 65 6c 64 28 34 29 0d 02 1c 27 20 20 20 20 20 20 |eld(4)...' |
00000630 70 61 67 65 5f 74 6f 70 5f 66 69 65 6c 64 25 20 |page_top_field% |
00000640 3d 20 a4 70 5f 66 69 65 6c 64 28 34 29 0d 02 26 |= .p_field(4)..&|
00000650 27 20 20 20 20 20 70 61 67 65 5f 6c 65 66 74 5f |' page_left_|
00000660 66 69 65 6c 64 25 20 3d 20 a4 70 5f 66 69 65 6c |field% = .p_fiel|
00000670 64 28 34 29 0d 02 30 27 20 20 20 20 70 61 67 65 |d(4)..0' page|
00000680 5f 72 69 67 68 74 5f 66 69 65 6c 64 25 20 3d 20 |_right_field% = |
00000690 a4 70 5f 66 69 65 6c 64 28 34 29 0d 02 3a 33 f4 |.p_field(4)..:3.|
000006a0 20 64 65 66 69 6e 65 20 63 6c 61 73 73 20 69 6e | define class in|
000006b0 64 65 70 65 6e 64 65 6e 74 20 69 63 6f 6e 73 20 |dependent icons |
000006c0 69 6e 20 6d 61 69 6e 20 77 69 6e 64 6f 77 0d 02 |in main window..|
000006d0 44 19 6d 61 69 6e 5f 64 65 73 63 72 69 70 74 69 |D.main_descripti|
000006e0 6f 6e 25 20 3d 20 31 0d 02 4e 2f f4 20 6d 61 72 |on% = 1..N/. mar|
000006f0 6b 20 63 6f 6e 66 69 67 75 72 65 20 6f 70 74 69 |k configure opti|
00000700 6f 6e 73 20 61 73 20 75 6e 73 65 74 20 69 6e 69 |ons as unset ini|
00000710 74 69 61 6c 6c 79 0d 02 58 18 20 20 20 70 72 69 |tially..X. pri|
00000720 6e 74 65 72 5f 70 74 72 25 20 3d 20 2d 31 0d 02 |nter_ptr% = -1..|
00000730 62 17 70 72 69 6e 74 65 72 5f 63 6f 6e 66 69 67 |b.printer_config|
00000740 25 20 3d 20 30 0d 02 6c 17 20 20 20 70 72 69 6e |% = 0..l. prin|
00000750 74 65 72 5f 6e 65 77 25 20 3d 20 30 0d 02 76 18 |ter_new% = 0..v.|
00000760 20 20 6c 6f 63 61 74 69 6f 6e 5f 70 74 72 25 20 | location_ptr% |
00000770 3d 20 2d 31 0d 02 80 18 20 20 20 20 20 20 62 61 |= -1.... ba|
00000780 75 64 5f 70 74 72 25 20 3d 20 2d 31 0d 02 8a 18 |ud_ptr% = -1....|
00000790 20 20 20 20 20 20 64 61 74 61 5f 70 74 72 25 20 | data_ptr% |
000007a0 3d 20 2d 31 0d 02 94 18 20 20 20 20 20 20 20 58 |= -1.... X|
000007b0 4f 4e 5f 70 74 72 25 20 3d 20 2d 31 0d 02 9e 18 |ON_ptr% = -1....|
000007c0 20 20 20 20 73 65 72 76 65 72 5f 70 74 72 25 20 | server_ptr% |
000007d0 3d 20 2d 31 0d 02 a8 18 20 20 20 20 20 20 66 65 |= -1.... fe|
000007e0 65 64 5f 70 74 72 25 20 3d 20 2d 31 0d 02 b2 14 |ed_ptr% = -1....|
000007f0 f4 20 6d 65 73 73 61 67 65 20 76 61 6c 75 65 73 |. message values|
00000800 0d 02 bc 22 4d 65 73 73 61 67 65 5f 50 72 69 6e |..."Message_Prin|
00000810 74 46 69 6c 65 25 20 20 20 20 20 3d 26 38 30 31 |tFile% =&801|
00000820 34 30 0d 02 c6 22 4d 65 73 73 61 67 65 5f 57 69 |40..."Message_Wi|
00000830 6c 6c 50 72 69 6e 74 25 20 20 20 20 20 3d 26 38 |llPrint% =&8|
00000840 30 31 34 31 0d 02 d0 22 4d 65 73 73 61 67 65 5f |0141..."Message_|
00000850 50 72 69 6e 74 53 61 76 65 25 20 20 20 20 20 3d |PrintSave% =|
00000860 26 38 30 31 34 32 0d 02 da 22 4d 65 73 73 61 67 |&80142..."Messag|
00000870 65 5f 50 72 69 6e 74 49 6e 69 74 25 20 20 20 20 |e_PrintInit% |
00000880 20 3d 26 38 30 31 34 33 0d 02 e4 22 4d 65 73 73 | =&80143..."Mess|
00000890 61 67 65 5f 50 72 69 6e 74 42 75 73 79 25 20 20 |age_PrintBusy% |
000008a0 20 20 20 3d 26 38 30 31 34 34 0d 02 ee 22 4d 65 | =&80144..."Me|
000008b0 73 73 61 67 65 5f 50 72 69 6e 74 54 79 70 65 4f |ssage_PrintTypeO|
000008c0 64 64 25 20 20 3d 26 38 30 31 34 35 0d 02 f8 22 |dd% =&80145..."|
000008d0 4d 65 73 73 61 67 65 5f 50 72 69 6e 74 54 79 70 |Message_PrintTyp|
000008e0 65 4b 6e 6f 77 6e 25 3d 26 38 30 31 34 36 0d 03 |eKnown%=&80146..|
000008f0 02 22 4d 65 73 73 61 67 65 5f 53 65 74 50 72 69 |."Message_SetPri|
00000900 6e 74 65 72 25 20 20 20 20 3d 26 38 30 31 34 37 |nter% =&80147|
00000910 0d 03 0c 1d f4 20 64 69 6d 65 6e 73 69 6f 6e 20 |..... dimension |
00000920 73 79 73 74 65 6d 20 61 72 72 61 79 73 0d 03 16 |system arrays...|
00000930 0d de 20 71 25 20 26 38 30 30 0d 03 20 11 de 20 |.. q% &800.. .. |
00000940 65 76 65 6e 74 25 20 26 38 30 30 0d 03 2a 10 6d |event% &800..*.m|
00000950 61 78 62 75 66 25 3d 26 38 30 30 0d 03 34 30 de |axbuf%=&800..40.|
00000960 20 63 75 72 62 75 66 25 20 6d 61 78 62 75 66 25 | curbuf% maxbuf%|
00000970 3a 20 65 6e 64 62 75 66 25 20 3d 20 63 75 72 62 |: endbuf% = curb|
00000980 75 66 25 2b 6d 61 78 62 75 66 25 0d 03 3e 2f de |uf%+maxbuf%..>/.|
00000990 20 6d 65 6e 75 66 72 65 65 25 20 26 38 30 30 3a | menufree% &800:|
000009a0 20 6d 65 6e 75 65 6e 64 25 20 3d 20 6d 65 6e 75 | menuend% = menu|
000009b0 66 72 65 65 25 2b 26 38 30 30 0d 03 48 12 de 20 |free%+&800..H.. |
000009c0 69 63 6f 6e 5f 62 75 66 25 20 34 30 0d 03 52 27 |icon_buf% 40..R'|
000009d0 de 20 74 65 78 74 5f 62 75 66 66 65 72 25 20 31 |. text_buffer% 1|
000009e0 32 2c 20 76 61 6c 69 64 5f 62 75 66 66 65 72 25 |2, valid_buffer%|
000009f0 20 31 32 0d 03 5c 0f de 20 62 6c 6f 63 6b 25 20 | 12..\.. block% |
00000a00 32 30 0d 03 66 14 de 20 65 72 72 6f 72 5f 62 6c |20..f.. error_bl|
00000a10 6b 25 20 32 35 36 0d 03 70 0e de 20 6d 73 67 25 |k% 256..p.. msg%|
00000a20 20 32 35 36 0d 03 7a 0e 62 75 66 73 7a 25 3d 32 | 256..z.bufsz%=2|
00000a30 35 36 0d 03 84 11 de 20 62 75 66 25 20 62 75 66 |56..... buf% buf|
00000a40 73 7a 25 0d 03 8e 14 f4 20 73 65 74 20 75 70 20 |sz%..... set up |
00000a50 63 6f 6c 6f 75 72 73 0d 03 98 21 60 77 62 63 6f |colours...!`wbco|
00000a60 6c 3d 26 30 3a 60 77 66 63 6f 6c 3d 26 37 3a 60 |l=&0:`wfcol=&7:`|
00000a70 74 66 63 6f 6c 3d 26 37 0d 03 a2 18 f4 20 69 6e |tfcol=&7..... in|
00000a80 69 74 69 61 6c 20 6d 61 73 6b 20 73 74 61 74 65 |itial mask state|
00000a90 0d 03 ac 2f 70 6f 6c 6c 5f 6d 61 73 6b 25 20 3d |.../poll_mask% =|
00000aa0 20 ac 28 25 31 31 31 20 3c 3c 20 31 37 29 3a 20 | .(%111 << 17): |
00000ab0 f4 20 6f 6e 6c 79 20 6d 65 73 73 61 67 65 73 0d |. only messages.|
00000ac0 03 b6 3a 63 6f 6e 66 69 72 6d 5f 61 6e 73 77 65 |..:confirm_answe|
00000ad0 72 25 20 3d 20 30 20 3a 20 f4 20 6e 6f 74 20 69 |r% = 0 : . not i|
00000ae0 6e 73 69 64 65 20 46 4e 63 6f 6e 66 69 72 6d 20 |nside FNconfirm |
00000af0 63 75 72 72 65 6e 74 6c 79 0d 03 c0 17 f2 50 72 |currently.....Pr|
00000b00 69 6e 74 65 72 5f 69 6e 69 74 69 61 6c 69 73 65 |inter_initialise|
00000b10 0d 03 ca 1a 50 72 69 6e 74 65 72 24 3d 50 72 69 |....Printer$=Pri|
00000b20 6e 74 65 72 43 6c 61 73 73 24 0d 03 d4 11 73 61 |nterClass$....sa|
00000b30 76 65 5f 6e 61 6d 65 24 3d 22 22 0d 03 de 10 70 |ve_name$=""....p|
00000b40 72 69 6e 74 5f 72 65 66 25 3d 30 0d 03 e8 16 f4 |rint_ref%=0.....|
00000b50 20 20 49 6e 69 74 69 61 6c 69 73 65 20 57 49 4d | Initialise WIM|
00000b60 50 0d 03 f2 20 de 20 74 61 73 6b 69 64 25 20 35 |P... . taskid% 5|
00000b70 3a 20 24 74 61 73 6b 69 64 25 3d 22 54 41 53 4b |: $taskid%="TASK|
00000b80 22 0d 03 fc 3e c8 99 20 22 57 69 6d 70 5f 49 6e |"...>.. "Wimp_In|
00000b90 69 74 69 61 6c 69 73 65 22 2c 32 30 30 2c 21 74 |itialise",200,!t|
00000ba0 61 73 6b 69 64 25 2c 50 72 69 6e 74 65 72 24 20 |askid%,Printer$ |
00000bb0 b8 20 2c 74 61 73 6b 5f 68 61 6e 64 6c 65 25 0d |. ,task_handle%.|
00000bc0 04 06 22 ee 20 85 20 ea 20 f2 65 72 72 6f 72 28 |..". . . .error(|
00000bd0 9f 2c 20 f6 24 29 3a f2 74 65 72 6d 69 6e 61 74 |., .$):.terminat|
00000be0 65 0d 04 10 0d 6d 73 67 25 21 30 3d 32 30 0d 04 |e....msg%!0=20..|
00000bf0 1a 0d 6d 73 67 25 21 31 32 3d 30 0d 04 24 1e 6d |..msg%!12=0..$.m|
00000c00 73 67 25 21 31 36 3d 4d 65 73 73 61 67 65 5f 50 |sg%!16=Message_P|
00000c10 72 69 6e 74 49 6e 69 74 25 0d 04 2e 26 c8 99 20 |rintInit%...&.. |
00000c20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 |"Wimp_SendMessag|
00000c30 65 22 2c 20 31 38 2c 20 6d 73 67 25 2c 20 30 0d |e", 18, msg%, 0.|
00000c40 04 38 05 e1 0d 04 42 05 3a 0d 04 4c 0c dd 20 f2 |.8....B.:..L.. .|
00000c50 69 6e 69 74 32 0d 04 56 08 ea 20 53 24 0d 04 60 |init2..V.. S$..`|
00000c60 07 ea 20 85 0d 04 6a 1c f4 20 6c 6f 61 64 20 74 |.. ...j.. load t|
00000c70 68 65 20 74 65 6d 70 6c 61 74 65 20 66 69 6c 65 |he template file|
00000c80 0d 04 74 35 c8 99 20 22 57 69 6d 70 5f 4f 70 65 |..t5.. "Wimp_Ope|
00000c90 6e 54 65 6d 70 6c 61 74 65 22 2c 2c 22 3c 50 44 |nTemplate",,"<PD|
00000ca0 72 69 76 65 72 24 64 69 72 3e 2e 54 65 6d 70 6c |river$dir>.Templ|
00000cb0 61 74 65 73 22 0d 04 7e 1b 6d 61 69 6e 25 20 3d |ates"..~.main% =|
00000cc0 20 a4 77 69 6e 64 6f 77 28 22 6d 61 69 6e 22 29 | .window("main")|
00000cd0 0d 04 88 21 63 6f 6e 66 69 72 6d 25 20 3d 20 a4 |...!confirm% = .|
00000ce0 77 69 6e 64 6f 77 28 22 63 6f 6e 66 69 72 6d 22 |window("confirm"|
00000cf0 29 0d 04 92 1b 69 6e 66 6f 25 20 3d 20 a4 77 69 |)....info% = .wi|
00000d00 6e 64 6f 77 28 22 69 6e 66 6f 22 29 0d 04 9c 1b |ndow("info")....|
00000d10 f2 50 72 69 6e 74 65 72 5f 6c 6f 61 64 5f 74 65 |.Printer_load_te|
00000d20 6d 70 6c 61 74 65 73 0d 04 a6 1b c8 99 20 22 57 |mplates...... "W|
00000d30 69 6d 70 5f 43 6c 6f 73 65 54 65 6d 70 6c 61 74 |imp_CloseTemplat|
00000d40 65 22 0d 04 b0 16 70 72 69 6e 74 65 72 5f 74 79 |e"....printer_ty|
00000d50 70 65 24 20 3d 20 22 22 0d 04 ba 15 69 63 70 72 |pe$ = ""....icpr|
00000d60 69 6e 74 25 3d a4 69 63 6f 6e 62 61 72 0d 04 c4 |int%=.iconbar...|
00000d70 1a f4 20 63 72 65 61 74 65 20 74 68 65 20 6d 65 |.. create the me|
00000d80 6e 75 20 74 72 65 65 0d 04 ce 13 de 20 73 65 72 |nu tree..... ser|
00000d90 76 65 72 5f 6e 65 77 25 20 38 0d 04 d8 15 24 73 |ver_new% 8....$s|
00000da0 65 72 76 65 72 5f 6e 65 77 25 20 3d 20 22 22 0d |erver_new% = "".|
00000db0 04 e2 14 de 20 66 69 6c 65 5f 6e 61 6d 65 25 20 |.... file_name% |
00000dc0 32 30 31 0d 04 ec 3d c8 99 20 22 58 4f 53 5f 52 |201...=.. "XOS_R|
00000dd0 65 61 64 56 61 72 56 61 6c 22 2c 22 50 72 69 6e |eadVarVal","Prin|
00000de0 74 65 72 54 79 70 65 24 35 22 2c 66 69 6c 65 5f |terType$5",file_|
00000df0 6e 61 6d 65 25 2c 32 30 30 20 b8 20 2c 2c 4c 25 |name%,200 . ,,L%|
00000e00 0d 04 f6 0a e7 20 4c 25 20 8c 0d 05 00 17 20 66 |..... L% ..... f|
00000e10 69 6c 65 5f 6e 61 6d 65 25 3f 4c 25 20 3d 20 31 |ile_name%?L% = 1|
00000e20 33 0d 05 0a 05 cc 0d 05 14 2c 20 24 66 69 6c 65 |3........, $file|
00000e30 5f 6e 61 6d 65 25 3d 22 3c 50 44 72 69 76 65 72 |_name%="<PDriver|
00000e40 24 44 69 72 3e 2e 5e 2e 50 72 69 6e 74 44 61 74 |$Dir>.^.PrintDat|
00000e50 61 22 0d 05 1e 05 cd 0d 05 28 62 62 61 75 64 6d |a".......(bbaudm|
00000e60 25 20 3d 20 a4 63 72 6d 65 6e 75 28 22 23 42 61 |% = .crmenu("#Ba|
00000e70 75 64 3b 37 35 3b 31 35 30 3b 33 30 30 3b 31 32 |ud;75;150;300;12|
00000e80 30 30 3b 32 34 30 30 3b 34 38 30 30 3b 39 36 30 |00;2400;4800;960|
00000e90 30 3b 31 39 32 30 30 3b 35 30 3b 31 31 30 3b 31 |0;19200;50;110;1|
00000ea0 33 34 2e 35 3b 36 30 30 3b 31 38 30 30 3b 33 36 |34.5;600;1800;36|
00000eb0 30 30 3b 37 32 30 30 22 29 0d 05 32 25 62 69 74 |00;7200")..2%bit|
00000ec0 73 6d 25 20 3d 20 a4 63 72 6d 65 6e 75 28 22 23 |sm% = .crmenu("#|
00000ed0 42 69 74 73 3b 35 3b 36 3b 37 3b 38 22 29 0d 05 |Bits;5;6;7;8")..|
00000ee0 3c 3e 70 61 72 69 74 79 6d 25 20 3d 20 a4 63 72 |<>paritym% = .cr|
00000ef0 6d 65 6e 75 28 22 23 50 61 72 69 74 79 3b 6f 66 |menu("#Parity;of|
00000f00 66 3b 6f 64 64 3b 65 76 65 6e 3b 31 20 6f 6e 20 |f;odd;even;1 on |
00000f10 54 58 3b 30 20 6f 6e 20 54 58 22 29 0d 05 46 53 |TX;0 on TX")..FS|
00000f20 73 74 6f 70 6d 25 20 3d 20 a4 63 72 6d 65 6e 75 |stopm% = .crmenu|
00000f30 28 22 23 53 74 6f 70 20 62 69 74 73 3b 31 3b 32 |("#Stop bits;1;2|
00000f40 20 28 31 2e 35 20 69 66 20 35 20 62 69 74 73 20 | (1.5 if 5 bits |
00000f50 70 61 72 69 74 79 2c 31 20 69 66 20 38 20 62 69 |parity,1 if 8 bi|
00000f60 74 73 20 6e 6f 20 70 61 72 69 74 79 29 22 29 0d |ts no parity)").|
00000f70 05 50 51 64 61 74 61 6d 25 20 3d 20 a4 63 72 6d |.PQdatam% = .crm|
00000f80 65 6e 75 28 22 23 44 61 74 61 20 66 6f 72 6d 61 |enu("#Data forma|
00000f90 74 3b 42 69 74 73 3e 62 69 74 73 6d 25 3b 50 61 |t;Bits>bitsm%;Pa|
00000fa0 72 69 74 79 3e 70 61 72 69 74 79 6d 25 3b 53 74 |rity>paritym%;St|
00000fb0 6f 70 20 62 69 74 73 3e 73 74 6f 70 6d 25 22 29 |op bits>stopm%")|
00000fc0 0d 05 5a 50 73 65 72 69 61 6c 6d 25 20 3d 20 a4 |..ZPserialm% = .|
00000fd0 63 72 6d 65 6e 75 28 22 23 53 65 72 69 61 6c 3b |crmenu("#Serial;|
00000fe0 42 61 75 64 20 72 61 74 65 3e 62 61 75 64 6d 25 |Baud rate>baudm%|
00000ff0 3b 44 61 74 61 20 66 6f 72 6d 61 74 3e 64 61 74 |;Data format>dat|
00001000 61 6d 25 3b 58 4f 4e 20 2f 20 58 4f 46 46 22 29 |am%;XON / XOFF")|
00001010 0d 05 64 36 6e 65 74 70 72 69 6e 74 6d 25 20 3d |..d6netprintm% =|
00001020 20 a4 63 72 6d 65 6e 75 28 22 23 4e 65 74 20 70 | .crmenu("#Net p|
00001030 72 69 6e 74 3b 24 73 65 72 76 65 72 5f 6e 65 77 |rint;$server_new|
00001040 25 28 38 29 22 29 0d 05 6e 36 66 69 6c 65 6d 65 |%(8)")..n6fileme|
00001050 6e 75 25 20 3d 20 a4 63 72 6d 65 6e 75 28 22 23 |nu% = .crmenu("#|
00001060 46 69 6c 65 20 6e 61 6d 65 3b 24 66 69 6c 65 5f |File name;$file_|
00001070 6e 61 6d 65 25 28 32 30 30 29 22 29 0d 05 78 91 |name%(200)")..x.|
00001080 70 72 69 6e 74 6d 65 6e 75 25 20 3d 20 a4 63 72 |printmenu% = .cr|
00001090 6d 65 6e 75 28 22 23 22 2b 50 72 69 6e 74 65 72 |menu("#"+Printer|
000010a0 24 2b 22 3b 49 6e 66 6f 3e 69 6e 66 6f 25 23 3b |$+";Info>info%#;|
000010b0 50 61 72 61 6c 6c 65 6c 3b 53 65 72 69 61 6c 3e |Parallel;Serial>|
000010c0 73 65 72 69 61 6c 6d 25 3b 4e 65 74 77 6f 72 6b |serialm%;Network|
000010d0 3e 6e 65 74 70 72 69 6e 74 6d 25 3b 46 69 6c 65 |>netprintm%;File|
000010e0 3e 66 69 6c 65 6d 65 6e 75 25 23 3b 53 61 76 65 |>filemenu%#;Save|
000010f0 20 63 68 6f 69 63 65 73 3b 53 74 6f 70 20 70 72 | choices;Stop pr|
00001100 69 6e 74 69 6e 67 3b 51 75 69 74 22 29 0d 05 82 |inting;Quit")...|
00001110 17 f2 73 65 74 5f 70 72 69 6e 74 5f 73 74 61 74 |..set_print_stat|
00001120 65 28 a3 29 0d 05 8c 0d f2 64 65 66 61 75 6c 74 |e(.).....default|
00001130 73 0d 05 96 1e f2 50 72 69 6e 74 65 72 5f 73 65 |s.....Printer_se|
00001140 74 5f 69 6e 69 74 69 61 6c 5f 73 74 61 74 65 0d |t_initial_state.|
00001150 05 a0 19 ee 20 85 20 ea 20 f2 65 72 72 6f 72 28 |.... . . .error(|
00001160 9f 2c 20 f6 24 29 3a e1 0d 05 aa 10 f2 63 68 61 |., .$):......cha|
00001170 6e 67 65 5f 69 63 6f 6e 0d 05 b4 05 e1 0d 05 be |nge_icon........|
00001180 05 3a 0d 05 c8 11 dd 20 f2 53 61 76 65 43 6f 6e |.:..... .SaveCon|
00001190 66 69 67 0d 05 d2 25 6f 75 74 5f 66 69 6c 65 25 |fig...%out_file%|
000011a0 3d ad 22 3c 50 44 72 69 76 65 72 24 64 69 72 3e |=."<PDriver$dir>|
000011b0 2e 50 72 44 61 74 61 22 0d 05 dc 1a e7 20 70 72 |.PrData"..... pr|
000011c0 69 6e 74 65 72 5f 70 74 72 25 20 3c 3e 20 2d 31 |inter_ptr% <> -1|
000011d0 20 8c 0d 05 e6 28 20 e7 20 70 72 69 6e 74 65 72 | ....( . printer|
000011e0 5f 63 6f 6e 66 69 67 25 20 3c 3e 20 70 72 69 6e |_config% <> prin|
000011f0 74 65 72 5f 6e 65 77 25 20 8c 0d 05 f0 20 20 20 |ter_new% .... |
00001200 cf 23 6f 75 74 5f 66 69 6c 65 25 20 3d 20 70 72 |.#out_file% = pr|
00001210 69 6e 74 65 72 5f 70 74 72 25 0d 05 fa 28 20 20 |inter_ptr%...( |
00001220 d5 23 6f 75 74 5f 66 69 6c 65 25 2c c2 22 30 22 |.#out_file%,."0"|
00001230 2b c3 70 72 69 6e 74 65 72 5f 6e 65 77 25 2c 32 |+.printer_new%,2|
00001240 29 3b 0d 06 04 24 20 20 70 72 69 6e 74 65 72 5f |);...$ printer_|
00001250 63 6f 6e 66 69 67 25 20 3d 20 70 72 69 6e 74 65 |config% = printe|
00001260 72 5f 6e 65 77 25 0d 06 0e 06 20 cd 0d 06 18 05 |r_new%.... .....|
00001270 cd 0d 06 22 3d e7 20 6c 6f 63 61 74 69 6f 6e 5f |..."=. location_|
00001280 6e 65 77 25 3d 35 20 80 20 a4 6c 6f 77 65 72 63 |new%=5 . .lowerc|
00001290 61 73 65 28 c0 24 66 69 6c 65 5f 6e 61 6d 65 25 |ase(.$file_name%|
000012a0 2c 35 29 29 3d 22 6e 75 6c 6c 3a 22 20 8c 0d 06 |,5))="null:" ...|
000012b0 2c 2a 20 e7 20 6c 6f 63 61 74 69 6f 6e 5f 63 6f |,* . location_co|
000012c0 6e 66 69 67 25 20 3c 3e 20 6c 6f 63 61 74 69 6f |nfig% <> locatio|
000012d0 6e 5f 6e 65 77 25 20 8c 0d 06 36 1d 20 20 e7 20 |n_new% ...6. . |
000012e0 6c 6f 63 61 74 69 6f 6e 5f 70 74 72 25 20 3c 3e |location_ptr% <>|
000012f0 20 2d 31 20 8c 0d 06 40 22 20 20 20 cf 23 6f 75 | -1 ...@" .#ou|
00001300 74 5f 66 69 6c 65 25 20 3d 20 6c 6f 63 61 74 69 |t_file% = locati|
00001310 6f 6e 5f 70 74 72 25 0d 06 4a 17 20 20 20 d5 23 |on_ptr%..J. .#|
00001320 6f 75 74 5f 66 69 6c 65 25 2c 22 30 22 3b 0d 06 |out_file%,"0";..|
00001330 54 07 20 20 cd 0d 06 5e 24 20 20 6c 6f 63 61 74 |T. ...^$ locat|
00001340 69 6f 6e 5f 63 6f 6e 66 69 67 25 3d 6c 6f 63 61 |ion_config%=loca|
00001350 74 69 6f 6e 5f 6e 65 77 25 0d 06 68 06 20 cd 0d |tion_new%..h. ..|
00001360 06 72 23 20 c8 99 22 4f 53 5f 43 4c 49 22 2c 22 |.r# .."OS_CLI","|
00001370 43 6f 6e 66 69 67 75 72 65 20 50 72 69 6e 74 20 |Configure Print |
00001380 30 22 0d 06 7c 05 cc 0d 06 86 2a 20 e7 20 6c 6f |0"..|.....* . lo|
00001390 63 61 74 69 6f 6e 5f 63 6f 6e 66 69 67 25 20 3c |cation_config% <|
000013a0 3e 20 6c 6f 63 61 74 69 6f 6e 5f 6e 65 77 25 20 |> location_new% |
000013b0 8c 0d 06 90 1d 20 20 e7 20 6c 6f 63 61 74 69 6f |..... . locatio|
000013c0 6e 5f 70 74 72 25 20 3c 3e 20 2d 31 20 8c 0d 06 |n_ptr% <> -1 ...|
000013d0 9a 22 20 20 20 cf 23 6f 75 74 5f 66 69 6c 65 25 |." .#out_file%|
000013e0 20 3d 20 6c 6f 63 61 74 69 6f 6e 5f 70 74 72 25 | = location_ptr%|
000013f0 0d 06 a4 22 20 20 20 d5 23 6f 75 74 5f 66 69 6c |..." .#out_fil|
00001400 65 25 2c c3 6c 6f 63 61 74 69 6f 6e 5f 6e 65 77 |e%,.location_new|
00001410 25 3b 0d 06 ae 07 20 20 cd 0d 06 b8 24 20 20 6c |%;.... ....$ l|
00001420 6f 63 61 74 69 6f 6e 5f 63 6f 6e 66 69 67 25 3d |ocation_config%=|
00001430 6c 6f 63 61 74 69 6f 6e 5f 6e 65 77 25 0d 06 c2 |location_new%...|
00001440 06 20 cd 0d 06 cc 32 20 c8 99 22 58 4f 53 5f 43 |. ....2 .."XOS_C|
00001450 4c 49 22 2c 22 43 6f 6e 66 69 67 75 72 65 20 50 |LI","Configure P|
00001460 72 69 6e 74 20 22 2b c3 6c 6f 63 61 74 69 6f 6e |rint "+.location|
00001470 5f 6e 65 77 25 0d 06 d6 05 cd 0d 06 e0 21 e7 20 |_new%........!. |
00001480 62 61 75 64 5f 63 6f 6e 66 69 67 25 20 3c 3e 20 |baud_config% <> |
00001490 62 61 75 64 5f 6e 65 77 25 20 8c 0d 06 ea 18 20 |baud_new% ..... |
000014a0 e7 20 62 61 75 64 5f 70 74 72 25 20 3c 3e 20 2d |. baud_ptr% <> -|
000014b0 31 20 8c 0d 06 f4 1b 20 20 cf 23 6f 75 74 5f 66 |1 ..... .#out_f|
000014c0 69 6c 65 25 3d 62 61 75 64 5f 70 74 72 25 0d 06 |ile%=baud_ptr%..|
000014d0 fe 1d 20 20 d5 23 6f 75 74 5f 66 69 6c 65 25 2c |.. .#out_file%,|
000014e0 c3 62 61 75 64 5f 6e 65 77 25 3b 0d 07 08 06 20 |.baud_new%;.... |
000014f0 cd 0d 07 12 1d 20 62 61 75 64 5f 63 6f 6e 66 69 |..... baud_confi|
00001500 67 25 20 3d 20 62 61 75 64 5f 6e 65 77 25 0d 07 |g% = baud_new%..|
00001510 1c 05 cd 0d 07 26 52 e7 20 6c 6f 63 61 74 69 6f |.....&R. locatio|
00001520 6e 5f 6e 65 77 25 3d 32 20 80 20 62 61 75 64 5f |n_new%=2 . baud_|
00001530 6e 65 77 25 3c 3d 37 20 8c 20 c8 99 22 4f 53 5f |new%<=7 . .."OS_|
00001540 43 4c 49 22 2c 22 43 6f 6e 66 69 67 75 72 65 20 |CLI","Configure |
00001550 42 61 75 64 20 22 2b c3 28 62 61 75 64 5f 6e 65 |Baud "+.(baud_ne|
00001560 77 25 2b 31 29 0d 07 30 21 e7 20 64 61 74 61 5f |w%+1)..0!. data_|
00001570 63 6f 6e 66 69 67 25 20 3c 3e 20 64 61 74 61 5f |config% <> data_|
00001580 6e 65 77 25 20 8c 0d 07 3a 18 20 e7 20 64 61 74 |new% ...:. . dat|
00001590 61 5f 70 74 72 25 20 3c 3e 20 2d 31 20 8c 0d 07 |a_ptr% <> -1 ...|
000015a0 44 1b 20 20 cf 23 6f 75 74 5f 66 69 6c 65 25 3d |D. .#out_file%=|
000015b0 64 61 74 61 5f 70 74 72 25 0d 07 4e 28 20 20 41 |data_ptr%..N( A|
000015c0 24 3d c3 7e 28 64 61 74 61 5f 6e 65 77 25 29 3a |$=.~(data_new%):|
000015d0 e7 20 a9 41 24 3d 31 20 41 24 3d 22 30 22 2b 41 |. .A$=1 A$="0"+A|
000015e0 24 0d 07 58 19 20 20 d5 23 6f 75 74 5f 66 69 6c |$..X. .#out_fil|
000015f0 65 25 2c 22 26 22 2b 41 24 3b 0d 07 62 06 20 cd |e%,"&"+A$;..b. .|
00001600 0d 07 6c 1d 20 64 61 74 61 5f 63 6f 6e 66 69 67 |..l. data_config|
00001610 25 20 3d 20 64 61 74 61 5f 6e 65 77 25 0d 07 76 |% = data_new%..v|
00001620 05 cd 0d 07 80 1f e7 20 58 4f 4e 5f 63 6f 6e 66 |....... XON_conf|
00001630 69 67 25 20 3c 3e 20 58 4f 4e 5f 6e 65 77 25 20 |ig% <> XON_new% |
00001640 8c 0d 07 8a 17 20 e7 20 58 4f 4e 5f 70 74 72 25 |..... . XON_ptr%|
00001650 20 3c 3e 20 2d 31 20 8c 0d 07 94 1a 20 20 cf 23 | <> -1 ..... .#|
00001660 6f 75 74 5f 66 69 6c 65 25 3d 58 4f 4e 5f 70 74 |out_file%=XON_pt|
00001670 72 25 0d 07 9e 1c 20 20 d5 23 6f 75 74 5f 66 69 |r%.... .#out_fi|
00001680 6c 65 25 2c c3 58 4f 4e 5f 6e 65 77 25 3b 0d 07 |le%,.XON_new%;..|
00001690 a8 06 20 cd 0d 07 b2 1b 20 58 4f 4e 5f 63 6f 6e |.. ..... XON_con|
000016a0 66 69 67 25 20 3d 20 58 4f 4e 5f 6e 65 77 25 0d |fig% = XON_new%.|
000016b0 07 bc 05 cd 0d 07 c6 26 e7 20 73 65 72 76 65 72 |.......&. server|
000016c0 5f 63 6f 6e 66 69 67 24 20 3c 3e 20 24 73 65 72 |_config$ <> $ser|
000016d0 76 65 72 5f 6e 65 77 25 20 8c 0d 07 d0 1a 20 e7 |ver_new% ..... .|
000016e0 20 73 65 72 76 65 72 5f 70 74 72 25 20 3c 3e 20 | server_ptr% <> |
000016f0 2d 31 20 8c 0d 07 da 1d 20 20 cf 23 6f 75 74 5f |-1 ..... .#out_|
00001700 66 69 6c 65 25 3d 73 65 72 76 65 72 5f 70 74 72 |file%=server_ptr|
00001710 25 0d 07 e4 35 20 20 d5 23 6f 75 74 5f 66 69 6c |%...5 .#out_fil|
00001720 65 25 2c 24 73 65 72 76 65 72 5f 6e 65 77 25 2b |e%,$server_new%+|
00001730 c4 38 2d a9 24 73 65 72 76 65 72 5f 6e 65 77 25 |.8-.$server_new%|
00001740 2c 22 3b 22 29 3b 0d 07 ee 06 20 cd 0d 07 f8 22 |,";");.... ...."|
00001750 20 73 65 72 76 65 72 5f 63 6f 6e 66 69 67 24 20 | server_config$ |
00001760 3d 20 24 73 65 72 76 65 72 5f 6e 65 77 25 0d 08 |= $server_new%..|
00001770 02 05 cd 0d 08 0c 17 e7 20 6c 6f 63 61 74 69 6f |........ locatio|
00001780 6e 5f 6e 65 77 25 3d 34 20 8c 0d 08 16 2d 20 c8 |n_new%=4 ....- .|
00001790 99 22 58 4f 53 5f 43 4c 49 22 2c 22 43 6f 6e 66 |."XOS_CLI","Conf|
000017a0 69 67 75 72 65 20 50 53 20 22 2b 24 73 65 72 76 |igure PS "+$serv|
000017b0 65 72 5f 6e 65 77 25 0d 08 20 23 20 c8 99 22 58 |er_new%.. # .."X|
000017c0 4f 53 5f 43 4c 49 22 2c 22 50 53 20 22 2b 24 73 |OS_CLI","PS "+$s|
000017d0 65 72 76 65 72 5f 6e 65 77 25 0d 08 2a 05 cd 0d |erver_new%..*...|
000017e0 08 34 18 f2 50 72 69 6e 74 65 72 5f 41 6d 65 6e |.4..Printer_Amen|
000017f0 64 43 6f 6e 66 69 67 0d 08 3e 1b d9 23 6f 75 74 |dConfig..>..#out|
00001800 5f 66 69 6c 65 25 3a 6f 75 74 5f 66 69 6c 65 25 |_file%:out_file%|
00001810 3d 30 0d 08 48 05 e1 0d 08 52 05 3a 0d 08 5c 0f |=0..H....R.:..\.|
00001820 dd f2 74 65 72 6d 69 6e 61 74 65 0d 08 66 14 2a |..terminate..f.*|
00001830 75 6e 73 65 74 20 24 50 72 69 6e 74 69 6e 67 0d |unset $Printing.|
00001840 08 70 1c ee 20 85 20 c8 99 22 57 69 6d 70 5f 43 |.p.. . .."Wimp_C|
00001850 6c 6f 73 65 44 6f 77 6e 22 3a e0 0d 08 7a 16 f2 |loseDown":...z..|
00001860 50 72 69 6e 74 65 72 5f 74 65 72 6d 69 6e 61 74 |Printer_terminat|
00001870 65 0d 08 84 34 e7 20 69 6e 5f 66 69 6c 65 25 3c |e...4. in_file%<|
00001880 3e 30 20 c8 99 22 58 4f 53 5f 46 69 6e 64 22 2c |>0 .."XOS_Find",|
00001890 30 2c 69 6e 5f 66 69 6c 65 25 3a 69 6e 5f 66 69 |0,in_file%:in_fi|
000018a0 6c 65 25 3d 30 0d 08 8e 46 e7 20 6f 75 74 5f 66 |le%=0...F. out_f|
000018b0 69 6c 65 25 3c 3e 30 20 f2 45 73 63 4f 6e 3a c8 |ile%<>0 .EscOn:.|
000018c0 99 22 58 4f 53 5f 46 69 6e 64 22 2c 30 2c 6f 75 |."XOS_Find",0,ou|
000018d0 74 5f 66 69 6c 65 25 3a 6f 75 74 5f 66 69 6c 65 |t_file%:out_file|
000018e0 25 3d 30 3a f2 45 73 63 4f 66 66 0d 08 98 16 c8 |%=0:.EscOff.....|
000018f0 99 22 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e |."Wimp_CloseDown|
00001900 22 0d 08 a2 05 e0 0d 08 ac 05 3a 0d 08 b6 0f dd |".........:.....|
00001910 20 f2 64 65 66 61 75 6c 74 73 0d 08 c0 14 ea 20 | .defaults..... |
00001920 72 61 6d 76 61 6c 25 2c 20 74 65 6d 70 25 0d 08 |ramval%, temp%..|
00001930 ca 1a 64 61 74 61 5f 6e 65 77 25 3d 64 61 74 61 |..data_new%=data|
00001940 5f 63 6f 6e 66 69 67 25 0d 08 d4 29 f2 73 65 74 |_config%...).set|
00001950 5f 74 69 63 6b 28 62 69 74 73 6d 25 2c 33 2d 28 |_tick(bitsm%,3-(|
00001960 64 61 74 61 5f 6e 65 77 25 20 80 20 33 29 2c 31 |data_new% . 3),1|
00001970 29 0d 08 de 1a e7 20 64 61 74 61 5f 6e 65 77 25 |)..... data_new%|
00001980 20 80 20 28 31 3c 3c 33 29 20 8c 0d 08 e8 33 20 | . (1<<3) ....3 |
00001990 f2 73 65 74 5f 74 69 63 6b 28 70 61 72 69 74 79 |.set_tick(parity|
000019a0 6d 25 2c 28 28 64 61 74 61 5f 6e 65 77 25 20 3e |m%,((data_new% >|
000019b0 3e 20 34 29 20 80 20 33 29 2b 31 2c 31 29 0d 08 |> 4) . 3)+1,1)..|
000019c0 f2 05 cc 0d 08 fc 1c 20 f2 73 65 74 5f 74 69 63 |....... .set_tic|
000019d0 6b 28 70 61 72 69 74 79 6d 25 2c 30 2c 31 29 0d |k(paritym%,0,1).|
000019e0 09 06 05 cd 0d 09 10 2a f2 73 65 74 5f 74 69 63 |.......*.set_tic|
000019f0 6b 28 73 74 6f 70 6d 25 2c 28 64 61 74 61 5f 6e |k(stopm%,(data_n|
00001a00 65 77 25 3e 3e 32 29 20 80 20 31 2c 31 29 0d 09 |ew%>>2) . 1,1)..|
00001a10 1a 24 f2 73 65 74 5f 74 69 63 6b 28 73 65 72 69 |.$.set_tick(seri|
00001a20 61 6c 6d 25 2c 20 32 2c 20 58 4f 4e 5f 6e 65 77 |alm%, 2, XON_new|
00001a30 25 29 0d 09 24 23 c8 99 20 22 4f 53 5f 42 79 74 |%)..$#.. "OS_Byt|
00001a40 65 22 2c 20 31 36 31 2c 20 31 35 20 b8 20 2c 2c |e", 161, 15 . ,,|
00001a50 74 65 6d 70 25 0d 09 2e 3e e7 20 62 61 75 64 5f |temp%...>. baud_|
00001a60 70 74 72 25 20 3d 20 2d 31 20 8c 20 62 61 75 64 |ptr% = -1 . baud|
00001a70 5f 63 6f 6e 66 69 67 25 20 3d 20 28 74 65 6d 70 |_config% = (temp|
00001a80 25 20 80 20 25 30 30 30 31 31 31 30 30 29 20 3e |% . %00011100) >|
00001a90 3e 20 32 0d 09 38 1c 62 61 75 64 5f 6e 65 77 25 |> 2..8.baud_new%|
00001aa0 20 3d 20 62 61 75 64 5f 63 6f 6e 66 69 67 25 0d | = baud_config%.|
00001ab0 09 42 44 e7 20 6c 6f 63 61 74 69 6f 6e 5f 70 74 |.BD. location_pt|
00001ac0 72 25 3d 2d 31 20 8c 20 6c 6f 63 61 74 69 6f 6e |r%=-1 . location|
00001ad0 5f 63 6f 6e 66 69 67 25 20 3d 20 28 74 65 6d 70 |_config% = (temp|
00001ae0 25 20 80 20 25 31 31 31 30 30 30 30 30 29 20 3e |% . %11100000) >|
00001af0 3e 20 35 0d 09 4c 1c e7 20 6c 6f 63 61 74 69 6f |> 5..L.. locatio|
00001b00 6e 5f 63 6f 6e 66 69 67 25 20 3d 20 32 20 8c 0d |n_config% = 2 ..|
00001b10 09 56 1e 20 c8 99 22 4f 53 5f 42 79 74 65 22 2c |.V. .."OS_Byte",|
00001b20 38 2c 62 61 75 64 5f 6e 65 77 25 2b 31 0d 09 60 |8,baud_new%+1..`|
00001b30 1e 20 c8 99 22 4f 53 5f 42 79 74 65 22 2c 37 2c |. .."OS_Byte",7,|
00001b40 62 61 75 64 5f 6e 65 77 25 2b 31 0d 09 6a 20 20 |baud_new%+1..j |
00001b50 c8 99 22 4f 53 5f 53 65 72 69 61 6c 4f 70 22 2c |.."OS_SerialOp",|
00001b60 31 2c 64 61 74 61 5f 6e 65 77 25 0d 09 74 22 20 |1,data_new%..t" |
00001b70 c8 99 22 4f 53 5f 53 65 72 69 61 6c 4f 70 22 2c |.."OS_SerialOp",|
00001b80 30 2c 58 4f 4e 5f 6e 65 77 25 2c ac 31 0d 09 7e |0,XON_new%,.1..~|
00001b90 14 20 f2 50 72 69 6e 74 65 72 5f 49 67 6e 6f 72 |. .Printer_Ignor|
00001ba0 65 0d 09 88 1f 20 f2 50 72 69 6e 74 65 72 5f 58 |e.... .Printer_X|
00001bb0 6f 6e 58 6f 66 66 28 58 4f 4e 5f 6e 65 77 25 29 |onXoff(XON_new%)|
00001bc0 0d 09 92 05 cd 0d 09 9c 45 e7 20 6c 6f 63 61 74 |........E. locat|
00001bd0 69 6f 6e 5f 63 6f 6e 66 69 67 25 20 3d 20 30 20 |ion_config% = 0 |
00001be0 8c 20 24 66 69 6c 65 5f 6e 61 6d 65 25 20 3d 20 |. $file_name% = |
00001bf0 22 6e 75 6c 6c 3a 22 3a 6c 6f 63 61 74 69 6f 6e |"null:":location|
00001c00 5f 63 6f 6e 66 69 67 25 3d 35 0d 09 a6 23 f2 73 |_config%=5...#.s|
00001c10 65 74 5f 74 69 63 6b 28 62 61 75 64 6d 25 2c 20 |et_tick(baudm%, |
00001c20 62 61 75 64 5f 6e 65 77 25 2c 20 31 29 0d 09 b0 |baud_new%, 1)...|
00001c30 19 c8 8e 20 6c 6f 63 61 74 69 6f 6e 5f 63 6f 6e |... location_con|
00001c40 66 69 67 25 20 ca 0d 09 ba 27 20 20 20 c9 20 31 |fig% ....' . 1|
00001c50 3a 20 f2 73 65 74 5f 74 69 63 6b 28 70 72 69 6e |: .set_tick(prin|
00001c60 74 6d 65 6e 75 25 2c 20 31 2c 20 31 29 0d 09 c4 |tmenu%, 1, 1)...|
00001c70 27 20 20 20 c9 20 32 3a 20 f2 73 65 74 5f 74 69 |' . 2: .set_ti|
00001c80 63 6b 28 70 72 69 6e 74 6d 65 6e 75 25 2c 20 32 |ck(printmenu%, 2|
00001c90 2c 20 31 29 0d 09 ce 27 20 20 20 c9 20 34 3a 20 |, 1)...' . 4: |
00001ca0 f2 73 65 74 5f 74 69 63 6b 28 70 72 69 6e 74 6d |.set_tick(printm|
00001cb0 65 6e 75 25 2c 20 33 2c 20 31 29 0d 09 d8 27 20 |enu%, 3, 1)...' |
00001cc0 20 20 c9 20 35 3a 20 f2 73 65 74 5f 74 69 63 6b | . 5: .set_tick|
00001cd0 28 70 72 69 6e 74 6d 65 6e 75 25 2c 20 34 2c 20 |(printmenu%, 4, |
00001ce0 31 29 0d 09 e2 05 cb 0d 09 ec 24 6c 6f 63 61 74 |1)........$locat|
00001cf0 69 6f 6e 5f 6e 65 77 25 20 3d 20 6c 6f 63 61 74 |ion_new% = locat|
00001d00 69 6f 6e 5f 63 6f 6e 66 69 67 25 0d 09 f6 1c e7 |ion_config%.....|
00001d10 20 6c 6f 63 61 74 69 6f 6e 5f 6e 65 77 25 3d 35 | location_new%=5|
00001d20 20 f2 73 74 61 6d 70 0d 0a 00 18 e7 20 73 65 72 | .stamp..... ser|
00001d30 76 65 72 5f 70 74 72 25 20 3d 20 2d 31 20 8c 0d |ver_ptr% = -1 ..|
00001d40 0a 0a 23 20 c8 99 20 22 4f 53 5f 42 79 74 65 22 |..# .. "OS_Byte"|
00001d50 2c 20 31 36 31 2c 20 33 20 b8 20 2c 2c 74 65 6d |, 161, 3 . ,,tem|
00001d60 70 25 0d 0a 14 12 20 e7 20 74 65 6d 70 25 20 3d |p%.... . temp% =|
00001d70 20 30 20 8c 0d 0a 1e 24 20 20 c8 99 20 22 4f 53 | 0 ....$ .. "OS|
00001d80 5f 42 79 74 65 22 2c 20 31 36 31 2c 20 34 20 b8 |_Byte", 161, 4 .|
00001d90 20 2c 2c 74 65 6d 70 25 0d 0a 28 1f 20 20 73 65 | ,,temp%..(. se|
00001da0 72 76 65 72 5f 63 6f 6e 66 69 67 24 20 3d 20 bd |rver_config$ = .|
00001db0 28 74 65 6d 70 25 29 0d 0a 32 13 20 20 72 61 6d |(temp%)..2. ram|
00001dc0 76 61 6c 25 20 3d 20 26 39 39 0d 0a 3c 07 20 20 |val% = &99..<. |
00001dd0 f5 0d 0a 46 2b 20 20 20 c8 99 20 22 4f 53 5f 42 |...F+ .. "OS_B|
00001de0 79 74 65 22 2c 20 31 36 31 2c 20 72 61 6d 76 61 |yte", 161, ramva|
00001df0 6c 25 20 b8 20 2c 2c 74 65 6d 70 25 0d 0a 50 3d |l% . ,,temp%..P=|
00001e00 20 20 20 e7 20 74 65 6d 70 25 20 3e 33 32 20 73 | . temp% >32 s|
00001e10 65 72 76 65 72 5f 63 6f 6e 66 69 67 24 20 3d 20 |erver_config$ = |
00001e20 73 65 72 76 65 72 5f 63 6f 6e 66 69 67 24 20 2b |server_config$ +|
00001e30 20 bd 28 74 65 6d 70 25 29 0d 0a 5a 13 20 20 20 | .(temp%)..Z. |
00001e40 72 61 6d 76 61 6c 25 20 2b 3d 20 31 0d 0a 64 23 |ramval% += 1..d#|
00001e50 20 20 fd 20 74 65 6d 70 25 20 3c 3d 20 33 32 20 | . temp% <= 32 |
00001e60 84 20 72 61 6d 76 61 6c 25 20 3d 20 26 39 45 0d |. ramval% = &9E.|
00001e70 0a 6e 06 20 cc 0d 0a 78 23 20 20 73 65 72 76 65 |.n. ...x# serve|
00001e80 72 5f 63 6f 6e 66 69 67 24 20 3d 20 22 2e 22 2b |r_config$ = "."+|
00001e90 c3 28 74 65 6d 70 25 29 0d 0a 82 24 20 20 c8 99 |.(temp%)...$ ..|
00001ea0 20 22 4f 53 5f 42 79 74 65 22 2c 20 31 36 31 2c | "OS_Byte", 161,|
00001eb0 20 34 20 b8 20 2c 2c 74 65 6d 70 25 0d 0a 8c 30 | 4 . ,,temp%...0|
00001ec0 20 20 73 65 72 76 65 72 5f 63 6f 6e 66 69 67 24 | server_config$|
00001ed0 20 3d 20 c3 28 74 65 6d 70 25 29 20 2b 20 73 65 | = .(temp%) + se|
00001ee0 72 76 65 72 5f 63 6f 6e 66 69 67 24 0d 0a 96 06 |rver_config$....|
00001ef0 20 cd 0d 0a a0 05 cd 0d 0a aa 21 24 73 65 72 76 | .........!$serv|
00001f00 65 72 5f 6e 65 77 25 20 3d 20 73 65 72 76 65 72 |er_new% = server|
00001f10 5f 63 6f 6e 66 69 67 24 0d 0a b4 05 e1 0d 0a be |_config$........|
00001f20 05 3a 0d 0a c8 16 dd 20 f2 72 65 64 72 61 77 28 |.:..... .redraw(|
00001f30 68 61 6e 64 6c 65 25 29 0d 0a d2 05 e1 0d 0a dc |handle%)........|
00001f40 05 3a 0d 0a e6 18 dd 20 f2 72 65 63 65 69 76 65 |.:..... .receive|
00001f50 28 6d 65 73 73 61 67 65 25 29 0d 0a f0 29 ea 20 |(message%)...). |
00001f60 6d 79 5f 72 65 66 25 2c 20 74 79 70 65 24 2c 20 |my_ref%, type$, |
00001f70 6f 70 74 69 6f 6e 24 2c 20 49 25 2c 20 70 66 6c |option$, I%, pfl|
00001f80 61 67 25 0d 0a fa 18 6d 79 5f 72 65 66 25 20 3d |ag%....my_ref% =|
00001f90 20 6d 65 73 73 61 67 65 25 21 38 0d 0b 04 14 c8 | message%!8.....|
00001fa0 8e 20 6d 65 73 73 61 67 65 25 21 31 36 20 ca 0d |. message%!16 ..|
00001fb0 0b 0e 1b 20 c9 20 30 2c 4d 65 73 73 61 67 65 5f |... . 0,Message_|
00001fc0 50 72 69 6e 74 42 75 73 79 25 0d 0b 18 11 20 20 |PrintBusy%.... |
00001fd0 f2 65 6e 64 63 6f 6e 66 69 72 6d 0d 0b 22 10 20 |.endconfirm..". |
00001fe0 20 f2 74 65 72 6d 69 6e 61 74 65 0d 0b 2c 1b 20 | .terminate..,. |
00001ff0 c9 20 31 2c 4d 65 73 73 61 67 65 5f 50 72 69 6e |. 1,Message_Prin|
00002000 74 53 61 76 65 25 0d 0b 36 34 20 20 f4 20 73 61 |tSave%..64 . sa|
00002010 76 65 20 6f 6e 74 6f 20 6f 75 72 20 69 63 6f 6e |ve onto our icon|
00002020 3b 20 72 65 70 6c 79 20 77 69 74 68 20 50 72 69 |; reply with Pri|
00002030 6e 74 20 6d 65 73 73 61 67 65 0d 0b 40 28 20 20 |nt message..@( |
00002040 e3 20 49 25 3d 30 b8 32 35 32 88 34 3a 6d 73 67 |. I%=0.252.4:msg|
00002050 25 21 49 25 3d 6d 65 73 73 61 67 65 25 21 49 25 |%!I%=message%!I%|
00002060 3a ed 0d 0b 4a 11 20 20 f2 65 6e 64 63 6f 6e 66 |:...J. .endconf|
00002070 69 72 6d 0d 0b 54 3f 20 20 e7 20 70 72 69 6e 74 |irm..T? . print|
00002080 5f 72 65 66 25 20 8c 20 f2 6d 6f 61 6e 28 22 43 |_ref% . .moan("C|
00002090 61 6e 20 6f 6e 6c 79 20 70 72 69 6e 74 20 6f 6e |an only print on|
000020a0 65 20 66 69 6c 65 20 61 74 20 61 20 74 69 6d 65 |e file at a time|
000020b0 22 29 0d 0b 5e 23 20 20 73 61 76 65 5f 6e 61 6d |")..^# save_nam|
000020c0 65 24 3d a4 72 74 6f 7a 28 6d 65 73 73 61 67 65 |e$=.rtoz(message|
000020d0 25 2b 34 34 29 0d 0b 68 13 20 20 e7 20 70 72 69 |%+44)..h. . pri|
000020e0 6e 74 5f 6f 6e 25 20 8c 0d 0b 72 18 20 20 20 e7 |nt_on% ...r. .|
000020f0 20 6d 65 73 73 61 67 65 25 21 31 36 3d 31 20 8c | message%!16=1 .|
00002100 0d 0b 7c 21 20 20 20 20 f2 6d 6f 61 6e 28 22 41 |..|! .moan("A|
00002110 6c 72 65 61 64 79 20 70 72 69 6e 74 69 6e 67 22 |lready printing"|
00002120 29 0d 0b 86 08 20 20 20 cc 0d 0b 90 13 20 20 20 |).... ..... |
00002130 20 6d 73 67 25 21 30 20 3d 20 32 30 0d 0b 9a 19 | msg%!0 = 20....|
00002140 20 20 20 20 6d 73 67 25 21 31 32 20 3d 20 6d 79 | msg%!12 = my|
00002150 5f 72 65 66 25 0d 0b a4 24 20 20 20 20 6d 73 67 |_ref%...$ msg|
00002160 25 21 31 36 20 3d 20 4d 65 73 73 61 67 65 5f 50 |%!16 = Message_P|
00002170 72 69 6e 74 42 75 73 79 25 0d 0b ae 2f 20 20 20 |rintBusy%.../ |
00002180 20 c8 99 20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 | .. "Wimp_SendMe|
00002190 73 73 61 67 65 22 2c 20 31 37 2c 20 6d 73 67 25 |ssage", 17, msg%|
000021a0 2c 20 6d 73 67 25 21 34 0d 0b b8 08 20 20 20 cd |, msg%!4.... .|
000021b0 0d 0b c2 07 20 20 cc 0d 0b cc 18 20 20 20 6d 73 |.... ..... ms|
000021c0 67 25 21 31 32 20 3d 20 6d 79 5f 72 65 66 25 0d |g%!12 = my_ref%.|
000021d0 0b d6 23 20 20 20 6d 73 67 25 21 31 36 20 3d 20 |..# msg%!16 = |
000021e0 4d 65 73 73 61 67 65 5f 50 72 69 6e 74 46 69 6c |Message_PrintFil|
000021f0 65 25 0d 0b e0 18 20 20 20 e7 20 6d 65 73 73 61 |e%.... . messa|
00002200 67 65 25 21 31 36 3d 31 20 8c 0d 0b ea 13 20 20 |ge%!16=1 ..... |
00002210 20 20 6d 73 67 25 21 30 20 3d 20 36 30 0d 0b f4 | msg%!0 = 60...|
00002220 26 20 20 20 20 24 28 6d 73 67 25 2b 34 34 29 20 |& $(msg%+44) |
00002230 3d 20 22 3c 50 72 69 6e 74 65 72 24 53 63 72 61 |= "<Printer$Scra|
00002240 70 3e 22 0d 0b fe 13 20 20 20 20 6d 73 67 25 3f |p>".... msg%?|
00002250 35 39 20 3d 20 30 0d 0c 08 08 20 20 20 cd 0d 0c |59 = 0.... ...|
00002260 12 2e 20 20 20 c8 99 20 22 57 69 6d 70 5f 53 65 |.. .. "Wimp_Se|
00002270 6e 64 4d 65 73 73 61 67 65 22 2c 20 31 38 2c 20 |ndMessage", 18, |
00002280 6d 73 67 25 2c 20 6d 73 67 25 21 34 0d 0c 1c 1a |msg%, msg%!4....|
00002290 20 20 20 6d 73 67 25 21 34 20 3d 20 6d 65 73 73 | msg%!4 = mess|
000022a0 61 67 65 25 21 34 0d 0c 26 18 20 20 20 70 72 69 |age%!4..&. pri|
000022b0 6e 74 5f 72 65 66 25 3d 6d 73 67 25 21 38 0d 0c |nt_ref%=msg%!8..|
000022c0 30 07 20 20 cd 0d 0c 3a 08 20 c9 20 33 0d 0c 44 |0. ...:. . 3..D|
000022d0 11 20 20 f2 65 6e 64 63 6f 6e 66 69 72 6d 0d 0c |. .endconfirm..|
000022e0 4e 59 20 20 e7 20 70 72 69 6e 74 5f 72 65 66 25 |NY . print_ref%|
000022f0 20 e7 20 70 72 69 6e 74 5f 72 65 66 25 3c 3e 6d | . print_ref%<>m|
00002300 65 73 73 61 67 65 25 21 31 32 20 8c 20 f2 6d 6f |essage%!12 . .mo|
00002310 61 6e 28 22 43 61 6e 20 6f 6e 6c 79 20 70 72 69 |an("Can only pri|
00002320 6e 74 20 6f 6e 65 20 66 69 6c 65 20 61 74 20 61 |nt one file at a|
00002330 20 74 69 6d 65 22 29 0d 0c 58 12 20 20 70 72 69 | time")..X. pri|
00002340 6e 74 5f 72 65 66 25 3d 30 0d 0c 62 14 20 20 e7 |nt_ref%=0..b. .|
00002350 20 70 72 69 6e 74 5f 6f 6e 25 20 20 8c 0d 0c 6c | print_on% ...l|
00002360 20 20 20 20 f2 6d 6f 61 6e 28 22 41 6c 72 65 61 | .moan("Alrea|
00002370 64 79 20 70 72 69 6e 74 69 6e 67 22 29 0d 0c 76 |dy printing")..v|
00002380 07 20 20 cc 0d 0c 80 29 20 20 20 e3 20 49 25 3d |. ....) . I%=|
00002390 30 b8 32 35 32 88 34 3a 6d 73 67 25 21 49 25 3d |0.252.4:msg%!I%=|
000023a0 6d 65 73 73 61 67 65 25 21 49 25 3a ed 0d 0c 8a |message%!I%:....|
000023b0 22 20 20 20 66 69 6c 65 6e 61 6d 24 3d a4 72 74 |" filenam$=.rt|
000023c0 6f 7a 28 6d 65 73 73 61 67 65 25 2b 34 34 29 0d |oz(message%+44).|
000023d0 0c 94 1c 20 20 20 6d 65 73 73 61 67 65 25 21 31 |... message%!1|
000023e0 32 20 3d 20 6d 79 5f 72 65 66 25 0d 0c 9e 33 20 |2 = my_ref%...3 |
000023f0 20 20 c8 99 20 22 57 69 6d 70 5f 53 65 6e 64 4d | .. "Wimp_SendM|
00002400 65 73 73 61 67 65 22 2c 31 39 2c 6d 65 73 73 61 |essage",19,messa|
00002410 67 65 25 2c 6d 65 73 73 61 67 65 25 21 34 0d 0c |ge%,message%!4..|
00002420 a8 36 20 20 20 f4 20 6a 75 73 74 20 61 63 6b 20 |.6 . just ack |
00002430 74 68 65 20 6d 65 73 73 61 67 65 20 69 6e 20 63 |the message in c|
00002440 61 73 65 20 46 4e 63 6f 6e 66 69 72 6d 20 63 61 |ase FNconfirm ca|
00002450 6c 6c 65 64 0d 0c b2 19 20 20 20 46 74 79 70 65 |lled.... Ftype|
00002460 25 3d 6d 65 73 73 61 67 65 25 21 34 30 0d 0c bc |%=message%!40...|
00002470 14 20 20 20 74 79 70 65 5f 73 74 61 74 65 25 3d |. type_state%=|
00002480 30 0d 0c c6 1e 20 20 20 e7 20 46 74 79 70 65 25 |0.... . Ftype%|
00002490 3c 3e 4f 75 74 70 75 74 54 79 70 65 25 20 8c 0d |<>OutputType% ..|
000024a0 0c d0 11 20 20 20 20 6d 73 67 25 21 31 32 3d 30 |... msg%!12=0|
000024b0 0d 0c da 25 20 20 20 20 6d 73 67 25 21 31 36 3d |...% msg%!16=|
000024c0 4d 65 73 73 61 67 65 5f 50 72 69 6e 74 54 79 70 |Message_PrintTyp|
000024d0 65 4f 64 64 25 0d 0c e4 29 20 20 20 20 c8 99 22 |eOdd%...) .."|
000024e0 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 |Wimp_SendMessage|
000024f0 22 2c 20 31 38 2c 20 6d 73 67 25 2c 20 30 0d 0c |", 18, msg%, 0..|
00002500 ee 19 20 20 20 20 70 72 69 6e 74 5f 72 65 66 25 |.. print_ref%|
00002510 3d 6d 73 67 25 21 38 0d 0c f8 09 20 20 20 20 f5 |=msg%!8.... .|
00002520 0d 0d 02 33 20 20 20 20 20 c8 99 20 22 57 69 6d |...3 .. "Wim|
00002530 70 5f 50 6f 6c 6c 22 2c 70 6f 6c 6c 5f 6d 61 73 |p_Poll",poll_mas|
00002540 6b 25 2c 65 76 65 6e 74 25 20 b8 20 61 63 74 69 |k%,event% . acti|
00002550 6f 6e 25 0d 0d 0c 17 20 20 20 20 20 f2 64 65 73 |on%.... .des|
00002560 70 61 74 63 68 5f 70 6f 6c 6c 0d 0d 16 15 20 20 |patch_poll.... |
00002570 20 20 fd 20 74 79 70 65 5f 73 74 61 74 65 25 0d | . type_state%.|
00002580 0d 20 08 20 20 20 cd 0d 0d 2a 0f 20 20 20 70 66 |. . ...*. pf|
00002590 6c 61 67 25 3d a3 0d 0d 34 18 20 20 20 e7 20 74 |lag%=...4. . t|
000025a0 79 70 65 5f 73 74 61 74 65 25 3d 32 20 8c 0d 0d |ype_state%=2 ...|
000025b0 3e 3e 20 20 20 20 e7 20 66 69 6c 65 6e 61 6d 24 |>> . filenam$|
000025c0 20 3d 20 22 3c 50 72 69 6e 74 65 72 24 53 63 72 | = "<Printer$Scr|
000025d0 61 70 3e 22 20 8c 20 ff 28 22 72 65 6d 6f 76 65 |ap>" . .("remove|
000025e0 20 22 2b 66 69 6c 65 6e 61 6d 24 29 0d 0d 48 22 | "+filenam$)..H"|
000025f0 20 20 20 20 69 6e 5f 66 69 6c 65 25 3d 8e 22 3c | in_file%=."<|
00002600 50 72 69 6e 74 65 72 24 54 65 6d 70 3e 22 0d 0d |Printer$Temp>"..|
00002610 52 17 20 20 20 20 e7 20 69 6e 5f 66 69 6c 65 25 |R. . in_file%|
00002620 3c 3e 30 20 8c 0d 0d 5c 24 20 20 20 20 20 66 69 |<>0 ...\$ fi|
00002630 6c 65 6e 61 6d 24 20 3d 20 22 3c 50 72 69 6e 74 |lenam$ = "<Print|
00002640 65 72 24 54 65 6d 70 3e 22 0d 0d 66 1e 20 20 20 |er$Temp>"..f. |
00002650 20 20 d9 23 69 6e 5f 66 69 6c 65 25 3a 69 6e 5f | .#in_file%:in_|
00002660 66 69 6c 65 25 3d 30 0d 0d 70 11 20 20 20 20 20 |file%=0..p. |
00002670 70 66 6c 61 67 25 3d b9 0d 0d 7a 09 20 20 20 20 |pflag%=...z. |
00002680 cd 0d 0d 84 08 20 20 20 cc 0d 0d 8e 17 20 20 20 |..... ..... |
00002690 20 e7 20 a4 63 68 65 63 6b 5f 74 79 70 65 20 8c | . .check_type .|
000026a0 0d 0d 98 19 20 20 20 20 20 e7 20 41 6c 69 61 73 |.... . Alias|
000026b0 24 20 3c 3e 20 22 22 20 8c 0d 0d a2 31 20 20 20 |$ <> "" ....1 |
000026c0 20 20 20 c8 99 20 22 57 69 6d 70 5f 53 74 61 72 | .. "Wimp_Star|
000026d0 74 54 61 73 6b 22 2c 41 6c 69 61 73 24 2b 22 20 |tTask",Alias$+" |
000026e0 22 2b 66 69 6c 65 6e 61 6d 24 0d 0d ac 24 20 20 |"+filenam$...$ |
000026f0 20 20 20 20 69 6e 5f 66 69 6c 65 25 3d 8e 22 3c | in_file%=."<|
00002700 50 72 69 6e 74 65 72 24 54 65 6d 70 3e 22 0d 0d |Printer$Temp>"..|
00002710 b6 19 20 20 20 20 20 20 e7 20 69 6e 5f 66 69 6c |.. . in_fil|
00002720 65 25 3c 3e 30 20 8c 0d 0d c0 26 20 20 20 20 20 |e%<>0 ....& |
00002730 20 20 66 69 6c 65 6e 61 6d 24 20 3d 20 22 3c 50 | filenam$ = "<P|
00002740 72 69 6e 74 65 72 24 54 65 6d 70 3e 22 0d 0d ca |rinter$Temp>"...|
00002750 41 20 20 20 20 20 20 20 e7 20 66 69 6c 65 6e 61 |A . filena|
00002760 6d 24 20 3d 20 22 3c 50 72 69 6e 74 65 72 24 53 |m$ = "<Printer$S|
00002770 63 72 61 70 3e 22 20 8c 20 ff 28 22 72 65 6d 6f |crap>" . .("remo|
00002780 76 65 20 22 2b 66 69 6c 65 6e 61 6d 24 29 0d 0d |ve "+filenam$)..|
00002790 d4 20 20 20 20 20 20 20 20 d9 23 69 6e 5f 66 69 |. .#in_fi|
000027a0 6c 65 25 3a 69 6e 5f 66 69 6c 65 25 3d 30 0d 0d |le%:in_file%=0..|
000027b0 de 13 20 20 20 20 20 20 20 70 66 6c 61 67 25 3d |.. pflag%=|
000027c0 b9 0d 0d e8 0b 20 20 20 20 20 20 cd 0d 0d f2 0a |..... .....|
000027d0 20 20 20 20 20 cc 0d 0d fc 12 20 20 20 20 20 20 | ..... |
000027e0 70 66 6c 61 67 25 3d b9 0d 0e 06 0a 20 20 20 20 |pflag%=..... |
000027f0 20 cd 0d 0e 10 09 20 20 20 20 cd 0d 0e 1a 08 20 | ..... ..... |
00002800 20 20 cd 0d 0e 24 11 20 20 20 e7 20 70 66 6c 61 | ...$. . pfla|
00002810 67 25 20 8c 0d 0e 2e 1d 20 20 20 20 e7 20 6c 6f |g% ..... . lo|
00002820 63 61 74 69 6f 6e 5f 6e 65 77 25 20 3d 20 34 20 |cation_new% = 4 |
00002830 8c 0d 0e 38 2f 20 20 20 20 20 74 79 70 65 24 20 |...8/ type$ |
00002840 3d 20 22 6e 65 74 70 72 69 6e 74 23 22 2b 70 72 |= "netprint#"+pr|
00002850 69 6e 74 65 72 5f 74 79 70 65 24 2b 22 3a 24 22 |inter_type$+":$"|
00002860 0d 0e 42 09 20 20 20 20 cc 0d 0e 4c 42 20 20 20 |..B. ...LB |
00002870 20 20 e7 20 6c 6f 63 61 74 69 6f 6e 5f 6e 65 77 | . location_new|
00002880 25 20 3d 20 35 20 8c 20 ff 28 22 73 65 74 20 50 |% = 5 . .("set P|
00002890 72 69 6e 74 65 72 54 79 70 65 24 35 20 22 2b 24 |rinterType$5 "+$|
000028a0 66 69 6c 65 5f 6e 61 6d 65 25 29 0d 0e 56 1a 20 |file_name%)..V. |
000028b0 20 20 20 20 74 79 70 65 24 3d 22 70 72 69 6e 74 | type$="print|
000028c0 65 72 3a 24 22 0d 0e 60 24 20 20 20 20 20 c8 99 |er:$"..`$ ..|
000028d0 22 4f 53 5f 42 79 74 65 22 2c 35 2c 6c 6f 63 61 |"OS_Byte",5,loca|
000028e0 74 69 6f 6e 5f 6e 65 77 25 0d 0e 6a 09 20 20 20 |tion_new%..j. |
000028f0 20 cd 0d 0e 74 2b 20 20 20 20 f4 20 66 69 6c 65 | ...t+ . file|
00002900 6e 61 6d 24 20 69 73 20 61 6c 73 6f 20 75 73 65 |nam$ is also use|
00002910 64 20 69 6e 20 50 52 4f 43 63 6f 70 79 0d 0e 7e |d in PROCcopy..~|
00002920 1f 20 20 20 20 69 6e 5f 66 69 6c 65 25 20 20 3d |. in_file% =|
00002930 20 8e 28 66 69 6c 65 6e 61 6d 24 29 0d 0e 88 18 | .(filenam$)....|
00002940 20 20 20 20 e7 20 69 6e 5f 66 69 6c 65 25 20 3d | . in_file% =|
00002950 20 30 20 8c 0d 0e 92 38 20 20 20 20 20 f2 6d 6f | 0 ....8 .mo|
00002960 61 6e 28 22 43 61 6e 27 74 20 6f 70 65 6e 20 27 |an("Can't open '|
00002970 22 2b 66 69 6c 65 6e 61 6d 24 2b 22 27 20 66 6f |"+filenam$+"' fo|
00002980 72 20 70 72 69 6e 74 69 6e 67 22 29 0d 0e 9c 09 |r printing")....|
00002990 20 20 20 20 cd 0d 0e a6 26 20 20 20 20 6f 75 74 | ....& out|
000029a0 5f 66 69 6c 65 25 20 3d 20 ae 28 74 79 70 65 24 |_file% = .(type$|
000029b0 2b 22 2e 6f 75 74 70 75 74 22 29 0d 0e b0 19 20 |+".output").... |
000029c0 20 20 20 e7 20 6f 75 74 5f 66 69 6c 65 25 20 3d | . out_file% =|
000029d0 20 30 20 8c 0d 0e ba 1e 20 20 20 20 20 d9 23 69 | 0 ..... .#i|
000029e0 6e 5f 66 69 6c 65 25 3a 69 6e 5f 66 69 6c 65 25 |n_file%:in_file%|
000029f0 3d 30 0d 0e c4 3c 20 20 20 20 20 f2 6d 6f 61 6e |=0...< .moan|
00002a00 28 22 43 61 6e 27 74 20 6f 70 65 6e 20 27 22 2b |("Can't open '"+|
00002a10 74 79 70 65 24 2b 22 2e 6f 75 74 70 75 74 27 20 |type$+".output' |
00002a20 66 6f 72 20 70 72 69 6e 74 69 6e 67 22 29 0d 0e |for printing")..|
00002a30 ce 09 20 20 20 20 cd 0d 0e d8 1b 20 20 20 20 f2 |.. ..... .|
00002a40 73 65 74 5f 70 72 69 6e 74 5f 73 74 61 74 65 28 |set_print_state(|
00002a50 b9 29 0d 0e e2 21 20 20 20 20 f2 63 68 61 6e 67 |.)...! .chang|
00002a60 65 5f 69 63 6f 6e 3a f2 75 70 64 61 74 65 5f 69 |e_icon:.update_i|
00002a70 63 6f 6e 0d 0e ec 13 20 20 20 20 70 62 75 66 25 |con.... pbuf%|
00002a80 3d 96 28 2d 34 29 0d 0e f6 0f 20 20 20 20 73 65 |=.(-4).... se|
00002a90 6e 74 25 3d a3 0d 0f 00 17 20 20 20 20 f2 50 72 |nt%=..... .Pr|
00002aa0 69 6e 74 65 72 5f 48 65 61 64 65 72 0d 0f 0a 08 |inter_Header....|
00002ab0 20 20 20 cd 0d 0f 14 29 20 20 20 f4 20 69 6e 64 | ....) . ind|
00002ac0 69 63 61 74 65 20 77 65 20 72 65 63 65 69 76 65 |icate we receive|
00002ad0 64 20 74 68 65 20 66 69 6c 65 20 4f 4b 0d 0f 1e |d the file OK...|
00002ae0 13 20 20 20 6d 73 67 25 21 30 20 20 3d 20 32 30 |. msg%!0 = 20|
00002af0 0d 0f 28 18 20 20 20 6d 73 67 25 21 31 32 20 3d |..(. msg%!12 =|
00002b00 20 6d 79 5f 72 65 66 25 0d 0f 32 12 20 20 20 6d | my_ref%..2. m|
00002b10 73 67 25 21 31 36 20 3d 20 34 0d 0f 3c 13 20 20 |sg%!16 = 4..<. |
00002b20 20 6d 73 67 25 21 33 36 20 3d 20 2d 31 0d 0f 46 | msg%!36 = -1..F|
00002b30 2d 20 20 20 c8 99 22 57 69 6d 70 5f 53 65 6e 64 |- .."Wimp_Send|
00002b40 4d 65 73 73 61 67 65 22 2c 20 31 37 2c 20 6d 73 |Message", 17, ms|
00002b50 67 25 2c 20 6d 73 67 25 21 34 0d 0f 50 07 20 20 |g%, msg%!4..P. |
00002b60 cd 0d 0f 5a 1b 20 c9 20 26 35 30 32 3a 20 f4 20 |...Z. . &502: . |
00002b70 68 65 6c 70 20 72 65 71 75 65 73 74 0d 0f 64 d9 |help request..d.|
00002b80 20 20 e7 20 6d 65 73 73 61 67 65 25 21 33 32 3d | . message%!32=|
00002b90 2d 32 20 80 20 6d 65 73 73 61 67 65 25 21 33 36 |-2 . message%!36|
00002ba0 3d 69 63 70 72 69 6e 74 25 20 f2 68 65 6c 70 72 |=icprint% .helpr|
00002bb0 65 70 6c 79 28 22 54 68 69 73 20 69 73 20 74 68 |eply("This is th|
00002bc0 65 20 22 2b 46 75 6c 6c 50 72 69 6e 74 65 72 43 |e "+FullPrinterC|
00002bd0 6c 61 73 73 24 2b 22 20 70 72 69 6e 74 65 72 20 |lass$+" printer |
00002be0 69 63 6f 6e 2e 7c 4d 44 72 6f 70 20 74 65 78 74 |icon.|MDrop text|
00002bf0 20 66 69 6c 65 73 20 6f 6e 20 74 6f 20 69 74 20 | files on to it |
00002c00 74 6f 20 70 72 69 6e 74 20 74 68 65 6d 2e 7c 4d |to print them.|M|
00002c10 43 6c 69 63 6b 20 4d 45 4e 55 20 6f 72 20 53 45 |Click MENU or SE|
00002c20 4c 45 43 54 20 74 6f 20 73 65 74 20 74 68 65 20 |LECT to set the |
00002c30 70 72 69 6e 74 65 72 20 6f 70 74 69 6f 6e 73 2e |printer options.|
00002c40 22 2c 6d 79 5f 72 65 66 25 2c 6d 65 73 73 61 67 |",my_ref%,messag|
00002c50 65 25 21 34 29 0d 0f 6e 19 20 c9 20 4d 65 73 73 |e%!4)..n. . Mess|
00002c60 61 67 65 5f 57 69 6c 6c 50 72 69 6e 74 25 0d 0f |age_WillPrint%..|
00002c70 78 12 20 20 70 72 69 6e 74 5f 72 65 66 25 3d 30 |x. print_ref%=0|
00002c80 0d 0f 82 19 20 c9 20 4d 65 73 73 61 67 65 5f 50 |.... . Message_P|
00002c90 72 69 6e 74 49 6e 69 74 25 0d 0f 8c 23 20 20 e7 |rintInit%...# .|
00002ca0 20 70 6f 6c 6c 5f 6d 61 73 6b 25 3c 3e ac 28 25 | poll_mask%<>.(%|
00002cb0 31 31 31 20 3c 3c 20 31 37 29 20 8c 0d 0f 96 14 |111 << 17) .....|
00002cc0 20 20 20 e7 20 70 72 69 6e 74 5f 6f 6e 25 20 8c | . print_on% .|
00002cd0 0d 0f a0 11 20 20 20 20 6d 73 67 25 21 30 3d 32 |.... msg%!0=2|
00002ce0 30 0d 0f aa 17 20 20 20 20 6d 73 67 25 21 31 32 |0.... msg%!12|
00002cf0 3d 6d 79 5f 72 65 66 25 0d 0f b4 22 20 20 20 20 |=my_ref%..." |
00002d00 6d 73 67 25 21 31 36 3d 4d 65 73 73 61 67 65 5f |msg%!16=Message_|
00002d10 50 72 69 6e 74 42 75 73 79 25 0d 0f be 33 20 20 |PrintBusy%...3 |
00002d20 20 20 c8 99 20 22 57 69 6d 70 5f 53 65 6e 64 4d | .. "Wimp_SendM|
00002d30 65 73 73 61 67 65 22 2c 20 31 37 2c 20 6d 73 67 |essage", 17, msg|
00002d40 25 2c 20 6d 65 73 73 61 67 65 25 21 34 0d 0f c8 |%, message%!4...|
00002d50 08 20 20 20 cc 0d 0f d2 12 20 20 20 20 f2 74 65 |. ..... .te|
00002d60 72 6d 69 6e 61 74 65 0d 0f dc 08 20 20 20 cd 0d |rminate.... ..|
00002d70 0f e6 07 20 20 cd 0d 0f f0 1e 20 c9 20 4d 65 73 |... ..... . Mes|
00002d80 73 61 67 65 5f 50 72 69 6e 74 54 79 70 65 4b 6e |sage_PrintTypeKn|
00002d90 6f 77 6e 25 0d 0f fa 18 20 20 46 74 79 70 65 25 |own%.... Ftype%|
00002da0 3d 6d 65 73 73 61 67 65 25 21 34 30 0d 10 04 13 |=message%!40....|
00002db0 20 20 74 79 70 65 5f 73 74 61 74 65 25 3d 32 0d | type_state%=2.|
00002dc0 10 0e 12 20 20 70 72 69 6e 74 5f 72 65 66 25 3d |... print_ref%=|
00002dd0 30 0d 10 18 05 cb 0d 10 22 05 e1 0d 10 2c 05 3a |0......."....,.:|
00002de0 0d 10 36 21 dd f2 68 65 6c 70 72 65 70 6c 79 28 |..6!..helpreply(|
00002df0 68 65 6c 70 24 2c 20 72 65 66 25 2c 20 74 6f 25 |help$, ref%, to%|
00002e00 29 0d 10 40 14 6d 73 67 25 21 30 20 20 20 20 20 |)..@.msg%!0 |
00002e10 3d 20 32 35 36 0d 10 4a 15 6d 73 67 25 21 31 32 |= 256..J.msg%!12|
00002e20 20 20 20 20 3d 20 72 65 66 25 0d 10 54 15 6d 73 | = ref%..T.ms|
00002e30 67 25 21 31 36 20 20 20 20 3d 20 26 35 30 33 0d |g%!16 = &503.|
00002e40 10 5e 16 24 28 6d 73 67 25 2b 32 30 29 20 3d 20 |.^.$(msg%+20) = |
00002e50 68 65 6c 70 24 0d 10 68 1c f2 7a 65 72 6f 5f 74 |help$..h..zero_t|
00002e60 65 72 6d 69 6e 61 74 65 28 6d 73 67 25 2b 32 30 |erminate(msg%+20|
00002e70 29 0d 10 72 28 c8 99 20 22 57 69 6d 70 5f 53 65 |)..r(.. "Wimp_Se|
00002e80 6e 64 4d 65 73 73 61 67 65 22 2c 20 31 37 2c 20 |ndMessage", 17, |
00002e90 6d 73 67 25 2c 20 74 6f 25 0d 10 7c 05 e1 0d 10 |msg%, to%..|....|
00002ea0 86 05 3a 0d 10 90 17 dd f2 62 6f 75 6e 63 65 64 |..:......bounced|
00002eb0 28 6d 65 73 73 61 67 65 25 29 0d 10 9a 14 c8 8e |(message%)......|
00002ec0 20 6d 65 73 73 61 67 65 25 21 31 36 20 ca 0d 10 | message%!16 ...|
00002ed0 a4 19 20 c9 20 4d 65 73 73 61 67 65 5f 50 72 69 |.. . Message_Pri|
00002ee0 6e 74 46 69 6c 65 25 0d 10 ae 12 20 20 70 72 69 |ntFile%.... pri|
00002ef0 6e 74 5f 72 65 66 25 3d 30 0d 10 b8 47 20 20 f4 |nt_ref%=0...G .|
00002f00 20 6d 75 73 74 20 62 65 20 61 6e 20 61 70 70 20 | must be an app |
00002f10 74 68 61 74 20 63 61 6e 27 74 20 64 6f 20 69 74 |that can't do it|
00002f20 73 20 6f 77 6e 20 70 72 69 6e 74 69 6e 67 3b 20 |s own printing; |
00002f30 72 65 70 6c 79 20 74 6f 20 6d 65 73 73 61 67 65 |reply to message|
00002f40 0d 10 c2 15 20 20 f4 20 73 74 69 6c 6c 20 69 6e |.... . still in|
00002f50 20 6d 73 67 25 0d 10 cc 11 20 20 f2 65 6e 64 63 | msg%.... .endc|
00002f60 6f 6e 66 69 72 6d 0d 10 d6 16 20 20 e7 20 ac 20 |onfirm.... . . |
00002f70 70 72 69 6e 74 5f 6f 6e 25 20 20 8c 0d 10 e0 45 |print_on% ....E|
00002f80 20 20 20 f4 20 63 61 6e 27 74 20 61 73 6b 20 66 | . can't ask f|
00002f90 6f 72 20 63 6f 6e 66 69 72 6d 61 74 69 6f 6e 20 |or confirmation |
00002fa0 6f 66 20 73 74 75 70 69 64 20 74 79 70 65 73 20 |of stupid types |
00002fb0 61 73 20 61 6e 20 61 66 66 69 72 6d 61 74 69 76 |as an affirmativ|
00002fc0 65 0d 10 ea 41 20 20 20 f4 20 63 6c 69 63 6b 20 |e...A . click |
00002fd0 77 69 6c 6c 20 70 72 6f 62 61 62 6c 79 20 73 68 |will probably sh|
00002fe0 75 74 20 64 6f 77 6e 20 74 68 65 20 74 72 61 6e |ut down the tran|
00002ff0 73 66 65 72 20 61 74 20 74 68 65 20 73 6f 75 72 |sfer at the sour|
00003000 63 65 0d 10 f4 15 20 20 20 6d 73 67 25 21 31 36 |ce.... msg%!16|
00003010 20 20 20 20 3d 20 32 0d 10 fe 2b 20 20 20 6d 73 | = 2...+ ms|
00003020 67 25 21 33 36 20 20 20 20 3d 20 2d 31 20 3a 20 |g%!36 = -1 : |
00003030 f4 20 66 69 6c 65 20 69 73 20 6e 6f 74 20 73 61 |. file is not sa|
00003040 66 65 0d 11 08 2e 20 20 20 c8 99 20 22 57 69 6d |fe.... .. "Wim|
00003050 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 2c 20 |p_SendMessage", |
00003060 31 37 2c 20 6d 73 67 25 2c 20 6d 73 67 25 21 34 |17, msg%, msg%!4|
00003070 0d 11 12 07 20 20 cc 0d 11 1c 20 20 20 20 f2 6d |.... .... .m|
00003080 6f 61 6e 28 22 41 6c 72 65 61 64 79 20 70 72 69 |oan("Already pri|
00003090 6e 74 69 6e 67 22 29 0d 11 26 07 20 20 cd 0d 11 |nting")..&. ...|
000030a0 30 19 20 c9 20 4d 65 73 73 61 67 65 5f 50 72 69 |0. . Message_Pri|
000030b0 6e 74 49 6e 69 74 25 0d 11 3a 0c 20 20 f2 69 6e |ntInit%..:. .in|
000030c0 69 74 32 0d 11 44 12 20 20 70 6f 6c 6c 5f 6d 61 |it2..D. poll_ma|
000030d0 73 6b 25 3d 31 0d 11 4e 1c 20 c9 20 4d 65 73 73 |sk%=1..N. . Mess|
000030e0 61 67 65 5f 50 72 69 6e 74 54 79 70 65 4f 64 64 |age_PrintTypeOdd|
000030f0 25 0d 11 58 13 20 20 74 79 70 65 5f 73 74 61 74 |%..X. type_stat|
00003100 65 25 3d 31 0d 11 62 12 20 20 70 72 69 6e 74 5f |e%=1..b. print_|
00003110 72 65 66 25 3d 30 0d 11 6c 05 cb 0d 11 76 05 e1 |ref%=0..l....v..|
00003120 0d 11 80 05 3a 0d 11 8a 10 dd a4 63 68 65 63 6b |....:......check|
00003130 5f 74 79 70 65 0d 11 94 14 ea 20 4c 25 2c 70 73 |_type..... L%,ps|
00003140 72 25 2c 20 74 79 70 65 24 0d 11 9e 0d 41 6c 69 |r%, type$....Ali|
00003150 61 73 24 3d 22 22 0d 11 a8 40 f4 20 69 66 20 61 |as$=""...@. if a|
00003160 6e 20 41 6c 69 61 73 24 40 50 72 69 6e 74 54 79 |n Alias$@PrintTy|
00003170 70 65 5f 3c 46 74 79 70 65 25 3e 20 65 78 69 73 |pe_<Ftype%> exis|
00003180 74 73 20 74 68 65 6e 20 70 72 69 6e 74 20 76 69 |ts then print vi|
00003190 61 20 74 68 61 74 0d 11 b2 14 74 79 70 65 24 20 |a that....type$ |
000031a0 3d 20 c3 7e 46 74 79 70 65 25 0d 11 bc 2f e7 20 |= .~Ftype%.../. |
000031b0 a9 74 79 70 65 24 20 3c 20 33 20 8c 20 74 79 70 |.type$ < 3 . typ|
000031c0 65 24 20 3d 20 c4 33 2d a9 74 79 70 65 24 2c 22 |e$ = .3-.type$,"|
000031d0 30 22 29 2b 74 79 70 65 24 0d 11 c6 3b c8 99 22 |0")+type$...;.."|
000031e0 58 4f 53 5f 52 65 61 64 56 61 72 56 61 6c 22 2c |XOS_ReadVarVal",|
000031f0 22 41 6c 69 61 73 24 40 50 72 69 6e 74 54 79 70 |"Alias$@PrintTyp|
00003200 65 5f 22 2b 74 79 70 65 24 2c 2c 2d 31 20 b8 20 |e_"+type$,,-1 . |
00003210 2c 2c 4c 25 0d 11 d0 2e e7 20 4c 25 20 3c 20 30 |,,L%..... L% < 0|
00003220 20 8c 20 41 6c 69 61 73 24 3d 22 40 50 72 69 6e | . Alias$="@Prin|
00003230 74 54 79 70 65 5f 22 2b 74 79 70 65 24 3a 20 3d |tType_"+type$: =|
00003240 20 b9 0d 11 da 4d e7 20 46 74 79 70 65 25 20 3d | ....M. Ftype% =|
00003250 20 26 46 46 46 20 84 20 46 74 79 70 65 25 20 3d | &FFF . Ftype% =|
00003260 20 26 46 46 45 20 84 20 46 74 79 70 65 25 20 3d | &FFE . Ftype% =|
00003270 20 26 46 45 42 20 84 20 46 74 79 70 65 25 3d 4f | &FEB . Ftype%=O|
00003280 75 74 70 75 74 54 79 70 65 25 20 8c 20 3d b9 0d |utputType% . =..|
00003290 11 e4 35 f4 20 74 65 78 74 2c 20 65 78 65 63 20 |..5. text, exec |
000032a0 61 6e 64 20 6f 62 65 79 20 66 69 6c 65 73 20 61 |and obey files a|
000032b0 72 65 20 61 6c 6c 20 73 74 72 61 69 67 68 74 20 |re all straight |
000032c0 74 65 78 74 0d 11 ee 38 e7 20 46 74 79 70 65 25 |text...8. Ftype%|
000032d0 20 3d 20 26 31 30 30 30 20 8c 20 f2 6d 6f 61 6e | = &1000 . .moan|
000032e0 28 22 43 61 6e 6e 6f 74 20 70 72 69 6e 74 20 64 |("Cannot print d|
000032f0 69 72 65 63 74 6f 72 69 65 73 22 29 0d 11 f8 39 |irectories")...9|
00003300 e7 20 46 74 79 70 65 25 20 3d 20 26 32 30 30 30 |. Ftype% = &2000|
00003310 20 8c 20 f2 6d 6f 61 6e 28 22 43 61 6e 6e 6f 74 | . .moan("Cannot|
00003320 20 70 72 69 6e 74 20 61 70 70 6c 69 63 61 74 69 | print applicati|
00003330 6f 6e 73 22 29 0d 12 02 16 e7 20 46 74 79 70 65 |ons")..... Ftype|
00003340 25 20 3d 20 26 33 30 30 30 20 8c 0d 12 0c 1f 20 |% = &3000 ..... |
00003350 24 65 72 72 6f 72 5f 62 6c 6b 25 20 3d 20 22 61 |$error_blk% = "a|
00003360 6e 20 75 6e 74 79 70 65 64 22 0d 12 16 05 cc 0d |n untyped"......|
00003370 12 20 45 20 c8 99 22 58 4f 53 5f 52 65 61 64 56 |. E .."XOS_ReadV|
00003380 61 72 56 61 6c 22 2c 22 46 69 6c 65 24 54 79 70 |arVal","File$Typ|
00003390 65 5f 22 2b 74 79 70 65 24 2c 65 72 72 6f 72 5f |e_"+type$,error_|
000033a0 62 6c 6b 25 2c 31 30 30 20 b8 20 2c 2c 4c 25 3b |blk%,100 . ,,L%;|
000033b0 70 73 72 25 0d 12 2a 44 20 e7 20 70 73 72 25 20 |psr%..*D . psr% |
000033c0 80 20 31 20 8c 20 24 65 72 72 6f 72 5f 62 6c 6b |. 1 . $error_blk|
000033d0 25 3d 22 74 79 70 65 20 26 22 2b c3 7e 46 74 79 |%="type &"+.~Fty|
000033e0 70 65 25 20 8b 20 65 72 72 6f 72 5f 62 6c 6b 25 |pe% . error_blk%|
000033f0 3f 4c 25 20 3d 20 31 33 0d 12 34 05 cd 0d 12 3e |?L% = 13..4....>|
00003400 50 3d a4 63 6f 6e 66 69 72 6d 28 22 54 68 69 73 |P=.confirm("This|
00003410 20 69 73 20 61 20 22 2b 24 65 72 72 6f 72 5f 62 | is a "+$error_b|
00003420 6c 6b 25 2b 22 20 66 69 6c 65 3b 20 64 6f 20 79 |lk%+" file; do y|
00003430 6f 75 20 72 65 61 6c 6c 79 20 77 61 6e 74 20 74 |ou really want t|
00003440 6f 20 70 72 69 6e 74 20 69 74 3f 22 29 0d 12 48 |o print it?")..H|
00003450 05 3a 0d 12 52 17 dd a4 63 6f 6e 66 69 72 6d 28 |.:..R...confirm(|
00003460 6d 65 73 73 61 67 65 24 29 0d 12 5c 11 ea 20 53 |message$)..\.. S|
00003470 25 2c 20 61 63 74 69 6f 6e 25 0d 12 66 1c 53 25 |%, action%..f.S%|
00003480 3d a4 69 63 6f 6e 61 64 64 72 28 63 6f 6e 66 69 |=.iconaddr(confi|
00003490 72 6d 25 2c 30 29 0d 12 70 10 24 53 25 3d 6d 65 |rm%,0)..p.$S%=me|
000034a0 73 73 61 67 65 24 0d 12 7a 0f f2 67 65 74 70 6f |ssage$..z..getpo|
000034b0 69 6e 74 65 72 0d 12 84 3a c8 99 20 22 57 69 6d |inter...:.. "Wim|
000034c0 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 63 |p_CreateMenu",,c|
000034d0 6f 6e 66 69 72 6d 25 2c 6d 6f 75 73 65 78 25 2d |onfirm%,mousex%-|
000034e0 32 30 30 2c 6d 6f 75 73 65 79 25 2b 32 30 30 0d |200,mousey%+200.|
000034f0 12 8e 17 63 6f 6e 66 69 72 6d 5f 61 6e 73 77 65 |...confirm_answe|
00003500 72 25 20 3d 20 32 0d 12 98 05 f5 0d 12 a2 2f 20 |r% = 2......../ |
00003510 c8 99 20 22 57 69 6d 70 5f 50 6f 6c 6c 22 2c 70 |.. "Wimp_Poll",p|
00003520 6f 6c 6c 5f 6d 61 73 6b 25 2c 65 76 65 6e 74 25 |oll_mask%,event%|
00003530 20 b8 20 61 63 74 69 6f 6e 25 0d 12 ac 13 20 f2 | . action%.... .|
00003540 64 65 73 70 61 74 63 68 5f 70 6f 6c 6c 0d 12 b6 |despatch_poll...|
00003550 1a fd 20 63 6f 6e 66 69 72 6d 5f 61 6e 73 77 65 |.. confirm_answe|
00003560 72 25 20 3c 3e 20 32 0d 12 c0 14 f2 63 6c 6f 73 |r% <> 2.....clos|
00003570 65 28 63 6f 6e 66 69 72 6d 25 29 0d 12 ca 14 3d |e(confirm%)....=|
00003580 63 6f 6e 66 69 72 6d 5f 61 6e 73 77 65 72 25 0d |confirm_answer%.|
00003590 12 d4 05 3a 0d 12 de 10 dd f2 65 6e 64 63 6f 6e |...:......endcon|
000035a0 66 69 72 6d 0d 12 e8 2d e7 20 63 6f 6e 66 69 72 |firm...-. confir|
000035b0 6d 5f 61 6e 73 77 65 72 25 20 3d 20 32 20 8c 20 |m_answer% = 2 . |
000035c0 63 6f 6e 66 69 72 6d 5f 61 6e 73 77 65 72 25 3d |confirm_answer%=|
000035d0 a3 0d 12 f2 2e f4 20 46 4e 63 6f 6e 66 69 72 6d |...... FNconfirm|
000035e0 20 63 6c 6f 73 65 73 20 74 68 65 20 77 69 6e 64 | closes the wind|
000035f0 6f 77 20 69 66 20 6e 65 63 65 73 73 61 72 79 0d |ow if necessary.|
00003600 12 fc 05 e1 0d 13 06 05 3a 0d 13 10 0f dd 20 a4 |........:..... .|
00003610 72 74 6f 7a 28 73 25 29 0d 13 1a 08 ea 20 6e 24 |rtoz(s%)..... n$|
00003620 0d 13 24 1a c8 95 3f 73 25 3a 6e 24 2b 3d bd 3f |..$...?s%:n$+=.?|
00003630 73 25 3a 73 25 2b 3d 31 3a ce 0d 13 2e 07 3d 6e |s%:s%+=1:.....=n|
00003640 24 0d 13 38 05 3a 0d 13 42 0b dd 20 f2 63 6f 70 |$..8.:..B.. .cop|
00003650 79 0d 13 4c 08 ea 20 4c 25 0d 13 56 07 ea 20 85 |y..L.. L%..V.. .|
00003660 0d 13 60 2c ee 20 85 20 ea 20 f7 20 85 3a f2 65 |..`,. . . . .:.e|
00003670 72 72 6f 72 28 9f 2c 20 f6 24 29 3a f2 73 74 6f |rror(., .$):.sto|
00003680 70 5f 70 72 69 6e 74 69 6e 67 3a e1 0d 13 6a 0d |p_printing:...j.|
00003690 e7 20 73 65 6e 74 25 20 8c 0d 13 74 15 20 e7 20 |. sent% ...t. . |
000036a0 96 28 2d 34 29 3e 3d 70 62 75 66 25 20 8c 0d 13 |.(-4)>=pbuf% ...|
000036b0 7e 15 20 20 f2 50 72 69 6e 74 65 72 5f 46 6f 6f |~. .Printer_Foo|
000036c0 74 65 72 0d 13 88 1b 20 20 d9 23 69 6e 5f 66 69 |ter.... .#in_fi|
000036d0 6c 65 25 3a 69 6e 5f 66 69 6c 65 25 3d 30 0d 13 |le%:in_file%=0..|
000036e0 92 2c 20 20 f2 45 73 63 4f 6e 3a d9 23 6f 75 74 |., .EscOn:.#out|
000036f0 5f 66 69 6c 65 25 3a 6f 75 74 5f 66 69 6c 65 25 |_file%:out_file%|
00003700 3d 30 3a f2 45 73 63 4f 66 66 0d 13 9c 14 20 20 |=0:.EscOff.... |
00003710 f2 73 74 6f 70 5f 70 72 69 6e 74 69 6e 67 0d 13 |.stop_printing..|
00003720 a6 06 20 cd 0d 13 b0 05 cc 0d 13 ba 2a 20 e7 20 |.. .........* . |
00003730 6c 6f 63 61 74 69 6f 6e 5f 6e 65 77 25 3d 31 20 |location_new%=1 |
00003740 84 20 6c 6f 63 61 74 69 6f 6e 5f 6e 65 77 25 3d |. location_new%=|
00003750 32 20 8c 0d 13 c4 0e 20 20 4c 25 3d 96 28 2d 34 |2 ..... L%=.(-4|
00003760 29 0d 13 ce 1b 20 20 e7 20 4c 25 3e 62 75 66 73 |).... . L%>bufs|
00003770 7a 25 20 4c 25 3d 62 75 66 73 7a 25 0d 13 d8 06 |z% L%=bufsz%....|
00003780 20 cc 0d 13 e2 0c 20 20 4c 25 3d 31 32 38 0d 13 | ..... L%=128..|
00003790 ec 06 20 cd 0d 13 f6 1c 20 73 65 6e 74 25 3d a4 |.. ..... sent%=.|
000037a0 50 72 69 6e 74 65 72 5f 53 65 6e 64 28 4c 25 29 |Printer_Send(L%)|
000037b0 0d 14 00 05 cd 0d 14 0a 05 e1 0d 14 14 05 3a 0d |..............:.|
000037c0 14 1e 13 dd f2 73 74 6f 70 5f 70 72 69 6e 74 69 |.....stop_printi|
000037d0 6e 67 0d 14 28 17 f2 73 65 74 5f 70 72 69 6e 74 |ng..(..set_print|
000037e0 5f 73 74 61 74 65 28 a3 29 0d 14 32 1d f2 63 68 |_state(.)..2..ch|
000037f0 61 6e 67 65 5f 69 63 6f 6e 3a f2 75 70 64 61 74 |ange_icon:.updat|
00003800 65 5f 69 63 6f 6e 0d 14 3c 31 e7 20 69 6e 5f 66 |e_icon..<1. in_f|
00003810 69 6c 65 25 20 c8 99 22 58 4f 53 5f 46 69 6e 64 |ile% .."XOS_Find|
00003820 22 2c 30 2c 69 6e 5f 66 69 6c 65 25 3a 69 6e 5f |",0,in_file%:in_|
00003830 66 69 6c 65 25 3d 30 0d 14 46 43 e7 20 6f 75 74 |file%=0..FC. out|
00003840 5f 66 69 6c 65 25 20 f2 45 73 63 4f 6e 3a c8 99 |_file% .EscOn:..|
00003850 22 58 4f 53 5f 46 69 6e 64 22 2c 30 2c 6f 75 74 |"XOS_Find",0,out|
00003860 5f 66 69 6c 65 25 3a 6f 75 74 5f 66 69 6c 65 25 |_file%:out_file%|
00003870 3d 30 3a f2 45 73 63 4f 66 66 0d 14 50 3a e7 20 |=0:.EscOff..P:. |
00003880 66 69 6c 65 6e 61 6d 24 20 3d 20 22 3c 50 72 69 |filenam$ = "<Pri|
00003890 6e 74 65 72 24 53 63 72 61 70 3e 22 20 8c 20 ff |nter$Scrap>" . .|
000038a0 28 22 72 65 6d 6f 76 65 20 22 2b 66 69 6c 65 6e |("remove "+filen|
000038b0 61 6d 24 29 0d 14 5a 39 e7 20 66 69 6c 65 6e 61 |am$)..Z9. filena|
000038c0 6d 24 20 3d 20 22 3c 50 72 69 6e 74 65 72 24 54 |m$ = "<Printer$T|
000038d0 65 6d 70 3e 22 20 8c 20 ff 28 22 72 65 6d 6f 76 |emp>" . .("remov|
000038e0 65 20 22 2b 66 69 6c 65 6e 61 6d 24 29 0d 14 64 |e "+filenam$)..d|
000038f0 2e f4 20 64 65 6c 65 74 65 20 74 68 65 20 73 63 |.. delete the sc|
00003900 72 61 70 20 66 69 6c 65 3a 20 6e 6f 77 20 66 69 |rap file: now fi|
00003910 6e 69 73 68 65 64 20 77 69 74 68 0d 14 6e 10 f2 |nished with..n..|
00003920 75 70 64 61 74 65 5f 69 63 6f 6e 0d 14 78 05 e1 |update_icon..x..|
00003930 0d 14 82 05 3a 0d 14 8c 40 dd 20 f2 6d 6f 75 73 |....:...@. .mous|
00003940 65 28 6d 6f 75 73 65 78 25 2c 6d 6f 75 73 65 79 |e(mousex%,mousey|
00003950 25 2c 62 75 74 74 6f 6e 73 25 2c 68 61 6e 64 6c |%,buttons%,handl|
00003960 65 25 2c 69 63 6f 6e 25 2c 6f 6c 64 62 75 74 74 |e%,icon%,oldbutt|
00003970 6f 6e 73 25 29 0d 14 96 11 c8 8e 20 62 75 74 74 |ons%)...... butt|
00003980 6f 6e 73 25 20 ca 0d 14 a0 1b 20 c9 20 34 3a 20 |ons% ..... . 4: |
00003990 f4 20 6c 65 66 74 20 68 61 6e 64 20 63 6c 69 63 |. left hand clic|
000039a0 6b 0d 14 aa 12 20 20 c8 8e 20 68 61 6e 64 6c 65 |k.... .. handle|
000039b0 25 20 ca 0d 14 b4 0c 20 20 20 c9 20 2d 32 3a 0d |% ..... . -2:.|
000039c0 14 be 15 20 20 20 20 f2 66 72 6f 6e 74 28 6d 61 |... .front(ma|
000039d0 69 6e 25 29 0d 14 c8 12 20 20 20 c9 20 63 6f 6e |in%).... . con|
000039e0 66 69 72 6d 25 3a 0d 14 d2 25 20 20 20 20 e7 20 |firm%:...% . |
000039f0 69 63 6f 6e 25 3d 31 20 8c 20 63 6f 6e 66 69 72 |icon%=1 . confir|
00003a00 6d 5f 61 6e 73 77 65 72 25 3d b9 0d 14 dc 25 20 |m_answer%=....% |
00003a10 20 20 20 e7 20 69 63 6f 6e 25 3d 32 20 8c 20 63 | . icon%=2 . c|
00003a20 6f 6e 66 69 72 6d 5f 61 6e 73 77 65 72 25 3d a3 |onfirm_answer%=.|
00003a30 0d 14 e6 07 20 20 cb 0d 14 f0 17 20 c9 20 32 3a |.... ..... . 2:|
00003a40 20 f4 20 6d 65 6e 75 20 62 75 74 74 6f 6e 0d 14 | . menu button..|
00003a50 fa 12 20 20 c8 8e 20 68 61 6e 64 6c 65 25 20 ca |.. .. handle% .|
00003a60 0d 15 04 1e 20 20 20 c9 20 2d 32 3a 20 f2 6d 65 |.... . -2: .me|
00003a70 6e 75 28 70 72 69 6e 74 6d 65 6e 75 25 29 0d 15 |nu(printmenu%)..|
00003a80 0e 06 20 cb 0d 15 18 05 cb 0d 15 22 05 e1 0d 15 |.. ........"....|
00003a90 2c 05 3a 0d 15 36 25 dd 20 f2 64 65 63 6f 64 65 |,.:..6%. .decode|
00003aa0 6d 65 6e 75 28 6d 65 6e 75 68 61 6e 64 6c 65 25 |menu(menuhandle%|
00003ab0 2c 6d 65 6e 75 73 25 29 0d 15 40 14 c8 8e 20 6d |,menus%)..@... m|
00003ac0 65 6e 75 68 61 6e 64 6c 65 25 20 ca 0d 15 4a 11 |enuhandle% ...J.|
00003ad0 20 c9 20 70 72 69 6e 74 6d 65 6e 75 25 0d 15 54 | . printmenu%..T|
00003ae0 23 20 20 e7 20 70 72 69 6e 74 5f 6f 6e 25 20 80 |# . print_on% .|
00003af0 20 28 21 6d 65 6e 75 73 25 3c 35 29 20 8c 20 e1 | (!menus%<5) . .|
00003b00 0d 15 5e 12 20 20 c8 8e 20 21 6d 65 6e 75 73 25 |..^. .. !menus%|
00003b10 20 ca 0d 15 68 0a 20 20 20 c9 20 31 0d 15 72 21 | ...h. . 1..r!|
00003b20 20 20 20 20 f2 74 69 63 6b 69 74 28 70 72 69 6e | .tickit(prin|
00003b30 74 6d 65 6e 75 25 2c 20 31 2c 20 34 29 0d 15 7c |tmenu%, 1, 4)..||
00003b40 19 20 20 20 20 6c 6f 63 61 74 69 6f 6e 5f 6e 65 |. location_ne|
00003b50 77 25 20 3d 20 31 0d 15 86 0f 20 20 20 20 2a 46 |w% = 1.... *F|
00003b60 58 20 35 2c 31 0d 15 90 0a 20 20 20 c9 20 32 0d |X 5,1.... . 2.|
00003b70 15 9a 17 20 20 20 20 f2 50 72 69 6e 74 65 72 5f |... .Printer_|
00003b80 49 67 6e 6f 72 65 0d 15 a4 27 20 20 20 20 f2 64 |Ignore...' .d|
00003b90 65 63 6f 64 65 6d 65 6e 75 28 73 65 72 69 61 6c |ecodemenu(serial|
00003ba0 6d 25 2c 20 6d 65 6e 75 73 25 2b 34 29 0d 15 ae |m%, menus%+4)...|
00003bb0 21 20 20 20 20 f2 74 69 63 6b 69 74 28 70 72 69 |! .tickit(pri|
00003bc0 6e 74 6d 65 6e 75 25 2c 20 32 2c 20 34 29 0d 15 |ntmenu%, 2, 4)..|
00003bd0 b8 19 20 20 20 20 6c 6f 63 61 74 69 6f 6e 5f 6e |.. location_n|
00003be0 65 77 25 20 3d 20 32 0d 15 c2 24 20 20 20 20 c8 |ew% = 2...$ .|
00003bf0 99 20 22 4f 53 5f 42 79 74 65 22 2c 20 38 2c 20 |. "OS_Byte", 8, |
00003c00 62 61 75 64 5f 6e 65 77 25 2b 31 0d 15 cc 24 20 |baud_new%+1...$ |
00003c10 20 20 20 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c | .. "OS_Byte",|
00003c20 20 37 2c 20 62 61 75 64 5f 6e 65 77 25 2b 31 0d | 7, baud_new%+1.|
00003c30 15 d6 24 20 20 20 20 c8 99 20 22 4f 53 5f 53 65 |..$ .. "OS_Se|
00003c40 72 69 61 6c 4f 70 22 2c 31 2c 64 61 74 61 5f 6e |rialOp",1,data_n|
00003c50 65 77 25 0d 15 e0 27 20 20 20 20 c8 99 20 22 4f |ew%...' .. "O|
00003c60 53 5f 53 65 72 69 61 6c 4f 70 22 2c 30 2c 58 4f |S_SerialOp",0,XO|
00003c70 4e 5f 6e 65 77 25 2c ac 20 31 0d 15 ea 22 20 20 |N_new%,. 1..." |
00003c80 20 20 f2 50 72 69 6e 74 65 72 5f 58 6f 6e 58 6f | .Printer_XonXo|
00003c90 66 66 28 58 4f 4e 5f 6e 65 77 25 29 0d 15 f4 0f |ff(XON_new%)....|
00003ca0 20 20 20 20 2a 46 58 20 35 2c 32 0d 15 fe 0a 20 | *FX 5,2.... |
00003cb0 20 20 c9 20 33 0d 16 08 29 20 20 20 20 f2 64 65 | . 3...) .de|
00003cc0 63 6f 64 65 6d 65 6e 75 28 6e 65 74 70 72 69 6e |codemenu(netprin|
00003cd0 74 6d 25 2c 20 6d 65 6e 75 73 25 2b 34 29 0d 16 |tm%, menus%+4)..|
00003ce0 12 21 20 20 20 20 f2 74 69 63 6b 69 74 28 70 72 |.! .tickit(pr|
00003cf0 69 6e 74 6d 65 6e 75 25 2c 20 33 2c 20 34 29 0d |intmenu%, 3, 4).|
00003d00 16 1c 19 20 20 20 20 6c 6f 63 61 74 69 6f 6e 5f |... location_|
00003d10 6e 65 77 25 20 3d 20 34 0d 16 26 27 20 20 20 20 |new% = 4..&' |
00003d20 c8 99 20 22 58 4f 53 5f 43 4c 49 22 2c 22 50 53 |.. "XOS_CLI","PS|
00003d30 20 22 2b 24 73 65 72 76 65 72 5f 6e 65 77 25 0d | "+$server_new%.|
00003d40 16 30 0f 20 20 20 20 2a 46 58 20 35 2c 34 0d 16 |.0. *FX 5,4..|
00003d50 3a 0a 20 20 20 c9 20 34 0d 16 44 17 20 20 20 20 |:. . 4..D. |
00003d60 6c 6f 63 61 74 69 6f 6e 5f 6e 65 77 25 3d 35 0d |location_new%=5.|
00003d70 16 4e 21 20 20 20 20 f2 74 69 63 6b 69 74 28 70 |.N! .tickit(p|
00003d80 72 69 6e 74 6d 65 6e 75 25 2c 20 34 2c 20 34 29 |rintmenu%, 4, 4)|
00003d90 0d 16 58 42 20 20 20 20 e7 20 a9 24 66 69 6c 65 |..XB . .$file|
00003da0 5f 6e 61 6d 65 25 3d 30 20 8c 20 24 66 69 6c 65 |_name%=0 . $file|
00003db0 5f 6e 61 6d 65 25 3d 22 3c 50 44 72 69 76 65 72 |_name%="<PDriver|
00003dc0 24 44 69 72 3e 2e 5e 2e 50 72 69 6e 74 44 61 74 |$Dir>.^.PrintDat|
00003dd0 61 22 0d 16 62 35 20 20 20 20 c8 99 20 22 58 4f |a"..b5 .. "XO|
00003de0 53 5f 43 4c 49 22 2c 22 53 65 74 20 50 72 69 6e |S_CLI","Set Prin|
00003df0 74 65 72 54 79 70 65 24 35 20 22 2b 24 66 69 6c |terType$5 "+$fil|
00003e00 65 5f 6e 61 6d 65 25 0d 16 6c 0e 20 20 20 20 f2 |e_name%..l. .|
00003e10 73 74 61 6d 70 0d 16 76 0f 20 20 20 20 2a 46 58 |stamp..v. *FX|
00003e20 20 35 2c 35 0d 16 80 0a 20 20 20 c9 20 35 0d 16 | 5,5.... . 5..|
00003e30 8a 13 20 20 20 20 f2 53 61 76 65 43 6f 6e 66 69 |.. .SaveConfi|
00003e40 67 0d 16 94 0a 20 20 20 c9 20 36 0d 16 9e 15 20 |g.... . 6.... |
00003e50 20 20 20 e7 20 70 72 69 6e 74 5f 6f 6e 25 20 8c | . print_on% .|
00003e60 0d 16 a8 11 20 20 20 20 20 2a 46 58 20 32 31 2c |.... *FX 21,|
00003e70 33 0d 16 b2 17 20 20 20 20 20 f2 73 74 6f 70 5f |3.... .stop_|
00003e80 70 72 69 6e 74 69 6e 67 0d 16 bc 09 20 20 20 20 |printing.... |
00003e90 cd 0d 16 c6 0a 20 20 20 c9 20 37 0d 16 d0 15 20 |..... . 7.... |
00003ea0 20 20 20 e7 20 70 72 69 6e 74 5f 6f 6e 25 20 8c | . print_on% .|
00003eb0 0d 16 da 11 20 20 20 20 20 2a 46 58 20 32 31 2c |.... *FX 21,|
00003ec0 33 0d 16 e4 17 20 20 20 20 20 f2 73 74 6f 70 5f |3.... .stop_|
00003ed0 70 72 69 6e 74 69 6e 67 0d 16 ee 09 20 20 20 20 |printing.... |
00003ee0 cd 0d 16 f8 12 20 20 20 20 f2 74 65 72 6d 69 6e |..... .termin|
00003ef0 61 74 65 0d 17 02 07 20 20 cb 0d 17 0c 12 20 20 |ate.... ..... |
00003f00 f2 63 68 61 6e 67 65 5f 69 63 6f 6e 0d 17 16 0f |.change_icon....|
00003f10 20 c9 20 73 65 72 69 61 6c 6d 25 0d 17 20 12 20 | . serialm%.. . |
00003f20 20 c8 8e 20 21 6d 65 6e 75 73 25 20 ca 0d 17 2a | .. !menus% ...*|
00003f30 0a 20 20 20 c9 20 30 0d 17 34 25 20 20 20 20 f2 |. . 0..4% .|
00003f40 64 65 63 6f 64 65 6d 65 6e 75 28 62 61 75 64 6d |decodemenu(baudm|
00003f50 25 2c 20 6d 65 6e 75 73 25 2b 34 29 0d 17 3e 0a |%, menus%+4)..>.|
00003f60 20 20 20 c9 20 31 0d 17 48 25 20 20 20 20 f2 64 | . 1..H% .d|
00003f70 65 63 6f 64 65 6d 65 6e 75 28 64 61 74 61 6d 25 |ecodemenu(datam%|
00003f80 2c 20 6d 65 6e 75 73 25 2b 34 29 0d 17 52 0a 20 |, menus%+4)..R. |
00003f90 20 20 c9 20 32 0d 17 5c 1f 20 20 20 20 58 4f 4e | . 2..\. XON|
00003fa0 5f 6e 65 77 25 20 3d 20 58 4f 4e 5f 6e 65 77 25 |_new% = XON_new%|
00003fb0 20 82 20 31 0d 17 66 26 20 20 20 20 f2 73 65 74 | . 1..f& .set|
00003fc0 5f 74 69 63 6b 28 73 65 72 69 61 6c 6d 25 2c 32 |_tick(serialm%,2|
00003fd0 2c 58 4f 4e 5f 6e 65 77 25 29 0d 17 70 07 20 20 |,XON_new%)..p. |
00003fe0 cb 0d 17 7a 0d 20 c9 20 62 61 75 64 6d 25 0d 17 |...z. . baudm%..|
00003ff0 84 17 20 20 e7 20 21 6d 65 6e 75 73 25 20 3c 3e |.. . !menus% <>|
00004000 20 2d 31 20 8c 0d 17 8e 23 20 20 20 f2 74 69 63 | -1 ....# .tic|
00004010 6b 69 74 28 62 61 75 64 6d 25 2c 20 21 6d 65 6e |kit(baudm%, !men|
00004020 75 73 25 2c 20 31 34 29 0d 17 98 18 20 20 20 62 |us%, 14).... b|
00004030 61 75 64 5f 6e 65 77 25 3d 21 6d 65 6e 75 73 25 |aud_new%=!menus%|
00004040 0d 17 a2 07 20 20 cd 0d 17 ac 0d 20 c9 20 64 61 |.... ..... . da|
00004050 74 61 6d 25 0d 17 b6 12 20 20 c8 8e 20 21 6d 65 |tam%.... .. !me|
00004060 6e 75 73 25 20 ca 0d 17 c0 0a 20 20 20 c9 20 30 |nus% ..... . 0|
00004070 0d 17 ca 25 20 20 20 20 f2 64 65 63 6f 64 65 6d |...% .decodem|
00004080 65 6e 75 28 62 69 74 73 6d 25 2c 20 6d 65 6e 75 |enu(bitsm%, menu|
00004090 73 25 2b 34 29 0d 17 d4 0a 20 20 20 c9 20 31 0d |s%+4).... . 1.|
000040a0 17 de 27 20 20 20 20 f2 64 65 63 6f 64 65 6d 65 |..' .decodeme|
000040b0 6e 75 28 70 61 72 69 74 79 6d 25 2c 20 6d 65 6e |nu(paritym%, men|
000040c0 75 73 25 2b 34 29 0d 17 e8 0a 20 20 20 c9 20 32 |us%+4).... . 2|
000040d0 0d 17 f2 25 20 20 20 20 f2 64 65 63 6f 64 65 6d |...% .decodem|
000040e0 65 6e 75 28 73 74 6f 70 6d 25 2c 20 6d 65 6e 75 |enu(stopm%, menu|
000040f0 73 25 2b 34 29 0d 17 fc 07 20 20 cb 0d 18 06 0d |s%+4).... .....|
00004100 20 c9 20 62 69 74 73 6d 25 0d 18 10 17 20 20 e7 | . bitsm%.... .|
00004110 20 21 6d 65 6e 75 73 25 20 3c 3e 20 2d 31 20 8c | !menus% <> -1 .|
00004120 0d 18 1a 30 20 20 20 64 61 74 61 5f 6e 65 77 25 |...0 data_new%|
00004130 3d 28 64 61 74 61 5f 6e 65 77 25 20 80 20 25 31 |=(data_new% . %1|
00004140 31 31 31 30 30 29 2b 33 2d 21 6d 65 6e 75 73 25 |11100)+3-!menus%|
00004150 0d 18 24 22 20 20 20 f2 74 69 63 6b 69 74 28 62 |..$" .tickit(b|
00004160 69 74 73 6d 25 2c 20 21 6d 65 6e 75 73 25 2c 20 |itsm%, !menus%, |
00004170 33 29 0d 18 2e 07 20 20 cd 0d 18 38 0f 20 c9 20 |3).... ...8. . |
00004180 70 61 72 69 74 79 6d 25 0d 18 42 17 20 20 e7 20 |paritym%..B. . |
00004190 21 6d 65 6e 75 73 25 20 3c 3e 20 2d 31 20 8c 0d |!menus% <> -1 ..|
000041a0 18 4c 12 20 20 20 e7 20 21 6d 65 6e 75 73 25 20 |.L. . !menus% |
000041b0 8c 0d 18 56 39 20 20 20 20 64 61 74 61 5f 6e 65 |...V9 data_ne|
000041c0 77 25 20 3d 20 28 64 61 74 61 5f 6e 65 77 25 20 |w% = (data_new% |
000041d0 80 20 25 31 31 31 29 2b 38 2b 28 28 21 6d 65 6e |. %111)+8+((!men|
000041e0 75 73 25 2d 31 29 3c 3c 34 29 0d 18 60 08 20 20 |us%-1)<<4)..`. |
000041f0 20 cc 0d 18 6a 27 20 20 20 20 64 61 74 61 5f 6e | ...j' data_n|
00004200 65 77 25 20 3d 20 64 61 74 61 5f 6e 65 77 25 20 |ew% = data_new% |
00004210 80 20 ac 28 31 3c 3c 33 29 0d 18 74 08 20 20 20 |. .(1<<3)..t. |
00004220 cd 0d 18 7e 24 20 20 20 f2 74 69 63 6b 69 74 28 |...~$ .tickit(|
00004230 70 61 72 69 74 79 6d 25 2c 20 21 6d 65 6e 75 73 |paritym%, !menus|
00004240 25 2c 20 34 29 0d 18 88 07 20 20 cd 0d 18 92 0d |%, 4).... .....|
00004250 20 c9 20 73 74 6f 70 6d 25 0d 18 9c 17 20 20 e7 | . stopm%.... .|
00004260 20 21 6d 65 6e 75 73 25 20 3c 3e 20 2d 31 20 8c | !menus% <> -1 .|
00004270 0d 18 a6 35 20 20 20 64 61 74 61 5f 6e 65 77 25 |...5 data_new%|
00004280 3d 28 64 61 74 61 5f 6e 65 77 25 20 80 20 25 31 |=(data_new% . %1|
00004290 31 31 30 31 31 29 20 82 20 28 21 6d 65 6e 75 73 |11011) . (!menus|
000042a0 25 3c 3c 32 29 0d 18 b0 22 20 20 20 f2 74 69 63 |%<<2)..." .tic|
000042b0 6b 69 74 28 73 74 6f 70 6d 25 2c 20 21 6d 65 6e |kit(stopm%, !men|
000042c0 75 73 25 2c 20 31 29 0d 18 ba 07 20 20 cd 0d 18 |us%, 1).... ...|
000042d0 c4 05 cb 0d 18 ce 10 f2 75 70 64 61 74 65 5f 69 |........update_i|
000042e0 63 6f 6e 0d 18 d8 05 e1 0d 18 e2 05 3a 0d 18 ec |con.........:...|
000042f0 12 dd 20 f2 75 70 64 61 74 65 5f 69 63 6f 6e 0d |.. .update_icon.|
00004300 18 f6 12 62 6c 6f 63 6b 25 21 30 20 20 3d 20 2d |...block%!0 = -|
00004310 32 0d 19 00 18 62 6c 6f 63 6b 25 21 34 20 20 3d |2....block%!4 =|
00004320 20 69 63 70 72 69 6e 74 25 0d 19 0a 11 62 6c 6f | icprint%....blo|
00004330 63 6b 25 21 38 20 20 3d 20 30 0d 19 14 11 62 6c |ck%!8 = 0....bl|
00004340 6f 63 6b 25 21 31 32 20 3d 20 30 0d 19 1e 22 c8 |ock%!12 = 0...".|
00004350 99 20 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 |. "Wimp_SetIconS|
00004360 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 0d 19 28 |tate",,block%..(|
00004370 05 e1 0d 19 32 05 3a 0d 19 3c 24 dd 20 f2 74 69 |....2.:..<$. .ti|
00004380 63 6b 69 74 28 6d 65 6e 75 25 2c 20 69 74 65 6d |ckit(menu%, item|
00004390 25 2c 20 6e 69 74 65 6d 73 25 29 0d 19 46 08 ea |%, nitems%)..F..|
000043a0 20 49 25 0d 19 50 14 e3 20 49 25 3d 30 20 b8 20 | I%..P.. I%=0 . |
000043b0 6e 69 74 65 6d 73 25 0d 19 5a 1d 20 20 f2 73 65 |nitems%..Z. .se|
000043c0 74 5f 74 69 63 6b 28 6d 65 6e 75 25 2c 20 49 25 |t_tick(menu%, I%|
000043d0 2c 20 30 29 0d 19 64 05 ed 0d 19 6e 1e f2 73 65 |, 0)..d....n..se|
000043e0 74 5f 74 69 63 6b 28 6d 65 6e 75 25 2c 20 69 74 |t_tick(menu%, it|
000043f0 65 6d 25 2c 20 31 29 0d 19 78 05 e1 0d 19 82 05 |em%, 1)..x......|
00004400 3a 0d 19 8c 10 dd 20 f2 66 72 6f 6e 74 28 68 25 |:..... .front(h%|
00004410 29 0d 19 96 0a 21 71 25 3d 68 25 0d 19 a0 2b c8 |)....!q%=h%...+.|
00004420 99 20 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f |. "Wimp_GetWindo|
00004430 77 53 74 61 74 65 22 2c 2c 71 25 20 3a 20 71 25 |wState",,q% : q%|
00004440 21 32 38 3d 2d 31 0d 19 aa 1c c8 99 20 22 57 69 |!28=-1...... "Wi|
00004450 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c |mp_OpenWindow",,|
00004460 71 25 0d 19 b4 05 e1 0d 19 be 05 3a 0d 19 c8 37 |q%.........:...7|
00004470 dd 20 f2 6f 70 65 6e 28 68 61 6e 64 6c 65 25 2c |. .open(handle%,|
00004480 78 30 25 2c 79 30 25 2c 78 31 25 2c 79 31 25 2c |x0%,y0%,x1%,y1%,|
00004490 73 63 78 25 2c 73 63 79 25 2c 62 68 61 6e 64 6c |scx%,scy%,bhandl|
000044a0 65 25 29 0d 19 d2 0f 21 71 25 3d 68 61 6e 64 6c |e%)....!q%=handl|
000044b0 65 25 0d 19 dc 29 71 25 21 34 3d 78 30 25 3a 71 |e%...)q%!4=x0%:q|
000044c0 25 21 38 3d 79 30 25 3a 71 25 21 31 32 3d 78 31 |%!8=y0%:q%!12=x1|
000044d0 25 3a 71 25 21 31 36 3d 79 31 25 0d 19 e6 19 71 |%:q%!16=y1%....q|
000044e0 25 21 32 30 3d 73 63 78 25 3a 71 25 21 32 34 3d |%!20=scx%:q%!24=|
000044f0 73 63 79 25 0d 19 f0 12 71 25 21 32 38 3d 62 68 |scy%....q%!28=bh|
00004500 61 6e 64 6c 65 25 0d 19 fa 1c c8 99 20 22 57 69 |andle%...... "Wi|
00004510 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c |mp_OpenWindow",,|
00004520 71 25 0d 1a 04 05 e1 0d 1a 0e 05 3a 0d 1a 18 15 |q%.........:....|
00004530 dd 20 f2 63 6c 6f 73 65 28 68 61 6e 64 6c 65 25 |. .close(handle%|
00004540 29 0d 1a 22 29 21 71 25 3d 68 61 6e 64 6c 65 25 |)..")!q%=handle%|
00004550 3a c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 57 |:.. "Wimp_CloseW|
00004560 69 6e 64 6f 77 22 2c 2c 71 25 0d 1a 2c 05 e1 0d |indow",,q%..,...|
00004570 1a 36 05 3a 0d 1a 40 11 dd 20 a4 77 69 6e 64 6f |.6.:..@.. .windo|
00004580 77 28 61 24 29 0d 1a 4a 08 ea 20 63 25 0d 1a 54 |w(a$)..J.. c%..T|
00004590 48 c8 99 20 22 57 69 6d 70 5f 4c 6f 61 64 54 65 |H.. "Wimp_LoadTe|
000045a0 6d 70 6c 61 74 65 22 2c 2c 71 25 2c 63 75 72 62 |mplate",,q%,curb|
000045b0 75 66 25 2c 65 6e 64 62 75 66 25 2c 2d 31 2c 61 |uf%,endbuf%,-1,a|
000045c0 24 2c 30 20 b8 20 2c 2c 63 75 72 62 75 66 25 2c |$,0 . ,,curbuf%,|
000045d0 2c 2c 2c 63 25 0d 1a 5e 31 e7 20 63 25 3d 30 20 |,,,c%..^1. c%=0 |
000045e0 8c 20 f2 6d 6f 61 6e 28 22 54 65 6d 70 6c 61 74 |. .moan("Templat|
000045f0 65 20 27 22 2b 61 24 2b 22 27 20 6e 6f 74 20 66 |e '"+a$+"' not f|
00004600 6f 75 6e 64 22 29 0d 1a 68 23 c8 99 20 22 57 69 |ound")..h#.. "Wi|
00004610 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 |mp_CreateWindow"|
00004620 2c 2c 71 25 20 b8 20 63 25 0d 1a 72 07 3d 63 25 |,,q% . c%..r.=c%|
00004630 0d 1a 7c 05 3a 0d 1a 86 16 dd 20 a4 69 63 6f 6e |..|.:..... .icon|
00004640 61 64 64 72 28 68 25 2c 69 25 29 0d 1a 90 2d 21 |addr(h%,i%)...-!|
00004650 71 25 3d 68 25 3a 71 25 21 34 3d 69 25 3a c8 99 |q%=h%:q%!4=i%:..|
00004660 20 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 | "Wimp_GetIconSt|
00004670 61 74 65 22 2c 2c 71 25 0d 1a 9a 38 e7 20 28 71 |ate",,q%...8. (q|
00004680 25 21 32 34 20 80 20 26 31 30 30 29 3d 30 20 8c |%!24 . &100)=0 .|
00004690 20 f2 6d 6f 61 6e 28 22 49 63 6f 6e 20 69 73 20 | .moan("Icon is |
000046a0 6e 6f 74 20 69 6e 64 69 72 65 63 74 65 64 22 29 |not indirected")|
000046b0 0d 1a a4 0a 3d 71 25 21 32 38 0d 1a ae 05 3a 0d |....=q%!28....:.|
000046c0 1a b8 0f dd 20 f2 6d 65 6e 75 28 6d 25 29 0d 1a |.... .menu(m%)..|
000046d0 c2 08 ea 20 59 25 0d 1a cc 10 59 25 20 3d 20 6d |... Y%....Y% = m|
000046e0 6f 75 73 65 79 25 0d 1a d6 15 e7 20 59 25 3c 34 |ousey%..... Y%<4|
000046f0 39 36 20 8c 20 59 25 3d 34 39 36 0d 1a e0 12 6d |96 . Y%=496....m|
00004700 65 6e 75 68 61 6e 64 6c 65 25 3d 6d 25 0d 1a ea |enuhandle%=m%...|
00004710 33 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 |3.. "Wimp_Create|
00004720 4d 65 6e 75 22 2c 2c 6d 65 6e 75 68 61 6e 64 6c |Menu",,menuhandl|
00004730 65 25 2c 6d 6f 75 73 65 78 25 2d 36 36 2c 59 25 |e%,mousex%-66,Y%|
00004740 0d 1a f4 05 e1 0d 1a fe 05 3a 0d 1b 08 0d dd 20 |.........:..... |
00004750 f2 72 65 6d 65 6e 75 0d 1b 12 08 ea 20 59 25 0d |.remenu..... Y%.|
00004760 1b 1c 10 59 25 20 3d 20 6d 6f 75 73 65 79 25 0d |...Y% = mousey%.|
00004770 1b 26 19 e7 20 59 25 20 3c 20 33 30 30 20 8c 20 |.&.. Y% < 300 . |
00004780 59 25 20 3d 20 33 31 36 0d 1b 30 45 c8 99 20 22 |Y% = 316..0E.. "|
00004790 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 |Wimp_CreateMenu"|
000047a0 2c 2c 6d 65 6e 75 68 61 6e 64 6c 65 25 2c 6d 6f |,,menuhandle%,mo|
000047b0 75 73 65 78 25 2d 36 36 2c 59 25 20 3a f4 20 64 |usex%-66,Y% :. d|
000047c0 65 66 61 75 6c 74 20 63 6f 6f 72 64 73 0d 1b 3a |efault coords..:|
000047d0 05 e1 0d 1b 44 05 3a 0d 1b 4e 14 dd 20 a4 63 72 |....D.:..N.. .cr|
000047e0 6d 65 6e 75 28 6d 65 6e 75 24 29 0d 1b 58 37 e7 |menu(menu$)..X7.|
000047f0 20 6d 65 6e 75 66 72 65 65 25 2b 32 38 20 3e 20 | menufree%+28 > |
00004800 6d 65 6e 75 65 6e 64 25 20 8c 20 f2 6d 6f 61 6e |menuend% . .moan|
00004810 28 22 4d 65 6e 75 20 61 72 65 61 20 66 75 6c 6c |("Menu area full|
00004820 22 29 0d 1b 62 0b ea 20 6d 25 2c 69 25 0d 1b 6c |")..b.. m%,i%..l|
00004830 16 6d 65 6e 75 70 74 72 25 3d 6d 65 6e 75 66 72 |.menuptr%=menufr|
00004840 65 65 25 0d 1b 76 08 69 25 3d 30 0d 1b 80 3f e7 |ee%..v.i%=0...?.|
00004850 20 c0 6d 65 6e 75 24 2c 31 29 3d 22 23 22 20 8c | .menu$,1)="#" .|
00004860 20 69 25 3d 31 3a 6d 65 6e 75 74 69 74 6c 65 24 | i%=1:menutitle$|
00004870 3d a4 70 61 72 28 22 3b 22 29 20 8b 20 6d 65 6e |=.par(";") . men|
00004880 75 74 69 74 6c 65 24 3d 22 22 0d 1b 8a 18 24 6d |utitle$=""....$m|
00004890 65 6e 75 70 74 72 25 3d 6d 65 6e 75 74 69 74 6c |enuptr%=menutitl|
000048a0 65 24 0d 1b 94 4a 6d 65 6e 75 70 74 72 25 3f 31 |e$...Jmenuptr%?1|
000048b0 32 3d 60 74 66 63 6f 6c 3a 6d 65 6e 75 70 74 72 |2=`tfcol:menuptr|
000048c0 25 3f 31 33 3d 32 3a 6d 65 6e 75 70 74 72 25 3f |%?13=2:menuptr%?|
000048d0 31 34 3d 60 77 66 63 6f 6c 3a 6d 65 6e 75 70 74 |14=`wfcol:menupt|
000048e0 72 25 3f 31 35 3d 60 77 62 63 6f 6c 0d 1b 9e 33 |r%?15=`wbcol...3|
000048f0 6d 65 6e 75 70 74 72 25 21 31 36 3d 31 39 36 2d |menuptr%!16=196-|
00004900 32 34 3a 6d 65 6e 75 70 74 72 25 21 32 30 3d 34 |24:menuptr%!20=4|
00004910 34 3a 6d 65 6e 75 70 74 72 25 21 32 34 3d 30 0d |4:menuptr%!24=0.|
00004920 1b a8 24 6d 65 6e 75 70 74 72 25 2b 3d 32 38 3a |..$menuptr%+=28:|
00004930 6d 61 78 78 25 3d a9 6d 65 6e 75 74 69 74 6c 65 |maxx%=.menutitle|
00004940 24 2d 33 0d 1b b2 31 f5 20 69 74 65 6d 24 3d a4 |$-3...1. item$=.|
00004950 70 61 72 28 22 3b 22 29 3a f2 6d 65 6e 75 69 74 |par(";"):.menuit|
00004960 65 6d 28 69 74 65 6d 24 29 3a fd 20 69 74 65 6d |em(item$):. item|
00004970 24 3d 22 22 0d 1b bc 24 6d 25 3d 6d 65 6e 75 66 |$=""...$m%=menuf|
00004980 72 65 65 25 3a 6d 25 21 31 36 3d 28 6d 61 78 78 |ree%:m%!16=(maxx|
00004990 25 2a 38 2b 36 29 2a 32 0d 1b c6 16 6d 65 6e 75 |%*8+6)*2....menu|
000049a0 66 72 65 65 25 3d 6d 65 6e 75 70 74 72 25 0d 1b |free%=menuptr%..|
000049b0 d0 07 3d 6d 25 0d 1b da 05 3a 0d 1b e4 16 dd 20 |..=m%....:..... |
000049c0 f2 6d 65 6e 75 69 74 65 6d 28 74 65 78 74 24 29 |.menuitem(text$)|
000049d0 0d 1b ee 32 e7 20 74 65 78 74 24 3d 22 22 20 8c |...2. text$="" .|
000049e0 20 6d 65 6e 75 70 74 72 25 21 2d 32 34 3d 28 6d | menuptr%!-24=(m|
000049f0 65 6e 75 70 74 72 25 21 2d 32 34 29 84 26 38 30 |enuptr%!-24).&80|
00004a00 3a e1 0d 1b f8 36 e7 20 6d 65 6e 75 70 74 72 25 |:....6. menuptr%|
00004a10 2b 32 34 20 3e 20 6d 65 6e 75 65 6e 64 25 20 8c |+24 > menuend% .|
00004a20 20 f2 6d 6f 61 6e 28 22 4d 65 6e 75 20 61 72 65 | .moan("Menu are|
00004a30 61 20 66 75 6c 6c 22 29 0d 1c 02 0f ea 69 25 2c |a full").....i%,|
00004a40 66 6c 67 25 2c 56 25 0d 1c 0c 0c 66 6c 67 25 3d |flg%,V%....flg%=|
00004a50 26 30 30 0d 1c 16 12 69 25 3d a7 74 65 78 74 24 |&00....i%=.text$|
00004a60 2c 22 3e 22 29 0d 1c 20 36 e7 20 c2 74 65 78 74 |,">").. 6. .text|
00004a70 24 2c 31 29 3d 22 23 22 20 8c 20 74 65 78 74 24 |$,1)="#" . text$|
00004a80 3d c0 74 65 78 74 24 2c a9 74 65 78 74 24 2d 31 |=.text$,.text$-1|
00004a90 29 3a 66 6c 67 25 2b 3d 26 30 32 0d 1c 2a 3d e7 |):flg%+=&02..*=.|
00004aa0 69 25 3e 30 8c 73 75 62 70 74 72 25 3d a0 c1 74 |i%>0.subptr%=..t|
00004ab0 65 78 74 24 2c 69 25 2b 31 29 3a 74 65 78 74 24 |ext$,i%+1):text$|
00004ac0 3d c0 74 65 78 74 24 2c 69 25 2d 31 29 8b 73 75 |=.text$,i%-1).su|
00004ad0 62 70 74 72 25 3d 2d 31 0d 1c 34 13 6d 65 6e 75 |bptr%=-1..4.menu|
00004ae0 70 74 72 25 21 30 3d 66 6c 67 25 0d 1c 3e 16 6d |ptr%!0=flg%..>.m|
00004af0 65 6e 75 70 74 72 25 21 34 3d 73 75 62 70 74 72 |enuptr%!4=subptr|
00004b00 25 0d 1c 48 18 6d 65 6e 75 70 74 72 25 21 38 3d |%..H.menuptr%!8=|
00004b10 26 30 37 30 30 30 30 32 31 0d 1c 52 13 e7 c0 74 |&07000021..R...t|
00004b20 65 78 74 24 2c 31 29 3d 22 24 22 8c 0d 1c 5c 13 |ext$,1)="$"...\.|
00004b30 20 21 6d 65 6e 75 70 74 72 25 2b 3d 26 30 34 0d | !menuptr%+=&04.|
00004b40 1c 66 15 20 6d 65 6e 75 70 74 72 25 21 38 2b 3d |.f. menuptr%!8+=|
00004b50 26 31 30 38 0d 1c 70 13 20 69 25 3d a7 74 65 78 |&108..p. i%=.tex|
00004b60 74 24 2c 22 28 22 29 0d 1c 7a 34 20 e7 69 25 3e |t$,"(")..z4 .i%>|
00004b70 30 8c 4c 25 3d bb c1 74 65 78 74 24 2c 69 25 2b |0.L%=..text$,i%+|
00004b80 31 29 3a 74 65 78 74 24 3d c0 74 65 78 74 24 2c |1):text$=.text$,|
00004b90 69 25 2d 31 29 8b 4c 25 3d 31 32 0d 1c 84 0c 20 |i%-1).L%=12.... |
00004ba0 56 25 20 3d 20 2d 31 0d 1c 8e 1b 20 6d 65 6e 75 |V% = -1.... menu|
00004bb0 70 74 72 25 21 31 32 3d a0 c1 74 65 78 74 24 2c |ptr%!12=..text$,|
00004bc0 32 29 0d 1c 98 13 20 6d 65 6e 75 70 74 72 25 21 |2).... menuptr%!|
00004bd0 31 36 3d 2d 31 0d 1c a2 13 20 6d 65 6e 75 70 74 |16=-1.... menupt|
00004be0 72 25 21 32 30 3d 4c 25 0d 1c ac 13 20 74 65 78 |r%!20=L%.... tex|
00004bf0 74 24 3d c4 4c 25 2c 22 20 22 29 0d 1c b6 1a 20 |t$=.L%," ").... |
00004c00 e7 20 6d 61 78 78 25 3c 32 30 20 8c 20 6d 61 78 |. maxx%<20 . max|
00004c10 78 25 3d 32 30 0d 1c c0 05 cc 0d 1c ca 11 20 e7 |x%=20......... .|
00004c20 a9 74 65 78 74 24 3c 3d 31 32 8c 0d 1c d4 1a 20 |.text$<=12..... |
00004c30 20 24 28 6d 65 6e 75 70 74 72 25 2b 31 32 29 3d | $(menuptr%+12)=|
00004c40 74 65 78 74 24 0d 1c de 28 20 cc 20 49 25 3d a4 |text$...( . I%=.|
00004c50 77 6f 72 6b 73 70 61 63 65 28 a9 74 65 78 74 24 |workspace(.text$|
00004c60 2b 31 29 3a 24 49 25 3d 74 65 78 74 24 0d 1c e8 |+1):$I%=text$...|
00004c70 38 20 20 6d 65 6e 75 70 74 72 25 21 31 32 3d 49 |8 menuptr%!12=I|
00004c80 25 3a 6d 65 6e 75 70 74 72 25 21 31 36 3d 2d 31 |%:menuptr%!16=-1|
00004c90 3a 6d 65 6e 75 70 74 72 25 21 32 30 3d a9 74 65 |:menuptr%!20=.te|
00004ca0 78 74 24 2b 31 0d 1c f2 22 20 20 6d 65 6e 75 70 |xt$+1..." menup|
00004cb0 74 72 25 21 38 3d 6d 65 6e 75 70 74 72 25 21 38 |tr%!8=menuptr%!8|
00004cc0 20 84 20 26 31 30 30 0d 1c fc 06 20 cd 0d 1d 06 | . &100.... ....|
00004cd0 1f e7 a9 74 65 78 74 24 3e 6d 61 78 78 25 20 8c |...text$>maxx% .|
00004ce0 6d 61 78 78 25 3d a9 74 65 78 74 24 0d 1d 10 05 |maxx%=.text$....|
00004cf0 cd 0d 1d 1a 10 6d 65 6e 75 70 74 72 25 2b 3d 32 |.....menuptr%+=2|
00004d00 34 0d 1d 24 05 e1 0d 1d 2e 05 3a 0d 1d 38 14 dd |4..$......:..8..|
00004d10 20 a4 77 6f 72 6b 73 70 61 63 65 28 4c 25 29 0d | .workspace(L%).|
00004d20 1d 42 0b de 20 4c 25 20 4c 25 0d 1d 4c 08 3d 20 |.B.. L% L%..L.= |
00004d30 4c 25 0d 1d 56 05 3a 0d 1d 60 10 dd 20 a4 70 61 |L%..V.:..`.. .pa|
00004d40 72 28 73 65 70 24 29 0d 1d 6a 25 69 31 25 3d 69 |r(sep$)..j%i1%=i|
00004d50 25 2b 31 3a 69 25 3d a7 6d 65 6e 75 24 2b 73 65 |%+1:i%=.menu$+se|
00004d60 70 24 2c 73 65 70 24 2c 69 31 25 29 0d 1d 74 17 |p$,sep$,i1%)..t.|
00004d70 3d c1 6d 65 6e 75 24 2c 69 31 25 2c 69 25 2d 69 |=.menu$,i1%,i%-i|
00004d80 31 25 29 0d 1d 7e 05 3a 0d 1d 88 20 dd 20 f2 73 |1%)..~.:... . .s|
00004d90 68 61 64 65 28 6d 65 6e 75 68 61 6e 64 6c 65 25 |hade(menuhandle%|
00004da0 2c 20 69 74 65 6d 25 29 0d 1d 92 45 6d 65 6e 75 |, item%)...Emenu|
00004db0 68 61 6e 64 6c 65 25 21 28 32 38 2b 38 2b 32 34 |handle%!(28+8+24|
00004dc0 2a 69 74 65 6d 25 29 3d 6d 65 6e 75 68 61 6e 64 |*item%)=menuhand|
00004dd0 6c 65 25 21 28 32 38 2b 38 2b 32 34 2a 69 74 65 |le%!(28+8+24*ite|
00004de0 6d 25 29 82 26 34 30 30 30 30 30 3a e1 0d 1d 9c |m%).&400000:....|
00004df0 05 3a 0d 1d a6 5b dd 20 a4 73 68 61 64 65 5f 73 |.:...[. .shade_s|
00004e00 74 61 74 75 73 28 6d 65 6e 75 68 61 6e 64 6c 65 |tatus(menuhandle|
00004e10 25 2c 69 74 65 6d 25 29 20 3d 20 2d 28 28 6d 65 |%,item%) = -((me|
00004e20 6e 75 68 61 6e 64 6c 65 25 21 28 32 38 2b 38 2b |nuhandle%!(28+8+|
00004e30 32 34 2a 69 74 65 6d 25 29 20 80 20 26 34 30 30 |24*item%) . &400|
00004e40 30 30 30 29 3d 26 34 30 30 30 30 30 29 0d 1d b0 |000)=&400000)...|
00004e50 05 3a 0d 1d ba 2c dd 20 f2 73 65 74 5f 73 68 61 |.:...,. .set_sha|
00004e60 64 65 28 6d 65 6e 75 68 61 6e 64 6c 65 25 2c 20 |de(menuhandle%, |
00004e70 69 74 65 6d 25 2c 20 76 61 6c 75 65 25 29 0d 1d |item%, value%)..|
00004e80 c4 09 ea 20 73 74 25 0d 1d ce 2b 73 74 25 20 3d |... st%...+st% =|
00004e90 20 a4 73 68 61 64 65 5f 73 74 61 74 75 73 28 6d | .shade_status(m|
00004ea0 65 6e 75 68 61 6e 64 6c 65 25 2c 20 69 74 65 6d |enuhandle%, item|
00004eb0 25 29 0d 1d d8 30 e7 20 76 61 6c 75 65 25 20 3c |%)...0. value% <|
00004ec0 3e 20 73 74 25 20 8c 20 f2 73 68 61 64 65 28 6d |> st% . .shade(m|
00004ed0 65 6e 75 68 61 6e 64 6c 65 25 2c 20 69 74 65 6d |enuhandle%, item|
00004ee0 25 29 0d 1d e2 05 e1 0d 1d ec 05 3a 0d 1d f6 1e |%).........:....|
00004ef0 dd 20 f2 74 69 63 6b 28 6d 65 6e 75 68 61 6e 64 |. .tick(menuhand|
00004f00 6c 65 25 2c 69 74 65 6d 25 29 0d 1e 00 3b 6d 65 |le%,item%)...;me|
00004f10 6e 75 68 61 6e 64 6c 65 25 21 28 32 38 2b 32 34 |nuhandle%!(28+24|
00004f20 2a 69 74 65 6d 25 29 3d 6d 65 6e 75 68 61 6e 64 |*item%)=menuhand|
00004f30 6c 65 25 21 28 32 38 2b 32 34 2a 69 74 65 6d 25 |le%!(28+24*item%|
00004f40 29 82 26 30 31 0d 1e 0a 05 e1 0d 1e 14 05 3a 0d |).&01.........:.|
00004f50 1e 1e 44 dd 20 a4 74 69 63 6b 5f 73 74 61 74 75 |..D. .tick_statu|
00004f60 73 28 6d 65 6e 75 68 61 6e 64 6c 65 25 2c 20 69 |s(menuhandle%, i|
00004f70 74 65 6d 25 29 20 3d 20 6d 65 6e 75 68 61 6e 64 |tem%) = menuhand|
00004f80 6c 65 25 21 28 32 38 2b 32 34 2a 69 74 65 6d 25 |le%!(28+24*item%|
00004f90 29 80 31 0d 1e 28 05 3a 0d 1e 32 2b dd 20 f2 73 |).1..(.:..2+. .s|
00004fa0 65 74 5f 74 69 63 6b 28 6d 65 6e 75 68 61 6e 64 |et_tick(menuhand|
00004fb0 6c 65 25 2c 20 69 74 65 6d 25 2c 20 76 61 6c 75 |le%, item%, valu|
00004fc0 65 25 29 0d 1e 3c 4a e7 20 a4 74 69 63 6b 5f 73 |e%)..<J. .tick_s|
00004fd0 74 61 74 75 73 28 6d 65 6e 75 68 61 6e 64 6c 65 |tatus(menuhandle|
00004fe0 25 2c 20 69 74 65 6d 25 29 3c 3e 76 61 6c 75 65 |%, item%)<>value|
00004ff0 25 20 8c 20 f2 74 69 63 6b 28 6d 65 6e 75 68 61 |% . .tick(menuha|
00005000 6e 64 6c 65 25 2c 20 69 74 65 6d 25 29 0d 1e 46 |ndle%, item%)..F|
00005010 05 e1 0d 1e 50 05 3a 0d 1e 5a 1d dd 20 f2 73 65 |....P.:..Z.. .se|
00005020 74 5f 70 72 69 6e 74 5f 73 74 61 74 65 28 66 6c |t_print_state(fl|
00005030 61 67 25 29 0d 1e 64 23 f2 73 65 74 5f 73 68 61 |ag%)..d#.set_sha|
00005040 64 65 28 70 72 69 6e 74 6d 65 6e 75 25 2c 31 2c |de(printmenu%,1,|
00005050 2d 66 6c 61 67 25 29 0d 1e 6e 23 f2 73 65 74 5f |-flag%)..n#.set_|
00005060 73 68 61 64 65 28 70 72 69 6e 74 6d 65 6e 75 25 |shade(printmenu%|
00005070 2c 32 2c 2d 66 6c 61 67 25 29 0d 1e 78 23 f2 73 |,2,-flag%)..x#.s|
00005080 65 74 5f 73 68 61 64 65 28 70 72 69 6e 74 6d 65 |et_shade(printme|
00005090 6e 75 25 2c 33 2c 2d 66 6c 61 67 25 29 0d 1e 82 |nu%,3,-flag%)...|
000050a0 23 f2 73 65 74 5f 73 68 61 64 65 28 70 72 69 6e |#.set_shade(prin|
000050b0 74 6d 65 6e 75 25 2c 34 2c 2d 66 6c 61 67 25 29 |tmenu%,4,-flag%)|
000050c0 0d 1e 8c 23 f2 73 65 74 5f 73 68 61 64 65 28 70 |...#.set_shade(p|
000050d0 72 69 6e 74 6d 65 6e 75 25 2c 35 2c 2d 66 6c 61 |rintmenu%,5,-fla|
000050e0 67 25 29 0d 1e 96 26 f2 73 65 74 5f 73 68 61 64 |g%)...&.set_shad|
000050f0 65 28 70 72 69 6e 74 6d 65 6e 75 25 2c 36 2c 28 |e(printmenu%,6,(|
00005100 31 2b 66 6c 61 67 25 29 29 0d 1e a0 23 f2 73 65 |1+flag%))...#.se|
00005110 74 5f 73 68 61 64 65 28 70 72 69 6e 74 6d 65 6e |t_shade(printmen|
00005120 75 25 2c 37 2c 2d 66 6c 61 67 25 29 0d 1e aa 13 |u%,7,-flag%)....|
00005130 70 72 69 6e 74 5f 6f 6e 25 3d 66 6c 61 67 25 0d |print_on%=flag%.|
00005140 1e b4 2c 70 6f 6c 6c 5f 6d 61 73 6b 25 3d 28 70 |..,poll_mask%=(p|
00005150 6f 6c 6c 5f 6d 61 73 6b 25 20 80 20 ac 31 29 20 |oll_mask% . .1) |
00005160 84 20 28 31 2b 66 6c 61 67 25 29 0d 1e be 0d e7 |. (1+flag%).....|
00005170 20 66 6c 61 67 25 20 8c 0d 1e c8 17 20 2a 73 65 | flag% ..... *se|
00005180 74 20 24 50 72 69 6e 74 69 6e 67 20 22 54 22 0d |t $Printing "T".|
00005190 1e d2 05 cc 0d 1e dc 15 20 2a 75 6e 73 65 74 20 |........ *unset |
000051a0 24 50 72 69 6e 74 69 6e 67 0d 1e e6 05 cd 0d 1e |$Printing.......|
000051b0 f0 05 e1 0d 1e fa 05 3a 0d 1f 04 25 dd 20 a4 72 |.......:...%. .r|
000051c0 65 61 64 5f 69 63 6f 6e 5f 64 61 74 61 28 68 61 |ead_icon_data(ha|
000051d0 6e 64 6c 65 25 2c 20 69 63 6f 6e 25 29 0d 1f 0e |ndle%, icon%)...|
000051e0 19 21 69 63 6f 6e 5f 62 75 66 25 20 20 3d 20 68 |.!icon_buf% = h|
000051f0 61 6e 64 6c 65 25 0d 1f 18 17 69 63 6f 6e 5f 62 |andle%....icon_b|
00005200 75 66 25 21 34 20 3d 20 69 63 6f 6e 25 0d 1f 22 |uf%!4 = icon%.."|
00005210 27 c8 99 20 22 57 69 6d 70 5f 47 65 74 49 63 6f |'.. "Wimp_GetIco|
00005220 6e 53 74 61 74 65 22 2c 20 2c 20 69 63 6f 6e 5f |nState", , icon_|
00005230 62 75 66 25 0d 1f 2c 43 e7 20 69 63 6f 6e 5f 62 |buf%..,C. icon_b|
00005240 75 66 25 21 32 38 20 3c 20 63 75 72 62 75 66 25 |uf%!28 < curbuf%|
00005250 20 8c 20 3d 24 28 69 63 6f 6e 5f 62 75 66 25 21 | . =$(icon_buf%!|
00005260 32 38 29 20 8b 20 3d 20 24 28 69 63 6f 6e 5f 62 |28) . = $(icon_b|
00005270 75 66 25 2b 32 38 29 0d 1f 36 05 3a 0d 1f 40 32 |uf%+28)..6.:..@2|
00005280 dd 20 f2 73 65 74 5f 69 63 6f 6e 5f 73 74 61 74 |. .set_icon_stat|
00005290 65 28 68 61 6e 64 6c 65 25 2c 20 69 63 6f 6e 25 |e(handle%, icon%|
000052a0 2c 20 65 6f 72 25 2c 20 6d 61 73 6b 25 29 0d 1f |, eor%, mask%)..|
000052b0 4a 19 21 69 63 6f 6e 5f 62 75 66 25 20 20 3d 20 |J.!icon_buf% = |
000052c0 68 61 6e 64 6c 65 25 0d 1f 54 17 69 63 6f 6e 5f |handle%..T.icon_|
000052d0 62 75 66 25 21 34 20 3d 20 69 63 6f 6e 25 0d 1f |buf%!4 = icon%..|
000052e0 5e 16 69 63 6f 6e 5f 62 75 66 25 21 38 20 3d 20 |^.icon_buf%!8 = |
000052f0 65 6f 72 25 0d 1f 68 18 69 63 6f 6e 5f 62 75 66 |eor%..h.icon_buf|
00005300 25 21 31 32 20 3d 20 6d 61 73 6b 25 0d 1f 72 25 |%!12 = mask%..r%|
00005310 c8 99 20 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e |.. "Wimp_SetIcon|
00005320 53 74 61 74 65 22 2c 2c 69 63 6f 6e 5f 62 75 66 |State",,icon_buf|
00005330 25 0d 1f 7c 05 e1 0d 1f 86 05 3a 0d 1f 90 0e dd |%..|......:.....|
00005340 20 a4 69 63 6f 6e 62 61 72 0d 1f 9a 08 ea 20 49 | .iconbar..... I|
00005350 25 0d 1f a4 13 69 63 6f 6e 5f 62 75 66 25 21 30 |%....icon_buf%!0|
00005360 20 3d 2d 32 0d 1f ae 12 69 63 6f 6e 5f 62 75 66 | =-2....icon_buf|
00005370 25 21 34 20 3d 30 0d 1f b8 14 69 63 6f 6e 5f 62 |%!4 =0....icon_b|
00005380 75 66 25 21 38 20 3d 2d 31 36 0d 1f c2 14 69 63 |uf%!8 =-16....ic|
00005390 6f 6e 5f 62 75 66 25 21 31 32 3d 31 34 34 0d 1f |on_buf%!12=144..|
000053a0 cc 14 69 63 6f 6e 5f 62 75 66 25 21 31 36 3d 20 |..icon_buf%!16= |
000053b0 38 36 0d 1f d6 47 69 63 6f 6e 5f 62 75 66 25 21 |86...Gicon_buf%!|
000053c0 32 30 3d 20 26 31 37 30 30 33 31 32 42 3a 20 20 |20= &1700312B: |
000053d0 f4 20 30 30 30 31 20 30 31 31 31 20 30 30 30 30 |. 0001 0111 0000|
000053e0 20 30 30 30 30 20 30 30 31 31 20 30 30 30 31 20 | 0000 0011 0001 |
000053f0 30 30 31 30 20 31 30 31 31 0d 1f e0 23 24 74 65 |0010 1011...#$te|
00005400 78 74 5f 62 75 66 66 65 72 25 20 20 20 3d 20 70 |xt_buffer% = p|
00005410 72 69 6e 74 65 72 5f 74 79 70 65 24 0d 1f ea 23 |rinter_type$...#|
00005420 24 76 61 6c 69 64 5f 62 75 66 66 65 72 25 20 20 |$valid_buffer% |
00005430 3d 20 22 53 21 22 2b 50 72 69 6e 74 65 72 24 0d |= "S!"+Printer$.|
00005440 1f f4 1e 69 63 6f 6e 5f 62 75 66 25 21 32 34 3d |...icon_buf%!24=|
00005450 20 74 65 78 74 5f 62 75 66 66 65 72 25 0d 1f fe | text_buffer%...|
00005460 20 69 63 6f 6e 5f 62 75 66 25 21 32 38 20 3d 20 | icon_buf%!28 = |
00005470 76 61 6c 69 64 5f 62 75 66 66 65 72 25 0d 20 08 |valid_buffer%. .|
00005480 25 69 63 6f 6e 5f 62 75 66 25 21 33 32 20 3d 20 |%icon_buf%!32 = |
00005490 a9 28 24 74 65 78 74 5f 62 75 66 66 65 72 25 29 |.($text_buffer%)|
000054a0 2b 31 0d 20 12 28 c8 99 20 22 57 69 6d 70 5f 43 |+1. .(.. "Wimp_C|
000054b0 72 65 61 74 65 49 63 6f 6e 22 2c 2c 69 63 6f 6e |reateIcon",,icon|
000054c0 5f 62 75 66 25 20 b8 20 49 25 0d 20 1c 07 3d 49 |_buf% . I%. ..=I|
000054d0 25 0d 20 26 05 3a 0d 20 30 12 dd 20 f2 63 68 61 |%. &.:. 0.. .cha|
000054e0 6e 67 65 5f 69 63 6f 6e 0d 20 3a 0e f2 73 65 74 |nge_icon. :..set|
000054f0 5f 70 74 79 70 65 0d 20 44 21 24 74 65 78 74 5f |_ptype. D!$text_|
00005500 62 75 66 66 65 72 25 20 3d 20 70 72 69 6e 74 65 |buffer% = printe|
00005510 72 5f 74 79 70 65 24 0d 20 4e 05 e1 0d 20 58 05 |r_type$. N... X.|
00005520 3a 0d 20 62 0f dd f2 73 65 74 5f 70 74 79 70 65 |:. b...set_ptype|
00005530 0d 20 6c 11 e7 20 70 72 69 6e 74 5f 6f 6e 25 20 |. l.. print_on% |
00005540 8c 0d 20 76 1f 20 70 72 69 6e 74 65 72 5f 74 79 |.. v. printer_ty|
00005550 70 65 24 20 3d 20 22 50 72 69 6e 74 69 6e 67 22 |pe$ = "Printing"|
00005560 0d 20 80 05 cc 0d 20 8a 1f c8 99 22 4f 53 5f 42 |. .... ...."OS_B|
00005570 79 74 65 22 2c 35 2c 6c 6f 63 61 74 69 6f 6e 5f |yte",5,location_|
00005580 6e 65 77 25 0d 20 94 16 c8 8e 20 6c 6f 63 61 74 |new%. .... locat|
00005590 69 6f 6e 5f 6e 65 77 25 20 ca 0d 20 9e 24 20 c9 |ion_new% .. .$ .|
000055a0 20 31 3a 20 70 72 69 6e 74 65 72 5f 74 79 70 65 | 1: printer_type|
000055b0 24 20 3d 20 22 50 61 72 61 6c 6c 65 6c 22 0d 20 |$ = "Parallel". |
000055c0 a8 22 20 c9 20 32 3a 20 70 72 69 6e 74 65 72 5f |." . 2: printer_|
000055d0 74 79 70 65 24 20 3d 20 22 53 65 72 69 61 6c 22 |type$ = "Serial"|
000055e0 0d 20 b2 26 20 c9 20 34 3a 20 70 72 69 6e 74 65 |. .& . 4: printe|
000055f0 72 5f 74 79 70 65 24 20 3d 20 24 73 65 72 76 65 |r_type$ = $serve|
00005600 72 5f 6e 65 77 25 0d 20 bc 09 20 c9 20 35 3a 0d |r_new%. .. . 5:.|
00005610 20 c6 2d 20 20 e7 20 a4 6c 6f 77 65 72 63 61 73 | .- . .lowercas|
00005620 65 28 c0 24 66 69 6c 65 5f 6e 61 6d 65 25 2c 35 |e(.$file_name%,5|
00005630 29 29 3d 22 6e 75 6c 6c 3a 22 20 8c 0d 20 d0 21 |))="null:" .. .!|
00005640 20 20 20 70 72 69 6e 74 65 72 5f 74 79 70 65 24 | printer_type$|
00005650 20 3d 20 22 54 6f 20 6e 75 6c 6c 3a 22 0d 20 da | = "To null:". .|
00005660 07 20 20 cc 0d 20 e4 20 20 20 20 70 72 69 6e 74 |. .. . print|
00005670 65 72 5f 74 79 70 65 24 20 3d 20 22 54 6f 20 66 |er_type$ = "To f|
00005680 69 6c 65 22 0d 20 ee 07 20 20 cd 0d 20 f8 30 20 |ile". .. .. .0 |
00005690 20 ff 28 22 73 65 74 20 50 72 69 6e 74 65 72 54 | .("set PrinterT|
000056a0 79 70 65 24 35 20 22 22 22 2b 24 66 69 6c 65 5f |ype$5 """+$file_|
000056b0 6e 61 6d 65 25 2b 22 22 22 22 29 0d 21 02 05 cb |name%+"""").!...|
000056c0 0d 21 0c 05 cd 0d 21 16 05 e1 0d 21 20 05 3a 0d |.!....!....! .:.|
000056d0 21 2a 11 dd 20 f2 67 65 74 70 6f 69 6e 74 65 72 |!*.. .getpointer|
000056e0 0d 21 34 20 c8 99 20 22 57 69 6d 70 5f 47 65 74 |.!4 .. "Wimp_Get|
000056f0 50 6f 69 6e 74 65 72 49 6e 66 6f 22 2c 2c 71 25 |PointerInfo",,q%|
00005700 0d 21 3e 2a 6d 6f 75 73 65 78 25 3d 21 71 25 3a |.!>*mousex%=!q%:|
00005710 6d 6f 75 73 65 79 25 3d 71 25 21 34 3a 62 75 74 |mousey%=q%!4:but|
00005720 74 6f 6e 73 25 3d 71 25 21 38 0d 21 48 1d 68 61 |tons%=q%!8.!H.ha|
00005730 6e 64 6c 65 25 3d 71 25 21 31 32 3a 69 63 6f 6e |ndle%=q%!12:icon|
00005740 25 3d 71 25 21 31 36 0d 21 52 05 e1 0d 21 5c 05 |%=q%!16.!R...!\.|
00005750 3a 0d 21 66 14 dd 20 f2 6d 6f 61 6e 28 72 65 70 |:.!f.. .moan(rep|
00005760 6f 72 74 24 29 0d 21 70 14 85 20 26 32 30 30 30 |ort$).!p.. &2000|
00005770 30 2c 72 65 70 6f 72 74 24 0d 21 7a 05 3a 0d 21 |0,report$.!z.:.!|
00005780 84 1b dd 20 f2 65 72 72 6f 72 28 65 72 72 25 2c |... .error(err%,|
00005790 20 72 65 70 6f 72 74 24 29 0d 21 8e 0b ea 20 73 | report$).!... s|
000057a0 74 6f 70 25 0d 21 98 0b f2 45 73 63 4f 66 66 0d |top%.!...EscOff.|
000057b0 21 a2 27 73 74 6f 70 25 3d 28 72 65 70 6f 72 74 |!.'stop%=(report|
000057c0 24 3c 3e 22 41 6c 72 65 61 64 79 20 70 72 69 6e |$<>"Already prin|
000057d0 74 69 6e 67 22 29 0d 21 ac 56 e7 20 28 65 72 72 |ting").!.V. (err|
000057e0 25 3c 26 31 30 31 30 30 20 84 20 65 72 72 25 3e |%<&10100 . err%>|
000057f0 26 32 30 30 30 30 29 20 80 20 65 72 72 25 3c 3e |&20000) . err%<>|
00005800 31 37 20 8c 20 72 65 70 6f 72 74 24 3d 72 65 70 |17 . report$=rep|
00005810 6f 72 74 24 2b 22 20 69 6e 74 65 72 6e 61 6c 20 |ort$+" internal |
00005820 65 72 72 6f 72 20 22 2b c3 28 9e 29 0d 21 b6 16 |error "+.(.).!..|
00005830 21 65 72 72 6f 72 5f 62 6c 6b 25 20 3d 20 65 72 |!error_blk% = er|
00005840 72 25 0d 21 c0 1b 24 28 65 72 72 6f 72 5f 62 6c |r%.!..$(error_bl|
00005850 6b 25 2b 34 29 3d 72 65 70 6f 72 74 24 0d 21 ca |k%+4)=report$.!.|
00005860 21 f2 7a 65 72 6f 5f 74 65 72 6d 69 6e 61 74 65 |!.zero_terminate|
00005870 28 65 72 72 6f 72 5f 62 6c 6b 25 2b 34 29 0d 21 |(error_blk%+4).!|
00005880 d4 22 e7 20 73 74 6f 70 25 20 e7 20 70 72 69 6e |.". stop% . prin|
00005890 74 5f 6f 6e 25 20 8c 20 2a 46 58 20 32 31 2c 33 |t_on% . *FX 21,3|
000058a0 0d 21 de 32 c8 99 20 22 57 69 6d 70 5f 52 65 70 |.!.2.. "Wimp_Rep|
000058b0 6f 72 74 45 72 72 6f 72 22 2c 20 65 72 72 6f 72 |ortError", error|
000058c0 5f 62 6c 6b 25 2c 20 31 2c 20 50 72 69 6e 74 65 |_blk%, 1, Printe|
000058d0 72 24 0d 21 e8 0f f2 65 6e 64 63 6f 6e 66 69 72 |r$.!...endconfir|
000058e0 6d 0d 21 f2 0d e7 20 73 74 6f 70 25 20 8c 0d 21 |m.!... stop% ..!|
000058f0 fc 1f 20 e7 20 70 72 69 6e 74 5f 6f 6e 25 20 f2 |.. . print_on% .|
00005900 73 74 6f 70 5f 70 72 69 6e 74 69 6e 67 0d 22 06 |stop_printing.".|
00005910 32 20 e7 20 69 6e 5f 66 69 6c 65 25 20 c8 99 22 |2 . in_file% .."|
00005920 58 4f 53 5f 46 69 6e 64 22 2c 30 2c 69 6e 5f 66 |XOS_Find",0,in_f|
00005930 69 6c 65 25 3a 69 6e 5f 66 69 6c 65 25 3d 30 0d |ile%:in_file%=0.|
00005940 22 10 44 20 e7 20 6f 75 74 5f 66 69 6c 65 25 20 |".D . out_file% |
00005950 f2 45 73 63 4f 6e 3a c8 99 22 58 4f 53 5f 46 69 |.EscOn:.."XOS_Fi|
00005960 6e 64 22 2c 30 2c 6f 75 74 5f 66 69 6c 65 25 3a |nd",0,out_file%:|
00005970 6f 75 74 5f 66 69 6c 65 25 3d 30 3a f2 45 73 63 |out_file%=0:.Esc|
00005980 4f 66 66 0d 22 1a 05 cd 0d 22 24 05 e1 0d 22 2e |Off."...."$...".|
00005990 05 3a 0d 22 38 18 dd f2 7a 65 72 6f 5f 74 65 72 |.:."8...zero_ter|
000059a0 6d 69 6e 61 74 65 28 53 25 29 0d 22 42 0f 53 25 |minate(S%)."B.S%|
000059b0 3f a9 24 53 25 20 3d 20 30 0d 22 4c 05 e1 0d 22 |?.$S% = 0."L..."|
000059c0 56 05 3a 0d 22 60 13 dd a4 6c 6f 77 65 72 63 61 |V.:."`...lowerca|
000059d0 73 65 28 53 24 29 0d 22 6a 0c ea 20 52 24 2c 20 |se(S$)."j.. R$, |
000059e0 43 25 0d 22 74 09 52 24 3d 22 22 0d 22 7e 0c c8 |C%."t.R$=""."~..|
000059f0 95 20 a9 53 24 3e 30 0d 22 88 11 20 43 25 20 3d |. .S$>0.".. C% =|
00005a00 20 97 c0 53 24 2c 31 29 0d 22 92 14 20 53 24 20 | ..S$,1).".. S$ |
00005a10 3d 20 c2 53 24 2c a9 53 24 2d 31 29 0d 22 9c 32 |= .S$,.S$-1).".2|
00005a20 20 e7 20 43 25 3e 3d 97 22 41 22 20 80 20 43 25 | . C%>=."A" . C%|
00005a30 3c 3d 97 22 5a 22 20 8c 20 43 25 20 3d 20 43 25 |<=."Z" . C% = C%|
00005a40 20 2d 20 97 22 41 22 20 2b 20 97 22 61 22 0d 22 | - ."A" + ."a"."|
00005a50 a6 0e 20 52 24 20 2b 3d 20 bd 43 25 0d 22 b0 05 |.. R$ += .C%."..|
00005a60 ce 0d 22 ba 07 3d 52 24 0d 22 c4 05 3a 0d 22 ce |.."..=R$."..:.".|
00005a70 0c dd 20 f2 73 74 61 6d 70 0d 22 d8 0b ea 20 6c |.. .stamp."... l|
00005a80 6f 61 64 25 0d 22 e2 07 ea 20 85 0d 22 ec 0b ee |oad%."... .."...|
00005a90 20 85 20 ea 20 e1 0d 22 f6 27 c8 99 20 22 4f 53 | . . ..".'.. "OS|
00005aa0 5f 46 69 6c 65 22 2c 35 2c 66 69 6c 65 5f 6e 61 |_File",5,file_na|
00005ab0 6d 65 25 20 b8 20 2c 2c 6c 6f 61 64 25 0d 23 00 |me% . ,,load%.#.|
00005ac0 53 e7 20 28 6c 6f 61 64 25 3e 3e 3e 38 29 20 3c |S. (load%>>>8) <|
00005ad0 3e 20 26 46 46 46 30 30 30 20 2b 20 4f 75 74 70 |> &FFF000 + Outp|
00005ae0 75 74 54 79 70 65 25 20 8c 20 c8 99 20 22 4f 53 |utType% . .. "OS|
00005af0 5f 46 69 6c 65 22 2c 31 31 2c 66 69 6c 65 5f 6e |_File",11,file_n|
00005b00 61 6d 65 25 2c 4f 75 74 70 75 74 54 79 70 65 25 |ame%,OutputType%|
00005b10 0d 23 0a 05 e1 0d 23 14 05 3a 0d 23 1e 0c dd 20 |.#....#..:.#... |
00005b20 f2 45 73 63 4f 6e 0d 23 28 0b 2a 46 58 20 32 32 |.EscOn.#(.*FX 22|
00005b30 39 0d 23 32 05 e1 0d 23 3c 05 3a 0d 23 46 0d dd |9.#2...#<.:.#F..|
00005b40 20 f2 45 73 63 4f 66 66 0d 23 50 0d 2a 46 58 20 | .EscOff.#P.*FX |
00005b50 32 32 39 2c 31 0d 23 5a 05 e1 0d ff |229,1.#Z....|
00005b5c 
.