Home » Personal collection » Acorn hard disk » apps » Printers » 152/!Printers/!RunImage
152/!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: | 152/!Printers/!RunImage |
| Read OK: | ✔ |
| File size: | 18EC5 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Archimedes World » AW-1994-06-Disc1.adf » Disk1Jun94 » !AWJune94/Goodies/Acorn/!Printers/!RunImage
- Personal collection » Acorn hard disk » apps » Printers » 152/!Printers/!RunImage
File contents
5REM>Datafiles.!RunImage
10ONERRORERROREXTERR,REPORT$
15SYS263872:DIMA%84,A%!16 256,W%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:CALLP%+8:PROCia:PROCja:PROCka:SYS263873:ONERRORPROCla
25REPEAT:PROCv(A%!20):UNTIL0:END
30DEFPROCv(ca%):LOCALr%,t%,z%:r%=FNaa(ca%):CASEr%OF
35WHEN0:PROCma:PROCna
40WHEN1:PROCoa
45WHEN2:SYS262341,,q%
50WHEN3:PROCe
55WHEN6:PROCpa
60WHEN7:IFda%THEN
65PROCqa
70ELSE:PROCw(V%,7,q%)
75ENDIF
80WHEN8:PROCra
85WHEN9:PROCsa
90WHEN13:!(q%!0)=0:PROCta
95WHEN17,18:PROCua(r%)
100WHEN19:PROCva
105OTHERWISE:PROCw(V%,r%,q%)
110ENDCASE
115ea%=-1:z%=A%!48:WHILEz%:t%=z%!56:IFNOTt%THEN
120IFea%=-1ea%=t%ELSEIFt%<ea%ea%=t%
125ENDIF
130z%=z%!0:ENDWHILE:CASEfa%OF
135WHEN1:ea%+=500:fa%=2
140WHEN2:PROCwa:fa%=0
145ENDCASE
150ENDPROC
155DEFPROCja:LOCALj$:q%!0=24:q%!12=0:q%!16=524611:q%!20=34:SYS262375,18,q%:ga%=q%!8:PROCxa:PROCya:PROC` (-1):IFha%THEN
160j$="<Printers$Path>Remote.ID"+h$:SYS131080,8,j$:j$+="."
165ELSE:j$="<Printers$Path>"
170ENDIF
175SYS36,"PrinterChoices$Path",j$,LENj$,0,0:PROCO("Printers:PaperRO",2):IFha%THEN
180PROCO ("<Printers$Dir>.Remote.ID"+h$+".PaperRW",1)
185ELSE:PROCO("<Printers$Dir>.PaperRW",1)
190ENDIF
195IFia%=0ERROR253,FNmsg_0(A%!12,"FAK")
200PROCza:ea%=-1:SYS66TOja%:PROCAa:ENDPROC
205DEFPROCxa:A%!20=12589105:ka%=12589427:la%=12589361:ENDPROC
210DEFPROCba:LOCALh%,l%,a%,w%:h%=OPENIN"Printers:Code":l%=EXT#h%:SYS41,21,h%TO,a%,w%:CLOSE#h%:IF(w%AND255)=46THEN
215P%=a%
220ELSE:DIMP%l%+1:SYS8,16,"Printers:Code",P%
225ENDIF
230Z%=P%+64:Y%=P%+68:ENDPROC
235DEFPROCya:c=1814.4*72000/(180<<8):d=72000:ma%=44:na%=0:oa%=0:pa%=0:qa%=0:ra%=0:sa%=0:A%!48=0:A%!44=0:V%=0:ta%=0:J$="":ua%=0:va%=0:wa%=0:xa%=0:A%!24=0:A%!28=0:g$="null:":ya%=0:za%=0:A%!32=0:aa$="":A%!36=0:Aa%=0:Ba%=0:ia%=0:Ca%=0:Da%=0
240SYS6,204,,255TO,Fa%:K$="":ba$="":A%!76=0:A%!80=0:Ga%=0:Ha%=0:Ia%=0:Ja%=0:h$="":Ka%=0:q$="":L$="":M$="":La%=0:Ma%=0:fa%=0:ha%=0:ENDPROC
245DEFPROCha:LOCALc%,d%,Na%,Oa%,Pa%,Qa%,Ra%:LOCALa$():DIMa$(255):Pa%=0:Qa%=0:Sa%=0:Ta%=0:Ua%=0:Va%=0:c%=-1:REPEAT:PROCBa(j$,U$,c$,c%):IFc$<>""THEN
250SYS8,17,"Printers:"+c$+".Resources.Support"TOd%,,Na%,,Oa%:IFd%=1AND(Na%AND-1048576)=-1048576THEN
255Oa%=Oa%+3ANDNOT3:CASE(Na%AND1048320)>>8OF
260WHEN4091:IFOa%>Pa%Pa%=Oa%
265IFSa%<255a$(Sa%)=c$
270Sa%+=1
275WHEN4092:Qa%+=Oa%:Ta%+=1
280ENDCASE
285ENDIF
290ENDIF
295UNTILc$="":IFTa%>0DIMb%(Ta%-1),b$(Ta%-1)
300Ra%=HIMEM+Qa%+Pa%+16*1024:END=Ra%
305IF(HIMEM+Qa%+Pa%+16*1024)<Ra%THEN
310Ra%=Ra%/1024:Ra%=Ra%-Ra%MOD8+8:ERROR253,FNmsg_1(A%!12,"FA4",STR$Ra%)
315ENDIF
320IFSa%>0THEN
325DIMc$(Sa%-1):FORd%=0TOSa%-1:c$(d%)="Printers:"+a$(d%)+".Resources.Support":NEXT:OVERLAYc$()
330ENDIF
335ENDPROC
340DEFPROCBa(RETURNj$,RETURNU$,RETURNc$,RETURNWa%):LOCALi%,Xa%:IFWa%=-1j$=FNtask_read_env("Printers$Path",ba%)
345REPEAT:IFWa%=-1THEN
350IFj$=""THEN
355c$="":ENDPROC
360ENDIF
365i%=INSTR(j$,","):IFi%=0i%=LENj$+1
370U$=LEFT$(j$,i%-1):IFRIGHT$(U$)="."U$=LEFT$(U$)
375U$+=CHR$0:j$=MID$(j$,i%+1):Wa%=0
380ENDIF
385SYS12,10,U$,ba%,1,Wa%,256,"*"TO,,,Xa%,Wa%:IFXa%=1THEN
390IFba%!16=2THEN
395i%=ba%+20:CALLZ%,i%,c$:ENDPROC
400ENDIF
405ELSE:Wa%=-1
410ENDIF
415UNTIL0:ENDPROC
420DEFPROCCa(c$):LOCALNa%,Oa%,f$:f$="Printers:"+c$+".Resources.Support":SYS8,17,f$TOd%,,Na%,,Oa%:Oa%=Oa%+3ANDNOT3:IFd%<>1SYS8,19,f$,d%
425IF(Na%AND-1048576)<>-1048576ERROR254,FNmsg_1("FA3",c$)
430CASE(Na%AND1048320)>>8OF
435WHEN4091
440WHEN4092:IFVa%<Ta%THEN
445DIMu%Oa%:b%(Va%)=u%:b$(Va%)=c$:SYS8,16,f$,u%:Va%+=1
450ENDIF
455OTHERWISE:ERROR254,FNmsg_1("FA3",c$)
460ENDCASE
465ENDPROC
470DEFPROCDa(c$,RETURNZa%):LOCALd%,Na%,f$,h%,_a%,`a%,H%:LOCALab%:f$="Printers:"+c$+".Resources.Support":SYS8,17,f$TOd%,,Na%:IFd%<>1SYS8,19,f$,d%
475IF(Na%AND-1048576)<>-1048576ERROR254,FNmsg_1("FA3",c$)
480B%=1347769168:C%=60:Za%=USR(P%+12):IFZa%=0ERROR253,FNmsg_1(A%!12,"FA5","PSUP")
485CASE(Na%AND1048320)>>8OF
490WHEN4091:Za%!24=1
495WHEN4092:Za%!24=0
500OTHERWISE:B%=1347769168:C%=Za%:CALLP%+16:ERROR254,FNmsg_1(A%!12,"FA3",c$)
505ENDCASE
510Za%!0=0:$q%=c$:B%=q%:C%=2:Za%!4=USR(P%+28):Za%!8=0:Za%!12=0:SYS8,17,FNg(Za%,"Resources.!Sprites")TOd%:IFd%=1THEN
515SYS131077,"IconSprites "+FNg(Za%,"Resources.!Sprites")TOC%;d%:IF(d%AND1)!C%=253:SYS43,C%
520ENDIF
525SYS8,17,FNg(Za%,"Resources.Messages")TOd%:IFd%=1THEN
530PROCaa(FNg(Za%,"Resources.Messages"),d%):Za%!16=d%
535ELSE:Za%!16=0
540ENDIF
545SYS8,17,FNg(Za%,"Resources.Templates")TOd%:IFd%<>1ERROR254,FNmsg_1(A%!12,"FA2",c$)
550PROCFa(FNg(Za%,"Resources.Templates"),FNg(Za%,"Resources.Template3D")):d%=0:`a%=Za%+20:REPEAT:PROCGa("",d%,c$):IFd%THEN
555PROCl("",c$,1,h%):B%=1145981271:C%=16+1+LENc$:_a%=USR(P%+12):IF_a%=0ERROR253,FNmsg_1(A%!12,"FA5","WIND")
560_a%!0=0:_a%!4=h%:_a%!8=0:_a%!12=0:$(_a%+16)=c$:!`a%=_a%:`a%=_a%+0
565ENDIF
570UNTILd%=0:PROCHa:PROCc(Za%,0,-1,0):IFNOTFNk(FNg(Za%,"Template"))ERROR254,FNmsg_1(A%!12,"OK1a",$Za%!4)
575PROCIa(Za%):PROCm:IFha%THEN
580IFNOTFNk(FNO(Za%,h$,"PrData"))THEN
585f$="<Printers$Dir>.Remote.ID"+h$+"."+$Za%!4:SYS131080,8,f$:f$="<Printers$Dir>.Remote.ID"+h$+"."+$Za%!4+".PrData":d%=OPENOUT(f$):IFd%=0THEN
590ERROR254,FNmsg_1(A%!12,"OK1",$Za%!4)
595ELSE:ab%=Za%!8:WHILEab%:BPUT#d%,$(ab%+12)+":":BPUT#d%,"#":ab%=ab%!0:ENDWHILE:CLOSE#d%:SYS8,18,f$,4038:IFNOTFNk(FNO(Za%,h$,"PrData"))ERROR254,FNmsg_1(A%!12,"OK1",$Za%!4)
600ENDIF
605ENDIF
610ELSE:IFNOTFNk(FNg(Za%,"PrData"))ERROR254,FNmsg_1(A%!12,"OK1",$Za%!4)
615ENDIF
620PROCJa(Za%):PROCm:PROCO(FNg(Za%,"Resources.PaperRO"),0):IFra%THEN
625H%=ra%:WHILEH%!0:H%=H%!0:ENDWHILE:H%!0=Za%
630ELSE:ra%=Za%
635ENDIF
640ENDPROC
645DEFPROCKa:LOCALz%,H%,t%:ea%=-1:z%=A%!48:WHILEz%:H%=z%!4:IFH%!24AND8THEN
650t%=10*H%?(24+1):IFea%=-1ea%=t%ELSEIFt%<ea%ea%=t%
655z%!56=t%
660ELSE:z%!56=-1
665ENDIF
670z%=z%!0:ENDWHILE:SYS66TOja%:ENDPROC
675DEFFNw:LOCALca$,f%,bb%,s$:LOCALz%,H%,c$:ca$=FNtask_read_env("Wimp$ScrapDir",ba%):IFca$="":=0
680IFca$<>ba$THEN
685SYS131080,8,"<Wimp$ScrapDir>.Printers"TObb%;f%:IF(f%AND1)THEN
690bb%+=4:CALLZ%,bb%,s$:PROCb(FNmsg_2(A%!12,"WA13","<Wimp$ScrapDir>.Printers",s$))
695ELSE:ba$=ca$:IFGa%THEN
700SYS131080,8,"<Wimp$ScrapDir>.Printers.RemQueue"TObb%;f%:IF(f%AND1)=0SYS131080,8,"<Wimp$ScrapDir>.Printers.RemSpool"TObb%;f%
705IF(f%AND1)THEN
710bb%+=4:CALLZ%,bb%,s$:PROCb(FNmsg_2(A%!12,"WA13","<Wimp$ScrapDir>.Printers",s$))
715ENDIF
720ENDIF
725z%=A%!48:WHILEz%:IFz%!24AND(1<<16)THEN
730IF(z%!40=0)THEN
735H%=z%!4:c$=$(H%!4)
740ELSE:c$=$(z%!40)
745ENDIF
750PROCLa (z%)
755ENDIF
760z%=z%!0:ENDWHILE
765ENDIF
770ENDIF
775=-1
780DEFPROCAa:LOCALc%,d%,s$,J%,c$,H%,cb%,t%,db%,eb%,fb%,gb%:LOCALhb%,ib%,R%,jb%,kb%,lb%,k$,z%,mb%,nb%,da$,p%,ob%,s$,pb%:LOCALkb%,qb%:rb%=FNr(FNmsg_0(A%!12,"NNE"),"s"+FNmsg_0(A%!12,"IC"),-5,251658240):sb%=-1:IFha%THEN
785s$="<Printers$Dir>.Remote.ID"+h$+".Settings":SYS8,17,s$TOc%
790ELSE:SYS8,17,"<Printers$Dir>.Settings"TOc%
795ENDIF
800IFc%=1THEN
805IFha%THEN
810IFNOTFNk (s$)ERROR254,FNmsg_0(A%!12,"OKD")
815ELSE:IFNOTFNk("<Printers$Dir>.Settings")ERROR254,FNmsg_0(A%!12,"OKD")
820ENDIF
825J%=FNb("fv:"):IFJ%=0THEN
830PROCj(FNmsg_0(A%!12,"OKV"),1)
835ELSE:IFFNc($J%)<>1THEN
840PROCj(FNmsg_0(A%!12,"OKV"),1)
845ELSE:PROCP:REPEAT:J%=FNb("cl:"):PROCMa:hb%=0:ib%=FNb("fg:"):IFib%THEN
850hb%=FNc ($ib%)
855ENDIF
860db%=FNb("sn:"):IFdb%c$=$db%ELSEc$=""
865PROCNa:IF(J%>0)AND((hb%AND(1<<17))=0)AND(ib%>0)THEN
870d%=INSTR($J%,":"):IFd%=0d%=LEN$J%+1
875s$=MID$($J%,d%+1):$J%=LEFT$($J%,d%-1):H%=ra%:eb%=0:WHILEH%ANDNOTeb%:IF$H%!4=$J%eb%=-1
880IFNOTeb%H%=H%!0
885ENDWHILE:IFNOTeb%THEN
890PROCOa:PROCCa($J%):PROCDa($J%,H%):PROCPa:eb%=-1
895ENDIF
900IFNOTeb%THEN
905db%=FNb("nm:"):IFdb%c$=$db%ELSEc$=""
910PROCb(FNmsg_2(A%!12,"WA1",$J%,c$))
915ELSE:PROCQa(H%)
920ENDIF
925ENDIF
930UNTILJ%=0:PROCQ:REPEAT:J%=FNb("cl:"):kb%=!tb%:qb%=ub%:PROCP:hb%=0:ib%=FNb("fg:"):IFib%THEN
935hb%=FNc ($ib%)
940ENDIF
945db%=FNb("sn:"):IFdb%c$=$db%ELSEc$=""
950PROCQ:IF(J%>0)AND((hb%AND(1<<17))>0)AND(ib%>0)THEN
955jb%=0:R%=Ha%:WHILER%ANDNOTjb%:IFc$=$R%!4THEN
960jb%=-1
965ELSE:R%=R%!0
970ENDIF
975ENDWHILE:IFNOTjb%ORNOTGa%THEN
980p%=INSTR($J%,":"):IFp%=0THEN
985p%=LEN$J%
990ENDIF
995PROCRa (c$,MID$($t%,1,p%-1)," ")
1000ELSE:IFhb%AND1THEN
1005PROCP:z%=FNx (R%,hb%,-1,0,gb%):PROCQ:PROCP:!tb%=kb%:ub%=qb%:PROCSa (z%):PROCQ:PROCTa (Ha%,$R%!4):IFhb%AND2THEN
1010z%!24=z%!24OR2
1015ELSE:z%!24=z%!24ANDNOT2
1020ENDIF
1025ENDIF
1030ENDIF
1035ENDIF
1040UNTILJ%=0
1045ENDIF
1050ENDIF
1055PROCm
1060ENDIF
1065PROCw(A%!48,-5,0):ob%=0:z%=A%!48:WHILEz%:IFz%!24AND2THEN
1070ob%=-1:fb%=z%:z%=0
1075ELSE:z%=z%!0
1080ENDIF
1085ENDWHILE:z%=A%!48:IF(NOTob%)AND(z%)THEN
1090PROCselect_printer (z%,-1,0)
1095ELSE:IFob%ANDfb%THEN
1100PROCselect_printer (fb%,-1,0)
1105ENDIF
1110ENDIF
1115ENDPROC
1120DEFPROCQa(H%):LOCALJ%,S%,z%,d%,N%,h%,X$,vb%:J%=FNe("nm:"):X$=$J%:IFH%!44>100THEN
1125PROCb(FNmsg_1(A%!12,"WA7",X$)):ENDPROC
1130ENDIF
1135vb%=H%!12:S%=vb%!4:WHILES%>0:IF$S%!8=X$THEN
1140S%!(S%!4*4+8)+=1:S%=-1
1145ELSE:S%=S%!0
1150ENDIF
1155ENDWHILE:IFS%=0THEN
1160PROCb(FNmsg_1(A%!12,"WA8",X$)):ENDPROC
1165ENDIF
1170B%=1414419024:C%=68:z%=USR(P%+12):IFz%=0ERROR253,FNmsg_1(A%!12,"FA5","PRNT")
1175B%=J%:C%=2:z%!8=USR(P%+28):z%!0=0:z%!4=H%:IFH%!24AND8z%!56=10*H%?(24+1)ELSEz%!56=-1
1180IFH%!24AND4THEN
1185h%=FNc($FNe("cn:")):B%=1413697091:C%=h%*4:N%=USR(P%+12):IFN%=0ERROR253,FNmsg_1(A%!12,"FA5","CNCT")
1190z%!12=N%:IF0<=h%-1THEN
1195FORd%=0TOh%-1:J%=FNd:IFJ%THEN
1200T%=FNa(J%,"nl:"):IFT%THEN
1205N%!(d%*4)=0
1210ELSE:T%=FNa(J%,"in:"):IFT%THEN
1215N%!(d%*4)=FNstore_integer(FNc($T%))
1220ELSE:T%=FNa(J%,"st:"):IFT%THEN
1225B%=T%:C%=2:cb%!(d%*4)=USR(P%+28)
1230ELSE:T%=FNa(J%,"s0:"):IFT%THEN
1235B%=T%:C%=3:cb%!(d%*4)=USR(P%+28)
1240ELSE:T%=FNa(J%,"gs:"):IFT%THEN
1245B%=T%:C%=4:cb%!(d%*4)=USR(P%+28)
1250ELSE:T%=FNa(J%,"pt:"):IFT%THEN
1255B%=1381257040:C%=4:N%!(d%*4)=USR(P%+12):IFN%!(d%*4)=0ERROR253,FNmsg_1(A%!12,"FA5","POTR")
1260!N%!(d%*4)=FNF($T%,0)
1265ELSE:PROCR(FNmsg_1(A%!12,"OKH",$J%))
1270ENDIF
1275ENDIF
1280ENDIF
1285ENDIF
1290ENDIF
1295ENDIF
1300ENDIF
1305NEXT
1310ENDIF
1315ELSE:B%=1413697091:C%=36:N%=USR(P%+12):IFN%=0ERROR253,FNmsg_1(A%!12,"FA5","CNCT")
1320z%!12=N%:N%!0=FNc($FNe("ct:")):N%!4=FNc($FNe("bd:")):IFNOTFNPAND(N%?4>15)THEN
1325PROCj(FNmsg_1(A%!12,"OKAM",FNmsg_0(A%!12,"BR"+STR$(N%?4))),1):N%?4=0
1330ENDIF
1335N%!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
1340N%?6=FNc($J%)
1345ELSE:N%?6=0
1350ENDIF
1355CASEN%!0OF
1360WHEN4:IFNOTFNsTHEN
1365N%!0=0:PROCb(FNmsg_2(A%!12,"WA9",$z%!8,FNmsg_0(A%!12,"CN4")))
1370ENDIF
1375WHEN6:IFNOTFNyTHEN
1380N%!0=0:PROCb(FNmsg_2(A%!12,"WA9",$z%!8,FNmsg_0(A%!12,"CN6")))
1385ENDIF
1390ENDCASE
1395ENDIF
1400h%=FNc($FNe("cs:")):B%=1195789891:C%=h%*4:cb%=USR(P%+12):IFcb%=0ERROR253,FNmsg_1(A%!12,"FA5","CNFG")
1405z%!16=cb%:IF0<=h%-1THEN
1410FORd%=0TOh%-1:J%=FNd:IFJ%THEN
1415T%=FNa(J%,"nl:"):IFT%THEN
1420cb%!(d%*4)=0
1425ELSE:T%=FNa(J%,"in:"):IFT%THEN
1430cb%!(d%*4)=FNstore_integer(FNc($T%))
1435ELSE:T%=FNa(J%,"st:"):IFT%THEN
1440B%=T%:C%=2:cb%!(d%*4)=USR(P%+28)
1445ELSE:T%=FNa(J%,"s0:"):IFT%THEN
1450B%=T%:C%=3:cb%!(d%*4)=USR(P%+28)
1455ELSE:T%=FNa(J%,"gs:"):IFT%THEN
1460B%=T%:C%=4:cb%!(d%*4)=USR(P%+28)
1465ELSE:T%=FNa(J%,"pt:"):IFT%THEN
1470B%=1381257040:C%=4:cb%!(d%*4)=USR(P%+12):IFcb%!(d%*4)=0ERROR253,FNmsg_1(A%!12,"FA5","POTR")
1475!cb%!(d%*4)=FNF($T%,0)
1480ELSE:PROCR(FNmsg_1(A%!12,"OKH",$J%))
1485ENDIF
1490ENDIF
1495ENDIF
1500ENDIF
1505ENDIF
1510ENDIF
1515ENDIF
1520NEXT
1525ENDIF
1530z%!20=-1:z%!24=FNc($FNe("fg:")):z%!28=-1:z%!32=0:J%=FNe("pn:"):d%=ia%:WHILEd%:IF$d%!4=$J%THEN
1535z%!36=d%:d%=0
1540ELSE:d%=d%!0:IFd%=0THEN
1545d%=ia%:z%!36=d%:PROCb(FNQ(A%!12,"WA11",$J%,$d%!4,X$)):d%=0
1550ENDIF
1555ENDIF
1560ENDWHILE:C%=2:B%=FNe("sn:"):z%!40=USR(P%+28):B%=FNe("ic:"):z%!44=USR(P%+28):IFH%!32AND4z%!48=FNGELSEz%!48=0
1565z%!52=0:IFz%!24AND1THEN
1570PROCUa(z%):IFz%!24AND2THEN
1575PROCselect_printer(z%,-1,0)
1580ENDIF
1585ENDIF
1590IFz%!24AND(1<<16)ANDGa%THEN
1595PROCLa (z%)
1600ENDIF
1605d%=A%+48:WHILE!d%:d%=!d%+0:ENDWHILE:!d%=z%:sa%+=1:PROCKa:ENDPROC
1610DEFFNe(ea$):LOCALJ%:J%=FNb(ea$):IFJ%=0PROCR(FNmsg_1(A%!12,"OKG",ea$))
1615=J%
1620DEFPROCR(e$):PROCS(FNmsg_1(A%!12,"OKE",e$)):ENDPROC
1625DEFFNg(H%,s$):="Printers:"+$H%!4+"."+s$
1630DEFFNz(h%):LOCALp%:IFh%=-2THEN=-1
1635IFh%=wb%THEN=-1
1640IFh%=xb%THEN=-1
1645IFh%=yb%THEN=-1
1650IFh%=zb%THEN=-1
1655IFh%=Ab%THEN=-1
1660IFh%=A%!40THEN=-1
1665IFh%=Q%THEN=-1
1670IFh%=Bb%THEN=-1
1675IFh%=Cb%THEN=-1
1680p%=A%!48:WHILEp%:IFp%!48=h%THEN=-1
1685p%=p%!0:ENDWHILE:=0
1690DEFPROCza:LOCALi%,fa$,ga$,Db%,Fb%,Gb%,Hb%,j%:PROCFa("Printers:Templates","Printers:Template3D"):PROCl("","info",1,Cb%):PROCl("","prntctrl",1,Bb%):PROCl("","connections",1,Q%):PROCl("","queue",1,A%!40):PROCl("","query",1,Ab%)
1695PROCl("","papersize",1,zb%):PROCl("","howquery",1,yb%):PROCl("","shutdown",1,xb%):PROCl("","save",1,wb%):PROCHa:PROCicon_write(Cb%,3,FNmsg_0(A%!12,"VSN")):FORj%=0TO5:B%=1178878793:C%=40:i%=USR(P%+12):IFi%=0ERROR253,FNmsg_1(A%!12,"FA5","ICDF")
1700!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")
1705!i%=Bb%:i%!4=j%:SYS262350,,i%:IFj%=4THEN
1710SYS262340,,i%
1715ELSE:B%=1482184792:C%=i%!36+1:i%!28=USR(P%+12):IFi%!28=0ERROR253,FNmsg_1(A%!12,"FA5","XXXX")
1720ENDIF
1725a%(j%)=i%+8:NEXT:FORj%=0TO3:a%(j%)!16=a%(4)!16:NEXT:FORj%=0TO3:PROCicon_write(Bb%,j%,FNmsg_0(A%!12,FNicon_read(Bb%,j%))):NEXT:ENDPROC
1730DEFFNba(a,b):IFa>bTHEN=aELSE=b
1735DEFFNG:LOCALp%:PROCFa("Printers:Templates","Printers:Template3D"):PROCl("","pause",1,p%):PROCHa:=p%
1740DEFPROCVa(Ib%):!O%=Ib%:SYS262348,,O%OR1:B%=1179014466:C%=O%!76:CALLP%+16:SYS262339,,O%:ENDPROC
1745DEFPROCoa:LOCALJb%,i%,t$,ha$,z%,H%,Kb%:LOCALR%:CASE!q%OF
1750WHENA%!40:SYS262344,,q%TOJb%:B%=q%:C%=Jb%:CALLP%+36
1755WHENBb%:SYS262344,,q%TOJb%:WHILEJb%:FORi%=0TO3:a%(i%)!4=a%(4)!4:a%(i%)!12=a%(4)!12:NEXT:z%=A%!48:Lb%=0:WHILEz%:Lb%+=1:IFz%!40THEN
1760$a%(0)!20=$z%!40
1765ELSE:?a%(0)!20=13
1770ENDIF
1775$a%(1)!20=$z%!8:t$=STR$!(z%!12+0):ha$=FNmsg_0(A%!12,"IC"+t$):IFha$="IC"+t$ha$=FNmsg_1(A%!12,"ICx",t$)
1780$a%(2)!20=ha$:IFz%!24AND(1<<16)THEN
1785t$="SHA"
1790ELSE:IFz%!24AND1THEN
1795t$="ACT"
1800ELSE:t$="INA"
1805ENDIF
1810ENDIF
1815$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:R%=Ha%:WHILER%:$a%(0)!20=$R%!4:$a%(1)!20=$R%!8:$a%(2)!20=FNmsg_0 (A%!12,"IC9"):IFR%!20>0THEN
1820$a%(3)!20=FNmsg_0 (A%!12,"UNA")
1825ELSE:$a%(3)!20=FNmsg_0 (A%!12,"INA")
1830ENDIF
1835FORi%=0TO3:SYS262370,,a%(i%):a%(i%)!12=a%(i%)!4:a%(i%)!4-=(a%(4)!12-a%(4)!4):NEXT:R%=R%!0:ENDWHILE:SYS262346,,q%TOJb%:ENDWHILE
1840OTHERWISE:PROCG(!q%,Kb%,H%,z%):PROCc(H%,z%,1,q%)
1845ENDCASE
1850ENDPROC
1855DEFPROCWa(z%):LOCALy%,s$:IFz%!40s$=$z%!40ELSEs$=$z%!8
1860PROCXa(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
1865DEFPROCs(Ib%):!O%=24:O%!12=0:O%!16=262347:O%!20=Ib%:SYS262375,17,O%,0:ENDPROC
1870DEFPROCe:LOCALi%,j%,z%,H%,Kb%:PROCs(!q%):IFFNz(!q%)THEN
1875SYS262342,,q%
1880ELSE:PROCG(!q%,Kb%,H%,z%):PROCc(H%,z%,3,q%)
1885ENDIF
1890ENDPROC
1895DEFPROCfree_structure(p%):LOCALi%:IFp%=0ENDPROC
1900CASEp%!-4OF
1905WHEN1146377036:WHILEp%:IF0<=p%!4-1THEN
1910FORi%=0TOp%!4-1:PROCfree_structure(p%!(i%*4+8)):NEXT
1915ENDIF
1920i%=p%!0:B%=1146377036:C%=p%:CALLP%+16:p%=i%:ENDWHILE
1925WHEN1280266050:PROCfree_structure(p%!0):PROCfree_structure(p%!4):B%=1280266050:C%=p%:CALLP%+16
1930WHEN1196707401,1196577875,810701907,1381258055,1381257040:B%=p%!-4:C%=p%:CALLP%+16
1935WHEN1380010051:WHILEp%:i%=!p%:B%=1380010051:C%=p%:CALLP%+16:p%=i%:ENDWHILE
1940OTHERWISE:ERROR253,FNmsg_1(A%!12,"FAA",STR$~(p%-4))
1945ENDCASE
1950ENDPROC
1955DEFPROCua(r%):LOCALs$,z%,H%,Kb%,Mb%,i%:Mb%=q%!4:CASEq%!16OF
1960WHEN0:PROCH:PROCx
1965WHEN1:PROCZa
1970WHEN2:IFNOTq%!36THEN
1975SYS262356,,-1:i%=q%+44:CALLZ%,i%,s$:PROCicon_write(Q%,30,s$)
1980ENDIF
1985WHEN3:PROC_a
1990WHEN5
1995WHEN8:IFA%!32THEN
2000IF!q%<>20THEN
2005IF(q%!20AND1)=0Nb%=1ELSENb%=2
2010ELSE:Nb%=1
2015ENDIF
2020q%!12=q%!8:SYS262375,19,q%,Mb%:A%!20=A%!20OR1:PROC`a(xb%)
2025ENDIF
2030WHEN10:BPUT#q%!20,"/"+FNtask_read_env("Printers$Dir",O%)
2035WHEN11:z%=A%!48:WHILEz%:IF(z%!24AND8)<>0ANDz%<>oa%THEN
2040r%=z%!12:IFr%!0=q%!20ANDq%!24<=0THEN
2045s$=FNmsg_0(A%!12,"INU"):!q%=32+LENs$ANDNOT3:q%!12=q%!8:q%!16=12:$(q%+28)=s$+CHR$0:SYS262375,17,q%,Mb%:z%=0
2050ENDIF
2055ENDIF
2060IFz%z%=z%!0
2065ENDWHILE
2070WHEN12:na%=2
2075WHEN1282:IFFNz(q%!32)THEN
2080PROCab
2085ELSE:PROCG(q%!32,Kb%,H%,z%):IFKb%THEN
2090PROCc(H%,z%,r%,q%)
2095ELSE:IFNOTq%!36THEN
2100IFua%PROCc (ua%!4,ua%,r%,q%)ELSEPROCab
2105ENDIF
2110ENDIF
2115ENDIF
2120WHEN262345:IFq%!20=xb%THEN
2125IFA%!32>0A%!20=A%!20ANDNOT1
2130ELSE:PROCbb
2135ENDIF
2140WHEN524609:A%!36=0
2145WHEN524610:IFV%THEN
2150q%!20=-2:q%!24=V%!20:PROCZa
2155ELSE:z%=A%!48:IFz%THEN
2160q%!20=1:s$=FNmsg_0(A%!12,"OKU")+CHR$0
2165ELSE:q%!20=2:s$=FNmsg_0(A%!12,"OKW")+CHR$0
2170ENDIF
2175!q%=28+LENs$ANDNOT3:q%!12=q%!8:q%!16=524612:$(q%+24)=s$+CHR$0:SYS262375,17,q%,Mb%
2180ENDIF
2185WHEN524611:IFq%!4<>Ob%THEN
2190IFq%!0=20THEN
2195PROCH:PROCx
2200ELSE:IFq%!12=ga%THEN
2205PROCb(FNmsg_0(A%!12,"FAJ")):PROCH:PROCx
2210ELSE:q%!12=q%!8:q%!20=34:SYS262375,17,q%,Mb%
2215ENDIF
2220ENDIF
2225ENDIF
2230WHEN524614:qa%=2
2235WHEN524626:IFV%THEN
2240PROCselect_printer(V%,-1,0)
2245ENDIF
2250OTHERWISE:IFFNw
2255PROCw(V%,r%,q%)
2260ENDCASE
2265ENDPROC
2270DEFPROCab:LOCALs$,z%,F$:CASEq%!32OF
2275WHEN-2:IFA%!48=0THEN
2280PROCinteractive_help(FNmsg_0(A%!12,"ICON0")):ENDPROC
2285ENDIF
2290PROCy(q%!36,z%):IFz%!40s$=$z%!40ELSEs$=$z%!8
2295PROCinteractive_help(FNmsg_1(A%!12,"ICON1",s$))
2300WHENwb%:s$=FNmsg_0(A%!12,"SAVE"+STR$q%!36):IFs$="SAVE"+STR$q%!36s$=FNmsg_0(A%!12,"SAVE")
2305PROCinteractive_help(s$)
2310WHENxb%:s$=FNmsg_0(A%!12,"SHTDWN"+STR$q%!36):IFs$="SHTDWN"+STR$q%!36s$=FNmsg_0(A%!12,"SHTDWN")
2315PROCinteractive_help(s$)
2320WHENyb%:s$=FNmsg_0(A%!12,"HWQRY"+STR$q%!36):IFs$="HWQRY"+STR$q%!36s$=FNmsg_0(A%!12,"HWQRY")
2325PROCinteractive_help(s$)
2330WHENzb%:s$=FNmsg_0(A%!12,"PAPER"+STR$q%!36):IFs$="PAPER"+STR$q%!36s$=FNmsg_0(A%!12,"PAPER")
2335PROCinteractive_help(s$)
2340WHENAb%:s$=FNmsg_0(A%!12,"QUERY"+STR$q%!36):IFs$="QUERY"+STR$q%!36s$=FNmsg_0(A%!12,"QUERY")
2345PROCinteractive_help(s$)
2350WHENA%!40:PROCinteractive_help(FNmsg_0(A%!12,"QUEUE"))
2355WHENQ%:F$="CNCT"+STR$q%!36:IFq%!36=13THEN
2360IFFNicon_set(Q%,13)F$+="b"ELSEF$+="a"
2365ENDIF
2370IFq%!36=35THEN
2375IFFNicon_set(Q%,35)F$+="b"ELSEF$+="a"
2380ENDIF
2385IFq%!36=37THEN
2390IFFNicon_set(Q%,37)F$+="b"ELSEF$+="a"
2395ENDIF
2400s$=FNmsg_0(A%!12,F$):IFs$=F$s$=FNmsg_0(A%!12,"CNCT")
2405PROCinteractive_help(s$)
2410WHENBb%:PROCinteractive_help(FNmsg_0(A%!12,"PRCTRL"))
2415WHENCb%:PROCinteractive_help(FNmsg_0(A%!12,"INFO"))
2420OTHERWISE:SYS262388,1,W%,q%!32,q%!36:CASEJ$OF
2425WHEN"ME1":IF!W%<>2THEN
2430PROCinteractive_help(FNmsg_0(A%!12,"HME1-"+STR$!W%))
2435ELSE:IFA%!44=0THEN
2440PROCinteractive_help(FNmsg_0(A%!12,"HME1-2a"))
2445ELSE:PROCinteractive_help(FNmsg_0(A%!12,"HME1-2"))
2450ENDIF
2455ENDIF
2460WHEN"ME2","ME3","ME4","ME5","ME6","MP1":PROCinteractive_help(FNmsg_0(A%!12,"H"+J$))
2465WHEN"MQ1":IFFNH(Pb%,!W%)THEN
2470IF!W%>3ANDxa%=0THEN
2475PROCinteractive_help(FNmsg_0(A%!12,"SMQ1-7"))
2480ELSE:PROCinteractive_help(FNmsg_0(A%!12,"SMQ1-"+STR$(!W%)))
2485ENDIF
2490ELSE:IF!W%<>4THEN
2495PROCinteractive_help(FNmsg_0(A%!12,"HMQ1-"+STR$(!W%)))
2500ELSE:IFxa%!12THEN
2505PROCinteractive_help(FNmsg_0(A%!12,"HMQ1-4a"))
2510ELSE:PROCinteractive_help(FNmsg_0(A%!12,"HMQ1-4b"))
2515ENDIF
2520ENDIF
2525ENDIF
2530WHEN"MC1":IFFNH(Pb%,!W%)THEN
2535IF!W%=6THEN
2540PROCinteractive_help(FNmsg_0(A%!12,"HMC1S-6")):ENDPROC
2545ENDIF
2550SYS262358,Bb%,O%,1<<21,1<<21:IF!O%=-1THEN
2555PROCinteractive_help(FNmsg_0(A%!12,"SMC1-2"))
2560ELSE:PROCinteractive_help(FNmsg_0(A%!12,"SMC1-0"))
2565ENDIF
2570ELSE:PROCinteractive_help(FNmsg_0(A%!12,"HMC1-"+STR$!W%))
2575ENDIF
2580WHEN"MC1s":IFFNH(Pb%,!W%)THEN
2585IF!W%=6THEN
2590PROCinteractive_help(FNmsg_0(A%!12,"HMC1S-6")):ENDPROC
2595ENDIF
2600SYS262358,Bb%,O%,1<<21,1<<21:IF!O%=-1THEN
2605PROCinteractive_help(FNmsg_0(A%!12,"SMC1s-2"))
2610ELSE:PROCinteractive_help(FNmsg_0(A%!12,"SMC1s-0"))
2615ENDIF
2620ELSE:PROCinteractive_help(FNmsg_0(A%!12,"HMC1s-"+STR$!W%))
2625ENDIF
2630ENDCASE
2635ENDCASE
2640ENDPROC
2645DEFPROCinteractive_help(m$):LOCALMb%:!q%=24+LENm$ANDNOT3:q%!12=q%!8:q%!16=1283:$(q%+20)=m$+CHR$0:Mb%=q%!4:SYS262375,17,q%,Mb%:ENDPROC
2650DEFPROCZa:LOCALs$,i%,y%,z%,K%:IFq%!20=A%!40THEN
2655!W%=A%!40:SYS262347,,W%:B%=q%!32-W%!16+W%!24:y%=USR(P%+44):i%=A%!16:z%=!i%:K%=i%!4:IFz%THEN
2660q%!20=-2:q%!24=z%!20
2665ENDIF
2670ELSE:PROCy(q%!24,z%)
2675ENDIF
2680IFq%!20<>-2ERROR254,FNmsg_0(A%!12,"OKN")
2685i%=q%+44:CALLZ%,i%,s$:i%=LENs$:WHILEi%>0:IFMID$(s$,i%,1)="."ORMID$(s$,i%,1)=":"THEN
2690s$=MID$(s$,i%+1):i%=0
2695ENDIF
2700i%-=1:ENDWHILE:aa$=s$:A%!36=0:Aa%=q%!4:s$=FNl(-1):IF(z%!32)<>0OR(z%!24AND36)<>0THEN
2705SYS131108,"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%,Aa%:Ba%=q%!8
2710ELSE:q%!12=q%!8:SYS262375,19,q%,Aa%:PROCselect_printer(z%,0,0):SYS36,"Printer$Temp",s$,LENs$:q%!16=524608:SYS262375,18,q%,Aa%:PROCcb (Aa%,aa$)
2715ENDIF
2720ENDPROC
2725DEFFNl(Qb%):LOCALc%:IFNOTFNwTHEN
2730IFQb%THEN
2735ERROR254,FNmsg_0(A%!12,"OKAO")
2740ELSE:PROCj(FNmsg_0(A%!12,"OKAO"),1):=""
2745ENDIF
2750ENDIF
2755REPEAT:Da%+=1:SYS8,17,"<Wimp$ScrapDir>.Printers."+STR$Da%TOc%:UNTILc%=0:=FNR("<Wimp$ScrapDir>.Printers."+STR$Da%)
2760DEFPROC_a:LOCALs$,i%,z%,O$,o$,Rb%,Mb%:IFq%!40=4038ANDq%!20=Bb%THEN
2765PROCdb:ENDPROC
2770ENDIF
2775i%=q%+44:CALLZ%,i%,o$:SYS8,17,o$TORb%:IF(Rb%AND2)AND(q%!40<4096)q%!40=4096
2780IFq%!20=A%!40THEN
2785!W%=A%!40:SYS262347,,W%:B%=q%!32-W%!16+W%!24:y%=USR(P%+44):i%=A%!16:z%=!i%:K%=i%!4:IFz%THEN
2790q%!20=-2:q%!24=z%!20
2795ENDIF
2800ENDIF
2805IFq%!20<>-2ERROR254,FNmsg_0(A%!12,"OKN")
2810A%!36=Ba%<>0ANDBa%=q%!12:q%!12=q%!8:q%!16=4:Mb%=q%!4:SYS262375,17,q%,Mb%:Ba%=0:PROCy(q%!24,z%):Rb%=q%!40:IFz%=0THEN
2815IFRb%<>4038ERROR254,FNmsg_0(A%!12,"OKW")
2820PROCdb:ENDPROC
2825ENDIF
2830IFA%!36THEN
2835SYS272000,Aa%TOi%:CALLZ%,i%,O$:o$=aa$:s$=FNtask_read_env("Printer$Temp",O%):IFs$=""i%=q%+44:CALLZ%,i%,s$
2840ELSE: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)
2845ENDIF
2850PROCeb(A%!36,O$,s$,o$,z%,Rb%):ENDPROC
2855DEFPROCbb:CASEJ$OF
2860WHEN"MQ1":IFwa%THEN
2865IFxa%xa%?11=xa%?11ANDNOT8ELSEwa%!24=wa%!24ANDNOT16
2870PROCf(-1,wa%,xa%):va%=0:wa%=0:xa%=0
2875ENDIF
2880WHEN"MC1","MC1s":SYS262358,Bb%,O%,1<<21,1<<21:IFNOT!O%ANDO%!4=-1ANDta%=0PROCicon_deselect(Bb%,!O%)
2885ENDCASE
2890J$="":ENDPROC
2895DEFPROCva:LOCALs$,z%,K%,N%,Sb%,G$,H%,z$,t%,Na%,Oa%,Tb%,o$:LOCALC$,z%,jb%,w$,c$,A$:CASEq%!16OF
2900WHEN11:na%=1
2905WHEN524608:PROCy(q%!24,z%):IFz%=0ERROR254,FNmsg_0(A%!12,"OKW")
2910K%=z%!32:H%=z%!4:N%=z%!12:IFK%=0AND(z%!24AND36)=0THEN
2915i%=q%+44:CALLZ%,i%,o$:CASEN%!0OF
2920WHEN5:Sb%=(N%?6AND2)<>0
2925WHEN9:Sb%=0
2930OTHERWISE:Sb%=(N%?6AND1)<>0
2935ENDCASE
2940IFSb%THEN
2945g$=FNl(-1):IFN%!0=5THEN
2950SYS36,"PrinterType$5",g$,LENg$:PROCI(5)
2955ELSE:SYS36,"PrinterType$10",g$,LENg$:PROCI(10)
2960ENDIF
2965G$=g$
2970ENDIF
2975z$=FNl(-1):SYS36,"Printer$Temp",z$,LENz$:q%!0=20:q%!16=524613:SYS262375,18,q%,Aa%:qa%=0:REPEAT:PROCv(ka%):UNTILqa%:b%=(qa%=2):Tb%=q%!4:IFSb%THEN
2980s$=FNm(z%,-1):IFs$<>""THEN
2985PROCb(s$):IFz%!32THEN
2990z%!24=z%!24OR4:PROCi(z%):PROCf(-1,z%,0)
2995ENDIF
3000ENDIF
3005ENDIF
3010IFb%THEN
3015SYS8,17,z$TOt%,,Na%,,Oa%:IFt%THEN
3020s$=z$:SYS8,23,z$TO,,,,,,Rb%
3025ELSE:IFSb%THEN
3030IFN%!0=5THEN
3035PROCfb($N%!16,G$):ENDPROC
3040ELSE:s$=G$:Rb%=H%!28
3045ENDIF
3050ELSE:IFN%!0=9ANDq$<>""THEN
3055c$=$(z%!40):M%=INSTR(c$," "):WHILEM%:MID$(c$,M%,1)=CHR$160:M%=INSTR(c$," ",M%+1):ENDWHILE:w$=q$+"RemSpool."+h$+"."+c$:C$=q$+"RemQueue."+h$+"."+STR$(Ka%):SYS131080,17,w$TOt%,,,,l%;f%:IF(l%>0)AND((f%AND1)=0)AND(t%=1)THEN
3060SYS272000,Aa%TOi%:CALLZ%,i%,A$:IFFNA (z%,A$,o$)THEN
3065Ub%=V%!4:SYS131113,25,w$,C$
3070ELSE:SYS131080,6,w$
3075ENDIF
3080ENDIF
3085ENDIF
3090PROCselect_printer(V%,0,-1):ENDPROC
3095ENDIF
3100ENDIF
3105SYS272000,Tb%TOO$:i%=LENo$:WHILEi%>0:IFMID$(o$,i%,1)="."ORMID$(o$,i%,1)=":"THEN
3110o$=MID$(o$,i%+1):i%=0
3115ENDIF
3120i%-=1:ENDWHILE:PROCeb(-1,O$,s$,o$,z%,Rb%):ENDPROC
3125ENDIF
3130ENDIF
3135PROCselect_printer(z%,0,-1):SYS36,"Printer$Temp",,-1:s$=FNl(-1):q%!0=48+LENs$ANDNOT3:q%!16=2:q%!36=-1:$(q%+44)=s$+CHR$0:SYS262375,17,q%,Aa%:Ba%=q%!8
3140WHEN524613:qa%=1
3145OTHERWISE:PROCw(V%,19,q%)
3150ENDCASE
3155ENDPROC
3160DEFPROCx:LOCALH%:LOCALz%,c$,Rb%,c$,Vb%,f%,N%:PROCz:IFV%THEN
3165c$=$V%!40:N%=V%!12:H%=V%!4:Rb%=H%!28:IFN%!0=9THEN
3170SYS424578,0,2,c$,0,0TO,,,,,Vb%;f%:IF(Vb%>0)AND((f%AND0)=0)THEN
3175SYS424323,0,Vb%,c$,Rb%
3180ENDIF
3185ENDIF
3190ENDIF
3195IFGa%THEN
3200z%=A%!48:WHILEz%:IF(z%!24)AND(1<<16)THEN
3205IF(z%!40=0)THEN
3210H%=z%!4:c$=$H%!4
3215ELSE:c$=$z%!40
3220ENDIF
3225PROCgb (z%)
3230ENDIF
3235z%=z%!0:ENDWHILE
3240ENDIF
3245SYS131077,"%Wipe <Wimp$ScrapDir>.Printers.* RF~C~V":H%=ra%:WHILEH%:PROC_(H%!16):H%=H%!0:ENDWHILE:PROC_(A%!12):PROCw(0,-2,0):PROChb:ENDPROC
3250DEFPROCra:LOCALH%,z%,Kb%,D$,H$,Wb%:IFNOTFNz(!q%)THEN
3255PROCG(!q%,Kb%,H%,z%):IFz%!40D$=$z%!40ELSED$=""
3260Wb%=V%:PROCc(H%,z%,8,q%):IF$(Kb%+16)="configure"THEN
3265IFz%!40H$=$z%!40ELSEH$=""
3270IFH$<>D$THEN
3275IFNOT(z%!24AND(1<<16))THEN
3280PROCib(z%):PROCi(z%):PROCf(-1,z%,0):IF(H%!24AND4)=0IFFNh(Q%)PROCT(z%)
3285ELSE:PROCb (FNmsg_0(A%!12,"OKAP")):H$=D$:PROCd (1196577875,z%!40):PROCJ (z%!40,D$)
3290ENDIF
3295ENDIF
3300IFz%!20<>-1ANDWb%<>V%THEN
3305PROCselect_printer(Wb%,-1,0)
3310ENDIF
3315ENDIF
3320ELSE:IFq%!24=13THEN
3325CASE!q%OF
3330WHENQ%:PROCjb:IFJ$="ME6"SYS262356,,-1
3335!q%=Q%:PROCe
3340WHENzb%:PROCkb:!q%=zb%:PROCe
3345WHENwb%:SYS262356,,-1:PROCicon_write(Q%,30,FNicon_read(wb%,1))
3350ENDCASE
3355ELSE:SYS262364,q%!24
3360ENDIF
3365ENDIF
3370ENDPROC
3375DEFPROCU(Xb%):LOCALi%:!W%=Xb%:SYS262348,,W%OR1:i%=W%!88:WHILEi%:PROCicon_deselect(Xb%,i%-1):i%-=1:ENDWHILE:ENDPROC
3380DEFPROCpa:LOCALz%,nb%,K%,Zb%,H%,Kb%,H$,D$,B%,C%,Wb%:LOCALR%:IFFNz(q%!12)=0THEN
3385PROCG(q%!12,Kb%,H%,z%):IFz%!40D$=$z%!40ELSED$=""
3390Wb%=V%:PROCc(Kb%!8,Kb%!12,6,q%):IF$(Kb%+16)="configure"THEN
3395IFz%!40H$=$z%!40ELSEH$=""
3400IFH$<>D$THEN
3405IFNOT(z%!24AND(1<<16))THEN
3410PROCib(z%):PROCi(z%):PROCf(-1,z%,0):IF(H%!24AND4)=0IFFNh(Q%)PROCT(z%)
3415ELSE:PROCb (FNmsg_0(A%!12,"OKAP")):H$=D$:PROCd (1196577875,z%!40):PROCJ (z%!40,D$)
3420ENDIF
3425ENDIF
3430IFz%!20<>-1ANDWb%<>V%THEN
3435PROCselect_printer(Wb%,-1,0)
3440ENDIF
3445ENDIF
3450ELSE:CASEq%!8OF
3455WHEN1024:CASEq%!12OF
3460WHENBb%:IFNOTq%!16THEN
3465IFNOTFNicon_set(q%!12,q%!16)THEN
3470PROCU(q%!12):PROCicon_select(q%!12,q%!16)
3475ENDIF
3480ELSE:PROCU(q%!12)
3485ENDIF
3490ENDCASE
3495WHEN256:CASEq%!12OF
3500WHENBb%:IFNOTq%!16THEN
3505IFFNicon_set(q%!12,q%!16)THEN
3510PROCicon_deselect(q%!12,q%!16)
3515ELSE:PROCicon_select(q%!12,q%!16)
3520ENDIF
3525ENDIF
3530ENDCASE
3535WHEN64:IFq%!12=wb%PROClb(!q%,q%!4)
3540WHEN2:CASEq%!12OF
3545WHEN-2:PROCg("ME1",-1,0)
3550WHENA%!40:PROCg("MQ1",-1,0)
3555WHENBb%:PROCg("MC1s",-1,0)
3560WHENQ%:CASEq%!16OF
3565WHEN8:PROCg("ME2",-1,-1)
3570WHEN11:PROCg("ME3",-1,-1)
3575WHEN14:PROCg("ME4",-1,-1)
3580WHEN16:PROCg("ME5",-1,-1)
3585WHEN20:PROCg("ME6",-1,-1)
3590WHEN32:PROCg("SVE",-1,-1)
3595ENDCASE
3600WHENzb%:IFq%!16=47PROCg("MP1",-1,-1)
3605ENDCASE
3610WHEN4:CASEq%!12OF
3615WHEN-2:PROCmb
3620WHENAb%:pa%=q%!16
3625WHENyb%:pa%=q%!16
3630WHENwb%:IFq%!16=2THEN
3635SYS262356,,-1:PROCicon_write(Q%,30,FNicon_read(wb%,1))
3640ENDIF
3645WHENxb%:SYS262356,,-1:IFq%!16=3THEN
3650!q%=A%!40:PROCe:PROCH:CASENb%OF
3655WHEN1:SYS262364,508
3660WHEN2:PROCx
3665ENDCASE
3670ELSE:A%!20=A%!20ANDNOT1
3675ENDIF
3680WHENBb%:IFNOTq%!16THEN
3685IFNOTFNicon_set(q%!12,q%!16)THEN
3690PROCU(q%!12):PROCicon_select(q%!12,q%!16)
3695ENDIF
3700PROCt(z%,R%,nb%):IFz%THEN
3705PROCc(z%!4,z%,-3,0):PROCnb(z%,"configure")
3710ENDIF
3715ENDIF
3720WHENQ%:CASEq%!16OF
3725WHEN0,1,2,3,4,33:PROCob
3730WHEN5:PROCjb:!q%=Q%:PROCe
3735WHEN8:PROCg("ME2",-1,-1)
3740WHEN11:PROCg("ME3",-1,-1)
3745WHEN14:PROCg("ME4",-1,-1)
3750WHEN16:PROCg("ME5",-1,-1)
3755WHEN20:PROCg("ME6",-1,-1)
3760WHEN32:PROCg("SVE",-1,-1)
3765WHEN38:!q%=Q%:PROCe
3770ENDCASE
3775WHENzb%:CASEq%!16OF
3780WHEN42:PROCkb:!q%=zb%:PROCe
3785WHEN33:PROCpb:!q%=zb%:PROCe
3790WHEN48:B%=1163547472:C%=Ca%:CALLP%+16:Ca%=0:!q%=zb%:PROCe
3795WHEN23,22:PROCicon_select(zb%,q%!16):PROCqb
3800WHEN47:PROCg("MP1",-1,-1)
3805ENDCASE
3810OTHERWISE:z%=A%!48:WHILEz%:IFz%!48=q%!12THEN
3815K%=z%!32:Zb%=K%!44:IFZb%THEN
3820IFZb%!40THEN
3825IFq%!16=4THEN
3830PROCn(z%,K%,-1)
3835ELSE:z%!24=z%!24ANDNOT36:Zb%!40=0:PROCi(z%):PROCf(-1,z%,0):!q%=z%!48:PROCe
3840ENDIF
3845ENDIF
3850ENDIF
3855z%=0
3860ELSE:z%=z%!0
3865ENDIF
3870ENDWHILE
3875ENDCASE
3880WHEN1:CASEq%!12OF
3885WHEN-2:PROCmb
3890WHENQ%:CASEq%!16OF
3895WHEN0,1,2,3,4,33:PROCob
3900WHEN5:PROCjb
3905ENDCASE
3910WHENzb%:CASEq%!16OF
3915WHEN42:PROCkb
3920WHEN33:PROCpb
3925WHEN23,22:PROCicon_select(zb%,q%!16):PROCqb
3930ENDCASE
3935ENDCASE
3940ENDCASE
3945ENDIF
3950ENDPROC
3955DEFPROCob:LOCALc%,h%,i%,n%:c%=-1:IFFNicon_set(Q%,1)THEN
3960PROCicon_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)
3965ELSE: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)
3970ENDIF
3975IFFNicon_set(Q%,2)THEN
3980PROCicon_unshade(Q%,25):PROCicon_unshade(Q%,20):c%=25
3985ELSE:PROCicon_shade(Q%,25):PROCicon_shade(Q%,20)
3990ENDIF
3995IFFNicon_set(Q%,3)THEN
4000PROCicon_unshade(Q%,26):PROCicon_unshade(Q%,27):PROCicon_unshade(Q%,28):PROCicon_unshade(Q%,29):c%=26
4005ELSE:PROCicon_shade(Q%,26):PROCicon_shade(Q%,27):PROCicon_shade(Q%,28):PROCicon_shade(Q%,29)
4010ENDIF
4015IFFNicon_set(Q%,4)THEN
4020PROCicon_unshade(Q%,30):PROCicon_unshade(Q%,32):PROCicon_unshade(Q%,35):c%=30
4025ELSE:PROCicon_shade(Q%,30):PROCicon_shade(Q%,32):PROCicon_shade(Q%,35)
4030ENDIF
4035IFc%=-1THEN
4040PROCcaret_info(h%,i%,n%):IFh%=Q%SYS262354,-1
4045ELSE:PROCcaret_set(Q%,c%)
4050ENDIF
4055ENDPROC
4060DEFPROCy(Ib%,RETURNz%):z%=A%!48:WHILEz%:IFz%!20=Ib%ENDPROC
4065z%=z%!0:ENDWHILE:ENDPROC
4070DEFPROCmb:LOCALz%,_b%,`b%:`b%=INKEY-1:_b%=(q%!8=1):PROCy(q%!16,z%):IFz%THEN
4075IF_b%THEN
4080IF`b%PROCT(z%)ELSEPROCrb
4085ELSE:IF`b%THEN
4090PROCc(z%!4,z%,-3,0):PROCnb(z%,"configure")
4095ELSE:PROCselect_printer(z%,-1,0):IFFNh(Bb%)PROCsb(z%)
4100ENDIF
4105ENDIF
4110ENDPROC
4115ENDIF
4120PROCtb(z%):ENDPROC
4125DEFPROCselect_printer(z%,ac%,bc%):LOCALcc%,i%,s$:cc%=V%:IFNOTbc%V%=z%
4130IFV%=0ENDPROC
4135s$=FNm(V%,0):IFs$<>""THEN
4140IFac%THEN
4145V%!24=V%!24ANDNOT2
4150ENDIF
4155IFV%!32THEN
4160V%!24=V%!24OR4:PROCi(V%):PROCf(-1,V%,0)
4165ENDIF
4170IFV%=cc%THEN
4175PROCicon_deselect(-1,cc%!20):SYS524632,-1:cc%=0
4180ENDIF
4185V%=cc%:PROCb(s$):ENDPROC
4190ENDIF
4195PROCc(V%!4,V%,-6,0):PROCub(V%):PROCz:IFac%THEN
4200IFcc%THEN
4205PROCicon_deselect(-1,cc%!20):cc%!24=cc%!24ANDNOT2
4210ENDIF
4215V%!24=V%!24OR2:PROCicon_select(-1,V%!20):SYS524608TO,,,,i%:IF?i%CALLZ%,i%,s$:SYS36,"Printer$",i%,LENs$
4220ELSE:V%=cc%
4225ENDIF
4230ENDPROC
4235DEFPROCub(z%):LOCAL`%:`%=z%!36:SYS524612,,`%!8,`%!12,`%!24,`%!16,`%!28,`%!20:ENDPROC
4240DEFPROCz:!ba%=20:ba%!12=0:ba%!16=524615:SYS262375,17,ba%:ENDPROC
4245DEFFNB(dc%,z%):LOCALp$,r%,s$,i%:p$=FNmsg_0(A%!12,"CLM"):!q%=32+LENp$ANDNOT3:q%!12=0:q%!16=11:q%!20=dc%:q%!24=0:$(q%+28)=p$+CHR$0:SYS262375,18,q%:na%=0:oa%=z%:REPEAT:PROCv(ka%):UNTILna%:oa%=0:IFna%=2i%=q%+28:CALLZ%,i%,s$:=s$
4250=""
4255DEFFNm(z%,ec%):LOCALN%,p$,H%,bb%,f%,s$,fc%:LOCALia$,bb%,hb%,Vb%,c$,M%:FORbb%=0TO255:aa%?bb%=q%?bb%:NEXT:H%=z%!4:N%=z%!12:g$=FNtask_read_env("PrinterType$"+STR$N%!0,ba%):SYS6,204,Fa%:SYS424324:CASEN%!0OF
4260WHEN1:IFNOTec%THEN
4265p$=FNB(1,z%):IFp$<>""THEN=FNmsg_1(A%!12,"OKI",p$)
4270ENDIF
4275fc%=FNn(1):IFfc%=0fc%=3
4280IFz%!24AND128THEN
4285g$="devices#buffer"+STR$fc%+":$."+FNS
4290ELSE:g$="devices#buffer"+STR$fc%+":$.Parallel"
4295ENDIF
4300WHEN2:IFNOTec%THEN
4305p$=FNB(2,z%):IFp$<>""THEN=FNmsg_1(A%!12,"OKJ",p$)
4310ENDIF
4315SYS87,5,N%?4:SYS87,6,N%?4:SYS87,1,N%!8:SYS87,0,N%?5,NOT1:SYS6,204,1TO,Fa%:fc%=FNn(2):IFfc%=0fc%=3
4320g$="devices#buffer"+STR$fc%+":$.Serial"
4325WHEN4:IF$N%!12=""THEN=FNmsg_0(A%!12,"OKAG")
4330g$="NetPrint#"+$N%!12+":":SYS263872:SYS262659,$N%!12:SYS263873
4335WHEN5:g$=$N%!16:IFg$=""g$="null:"
4340SYS131080,17,g$TObb%;f%:IFf%AND1bb%=0
4345IFbb%THEN
4350SYS131085,67,g$TObb%;f%:IF(f%AND1)=0CLOSE#bb%:SYS131080,18,g$,H%!28
4355ELSE:SYS131080,11,g$,H%!28TObb%;f%:IF(f%AND1)THEN
4360bb%+=4:CALLZ%,bb%,s$:=s$
4365ENDIF
4370ENDIF
4375WHEN6:s$=FNca(N%,g$):IFs$<>""THEN=s$
4380WHEN8:SYS131107,"PrinterType$8",O%,256,,3TO,,f%:O%?f%=13:g$=$O%:IFg$=""g$="null:"
4385WHEN9:IFGa%THEN
4390c$=$z%!40:SYS424578,0,2,c$,0,0TObb%,,,gc%,,Vb%;hb%:IF(hb%AND1)THEN
4395=FNmsg_1 (A%!12,"OKAR",c$)
4400ENDIF
4405SYS424323,1,Vb%,c$TObb%;hb%:IF(hb%AND1)THEN
4410=FNmsg_1 (A%!12,"OKAR",c$)
4415ENDIF
4420q$="Share::_S"+FNt(Vb%)+".":ia$="Share::_S"+FNt(Vb%)+".RemSpool."+h$:SYS293254:SYS131080,8,ia$,,,0TObb%;hb%:SYS293253:IF(hb%AND1)THEN
4425=FNmsg_1 (A%!12,"OKAR",c$)
4430ENDIF
4435ia$="Share::_S"+FNt(Vb%)+".RemQueue."+h$:SYS293254:SYS131080,8,ia$,,,0TObb%;hb%:SYS293253:IF(hb%AND1)THEN
4440=FNmsg_1 (A%!12,"OKAR",c$)
4445ENDIF
4450s$=FNda:IFs$<>""THEN
4455=FNmsg_1 (A%!12,"OKAR",c$)
4460ENDIF
4465M%=INSTR(c$," "):WHILEM%:MID$(c$,M%,1)=CHR$160:M%=INSTR(c$," ",M%+1):ENDWHILE:g$="Share::_S"+FNt(Vb%)+".RemSpool."+h$+"."+c$:SYS293254:SYS131080,17,g$TObb%;f%:IFf%AND1bb%=0
4470IFbb%THEN
4475SYS131085,67,g$TObb%;f%:IF(f%AND1)=0CLOSE#bb%:SYS131080,18,g$,H%!28
4480SYS293253
4485ELSE:SYS131080,11,g$,H%!28TObb%;f%:SYS293253:IF(f%AND1)THEN
4490=FNmsg_1 (A%!12,"OKAR",c$)
4495ENDIF
4500ENDIF
4505ELSE:=FNmsg_1 (A%!12,"OKAR",c$)
4510ENDIF
4515ENDCASE
4520SYS36,"PrinterType$"+STR$N%!0,g$,LENg$:PROCI(N%!0):FORbb%=0TO255:q%?bb%=aa%?bb%:NEXT:=""
4525DEFPROCvb(fc%):IFfc%SYS6,21,fc%
4530ENDPROC
4535DEFPROCI(hc%):LOCALx%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCwb:PROCvb(FNn(x%)):SYS6,5,hc%:ENDPROC
4540SYS6,245,,255TO,x%:IFx%<>hc%THEN
4545PROCxb:SYS6,5,hc%:PROCwb
4550ENDIF
4555ENDPROC
4560DEFPROCxb:SYS6,229:ENDPROC
4565DEFPROCwb:SYS6,229,1:ENDPROC
4570DEFFNca(N%,RETURNa$):LOCALc%,f%,s$:IFNOTFNyTHEN=FNmsg_0(A%!12,"OKL")
4575IFN%!20=0THEN=FNmsg_0(A%!12,"OKK")
4580a$="NFS#Printer::"+$N%!20:IFN%!24=0a$+=".lp"ELSEa$+="."+$N%!24
4585IFN%!28=0a$+=".nobody"ELSEa$+="."+$N%!28
4590IFN%!32a$+="."+$N%!32
4595SYS131085,143,a$TOc%;f%:IFf%AND1THEN
4600CASE!c%OF
4605WHEN204:=FNmsg_0(A%!12,"OKM")
4610OTHERWISE:f%=c%+4:CALLZ%,f%,s$:=s$+" ("+STR$!c%+")"
4615ENDCASE
4620ENDIF
4625SYS131085,,c%:=""
4630DEFPROCg(ja$,ic%,jc%):LOCALy%,i%,kc%,lc%,mc%:LOCALz%,R%,nb%:IFic%THEN
4635nc%=q%!0-64:oc%=q%!4
4640ENDIF
4645IFjc%THEN
4650!O%=q%!12:O%!4=q%!16:SYS262350,,O%:kc%=O%!16:lc%=O%!20:SYS262347,,O%:nc%=O%!20+O%!4+kc%+2:oc%=O%!24+O%!16+lc%-2
4655ENDIF
4660IFja$="SVE"THEN
4665PROCyb(za%!28,FNmsg_0(A%!12,"OP")):SYS262356,,wb%,nc%,oc%
4670ELSE:CASEja$OF
4675WHEN"ME1":PROCmenu_create(_%,FNmsg_0(A%!12,"ME1")):PROCzb(_%,0,Cb%,0):PROCa(_%,2,A%!44=0):oc%=96+(5+1)*ma%:IFsb%wa%=0ELSEPROCy(q%!16,wa%)
4680WHEN"ME2":IFFNPTHEN
4685PROCmenu_create(_%,FNmsg_0(A%!12,"ME2")+FNmsg_0(A%!12,"ME2a")+FNmsg_0(A%!12,"ME2b"))
4690ELSE:PROCmenu_create(_%,FNmsg_0(A%!12,"ME2")+FNmsg_0(A%!12,"ME2b"))
4695ENDIF
4700PROCmenu_tick_match(_%,FNicon_read(Q%,15))
4705WHEN"ME3":PROCmenu_create(_%,FNmsg_0(A%!12,"ME3")):PROCmenu_tick_match(_%,FNicon_read(Q%,17))
4710WHEN"ME4":PROCmenu_create(_%,FNmsg_0(A%!12,"ME4")):PROCmenu_tick_match(_%,FNicon_read(Q%,18))
4715WHEN"ME5":PROCmenu_create(_%,FNmsg_0(A%!12,"ME5")):mc%=(_%!28AND256)<>0:IFNOT(FNu=0ANDFNp<>0)THEN
4720IFFNu=3ANDFNp=0THEN
4725PROCmenu_item(_%,1,FNmsg_0(A%!12,"ME5c"),mc%)
4730ELSE:PROCmenu_item(_%,1,FNmsg_0(A%!12,"ME5a"),mc%)
4735ENDIF
4740ENDIF
4745PROCmenu_tick_match(_%,FNicon_read(Q%,19))
4750WHEN"ME6":IFic%PROCAb
4755PROCmenu_tick_match(_%,FNicon_read(Q%,25))
4760WHEN"MQ1":IFic%THEN
4765PROCbb:va%=oc%:!q%=A%!40:SYS262347,,q%:B%=va%-q%!16+q%!24:va%=USR(P%+44):i%=A%!16:wa%=!i%:xa%=i%!4:IFxa%=-1xa%=0
4770IFxa%=0THEN
4775PROCmenu_create(_%,FNmsg_1(A%!12,"MQ1",FNmsg_0(A%!12,"MQ1a"))):IFwa%wa%!24=wa%!24OR16
4780ELSE:IFxa%!12THEN
4785PROCmenu_create(_%,FNmsg_1(A%!12,"MQ1",FNmsg_0(A%!12,"MQ1a")))
4790ELSE:PROCmenu_create(_%,FNmsg_1(A%!12,"MQ1",FNmsg_0(A%!12,"MQ1b")))
4795ENDIF
4800xa%?11=xa%?11OR8
4805ENDIF
4810PROCf(-1,wa%,xa%)
4815ENDIF
4820PROCa(_%,0,0):PROCa(_%,1,0):PROCa(_%,2,0):PROCa(_%,3,0):PROCa(_%,4,0):PROCa(_%,5,0):PROCa(_%,6,0):IFxa%=0THEN
4825PROCa(_%,4,-1):PROCa(_%,5,-1):PROCa(_%,6,-1)
4830ELSE:IFxa%?11AND5PROCa(_%,4,-1)ELSEPROCa(_%,5,-1)
4835ENDIF
4840IFwa%!24AND36THEN
4845PROCa(_%,0,-1):PROCa(_%,1,-1)
4850ELSE:PROCa(_%,2,-1)
4855ENDIF
4860WHEN"MP1":PROCcreate_paper_menu(_%,zb%,5)
4865WHEN"MC1","MC1s":PROCmenu_create(_%,FNmsg_0(A%!12,"MC1s")):IFGa%=0THEN
4870PROCa(_%,2,-1)
4875ENDIF
4880SYS262358,Bb%,O%,1<<21,1<<21:IF(!O%=-1ORO%!4=-1)ANDta%=0THEN
4885IFNOT!O%PROCicon_deselect(Bb%,!O%)
4890IFq%!12=Bb%ANDq%!16>3THEN
4895PROCicon_select(Bb%,q%!16):i%=1
4900ELSE:i%=0
4905ENDIF
4910ELSE:i%=2
4915ENDIF
4920CASEi%OF
4925WHEN0: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)
4930WHEN1:PROCt (z%,R%,nb%):IFR%THEN
4935PROCa (_%,0,-1):PROCa (_%,1,-1):PROCa (_%,2,-1):IFR%!20>0THEN
4940PROCa (_%,3,-1)
4945ELSE:PROCa (_%,4,-1)
4950ENDIF
4955PROCa (_%,5,-1)
4960ENDIF
4965IFz%THEN
4970IFz%!24AND(1<<17)THEN
4975PROCa (_%,1,-1):PROCa (_%,2,-1):PROCa (_%,3,-1):PROCa (_%,5,-1)
4980ENDIF
4985ENDIF
4990WHEN2:PROCa(_%,0,-1):PROCa(_%,1,-1)
4995ENDCASE
5000ENDCASE
5005J$=ja$:PROCdisplay_menu(0,_%,nc%,oc%)
5010ENDIF
5015ENDPROC
5020DEFPROCcreate_paper_menu(RETURNIb%,Xb%,nb%):LOCAL`%,i%,mc%:PROCmenu_create(Ib%,FNmsg_0(A%!12,"MP1")):mc%=(Ib%!28AND256)<>0:`%=ia%:i%=0:WHILE`%:PROCmenu_item(Ib%,i%,$`%!4,mc%):i%+=1:`%=`%!0:ENDWHILE:PROCmenu_tick_match(Ib%,FNicon_read(Xb%,nb%)):ENDPROC
5025DEFPROCdisplay_menu(z%,_%,pc%,qc%):ua%=z%:SYS262356,,_%,pc%,qc%:ENDPROC
5030DEFFNwas_adjust_used:SYS262351,,O%:=(O%!8AND1)<>0
5035DEFPROCsa:LOCAL_b%,rc%,`%,i%,h%,n%,z%,nb%:LOCALR%:IFua%THEN
5040PROCc(ua%!4,ua%,9,q%):ENDPROC
5045ENDIF
5050_b%=FNwas_adjust_used:CASEJ$OF
5055WHEN"ME1":CASE!q%OF
5060WHEN1:PROCtb(wa%)
5065WHEN2:PROCrb
5070WHEN3:PROCBb(wa%)
5075WHEN4:PROCCb:PROCDb
5080WHEN5:IFA%!32THEN
5085A%!20=A%!20OR1:Nb%=2:PROC`a(xb%)
5090ELSE:PROCx
5095ENDIF
5100ENDCASE
5105WHEN"ME2":PROCicon_write(Q%,15,$(!q%*24+40+_%))
5110WHEN"ME3":PROCicon_write(Q%,17,$(!q%*24+40+_%)):PROCFb(-1)
5115WHEN"ME4":PROCicon_write(Q%,18,$(!q%*24+40+_%)):PROCFb(-1)
5120WHEN"ME5":PROCFb(!q%)
5125WHEN"ME6":PROCmenu_tick_match(_%,FNicon_read(Q%,25)):PROCicon_write(Q%,25,$(!q%*24+40+_%))
5130WHEN"MQ1":rc%=-1:CASE!q%OF
5135WHEN0:wa%!24=wa%!24OR4
5140WHEN1:wa%!24=wa%!24OR32
5145WHEN2:wa%!24=wa%!24ANDNOT36:i%=wa%!32:IFi%THEN
5150i%=i%!44:IFi%THEN
5155IFi%!40THEN
5160i%!40=0:IFwa%!48THEN
5165!q%=wa%!48:PROCe
5170ENDIF
5175ENDIF
5180ENDIF
5185ENDIF
5190WHEN3:PROCA(wa%):rc%=0
5195WHEN4:IFxa%!12THEN
5200xa%?11=xa%?11OR1
5205ELSE:xa%?11=xa%?11OR4
5210ENDIF
5215WHEN5:xa%?11=xa%?11ANDNOT5
5220WHEN6:PROCn(wa%,xa%,-1):rc%=0
5225ENDCASE
5230IFrc%THEN
5235PROCi(wa%):IF!q%<3THEN
5240PROCf(-1,wa%,0)
5245ELSE:PROCf(va%,wa%,xa%)
5250ENDIF
5255ENDIF
5260WHEN"MP1":`%=ia%:i%=!q%:WHILEi%:`%=`%!0:i%-=1:ENDWHILE:FORi%=0TO52STEP4:Ca%!i%=`%!i%:NEXT:PROCGb
5265WHEN"MC1","MC1s":CASE!q%OF
5270WHEN0:PROCt(z%,R%,nb%):IFz%THEN
5275PROCc(z%!4,z%,-3,0):PROCnb(z%,"configure")
5280ENDIF
5285WHEN1:PROCt(z%,R%,nb%):IFz%THEN
5290PROCT(z%)
5295ENDIF
5300WHEN2:PROCHb
5305WHEN3:PROCIb:PROCk
5310WHEN4:PROCJb:PROCk
5315WHEN5:PROCKb:PROCk
5320WHEN6:IFA%!48THEN
5325VDU4,26
5330IF0<=sa%-1THEN
5335FORi%=0TOsa%-1:PROCicon_select(Bb%,i%+4):NEXT
5340ENDIF
5345ENDIF
5350IFHa%THEN
5355IF0<=Ja%-1THEN
5360FORi%=sa%TOsa%+Ja%:PROCicon_select(Bb%,i%+4):NEXT
5365ENDIF
5370ENDIF
5375ta%=-1
5380WHEN7:PROCU(Bb%)
5385ENDCASE
5390ENDCASE
5395IF_b%THEN
5400SYS262351,,q%:PROCg(J$,0,0)
5405ELSE:PROCbb
5410ENDIF
5415ENDPROC
5420DEFPROCCb:LOCALc%,f%,H%,z%,M%,p%,Oa%,s$,f$:LOCALsc%,R%:SYS263872:IFha%THEN
5425f$="<Printers$Dir>.Remote.ID"+h$+".Settings1"
5430ELSE:f$="<Printers$Dir>.Settings1"
5435ENDIF
5440SYS131085,143,f$TOc%;f%:IFf%AND1f%=c%+4:CALLZ%,f%,s$:ERROR254,FNmsg_1(A%!12,"OKB",s$)
5445LOCALERROR:ONERRORLOCALRESTOREERROR:SYS131085,0,c%:SYS131080,6,f$:ERROR254,FNmsg_1(A%!12,"OKB",REPORT$)
5450BPUT#c%,"fv: 1":z%=A%!48:WHILEz%:H%=z%!4:BPUT#c%,"cl: "+$H%!4+":"+STR$H%!40:BPUT#c%,"nm: "+$z%!8:M%=z%!12:IFH%!24AND4THEN
5455Oa%=H%!48:BPUT#c%,"cn: "+STR$Oa%:IF1<=Oa%THEN
5460FORf%=1TOOa%:p%=!M%:M%+=4:CASE-1OF
5465WHENp%=0:BPUT#c%,"nl: "
5470WHENp%!-4=1196707401:BPUT#c%,"in: "+STR$!p%
5475WHENp%!-4=1196577875:BPUT#c%,"st: "+$p%
5480WHENp%!-4=810701907:CALLZ%,p%,s$:BPUT#c%,"s0: "+s$
5485WHENp%!-4=1381258055:CALLY%,p%,s$:BPUT#c%,"gs: "+FNungstrans(s$)
5490WHENp%!-4=1381257040:BPUT#c%,"pt: "+FNo(!p%,H%)
5495OTHERWISE:SYS131085,,c%:ERROR254,FNmsg_1(A%!12,"OKC",$z%!8)
5500ENDCASE
5505NEXT
5510ENDIF
5515ELSE:BPUT#c%,"ct: 16_"+STR$~M%!0:BPUT#c%,"bd: 16_"+STR$~M%!4:IFM%!8AND48M%!8=M%!8OR8
5520BPUT#c%,"ft: 16_"+STR$~M%!8:BPUT#c%,"et: ";:IFM%!12=0BPUT#c%,10ELSEBPUT#c%,$M%!12
5525BPUT#c%,"fl: ";:IFM%!16=0BPUT#c%,10ELSEBPUT#c%,$M%!16
5530BPUT#c%,"ns: ";:IFM%!20=0BPUT#c%,10ELSEBPUT#c%,$M%!20
5535BPUT#c%,"np: ";:IFM%!24=0BPUT#c%,10ELSEBPUT#c%,$M%!24
5540BPUT#c%,"nu: ";:IFM%!28=0BPUT#c%,10ELSEBPUT#c%,$M%!28
5545BPUT#c%,"no: ";:IFM%!32=0BPUT#c%,10ELSEBPUT#c%,$M%!32
5550BPUT#c%,"cf: 16_"+STR$~M%?6
5555ENDIF
5560M%=z%!16:Oa%=H%!36:BPUT#c%,"cs: "+STR$Oa%:IF1<=Oa%THEN
5565FORf%=1TOOa%:p%=!M%:M%+=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: "+FNo(!p%,H%)
5600OTHERWISE:SYS131085,,c%:ERROR254,FNmsg_1(A%!12,"OKC",$z%!8)
5605ENDCASE
5610NEXT
5615ENDIF
5620BPUT#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:R%=Ha%:WHILER%:IFR%!20>0THEN
5625BPUT#c%,"cl:":BPUT#c%,"nm: "+$R%!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:"
5630BPUT#c%,"sn: "+$R%!4:BPUT#c%,"ic:"
5635ENDIF
5640R%=R%!0:ENDWHILE:CLOSE#c%:SYS131080,18,f$,4038:SYS131080,6,LEFT$(f$):SYS131113,25,f$,LEFT$(f$):SYS263873:ENDPROC
5645DEFPROCDb:LOCALH%,vb%,S%,c%,ab%,U%,tc%,i%,j%,k%,l%,s$,f%,f$:SYS263872:H%=ra%:WHILEH%:IFH%!8THEN
5650IFH%!24AND2THEN
5655IFha%THEN
5660f$="<Printers$Dir>.Remote.ID"+h$+"."+$H%!4:SYS8,8,f$:f$+=".PrData1"
5665ELSE:f$="<Printers$Dir>."+$H%!4+".PrData1"
5670ENDIF
5675SYS131080,4,LEFT$(f$),,,,3:SYS131085,143,f$TOc%;f%:IFf%AND1f%=c%+4:CALLZ%,f%,s$:ERROR254,FNmsg_1(A%!12,"OKB",s$)
5680LOCALERROR:ONERRORLOCALRESTOREERROR:SYS131085,0,c%:SYS131080,6,f$:ERROR254,FNmsg_1(A%!12,"OKB",REPORT$)
5685ab%=H%!8:vb%=H%!12:WHILEab%:BPUT#c%,$(ab%+12)+":":BPUT#c%,"#":S%=vb%!4:WHILES%:IFS%!(S%!4*4+8)THEN
5690BPUT#c%,"# Usage: "+STR$S%!(S%!4*4+8):U%=ab%!4:i%=S%+8:WHILEU%:BPUT#c%,$(U%+16)+" ";:IF!i%=0THEN
5695IFU%!4=6THEN
5700BPUT#c%,48
5705ELSE:IFU%!4=1THEN
5710BPUT#c%,48
5715ENDIF
5720ENDIF
5725BPUT#c%,10
5730ELSE:j%=!i%:CASEU%!4OF
5735WHEN1:BPUT#c%,STR$!j%
5740WHEN2:BPUT#c%,FNprinter_read_string(j%)
5745WHEN3:BPUT#c%,FNprinter_read_string(j%)
5750WHEN4:BPUT#c%,FNungstrans(FNprinter_read_string(j%))
5755WHEN5:BPUT#c%,10:CASEU%!8OF
5760WHEN1:BPUT#c%," "+STR$!j%!0+", "+STR$!j%!4
5765WHEN2:BPUT#c%," "+FNprinter_read_string(j%!0):BPUT#c%," "+FNprinter_read_string(j%!4)
5770WHEN3:BPUT#c%," "+FNprinter_read_string(j%!0):BPUT#c%," "+FNprinter_read_string(j%!4)
5775WHEN4:BPUT#c%," "+FNungstrans(FNprinter_read_string(j%!0)):BPUT#c%," "+FNungstrans(FNprinter_read_string(j%!4))
5780WHEN7:BPUT#c%," "+FNo(!j%!0,H%)+", "+FNo(!j%!4,H%)
5785ENDCASE
5790WHEN6:k%=j%:l%=0:WHILEk%:l%+=1:k%=!k%:ENDWHILE:BPUT#c%,STR$l%:WHILEj%:IF0<=j%!4-1THEN
5795FORk%=0TOj%!4-1:l%=j%!(k%*4+8):CASEl%!-4OF
5800WHEN1196707401:BPUT#c%," "+STR$!l%+", ";
5805WHEN1196577875:BPUT#c%," "+$l%+", ";
5810WHEN810701907:CALLZ%,l%,s$:BPUT#c%," "+s$+", ";
5815WHEN1381258055:CALLY%,l%,s$:BPUT#c%," "+FNungstrans(s$)+", ";
5820WHEN1381257040:BPUT#c%," "+FNo(!l%,H%)+", ";
5825ENDCASE
5830NEXT
5835ENDIF
5840PTR#c%=PTR#c%-2:BPUT#c%,10:j%=!j%:ENDWHILE
5845WHEN7:BPUT#c%,FNo(!j%,H%)
5850WHEN8:k%=j%:l%=0:WHILEk%:l%+=1:k%=!k%:ENDWHILE:BPUT#c%,STR$l%:WHILEj%:s$=CHR$j%?4:IF1<=j%?5THEN
5855FORk%=1TOj%?5:s$+=CHR$j%?(k%+5):NEXT
5860ENDIF
5865BPUT#c%," "+FNungstrans(s$):j%=!j%:ENDWHILE
5870ENDCASE
5875ENDIF
5880U%=U%!0:i%+=4:ENDWHILE:BPUT#c%,"#"
5885ENDIF
5890S%=S%!0:ENDWHILE:ab%=ab%!0:vb%=vb%!0:ENDWHILE:CLOSE#c%:SYS131080,18,f$,4038:SYS131080,6,LEFT$(f$):SYS131113,25,f$,LEFT$(f$):H%!24=H%!24ANDNOT2
5895ELSE
5900ENDIF
5905ENDIF
5910H%=H%!0:ENDWHILE:SYS263873:ENDPROC
5915DEFFNo(p%,H%):LOCALvb%,S%,ab%,uc%,vc%:vb%=H%!12:WHILEvb%:S%=vb%!4:vc%=0:WHILES%:IFS%!(S%!4*4+8)THEN
5920vc%+=1:IFp%=S%THEN
5925ab%=H%!8:WHILEuc%:ab%=ab%!0:uc%-=1:ENDWHILE:=$(ab%+12)+":"+STR$vc%
5930ENDIF
5935ENDIF
5940S%=S%!0:ENDWHILE:uc%+=1:vb%=vb%!0:ENDWHILE:PROCb(FNmsg_0(A%!12,"FAF")):=""
5945DEFFNh(h%):!W%=h%:SYS262347,,W%:=(W%!32AND1<<16)<>0
5950DEFPROCtb(z%):IFNOTFNh(Bb%)THEN
5955IFA%!48ORHa%THEN
5960PROCk
5965ENDIF
5970ENDIF
5975PROCs(Bb%):PROCq(Bb%):PROCsb(z%):ENDPROC
5980DEFPROCsb(z%):LOCALp%:IFz%THEN
5985SYS262358,Bb%,O%,1<<21,1<<21:p%=O%:WHILENOT!p%:IF!p%<>z%!28PROCicon_deselect(Bb%,!p%)
5990p%+=4:ENDWHILE:IF(z%!24AND44)=0PROCicon_select(Bb%,z%!28)
5995ENDIF
6000ENDPROC
6005DEFPROCB(p%):LOCALM%,i%,pb%:IFp%=0ENDPROC
6010CASEp%!-4OF
6015WHEN1381257040:M%=!p%:pb%=M%+M%!4*4+8:!pb%-=1:IF!pb%=0THEN
6020pb%=M%+8:IF1<=M%!4THEN
6025FORi%=1TOM%!4:PROCB(!pb%):pb%+=4:NEXT
6030ENDIF
6035ENDIF
6040WHEN1280266050:PROCB(p%!0):PROCB(p%!4)
6045WHEN1146377036:WHILEp%:IF0<=p%!4-1THEN
6050FORM%=0TOp%!4-1:PROCB(p%!(M%*4+8)):NEXT
6055ENDIF
6060p%=p%!0:ENDWHILE
6065ENDCASE
6070ENDPROC
6075DEFPROCLb(ka$):LOCALH%,vb%,wc%,S%,i%,j%,k%,l%,pb%:H%=ra%:WHILEH%:wc%=0:vb%=H%!12:S%=vb%!4:WHILES%:IF$S%!8=ka$THEN
6080IF(S%!(S%!4*4+8))=0THEN
6085H%!24=H%!24OR2:IF0<=S%!4-1THEN
6090FORi%=0TOS%!4-1:pb%=S%!(i%*4+8):PROCB(pb%):PROCfree_structure(pb%):NEXT
6095ENDIF
6100IFwc%THEN
6105wc%!0=S%!0
6110ELSE:vb%!4=S%!0
6115ENDIF
6120B%=1413763664:C%=S%:CALLP%+16
6125ENDIF
6130S%=0:H%=0
6135ELSE:wc%=S%:S%=S%!0
6140ENDIF
6145ENDWHILE:IFH%H%=H%!0
6150ENDWHILE:ENDPROC
6155DEFPROCp(la$):PROCS(FNmsg_1(A%!12,"OKZ",la$)):ENDPROC
6160DEFPROCMb(RETURNH%):LOCALM%,J%,c%,d%:J%=FNb("cl:"):IFJ%=0PROCp(FNmsg_0(A%!12,"OKZa"))
6165H%=ra%:WHILEH%:IF$H%!4=$J%THEN
6170IFH%!24AND32THEN
6175SYS131080,7,"PrinterChoices:"+$J%+".WriteTest"TO;c%:IF(c%AND1)PROCm:ERROR254,FNmsg_1(A%!12,"OKAN",$J%)
6180ENDIF
6185M%=!tb%:PROCNb(H%,H%!8):!tb%=M%:ENDPROC
6190ELSE:H%=H%!0
6195ENDIF
6200ENDWHILE:IFH%=0THEN
6205PROCOa:PROCCa($J%):PROCDa($J%,H%):PROCPa:PROCKa:IFH%!24AND32THEN
6210SYS131080,7,"PrinterChoices:"+$J%+".WriteTest"TO;c%:IF(c%AND1)PROCm:ERROR254,FNmsg_1(A%!12,"OKAN",$J%)
6215ENDIF
6220PROCc(H%,A%!48,-5,0)
6225ENDIF
6230IFH%=0PROCp(FNmsg_1(A%!12,"OKZb",$J%))
6235ENDPROC
6240DEFPROCNb(H%,ab%):LOCALU%,J%:U%=ab%!4:REPEAT:J%=FNb($(U%+16)):IFJ%THEN
6245CASEU%!4OF
6250WHEN5:PROCOb(H%,ab%,$J%)
6255WHEN6:IF?J%=13PROCp(FNmsg_1(A%!12,"OK7a",$(U%+16)))
6260PROCPb(H%,ab%,$J%)
6265WHEN7:PROCV(H%,ab%,$J%)
6270WHEN8:IF?J%=13PROCp(FNmsg_1(A%!12,"OK7a",$(U%+16)))
6275PROCQb(H%,ab%,$J%)
6280ENDCASE
6285ELSE:IF!tb%<xc%PROCp(FNmsg_1(A%!12,"OKZc",$(U%+16)))
6290ENDIF
6295U%=U%!0:UNTILU%=0:ENDPROC
6300DEFPROCOb(H%,ab%,t$):LOCALJ%,ma$,k$:J%=FNd:IFJ%THEN
6305CASEU%!8OF
6310WHEN1:J%=FNI(J%,yc%):IF?J%=13J%=FNd
6315WHEN2,3,4:J%=FNq(J%,k$):IF?J%=13J%=FNd
6320WHEN7:J%=FNq(J%,k$):PROCV(H%,ab%,k$):IF?J%=13J%=FNd
6325PROCV(H%,ab%,$J%)
6330ENDCASE
6335ENDIF
6340ENDPROC
6345DEFPROCPb(H%,ab%,t$):LOCALi%,p%,zc%,J%:zc%=VALt$:IF1<=zc%THEN
6350FORi%=1TOzc%:J%=FNd:IFJ%THEN
6355p%=U%!8:WHILEp%:IFp%!4=7PROCV(H%,ab%,$J%)
6360p%=!p%:ENDWHILE
6365ENDIF
6370NEXT
6375ENDIF
6380ENDPROC
6385DEFPROCV(H%,ab%,c$):LOCALi%,s$,t$:i%=INSTR(c$,":"):IFi%=0PROCp(FNmsg_1(A%!12,"OKAA",c$))
6390s$=LEFT$(c$,i%-1):t$=MID$(c$,i%+1):ab%=H%!8:WHILEab%:IF$(ab%+12)=s$THEN
6395IFVALt$>0THEN
6400ENDPROC
6405ELSE:PROCNb(H%,ab%):ENDPROC
6410ENDIF
6415ELSE:ab%=ab%!0
6420ENDIF
6425ENDWHILE:PROCp(FNmsg_1(A%!12,"OKAB",s$)):ENDPROC
6430DEFPROCQb(H%,ab%,t$):LOCALi%,zc%:zc%=VALt$:IF1<=zc%THEN
6435FORi%=1TOzc%:IFFNd
6440NEXT
6445ENDIF
6450ENDPROC
6455DEFPROCdb:LOCALJ%,H%,M%,s$,U%,Ac%,Bc%,Cc%,Dc%,Fc%:J%=q%+44:CALLZ%,J%,s$:IFNOTFNk(s$)ERROR254,FNmsg_1(A%!12,"OKX",s$)
6460SYS263872:PROCMb(H%):Cc%=H%!12:IFCc%THEN
6465Ac%=Cc%!4:IFAc%THEN
6470M%=!tb%:U%=H%!8:U%=U%!4:J%=FNb($(U%+16)):IFJ%THEN
6475WHILEAc%:IF$Ac%!8=$J%THEN
6480PROCm:SYS263873:PROCRb(H%,Ac%):ENDPROC
6485ENDIF
6490Bc%=Ac%:Ac%=Ac%!0:ENDWHILE
6495ELSE:PROCp(FNmsg_1(A%!12,"OKZc",$(U%+16)))
6500ENDIF
6505!tb%=M%
6510ELSE:Bc%=0
6515ENDIF
6520ELSE:Bc%=0
6525ENDIF
6530PROCW(H%!8,Bc%,Cc%,0,Dc%,Fc%,H%):PROCm:H%!24=H%!24OR2:PROCRb(H%,Bc%):SYS263873:ENDPROC
6535DEFPROCS(s$):PROCm:ERROR254,FNQ(A%!12,"OK0",STR$ub%,V$,s$):ENDPROC
6540DEFPROCh(H%,s$,na$):PROCS(FNmsg_2(A%!12,na$,$H%!4,s$)):ENDPROC
6545DEFPROCIa(Gc%):LOCALJ%,T%,Hc%,i%,Ic%,Jc%,Kc%,Lc%:J%=FNb("tp:"):IFJ%=0PROCh(Gc%,FNmsg_0(A%!12,"OK3"),"OK2a")
6550REPEAT:J%=FNd:IFJ%THEN
6555T%=FNa(J%,"tp:"):IFT%THEN
6560Hc%+=1:B%=1414548820:C%=12+1+LEN$T%:Ic%=USR(P%+12):IFIc%=0PROCh(Gc%,FNmsg_1(A%!12,"FA5","TMPT"),"OK2a")
6565IFJc%THEN
6570Jc%!0=Ic%
6575ELSE:Gc%!8=Ic%
6580ENDIF
6585Ic%!0=0:Ic%!4=0:Ic%!8=0:$(Ic%+12)=$T%:Lc%=0
6590ELSE:T%=FNa(J%,"end:"):IFT%THEN
6595IF?T%<>13PROCh(Gc%,FNmsg_0(A%!12,"OK3a"),"OK2a")
6600Hc%-=1:Jc%=Ic%
6605ELSE:i%=INSTR($J%,":"):IFi%=0PROCh(Gc%,FNmsg_1(A%!12,"OK4",$J%),"OK2a")
6610IFHc%<>1PROCh(Gc%,FNmsg_1(A%!12,"OK4a",$J%),"OK2a")
6615Ic%!8+=1:B%=1498567758:C%=16+1+i%:Kc%=USR(P%+12):IFKc%=0PROCh(Gc%,FNmsg_1(A%!12,"FA5","NTRY"),"OK2a")
6620IFLc%Lc%!0=Kc%ELSEIc%!4=Kc%
6625Kc%!0=0:Kc%!4=0:Kc%!8=0:Kc%!12=0:$(Kc%+16)=LEFT$($J%,i%):J%+=i%+1:CASE-1OF
6630WHENFNa(J%,"in")<>0:Kc%!4=1
6635WHENFNa(J%,"st")<>0:Kc%!4=2
6640WHENFNa(J%,"s0")<>0:Kc%!4=3
6645WHENFNa(J%,"gs")<>0:Kc%!4=4
6650WHENFNa(J%,"bl")<>0:Kc%!4=5:T%=FNa(J%,"bl"):WHILE?T%=32:T%+=1:ENDWHILE:IF?T%=ASC","T%+=1
6655CASE-1OF
6660WHENFNa(T%,"in")<>0:Kc%!8=1
6665WHENFNa(T%,"st")<>0:Kc%!8=2
6670WHENFNa(T%,"s0")<>0:Kc%!8=3
6675WHENFNa(T%,"gs")<>0:Kc%!8=4
6680WHENFNa(T%,"ptr")<>0:Kc%!8=7
6685OTHERWISE:PROCh(Gc%,FNmsg_1(A%!12,"OK5",$T%),"OK2a")
6690ENDCASE
6695WHENFNa(J%,"ls")<>0:Kc%!4=6:T%=FNa(J%,"ls"):PROCSb(T%,Kc%,Gc%)
6700WHENFNa(J%,"ptr")<>0:Kc%!4=7
6705WHENFNa(J%,"ch")<>0:Kc%!4=8
6710OTHERWISE:PROCh(Gc%,FNmsg_1(A%!12,"OK6",$J%),"OK2a")
6715ENDCASE
6720Lc%=Kc%
6725ENDIF
6730ENDIF
6735ENDIF
6740UNTILHc%=-1:ENDPROC
6745DEFPROCSb(Mc%,U%,Gc%):LOCALtc%,M%,t%:M%=U%+8:REPEAT:WHILE?Mc%=32:Mc%+=1:ENDWHILE:IF?Mc%=44Mc%+=1
6750WHILE?Mc%=32:Mc%+=1:ENDWHILE:IF?Mc%<>13THEN
6755U%!12+=1:B%=1414744396:C%=8:tc%=USR(P%+12):IFtc%=0ERROR253,FNmsg_1(A%!12,"FA5","LIST")
6760!M%=tc%:M%=tc%:tc%!0=0:t%=FNa(Mc%,"in"):IFt%THEN
6765Mc%=t%:tc%!4=1
6770ELSE:t%=FNa(Mc%,"st"):IFt%THEN
6775Mc%=t%:tc%!4=2
6780ELSE:t%=FNa(Mc%,"s0"):IFt%THEN
6785Mc%=t%:tc%!4=3
6790ELSE:t%=FNa(Mc%,"gs"):IFt%THEN
6795Mc%=t%:tc%!4=4
6800ELSE:t%=FNa(Mc%,"ptr"):IFt%THEN
6805Mc%=t%:tc%!4=7
6810ELSE:PROCh(Gc%,FNmsg_1(A%!12,"OK7",$Mc%),"OK2a")
6815ENDIF
6820ENDIF
6825ENDIF
6830ENDIF
6835ENDIF
6840ENDIF
6845UNTIL?Mc%=13:ENDPROC
6850DEFFNb(m$):LOCALNc%,i%:i%=Oc%+!tb%:WHILEi%<Oc%+xc%:WHILE?i%=32:i%+=1:ENDWHILE:IF?i%=35OR?i%=13THEN
6855i%+=LEN$i%+1:ub%+=1
6860ELSE:IFm$=LEFT$($i%,LENm$)THEN
6865Nc%=i%+LENm$:WHILE?Nc%=32:Nc%+=1:ENDWHILE:i%+=LEN$i%+1:!tb%=i%-Oc%:ub%+=1:=Nc%
6870ELSE:i%+=LEN$i%+1:ub%+=1
6875ENDIF
6880ENDIF
6885ENDWHILE:=0
6890DEFFNd:LOCALNc%,i%:i%=Oc%+!tb%:WHILEi%<Oc%+xc%:WHILE?i%=32:i%+=1:ENDWHILE:IF?i%=35OR?i%=13THEN
6895i%+=LEN$i%+1:!tb%=i%-Oc%:ub%+=1
6900ELSE:Nc%=i%:i%+=LEN$i%+1:!tb%=i%-Oc%:ub%+=1:=Nc%
6905ENDIF
6910ENDWHILE:=0
6915DEFFNa(J%,m$):WHILE?J%=32:J%+=1:ENDWHILE:IFm$=LEFT$($J%,LENm$)THEN
6920J%+=LENm$:WHILE?J%=32:J%+=1:ENDWHILE:=J%
6925ENDIF
6930=0
6935DEFPROCW(ab%,RETURNBc%,Cc%,Pc%,RETURNDc%,RETURNFc%,H%):LOCALWa%,Qc%,Rc%,J%,T%,U%,i%,Oa%:U%=ab%!4:Wa%=-1:REPEAT:Rc%=!tb%:Dc%=0:J%=FNd:IFJ%THEN
6940IFWa%=-1THEN
6945Oa%=4*ab%!8+8:B%=1413763664:C%=Oa%+8:Qc%=USR(P%+12):IFQc%=0ERROR253,FNmsg_1(A%!12,"FA5","PRDT")
6950IF0<=Oa%+7THEN
6955FORi%=0TOOa%+7STEP4:Qc%!i%=0:NEXT
6960ENDIF
6965IFBc%Bc%!0=Qc%ELSECc%!4=Qc%
6970Qc%!4=ab%!8:Wa%=8
6975ENDIF
6980REPEAT:T%=FNa(J%,$(U%+16)):IFT%THEN
6985Dc%=1:CASEU%!4OF
6990WHEN1:Qc%!Wa%=FNstore_integer(FNc($T%))
6995WHEN2,3,4:B%=T%:C%=U%!4:Qc%!Wa%=USR(P%+28)
7000WHEN5:Qc%!Wa%=FNea(U%,Fc%)
7005WHEN6:IF?T%=13PROCh(H%,FNmsg_1(A%!12,"OK7a",$J%),"OK2")
7010Qc%!Wa%=FNfa(U%,FNc($T%),Fc%)
7015WHEN7:IF?T%<>13PROCX(H%,$T%,Qc%+Wa%,Fc%)
7020WHEN8:IF?T%=13PROCh(H%,FNmsg_1(A%!12,"OK7a",$J%),"OK2")
7025Qc%!Wa%=FNga(U%,FNc($T%))
7030ENDCASE
7035ENDIF
7040Wa%+=4:U%=U%!0:UNTILU%=0ORDc%
7045ENDIF
7050IFDc%=0THEN
7055IF!tb%>=xc%Dc%=3
7060!tb%=Rc%:U%=ab%!4:T%=FNa(J%,$(U%+16)):IFT%THEN
7065Dc%=1
7070ELSE:ab%=ab%!0:T%=FNa(J%,$(ab%+12)+":"):IFT%Dc%=2
7075ENDIF
7080U%=0
7085ENDIF
7090UNTILU%=0:Bc%=Qc%:ENDPROC
7095DEFPROCJa(H%):LOCALab%,s$,J%,Rc%,U%,Dc%,Qc%,Bc%,Cc%,Pc%,Fc%,i%:ab%=H%!8:REPEAT:J%=FNb($(ab%+12)+":"):IFJ%=0PROCh(H%,FNmsg_1(A%!12,"OK8",$(ab%+12)),"OK2")
7100B%=1145128264:C%=12:Cc%=USR(P%+12):IFCc%=0PROCh(H%,FNmsg_1(A%!12,"FA5","HEAD"),"OK2")
7105Cc%!0=0:Cc%!4=0:IFPc%Pc%!0=Cc%ELSEH%!12=Cc%
7110Bc%=0:REPEAT:U%=ab%!4:PROCW(ab%,Bc%,Cc%,Pc%,Dc%,Fc%,H%):IFDc%=0THEN
7115J%=FNd:PROCh(H%,FNmsg_1(A%!12,"OK9",$J%),"OK2")
7120ENDIF
7125UNTILDc%<>1:ab%=ab%!0:Pc%=Cc%:UNTILab%=0:WHILEFc%:i%=Fc%!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")
7130!!i%=FNF(s$,-1):i%=Fc%:Fc%=!Fc%:B%=1482184792:C%=i%:CALLP%+16:ENDWHILE:ENDPROC
7135DEFFNF(s$,Sc%):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
7140j%=H%!12:WHILEk%:j%=j%!0:k%-=1:ENDWHILE:k%=VALt$-1:j%=j%!4:WHILEk%:j%=j%!0:k%-=1:ENDWHILE:IFSc%j%!(j%!4*4+8)+=1
7145=j%
7150ELSE:j%=j%!0:k%+=1
7155ENDIF
7160ENDWHILE:PROCb(FNmsg_2(A%!12,"FAG",s$,t$)):=0
7165DEFFNstore_integer(v%):LOCALb%:B%=1196707401:C%=4:b%=USR(P%+12):IFb%=0ERROR253,FNmsg_1(A%!12,"FA5","INTG")
7170!b%=v%:=b%
7175DEFFNR(s$):LOCALt$,i%,Tc%:SYS39,s$,O%,256TO,,Tc%:IFTc%=0THEN=""
7180FORi%=0TOTc%-1:t$+=CHR$O%?i%:NEXT:=t$
7185DEFFNungstrans(s$):LOCALt$,i%,c%:IFs$=""THEN=""
7190FORi%=1TOLENs$:c%=ASCMID$(s$,i%,1):IFc%>=128c%-=128:t$+="|!"
7195IFc%<32c%+=64:t$+="|"
7200IFc%=127c%=63:t$+="|"
7205IFINSTR("|<""",CHR$c%)THENt$+="|"
7210t$+=CHR$c%:NEXT:=t$
7215DEFFNea(U%,RETURNFc%):LOCALJ%,yc%,b%,k$:B%=1280266050:C%=8:b%=USR(P%+12):IFb%=0ERROR253,FNmsg_1(A%!12,"FA5","BOOL")
7220J%=FNd:IFJ%THEN
7225CASEU%!8OF
7230WHEN1:J%=FNI(J%,yc%):b%!0=FNstore_integer(yc%):IF?J%=13J%=FNd
7235b%!4=FNstore_integer(FNc($J%))
7240WHEN2,3,4:J%=FNq(J%,k$):$q%=k$:B%=q%:C%=U%!8:b%!0=USR(P%+28):IF?J%=13J%=FNd
7245B%=J%:C%=U%!8:b%!4=USR(P%+28)
7250WHEN7:J%=FNq(J%,k$):PROCX(H%,s$,b%+0,Fc%):IF?J%=13J%=FNd
7255PROCX(H%,$J%,b%+4,Fc%)
7260ENDCASE
7265ENDIF
7270=b%
7275DEFFNfa(U%,Uc%,RETURNFc%):LOCALi%,M%,Vc%,Wc%,J%,Xc%,Zc%,yc%,k$:IF1<=Uc%THEN
7280FORi%=1TOUc%:B%=1146377036:C%=4*U%!12+8:Vc%=USR(P%+12):IFVc%=0ERROR253,FNmsg_1(A%!12,"FA5","LSTD")
7285IFWc%Wc%!0=Vc%ELSEM%=Vc%
7290Vc%!0=0:Vc%!4=U%!12:Zc%=8:J%=FNd:IFJ%THEN
7295Xc%=U%!8:WHILEXc%:CASEXc%!4OF
7300WHEN1:J%=FNI(J%,yc%):Vc%!Zc%=FNstore_integer(yc%)
7305WHEN2,3,4:J%=FNq(J%,k$):$q%=k$:B%=q%:C%=Xc%!4:Vc%!Zc%=USR(P%+28)
7310WHEN7:J%=FNq(J%,k$):PROCX(H%,k$,Vc%+Zc%,Fc%)
7315ENDCASE
7320Xc%=!Xc%:Zc%+=4:ENDWHILE
7325ENDIF
7330Wc%=Vc%:NEXT
7335ENDIF
7340=M%
7345DEFFNga(U%,Uc%):LOCALi%,Vc%,J%,Wc%,M%,j%,t$:IF1<=Uc%THEN
7350FORi%=1TOUc%:J%=FNd:IFJ%THEN
7355t$=FNR($J%):B%=1380010051:C%=5+LENt$:Vc%=USR(P%+12):IFVc%=0ERROR253,FNmsg_1(A%!12,"FA5","CHAR")
7360Vc%!0=0:Vc%?4=ASCt$:Vc%?5=LENt$-1:t$=MID$(t$,2):IF1<=LENt$THEN
7365FORj%=1TOLENt$:Vc%?(j%+5)=ASCMID$(t$,j%,1):NEXT
7370ENDIF
7375IFWc%Wc%!0=Vc%ELSEM%=Vc%
7380ENDIF
7385Wc%=Vc%:NEXT
7390ENDIF
7395=M%
7400DEFPROCX(H%,c$,_c%,RETURNFc%):LOCALi%,s$,t$,`c%,ad%,Pc%,ab%,Bc%,bd%,Dc%,Qc%,t$:i%=INSTR(c$,":"):IFi%=0PROCh(H%,FNmsg_1(A%!12,"OKAA",c$),"OK2")
7405s$=LEFT$(c$,i%-1):t$=MID$(c$,i%+1):ab%=H%!8:bd%=H%!12:Pc%=0:WHILEab%:IF$(ab%+12)=s$THEN
7410IFVALt$>0THEN
7415B%=1381257040:C%=LENc$+1:i%=USR(P%+12):IFi%=0ERROR253,FNmsg_1(A%!12,"FA5","POTR")
7420$i%=c$:!_c%=i%:B%=1482184792:C%=8:`c%=USR(P%+12):IF`c%=0ERROR253,FNmsg_1(A%!12,"FA5","XXXX")
7425!`c%=Fc%:`c%!4=_c%:Fc%=`c%:ENDPROC
7430ELSE:IFbd%THEN
7435Bc%=bd%!4:IFBc%THEN
7440WHILEBc%!0:Bc%=Bc%!0:ENDWHILE
7445ENDIF
7450ELSE:Bc%=0
7455ENDIF
7460ad%=Bc%:PROCW(ab%,Bc%,bd%,Pc%,Dc%,Fc%,H%):IFDc%=0ANDBc%=0THEN
7465J%=FNd:IFJ%t$=$J%ELSEt$=""
7470PROCh(H%,FNmsg_1(A%!12,"OK9",t$),"OK2")
7475ENDIF
7480Qc%=bd%!4:WHILEQc%<>Bc%:IFQc%!(Qc%!4*4+8)THEN
7485Dc%=-1:IF0<=Qc%!4-1THEN
7490FORi%=0TOQc%!4-1:IFNOTFNC(Qc%,Bc%,i%*4+8)THEN
7495Dc%=0:i%=Qc%!4
7500ENDIF
7505NEXT
7510ENDIF
7515IFDc%THEN
7520IF0<=Bc%!4-1THEN
7525FORi%=0TOBc%!4-1:`c%=Bc%!(i%*4+8):PROCB(`c%):PROCfree_structure(`c%):NEXT
7530ENDIF
7535ad%!0=0:B%=1413763664:C%=Bc%:CALLP%+16:Bc%=Qc%
7540ELSE:Qc%=!Qc%
7545ENDIF
7550ELSE:Qc%=!Qc%
7555ENDIF
7560ENDWHILE:B%=1381257040:C%=4:i%=USR(P%+12):IFi%=0ERROR253,FNmsg_1(A%!12,"FA5","POTR")
7565!i%=Bc%:!_c%=i%:Bc%!(Bc%!4*4+8)+=1:ENDPROC
7570ENDIF
7575ELSE:ab%=ab%!0:IFVALt$=0THEN
7580Pc%=bd%:bd%=bd%!0
7585ENDIF
7590ENDIF
7595ENDWHILE:PROCh(H%,FNmsg_1(A%!12,"OKAB",s$),"OK2"):ENDPROC
7600DEFFNC(s%,d%,o%):LOCALs$,d$:s%=s%!o%:d%=d%!o%:IFs%=0ORd%=0THEN
7605=(s%=d%)
7610ELSE:CASEs%!-4OF
7615WHEN1196707401:=!s%=!d%
7620WHEN1196577875:=$s%=$d%
7625WHEN810701907:CALLZ%,s%,s$:CALLZ%,d%,d$:=s$=d$
7630WHEN1381258055:CALLY%,s%,s$:CALLY%,d%,d$:=s$=d$
7635WHEN1280266050:=FNha(s%,d%)
7640WHEN1146377036:=FNia(s%,d%)
7645WHEN1381257040:=!s%=!d%
7650WHEN1380010051:=FNja(s%,d%)
7655OTHERWISE:PROCb(FNmsg_1(A%!12,"WA10",STR$~s%!-4))
7660ENDCASE
7665ENDIF
7670=0
7675DEFFNha(s%,d%):IFFNC(s%,d%,0)THEN=FNC(s%,d%,4)ELSE=0
7680DEFFNia(s%,d%):LOCALi%:WHILEs%:IF0<=s%!4-1THEN
7685FORi%=0TOs%!4-1:IFNOTFNC(s%,d%,i%*4+8)THEN=0
7690NEXT
7695ENDIF
7700s%=s%!0:d%=d%!0:ENDWHILE:=-1
7705DEFFNja(s%,d%):LOCALi%:WHILEs%:IFs%?4<>d%?4THEN=0
7710IFs%?5<>d%?5THEN=0
7715i%=s%?5:WHILEi%:IFs%?(i%+5)<>d%?(i%+5)THEN=0
7720i%-=1:ENDWHILE:s%=!s%:d%=!d%:ENDWHILE:=-1
7725DEFFNI(cd%,RETURNyc%):LOCALi%,dd%:i%=INSTR($cd%,","):IFi%=0THEN
7730yc%=FNc($cd%):dd%=cd%+LEN$cd%
7735ELSE:yc%=FNc(LEFT$($cd%,i%-1)):dd%=cd%+i%:WHILE?dd%=32:dd%+=1:ENDWHILE
7740ENDIF
7745=dd%
7750DEFFNq(cd%,RETURNk$):LOCALi%,oa$,ed%,fd%:k$="":i%=0:WHILEcd%?i%=32:i%+=1:ENDWHILE:ed%=-1:fd%=(cd%?i%=34):WHILENOT(cd%?i%=13OR(ed%ANDcd%?i%=44)):IFNOTfd%ORcd%?i%<>34ORed%k$+=CHR$cd%?i%
7755IFfd%ANDcd%?i%=34ed%=NOTed%
7760i%+=1:ENDWHILE:IFcd%?i%=13THEN
7765dd%=cd%+i%
7770ELSE:dd%=cd%+i%+1:WHILE?dd%=32:dd%+=1:ENDWHILE
7775ENDIF
7780=dd%
7785DEFFNk(c$):LOCALc%,i%,gd%,hd%,id%,jd%,kd%,dd%,ld%,gb%:SYS8,17,c$TOc%,,gd%,,xc%:IFNOT(c%=0ORc%=1)THENSYS8,19,c$,c%
7790IFc%=0THEN=0
7795IF(gd%>>>20)=4095hd%=gd%>>8AND4095ELSEhd%=-1
7800IFhd%<>4038ERROR254,FNmsg_1(A%!12,"OKAL",c$)
7805B%=1096040772:C%=4+xc%+1:Oc%=USR(P%+12)+4:IFOc%=4ERROR253,FNmsg_1(A%!12,"FA5","DATA")
7810SYS8,16,c$,Oc%:IFxc%>=20ANDOc%!0=1213419859THEN
7815SYS272129,8,-1TOid%:kd%=Oc%!4:B%=1096040772:C%=4+kd%+1:dd%=USR(P%+12)+4:IFdd%=4ERROR253,FNmsg_1(A%!12,"FA5","DATA")
7820SYS131102,6,,,id%TOC%,,jd%;gb%:IF(gb%AND1)ERROR253,FNmsg_1(A%!12,"FA5","squash")
7825SYS272129,4,jd%,Oc%+20,xc%-20,dd%,kd%TOld%:SYS30,7,,jd%:B%=1096040772:C%=Oc%-4:CALLP%+16:Oc%=dd%:xc%=kd%
7830ENDIF
7835tb%=Oc%-4:!tb%=0:ub%=1:B%=Oc%:C%=xc%:CALLP%+52:IFOc%?(xc%-1)<>13xc%+=1:Oc%?(xc%-1)=13
7840V$=c$:=-1
7845DEFPROCm:B%=1096040772:C%=Oc%-4:CALLP%+16:Oc%=0:xc%=0:ENDPROC
7850DEFPROCOa:md%=Oc%:nd%=tb%:od%=xc%:pd%=ub%:pa$=V$:ENDPROC
7855DEFPROCPa:Oc%=md%:tb%=nd%:xc%=od%:ub%=pd%:V$=pa$:ENDPROC
7860DEFPROCRb(H%,S%):LOCALs%,t%,s$,z%,N%:S%!(S%!4*4+8)+=1:B%=1414419024:C%=68:z%=USR(P%+12):IFz%=0ERROR253,FNmsg_1(A%!12,"FA5","PRNT")
7865IFA%!48THEN
7870s%=A%!48:WHILEs%!0:s%=s%!0:ENDWHILE:s%!0=z%
7875ELSE:A%!48=z%
7880ENDIF
7885z%!0=0:z%!4=H%:B%=S%!8:C%=2:z%!8=USR(P%+28):B%=1413697091:C%=36:N%=USR(P%+12):IFN%=0ERROR253,FNmsg_1(A%!12,"FA5","CNCT")
7890SYS6,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:IFNOTFNsTHEN
7895N%!12=0
7900ELSE:SYS6,161,3TO,,s%:SYS6,161,4TO,,t%:IFs%THEN
7905$q%=STR$t%+"."+STR$s%:B%=q%:C%=2:N%!12=USR(P%+28)
7910ELSE:s$=CHR$t%:FORs%=1TO5:SYS6,161,152+s%TO,,t%:IFt%s$+=CHR$t%ELSEs%=5
7915NEXT:$q%=s$:B%=q%:C%=2:N%!12=USR(P%+28)
7920ENDIF
7925ENDIF
7930SYS131107,"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")
7935IF0<=H%!36-1THEN
7940FORt%=0TOH%!36-1:s%!(t%*4)=0:NEXT
7945ENDIF
7950z%!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
7955z%!48=FNG
7960ELSE:z%!48=0
7965ENDIF
7970z%!52=0:PROCc(H%,z%,-4,0):IFH%!24AND4PROCc(H%,z%,-12,0)
7975PROCk:IFH%!24AND8THEN
7980z%!56=10*H%?(24+1)
7985ELSE:z%!56=-1
7990ENDIF
7995PROCZ(z%):ENDPROC
8000DEFPROCt(RETURNz%,RETURNR%,RETURNnb%):SYS262358,Bb%,O%,1<<21,1<<21:nb%=!O%:R%=0:z%=A%!48:WHILEz%:IFz%!28=nb%THEN
8005ENDPROC
8010ELSE:z%=z%!0
8015ENDIF
8020ENDWHILE:R%=Ha%:WHILER%:IFR%!16=nb%THEN
8025ENDPROC
8030ELSE:R%=R%!0
8035ENDIF
8040ENDWHILE:ENDPROC
8045DEFPROCTb (RETURNz%,RETURNnb%):SYS262358,Bb%,O%,1<<21,1<<21:nb%=!O%:R%=0:z%=A%!48:WHILEz%:IFz%!28=nb%THEN
8050ENDPROC
8055ELSE:z%=z%!0
8060ENDIF
8065ENDWHILE:ENDPROC
8070DEFPROCUb (RETURNR%,RETURNnb%):SYS262358,Bb%,O%,1<<21,1<<21:nb%=!O%:R%=Ha%:WHILER%:IFR%!16=nb%THEN
8075ENDPROC
8080ELSE:R%=R%!0
8085ENDIF
8090ENDWHILE:ENDPROC
8095DEFPROCT(z%):LOCALN%,i%,qd%,rd%,sd%:IFz%!24AND8ERROR254,FNmsg_0(A%!12,"OKAJ")
8100ya%=z%:za%=z%!4:N%=z%!12:IFz%!24AND(1<<17)THEN
8105ENDPROC
8110ENDIF
8115IFza%!24AND4THEN
8120PROCc(za%,ya%,-11,0):PROCs(FNprinter_find_window(ya%,"connections")):PROCq(FNprinter_find_window(ya%,"connections"))
8125ELSE:IFz%!40PROCicon_write(Q%,31,$z%!40)ELSEPROCicon_write(Q%,31,$z%!8)
8130IFN%?6AND1PROCicon_select(Q%,37)ELSEPROCicon_deselect(Q%,37)
8135PROCicon_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
8140WHEN1:i%=0
8145WHEN2:i%=1
8150WHEN4:IFFNs i%=2
8155WHEN5:i%=4
8160WHEN6:IFFNy i%=3
8165WHEN8:IFza%!24AND16i%=33
8170ENDCASE
8175IFNOTi%PROCicon_select(Q%,i%)
8180PROCicon_write(Q%,15,FNmsg_0(A%!12,"BR"+STR$N%?4)):i%=N%!8:qd%=i%AND3:sd%=(i%AND4)>>2:rd%=(i%AND48)>>4:IF(i%AND8)=0rd%=0ELSErd%+=1
8185PROCicon_write(Q%,17,FNmsg_0(A%!12,"DA"+STR$qd%)):PROCicon_write(Q%,18,FNmsg_0(A%!12,"PA"+STR$rd%)):IFsd%=0THEN
8190PROCicon_write(Q%,19,FNmsg_0(A%!12,"SB0"))
8195ELSE:IFqd%=0ANDrd%<>0THEN
8200PROCicon_write(Q%,19,FNmsg_0(A%!12,"SB1b"))
8205ELSE:IFqd%=3ANDrd%=0THEN
8210PROCicon_write(Q%,19,FNmsg_0(A%!12,"SB1c"))
8215ELSE:PROCicon_write(Q%,19,FNmsg_0(A%!12,"SB1a"))
8220ENDIF
8225ENDIF
8230ENDIF
8235IFN%?5PROCicon_select(Q%,13)ELSEPROCicon_deselect(Q%,13)
8240IFN%?6AND2PROCicon_select(Q%,35)ELSEPROCicon_deselect(Q%,35)
8245PROCu(Q%,25,N%,12):PROCu(Q%,26,N%,20):PROCu(Q%,27,N%,24):PROCu(Q%,28,N%,28):PROCu(Q%,29,N%,32):IF$N%!16<>""PROCu(Q%,30,N%,16)ELSEPROCicon_write(Q%,30,"null:")
8250IFFNsPROCicon_unshade(Q%,2)ELSEPROCicon_shade(Q%,2)
8255IFFNyPROCicon_unshade(Q%,3)ELSEPROCicon_shade(Q%,3)
8260!W%=Q%:SYS262348,,W%OR1:W%!28=-1:IFza%!24AND16PROCicon_unshade(Q%,33)ELSEPROCicon_shade(Q%,33)
8265PROCs(Q%):SYS262341,,W%:PROCob
8270ENDIF
8275ENDPROC
8280DEFPROCu(Kb%,nb%,td%,Wa%):PROCicon_write(Kb%,nb%,FNprinter_read_string(td%!Wa%)):ENDPROC
8285DEFPROCC(td%,Wa%,nb%):IFtd%!Wa%THEN
8290B%=1196577875:C%=td%!Wa%:CALLP%+16:td%!Wa%=0
8295ENDIF
8300!X%=Q%:X%!4=nb%:SYS262350,,X%:B%=X%!28:C%=2:td%!Wa%=USR(P%+28):ENDPROC
8305DEFFNu:=FNT(Q%,17,3,"DA",A%!12)
8310DEFFNp:=FNT(Q%,18,4,"PA",A%!12)
8315DEFFNU:IFFNicon_read(Q%,19)=FNmsg_0(A%!12,"SB0")THEN=0ELSE=1
8320DEFPROCFb(ud%):IFud%=-1ud%=FNU
8325IFud%=0THEN
8330PROCicon_write(Q%,19,FNmsg_0(A%!12,"SB0"))
8335ELSE:IFFNu=0ANDFNp<>0THEN
8340PROCicon_write(Q%,19,FNmsg_0(A%!12,"SB1b"))
8345ELSE:IFFNu=3ANDFNp=0THEN
8350PROCicon_write(Q%,19,FNmsg_0(A%!12,"SB1c"))
8355ELSE:PROCicon_write(Q%,19,FNmsg_0(A%!12,"SB1a"))
8360ENDIF
8365ENDIF
8370ENDIF
8375ENDPROC
8380DEFFNT(Kb%,nb%,vd%,qa$,wd%):LOCALi%,s$:s$=FNicon_read(Kb%,nb%):IF0<=vd%THEN
8385FORi%=0TOvd%:IFs$=FNmsg_0(wd%,qa$+STR$i%)THEN=i%
8390NEXT
8395ENDIF
8400=0
8405DEFPROCjb:LOCALN%,i%,p$,s$:N%=ya%!12:N%!0=0:IFFNicon_set(Q%,37)THEN
8410N%?6=N%?6OR1
8415ELSE:N%?6=N%?6ANDNOT1
8420ENDIF
8425IFFNicon_set(Q%,0)THEN
8430p$=FNB(1,ya%):IFp$=""N%!0=1ELSEERROR254,FNmsg_1(A%!12,"OKI",p$)
8435ENDIF
8440IFFNicon_set(Q%,1)THEN
8445p$=FNB(2,ya%):IFp$=""N%!0=2ELSEERROR254,FNmsg_1(A%!12,"OKJ",p$)
8450ENDIF
8455IFFNicon_set(Q%,2)N%!0=4
8460IFFNicon_set(Q%,3)N%!0=6
8465IFFNicon_set(Q%,4)N%!0=5
8470IFFNicon_set(Q%,33)N%!0=8
8475s$=FNicon_read(Q%,15):FORi%=0TO18:IFFNmsg_0(A%!12,"BR"+STR$i%)=s$THEN
8480N%?4=i%:i%=18
8485ENDIF
8490NEXT:i%=FNuORFNU<<2:IFFNp i%=i%ORFNp-1<<4OR8
8495N%!8=i%:IFFNicon_set(Q%,13)THEN
8500N%?5=1
8505ELSE:N%?5=0
8510ENDIF
8515IFFNicon_set(Q%,35)THEN
8520N%?6=N%?6OR2
8525ELSE:N%?6=N%?6ANDNOT2
8530ENDIF
8535PROCC(N%,12,25):PROCC(N%,20,26):PROCC(N%,24,27):PROCC(N%,28,28):PROCC(N%,32,29):PROCC(N%,16,30):PROCib(ya%):PROCf(-1,ya%,0):IFNOTya%!20THEN
8540IFya%!24AND2THEN
8545PROCselect_printer(ya%,-1,0)
8550ENDIF
8555PROCi(ya%)
8560ENDIF
8565ENDPROC
8570DEFPROCi(z%):LOCALra$,i%,x$,sa$,xd%,H%:IFz%!20=-1ENDPROC
8575H%=z%!4:ra$=FNV(z%):IFz%!44x$=$z%!44ELSEx$=$H%!4
8580sa$="ss_"+x$+","+x$:!O%=-1:O%!4=z%!20:SYS262350,,O%:xd%=O%!24AND1<<21:IFra$<>$O%!28ORsa$<>$O%!32THEN
8585i%=FNr(ra$,x$,-4,z%!20):PROCD(-1,z%!20):z%!20=i%:IFxd%PROCicon_select(-1,i%)
8590ENDIF
8595ENDPROC
8600DEFFNV(z%):LOCALN%,K%:IFz%!24AND4THEN=FNmsg_0(A%!12,"QU1")
8605IFz%!24AND8THEN
8610K%=z%!32:IFK%?11AND1THEN=FNmsg_0(A%!12,"QU1")ELSE=FNmsg_0(A%!12,"QU2")
8615ENDIF
8620IFz%!24AND32THEN=FNmsg_0(A%!12,"QU3")
8625IFz%!40THEN=$z%!40
8630N%=z%!12:CASEN%!0OF
8635WHEN0,1,2,5:=FNmsg_0(A%!12,"IC"+STR$N%!0)
8640WHEN4:=$N%!12
8645WHEN6:=$N%!24
8650ENDCASE
8655=""
8660DEFPROCAb:LOCALWa%,ld%,tc%,i%,s$,mc%:B%=1414744396:C%=2048:tc%=USR(P%+12):IFtc%=0ERROR253,FNmsg_1(A%!12,"FA5","LIST")
8665SYS393735,1,tc%,2048,500TOWa%;i%:IFi%AND1i%=Wa%+4:CALLZ%,i%,s$:ERROR254,s$
8670PROCmenu_create(_%,FNmsg_0(A%!12,"ME6")):mc%=(_%!28AND256)<>0:ld%=tc%:i%=0:WHILEi%<Wa%:CALLZ%,ld%,s$:ld%+=LENs$+1:PROCmenu_item(_%,i%,s$,mc%):i%+=1:ENDWHILE:B%=1414744396:C%=tc%:CALLP%+16:ENDPROC
8675DEFPROCIb:LOCALz%,N%,nb%,gb%:LOCALR%,yd%,zd%,ib%,Ad%:REPEAT:PROCTb(z%,nb%):IFz%THEN
8680PROCicon_deselect(Bb%,nb%):IF(z%!24AND1)=0PROCZ(z%)
8685IF(z%!24AND(1<<16))THEN
8690PROCgb (z%)
8695ENDIF
8700ENDIF
8705UNTILz%=0:zd%=0:SYS263872:REPEAT:PROCUb (R%,nb%):IFR%THEN
8710IFR%!20<=0THEN
8715PROCicon_deselect(Bb%,nb%):ib%=FND (R%!4,R%!8,R%!12):PROCK (zd%,ib%)
8720ENDIF
8725ENDIF
8730UNTILR%=0:ib%=zd%:WHILEib%:yd%=FNx(ib%,0,0,0,gb%):PROCTa (Ha%,$ib%!4):Ad%=ib%:ib%=ib%!0:PROCd (1380799568,Ad%):ENDWHILE:SYS263873:ENDPROC
8735DEFPROCZ(z%):z%!24=z%!24OR1:N%=z%!12:PROCUa(z%):PROCA(z%):IFA%!44=1THEN
8740PROCselect_printer(z%,-1,0)
8745ENDIF
8750ENDPROC
8755DEFPROCUa(z%):LOCALs$,i%,mb%,H%:H%=z%!4:IFz%!44THEN
8760s$=$z%!44
8765ELSE:s$=$H%!4
8770ENDIF
8775i%=FNka(z%):mb%=-4:IFi%=-1THEN
8780i%=FNW(z%):mb%=-3
8785ENDIF
8790IFi%=-1THEN
8795i%=251658240:mb%=-5
8800ENDIF
8805z%!20=FNr(FNV(z%),s$,mb%,i%):IFsb%THEN
8810PROCD(-1,rb%):sb%=0
8815ENDIF
8820A%!44+=1:ENDPROC
8825DEFFNka(z%):LOCALnb%,Bd%:IFsb%THEN
8830nb%=rb%
8835ELSE:nb%=-1:Bd%=A%!48:WHILEBd%:IFNOTBd%!20nb%=Bd%!20
8840IFBd%=z%Bd%=0ELSEBd%=Bd%!0
8845ENDWHILE
8850ENDIF
8855=nb%
8860DEFFNW(z%):WHILEz%!20=-1:z%=z%!0:IFz%=0THEN=-1
8865ENDWHILE:=z%!20
8870DEFPROCVb:rb%=FNr(FNmsg_0(A%!12,"NNE"),"s"+FNmsg_0(A%!12,"IC"),-5,251658240):sb%=-1:!q%=A%!40:PROCe:ENDPROC
8875DEFPROCJb:LOCALz%,nb%,Cd%,c$,Ad%:LOCALR%,Cd%,zd%,ib%,z%:zd%=0:REPEAT:PROCt(z%,R%,nb%):PROCicon_deselect(Bb%,nb%):IFz%THEN
8880IFz%!24AND(1<<17)THEN
8885ib%=FND (0,0,z%):PROCK (zd%,ib%)
8890ELSE:PROCWb(z%)
8895ENDIF
8900ENDIF
8905IFR%ANDR%!20>0THEN
8910PROCXb ($R%!4):IFFNJ=0ANDA%!44=0THEN
8915PROCVb
8920ENDIF
8925ENDIF
8930UNTILz%=0ANDR%=0:ib%=zd%:WHILEib%:z%=ib%!12:c$=$z%!40:PROCZb (z%):PROC_b (c$):Ad%=ib%:ib%=ib%!0:PROCd (1380799568,Ad%):ENDWHILE:PROCk:IFV%=0THEN
8935IFA%!44THEN
8940Cd%=A%!48:WHILECd%:IFNOTCd%!20THEN
8945PROCselect_printer(Cd%,-1,0):Cd%=0
8950ELSE:Cd%=Cd%!0
8955ENDIF
8960ENDWHILE
8965ENDIF
8970ENDIF
8975ENDPROC
8980DEFPROCWb(z%):LOCALDd%:IFz%!24AND(1<<16)THEN
8985PROCgb (z%)
8990ENDIF
8995IFz%!24AND(1<<17)THEN
9000Dd%=-1
9005ENDIF
9010IFz%!24AND1THEN
9015IFz%!24AND(1<<17)THEN
9020Cd%=-1
9025ELSE:IFz%!32THEN
9030Cd%=FNX("WA2",$z%!8)
9035ELSE:Cd%=-1
9040ENDIF
9045ENDIF
9050IFCd%THEN
9055PROCc(z%!4,z%,-10,0):IFNOTz%!20THEN
9060IFA%!44=1ANDFNJ=0THEN
9065PROCVb
9070ENDIF
9075IFA%!44=1ANDFNJ>0THEN
9080!q%=A%!40:PROCe
9085ENDIF
9090PROCD(-1,z%!20):z%!20=-1:A%!44-=1
9095ENDIF
9100z%!24=z%!24ANDNOT63+65536:IFV%=z%SYS524632,-1:V%=0
9105PROCA(z%)
9110ENDIF
9115ENDIF
9120ENDPROC
9125DEFPROCKb:LOCALi%,z%,M%,Fd%,Gd%,Cd%,y$:B%=1482184792:C%=256:Gd%=USR(P%+12):IFGd%=0ERROR253,FNmsg_1(A%!12,"FA5","XXXX")
9130SYS262358,Bb%,Gd%,1<<21,1<<21:M%=Gd%:SYS263872:WHILENOT!M%:i%=!M%:z%=A%!48:Fd%=0:WHILEz%:IF((z%!24AND(1<<17))=0)ANDz%!28=i%THEN
9135IFz%!32THEN
9140SYS263873:Cd%=FNX("WA3",$z%!8):SYS263872:IFCd%PROCA(z%)
9145ELSE:Cd%=-1
9150ENDIF
9155IFCd%THEN
9160y$=$z%!8:PROC`b(z%,Fd%):PROCLb(y$)
9165ENDIF
9170z%=0
9175ELSE:Fd%=z%:z%=z%!0
9180ENDIF
9185ENDWHILE:M%+=4:ENDWHILE:IFV%=0THEN
9190IFA%!44THEN
9195Cd%=A%!48:WHILECd%:IFNOTCd%!20THEN
9200PROCselect_printer(Cd%,-1,0):Cd%=0
9205ELSE:Cd%=Cd%!0
9210ENDIF
9215ENDWHILE
9220ENDIF
9225ENDIF
9230IFV%=0PROCz
9235B%=1482184792:C%=Gd%:CALLP%+16:PROCk:PROCq(Bb%):SYS263873:ENDPROC
9240DEFPROC`b(z%,Fd%):LOCALj%,i%,Oa%,H%,S%:H%=z%!4:S%=H%!12:S%=S%!4:PROCc(H%,z%,-9,0):PROCWb(z%):WHILES%:IF$S%!8=$z%!8THEN
9245S%!(S%!4*4+8)-=1:S%=0
9250ELSE:S%=S%!0
9255ENDIF
9260ENDWHILE:IFya%=z%THEN
9265!q%=Q%:PROCe
9270ENDIF
9275i%=H%!20:WHILEi%:IFi%!12=z%THEN
9280!q%=i%!4:PROCe
9285ENDIF
9290i%=i%!0:ENDWHILE:IFz%!48PROCVa(z%!48)
9295IFV%=z%V%=0
9300PROCfree_structure(z%!8):j%=z%!12:IF(H%!24AND4)THEN
9305Oa%=H%!48:IF1<=Oa%THEN
9310FORi%=1TOOa%:PROCfree_structure(!j%):j%+=4:NEXT
9315ENDIF
9320ELSE:PROCfree_structure(j%!12):PROCfree_structure(j%!16):PROCfree_structure(j%!20):PROCfree_structure(j%!24):PROCfree_structure(j%!28):PROCfree_structure(j%!32)
9325ENDIF
9330B%=1413697091:C%=j%:CALLP%+16:j%=z%!16:IFj%THEN
9335Oa%=H%!36:IF0<=Oa%-1THEN
9340FORi%=0TOOa%-1:PROCfree_structure(j%!(i%*4)):NEXT
9345ENDIF
9350ENDIF
9355B%=1195789891:C%=j%:CALLP%+16:!q%=Bb%: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%
9360CALLP%+16:IFFd%THEN
9365Fd%!0=j%
9370ELSE:A%!48=j%
9375ENDIF
9380ENDPROC
9385DEFFNX(na$,ta$):LOCALx%,y%,w%,h%:PROCicon_write(Ab%,0,FNmsg_1(A%!12,na$,ta$)):PROCicon_write(Ab%,3,FNmsg_0(A%!12,na$+"a")):SYS262351,,q%:x%=!q%:y%=q%!4:!q%=Ab%: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%
9390q%!16=q%!8+h%:q%!28=-1:SYS262341,,q%:PROCac(Ab%):pa%=0:REPEAT:PROCv(la%):UNTILpa%:!q%=Ab%:PROCe:PROCbc:=(pa%=3)
9395DEFPROCac(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
9400DEFPROCbc:LOCALHd%,Id%,Jd%,Kd%,Ld%,Md%:SYS53,-1,4TO,,Id%:Id%=1<<Id%:SYS53,-1,5TO,,Kd%:Kd%=1<<Kd%:SYS53,-1,11TO,,Hd%:Hd%+=1:SYS53,-1,12TO,,Jd%:Jd%+=1:Ld%=Hd%*Id%:Md%=Jd%*Kd%:?q%=1:q%!1=0:q%!3=0:q%!5=Ld%:q%!7=Md%:SYS7,21,q%:ENDPROC
9405DEFPROCk:LOCALz%,M%,i%:LOCALR%:!O%=Bb%:IFsa%THEN
9410FORi%=0TOsa%-1:O%!4=i%+4:SYS262340,,O%:NEXT
9415ENDIF
9420IFJa%THEN
9425FORi%=sa%TOsa%+Ja%:O%!4=i%+4:SYS262340,,O%:NEXT
9430ENDIF
9435sa%=0:Ja%=0:!O%=Bb%: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%:sa%+=1:O%!16=O%!8:O%!8-=(a%(4)!12-a%(4)!4):z%!28=i%:z%=z%!0:ENDWHILE:R%=Ha%:WHILER%
9440SYS262338,,O%TOi%:Ja%+=1:O%!16=O%!8:O%!8-=(a%(4)!12-a%(4)!4):R%!16=i%:R%=R%!0:ENDWHILE:SYS262348,,O%OR1:O%!0=0:O%!4=-(sa%+Ja%+1)*(a%(4)!12-a%(4)!4):O%!8=O%!52-O%!44:O%!12=0:SYS262359,Bb%,O%
9445O%!4=-(sa%+Ja%+2)*(a%(4)!12-a%(4)!4):SYS262353,Bb%,O%!0,O%!4,O%!8,O%!12:IFFNh (Bb%)THEN
9450PROCq(Bb%)
9455ENDIF
9460ENDPROC
9465DEFFNy:LOCALi%:SYS131129,,"NFS_Mount"TO;i%:=((i%AND1)=0)
9470DEFFNs:LOCALi%:SYS131129,,"NetPrint_ReadPSName"TO;i%:=((i%AND1)=0)
9475DEFFNc(s$):LOCALt%,n%,f%:SYS131117,s$,aa%,256TO,t%,n%;f%:IFt%OR(f%AND1)ERROR253,FNmsg_1(A%!12,"FAD",s$)
9480=n%
9485DEFPROCw(z%,Nd%,Od%):LOCALp%:p%=ra%:WHILEp%:PROCc(p%,z%,Nd%,Od%):p%=p%!0:ENDWHILE:ENDPROC
9490DEFPROCc(H%,z%,Nd%,Pd%):LOCALi%:LOCALERROR:ONERRORLOCAL:RESTOREERROR:PROCcc(H%,z%,Nd%):ENDPROC
9495O%!0=Nd%:O%!4=H%:O%!8=z%:O%!12=Pd%:O%!16=ia%:O%!20=P%:O%!24=A%:IFH%!24AND1THEN
9500i%=EVAL("FN"+$H%!4+"_support("+STR$O%+")")
9505ELSE:IF0<=Va%-1THEN
9510FORi%=0TOVa%-1:IF$H%!4=b$(i%)THEN
9515B%=O%:CALLb%(i%)
9520ENDIF
9525NEXT
9530ENDIF
9535ENDIF
9540ENDPROC
9545DEFPROCcc(H%,z%,Nd%):IF(z%!24AND8)ERROR254,REPORT$
9550IFERR=253ERROR253,REPORT$
9555PROCb(FNv(A%!12,"WA6",$H%!4,STR$Nd%,REPORT$,STR$ERL)):ENDPROC
9560DEFPROCdc(z%):z%!24=z%!24OR4:PROCi(z%):PROCf(-1,z%,0):ENDPROC
9565DEFPROCnb(z%,c$):LOCALIb%,Qd%,i%:IFc$="configure"THEN
9570IFz%!24AND8ERROR254,FNmsg_0(A%!12,"OKAI")
9575ENDIF
9580Ib%=FNprinter_find_window(z%,c$):PROCs(Ib%):PROCq(Ib%):!O%=Ib%:SYS262348,,O%OR1:Qd%=O%!88:FORi%=0TOQd%:!O%=Ib%:O%!4=i%:SYS262350,,O%:IF(O%!24AND(1<<23))=0THEN
9585IF(O%!24AND(15<<12))=(15<<12)THEN
9590IF(z%!24AND(1<<16))OR(z%!24AND(1<<17))THEN
9595PROCicon_shade (Ib%,i%):PROCcaret_set (-1,-1)
9600ELSE:PROCicon_unshade (Ib%,i%):PROCcaret_set(Ib%,i%)
9605ENDIF
9610ENDPROC
9615ENDIF
9620ENDIF
9625NEXT:ENDPROC
9630DEFFNprinter_find_window(z%,c$):LOCALH%:H%=z%!4:i%=H%!20:WHILEi%:IF$(i%+16)=c$THEN
9635i%!8=H%:i%!12=z%:=i%!4
9640ENDIF
9645i%=i%!0:ENDWHILE:ERROR253,FNmsg_1(A%!12,"FAE",c$):=0
9650DEFPROCG(Ib%,RETURNKb%,RETURNH%,RETURNz%):H%=ra%:WHILEH%:Kb%=H%!20:WHILEKb%:IFKb%!4=Ib%THEN
9655z%=Kb%!12:ENDPROC
9660ENDIF
9665Kb%=Kb%!0:ENDWHILE:H%=H%!0:ENDWHILE:Kb%=0:H%=0:z%=0:ENDPROC
9670DEFFNprinter_find_prdata_entry(H%,c$):LOCALS%:IFH%=0THEN=0
9675S%=H%!12:IFS%=0THEN=0
9680S%=S%!4:IFS%=0THEN=0
9685WHILE$S%!8<>c$:S%=S%!0:IFS%=0THEN=0
9690ENDWHILE:=S%
9695DEFFNZ(M%):IFM%=0THEN=0
9700IFM%!-4<>1196707401ANDM%!-4<>1381257040THEN
9705ERROR253,FNmsg_0(A%!12,"FA6")
9710ENDIF
9715=!M%
9720DEFFNprinter_read_string(M%):LOCALi%,s$:IFM%=0THEN=""
9725CASEM%!-4OF
9730WHEN1196577875:=$M%
9735WHEN810701907:CALLZ%,M%,s$:=s$
9740WHEN1381258055:CALLY%,M%,s$:=s$
9745ENDCASE
9750ERROR253,FNmsg_0(A%!12,"FA7"):=""
9755DEFFNprinter_read_integer_entry(S%,Rd%):IFS%=0THEN=0
9760=FNZ(S%!(4+Rd%*4))
9765DEFFNprinter_read_string_entry(S%,Rd%):IFS%=0THEN=""
9770=FNprinter_read_string(S%!(4+Rd%*4))
9775DEFFNprinter_read_boolean_string_entry(S%,Rd%,Sd%):LOCALM%:IFS%=0=""
9780M%=S%!(4+Rd%*4):IFM%!-4<>1280266050ERROR253,FNmsg_0(A%!12,"FA8")
9785IFSd%THEN
9790=FNprinter_read_string(M%!4)
9795ELSE:=FNprinter_read_string(M%!0)
9800ENDIF
9805DEFFNprinter_read_list_integer_entry(S%,Rd%,tc%,Td%):LOCALM%:IFS%=0THEN=0
9810M%=S%!(4+Rd%*4):IFM%=0=0
9815IFM%!-4<>1146377036ERROR253,FNmsg_0(A%!12,"FA9")
9820WHILEtc%<>1ANDM%:M%=M%!0:tc%-=1:ENDWHILE:IFM%=0=0
9825M%+=8:WHILETd%<>1:M%+=4:Td%-=1:ENDWHILE:=FNZ(!M%)
9830DEFPROCaa(N$,RETURNUd%):LOCALERROR:ONERRORLOCALRESTOREERROR:ERROR0,REPORT$
9835SYS30,6,,,17+LENN$TO,,Ud%:$(Ud%+16)=N$:SYS267521,Ud%,Ud%+16:ENDPROC
9840DEFFNmsg_0(Ud%,T$)=FNv(Ud%,T$,"","","","")
9845DEFFNmsg_1(Ud%,T$,S$)=FNv(Ud%,T$,S$,"","","")
9850DEFFNmsg_2(Ud%,T$,ua$,va$)=FNv(Ud%,T$,ua$,va$,"","")
9855DEFFNQ(Ud%,T$,ua$,va$,wa$)=FNv(Ud%,T$,ua$,va$,wa$,"")
9860DEFFNv(Ud%,T$,ua$,va$,wa$,xa$):LOCALF%,L%:SYS398594,Ud%,T$,ba%,256,ua$,va$,wa$,xa$TO,,,L%;F%:IFF%AND1THEN=T$
9865ba%?L%=13:=$ba%
9870DEFPROC_(Ud%):IFUd%THEN
9875SYS267524,Ud%:SYS131102,7,,Ud%
9880ENDIF
9885ENDPROC
9890DEFPROCca(n$):ya$=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
9895SYS262336,300,1263747412,n$,q%TOVd%,Ob%:ENDPROC
9900DEFPROChb:SYS262365:END
9905DEFFNaa(ca%):LOCALWd%,Xd%,z%,t%:IFK$<>""ca%=ca%OR1
9910IF(ca%AND1)=0ORea%=-1ORca%<>A%!20THEN
9915SYS262343,ca%,q%,,Ia%TOWd%
9920ELSE:IFea%=0ORK$<>""THEN
9925SYS262343,ca%ANDNOT1,q%,,Ia%TOWd%
9930ELSE:SYS262369,ca%ANDNOT1,q%,ja%+ea%,Ia%TOWd%
9935ENDIF
9940ENDIF
9945SYS66TOXd%:Zd%=Xd%-ja%:ja%=Xd%:z%=A%!48:WHILEz%:t%=z%+56:IFNOT!t%THEN
9950IFZd%<!t% !t%-=Zd%ELSE!t%=0
9955ENDIF
9960z%=z%!0:ENDWHILE:=Wd%
9965DEFPROCna:LOCALz%,H%,t%:IFK$<>""THEN
9970SYS131080,6,K$:K$=""
9975ENDIF
9980z%=A%!48:WHILEz%:t%=z%+56:IF!t%=0THEN
9985H%=z%!4:PROCc(H%,z%,0,0):!t%=10*H%?(24+1)
9990ENDIF
9995z%=z%!0:ENDWHILE:ENDPROC
10000DEFFNtask_read_env(n$,_d%):LOCALTc%,hb%:SYS131107,n$,_d%,256,,3TO,,Tc%;hb%:IFhb%AND1Tc%=0
10005_d%?Tc%=13:=$_d%
10010DEFFNla(a$,b$):LOCAL`d%:SYS274525,-1,a$,b$,3TO`d%:=`d%
10015DEFFNtask_lower(s$):LOCALl$,ae%,i%:SYS274519,-1TOae%:l$="":IF1<=LENs$THEN
10020FORi%=1TOLENs$:l$+=CHR$ae%?ASCMID$(s$,i%,i%):NEXT
10025ENDIF
10030=l$
10035DEFFNtask_upper(s$):LOCALu$,ae%,i%:SYS274520,-1TOae%:u$="":IF1<=LENs$THEN
10040FORi%=1TOLENs$:u$+=CHR$ae%?ASCMID$(s$,i%,i%):NEXT
10045ENDIF
10050=u$
10055DEFPROCda:DIMbe%256:ENDPROC
10060DEFPROCla:LOCALr$,r%:r$=REPORT$:r%=INSTR(r$,"in "+CHR$34+"!"):IFr%r$=LEFT$(r$,r%-1)
10065CASEERROF
10070WHEN254:PROCj(r$,1)
10075WHEN253:PROCj(r$,2)
10080OTHERWISE:PROCj("Unexpected error: "+r$+" (error number &"+STR$~ERR+") at line "+STR$ERL,3)
10085ENDCASE
10090ENDPROC
10095DEFPROCj(r$,ce%):LOCALr%:SYS262356,,-1:!be%=ERR:$(be%+4)=r$+CHR$0:SYS262367,be%,ce%,ya$TO,r%:IFr%=2THEN
10100ONERROROFF
10105Nb%=2:PROCH:PROCx
10110ENDIF
10115ENDPROC
10120DEFPROCb(r$):!be%=1:$(be%+4)=r$+CHR$0:SYS262367,be%,1OR1<<4,FNmsg_1(A%!12,"ER2",ya$):ENDPROC
10125DEFPROCea:de%=0:ENDPROC
10130DEFFNr(za$,x$,mb%,ee%):LOCALt%,s%,i%,v$,w%:IFx$="s"+FNmsg_0(A%!12,"IC")THEN
10135v$="s"+x$:SYS262377,40,,x$TO,,,w%
10140ELSE:SYS393449,40,,x$TO,,,w%;i%:IFi%AND1THEN
10145SYS262377,40,,"s"+FNmsg_0(A%!12,"IC")TO,,,w%:IFLEFT$(x$,3)="su_"THEN
10150v$="ssu"+FNmsg_0(A%!12,"IC")
10155ELSE:v$="ss"+FNmsg_0(A%!12,"IC")+","+FNmsg_0(A%!12,"IC")
10160ENDIF
10165ELSE:IFLEFT$(x$,3)="su_"THEN
10170v$="s"+x$
10175ELSE:v$="ss_"+x$+","+x$
10180ENDIF
10185ENDIF
10190ENDIF
10195B%=1179009609:C%=LENza$+1:t%=USR(P%+12):IFt%=0ERROR253,FNmsg_1(A%!12,"FA5","IBFF")
10200$t%=za$:B%=1179009609:C%=LENv$+1:s%=USR(P%+12):IFs%=0ERROR253,FNmsg_1(A%!12,"FA5","IBFF")
10205$s%=v$:SYS53,-1,4TO,,i%:IF(w%<<i%)<LENza$*16w%=LENza$*16ELSEw%=w%<<i%
10210X%!0=mb%:X%!4=0:X%!8=-16:X%!12=w%:X%!16=88:X%!20=385888523:X%!24=t%:X%!28=s%:X%!32=LENza$+1:SYS262338,ee%,X%TOi%:=i%
10215DEFPROCD(a%,b%):!X%=a%:X%!4=b%:SYS262350,,X%:SYS262340,,X%:IFX%!24AND1<<8THEN
10220IFX%!24AND3THEN
10225B%=1179009609:C%=X%!28:CALLP%+16:IFX%!24AND1THEN
10230IFNOTX%!32THEN
10235B%=1179009609:C%=X%!32:CALLP%+16
10240ENDIF
10245ENDIF
10250ENDIF
10255ENDIF
10260ENDPROC
10265DEFPROCicon_write(a%,b%,s$):LOCALh%,i%,n%:PROCcaret_info(h%,i%,n%):!X%=a%:X%!4=b%:SYS262350,,X%:IFLENs$+1>X%!36THEN
10270ERROR253,FNmsg_2(A%!12,"FAH",s$,STR$b%)
10275ENDIF
10280$X%!28=s$:X%!8=0:X%!12=0:SYS262349,,X%:IFh%=a%ANDi%=b%PROCcaret_set(a%,b%)
10285ENDPROC
10290DEFPROCicon_validation(a%,b%,s$):!X%=a%:X%!4=b%:SYS262350,,X%:$X%!32=s$:X%!8=0:X%!12=0:SYS262349,,X%:ENDPROC
10295DEFFNicon_read(a%,b%):!X%=a%:X%!4=b%:SYS262350,,X%:=$X%!28
10300DEFPROCicon_unshade(a%,b%):!X%=a%:X%!4=b%:X%!8=0:X%!12=1<<22:SYS262349,,X%:ENDPROC
10305DEFPROCicon_shade(a%,b%):!X%=a%:X%!4=b%:X%!8=1<<22:X%!12=1<<22:SYS262349,,X%:ENDPROC
10310DEFPROCicon_deselect(a%,b%):!X%=a%:X%!4=b%:X%!8=0:X%!12=1<<21:SYS262349,,X%:IFa%=Bb%ta%=0
10315ENDPROC
10320DEFPROCicon_select(a%,b%):!X%=a%:X%!4=b%:X%!8=1<<21:X%!12=1<<21:SYS262349,,X%:IFa%=Bb%ta%=0
10325ENDPROC
10330DEFFNicon_set(a%,b%):!X%=a%:X%!4=b%:SYS262350,,X%:=(X%!24AND1<<21)<>0
10335DEFPROCicon_info(a%,b%,RETURNfe%,RETURNge%,RETURNhe%,RETURNie%):!X%=a%:X%!4=b%:SYS262350,,X%:fe%=X%!8:ge%=X%!12:he%=X%!16:ie%=X%!20:ENDPROC
10340DEFPROCcaret_set(h%,i%):LOCALj%:j%=LENFNicon_read(h%,i%):SYS262354,h%,i%,-1,-1,,j%:SYS262354,h%,i%,-1,-1,-1,j%:ENDPROC
10345DEFPROCcaret_info(RETURNh%,RETURNi%,RETURNn%):SYS262355,,X%:h%=!X%:i%=X%!4:n%=X%!20:ENDPROC
10350DEFPROCfa:Z$="":ENDPROC
10355DEFPROCFa(Aa$,Ba$):LOCALa$,a%:SYS6,161,140TO,,a%:IF(a%AND1)=1THEN
10360SYS8,17,Ba$TOa%:IFa%=1Z$=Ba$ELSEZ$=Aa$
10365ELSE:Z$=Aa$
10370ENDIF
10375SYS262361,,Z$:ENDPROC
10380DEFPROCHa:SYS262362:ENDPROC
10385DEFPROCl(f$,n$,je%,RETURNIb%):LOCAL_d%:PROCec(f$,n$,_d%):_d%!64=je%:PROCfc(_d%,Ib%):B%=1145981271:C%=_d%:CALLP%+16:ENDPROC
10390DEFPROCec(f$,n$,RETURNfc%):LOCALke%,Oa%,le%,jb%,s%,f%,s$:PROCgc(f$,n$,Oa%,le%):B%=1145981271:C%=Oa%+le%:fc%=USR(P%+12):IFfc%=0ERROR253,FNmsg_1(A%!12,"FA5","WIND")
10395IFf$<>""SYS262361,,f$
10400IFle%THEN
10405B%=1179014466:C%=le%:ke%=USR(P%+12):IFke%=0ERROR253,FNmsg_1(A%!12,"FA5","BUFF")
10410SYS393435,,fc%,ke%,ke%+le%,-1,n$TOs%,,,,,,jb%;f%
10415ELSE:SYS393435,,fc%,,,-1,n$TOs%,,,,,,jb%;f%
10420ENDIF
10425IFf$<>""SYS262362
10430IFf%AND1f%=s%+4:CALLZ%,f%,s$:ERROR254,n$+": "+s$
10435IFjb%=0ERROR254,FNmsg_1(A%!12,"OKAK",n$)
10440ENDPROC
10445DEFPROCfc(fc%,RETURNIb%):SYS262337,,fc%TOIb%:ENDPROC
10450DEFPROCq(a%):!W%=a%:SYS262347,,W%:W%!28=-1:SYS262341,,W%:ENDPROC
10455DEFPROCXa(a%,s$):LOCALme%,ne%,oe%,pe%:!W%=a%:SYS262348,,W%OR1:$W%!76=s$:IFW%!32AND1<<16THEN
10460ne%=W%!16:SYS262368,,W%:me%=W%!4:oe%=W%!12:pe%=W%!16:SYS262353,-1,me%,ne%,oe%,pe%
10465ENDIF
10470ENDPROC
10475DEFPROCGa(P$,RETURNM%,RETURNc$):LOCALf%,Wa%,Rb%:IFf$=""ANDVd%>=300THEN
10480SYS262363,,,,,-1,"*"+STRING$(12,CHR$0),M%TO,,,,,c$,M%
10485ELSE:IFP$=""P$=Z$
10490f%=OPENINP$:IFM%=0M%=16
10495REPEAT:PTR#f%=M%:Wa%=FNi(f%):IFWa%THEN
10500PTR#f%=M%+8:Rb%=FNi(f%):c$=FNK(f%):M%+=24:IFRb%=1Wa%=0
10505ELSE:M%=0
10510ENDIF
10515UNTILWa%=0:SYS131085,,f%
10520ENDIF
10525ENDPROC
10530DEFPROCgc(f$,n$,RETURNOa%,RETURNle%):LOCALi%,qe%,M%,Wa%,Rb%,Ca$,Qd%:IFf$=""ANDVd%>=300THEN
10535SYS262363,,,,,-1,n$TO,Oa%,le%
10540ELSE:IFf$=""f$=Z$
10545qe%=OPENINf$:Oa%=0:le%=0:M%=16:REPEAT:PTR#qe%=M%:Wa%=FNi(qe%):IFWa%THEN
10550PTR#qe%=M%+8:Rb%=FNi(qe%):Ca$=FNK(qe%):M%+=24:IFRb%=1THEN
10555IFCa$=n$THEN
10560PTR#qe%=Wa%+84:Qd%=FNi(qe%):le%=FNma(qe%,Wa%):IFQd%le%+=FNna(qe%,Qd%,Wa%)
10565Oa%=88+(Qd%*32):Wa%=0
10570ENDIF
10575ENDIF
10580ENDIF
10585UNTILWa%=0:SYS131085,,qe%
10590ENDIF
10595ENDPROC
10600DEFFNi(h%):=BGET#h%ORBGET#h%<<8ORBGET#h%<<16ORBGET#h%<<24
10605DEFFNK(h%):LOCALs$,c%:REPEAT:c%=BGET#h%:IFc%>31s$+=CHR$c%
10610UNTILc%<32:=s$
10615DEFFNma(qe%,Wa%):LOCALv%:PTR#qe%=Wa%+28:v%=FNi(qe%):IFv%AND1<<31THEN
10620IFv%AND1<<26THEN=FNL(qe%,Wa%+56,Wa%+72,Wa%)
10625ELSE:IFv%AND1THEN=FNL(qe%,Wa%+56,Wa%+72,Wa%)
10630ENDIF
10635=0
10640DEFFNna(qe%,Uc%,Wa%):LOCALi%,j%:j%=0:IF0<=Uc%-1THEN
10645FORi%=0TOUc%-1:j%+=FNL(qe%,Wa%+88+i%*32+16,Wa%+88+i%*32+20,Wa%):NEXT
10650ENDIF
10655=j%
10660DEFFNL(qe%,re%,se%,Wa%):LOCALv%,te%,Oa%,i%:PTR#qe%=re%:v%=FNi(qe%):i%=v%AND256:te%=(v%AND3)+(i%>>6):CASEte%OF
10665WHEN0,1,2,3,4:Oa%=0
10670WHEN5,7:PTR#qe%=se%+4:v%=FNi(qe%):IFv%=-1THEN
10675Oa%=0
10680ELSE:PTR#qe%=Wa%+v%:Oa%=LENFNK(qe%)+1
10685ENDIF
10690PTR#qe%=se%+8:Oa%+=FNi(qe%)
10695WHEN6:PTR#qe%=se%+8:Oa%=FNi(qe%)
10700ENDCASE
10705=Oa%
10710DEFPROCia:LOCALf%:SYS131129,,"DragASprite_Start"TOue%;f%:IFf%AND1ue%=-1
10715SYS131129,,"DragASprite_Stop"TOve%;f%:IFf%AND1ve%=-1
10720SYS6,161,28TO,,f%:IF(f%AND2)=0THEN
10725ue%=-1:ve%=-1
10730ENDIF
10735B%=1163280723:C%=256:we%=USR(P%+12):IFwe%=0ERROR253,FNmsg_1(A%!12,"FA5","SAVE")
10740da%=0:ENDPROC
10745DEFPROCyb(xe%,Da$):LOCALb$:b$=STR$~xe%:b$=RIGHT$("000"+b$,3):ye%=xe%:PROCicon_validation(wb%,0,"sfile_"+b$):PROCicon_write(wb%,1,Da$):ENDPROC
10750DEFPROClb(ze%,Ae%):LOCALBe%,Ce%,De%,Fe%,Ge%,He%,Ld%,Md%,f$,Hd%,Id%,Jd%,Kd%:!we%=wb%:SYS262347,,we%:Be%=we%!4-we%!20:Ce%=we%!16-we%!24:PROCicon_info(wb%,0,De%,Ge%,Fe%,He%):SYS53,-1,4TO,,Id%:Id%=1<<Id%:SYS53,-1,5TO,,Kd%:Kd%=1<<Kd%
10755SYS53,-1,11TO,,Hd%:Hd%+=1:SYS53,-1,12TO,,Jd%:Jd%+=1:Ld%=Hd%*Id%:Md%=Jd%*Kd%:!we%=wb%:we%!4=5:we%!8=Be%+De%:we%!12=Ce%+Ge%:we%!16=Be%+Fe%:we%!20=Ce%+He%:we%!24=we%!8-ze%:we%!28=we%!12-Ae%:we%!32=Ld%+we%!16-ze%
10760we%!36=Md%+we%!20-Ae%:IFNOTue%THEN
10765f$="file_"+RIGHT$("000"+STR$~ye%,3):SYSue%,197,1,f$,we%+8,we%+24
10770ELSE:SYS262352,,we%
10775ENDIF
10780da%=-1:ENDPROC
10785DEFPROCqa:LOCALh%,i%,Ie%,Je%,Ke%:da%=0:IFNOTve%SYSve%
10790SYS262351,,we%:Ie%=!we%:Je%=we%!4:h%=we%!12:i%=we%!16:IFh%=wb%ENDPROC
10795PROChc(h%,i%,Ie%,Je%):ENDPROC
10800DEFPROChc(h%,i%,Ie%,Je%):LOCALFa$:Fa$=FNoa:!we%=48+LENFa$ANDNOT3:we%!12=0:we%!16=1:we%!20=h%:we%!24=i%:we%!28=Ie%:we%!32=Je%:we%!36=0:we%!40=ye%:$(we%+44)=Fa$+CHR$0:SYS262375,17,we%,h%,i%:ENDPROC
10805DEFFNoa:LOCALf$,i%:f$=FNicon_read(wb%,1):REPEAT:i%=INSTR(f$,":"):IFi%f$=MID$(f$,i%+1)
10810UNTILi%=0:REPEAT:i%=INSTR(f$,"."):IFi%f$=MID$(f$,i%+1)
10815UNTILi%=0:=f$
10820DEFPROCga:Pb%=0:Le%=0:ENDPROC
10825DEFPROCmenu_create(RETURN_%,I$):LOCALQ$,i%,Ga$,i$,j%,x%,t%:IFPb%THEN
10830PROCic:Pb%=0:Le%=0
10835ENDIF
10840IFLEFT$(I$,1)="#"THEN
10845i%=1:Q$=FNM(I$,",",i%)
10850ELSE:Q$=""
10855ENDIF
10860Ga$=I$:j%=i%:REPEAT:i$=FNM(I$,",",i%):IFi$<>""Le%+=1
10865UNTILi$="":I$=Ga$:i%=j%:B%=1431192909:C%=28+Le%*24:Pb%=USR(P%+12):IFPb%=0ERROR253,FNmsg_1(A%!12,"FA5","MENU")
10870IFLENQ$<=12THEN
10875$Pb%=Q$
10880ELSE:B%=1431192909:C%=LENQ$+2:t%=USR(P%+12):IFt%=0ERROR253,FNmsg_1(A%!12,"FA5","MENU")
10885$t%=Q$+CHR$0:Pb%!0=t%
10890ENDIF
10895Pb%?12=7:Pb%?13=2:Pb%?14=7:Pb%?15=0:Pb%!16=196:Pb%!20=44:Pb%!24=0:x%=LENQ$-3:Pb%!16=(x%*8+6)*2:FORj%=0TOLe%-1:i$=FNM(I$,",",i%):PROCmenu_item(Pb%,j%,i$,LENQ$>12):NEXT:_%=Pb%:ENDPROC
10900DEFPROCic:LOCALi%,p%,mc%:p%=Pb%+28:mc%=p%!0AND256:IF0<=Le%-1THEN
10905FORi%=0TOLe%-1:IFp%!8AND256THEN
10910IF(!p%AND4)=0THEN
10915B%=1431192909:C%=p%!12:CALLP%+16
10920ENDIF
10925ENDIF
10930p%+=24:NEXT
10935ENDIF
10940IFmc%THEN
10945B%=1431192909:C%=Pb%!0:CALLP%+16
10950ENDIF
10955B%=1431192909:C%=Pb%:CALLP%+16:ENDPROC
10960DEFPROCmenu_item(RETURN_%,Me%,i$,mc%):LOCALF%,p%,i%,x%,m%:x%=(_%!16/2-6)/8:IFRIGHT$(i$,1)="#"THEN
10965i$=LEFT$(i$):F%=F%OR2
10970ENDIF
10975IFRIGHT$(i$,1)="@"THEN
10980i$=LEFT$(i$):F%=F%OR8
10985ENDIF
10990IFMe%>=Le%THEN
10995B%=1431192909:C%=Pb%:D%=(Me%-Le%+1)*24:m%=USR(P%+20):IFm%=0ERROR253,FNmsg_1(A%!12,"FA5","MENU")
11000Pb%=m%:p%=Pb%+28+(Le%-1)*24:!p%=!p%ANDNOT128:Le%=Me%+1
11005ENDIF
11010IFMe%=Le%-1F%=F%OR128
11015IFMe%=0ANDmc%F%=F%OR256
11020p%=Pb%+28+Me%*24:p%!0=F%:p%!4=-1:p%!8=117440545:IFLEFT$(i$,1)="$"THEN
11025!p%+=4:i$=STRING$(12," ")
11030ELSE:IFLENi$<12THEN
11035$(p%+12)=i$
11040ELSE:B%=1431192909:C%=LENi$+1:i%=USR(P%+12):IFi%=0ERROR253,FNmsg_1(A%!12,"FA5","MENU")
11045$i%=i$:p%!8=p%!8OR256:p%!12=i%:p%!16=-1:p%!20=LENi$+1
11050ENDIF
11055ENDIF
11060_%=Pb%:IFLENi$>x%THEN
11065x%=LENi$:_%!16=(x%*8+6)*2
11070ENDIF
11075ENDPROC
11080DEFPROCzb(_%,Me%,M%,Ne%):_%+=28+Me%*24:IFNe%THEN!_%=!_%OR1<<4
11085_%!4=M%:ENDPROC
11090DEFFNM(I$,Ha$,RETURNI%):LOCALL%:L%=I%+1:I%=INSTR(I$+Ha$,Ha$,L%):=MID$(I$,L%,I%-L%)
11095DEFPROCa(Oe%,Me%,Pe%):IF((Oe%!(28+8+24*Me%)AND4194304)=4194304)<>Pe%THEN
11100Oe%!(28+8+24*Me%)=Oe%!(28+8+24*Me%)EOR4194304
11105ENDIF
11110ENDPROC
11115DEFFNH(Oe%,Me%):=((Oe%!(28+8+24*Me%)AND4194304)=4194304)
11120DEFPROCmenu_tick_match(Oe%,Ia$):LOCALMe%,Ja$:Me%=Oe%+28:REPEAT:IFMe%!8AND256Ja$=$Me%!12ELSEJa$=$(Me%+12)
11125IFFNla(Ja$,Ia$)=0THEN
11130!Me%=!Me%EOR1:ENDPROC
11135ENDIF
11140IF!Me%AND128ENDPROC
11145Me%+=24:UNTIL0:ENDPROC
11150DEFPROCjc(Oe%,Me%,Qe%):IFQe%Oe%!(28+24*Me%)=Oe%!(28+24*Me%)OR1ELSEOe%!(28+24*Me%)=Oe%!(28+24*Me%)ANDNOT1
11155ENDPROC
11160DEFPROC`a(h%):LOCALx%,y%,Hd%,Id%,Jd%,Kd%:SYS53,-1,4TO,,Id%:Id%=1<<Id%:SYS53,-1,5TO,,Kd%:Kd%=1<<Kd%:SYS53,-1,11TO,,Hd%:Hd%+=1:SYS53,-1,12TO,,Jd%:Jd%+=1:!q%=h%:SYS262347,,q%:x%=Hd%*Id%:y%=Jd%*Kd%:x%=(x%-q%!12+q%!4)DIV2:y%=(y%+q%!16-q%!8)DIV2
11165SYS262356,,h%,x%,y%:ENDPROC
11170DEFPROCBb(a%):LOCALi%:B%=1163547472:C%=56:Ca%=USR(P%+12):IFCa%=0ERROR253,FNmsg_1(A%!12,"FA5","PSZE")
11175IFa%THEN
11180a%=a%!36:IF0<52THEN
11185FORi%=0TO52STEP4:Ca%!i%=a%!i%:NEXT
11190ENDIF
11195ELSE:IF0<=52THEN
11200FORi%=0TO52STEP4:Ca%!i%=0:NEXT
11205ENDIF
11210ENDIF
11215PROCGb:PROCs(zb%):PROCq(zb%):PROCcaret_set(zb%,5):ENDPROC
11220DEFPROCGb:LOCALh%,i%,n%:PROCcaret_info(h%,i%,n%):PROCu(zb%,5,Ca%,4):PROCL(12,36):PROCL(13,32):PROCL(14,40):PROCL(15,44):PROCL(16,48):PROCqb:IFCa%!52=1THEN
11225PROCicon_unshade(zb%,33)
11230ELSE:PROCicon_shade(zb%,33)
11235ENDIF
11240ENDPROC
11245DEFPROCqb:LOCALs$:IFNOTFNicon_set(zb%,23)ANDNOTFNicon_set(zb%,22)THEN
11250PROCicon_select(zb%,23)
11255ENDIF
11260IFFNicon_set(zb%,23)THEN
11265s$=FNmsg_0(A%!12,"mm")
11270ELSE:s$=FNmsg_0(A%!12,"in")
11275ENDIF
11280PROCicon_write(zb%,26,s$):PROCicon_write(zb%,29,s$):PROCicon_write(zb%,27,s$):PROCicon_write(zb%,30,s$):PROCicon_write(zb%,28,s$):PROCicon_write(zb%,31,s$):PROCF(6,8):PROCF(7,12):PROCF(8,20):PROCF(9,16):PROCF(10,24):PROCF(11,28):ENDPROC
11285DEFPROCL(nb%,Wa%):PROCicon_write(zb%,nb%,STR$Ca%!Wa%):ENDPROC
11290DEFPROCF(nb%,Wa%):LOCALv%:v%=Ca%!Wa%:CASEnb%OF
11295WHEN8:v%=Ca%!12-v%
11300WHEN11:v%=Ca%!8-v%
11305ENDCASE
11310PROCicon_write(zb%,nb%,FNpa(v%)):ENDPROC
11315DEFFNpa(v%):LOCAL@%:IFFNicon_set(zb%,23)THEN
11320@%=16908554:=STR$(v%/c)
11325ELSE:@%=16909066:=STR$(v%/d)
11330ENDIF
11335DEFPROCO(f$,Re%):LOCALJ%,`%,vb%,Se%,t$:IFFNk(f$)THEN
11340REPEAT:J%=FNb("pn:"):IFJ%THEN
11345t$=FNqa(`%,$J%):IFt$<>""PROCkc(f$,t$)
11350`%!52=Re%:vb%=ia%:Se%=0:WHILEvb%>0:IF$`%!4=$vb%!4THEN
11355IFvb%!52=0THEN
11360`%!0=vb%!0:PROCfree_structure(vb%!4):B%=1163547472:C%=vb%:CALLP%+16:vb%=-1
11365ELSE:B%=1163547472:C%=`%:CALLP%+16:`%=0:vb%=-1
11370ENDIF
11375ELSE:IF$`%!4<$vb%!4THEN
11380`%!0=vb%:vb%=-1
11385ELSE:Se%=vb%:vb%=vb%!0
11390ENDIF
11395ENDIF
11400ENDWHILE:IF`%THEN
11405IFSe%Se%!0=`%ELSEia%=`%
11410ENDIF
11415ENDIF
11420UNTILJ%=0:PROCm
11425ENDIF
11430ENDPROC
11435DEFPROCkc(f$,t$):PROCS(FNmsg_2(A%!12,"OKO",f$,t$)):ENDPROC
11440DEFFNqa(RETURN`%,c$):LOCALt$:B%=1163547472:C%=56:`%=USR(P%+12):IF`%=0ERROR253,FNmsg_1(A%!12,"FA5","PSZE")
11445`%!0=0:$q%=c$:B%=q%:C%=2:`%!4=USR(P%+28):J%=FNb("pw:"):IFJ%`%!8=VAL$J%ELSE="pw:"
11450J%=FNb("ph:"):IFJ%`%!12=VAL$J%ELSE="ph:"
11455J%=FNb("pb:"):IFJ%`%!16=VAL$J%ELSE="pb:"
11460J%=FNb("pt:"):IFJ%`%!20=VAL$J%ELSE="pt:"
11465J%=FNb("pl:"):IFJ%`%!24=VAL$J%ELSE="pl:"
11470J%=FNb("pr:"):IFJ%`%!28=VAL$J%ELSE="pr:"
11475J%=FNb("tb:"):IFJ%`%!32=VAL$J%ELSE="tb:"
11480J%=FNb("tt:"):IFJ%`%!36=VAL$J%ELSE="tt:"
11485J%=FNb("tl:"):IFJ%`%!40=VAL$J%ELSE="tl:"
11490J%=FNb("tr:"):IFJ%`%!44=VAL$J%ELSE="tr:"
11495J%=FNb("th:"):IFJ%`%!48=VAL$J%ELSE="th:"
11500=""
11505DEFPROClc(c%,M%):BPUT#c%,"pn: "+$M%!4:BPUT#c%,"pw: "+STR$M%!8:BPUT#c%,"ph: "+STR$M%!12:BPUT#c%,"pb: "+STR$M%!16:BPUT#c%,"pt: "+STR$M%!20:BPUT#c%,"pl: "+STR$M%!24:BPUT#c%,"pr: "+STR$M%!28:BPUT#c%,"tb: "+STR$M%!32:BPUT#c%,"tt: "+STR$M%!36:BPUT#c%,"tl: "+STR$M%!40:BPUT#c%,"tr: "+STR$M%!44:BPUT#c%,"th: "+STR$M%!48:ENDPROC
11510DEFPROCkb:LOCAL`%,s$,Te%,vb%,Se%,c%,z%:LOCALe,f,g,h,i,j:e=VALFNicon_read(zb%,6):f=VALFNicon_read(zb%,7):g=VALFNicon_read(zb%,10):h=VALFNicon_read(zb%,11):i=VALFNicon_read(zb%,8):j=VALFNicon_read(zb%,9):s$=FNicon_read(zb%,5):IFs$=""ERROR254,FNmsg_0(A%!12,"OKAD")
11515IFVALFNicon_read(zb%,6)=0ERROR254,FNmsg_0(A%!12,"OKAE")
11520IFVALFNicon_read(zb%,7)=0ERROR254,FNmsg_0(A%!12,"OKAE")
11525IF(i+j>f)ERROR254,FNmsg_1(A%!12,"OKAY",FNmsg_0(A%!12,"OKAZ"))
11530IF(g+h>e)ERROR254,FNmsg_1(A%!12,"OKAY",FNmsg_0(A%!12,"OKBA"))
11535SYS263872:`%=ia%:WHILE`%:IF$`%!4=s$THEN
11540Te%=`%:`%=0
11545ELSE:`%=`%!0
11550ENDIF
11555ENDWHILE:IFTe%IFTe%!52=2ERROR254,FNmsg_0(A%!12,"OKAX")
11560IFTe%=0THEN
11565B%=1163547472:C%=56:Te%=USR(P%+12):IFTe%=0ERROR253,FNmsg_1(A%!12,"FA5","PSZE")
11570Te%!0=0:$q%=s$:B%=q%:C%=2:Te%!4=USR(P%+28):vb%=ia%:Se%=0:WHILEvb%>0:IF$Te%!4<$vb%!4THEN
11575Te%!0=vb%:vb%=-1
11580ELSE:Se%=vb%:vb%=vb%!0
11585ENDIF
11590ENDWHILE:IFSe%Se%!0=Te%ELSEia%=Te%
11595ENDIF
11600PROCo(6,Te%,8,-1,Ue%):PROCo(7,Te%,12,-1,Ue%):PROCo(9,Te%,16,-1,Ue%):PROCo(8,Te%,20,-1,Ue%):PROCo(10,Te%,24,-1,Ue%):PROCo(11,Te%,28,-1,Ue%):PROCo(13,Te%,32,0,Ue%):PROCo(12,Te%,36,0,Ue%):PROCo(14,Te%,40,0,Ue%):PROCo(15,Te%,44,0,Ue%):PROCo(16,Te%,48,0,Ue%):Te%!52=1
11605PROCmc:z%=A%!48:WHILEz%:IFz%!36=Te%THEN
11610IFz%!24AND2THEN
11615PROCselect_printer(z%,-1,0):PROCub(z%):PROCz
11620ENDIF
11625ENDIF
11630z%=z%!0:ENDWHILE:SYS263873:ENDPROC
11635DEFPROCmc:LOCALc%,`%,Ve%,s$,bb%:IFha%THEN
11640s$="<Printers$Dir>.Remote.ID"+h$+".PaperRW"
11645ELSE:s$="<Printers$Dir>.PaperRW"
11650ENDIF
11655SYS131080,17,s$TObb%;f%:IF(f%AND1)!bb%=254:SYS43,bb%
11660IF(bb%=0)THEN
11665SYS131080,11,s$,4038,,0,0TObb%;f%:IF(f%AND1)!bb%=254:SYS43,bb%
11670ELSE:SYS131080,4,s$,,,,0TObb%;f%:IF(f%AND1)=0SYS131080,4,s$,,,,3TObb%;f%
11675IF(f%AND1)!bb%=254:SYS43,bb%
11680ENDIF
11685SYS131085,143,s$TOc%;f%:IF(f%AND1)!c%=254:SYS43,c%
11690IFc%THEN
11695`%=ia%:WHILE`%:IF`%!52=1THEN
11700PROClc(c%,`%):Ve%+=1
11705ENDIF
11710`%=`%!0:ENDWHILE:SYS131085,,c%:IFVe%THEN
11715SYS131080,18,s$,4038
11720ELSE:SYS131080,6,s$
11725ENDIF
11730ENDIF
11735ENDPROC
11740DEFPROCo(nb%,td%,Wa%,We%,RETURNRe%):LOCALv,v%:v=VALFNicon_read(zb%,nb%):CASEnb%OF
11745WHEN8:v=VALFNicon_read(zb%,7)-v
11750WHEN11:v=VALFNicon_read(zb%,6)-v
11755ENDCASE
11760IFWe%THEN
11765IFFNicon_set(zb%,23)v%=v*cELSEv%=v*d
11770ELSE:v%=v
11775ENDIF
11780IFtd%!Wa%<>v%THEN
11785Re%=-1:td%!Wa%=v%:IFCa%Ca%!Wa%=v%
11790ENDIF
11795ENDPROC
11800DEFPROCpb:LOCALs$,`%,Se%,i%,z%:SYS263872:s$=FNicon_read(zb%,5):`%=ia%:WHILE`%>0:IF$`%!4=s$THEN
11805IF`%!52=1THEN
11810z%=A%!48:WHILEz%:IFz%!36=`%ERROR254,FNmsg_0(A%!12,"OKQa")
11815z%=z%!0:ENDWHILE:IFSe%THEN
11820Se%!0=`%!0
11825ELSE:ia%=`%!0
11830ENDIF
11835PROCfree_structure(`%!4):B%=1163547472:C%=`%:CALLP%+16:PROCmc
11840ELSE:ERROR254,FNmsg_0(A%!12,"OKR")
11845ENDIF
11850FORi%=0TO52STEP4:Ca%!i%=0:NEXT:PROCGb:`%=-1
11855ELSE:Se%=`%:`%=`%!0
11860ENDIF
11865ENDWHILE:IF`%=0ERROR254,FNmsg_0(A%!12,"OKQ")
11870SYS263873:ENDPROC
11875DEFPROCrb:PROCs(A%!40):!q%=A%!40:SYS262348,,q%OR1:q%!48=q%!56-(A%!44*ma%*2)-(A%!32*ma%):SYS262359,A%!40,q%+44:q%!28=-1:SYS262341,,q%:ENDPROC
11880DEFPROCib(z%):IFNOTFNh(Bb%)ENDPROC
11885!W%=Bb%:W%!4=z%!28:SYS262350,,W%:SYS262353,Bb%,W%!8,W%!12,W%!16,W%!20:ENDPROC
11890DEFPROCf(y%,z%,K%):LOCALJb%:IFNOTFNh(A%!40)ENDPROC
11895IFy%=-1THEN
11900B%=z%:C%=K%:y%=USR(P%+48)
11905ENDIF
11910!W%=A%!40:SYS262347,,W%:W%!12=W%!12-W%!4:W%!4=0:W%!8=y%-ma%:W%!16=y%:SYS262353,!W%,W%!4,W%!8,W%!12,W%!16:ENDPROC
11915DEFPROCnc(y%,z%,Xe%,Ze%):LOCALVe%:IFNOTFNh(A%!40)ENDPROC
11920IFy%=-1THEN
11925B%=z%:C%=K%:y%=USR(P%+48)
11930ENDIF
11935!W%=A%!40:SYS262347,,W%:W%!12=W%!12-W%!4:W%!4=0:Ve%=2:WHILEXe%<>Ze%:Ve%+=1:Xe%=Xe%!0:ENDWHILE:W%!8=y%-ma%*Ve%:W%!16=y%:SYS262353,!W%,W%!4,W%!8,W%!12,W%!16:ENDPROC
11940DEFPROCeb(_e%,O$,Ka$,B$,z%,Rb%):B%=_e%:C%=q%:$C%=O$:D%=O%:$D%=Ka$:E%=O%+256:$E%=B$:F%=z%:G%=Rb%:CALLP%+24:ENDPROC
11945DEFPROCn(z%,K%,rc%):LOCALvb%,p%,N%:IFwa%=z%ANDxa%=K%xa%=0:SYS262356,-1
11950p%=K%!44:IFp%THEN
11955IFp%!40THEN
11960z%!24=z%!24ANDNOT36:IFz%!48THEN
11965!q%=z%!48:PROCe
11970ENDIF
11975ENDIF
11980ENDIF
11985IFz%!32=K%THEN
11990z%!32=K%!0:vb%=0
11995ELSE:vb%=z%!32:WHILEvb%!0<>K%:vb%=vb%!0:ENDWHILE:vb%!0=K%!0
12000ENDIF
12005IFK%!12THEN
12010SYS131085,,K%!12:K%!12=0:z%!24=z%!24ANDNOT8:PROCi(z%):IFNOTz%!28THEN
12015O%!0=Bb%:O%!4=z%!28:O%!8=0:O%!12=1<<22:SYS262349,,O%
12020ENDIF
12025ENDIF
12030p%=0:REPEAT:SYS524624,p%TOp%:IFp%IFp%=K%!40ORp%=K%!72SYS524617,p%
12035UNTILp%=0:IFK%!40THEN
12040N%=z%!12:IFN%!0=1ORN%!0=2SYS6,21,FNn(N%!0)
12045SYS131085,0,K%!40:K%!40=0:PROCoc(N%!0):!q%=K%:PROCc(z%!4,z%,-7,q%)
12050ENDIF
12055IFK%!72THEN
12060SYS131085,,K%!72:K%!72=0
12065ENDIF
12070SYS131080,6,$K%!68:PROCfree_structure(K%!68):IFK%?11AND2SYS131080,6,$K%!20
12075PROCfree_structure(K%!16):PROCfree_structure(K%!20):PROCfree_structure(K%!24):p%=K%!44:IFp%THEN
12080PROCfree_structure(p%!104):PROCfree_structure(p%!108):PROCfree_structure(p%!112):PROCfree_structure(p%!120):B%=1112887380:C%=p%:CALLP%+16
12085ENDIF
12090IFK%!52THEN
12095B%=1179009620:C%=K%!52:CALLP%+16
12100ENDIF
12105B%=1430607185:C%=K%:CALLP%+16:A%!32-=1:IFA%!32<=0A%!20=A%!20OR1
12110IFrc%THEN
12115!q%=A%!40:SYS262348,,q%OR1:IFq%!32AND1<<16THEN
12120q%!48=q%!56-A%!44*ma%*2-A%!32*ma%:SYS262359,A%!40,q%+44:SYS262341,,q%:B%=z%:C%=vb%:CALLP%+32
12125ENDIF
12130ENDIF
12135ENDPROC
12140DEFPROCA(z%):LOCALK%,`e%:SYS263872:REPEAT:K%=z%!32:IFK%PROCn(z%,K%,0)
12145UNTILK%=0:!q%=A%!40:SYS262348,,q%OR1:IFq%!32AND1<<16THEN
12150q%!48=q%!56-A%!44*ma%*2-A%!32*ma%:SYS262359,A%!40,q%+44:SYS262341,,q%:B%=z%:C%=0:CALLP%+32
12155ENDIF
12160SYS263873:ENDPROC
12165DEFPROCH:LOCALz%:z%=A%!48:WHILEz%:PROCA(z%):z%=z%!0:ENDWHILE:A%!32=0:ENDPROC
12170DEFPROCma:LOCALaf%,j%,z%,K%:REPEAT:IFA%!24A%!24=!(A%!24+0)
12175IFA%!24=0A%!24=A%!48
12180UNTILA%!24:z%=A%!24:IF(z%!24AND4)=0THEN
12185A%!28=z%!32:af%=0:WHILEA%!28:IF?(A%!28+11)AND1THEN
12190A%!28=0
12195ELSE:IF?(A%!28+11)AND4THEN
12200af%=A%!28:A%!28=!(A%!28+0)
12205ELSE:IF!(A%!28+12)THEN
12210PROCpc(z%,A%!28)
12215ELSE:IF(z%!24AND32)=0THEN
12220IFA%!28<>z%!32THEN
12225IFaf%af%!0=!(A%!28+0)
12230!(A%!28+0)=z%!32:z%!32=A%!28:PROCnc(-1,z%,A%!28,af%)
12235ENDIF
12240IFya%=z%THEN
12245!q%=Q%:PROCe
12250ENDIF
12255j%=z%!4:j%=j%!20:WHILEj%:IF$(j%+16)="configure"THEN
12260IFj%!12=z%THEN
12265!q%=j%!4:PROCe
12270ENDIF
12275ENDIF
12280j%=j%!0:ENDWHILE:PROCpc(z%,A%!28)
12285ENDIF
12290ENDIF
12295A%!28=0
12300ENDIF
12305ENDIF
12310ENDWHILE
12315ENDIF
12320A%!32=0:z%=A%!48:WHILEz%:K%=z%!32:WHILEK%:A%!32+=1:K%=K%!0:ENDWHILE:z%=z%!0:ENDWHILE:IFA%!32=0A%!20=A%!20OR1
12325ENDPROC
12330DEFFNra(K%,bf%,RETURN_$):LOCALy$,i%,c$,H%:_$="":y$=RIGHT$("00"+STR$~K%!36,3):SYS131107,"Alias$@PrintType_"+y$,,-1TO,,i%:IFi%<0_$="@PrintType_"+y$:=-1
12335CASEK%!36OF
12340WHEN-1:c$=FNmsg_0(A%!12,"UNT")
12345WHEN8192:PROCj(FNmsg_0(A%!12,"OKT"),1):=0
12350WHEN4096:PROCj(FNmsg_0(A%!12,"OKS"),1):=0
12355WHEN4095,2808:K%!36=4095:=-1
12360WHEN4054,4055,4074,4075,4094:K%!36=4094:=-1
12365WHENbf%:K%!36=bf%:=-1
12370OTHERWISE:c$=FNtask_read_env("File$Type_"+y$,q%):IFc$=""c$=FNmsg_1(A%!12,"TYP",y$)
12375ENDCASE
12380CASEFNsa(c$,K%)OF
12385WHEN4:K%!36=4094:=-1
12390WHEN2:K%!36=4095:=-1
12395ENDCASE
12400=0
12405DEFFNsa(c$,K%):LOCALx%,y%,w%,h%:PROCicon_write(yb%,0,FNmsg_2(A%!12,"WA5",c$,$K%!24)):SYS262351,,q%:x%=!q%:y%=q%!4:!q%=yb%: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
12410SYS262341,,q%:PROCac(yb%):pa%=0:REPEAT:PROCv(la%):UNTILpa%:!q%=yb%:PROCe:PROCbc:=pa%
12415DEFPROCqc(cf%,df%,ef%,La$):IFcf%SYS131085,0,cf%
12420IFdf%EXT#df%=ef%
12425IFdf%SYS131085,0,df%
12430SYS131080,6,La$:ENDPROC
12435DEFPROCfb(Ma$,La$):LOCALff%,gf%,hf%,ef%,i%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCqc(ff%,gf%,ef%,La$):PROCj(REPORT$,1):ENDPROC
12440ff%=OPENINLa$:hf%=EXT#ff%:IFhf%THEN
12445SYS263872:gf%=OPENUPMa$:ef%=EXT#gf%:PTR#gf%=ef%:FORi%=1TOhf%DIV512:SYS12,4,ff%,O%,512:SYS12,2,gf%,O%,512:NEXT:IFhf%MOD512SYS12,4,ff%,O%,hf%MOD512:SYS12,2,gf%,O%,hf%MOD512
12450CLOSE#gf%:SYS263873
12455ENDIF
12460CLOSE#ff%:SYS8,6,La$:ENDPROC
12465DEFPROCpc(z%,K%):LOCALH%,N%,if%,b%,t%,P$,t$,_$,Na%,Oa%,jf%,s%,Sb%,z$,kf%,G$:LOCALA$,B$,Ub%,l%,f%:H%=z%!4:N%=z%!12:if%=H%!28:IFK%!12=0THEN
12470PROCselect_printer(z%,0,0):IF(z%!24AND4)<>0ENDPROC
12475P$=$K%!20:L$=$K%!16:M$=$K%!24:IFN%!0=5THEN
12480Sb%=(N%?6AND2)<>0
12485ELSE:Sb%=(N%?6AND1)<>0
12490ENDIF
12495IFSb%THEN
12500g$=FNl(0):IFg$=""THEN
12505z%!24=z%!24OR4:PROCi(z%):PROCf(-1,z%,0):ENDPROC
12510ENDIF
12515IFN%!0=5THEN
12520SYS36,"PrinterType$5",g$,LENg$:PROCI(5)
12525ELSE:SYS36,"PrinterType$10",g$,LENg$:PROCI(10)
12530ENDIF
12535G$=g$
12540ENDIF
12545z$=FNl(0):IFz$=""THEN
12550z%!24=z%!24OR4:PROCi(z%):PROCf(-1,z%,0):ENDPROC
12555ENDIF
12560SYS36,"Printer$Temp",z$,LENz$:q%!0=48+LENP$ANDNOT3:q%!12=0:q%!16=524613:q%!40=K%!36:$(q%+44)=P$+CHR$0:SYS262375,18,q%:qa%=0:REPEAT:PROCv(ka%):UNTILqa%:b%=-1:IFqa%<>2THEN
12565b%=FNra(K%,if%,_$):IFb%THEN
12570IF_$<>""THEN
12575SYS262366,_$+" "+P$
12580ENDIF
12585ENDIF
12590ENDIF
12595IFNOTb%THEN
12600PROCn(z%,K%,-1):ENDPROC
12605ENDIF
12610IFSb%THEN
12615s$=FNm(z%,-1):IFs$<>""THEN
12620PROCb(s$):IFz%!32THEN
12625z%!24=z%!24OR4:PROCi(z%):PROCf(-1,z%,0)
12630ENDIF
12635ENDIF
12640ENDIF
12645IFNOT(K%!36=4095ORK%!36=4094ORK%!36=if%)THEN
12650SYS8,17,z$TOt%,,Na%,,Oa%:IFt%THEN
12655IFK%?11AND2THEN
12660IFK$<>""SYS131080,6,K$
12665K$=$K%!20
12670ENDIF
12675PROCfree_structure(K%!20):$q%=z$:B%=q%:C%=2:K%!20=USR(P%+28):K%!28=Oa%:K%!36=(Na%AND1048320)>>8:K%?11=K%?11OR2
12680ELSE:IFSb%THEN
12685IFN%!0=5THEN
12690PROCfb($N%!16,G$):PROCn(z%,K%,-1)
12695ELSE:SYS8,17,G$TOb%,,,,Oa%:IFb%=0OROa%=0THEN
12700SYS131080,6,G$:PROCn(z%,K%,-1)
12705ELSE:IF(K%?11AND2)SYS131080,6,$K%!20
12710PROCfree_structure(K%!20):$q%=G$:B%=q%:C%=2:K%!20=USR(P%+28):K%!28=Oa%:K%!36=if%:K%?11=K%?11OR2
12715ENDIF
12720ENDIF
12725ELSE:A$=$K%!16:B$=$K%!24:PROCn(z%,K%,-1):IFN%!0=9ANDq$<>""THEN
12730c$=$(z%!40):M%=INSTR(c$," "):WHILEM%:MID$(c$,M%,1)=CHR$160:M%=INSTR(c$," ",M%+1):ENDWHILE:w$=q$+"RemSpool."+h$+"."+c$:C$=q$+"RemQueue."+h$+"."+STR$(Ka%):SYS131080,17,w$TOt%,,,,l%;f%:IF(l%>0)AND((f%AND1)=0)AND(t%=1)THEN
12735IFFNA (z%,A$,B$)THEN
12740Ub%=V%!4:SYS131113,25,w$,C$
12745ELSE:SYS131080,6,w$
12750ENDIF
12755L$="":M$="":s$=FNm(z%,-1):IFs$<>""THEN
12760PROCb(s$)
12765ENDIF
12770ENDIF
12775ENDIF
12780PROCselect_printer(0,-1,-1)
12785ENDIF
12790ENDIF
12795ELSE:CASEN%!0OF
12800WHEN1:IFz%!24AND128THEN
12805g$="devices#buffer"+STR$FNN(1)+":$."+FNS
12810ELSE:g$="devices#buffer"+STR$FNN(1)+":$.Parallel"
12815ENDIF
12820SYS36,"PrinterType$1",g$,LENg$
12825WHEN2:g$="devices#buffer"+STR$FNN(2)+":$.Serial":SYS36,"PrinterType$2",g$,LENg$
12830ENDCASE
12835SYS263872:IFN%!0=5AND(N%?6AND2)<>0THEN
12840SYS131085,207,g$TOb%;t%:IF(t%AND1)=0PTR#b%=EXT#b%
12845ELSE:SYS131085,143,g$TOb%;t%
12850ENDIF
12855IFt%AND1i%=b%+4:CALLZ%,i%,t$
12860SYS263873:PROCselect_printer(0,-1,-1):IFt%AND1THEN
12865PROCdc(z%):PROCoc(N%!0):ERROR254,FNmsg_1(A%!12,"OKP",t$)
12870ENDIF
12875K%!40=b%:SYS131085,64,$K%!20TOK%!12;t%:IF(t%AND1)K%!12=0
12880IFK%!12=0THEN
12885PROCn(z%,K%,-1):ERROR254,FNmsg_1(A%!12,"OKAF",$K%!20)
12890ENDIF
12895t$=FNl(0):IFt$=""THEN
12900z%!24=z%!24OR4:PROCi(z%):PROCf(-1,z%,0):ENDPROC
12905ENDIF
12910SYS131080,11,t$,4093TOb%;t%:IF(t%AND1)=0SYS131085,207,t$TOb%;t%
12915IFt%AND1THEN
12920PROCdc(z%):b%+=4:CALLZ%,b%,s$:ERROR254,FNmsg_1(A%!12,"OKP",s$)
12925ENDIF
12930K%!72=b%:$q%=t$:B%=q%:C%=2:K%!68=USR(P%+28):B%=1179009620:C%=1024:s%=USR(P%+12):IFs%=0ERROR253,FNmsg_1(A%!12,"FA5","TBFF")
12935K%!52=s%:z%!24=z%!24OR8:PROCi(z%):PROCf(-1,z%,0):IFK%!36<>if%THEN
12940IFz%!24AND64THEN
12945PROCn(z%,K%,-1):IFz%!40=0s$=$z%!8ELSEs$=$z%!40
12950ERROR254,FNmsg_1(A%!12,"OKAC",s$)
12955ENDIF
12960PROCrc(K%,if%)
12965ENDIF
12970ENDIF
12975ELSE:IFEOF#K%!12ANDK%!56=0THEN
12980t%=EXT#K%!72-PTR#K%!72:IFt%THEN
12985IFN%!0=1ORN%!0=2THEN
12990SYS6,128,NOTFNn(N%!0)TO,Oa%,Na%:Oa%=Oa%ORNa%<<8:IFOa%>1024Oa%=1024
12995ELSE:Oa%=1024/2
13000ENDIF
13005PROCsc(K%,t%,Oa%):ENDPROC
13010ENDIF
13015jf%=-1:IFN%!0=1ORN%!0=2THEN
13020SYS6,152,FNn(N%!0)TO;b%:IF(b%AND2)=0jf%=0
13025ENDIF
13030IFjf%THEN
13035PROCi(z%):A$=$K%!16:B$=$K%!24:PROCn(z%,K%,-1):IFN%!0=9ANDq$<>""THEN
13040c$=$(z%!40):M%=INSTR(c$," "):WHILEM%:MID$(c$,M%,1)=CHR$160:M%=INSTR(c$," ",M%+1):ENDWHILE:w$=q$+"RemSpool."+h$+"."+c$:C$=q$+"RemQueue."+h$+"."+STR$(Ka%):IFFNA (z%,A$,B$)THEN
13045Ub%=V%!4:SYS131113,25,w$,C$
13050ELSE:SYS131080,6,w$
13055ENDIF
13060s$=FNm(z%,-1):IFs$<>""THEN
13065PROCb(s$)
13070ENDIF
13075ENDIF
13080ENDIF
13085ELSE:PROCtc(z%,K%,if%)
13090ENDIF
13095ENDIF
13100ENDPROC
13105DEFPROCrc(K%,bf%):LOCALi%,p%,c$:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCuc(A%!24,A%!28)
13110B%=1112887380:C%=124:p%=USR(P%+12):IFp%=0ERROR253,FNmsg_1(A%!12,"FA5","TPUB")
13115K%!44=p%:IF0<=124-4
13120FORi%=0TO124-4STEP4:p%!i%=0:NEXT
13125ENDIF
13130?O%=3:SYS7,14,O%:SYS192,O%,O%+5,250:B%=O%+5:C%=2:p%!120=USR(P%+28):IFK%?11AND2THEN
13135c$=$K%!16+" - "+$K%!24
13140ELSE:c$=$K%!20:IFLENc$>40THEN
13145c$=RIGHT$(c$,40):c$=MID$(c$,1+INSTR(c$,"."))
13150ENDIF
13155ENDIF
13160$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:PROCM(A%!24,A%!28,-1):ENDPROC
13165DEFPROCuc(z%,K%):PROCn(z%,K%,-1):IFz%!32<>0THEN
13170z%!24=z%!24OR32:PROCi(z%)
13175ENDIF
13180ERROR254,FNmsg_1(A%!12,"OKPa",REPORT$):ENDPROC
13185DEFPROCtc(z%,K%,bf%):LOCALl%,t%,lf%,Tc%,b$,p%,Zb%,N%,mf%,H%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCuc(z%,K%)
13190N%=z%!12:H%=z%!4:Zb%=K%!44:IFN%!0=1ORN%!0=2THEN
13195SYS6,128,NOTFNn(N%!0)TO,Tc%,l%:Tc%=Tc%ORl%<<8:IFTc%>1024Tc%=1024
13200ELSE:Tc%=1024/2
13205ENDIF
13210l%=EXT#K%!72-PTR#K%!72:IFK%!56l%=0
13215IFl%PROCsc(K%,l%,Tc%):ENDPROC
13220SYS263872:l%=K%!28-PTR#K%!12:IFK%!36=bf%THEN
13225IFl%>Tc%l%=Tc%
13230SYS12,4,K%!12,q%,l%:SYS12,2,K%!40,q%,l%
13235ELSE:IFK%!36=4095OR(H%!32AND1)<>0THEN
13240CASEZb%!92OF
13245WHEN0:q%!8=K%!72:PROCM(z%,K%,-2):K%!32=-1:Zb%!92=1
13250WHEN1:q%!8=K%!72:PROCM(z%,K%,-3):K%!32=0:Zb%!92=2
13255WHEN2:IFH%!32AND2THEN
13260IFK%!56=0THEN
13265PROCvc(0):q%!8=K%!56:PROCwc(K%,FNta(z%,K%,-4)):PROCxc(z%,K%,Tc%):IFZb%!92=3THEN
13270q%!8=K%!72:PROCM(z%,K%,-14):Zb%!92=1
13275ENDIF
13280ELSE:PROCxc(z%,K%,Tc%)
13285ENDIF
13290ELSE:IFK%!56=0THEN
13295t%=1024/4:IFt%>Tc%t%=Tc%
13300K%!60=0:PROCvc(t%):IFZb%!40THEN
13305PROCdc(z%):PROCWa(z%):p%=Zb%!40
13310ENDIF
13315ENDIF
13320IFTc%>K%!56Tc%=K%!56
13325IFZb%!40<>0ANDTc%>p%Tc%=p%
13330IFTc%SYS12,2,K%!40,K%!52+K%!60,Tc%
13335K%!56-=Tc%:K%!60+=Tc%
13340ENDIF
13345ENDCASE
13350ELSE:t%=LENFNprinter_read_string(Zb%!108):WHILEl%ANDTc%>t%:b$=FNua(BGET#K%!12,Zb%):l%-=1:IFb$<>""BPUT#K%!40,b$;
13355Tc%-=LENb$:ENDWHILE
13360ENDIF
13365ENDIF
13370IFEOF#K%!12ANDK%!56=0THEN
13375q%!8=K%!72:PROCM(A%!24,A%!28,-15)
13380ENDIF
13385IFK%!28=0lf%=0ELSElf%=PTR#K%!12*100/K%!28
13390IFlf%<>K%!32THEN
13395K%!32=lf%:PROCf(-1,z%,K%)
13400ENDIF
13405PTR#K%!72=0:SYS263873:ENDPROC
13410DEFPROCsc(K%,nf%,Tc%):IFnf%>Tc%nf%=Tc%
13415SYS12,4,K%!72,q%,nf%:SYS12,2,K%!40,q%,nf%:IFEXT#K%!72-PTR#K%!72=0THEN
13420PTR#K%!72=0:EXT#K%!72=0
13425ENDIF
13430ENDPROC
13435DEFFNua(C%,Zb%):LOCALr$:IFC%=10ORC%=13THEN
13440IFZb%!16=1ORZb%!16=C%r$=FNprinter_read_string(Zb%!108)
13445Zb%!16=C%
13450ELSE:IFZb%!16r$=FNprinter_read_string(Zb%!108)
13455r$+=CHR$C%:Zb%!16=0
13460ENDIF
13465=r$
13470DEFPROCwc(K%,s$):LOCALof%,pf%:pf%=K%!52:of%=K%!56:IFs$<>""THEN
13475$(pf%+of%)=s$:K%!56+=LENs$
13480ENDIF
13485ENDPROC
13490DEFPROCxc(z%,K%,Tc%):LOCALof%,pf%:pf%=K%!52:of%=K%!56:IFof%THEN
13495IFN%!0=1ORN%!0=2THEN
13500IFof%>=Tc%ENDPROC
13505ENDIF
13510pf%?of%=10:of%+=1:pf%?of%=13:SYS12,2,K%!40,pf%,of%:K%!56=0
13515ENDIF
13520ENDPROC
13525DEFPROCM(z%,K%,qf%):q%!0=qf%:q%!4=K%:PROCc(z%!4,z%,-8,q%):ENDPROC
13530DEFFNta(z%,K%,qf%):LOCALs$,i%:q%!0=qf%:q%!4=K%:PROCc(z%!4,z%,-8,q%):i%=q%+8:CALLY%,i%,s$:=s$
13535DEFPROCvc(F%):LOCALH%:H%=z%!4:B%=H%:C%=K%:D%=Zb%:E%=O%+128:E%!0=H%:E%!4=z%:E%!8=K%:E%!12=Zb%: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=ia%:O%!20=P%:O%!24=F%:IFF%=0CALLP%+4ELSECALLP%+0
13540ENDPROC
13545DEFFNN(t%):CASEt%OF
13550WHEN1:IFA%!80=0THEN
13555IFA%!76<>3THEN
13560A%!80=3
13565ELSE:A%!80=10
13570ENDIF
13575ENDIF
13580=A%!80
13585WHEN2:IFA%!76=0THEN
13590IFA%!80<>3THEN
13595A%!76=3
13600ELSE:A%!76=2
13605ENDIF
13610ENDIF
13615=A%!76
13620ENDCASE
13625=0
13630DEFPROCoc(t%):CASEt%OF
13635WHEN1:A%!80=0
13640WHEN2:A%!76=0
13645ENDCASE
13650ENDPROC
13655DEFFNn(t%):CASEt%OF
13660WHEN1:=A%!80
13665WHEN2:=A%!76
13670ENDCASE
13675=0
13680DEFFNP:LOCALbb%,rf%:SYS88,3TObb%,rf%:IF(bb%AND61440)=4096AND(rf%AND61440)=4096:=-1
13685=0
13690DEFFNS:LOCALbb%:SYS8,5,"Devices:FastParallel"TObb%:IFbb%<>0THEN
13695:="FastParallel"
13700ELSE::="Parallel"
13705ENDIF
13710DEFFNrmload_latest_module(c$,j$):LOCALsf%,tf%,uf%:LOCALM%,f%,rf%,vf%,wf%,s$,xf%:sf%=-1:SYS131102,18,c$TO,,,M%;f%:IF(f%AND1)=0ANDM%!20<>0THEN
13715M%+=(M%!20):WHILE?M%<>9AND?M%<>0:M%+=1:ENDWHILE:IF?M%<>0THEN
13720sf%=0:M%+=1:WHILE?M%<>32:IF?M%>=ASC"0"AND?M%<=ASC"9"THEN
13725sf%=sf%*10+?M%-ASC"0"
13730ENDIF
13735M%+=1:ENDWHILE
13740ENDIF
13745ENDIF
13750tf%=-1:rf%=0:vf%=-1:REPEAT:SYS131102,20,rf%,vf%TO,rf%,vf%,M%,xf%,,wf%;f%:IF(f%AND1)=0THEN
13755CALLZ%,M%,s$:IFs$=c$tf%=VAL(STR$~(wf%))/100
13760ENDIF
13765UNTIL(tf%<>-1)OR(f%AND1)<>0:uf%=-1:SYS131085,67,j$TOf%;M%:IF(M%AND1)f%=0
13770IFf%<>0THEN
13775PTR#f%=20:M%=BGET#f%+((BGET#f%)<<8)+((BGET#f%)<<16)+((BGET#f%)<<24):IFM%<>0THEN
13780PTR#f%=M%:REPEAT:rf%=BGET#f%:UNTILrf%=0ORrf%=9:IFrf%<>0THEN
13785uf%=0:REPEAT:rf%=BGET#f%:IFrf%>=ASC"0"ANDrf%<=ASC"9"THEN
13790uf%=uf%*10+rf%-ASC"0"
13795ENDIF
13800UNTILrf%=32
13805ENDIF
13810ENDIF
13815CLOSE#f%
13820ENDIF
13825IFsf%>tf%rf%=sf%ELSErf%=tf%
13830IFrf%>uf%f%=rf%ELSEf%=uf%
13835rf%=0:IFtf%=f%THEN
13840IFxf%<1THEN
13845SYS131102,4,c$:SYS131102,3,c$TOM%;rf%
13850ENDIF
13855ENDIF
13860IFuf%=f%ANDuf%>tf%ANDuf%>sf%THEN
13865SYS131102,1,j$TOM%;rf%
13870ENDIF
13875IF(rf%AND1)=0SYS131102,18,c$TOM%;rf%
13880IF(rf%AND1)!M%=253:SYS43,M%
13885=f%
13890DEFPROC` (yf%):LOCALf%,g%,zf%,s$:ha%=0:SYS131102,18,"Freeway"TO;f%:SYS131102,18,"RemotePrinterSupport"TO;zf%:SYS131102,18,"ShareFS"TO;g%:IF(f%AND1)OR(g%AND1)OR(zf%AND1)THEN
13895Ga%=0
13900ELSE:SYS131077,"RMEnsure ShareFS 2.00 ERROR Foo"TO;f%:IF(f%AND1)THEN
13905Ga%=0
13910ELSE:h$=FNtask_read_env("Inet$LocalAddr",q%):Ga%=-1:PROCyc:PROCzc:SYS424323,2:Na$="<Wimp$ScrapDir>.Printers":s$=FNtask_read_env ("Printers$Dir",q%):IFINSTR(s$,"Share:")THEN
13915ha%=-1
13920ELSE:ha%=0
13925ENDIF
13930ENDIF
13935ENDIF
13940IF(zf%AND1)=0THEN
13945SYS424320TOIa%
13950ENDIF
13955IFha%THEN
13960SYS131080,8,"<Printers$Path>Remote"TO;f%:s$="<Printers$Path>Remote.ID"+h$:SYS131080,8,s$TO;f%
13965ENDIF
13970ENDPROC
13975DEFPROCyc:SYS293504,0,2:ENDPROC
13980DEFFNj(Af%):LOCALW$:CALLZ%,Af%,W$:=W$
13985DEFPROCka:ENDPROC
13990DEFPROCzc:LOCALBf%,Cf%,Df%,Ff%,gc%,Vb%,c$,gb%:LOCALGf%,Hf%,c$,Oa$,R%,Cd%:Cf%=0:Df%=0:Ja%=0:REPEAT:Cf%=Df%:SYS293507,0,2,0,0,0,0,0,Cf%TO,,Ff%,,gc%,,,Df%:IF(Df%>0)THEN
13995Gf%=FNf (1196577875,Ff%):Hf%=FNf (1196577875,gc%+1):If%=FNf (810701907,Ff%):Jf%=FNf (810701907,gc%+1):SYS293507,0,2,Ff%,If%,gc%+1,Jf%,0,Cf%TO,,,,,,Vb%:Jf%?gc%=0:$Gf%=FNj (If%):$Hf%=FNj (Jf%):PROCd (810701907,If%):PROCd (810701907,Jf%)
14000R%=FND (Gf%,Hf%,Vb%):PROCK (Ha%,R%):c$=$Gf%:IFFN_ (c$)THEN
14005yd%=FNx (R%,0,0,-1,gb%):IFNOTgb%THEN
14010PROCXb (c$):PROCN (c$):IFV%=0THEN
14015IFA%!44THEN
14020Cd%=A%!48:WHILECd%:IFNOTCd%!20THEN
14025PROCselect_printer(Cd%,-1,0):Cd%=0
14030ELSE:Cd%=Cd%!0
14035ENDIF
14040ENDWHILE
14045ENDIF
14050ENDIF
14055ENDIF
14060ENDIF
14065Ja%+=1
14070ENDIF
14075UNTIL(Df%<0):ENDPROC
14080DEFPROC_b (c$):LOCALGf%,Hf%,gc%,Vb%,Oa$,hb%,R%,Pa$,Cd%,gb%,jb%:SYS424578,0,2,c$,0,0TO,,,gc%,,Vb%;hb%:IF(hb%AND1)THEN
14085ENDPROC
14090ENDIF
14095jb%=0:R%=Ha%:WHILER%:IF($R%!4=c$)AND((R%!20)<=0)THEN
14100ENDPROC
14105ENDIF
14110R%=R%!0:ENDWHILE:Gf%=FNf (1196577875,LENc$+1):Hf%=FNf (1196577875,gc%+1):Jf%=FNf (810701907,gc%+1):$Gf%=c$:SYS424578,0,2,c$,gc%+1,Jf%TO;hb%:IF(hb%AND1)THEN
14115ENDPROC
14120ENDIF
14125Jf%?gc%=0:$Hf%=FNj (Jf%):PROCd (810701907,Jf%):R%=FND (Gf%,Hf%,Vb%):PROCK (Ha%,R%):Ja%+=1:IFFN_ (c$)THEN
14130yd%=FNx (R%,0,0,-1,gb%):IFNOTgb%THEN
14135PROCXb (c$):PROCN (c$):IFV%=0THEN
14140IFA%!44THEN
14145Cd%=A%!48:WHILECd%:IFNOTCd%!20THEN
14150PROCAc(Cd%,-1,0,-1,gb%):Cd%=0
14155ELSE:Cd%=Cd%!0
14160ENDIF
14165ENDWHILE
14170ENDIF
14175ENDIF
14180ENDIF
14185ENDIF
14190PROCk:ENDPROC
14195DEFPROCXb (c$):LOCALSe%,Bf%,jb%,Kf%:Bf%=Ha%:Se%=0:jb%=0:IFBf%THEN
14200REPEAT:IF($Bf%!4)=c$ANDBf%!20>0THEN
14205jb%=-1
14210ELSE:Se%=Bf%:Bf%=Bf%!0
14215ENDIF
14220UNTILjb%OR(Bf%=0):IF(Se%=0)AND(Bf%<>0)THEN
14225Ha%=Bf%!0:PROCD (-2,Bf%!20):PROCd (1196577875,Bf%!4):PROCd (1196577875,Bf%!8):PROCd (1380799568,Bf%)
14230ELSE:IFBf%THEN
14235Se%!0=Bf%!0:PROCD (-2,Bf%!20):PROCd (1196577875,Bf%!4):PROCd (1196577875,Bf%!8):PROCd (1380799568,Bf%)
14240ENDIF
14245ENDIF
14250ENDIF
14255ENDPROC
14260DEFFN_ (c$):LOCALBf%,Lf%:Bf%=Ha%:Lf%=0:WHILEBf%ANDNOTLf%:IF$Bf%!4=c$ANDBf%!20>0THEN
14265Lf%=-1
14270ELSE:Bf%=Bf%!0
14275ENDIF
14280ENDWHILE:=Lf%
14285DEFPROCN (c$):LOCALz%,Fd%,M%,N%,Cd%,y$,H%,`$:IFFNva (Ha%,c$)THEN
14290PROCTa (Ha%,c$)
14295ELSE:Fd%=0:z%=A%!48:M%=z%:N%=z%!12:WHILEM%:IF$M%!40=c$ANDN%!0=9THEN
14300M%=0
14305ELSE:Fd%=z%:z%=z%!0:M%=z%:N%=z%!12
14310ENDIF
14315ENDWHILE:IFz%THEN
14320H%=z%!4:`$=$H%!4:y$=$z%!8:PROCRa (c$,`$,y$):PROC`b (z%,Fd%):PROCLb (y$)
14325ENDIF
14330ENDIF
14335IFFNh (Bb%)THEN
14340PROCk:PROCq (Bb%)
14345ENDIF
14350ENDPROC
14355DEFFNt(Vb%):=STR$~Vb%
14360DEFFNf (Mf%,Oa%):LOCALNf%:B%=Mf%:C%=Oa%:Nf%=USR(P%+12):IF(Nf%=0)THEN
14365ERROR253,FNmsg_1 (A%!12,"FA5",CHR$((B%AND-16777216)>>24)+CHR$((B%AND16711680)>>16)+CHR$((B%AND65280)>>8)+CHR$(B%AND255))
14370ENDIF
14375=Nf%
14380DEFPROCd (Mf%,td%):B%=Mf%:C%=td%:CALLP%+16:ENDPROC
14385DEFPROCJ (RETURNOf%,k$):$q%=k$:B%=q%:C%=2:Of%=USR(P%+28):ENDPROC
14390DEFFND (Gf%,Hf%,Pf%):LOCALNf%:Nf%=FNf (1380799568,24):Nf%!0=0:Nf%!4=Gf%:Nf%!8=Hf%:Nf%!12=Pf%:Nf%!16=-1:Nf%!20=-1:=Nf%
14395DEFFNwa (c$,nb%,R$):LOCALNf%,Qf%,wd%:Nf%=FNf (1380799568,24):PROCJ (Qf%,c$):PROCJ (wd%,R$):Nf%!0=0:Nf%!4=Qf%:Nf%!8=wd%:Nf%!12=-1:Nf%!16=-1:Nf%!20=nb%:=Nf%
14400DEFPROCK (RETURNtc%,Me%):LOCALBf%:IFtc%=0THEN
14405tc%=Me%
14410ELSE:Bf%=tc%:WHILE(Bf%!0<>0):Bf%=Bf%!0:ENDWHILE:Bf%!0=Me%
14415ENDIF
14420ENDPROC
14425DEFFNva (RETURNtc%,c$):LOCALBf%:IFtc%=0THEN
14430=0
14435ELSE:Bf%=tc%:WHILEBf%:IF$Bf%!4=c$THEN
14440=-1
14445ELSE:Bf%=Bf%!0
14450ENDIF
14455ENDWHILE
14460ENDIF
14465=0
14470DEFPROCTa (RETURNtc%,c$):LOCALSe%,Bf%,jb%,Kf%:IFtc%THEN
14475Bf%=tc%:Se%=0:jb%=0:REPEAT:IF($Bf%!4)=c$THEN
14480jb%=-1
14485ELSE:Se%=Bf%:Bf%=Bf%!0
14490ENDIF
14495UNTILjb%OR(Bf%=0):IF(Se%=0)AND(Bf%<>0)THEN
14500tc%=Bf%!0:PROCd (1196577875,Bf%!4):PROCd (1196577875,Bf%!8):PROCd (1380799568,Bf%)
14505ELSE:IFBf%THEN
14510Se%!0=Bf%!0:PROCd (1196577875,Bf%!4):PROCd (1196577875,Bf%!8):PROCd (1380799568,Bf%)
14515ENDIF
14520ENDIF
14525ENDIF
14530ENDPROC
14535DEFPROCta:LOCALNd%,z%,N%,Cd%:LOCALdb%,Rf%,s$,H%,s%,t%,l%,t$,M%:REPEAT:SYS424321,,,-1TONd%,,Rf%:IFNd%>0THEN
14540IFRf%>0THEN
14545db%=FNf (1196577875,Rf%):SYS424321,,db%,Rf%
14550ELSE:SYS424321,,0,0
14555ENDIF
14560CASENd%OF
14565WHEN1:IFV%THEN
14570N%=V%!12:IFN%!0=9ANDq$<>""THEN
14575t$=$(V%!40):M%=INSTR(t$," "):WHILEM%:MID$(t$,M%,1)=CHR$160:M%=INSTR(t$," ",M%+1):ENDWHILE:w$=q$+"RemSpool."+h$+"."+t$:C$=q$+"RemQueue."+h$+"."+STR$(Ka%):SYS131080,17,w$TOt%,,,,l%;f%:IF(l%>0)AND((f%AND1)=0)AND(t%=1)THEN
14580IFL$=""THEN
14585L$=FNmsg_0(A%!12,"UNKN")
14590ENDIF
14595IFM$=""THEN
14600M$=FNmsg_0(A%!12,"UNKN")
14605ENDIF
14610IFFNA (V%,L$,M$)THEN
14615H%=V%!4:SYS131113,25,w$,C$
14620ELSE:SYS131080,6,w$
14625ENDIF
14630L$="":M$="":s$=FNm(V%,-1):IFs$<>""THEN
14635PROCb(s$)
14640ENDIF
14645ENDIF
14650ENDIF
14655ENDIF
14660WHEN2:PROCBc (FNj (db%))
14665WHEN3:IFGa%THEN
14670PROC_b (FNj (db%))
14675ENDIF
14680WHEN4:PROCN (FNj (db%))
14685WHEN5
14690WHEN6:PROCCc (FNj (db%))
14695WHEN7:PROCDc:PROC` (0)
14700WHEN8:PROCFc
14705ENDCASE
14710IF(Rf%>0)THEN
14715PROCd (1196577875,db%)
14720ENDIF
14725ENDIF
14730UNTILNd%<0:IFV%=0THEN
14735IFA%!44THEN
14740Cd%=A%!48:WHILECd%:IFNOTCd%!20THEN
14745PROCselect_printer(Cd%,-1,0):Cd%=0
14750ELSE:Cd%=Cd%!0
14755ENDIF
14760ENDWHILE
14765ENDIF
14770ENDIF
14775ENDPROC
14780DEFPROCwa:PROCDc:PROC` (0):fa%=0:ENDPROC
14785DEFPROCCc (c$):ENDPROC
14790DEFFNda:LOCALC$,f%,v%,w%,e$,Uc%,Sf%:REPEAT:C$=q$+"RemQueue."+h$+"."+STR$Ka%:SYS424326:SYS131080,5,C$TOv%;f%:SYS424325:IFf%AND1THEN
14795Ka%=-1:=FNmsg_0 (A%!12,"OKAS",FNj(v%+4))
14800ENDIF
14805IF(v%<>0)THEN
14810Ka%+=1
14815ENDIF
14820UNTILv%=0:=""
14825DEFPROCBc (Qa$):LOCALRa$,Sa$,Ib%,Ta$,B$,c%,z%:LOCALM%,c$,H%,Rb%,Ua$,A$:B$=MID$(Qa$,INSTR(Qa$,".")+1):Ra$=Na$+"."+Qa$:Sa$=Na$+".RemQueue."+B$+"I":Ta$="":O$="":h%=OPENINSa$:IFh%=0THEN
14830ENDPROC
14835ENDIF
14840c%=BGET#h%:WHILE(NOTEOF#h%)AND(c%<>0):Ta$+=CHR$c%:c%=BGET#h%:ENDWHILE:c%=BGET#h%:WHILE(NOTEOF#h%)AND(c%<>0):Ua$+=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,Sa$:M%=A%!48:z%=0:WHILE(M%):IF(M%!40=0)THEN
14845H%=M%!4:c$=$(H%!4)
14850ELSE:c$=$(M%!40)
14855ENDIF
14860IFc$=Ta$THEN
14865z%=M%:M%=0
14870ELSE:M%=M%!0
14875ENDIF
14880ENDWHILE:IF(z%<>0)THEN
14885H%=z%!4:Rb%=H%!28:PROCeb (-1,"("+FNmsg_0 (A%!12,"IC9")+") "+A$,Ra$,B$,z%,Rb%)
14890ENDIF
14895ENDPROC
14900DEFPROCcb (Tf%,o$):LOCALe%,f%:SYS403072,Tf%TOe%;f%:IF(f%AND1)THEN
14905L$=FNmsg_0(A%!12,"UNKN"):M$=FNmsg_0(A%!12,"UNKN")
14910ELSE:L$=FNj (e%):M$=o$
14915ENDIF
14920ENDPROC
14925DEFFNA (z%,A$,o$):LOCALQa$,h%,f%,c$,M%:Qa$=q$+"RemQueue."+h$+"."+STR$(Ka%)+"I":c$=$z%!40:SYS131085,131,Qa$TOh%;f%:IF(f%AND1)h%=0
14930IFh%<>0THEN
14935BPUT#h%,c$+CHR$0+h$+CHR$0+A$+CHR$0+o$:SYS131085,0,h%TO;f%
14940ENDIF
14945IF(f%AND1)ORh%=0:=0
14950=-1
14955DEFPROCHb:LOCALz%,nb%,R%:IFNOTFNwTHEN
14960PROCj(FNmsg_0(A%!12,"OKAV"),1):ENDPROC
14965ENDIF
14970IFINSTR(FN`,"Share:")>0THEN
14975PROCb (FNmsg_0 (A%!12,"OKAT")):ENDPROC
14980ENDIF
14985REPEAT:PROCt (z%,R%,nb%):PROCicon_deselect (Bb%,nb%):IFz%AND((z%!24AND(1<<17))=0)THEN
14990PROCLa (z%)
14995ENDIF
15000UNTIL(z%=0)AND(R%=0):ENDPROC
15005DEFPROCLa (z%):LOCALc$,Uf%,fc%,Vf%,W$,f%,bb%,f$,Wf%,Va$,H%:IF(z%!24AND(1<<17))>0THEN
15010ENDPROC
15015ENDIF
15020IF(z%!40=0)THEN
15025H%=z%!4:c$=$(H%!4)
15030ELSE:c$=$(z%!40)
15035ENDIF
15040IFNOTFNwTHEN
15045PROCj(FNmsg_1(A%!12,"OKAW",c$),1):z%!24=z%!24AND(NOT(1<<16)):ENDPROC
15050ENDIF
15055IFINSTR(FN`,"Share:")>0THEN
15060PROCb (FNmsg_1 (A%!12,"OKAU",c$)):z%!24=z%!24AND(NOT(1<<16)):ENDPROC
15065ENDIF
15070R$=$(z%!8):IF(z%!24AND1)=0THEN
15075PROCZ (z%)
15080ENDIF
15085Uf%=0:REPEAT:SYS131107,"Inet$LocalAddr*",0,1<<31,Uf%,0TO,,Vf%:IFVf%<0THEN
15090fc%=FNf (1196577875,NOT(Vf%)+1):IF(fc%>0)THEN
15095SYS35,"Inet$LocalAddr*",fc%,NOT(Vf%),Uf%,0TO,,,Uf%:fc%?(NOT(Vf%))=0:W$=FNj (fc%):PROCd (1196577875,fc%):f$="unshare _S"+W$:SYS131077,f$:f$="share <Wimp$ScrapDir>.Printers _S"+W$+" -noicon":SYS131077,f$
15100ENDIF
15105ENDIF
15110UNTILVf%>=0:PROCGc (z%,c$):SYS424578,0,2,c$,0,0TO,,,,,Vb%;f%:IF(f%AND1)=0THEN
15115PROCb (FNmsg_1 (A%!12,"OKAQ",c$)):ENDPROC
15120ENDIF
15125Wf%=A%!48:WHILEWf%:IF(Wf%!40=0)THEN
15130H%=Wf%!4:Va$=$(H%!4)
15135ELSE:Va$=$(Wf%!40)
15140ENDIF
15145IF(Va$=c$)AND((Wf%!24AND(1<<16))>0)THEN
15150PROCb (FNmsg_1 (A%!12,"OKAQa",c$)):ENDPROC
15155ENDIF
15160Wf%=Wf%!0:ENDWHILE:SYS424577,0,2,c$,LENR$,R$TObb%;f%:IF(f%AND1)THEN
15165PROCb (FNmsg_1 (A%!12,"OKAQ",c$)):ENDPROC
15170ENDIF
15175z%!24=z%!24OR(1<<16):ENDPROC
15180DEFPROCgb (z%):LOCALc$,Vf%,fc%,Xf%,R$,W$,H%:IF(z%!40=0)THEN
15185H%=z%!4:c$=$(H%!4)
15190ELSE:c$=$(z%!40)
15195ENDIF
15200IF(z%!24AND(1<<16))THEN
15205z%!24=z%!24AND(-1-(1<<16))
15210ENDIF
15215IFGa%THEN
15220SYS293505,1,2,c$,0,0
15225ENDIF
15230ENDPROC
15235DEFPROCHc:ENDPROC
15240DEFPROCP:Zf%=Oc%:_f%=!tb%:`f%=xc%:ag%=ub%:Wa$=V$:ENDPROC
15245DEFPROCQ:Oc%=Zf%:!tb%=_f%:xc%=`f%:ub%=ag%:V$=Wa$:ENDPROC
15250DEFPROCMa:bg%=Oc%:cg%=!tb%:dg%=xc%:eg%=ub%:Xa$=V$:ENDPROC
15255DEFPROCNa:Oc%=bg%:!tb%=cg%:xc%=dg%:ub%=eg%:V$=Xa$:ENDPROC
15260DEFFNx(R%,fg%,gg%,hg%,RETURNig%):LOCALZa$,_a$,`$:LOCALTa$,s$,`a$,c$,jg%:LOCALhb%,kg%,lg%,mg%,jb%,p%,z%:LOCALERROR:ig%=0:SYS263872:Za$="Share::_S"+FNt (R%!12)+".$":hb%=0:SYS424326:SYS131080,17,Za$TO;hb%:SYS424325:IF(hb%AND1)THEN
15265IFhg%THEN
15270ig%=-1
15275ELSE:PROCb(FNmsg_1 (A%!12,"OKAOs",$R%!4))
15280ENDIF
15285SYS263873:=0
15290ENDIF
15295c$=$R%!4:p%=INSTR(c$," "):WHILEp%:MID$(c$,p%,1)=CHR$160:p%=INSTR(c$," ",p%+1):ENDWHILE:`a$=Za$+"."+c$:z%=FNxa(R%,`a$,fg%,gg%,hg%,ig%):SYS263873:=z%
15300DEFFNxa (R%,ab$,hb%,gg%,hg%,RETURNig%):LOCALdb%,H%,M%,s$,U%,Ac%,Bc%,Cc%,Dc%,Fc%,Pc%:LOCALz%,N%,Pa$,`$,lg%,i%,ng%,ab%,og%,pg%,qg%,rg%:LOCALsg%,ig%,jg%:ig%=0:IFNOTFNk (ab$)THEN
15305SYS263873:IFhg%THEN
15310ig%=-1:=0
15315ELSE:PROCb (FNmsg_1(A%!12,"OKAOs",$R%!4))
15320ENDIF
15325ENDIF
15330SYS263872:PROCMb(H%):Cc%=H%!12:IFCc%THEN
15335Ac%=Cc%!4:IFAc%THEN
15340M%=!tb%:U%=H%!8:U%=U%!4:J%=FNb($(U%+16)):IFJ%THEN
15345WHILEAc%:IF$Ac%!8=$J%THEN
15350PROCm:SYS263873:z%=FNya($R%!4,$R%!8,H%,Ac%,gg%,hg%,ig%):=z%
15355ENDIF
15360Bc%=Ac%:Ac%=Ac%!0:ENDWHILE
15365ELSE:PROCp(FNmsg_1(A%!12,"OKZc",$(U%+16)))
15370ENDIF
15375!tb%=M%
15380ELSE:Bc%=0
15385ENDIF
15390ELSE:Bc%=0
15395ENDIF
15400PROCW(H%!8,Bc%,Cc%,0,Dc%,Fc%,H%):PROCm:H%!24=H%!24OR2:z%=FNya($R%!4,$R%!8,H%,Bc%,gg%,hg%,ig%):SYS263873:=z%
15405DEFPROCZb (z%):LOCALi%,M%,Fd%,Gd%,Cd%,y$,nb%,R%,tg%:PROCt (tg%,R%,nb%):IF(NOTtg%)ANDR%THEN
15410ENDPROC
15415ENDIF
15420SYS263872:M%=A%!48:WHILEM%:IFM%!0=z%THEN
15425Fd%=M%:M%=0
15430ELSE:M%=M%!0
15435ENDIF
15440ENDWHILE:y$=$z%!8:PROC`b(z%,Fd%):PROCLb(y$):IFV%=0THEN
15445IFA%!44THEN
15450Cd%=A%!48:WHILECd%:IFNOTCd%!20THEN
15455PROCselect_printer(Cd%,-1,0):Cd%=0
15460ELSE:Cd%=Cd%!0
15465ENDIF
15470ENDWHILE
15475ENDIF
15480ENDIF
15485IFV%=0PROCz
15490B%=1482184792:C%=Gd%:CALLP%+16:PROCk:IFFNh(Bb%)THEN
15495PROCq(Bb%)
15500ENDIF
15505SYS263873:ENDPROC
15510DEFFNza (H%):LOCALz%,Nf%:z%=A%!48:Nf%=0:WHILEz%:IFz%!4=H%THEN
15515Nf%=-1:z%=0
15520ELSE:z%=z%!0
15525ENDIF
15530ENDWHILE:=Nf%
15535DEFFNJ:LOCALBf%,Nf%:Nf%=0:Bf%=Ha%:WHILEBf%:IFBf%!20>0THEN
15540Nf%+=1
15545ENDIF
15550Bf%=Bf%!0:ENDWHILE:=Nf%
15555DEFPROCFc:LOCALz%,Cd%:IFNOTGa%THEN
15560ENDPROC
15565ENDIF
15570z%=A%!48:WHILEz%:IFz%!24AND(1<<17)THEN
15575PROCN ($z%!40)
15580ENDIF
15585z%=z%!0:ENDWHILE:PROCDc:PROCk:IFV%=0THEN
15590IFA%!44THEN
15595Cd%=A%!48:WHILECd%:IFNOTCd%!20THEN
15600PROCselect_printer(Cd%,-1,0):Cd%=0
15605ELSE:Cd%=Cd%!0
15610ENDIF
15615ENDWHILE
15620ENDIF
15625ENDIF
15630Ga%=0:ENDPROC
15635DEFPROCDc:LOCALBf%,`e%,Cd%:Bf%=Ha%:WHILEBf%:`e%=Bf%!0:IFBf%!20<=0THEN
15640PROCN ($Bf%!4)
15645ENDIF
15650Bf%=`e%:ENDWHILE:IFV%=0THEN
15655IFA%!44THEN
15660Cd%=A%!48:WHILECd%:IFNOTCd%!20THEN
15665PROCselect_printer(Cd%,-1,0):Cd%=0
15670ELSE:Cd%=Cd%!0
15675ENDIF
15680ENDWHILE
15685ENDIF
15690ENDIF
15695ENDPROC
15700DEFFNO(H%,bb$,s$):="Printers:Remote.ID"+bb$+"."+$H%!4+"."+s$
15705DEFPROCIc (z%):ENDPROC
15710DEFFNya(c$,R$,H%,S%,gg%,hg%,RETURNig%):LOCALs%,t%,s$,z%,N%:ig%=0:S%!(S%!4*4+8)+=1:B%=1414419024:C%=68:z%=USR(P%+12):IFz%=0ERROR254,FNmsg_1(A%!12,"FA5","PRNT")
15715IFA%!48THEN
15720s%=A%!48:WHILEs%!0:s%=s%!0:ENDWHILE:s%!0=z%
15725ELSE:A%!48=z%
15730ENDIF
15735z%!0=0:z%!4=H%:B%=S%!8:C%=2:z%!8=USR(P%+28):B%=1413697091:C%=36:N%=USR(P%+12):IFN%=0ERROR254,FNmsg_1(A%!12,"FA5","CNCT")
15740N%!0=9:N%?4=1+((s%AND28)>>2):N%?5=0:SYS6,161,16TO,,s%:N%!8=(s%AND224)>>5:IFNOTFNsTHEN
15745N%!12=0
15750ELSE:SYS6,161,3TO,,s%:SYS6,161,4TO,,t%:IFs%THEN
15755$q%=STR$t%+"."+STR$s%:B%=q%:C%=2:N%!12=USR(P%+28)
15760ELSE:s$=CHR$t%:FORs%=1TO5:SYS6,161,152+s%TO,,t%:IFt%s$+=CHR$t%ELSEs%=5
15765NEXT:$q%=s$:B%=q%:C%=2:N%!12=USR(P%+28)
15770ENDIF
15775ENDIF
15780SYS131107,"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")
15785IF0<=H%!36-1THEN
15790FORt%=0TOH%!36-1:s%!(t%*4)=0:NEXT
15795ENDIF
15800z%!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
15805z%!48=FNG
15810ELSE:z%!48=0
15815ENDIF
15820z%!52=0:PROCc(H%,z%,-4,0):IFH%!24AND4PROCc(H%,z%,-12,0)
15825PROCJ (z%!40,$R%!4):PROCk:IFH%!24AND8THEN
15830z%!56=10*H%?(24+1)
15835ELSE:z%!56=-1
15840ENDIF
15845z%!24=z%!24OR(1<<17):IFNOTgg%THEN
15850PROCJc(z%,hg%,ig%)
15855ENDIF
15860=z%
15865DEFPROCRa (c$,`$,R$):LOCALz%,nb%,mb%,p%,ug%,Bf%:z%=A%!48:IFNOTz%THEN
15870nb%=251658240:mb%=-5
15875ELSE:nb%=FNW (z%):mb%=-3
15880ENDIF
15885da$="su_"+`$:ug%=FNr (c$,da$,mb%,nb%):PROCK (Ha%,FNwa (c$,ug%,R$)):IFA%!48=0ANDrb%>0THEN
15890PROCD (-1,rb%):rb%=-1
15895ENDIF
15900ENDPROC
15905DEFPROCSa(z%):LOCALJ%,S%,d%,N%,h%,X$,vb%,H%:cb%=z%!16:H%=z%!4:h%=FNc($FNe("cs:")):IF0<=h%-1THEN
15910FORd%=0TOh%-1:J%=FNd:IFJ%THEN
15915T%=FNa(J%,"nl:"):IFT%THEN
15920cb%!(d%*4)=0
15925ELSE:T%=FNa(J%,"in:"):IFT%THEN
15930cb%!(d%*4)=FNstore_integer(FNc($T%))
15935ELSE:T%=FNa(J%,"st:"):IFT%THEN
15940B%=T%:C%=2:cb%!(d%*4)=USR(P%+28)
15945ELSE:T%=FNa(J%,"s0:"):IFT%THEN
15950B%=T%:C%=3:cb%!(d%*4)=USR(P%+28)
15955ELSE:T%=FNa(J%,"gs:"):IFT%THEN
15960B%=T%:C%=4:cb%!(d%*4)=USR(P%+28)
15965ELSE:T%=FNa(J%,"pt:"):IFT%THEN
15970B%=1381257040:C%=4:cb%!(d%*4)=USR(P%+12):IFcb%!(d%*4)=0ERROR253,FNmsg_1(A%!12,"FA5","POTR")
15975!cb%!(d%*4)=FNAa($T%)
15980ELSE:PROCR(FNmsg_1(A%!12,"OKH",$J%))
15985ENDIF
15990ENDIF
15995ENDIF
16000ENDIF
16005ENDIF
16010ENDIF
16015ENDIF
16020NEXT
16025ENDIF
16030PROCZ (z%):ENDPROC
16035DEFFN`:=FNtask_read_env ("Wimp$ScrapDir",ba%)
16040DEFPROCGc (z%,c$):LOCALH%,vb%,S%,c%,ab%,U%,tc%,i%,j%,k%,l%,s$,p%,cb$,pb%,vg%,wg%:SYS263872:H%=z%!4:cb$=$z%!8:IFH%THEN
16045IFH%!8THEN
16050p%=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:ab%=H%!8:vb%=H%!12:IF$(ab%+12)<>"printers"THEN
16055BPUT#c%,$(ab%+12)+":":BPUT#c%,"#"
16060ENDIF
16065S%=vb%!4:WHILES%:IFS%!(S%!4*4+8)THEN
16070U%=ab%!4:i%=S%+8:IFLEFT$($(U%+16),6)="pr_nme"THEN
16075IFFNprinter_read_string(!i%)=cb$THEN
16080vg%=-1
16085ELSE:vg%=0
16090ENDIF
16095ELSE:vg%=-1
16100ENDIF
16105WHILEU%:IFvg%THENBPUT#c%,$(U%+16)+" ";
16110IF!i%=0THEN
16115IFU%!4=6THEN
16120IFvg%THENBPUT#c%,48
16125ELSE:IFU%!4=1THEN
16130IFvg%THENBPUT#c%,48
16135ENDIF
16140ENDIF
16145IFvg%THENBPUT#c%,10
16150ELSE:j%=!i%:CASEU%!4OF
16155WHEN1:IFvg%THENBPUT#c%,STR$!j%
16160WHEN2:IFvg%THENBPUT#c%,FNprinter_read_string(j%)
16165WHEN3:IFvg%THENBPUT#c%,FNprinter_read_string(j%)
16170WHEN4:IFvg%THENBPUT#c%,FNungstrans(FNprinter_read_string(j%))
16175WHEN5:IFvg%THENBPUT#c%,10
16180CASEU%!8OF
16185WHEN1:IFvg%THENBPUT#c%," "+STR$!j%!0+", "+STR$!j%!4
16190WHEN2:IFvg%THENBPUT#c%," "+FNprinter_read_string(j%!0)
16195IFvg%THENBPUT#c%," "+FNprinter_read_string(j%!4)
16200WHEN3:IFvg%THENBPUT#c%," "+FNprinter_read_string(j%!0)
16205IFvg%THENBPUT#c%," "+FNprinter_read_string(j%!4)
16210WHEN4:IFvg%THENBPUT#c%," "+FNungstrans(FNprinter_read_string(j%!0))
16215IFvg%THENBPUT#c%," "+FNungstrans(FNprinter_read_string(j%!4))
16220WHEN7:IFvg%THENBPUT#c%," ";
16225IFvg%THENPROCr(!j%!0,H%,c%,wg%)
16230IFvg%THENBPUT#c%,", ";
16235IFvg%THENPROCr(!j%!4,H%,c%,wg%)
16240ENDCASE
16245WHEN6:k%=j%:l%=0:WHILEk%:l%+=1:k%=!k%:ENDWHILE:IFvg%THENBPUT#c%,STR$l%
16250WHILEj%:IF0<=j%!4-1THEN
16255FORk%=0TOj%!4-1:l%=j%!(k%*4+8):CASEl%!-4OF
16260WHEN1196707401:IFvg%THENBPUT#c%," "+STR$!l%+", ";
16265WHEN1196577875:IFvg%THENBPUT#c%," "+$l%+", ";
16270WHEN810701907:CALLZ%,l%,s$:IFvg%THENBPUT#c%," "+s$+", ";
16275WHEN1381258055:CALLY%,l%,s$:IFvg%THENBPUT#c%," "+FNungstrans(s$)+", ";
16280WHEN1381257040:IFvg%THENPROCr (!l%,H%,c%,wg%)
16285IFvg%THENBPUT#c%,"##"
16290ENDCASE
16295NEXT
16300ENDIF
16305IFvg%THENPTR#c%=PTR#c%-2
16310IFvg%THENBPUT#c%,10
16315j%=!j%:ENDWHILE
16320WHEN7:IFvg%THENPROCr (!j%,H%,c%,wg%)
16325WHEN8:k%=j%:l%=0:WHILEk%:l%+=1:k%=!k%:ENDWHILE:IFvg%THENBPUT#c%,STR$l%
16330WHILEj%:s$=CHR$j%?4:IF1<=j%?5THEN
16335FORk%=1TOj%?5:s$+=CHR$j%?(k%+5):NEXT
16340ENDIF
16345IFvg%THENBPUT#c%," "+FNungstrans(s$)
16350j%=!j%:ENDWHILE
16355ENDCASE
16360ENDIF
16365U%=U%!0:i%+=4:ENDWHILE:IFvg%THENBPUT#c%,"#"
16370ENDIF
16375S%=S%!0:ENDWHILE:CLOSE#c%:SYS131080,18,"<Wimp$ScrapDir>.Printers."+c$,4038:SYS131080,4,"<Wimp$ScrapDir>.Printers."+c$,,,,3
16380ENDIF
16385ENDIF
16390SYS263873:ENDPROC
16395DEFPROCr (M%,H%,c%,wg%):LOCALdb$,ab%,U%,jb%,i%,j%,eb$,pb%,k%,l%,p%,s$:wg%+=1:eb$=FNo (M%,H%):U%=INSTR(eb$,":"):db$=MID$(eb$,1,U%-1):ab%=H%!8:jb%=0:WHILEab%ANDNOTjb%:IF$(ab%+12)=db$THEN
16400jb%=-1
16405ELSE:ab%=ab%!0
16410ENDIF
16415ENDWHILE:IFNOTjb%ANDNOTab%THEN
16420ENDPROC
16425ENDIF
16430BPUT#c%," "+db$+":":U%=ab%!4:i%=FNAa (eb$):IFi%=0THEN
16435ENDPROC
16440ENDIF
16445i%=i%+8:WHILEU%:BPUT#c%,$(U%+16)+" ";:IF!i%=0THEN
16450IFU%!4=6THEN
16455BPUT#c%,48
16460ELSE:IFU%!4=1THEN
16465BPUT#c%,48
16470ENDIF
16475ENDIF
16480BPUT#c%,10
16485ELSE:j%=!i%:CASEU%!4OF
16490WHEN1:BPUT#c%,STR$!j%
16495WHEN2:BPUT#c%,FNprinter_read_string(j%)
16500WHEN3:BPUT#c%,FNprinter_read_string(j%)
16505WHEN4:BPUT#c%,FNungstrans(FNprinter_read_string(j%))
16510WHEN5:BPUT#c%,10:CASEU%!8OF
16515WHEN1:BPUT#c%," "+STR$!j%!0+", "+STR$!j%!4
16520WHEN2:BPUT#c%," "+FNprinter_read_string(j%!0):BPUT#c%," "+FNprinter_read_string(j%!4)
16525WHEN3:BPUT#c%," "+FNprinter_read_string(j%!0):BPUT#c%," "+FNprinter_read_string(j%!4)
16530WHEN4:BPUT#c%," "+FNungstrans(FNprinter_read_string(j%!0)):BPUT#c%," "+FNungstrans(FNprinter_read_string(j%!4))
16535WHEN7:BPUT#c%," ";:PROCr(!j%!0,H%,c%,wg%):BPUT#c%,", ";:PROCr(!j%!4,H%,c%,wg%)
16540ENDCASE
16545WHEN6:k%=j%:l%=0:WHILEk%:l%+=1:k%=!k%:ENDWHILE:BPUT#c%,STR$l%:WHILEj%:IF0<=j%!4-1THEN
16550FORk%=0TOj%!4-1:l%=j%!(k%*4+8):CASEl%!-4OF
16555WHEN1196707401:BPUT#c%," "+STR$!l%+", ";
16560WHEN1196577875:BPUT#c%," "+$l%+", ";
16565WHEN810701907:CALLZ%,l%,s$:BPUT#c%," "+s$+", ";
16570WHEN1381258055:CALLY%,l%,s$:BPUT#c%," "+FNungstrans(s$)+", ";
16575WHEN1381257040:PROCr (!l%,H%,c%,wg%):BPUT#c%,"##"
16580ENDCASE
16585NEXT
16590ENDIF
16595PTR#c%=PTR#c%-2:BPUT#c%,10:j%=!j%:ENDWHILE
16600WHEN7:PROCr (!j%,H%,c%,wg%)
16605WHEN8:k%=j%:l%=0:WHILEk%:l%+=1:k%=!k%:ENDWHILE:BPUT#c%,STR$l%:WHILEj%:s$=CHR$j%?4:IF1<=j%?5THEN
16610FORk%=1TOj%?5:s$+=CHR$j%?(k%+5):NEXT
16615ENDIF
16620BPUT#c%," "+FNungstrans(s$):j%=!j%:ENDWHILE
16625ENDCASE
16630ENDIF
16635U%=U%!0:i%+=4:ENDWHILE:BPUT#c%,"#":ENDPROC
16640DEFFNAa(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
16645j%=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
16650k%-=1
16655ENDIF
16660ENDWHILE:=j%
16665ELSE:j%=j%!0:k%+=1
16670ENDIF
16675ENDWHILE:PROCb(FNmsg_2(A%!12,"FAG",s$,t$)):=0
16680DEFPROCJc(z%,hg%,RETURNig%):ig%=0:z%!24=z%!24OR1:N%=z%!12:PROCUa(z%):PROCA(z%):IFA%!44=1THEN
16685PROCAc(z%,-1,0,hg%,ig%)
16690ENDIF
16695ENDPROC
16700DEFPROCAc(z%,ac%,bc%,hg%,RETURNig%):LOCALcc%,i%,s$:ig%=0:cc%=V%:IFNOTbc%V%=z%
16705IFV%=0ENDPROC
16710s$=FNm(V%,0):IFs$<>""THEN
16715IFac%THEN
16720V%!24=V%!24ANDNOT2
16725ENDIF
16730V%!24=V%!24OR4:PROCi(V%):PROCf(-1,V%,0):IFV%=cc%THEN
16735PROCicon_deselect(-1,cc%!20):cc%=0
16740ENDIF
16745V%=cc%:IFhg%THEN
16750ig%=-1
16755ELSE:PROCb(s$)
16760ENDIF
16765ENDPROC
16770ENDIF
16775PROCc(V%!4,V%,-6,0):PROCub(V%):PROCz:IFac%THEN
16780IFcc%THEN
16785PROCicon_deselect(-1,cc%!20):cc%!24=cc%!24ANDNOT2
16790ENDIF
16795V%!24=V%!24OR2:PROCicon_select(-1,V%!20):SYS524608TO,,,,i%:IF?i%CALLZ%,i%,s$:SYS36,"Printer$",i%,LENs$
16800ELSE:V%=cc%
16805ENDIF
16810ENDPROC
�>Datafiles.!RunImage
��,�$
|ș263872:�A%84,A%!16 256,W%256,aa%256,O%512,q%1024,X%256,ba%256:�a%(4):�aa("Printers:Messages",A%!12):��_(A%!12):���,�$
T�ba:�ca(�msg_0(A%!12,"ID")):�da:�ea:�fa:�ga:�ha:�P%+8:�ia:�ja:�ka:ș263873:��la
�:�v(A%!20):�0:�
(��v(ca%):�r%,t%,z%:r%=�aa(ca%):Ȏr%�
#�0:�ma:�na
(
�1:�oa
-�2:ș262341,,q%
2 �3:�e
7
�6:�pa
<�7:�da%�
A�qa
F�:�w(V%,7,q%)
K�
P
�8:�ra
U
�9:�sa
Z�13:!(q%!0)=0:�ta
_�17,18:�ua(r%)
d�19:�va
i:�w(V%,r%,q%)
n�
s'ea%=-1:z%=A%!48:ȕz%:t%=z%!56:�t%�
x�ea%=-1ea%=t%��t%<ea%ea%=t%
}�
�z%=z%!0:�:Ȏfa%�
��1:ea%+=500:fa%=2
��2:�wa:fa%=0
��
��
�`��ja:�j$:q%!0=24:q%!12=0:q%!16=524611:q%!20=34:ș262375,18,q%:ga%=q%!8:�xa:�ya:�` (-1):�ha%�
�:j$="<Printers$Path>Remote.ID"+h$:ș131080,8,j$:j$+="."
��:j$="<Printers$Path>"
��
�Hș36,"PrinterChoices$Path",j$,�j$,0,0:�O("Printers:PaperRO",2):�ha%�
�3�O ("<Printers$Dir>.Remote.ID"+h$+".PaperRW",1)
�$�:�O("<Printers$Dir>.PaperRW",1)
��
�"�ia%=0�253,�msg_0(A%!12,"FAK")
��za:ea%=-1:ș66�ja%:�Aa:�
�3��xa:A%!20=12589105:ka%=12589427:la%=12589361:�
�V��ba:�h%,l%,a%,w%: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:�
����ya:c=1814.4*72000/(180<<8):d=72000:ma%=44:na%=0:oa%=0:pa%=0:qa%=0:ra%=0:sa%=0:A%!48=0:A%!44=0:V%=0:ta%=0:J$="":ua%=0:va%=0:wa%=0:xa%=0:A%!24=0:A%!28=0:g$="null:":ya%=0:za%=0:A%!32=0:aa$="":A%!36=0:Aa%=0:Ba%=0:ia%=0:Ca%=0:Da%=0
�ș6,204,,255�,Fa%:K$="":ba$="":A%!76=0:A%!80=0:Ga%=0:Ha%=0:Ia%=0:Ja%=0:h$="":Ka%=0:q$="":L$="":M$="":La%=0:Ma%=0:fa%=0:ha%=0:�
�x��ha:�c%,d%,Na%,Oa%,Pa%,Qa%,Ra%:�a$():�a$(255):Pa%=0:Qa%=0:Sa%=0:Ta%=0:Ua%=0:Va%=0:c%=-1:�:�Ba(j$,U$,c$,c%):�c$<>""�
�Zș8,17,"Printers:"+c$+".Resources.Support"�d%,,Na%,,Oa%:�d%=1�(Na%�-1048576)=-1048576�
�$Oa%=Oa%+3��3:Ȏ(Na%�1048320)>>8�
�4091:�Oa%>Pa%Pa%=Oa%
�Sa%<255a$(Sa%)=c$
Sa%+=1
�4092:Qa%+=Oa%:Ta%+=1
�
�
"�
'%�c$="":�Ta%>0�b%(Ta%-1),b$(Ta%-1)
,Ra%=�+Qa%+Pa%+16*1024:�=Ra%
1�(�+Qa%+Pa%+16*1024)<Ra%�
6>Ra%=Ra%/1024:Ra%=Ra%-Ra%�8+8:�253,�msg_1(A%!12,"FA4",�Ra%)
;�
@�Sa%>0�
ER�c$(Sa%-1):�d%=0�Sa%-1:c$(d%)="Printers:"+a$(d%)+".Resources.Support":�:ȣc$()
J�
O�
TP��Ba(�j$,�U$,�c$,�Wa%):�i%,Xa%:�Wa%=-1j$=�task_read_env("Printers$Path",ba%)
Y�:�Wa%=-1�
^�j$=""�
cc$="":�
h�
mi%=�j$,","):�i%=0i%=�j$+1
r!U$=�j$,i%-1):��U$)="."U$=�U$)
wU$+=�0:j$=�j$,i%+1):Wa%=0
|�
�3ș12,10,U$,ba%,1,Wa%,256,"*"�,,,Xa%,Wa%:�Xa%=1�
��ba%!16=2�
�i%=ba%+20:�Z%,i%,c$:�
��
��:Wa%=-1
��
��0:�
�v��Ca(c$):�Na%,Oa%,f$:f$="Printers:"+c$+".Resources.Support":ș8,17,f$�d%,,Na%,,Oa%:Oa%=Oa%+3��3:�d%<>1ș8,19,f$,d%
�2�(Na%�-1048576)<>-1048576�254,�msg_1("FA3",c$)
�Ȏ(Na%�1048320)>>8�
� �4091
��4092:�Va%<Ta%�
�4�u%Oa%:b%(Va%)=u%:b$(Va%)=c$:ș8,16,f$,u%:Va%+=1
��
�:�254,�msg_1("FA3",c$)
��
��
�{��Da(c$,�Za%):�d%,Na%,f$,h%,_a%,`a%,H%:�ab%:f$="Printers:"+c$+".Resources.Support":ș8,17,f$�d%,,Na%:�d%<>1ș8,19,f$,d%
�2�(Na%�-1048576)<>-1048576�254,�msg_1("FA3",c$)
�JB%=1347769168:C%=60:Za%=�(P%+12):�Za%=0�253,�msg_1(A%!12,"FA5","PSUP")
�Ȏ(Na%�1048320)>>8�
��4091:Za%!24=1
��4092:Za%!24=0
�=:B%=1347769168:C%=Za%:�P%+16:�254,�msg_1(A%!12,"FA3",c$)
��
�kZa%!0=0:$q%=c$:B%=q%:C%=2:Za%!4=�(P%+28):Za%!8=0:Za%!12=0:ș8,17,�g(Za%,"Resources.!Sprites")�d%:�d%=1�
Uș131077,"IconSprites "+�g(Za%,"Resources.!Sprites")�C%;d%:�(d%�1)!C%=253:ș43,C%
�
1ș8,17,�g(Za%,"Resources.Messages")�d%:�d%=1�
2�aa(�g(Za%,"Resources.Messages"),d%):Za%!16=d%
�:Za%!16=0
�
!Mș8,17,�g(Za%,"Resources.Templates")�d%:�d%<>1�254,�msg_1(A%!12,"FA2",c$)
&j�Fa(�g(Za%,"Resources.Templates"),�g(Za%,"Resources.Template3D")):d%=0:`a%=Za%+20:�:�Ga("",d%,c$):�d%�
+_�l("",c$,1,h%):B%=1145981271:C%=16+1+�c$:_a%=�(P%+12):�_a%=0�253,�msg_1(A%!12,"FA5","WIND")
0E_a%!0=0:_a%!4=h%:_a%!8=0:_a%!12=0:$(_a%+16)=c$:!`a%=_a%:`a%=_a%+0
5�
:U�d%=0:�Ha:�c(Za%,0,-1,0):笤k(�g(Za%,"Template"))�254,�msg_1(A%!12,"OK1a",$Za%!4)
?�Ia(Za%):�m:�ha%�
D笤k(�O(Za%,h$,"PrData"))�
I�f$="<Printers$Dir>.Remote.ID"+h$+"."+$Za%!4:ș131080,8,f$:f$="<Printers$Dir>.Remote.ID"+h$+"."+$Za%!4+".PrData":d%=�(f$):�d%=0�
N#�254,�msg_1(A%!12,"OK1",$Za%!4)
S��:ab%=Za%!8:ȕab%:�#d%,$(ab%+12)+":":�#d%,"#":ab%=ab%!0:�:�#d%:ș8,18,f$,4038:笤k(�O(Za%,h$,"PrData"))�254,�msg_1(A%!12,"OK1",$Za%!4)
X�
]�
b;�:笤k(�g(Za%,"PrData"))�254,�msg_1(A%!12,"OK1",$Za%!4)
g�
l7�Ja(Za%):�m:�O(�g(Za%,"Resources.PaperRO"),0):�ra%�
q$H%=ra%:ȕH%!0:H%=H%!0:�:H%!0=Za%
v
�:ra%=Za%
{�
��
�9��Ka:�z%,H%,t%:ea%=-1:z%=A%!48:ȕz%:H%=z%!4:�H%!24�8�
�/t%=10*H%?(24+1):�ea%=-1ea%=t%��t%<ea%ea%=t%
�z%!56=t%
��:z%!56=-1
��
�z%=z%!0:�:ș66�ja%:�
�Sݤw:�ca$,f%,bb%,s$:�z%,H%,c$:ca$=�task_read_env("Wimp$ScrapDir",ba%):�ca$="":=0
��ca$<>ba$�
�9ș131080,8,"<Wimp$ScrapDir>.Printers"�bb%;f%:�(f%�1)�
�Lbb%+=4:�Z%,bb%,s$:�b(�msg_2(A%!12,"WA13","<Wimp$ScrapDir>.Printers",s$))
��:ba$=ca$:�Ga%�
�xș131080,8,"<Wimp$ScrapDir>.Printers.RemQueue"�bb%;f%:�(f%�1)=0ș131080,8,"<Wimp$ScrapDir>.Printers.RemSpool"�bb%;f%
��(f%�1)�
�Lbb%+=4:�Z%,bb%,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)
��
��La (z%)
��
�
z%=z%!0:�
��
�
=-1
���Aa:�c%,d%,s$,J%,c$,H%,cb%,t%,db%,eb%,fb%,gb%:�hb%,ib%,R%,jb%,kb%,lb%,k$,z%,mb%,nb%,da$,p%,ob%,s$,pb%:�kb%,qb%:rb%=�r(�msg_0(A%!12,"NNE"),"s"+�msg_0(A%!12,"IC"),-5,251658240):sb%=-1:�ha%�
=s$="<Printers$Dir>.Remote.ID"+h$+".Settings":ș8,17,s$�c%
)�:ș8,17,"<Printers$Dir>.Settings"�c%
�
�c%=1�
% �ha%�
*%笤k (s$)�254,�msg_0(A%!12,"OKD")
/=�:笤k("<Printers$Dir>.Settings")�254,�msg_0(A%!12,"OKD")
4�
9J%=�b("fv:"):�J%=0�
>�j(�msg_0(A%!12,"OKV"),1)
C�:�c($J%)<>1�
H�j(�msg_0(A%!12,"OKV"),1)
M5�:�P:�:J%=�b("cl:"):�Ma:hb%=0:ib%=�b("fg:"):�ib%�
Rhb%=�c ($ib%)
W�
\#db%=�b("sn:"):�db%c$=$db%�c$=""
a*�Na:�(J%>0)�((hb%�(1<<17))=0)�(ib%>0)�
fd%=�$J%,":"):�d%=0d%=�$J%+1
kHs$=�$J%,d%+1):$J%=�$J%,d%-1):H%=ra%:eb%=0:ȕH%��eb%:�$H%!4=$J%eb%=-1
p�eb%H%=H%!0
u�:�eb%�
z'�Oa:�Ca($J%):�Da($J%,H%):�Pa:eb%=-1
�
�
�eb%�
�#db%=�b("nm:"):�db%c$=$db%�c$=""
�"�b(�msg_2(A%!12,"WA1",$J%,c$))
�
�:�Qa(H%)
��
��
�I�J%=0:�Q:�:J%=�b("cl:"):kb%=!tb%:qb%=ub%:�P:hb%=0:ib%=�b("fg:"):�ib%�
�hb%=�c ($ib%)
��
�#db%=�b("sn:"):�db%c$=$db%�c$=""
�)�Q:�(J%>0)�((hb%�(1<<17))>0)�(ib%>0)�
�%jb%=0:R%=Ha%:ȕR%��jb%:�c$=$R%!4�
�
jb%=-1
�
�:R%=R%!0
��
��:�jb%��Ga%�
�p%=�$J%,":"):�p%=0�
�p%=�$J%
��
��Ra (c$,�$t%,1,p%-1)," ")
�
�:�hb%�1�
�Y�P:z%=�x (R%,hb%,-1,0,gb%):�Q:�P:!tb%=kb%:ub%=qb%:�Sa (z%):�Q:�Ta (Ha%,$R%!4):�hb%�2�
�z%!24=z%!24�2
��:z%!24=z%!24��2
��
�
�
�
�J%=0
�
�
�m
$�
)0�w(A%!48,-5,0):ob%=0:z%=A%!48:ȕz%:�z%!24�2�
.ob%=-1:fb%=z%:z%=0
3
�:z%=z%!0
8�
=�:z%=A%!48:�(�ob%)�(z%)�
B�select_printer (z%,-1,0)
G�:�ob%�fb%�
L�select_printer (fb%,-1,0)
Q�
V�
[�
`F��Qa(H%):�J%,S%,z%,d%,N%,h%,X$,vb%:J%=�e("nm:"):X$=$J%:�H%!44>100�
e �b(�msg_1(A%!12,"WA7",X$)):�
j�
o(vb%=H%!12:S%=vb%!4:ȕS%>0:�$S%!8=X$�
tS%!(S%!4*4+8)+=1:S%=-1
y
�:S%=S%!0
~�
��:�S%=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:cb%!(d%*4)=�(P%+28)
��:T%=�a(J%,"s0:"):�T%�
�"B%=T%:C%=3:cb%!(d%*4)=�(P%+28)
��:T%=�a(J%,"gs:"):�T%�
�"B%=T%:C%=4:cb%!(d%*4)=�(P%+28)
��:T%=�a(J%,"pt:"):�T%�
�UB%=1381257040:C%=4:N%!(d%*4)=�(P%+12):�N%!(d%*4)=0�253,�msg_1(A%!12,"FA5","POTR")
�!N%!(d%*4)=�F($T%,0)
�!�:�R(�msg_1(A%!12,"OKH",$J%))
��
��
�
�
�
�
�
�
�
#J�:B%=1413697091:C%=36:N%=�(P%+12):�N%=0�253,�msg_1(A%!12,"FA5","CNCT")
(Dz%!12=N%:N%!0=�c($�e("ct:")):N%!4=�c($�e("bd:")):笤P�(N%?4>15)�
-@�j(�msg_1(A%!12,"OKAM",�msg_0(A%!12,"BR"+�(N%?4))),1):N%?4=0
2�
7�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%)
A�:N%?6=0
F�
KȎN%!0�
P�4:笤s�
U<N%!0=0:�b(�msg_2(A%!12,"WA9",$z%!8,�msg_0(A%!12,"CN4")))
Z�
_�6:笤y�
d<N%!0=0:�b(�msg_2(A%!12,"WA9",$z%!8,�msg_0(A%!12,"CN6")))
i�
n�
s�
x^h%=�c($�e("cs:")):B%=1195789891:C%=h%*4:cb%=�(P%+12):�cb%=0�253,�msg_1(A%!12,"FA5","CNFG")
}z%!16=cb%:�0<=h%-1�
��d%=0�h%-1:J%=�d:�J%�
�T%=�a(J%,"nl:"):�T%�
�cb%!(d%*4)=0
��:T%=�a(J%,"in:"):�T%�
�&cb%!(d%*4)=�store_integer(�c($T%))
��:T%=�a(J%,"st:"):�T%�
�"B%=T%:C%=2:cb%!(d%*4)=�(P%+28)
��:T%=�a(J%,"s0:"):�T%�
�"B%=T%:C%=3:cb%!(d%*4)=�(P%+28)
��:T%=�a(J%,"gs:"):�T%�
�"B%=T%:C%=4:cb%!(d%*4)=�(P%+28)
��:T%=�a(J%,"pt:"):�T%�
�WB%=1381257040:C%=4:cb%!(d%*4)=�(P%+12):�cb%!(d%*4)=0�253,�msg_1(A%!12,"FA5","POTR")
�!cb%!(d%*4)=�F($T%,0)
�!�:�R(�msg_1(A%!12,"OKH",$J%))
��
��
��
��
��
��
��
��
��
�Wz%!20=-1:z%!24=�c($�e("fg:")):z%!28=-1:z%!32=0:J%=�e("pn:"):d%=ia%:ȕd%:�$d%!4=$J%�
�z%!36=d%:d%=0
�:d%=d%!0:�d%=0�
:d%=ia%:z%!36=d%:�b(�Q(A%!12,"WA11",$J%,$d%!4,X$)):d%=0
�
�
[�:C%=2:B%=�e("sn:"):z%!40=�(P%+28):B%=�e("ic:"):z%!44=�(P%+28):�H%!32�4z%!48=�G�z%!48=0
z%!52=0:�z%!24�1�
"�Ua(z%):�z%!24�2�
'�select_printer(z%,-1,0)
,�
1�
6�z%!24�(1<<16)�Ga%�
;�La (z%)
@�
E1d%=A%+48:ȕ!d%:d%=!d%+0:�:!d%=z%:sa%+=1:�Ka:�
J<ݤe(ea$):�J%:J%=�b(ea$):�J%=0�R(�msg_1(A%!12,"OKG",ea$))
O=J%
T(��R(e$):�S(�msg_1(A%!12,"OKE",e$)):�
Y(ݤg(H%,s$):="Printers:"+$H%!4+"."+s$
^ݤz(h%):�p%:�h%=-2�=-1
c�h%=wb%�=-1
h�h%=xb%�=-1
m�h%=yb%�=-1
r�h%=zb%�=-1
w�h%=Ab%�=-1
|�h%=A%!40�=-1
��h%=Q%�=-1
��h%=Bb%�=-1
��h%=Cb%�=-1
�p%=A%!48:ȕp%:�p%!48=h%�=-1
�p%=p%!0:�:=0
����za:�i%,fa$,ga$,Db%,Fb%,Gb%,Hb%,j%:�Fa("Printers:Templates","Printers:Template3D"):�l("","info",1,Cb%):�l("","prntctrl",1,Bb%):�l("","connections",1,Q%):�l("","queue",1,A%!40):�l("","query",1,Ab%)
���l("","papersize",1,zb%):�l("","howquery",1,yb%):�l("","shutdown",1,xb%):�l("","save",1,wb%):�Ha:�icon_write(Cb%,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%=Bb%: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(Bb%,j%,�msg_0(A%!12,�icon_read(Bb%,j%))):�:�
�ݤba(a,b):�a>b�=a�=b
�WݤG:�p%:�Fa("Printers:Templates","Printers:Template3D"):�l("","pause",1,p%):�Ha:=p%
�Q��Va(Ib%):!O%=Ib%:ș262348,,O%�1:B%=1179014466:C%=O%!76:�P%+16:ș262339,,O%:�
�,��oa:�Jb%,i%,t$,ha$,z%,H%,Kb%:�R%:Ȏ!q%�
�/�A%!40:ș262344,,q%�Jb%:B%=q%:C%=Jb%:�P%+36
�p�Bb%:ș262344,,q%�Jb%:ȕJb%:�i%=0�3:a%(i%)!4=a%(4)!4:a%(i%)!12=a%(4)!12:�:z%=A%!48:Lb%=0:ȕz%:Lb%+=1:�z%!40�
�$a%(0)!20=$z%!40
��:?a%(0)!20=13
��
�c$a%(1)!20=$z%!8:t$=�!(z%!12+0):ha$=�msg_0(A%!12,"IC"+t$):�ha$="IC"+t$ha$=�msg_1(A%!12,"ICx",t$)
�!$a%(2)!20=ha$:�z%!24�(1<<16)�
�t$="SHA"
��:�z%!24�1�
t$="ACT"
�:t$="INA"
�
�
�$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:�:R%=Ha%:ȕR%:$a%(0)!20=$R%!4:$a%(1)!20=$R%!8:$a%(2)!20=�msg_0 (A%!12,"IC9"):�R%!20>0�
"$a%(3)!20=�msg_0 (A%!12,"UNA")
!$�:$a%(3)!20=�msg_0 (A%!12,"INA")
&�
+k�i%=0�3:ș262370,,a%(i%):a%(i%)!12=a%(i%)!4:a%(i%)!4-=(a%(4)!12-a%(4)!4):�:R%=R%!0:�:ș262346,,q%�Jb%:�
0&:�G(!q%,Kb%,H%,z%):�c(H%,z%,1,q%)
5�
:�
?,��Wa(z%):�y%,s$:�z%!40s$=$z%!40�s$=$z%!8
D��Xa(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%:�
IE��s(Ib%):!O%=24:O%!12=0:O%!16=262347:O%!20=Ib%:ș262375,17,O%,0:�
N*��e:�i%,j%,z%,H%,Kb%:�s(!q%):�z(!q%)�
Sș262342,,q%
X&�:�G(!q%,Kb%,H%,z%):�c(H%,z%,3,q%)
]�
b�
g#��free_structure(p%):�i%:�p%=0�
lȎp%!-4�
q �1146377036:ȕp%:�0<=p%!4-1�
v/�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��ua(r%):�s$,z%,H%,Kb%,Mb%,i%:Mb%=q%!4:Ȏq%!16�
��0:�H:�x
�
�1:�Za
��2:�q%!36�
�9ș262356,,-1:i%=q%+44:�Z%,i%,s$:�icon_write(Q%,30,s$)
��
�
�3:�_a
��5
��8:�A%!32�
�
�!q%<>20�
��(q%!20�1)=0Nb%=1�Nb%=2
��:Nb%=1
��
�8q%!12=q%!8:ș262375,19,q%,Mb%:A%!20=A%!20�1:�`a(xb%)
��
�5�10:�#q%!20,"/"+�task_read_env("Printers$Dir",O%)
�,�11:z%=A%!48:ȕz%:�(z%!24�8)<>0�z%<>oa%�
�"r%=z%!12:�r%!0=q%!20�q%!24<=0�
�cs$=�msg_0(A%!12,"INU"):!q%=32+�s$��3:q%!12=q%!8:q%!16=12:$(q%+28)=s$+�0:ș262375,17,q%,Mb%:z%=0
�
�
�z%z%=z%!0
�
�12:na%=2
�1282:�z(q%!32)�
�ab
%�:�G(q%!32,Kb%,H%,z%):�Kb%�
*�c(H%,z%,r%,q%)
/�:�q%!36�
4 �ua%�c (ua%!4,ua%,r%,q%)��ab
9�
>�
C�
H�262345:�q%!20=xb%�
M�A%!32>0A%!20=A%!20��1
R �:�bb
W�
\�524609:A%!36=0
a�524610:�V%�
fq%!20=-2:q%!24=V%!20:�Za
k�:z%=A%!48:�z%�
p%q%!20=1:s$=�msg_0(A%!12,"OKU")+�0
u'�:q%!20=2:s$=�msg_0(A%!12,"OKW")+�0
z�
K!q%=28+�s$��3:q%!12=q%!8:q%!16=524612:$(q%+24)=s$+�0:ș262375,17,q%,Mb%
��
��524611:�q%!4<>Ob%�
�
�q%!0=20�
� �H:�x
��:�q%!12=ga%�
�!�b(�msg_0(A%!12,"FAJ")):�H:�x
�,�:q%!12=q%!8:q%!20=34:ș262375,17,q%,Mb%
��
��
��
��524614:qa%=2
��524626:�V%�
��select_printer(V%,-1,0)
��
� :�w
��w(V%,r%,q%)
��
��
���ab:�s$,z%,F$:Ȏq%!32�
��-2:�A%!48=0�
�.�interactive_help(�msg_0(A%!12,"ICON0")):�
��
�)�y(q%!36,z%):�z%!40s$=$z%!40�s$=$z%!8
�/�interactive_help(�msg_1(A%!12,"ICON1",s$))
�P�wb%:s$=�msg_0(A%!12,"SAVE"+�q%!36):�s$="SAVE"+�q%!36s$=�msg_0(A%!12,"SAVE")
�interactive_help(s$)
V�xb%:s$=�msg_0(A%!12,"SHTDWN"+�q%!36):�s$="SHTDWN"+�q%!36s$=�msg_0(A%!12,"SHTDWN")
�interactive_help(s$)
S�yb%:s$=�msg_0(A%!12,"HWQRY"+�q%!36):�s$="HWQRY"+�q%!36s$=�msg_0(A%!12,"HWQRY")
�interactive_help(s$)
S�zb%:s$=�msg_0(A%!12,"PAPER"+�q%!36):�s$="PAPER"+�q%!36s$=�msg_0(A%!12,"PAPER")
�interactive_help(s$)
$S�Ab%: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"))
3#�Q%:F$="CNCT"+�q%!36:�q%!36=13�
8$�icon_set(Q%,13)F$+="b"�F$+="a"
=�
B�q%!36=35�
G$�icon_set(Q%,35)F$+="b"�F$+="a"
L�
Q�q%!36=37�
V$�icon_set(Q%,37)F$+="b"�F$+="a"
[�
`5s$=�msg_0(A%!12,F$):�s$=F$s$=�msg_0(A%!12,"CNCT")
e�interactive_help(s$)
j2�Bb%:�interactive_help(�msg_0(A%!12,"PRCTRL"))
o0�Cb%:�interactive_help(�msg_0(A%!12,"INFO"))
t%:ș262388,1,W%,q%!32,q%!36:ȎJ$�
y�"ME1":�!W%<>2�
~1�interactive_help(�msg_0(A%!12,"HME1-"+�!W%))
��:�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":�H(Pb%,!W%)�
��!W%>3�xa%=0�
�-�interactive_help(�msg_0(A%!12,"SMQ1-7"))
�5�:�interactive_help(�msg_0(A%!12,"SMQ1-"+�(!W%)))
��
��:�!W%<>4�
�3�interactive_help(�msg_0(A%!12,"HMQ1-"+�(!W%)))
��:�xa%!12�
�.�interactive_help(�msg_0(A%!12,"HMQ1-4a"))
�0�:�interactive_help(�msg_0(A%!12,"HMQ1-4b"))
��
��
��
��"MC1":�H(Pb%,!W%)�
��!W%=6�
�0�interactive_help(�msg_0(A%!12,"HMC1S-6")):�
��
�(ș262358,Bb%,O%,1<<21,1<<21:�!O%=-1�
�-�interactive_help(�msg_0(A%!12,"SMC1-2"))
/�:�interactive_help(�msg_0(A%!12,"SMC1-0"))
�
3�:�interactive_help(�msg_0(A%!12,"HMC1-"+�!W%))
�
�"MC1s":�H(Pb%,!W%)�
�!W%=6�
0�interactive_help(�msg_0(A%!12,"HMC1S-6")):�
#�
((ș262358,Bb%,O%,1<<21,1<<21:�!O%=-1�
-.�interactive_help(�msg_0(A%!12,"SMC1s-2"))
20�:�interactive_help(�msg_0(A%!12,"SMC1s-0"))
7�
<4�:�interactive_help(�msg_0(A%!12,"HMC1s-"+�!W%))
A�
F�
K�
P�
Up��interactive_help(m$):�Mb%:!q%=24+�m$��3:q%!12=q%!8:q%!16=1283:$(q%+20)=m$+�0:Mb%=q%!4:ș262375,17,q%,Mb%:�
Z&��Za:�s$,i%,y%,z%,K%:�q%!20=A%!40�
_X!W%=A%!40:ș262347,,W%:B%=q%!32-W%!16+W%!24:y%=�(P%+44):i%=A%!16:z%=!i%:K%=i%!4:�z%�
dq%!20=-2:q%!24=z%!20
i�
n�:�y(q%!24,z%)
s�
x&�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:�:aa$=s$:A%!36=0:Aa%=q%!4:s$=�l(-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%,Aa%:Ba%=q%!8
���:q%!12=q%!8:ș262375,19,q%,Aa%:�select_printer(z%,0,0):ș36,"Printer$Temp",s$,�s$:q%!16=524608:ș262375,18,q%,Aa%:�cb (Aa%,aa$)
��
��
�ݤl(Qb%):�c%:笤w�
� �Qb%�
��254,�msg_0(A%!12,"OKAO")
�$�:�j(�msg_0(A%!12,"OKAO"),1):=""
��
��
�c�:Da%+=1:ș8,17,"<Wimp$ScrapDir>.Printers."+�Da%�c%:�c%=0:=�R("<Wimp$ScrapDir>.Printers."+�Da%)
�7��_a:�s$,i%,z%,O$,o$,Rb%,Mb%:�q%!40=4038�q%!20=Bb%�
� �db:�
��
�Di%=q%+44:�Z%,i%,o$:ș8,17,o$�Rb%:�(Rb%�2)�(q%!40<4096)q%!40=4096
��q%!20=A%!40�
�X!W%=A%!40:ș262347,,W%:B%=q%!32-W%!16+W%!24:y%=�(P%+44):i%=A%!16:z%=!i%:K%=i%!4:�z%�
�q%!20=-2:q%!24=z%!20
��
��
�&�q%!20<>-2�254,�msg_0(A%!12,"OKN")
�mA%!36=Ba%<>0�Ba%=q%!12:q%!12=q%!8:q%!16=4:Mb%=q%!4:ș262375,17,q%,Mb%:Ba%=0:�y(q%!24,z%):Rb%=q%!40:�z%=0�
�&�Rb%<>4038�254,�msg_0(A%!12,"OKW")
�db:�
�
�A%!36�
bș272000,Aa%�i%:�Z%,i%,O$:o$=aa$: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)
�
" �eb(A%!36,O$,s$,o$,z%,Rb%):�
'��bb:ȎJ$�
,�"MQ1":�wa%�
1*�xa%xa%?11=xa%?11��8�wa%!24=wa%!24��16
6$�f(-1,wa%,xa%):va%=0:wa%=0:xa%=0
;�
@X�"MC1","MC1s":ș262358,Bb%,O%,1<<21,1<<21:�!O%�O%!4=-1�ta%=0�icon_deselect(Bb%,!O%)
E�
JJ$="":�
OQ��va:�s$,z%,K%,N%,Sb%,G$,H%,z$,t%,Na%,Oa%,Tb%,o$:�C$,z%,jb%,w$,c$,A$:Ȏq%!16�
T
�11:na%=1
Y6�524608:�y(q%!24,z%):�z%=0�254,�msg_0(A%!12,"OKW")
^1K%=z%!32:H%=z%!4:N%=z%!12:�K%=0�(z%!24�36)=0�
ci%=q%+44:�Z%,i%,o$:ȎN%!0�
h�5:Sb%=(N%?6�2)<>0
m�9:Sb%=0
r:Sb%=(N%?6�1)<>0
w�
| �Sb%�
�g$=�l(-1):�N%!0=5�
�%ș36,"PrinterType$5",g$,�g$:�I(5)
�)�:ș36,"PrinterType$10",g$,�g$:�I(10)
��
� G$=g$
��
�z$=�l(-1):ș36,"Printer$Temp",z$,�z$:q%!0=20:q%!16=524613:ș262375,18,q%,Aa%:qa%=0:�:�v(ka%):�qa%:b%=(qa%=2):Tb%=q%!4:�Sb%�
�s$=�m(z%,-1):�s$<>""�
��b(s$):�z%!32�
�$z%!24=z%!24�4:�i(z%):�f(-1,z%,0)
��
��
��
��b%�
�ș8,17,z$�t%,,Na%,,Oa%:�t%�
�s$=z$:ș8,23,z$�,,,,,,Rb%
��:�Sb%�
��N%!0=5�
��fb($N%!16,G$):�
��:s$=G$:Rb%=H%!28
��
��:�N%!0=9�q$<>""�
�c$=$(z%!40):M%=�c$," "):ȕM%:�c$,M%,1)=�160:M%=�c$," ",M%+1):�:w$=q$+"RemSpool."+h$+"."+c$:C$=q$+"RemQueue."+h$+"."+�(Ka%):ș131080,17,w$�t%,,,,l%;f%:�(l%>0)�((f%�1)=0)�(t%=1)�
�-ș272000,Aa%�i%:�Z%,i%,A$:�A (z%,A$,o$)�
�Ub%=V%!4:ș131113,25,w$,C$
��:ș131080,6,w$
�
�
�
�select_printer(V%,0,-1):�
�
�
!?ș272000,Tb%�O$:i%=�o$:ȕi%>0:�o$,i%,1)="."��o$,i%,1)=":"�
&o$=�o$,i%+1):i%=0
+�
0%i%-=1:�:�eb(-1,O$,s$,o$,z%,Rb%):�
5�
:�
?��select_printer(z%,0,-1):ș36,"Printer$Temp",,-1:s$=�l(-1):q%!0=48+�s$��3:q%!16=2:q%!36=-1:$(q%+44)=s$+�0:ș262375,17,q%,Aa%:Ba%=q%!8
D�524613:qa%=1
I:�w(V%,19,q%)
N�
S�
X+��x:�H%:�z%,c$,Rb%,c$,Vb%,f%,N%:�z:�V%�
]1c$=$V%!40:N%=V%!12:H%=V%!4:Rb%=H%!28:�N%!0=9�
b8ș424578,0,2,c$,0,0�,,,,,Vb%;f%:�(Vb%>0)�((f%�0)=0)�
gș424323,0,Vb%,c$,Rb%
l�
q�
v�
{ �Ga%�
�#z%=A%!48:ȕz%:�(z%!24)�(1<<16)�
��(z%!40=0)�
�H%=z%!4:c$=$H%!4
��:c$=$z%!40
��
��gb (z%)
��
�
z%=z%!0:�
��
�qș131077,"%Wipe <Wimp$ScrapDir>.Printers.* RF~C~V":H%=ra%:ȕH%:�_(H%!16):H%=H%!0:�:�_(A%!12):�w(0,-2,0):�hb:�
�(��ra:�H%,z%,Kb%,D$,H$,Wb%:笤z(!q%)�
�+�G(!q%,Kb%,H%,z%):�z%!40D$=$z%!40�D$=""
�1Wb%=V%:�c(H%,z%,8,q%):�$(Kb%+16)="configure"�
��z%!40H$=$z%!40�H$=""
��H$<>D$�
��(z%!24�(1<<16))�
�8�ib(z%):�i(z%):�f(-1,z%,0):�(H%!24�4)=0�h(Q%)�T(z%)
�I�:�b (�msg_0(A%!12,"OKAP")):H$=D$:�d (1196577875,z%!40):�J (z%!40,D$)
��
��
��z%!20<>-1�Wb%<>V%�
��select_printer(Wb%,-1,0)
��
��
��:�q%!24=13�
�
Ȏ!q%�
!�Q%:�jb:�J$="ME6"ș262356,,-1
!q%=Q%:�e
�zb%:�kb:!q%=zb%:�e
:�wb%:ș262356,,-1:�icon_write(Q%,30,�icon_read(wb%,1))
�
�:ș262364,q%!24
�
%�
*�
/X��U(Xb%):�i%:!W%=Xb%:ș262348,,W%�1:i%=W%!88:ȕi%:�icon_deselect(Xb%,i%-1):i%-=1:�:�
4@��pa:�z%,nb%,K%,Zb%,H%,Kb%,H$,D$,B%,C%,Wb%:�R%:�z(q%!12)=0�
9-�G(q%!12,Kb%,H%,z%):�z%!40D$=$z%!40�D$=""
>8Wb%=V%:�c(Kb%!8,Kb%!12,6,q%):�$(Kb%+16)="configure"�
C�z%!40H$=$z%!40�H$=""
H�H$<>D$�
M�(z%!24�(1<<16))�
R8�ib(z%):�i(z%):�f(-1,z%,0):�(H%!24�4)=0�h(Q%)�T(z%)
WI�:�b (�msg_0(A%!12,"OKAP")):H$=D$:�d (1196577875,z%!40):�J (z%!40,D$)
\�
a�
f�z%!20<>-1�Wb%<>V%�
k�select_printer(Wb%,-1,0)
p�
u�
z
�:Ȏq%!8�
�1024:Ȏq%!12�
��Bb%:�q%!16�
�笤icon_set(q%!12,q%!16)�
�'�U(q%!12):�icon_select(q%!12,q%!16)
��
��:�U(q%!12)
��
��
��256:Ȏq%!12�
��Bb%:�q%!16�
��icon_set(q%!12,q%!16)�
��icon_deselect(q%!12,q%!16)
��:�icon_select(q%!12,q%!16)
��
��
��
��64:�q%!12=wb%�lb(!q%,q%!4)
��2:Ȏq%!12�
��-2:�g("ME1",-1,0)
��A%!40:�g("MQ1",-1,0)
��Bb%:�g("MC1s",-1,0)
��Q%:Ȏq%!16�
��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)
�
!�zb%:�q%!16=47�g("MP1",-1,-1)
�
�4:Ȏq%!12�
�-2:�mb
$�Ab%:pa%=q%!16
)�yb%:pa%=q%!16
.�wb%:�q%!16=2�
35ș262356,,-1:�icon_write(Q%,30,�icon_read(wb%,1))
8�
=�xb%:ș262356,,-1:�q%!16=3�
B!q%=A%!40:�e:�H:ȎNb%�
G�1:ș262364,508
L �2:�x
Q�
V�:A%!20=A%!20��1
[�
`�Bb%:�q%!16�
e笤icon_set(q%!12,q%!16)�
j'�U(q%!12):�icon_select(q%!12,q%!16)
o�
t�t(z%,R%,nb%):�z%�
y(�c(z%!4,z%,-3,0):�nb(z%,"configure")
~�
��
��Q%:Ȏq%!16�
��0,1,2,3,4,33:�ob
��5:�jb:!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
��
��zb%:Ȏq%!16�
��42:�kb:!q%=zb%:�e
��33:�pb:!q%=zb%:�e
�4�48:B%=1163547472:C%=Ca%:�P%+16:Ca%=0:!q%=zb%:�e
�&�23,22:�icon_select(zb%,q%!16):�qb
��47:�g("MP1",-1,-1)
��
�!:z%=A%!48:ȕz%:�z%!48=q%!12�
�K%=z%!32:Zb%=K%!44:�Zb%�
��Zb%!40�
�
�q%!16=4�
��n(z%,K%,-1)
�>�:z%!24=z%!24��36:Zb%!40=0:�i(z%):�f(-1,z%,0):!q%=z%!48:�e
�
�
�
z%=0
�:z%=z%!0
�
�
#�
(�1:Ȏq%!12�
-�-2:�mb
2�Q%:Ȏq%!16�
7�0,1,2,3,4,33:�ob
<
�5:�jb
A�
F�zb%:Ȏq%!16�
K�42:�kb
P�33:�pb
U&�23,22:�icon_select(zb%,q%!16):�qb
Z�
_�
d�
i�
n�
s-��ob:�c%,h%,i%,n%:c%=-1:�icon_set(Q%,1)�
x��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
��:�caret_set(Q%,c%)
��
��
�*��y(Ib%,�z%):z%=A%!48:ȕz%:�z%!20=Ib%�
�z%=z%!0:�:�
�;��mb:�z%,_b%,`b%:`b%=�-1:_b%=(q%!8=1):�y(q%!16,z%):�z%�
� �_b%�
��`b%�T(z%)��rb
��:�`b%�
�(�c(z%!4,z%,-3,0):�nb(z%,"configure")
�.�:�select_printer(z%,-1,0):�h(Bb%)�sb(z%)
�
�
�
�
�tb(z%):�
=��select_printer(z%,ac%,bc%):�cc%,i%,s$:cc%=V%:�bc%V%=z%
"
�V%=0�
's$=�m(V%,0):�s$<>""�
, �ac%�
1V%!24=V%!24��2
6�
;�V%!32�
@$V%!24=V%!24�4:�i(V%):�f(-1,V%,0)
E�
J�V%=cc%�
O/�icon_deselect(-1,cc%!20):ș524632,-1:cc%=0
T�
YV%=cc%:�b(s$):�
^�
c%�c(V%!4,V%,-6,0):�ub(V%):�z:�ac%�
h �cc%�
m.�icon_deselect(-1,cc%!20):cc%!24=cc%!24��2
r�
w]V%!24=V%!24�2:�icon_select(-1,V%!20):ș524608�,,,,i%:�?i%�Z%,i%,s$:ș36,"Printer$",i%,�s$
|�:V%=cc%
��
��
�H��ub(z%):�`%:`%=z%!36:ș524612,,`%!8,`%!12,`%!24,`%!16,`%!28,`%!20:�
�8��z:!ba%=20:ba%!12=0:ba%!16=524615:ș262375,17,ba%:�
��ݤB(dc%,z%):�p$,r%,s$,i%:p$=�msg_0(A%!12,"CLM"):!q%=32+�p$��3:q%!12=0:q%!16=11:q%!20=dc%:q%!24=0:$(q%+28)=p$+�0:ș262375,18,q%:na%=0:oa%=z%:�:�v(ka%):�na%:oa%=0:�na%=2i%=q%+28:�Z%,i%,s$:=s$
�=""
��ݤm(z%,ec%):�N%,p$,H%,bb%,f%,s$,fc%:�ia$,bb%,hb%,Vb%,c$,M%:�bb%=0�255:aa%?bb%=q%?bb%:�:H%=z%!4:N%=z%!12:g$=�task_read_env("PrinterType$"+�N%!0,ba%):ș6,204,Fa%:ș424324:ȎN%!0�
�
�1:�ec%�
�/p$=�B(1,z%):�p$<>""�=�msg_1(A%!12,"OKI",p$)
��
�fc%=�n(1):�fc%=0fc%=3
��z%!24�128�
�%g$="devices#buffer"+�fc%+":$."+�S
�,�:g$="devices#buffer"+�fc%+":$.Parallel"
��
�
�2:�ec%�
�/p$=�B(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�,Fa%:fc%=�n(2):�fc%=0fc%=3
�(g$="devices#buffer"+�fc%+":$.Serial"
�'�4:�$N%!12=""�=�msg_0(A%!12,"OKAG")
�?g$="NetPrint#"+$N%!12+":":ș263872:ș262659,$N%!12:ș263873
�!�5:g$=$N%!16:�g$=""g$="null:"
�$ș131080,17,g$�bb%;f%:�f%�1bb%=0
� �bb%�
�=ș131085,67,g$�bb%;f%:�(f%�1)=0�#bb%:ș131080,18,g$,H%!28
*�:ș131080,11,g$,H%!28�bb%;f%:�(f%�1)�
bb%+=4:�Z%,bb%,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:�Ga%�
&>c$=$z%!40:ș424578,0,2,c$,0,0�bb%,,,gc%,,Vb%;hb%:�(hb%�1)�
+=�msg_1 (A%!12,"OKAR",c$)
0�
5'ș424323,1,Vb%,c$�bb%;hb%:�(hb%�1)�
:=�msg_1 (A%!12,"OKAR",c$)
?�
D}q$="Share::_S"+�t(Vb%)+".":ia$="Share::_S"+�t(Vb%)+".RemSpool."+h$:ș293254:ș131080,8,ia$,,,0�bb%;hb%:ș293253:�(hb%�1)�
I=�msg_1 (A%!12,"OKAR",c$)
N�
Sbia$="Share::_S"+�t(Vb%)+".RemQueue."+h$:ș293254:ș131080,8,ia$,,,0�bb%;hb%:ș293253:�(hb%�1)�
X=�msg_1 (A%!12,"OKAR",c$)
]�
bs$=�da:�s$<>""�
g=�msg_1 (A%!12,"OKAR",c$)
l�
q�M%=�c$," "):ȕM%:�c$,M%,1)=�160:M%=�c$," ",M%+1):�:g$="Share::_S"+�t(Vb%)+".RemSpool."+h$+"."+c$:ș293254:ș131080,17,g$�bb%;f%:�f%�1bb%=0
v �bb%�
{=ș131085,67,g$�bb%;f%:�(f%�1)=0�#bb%:ș131080,18,g$,H%!28
�ș293253
�3�:ș131080,11,g$,H%!28�bb%;f%:ș293253:�(f%�1)�
�=�msg_1 (A%!12,"OKAR",c$)
��
��
��:=�msg_1 (A%!12,"OKAR",c$)
��
��
�Mș36,"PrinterType$"+�N%!0,g$,�g$:�I(N%!0):�bb%=0�255:q%?bb%=aa%?bb%:�:=""
���vb(fc%):�fc%ș6,21,fc%
��
�5��I(hc%):�x%:�:��:�wb:�vb(�n(x%)):ș6,5,hc%:�
�ș6,245,,255�,x%:�x%<>hc%�
��xb:ș6,5,hc%:�wb
��
��
���xb:ș6,229:�
���wb:ș6,229,1:�
�4ݤca(N%,�a$):�c%,f%,s$:笤y�=�msg_0(A%!12,"OKL")
�!�N%!20=0�=�msg_0(A%!12,"OKK")
�>a$="NFS#Printer::"+$N%!20:�N%!24=0a$+=".lp"�a$+="."+$N%!24
�(�N%!28=0a$+=".nobody"�a$+="."+$N%!28
��N%!32a$+="."+$N%!32
� ș131085,143,a$�c%;f%:�f%�1�
�
Ȏ!c%�
��204:=�msg_0(A%!12,"OKM")
):f%=c%+4:�Z%,f%,s$:=s$+" ("+�!c%+")"
�
�
ș131085,,c%:=""
8��g(ja$,ic%,jc%):�y%,i%,kc%,lc%,mc%:�z%,R%,nb%:�ic%�
nc%=q%!0-64:oc%=q%!4
�
% �jc%�
*q!O%=q%!12:O%!4=q%!16:ș262350,,O%:kc%=O%!16:lc%=O%!20:ș262347,,O%:nc%=O%!20+O%!4+kc%+2:oc%=O%!24+O%!16+lc%-2
/�
4�ja$="SVE"�
98�yb(za%!28,�msg_0(A%!12,"OP")):ș262356,,wb%,nc%,oc%
>�:Ȏja$�
Cy�"ME1":�menu_create(_%,�msg_0(A%!12,"ME1")):�zb(_%,0,Cb%,0):�a(_%,2,A%!44=0):oc%=96+(5+1)*ma%:�sb%wa%=0��y(q%!16,wa%)
H�"ME2":�P�
MR�menu_create(_%,�msg_0(A%!12,"ME2")+�msg_0(A%!12,"ME2a")+�msg_0(A%!12,"ME2b"))
R?�:�menu_create(_%,�msg_0(A%!12,"ME2")+�msg_0(A%!12,"ME2b"))
W�
\*�menu_tick_match(_%,�icon_read(Q%,15))
aV�"ME3":�menu_create(_%,�msg_0(A%!12,"ME3")):�menu_tick_match(_%,�icon_read(Q%,17))
fV�"ME4":�menu_create(_%,�msg_0(A%!12,"ME4")):�menu_tick_match(_%,�icon_read(Q%,18))
kR�"ME5":�menu_create(_%,�msg_0(A%!12,"ME5")):mc%=(_%!28�256)<>0:�(�u=0��p<>0)�
p�u=3��p=0�
u-�menu_item(_%,1,�msg_0(A%!12,"ME5c"),mc%)
z/�:�menu_item(_%,1,�msg_0(A%!12,"ME5a"),mc%)
�
��
�*�menu_tick_match(_%,�icon_read(Q%,19))
��"ME6":�ic%�Ab
�*�menu_tick_match(_%,�icon_read(Q%,25))
��"MQ1":�ic%�
�m�bb:va%=oc%:!q%=A%!40:ș262347,,q%:B%=va%-q%!16+q%!24:va%=�(P%+44):i%=A%!16:wa%=!i%:xa%=i%!4:�xa%=-1xa%=0
��xa%=0�
�R�menu_create(_%,�msg_1(A%!12,"MQ1",�msg_0(A%!12,"MQ1a"))):�wa%wa%!24=wa%!24�16
��:�xa%!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")))
��
�xa%?11=xa%?11�8
��
��f(-1,wa%,xa%)
��
�X�a(_%,0,0):�a(_%,1,0):�a(_%,2,0):�a(_%,3,0):�a(_%,4,0):�a(_%,5,0):�a(_%,6,0):�xa%=0�
�'�a(_%,4,-1):�a(_%,5,-1):�a(_%,6,-1)
�&�:�xa%?11�5�a(_%,4,-1)��a(_%,5,-1)
��
��wa%!24�36�
��a(_%,0,-1):�a(_%,1,-1)
��:�a(_%,2,-1)
��
�'�"MP1":�create_paper_menu(_%,zb%,5)
?�"MC1","MC1s":�menu_create(_%,�msg_0(A%!12,"MC1s")):�Ga%=0�
�a(_%,2,-1)
�
8ș262358,Bb%,O%,1<<21,1<<21:�(!O%=-1�O%!4=-1)�ta%=0�
�!O%�icon_deselect(Bb%,!O%)
�q%!12=Bb%�q%!16>3�
�icon_select(Bb%,q%!16):i%=1
$
�:i%=0
)�
.
�:i%=2
3�
8 Ȏ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)
B�1:�t (z%,R%,nb%):�R%�
G4�a (_%,0,-1):�a (_%,1,-1):�a (_%,2,-1):�R%!20>0�
L�a (_%,3,-1)
Q�:�a (_%,4,-1)
V�
[�a (_%,5,-1)
`�
e�z%�
j�z%!24�(1<<17)�
o7�a (_%,1,-1):�a (_%,2,-1):�a (_%,3,-1):�a (_%,5,-1)
t�
y�
~�2:�a(_%,0,-1):�a(_%,1,-1)
��
��
�&J$=ja$:�display_menu(0,_%,nc%,oc%)
��
��
����create_paper_menu(�Ib%,Xb%,nb%):�`%,i%,mc%:�menu_create(Ib%,�msg_0(A%!12,"MP1")):mc%=(Ib%!28�256)<>0:`%=ia%:i%=0:ȕ`%:�menu_item(Ib%,i%,$`%!4,mc%):i%+=1:`%=`%!0:�:�menu_tick_match(Ib%,�icon_read(Xb%,nb%)):�
�?��display_menu(z%,_%,pc%,qc%):ua%=z%:ș262356,,_%,pc%,qc%:�
�/ݤwas_adjust_used:ș262351,,O%:=(O%!8�1)<>0
�.��sa:�_b%,rc%,`%,i%,h%,n%,z%,nb%:�R%:�ua%�
��c(ua%!4,ua%,9,q%):�
��
�_b%=�was_adjust_used:ȎJ$�
��"ME1":Ȏ!q%�
��1:�tb(wa%)
�
�2:�rb
��3:�Bb(wa%)
��4:�Cb:�Db
��5:�A%!32�
� A%!20=A%!20�1:Nb%=2:�`a(xb%)
��:�x
��
��
�-�"ME2":�icon_write(Q%,15,$(!q%*24+40+_%))
�5�"ME3":�icon_write(Q%,17,$(!q%*24+40+_%)):�Fb(-1)
�5�"ME4":�icon_write(Q%,18,$(!q%*24+40+_%)):�Fb(-1)
�"ME5":�Fb(!q%)
T�"ME6":�menu_tick_match(_%,�icon_read(Q%,25)):�icon_write(Q%,25,$(!q%*24+40+_%))
�"MQ1":rc%=-1:Ȏ!q%�
�0:wa%!24=wa%!24�4
�1:wa%!24=wa%!24�32
'�2:wa%!24=wa%!24��36:i%=wa%!32:�i%�
i%=i%!44:�i%�
#�i%!40�
(i%!40=0:�wa%!48�
-!q%=wa%!48:�e
2�
7�
<�
A�
F�3:�A(wa%):rc%=0
K�4:�xa%!12�
Pxa%?11=xa%?11�1
U�:xa%?11=xa%?11�4
Z�
_�5:xa%?11=xa%?11��5
d�6:�n(wa%,xa%,-1):rc%=0
i�
n �rc%�
s�i(wa%):�!q%<3�
x�f(-1,wa%,0)
}�:�f(va%,wa%,xa%)
��
��
�K�"MP1":`%=ia%:i%=!q%:ȕi%:`%=`%!0:i%-=1:�:�i%=0�52�4:Ca%!i%=`%!i%:�:�Gb
��"MC1","MC1s":Ȏ!q%�
��0:�t(z%,R%,nb%):�z%�
�(�c(z%!4,z%,-3,0):�nb(z%,"configure")
��
��1:�t(z%,R%,nb%):�z%�
�
�T(z%)
��
�
�2:�Hb
�
�3:�Ib:�k
�
�4:�Jb:�k
�
�5:�Kb:�k
��6:�A%!48�
� �4,26
��0<=sa%-1�
�(�i%=0�sa%-1:�icon_select(Bb%,i%+4):�
��
��
� �Ha%�
��0<=Ja%-1�
�,�i%=sa%�sa%+Ja%:�icon_select(Bb%,i%+4):�
��
��
�
ta%=-1
�7:�U(Bb%)
�
�
�_b%�
ș262351,,q%:�g(J$,0,0)
�:�bb
"�
'�
,<��Cb:�c%,f%,H%,z%,M%,p%,Oa%,s$,f$:�sc%,R%:ș263872:�ha%�
11f$="<Printers$Dir>.Remote.ID"+h$+".Settings1"
6#�:f$="<Printers$Dir>.Settings1"
;�
@Lș131085,143,f$�c%;f%:�f%�1f%=c%+4:�Z%,f%,s$:�254,�msg_1(A%!12,"OKB",s$)
ED�:��:ș131085,0,c%:ș131080,6,f$:�254,�msg_1(A%!12,"OKB",�$)
Jh�#c%,"fv: 1":z%=A%!48:ȕz%:H%=z%!4:�#c%,"cl: "+$H%!4+":"+�H%!40:�#c%,"nm: "+$z%!8:M%=z%!12:�H%!24�4�
O'Oa%=H%!48:�#c%,"cn: "+�Oa%:�1<=Oa%�
T �f%=1�Oa%:p%=!M%:M%+=4:Ȏ-1�
Y�p%=0:�#c%,"nl: "
^&�p%!-4=1196707401:�#c%,"in: "+�!p%
c%�p%!-4=1196577875:�#c%,"st: "+$p%
h-�p%!-4=810701907:�Z%,p%,s$:�#c%,"s0: "+s$
m:�p%!-4=1381258055:�Y%,p%,s$:�#c%,"gs: "+�ungstrans(s$)
r,�p%!-4=1381257040:�#c%,"pt: "+�o(!p%,H%)
w1:ș131085,,c%:�254,�msg_1(A%!12,"OKC",$z%!8)
|�
��
��
�E�:�#c%,"ct: 16_"+�~M%!0:�#c%,"bd: 16_"+�~M%!4:�M%!8�48M%!8=M%!8�8
�B�#c%,"ft: 16_"+�~M%!8:�#c%,"et: ";:�M%!12=0�#c%,10��#c%,$M%!12
�,�#c%,"fl: ";:�M%!16=0�#c%,10��#c%,$M%!16
�,�#c%,"ns: ";:�M%!20=0�#c%,10��#c%,$M%!20
�,�#c%,"np: ";:�M%!24=0�#c%,10��#c%,$M%!24
�,�#c%,"nu: ";:�M%!28=0�#c%,10��#c%,$M%!28
�,�#c%,"no: ";:�M%!32=0�#c%,10��#c%,$M%!32
��#c%,"cf: 16_"+�~M%?6
��
�0M%=z%!16:Oa%=H%!36:�#c%,"cs: "+�Oa%:�1<=Oa%�
� �f%=1�Oa%:p%=!M%:M%+=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: "+�o(!p%,H%)
�1:ș131085,,c%:�254,�msg_1(A%!12,"OKC",$z%!8)
��
��
��
��#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:�:R%=Ha%:ȕR%:�R%!20>0�
���#c%,"cl:":�#c%,"nm: "+$R%!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:"
� �#c%,"sn: "+$R%!4:�#c%,"ic:"
�
UR%=R%!0:�:�#c%:ș131080,18,f$,4038:ș131080,6,�f$):ș131113,25,f$,�f$):ș263873:�
R��Db:�H%,vb%,S%,c%,ab%,U%,tc%,i%,j%,k%,l%,s$,f%,f$:ș263872:H%=ra%:ȕH%:�H%!8�
�H%!24�2�
�ha%�
Ff$="<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$)
0D�:��:ș131085,0,c%:ș131080,6,f$:�254,�msg_1(A%!12,"OKB",�$)
5Vab%=H%!8:vb%=H%!12:ȕab%:�#c%,$(ab%+12)+":":�#c%,"#":S%=vb%!4:ȕS%:�S%!(S%!4*4+8)�
:T�#c%,"# Usage: "+�S%!(S%!4*4+8):U%=ab%!4:i%=S%+8:ȕU%:�#c%,$(U%+16)+" ";:�!i%=0�
?�U%!4=6�
D�#c%,48
I�:�U%!4=1�
N�#c%,48
S�
X�
]�#c%,10
b�:j%=!i%:ȎU%!4�
g�1:�#c%,�!j%
l$�2:�#c%,�printer_read_string(j%)
q$�3:�#c%,�printer_read_string(j%)
v0�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%," "+�o(!j%!0,H%)+", "+�o(!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$)+", ";
�)�1381257040:�#c%," "+�o(!l%,H%)+", ";
��
��
��
� �#c%=�#c%-2:�#c%,10:j%=!j%:�
��7:�#c%,�o(!j%,H%)
�F�8:k%=j%:l%=0:ȕk%:l%+=1:k%=!k%:�:�#c%,�l%:ȕj%:s$=�j%?4:�1<=j%?5�
��k%=1�j%?5:s$+=�j%?(k%+5):�
��
�$�#c%," "+�ungstrans(s$):j%=!j%:�
��
��
�U%=U%!0:i%+=4:�:�#c%,"#"
��
oS%=S%!0:�:ab%=ab%!0:vb%=vb%!0:�:�#c%:ș131080,18,f$,4038:ș131080,6,�f$):ș131113,25,f$,�f$):H%!24=H%!24��2
�
�
�
H%=H%!0:�:ș263873:�
Vݤo(p%,H%):�vb%,S%,ab%,uc%,vc%:vb%=H%!12:ȕvb%:S%=vb%!4:vc%=0:ȕS%:�S%!(S%!4*4+8)�
vc%+=1:�p%=S%�
%9ab%=H%!8:ȕuc%:ab%=ab%!0:uc%-=1:�:=$(ab%+12)+":"+�vc%
*�
/�
4<S%=S%!0:�:uc%+=1:vb%=vb%!0:�:�b(�msg_0(A%!12,"FAF")):=""
91ݤh(h%):!W%=h%:ș262347,,W%:=(W%!32�1<<16)<>0
>��tb(z%):笤h(Bb%)�
C�A%!48�Ha%�
H�k
M�
R�
W�s(Bb%):�q(Bb%):�sb(z%):�
\��sb(z%):�p%:�z%�
aOș262358,Bb%,O%,1<<21,1<<21:p%=O%:ȕ�!p%:�!p%<>z%!28�icon_deselect(Bb%,!p%)
f0p%+=4:�:�(z%!24�44)=0�icon_select(Bb%,z%!28)
k�
p�
u��B(p%):�M%,i%,pb%:�p%=0�
zȎp%!-4�
7�1381257040:M%=!p%:pb%=M%+M%!4*4+8:!pb%-=1:�!pb%=0�
�pb%=M%+8:�1<=M%!4�
� �i%=1�M%!4:�B(!pb%):pb%+=4:�
��
��
�!�1280266050:�B(p%!0):�B(p%!4)
� �1146377036:ȕp%:�0<=p%!4-1�
�"�M%=0�p%!4-1:�B(p%!(M%*4+8)):�
��
�
p%=p%!0:�
��
��
�b��Lb(ka$):�H%,vb%,wc%,S%,i%,j%,k%,l%,pb%:H%=ra%:ȕH%:wc%=0:vb%=H%!12:S%=vb%!4:ȕS%:�$S%!8=ka$�
��(S%!(S%!4*4+8))=0�
�H%!24=H%!24�2:�0<=S%!4-1�
�?�i%=0�S%!4-1:pb%=S%!(i%*4+8):�B(pb%):�free_structure(pb%):�
��
� �wc%�
�wc%!0=S%!0
��:vb%!4=S%!0
��
�B%=1413763664:C%=S%:�P%+16
��
�
S%=0:H%=0
��:wc%=S%:S%=S%!0
��
�:�H%H%=H%!0
�:�
*��p(la$):�S(�msg_1(A%!12,"OKZ",la$)):�
E��Mb(�H%):�M%,J%,c%,d%:J%=�b("cl:"):�J%=0�p(�msg_0(A%!12,"OKZa"))
H%=ra%:ȕH%:�$H%!4=$J%�
�H%!24�32�
]ș131080,7,"PrinterChoices:"+$J%+".WriteTest"�;c%:�(c%�1)�m:�254,�msg_1(A%!12,"OKAN",$J%)
$�
)"M%=!tb%:�Nb(H%,H%!8):!tb%=M%:�
.
�:H%=H%!0
3�
8�:�H%=0�
=/�Oa:�Ca($J%):�Da($J%,H%):�Pa:�Ka:�H%!24�32�
B]ș131080,7,"PrinterChoices:"+$J%+".WriteTest"�;c%:�(c%�1)�m:�254,�msg_1(A%!12,"OKAN",$J%)
G�
L�c(H%,A%!48,-5,0)
Q�
V%�H%=0�p(�msg_1(A%!12,"OKZb",$J%))
[�
`7��Nb(H%,ab%):�U%,J%:U%=ab%!4:�:J%=�b($(U%+16)):�J%�
eȎU%!4�
j�5:�Ob(H%,ab%,$J%)
o/�6:�?J%=13�p(�msg_1(A%!12,"OK7a",$(U%+16)))
t�Pb(H%,ab%,$J%)
y�7:�V(H%,ab%,$J%)
~/�8:�?J%=13�p(�msg_1(A%!12,"OK7a",$(U%+16)))
��Qb(H%,ab%,$J%)
��
�0�:�!tb%<xc%�p(�msg_1(A%!12,"OKZc",$(U%+16)))
��
�U%=U%!0:�U%=0:�
�)��Ob(H%,ab%,t$):�J%,ma$,k$:J%=�d:�J%�
�ȎU%!8�
�!�1:J%=�I(J%,yc%):�?J%=13J%=�d
�$�2,3,4:J%=�q(J%,k$):�?J%=13J%=�d
�.�7:J%=�q(J%,k$):�V(H%,ab%,k$):�?J%=13J%=�d
��V(H%,ab%,$J%)
��
��
��
�2��Pb(H%,ab%,t$):�i%,p%,zc%,J%:zc%=�t$:�1<=zc%�
��i%=1�zc%:J%=�d:�J%�
�&p%=U%!8:ȕp%:�p%!4=7�V(H%,ab%,$J%)
�p%=!p%:�
��
��
��
��
�I��V(H%,ab%,c$):�i%,s$,t$:i%=�c$,":"):�i%=0�p(�msg_1(A%!12,"OKAA",c$))
�;s$=�c$,i%-1):t$=�c$,i%+1):ab%=H%!8:ȕab%:�$(ab%+12)=s$�
��t$>0�
�
�:�Nb(H%,ab%):�
�
�:ab%=ab%!0
�
#�:�p(�msg_1(A%!12,"OKAB",s$)):�
,��Qb(H%,ab%,t$):�i%,zc%:zc%=�t$:�1<=zc%�
#�i%=1�zc%:�d
(�
-�
2�
7c��db:�J%,H%,M%,s$,U%,Ac%,Bc%,Cc%,Dc%,Fc%:J%=q%+44:�Z%,J%,s$:笤k(s$)�254,�msg_1(A%!12,"OKX",s$)
<$ș263872:�Mb(H%):Cc%=H%!12:�Cc%�
AAc%=Cc%!4:�Ac%�
F0M%=!tb%:U%=H%!8:U%=U%!4:J%=�b($(U%+16)):�J%�
KȕAc%:�$Ac%!8=$J%�
P�m:ș263873:�Rb(H%,Ac%):�
U�
ZBc%=Ac%:Ac%=Ac%!0:�
_'�:�p(�msg_1(A%!12,"OKZc",$(U%+16)))
d�
i!tb%=M%
n�:Bc%=0
s�
x�:Bc%=0
}�
�I�W(H%!8,Bc%,Cc%,0,Dc%,Fc%,H%):�m:H%!24=H%!24�2:�Rb(H%,Bc%):ș263873:�
�0��S(s$):�m:�254,�Q(A%!12,"OK0",�ub%,V$,s$):�
�3��h(H%,s$,na$):�S(�msg_2(A%!12,na$,$H%!4,s$)):�
�`��Ia(Gc%):�J%,T%,Hc%,i%,Ic%,Jc%,Kc%,Lc%:J%=�b("tp:"):�J%=0�h(Gc%,�msg_0(A%!12,"OK3"),"OK2a")
��:J%=�d:�J%�
�T%=�a(J%,"tp:"):�T%�
�bHc%+=1:B%=1414548820:C%=12+1+�$T%:Ic%=�(P%+12):�Ic%=0�h(Gc%,�msg_1(A%!12,"FA5","TMPT"),"OK2a")
� �Jc%�
�
Jc%!0=Ic%
��:Gc%!8=Ic%
��
�/Ic%!0=0:Ic%!4=0:Ic%!8=0:$(Ic%+12)=$T%:Lc%=0
��:T%=�a(J%,"end:"):�T%�
�/�?T%<>13�h(Gc%,�msg_0(A%!12,"OK3a"),"OK2a")
�Hc%-=1:Jc%=Ic%
�>�:i%=�$J%,":"):�i%=0�h(Gc%,�msg_1(A%!12,"OK4",$J%),"OK2a")
�2�Hc%<>1�h(Gc%,�msg_1(A%!12,"OK4a",$J%),"OK2a")
�bIc%!8+=1:B%=1498567758:C%=16+1+i%:Kc%=�(P%+12):�Kc%=0�h(Gc%,�msg_1(A%!12,"FA5","NTRY"),"OK2a")
��Lc%Lc%!0=Kc%�Ic%!4=Kc%
�FKc%!0=0:Kc%!4=0:Kc%!8=0:Kc%!12=0:$(Kc%+16)=�$J%,i%):J%+=i%+1:Ȏ-1�
�ɤa(J%,"in")<>0:Kc%!4=1
�ɤa(J%,"st")<>0:Kc%!4=2
�ɤa(J%,"s0")<>0:Kc%!4=3
�ɤa(J%,"gs")<>0:Kc%!4=4
�Jɤa(J%,"bl")<>0:Kc%!4=5:T%=�a(J%,"bl"):ȕ?T%=32:T%+=1:�:�?T%=�","T%+=1
� Ȏ-1�
ɤa(T%,"in")<>0:Kc%!8=1
ɤa(T%,"st")<>0:Kc%!8=2
ɤa(T%,"s0")<>0:Kc%!8=3
ɤa(T%,"gs")<>0:Kc%!8=4
ɤa(T%,"ptr")<>0:Kc%!8=7
,:�h(Gc%,�msg_1(A%!12,"OK5",$T%),"OK2a")
"�
':ɤa(J%,"ls")<>0:Kc%!4=6:T%=�a(J%,"ls"):�Sb(T%,Kc%,Gc%)
,ɤa(J%,"ptr")<>0:Kc%!4=7
1ɤa(J%,"ch")<>0:Kc%!4=8
6,:�h(Gc%,�msg_1(A%!12,"OK6",$J%),"OK2a")
;�
@Lc%=Kc%
E�
J�
O�
T
�Hc%=-1:�
YK��Sb(Mc%,U%,Gc%):�tc%,M%,t%:M%=U%+8:�:ȕ?Mc%=32:Mc%+=1:�:�?Mc%=44Mc%+=1
^!ȕ?Mc%=32:Mc%+=1:�:�?Mc%<>13�
cRU%!12+=1:B%=1414744396:C%=8:tc%=�(P%+12):�tc%=0�253,�msg_1(A%!12,"FA5","LIST")
h/!M%=tc%:M%=tc%:tc%!0=0:t%=�a(Mc%,"in"):�t%�
mMc%=t%:tc%!4=1
r�:t%=�a(Mc%,"st"):�t%�
wMc%=t%:tc%!4=2
|�:t%=�a(Mc%,"s0"):�t%�
�Mc%=t%:tc%!4=3
��:t%=�a(Mc%,"gs"):�t%�
�Mc%=t%:tc%!4=4
��:t%=�a(Mc%,"ptr"):�t%�
�Mc%=t%:tc%!4=7
�-�:�h(Gc%,�msg_1(A%!12,"OK7",$Mc%),"OK2a")
��
��
��
��
��
��
��?Mc%=13:�
�Mݤb(m$):�Nc%,i%:i%=Oc%+!tb%:ȕi%<Oc%+xc%:ȕ?i%=32:i%+=1:�:�?i%=35�?i%=13�
�i%+=�$i%+1:ub%+=1
��:�m$=�$i%,�m$)�
�DNc%=i%+�m$:ȕ?Nc%=32:Nc%+=1:�:i%+=�$i%+1:!tb%=i%-Oc%:ub%+=1:=Nc%
��:i%+=�$i%+1:ub%+=1
��
��
��:=0
�Iݤd:�Nc%,i%:i%=Oc%+!tb%:ȕi%<Oc%+xc%:ȕ?i%=32:i%+=1:�:�?i%=35�?i%=13�
�!i%+=�$i%+1:!tb%=i%-Oc%:ub%+=1
�/�:Nc%=i%:i%+=�$i%+1:!tb%=i%-Oc%:ub%+=1:=Nc%
��
��:=0
.ݤa(J%,m$):ȕ?J%=32:J%+=1:�:�m$=�$J%,�m$)�
J%+=�m$:ȕ?J%=32:J%+=1:�:=J%
�
=0
o��W(ab%,�Bc%,Cc%,Pc%,�Dc%,�Fc%,H%):�Wa%,Qc%,Rc%,J%,T%,U%,i%,Oa%:U%=ab%!4:Wa%=-1:�:Rc%=!tb%:Dc%=0:J%=�d:�J%�
�Wa%=-1�
![Oa%=4*ab%!8+8:B%=1413763664:C%=Oa%+8:Qc%=�(P%+12):�Qc%=0�253,�msg_1(A%!12,"FA5","PRDT")
&�0<=Oa%+7�
+�i%=0�Oa%+7�4:Qc%!i%=0:�
0�
5�Bc%Bc%!0=Qc%�Cc%!4=Qc%
:Qc%!4=ab%!8:Wa%=8
?�
D�:T%=�a(J%,$(U%+16)):�T%�
IDc%=1:ȎU%!4�
N&�1:Qc%!Wa%=�store_integer(�c($T%))
S)�2,3,4:B%=T%:C%=U%!4:Qc%!Wa%=�(P%+28)
X�5:Qc%!Wa%=�ea(U%,Fc%)
]3�6:�?T%=13�h(H%,�msg_1(A%!12,"OK7a",$J%),"OK2")
bQc%!Wa%=�fa(U%,�c($T%),Fc%)
g%�7:�?T%<>13�X(H%,$T%,Qc%+Wa%,Fc%)
l3�8:�?T%=13�h(H%,�msg_1(A%!12,"OK7a",$J%),"OK2")
qQc%!Wa%=�ga(U%,�c($T%))
v�
{�
�Wa%+=4:U%=U%!0:�U%=0�Dc%
��
��Dc%=0�
��!tb%>=xc%Dc%=3
�-!tb%=Rc%:U%=ab%!4:T%=�a(J%,$(U%+16)):�T%�
� Dc%=1
�0�:ab%=ab%!0:T%=�a(J%,$(ab%+12)+":"):�T%Dc%=2
��
�U%=0
��
��U%=0:Bc%=Qc%:�
����Ja(H%):�ab%,s$,J%,Rc%,U%,Dc%,Qc%,Bc%,Cc%,Pc%,Fc%,i%:ab%=H%!8:�:J%=�b($(ab%+12)+":"):�J%=0�h(H%,�msg_1(A%!12,"OK8",$(ab%+12)),"OK2")
�RB%=1145128264:C%=12:Cc%=�(P%+12):�Cc%=0�h(H%,�msg_1(A%!12,"FA5","HEAD"),"OK2")
�+Cc%!0=0:Cc%!4=0:�Pc%Pc%!0=Cc%�H%!12=Cc%
�;Bc%=0:�:U%=ab%!4:�W(ab%,Bc%,Cc%,Pc%,Dc%,Fc%,H%):�Dc%=0�
�.J%=�d:�h(H%,�msg_1(A%!12,"OK9",$J%),"OK2")
��
ե�Dc%<>1:ab%=ab%!0:Pc%=Cc%:�ab%=0:ȕFc%:i%=Fc%!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")
�A!!i%=�F(s$,-1):i%=Fc%:Fc%=!Fc%:B%=1482184792:C%=i%:�P%+16:�:�
�_ݤF(s$,Sc%):�j%,k%,t$:j%=�s$,":"):t$=�s$,j%+1):s$=�s$,j%-1):j%=H%!8:k%=0:ȕj%:�$(j%+12)=s$�
�\j%=H%!12:ȕk%:j%=j%!0:k%-=1:�:k%=�t$-1:j%=j%!4:ȕk%:j%=j%!0:k%-=1:�:�Sc%j%!(j%!4*4+8)+=1
�=j%
��:j%=j%!0:k%+=1
��
�&�:�b(�msg_2(A%!12,"FAG",s$,t$)):=0
�_ݤstore_integer(v%):�b%:B%=1196707401:C%=4:b%=�(P%+12):�b%=0�253,�msg_1(A%!12,"FA5","INTG")
!b%=v%:=b%
6ݤR(s$):�t$,i%,Tc%:ș39,s$,O%,256�,,Tc%:�Tc%=0�=""
�i%=0�Tc%-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%,�Fc%):�J%,yc%,b%,k$:B%=1280266050:C%=8:b%=�(P%+12):�b%=0�253,�msg_1(A%!12,"FA5","BOOL")
4J%=�d:�J%�
9ȎU%!8�
>:�1:J%=�I(J%,yc%):b%!0=�store_integer(yc%):�?J%=13J%=�d
C b%!4=�store_integer(�c($J%))
HG�2,3,4:J%=�q(J%,k$):$q%=k$:B%=q%:C%=U%!8:b%!0=�(P%+28):�?J%=13J%=�d
MB%=J%:C%=U%!8:b%!4=�(P%+28)
R3�7:J%=�q(J%,k$):�X(H%,s$,b%+0,Fc%):�?J%=13J%=�d
W�X(H%,$J%,b%+4,Fc%)
\�
a�
f=b%
k?ݤfa(U%,Uc%,�Fc%):�i%,M%,Vc%,Wc%,J%,Xc%,Zc%,yc%,k$:�1<=Uc%�
p[�i%=1�Uc%:B%=1146377036:C%=4*U%!12+8:Vc%=�(P%+12):�Vc%=0�253,�msg_1(A%!12,"FA5","LSTD")
u�Wc%Wc%!0=Vc%�M%=Vc%
z(Vc%!0=0:Vc%!4=U%!12:Zc%=8:J%=�d:�J%�
Xc%=U%!8:ȕXc%:ȎXc%!4�
�0�1:J%=�I(J%,yc%):Vc%!Zc%=�store_integer(yc%)
�>�2,3,4:J%=�q(J%,k$):$q%=k$:B%=q%:C%=Xc%!4:Vc%!Zc%=�(P%+28)
�)�7:J%=�q(J%,k$):�X(H%,k$,Vc%+Zc%,Fc%)
��
�Xc%=!Xc%:Zc%+=4:�
��
�
Wc%=Vc%:�
��
�=M%
�1ݤga(U%,Uc%):�i%,Vc%,J%,Wc%,M%,j%,t$:�1<=Uc%�
��i%=1�Uc%:J%=�d:�J%�
�Xt$=�R($J%):B%=1380010051:C%=5+�t$:Vc%=�(P%+12):�Vc%=0�253,�msg_1(A%!12,"FA5","CHAR")
�4Vc%!0=0:Vc%?4=�t$:Vc%?5=�t$-1:t$=�t$,2):�1<=�t$�
�%�j%=1��t$:Vc%?(j%+5)=��t$,j%,1):�
��
��Wc%Wc%!0=Vc%�M%=Vc%
��
�
Wc%=Vc%:�
��
�=M%
�z��X(H%,c$,_c%,�Fc%):�i%,s$,t$,`c%,ad%,Pc%,ab%,Bc%,bd%,Dc%,Qc%,t$:i%=�c$,":"):�i%=0�h(H%,�msg_1(A%!12,"OKAA",c$),"OK2")
�Ks$=�c$,i%-1):t$=�c$,i%+1):ab%=H%!8:bd%=H%!12:Pc%=0:ȕab%:�$(ab%+12)=s$�
��t$>0�
�KB%=1381257040:C%=�c$+1:i%=�(P%+12):�i%=0�253,�msg_1(A%!12,"FA5","POTR")
�X$i%=c$:!_c%=i%:B%=1482184792:C%=8:`c%=�(P%+12):�`c%=0�253,�msg_1(A%!12,"FA5","XXXX")
!`c%=Fc%:`c%!4=_c%:Fc%=`c%:�
�:�bd%�
Bc%=bd%!4:�Bc%�
ȕBc%!0:Bc%=Bc%!0:�
�
�:Bc%=0
�
$8ad%=Bc%:�W(ab%,Bc%,bd%,Pc%,Dc%,Fc%,H%):�Dc%=0�Bc%=0�
)J%=�d:�J%t$=$J%�t$=""
.'�h(H%,�msg_1(A%!12,"OK9",t$),"OK2")
3�
8*Qc%=bd%!4:ȕQc%<>Bc%:�Qc%!(Qc%!4*4+8)�
=Dc%=-1:�0<=Qc%!4-1�
B'�i%=0�Qc%!4-1:笤C(Qc%,Bc%,i%*4+8)�
GDc%=0:i%=Qc%!4
L�
Q�
V�
[ �Dc%�
`�0<=Bc%!4-1�
eA�i%=0�Bc%!4-1:`c%=Bc%!(i%*4+8):�B(`c%):�free_structure(`c%):�
j�
o/ad%!0=0:B%=1413763664:C%=Bc%:�P%+16:Bc%=Qc%
t�:Qc%=!Qc%
y�
~�:Qc%=!Qc%
��
�I�:B%=1381257040:C%=4:i%=�(P%+12):�i%=0�253,�msg_1(A%!12,"FA5","POTR")
�(!i%=Bc%:!_c%=i%:Bc%!(Bc%!4*4+8)+=1:�
��
��:ab%=ab%!0:�t$=0�
�Pc%=bd%:bd%=bd%!0
��
��
�,�:�h(H%,�msg_1(A%!12,"OKAB",s$),"OK2"):�
�6ݤC(s%,d%,o%):�s$,d$:s%=s%!o%:d%=d%!o%:�s%=0�d%=0�
�=(s%=d%)
��:Ȏs%!-4�
��1196707401:=!s%=!d%
��1196577875:=$s%=$d%
�)�810701907:�Z%,s%,s$:�Z%,d%,d$:=s$=d$
�*�1381258055:�Y%,s%,s$:�Y%,d%,d$:=s$=d$
��1280266050:=�ha(s%,d%)
��1146377036:=�ia(s%,d%)
��1381257040:=!s%=!d%
��1380010051:=�ja(s%,d%)
�&:�b(�msg_1(A%!12,"WA10",�~s%!-4))
��
��
�=0
�,ݤha(s%,d%):�C(s%,d%,0)�=�C(s%,d%,4)�=0
$ݤia(s%,d%):�i%:ȕs%:�0<=s%!4-1�
&�i%=0�s%!4-1:笤C(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
-.ݤI(cd%,�yc%):�i%,dd%:i%=�$cd%,","):�i%=0�
2yc%=�c($cd%):dd%=cd%+�$cd%
77�:yc%=�c(�$cd%,i%-1)):dd%=cd%+i%:ȕ?dd%=32:dd%+=1:�
<�
A=dd%
F�ݤq(cd%,�k$):�i%,oa$,ed%,fd%:k$="":i%=0:ȕcd%?i%=32:i%+=1:�:ed%=-1:fd%=(cd%?i%=34):ȕ�(cd%?i%=13�(ed%�cd%?i%=44)):�fd%�cd%?i%<>34�ed%k$+=�cd%?i%
K�fd%�cd%?i%=34ed%=�ed%
Pi%+=1:�:�cd%?i%=13�
Udd%=cd%+i%
Z%�:dd%=cd%+i%+1:ȕ?dd%=32:dd%+=1:�
_�
d=dd%
idݤk(c$):�c%,i%,gd%,hd%,id%,jd%,kd%,dd%,ld%,gb%:ș8,17,c$�c%,,gd%,,xc%:�(c%=0�c%=1)�ș8,19,c$,c%
n�c%=0�=0
s*�(gd%>>>20)=4095hd%=gd%>>8�4095�hd%=-1
x*�hd%<>4038�254,�msg_1(A%!12,"OKAL",c$)
}QB%=1096040772:C%=4+xc%+1:Oc%=�(P%+12)+4:�Oc%=4�253,�msg_1(A%!12,"FA5","DATA")
�,ș8,16,c$,Oc%:�xc%>=20�Oc%!0=1213419859�
�mș272129,8,-1�id%:kd%=Oc%!4:B%=1096040772:C%=4+kd%+1:dd%=�(P%+12)+4:�dd%=4�253,�msg_1(A%!12,"FA5","DATA")
�Jș131102,6,,,id%�C%,,jd%;gb%:�(gb%�1)�253,�msg_1(A%!12,"FA5","squash")
�fș272129,4,jd%,Oc%+20,xc%-20,dd%,kd%�ld%:ș30,7,,jd%:B%=1096040772:C%=Oc%-4:�P%+16:Oc%=dd%:xc%=kd%
��
�Utb%=Oc%-4:!tb%=0:ub%=1:B%=Oc%:C%=xc%:�P%+52:�Oc%?(xc%-1)<>13xc%+=1:Oc%?(xc%-1)=13
�
V$=c$:=-1
�3��m:B%=1096040772:C%=Oc%-4:�P%+16:Oc%=0:xc%=0:�
�1��Oa:md%=Oc%:nd%=tb%:od%=xc%:pd%=ub%:pa$=V$:�
�1��Pa:Oc%=md%:tb%=nd%:xc%=od%:ub%=pd%:V$=pa$:�
�u��Rb(H%,S%):�s%,t%,s$,z%,N%:S%!(S%!4*4+8)+=1:B%=1414419024:C%=68:z%=�(P%+12):�z%=0�253,�msg_1(A%!12,"FA5","PRNT")
��A%!48�
�%s%=A%!48:ȕs%!0:s%=s%!0:�:s%!0=z%
��:A%!48=z%
��
�rz%!0=0:z%!4=H%:B%=S%!8:C%=2:z%!8=�(P%+28):B%=1413697091:C%=36:N%=�(P%+12):�N%=0�253,�msg_1(A%!12,"FA5","CNCT")
�fș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:笤s�
�N%!12=0
�(�:ș6,161,3�,,s%:ș6,161,4�,,t%:�s%�
�-$q%=�t%+"."+�s%:B%=q%:C%=2:N%!12=�(P%+28)
�8�:s$=�t%:�s%=1�5:ș6,161,152+s%�,,t%:�t%s$+=�t%�s%=5
�&�:$q%=s$:B%=q%:C%=2:N%!12=�(P%+28)
��
��
��ș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=�G
�: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)
1�:z%!56=-1
6�
;�Z(z%):�
@X��t(�z%,�R%,�nb%):ș262358,Bb%,O%,1<<21,1<<21:nb%=!O%:R%=0:z%=A%!48:ȕz%:�z%!28=nb%�
E�
J
�:z%=z%!0
O�
T�:R%=Ha%:ȕR%:�R%!16=nb%�
Y�
^
�:R%=R%!0
c�
h�:�
mV��Tb (�z%,�nb%):ș262358,Bb%,O%,1<<21,1<<21:nb%=!O%:R%=0:z%=A%!48:ȕz%:�z%!28=nb%�
r�
w
�:z%=z%!0
|�
��:�
�O��Ub (�R%,�nb%):ș262358,Bb%,O%,1<<21,1<<21:nb%=!O%:R%=Ha%:ȕR%:�R%!16=nb%�
��
�
�:R%=R%!0
��
��:�
�@��T(z%):�N%,i%,qd%,rd%,sd%:�z%!24�8�254,�msg_0(A%!12,"OKAJ")
�,ya%=z%:za%=z%!4:N%=z%!12:�z%!24�(1<<17)�
��
��
��za%!24�4�
�m�c(za%,ya%,-11,0):�s(�printer_find_window(ya%,"connections")):�q(�printer_find_window(ya%,"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)
ǐ�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�
��1:i%=0
��2:i%=1
��4:�s i%=2
��5:i%=4
��6:�y i%=3
��8:�za%!24�16i%=33
��
��i%�icon_select(Q%,i%)
�s�icon_write(Q%,15,�msg_0(A%!12,"BR"+�N%?4)):i%=N%!8:qd%=i%�3:sd%=(i%�4)>>2:rd%=(i%�48)>>4:�(i%�8)=0rd%=0�rd%+=1
�a�icon_write(Q%,17,�msg_0(A%!12,"DA"+�qd%)):�icon_write(Q%,18,�msg_0(A%!12,"PA"+�rd%)):�sd%=0�
�*�icon_write(Q%,19,�msg_0(A%!12,"SB0"))
�:�qd%=0�rd%<>0�
+�icon_write(Q%,19,�msg_0(A%!12,"SB1b"))
�:�qd%=3�rd%=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)
04�N%?6�2�icon_select(Q%,35)��icon_deselect(Q%,35)
5��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<>""�u(Q%,30,N%,16)��icon_write(Q%,30,"null:")
:,�s�icon_unshade(Q%,2)��icon_shade(Q%,2)
?,�y�icon_unshade(Q%,3)��icon_shade(Q%,3)
DT!W%=Q%:ș262348,,W%�1:W%!28=-1:�za%!24�16�icon_unshade(Q%,33)��icon_shade(Q%,33)
I�s(Q%):ș262341,,W%:�ob
N�
S�
XM��u(Kb%,nb%,td%,Wa%):�icon_write(Kb%,nb%,�printer_read_string(td%!Wa%)):�
]��C(td%,Wa%,nb%):�td%!Wa%�
b-B%=1196577875:C%=td%!Wa%:�P%+16:td%!Wa%=0
g�
lA!X%=Q%:X%!4=nb%:ș262350,,X%:B%=X%!28:C%=2:td%!Wa%=�(P%+28):�
qݤu:=�T(Q%,17,3,"DA",A%!12)
vݤp:=�T(Q%,18,4,"PA",A%!12)
{4ݤU:�icon_read(Q%,19)=�msg_0(A%!12,"SB0")�=0�=1
���Fb(ud%):�ud%=-1ud%=�U
��ud%=0�
�*�icon_write(Q%,19,�msg_0(A%!12,"SB0"))
��:�u=0��p<>0�
�+�icon_write(Q%,19,�msg_0(A%!12,"SB1b"))
��:�u=3��p=0�
�+�icon_write(Q%,19,�msg_0(A%!12,"SB1c"))
�-�:�icon_write(Q%,19,�msg_0(A%!12,"SB1a"))
��
��
��
��
�CݤT(Kb%,nb%,vd%,qa$,wd%):�i%,s$:s$=�icon_read(Kb%,nb%):�0<=vd%�
�)�i%=0�vd%:�s$=�msg_0(wd%,qa$+�i%)�=i%
��
��
�=0
�9��jb:�N%,i%,p$,s$:N%=ya%!12:N%!0=0:�icon_set(Q%,37)�
�N%?6=N%?6�1
��:N%?6=N%?6��1
��
��icon_set(Q%,0)�
�9p$=�B(1,ya%):�p$=""N%!0=1��254,�msg_1(A%!12,"OKI",p$)
��
��icon_set(Q%,1)�
�9p$=�B(2,ya%):�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%=�u��U<<2:�p i%=i%��p-1<<4�8
!/N%!8=i%:�icon_set(Q%,13)�
!4
N%?5=1
!9�:N%?5=0
!>�
!C�icon_set(Q%,35)�
!HN%?6=N%?6�2
!M�:N%?6=N%?6��2
!R�
!Wq�C(N%,12,25):�C(N%,20,26):�C(N%,24,27):�C(N%,28,28):�C(N%,32,29):�C(N%,16,30):�ib(ya%):�f(-1,ya%,0):�ya%!20�
!\�ya%!24�2�
!a�select_printer(ya%,-1,0)
!f�
!k�i(ya%)
!p�
!u�
!z,��i(z%):�ra$,i%,x$,sa$,xd%,H%:�z%!20=-1�
!/H%=z%!4:ra$=�V(z%):�z%!44x$=$z%!44�x$=$H%!4
!�`sa$="ss_"+x$+","+x$:!O%=-1:O%!4=z%!20:ș262350,,O%:xd%=O%!24�1<<21:�ra$<>$O%!28�sa$<>$O%!32�
!�Hi%=�r(ra$,x$,-4,z%!20):�D(-1,z%!20):z%!20=i%:�xd%�icon_select(-1,i%)
!��
!��
!�0ݤV(z%):�N%,K%:�z%!24�4�=�msg_0(A%!12,"QU1")
!�
�z%!24�8�
!�?K%=z%!32:�K%?11�1�=�msg_0(A%!12,"QU1")�=�msg_0(A%!12,"QU2")
!��
!�"�z%!24�32�=�msg_0(A%!12,"QU3")
!��z%!40�=$z%!40
!�N%=z%!12:ȎN%!0�
!�&�0,1,2,5:=�msg_0(A%!12,"IC"+�N%!0)
!��4:=$N%!12
!��6:=$N%!24
!��
!�=""
!�h��Ab:�Wa%,ld%,tc%,i%,s$,mc%:B%=1414744396:C%=2048:tc%=�(P%+12):�tc%=0�253,�msg_1(A%!12,"FA5","LIST")
!�Bș393735,1,tc%,2048,500�Wa%;i%:�i%�1i%=Wa%+4:�Z%,i%,s$:�254,s$
!ަ�menu_create(_%,�msg_0(A%!12,"ME6")):mc%=(_%!28�256)<>0:ld%=tc%:i%=0:ȕi%<Wa%:�Z%,ld%,s$:ld%+=�s$+1:�menu_item(_%,i%,s$,mc%):i%+=1:�:B%=1414744396:C%=tc%:�P%+16:�
!�>��Ib:�z%,N%,nb%,gb%:�R%,yd%,zd%,ib%,Ad%:�:�Tb(z%,nb%):�z%�
!�.�icon_deselect(Bb%,nb%):�(z%!24�1)=0�Z(z%)
!��(z%!24�(1<<16))�
!��gb (z%)
!��
!��
",�z%=0:zd%=0:ș263872:�:�Ub (R%,nb%):�R%�
"�R%!20<=0�
"A�icon_deselect(Bb%,nb%):ib%=�D (R%!4,R%!8,R%!12):�K (zd%,ib%)
"�
"�
"q�R%=0:ib%=zd%:ȕib%:yd%=�x(ib%,0,0,0,gb%):�Ta (Ha%,$ib%!4):Ad%=ib%:ib%=ib%!0:�d (1380799568,Ad%):�:ș263873:�
";��Z(z%):z%!24=z%!24�1:N%=z%!12:�Ua(z%):�A(z%):�A%!44=1�
"$�select_printer(z%,-1,0)
")�
".�
"3*��Ua(z%):�s$,i%,mb%,H%:H%=z%!4:�z%!44�
"8
s$=$z%!44
"=�:s$=$H%!4
"B�
"Gi%=�ka(z%):mb%=-4:�i%=-1�
"Li%=�W(z%):mb%=-3
"Q�
"V�i%=-1�
"[i%=251658240:mb%=-5
"`�
"e$z%!20=�r(�V(z%),s$,mb%,i%):�sb%�
"j�D(-1,rb%):sb%=0
"o�
"tA%!44+=1:�
"yݤka(z%):�nb%,Bd%:�sb%�
"~nb%=rb%
"�/�:nb%=-1:Bd%=A%!48:ȕBd%:�Bd%!20nb%=Bd%!20
"��Bd%=z%Bd%=0�Bd%=Bd%!0
"��
"��
"�=nb%
"�(ݤW(z%):ȕz%!20=-1:z%=z%!0:�z%=0�=-1
"��:=z%!20
"�^��Vb:rb%=�r(�msg_0(A%!12,"NNE"),"s"+�msg_0(A%!12,"IC"),-5,251658240):sb%=-1:!q%=A%!40:�e:�
"�a��Jb:�z%,nb%,Cd%,c$,Ad%:�R%,Cd%,zd%,ib%,z%:zd%=0:�:�t(z%,R%,nb%):�icon_deselect(Bb%,nb%):�z%�
"��z%!24�(1<<17)�
"� ib%=�D (0,0,z%):�K (zd%,ib%)
"�
�:�Wb(z%)
"��
"��
"��R%�R%!20>0�
"��Xb ($R%!4):�J=0�A%!44=0�
"��Vb
"��
"��
"�t�z%=0�R%=0:ib%=zd%:ȕib%:z%=ib%!12:c$=$z%!40:�Zb (z%):�_b (c$):Ad%=ib%:ib%=ib%!0:�d (1380799568,Ad%):�:�k:�V%=0�
"��A%!44�
"�Cd%=A%!48:ȕCd%:�Cd%!20�
"�#�select_printer(Cd%,-1,0):Cd%=0
"��:Cd%=Cd%!0
"��
# �
#�
#
�
#�
#!��Wb(z%):�Dd%:�z%!24�(1<<16)�
#�gb (z%)
#�
##�z%!24�(1<<17)�
#(
Dd%=-1
#-�
#2
�z%!24�1�
#7�z%!24�(1<<17)�
#<
Cd%=-1
#A
�:�z%!32�
#FCd%=�X("WA2",$z%!8)
#K�:Cd%=-1
#P�
#U�
#Z �Cd%�
#_�c(z%!4,z%,-10,0):�z%!20�
#d�A%!44=1��J=0�
#i�Vb
#n�
#s�A%!44=1��J>0�
#x!q%=A%!40:�e
#}�
#�"�D(-1,z%!20):z%!20=-1:A%!44-=1
#��
#�0z%!24=z%!24��63+65536:�V%=z%ș524632,-1:V%=0
#�
�A(z%)
#��
#��
#��
#�i��Kb:�i%,z%,M%,Fd%,Gd%,Cd%,y$:B%=1482184792:C%=256:Gd%=�(P%+12):�Gd%=0�253,�msg_1(A%!12,"FA5","XXXX")
#�qș262358,Bb%,Gd%,1<<21,1<<21:M%=Gd%:ș263872:ȕ�!M%:i%=!M%:z%=A%!48:Fd%=0:ȕz%:�((z%!24�(1<<17))=0)�z%!28=i%�
#��z%!32�
#�4ș263873:Cd%=�X("WA3",$z%!8):ș263872:�Cd%�A(z%)
#��:Cd%=-1
#��
#� �Cd%�
#� y$=$z%!8:�`b(z%,Fd%):�Lb(y$)
#��
#�z%=0
#��:Fd%=z%:z%=z%!0
#��
#��:M%+=4:�:�V%=0�
#��A%!44�
#�Cd%=A%!48:ȕCd%:�Cd%!20�
#�#�select_printer(Cd%,-1,0):Cd%=0
#��:Cd%=Cd%!0
#��
#��
$�
$ �
$�V%=0�z
$5B%=1482184792:C%=Gd%:�P%+16:�k:�q(Bb%):ș263873:�
$d��`b(z%,Fd%):�j%,i%,Oa%,H%,S%:H%=z%!4:S%=H%!12:S%=S%!4:�c(H%,z%,-9,0):�Wb(z%):ȕS%:�$S%!8=$z%!8�
$S%!(S%!4*4+8)-=1:S%=0
$"
�:S%=S%!0
$'�
$,�:�ya%=z%�
$1
!q%=Q%:�e
$6�
$;i%=H%!20:ȕi%:�i%!12=z%�
$@!q%=i%!4:�e
$E�
$Ji%=i%!0:�:�z%!48�Va(z%!48)
$O�V%=z%V%=0
$T.�free_structure(z%!8):j%=z%!12:�(H%!24�4)�
$YOa%=H%!48:�1<=Oa%�
$^*�i%=1�Oa%:�free_structure(!j%):j%+=4:�
$c�
$h��:�free_structure(j%!12):�free_structure(j%!16):�free_structure(j%!20):�free_structure(j%!24):�free_structure(j%!28):�free_structure(j%!32)
$m�
$r,B%=1413697091:C%=j%:�P%+16:j%=z%!16:�j%�
$wOa%=H%!36:�0<=Oa%-1�
$|,�i%=0�Oa%-1:�free_structure(j%!(i%*4)):�
$��
$��
$��B%=1195789891:C%=j%:�P%+16:!q%=Bb%: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:�Fd%�
$�Fd%!0=j%
$��:A%!48=j%
$��
$��
$��ݤX(na$,ta$):�x%,y%,w%,h%:�icon_write(Ab%,0,�msg_1(A%!12,na$,ta$)):�icon_write(Ab%,3,�msg_0(A%!12,na$+"a")):ș262351,,q%:x%=!q%:y%=q%!4:!q%=Ab%:ș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%:�ac(Ab%):pa%=0:�:�v(la%):�pa%:!q%=Ab%:�e:�bc:=(pa%=3)
$�\��ac(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%:�
$����bc:�Hd%,Id%,Jd%,Kd%,Ld%,Md%:ș53,-1,4�,,Id%:Id%=1<<Id%:ș53,-1,5�,,Kd%:Kd%=1<<Kd%:ș53,-1,11�,,Hd%:Hd%+=1:ș53,-1,12�,,Jd%:Jd%+=1:Ld%=Hd%*Id%:Md%=Jd%*Kd%:?q%=1:q%!1=0:q%!3=0:q%!5=Ld%:q%!7=Md%:ș7,21,q%:�
$�#��k:�z%,M%,i%:�R%:!O%=Bb%:�sa%�
$�(�i%=0�sa%-1:O%!4=i%+4:ș262340,,O%:�
$��
$� �Ja%�
$�,�i%=sa%�sa%+Ja%:O%!4=i%+4:ș262340,,O%:�
$��
$��sa%=0:Ja%=0:!O%=Bb%: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%:sa%+=1:O%!16=O%!8:O%!8-=(a%(4)!12-a%(4)!4):z%!28=i%:z%=z%!0:�:R%=Ha%:ȕR%
$�ș262338,,O%�i%:Ja%+=1:O%!16=O%!8:O%!8-=(a%(4)!12-a%(4)!4):R%!16=i%:R%=R%!0:�:ș262348,,O%�1:O%!0=0:O%!4=-(sa%+Ja%+1)*(a%(4)!12-a%(4)!4):O%!8=O%!52-O%!44:O%!12=0:ș262359,Bb%,O%
$�UO%!4=-(sa%+Ja%+2)*(a%(4)!12-a%(4)!4):ș262353,Bb%,O%!0,O%!4,O%!8,O%!12:�h (Bb%)�
$��q(Bb%)
$��
$��
$�1ݤy:�i%:ș131129,,"NFS_Mount"�;i%:=((i%�1)=0)
$�;ݤs:�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%
%
A��w(z%,Nd%,Od%):�p%:p%=ra%:ȕp%:�c(p%,z%,Nd%,Od%):p%=p%!0:�:�
%5��c(H%,z%,Nd%,Pd%):�i%:�:��:��:�cc(H%,z%,Nd%):�
%LO%!0=Nd%:O%!4=H%:O%!8=z%:O%!12=Pd%:O%!16=ia%:O%!20=P%:O%!24=A%:�H%!24�1�
%(i%=�("FN"+$H%!4+"_support("+�O%+")")
%!�:�0<=Va%-1�
%&�i%=0�Va%-1:�$H%!4=b$(i%)�
%+B%=O%:�b%(i%)
%0�
%5�
%:�
%?�
%D�
%I%��cc(H%,z%,Nd%):�(z%!24�8)�254,�$
%N�=253�253,�$
%S*�b(�v(A%!12,"WA6",$H%!4,�Nd%,�$,Þ)):�
%X/��dc(z%):z%!24=z%!24�4:�i(z%):�f(-1,z%,0):�
%],��nb(z%,c$):�Ib%,Qd%,i%:�c$="configure"�
%b%�z%!24�8�254,�msg_0(A%!12,"OKAI")
%g�
%l�Ib%=�printer_find_window(z%,c$):�s(Ib%):�q(Ib%):!O%=Ib%:ș262348,,O%�1:Qd%=O%!88:�i%=0�Qd%:!O%=Ib%:O%!4=i%:ș262350,,O%:�(O%!24�(1<<23))=0�
%q�(O%!24�(15<<12))=(15<<12)�
%v%�(z%!24�(1<<16))�(z%!24�(1<<17))�
%{+�icon_shade (Ib%,i%):�caret_set (-1,-1)
%�/�:�icon_unshade (Ib%,i%):�caret_set(Ib%,i%)
%��
%��
%��
%��
%��:�
%�Hݤprinter_find_window(z%,c$):�H%:H%=z%!4:i%=H%!20:ȕi%:�$(i%+16)=c$�
%�i%!8=H%:i%!12=z%:=i%!4
%��
%�,i%=i%!0:�:�253,�msg_1(A%!12,"FAE",c$):=0
%�A��G(Ib%,�Kb%,�H%,�z%):H%=ra%:ȕH%:Kb%=H%!20:ȕKb%:�Kb%!4=Ib%�
%�z%=Kb%!12:�
%��
%�+Kb%=Kb%!0:�:H%=H%!0:�:Kb%=0:H%=0:z%=0:�
%�3ݤprinter_find_prdata_entry(H%,c$):�S%:�H%=0�=0
%�S%=H%!12:�S%=0�=0
%�S%=S%!4:�S%=0�=0
%� ȕ$S%!8<>c$:S%=S%!0:�S%=0�=0
%� �:=S%
%�ݤZ(M%):�M%=0�=0
%�)�M%!-4<>1196707401�M%!-4<>1381257040�
%��253,�msg_0(A%!12,"FA6")
%��
%�=!M%
%�.ݤprinter_read_string(M%):�i%,s$:�M%=0�=""
%�ȎM%!-4�
&�1196577875:=$M%
&�810701907:�Z%,M%,s$:=s$
&�1381258055:�Y%,M%,s$:=s$
&�
& �253,�msg_0(A%!12,"FA7"):=""
&1ݤprinter_read_integer_entry(S%,Rd%):�S%=0�=0
& =�Z(S%!(4+Rd%*4))
&%1ݤprinter_read_string_entry(S%,Rd%):�S%=0�=""
&*'=�printer_read_string(S%!(4+Rd%*4))
&/@ݤprinter_read_boolean_string_entry(S%,Rd%,Sd%):�M%:�S%=0=""
&4>M%=S%!(4+Rd%*4):�M%!-4<>1280266050�253,�msg_0(A%!12,"FA8")
&9 �Sd%�
&>=�printer_read_string(M%!4)
&C!�:=�printer_read_string(M%!0)
&H�
&MBݤprinter_read_list_integer_entry(S%,Rd%,tc%,Td%):�M%:�S%=0�=0
&RM%=S%!(4+Rd%*4):�M%=0=0
&W.�M%!-4<>1146377036�253,�msg_0(A%!12,"FA9")
&\(ȕtc%<>1�M%:M%=M%!0:tc%-=1:�:�M%=0=0
&a*M%+=8:ȕTd%<>1:M%+=4:Td%-=1:�:=�Z(!M%)
&f ��aa(N$,�Ud%):�:��:�0,�$
&k<ș30,6,,,17+�N$�,,Ud%:$(Ud%+16)=N$:ș267521,Ud%,Ud%+16:�
&p*ݤmsg_0(Ud%,T$)=�v(Ud%,T$,"","","","")
&u-ݤmsg_1(Ud%,T$,S$)=�v(Ud%,T$,S$,"","","")
&z4ݤmsg_2(Ud%,T$,ua$,va$)=�v(Ud%,T$,ua$,va$,"","")
&5ݤQ(Ud%,T$,ua$,va$,wa$)=�v(Ud%,T$,ua$,va$,wa$,"")
&�aݤv(Ud%,T$,ua$,va$,wa$,xa$):�F%,L%:ș398594,Ud%,T$,ba%,256,ua$,va$,wa$,xa$�,,,L%;F%:�F%�1�=T$
&�ba%?L%=13:=$ba%
&���_(Ud%):�Ud%�
&� ș267524,Ud%:ș131102,7,,Ud%
&��
&��
&����ca(n$):ya$=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
&�+ș262336,300,1263747412,n$,q%�Vd%,Ob%:�
&���hb:ș262365:�
&�-ݤaa(ca%):�Wd%,Xd%,z%,t%:�K$<>""ca%=ca%�1
&�!�(ca%�1)=0�ea%=-1�ca%<>A%!20�
&�ș262343,ca%,q%,,Ia%�Wd%
&��:�ea%=0�K$<>""�
&�ș262343,ca%��1,q%,,Ia%�Wd%
&�(�:ș262369,ca%��1,q%,ja%+ea%,Ia%�Wd%
&��
&��
&�>ș66�Xd%:Zd%=Xd%-ja%:ja%=Xd%:z%=A%!48:ȕz%:t%=z%+56:�!t%�
&��Zd%<!t% !t%-=Zd%�!t%=0
&��
&�z%=z%!0:�:=Wd%
&���na:�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$,_d%):�Tc%,hb%:ș131107,n$,_d%,256,,3�,,Tc%;hb%:�hb%�1Tc%=0
'_d%?Tc%=13:=$_d%
'1ݤla(a$,b$):�`d%:ș274525,-1,a$,b$,3�`d%:=`d%
'>ݤtask_lower(s$):�l$,ae%,i%:ș274519,-1�ae%:l$="":�1<=�s$�
'$$�i%=1��s$:l$+=�ae%?��s$,i%,i%):�
')�
'.=l$
'3>ݤtask_upper(s$):�u$,ae%,i%:ș274520,-1�ae%:u$="":�1<=�s$�
'8$�i%=1��s$:u$+=�ae%?��s$,i%,i%):�
'=�
'B=u$
'G��da:�be%256:�
'L;��la:�r$,r%:r$=�$:r%=�r$,"in "+�34+"!"):�r%r$=�r$,r%-1)
'QȎ��
'V�254:�j(r$,1)
'[�253:�j(r$,2)
'`J:�j("Unexpected error: "+r$+" (error number &"+�~�+") at line "+Þ,3)
'e�
'j�
'oV��j(r$,ce%):�r%:ș262356,,-1:!be%=�:$(be%+4)=r$+�0:ș262367,be%,ce%,ya$�,r%:�r%=2�
't
'yNb%=2:�H:�x
'~�
'��
'�O��b(r$):!be%=1:$(be%+4)=r$+�0:ș262367,be%,1�1<<4,�msg_1(A%!12,"ER2",ya$):�
'���ea:de%=0:�
'�Cݤr(za$,x$,mb%,ee%):�t%,s%,i%,v$,w%:�x$="s"+�msg_0(A%!12,"IC")�
'�#v$="s"+x$:ș262377,40,,x$�,,,w%
'�%�:ș393449,40,,x$�,,,w%;i%:�i%�1�
'�<ș262377,40,,"s"+�msg_0(A%!12,"IC")�,,,w%:�x$,3)="su_"�
'�v$="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%=�za$+1:t%=�(P%+12):�t%=0�253,�msg_1(A%!12,"FA5","IBFF")
'�S$t%=za$: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%)<�za$*16w%=�za$*16�w%=w%<<i%
'�tX%!0=mb%:X%!4=0:X%!8=-16:X%!12=w%:X%!16=88:X%!20=385888523:X%!24=t%:X%!28=s%:X%!32=�za$+1:ș262338,ee%,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%)
(-�
(2c��icon_validation(a%,b%,s$):!X%=a%:X%!4=b%:ș262350,,X%:$X%!32=s$:X%!8=0:X%!12=0:ș262349,,X%:�
(7:ݤ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%:�
(AL��icon_shade(a%,b%):!X%=a%:X%!4=b%:X%!8=1<<22:X%!12=1<<22:ș262349,,X%:�
(FV��icon_deselect(a%,b%):!X%=a%:X%!4=b%:X%!8=0:X%!12=1<<21:ș262349,,X%:�a%=Bb%ta%=0
(K�
(PX��icon_select(a%,b%):!X%=a%:X%!4=b%:X%!8=1<<21:X%!12=1<<21:ș262349,,X%:�a%=Bb%ta%=0
(U�
(ZCݤicon_set(a%,b%):!X%=a%:X%!4=b%:ș262350,,X%:=(X%!24�1<<21)<>0
(_o��icon_info(a%,b%,�fe%,�ge%,�he%,�ie%):!X%=a%:X%!4=b%:ș262350,,X%:fe%=X%!8:ge%=X%!12:he%=X%!16:ie%=X%!20:�
(df��caret_set(h%,i%):�j%:j%=��icon_read(h%,i%):ș262354,h%,i%,-1,-1,,j%:ș262354,h%,i%,-1,-1,-1,j%:�
(iD��caret_info(�h%,�i%,�n%):ș262355,,X%:h%=!X%:i%=X%!4:n%=X%!20:�
(n��fa:Z$="":�
(s4��Fa(Aa$,Ba$):�a$,a%:ș6,161,140�,,a%:�(a%�1)=1�
(x$ș8,17,Ba$�a%:�a%=1Z$=Ba$�Z$=Aa$
(}�:Z$=Aa$
(��
(�ș262361,,Z$:�
(���Ha:ș262362:�
(�a��l(f$,n$,je%,�Ib%):�_d%:�ec(f$,n$,_d%):_d%!64=je%:�fc(_d%,Ib%):B%=1145981271:C%=_d%:�P%+16:�
(����ec(f$,n$,�fc%):�ke%,Oa%,le%,jb%,s%,f%,s$:�gc(f$,n$,Oa%,le%):B%=1145981271:C%=Oa%+le%:fc%=�(P%+12):�fc%=0�253,�msg_1(A%!12,"FA5","WIND")
(��f$<>""ș262361,,f$
(� �le%�
(�KB%=1179014466:C%=le%:ke%=�(P%+12):�ke%=0�253,�msg_1(A%!12,"FA5","BUFF")
(�2ș393435,,fc%,ke%,ke%+le%,-1,n$�s%,,,,,,jb%;f%
(�*�:ș393435,,fc%,,,-1,n$�s%,,,,,,jb%;f%
(��
(��f$<>""ș262362
(�*�f%�1f%=s%+4:�Z%,f%,s$:�254,n$+": "+s$
(�&�jb%=0�254,�msg_1(A%!12,"OKAK",n$)
(��
(�&��fc(fc%,�Ib%):ș262337,,fc%�Ib%:�
(�7��q(a%):!W%=a%:ș262347,,W%:W%!28=-1:ș262341,,W%:�
(�N��Xa(a%,s$):�me%,ne%,oe%,pe%:!W%=a%:ș262348,,W%�1:$W%!76=s$:�W%!32�1<<16�
(�Sne%=W%!16:ș262368,,W%:me%=W%!4:oe%=W%!12:pe%=W%!16:ș262353,-1,me%,ne%,oe%,pe%
(��
(��
(�1��Ga(P$,�M%,�c$):�f%,Wa%,Rb%:�f$=""�Vd%>=300�
(�-ș262363,,,,,-1,"*"+�12,�0),M%�,,,,,c$,M%
(��:�P$=""P$=Z$
(�f%=�P$:�M%=0M%=16
(��:�#f%=M%:Wa%=�i(f%):�Wa%�
)5�#f%=M%+8:Rb%=�i(f%):c$=�K(f%):M%+=24:�Rb%=1Wa%=0
)
�:M%=0
)�
)�Wa%=0:ș131085,,f%
)�
)�
)"E��gc(f$,n$,�Oa%,�le%):�i%,qe%,M%,Wa%,Rb%,Ca$,Qd%:�f$=""�Vd%>=300�
)'ș262363,,,,,-1,n$�,Oa%,le%
),�:�f$=""f$=Z$
)1:qe%=�f$:Oa%=0:le%=0:M%=16:�:�#qe%=M%:Wa%=�i(qe%):�Wa%�
)65�#qe%=M%+8:Rb%=�i(qe%):Ca$=�K(qe%):M%+=24:�Rb%=1�
);�Ca$=n$�
)@G�#qe%=Wa%+84:Qd%=�i(qe%):le%=�ma(qe%,Wa%):�Qd%le%+=�na(qe%,Qd%,Wa%)
)EOa%=88+(Qd%*32):Wa%=0
)J�
)O�
)T�
)Y�Wa%=0:ș131085,,qe%
)^�
)c�
)h+ݤi(h%):=�#h%��#h%<<8��#h%<<16��#h%<<24
)m*ݤK(h%):�s$,c%:�:c%=�#h%:�c%>31s$+=�c%
)r�c%<32:=s$
)w8ݤma(qe%,Wa%):�v%:�#qe%=Wa%+28:v%=�i(qe%):�v%�1<<31�
)|(�v%�1<<26�=�L(qe%,Wa%+56,Wa%+72,Wa%)
)�&�:�v%�1�=�L(qe%,Wa%+56,Wa%+72,Wa%)
)��
)�=0
)�,ݤna(qe%,Uc%,Wa%):�i%,j%:j%=0:�0<=Uc%-1�
)�A�i%=0�Uc%-1:j%+=�L(qe%,Wa%+88+i%*32+16,Wa%+88+i%*32+20,Wa%):�
)��
)�=j%
)�`ݤL(qe%,re%,se%,Wa%):�v%,te%,Oa%,i%:�#qe%=re%:v%=�i(qe%):i%=v%�256:te%=(v%�3)+(i%>>6):Ȏte%�
)��0,1,2,3,4:Oa%=0
)�'�5,7:�#qe%=se%+4:v%=�i(qe%):�v%=-1�
)� Oa%=0
)�!�:�#qe%=Wa%+v%:Oa%=��K(qe%)+1
)��
)��#qe%=se%+8:Oa%+=�i(qe%)
)��6:�#qe%=se%+8:Oa%=�i(qe%)
)��
)�=Oa%
)�=��ia:�f%:ș131129,,"DragASprite_Start"�ue%;f%:�f%�1ue%=-1
)�3ș131129,,"DragASprite_Stop"�ve%;f%:�f%�1ve%=-1
)�ș6,161,28�,,f%:�(f%�2)=0�
)�ue%=-1:ve%=-1
)��
)�KB%=1163280723:C%=256:we%=�(P%+12):�we%=0�253,�msg_1(A%!12,"FA5","SAVE")
)�da%=0:�
)�s��yb(xe%,Da$):�b$:b$=�~xe%:b$=�"000"+b$,3):ye%=xe%:�icon_validation(wb%,0,"sfile_"+b$):�icon_write(wb%,1,Da$):�
)����lb(ze%,Ae%):�Be%,Ce%,De%,Fe%,Ge%,He%,Ld%,Md%,f$,Hd%,Id%,Jd%,Kd%:!we%=wb%:ș262347,,we%:Be%=we%!4-we%!20:Ce%=we%!16-we%!24:�icon_info(wb%,0,De%,Ge%,Fe%,He%):ș53,-1,4�,,Id%:Id%=1<<Id%:ș53,-1,5�,,Kd%:Kd%=1<<Kd%
*�ș53,-1,11�,,Hd%:Hd%+=1:ș53,-1,12�,,Jd%:Jd%+=1:Ld%=Hd%*Id%:Md%=Jd%*Kd%:!we%=wb%:we%!4=5:we%!8=Be%+De%:we%!12=Ce%+Ge%:we%!16=Be%+Fe%:we%!20=Ce%+He%:we%!24=we%!8-ze%:we%!28=we%!12-Ae%:we%!32=Ld%+we%!16-ze%
* we%!36=Md%+we%!20-Ae%:�ue%�
*
:f$="file_"+�"000"+�~ye%,3):șue%,197,1,f$,we%+8,we%+24
*�:ș262352,,we%
*�
*da%=-1:�
*!,��qa:�h%,i%,Ie%,Je%,Ke%:da%=0:�ve%șve%
*&Aș262351,,we%:Ie%=!we%:Je%=we%!4:h%=we%!12:i%=we%!16:�h%=wb%�
*+�hc(h%,i%,Ie%,Je%):�
*0���hc(h%,i%,Ie%,Je%):�Fa$:Fa$=�oa:!we%=48+�Fa$��3:we%!12=0:we%!16=1:we%!20=h%:we%!24=i%:we%!28=Ie%:we%!32=Je%:we%!36=0:we%!40=ye%:$(we%+44)=Fa$+�0:ș262375,17,we%,h%,i%:�
*5Bݤoa:�f$,i%:f$=�icon_read(wb%,1):�:i%=�f$,":"):�i%f$=�f$,i%+1)
*:'�i%=0:�:i%=�f$,"."):�i%f$=�f$,i%+1)
*?
�i%=0:=f$
*D��ga:Pb%=0:Le%=0:�
*I6��menu_create(�_%,I$):�Q$,i%,Ga$,i$,j%,x%,t%:�Pb%�
*N�ic:Pb%=0:Le%=0
*S�
*X�I$,1)="#"�
*]i%=1:Q$=�M(I$,",",i%)
*b�:Q$=""
*g�
*l1Ga$=I$:j%=i%:�:i$=�M(I$,",",i%):�i$<>""Le%+=1
*qe�i$="":I$=Ga$:i%=j%:B%=1431192909:C%=28+Le%*24:Pb%=�(P%+12):�Pb%=0�253,�msg_1(A%!12,"FA5","MENU")
*v
�Q$<=12�
*{$Pb%=Q$
*�M�:B%=1431192909:C%=�Q$+2:t%=�(P%+12):�t%=0�253,�msg_1(A%!12,"FA5","MENU")
*�$t%=Q$+�0:Pb%!0=t%
*��
*��Pb%?12=7:Pb%?13=2:Pb%?14=7:Pb%?15=0:Pb%!16=196:Pb%!20=44:Pb%!24=0:x%=�Q$-3:Pb%!16=(x%*8+6)*2:�j%=0�Le%-1:i$=�M(I$,",",i%):�menu_item(Pb%,j%,i$,�Q$>12):�:_%=Pb%:�
*�5��ic:�i%,p%,mc%:p%=Pb%+28:mc%=p%!0�256:�0<=Le%-1�
*��i%=0�Le%-1:�p%!8�256�
*��(!p%�4)=0�
*�!B%=1431192909:C%=p%!12:�P%+16
*��
*��
*�p%+=24:�
*��
*� �mc%�
*�!B%=1431192909:C%=Pb%!0:�P%+16
*��
*�!B%=1431192909:C%=Pb%:�P%+16:�
*�M��menu_item(�_%,Me%,i$,mc%):�F%,p%,i%,x%,m%:x%=(_%!16/2-6)/8:��i$,1)="#"�
*�i$=�i$):F%=F%�2
*��
*���i$,1)="@"�
*�i$=�i$):F%=F%�8
*��
*��Me%>=Le%�
*�[B%=1431192909:C%=Pb%:D%=(Me%-Le%+1)*24:m%=�(P%+20):�m%=0�253,�msg_1(A%!12,"FA5","MENU")
*�6Pb%=m%:p%=Pb%+28+(Le%-1)*24:!p%=!p%��128:Le%=Me%+1
*��
+�Me%=Le%-1F%=F%�128
+�Me%=0�mc%F%=F%�256
+@p%=Pb%+28+Me%*24:p%!0=F%:p%!4=-1:p%!8=117440545:�i$,1)="$"�
+!p%+=4:i$=�12," ")
+�:�i$<12�
+$(p%+12)=i$
+ M�:B%=1431192909:C%=�i$+1:i%=�(P%+12):�i%=0�253,�msg_1(A%!12,"FA5","MENU")
+%6$i%=i$:p%!8=p%!8�256:p%!12=i%:p%!16=-1:p%!20=�i$+1
+*�
+/�
+4_%=Pb%:�i$>x%�
+9x%=�i$:_%!16=(x%*8+6)*2
+>�
+C�
+H7��zb(_%,Me%,M%,Ne%):_%+=28+Me%*24:�Ne%�!_%=!_%�1<<4
+M
_%!4=M%:�
+RAݤM(I$,Ha$,�I%):�L%:L%=I%+1:I%=�I$+Ha$,Ha$,L%):=�I$,L%,I%-L%)
+WA��a(Oe%,Me%,Pe%):�((Oe%!(28+8+24*Me%)�4194304)=4194304)<>Pe%�
+\/Oe%!(28+8+24*Me%)=Oe%!(28+8+24*Me%)�4194304
+a�
+f�
+k7ݤH(Oe%,Me%):=((Oe%!(28+8+24*Me%)�4194304)=4194304)
+pX��menu_tick_match(Oe%,Ia$):�Me%,Ja$:Me%=Oe%+28:�:�Me%!8�256Ja$=$Me%!12�Ja$=$(Me%+12)
+u�la(Ja$,Ia$)=0�
+z!Me%=!Me%�1:�
+�
+��!Me%�128�
+�Me%+=24:�0:�
+�^��jc(Oe%,Me%,Qe%):�Qe%Oe%!(28+24*Me%)=Oe%!(28+24*Me%)�1�Oe%!(28+24*Me%)=Oe%!(28+24*Me%)��1
+��
+����`a(h%):�x%,y%,Hd%,Id%,Jd%,Kd%:ș53,-1,4�,,Id%:Id%=1<<Id%:ș53,-1,5�,,Kd%:Kd%=1<<Kd%:ș53,-1,11�,,Hd%:Hd%+=1:ș53,-1,12�,,Jd%:Jd%+=1:!q%=h%:ș262347,,q%:x%=Hd%*Id%:y%=Jd%*Kd%:x%=(x%-q%!12+q%!4)�2:y%=(y%+q%!16-q%!8)�2
+�ș262356,,h%,x%,y%:�
+�W��Bb(a%):�i%:B%=1163547472:C%=56:Ca%=�(P%+12):�Ca%=0�253,�msg_1(A%!12,"FA5","PSZE")
+��a%�
+�a%=a%!36:�0<52�
+��i%=0�52�4:Ca%!i%=a%!i%:�
+��
+�
�:�0<=52�
+��i%=0�52�4:Ca%!i%=0:�
+��
+��
+�+�Gb:�s(zb%):�q(zb%):�caret_set(zb%,5):�
+�y��Gb:�h%,i%,n%:�caret_info(h%,i%,n%):�u(zb%,5,Ca%,4):�L(12,36):�L(13,32):�L(14,40):�L(15,44):�L(16,48):�qb:�Ca%!52=1�
+��icon_unshade(zb%,33)
+��:�icon_shade(zb%,33)
+��
+��
+�4��qb:�s$:笤icon_set(zb%,23)���icon_set(zb%,22)�
+��icon_select(zb%,23)
+��
+��icon_set(zb%,23)�
,s$=�msg_0(A%!12,"mm")
,�:s$=�msg_0(A%!12,"in")
,�
,��icon_write(zb%,26,s$):�icon_write(zb%,29,s$):�icon_write(zb%,27,s$):�icon_write(zb%,30,s$):�icon_write(zb%,28,s$):�icon_write(zb%,31,s$):�F(6,8):�F(7,12):�F(8,20):�F(9,16):�F(10,24):�F(11,28):�
,0��L(nb%,Wa%):�icon_write(zb%,nb%,�Ca%!Wa%):�
,&��F(nb%,Wa%):�v%:v%=Ca%!Wa%:Ȏnb%�
,�8:v%=Ca%!12-v%
,$�11:v%=Ca%!8-v%
,)�
,."�icon_write(zb%,nb%,�pa(v%)):�
,3$ݤpa(v%):�@%:�icon_set(zb%,23)�
,8@%=16908554:=�(v%/c)
,=�:@%=16909066:=�(v%/d)
,B�
,G*��O(f$,Re%):�J%,`%,vb%,Se%,t$:�k(f$)�
,L�:J%=�b("pn:"):�J%�
,Q$t$=�qa(`%,$J%):�t$<>""�kc(f$,t$)
,V2`%!52=Re%:vb%=ia%:Se%=0:ȕvb%>0:�$`%!4=$vb%!4�
,[�vb%!52=0�
,`H`%!0=vb%!0:�free_structure(vb%!4):B%=1163547472:C%=vb%:�P%+16:vb%=-1
,e,�:B%=1163547472:C%=`%:�P%+16:`%=0:vb%=-1
,j�
,o�:�$`%!4<$vb%!4�
,t`%!0=vb%:vb%=-1
,y�:Se%=vb%:vb%=vb%!0
,~�
,��
,�
�:�`%�
,��Se%Se%!0=`%�ia%=`%
,��
,��
,��J%=0:�m
,��
,��
,�/��kc(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:"
,�=""
,����lc(c%,M%):�#c%,"pn: "+$M%!4:�#c%,"pw: "+�M%!8:�#c%,"ph: "+�M%!12:�#c%,"pb: "+�M%!16:�#c%,"pt: "+�M%!20:�#c%,"pl: "+�M%!24:�#c%,"pr: "+�M%!28:�#c%,"tb: "+�M%!32:�#c%,"tt: "+�M%!36:�#c%,"tl: "+�M%!40:�#c%,"tr: "+�M%!44:�#c%,"th: "+�M%!48:�
,����kb:�`%,s$,Te%,vb%,Se%,c%,z%:�e,f,g,h,i,j:e=��icon_read(zb%,6):f=��icon_read(zb%,7):g=��icon_read(zb%,10):h=��icon_read(zb%,11):i=��icon_read(zb%,8):j=��icon_read(zb%,9):s$=�icon_read(zb%,5):�s$=""�254,�msg_0(A%!12,"OKAD")
,�2绤icon_read(zb%,6)=0�254,�msg_0(A%!12,"OKAE")
- 2绤icon_read(zb%,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:`%=ia%:ȕ`%:�$`%!4=s$�
-Te%=`%:`%=0
-
�:`%=`%!0
-�
-#,�:�Te%�Te%!52=2�254,�msg_0(A%!12,"OKAX")
-(�Te%=0�
--JB%=1163547472:C%=56:Te%=�(P%+12):�Te%=0�253,�msg_1(A%!12,"FA5","PSZE")
-2RTe%!0=0:$q%=s$:B%=q%:C%=2:Te%!4=�(P%+28):vb%=ia%:Se%=0:ȕvb%>0:�$Te%!4<$vb%!4�
-7Te%!0=vb%:vb%=-1
-<�:Se%=vb%:vb%=vb%!0
-A�
-F�:�Se%Se%!0=Te%�ia%=Te%
-K�
-P��o(6,Te%,8,-1,Ue%):�o(7,Te%,12,-1,Ue%):�o(9,Te%,16,-1,Ue%):�o(8,Te%,20,-1,Ue%):�o(10,Te%,24,-1,Ue%):�o(11,Te%,28,-1,Ue%):�o(13,Te%,32,0,Ue%):�o(12,Te%,36,0,Ue%):�o(14,Te%,40,0,Ue%):�o(15,Te%,44,0,Ue%):�o(16,Te%,48,0,Ue%):Te%!52=1
-U!�mc:z%=A%!48:ȕz%:�z%!36=Te%�
-Z
�z%!24�2�
-_'�select_printer(z%,-1,0):�ub(z%):�z
-d�
-i�
-nz%=z%!0:�:ș263873:�
-s ��mc:�c%,`%,Ve%,s$,bb%:�ha%�
-x/s$="<Printers$Dir>.Remote.ID"+h$+".PaperRW"
-}!�:s$="<Printers$Dir>.PaperRW"
-��
-�2ș131080,17,s$�bb%;f%:�(f%�1)!bb%=254:ș43,bb%
-�
�(bb%=0)�
-�<ș131080,11,s$,4038,,0,0�bb%;f%:�(f%�1)!bb%=254:ș43,bb%
-�B�:ș131080,4,s$,,,,0�bb%;f%:�(f%�1)=0ș131080,4,s$,,,,3�bb%;f%
-��(f%�1)!bb%=254:ș43,bb%
-��
-�0ș131085,143,s$�c%;f%:�(f%�1)!c%=254:ș43,c%
-��c%�
-�`%=ia%:ȕ`%:�`%!52=1�
-��lc(c%,`%):Ve%+=1
-��
-� `%=`%!0:�:ș131085,,c%:�Ve%�
-�ș131080,18,s$,4038
-��:ș131080,6,s$
-��
-��
-��
-�A��o(nb%,td%,Wa%,We%,�Re%):�v,v%:v=��icon_read(zb%,nb%):Ȏnb%�
-��8:v=��icon_read(zb%,7)-v
-��11:v=��icon_read(zb%,6)-v
-��
-� �We%�
-�#�icon_set(zb%,23)v%=v*c�v%=v*d
-�
�:v%=v
-��
.�td%!Wa%<>v%�
. $Re%=-1:td%!Wa%=v%:�Ca%Ca%!Wa%=v%
.�
.�
.P��pb:�s$,`%,Se%,i%,z%:ș263872:s$=�icon_read(zb%,5):`%=ia%:ȕ`%>0:�$`%!4=s$�
.
�`%!52=1�
."4z%=A%!48:ȕz%:�z%!36=`%�254,�msg_0(A%!12,"OKQa")
.'z%=z%!0:�:�Se%�
.,Se%!0=`%!0
.1�:ia%=`%!0
.6�
.;8�free_structure(`%!4):B%=1163547472:C%=`%:�P%+16:�mc
.@�:�254,�msg_0(A%!12,"OKR")
.E�
.J#�i%=0�52�4:Ca%!i%=0:�:�Gb:`%=-1
.O�:Se%=`%:`%=`%!0
.T�
.Y#�:�`%=0�254,�msg_0(A%!12,"OKQ")
.^ș263873:�
.c~��rb:�s(A%!40):!q%=A%!40:ș262348,,q%�1:q%!48=q%!56-(A%!44*ma%*2)-(A%!32*ma%):ș262359,A%!40,q%+44:q%!28=-1:ș262341,,q%:�
.h��ib(z%):笤h(Bb%)�
.mI!W%=Bb%:W%!4=z%!28:ș262350,,W%:ș262353,Bb%,W%!8,W%!12,W%!16,W%!20:�
.r#��f(y%,z%,K%):�Jb%:笤h(A%!40)�
.w�y%=-1�
.|B%=z%:C%=K%:y%=�(P%+48)
.��
.�l!W%=A%!40:ș262347,,W%:W%!12=W%!12-W%!4:W%!4=0:W%!8=y%-ma%:W%!16=y%:ș262353,!W%,W%!4,W%!8,W%!12,W%!16:�
.�)��nc(y%,z%,Xe%,Ze%):�Ve%:笤h(A%!40)�
.��y%=-1�
.�B%=z%:C%=K%:y%=�(P%+48)
.��
.��!W%=A%!40:ș262347,,W%:W%!12=W%!12-W%!4:W%!4=0:Ve%=2:ȕXe%<>Ze%:Ve%+=1:Xe%=Xe%!0:�:W%!8=y%-ma%*Ve%:W%!16=y%:ș262353,!W%,W%!4,W%!8,W%!12,W%!16:�
.�g��eb(_e%,O$,Ka$,B$,z%,Rb%):B%=_e%:C%=q%:$C%=O$:D%=O%:$D%=Ka$:E%=O%+256:$E%=B$:F%=z%:G%=Rb%:�P%+24:�
.�=��n(z%,K%,rc%):�vb%,p%,N%:�wa%=z%�xa%=K%xa%=0:ș262356,-1
.�p%=K%!44:�p%�
.��p%!40�
.�z%!24=z%!24��36:�z%!48�
.�!q%=z%!48:�e
.��
.��
.��
.��z%!32=K%�
.�z%!32=K%!0:vb%=0
.�2�:vb%=z%!32:ȕvb%!0<>K%:vb%=vb%!0:�:vb%!0=K%!0
.��
.��K%!12�
.�:ș131085,,K%!12:K%!12=0:z%!24=z%!24��8:�i(z%):�z%!28�
.�7O%!0=Bb%:O%!4=z%!28:O%!8=0:O%!12=1<<22:ș262349,,O%
.��
.��
.�:p%=0:�:ș524624,p%�p%:�p%�p%=K%!40�p%=K%!72ș524617,p%
/�p%=0:�K%!40�
/*N%=z%!12:�N%!0=1�N%!0=2ș6,21,�n(N%!0)
/
?ș131085,0,K%!40:K%!40=0:�oc(N%!0):!q%=K%:�c(z%!4,z%,-7,q%)
/�
/�K%!72�
/ș131085,,K%!72:K%!72=0
/!�
/&Fș131080,6,$K%!68:�free_structure(K%!68):�K%?11�2ș131080,6,$K%!20
/+V�free_structure(K%!16):�free_structure(K%!20):�free_structure(K%!24):p%=K%!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
/5�
/:�K%!52�
/?!B%=1179009620:C%=K%!52:�P%+16
/D�
/I>B%=1430607185:C%=K%:�P%+16:A%!32-=1:�A%!32<=0A%!20=A%!20�1
/N �rc%�
/S*!q%=A%!40:ș262348,,q%�1:�q%!32�1<<16�
/X[q%!48=q%!56-A%!44*ma%*2-A%!32*ma%:ș262359,A%!40,q%+44:ș262341,,q%:B%=z%:C%=vb%:�P%+32
/]�
/b�
/g�
/l6��A(z%):�K%,`e%:ș263872:�:K%=z%!32:�K%�n(z%,K%,0)
/q0�K%=0:!q%=A%!40:ș262348,,q%�1:�q%!32�1<<16�
/vYq%!48=q%!56-A%!44*ma%*2-A%!32*ma%:ș262359,A%!40,q%+44:ș262341,,q%:B%=z%:C%=0:�P%+32
/{�
/�ș263873:�
/�4��H:�z%:z%=A%!48:ȕz%:�A(z%):z%=z%!0:�:A%!32=0:�
/�/��ma:�af%,j%,z%,K%:�:�A%!24A%!24=!(A%!24+0)
/��A%!24=0A%!24=A%!48
/�!�A%!24:z%=A%!24:�(z%!24�4)=0�
/�-A%!28=z%!32:af%=0:ȕA%!28:�?(A%!28+11)�1�
/�A%!28=0
/��:�?(A%!28+11)�4�
/�af%=A%!28:A%!28=!(A%!28+0)
/��:�!(A%!28+12)�
/��pc(z%,A%!28)
/��:�(z%!24�32)=0�
/��A%!28<>z%!32�
/��af%af%!0=!(A%!28+0)
/�5!(A%!28+0)=z%!32:z%!32=A%!28:�nc(-1,z%,A%!28,af%)
/��
/��ya%=z%�
/�
!q%=Q%:�e
/��
/�0j%=z%!4:j%=j%!20:ȕj%:�$(j%+16)="configure"�
/��j%!12=z%�
/�!q%=j%!4:�e
/��
/��
/�j%=j%!0:�:�pc(z%,A%!28)
/��
0�
0A%!28=0
0�
0�
0�
0�
0 ZA%!32=0:z%=A%!48:ȕz%:K%=z%!32:ȕK%:A%!32+=1:K%=K%!0:�:z%=z%!0:�:�A%!32=0A%!20=A%!20�1
0%�
0*�ݤra(K%,bf%,�_$):�y$,i%,c$,H%:_$="":y$=�"00"+�~K%!36,3):ș131107,"Alias$@PrintType_"+y$,,-1�,,i%:�i%<0_$="@PrintType_"+y$:=-1
0/ȎK%!36�
04�-1:c$=�msg_0(A%!12,"UNT")
09&�8192:�j(�msg_0(A%!12,"OKT"),1):=0
0>&�4096:�j(�msg_0(A%!12,"OKS"),1):=0
0C�4095,2808:K%!36=4095:=-1
0H,�4054,4055,4074,4075,4094:K%!36=4094:=-1
0M�bf%:K%!36=bf%:=-1
0RK:c$=�task_read_env("File$Type_"+y$,q%):�c$=""c$=�msg_1(A%!12,"TYP",y$)
0W�
0\Ȏ�sa(c$,K%)�
0a�4:K%!36=4094:=-1
0f�2:K%!36=4095:=-1
0k�
0p=0
0u�ݤsa(c$,K%):�x%,y%,w%,h%:�icon_write(yb%,0,�msg_2(A%!12,"WA5",c$,$K%!24)):ș262351,,q%:x%=!q%:y%=q%!4:!q%=yb%:ș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
0zBș262341,,q%:�ac(yb%):pa%=0:�:�v(la%):�pa%:!q%=yb%:�e:�bc:=pa%
0,��qc(cf%,df%,ef%,La$):�cf%ș131085,0,cf%
0��df%�#df%=ef%
0��df%ș131085,0,df%
0�ș131080,6,La$:�
0�N��fb(Ma$,La$):�ff%,gf%,hf%,ef%,i%:�:��:�qc(ff%,gf%,ef%,La$):�j(�$,1):�
0�ff%=�La$:hf%=�#ff%:�hf%�
0��ș263872:gf%=�Ma$:ef%=�#gf%:�#gf%=ef%:�i%=1�hf%�512:ș12,4,ff%,O%,512:ș12,2,gf%,O%,512:�:�hf%�512ș12,4,ff%,O%,hf%�512:ș12,2,gf%,O%,hf%�512
0��#gf%:ș263873
0��
0��#ff%:ș8,6,La$:�
0�|��pc(z%,K%):�H%,N%,if%,b%,t%,P$,t$,_$,Na%,Oa%,jf%,s%,Sb%,z$,kf%,G$:�A$,B$,Ub%,l%,f%:H%=z%!4:N%=z%!12:if%=H%!28:�K%!12=0�
0�*�select_printer(z%,0,0):�(z%!24�4)<>0�
0�*P$=$K%!20:L$=$K%!16:M$=$K%!24:�N%!0=5�
0�Sb%=(N%?6�2)<>0
0��:Sb%=(N%?6�1)<>0
0��
0� �Sb%�
0�g$=�l(0):�g$=""�
0�&z%!24=z%!24�4:�i(z%):�f(-1,z%,0):�
0��
0��N%!0=5�
0�%ș36,"PrinterType$5",g$,�g$:�I(5)
0�)�:ș36,"PrinterType$10",g$,�g$:�I(10)
0��
0� G$=g$
0��
1z$=�l(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=K%!36:$(q%+44)=P$+�0:ș262375,18,q%:qa%=0:�:�v(ka%):�qa%:b%=-1:�qa%<>2�
1b%=�ra(K%,if%,_$):�b%�
1�_$<>""�
1ș262366,_$+" "+P$
1$�
1)�
1.�
13 �b%�
18�n(z%,K%,-1):�
1=�
1B �Sb%�
1Gs$=�m(z%,-1):�s$<>""�
1L�b(s$):�z%!32�
1Q$z%!24=z%!24�4:�i(z%):�f(-1,z%,0)
1V�
1[�
1`�
1e(�(K%!36=4095�K%!36=4094�K%!36=if%)�
1jș8,17,z$�t%,,Na%,,Oa%:�t%�
1o
�K%?11�2�
1t�K$<>""ș131080,6,K$
1y
K$=$K%!20
1~�
1�j�free_structure(K%!20):$q%=z$:B%=q%:C%=2:K%!20=�(P%+28):K%!28=Oa%:K%!36=(Na%�1048320)>>8:K%?11=K%?11�2
1��:�Sb%�
1��N%!0=5�
1��fb($N%!16,G$):�n(z%,K%,-1)
1�&�:ș8,17,G$�b%,,,,Oa%:�b%=0�Oa%=0�
1�ș131080,6,G$:�n(z%,K%,-1)
1�!�:�(K%?11�2)ș131080,6,$K%!20
1�]�free_structure(K%!20):$q%=G$:B%=q%:C%=2:K%!20=�(P%+28):K%!28=Oa%:K%!36=if%:K%?11=K%?11�2
1��
1��
1�6�:A$=$K%!16:B$=$K%!24:�n(z%,K%,-1):�N%!0=9�q$<>""�
1��c$=$(z%!40):M%=�c$," "):ȕM%:�c$,M%,1)=�160:M%=�c$," ",M%+1):�:w$=q$+"RemSpool."+h$+"."+c$:C$=q$+"RemQueue."+h$+"."+�(Ka%):ș131080,17,w$�t%,,,,l%;f%:�(l%>0)�((f%�1)=0)�(t%=1)�
1��A (z%,A$,B$)�
1�Ub%=V%!4:ș131113,25,w$,C$
1��:ș131080,6,w$
1��
1�%L$="":M$="":s$=�m(z%,-1):�s$<>""�
1�
�b(s$)
1��
1��
1��
1��select_printer(0,-1,-1)
1��
1��
1�
�:ȎN%!0�
2 �1:�z%!24�128�
2'g$="devices#buffer"+äN(1)+":$."+�S
2
.�:g$="devices#buffer"+äN(1)+":$.Parallel"
2�
2ș36,"PrinterType$1",g$,�g$
2I�2:g$="devices#buffer"+äN(2)+":$.Serial":ș36,"PrinterType$2",g$,�g$
2�
2#!ș263872:�N%!0=5�(N%?6�2)<>0�
2(,ș131085,207,g$�b%;t%:�(t%�1)=0�#b%=�#b%
2-�:ș131085,143,g$�b%;t%
22�
27�t%�1i%=b%+4:�Z%,i%,t$
2<,ș263873:�select_printer(0,-1,-1):�t%�1�
2A1�dc(z%):�oc(N%!0):�254,�msg_1(A%!12,"OKP",t$)
2F�
2K7K%!40=b%:ș131085,64,$K%!20�K%!12;t%:�(t%�1)K%!12=0
2P
�K%!12=0�
2U1�n(z%,K%,-1):�254,�msg_1(A%!12,"OKAF",$K%!20)
2Z�
2_t$=�l(0):�t$=""�
2d&z%!24=z%!24�4:�i(z%):�f(-1,z%,0):�
2i�
2n<ș131080,11,t$,4093�b%;t%:�(t%�1)=0ș131085,207,t$�b%;t%
2s
�t%�1�
2x7�dc(z%):b%+=4:�Z%,b%,s$:�254,�msg_1(A%!12,"OKP",s$)
2}�
2�tK%!72=b%:$q%=t$:B%=q%:C%=2:K%!68=�(P%+28):B%=1179009620:C%=1024:s%=�(P%+12):�s%=0�253,�msg_1(A%!12,"FA5","TBFF")
2�:K%!52=s%:z%!24=z%!24�8:�i(z%):�f(-1,z%,0):�K%!36<>if%�
2��z%!24�64�
2�+�n(z%,K%,-1):�z%!40=0s$=$z%!8�s$=$z%!40
2� �254,�msg_1(A%!12,"OKAC",s$)
2��
2��rc(K%,if%)
2��
2��
2��:��#K%!12�K%!56=0�
2�t%=�#K%!72-�#K%!72:�t%�
2��N%!0=1�N%!0=2�
2�?ș6,128,��n(N%!0)�,Oa%,Na%:Oa%=Oa%�Na%<<8:�Oa%>1024Oa%=1024
2��:Oa%=1024/2
2��
2��sc(K%,t%,Oa%):�
2��
2�jf%=-1:�N%!0=1�N%!0=2�
2�'ș6,152,�n(N%!0)�;b%:�(b%�2)=0jf%=0
2��
2� �jf%�
2�;�i(z%):A$=$K%!16:B$=$K%!24:�n(z%,K%,-1):�N%!0=9�q$<>""�
2�c$=$(z%!40):M%=�c$," "):ȕM%:�c$,M%,1)=�160:M%=�c$," ",M%+1):�:w$=q$+"RemSpool."+h$+"."+c$:C$=q$+"RemQueue."+h$+"."+�(Ka%):�A (z%,A$,B$)�
2�Ub%=V%!4:ș131113,25,w$,C$
2��:ș131080,6,w$
2��
3s$=�m(z%,-1):�s$<>""�
3
�b(s$)
3�
3�
3�
3�:�tc(z%,K%,if%)
3"�
3'�
3,�
314��rc(K%,bf%):�i%,p%,c$:�:��:�uc(A%!24,A%!28)
36IB%=1112887380:C%=124:p%=�(P%+12):�p%=0�253,�msg_1(A%!12,"FA5","TPUB")
3;K%!44=p%:�0<=124-4
3@�i%=0�124-4�4:p%!i%=0:�
3E�
3JL?O%=3:ș7,14,O%:ș192,O%,O%+5,250:B%=O%+5:C%=2:p%!120=�(P%+28):�K%?11�2�
3Oc$=$K%!16+" - "+$K%!24
3T�:c$=$K%!20:�c$>40�
3Y!c$=�c$,40):c$=�c$,1+�c$,"."))
3^�
3c�
3hz$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:�M(A%!24,A%!28,-1):�
3m'��uc(z%,K%):�n(z%,K%,-1):�z%!32<>0�
3rz%!24=z%!24�32:�i(z%)
3w�
3|"�254,�msg_1(A%!12,"OKPa",�$):�
3�J��tc(z%,K%,bf%):�l%,t%,lf%,Tc%,b$,p%,Zb%,N%,mf%,H%:�:��:�uc(z%,K%)
3�.N%=z%!12:H%=z%!4:Zb%=K%!44:�N%!0=1�N%!0=2�
3�=ș6,128,��n(N%!0)�,Tc%,l%:Tc%=Tc%�l%<<8:�Tc%>1024Tc%=1024
3��:Tc%=1024/2
3��
3�!l%=�#K%!72-�#K%!72:�K%!56l%=0
3��l%�sc(K%,l%,Tc%):�
3�)ș263872:l%=K%!28-�#K%!12:�K%!36=bf%�
3��l%>Tc%l%=Tc%
3�)ș12,4,K%!12,q%,l%:ș12,2,K%!40,q%,l%
3��:�K%!36=4095�(H%!32�1)<>0�
3�
ȎZb%!92�
3�0�0:q%!8=K%!72:�M(z%,K%,-2):K%!32=-1:Zb%!92=1
3�/�1:q%!8=K%!72:�M(z%,K%,-3):K%!32=0:Zb%!92=2
3��2:�H%!32�2�
3�
�K%!56=0�
3�E�vc(0):q%!8=K%!56:�wc(K%,�ta(z%,K%,-4)):�xc(z%,K%,Tc%):�Zb%!92=3�
3�%q%!8=K%!72:�M(z%,K%,-14):Zb%!92=1
3��
3��:�xc(z%,K%,Tc%)
3��
3��:�K%!56=0�
3�t%=1024/4:�t%>Tc%t%=Tc%
3�K%!60=0:�vc(t%):�Zb%!40�
3��dc(z%):�Wa(z%):p%=Zb%!40
3��
4�
4�Tc%>K%!56Tc%=K%!56
4
�Zb%!40<>0�Tc%>p%Tc%=p%
4$�Tc%ș12,2,K%!40,K%!52+K%!60,Tc%
4K%!56-=Tc%:K%!60+=Tc%
4�
4!�
4&`�:t%=��printer_read_string(Zb%!108):ȕl%�Tc%>t%:b$=�ua(�#K%!12,Zb%):l%-=1:�b$<>""�#K%!40,b$;
4+Tc%-=�b$:�
40�
45�
4:��#K%!12�K%!56=0�
4?"q%!8=K%!72:�M(A%!24,A%!28,-15)
4D�
4I'�K%!28=0lf%=0�lf%=�#K%!12*100/K%!28
4N�lf%<>K%!32�
4SK%!32=lf%:�f(-1,z%,K%)
4X�
4]�#K%!72=0:ș263873:�
4b$��sc(K%,nf%,Tc%):�nf%>Tc%nf%=Tc%
4g?ș12,4,K%!72,q%,nf%:ș12,2,K%!40,q%,nf%:�#K%!72-�#K%!72=0�
4l�#K%!72=0:�#K%!72=0
4q�
4v�
4{"ݤua(C%,Zb%):�r$:�C%=10�C%=13�
4�7�Zb%!16=1�Zb%!16=C%r$=�printer_read_string(Zb%!108)
4�
Zb%!16=C%
4�-�:�Zb%!16r$=�printer_read_string(Zb%!108)
4�r$+=�C%:Zb%!16=0
4��
4�=r$
4�5��wc(K%,s$):�of%,pf%:pf%=K%!52:of%=K%!56:�s$<>""�
4�$(pf%+of%)=s$:K%!56+=�s$
4��
4��
4�6��xc(z%,K%,Tc%):�of%,pf%:pf%=K%!52:of%=K%!56:�of%�
4��N%!0=1�N%!0=2�
4��of%>=Tc%�
4��
4�=pf%?of%=10:of%+=1:pf%?of%=13:ș12,2,K%!40,pf%,of%:K%!56=0
4��
4��
4�7��M(z%,K%,qf%):q%!0=qf%:q%!4=K%:�c(z%!4,z%,-8,q%):�
4�Sݤta(z%,K%,qf%):�s$,i%:q%!0=qf%:q%!4=K%:�c(z%!4,z%,-8,q%):i%=q%+8:�Y%,i%,s$:=s$
4����vc(F%):�H%:H%=z%!4:B%=H%:C%=K%:D%=Zb%:E%=O%+128:E%!0=H%:E%!4=z%:E%!8=K%:E%!12=Zb%: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=ia%:O%!20=P%:O%!24=F%:�F%=0�P%+4��P%+0
4��
4�ݤN(t%):Ȏt%�
4��1:�A%!80=0�
4��A%!76<>3�
4�A%!80=3
4��:A%!80=10
5�
5�
5
=A%!80
5�2:�A%!76=0�
5�A%!80<>3�
5A%!76=3
5
�:A%!76=2
5%�
5*�
5/
=A%!76
54�
59=0
5>��oc(t%):Ȏt%�
5C�1:A%!80=0
5H�2:A%!76=0
5M�
5R�
5Wݤn(t%):Ȏt%�
5\
�1:=A%!80
5a
�2:=A%!76
5f�
5k=0
5pFݤP:�bb%,rf%:ș88,3�bb%,rf%:�(bb%�61440)=4096�(rf%�61440)=4096:=-1
5u=0
5z6ݤS:�bb%:ș8,5,"Devices:FastParallel"�bb%:�bb%<>0�
5:="FastParallel"
5��::="Parallel"
5��
5�{ݤrmload_latest_module(c$,j$):�sf%,tf%,uf%:�M%,f%,rf%,vf%,wf%,s$,xf%:sf%=-1:ș131102,18,c$�,,,M%;f%:�(f%�1)=0�M%!20<>0�
5�0M%+=(M%!20):ȕ?M%<>9�?M%<>0:M%+=1:�:�?M%<>0�
5�/sf%=0:M%+=1:ȕ?M%<>32:�?M%>=�"0"�?M%<=�"9"�
5�sf%=sf%*10+?M%-�"0"
5��
5�M%+=1:�
5��
5��
5�Ptf%=-1:rf%=0:vf%=-1:�:ș131102,20,rf%,vf%�,rf%,vf%,M%,xf%,,wf%;f%:�(f%�1)=0�
5�&�Z%,M%,s$:�s$=c$tf%=�(�~(wf%))/100
5��
5�@�(tf%<>-1)�(f%�1)<>0:uf%=-1:ș131085,67,j$�f%;M%:�(M%�1)f%=0
5��f%<>0�
5�A�#f%=20:M%=�#f%+((�#f%)<<8)+((�#f%)<<16)+((�#f%)<<24):�M%<>0�
5�,�#f%=M%:�:rf%=�#f%:�rf%=0�rf%=9:�rf%<>0�
5�*uf%=0:�:rf%=�#f%:�rf%>=�"0"�rf%<=�"9"�
5�uf%=uf%*10+rf%-�"0"
5��
5��rf%=32
5��
5��
5��#f%
5��
6�sf%>tf%rf%=sf%�rf%=tf%
6�rf%>uf%f%=rf%�f%=uf%
6rf%=0:�tf%=f%�
6�xf%<1�
6&ș131102,4,c$:ș131102,3,c$�M%;rf%
6�
6�
6$�uf%=f%�uf%>tf%�uf%>sf%�
6)ș131102,1,j$�M%;rf%
6.�
63#�(rf%�1)=0ș131102,18,c$�M%;rf%
68�(rf%�1)!M%=253:ș43,M%
6==f%
6B���` (yf%):�f%,g%,zf%,s$:ha%=0:ș131102,18,"Freeway"�;f%:ș131102,18,"RemotePrinterSupport"�;zf%:ș131102,18,"ShareFS"�;g%:�(f%�1)�(g%�1)�(zf%�1)�
6G Ga%=0
6L=�:ș131077,"RMEnsure ShareFS 2.00 ERROR Foo"�;f%:�(f%�1)�
6Q Ga%=0
6V��:h$=�task_read_env("Inet$LocalAddr",q%):Ga%=-1:�yc:�zc:ș424323,2:Na$="<Wimp$ScrapDir>.Printers":s$=�task_read_env ("Printers$Dir",q%):�s$,"Share:")�
6[
ha%=-1
6`�:ha%=0
6e�
6j�
6o�
6t�(zf%�1)=0�
6yș424320�Ia%
6~�
6� �ha%�
6�]ș131080,8,"<Printers$Path>Remote"�;f%:s$="<Printers$Path>Remote.ID"+h$:ș131080,8,s$�;f%
6��
6��
6���yc:ș293504,0,2:�
6�ݤj(Af%):�W$:�Z%,Af%,W$:=W$
6�
��ka:�
6����zc:�Bf%,Cf%,Df%,Ff%,gc%,Vb%,c$,gb%:�Gf%,Hf%,c$,Oa$,R%,Cd%:Cf%=0:Df%=0:Ja%=0:�:Cf%=Df%:ș293507,0,2,0,0,0,0,0,Cf%�,,Ff%,,gc%,,,Df%:�(Df%>0)�
6��Gf%=�f (1196577875,Ff%):Hf%=�f (1196577875,gc%+1):If%=�f (810701907,Ff%):Jf%=�f (810701907,gc%+1):ș293507,0,2,Ff%,If%,gc%+1,Jf%,0,Cf%�,,,,,,Vb%:Jf%?gc%=0:$Gf%=�j (If%):$Hf%=�j (Jf%):�d (810701907,If%):�d (810701907,Jf%)
6�5R%=�D (Gf%,Hf%,Vb%):�K (Ha%,R%):c$=$Gf%:�_ (c$)�
6�!yd%=�x (R%,0,0,-1,gb%):�gb%�
6��Xb (c$):�N (c$):�V%=0�
6��A%!44�
6�Cd%=A%!48:ȕCd%:�Cd%!20�
6�#�select_printer(Cd%,-1,0):Cd%=0
6��:Cd%=Cd%!0
6��
6��
6��
6��
6��
6��
6�
Ja%+=1
6��
6��(Df%<0):�
7 g��_b (c$):�Gf%,Hf%,gc%,Vb%,Oa$,hb%,R%,Pa$,Cd%,gb%,jb%:ș424578,0,2,c$,0,0�,,,gc%,,Vb%;hb%:�(hb%�1)�
7�
7
�
7/jb%=0:R%=Ha%:ȕR%:�($R%!4=c$)�((R%!20)<=0)�
7�
7�
7�R%=R%!0:�:Gf%=�f (1196577875,�c$+1):Hf%=�f (1196577875,gc%+1):Jf%=�f (810701907,gc%+1):$Gf%=c$:ș424578,0,2,c$,gc%+1,Jf%�;hb%:�(hb%�1)�
7#�
7(�
7-_Jf%?gc%=0:$Hf%=�j (Jf%):�d (810701907,Jf%):R%=�D (Gf%,Hf%,Vb%):�K (Ha%,R%):Ja%+=1:�_ (c$)�
72!yd%=�x (R%,0,0,-1,gb%):�gb%�
77�Xb (c$):�N (c$):�V%=0�
7<�A%!44�
7ACd%=A%!48:ȕCd%:�Cd%!20�
7F�Ac(Cd%,-1,0,-1,gb%):Cd%=0
7K�:Cd%=Cd%!0
7P�
7U�
7Z�
7_�
7d�
7i�
7n�k:�
7s8��Xb (c$):�Se%,Bf%,jb%,Kf%:Bf%=Ha%:Se%=0:jb%=0:�Bf%�
7x�:�($Bf%!4)=c$�Bf%!20>0�
7}
jb%=-1
7��:Se%=Bf%:Bf%=Bf%!0
7��
7�#�jb%�(Bf%=0):�(Se%=0)�(Bf%<>0)�
7�\Ha%=Bf%!0:�D (-2,Bf%!20):�d (1196577875,Bf%!4):�d (1196577875,Bf%!8):�d (1380799568,Bf%)
7��:�Bf%�
7�^Se%!0=Bf%!0:�D (-2,Bf%!20):�d (1196577875,Bf%!4):�d (1196577875,Bf%!8):�d (1380799568,Bf%)
7��
7��
7��
7��
7�Cݤ_ (c$):�Bf%,Lf%:Bf%=Ha%:Lf%=0:ȕBf%��Lf%:�$Bf%!4=c$�Bf%!20>0�
7�
Lf%=-1
7��:Bf%=Bf%!0
7��
7�
�:=Lf%
7�6��N (c$):�z%,Fd%,M%,N%,Cd%,y$,H%,`$:�va (Ha%,c$)�
7��Ta (Ha%,c$)
7�;�:Fd%=0:z%=A%!48:M%=z%:N%=z%!12:ȕM%:�$M%!40=c$�N%!0=9�
7�M%=0
7�#�:Fd%=z%:z%=z%!0:M%=z%:N%=z%!12
7��
7�
�:�z%�
7�BH%=z%!4:`$=$H%!4:y$=$z%!8:�Ra (c$,`$,y$):�`b (z%,Fd%):�Lb (y$)
7��
7��
7��h (Bb%)�
8�k:�q (Bb%)
8 �
8�
8ݤt(Vb%):=�~Vb%
8;ݤf (Mf%,Oa%):�Nf%:B%=Mf%:C%=Oa%:Nf%=�(P%+12):�(Nf%=0)�
8c�253,�msg_1 (A%!12,"FA5",�((B%�-16777216)>>24)+�((B%�16711680)>>16)+�((B%�65280)>>8)+�(B%�255))
8"�
8'=Nf%
8,(��d (Mf%,td%):B%=Mf%:C%=td%:�P%+16:�
812��J (�Of%,k$):$q%=k$:B%=q%:C%=2:Of%=�(P%+28):�
86qݤD (Gf%,Hf%,Pf%):�Nf%:Nf%=�f (1380799568,24):Nf%!0=0:Nf%!4=Gf%:Nf%!8=Hf%:Nf%!12=Pf%:Nf%!16=-1:Nf%!20=-1:=Nf%
8;�ݤwa (c$,nb%,R$):�Nf%,Qf%,wd%:Nf%=�f (1380799568,24):�J (Qf%,c$):�J (wd%,R$):Nf%!0=0:Nf%!4=Qf%:Nf%!8=wd%:Nf%!12=-1:Nf%!16=-1:Nf%!20=nb%:=Nf%
8@��K (�tc%,Me%):�Bf%:�tc%=0�
8Etc%=Me%
8J0�:Bf%=tc%:ȕ(Bf%!0<>0):Bf%=Bf%!0:�:Bf%!0=Me%
8O�
8T�
8Yݤva (�tc%,c$):�Bf%:�tc%=0�
8^=0
8c�:Bf%=tc%:ȕBf%:�$Bf%!4=c$�
8h=-1
8m�:Bf%=Bf%!0
8r�
8w�
8|�
8�=0
8�)��Ta (�tc%,c$):�Se%,Bf%,jb%,Kf%:�tc%�
8�'Bf%=tc%:Se%=0:jb%=0:�:�($Bf%!4)=c$�
8�
jb%=-1
8��:Se%=Bf%:Bf%=Bf%!0
8��
8�#�jb%�(Bf%=0):�(Se%=0)�(Bf%<>0)�
8�Mtc%=Bf%!0:�d (1196577875,Bf%!4):�d (1196577875,Bf%!8):�d (1380799568,Bf%)
8��:�Bf%�
8�OSe%!0=Bf%!0:�d (1196577875,Bf%!4):�d (1196577875,Bf%!8):�d (1380799568,Bf%)
8��
8��
8��
8��
8�V��ta:�Nd%,z%,N%,Cd%:�db%,Rf%,s$,H%,s%,t%,l%,t$,M%:�:ș424321,,,-1�Nd%,,Rf%:�Nd%>0�
8��Rf%>0�
8�-db%=�f (1196577875,Rf%):ș424321,,db%,Rf%
8��:ș424321,,0,0
8��
8�
ȎNd%�
8��1:�V%�
8�N%=V%!12:�N%!0=9�q$<>""�
8�t$=$(V%!40):M%=�t$," "):ȕM%:�t$,M%,1)=�160:M%=�t$," ",M%+1):�:w$=q$+"RemSpool."+h$+"."+t$:C$=q$+"RemQueue."+h$+"."+�(Ka%):ș131080,17,w$�t%,,,,l%;f%:�(l%>0)�((f%�1)=0)�(t%=1)�
8��L$=""�
8�L$=�msg_0(A%!12,"UNKN")
8��
9�M$=""�
9M$=�msg_0(A%!12,"UNKN")
9
�
9�A (V%,L$,M$)�
9H%=V%!4:ș131113,25,w$,C$
9�:ș131080,6,w$
9!�
9&%L$="":M$="":s$=�m(V%,-1):�s$<>""�
9+
�b(s$)
90�
95�
9:�
9?�
9D�2:�Bc (�j (db%))
9I�3:�Ga%�
9N�_b (�j (db%))
9S�
9X�4:�N (�j (db%))
9]�5
9b�6:�Cc (�j (db%))
9g�7:�Dc:�` (0)
9l
�8:�Fc
9q�
9v
�(Rf%>0)�
9{�d (1196577875,db%)
9��
9��
9��Nd%<0:�V%=0�
9��A%!44�
9�Cd%=A%!48:ȕCd%:�Cd%!20�
9�#�select_printer(Cd%,-1,0):Cd%=0
9��:Cd%=Cd%!0
9��
9��
9��
9��
9��
9���wa:�Dc:�` (0):fa%=0:�
9���Cc (c$):�
9�mݤda:�C$,f%,v%,w%,e$,Uc%,Sf%:�:C$=q$+"RemQueue."+h$+"."+�Ka%:ș424326:ș131080,5,C$�v%;f%:ș424325:�f%�1�
9�*Ka%=-1:=�msg_0 (A%!12,"OKAS",�j(v%+4))
9��
9�
�(v%<>0)�
9�
Ka%+=1
9��
9�
�v%=0:=""
9���Bc (Qa$):�Ra$,Sa$,Ib%,Ta$,B$,c%,z%:�M%,c$,H%,Rb%,Ua$,A$:B$=�Qa$,�Qa$,".")+1):Ra$=Na$+"."+Qa$:Sa$=Na$+".RemQueue."+B$+"I":Ta$="":O$="":h%=�Sa$:�h%=0�
9��
9��
9��c%=�#h%:ȕ(��#h%)�(c%<>0):Ta$+=�c%:c%=�#h%:�:c%=�#h%:ȕ(��#h%)�(c%<>0):Ua$+=�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,Sa$:M%=A%!48:z%=0:ȕ(M%):�(M%!40=0)�
9�H%=M%!4:c$=$(H%!4)
:�:c$=$(M%!40)
:�
:�c$=Ta$�
:z%=M%:M%=0
:
�:M%=M%!0
:�
: �:�(z%<>0)�
:%MH%=z%!4:Rb%=H%!28:�eb (-1,"("+�msg_0 (A%!12,"IC9")+") "+A$,Ra$,B$,z%,Rb%)
:*�
:/�
:44��cb (Tf%,o$):�e%,f%:ș403072,Tf%�e%;f%:�(f%�1)�
:93L$=�msg_0(A%!12,"UNKN"):M$=�msg_0(A%!12,"UNKN")
:>�:L$=�j (e%):M$=o$
:C�
:H�
:MuݤA (z%,A$,o$):�Qa$,h%,f%,c$,M%:Qa$=q$+"RemQueue."+h$+"."+�(Ka%)+"I":c$=$z%!40:ș131085,131,Qa$�h%;f%:�(f%�1)h%=0
:R�h%<>0�
:W/�#h%,c$+�0+h$+�0+A$+�0+o$:ș131085,0,h%�;f%
:\�
:a�(f%�1)�h%=0:=0
:f=-1
:k��Hb:�z%,nb%,R%:笤w�
:p �j(�msg_0(A%!12,"OKAV"),1):�
:u�
:z秤`,"Share:")>0�
: �b (�msg_0 (A%!12,"OKAT")):�
:��
:�F�:�t (z%,R%,nb%):�icon_deselect (Bb%,nb%):�z%�((z%!24�(1<<17))=0)�
:��La (z%)
:��
:��(z%=0)�(R%=0):�
:�I��La (z%):�c$,Uf%,fc%,Vf%,W$,f%,bb%,f$,Wf%,Va$,H%:�(z%!24�(1<<17))>0�
:��
:��
:��(z%!40=0)�
:�H%=z%!4:c$=$(H%!4)
:��:c$=$(z%!40)
:��
:� 笤w�
:�:�j(�msg_1(A%!12,"OKAW",c$),1):z%!24=z%!24�(�(1<<16)):�
:��
:�秤`,"Share:")>0�
:�:�b (�msg_1 (A%!12,"OKAU",c$)):z%!24=z%!24�(�(1<<16)):�
:��
:�R$=$(z%!8):�(z%!24�1)=0�
:��Z (z%)
:��
:�BUf%=0:�:ș131107,"Inet$LocalAddr*",0,1<<31,Uf%,0�,,Vf%:�Vf%<0�
:�*fc%=�f (1196577875,�(Vf%)+1):�(fc%>0)�
:��ș35,"Inet$LocalAddr*",fc%,�(Vf%),Uf%,0�,,,Uf%:fc%?(�(Vf%))=0:W$=�j (fc%):�d (1196577875,fc%):f$="unshare _S"+W$:ș131077,f$:f$="share <Wimp$ScrapDir>.Printers _S"+W$+" -noicon":ș131077,f$
:��
;�
;B�Vf%>=0:�Gc (z%,c$):ș424578,0,2,c$,0,0�,,,,,Vb%;f%:�(f%�1)=0�
;#�b (�msg_1 (A%!12,"OKAQ",c$)):�
;�
; Wf%=A%!48:ȕWf%:�(Wf%!40=0)�
;H%=Wf%!4:Va$=$(H%!4)
;�:Va$=$(Wf%!40)
;$�
;)#�(Va$=c$)�((Wf%!24�(1<<16))>0)�
;.$�b (�msg_1 (A%!12,"OKAQa",c$)):�
;3�
;86Wf%=Wf%!0:�:ș424577,0,2,c$,�R$,R$�bb%;f%:�(f%�1)�
;=#�b (�msg_1 (A%!12,"OKAQ",c$)):�
;B�
;Gz%!24=z%!24�(1<<16):�
;L2��gb (z%):�c$,Vf%,fc%,Xf%,R$,W$,H%:�(z%!40=0)�
;QH%=z%!4:c$=$(H%!4)
;V�:c$=$(z%!40)
;[�
;`�(z%!24�(1<<16))�
;ez%!24=z%!24�(-1-(1<<16))
;j�
;o �Ga%�
;tș293505,1,2,c$,0,0
;y�
;~�
;�
��Hc:�
;�1��P:Zf%=Oc%:_f%=!tb%:`f%=xc%:ag%=ub%:Wa$=V$:�
;�1��Q:Oc%=Zf%:!tb%=_f%:xc%=`f%:ub%=ag%:V$=Wa$:�
;�2��Ma:bg%=Oc%:cg%=!tb%:dg%=xc%:eg%=ub%:Xa$=V$:�
;�2��Na:Oc%=bg%:!tb%=cg%:xc%=dg%:ub%=eg%:V$=Xa$:�
;��ݤx(R%,fg%,gg%,hg%,�ig%):�Za$,_a$,`$:�Ta$,s$,`a$,c$,jg%:�hb%,kg%,lg%,mg%,jb%,p%,z%:�:ig%=0:ș263872:Za$="Share::_S"+�t (R%!12)+".$":hb%=0:ș424326:ș131080,17,Za$�;hb%:ș424325:�(hb%�1)�
;� �hg%�
;�
ig%=-1
;�&�:�b(�msg_1 (A%!12,"OKAOs",$R%!4))
;��
;�ș263873:=0
;��
;�zc$=$R%!4:p%=�c$," "):ȕp%:�c$,p%,1)=�160:p%=�c$," ",p%+1):�:`a$=Za$+"."+c$:z%=�xa(R%,`a$,fg%,gg%,hg%,ig%):ș263873:=z%
;ėݤxa (R%,ab$,hb%,gg%,hg%,�ig%):�db%,H%,M%,s$,U%,Ac%,Bc%,Cc%,Dc%,Fc%,Pc%:�z%,N%,Pa$,`$,lg%,i%,ng%,ab%,og%,pg%,qg%,rg%:�sg%,ig%,jg%:ig%=0:笤k (ab$)�
;�ș263873:�hg%�
;�
ig%=-1:=0
;�&�:�b (�msg_1(A%!12,"OKAOs",$R%!4))
;��
;��
;�$ș263872:�Mb(H%):Cc%=H%!12:�Cc%�
;�Ac%=Cc%!4:�Ac%�
;�0M%=!tb%:U%=H%!8:U%=U%!4:J%=�b($(U%+16)):�J%�
;�ȕAc%:�$Ac%!8=$J%�
;�:�m:ș263873:z%=�ya($R%!4,$R%!8,H%,Ac%,gg%,hg%,ig%):=z%
;��
<