Home » Personal collection » Acorn hard disk » apps » Printers » 153/!Printers/!RunImage
153/!Printers/!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: | 153/!Printers/!RunImage |
| Read OK: | ✔ |
| File size: | 19650 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There are 2 duplicate copies of this file in the archive:
- Archimedes archive » Acorn User » AU 1997-07 B.adf » Printers » Disc1/!Printers/!RunImage
- Personal collection » Acorn hard disk » apps » Printers » 153/!Printers/!RunImage
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_1.6M_Impression.adf » !Printers/!RunImage
File contents
5REM>squished.RunImage
10ONERRORERROREXTERR,REPORT$
15SYS263872:DIMA%84,A%!16 256,V%256,aa%256,O%512,q%1024,X%256,ba%256:DIMa%(4):PROCaa("Printers:Messages",A%!12):ONERRORPROC_(A%!12):ERROREXTERR,REPORT$
20PROCba:PROCca(FNmsg_0(A%!12,"ID")):PROCda:PROCea:PROCfa:PROCga:PROCha:PROCia:CALLP%+8:PROCja:PROCka:PROCla:SYS263873:ONERRORPROCma
25IFca%THEN
30$(q%+44)=aa$:?(q%+44+LEN(aa$))=0:PROCO
35ENDIF
40REPEAT:PROCv(A%!20):UNTIL0:END
45DEFPROCv(da%):LOCALr%,t%,z%:r%=FNaa(da%):CASEr%OF
50WHEN0:PROCna:PROCoa
55WHEN1:PROCpa
60WHEN2:SYS262341,,q%
65WHEN3:PROCe
70WHEN6:PROCqa
75WHEN7:IFea%THEN
80PROCra
85ELSE:PROCw(W%,7,q%)
90ENDIF
95WHEN8:PROCsa
100WHEN9:PROCta
105WHEN13:!(q%!0)=0:PROCua
110WHEN17,18:PROCva(r%)
115WHEN19:PROCwa
120OTHERWISE:PROCw(W%,r%,q%)
125ENDCASE
130fa%=-1:z%=A%!48:WHILEz%:t%=z%!56:IFNOTt%THEN
135IFfa%=-1fa%=t%ELSEIFt%<fa%fa%=t%
140ENDIF
145z%=z%!0:ENDWHILE:CASEga%OF
150WHEN1:fa%+=500:ga%=2
155WHEN2:PROCxa:ga%=0
160ENDCASE
165ENDPROC
170DEFPROCka:LOCALk$:q%!0=24:q%!12=0:q%!16=524611:q%!20=34:SYS262375,18,q%:ha%=q%!8:PROCya:PROCza:PROCAa:PROC` (-1):k$="<Printers$Dir>":IFia%THEN
175k$+=".Remote":SYS131080,8,k$:k$+=".ID"+h$:SYS131080,8,k$
180ENDIF
185k$+=".":SYS36,"PrinterChoices$Path",k$,LENk$,0,0:PROCBa("Printers:PaperRO",2):PROCBa("PrinterChoices:PaperRW",1):IFja%=0ERROR253,FNmsg_0(A%!12,"FAK")
190PROCCa:fa%=-1:SYS66TOka%:PROCDa:ENDPROC
195DEFPROCya:A%!20=12589105:la%=12589427:ma%=12589361:ENDPROC
200DEFPROCba:LOCALh%,l%,a%,w%:SYS131080,8,"<Printers$Dir>":h%=OPENIN"Printers:Code":l%=EXT#h%:SYS41,21,h%TO,a%,w%:CLOSE#h%:IF(w%AND255)=46THEN
205P%=a%
210ELSE:DIMP%l%+1:SYS8,16,"Printers:Code",P%
215ENDIF
220Z%=P%+64:Y%=P%+68:ENDPROC
225DEFPROCAa:LOCALna%,oa%:SYS16TOna%:SYS73,"/g,quit/s,/g,pdf/s,/g",na%,O%,256:IFO%!12=0THEN
230ca%=0
235ELSE:ca%=-1
240ENDIF
245aa$="":na%=O%!16:IFna%<>0THEN
250oa%=!na%AND65535:na%+=2:WHILEoa%:aa$+=CHR$(?na%):na%+=1:oa%-=1:ENDWHILE
255ENDIF
260ENDPROC
265DEFPROCza:c=1814.4*72000/(180<<8):d=72000:pa%=44:qa%=0:ra%=0:sa%=0:ta%=0:ua%=0:va%=0:A%!48=0:A%!44=0:W%=0:wa%=0:J$="":xa%=0:ya%=0:za%=0:Aa%=0:A%!24=0:A%!28=0:g$="null:":Ba%=0:Ca%=0:A%!32=0:ba$="":A%!36=0:Da%=0:Fa%=0:ja%=0:Ga%=0:Ha%=0
270SYS6,204,,255TO,Ia%:K$="":ca$="":A%!76=0:A%!80=0:Ja%=0:Ka%=0:La%=0:Ma%=0:h$="":Na%=0:q$="":L$="":M$="":Oa%=0:Pa%=0:ga%=0:ia%=0:ENDPROC
275DEFPROCia:LOCALc%,d%,Qa%,Ra%,Sa%,Ta%,Ua%:LOCALa$():DIMa$(255):Sa%=0:Ta%=0:Va%=0:Wa%=0:Xa%=0:Za%=0:c%=-1:REPEAT:PROCFa(k$,U$,c$,c%):IFc$<>""THEN
280SYS8,17,"Printers:"+c$+".Resources.Support"TOd%,,Qa%,,Ra%:IFd%=1AND(Qa%AND-1048576)=-1048576THEN
285Ra%=Ra%+3ANDNOT3:CASE(Qa%AND1048320)>>8OF
290WHEN4091:IFRa%>Sa%Sa%=Ra%
295IFVa%<255a$(Va%)=c$
300Va%+=1
305WHEN4092:Ta%+=Ra%:Wa%+=1
310ENDCASE
315ENDIF
320ENDIF
325UNTILc$="":IFWa%>0DIMb%(Wa%-1),b$(Wa%-1)
330Ua%=HIMEM+Ta%+Sa%+16*1024:END=Ua%
335IF(HIMEM+Ta%+Sa%+16*1024)<Ua%THEN
340Ua%=Ua%/1024:Ua%=Ua%-Ua%MOD8+8:ERROR253,FNmsg_1(A%!12,"FA4",STR$Ua%)
345ENDIF
350IFVa%>0THEN
355DIMc$(Va%-1):FORd%=0TOVa%-1:c$(d%)="Printers:"+a$(d%)+".Resources.Support":NEXT:OVERLAYc$()
360ENDIF
365ENDPROC
370DEFPROCFa(RETURNk$,RETURNU$,RETURNc$,RETURN_a%):LOCALi%,`a%,ab%:IF_a%=-1k$=FNtask_read_env("Printers$Path",ba%)
375REPEAT:IF_a%=-1THEN
380IFk$=""THEN
385c$="":ENDPROC
390ENDIF
395i%=INSTR(k$,","):IFi%=0i%=LENk$+1
400U$=LEFT$(k$,i%-1):IFRIGHT$(U$)="."U$=LEFT$(U$)
405U$+=CHR$0:k$=MID$(k$,i%+1):_a%=0
410ENDIF
415SYS131084,10,U$,ba%,1,_a%,256,"*"TO,,,`a%,_a%;ab%:IF(ab%AND1)`a%=0
420IF`a%=1THEN
425IFba%!16=2THEN
430i%=ba%+20:CALLZ%,i%,c$:ENDPROC
435ENDIF
440ELSE:_a%=-1
445ENDIF
450UNTIL0:ENDPROC
455DEFPROCGa(c$):LOCALQa%,Ra%,f$:f$="Printers:"+c$+".Resources.Support":SYS8,17,f$TOd%,,Qa%,,Ra%:Ra%=Ra%+3ANDNOT3:IFd%<>1SYS8,19,f$,d%
460IF(Qa%AND-1048576)<>-1048576ERROR254,FNmsg_1("FA3",c$)
465CASE(Qa%AND1048320)>>8OF
470WHEN4091
475WHEN4092:IFZa%<Wa%THEN
480DIMu%Ra%:b%(Za%)=u%:b$(Za%)=c$:SYS8,16,f$,u%:Za%+=1
485ENDIF
490OTHERWISE:ERROR254,FNmsg_1("FA3",c$)
495ENDCASE
500ENDPROC
505DEFPROCHa(c$,RETURNbb%):LOCALd%,Qa%,f$,h%,cb%,db%,H%:LOCALeb%:SYS131080,8,"PrinterChoices:"+c$:f$="Printers:"+c$+".Resources.Support":SYS8,17,f$TOd%,,Qa%:IFd%<>1SYS8,19,f$,d%
510IF(Qa%AND-1048576)<>-1048576ERROR254,FNmsg_1("FA3",c$)
515B%=1347769168:C%=60:bb%=USR(P%+12):IFbb%=0ERROR253,FNmsg_1(A%!12,"FA5","PSUP")
520CASE(Qa%AND1048320)>>8OF
525WHEN4091:bb%!24=1
530WHEN4092:bb%!24=0
535OTHERWISE:B%=1347769168:C%=bb%:CALLP%+16:ERROR254,FNmsg_1(A%!12,"FA3",c$)
540ENDCASE
545bb%!0=0:$q%=c$:B%=q%:C%=2:bb%!4=USR(P%+28):bb%!8=0:bb%!12=0:SYS8,17,FNh(bb%,"Resources.!Sprites")TOd%:IFd%=1THEN
550SYS131077,"IconSprites "+FNh(bb%,"Resources.!Sprites")TOC%;d%:IF(d%AND1)!C%=253:SYS43,C%
555ENDIF
560SYS8,17,FNh(bb%,"Resources.Messages")TOd%:IFd%=1THEN
565PROCaa(FNh(bb%,"Resources.Messages"),d%):bb%!16=d%
570ELSE:bb%!16=0
575ENDIF
580SYS8,17,FNh(bb%,"Resources.Templates")TOd%:IFd%<>1ERROR254,FNmsg_1(A%!12,"FA2",c$)
585PROCIa(FNh(bb%,"Resources.Templates"),FNh(bb%,"Resources.Template3D")):d%=0:db%=bb%+20:REPEAT:PROCJa("",d%,c$):IFd%THEN
590PROCl("",c$,1,h%):B%=1145981271:C%=16+1+LENc$:cb%=USR(P%+12):IFcb%=0ERROR253,FNmsg_1(A%!12,"FA5","WIND")
595cb%!0=0:cb%!4=h%:cb%!8=0:cb%!12=0:$(cb%+16)=c$:!db%=cb%:db%=cb%+0
600ENDIF
605UNTILd%=0:PROCKa:PROCc(bb%,0,-1,0):IFNOTFNl(FNh(bb%,"Template"))ERROR254,FNmsg_1(A%!12,"OK1a",$bb%!4)
610PROCLa(bb%):PROCm:IFia%THEN
615IFNOTFNl(FNQ(bb%,h$,"PrData"))THEN
620f$="<Printers$Dir>"+".Remote.ID"+h$+"."+$bb%!4:SYS131080,8,f$:f$="<Printers$Dir>"+".Remote.ID"+h$+"."+$bb%!4+".PrData":d%=OPENOUT(f$):IFd%=0THEN
625ERROR254,FNmsg_1(A%!12,"OK1",$bb%!4)
630ELSE:eb%=bb%!8:WHILEeb%:BPUT#d%,$(eb%+12)+":":BPUT#d%,"#":eb%=eb%!0:ENDWHILE:CLOSE#d%:SYS8,18,f$,4038:IFNOTFNl(FNQ(bb%,h$,"PrData"))ERROR254,FNmsg_1(A%!12,"OK1",$bb%!4)
635ENDIF
640ENDIF
645ELSE:IFNOTFNl(FNh(bb%,"PrData"))ERROR254,FNmsg_1(A%!12,"OK1",$bb%!4)
650ENDIF
655PROCMa(bb%):PROCm:PROCBa(FNh(bb%,"Resources.PaperRO"),0):IFua%THEN
660H%=ua%:WHILEH%!0:H%=H%!0:ENDWHILE:H%!0=bb%
665ELSE:ua%=bb%
670ENDIF
675ENDPROC
680DEFPROCNa:LOCALz%,H%,t%:fa%=-1:z%=A%!48:WHILEz%:H%=z%!4:IFH%!24AND8THEN
685t%=10*H%?(24+1):IFfa%=-1fa%=t%ELSEIFt%<fa%fa%=t%
690z%!56=t%
695ELSE:z%!56=-1
700ENDIF
705z%=z%!0:ENDWHILE:SYS66TOka%:ENDPROC
710DEFFNx:LOCALda$,f%,fb%,s$:LOCALz%,H%,c$:da$=FNtask_read_env("Wimp$ScrapDir",ba%):IFda$="":=0
715IFda$<>ca$THEN
720SYS131080,8,"<Wimp$ScrapDir>.Printers"TOfb%;f%:IF(f%AND1)THEN
725fb%+=4:CALLZ%,fb%,s$:PROCb(FNmsg_2(A%!12,"WA13","<Wimp$ScrapDir>.Printers",s$))
730ELSE:ca$=da$:IFJa%THEN
735SYS131080,8,"<Wimp$ScrapDir>.Printers.RemQueue"TOfb%;f%:IF(f%AND1)=0SYS131080,8,"<Wimp$ScrapDir>.Printers.RemSpool"TOfb%;f%
740IF(f%AND1)THEN
745fb%+=4:CALLZ%,fb%,s$:PROCb(FNmsg_2(A%!12,"WA13","<Wimp$ScrapDir>.Printers",s$))
750ENDIF
755ENDIF
760z%=A%!48:WHILEz%:IFz%!24AND(1<<16)THEN
765IF(z%!40=0)THEN
770H%=z%!4:c$=$(H%!4)
775ELSE:c$=$(z%!40)
780ENDIF
785PROCOa (z%)
790ENDIF
795z%=z%!0:ENDWHILE
800ENDIF
805ENDIF
810=-1
815DEFPROCDa:LOCALc%,d%,s$,J%,c$,H%,gb%,t%,hb%,ib%,jb%,kb%:LOCALab%,lb%,S%,mb%,nb%,ob%,i$,z%,pb%,qb%,ea$,p%,rb%,s$,sb%:LOCALnb%,tb%:ub%=FNs(FNmsg_0(A%!12,"NNE"),"s"+FNmsg_0(A%!12,"IC"),-5,251658240):vb%=-1:IFia%THEN
820s$="<Printers$Dir>"+".Remote.ID"+h$+".Settings":SYS8,17,s$TOc%
825ELSE:SYS8,17,"<Printers$Dir>"+".Settings"TOc%
830ENDIF
835IFc%=1THEN
840IFia%THEN
845IFNOTFNl (s$)ERROR254,FNmsg_0(A%!12,"OKD")
850ELSE:IFNOTFNl("<Printers$Dir>"+".Settings")ERROR254,FNmsg_0(A%!12,"OKD")
855ENDIF
860J%=FNb("fv:"):IFJ%=0THEN
865PROCj(FNmsg_0(A%!12,"OKV"),1)
870ELSE:IFFNc($J%)<>1THEN
875PROCj(FNmsg_0(A%!12,"OKV"),1)
880ELSE:PROCP:REPEAT:J%=FNb("cl:"):PROCPa:ab%=0:lb%=FNb("fg:"):IFlb%THEN
885ab%=FNc ($lb%)
890ENDIF
895hb%=FNb("sn:"):IFhb%c$=$hb%ELSEc$=""
900PROCQa:IF(J%>0)AND((ab%AND(1<<17))=0)AND(lb%>0)THEN
905d%=INSTR($J%,":"):IFd%=0d%=LEN$J%+1
910s$=MID$($J%,d%+1):$J%=LEFT$($J%,d%-1):H%=ua%:ib%=0:WHILEH%ANDNOTib%:IF$H%!4=$J%ib%=-1
915IFNOTib%H%=H%!0
920ENDWHILE:IFNOTib%THEN
925PROCRa:PROCGa($J%):PROCHa($J%,H%):PROCSa:ib%=-1
930ENDIF
935IFNOTib%THEN
940hb%=FNb("nm:"):IFhb%c$=$hb%ELSEc$=""
945PROCb(FNmsg_2(A%!12,"WA1",$J%,c$))
950ELSE:PROCTa(H%)
955ENDIF
960ENDIF
965UNTILJ%=0:PROCQ:REPEAT:J%=FNb("cl:"):nb%=!wb%:tb%=xb%:PROCP:ab%=0:lb%=FNb("fg:"):IFlb%THEN
970ab%=FNc ($lb%)
975ENDIF
980lb%=FNb("pn:"):IFlb%i$=$lb%ELSEi$=""
985hb%=FNb("sn:"):IFhb%c$=$hb%ELSEc$=""
990PROCQ:IF(J%>0)AND((ab%AND(1<<17))>0)AND(lb%>0)THEN
995mb%=0:S%=Ka%:WHILES%ANDNOTmb%:IFc$=$S%!4THEN
1000mb%=-1
1005ELSE:S%=S%!0
1010ENDIF
1015ENDWHILE:IFNOTmb%ORNOTJa%THEN
1020p%=INSTR($J%,":"):IFp%=0THEN
1025p%=LEN$J%
1030ENDIF
1035PROCUa (c$,MID$($t%,1,p%-1)," ")
1040ELSE:IFab%AND1THEN
1045PROCP:z%=FNy (S%,ab%,-1,0,kb%):PROCQ:PROCP:!wb%=nb%:xb%=tb%:PROCVa (z%):PROCQ:PROCWa (Ka%,$S%!4):IFab%AND2THEN
1050z%!24=z%!24OR2
1055ELSE:z%!24=z%!24ANDNOT2
1060ENDIF
1065d%=ja%:WHILEd%:IF$d%!4=i$THEN
1070z%!36=d%:d%=0
1075ELSE:d%=d%!0:IFd%=0THEN
1080d%=ja%:z%!36=d%:PROCb(FNG(A%!12,"WA11",i$,$d%!4,c$)):d%=0
1085ENDIF
1090ENDIF
1095ENDWHILE
1100ENDIF
1105ENDIF
1110ENDIF
1115UNTILJ%=0
1120ENDIF
1125ENDIF
1130PROCm
1135ENDIF
1140PROCw(A%!48,-5,0):rb%=0:z%=A%!48:WHILEz%:IFz%!24AND2THEN
1145rb%=-1:jb%=z%:z%=0
1150ELSE:z%=z%!0
1155ENDIF
1160ENDWHILE:z%=A%!48:IF(NOTrb%)AND(z%)THEN
1165PROCselect_printer (z%,-1,0)
1170ELSE:IFrb%ANDjb%THEN
1175PROCselect_printer (jb%,-1,0)
1180ENDIF
1185ENDIF
1190ENDPROC
1195DEFPROCTa(H%):LOCALJ%,R%,z%,d%,N%,h%,X$,yb%:J%=FNe("nm:"):X$=$J%:IFH%!44>100THEN
1200PROCb(FNmsg_1(A%!12,"WA7",X$)):ENDPROC
1205ENDIF
1210yb%=H%!12:R%=yb%!4:WHILER%>0:IF$R%!8=X$THEN
1215R%!(R%!4*4+8)+=1:R%=-1
1220ELSE:R%=R%!0
1225ENDIF
1230ENDWHILE:IFR%=0THEN
1235PROCb(FNmsg_1(A%!12,"WA8",X$)):ENDPROC
1240ENDIF
1245B%=1414419024:C%=68:z%=USR(P%+12):IFz%=0ERROR253,FNmsg_1(A%!12,"FA5","PRNT")
1250B%=J%:C%=2:z%!8=USR(P%+28):z%!0=0:z%!4=H%:IFH%!24AND8z%!56=10*H%?(24+1)ELSEz%!56=-1
1255IFH%!24AND4THEN
1260h%=FNc($FNe("cn:")):B%=1413697091:C%=h%*4:N%=USR(P%+12):IFN%=0ERROR253,FNmsg_1(A%!12,"FA5","CNCT")
1265z%!12=N%:IF0<=h%-1THEN
1270FORd%=0TOh%-1:J%=FNd:IFJ%THEN
1275T%=FNa(J%,"nl:"):IFT%THEN
1280N%!(d%*4)=0
1285ELSE:T%=FNa(J%,"in:"):IFT%THEN
1290N%!(d%*4)=FNstore_integer(FNc($T%))
1295ELSE:T%=FNa(J%,"st:"):IFT%THEN
1300B%=T%:C%=2:gb%!(d%*4)=USR(P%+28)
1305ELSE:T%=FNa(J%,"s0:"):IFT%THEN
1310B%=T%:C%=3:gb%!(d%*4)=USR(P%+28)
1315ELSE:T%=FNa(J%,"gs:"):IFT%THEN
1320B%=T%:C%=4:gb%!(d%*4)=USR(P%+28)
1325ELSE:T%=FNa(J%,"pt:"):IFT%THEN
1330B%=1381257040:C%=4:N%!(d%*4)=USR(P%+12):IFN%!(d%*4)=0ERROR253,FNmsg_1(A%!12,"FA5","POTR")
1335!N%!(d%*4)=FNH($T%,0)
1340ELSE:PROCR(FNmsg_1(A%!12,"OKH",$J%))
1345ENDIF
1350ENDIF
1355ENDIF
1360ENDIF
1365ENDIF
1370ENDIF
1375ENDIF
1380NEXT
1385ENDIF
1390ELSE:B%=1413697091:C%=36:N%=USR(P%+12):IFN%=0ERROR253,FNmsg_1(A%!12,"FA5","CNCT")
1395z%!12=N%:N%!0=FNc($FNe("ct:")):N%!4=FNc($FNe("bd:")):IFNOTFNRAND(N%?4>15)THEN
1400PROCj(FNmsg_1(A%!12,"OKAM",FNmsg_0(A%!12,"BR"+STR$(N%?4))),1):N%?4=0
1405ENDIF
1410N%!8=FNc($FNe("ft:")):C%=2:B%=FNe("et:"):N%!12=USR(P%+28):B%=FNe("fl:"):N%!16=USR(P%+28):B%=FNe("ns:"):N%!20=USR(P%+28):B%=FNe("np:"):N%!24=USR(P%+28):B%=FNe("nu:"):N%!28=USR(P%+28):B%=FNe("no:"):N%!32=USR(P%+28):J%=FNb("cf:"):IFJ%THEN
1415N%?6=FNc($J%)
1420ELSE:N%?6=0
1425ENDIF
1430CASEN%!0OF
1435WHEN4:IFNOTFNtTHEN
1440N%!0=0:PROCb(FNmsg_2(A%!12,"WA9",$z%!8,FNmsg_0(A%!12,"CN4")))
1445ENDIF
1450WHEN6:IFNOTFNzTHEN
1455N%!0=0:PROCb(FNmsg_2(A%!12,"WA9",$z%!8,FNmsg_0(A%!12,"CN6")))
1460ENDIF
1465ENDCASE
1470ENDIF
1475h%=FNc($FNe("cs:")):B%=1195789891:C%=h%*4:gb%=USR(P%+12):IFgb%=0ERROR253,FNmsg_1(A%!12,"FA5","CNFG")
1480z%!16=gb%:IF0<=h%-1THEN
1485FORd%=0TOh%-1:J%=FNd:IFJ%THEN
1490T%=FNa(J%,"nl:"):IFT%THEN
1495gb%!(d%*4)=0
1500ELSE:T%=FNa(J%,"in:"):IFT%THEN
1505gb%!(d%*4)=FNstore_integer(FNc($T%))
1510ELSE:T%=FNa(J%,"st:"):IFT%THEN
1515B%=T%:C%=2:gb%!(d%*4)=USR(P%+28)
1520ELSE:T%=FNa(J%,"s0:"):IFT%THEN
1525B%=T%:C%=3:gb%!(d%*4)=USR(P%+28)
1530ELSE:T%=FNa(J%,"gs:"):IFT%THEN
1535B%=T%:C%=4:gb%!(d%*4)=USR(P%+28)
1540ELSE:T%=FNa(J%,"pt:"):IFT%THEN
1545B%=1381257040:C%=4:gb%!(d%*4)=USR(P%+12):IFgb%!(d%*4)=0ERROR253,FNmsg_1(A%!12,"FA5","POTR")
1550!gb%!(d%*4)=FNH($T%,0)
1555ELSE:PROCR(FNmsg_1(A%!12,"OKH",$J%))
1560ENDIF
1565ENDIF
1570ENDIF
1575ENDIF
1580ENDIF
1585ENDIF
1590ENDIF
1595NEXT
1600ENDIF
1605z%!20=-1:z%!24=FNc($FNe("fg:")):z%!28=-1:z%!32=0:J%=FNe("pn:"):d%=ja%:WHILEd%:IF$d%!4=$J%THEN
1610z%!36=d%:d%=0
1615ELSE:d%=d%!0:IFd%=0THEN
1620d%=ja%:z%!36=d%:PROCb(FNG(A%!12,"WA11",$J%,$d%!4,X$)):d%=0
1625ENDIF
1630ENDIF
1635ENDWHILE:C%=2:B%=FNe("sn:"):z%!40=USR(P%+28):B%=FNe("ic:"):z%!44=USR(P%+28):IFH%!32AND4z%!48=FNIELSEz%!48=0
1640z%!52=0:IFz%!24AND1THEN
1645PROCXa(z%):IFz%!24AND2THEN
1650PROCselect_printer(z%,-1,0)
1655ENDIF
1660ENDIF
1665IFz%!24AND(1<<16)ANDJa%THEN
1670PROCOa (z%)
1675ENDIF
1680d%=A%+48:WHILE!d%:d%=!d%+0:ENDWHILE:!d%=z%:va%+=1:PROCNa:ENDPROC
1685DEFFNe(fa$):LOCALJ%:J%=FNb(fa$):IFJ%=0PROCR(FNmsg_1(A%!12,"OKG",fa$))
1690=J%
1695DEFPROCR(e$):PROCS(FNmsg_1(A%!12,"OKE",e$)):ENDPROC
1700DEFFNh(H%,s$):="Printers:"+$H%!4+"."+s$
1705DEFFNA(h%):LOCALp%:IFh%=-2THEN=-1
1710IFh%=zb%THEN=-1
1715IFh%=Ab%THEN=-1
1720IFh%=Bb%THEN=-1
1725IFh%=Cb%THEN=-1
1730IFh%=Db%THEN=-1
1735IFh%=A%!40THEN=-1
1740IFh%=Q%THEN=-1
1745IFh%=Fb%THEN=-1
1750IFh%=Gb%THEN=-1
1755p%=A%!48:WHILEp%:IFp%!48=h%THEN=-1
1760p%=p%!0:ENDWHILE:=0
1765DEFPROCCa:LOCALi%,ga$,ha$,Hb%,Ib%,Jb%,Kb%,j%:PROCIa("Printers:Templates","Printers:Template3D"):PROCl("","info",1,Gb%):PROCl("","prntctrl",1,Fb%):PROCl("","connections",1,Q%):PROCl("","queue",1,A%!40):PROCl("","query",1,Db%)
1770PROCl("","papersize",1,Cb%):PROCl("","howquery",1,Bb%):PROCl("","shutdown",1,Ab%):PROCl("","save",1,zb%):PROCKa:PROCicon_write(Gb%,3,FNmsg_0(A%!12,"VSN")):FORj%=0TO5:B%=1178878793:C%=40:i%=USR(P%+12):IFi%=0ERROR253,FNmsg_1(A%!12,"FA5","ICDF")
1775!i%=A%!40:i%!4=j%:SYS262350,,i%:SYS262340,,i%:A%!(52+4*j%)=i%+8:NEXT:FORj%=0TO4:B%=1178878793:C%=40:i%=USR(P%+12):IFi%=0ERROR253,FNmsg_1(A%!12,"FA5","ICDF")
1780!i%=Fb%:i%!4=j%:SYS262350,,i%:IFj%=4THEN
1785SYS262340,,i%
1790ELSE:B%=1482184792:C%=i%!36+1:i%!28=USR(P%+12):IFi%!28=0ERROR253,FNmsg_1(A%!12,"FA5","XXXX")
1795ENDIF
1800a%(j%)=i%+8:NEXT:FORj%=0TO3:a%(j%)!16=a%(4)!16:NEXT:FORj%=0TO3:PROCicon_write(Fb%,j%,FNmsg_0(A%!12,FNicon_read(Fb%,j%))):NEXT:ENDPROC
1805DEFFNba(a,b):IFa>bTHEN=aELSE=b
1810DEFFNI:LOCALp%:PROCIa("Printers:Templates","Printers:Template3D"):PROCl("","pause",1,p%):PROCKa:=p%
1815DEFPROCZa(Lb%):!O%=Lb%:SYS262348,,O%OR1:B%=1179014466:C%=O%!76:CALLP%+16:SYS262339,,O%:ENDPROC
1820DEFPROCpa:LOCALMb%,i%,t$,ia$,z%,H%,Nb%:LOCALS%:CASE!q%OF
1825WHENA%!40:SYS262344,,q%TOMb%:B%=q%:C%=Mb%:CALLP%+36
1830WHENFb%:SYS262344,,q%TOMb%:WHILEMb%:FORi%=0TO3:a%(i%)!4=a%(4)!4:a%(i%)!12=a%(4)!12:NEXT:z%=A%!48:Ob%=0:WHILEz%:Ob%+=1:IFz%!40THEN
1835$a%(0)!20=$z%!40
1840ELSE:?a%(0)!20=13
1845ENDIF
1850$a%(1)!20=$z%!8:t$=STR$!(z%!12+0):ia$=FNmsg_0(A%!12,"IC"+t$):IFia$="IC"+t$ia$=FNmsg_1(A%!12,"ICx",t$)
1855$a%(2)!20=ia$:IFz%!24AND(1<<16)THEN
1860t$="SHA"
1865ELSE:IFz%!24AND1THEN
1870t$="ACT"
1875ELSE:t$="INA"
1880ENDIF
1885ENDIF
1890$a%(3)!20=FNmsg_0(A%!12,t$):FORi%=0TO3:SYS262370,,a%(i%):a%(i%)!12=a%(i%)!4:a%(i%)!4-=(a%(4)!12-a%(4)!4):NEXT:z%=z%!0:ENDWHILE:S%=Ka%:WHILES%:$a%(0)!20=$S%!4:$a%(1)!20=$S%!8:$a%(2)!20=FNmsg_0 (A%!12,"IC9"):IFS%!20>0THEN
1895$a%(3)!20=FNmsg_0 (A%!12,"UNA")
1900ELSE:$a%(3)!20=FNmsg_0 (A%!12,"INA")
1905ENDIF
1910FORi%=0TO3:SYS262370,,a%(i%):a%(i%)!12=a%(i%)!4:a%(i%)!4-=(a%(4)!12-a%(4)!4):NEXT:S%=S%!0:ENDWHILE:SYS262346,,q%TOMb%:ENDWHILE
1915OTHERWISE:PROCH(!q%,Nb%,H%,z%):PROCc(H%,z%,1,q%)
1920ENDCASE
1925ENDPROC
1930DEFPROC_a(z%):LOCALy%,s$:IFz%!40s$=$z%!40ELSEs$=$z%!8
1935PROC`a(z%!48,FNmsg_1(A%!12,"PAU",s$)):!O%=-2:SYS262347,,O%:y%=O%!4-O%!20:O%!4=z%!20:SYS262350,,O%:y%+=O%!16-680:!O%=z%!48:SYS262347,,O%:O%!12=(O%!12-O%!4)+y%:O%!16=140+240:O%!4=y%:O%!8=O%!16-240:O%!28=-1:SYS262341,,O%:ENDPROC
1940DEFPROCs(Lb%):!O%=24:O%!12=0:O%!16=262347:O%!20=Lb%:SYS262375,17,O%,0:ENDPROC
1945DEFPROCe:LOCALi%,j%,z%,H%,Nb%:PROCs(!q%):IFFNA(!q%)THEN
1950SYS262342,,q%
1955ELSE:PROCH(!q%,Nb%,H%,z%):PROCc(H%,z%,3,q%)
1960ENDIF
1965ENDPROC
1970DEFPROCfree_structure(p%):LOCALi%:IFp%=0ENDPROC
1975CASEp%!-4OF
1980WHEN1146377036:WHILEp%:IF0<=p%!4-1THEN
1985FORi%=0TOp%!4-1:PROCfree_structure(p%!(i%*4+8)):NEXT
1990ENDIF
1995i%=p%!0:B%=1146377036:C%=p%:CALLP%+16:p%=i%:ENDWHILE
2000WHEN1280266050:PROCfree_structure(p%!0):PROCfree_structure(p%!4):B%=1280266050:C%=p%:CALLP%+16
2005WHEN1196707401,1196577875,810701907,1381258055,1381257040:B%=p%!-4:C%=p%:CALLP%+16
2010WHEN1380010051:WHILEp%:i%=!p%:B%=1380010051:C%=p%:CALLP%+16:p%=i%:ENDWHILE
2015OTHERWISE:ERROR253,FNmsg_1(A%!12,"FAA",STR$~(p%-4))
2020ENDCASE
2025ENDPROC
2030DEFPROCva(r%):LOCALs$,z%,H%,Nb%,Pb%,i%:Pb%=q%!4:CASEq%!16OF
2035WHEN0:PROCI:PROCx
2040WHEN1:PROCab
2045WHEN2:IFNOTq%!36THEN
2050SYS262356,,-1:i%=q%+44:CALLZ%,i%,s$:PROCicon_write(Q%,30,s$)
2055ENDIF
2060WHEN3:PROCbb
2065WHEN5:IFq%!40=4038THEN
2070q%!12=q%!8:q%!16=4:SYS262375,17,q%,Pb%:PROCO
2075ENDIF
2080WHEN8:IFA%!32THEN
2085IF!q%<>20THEN
2090IF(q%!20AND1)=0Qb%=1ELSEQb%=2
2095ELSE:Qb%=1
2100ENDIF
2105q%!12=q%!8:SYS262375,19,q%,Pb%:A%!20=A%!20OR1:PROCcb(Ab%)
2110ENDIF
2115WHEN10:BPUT#q%!20,"/"+FNtask_read_env("Printers$Dir",O%)
2120WHEN11:z%=A%!48:WHILEz%:IF(z%!24AND8)<>0ANDz%<>ra%THEN
2125r%=z%!12:IFr%!0=q%!20ANDq%!24<=0THEN
2130s$=FNmsg_0(A%!12,"INU"):!q%=32+LENs$ANDNOT3:q%!12=q%!8:q%!16=12:$(q%+28)=s$+CHR$0:SYS262375,17,q%,Pb%:z%=0
2135ENDIF
2140ENDIF
2145IFz%z%=z%!0
2150ENDWHILE
2155WHEN12:qa%=2
2160WHEN1282:IFFNA(q%!32)THEN
2165PROCdb
2170ELSE:PROCH(q%!32,Nb%,H%,z%):IFNb%THEN
2175PROCc(H%,z%,r%,q%)
2180ELSE:IFNOTq%!36THEN
2185IFxa%PROCc (xa%!4,xa%,r%,q%)ELSEPROCdb
2190ENDIF
2195ENDIF
2200ENDIF
2205WHEN262345:IFq%!20=Ab%THEN
2210IFA%!32>0A%!20=A%!20ANDNOT1
2215ELSE:PROCeb
2220ENDIF
2225WHEN524609:A%!36=0
2230WHEN524610:IFW%THEN
2235q%!20=-2:q%!24=W%!20:PROCab
2240ELSE:z%=A%!48:IFz%THEN
2245q%!20=1:s$=FNmsg_0(A%!12,"OKU")+CHR$0
2250ELSE:q%!20=2:s$=FNmsg_0(A%!12,"OKW")+CHR$0
2255ENDIF
2260!q%=28+LENs$ANDNOT3:q%!12=q%!8:q%!16=524612:$(q%+24)=s$+CHR$0:SYS262375,17,q%,Pb%
2265ENDIF
2270WHEN524611:IFq%!4<>Rb%THEN
2275IFq%!0=20THEN
2280PROCI:PROCx
2285ELSE:IFq%!12=ha%THEN
2290PROCb(FNmsg_0(A%!12,"FAJ")):PROCI:PROCx
2295ELSE:q%!12=q%!8:q%!20=34:SYS262375,17,q%,Pb%
2300ENDIF
2305ENDIF
2310ENDIF
2315WHEN524614:ta%=2
2320WHEN524626:IFW%THEN
2325PROCselect_printer(W%,-1,0)
2330ENDIF
2335OTHERWISE:IFFNx
2340PROCw(W%,r%,q%)
2345ENDCASE
2350ENDPROC
2355DEFPROCdb:LOCALs$,z%,F$:CASEq%!32OF
2360WHEN-2:IFA%!48=0THEN
2365PROCinteractive_help(FNmsg_0(A%!12,"ICON0")):ENDPROC
2370ENDIF
2375PROCy(q%!36,z%):IFz%!40s$=$z%!40ELSEs$=$z%!8
2380PROCinteractive_help(FNmsg_1(A%!12,"ICON1",s$))
2385WHENzb%:s$=FNmsg_0(A%!12,"SAVE"+STR$q%!36):IFs$="SAVE"+STR$q%!36s$=FNmsg_0(A%!12,"SAVE")
2390PROCinteractive_help(s$)
2395WHENAb%:s$=FNmsg_0(A%!12,"SHTDWN"+STR$q%!36):IFs$="SHTDWN"+STR$q%!36s$=FNmsg_0(A%!12,"SHTDWN")
2400PROCinteractive_help(s$)
2405WHENBb%:s$=FNmsg_0(A%!12,"HWQRY"+STR$q%!36):IFs$="HWQRY"+STR$q%!36s$=FNmsg_0(A%!12,"HWQRY")
2410PROCinteractive_help(s$)
2415WHENCb%:s$=FNmsg_0(A%!12,"PAPER"+STR$q%!36):IFs$="PAPER"+STR$q%!36s$=FNmsg_0(A%!12,"PAPER")
2420PROCinteractive_help(s$)
2425WHENDb%:s$=FNmsg_0(A%!12,"QUERY"+STR$q%!36):IFs$="QUERY"+STR$q%!36s$=FNmsg_0(A%!12,"QUERY")
2430PROCinteractive_help(s$)
2435WHENA%!40:PROCinteractive_help(FNmsg_0(A%!12,"QUEUE"))
2440WHENQ%:F$="CNCT"+STR$q%!36:IFq%!36=13THEN
2445IFFNicon_set(Q%,13)F$+="b"ELSEF$+="a"
2450ENDIF
2455IFq%!36=35THEN
2460IFFNicon_set(Q%,35)F$+="b"ELSEF$+="a"
2465ENDIF
2470IFq%!36=37THEN
2475IFFNicon_set(Q%,37)F$+="b"ELSEF$+="a"
2480ENDIF
2485s$=FNmsg_0(A%!12,F$):IFs$=F$s$=FNmsg_0(A%!12,"CNCT")
2490PROCinteractive_help(s$)
2495WHENFb%:PROCinteractive_help(FNmsg_0(A%!12,"PRCTRL"))
2500WHENGb%:PROCinteractive_help(FNmsg_0(A%!12,"INFO"))
2505OTHERWISE:SYS262388,1,V%,q%!32,q%!36:CASEJ$OF
2510WHEN"ME1":IF!V%<>2THEN
2515PROCinteractive_help(FNmsg_0(A%!12,"HME1-"+STR$!V%))
2520ELSE:IFA%!44=0THEN
2525PROCinteractive_help(FNmsg_0(A%!12,"HME1-2a"))
2530ELSE:PROCinteractive_help(FNmsg_0(A%!12,"HME1-2"))
2535ENDIF
2540ENDIF
2545WHEN"ME2","ME3","ME4","ME5","ME6","MP1":PROCinteractive_help(FNmsg_0(A%!12,"H"+J$))
2550WHEN"MQ1":IFFNJ(Sb%,!V%)THEN
2555IF!V%>3ANDAa%=0THEN
2560PROCinteractive_help(FNmsg_0(A%!12,"SMQ1-7"))
2565ELSE:PROCinteractive_help(FNmsg_0(A%!12,"SMQ1-"+STR$(!V%)))
2570ENDIF
2575ELSE:IF!V%<>4THEN
2580PROCinteractive_help(FNmsg_0(A%!12,"HMQ1-"+STR$(!V%)))
2585ELSE:IFAa%!12THEN
2590PROCinteractive_help(FNmsg_0(A%!12,"HMQ1-4a"))
2595ELSE:PROCinteractive_help(FNmsg_0(A%!12,"HMQ1-4b"))
2600ENDIF
2605ENDIF
2610ENDIF
2615WHEN"MC1":IFFNJ(Sb%,!V%)THEN
2620IF!V%=6THEN
2625PROCinteractive_help(FNmsg_0(A%!12,"SMC1-6")):ENDPROC
2630ENDIF
2635SYS262358,Fb%,O%,1<<21,1<<21:IF!O%=-1THEN
2640PROCinteractive_help(FNmsg_0(A%!12,"SMC1-2"))
2645ELSE:PROCinteractive_help(FNmsg_0(A%!12,"SMC1-0"))
2650ENDIF
2655ELSE:PROCinteractive_help(FNmsg_0(A%!12,"HMC1-"+STR$!V%))
2660ENDIF
2665WHEN"MC1s":IFFNJ(Sb%,!V%)THEN
2670IF!V%=7THEN
2675PROCinteractive_help(FNmsg_0(A%!12,"SMC1s-7")):ENDPROC
2680ENDIF
2685IF!V%=2ANDJa%=0THEN
2690PROCinteractive_help(FNmsg_0(A%!12,"SMC1s-2")):ENDPROC
2695ENDIF
2700SYS262358,Fb%,O%,1<<21,1<<21:IF!O%=-1THEN
2705PROCinteractive_help(FNmsg_0(A%!12,"SMC1s-3"))
2710ELSE:PROCinteractive_help(FNmsg_0(A%!12,"SMC1s-0"))
2715ENDIF
2720ELSE:PROCinteractive_help(FNmsg_0(A%!12,"HMC1s-"+STR$!V%))
2725ENDIF
2730ENDCASE
2735ENDCASE
2740ENDPROC
2745DEFPROCinteractive_help(m$):LOCALPb%:!q%=24+LENm$ANDNOT3:q%!12=q%!8:q%!16=1283:$(q%+20)=m$+CHR$0:Pb%=q%!4:SYS262375,17,q%,Pb%:ENDPROC
2750DEFPROCab:LOCALs$,i%,y%,z%,M%:IFq%!20=A%!40THEN
2755!V%=A%!40:SYS262347,,V%:B%=q%!32-V%!16+V%!24:y%=USR(P%+44):i%=A%!16:z%=!i%:M%=i%!4:IFz%THEN
2760q%!20=-2:q%!24=z%!20
2765ENDIF
2770ELSE:PROCy(q%!24,z%)
2775ENDIF
2780IFq%!20<>-2ERROR254,FNmsg_0(A%!12,"OKN")
2785i%=q%+44:CALLZ%,i%,s$:i%=LENs$:WHILEi%>0:IFMID$(s$,i%,1)="."ORMID$(s$,i%,1)=":"THEN
2790s$=MID$(s$,i%+1):i%=0
2795ENDIF
2800i%-=1:ENDWHILE:ba$=s$:A%!36=0:Da%=q%!4:s$=FNm(-1):IF(z%!32)<>0OR(z%!24AND36)<>0THEN
2805SYS131108,"Printer$Temp",,-1:q%!0=48+LENs$ANDNOT3:q%!12=q%!8:q%!16=2:q%!36=-1:$(q%+44)=s$+CHR$0:SYS262375,17,q%,Da%:Fa%=q%!8
2810ELSE:q%!12=q%!8:SYS262375,19,q%,Da%:PROCselect_printer(z%,0,0):SYS36,"Printer$Temp",s$,LENs$:q%!16=524608:SYS262375,18,q%,Da%:PROCfb (Da%,ba$)
2815ENDIF
2820ENDPROC
2825DEFFNm(Tb%):LOCALc%:IFNOTFNxTHEN
2830IFTb%THEN
2835ERROR254,FNmsg_0(A%!12,"OKAO")
2840ELSE:PROCj(FNmsg_0(A%!12,"OKAO"),1):=""
2845ENDIF
2850ENDIF
2855REPEAT:Ha%+=1:SYS8,17,"<Wimp$ScrapDir>.Printers."+STR$Ha%TOc%:UNTILc%=0:=FNS("<Wimp$ScrapDir>.Printers."+STR$Ha%)
2860DEFPROCbb:LOCALs$,i%,z%,O$,o$,Ub%,Pb%:IFq%!40=4038ANDq%!20=Fb%THEN
2865PROCO:ENDPROC
2870ENDIF
2875i%=q%+44:CALLZ%,i%,o$:SYS8,17,o$TOUb%:IF(Ub%AND2)AND(q%!40<4096)q%!40=4096
2880IFq%!20=A%!40THEN
2885!V%=A%!40:SYS262347,,V%:B%=q%!32-V%!16+V%!24:y%=USR(P%+44):i%=A%!16:z%=!i%:M%=i%!4:IFz%THEN
2890q%!20=-2:q%!24=z%!20
2895ENDIF
2900ENDIF
2905IFq%!20<>-2ERROR254,FNmsg_0(A%!12,"OKN")
2910A%!36=Fa%<>0ANDFa%=q%!12:q%!12=q%!8:q%!16=4:Pb%=q%!4:SYS262375,17,q%,Pb%:Fa%=0:PROCy(q%!24,z%):Ub%=q%!40:IFz%=0THEN
2915IFUb%<>4038ERROR254,FNmsg_0(A%!12,"OKW")
2920PROCO:ENDPROC
2925ENDIF
2930IFA%!36THEN
2935SYS272000,Da%TOi%:CALLZ%,i%,O$:o$=ba$:s$=FNtask_read_env("Printer$Temp",O%):IFs$=""i%=q%+44:CALLZ%,i%,s$
2940ELSE:i%=q%+44:CALLZ%,i%,s$:i%=LENs$:WHILEMID$(s$,i%,1)<>".":i%-=1:ENDWHILE:o$=MID$(s$,i%+1):i%=1:WHILEMID$(s$,i%,1)<>".":i%+=1:ENDWHILE:O$=LEFT$(s$,i%-1)
2945ENDIF
2950PROCgb(A%!36,O$,s$,o$,z%,Ub%):ENDPROC
2955DEFPROCeb:CASEJ$OF
2960WHEN"MQ1":IFza%THEN
2965IFAa%Aa%?11=Aa%?11ANDNOT8ELSEza%!24=za%!24ANDNOT16
2970PROCf(-1,za%,Aa%):ya%=0:za%=0:Aa%=0
2975ENDIF
2980WHEN"MC1","MC1s":SYS262358,Fb%,O%,1<<21,1<<21:IFNOT!O%ANDO%!4=-1ANDwa%=0PROCicon_deselect(Fb%,!O%)
2985ENDCASE
2990J$="":ENDPROC
2995DEFPROCwa:LOCALs$,z%,M%,N%,Vb%,G$,H%,z$,t%,Qa%,Ra%,Wb%,o$:LOCALC$,z%,mb%,w$,c$,A$:CASEq%!16OF
3000WHEN11:qa%=1
3005WHEN524608:PROCy(q%!24,z%):IFz%=0ERROR254,FNmsg_0(A%!12,"OKW")
3010M%=z%!32:H%=z%!4:N%=z%!12:IFM%=0AND(z%!24AND36)=0THEN
3015i%=q%+44:CALLZ%,i%,o$:CASEN%!0OF
3020WHEN5:Vb%=(N%?6AND2)<>0
3025WHEN9:Vb%=0
3030OTHERWISE:Vb%=(N%?6AND1)<>0
3035ENDCASE
3040IFVb%THEN
3045g$=FNm(-1):IFN%!0=5THEN
3050SYS36,"PrinterType$5",g$,LENg$:PROCJ(5)
3055ELSE:SYS36,"PrinterType$10",g$,LENg$:PROCJ(10)
3060ENDIF
3065G$=g$
3070ENDIF
3075z$=FNm(-1):SYS36,"Printer$Temp",z$,LENz$:q%!0=20:q%!16=524613:SYS262375,18,q%,Da%:ta%=0:REPEAT:PROCv(la%):UNTILta%:b%=(ta%=2):Wb%=q%!4:IFVb%THEN
3080s$=FNn(z%,-1):IFs$<>""THEN
3085PROCb(s$):IFz%!32THEN
3090z%!24=z%!24OR4:PROCi(z%):PROCf(-1,z%,0)
3095ENDIF
3100ENDIF
3105ENDIF
3110IFb%THEN
3115SYS8,17,z$TOt%,,Qa%,,Ra%:IFt%THEN
3120s$=z$:SYS8,23,z$TO,,,,,,Ub%
3125ELSE:IFVb%THEN
3130IFN%!0=5THEN
3135PROChb($N%!16,G$):ENDPROC
3140ELSE:s$=G$:Ub%=H%!28
3145ENDIF
3150ELSE:IFN%!0=9ANDq$<>""THEN
3155c$=$(z%!40):K%=INSTR(c$," "):WHILEK%:MID$(c$,K%,1)=CHR$160:K%=INSTR(c$," ",K%+1):ENDWHILE:w$=q$+"RemSpool."+h$+"."+c$:C$=q$+"RemQueue."+h$+"."+STR$(Na%):SYS131080,17,w$TOt%,,,,l%;f%:IF(l%>0)AND((f%AND1)=0)AND(t%=1)THEN
3160SYS272000,Da%TOi%:CALLZ%,i%,A$:IFFNB (z%,A$,o$)THEN
3165Xb%=W%!4:SYS131113,25,w$,C$
3170ELSE:SYS131080,6,w$
3175ENDIF
3180ENDIF
3185ENDIF
3190PROCselect_printer(W%,0,-1):ENDPROC
3195ENDIF
3200ENDIF
3205SYS272000,Wb%TOO$:i%=LENo$:WHILEi%>0:IFMID$(o$,i%,1)="."ORMID$(o$,i%,1)=":"THEN
3210o$=MID$(o$,i%+1):i%=0
3215ENDIF
3220i%-=1:ENDWHILE:PROCgb(-1,O$,s$,o$,z%,Ub%):ENDPROC
3225ENDIF
3230ENDIF
3235PROCselect_printer(z%,0,-1):SYS36,"Printer$Temp",,-1:s$=FNm(-1):q%!0=48+LENs$ANDNOT3:q%!16=2:q%!36=-1:$(q%+44)=s$+CHR$0:SYS262375,17,q%,Da%:Fa%=q%!8
3240WHEN524613:ta%=1
3245OTHERWISE:PROCw(W%,19,q%)
3250ENDCASE
3255ENDPROC
3260DEFPROCx:LOCALH%:LOCALz%,c$,Ub%,c$,Zb%,f%,N%:PROCz:IFW%THEN
3265c$=$W%!40:N%=W%!12:H%=W%!4:Ub%=H%!28:IFN%!0=9THEN
3270SYS424578,0,2,c$,0,0TO,,,,,Zb%;f%:IF(Zb%>0)AND((f%AND0)=0)THEN
3275SYS424323,0,Zb%,c$,Ub%
3280ENDIF
3285ENDIF
3290ENDIF
3295IFJa%THEN
3300z%=A%!48:WHILEz%:IF(z%!24)AND(1<<16)THEN
3305IF(z%!40=0)THEN
3310H%=z%!4:c$=$H%!4
3315ELSE:c$=$z%!40
3320ENDIF
3325PROCib (z%)
3330ENDIF
3335z%=z%!0:ENDWHILE
3340ENDIF
3345SYS131077,"%Wipe <Wimp$ScrapDir>.Printers.* RF~C~V":H%=ua%:WHILEH%:PROC_(H%!16):H%=H%!0:ENDWHILE:PROC_(A%!12):PROCw(0,-2,0):PROCjb:ENDPROC
3350DEFPROCsa:LOCALH%,z%,Nb%,D$,H$,_b%:IFNOTFNA(!q%)THEN
3355PROCH(!q%,Nb%,H%,z%):IFz%!40D$=$z%!40ELSED$=""
3360_b%=W%:PROCc(H%,z%,8,q%):IF$(Nb%+16)="configure"THEN
3365IFz%!40H$=$z%!40ELSEH$=""
3370IFH$<>D$THEN
3375IFNOT(z%!24AND(1<<16))THEN
3380PROCkb(z%):PROCi(z%):PROCf(-1,z%,0):IF(H%!24AND4)=0IFFNi(Q%)PROCT(z%)
3385ELSE:PROCb (FNmsg_0(A%!12,"OKAP")):H$=D$:PROCd (1196577875,z%!40):PROCK (z%!40,D$)
3390ENDIF
3395ENDIF
3400IFz%!20<>-1AND_b%<>W%THEN
3405PROCselect_printer(_b%,-1,0)
3410ENDIF
3415ENDIF
3420ELSE:IFq%!24=13THEN
3425CASE!q%OF
3430WHENQ%:PROClb:IFJ$="ME6"SYS262356,,-1
3435!q%=Q%:PROCe
3440WHENCb%:PROCmb:!q%=Cb%:PROCe
3445WHENzb%:SYS262356,,-1:PROCicon_write(Q%,30,FNT(FNicon_read(zb%,1)))
3450ENDCASE
3455ELSE:SYS262364,q%!24
3460ENDIF
3465ENDIF
3470ENDPROC
3475DEFPROCU(`b%):LOCALi%:!V%=`b%:SYS262348,,V%OR1:i%=V%!88:WHILEi%:PROCicon_deselect(`b%,i%-1):i%-=1:ENDWHILE:ENDPROC
3480DEFPROCqa:LOCALz%,qb%,M%,ac%,H%,Nb%,H$,D$,B%,C%,_b%:LOCALS%:IFFNA(q%!12)=0THEN
3485PROCH(q%!12,Nb%,H%,z%):IFz%!40D$=$z%!40ELSED$=""
3490_b%=W%:PROCc(Nb%!8,Nb%!12,6,q%):IF$(Nb%+16)="configure"THEN
3495IFz%!40H$=$z%!40ELSEH$=""
3500IFH$<>D$THEN
3505IFNOT(z%!24AND(1<<16))THEN
3510PROCkb(z%):PROCi(z%):PROCf(-1,z%,0):IF(H%!24AND4)=0IFFNi(Q%)PROCT(z%)
3515ELSE:PROCb (FNmsg_0(A%!12,"OKAP")):H$=D$:PROCd (1196577875,z%!40):PROCK (z%!40,D$)
3520ENDIF
3525ENDIF
3530IFz%!20<>-1AND_b%<>W%THEN
3535PROCselect_printer(_b%,-1,0)
3540ENDIF
3545ENDIF
3550ELSE:CASEq%!8OF
3555WHEN1024:CASEq%!12OF
3560WHENFb%:IFNOTq%!16THEN
3565IFNOTFNicon_set(q%!12,q%!16)THEN
3570PROCU(q%!12):PROCicon_select(q%!12,q%!16)
3575ENDIF
3580ELSE:PROCU(q%!12)
3585ENDIF
3590ENDCASE
3595WHEN256:CASEq%!12OF
3600WHENFb%:IFNOTq%!16THEN
3605IFFNicon_set(q%!12,q%!16)THEN
3610PROCicon_deselect(q%!12,q%!16)
3615ELSE:PROCicon_select(q%!12,q%!16)
3620ENDIF
3625ENDIF
3630ENDCASE
3635WHEN64:IFq%!12=zb%PROCnb(!q%,q%!4)
3640WHEN2:CASEq%!12OF
3645WHEN-2:PROCg("ME1",-1,0)
3650WHENA%!40:PROCg("MQ1",-1,0)
3655WHENFb%:PROCg("MC1s",-1,0)
3660WHENQ%:CASEq%!16OF
3665WHEN8:PROCg("ME2",-1,-1)
3670WHEN11:PROCg("ME3",-1,-1)
3675WHEN14:PROCg("ME4",-1,-1)
3680WHEN16:PROCg("ME5",-1,-1)
3685WHEN20:PROCg("ME6",-1,-1)
3690WHEN32:PROCg("SVE",-1,-1)
3695ENDCASE
3700WHENCb%:IFq%!16=47PROCg("MP1",-1,-1)
3705ENDCASE
3710WHEN4:CASEq%!12OF
3715WHEN-2:PROCob
3720WHENDb%:sa%=q%!16
3725WHENBb%:sa%=q%!16
3730WHENzb%:IFq%!16=2THEN
3735SYS262356,,-1:PROCicon_write(Q%,30,FNT(FNicon_read(zb%,1)))
3740ENDIF
3745WHENAb%:SYS262356,,-1:IFq%!16=3THEN
3750!q%=A%!40:PROCe:PROCI:CASEQb%OF
3755WHEN1:SYS262364,508
3760WHEN2:PROCx
3765ENDCASE
3770ELSE:A%!20=A%!20ANDNOT1
3775ENDIF
3780WHENFb%:IFNOTq%!16THEN
3785IFNOTFNicon_set(q%!12,q%!16)THEN
3790PROCU(q%!12):PROCicon_select(q%!12,q%!16)
3795ENDIF
3800PROCt(z%,S%,qb%):IFz%THEN
3805PROCc(z%!4,z%,-3,0):PROCpb(z%,"configure")
3810ENDIF
3815ENDIF
3820WHENQ%:CASEq%!16OF
3825WHEN0,1,2,3,4,33:PROCqb
3830WHEN5:PROClb:!q%=Q%:PROCe
3835WHEN8:PROCg("ME2",-1,-1)
3840WHEN11:PROCg("ME3",-1,-1)
3845WHEN14:PROCg("ME4",-1,-1)
3850WHEN16:PROCg("ME5",-1,-1)
3855WHEN20:PROCg("ME6",-1,-1)
3860WHEN32:PROCg("SVE",-1,-1)
3865WHEN38:!q%=Q%:PROCe
3870ENDCASE
3875WHENCb%:CASEq%!16OF
3880WHEN42:PROCmb:!q%=Cb%:PROCe
3885WHEN33:PROCrb:!q%=Cb%:PROCe
3890WHEN48:B%=1163547472:C%=Ga%:CALLP%+16:Ga%=0:!q%=Cb%:PROCe
3895WHEN23,22:PROCicon_select(Cb%,q%!16):PROCsb
3900WHEN47:PROCg("MP1",-1,-1)
3905ENDCASE
3910OTHERWISE:z%=A%!48:WHILEz%:IFz%!48=q%!12THEN
3915M%=z%!32:ac%=M%!44:IFac%THEN
3920IFac%!40THEN
3925IFq%!16=4THEN
3930PROCn(z%,M%,-1)
3935ELSE:z%!24=z%!24ANDNOT36:ac%!40=0:PROCi(z%):PROCf(-1,z%,0):!q%=z%!48:PROCe
3940ENDIF
3945ENDIF
3950ENDIF
3955z%=0
3960ELSE:z%=z%!0
3965ENDIF
3970ENDWHILE
3975ENDCASE
3980WHEN1:CASEq%!12OF
3985WHEN-2:PROCob
3990WHENQ%:CASEq%!16OF
3995WHEN0,1,2,3,4,33:PROCqb
4000WHEN5:PROClb
4005ENDCASE
4010WHENCb%:CASEq%!16OF
4015WHEN42:PROCmb
4020WHEN33:PROCrb
4025WHEN23,22:PROCicon_select(Cb%,q%!16):PROCsb
4030ENDCASE
4035ENDCASE
4040ENDCASE
4045ENDIF
4050ENDPROC
4055DEFPROCqb:LOCALc%,h%,i%,n%:c%=-1:IFFNicon_set(Q%,1)THEN
4060PROCicon_unshade(Q%,15):PROCicon_unshade(Q%,8):PROCicon_unshade(Q%,17):PROCicon_unshade(Q%,11):PROCicon_unshade(Q%,18):PROCicon_unshade(Q%,14):PROCicon_unshade(Q%,19):PROCicon_unshade(Q%,16):PROCicon_unshade(Q%,13)
4065ELSE:PROCicon_shade(Q%,15):PROCicon_shade(Q%,8):PROCicon_shade(Q%,17):PROCicon_shade(Q%,11):PROCicon_shade(Q%,18):PROCicon_shade(Q%,14):PROCicon_shade(Q%,19):PROCicon_shade(Q%,16):PROCicon_shade(Q%,13)
4070ENDIF
4075IFFNicon_set(Q%,2)THEN
4080PROCicon_unshade(Q%,25):PROCicon_unshade(Q%,20):c%=25
4085ELSE:PROCicon_shade(Q%,25):PROCicon_shade(Q%,20)
4090ENDIF
4095IFFNicon_set(Q%,3)THEN
4100PROCicon_unshade(Q%,26):PROCicon_unshade(Q%,27):PROCicon_unshade(Q%,28):PROCicon_unshade(Q%,29):c%=26
4105ELSE:PROCicon_shade(Q%,26):PROCicon_shade(Q%,27):PROCicon_shade(Q%,28):PROCicon_shade(Q%,29)
4110ENDIF
4115IFFNicon_set(Q%,4)THEN
4120PROCicon_unshade(Q%,30):PROCicon_unshade(Q%,32):PROCicon_unshade(Q%,35):c%=30
4125ELSE:PROCicon_shade(Q%,30):PROCicon_shade(Q%,32):PROCicon_shade(Q%,35)
4130ENDIF
4135IFc%=-1THEN
4140PROCcaret_info(h%,i%,n%):IFh%=Q%SYS262354,-1
4145ELSE:PROCcaret_set(Q%,c%)
4150ENDIF
4155ENDPROC
4160DEFPROCy(Lb%,RETURNz%):z%=A%!48:WHILEz%:IFz%!20=Lb%ENDPROC
4165z%=z%!0:ENDWHILE:ENDPROC
4170DEFPROCob:LOCALz%,bc%,cc%:cc%=INKEY-1:bc%=(q%!8=1):PROCy(q%!16,z%):IFz%THEN
4175IFbc%THEN
4180IFcc%PROCT(z%)ELSEPROCtb
4185ELSE:IFcc%THEN
4190PROCc(z%!4,z%,-3,0):PROCpb(z%,"configure")
4195ELSE:PROCselect_printer(z%,-1,0):IFFNi(Fb%)PROCub(z%)
4200ENDIF
4205ENDIF
4210ENDPROC
4215ENDIF
4220PROCvb(z%):ENDPROC
4225DEFPROCselect_printer(z%,dc%,ec%):LOCALfc%,i%,s$:fc%=W%:IFNOTec%W%=z%
4230IFW%=0ENDPROC
4235s$=FNn(W%,0):IFs$<>""THEN
4240IFdc%THEN
4245W%!24=W%!24ANDNOT2
4250ENDIF
4255IFW%!32THEN
4260W%!24=W%!24OR4:PROCi(W%):PROCf(-1,W%,0)
4265ENDIF
4270IFW%=fc%THEN
4275PROCicon_deselect(-1,fc%!20):SYS524632,-1:fc%=0
4280ENDIF
4285W%=fc%:PROCb(s$):ENDPROC
4290ENDIF
4295PROCc(W%!4,W%,-6,0):PROCwb(W%):PROCz:IFdc%THEN
4300IFfc%THEN
4305PROCicon_deselect(-1,fc%!20):fc%!24=fc%!24ANDNOT2
4310ENDIF
4315W%!24=W%!24OR2:PROCicon_select(-1,W%!20):SYS524608TO,,,,i%:IF?i%CALLZ%,i%,s$:SYS36,"Printer$",i%,LENs$
4320ELSE:W%=fc%
4325ENDIF
4330ENDPROC
4335DEFPROCwb(z%):LOCAL`%:`%=z%!36:SYS524612,,`%!8,`%!12,`%!24,`%!16,`%!28,`%!20:ENDPROC
4340DEFPROCz:!ba%=20:ba%!12=0:ba%!16=524615:SYS262375,17,ba%:ENDPROC
4345DEFFNC(gc%,z%):LOCALp$,r%,s$,i%:p$=FNmsg_0(A%!12,"CLM"):!q%=32+LENp$ANDNOT3:q%!12=0:q%!16=11:q%!20=gc%:q%!24=0:$(q%+28)=p$+CHR$0:SYS262375,18,q%:qa%=0:ra%=z%:REPEAT:PROCv(la%):UNTILqa%:ra%=0:IFqa%=2i%=q%+28:CALLZ%,i%,s$:=s$
4350=""
4355DEFFNn(z%,hc%):LOCALN%,p$,H%,fb%,f%,s$,ic%:LOCALja$,fb%,ab%,Zb%,c$,K%:FORfb%=0TO255:aa%?fb%=q%?fb%:NEXT:H%=z%!4:N%=z%!12:g$=FNtask_read_env("PrinterType$"+STR$N%!0,ba%):SYS6,204,Ia%:SYS424324:CASEN%!0OF
4360WHEN1:IFNOThc%THEN
4365p$=FNC(1,z%):IFp$<>""THEN=FNmsg_1(A%!12,"OKI",p$)
4370ENDIF
4375ic%=FNo(1):IFic%=0ic%=3
4380IFz%!24AND128THEN
4385g$="devices#buffer"+STR$ic%+":$."+FNU
4390ELSE:g$="devices#buffer"+STR$ic%+":$.Parallel"
4395ENDIF
4400WHEN2:IFNOThc%THEN
4405p$=FNC(2,z%):IFp$<>""THEN=FNmsg_1(A%!12,"OKJ",p$)
4410ENDIF
4415SYS87,5,N%?4:SYS87,6,N%?4:SYS87,1,N%!8:SYS87,0,N%?5,NOT1:SYS6,204,1TO,Ia%:ic%=FNo(2):IFic%=0ic%=3
4420g$="devices#buffer"+STR$ic%+":$.Serial"
4425WHEN4:IF$N%!12=""THEN=FNmsg_0(A%!12,"OKAG")
4430g$="NetPrint#"+$N%!12+":":SYS263872:SYS262659,$N%!12:SYS263873
4435WHEN5:g$="null:":IFN%!16<>0THEN
4440IF?(N%!16)>32AND?(N%!16)<127g$=$N%!16
4445ENDIF
4450SYS131080,17,g$TOfb%;f%:IFf%AND1fb%=0
4455IFfb%THEN
4460SYS131085,67,g$TOfb%;f%:IF(f%AND1)=0CLOSE#fb%:SYS131080,18,g$,H%!28
4465ELSE:SYS131080,11,g$,H%!28TOfb%;f%:IF(f%AND1)THEN
4470fb%+=4:CALLZ%,fb%,s$:=s$
4475ENDIF
4480ENDIF
4485WHEN6:s$=FNca(N%,g$):IFs$<>""THEN=s$
4490WHEN8:SYS131107,"PrinterType$8",O%,256,,3TO,,f%:O%?f%=13:g$=$O%:IFg$=""g$="null:"
4495WHEN9:IFJa%THEN
4500c$=$z%!40:SYS424578,0,2,c$,0,0TOfb%,,,jc%,,Zb%;ab%:IF(ab%AND1)THEN
4505=FNmsg_1 (A%!12,"OKAR",c$)
4510ENDIF
4515SYS424323,1,Zb%,c$TOfb%;ab%:IF(ab%AND1)THEN
4520=FNmsg_1 (A%!12,"OKAR",c$)
4525ENDIF
4530q$="Share::_S"+FNu(Zb%)+".":ja$="Share::_S"+FNu(Zb%)+".RemSpool."+h$:SYS293254:SYS131080,8,ja$,,,0TOfb%;ab%:SYS293253:IF(ab%AND1)THEN
4535=FNmsg_1 (A%!12,"OKAR",c$)
4540ENDIF
4545ja$="Share::_S"+FNu(Zb%)+".RemQueue."+h$:SYS293254:SYS131080,8,ja$,,,0TOfb%;ab%:SYS293253:IF(ab%AND1)THEN
4550=FNmsg_1 (A%!12,"OKAR",c$)
4555ENDIF
4560s$=FNda:IFs$<>""THEN
4565=FNmsg_1 (A%!12,"OKAR",c$)
4570ENDIF
4575K%=INSTR(c$," "):WHILEK%:MID$(c$,K%,1)=CHR$160:K%=INSTR(c$," ",K%+1):ENDWHILE:g$="Share::_S"+FNu(Zb%)+".RemSpool."+h$+"."+c$:SYS293254:SYS131080,17,g$TOfb%;f%:IFf%AND1fb%=0
4580IFfb%THEN
4585SYS131085,67,g$TOfb%;f%:IF(f%AND1)=0CLOSE#fb%:SYS131080,18,g$,H%!28
4590SYS293253
4595ELSE:SYS131080,11,g$,H%!28TOfb%;f%:SYS293253:IF(f%AND1)THEN
4600=FNmsg_1 (A%!12,"OKAR",c$)
4605ENDIF
4610ENDIF
4615ELSE:=FNmsg_1 (A%!12,"OKAR",c$)
4620ENDIF
4625ENDCASE
4630SYS36,"PrinterType$"+STR$N%!0,g$,LENg$:PROCJ(N%!0):FORfb%=0TO255:q%?fb%=aa%?fb%:NEXT:=""
4635DEFPROCxb(ic%):IFic%SYS6,21,ic%
4640ENDPROC
4645DEFPROCJ(kc%):LOCALx%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCyb:PROCxb(FNo(x%)):SYS6,5,kc%:ENDPROC
4650SYS6,245,,255TO,x%:IFx%<>kc%THEN
4655PROCzb:SYS6,5,kc%:PROCyb
4660ENDIF
4665ENDPROC
4670DEFPROCzb:SYS6,229:ENDPROC
4675DEFPROCyb:SYS6,229,1:ENDPROC
4680DEFFNca(N%,RETURNa$):LOCALc%,f%,s$:IFNOTFNzTHEN=FNmsg_0(A%!12,"OKL")
4685IFN%!20=0THEN=FNmsg_0(A%!12,"OKK")
4690a$="NFS#Printer::"+$N%!20:IFN%!24=0a$+=".lp"ELSEa$+="."+$N%!24
4695IFN%!28=0a$+=".nobody"ELSEa$+="."+$N%!28
4700IFN%!32a$+="."+$N%!32
4705SYS131085,143,a$TOc%;f%:IFf%AND1THEN
4710CASE!c%OF
4715WHEN204:=FNmsg_0(A%!12,"OKM")
4720OTHERWISE:f%=c%+4:CALLZ%,f%,s$:=s$+" ("+STR$!c%+")"
4725ENDCASE
4730ENDIF
4735SYS131085,,c%:=""
4740DEFPROCg(ka$,lc%,mc%):LOCALy%,i%,nc%,oc%,pc%:LOCALz%,S%,qb%:IFlc%THEN
4745qc%=q%!0-64:rc%=q%!4
4750ENDIF
4755IFmc%THEN
4760!O%=q%!12:O%!4=q%!16:SYS262350,,O%:nc%=O%!16:oc%=O%!20:SYS262347,,O%:qc%=O%!20+O%!4+nc%+2:rc%=O%!24+O%!16+oc%-2
4765ENDIF
4770IFka$="SVE"THEN
4775PROCAb(Ca%!28,FNmsg_0(A%!12,"OP")):SYS262356,,zb%,qc%,rc%
4780ELSE:CASEka$OF
4785WHEN"ME1":PROCmenu_create(_%,FNmsg_0(A%!12,"ME1")):PROCBb(_%,0,Gb%,0):PROCa(_%,2,A%!44=0):rc%=96+(5+1)*pa%:IFvb%za%=0ELSEPROCy(q%!16,za%)
4790WHEN"ME2":IFFNRTHEN
4795PROCmenu_create(_%,FNmsg_0(A%!12,"ME2")+FNmsg_0(A%!12,"ME2a")+FNmsg_0(A%!12,"ME2b"))
4800ELSE:PROCmenu_create(_%,FNmsg_0(A%!12,"ME2")+FNmsg_0(A%!12,"ME2b"))
4805ENDIF
4810PROCmenu_tick_match(_%,FNicon_read(Q%,15))
4815WHEN"ME3":PROCmenu_create(_%,FNmsg_0(A%!12,"ME3")):PROCmenu_tick_match(_%,FNicon_read(Q%,17))
4820WHEN"ME4":PROCmenu_create(_%,FNmsg_0(A%!12,"ME4")):PROCmenu_tick_match(_%,FNicon_read(Q%,18))
4825WHEN"ME5":PROCmenu_create(_%,FNmsg_0(A%!12,"ME5")):pc%=(_%!28AND256)<>0:IFNOT(FNv=0ANDFNq<>0)THEN
4830IFFNv=3ANDFNq=0THEN
4835PROCmenu_item(_%,1,FNmsg_0(A%!12,"ME5c"),pc%)
4840ELSE:PROCmenu_item(_%,1,FNmsg_0(A%!12,"ME5a"),pc%)
4845ENDIF
4850ENDIF
4855PROCmenu_tick_match(_%,FNicon_read(Q%,19))
4860WHEN"ME6":IFlc%PROCCb
4865PROCmenu_tick_match(_%,FNicon_read(Q%,25))
4870WHEN"MQ1":IFlc%THEN
4875PROCeb:ya%=rc%:!q%=A%!40:SYS262347,,q%:B%=ya%-q%!16+q%!24:ya%=USR(P%+44):i%=A%!16:za%=!i%:Aa%=i%!4:IFAa%=-1Aa%=0
4880IFAa%=0THEN
4885PROCmenu_create(_%,FNmsg_1(A%!12,"MQ1",FNmsg_0(A%!12,"MQ1a"))):IFza%za%!24=za%!24OR16
4890ELSE:IFAa%!12THEN
4895PROCmenu_create(_%,FNmsg_1(A%!12,"MQ1",FNmsg_0(A%!12,"MQ1a")))
4900ELSE:PROCmenu_create(_%,FNmsg_1(A%!12,"MQ1",FNmsg_0(A%!12,"MQ1b")))
4905ENDIF
4910Aa%?11=Aa%?11OR8
4915ENDIF
4920PROCf(-1,za%,Aa%)
4925ENDIF
4930PROCa(_%,0,0):PROCa(_%,1,0):PROCa(_%,2,0):PROCa(_%,3,0):PROCa(_%,4,0):PROCa(_%,5,0):PROCa(_%,6,0):IFAa%=0THEN
4935PROCa(_%,4,-1):PROCa(_%,5,-1):PROCa(_%,6,-1)
4940ELSE:IFAa%?11AND5PROCa(_%,4,-1)ELSEPROCa(_%,5,-1)
4945ENDIF
4950IFza%!24AND36THEN
4955PROCa(_%,0,-1):PROCa(_%,1,-1)
4960ELSE:PROCa(_%,2,-1)
4965ENDIF
4970WHEN"MP1":PROCcreate_paper_menu(_%,Cb%,5)
4975WHEN"MC1","MC1s":PROCmenu_create(_%,FNmsg_0(A%!12,"MC1s")):IFJa%=0THEN
4980PROCa(_%,2,-1)
4985ENDIF
4990SYS262358,Fb%,O%,1<<21,1<<21:IF(!O%=-1ORO%!4=-1)ANDwa%=0THEN
4995IFNOT!O%PROCicon_deselect(Fb%,!O%)
5000IFq%!12=Fb%ANDq%!16>3THEN
5005PROCicon_select(Fb%,q%!16):i%=1
5010ELSE:i%=0
5015ENDIF
5020ELSE:i%=2
5025ENDIF
5030CASEi%OF
5035WHEN0:PROCa(_%,0,-1):PROCa(_%,1,-1):PROCa(_%,2,-1):PROCa(_%,3,-1):PROCa(_%,4,-1):PROCa(_%,5,-1):PROCa(_%,7,-1):IFA%!48=0PROCa(_%,6,-1)
5040WHEN1:PROCt (z%,S%,qb%):IFS%THEN
5045PROCa (_%,0,-1):PROCa (_%,1,-1):PROCa (_%,2,-1):IFS%!20>0THEN
5050PROCa (_%,3,-1)
5055ELSE:PROCa (_%,4,-1)
5060ENDIF
5065PROCa (_%,5,-1)
5070ENDIF
5075IFz%THEN
5080IFz%!24AND(1<<17)THEN
5085PROCa (_%,1,-1):PROCa (_%,2,-1):PROCa (_%,3,-1):PROCa (_%,5,-1)
5090ENDIF
5095ENDIF
5100WHEN2:PROCa(_%,0,-1):PROCa(_%,1,-1)
5105ENDCASE
5110ENDCASE
5115J$=ka$:PROCdisplay_menu(0,_%,qc%,rc%)
5120ENDIF
5125ENDPROC
5130DEFPROCcreate_paper_menu(RETURNLb%,`b%,qb%):LOCAL`%,i%,pc%:PROCmenu_create(Lb%,FNmsg_0(A%!12,"MP1")):pc%=(Lb%!28AND256)<>0:`%=ja%:i%=0:WHILE`%:PROCmenu_item(Lb%,i%,$`%!4,pc%):i%+=1:`%=`%!0:ENDWHILE:PROCmenu_tick_match(Lb%,FNicon_read(`b%,qb%)):ENDPROC
5135DEFPROCdisplay_menu(z%,_%,sc%,tc%):xa%=z%:SYS262356,,_%,sc%,tc%:ENDPROC
5140DEFFNwas_adjust_used:SYS262351,,O%:=(O%!8AND1)<>0
5145DEFPROCta:LOCALbc%,uc%,`%,i%,h%,n%,z%,qb%:LOCALS%:IFxa%THEN
5150PROCc(xa%!4,xa%,9,q%):ENDPROC
5155ENDIF
5160bc%=FNwas_adjust_used:CASEJ$OF
5165WHEN"ME1":CASE!q%OF
5170WHEN1:PROCvb(za%)
5175WHEN2:PROCtb
5180WHEN3:PROCDb(za%)
5185WHEN4:PROCFb:PROCGb
5190WHEN5:IFA%!32THEN
5195A%!20=A%!20OR1:Qb%=2:PROCcb(Ab%)
5200ELSE:PROCx
5205ENDIF
5210ENDCASE
5215WHEN"ME2":PROCicon_write(Q%,15,$(!q%*24+40+_%))
5220WHEN"ME3":PROCicon_write(Q%,17,$(!q%*24+40+_%)):PROCHb(-1)
5225WHEN"ME4":PROCicon_write(Q%,18,$(!q%*24+40+_%)):PROCHb(-1)
5230WHEN"ME5":PROCHb(!q%)
5235WHEN"ME6":PROCmenu_tick_match(_%,FNicon_read(Q%,25)):PROCicon_write(Q%,25,$(!q%*24+40+_%))
5240WHEN"MQ1":uc%=-1:CASE!q%OF
5245WHEN0:za%!24=za%!24OR4
5250WHEN1:za%!24=za%!24OR32
5255WHEN2:za%!24=za%!24ANDNOT36:i%=za%!32:IFi%THEN
5260i%=i%!44:IFi%THEN
5265IFi%!40THEN
5270i%!40=0:IFza%!48THEN
5275!q%=za%!48:PROCe
5280ENDIF
5285ENDIF
5290ENDIF
5295ENDIF
5300WHEN3:PROCA(za%):uc%=0
5305WHEN4:IFAa%!12THEN
5310Aa%?11=Aa%?11OR1
5315ELSE:Aa%?11=Aa%?11OR4
5320ENDIF
5325WHEN5:Aa%?11=Aa%?11ANDNOT5
5330WHEN6:PROCn(za%,Aa%,-1):uc%=0
5335ENDCASE
5340IFuc%THEN
5345PROCi(za%):IF!q%<3THEN
5350PROCf(-1,za%,0)
5355ELSE:PROCf(ya%,za%,Aa%)
5360ENDIF
5365ENDIF
5370WHEN"MP1":`%=ja%:i%=!q%:WHILEi%:`%=`%!0:i%-=1:ENDWHILE:FORi%=0TO52STEP4:Ga%!i%=`%!i%:NEXT:PROCIb
5375WHEN"MC1","MC1s":CASE!q%OF
5380WHEN0:PROCt(z%,S%,qb%):IFz%THEN
5385PROCc(z%!4,z%,-3,0):PROCpb(z%,"configure")
5390ENDIF
5395WHEN1:PROCt(z%,S%,qb%):IFz%THEN
5400PROCT(z%)
5405ENDIF
5410WHEN2:PROCJb
5415WHEN3:PROCKb:PROCk
5420WHEN4:PROCLb:PROCk
5425WHEN5:PROCMb:PROCk
5430WHEN6:IFA%!48THEN
5435IF0<=va%-1THEN
5440FORi%=0TOva%-1:PROCicon_select(Fb%,i%+4):NEXT
5445ENDIF
5450ENDIF
5455IFKa%THEN
5460IF0<=Ma%-1THEN
5465FORi%=va%TOva%+Ma%:PROCicon_select(Fb%,i%+4):NEXT
5470ENDIF
5475ENDIF
5480wa%=-1
5485WHEN7:PROCU(Fb%)
5490ENDCASE
5495ENDCASE
5500IFbc%THEN
5505SYS262351,,q%:PROCg(J$,0,0)
5510ELSE:PROCeb
5515ENDIF
5520ENDPROC
5525DEFPROCFb:LOCALc%,f%,H%,z%,K%,p%,Ra%,s$,f$:LOCALvc%,S%:SYS263872:IFia%THEN
5530f$="<Printers$Dir>"+".Remote.ID"+h$+".Settings1"
5535ELSE:f$="<Printers$Dir>"+".Settings1"
5540ENDIF
5545SYS131085,143,f$TOc%;f%:IFf%AND1f%=c%+4:CALLZ%,f%,s$:ERROR254,FNmsg_1(A%!12,"OKB",s$)
5550LOCALERROR:ONERRORLOCALRESTOREERROR:SYS131085,0,c%:SYS131080,6,f$:ERROR254,FNmsg_1(A%!12,"OKB",REPORT$)
5555BPUT#c%,"fv: 1":z%=A%!48:WHILEz%:H%=z%!4:BPUT#c%,"cl: "+$H%!4+":"+STR$H%!40:BPUT#c%,"nm: "+$z%!8:K%=z%!12:IFH%!24AND4THEN
5560Ra%=H%!48:BPUT#c%,"cn: "+STR$Ra%:IF1<=Ra%THEN
5565FORf%=1TORa%:p%=!K%:K%+=4:CASE-1OF
5570WHENp%=0:BPUT#c%,"nl: "
5575WHENp%!-4=1196707401:BPUT#c%,"in: "+STR$!p%
5580WHENp%!-4=1196577875:BPUT#c%,"st: "+$p%
5585WHENp%!-4=810701907:CALLZ%,p%,s$:BPUT#c%,"s0: "+s$
5590WHENp%!-4=1381258055:CALLY%,p%,s$:BPUT#c%,"gs: "+FNungstrans(s$)
5595WHENp%!-4=1381257040:BPUT#c%,"pt: "+FNp(!p%,H%)
5600OTHERWISE:SYS131085,,c%:ERROR254,FNmsg_1(A%!12,"OKC",$z%!8)
5605ENDCASE
5610NEXT
5615ENDIF
5620ELSE:BPUT#c%,"ct: 16_"+STR$~K%!0:BPUT#c%,"bd: 16_"+STR$~K%!4:IFK%!8AND48K%!8=K%!8OR8
5625BPUT#c%,"ft: 16_"+STR$~K%!8:BPUT#c%,"et: ";:IFK%!12=0BPUT#c%,10ELSEBPUT#c%,$K%!12
5630BPUT#c%,"fl: ";:IFK%!16=0BPUT#c%,10ELSEBPUT#c%,$K%!16
5635BPUT#c%,"ns: ";:IFK%!20=0BPUT#c%,10ELSEBPUT#c%,$K%!20
5640BPUT#c%,"np: ";:IFK%!24=0BPUT#c%,10ELSEBPUT#c%,$K%!24
5645BPUT#c%,"nu: ";:IFK%!28=0BPUT#c%,10ELSEBPUT#c%,$K%!28
5650BPUT#c%,"no: ";:IFK%!32=0BPUT#c%,10ELSEBPUT#c%,$K%!32
5655BPUT#c%,"cf: 16_"+STR$~K%?6
5660ENDIF
5665K%=z%!16:Ra%=H%!36:BPUT#c%,"cs: "+STR$Ra%:IF1<=Ra%THEN
5670FORf%=1TORa%:p%=!K%:K%+=4:CASE-1OF
5675WHENp%=0:BPUT#c%,"nl: "
5680WHENp%!-4=1196707401:BPUT#c%,"in: "+STR$!p%
5685WHENp%!-4=1196577875:BPUT#c%,"st: "+$p%
5690WHENp%!-4=810701907:CALLZ%,p%,s$:BPUT#c%,"s0: "+s$
5695WHENp%!-4=1381258055:CALLY%,p%,s$:BPUT#c%,"gs: "+FNungstrans(s$)
5700WHENp%!-4=1381257040:BPUT#c%,"pt: "+FNp(!p%,H%)
5705OTHERWISE:SYS131085,,c%:ERROR254,FNmsg_1(A%!12,"OKC",$z%!8)
5710ENDCASE
5715NEXT
5720ENDIF
5725BPUT#c%,"fg: 16_"+STR$~(z%!24AND195+65536+131072):f%=z%!36:BPUT#c%,"pn: "+$f%!4:BPUT#c%,"sn: "+FNprinter_read_string(z%!40):BPUT#c%,"ic: "+FNprinter_read_string(z%!44):z%=z%!0:ENDWHILE:S%=Ka%:WHILES%:IFS%!20>0THEN
5730BPUT#c%,"cl:":BPUT#c%,"nm: "+$S%!8:BPUT#c%,"ct: 16_9":BPUT#c%,"bd: 16_8":BPUT#c%,"ft: 16_5":BPUT#c%,"et:":BPUT#c%,"fl:":BPUT#c%,"ns:":BPUT#c%,"np:":BPUT#c%,"nu:":BPUT#c%,"no:":BPUT#c%,"cf: 16_0":BPUT#c%,"cs: 2":BPUT#c%,"in: 25600":BPUT#c%,"in: 6":BPUT#c%,"fg: 16_20000":BPUT#c%,"pn:"
5735BPUT#c%,"sn: "+$S%!4:BPUT#c%,"ic:"
5740ENDIF
5745S%=S%!0:ENDWHILE:CLOSE#c%:SYS131080,18,f$,4038:SYS131080,6,LEFT$(f$):SYS131113,25,f$,LEFT$(f$):SYS131080,4,LEFT$(f$),,,,19:SYS263873:ENDPROC
5750DEFPROCGb:LOCALH%,yb%,R%,c%,eb%,U%,wc%,i%,j%,k%,l%,s$,f%,f$:SYS263872:H%=ua%:WHILEH%:IFH%!8THEN
5755IFH%!24AND2THEN
5760IFia%THEN
5765f$="<Printers$Dir>"+".Remote.ID"+h$+"."+$H%!4:SYS8,8,f$:f$+=".PrData1"
5770ELSE:f$="<Printers$Dir>"+"."+$H%!4+".PrData1"
5775ENDIF
5780SYS131080,4,LEFT$(f$),,,,3:SYS131085,143,f$TOc%;f%:IFf%AND1f%=c%+4:CALLZ%,f%,s$:ERROR254,FNmsg_1(A%!12,"OKB",s$)
5785LOCALERROR:ONERRORLOCALRESTOREERROR:SYS131085,0,c%:SYS131080,6,f$:ERROR254,FNmsg_1(A%!12,"OKB",REPORT$)
5790eb%=H%!8:yb%=H%!12:WHILEeb%:BPUT#c%,$(eb%+12)+":":BPUT#c%,"#":R%=yb%!4:WHILER%:IFR%!(R%!4*4+8)THEN
5795BPUT#c%,"# Usage: "+STR$R%!(R%!4*4+8):U%=eb%!4:i%=R%+8:WHILEU%:BPUT#c%,$(U%+16)+" ";:IF!i%=0THEN
5800IFU%!4=6THEN
5805BPUT#c%,48
5810ELSE:IFU%!4=1THEN
5815BPUT#c%,48
5820ENDIF
5825ENDIF
5830BPUT#c%,10
5835ELSE:j%=!i%:CASEU%!4OF
5840WHEN1:IF$(U%+16)="palette:"THEN
5845BPUT#c%,STR$((!j%)AND8388607)
5850ELSE:BPUT#c%,STR$!j%
5855ENDIF
5860WHEN2:BPUT#c%,FNprinter_read_string(j%)
5865WHEN3:BPUT#c%,FNprinter_read_string(j%)
5870WHEN4:BPUT#c%,FNungstrans(FNprinter_read_string(j%))
5875WHEN5:BPUT#c%,10:CASEU%!8OF
5880WHEN1:BPUT#c%," "+STR$!j%!0+", "+STR$!j%!4
5885WHEN2:BPUT#c%," "+FNprinter_read_string(j%!0):BPUT#c%," "+FNprinter_read_string(j%!4)
5890WHEN3:BPUT#c%," "+FNprinter_read_string(j%!0):BPUT#c%," "+FNprinter_read_string(j%!4)
5895WHEN4:BPUT#c%," "+FNungstrans(FNprinter_read_string(j%!0)):BPUT#c%," "+FNungstrans(FNprinter_read_string(j%!4))
5900WHEN7:BPUT#c%," "+FNp(!j%!0,H%)+", "+FNp(!j%!4,H%)
5905ENDCASE
5910WHEN6:k%=j%:l%=0:WHILEk%:l%+=1:k%=!k%:ENDWHILE:BPUT#c%,STR$l%:WHILEj%:IF0<=j%!4-1THEN
5915FORk%=0TOj%!4-1:l%=j%!(k%*4+8):CASEl%!-4OF
5920WHEN1196707401:BPUT#c%," "+STR$!l%+", ";
5925WHEN1196577875:BPUT#c%," "+$l%+", ";
5930WHEN810701907:CALLZ%,l%,s$:BPUT#c%," "+s$+", ";
5935WHEN1381258055:CALLY%,l%,s$:BPUT#c%," "+FNungstrans(s$)+", ";
5940WHEN1381257040:BPUT#c%," "+FNp(!l%,H%)+", ";
5945ENDCASE
5950NEXT
5955ENDIF
5960PTR#c%=PTR#c%-2:BPUT#c%,10:j%=!j%:ENDWHILE
5965WHEN7:BPUT#c%,FNp(!j%,H%)
5970WHEN8:k%=j%:l%=0:WHILEk%:l%+=1:k%=!k%:ENDWHILE:BPUT#c%,STR$l%:WHILEj%:s$=CHR$j%?4:IF1<=j%?5THEN
5975FORk%=1TOj%?5:s$+=CHR$j%?(k%+5):NEXT
5980ENDIF
5985BPUT#c%," "+FNungstrans(s$):j%=!j%:ENDWHILE
5990ENDCASE
5995ENDIF
6000U%=U%!0:i%+=4:ENDWHILE:BPUT#c%,"#"
6005ENDIF
6010R%=R%!0:ENDWHILE:eb%=eb%!0:yb%=yb%!0:ENDWHILE:CLOSE#c%:SYS131080,18,f$,4038:SYS131080,6,LEFT$(f$):SYS131113,25,f$,LEFT$(f$):SYS131080,4,LEFT$(f$),,,,19:H%!24=H%!24ANDNOT2
6015ELSE
6020ENDIF
6025ENDIF
6030H%=H%!0:ENDWHILE:SYS263873:ENDPROC
6035DEFFNp(p%,H%):LOCALyb%,R%,eb%,xc%,yc%:yb%=H%!12:WHILEyb%:R%=yb%!4:yc%=0:WHILER%:IFR%!(R%!4*4+8)THEN
6040yc%+=1:IFp%=R%THEN
6045eb%=H%!8:WHILExc%:eb%=eb%!0:xc%-=1:ENDWHILE:=$(eb%+12)+":"+STR$yc%
6050ENDIF
6055ENDIF
6060R%=R%!0:ENDWHILE:xc%+=1:yb%=yb%!0:ENDWHILE:PROCb(FNmsg_0(A%!12,"FAF")):=""
6065DEFFNi(h%):!V%=h%:SYS262347,,V%:=(V%!32AND1<<16)<>0
6070DEFPROCvb(z%):IFNOTFNi(Fb%)THEN
6075IFA%!48ORKa%THEN
6080PROCk
6085ENDIF
6090ENDIF
6095PROCs(Fb%):PROCp(Fb%):PROCub(z%):ENDPROC
6100DEFPROCub(z%):LOCALp%:IFz%THEN
6105SYS262358,Fb%,O%,1<<21,1<<21:p%=O%:WHILENOT!p%:IF!p%<>z%!28PROCicon_deselect(Fb%,!p%)
6110p%+=4:ENDWHILE:IF(z%!24AND44)=0PROCicon_select(Fb%,z%!28)
6115ENDIF
6120ENDPROC
6125DEFPROCB(p%):LOCALK%,i%,sb%:IFp%=0ENDPROC
6130CASEp%!-4OF
6135WHEN1381257040:K%=!p%:sb%=K%+K%!4*4+8:!sb%-=1:IF!sb%=0THEN
6140sb%=K%+8:IF1<=K%!4THEN
6145FORi%=1TOK%!4:PROCB(!sb%):sb%+=4:NEXT
6150ENDIF
6155ENDIF
6160WHEN1280266050:PROCB(p%!0):PROCB(p%!4)
6165WHEN1146377036:WHILEp%:IF0<=p%!4-1THEN
6170FORK%=0TOp%!4-1:PROCB(p%!(K%*4+8)):NEXT
6175ENDIF
6180p%=p%!0:ENDWHILE
6185ENDCASE
6190ENDPROC
6195DEFPROCNb(la$):LOCALH%,yb%,zc%,R%,i%,j%,k%,l%,sb%:H%=ua%:WHILEH%:zc%=0:yb%=H%!12:R%=yb%!4:WHILER%:IF$R%!8=la$THEN
6200IF(R%!(R%!4*4+8))=0THEN
6205H%!24=H%!24OR2:IF0<=R%!4-1THEN
6210FORi%=0TOR%!4-1:sb%=R%!(i%*4+8):PROCB(sb%):PROCfree_structure(sb%):NEXT
6215ENDIF
6220IFzc%THEN
6225zc%!0=R%!0
6230ELSE:yb%!4=R%!0
6235ENDIF
6240B%=1413763664:C%=R%:CALLP%+16
6245ENDIF
6250R%=0:H%=0
6255ELSE:zc%=R%:R%=R%!0
6260ENDIF
6265ENDWHILE:IFH%H%=H%!0
6270ENDWHILE:ENDPROC
6275DEFPROCq(ma$):PROCS(FNmsg_1(A%!12,"OKZ",ma$)):ENDPROC
6280DEFPROCOb(RETURNH%):LOCALK%,J%,c%,d%:J%=FNb("cl:"):IFJ%=0PROCq(FNmsg_0(A%!12,"OKZa"))
6285H%=ua%:WHILEH%:IF$H%!4=$J%THEN
6290IFH%!24AND32THEN
6295SYS131080,7,"PrinterChoices:"+$J%+".WriteTest"TO;c%:IF(c%AND1)PROCm:ERROR254,FNmsg_1(A%!12,"OKAN",$J%)
6300SYS131080,6,"PrinterChoices:"+$J%+".WriteTest"TOd%;c%
6305ENDIF
6310K%=!wb%:PROCPb(H%,H%!8):!wb%=K%:ENDPROC
6315ELSE:H%=H%!0
6320ENDIF
6325ENDWHILE:IFH%=0THEN
6330PROCRa:PROCGa($J%):PROCHa($J%,H%):PROCSa:PROCNa:IFH%!24AND32THEN
6335SYS131080,7,"PrinterChoices:"+$J%+".WriteTest"TO;c%:IF(c%AND1)PROCm:ERROR254,FNmsg_1(A%!12,"OKAN",$J%)
6340SYS131080,6,"PrinterChoices:"+$J%+".WriteTest"
6345ENDIF
6350PROCc(H%,A%!48,-5,0)
6355ENDIF
6360IFH%=0PROCq(FNmsg_1(A%!12,"OKZb",$J%))
6365ENDPROC
6370DEFPROCPb(H%,eb%):LOCALU%,J%:U%=eb%!4:REPEAT:J%=FNb($(U%+16)):IFJ%THEN
6375CASEU%!4OF
6380WHEN5:PROCQb(H%,eb%,$J%)
6385WHEN6:IF?J%=13PROCq(FNmsg_1(A%!12,"OK7a",$(U%+16)))
6390PROCRb(H%,eb%,$J%)
6395WHEN7:PROCV(H%,eb%,$J%)
6400WHEN8:IF?J%=13PROCq(FNmsg_1(A%!12,"OK7a",$(U%+16)))
6405PROCSb(H%,eb%,$J%)
6410ENDCASE
6415ENDIF
6420U%=U%!0:UNTILU%=0:ENDPROC
6425DEFPROCQb(H%,eb%,t$):LOCALJ%,na$,i$:J%=FNd:IFJ%THEN
6430CASEU%!8OF
6435WHEN1:J%=FNK(J%,Ac%):IF?J%=13J%=FNd
6440WHEN2,3,4:J%=FNr(J%,i$):IF?J%=13J%=FNd
6445WHEN7:J%=FNr(J%,i$):PROCV(H%,eb%,i$):IF?J%=13J%=FNd
6450PROCV(H%,eb%,$J%)
6455ENDCASE
6460ENDIF
6465ENDPROC
6470DEFPROCRb(H%,eb%,t$):LOCALi%,p%,Bc%,J%:Bc%=VALt$:IF1<=Bc%THEN
6475FORi%=1TOBc%:J%=FNd:IFJ%THEN
6480p%=U%!8:WHILEp%:IFp%!4=7PROCV(H%,eb%,$J%)
6485p%=!p%:ENDWHILE
6490ENDIF
6495NEXT
6500ENDIF
6505ENDPROC
6510DEFPROCV(H%,eb%,c$):LOCALi%,s$,t$:i%=INSTR(c$,":"):IFi%=0PROCq(FNmsg_1(A%!12,"OKAA",c$))
6515s$=LEFT$(c$,i%-1):t$=MID$(c$,i%+1):eb%=H%!8:WHILEeb%:IF$(eb%+12)=s$THEN
6520IFVALt$>0THEN
6525ENDPROC
6530ELSE:PROCPb(H%,eb%):ENDPROC
6535ENDIF
6540ELSE:eb%=eb%!0
6545ENDIF
6550ENDWHILE:PROCq(FNmsg_1(A%!12,"OKAB",s$)):ENDPROC
6555DEFPROCSb(H%,eb%,t$):LOCALi%,Bc%:Bc%=VALt$:IF1<=Bc%THEN
6560FORi%=1TOBc%:IFFNd
6565NEXT
6570ENDIF
6575ENDPROC
6580DEFPROCO:LOCALJ%,H%,K%,s$,U%,Cc%,Dc%,Fc%,Gc%,Hc%:J%=q%+44:CALLZ%,J%,s$:IFNOTFNl(s$)ERROR254,FNmsg_1(A%!12,"OKX",s$)
6585SYS263872:PROCOb(H%):Fc%=H%!12:IFFc%THEN
6590Cc%=Fc%!4:IFCc%THEN
6595K%=!wb%:U%=H%!8:U%=U%!4:J%=FNb($(U%+16)):IFJ%THEN
6600WHILECc%:IF$Cc%!8=$J%THEN
6605PROCm:SYS263873:PROCTb(H%,Cc%):ENDPROC
6610ENDIF
6615Dc%=Cc%:Cc%=Cc%!0:ENDWHILE
6620ELSE:PROCq(FNmsg_1(A%!12,"OKZc",$(U%+16)))
6625ENDIF
6630!wb%=K%
6635ELSE:Dc%=0
6640ENDIF
6645ELSE:Dc%=0
6650ENDIF
6655PROCW(H%!8,Dc%,Fc%,0,Gc%,Hc%,H%):PROCm:H%!24=H%!24OR2:PROCTb(H%,Dc%):SYS263873:ENDPROC
6660DEFPROCS(s$):PROCm:ERROR254,FNG(A%!12,"OK0",STR$xb%,V$,s$):ENDPROC
6665DEFPROCh(H%,s$,oa$):PROCS(FNmsg_2(A%!12,oa$,$H%!4,s$)):ENDPROC
6670DEFPROCLa(Ic%):LOCALJ%,T%,Jc%,i%,Kc%,Lc%,Mc%,Nc%:J%=FNb("tp:"):IFJ%=0PROCh(Ic%,FNmsg_0(A%!12,"OK3"),"OK2a")
6675REPEAT:J%=FNd:IFJ%THEN
6680T%=FNa(J%,"tp:"):IFT%THEN
6685Jc%+=1:B%=1414548820:C%=12+1+LEN$T%:Kc%=USR(P%+12):IFKc%=0PROCh(Ic%,FNmsg_1(A%!12,"FA5","TMPT"),"OK2a")
6690IFLc%THEN
6695Lc%!0=Kc%
6700ELSE:Ic%!8=Kc%
6705ENDIF
6710Kc%!0=0:Kc%!4=0:Kc%!8=0:$(Kc%+12)=$T%:Nc%=0
6715ELSE:T%=FNa(J%,"end:"):IFT%THEN
6720IF?T%<>13PROCh(Ic%,FNmsg_0(A%!12,"OK3a"),"OK2a")
6725Jc%-=1:Lc%=Kc%
6730ELSE:i%=INSTR($J%,":"):IFi%=0PROCh(Ic%,FNmsg_1(A%!12,"OK4",$J%),"OK2a")
6735IFJc%<>1PROCh(Ic%,FNmsg_1(A%!12,"OK4a",$J%),"OK2a")
6740Kc%!8+=1:B%=1498567758:C%=16+1+i%:Mc%=USR(P%+12):IFMc%=0PROCh(Ic%,FNmsg_1(A%!12,"FA5","NTRY"),"OK2a")
6745IFNc%Nc%!0=Mc%ELSEKc%!4=Mc%
6750Mc%!0=0:Mc%!4=0:Mc%!8=0:Mc%!12=0:$(Mc%+16)=LEFT$($J%,i%):J%+=i%+1:CASE-1OF
6755WHENFNa(J%,"in")<>0:Mc%!4=1
6760WHENFNa(J%,"st")<>0:Mc%!4=2
6765WHENFNa(J%,"s0")<>0:Mc%!4=3
6770WHENFNa(J%,"gs")<>0:Mc%!4=4
6775WHENFNa(J%,"bl")<>0:Mc%!4=5:T%=FNa(J%,"bl"):WHILE?T%=32:T%+=1:ENDWHILE:IF?T%=ASC","T%+=1
6780CASE-1OF
6785WHENFNa(T%,"in")<>0:Mc%!8=1
6790WHENFNa(T%,"st")<>0:Mc%!8=2
6795WHENFNa(T%,"s0")<>0:Mc%!8=3
6800WHENFNa(T%,"gs")<>0:Mc%!8=4
6805WHENFNa(T%,"ptr")<>0:Mc%!8=7
6810OTHERWISE:PROCh(Ic%,FNmsg_1(A%!12,"OK5",$T%),"OK2a")
6815ENDCASE
6820WHENFNa(J%,"ls")<>0:Mc%!4=6:T%=FNa(J%,"ls"):PROCUb(T%,Mc%,Ic%)
6825WHENFNa(J%,"ptr")<>0:Mc%!4=7
6830WHENFNa(J%,"ch")<>0:Mc%!4=8
6835OTHERWISE:PROCh(Ic%,FNmsg_1(A%!12,"OK6",$J%),"OK2a")
6840ENDCASE
6845Nc%=Mc%
6850ENDIF
6855ENDIF
6860ENDIF
6865UNTILJc%=-1:ENDPROC
6870DEFPROCUb(Oc%,U%,Ic%):LOCALwc%,K%,t%:K%=U%+8:REPEAT:WHILE?Oc%=32:Oc%+=1:ENDWHILE:IF?Oc%=44Oc%+=1
6875WHILE?Oc%=32:Oc%+=1:ENDWHILE:IF?Oc%<>13THEN
6880U%!12+=1:B%=1414744396:C%=8:wc%=USR(P%+12):IFwc%=0ERROR253,FNmsg_1(A%!12,"FA5","LIST")
6885!K%=wc%:K%=wc%:wc%!0=0:t%=FNa(Oc%,"in"):IFt%THEN
6890Oc%=t%:wc%!4=1
6895ELSE:t%=FNa(Oc%,"st"):IFt%THEN
6900Oc%=t%:wc%!4=2
6905ELSE:t%=FNa(Oc%,"s0"):IFt%THEN
6910Oc%=t%:wc%!4=3
6915ELSE:t%=FNa(Oc%,"gs"):IFt%THEN
6920Oc%=t%:wc%!4=4
6925ELSE:t%=FNa(Oc%,"ptr"):IFt%THEN
6930Oc%=t%:wc%!4=7
6935ELSE:PROCh(Ic%,FNmsg_1(A%!12,"OK7",$Oc%),"OK2a")
6940ENDIF
6945ENDIF
6950ENDIF
6955ENDIF
6960ENDIF
6965ENDIF
6970UNTIL?Oc%=13:ENDPROC
6975DEFFNb(m$):LOCALPc%,i%:i%=Qc%+!wb%:WHILEi%<Qc%+Rc%:WHILE?i%=32:i%+=1:ENDWHILE:IF?i%=35OR?i%=13THEN
6980i%+=LEN$i%+1:xb%+=1
6985ELSE:IFm$=LEFT$($i%,LENm$)THEN
6990Pc%=i%+LENm$:WHILE?Pc%=32:Pc%+=1:ENDWHILE:i%+=LEN$i%+1:!wb%=i%-Qc%:xb%+=1:=Pc%
6995ELSE:i%+=LEN$i%+1:xb%+=1
7000ENDIF
7005ENDIF
7010ENDWHILE:=0
7015DEFFNd:LOCALPc%,i%:i%=Qc%+!wb%:WHILEi%<Qc%+Rc%:WHILE?i%=32:i%+=1:ENDWHILE:IF?i%=35OR?i%=13THEN
7020i%+=LEN$i%+1:!wb%=i%-Qc%:xb%+=1
7025ELSE:Pc%=i%:i%+=LEN$i%+1:!wb%=i%-Qc%:xb%+=1:=Pc%
7030ENDIF
7035ENDWHILE:=0
7040DEFFNa(J%,m$):WHILE?J%=32:J%+=1:ENDWHILE:IFm$=LEFT$($J%,LENm$)THEN
7045J%+=LENm$:WHILE?J%=32:J%+=1:ENDWHILE:=J%
7050ENDIF
7055=0
7060DEFPROCW(eb%,RETURNDc%,Fc%,Sc%,RETURNGc%,RETURNHc%,H%):LOCAL_a%,Tc%,Uc%,J%,T%,U%,i%,Ra%:U%=eb%!4:_a%=-1:REPEAT:Uc%=!wb%:Gc%=0:J%=FNd:IFJ%THEN
7065IF_a%=-1THEN
7070Ra%=4*eb%!8+8:B%=1413763664:C%=Ra%+8:Tc%=USR(P%+12):IFTc%=0ERROR253,FNmsg_1(A%!12,"FA5","PRDT")
7075IF0<=Ra%+7THEN
7080FORi%=0TORa%+7STEP4:Tc%!i%=0:NEXT
7085ENDIF
7090IFDc%Dc%!0=Tc%ELSEFc%!4=Tc%
7095Tc%!4=eb%!8:_a%=8
7100ENDIF
7105REPEAT:T%=FNa(J%,$(U%+16)):IFT%THEN
7110Gc%=1:CASEU%!4OF
7115WHEN1:Tc%!_a%=FNstore_integer(FNc($T%))
7120WHEN2,3,4:B%=T%:C%=U%!4:Tc%!_a%=USR(P%+28)
7125WHEN5:Tc%!_a%=FNea(U%,Hc%)
7130WHEN6:IF?T%=13PROCh(H%,FNmsg_1(A%!12,"OK7a",$J%),"OK2")
7135Tc%!_a%=FNfa(U%,FNc($T%),Hc%)
7140WHEN7:IF?T%<>13PROCX(H%,$T%,Tc%+_a%,Hc%)
7145WHEN8:IF?T%=13PROCh(H%,FNmsg_1(A%!12,"OK7a",$J%),"OK2")
7150Tc%!_a%=FNga(U%,FNc($T%))
7155ENDCASE
7160ENDIF
7165_a%+=4:U%=U%!0:UNTILU%=0ORGc%
7170ENDIF
7175IFGc%=0THEN
7180IF!wb%>=Rc%Gc%=3
7185!wb%=Uc%:U%=eb%!4:T%=FNa(J%,$(U%+16)):IFT%THEN
7190Gc%=1
7195ELSE:eb%=eb%!0:T%=FNa(J%,$(eb%+12)+":"):IFT%Gc%=2
7200ENDIF
7205U%=0
7210ENDIF
7215UNTILU%=0:Dc%=Tc%:ENDPROC
7220DEFPROCMa(H%):LOCALeb%,s$,J%,Uc%,U%,Gc%,Tc%,Dc%,Fc%,Sc%,Hc%,i%:eb%=H%!8:REPEAT:J%=FNb($(eb%+12)+":"):IFJ%=0PROCh(H%,FNmsg_1(A%!12,"OK8",$(eb%+12)),"OK2")
7225B%=1145128264:C%=12:Fc%=USR(P%+12):IFFc%=0PROCh(H%,FNmsg_1(A%!12,"FA5","HEAD"),"OK2")
7230Fc%!0=0:Fc%!4=0:IFSc%Sc%!0=Fc%ELSEH%!12=Fc%
7235Dc%=0:REPEAT:U%=eb%!4:PROCW(eb%,Dc%,Fc%,Sc%,Gc%,Hc%,H%):IFGc%=0THEN
7240J%=FNd:PROCh(H%,FNmsg_1(A%!12,"OK9",$J%),"OK2")
7245ENDIF
7250UNTILGc%<>1:eb%=eb%!0:Sc%=Fc%:UNTILeb%=0:WHILEHc%:i%=Hc%!4:s$=$!i%:B%=1381257040:C%=!i%:CALLP%+16:B%=1381257040:C%=4:!i%=USR(P%+12):IF!i%=0PROCh(H%,FNmsg_1(A%!12,"FA5","POTR"),"OK2")
7255!!i%=FNH(s$,-1):i%=Hc%:Hc%=!Hc%:B%=1482184792:C%=i%:CALLP%+16:ENDWHILE:ENDPROC
7260DEFFNH(s$,Vc%):LOCALj%,k%,t$:j%=INSTR(s$,":"):t$=MID$(s$,j%+1):s$=LEFT$(s$,j%-1):j%=H%!8:k%=0:WHILEj%:IF$(j%+12)=s$THEN
7265j%=H%!12:WHILEk%:j%=j%!0:k%-=1:ENDWHILE:k%=VALt$-1:j%=j%!4:WHILEk%:j%=j%!0:k%-=1:ENDWHILE:IFVc%j%!(j%!4*4+8)+=1
7270=j%
7275ELSE:j%=j%!0:k%+=1
7280ENDIF
7285ENDWHILE:PROCb(FNmsg_2(A%!12,"FAG",s$,t$)):=0
7290DEFFNstore_integer(v%):LOCALb%:B%=1196707401:C%=4:b%=USR(P%+12):IFb%=0ERROR253,FNmsg_1(A%!12,"FA5","INTG")
7295!b%=v%:=b%
7300DEFFNS(s$):LOCALt$,i%,Wc%:SYS39,s$,O%,256TO,,Wc%:IFWc%=0THEN=""
7305FORi%=0TOWc%-1:t$+=CHR$O%?i%:NEXT:=t$
7310DEFFNungstrans(s$):LOCALt$,i%,c%:IFs$=""THEN=""
7315FORi%=1TOLENs$:c%=ASCMID$(s$,i%,1):IFc%>=128c%-=128:t$+="|!"
7320IFc%<32c%+=64:t$+="|"
7325IFc%=127c%=63:t$+="|"
7330IFINSTR("|<""",CHR$c%)THENt$+="|"
7335t$+=CHR$c%:NEXT:=t$
7340DEFFNea(U%,RETURNHc%):LOCALJ%,Ac%,b%,i$:B%=1280266050:C%=8:b%=USR(P%+12):IFb%=0ERROR253,FNmsg_1(A%!12,"FA5","BOOL")
7345J%=FNd:IFJ%THEN
7350CASEU%!8OF
7355WHEN1:J%=FNK(J%,Ac%):b%!0=FNstore_integer(Ac%):IF?J%=13J%=FNd
7360b%!4=FNstore_integer(FNc($J%))
7365WHEN2,3,4:J%=FNr(J%,i$):$q%=i$:B%=q%:C%=U%!8:b%!0=USR(P%+28):IF?J%=13J%=FNd
7370B%=J%:C%=U%!8:b%!4=USR(P%+28)
7375WHEN7:J%=FNr(J%,i$):PROCX(H%,s$,b%+0,Hc%):IF?J%=13J%=FNd
7380PROCX(H%,$J%,b%+4,Hc%)
7385ENDCASE
7390ENDIF
7395=b%
7400DEFFNfa(U%,Xc%,RETURNHc%):LOCALi%,K%,Zc%,_c%,J%,`c%,ad%,Ac%,i$:IF1<=Xc%THEN
7405FORi%=1TOXc%:B%=1146377036:C%=4*U%!12+8:Zc%=USR(P%+12):IFZc%=0ERROR253,FNmsg_1(A%!12,"FA5","LSTD")
7410IF_c%_c%!0=Zc%ELSEK%=Zc%
7415Zc%!0=0:Zc%!4=U%!12:ad%=8:J%=FNd:IFJ%THEN
7420`c%=U%!8:WHILE`c%:CASE`c%!4OF
7425WHEN1:J%=FNK(J%,Ac%):Zc%!ad%=FNstore_integer(Ac%)
7430WHEN2,3,4:J%=FNr(J%,i$):$q%=i$:B%=q%:C%=`c%!4:Zc%!ad%=USR(P%+28)
7435WHEN7:J%=FNr(J%,i$):PROCX(H%,i$,Zc%+ad%,Hc%)
7440ENDCASE
7445`c%=!`c%:ad%+=4:ENDWHILE
7450ENDIF
7455_c%=Zc%:NEXT
7460ENDIF
7465=K%
7470DEFFNga(U%,Xc%):LOCALi%,Zc%,J%,_c%,K%,j%,t$:IF1<=Xc%THEN
7475FORi%=1TOXc%:J%=FNd:IFJ%THEN
7480t$=FNS($J%):B%=1380010051:C%=5+LENt$:Zc%=USR(P%+12):IFZc%=0ERROR253,FNmsg_1(A%!12,"FA5","CHAR")
7485Zc%!0=0:Zc%?4=ASCt$:Zc%?5=LENt$-1:t$=MID$(t$,2):IF1<=LENt$THEN
7490FORj%=1TOLENt$:Zc%?(j%+5)=ASCMID$(t$,j%,1):NEXT
7495ENDIF
7500IF_c%_c%!0=Zc%ELSEK%=Zc%
7505ENDIF
7510_c%=Zc%:NEXT
7515ENDIF
7520=K%
7525DEFPROCX(H%,c$,bd%,RETURNHc%):LOCALi%,s$,t$,cd%,dd%,Sc%,eb%,Dc%,ed%,Gc%,Tc%,t$:i%=INSTR(c$,":"):IFi%=0PROCh(H%,FNmsg_1(A%!12,"OKAA",c$),"OK2")
7530s$=LEFT$(c$,i%-1):t$=MID$(c$,i%+1):eb%=H%!8:ed%=H%!12:Sc%=0:WHILEeb%:IF$(eb%+12)=s$THEN
7535IFVALt$>0THEN
7540B%=1381257040:C%=LENc$+1:i%=USR(P%+12):IFi%=0ERROR253,FNmsg_1(A%!12,"FA5","POTR")
7545$i%=c$:!bd%=i%:B%=1482184792:C%=8:cd%=USR(P%+12):IFcd%=0ERROR253,FNmsg_1(A%!12,"FA5","XXXX")
7550!cd%=Hc%:cd%!4=bd%:Hc%=cd%:ENDPROC
7555ELSE:IFed%THEN
7560Dc%=ed%!4:IFDc%THEN
7565WHILEDc%!0:Dc%=Dc%!0:ENDWHILE
7570ENDIF
7575ELSE:Dc%=0
7580ENDIF
7585dd%=Dc%:PROCW(eb%,Dc%,ed%,Sc%,Gc%,Hc%,H%):IFGc%=0ANDDc%=0THEN
7590J%=FNd:IFJ%t$=$J%ELSEt$=""
7595PROCh(H%,FNmsg_1(A%!12,"OK9",t$),"OK2")
7600ENDIF
7605Tc%=ed%!4:WHILETc%<>Dc%:IFTc%!(Tc%!4*4+8)THEN
7610Gc%=-1:IF0<=Tc%!4-1THEN
7615FORi%=0TOTc%!4-1:IFNOTFND(Tc%,Dc%,i%*4+8)THEN
7620Gc%=0:i%=Tc%!4
7625ENDIF
7630NEXT
7635ENDIF
7640IFGc%THEN
7645IF0<=Dc%!4-1THEN
7650FORi%=0TODc%!4-1:cd%=Dc%!(i%*4+8):PROCB(cd%):PROCfree_structure(cd%):NEXT
7655ENDIF
7660dd%!0=0:B%=1413763664:C%=Dc%:CALLP%+16:Dc%=Tc%
7665ELSE:Tc%=!Tc%
7670ENDIF
7675ELSE:Tc%=!Tc%
7680ENDIF
7685ENDWHILE:B%=1381257040:C%=4:i%=USR(P%+12):IFi%=0ERROR253,FNmsg_1(A%!12,"FA5","POTR")
7690!i%=Dc%:!bd%=i%:Dc%!(Dc%!4*4+8)+=1:ENDPROC
7695ENDIF
7700ELSE:eb%=eb%!0:IFVALt$=0THEN
7705Sc%=ed%:ed%=ed%!0
7710ENDIF
7715ENDIF
7720ENDWHILE:PROCh(H%,FNmsg_1(A%!12,"OKAB",s$),"OK2"):ENDPROC
7725DEFFND(s%,d%,o%):LOCALs$,d$:s%=s%!o%:d%=d%!o%:IFs%=0ORd%=0THEN
7730=(s%=d%)
7735ELSE:CASEs%!-4OF
7740WHEN1196707401:=!s%=!d%
7745WHEN1196577875:=$s%=$d%
7750WHEN810701907:CALLZ%,s%,s$:CALLZ%,d%,d$:=s$=d$
7755WHEN1381258055:CALLY%,s%,s$:CALLY%,d%,d$:=s$=d$
7760WHEN1280266050:=FNha(s%,d%)
7765WHEN1146377036:=FNia(s%,d%)
7770WHEN1381257040:=!s%=!d%
7775WHEN1380010051:=FNja(s%,d%)
7780OTHERWISE:PROCb(FNmsg_1(A%!12,"WA10",STR$~s%!-4))
7785ENDCASE
7790ENDIF
7795=0
7800DEFFNha(s%,d%):IFFND(s%,d%,0)THEN=FND(s%,d%,4)ELSE=0
7805DEFFNia(s%,d%):LOCALi%:WHILEs%:IF0<=s%!4-1THEN
7810FORi%=0TOs%!4-1:IFNOTFND(s%,d%,i%*4+8)THEN=0
7815NEXT
7820ENDIF
7825s%=s%!0:d%=d%!0:ENDWHILE:=-1
7830DEFFNja(s%,d%):LOCALi%:WHILEs%:IFs%?4<>d%?4THEN=0
7835IFs%?5<>d%?5THEN=0
7840i%=s%?5:WHILEi%:IFs%?(i%+5)<>d%?(i%+5)THEN=0
7845i%-=1:ENDWHILE:s%=!s%:d%=!d%:ENDWHILE:=-1
7850DEFFNK(fd%,RETURNAc%):LOCALi%,gd%:i%=INSTR($fd%,","):IFi%=0THEN
7855Ac%=FNc($fd%):gd%=fd%+LEN$fd%
7860ELSE:Ac%=FNc(LEFT$($fd%,i%-1)):gd%=fd%+i%:WHILE?gd%=32:gd%+=1:ENDWHILE
7865ENDIF
7870=gd%
7875DEFFNr(fd%,RETURNi$):LOCALi%,pa$,hd%,id%:i$="":i%=0:WHILEfd%?i%=32:i%+=1:ENDWHILE:hd%=-1:id%=(fd%?i%=34):WHILENOT(fd%?i%=13OR(hd%ANDfd%?i%=44)):IFNOTid%ORfd%?i%<>34ORhd%i$+=CHR$fd%?i%
7880IFid%ANDfd%?i%=34hd%=NOThd%
7885i%+=1:ENDWHILE:IFfd%?i%=13THEN
7890gd%=fd%+i%
7895ELSE:gd%=fd%+i%+1:WHILE?gd%=32:gd%+=1:ENDWHILE
7900ENDIF
7905=gd%
7910DEFFNl(c$):LOCALc%,i%,jd%,kd%,ld%,md%,nd%,gd%,od%,kb%:SYS8,17,c$TOc%,,jd%,,Rc%:IFNOT(c%=0ORc%=1)THENSYS8,19,c$,c%
7915IFc%=0THEN=0
7920IF(jd%>>>20)=4095kd%=jd%>>8AND4095ELSEkd%=-1
7925IFkd%<>4038ERROR254,FNmsg_1(A%!12,"OKAL",c$)
7930B%=1096040772:C%=4+Rc%+1:Qc%=USR(P%+12)+4:IFQc%=4ERROR253,FNmsg_1(A%!12,"FA5","DATA")
7935SYS8,16,c$,Qc%:IFRc%>=20ANDQc%!0=1213419859THEN
7940SYS272129,8,-1TOld%:nd%=Qc%!4:B%=1096040772:C%=4+nd%+1:gd%=USR(P%+12)+4:IFgd%=4ERROR253,FNmsg_1(A%!12,"FA5","DATA")
7945SYS131102,6,,,ld%TOC%,,md%;kb%:IF(kb%AND1)ERROR253,FNmsg_1(A%!12,"FA5","squash")
7950SYS272129,4,md%,Qc%+20,Rc%-20,gd%,nd%TOod%:SYS30,7,,md%:B%=1096040772:C%=Qc%-4:CALLP%+16:Qc%=gd%:Rc%=nd%
7955ENDIF
7960wb%=Qc%-4:!wb%=0:xb%=1:B%=Qc%:C%=Rc%:CALLP%+52:IFQc%?(Rc%-1)<>13Rc%+=1:Qc%?(Rc%-1)=13
7965V$=c$:=-1
7970DEFPROCm:B%=1096040772:C%=Qc%-4:CALLP%+16:Qc%=0:Rc%=0:ENDPROC
7975DEFPROCRa:pd%=Qc%:qd%=wb%:rd%=Rc%:sd%=xb%:qa$=V$:ENDPROC
7980DEFPROCSa:Qc%=pd%:wb%=qd%:Rc%=rd%:xb%=sd%:V$=qa$:ENDPROC
7985DEFPROCTb(H%,R%):LOCALs%,t%,s$,z%,N%:R%!(R%!4*4+8)+=1:B%=1414419024:C%=68:z%=USR(P%+12):IFz%=0ERROR253,FNmsg_1(A%!12,"FA5","PRNT")
7990IFA%!48THEN
7995s%=A%!48:WHILEs%!0:s%=s%!0:ENDWHILE:s%!0=z%
8000ELSE:A%!48=z%
8005ENDIF
8010z%!0=0:z%!4=H%:B%=R%!8:C%=2:z%!8=USR(P%+28):B%=1413697091:C%=36:N%=USR(P%+12):IFN%=0ERROR253,FNmsg_1(A%!12,"FA5","CNCT")
8015SYS6,161,15TO,,s%:N%!0=(s%AND224)>>5:N%?4=1+((s%AND28)>>2):N%?5=0:SYS6,161,16TO,,s%:N%!8=(s%AND224)>>5:IFNOTFNtTHEN
8020N%!12=0
8025ELSE:SYS6,161,3TO,,s%:SYS6,161,4TO,,t%:IFs%THEN
8030$q%=STR$t%+"."+STR$s%:B%=q%:C%=2:N%!12=USR(P%+28)
8035ELSE:s$=CHR$t%:FORs%=1TO5:SYS6,161,152+s%TO,,t%:IFt%s$+=CHR$t%ELSEs%=5
8040NEXT:$q%=s$:B%=q%:C%=2:N%!12=USR(P%+28)
8045ENDIF
8050ENDIF
8055SYS131107,"PrinterType$5",O%,256,,3TO,,t%:O%?t%=13:B%=O%:C%=2:N%!16=USR(P%+28):N%!20=0:N%!24=0:N%!28=0:N%!32=0:N%?6=0:z%!12=N%:B%=1195789891:C%=4*H%!36:s%=USR(P%+12):IFs%=0ERROR253,FNmsg_1(A%!12,"FA5","CNFG")
8060IF0<=H%!36-1THEN
8065FORt%=0TOH%!36-1:s%!(t%*4)=0:NEXT
8070ENDIF
8075z%!16=s%:z%!20=-1:z%!24=0:z%!28=-1:z%!32=0:z%!36=0:z%!40=0:z%!44=0:IFH%!32AND4THEN
8080z%!48=FNI
8085ELSE:z%!48=0
8090ENDIF
8095z%!52=0:PROCc(H%,z%,-4,0):IFH%!24AND4PROCc(H%,z%,-12,0)
8100PROCk:IFH%!24AND8THEN
8105z%!56=10*H%?(24+1)
8110ELSE:z%!56=-1
8115ENDIF
8120PROCZ(z%):ENDPROC
8125DEFPROCt(RETURNz%,RETURNS%,RETURNqb%):SYS262358,Fb%,O%,1<<21,1<<21:qb%=!O%:S%=0:z%=A%!48:WHILEz%:IFz%!28=qb%THEN
8130ENDPROC
8135ELSE:z%=z%!0
8140ENDIF
8145ENDWHILE:S%=Ka%:WHILES%:IFS%!16=qb%THEN
8150ENDPROC
8155ELSE:S%=S%!0
8160ENDIF
8165ENDWHILE:ENDPROC
8170DEFPROCVb (RETURNz%,RETURNqb%):SYS262358,Fb%,O%,1<<21,1<<21:qb%=!O%:S%=0:z%=A%!48:WHILEz%:IFz%!28=qb%THEN
8175ENDPROC
8180ELSE:z%=z%!0
8185ENDIF
8190ENDWHILE:ENDPROC
8195DEFPROCWb (RETURNS%,RETURNqb%):SYS262358,Fb%,O%,1<<21,1<<21:qb%=!O%:S%=Ka%:WHILES%:IFS%!16=qb%THEN
8200ENDPROC
8205ELSE:S%=S%!0
8210ENDIF
8215ENDWHILE:ENDPROC
8220DEFPROCT(z%):LOCALN%,i%,td%,ud%,vd%:IFz%!24AND8ERROR254,FNmsg_0(A%!12,"OKAJ")
8225Ba%=z%:Ca%=z%!4:N%=z%!12:IFz%!24AND(1<<17)THEN
8230ENDPROC
8235ENDIF
8240IFCa%!24AND4THEN
8245PROCc(Ca%,Ba%,-11,0):PROCs(FNprinter_find_window(Ba%,"connections")):PROCp(FNprinter_find_window(Ba%,"connections"))
8250ELSE:IFz%!40PROCicon_write(Q%,31,$z%!40)ELSEPROCicon_write(Q%,31,$z%!8)
8255IFN%?6AND1PROCicon_select(Q%,37)ELSEPROCicon_deselect(Q%,37)
8260PROCicon_deselect(Q%,0):PROCicon_deselect(Q%,1):PROCicon_deselect(Q%,2):PROCicon_deselect(Q%,3):PROCicon_deselect(Q%,4):PROCicon_deselect(Q%,33):i%=-1:CASEN%!0OF
8265WHEN1:i%=0
8270WHEN2:i%=1
8275WHEN4:IFFNt i%=2
8280WHEN5:i%=4
8285WHEN6:IFFNz i%=3
8290WHEN8:IFCa%!24AND16i%=33
8295ENDCASE
8300IFNOTi%PROCicon_select(Q%,i%)
8305PROCicon_write(Q%,15,FNmsg_0(A%!12,"BR"+STR$N%?4)):i%=N%!8:td%=i%AND3:vd%=(i%AND4)>>2:ud%=(i%AND48)>>4:IF(i%AND8)=0ud%=0ELSEud%+=1
8310PROCicon_write(Q%,17,FNmsg_0(A%!12,"DA"+STR$td%)):PROCicon_write(Q%,18,FNmsg_0(A%!12,"PA"+STR$ud%)):IFvd%=0THEN
8315PROCicon_write(Q%,19,FNmsg_0(A%!12,"SB0"))
8320ELSE:IFtd%=0ANDud%<>0THEN
8325PROCicon_write(Q%,19,FNmsg_0(A%!12,"SB1b"))
8330ELSE:IFtd%=3ANDud%=0THEN
8335PROCicon_write(Q%,19,FNmsg_0(A%!12,"SB1c"))
8340ELSE:PROCicon_write(Q%,19,FNmsg_0(A%!12,"SB1a"))
8345ENDIF
8350ENDIF
8355ENDIF
8360IFN%?5PROCicon_select(Q%,13)ELSEPROCicon_deselect(Q%,13)
8365IFN%?6AND2PROCicon_select(Q%,35)ELSEPROCicon_deselect(Q%,35)
8370PROCu(Q%,25,N%,12):PROCu(Q%,26,N%,20):PROCu(Q%,27,N%,24):PROCu(Q%,28,N%,28):PROCu(Q%,29,N%,32):IFN%!16<>0THEN
8375IF?(N%!16)>32AND?(N%!16)<127PROCu(Q%,30,N%,16)ELSEPROCicon_write(Q%,30,"null:")
8380ELSE:PROCicon_write(Q%,30,"null:")
8385ENDIF
8390IFFNtPROCicon_unshade(Q%,2)ELSEPROCicon_shade(Q%,2)
8395IFFNzPROCicon_unshade(Q%,3)ELSEPROCicon_shade(Q%,3)
8400!V%=Q%:SYS262348,,V%OR1:V%!28=-1:IFCa%!24AND16PROCicon_unshade(Q%,33)ELSEPROCicon_shade(Q%,33)
8405PROCs(Q%):SYS262341,,V%:PROCqb
8410ENDIF
8415ENDPROC
8420DEFPROCu(Nb%,qb%,wd%,_a%):PROCicon_write(Nb%,qb%,FNprinter_read_string(wd%!_a%)):ENDPROC
8425DEFPROCC(wd%,_a%,qb%):IFwd%!_a%THEN
8430B%=1196577875:C%=wd%!_a%:CALLP%+16:wd%!_a%=0
8435ENDIF
8440!X%=Q%:X%!4=qb%:SYS262350,,X%:B%=X%!28:C%=2:wd%!_a%=USR(P%+28):ENDPROC
8445DEFFNv:=FNV(Q%,17,3,"DA",A%!12)
8450DEFFNq:=FNV(Q%,18,4,"PA",A%!12)
8455DEFFNW:IFFNicon_read(Q%,19)=FNmsg_0(A%!12,"SB0")THEN=0ELSE=1
8460DEFPROCHb(xd%):IFxd%=-1xd%=FNW
8465IFxd%=0THEN
8470PROCicon_write(Q%,19,FNmsg_0(A%!12,"SB0"))
8475ELSE:IFFNv=0ANDFNq<>0THEN
8480PROCicon_write(Q%,19,FNmsg_0(A%!12,"SB1b"))
8485ELSE:IFFNv=3ANDFNq=0THEN
8490PROCicon_write(Q%,19,FNmsg_0(A%!12,"SB1c"))
8495ELSE:PROCicon_write(Q%,19,FNmsg_0(A%!12,"SB1a"))
8500ENDIF
8505ENDIF
8510ENDIF
8515ENDPROC
8520DEFFNV(Nb%,qb%,yd%,ra$,zd%):LOCALi%,s$:s$=FNicon_read(Nb%,qb%):IF0<=yd%THEN
8525FORi%=0TOyd%:IFs$=FNmsg_0(zd%,ra$+STR$i%)THEN=i%
8530NEXT
8535ENDIF
8540=0
8545DEFPROClb:LOCALN%,i%,p$,s$:N%=Ba%!12:N%!0=0:IFFNicon_set(Q%,37)THEN
8550N%?6=N%?6OR1
8555ELSE:N%?6=N%?6ANDNOT1
8560ENDIF
8565IFFNicon_set(Q%,0)THEN
8570p$=FNC(1,Ba%):IFp$=""N%!0=1ELSEERROR254,FNmsg_1(A%!12,"OKI",p$)
8575ENDIF
8580IFFNicon_set(Q%,1)THEN
8585p$=FNC(2,Ba%):IFp$=""N%!0=2ELSEERROR254,FNmsg_1(A%!12,"OKJ",p$)
8590ENDIF
8595IFFNicon_set(Q%,2)N%!0=4
8600IFFNicon_set(Q%,3)N%!0=6
8605IFFNicon_set(Q%,4)N%!0=5
8610IFFNicon_set(Q%,33)N%!0=8
8615s$=FNicon_read(Q%,15):FORi%=0TO18:IFFNmsg_0(A%!12,"BR"+STR$i%)=s$THEN
8620N%?4=i%:i%=18
8625ENDIF
8630NEXT:i%=FNvORFNW<<2:IFFNq i%=i%ORFNq-1<<4OR8
8635N%!8=i%:IFFNicon_set(Q%,13)THEN
8640N%?5=1
8645ELSE:N%?5=0
8650ENDIF
8655IFFNicon_set(Q%,35)THEN
8660N%?6=N%?6OR2
8665ELSE:N%?6=N%?6ANDNOT2
8670ENDIF
8675PROCC(N%,12,25):PROCC(N%,20,26):PROCC(N%,24,27):PROCC(N%,28,28):PROCC(N%,32,29):PROCC(N%,16,30):PROCkb(Ba%):PROCf(-1,Ba%,0):IFNOTBa%!20THEN
8680IFBa%!24AND2THEN
8685PROCselect_printer(Ba%,-1,0)
8690ENDIF
8695PROCi(Ba%)
8700ENDIF
8705ENDPROC
8710DEFPROCi(z%):LOCALsa$,i%,x$,ta$,Ad%,H%:IFz%!20=-1ENDPROC
8715H%=z%!4:sa$=FNX(z%):IFz%!44x$=$z%!44ELSEx$=$H%!4
8720ta$="ss_"+x$+","+x$:!O%=-1:O%!4=z%!20:SYS262350,,O%:Ad%=O%!24AND1<<21:IFsa$<>$O%!28ORta$<>$O%!32THEN
8725i%=FNs(sa$,x$,-4,z%!20):PROCD(-1,z%!20):z%!20=i%:IFAd%PROCicon_select(-1,i%)
8730ENDIF
8735ENDPROC
8740DEFFNX(z%):LOCALN%,M%:IFz%!24AND4THEN=FNmsg_0(A%!12,"QU1")
8745IFz%!24AND8THEN
8750M%=z%!32:IFM%?11AND1THEN=FNmsg_0(A%!12,"QU1")ELSE=FNmsg_0(A%!12,"QU2")
8755ENDIF
8760IFz%!24AND32THEN=FNmsg_0(A%!12,"QU3")
8765IFz%!40THEN=$z%!40
8770N%=z%!12:CASEN%!0OF
8775WHEN0,1,2,5:=FNmsg_0(A%!12,"IC"+STR$N%!0)
8780WHEN4:=$N%!12
8785WHEN6:=$N%!24
8790ENDCASE
8795=""
8800DEFPROCCb:LOCAL_a%,od%,wc%,i%,s$,pc%:B%=1414744396:C%=2048:wc%=USR(P%+12):IFwc%=0ERROR253,FNmsg_1(A%!12,"FA5","LIST")
8805SYS393735,1,wc%,2048,500TO_a%;i%:IFi%AND1i%=_a%+4:CALLZ%,i%,s$:ERROR254,s$
8810PROCmenu_create(_%,FNmsg_0(A%!12,"ME6")):pc%=(_%!28AND256)<>0:od%=wc%:i%=0:WHILEi%<_a%:CALLZ%,od%,s$:od%+=LENs$+1:PROCmenu_item(_%,i%,s$,pc%):i%+=1:ENDWHILE:B%=1414744396:C%=wc%:CALLP%+16:ENDPROC
8815DEFPROCKb:LOCALz%,N%,qb%,kb%:LOCALS%,Bd%,Cd%,lb%,Dd%:REPEAT:PROCVb(z%,qb%):IFz%THEN
8820PROCicon_deselect(Fb%,qb%):IF(z%!24AND1)=0PROCZ(z%)
8825IF(z%!24AND(1<<16))THEN
8830PROCib (z%)
8835ENDIF
8840ENDIF
8845UNTILz%=0:Cd%=0:SYS263872:REPEAT:PROCWb (S%,qb%):IFS%THEN
8850IFS%!20<=0THEN
8855PROCicon_deselect(Fb%,qb%):lb%=FNF (S%!4,S%!8,S%!12):PROCL (Cd%,lb%)
8860ENDIF
8865ENDIF
8870UNTILS%=0:lb%=Cd%:WHILElb%:Bd%=FNy(lb%,0,0,0,kb%):PROCWa (Ka%,$lb%!4):Dd%=lb%:lb%=lb%!0:PROCd (1380799568,Dd%):ENDWHILE:SYS263873:ENDPROC
8875DEFPROCZ(z%):z%!24=z%!24OR1:N%=z%!12:PROCXa(z%):PROCA(z%):IFA%!44=1THEN
8880PROCselect_printer(z%,-1,0)
8885ENDIF
8890ENDPROC
8895DEFPROCXa(z%):LOCALs$,i%,pb%,H%:H%=z%!4:IFz%!44THEN
8900s$=$z%!44
8905ELSE:s$=$H%!4
8910ENDIF
8915i%=FNka(z%):pb%=-4:IFi%=-1THEN
8920i%=FNZ(z%):pb%=-3
8925ENDIF
8930IFi%=-1THEN
8935i%=251658240:pb%=-5
8940ENDIF
8945z%!20=FNs(FNX(z%),s$,pb%,i%):IFvb%THEN
8950PROCD(-1,ub%):vb%=0
8955ENDIF
8960A%!44+=1:ENDPROC
8965DEFFNka(z%):LOCALqb%,Fd%:IFvb%THEN
8970qb%=ub%
8975ELSE:qb%=-1:Fd%=A%!48:WHILEFd%:IFNOTFd%!20qb%=Fd%!20
8980IFFd%=z%Fd%=0ELSEFd%=Fd%!0
8985ENDWHILE
8990ENDIF
8995=qb%
9000DEFFNZ(z%):WHILEz%!20=-1:z%=z%!0:IFz%=0THEN=-1
9005ENDWHILE:=z%!20
9010DEFPROCXb:ub%=FNs(FNmsg_0(A%!12,"NNE"),"s"+FNmsg_0(A%!12,"IC"),-5,251658240):vb%=-1:!q%=A%!40:PROCe:ENDPROC
9015DEFPROCLb:LOCALz%,qb%,Gd%,c$,Dd%:LOCALS%,Gd%,Cd%,lb%,z%:Cd%=0:REPEAT:PROCt(z%,S%,qb%):PROCicon_deselect(Fb%,qb%):IFz%THEN
9020IFz%!24AND(1<<17)THEN
9025lb%=FNF (0,0,z%):PROCL (Cd%,lb%)
9030ELSE:PROCZb(z%)
9035ENDIF
9040ENDIF
9045IFS%ANDS%!20>0THEN
9050PROC_b ($S%!4):IFFNL=0ANDA%!44=0THEN
9055PROCXb
9060ENDIF
9065ENDIF
9070UNTILz%=0ANDS%=0:lb%=Cd%:WHILElb%:z%=lb%!12:c$=$z%!40:PROC`b (z%):PROCac (c$):Dd%=lb%:lb%=lb%!0:PROCd (1380799568,Dd%):ENDWHILE:PROCk:IFW%=0THEN
9075IFA%!44THEN
9080Gd%=A%!48:WHILEGd%:IFNOTGd%!20THEN
9085PROCselect_printer(Gd%,-1,0):Gd%=0
9090ELSE:Gd%=Gd%!0
9095ENDIF
9100ENDWHILE
9105ENDIF
9110ENDIF
9115ENDPROC
9120DEFPROCZb(z%):LOCALHd%:IFz%!24AND(1<<16)THEN
9125PROCib (z%)
9130ENDIF
9135IFz%!24AND(1<<17)THEN
9140Hd%=-1
9145ENDIF
9150IFz%!24AND1THEN
9155IFz%!24AND(1<<17)THEN
9160Gd%=-1
9165ELSE:IFz%!32THEN
9170Gd%=FN_("WA2",$z%!8)
9175ELSE:Gd%=-1
9180ENDIF
9185ENDIF
9190IFGd%THEN
9195PROCc(z%!4,z%,-10,0):IFNOTz%!20THEN
9200IFA%!44=1ANDFNL=0THEN
9205PROCXb
9210ENDIF
9215IFA%!44=1ANDFNL>0THEN
9220!q%=A%!40:PROCe
9225ENDIF
9230PROCD(-1,z%!20):z%!20=-1:A%!44-=1
9235ENDIF
9240z%!24=z%!24ANDNOT63+65536:IFW%=z%SYS524632,-1:W%=0
9245PROCA(z%)
9250ENDIF
9255ENDIF
9260ENDPROC
9265DEFPROCMb:LOCALi%,z%,K%,Id%,Jd%,Gd%,y$:B%=1482184792:C%=256:Jd%=USR(P%+12):IFJd%=0ERROR253,FNmsg_1(A%!12,"FA5","XXXX")
9270SYS262358,Fb%,Jd%,1<<21,1<<21:K%=Jd%:SYS263872:WHILENOT!K%:i%=!K%:z%=A%!48:Id%=0:WHILEz%:IF((z%!24AND(1<<17))=0)ANDz%!28=i%THEN
9275IFz%!32THEN
9280SYS263873:Gd%=FN_("WA3",$z%!8):SYS263872:IFGd%PROCA(z%)
9285ELSE:Gd%=-1
9290ENDIF
9295IFGd%THEN
9300y$=$z%!8:PROCbc(z%,Id%):PROCNb(y$)
9305ENDIF
9310z%=0
9315ELSE:Id%=z%:z%=z%!0
9320ENDIF
9325ENDWHILE:K%+=4:ENDWHILE:IFW%=0THEN
9330IFA%!44THEN
9335Gd%=A%!48:WHILEGd%:IFNOTGd%!20THEN
9340PROCselect_printer(Gd%,-1,0):Gd%=0
9345ELSE:Gd%=Gd%!0
9350ENDIF
9355ENDWHILE
9360ENDIF
9365ENDIF
9370IFW%=0PROCz
9375B%=1482184792:C%=Jd%:CALLP%+16:PROCk:PROCp(Fb%):SYS263873:ENDPROC
9380DEFPROCbc(z%,Id%):LOCALj%,i%,Ra%,H%,R%:H%=z%!4:R%=H%!12:R%=R%!4:PROCc(H%,z%,-9,0):PROCZb(z%):WHILER%:IF$R%!8=$z%!8THEN
9385R%!(R%!4*4+8)-=1:R%=0
9390ELSE:R%=R%!0
9395ENDIF
9400ENDWHILE:IFBa%=z%THEN
9405!q%=Q%:PROCe
9410ENDIF
9415i%=H%!20:WHILEi%:IFi%!12=z%THEN
9420!q%=i%!4:PROCe
9425ENDIF
9430i%=i%!0:ENDWHILE:IFz%!48PROCZa(z%!48)
9435IFW%=z%W%=0
9440PROCfree_structure(z%!8):j%=z%!12:IF(H%!24AND4)THEN
9445Ra%=H%!48:IF1<=Ra%THEN
9450FORi%=1TORa%:PROCfree_structure(!j%):j%+=4:NEXT
9455ENDIF
9460ELSE:PROCfree_structure(j%!12):PROCfree_structure(j%!16):PROCfree_structure(j%!20):PROCfree_structure(j%!24):PROCfree_structure(j%!28):PROCfree_structure(j%!32)
9465ENDIF
9470B%=1413697091:C%=j%:CALLP%+16:j%=z%!16:IFj%THEN
9475Ra%=H%!36:IF0<=Ra%-1THEN
9480FORi%=0TORa%-1:PROCfree_structure(j%!(i%*4)):NEXT
9485ENDIF
9490ENDIF
9495B%=1195789891:C%=j%:CALLP%+16:!q%=Fb%:q%!4=z%!28:SYS262350,,q%:q%!8=1<<7OR1<<23:q%!12=1<<7OR1<<23OR1<<21:SYS262349,,q%:j%=z%!52:WHILEj%:PROCfree_structure(j%!4):PROCfree_structure(j%!8):i%=j%!0:B%=1414418246:C%=j%:CALLP%+16:j%=i%:ENDWHILE:j%=z%!0:B%=1414419024:C%=z%
9500CALLP%+16:IFId%THEN
9505Id%!0=j%
9510ELSE:A%!48=j%
9515ENDIF
9520ENDPROC
9525DEFFN_(oa$,ua$):LOCALx%,y%,w%,h%:PROCicon_write(Db%,0,FNmsg_1(A%!12,oa$,ua$)):PROCicon_write(Db%,3,FNmsg_0(A%!12,oa$+"a")):SYS262351,,q%:x%=!q%:y%=q%!4:!q%=Db%:SYS262347,,q%:w%=q%!12-q%!4:h%=q%!16-q%!8:q%!4=x%-340:q%!8=y%-120:q%!12=q%!4+w%
9530q%!16=q%!8+h%:q%!28=-1:SYS262341,,q%:PROCcc(Db%):sa%=0:REPEAT:PROCv(ma%):UNTILsa%:!q%=Db%:PROCe:PROCdc:=(sa%=3)
9535DEFPROCcc(h%):!q%=h%:SYS262368,,q%:?q%=1:q%!1=q%!4:q%!3=q%!8:q%!5=q%!12:q%!7=q%!16:SYS7,21,q%:ENDPROC
9540DEFPROCdc:LOCALKd%,Ld%,Md%,Nd%,Od%,Pd%:SYS53,-1,4TO,,Ld%:Ld%=1<<Ld%:SYS53,-1,5TO,,Nd%:Nd%=1<<Nd%:SYS53,-1,11TO,,Kd%:Kd%+=1:SYS53,-1,12TO,,Md%:Md%+=1:Od%=Kd%*Ld%:Pd%=Md%*Nd%:?q%=1:q%!1=0:q%!3=0:q%!5=Od%:q%!7=Pd%:SYS7,21,q%:ENDPROC
9545DEFPROCk:LOCALz%,K%,i%:LOCALS%:!O%=Fb%:IFva%THEN
9550FORi%=0TOva%-1:O%!4=i%+4:SYS262340,,O%:NEXT
9555ENDIF
9560IFMa%THEN
9565FORi%=va%TOva%+Ma%:O%!4=i%+4:SYS262340,,O%:NEXT
9570ENDIF
9575va%=0:Ma%=0:!O%=Fb%:O%!4=0:O%!8=a%(4)!4:O%!12=1030:O%!16=a%(4)!12:O%!20=a%(4)!16:O%!24=a%(4)!20:O%!28=a%(4)!24:O%!32=a%(4)!28:z%=A%!48:WHILEz%:SYS262338,,O%TOi%:va%+=1:O%!16=O%!8:O%!8-=(a%(4)!12-a%(4)!4):z%!28=i%:z%=z%!0:ENDWHILE:S%=Ka%:WHILES%
9580SYS262338,,O%TOi%:Ma%+=1:O%!16=O%!8:O%!8-=(a%(4)!12-a%(4)!4):S%!16=i%:S%=S%!0:ENDWHILE:SYS262348,,O%OR1:O%!0=0:O%!4=-(va%+Ma%+1)*(a%(4)!12-a%(4)!4):O%!8=O%!52-O%!44:O%!12=0:SYS262359,Fb%,O%
9585O%!4=-(va%+Ma%+2)*(a%(4)!12-a%(4)!4):SYS262353,Fb%,O%!0,O%!4,O%!8,O%!12:IFFNi (Fb%)THEN
9590PROCp(Fb%)
9595ENDIF
9600ENDPROC
9605DEFFNz:LOCALi%:SYS131129,,"NFS_Mount"TO;i%:=((i%AND1)=0)
9610DEFFNt:LOCALi%:SYS131129,,"NetPrint_ReadPSName"TO;i%:=((i%AND1)=0)
9615DEFFNc(s$):LOCALt%,n%,f%:SYS131117,s$,aa%,256TO,t%,n%;f%:IFt%OR(f%AND1)ERROR253,FNmsg_1(A%!12,"FAD",s$)
9620=n%
9625DEFFNT(s$):LOCALQd%,f%:SYS131113,37,s$,aa%,0,0,256TO,,,,,Qd%;f%:IF(Qd%<=0)OR(f%AND1):=s$
9630aa%?(256-Qd%)=13:=$aa%
9635DEFPROCw(z%,Rd%,Sd%):LOCALp%:p%=ua%:WHILEp%:PROCc(p%,z%,Rd%,Sd%):p%=p%!0:ENDWHILE:ENDPROC
9640DEFPROCc(H%,z%,Rd%,Td%):LOCALi%:LOCALERROR:ONERRORLOCAL:RESTOREERROR:PROCec(H%,z%,Rd%):ENDPROC
9645O%!0=Rd%:O%!4=H%:O%!8=z%:O%!12=Td%:O%!16=ja%:O%!20=P%:O%!24=A%:IFH%!24AND1THEN
9650i%=EVAL("FN"+$H%!4+"_support("+STR$O%+")")
9655ELSE:IF0<=Za%-1THEN
9660FORi%=0TOZa%-1:IF$H%!4=b$(i%)THEN
9665B%=O%:CALLb%(i%)
9670ENDIF
9675NEXT
9680ENDIF
9685ENDIF
9690ENDPROC
9695DEFPROCec(H%,z%,Rd%):IF(z%!24AND8)ERROR254,REPORT$
9700IFERR=253ERROR253,REPORT$
9705PROCb(FNw(A%!12,"WA6",$H%!4,STR$Rd%,REPORT$,STR$ERL)):ENDPROC
9710DEFPROCfc(z%):z%!24=z%!24OR4:PROCi(z%):PROCf(-1,z%,0):ENDPROC
9715DEFPROCpb(z%,c$):LOCALLb%,Ud%,i%:IFc$="configure"THEN
9720IFz%!24AND8ERROR254,FNmsg_0(A%!12,"OKAI")
9725ENDIF
9730Lb%=FNprinter_find_window(z%,c$):PROCs(Lb%):PROCp(Lb%):!O%=Lb%:SYS262348,,O%OR1:Ud%=O%!88:FORi%=0TOUd%:!O%=Lb%:O%!4=i%:SYS262350,,O%:IF(O%!24AND(1<<23))=0THEN
9735IF(O%!24AND(15<<12))=(15<<12)THEN
9740IF(z%!24AND(1<<16))OR(z%!24AND(1<<17))THEN
9745PROCicon_shade (Lb%,i%):PROCcaret_set (-1,-1)
9750ELSE:PROCicon_unshade (Lb%,i%):PROCcaret_set(Lb%,i%)
9755ENDIF
9760ENDPROC
9765ENDIF
9770ENDIF
9775NEXT:ENDPROC
9780DEFFNprinter_find_window(z%,c$):LOCALH%:H%=z%!4:i%=H%!20:WHILEi%:IF$(i%+16)=c$THEN
9785i%!8=H%:i%!12=z%:=i%!4
9790ENDIF
9795i%=i%!0:ENDWHILE:ERROR253,FNmsg_1(A%!12,"FAE",c$):=0
9800DEFPROCH(Lb%,RETURNNb%,RETURNH%,RETURNz%):H%=ua%:WHILEH%:Nb%=H%!20:WHILENb%:IFNb%!4=Lb%THEN
9805z%=Nb%!12:ENDPROC
9810ENDIF
9815Nb%=Nb%!0:ENDWHILE:H%=H%!0:ENDWHILE:Nb%=0:H%=0:z%=0:ENDPROC
9820DEFFNprinter_find_prdata_entry(H%,c$):LOCALR%:IFH%=0THEN=0
9825R%=H%!12:IFR%=0THEN=0
9830R%=R%!4:IFR%=0THEN=0
9835WHILE$R%!8<>c$:R%=R%!0:IFR%=0THEN=0
9840ENDWHILE:=R%
9845DEFFN`(K%):IFK%=0THEN=0
9850IFK%!-4<>1196707401ANDK%!-4<>1381257040THEN
9855ERROR253,FNmsg_0(A%!12,"FA6")
9860ENDIF
9865=!K%
9870DEFFNprinter_read_string(K%):LOCALi%,s$:IFK%=0THEN=""
9875CASEK%!-4OF
9880WHEN1196577875:=$K%
9885WHEN810701907:CALLZ%,K%,s$:=s$
9890WHEN1381258055:CALLY%,K%,s$:=s$
9895ENDCASE
9900ERROR253,FNmsg_0(A%!12,"FA7"):=""
9905DEFFNprinter_read_integer_entry(R%,Vd%):IFR%=0THEN=0
9910=FN`(R%!(4+Vd%*4))
9915DEFPROCprinter_write_integer_entry(R%,Vd%,Wd%):LOCALK%:IFR%<>0THEN
9920K%=R%!(4+Vd%*4):IFK%!-4<>1196707401ANDK%!-4<>1381257040THEN
9925ERROR253,FNmsg_0(A%!12,"FA6")
9930ENDIF
9935!K%=Wd%
9940ENDIF
9945ENDPROC
9950DEFFNprinter_read_string_entry(R%,Vd%):IFR%=0THEN=""
9955=FNprinter_read_string(R%!(4+Vd%*4))
9960DEFFNprinter_read_boolean_string_entry(R%,Vd%,Xd%):LOCALK%:IFR%=0=""
9965K%=R%!(4+Vd%*4):IFK%!-4<>1280266050ERROR253,FNmsg_0(A%!12,"FA8")
9970IFXd%THEN
9975=FNprinter_read_string(K%!4)
9980ELSE:=FNprinter_read_string(K%!0)
9985ENDIF
9990DEFFNprinter_read_list_integer_entry(R%,Vd%,wc%,Zd%):LOCALK%:IFR%=0THEN=0
9995K%=R%!(4+Vd%*4):IFK%=0=0
10000IFK%!-4<>1146377036ERROR253,FNmsg_0(A%!12,"FA9")
10005WHILEwc%<>1ANDK%:K%=K%!0:wc%-=1:ENDWHILE:IFK%=0=0
10010K%+=8:WHILEZd%<>1:K%+=4:Zd%-=1:ENDWHILE:=FN`(!K%)
10015DEFFNprinter_read_list_string_entry(R%,Vd%,wc%,Zd%):LOCALK%:IFR%=0THEN=""
10020K%=R%!(4+Vd%*4):IFK%=0=""
10025IFK%!-4<>1146377036ERROR253,FNmsg_0(A%!12,"FA9")
10030WHILEwc%<>1ANDK%:K%=K%!0:wc%-=1:ENDWHILE:IFK%=0=""
10035K%+=8:WHILEZd%<>1:K%+=4:Zd%-=1:ENDWHILE:=FNprinter_read_string(!K%)
10040DEFPROCaa(N$,RETURN_d%):LOCALERROR:ONERRORLOCALRESTOREERROR:ERROR0,REPORT$
10045SYS30,6,,,17+LENN$TO,,_d%:$(_d%+16)=N$:SYS267521,_d%,_d%+16:ENDPROC
10050DEFFNmsg_0(_d%,T$)=FNw(_d%,T$,"","","","")
10055DEFFNmsg_1(_d%,T$,S$)=FNw(_d%,T$,S$,"","","")
10060DEFFNmsg_2(_d%,T$,va$,wa$)=FNw(_d%,T$,va$,wa$,"","")
10065DEFFNG(_d%,T$,va$,wa$,xa$)=FNw(_d%,T$,va$,wa$,xa$,"")
10070DEFFNw(_d%,T$,va$,wa$,xa$,ya$):LOCALF%,L%:SYS398594,_d%,T$,ba%,256,va$,wa$,xa$,ya$TO,,,L%;F%:IFF%AND1THEN=T$
10075ba%?L%=13:=$ba%
10080DEFPROC_(_d%):IF_d%THEN
10085SYS267524,_d%:SYS131102,7,,_d%
10090ENDIF
10095ENDPROC
10100DEFPROCca(n$):za$=n$:q%!0=524626:q%!4=524614:q%!8=524613:q%!12=524611:q%!16=524610:q%!20=524609:q%!24=524608:q%!28=262345:q%!32=1282:q%!36=12:q%!40=11:q%!44=10:q%!48=8:q%!52=3:q%!56=2:q%!60=1:q%!64=5:q%!68=0
10105SYS262336,300,1263747412,n$,q%TO`d%,Rb%:ENDPROC
10110DEFPROCjb:SYS262365:END
10115DEFFNaa(da%):LOCALae%,be%,z%,t%:IFK$<>""da%=da%OR1
10120IF(da%AND1)=0ORfa%=-1ORda%<>A%!20THEN
10125SYS262343,da%,q%,,La%TOae%
10130ELSE:IFfa%=0ORK$<>""THEN
10135SYS262343,da%ANDNOT1,q%,,La%TOae%
10140ELSE:SYS262369,da%ANDNOT1,q%,ka%+fa%,La%TOae%
10145ENDIF
10150ENDIF
10155SYS66TObe%:ce%=be%-ka%:ka%=be%:z%=A%!48:WHILEz%:t%=z%+56:IFNOT!t%THEN
10160IFce%<!t% !t%-=ce%ELSE!t%=0
10165ENDIF
10170z%=z%!0:ENDWHILE:=ae%
10175DEFPROCoa:LOCALz%,H%,t%:IFK$<>""THEN
10180SYS131080,6,K$:K$=""
10185ENDIF
10190z%=A%!48:WHILEz%:t%=z%+56:IF!t%=0THEN
10195H%=z%!4:PROCc(H%,z%,0,0):!t%=10*H%?(24+1)
10200ENDIF
10205z%=z%!0:ENDWHILE:ENDPROC
10210DEFFNtask_read_env(n$,de%):LOCALWc%,ab%:SYS131107,n$,de%,256,,3TO,,Wc%;ab%:IFab%AND1Wc%=0
10215de%?Wc%=13:=$de%
10220DEFFNla(a$,b$):LOCALee%:SYS274525,-1,a$,b$,3TOee%:=ee%
10225DEFFNtask_lower(s$):LOCALl$,fe%,i%:SYS274519,-1TOfe%:l$="":IF1<=LENs$THEN
10230FORi%=1TOLENs$:l$+=CHR$fe%?ASCMID$(s$,i%,i%):NEXT
10235ENDIF
10240=l$
10245DEFFNtask_upper(s$):LOCALu$,fe%,i%:SYS274520,-1TOfe%:u$="":IF1<=LENs$THEN
10250FORi%=1TOLENs$:u$+=CHR$fe%?ASCMID$(s$,i%,i%):NEXT
10255ENDIF
10260=u$
10265DEFPROCda:DIMge%256:ENDPROC
10270DEFPROCma:LOCALr$,r%:r$=REPORT$:r%=INSTR(r$,"in "+CHR$34+"!"):IFr%r$=LEFT$(r$,r%-1)
10275CASEERROF
10280WHEN254:PROCj(r$,1)
10285WHEN253:PROCj(r$,2)
10290OTHERWISE:PROCj(r$+" (&"+STR$~ERR+") @"+STR$ERL,3)
10295ENDCASE
10300ENDPROC
10305DEFPROCj(r$,he%):LOCALr%:SYS262356,,-1:!ge%=ERR:$(ge%+4)=r$+CHR$0:SYS262367,ge%,he%,za$TO,r%:IFr%=2THEN
10310ONERROROFF
10315Qb%=2:PROCI:PROCx
10320ENDIF
10325ENDPROC
10330DEFPROCb(r$):!ge%=1:$(ge%+4)=r$+CHR$0:SYS262367,ge%,1OR1<<4,FNmsg_1(A%!12,"ER2",za$):ENDPROC
10335DEFPROCea:ie%=0:ENDPROC
10340DEFFNs(Aa$,x$,pb%,je%):LOCALt%,s%,i%,v$,w%:IFx$="s"+FNmsg_0(A%!12,"IC")THEN
10345v$="s"+x$:SYS262377,40,,x$TO,,,w%
10350ELSE:SYS393449,40,,x$TO,,,w%;i%:IFi%AND1THEN
10355SYS262377,40,,"s"+FNmsg_0(A%!12,"IC")TO,,,w%:IFLEFT$(x$,3)="su_"THEN
10360v$="ssu"+FNmsg_0(A%!12,"IC")
10365ELSE:v$="ss"+FNmsg_0(A%!12,"IC")+","+FNmsg_0(A%!12,"IC")
10370ENDIF
10375ELSE:IFLEFT$(x$,3)="su_"THEN
10380v$="s"+x$
10385ELSE:v$="ss_"+x$+","+x$
10390ENDIF
10395ENDIF
10400ENDIF
10405B%=1179009609:C%=LENAa$+1:t%=USR(P%+12):IFt%=0ERROR253,FNmsg_1(A%!12,"FA5","IBFF")
10410$t%=Aa$:B%=1179009609:C%=LENv$+1:s%=USR(P%+12):IFs%=0ERROR253,FNmsg_1(A%!12,"FA5","IBFF")
10415$s%=v$:SYS53,-1,4TO,,i%:IF(w%<<i%)<LENAa$*16w%=LENAa$*16ELSEw%=w%<<i%
10420X%!0=pb%:X%!4=0:X%!8=-16:X%!12=w%:X%!16=88:X%!20=385888523:X%!24=t%:X%!28=s%:X%!32=LENAa$+1:SYS262338,je%,X%TOi%:=i%
10425DEFPROCD(a%,b%):!X%=a%:X%!4=b%:SYS262350,,X%:SYS262340,,X%:IFX%!24AND1<<8THEN
10430IFX%!24AND3THEN
10435B%=1179009609:C%=X%!28:CALLP%+16:IFX%!24AND1THEN
10440IFNOTX%!32THEN
10445B%=1179009609:C%=X%!32:CALLP%+16
10450ENDIF
10455ENDIF
10460ENDIF
10465ENDIF
10470ENDPROC
10475DEFPROCicon_write(a%,b%,s$):LOCALh%,i%,n%:PROCcaret_info(h%,i%,n%):!X%=a%:X%!4=b%:SYS262350,,X%:IFLENs$+1>X%!36THEN
10480ERROR253,FNmsg_2(A%!12,"FAH",s$,STR$b%)
10485ENDIF
10490$X%!28=s$:X%!8=0:X%!12=0:SYS262349,,X%:IFh%=a%ANDi%=b%PROCcaret_set(a%,b%)
10495ENDPROC
10500DEFPROCicon_validation(a%,b%,s$):!X%=a%:X%!4=b%:SYS262350,,X%:$X%!32=s$:X%!8=0:X%!12=0:SYS262349,,X%:ENDPROC
10505DEFFNicon_read(a%,b%):!X%=a%:X%!4=b%:SYS262350,,X%:=$X%!28
10510DEFPROCicon_unshade(a%,b%):!X%=a%:X%!4=b%:X%!8=0:X%!12=1<<22:SYS262349,,X%:ENDPROC
10515DEFPROCicon_shade(a%,b%):!X%=a%:X%!4=b%:X%!8=1<<22:X%!12=1<<22:SYS262349,,X%:ENDPROC
10520DEFPROCicon_deselect(a%,b%):!X%=a%:X%!4=b%:X%!8=0:X%!12=1<<21:SYS262349,,X%:IFa%=Fb%wa%=0
10525ENDPROC
10530DEFPROCicon_select(a%,b%):!X%=a%:X%!4=b%:X%!8=1<<21:X%!12=1<<21:SYS262349,,X%:IFa%=Fb%wa%=0
10535ENDPROC
10540DEFFNicon_set(a%,b%):!X%=a%:X%!4=b%:SYS262350,,X%:=(X%!24AND1<<21)<>0
10545DEFPROCicon_info(a%,b%,RETURNke%,RETURNle%,RETURNme%,RETURNne%):!X%=a%:X%!4=b%:SYS262350,,X%:ke%=X%!8:le%=X%!12:me%=X%!16:ne%=X%!20:ENDPROC
10550DEFPROCcaret_set(h%,i%):LOCALj%:j%=LENFNicon_read(h%,i%):SYS262354,h%,i%,-1,-1,,j%:SYS262354,h%,i%,-1,-1,-1,j%:ENDPROC
10555DEFPROCcaret_info(RETURNh%,RETURNi%,RETURNn%):SYS262355,,X%:h%=!X%:i%=X%!4:n%=X%!20:ENDPROC
10560DEFPROCfa:Z$="":ENDPROC
10565DEFPROCIa(Ba$,Ca$):LOCALa$,a%:SYS6,161,140TO,,a%:IF(a%AND1)=1THEN
10570SYS8,17,Ca$TOa%:IFa%=1Z$=Ca$ELSEZ$=Ba$
10575ELSE:Z$=Ba$
10580ENDIF
10585SYS262361,,Z$:ENDPROC
10590DEFPROCKa:SYS262362:ENDPROC
10595DEFPROCl(f$,n$,oe%,RETURNLb%):LOCALde%:PROCgc(f$,n$,de%):de%!64=oe%:PROChc(de%,Lb%):B%=1145981271:C%=de%:CALLP%+16:ENDPROC
10600DEFPROCgc(f$,n$,RETURNic%):LOCALpe%,Ra%,qe%,mb%,s%,f%,s$:PROCic(f$,n$,Ra%,qe%):B%=1145981271:C%=Ra%+qe%:ic%=USR(P%+12):IFic%=0ERROR253,FNmsg_1(A%!12,"FA5","WIND")
10605IFf$<>""SYS262361,,f$
10610IFqe%THEN
10615B%=1179014466:C%=qe%:pe%=USR(P%+12):IFpe%=0ERROR253,FNmsg_1(A%!12,"FA5","BUFF")
10620SYS393435,,ic%,pe%,pe%+qe%,-1,n$TOs%,,,,,,mb%;f%
10625ELSE:SYS393435,,ic%,,,-1,n$TOs%,,,,,,mb%;f%
10630ENDIF
10635IFf$<>""SYS262362
10640IFf%AND1f%=s%+4:CALLZ%,f%,s$:ERROR254,n$+": "+s$
10645IFmb%=0ERROR254,FNmsg_1(A%!12,"OKAK",n$)
10650ENDPROC
10655DEFPROChc(ic%,RETURNLb%):SYS262337,,ic%TOLb%:ENDPROC
10660DEFPROCp(a%):!V%=a%:SYS262347,,V%:V%!28=-1:SYS262341,,V%:ENDPROC
10665DEFPROC`a(a%,s$):LOCALre%,se%,te%,ue%:!V%=a%:SYS262348,,V%OR1:$V%!76=s$:IFV%!32AND1<<16THEN
10670se%=V%!16:SYS262368,,V%:re%=V%!4:te%=V%!12:ue%=V%!16:SYS262353,-1,re%,se%,te%,ue%
10675ENDIF
10680ENDPROC
10685DEFPROCJa(P$,RETURNK%,RETURNc$):LOCALf%,_a%,Ub%:IFf$=""AND`d%>=300THEN
10690SYS262363,,,,,-1,"*"+STRING$(12,CHR$0),K%TO,,,,,c$,K%
10695ELSE:IFP$=""P$=Z$
10700f%=OPENINP$:IFK%=0K%=16
10705REPEAT:PTR#f%=K%:_a%=FNj(f%):IF_a%THEN
10710PTR#f%=K%+8:Ub%=FNj(f%):c$=FNM(f%):K%+=24:IFUb%=1_a%=0
10715ELSE:K%=0
10720ENDIF
10725UNTIL_a%=0:SYS131085,,f%
10730ENDIF
10735ENDPROC
10740DEFPROCic(f$,n$,RETURNRa%,RETURNqe%):LOCALi%,ve%,K%,_a%,Ub%,Da$,Ud%:IFf$=""AND`d%>=300THEN
10745SYS262363,,,,,-1,n$TO,Ra%,qe%
10750ELSE:IFf$=""f$=Z$
10755ve%=OPENINf$:Ra%=0:qe%=0:K%=16:REPEAT:PTR#ve%=K%:_a%=FNj(ve%):IF_a%THEN
10760PTR#ve%=K%+8:Ub%=FNj(ve%):Da$=FNM(ve%):K%+=24:IFUb%=1THEN
10765IFDa$=n$THEN
10770PTR#ve%=_a%+84:Ud%=FNj(ve%):qe%=FNma(ve%,_a%):IFUd%qe%+=FNna(ve%,Ud%,_a%)
10775Ra%=88+(Ud%*32):_a%=0
10780ENDIF
10785ENDIF
10790ENDIF
10795UNTIL_a%=0:SYS131085,,ve%
10800ENDIF
10805ENDPROC
10810DEFFNj(h%):=BGET#h%ORBGET#h%<<8ORBGET#h%<<16ORBGET#h%<<24
10815DEFFNM(h%):LOCALs$,c%:REPEAT:c%=BGET#h%:IFc%>31s$+=CHR$c%
10820UNTILc%<32:=s$
10825DEFFNma(ve%,_a%):LOCALv%:PTR#ve%=_a%+28:v%=FNj(ve%):IFv%AND1<<31THEN
10830IFv%AND1<<26THEN=FNN(ve%,_a%+56,_a%+72,_a%)
10835ELSE:IFv%AND1THEN=FNN(ve%,_a%+56,_a%+72,_a%)
10840ENDIF
10845=0
10850DEFFNna(ve%,Xc%,_a%):LOCALi%,j%:j%=0:IF0<=Xc%-1THEN
10855FORi%=0TOXc%-1:j%+=FNN(ve%,_a%+88+i%*32+16,_a%+88+i%*32+20,_a%):NEXT
10860ENDIF
10865=j%
10870DEFFNN(ve%,we%,xe%,_a%):LOCALv%,ye%,Ra%,i%:PTR#ve%=we%:v%=FNj(ve%):i%=v%AND256:ye%=(v%AND3)+(i%>>6):CASEye%OF
10875WHEN0,1,2,3,4:Ra%=0
10880WHEN5,7:PTR#ve%=xe%+4:v%=FNj(ve%):IFv%=-1THEN
10885Ra%=0
10890ELSE:PTR#ve%=_a%+v%:Ra%=LENFNM(ve%)+1
10895ENDIF
10900PTR#ve%=xe%+8:Ra%+=FNj(ve%)
10905WHEN6:PTR#ve%=xe%+8:Ra%=FNj(ve%)
10910ENDCASE
10915=Ra%
10920DEFPROCja:LOCALf%:SYS131129,,"DragASprite_Start"TOze%;f%:IFf%AND1ze%=-1
10925SYS131129,,"DragASprite_Stop"TOAe%;f%:IFf%AND1Ae%=-1
10930SYS6,161,28TO,,f%:IF(f%AND2)=0THEN
10935ze%=-1:Ae%=-1
10940ENDIF
10945B%=1163280723:C%=256:Be%=USR(P%+12):IFBe%=0ERROR253,FNmsg_1(A%!12,"FA5","SAVE")
10950ea%=0:ENDPROC
10955DEFPROCAb(Ce%,Fa$):LOCALb$:b$=STR$~Ce%:b$=RIGHT$("000"+b$,3):De%=Ce%:PROCicon_validation(zb%,0,"sfile_"+b$):PROCicon_write(zb%,1,Fa$):ENDPROC
10960DEFPROCnb(Fe%,Ge%):LOCALHe%,Ie%,Je%,Ke%,Le%,Me%,Od%,Pd%,f$,Kd%,Ld%,Md%,Nd%:!Be%=zb%:SYS262347,,Be%:He%=Be%!4-Be%!20:Ie%=Be%!16-Be%!24:PROCicon_info(zb%,0,Je%,Le%,Ke%,Me%):SYS53,-1,4TO,,Ld%:Ld%=1<<Ld%:SYS53,-1,5TO,,Nd%:Nd%=1<<Nd%
10965SYS53,-1,11TO,,Kd%:Kd%+=1:SYS53,-1,12TO,,Md%:Md%+=1:Od%=Kd%*Ld%:Pd%=Md%*Nd%:!Be%=zb%:Be%!4=5:Be%!8=He%+Je%:Be%!12=Ie%+Le%:Be%!16=He%+Ke%:Be%!20=Ie%+Me%:Be%!24=Be%!8-Fe%:Be%!28=Be%!12-Ge%:Be%!32=Od%+Be%!16-Fe%
10970Be%!36=Pd%+Be%!20-Ge%:IFNOTze%THEN
10975f$="file_"+RIGHT$("000"+STR$~De%,3):SYSze%,197,1,f$,Be%+8,Be%+24
10980ELSE:SYS262352,,Be%
10985ENDIF
10990ea%=-1:ENDPROC
10995DEFPROCra:LOCALh%,i%,Ne%,Oe%,Pe%:ea%=0:IFNOTAe%SYSAe%
11000SYS262351,,Be%:Ne%=!Be%:Oe%=Be%!4:h%=Be%!12:i%=Be%!16:IFh%=zb%ENDPROC
11005PROCjc(h%,i%,Ne%,Oe%):ENDPROC
11010DEFPROCjc(h%,i%,Ne%,Oe%):LOCALGa$:Ga$=FNoa:!Be%=48+LENGa$ANDNOT3:Be%!12=0:Be%!16=1:Be%!20=h%:Be%!24=i%:Be%!28=Ne%:Be%!32=Oe%:Be%!36=0:Be%!40=De%:$(Be%+44)=Ga$+CHR$0:SYS262375,17,Be%,h%,i%:ENDPROC
11015DEFFNoa:LOCALf$,i%:f$=FNicon_read(zb%,1):REPEAT:i%=INSTR(f$,":"):IFi%f$=MID$(f$,i%+1)
11020UNTILi%=0:REPEAT:i%=INSTR(f$,"."):IFi%f$=MID$(f$,i%+1)
11025UNTILi%=0:=f$
11030DEFPROCga:Sb%=0:Qe%=0:ENDPROC
11035DEFPROCmenu_create(RETURN_%,I$):LOCALQ$,i%,Ha$,j$,j%,x%,t%:IFSb%THEN
11040PROCkc:Sb%=0:Qe%=0
11045ENDIF
11050IFLEFT$(I$,1)="#"THEN
11055i%=1:Q$=FNO(I$,",",i%)
11060ELSE:Q$=""
11065ENDIF
11070Ha$=I$:j%=i%:REPEAT:j$=FNO(I$,",",i%):IFj$<>""Qe%+=1
11075UNTILj$="":I$=Ha$:i%=j%:B%=1431192909:C%=28+Qe%*24:Sb%=USR(P%+12):IFSb%=0ERROR253,FNmsg_1(A%!12,"FA5","MENU")
11080IFLENQ$<=12THEN
11085$Sb%=Q$
11090ELSE:B%=1431192909:C%=LENQ$+2:t%=USR(P%+12):IFt%=0ERROR253,FNmsg_1(A%!12,"FA5","MENU")
11095$t%=Q$+CHR$0:Sb%!0=t%
11100ENDIF
11105Sb%?12=7:Sb%?13=2:Sb%?14=7:Sb%?15=0:Sb%!16=196:Sb%!20=44:Sb%!24=0:x%=LENQ$-3:Sb%!16=(x%*8+6)*2:FORj%=0TOQe%-1:j$=FNO(I$,",",i%):PROCmenu_item(Sb%,j%,j$,LENQ$>12):NEXT:_%=Sb%:ENDPROC
11110DEFPROCkc:LOCALi%,p%,pc%:p%=Sb%+28:pc%=p%!0AND256:IF0<=Qe%-1THEN
11115FORi%=0TOQe%-1:IFp%!8AND256THEN
11120IF(!p%AND4)=0THEN
11125B%=1431192909:C%=p%!12:CALLP%+16
11130ENDIF
11135ENDIF
11140p%+=24:NEXT
11145ENDIF
11150IFpc%THEN
11155B%=1431192909:C%=Sb%!0:CALLP%+16
11160ENDIF
11165B%=1431192909:C%=Sb%:CALLP%+16:ENDPROC
11170DEFPROCmenu_item(RETURN_%,Re%,j$,pc%):LOCALF%,p%,i%,x%,m%:x%=(_%!16/2-6)/8:IFRIGHT$(j$,1)="#"THEN
11175j$=LEFT$(j$):F%=F%OR2
11180ENDIF
11185IFRIGHT$(j$,1)="@"THEN
11190j$=LEFT$(j$):F%=F%OR8
11195ENDIF
11200IFRe%>=Qe%THEN
11205B%=1431192909:C%=Sb%:D%=(Re%-Qe%+1)*24:m%=USR(P%+20):IFm%=0ERROR253,FNmsg_1(A%!12,"FA5","MENU")
11210Sb%=m%:p%=Sb%+28+(Qe%-1)*24:!p%=!p%ANDNOT128:Qe%=Re%+1
11215ENDIF
11220IFRe%=Qe%-1F%=F%OR128
11225IFRe%=0ANDpc%F%=F%OR256
11230p%=Sb%+28+Re%*24:p%!0=F%:p%!4=-1:p%!8=117440545:IFLEFT$(j$,1)="$"THEN
11235!p%+=4:j$=STRING$(12," ")
11240ELSE:IFLENj$<12THEN
11245$(p%+12)=j$
11250ELSE:B%=1431192909:C%=LENj$+1:i%=USR(P%+12):IFi%=0ERROR253,FNmsg_1(A%!12,"FA5","MENU")
11255$i%=j$:p%!8=p%!8OR256:p%!12=i%:p%!16=-1:p%!20=LENj$+1
11260ENDIF
11265ENDIF
11270_%=Sb%:IFLENj$>x%THEN
11275x%=LENj$:_%!16=(x%*8+6)*2
11280ENDIF
11285ENDPROC
11290DEFPROCBb(_%,Re%,K%,Se%):_%+=28+Re%*24:IFSe%THEN!_%=!_%OR1<<4
11295_%!4=K%:ENDPROC
11300DEFFNO(I$,Ia$,RETURNI%):LOCALL%:L%=I%+1:I%=INSTR(I$+Ia$,Ia$,L%):=MID$(I$,L%,I%-L%)
11305DEFPROCa(Te%,Re%,Wd%):IF((Te%!(28+8+24*Re%)AND4194304)=4194304)<>Wd%THEN
11310Te%!(28+8+24*Re%)=Te%!(28+8+24*Re%)EOR4194304
11315ENDIF
11320ENDPROC
11325DEFFNJ(Te%,Re%):=((Te%!(28+8+24*Re%)AND4194304)=4194304)
11330DEFPROCmenu_tick_match(Te%,Ja$):LOCALRe%,Ka$:Re%=Te%+28:REPEAT:IFRe%!8AND256Ka$=$Re%!12ELSEKa$=$(Re%+12)
11335IFFNla(Ka$,Ja$)=0THEN
11340!Re%=!Re%EOR1:ENDPROC
11345ENDIF
11350IF!Re%AND128ENDPROC
11355Re%+=24:UNTIL0:ENDPROC
11360DEFPROClc(Te%,Re%,Ue%):IFUe%Te%!(28+24*Re%)=Te%!(28+24*Re%)OR1ELSETe%!(28+24*Re%)=Te%!(28+24*Re%)ANDNOT1
11365ENDPROC
11370DEFPROCcb(h%):LOCALx%,y%,Kd%,Ld%,Md%,Nd%:SYS53,-1,4TO,,Ld%:Ld%=1<<Ld%:SYS53,-1,5TO,,Nd%:Nd%=1<<Nd%:SYS53,-1,11TO,,Kd%:Kd%+=1:SYS53,-1,12TO,,Md%:Md%+=1:!q%=h%:SYS262347,,q%:x%=Kd%*Ld%:y%=Md%*Nd%:x%=(x%-q%!12+q%!4)DIV2:y%=(y%+q%!16-q%!8)DIV2
11375SYS262356,,h%,x%,y%:ENDPROC
11380DEFPROCha:LOCALp%:SYS274526,-1,0TOp%:CALLZ%,p%,La$:ENDPROC
11385DEFFNf(n$):IFLa$=".":=VALn$
11390LOCALi%:i%=INSTR(n$,La$):IFi%<>0:=VAL(LEFT$(n$,i%-1)+"."+MID$(n$,i%+1))
11395=VALn$
11400DEFPROCDb(a%):LOCALi%:B%=1163547472:C%=56:Ga%=USR(P%+12):IFGa%=0ERROR253,FNmsg_1(A%!12,"FA5","PSZE")
11405IFa%THEN
11410a%=a%!36:IF0<52THEN
11415FORi%=0TO52STEP4:Ga%!i%=a%!i%:NEXT
11420ENDIF
11425ELSE:IF0<=52THEN
11430FORi%=0TO52STEP4:Ga%!i%=0:NEXT
11435ENDIF
11440ENDIF
11445PROCIb:PROCs(Cb%):PROCp(Cb%):PROCcaret_set(Cb%,5):ENDPROC
11450DEFPROCIb:LOCALh%,i%,n%:PROCcaret_info(h%,i%,n%):PROCu(Cb%,5,Ga%,4):PROCM(12,36):PROCM(13,32):PROCM(14,40):PROCM(15,44):PROCM(16,48):PROCsb:IFGa%!52=1THEN
11455PROCicon_unshade(Cb%,33)
11460ELSE:PROCicon_shade(Cb%,33)
11465ENDIF
11470ENDPROC
11475DEFPROCsb:LOCALs$:IFNOTFNicon_set(Cb%,23)ANDNOTFNicon_set(Cb%,22)THEN
11480PROCicon_select(Cb%,23)
11485ENDIF
11490IFFNicon_set(Cb%,23)THEN
11495s$=FNmsg_0(A%!12,"mm")
11500ELSE:s$=FNmsg_0(A%!12,"in")
11505ENDIF
11510PROCicon_write(Cb%,26,s$):PROCicon_write(Cb%,29,s$):PROCicon_write(Cb%,27,s$):PROCicon_write(Cb%,30,s$):PROCicon_write(Cb%,28,s$):PROCicon_write(Cb%,31,s$):PROCF(6,8):PROCF(7,12):PROCF(8,20):PROCF(9,16):PROCF(10,24):PROCF(11,28):ENDPROC
11515DEFPROCM(qb%,_a%):PROCicon_write(Cb%,qb%,STR$Ga%!_a%):ENDPROC
11520DEFPROCF(qb%,_a%):LOCALv%:v%=Ga%!_a%:CASEqb%OF
11525WHEN8:v%=Ga%!12-v%
11530WHEN11:v%=Ga%!8-v%
11535ENDCASE
11540PROCicon_write(Cb%,qb%,FNpa(v%)):ENDPROC
11545DEFFNpa(v%):LOCAL@%:IFFNicon_set(Cb%,23)THEN
11550@%="+F10"+La$+"1":=STR$(v%/c)
11555ELSE:@%="+F10"+La$+"3":=STR$(v%/d)
11560ENDIF
11565DEFPROCBa(f$,Ve%):LOCALJ%,`%,yb%,We%,t$:IFFNl(f$)THEN
11570REPEAT:J%=FNb("pn:"):IFJ%THEN
11575t$=FNqa(`%,$J%):IFt$<>""PROCmc(f$,t$)
11580`%!52=Ve%:yb%=ja%:We%=0:WHILEyb%>0:IF$`%!4=$yb%!4THEN
11585IFyb%!52=0THEN
11590`%!0=yb%!0:PROCfree_structure(yb%!4):B%=1163547472:C%=yb%:CALLP%+16:yb%=-1
11595ELSE:B%=1163547472:C%=`%:CALLP%+16:`%=0:yb%=-1
11600ENDIF
11605ELSE:IF$`%!4<$yb%!4THEN
11610`%!0=yb%:yb%=-1
11615ELSE:We%=yb%:yb%=yb%!0
11620ENDIF
11625ENDIF
11630ENDWHILE:IF`%THEN
11635IFWe%We%!0=`%ELSEja%=`%
11640ENDIF
11645ENDIF
11650UNTILJ%=0:PROCm
11655ENDIF
11660ENDPROC
11665DEFPROCmc(f$,t$):PROCS(FNmsg_2(A%!12,"OKO",f$,t$)):ENDPROC
11670DEFFNqa(RETURN`%,c$):LOCALt$:B%=1163547472:C%=56:`%=USR(P%+12):IF`%=0ERROR253,FNmsg_1(A%!12,"FA5","PSZE")
11675`%!0=0:$q%=c$:B%=q%:C%=2:`%!4=USR(P%+28):J%=FNb("pw:"):IFJ%`%!8=VAL$J%ELSE="pw:"
11680J%=FNb("ph:"):IFJ%`%!12=VAL$J%ELSE="ph:"
11685J%=FNb("pb:"):IFJ%`%!16=VAL$J%ELSE="pb:"
11690J%=FNb("pt:"):IFJ%`%!20=VAL$J%ELSE="pt:"
11695J%=FNb("pl:"):IFJ%`%!24=VAL$J%ELSE="pl:"
11700J%=FNb("pr:"):IFJ%`%!28=VAL$J%ELSE="pr:"
11705J%=FNb("tb:"):IFJ%`%!32=VAL$J%ELSE="tb:"
11710J%=FNb("tt:"):IFJ%`%!36=VAL$J%ELSE="tt:"
11715J%=FNb("tl:"):IFJ%`%!40=VAL$J%ELSE="tl:"
11720J%=FNb("tr:"):IFJ%`%!44=VAL$J%ELSE="tr:"
11725J%=FNb("th:"):IFJ%`%!48=VAL$J%ELSE="th:"
11730=""
11735DEFPROCnc(c%,K%):BPUT#c%,"pn: "+$K%!4:BPUT#c%,"pw: "+STR$K%!8:BPUT#c%,"ph: "+STR$K%!12:BPUT#c%,"pb: "+STR$K%!16:BPUT#c%,"pt: "+STR$K%!20:BPUT#c%,"pl: "+STR$K%!24:BPUT#c%,"pr: "+STR$K%!28:BPUT#c%,"tb: "+STR$K%!32:BPUT#c%,"tt: "+STR$K%!36:BPUT#c%,"tl: "+STR$K%!40:BPUT#c%,"tr: "+STR$K%!44:BPUT#c%,"th: "+STR$K%!48:ENDPROC
11740DEFPROCmb:LOCAL`%,s$,Xe%,yb%,We%,c%,z%:LOCALe,f,g,h,i,j:e=FNf(FNicon_read(Cb%,6)):f=FNf(FNicon_read(Cb%,7)):g=FNf(FNicon_read(Cb%,10)):h=FNf(FNicon_read(Cb%,11)):i=FNf(FNicon_read(Cb%,8)):j=FNf(FNicon_read(Cb%,9)):s$=FNicon_read(Cb%,5):IFs$=""ERROR254,FNmsg_0(A%!12,"OKAD")
11745IFFNf(FNicon_read(Cb%,6))=0ERROR254,FNmsg_0(A%!12,"OKAE")
11750IFFNf(FNicon_read(Cb%,7))=0ERROR254,FNmsg_0(A%!12,"OKAE")
11755IF(i+j>f)ERROR254,FNmsg_1(A%!12,"OKAY",FNmsg_0(A%!12,"OKAZ"))
11760IF(g+h>e)ERROR254,FNmsg_1(A%!12,"OKAY",FNmsg_0(A%!12,"OKBA"))
11765SYS263872:`%=ja%:WHILE`%:IF$`%!4=s$THEN
11770Xe%=`%:`%=0
11775ELSE:`%=`%!0
11780ENDIF
11785ENDWHILE:IFXe%IFXe%!52=2ERROR254,FNmsg_0(A%!12,"OKAX")
11790IFXe%=0THEN
11795B%=1163547472:C%=56:Xe%=USR(P%+12):IFXe%=0ERROR253,FNmsg_1(A%!12,"FA5","PSZE")
11800Xe%!0=0:$q%=s$:B%=q%:C%=2:Xe%!4=USR(P%+28):yb%=ja%:We%=0:WHILEyb%>0:IF$Xe%!4<$yb%!4THEN
11805Xe%!0=yb%:yb%=-1
11810ELSE:We%=yb%:yb%=yb%!0
11815ENDIF
11820ENDWHILE:IFWe%We%!0=Xe%ELSEja%=Xe%
11825ENDIF
11830PROCo(6,Xe%,8,-1,Ze%):PROCo(7,Xe%,12,-1,Ze%):PROCo(9,Xe%,16,-1,Ze%):PROCo(8,Xe%,20,-1,Ze%):PROCo(10,Xe%,24,-1,Ze%):PROCo(11,Xe%,28,-1,Ze%):PROCo(13,Xe%,32,0,Ze%):PROCo(12,Xe%,36,0,Ze%):PROCo(14,Xe%,40,0,Ze%):PROCo(15,Xe%,44,0,Ze%):PROCo(16,Xe%,48,0,Ze%):Xe%!52=1
11835PROCoc:z%=A%!48:WHILEz%:IFz%!36=Xe%THEN
11840IFz%!24AND2THEN
11845PROCselect_printer(z%,-1,0):PROCwb(z%):PROCz
11850ENDIF
11855ENDIF
11860z%=z%!0:ENDWHILE:SYS263873:ENDPROC
11865DEFPROCoc:LOCALc%,`%,_e%,s$,fb%:IFia%THEN
11870s$="<Printers$Dir>"+".Remote.ID"+h$+".PaperRW"
11875ELSE:s$="<Printers$Dir>"+".PaperRW"
11880ENDIF
11885SYS131080,17,s$TOfb%;f%:IF(f%AND1)!fb%=254:SYS43,fb%
11890IF(fb%=0)THEN
11895SYS131080,11,s$,4038,,0,0TOfb%;f%:IF(f%AND1)PROCb(FNmsg_0(A%!12,"WA14")):ENDPROC
11900ELSE:SYS131080,4,s$,,,,0TOfb%;f%:IF(f%AND1)=0SYS131080,4,s$,,,,3TOfb%;f%
11905IF(f%AND1)PROCb(FNmsg_0(A%!12,"WA14")):ENDPROC
11910ENDIF
11915SYS131085,143,s$TOc%;f%:IF(f%AND1)PROCb(FNmsg_0(A%!12,"WA14")):ENDPROC
11920IFc%THEN
11925`%=ja%:WHILE`%:IF`%!52=1THEN
11930PROCnc(c%,`%):_e%+=1
11935ENDIF
11940`%=`%!0:ENDWHILE:SYS131085,,c%:IF_e%THEN
11945SYS131080,18,s$,4038:SYS131080,4,s$,,,,19
11950ELSE:SYS131080,6,s$
11955ENDIF
11960ENDIF
11965ENDPROC
11970DEFPROCo(qb%,wd%,_a%,`e%,RETURNVe%):LOCALv,v%:v=FNf(FNicon_read(Cb%,qb%)):CASEqb%OF
11975WHEN8:v=FNf(FNicon_read(Cb%,7))-v
11980WHEN11:v=FNf(FNicon_read(Cb%,6))-v
11985ENDCASE
11990IF`e%THEN
11995IFFNicon_set(Cb%,23)v%=v*cELSEv%=v*d
12000ELSE:v%=v
12005ENDIF
12010IFwd%!_a%<>v%THEN
12015Ve%=-1:wd%!_a%=v%:IFGa%Ga%!_a%=v%
12020ENDIF
12025ENDPROC
12030DEFPROCrb:LOCALs$,`%,We%,i%,z%:SYS263872:s$=FNicon_read(Cb%,5):`%=ja%:WHILE`%>0:IF$`%!4=s$THEN
12035IF`%!52=1THEN
12040z%=A%!48:WHILEz%:IFz%!36=`%ERROR254,FNmsg_0(A%!12,"OKQa")
12045z%=z%!0:ENDWHILE:IFWe%THEN
12050We%!0=`%!0
12055ELSE:ja%=`%!0
12060ENDIF
12065PROCfree_structure(`%!4):B%=1163547472:C%=`%:CALLP%+16:PROCoc
12070ELSE:ERROR254,FNmsg_0(A%!12,"OKR")
12075ENDIF
12080FORi%=0TO52STEP4:Ga%!i%=0:NEXT:PROCIb:`%=-1
12085ELSE:We%=`%:`%=`%!0
12090ENDIF
12095ENDWHILE:IF`%=0ERROR254,FNmsg_0(A%!12,"OKQ")
12100SYS263873:ENDPROC
12105DEFPROCtb:PROCs(A%!40):!q%=A%!40:SYS262348,,q%OR1:q%!48=q%!56-(A%!44*pa%*2)-(A%!32*pa%):SYS262359,A%!40,q%+44:q%!28=-1:SYS262341,,q%:ENDPROC
12110DEFPROCkb(z%):IFNOTFNi(Fb%)ENDPROC
12115!V%=Fb%:V%!4=z%!28:SYS262350,,V%:SYS262353,Fb%,V%!8,V%!12,V%!16,V%!20:ENDPROC
12120DEFPROCf(y%,z%,M%):LOCALMb%:IFNOTFNi(A%!40)ENDPROC
12125IFy%=-1THEN
12130B%=z%:C%=M%:y%=USR(P%+48)
12135ENDIF
12140!V%=A%!40:SYS262347,,V%:V%!12=V%!12-V%!4:V%!4=0:V%!8=y%-pa%:V%!16=y%:SYS262353,!V%,V%!4,V%!8,V%!12,V%!16:ENDPROC
12145DEFPROCpc(y%,z%,af%,bf%):LOCAL_e%:IFNOTFNi(A%!40)ENDPROC
12150IFy%=-1THEN
12155B%=z%:C%=M%:y%=USR(P%+48)
12160ENDIF
12165!V%=A%!40:SYS262347,,V%:V%!12=V%!12-V%!4:V%!4=0:_e%=2:WHILEaf%<>bf%:_e%+=1:af%=af%!0:ENDWHILE:V%!8=y%-pa%*_e%:V%!16=y%:SYS262353,!V%,V%!4,V%!8,V%!12,V%!16:ENDPROC
12170DEFPROCgb(cf%,O$,Ma$,B$,z%,Ub%):B%=cf%:C%=q%:$C%=O$:D%=O%:$D%=Ma$:E%=O%+256:$E%=B$:F%=z%:G%=Ub%:CALLP%+24:ENDPROC
12175DEFPROCn(z%,M%,uc%):LOCALyb%,p%,N%:IFza%=z%ANDAa%=M%Aa%=0:SYS262356,-1
12180p%=M%!44:IFp%THEN
12185IFp%!40THEN
12190z%!24=z%!24ANDNOT36:IFz%!48THEN
12195!q%=z%!48:PROCe
12200ENDIF
12205ENDIF
12210ENDIF
12215IFz%!32=M%THEN
12220z%!32=M%!0:yb%=0
12225ELSE:yb%=z%!32:WHILEyb%!0<>M%:yb%=yb%!0:ENDWHILE:yb%!0=M%!0
12230ENDIF
12235IFM%!12THEN
12240SYS131085,,M%!12:M%!12=0:z%!24=z%!24ANDNOT8:PROCi(z%):IFNOTz%!28THEN
12245O%!0=Fb%:O%!4=z%!28:O%!8=0:O%!12=1<<22:SYS262349,,O%
12250ENDIF
12255ENDIF
12260p%=0:REPEAT:SYS524624,p%TOp%:IFp%IFp%=M%!40ORp%=M%!72SYS524617,p%
12265UNTILp%=0:IFM%!40THEN
12270N%=z%!12:IFN%!0=1ORN%!0=2SYS6,21,FNo(N%!0)
12275SYS131085,0,M%!40:M%!40=0:PROCqc(N%!0):!q%=M%:PROCc(z%!4,z%,-7,q%)
12280ENDIF
12285IFM%!72THEN
12290SYS131085,,M%!72:M%!72=0
12295ENDIF
12300SYS131080,6,$M%!68:PROCfree_structure(M%!68):IFM%?11AND2SYS131080,6,$M%!20
12305PROCfree_structure(M%!16):PROCfree_structure(M%!20):PROCfree_structure(M%!24):p%=M%!44:IFp%THEN
12310PROCfree_structure(p%!104):PROCfree_structure(p%!108):PROCfree_structure(p%!112):PROCfree_structure(p%!120):B%=1112887380:C%=p%:CALLP%+16
12315ENDIF
12320IFM%!52THEN
12325B%=1179009620:C%=M%!52:CALLP%+16
12330ENDIF
12335B%=1430607185:C%=M%:CALLP%+16:A%!32-=1:IFA%!32<=0A%!20=A%!20OR1
12340IFuc%THEN
12345!q%=A%!40:SYS262348,,q%OR1:IFq%!32AND1<<16THEN
12350q%!48=q%!56-A%!44*pa%*2-A%!32*pa%:SYS262359,A%!40,q%+44:SYS262341,,q%:B%=z%:C%=yb%:CALLP%+32
12355ENDIF
12360ENDIF
12365ENDPROC
12370DEFPROCA(z%):LOCALM%,df%:SYS263872:REPEAT:M%=z%!32:IFM%PROCn(z%,M%,0)
12375UNTILM%=0:!q%=A%!40:SYS262348,,q%OR1:IFq%!32AND1<<16THEN
12380q%!48=q%!56-A%!44*pa%*2-A%!32*pa%:SYS262359,A%!40,q%+44:SYS262341,,q%:B%=z%:C%=0:CALLP%+32
12385ENDIF
12390SYS263873:ENDPROC
12395DEFPROCI:LOCALz%:z%=A%!48:WHILEz%:PROCA(z%):z%=z%!0:ENDWHILE:A%!32=0:ENDPROC
12400DEFPROCna:LOCALef%,j%,z%,M%:REPEAT:IFA%!24A%!24=!(A%!24+0)
12405IFA%!24=0A%!24=A%!48
12410UNTILA%!24:z%=A%!24:IF(z%!24AND4)=0THEN
12415A%!28=z%!32:ef%=0:WHILEA%!28:IF?(A%!28+11)AND1THEN
12420A%!28=0
12425ELSE:IF?(A%!28+11)AND4THEN
12430ef%=A%!28:A%!28=!(A%!28+0)
12435ELSE:IF!(A%!28+12)THEN
12440PROCrc(z%,A%!28)
12445ELSE:IF(z%!24AND32)=0THEN
12450IFA%!28<>z%!32THEN
12455IFef%ef%!0=!(A%!28+0)
12460!(A%!28+0)=z%!32:z%!32=A%!28:PROCpc(-1,z%,A%!28,ef%)
12465ENDIF
12470IFBa%=z%THEN
12475!q%=Q%:PROCe
12480ENDIF
12485j%=z%!4:j%=j%!20:WHILEj%:IF$(j%+16)="configure"THEN
12490IFj%!12=z%THEN
12495!q%=j%!4:PROCe
12500ENDIF
12505ENDIF
12510j%=j%!0:ENDWHILE:PROCrc(z%,A%!28)
12515ENDIF
12520ENDIF
12525A%!28=0
12530ENDIF
12535ENDIF
12540ENDWHILE
12545ENDIF
12550A%!32=0:z%=A%!48:WHILEz%:M%=z%!32:WHILEM%:A%!32+=1:M%=M%!0:ENDWHILE:z%=z%!0:ENDWHILE:IFA%!32=0A%!20=A%!20OR1
12555ENDPROC
12560DEFFNra(M%,ff%,RETURN_$):LOCALy$,i%,c$,H%:_$="":y$=RIGHT$("00"+STR$~M%!36,3):SYS131107,"Alias$@PrintType_"+y$,,-1TO,,i%:IFi%<0_$="@PrintType_"+y$:=-1
12565CASEM%!36OF
12570WHEN-1:c$=FNmsg_0(A%!12,"UNT")
12575WHEN8192:PROCj(FNmsg_0(A%!12,"OKT"),1):=0
12580WHEN4096:PROCj(FNmsg_0(A%!12,"OKS"),1):=0
12585WHEN4095,2808:M%!36=4095:=-1
12590WHEN4054,4055,4074,4075,4094:M%!36=4094:=-1
12595WHENff%:M%!36=ff%:=-1
12600OTHERWISE:c$=FNtask_read_env("File$Type_"+y$,q%):IFc$=""c$=FNmsg_1(A%!12,"TYP",y$)
12605ENDCASE
12610CASEFNsa(c$,M%)OF
12615WHEN4:M%!36=4094:=-1
12620WHEN2:M%!36=4095:=-1
12625ENDCASE
12630=0
12635DEFFNsa(c$,M%):LOCALx%,y%,w%,h%:PROCicon_write(Bb%,0,FNmsg_2(A%!12,"WA5",c$,$M%!24)):SYS262351,,q%:x%=!q%:y%=q%!4:!q%=Bb%:SYS262347,,q%:w%=q%!12-q%!4:h%=q%!16-q%!8:q%!4=x%-340:q%!8=y%-120:q%!12=q%!4+w%:q%!16=q%!8+h%:q%!28=-1
12640SYS262341,,q%:PROCcc(Bb%):sa%=0:REPEAT:PROCv(ma%):UNTILsa%:!q%=Bb%:PROCe:PROCdc:=sa%
12645DEFPROCsc(gf%,hf%,if%,Na$):IFgf%SYS131085,0,gf%
12650IFhf%EXT#hf%=if%
12655IFhf%SYS131085,0,hf%
12660SYS131080,6,Na$:ENDPROC
12665DEFPROChb(Oa$,Na$):LOCALjf%,kf%,lf%,if%,i%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCsc(jf%,kf%,if%,Na$):PROCj(REPORT$,1):ENDPROC
12670jf%=OPENINNa$:lf%=EXT#jf%:IFlf%THEN
12675SYS263872:kf%=OPENUPOa$:if%=EXT#kf%:PTR#kf%=if%:FORi%=1TOlf%DIV512:SYS12,4,jf%,O%,512:SYS12,2,kf%,O%,512:NEXT:IFlf%MOD512SYS12,4,jf%,O%,lf%MOD512:SYS12,2,kf%,O%,lf%MOD512
12680CLOSE#kf%:SYS263873
12685ENDIF
12690CLOSE#jf%:SYS8,6,Na$:ENDPROC
12695DEFPROCrc(z%,M%):LOCALH%,N%,mf%,b%,t%,P$,t$,_$,Qa%,Ra%,nf%,s%,Vb%,z$,of%,G$:LOCALA$,B$,Xb%,l%,f%:H%=z%!4:N%=z%!12:mf%=H%!28:IFM%!12=0THEN
12700PROCselect_printer(z%,0,0):IF(z%!24AND4)<>0ENDPROC
12705P$=$M%!20:L$=$M%!16:M$=$M%!24:IFN%!0=5THEN
12710Vb%=(N%?6AND2)<>0
12715ELSE:Vb%=(N%?6AND1)<>0
12720ENDIF
12725IFVb%THEN
12730g$=FNm(0):IFg$=""THEN
12735z%!24=z%!24OR4:PROCi(z%):PROCf(-1,z%,0):ENDPROC
12740ENDIF
12745IFN%!0=5THEN
12750SYS36,"PrinterType$5",g$,LENg$:PROCJ(5)
12755ELSE:SYS36,"PrinterType$10",g$,LENg$:PROCJ(10)
12760ENDIF
12765G$=g$
12770ENDIF
12775z$=FNm(0):IFz$=""THEN
12780z%!24=z%!24OR4:PROCi(z%):PROCf(-1,z%,0):ENDPROC
12785ENDIF
12790SYS36,"Printer$Temp",z$,LENz$:q%!0=48+LENP$ANDNOT3:q%!12=0:q%!16=524613:q%!40=M%!36:$(q%+44)=P$+CHR$0:SYS262375,18,q%:ta%=0:REPEAT:PROCv(la%):UNTILta%:b%=-1:IFta%<>2THEN
12795b%=FNra(M%,mf%,_$):IFb%THEN
12800IF_$<>""THEN
12805SYS262366,_$+" "+P$
12810ENDIF
12815ENDIF
12820ENDIF
12825IFNOTb%THEN
12830PROCn(z%,M%,-1):ENDPROC
12835ENDIF
12840IFVb%THEN
12845s$=FNn(z%,-1):IFs$<>""THEN
12850PROCb(s$):IFz%!32THEN
12855z%!24=z%!24OR4:PROCi(z%):PROCf(-1,z%,0)
12860ENDIF
12865ENDIF
12870ENDIF
12875IFNOT(M%!36=4095ORM%!36=4094ORM%!36=mf%)THEN
12880SYS8,17,z$TOt%,,Qa%,,Ra%:IFt%THEN
12885IFM%?11AND2THEN
12890IFK$<>""SYS131080,6,K$
12895K$=$M%!20
12900ENDIF
12905PROCfree_structure(M%!20):$q%=z$:B%=q%:C%=2:M%!20=USR(P%+28):M%!28=Ra%:M%!36=(Qa%AND1048320)>>8:M%?11=M%?11OR2
12910ELSE:IFVb%THEN
12915IFN%!0=5THEN
12920PROChb($N%!16,G$):PROCn(z%,M%,-1)
12925ELSE:SYS8,17,G$TOb%,,,,Ra%:IFb%=0ORRa%=0THEN
12930SYS131080,6,G$:PROCn(z%,M%,-1)
12935ELSE:IF(M%?11AND2)SYS131080,6,$M%!20
12940PROCfree_structure(M%!20):$q%=G$:B%=q%:C%=2:M%!20=USR(P%+28):M%!28=Ra%:M%!36=mf%:M%?11=M%?11OR2
12945ENDIF
12950ENDIF
12955ELSE:A$=$M%!16:B$=$M%!24:PROCn(z%,M%,-1):IFN%!0=9ANDq$<>""THEN
12960c$=$(z%!40):K%=INSTR(c$," "):WHILEK%:MID$(c$,K%,1)=CHR$160:K%=INSTR(c$," ",K%+1):ENDWHILE:w$=q$+"RemSpool."+h$+"."+c$:C$=q$+"RemQueue."+h$+"."+STR$(Na%):SYS131080,17,w$TOt%,,,,l%;f%:IF(l%>0)AND((f%AND1)=0)AND(t%=1)THEN
12965IFFNB (z%,A$,B$)THEN
12970Xb%=W%!4:SYS131113,25,w$,C$
12975ELSE:SYS131080,6,w$
12980ENDIF
12985L$="":M$="":s$=FNn(z%,-1):IFs$<>""THEN
12990PROCb(s$)
12995ENDIF
13000ENDIF
13005ENDIF
13010PROCselect_printer(0,-1,-1)
13015ENDIF
13020ENDIF
13025ELSE:CASEN%!0OF
13030WHEN1:IFz%!24AND128THEN
13035g$="devices#buffer"+STR$FNP(1)+":$."+FNU
13040ELSE:g$="devices#buffer"+STR$FNP(1)+":$.Parallel"
13045ENDIF
13050SYS36,"PrinterType$1",g$,LENg$
13055WHEN2:g$="devices#buffer"+STR$FNP(2)+":$.Serial":SYS36,"PrinterType$2",g$,LENg$
13060ENDCASE
13065SYS263872:IFN%!0=5AND(N%?6AND2)<>0THEN
13070SYS131085,207,g$TOb%;t%:IF(t%AND1)=0PTR#b%=EXT#b%
13075ELSE:SYS131085,143,g$TOb%;t%
13080ENDIF
13085IFt%AND1i%=b%+4:CALLZ%,i%,t$
13090SYS263873:PROCselect_printer(0,-1,-1):IFt%AND1THEN
13095PROCfc(z%):PROCqc(N%!0):ERROR254,FNmsg_1(A%!12,"OKP",t$)
13100ENDIF
13105M%!40=b%:SYS131085,64,$M%!20TOM%!12;t%:IF(t%AND1)M%!12=0
13110IFM%!12=0THEN
13115PROCn(z%,M%,-1):ERROR254,FNmsg_1(A%!12,"OKAF",$M%!20)
13120ENDIF
13125t$=FNm(0):IFt$=""THEN
13130z%!24=z%!24OR4:PROCi(z%):PROCf(-1,z%,0):ENDPROC
13135ENDIF
13140SYS131080,11,t$,4093TOb%;t%:IF(t%AND1)=0SYS131085,207,t$TOb%;t%
13145IFt%AND1THEN
13150PROCfc(z%):b%+=4:CALLZ%,b%,s$:ERROR254,FNmsg_1(A%!12,"OKP",s$)
13155ENDIF
13160M%!72=b%:$q%=t$:B%=q%:C%=2:M%!68=USR(P%+28):B%=1179009620:C%=1024:s%=USR(P%+12):IFs%=0ERROR253,FNmsg_1(A%!12,"FA5","TBFF")
13165M%!52=s%:z%!24=z%!24OR8:PROCi(z%):PROCf(-1,z%,0):IFM%!36<>mf%THEN
13170IFz%!24AND64THEN
13175PROCn(z%,M%,-1):IFz%!40=0s$=$z%!8ELSEs$=$z%!40
13180ERROR254,FNmsg_1(A%!12,"OKAC",s$)
13185ENDIF
13190PROCtc(M%,mf%)
13195ENDIF
13200ENDIF
13205ELSE:IFEOF#M%!12ANDM%!56=0THEN
13210t%=EXT#M%!72-PTR#M%!72:IFt%THEN
13215IFN%!0=1ORN%!0=2THEN
13220SYS6,128,NOTFNo(N%!0)TO,Ra%,Qa%:Ra%=Ra%ORQa%<<8:IFRa%>1024Ra%=1024
13225ELSE:Ra%=1024/2
13230ENDIF
13235PROCuc(M%,t%,Ra%):ENDPROC
13240ENDIF
13245nf%=-1:IFN%!0=1ORN%!0=2THEN
13250SYS6,152,FNo(N%!0)TO;b%:IF(b%AND2)=0nf%=0
13255ENDIF
13260IFnf%THEN
13265PROCi(z%):A$=$M%!16:B$=$M%!24:PROCn(z%,M%,-1):IFN%!0=9ANDq$<>""THEN
13270c$=$(z%!40):K%=INSTR(c$," "):WHILEK%:MID$(c$,K%,1)=CHR$160:K%=INSTR(c$," ",K%+1):ENDWHILE:w$=q$+"RemSpool."+h$+"."+c$:C$=q$+"RemQueue."+h$+"."+STR$(Na%):IFFNB (z%,A$,B$)THEN
13275Xb%=W%!4:SYS131113,25,w$,C$
13280ELSE:SYS131080,6,w$
13285ENDIF
13290s$=FNn(z%,-1):IFs$<>""THEN
13295PROCb(s$)
13300ENDIF
13305ENDIF
13310ENDIF
13315ELSE:PROCvc(z%,M%,mf%)
13320ENDIF
13325ENDIF
13330ENDPROC
13335DEFPROCtc(M%,ff%):LOCALi%,p%,c$:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCwc(A%!24,A%!28)
13340B%=1112887380:C%=124:p%=USR(P%+12):IFp%=0ERROR253,FNmsg_1(A%!12,"FA5","TPUB")
13345M%!44=p%:IF0<=124-4
13350FORi%=0TO124-4STEP4:p%!i%=0:NEXT
13355ENDIF
13360?O%=3:SYS7,14,O%:SYS192,O%,O%+5,250:B%=O%+5:C%=2:p%!120=USR(P%+28):IFM%?11AND2THEN
13365c$=$M%!16+" - "+$M%!24
13370ELSE:c$=$M%!20:IFLENc$>40THEN
13375c$=RIGHT$(c$,40):c$=MID$(c$,1+INSTR(c$,"."))
13380ENDIF
13385ENDIF
13390$q%=c$:B%=q%:C%=2:p%!112=USR(P%+28):p%!16=1:$q%=STRING$(32," "):B%=q%:C%=5:D%=32:p%!104=USR(P%+28):p%!96=128:PROCG(A%!24,A%!28,-1):ENDPROC
13395DEFPROCwc(z%,M%):PROCn(z%,M%,-1):IFz%!32<>0THEN
13400z%!24=z%!24OR32:PROCi(z%)
13405ENDIF
13410ERROR254,FNmsg_1(A%!12,"OKPa",REPORT$):ENDPROC
13415DEFPROCvc(z%,M%,ff%):LOCALl%,t%,pf%,Wc%,b$,p%,ac%,N%,qf%,H%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCwc(z%,M%)
13420N%=z%!12:H%=z%!4:ac%=M%!44:IFN%!0=1ORN%!0=2THEN
13425SYS6,128,NOTFNo(N%!0)TO,Wc%,l%:Wc%=Wc%ORl%<<8:IFWc%>1024Wc%=1024
13430ELSE:Wc%=1024/2
13435ENDIF
13440l%=EXT#M%!72-PTR#M%!72:IFM%!56l%=0
13445IFl%PROCuc(M%,l%,Wc%):ENDPROC
13450SYS263872:l%=M%!28-PTR#M%!12:IFM%!36=ff%THEN
13455IFPTR#(M%!12)=0THEN
13460q%!8=M%!40:q%!12=M%!12:PROCG(z%,M%,-20)
13465ENDIF
13470IFl%>Wc%l%=Wc%
13475SYS12,4,M%!12,q%,l%:SYS12,2,M%!40,q%,l%
13480ELSE:IFM%!36=4095OR(H%!32AND1)<>0THEN
13485CASEac%!92OF
13490WHEN0:q%!8=M%!72:PROCG(z%,M%,-2):M%!32=-1:ac%!92=1
13495WHEN1:q%!8=M%!72:PROCG(z%,M%,-3):M%!32=0:ac%!92=2
13500WHEN2:IFH%!32AND2THEN
13505IFM%!56=0THEN
13510PROCxc(0):q%!8=M%!56:PROCyc(M%,FNta(z%,M%,-4)):PROCzc(z%,M%,Wc%):IFac%!92=3THEN
13515q%!8=M%!72:PROCG(z%,M%,-14):ac%!92=1
13520ENDIF
13525ELSE:PROCzc(z%,M%,Wc%)
13530ENDIF
13535ELSE:IFM%!56=0THEN
13540t%=1024/4:IFt%>Wc%t%=Wc%
13545M%!60=0:PROCxc(t%):IFac%!40THEN
13550PROCfc(z%):PROC_a(z%):p%=ac%!40
13555ENDIF
13560ENDIF
13565IFWc%>M%!56Wc%=M%!56
13570IFac%!40<>0ANDWc%>p%Wc%=p%
13575IFWc%SYS12,2,M%!40,M%!52+M%!60,Wc%
13580M%!56-=Wc%:M%!60+=Wc%
13585ENDIF
13590ENDCASE
13595ELSE:t%=LENFNprinter_read_string(ac%!108):WHILEl%ANDWc%>t%:b$=FNua(BGET#M%!12,ac%):l%-=1:IFb$<>""BPUT#M%!40,b$;
13600Wc%-=LENb$:ENDWHILE
13605ENDIF
13610ENDIF
13615IFEOF#M%!12ANDM%!56=0THEN
13620q%!8=M%!72:PROCG(A%!24,A%!28,-15)
13625ENDIF
13630IFM%!28=0pf%=0ELSEpf%=PTR#M%!12*100/M%!28
13635IFpf%<>M%!32THEN
13640M%!32=pf%:PROCf(-1,z%,M%)
13645ENDIF
13650PTR#M%!72=0:SYS263873:ENDPROC
13655DEFPROCuc(M%,rf%,Wc%):IFrf%>Wc%rf%=Wc%
13660SYS12,4,M%!72,q%,rf%:SYS12,2,M%!40,q%,rf%:IFEXT#M%!72-PTR#M%!72=0THEN
13665PTR#M%!72=0:EXT#M%!72=0
13670ENDIF
13675ENDPROC
13680DEFFNua(C%,ac%):LOCALr$:IFC%=10ORC%=13THEN
13685IFac%!16=1ORac%!16=C%r$=FNprinter_read_string(ac%!108)
13690ac%!16=C%
13695ELSE:IFac%!16r$=FNprinter_read_string(ac%!108)
13700r$+=CHR$C%:ac%!16=0
13705ENDIF
13710=r$
13715DEFPROCyc(M%,s$):LOCALsf%,tf%:tf%=M%!52:sf%=M%!56:IFs$<>""THEN
13720$(tf%+sf%)=s$:M%!56+=LENs$
13725ENDIF
13730ENDPROC
13735DEFPROCzc(z%,M%,Wc%):LOCALsf%,tf%:tf%=M%!52:sf%=M%!56:IFsf%THEN
13740IFN%!0=1ORN%!0=2THEN
13745IFsf%>=Wc%ENDPROC
13750ENDIF
13755tf%?sf%=10:sf%+=1:tf%?sf%=13:SYS12,2,M%!40,tf%,sf%:M%!56=0
13760ENDIF
13765ENDPROC
13770DEFPROCG(z%,M%,uf%):q%!0=uf%:q%!4=M%:PROCc(z%!4,z%,-8,q%):ENDPROC
13775DEFFNta(z%,M%,uf%):LOCALs$,i%:q%!0=uf%:q%!4=M%:PROCc(z%!4,z%,-8,q%):i%=q%+8:CALLY%,i%,s$:=s$
13780DEFPROCxc(F%):LOCALH%:H%=z%!4:B%=H%:C%=M%:D%=ac%:E%=O%+128:E%!0=H%:E%!4=z%:E%!8=M%:E%!12=ac%:E%!16=q%:E%!20=O%+356:$(O%+356)=CHR$164+$H%!4+"_support("+STR$O%+")":O%!0=-8:O%!4=H%:O%!8=z%:O%!12=q%:O%!16=ja%:O%!20=P%:O%!24=F%:IFF%=0CALLP%+4ELSECALLP%+0
13785ENDPROC
13790DEFFNP(t%):CASEt%OF
13795WHEN1:IFA%!80=0THEN
13800IFA%!76<>3THEN
13805A%!80=3
13810ELSE:A%!80=10
13815ENDIF
13820ENDIF
13825=A%!80
13830WHEN2:IFA%!76=0THEN
13835IFA%!80<>3THEN
13840A%!76=3
13845ELSE:A%!76=2
13850ENDIF
13855ENDIF
13860=A%!76
13865ENDCASE
13870=0
13875DEFPROCqc(t%):CASEt%OF
13880WHEN1:A%!80=0
13885WHEN2:A%!76=0
13890ENDCASE
13895ENDPROC
13900DEFFNo(t%):CASEt%OF
13905WHEN1:=A%!80
13910WHEN2:=A%!76
13915ENDCASE
13920=0
13925DEFFNR:LOCALfb%,vf%:SYS88,3TOfb%,vf%:IF(fb%AND61440)=4096AND(vf%AND61440)=4096:=-1
13930=0
13935DEFFNU:LOCALfb%:SYS8,5,"Devices:FastParallel"TOfb%:IFfb%<>0THEN
13940:="FastParallel"
13945ELSE::="Parallel"
13950ENDIF
13955DEFFNrmload_latest_module(c$,k$):LOCALwf%,xf%,yf%:LOCALK%,f%,vf%,zf%,Af%,s$,Bf%:wf%=-1:SYS131102,18,c$TO,,,K%;f%:IF(f%AND1)=0ANDK%!20<>0THEN
13960K%+=(K%!20):WHILE?K%<>9AND?K%<>0:K%+=1:ENDWHILE:IF?K%<>0THEN
13965wf%=0:K%+=1:WHILE?K%<>32:IF?K%>=ASC"0"AND?K%<=ASC"9"THEN
13970wf%=wf%*10+?K%-ASC"0"
13975ENDIF
13980K%+=1:ENDWHILE
13985ENDIF
13990ENDIF
13995xf%=-1:vf%=0:zf%=-1:REPEAT:SYS131102,20,vf%,zf%TO,vf%,zf%,K%,Bf%,,Af%;f%:IF(f%AND1)=0THEN
14000CALLZ%,K%,s$:IFs$=c$xf%=VAL(STR$~(Af%))/100
14005ENDIF
14010UNTIL(xf%<>-1)OR(f%AND1)<>0:yf%=-1:SYS131085,67,k$TOf%;K%:IF(K%AND1)f%=0
14015IFf%<>0THEN
14020PTR#f%=20:K%=BGET#f%+((BGET#f%)<<8)+((BGET#f%)<<16)+((BGET#f%)<<24):IFK%<>0THEN
14025PTR#f%=K%:REPEAT:vf%=BGET#f%:UNTILvf%=0ORvf%=9:IFvf%<>0THEN
14030yf%=0:REPEAT:vf%=BGET#f%:IFvf%>=ASC"0"ANDvf%<=ASC"9"THEN
14035yf%=yf%*10+vf%-ASC"0"
14040ENDIF
14045UNTILvf%=32
14050ENDIF
14055ENDIF
14060CLOSE#f%
14065ENDIF
14070IFwf%>xf%vf%=wf%ELSEvf%=xf%
14075IFvf%>yf%f%=vf%ELSEf%=yf%
14080vf%=0:IFxf%=f%THEN
14085IFBf%<1THEN
14090SYS131102,4,c$:SYS131102,3,c$TOK%;vf%
14095ENDIF
14100ENDIF
14105IFyf%=f%ANDyf%>xf%ANDyf%>wf%THEN
14110SYS131102,1,k$TOK%;vf%
14115ENDIF
14120IF(vf%AND1)=0SYS131102,18,c$TOK%;vf%
14125IF(vf%AND1)!K%=253:SYS43,K%
14130=f%
14135DEFPROC` (Cf%):LOCALf%,g%,Df%,Ff%,s$:ia%=0:IFFNrmload_latest_module("PDriver","Printers:Modules.PDriver")
14140IFFNrmload_latest_module("RemotePrinterSupport","Printers:Modules.RemPrnSpt")
14145Df%=0:SYS131102,18,"Freeway"TO;f%:IF(f%AND1)=0THEN
14150SYS131129,,"Freeway_Status"TO;g%:IF(g%AND1)=0THENSYS424580,0TO,Df%ELSEDf%=1
14155ENDIF
14160SYS131102,18,"RemotePrinterSupport"TO;Ff%:SYS131102,18,"ShareFS"TO;g%:IF(f%AND1)OR(Df%=0)OR(g%AND1)OR(Ff%AND1)THEN
14165Ja%=0
14170ELSE:SYS131077,"RMEnsure ShareFS 2.00 ERROR Foo"TO;f%:IF(f%AND1)THEN
14175Ja%=0
14180ELSE:h$=FNtask_read_env("Inet$LocalAddr",q%):Ja%=-1:PROCAc:PROCBc:SYS424323,2:Pa$="<Wimp$ScrapDir>.Printers":s$=FNtask_read_env ("Printers$Dir",q%):IFINSTR(s$,"Share:")THEN
14185ia%=-1
14190ELSE:ia%=0
14195ENDIF
14200ENDIF
14205ENDIF
14210IF(Ff%AND1)=0THEN
14215SYS424320TOLa%
14220ENDIF
14225IFia%THEN
14230SYS131080,8,"<Printers$Path>Remote"TO;f%:s$="<Printers$Path>Remote.ID"+h$:SYS131080,8,s$TO;f%
14235ENDIF
14240ENDPROC
14245DEFPROCAc:SYS293504,0,2:ENDPROC
14250DEFFNk(Gf%):LOCALW$:CALLZ%,Gf%,W$:=W$
14255DEFPROCla:ENDPROC
14260DEFPROCBc:LOCALHf%,If%,Jf%,Kf%,jc%,Zb%,c$,kb%:LOCALLf%,Mf%,c$,Qa$,S%,Gd%:If%=0:Jf%=0:Ma%=0:REPEAT:If%=Jf%:SYS293507,0,2,0,0,0,0,0,If%TO,,Kf%,,jc%,,,Jf%:IF(Jf%>0)THEN
14265Lf%=FNg (1196577875,Kf%):Mf%=FNg (1196577875,jc%+1):Nf%=FNg (810701907,Kf%):Of%=FNg (810701907,jc%+1):SYS293507,0,2,Kf%,Nf%,jc%+1,Of%,0,If%TO,,,,,,Zb%:Of%?jc%=0:$Lf%=FNk (Nf%):$Mf%=FNk (Of%):PROCd (810701907,Nf%):PROCd (810701907,Of%)
14270S%=FNF (Lf%,Mf%,Zb%):PROCL (Ka%,S%):c$=$Lf%:IFFNva (c$)THEN
14275Bd%=FNy (S%,0,0,-1,kb%):IFNOTkb%THEN
14280PROC_b (c$):PROCN (c$):IFW%=0THEN
14285IFA%!44THEN
14290Gd%=A%!48:WHILEGd%:IFNOTGd%!20THEN
14295PROCselect_printer(Gd%,-1,0):Gd%=0
14300ELSE:Gd%=Gd%!0
14305ENDIF
14310ENDWHILE
14315ENDIF
14320ENDIF
14325ENDIF
14330ENDIF
14335Ma%+=1
14340ENDIF
14345UNTIL(Jf%<0):ENDPROC
14350DEFPROCac (c$):LOCALLf%,Mf%,jc%,Zb%,Qa$,ab%,S%,Ra$,Gd%,kb%,mb%:SYS424578,0,2,c$,0,0TO,,,jc%,,Zb%;ab%:IF(ab%AND1)THEN
14355ENDPROC
14360ENDIF
14365mb%=0:S%=Ka%:WHILES%:IF($S%!4=c$)AND((S%!20)<=0)THEN
14370ENDPROC
14375ENDIF
14380S%=S%!0:ENDWHILE:Lf%=FNg (1196577875,LENc$+1):Mf%=FNg (1196577875,jc%+1):Of%=FNg (810701907,jc%+1):$Lf%=c$:SYS424578,0,2,c$,jc%+1,Of%TO;ab%:IF(ab%AND1)THEN
14385ENDPROC
14390ENDIF
14395Of%?jc%=0:$Mf%=FNk (Of%):PROCd (810701907,Of%):S%=FNF (Lf%,Mf%,Zb%):PROCL (Ka%,S%):Ma%+=1:IFFNva (c$)THEN
14400Bd%=FNy (S%,0,0,-1,kb%):IFNOTkb%THEN
14405PROC_b (c$):PROCN (c$):IFW%=0THEN
14410IFA%!44THEN
14415Gd%=A%!48:WHILEGd%:IFNOTGd%!20THEN
14420PROCCc(Gd%,-1,0,-1,kb%):Gd%=0
14425ELSE:Gd%=Gd%!0
14430ENDIF
14435ENDWHILE
14440ENDIF
14445ENDIF
14450ENDIF
14455ENDIF
14460PROCk:ENDPROC
14465DEFPROC_b (c$):LOCALWe%,Hf%,mb%,Pf%:Hf%=Ka%:We%=0:mb%=0:IFHf%THEN
14470REPEAT:IF($Hf%!4)=c$ANDHf%!20>0THEN
14475mb%=-1
14480ELSE:We%=Hf%:Hf%=Hf%!0
14485ENDIF
14490UNTILmb%OR(Hf%=0):IF(We%=0)AND(Hf%<>0)THEN
14495Ka%=Hf%!0:PROCD (-2,Hf%!20):PROCd (1196577875,Hf%!4):PROCd (1196577875,Hf%!8):PROCd (1380799568,Hf%)
14500ELSE:IFHf%THEN
14505We%!0=Hf%!0:PROCD (-2,Hf%!20):PROCd (1196577875,Hf%!4):PROCd (1196577875,Hf%!8):PROCd (1380799568,Hf%)
14510ENDIF
14515ENDIF
14520ENDIF
14525ENDPROC
14530DEFFNva (c$):LOCALHf%,Qf%:Hf%=Ka%:Qf%=0:WHILEHf%ANDNOTQf%:IF$Hf%!4=c$ANDHf%!20>0THEN
14535Qf%=-1
14540ELSE:Hf%=Hf%!0
14545ENDIF
14550ENDWHILE:=Qf%
14555DEFPROCN (c$):LOCALz%,Id%,K%,N%,Gd%,y$,H%,`$:IFFNwa (Ka%,c$)THEN
14560PROCWa (Ka%,c$)
14565ELSE:Id%=0:z%=A%!48:K%=z%:N%=z%!12:WHILEK%:IF$K%!40=c$ANDN%!0=9THEN
14570K%=0
14575ELSE:Id%=z%:z%=z%!0:K%=z%:N%=z%!12
14580ENDIF
14585ENDWHILE:IFz%THEN
14590H%=z%!4:`$=$H%!4:y$=$z%!8:PROCUa (c$,`$,y$):PROCbc (z%,Id%):PROCNb (y$)
14595ENDIF
14600ENDIF
14605IFFNi (Fb%)THEN
14610PROCk:PROCp (Fb%)
14615ENDIF
14620ENDPROC
14625DEFFNu(Zb%):=STR$~Zb%
14630DEFFNg (Rf%,Ra%):LOCALSf%:B%=Rf%:C%=Ra%:Sf%=USR(P%+12):IF(Sf%=0)THEN
14635ERROR253,FNmsg_1 (A%!12,"FA5",CHR$((B%AND-16777216)>>24)+CHR$((B%AND16711680)>>16)+CHR$((B%AND65280)>>8)+CHR$(B%AND255))
14640ENDIF
14645=Sf%
14650DEFPROCd (Rf%,wd%):B%=Rf%:C%=wd%:CALLP%+16:ENDPROC
14655DEFPROCK (RETURNTf%,i$):$q%=i$:B%=q%:C%=2:Tf%=USR(P%+28):ENDPROC
14660DEFFNF (Lf%,Mf%,Uf%):LOCALSf%:Sf%=FNg (1380799568,24):Sf%!0=0:Sf%!4=Lf%:Sf%!8=Mf%:Sf%!12=Uf%:Sf%!16=-1:Sf%!20=-1:=Sf%
14665DEFFNxa (c$,qb%,R$):LOCALSf%,Vf%,zd%:Sf%=FNg (1380799568,24):PROCK (Vf%,c$):PROCK (zd%,R$):Sf%!0=0:Sf%!4=Vf%:Sf%!8=zd%:Sf%!12=-1:Sf%!16=-1:Sf%!20=qb%:=Sf%
14670DEFPROCL (RETURNwc%,Re%):LOCALHf%:IFwc%=0THEN
14675wc%=Re%
14680ELSE:Hf%=wc%:WHILE(Hf%!0<>0):Hf%=Hf%!0:ENDWHILE:Hf%!0=Re%
14685ENDIF
14690ENDPROC
14695DEFFNwa (RETURNwc%,c$):LOCALHf%:IFwc%=0THEN
14700=0
14705ELSE:Hf%=wc%:WHILEHf%:IF$Hf%!4=c$THEN
14710=-1
14715ELSE:Hf%=Hf%!0
14720ENDIF
14725ENDWHILE
14730ENDIF
14735=0
14740DEFPROCWa (RETURNwc%,c$):LOCALWe%,Hf%,mb%,Pf%:IFwc%THEN
14745Hf%=wc%:We%=0:mb%=0:REPEAT:IF($Hf%!4)=c$THEN
14750mb%=-1
14755ELSE:We%=Hf%:Hf%=Hf%!0
14760ENDIF
14765UNTILmb%OR(Hf%=0):IF(We%=0)AND(Hf%<>0)THEN
14770wc%=Hf%!0:PROCd (1196577875,Hf%!4):PROCd (1196577875,Hf%!8):PROCd (1380799568,Hf%)
14775ELSE:IFHf%THEN
14780We%!0=Hf%!0:PROCd (1196577875,Hf%!4):PROCd (1196577875,Hf%!8):PROCd (1380799568,Hf%)
14785ENDIF
14790ENDIF
14795ENDIF
14800ENDPROC
14805DEFPROCua:LOCALRd%,z%,N%,Gd%:LOCALhb%,Wf%,s$,H%,s%,t%,l%,t$,K%:REPEAT:SYS424321,,,-1TORd%,,Wf%:IFRd%>0THEN
14810IFWf%>0THEN
14815hb%=FNg (1196577875,Wf%):SYS424321,,hb%,Wf%
14820ELSE:SYS424321,,0,0
14825ENDIF
14830CASERd%OF
14835WHEN1:IFW%THEN
14840N%=W%!12:IFN%!0=9ANDq$<>""THEN
14845t$=$(W%!40):K%=INSTR(t$," "):WHILEK%:MID$(t$,K%,1)=CHR$160:K%=INSTR(t$," ",K%+1):ENDWHILE:w$=q$+"RemSpool."+h$+"."+t$:C$=q$+"RemQueue."+h$+"."+STR$(Na%):SYS131080,17,w$TOt%,,,,l%;f%:IF(l%>0)AND((f%AND1)=0)AND(t%=1)THEN
14850IFL$=""THEN
14855L$=FNmsg_0(A%!12,"UNKN")
14860ENDIF
14865IFM$=""THEN
14870M$=FNmsg_0(A%!12,"UNKN")
14875ENDIF
14880IFFNB (W%,L$,M$)THEN
14885H%=W%!4:SYS131113,25,w$,C$
14890ELSE:SYS131080,6,w$
14895ENDIF
14900L$="":M$="":s$=FNn(W%,-1):IFs$<>""THEN
14905PROCb(s$)
14910ENDIF
14915ENDIF
14920ENDIF
14925ENDIF
14930WHEN2:PROCDc (FNk (hb%))
14935WHEN3:IFJa%THEN
14940PROCac (FNk (hb%))
14945ENDIF
14950WHEN4:PROCN (FNk (hb%))
14955WHEN5
14960WHEN6:PROCFc (FNk (hb%))
14965WHEN7:PROCGc:PROC` (0)
14970WHEN8:PROCHc
14975ENDCASE
14980IF(Wf%>0)THEN
14985PROCd (1196577875,hb%)
14990ENDIF
14995ENDIF
15000UNTILRd%<0:IFW%=0THEN
15005IFA%!44THEN
15010Gd%=A%!48:WHILEGd%:IFNOTGd%!20THEN
15015PROCselect_printer(Gd%,-1,0):Gd%=0
15020ELSE:Gd%=Gd%!0
15025ENDIF
15030ENDWHILE
15035ENDIF
15040ENDIF
15045ENDPROC
15050DEFPROCxa:PROCGc:PROC` (0):ga%=0:ENDPROC
15055DEFPROCFc (c$):ENDPROC
15060DEFFNda:LOCALC$,f%,v%,w%,e$,Xc%,Xf%:REPEAT:C$=q$+"RemQueue."+h$+"."+STR$Na%:SYS424326:SYS131080,5,C$TOv%;f%:SYS424325:IFf%AND1THEN
15065Na%=-1:=FNmsg_0 (A%!12,"OKAS",FNk(v%+4))
15070ENDIF
15075IF(v%<>0)THEN
15080Na%+=1
15085ENDIF
15090UNTILv%=0:=""
15095DEFPROCDc (Sa$):LOCALTa$,Ua$,Lb%,Va$,B$,c%,z%:LOCALK%,c$,H%,Ub%,Wa$,A$:B$=MID$(Sa$,INSTR(Sa$,".")+1):Ta$=Pa$+"."+Sa$:Ua$=Pa$+".RemQueue."+B$+"I":Va$="":O$="":h%=OPENINUa$:IFh%=0THEN
15100ENDPROC
15105ENDIF
15110c%=BGET#h%:WHILE(NOTEOF#h%)AND(c%<>0):Va$+=CHR$c%:c%=BGET#h%:ENDWHILE:c%=BGET#h%:WHILE(NOTEOF#h%)AND(c%<>0):Wa$+=CHR$c%:c%=BGET#h%:ENDWHILE:c%=BGET#h%:WHILE(NOTEOF#h%)AND(c%<>0):A$+=CHR$c%:c%=BGET#h%:ENDWHILE:B$="":c%=BGET#h%:WHILE(NOTEOF#h%)AND(c%>31):B$+=CHR$c%:c%=BGET#h%:ENDWHILE:CLOSE#h%:SYS131080,6,Ua$:K%=A%!48:z%=0:WHILE(K%):IF(K%!40=0)THEN
15115H%=K%!4:c$=$(H%!4)
15120ELSE:c$=$(K%!40)
15125ENDIF
15130IFc$=Va$THEN
15135z%=K%:K%=0
15140ELSE:K%=K%!0
15145ENDIF
15150ENDWHILE:IF(z%<>0)THEN
15155H%=z%!4:SYS131080,23,Ta$TO,,,,,,Ub%:PROCgb (-1,"("+FNmsg_0 (A%!12,"IC9")+") "+A$,Ta$,B$,z%,Ub%)
15160ENDIF
15165ENDPROC
15170DEFPROCfb (Zf%,o$):LOCALe%,f%:SYS403072,Zf%TOe%;f%:IF(f%AND1)THEN
15175L$=FNmsg_0(A%!12,"UNKN"):M$=FNmsg_0(A%!12,"UNKN")
15180ELSE:L$=FNk (e%):M$=o$
15185ENDIF
15190ENDPROC
15195DEFFNB (z%,A$,o$):LOCALSa$,h%,f%,c$,K%:Sa$=q$+"RemQueue."+h$+"."+STR$(Na%)+"I":c$=$z%!40:SYS131085,131,Sa$TOh%;f%:IF(f%AND1)h%=0
15200IFh%<>0THEN
15205BPUT#h%,c$+CHR$0+h$+CHR$0+A$+CHR$0+o$:SYS131085,0,h%TO;f%
15210ENDIF
15215IF(f%AND1)ORh%=0:=0
15220=-1
15225DEFPROCJb:LOCALz%,qb%,S%:IFNOTFNxTHEN
15230PROCj(FNmsg_0(A%!12,"OKAV"),1):ENDPROC
15235ENDIF
15240IFINSTR(FNya,"Share:")>0THEN
15245PROCb (FNmsg_0 (A%!12,"OKAT")):ENDPROC
15250ENDIF
15255REPEAT:PROCt (z%,S%,qb%):PROCicon_deselect (Fb%,qb%):IFz%AND((z%!24AND(1<<17))=0)THEN
15260PROCOa (z%)
15265ENDIF
15270UNTIL(z%=0)AND(S%=0):ENDPROC
15275DEFPROCOa (z%):LOCALc$,_f%,ic%,`f%,W$,f%,fb%,f$,ag%,Xa$,H%:IF(z%!24AND(1<<17))>0THEN
15280ENDPROC
15285ENDIF
15290IF(z%!40=0)THEN
15295H%=z%!4:c$=$(H%!4)
15300ELSE:c$=$(z%!40)
15305ENDIF
15310IFNOTFNxTHEN
15315PROCj(FNmsg_1(A%!12,"OKAW",c$),1):z%!24=z%!24AND(NOT(1<<16)):ENDPROC
15320ENDIF
15325IFINSTR(FNya,"Share:")>0THEN
15330PROCb (FNmsg_1 (A%!12,"OKAU",c$)):z%!24=z%!24AND(NOT(1<<16)):ENDPROC
15335ENDIF
15340R$=$(z%!8):IF(z%!24AND1)=0THEN
15345PROCZ (z%)
15350ENDIF
15355_f%=0:REPEAT:SYS131107,"Inet$LocalAddr*",0,1<<31,_f%,0TO,,`f%:IF`f%<0THEN
15360ic%=FNg (1196577875,NOT(`f%)+1):IF(ic%>0)THEN
15365SYS35,"Inet$LocalAddr*",ic%,NOT(`f%),_f%,0TO,,,_f%:ic%?(NOT(`f%))=0:W$=FNk (ic%):PROCd (1196577875,ic%):f$="unshare _S"+W$:SYS131077,f$:f$="share <Wimp$ScrapDir>.Printers _S"+W$+" -noicon":SYS131077,f$
15370ENDIF
15375ENDIF
15380UNTIL`f%>=0:PROCIc (z%,c$):SYS424578,0,2,c$,0,0TO,,,,,Zb%;f%:IF(f%AND1)=0THEN
15385PROCb (FNmsg_1 (A%!12,"OKAQ",c$)):ENDPROC
15390ENDIF
15395ag%=A%!48:WHILEag%:IF(ag%!40=0)THEN
15400H%=ag%!4:Xa$=$(H%!4)
15405ELSE:Xa$=$(ag%!40)
15410ENDIF
15415IF(Xa$=c$)AND((ag%!24AND(1<<16))>0)THEN
15420PROCb (FNmsg_1 (A%!12,"OKAQa",c$)):ENDPROC
15425ENDIF
15430ag%=ag%!0:ENDWHILE:SYS424577,0,2,c$,LENR$,R$TOfb%;f%:IF(f%AND1)THEN
15435PROCb (FNmsg_1 (A%!12,"OKAQ",c$)):ENDPROC
15440ENDIF
15445z%!24=z%!24OR(1<<16):ENDPROC
15450DEFPROCib (z%):LOCALc$,`f%,ic%,bg%,R$,W$,H%:IF(z%!40=0)THEN
15455H%=z%!4:c$=$(H%!4)
15460ELSE:c$=$(z%!40)
15465ENDIF
15470IF(z%!24AND(1<<16))THEN
15475z%!24=z%!24AND(-1-(1<<16))
15480ENDIF
15485IFJa%THEN
15490SYS293505,1,2,c$,0,0
15495ENDIF
15500ENDPROC
15505DEFPROCJc:ENDPROC
15510DEFPROCP:cg%=Qc%:dg%=wb%:eg%=!wb%:fg%=Rc%:gg%=xb%:Za$=V$:ENDPROC
15515DEFPROCQ:Qc%=cg%:wb%=dg%:!wb%=eg%:Rc%=fg%:xb%=gg%:V$=Za$:ENDPROC
15520DEFPROCPa:hg%=Qc%:ig%=wb%:jg%=!wb%:kg%=Rc%:lg%=xb%:_a$=V$:ENDPROC
15525DEFPROCQa:Qc%=hg%:wb%=ig%:!wb%=jg%:Rc%=kg%:xb%=lg%:V$=_a$:ENDPROC
15530DEFFNy(S%,mg%,ng%,og%,RETURNpg%):LOCAL`a$,ab$,`$:LOCALVa$,s$,bb$,c$,qg%:LOCALab%,rg%,sg%,tg%,mb%,p%,z%:LOCALERROR:pg%=0:SYS263872:`a$="Share::_S"+FNu (S%!12)+".$":ab%=0:SYS424326:SYS131080,17,`a$TO;ab%:SYS424325:IF(ab%AND1)THEN
15535IFog%THEN
15540pg%=-1
15545ELSE:PROCb(FNmsg_1 (A%!12,"OKAOs",$S%!4))
15550ENDIF
15555SYS263873:=0
15560ENDIF
15565c$=$S%!4:p%=INSTR(c$," "):WHILEp%:MID$(c$,p%,1)=CHR$160:p%=INSTR(c$," ",p%+1):ENDWHILE:bb$=`a$+"."+c$:z%=FNza(S%,bb$,mg%,ng%,og%,pg%):SYS263873:=z%
15570DEFFNza (S%,cb$,ab%,ng%,og%,RETURNpg%):LOCALhb%,H%,K%,s$,U%,Cc%,Dc%,Fc%,Gc%,Hc%,Sc%:LOCALz%,N%,Ra$,`$,sg%,i%,ug%,eb%,vg%,wg%,xg%,yg%:LOCALzg%,pg%,qg%:pg%=0:IFNOTFNl (cb$)THEN
15575SYS263873:IFog%THEN
15580pg%=-1:=0
15585ELSE:PROCb (FNmsg_1(A%!12,"OKAOs",$S%!4))
15590ENDIF
15595ENDIF
15600SYS263872:PROCOb(H%):Fc%=H%!12:IFFc%THEN
15605Cc%=Fc%!4:IFCc%THEN
15610K%=!wb%:U%=H%!8:U%=U%!4:J%=FNb($(U%+16)):IFJ%THEN
15615WHILECc%:IF$Cc%!8=$J%THEN
15620PROCm:SYS263873:z%=FNAa($S%!4,$S%!8,H%,Cc%,ng%,og%,pg%):=z%
15625ENDIF
15630Dc%=Cc%:Cc%=Cc%!0:ENDWHILE
15635ELSE:PROCq(FNmsg_1(A%!12,"OKZc",$(U%+16)))
15640ENDIF
15645!wb%=K%
15650ELSE:Dc%=0
15655ENDIF
15660ELSE:Dc%=0
15665ENDIF
15670PROCW(H%!8,Dc%,Fc%,0,Gc%,Hc%,H%):PROCm:H%!24=H%!24OR2:z%=FNAa($S%!4,$S%!8,H%,Dc%,ng%,og%,pg%):SYS263873:=z%
15675DEFPROC`b (z%):LOCALi%,K%,Id%,Jd%,Gd%,y$,qb%,S%,Ag%:PROCt (Ag%,S%,qb%):IF(NOTAg%)ANDS%THEN
15680ENDPROC
15685ENDIF
15690SYS263872:K%=A%!48:WHILEK%:IFK%!0=z%THEN
15695Id%=K%:K%=0
15700ELSE:K%=K%!0
15705ENDIF
15710ENDWHILE:y$=$z%!8:PROCbc(z%,Id%):PROCNb(y$):IFW%=0THEN
15715IFA%!44THEN
15720Gd%=A%!48:WHILEGd%:IFNOTGd%!20THEN
15725PROCselect_printer(Gd%,-1,0):Gd%=0
15730ELSE:Gd%=Gd%!0
15735ENDIF
15740ENDWHILE
15745ENDIF
15750ENDIF
15755IFW%=0PROCz
15760B%=1482184792:C%=Jd%:CALLP%+16:PROCk:IFFNi(Fb%)THEN
15765PROCp(Fb%)
15770ENDIF
15775SYS263873:ENDPROC
15780DEFFNBa (H%):LOCALz%,Sf%:z%=A%!48:Sf%=0:WHILEz%:IFz%!4=H%THEN
15785Sf%=-1:z%=0
15790ELSE:z%=z%!0
15795ENDIF
15800ENDWHILE:=Sf%
15805DEFFNL:LOCALHf%,Sf%:Sf%=0:Hf%=Ka%:WHILEHf%:IFHf%!20>0THEN
15810Sf%+=1
15815ENDIF
15820Hf%=Hf%!0:ENDWHILE:=Sf%
15825DEFPROCHc:LOCALz%,Gd%:IFNOTJa%THEN
15830ENDPROC
15835ENDIF
15840z%=A%!48:WHILEz%:IFz%!24AND(1<<17)THEN
15845PROCN ($z%!40)
15850ENDIF
15855z%=z%!0:ENDWHILE:PROCGc:PROCk:IFW%=0THEN
15860IFA%!44THEN
15865Gd%=A%!48:WHILEGd%:IFNOTGd%!20THEN
15870PROCselect_printer(Gd%,-1,0):Gd%=0
15875ELSE:Gd%=Gd%!0
15880ENDIF
15885ENDWHILE
15890ENDIF
15895ENDIF
15900Ja%=0:ENDPROC
15905DEFPROCGc:LOCALHf%,df%,Gd%:Hf%=Ka%:WHILEHf%:df%=Hf%!0:IFHf%!20<=0THEN
15910PROCN ($Hf%!4)
15915ENDIF
15920Hf%=df%:ENDWHILE:IFW%=0THEN
15925IFA%!44THEN
15930Gd%=A%!48:WHILEGd%:IFNOTGd%!20THEN
15935PROCselect_printer(Gd%,-1,0):Gd%=0
15940ELSE:Gd%=Gd%!0
15945ENDIF
15950ENDWHILE
15955ENDIF
15960ENDIF
15965ENDPROC
15970DEFFNQ(H%,db$,s$):="Printers:Remote.ID"+db$+"."+$H%!4+"."+s$
15975DEFPROCKc (z%):ENDPROC
15980DEFFNAa(c$,R$,H%,R%,ng%,og%,RETURNpg%):LOCALs%,t%,s$,z%,N%:pg%=0:R%!(R%!4*4+8)+=1:B%=1414419024:C%=68:z%=USR(P%+12):IFz%=0ERROR254,FNmsg_1(A%!12,"FA5","PRNT")
15985IFA%!48THEN
15990s%=A%!48:WHILEs%!0:s%=s%!0:ENDWHILE:s%!0=z%
15995ELSE:A%!48=z%
16000ENDIF
16005z%!0=0:z%!4=H%:B%=R%!8:C%=2:z%!8=USR(P%+28):B%=1413697091:C%=36:N%=USR(P%+12):IFN%=0ERROR254,FNmsg_1(A%!12,"FA5","CNCT")
16010N%!0=9:N%?4=1+((s%AND28)>>2):N%?5=0:SYS6,161,16TO,,s%:N%!8=(s%AND224)>>5:IFNOTFNtTHEN
16015N%!12=0
16020ELSE:SYS6,161,3TO,,s%:SYS6,161,4TO,,t%:IFs%THEN
16025$q%=STR$t%+"."+STR$s%:B%=q%:C%=2:N%!12=USR(P%+28)
16030ELSE:s$=CHR$t%:FORs%=1TO5:SYS6,161,152+s%TO,,t%:IFt%s$+=CHR$t%ELSEs%=5
16035NEXT:$q%=s$:B%=q%:C%=2:N%!12=USR(P%+28)
16040ENDIF
16045ENDIF
16050SYS131107,"PrinterType$5",O%,256,,3TO,,t%:O%?t%=13:B%=O%:C%=2:N%!16=USR(P%+28):N%!20=0:N%!24=0:N%!28=0:N%!32=0:N%?6=0:z%!12=N%:B%=1195789891:C%=4*H%!36:s%=USR(P%+12):IFs%=0ERROR254,FNmsg_1(A%!12,"FA5","CNFG")
16055IF0<=H%!36-1THEN
16060FORt%=0TOH%!36-1:s%!(t%*4)=0:NEXT
16065ENDIF
16070z%!16=s%:z%!20=-1:z%!24=0:z%!28=-1:z%!32=0:z%!36=0:z%!40=0:z%!44=0:IFH%!32AND4THEN
16075z%!48=FNI
16080ELSE:z%!48=0
16085ENDIF
16090z%!52=0:PROCc(H%,z%,-4,0):IFH%!24AND4PROCc(H%,z%,-12,0)
16095PROCK (z%!40,$S%!4):PROCk:IFH%!24AND8THEN
16100z%!56=10*H%?(24+1)
16105ELSE:z%!56=-1
16110ENDIF
16115z%!24=z%!24OR(1<<17):IFNOTng%THEN
16120PROCLc(z%,og%,pg%)
16125ENDIF
16130=z%
16135DEFPROCUa (c$,`$,R$):LOCALz%,qb%,pb%,p%,Bg%,Hf%:z%=A%!48:IFNOTz%THEN
16140qb%=251658240:pb%=-5
16145ELSE:qb%=FNZ (z%):pb%=-3
16150ENDIF
16155ea$="su_"+`$:Bg%=FNs (c$,ea$,pb%,qb%):PROCL (Ka%,FNxa (c$,Bg%,R$)):IFA%!48=0ANDub%>0THEN
16160PROCD (-1,ub%):ub%=-1
16165ENDIF
16170ENDPROC
16175DEFPROCVa(z%):LOCALJ%,R%,d%,N%,h%,X$,yb%,H%:gb%=z%!16:H%=z%!4:h%=FNc($FNe("cs:")):IF0<=h%-1THEN
16180FORd%=0TOh%-1:J%=FNd:IFJ%THEN
16185T%=FNa(J%,"nl:"):IFT%THEN
16190gb%!(d%*4)=0
16195ELSE:T%=FNa(J%,"in:"):IFT%THEN
16200gb%!(d%*4)=FNstore_integer(FNc($T%))
16205ELSE:T%=FNa(J%,"st:"):IFT%THEN
16210B%=T%:C%=2:gb%!(d%*4)=USR(P%+28)
16215ELSE:T%=FNa(J%,"s0:"):IFT%THEN
16220B%=T%:C%=3:gb%!(d%*4)=USR(P%+28)
16225ELSE:T%=FNa(J%,"gs:"):IFT%THEN
16230B%=T%:C%=4:gb%!(d%*4)=USR(P%+28)
16235ELSE:T%=FNa(J%,"pt:"):IFT%THEN
16240B%=1381257040:C%=4:gb%!(d%*4)=USR(P%+12):IFgb%!(d%*4)=0ERROR253,FNmsg_1(A%!12,"FA5","POTR")
16245!gb%!(d%*4)=FNCa($T%)
16250ELSE:PROCR(FNmsg_1(A%!12,"OKH",$J%))
16255ENDIF
16260ENDIF
16265ENDIF
16270ENDIF
16275ENDIF
16280ENDIF
16285ENDIF
16290NEXT
16295ENDIF
16300PROCZ (z%):ENDPROC
16305DEFFNya:=FNtask_read_env ("Wimp$ScrapDir",ba%)
16310DEFPROCIc (z%,c$):LOCALH%,yb%,R%,c%,eb%,U%,wc%,i%,j%,k%,l%,s$,p%,eb$,sb%,Cg%,Dg%:SYS263872:H%=z%!4:eb$=$z%!8:IFH%THEN
16315IFH%!8THEN
16320p%=INSTR(c$," "):WHILEp%:MID$(c$,p%,1)=CHR$160:p%=INSTR(c$," ",p%+1):ENDWHILE:c%=OPENOUT("<Wimp$ScrapDir>.Printers."+c$):BPUT#c%,"cl: "+$H%!4:eb%=H%!8:yb%=H%!12:IF$(eb%+12)<>"printers"THEN
16325BPUT#c%,$(eb%+12)+":":BPUT#c%,"#"
16330ENDIF
16335R%=yb%!4:WHILER%:IFR%!(R%!4*4+8)THEN
16340U%=eb%!4:i%=R%+8:IFLEFT$($(U%+16),6)="pr_nme"THEN
16345IFFNprinter_read_string(!i%)=eb$THEN
16350Cg%=-1
16355ELSE:Cg%=0
16360ENDIF
16365ELSE:Cg%=-1
16370ENDIF
16375WHILEU%:IFCg%THENBPUT#c%,$(U%+16)+" ";
16380IF!i%=0THEN
16385IFU%!4=6THEN
16390IFCg%THENBPUT#c%,48
16395ELSE:IFU%!4=1THEN
16400IFCg%THENBPUT#c%,48
16405ENDIF
16410ENDIF
16415IFCg%THENBPUT#c%,10
16420ELSE:j%=!i%:CASEU%!4OF
16425WHEN1:IFCg%THENBPUT#c%,STR$!j%
16430WHEN2:IFCg%THENBPUT#c%,FNprinter_read_string(j%)
16435WHEN3:IFCg%THENBPUT#c%,FNprinter_read_string(j%)
16440WHEN4:IFCg%THENBPUT#c%,FNungstrans(FNprinter_read_string(j%))
16445WHEN5:IFCg%THENBPUT#c%,10
16450CASEU%!8OF
16455WHEN1:IFCg%THENBPUT#c%," "+STR$!j%!0+", "+STR$!j%!4
16460WHEN2:IFCg%THENBPUT#c%," "+FNprinter_read_string(j%!0)
16465IFCg%THENBPUT#c%," "+FNprinter_read_string(j%!4)
16470WHEN3:IFCg%THENBPUT#c%," "+FNprinter_read_string(j%!0)
16475IFCg%THENBPUT#c%," "+FNprinter_read_string(j%!4)
16480WHEN4:IFCg%THENBPUT#c%," "+FNungstrans(FNprinter_read_string(j%!0))
16485IFCg%THENBPUT#c%," "+FNungstrans(FNprinter_read_string(j%!4))
16490WHEN7:IFCg%THENBPUT#c%," ";
16495IFCg%THENPROCr(!j%!0,H%,c%,Dg%)
16500IFCg%THENBPUT#c%,", ";
16505IFCg%THENPROCr(!j%!4,H%,c%,Dg%)
16510ENDCASE
16515WHEN6:k%=j%:l%=0:WHILEk%:l%+=1:k%=!k%:ENDWHILE:IFCg%THENBPUT#c%,STR$l%
16520WHILEj%:IF0<=j%!4-1THEN
16525FORk%=0TOj%!4-1:l%=j%!(k%*4+8):CASEl%!-4OF
16530WHEN1196707401:IFCg%THENBPUT#c%," "+STR$!l%+", ";
16535WHEN1196577875:IFCg%THENBPUT#c%," "+$l%+", ";
16540WHEN810701907:CALLZ%,l%,s$:IFCg%THENBPUT#c%," "+s$+", ";
16545WHEN1381258055:CALLY%,l%,s$:IFCg%THENBPUT#c%," "+FNungstrans(s$)+", ";
16550WHEN1381257040:IFCg%THENPROCr (!l%,H%,c%,Dg%)
16555IFCg%THENBPUT#c%,"##"
16560ENDCASE
16565NEXT
16570ENDIF
16575IFCg%THENPTR#c%=PTR#c%-2
16580IFCg%THENBPUT#c%,10
16585j%=!j%:ENDWHILE
16590WHEN7:IFCg%THENPROCr (!j%,H%,c%,Dg%)
16595WHEN8:k%=j%:l%=0:WHILEk%:l%+=1:k%=!k%:ENDWHILE:IFCg%THENBPUT#c%,STR$l%
16600WHILEj%:s$=CHR$j%?4:IF1<=j%?5THEN
16605FORk%=1TOj%?5:s$+=CHR$j%?(k%+5):NEXT
16610ENDIF
16615IFCg%THENBPUT#c%," "+FNungstrans(s$)
16620j%=!j%:ENDWHILE
16625ENDCASE
16630ENDIF
16635U%=U%!0:i%+=4:ENDWHILE:IFCg%THENBPUT#c%,"#"
16640ENDIF
16645R%=R%!0:ENDWHILE:CLOSE#c%:SYS131080,18,"<Wimp$ScrapDir>.Printers."+c$,4038:SYS131080,4,"<Wimp$ScrapDir>.Printers."+c$,,,,3
16650ENDIF
16655ENDIF
16660SYS263873:ENDPROC
16665DEFPROCr (K%,H%,c%,Dg%):LOCALfb$,eb%,U%,mb%,i%,j%,gb$,sb%,k%,l%,p%,s$:Dg%+=1:gb$=FNp (K%,H%):U%=INSTR(gb$,":"):fb$=MID$(gb$,1,U%-1):eb%=H%!8:mb%=0:WHILEeb%ANDNOTmb%:IF$(eb%+12)=fb$THEN
16670mb%=-1
16675ELSE:eb%=eb%!0
16680ENDIF
16685ENDWHILE:IFNOTmb%ANDNOTeb%THEN
16690ENDPROC
16695ENDIF
16700BPUT#c%," "+fb$+":":U%=eb%!4:i%=FNCa (gb$):IFi%=0THEN
16705ENDPROC
16710ENDIF
16715i%=i%+8:WHILEU%:BPUT#c%,$(U%+16)+" ";:IF!i%=0THEN
16720IFU%!4=6THEN
16725BPUT#c%,48
16730ELSE:IFU%!4=1THEN
16735BPUT#c%,48
16740ENDIF
16745ENDIF
16750BPUT#c%,10
16755ELSE:j%=!i%:CASEU%!4OF
16760WHEN1:BPUT#c%,STR$!j%
16765WHEN2:BPUT#c%,FNprinter_read_string(j%)
16770WHEN3:BPUT#c%,FNprinter_read_string(j%)
16775WHEN4:BPUT#c%,FNungstrans(FNprinter_read_string(j%))
16780WHEN5:BPUT#c%,10:CASEU%!8OF
16785WHEN1:BPUT#c%," "+STR$!j%!0+", "+STR$!j%!4
16790WHEN2:BPUT#c%," "+FNprinter_read_string(j%!0):BPUT#c%," "+FNprinter_read_string(j%!4)
16795WHEN3:BPUT#c%," "+FNprinter_read_string(j%!0):BPUT#c%," "+FNprinter_read_string(j%!4)
16800WHEN4:BPUT#c%," "+FNungstrans(FNprinter_read_string(j%!0)):BPUT#c%," "+FNungstrans(FNprinter_read_string(j%!4))
16805WHEN7:BPUT#c%," ";:PROCr(!j%!0,H%,c%,Dg%):BPUT#c%,", ";:PROCr(!j%!4,H%,c%,Dg%)
16810ENDCASE
16815WHEN6:k%=j%:l%=0:WHILEk%:l%+=1:k%=!k%:ENDWHILE:BPUT#c%,STR$l%:WHILEj%:IF0<=j%!4-1THEN
16820FORk%=0TOj%!4-1:l%=j%!(k%*4+8):CASEl%!-4OF
16825WHEN1196707401:BPUT#c%," "+STR$!l%+", ";
16830WHEN1196577875:BPUT#c%," "+$l%+", ";
16835WHEN810701907:CALLZ%,l%,s$:BPUT#c%," "+s$+", ";
16840WHEN1381258055:CALLY%,l%,s$:BPUT#c%," "+FNungstrans(s$)+", ";
16845WHEN1381257040:PROCr (!l%,H%,c%,Dg%):BPUT#c%,"##"
16850ENDCASE
16855NEXT
16860ENDIF
16865PTR#c%=PTR#c%-2:BPUT#c%,10:j%=!j%:ENDWHILE
16870WHEN7:PROCr (!j%,H%,c%,Dg%)
16875WHEN8:k%=j%:l%=0:WHILEk%:l%+=1:k%=!k%:ENDWHILE:BPUT#c%,STR$l%:WHILEj%:s$=CHR$j%?4:IF1<=j%?5THEN
16880FORk%=1TOj%?5:s$+=CHR$j%?(k%+5):NEXT
16885ENDIF
16890BPUT#c%," "+FNungstrans(s$):j%=!j%:ENDWHILE
16895ENDCASE
16900ENDIF
16905U%=U%!0:i%+=4:ENDWHILE:BPUT#c%,"#":ENDPROC
16910DEFFNCa(s$):LOCALj%,k%,t$:j%=INSTR(s$,":"):t$=MID$(s$,j%+1):s$=LEFT$(s$,j%-1):j%=H%!8:k%=0:WHILEj%:IF$(j%+12)=s$THEN
16915j%=H%!12:WHILEk%:j%=j%!0:k%-=1:ENDWHILE:k%=VALt$-1:j%=j%!4:WHILE(j%!(j%!4*4+8)=0)AND(j%>0):j%=j%!0:ENDWHILE:WHILEk%:j%=j%!0:IFj%!(j%!4*4+8)THEN
16920k%-=1
16925ENDIF
16930ENDWHILE:=j%
16935ELSE:j%=j%!0:k%+=1
16940ENDIF
16945ENDWHILE:PROCb(FNmsg_2(A%!12,"FAG",s$,t$)):=0
16950DEFPROCLc(z%,og%,RETURNpg%):pg%=0:z%!24=z%!24OR1:N%=z%!12:PROCXa(z%):PROCA(z%):IFA%!44=1THEN
16955PROCCc(z%,-1,0,og%,pg%)
16960ENDIF
16965ENDPROC
16970DEFPROCCc(z%,dc%,ec%,og%,RETURNpg%):LOCALfc%,i%,s$:pg%=0:fc%=W%:IFNOTec%W%=z%
16975IFW%=0ENDPROC
16980s$=FNn(W%,0):IFs$<>""THEN
16985IFdc%THEN
16990W%!24=W%!24ANDNOT2
16995ENDIF
17000W%!24=W%!24OR4:PROCi(W%):PROCf(-1,W%,0):IFW%=fc%THEN
17005PROCicon_deselect(-1,fc%!20):fc%=0
17010ENDIF
17015W%=fc%:IFog%THEN
17020pg%=-1
17025ELSE:PROCb(s$)
17030ENDIF
17035ENDPROC
17040ENDIF
17045PROCc(W%!4,W%,-6,0):PROCwb(W%):PROCz:IFdc%THEN
17050IFfc%THEN
17055PROCicon_deselect(-1,fc%!20):fc%!24=fc%!24ANDNOT2
17060ENDIF
17065W%!24=W%!24OR2:PROCicon_select(-1,W%!20):SYS524608TO,,,,i%:IF?i%CALLZ%,i%,s$:SYS36,"Printer$",i%,LENs$
17070ELSE:W%=fc%
17075ENDIF
17080ENDPROC
�>squished.RunImage
��,�$
|ș263872:�A%84,A%!16 256,V%256,aa%256,O%512,q%1024,X%256,ba%256:�a%(4):�aa("Printers:Messages",A%!12):��_(A%!12):���,�$
X�ba:�ca(�msg_0(A%!12,"ID")):�da:�ea:�fa:�ga:�ha:�ia:�P%+8:�ja:�ka:�la:ș263873:��ma
�ca%�
%$(q%+44)=aa$:?(q%+44+�(aa$))=0:�O
#�
(�:�v(A%!20):�0:�
-(��v(da%):�r%,t%,z%:r%=�aa(da%):Ȏr%�
2�0:�na:�oa
7
�1:�pa
<�2:ș262341,,q%
A �3:�e
F
�6:�qa
K�7:�ea%�
P�ra
U�:�w(W%,7,q%)
Z�
_
�8:�sa
d
�9:�ta
i�13:!(q%!0)=0:�ua
n�17,18:�va(r%)
s�19:�wa
x:�w(W%,r%,q%)
}�
�'fa%=-1:z%=A%!48:ȕz%:t%=z%!56:�t%�
��fa%=-1fa%=t%��t%<fa%fa%=t%
��
�z%=z%!0:�:Ȏga%�
��1:fa%+=500:ga%=2
��2:�xa:ga%=0
��
��
�x��ka:�k$:q%!0=24:q%!12=0:q%!16=524611:q%!20=34:ș262375,18,q%:ha%=q%!8:�ya:�za:�Aa:�` (-1):k$="<Printers$Dir>":�ia%�
�:k$+=".Remote":ș131080,8,k$:k$+=".ID"+h$:ș131080,8,k$
��
��k$+=".":ș36,"PrinterChoices$Path",k$,�k$,0,0:�Ba("Printers:PaperRO",2):�Ba("PrinterChoices:PaperRW",1):�ja%=0�253,�msg_0(A%!12,"FAK")
��Ca:fa%=-1:ș66�ka%:�Da:�
�3��ya:A%!20=12589105:la%=12589427:ma%=12589361:�
�r��ba:�h%,l%,a%,w%:ș131080,8,"<Printers$Dir>":h%=�"Printers:Code":l%=�#h%:ș41,21,h%�,a%,w%:�#h%:�(w%�255)=46�
� P%=a%
�'�:�P%l%+1:ș8,16,"Printers:Code",P%
��
�Z%=P%+64:Y%=P%+68:�
�L��Aa:�na%,oa%:ș16�na%:ș73,"/g,quit/s,/g,pdf/s,/g",na%,O%,256:�O%!12=0�
� ca%=0
��:ca%=-1
��
�aa$="":na%=O%!16:�na%<>0�
�<oa%=!na%�65535:na%+=2:ȕoa%:aa$+=�(?na%):na%+=1:oa%-=1:�
��
�
���za:c=1814.4*72000/(180<<8):d=72000:pa%=44:qa%=0:ra%=0:sa%=0:ta%=0:ua%=0:va%=0:A%!48=0:A%!44=0:W%=0:wa%=0:J$="":xa%=0:ya%=0:za%=0:Aa%=0:A%!24=0:A%!28=0:g$="null:":Ba%=0:Ca%=0:A%!32=0:ba$="":A%!36=0:Da%=0:Fa%=0:ja%=0:Ga%=0:Ha%=0
�ș6,204,,255�,Ia%:K$="":ca$="":A%!76=0:A%!80=0:Ja%=0:Ka%=0:La%=0:Ma%=0:h$="":Na%=0:q$="":L$="":M$="":Oa%=0:Pa%=0:ga%=0:ia%=0:�
x��ia:�c%,d%,Qa%,Ra%,Sa%,Ta%,Ua%:�a$():�a$(255):Sa%=0:Ta%=0:Va%=0:Wa%=0:Xa%=0:Za%=0:c%=-1:�:�Fa(k$,U$,c$,c%):�c$<>""�
Zș8,17,"Printers:"+c$+".Resources.Support"�d%,,Qa%,,Ra%:�d%=1�(Qa%�-1048576)=-1048576�
$Ra%=Ra%+3��3:Ȏ(Qa%�1048320)>>8�
"�4091:�Ra%>Sa%Sa%=Ra%
'�Va%<255a$(Va%)=c$
,
Va%+=1
1�4092:Ta%+=Ra%:Wa%+=1
6�
;�
@�
E%�c$="":�Wa%>0�b%(Wa%-1),b$(Wa%-1)
JUa%=�+Ta%+Sa%+16*1024:�=Ua%
O�(�+Ta%+Sa%+16*1024)<Ua%�
T>Ua%=Ua%/1024:Ua%=Ua%-Ua%�8+8:�253,�msg_1(A%!12,"FA4",�Ua%)
Y�
^�Va%>0�
cR�c$(Va%-1):�d%=0�Va%-1:c$(d%)="Printers:"+a$(d%)+".Resources.Support":�:ȣc$()
h�
m�
rT��Fa(�k$,�U$,�c$,�_a%):�i%,`a%,ab%:�_a%=-1k$=�task_read_env("Printers$Path",ba%)
w�:�_a%=-1�
|�k$=""�
�c$="":�
��
�i%=�k$,","):�i%=0i%=�k$+1
�!U$=�k$,i%-1):��U$)="."U$=�U$)
�U$+=�0:k$=�k$,i%+1):_a%=0
��
�Aș131084,10,U$,ba%,1,_a%,256,"*"�,,,`a%,_a%;ab%:�(ab%�1)`a%=0
��`a%=1�
��ba%!16=2�
�i%=ba%+20:�Z%,i%,c$:�
��
��:_a%=-1
��
��0:�
�v��Ga(c$):�Qa%,Ra%,f$:f$="Printers:"+c$+".Resources.Support":ș8,17,f$�d%,,Qa%,,Ra%:Ra%=Ra%+3��3:�d%<>1ș8,19,f$,d%
�2�(Qa%�-1048576)<>-1048576�254,�msg_1("FA3",c$)
�Ȏ(Qa%�1048320)>>8�
� �4091
��4092:�Za%<Wa%�
�4�u%Ra%:b%(Za%)=u%:b$(Za%)=c$:ș8,16,f$,u%:Za%+=1
��
�:�254,�msg_1("FA3",c$)
��
��
����Ha(c$,�bb%):�d%,Qa%,f$,h%,cb%,db%,H%:�eb%:ș131080,8,"PrinterChoices:"+c$:f$="Printers:"+c$+".Resources.Support":ș8,17,f$�d%,,Qa%:�d%<>1ș8,19,f$,d%
�2�(Qa%�-1048576)<>-1048576�254,�msg_1("FA3",c$)
JB%=1347769168:C%=60:bb%=�(P%+12):�bb%=0�253,�msg_1(A%!12,"FA5","PSUP")
Ȏ(Qa%�1048320)>>8�
�4091:bb%!24=1
�4092:bb%!24=0
=:B%=1347769168:C%=bb%:�P%+16:�254,�msg_1(A%!12,"FA3",c$)
�
!kbb%!0=0:$q%=c$:B%=q%:C%=2:bb%!4=�(P%+28):bb%!8=0:bb%!12=0:ș8,17,�h(bb%,"Resources.!Sprites")�d%:�d%=1�
&Uș131077,"IconSprites "+�h(bb%,"Resources.!Sprites")�C%;d%:�(d%�1)!C%=253:ș43,C%
+�
01ș8,17,�h(bb%,"Resources.Messages")�d%:�d%=1�
52�aa(�h(bb%,"Resources.Messages"),d%):bb%!16=d%
:�:bb%!16=0
?�
DMș8,17,�h(bb%,"Resources.Templates")�d%:�d%<>1�254,�msg_1(A%!12,"FA2",c$)
Ij�Ia(�h(bb%,"Resources.Templates"),�h(bb%,"Resources.Template3D")):d%=0:db%=bb%+20:�:�Ja("",d%,c$):�d%�
N_�l("",c$,1,h%):B%=1145981271:C%=16+1+�c$:cb%=�(P%+12):�cb%=0�253,�msg_1(A%!12,"FA5","WIND")
SEcb%!0=0:cb%!4=h%:cb%!8=0:cb%!12=0:$(cb%+16)=c$:!db%=cb%:db%=cb%+0
X�
]U�d%=0:�Ka:�c(bb%,0,-1,0):笤l(�h(bb%,"Template"))�254,�msg_1(A%!12,"OK1a",$bb%!4)
b�La(bb%):�m:�ia%�
g笤l(�Q(bb%,h$,"PrData"))�
l�f$="<Printers$Dir>"+".Remote.ID"+h$+"."+$bb%!4:ș131080,8,f$:f$="<Printers$Dir>"+".Remote.ID"+h$+"."+$bb%!4+".PrData":d%=�(f$):�d%=0�
q#�254,�msg_1(A%!12,"OK1",$bb%!4)
v��:eb%=bb%!8:ȕeb%:�#d%,$(eb%+12)+":":�#d%,"#":eb%=eb%!0:�:�#d%:ș8,18,f$,4038:笤l(�Q(bb%,h$,"PrData"))�254,�msg_1(A%!12,"OK1",$bb%!4)
{�
��
�;�:笤l(�h(bb%,"PrData"))�254,�msg_1(A%!12,"OK1",$bb%!4)
��
�8�Ma(bb%):�m:�Ba(�h(bb%,"Resources.PaperRO"),0):�ua%�
�$H%=ua%:ȕH%!0:H%=H%!0:�:H%!0=bb%
�
�:ua%=bb%
��
��
�9��Na:�z%,H%,t%:fa%=-1:z%=A%!48:ȕz%:H%=z%!4:�H%!24�8�
�/t%=10*H%?(24+1):�fa%=-1fa%=t%��t%<fa%fa%=t%
�z%!56=t%
��:z%!56=-1
��
�z%=z%!0:�:ș66�ka%:�
�Sݤx:�da$,f%,fb%,s$:�z%,H%,c$:da$=�task_read_env("Wimp$ScrapDir",ba%):�da$="":=0
��da$<>ca$�
�9ș131080,8,"<Wimp$ScrapDir>.Printers"�fb%;f%:�(f%�1)�
�Lfb%+=4:�Z%,fb%,s$:�b(�msg_2(A%!12,"WA13","<Wimp$ScrapDir>.Printers",s$))
��:ca$=da$:�Ja%�
�xș131080,8,"<Wimp$ScrapDir>.Printers.RemQueue"�fb%;f%:�(f%�1)=0ș131080,8,"<Wimp$ScrapDir>.Printers.RemSpool"�fb%;f%
��(f%�1)�
�Lfb%+=4:�Z%,fb%,s$:�b(�msg_2(A%!12,"WA13","<Wimp$ScrapDir>.Printers",s$))
��
��
�!z%=A%!48:ȕz%:�z%!24�(1<<16)�
��(z%!40=0)�
H%=z%!4:c$=$(H%!4)
�:c$=$(z%!40)
�
�Oa (z%)
�
z%=z%!0:�
�
%�
*=-1
/���Da:�c%,d%,s$,J%,c$,H%,gb%,t%,hb%,ib%,jb%,kb%:�ab%,lb%,S%,mb%,nb%,ob%,i$,z%,pb%,qb%,ea$,p%,rb%,s$,sb%:�nb%,tb%:ub%=�s(�msg_0(A%!12,"NNE"),"s"+�msg_0(A%!12,"IC"),-5,251658240):vb%=-1:�ia%�
4@s$="<Printers$Dir>"+".Remote.ID"+h$+".Settings":ș8,17,s$�c%
9,�:ș8,17,"<Printers$Dir>"+".Settings"�c%
>�
C
�c%=1�
H �ia%�
M%笤l (s$)�254,�msg_0(A%!12,"OKD")
R@�:笤l("<Printers$Dir>"+".Settings")�254,�msg_0(A%!12,"OKD")
W�
\J%=�b("fv:"):�J%=0�
a�j(�msg_0(A%!12,"OKV"),1)
f�:�c($J%)<>1�
k�j(�msg_0(A%!12,"OKV"),1)
p5�:�P:�:J%=�b("cl:"):�Pa:ab%=0:lb%=�b("fg:"):�lb%�
uab%=�c ($lb%)
z�
#hb%=�b("sn:"):�hb%c$=$hb%�c$=""
�*�Qa:�(J%>0)�((ab%�(1<<17))=0)�(lb%>0)�
�d%=�$J%,":"):�d%=0d%=�$J%+1
�Hs$=�$J%,d%+1):$J%=�$J%,d%-1):H%=ua%:ib%=0:ȕH%��ib%:�$H%!4=$J%ib%=-1
��ib%H%=H%!0
��:�ib%�
�'�Ra:�Ga($J%):�Ha($J%,H%):�Sa:ib%=-1
��
�
�ib%�
�#hb%=�b("nm:"):�hb%c$=$hb%�c$=""
�"�b(�msg_2(A%!12,"WA1",$J%,c$))
�
�:�Ta(H%)
��
��
�I�J%=0:�Q:�:J%=�b("cl:"):nb%=!wb%:tb%=xb%:�P:ab%=0:lb%=�b("fg:"):�lb%�
�ab%=�c ($lb%)
��
�#lb%=�b("pn:"):�lb%i$=$lb%�i$=""
�#hb%=�b("sn:"):�hb%c$=$hb%�c$=""
�)�Q:�(J%>0)�((ab%�(1<<17))>0)�(lb%>0)�
�%mb%=0:S%=Ka%:ȕS%��mb%:�c$=$S%!4�
�
mb%=-1
�
�:S%=S%!0
��
��:�mb%��Ja%�
�p%=�$J%,":"):�p%=0�
p%=�$J%
�
�Ua (c$,�$t%,1,p%-1)," ")
�:�ab%�1�
Y�P:z%=�y (S%,ab%,-1,0,kb%):�Q:�P:!wb%=nb%:xb%=tb%:�Va (z%):�Q:�Wa (Ka%,$S%!4):�ab%�2�
z%!24=z%!24�2
�:z%!24=z%!24��2
$�
)d%=ja%:ȕd%:�$d%!4=i$�
.z%!36=d%:d%=0
3�:d%=d%!0:�d%=0�
89d%=ja%:z%!36=d%:�b(�G(A%!12,"WA11",i$,$d%!4,c$)):d%=0
=�
B�
G�
L�
Q�
V�
[ �J%=0
`�
e�
j�m
o�
t0�w(A%!48,-5,0):rb%=0:z%=A%!48:ȕz%:�z%!24�2�
yrb%=-1:jb%=z%:z%=0
~
�:z%=z%!0
��
��:z%=A%!48:�(�rb%)�(z%)�
��select_printer (z%,-1,0)
��:�rb%�jb%�
��select_printer (jb%,-1,0)
��
��
��
�F��Ta(H%):�J%,R%,z%,d%,N%,h%,X$,yb%:J%=�e("nm:"):X$=$J%:�H%!44>100�
� �b(�msg_1(A%!12,"WA7",X$)):�
��
�(yb%=H%!12:R%=yb%!4:ȕR%>0:�$R%!8=X$�
�R%!(R%!4*4+8)+=1:R%=-1
�
�:R%=R%!0
��
��:�R%=0�
� �b(�msg_1(A%!12,"WA8",X$)):�
��
�HB%=1414419024:C%=68:z%=�(P%+12):�z%=0�253,�msg_1(A%!12,"FA5","PRNT")
�OB%=J%:C%=2:z%!8=�(P%+28):z%!0=0:z%!4=H%:�H%!24�8z%!56=10*H%?(24+1)�z%!56=-1
�
�H%!24�4�
�\h%=�c($�e("cn:")):B%=1413697091:C%=h%*4:N%=�(P%+12):�N%=0�253,�msg_1(A%!12,"FA5","CNCT")
�z%!12=N%:�0<=h%-1�
��d%=0�h%-1:J%=�d:�J%�
�T%=�a(J%,"nl:"):�T%�
N%!(d%*4)=0
�:T%=�a(J%,"in:"):�T%�
%N%!(d%*4)=�store_integer(�c($T%))
�:T%=�a(J%,"st:"):�T%�
"B%=T%:C%=2:gb%!(d%*4)=�(P%+28)
�:T%=�a(J%,"s0:"):�T%�
"B%=T%:C%=3:gb%!(d%*4)=�(P%+28)
#�:T%=�a(J%,"gs:"):�T%�
("B%=T%:C%=4:gb%!(d%*4)=�(P%+28)
-�:T%=�a(J%,"pt:"):�T%�
2UB%=1381257040:C%=4:N%!(d%*4)=�(P%+12):�N%!(d%*4)=0�253,�msg_1(A%!12,"FA5","POTR")
7!N%!(d%*4)=�H($T%,0)
<!�:�R(�msg_1(A%!12,"OKH",$J%))
A�
F�
K�
P�
U�
Z�
_�
d�
i�
nJ�:B%=1413697091:C%=36:N%=�(P%+12):�N%=0�253,�msg_1(A%!12,"FA5","CNCT")
sDz%!12=N%:N%!0=�c($�e("ct:")):N%!4=�c($�e("bd:")):笤R�(N%?4>15)�
x@�j(�msg_1(A%!12,"OKAM",�msg_0(A%!12,"BR"+�(N%?4))),1):N%?4=0
}�
��N%!8=�c($�e("ft:")):C%=2:B%=�e("et:"):N%!12=�(P%+28):B%=�e("fl:"):N%!16=�(P%+28):B%=�e("ns:"):N%!20=�(P%+28):B%=�e("np:"):N%!24=�(P%+28):B%=�e("nu:"):N%!28=�(P%+28):B%=�e("no:"):N%!32=�(P%+28):J%=�b("cf:"):�J%�
�N%?6=�c($J%)
��:N%?6=0
��
�ȎN%!0�
��4:笤t�
�<N%!0=0:�b(�msg_2(A%!12,"WA9",$z%!8,�msg_0(A%!12,"CN4")))
��
��6:笤z�
�<N%!0=0:�b(�msg_2(A%!12,"WA9",$z%!8,�msg_0(A%!12,"CN6")))
��
��
��
�^h%=�c($�e("cs:")):B%=1195789891:C%=h%*4:gb%=�(P%+12):�gb%=0�253,�msg_1(A%!12,"FA5","CNFG")
�z%!16=gb%:�0<=h%-1�
��d%=0�h%-1:J%=�d:�J%�
�T%=�a(J%,"nl:"):�T%�
�gb%!(d%*4)=0
��:T%=�a(J%,"in:"):�T%�
�&gb%!(d%*4)=�store_integer(�c($T%))
��:T%=�a(J%,"st:"):�T%�
�"B%=T%:C%=2:gb%!(d%*4)=�(P%+28)
��:T%=�a(J%,"s0:"):�T%�
�"B%=T%:C%=3:gb%!(d%*4)=�(P%+28)
��:T%=�a(J%,"gs:"):�T%�
�"B%=T%:C%=4:gb%!(d%*4)=�(P%+28)
�:T%=�a(J%,"pt:"):�T%�
WB%=1381257040:C%=4:gb%!(d%*4)=�(P%+12):�gb%!(d%*4)=0�253,�msg_1(A%!12,"FA5","POTR")
!gb%!(d%*4)=�H($T%,0)
!�:�R(�msg_1(A%!12,"OKH",$J%))
�
�
"�
'�
,�
1�
6�
;�
@�
EWz%!20=-1:z%!24=�c($�e("fg:")):z%!28=-1:z%!32=0:J%=�e("pn:"):d%=ja%:ȕd%:�$d%!4=$J%�
Jz%!36=d%:d%=0
O�:d%=d%!0:�d%=0�
T:d%=ja%:z%!36=d%:�b(�G(A%!12,"WA11",$J%,$d%!4,X$)):d%=0
Y�
^�
c[�:C%=2:B%=�e("sn:"):z%!40=�(P%+28):B%=�e("ic:"):z%!44=�(P%+28):�H%!32�4z%!48=�I�z%!48=0
hz%!52=0:�z%!24�1�
m�Xa(z%):�z%!24�2�
r�select_printer(z%,-1,0)
w�
|�
��z%!24�(1<<16)�Ja%�
��Oa (z%)
��
�1d%=A%+48:ȕ!d%:d%=!d%+0:�:!d%=z%:va%+=1:�Na:�
�<ݤe(fa$):�J%:J%=�b(fa$):�J%=0�R(�msg_1(A%!12,"OKG",fa$))
�=J%
�(��R(e$):�S(�msg_1(A%!12,"OKE",e$)):�
�(ݤh(H%,s$):="Printers:"+$H%!4+"."+s$
�ݤA(h%):�p%:�h%=-2�=-1
��h%=zb%�=-1
��h%=Ab%�=-1
��h%=Bb%�=-1
��h%=Cb%�=-1
��h%=Db%�=-1
��h%=A%!40�=-1
��h%=Q%�=-1
��h%=Fb%�=-1
��h%=Gb%�=-1
�p%=A%!48:ȕp%:�p%!48=h%�=-1
�p%=p%!0:�:=0
����Ca:�i%,ga$,ha$,Hb%,Ib%,Jb%,Kb%,j%:�Ia("Printers:Templates","Printers:Template3D"):�l("","info",1,Gb%):�l("","prntctrl",1,Fb%):�l("","connections",1,Q%):�l("","queue",1,A%!40):�l("","query",1,Db%)
���l("","papersize",1,Cb%):�l("","howquery",1,Bb%):�l("","shutdown",1,Ab%):�l("","save",1,zb%):�Ka:�icon_write(Gb%,3,�msg_0(A%!12,"VSN")):�j%=0�5:B%=1178878793:C%=40:i%=�(P%+12):�i%=0�253,�msg_1(A%!12,"FA5","ICDF")
�!i%=A%!40:i%!4=j%:ș262350,,i%:ș262340,,i%:A%!(52+4*j%)=i%+8:�:�j%=0�4:B%=1178878793:C%=40:i%=�(P%+12):�i%=0�253,�msg_1(A%!12,"FA5","ICDF")
�'!i%=Fb%:i%!4=j%:ș262350,,i%:�j%=4�
�ș262340,,i%
�U�:B%=1482184792:C%=i%!36+1:i%!28=�(P%+12):�i%!28=0�253,�msg_1(A%!12,"FA5","XXXX")
�
oa%(j%)=i%+8:�:�j%=0�3:a%(j%)!16=a%(4)!16:�:�j%=0�3:�icon_write(Fb%,j%,�msg_0(A%!12,�icon_read(Fb%,j%))):�:�
ݤba(a,b):�a>b�=a�=b
WݤI:�p%:�Ia("Printers:Templates","Printers:Template3D"):�l("","pause",1,p%):�Ka:=p%
Q��Za(Lb%):!O%=Lb%:ș262348,,O%�1:B%=1179014466:C%=O%!76:�P%+16:ș262339,,O%:�
,��pa:�Mb%,i%,t$,ia$,z%,H%,Nb%:�S%:Ȏ!q%�
!/�A%!40:ș262344,,q%�Mb%:B%=q%:C%=Mb%:�P%+36
&p�Fb%:ș262344,,q%�Mb%:ȕMb%:�i%=0�3:a%(i%)!4=a%(4)!4:a%(i%)!12=a%(4)!12:�:z%=A%!48:Ob%=0:ȕz%:Ob%+=1:�z%!40�
+$a%(0)!20=$z%!40
0�:?a%(0)!20=13
5�
:c$a%(1)!20=$z%!8:t$=�!(z%!12+0):ia$=�msg_0(A%!12,"IC"+t$):�ia$="IC"+t$ia$=�msg_1(A%!12,"ICx",t$)
?!$a%(2)!20=ia$:�z%!24�(1<<16)�
Dt$="SHA"
I�:�z%!24�1�
Nt$="ACT"
S�:t$="INA"
X�
]�
b�$a%(3)!20=�msg_0(A%!12,t$):�i%=0�3:ș262370,,a%(i%):a%(i%)!12=a%(i%)!4:a%(i%)!4-=(a%(4)!12-a%(4)!4):�:z%=z%!0:�:S%=Ka%:ȕS%:$a%(0)!20=$S%!4:$a%(1)!20=$S%!8:$a%(2)!20=�msg_0 (A%!12,"IC9"):�S%!20>0�
g"$a%(3)!20=�msg_0 (A%!12,"UNA")
l$�:$a%(3)!20=�msg_0 (A%!12,"INA")
q�
vk�i%=0�3:ș262370,,a%(i%):a%(i%)!12=a%(i%)!4:a%(i%)!4-=(a%(4)!12-a%(4)!4):�:S%=S%!0:�:ș262346,,q%�Mb%:�
{&:�H(!q%,Nb%,H%,z%):�c(H%,z%,1,q%)
��
��
�,��_a(z%):�y%,s$:�z%!40s$=$z%!40�s$=$z%!8
���`a(z%!48,�msg_1(A%!12,"PAU",s$)):!O%=-2:ș262347,,O%:y%=O%!4-O%!20:O%!4=z%!20:ș262350,,O%:y%+=O%!16-680:!O%=z%!48:ș262347,,O%:O%!12=(O%!12-O%!4)+y%:O%!16=140+240:O%!4=y%:O%!8=O%!16-240:O%!28=-1:ș262341,,O%:�
�E��s(Lb%):!O%=24:O%!12=0:O%!16=262347:O%!20=Lb%:ș262375,17,O%,0:�
�*��e:�i%,j%,z%,H%,Nb%:�s(!q%):�A(!q%)�
�ș262342,,q%
�&�:�H(!q%,Nb%,H%,z%):�c(H%,z%,3,q%)
��
��
�#��free_structure(p%):�i%:�p%=0�
�Ȏp%!-4�
� �1146377036:ȕp%:�0<=p%!4-1�
�/�i%=0�p%!4-1:�free_structure(p%!(i%*4+8)):�
��
�.i%=p%!0:B%=1146377036:C%=p%:�P%+16:p%=i%:�
�V�1280266050:�free_structure(p%!0):�free_structure(p%!4):B%=1280266050:C%=p%:�P%+16
�P�1196707401,1196577875,810701907,1381258055,1381257040:B%=p%!-4:C%=p%:�P%+16
�>�1380010051:ȕp%:i%=!p%:B%=1380010051:C%=p%:�P%+16:p%=i%:�
�':�253,�msg_1(A%!12,"FAA",�~(p%-4))
��
��
�3��va(r%):�s$,z%,H%,Nb%,Pb%,i%:Pb%=q%!4:Ȏq%!16�
��0:�I:�x
�
�1:�ab
��2:�q%!36�
9ș262356,,-1:i%=q%+44:�Z%,i%,s$:�icon_write(Q%,30,s$)
�
�3:�bb
�5:�q%!40=4038�
,q%!12=q%!8:q%!16=4:ș262375,17,q%,Pb%:�O
�
�8:�A%!32�
%
�!q%<>20�
*�(q%!20�1)=0Qb%=1�Qb%=2
/�:Qb%=1
4�
98q%!12=q%!8:ș262375,19,q%,Pb%:A%!20=A%!20�1:�cb(Ab%)
>�
C5�10:�#q%!20,"/"+�task_read_env("Printers$Dir",O%)
H,�11:z%=A%!48:ȕz%:�(z%!24�8)<>0�z%<>ra%�
M"r%=z%!12:�r%!0=q%!20�q%!24<=0�
Rcs$=�msg_0(A%!12,"INU"):!q%=32+�s$��3:q%!12=q%!8:q%!16=12:$(q%+28)=s$+�0:ș262375,17,q%,Pb%:z%=0
W�
\�
a�z%z%=z%!0
f�
k
�12:qa%=2
p�1282:�A(q%!32)�
u�db
z�:�H(q%!32,Nb%,H%,z%):�Nb%�
�c(H%,z%,r%,q%)
��:�q%!36�
� �xa%�c (xa%!4,xa%,r%,q%)��db
��
��
��
��262345:�q%!20=Ab%�
��A%!32>0A%!20=A%!20��1
� �:�eb
��
��524609:A%!36=0
��524610:�W%�
�q%!20=-2:q%!24=W%!20:�ab
��:z%=A%!48:�z%�
�%q%!20=1:s$=�msg_0(A%!12,"OKU")+�0
�'�:q%!20=2:s$=�msg_0(A%!12,"OKW")+�0
��
�K!q%=28+�s$��3:q%!12=q%!8:q%!16=524612:$(q%+24)=s$+�0:ș262375,17,q%,Pb%
��
��524611:�q%!4<>Rb%�
�
�q%!0=20�
� �I:�x
��:�q%!12=ha%�
�!�b(�msg_0(A%!12,"FAJ")):�I:�x
�,�:q%!12=q%!8:q%!20=34:ș262375,17,q%,Pb%
��
�
�
�524614:ta%=2
�524626:�W%�
�select_printer(W%,-1,0)
�
:�x
$�w(W%,r%,q%)
)�
.�
3��db:�s$,z%,F$:Ȏq%!32�
8�-2:�A%!48=0�
=.�interactive_help(�msg_0(A%!12,"ICON0")):�
B�
G)�y(q%!36,z%):�z%!40s$=$z%!40�s$=$z%!8
L/�interactive_help(�msg_1(A%!12,"ICON1",s$))
QP�zb%:s$=�msg_0(A%!12,"SAVE"+�q%!36):�s$="SAVE"+�q%!36s$=�msg_0(A%!12,"SAVE")
V�interactive_help(s$)
[V�Ab%:s$=�msg_0(A%!12,"SHTDWN"+�q%!36):�s$="SHTDWN"+�q%!36s$=�msg_0(A%!12,"SHTDWN")
`�interactive_help(s$)
eS�Bb%:s$=�msg_0(A%!12,"HWQRY"+�q%!36):�s$="HWQRY"+�q%!36s$=�msg_0(A%!12,"HWQRY")
j�interactive_help(s$)
oS�Cb%:s$=�msg_0(A%!12,"PAPER"+�q%!36):�s$="PAPER"+�q%!36s$=�msg_0(A%!12,"PAPER")
t�interactive_help(s$)
yS�Db%:s$=�msg_0(A%!12,"QUERY"+�q%!36):�s$="QUERY"+�q%!36s$=�msg_0(A%!12,"QUERY")
~�interactive_help(s$)
�3�A%!40:�interactive_help(�msg_0(A%!12,"QUEUE"))
�#�Q%:F$="CNCT"+�q%!36:�q%!36=13�
�$�icon_set(Q%,13)F$+="b"�F$+="a"
��
��q%!36=35�
�$�icon_set(Q%,35)F$+="b"�F$+="a"
��
��q%!36=37�
�$�icon_set(Q%,37)F$+="b"�F$+="a"
��
�5s$=�msg_0(A%!12,F$):�s$=F$s$=�msg_0(A%!12,"CNCT")
��interactive_help(s$)
�2�Fb%:�interactive_help(�msg_0(A%!12,"PRCTRL"))
�0�Gb%:�interactive_help(�msg_0(A%!12,"INFO"))
�%:ș262388,1,V%,q%!32,q%!36:ȎJ$�
��"ME1":�!V%<>2�
�1�interactive_help(�msg_0(A%!12,"HME1-"+�!V%))
��:�A%!44=0�
�.�interactive_help(�msg_0(A%!12,"HME1-2a"))
�/�:�interactive_help(�msg_0(A%!12,"HME1-2"))
��
��
�P�"ME2","ME3","ME4","ME5","ME6","MP1":�interactive_help(�msg_0(A%!12,"H"+J$))
��"MQ1":�J(Sb%,!V%)�
��!V%>3�Aa%=0�
-�interactive_help(�msg_0(A%!12,"SMQ1-7"))
5�:�interactive_help(�msg_0(A%!12,"SMQ1-"+�(!V%)))
�
�:�!V%<>4�
3�interactive_help(�msg_0(A%!12,"HMQ1-"+�(!V%)))
�:�Aa%!12�
.�interactive_help(�msg_0(A%!12,"HMQ1-4a"))
#0�:�interactive_help(�msg_0(A%!12,"HMQ1-4b"))
(�
-�
2�
7�"MC1":�J(Sb%,!V%)�
<�!V%=6�
A/�interactive_help(�msg_0(A%!12,"SMC1-6")):�
F�
K(ș262358,Fb%,O%,1<<21,1<<21:�!O%=-1�
P-�interactive_help(�msg_0(A%!12,"SMC1-2"))
U/�:�interactive_help(�msg_0(A%!12,"SMC1-0"))
Z�
_3�:�interactive_help(�msg_0(A%!12,"HMC1-"+�!V%))
d�
i�"MC1s":�J(Sb%,!V%)�
n�!V%=7�
s0�interactive_help(�msg_0(A%!12,"SMC1s-7")):�
x�
}�!V%=2�Ja%=0�
�0�interactive_help(�msg_0(A%!12,"SMC1s-2")):�
��
�(ș262358,Fb%,O%,1<<21,1<<21:�!O%=-1�
�.�interactive_help(�msg_0(A%!12,"SMC1s-3"))
�0�:�interactive_help(�msg_0(A%!12,"SMC1s-0"))
��
�4�:�interactive_help(�msg_0(A%!12,"HMC1s-"+�!V%))
��
��
��
��
�p��interactive_help(m$):�Pb%:!q%=24+�m$��3:q%!12=q%!8:q%!16=1283:$(q%+20)=m$+�0:Pb%=q%!4:ș262375,17,q%,Pb%:�
�&��ab:�s$,i%,y%,z%,M%:�q%!20=A%!40�
�X!V%=A%!40:ș262347,,V%:B%=q%!32-V%!16+V%!24:y%=�(P%+44):i%=A%!16:z%=!i%:M%=i%!4:�z%�
�q%!20=-2:q%!24=z%!20
��
��:�y(q%!24,z%)
��
�&�q%!20<>-2�254,�msg_0(A%!12,"OKN")
�Bi%=q%+44:�Z%,i%,s$:i%=�s$:ȕi%>0:�s$,i%,1)="."��s$,i%,1)=":"�
�s$=�s$,i%+1):i%=0
��
�Hi%-=1:�:ba$=s$:A%!36=0:Da%=q%!4:s$=�m(-1):�(z%!32)<>0�(z%!24�36)<>0�
�uș131108,"Printer$Temp",,-1:q%!0=48+�s$��3:q%!12=q%!8:q%!16=2:q%!36=-1:$(q%+44)=s$+�0:ș262375,17,q%,Da%:Fa%=q%!8
���:q%!12=q%!8:ș262375,19,q%,Da%:�select_printer(z%,0,0):ș36,"Printer$Temp",s$,�s$:q%!16=524608:ș262375,18,q%,Da%:�fb (Da%,ba$)
��
�
ݤm(Tb%):�c%:笤x�
�Tb%�
�254,�msg_0(A%!12,"OKAO")
$�:�j(�msg_0(A%!12,"OKAO"),1):=""
�
"�
'c�:Ha%+=1:ș8,17,"<Wimp$ScrapDir>.Printers."+�Ha%�c%:�c%=0:=�S("<Wimp$ScrapDir>.Printers."+�Ha%)
,7��bb:�s$,i%,z%,O$,o$,Ub%,Pb%:�q%!40=4038�q%!20=Fb%�
1�O:�
6�
;Di%=q%+44:�Z%,i%,o$:ș8,17,o$�Ub%:�(Ub%�2)�(q%!40<4096)q%!40=4096
@�q%!20=A%!40�
EX!V%=A%!40:ș262347,,V%:B%=q%!32-V%!16+V%!24:y%=�(P%+44):i%=A%!16:z%=!i%:M%=i%!4:�z%�
Jq%!20=-2:q%!24=z%!20
O�
T�
Y&�q%!20<>-2�254,�msg_0(A%!12,"OKN")
^mA%!36=Fa%<>0�Fa%=q%!12:q%!12=q%!8:q%!16=4:Pb%=q%!4:ș262375,17,q%,Pb%:Fa%=0:�y(q%!24,z%):Ub%=q%!40:�z%=0�
c&�Ub%<>4038�254,�msg_0(A%!12,"OKW")
h�O:�
m�
r�A%!36�
wbș272000,Da%�i%:�Z%,i%,O$:o$=ba$:s$=�task_read_env("Printer$Temp",O%):�s$=""i%=q%+44:�Z%,i%,s$
|p�:i%=q%+44:�Z%,i%,s$:i%=�s$:ȕ�s$,i%,1)<>".":i%-=1:�:o$=�s$,i%+1):i%=1:ȕ�s$,i%,1)<>".":i%+=1:�:O$=�s$,i%-1)
��
� �gb(A%!36,O$,s$,o$,z%,Ub%):�
���eb:ȎJ$�
��"MQ1":�za%�
�*�Aa%Aa%?11=Aa%?11��8�za%!24=za%!24��16
�$�f(-1,za%,Aa%):ya%=0:za%=0:Aa%=0
��
�X�"MC1","MC1s":ș262358,Fb%,O%,1<<21,1<<21:�!O%�O%!4=-1�wa%=0�icon_deselect(Fb%,!O%)
��
�J$="":�
�Q��wa:�s$,z%,M%,N%,Vb%,G$,H%,z$,t%,Qa%,Ra%,Wb%,o$:�C$,z%,mb%,w$,c$,A$:Ȏq%!16�
�
�11:qa%=1
�6�524608:�y(q%!24,z%):�z%=0�254,�msg_0(A%!12,"OKW")
�1M%=z%!32:H%=z%!4:N%=z%!12:�M%=0�(z%!24�36)=0�
�i%=q%+44:�Z%,i%,o$:ȎN%!0�
��5:Vb%=(N%?6�2)<>0
��9:Vb%=0
�:Vb%=(N%?6�1)<>0
��
� �Vb%�
�g$=�m(-1):�N%!0=5�
�%ș36,"PrinterType$5",g$,�g$:�J(5)
�)�:ș36,"PrinterType$10",g$,�g$:�J(10)
��
� G$=g$
��
z$=�m(-1):ș36,"Printer$Temp",z$,�z$:q%!0=20:q%!16=524613:ș262375,18,q%,Da%:ta%=0:�:�v(la%):�ta%:b%=(ta%=2):Wb%=q%!4:�Vb%�
s$=�n(z%,-1):�s$<>""�
�b(s$):�z%!32�
$z%!24=z%!24�4:�i(z%):�f(-1,z%,0)
�
�
!�
&�b%�
+ș8,17,z$�t%,,Qa%,,Ra%:�t%�
0s$=z$:ș8,23,z$�,,,,,,Ub%
5�:�Vb%�
:�N%!0=5�
?�hb($N%!16,G$):�
D�:s$=G$:Ub%=H%!28
I�
N�:�N%!0=9�q$<>""�
S�c$=$(z%!40):K%=�c$," "):ȕK%:�c$,K%,1)=�160:K%=�c$," ",K%+1):�:w$=q$+"RemSpool."+h$+"."+c$:C$=q$+"RemQueue."+h$+"."+�(Na%):ș131080,17,w$�t%,,,,l%;f%:�(l%>0)�((f%�1)=0)�(t%=1)�
X-ș272000,Da%�i%:�Z%,i%,A$:�B (z%,A$,o$)�
]Xb%=W%!4:ș131113,25,w$,C$
b�:ș131080,6,w$
g�
l�
q�
v�select_printer(W%,0,-1):�
{�
��
�?ș272000,Wb%�O$:i%=�o$:ȕi%>0:�o$,i%,1)="."��o$,i%,1)=":"�
�o$=�o$,i%+1):i%=0
��
�%i%-=1:�:�gb(-1,O$,s$,o$,z%,Ub%):�
��
��
���select_printer(z%,0,-1):ș36,"Printer$Temp",,-1:s$=�m(-1):q%!0=48+�s$��3:q%!16=2:q%!36=-1:$(q%+44)=s$+�0:ș262375,17,q%,Da%:Fa%=q%!8
��524613:ta%=1
�:�w(W%,19,q%)
��
��
�+��x:�H%:�z%,c$,Ub%,c$,Zb%,f%,N%:�z:�W%�
�1c$=$W%!40:N%=W%!12:H%=W%!4:Ub%=H%!28:�N%!0=9�
�8ș424578,0,2,c$,0,0�,,,,,Zb%;f%:�(Zb%>0)�((f%�0)=0)�
�ș424323,0,Zb%,c$,Ub%
��
��
��
� �Ja%�
�#z%=A%!48:ȕz%:�(z%!24)�(1<<16)�
��(z%!40=0)�
�H%=z%!4:c$=$H%!4
��:c$=$z%!40
��
��ib (z%)
�
z%=z%!0:�
�
qș131077,"%Wipe <Wimp$ScrapDir>.Printers.* RF~C~V":H%=ua%:ȕH%:�_(H%!16):H%=H%!0:�:�_(A%!12):�w(0,-2,0):�jb:�
(��sa:�H%,z%,Nb%,D$,H$,_b%:笤A(!q%)�
+�H(!q%,Nb%,H%,z%):�z%!40D$=$z%!40�D$=""
1_b%=W%:�c(H%,z%,8,q%):�$(Nb%+16)="configure"�
%�z%!40H$=$z%!40�H$=""
*�H$<>D$�
/�(z%!24�(1<<16))�
48�kb(z%):�i(z%):�f(-1,z%,0):�(H%!24�4)=0�i(Q%)�T(z%)
9I�:�b (�msg_0(A%!12,"OKAP")):H$=D$:�d (1196577875,z%!40):�K (z%!40,D$)
>�
C�
H�z%!20<>-1�_b%<>W%�
M�select_printer(_b%,-1,0)
R�
W�
\�:�q%!24=13�
a
Ȏ!q%�
f!�Q%:�lb:�J$="ME6"ș262356,,-1
k
!q%=Q%:�e
p�Cb%:�mb:!q%=Cb%:�e
u>�zb%:ș262356,,-1:�icon_write(Q%,30,�T(�icon_read(zb%,1)))
z�
�:ș262364,q%!24
��
��
��
�X��U(`b%):�i%:!V%=`b%:ș262348,,V%�1:i%=V%!88:ȕi%:�icon_deselect(`b%,i%-1):i%-=1:�:�
�@��qa:�z%,qb%,M%,ac%,H%,Nb%,H$,D$,B%,C%,_b%:�S%:�A(q%!12)=0�
�-�H(q%!12,Nb%,H%,z%):�z%!40D$=$z%!40�D$=""
�8_b%=W%:�c(Nb%!8,Nb%!12,6,q%):�$(Nb%+16)="configure"�
��z%!40H$=$z%!40�H$=""
��H$<>D$�
��(z%!24�(1<<16))�
�8�kb(z%):�i(z%):�f(-1,z%,0):�(H%!24�4)=0�i(Q%)�T(z%)
�I�:�b (�msg_0(A%!12,"OKAP")):H$=D$:�d (1196577875,z%!40):�K (z%!40,D$)
��
��
��z%!20<>-1�_b%<>W%�
��select_printer(_b%,-1,0)
��
��
�
�:Ȏq%!8�
��1024:Ȏq%!12�
��Fb%:�q%!16�
�笤icon_set(q%!12,q%!16)�
�'�U(q%!12):�icon_select(q%!12,q%!16)
��
��:�U(q%!12)
�
�
�256:Ȏq%!12�
�Fb%:�q%!16�
�icon_set(q%!12,q%!16)�
�icon_deselect(q%!12,q%!16)
�:�icon_select(q%!12,q%!16)
$�
)�
.�
3�64:�q%!12=zb%�nb(!q%,q%!4)
8�2:Ȏq%!12�
=�-2:�g("ME1",-1,0)
B�A%!40:�g("MQ1",-1,0)
G�Fb%:�g("MC1s",-1,0)
L�Q%:Ȏq%!16�
Q�8:�g("ME2",-1,-1)
V�11:�g("ME3",-1,-1)
[�14:�g("ME4",-1,-1)
`�16:�g("ME5",-1,-1)
e�20:�g("ME6",-1,-1)
j�32:�g("SVE",-1,-1)
o�
t!�Cb%:�q%!16=47�g("MP1",-1,-1)
y�
~�4:Ȏq%!12�
��-2:�ob
��Db%:sa%=q%!16
��Bb%:sa%=q%!16
��zb%:�q%!16=2�
�9ș262356,,-1:�icon_write(Q%,30,�T(�icon_read(zb%,1)))
��
��Ab%:ș262356,,-1:�q%!16=3�
�!q%=A%!40:�e:�I:ȎQb%�
��1:ș262364,508
� �2:�x
��
��:A%!20=A%!20��1
��
��Fb%:�q%!16�
�笤icon_set(q%!12,q%!16)�
�'�U(q%!12):�icon_select(q%!12,q%!16)
��
��t(z%,S%,qb%):�z%�
�(�c(z%!4,z%,-3,0):�pb(z%,"configure")
��
��
��Q%:Ȏq%!16�
��0,1,2,3,4,33:�qb
��5:�lb:!q%=Q%:�e
��8:�g("ME2",-1,-1)
�11:�g("ME3",-1,-1)
�14:�g("ME4",-1,-1)
�16:�g("ME5",-1,-1)
�20:�g("ME6",-1,-1)
�32:�g("SVE",-1,-1)
�38:!q%=Q%:�e
�
#�Cb%:Ȏq%!16�
(�42:�mb:!q%=Cb%:�e
-�33:�rb:!q%=Cb%:�e
24�48:B%=1163547472:C%=Ga%:�P%+16:Ga%=0:!q%=Cb%:�e
7&�23,22:�icon_select(Cb%,q%!16):�sb
<�47:�g("MP1",-1,-1)
A�
F!:z%=A%!48:ȕz%:�z%!48=q%!12�
KM%=z%!32:ac%=M%!44:�ac%�
P�ac%!40�
U
�q%!16=4�
Z�n(z%,M%,-1)
_>�:z%!24=z%!24��36:ac%!40=0:�i(z%):�f(-1,z%,0):!q%=z%!48:�e
d�
i�
n�
sz%=0
x
�:z%=z%!0
}�
��
��
��1:Ȏq%!12�
��-2:�ob
��Q%:Ȏq%!16�
��0,1,2,3,4,33:�qb
�
�5:�lb
��
��Cb%:Ȏq%!16�
��42:�mb
��33:�rb
�&�23,22:�icon_select(Cb%,q%!16):�sb
��
��
��
��
��
�-��qb:�c%,h%,i%,n%:c%=-1:�icon_set(Q%,1)�
ܿ�icon_unshade(Q%,15):�icon_unshade(Q%,8):�icon_unshade(Q%,17):�icon_unshade(Q%,11):�icon_unshade(Q%,18):�icon_unshade(Q%,14):�icon_unshade(Q%,19):�icon_unshade(Q%,16):�icon_unshade(Q%,13)
��:�icon_shade(Q%,15):�icon_shade(Q%,8):�icon_shade(Q%,17):�icon_shade(Q%,11):�icon_shade(Q%,18):�icon_shade(Q%,14):�icon_shade(Q%,19):�icon_shade(Q%,16):�icon_shade(Q%,13)
��
��icon_set(Q%,2)�
�3�icon_unshade(Q%,25):�icon_unshade(Q%,20):c%=25
�+�:�icon_shade(Q%,25):�icon_shade(Q%,20)
��
��icon_set(Q%,3)�
]�icon_unshade(Q%,26):�icon_unshade(Q%,27):�icon_unshade(Q%,28):�icon_unshade(Q%,29):c%=26
Q�:�icon_shade(Q%,26):�icon_shade(Q%,27):�icon_shade(Q%,28):�icon_shade(Q%,29)
�
�icon_set(Q%,4)�
H�icon_unshade(Q%,30):�icon_unshade(Q%,32):�icon_unshade(Q%,35):c%=30
>�:�icon_shade(Q%,30):�icon_shade(Q%,32):�icon_shade(Q%,35)
"�
'�c%=-1�
,+�caret_info(h%,i%,n%):�h%=Q%ș262354,-1
1�:�caret_set(Q%,c%)
6�
;�
@*��y(Lb%,�z%):z%=A%!48:ȕz%:�z%!20=Lb%�
Ez%=z%!0:�:�
J;��ob:�z%,bc%,cc%:cc%=�-1:bc%=(q%!8=1):�y(q%!16,z%):�z%�
O �bc%�
T�cc%�T(z%)��tb
Y�:�cc%�
^(�c(z%!4,z%,-3,0):�pb(z%,"configure")
c.�:�select_printer(z%,-1,0):�i(Fb%)�ub(z%)
h�
m�
r�
w�
|
�vb(z%):�
�=��select_printer(z%,dc%,ec%):�fc%,i%,s$:fc%=W%:�ec%W%=z%
�
�W%=0�
�s$=�n(W%,0):�s$<>""�
� �dc%�
�W%!24=W%!24��2
��
��W%!32�
�$W%!24=W%!24�4:�i(W%):�f(-1,W%,0)
��
��W%=fc%�
�/�icon_deselect(-1,fc%!20):ș524632,-1:fc%=0
��
�W%=fc%:�b(s$):�
��
�%�c(W%!4,W%,-6,0):�wb(W%):�z:�dc%�
� �fc%�
�.�icon_deselect(-1,fc%!20):fc%!24=fc%!24��2
��
�]W%!24=W%!24�2:�icon_select(-1,W%!20):ș524608�,,,,i%:�?i%�Z%,i%,s$:ș36,"Printer$",i%,�s$
��:W%=fc%
��
��
�H��wb(z%):�`%:`%=z%!36:ș524612,,`%!8,`%!12,`%!24,`%!16,`%!28,`%!20:�
�8��z:!ba%=20:ba%!12=0:ba%!16=524615:ș262375,17,ba%:�
��ݤC(gc%,z%):�p$,r%,s$,i%:p$=�msg_0(A%!12,"CLM"):!q%=32+�p$��3:q%!12=0:q%!16=11:q%!20=gc%:q%!24=0:$(q%+28)=p$+�0:ș262375,18,q%:qa%=0:ra%=z%:�:�v(la%):�qa%:ra%=0:�qa%=2i%=q%+28:�Z%,i%,s$:=s$
�=""
�ݤn(z%,hc%):�N%,p$,H%,fb%,f%,s$,ic%:�ja$,fb%,ab%,Zb%,c$,K%:�fb%=0�255:aa%?fb%=q%?fb%:�:H%=z%!4:N%=z%!12:g$=�task_read_env("PrinterType$"+�N%!0,ba%):ș6,204,Ia%:ș424324:ȎN%!0�
�1:�hc%�
/p$=�C(1,z%):�p$<>""�=�msg_1(A%!12,"OKI",p$)
�
ic%=�o(1):�ic%=0ic%=3
�z%!24�128�
!%g$="devices#buffer"+�ic%+":$."+�U
&,�:g$="devices#buffer"+�ic%+":$.Parallel"
+�
0
�2:�hc%�
5/p$=�C(2,z%):�p$<>""�=�msg_1(A%!12,"OKJ",p$)
:�
?[ș87,5,N%?4:ș87,6,N%?4:ș87,1,N%!8:ș87,0,N%?5,�1:ș6,204,1�,Ia%:ic%=�o(2):�ic%=0ic%=3
D(g$="devices#buffer"+�ic%+":$.Serial"
I'�4:�$N%!12=""�=�msg_0(A%!12,"OKAG")
N?g$="NetPrint#"+$N%!12+":":ș263872:ș262659,$N%!12:ș263873
S�5:g$="null:":�N%!16<>0�
X&�?(N%!16)>32�?(N%!16)<127g$=$N%!16
]�
b$ș131080,17,g$�fb%;f%:�f%�1fb%=0
g �fb%�
l=ș131085,67,g$�fb%;f%:�(f%�1)=0�#fb%:ș131080,18,g$,H%!28
q*�:ș131080,11,g$,H%!28�fb%;f%:�(f%�1)�
vfb%+=4:�Z%,fb%,s$:=s$
{�
��
� �6:s$=�ca(N%,g$):�s$<>""�=s$
�O�8:ș131107,"PrinterType$8",O%,256,,3�,,f%:O%?f%=13:g$=$O%:�g$=""g$="null:"
��9:�Ja%�
�>c$=$z%!40:ș424578,0,2,c$,0,0�fb%,,,jc%,,Zb%;ab%:�(ab%�1)�
�=�msg_1 (A%!12,"OKAR",c$)
��
�'ș424323,1,Zb%,c$�fb%;ab%:�(ab%�1)�
�=�msg_1 (A%!12,"OKAR",c$)
��
�}q$="Share::_S"+�u(Zb%)+".":ja$="Share::_S"+�u(Zb%)+".RemSpool."+h$:ș293254:ș131080,8,ja$,,,0�fb%;ab%:ș293253:�(ab%�1)�
�=�msg_1 (A%!12,"OKAR",c$)
��
�bja$="Share::_S"+�u(Zb%)+".RemQueue."+h$:ș293254:ș131080,8,ja$,,,0�fb%;ab%:ș293253:�(ab%�1)�
�=�msg_1 (A%!12,"OKAR",c$)
��
�s$=�da:�s$<>""�
�=�msg_1 (A%!12,"OKAR",c$)
��
ߎK%=�c$," "):ȕK%:�c$,K%,1)=�160:K%=�c$," ",K%+1):�:g$="Share::_S"+�u(Zb%)+".RemSpool."+h$+"."+c$:ș293254:ș131080,17,g$�fb%;f%:�f%�1fb%=0
� �fb%�
�=ș131085,67,g$�fb%;f%:�(f%�1)=0�#fb%:ș131080,18,g$,H%!28
�ș293253
�3�:ș131080,11,g$,H%!28�fb%;f%:ș293253:�(f%�1)�
�=�msg_1 (A%!12,"OKAR",c$)
��
�
�:=�msg_1 (A%!12,"OKAR",c$)
�
�
Mș36,"PrinterType$"+�N%!0,g$,�g$:�J(N%!0):�fb%=0�255:q%?fb%=aa%?fb%:�:=""
��xb(ic%):�ic%ș6,21,ic%
�
%5��J(kc%):�x%:�:��:�yb:�xb(�o(x%)):ș6,5,kc%:�
*ș6,245,,255�,x%:�x%<>kc%�
/�zb:ș6,5,kc%:�yb
4�
9�
>��zb:ș6,229:�
C��yb:ș6,229,1:�
H4ݤca(N%,�a$):�c%,f%,s$:笤z�=�msg_0(A%!12,"OKL")
M!�N%!20=0�=�msg_0(A%!12,"OKK")
R>a$="NFS#Printer::"+$N%!20:�N%!24=0a$+=".lp"�a$+="."+$N%!24
W(�N%!28=0a$+=".nobody"�a$+="."+$N%!28
\�N%!32a$+="."+$N%!32
a ș131085,143,a$�c%;f%:�f%�1�
f
Ȏ!c%�
k�204:=�msg_0(A%!12,"OKM")
p):f%=c%+4:�Z%,f%,s$:=s$+" ("+�!c%+")"
u�
z�
ș131085,,c%:=""
�8��g(ka$,lc%,mc%):�y%,i%,nc%,oc%,pc%:�z%,S%,qb%:�lc%�
�qc%=q%!0-64:rc%=q%!4
��
� �mc%�
�q!O%=q%!12:O%!4=q%!16:ș262350,,O%:nc%=O%!16:oc%=O%!20:ș262347,,O%:qc%=O%!20+O%!4+nc%+2:rc%=O%!24+O%!16+oc%-2
��
��ka$="SVE"�
�8�Ab(Ca%!28,�msg_0(A%!12,"OP")):ș262356,,zb%,qc%,rc%
��:Ȏka$�
�y�"ME1":�menu_create(_%,�msg_0(A%!12,"ME1")):�Bb(_%,0,Gb%,0):�a(_%,2,A%!44=0):rc%=96+(5+1)*pa%:�vb%za%=0��y(q%!16,za%)
��"ME2":�R�
�R�menu_create(_%,�msg_0(A%!12,"ME2")+�msg_0(A%!12,"ME2a")+�msg_0(A%!12,"ME2b"))
�?�:�menu_create(_%,�msg_0(A%!12,"ME2")+�msg_0(A%!12,"ME2b"))
��
�*�menu_tick_match(_%,�icon_read(Q%,15))
�V�"ME3":�menu_create(_%,�msg_0(A%!12,"ME3")):�menu_tick_match(_%,�icon_read(Q%,17))
�V�"ME4":�menu_create(_%,�msg_0(A%!12,"ME4")):�menu_tick_match(_%,�icon_read(Q%,18))
�R�"ME5":�menu_create(_%,�msg_0(A%!12,"ME5")):pc%=(_%!28�256)<>0:�(�v=0��q<>0)�
��v=3��q=0�
�-�menu_item(_%,1,�msg_0(A%!12,"ME5c"),pc%)
�/�:�menu_item(_%,1,�msg_0(A%!12,"ME5a"),pc%)
��
��
�*�menu_tick_match(_%,�icon_read(Q%,19))
��"ME6":�lc%�Cb
*�menu_tick_match(_%,�icon_read(Q%,25))
�"MQ1":�lc%�
m�eb:ya%=rc%:!q%=A%!40:ș262347,,q%:B%=ya%-q%!16+q%!24:ya%=�(P%+44):i%=A%!16:za%=!i%:Aa%=i%!4:�Aa%=-1Aa%=0
�Aa%=0�
R�menu_create(_%,�msg_1(A%!12,"MQ1",�msg_0(A%!12,"MQ1a"))):�za%za%!24=za%!24�16
�:�Aa%!12�
=�menu_create(_%,�msg_1(A%!12,"MQ1",�msg_0(A%!12,"MQ1a")))
$?�:�menu_create(_%,�msg_1(A%!12,"MQ1",�msg_0(A%!12,"MQ1b")))
)�
.Aa%?11=Aa%?11�8
3�
8�f(-1,za%,Aa%)
=�
BX�a(_%,0,0):�a(_%,1,0):�a(_%,2,0):�a(_%,3,0):�a(_%,4,0):�a(_%,5,0):�a(_%,6,0):�Aa%=0�
G'�a(_%,4,-1):�a(_%,5,-1):�a(_%,6,-1)
L&�:�Aa%?11�5�a(_%,4,-1)��a(_%,5,-1)
Q�
V�za%!24�36�
[�a(_%,0,-1):�a(_%,1,-1)
`�:�a(_%,2,-1)
e�
j'�"MP1":�create_paper_menu(_%,Cb%,5)
o?�"MC1","MC1s":�menu_create(_%,�msg_0(A%!12,"MC1s")):�Ja%=0�
t�a(_%,2,-1)
y�
~8ș262358,Fb%,O%,1<<21,1<<21:�(!O%=-1�O%!4=-1)�wa%=0�
� �!O%�icon_deselect(Fb%,!O%)
��q%!12=Fb%�q%!16>3�
� �icon_select(Fb%,q%!16):i%=1
�
�:i%=0
��
�
�:i%=2
��
� Ȏi%�
�n�0:�a(_%,0,-1):�a(_%,1,-1):�a(_%,2,-1):�a(_%,3,-1):�a(_%,4,-1):�a(_%,5,-1):�a(_%,7,-1):�A%!48=0�a(_%,6,-1)
��1:�t (z%,S%,qb%):�S%�
�4�a (_%,0,-1):�a (_%,1,-1):�a (_%,2,-1):�S%!20>0�
��a (_%,3,-1)
��:�a (_%,4,-1)
��
��a (_%,5,-1)
��
��z%�
��z%!24�(1<<17)�
�7�a (_%,1,-1):�a (_%,2,-1):�a (_%,3,-1):�a (_%,5,-1)
��
��
��2:�a(_%,0,-1):�a(_%,1,-1)
��
��
�&J$=ka$:�display_menu(0,_%,qc%,rc%)
�
�
���create_paper_menu(�Lb%,`b%,qb%):�`%,i%,pc%:�menu_create(Lb%,�msg_0(A%!12,"MP1")):pc%=(Lb%!28�256)<>0:`%=ja%:i%=0:ȕ`%:�menu_item(Lb%,i%,$`%!4,pc%):i%+=1:`%=`%!0:�:�menu_tick_match(Lb%,�icon_read(`b%,qb%)):�
?��display_menu(z%,_%,sc%,tc%):xa%=z%:ș262356,,_%,sc%,tc%:�
/ݤwas_adjust_used:ș262351,,O%:=(O%!8�1)<>0
.��ta:�bc%,uc%,`%,i%,h%,n%,z%,qb%:�S%:�xa%�
�c(xa%!4,xa%,9,q%):�
#�
(bc%=�was_adjust_used:ȎJ$�
-�"ME1":Ȏ!q%�
2�1:�vb(za%)
7
�2:�tb
<�3:�Db(za%)
A�4:�Fb:�Gb
F�5:�A%!32�
K A%!20=A%!20�1:Qb%=2:�cb(Ab%)
P�:�x
U�
Z�
_-�"ME2":�icon_write(Q%,15,$(!q%*24+40+_%))
d5�"ME3":�icon_write(Q%,17,$(!q%*24+40+_%)):�Hb(-1)
i5�"ME4":�icon_write(Q%,18,$(!q%*24+40+_%)):�Hb(-1)
n�"ME5":�Hb(!q%)
sT�"ME6":�menu_tick_match(_%,�icon_read(Q%,25)):�icon_write(Q%,25,$(!q%*24+40+_%))
x�"MQ1":uc%=-1:Ȏ!q%�
}�0:za%!24=za%!24�4
��1:za%!24=za%!24�32
�'�2:za%!24=za%!24��36:i%=za%!32:�i%�
�i%=i%!44:�i%�
��i%!40�
�i%!40=0:�za%!48�
�!q%=za%!48:�e
��
��
��
��
��3:�A(za%):uc%=0
��4:�Aa%!12�
�Aa%?11=Aa%?11�1
��:Aa%?11=Aa%?11�4
��
��5:Aa%?11=Aa%?11��5
��6:�n(za%,Aa%,-1):uc%=0
��
� �uc%�
��i(za%):�!q%<3�
��f(-1,za%,0)
��:�f(ya%,za%,Aa%)
��
��
�K�"MP1":`%=ja%:i%=!q%:ȕi%:`%=`%!0:i%-=1:�:�i%=0�52�4:Ga%!i%=`%!i%:�:�Ib
��"MC1","MC1s":Ȏ!q%�
�0:�t(z%,S%,qb%):�z%�
(�c(z%!4,z%,-3,0):�pb(z%,"configure")
�
�1:�t(z%,S%,qb%):�z%�
�T(z%)
�
"
�2:�Jb
'
�3:�Kb:�k
,
�4:�Lb:�k
1
�5:�Mb:�k
6�6:�A%!48�
;�0<=va%-1�
@(�i%=0�va%-1:�icon_select(Fb%,i%+4):�
E�
J�
O �Ka%�
T�0<=Ma%-1�
Y,�i%=va%�va%+Ma%:�icon_select(Fb%,i%+4):�
^�
c�
h
wa%=-1
m�7:�U(Fb%)
r�
w�
| �bc%�
�ș262351,,q%:�g(J$,0,0)
� �:�eb
��
��
�<��Fb:�c%,f%,H%,z%,K%,p%,Ra%,s$,f$:�vc%,S%:ș263872:�ia%�
�4f$="<Printers$Dir>"+".Remote.ID"+h$+".Settings1"
�&�:f$="<Printers$Dir>"+".Settings1"
��
�Lș131085,143,f$�c%;f%:�f%�1f%=c%+4:�Z%,f%,s$:�254,�msg_1(A%!12,"OKB",s$)
�D�:��:ș131085,0,c%:ș131080,6,f$:�254,�msg_1(A%!12,"OKB",�$)
�h�#c%,"fv: 1":z%=A%!48:ȕz%:H%=z%!4:�#c%,"cl: "+$H%!4+":"+�H%!40:�#c%,"nm: "+$z%!8:K%=z%!12:�H%!24�4�
�'Ra%=H%!48:�#c%,"cn: "+�Ra%:�1<=Ra%�
� �f%=1�Ra%:p%=!K%:K%+=4:Ȏ-1�
��p%=0:�#c%,"nl: "
�&�p%!-4=1196707401:�#c%,"in: "+�!p%
�%�p%!-4=1196577875:�#c%,"st: "+$p%
�-�p%!-4=810701907:�Z%,p%,s$:�#c%,"s0: "+s$
�:�p%!-4=1381258055:�Y%,p%,s$:�#c%,"gs: "+�ungstrans(s$)
�,�p%!-4=1381257040:�#c%,"pt: "+�p(!p%,H%)
�1:ș131085,,c%:�254,�msg_1(A%!12,"OKC",$z%!8)
��
��
��
�E�:�#c%,"ct: 16_"+�~K%!0:�#c%,"bd: 16_"+�~K%!4:�K%!8�48K%!8=K%!8�8
�B�#c%,"ft: 16_"+�~K%!8:�#c%,"et: ";:�K%!12=0�#c%,10��#c%,$K%!12
�,�#c%,"fl: ";:�K%!16=0�#c%,10��#c%,$K%!16
,�#c%,"ns: ";:�K%!20=0�#c%,10��#c%,$K%!20
,�#c%,"np: ";:�K%!24=0�#c%,10��#c%,$K%!24
,�#c%,"nu: ";:�K%!28=0�#c%,10��#c%,$K%!28
,�#c%,"no: ";:�K%!32=0�#c%,10��#c%,$K%!32
�#c%,"cf: 16_"+�~K%?6
�
!0K%=z%!16:Ra%=H%!36:�#c%,"cs: "+�Ra%:�1<=Ra%�
& �f%=1�Ra%:p%=!K%:K%+=4:Ȏ-1�
+�p%=0:�#c%,"nl: "
0&�p%!-4=1196707401:�#c%,"in: "+�!p%
5%�p%!-4=1196577875:�#c%,"st: "+$p%
:-�p%!-4=810701907:�Z%,p%,s$:�#c%,"s0: "+s$
?:�p%!-4=1381258055:�Y%,p%,s$:�#c%,"gs: "+�ungstrans(s$)
D,�p%!-4=1381257040:�#c%,"pt: "+�p(!p%,H%)
I1:ș131085,,c%:�254,�msg_1(A%!12,"OKC",$z%!8)
N�
S�
X�
]��#c%,"fg: 16_"+�~(z%!24�195+65536+131072):f%=z%!36:�#c%,"pn: "+$f%!4:�#c%,"sn: "+�printer_read_string(z%!40):�#c%,"ic: "+�printer_read_string(z%!44):z%=z%!0:�:S%=Ka%:ȕS%:�S%!20>0�
b��#c%,"cl:":�#c%,"nm: "+$S%!8:�#c%,"ct: 16_9":�#c%,"bd: 16_8":�#c%,"ft: 16_5":�#c%,"et:":�#c%,"fl:":�#c%,"ns:":�#c%,"np:":�#c%,"nu:":�#c%,"no:":�#c%,"cf: 16_0":�#c%,"cs: 2":�#c%,"in: 25600":�#c%,"in: 6":�#c%,"fg: 16_20000":�#c%,"pn:"
g �#c%,"sn: "+$S%!4:�#c%,"ic:"
l�
qkS%=S%!0:�:�#c%:ș131080,18,f$,4038:ș131080,6,�f$):ș131113,25,f$,�f$):ș131080,4,�f$),,,,19:ș263873:�
vR��Gb:�H%,yb%,R%,c%,eb%,U%,wc%,i%,j%,k%,l%,s$,f%,f$:ș263872:H%=ua%:ȕH%:�H%!8�
{
�H%!24�2�
� �ia%�
�If$="<Printers$Dir>"+".Remote.ID"+h$+"."+$H%!4:ș8,8,f$:f$+=".PrData1"
�.�:f$="<Printers$Dir>"+"."+$H%!4+".PrData1"
��
�aș131080,4,�f$),,,,3:ș131085,143,f$�c%;f%:�f%�1f%=c%+4:�Z%,f%,s$:�254,�msg_1(A%!12,"OKB",s$)
�D�:��:ș131085,0,c%:ș131080,6,f$:�254,�msg_1(A%!12,"OKB",�$)
�Veb%=H%!8:yb%=H%!12:ȕeb%:�#c%,$(eb%+12)+":":�#c%,"#":R%=yb%!4:ȕR%:�R%!(R%!4*4+8)�
�T�#c%,"# Usage: "+�R%!(R%!4*4+8):U%=eb%!4:i%=R%+8:ȕU%:�#c%,$(U%+16)+" ";:�!i%=0�
��U%!4=6�
��#c%,48
��:�U%!4=1�
��#c%,48
��
��
��#c%,10
��:j%=!i%:ȎU%!4�
��1:�$(U%+16)="palette:"�
��#c%,�((!j%)�8388607)
��:�#c%,�!j%
��
�$�2:�#c%,�printer_read_string(j%)
�$�3:�#c%,�printer_read_string(j%)
�0�4:�#c%,�ungstrans(�printer_read_string(j%))
��5:�#c%,10:ȎU%!8�
�"�1:�#c%," "+�!j%!0+", "+�!j%!4
�N�2:�#c%," "+�printer_read_string(j%!0):�#c%," "+�printer_read_string(j%!4)
N�3:�#c%," "+�printer_read_string(j%!0):�#c%," "+�printer_read_string(j%!4)
f�4:�#c%," "+�ungstrans(�printer_read_string(j%!0)):�#c%," "+�ungstrans(�printer_read_string(j%!4))
.�7:�#c%," "+�p(!j%!0,H%)+", "+�p(!j%!4,H%)
�
?�6:k%=j%:l%=0:ȕk%:l%+=1:k%=!k%:�:�#c%,�l%:ȕj%:�0<=j%!4-1�
(�k%=0�j%!4-1:l%=j%!(k%*4+8):Ȏl%!-4�
#�1196707401:�#c%," "+�!l%+", ";
%"�1196577875:�#c%," "+$l%+", ";
**�810701907:�Z%,l%,s$:�#c%," "+s$+", ";
/7�1381258055:�Y%,l%,s$:�#c%," "+�ungstrans(s$)+", ";
4)�1381257040:�#c%," "+�p(!l%,H%)+", ";
9�
>�
C�
H �#c%=�#c%-2:�#c%,10:j%=!j%:�
M�7:�#c%,�p(!j%,H%)
RF�8:k%=j%:l%=0:ȕk%:l%+=1:k%=!k%:�:�#c%,�l%:ȕj%:s$=�j%?4:�1<=j%?5�
W�k%=1�j%?5:s$+=�j%?(k%+5):�
\�
a$�#c%," "+�ungstrans(s$):j%=!j%:�
f�
k�
pU%=U%!0:i%+=4:�:�#c%,"#"
u�
z�R%=R%!0:�:eb%=eb%!0:yb%=yb%!0:�:�#c%:ș131080,18,f$,4038:ș131080,6,�f$):ș131113,25,f$,�f$):ș131080,4,�f$),,,,19:H%!24=H%!24��2
�
��
��
�H%=H%!0:�:ș263873:�
�Vݤp(p%,H%):�yb%,R%,eb%,xc%,yc%:yb%=H%!12:ȕyb%:R%=yb%!4:yc%=0:ȕR%:�R%!(R%!4*4+8)�
�yc%+=1:�p%=R%�
�9eb%=H%!8:ȕxc%:eb%=eb%!0:xc%-=1:�:=$(eb%+12)+":"+�yc%
��
��
�<R%=R%!0:�:xc%+=1:yb%=yb%!0:�:�b(�msg_0(A%!12,"FAF")):=""
�1ݤi(h%):!V%=h%:ș262347,,V%:=(V%!32�1<<16)<>0
���vb(z%):笤i(Fb%)�
��A%!48�Ka%�
��k
��
��
��s(Fb%):�p(Fb%):�ub(z%):�
���ub(z%):�p%:�z%�
�Oș262358,Fb%,O%,1<<21,1<<21:p%=O%:ȕ�!p%:�!p%<>z%!28�icon_deselect(Fb%,!p%)
�0p%+=4:�:�(z%!24�44)=0�icon_select(Fb%,z%!28)
��
��
���B(p%):�K%,i%,sb%:�p%=0�
�Ȏp%!-4�
�7�1381257040:K%=!p%:sb%=K%+K%!4*4+8:!sb%-=1:�!sb%=0�
�sb%=K%+8:�1<=K%!4�
�i%=1�K%!4:�B(!sb%):sb%+=4:�
�
�
!�1280266050:�B(p%!0):�B(p%!4)
�1146377036:ȕp%:�0<=p%!4-1�
"�K%=0�p%!4-1:�B(p%!(K%*4+8)):�
�
$
p%=p%!0:�
)�
.�
3b��Nb(la$):�H%,yb%,zc%,R%,i%,j%,k%,l%,sb%:H%=ua%:ȕH%:zc%=0:yb%=H%!12:R%=yb%!4:ȕR%:�$R%!8=la$�
8�(R%!(R%!4*4+8))=0�
=H%!24=H%!24�2:�0<=R%!4-1�
B?�i%=0�R%!4-1:sb%=R%!(i%*4+8):�B(sb%):�free_structure(sb%):�
G�
L �zc%�
Qzc%!0=R%!0
V�:yb%!4=R%!0
[�
`B%=1413763664:C%=R%:�P%+16
e�
j
R%=0:H%=0
o�:zc%=R%:R%=R%!0
t�
y�:�H%H%=H%!0
~�:�
�*��q(ma$):�S(�msg_1(A%!12,"OKZ",ma$)):�
�E��Ob(�H%):�K%,J%,c%,d%:J%=�b("cl:"):�J%=0�q(�msg_0(A%!12,"OKZa"))
�H%=ua%:ȕH%:�$H%!4=$J%�
��H%!24�32�
�]ș131080,7,"PrinterChoices:"+$J%+".WriteTest"�;c%:�(c%�1)�m:�254,�msg_1(A%!12,"OKAN",$J%)
�7ș131080,6,"PrinterChoices:"+$J%+".WriteTest"�d%;c%
��
�"K%=!wb%:�Pb(H%,H%!8):!wb%=K%:�
�
�:H%=H%!0
��
��:�H%=0�
�/�Ra:�Ga($J%):�Ha($J%,H%):�Sa:�Na:�H%!24�32�
�]ș131080,7,"PrinterChoices:"+$J%+".WriteTest"�;c%:�(c%�1)�m:�254,�msg_1(A%!12,"OKAN",$J%)
�1ș131080,6,"PrinterChoices:"+$J%+".WriteTest"
��
��c(H%,A%!48,-5,0)
��
�%�H%=0�q(�msg_1(A%!12,"OKZb",$J%))
��
�7��Pb(H%,eb%):�U%,J%:U%=eb%!4:�:J%=�b($(U%+16)):�J%�
�ȎU%!4�
��5:�Qb(H%,eb%,$J%)
�/�6:�?J%=13�q(�msg_1(A%!12,"OK7a",$(U%+16)))
��Rb(H%,eb%,$J%)
��7:�V(H%,eb%,$J%)
/�8:�?J%=13�q(�msg_1(A%!12,"OK7a",$(U%+16)))
�Sb(H%,eb%,$J%)
�
�
U%=U%!0:�U%=0:�
)��Qb(H%,eb%,t$):�J%,na$,i$:J%=�d:�J%�
ȎU%!8�
#!�1:J%=�K(J%,Ac%):�?J%=13J%=�d
($�2,3,4:J%=�r(J%,i$):�?J%=13J%=�d
-.�7:J%=�r(J%,i$):�V(H%,eb%,i$):�?J%=13J%=�d
2�V(H%,eb%,$J%)
7�
<�
A�
F2��Rb(H%,eb%,t$):�i%,p%,Bc%,J%:Bc%=�t$:�1<=Bc%�
K�i%=1�Bc%:J%=�d:�J%�
P&p%=U%!8:ȕp%:�p%!4=7�V(H%,eb%,$J%)
Up%=!p%:�
Z�
_�
d�
i�
nI��V(H%,eb%,c$):�i%,s$,t$:i%=�c$,":"):�i%=0�q(�msg_1(A%!12,"OKAA",c$))
s;s$=�c$,i%-1):t$=�c$,i%+1):eb%=H%!8:ȕeb%:�$(eb%+12)=s$�
x�t$>0�
}�
��:�Pb(H%,eb%):�
��
��:eb%=eb%!0
��
�#�:�q(�msg_1(A%!12,"OKAB",s$)):�
�,��Sb(H%,eb%,t$):�i%,Bc%:Bc%=�t$:�1<=Bc%�
��i%=1�Bc%:�d
��
��
��
�b��O:�J%,H%,K%,s$,U%,Cc%,Dc%,Fc%,Gc%,Hc%:J%=q%+44:�Z%,J%,s$:笤l(s$)�254,�msg_1(A%!12,"OKX",s$)
�$ș263872:�Ob(H%):Fc%=H%!12:�Fc%�
�Cc%=Fc%!4:�Cc%�
�0K%=!wb%:U%=H%!8:U%=U%!4:J%=�b($(U%+16)):�J%�
�ȕCc%:�$Cc%!8=$J%�
��m:ș263873:�Tb(H%,Cc%):�
��
�Dc%=Cc%:Cc%=Cc%!0:�
�'�:�q(�msg_1(A%!12,"OKZc",$(U%+16)))
��
�!wb%=K%
��:Dc%=0
��
��:Dc%=0
��
�I�W(H%!8,Dc%,Fc%,0,Gc%,Hc%,H%):�m:H%!24=H%!24�2:�Tb(H%,Dc%):ș263873:�
0��S(s$):�m:�254,�G(A%!12,"OK0",�xb%,V$,s$):�
3��h(H%,s$,oa$):�S(�msg_2(A%!12,oa$,$H%!4,s$)):�
`��La(Ic%):�J%,T%,Jc%,i%,Kc%,Lc%,Mc%,Nc%:J%=�b("tp:"):�J%=0�h(Ic%,�msg_0(A%!12,"OK3"),"OK2a")
�:J%=�d:�J%�
T%=�a(J%,"tp:"):�T%�
bJc%+=1:B%=1414548820:C%=12+1+�$T%:Kc%=�(P%+12):�Kc%=0�h(Ic%,�msg_1(A%!12,"FA5","TMPT"),"OK2a")
" �Lc%�
'
Lc%!0=Kc%
,�:Ic%!8=Kc%
1�
6/Kc%!0=0:Kc%!4=0:Kc%!8=0:$(Kc%+12)=$T%:Nc%=0
;�:T%=�a(J%,"end:"):�T%�
@/�?T%<>13�h(Ic%,�msg_0(A%!12,"OK3a"),"OK2a")
EJc%-=1:Lc%=Kc%
J>�:i%=�$J%,":"):�i%=0�h(Ic%,�msg_1(A%!12,"OK4",$J%),"OK2a")
O2�Jc%<>1�h(Ic%,�msg_1(A%!12,"OK4a",$J%),"OK2a")
TbKc%!8+=1:B%=1498567758:C%=16+1+i%:Mc%=�(P%+12):�Mc%=0�h(Ic%,�msg_1(A%!12,"FA5","NTRY"),"OK2a")
Y�Nc%Nc%!0=Mc%�Kc%!4=Mc%
^FMc%!0=0:Mc%!4=0:Mc%!8=0:Mc%!12=0:$(Mc%+16)=�$J%,i%):J%+=i%+1:Ȏ-1�
cɤa(J%,"in")<>0:Mc%!4=1
hɤa(J%,"st")<>0:Mc%!4=2
mɤa(J%,"s0")<>0:Mc%!4=3
rɤa(J%,"gs")<>0:Mc%!4=4
wJɤa(J%,"bl")<>0:Mc%!4=5:T%=�a(J%,"bl"):ȕ?T%=32:T%+=1:�:�?T%=�","T%+=1
| Ȏ-1�
�ɤa(T%,"in")<>0:Mc%!8=1
�ɤa(T%,"st")<>0:Mc%!8=2
�ɤa(T%,"s0")<>0:Mc%!8=3
�ɤa(T%,"gs")<>0:Mc%!8=4
�ɤa(T%,"ptr")<>0:Mc%!8=7
�,:�h(Ic%,�msg_1(A%!12,"OK5",$T%),"OK2a")
��
�:ɤa(J%,"ls")<>0:Mc%!4=6:T%=�a(J%,"ls"):�Ub(T%,Mc%,Ic%)
�ɤa(J%,"ptr")<>0:Mc%!4=7
�ɤa(J%,"ch")<>0:Mc%!4=8
�,:�h(Ic%,�msg_1(A%!12,"OK6",$J%),"OK2a")
��
�Nc%=Mc%
��
��
��
�
�Jc%=-1:�
�K��Ub(Oc%,U%,Ic%):�wc%,K%,t%:K%=U%+8:�:ȕ?Oc%=32:Oc%+=1:�:�?Oc%=44Oc%+=1
�!ȕ?Oc%=32:Oc%+=1:�:�?Oc%<>13�
�RU%!12+=1:B%=1414744396:C%=8:wc%=�(P%+12):�wc%=0�253,�msg_1(A%!12,"FA5","LIST")
�/!K%=wc%:K%=wc%:wc%!0=0:t%=�a(Oc%,"in"):�t%�
�Oc%=t%:wc%!4=1
��:t%=�a(Oc%,"st"):�t%�
�Oc%=t%:wc%!4=2
��:t%=�a(Oc%,"s0"):�t%�
�Oc%=t%:wc%!4=3
�:t%=�a(Oc%,"gs"):�t%�
Oc%=t%:wc%!4=4
�:t%=�a(Oc%,"ptr"):�t%�
Oc%=t%:wc%!4=7
-�:�h(Ic%,�msg_1(A%!12,"OK7",$Oc%),"OK2a")
�
!�
&�
+�
0�
5�
:�?Oc%=13:�
?Mݤb(m$):�Pc%,i%:i%=Qc%+!wb%:ȕi%<Qc%+Rc%:ȕ?i%=32:i%+=1:�:�?i%=35�?i%=13�
Di%+=�$i%+1:xb%+=1
I�:�m$=�$i%,�m$)�
NDPc%=i%+�m$:ȕ?Pc%=32:Pc%+=1:�:i%+=�$i%+1:!wb%=i%-Qc%:xb%+=1:=Pc%
S�:i%+=�$i%+1:xb%+=1
X�
]�
b�:=0
gIݤd:�Pc%,i%:i%=Qc%+!wb%:ȕi%<Qc%+Rc%:ȕ?i%=32:i%+=1:�:�?i%=35�?i%=13�
l!i%+=�$i%+1:!wb%=i%-Qc%:xb%+=1
q/�:Pc%=i%:i%+=�$i%+1:!wb%=i%-Qc%:xb%+=1:=Pc%
v�
{�:=0
�.ݤa(J%,m$):ȕ?J%=32:J%+=1:�:�m$=�$J%,�m$)�
� J%+=�m$:ȕ?J%=32:J%+=1:�:=J%
��
�=0
�o��W(eb%,�Dc%,Fc%,Sc%,�Gc%,�Hc%,H%):�_a%,Tc%,Uc%,J%,T%,U%,i%,Ra%:U%=eb%!4:_a%=-1:�:Uc%=!wb%:Gc%=0:J%=�d:�J%�
��_a%=-1�
�[Ra%=4*eb%!8+8:B%=1413763664:C%=Ra%+8:Tc%=�(P%+12):�Tc%=0�253,�msg_1(A%!12,"FA5","PRDT")
��0<=Ra%+7�
��i%=0�Ra%+7�4:Tc%!i%=0:�
��
��Dc%Dc%!0=Tc%�Fc%!4=Tc%
�Tc%!4=eb%!8:_a%=8
��
��:T%=�a(J%,$(U%+16)):�T%�
�Gc%=1:ȎU%!4�
�&�1:Tc%!_a%=�store_integer(�c($T%))
�)�2,3,4:B%=T%:C%=U%!4:Tc%!_a%=�(P%+28)
��5:Tc%!_a%=�ea(U%,Hc%)
�3�6:�?T%=13�h(H%,�msg_1(A%!12,"OK7a",$J%),"OK2")
�Tc%!_a%=�fa(U%,�c($T%),Hc%)
�%�7:�?T%<>13�X(H%,$T%,Tc%+_a%,Hc%)
�3�8:�?T%=13�h(H%,�msg_1(A%!12,"OK7a",$J%),"OK2")
�Tc%!_a%=�ga(U%,�c($T%))
��
��
�_a%+=4:U%=U%!0:�U%=0�Gc%
�
�Gc%=0�
�!wb%>=Rc%Gc%=3
-!wb%=Uc%:U%=eb%!4:T%=�a(J%,$(U%+16)):�T%�
Gc%=1
0�:eb%=eb%!0:T%=�a(J%,$(eb%+12)+":"):�T%Gc%=2
�
%U%=0
*�
/�U%=0:Dc%=Tc%:�
4���Ma(H%):�eb%,s$,J%,Uc%,U%,Gc%,Tc%,Dc%,Fc%,Sc%,Hc%,i%:eb%=H%!8:�:J%=�b($(eb%+12)+":"):�J%=0�h(H%,�msg_1(A%!12,"OK8",$(eb%+12)),"OK2")
9RB%=1145128264:C%=12:Fc%=�(P%+12):�Fc%=0�h(H%,�msg_1(A%!12,"FA5","HEAD"),"OK2")
>+Fc%!0=0:Fc%!4=0:�Sc%Sc%!0=Fc%�H%!12=Fc%
C;Dc%=0:�:U%=eb%!4:�W(eb%,Dc%,Fc%,Sc%,Gc%,Hc%,H%):�Gc%=0�
H.J%=�d:�h(H%,�msg_1(A%!12,"OK9",$J%),"OK2")
M�
R��Gc%<>1:eb%=eb%!0:Sc%=Fc%:�eb%=0:ȕHc%:i%=Hc%!4:s$=$!i%:B%=1381257040:C%=!i%:�P%+16:B%=1381257040:C%=4:!i%=�(P%+12):�!i%=0�h(H%,�msg_1(A%!12,"FA5","POTR"),"OK2")
WA!!i%=�H(s$,-1):i%=Hc%:Hc%=!Hc%:B%=1482184792:C%=i%:�P%+16:�:�
\_ݤH(s$,Vc%):�j%,k%,t$:j%=�s$,":"):t$=�s$,j%+1):s$=�s$,j%-1):j%=H%!8:k%=0:ȕj%:�$(j%+12)=s$�
a\j%=H%!12:ȕk%:j%=j%!0:k%-=1:�:k%=�t$-1:j%=j%!4:ȕk%:j%=j%!0:k%-=1:�:�Vc%j%!(j%!4*4+8)+=1
f=j%
k�:j%=j%!0:k%+=1
p�
u&�:�b(�msg_2(A%!12,"FAG",s$,t$)):=0
z_ݤstore_integer(v%):�b%:B%=1196707401:C%=4:b%=�(P%+12):�b%=0�253,�msg_1(A%!12,"FA5","INTG")
!b%=v%:=b%
�6ݤS(s$):�t$,i%,Wc%:ș39,s$,O%,256�,,Wc%:�Wc%=0�=""
� �i%=0�Wc%-1:t$+=�O%?i%:�:=t$
�(ݤungstrans(s$):�t$,i%,c%:�s$=""�=""
�4�i%=1��s$:c%=��s$,i%,1):�c%>=128c%-=128:t$+="|!"
��c%<32c%+=64:t$+="|"
��c%=127c%=63:t$+="|"
��"|<""",�c%)�t$+="|"
�t$+=�c%:�:=t$
�cݤea(U%,�Hc%):�J%,Ac%,b%,i$:B%=1280266050:C%=8:b%=�(P%+12):�b%=0�253,�msg_1(A%!12,"FA5","BOOL")
�J%=�d:�J%�
�ȎU%!8�
�:�1:J%=�K(J%,Ac%):b%!0=�store_integer(Ac%):�?J%=13J%=�d
� b%!4=�store_integer(�c($J%))
�G�2,3,4:J%=�r(J%,i$):$q%=i$:B%=q%:C%=U%!8:b%!0=�(P%+28):�?J%=13J%=�d
�B%=J%:C%=U%!8:b%!4=�(P%+28)
�3�7:J%=�r(J%,i$):�X(H%,s$,b%+0,Hc%):�?J%=13J%=�d
��X(H%,$J%,b%+4,Hc%)
��
��
�=b%
�?ݤfa(U%,Xc%,�Hc%):�i%,K%,Zc%,_c%,J%,`c%,ad%,Ac%,i$:�1<=Xc%�
�[�i%=1�Xc%:B%=1146377036:C%=4*U%!12+8:Zc%=�(P%+12):�Zc%=0�253,�msg_1(A%!12,"FA5","LSTD")
��_c%_c%!0=Zc%�K%=Zc%
�(Zc%!0=0:Zc%!4=U%!12:ad%=8:J%=�d:�J%�
�`c%=U%!8:ȕ`c%:Ȏ`c%!4�
0�1:J%=�K(J%,Ac%):Zc%!ad%=�store_integer(Ac%)
>�2,3,4:J%=�r(J%,i$):$q%=i$:B%=q%:C%=`c%!4:Zc%!ad%=�(P%+28)
)�7:J%=�r(J%,i$):�X(H%,i$,Zc%+ad%,Hc%)
�
`c%=!`c%:ad%+=4:�
�
_c%=Zc%:�
$�
)=K%
.1ݤga(U%,Xc%):�i%,Zc%,J%,_c%,K%,j%,t$:�1<=Xc%�
3�i%=1�Xc%:J%=�d:�J%�
8Xt$=�S($J%):B%=1380010051:C%=5+�t$:Zc%=�(P%+12):�Zc%=0�253,�msg_1(A%!12,"FA5","CHAR")
=4Zc%!0=0:Zc%?4=�t$:Zc%?5=�t$-1:t$=�t$,2):�1<=�t$�
B%�j%=1��t$:Zc%?(j%+5)=��t$,j%,1):�
G�
L�_c%_c%!0=Zc%�K%=Zc%
Q�
V
_c%=Zc%:�
[�
`=K%
ez��X(H%,c$,bd%,�Hc%):�i%,s$,t$,cd%,dd%,Sc%,eb%,Dc%,ed%,Gc%,Tc%,t$:i%=�c$,":"):�i%=0�h(H%,�msg_1(A%!12,"OKAA",c$),"OK2")
jKs$=�c$,i%-1):t$=�c$,i%+1):eb%=H%!8:ed%=H%!12:Sc%=0:ȕeb%:�$(eb%+12)=s$�
o�t$>0�
tKB%=1381257040:C%=�c$+1:i%=�(P%+12):�i%=0�253,�msg_1(A%!12,"FA5","POTR")
yX$i%=c$:!bd%=i%:B%=1482184792:C%=8:cd%=�(P%+12):�cd%=0�253,�msg_1(A%!12,"FA5","XXXX")
~ !cd%=Hc%:cd%!4=bd%:Hc%=cd%:�
��:�ed%�
�Dc%=ed%!4:�Dc%�
�ȕDc%!0:Dc%=Dc%!0:�
��
��:Dc%=0
��
�8dd%=Dc%:�W(eb%,Dc%,ed%,Sc%,Gc%,Hc%,H%):�Gc%=0�Dc%=0�
�J%=�d:�J%t$=$J%�t$=""
�'�h(H%,�msg_1(A%!12,"OK9",t$),"OK2")
��
�*Tc%=ed%!4:ȕTc%<>Dc%:�Tc%!(Tc%!4*4+8)�
�Gc%=-1:�0<=Tc%!4-1�
�'�i%=0�Tc%!4-1:笤D(Tc%,Dc%,i%*4+8)�
�Gc%=0:i%=Tc%!4
��
��
��
� �Gc%�
��0<=Dc%!4-1�
�A�i%=0�Dc%!4-1:cd%=Dc%!(i%*4+8):�B(cd%):�free_structure(cd%):�
��
�/dd%!0=0:B%=1413763664:C%=Dc%:�P%+16:Dc%=Tc%
��:Tc%=!Tc%
��
��:Tc%=!Tc%
�
I�:B%=1381257040:C%=4:i%=�(P%+12):�i%=0�253,�msg_1(A%!12,"FA5","POTR")
(!i%=Dc%:!bd%=i%:Dc%!(Dc%!4*4+8)+=1:�
�
�:eb%=eb%!0:�t$=0�
Sc%=ed%:ed%=ed%!0
�
#�
(,�:�h(H%,�msg_1(A%!12,"OKAB",s$),"OK2"):�
-6ݤD(s%,d%,o%):�s$,d$:s%=s%!o%:d%=d%!o%:�s%=0�d%=0�
2=(s%=d%)
7�:Ȏs%!-4�
<�1196707401:=!s%=!d%
A�1196577875:=$s%=$d%
F)�810701907:�Z%,s%,s$:�Z%,d%,d$:=s$=d$
K*�1381258055:�Y%,s%,s$:�Y%,d%,d$:=s$=d$
P�1280266050:=�ha(s%,d%)
U�1146377036:=�ia(s%,d%)
Z�1381257040:=!s%=!d%
_�1380010051:=�ja(s%,d%)
d&:�b(�msg_1(A%!12,"WA10",�~s%!-4))
i�
n�
s=0
x,ݤha(s%,d%):�D(s%,d%,0)�=�D(s%,d%,4)�=0
}$ݤia(s%,d%):�i%:ȕs%:�0<=s%!4-1�
�&�i%=0�s%!4-1:笤D(s%,d%,i%*4+8)�=0
��
��
�s%=s%!0:d%=d%!0:�:=-1
�'ݤja(s%,d%):�i%:ȕs%:�s%?4<>d%?4�=0
��s%?5<>d%?5�=0
�)i%=s%?5:ȕi%:�s%?(i%+5)<>d%?(i%+5)�=0
�i%-=1:�:s%=!s%:d%=!d%:�:=-1
�.ݤK(fd%,�Ac%):�i%,gd%:i%=�$fd%,","):�i%=0�
�Ac%=�c($fd%):gd%=fd%+�$fd%
�7�:Ac%=�c(�$fd%,i%-1)):gd%=fd%+i%:ȕ?gd%=32:gd%+=1:�
��
�=gd%
Õݤr(fd%,�i$):�i%,pa$,hd%,id%:i$="":i%=0:È•fd%?i%=32:i%+=1:�:hd%=-1:id%=(fd%?i%=34):ȕ�(fd%?i%=13�(hd%�fd%?i%=44)):�id%�fd%?i%<>34�hd%i$+=�fd%?i%
��id%�fd%?i%=34hd%=�hd%
�i%+=1:�:�fd%?i%=13�
�gd%=fd%+i%
�%�:gd%=fd%+i%+1:ȕ?gd%=32:gd%+=1:�
��
�=gd%
�dݤl(c$):�c%,i%,jd%,kd%,ld%,md%,nd%,gd%,od%,kb%:ș8,17,c$�c%,,jd%,,Rc%:�(c%=0�c%=1)�ș8,19,c$,c%
��c%=0�=0
�*�(jd%>>>20)=4095kd%=jd%>>8�4095�kd%=-1
�*�kd%<>4038�254,�msg_1(A%!12,"OKAL",c$)
�QB%=1096040772:C%=4+Rc%+1:Qc%=�(P%+12)+4:�Qc%=4�253,�msg_1(A%!12,"FA5","DATA")
�,ș8,16,c$,Qc%:�Rc%>=20�Qc%!0=1213419859�
mș272129,8,-1�ld%:nd%=Qc%!4:B%=1096040772:C%=4+nd%+1:gd%=�(P%+12)+4:�gd%=4�253,�msg_1(A%!12,"FA5","DATA")
Jș131102,6,,,ld%�C%,,md%;kb%:�(kb%�1)�253,�msg_1(A%!12,"FA5","squash")
fș272129,4,md%,Qc%+20,Rc%-20,gd%,nd%�od%:ș30,7,,md%:B%=1096040772:C%=Qc%-4:�P%+16:Qc%=gd%:Rc%=nd%
�
Uwb%=Qc%-4:!wb%=0:xb%=1:B%=Qc%:C%=Rc%:�P%+52:�Qc%?(Rc%-1)<>13Rc%+=1:Qc%?(Rc%-1)=13
V$=c$:=-1
"3��m:B%=1096040772:C%=Qc%-4:�P%+16:Qc%=0:Rc%=0:�
'1��Ra:pd%=Qc%:qd%=wb%:rd%=Rc%:sd%=xb%:qa$=V$:�
,1��Sa:Qc%=pd%:wb%=qd%:Rc%=rd%:xb%=sd%:V$=qa$:�
1u��Tb(H%,R%):�s%,t%,s$,z%,N%:R%!(R%!4*4+8)+=1:B%=1414419024:C%=68:z%=�(P%+12):�z%=0�253,�msg_1(A%!12,"FA5","PRNT")
6�A%!48�
;%s%=A%!48:ȕs%!0:s%=s%!0:�:s%!0=z%
@�:A%!48=z%
E�
Jrz%!0=0:z%!4=H%:B%=R%!8:C%=2:z%!8=�(P%+28):B%=1413697091:C%=36:N%=�(P%+12):�N%=0�253,�msg_1(A%!12,"FA5","CNCT")
Ofș6,161,15�,,s%:N%!0=(s%�224)>>5:N%?4=1+((s%�28)>>2):N%?5=0:ș6,161,16�,,s%:N%!8=(s%�224)>>5:笤t�
TN%!12=0
Y(�:ș6,161,3�,,s%:ș6,161,4�,,t%:�s%�
^-$q%=�t%+"."+�s%:B%=q%:C%=2:N%!12=�(P%+28)
c8�:s$=�t%:�s%=1�5:ș6,161,152+s%�,,t%:�t%s$+=�t%�s%=5
h&�:$q%=s$:B%=q%:C%=2:N%!12=�(P%+28)
m�
r�
w�ș131107,"PrinterType$5",O%,256,,3�,,t%:O%?t%=13:B%=O%:C%=2:N%!16=�(P%+28):N%!20=0:N%!24=0:N%!28=0:N%!32=0:N%?6=0:z%!12=N%:B%=1195789891:C%=4*H%!36:s%=�(P%+12):�s%=0�253,�msg_1(A%!12,"FA5","CNFG")
|�0<=H%!36-1�
��t%=0�H%!36-1:s%!(t%*4)=0:�
��
�Pz%!16=s%:z%!20=-1:z%!24=0:z%!28=-1:z%!32=0:z%!36=0:z%!40=0:z%!44=0:�H%!32�4�
�z%!48=�I
�
�:z%!48=0
��
�2z%!52=0:�c(H%,z%,-4,0):�H%!24�4�c(H%,z%,-12,0)
��k:�H%!24�8�
�z%!56=10*H%?(24+1)
��:z%!56=-1
��
��Z(z%):�
�X��t(�z%,�S%,�qb%):ș262358,Fb%,O%,1<<21,1<<21:qb%=!O%:S%=0:z%=A%!48:ȕz%:�z%!28=qb%�
��
�
�:z%=z%!0
��
��:S%=Ka%:ȕS%:�S%!16=qb%�
��
�
�:S%=S%!0
��
��:�
�V��Vb (�z%,�qb%):ș262358,Fb%,O%,1<<21,1<<21:qb%=!O%:S%=0:z%=A%!48:ȕz%:�z%!28=qb%�
��
�
�:z%=z%!0
��
��:�
O��Wb (�S%,�qb%):ș262358,Fb%,O%,1<<21,1<<21:qb%=!O%:S%=Ka%:ȕS%:�S%!16=qb%�
�
�:S%=S%!0
�
�:�
@��T(z%):�N%,i%,td%,ud%,vd%:�z%!24�8�254,�msg_0(A%!12,"OKAJ")
!,Ba%=z%:Ca%=z%!4:N%=z%!12:�z%!24�(1<<17)�
&�
+�
0�Ca%!24�4�
5m�c(Ca%,Ba%,-11,0):�s(�printer_find_window(Ba%,"connections")):�p(�printer_find_window(Ba%,"connections"))
:>�:�z%!40�icon_write(Q%,31,$z%!40)��icon_write(Q%,31,$z%!8)
?4�N%?6�1�icon_select(Q%,37)��icon_deselect(Q%,37)
D��icon_deselect(Q%,0):�icon_deselect(Q%,1):�icon_deselect(Q%,2):�icon_deselect(Q%,3):�icon_deselect(Q%,4):�icon_deselect(Q%,33):i%=-1:ȎN%!0�
I�1:i%=0
N�2:i%=1
S�4:�t i%=2
X�5:i%=4
]�6:�z i%=3
b�8:�Ca%!24�16i%=33
g�
l�i%�icon_select(Q%,i%)
qs�icon_write(Q%,15,�msg_0(A%!12,"BR"+�N%?4)):i%=N%!8:td%=i%�3:vd%=(i%�4)>>2:ud%=(i%�48)>>4:�(i%�8)=0ud%=0�ud%+=1
va�icon_write(Q%,17,�msg_0(A%!12,"DA"+�td%)):�icon_write(Q%,18,�msg_0(A%!12,"PA"+�ud%)):�vd%=0�
{*�icon_write(Q%,19,�msg_0(A%!12,"SB0"))
��:�td%=0�ud%<>0�
�+�icon_write(Q%,19,�msg_0(A%!12,"SB1b"))
��:�td%=3�ud%=0�
�+�icon_write(Q%,19,�msg_0(A%!12,"SB1c"))
�-�:�icon_write(Q%,19,�msg_0(A%!12,"SB1a"))
��
��
��
�2�N%?5�icon_select(Q%,13)��icon_deselect(Q%,13)
�4�N%?6�2�icon_select(Q%,35)��icon_deselect(Q%,35)
�^�u(Q%,25,N%,12):�u(Q%,26,N%,20):�u(Q%,27,N%,24):�u(Q%,28,N%,28):�u(Q%,29,N%,32):�N%!16<>0�
�G�?(N%!16)>32�?(N%!16)<127�u(Q%,30,N%,16)��icon_write(Q%,30,"null:")
� �:�icon_write(Q%,30,"null:")
��
�,�t�icon_unshade(Q%,2)��icon_shade(Q%,2)
�,�z�icon_unshade(Q%,3)��icon_shade(Q%,3)
�T!V%=Q%:ș262348,,V%�1:V%!28=-1:�Ca%!24�16�icon_unshade(Q%,33)��icon_shade(Q%,33)
��s(Q%):ș262341,,V%:�qb
��
��
�M��u(Nb%,qb%,wd%,_a%):�icon_write(Nb%,qb%,�printer_read_string(wd%!_a%)):�
���C(wd%,_a%,qb%):�wd%!_a%�
�-B%=1196577875:C%=wd%!_a%:�P%+16:wd%!_a%=0
��
�A!X%=Q%:X%!4=qb%:ș262350,,X%:B%=X%!28:C%=2:wd%!_a%=�(P%+28):�
�ݤv:=�V(Q%,17,3,"DA",A%!12)
!ݤq:=�V(Q%,18,4,"PA",A%!12)
!4ݤW:�icon_read(Q%,19)=�msg_0(A%!12,"SB0")�=0�=1
!��Hb(xd%):�xd%=-1xd%=�W
!�xd%=0�
!*�icon_write(Q%,19,�msg_0(A%!12,"SB0"))
!�:�v=0��q<>0�
! +�icon_write(Q%,19,�msg_0(A%!12,"SB1b"))
!%�:�v=3��q=0�
!*+�icon_write(Q%,19,�msg_0(A%!12,"SB1c"))
!/-�:�icon_write(Q%,19,�msg_0(A%!12,"SB1a"))
!4�
!9�
!>�
!C�
!HCݤV(Nb%,qb%,yd%,ra$,zd%):�i%,s$:s$=�icon_read(Nb%,qb%):�0<=yd%�
!M)�i%=0�yd%:�s$=�msg_0(zd%,ra$+�i%)�=i%
!R�
!W�
!\=0
!a9��lb:�N%,i%,p$,s$:N%=Ba%!12:N%!0=0:�icon_set(Q%,37)�
!fN%?6=N%?6�1
!k�:N%?6=N%?6��1
!p�
!u�icon_set(Q%,0)�
!z9p$=�C(1,Ba%):�p$=""N%!0=1��254,�msg_1(A%!12,"OKI",p$)
!�
!��icon_set(Q%,1)�
!�9p$=�C(2,Ba%):�p$=""N%!0=2��254,�msg_1(A%!12,"OKJ",p$)
!��
!��icon_set(Q%,2)N%!0=4
!��icon_set(Q%,3)N%!0=6
!��icon_set(Q%,4)N%!0=5
!��icon_set(Q%,33)N%!0=8
!�=s$=�icon_read(Q%,15):�i%=0�18:�msg_0(A%!12,"BR"+�i%)=s$�
!�N%?4=i%:i%=18
!��
!�%�:i%=�v��W<<2:�q i%=i%��q-1<<4�8
!�N%!8=i%:�icon_set(Q%,13)�
!�
N%?5=1
!��:N%?5=0
!��
!��icon_set(Q%,35)�
!�N%?6=N%?6�2
!��:N%?6=N%?6��2
!��
!�q�C(N%,12,25):�C(N%,20,26):�C(N%,24,27):�C(N%,28,28):�C(N%,32,29):�C(N%,16,30):�kb(Ba%):�f(-1,Ba%,0):�Ba%!20�
!��Ba%!24�2�
!��select_printer(Ba%,-1,0)
!��
!��i(Ba%)
!��
"�
",��i(z%):�sa$,i%,x$,ta$,Ad%,H%:�z%!20=-1�
"/H%=z%!4:sa$=�X(z%):�z%!44x$=$z%!44�x$=$H%!4
"`ta$="ss_"+x$+","+x$:!O%=-1:O%!4=z%!20:ș262350,,O%:Ad%=O%!24�1<<21:�sa$<>$O%!28�ta$<>$O%!32�
"Hi%=�s(sa$,x$,-4,z%!20):�D(-1,z%!20):z%!20=i%:�Ad%�icon_select(-1,i%)
"�
"�
"$0ݤX(z%):�N%,M%:�z%!24�4�=�msg_0(A%!12,"QU1")
")
�z%!24�8�
".?M%=z%!32:�M%?11�1�=�msg_0(A%!12,"QU1")�=�msg_0(A%!12,"QU2")
"3�
"8"�z%!24�32�=�msg_0(A%!12,"QU3")
"=�z%!40�=$z%!40
"BN%=z%!12:ȎN%!0�
"G&�0,1,2,5:=�msg_0(A%!12,"IC"+�N%!0)
"L�4:=$N%!12
"Q�6:=$N%!24
"V�
"[=""
"`h��Cb:�_a%,od%,wc%,i%,s$,pc%:B%=1414744396:C%=2048:wc%=�(P%+12):�wc%=0�253,�msg_1(A%!12,"FA5","LIST")
"eBș393735,1,wc%,2048,500�_a%;i%:�i%�1i%=_a%+4:�Z%,i%,s$:�254,s$
"j��menu_create(_%,�msg_0(A%!12,"ME6")):pc%=(_%!28�256)<>0:od%=wc%:i%=0:ȕi%<_a%:�Z%,od%,s$:od%+=�s$+1:�menu_item(_%,i%,s$,pc%):i%+=1:�:B%=1414744396:C%=wc%:�P%+16:�
"o>��Kb:�z%,N%,qb%,kb%:�S%,Bd%,Cd%,lb%,Dd%:�:�Vb(z%,qb%):�z%�
"t.�icon_deselect(Fb%,qb%):�(z%!24�1)=0�Z(z%)
"y�(z%!24�(1<<16))�
"~�ib (z%)
"��
"��
"�,�z%=0:Cd%=0:ș263872:�:�Wb (S%,qb%):�S%�
"��S%!20<=0�
"�A�icon_deselect(Fb%,qb%):lb%=�F (S%!4,S%!8,S%!12):�L (Cd%,lb%)
"��
"��
"�q�S%=0:lb%=Cd%:ȕlb%:Bd%=�y(lb%,0,0,0,kb%):�Wa (Ka%,$lb%!4):Dd%=lb%:lb%=lb%!0:�d (1380799568,Dd%):�:ș263873:�
"�;��Z(z%):z%!24=z%!24�1:N%=z%!12:�Xa(z%):�A(z%):�A%!44=1�
"��select_printer(z%,-1,0)
"��
"��
"�*��Xa(z%):�s$,i%,pb%,H%:H%=z%!4:�z%!44�
"�
s$=$z%!44
"��:s$=$H%!4
"��
"�i%=�ka(z%):pb%=-4:�i%=-1�
"�i%=�Z(z%):pb%=-3
"��
"��i%=-1�
"�i%=251658240:pb%=-5
"��
"�$z%!20=�s(�X(z%),s$,pb%,i%):�vb%�
"��D(-1,ub%):vb%=0
"��
# A%!44+=1:�
#ݤka(z%):�qb%,Fd%:�vb%�
#
qb%=ub%
#/�:qb%=-1:Fd%=A%!48:ȕFd%:�Fd%!20qb%=Fd%!20
#�Fd%=z%Fd%=0�Fd%=Fd%!0
#�
#�
##=qb%
#((ݤZ(z%):ȕz%!20=-1:z%=z%!0:�z%=0�=-1
#-�:=z%!20
#2^��Xb:ub%=�s(�msg_0(A%!12,"NNE"),"s"+�msg_0(A%!12,"IC"),-5,251658240):vb%=-1:!q%=A%!40:�e:�
#7a��Lb:�z%,qb%,Gd%,c$,Dd%:�S%,Gd%,Cd%,lb%,z%:Cd%=0:�:�t(z%,S%,qb%):�icon_deselect(Fb%,qb%):�z%�
#<�z%!24�(1<<17)�
#A lb%=�F (0,0,z%):�L (Cd%,lb%)
#F
�:�Zb(z%)
#K�
#P�
#U�S%�S%!20>0�
#Z�_b ($S%!4):�L=0�A%!44=0�
#_�Xb
#d�
#i�
#nt�z%=0�S%=0:lb%=Cd%:ȕlb%:z%=lb%!12:c$=$z%!40:�`b (z%):�ac (c$):Dd%=lb%:lb%=lb%!0:�d (1380799568,Dd%):�:�k:�W%=0�
#s�A%!44�
#xGd%=A%!48:ȕGd%:�Gd%!20�
#}#�select_printer(Gd%,-1,0):Gd%=0
#��:Gd%=Gd%!0
#��
#��
#��
#��
#��
#�!��Zb(z%):�Hd%:�z%!24�(1<<16)�
#��ib (z%)
#��
#��z%!24�(1<<17)�
#�
Hd%=-1
#��
#�
�z%!24�1�
#��z%!24�(1<<17)�
#�
Gd%=-1
#�
�:�z%!32�
#�Gd%=�_("WA2",$z%!8)
#��:Gd%=-1
#��
#��
#� �Gd%�
#��c(z%!4,z%,-10,0):�z%!20�
#��A%!44=1��L=0�
#��Xb
#��
#��A%!44=1��L>0�
$!q%=A%!40:�e
$ �
$"�D(-1,z%!20):z%!20=-1:A%!44-=1
$�
$0z%!24=z%!24��63+65536:�W%=z%ș524632,-1:W%=0
$
�A(z%)
$"�
$'�
$,�
$1i��Mb:�i%,z%,K%,Id%,Jd%,Gd%,y$:B%=1482184792:C%=256:Jd%=�(P%+12):�Jd%=0�253,�msg_1(A%!12,"FA5","XXXX")
$6qș262358,Fb%,Jd%,1<<21,1<<21:K%=Jd%:ș263872:ȕ�!K%:i%=!K%:z%=A%!48:Id%=0:ȕz%:�((z%!24�(1<<17))=0)�z%!28=i%�
$;�z%!32�
$@4ș263873:Gd%=�_("WA3",$z%!8):ș263872:�Gd%�A(z%)
$E�:Gd%=-1
$J�
$O �Gd%�
$T y$=$z%!8:�bc(z%,Id%):�Nb(y$)
$Y�
$^z%=0
$c�:Id%=z%:z%=z%!0
$h�
$m�:K%+=4:�:�W%=0�
$r�A%!44�
$wGd%=A%!48:ȕGd%:�Gd%!20�
$|#�select_printer(Gd%,-1,0):Gd%=0
$��:Gd%=Gd%!0
$��
$��
$��
$��
$��W%=0�z
$�5B%=1482184792:C%=Jd%:�P%+16:�k:�p(Fb%):ș263873:�
$�d��bc(z%,Id%):�j%,i%,Ra%,H%,R%:H%=z%!4:R%=H%!12:R%=R%!4:�c(H%,z%,-9,0):�Zb(z%):ȕR%:�$R%!8=$z%!8�
$�R%!(R%!4*4+8)-=1:R%=0
$�
�:R%=R%!0
$��
$��:�Ba%=z%�
$�
!q%=Q%:�e
$��
$�i%=H%!20:ȕi%:�i%!12=z%�
$�!q%=i%!4:�e
$��
$�i%=i%!0:�:�z%!48�Za(z%!48)
$��W%=z%W%=0
$�.�free_structure(z%!8):j%=z%!12:�(H%!24�4)�
$�Ra%=H%!48:�1<=Ra%�
$�*�i%=1�Ra%:�free_structure(!j%):j%+=4:�
$��
$��:�free_structure(j%!12):�free_structure(j%!16):�free_structure(j%!20):�free_structure(j%!24):�free_structure(j%!28):�free_structure(j%!32)
$��
$�,B%=1413697091:C%=j%:�P%+16:j%=z%!16:�j%�
%Ra%=H%!36:�0<=Ra%-1�
%,�i%=0�Ra%-1:�free_structure(j%!(i%*4)):�
%
�
%�
%�B%=1195789891:C%=j%:�P%+16:!q%=Fb%:q%!4=z%!28:ș262350,,q%:q%!8=1<<7�1<<23:q%!12=1<<7�1<<23�1<<21:ș262349,,q%:j%=z%!52:ȕj%:�free_structure(j%!4):�free_structure(j%!8):i%=j%!0:B%=1414418246:C%=j%:�P%+16:j%=i%:�:j%=z%!0:B%=1414419024:C%=z%
%�P%+16:�Id%�
%!Id%!0=j%
%&�:A%!48=j%
%+�
%0�
%5�ݤ_(oa$,ua$):�x%,y%,w%,h%:�icon_write(Db%,0,�msg_1(A%!12,oa$,ua$)):�icon_write(Db%,3,�msg_0(A%!12,oa$+"a")):ș262351,,q%:x%=!q%:y%=q%!4:!q%=Db%:ș262347,,q%:w%=q%!12-q%!4:h%=q%!16-q%!8:q%!4=x%-340:q%!8=y%-120:q%!12=q%!4+w%
%:]q%!16=q%!8+h%:q%!28=-1:ș262341,,q%:�cc(Db%):sa%=0:�:�v(ma%):�sa%:!q%=Db%:�e:�dc:=(sa%=3)
%?\��cc(h%):!q%=h%:ș262368,,q%:?q%=1:q%!1=q%!4:q%!3=q%!8:q%!5=q%!12:q%!7=q%!16:ș7,21,q%:�
%D���dc:�Kd%,Ld%,Md%,Nd%,Od%,Pd%:ș53,-1,4�,,Ld%:Ld%=1<<Ld%:ș53,-1,5�,,Nd%:Nd%=1<<Nd%:ș53,-1,11�,,Kd%:Kd%+=1:ș53,-1,12�,,Md%:Md%+=1:Od%=Kd%*Ld%:Pd%=Md%*Nd%:?q%=1:q%!1=0:q%!3=0:q%!5=Od%:q%!7=Pd%:ș7,21,q%:�
%I#��k:�z%,K%,i%:�S%:!O%=Fb%:�va%�
%N(�i%=0�va%-1:O%!4=i%+4:ș262340,,O%:�
%S�
%X �Ma%�
%],�i%=va%�va%+Ma%:O%!4=i%+4:ș262340,,O%:�
%b�
%g�va%=0:Ma%=0:!O%=Fb%:O%!4=0:O%!8=a%(4)!4:O%!12=1030:O%!16=a%(4)!12:O%!20=a%(4)!16:O%!24=a%(4)!20:O%!28=a%(4)!24:O%!32=a%(4)!28:z%=A%!48:ȕz%:ș262338,,O%�i%:va%+=1:O%!16=O%!8:O%!8-=(a%(4)!12-a%(4)!4):z%!28=i%:z%=z%!0:�:S%=Ka%:ȕS%
%l�ș262338,,O%�i%:Ma%+=1:O%!16=O%!8:O%!8-=(a%(4)!12-a%(4)!4):S%!16=i%:S%=S%!0:�:ș262348,,O%�1:O%!0=0:O%!4=-(va%+Ma%+1)*(a%(4)!12-a%(4)!4):O%!8=O%!52-O%!44:O%!12=0:ș262359,Fb%,O%
%qUO%!4=-(va%+Ma%+2)*(a%(4)!12-a%(4)!4):ș262353,Fb%,O%!0,O%!4,O%!8,O%!12:�i (Fb%)�
%v�p(Fb%)
%{�
%��
%�1ݤz:�i%:ș131129,,"NFS_Mount"�;i%:=((i%�1)=0)
%�;ݤt:�i%:ș131129,,"NetPrint_ReadPSName"�;i%:=((i%�1)=0)
%�Yݤc(s$):�t%,n%,f%:ș131117,s$,aa%,256�,t%,n%;f%:�t%�(f%�1)�253,�msg_1(A%!12,"FAD",s$)
%�=n%
%�OݤT(s$):�Qd%,f%:ș131113,37,s$,aa%,0,0,256�,,,,,Qd%;f%:�(Qd%<=0)�(f%�1):=s$
%�aa%?(256-Qd%)=13:=$aa%
%�A��w(z%,Rd%,Sd%):�p%:p%=ua%:ȕp%:�c(p%,z%,Rd%,Sd%):p%=p%!0:�:�
%�5��c(H%,z%,Rd%,Td%):�i%:�:��:��:�ec(H%,z%,Rd%):�
%�LO%!0=Rd%:O%!4=H%:O%!8=z%:O%!12=Td%:O%!16=ja%:O%!20=P%:O%!24=A%:�H%!24�1�
%�(i%=�("FN"+$H%!4+"_support("+�O%+")")
%��:�0<=Za%-1�
%��i%=0�Za%-1:�$H%!4=b$(i%)�
%�B%=O%:�b%(i%)
%��
%��
%��
%��
%��
%�%��ec(H%,z%,Rd%):�(z%!24�8)�254,�$
%��=253�253,�$
%�*�b(�w(A%!12,"WA6",$H%!4,�Rd%,�$,Þ)):�
%�/��fc(z%):z%!24=z%!24�4:�i(z%):�f(-1,z%,0):�
%�,��pb(z%,c$):�Lb%,Ud%,i%:�c$="configure"�
%�%�z%!24�8�254,�msg_0(A%!12,"OKAI")
%��
&�Lb%=�printer_find_window(z%,c$):�s(Lb%):�p(Lb%):!O%=Lb%:ș262348,,O%�1:Ud%=O%!88:�i%=0�Ud%:!O%=Lb%:O%!4=i%:ș262350,,O%:�(O%!24�(1<<23))=0�
&�(O%!24�(15<<12))=(15<<12)�
&%�(z%!24�(1<<16))�(z%!24�(1<<17))�
&+�icon_shade (Lb%,i%):�caret_set (-1,-1)
&/�:�icon_unshade (Lb%,i%):�caret_set(Lb%,i%)
&�
& �
&%�
&*�
&/�:�
&4Hݤprinter_find_window(z%,c$):�H%:H%=z%!4:i%=H%!20:ȕi%:�$(i%+16)=c$�
&9i%!8=H%:i%!12=z%:=i%!4
&>�
&C,i%=i%!0:�:�253,�msg_1(A%!12,"FAE",c$):=0
&HA��H(Lb%,�Nb%,�H%,�z%):H%=ua%:ȕH%:Nb%=H%!20:ȕNb%:�Nb%!4=Lb%�
&Mz%=Nb%!12:�
&R�
&W+Nb%=Nb%!0:�:H%=H%!0:�:Nb%=0:H%=0:z%=0:�
&\3ݤprinter_find_prdata_entry(H%,c$):�R%:�H%=0�=0
&aR%=H%!12:�R%=0�=0
&fR%=R%!4:�R%=0�=0
&k ȕ$R%!8<>c$:R%=R%!0:�R%=0�=0
&p �:=R%
&uݤ`(K%):�K%=0�=0
&z)�K%!-4<>1196707401�K%!-4<>1381257040�
&�253,�msg_0(A%!12,"FA6")
&��
&�=!K%
&�.ݤprinter_read_string(K%):�i%,s$:�K%=0�=""
&�ȎK%!-4�
&��1196577875:=$K%
&��810701907:�Z%,K%,s$:=s$
&��1381258055:�Y%,K%,s$:=s$
&��
&� �253,�msg_0(A%!12,"FA7"):=""
&�1ݤprinter_read_integer_entry(R%,Vd%):�R%=0�=0
&�=�`(R%!(4+Vd%*4))
&�9��printer_write_integer_entry(R%,Vd%,Wd%):�K%:�R%<>0�
&�9K%=R%!(4+Vd%*4):�K%!-4<>1196707401�K%!-4<>1381257040�
&��253,�msg_0(A%!12,"FA6")
&��
&�!K%=Wd%
&��
&��
&�1ݤprinter_read_string_entry(R%,Vd%):�R%=0�=""
&�'=�printer_read_string(R%!(4+Vd%*4))
&�@ݤprinter_read_boolean_string_entry(R%,Vd%,Xd%):�K%:�R%=0=""
&�>K%=R%!(4+Vd%*4):�K%!-4<>1280266050�253,�msg_0(A%!12,"FA8")
&� �Xd%�
&�=�printer_read_string(K%!4)
&�!�:=�printer_read_string(K%!0)
'�
'Bݤprinter_read_list_integer_entry(R%,Vd%,wc%,Zd%):�K%:�R%=0�=0
'K%=R%!(4+Vd%*4):�K%=0=0
'.�K%!-4<>1146377036�253,�msg_0(A%!12,"FA9")
'(ȕwc%<>1�K%:K%=K%!0:wc%-=1:�:�K%=0=0
'*K%+=8:ȕZd%<>1:K%+=4:Zd%-=1:�:=�`(!K%)
'Bݤprinter_read_list_string_entry(R%,Vd%,wc%,Zd%):�K%:�R%=0�=""
'$K%=R%!(4+Vd%*4):�K%=0=""
').�K%!-4<>1146377036�253,�msg_0(A%!12,"FA9")
'.)ȕwc%<>1�K%:K%=K%!0:wc%-=1:�:�K%=0=""
'3<K%+=8:ȕZd%<>1:K%+=4:Zd%-=1:�:=�printer_read_string(!K%)
'8 ��aa(N$,�_d%):�:��:�0,�$
'=<ș30,6,,,17+�N$�,,_d%:$(_d%+16)=N$:ș267521,_d%,_d%+16:�
'B*ݤmsg_0(_d%,T$)=�w(_d%,T$,"","","","")
'G-ݤmsg_1(_d%,T$,S$)=�w(_d%,T$,S$,"","","")
'L4ݤmsg_2(_d%,T$,va$,wa$)=�w(_d%,T$,va$,wa$,"","")
'Q5ݤG(_d%,T$,va$,wa$,xa$)=�w(_d%,T$,va$,wa$,xa$,"")
'Vaݤw(_d%,T$,va$,wa$,xa$,ya$):�F%,L%:ș398594,_d%,T$,ba%,256,va$,wa$,xa$,ya$�,,,L%;F%:�F%�1�=T$
'[ba%?L%=13:=$ba%
'`��_(_d%):�_d%�
'e ș267524,_d%:ș131102,7,,_d%
'j�
'o�
't���ca(n$):za$=n$:q%!0=524626:q%!4=524614:q%!8=524613:q%!12=524611:q%!16=524610:q%!20=524609:q%!24=524608:q%!28=262345:q%!32=1282:q%!36=12:q%!40=11:q%!44=10:q%!48=8:q%!52=3:q%!56=2:q%!60=1:q%!64=5:q%!68=0
'y+ș262336,300,1263747412,n$,q%�`d%,Rb%:�
'~��jb:ș262365:�
'�-ݤaa(da%):�ae%,be%,z%,t%:�K$<>""da%=da%�1
'�!�(da%�1)=0�fa%=-1�da%<>A%!20�
'�ș262343,da%,q%,,La%�ae%
'��:�fa%=0�K$<>""�
'�ș262343,da%��1,q%,,La%�ae%
'�(�:ș262369,da%��1,q%,ka%+fa%,La%�ae%
'��
'��
'�>ș66�be%:ce%=be%-ka%:ka%=be%:z%=A%!48:ȕz%:t%=z%+56:�!t%�
'��ce%<!t% !t%-=ce%�!t%=0
'��
'�z%=z%!0:�:=ae%
'���oa:�z%,H%,t%:�K$<>""�
'�ș131080,6,K$:K$=""
'��
'�"z%=A%!48:ȕz%:t%=z%+56:�!t%=0�
'�*H%=z%!4:�c(H%,z%,0,0):!t%=10*H%?(24+1)
'��
'�z%=z%!0:�:�
'�Qݤtask_read_env(n$,de%):�Wc%,ab%:ș131107,n$,de%,256,,3�,,Wc%;ab%:�ab%�1Wc%=0
'�de%?Wc%=13:=$de%
'�1ݤla(a$,b$):�ee%:ș274525,-1,a$,b$,3�ee%:=ee%
'�>ݤtask_lower(s$):�l$,fe%,i%:ș274519,-1�fe%:l$="":�1<=�s$�
'�$�i%=1��s$:l$+=�fe%?��s$,i%,i%):�
'��
( =l$
(>ݤtask_upper(s$):�u$,fe%,i%:ș274520,-1�fe%:u$="":�1<=�s$�
(
$�i%=1��s$:u$+=�fe%?��s$,i%,i%):�
(�
(=u$
(��da:�ge%256:�
(;��ma:�r$,r%:r$=�$:r%=�r$,"in "+�34+"!"):�r%r$=�r$,r%-1)
(#Ȏ��
((�254:�j(r$,1)
(-�253:�j(r$,2)
(2!:�j(r$+" (&"+�~�+") @"+Þ,3)
(7�
(<�
(AV��j(r$,he%):�r%:ș262356,,-1:!ge%=�:$(ge%+4)=r$+�0:ș262367,ge%,he%,za$�,r%:�r%=2�
(Fî…‡
(KQb%=2:�I:�x
(P�
(U�
(ZO��b(r$):!ge%=1:$(ge%+4)=r$+�0:ș262367,ge%,1�1<<4,�msg_1(A%!12,"ER2",za$):�
(_��ea:ie%=0:�
(dCݤs(Aa$,x$,pb%,je%):�t%,s%,i%,v$,w%:�x$="s"+�msg_0(A%!12,"IC")�
(i#v$="s"+x$:ș262377,40,,x$�,,,w%
(n%�:ș393449,40,,x$�,,,w%;i%:�i%�1�
(s<ș262377,40,,"s"+�msg_0(A%!12,"IC")�,,,w%:�x$,3)="su_"�
(xv$="ssu"+�msg_0(A%!12,"IC")
(}7�:v$="ss"+�msg_0(A%!12,"IC")+","+�msg_0(A%!12,"IC")
(��
(��:�x$,3)="su_"�
(�
v$="s"+x$
(��:v$="ss_"+x$+","+x$
(��
(��
(��
(�LB%=1179009609:C%=�Aa$+1:t%=�(P%+12):�t%=0�253,�msg_1(A%!12,"FA5","IBFF")
(�S$t%=Aa$:B%=1179009609:C%=�v$+1:s%=�(P%+12):�s%=0�253,�msg_1(A%!12,"FA5","IBFF")
(�?$s%=v$:ș53,-1,4�,,i%:�(w%<<i%)<�Aa$*16w%=�Aa$*16�w%=w%<<i%
(�tX%!0=pb%:X%!4=0:X%!8=-16:X%!12=w%:X%!16=88:X%!20=385888523:X%!24=t%:X%!28=s%:X%!32=�Aa$+1:ș262338,je%,X%�i%:=i%
(�D��D(a%,b%):!X%=a%:X%!4=b%:ș262350,,X%:ș262340,,X%:�X%!24�1<<8�
(�
�X%!24�3�
(�+B%=1179009609:C%=X%!28:�P%+16:�X%!24�1�
(��X%!32�
(�!B%=1179009609:C%=X%!32:�P%+16
(��
(��
(��
(��
(��
(�d��icon_write(a%,b%,s$):�h%,i%,n%:�caret_info(h%,i%,n%):!X%=a%:X%!4=b%:ș262350,,X%:�s$+1>X%!36�
(�#�253,�msg_2(A%!12,"FAH",s$,�b%)
(��
(�G$X%!28=s$:X%!8=0:X%!12=0:ș262349,,X%:�h%=a%�i%=b%�caret_set(a%,b%)
(��
)c��icon_validation(a%,b%,s$):!X%=a%:X%!4=b%:ș262350,,X%:$X%!32=s$:X%!8=0:X%!12=0:ș262349,,X%:�
) :ݤicon_read(a%,b%):!X%=a%:X%!4=b%:ș262350,,X%:=$X%!28
)J��icon_unshade(a%,b%):!X%=a%:X%!4=b%:X%!8=0:X%!12=1<<22:ș262349,,X%:�
)L��icon_shade(a%,b%):!X%=a%:X%!4=b%:X%!8=1<<22:X%!12=1<<22:ș262349,,X%:�
)V��icon_deselect(a%,b%):!X%=a%:X%!4=b%:X%!8=0:X%!12=1<<21:ș262349,,X%:�a%=Fb%wa%=0
)�
)"X��icon_select(a%,b%):!X%=a%:X%!4=b%:X%!8=1<<21:X%!12=1<<21:ș262349,,X%:�a%=Fb%wa%=0
)'�
),Cݤicon_set(a%,b%):!X%=a%:X%!4=b%:ș262350,,X%:=(X%!24�1<<21)<>0
)1o��icon_info(a%,b%,�ke%,�le%,�me%,�ne%):!X%=a%:X%!4=b%:ș262350,,X%:ke%=X%!8:le%=X%!12:me%=X%!16:ne%=X%!20:�
)6f��caret_set(h%,i%):�j%:j%=��icon_read(h%,i%):ș262354,h%,i%,-1,-1,,j%:ș262354,h%,i%,-1,-1,-1,j%:�
);D��caret_info(�h%,�i%,�n%):ș262355,,X%:h%=!X%:i%=X%!4:n%=X%!20:�
)@��fa:Z$="":�
)E4��Ia(Ba$,Ca$):�a$,a%:ș6,161,140�,,a%:�(a%�1)=1�
)J$ș8,17,Ca$�a%:�a%=1Z$=Ca$�Z$=Ba$
)O�:Z$=Ba$
)T�
)Yș262361,,Z$:�
)^��Ka:ș262362:�
)ca��l(f$,n$,oe%,�Lb%):�de%:�gc(f$,n$,de%):de%!64=oe%:�hc(de%,Lb%):B%=1145981271:C%=de%:�P%+16:�
)h���gc(f$,n$,�ic%):�pe%,Ra%,qe%,mb%,s%,f%,s$:�ic(f$,n$,Ra%,qe%):B%=1145981271:C%=Ra%+qe%:ic%=�(P%+12):�ic%=0�253,�msg_1(A%!12,"FA5","WIND")
)m�f$<>""ș262361,,f$
)r �qe%�
)wKB%=1179014466:C%=qe%:pe%=�(P%+12):�pe%=0�253,�msg_1(A%!12,"FA5","BUFF")
)|2ș393435,,ic%,pe%,pe%+qe%,-1,n$�s%,,,,,,mb%;f%
)�*�:ș393435,,ic%,,,-1,n$�s%,,,,,,mb%;f%
)��
)��f$<>""ș262362
)�*�f%�1f%=s%+4:�Z%,f%,s$:�254,n$+": "+s$
)�&�mb%=0�254,�msg_1(A%!12,"OKAK",n$)
)��
)�&��hc(ic%,�Lb%):ș262337,,ic%�Lb%:�
)�7��p(a%):!V%=a%:ș262347,,V%:V%!28=-1:ș262341,,V%:�
)�N��`a(a%,s$):�re%,se%,te%,ue%:!V%=a%:ș262348,,V%�1:$V%!76=s$:�V%!32�1<<16�
)�Sse%=V%!16:ș262368,,V%:re%=V%!4:te%=V%!12:ue%=V%!16:ș262353,-1,re%,se%,te%,ue%
)��
)��
)�1��Ja(P$,�K%,�c$):�f%,_a%,Ub%:�f$=""�`d%>=300�
)�-ș262363,,,,,-1,"*"+�12,�0),K%�,,,,,c$,K%
)��:�P$=""P$=Z$
)�f%=�P$:�K%=0K%=16
)��:�#f%=K%:_a%=�j(f%):�_a%�
)�5�#f%=K%+8:Ub%=�j(f%):c$=�M(f%):K%+=24:�Ub%=1_a%=0
)�
�:K%=0
)��
)��_a%=0:ș131085,,f%
)��
)��
)�E��ic(f$,n$,�Ra%,�qe%):�i%,ve%,K%,_a%,Ub%,Da$,Ud%:�f$=""�`d%>=300�
)�ș262363,,,,,-1,n$�,Ra%,qe%
)��:�f$=""f$=Z$
*:ve%=�f$:Ra%=0:qe%=0:K%=16:�:�#ve%=K%:_a%=�j(ve%):�_a%�
*5�#ve%=K%+8:Ub%=�j(ve%):Da$=�M(ve%):K%+=24:�Ub%=1�
*
�Da$=n$�
*G�#ve%=_a%+84:Ud%=�j(ve%):qe%=�ma(ve%,_a%):�Ud%qe%+=�na(ve%,Ud%,_a%)
*Ra%=88+(Ud%*32):_a%=0
*�
*!�
*&�
*+�_a%=0:ș131085,,ve%
*0�
*5�
*:+ݤj(h%):=�#h%��#h%<<8��#h%<<16��#h%<<24
*?*ݤM(h%):�s$,c%:�:c%=�#h%:�c%>31s$+=�c%
*D�c%<32:=s$
*I8ݤma(ve%,_a%):�v%:�#ve%=_a%+28:v%=�j(ve%):�v%�1<<31�
*N(�v%�1<<26�=�N(ve%,_a%+56,_a%+72,_a%)
*S&�:�v%�1�=�N(ve%,_a%+56,_a%+72,_a%)
*X�
*]=0
*b,ݤna(ve%,Xc%,_a%):�i%,j%:j%=0:�0<=Xc%-1�
*gA�i%=0�Xc%-1:j%+=�N(ve%,_a%+88+i%*32+16,_a%+88+i%*32+20,_a%):�
*l�
*q=j%
*v`ݤN(ve%,we%,xe%,_a%):�v%,ye%,Ra%,i%:�#ve%=we%:v%=�j(ve%):i%=v%�256:ye%=(v%�3)+(i%>>6):Ȏye%�
*{�0,1,2,3,4:Ra%=0
*�'�5,7:�#ve%=xe%+4:v%=�j(ve%):�v%=-1�
*� Ra%=0
*�!�:�#ve%=_a%+v%:Ra%=��M(ve%)+1
*��
*��#ve%=xe%+8:Ra%+=�j(ve%)
*��6:�#ve%=xe%+8:Ra%=�j(ve%)
*��
*�=Ra%
*�=��ja:�f%:ș131129,,"DragASprite_Start"�ze%;f%:�f%�1ze%=-1
*�3ș131129,,"DragASprite_Stop"�Ae%;f%:�f%�1Ae%=-1
*�ș6,161,28�,,f%:�(f%�2)=0�
*�ze%=-1:Ae%=-1
*��
*�KB%=1163280723:C%=256:Be%=�(P%+12):�Be%=0�253,�msg_1(A%!12,"FA5","SAVE")
*�ea%=0:�
*�s��Ab(Ce%,Fa$):�b$:b$=�~Ce%:b$=�"000"+b$,3):De%=Ce%:�icon_validation(zb%,0,"sfile_"+b$):�icon_write(zb%,1,Fa$):�
*����nb(Fe%,Ge%):�He%,Ie%,Je%,Ke%,Le%,Me%,Od%,Pd%,f$,Kd%,Ld%,Md%,Nd%:!Be%=zb%:ș262347,,Be%:He%=Be%!4-Be%!20:Ie%=Be%!16-Be%!24:�icon_info(zb%,0,Je%,Le%,Ke%,Me%):ș53,-1,4�,,Ld%:Ld%=1<<Ld%:ș53,-1,5�,,Nd%:Nd%=1<<Nd%
*��ș53,-1,11�,,Kd%:Kd%+=1:ș53,-1,12�,,Md%:Md%+=1:Od%=Kd%*Ld%:Pd%=Md%*Nd%:!Be%=zb%:Be%!4=5:Be%!8=He%+Je%:Be%!12=Ie%+Le%:Be%!16=He%+Ke%:Be%!20=Ie%+Me%:Be%!24=Be%!8-Fe%:Be%!28=Be%!12-Ge%:Be%!32=Od%+Be%!16-Fe%
*� Be%!36=Pd%+Be%!20-Ge%:�ze%�
*�:f$="file_"+�"000"+�~De%,3):șze%,197,1,f$,Be%+8,Be%+24
*��:ș262352,,Be%
*��
*�ea%=-1:�
*�,��ra:�h%,i%,Ne%,Oe%,Pe%:ea%=0:�Ae%șAe%
*�Aș262351,,Be%:Ne%=!Be%:Oe%=Be%!4:h%=Be%!12:i%=Be%!16:�h%=zb%�
*��jc(h%,i%,Ne%,Oe%):�
+���jc(h%,i%,Ne%,Oe%):�Ga$:Ga$=�oa:!Be%=48+�Ga$��3:Be%!12=0:Be%!16=1:Be%!20=h%:Be%!24=i%:Be%!28=Ne%:Be%!32=Oe%:Be%!36=0:Be%!40=De%:$(Be%+44)=Ga$+�0:ș262375,17,Be%,h%,i%:�
+Bݤoa:�f$,i%:f$=�icon_read(zb%,1):�:i%=�f$,":"):�i%f$=�f$,i%+1)
+'�i%=0:�:i%=�f$,"."):�i%f$=�f$,i%+1)
+
�i%=0:=f$
+��ga:Sb%=0:Qe%=0:�
+6��menu_create(�_%,I$):�Q$,i%,Ha$,j$,j%,x%,t%:�Sb%�
+ �kc:Sb%=0:Qe%=0
+%�
+*�I$,1)="#"�
+/i%=1:Q$=�O(I$,",",i%)
+4�:Q$=""
+9�
+>1Ha$=I$:j%=i%:�:j$=�O(I$,",",i%):�j$<>""Qe%+=1
+Ce�j$="":I$=Ha$:i%=j%:B%=1431192909:C%=28+Qe%*24:Sb%=�(P%+12):�Sb%=0�253,�msg_1(A%!12,"FA5","MENU")
+H
�Q$<=12�
+M$Sb%=Q$
+RM�:B%=1431192909:C%=�Q$+2:t%=�(P%+12):�t%=0�253,�msg_1(A%!12,"FA5","MENU")
+W$t%=Q$+�0:Sb%!0=t%
+\�
+a�Sb%?12=7:Sb%?13=2:Sb%?14=7:Sb%?15=0:Sb%!16=196:Sb%!20=44:Sb%!24=0:x%=�Q$-3:Sb%!16=(x%*8+6)*2:�j%=0�Qe%-1:j$=�O(I$,",",i%):�menu_item(Sb%,j%,j$,�Q$>12):�:_%=Sb%:�
+f5��kc:�i%,p%,pc%:p%=Sb%+28:pc%=p%!0�256:�0<=Qe%-1�
+k�i%=0�Qe%-1:�p%!8�256�
+p�(!p%�4)=0�
+u!B%=1431192909:C%=p%!12:�P%+16
+z�
+�
+�p%+=24:�
+��
+� �pc%�
+�!B%=1431192909:C%=Sb%!0:�P%+16
+��
+�!B%=1431192909:C%=Sb%:�P%+16:�
+�M��menu_item(�_%,Re%,j$,pc%):�F%,p%,i%,x%,m%:x%=(_%!16/2-6)/8:��j$,1)="#"�
+�j$=�j$):F%=F%�2
+��
+���j$,1)="@"�
+�j$=�j$):F%=F%�8
+��
+��Re%>=Qe%�
+�[B%=1431192909:C%=Sb%:D%=(Re%-Qe%+1)*24:m%=�(P%+20):�m%=0�253,�msg_1(A%!12,"FA5","MENU")
+�6Sb%=m%:p%=Sb%+28+(Qe%-1)*24:!p%=!p%��128:Qe%=Re%+1
+��
+��Re%=Qe%-1F%=F%�128
+��Re%=0�pc%F%=F%�256
+�@p%=Sb%+28+Re%*24:p%!0=F%:p%!4=-1:p%!8=117440545:�j$,1)="$"�
+�!p%+=4:j$=�12," ")
+��:�j$<12�
+�$(p%+12)=j$
+�M�:B%=1431192909:C%=�j$+1:i%=�(P%+12):�i%=0�253,�msg_1(A%!12,"FA5","MENU")
+�6$i%=j$:p%!8=p%!8�256:p%!12=i%:p%!16=-1:p%!20=�j$+1
+��
,�
,_%=Sb%:�j$>x%�
,x%=�j$:_%!16=(x%*8+6)*2
,�
,�
,7��Bb(_%,Re%,K%,Se%):_%+=28+Re%*24:�Se%�!_%=!_%�1<<4
,
_%!4=K%:�
,$AݤO(I$,Ia$,�I%):�L%:L%=I%+1:I%=�I$+Ia$,Ia$,L%):=�I$,L%,I%-L%)
,)A��a(Te%,Re%,Wd%):�((Te%!(28+8+24*Re%)�4194304)=4194304)<>Wd%�
,./Te%!(28+8+24*Re%)=Te%!(28+8+24*Re%)�4194304
,3�
,8�
,=7ݤJ(Te%,Re%):=((Te%!(28+8+24*Re%)�4194304)=4194304)
,BX��menu_tick_match(Te%,Ja$):�Re%,Ka$:Re%=Te%+28:�:�Re%!8�256Ka$=$Re%!12�Ka$=$(Re%+12)
,G�la(Ka$,Ja$)=0�
,L!Re%=!Re%�1:�
,Q�
,V�!Re%�128�
,[Re%+=24:�0:�
,`^��lc(Te%,Re%,Ue%):�Ue%Te%!(28+24*Re%)=Te%!(28+24*Re%)�1�Te%!(28+24*Re%)=Te%!(28+24*Re%)��1
,e�
,j���cb(h%):�x%,y%,Kd%,Ld%,Md%,Nd%:ș53,-1,4�,,Ld%:Ld%=1<<Ld%:ș53,-1,5�,,Nd%:Nd%=1<<Nd%:ș53,-1,11�,,Kd%:Kd%+=1:ș53,-1,12�,,Md%:Md%+=1:!q%=h%:ș262347,,q%:x%=Kd%*Ld%:y%=Md%*Nd%:x%=(x%-q%!12+q%!4)�2:y%=(y%+q%!16-q%!8)�2
,oș262356,,h%,x%,y%:�
,t*��ha:�p%:ș274526,-1,0�p%:�Z%,p%,La$:�
,yݤf(n$):�La$=".":=�n$
,~6�i%:i%=�n$,La$):�i%<>0:=�(�n$,i%-1)+"."+�n$,i%+1))
,�=�n$
,�W��Db(a%):�i%:B%=1163547472:C%=56:Ga%=�(P%+12):�Ga%=0�253,�msg_1(A%!12,"FA5","PSZE")
,��a%�
,�a%=a%!36:�0<52�
,��i%=0�52�4:Ga%!i%=a%!i%:�
,��
,�
�:�0<=52�
,��i%=0�52�4:Ga%!i%=0:�
,��
,��
,�+�Ib:�s(Cb%):�p(Cb%):�caret_set(Cb%,5):�
,�y��Ib:�h%,i%,n%:�caret_info(h%,i%,n%):�u(Cb%,5,Ga%,4):�M(12,36):�M(13,32):�M(14,40):�M(15,44):�M(16,48):�sb:�Ga%!52=1�
,��icon_unshade(Cb%,33)
,��:�icon_shade(Cb%,33)
,��
,��
,�4��sb:�s$:笤icon_set(Cb%,23)���icon_set(Cb%,22)�
,��icon_select(Cb%,23)
,��
,��icon_set(Cb%,23)�
,�s$=�msg_0(A%!12,"mm")
,��:s$=�msg_0(A%!12,"in")
,��
,���icon_write(Cb%,26,s$):�icon_write(Cb%,29,s$):�icon_write(Cb%,27,s$):�icon_write(Cb%,30,s$):�icon_write(Cb%,28,s$):�icon_write(Cb%,31,s$):�F(6,8):�F(7,12):�F(8,20):�F(9,16):�F(10,24):�F(11,28):�
,�0��M(qb%,_a%):�icon_write(Cb%,qb%,�Ga%!_a%):�
- &��F(qb%,_a%):�v%:v%=Ga%!_a%:Ȏqb%�
-�8:v%=Ga%!12-v%
-
�11:v%=Ga%!8-v%
-�
-"�icon_write(Cb%,qb%,�pa(v%)):�
-$ݤpa(v%):�@%:�icon_set(Cb%,23)�
-@%="+F10"+La$+"1":=�(v%/c)
-# �:@%="+F10"+La$+"3":=�(v%/d)
-(�
--+��Ba(f$,Ve%):�J%,`%,yb%,We%,t$:�l(f$)�
-2�:J%=�b("pn:"):�J%�
-7$t$=�qa(`%,$J%):�t$<>""�mc(f$,t$)
-<2`%!52=Ve%:yb%=ja%:We%=0:ȕyb%>0:�$`%!4=$yb%!4�
-A�yb%!52=0�
-FH`%!0=yb%!0:�free_structure(yb%!4):B%=1163547472:C%=yb%:�P%+16:yb%=-1
-K,�:B%=1163547472:C%=`%:�P%+16:`%=0:yb%=-1
-P�
-U�:�$`%!4<$yb%!4�
-Z`%!0=yb%:yb%=-1
-_�:We%=yb%:yb%=yb%!0
-d�
-i�
-n
�:�`%�
-s�We%We%!0=`%�ja%=`%
-x�
-}�
-��J%=0:�m
-��
-��
-�/��mc(f$,t$):�S(�msg_2(A%!12,"OKO",f$,t$)):�
-�Yݤqa(�`%,c$):�t$:B%=1163547472:C%=56:`%=�(P%+12):�`%=0�253,�msg_1(A%!12,"FA5","PSZE")
-�K`%!0=0:$q%=c$:B%=q%:C%=2:`%!4=�(P%+28):J%=�b("pw:"):�J%`%!8=�$J%�="pw:"
-�%J%=�b("ph:"):�J%`%!12=�$J%�="ph:"
-�%J%=�b("pb:"):�J%`%!16=�$J%�="pb:"
-�%J%=�b("pt:"):�J%`%!20=�$J%�="pt:"
-�%J%=�b("pl:"):�J%`%!24=�$J%�="pl:"
-�%J%=�b("pr:"):�J%`%!28=�$J%�="pr:"
-�%J%=�b("tb:"):�J%`%!32=�$J%�="tb:"
-�%J%=�b("tt:"):�J%`%!36=�$J%�="tt:"
-�%J%=�b("tl:"):�J%`%!40=�$J%�="tl:"
-�%J%=�b("tr:"):�J%`%!44=�$J%�="tr:"
-�%J%=�b("th:"):�J%`%!48=�$J%�="th:"
-�=""
-����nc(c%,K%):�#c%,"pn: "+$K%!4:�#c%,"pw: "+�K%!8:�#c%,"ph: "+�K%!12:�#c%,"pb: "+�K%!16:�#c%,"pt: "+�K%!20:�#c%,"pl: "+�K%!24:�#c%,"pr: "+�K%!28:�#c%,"tb: "+�K%!32:�#c%,"tt: "+�K%!36:�#c%,"tl: "+�K%!40:�#c%,"tr: "+�K%!44:�#c%,"th: "+�K%!48:�
-���mb:�`%,s$,Xe%,yb%,We%,c%,z%:�e,f,g,h,i,j:e=�f(�icon_read(Cb%,6)):f=�f(�icon_read(Cb%,7)):g=�f(�icon_read(Cb%,10)):h=�f(�icon_read(Cb%,11)):i=�f(�icon_read(Cb%,8)):j=�f(�icon_read(Cb%,9)):s$=�icon_read(Cb%,5):�s$=""�254,�msg_0(A%!12,"OKAD")
-�5�f(�icon_read(Cb%,6))=0�254,�msg_0(A%!12,"OKAE")
-�5�f(�icon_read(Cb%,7))=0�254,�msg_0(A%!12,"OKAE")
-�:�(i+j>f)�254,�msg_1(A%!12,"OKAY",�msg_0(A%!12,"OKAZ"))
-�:�(g+h>e)�254,�msg_1(A%!12,"OKAY",�msg_0(A%!12,"OKBA"))
-�#ș263872:`%=ja%:ȕ`%:�$`%!4=s$�
-�Xe%=`%:`%=0
-�
�:`%=`%!0
.�
. ,�:�Xe%�Xe%!52=2�254,�msg_0(A%!12,"OKAX")
.�Xe%=0�
.JB%=1163547472:C%=56:Xe%=�(P%+12):�Xe%=0�253,�msg_1(A%!12,"FA5","PSZE")
.RXe%!0=0:$q%=s$:B%=q%:C%=2:Xe%!4=�(P%+28):yb%=ja%:We%=0:ȕyb%>0:�$Xe%!4<$yb%!4�
.Xe%!0=yb%:yb%=-1
."�:We%=yb%:yb%=yb%!0
.'�
.,�:�We%We%!0=Xe%�ja%=Xe%
.1�
.6��o(6,Xe%,8,-1,Ze%):�o(7,Xe%,12,-1,Ze%):�o(9,Xe%,16,-1,Ze%):�o(8,Xe%,20,-1,Ze%):�o(10,Xe%,24,-1,Ze%):�o(11,Xe%,28,-1,Ze%):�o(13,Xe%,32,0,Ze%):�o(12,Xe%,36,0,Ze%):�o(14,Xe%,40,0,Ze%):�o(15,Xe%,44,0,Ze%):�o(16,Xe%,48,0,Ze%):Xe%!52=1
.;!�oc:z%=A%!48:ȕz%:�z%!36=Xe%�
.@
�z%!24�2�
.E'�select_printer(z%,-1,0):�wb(z%):�z
.J�
.O�
.Tz%=z%!0:�:ș263873:�
.Y ��oc:�c%,`%,_e%,s$,fb%:�ia%�
.^2s$="<Printers$Dir>"+".Remote.ID"+h$+".PaperRW"
.c$�:s$="<Printers$Dir>"+".PaperRW"
.h�
.m2ș131080,17,s$�fb%;f%:�(f%�1)!fb%=254:ș43,fb%
.r
�(fb%=0)�
.wEș131080,11,s$,4038,,0,0�fb%;f%:�(f%�1)�b(�msg_0(A%!12,"WA14")):�
.|B�:ș131080,4,s$,,,,0�fb%;f%:�(f%�1)=0ș131080,4,s$,,,,3�fb%;f%
.�%�(f%�1)�b(�msg_0(A%!12,"WA14")):�
.��
.�;ș131085,143,s$�c%;f%:�(f%�1)�b(�msg_0(A%!12,"WA14")):�
.��c%�
.�`%=ja%:ȕ`%:�`%!52=1�
.��nc(c%,`%):_e%+=1
.��
.� `%=`%!0:�:ș131085,,c%:�_e%�
.�+ș131080,18,s$,4038:ș131080,4,s$,,,,19
.��:ș131080,6,s$
.��
.��
.��
.�D��o(qb%,wd%,_a%,`e%,�Ve%):�v,v%:v=�f(�icon_read(Cb%,qb%)):Ȏqb%�
.� �8:v=�f(�icon_read(Cb%,7))-v
.�!�11:v=�f(�icon_read(Cb%,6))-v
.��
.� �`e%�
.�#�icon_set(Cb%,23)v%=v*c�v%=v*d
.�
�:v%=v
.��
.��wd%!_a%<>v%�
.�$Ve%=-1:wd%!_a%=v%:�Ga%Ga%!_a%=v%
.��
.��
.�P��rb:�s$,`%,We%,i%,z%:ș263872:s$=�icon_read(Cb%,5):`%=ja%:ȕ`%>0:�$`%!4=s$�
/
�`%!52=1�
/4z%=A%!48:ȕz%:�z%!36=`%�254,�msg_0(A%!12,"OKQa")
/
z%=z%!0:�:�We%�
/We%!0=`%!0
/�:ja%=`%!0
/�
/!8�free_structure(`%!4):B%=1163547472:C%=`%:�P%+16:�oc
/&�:�254,�msg_0(A%!12,"OKR")
/+�
/0#�i%=0�52�4:Ga%!i%=0:�:�Ib:`%=-1
/5�:We%=`%:`%=`%!0
/:�
/?#�:�`%=0�254,�msg_0(A%!12,"OKQ")
/Dș263873:�
/I~��tb:�s(A%!40):!q%=A%!40:ș262348,,q%�1:q%!48=q%!56-(A%!44*pa%*2)-(A%!32*pa%):ș262359,A%!40,q%+44:q%!28=-1:ș262341,,q%:�
/N��kb(z%):笤i(Fb%)�
/SI!V%=Fb%:V%!4=z%!28:ș262350,,V%:ș262353,Fb%,V%!8,V%!12,V%!16,V%!20:�
/X#��f(y%,z%,M%):�Mb%:笤i(A%!40)�
/]�y%=-1�
/bB%=z%:C%=M%:y%=�(P%+48)
/g�
/ll!V%=A%!40:ș262347,,V%:V%!12=V%!12-V%!4:V%!4=0:V%!8=y%-pa%:V%!16=y%:ș262353,!V%,V%!4,V%!8,V%!12,V%!16:�
/q)��pc(y%,z%,af%,bf%):�_e%:笤i(A%!40)�
/v�y%=-1�
/{B%=z%:C%=M%:y%=�(P%+48)
/��
/��!V%=A%!40:ș262347,,V%:V%!12=V%!12-V%!4:V%!4=0:_e%=2:ȕaf%<>bf%:_e%+=1:af%=af%!0:�:V%!8=y%-pa%*_e%:V%!16=y%:ș262353,!V%,V%!4,V%!8,V%!12,V%!16:�
/�g��gb(cf%,O$,Ma$,B$,z%,Ub%):B%=cf%:C%=q%:$C%=O$:D%=O%:$D%=Ma$:E%=O%+256:$E%=B$:F%=z%:G%=Ub%:�P%+24:�
/�=��n(z%,M%,uc%):�yb%,p%,N%:�za%=z%�Aa%=M%Aa%=0:ș262356,-1
/�p%=M%!44:�p%�
/��p%!40�
/�z%!24=z%!24��36:�z%!48�
/�!q%=z%!48:�e
/��
/��
/��
/��z%!32=M%�
/�z%!32=M%!0:yb%=0
/�2�:yb%=z%!32:ȕyb%!0<>M%:yb%=yb%!0:�:yb%!0=M%!0
/��
/��M%!12�
/�:ș131085,,M%!12:M%!12=0:z%!24=z%!24��8:�i(z%):�z%!28�
/�7O%!0=Fb%:O%!4=z%!28:O%!8=0:O%!12=1<<22:ș262349,,O%
/��
/��
/�:p%=0:�:ș524624,p%�p%:�p%�p%=M%!40�p%=M%!72ș524617,p%
/��p%=0:�M%!40�
/�*N%=z%!12:�N%!0=1�N%!0=2ș6,21,�o(N%!0)
/�?ș131085,0,M%!40:M%!40=0:�qc(N%!0):!q%=M%:�c(z%!4,z%,-7,q%)
/��
/��M%!72�
0ș131085,,M%!72:M%!72=0
0�
0Fș131080,6,$M%!68:�free_structure(M%!68):�M%?11�2ș131080,6,$M%!20
0V�free_structure(M%!16):�free_structure(M%!20):�free_structure(M%!24):p%=M%!44:�p%�
0~�free_structure(p%!104):�free_structure(p%!108):�free_structure(p%!112):�free_structure(p%!120):B%=1112887380:C%=p%:�P%+16
0�
0 �M%!52�
0%!B%=1179009620:C%=M%!52:�P%+16
0*�
0/>B%=1430607185:C%=M%:�P%+16:A%!32-=1:�A%!32<=0A%!20=A%!20�1
04 �uc%�
09*!q%=A%!40:ș262348,,q%�1:�q%!32�1<<16�
0>[q%!48=q%!56-A%!44*pa%*2-A%!32*pa%:ș262359,A%!40,q%+44:ș262341,,q%:B%=z%:C%=yb%:�P%+32
0C�
0H�
0M�
0R6��A(z%):�M%,df%:ș263872:�:M%=z%!32:�M%�n(z%,M%,0)
0W0�M%=0:!q%=A%!40:ș262348,,q%�1:�q%!32�1<<16�
0\Yq%!48=q%!56-A%!44*pa%*2-A%!32*pa%:ș262359,A%!40,q%+44:ș262341,,q%:B%=z%:C%=0:�P%+32
0a�
0fș263873:�
0k4��I:�z%:z%=A%!48:ȕz%:�A(z%):z%=z%!0:�:A%!32=0:�
0p/��na:�ef%,j%,z%,M%:�:�A%!24A%!24=!(A%!24+0)
0u�A%!24=0A%!24=A%!48
0z!�A%!24:z%=A%!24:�(z%!24�4)=0�
0-A%!28=z%!32:ef%=0:ȕA%!28:�?(A%!28+11)�1�
0�A%!28=0
0��:�?(A%!28+11)�4�
0�ef%=A%!28:A%!28=!(A%!28+0)
0��:�!(A%!28+12)�
0��rc(z%,A%!28)
0��:�(z%!24�32)=0�
0��A%!28<>z%!32�
0��ef%ef%!0=!(A%!28+0)
0�5!(A%!28+0)=z%!32:z%!32=A%!28:�pc(-1,z%,A%!28,ef%)
0��
0��Ba%=z%�
0�
!q%=Q%:�e
0��
0�0j%=z%!4:j%=j%!20:ȕj%:�$(j%+16)="configure"�
0��j%!12=z%�
0�!q%=j%!4:�e
0��
0��
0�j%=j%!0:�:�rc(z%,A%!28)
0��
0��
0�A%!28=0
0��
0��
0��
1�
1ZA%!32=0:z%=A%!48:ȕz%:M%=z%!32:ȕM%:A%!32+=1:M%=M%!0:�:z%=z%!0:�:�A%!32=0A%!20=A%!20�1
1�
1�ݤra(M%,ff%,�_$):�y$,i%,c$,H%:_$="":y$=�"00"+�~M%!36,3):ș131107,"Alias$@PrintType_"+y$,,-1�,,i%:�i%<0_$="@PrintType_"+y$:=-1
1ȎM%!36�
1�-1:c$=�msg_0(A%!12,"UNT")
1&�8192:�j(�msg_0(A%!12,"OKT"),1):=0
1$&�4096:�j(�msg_0(A%!12,"OKS"),1):=0
1)�4095,2808:M%!36=4095:=-1
1.,�4054,4055,4074,4075,4094:M%!36=4094:=-1
13�ff%:M%!36=ff%:=-1
18K:c$=�task_read_env("File$Type_"+y$,q%):�c$=""c$=�msg_1(A%!12,"TYP",y$)
1=�
1BȎ�sa(c$,M%)�
1G�4:M%!36=4094:=-1
1L�2:M%!36=4095:=-1
1Q�
1V=0
1[�ݤsa(c$,M%):�x%,y%,w%,h%:�icon_write(Bb%,0,�msg_2(A%!12,"WA5",c$,$M%!24)):ș262351,,q%:x%=!q%:y%=q%!4:!q%=Bb%:ș262347,,q%:w%=q%!12-q%!4:h%=q%!16-q%!8:q%!4=x%-340:q%!8=y%-120:q%!12=q%!4+w%:q%!16=q%!8+h%:q%!28=-1
1`Bș262341,,q%:�cc(Bb%):sa%=0:�:�v(ma%):�sa%:!q%=Bb%:�e:�dc:=sa%
1e,��sc(gf%,hf%,if%,Na$):�gf%ș131085,0,gf%
1j�hf%�#hf%=if%
1o�hf%ș131085,0,hf%
1tș131080,6,Na$:�
1yN��hb(Oa$,Na$):�jf%,kf%,lf%,if%,i%:�:��:�sc(jf%,kf%,if%,Na$):�j(�$,1):�
1~jf%=�Na$:lf%=�#jf%:�lf%�
1��ș263872:kf%=�Oa$:if%=�#kf%:�#kf%=if%:�i%=1�lf%�512:ș12,4,jf%,O%,512:ș12,2,kf%,O%,512:�:�lf%�512ș12,4,jf%,O%,lf%�512:ș12,2,kf%,O%,lf%�512
1��#kf%:ș263873
1��
1��#jf%:ș8,6,Na$:�
1�|��rc(z%,M%):�H%,N%,mf%,b%,t%,P$,t$,_$,Qa%,Ra%,nf%,s%,Vb%,z$,of%,G$:�A$,B$,Xb%,l%,f%:H%=z%!4:N%=z%!12:mf%=H%!28:�M%!12=0�
1�*�select_printer(z%,0,0):�(z%!24�4)<>0�
1�*P$=$M%!20:L$=$M%!16:M$=$M%!24:�N%!0=5�
1�Vb%=(N%?6�2)<>0
1��:Vb%=(N%?6�1)<>0
1��
1� �Vb%�
1�g$=�m(0):�g$=""�
1�&z%!24=z%!24�4:�i(z%):�f(-1,z%,0):�
1��
1��N%!0=5�
1�%ș36,"PrinterType$5",g$,�g$:�J(5)
1�)�:ș36,"PrinterType$10",g$,�g$:�J(10)
1��
1� G$=g$
1��
1�z$=�m(0):�z$=""�
1�&z%!24=z%!24�4:�i(z%):�f(-1,z%,0):�
1��
1��ș36,"Printer$Temp",z$,�z$:q%!0=48+�P$��3:q%!12=0:q%!16=524613:q%!40=M%!36:$(q%+44)=P$+�0:ș262375,18,q%:ta%=0:�:�v(la%):�ta%:b%=-1:�ta%<>2�
1�b%=�ra(M%,mf%,_$):�b%�
2 �_$<>""�
2ș262366,_$+" "+P$
2
�
2�
2�
2 �b%�
2�n(z%,M%,-1):�
2#�
2( �Vb%�
2-s$=�n(z%,-1):�s$<>""�
22�b(s$):�z%!32�
27$z%!24=z%!24�4:�i(z%):�f(-1,z%,0)
2<�
2A�
2F�
2K(�(M%!36=4095�M%!36=4094�M%!36=mf%)�
2Pș8,17,z$�t%,,Qa%,,Ra%:�t%�
2U
�M%?11�2�
2Z�K$<>""ș131080,6,K$
2_
K$=$M%!20
2d�
2ij�free_structure(M%!20):$q%=z$:B%=q%:C%=2:M%!20=�(P%+28):M%!28=Ra%:M%!36=(Qa%�1048320)>>8:M%?11=M%?11�2
2n�:�Vb%�
2s�N%!0=5�
2x�hb($N%!16,G$):�n(z%,M%,-1)
2}&�:ș8,17,G$�b%,,,,Ra%:�b%=0�Ra%=0�
2�ș131080,6,G$:�n(z%,M%,-1)
2�!�:�(M%?11�2)ș131080,6,$M%!20
2�]�free_structure(M%!20):$q%=G$:B%=q%:C%=2:M%!20=�(P%+28):M%!28=Ra%:M%!36=mf%:M%?11=M%?11�2
2��
2��
2�6�:A$=$M%!16:B$=$M%!24:�n(z%,M%,-1):�N%!0=9�q$<>""�
2��c$=$(z%!40):K%=�c$," "):ȕK%:�c$,K%,1)=�160:K%=�c$," ",K%+1):�:w$=q$+"RemSpool."+h$+"."+c$:C$=q$+"RemQueue."+h$+"."+�(Na%):ș131080,17,w$�t%,,,,l%;f%:�(l%>0)�((f%�1)=0)�(t%=1)�
2��B (z%,A$,B$)�
2�Xb%=W%!4:ș131113,25,w$,C$
2��:ș131080,6,w$
2��
2�%L$="":M$="":s$=�n(z%,-1):�s$<>""�
2�
�b(s$)
2��
2��
2��
2��select_printer(0,-1,-1)
2��
2��
2�
�:ȎN%!0�
2��1:�z%!24�128�
2�'g$="devices#buffer"+äP(1)+":$."+�U
2�.�:g$="devices#buffer"+äP(1)+":$.Parallel"
2��
2�ș36,"PrinterType$1",g$,�g$
2�I�2:g$="devices#buffer"+äP(2)+":$.Serial":È™36,"PrinterType$2",g$,�g$
3�
3 !ș263872:�N%!0=5�(N%?6�2)<>0�
3,ș131085,207,g$�b%;t%:�(t%�1)=0�#b%=�#b%
3�:ș131085,143,g$�b%;t%
3�
3�t%�1i%=b%+4:�Z%,i%,t$
3",ș263873:�select_printer(0,-1,-1):�t%�1�
3'1�fc(z%):�qc(N%!0):�254,�msg_1(A%!12,"OKP",t$)
3,�
317M%!40=b%:ș131085,64,$M%!20�M%!12;t%:�(t%�1)M%!12=0
36
�M%!12=0�
3;1�n(z%,M%,-1):�254,�msg_1(A%!12,"OKAF",$M%!20)
3@�
3Et$=�m(0):�t$=""�
3J&z%!24=z%!24�4:�i(z%):�f(-1,z%,0):�
3O�
3T<ș131080,11,t$,4093�b%;t%:�(t%�1)=0ș131085,207,t$�b%;t%
3Y
�t%�1�
3^7�fc(z%):b%+=4:�Z%,b%,s$:�254,�msg_1(A%!12,"OKP",s$)
3c�
3htM%!72=b%:$q%=t$:B%=q%:C%=2:M%!68=�(P%+28):B%=1179009620:C%=1024:s%=�(P%+12):�s%=0�253,�msg_1(A%!12,"FA5","TBFF")
3m:M%!52=s%:z%!24=z%!24�8:�i(z%):�f(-1,z%,0):�M%!36<>mf%�
3r�z%!24�64�
3w+�n(z%,M%,-1):�z%!40=0s$=$z%!8�s$=$z%!40
3| �254,�msg_1(A%!12,"OKAC",s$)
3��
3��tc(M%,mf%)
3��
3��
3��:��#M%!12�M%!56=0�
3�t%=�#M%!72-�#M%!72:�t%�
3��N%!0=1�N%!0=2�
3�?ș6,128,��o(N%!0)�,Ra%,Qa%:Ra%=Ra%�Qa%<<8:�Ra%>1024Ra%=1024
3��:Ra%=1024/2
3��
3��uc(M%,t%,Ra%):�
3��
3�nf%=-1:�N%!0=1�N%!0=2�
3�'ș6,152,�o(N%!0)�;b%:�(b%�2)=0nf%=0
3��
3� �nf%�
3�;�i(z%):A$=$M%!16:B$=$M%!24:�n(z%,M%,-1):�N%!0=9�q$<>""�
3֎c$=$(z%!40):K%=�c$," "):ȕK%:�c$,K%,1)=�160:K%=�c$," ",K%+1):�:w$=q$+"RemSpool."+h$+"."+c$:C$=q$+"RemQueue."+h$+"."+�(Na%):�B (z%,A$,B$)�
3�Xb%=W%!4:ș131113,25,w$,C$
3��:ș131080,6,w$
3��
3�s$=�n(z%,-1):�s$<>""�
3�
�b(s$)
3��
3��
3��
4�:�vc(z%,M%,mf%)
4�
4
�
4�
44��tc(M%,ff%):�i%,p%,c$:�:��:�wc(A%!24,A%!28)
4IB%=1112887380:C%=124:p%=�(P%+12):�p%=0�253,�msg_1(A%!12,"FA5","TPUB")
4!M%!44=p%:�0<=124-4
4&�i%=0�124-4�4:p%!i%=0:�
4+�
40L?O%=3:ș7,14,O%:ș192,O%,O%+5,250:B%=O%+5:C%=2:p%!120=�(P%+28):�M%?11�2�
45c$=$M%!16+" - "+$M%!24
4:�:c$=$M%!20:�c$>40�
4?!c$=�c$,40):c$=�c$,1+�c$,"."))
4D�
4I�
4Nz$q%=c$:B%=q%:C%=2:p%!112=�(P%+28):p%!16=1:$q%=�32," "):B%=q%:C%=5:D%=32:p%!104=�(P%+28):p%!96=128:�G(A%!24,A%!28,-1):�
4S'��wc(z%,M%):�n(z%,M%,-1):�z%!32<>0�
4Xz%!24=z%!24�32:�i(z%)
4]�
4b"�254,�msg_1(A%!12,"OKPa",�$):�
4gJ��vc(z%,M%,ff%):�l%,t%,pf%,Wc%,b$,p%,ac%,N%,qf%,H%:�:��:�wc(z%,M%)
4l.N%=z%!12:H%=z%!4:ac%=M%!44:�N%!0=1�N%!0=2�
4q=ș6,128,��o(N%!0)�,Wc%,l%:Wc%=Wc%�l%<<8:�Wc%>1024Wc%=1024
4v�:Wc%=1024/2
4{�
4�!l%=�#M%!72-�#M%!72:�M%!56l%=0
4��l%�uc(M%,l%,Wc%):�
4�)ș263872:l%=M%!28-�#M%!12:�M%!36=ff%�
4��#(M%!12)=0�
4�(q%!8=M%!40:q%!12=M%!12:�G(z%,M%,-20)
4��
4��l%>Wc%l%=Wc%
4�)ș12,4,M%!12,q%,l%:ș12,2,M%!40,q%,l%
4��:�M%!36=4095�(H%!32�1)<>0�
4�
Ȏac%!92�
4�0�0:q%!8=M%!72:�G(z%,M%,-2):M%!32=-1:ac%!92=1
4�/�1:q%!8=M%!72:�G(z%,M%,-3):M%!32=0:ac%!92=2
4��2:�H%!32�2�
4�
�M%!56=0�
4�E�xc(0):q%!8=M%!56:�yc(M%,�ta(z%,M%,-4)):�zc(z%,M%,Wc%):�ac%!92=3�
4�%q%!8=M%!72:�G(z%,M%,-14):ac%!92=1
4��
4��:�zc(z%,M%,Wc%)
4��
4��:�M%!56=0�
4�t%=1024/4:�t%>Wc%t%=Wc%
4�M%!60=0:�xc(t%):�ac%!40�
4��fc(z%):�_a(z%):p%=ac%!40
4��
4��
4��Wc%>M%!56Wc%=M%!56
5�ac%!40<>0�Wc%>p%Wc%=p%
5$�Wc%ș12,2,M%!40,M%!52+M%!60,Wc%
5M%!56-=Wc%:M%!60+=Wc%
5�
5�
5`�:t%=��printer_read_string(ac%!108):ȕl%�Wc%>t%:b$=�ua(�#M%!12,ac%):l%-=1:�b$<>""�#M%!40,b$;
5 Wc%-=�b$:�
5%�
5*�
5/��#M%!12�M%!56=0�
54"q%!8=M%!72:�G(A%!24,A%!28,-15)
59�
5>'�M%!28=0pf%=0�pf%=�#M%!12*100/M%!28
5C�pf%<>M%!32�
5HM%!32=pf%:�f(-1,z%,M%)
5M�
5R�#M%!72=0:ș263873:�
5W$��uc(M%,rf%,Wc%):�rf%>Wc%rf%=Wc%
5\?ș12,4,M%!72,q%,rf%:ș12,2,M%!40,q%,rf%:�#M%!72-�#M%!72=0�
5a�#M%!72=0:�#M%!72=0
5f�
5k�
5p"ݤua(C%,ac%):�r$:�C%=10�C%=13�
5u7�ac%!16=1�ac%!16=C%r$=�printer_read_string(ac%!108)
5z
ac%!16=C%
5-�:�ac%!16r$=�printer_read_string(ac%!108)
5�r$+=�C%:ac%!16=0
5��
5�=r$
5�5��yc(M%,s$):�sf%,tf%:tf%=M%!52:sf%=M%!56:�s$<>""�
5�$(tf%+sf%)=s$:M%!56+=�s$
5��
5��
5�6��zc(z%,M%,Wc%):�sf%,tf%:tf%=M%!52:sf%=M%!56:�sf%�
5��N%!0=1�N%!0=2�
5��sf%>=Wc%�
5��
5�=tf%?sf%=10:sf%+=1:tf%?sf%=13:ș12,2,M%!40,tf%,sf%:M%!56=0
5��
5��
5�7��G(z%,M%,uf%):q%!0=uf%:q%!4=M%:�c(z%!4,z%,-8,q%):�
5�Sݤta(z%,M%,uf%):�s$,i%:q%!0=uf%:q%!4=M%:�c(z%!4,z%,-8,q%):i%=q%+8:�Y%,i%,s$:=s$
5����xc(F%):�H%:H%=z%!4:B%=H%:C%=M%:D%=ac%:E%=O%+128:E%!0=H%:E%!4=z%:E%!8=M%:E%!12=ac%:E%!16=q%:E%!20=O%+356:$(O%+356)=�164+$H%!4+"_support("+�O%+")":O%!0=-8:O%!4=H%:O%!8=z%:O%!12=q%:O%!16=ja%:O%!20=P%:O%!24=F%:�F%=0�P%+4��P%+0
5��
5�ݤP(t%):Ȏt%�
5��1:�A%!80=0�
5��A%!76<>3�
5�A%!80=3
5��:A%!80=10
5��
5��
6
=A%!80
6�2:�A%!76=0�
6�A%!80<>3�
6A%!76=3
6
�:A%!76=2
6�
6�
6$
=A%!76
6)�
6.=0
63��qc(t%):Ȏt%�
68�1:A%!80=0
6=�2:A%!76=0
6B�
6G�
6Lݤo(t%):Ȏt%�
6Q
�1:=A%!80
6V
�2:=A%!76
6[�
6`=0
6eFݤR:�fb%,vf%:ș88,3�fb%,vf%:�(fb%�61440)=4096�(vf%�61440)=4096:=-1
6j=0
6o6ݤU:�fb%:ș8,5,"Devices:FastParallel"�fb%:�fb%<>0�
6t:="FastParallel"
6y�::="Parallel"
6~�
6�{ݤrmload_latest_module(c$,k$):�wf%,xf%,yf%:�K%,f%,vf%,zf%,Af%,s$,Bf%:wf%=-1:ș131102,18,c$�,,,K%;f%:�(f%�1)=0�K%!20<>0�
6�0K%+=(K%!20):ȕ?K%<>9�?K%<>0:K%+=1:�:�?K%<>0�
6�/wf%=0:K%+=1:ȕ?K%<>32:�?K%>=�"0"�?K%<=�"9"�
6�wf%=wf%*10+?K%-�"0"
6��
6�K%+=1:�
6��
6��
6�Pxf%=-1:vf%=0:zf%=-1:�:ș131102,20,vf%,zf%�,vf%,zf%,K%,Bf%,,Af%;f%:�(f%�1)=0�
6�&�Z%,K%,s$:�s$=c$xf%=�(�~(Af%))/100
6��
6�@�(xf%<>-1)�(f%�1)<>0:yf%=-1:ș131085,67,k$�f%;K%:�(K%�1)f%=0
6��f%<>0�
6�A�#f%=20:K%=�#f%+((�#f%)<<8)+((�#f%)<<16)+((�#f%)<<24):�K%<>0�
6�,�#f%=K%:�:vf%=�#f%:�vf%=0�vf%=9:�vf%<>0�
6�*yf%=0:�:vf%=�#f%:�vf%>=�"0"�vf%<=�"9"�
6�yf%=yf%*10+vf%-�"0"
6��
6��vf%=32
6��
6��
6��#f%
6��
6��wf%>xf%vf%=wf%�vf%=xf%
6��vf%>yf%f%=vf%�f%=yf%
7 vf%=0:�xf%=f%�
7�Bf%<1�
7
&ș131102,4,c$:ș131102,3,c$�K%;vf%
7�
7�
7�yf%=f%�yf%>xf%�yf%>wf%�
7ș131102,1,k$�K%;vf%
7#�
7(#�(vf%�1)=0ș131102,18,c$�K%;vf%
7-�(vf%�1)!K%=253:ș43,K%
72=f%
77b��` (Cf%):�f%,g%,Df%,Ff%,s$:ia%=0:�rmload_latest_module("PDriver","Printers:Modules.PDriver")
7<O�rmload_latest_module("RemotePrinterSupport","Printers:Modules.RemPrnSpt")
7A.Df%=0:ș131102,18,"Freeway"�;f%:�(f%�1)=0�
7FBș131129,,"Freeway_Status"�;g%:�(g%�1)=0�ș424580,0�,Df%�Df%=1
7K�
7Peș131102,18,"RemotePrinterSupport"�;Ff%:ș131102,18,"ShareFS"�;g%:�(f%�1)�(Df%=0)�(g%�1)�(Ff%�1)�
7U Ja%=0
7Z=�:ș131077,"RMEnsure ShareFS 2.00 ERROR Foo"�;f%:�(f%�1)�
7_ Ja%=0
7d��:h$=�task_read_env("Inet$LocalAddr",q%):Ja%=-1:�Ac:�Bc:ș424323,2:Pa$="<Wimp$ScrapDir>.Printers":s$=�task_read_env ("Printers$Dir",q%):�s$,"Share:")�
7i
ia%=-1
7n�:ia%=0
7s�
7x�
7}�
7��(Ff%�1)=0�
7�ș424320�La%
7��
7� �ia%�
7�]ș131080,8,"<Printers$Path>Remote"�;f%:s$="<Printers$Path>Remote.ID"+h$:ș131080,8,s$�;f%
7��
7��
7���Ac:ș293504,0,2:�
7�ݤk(Gf%):�W$:�Z%,Gf%,W$:=W$
7�
��la:�
7����Bc:�Hf%,If%,Jf%,Kf%,jc%,Zb%,c$,kb%:�Lf%,Mf%,c$,Qa$,S%,Gd%:If%=0:Jf%=0:Ma%=0:�:If%=Jf%:ș293507,0,2,0,0,0,0,0,If%�,,Kf%,,jc%,,,Jf%:�(Jf%>0)�
7��Lf%=�g (1196577875,Kf%):Mf%=�g (1196577875,jc%+1):Nf%=�g (810701907,Kf%):Of%=�g (810701907,jc%+1):ș293507,0,2,Kf%,Nf%,jc%+1,Of%,0,If%�,,,,,,Zb%:Of%?jc%=0:$Lf%=�k (Nf%):$Mf%=�k (Of%):�d (810701907,Nf%):�d (810701907,Of%)
7�6S%=�F (Lf%,Mf%,Zb%):�L (Ka%,S%):c$=$Lf%:�va (c$)�
7�!Bd%=�y (S%,0,0,-1,kb%):�kb%�
7��_b (c$):�N (c$):�W%=0�
7��A%!44�
7�Gd%=A%!48:ȕGd%:�Gd%!20�
7�#�select_printer(Gd%,-1,0):Gd%=0
7��:Gd%=Gd%!0
7��
7��
7��
7��
7��
7��
7�
Ma%+=1
8�
8 �(Jf%<0):�
8g��ac (c$):�Lf%,Mf%,jc%,Zb%,Qa$,ab%,S%,Ra$,Gd%,kb%,mb%:ș424578,0,2,c$,0,0�,,,jc%,,Zb%;ab%:�(ab%�1)�
8�
8�
8/mb%=0:S%=Ka%:ȕS%:�($S%!4=c$)�((S%!20)<=0)�
8"�
8'�
8,�S%=S%!0:�:Lf%=�g (1196577875,�c$+1):Mf%=�g (1196577875,jc%+1):Of%=�g (810701907,jc%+1):$Lf%=c$:ș424578,0,2,c$,jc%+1,Of%�;ab%:�(ab%�1)�
81�
86�
8;`Of%?jc%=0:$Mf%=�k (Of%):�d (810701907,Of%):S%=�F (Lf%,Mf%,Zb%):�L (Ka%,S%):Ma%+=1:�va (c$)�
8@!Bd%=�y (S%,0,0,-1,kb%):�kb%�
8E�_b (c$):�N (c$):�W%=0�
8J�A%!44�
8OGd%=A%!48:ȕGd%:�Gd%!20�
8T�Cc(Gd%,-1,0,-1,kb%):Gd%=0
8Y�:Gd%=Gd%!0
8^�
8c�
8h�
8m�
8r�
8w�
8|�k:�
8�8��_b (c$):�We%,Hf%,mb%,Pf%:Hf%=Ka%:We%=0:mb%=0:�Hf%�
8��:�($Hf%!4)=c$�Hf%!20>0�
8�
mb%=-1
8��:We%=Hf%:Hf%=Hf%!0
8��
8�#�mb%�(Hf%=0):�(We%=0)�(Hf%<>0)�
8�\Ka%=Hf%!0:�D (-2,Hf%!20):�d (1196577875,Hf%!4):�d (1196577875,Hf%!8):�d (1380799568,Hf%)
8��:�Hf%�
8�^We%!0=Hf%!0:�D (-2,Hf%!20):�d (1196577875,Hf%!4):�d (1196577875,Hf%!8):�d (1380799568,Hf%)
8��
8��
8��
8��
8�Dݤva (c$):�Hf%,Qf%:Hf%=Ka%:Qf%=0:ȕHf%��Qf%:�$Hf%!4=c$�Hf%!20>0�
8�
Qf%=-1
8��:Hf%=Hf%!0
8��
8�
�:=Qf%
8�6��N (c$):�z%,Id%,K%,N%,Gd%,y$,H%,`$:�wa (Ka%,c$)�
8��Wa (Ka%,c$)
8�;�:Id%=0:z%=A%!48:K%=z%:N%=z%!12:ȕK%:�$K%!40=c$�N%!0=9�
8�K%=0
8�#�:Id%=z%:z%=z%!0:K%=z%:N%=z%!12
8��
8�
�:�z%�
8�BH%=z%!4:`$=$H%!4:y$=$z%!8:�Ua (c$,`$,y$):�bc (z%,Id%):�Nb (y$)
9�
9�
9
�i (Fb%)�
9�k:�p (Fb%)
9�
9�
9!ݤu(Zb%):=�~Zb%
9&;ݤg (Rf%,Ra%):�Sf%:B%=Rf%:C%=Ra%:Sf%=�(P%+12):�(Sf%=0)�
9+c�253,�msg_1 (A%!12,"FA5",�((B%�-16777216)>>24)+�((B%�16711680)>>16)+�((B%�65280)>>8)+�(B%�255))
90�
95=Sf%
9:(��d (Rf%,wd%):B%=Rf%:C%=wd%:�P%+16:�
9?2��K (�Tf%,i$):$q%=i$:B%=q%:C%=2:Tf%=�(P%+28):�
9DqݤF (Lf%,Mf%,Uf%):�Sf%:Sf%=�g (1380799568,24):Sf%!0=0:Sf%!4=Lf%:Sf%!8=Mf%:Sf%!12=Uf%:Sf%!16=-1:Sf%!20=-1:=Sf%
9I�ݤxa (c$,qb%,R$):�Sf%,Vf%,zd%:Sf%=�g (1380799568,24):�K (Vf%,c$):�K (zd%,R$):Sf%!0=0:Sf%!4=Vf%:Sf%!8=zd%:Sf%!12=-1:Sf%!16=-1:Sf%!20=qb%:=Sf%
9N��L (�wc%,Re%):�Hf%:�wc%=0�
9Swc%=Re%
9X0�:Hf%=wc%:ȕ(Hf%!0<>0):Hf%=Hf%!0:�:Hf%!0=Re%
9]�
9b�
9gݤwa (�wc%,c$):�Hf%:�wc%=0�
9l=0
9q�:Hf%=wc%:ȕHf%:�$Hf%!4=c$�
9v=-1
9{�:Hf%=Hf%!0
9��
9��
9��
9�=0
9�)��Wa (�wc%,c$):�We%,Hf%,mb%,Pf%:�wc%�
9�'Hf%=wc%:We%=0:mb%=0:�:�($Hf%!4)=c$�
9�
mb%=-1
9��:We%=Hf%:Hf%=Hf%!0
9��
9�#�mb%�(Hf%=0):�(We%=0)�(Hf%<>0)�
9�Mwc%=Hf%!0:�d (1196577875,Hf%!4):�d (1196577875,Hf%!8):�d (1380799568,Hf%)
9��:�Hf%�
9�OWe%!0=Hf%!0:�d (1196577875,Hf%!4):�d (1196577875,Hf%!8):�d (1380799568,Hf%)
9��
9��
9��
9��
9�V��ua:�Rd%,z%,N%,Gd%:�hb%,Wf%,s$,H%,s%,t%,l%,t$,K%:�:ș424321,,,-1�Rd%,,Wf%:�Rd%>0�
9��Wf%>0�
9�-hb%=�g (1196577875,Wf%):ș424321,,hb%,Wf%
9��:ș424321,,0,0
9��
9�
ȎRd%�
9��1:�W%�
9�N%=W%!12:�N%!0=9�q$<>""�
9��t$=$(W%!40):K%=�t$," "):ȕK%:�t$,K%,1)=�160:K%=�t$," ",K%+1):�:w$=q$+"RemSpool."+h$+"."+t$:C$=q$+"RemQueue."+h$+"."+�(Na%):ș131080,17,w$�t%,,,,l%;f%:�(l%>0)�((f%�1)=0)�(t%=1)�
:�L$=""�
:L$=�msg_0(A%!12,"UNKN")
:�
:�M$=""�
:M$=�msg_0(A%!12,"UNKN")
:�
: �B (W%,L$,M$)�
:%H%=W%!4:ș131113,25,w$,C$
:*�:ș131080,6,w$
:/�
:4%L$="":M$="":s$=�n(W%,-1):�s$<>""�
:9
�b(s$)
:>�
:C�
:H�
:M�
:R�2:�Dc (�k (hb%))
:W�3:�Ja%�
:\�ac (�k (hb%))
:a�
:f�4:�N (�k (hb%))
:k�5
:p�6:�Fc (�k (hb%))
:u�7:�Gc:�` (0)
:z
�8:�Hc
:�
:�
�(Wf%>0)�
:��d (1196577875,hb%)
:��
:��
:��Rd%<0:�W%=0�
:��A%!44�
:�Gd%=A%!48:ȕGd%:�Gd%!20�
:�#�select_printer(Gd%,-1,0):Gd%=0
:��:Gd%=Gd%!0
:��
:��
:��
:��
:��
:���xa:�Gc:�` (0):ga%=0:�
:���Fc (c$):�
:�mݤda:�C$,f%,v%,w%,e$,Xc%,Xf%:�:C$=q$+"RemQueue."+h$+"."+�Na%:ș424326:ș131080,5,C$�v%;f%:ș424325:�f%�1�
:�*Na%=-1:=�msg_0 (A%!12,"OKAS",�k(v%+4))
:��
:�
�(v%<>0)�
:�
Na%+=1
:��
:�
�v%=0:=""
:����Dc (Sa$):�Ta$,Ua$,Lb%,Va$,B$,c%,z%:�K%,c$,H%,Ub%,Wa$,A$:B$=�Sa$,�Sa$,".")+1):Ta$=Pa$+"."+Sa$:Ua$=Pa$+".RemQueue."+B$+"I":Va$="":O$="":h%=�Ua$:�h%=0�
:��
;�
;�c%=�#h%:ȕ(��#h%)�(c%<>0):Va$+=�c%:c%=�#h%:�:c%=�#h%:ȕ(��#h%)�(c%<>0):Wa$+=�c%:c%=�#h%:�:c%=�#h%:ȕ(��#h%)�(c%<>0):A$+=�c%:c%=�#h%:�:B$="":c%=�#h%:ȕ(��#h%)�(c%>31):B$+=�c%:c%=�#h%:�:�#h%:ș131080,6,Ua$:K%=A%!48:z%=0:ȕ(K%):�(K%!40=0)�
;H%=K%!4:c$=$(H%!4)
;�:c$=$(K%!40)
;�
;�c$=Va$�
;z%=K%:K%=0
;$
�:K%=K%!0
;)�
;.�:�(z%<>0)�
;3]H%=z%!4:ș131080,23,Ta$�,,,,,,Ub%:�gb (-1,"("+�msg_0 (A%!12,"IC9")+") "+A$,Ta$,B$,z%,Ub%)
;8�
;=�
;B4��fb (Zf%,o$):�e%,f%:ș403072,Zf%�e%;f%:�(f%�1)�
;G3L$=�msg_0(A%!12,"UNKN"):M$=�msg_0(A%!12,"UNKN")
;L�:L$=�k (e%):M$=o$
;Q�
;V�
;[uݤB (z%,A$,o$):�Sa$,h%,f%,c$,K%:Sa$=q$+"RemQueue."+h$+"."+�(Na%)+"I":c$=$z%!40:ș131085,131,Sa$�h%;f%:�(f%�1)h%=0
;`�h%<>0�
;e/�#h%,c$+�0+h$+�0+A$+�0+o$:ș131085,0,h%�;f%
;j�
;o�(f%�1)�h%=0:=0
;t=-1
;y��Jb:�z%,qb%,S%:笤x�
;~ �j(�msg_0(A%!12,"OKAV"),1):�
;��
;�秤ya,"Share:")>0�
;� �b (�msg_0 (A%!12,"OKAT")):�
;��
;�F�:�t (z%,S%,qb%):�icon_deselect (Fb%,qb%):�z%�((z%!24�(1<<17))=0)�
;��Oa (z%)
;��
;��(z%=0)�(S%=0):�
;�I��Oa (z%):�c$,_f%,ic%,`f%,W$,f%,fb%,f$,ag%,Xa$,H%:�(z%!24�(1<<17))>0�
;��
;��
;��(z%!40=0)�
;�H%=z%!4:c$=$(H%!4)
;��:c$=$(z%!40)
;��
;� 笤x�
;�:�j(�msg_1(A%!12,"OKAW",c$),1):z%!24=z%!24�(�(1<<16)):�
;��
;�秤ya,"Share:")>0�
;�:�b (�msg_1 (A%!12,"OKAU",c$)):z%!24=z%!24�(�(1<<16)):�
;��
;�R$=$(z%!8):�(z%!24�1)=0�
;��Z (z%)
;��
;�B_f%=0:�:ș131107,"Inet$LocalAddr*",0,1<<31,_f%,0�,,`f%:�`f%<0�
<