Home » Archimedes archive » Acorn Computing » 1993 10 Mega Disk.adf » 93_10 » Prophet/!Prophet/!RunImage
Prophet/!Prophet/!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 » Archimedes archive » Acorn Computing » 1993 10 Mega Disk.adf » 93_10 |
| Filename: | Prophet/!Prophet/!RunImage |
| Read OK: | ✔ |
| File size: | 44115 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM Prophet Lite (c) ApricoteEVALStudios 1991/2/3 V1.28L 12.7.1993 for Acorn Computing
15IFFNfix2_<>0THEN*Error 0 Quit any other Archway programs, press function key F12 and type RMKill Archway then press RETURN twice and re-run Prophet
20SYS&406C0
25DIM m_% 100,Tr__$(2),Tr_%(1),poll_%256:ITll_%=50:iw_%=0:ow_%=0:oldt_$=MID$(TIME$,17,5):count_%=0:sount_%=0:invW%=0
30DIM heap_% 65556:HM%=heap_%+65556:HI_%=heap_%:fc_%=0:oc_$="":e1_%=0:Z1_%=FNgetpage_(1)
35lw_%=0:pm_%=0:wf1_%=2:wf2_%=2:wf3_%=2
37Z4_%=FNinitmem_:VAT_$="VAT"
45IFenv_$<>""ANDZ4_%=0THENenv_$="NO MEMORY"
55end_%=0:SYS&400EC,-1,-1 TO Z1_%,Z2_%,Z3_%:END=HIMEM+Z3_%
60PROCinit
65Z%=FNinitconst_:end_%=0:v_%=128:NewPref_%(3)=v_%:REM remove IF end of SAVE when V129
70IFenv_$<>""ANDenv_$<>"NO MEMORY"THENPROCload_(env_$,-1)
75IFFNmainW_=FALSE THENPROCfin
80IFenv_$="NO MEMORY" THENPROCpe_(nme_$):env_$=""
92end_%=END+mpa_%:END=end_%:end_%=0
95ON ERROR:PROCpe_(FNerr_)
100end_%=0:PROCpoll:IFnotrans_%>0:GOTO100
105moremem_%=FNgetpage_(moremem_%)
110SYS&400EC,-1,-1 TO Z1_%,Z2_%,Z3_%
115IFZ3_%>moremem_%THENnomem_%=0 ELSEnomem_%=1
117Me1_%=moremem_%:Me2_%=END:Me3_%=Z1_%+moremem_%:Me4_%=HIMEM-PAGE
118Me2_%+=moremem_%
120IFmoremem_%>0ANDnomem_%=0:Z1_%+=moremem_%:END=Me2_%
125IFnomem_%=1THEN
130IFend_%<2THENPROCpe_("Memory getting low")
135IFend_%>1THENPROCpe_(nme_$)
140ENDIF
145IFmoremem_%>0:IFend_%>1:IFnomem_%=0:end_%=0:PROCreloadprophet_
150GOTO100
155REM BASIC 5 (RiscOS 2) BUG, Can't handle mem ext. in loops so GOTO used as workaround
160END
165
170DEFFNfix_:IFFNfix1_ ORR%=193ORinvw%=W%!12ANDR%<>8ORsaled%=W%!12ANDR%<>8ORpaled%=W%!12ANDR%<>8ORbankl%=W%!12ANDR%<>8ORvatp%=W%ANDR%<>8ORstand%=W%!12ANDR%<>8ORbank%=W%ANDR%<>8ORheads%=W%ANDR%<>8ORheadp%=W%ANDR%<>8THEN=TRUE
175=FALSE
180DEFFNfix1_:IFIOwind%<>W%!12ANDinvw%<>W%!12ANDsaled%<>W%!12ANDpaled%<>W%!12ANDbankl%<>W%!12ANDvatp%<>W%ANDstand%<>W%!12ANDbank%<>W%ANDheads%<>W%ANDheadp%<>W%THEN=TRUE
185*FX15,1
190=FALSE
195DEFFNfix2_:LOCAL ERROR:ON ERROR LOCAL:RESTORE ERROR:=0
200SYS&1E,18,"Archway" TO ,mod_%:=mod_%
205DEFPROCfix3_:LOCAL Z%:IFQ%!16=&400C3THENfc_%=1:ENDPROC
210IFQ%!40<>&C87 ANDQ%!40<>&C88THENENDPROC
215Z%=FNrM_:ENDPROC
220DEFPROCmb_:s_$=FNgId(W%!12,!i%):IF$wn%="CSuSave"OR$wn%="Ssave"OR$wn%="SaledRW"OR$wn%="PaledRW"OR$wn%="BankRW"OR$wn%="VatPCont"OR$wn%="BankP"THENs_$=""
225IF!b%=64:IFFNpmm_:IFpm_%=1:SYS&400E9,36,,"ptr_hand",2
230IFPrct%>0:IFW%!12=Prct%!12:IFprefs1_%=-1THENSYS&400D2,-1,-1,0,0,0,0
235ENDPROC
240DEFPROCmb1_:PROCdrag_:ENDPROC
245DEFPROCmb2_:IFFNpmm_:pm_%=1
246ENDPROC
250DEFFNStockW_:=FALSE
252DEFFNSupplierW_:=FALSE
253DEFFNSales_:=FALSE
254DEFFNBalW_:=FALSE
255DEFFNIndexW_:=FALSE
256DEFFNpmm_:IF$wn%="OrderW"OR$wn%="StatementW"OR$wn%="InvoiceW"OR$wn%="Ssave"OR$wn%="CSuSave"OR$wn%="Calc"OR$wn%="SaledRW"OR$wn%="PaledRW"OR$wn%="BankRW"OR$wn%="VatPCont"OR$wn%="Sales"OR$wn%="BankP":=1
260=0
265DEFFNgetpage_(A%):LOCAL B%:IFA%=0THEN=0
270SYS&51 TO B%:mpa_%=B%:=B%*(A%DIVB%+1)
275DEFPROCPoll_:SYS&400C7,,pblock_% TO reason_%:ENDPROC
280DEFFNmainW_:LOCAL V$
285V$=pass1_$:IFedit%=0:IFpass1_$<>""THENV$=FNinput(passm1_$,"","OK",5,"ar_quest",1)
290IFV$=pass1_$THEN=FNwindow("EditIt") ELSE=FALSE
295DEFFNOrderMenuW_:PROCwl_(28):=FALSE
300DEFFNSload_:PROCwl_(28):=TRUE
305DEFFNbreakP1_:PROCwl_(28):=FALSE
310DEFFNinitvatp_:LOCAL Z%:PROCpFD(W%,VatR_$(),0):FORZ%=0TO43:PROCsIcon_(W%!12,Z%+57,VatT_%(Z%)):NEXT:$!vathead_%=vathead_$:$!vathead1_%=vathead1_$:=TRUE
315DEFFNupdatevatp_:IFpass8_$<>""THEN=FALSE
320LOCAL Z%:FORZ%=0TO43:VatR_$(Z%)=FNgId(W%!12,Z%+1):NEXT:=TRUE
415DEFFNO1_:IF!i%MOD2=1ANDTITe_%((!i%-81)/2+titp_%)=1OR!i%MOD2=0ANDTITe_%((!i%-81)/2+titp_%)=-1THEN=FALSE
420TITe_%((!i%-81)/2+titp_%)=-TITe_%((!i%-81)/2+titp_%):PROCgetTITdat_:=FALSE
425
430DEFFNt1_:LOCAL Z%:Z%=!i%-57:IFpass8_$<>""THENPROCsIcon_(W%!12,Z%+57,VatT_%(Z%)):PROCwl_(26):=FALSE
435VatT_%(!i%-57)=-VatT_%(!i%-57)
440CASE !i%MOD4 OF
445WHEN 1:IFVatT_%(Z%)=1THEN
450IFVatT_%(Z%+1)=1THENVatT_%(Z%+1)=-1:PROCsIcon_(W%!12,!i%+1,VatT_%(Z%+1))
455IFVatT_%(Z%+2)+VatT_%(Z%+3)=-2THENVatT_%(Z%+2)=1:PROCsIcon_(W%!12,!i%+2,VatT_%(Z%+2))
460ENDIF
465IFVatT_%(Z%)+VatT_%(Z%+1)=-2THENVatT_%(Z%+2)=-1:VatT_%(Z%+3)=-1:PROCsIcon_(W%!12,!i%+2,VatT_%(Z%+2)):PROCsIcon_(W%!12,!i%+3,VatT_%(Z%+3))
470WHEN 2:IFVatT_%(Z%)=1THEN
475IFVatT_%(Z%-1)=1THENVatT_%(Z%-1)=-1:PROCsIcon_(W%!12,!i%-1,VatT_%(Z%-1))
480IFVatT_%(Z%+1)+VatT_%(Z%+2)=-2THENVatT_%(Z%+1)=1:PROCsIcon_(W%!12,!i%+1,VatT_%(Z%+1))
485ENDIF
490IFVatT_%(Z%-1)+VatT_%(Z%)=-2THENVatT_%(Z%+1)=-1:VatT_%(Z%+2)=-1:PROCsIcon_(W%!12,!i%+1,VatT_%(Z%+1)):PROCsIcon_(W%!12,!i%+2,VatT_%(Z%+2))
495WHEN 3:IFVatT_%(Z%)=1:IFVatT_%(Z%-1)+VatT_%(Z%-2)=-2THENVatT_%(Z%-2)=1:PROCsIcon_(W%!12,!i%-2,VatT_%(Z%-2))
500IFVatT_%(Z%)+VatT_%(Z%+1)=-2:IFVatT_%(Z%-1)+VatT_%(Z%-2)>-2THENVatT_%(Z%-1)=-1:VatT_%(Z%-2)=-1:PROCsIcon_(W%!12,!i%-2,VatT_%(Z%-2)):PROCsIcon_(W%!12,!i%-1,VatT_%(Z%-1))
505WHEN 0:IFVatT_%(Z%)=1:IFVatT_%(Z%-2)+VatT_%(Z%-3)=-2THENVatT_%(Z%-3)=1:PROCsIcon_(W%!12,!i%-3,VatT_%(Z%-3))
510IFVatT_%(Z%)+VatT_%(Z%-1)=-2:IFVatT_%(Z%-2)+VatT_%(Z%-3)>-2THENVatT_%(Z%-2)=-1:VatT_%(Z%-3)=-1:PROCsIcon_(W%!12,!i%-3,VatT_%(Z%-3)):PROCsIcon_(W%!12,!i%-2,VatT_%(Z%-2))
515ENDCASE
520=TRUE
525
530DEFFNv1_:LOCAL Z%:IFpass8_$<>""THENZ%=FNpII(W%!12,!i%,VatR_$(!i%-1)):PROCwl_(26):=FALSE
535VatR_$(!i%-1)=FNgId(W%!12,!i%):=TRUE
540
545DEFFNShup_:LOCAL Z%:IF$wn%="Headings"THENSsubH_%-=1:IFSsubH_%<0THENSsubH_%=11
550IF$wn%="PHeadings"THENPsubH_%-=1:IFPsubH_%<0THENPsubH_%=11
555IF$wn%="Headings"THEN$!Sm1_%=CHR$(SsubH_%+65):Z%=FNupdateheadsM_(0):PROCsetC_(1):=TRUE
560$!Pm1_%=CHR$(PsubH_%+65):Z%=FNupdateheadpM_(0):PROCsetC_(1):=TRUE
565DEFFNShdo_:LOCAL Z%:IF$wn%="Headings"THENSsubH_%+=1:IFSsubH_%>11THENSsubH_%=0
570IF$wn%="PHeadings"THENPsubH_%+=1:IFPsubH_%>11THENPsubH_%=0
575IF$wn%="Headings"THEN$!Sm1_%=CHR$(SsubH_%+65):Z%=FNupdateheadsM_(0):PROCsetC_(1):=TRUE
580$!Pm1_%=CHR$(PsubH_%+65):Z%=FNupdateheadpM_(0):PROCsetC_(1):=TRUE
585DEFFNSm1_:LOCAL A_%,Z%:IF$!Sm1_%<>CHR$(SsubH_%+65)THENA_%=69
590Z%=FNupdateheadsM_(0):IFA_%=69THENPROCsetC_(69)
595=TRUE
600DEFFNSm2_:Shead1_$(SsubH_%+1)=$!Sm2_%:=TRUE
605DEFFNSh1_:LOCAL A_%,B_%:IF$wn%="Headings"THENB_%=heads% ELSEB_%=headp%
610IF!i%MOD7=1OR!i%MOD7=2THENA_%=FNni_(FNgId(B_%!12,!i%)):Z%=FNpII(B_%!12,!i%,FNtc_(A_%,"0"))
615IF$wn%="Headings"THEN=FNupdateheadsM_(0) ELSE=FNupdateheadpM_(0)
620
625DEFFNinitheadsM_(A_%):SYS&406C0:LOCAL Z_%,Z%
630LOCAL ERROR
635ON ERROR LOCAL:RESTORE ERROR:SYS&406C1:=FALSE
640t1_%()=0:t2_%()=0:Hw_$(24)=CHR$(SsubH_%+65):Hw_$(25)=Shead1_$(SsubH_%+1):Z_%=SsubH_%*40:FORZ%=Z_%TOZ_%+35STEP5
645IFA_%<4THENHw_$(t1_%(0))=FNtc_(Sheadt1_%(Z%),"0"):t1_%(2)=t1_%(2)+Sheadt1_%(Z%):Hw_$(t1_%(0)+1)=FNtc_(Sheadt1_%(Z%+1),"0"):t1_%(3)=t1_%(3)+Sheadt1_%(Z%+1):Hw_$(t1_%(0)+2)=Shead1_$(Z%/5+13)
650IFA_%<5THENHp_$(t1_%(1))=FNtc_(Sheadt1_%(Z%+2),"0"):Hp_$(t1_%(1)+1)=FNtc_(Sheadt1_%(Z%+3),"0"):Hp_$(t1_%(1)+2)=FNtc_(Sheadt1_%(Z%+4),"0")
655t1_%(4)=t1_%(4)+Sheadt1_%(Z%+2):t1_%(5)=t1_%(5)+Sheadt1_%(Z%+3):t1_%(6)=t1_%(6)+Sheadt1_%(Z%+4):t1_%(8)=Sheadt1_%(Z%+2)+Sheadt1_%(Z%+3):t1_%(8)=t1_%(8)-Sheadt1_%(Z%+4):t1_%(9)=Sheadt1_%(Z%)-Sheadt1_%(Z%+1)
660t1_%(8)=t1_%(8)-t1_%(9):t1_%(7)=t1_%(7)+t1_%(8):Hp_$(t1_%(1)+3)=FNtc_(t1_%(8),"0"):t1_%(0)+=3:t1_%(1)+=4:NEXT
665FORZ%=2TO7:Hp_$(t1_%(1))=FNtc_(t1_%(Z%),"0"):t1_%(1)+=1:NEXT
670IFA_%<>3THEN
675FORZ%=0TO479STEP5:t2_%(0)=t2_%(0)+Sheadt1_%(Z%):t2_%(1)=t2_%(1)+Sheadt1_%(Z%+1):t2_%(2)=t2_%(2)+Sheadt1_%(Z%+2):t2_%(3)=t2_%(3)+Sheadt1_%(Z%+3):t2_%(4)=t2_%(4)+Sheadt1_%(Z%+4):NEXT
680t2_%(5)=t2_%(2)+t2_%(3):t2_%(5)=t2_%(5)-t2_%(4):t2_%(6)=t2_%(0)-t2_%(1):t2_%(5)=t2_%(5)-t2_%(6)
685FORZ%=0TO5:Hp_$(t1_%(1))=FNtc_(t2_%(Z%),"0"):t1_%(1)+=1:NEXT
690ELSE
695A_%=0
700ENDIF
705SYS&406C1
710IFA_%=5:FORZ%=0TO33:Hp_$(Z%)="|":NEXT:Hp_$(Z%+4)="|":Hp_$(Z%+5)="|":PROCpPD(heads%,Hp_$(),0):=TRUE
715IFA_%=0THENPROCpFD(heads%,Hw_$(),0):PROCpPD(heads%,Hp_$(),0):=TRUE
720IFA_%=1:FORZ%=0TO31:IFZ%MOD4<>3THENHp_$(Z%)="|"
725IFA_%=1:NEXT
730PROCpPD(heads%,Hp_$(),0):=TRUE
735
740DEFFNupdateheadsM_(D_%):IFheads%=0THEN=FALSE
745LOCAL A_%,B_%,H%,Z%,Z_%,a_%,b_%:t1_%(1)=1:Hp_$(44)="|":Hp_$(45)="|"
750LOCAL ERROR
755ON ERROR LOCAL:RESTORE ERROR:=FALSE
760A_%=2:H%=t_%:$t_%=$!Sm1_%:CALLm1_%:$!Sm1_%=$t_%:SsubH_%=ASC($!Sm1_%)-65:IFSsubH_%<0THENSsubH_%=0 ELSEIFSsubH_%>11THENSsubH_%=11
765IFoSsubH_%<>SsubH_%THENB_%=oSsubH_% ELSEB_%=SsubH_%
770Shead1_$(B_%+1)=$!Sm2_%:B_%=B_%*40
775FORZ%=B_%TOB_%+35STEP5
780IFD_%=0THENa_%=Sheadt1_%(Z%):b_%=Sheadt1_%(Z%+1):Sheadt1_%(Z%)=FNni_(FNgId(heads%!12,t1_%(1))):Sheadt1_%(Z%+1)=FNni_(FNgId(heads%!12,t1_%(1)+1)):Shead1_$(Z%/5+13)=FNgId(heads%!12,t1_%(1)+2):IFa_%<>Sheadt1_%(Z%)ORb_%<>Sheadt1_%(Z%+1)THENA_%=1
785IFD_%=1:IFSheadt1_%(Z%+2)<>FNni_(FNgId(heads%!12,t1_%(1)+3))ORSheadt1_%(Z%+3)<>FNni_(FNgId(heads%!12,t1_%(1)+4))ORSheadt1_%(Z%+4)<>FNni_(FNgId(heads%!12,t1_%(1)+5))THENA_%=4
790t1_%(1)+=7:NEXT:IFA_%=2:IFoSsubH_%<>SsubH_%:oSsubH_%=SsubH_%:A_%=3 ELSEIFoSsubH_%<>SsubH_%THENoSsubH_%=SsubH_%:A_%=0
795IFD_%=1:IFA_%=2THENA_%=5
800IFA_%<>2THEN=FNinitheadsM_(A_%) ELSE=FALSE
805
810DEFFNPm1_:LOCAL A_%,Z%:IF$!Pm1_%<>CHR$(PsubH_%+65)THENA_%=69
815Z%=FNupdateheadpM_(0):IFA_%=69THENPROCsetC_(69)
820=TRUE
825DEFFNPm2_:Phead1_$(PsubH_%+1)=$!Pm2_%:=TRUE
830
835DEFFNinitheadpM_(A_%):SYS&406C0:LOCAL Z_%,Z%
840LOCAL ERROR
845ON ERROR LOCAL:RESTORE ERROR:SYS&406C1:=FALSE
850t1_%()=0:t2_%()=0:Hwp_$(24)=CHR$(PsubH_%+65):Hwp_$(25)=Phead1_$(PsubH_%+1):Z_%=PsubH_%*40:FORZ%=Z_%TOZ_%+35STEP5
855IFA_%<4THENHwp_$(t1_%(0))=FNtc_(Pheadt1_%(Z%),"0"):t1_%(2)=t1_%(2)+Pheadt1_%(Z%):Hwp_$(t1_%(0)+1)=FNtc_(Pheadt1_%(Z%+1),"0"):t1_%(3)=t1_%(3)+Pheadt1_%(Z%+1):Hwp_$(t1_%(0)+2)=Phead1_$(Z%/5+13)
860IFA_%<5THENHpp_$(t1_%(1))=FNtc_(Pheadt1_%(Z%+2),"0"):Hpp_$(t1_%(1)+1)=FNtc_(Pheadt1_%(Z%+3),"0"):Hpp_$(t1_%(1)+2)=FNtc_(Pheadt1_%(Z%+4),"0")
865t1_%(4)=t1_%(4)+Pheadt1_%(Z%+2):t1_%(5)=t1_%(5)+Pheadt1_%(Z%+3):t1_%(6)=t1_%(6)+Pheadt1_%(Z%+4):t1_%(8)=Pheadt1_%(Z%+2)+Pheadt1_%(Z%+3):t1_%(8)=t1_%(8)-Pheadt1_%(Z%+4):t1_%(9)=Pheadt1_%(Z%)-Pheadt1_%(Z%+1)
870t1_%(8)=t1_%(8)-t1_%(9):t1_%(7)=t1_%(7)+t1_%(8):Hpp_$(t1_%(1)+3)=FNtc_(t1_%(8),"0"):t1_%(0)+=3:t1_%(1)+=4:NEXT
875FORZ%=2TO7:Hpp_$(t1_%(1))=FNtc_(t1_%(Z%),"0"):t1_%(1)+=1:NEXT
880IFA_%<>3THEN
885FORZ%=0TO479STEP5:t2_%(0)=t2_%(0)+Pheadt1_%(Z%):t2_%(1)=t2_%(1)+Pheadt1_%(Z%+1):t2_%(2)=t2_%(2)+Pheadt1_%(Z%+2):t2_%(3)=t2_%(3)+Pheadt1_%(Z%+3):t2_%(4)=t2_%(4)+Pheadt1_%(Z%+4):NEXT
890t2_%(5)=t2_%(2)+t2_%(3):t2_%(5)=t2_%(5)-t2_%(4):t2_%(6)=t2_%(0)-t2_%(1):t2_%(5)=t2_%(5)-t2_%(6)
895FORZ%=0TO5:Hpp_$(t1_%(1))=FNtc_(t2_%(Z%),"0"):t1_%(1)+=1:NEXT
900ELSE
905A_%=0
910ENDIF
915SYS&406C1
920IFA_%=5:FORZ%=0TO33:Hpp_$(Z%)="|":NEXT:Hpp_$(Z%+4)="|":Hpp_$(Z%+5)="|":PROCpPD(headp%,Hpp_$(),0):=TRUE
925IFA_%=0THENPROCpFD(headp%,Hwp_$(),0):PROCpPD(headp%,Hpp_$(),0):=TRUE
930IFA_%=1:FORZ%=0TO31:IFZ%MOD4<>3THENHpp_$(Z%)="|"
935IFA_%=1:NEXT
940PROCpPD(headp%,Hpp_$(),0):=TRUE
945
950DEFFNupdateheadpM_(D_%):IFheadp%=0THEN=FALSE
955LOCAL A_%,B_%,H%,Z%,Z_%,a_%,b_%:t1_%(1)=1:Hpp_$(44)="|":Hpp_$(45)="|"
960LOCAL ERROR
965ON ERROR LOCAL:RESTORE ERROR:=FALSE
970A_%=2:H%=t_%:$t_%=$!Pm1_%:CALLm1_%:$!Pm1_%=$t_%:PsubH_%=ASC($!Pm1_%)-65:IFPsubH_%<0THENPsubH_%=0 ELSEIFPsubH_%>11THENPsubH_%=11
975IFoPsubH_%<>PsubH_%THENB_%=oPsubH_% ELSEB_%=PsubH_%
980Phead1_$(B_%+1)=$!Pm2_%:B_%=B_%*40
985FORZ%=B_%TOB_%+35STEP5
990IFD_%=0THENa_%=Pheadt1_%(Z%):b_%=Pheadt1_%(Z%+1):Pheadt1_%(Z%)=FNni_(FNgId(headp%!12,t1_%(1))):Pheadt1_%(Z%+1)=FNni_(FNgId(headp%!12,t1_%(1)+1)):Phead1_$(Z%/5+13)=FNgId(headp%!12,t1_%(1)+2):IFa_%<>Pheadt1_%(Z%)ORb_%<>Pheadt1_%(Z%+1)THENA_%=1
995IFD_%=1:IFPheadt1_%(Z%+2)<>FNni_(FNgId(headp%!12,t1_%(1)+3))ORPheadt1_%(Z%+3)<>FNni_(FNgId(headp%!12,t1_%(1)+4))ORPheadt1_%(Z%+4)<>FNni_(FNgId(headp%!12,t1_%(1)+5))THENA_%=4
1000t1_%(1)+=7:NEXT:IFA_%=2:IFoPsubH_%<>PsubH_%:oPsubH_%=PsubH_%:A_%=3 ELSEIFoPsubH_%<>PsubH_%THENoPsubH_%=PsubH_%:A_%=0
1005IFD_%=1:IFA_%=2THENA_%=5
1010IFA_%<>2THEN=FNinitheadpM_(A_%) ELSE=FALSE
1015
1020DEFFNinitbank_(A_%):LOCAL A%,B%,C%,D%,E%,F%,G%,Z%:FORZ%=0TO23STEP2:D%+=1:Bn1_$(Z%)=FNtc_(BankOO_%(D%),"0"):Bn1_$(Z%+1)=BankNN_$(D%):A%=FNadd_(BankOO_%(D%),BankSS_%(D%)):B%=FNadd_(BankOO_%(D%),BankCC_%(D%))
1025Bn2_$(Z%)=FNtc_(A%,"0"):Bn2_$(Z%+1)=FNtc_(B%,"0"):E%=FNadd_(E%,BankOO_%(D%)):F%=FNadd_(F%,A%):G%=FNadd_(G%,B%):NEXT:Bn2_$(24)=FNtc_(E%,"0"):Bn2_$(25)=FNtc_(F%,"0"):Bn2_$(26)=FNtc_(G%,"0")
1030IFA_%=0THENPROCpFD(bank%,Bn1_$(),0):PROCpPD(bank%,Bn2_$(),0)
1035=TRUE
1040
1045DEFFNupdatebank_:LOCAL A_%,Z%,Z_%:IFbank%=0THEN=FALSE
1050t4_%()=0:FORZ%=1TO12:t1_%(Z%)=BankOO_%(Z%):BankNN_$(Z%)=FNgId(bank%!12,Z%*2):BankOO_%(Z%)=FNni_(FNgId(bank%!12,Z%*2-1))
1055IFBankOO_%(Z%)<>t1_%(Z%)ORFNni_(FNgId(bank%!12,Z%*2+23))<>BankSS_%(Z%)+BankOO_%(Z%)ORFNni_(FNgId(bank%!12,Z%*2+24))<>BankCC_%(Z%)+BankOO_%(Z%)THENt4_%(Z%-1)=1:Z_%=1
1060NEXT:IFZ_%=0THEN=FALSE
1065Z%=FNinitbank_(1):FORZ%=0TO11:IFt4_%(Z%)=1THENA_%=FNpII(bank%!12,Z%*2+1,Bn1_$(Z%*2)):A_%=FNpII(bank%!12,Z%*2+25,Bn2_$(Z%*2)):A_%=FNpII(bank%!12,Z%*2+26,Bn2_$(Z%*2+1))
1070NEXT:IFZ_%=1THENA_%=FNpII(bank%!12,49,Bn2_$(24)):A_%=FNpII(bank%!12,50,Bn2_$(25)):A_%=FNpII(bank%!12,51,Bn2_$(26))
1075=TRUE
1080
1085DEFFNB1_:*FX15,1
1090=FNupdatebank_
1095
1235DEFPROCds_(Z_%):LOCAL A_$,B_%,Z%
1240IFZ_%=1:A_$=$!SuName_% ELSEIFZ_%=3:A_$=$!CSuName_% ELSEIFZ_%=2:A_$=$!SuPost_% ELSEIFZ_%=4:A_$=$!CSuPost_%
1245IFA_$=""THENENDPROC
1250IFZ_%<3:Z%=S_% ELSEZ%=CS_%
1255IFZ%=1THENENDPROC
1260SYS&406C0
1265CASE Z_% OF
1270WHEN 1:FORZ%=1TOS_%-1:IFSuppliers_$(Z%)=A_$:B_%=Z%:Z%=S_%-1
1275NEXT
1280WHEN 2:FORZ%=1TOS_%-1:IFSuPos_$(Z%)=A_$:B_%=Z%:Z%=S_%-1
1285NEXT
1290WHEN 3:FORZ%=1TOCS_%-1:IFCSuppliers_$(Z%)=A_$:B_%=Z%:Z%=CS_%-1
1295NEXT
1300WHEN 4:FORZ%=1TOCS_%-1:IFCSuPos_$(Z%)=A_$:B_%=Z%:Z%=CS_%-1
1305NEXT
1310ENDCASE
1315SYS&406C1:IFB_%>0:PROCpe_("Just to let you know you may have a duplicate record at "+STR$(B_%))
1320ENDPROC
1325DEFFNSuName_:PROCds_(1):=FNsuppup_(0)
1330DEFFNSuAd11_:=FNsuppup_(0)
1335DEFFNSuAd22_:=FNsuppup_(0)
1340DEFFNSuAd33_:=FNsuppup_(0)
1345DEFFNSuAd44_:=FNsuppup_(0)
1350DEFFNSuPost_:PROCds_(2):=FNsuppup_(0)
1355DEFFNdSuName_:=FNsuppup_(0)
1360DEFFNdSuAd11_:=FNsuppup_(0)
1365DEFFNdSuAd22_:=FNsuppup_(0)
1370DEFFNdSuAd33_:=FNsuppup_(0)
1375DEFFNdSuAd44_:=FNsuppup_(0)
1380DEFFNdSuPost_:=FNsuppup_(0)
1385DEFFNSuContact_:=FNsuppup_(0)
1390DEFFNSuTele_:=FNsuppup_(0)
1395DEFFNSuFax_:=FNsuppup_(0)
1400DEFFNSuCom11_:=FNsuppup_(0)
1405DEFFNSuCom22_:=FNsuppup_(0)
1410DEFFNSuSuppRef_:=FNsuppup_(0)
1415DEFFNSuYourRef_:=FNsuppup_(0)
1420DEFFNSuOrder_:Z%=FNsuppup_(0)
1425DEFFNSuDisc_:Z%=FNsuppup_(1):SuI_%=sui_%:PROCsetC_(SuI_%):=FALSE
1430DEFFNSufindnum_:=FNsuppup_(VAL($!Sufindnum_%)-S_%)
1435
1440DEFFNCSuName_:PROCds_(3):=FNCsuppup_(0)
1445DEFFNCSuAd11_:=FNCsuppup_(0)
1450DEFFNCSuAd22_:=FNCsuppup_(0)
1455DEFFNCSuAd33_:=FNCsuppup_(0)
1460DEFFNCSuAd44_:=FNCsuppup_(0)
1465DEFFNCSuPost_:PROCds_(4):=FNCsuppup_(0)
1470DEFFNdCSuName_:=FNCsuppup_(0)
1475DEFFNdCSuAd11_:=FNCsuppup_(0)
1480DEFFNdCSuAd22_:=FNCsuppup_(0)
1485DEFFNdCSuAd33_:=FNCsuppup_(0)
1490DEFFNdCSuAd44_:=FNCsuppup_(0)
1495DEFFNdCSuPost_:=FNCsuppup_(0)
1500DEFFNCSuContact_:=FNCsuppup_(0)
1505DEFFNCSuTele_:=FNCsuppup_(0)
1510DEFFNCSuFax_:=FNCsuppup_(0)
1515DEFFNCSuCom11_:=FNCsuppup_(0)
1520DEFFNCSuCom22_:=FNCsuppup_(0)
1525DEFFNCSuSuppRef_:IFinvW%>0:IFsupply1_%=CS_%:$!ITord_%=$!CSuSuppRef_%:PROCrI(invW%,"ITord")
1527=FNCsuppup_(0)
1530DEFFNCSuYourRef_:=FNCsuppup_(0)
1535DEFFNCSuOrder_:=FNCsuppup_(0)
1540DEFFNCSuDisc_:Z%=FNCsuppup_(1):CSuI_%=Csui_%:PROCsetC_(CSuI_%):=FALSE
1545DEFFNCSufindnum_:=FNCsuppup_(VAL($!CSufindnum_%)-CS_%)
1550
1555DEFFNstockch1_
1560LOCAL Z%
1565*FX15,1
1570IF$wn%="CustomW"THEN=TRUE
1575=FALSE
1580DEFFNstockch_(V_%)
1585LOCAL Z%
1600IF$wn%="CustomW"THENZ%=FNCsuppup_(V_%):=TRUE
1605=FALSE
1610
1615DEFFNLeft1_
1620IF$wn%="InvW"THENPROCITpage_(1):=TRUE
1625IF$wn%="Saled"THENPROCSITpage_(1):=TRUE
1630IF$wn%="Paled"THENPROCPITpage_(1):=TRUE
1635IF$wn%="BankL"THENPROCBITpage_(1):=TRUE
1640IF$wn%="StandW"THENPROCTITpage_(1):=TRUE
1645LOCAL Z%:Z%=FNstockch1_:IFZ%=TRUE THENPROCsI(W%,"Left1") ELSE=TRUE
1650Z%=FNstockch_(-1):PROCusI(W%,"Left1"):=TRUE
1655DEFFNLeft11_
1660IFsaled1%>0:IF$wn%="Saled"OR$wn%="SaledFW"THEN=FNSaledFo_
1665IFpaled1%>0:IF$wn%="Paled"OR$wn%="PaledFW"THEN=FNPaledFo_
1670IFbank1%>0:IF$wn%="BankL"OR$wn%="BankFW"THEN=FNBankfo_
1685IFCFindSu%>0:IF$wn%="CustomW"OR$wn%="CFindSu"THEN=FNCSuFor_
1690IF$wn%<>"InvW"AND$wn%<>"Saled"AND$wn%<>"Paled"AND$wn%<>"BankL"AND$wn%<>"StandW"AND$wn%<>"Headings"AND$wn%<>"PHeadings"AND$wn%<>"BalW"THEN=FNRight1_
1695*FX15,1
1700IF$wn%="InvW"THENPROCITpage_(-itip_%):=TRUE
1705IF$wn%="Saled"THENPROCSITpage_(-sitip_%):=TRUE
1710IF$wn%="Paled"THENPROCPITpage_(-sitip_%):=TRUE
1715IF$wn%="BankL"THENPROCBITpage_(-sitip_%):=TRUE
1720IF$wn%="StandW"THENPROCTITpage_(-sitip_%):=TRUE
1725IF$wn%="Headings"OR$wn%="PHeadings"THEN=FNShdo_
1735=FALSE
1740DEFFNRight1_
1745IF$wn%="InvW"THENPROCITpage_(-1):=TRUE
1750IF$wn%="Saled"THENPROCSITpage_(-1):=TRUE
1755IF$wn%="Paled"THENPROCPITpage_(-1):=TRUE
1760IF$wn%="BankL"THENPROCBITpage_(-1):=TRUE
1765IF$wn%="StandW"THENPROCTITpage_(-1):=TRUE
1770LOCAL Z%:Z%=FNstockch1_:IFZ%=TRUE THENPROCsI(W%,"Right1") ELSE=TRUE
1775Z%=FNstockch_(1):PROCusI(W%,"Right1"):=TRUE
1780DEFFNRight11_
1785IFsaled1%>0:IF$wn%="Saled"OR$wn%="SaledFW"THEN=FNSaledBa_
1790IFpaled1%>0:IF$wn%="Paled"OR$wn%="PaledFW"THEN=FNPaledBa_
1795IFbank1%>0:IF$wn%="BankL"OR$wn%="BankFW"THEN=FNBankba_
1810IFCFindSu%>0:IF$wn%="CustomW"OR$wn%="CFindSu"THEN=FNCSuBack_
1815IF$wn%<>"InvW"AND$wn%<>"Saled"AND$wn%<>"Paled"AND$wn%<>"BankL"AND$wn%<>"StandW"AND$wn%<>"Headings"AND$wn%<>"PHeadings"AND$wn%<>"BalW"THEN=FNLeft1_
1820*FX15,1
1825IF$wn%="InvW"THENPROCITpage_(itip_%):=TRUE
1830IF$wn%="Saled"THENPROCSITpage_(sitip_%):=TRUE
1835IF$wn%="Paled"THENPROCPITpage_(sitip_%):=TRUE
1840IF$wn%="BankL"THENPROCBITpage_(sitip_%):=TRUE
1845IF$wn%="StandW"THENPROCTITpage_(sitip_%):=TRUE
1850IF$wn%="Headings"OR$wn%="PHeadings"THEN=FNShup_
1860=FALSE
1865DEFFNLeft10_
1870IF$wn%="InvW"THENPROCITpage_(itip_%*5):=TRUE
1875IF$wn%="Saled"THENPROCSITpage_(sitip_%*5):=TRUE
1880IF$wn%="Paled"THENPROCPITpage_(sitip_%*5):=TRUE
1885IF$wn%="BankL"THENPROCBITpage_(sitip_%*5):=TRUE
1890IF$wn%="StandW"THENPROCTITpage_(sitip_%*5):=TRUE
1895LOCAL Z%:Z%=FNstockch1_:IFZ%=TRUE THENPROCsI(W%,"Left10") ELSE=TRUE
1900Z%=FNstockch_(-10):PROCusI(W%,"Left10"):=TRUE
1905DEFFNRight10_
1910IF$wn%="InvW"THENPROCITpage_(-itip_%*5):=TRUE
1915IF$wn%="StandW"THENPROCTITpage_(-sitip_%*5):=TRUE
1920IF$wn%="Saled"THENPROCSITpage_(-sitip_%*5):=TRUE
1925IF$wn%="Paled"THENPROCPITpage_(-sitip_%*5):=TRUE
1930IF$wn%="BankL"THENPROCBITpage_(-sitip_%*5):=TRUE
1935LOCAL Z%:Z%=FNstockch1_:IFZ%=TRUE THENPROCsI(W%,"Right10") ELSE=TRUE
1940Z%=FNstockch_(10):PROCusI(W%,"Right10"):=TRUE
1945DEFFNLeft100_
1950IF$wn%="InvW"THENPROCITpage_(itip_%*10):=TRUE
1955IF$wn%="Saled"THENPROCSITpage_(sitip_%*10):=TRUE
1960IF$wn%="Paled"THENPROCPITpage_(sitip_%*10):=TRUE
1965IF$wn%="BankL"THENPROCBITpage_(sitip_%*10):=TRUE
1970IF$wn%="StandW"THENPROCTITpage_(sitip_%*10):=TRUE
1975LOCAL Z%:Z%=FNstockch1_:IFZ%=TRUE THENPROCsI(W%,"Left100") ELSE=TRUE
1980Z%=FNstockch_(-100):PROCusI(W%,"Left100"):=TRUE
1985DEFFNRight100_
1990IF$wn%="InvW"THENPROCITpage_(-itip_%*10):=TRUE
1995IF$wn%="StandW"THENPROCTITpage_(-sitip_%*10):=TRUE
2000IF$wn%="Saled"THENPROCSITpage_(-sitip_%*10):=TRUE
2005IF$wn%="Paled"THENPROCPITpage_(-sitip_%*10):=TRUE
2010IF$wn%="BankL"THENPROCBITpage_(-sitip_%*10):=TRUE
2015LOCAL Z%:Z%=FNstockch1_:IFZ%=TRUE THENPROCsI(W%,"Right100") ELSE=TRUE
2020Z%=FNstockch_(100):PROCusI(W%,"Right100"):=TRUE
2025DEFFNStart1_
2030IFsaled1%>0:IF$wn%="Saled"OR$wn%="SaledFW"THEN=FNSaledFi_
2035IFpaled1%>0:IF$wn%="Paled"OR$wn%="PaledFW"THEN=FNPaledFi_
2040IFbank1%>0:IF$wn%="BankL"OR$wn%="BankFW"THEN=FNBankfi_
2055IFCFindSu%>0:IF$wn%="CustomW"OR$wn%="CFindSu"THEN=FNCSuFirst_
2060=FNStart_
2065DEFFNStart_
2070IF$wn%="InvW"THENPROCITpage_(maxI_%*itip_%):=TRUE
2075IF$wn%="Saled"THENPROCSITpage_(maxS_%*sitip_%):=TRUE
2080IF$wn%="Paled"THENPROCPITpage_(maxP_%*sitip_%):=TRUE
2085IF$wn%="BankL"THENPROCBITpage_(maxB_%*sitip_%):=TRUE
2090IF$wn%="StandW"THENPROCTITpage_(maxT_%*sitip_%):=TRUE
2095LOCAL Z%:Z%=FNstockch1_:IFZ%=TRUE THENPROCsI(W%,"Start") ELSE=TRUE
2100Z%=FNstockch_(-1000000):PROCusI(W%,"Start"):=TRUE
2105DEFFNEnd_
2110IF$wn%="InvW"THENPROCITpage_(-(maxI_%*itip_%)):=TRUE
2115IF$wn%="StandW"THENPROCTITpage_(-(maxT_%*sitip_%)):=TRUE
2120IF$wn%="Saled"THENPROCSITpage_(-(maxS_%*sitip_%)):=TRUE
2125IF$wn%="Paled"THENPROCPITpage_(-(maxP_%*sitip_%)):=TRUE
2130IF$wn%="BankL"THENPROCBITpage_(-(maxB_%*sitip_%)):=TRUE
2135LOCAL Z%:Z%=FNstockch1_:IFZ%=TRUE THENPROCsI(W%,"End") ELSE=TRUE
2140Z%=FNstockch_(1000000):PROCusI(W%,"End"):=TRUE
2145DEFFNlinkhS_:LOCAL Z%,A$,B$,C$:A$=CHR$(I%+65):B$=CHR$((I%-12)/8+65)+CHR$((I%-12)MOD8+65)
2150CASE curlink_% OF
2160WHEN 7:IF!i%<45:C$=FNgId(invw%,!i%):IFINSTR(C$,":"):C$=LEFT$(C$,2)ELSEIFLEN(C$)=1ORLEN(C$)=3THENC$=LEFT$(C$,1)+":" ELSEC$=""
2165IFI%<12THENZ%=FNpII(invw%,!i%,C$+A$+"A") ELSEZ%=FNpII(invw%,!i%,C$+B$)
2170WHEN 8:IFI%<12THENZ%=FNpII(saled%,!i%,A$) ELSEZ%=FNpII(saled%,!i%,B$)
2175WHEN 9:IFI%<12THENZ%=FNpII(paled%,!i%,A$) ELSEZ%=FNpII(paled%,!i%,B$)
2180WHEN 10:IFI%<12THEN$!Saled4_%=A$ ELSE$!Saled4_%=B$
2185PROCrI(W%,"Saled4")
2190WHEN 11:IFI%<12THEN$!Paled4_%=A$ ELSE$!Paled4_%=B$
2195PROCrI(W%,"Paled4")
2200WHEN 12:IFI%<12THEN$!r99S_%=A$ ELSE$!r99S_%=B$
2205PROCrI(W%,"r99S")
2210WHEN 13:IFI%<12THEN$!r99P_%=A$ ELSE$!r99P_%=B$
2215PROCrI(W%,"r99P")
2220WHEN 15:IFI%<12THEN$!Sm1_%=A$ ELSE$!Sm1_%=CHR$((I%-12)/8+65)
2225Z%=FNSm1_
2230WHEN 16:IFI%<12THEN$!Pm1_%=A$ ELSE$!Pm1_%=CHR$((I%-12)/8+65)
2235Z%=FNPm1_
2250ENDCASE
2255=TRUE
2260DEFFNlinkbS_:LOCAL Z%,A$:A$=CHR$(I%+65):IFW%>0:IFW%!12>0:IFI%<12THENZ%=FNpII(W%!12,!i%,A$)
2265=TRUE
2270DEFFNlinkS_
2275LOCAL Z%
2280CASE curlink_% OF
2310WHEN 6:Z%=FNwindow("CFindSu"):$!CSSupplier_%=CSuppliers_$(I%+1):CSSupplie_$=$!CSSupplier_%:PROCrI(W%,"CSSupplier"):PROCsetC_(3):CS_%=I%+1:CSuwind%=0:CSuW%=0:Z%=FNwindow("CustomW"):Z%=FNCupdatesupplier_:Z%=FNwindow("CFindSu")
2315WHEN 7:$!ITsupplier_%=CSuppliers_$(I%+1):ITsupnumN_%=CSuNumber_%(I%+1):PROCrI(invW%,"ITsupplier"):Z%=FNITsupplier_
2320WHEN 8:Z%=FNpII(saled%,!i%,CSuppliers_$(I%+1)):SITn_%(sitp_%+!i%/sitif_%+1)=CSuNumber_%(I%+1)
2330WHEN 10:$!Saled1_%="#"+STR$(I%+1)+"="+CSuppliers_$(I%+1):PROCrI(W%,"Saled1"):SITn_%(0)=I%+1
2340WHEN 12:$!r33S_%="#"+STR$(I%+1)+"="+CSuppliers_$(I%+1):PROCrI(W%,"r33S"):SITn1_%=I%+1
2350WHEN 14:$!SCust_%="#"+STR$(I%+1)+"="+CSuppliers_$(I%+1):PROCrI(W%,"SCust"):PROCsetC_(11):SITn2_%=I%+1
2355WHEN 17:
2360ENDCASE
2365=TRUE
2370DEFFNinvoc_:LOCAL Z%:Z%=FNCupdatesupplier_:Z%=FNwindow("InvW"):$!ITsupplier_%=$!CSuName_%:ITsupnumN_%=CSuNumber_%(CS_%):PROCrI(invW%,"ITsupplier"):=FNITsupplier_
2375DEFFNlinkF_
2380LOCAL Z%
2385CASE fonlink_% OF
2390WHEN 1:j_f4%=I%-1:!b%=1:Z%=FNDfname_
2395WHEN 2:j_f%=I%-1:!b%=1:Z%=FNLfontname_
2400WHEN 3:j_f1%=I%-1:!b%=1:Z%=FNListfname_
2405WHEN 4:j_f2%=I%-1:!b%=1:Z%=FNSfontname_
2410WHEN 5:j_f3%=I%-1:!b%=1:Z%=FNSLfname_
2415WHEN 6:j_f5%=I%-1:!b%=1:Z%=FNCSfontname_
2420WHEN 7:j_f6%=I%-1:!b%=1:Z%=FNCSLfname_
2425WHEN 8,9,14:OrderFU_%=I%-1:!b%=1:Z%=FNIOrderfu_
2430WHEN 10:SaledR_%(15)=I%-1:!b%=1:Z%=FNSafname_
2435WHEN 11:PaledR_%(15)=I%-1:!b%=1:Z%=FNPafname_
2440WHEN 12:BaledR_%(9)=I%-1:!b%=1:Z%=FNBafname_
2445WHEN 13:Xnam_%=I%-1:!b%=1:Z%=FNXfname_
2450WHEN 15:VatC_%(8)=I%-1:!b%=1:Z%=FNVafname_
2455WHEN 16:WatC_%(8)=I%-1:!b%=1:Z%=FNWafname_
2460ENDCASE
2470IFfonlink_%>IAfon_%+1ANDfonlink_%<=IOicons%+IAfon_%THENIOrderF_%(fonlink_%-IAfon_%)=I%-1:!b%=1:=FNIOrderf_
2480=TRUE
2485DEFFNlinkI_:$!ITnum_%=invL_$(I%):=FNITnum_
2495
2500DEFFNStSort1_:=FALSE
2505DEFFNStsn_:=FALSE
2510DEFFNStrn_:=FALSE
2515
2590DEFFNCSuSort_:PROCwl_(28):=FALSE
2655
2660DEFPROCSiSort_:LOCAL A%,B%,C%,D%,Z%:B%=sitif_%:SYS&406C0:FORA%=1TOmaxS_%*sitip_%:supp_%(A%)=A%:NEXT:FORA%=2TOmaxS_%*sitip_%:FORC%=A%TO2 STEP-1:D%=(C%-1)*B%+1
2665IFSITe_$(D%)<>""ANDFNcd_(SITe_$(D%))<FNcd_(SITe_$(D%-B%))THENSITe_$(0)=SITe_$(D%-B%):SITe_$(D%-B%)=SITe_$(D%):SITe_$(D%)=SITe_$(0):supp_%(0)=supp_%(C%-1):supp_%(C%-1)=supp_%(C%):supp_%(C%)=supp_%(0) ELSEC%=2
2670NEXT
2675SYS&406C4,A%/(maxS_%*sitip_%)*100:NEXT:PROCswapsit_:SYS&406C1:SITe_$(0)=today_$:ENDPROC
2680DEFPROCPiSort_:LOCAL A%,B%,C%,D%,Z%:B%=sitif_%:SYS&406C0:FORA%=1TOmaxP_%*sitip_%:supp_%(A%)=A%:NEXT:FORA%=2TOmaxP_%*sitip_%:FORC%=A%TO2 STEP-1:D%=(C%-1)*B%+1
2685IFPITe_$(D%)<>""ANDFNcd_(PITe_$(D%))<FNcd_(PITe_$(D%-B%))THENPITe_$(0)=PITe_$(D%-B%):PITe_$(D%-B%)=PITe_$(D%):PITe_$(D%)=PITe_$(0):supp_%(0)=supp_%(C%-1):supp_%(C%-1)=supp_%(C%):supp_%(C%)=supp_%(0) ELSEC%=2
2690NEXT
2695SYS&406C4,A%/(maxP_%*sitip_%)*100:NEXT:PROCswapPit_:SYS&406C1:PITe_$(0)=today_$:ENDPROC
2700DEFPROCBiSort_:LOCAL A%,B%,C%,D%,Z%:B%=bitif_%:SYS&406C0:FORA%=1TOmaxB_%*sitip_%:supp_%(A%)=A%:NEXT:FORA%=2TOmaxB_%*sitip_%:FORC%=A%TO2 STEP-1:D%=(C%-1)*B%+1
2705IFBITe_$(D%)<>""ANDFNcd_(BITe_$(D%))<FNcd_(BITe_$(D%-B%))THENBITe_$(0)=BITe_$(D%-B%):BITe_$(D%-B%)=BITe_$(D%):BITe_$(D%)=BITe_$(0):supp_%(0)=supp_%(C%-1):supp_%(C%-1)=supp_%(C%):supp_%(C%)=supp_%(0) ELSEC%=2
2710NEXT
2715SYS&406C4,A%/(maxB_%*sitip_%)*100:NEXT:PROCswapBit_:SYS&406C1:BITe_$(0)=today_$:ENDPROC
2875
2880DEFPROCswapsit_:LOCAL A%,B%,C%,D%:B%=maxS_%*sitip_%:A%=B%:REPEAT
2885IFsupp_%(B%)<>B%THEN
2890PROCswapsit1_(0,A%):REPEAT:PROCswapsit1_(A%,supp_%(A%)):C%=A%:A%=supp_%(A%):supp_%(C%)=C%:SYS&406C4,A%/(maxS_%*sitip_%)*100:UNTIL supp_%(A%)=B%:PROCswapsit1_(A%,0):supp_%(A%)=A%
2895ENDIF
2900B%-=1:A%=B%:SYS&406C4,B%/(maxS_%*sitip_%)*100:UNTILB%=1:ENDPROC
2905DEFPROCswapPit_:LOCAL A%,B%,C%,D%:B%=maxP_%*sitip_%:A%=B%:REPEAT
2910IFsupp_%(B%)<>B%THEN
2915PROCswapPit1_(0,A%):REPEAT:PROCswapPit1_(A%,supp_%(A%)):C%=A%:A%=supp_%(A%):supp_%(C%)=C%:SYS&406C4,A%/(maxP_%*sitip_%)*100:UNTIL supp_%(A%)=B%:PROCswapPit1_(A%,0):supp_%(A%)=A%
2920ENDIF
2925B%-=1:A%=B%:SYS&406C4,B%/(maxP_%*sitip_%)*100:UNTILB%=1:ENDPROC
2930DEFPROCswapBit_:LOCAL A%,B%,C%,D%:B%=maxB_%*sitip_%:A%=B%:REPEAT
2935IFsupp_%(B%)<>B%THEN
2940PROCswapBit1_(0,A%):REPEAT:PROCswapBit1_(A%,supp_%(A%)):C%=A%:A%=supp_%(A%):supp_%(C%)=C%:SYS&406C4,A%/(maxB_%*sitip_%)*100:UNTIL supp_%(A%)=B%:PROCswapBit1_(A%,0):supp_%(A%)=A%
2945ENDIF
2950B%-=1:A%=B%:SYS&406C4,B%/(maxB_%*sitip_%)*100:UNTILB%=1:ENDPROC
2955
3015DEFPROCswapsit1_(C%,B%)
3020LOCAL A%
3025IFC%=0THENC%=maxS_%*sitip_% ELSEC%-=1
3030IFB%=0THENB%=maxS_%*sitip_% ELSEB%-=1
3035FORA%=2TOsitif_%:SITe_$(C%*sitif_%+A%)=SITe_$(B%*sitif_%+A%):NEXT
3040SITa_$(C%)=SITa_$(B%):SITh_$(C%)=SITh_$(B%):SITs_$(C%)=SITs_$(B%):SITn_%(C%+1)=SITn_%(B%+1)
3045ENDPROC
3050DEFPROCswapPit1_(C%,B%)
3055LOCAL A%
3060IFC%=0THENC%=maxP_%*sitip_% ELSEC%-=1
3065IFB%=0THENB%=maxP_%*sitip_% ELSEB%-=1
3070FORA%=2TOsitif_%:PITe_$(C%*sitif_%+A%)=PITe_$(B%*sitif_%+A%):NEXT
3075PITa_$(C%)=PITa_$(B%):PITh_$(C%)=PITh_$(B%):PITs_$(C%)=PITs_$(B%):PITn_%(C%+1)=PITn_%(B%+1)
3080ENDPROC
3085DEFPROCswapBit1_(C%,B%)
3090LOCAL A%
3095IFC%=0THENC%=maxB_%*sitip_% ELSEC%-=1
3100IFB%=0THENB%=maxB_%*sitip_% ELSEB%-=1
3105FORA%=2TObitif_%:BITe_$(C%*bitif_%+A%)=BITe_$(B%*bitif_%+A%):NEXT
3110BITf_$(C%)=BITf_$(B%):BITt_$(C%)=BITt_$(B%)
3115ENDPROC
3120
3185DEFFNCSuFind_:Z%=FNCsuppup_(0):=FNwindow("CFindSu")
3190
3210DEFFNCSSupplier_:CSSupplie_$=$!CSSupplier_%:=FNCSuFirst_
3215
3220DEFFNr11S_:=FNupdatesaled2_
3225DEFFNr111S_:=FNupdatesaled2_
3230DEFFNr22S_:=FNupdatesaled2_
3235DEFFNr222S_:=FNupdatesaled2_
3240DEFFNr33S_:LOCAL Z%:IFLEFT$($!r33S_%,1)="#"THENZ%=FNsf_($!r33S_%,1):$!r33S_%="#"+STR$(Z%)+"="+CSuppliers_$(Z%):SITn1_%=Z% ELSESITn1_%=0
3245=FNupdatesaled2_
3250DEFFNr44S_:=FNSalfinda_
3255DEFFNr444S_:=FNupdatesaled2_
3260DEFFNr55S_:=FNupdatesaled2_
3265DEFFNr66S_:=FNupdatesaled2_
3270DEFFNr666S_:=FNupdatesaled2_
3275DEFFNr77S_:=FNupdatesaled2_
3280DEFFNr777S_:=FNupdatesaled2_
3285DEFFNr7777S_:=FNupdatesaled2_
3290DEFFNr88S_:=FNupdatesaled2_
3295DEFFNr888S_:=FNupdatesaled2_
3300DEFFNr99S_:=FNSalfindh_
3305DEFFNr999S_:=FNupdatesaled2_
3310DEFFNraaS_:=FNupdatesaled2_
3315DEFFNrbbS_:=FNSalfinds_
3320DEFFNrbbbS_:=FNupdatesaled2_
3325
3330DEFFNr11P_:=FNupdatepaled2_
3335DEFFNr111P_:=FNupdatepaled2_
3340DEFFNr22P_:=FNupdatepaled2_
3345DEFFNr222P_:=FNupdatepaled2_
3350DEFFNr33P_:LOCAL Z%:IFLEFT$($!r33S_%,1)="#"THENZ%=FNsf_($!r33P_%,3):$!r33P_%="#"+STR$(Z%)+"="+Suppliers_$(Z%):PITn1_%=Z% ELSEPITn1_%=0
3355=FNupdatepaled2_
3360DEFFNr44P_:=FNPalfinda_
3365DEFFNr444P_:=FNupdatepaled2_
3370DEFFNr55P_:=FNupdatepaled2_
3375DEFFNr66P_:=FNupdatepaled2_
3380DEFFNr666P_:=FNupdatepaled2_
3385DEFFNr77P_:=FNupdatepaled2_
3390DEFFNr777P_:=FNupdatepaled2_
3395DEFFNr7777P_:=FNupdatepaled2_
3400DEFFNr88P_:=FNupdatepaled2_
3405DEFFNr888P_:=FNupdatepaled2_
3410DEFFNr99P_:=FNPalfindh_
3415DEFFNr999P_:=FNupdatepaled2_
3420DEFFNraaP_:=FNupdatepaled2_
3425DEFFNrbbP_:=FNPalfinds_
3430DEFFNrbbbP_:=FNupdatepaled2_
3435
3440DEFFNr11B_:=FNupdatebank2_
3445DEFFNr111B_:=FNupdatebank2_
3450DEFFNr22B_:=FNupdatebank2_
3455DEFFNr33B_:=FNBalfinda_
3460DEFFNr333B_:=FNupdatebank2_
3465DEFFNr44B_:=FNupdatebank2_
3470DEFFNr444B_:=FNupdatebank2_
3475DEFFNr55B_:=FNBalfinds_
3480DEFFNr555B_:=FNupdatebank2_
3485DEFFNr66B_:=FNupdatebank2_
3490
3495DEFFNSaled1_:SaledF_$(1)=$!Saled1_%:SITn_%(0)=0:=TRUE
3500DEFFNSaled2_:SaledF_$(2)=$!Saled2_%:=FNsalfinda_
3505DEFFNSaled3_:SaledF_$(3)=$!Saled3_%:=TRUE
3510DEFFNSaled4_:SaledF_$(4)=$!Saled4_%:=FNsalfindh_
3515DEFFNSaled5_:SaledF_$(5)=$!Saled5_%:=TRUE
3520DEFFNSaled6_:SaledF_$(6)=$!Saled6_%:=FNsalfinds_
3525DEFFNSaled7_:SaledF_$(7)=$!Saled7_%:PROCsetC_(13):=TRUE
3530DEFFNinitsaled1_:$!Saled1_%=SaledF_$(1):$!Saled2_%=SaledF_$(2):$!Saled3_%=SaledF_$(3):$!Saled4_%=SaledF_$(4):$!Saled5_%=SaledF_$(5):$!Saled6_%=SaledF_$(6):$!Saled7_%=SaledF_$(7):=TRUE
3535DEFPROCupdatesaled1d_:$!Saled1_%="":$!Saled2_%="":$!Saled3_%="":$!Saled4_%="":$!Saled5_%="":$!Saled6_%="":$!Saled7_%=""
3540PROCrI(W%,"Saled1"):PROCrI(W%,"Saled2"):PROCrI(W%,"Saled3"):PROCrI(W%,"Saled4"):PROCrI(W%,"Saled5"):PROCrI(W%,"Saled6"):PROCrI(W%,"Saled7"):ENDPROC
3545DEFPROCupdatepaled1d_:$!Paled1_%="":$!Paled2_%="":$!Paled3_%="":$!Paled4_%="":$!Paled5_%="":$!Paled6_%="":$!Paled7_%=""
3550PROCrI(W%,"Paled1"):PROCrI(W%,"Paled2"):PROCrI(W%,"Paled3"):PROCrI(W%,"Paled4"):PROCrI(W%,"Paled5"):PROCrI(W%,"Paled6"):PROCrI(W%,"Paled7"):ENDPROC
3555DEFFNupdatesaled1_:LOCAL Z%:SaledF_$(1)=$!Saled1_%:SaledF_$(2)=$!Saled2_%:SaledF_$(3)=$!Saled3_%:SaledF_$(4)=$!Saled4_%:SaledF_$(5)=$!Saled5_%:SaledF_$(6)=$!Saled6_%:SaledF_$(7)=$!Saled7_%:Z%=FNsalfindh_:Z%=FNsalfinda_
3560=FNsalfinds_
3565DEFFNsalfinda_:$!Saledacc_%=FNgetbank_(SaledF_$(2)):PROCrI(W%,"Saledacc"):=TRUE
3570DEFFNsalfindh_:$!Saledhea_%=FNgetheadS_(SaledF_$(4)):PROCrI(W%,"Saledhea"):=TRUE
3575DEFFNsalfinds_
3580LOCAL V$,H%
3585IFSaledF_$(6)<>"p"THEN$t_%=SaledF_$(6):H%=t_%:CALLm1_%:V$=$t_% ELSEV$="p"
3590IFV$="P"THENV$="Paid" ELSEIFV$="R"THENV$=Q_$ ELSEIFV$="U"THENV$="Unpaid" ELSEIFV$="O"THENV$="over-Paid" ELSEIFV$="p"THENV$="part-Paid" ELSEV$=""
3595$!Saledsta_%=V$:PROCrI(W%,"Saledsta"):=TRUE
3600
3605DEFFNgetbank_($t_%):LOCAL Z%,H%:H%=t_%:CALLm1_%:Z%=ASC($t_%)-64:IFZ%>0ANDZ%<13THEN=BankNN_$(Z%)
3610=""
3615DEFFNgetheadS_($t_%):LOCAL Z%,Z_%,B_$,H%:H%=t_%:CALLm1_%:Z%=ASC($t_%)-65:IFZ%<0ORZ%>11THEN=""
3620B_$=Shead1_$(Z%+1):IFLEN($t_%)>1:Z_%=ASC(RIGHT$($t_%,1))-64:IFZ_%>0ANDZ_%<9THENB_$=B_$+":"+Shead1_$(Z%*8+12+Z_%)
3625=B_$
3630DEFFNgetheadP_($t_%):LOCAL Z%,Z_%,B_$,H%:H%=t_%:CALLm1_%:Z%=ASC($t_%)-65:IFZ%<0ORZ%>11THEN=""
3635B_$=Phead1_$(Z%+1):IFLEN($t_%)>1:Z_%=ASC(RIGHT$($t_%,1))-64:IFZ_%>0ANDZ_%<9THENB_$=B_$+":"+Phead1_$(Z%*8+12+Z_%)
3640=B_$
3645DEFFNgethN_($t_%):LOCAL Z%,Z_%,B_$,H%:H%=t_%:CALLm1_%:Z%=ASC($t_%)-65:IFZ%<0ORZ%>11THEN=0
3650IFLEN($t_%)>1:Z_%=ASC(RIGHT$($t_%,1))-64:IFZ_%>0ANDZ_%<9THEN=Z%*8+Z_% ELSEIFLEN($t_%)>1THEN=0 ELSE=Z%*8+1
3655
3660DEFFNSalfinda_:$!r444S_%=FNgetbank_($!r44S_%):PROCrI(W%,"r444S"):=TRUE
3665DEFFNSalfindh_:$!r999S_%=FNgetheadS_($!r99S_%):PROCrI(W%,"r999S"):=TRUE
3670DEFFNSalfinds_:LOCAL V$,H%
3675IF$!rbbS_%<>"p"THEN$t_%=$!rbbS_%:H%=t_%:CALLm1_%:V$=$t_% ELSEV$="p"
3680IFV$="P"THENV$="Paid" ELSEIFV$="R"THENV$=Q_$ ELSEIFV$="U"THENV$="Unpaid" ELSEIFV$="O"THENV$="over-Paid" ELSEIFV$="p"THENV$="part-Paid" ELSEV$=""
3685$!rbbbS_%=V$:PROCrI(W%,"rbbbS"):=TRUE
3690
3695DEFFNPalfinda_:$!r444P_%=FNgetbank_($!r44P_%):PROCrI(W%,"r444P"):=TRUE
3700DEFFNPalfindh_:$!r999P_%=FNgetheadP_($!r99P_%):PROCrI(W%,"r999P"):=TRUE
3705DEFFNPalfinds_:LOCAL V$,H%
3710IF$!rbbP_%<>"p"THEN$t_%=$!rbbP_%:H%=t_%:CALLm1_%:V$=$t_% ELSEV$="p"
3715IFV$="P"THENV$="Paid" ELSEIFV$="R"THENV$=Q_$ ELSEIFV$="U"THENV$="Unpaid" ELSEIFV$="O"THENV$="over-Paid" ELSEIFV$="p"THENV$="part-Paid" ELSEV$=""
3720$!rbbbP_%=V$:PROCrI(W%,"rbbbP"):=TRUE
3725
3730DEFFNBalfinda_:$!r333B_%=FNgetbank_($!r33B_%):PROCrI(W%,"r333B"):=TRUE
3735DEFFNBalfinds_:LOCAL V$,H%:$t_%=$!r55B_%:H%=t_%:CALLm1_%:$!r55B_%=$t_%
3740IF$!r55B_%<>""AND$!r55B_%<>"P"AND$!r55B_%<>"R"AND$!r55B_%<>"�"THEN$!r55B_%=""
3745V$=$!r55B_%:IFV$="P"THENV$="Paid" ELSEIFV$="R"ORV$="�"THENV$=Q_$ ELSEV$=""
3750$!r555B_%=V$:PROCrI(W%,"r55B"):PROCrI(W%,"r555B"):=TRUE
3755
3760DEFFNSaledFi_:IFsaled%=0THEN=FALSE
3765=FNSalesFi_(0,maxS_%*sitip_%-1,1)
3770DEFFNSalesFi_(A_%,AA_%,AAA_%):LOCAL A$,B$,C$,D$,E$,F$,G$,A%,B%,C%,D%,E%,H%,Z%:SYS&406C0:Z%=FNupdatesaled1_:E%=saledp_%:H%=t_%:$t_%=SaledF_$(1):CALLm1_%:A$=$t_%:$t_%=SaledF_$(2):CALLm1_%:B$=$t_%:$t_%=SaledF_$(3):CALLm1_%:C$=$t_%
3775IFLEFT$(A$,1)="#":SITn_%(0)=CSuNumber_%(FNsf_(A$,1)) ELSESITn_%(0)=0
3780$t_%=SaledF_$(4):CALLm1_%:D$=$t_%:$t_%=SaledF_$(5):CALLm1_%:E$=$t_%:F$=$!Saledsta_%:G$=FNconvis_(FNconvsi_(SaledF_$(7)),""):FORZ%=A_%TOAA_%STEPAAA_%:A%=Z%*sitif_%:B%=0
3785$t_%=SITe_$(A%+3):CALLm1_%:IFSITn_%(0)=0:IFINSTR($t_%,A$)THENB%+=1
3790IFSITn_%(0)>0:IFSITn_%(0)=SITn_%(Z%+1)THENB%+=1
3795IFSITe_$(A%+4)=B$ORB$=""THENB%+=1
3800$t_%=SITe_$(A%+5):CALLm1_%:IFINSTR($t_%,C$)THENB%+=1
3805IFLEFT$(SITe_$(A%+10),1)=LEFT$(D$,1)ANDRIGHT$(SITe_$(A%+10),1)=RIGHT$(D$,1)ORLEFT$(SITe_$(A%+10),1)=D$ORD$=""THENB%+=1
3810$t_%=SITe_$(A%+11):CALLm1_%:IFINSTR($t_%,E$)THENB%+=1
3815IFSITs_$(Z%)=F$ORF$=""THENB%+=1
3820IFSITe_$(A%+6)=G$ORG$=""THENB%+=1
3825IFB%=7THENC%=Z%:Z%=AA_%
3830NEXT:IFB%<7THENSYS&406C1:=FNupdatesaled_
3835Z%=sitp_%+(E%-1)/sitif_%:D%=FNwindow("Saled"):IFZ%<C%THENPROCSITdown_(Z%-C%)
3840IFZ%>C%THENPROCSITup_(Z%-C%)
3845IFsitp_%=0THENE%=(E%-1)MODsitif_%+C%*sitif_%+1
3850IFsitp_%=maxS_%*sitip_%-sitip_%THENE%=(E%-1)MODsitif_%+(C%-(maxS_%*sitip_%-sitip_%))*sitif_%+1
3855PROCsetC1_(saled%,E%):SYS&406C1:=TRUE
3860DEFFNSaledBa_:LOCAL Z%:Z%=sitp_%+(saledp_%-1)/sitif_%:IFZ%=0ORsaled%=0THEN=FALSE
3865=FNSalesFi_(Z%-1,0,-1)
3870DEFFNSaledFo_:Z%=sitp_%+(saledp_%-1)/sitif_%:IFZ%=maxS_%*sitip_%-1ORsaled%=0THEN=FALSE
3875=FNSalesFi_(Z%+1,maxS_%*sitip_%-1,1)
3880
3885DEFFNPaledFi_:IFpaled%=0THEN=FALSE
3890=FNPalesFi_(0,maxP_%*sitip_%-1,1)
3895DEFFNPalesFi_(A_%,AA_%,AAA_%):LOCAL A$,B$,C$,D$,E$,F$,G$,A%,B%,C%,D%,E%,H%,Z%:SYS&406C0:Z%=FNupdatepaled1_:E%=paledp_%:H%=t_%:$t_%=PaledF_$(1):CALLm1_%:A$=$t_%:$t_%=PaledF_$(2):CALLm1_%:B$=$t_%:$t_%=PaledF_$(3):CALLm1_%:C$=$t_%
3900PITn_%(0)=0
3905$t_%=PaledF_$(4):CALLm1_%:D$=$t_%:$t_%=PaledF_$(5):CALLm1_%:E$=$t_%:F$=$!Paledsta_%:G$=FNconvis_(FNconvsi_(PaledF_$(7)),""):FORZ%=A_%TOAA_%STEPAAA_%:A%=Z%*sitif_%:B%=0
3910$t_%=PITe_$(A%+3):CALLm1_%:IFPITn_%(0)=0:IFINSTR($t_%,A$)THENB%+=1
3915IFPITn_%(0)>0:IFPITn_%(0)=PITn_%(Z%+1)THENB%+=1
3920IFPITe_$(A%+4)=B$ORB$=""THENB%+=1
3925$t_%=PITe_$(A%+5):CALLm1_%:IFINSTR($t_%,C$)THENB%+=1
3930IFLEFT$(PITe_$(A%+10),1)=LEFT$(D$,1)ANDRIGHT$(PITe_$(A%+10),1)=RIGHT$(D$,1)ORLEFT$(PITe_$(A%+10),1)=D$ORD$=""THENB%+=1
3935$t_%=PITe_$(A%+11):CALLm1_%:IFINSTR($t_%,E$)THENB%+=1
3940IFPITs_$(Z%)=F$ORF$=""THENB%+=1
3945IFPITe_$(A%+6)=G$ORG$=""THENB%+=1
3950IFB%=7THENC%=Z%:Z%=AA_%
3955NEXT:IFB%<7THENSYS&406C1:=FNupdatepaled_
3960Z%=pitp_%+(E%-1)/sitif_%:D%=FNwindow("Paled"):IFZ%<C%THENPROCPITdown_(Z%-C%)
3965IFZ%>C%THENPROCPITup_(Z%-C%)
3970IFpitp_%=0THENE%=(E%-1)MODsitif_%+C%*sitif_%+1
3975IFpitp_%=maxP_%*sitip_%-sitip_%THENE%=(E%-1)MODsitif_%+(C%-(maxP_%*sitip_%-sitip_%))*sitif_%+1
3980PROCsetC1_(paled%,E%):SYS&406C1:=TRUE
3985DEFFNPaledBa_:LOCAL Z%:Z%=pitp_%+(paledp_%-1)/sitif_%:IFZ%=0ORpaled%=0THEN=FALSE
3990=FNPalesFi_(Z%-1,0,-1)
3995DEFFNPaledFo_:Z%=pitp_%+(paledp_%-1)/sitif_%:IFZ%=maxP_%*sitip_%-1ORpaled%=0THEN=FALSE
4000=FNPalesFi_(Z%+1,maxP_%*sitip_%-1,1)
4005
4010DEFFNPaled1_:PaledF_$(1)=$!Paled1_%:PITn_%(0)=0:=TRUE
4015DEFFNPaled2_:PaledF_$(2)=$!Paled2_%:=FNpalfinda_
4020DEFFNPaled3_:PaledF_$(3)=$!Paled3_%:=TRUE
4025DEFFNPaled4_:PaledF_$(4)=$!Paled4_%:=FNpalfindh_
4030DEFFNPaled5_:PaledF_$(5)=$!Paled5_%:=TRUE
4035DEFFNPaled6_:PaledF_$(6)=$!Paled6_%:=FNpalfinds_
4040DEFFNPaled7_:PaledF_$(7)=$!Paled7_%:PROCsetC_(13):=TRUE
4045DEFFNinitpaled1_:$!Paled1_%=PaledF_$(1):$!Paled2_%=PaledF_$(2):$!Paled3_%=PaledF_$(3):$!Paled4_%=PaledF_$(4):$!Paled5_%=PaledF_$(5):$!Paled6_%=PaledF_$(6):$!Paled7_%=PaledF_$(7):=TRUE
4050DEFFNupdatepaled1_:LOCAL Z%:PaledF_$(1)=$!Paled1_%:PaledF_$(2)=$!Paled2_%:PaledF_$(3)=$!Paled3_%:PaledF_$(4)=$!Paled4_%:PaledF_$(5)=$!Paled5_%:PaledF_$(6)=$!Paled6_%:PaledF_$(7)=$!Paled7_%:Z%=FNpalfindh_:Z%=FNpalfinda_
4055=FNpalfinds_
4060DEFFNpalfinda_:$!Paledacc_%=FNgetbank_(PaledF_$(2)):PROCrI(W%,"Paledacc"):=TRUE
4065DEFFNpalfindh_:$!Paledhea_%=FNgetheadP_(PaledF_$(4)):PROCrI(W%,"Paledhea"):=TRUE
4070DEFFNpalfinds_:LOCAL V$,H%
4075IFPaledF_$(6)<>"p"THENH%=t_%:$t_%=PaledF_$(6):CALLm1_%:V$=$t_% ELSEV$="p"
4080IFV$="P"THENV$="Paid" ELSEIFV$="R"THENV$=Q_$ ELSEIFV$="U"THENV$="Unpaid" ELSEIFV$="O"THENV$="over-Paid" ELSEIFV$="p"THENV$="part-Paid" ELSEV$=""
4085$!Paledsta_%=V$:PROCrI(W%,"Paledsta"):=TRUE
4090
4095DEFFNBank1_:BankF_$(1)=$!Bank1_%:=TRUE
4100DEFFNBank2_:BankF_$(2)=$!Bank2_%:=FNbanfinda1_
4105DEFFNBank3_:BankF_$(3)=$!Bank3_%:=FNbanfinds1_
4110DEFFNBank4_:BankF_$(4)=$!Bank4_%:=FNbanfinda2_
4115DEFFNBank5_:BankF_$(5)=$!Bank5_%:=FNbanfinds2_
4120DEFFNBank6_:BankF_$(6)=$!Bank6_%:=TRUE
4125DEFFNBank7_:BankF_$(7)=$!Bank7_%:PROCsetC_(14):=TRUE
4130DEFFNinitbank1_:$!Bank1_%=BankF_$(1):$!Bank2_%=BankF_$(2):$!Bank3_%=BankF_$(3):$!Bank4_%=BankF_$(4):$!Bank5_%=BankF_$(5):$!Bank6_%=BankF_$(6):$!Bank7_%=BankF_$(7):=TRUE
4135DEFFNupdatebank1_:LOCAL Z%,H%:$t_%=$!Bank3_%:H%=t_%:CALLm1_%:BankF_$(1)=$!Bank1_%:BankF_$(2)=$!Bank2_%:IF$t_%="R"THEN$!Bank3_%="�":PROCrI(bank1%,"Bank3")
4140BankF_$(3)=$!Bank3_%:BankF_$(4)=$!Bank4_%:$t_%=$!Bank5_%:CALLm1_%:IF$t_%="R"THEN$!Bank5_%="�":PROCrI(bank1%,"Bank5")
4145BankF_$(5)=$!Bank5_%:BankF_$(6)=$!Bank6_%:BankF_$(7)=$!Bank7_%:Z%=FNbanfinda1_:Z%=FNbanfinda2_:Z%=FNbanfinds1_:=FNbanfinds2_
4150DEFPROCupdatebank1d_:$!Bank1_%="":$!Bank2_%="":$!Bank3_%="":$!Bank4_%="":$!Bank5_%="":$!Bank6_%="":$!Bank7_%=""
4155PROCrI(W%,"Bank1"):PROCrI(W%,"Bank2"):PROCrI(W%,"Bank3"):PROCrI(W%,"Bank4"):PROCrI(W%,"Bank5"):PROCrI(W%,"Bank6"):PROCrI(W%,"Bank7"):ENDPROC
4160DEFFNbanfinda1_:$!Bank1acc_%=FNgetbank_(BankF_$(2)):PROCrI(W%,"Bank1acc"):=TRUE
4165DEFFNbanfinda2_:$!Bank2acc_%=FNgetbank_(BankF_$(4)):PROCrI(W%,"Bank2acc"):=TRUE
4170DEFFNbanfinds1_:LOCAL V$,H%
4175H%=t_%:$t_%=BankF_$(3):CALLm1_%:V$=$t_%
4180IFV$="P"THENV$="Paid" ELSEIFV$="R"ORV$="�"THENV$=Q_$
4185$!Bank1sta_%=V$:PROCrI(W%,"Bank1sta"):=TRUE
4190DEFFNbanfinds2_:LOCAL V$,H%
4195H%=t_%:$t_%=BankF_$(5):CALLm1_%:V$=$t_%
4200IFV$="P"THENV$="Paid" ELSEIFV$="R"ORV$="�"THENV$=Q_$
4205$!Bank2sta_%=V$:PROCrI(W%,"Bank2sta"):=TRUE
4210
4215DEFFNBankfi_:IFbankl%=0THEN=FALSE
4220=FNBanksFi_(0,maxB_%*bitip_%-1,1)
4225DEFFNBanksFi_(A_%,AA_%,AAA_%):LOCAL A$,B$,C$,D$,E$,F$,G$,A%,B%,C%,D%,E%,H%,Z%:SYS&406C0:Z%=FNupdatebank1_:E%=bankp_%:H%=t_%:$t_%=BankF_$(1):CALLm1_%:A$=$t_%
4230$t_%=BankF_$(6):CALLm1_%:F$=$t_%:G$=FNconvis_(FNconvsi_(BankF_$(7)),""):FORZ%=A_%TOAA_%STEPAAA_%:A%=Z%*bitif_%:B%=0
4235$t_%=BITe_$(A%+2):CALLm1_%:IFINSTR($t_%,A$)THENB%+=1
4240B%=FNaccsta_(A%,B%)
4245$t_%=BITe_$(A%+8):CALLm1_%:IFINSTR($t_%,F$)THENB%+=1
4250IFBITe_$(A%+5)=G$ORG$=""THENB%+=1
4255IFB%=4THENC%=Z%:Z%=AA_%
4260NEXT:IFB%<4THENSYS&406C1:=FNupdatebankl_
4265Z%=bitp_%+(E%-1)/bitif_%:D%=FNwindow("BankL"):IFZ%<C%THENPROCBITdown_(Z%-C%)
4270IFZ%>C%THENPROCBITup_(Z%-C%)
4275IFbitp_%=0THENE%=(E%-1)MODbitif_%+C%*bitif_%+1
4280IFbitp_%=maxB_%*bitip_%-bitip_%THENE%=(E%-1)MODbitif_%+(C%-(maxB_%*bitip_%-bitip_%))*bitif_%+1
4285PROCsetC1_(bankl%,E%):SYS&406C1:=TRUE
4290DEFFNaccsta_(a_%,B%):LOCAL A%,H%,B$,C$,D$,E$,B_$,C_$,D_$,E_$:H%=t_%
4295$t_%=BankF_$(2):CALLm1_%:B$=$t_%:$t_%=BankF_$(3):CALLm1_%:C$=$t_%:$t_%=BankF_$(4):CALLm1_%:D$=$t_%:$t_%=BankF_$(5):CALLm1_%:E$=$t_%
4300B_$=BITe_$(a_%+3):C_$=BITe_$(a_%+4):D_$=BITe_$(a_%+6):E_$=BITe_$(a_%+7)
4305IFB_$=B$ANDC_$=C$ORD_$=D$ANDE_$=E$ORB$=""ANDC$=""ANDD$=""ANDE$=""ORB_$=B$ANDC$=""ANDD$=""ANDE$=""ORC_$=C$ANDB$=""ANDD$=""ANDE$=""ORD_$=D$ANDB$=""ANDC$=""ANDE$=""ORE_$=E$ANDB$=""ANDC$=""ANDD$=""THENA%=1
4310IFC_$=C$ANDE_$=E$ANDB$=""ANDD$=""ORB_$=B$ANDD_$=D$ANDC$=""ANDE$=""THENA%=1
4315IFA%=1THEN=B%+1 ELSE=B%
4320DEFFNBankba_:LOCAL Z%:Z%=bitp_%+(bankp_%-1)/bitif_%:IFZ%=0ORbankl%=0THEN=FALSE
4325=FNBanksFi_(Z%-1,0,-1)
4330DEFFNBankfo_:Z%=bitp_%+(bankp_%-1)/bitif_%:IFZ%=maxB_%*bitip_%-1ORbankl%=0THEN=FALSE
4335=FNBanksFi_(Z%+1,maxB_%*bitip_%-1,1)
4340
4425DEFPROCSFirst_:IF$!SCust_%=""THENENDPROC
4430LOCAL A%,H%,Z%,A$:H%=t_%
4435SYS&406C0
4440IFSITn2_%>0THEN
4445Z%=1
4450ELSE
4455$t_%=$!SCust_%:CALLm1_%:A$=$t_%
4460FORA%=1TOCmaxsupp_%:IFINSTR(Csupp_$(A%),A$)THEN$!SCust_%=CSuppliers_$(A%):Z%=A%:A%=Cmaxsupp_%
4465NEXT
4470ENDIF
4475IFZ%=0THEN$!SCust_%=""
4480SYS&406C1
4485PROCrI(W%,"SCust"):PROCsetC_(11):ENDPROC
4490DEFFNgetcup_(A_$):LOCAL A%,H%,Z%:H%=t_%:$t_%=A_$:CALLm1_%:A_$=$t_%:oc_$=""
4495FORA%=1TOCmaxsupp_%:IFINSTR(Csupp_$(A%),A_$)THENZ%=CSuNumber_%(A%):oc_$=CSuppliers_$(A%):A%=Cmaxsupp_%
4500NEXT:IFZ%>0THEN=Z% ELSE=0
4520DEFFNgetcun_(A_%):LOCAL A%,A_$:FORA%=1TOCmaxsupp_%:IFA_%=CSuNumber_%(A%):A_$=CSuppliers_$(A%):A%=Cmaxsupp_%
4525NEXT:=A_$
4545DEFFNCSuFirst_
4550LOCAL A%,H%,Z%,A$:H%=t_%
4555SYS&406C0
4560IFCFindSu%>0THEN$t_%=$!CSSupplier_%:CALLm1_%:A$=$t_% ELSEA$=""
4565IFA$=""THEN
4570FORA%=1TOCmaxsupp_%
4575IFCsupp_$(A%)+CSuPos_$(A%)+CSuContac_$(A%)+CSuTel_$(A%)+CSuFa_$(A%)=""THENCS_%=A%:A%=Cmaxsupp_%:CSuwind%=0:CSuW%=0:Z%=FNwindow("CustomW"):Z%=FNCupdatesupplier_:IFCFindSu%>0THENZ%=FNwindow("CFindSu")
4580NEXT
4585ELSE
4590FORA%=1TOCmaxsupp_%
4595H%=t_%:$t_%=Csupp_$(A%)+CSuAd1_$(A%)+CSuAd2_$(A%)+CSuAd3_$(A%)+CSuAd4_$(A%)+CSuPos_$(A%):CALLm1_%:H%=u_%:$u_%=CSuContac_$(A%)+CSuTel_$(A%)+CSuFa_$(A%)+CSuCom1_$(A%)+CSuCom2_$(A%)+CSuSuppRe_$(A%)+CSuYourRe_$(A%)+CSuOrde_$(A%):CALLm1_%
4600IFINSTR($t_%,A$)ORINSTR($u_%,A$)THENCS_%=A%:A%=Cmaxsupp_%:CSuwind%=0:CSuW%=0:Z%=FNwindow("CustomW"):Z%=FNCupdatesupplier_:Z%=FNwindow("CFindSu")
4605NEXT
4610ENDIF
4615SYS&406C1
4620occred_%=0:=TRUE
4625
4630DEFFNITSuFirst_
4635LOCAL A%,H%,Z%,A$:H%=t_%
4640IF$!ITsupplier_%=""THEN=FALSE
4645SYS&406C0
4650FORA%=1TOCmaxsupp_%:IFITsupnumN_%=CSuNumber_%(A%)AND$!ITsupplier_%=CSuppliers_$(A%)THENZ%=A%:A%=Cmaxsupp_%
4655NEXT
4660IFZ%>0THENSYS&406C1:=TRUE
4665Z%=0:$t_%=$!ITsupplier_%:CALLm1_%:A$=$t_%
4670FORA%=1TOCmaxsupp_%
4675IFINSTR(Csupp_$(A%),A$)THEN$!ITsupplier_%=CSuppliers_$(A%):ITsupnumN_%=CSuNumber_%(A%):Z%=A%:A%=Cmaxsupp_%
4680NEXT
4685SYS&406C1
4690IFZ%>0THEN=TRUE
4695=FALSE
4700
4705DEFFNPITSuFirst_(A_$,a_%)
4710IFA_$=""THEN
4715IFa_%=1:SITn_%(sitp_%+!i%/sitif_%+1)=0
4720IFa_%=3:PITn_%(pitp_%+!i%/sitif_%+1)=0
4725ENDIF
4730IFA_$=""THEN=""
4735IFa_%=1:IFSITn_%(sitp_%+!i%/sitif_%+1)>0:IFFNgetcun_(SITn_%(sitp_%+!i%/sitif_%+1))=A_$ THEN=A_$ ELSEIFa_%=1:SITn_%(sitp_%+!i%/sitif_%+1)=0
4740IFa_%=3:PITn_%(pitp_%+!i%/sitif_%+1)=0
4745LOCAL A%,B%,H%,Z%,A$,B_%:H%=t_%:IFa_%=1ORa_%=4THENB%=Cmaxsupp_% ELSEB%=maxsupp_%
4750SYS&406C0
4755IFASC(A_$)=ASC("#")THEN
4760Z%=FNsf_(A_$,a_%)
4765ELSE
4770$t_%=A_$:CALLm1_%:A$=$t_%:FORA%=1TOB%
4775IFa_%=1ORa_%=4:IFINSTR(Csupp_$(A%),A$)THENZ%=A%:A%=B%
4780IFa_%=2ORa_%=3:A%=B%
4785NEXT
4790ENDIF
4795SYS&406C1:IFa_%=1:SITn_%(sitp_%+!i%/sitif_%+1)=0:IFZ%>0THENSITn_%(sitp_%+!i%/sitif_%+1)=CSuNumber_%(Z%):=CSuppliers_$(Z%)
4805IFa_%=4:IFZ%>0THEN=CSuppliers_$(Z%)
4810IFa_%=3:PITn_%(pitp_%+!i%/sitif_%+1)=0
4815IFa_%=0THEN=""
4820=A_$
4825DEFFNsf_(A_$,a_%):LOCAL Z%:IFASC(A_$)=ASC("#")THENZ%=VAL(MID$(A_$,2,255))
4830IFa_%=3:IFZ%>0:IFZ%<=maxsupp_%THEN=Z%
4835IFa_%=1:IFZ%>0:IFZ%<=Cmaxsupp_%THEN=Z%
4840=0
4930DEFFNCSuFor_
4935LOCAL A%,H%,Z%,A$,B%:H%=t_%
4940IFCS_%=Cmaxsupp_%THEN=FALSE
4945SYS&406C0
4950$t_%=$!CSSupplier_%:CALLm1_%:A$=$t_%:B%=CS_%+1
4955IFA$=""THEN
4960FORA%=B%TOCmaxsupp_%
4965IFCsupp_$(A%)+CSuPos_$(A%)+CSuContac_$(A%)+CSuTel_$(A%)+CSuFa_$(A%)=""THENCS_%=A%:A%=Cmaxsupp_%:CSuwind%=0:CSuW%=0:Z%=FNwindow("CustomW"):Z%=FNCupdatesupplier_:Z%=FNwindow("CFindSu")
4970NEXT
4975ELSE
4980FORA%=B%TOCmaxsupp_%
4985H%=t_%:$t_%=Csupp_$(A%)+CSuAd1_$(A%)+CSuAd2_$(A%)+CSuAd3_$(A%)+CSuAd4_$(A%)+CSuPos_$(A%):CALLm1_%:H%=u_%:$u_%=CSuContac_$(A%)+CSuTel_$(A%)+CSuFa_$(A%)+CSuCom1_$(A%)+CSuCom2_$(A%)+CSuSuppRe_$(A%)+CSuYourRe_$(A%)+CSuOrde_$(A%):CALLm1_%
4990IFINSTR($t_%,A$)ORINSTR($u_%,A$)THENCS_%=A%:A%=Cmaxsupp_%:CSuwind%=0:CSuW%=0:Z%=FNwindow("CustomW"):Z%=FNCupdatesupplier_:Z%=FNwindow("CFindSu")
4995NEXT
5000ENDIF
5005SYS&406C1
5010occred_%=0:=TRUE
5015
5105DEFFNCSuBack_
5110LOCAL A%,B%,H%,Z%,A$:H%=t_%
5115IFCS_%=1THEN=FALSE
5120SYS&406C0
5125$t_%=$!CSSupplier_%:CALLm1_%:A$=$t_%:B%=CS_%-1
5130IFA$=""THEN
5135FORA%=B%TO1 STEP-1
5140IFCsupp_$(A%)+CSuPos_$(A%)+CSuContac_$(A%)+CSuTel_$(A%)+CSuFa_$(A%)=""THENCS_%=A%:A%=1:CSuwind%=0:CSuW%=0:Z%=FNwindow("CustomW"):Z%=FNCupdatesupplier_:Z%=FNwindow("CFindSu")
5145NEXT
5150ELSE
5155FORA%=B%TO1 STEP-1
5160H%=t_%:$t_%=Csupp_$(A%)+CSuAd1_$(A%)+CSuAd2_$(A%)+CSuAd3_$(A%)+CSuAd4_$(A%)+CSuPos_$(A%):CALLm1_%:H%=u_%:$u_%=CSuContac_$(A%)+CSuTel_$(A%)+CSuFa_$(A%)+CSuCom1_$(A%)+CSuCom2_$(A%)+CSuSuppRe_$(A%)+CSuYourRe_$(A%)+CSuOrde_$(A%):CALLm1_%
5165IFINSTR($t_%,A$)ORINSTR($u_%,A$)THENCS_%=A%:A%=1:CSuwind%=0:CSuW%=0:Z%=FNwindow("CustomW"):Z%=FNCupdatesupplier_:Z%=FNwindow("CFindSu")
5170NEXT
5175ENDIF
5180SYS&406C1
5185occred_%=0:=TRUE
5190
5325DEFFNInsert_
5330LOCAL Z%,V_%
5340IF$wn%="Saled"THENZ%=FNfirstfreesal_(0)-4:PROCSITdown_(sitp_%-Z%):PROCsetSITdat_(0):=TRUE
5345IF$wn%="StandW"THENZ%=FNfirstfreetal_(0)-4:PROCTITdown_(titp_%-Z%):PROCsetTITdat_(0):=TRUE
5350IF$wn%="Paled"THENZ%=FNfirstfreepaym_(0)-4:PROCPITdown_(pitp_%-Z%):PROCsetPITdat_(0):=TRUE
5355IF$wn%="BankL"THENZ%=FNfirstfreebank_(0)-4:PROCBITdown_(bitp_%-Z%):PROCsetBITdat_(0):=TRUE
5385IF$wn%="CustomW"THEN
5390IFCFindSu%>0THEN$!CSSupplier_%=""
5395Z%=FNCSuFirst_:V_%=TRUE
5400ENDIF
5405IF$wn%="InvW"THEN=FNNewSale_
5410=V_%
5415
5420DEFFNNewSale_:LOCAL Z%:IF$wn%="InvW"THEN$!ITsupplier_%="":PROCrI(invW%,"ITsupplier"):PROCsetC_(49):=TRUE
5430=TRUE
5455DEFFNUser_:=FNwindow("User")
5470DEFFNCustomW_:LOCAL V$:V$=pass4_$:IFCSuwind%=0:IFpass4_$<>""THENV$=FNinput(passm1_$,"","OK",5,"ar_quest",1)
5475IFV$=pass4_$THEN=FNwindow("CustomW") ELSE=FALSE
5480DEFFNCalc_:=FNwindow("Calc")
5490DEFFNInvoiceW_:=FNwindow("InvoiceW")
5500DEFFNprct_:PROCwl_(28):=FALSE
5530DEFFNControlW_:=FNwindow("ControlW")
5540DEFFNPrefer_:=FNwindow("Prefer")
5545DEFFNSsave_:=FNwindow("Ssave")
5550DEFFNVatCodeW_:=FNwindow("VatCodeW")
5555DEFFNPassW_:=FNwindow("PassW")
5565DEFFNCSuSave_:=FNwindow("CSuSave")
5570DEFFNInvNumI_:Onum%=1:=FNInvNum_
5575DEFFNInvNumO_:Onum%=3:=FNInvNum_
5580DEFFNInvMenu_:=FNwindow("InvMenu")
5585DEFFNInvNum_:=FNwindow("InvNum")
5590DEFFNStatMenu_:=FNwindow("StatMenu")
5595DEFFNcredit_:IFW%!12=CSuwind%:=FNCcredit_ ELSE=FALSE
5605DEFFNCcredit_:=FNwindow("Ccredit")
5610DEFFNStatC_:=FNwindow("StatC")
5615DEFFNScontrol_:=FNwindow("Scontrol")
5620DEFFNInvW_:LOCAL Z%:IFCSuwind%>0:Z%=FNCupdatesupplier_
5625=FNwindow("InvW")
5635DEFFNHeads_:=FNwindow("Heading")
5640DEFFNSalesH_:=FNwindow("Headings")
5645DEFFNPurchH_:=FNwindow("PHeadings")
5650DEFFNBanks_:=FNwindow("Banks")
5655DEFFNSaled_:LOCAL V$:V$=pass5_$:IFsaled%=0:IFpass5_$<>""THENV$=FNinput(passm1_$,"","OK",5,"ar_quest",1)
5660IFV$=pass5_$THEN=FNwindow("Saled") ELSE=FALSE
5665DEFFNPaled_:LOCAL V$:V$=pass6_$:IFpaled%=0:IFpass6_$<>""THENV$=FNinput(passm1_$,"","OK",5,"ar_quest",1)
5670IFV$=pass6_$THEN=FNwindow("Paled") ELSE=FALSE
5675DEFFNBankL_:LOCAL V$:V$=pass7_$:IFbankl%=0:IFpass7_$<>""THENV$=FNinput(passm1_$,"","OK",5,"ar_quest",1)
5680IFV$=pass7_$THEN=FNwindow("BankL") ELSE=FALSE
5685DEFFNSaledFW_:=FNwindow("SaledFW")
5690DEFFNSaledRW_:=FNwindow("SaledRW")
5695DEFFNPaledFW_:=FNwindow("PaledFW")
5700DEFFNPaledRW_:=FNwindow("PaledRW")
5705DEFFNBankFW_:=FNwindow("BankFW")
5710DEFFNBankRW_:=FNwindow("BankRW")
5715DEFFNVatP_:=FNwindow("VatP")
5720DEFFNVatPCont_:=FNwindow("VatPCont")
5725DEFFNBankP_:=FNwindow("BankP")
5730DEFFNStandW_:=FNwindow("StandW")
5735DEFFNBalW_:PROCwl_(28):=TRUE
5750DEFFNm_
5755LOCAL Z%
5775IF$wn%="CFindSu"THENcurlink_%=6
5780IF$wn%="InvW"THENcurlink_%=7
5785IF$wn%="Saled"THENcurlink_%=8
5790IF$wn%="Paled"THENcurlink_%=9
5795IF$wn%="SaledFW"THENcurlink_%=10
5800IF$wn%="PaledFW"THENcurlink_%=11
5805IF$wn%="SaledRW"THENcurlink_%=12
5810IF$wn%="PaledRW"THENcurlink_%=13
5815IF$wn%="Scontrol"THENcurlink_%=14
5820IF$wn%="Headings"THENcurlink_%=15
5825IF$wn%="PHeadings"THENcurlink_%=16
5835IF$mn%="EditIt"THEN=FALSE
5845IF$mn%="CSuppList"THENSYS&406C0:IFCmaxsupp_%>=maxmenu_%THENSYS&406C1:=FALSE
5850IF$mn%="HeadListS"THENSYS&406C0:Z%=FNupdateheadsM_(0):PROCuplheads_:=TRUE
5855IF$mn%="HeadListP"THENSYS&406C0:Z%=FNupdateheadpM_(0):PROCuplheadp_:=TRUE
5860IF$mn%="InvL"THENSYS&406C0:PROCupdateinvl_:PROCuplinv_:=TRUE
5865IF$mn%="BankList"THENZ%=FNupdatebank_:PROCuplbank_:=TRUE
5870IF$mn%="FontList"THENSYS&406C0
5900IF$wn%="CSupLabW"THENfonlink_%=6
5905IF$wn%="CSupListW"THENfonlink_%=7
5910IF$mn%="OrderM"THENfonlink_%=8
5915IF$mn%="OrderMI"THENfonlink_%=9
5920IF$wn%="SaledRW"THENfonlink_%=10
5925IF$wn%="PaledRW"THENfonlink_%=11
5930IF$wn%="BankRW"THENfonlink_%=12
5935IF$wn%="BankP"THENfonlink_%=13
5940IF$mn%="OrderMIS"THENfonlink_%=14
5945IF$wn%="VatPCont"THENfonlink_%=15
5960IF$mn%="OrderSMI"THEN
5965fonlink_%=!i%+IAfon_%:PROCpMT($mn%,IOrderme_$(!i%))
5970inv11_%(fonlink_%-IAfon_%)=-inv11_%(fonlink_%-IAfon_%):inv22_%(fonlink_%-IAfon_%)=-inv22_%(fonlink_%-IAfon_%):inv33_%(fonlink_%-IAfon_%)=-inv33_%(fonlink_%-IAfon_%):Z%=FNinv1_:Z%=FNinv2_:Z%=FNinv3_
5975ENDIF
5985IF$mn%="IconBar":PROCovrM("IconBar1"):=TRUE
5990IF$mn%="IconBar":=FALSE
5995=TRUE
6000DEFFNinv1_:inv11_%(fonlink_%-IAfon_%)=-inv11_%(fonlink_%-IAfon_%):IFABS(inv11_%(fonlink_%-IAfon_%))<>1THENinv11_%(fonlink_%-IAfon_%)=1
6005IFinv11_%(fonlink_%-IAfon_%)=1THENPROCtMI("OrderSMI",2) ELSEPROCutMI("OrderSMI",2)
6010=TRUE
6015DEFFNinv2_:inv22_%(fonlink_%-IAfon_%)=-inv22_%(fonlink_%-IAfon_%):IFABS(inv22_%(fonlink_%-IAfon_%))<>1THENinv22_%(fonlink_%-IAfon_%)=1
6020IFinv22_%(fonlink_%-IAfon_%)=1THENPROCtMI("OrderSMI",3) ELSEPROCutMI("OrderSMI",3)
6025=TRUE
6030DEFFNinv3_:inv33_%(fonlink_%-IAfon_%)=-inv33_%(fonlink_%-IAfon_%):IFABS(inv33_%(fonlink_%-IAfon_%))<>1THENinv33_%(fonlink_%-IAfon_%)=1
6035IFinv33_%(fonlink_%-IAfon_%)=1THENPROCtMI("OrderSMI",4) ELSEPROCutMI("OrderSMI",4)
6040=TRUE
6045
6050DEFFNinvname_:IF$wn%<>"InvW"THEN=FALSE
6055PROCwl_(20):PROCgetITdat_(1):PROCgetITdattot_:PROCrI(W%,"invname"):=TRUE
6060
6065DEFFNsm_
6090IF$mn%="OrderVI"THEN
6095IFIOborder%=1THENPROCtMI($mn%,1) ELSEPROCutMI($mn%,1)
6100IFIOruler%=1THENPROCtMI($mn%,0) ELSEPROCutMI($mn%,0)
6105ENDIF
6135IF$mn%="OrderMPI"THENPROCtMIx($mn%,IOjust_%(fonlink_%-IAfon_%))
6145=TRUE
6150
6155DEFPROCseticon_(W_%,I_%,A_%,B_%):block_%!0=W_%:block_%!4=I_%:block_%!8=A_%:block_%!12=B_%:SYS&400CD,,block_%:ENDPROC
6160DEFPROCgeticon_(W_%,I_%):block_%!0=W_%:block_%!4=I_%:SYS&400CE,,block_%:ENDPROC
6165DEFPROCgeticon1_(W_%,I_%):iblock_%!0=W_%:iblock_%!4=I_%:SYS&400CE,,iblock_%:ENDPROC
6170DEFFNswc_:IF!i%<0ORW%!12<0:=TRUE
6175LOCAL A%,B%,C%,a_$
6180PROCgeticon1_(W%!12,!i%):IFiblock_%!24AND(1<<13):IFiblock_%!24AND(1<<14):IFiblock_%!24AND(1<<15):IFiblock_%!24AND(1<<8):a_$=FNconinm_(iblock_%!28,iblock_%!36):SYS&400D3,,block_%
6185IFa_$=""ORblock_%!20>=LEN(a_$):=TRUE
6190A%=block_%!20:A%=FNswpc_(ASC(MID$(a_$,A%+1,1)))
6195B%=block_%!20:C%=iblock_%!28:C%?B%=A%:iblock_%!8=0:iblock_%!12=0:SYS&400CD,,iblock_%:SYS&400D2,block_%!0,block_%!4,0,0,-1,B%+1
6200*FX15,1
6205=TRUE
6210
6265DEFFNIOBorder_
6270LOCALZ%,A%,B%
6275IOborder%=-IOborder%
6280IFIOborder%=1THENPROCtMI("OrderVI",1):A%=%100:B%=%100
6285IFIOborder%=-1THENPROCutMI("OrderVI",1):A%=%100:B%=0
6290FORZ%=Iori_%TOIOicons%
6295IFZ%<23ANDZ%<>4ORZ%>27ANDZ%<42ORZ%>43ANDZ%<49ORZ%>51ANDZ%<57THENPROCsetObord_(IOwind%,Z%,A%,B%)
6300NEXT
6305IFIOborder%=-1THENSYS&400D1,IOwind%,-1000000,-1000000,1000000,1000000
6310=TRUE
6365
6370DEFPROCsetObord_(W_%,I_%,A_%,B_%)
6375PROCgeticon_(W_%,I_%)
6380PROCseticon_(W_%,I_%,A%,B%)
6385ENDPROC
6430DEFFNIORuler_
6435LOCALZ%,A%,B%
6440IOruler%=-IOruler%
6445IFIOruler%=1THENPROCtMI("OrderVI",0):A%=flag22_%:B%=%0
6450IFIOruler%=-1THENPROCutMI("OrderVI",0):A%=flag22_%:B%=flag22_%
6455IFIOruler%=1ANDIOch_%=1THEN=FALSE
6460FORZ%=0TO1:PROCsetObord_(IOwind%,Z%,A%,B%):NEXT
6465=TRUE
6510
6520DEFFNIOtitle_:PROCIupOrdMP1_(2,$!IOtitle_%):=TRUE
6535DEFFNIOhead_:PROCIupOrdMP1_(3,$!IOhead_%):=TRUE
6550DEFFNIOsupplier_:PROCIupOrdMP_(4):=TRUE
6555DEFFNIOdeliver_:PROCIupOrdMP_(57):=TRUE
6575DEFFNIOname_:PROCIupOrdMP_(5):=TRUE
6590DEFFNIOadd11_:PROCIupOrdMP_(6):=TRUE
6605DEFFNIOadd22_:PROCIupOrdMP_(7):=TRUE
6620DEFFNIOadd33_:PROCIupOrdMP_(8):=TRUE
6635DEFFNIOadd44_:PROCIupOrdMP_(9):=TRUE
6650DEFFNIOadd55_:PROCIupOrdMP_(10):=TRUE
6665DEFFNIOpost_:PROCIupOrdMP_(11):=TRUE
6680DEFFNIOtel_:PROCIupOrdMP_(12):=TRUE
6695DEFFNIOfax_:PROCIupOrdMP_(13):=TRUE
6710DEFFNIOsuppref_:PROCIupOrdMP1_(14,$!IOsuppref_%):=TRUE
6725DEFFNIOyourref_:PROCIupOrdMP1_(15,$!IOyourref_%):=TRUE
6740DEFFNIOnumber_:PROCIupOrdMP1_(16,$!IOnumber_%):=TRUE
6745
6755DEFFNIOsr_:PROCIupOrdMP_(17):=TRUE
6770DEFFNIOyr_:PROCIupOrdMP_(18):=TRUE
6785DEFFNIOnr_:PROCIupOrdMP_(19):=TRUE
6800DEFFNIOdate_:PROCIupOrdMP1_(20,$!IOdate_%):=TRUE
6815DEFFNIOde_:PROCIupOrdMP_(21):=TRUE
6830DEFFNIOtext1_:PROCIupOrdMP1_(22,$!IOtext1_%):=TRUE
6845DEFFNIOdata1_:PROCIupOrdMP1_(23,$!IOdata1_%):=TRUE
6860DEFFNIOdata2_:PROCIupOrdMP1_(24,$!IOdata2_%):=TRUE
6875DEFFNIOdata3_:PROCIupOrdMP1_(25,$!IOdata3_%):=TRUE
6890DEFFNIOdata4_:PROCIupOrdMP1_(26,$!IOdata4_%):=TRUE
6905DEFFNIOdata5_:PROCIupOrdMP1_(27,$!IOdata5_%):=TRUE
6920DEFFNIOtext2_:PROCIupOrdMP1_(28,$!IOtext2_%):=TRUE
6935DEFFNIOtext3_:PROCIupOrdMP1_(29,$!IOtext3_%):=TRUE
6950DEFFNIOdata6_:PROCIupOrdMP1_(30,$!IOdata6_%):=TRUE
6960DEFFNIOdata7_:PROCIupOrdMP_(31):=TRUE
6970DEFFNIOtext4_:PROCIupOrdMP1_(32,$!IOtext4_%):=TRUE
6985DEFFNIOtext5_:PROCIupOrdMP1_(33,$!IOtext5_%):=TRUE
7000DEFFNIOtext6_:PROCIupOrdMP1_(34,$!IOtext6_%):=TRUE
7015DEFFNIOtext7_:PROCIupOrdMP1_(35,$!IOtext7_%):=TRUE
7030DEFFNIOtext8_:PROCIupOrdMP1_(36,$!IOtext8_%):=TRUE
7045DEFFNIOtext9_:PROCIupOrdMP1_(37,$!IOtext9_%):=TRUE
7060DEFFNIOtext10_:PROCIupOrdMP1_(38,$!IOtext10_%):=TRUE
7075DEFFNIOtext11_:PROCIupOrdMP1_(39,$!IOtext11_%):=TRUE
7090DEFFNIOpage_:PROCIupOrdMP1_(40,$!IOpage_%):=TRUE
7105DEFFNIOpe_:PROCIupOrdMP_(41):=TRUE
7115DEFFNIOdisc_:PROCIupOrdMP1_(42,$!IOdisc_%):=TRUE
7120DEFFNIOvat_:PROCIupOrdMP1_(43,$!IOvat_%):=TRUE
7125DEFFNIOesdt_:PROCIupOrdMP1_(44,$!IOesdt_%):=TRUE
7130DEFFNIOest_:PROCIupOrdMP1_(45,$!IOest_%):=TRUE
7135DEFFNIOvt_:PROCIupOrdMP1_(46,$!IOvt_%):=TRUE
7140DEFFNIOnt_:PROCIupOrdMP1_(47,$!IOnt_%):=TRUE
7150DEFFNIOvnt_:PROCIupOrdMP1_(48,$!IOvnt_%):=TRUE
7160DEFFNIOvr_:PROCIupOrdMP1_(49,$!IOvr_%):=TRUE
7170DEFFNIOva_:PROCIupOrdMP1_(50,$!IOva_%):=TRUE
7180DEFFNIOvdt_:PROCIupOrdMP1_(51,$!IOvdt_%):=TRUE
7185DEFFNIOdata8_:PROCIupOrdMP_(52):=TRUE
7190DEFFNIOdata9_:PROCIupOrdMP_(53):=TRUE
7195DEFFNIOdata10_:PROCIupOrdMP_(54):=TRUE
7200DEFFNIOdata11_:PROCIupOrdMP_(55):=TRUE
7210DEFFNIOdata12_:PROCIupOrdMP_(56):=TRUE
7225DEFPROCIupOrdMP_(Z%):ipos_%=R%:fonlink_%=Z%+IAfon_%:R%=0:IOrderch%(Z%)=1:Z_%=FNupdateOrder_(2):ipos_%=7:fonlink_%=Z%+IAfon_%:PROCIordermpI_:ENDPROC
7245DEFPROCIupOrdMP1_(Z%,Z$):LOCAL Z_%:wf2_%=Z%:ipos_%=R%:fonlink_%=wf2_%+IAfon_%:IFZ$<>IOrderS_$(wf2_%)ORR%=7THENIOrderch%(wf2_%)=1:IFR%=8:Z_%=FNupdateOrder_(2):PROCsetC1_(IOwind%,wf2_%)
7250ENDPROC
7265
7270DEFFNOstrlen_(ff_%,fs_$)
7275LOCAL Z%,r1%,r2%,r3%,r4%,Z$
7280LOCAL ERROR
7285ON ERROR LOCAL:RESTORE ERROR:PROCpe_(FNerr_):Otw=LEN(fs_$)*16+8:Oth=40:charx_=0:chary_=0:=%111000000000000000000011000
7290Otw=0:Oth=0:charx_=0:chary_=0
7295IFff_%=0 THENZ%=%111000000000000000000011000:Otw=LEN(fs_$)*16+8:Oth=40
7300IFff_%>0 THEN
7305SYS&4008A,ff_%
7310SYS &E0,ff_%,hblock_%,64 TO ,Z%:!Z%=13:Z$=RIGHT$($hblock_%+"000000000000000001011000",32):SYS &21,2,Z$ TO ,,Z%
7315SYS&40097,,fs_$ TO ,r1%,r2%,r3%,r4%
7320Otw=r3%-r1%
7325SYS&40084,ff_% TO ,r1%,r2%,r3%,r4%
7330charx_=(r3%-r1%)/4:Otw=Otw/os_%+2*charx_
7335Oth=r4%-r2%:chary_=ABS(r2%)
7340ENDIF
7345IFOth<48THENOth=48
7350IFOtw<48THENOtw=48
7355=Z%
7360
7365DEFFNOtitleF_(V_%,W_%)
7370LOCAL R1%,R2%,R3%,R4%,R5%,R6%,R7%,R8%,r1%,r2%,r3%,r4%,A_%,B%,Z%,mx_,my_,ml%,a_%
7375LOCAL ERROR
7380ON ERROR LOCAL:RESTORE ERROR:PROCpe_(FNerr_):=0
7390IFW_%=2THENPROCgeticon_(IOwind%,IOicon%(V_%))
7400R1%=block_%!8:R2%=block_%!12:R3%=block_%!16:R4%=block_%!20:R5%=block_%!24:R6%=block_%!28:R7%=block_%!32:R8%=block_%!36:SYS&400C4,,block_%
7410IFW_%=2THENA_%=FNOstrlen_(IOrderF1_%(V_%),IOrderS_$(V_%)):IOrderch%(V_%)=0:mx_=IOrdermx_(V_%):my_=IOrdermy_(V_%):ml%=IOjust_%(V_%):IFV_%=4ORV_%>48ANDV_%<52ORV_%=57THENOth=4.2*Oth
7440IFV_%>22ANDV_%<28ANDW_%=2ORV_%>41ANDV_%<44ANDW_%=2THEN
7445IFmy_-IOdsize_%<0 THENIOdsize_%=my_
7450Oth=IOdsize_%*rule_:Oth=Oth-Oth MOD(2*modey%)
7455ENDIF
7480B%=%11111111000000000000000001011000:R5%=(R5% AND NOT B%) EOR A_%
7485r1%=R1%:r2%=R2%:r3%=R3%:r4%=R4%
7495IFW_%=2:IFml%=0:IFmx_+Otw/rule_+charx_/rule_>IOpagx_%THENml%=2
7510IFW_%=2:IFml%=1:IFmx_+Otw/rule_/2>IOpagx_%THENml%=2
7525IFW_%=2:IFml%=0:IFmx_+Otw/rule_+charx_/rule_>IOpagx_%-1THENmx_=IOpagx_%-Otw/rule_-charx_/rule_:IOrdermx_(V_%)=mx_-1
7540IFW_%=2:IFml%=1:IFmx_+Otw/rule_/2>IOpagx_%-1THENmx_=IOpagx_%-Otw/rule_/2:IOrdermx_(V_%)=mx_-1
7555IFW_%=2:IFml%=2:IFmx_-charx_/rule_>IOpagx_%-1THENmx_=IOpagx_%-charx_/rule_:IOrdermx_(V_%)=mx_-1
7570IFW_%=2:IFml%=2ANDmx_-Otw/rule_+charx_/rule_<1ORml%=1ANDmx_-Otw/rule_/2<1ORml%=0ANDmx_<1THENml%=0:mx_=1:IOrdermx_(V_%)=mx_
7580IFml%=0THENR1%=mx_*rule_-charx_
7585IFml%=1THENR1%=mx_*rule_-Otw/2
7590IFml%=2THENR1%=mx_*rule_-Otw+charx_
7600IFW_%=2:IFmy_+chary_/rule_>IOpagy_%THENmy_=IOpagy_%-chary_/rule_:IOrdermy_(V_%)=my_
7615IFW_%=2:IFmy_+chary_/rule_-Oth/rule_<0THENmy_=(Oth-chary_)/rule_:IOrdermy_(V_%)=my_
7625R2%=-my_*rule_-chary_:R4%=R2%+Oth
7630R3%=R1%+Otw
7635block_%!4=R1%:block_%!8=R2%:block_%!12=R3%:block_%!16=R4%:block_%!20=R5%:block_%!24=R6%:block_%!28=R7%:block_%!32=R8%
7645IFW_%=2THENSYS&400C2,,block_% TO IOicon%(V_%)
7655IFr1%<R1%THENR1%=r1%
7660IFr3%>R3%THENR3%=r3%
7665IFr2%<R2%THENR2%=r2%
7670IFr4%>R4%THENR4%=r4%
7675SYS&400D1,block_%!0,R1%-12,R2%-12,R3%+12,R4%+12
7700IFW_%=2THEN
7705IFV_%>22ANDV_%<28ORV_%>41ANDV_%<44THEN
7710FORa_%=23TO27:IFIOrdermy_(a_%)<>my_:IOrdermy_(a_%)=my_:IOrderch%(a_%)=1
7715NEXT
7720FORa_%=42TO43:IFIOrdermy_(a_%)<>my_:IOrdermy_(a_%)=my_:IOrderch%(a_%)=1
7725NEXT
7730ENDIF
7735IFV_%>48ANDV_%<52THEN
7740FORa_%=49TO51:IFIOrdermy_(a_%)<>my_:IOrdermy_(a_%)=my_:IOrderch%(a_%)=1
7745NEXT
7750ENDIF
7755ENDIF
7810=ml%
7815
7820DEFFNCal11_:=FNupdateCalc_
7825DEFFNCal22_:=FNupdateCalc_
7830DEFFNCal33_:=FNupdateCalc_
7835DEFFNCal44_:Z%=FNupdateCalc_:PROCsetC_(1):=FALSE
7840
7865DEFFNUname_:=FNUup_(2)
7870DEFFNUad11_:=FNUup_(3)
7875DEFFNUad22_:=FNUup_(4)
7880DEFFNUad33_:=FNUup_(5)
7885DEFFNUad44_:=FNUup_(6)
7890DEFFNUad55_:=FNUup_(7)
7895DEFFNUpost_:=FNUup_(8)
7900DEFFNUtel_:=FNUup_(9)
7905DEFFNUfax_:=FNUup_(10)
7910DEFFNUvat_:=FNUup_(11)
7915DEFFNTname_:=FNUup_(1)
7920
8010DEFFNr1S_:SaledR_%(1)=-SaledR_%(1):=FALSE
8015DEFFNr2S_:SaledR_%(2)=-SaledR_%(2):=FALSE
8020DEFFNr3S_:SaledR_%(3)=-SaledR_%(3):=FALSE
8025DEFFNr4S_:SaledR_%(4)=-SaledR_%(4):=FALSE
8030DEFFNr5S_:SaledR_%(5)=-SaledR_%(5):=FALSE
8035DEFFNr6S_:SaledR_%(6)=-SaledR_%(6):=FALSE
8040DEFFNr7S_:SaledR_%(7)=-SaledR_%(7):=FALSE
8045DEFFNr8S_:SaledR_%(8)=-SaledR_%(8):=FALSE
8050DEFFNr9S_:SaledR_%(9)=-SaledR_%(9):=FALSE
8055DEFFNraS_:SaledR_%(10)=-SaledR_%(10):=FALSE
8060DEFFNrbS_:SaledR_%(11)=-SaledR_%(11):=FALSE
8065DEFFNSaa4_:LOCAL Z%:SaledR_%(12)=1:SaledR_%(13)=-1:SaledR_%(14)=-1:Z%=FNSapapersize_:PROCsetC_(50):=FALSE
8070DEFFNSaus_:LOCAL Z%:SaledR_%(12)=-1:SaledR_%(13)=1:SaledR_%(14)=-1:Z%=FNSapapersize_:PROCsetC_(50):=FALSE
8075DEFFNSacust_:LOCAL Z%:SaledR_%(12)=-1:SaledR_%(13)=-1:SaledR_%(14)=1:Z%=FNSapapersize_:PROCsetC_(50):=FALSE
8080DEFFNSatab_:LOCAL Z%:SaledR_%(16)=1:SaledR_%(17)=-1:=FNSapapersize_
8085DEFFNSaspac_:LOCAL Z%:SaledR_%(16)=-1:SaledR_%(17)=1:=FNSapapersize_
8090DEFFNrcS_:SaledR_%(18)=-SaledR_%(18):=FALSE
8095
8100DEFFNr1P_:PaledR_%(1)=-PaledR_%(1):=FALSE
8105DEFFNr2P_:PaledR_%(2)=-PaledR_%(2):=FALSE
8110DEFFNr3P_:PaledR_%(3)=-PaledR_%(3):=FALSE
8115DEFFNr4P_:PaledR_%(4)=-PaledR_%(4):=FALSE
8120DEFFNr5P_:PaledR_%(5)=-PaledR_%(5):=FALSE
8125DEFFNr6P_:PaledR_%(6)=-PaledR_%(6):=FALSE
8130DEFFNr7P_:PaledR_%(7)=-PaledR_%(7):=FALSE
8135DEFFNr8P_:PaledR_%(8)=-PaledR_%(8):=FALSE
8140DEFFNr9P_:PaledR_%(9)=-PaledR_%(9):=FALSE
8145DEFFNraP_:PaledR_%(10)=-PaledR_%(10):=FALSE
8150DEFFNrbP_:PaledR_%(11)=-PaledR_%(11):=FALSE
8155DEFFNPaa4_:LOCAL Z%:PaledR_%(12)=1:PaledR_%(13)=-1:PaledR_%(14)=-1:Z%=FNPapapersize_:PROCsetC_(50):=FALSE
8160DEFFNPaus_:LOCAL Z%:PaledR_%(12)=-1:PaledR_%(13)=1:PaledR_%(14)=-1:Z%=FNPapapersize_:PROCsetC_(50):=FALSE
8165DEFFNPacust_:LOCAL Z%:PaledR_%(12)=-1:PaledR_%(13)=-1:PaledR_%(14)=1:Z%=FNPapapersize_:PROCsetC_(50):=FALSE
8170DEFFNPatab_:LOCAL Z%:PaledR_%(16)=1:PaledR_%(17)=-1:=FNPapapersize_
8175DEFFNPaspac_:LOCAL Z%:PaledR_%(16)=-1:PaledR_%(17)=1:=FNPapapersize_
8180DEFFNrcP_:PaledR_%(18)=-PaledR_%(18):=FALSE
8185
8190DEFFNr1B_:BaledR_%(1)=-BaledR_%(1):=FALSE
8195DEFFNr2B_:BaledR_%(2)=-BaledR_%(2):=FALSE
8200DEFFNr3B_:BaledR_%(3)=-BaledR_%(3):=FALSE
8205DEFFNr4B_:BaledR_%(4)=-BaledR_%(4):=FALSE
8210DEFFNr5B_:BaledR_%(5)=-BaledR_%(5):=FALSE
8215DEFFNr6B_:BaledR_%(6)=-BaledR_%(6):=FALSE
8220DEFFNBaa4_:LOCAL Z%:BaledR_%(6)=1:BaledR_%(7)=-1:BaledR_%(8)=-1:Z%=FNBapapersize_:PROCsetC_(35):=FALSE
8225DEFFNBaus_:LOCAL Z%:BaledR_%(6)=-1:BaledR_%(7)=1:BaledR_%(8)=-1:Z%=FNBapapersize_:PROCsetC_(35):=FALSE
8230DEFFNBacust_:LOCAL Z%:BaledR_%(6)=-1:BaledR_%(7)=-1:BaledR_%(8)=1:Z%=FNBapapersize_:PROCsetC_(35):=FALSE
8235DEFFNBatab_:LOCAL Z%:BaledR_%(10)=1:BaledR_%(11)=-1:=FNBapapersize_
8240DEFFNBaspac_:LOCAL Z%:BaledR_%(10)=-1:BaledR_%(11)=1:=FNBapapersize_
8245DEFFNXatab_:LOCAL Z%:Xatab_%=1:Xaspac_%=-1:=FNXpapersize_
8250DEFFNXaspac_:LOCAL Z%:Xaspac_%=1:Xatab_%=-1:=FNXpapersize_
8255DEFFNXa4_:LOCAL Z%:Xa4_%=1:Xus_%=-1:Xcust_%=-1:Z%=FNXpapersize_:PROCsetC_(3):=FALSE
8260DEFFNXus_:LOCAL Z%:Xa4_%=-1:Xus_%=1:Xcust_%=-1:Z%=FNXpapersize_:PROCsetC_(3):=FALSE
8265DEFFNXcust_:LOCAL Z%:Xa4_%=-1:Xus_%=-1:Xcust_%=1:Z%=FNXpapersize_:PROCsetC_(3):=FALSE
8270
8275DEFFNvc3_
8280IFpass8_$<>""THENPROCwl_(26):=FNinitvatpc_
8285VatC_%(1)=1:VatC_%(2)=-1:PROCsI(W%,"vc3"):PROCusI(W%,"vc4"):=FALSE
8290DEFFNvc4_
8295IFpass8_$<>""THENPROCwl_(26):=FNinitvatpc_
8300VatC_%(2)=1:VatC_%(1)=-1:PROCusI(W%,"vc3"):PROCsI(W%,"vc4"):=FALSE
8305DEFFNvc5_
8310LOCAL A%,B%,Z%
8315Z%=VAL($!vc7_%)-1:IFZ%=0THEN=FALSE
8320$!vc7_%=STR$(Z%):VatC_$(3)=$!vc7_%:PROCrI(W%,"vc7")
8325A%=VAL(MID$(today_$,4,2)):B%=VAL(MID$(today_$,7,4))
8330IF$!vc8_%<>""THENA%=VAL(MID$($!vc8_%,4,2)):B%=VAL(MID$($!vc8_%,7,4)) ELSE$!vc8_%="01."+$!vc2_%+"."+MID$(today_$,7,4)
8335IF$!vc9_%=""ORVAL($!vc9_%)>27THEN$!vc9_%="31"
8340A%-=VAL($!vc1_%)
8345IFA%<1THENB%-=1:A%+=12
8350$!vc8_%=FNchdate_(LEFT$($!vc8_%,2)+"."+STR$(A%)+"."+STR$(B%))
8355A%+=VAL($!vc1_%)-1:IFA%>12THENB%+=1:A%-=12
8360$!vc9_%=FNchdate_(LEFT$($!vc9_%,2)+"."+STR$(A%)+"."+STR$(B%))
8365VatC_$(4)=$!vc8_%:VatC_$(5)=$!vc9_%
8370PROCrI(W%,"vc8"):PROCrI(W%,"vc9")
8375=TRUE
8380DEFFNvc6_
8385LOCAL A%,B%,Z%
8390Z%=VAL($!vc7_%)+1:IFZ%>12THEN=FALSE
8395$!vc7_%=STR$(Z%):VatC_$(3)=$!vc7_%:PROCrI(W%,"vc7")
8400A%=VAL(MID$(today_$,4,2)):B%=VAL(MID$(today_$,7,4))
8405IF$!vc8_%<>""THENA%=VAL(MID$($!vc8_%,4,2)):B%=VAL(MID$($!vc8_%,7,4)) ELSE$!vc8_%="01."+$!vc2_%+"."+MID$(today_$,7,4)
8410IF$!vc9_%=""ORVAL($!vc9_%)>27THEN$!vc9_%="31"
8415A%+=VAL($!vc1_%):IFA%>12THENB%+=1:A%-=12
8420$!vc8_%=FNchdate_(LEFT$($!vc8_%,2)+"."+STR$(A%)+"."+STR$(B%))
8425A%+=VAL($!vc1_%)-1:IFA%>12THENB%+=1:A%-=12
8430$!vc9_%=FNchdate_(LEFT$($!vc9_%,2)+"."+STR$(A%)+"."+STR$(B%))
8435VatC_$(4)=$!vc8_%:VatC_$(5)=$!vc9_%
8440PROCrI(W%,"vc8"):PROCrI(W%,"vc9")
8445=TRUE
8450DEFFNvcdate_
8455LOCAL A%,B%
8460A%=VAL($!vc2_%):B%=VAL(MID$(today_$,7,4))
8465IFA%>VAL(MID$(today_$,4,2))THENB%-=1
8470$!vc8_%="01."+$!vc2_%+"."+STR$(B%)
8475$!vc9_%="31":$!vc7_%="1"
8480$!vc8_%=FNchdate_(LEFT$($!vc8_%,2)+"."+STR$(A%)+"."+STR$(B%))
8485A%+=VAL($!vc1_%)-1:IFA%>12THENB%+=1:A%-=12
8490$!vc9_%=FNchdate_(LEFT$($!vc9_%,2)+"."+STR$(A%)+"."+STR$(B%))
8495VatC_$(4)=$!vc8_%:VatC_$(5)=$!vc9_%:VatC_$(3)=$!vc7_%
8500PROCrI(W%,"vc1"):PROCrI(W%,"vc2"):PROCrI(W%,"vc7"):PROCrI(W%,"vc8"):PROCrI(W%,"vc9")
8505=TRUE
8510
8515DEFFNvc1_
8520IFpass8_$<>""THENPROCwl_(26):=FNupdatevatpc_
8525IFVAL($!vc1_%)>12THEN$!vc1_%="12":PROCrI(W%,"vc1")
8530VatC_$(1)=$!vc1_%
8535=FNvcdate_
8540DEFFNvc2_
8545IFpass8_$<>""THENPROCwl_(26):=FNupdatevatpc_
8550IFVAL($!vc2_%)>12THEN$!vc2_%="12":PROCrI(W%,"vc2")
8555VatC_$(2)=$!vc2_%
8560=FNvcdate_
8565DEFFNvc8_
8570IFpass8_$<>""THENPROCwl_(26):=FNupdatevatpc_
8575IF$!vc8_%<>""THEN$!vc8_%=FNchdate_($!vc8_%)
8580VatC_$(4)=$!vc8_%
8585=FNupdatevatpc_
8590DEFFNvc9_
8595IFpass8_$<>""THENPROCwl_(26):=FNupdatevatpc_
8600IF$!vc9_%<>""THEN$!vc9_%=FNchdate_($!vc9_%)
8605VatC_$(5)=$!vc9_%
8610=FNupdatevatpc_
8615
8620DEFFNVaa4_:LOCAL Z%:VatC_%(3)=1:VatC_%(4)=-1:VatC_%(5)=-1:Z%=FNVapapersize_:PROCsetC_(18):=FALSE
8625DEFFNVaus_:LOCAL Z%:VatC_%(3)=-1:VatC_%(4)=1:VatC_%(5)=-1:Z%=FNVapapersize_:PROCsetC_(18):=FALSE
8630DEFFNVacust_:LOCAL Z%:VatC_%(3)=-1:VatC_%(4)=-1:VatC_%(5)=1:Z%=FNVapapersize_:PROCsetC_(18):=FALSE
8635DEFFNVatab_:LOCAL Z%:VatC_%(6)=1:VatC_%(7)=-1:=FNVapapersize_
8640DEFFNVaspac_:LOCAL Z%:VatC_%(6)=-1:VatC_%(7)=1:=FNVapapersize_
8760DEFFNCSLRecNum_:CSLRecNu_%=-CSLRecNu_%:=FALSE
8765DEFFNCLsupplier_:CSLsupplie_%=-CSLsupplie_%:=FALSE
8770DEFFNCSLad11_:CSLad1_%=-CSLad1_%:=FALSE
8775DEFFNCSLad22_:CSLad2_%=-CSLad2_%:=FALSE
8780DEFFNCSLad33_:CSLad3_%=-CSLad3_%:=FALSE
8785DEFFNCSLad44_:CSLad4_%=-CSLad4_%:=FALSE
8790DEFFNCSLpost_:CSLpos_%=-CSLpos_%:=FALSE
8795DEFFNCSLcont_:CSLcon_%=-CSLcon_%:=FALSE
8800DEFFNCSLtele_:CSLtel_%=-CSLtel_%:=FALSE
8805DEFFNCSLfax_:CSLfa_%=-CSLfa_%:=FALSE
8810DEFFNCSLcom11_:CSLcom1_%=-CSLcom1_%:=FALSE
8815DEFFNCSLcom22_:CSLcom2_%=-CSLcom2_%:=FALSE
8820DEFFNCSLsuppref_:CSLsuppre_%=-CSLsuppre_%:=FALSE
8825DEFFNCSLyourref_:CSLyourre_%=-CSLyourre_%:=FALSE
8830DEFFNCSLordpre_:CSLordpr_%=-CSLordpr_%:=FALSE
8835DEFFNCSLdebt_:CSLdeb_%=-CSLdeb_%:=FALSE
8855DEFFNCSupLabW_:=FNwindow("CSupLabW")
8860DEFFNCSupListW_:=FNwindow("CSupListW")
8865
8920DEFFNCScontact_:CScontac_%=-CScontac_%:=FALSE
8925DEFFNCSname_:CSnam_%=-CSnam_%:=FALSE
8930DEFFNCSaddress_:CSaddres_%=-CSaddres_%:=FALSE
8935
8950DEFFNCSa4_:LOCAL Z%:CSa4_%=1:CSus_%=-1:CScust_%=-1:Z%=FNCSpapersize_:PROCsetC_(3):=FALSE
8970DEFFNCSLa4_:LOCAL Z%:CSLa4_%=1:CSLus_%=-1:CSLcust_%=-1:Z%=FNCSLpapersize_:PROCsetC_(3):=FALSE
8980DEFFNIOa4_:LOCAL Z%:IOa4_%=1:IOus_%=-1:IOcust_%=-1:Z%=FNIOpapersize_:PROCsetC_(1):=FALSE
8990
9005DEFFNCSus_:LOCAL Z%:CSus_%=1:CSa4_%=-1:CScust_%=-1:Z%=FNCSpapersize_:PROCsetC_(3):=FALSE
9025DEFFNCSLus_:LOCAL Z%:CSLus_%=1:CSLa4_%=-1:CSLcust_%=-1:Z%=FNCSLpapersize_:PROCsetC_(3):=FALSE
9035DEFFNIOus_:LOCAL Z%:IOus_%=1:IOa4_%=-1:IOcust_%=-1:Z%=FNIOpapersize_:PROCsetC_(1):=FALSE
9045
9060DEFFNCScust_:LOCAL Z%:CScust_%=1:CSa4_%=-1:CSus_%=-1:Z%=FNCSpapersize_:PROCsetC_(3):=FALSE
9080DEFFNCSLcust_:LOCAL Z%:CSLcust_%=1:CSLa4_%=-1:CSLus_%=-1:Z%=FNCSLpapersize_:PROCsetC_(3):=FALSE
9090DEFFNIOcust_:LOCAL Z%:IOcust_%=1:IOa4_%=-1:IOus_%=-1:Z%=FNIOpapersize_:PROCsetC_(1):=FALSE
9100DEFFNSachecksize_:IFSaledR_$(21)<>"210"ORSaledR_$(22)<>"279"ANDSaledR_$(22)<>"297"THENSaledR_%(14)=1:SaledR_%(12)=-1:SaledR_%(13)=-1:=FNSapapersize_
9102=FALSE
9110DEFFNPachecksize_:IFPaledR_$(21)<>"210"ORPaledR_$(22)<>"279"ANDPaledR_$(22)<>"297"THENPaledR_%(14)=1:PaledR_%(12)=-1:PaledR_%(13)=-1:=FNPapapersize_
9115=FALSE
9120DEFFNBachecksize_:IFBaledR_$(11)<>"210"ORBaledR_$(12)<>"279"ANDBaledR_$(12)<>"297"THENBaledR_%(8)=1:BaledR_%(6)=-1:BaledR_%(7)=-1:=FNBapapersize_
9125=FALSE
9130DEFFNVachecksize_:IFVatC_$(6)<>"210"ORVatC_$(7)<>"279"ANDVatC_$(7)<>"297"THENVatC_%(5)=1:VatC_%(3)=-1:VatC_%(4)=-1:=FNVapapersize_
9135=FALSE
9170DEFFNXchecksize_:IFXpagx_%<>210ORXpagy_%<>279ANDXpagy_%<>297THENXcust_%=1:Xa4_%=-1:Xus_%=-1:=FNXpapersize_
9175=FALSE
9180DEFFNCSchecksize_:IFCSpagx_%<>210ORCSpagy_%<>279ANDCSpagy_%<>297THENCScust_%=1:CSa4_%=-1:CSus_%=-1:=FNCSpapersize_
9185=FALSE
9220DEFFNCSLchecksize_:IFCSLpagx_%<>210ORCSLpagy_%<>279ANDCSLpagy_%<>297THENCSLcust_%=1:CSLa4_%=-1:CSLus_%=-1:=FNCSLpapersize_
9225=FALSE
9240DEFFNIOchecksize_:IFIOpagx_%<>210ORIOpagy_%<>279ANDIOpagy_%<>297THENIOcust_%=1:IOa4_%=-1:IOus_%=-1
9245=FALSE
9270DEFFNXpagex_:Xpagx_%=VAL($!Xpagex_%):PROCrI(W%,"Xpagex"):PROCsetC_(4):=FNXchecksize_
9275DEFFNCSpagex_:CSpagx_%=VAL($!CSpagex_%):PROCrI(W%,"CSpagex"):PROCsetC_(4):=FNCSchecksize_
9295DEFFNCSLpagex_:CSLpagx_%=VAL($!CSLpagex_%):PROCrI(W%,"CSLpagex"):PROCsetC_(4):=FNCSLchecksize_
9300
9310DEFFNIOpagex_:LOCAL Z%:Z%=FNIupdateOrderP_:PROCsetC_(2):=FALSE
9320DEFFNSapagex_:SaledR_$(21)=$!Sapagex_%:PROCrI(W%,"Sapagex"):PROCsetC_(51):=FNSachecksize_
9325DEFFNPapagex_:PaledR_$(21)=$!Papagex_%:PROCrI(W%,"Papagex"):PROCsetC_(51):=FNPachecksize_
9330DEFFNBapagex_:BaledR_$(11)=$!Bapagex_%:PROCrI(W%,"Bapagex"):PROCsetC_(36):=FNBachecksize_
9335DEFFNVapagex_:VatC_$(6)=$!Vapagex_%:PROCrI(W%,"Vapagex"):PROCsetC_(20):=FNVachecksize_
9345
9355DEFFNIOpagey_:LOCAL Z%:Z%=FNIupdateOrderP_:PROCsetC_(1):=FALSE
9375DEFFNXpagey_:Xpagy_%=VAL($!Xpagey_%):PROCrI(W%,"Xpagey"):PROCsetC_(5):=FNXchecksize_
9380DEFFNCSpagey_:CSpagy_%=VAL($!CSpagey_%):PROCrI(W%,"CSpagey"):PROCsetC_(5):=FNCSchecksize_
9400DEFFNCSLpagey_:CSLpagy_%=VAL($!CSLpagey_%):PROCrI(W%,"CSLpagey"):PROCsetC_(5):=FNCSLchecksize_
9405DEFFNSapagey_:SaledR_$(22)=$!Sapagey_%:PROCrI(W%,"Sapagey"):PROCsetC_(52):=FNSachecksize_
9410DEFFNPapagey_:PaledR_$(22)=$!Papagey_%:PROCrI(W%,"Papagey"):PROCsetC_(52):=FNPachecksize_
9415DEFFNBapagey_:BaledR_$(12)=$!Bapagey_%:PROCrI(W%,"Bapagey"):PROCsetC_(37):=FNBachecksize_
9420DEFFNVapagey_:VatC_$(7)=$!Vapagey_%:PROCrI(W%,"Vapagey"):PROCsetC_(26):=FNVachecksize_
9430
9450DEFFNCSLleft_:CSLlef_%=VAL($!CSLleft_%):PROCrI(W%,"CSLleft"):PROCsetC_(7):=FALSE
9455
9535DEFFNCSLtopp_
9540CSLtop_%=VAL($!CSLtopp_%)
9545PROCrI(W%,"CSLtopp")
9550PROCsetC_(6)
9555=FALSE
9560
9640DEFFNCSLspace_
9645CSLspac_%=VAL($!CSLspace_%)
9650PROCrI(W%,"CSLspace")
9655PROCsetC_(8)
9660=FALSE
9665
9720DEFFNCSacross_
9725CSacros_%=VAL($!CSacross_%)
9730PROCrI(W%,"CSacross")
9735PROCsetC_(6)
9740=FALSE
9745
9800DEFFNCSdown_
9805CSdow_%=VAL($!CSdown_%)
9810PROCrI(W%,"CSdown")
9815PROCsetC_(7)
9820=FALSE
9825
9880DEFFNCSnumber_
9885CSnumbe_%=VAL($!CSnumber_%)
9890PROCrI(W%,"CSnumber")
9895PROCsetC_(8)
9900=FALSE
9905
9960DEFFNCSstart_
9965CSstar_%=VAL($!CSstart_%)
9970PROCrI(W%,"CSstart")
9975PROCsetC_(9)
9980=FALSE
9985
10040DEFFNXfontx_
10045Xfon_x%=VAL($!Xfontx_%)
10050PROCrI(W%,"Xfontx")
10055PROCsetC_(6)
10060=FALSE
10065DEFFNCSfontx_
10070CSfon_x%=VAL($!CSfontx_%)
10075PROCrI(W%,"CSfontx")
10080PROCsetC_(10)
10085=FALSE
10165DEFFNCSLfontx_
10170CSLfon_x%=VAL($!CSLfontx_%)
10175PROCrI(W%,"CSLfontx")
10180PROCsetC_(9)
10185=FALSE
10190DEFFNSafontx_
10195SaledR_$(23)=$!Safontx_%
10200PROCrI(W%,"Safontx")
10205PROCsetC_(53)
10210=FALSE
10215DEFFNSafonty_
10220SaledR_$(24)=$!Safonty_%
10225PROCrI(W%,"Safonty")
10230PROCsetC_(54)
10235=FALSE
10240DEFFNPafontx_
10245PaledR_$(23)=$!Pafontx_%
10250PROCrI(W%,"Pafontx")
10255PROCsetC_(53)
10260=FALSE
10265DEFFNPafonty_
10270PaledR_$(24)=$!Pafonty_%
10275PROCrI(W%,"Pafonty")
10280PROCsetC_(54)
10285=FALSE
10290DEFFNBafontx_
10295BaledR_$(13)=$!Bafontx_%
10300PROCrI(W%,"Bafontx")
10305PROCsetC_(38)
10310=FALSE
10315DEFFNBafonty_
10320BaledR_$(14)=$!Bafonty_%
10325PROCrI(W%,"Bafonty")
10330PROCsetC_(39)
10335=FALSE
10340DEFFNVafontx_
10345VatC_$(8)=$!Vafontx_%
10350PROCrI(W%,"Vafontx")
10355PROCsetC_(27)
10360=FALSE
10365DEFFNVafonty_
10370VatC_$(9)=$!Vafonty_%
10375PROCrI(W%,"Vafonty")
10380PROCsetC_(37)
10385=FALSE
10490DEFFNXfonty_
10495Xfon_y%=VAL($!Xfonty_%)
10500PROCrI(W%,"Xfonty")
10505=FALSE
10510DEFFNCSfonty_
10515CSfon_y%=VAL($!CSfonty_%)
10520PROCrI(W%,"CSfonty")
10525PROCsetC_(11)
10530=FALSE
10610DEFFNCSLfonty_
10615CSLfon_y%=VAL($!CSLfonty_%)
10620PROCrI(W%,"CSLfonty")
10625PROCsetC_(10)
10630=FALSE
10635
10710DEFFNCSupFrom_
10715IFVAL($!CSupFrom_%)>VAL($!CSupTo_%)THEN$!CSupFrom_%=$!CSupTo_%
10720$!CSupFrom_%=FNchtolen_(VAL($!CSupFrom_%),Cmaxsupp_%)
10725CSupFro_%=VAL($!CSupFrom_%)
10730PROCrI(W%,"CSupFrom"):PROCrI(W%,"CSupTo")
10735PROCsetC_(12)
10740=FALSE
10780DEFFNCSLfrom_
10785IFVAL($!CSLfrom_%)>VAL($!CSLto_%)THEN$!CSLfrom_%=$!CSLto_%
10790$!CSLfrom_%=FNchtolen_(VAL($!CSLfrom_%),Cmaxsupp_%)
10795CSLfro_%=VAL($!CSLfrom_%)
10800PROCrI(W%,"CSLfrom"):PROCrI(W%,"CSLto")
10805PROCsetC_(11)
10810=FALSE
10815
10890DEFFNCSupTo_
10895IFVAL($!CSupFrom_%)>VAL($!CSupTo_%)THEN$!CSupFrom_%=$!CSupTo_%
10900$!CSupTo_%=FNchtolen_(VAL($!CSupTo_%),Cmaxsupp_%)
10905CSupT_%=VAL($!CSupTo_%)
10910PROCrI(W%,"CSupTo"):PROCrI(W%,"CSupFrom")
10915PROCsetC_(13)
10920=FALSE
10960DEFFNCSLto_
10965IFVAL($!CSLfrom_%)>VAL($!CSLto_%)THEN$!CSLfrom_%=$!CSLto_%
10970$!CSLto_%=FNchtolen_(VAL($!CSLto_%),Cmaxsupp_%)
10975CSLt_%=VAL($!CSLto_%)
10980PROCrI(W%,"CSLto"):PROCrI(W%,"CSLfrom")
10985PROCsetC_(3)
10990=FALSE
10995DEFFNCsComm_
11000CsCom_$=$!CsComm_%
11005PROCsetC_(3)
11010=FALSE
11035DEFFNCsPost_
11040CsPos_$=$!CsPost_%
11045PROCsetC_(14)
11050=FALSE
11075
11080DEFFNchtolen_(A%,B%)
11085IFA%>B%THEN=STR$(B%)
11090IFA%<1THEN="1"
11095=STR$(A%)
11100
11105DEFFNCurrency_
11110Cu_$=$!Currency_%
11115PROCrI(W%,"Currency")
11120PROCsetC_(2)
11125=FALSE
11130
11135DEFFNfontnum(V_%)
11140LOCAL Z%
11145IF!b%=1THENV_%+=1
11150IF!b%=4THENV_%-=1
11155IFV_%>maxfont_%THENV_%=0
11160IFV_%<0THENV_%=maxfont_%
11165=V_%
11170
11185DEFFNXfname_:Xnam_%=FNfontnum(Xnam_%):$!Xfname_%=Fo_$(Xnam_%):PROCrI(bankp%,"Xfname"):=FALSE
11190DEFFNCSfontname_:j_f5%=FNfontnum(j_f5%):$!CSfontname_%=Fo_$(j_f5%):PROCrI(CLabSu%,"CSfontname"):=FALSE
11200DEFFNSafname_:SaledR_%(15)=FNfontnum(SaledR_%(15)):$!Safname_%=Fo_$(SaledR_%(15)):PROCrI(saled2%,"Safname"):=FALSE
11205DEFFNPafname_:PaledR_%(15)=FNfontnum(PaledR_%(15)):$!Pafname_%=Fo_$(PaledR_%(15)):PROCrI(paled2%,"Pafname"):=FALSE
11210DEFFNBafname_:BaledR_%(9)=FNfontnum(BaledR_%(9)):$!Bafname_%=Fo_$(BaledR_%(9)):PROCrI(bank2%,"Bafname"):=FALSE
11215DEFFNVafname_:VatC_%(8)=FNfontnum(VatC_%(8)):$!Vafname_%=Fo_$(VatC_%(8)):PROCrI(W%,"Vafname"):=FALSE
11235DEFFNCSLfname_:j_f6%=FNfontnum(j_f6%):$!CSLfname_%=Fo_$(j_f6%):PROCrI(CSLsu%,"CSLfname"):=FALSE
11240
11245DEFFNfontset_:IFerror_%=1THEN=3
11250LOCAL Z%
11255LOCAL ERROR
11260ON ERROR LOCAL:RESTORE ERROR:=3
11265Z%=FNsetcol_
11270IFfont_x%<2ORfont_y%<2THENfhandle_%(fh_%)=0:=TRUE
11275IFfh_%=0THEN=FALSE
11280IFFo_$(fh_%)=""THEN=3
11285SYS&40081,,Fo_$(fh_%),font_x%,font_y% TO fhandle_%(fh_%)
11290SYS&4008A,fhandle_%(fh_%)
11295=TRUE
11300
11305DEFFNfindfont_(V_%,font_x%,font_y%):IFerror_%=1THEN=0
11310LOCAL ERROR
11315ON ERROR LOCAL:RESTORE ERROR:PROCpe_(FNerr_):=0
11320IFfont_x%<2ORfont_y%<2THEN=0
11325font_x%=font_x%*16:font_y%=font_y%*16
11330IFV_%=0 OR Fo_$(V_%)="" THEN=0
11335SYS&40081,,Fo_$(V_%),font_x%,font_y% TO V_%
11340=V_%
11345
11385DEFFNIloseOfonts_
11390LOCAL A%,Z%
11392LOCAL ERROR
11393ON ERROR LOCAL:RESTORE ERROR:PROCpe_(FNerr_):=0
11395Z%=0
11400FORA%=2TOIOicons%
11405IFIOrderF_%(A%)<>0THENIOrderF1_%(A%)=FNlosefont_(IOrderF1_%(A%)):IOrderch%(A%)=1
11410Z%+=IOrderF1_%(A%):NEXT
11415=Z%
11455
11460DEFFNsetcol_
11465*RMEnsure ColourTrans 0.51 RMLoad System:Modules.Colours
11470SYS "ColourTrans_SetFontColours",,&FFFFFF00,0,6
11475SYS "ColourTrans_SetGCOL",&00000000,,,0
11480SYS "ColourTrans_SetGCOL",&FFFFFF00,,,128
11485=1
11490
13540DEFPROCpe_(err_$)
13545LOCAL A%,Z$
13550IFLEFT$(err_$,9)="File open"THENerr_$="File open : Press the function key f12, type CLOSE and press RETURN twice, then re-load the file"
13555IFLEFT$(err_$,9)="Data lost"THENerr_$="Disc/File is write protected : Please move the write protect tab on the disc so that you can't see through the hole or unlock the file"
13560IFLEFT$(err_$,3)="SWI"THENerr_$=mod_$
13565error_%=1
13570A%=W%
13575Z$=FNalert(err_$,"","OK","","ar_excl",1)
13580W%=A%
13585error_%=0
13590ENDPROC
13595DEFPROCpe1_(err_$,F_%)
13600LOCAL A%,Z$
13605LOCAL ERROR
13610ON ERROR LOCAL:RESTORE ERROR:PROCpe_(FNerr_):ENDPROC
13615IFLEFT$(err_$,9)="File open"THENPROCpe_(err_$):ENDPROC
13620error_%=1
13625IFF_%>0THENCLOSE#F_%
13630IFLEFT$(err_$,9)="Data lost"THENPROCpe_(err_$):ENDPROC
13635A%=W%:Z$=FNalert(err_$,"","OK","","ar_excl",1):W%=A%
13640error_%=0
13645ENDPROC
13650
13655DEFFNerr_:=REPORT$+" (Code:"+STR$(ERL DIV100)+":"+STR$(ERL MOD100)+")"
17125
17170DEFFNListprint_:PROCwl_(28):=TRUE
17265DEFFNSaprint_:PROCwl_(28):=TRUE
17425DEFFNPaprint_:PROCwl_(28):=TRUE
17585DEFFNBaprint_:PROCwl_(28):=TRUE
17740DEFFNVaprint_:PROCwl_(28):=TRUE
17845DEFFNWaprint_:PROCwl_(28):=TRUE
17940DEFFNXprint_:PROCwl_(28):=TRUE
18050DEFFNDprint_:PROCwl_(28):=TRUE
18145DEFFNSLprint_:PROCwl_(28):=TRUE
18220DEFFNCSLprint_:PROCwl_(28):=TRUE
18300DEFFNOaprint_:PROCwl_(28):=TRUE
18370DEFFNOiprint_:PROCwl_(28):=TRUE
18380DEFFNITprint_(V_%,X%,Y%):IFV_%<>0:PROCpe_("Even though printing is disabled in this version, set the number of copies to zero and click PRINT again to see the effect in the Sales Ledger"):=FALSE ELSE=TRUE
18535DEFFNSpi_:PROCwl_(28):=TRUE
18580DEFFNSpa_:PROCwl_(28):=TRUE
18910DEFPROCwl_(temp_%):IFS%!192>0THENENDPROC
18915LOCAL ERROR
18920ON ERROR LOCAL:RESTORE ERROR:PROCpe_(FNerr_):ENDPROC
18925IFfhandle_%(fh_%)>0ANDfh_%<=maxifont_%THENoz%=FNlosefont_(fhandle_%(fh_%))
18930CASE temp_% OF
18935WHEN 0:PROCpe_(FNerr_)
18950WHEN 3:PROCpe_("The date is incorrect ("+D_$+"). Dates can be left blank or entered in the format DD.MM.YYYY ie. 1.4.1991 (Hint: just the day/month or year can be entered)")
18995WHEN 12:PROCpe_("To delete, click on the Delete icon")
19000WHEN 13:PROCpe_("All Font sizes are set to zero in the template. Please rectify")
19005WHEN 14:PROCpe_("Template Data area is too small to print entries. Please rectify")
19015WHEN 16:PROCpe_("Please select a supplier")
19035WHEN 20:PROCpe_("About to toggle between Invoice/Credit Note")
19040WHEN 21:PROCpe_("Please select a customer")
19045WHEN 25:PROCpe_("Not enough space in the ledger to complete this action. Please adjust the Preferences setting for the ledger, save the file, exit the program, then re-boot the file")
19050WHEN 26:PROCpe_("LOCKED")
19057WHEN 28:PROCpe_("Sorry, this is only available in the full version of Prophet - click MENU on Prophet's icon and select 'Information'")
19060ENDCASE
19065ENDPROC
19070
19145DEFFNSprint_:PROCwl_(28):=TRUE
19280DEFFNCSprint_:PROCwl_(28):=TRUE
19415DEFFNLprint_:PROCwl_(28):=TRUE
19605DEFFNsma_
19610=TRUE
19615
19620DEFPROCMode_
19625mode_%=MODE
19630IFedit%THENPROCseewind_(edit%!12,-1)
19640IFCSuwind%THENPROCseewind_(CSuwind%,-1)
19660IFCFindSu%THENPROCseewind_(CFindSu%,-1)
19680IFCLabSu%THENPROCseewind_(CLabSu%!12,-1)
19700IFCSLsu%THENPROCseewind_(CSLsu%!12,-1)
19710IFUwind%THENPROCseewind_(Uwind%,-1)
19715IFCwind%THENPROCseewind_(Cwind%,-1)
19725IFIOwind%THENPROCseewind_(IOwind%,-1)
19740IFIOpage%THENPROCseewind_(IOpage%,-1)
19775IFpref%THENPROCseewind_(pref%,-1)
19780IFsave%THENPROCseewind_(save%!12,-1)
19785IFvat%THENPROCseewind_(vat%,-1)
19790IFpass%THENPROCseewind_(pass%,-1)
19795IFsav%THENPROCseewind_(sav%!12,-1)
19800IFCsav%THENPROCseewind_(Csav%!12,-1)
19805IFIOnum%THENPROCseewind_(IOnum%!12,-1)
19810IFinvw%THENPROCseewind_(invw%,-1)
19815IFheads%THENPROCseewind_(heads%!12,-1)
19820IFheadp%THENPROCseewind_(headp%!12,-1)
19825IFbank%THENPROCseewind_(bank%!12,-1)
19830IFsaled%THENPROCseewind_(saled%,-1)
19835IFpaled%THENPROCseewind_(paled%,-1)
19840IFbankl%THENPROCseewind_(bankl%,-1)
19845IFstand%THENPROCseewind_(stand%,-1)
19850IFsaled1%THENPROCseewind_(saled1%!12,-1)
19855IFpaled1%THENPROCseewind_(paled1%!12,-1)
19860IFsaled2%THENPROCseewind_(saled2%!12,-1)
19865IFpaled2%THENPROCseewind_(paled2%!12,-1)
19870IFbank1%THENPROCseewind_(bank1%!12,-1)
19875IFbank2%THENPROCseewind_(bank2%!12,-1)
19880IFvatp%THENPROCseewind_(vatp%!12,-1)
19895IFvatpc%THENPROCseewind_(vatpc%!12,-1)
19900IFbankp%THENPROCseewind_(bankp%!12,-1)
19905IFstat%THENPROCseewind_(stat%!12,-1)
19915IFccred%THENPROCseewind_(ccred%!12,-1)
19925ENDPROC
19930DEFFNw_:ow_%=W%
19935LOCAL Z%,Z_%
19940IF$(W%+20)<>"Menu"THEN
19945FORZ%=1TO16:IFlow_%(Z%)=W%:Z_%=Z%:Z%=16:NEXT:REPEAT:low_%(Z_%)=low_%(Z_%+1):Z_%+=1:UNTILlow_%(Z_%)=0:low_%(Z_%-1)=W% ELSEIFlow_%(Z%)=0THENlow_%(Z%)=W%:Z%=16:NEXT ELSENEXT
19950ENDIF
19955CASE $wn% OF
19960WHEN "EditIt":IFedit%=0THENedit%=W%:$!mainname_%=Tnam_$:$!maindate_%=LEFT$(TIME$,15):$!maintime_%=MID$(TIME$,17,5):$!VatCodeW_%=vatcodew_$:$!VatP_%=vatp_$
19975WHEN "CustomW":IFCSuwind%=0THENCSuwind%=W%!12:CSuW%=W%:Z%=FNCinitsupplier_
19990WHEN "CFindSu":IFCFindSu%=0THENCFindSu%=W%!12:$!CSSupplier_%=CSSupplie_$
20010WHEN "CSupLabW":IFCLabSu%=0THENCLabSu%=W%:Z%=FNCinitsuplab_
20030WHEN "CSupListW":IFCSLsu%=0THENCSLsu%=W%:Z%=FNCinitsuplist_
20040WHEN "User":IFUwind%=0THENZ%=FNinitUser_:Uwind%=W%!12
20045WHEN "Calc":IFCwind%=0THENCwind%=W%!12:Z%=FNinitCalc_
20055WHEN "InvoiceW":IFIOwind%=0THENIOwind%=W%!12:Z%=FNIinitOrder_:IOch_%=1:IFOrderC_%!0=0THEN$!IOvat_%=VAT_$+"%":$!IOvt_%=VAT_$+" Total:":$!IOdata10_%=VAT_$+"/Total":$!IOvr_%=VAT_$+" Rate":$!IOvdt_%=VAT_$:$!IOtext11_%=VAT_$+" Registration No:"
20070WHEN "OrderPI":IFIOpage%=0THENIOpage%=W%!12:Z%=FNIinitOrderP_
20080WHEN "OrderMF":SYS&400D3,,oblock_%
20090IFoblock_%!0=IOwind%THENlw_%=2
20125WHEN "Prefer":IFpref%=0THENpref%=W%!12:Z%=FNinitPrefer_
20130WHEN "Ssave":IFsave%=0THENsave%=W%:Z%=FNinitSave_
20135WHEN "VatCodeW":IFvat%=0THENvat%=W%!12:Z%=FNinitVatW_
20140WHEN "PassW":IFpass%=0THENpass%=W%!12:Z%=FNinitPassW_
20150WHEN "CSuSave":IFCsav%=0THENCsav%=W%:Z%=FNCinitSuSav_
20155WHEN "InvNum":IFIOnum%=0THENIOnum%=W%:Z%=FNIinitOrdernum_
20160WHEN "InvW":IFinvw%=0THENinvw%=W%!12:invW%=W%:Z%=FNinitInvW_
20170WHEN "Headings":IFheads%=0THENheads%=W%:$!Sv1_%=VAT_$:$!Sv2_%=VAT_$:Z%=FNinitheadsM_(0)
20175WHEN "PHeadings":IFheadp%=0THENheadp%=W%:$!Pv1_%=VAT_$:$!Pv2_%=VAT_$:Z%=FNinitheadpM_(0)
20180WHEN "Banks":IFbank%=0THENbank%=W%:Z%=FNinitbank_(0)
20185WHEN "Saled":IFsaled%=0THENsaled%=W%!12:saledW%=W%:SYS&406C0:Z%=FNinitsaled_
20190WHEN "Paled":IFpaled%=0THENpaled%=W%!12:paledW%=W%:SYS&406C0:Z%=FNinitpaled_
20195WHEN "BankL":IFbankl%=0THENbankl%=W%!12:bankW%=W%:SYS&406C0:Z%=FNinitbankl_
20200WHEN "StandW":IFstand%=0THENstand%=W%!12:standW%=W%:SYS&406C0:Z%=FNinitstand_
20205WHEN "SaledFW":IFsaled1%=0THENsaled1%=W%:Z%=FNinitsaled1_
20210WHEN "PaledFW":IFpaled1%=0THENpaled1%=W%:Z%=FNinitpaled1_
20215WHEN "SaledRW":IFsaled2%=0THENsaled2%=W%:$!r7S_%=VAT_$:Z%=FNinitsaled2_
20220WHEN "PaledRW":IFpaled2%=0THENpaled2%=W%:$!r7P_%=VAT_$:Z%=FNinitpaled2_
20225WHEN "BankFW":IFbank1%=0THENbank1%=W%:Z%=FNinitbank1_
20230WHEN "BankRW":IFbank2%=0THENbank2%=W%:Z%=FNinitbank2_
20235WHEN "VatP":IFvatp%=0THENvatp%=W%:Z%=FNinitvatp_
20240WHEN "VatPCont":IFvatpc%=0THENvatpc%=W%:Z%=FNinitvatpc_
20245WHEN "BankP":IFbankp%=0THENbankp%=W%:Z%=FNinitbanktot_
20250WHEN "Scontrol":IFstat%=0THENstat%=W%:Z%=FNinitstat_
20260WHEN "Ccredit":IFccred%=0THENccred%=W%:occred_%=0:PROCinitccred_
20285ENDCASE
20290=TRUE
20295DEFFNb_
20300IFMODE<>mode_%THENPROCgMi:PROCMode_
20305IFnotrans_%=1:IFerror_%=0:notrans_%=0:PROCpe_("Escape pressed or no data/not enough memory to complete this task")
20310IFerror_%=0:SYS&400CF,,cblock_%
20315IFerror_%=0:IFpm_%=1:IFFNmouse=0:pm_%=0:SYS&400E9,36,,"ptr_default",1
20320IFerror_%=0:IFcblock_%!8<>0THEN=TRUE
20325IFerror_%=0:PROCcar_:IFmemE_%=0:IFHIMEM-END<12000THENmemE_%=1:PROClowmem_
20335IFerror_%=0:IFoldt_$<>MID$(TIME$,17,5):oldt_$=MID$(TIME$,17,5):min_%+=1:IFedit%<>0:$!maintime_%=MID$(TIME$,17,5):PROCrI(edit%,"maintime")
20340IFerror_%=0:IFAutosav_%>0:IFmin_%>=Autosav_%:IFe1_%=0:min_%=0:IFsave%=0THENPROCausav_:error_%=0
20345=TRUE
20350DEFPROCcar_:SYS&400D3,,cblock_%:IFcblock_%!16<0ORcblock_%!4<0ORcblock_%!0<0THENENDPROC
20355IFcblock_%!0=invw%:IFcblock_%!4MOD6=2:IFcblock_%!4<45:IF$!ITsd_%<>FNgId(invw%,cblock_%!4):$!ITsd_%=FNgId(invw%,cblock_%!4):PROCrI(invW%,"ITsd"):ITll_%=VAL($!ITl_%):SYS&6,128,255TO,iw_%:IFLEN($!ITsd_%)>ITll_%ORiw_%>40:PROCwrap_(cblock_%!4):ENDPROC
20360IFcblock_%!0=invw%:IFcblock_%!4MOD6<>2:IF$!ITsd_%<>""THEN$!ITsd_%="":sa_%=1:PROCrI(invW%,"ITsd")
20365cblock_%!16=cblock_%!16EOR&4000000:IF(cblock_%!16>>25)MOD2THENcblock_%!20=-1:cblock_%!16=-1
20370SYS&400D2,cblock_%!0,cblock_%!4,cblock_%!8,cblock_%!12,cblock_%!16,cblock_%!20
20375ENDPROC
20380DEFPROCausav_
20385LOCAL Z%,Z$
20390error_%=1:IFsa_%=0THENENDPROC
20395IFAutowar_%=1THENZ$=FNalert("About to Save your Work OK?","","YES","NO","ar_quest",1)
20400IFZ$="NO"THENENDPROC
20405Z$=FNasave2_(Savea_$,1)
20410ENDPROC
20415DEFPROClowmem_
20420LOCAL Z%,Z$
20425end_%=1:moremem_%=1:error_%=1:Oerr_%=1
20430IFHIMEM-END<6000THENZ$=FNalert("Sorry, no memory left. Quitting program. Click on YES to SAVE your work or NO to lose it.","","YES","NO","ar_quest",1)
20435IFHIMEM-END<6000:IFZ$="YES"THENSasav_%=1:Z%=FNMyquit_
20440IFHIMEM-END<6000:IFZ$="NO"THENSasav_%=0:Z%=FNMyquit_
20445error_%=0
20450ENDPROC
20455DEFFNe_:IFR%=3:ow_%=W%
20460IFR%=193:PROCseewind1_:IF$wn%<>"EditIt"AND$wn%<>"Prefer"AND$wn%<>"Ssave"AND$wn%<>""THENmemE_%=0
20465IF$mn%="SuppList"OR$mn%="CSuppList"OR$mn%="FontList"OR$mn%="HeadListS"OR$mn%="HeadListP"OR$mn%="InvL"THENSYS&406C1
20470LOCAL Z%
20475IFfc_%=1:fc_%=0:Z%=FNchfonts_
20480CASE $wn% OF
20485WHEN "EditIt":IFedit%<>0THENPROCinitedit_:IFR%=3THENedit%=0
20500WHEN "CustomW":IFCSuwind%>0 THENZ%=FNCsupstoc_:IFR%=3THENCSuwind%=0:CSuW%=0:IFccred%>0THENPROCsw_(ccred%):PROCcloseW(ccred%):ccred%=0
20515WHEN "CFindSu":IFCFindSu%>0 THENCSSupplie_$=$!CSSupplier_%:IFR%=3THENCFindSu%=0
20535WHEN "CSupLabW":IFCLabSu%>0THENZ%=FNCfsulab_:IFR%=3THENZ%=FNCupdatesulab_:CLabSu%=0
20555WHEN "CSupListW":IFCSLsu%>0THENZ%=FNCfsulist_:IFR%=3THENZ%=FNCupdatesulist_:CSLsu%=0
20565WHEN "User":IFUwind%<>0THENZ%=FNupdateUser_:IFR%=3THENUwind%=0
20575WHEN "Calc":IFCwind%<>0THENZ%=FNupdateCalc_:IFR%=3THENCwind%=0
20585WHEN "InvoiceW":PROCgetWind_(OrderC_%,2):IFIOwind%<>0THENZ%=FNupdateOrder_(2):IFR%=3THENIOwind%=0:IOpage%=0:PROCupdatewind_(OrderC_%):Z%=FNIloseOfonts_
20605WHEN "OrderPI":IFR%=5THENPROCsetC_(1)
20610IFIOpage%>0THENZ%=FNIupdateOrderP_
20630WHEN "OrderDI":PROCIupdateOrderD_
20650WHEN "OrderMPI":IFR%=5THENPROCsetC_(3)
20655IFIOwind%>0THENPROCIordermp_
20680WHEN "OrderUFI":IFR%=5THENPROCsetC_(1)
20710WHEN "Prefer":IFpref%>0THENZ%=FNprefer_:IFR%=3THENpref%=0
20715WHEN "Ssave":IFsave%>0THENZ%=FNupdateSave_:IFR%=3THENsave%=0
20720WHEN "VatCodeW":IFvat%>0THENZ%=FNVatW_:IFR%=3THENvat%=0
20725WHEN "PassW":IFpass%>0:IFR%=3THENpass%=0
20735WHEN "CSuSave":IFCsav%>0THENZ%=FNCupdateSuSav_:IFR%=3THENCsav%=0
20740WHEN "InvNum":IFIOnum%>0THENZ%=FNIOrdernum_:IFR%=3THENIOnum%=0
20745WHEN "InvW":IFinvw%>0THENZ%=FNupdateInvW_:IFR%=3THENZ%=FNgetcust_(0):invw%=0
20750WHEN "Banks":IFbank%>0:Z%=FNupdatebank_:IFR%=3THENbank%=0
20755WHEN "Headings":IFheads%>0THENZ%=FNupdateheadsM_(0):IFR%=3THENheads%=0
20760WHEN "PHeadings":IFheadp%>0THENZ%=FNupdateheadpM_(0):IFR%=3THENheadp%=0
20765WHEN "Saled":IFsaled%>0THENZ%=FNupdatesaled_:IFR%=3THENsaled%=0:PROCSiSort_:IFsaled1%>0THENPROCsw_(saled1%):PROCcloseW(saled1%):saled1%=0
20770WHEN "Paled":IFpaled%>0THENZ%=FNupdatepaled_:IFR%=3THENpaled%=0:PROCPiSort_:IFpaled1%>0THENPROCsw_(paled1%):PROCcloseW(paled1%):paled1%=0
20775WHEN "BankL":IFbankl%>0THENZ%=FNupdatebankl_:IFR%=3THENbankl%=0:PROCBiSort_:IFbank1%>0THENPROCsw_(bank1%):PROCcloseW(bank1%):bank1%=0
20780WHEN "StandW":IFstand%>0THENZ%=FNupdatestand_:IFR%=3THENstand%=0
20785WHEN "SaledFW":IFsaled1%>0THENZ%=FNupdatesaled1_:IFR%=3THENsaled1%=0
20790WHEN "PaledFW":IFpaled1%>0THENZ%=FNupdatepaled1_:IFR%=3THENpaled1%=0
20795WHEN "SaledRW":IFsaled2%>0THENZ%=FNupdatesaled2_:IFR%=3THENsaled2%=0
20800WHEN "PaledRW":IFpaled2%>0THENZ%=FNupdatepaled2_:IFR%=3THENpaled2%=0
20805WHEN "BankFW":IFbank1%>0THENZ%=FNupdatebank1_:IFR%=3THENbank1%=0
20810WHEN "BankRW":IFbank2%>0THENZ%=FNupdatebank2_:IFR%=3THENbank2%=0
20815WHEN "VatP":IFvatp%>0THENZ%=FNupdatevatp_:IFR%=3THENvatp%=0:IFvatpc%>0THENPROCsw_(vatpc%):PROCcloseW(vatpc%):vatpc%=0
20830WHEN "VatPCont":IFvatpc%>0THENZ%=FNupdatevatpc_:IFR%=3THENvatpc%=0
20840WHEN "BankP":IFbankp%>0THENZ%=FNupdatebanktot_:IFR%=3THENbankp%=0
20845WHEN "Scontrol":IFstat%>0THENZ%=FNupdatestat_:IFR%=3THENstat%=0
20855WHEN "Ccredit":IFccred%>0THENPROCupdateccred_(CS_%,1):IFR%=3THENccred%=0
20865ENDCASE
20870IFR%=3:IF$wn%<>"Chuser":PROCsw_(ow_%):PROCow_
20875=TRUE
20880DEFFNpK_:=FNldelete_(!k%)
20885DEFPROCpK1_(A_%):IF!k%=13:sa_%=1:!k%=0:PROCinitedit_
20890LOCAL Z%,Z_%,K_%
20895IFIOwind%=W%!12THEN
20900IFA_%=&18E ORA_%=&19D ORA_%=13ANDR%<>11THEN
20905IF!i%<2 THENZ%=2
20910IF!i%=2 THENZ%=3:IFA_%=13THENZ%=!i%
20915IF!i%=3 THENZ%=14:IFA_%=13THENZ%=!i%
20920IF!i%=14OR!i%=15THENZ%=!i%+1:IFA_%=13THENZ%=!i%
20925IF!i%=16 THENZ%=20:IFA_%=13THENZ%=!i%
20930IF!i%=20 THENZ%=22:IFA_%=13THENZ%=!i%
20935IF!i%>21AND!i%<30 THENZ%=!i%+1:IFA_%=13THENZ%=!i%
20940IF!i%=30 THENZ%=32:IFA_%=13THENZ%=!i%
20945IF!i%>31AND!i%<40 THENZ%=!i%+1:IFA_%=13THENZ%=!i%
20955IFIOwind%=W%!12THEN
20960IF!i%=40 THENZ%=42:IFA_%=13THENZ%=!i%
20965IF!i%>41AND!i%<51 THENZ%=!i%+1:IFA_%=13THENZ%=!i%
20970IF!i%=51 THENZ%=2:IFA_%=13THENZ%=!i%
20975ENDIF
21020ENDIF
21025IFA_%=&18F ORA_%=&19C THEN
21035IFIOwind%=W%!12:IF!i%=2 THENZ%=51:IFA_%=13THENZ%=!i%:REM **ALTER LAST WRITE INV ICON HERE**
21045IF!i%=3 THENZ%=2:IFA_%=13THENZ%=!i%
21050IF!i%=14 THENZ%=3:IFA_%=13THENZ%=!i%
21055IF!i%=15 THENZ%=14:IFA_%=13THENZ%=!i%
21060IF!i%=16 THENZ%=15:IFA_%=13THENZ%=!i%
21065IF!i%=20 THENZ%=16:IFA_%=13THENZ%=!i%
21070IF!i%>22AND!i%<31 THENZ%=!i%-1:IFA_%=13THENZ%=!i%
21075IF!i%=22 THENZ%=20:IFA_%=13THENZ%=!i%
21080IF!i%>32AND!i%<41 THENZ%=!i%-1:IFA_%=13THENZ%=!i%
21085IF!i%=32 THENZ%=30:IFA_%=13THENZ%=!i%
21090IFIOwind%=W%!12THEN
21095IF!i%>42AND!i%<52 THENZ%=!i%-1:IFA_%=13THENZ%=!i%
21100IF!i%=42 THENZ%=40:IFA_%=13THENZ%=!i%
21105IFZ%>0:wf2_%=Z%:IFIOrderF1_%(Z%)>0THENSYS&4008A,IOrderF1_%(Z%)
21110ENDIF
21155ENDIF
21165IFZ%>0THENSYS&400D4,,-1:PROCsetC_(Z%):PROCseewind_(W%!12,Z%)
21170ENDIF
21175IFinvw%=W%!12THEN
21180Z%=!i%
21185IFA_%=&18F THEN
21190IFZ%>=1ANDZ%<7THENPROCITup_(1)
21195IFZ%-itif_%>=1ANDZ%<=itin_%THENZ%-=itif_%
21200IFZ%>itin_%ANDZ%<itin_%+6THENZ%-=1
21205PROCsetC_(Z%)
21210ENDIF
21215IFA_%=&19D THENA_%=13
21220IFA_%=&19C THEN
21225IFZ%=1THENPROCITup_(1)
21230IFZ%>=1ANDZ%<=itin_%THENZ%-=1
21235IFZ%<1THENZ%=itif_%
21240PROCsetC_(Z%)
21245ENDIF
21250IFA_%=&18E ORA_%=13THEN
21255IFA_%=&18E:IFZ%>itin_%-itif_%ANDZ%<=itin_%THENPROCITdown_(-1)
21260IFA_%=&18E:IFZ%<=itin_%-itif_%THENZ%+=itif_%
21265IFA_%=13:IFZ%=itin_%THENPROCITdown_(-1)
21270IFA_%=13:IFZ%<=itin_%THENZ%+=1:IFZ%>itin_%THENZ%=itin_%-itif_%+1
21275IFZ%>itin_%THENZ%+=1
21280IFZ%>itin_%+5ANDZ%<105:Z%=104
21285IFZ%>108THENZ%=1
21290PROCsetC_(Z%)
21295ENDIF
21300PROCseewind_(invw%,Z%)
21305ENDIF
21310IFsaled%=W%!12ORpaled%=W%!12ORbankl%=W%!12ORstand%=W%!12THEN
21315Z%=!i%:Z_%=sitif_%:IFbankl%=W%!12THENZ_%=bitif_%
21320IFA_%=&18F THEN
21325IFZ%>=1ANDZ%<=Z_%THEN
21330IFsaled%=W%!12THENPROCSITup_(1)
21335IFpaled%=W%!12THENPROCPITup_(1)
21340IFbankl%=W%!12THENPROCBITup_(1)
21345IFstand%=W%!12THENPROCTITup_(1)
21350ENDIF
21355IFZ%-Z_%>=1ANDZ%<=sitip_%*Z_%THENZ%-=Z_%
21360PROCsetC_(Z%)
21365ENDIF
21370IFA_%=&19D THENA_%=13
21375IFA_%=&19C THEN
21380IFZ%=1THEN
21385IFsaled%=W%!12THENPROCSITup_(1)
21390IFpaled%=W%!12THENPROCPITup_(1)
21395IFbankl%=W%!12THENPROCBITup_(1)
21400IFstand%=W%!12THENPROCTITup_(1)
21405ENDIF
21410IFZ%>=1ANDZ%<=sitip_%*Z_%THENZ%-=1
21415IFZ%<1THENZ%=Z_%
21420PROCsetC_(Z%)
21425ENDIF
21430IFA_%=&18E ORA_%=13THEN
21435IFA_%=&18E THEN
21440IFZ%>sitip_%*Z_%-Z_%ANDZ%<=sitip_%*Z_%THEN
21445IFsaled%=W%!12THENPROCSITdown_(-1)
21450IFpaled%=W%!12THENPROCPITdown_(-1)
21455IFbankl%=W%!12THENPROCBITdown_(-1)
21460IFstand%=W%!12THENPROCTITdown_(-1)
21465ENDIF
21470IFZ%<=sitip_%*Z_%-Z_%THENZ%+=Z_%
21475ENDIF
21480IFA_%=13THEN
21485IFZ%=sitip_%*Z_%THEN
21490IFsaled%=W%!12THENPROCSITdown_(-1)
21495IFpaled%=W%!12THENPROCPITdown_(-1)
21500IFbankl%=W%!12THENPROCBITdown_(-1)
21505IFstand%=W%!12THENPROCTITdown_(-1)
21510ENDIF
21515IFZ%<=sitip_%*Z_%THENZ%+=1:IFZ%>sitip_%*Z_%THENZ%=sitip_%*Z_%-Z_%+1
21520ENDIF
21525IFZ%>sitip_%*Z_%THENZ%=1
21530PROCsetC_(Z%)
21535ENDIF
21540ENDIF
21545IFvatp%!12=W%!12THEN
21550Z%=!i%:K_%=Z%
21555IFA_%=&18F THEN
21560IFZ%>4ANDZ%<45THENPROCsetC_(Z%-4):K_%=Z%-4
21565IFZ%>0ANDZ%<5THENPROCsetC_(Z%+40):K_%=Z%+40
21570ENDIF
21575IFA_%=&18E THEN
21580IFZ%>0ANDZ%<41THENPROCsetC_(Z%+4):K_%=Z%+4
21585IFZ%>40ANDZ%<45THENPROCsetC_(Z%-40):K_%=Z%-40
21590ENDIF
21595IFA_%=&19C THEN
21600IFZ%>1ANDZ%<45THENPROCsetC_(Z%-1):K_%=Z%-1
21605IFZ%<1THENPROCsetC_(44):K_%=44
21610ENDIF
21615IFA_%=&19D ORA_%=13 THEN
21620IFZ%>0ANDZ%<44THENPROCsetC_(Z%+1):K_%=Z%+1
21625IFZ%>44THENPROCsetC_(1):K_%=1
21630ENDIF
21635PROCseewind_(vatp%!12,K_%)
21640ENDIF
21745IFbank%!12=W%!12THEN
21750Z%=!i%:K_%=Z%
21755IFA_%=&18F THEN
21760IFZ%>2ANDZ%<25THENPROCsetC_(Z%-2):K_%=Z%-2
21765IFZ%>0ANDZ%<3THENPROCsetC_(Z%+22):K_%=Z%+22
21770ENDIF
21775IFA_%=&18E THEN
21780IFZ%>0ANDZ%<23THENPROCsetC_(Z%+2):K_%=Z%+2
21785IFZ%>22ANDZ%<25THENPROCsetC_(Z%-22):K_%=Z%-22
21790ENDIF
21795IFA_%=&19C THEN
21800IFZ%>0ANDZ%<25THENZ%-=1:K_%=Z%-1:IFZ%=0THENZ%=24:K_%=24
21805PROCsetC_(Z%)
21810ENDIF
21815IFA_%=&19D ORA_%=13 THEN
21820IFZ%>0ANDZ%<25THENZ%+=1:K_%=Z%+1:IFZ%=25THENZ%=1:K_%=1
21825PROCsetC_(Z%)
21830ENDIF
21835PROCseewind_(bank%!12,K_%)
21840ENDIF
21845IFheads%!12=W%!12ORheadp%!12=W%!12THEN
21850Z%=!i%
21855IFA_%=&18F THEN
21860IFZ%>7ANDZ%<53THENPROCsetC_(Z%-7)
21865IFZ%>0ANDZ%<8THENPROCsetC_(70)
21870IFZ%=70THENPROCsetC_(69)
21875IFZ%=69THENPROCsetC_(52)
21880ENDIF
21885IFA_%=&18E THEN
21890IFZ%>0ANDZ%<50THENPROCsetC_(Z%+7)
21895IFZ%>49ANDZ%<53THENPROCsetC_(69)
21900IFZ%=69THENPROCsetC_(70)
21905IFZ%=70THENPROCsetC_(3)
21910ENDIF
21915IFA_%=&19C THEN
21920IFZ%>0ANDZ%<53THENZ%-=1:IFZ%MOD7=0THENZ%-=4
21925IFZ%=69THENZ%=52
21930IFZ%=70THENZ%=69
21935IFZ%<1THENZ%=70
21940PROCsetC_(Z%)
21945ENDIF
21950IFA_%=&19D ORA_%=13 THEN
21955IFZ%>0ANDZ%<53THENZ%+=1:IFZ%MOD7=4THENZ%+=4
21960IFZ%=70THENZ%=1
21965IFZ%=69THENZ%=70
21970IFZ%>52ANDZ%<69THENZ%=69
21975PROCsetC_(Z%)
21980ENDIF
21985ENDIF
21990ENDPROC
21995
22000DEFFNcopy_
22005LOCAL A%,Z%
22265IF$wn%="CustomW"THEN
22270A%=VAL($!CSufindnum_%)
22275CASE !i% OF
22280WHEN Csui_%:$!CSuName_%=CSuppliers_$(A%)
22285WHEN Csui_%+1:$!CSuAd11_%=CSuAd1_$(A%)
22290WHEN Csui_%+2:$!CSuAd22_%=CSuAd2_$(A%)
22295WHEN Csui_%+3:$!CSuAd33_%=CSuAd3_$(A%)
22300WHEN Csui_%+4:$!CSuAd44_%=CSuAd4_$(A%)
22305WHEN Csui_%+5:$!CSuPost_%=CSuPos_$(A%)
22310WHEN Csui_%+11:$!dCSuName_%=dCSuppliers_$(A%)
22315WHEN Csui_%+12:$!dCSuAd11_%=dCSuAd1_$(A%)
22320WHEN Csui_%+13:$!dCSuAd22_%=dCSuAd2_$(A%)
22325WHEN Csui_%+14:$!dCSuAd33_%=dCSuAd3_$(A%)
22330WHEN Csui_%+15:$!dCSuAd44_%=dCSuAd4_$(A%)
22335WHEN Csui_%+16:$!dCSuPost_%=dCSuPos_$(A%)
22340WHEN Csui_%+6:$!CSuContact_%=CSuContac_$(A%)
22345WHEN Csui_%+7:$!CSuTele_%=CSuTel_$(A%)
22350WHEN Csui_%+8:$!CSuFax_%=CSuFa_$(A%)
22355WHEN Csui_%+9:$!CSuCom11_%=CSuCom1_$(A%)
22360WHEN Csui_%+10:$!CSuCom22_%=CSuCom2_$(A%)
22365WHEN Csui_%+17:$!CSuSuppRef_%=CSuSuppRe_$(A%)
22370WHEN Csui_%+18:$!CSuYourRef_%=CSuYourRe_$(A%)
22375WHEN Csui_%+19:$!CSuOrder_%=CSuOrde_$(A%)
22380WHEN Csui_%+20:$!CSuDisc_%=CSuDisc_$(A%)
22385ENDCASE
22390PROCCfillsu_
22395Z%=FNCsuppup_(0)
22400ENDIF
22405=TRUE
22410
22415DEFFNallcopy_
22420LOCAL A%,Z%
22465IF$wn%="CustomW"THEN
22470A%=VAL($!CSufindnum_%):IFA%>Cmaxsupp_%THENA%=Cmaxsupp_%
22475$!CSuName_%=CSuppliers_$(A%):$!CSuAd11_%=CSuAd1_$(A%):$!CSuAd22_%=CSuAd2_$(A%):$!CSuAd33_%=CSuAd3_$(A%):$!CSuAd44_%=CSuAd4_$(A%):$!CSuPost_%=CSuPos_$(A%):$!CSuContact_%=CSuContac_$(A%):$!CSuTele_%=CSuTel_$(A%)
22480$!CSuFax_%=CSuFa_$(A%):$!CSuCom11_%=CSuCom1_$(A%):$!CSuCom22_%=CSuCom2_$(A%):$!CSuSuppRef_%=CSuSuppRe_$(A%):$!CSuYourRef_%=CSuYourRe_$(A%):$!CSuOrder_%=CSuOrde_$(A%):$!CSuDisc_%=CSuDisc_$(A%)
22485$!dCSuName_%=dCSuppliers_$(A%):$!dCSuAd11_%=dCSuAd1_$(A%):$!dCSuAd22_%=dCSuAd2_$(A%):$!dCSuAd33_%=dCSuAd3_$(A%):$!dCSuAd44_%=dCSuAd4_$(A%):$!dCSuPost_%=dCSuPos_$(A%)
22490PROCCfillsu_
22495Z%=FNCsuppup_(0)
22500ENDIF
22545=TRUE
22550
22555DEFFNprintkey_:PROCwl_(28)
22557*FX15,1
22558=TRUE
22675DEFFNh_:=""
22680
22685DEFFNrM_
22690temploop_%=0
22695temp_%=temploop_%
22700IFR%=17ORR%=18THENPROCrecmess_(Q%,0):=TRUE
22705=FALSE
22710DEFFNrB_:=TRUE
22715DEFFNpB_:=TRUE
22720DEFPROCinitedit_:IFedit%<1THENENDPROC
22725IFTnam_$=""THENTnam_$="<Untitled>"
22730IFRIGHT$(Tnam_$,2)=" *"ANDsa_%=0THENTnam_$=LEFT$(Tnam_$,LEN(Tnam_$)-2)
22735IFRIGHT$(Tnam_$,2)<>" *"ANDsa_%=1THENTnam_$=Tnam_$+" *"
22740IF$!mainname_%<>Tnam_$THEN$!mainname_%=Tnam_$:PROCrI(edit%,"mainname")
22745IF$!maindate_%<>LEFT$(TIME$,15)THEN$!maindate_%=LEFT$(TIME$,15):PROCrI(edit%,"maindate")
22750ENDPROC
22755DEFFNmainname_:=TRUE
22760DEFFNinitPrefer_:$!Omaxsup_%=STR$(Omaxsu_%):$!Omaxsto_%=STR$(Omaxst_%):$!COmaxsup_%=STR$(COmaxsu_%):$!Autosave_%=STR$(Autosav_%):$!OmaxSS_%=STR$(OmaxS_%):$!OmaxPP_%=STR$(OmaxP_%):$!OmaxBB_%=STR$(OmaxB_%)
22765$!SAacc1_%=SAacc_$:$!SAhead1_%=SAhead_$:$!prefvat_%=prefvat_$
22770IFSasav_%=-1THENPROCsI(W%,"Sasave") ELSEPROCusI(W%,"Sasave")
22775IFsavesal_%=-1THENPROCsI(W%,"savesale") ELSEPROCusI(W%,"savesale")
22780IFAutowar_%=-1THENPROCsI(W%,"Autowarn") ELSEPROCusI(W%,"Autowarn")
22785IFSalewar_%=-1THENPROCsI(W%,"Salewarn") ELSEPROCusI(W%,"Salewarn")
22790IFExitwar_%=-1THENPROCsI(W%,"Exitwarn") ELSEPROCusI(W%,"Exitwarn")
22795IFprefye_%=1THENPROCsI(W%,"prefyes"):PROCusI(W%,"prefno") ELSEPROCsI(W%,"prefno"):PROCusI(W%,"prefyes")
22800IFprefos_%=1THENPROCsI(W%,"prefosy"):PROCusI(W%,"prefosn") ELSEPROCsI(W%,"prefosn"):PROCusI(W%,"prefosy")
22805=TRUE
22875DEFFNprefer_
22880LOCAL A%
22885SYS&406C0
22890IFVAL($!Omaxsup_%)<maxsupp_%THENA%=FNcheckmaxsu1_:IFA%>VAL($!Omaxsup_%)THEN$!Omaxsup_%=STR$(A%)
22895IFVAL($!COmaxsup_%)<Cmaxsupp_%THENA%=FNCcheckmaxsu1_:IFA%>VAL($!COmaxsup_%)THEN$!COmaxsup_%=STR$(A%)
22900IFVAL($!Omaxsto_%)<M_%THENA%=FNcheckmaxst1_:IFA%>VAL($!Omaxsto_%)THEN$!Omaxsto_%=STR$(A%)
22905IFVAL($!OmaxSS_%)<maxS_%THENA%=FNcheckmaxS1_:IFA%>VAL($!OmaxSS_%)THEN$!OmaxSS_%=STR$(A%)
22910IFVAL($!OmaxPP_%)<maxP_%THENA%=FNcheckmaxP1_:IFA%>VAL($!OmaxPP_%)THEN$!OmaxPP_%=STR$(A%)
22915IFVAL($!OmaxBB_%)<maxB_%THENA%=FNcheckmaxB1_:IFA%>VAL($!OmaxBB_%)THEN$!OmaxBB_%=STR$(A%)
22920IFVAL($!Omaxsup_%)<>50THEN$!Omaxsup_%="10"
22925IFVAL($!COmaxsup_%)<>50THEN$!COmaxsup_%="30"
22930IFVAL($!Omaxsto_%)<>12THEN$!Omaxsto_%="12"
22935IFVAL($!OmaxSS_%)<>50THEN$!OmaxSS_%="30"
22940IFVAL($!OmaxPP_%)<>50THEN$!OmaxPP_%="30"
22945IFVAL($!OmaxBB_%)<>50THEN$!OmaxBB_%="10"
22950Omaxsu_%=VAL($!Omaxsup_%):Omaxst_%=VAL($!Omaxsto_%):COmaxsu_%=VAL($!COmaxsup_%):OmaxS_%=VAL($!OmaxSS_%):OmaxP_%=VAL($!OmaxPP_%):OmaxB_%=VAL($!OmaxBB_%):Autosav_%=VAL($!Autosave_%):SAacc_$=$!SAacc1_%:SAhead_$=$!SAhead1_%
22955IFsave%>0THENPROCautosa_:PROCrI(save%,"autos"):PROCrI(save%,"autoe")
22960PROCrI(W%,"Omaxsup"):PROCrI(W%,"Omaxsto"):PROCrI(W%,"COmaxsup"):PROCrI(W%,"OmaxSS"):PROCrI(W%,"OmaxPP"):PROCrI(W%,"OmaxBB"):SYS&406C1:=TRUE
22965DEFFNSasave_:Sasav_%=-Sasav_%:=TRUE
22970DEFFNsavesale_:savesal_%=-savesal_%
22975IFsavesal_%=1ANDSlwind%>0THENPROCsw_(Slwind%):PROCcloseW(Slwind%):Slwind%=0
22980=TRUE
22985DEFFNAutowarn_:Autowar_%=-Autowar_%:=TRUE
22990DEFFNSalewarn_:Salewar_%=-Salewar_%:=TRUE
22995DEFFNExitwarn_:Exitwar_%=-Exitwar_%:=TRUE
23000DEFFNOmaxsup_:Omaxsu_%=VAL($!Omaxsup_%):=TRUE
23005DEFFNOmaxsto_:Omaxst_%=VAL($!Omaxsto_%):=TRUE
23010DEFFNCOmaxsup_:COmaxsu_%=VAL($!COmaxsup_%):=TRUE
23015DEFFNOmaxSS_:OmaxS_%=VAL($!OmaxSS_%):=TRUE
23020DEFFNOmaxPP_:OmaxP_%=VAL($!OmaxPP_%):=TRUE
23025DEFFNOmaxBB_:OmaxB_%=VAL($!OmaxBB_%):=TRUE
23030DEFFNAutosave_:Autosav_%=VAL($!Autosave_%):=TRUE
23035DEFFNSAacc1_:SAacc_$=$!SAacc1_%:=TRUE
23040DEFFNSAhead1_:SAhead_$=$!SAhead1_%:PROCsetC_(1):=TRUE
23045DEFFNprefyes_:prefye_%=1:prefn_%=-1:PROCsI(W%,"prefyes"):PROCusI(W%,"prefno"):=TRUE
23050DEFFNprefno_:prefn_%=1:prefye_%=-1:PROCsI(W%,"prefno"):PROCusI(W%,"prefyes"):=TRUE
23055DEFFNprefss_:prefs_%=1:prefsn_%=-1:PROCsI(W%,"prefss"):PROCusI(W%,"prefnn"):=TRUE
23060DEFFNprefnn_:prefsn_%=1:prefs_%=-1:PROCsI(W%,"prefnn"):PROCusI(W%,"prefss"):=TRUE
23105DEFFNprefosy_:prefos_%=1:prefson_%=-1:PROCsI(W%,"prefosy"):PROCusI(W%,"prefosn"):=TRUE
23110DEFFNprefosn_:prefson_%=1:prefos_%=-1:PROCsI(W%,"prefosn"):PROCusI(W%,"prefosy"):=TRUE
23115
23160DEFPROCinitccred_:LOCAL A$
23165IFSBestP_%=1THENA$=" Months" ELSEA$=" Days"
23170IFSBestF_%=1THEN$!C1_%="1"+LEFT$(A$,6) ELSE$!C1_%=STR$(SBestF_%)+A$
23175$!C2_%=STR$(SBestF_%*2)+A$:$!C3_%=STR$(SBestF_%*3)+A$+"+":$!C10_%="":$!C11_%=LEFT$(CSuppliers_$(CS_%),21):$!C13_%=today_$
23180IFC120_%=1THENPROCusI(W%,"C12") ELSEPROCsI(W%,"C12")
23185IFccred%>0THENPROCrI(ccred%,"C1"):PROCrI(ccred%,"C2"):PROCrI(ccred%,"C3")
23190PROCdays_:ENDPROC
23195
23200DEFPROCfindccreds_:LOCAL A$:Ivat_$(0)="Current"
23205IFSBestP_%=1THENA$=" Months" ELSEA$=" Days"
23210IFSBestF_%=1THENIvat_$(1)="1"+LEFT$(A$,6) ELSEIvat_$(1)=STR$(SBestF_%)+A$
23215Ivat_$(2)=STR$(SBestF_%*2)+A$:Ivat_$(3)=STR$(SBestF_%*3)+A$+"+":PROCdays_:ENDPROC
23220
23225DEFPROCdays_
23230LOCAL A%,B%,B$,C$
23235B%=VAL(MID$(today_$,7))
23240IFSBestP_%=1THEN
23245A%=VAL(MID$(today_$,4,2)):A%=A%-SBestF_%:IFA%<1THENA%=12+A%:B%-=1
23250IFA%<10THENB$="0"+STR$(A%) ELSEB$=STR$(A%)
23255C$=STR$(B%)
23260day1_%=FNJul_(LEFT$(today_$,3)+B$+"."+C$)
23265A%=A%-SBestF_%:IFA%<1THENA%=12+A%:B%-=1
23270IFA%<10THENB$="0"+STR$(A%) ELSEB$=STR$(A%)
23275C$=STR$(B%)
23280day2_%=FNJul_(LEFT$(today_$,3)+B$+"."+C$)
23285A%=A%-SBestF_%:IFA%<1THENA%=12+A%:B%-=1
23290IFA%<10THENB$="0"+STR$(A%) ELSEB$=STR$(A%)
23295C$=STR$(B%)
23300day3_%=FNJul_(LEFT$(today_$,3)+B$+"."+C$)
23305ELSE
23310day1_%=day_%-SBestF_%:day2_%=day1_%-SBestF_%:day3_%=day2_%-SBestF_%
23315ENDIF
23320ENDPROC
23325
23420DEFPROCupdateccred_(Z_%,A_%):db_%=0:db11_%=0:db22_%=0:db33_%=0:db44_%=0:db_$="":IFA_%=1:IFccred%=0ORoccred_%=Z_%THENENDPROC
23425IFA_%=0:IFCSuppliers_$(Z_%)=""AND$!C11_%=""THENENDPROC
23430IFA_%=1:IFCSuppliers_$(Z_%)="":IF$!C9_%=""AND$!C11_%=""THENENDPROC
23435LOCAL Z%,A%,B%,C%,D%,E%,F%,G%,H%
23440SYS&406C0
23445FORZ%=0TOmaxS_%*sitip_%-1
23450IFSITn_%(Z%+1)=CSuNumber_%(Z_%)THEN
23455F%=FNJul_(SITe_$(Z%*sitif_%+1)):H%=FNni_(SITe_$(Z%*sitif_%+6)):G%=FNsub_(H%,FNni_(SITe_$(Z%*sitif_%+9))):E%=FNadd_(E%,H%)
23460IFF%>day1_%THENA%=FNadd_(A%,G%) ELSEIFF%>day2_%THENB%=FNadd_(B%,G%) ELSEIFF%>day3_%THENC%=FNadd_(C%,G%) ELSED%=FNadd_(D%,G%)
23465ENDIF
23470NEXT:db_%=FNadd_(A%+B%+C%+D%,0):db11_%=A%:db22_%=B%:db33_%=C%:db44_%=D%
23475IFA_%=1THEN
23480$!C4_%=FNtc_(A%,""):$!C5_%=FNtc_(B%,""):$!C6_%=FNtc_(C%,""):$!C7_%=FNtc_(D%,""):$!C8_%=FNtc_(db_%,""):$!C9_%=FNtc_(E%,""):$!C11_%=LEFT$(CSuppliers_$(CS_%),21):$!C13_%=FNchdate_($!C13_%)
23485PROCrI(ccred%,"C4"):PROCrI(ccred%,"C5"):PROCrI(ccred%,"C6"):PROCrI(ccred%,"C7"):PROCrI(ccred%,"C8"):PROCrI(ccred%,"C9"):PROCrI(ccred%,"C11"):PROCrI(ccred%,"C13"):occred_%=Z_%
23490ENDIF
23495IFA_%=0:IFdb_%<>0:db_$="Cur="+Cu_$+FNtc_(A%,"0")+" : Prd1="+Cu_$+FNtc_(B%,"0")+" : Prd2="+Cu_$+FNtc_(C%,"0")+" : Prd3="+Cu_$+FNtc_(D%,"0")+" : TOTAL="+Cu_$+FNtc_(db_%,"0")
23500SYS&406C1
23505ENDPROC
23510DEFFNC12_:C120_%=-C120_%:IFC120_%=1THENPROCusI(W%,"C12"):=TRUE ELSEPROCsI(W%,"C12"):=TRUE
23520DEFFNC13_:$!C13_%=FNchdate_($!C13_%):IF$!C13_%="":$!C13_%=today_$
23525PROCrI(ccred%,"C13"):=TRUE
23540
23545DEFFNfindccredt_
23550Itot_%()=0:Ord_%()=-1
23555LOCAL Z%,A%,B%,C%,D%,F%,G%,H%,H_%
23560SYS&406C0
23565FORZ%=0TOmaxS_%*sitip_%-1
23570IFSITn_%(Z%+1)=CSuNumber_%(supply1_%)THEN
23575F%=FNJul_(SITe_$(Z%*sitif_%+1)):G%=FNsub_(FNni_(SITe_$(Z%*sitif_%+6)),FNni_(SITe_$(Z%*sitif_%+9)))
23580IFF%>day1_%THENA%=FNadd_(A%,G%) ELSEIFF%>day2_%THENB%=FNadd_(B%,G%) ELSEIFF%>day3_%THENC%=FNadd_(C%,G%) ELSED%=FNadd_(D%,G%)
23585IFG%<>0THENH_%+=1:Ord_%(H_%)=Z%:IFZ%=maxS_%*sitip_%-1ORSITe_$(Z%*sitif_%+5)<>SITe_$((Z%+1)*sitif_%+5)ORSITe_$(Z%*sitif_%+5)="":H%+=1
23590ENDIF
23595NEXT
23600Itot_%(0)=A%:Itot_%(1)=B%:Itot_%(2)=C%:Itot_%(3)=D%:Itot_%(4)=FNadd_(A%+B%+C%+D%,0)
23605IFItot_%(3)>0THENIvat_$(4)=Stat3_$ ELSEIFItot_%(2)>0THENIvat_$(4)=Stat2_$ ELSEIFItot_%(1)>0THENIvat_$(4)=Stat1_$ ELSEIvat_$(4)=""
23610SYS&406C1
23615=H%
23805
23810DEFFNC10_:IFVAL($!C10_%)=0:=TRUE
23815LOCAL A%,A_%,B%,B_%,C%,c_%,D%,D_%,E%,E_%,F%,F_%,G%,H%,Z%,Z_%,a_$,b_$:C%=FNni_($!C10_%):G%=t_%:H%=u_%:$!C13_%=FNchdate_($!C13_%):b_$=$!C13_%:IFb_$="":b_$=today_$
23820SYS&406C0:FORZ%=0TOmaxS_%*sitip_%-1
23825IFSITn_%(Z%+1)=CSuNumber_%(CS_%)THEN
23830IFSITe_$(Z%*sitif_%+6)<>SITe_$(Z%*sitif_%+9)THEN
23835A%=FNni_(SITe_$(Z%*sitif_%+6)):E%=FNni_(SITe_$(Z%*sitif_%+9)):B%=E%:D%=A%-B%:B%+=D%:C%-=D%
23840IFC%<0:B%+=C%:C%=0
23845IFSITs_$(Z%)=Q_$:F%=1 ELSEF%=0
23850IFsaled%=0THEN
23855IFC120_%=1:SITe_$(Z%*sitif_%+1)=b_$:Z_%=1
23860SITe_$(Z%*sitif_%+9)=FNconvis_(B%,""):IFB%=A%:SITs_$(Z%)=Q_$
23865$t_%=SITe_$(Z%*sitif_%+4):$u_%=SITe_$(Z%*sitif_%+10):CALLm2_%
23870IF$t_%<>""THEN
23875A_%=ASC($t_%)-64:IFA_%<13THEN
23880BankCC_%(A_%)=FNadd_(BankCC_%(A_%),-E%+B%):IFF%=1ANDSITs_$(Z%)=Q_$THENBankSS_%(A_%)=FNadd_(BankSS_%(A_%),-E%+B%) ELSEIFF%=1:BankSS_%(A_%)=FNadd_(BankSS_%(A_%),-E%) ELSEIFSITs_$(Z%)=Q_$THENBankSS_%(A_%)=FNadd_(BankSS_%(A_%),B%)
23885c_%=FNupdatebank_
23890ENDIF
23895ENDIF
23900IFLEN($u_%)=1THEN$u_%+="A"
23905IF$u_%<>""THENA_%=ASC($u_%)-65:B_%=ASC(RIGHT$($u_%,1))-65:IFA_%<12ANDB_%<8THENA_%=A_%*40+B_%*5+2:Sheadt1_%(A_%)=FNadd_(Sheadt1_%(A_%),-E%+B%):Sheadt1_%(A_%+1)=Sheadt1_%(A_%+1)-(A%-E%)+(A%-B%):c_%=FNupdateheadsM_(1)
23910ELSE
23915PROCgetSITdat_:F_%=4:D_%=Z%-sitp_%-4:E_%=sitp_%+D_%:IFE_%<=0:F_%=4-ABS(E_%):D_%-=E_%
23920sitp_%+=D_%:PROCsetSITdat_(-D_%):a_$=FNconvis_(B%,""):IFB%=A%:a_$+="R"
23925c_%=FNpII(saled%,F_%*sitif_%+9,a_$):IFC120_%=1:c_%=FNpII(saled%,F_%*sitif_%+1,b_$)
23930ENDIF
23935IFC%=0:Z%=maxS_%*sitip_%-1
23940ENDIF
23945ENDIF
23950NEXT
23955IFC%>0THEN
23960olddata_$(0)=b_$:olddata_$(1)=RIGHT$(b_$,7):olddata_$(2)=CSuppliers_$(CS_%):olddata_$(3)=ITacc_$:olddata_$(4)="Credit":olddata_$(5)="":olddata_$(6)="":olddata_$(7)="":olddata_$(8)=FNconvis_(C%,"")
23965olddata_$(9)=IThead_$:olddata_$(10)="":olddata_$(11)="o"
23970IFFNREledger_(2)=FALSE:SYS&406C1:PROCpe_("Sales Ledger full. Increase preference levels, save your work and quit, re-load it and enter an extra UNPAID sales entry for "+STR$(-C%)+" (CREDIT)"):SYS&406C0
23975ELSE
23980IFsaled%>0:PROCgetSITdat_
23985ENDIF:IFZ_%=1:PROCSiSort_
23990SYS&406C1:$!C10_%="":PROCrI(ccred%,"C10"):PROCsetC_(14):occred_%=0:PROCupdateccred_(CS_%,1):=TRUE
23995DEFFNIinitOrdernum_
24000$!IOrdernum_%=IOrderS_$(19)
24005$!Ordernum_%="000001"
24010=TRUE
24015DEFFNOrdernum_:=FNIOrdernum_
24020DEFFNIOrdernum_
24025IF$!IOrdernum_%<>IOrderS_$(19)THENIOrderch%(19)=1
24030IF$!IOrdernum_%=""THEN$!IOrdernum_%="1":PROCrI(W%,"IOrdernum")
24035IOrderS_$(19)=$!IOrdernum_%
24040IF$!Ordernum_%<>"N/A"THEN$!Ordernum_%="N/A":PROCrI(W%,"Ordernum")
24055IFR%=12:PROCsetC_(Onum%)
24060=TRUE
24065DEFFNinitVatW_:$!VatC1_%=FNconvis_(Va_%(2),"0"):$!VatN1_%=Va_$(2):$!VatC2_%=FNconvis_(Va_%(3),"0"):$!VatN2_%=Va_$(3):$!VatC3_%=FNconvis_(Va_%(4),"0"):$!VatN3_%=Va_$(4):$!VatC4_%=FNconvis_(Va_%(5),"0"):$!VatN4_%=Va_$(5)
24070$!VatC5_%=FNconvis_(Va_%(6),"0"):$!VatN5_%=Va_$(6):=TRUE
24075DEFFNVatW_:IFerror_%>0THEN=TRUE
24080LOCAL Z%,Z$:Va_%(22)=Va_%(2):Va_%(23)=Va_%(3):Va_%(24)=Va_%(4):Va_%(25)=Va_%(5):Va_%(26)=Va_%(6):Va_%(2)=FNni_($!VatC1_%):Va_$(2)=$!VatN1_%:Va_%(3)=FNni_($!VatC2_%):Va_$(3)=$!VatN2_%
24085Va_%(4)=FNni_($!VatC3_%):Va_$(4)=$!VatN3_%:Va_%(5)=FNni_($!VatC4_%):Va_$(5)=$!VatN4_%:Va_%(6)=FNni_($!VatC5_%):Va_$(6)=$!VatN5_%
24090IFVa_%(22)<>Va_%(2)ORVa_%(23)<>Va_%(3)ORVa_%(24)<>Va_%(4)ORVa_%(25)<>Va_%(5)ORVa_%(26)<>Va_%(6)THEN
24095error_%=1:Z$=FNalert("About to update all "+VAT_$+" related stock OK?","","YES","NO","ar_quest",1)
24105error_%=0
24110ENDIF
24115Va_%(22)=0:Va_%(23)=0:Va_%(24)=0:Va_%(25)=0:Va_%(26)=0:=TRUE
24120DEFFNVatC1_:=FNVatW_
24125DEFFNVatC2_:=FNVatW_
24130DEFFNVatC3_:=FNVatW_
24135DEFFNVatC4_:=FNVatW_
24140DEFFNVatC5_:=FNVatW_
24145DEFFNVatN1_:=FNVatW_
24150DEFFNVatN2_:=FNVatW_
24155DEFFNVatN3_:=FNVatW_
24160DEFFNVatN4_:=FNVatW_
24165DEFFNVatN5_:=FNVatW_
24170
24175DEFFNinitPassW_
24180IFpass1_$<>""THEN$!Spass11_%="ON"ELSE$!Spass11_%="Off"
24185IFpass2_$<>""THEN$!Spass22_%="ON"ELSE$!Spass22_%="Off"
24190IFpass3_$<>""THEN$!Spass33_%="ON"ELSE$!Spass33_%="Off"
24195IFpass4_$<>""THEN$!Spass44_%="ON"ELSE$!Spass44_%="Off"
24200IFpass5_$<>""THEN$!Spass55_%="ON"ELSE$!Spass55_%="Off"
24205IFpass6_$<>""THEN$!Spass66_%="ON"ELSE$!Spass66_%="Off"
24210IFpass7_$<>""THEN$!Spass77_%="ON"ELSE$!Spass77_%="Off"
24215IFpassA_$<>""THEN$!SpassAA_%="ON"ELSE$!SpassAA_%="Off"
24220$!pass11_%="":$!pass22_%="":$!pass33_%="":$!pass44_%="":$!pass55_%="":$!pass66_%="":$!pass77_%="":$!passAA_%="":$!passmess_%=passm1_$:=TRUE
24225
24230DEFFNpass_(A_$,A_%,B_%,a_%,B_$,C_$):IFA_$=""AND$!A_%<>""THENA_$=$!A_%:$!B_%="ON":$!A_%=""
24235IFA_$=$!A_%THENA_$="":$!A_%=A_$:$!B_%="Off":$!A_%=""
24240IFA_$<>""AND$!A_%<>"":IFA_$<>$!A_%THENPROCsetC_(a_%):$!A_%="":$!B_%="Wrong":PROCrI(W%,B_$):PROCpause(100):$!B_%="ON":PROCrI(W%,C_$):PROCsetC_(a_%)
24245PROCrI(W%,C_$):PROCrI(W%,B_$):=A_$
24250
24255DEFFNpass11_:pass1_$=FNpass_(pass1_$,pass11_%,Spass11_%,0,"Spass11","pass11"):=TRUE
24260DEFFNpass22_:pass2_$=FNpass_(pass2_$,pass22_%,Spass22_%,1,"Spass22","pass22"):=TRUE
24265DEFFNpass33_:pass3_$=FNpass_(pass3_$,pass33_%,Spass33_%,3,"Spass33","pass33"):=TRUE
24270DEFFNpass44_:pass4_$=FNpass_(pass4_$,pass44_%,Spass44_%,2,"Spass44","pass44"):=TRUE
24275DEFFNpass55_:pass5_$=FNpass_(pass5_$,pass55_%,Spass55_%,4,"Spass55","pass55"):=TRUE
24280DEFFNpass66_:pass6_$=FNpass_(pass6_$,pass66_%,Spass66_%,5,"Spass66","pass66"):=TRUE
24285DEFFNpass77_:pass7_$=FNpass_(pass7_$,pass77_%,Spass77_%,6,"Spass77","pass77"):=TRUE
24290DEFFNpass88_:pass8_$=FNpass_(pass8_$,pass88_%,Spass88_%,5,"Spass88","pass88"):=TRUE
24295DEFFNpass99_:pass9_$=FNpass_(pass9_$,pass99_%,Spass99_%,1,"Spass99","pass99"):=TRUE
24300DEFFNpassAA_:passA_$=FNpass_(passA_$,passAA_%,SpassAA_%,7,"SpassAA","passAA"):PROCsetC_(7):=TRUE
24305
24370DEFFNCsuppup_(V_%):IF$wn%<>"CustomW"THEN=FALSE
24375IF$!CSuName_%=""ANDCSuppliers_$(CS_%)<>""THEN$!CSuName_%=CSuppliers_$(CS_%):PROCrI(CSuW%,"CSuName"):PROCwl_(12)
24380IF$!CSuName_%<>"":IFCSuppliers_$(CS_%)=""THENoccred_%=0
24385LOCAL Z%,B%,C%,A$,V$,Z$
24390IF!i%>Csui_%-1AND!i%<Csui_%+21THENCSuI_%=!i%:IFV_%=0AND!i%<Csui_%+21THENCSuI_%=CSuI_%+1:IFCSuI_%=Csui_%+21THENCSuI_%=Csui_%
24395Z%=FNCsupstoc_
24400CS_%=CS_%+V_%:Z%=FNCSCheck_
24405Z%=FNCinitsupplier_:IFCLabSu%>0:Z%=FNCupdatesulab_
24410PROCsetC_(CSuI_%)
24415IFV_%<>0THENPROCCfillsu_
24420*FX15,1
24425=FALSE
24430
24455DEFFNCsupstoc_:IFCSuppliers_$(CS_%)<>"":IF$!CSuName_%<>"":IF$!CSuName_%<>CSuppliers_$(CS_%)THENPROCchc_
24460=FNCupdatesupplier_
24462DEFPROCchc_:LOCAL Z%,Z_%:SYS&406C0:FORZ%=0TOmaxS_%*sitip_%-1
24463IFSITn_%(Z%+1)=CSuNumber_%(CS_%)THENSITe_$(Z%*sitif_%+3)=$!CSuName_%:IFsaled%>0:IFZ%-sitp_%>-1:IFZ%-sitp_%<5THENZ_%=FNpII(saled%,(Z%-sitp_%)*sitif_%+3,SITe_$(Z%*sitif_%+3))
24464NEXT:SYS&406C1:ENDPROC
24465
24490DEFPROCCfillsu_:IFCSuW%=0THENENDPROC
24495PROCrI(CSuW%,"CSuName"):PROCrI(CSuW%,"CSuAd11"):PROCrI(CSuW%,"CSuAd22"):PROCrI(CSuW%,"CSuAd33"):PROCrI(CSuW%,"CSuAd44"):PROCrI(CSuW%,"CSuPost"):PROCrI(CSuW%,"CSuContact"):PROCrI(CSuW%,"CSuTele")
24500PROCrI(CSuW%,"dCSuName"):PROCrI(CSuW%,"dCSuAd11"):PROCrI(CSuW%,"dCSuAd22"):PROCrI(CSuW%,"dCSuAd33"):PROCrI(CSuW%,"dCSuAd44"):PROCrI(CSuW%,"dCSuPost")
24505PROCrI(CSuW%,"CSuFax"):PROCrI(CSuW%,"CSuCom11"):PROCrI(CSuW%,"CSuCom22"):PROCrI(CSuW%,"CSuSuppRef"):PROCrI(CSuW%,"CSuYourRef"):PROCrI(CSuW%,"CSuOrder"):PROCrI(CSuW%,"CSuDisc"):chcunam_%=0:ENDPROC
24510
25185DEFPROCsetC_(temp_%):IFW%!12<1ORtemp_%<0THENENDPROC
25190LOCAL ERROR
25195ON ERROR LOCAL:RESTORE ERROR:PROCpe_(FNerr_):ENDPROC
25200SYS&400D2,W%!12,temp_%,9999,,-1,-1:ENDPROC
25205DEFPROCsetC1_(W_%,temp_%):IFW_%<1ORtemp_%<0THENENDPROC
25210SYS&400D2,W_%,temp_%,9999,,-1,-1:ENDPROC
25215DEFPROCsetC2_:SYS&400D3,,hblock_%:IFhblock_%!0=-1ORhblock_%!4=-1THENENDPROC
25220SYS&400D2,hblock_%!0,hblock_%!4,9999,,-1,-1:ENDPROC
25225
25335DEFFNUup_(V_%):LOCAL Z%:Z%=FNupdateUser_:Z%=FNinitUser_:PROCsetC_(V_%):=FALSE
25340
25390DEFFNCSCheck_
25395IFCS_%<1THENCS_%=1
25400IFCS_%>Cmaxsupp_%THENCS_%=Cmaxsupp_%
25405=FALSE
25410
25825DEFFNchdate_(D_$)
25830LOCAL A,A$,B_%,Z%,Z$,A%,B%,C%,D%,E%,B$,C$
25835IFD_$=""THEN=""
25840A$="":A%=0:B%=0:C%=0:D%=0
25845A=VAL(D_$):A%=FNadd_(0,A)
25850IFA%>31ORA%<0THEND_$=today_$:A%=VAL(D_$)
25855IFA%<1ORA%>31THENA%=VAL(MID$(TIME$,5,2))
25860D%=INSTR(D_$,"."):IFD%>0THENB%=VAL(MID$(D_$,D%+1,255)):E%=INSTR(MID$(D_$,D%+1,255),"."):IFE%>0THENC%=VAL(MID$(D_$,D%+E%+1,255))
25865IFB%=0ORB%>12THENB%=FNcurmon_
25870IFC%=0THENC%=VAL(MID$(TIME$,12,4))
25875IFA%=31:IFB%=4ORB%=6ORB%=9ORB%=11THENA%=30
25880IFB%=2THEN
25885IFA%>29:IFC%MOD4=0ANDC%MOD400<>0THENA%=29
25890IFA%>28:IFC%MOD4<>0ORC%MOD400=0THENA%=28
25895ENDIF
25900A$=STR$(A%):B$=STR$(B%):C$=STR$(C%)
25905IFA%<10THENA$="0"+STR$(A%)
25910IFB%<10THENB$="0"+STR$(B%)
25915IFC%<10THENC$="199"+STR$(C%) ELSEIFC%<100THENC$="19"+STR$(C%) ELSEIFC%<1000THENC$="1"+STR$(C%)
25920D_$=A$+"."+B$+"."+C$
25925IFFNcheckDate(D_$)=FALSE THENPROCwl_(3):=""
25930=D_$
25935
25940DEFFNchdate1_(D_$,O_$)
25945LOCAL A,A$,B_%,Z%,Z$,A%,B%,C%,D%,E%,B$,C$
25950O_$=FNchdate_(O_$):IFO_$=""THENO_$=today_$
25955IFD_$=""THEN=O_$
25960A$="":A%=0:B%=0:C%=0:D%=0
25965A=VAL(D_$):A%=FNadd_(0,A)
25970IFA%>31ORA%<0THEND_$=O_$:A%=VAL(D_$)
25975IFA%<1ORA%>31THENA%=VAL(LEFT$(O_$,2))
25980D%=INSTR(D_$,"."):IFD%>0THENB%=VAL(MID$(D_$,D%+1,255)):E%=INSTR(MID$(D_$,D%+1,255),"."):IFE%>0THENC%=VAL(MID$(D_$,D%+E%+1,255))
25985IFB%=0ORB%>12THENB%=VAL(MID$(O_$,4,2))
25990IFC%=0THENC%=VAL(RIGHT$(O_$,4))
25995IFA%=31:IFB%=4ORB%=6ORB%=9ORB%=11THENA%=30
26000IFB%=2THEN
26005IFA%>29:IFC%MOD4=0ANDC%MOD400<>0THENA%=29
26010IFA%>28:IFC%MOD4<>0ORC%MOD400=0THENA%=28
26015ENDIF
26020A$=STR$(A%):B$=STR$(B%):C$=STR$(C%)
26025IFA%<10THENA$="0"+STR$(A%)
26030IFB%<10THENB$="0"+STR$(B%)
26035IFC%<10THENC$="199"+STR$(C%) ELSEIFC%<100THENC$="19"+STR$(C%) ELSEIFC%<1000THENC$="1"+STR$(C%)
26040D_$=A$+"."+B$+"."+C$
26045IFFNcheckDate(D_$)=FALSE THENPROCwl_(3):=""
26050=D_$
26055
26060DEFFNcurmon_
26065IFMID$(TIME$,8,3)="Jan"THEN=1
26070IFMID$(TIME$,8,3)="Feb"THEN=2
26075IFMID$(TIME$,8,3)="Mar"THEN=3
26080IFMID$(TIME$,8,3)="Apr"THEN=4
26085IFMID$(TIME$,8,3)="May"THEN=5
26090IFMID$(TIME$,8,3)="Jun"THEN=6
26095IFMID$(TIME$,8,3)="Jul"THEN=7
26100IFMID$(TIME$,8,3)="Aug"THEN=8
26105IFMID$(TIME$,8,3)="Sep"THEN=9
26110IFMID$(TIME$,8,3)="Oct"THEN=10
26115IFMID$(TIME$,8,3)="Nov"THEN=11
26120IFMID$(TIME$,8,3)="Dec"THEN=12
26125=1
26130
26280DEFFNIinitOrderP_:=FNIOpapersize_
26290
26370DEFFNIupdateOrderP_
26375LOCAL A%,B%,Z%
26380A%=0:B%=0
26385IFIOwind%>0THEN
26390FORZ%=Iori_%TOIOicons%
26395PROCgeticon_(IOwind%,Z%)
26400IFblock_%!16>VAL($!IOpagex_%)*rule_:IFblock_%!16>A%THEN$!IOpagex_%=STR$(block_%!16/rule_):A%=block_%!16
26405IFABS(block_%!12)>VAL($!IOpagey_%)*rule_:IFABS(block_%!12)>B%THEN$!IOpagey_%=STR$(ABS(block_%!12/rule_)):B%=ABS(block_%!12)
26410NEXT
26415ENDIF
26420IFVAL($!IOpagex_%)<50THEN$!IOpagex_%="50"
26425IFVAL($!IOpagex_%)>400THEN$!IOpagex_%="400"
26430IFVAL($!IOpagey_%)<50THEN$!IOpagey_%="50"
26435IFVAL($!IOpagey_%)>400THEN$!IOpagey_%="400"
26440IOpagx_%=VAL($!IOpagex_%):IOpagy_%=VAL($!IOpagey_%):Z%=FNIOchecksize_:Z%=FNIOpapersize_:=FALSE
26555DEFPROCIupdateOrderD_
26560IFR%=193THENENDPROC
26565LOCAL Z%
26570IFR%=256ORR%=5THEN$!IOrderH_%=STR$(IOdsize_%):$!IOrderG_%=STR$(IOdgap_%):IFR%=5THENPROCrI(W%,"IOrderH"):PROCsetC_(0)
26575IOdsize_%=VAL($!IOrderH_%):IOdgap_%=VAL($!IOrderG_%)
26580FORZ%=23TO27:IOrderch%(Z%)=1:NEXT:IOrderch%(42)=1:IOrderch%(43)=1
26585ENDPROC
26645DEFFNIOrderH_:FORZ%=23TO27:IOrderch%(Z%)=1:NEXT:IFVAL($!IOrderH_%)<7THEN$!IOrderH_%="7"
26650IFIOrdermy_(23)-VAL($!IOrderH_%)<0THEN$!IOrderH_%=STR$(IOrdermy_(23))
26655PROCrI(W%,"IOrderH")
26660IOdsize_%=VAL($!IOrderH_%):=TRUE
26690DEFFNIOrderG_:IOdgap_%=VAL($!IOrderG_%):=TRUE
26700
26780DEFFNinitbanktot_:LOCAL Z%:Z%=FNXpapersize_:$!Xfontx_%=STR$(Xfon_x%):$!Xfonty_%=STR$(Xfon_y%):Z%=FNXfsulab_:$!Xfname_%=Fo_$(Xnam_%):$!Xasaveas_%=Xnam_$:=FALSE
26785DEFFNCinitsuplab_:LOCAL Z%:$!CSdown_%=STR$(CSdow_%):$!CSacross_%=STR$(CSacros_%):$!CSnumber_%=STR$(CSnumbe_%):$!CSstart_%=STR$(CSstar_%)
26790IFCScontac_%=1THENPROCusI(W%,"CScontact") ELSEPROCsI(W%,"CScontact")
26795IFCSnam_%=1THENPROCusI(W%,"CSname") ELSEPROCsI(W%,"CSname")
26800IFCSaddres_%=1THENPROCusI(W%,"CSaddress") ELSEPROCsI(W%,"CSaddress")
26805Z%=FNCSpapersize_:Z%=FNCSaltju_:$!CSfontx_%=STR$(CSfon_x%):$!CSfonty_%=STR$(CSfon_y%):$!CSupFrom_%=FNchtolen_(CSupFro_%,Cmaxsupp_%):CSupFro_%=VAL($!CSupFrom_%)
26810$!CSupTo_%=FNchtolen_(CSupT_%,Cmaxsupp_%):CSupT_%=VAL($!CSupTo_%):IFCSupFro_%=CSupT_%:CSupFro_%=CS_%:CSupT_%=CS_%:$!CSupFrom_%=STR$(CSupFro_%):$!CSupTo_%=STR$(CSupT_%)
26815Z%=FNCfsulab_:$!CSfontname_%=Fo_$(j_f5%):$!CsComm_%=CsCom_$:$!CsPost_%=CsPos_$:=FALSE
26920DEFFNinitsaled2_:LOCAL Z%:Z%=FNSapapersize_:$!Safontx_%=SaledR_$(23):$!Safonty_%=SaledR_$(24):$!Safname_%=Fo_$(SaledR_%(15)):$!Sasaveas_%=SaledR_$(25)
26925IFSaledR_%(1)=1THENPROCusI(W%,"r1S") ELSEPROCsI(W%,"r1S")
26930IFSaledR_%(2)=1THENPROCusI(W%,"r2S") ELSEPROCsI(W%,"r2S")
26935IFSaledR_%(3)=1THENPROCusI(W%,"r3S") ELSEPROCsI(W%,"r3S")
26940IFSaledR_%(4)=1THENPROCusI(W%,"r4S") ELSEPROCsI(W%,"r4S")
26945IFSaledR_%(5)=1THENPROCusI(W%,"r5S") ELSEPROCsI(W%,"r5S")
26950IFSaledR_%(6)=1THENPROCusI(W%,"r6S") ELSEPROCsI(W%,"r6S")
26955IFSaledR_%(7)=1THENPROCusI(W%,"r7S") ELSEPROCsI(W%,"r7S")
26960IFSaledR_%(8)=1THENPROCusI(W%,"r8S") ELSEPROCsI(W%,"r8S")
26965IFSaledR_%(9)=1THENPROCusI(W%,"r9S") ELSEPROCsI(W%,"r9S")
26970IFSaledR_%(10)=1THENPROCusI(W%,"raS") ELSEPROCsI(W%,"raS")
26975IFSaledR_%(11)=1THENPROCusI(W%,"rbS") ELSEPROCsI(W%,"rbS")
26980IFSaledR_%(18)=1THENPROCusI(W%,"rcS") ELSEPROCsI(W%,"rcS")
26985$!r11S_%=SaledR_$(1):$!r111S_%=SaledR_$(2):$!r22S_%=SaledR_$(3):$!r222S_%=SaledR_$(4):$!r33S_%=SaledR_$(5):$!r44S_%=SaledR_$(6):$!r444S_%=SaledR_$(7):$!r55S_%=SaledR_$(8):$!r66S_%=SaledR_$(9):$!r666S_%=SaledR_$(10)
26990$!r77S_%=SaledR_$(11):$!r777S_%=SaledR_$(12):$!r7777S_%=SaledR_$(13):$!r88S_%=SaledR_$(14):$!r888S_%=SaledR_$(15):$!r99S_%=SaledR_$(16):$!r999S_%=SaledR_$(17):$!raaS_%=SaledR_$(18)
26995$!rbbS_%=SaledR_$(19):$!rbbbS_%=SaledR_$(20):=FALSE
27000
27005DEFFNinitpaled2_:LOCAL Z%:Z%=FNPapapersize_:$!Pafontx_%=PaledR_$(23):$!Pafonty_%=PaledR_$(24):$!Pafname_%=Fo_$(PaledR_%(15)):$!Pasaveas_%=PaledR_$(25)
27010IFPaledR_%(1)=1THENPROCusI(W%,"r1P") ELSEPROCsI(W%,"r1P")
27015IFPaledR_%(2)=1THENPROCusI(W%,"r2P") ELSEPROCsI(W%,"r2P")
27020IFPaledR_%(3)=1THENPROCusI(W%,"r3P") ELSEPROCsI(W%,"r3P")
27025IFPaledR_%(4)=1THENPROCusI(W%,"r4P") ELSEPROCsI(W%,"r4P")
27030IFPaledR_%(5)=1THENPROCusI(W%,"r5P") ELSEPROCsI(W%,"r5P")
27035IFPaledR_%(6)=1THENPROCusI(W%,"r6P") ELSEPROCsI(W%,"r6P")
27040IFPaledR_%(7)=1THENPROCusI(W%,"r7P") ELSEPROCsI(W%,"r7P")
27045IFPaledR_%(8)=1THENPROCusI(W%,"r8P") ELSEPROCsI(W%,"r8P")
27050IFPaledR_%(9)=1THENPROCusI(W%,"r9P") ELSEPROCsI(W%,"r9P")
27055IFPaledR_%(10)=1THENPROCusI(W%,"raP") ELSEPROCsI(W%,"raP")
27060IFPaledR_%(11)=1THENPROCusI(W%,"rbP") ELSEPROCsI(W%,"rbP")
27065IFPaledR_%(18)=1THENPROCusI(W%,"rcP") ELSEPROCsI(W%,"rcP")
27070$!r11P_%=PaledR_$(1):$!r111P_%=PaledR_$(2):$!r22P_%=PaledR_$(3):$!r222P_%=PaledR_$(4):$!r33P_%=PaledR_$(5):$!r44P_%=PaledR_$(6):$!r444P_%=PaledR_$(7):$!r55P_%=PaledR_$(8):$!r66P_%=PaledR_$(9):$!r666P_%=PaledR_$(10)
27075$!r77P_%=PaledR_$(11):$!r777P_%=PaledR_$(12):$!r7777P_%=PaledR_$(13):$!r88P_%=PaledR_$(14):$!r888P_%=PaledR_$(15):$!r99P_%=PaledR_$(16):$!r999P_%=PaledR_$(17):$!raaP_%=PaledR_$(18)
27080$!rbbP_%=PaledR_$(19):$!rbbbP_%=PaledR_$(20):=FALSE
27085
27090DEFFNinitbank2_:LOCAL Z%:Z%=FNBapapersize_:$!Bafontx_%=BaledR_$(13):$!Bafonty_%=BaledR_$(14):$!Bafname_%=Fo_$(BaledR_%(9)):$!Basaveas_%=BaledR_$(15)
27095IFBaledR_%(1)=1THENPROCusI(W%,"r1B") ELSEPROCsI(W%,"r1B")
27100IFBaledR_%(2)=1THENPROCusI(W%,"r2B") ELSEPROCsI(W%,"r2B")
27105IFBaledR_%(3)=1THENPROCusI(W%,"r3B") ELSEPROCsI(W%,"r3B")
27110IFBaledR_%(4)=1THENPROCusI(W%,"r4B") ELSEPROCsI(W%,"r4B")
27115IFBaledR_%(5)=1THENPROCusI(W%,"r5B") ELSEPROCsI(W%,"r5B")
27120IFBaledR_%(6)=1THENPROCusI(W%,"r6B") ELSEPROCsI(W%,"r6B")
27125$!r11B_%=BaledR_$(1):$!r111B_%=BaledR_$(2):$!r22B_%=BaledR_$(3):$!r33B_%=BaledR_$(4):$!r333B_%=BaledR_$(5):$!r44B_%=BaledR_$(6):$!r444B_%=BaledR_$(7):$!r55B_%=BaledR_$(8):$!r555B_%=BaledR_$(9):$!r66B_%=BaledR_$(10):=FALSE
27130DEFFNinitvatpc_
27135LOCAL Z%
27140Z%=FNVapapersize_
27145$!Vafontx_%=VatC_$(8):$!Vafonty_%=VatC_$(9):$!Vafname_%=Fo_$(VatC_%(8)):$!Vasaveas_%=VatC_$(10)
27150IFVatC_%(1)=1THENPROCsI(W%,"vc3"):PROCusI(W%,"vc4"):VatC_%(2)=-1 ELSEPROCsI(W%,"vc4"):PROCusI(W%,"vc3"):VatC_%(2)=1
27155$!vc1_%=VatC_$(1):$!vc2_%=VatC_$(2):$!vc7_%=VatC_$(3):$!vc8_%=VatC_$(4):$!vc9_%=VatC_$(5)
27160$!pass88_%="":IFpass8_$<>""THEN$!Spass88_%="ON"ELSE$!Spass88_%="Off"
27165IFVatC_$(4)=""THEN=FNvcdate_
27170=TRUE
27310DEFFNCinitsuplist_:LOCAL Z%:Z%=FNCSLpapersize_:$!CSLleft_%=STR$(CSLlef_%):$!CSLtopp_%=STR$(CSLtop_%):$!CSLspace_%=STR$(CSLspac_%):$!CSLfontx_%=STR$(CSLfon_x%):$!CSLfonty_%=STR$(CSLfon_y%)
27315$!CSLfrom_%=FNchtolen_(CSLfro_%,Cmaxsupp_%):CSLfro_%=VAL($!CSLfrom_%):$!CSLto_%=FNchtolen_(CSLt_%,Cmaxsupp_%):CSLt_%=VAL($!CSLto_%):Z%=FNCfsulist_:$!CSLfname_%=Fo_$(j_f6%)
27320IFCSLRecNu_%=1THENPROCusI(W%,"CSLRecNum") ELSEPROCsI(W%,"CSLRecNum")
27325IFCSLsupplie_%=1THENPROCusI(W%,"CSLsupplier") ELSEPROCsI(W%,"CSLsupplier")
27330IFCSLad1_%=1THENPROCusI(W%,"CSLad11") ELSEPROCsI(W%,"CSLad11")
27335IFCSLad2_%=1THENPROCusI(W%,"CSLad22") ELSEPROCsI(W%,"CSLad22")
27340IFCSLad3_%=1THENPROCusI(W%,"CSLad33") ELSEPROCsI(W%,"CSLad33")
27345IFCSLad4_%=1THENPROCusI(W%,"CSLad44") ELSEPROCsI(W%,"CSLad44")
27350IFCSLpos_%=1THENPROCusI(W%,"CSLpost") ELSEPROCsI(W%,"CSLpost")
27355IFCSLcon_%=1THENPROCusI(W%,"CSLcont") ELSEPROCsI(W%,"CSLcont")
27360IFCSLtel_%=1THENPROCusI(W%,"CSLtele") ELSEPROCsI(W%,"CSLtele")
27365IFCSLfa_%=1THENPROCusI(W%,"CSLfax") ELSEPROCsI(W%,"CSLfax")
27370IFCSLcom1_%=1THENPROCusI(W%,"CSLcom11") ELSEPROCsI(W%,"CSLcom11")
27375IFCSLcom2_%=1THENPROCusI(W%,"CSLcom22") ELSEPROCsI(W%,"CSLcom22")
27380IFCSLsuppre_%=1THENPROCusI(W%,"CSLsuppref") ELSEPROCsI(W%,"CSLsuppref")
27385IFCSLyourre_%=1THENPROCusI(W%,"CSLyourref") ELSEPROCsI(W%,"CSLyourref")
27390IFCSLordpr_%=1THENPROCusI(W%,"CSLordpre") ELSEPROCsI(W%,"CSLordpre")
27395IFCSLdeb_%=1THENPROCusI(W%,"CSLdebt") ELSEPROCsI(W%,"CSLdebt")
27400=FALSE
27405
27410DEFFNnpd_(A_$,B_$)
27415LOCAL ERROR
27420ON ERROR LOCAL:RESTORE ERROR:PROCrI(W%,pd_$):=pd_$
27425SYS&80140 TO ,pxres_%,pyres_%,,$pname%:IFA_$<>$pname%+" ("+STR$(pxres_%)+" by "+STR$(pyres_%)+" dpi)"THEN=$pname%+" ("+STR$(pxres_%)+" by "+STR$(pyres_%)+" dpi)":PROCrI(W%,B_$) ELSE=A_$
27430
27455DEFFNXfsulab_:IFbankp%=0THEN=FALSE
27460$!Xprinter_%=FNnpd_($!Xprinter_%,"Xprinter"):=FALSE
27465DEFFNCfsulab_:IFCLabSu%=0THEN=FALSE
27470$!CSprinter_%=FNnpd_($!CSprinter_%,"CSprinter"):=FALSE
27490DEFFNfsalist_:IFsaled2%=0THEN=FALSE
27495$!Saprinter_%=FNnpd_($!Saprinter_%,"Saprinter"):=FALSE
27500DEFFNfpalist_:IFpaled2%=0THEN=FALSE
27505$!Paprinter_%=FNnpd_($!Paprinter_%,"Paprinter"):=FALSE
27510DEFFNfbalist_:IFbank2%=0THEN=FALSE
27515$!Baprinter_%=FNnpd_($!Baprinter_%,"Baprinter"):=FALSE
27520DEFFNfvalist_:IFvatpc%=0THEN=FALSE
27525$!Vaprinter_%=FNnpd_($!Vaprinter_%,"Vaprinter"):=FALSE
27565DEFFNCfsulist_:IFCSLsu%=0THEN=FALSE
27570$!CSLprinter_%=FNnpd_($!CSLprinter_%,"CSLprinter"):=FALSE
27615DEFFNupdatebanktot_:LOCAL Z%:Z%=FNXfsulab_:Xpagx_%=VAL($!Xpagex_%):Xpagy_%=VAL($!Xpagey_%):Xfon_x%=VAL($!Xfontx_%):Xfon_y%=VAL($!Xfonty_%):Xnam_$=$!Xasaveas_%:=FALSE
27660DEFFNCupdatesulab_:LOCAL Z%
27665CSdow_%=VAL($!CSdown_%):CSacros_%=VAL($!CSacross_%):CSnumbe_%=VAL($!CSnumber_%):CSstar_%=VAL($!CSstart_%):CSpagx_%=VAL($!CSpagex_%):CSpagy_%=VAL($!CSpagey_%):CSfon_x%=VAL($!CSfontx_%):CSfon_y%=VAL($!CSfonty_%)
27670CsCom_$=$!CsComm_%:CsPos_$=$!CsPost_%:$!CSupFrom_%=FNchtolen_(VAL($!CSupFrom_%),Cmaxsupp_%):$!CSupTo_%=FNchtolen_(VAL($!CSupTo_%),Cmaxsupp_%)
27675IFVAL($!CSupTo_%)<VAL($!CSupFrom_%)THEN$!CSupTo_%=$!CSupFrom_%
27680CSupFro_%=VAL($!CSupFrom_%):CSupT_%=VAL($!CSupTo_%)
27685IFCSupFro_%=CSupT_%:CSupFro_%=CS_%:CSupT_%=CS_%:$!CSupFrom_%=STR$(CSupFro_%):$!CSupTo_%=STR$(CSupT_%)
27690PROCrI(CLabSu%,"CSupFrom"):PROCrI(CLabSu%,"CSupTo"):IFW%=CLabSu%:Z%=FNCfsulab_:PROCsetC_(3)
27695=FALSE
27700
27725DEFFNupdatesaled2_:LOCAL G%,H%,Z%:G%=t_%:H%=u_%:Z%=FNfsalist_
27730IF$!r11S_%<>""THEN$!r11S_%=FNchdate_($!r11S_%):PROCrI(W%,"r11S")
27735IF$!r111S_%<>""THEN$!r111S_%=FNchdate_($!r111S_%):PROCrI(W%,"r111S")
27740IF$!r22S_%<>""THEN$!r22S_%=RIGHT$(FNchdate_("01."+$!r22S_%),7):PROCrI(W%,"r22S")
27745IF$!r222S_%<>""THEN$!r222S_%=RIGHT$(FNchdate_("01."+$!r222S_%),7):PROCrI(W%,"r222S")
27750$t_%=$!r44S_%:$u_%=$!r99S_%:CALLm2_%:$!r44S_%=$t_%:$!r99S_%=$u_%
27755SaledR_$(1)=$!r11S_%:SaledR_$(2)=$!r111S_%:SaledR_$(3)=$!r22S_%:SaledR_$(4)=$!r222S_%:SaledR_$(5)=$!r33S_%:PROCrI(W%,"r44S"):SaledR_$(6)=$!r44S_%:SaledR_$(7)=$!r444S_%:SaledR_$(8)=$!r55S_%
27760SaledR_$(9)=$!r66S_%:SaledR_$(10)=$!r666S_%:SaledR_$(11)=$!r77S_%:SaledR_$(12)=$!r777S_%:SaledR_$(13)=$!r7777S_%:SaledR_$(14)=$!r88S_%:SaledR_$(15)=$!r888S_%:PROCrI(W%,"r99S")
27765SaledR_$(16)=$!r99S_%:SaledR_$(17)=$!r999S_%:SaledR_$(18)=$!raaS_%:SaledR_$(19)=$!rbbS_%:SaledR_$(20)=$!rbbbS_%
27770SaledR_$(21)=$!Sapagex_%:SaledR_$(22)=$!Sapagey_%:SaledR_$(23)=$!Safontx_%:SaledR_$(24)=$!Safonty_%:SaledR_$(25)=$!Sasaveas_%:*FX15,1
27775Z%=FNSalfinda_:Z%=FNSalfindh_:=FNSalfinds_
27780
27785DEFFNupdatepaled2_:LOCAL G%,H%,Z%:G%=t_%:H%=u_%:Z%=FNfpalist_
27790IF$!r11P_%<>""THEN$!r11P_%=FNchdate_($!r11P_%):PROCrI(W%,"r11P")
27795IF$!r111P_%<>""THEN$!r111P_%=FNchdate_($!r111P_%):PROCrI(W%,"r111P")
27800IF$!r22P_%<>""THEN$!r22P_%=RIGHT$(FNchdate_("01."+$!r22P_%),7):PROCrI(W%,"r22P")
27805IF$!r222P_%<>""THEN$!r222P_%=RIGHT$(FNchdate_("01."+$!r222P_%),7):PROCrI(W%,"r222P")
27810$t_%=$!r44P_%:$u_%=$!r99P_%:CALLm2_%:$!r44P_%=$t_%:$!r99P_%=$u_%
27815PaledR_$(1)=$!r11P_%:PaledR_$(2)=$!r111P_%:PaledR_$(3)=$!r22P_%:PaledR_$(4)=$!r222P_%:PaledR_$(5)=$!r33P_%:PROCrI(W%,"r44P"):PaledR_$(6)=$!r44P_%:PaledR_$(7)=$!r444P_%:PaledR_$(8)=$!r55P_%
27820PaledR_$(9)=$!r66P_%:PaledR_$(10)=$!r666P_%:PaledR_$(11)=$!r77P_%:PaledR_$(12)=$!r777P_%:PaledR_$(13)=$!r7777P_%:PaledR_$(14)=$!r88P_%:PaledR_$(15)=$!r888P_%:PROCrI(W%,"r99P")
27825PaledR_$(16)=$!r99P_%:PaledR_$(17)=$!r999P_%:PaledR_$(18)=$!raaP_%:PaledR_$(19)=$!rbbP_%:PaledR_$(20)=$!rbbbP_%
27830PaledR_$(21)=$!Papagex_%:PaledR_$(22)=$!Papagey_%:PaledR_$(23)=$!Pafontx_%:PaledR_$(24)=$!Pafonty_%:PaledR_$(25)=$!Pasaveas_%:*FX15,1
27835Z%=FNPalfinda_:Z%=FNPalfindh_:=FNPalfinds_
27840
27845DEFFNupdatebank2_:LOCAL G%,H%,Z%:G%=t_%:H%=u_%:Z%=FNfbalist_:IF$!r11B_%<>""THEN$!r11B_%=FNchdate_($!r11B_%):PROCrI(W%,"r11B")
27850IF$!r111B_%<>""THEN$!r111B_%=FNchdate_($!r111B_%):PROCrI(W%,"r111B")
27855$t_%=$!r33B_%:$u_%=$!r55B_%:CALLm2_%:$!r33B_%=$t_%:$!r55B_%=$u_%:BaledR_$(1)=$!r11B_%:BaledR_$(2)=$!r111B_%:BaledR_$(3)=$!r22B_%:PROCrI(W%,"r33B"):BaledR_$(4)=$!r33B_%:BaledR_$(5)=$!r333B_%:BaledR_$(6)=$!r44B_%:BaledR_$(7)=$!r444B_%
27860PROCrI(W%,"r55B"):BaledR_$(8)=$!r55B_%:BaledR_$(9)=$!r555B_%:BaledR_$(10)=$!r66B_%:BaledR_$(11)=$!Bapagex_%:BaledR_$(12)=$!Bapagey_%:BaledR_$(13)=$!Bafontx_%:BaledR_$(14)=$!Bafonty_%:BaledR_$(15)=$!Basaveas_%:*FX15,1
27865Z%=FNBalfinda_:=FNBalfinds_
27870
27875DEFFNupdatevatpc_:LOCAL Z%:Z%=FNfvalist_:PROCrI(W%,"vc8"):PROCrI(W%,"vc9"):$!vc1_%=VatC_$(1):$!vc2_%=VatC_$(2):PROCrI(W%,"vc1"):PROCrI(W%,"vc2"):$!vc8_%=VatC_$(4):$!vc9_%=VatC_$(5):PROCrI(W%,"vc8"):PROCrI(W%,"vc9")
27880VatC_$(3)=$!vc7_%:VatC_$(6)=$!Vapagex_%:VatC_$(7)=$!Vapagey_%:VatC_$(8)=$!Vafontx_%:VatC_$(9)=$!Vafonty_%:VatC_$(10)=$!Vasaveas_%:*FX15,1
27885=TRUE
27930DEFFNCupdatesulist_:LOCAL Z%:Z%=FNCfsulist_:CSLpagx_%=VAL($!CSLpagex_%):CSLpagy_%=VAL($!CSLpagey_%):CSLfon_x%=VAL($!CSLfontx_%):CSLfon_y%=VAL($!CSLfonty_%):$!CSLfrom_%=FNchtolen_(VAL($!CSLfrom_%),Cmaxsupp_%)
27935$!CSLto_%=FNchtolen_(VAL($!CSLto_%),Cmaxsupp_%):IFVAL($!CSLto_%)<VAL($!CSLfrom_%)THEN$!CSLto_%=$!CSLfrom_%
27940CSLfro_%=VAL($!CSLfrom_%):CSLt_%=VAL($!CSLto_%):CSLlef_%=VAL($!CSLleft_%):CSLtop_%=VAL($!CSLtopp_%):CSLspac_%=VAL($!CSLspace_%):PROCrI(W%,"CSLfrom"):PROCrI(W%,"CSLto"):PROCsetC_(3):=FALSE
27945
27950DEFFNLaltju_
27955IFLjle_%=1THENPROCsI(W%,"Ljle"):PROCusI(W%,"Ljce")
27960IFLjce_%=1THENPROCusI(W%,"Ljle"):PROCsI(W%,"Ljce")
27965=FALSE
27990DEFFNCSaltju_
27995IFCSjle_%=1THENPROCsI(W%,"CSjle"):PROCusI(W%,"CSjce")
28000IFCSjce_%=1THENPROCusI(W%,"CSjle"):PROCsI(W%,"CSjce")
28005=FALSE
28010DEFFNLjce_:Ljle_%=-1:Ljce_%=1:=FNLaltju_
28015DEFFNLjle_:Ljle_%=1:Ljce_%=-1:=FNLaltju_
28025DEFFNCSjce_:CSjle_%=-1:CSjce_%=1:=FNCSaltju_
28035DEFFNCSjle_:CSjle_%=1:CSjce_%=-1:=FNCSaltju_
28040
28115DEFFNXpapersize_
28120IFXa4_%=1THENPROCsI(W%,"Xa4"):PROCusI(W%,"Xus"):PROCusI(W%,"Xcust"):Xpagx_%=210:Xpagy_%=297
28125IFXus_%=1THENPROCsI(W%,"Xus"):PROCusI(W%,"Xa4"):PROCusI(W%,"Xcust"):Xpagx_%=210:Xpagy_%=279
28130IFXcust_%=1THENPROCsI(W%,"Xcust"):PROCusI(W%,"Xa4"):PROCusI(W%,"Xus"):IF Xpagx_%=0ORXpagy_%=0THENXpagx_%=210:Xpagy_%=304
28135IFXaspac_%=1THENPROCsI(W%,"Xaspac"):PROCusI(W%,"Xatab") ELSEPROCusI(W%,"Xaspac"):PROCsI(W%,"Xatab")
28140$!Xpagex_%=STR$(Xpagx_%):PROCrI(W%,"Xpagex")
28145$!Xpagey_%=STR$(Xpagy_%):PROCrI(W%,"Xpagey")
28150=FALSE
28155DEFFNCSpapersize_
28160IFCSa4_%=1THENPROCsI(W%,"CSa4"):PROCusI(W%,"CSus"):PROCusI(W%,"CScust"):CSpagx_%=210:CSpagy_%=297
28165IFCSus_%=1THENPROCsI(W%,"CSus"):PROCusI(W%,"CSa4"):PROCusI(W%,"CScust"):CSpagx_%=210:CSpagy_%=279
28170IFCScust_%=1THENPROCsI(W%,"CScust"):PROCusI(W%,"CSa4"):PROCusI(W%,"CSus"):IF CSpagx_%=0ORCSpagy_%=0THENCSpagx_%=210:CSpagy_%=304
28175$!CSpagex_%=STR$(CSpagx_%):PROCrI(W%,"CSpagex")
28180$!CSpagey_%=STR$(CSpagy_%):PROCrI(W%,"CSpagey")
28185=FALSE
28230DEFFNSapapersize_
28235IFSaledR_%(12)=1THENPROCsI(W%,"Saa4"):PROCusI(W%,"Saus"):PROCusI(W%,"Sacust"):SaledR_$(21)="210":SaledR_$(22)="297"
28240IFSaledR_%(13)=1THENPROCsI(W%,"Saus"):PROCusI(W%,"Saa4"):PROCusI(W%,"Sacust"):SaledR_$(21)="210":SaledR_$(22)="279"
28245IFSaledR_%(14)=1THENPROCsI(W%,"Sacust"):PROCusI(W%,"Saa4"):PROCusI(W%,"Saus"):IFVAL(SaledR_$(21))=0ORVAL(SaledR_$(22))=0THENSaledR_$(21)="210":SaledR_$(22)="304"
28250$!Sapagex_%=SaledR_$(21):PROCrI(W%,"Sapagex")
28255$!Sapagey_%=SaledR_$(22):PROCrI(W%,"Sapagey")
28260IFSaledR_%(16)=1THENPROCsI(W%,"Satab"):PROCusI(W%,"Saspac")
28265IFSaledR_%(17)=1THENPROCusI(W%,"Satab"):PROCsI(W%,"Saspac")
28270=FALSE
28275
28280DEFFNPapapersize_
28285IFPaledR_%(12)=1THENPROCsI(W%,"Paa4"):PROCusI(W%,"Paus"):PROCusI(W%,"Pacust"):PaledR_$(21)="210":PaledR_$(22)="297"
28290IFPaledR_%(13)=1THENPROCsI(W%,"Paus"):PROCusI(W%,"Paa4"):PROCusI(W%,"Pacust"):PaledR_$(21)="210":PaledR_$(22)="279"
28295IFPaledR_%(14)=1THENPROCsI(W%,"Pacust"):PROCusI(W%,"Paa4"):PROCusI(W%,"Paus"):IFVAL(PaledR_$(21))=0ORVAL(PaledR_$(22))=0THENPaledR_$(21)="210":PaledR_$(22)="304"
28300$!Papagex_%=PaledR_$(21):PROCrI(W%,"Papagex")
28305$!Papagey_%=PaledR_$(22):PROCrI(W%,"Papagey")
28310IFPaledR_%(16)=1THENPROCsI(W%,"Patab"):PROCusI(W%,"Paspac")
28315IFPaledR_%(17)=1THENPROCusI(W%,"Patab"):PROCsI(W%,"Paspac")
28320=FALSE
28325
28330DEFFNBapapersize_
28335IFBaledR_%(6)=1THENPROCsI(W%,"Baa4"):PROCusI(W%,"Baus"):PROCusI(W%,"Bacust"):BaledR_$(11)="210":BaledR_$(12)="297"
28340IFBaledR_%(7)=1THENPROCsI(W%,"Baus"):PROCusI(W%,"Baa4"):PROCusI(W%,"Bacust"):BaledR_$(11)="210":BaledR_$(12)="279"
28345IFBaledR_%(8)=1THENPROCsI(W%,"Bacust"):PROCusI(W%,"Baa4"):PROCusI(W%,"Baus"):IFVAL(BaledR_$(11))=0ORVAL(BaledR_$(12))=0THENBaledR_$(11)="210":BaledR_$(12)="304"
28350$!Bapagex_%=BaledR_$(11):PROCrI(W%,"Bapagex")
28355$!Bapagey_%=BaledR_$(12):PROCrI(W%,"Bapagey")
28360IFBaledR_%(10)=1THENPROCsI(W%,"Batab"):PROCusI(W%,"Baspac")
28365IFBaledR_%(11)=1THENPROCusI(W%,"Batab"):PROCsI(W%,"Baspac")
28370=FALSE
28375
28450DEFFNCSLpapersize_
28455IFCSLa4_%=1THENPROCsI(W%,"CSLa4"):PROCusI(W%,"CSLus"):PROCusI(W%,"CSLcust"):CSLpagx_%=210:CSLpagy_%=297
28460IFCSLus_%=1THENPROCsI(W%,"CSLus"):PROCusI(W%,"CSLa4"):PROCusI(W%,"CSLcust"):CSLpagx_%=210:CSLpagy_%=279
28465IFCSLcust_%=1THENPROCsI(W%,"CSLcust"):PROCusI(W%,"CSLa4"):PROCusI(W%,"CSLus"):IF CSLpagx_%=0ORCSLpagy_%=0THENCSLpagx_%=210:CSLpagy_%=304
28470$!CSLpagex_%=STR$(CSLpagx_%):PROCrI(W%,"CSLpagex")
28475$!CSLpagey_%=STR$(CSLpagy_%):PROCrI(W%,"CSLpagey")
28480=FALSE
28520DEFFNIOpapersize_
28525IFIOa4_%=1THENPROCsI(W%,"IOa4"):PROCusI(W%,"IOus"):PROCusI(W%,"IOcust"):IOpagx_%=210:IOpagy_%=297
28530IFIOus_%=1THENPROCsI(W%,"IOus"):PROCusI(W%,"IOa4"):PROCusI(W%,"IOcust"):IOpagx_%=210:IOpagy_%=279
28535IFIOcust_%=1THENPROCsI(W%,"IOcust"):PROCusI(W%,"IOa4"):PROCusI(W%,"IOus"):IF IOpagx_%=0ORIOpagy_%=0THENIOpagx_%=210:IOpagy_%=304
28540$!IOpagex_%=STR$(IOpagx_%):PROCrI(W%,"IOpagex")
28545$!IOpagey_%=STR$(IOpagy_%):PROCrI(W%,"IOpagey")
28550=FALSE
28590DEFFNVapapersize_
28595IFVatC_%(3)=1THENPROCsI(W%,"Vaa4"):PROCusI(W%,"Vaus"):PROCusI(W%,"Vacust"):VatC_$(6)="210":VatC_$(7)="297"
28600IFVatC_%(4)=1THENPROCsI(W%,"Vaus"):PROCusI(W%,"Vaa4"):PROCusI(W%,"Vacust"):VatC_$(6)="210":VatC_$(7)="279"
28605IFVatC_%(5)=1THENPROCsI(W%,"Vacust"):PROCusI(W%,"Vaa4"):PROCusI(W%,"Vaus"):IF VAL(VatC_$(6))=0ORVAL(VatC_$(7))=0THENVatC_$(6)="210":VatC_$(7)="304"
28610$!Vapagex_%=VatC_$(6):PROCrI(W%,"Vapagex")
28615$!Vapagey_%=VatC_$(7):PROCrI(W%,"Vapagey")
28620IFVatC_%(6)=1THENPROCsI(W%,"Vatab"):PROCusI(W%,"Vaspac")
28625IFVatC_%(7)=1THENPROCusI(W%,"Vatab"):PROCsI(W%,"Vaspac")
28630=FALSE
28780
28785DEFFNvatless_(D_,n_%)
28790=D_-(D_-D_/((10000+Va_%(n_%))/100)*100)
28795
28800DEFFNtc_(A%,m_$):IFA%=0THEN=m_$
28805LOCALB$,C%:C%=SGNA%:A%=ABSA%:B$=STR$(A%DIV100)+"."+RIGHT$("0"+STR$(A%MOD100),2):IFC%>=0THEN=B$ELSE="-"+B$
28810
28815DEFFNni_(A$):LOCALB:B=100*VALA$:IFABS(SGNB*INT(ABSB+0.5))>maxN_%THEN=0
28820=SGNB*INT(ABSB+0.5)
28825
28830DEFFNconvsi_(m_$):IFABS(VAL(m_$))<.0001THEN=0
28835LOCAL A:IFVAL(m_$)<0 THENA=VAL(m_$)-.000000001 ELSE A=VAL(m_$)+.000000001
28840IFABS(VAL(m_$)*100)>maxN_%THEN=0
28845IFRIGHT$(m_$,1)>"@"THENREPEAT:m_$=LEFT$(m_$,LEN(m_$)-1):UNTILRIGHT$(m_$,1)<"@"
28850=A*100
28855
28860DEFFNconvis_(m_,m_$)
28865LOCAL A%,B%,A$,B$,C$
28870IFm_<0THENA$="-":m_=ABS(m_) ELSEA$=""
28875IFm_<.01THEN=m_$
28880A%=m_+.001:B%=(m_+.001-A%)*100
28885IFB%=0ORm_$="00"THENB$="" ELSEIFB%<10THENB$="0"+STR$(B%) ELSEB$=LEFT$(STR$(B%),2):IFRIGHT$(B$,1)="0"THENB$=LEFT$(B$,1)
28890C$=STR$(A%):IFA%<10THENC$="0"+C$
28895=A$+LEFT$(C$,LEN(C$)-2)+"."+RIGHT$(C$,2)+B$
28900
28905DEFFNsum_(A_,B_):IFABS(A_*B_)<maxN_%ANDABS(A_*B_)>=.009THEN=A_*B_+FNcalpc3_(A_*B_)
28910=0
28915DEFFNadd_(A_,B_):IFABS(A_+B_)<maxN_%ANDABS(A_+B_)>=.009THEN=A_+B_+FNcalpc3_(A_+B_)
28920=0
28925DEFFNsub_(A_,B_):IFABS(A_-B_)<maxN_%ANDABS(A_-B_)>=.009THEN=A_-B_+FNcalpc3_(A_-B_)
28930=0
28935
28940DEFFNconis_(m_)
28945LOCAL A%,B%,A$,B$,C$
28950IFm_<0THENA$="-":m_=ABS(m_) ELSEA$=""
28955IFm_<.0001ORm_>maxN_%THEN=""
28960A%=m_:B%=(m_+.00001-A%)*10000:A%=m_+.00001
28965IFB%=0THEN
28970B$=""
28975ELSE
28980IFB%<10THENB$="000"+STR$(B%) ELSEIFB%<100THENB$="00"+STR$(B%) ELSEIFB%<1000THENB$="0"+STR$(B%) ELSEIFB%<10000THENB$=LEFT$(STR$(B%),4) ELSEB$=""
28985B$="."+B$+"0":REPEAT:B$=LEFT$(B$,LEN(B$)-1):UNTILRIGHT$(B$,1)<>"0"
28990IFB$="."THENB$=""
28995ENDIF
29000C$=STR$(A%)
29005=A$+C$+B$
29010DEFFNinitmem_:LOCAL Z%
29015Opage%=0:IOpage%=0:SIOpage%=0:Oerr_%=0:Afon_%=15:s_$="":error_%=0:headp%=0:heads%=0:fh_%=-1:maxifont_%=200:tenv_$="":ipos_%=0:maxN_%=2147483645:end_%=0:moremem_$="":moremem_%=0:nomem_%=0:vatc_$="":zz1_%=10:zz2_%=10:sa_%=0
29020bankl%=0:heap_size%=0:match_$=" Any Match ":reduce_%=0:j_%=0:label_$="":notrans_%=0:maxmenu_%=200:mode_%=-1:sitip_%=5:mem1_%=1:mem2_%=1:mem3_%=149:mem4_%=411:mem5_%=411:mem6_%=296:mem7_%=25:mem8_%=0:minF_=.6:balw%=0
29025bitip_%=5:M_%=12:maxsupp_%=10:Cmaxsupp_%=30:maxS_%=30:maxP_%=30:maxB_%=10:maxT_%=10:Owind%=0:IOwind%=0:SIOwind%=0:balwi_%=3:balwn_%=71:balwc%=0:balpa_%=0:CSuW%=0:SuW%=0:S14_$="":S15_$=""
29040moremem_%=FNsysenv_:IFmoremem_%=0 THENM_%=12:maxsupp_%=10:Cmaxsupp_%=30:maxS_%=30:maxP_%=30:maxB_%=10
29045IFmaxsupp_%>Cmaxsupp_%THENLmaxsupp_%=maxsupp_% ELSELmaxsupp_%=Cmaxsupp_%
29050IFLmaxsupp_%<30THENLmaxsupp_%=30
29055IFmaxS_%>maxP_%THENLmaxS_%=maxS_%:LLmaxS_%=maxS_%*sitip_% ELSELmaxS_%=maxP_%:LLmaxS_%=maxP_%*sitip_%
29060IFmaxB_%>LmaxS_%THENLmaxS_%=maxB_%:LLmaxS_%=maxB_%*sitip_%
29065=moremem_%
29070DEFFNi_(A$,B%):LOCALA%,C$,Z%:PROCiRes(A$,B%):=TRUE
29075
29080DEFFNinitconst_
29085LOCALA%,C$,Z%
29090LOCAL ERROR
29095ON ERROR LOCAL:RESTORE ERROR:PROCpe_(FNerr_):=FNMyquit_
29097M_%=12:maxsupp_%=10:Cmaxsupp_%=30:maxS_%=30:maxP_%=30:maxB_%=10
29100IFnomem_%=1THEN
29105M_%=12:maxsupp_%=10:Cmaxsupp_%=30:maxS_%=30:maxP_%=30:maxB_%=10
29110IFmaxsupp_%>Cmaxsupp_%THENLmaxsupp_%=maxsupp_% ELSELmaxsupp_%=Cmaxsupp_%
29115IFLmaxsupp_%<10THENLmaxsupp_%=10
29120IFmaxS_%>maxP_%THENLmaxS_%=maxS_%:LLmaxS_%=maxS_%*sitip_% ELSELmaxS_%=maxP_%:LLmaxS_%=maxP_%*sitip_%
29125IFmaxB_%>LmaxS_%THENLmaxS_%=maxB_%:LLmaxS_%=maxB_%*sitip_%
29130ENDIF
29135mem_%=FNgetpage_(1)
29140IFLLmaxS_%>Lmaxsupp_%THENMmaxsupp_%=LLmaxS_% ELSEMmaxsupp_%=Lmaxsupp_%
29145Z%=FNmaxmem_:memE_%=0:memS_%=mem8_%:Omaxst_%=M_%:OmaxS_%=maxS_%:OmaxP_%=maxP_%:OmaxB_%=maxB_%:pd_$="No printer driver installed":C_%=1:S_%=1:CS_%=1:sti_%=19:fsi_%=8:sui_%=19:Csui_%=19:sli_%=7:ori_%=2
29150Iori_%=2:SIori_%=2:iti_%=1:itin_%=48:itif_%=6:itp_%=0:itip_%=8:maxI_%=10:totI_%=maxI_%*itip_%*itif_%-1:siti_%=1:sitif_%=11:sitin_%=sitif_%*sitip_%:sitp_%=0:pitp_%=0:bitif_%=8:bitin_%=bitif_%*sitip_%:bitp_%=0:titp_%=0:S120_%=-1:C120_%=-1
29155maxfonlen_%=30:os_%=400:mm_=25.4:mp_%=72000:osc_%=180:rule_=7.1:srule_=2.2:maxsuplen_%=20:Omaxsu_%=maxsupp_%:COmaxsu_%=Cmaxsupp_%:Sal_%=1:Sg_%=1:Lg_%=Sg_%:Cg_%=1:fontsize_%=&200:suh_%=1:csuh_%=1:Prct%=0:Pl_%=-1:Ol_%=-1
29160ci_%=1:imm_=4.62962963E-3:Oicons%=42:IOicons%=57:SIOicons%=44:IAfon_%=Afon_%+Oicons%-1:SIAfon_%=IAfon_%+IOicons%-1:Onum%=1:IFmaxS_%*sitip_%>M_%THENtemp1_%=maxS_%*sitip_% ELSEtemp1_%=M_%
29165DIM NewPref_%(9),t1_%(13),t2_%(12),t3_%(12),t4_%(12),t5_%(12),t6_%(12),Shead1_$(108),Phead1_$(108),Sheadt1_%(5*96),Pheadt1_%(5*96),BankNN_$(13),BankOO_%(13),BankSS_%(13),BankCC_%(13),olddata_%(10),Bn1_$(24),Bn2_$(27)
29170DIM olddata_$(12),cblock_% 256,pblock_% 256,Index_$(23),Index1_$(23),Best_$(47),font_% fontsize_%,block_% 4000,iblock_% 64,hblock_% 64,OrderC_% 4000,Hw_$(25),Hp_$(45),oblock_% 64,bl_$(1)
29175DIM IOicon%(IOicons%),IOjust_%(IOicons%),IOrderch%(IOicons%),WatC_$(10),WatC_%(10)
29180DIM IOrderS_$(IOicons%),IOrderF_%(IOicons%),IOrderF1_%(IOicons%),bl1_%(11),Hwp_$(25),Hpp_$(45)
29185DIM IOrdermy_(IOicons%),IOrdermx_(IOicons%),IOrderfy_%(IOicons%),LheadS_$(108),LheadP_$(108),Lbank_$(12)
29190DIM IOrderfx_%(IOicons%),IOrderme_$(IOicons%),inv11_%(IOicons%),inv22_%(IOicons%),inv33_%(IOicons%)
29195DIM SlRec_$(Sal_%),SlNum_$(Sal_%),SlDes_$(Sal_%),SlQua_(Sal_%),SlPri_(Sal_%),SlVat_$(Sal_%),Label_$(16),Fo_$(maxifont_%),Ofontname_$(maxifont_%),Lfo_$(maxifont_%+1),invL_$(100),invl_$(101)
29200DIM fhandle_%(maxifont_%)
29205DIM Ord_%(temp1_%+1),StHd_$(M_%)
29210DIM Va_%(27),Va_$(27),supp_%(Mmaxsupp_%)
29225DIM CLSuppliers_$(Cmaxsupp_%),CSuppliers_$(Cmaxsupp_%),Csupp_$(Cmaxsupp_%),CSuNumber_%(Cmaxsupp_%),CSuAd1_$(Cmaxsupp_%),vt1_(96)
29230DIM CSuAd2_$(Cmaxsupp_%),CSuAd3_$(Cmaxsupp_%),CSuAd4_$(Cmaxsupp_%),CSuPos_$(Cmaxsupp_%),CSuContac_$(Cmaxsupp_%),CSuTel_$(Cmaxsupp_%),CSuFa_$(Cmaxsupp_%),CSuCom1_$(Cmaxsupp_%),vt_%(96),vt1_%(96),vt_$(96)
29235DIM dCSuppliers_$(Cmaxsupp_%),dCSuAd1_$(Cmaxsupp_%),dCSuAd2_$(Cmaxsupp_%),dCSuAd3_$(Cmaxsupp_%),dCSuAd4_$(Cmaxsupp_%),dCSuPos_$(Cmaxsupp_%)
29240DIM CSuCom2_$(Cmaxsupp_%),CSuSuppRe_$(Cmaxsupp_%),CSuYourRe_$(Cmaxsupp_%),CSuOrde_$(Cmaxsupp_%),CSuDisc_$(Cmaxsupp_%),ITs_$(maxI_%*itip_%*itif_%+5),ITos_$(maxI_%*itip_%),ITd_%(maxI_%*itip_%),ITf_%(maxI_%*itip_%)
29245DIM ITt_$(maxI_%*itip_%),ITr_(maxI_%*itip_%),ITn_%(maxI_%*itip_%),ITo_%(maxI_%*itip_%),ITss_$(itin_%+4),ITsss_$(itip_%+3),SITe_$(maxS_%*sitip_%*sitif_%+sitif_%),SITep_$(sitin_%-1),low_%(16)
29250DIM SITa_$(maxS_%*sitip_%),SITap_$(sitip_%*3),SITh_$(maxS_%*sitip_%),SITs_$(maxS_%*sitip_%),SITn_%(maxS_%*sitip_%+1),TITe_$(maxT_%*sitip_%*sitif_%+sitif_%),TITe_%(maxT_%*sitip_%),TITn_%(maxT_%*sitip_%),ud_$(56),ud1_$(56)
29255DIM TITep_$(sitin_%-1),TITa_$(maxT_%*sitip_%),TITap_$(sitip_%*3),TITh_$(maxT_%*sitip_%),TITs_$(maxT_%*sitip_%),PITe_$(maxP_%*sitip_%*sitif_%+sitif_%),PITep_$(sitin_%-1),PITa_$(maxP_%*sitip_%),PITn_%(maxP_%*sitip_%+1)
29260DIM PITap_$(sitip_%*3),PITh_$(maxP_%*sitip_%),PITs_$(maxP_%*sitip_%),BITe_$(maxB_%*sitip_%*bitif_%+bitif_%),BITep_$(bitin_%-1),BITf_$(maxB_%*sitip_%),BITt_$(maxB_%*sitip_%),BITap_$(sitip_%*2),ud_%(6),ud1_%(6),pc_$(20)
29265DIM Ivat_(27),Ivat_%(27),Itot_%(27),Ivat_$(27),trans% 16,rect% 16,plotat% 8,rectin% 16,pname% 256,font% 256,SaledF_$(7),PaledF_$(7),BankF_$(7),sal_%(13,2),bal_%(13,2),SaledR_$(25),SaledR_%(18),PaledR_$(25),PaledR_%(18)
29270DIM BaledR_$(15),BaledR_%(11),VatR_$(44),VatT_%(44),VatC_$(10),VatC_%(10),VatV_%(10),VatS_%(10),Tr_$(15),Ec_$(12),Es_$(12),m1_%100,m2_%100,m3_%100,t_%255,u_%255:PROCas1_:PROCas2_:PROCas3_:SITn1_%=0:PITn1_%=0:SITn2_%=0:SITn3_%=0
29275VatT_%()=-1:TITe_%()=-1:Es_$(10)="10":Es_$(11)="10":Ec_$(10)="10":Ec_$(11)="10":Va_%(2)=0:Va_%(3)=0:Va_%(4)=0:Va_%(5)=0:Va_%(6)=0:Va_$(2)="Standard Rate":Va_$(3)="Zero Rated":Va_$(4)="Exempt":Hp_$(44)=VAT_$:Hp_$(45)=VAT_$
29280nme_$="Not enough memory to load file : See 'Task Manager' in your computer user guide to try and free some extra memory : HINT try Mode O first, then change to your normal mode if successful"
29282prefs_%=-1:prefsn_%=1:prefos_%=1:prefson_%=-1:Hpp_$(44)=VAT_$:Hpp_$(45)=VAT_$:prefn_%=1:prefye_%=-1:prefs1_%=-1:prefsn1_%=1:lm_%=6
29285VatC_$()="","3","4","1","","","210","297","10","10","Return":VatC_%()=0,1,-1,1,-1,-1,1,-1,0:tm_%=6
29290Tr__$(1)="":SITep_$()="|":SITap_$()="|":PITep_$()="|":PITap_$()="|":BITep_$()="|":BITap_$()="|":TITep_$()="|":TITap_$()="|"
29295WatC_%()=0,0,0,1,-1,-1,1,-1:maxinvl_%=0:invL_$(0)="Current"
29300pc_$()="27,83,1","27,80,15","27,80,27,87,1","27,69","27,52","27,45,1","163","27,77","27,74,1","27,51,1","27,79,27,57","12,27,64","27,84","18,27,77","27,87,0,27,77","27,70","27,53","27,45,0","35","96"
29305prefs2_%=-1:prefsn2_%=1:OrderFU_%=0:Cu_$="�"
29395VatR_$(0)="BOX 1:VAT due on SALES":VatR_$(2)="ABC":VatT_%(0)=1:VatT_%(3)=1
29400VatR_$(4)="BOX 2:VAT due on Acquisitions":VatR_$(6)="E":VatT_%(5)=1:VatT_%(7)=1
29405VatR_$(8)="BOX 3:Total VAT Due":VatR_$(9)="A+B"
29410VatR_$(12)="BOX 4:VAT reclaimed on PURCHASES":VatR_$(14)="ABCE":VatT_%(13)=1:VatT_%(15)=1
29415VatR_$(16)="BOX 5:NET VAT payable/repayable":VatR_$(17)="C-D"
29420VatR_$(24)="BOX 6:Total value of SALES":VatR_$(26)="ABCD":VatT_%(24)=1:VatT_%(26)=1
29425VatR_$(28)="BOX 7:Total value of PURCHASES":VatR_$(30)="ABCE":VatT_%(29)=1:VatT_%(30)=1
29430VatR_$(36)="BOX 8:Total value of SALES to EEC":VatR_$(38)="D":VatT_%(36)=1:VatT_%(38)=1
29435VatR_$(40)="BOX 9:Total value of PURCHASES to EEC":VatR_$(42)="E":VatT_%(41)=1:VatT_%(42)=1
29440prefye_%=1:prefn_%=-1:Va_%(2)=1750:Va_$(5)="EEC Sales":Va_$(6)="EEC Purchases"
29620vatcodew_$=VAT_$+" Codes":vatp_$=VAT_$+" Return":usname_$=VAT_$+" Number:":salname_$="Cd: "+VAT_$:palname_$="Cd: "+VAT_$:talname_$="Cd: "+VAT_$
29625mod_$="System Modules/Fonts or Printer driver not found, please locate your System or Fonts disc and double click on either !System,!Fonts or a Printer Driver. Please see the manual for info on above":db_$="":db_%=0
29630bankp%=0:Xa4_%=1:Xus_%=-1:Xcust_%=-1:Xpagx_%=210:Xpagy_%=297:Xfon_x%=12:Xfon_y%=12:Xnam_%=0:Xnam_$="Totals":Xaspac_%=1:Xatab_%=-1:Q_$="Reconciled"
29635SaledR_%()=1:PaledR_%()=1:chus%=0:SaledR_%(13)=-1:SaledR_%(14)=-1:SaledR_%(15)=0:SaledR_%(17)=-1:SaledR_$(25)="Sales":SaledR_$(23)="10":SaledR_$(24)="10"
29640PaledR_%(13)=-1:PaledR_%(14)=-1:PaledR_%(15)=0:PaledR_%(17)=-1:PaledR_$(25)="Purchases":PaledR_$(23)="10":PaledR_$(24)="10"
29645BaledR_%()=1:chus1%=0:BaledR_%(7)=-1:BaledR_%(8)=-1:BaledR_%(9)=0:BaledR_%(11)=-1:BaledR_$(15)="Statement":BaledR_$(13)="10":BaledR_$(14)="10"
29650field_$="Field output order not specified, ie. Contact:1.5 Name:2 Address:3 Post Code:4 etc. Please enter":inv11_%()=1:inv22_%()=1:inv33_%()=1:olddata_%(0)=1
29655SsubH_%=0:PsubH_%=0:ITss_$()="|":ITsss_$()="|":prefvat_$="ESD: "+VAT_$+" Discounted Yes:":oSsubH_%=0:oPsubH_%=0:WatC_$()="","","","","","","210","297","10","10","P&L/Bal"
29660OrderC_%!0=0:vathead_$="Key: S=Sales : P=Purchases : A=Total less "+VAT_$+" : "+LEFT$(VAT_$,1)+"="+VAT_$:vathead1_$="Cd Description Sum Codes TOTAL S P A "+LEFT$(VAT_$,1)
29665Stat1_$="":Stat2_$="":Stat3_$="":SBestP_%=1:SBestF_%=1:StI_%=sti_%:FsI_%=fsi_%:SuI_%=sui_%:CSuI_%=Csui_%:SlI_%=sli_%:you_$="":passm1_$="Enter Password and press RETURN"
29670pass1_$="":pass2_$="":pass3_$="":pass4_$="":pass5_$="":pass6_$="":pass7_$="":pass8_$="":pass9_$="":passA_$="":chcunam_%=0
29675Sfindnu_$="":Sufindnu_$="":CSufindnu_$="":Stwind%=0:chstnam_%=0:FindSt%=0:FindSu%=0:CFindSu%=0:Suwind%=0:chsunam_%=0:CSuwind%=0:ValSt%=0:LabSt%=0:LabSu%=0:CLabSu%=0:CSLsu%=0:ListSt%=0:ListSl%=0:SLsu%=0:Slwind%=0:Uwind%=0
29680Cwind%=0:Oind%=0:Oall%=0:save%=0:sav%=0:Csav%=0:Ind%=0:Inds_%=-1:best%=0:view%=0:Views_%=-1:Viewp_%=-1:vat%=0:pass%=0:edit%=0:invw%=0:IOnum%=0:stand%=0:bank%=0:bank1%=0:bank2%=0
29685saledp_%=1:paledp_%=1:bankp_%=1:saled%=0:saled1%=0:saled2%=0:paled%=0:paled1%=0:paled2%=0:vatp%=0:vatpc%=0:stat%=0:scred%=0:ccred%=0:oscred_%=0:occred_%=0:ITacc_$="L":IThead_$="AA":ITcomm_$=""
29690SAacc_$="L":SAhead_$="BA":SAref_$="":SAcomm_$="":SAcust_$="":flag21_%=%1000000000000000000000:flag22_%=%10000000000000000000000:ITes_%=0:ITcop_$="2":ITda_$="":ITnu_$="":ITsupnum_%=0:ITsupnumN_%=0
29695ITdis_$="Disc%":ITre_$="Stock Num":ITpric_$="Ret.Exc":ITnumb_$="":Autosav_%=0:min_%=-1:auto_$="":autoE_$="":IOrderch%()=1
29700FORtemp_%=0TO IOicons%:IOicon%(temp_%)=temp_%:NEXT:FORZ%=0TOCmaxsupp_%:CSuNumber_%(Z%)=Z%:NEXT
29705CSuppliers_$()="":Isupnum_%=0
29710FStockNu_$="":FArtis_$="":FSupplie_$="":FSuppRe_$="":FUpToA_$="":FAboveA_$="":match_$=" Any Match ":CSSupplie_$=""
29715Lstocknu_%=1:Ldescrip_%=1:Lsuppre_%=1:Lsup_%=1:Lstoc_%=1:Lpric_%=1:La4_%=1:Lus_%=-1:Lcust_%=-1:Ljle_%=-1:Ljce_%=1
29720Ldow_%=8:Lacros_%=3:Lnumbe_%=1:Lstar_%=1
29725Lpagx_%=210:Lpagy_%=297:Lfon_x%=12:Lfon_y%=12
29730Scontac_%=1:Snam_%=1:Saddres_%=1:Sa4_%=1:Sus_%=-1:Scust_%=-1:Sdow_%=8:Sacros_%=3:Snumbe_%=1:Sstar_%=1:Spagx_%=210:Spagy_%=297:Sfon_x%=10:Sfon_y%=10:SupFro_%=1:SupT_%=maxsupp_%:SsCom_$="":SsPos_$=""
29735CScontac_%=1:CSnam_%=1:CSaddres_%=1:CSa4_%=1:CSus_%=-1:CScust_%=-1:CSdow_%=8:CSacros_%=3:CSnumbe_%=1:CSstar_%=1:CSpagx_%=210:CSpagy_%=297:CSfon_x%=10:CSfon_y%=10:CSupFro_%=1:CSupT_%=Cmaxsupp_%:CsCom_$="":CsPos_$=""
29740ListRecNu_%=1:ListStNu_%=1:ListDesc_%=1:ListSup_%=1:ListRe_%=1:ListCos_%=1:ListRetai_%=1:ListStoc_%=1:ListMi_%=1:ListQua_%=1:ListSol_%=1:ListMo_%=1:ListPr1_%=1:ListPr2_%=1:ListMar_%=1:ListDat_%=1
29745Lista4_%=1:Listus_%=-1:Listcust_%=-1:Listpagx_%=210:Listpagy_%=297:Listfon_x%=12:Listfon_y%=12:Listfro_%=1:Listt_%=M_%:Listlef_%=4:Listtop_%=4:Listspac_%=4
29750Da4_%=1:Dus_%=-1:Dcust_%=-1:Dpagx_%=210:Dpagy_%=297:Dfon_x%=12:Dfon_y%=12:Dlef_%=4:Dtop_%=4:Dspac_%=4
29755SLRecNu_%=1:SLsupplie_%=1:SLad1_%=1:SLad2_%=1:SLad3_%=1:SLad4_%=1:SLpos_%=1:SLcon_%=1:SLtel_%=1:SLfa_%=1:SLcom1_%=1:SLcom2_%=1:SLsuppre_%=1:SLyourre_%=1:SLordpr_%=1:SLdeb_%=-1
29760SLa4_%=1:SLus_%=-1:SLcust_%=-1:SLpagx_%=210:SLpagy_%=297:SLfon_x%=12:SLfon_y%=12:SLfro_%=1:SLt_%=maxsupp_%:SLlef_%=4:SLtop_%=4:SLspac_%=4:Sjle_%=1:Sjce_%=-1
29765CSLRecNu_%=1:CSLsupplie_%=1:CSLad1_%=1:CSLad2_%=1:CSLad3_%=1:CSLad4_%=1:CSLpos_%=1:CSLcon_%=1:CSLtel_%=1:CSLfa_%=1:CSLcom1_%=1:CSLcom2_%=1:CSLsuppre_%=1:CSLyourre_%=1:CSLordpr_%=1:CSLdeb_%=-1
29770CSLa4_%=1:CSLus_%=-1:CSLcust_%=-1:CSLpagx_%=210:CSLpagy_%=297:CSLfon_x%=12:CSLfon_y%=12:CSLfro_%=1:CSLt_%=Cmaxsupp_%:CSLlef_%=4:CSLtop_%=4:CSLspac_%=4:CSjle_%=1:CSjce_%=-1
29775Oa4_%=1:Ous_%=-1:Ocust_%=-1:Opagx_%=210:Opagy_%=297
29780IOa4_%=1:IOus_%=-1:IOcust_%=-1:IOpagx_%=210:IOpagy_%=297
29785SIOa4_%=1:SIOus_%=-1:SIOcust_%=-1:SIOpagx_%=210:SIOpagy_%=297
29790Unam_$="":Uad1_$="":Uad2_$="":Uad3_$="":Uad4_$="":Uad5_$="":Upos_$="":Ute_$="Tel:":Ufa_$="Fax:":Uva_$="":Tnam_$="<Untitled>":Cal1_$="":Cal2_$="":Cal3_$="":Cal4_$=""
29795CalTo_%=0:Calt1_%=0:Calt2_%=0:Calt3_%=0:Calt4_%=0:fontnum_%=0:j_f%=0:j_f1%=0:j_f2%=0:j_f3%=0:j_f4%=0:fh_%=0:j_f5%=0:j_f6%=0:PROCIupOuser_:Och_%=1:IOch_%=1:SIOch_%=1
29800IOrderme_$()="Text"
29810IOrderme_$()="Text","Text","Text","Text","CustomAdd","Your Name","Your Add 1","Your Add 2","Your Add 3","Your Add 4","Your Add 5","Post Code","Telephone","Fax"
29820IOrderme_$(17)="CusRefData"
29825IOrderme_$(18)="YourRefData":IOrderme_$(19)="InvNumData":IOrderme_$(21)="Date Data"
29835IOrderme_$(22)="Text":IOrderme_$(23)="SupStockNum":IOrderme_$(24)="Description":IOrderme_$(25)="Quantity":IOrderme_$(26)="Price":IOrderme_$(27)="Sub Total":IOrderme_$(30)="Text":IOrderme_$(31)="S/TotalData"
29845IOrderme_$(41)="Page Data"
29850IOrderme_$(42)="EntryDiscnt":IOrderme_$(43)="Entry"+VAT_$:IOrderme_$(49)=VAT_$+"RateData":IOrderme_$(50)="ValueData":IOrderme_$(51)=VAT_$+"TotData":IOrderme_$(52)="DiscntData"
29855IOrderme_$(48)="PaidMessage":IOrderme_$(53)="DiscTotData":IOrderme_$(54)=VAT_$+"TotData":IOrderme_$(55)="NetTotData":IOrderme_$(56)=VAT_$+"NumData":IOrderme_$(57)="DeliveryAdd":IOrderS_$(19)="1"
29860IOrderfx_%()=12:IOrderfy_%()=12:FORZ%=2TO3:IOjust_%(Z%)=1:NEXT
29865FORZ%=5TO19:IOrdermx_(Z%)=200:IOrdermy_(Z%)=Z%*4.5:IOjust_%(Z%)=2:NEXT
29870IOjust_%(22)=2:FORZ%=25TO29:IOjust_%(Z%)=2:NEXT
29875IOrdermx_(57)=80:IOrdermy_(57)=90
29880IOjust_%(25)=0:IOjust_%(31)=2:IOjust_%(32)=2:FORZ%=50TO55:IOjust_%(Z%)=2:NEXT:IOjust_%(41)=2
29885fonlink_%=0:Oborder%=1:Oruler%=1:Odsize_%=100:Odgap_%=2:IOborder%=1:IOruler%=1:IOdsize_%=100:IOdgap_%=2:SIOborder%=1:SIOruler%=1:SIOdsize_%=100:SIOdgap_%=2:Oisupplie_$="":Oinumbe_%=1:Oisupnum_%=0
29890Oanumbe_%=1:Oafro_%=1:Oat_%=maxsupp_%:BestF_%=1:BestP_%=1:BestL_$="Once every month":BestD_$="":pref%=0:Sasav_%=-1:savesal_%=-1:Autowar_%=-1:Salewar_%=-1:Exitwar_%=-1:Savea_$="AccntData":SaveaB_$="BackupData"
29895ofontpath_$="":Inde_$="":maxfont_%=0:modex%=1:modey%=2:today_$=FNchdate_("99"):Otoday_$=today_$:SITe_$(0)=today_$:PITe_$(0)=today_$:TITe_$(0)=today_$:valfro_$="1":valt_$=STR$(M_%):day_%=FNJul_(today_$)
29905IFCmaxsupp_%<maxmenu_%THENPROCCsupplist_
29910PROCheadlistS_:PROCheadlistP_:PROCbanklist_
29915Z%=FNchfonts_:PROCfontlist_:PROCinvlist_:SYS&406C1
29920Z%=FNaBg("_",24,30)
29925root_$="":$cblock_%="<Obey$Dir>":SYS&27,cblock_%,block_%,255 TO,Z%
29930IFZ%>0THEN
29935root_$=$Z%
29940FORZ%=LEN(root_$)TO1STEP-1
29945IFMID$(root_$,Z%,1)="."THENroot_$=LEFT$(root_$,Z%):Z%=1
29950NEXT
29955ENDIF
29960inv_$=root_$+"Invoices":bch_$=root_$+"!Prophet.Windows"
29965IFenv_$<>""THEN
29970inv_$="":FORZ%=LEN(env_$)TO1STEP-1:IFMID$(env_$,Z%,1)="."THENinv_$=LEFT$(env_$,Z%):Z%=1
29975NEXT:inv_$=inv_$+"Invoices"
29980ENDIF
29985Z%=OPENUP(root_$+"!Prophet.!Boot"):Ad_%=EXT#Z%:PTR#Z%=65:Ae_%=BGET#Z%:CLOSE#Z%
29990=TRUE
29995
30000DEFFNsysenv_:LOCAL A%:SYS"OS_GetEnv" TO env_$
30005A%=INSTR(env_$,"!RunImage"):env_$=MID$(env_$,A%+10):env_$=FNtrmL(env_$):IFenv_$<>"":=FNload1_(env_$)
30010=0
30015
30020DEFFNchfonts_
30025LOCAL A%
30030LOCAL ERROR
30035ON ERROR LOCAL:RESTORE ERROR:fh_%=0:fhandle_%()=0:=FALSE
30040Fo_$(0)="System font"
30045IFFNfindres_(3)=FALSE THENfh_%=0:fhandle_%()=0:=FALSE
30050SYS&27,"<Font$Prefix> and <Font$Path>",font_%,fontsize_%-1 TO ,,A%
30055font_%?A%=13
30060IF$font_%<>ofontpath_$ THEN ofontpath_$=$font_%:fhandle_%()=0:A%=FNinitfonts_
30065=A%
30070
30075DEFFNtrans_(tr_$)
30080LOCAL A%,A_%
30085$font_%=""
30090SYS&27,tr_$,font_%,fontsize_%-1 TO ,A_%,A%
30095IFA_%=0ORA%=fontsize_%ORA%=0THEN=""
30100font_%?A%=13
30105=$font_%
30110
30115DEFFNinitfonts_
30120LOCAL ERROR
30125ON ERROR LOCAL:RESTORE ERROR:fh_%=0:fhandle_%()=0:=FALSE
30130SYS&406C0
30135fontnum_%=0:maxfont_%=0
30140Fo_$()="":Fo_$(0)="System font"
30145WHILE fontnum_%<>-1
30150SYS "Font_ListFonts" ,,font%,fontnum_%,-1 TO ,,fontnum_%
30155IFfontnum_%>-1ANDfontnum_%<=maxifont_%THENFo_$(fontnum_%)=$font%:maxfont_%=fontnum_%
30160ENDWHILE
30165PROCupfont_
30170SYS&406C1
30175PROColdfont_
30180=TRUE
30185
30190DEFFNlosefont_(Z%)
30195IFZ%=0THEN=0
30200LOCAL ERROR
30205ON ERROR LOCAL:RESTORE ERROR:PROCpe_("FontManager not found. Please double click on your !Fonts file and try again"):=Z%
30210SYS&40082,Z%
30215=0
30220
30225DEFFNfindres_(A_%)
30230IFA_%=1:IFFNtrans_("<System$Path>")=""THEN=FALSE
30235IFA_%=2:IFFNtrans_("<PDriver$Path>")=""THEN=FALSE
30240IFA_%=3:IFFNtrans_("<Font$Path>")=""THEN=FALSE
30245=TRUE
30250
30305DEFPROCCsupplist_
30310LOCAL Z%,A%
30315Z%=FNrR("Menus","CSuppList")
30320CLSuppliers_$()=""
30325PROCCuplsup_
30330A%=J%
30335CALL!(S%!164+20),CLSuppliers_$()
30340A%=!J%
30345Z%=FNmenuList("CLSuppliers","CSuppList",A%,0)
30350ENDPROC
30355DEFPROCheadlistS_
30360LOCAL Z%,A%
30365Z%=FNrR("Menus","HeadListS")
30370LheadS_$()=""
30375PROCuplheads_
30380A%=J%
30385CALL!(S%!164+20),LheadS_$()
30390A%=!J%
30395Z%=FNmenuList("LheadS","HeadListS",A%,0)
30400ENDPROC
30405DEFPROCheadlistP_
30410LOCAL Z%,A%
30415Z%=FNrR("Menus","HeadListP")
30420LheadP_$()=""
30425PROCuplheadp_
30430A%=J%
30435CALL!(S%!164+20),LheadP_$()
30440A%=!J%
30445Z%=FNmenuList("LheadP","HeadListP",A%,0)
30450ENDPROC
30455DEFPROCbanklist_
30460LOCAL Z%,A%
30465Z%=FNrR("Menus","BankList")
30470Lbank_$()=""
30475PROCuplbank_
30480A%=J%
30485CALL!(S%!164+20),Lbank_$()
30490A%=!J%
30495Z%=FNmenuList("Lbank","BankList",A%,0)
30500ENDPROC
30505DEFPROCinvlist_
30510LOCAL Z%,A%
30515Z%=FNrR("Menus","InvL")
30520invl_$()=""
30525PROCuplinv_
30530A%=J%:CALL!(S%!164+20),invl_$():A%=!J%
30535Z%=FNmenuList("invl","InvL",A%,0)
30540ENDPROC
30545DEFPROCfontlist_
30550LOCAL Z%,A%,temp_%
30555Z%=FNrR("Menus","FontList")
30560Lfo_$()=""
30565PROCupfont_
30570A%=J%
30575CALL!(S%!164+20),Lfo_$()
30580A%=!J%
30585Z%=FNmenuList("LFontname","FontList",A%,0)
30590FORtemp_%=0TOmaxifont_%:Ofontname_$(temp_%)=Fo_$(temp_%):NEXT
30595ENDPROC
30600
30635DEFPROCuplinv_
30640LOCAL temp_$,temp_%
30645FORtemp_%=0TO100
30650temp_$=LEFT$(invL_$(temp_%),20):temp_$=temp_$+STRING$(20-LEN(temp_$)," "):invl_$(temp_%+1)=temp_$+CHR$(0)
30655NEXT
30660ENDPROC
30665
30670DEFPROCuplheads_:LOCAL temp_$,temp_%,a_%:FORtemp_%=0TO12:temp_$=CHR$(temp_%+64)+":"+LEFT$(Shead1_$(temp_%),16):temp_$=temp_$+STRING$(18-LEN(temp_$)," "):LheadS_$(temp_%)=temp_$+CHR$(0):NEXT
30675FORtemp_%=13TO108:IFtemp_%MOD8<>5:temp_$=" "+CHR$(a_%)+":"+LEFT$(Shead1_$(temp_%),15):a_%+=1:ELSEtemp_$=CHR$(temp_%/8+64)+"a"+":"+LEFT$(Shead1_$(temp_%),15):a_%=98
30680temp_$=temp_$+STRING$(18-LEN(temp_$)," "):LheadS_$(temp_%)=temp_$+CHR$(0):NEXT:ENDPROC
30685DEFPROCuplheadp_:LOCAL temp_$,temp_%,a_%:FORtemp_%=0TO12:temp_$=CHR$(temp_%+64)+":"+LEFT$(Phead1_$(temp_%),16):temp_$=temp_$+STRING$(18-LEN(temp_$)," "):LheadP_$(temp_%)=temp_$+CHR$(0):NEXT
30690FORtemp_%=13TO108:IFtemp_%MOD8<>5:temp_$=" "+CHR$(a_%)+":"+LEFT$(Phead1_$(temp_%),15):a_%+=1:ELSEtemp_$=CHR$(temp_%/8+64)+"a"+":"+LEFT$(Phead1_$(temp_%),15):a_%=98
30695temp_$=temp_$+STRING$(18-LEN(temp_$)," "):LheadP_$(temp_%)=temp_$+CHR$(0):NEXT:ENDPROC
30700DEFPROCuplbank_:LOCAL temp_$,temp_%:FORtemp_%=0TO12:temp_$=CHR$(temp_%+64)+":"+LEFT$(BankNN_$(temp_%),16):temp_$=temp_$+STRING$(18-LEN(temp_$)," "):Lbank_$(temp_%)=temp_$+CHR$(0):NEXT:ENDPROC
30705DEFPROCCuplsup_
30710LOCAL temp_$,temp_%
30715FORtemp_%=0TOCmaxsupp_%
30720temp_$=LEFT$(CSuppliers_$(temp_%),maxsuplen_%):temp_$=temp_$+STRING$(maxsuplen_%-LEN(temp_$)," "):CLSuppliers_$(temp_%)=temp_$+CHR$(0)
30725NEXT
30730ENDPROC
30735DEFPROCupfont_
30740LOCAL temp_$,temp_%
30745FORtemp_%=0TOmaxifont_%
30750temp_$=LEFT$(Fo_$(temp_%),maxfonlen_%):temp_$=temp_$+STRING$(maxfonlen_%-LEN(temp_$)," "):Lfo_$(temp_%+1)=temp_$+CHR$(0)
30755NEXT
30760ENDPROC
30765
30770DEFPROColdfont_
30775LOCAL A%,B%,C%,OK_%,a_%
30780IFFNtrans_("<Font$Path>")=""THENfhandle_%()=0:ENDPROC
30785t1_%()=0:IOrderch%()=0
30790SYS&406C0
30795FORC%=1TOmaxifont_%
30800OK_%=0:FORA%=1TOmaxifont_%
30805IFOfontname_$(C%)=""THENA%=maxifont_%:C%=maxifont_% ELSEIFOfontname_$(C%)=Fo_$(A%)THENOK_%=A%:A%=maxifont_%
30810NEXT
30815IFFNchanfont_(C%,OK_%)=1:IFOK_%=0ANDOfontname_$(C%)<>"":IFerror_%=0:SYS&406C1:PROCpe_("Font '"+Ofontname_$(C%)+"' not found. Replaced by '"+Fo_$(0)+"'."):SYS&406C0
30820NEXT
30825Ofontname_$()="":FORA%=0TOmaxifont_%:Ofontname_$(A%)=Fo_$(A%):NEXT
30830IOrderch%()=1
30835SYS&406C1
30840ENDPROC
30845
30850DEFFNchanfont_(A_%,B_%)
30855LOCAL C%,Z%,a_%:a_%=0
30885IFt1_%(5)=0:IFj_f5%=A_%THENj_f5%=B_%:t1_%(5)=1:a_%=1:IFCLabSu%>0THEN$!CSfontname_%=Fo_$(B_%):PROCrI(CLabSu%,"CSfontname")
30890IFt1_%(6)=0:IFj_f6%=A_%THENj_f6%=B_%:t1_%(6)=1:a_%=1:IFCSLsu%>0THEN$!CSLfname_%=Fo_$(B_%):PROCrI(CSLsu%,"CSLfname")
30900IFt1_%(8)=0:IFSaledR_%(15)=A_%THENSaledR_%(15)=B_%:t1_%(8)=1:a_%=1
30905IFt1_%(9)=0:IFPaledR_%(15)=A_%THENPaledR_%(15)=B_%:t1_%(9)=1:a_%=1
30910IFt1_%(10)=0:IFBaledR_%(9)=A_%THENBaledR_%(9)=B_%:t1_%(10)=1:a_%=1
30915IFt1_%(11)=0:IFXnam_%=A_%THENXnam_%=B_%:t1_%(11)=1:a_%=1
30920IFt1_%(12)=0:IFVatC_%(8)=A_%THENVatC_%(8)=B_%:t1_%(12)=1:a_%=1
30945FORC%=2TOIOicons%
30950IFIOrderch%(C%)=0:IFIOrderF_%(C%)=A_%THENIOrderF_%(C%)=B_%:IOrderch%(C%)=1:a_%=1:IFIOrderF1_%(C%)>0THENIOrderF1_%(C%)=FNlosefont_(IOrderF1_%(C%)):IOrderF1_%(C%)=FNfindfont_(IOrderF_%(C%),IOrderfx_%(C%),IOrderfy_%(C%))
30955NEXT
30975=a_%
30980
31015DEFFNIinitOrder_:IOborder%=-IOborder%:IOruler%=-IOruler%:PROCIOiniticons_:PROCIOinitfonts_:=TRUE
31025
31045DEFPROCIOinitfonts_
31047LOCAL Z_%
31050FORZ_%=2TOIOicons%:IOrderF1_%(Z_%)=FNfindfont_(IOrderF_%(Z_%),IOrderfx_%(Z_%),IOrderfy_%(Z_%)):NEXT
31055ENDPROC
31105DEFPROCIOiniticons_:IFIOch_%=1ANDOrderC_%!0=0THENENDPROC
31110$!IOtitle_%=IOrderS_$(2):$!IOhead_%=IOrderS_$(3):$!IOname_%=IOrderS_$(5):$!IOadd11_%=IOrderS_$(6):$!IOadd22_%=IOrderS_$(7):$!IOadd33_%=IOrderS_$(8):$!IOadd44_%=IOrderS_$(9):$!IOadd55_%=IOrderS_$(10)
31115$!IOtel_%=IOrderS_$(12):$!IOfax_%=IOrderS_$(13):$!IOsuppref_%=IOrderS_$(14):$!IOyourref_%=IOrderS_$(15):$!IOnumber_%=IOrderS_$(16):$!IOdate_%=IOrderS_$(20):$!IOde_%=IOrderS_$(21):$!IOtext1_%=IOrderS_$(22)
31120$!IOdata1_%=IOrderS_$(23):$!IOdata2_%=IOrderS_$(24):$!IOdata3_%=IOrderS_$(25):$!IOdata4_%=IOrderS_$(26):$!IOdata5_%=IOrderS_$(27):$!IOdata6_%=IOrderS_$(30):$!IOtext2_%=IOrderS_$(28):$!IOtext3_%=IOrderS_$(29)
31125$!IOtext4_%=IOrderS_$(32):$!IOtext5_%=IOrderS_$(33):$!IOtext6_%=IOrderS_$(34):$!IOtext7_%=IOrderS_$(35):$!IOtext8_%=IOrderS_$(36):$!IOtext9_%=IOrderS_$(37):$!IOtext10_%=IOrderS_$(38):$!IOtext11_%=IOrderS_$(39)
31130$!IOpage_%=IOrderS_$(40):$!IOdisc_%=IOrderS_$(42):$!IOvat_%=IOrderS_$(43):$!IOesdt_%=IOrderS_$(44):$!IOest_%=IOrderS_$(45):$!IOvt_%=IOrderS_$(46):$!IOnt_%=IOrderS_$(47):$!IOvnt_%=IOrderS_$(48):$!IOvr_%=IOrderS_$(49)
31135$!IOva_%=IOrderS_$(50):$!IOvdt_%=IOrderS_$(51):$!IOpost_%=IOrderS_$(11):$!IOdata12_%=IOrderS_$(56):$!IOnr_%=IOrderS_$(19)
31140ENDPROC
31180
31185DEFFNupdateOrder_(W_%)
31190LOCAL A%,B%,D%,E%,Z%,a_%
31195LOCAL ERROR
31200ON ERROR LOCAL:RESTORE ERROR:PROCpe_(FNerr_):=FALSE
31255IFW_%=2THEN
31260IFIOpage%=0THENSYS&406C0
31265IFIOch_%=1THENZ%=FNIOBorder_:Z%=FNIORuler_
31270IFipos_%=7THENPROCIordermpI_:ipos_%=0
31275IOrderS_$(2)=$!IOtitle_%:IOrderS_$(3)=$!IOhead_%:IOrderS_$(4)=$!IOsupplier_%:IOrderS_$(14)=$!IOsuppref_%:IOrderS_$(15)=$!IOyourref_%:IOrderS_$(16)=$!IOnumber_%:IOrderS_$(17)=$!IOsr_%:IOrderS_$(18)=$!IOyr_%
31280IOrderS_$(57)=$!IOdeliver_%:IOrderS_$(20)=$!IOdate_%:IOrderS_$(21)=MID$(TIME$,5,11):IOrderS_$(22)=$!IOtext1_%:IOrderS_$(23)=$!IOdata1_%:IOrderS_$(24)=$!IOdata2_%:IOrderS_$(25)=$!IOdata3_%:IOrderS_$(26)=$!IOdata4_%
31285IOrderS_$(27)=$!IOdata5_%:IOrderS_$(28)=$!IOtext2_%:IOrderS_$(29)=$!IOtext3_%:IOrderS_$(30)=$!IOdata6_%:IOrderS_$(31)=$!IOdata7_%:IOrderS_$(32)=$!IOtext4_%:IOrderS_$(33)=$!IOtext5_%:IOrderS_$(34)=$!IOtext6_%
31290IOrderS_$(35)=$!IOtext7_%:IOrderS_$(36)=$!IOtext8_%:IOrderS_$(37)=$!IOtext9_%:IOrderS_$(38)=$!IOtext10_%:IOrderS_$(39)=$!IOtext11_%:IOrderS_$(40)=$!IOpage_%:IOrderS_$(41)=$!IOpe_%:IOrderS_$(42)=$!IOdisc_%
31295IOrderS_$(43)=$!IOvat_%:IOrderS_$(44)=$!IOesdt_%:IOrderS_$(45)=$!IOest_%:IOrderS_$(46)=$!IOvt_%:IOrderS_$(47)=$!IOnt_%:IOrderS_$(48)=$!IOvnt_%:IOrderS_$(49)=$!IOvr_%:IOrderS_$(50)=$!IOva_%:IOrderS_$(51)=$!IOvdt_%
31300IOrderS_$(52)=$!IOdata8_%:IOrderS_$(53)=$!IOdata9_%:IOrderS_$(54)=$!IOdata10_%:IOrderS_$(55)=$!IOdata11_%
31305PROCIOiniticons_
31310ENDIF
31370A%=modex%:B%=modey%
31375SYS&35,-1,4 TO ,,modex%
31380SYS&35,-1,5 TO ,,modey%
31385E%=fonlink_%
31425IFW_%=2THEN
31430IFA%<>modex%ORB%<>modey%THENZ%=FNIloseOfonts_:PROCIOinitfonts_
31435FORZ%=Iori_%TOIOicons%:IFIOch_%=1:IFOrderC_%!0=0THENipos_%=7:IFZ%>4ANDZ%<14THENipos_%=0
31440IFIOrderch%(Z%)=1THENfonlink_%=Z%+IAfon_%:PROCIordermpI_:IOjust_%(Z%)=FNOtitleF_(Z%,2)
31445NEXT
31450D%=IOwind%:IFIOch_%=1THENipos_%=0:IOch_%=0
31455ENDIF
31495fonlink_%=E%
31500PROCOpagesize_(W_%)
31505block_%!0=D%
31510SYS&400CC,,block_%
31515IFOpaper3%>block_%!52OROpaper2%<block_%!48OROpaper3%<block_%!52OROpaper2%>block_%!48THENblock_%!0=0:block_%!4=Opaper2%:block_%!8=Opaper3%:block_%!12=0:SYS&400D7,D%,block_%
31520IFerror_%=0:SYS&400CF,,cblock_%:a_%=cblock_%!12:IFcblock_%!12=D%:cblock_%!0=cblock_%!12:SYS&400CB,,cblock_%:IF(cblock_%!32>>27)MOD2:IF(cblock_%!32>>18)MOD2THENPROCseewind_(D%,-1)
31530IFW_%=2:IFIOpage%=0THENSYS&406C1
31545IFW_%=2:IF$wn%="InvoiceW":IFR%=12ORR%=5:SYS&400D3,,block_%:SYS&400CF,,cblock_%:IFcblock_%!12=IOwind%:IFblock_%!0<>IOwind%:PROCsetC1_(IOwind%,wf2_%)
31555=TRUE
31560
31565DEFPROCseewind1_:LOCAL pix%,piy%,modex%,modey%
31570IFQ%!12-Q%!4<Q%!52-Q%!44ORQ%!16-Q%!8<Q%!56-Q%!48THEN
31575SYS&35,-1,4 TO ,,modex%:SYS&35,-1,5 TO ,,modey%:SYS&35,-1,11 TO ,,pix%:pix%=pix%*2*modex%:SYS&35,-1,12 TO ,,piy%:piy%=piy%*2*modey%
31580Q%!4=0:Q%!12=Q%!52-Q%!44:IFQ%!12>pix%THENQ%!12=pix%
31585Q%!16=piy%-40:Q%!8=piy%-(Q%!56-Q%!48)-40:IFQ%!8<40THENQ%!8=40
31590ENDIF
31595ENDPROC
31600
31605DEFPROCseewind_(W_%,I_%)
31610IFW_%<0THENENDPROC
31615LOCAL iconx1%,iconx2%,visx1%,visx2%,workx1%,workx2%,pix%,piy%,scrx%,scry%,Z%
31620LOCAL icony1%,icony2%,visy1%,visy2%,worky1%,worky2%,modex%,modey%,Z%
31625block_%!0=W_%:block_%!4=I_%
31630SYS&35,-1,4 TO ,,modex%
31635SYS&35,-1,5 TO ,,modey%
31640SYS&35,-1,11 TO ,,pix%:pix%=pix%*2*modex%
31645SYS&35,-1,12 TO ,,piy%:piy%=piy%*2*modey%
31650IFI_%>-1THENSYS&400CE,,block_%:iconx1%=block_%!8:icony1%=block_%!12:iconx2%=block_%!16:icony2%=block_%!20:IFblock_%!0<>W_%THENI_%=-1
31655block_%!0=W_%:SYS&400CC,,block_%:workx1%=block_%!44:worky1%=block_%!48:workx2%=block_%!52:worky2%=block_%!56:visx1%=block_%!4:visy1%=block_%!8:visx2%=block_%!12:visy2%=block_%!16:scrx%=block_%!20:scry%=block_%!24
31660IFvisx1%<0THENblock_%!4=0:block_%!12=block_%!12+ABS(visx1%):Z%=1
31665IFvisy2%>piy%-40THENblock_%!16=piy%-40:block_%!8=block_%!8-(visy2%-(piy%-40)):Z%=1
31670IFblock_%!12>pix%THENblock_%!4=block_%!4-(block_%!12-pix%)-40:block_%!12=pix%-40:Z%=1:IFblock_%!4<0THENblock_%!4=0
31675IFblock_%!8<0THENblock_%!8=40:block_%!16=block_%!16+ABS(visy1%)+40:Z%=1:IFblock_%!16>piy%-40THENblock_%!16=piy%-40
31680IFI_%>-1THEN
31685IFiconx1%<block_%!20THENblock_%!20=iconx1%:Z%=1
31690IFiconx2%>block_%!20+(block_%!12-block_%!4)THENblock_%!20=iconx1%:Z%=1
31695IFicony1%<block_%!24-(block_%!16-block_%!8)THENblock_%!24=icony2%:Z%=1
31700IFicony2%>block_%!24THENblock_%!24=icony2%:Z%=1
31705ENDIF
31710IFZ%=1THENblock_%!0=W_%:SYS&400C5,,block_%
31715ENDPROC
31720
31725DEFPROCordermf_
31735IFlw_%=2:IFIOwind%=0THENENDPROC
31745IFR%<5ORR%>7ANDR%<>12THENENDPROC
31750LOCAL Z%
31755!b%=0
31765IFlw_%=2:Z%=FNIOrderf_:ENDPROC
31775ENDPROC
31780
31785DEFFNIOrderfu_
31790LOCAL A%,Z%
31795OrderFU_%=FNfontnum(OrderFU_%)
31800$!IOrderfu_%=Fo_$(OrderFU_%):PROCrI(W%,"IOrderfu")
31840IFfonlink_%=9THEN
31845FORA%=2TOIOicons%
31850IOrderfx_%(A%)=VAL($!IOrderfxu_%):IOrderfy_%(A%)=VAL($!IOrderfyu_%)
31855IOrderF_%(A%)=OrderFU_%
31860Z%=FNlosefont_(IOrderF1_%(A%)):IOrderF1_%(A%)=FNfindfont_(IOrderF_%(A%),IOrderfx_%(A%),IOrderfy_%(A%)):IOrderch%(A%)=1
31865NEXT:Z%=FNupdateOrder_(2)
31870ENDIF
31910=TRUE
31915
31920DEFFNIOrderfxu_:!b%=0:=FNIOrderfu_
31925DEFFNIOrderfyu_:!b%=0:=FNIOrderfu_
31926DEFFNOrderfx_:!b%=0:=FNIOrderf_
31927DEFFNOrderfy_:!b%=0:=FNIOrderf_
31928DEFFNOrderf_:=FNIOrderf_
31975DEFFNIOrderf_
31980LOCAL A%,Z%
31985A%=fonlink_%-IAfon_%:IFA%<2ORA%>IOicons%THEN=FALSE
31990IFR%<>12THENIOrderfx_%(A%)=VAL($!Orderfx_%):IOrderfy_%(A%)=VAL($!Orderfy_%)
31995IOrderF_%(A%)=FNfontnum(IOrderF_%(A%)):$!Orderf_%=Fo_$(IOrderF_%(A%)):$!Orderfx_%=STR$(IOrderfx_%(A%)):$!Orderfy_%=STR$(IOrderfy_%(A%)):IF$wn%="OrderMF":PROCrI(W%,"Orderf"):PROCrI(W%,"Orderfx"):PROCrI(W%,"Orderfy")
32000Z%=FNlosefont_(IOrderF1_%(A%)):IOrderF1_%(A%)=FNfindfont_(IOrderF_%(A%),IOrderfx_%(A%),IOrderfy_%(A%)):IOrderch%(A%)=1
32005=FNupdateOrder_(2)
32105DEFPROCIordermp_
32110LOCAL Z%
32115IFR%<4ORR%>13ANDR%<>256THENENDPROC
32120IFIOwind%=0ORfonlink_%<IAfon_%+2ORfonlink_%-IAfon_%>IOicons%THENENDPROC
32125Z%=fonlink_%-IAfon_%
32130IFIOrdermx_(Z%)<>0ORIOrdermy_(Z%)<>0THEN$!IOrderjx_%=STR$(IOrdermx_(Z%)):$!IOrderjy_%=STR$(IOrdermy_(Z%)) ELSEipos_%=7
32135IFR%=11ORR%=256THENPROCIordermpI_
32140IOrdermx_(Z%)=VAL($!IOrderjx_%):IOrdermy_(Z%)=VAL($!IOrderjy_%):IOrderch%(Z%)=1
32145ENDPROC
32265DEFPROCIordermpI_
32270LOCAL A,B,C%,Z%
32275IFIOwind%=0ORfonlink_%<IAfon_%+2ORfonlink_%-IAfon_%>IOicons%THENENDPROC
32280Z%=fonlink_%-IAfon_%
32285IFipos_%=7ORIOrdermx_(Z%)+IOrdermy_(Z%)=0THEN
32290PROCgeticon_(IOwind%,Z%):A=block_%!8:C%=FNOstrlen_(IOrderF1_%(Z%),IOrderS_$(Z%))
32295IFIOjust_%(Z%)=0THENA=A+charx_
32300IFIOjust_%(Z%)=1THENA=A+Otw/2
32305IFIOjust_%(Z%)=2THENA=A+Otw-charx_
32310A=A/rule_:B=ABS((block_%!12+chary_)/rule_):IFA<0THENA=0
32315IF$wn%="OrderMPI"THEN$!IOrderjx_%=STR$(A):$!IOrderjy_%=STR$(B):PROCrI(W%,"IOrderjx"):PROCrI(W%,"IOrderjy")
32320IOrdermx_(Z%)=A:IOrdermy_(Z%)=B
32325ENDIF
32330ENDPROC
32405
32430DEFFNIOrderJ_
32435LOCAL A%,Z%
32440A%=fonlink_%-IAfon_%
32445ipos_%=7:IOjust_%(A%)=I%:PROCtMIx("OrderMPI",I%):IOrderch%(A%)=1:=TRUE
32480DEFFNIOrderjx_:PROCIOsetmp_:=FNupdateOrder_(2)
32495DEFFNIOrderjy_:PROCIOsetmp_:=FNupdateOrder_(2)
32530DEFPROCIOsetmp_
32535LOCAL A%
32540A%=fonlink_%-IAfon_%
32545ipos_%=0:IOrdermx_(A%)=VAL($!IOrderjx_%):IOrdermy_(A%)=VAL($!IOrderjy_%):IOrderch%(A%)=1
32550ENDPROC
32580
32795DEFPROCgetWind_(temp_%,W_%)
32800LOCAL A%,B%,C%,D%,E%,A_%
32815IFtemp_%=0THENENDPROC
32820IFR%=193ANDtemp_%!0<>0ANDW_%<4THEN
32825A_%=1:IFNewPref_%(3)<128THENA_%=0:REM 1 extra icon in order/invoice after V127
32835IFW_%=2THENB%=IOicons%+A_%:B%=B%*32+84
32845FORA%=4 TO B% STEP4
32850IFA%=32THENA%+=4
32855IFA%=60THENA%+=4
32860IFA%=68THENA%+=4
32865IFA%=76THENA%+=12
32870IFA%=88THENA%+=68
32875Q%!A%=temp_%!A%
32880IF(A%-92)MOD32=12THENA%=A%+16
32885NEXT
32890ENDIF
32895IFR%=5:IFW_%>0ANDW_%<4:SYS&400CF,,oblock_%:IFoblock_%!12=IOwind%THENSYS&400D4,,-1
32900ENDPROC
32905
32910DEFPROCOpagesize_(W_%):LOCAL A%,B%
32920IFW_%=2THENA%=IOpagy_%:B%=IOpagx_%
32930Opaper1%=0:Opaper2%=-A%*rule_:Opaper2%=Opaper2%-Opaper2%MOD(2*modey%):Opaper3%=B%*rule_:Opaper3%=Opaper3%-Opaper3%MOD(2*modex%):Opaper4%=0:ENDPROC
32935
33005DEFFNinitstat_:$!Stat1_%=Stat1_$:$!Stat2_%=Stat2_$:$!Stat3_%=Stat3_$:$!SBestFr_%=STR$(SBestF_%):IFSBestP_%=1THEN$!SBestPe_%="Months" ELSE$!SBestPe_%="Days"
33010=TRUE
33015DEFFNupdatestat_:Stat1_$=$!Stat1_%:Stat2_$=$!Stat2_%:Stat3_$=$!Stat3_%:IFVAL($!SBestFr_%)<1THEN$!SBestFr_%="1":PROCrI(W%,"SBestFr")
33020IFVAL($!SBestFr_%)>12ANDSBestP_%=1THEN$!SBestFr_%="12":PROCrI(W%,"SBestFr")
33025SBestF_%=VAL($!SBestFr_%)
33030IFccred%>0THENoccred_%=0:PROCinitccred_:PROCupdateccred_(CS_%,1)
33035=TRUE
33040
33065DEFFNSBestPe_:LOCAL Z%:SBestP_%=-SBestP_%
33070IFSBestP_%=1THEN$!SBestPe_%="Months" ELSE$!SBestPe_%="Days"
33075PROCrI(W%,"SBestPe"):=FNupdatestat_
33080DEFFNSBestFr_:=FNupdatestat_
33085DEFFNStat1_:=FNupdatestat_
33090DEFFNStat2_:=FNupdatestat_
33095DEFFNStat3_:=FNupdatestat_
33100DEFFNSCust_:LOCAL Z%:IFLEFT$($!SCust_%,1)="#"THENZ%=FNsf_($!SCust_%,1):$!SCust_%="#"+STR$(Z%)+"="+CSuppliers_$(Z%):SITn2_%=Z% ELSESITn2_%=0
33105PROCSFirst_:=FNupdatestat_
33110
34000DEFFNinitUser_:LOCALA%:$!Uname_%=Unam_$:$!Uad11_%=Uad1_$:$!Uad22_%=Uad2_$:$!Uad33_%=Uad3_$:$!Uad44_%=Uad4_$:$!Uad55_%=Uad5_$:$!Upost_%=Upos_$:$!Utel_%=Ute_$:$!Ufax_%=Ufa_$:$!Uvat_%=Uva_$:$!usname_%=usname_$:$!Tname_%=Tnam_$
34005=FALSE
34010DEFFNupdateUser_:LOCAL Z%:Unam_$=$!Uname_%:Uad1_$=$!Uad11_%:Uad2_$=$!Uad22_%:Uad3_$=$!Uad33_%:Uad4_$=$!Uad44_%:Uad5_$=$!Uad55_%:Upos_$=$!Upost_%:Ute_$=$!Utel_%:Ufa_$=$!Ufax_%:Uva_$=$!Uvat_%:Tnam_$=$!Tname_%
34015PROCIupOuser_:FORZ%=5TO13:IOrderch%(Z%)=1:NEXT:IOrderch%(56)=1:=FALSE
34025DEFPROCIupOuser_:IOrderS_$(5)=Unam_$:IOrderS_$(6)=Uad1_$:IOrderS_$(7)=Uad2_$:IOrderS_$(8)=Uad3_$:IOrderS_$(9)=Uad4_$:IOrderS_$(10)=Uad5_$:IOrderS_$(11)=Upos_$:IOrderS_$(12)=Ute_$:IOrderS_$(13)=Ufa_$:IOrderS_$(56)=Uva_$:ENDPROC
34040
34045DEFPROCupdatewind_(temp_%):temp_%!0=W%!12:SYS&400CC,,temp_%:ENDPROC
34050
34055DEFFNinitsaled_
34060sitp_%=FNfirstfreesal_(0)-4:IFsitp_%<0THENsitp_%=0
34065IFsitp_%>maxS_%*sitip_%-sitip_%THENsitp_%=maxS_%*sitip_%-sitip_%
34070Isal_%=0:$!salname_%=salname_$:IFSITap_$(0)<>"|"THENSITap_$(0)="|"
34075=TRUE
34080DEFFNinitstand_
34085titp_%=FNfirstfreetal_(0)-4:IFtitp_%<0THENtitp_%=0
34090IFtitp_%>maxT_%*sitip_%-sitip_%THENtitp_%=maxT_%*sitip_%-sitip_%
34095ISal_%=0:$!talname_%=talname_$:IFTITap_$(0)<>"|"THENTITap_$(0)="|"
34100=TRUE
34105DEFFNinitpaled_
34110pitp_%=FNfirstfreepaym_(0)-4:IFpitp_%<0THENpitp_%=0
34115IFpitp_%>maxP_%*sitip_%-sitip_%THENpitp_%=maxP_%*sitip_%-sitip_%
34120Ipal_%=0:$!palname_%=palname_$:IFPITap_$(0)<>"|"THENPITap_$(0)="|"
34125=TRUE
34130DEFFNinitbankl_
34135bitp_%=FNfirstfreebank_(0)-4:IFbitp_%<0THENbitp_%=0
34140IFbitp_%>maxB_%*bitip_%-bitip_%THENbitp_%=maxB_%*bitip_%-bitip_%
34145Ibal_%=0:=TRUE
34150
34155DEFPROCinitInvW1_:ITs_$()="":ITos_$()="":ITss_$()="|":ITsss_$()="|":ITf_%()=0:ITd_%()=0:ITt_$()="":ITr_()=0:ITn_%()=0:ITo_%()=0:itp_%=0:ENDPROC
34160
34165DEFFNinitInvW_:LOCAL Z%:supply1_%=0:$!ITda1_%=today_$:PROCinitInvW1_:ITsupnum_%=0:ITsupnumN_%=0:$!ITesd_%=STR$(ITes_%):$!ITrec_%="":Z%=FNpII(W%!12,89,LEFT$(VAT_$,1)+":Cd"):Z%=FNpII(W%!12,79,VAT_$+"tot"):IF$!ITesd_%="0"THEN$!ITesd_%=""
34170$!ITord_%="":$!ITcop_%=ITcop_$:$!ITda_%="":ITda_$="":ITnu_$="Current":$!ITnum_%="Current":$!ITsupplier_%="":$!ITDisc_%=ITdis_$:$!ITrec_%=ITre_$:$!ITpri_%=ITpric_$:$!ITacc1_%=ITacc_$:$!IThead1_%=IThead_$:$!ITcomm1_%=ITcomm_$
34175!k%=1:ITsupch_%=0:inv11_%(0)=1:$!invname_%=FNcri_:$!ITl_%=STR$(ITll_%)
34180PROCrI(W%,"invname"):=TRUE
34185
34190DEFFNITnoitems_:LOCAL A%,Z%:A%=-1:FORZ%=maxI_%*itip_%*itif_% TO1STEP-1
34195IFITs_$(Z%)<>""THENA%=Z%-1:Z%=1
34200NEXT:IFA%>-1THEN=A%/itif_%+1
34205=0
34210
34215DEFPROCgetSITdat_
34220LOCAL aa_%,a_%,b_%,A%,A_%,B_%,B%,C%,D%,E_%,E%,F%,G%,H%,Z%,Z_%,C_$,A_$,B_$:G%=t_%:H%=u_%
34225LOCAL ERROR
34230ON ERROR LOCAL:RESTORE ERROR:PROCpe_(FNerr_):ENDPROC
34235FORZ%=sitp_%TOsitp_%+4
34240A%=FNni_(SITe_$(Z%*sitif_%+9)):a_%=FNni_(SITe_$(Z%*sitif_%+6)):b_%=FNni_(SITe_$(Z%*sitif_%+8)):$t_%=SITe_$(Z%*sitif_%+4):$u_%=SITe_$(Z%*sitif_%+10):CALLm2_%
34245IF$t_%<>""THENA_%=ASC($t_%)-64:IFA_%<13THENBankCC_%(A_%)=FNadd_(BankCC_%(A_%),-A%):IF(SITs_$(Z%))=Q_$THENBankSS_%(A_%)=FNadd_(BankSS_%(A_%),-A%)
34250IFLEN($u_%)=1THEN$u_%+="A"
34255IF$u_%<>""THENA_%=ASC($u_%)-65:B_%=ASC(RIGHT$($u_%,1))-65:IFA_%<12ANDB_%<8THENA_%=A_%*40+B_%*5+2:Sheadt1_%(A_%)=FNadd_(Sheadt1_%(A_%),-A%):Sheadt1_%(A_%+2)=FNadd_(Sheadt1_%(A_%+2),-b_%):Sheadt1_%(A_%+1)=Sheadt1_%(A_%+1)-(a_%-A%)
34260NEXT
34265D%=sitp_%*sitif_%:FORZ%=1TOsitin_%:D%+=1:SITe_$(D%)=FNgId(saled%,Z%):NEXT
34270FORZ%=sitp_%TOsitp_%+4:$u_%=SITe_$(Z%*sitif_%+9):CALLm3_%:F%=ASC($u_%):A_$=LEFT$(FNgId(saled%,Z%-sitp_%+76),1):B_$=SITe_$(Z%*sitif_%+1):IFSITe_$(Z%*sitif_%+3)="":IFSITn_%(Z%+1)<>0THENSITn_%(Z%+1)=0
34275$t_%=SITe_$(Z%*sitif_%+4):$u_%=SITe_$(Z%*sitif_%+10):CALLm2_%:SITe_$(Z%*sitif_%+4)=$t_%:SITe_$(Z%*sitif_%+10)=$u_%:B%=FNni_(SITe_$(Z%*sitif_%+6)):SITa_$(Z%)="":SITh_$(Z%)="":E%=FNni_(SITe_$(Z%*sitif_%+9))
34280a_%=FNni_(SITe_$(Z%*sitif_%+6)):b_%=FNni_(SITe_$(Z%*sitif_%+8))
34285IFF%>0THEN
34290IFF%=85THENA_$="U":SITe_$(Z%*sitif_%+9)="":E%=0
34295IFF%=80THENA_$="P":SITe_$(Z%*sitif_%+9)=FNconvis_(B%,""):E%=B%
34300IFF%=82ANDE%=0THENA_$="R":SITe_$(Z%*sitif_%+9)=FNconvis_(B%,""):E%=B%
34305IFF%=82ANDE%<>0THENA_$="R":SITe_$(Z%*sitif_%+9)=FNconvis_(E%,"")
34310Z_%=FNpII(saled%,(Z%-sitp_%)*sitif_%+9,SITe_$(Z%*sitif_%+9))
34315ENDIF
34320IFA_$="R"THENSITs_$(Z%)=Q_$ ELSEIFB%=E%THENSITs_$(Z%)="Paid" ELSEIFABS(B%)>ABS(E%)ANDE%<>0THENSITs_$(Z%)="part-Paid" ELSEIFABS(B%)<ABS(E%)ANDE%<>0THENSITs_$(Z%)="over-Paid" ELSESITs_$(Z%)="Unpaid"
34325IFB_$=""THENSITs_$(Z%)=""
34330IF$t_%<>"":A_%=ASC($t_%)-64:IFA_%<13THENSITa_$(Z%)=BankNN_$(A_%):BankCC_%(A_%)=FNadd_(BankCC_%(A_%),E%):IF(SITs_$(Z%))=Q_$BankSS_%(A_%)=FNadd_(BankSS_%(A_%),E%)
34335IF$u_%<>""THEN
34340IFLEN($u_%)=1THEN$u_%+="A":SITe_$(Z%*sitif_%+10)=$u_%
34345A_%=ASC($u_%)-65:B_%=ASC(RIGHT$($u_%,1))-65:aa_%=A_%*40+B_%*5+2
34350IFA_%<12ANDB_%<8THENSITh_$(Z%)=Shead1_$(A_%+1):A_%=A_%*8+12+B_%+1:SITh_$(Z%)=SITh_$(Z%)+":"+Shead1_$(A_%):Sheadt1_%(aa_%)=FNadd_(Sheadt1_%(aa_%),E%):Sheadt1_%(aa_%+2)=FNadd_(Sheadt1_%(aa_%+2),b_%):Sheadt1_%(aa_%+1)=Sheadt1_%(aa_%+1)+(a_%-E%)
34355ENDIF
34360IFFNgId(saled%,Z%-sitp_%+66)<>SITa_$(Z%)THENZ_%=FNpII(saled%,Z%-sitp_%+66,SITa_$(Z%))
34365IFFNgId(saled%,Z%-sitp_%+71)<>SITh_$(Z%)THENZ_%=FNpII(saled%,Z%-sitp_%+71,SITh_$(Z%))
34370IFFNgId(saled%,Z%-sitp_%+76)<>SITs_$(Z%)THENZ_%=FNpII(saled%,Z%-sitp_%+76,SITs_$(Z%))
34375NEXT
34380Z%=FNupdatebank_:Z%=FNupdateheadsM_(1):saledp_%=FNsp_(saled%,saledp_%):ENDPROC
34385DEFPROCgetTITdat_
34390LOCAL D%,G%,H%,Z%:G%=t_%:H%=u_%
34395LOCAL ERROR
34400ON ERROR LOCAL:RESTORE ERROR:PROCpe_(FNerr_):ENDPROC
34405D%=titp_%*sitif_%:FORZ%=1TOsitin_%:D%+=1:TITe_$(D%)=FNgId(stand%,Z%):NEXT
34410FORZ%=titp_%TOtitp_%+4:TITa_$(Z%)="":TITh_$(Z%)="":TITs_$(Z%)=""
34415$t_%=TITe_$(Z%*sitif_%+4):$u_%=TITe_$(Z%*sitif_%+10):CALLm2_%:TITe_$(Z%*sitif_%+4)=$t_%:TITe_$(Z%*sitif_%+10)=$u_%:TITa_$(Z%)=FNgetbank_($t_%)
34420IFTITe_%(Z%)=1THENTITh_$(Z%)=FNgetheadS_($u_%) ELSETITh_$(Z%)=FNgetheadP_($u_%)
34425TITe_$(Z%*sitif_%+9)=TITe_$(Z%*sitif_%+6):IFTITe_$(Z%*sitif_%+6)<>""THENTITs_$(Z%)="Paid"
34430IFFNgId(stand%,(Z%-titp_%)*sitif_%+9)<>TITe_$(Z%*sitif_%+6)THENZ_%=FNpII(stand%,(Z%-titp_%)*sitif_%+9,TITe_$(Z%*sitif_%+6))
34435IFFNgId(stand%,Z%-titp_%+66)<>TITa_$(Z%)THENZ_%=FNpII(stand%,Z%-titp_%+66,TITa_$(Z%))
34440IFFNgId(stand%,Z%-titp_%+71)<>TITh_$(Z%)THENZ_%=FNpII(stand%,Z%-titp_%+71,TITh_$(Z%))
34445IFFNgId(stand%,Z%-titp_%+76)<>TITs_$(Z%)THENZ_%=FNpII(stand%,Z%-titp_%+76,TITs_$(Z%))
34450NEXT
34455ENDPROC
34460
34465DEFPROCsavesaleledger2_(Z%,c_%):LOCAL aa_%,b_%,A%,A_%,B_%,B%,C%,D%,E_%,E%,G%,H%,Z_%,C_$,A_$:G%=t_%:H%=u_%
34470SITs_$(Z%)="":SITa_$(Z%)="":SITh_$(Z%)="":$t_%=SITe_$(Z%*sitif_%+4):$u_%=SITe_$(Z%*sitif_%+10):CALLm2_%:SITe_$(Z%*sitif_%+4)=$t_%:SITe_$(Z%*sitif_%+10)=$u_%
34475E%=FNni_(SITe_$(Z%*sitif_%+9)):B%=FNni_(SITe_$(Z%*sitif_%+6)):b_%=FNni_(SITe_$(Z%*sitif_%+8))
34480IFc_%=1THENSITn_%(Z%+1)=CSuNumber_%(VAL($!ITrecd_%)) ELSEIFc_%=0:SITn_%(Z%+1)=FNgetcup_(SITe_$(Z%*sitif_%+3)):IFSITn_%(Z%+1)>0:SITe_$(Z%*sitif_%+3)=oc_$
34485IFB%=E%ANDolddata_$(11)=""THENSITs_$(Z%)="Paid" ELSEIFolddata_$(11)="R"THENSITs_$(Z%)=Q_$ ELSESITs_$(Z%)="Unpaid"
34490IFSITe_$(Z%*sitif_%+4)<>"":A_%=ASC(SITe_$(Z%*sitif_%+4))-64:IFA_%<13ANDA_%>0THENSITa_$(Z%)=BankNN_$(A_%):IFE%<>0THENBankCC_%(A_%)=FNadd_(BankCC_%(A_%),E%):IF(SITs_$(Z%))=Q_$BankSS_%(A_%)=FNadd_(BankSS_%(A_%),E%)
34495IF$u_%<>""THEN
34500IFLEN($u_%)=1THEN$u_%+="A":SITe_$(Z%*sitif_%+10)=$u_%
34505A_%=ASC($u_%)-65:B_%=ASC(RIGHT$($u_%,1))-65:aa_%=A_%*40+B_%*5+2
34510IFA_%<12ANDB_%<8THENSITh_$(Z%)=Shead1_$(A_%+1):A_%=A_%*8+12+B_%+1:SITh_$(Z%)=SITh_$(Z%)+":"+Shead1_$(A_%):Sheadt1_%(aa_%)=FNadd_(Sheadt1_%(aa_%),E%):Sheadt1_%(aa_%+2)=FNadd_(Sheadt1_%(aa_%+2),b_%):Sheadt1_%(aa_%+1)=Sheadt1_%(aa_%+1)+(B%-E%)
34515ENDIF
34520IFsaled%>0THEN
34525IFFNgId(saled%,Z%-sitp_%+66)<>SITa_$(Z%)THENZ_%=FNpII(saled%,Z%-sitp_%+66,SITa_$(Z%))
34530IFFNgId(saled%,Z%-sitp_%+71)<>SITh_$(Z%)THENZ_%=FNpII(saled%,Z%-sitp_%+71,SITh_$(Z%))
34535IFFNgId(saled%,Z%-sitp_%+76)<>SITs_$(Z%)THENZ_%=FNpII(saled%,Z%-sitp_%+76,SITs_$(Z%))
34540PROCsetSITdat_(0)
34545ENDIF
34550Z%=FNupdatebank_:Z%=FNupdateheadsM_(1):ENDPROC
34555
34560DEFPROCsavepurchledger2_(Z%,c_%):LOCAL aa_%,b_%,A%,A_%,B_%,B%,C%,D%,E_%,E%,G%,H%,Z_%,C_$,A_$:G%=t_%:H%=u_%
34565PITs_$(Z%)="":PITa_$(Z%)="":PITh_$(Z%)="":$t_%=PITe_$(Z%*sitif_%+4):$u_%=PITe_$(Z%*sitif_%+10):CALLm2_%:PITe_$(Z%*sitif_%+4)=$t_%:PITe_$(Z%*sitif_%+10)=$u_%
34570E%=FNni_(PITe_$(Z%*sitif_%+9)):B%=FNni_(PITe_$(Z%*sitif_%+6)):b_%=FNni_(PITe_$(Z%*sitif_%+8))
34575IFc_%=0:PITn_%(Z%+1)=0
34580IFB%=E%ANDolddata_$(11)=""THENPITs_$(Z%)="Paid" ELSEIFolddata_$(11)="R"THENPITs_$(Z%)=Q_$ ELSEPITs_$(Z%)="Unpaid"
34585IFPITe_$(Z%*sitif_%+4)<>"":A_%=ASC(PITe_$(Z%*sitif_%+4))-64:IFA_%<13ANDA_%>0THENPITa_$(Z%)=BankNN_$(A_%):IFE%<>0THENBankCC_%(A_%)=FNadd_(BankCC_%(A_%),-E%):IF(PITs_$(Z%))=Q_$BankSS_%(A_%)=FNadd_(BankSS_%(A_%),-E%)
34590IF$u_%<>""THEN
34595IFLEN($u_%)=1THEN$u_%+="A":PITe_$(Z%*sitif_%+10)=$u_%
34600A_%=ASC($u_%)-65:B_%=ASC(RIGHT$($u_%,1))-65:aa_%=A_%*40+B_%*5+2
34605IFA_%<12ANDB_%<8THENPITh_$(Z%)=Phead1_$(A_%+1):A_%=A_%*8+12+B_%+1:PITh_$(Z%)=PITh_$(Z%)+":"+Phead1_$(A_%):Pheadt1_%(aa_%)=FNadd_(Pheadt1_%(aa_%),E%):Pheadt1_%(aa_%+2)=FNadd_(Pheadt1_%(aa_%+2),b_%):Pheadt1_%(aa_%+1)=Pheadt1_%(aa_%+1)+(B%-E%)
34610ENDIF
34615IFpaled%>0THEN
34620IFFNgId(paled%,Z%-pitp_%+66)<>PITa_$(Z%)THENZ_%=FNpII(paled%,Z%-pitp_%+66,PITa_$(Z%))
34625IFFNgId(paled%,Z%-pitp_%+71)<>PITh_$(Z%)THENZ_%=FNpII(paled%,Z%-pitp_%+71,PITh_$(Z%))
34630IFFNgId(paled%,Z%-pitp_%+76)<>PITs_$(Z%)THENZ_%=FNpII(paled%,Z%-pitp_%+76,PITs_$(Z%))
34635PROCsetPITdat_(0)
34640ENDIF
34645Z%=FNupdatebank_:Z%=FNupdateheadpM_(1):ENDPROC
34650
34655DEFPROCgetPITdat_
34660LOCAL aa_%,a_%,b_%,A%,A_%,B_%,B%,C%,D%,E_%,E%,F%,G%,H%,Z%,Z_%,C_$,A_$,B_$:G%=t_%:H%=u_%
34665LOCAL ERROR
34670ON ERROR LOCAL:RESTORE ERROR:PROCpe_(FNerr_):ENDPROC
34675FORZ%=pitp_%TOpitp_%+4
34680A%=FNni_(PITe_$(Z%*sitif_%+9)):a_%=FNni_(PITe_$(Z%*sitif_%+6)):b_%=FNni_(PITe_$(Z%*sitif_%+8)):$t_%=PITe_$(Z%*sitif_%+4):$u_%=PITe_$(Z%*sitif_%+10):CALLm2_%
34685IF$t_%<>""THENA_%=ASC($t_%)-64:IFA_%<13THENBankCC_%(A_%)=FNadd_(BankCC_%(A_%),A%):IFPITs_$(Z%)=Q_$THENBankSS_%(A_%)=FNadd_(BankSS_%(A_%),A%)
34690IFLEN($u_%)=1THEN$u_%+="A"
34695IF$u_%<>""THENA_%=ASC($u_%)-65:B_%=ASC(RIGHT$($u_%,1))-65:IFA_%<12ANDB_%<8THENA_%=A_%*40+B_%*5+2:Pheadt1_%(A_%)=FNadd_(Pheadt1_%(A_%),-A%):Pheadt1_%(A_%+2)=FNadd_(Pheadt1_%(A_%+2),-b_%):Pheadt1_%(A_%+1)=Pheadt1_%(A_%+1)-(a_%-A%)
34700NEXT
34705D%=pitp_%*sitif_%:FORZ%=1TOsitin_%:D%+=1:PITe_$(D%)=FNgId(paled%,Z%):NEXT
34710FORZ%=pitp_%TOpitp_%+4:$u_%=PITe_$(Z%*sitif_%+9):CALLm3_%:F%=ASC($u_%):A_$=LEFT$(FNgId(paled%,Z%-pitp_%+76),1):B_$=PITe_$(Z%*sitif_%+1):IFPITe_$(Z%*sitif_%+3)="":IFPITn_%(Z%+1)<>0THENPITn_%(Z%+1)=0
34715$t_%=PITe_$(Z%*sitif_%+4):$u_%=PITe_$(Z%*sitif_%+10):CALLm2_%:PITe_$(Z%*sitif_%+4)=$t_%:PITe_$(Z%*sitif_%+10)=$u_%:B%=FNni_(PITe_$(Z%*sitif_%+6)):PITa_$(Z%)="":PITh_$(Z%)="":E%=FNni_(PITe_$(Z%*sitif_%+9))
34720a_%=FNni_(PITe_$(Z%*sitif_%+6)):b_%=FNni_(PITe_$(Z%*sitif_%+8))
34725IFF%>0THEN
34730IFF%=85THENA_$="U":PITe_$(Z%*sitif_%+9)="":E%=0
34735IFF%=80THENA_$="P":PITe_$(Z%*sitif_%+9)=FNconvis_(B%,""):E%=B%
34740IFF%=82ANDE%=0THENA_$="R":PITe_$(Z%*sitif_%+9)=FNconvis_(B%,""):E%=B%
34745IFF%=82ANDE%<>0THENA_$="R":PITe_$(Z%*sitif_%+9)=FNconvis_(E%,"")
34750Z_%=FNpII(paled%,(Z%-pitp_%)*sitif_%+9,PITe_$(Z%*sitif_%+9))
34755ENDIF
34760IFA_$="R"THENPITs_$(Z%)=Q_$ ELSEIFB%=E%THENPITs_$(Z%)="Paid" ELSEIFABS(B%)>ABS(E%)ANDE%<>0THENPITs_$(Z%)="part-Paid" ELSEIFABS(B%)<ABS(E%)ANDE%<>0THENPITs_$(Z%)="over-Paid" ELSEPITs_$(Z%)="Unpaid"
34765IFB_$=""THENPITs_$(Z%)=""
34770IF$t_%<>"":A_%=ASC($t_%)-64:IFA_%<13THENPITa_$(Z%)=BankNN_$(A_%):BankCC_%(A_%)=FNadd_(BankCC_%(A_%),-E%):IF(PITs_$(Z%))=Q_$BankSS_%(A_%)=FNadd_(BankSS_%(A_%),-E%)
34775IF$u_%<>""THEN
34780IFLEN($u_%)=1THEN$u_%+="A":PITe_$(Z%*sitif_%+10)=$u_%
34785A_%=ASC($u_%)-65:B_%=ASC(RIGHT$($u_%,1))-65:aa_%=A_%*40+B_%*5+2
34790IFA_%<12ANDB_%<8THENPITh_$(Z%)=Phead1_$(A_%+1):A_%=A_%*8+12+B_%+1:PITh_$(Z%)=PITh_$(Z%)+":"+Phead1_$(A_%):Pheadt1_%(aa_%)=FNadd_(Pheadt1_%(aa_%),E%):Pheadt1_%(aa_%+2)=FNadd_(Pheadt1_%(aa_%+2),b_%):Pheadt1_%(aa_%+1)=Pheadt1_%(aa_%+1)+(a_%-E%)
34795ENDIF
34800IFFNgId(paled%,Z%-pitp_%+66)<>PITa_$(Z%)THENZ_%=FNpII(paled%,Z%-pitp_%+66,PITa_$(Z%))
34805IFFNgId(paled%,Z%-pitp_%+71)<>PITh_$(Z%)THENZ_%=FNpII(paled%,Z%-pitp_%+71,PITh_$(Z%))
34810IFFNgId(paled%,Z%-pitp_%+76)<>PITs_$(Z%)THENZ_%=FNpII(paled%,Z%-pitp_%+76,PITs_$(Z%))
34815NEXT
34820Z%=FNupdatebank_:Z%=FNupdateheadpM_(1):paledp_%=FNsp_(paled%,paledp_%):ENDPROC
34825
34830DEFPROCgetBITdat_
34835LOCAL A%,A_%,B_%,B%,C%,D%,E_%,E%,G%,H%,Z%,Z_%,C_$,A_$,B_$:G%=t_%:H%=u_%
34840LOCAL ERROR
34845ON ERROR LOCAL:RESTORE ERROR:PROCpe_(FNerr_):ENDPROC
34850FORZ%=bitp_%TObitp_%+4
34855A%=FNni_(BITe_$(Z%*bitif_%+5))
34860IFA%<>0THEN
34865$t_%=BITe_$(Z%*bitif_%+3):$u_%=BITe_$(Z%*bitif_%+6):CALLm2_%
34870IF$t_%<>"":IFBITe_$(Z%*bitif_%+4)="P"ORBITe_$(Z%*bitif_%+4)="�"THENA_%=ASC($t_%)-64:IFA_%<13THENBankCC_%(A_%)=FNadd_(BankCC_%(A_%),A%):IFBITe_$(Z%*bitif_%+4)="�"THENBankSS_%(A_%)=FNadd_(BankSS_%(A_%),A%)
34875IF$u_%<>"":IFBITe_$(Z%*bitif_%+7)="P"ORBITe_$(Z%*bitif_%+7)="�"THENA_%=ASC($u_%)-64:IFA_%<13THENBankCC_%(A_%)=FNadd_(BankCC_%(A_%),-A%):IFBITe_$(Z%*bitif_%+7)="�"THENBankSS_%(A_%)=FNadd_(BankSS_%(A_%),-A%)
34880ENDIF
34885NEXT
34890D%=bitp_%*bitif_%:FORZ%=1TObitin_%:D%+=1:BITe_$(D%)=FNgId(bankl%,Z%):NEXT
34895FORZ%=bitp_%TObitp_%+4:$t_%=BITe_$(Z%*bitif_%+4):$u_%=BITe_$(Z%*bitif_%+7):CALLm2_%:A_$=$t_%:B_$=$u_%:$t_%=BITe_$(Z%*bitif_%+3):$u_%=BITe_$(Z%*bitif_%+6):CALLm2_%:BITe_$(Z%*bitif_%+3)=$t_%:BITe_$(Z%*bitif_%+6)=$u_%
34900E%=FNni_(BITe_$(Z%*bitif_%+5))
34905IFA_$<>"":IF$t_%=""THENA_$=""
34910IFA_$="R"THENA_$="�"
34915IF$t_%<>"":IFE%<>0:IFA_$<>"�"THENA_$="P"
34920IFA_$<>BITe_$(Z%*bitif_%+4)THENBITe_$(Z%*bitif_%+4)=A_$:Z_%=FNpII(bankl%,(Z%-bitp_%)*bitif_%+4,A_$)
34925BITf_$(Z%)="":BITt_$(Z%)=""
34930IF$t_%<>""THENA_%=ASC($t_%)-64:IFA_%<13BITf_$(Z%)=BankNN_$(A_%):BankCC_%(A_%)=FNadd_(BankCC_%(A_%),-E%):IFA_$="�"THENBankSS_%(A_%)=FNadd_(BankSS_%(A_%),-E%)
34935IFB_$<>"":IF$u_%=""THENB_$=""
34940IFB_$="R"THENB_$="�"
34945IF$u_%<>"":IFE%<>0:IFB_$<>"�"THENB_$="P"
34950IFB_$<>BITe_$(Z%*bitif_%+7)THENBITe_$(Z%*bitif_%+7)=B_$:Z_%=FNpII(bankl%,(Z%-bitp_%)*bitif_%+7,B_$)
34955IF$u_%<>""THENA_%=ASC($u_%)-64:IFA_%<13BITt_$(Z%)=BankNN_$(A_%):BankCC_%(A_%)=FNadd_(BankCC_%(A_%),E%):IFB_$="�"THENBankSS_%(A_%)=FNadd_(BankSS_%(A_%),E%)
34960IFFNgId(bankl%,Z%-bitp_%+48)<>BITf_$(Z%)THENZ_%=FNpII(bankl%,Z%-bitp_%+48,BITf_$(Z%))
34965IFFNgId(bankl%,Z%-bitp_%+53)<>BITt_$(Z%)THENZ_%=FNpII(bankl%,Z%-bitp_%+53,BITt_$(Z%))
34970NEXT
34975Z%=FNupdatebank_:bankp_%=FNsp_(bankl%,bankp_%)
34980ENDPROC
34985
34990DEFPROCsavebankledger2_(Z%)
34995LOCAL A%,A_%,B_%,B%,C%,D%,E_%,E%,Z_%,C_$,A_$
35000E%=FNni_(BITe_$(Z%*bitif_%+5))
35005A_$=BITe_$(Z%*bitif_%+4)
35010BITf_$(Z%)="":BITt_$(Z%)=""
35015IFBITe_$(Z%*bitif_%+3)<>""THENA_%=ASC(BITe_$(Z%*bitif_%+3))-64:IFA_%<13BITf_$(Z%)=BankNN_$(A_%):BankCC_%(A_%)=FNadd_(BankCC_%(A_%),-E%):IFA_$="�"THENBankSS_%(A_%)=FNadd_(BankSS_%(A_%),-E%)
35020A_$=BITe_$(Z%*bitif_%+7)
35025IFBITe_$(Z%*bitif_%+6)<>""THENA_%=ASC(BITe_$(Z%*bitif_%+6))-64:IFA_%<13BITt_$(Z%)=BankNN_$(A_%):BankCC_%(A_%)=FNadd_(BankCC_%(A_%),E%):IFA_$="�"THENBankSS_%(A_%)=FNadd_(BankSS_%(A_%),E%)
35030IFbankl%>0THENZ_%=FNpII(bankl%,(Z%-bitp_%)*bitif_%+4,A_$):Z_%=FNpII(bankl%,(Z%-bitp_%)*bitif_%+7,A_$):Z_%=FNpII(bankl%,Z%-bitp_%+48,BITf_$(Z%)):Z_%=FNpII(bankl%,Z%-bitp_%+53,BITt_$(Z%)):PROCsetBITdat_(0)
35035Z%=FNupdatebank_:ENDPROC
35040DEFFNch_(a_$,b_$):LOCAL Z%:a_$=FNtrmL(a_$):Z%=INSTR(a_$,":"):a_$=FNcaps_(a_$)
35045IFb_$="":IFLEN(a_$)<2=LEFT$(a_$,1)
35050IFZ%=0:IFLEN(a_$)=0:=" :"+b_$
35055IFZ%=0:IFLEN(a_$)=1:=a_$+":"+b_$
35060IFZ%=0:IFLEN(a_$)=2:=" :"+a_$
35065IFZ%=0:IFLEN(a_$)>2:=LEFT$(a_$,1)+":"+MID$(a_$,2,2)
35070IFZ%=1:=LEFT$(" "+a_$+b_$,4)
35075=LEFT$(a_$,1)+":"+MID$(a_$+b_$,Z%+1,2)
35080DEFFNqc_(a_$,b_):LOCAL A$,Z%,A,a_:A$=a_$:IFA$="":=0
35085LOCAL ERROR
35090ON ERROR LOCAL:RESTORE ERROR:=0
35095IFINSTR(a_$,":")THEN
35096a_$+="0000":A=INSTR(a_$,":"):Z%=VAL(MID$(a_$,A+1,4))/60*100:A$=LEFT$(a_$,A-1)+"."
35097IFABS(Z%)<1000:A$+="0"+STR$(Z%) ELSEA$+=STR$(Z%)
35098ENDIF
35100IFb_=0:a_=EVAL(A$)*inv11_%(0) ELSEa_=EVAL(A$)
35105=a_
35110DEFPROCgetITdat_(A_%)
35115LOCAL A%,B_%,C%,D%,E_%,Z%,C_$,A,D,A_$
35120IF!k%=0:IFITsupnum_%=0ANDITsupch_%=0ANDerror_%=0THENITsupch_%=1:PROCwl_(21):ENDPROC
35125IFITsupnum_%>0THEN
35130FORZ%=itp_%TOitp_%+7
35140IFITo_%(Z%)>0THENITo_%(Z%)=ITn_%(Z%)
35145NEXT
35150ENDIF
35155D%=itp_%*itif_%:FORZ%=1TOitin_%:D%+=1:ITs_$(D%)=FNgId(invw%,Z%):NEXT:IFA_%=1THENinv11_%(0)=-inv11_%(0):$!invname_%=FNcri_
35160IFITsupnum_%>0THEN
35165E_%=0:FORZ%=itp_%TOitp_%+7:IFITs_$(Z%*itif_%+6)<>"":IFFNch_(ITs_$(Z%*itif_%+6),"")<>ITs_$(Z%*itif_%+6):D%=FNpII(invw%,E_%*itif_%+6,FNch_(ITs_$(Z%*itif_%+6),""))
35170IFITos_$(Z%)<>ITs_$(Z%*itif_%+1)THENITs_$(Z%*itif_%+1)="":ITn_%(Z%)=0:D%=FNpII(invw%,(E_%*itif_%+1),ITs_$(Z%*itif_%+1)):PROCsetC_(E_%*itif_%+1)
35240E_%+=1:ITo_%(Z%)=ITn_%(Z%):ITos_$(Z%)=ITs_$(Z%*itif_%+1):NEXT
35255ENDIF
35260ENDPROC
35265DEFFNcri_:IFinv11_%(0)=1THEN="Invoice" ELSEIFinv11_%(0)=-1THEN="Credit Note" ELSEinv11_%(0)=1:="Invoice"
35270DEFPROCgetITdattot_
35275LOCAL Z%,A%,B%,C%,D%,E%,F%,G%,H%,G,A,B
35280FORZ%=1TOmaxI_%*itip_%*itif_%-1STEPitif_%:ITt_$(F%)=""
35285IFITs_$(Z%+2)<>""THEN
35290IFVa_%(ASC(ITs_$(Z%+5))MOD32+1)=0THENA=0 ELSEA=ITr_(F%)
35295B=FNqc_(ITs_$(Z%+2),1)
35300IFA=0THEND%=FNcalpc2_(FNsum_(B,FNconvsi_(ITs_$(Z%+3)))) ELSED%=FNcalpc2_(FNsum_(B,ITr_(F%))):D%=D%-(D%-D%/((10000+Va_%(ASC(ITs_$(Z%+5))MOD32+1))/100)*100)
35305IFVAL(ITs_$(Z%+4))<>0THEN
35310IFITd_%(F%)=67THEND%=D%*(VAL(ITs_$(Z%+4))/100) ELSED%=D%-D%*(VAL(ITs_$(Z%+4))/100)
35315ENDIF
35320ITt_$(F%)=FNtc_(D%,""):A%=A%+D%:G%=D%-D%*VAL($!ITesd_%)/100
35325IFprefn_%=1THEN
35330IFA<>0ANDVAL(ITs_$(Z%+4))=0THEN
35335IFITf_%(F%)=1OR$!ITesd_%=""THENG=G+(FNsum_(ITr_(F%),B)-D%):C%=C%+D% ELSEH%=FNcalpc2_(D%*(Va_%(ASC(ITs_$(Z%+5))MOD32+1)/10000)):C%=C%+G%:G=G+H%
35340ENDIF
35345IFA=0ORVAL(ITs_$(Z%+4))<>0THEN
35350IFITf_%(F%)=1THENG=G+D%*(Va_%(ASC(ITs_$(Z%+5))MOD32+1)/10000):C%=C%+D% ELSEG=G+D%*(Va_%(ASC(ITs_$(Z%+5))MOD32+1)/10000):C%=C%+G%
35355ENDIF
35360ENDIF
35365IFprefn_%=-1THEN
35370IFA<>0ANDVAL(ITs_$(Z%+4))=0THEN
35375IFITf_%(F%)=1OR$!ITesd_%=""THENG=G+(FNsum_(ITr_(F%),B)-D%):C%=C%+D% ELSEH%=FNcalpc2_(G%*(Va_%(ASC(ITs_$(Z%+5))MOD32+1)/10000)):C%=C%+G%:G=G+H%
35380ENDIF
35385IFA=0ORVAL(ITs_$(Z%+4))<>0THEN
35390IFITf_%(F%)=1THENG=G+D%*(Va_%(ASC(ITs_$(Z%+5))MOD32+1)/10000):C%=C%+D% ELSEG=G+G%*(Va_%(ASC(ITs_$(Z%+5))MOD32+1)/10000):C%=C%+G%
35395ENDIF
35400ENDIF
35405ENDIF
35410F%+=1:NEXT:ITsss_$(8)=FNtc_(A%,"0"):B%=FNcalpc2_(G):ITsss_$(9)=FNtc_(B%,"0"):ITsss_$(10)=FNtc_(A%+B%,"0"):IF$!ITesd_%<>""THENC%=FNadd_(C%,FNcalpc2_(G)):ITsss_$(11)=FNtc_(C%,"") ELSEITsss_$(11)=""
35415ENDPROC
35420
35425DEFFNautovat_(A_$,A_%):LOCAL A,H%,Z%,B$:H%=t_%:FORZ%=1TOLEN(A_$):IFMID$(A_$,Z%,1)>"@"THENB$=MID$(A_$,Z%,1):Z%=LEN(A_$)
35430NEXT:$t_%=B$:CALLm1_%
35435vatc_$=$t_%:IFA_%=0ORA_$=""ORB$=""THEN=""
35440A=A_%-A_%/(1+(Va_%(ASC(B$)MOD32+1)/10000)):Z%=FNcalpc2_(A):=FNtc_(Z%,"0")
35445
35450DEFFNtot_vat_(A_$,A_%):LOCAL A:IFA_%=0ORA_$=""THEN=0
35455A=A_%-A_%/(1+(Va_%(ASC(A_$)MOD32+1)/10000)):=FNcalpc2_(A)
35460DEFFNadd_vat(A_%):LOCAL A,Z%:IFA_%=0THEN=""
35465A=A_%*(1+(Va_%(2)/10000)):Z%=FNcalpc2_(A):=FNtc_(Z%,"0")
35470
35475DEFFNhn_(A_$,B_$):A_$=FNcaps_(A_$):B_$=FNcaps_(B_$):WHILELEN(B_$)<2:B_$+="A":ENDWHILE
35480LOCAL Z%:Z%=INSTR(A_$,":"):IFZ%=0THEN=FNwhn_(B_$)
35485=FNwhn_(MID$(A_$,Z%+1))
35490DEFFNwhn_(a_$):LOCAL a_%,b_%
35495IFLEN(a_$)=1:a_$+="A"
35500Z%=(ASC(a_$)-65)*8+(ASC(MID$(a_$,2))-65)
35505IFZ%>-1ANDZ%<96:=Z% ELSE=0
35510
35515DEFPROCgetITdatvat_
35520PROCgetITdat_(0)
35525LOCAL Z%,A%,B%,C%,D%,E%,F%,G%,H%,A_%,Z_%,G,N_%,N,O_%,P_%,A,a_%,B
35530N=0:Ivat_()=0:Ivat_%()=0:Itot_%()=0:Ivat_$()="":vt_%()=0:vt1_%()=0:vt1_()=0:vt_$()=""
35535FORZ%=1TOmaxI_%*itip_%*itif_%-1STEPitif_%:ITt_$(F%)="":N_%=0:N=0:A_%=FNhn_(ITs_$(Z%+5),IThead_$)
35540IFITs_$(Z%+2)<>""THEN
35545IFVa_%(ASC(ITs_$(Z%+5))MOD32+1)=0THENA=0 ELSEA=ITr_(F%)
35550B=FNqc_(ITs_$(Z%+2),1)
35555IFA=0THEND%=FNcalpc2_(FNsum_(B,FNconvsi_(ITs_$(Z%+3)))) ELSED%=FNcalpc2_(FNsum_(B,ITr_(F%))):D%=D%-(D%-D%/((10000+Va_%(ASC(ITs_$(Z%+5))MOD32+1))/100)*100)
35560IFVAL(ITs_$(Z%+4))<>0THEN
35565IFITd_%(F%)=67THEND%=D%*(VAL(ITs_$(Z%+4))/100) ELSED%=D%-D%*(VAL(ITs_$(Z%+4))/100)
35570ENDIF
35575ITt_$(F%)=FNtc_(D%,""):A%=A%+D%:G%=D%-D%*VAL($!ITesd_%)/100:N_%=D%
35580IFprefn_%=1THEN
35585IFA<>0ANDVAL(ITs_$(Z%+4))=0THEN
35590IFITf_%(F%)=1OR$!ITesd_%=""THENN=FNsum_(ITr_(F%),B)-D%:G=G+N:C%=C%+D% ELSEH%=FNcalpc2_(D%*(Va_%(ASC(ITs_$(Z%+5))MOD32+1)/10000)):C%=C%+G%:G=G+H%:N=H%
35595ENDIF
35600IFA=0ORVAL(ITs_$(Z%+4))<>0THEN
35605IFITf_%(F%)=1THENN=D%*(Va_%(ASC(ITs_$(Z%+5))MOD32+1)/10000):G=G+N:C%=C%+D% ELSEN=D%*(Va_%(ASC(ITs_$(Z%+5))MOD32+1)/10000):G=G+N:C%=C%+G%
35610ENDIF
35615ENDIF
35620IFprefn_%=-1THEN
35625IFA<>0ANDVAL(ITs_$(Z%+4))=0THEN
35630IFITf_%(F%)=1OR$!ITesd_%=""THENN=FNsum_(ITr_(F%),B)-D%:G=G+N:C%=C%+D% ELSEH%=FNcalpc2_(G%*(Va_%(ASC(ITs_$(Z%+5))MOD32+1)/10000)):C%=C%+G%:G=G+H%:N=H%
35635ENDIF
35640IFA=0ORVAL(ITs_$(Z%+4))<>0THEN
35645IFITf_%(F%)=1THENN=D%*(Va_%(ASC(ITs_$(Z%+5))MOD32+1)/10000):G=G+N:C%=C%+D% ELSEN=G%*(Va_%(ASC(ITs_$(Z%+5))MOD32+1)/10000):G=G+N:C%=C%+G%
35650ENDIF
35655ENDIF
35660ENDIF
35665F%+=1
35670IFITs_$(Z%+5)>="A"ANDITs_$(Z%+5)<"F"ORITs_$(Z%+5)>="a"ANDITs_$(Z%+5)<"f"THEN
35675O_%=ASC(ITs_$(Z%+5))MOD32
35680Ivat_$(O_%)=FNcaps_(ITs_$(Z%+5)):vt_$(A_%)=Ivat_$(O_%):IFZ_%=0:IFLEN(ITs_$(Z%+5))>1:IThead_$=CHR$(A_%/8+65)+CHR$(A_%MOD8+65):$!IThead1_%=IThead_$:Z_%=1
35685Ivat_(O_%)=Ivat_(O_%)+N
35690Itot_%(O_%)=Itot_%(O_%)+N_%
35695ELSE
35700Ivat_(6)=0:Itot_%(6)=Itot_%(6)+N_%
35705ENDIF
35710IFN_%<>0THENvt_%(A_%)+=N_%:vt1_(A_%)+=N
35715NEXT
35720FORO_%=1TO5:Ivat_%(O_%)=FNcalpc2_(Ivat_(O_%)):vt1_%(96)+=Ivat_%(O_%):NEXT
35725FORA_%=0TO95:vt1_%(A_%)=FNcalpc2_(vt1_(A_%)):P_%+=vt1_%(A_%):NEXT:P_%=P_%-vt1_%(96):D%=P_%
35730WHILEP_%<>0
35735FORA_%=0TO95
35740IFP_%>0:IFvt1_%(A_%)>0:IFvt1_%(A_%)<vt_%(A_%):vt1_%(A_%)-=1:P_%-=1 ELSEIFP_%<0:IFvt1_%(A_%)>0:IFvt1_%(A_%)<vt_%(A_%):vt1_%(A_%)+=1:P_%+=1 ELSEIFP_%<0:IFvt1_%(A_%)<0:IFvt1_%(A_%)>vt_%(A_%):vt1_%(A_%)-=1:P_%+=1
35745IFP_%=0:A_%=95
35750NEXT
35755IFD%<>P_%:D%=P_% ELSEIFD%=P_%ANDP_%<>0THENP_%=0
35760ENDWHILE
35765IFD%<>0:PROCpe_("There is a "+VAT_$+" rounding error of "+STR$(D%/100)+" between the invoice and the sales ledger entries due to splitting the invoice across more than one heading - please manually adjust the entries")
35770ITsss_$(8)=FNtc_(A%,"0"):B%=FNcalpc2_(G):ITsss_$(9)=FNtc_(B%,"0"):ITsss_$(10)=FNtc_(A%+B%,"0")
35775IF$!ITesd_%<>""THENC%=FNadd_(C%,FNcalpc2_(G)):ITsss_$(11)=FNtc_(C%,"") ELSEITsss_$(11)=""
35780ENDPROC
35785
35790DEFPROCwrap_(Z_%):IFMID$($!ITsd_%,ITll_%+1)=" ":ENDPROC
35795LOCAL A_$,A_%,B_%,B%,C%,D%,E%,F%,F_%,G_%,Z%,a_%,b_%,c_%,d_%,k_%,iw_%,i_%:iw_%=0:c_%=5000:d_%=totI_%+3:i_%=Z_%
35800REPEAT:SYS&6,128,255TO,B_%:Z%=INKEY(0):IFZ%>31THENA_$+=CHR$(Z%)
35805UNTILB_%=0:E%=LEN(A_$):a_%=LEN($!ITsd_%)+E%:C%=ITll_%-1
35810B%=itp_%*itif_%+Z_%:B_%=B%:F%=Z_%:IFB%=totI_%-3THENF_%=1
35815REPEAT:IFF%<40:ITs_$(B_%+itif_%)=FNgId(invw%,F%+itif_%)
35820B_%+=itif_%:F%+=itif_%:UNTILF%>40:B_%=B%
35825IFF_%=0:IFFNgH_=0THENnotrans_%=1:F_%=1
35830IFF_%=0:IFa_%+255>heap_size%:IFFNeH_=0THENnotrans_%=1:F_%=1
35835IFF_%=1THENITs_$(B%)=LEFT$($!ITsd_%,ITll_%):Z%=FNpII(invw%,Z_%,ITs_$(B%)):PROCsetC_(Z_%):ENDPROC
35840$tblock_%=LEFT$($!ITsd_%,cblock_%!20):a_%=LEN(LEFT$($!ITsd_%,cblock_%!20)):$(tblock_%+a_%)=A_$:a_%+=E%:tblock_%?a_%=255:a_%+=1
35845$(tblock_%+a_%)=MID$($!ITsd_%,cblock_%!20+1):a_%+=LEN(MID$($!ITsd_%,cblock_%!20+1))
35850REPEAT:A_$=ITs_$(B_%+itif_%):IFA_$=""THENA_$=CHR$(0):IFd_%=totI_%+3:d_%=B_%+itif_%
35855$(tblock_%+a_%)=A_$:a_%+=LEN(A_$):B_%+=itif_%
35860UNTILB_%=totI_%-3:tblock_%?a_%=0:B_%=-1
35865
35870REPEAT:D%=0:B_%+=1:A_%=B_%:A_$="":IFtblock_%?A_%=32THENFORb_%=A_%TOa_%-1:tblock_%?b_%=tblock_%?(b_%+1):NEXT
35875FORZ%=A_%TOA_%+C%:IFtblock_%?Z%=255THENiw_%=-1:c_%=Z%:FORb_%=Z%TOa_%-1:tblock_%?b_%=tblock_%?(b_%+1):NEXT
35880IFtblock_%?Z%=0THENB_%=Z%:Z%=A_%+C% ELSEA_$+=CHR$(tblock_%?Z%):B_%=Z%:IFtblock_%?Z%=32THEND%=Z%
35885NEXT:IFD%>0:IFtblock_%?(B_%+1)>32THENB_%=D%:A_$=LEFT$(A_$,D%-A_%)
35890IFiw_%=-1:IFc_%<=B_%THENiw_%=c_%-A_%:G_%=k_%
35895IFiw_%=-1:IFc_%>B_%THENFORb_%=a_%TOB_%+2STEP-1:tblock_%?b_%=tblock_%?(b_%-1):NEXT:tblock_%?b_%=255
35900IFA_$<>"":IFRIGHT$(A_$,1)<>" ":A_$+=" "
35905ITs_$(B%)=A_$:IFZ_%<48:Z%=FNpII(invw%,Z_%,ITs_$(B%))
35910Z_%+=itif_%:B%+=itif_%:k_%+=1:UNTILB%=d_%+itif_%ANDtblock_%?B_%=0ORB%=totI_%+3:PROCfH_
35915Z_%=i_%+G_%*itif_%:G_%=G_%-(44-i_%)/itif_%:IFZ_%>44:Z_%=44
35920IFG_%>0THENPROCITdown_(-G_%)
35925IFitp_%=72:IFZ_%=44:IFiw_%>ITll_%THENiw_%=ITll_%
35930SYS&400D2,invw%,Z_%,,,-1,iw_%
35935ENDPROC
35940
35945DEFPROCsetITdat_(Z_%)
35950LOCAL A%,B%,D%,Z%
35955B%=itp_%*itif_%:FORZ%=0TOitin_%-1:B%+=1:ITss_$(Z%)=ITs_$(B%):IFITss_$(Z%)=ITs_$(B%+Z_%*itif_%)THENITss_$(Z%)="|"
35960NEXT
35965FORZ%=0TOitip_%-1:ITsss_$(Z%)=ITt_$(Z%+itp_%):IFITsss_$(Z%)=ITt_$(Z%+itp_%+Z_%)THENITsss_$(Z%)="|"
35970PROCgeticon_(invw%,Z%+66):IF(block_%!24>>21)MOD2THEN
35975IFITf_%(Z%+itp_%)=0:PROCseticon_(invw%,Z%+66,0,flag21_%)
35980ELSE
35985IFITf_%(Z%+itp_%):PROCseticon_(invw%,Z%+66,flag21_%,flag21_%)
35990ENDIF
35995NEXT
36000IFFNgId(invw%,62)=ITsss_$(8)THENITsss_$(8)="|"
36005IFFNgId(invw%,63)=ITsss_$(9)THENITsss_$(9)="|"
36010IFFNgId(invw%,64)=ITsss_$(10)THENITsss_$(10)="|"
36015IFFNgId(invw%,65)=ITsss_$(11)THENITsss_$(11)="|"
36020PROCpPD(invW%,ITsss_$(),0):PROCpFD(invW%,ITss_$(),0):ENDPROC
36025
36030DEFPROCsetSITdat_(Z_%)
36035LOCAL A%,B%,Z%
36040B%=sitp_%*sitif_%:FORZ%=0TOsitin_%-1:B%+=1:SITep_$(Z%)=SITe_$(B%):IFSITep_$(Z%)=SITe_$(B%+Z_%*sitif_%):IFZ_%<>0THENSITep_$(Z%)="|"
36045NEXT
36050FORZ%=0TO4:SITap_$(Z%+1)=SITa_$(Z%+sitp_%)
36055IFSITap_$(Z%+1)=SITa_$(Z%+sitp_%+Z_%):IFZ_%<>0THENSITap_$(Z%+1)="|"
36060NEXT
36065FORZ%=5TO9:SITap_$(Z%+1)=SITh_$(Z%-5+sitp_%)
36070IFSITap_$(Z%+1)=SITh_$(Z%-5+sitp_%+Z_%):IFZ_%<>0THENSITap_$(Z%+1)="|"
36075NEXT
36080FORZ%=10TO14:SITap_$(Z%+1)=SITs_$(Z%-10+sitp_%)
36085IFSITap_$(Z%+1)=SITs_$(Z%-10+sitp_%+Z_%):IFZ_%<>0THENSITap_$(Z%+1)="|"
36090NEXT
36095PROCpPD(saledW%,SITap_$(),0)
36100PROCpFD(saledW%,SITep_$(),0)
36105IFZ_%=0THEN
36110A%=1
36115IFFNgId(saled%,45)=""THENA%=45
36120IFFNgId(saled%,34)=""THENA%=34
36125IFFNgId(saled%,23)=""THENA%=23
36130IFFNgId(saled%,12)=""THENA%=12
36135IFFNgId(saled%,1)=""THENA%=1
36140PROCsetC1_(saled%,A%)
36145ENDIF
36150ENDPROC
36155DEFPROCsetTITdat_(Z_%)
36160LOCAL A%,B%,Z%
36165B%=titp_%*sitif_%:FORZ%=0TOsitin_%-1:B%+=1:TITep_$(Z%)=TITe_$(B%):IFTITep_$(Z%)=TITe_$(B%+Z_%*sitif_%):IFZ_%<>0THENTITep_$(Z%)="|"
36170NEXT
36175FORZ%=0TO4:TITap_$(Z%+1)=TITa_$(Z%+titp_%)
36180IFTITap_$(Z%+1)=TITa_$(Z%+titp_%+Z_%):IFZ_%<>0THENTITap_$(Z%+1)="|"
36185PROCsIcon_(stand%,Z%*2+81,TITe_%(Z%+titp_%)):PROCsIcon_(stand%,Z%*2+82,-TITe_%(Z%+titp_%))
36190NEXT
36195FORZ%=5TO9:TITap_$(Z%+1)=TITh_$(Z%-5+titp_%)
36200IFTITap_$(Z%+1)=TITh_$(Z%-5+titp_%+Z_%):IFZ_%<>0THENTITap_$(Z%+1)="|"
36205NEXT
36210FORZ%=10TO14:TITap_$(Z%+1)=TITs_$(Z%-10+titp_%)
36215IFTITap_$(Z%+1)=TITs_$(Z%-10+titp_%+Z_%):IFZ_%<>0THENTITap_$(Z%+1)="|"
36220NEXT
36225PROCpPD(standW%,TITap_$(),0)
36230PROCpFD(standW%,TITep_$(),0)
36235IFZ_%=0THEN
36240A%=1
36245IFFNgId(stand%,45)=""THENA%=45
36250IFFNgId(stand%,34)=""THENA%=34
36255IFFNgId(stand%,23)=""THENA%=23
36260IFFNgId(stand%,12)=""THENA%=12
36265IFFNgId(stand%,1)=""THENA%=1
36270PROCsetC1_(stand%,A%)
36275ENDIF
36280ENDPROC
36285
36290DEFPROCsetPITdat_(Z_%)
36295LOCAL A%,B%,Z%
36300B%=pitp_%*sitif_%:FORZ%=0TOsitin_%-1:B%+=1:PITep_$(Z%)=PITe_$(B%):IFPITep_$(Z%)=PITe_$(B%+Z_%*sitif_%):IFZ_%<>0THENPITep_$(Z%)="|"
36305NEXT
36310FORZ%=0TO4:PITap_$(Z%+1)=PITa_$(Z%+pitp_%)
36315IFPITap_$(Z%+1)=PITa_$(Z%+pitp_%+Z_%):IFZ_%<>0THENPITap_$(Z%+1)="|"
36320NEXT
36325FORZ%=5TO9:PITap_$(Z%+1)=PITh_$(Z%-5+pitp_%)
36330IFPITap_$(Z%+1)=PITh_$(Z%-5+pitp_%+Z_%):IFZ_%<>0THENPITap_$(Z%+1)="|"
36335NEXT
36340FORZ%=10TO14:PITap_$(Z%+1)=PITs_$(Z%-10+pitp_%)
36345IFPITap_$(Z%+1)=PITs_$(Z%-10+pitp_%+Z_%):IFZ_%<>0THENPITap_$(Z%+1)="|"
36350NEXT
36355PROCpPD(paledW%,PITap_$(),0)
36360PROCpFD(paledW%,PITep_$(),0)
36365IFZ_%=0THEN
36370A%=1
36375IFFNgId(paled%,45)=""THENA%=45
36380IFFNgId(paled%,34)=""THENA%=34
36385IFFNgId(paled%,23)=""THENA%=23
36390IFFNgId(paled%,12)=""THENA%=12
36395IFFNgId(paled%,1)=""THENA%=1
36400PROCsetC1_(paled%,A%)
36405ENDIF
36410ENDPROC
36415
36420DEFPROCsetBITdat_(Z_%)
36425LOCAL A%,B%,Z%
36430B%=bitp_%*bitif_%:FORZ%=0TObitin_%-1:B%+=1:BITep_$(Z%)=BITe_$(B%):IFBITep_$(Z%)=BITe_$(B%+Z_%*bitif_%):IFZ_%<>0THENBITep_$(Z%)="|"
36435NEXT
36440FORZ%=0TO4:BITap_$(Z%)=BITf_$(Z%+bitp_%)
36445IFBITap_$(Z%)=BITf_$(Z%+bitp_%+Z_%):IFZ_%<>0THENBITap_$(Z%)="|"
36450NEXT
36455FORZ%=5TO9:BITap_$(Z%)=BITt_$(Z%-5+bitp_%)
36460IFBITap_$(Z%)=BITt_$(Z%-5+bitp_%+Z_%):IFZ_%<>0THENBITap_$(Z%)="|"
36465NEXT
36470PROCpPD(bankW%,BITap_$(),0)
36475PROCpFD(bankW%,BITep_$(),0)
36480IFZ_%=0THEN
36485A%=1
36490IFFNgId(bankl%,33)=""THENA%=33
36495IFFNgId(bankl%,25)=""THENA%=25
36500IFFNgId(bankl%,17)=""THENA%=17
36505IFFNgId(bankl%,9)=""THENA%=9
36510IFFNgId(bankl%,1)=""THENA%=1
36515PROCsetC1_(bankl%,A%)
36520ENDIF
36525ENDPROC
36530
36535DEFPROCinitITdat_
36540LOCAL A%,B%,D%,Z%
36545B%=itp_%*itif_%:FORZ%=0TOitin_%-1:B%+=1:IFITss_$(Z%)=ITs_$(B%)THENITss_$(Z%)="|" ELSEITss_$(Z%)=ITs_$(B%)
36550NEXT
36555FORZ%=0TOitip_%-1:IFITsss_$(Z%)=ITt_$(Z%+itp_%)THENITsss_$(Z%)="|" ELSEITsss_$(Z%)=ITt_$(Z%+itp_%)
36560PROCgeticon_(invw%,Z%+66):IF(block_%!24>>21)MOD2THEN
36565IFITf_%(Z%+itp_%)=0:PROCseticon_(invw%,Z%+66,0,flag21_%)
36570ELSE
36575IFITf_%(Z%+itp_%):PROCseticon_(invw%,Z%+66,flag21_%,flag21_%)
36580ENDIF
36585NEXT
36590IFFNgId(invw%,62)=ITsss_$(8)THENITsss_$(8)="|"
36595IFFNgId(invw%,63)=ITsss_$(9)THENITsss_$(9)="|"
36600IFFNgId(invw%,64)=ITsss_$(10)THENITsss_$(10)="|"
36605IFFNgId(invw%,65)=ITsss_$(11)THENITsss_$(11)="|"
36610PROCpPD(invW%,ITsss_$(),0):PROCpFD(invW%,ITss_$(),0):ENDPROC
36615
36620DEFFNupdateInvW_:LOCAL Z%:$!ITda1_%=FNchdate_($!ITda1_%):PROCrI(invW%,"ITda1")
36625IFsupply1_%<>0:CSuSuppRe_$(supply1_%)=$!ITord_%:IFCSuW%>0:IFCS_%=supply1_%:$!CSuSuppRef_%=CSuSuppRe_$(supply1_%):PROCrI(CSuW%,"CSuSuppRef")
36630ITda_$=FNchdate_($!ITda_%):$!ITda_%=ITda_$:PROCrI(invW%,"ITda"):ITacc_$=$!ITacc1_%:IThead_$=$!IThead1_%:ITcomm_$=$!ITcomm1_%:PROCgetITdat_(0):PROCgetITdattot_:ITll_%=VAL($!ITl_%):=TRUE
36635DEFFNITl_:=FNupdateInvW_
36640DEFFNITda1_:$!ITda1_%=FNchdate_($!ITda1_%):PROCrI(invW%,"ITda1"):=TRUE
36645
36650DEFFNupdatesaled_:IFIsal_%=0THENPROCsetSITdat_(0):Isal_%=1:SYS&406C1
36655PROCgetSITdat_:=TRUE
36660DEFFNupdatestand_:IFISal_%=0THENPROCsetTITdat_(0):ISal_%=1:SYS&406C1
36665PROCgetTITdat_:=TRUE
36670DEFFNupdatepaled_:IFIpal_%=0THENPROCsetPITdat_(0):Ipal_%=1:SYS&406C1
36675PROCgetPITdat_:=TRUE
36680DEFFNupdatebankl_:IFIbal_%=0THENPROCsetBITdat_(0):Ibal_%=1:SYS&406C1
36685PROCgetBITdat_:=TRUE
36690DEFFNsp_(a_%,b_%):SYS&400D3,,block_%:IFblock_%!0=a_%:IFblock_%!4>0THEN=block_%!4 ELSE=b_%
36695DEFFNsavecust_(H%,A$)
36700LOCAL A%,B%,C%,D%,E%,F%,G%,I%,Z%,A_$,SS_$,NN_$
36705LOCAL ERROR
36710ON ERROR LOCAL:RESTORE ERROR:SYS&406C1:PROCpe1_(FNerr_,F%):=FALSE
36715PROCgetinvflags_:Z%=FNupdateInvW_
36720F%=OPENUP(inv_$):IFF%<>0:IFEXT#F%=0THENCLOSE#F%:F%=0
36725IFF%=0THENF%=OPENOUT(inv_$):PROCsavenewcust_(F%,H%,A$):=TRUE
36730SYS&406C0
36735REPEAT
36740B%=PTR#F%:INPUT#F%,NN_$,G%,A_$,A%,I%,A_$,A_$,A_$
36745FORZ%=0TO6:INPUT#F%,A%:NEXT
36750FORZ%=1TOI%*itif_%:INPUT#F%,A_$:NEXT
36755FORZ%=0TOI%:INPUT#F%,A_$,A%,A%,A%,A%,A_$,A%:NEXT:C%=PTR#F%
36760UNTILG%=ITsupnum_%ANDNN_$=ITnu_$ORPTR#F%=EXT#F%
36765IFG%<>ITsupnum_%ANDNN_$<>ITnu_$THENE%=0
36770IFPTR#F%<EXT#F%THENE%=1
36775IFG%=ITsupnum_%ANDNN_$=ITnu_$ANDPTR#F%=EXT#F%THENE%=2
36780IFE%=0ANDH%=0THEN
36785I%=FNITnoitems_
36790PRINT#F%,A$,ITsupnum_%,ITda_$,ITes_%,I%,ITacc_$,IThead_$,ITcomm_$:FORZ%=0TO6:PRINT#F%,olddata_%(Z%):NEXT:FORZ%=1TOI%*itif_%:PRINT#F%,ITs_$(Z%):NEXT
36795FORZ%=0TOI%:PRINT#F%,ITt_$(Z%),ITr_(Z%),ITf_%(Z%),ITn_%(Z%),ITo_%(Z%),ITos_$(Z%),ITd_%(Z%):NEXT
36800ENDIF
36805IFE%=1THEN
36810PTR#F%=EXT#F%
36815I%=FNITnoitems_
36820IFH%=0THENPRINT#F%,A$,ITsupnum_%,ITda_$,ITes_%,I%,ITacc_$,IThead_$,ITcomm_$:FORZ%=0TO6:PRINT#F%,olddata_%(Z%):NEXT:FORZ%=1TOI%*itif_%:PRINT#F%,ITs_$(Z%):NEXT
36825IFH%=0THENFORZ%=0TOI%:PRINT#F%,ITt_$(Z%),ITr_(Z%),ITf_%(Z%),ITn_%(Z%),ITo_%(Z%),ITos_$(Z%),ITd_%(Z%):NEXT
36830D%=PTR#F%
36835REPEAT:PTR#F%=C%
36840IFPTR#F%<EXT#F%THEN
36841ITs_$()="":ITt_$()="":ITr_()=0:ITf_%()=0:ITn_%()=0:ITo_%()=0:ITos_$()="":ITd_%()=0
36842INPUT#F%,ITnu_$,ITsupnum_%,ITda_$,ITes_%,I%,ITacc_$,IThead_$,ITcomm_$
36845FORZ%=0TO6:INPUT#F%,olddata_%(Z%):NEXT:FORZ%=1TOI%*itif_%:INPUT#F%,ITs_$(Z%):NEXT:FORZ%=0TOI%:INPUT#F%,ITt_$(Z%),ITr_(Z%),ITf_%(Z%),ITn_%(Z%),ITo_%(Z%),ITos_$(Z%),ITd_%(Z%):NEXT
36847ENDIF
36850C%=PTR#F%
36855PTR#F%=B%
36860PRINT#F%,ITnu_$,ITsupnum_%,ITda_$,ITes_%,I%,ITacc_$,IThead_$,ITcomm_$:FORZ%=0TO6:PRINT#F%,olddata_%(Z%):NEXT:FORZ%=1TOI%*itif_%:PRINT#F%,ITs_$(Z%):NEXT
36865FORZ%=0TOI%:PRINT#F%,ITt_$(Z%),ITr_(Z%),ITf_%(Z%),ITn_%(Z%),ITo_%(Z%),ITos_$(Z%),ITd_%(Z%):NEXT
36870B%=PTR#F%
36875UNTILG%=ITsupnum_%ANDNN_$=ITnu_$ORPTR#F%>=EXT#F%ORC%=EXT#F%ANDH%=1
36880EXT#F%=B%
36885ENDIF
36890IFE%=2THEN
36895PTR#F%=B%
36900I%=FNITnoitems_
36905IFH%=0THENPRINT#F%,A$,ITsupnum_%,ITda_$,ITes_%,I%,ITacc_$,IThead_$,ITcomm_$:FORZ%=0TO6:PRINT#F%,olddata_%(Z%):NEXT:FORZ%=1TOI%*itif_%:PRINT#F%,ITs_$(Z%):NEXT
36910IFH%=0THENFORZ%=0TOI%:PRINT#F%,ITt_$(Z%),ITr_(Z%),ITf_%(Z%),ITn_%(Z%),ITo_%(Z%),ITos_$(Z%),ITd_%(Z%):NEXT
36915EXT#F%=PTR#F%
36920ENDIF
36925CLOSE#F%:F%=0
36930OSCLI("SETTYPE "+inv_$+" C87")
36935SYS&406C1
36940=TRUE
36945DEFPROCupdateinvl_
36950LOCAL A%,C%,F%,G%,Z%,A_$,SS_$,NN_$,I%,Z_%,A_%
36955LOCAL ERROR
36960ON ERROR LOCAL:RESTORE ERROR:SYS&406C1:PROCpe1_(FNerr_,F%):SYS&406C0:ENDPROC
36965invL_$()="":invL_$(0)="Current":maxinvl_%=0
36970F%=OPENUP(inv_$):IFF%=0THENENDPROC
36975IFEXT#F%=0THENCLOSE#F%:F%=0:ENDPROC
36980REPEAT:INPUT#F%,NN_$,G%,A_$,A%,I%,A_$,A_$,A_$:FORZ%=0TO6:INPUT#F%,A%:NEXT:FORZ%=1TOI%*itif_%:INPUT#F%,A_$:NEXT:FORZ%=0TOI%:INPUT#F%,A_$,A%,A%,A%,A%,A_$,A%:NEXT
36985IFG%=ITsupnum_%THEN
36990IFNN_$<>"Current"THEN
36995IFmaxinvl_%<100THEN
37000A_%=0:FORZ%=1TOmaxinvl_%:IFNN_$=invL_$(Z%):A_%=1
37005NEXT:IFA_%=0:maxinvl_%+=1:invL_$(maxinvl_%)=NN_$
37010ENDIF
37015ENDIF
37020ENDIF
37025UNTILPTR#F%=EXT#F%:CLOSE#F%:F%=0:IFmaxinvl_%>1THEN
37030FORZ%=1TOmaxinvl_%-1:IFinvL_$(Z%)>invL_$(Z%+1):SWAPinvL_$(Z%),invL_$(Z%+1):Z%=0
37035NEXT
37040ENDIF
37045ENDPROC
37050DEFFNloadcust_
37055LOCAL A%,B%,C%,F%,G%,Z%,A_$,SS_$,NN_$,I%
37060LOCAL ERROR
37065ON ERROR LOCAL:RESTORE ERROR:SYS&406C1:PROCpe1_(FNerr_,F%):=FALSE
37070F%=OPENUP(inv_$):IFF%=0THEN=FALSE
37075IFEXT#F%=0THENCLOSE#F%:F%=0:=FALSE
37080SYS&406C0
37085REPEAT:B%=PTR#F%:INPUT#F%,NN_$,G%,A_$,A%,I%,A_$,A_$,A_$:FORZ%=0TO6:INPUT#F%,A%:NEXT:FORZ%=1TOI%*itif_%:INPUT#F%,A_$:NEXT:FORZ%=0TOI%:INPUT#F%,A_$,A%,A%,A%,A%,A_$,A%:NEXT
37090UNTILG%=ITsupnumN_%ANDNN_$=$!ITnum_%ORPTR#F%=EXT#F%
37095IFG%=ITsupnumN_%ANDNN_$=$!ITnum_%THEN
37100ITs_$()="":ITt_$()="":ITr_()=0:ITf_%()=0:ITn_%()=0:ITo_%()=0:ITos_$()="":ITd_%()=0:PTR#F%=B%:INPUT#F%,ITnu_$,ITsupnum_%,ITda_$,ITes_%,I%,ITacc_$,IThead_$,ITcomm_$
37105FORZ%=0TO6:INPUT#F%,olddata_%(Z%):NEXT:FORZ%=1TOI%*itif_%:INPUT#F%,ITs_$(Z%):NEXT:FORZ%=0TOI%:INPUT#F%,ITt_$(Z%),ITr_(Z%),ITf_%(Z%),ITn_%(Z%),ITo_%(Z%),ITos_$(Z%),ITd_%(Z%):NEXT:C%=TRUE
37110IFITnu_$="Current"THEN$!ITcop_%=ITcop_$:PROCrI(invW%,"ITcop"):$!ITesd_%=STR$(ITes_%):PROCrI(invW%,"ITesd")
37115IFITnu_$="Current"THEN$!ITacc1_%=ITacc_$:PROCrI(invW%,"ITacc1"):$!IThead1_%=IThead_$:PROCrI(invW%,"IThead1"):$!ITcomm1_%=ITcomm_$:PROCrI(invW%,"ITcomm1")
37120IFITnu_$<>"Current"THEN$!ITcop_%="1":PROCrI(invW%,"ITcop")
37125ELSE
37130ITsupnum_%=ITsupnumN_%
37135C%=FALSE:$!ITcop_%=ITcop_$:PROCrI(invW%,"ITcop"):$!ITesd_%=STR$(ITes_%):PROCrI(invW%,"ITesd"):$!ITacc1_%=ITacc_$:PROCrI(invW%,"ITacc1"):$!IThead1_%=IThead_$:PROCrI(invW%,"IThead1"):$!ITcomm1_%=ITcomm_$:PROCrI(invW%,"ITcomm1")
37140ENDIF
37145CLOSE#F%:F%=0
37150SYS&406C1
37155=C%
37160
37165DEFPROCsavenewcust_(F%,H%,A$)
37170IFH%=1THENCLOSE#F%:F%=0:ENDPROC
37175LOCAL Z%
37180LOCAL ERROR
37185ON ERROR LOCAL:RESTORE ERROR:PROCpe1_(FNerr_,F%):ENDPROC
37190I%=FNITnoitems_
37195PRINT#F%,A$,ITsupnum_%,ITda_$,ITes_%,I%,ITacc_$,IThead_$,ITcomm_$:FORZ%=0TO6:PRINT#F%,olddata_%(Z%):NEXT:FORZ%=1TOI%*itif_%:PRINT#F%,ITs_$(Z%):NEXT
37200FORZ%=0TOI%:PRINT#F%,ITt_$(Z%),ITr_(Z%),ITf_%(Z%),ITn_%(Z%),ITo_%(Z%),ITos_$(Z%),ITd_%(Z%):NEXT
37205CLOSE#F%:F%=0:OSCLI("SETTYPE "+inv_$+" C87"):ENDPROC
37210DEFFNgetcust_(A%)
37215LOCAL Z%,A$
37220Z%=TRUE:Z%=FNITacc1_:Z%=FNIThead1_:Z%=FNITcomm1_
37225IFFNITSuFirst_=FALSE THEN=FALSE
37230IFITsupnum_%=0THENITsupnum_%=ITsupnumN_%:ITnu_$=$!ITnum_% ELSEZ%=FNsavecust_(A%,ITnu_$)
37235IFR%=3ORITsupnum_%=0THEN=FALSE
37240PROCinitInvW1_:ITda_$=""
37245Z%=FNloadcust_
37250IFZ%=FALSE THENITnu_$="Current":$!ITnum_%=ITnu_$:Z%=FNloadcust_ ELSE$!ITnum_%=ITnu_$
37255$!ITsupplier_%=FNgetcustname_(ITsupnum_%):supply1_%=FNgetcustnum_(ITsupnum_%):$!ITrecd_%=STR$(supply1_%):$!ITord_%=CSuSuppRe_$(supply1_%)
37260$!ITacc1_%=ITacc_$:PROCrI(invW%,"ITacc1"):$!IThead1_%=IThead_$:PROCrI(invW%,"IThead1"):$!ITcomm1_%=ITcomm_$:PROCrI(invW%,"ITcomm1")
37265ITsupnumN_%=ITsupnum_%:$!ITda_%=ITda_$:$!ITesd_%=STR$(ITes_%):IF$!ITesd_%="0"THEN$!ITesd_%=""
37270PROCrI(invW%,"ITsupplier"):PROCrI(invW%,"ITrecd"):PROCrI(invW%,"ITnum"):PROCrI(invW%,"ITda"):PROCrI(invW%,"ITesd"):PROCrI(invW%,"ITord")
37275PROCgetITdattot_:PROCinitITdat_:PROCsetinvflags_:PROCsetC1_(invw%,iti_%)
37280=Z%
37285
37290DEFPROCITdown_(Z%)
37295IF(itp_%+-Z%)*itif_%+itip_%*itif_%>maxI_%*itip_%*itif_%THENZ%=-(maxI_%*itip_%-(itp_%+itip_%)):IFZ%=0THENENDPROC
37300IF(itp_%+-Z%)*itif_%+itip_%*itif_%<=maxI_%*itip_%*itif_%THENPROCgetITdat_(0):PROCgetITdattot_:itp_%-=Z%:PROCsetITdat_(Z%)
37305ENDPROC
37310
37315DEFPROCSITdown_(Z%)
37320IF(sitp_%+-Z%)*sitif_%+sitip_%*sitif_%>maxS_%*sitip_%*sitif_%THENZ%=-(maxS_%*sitip_%-(sitp_%+sitip_%)):IFZ%=0THENENDPROC
37325IFsitp_%+-Z%<0THENZ%=sitp_%
37330IFsitp_%+-Z%>maxS_%*sitip_%-sitip_%THENZ%=0
37335IF(sitp_%+-Z%)*sitif_%+sitip_%*sitif_%<=maxS_%*sitip_%*sitif_%THENPROCgetSITdat_:sitp_%-=Z%:PROCsetSITdat_(Z%)
37340ENDPROC
37345
37350DEFPROCTITdown_(Z%)
37355IF(titp_%+-Z%)*sitif_%+sitip_%*sitif_%>maxT_%*sitip_%*sitif_%THENZ%=-(maxT_%*sitip_%-(titp_%+sitip_%)):IFZ%=0THENENDPROC
37360IFtitp_%+-Z%<0THENZ%=titp_%
37365IFtitp_%+-Z%>maxT_%*sitip_%-sitip_%THENZ%=0
37370IF(titp_%+-Z%)*sitif_%+sitip_%*sitif_%<=maxT_%*sitip_%*sitif_%THENPROCgetTITdat_:titp_%-=Z%:PROCsetTITdat_(Z%)
37375ENDPROC
37380
37385DEFPROCPITdown_(Z%)
37390IF(pitp_%+-Z%)*sitif_%+sitip_%*sitif_%>maxP_%*sitip_%*sitif_%THENZ%=-(maxP_%*sitip_%-(pitp_%+sitip_%)):IFZ%=0THENENDPROC
37395IFpitp_%+-Z%<0THENZ%=pitp_%
37400IFpitp_%+-Z%>maxP_%*sitip_%-sitip_%THENZ%=0
37405IF(pitp_%+-Z%)*sitif_%+sitip_%*sitif_%<=maxP_%*sitip_%*sitif_%THENPROCgetPITdat_:pitp_%-=Z%:PROCsetPITdat_(Z%)
37410ENDPROC
37415
37420DEFPROCBITdown_(Z%)
37425IF(bitp_%+-Z%)*bitif_%+sitip_%*bitif_%>maxB_%*sitip_%*bitif_%THENZ%=-(maxB_%*sitip_%-(bitp_%+sitip_%)):IFZ%=0THENENDPROC
37430IFbitp_%+-Z%<0THENZ%=bitp_%
37435IFbitp_%+-Z%>maxB_%*bitip_%-bitip_%THENZ%=0
37440IF(bitp_%+-Z%)*bitif_%+sitip_%*bitif_%<=maxB_%*sitip_%*bitif_%THENPROCgetBITdat_:bitp_%-=Z%:PROCsetBITdat_(Z%)
37445ENDPROC
37450
37455DEFPROCITup_(Z%):IFitp_%=0THENENDPROC
37460IFitp_%-Z%<0THENZ%=itp_%
37465IFitp_%-Z%>=0THENPROCgetITdat_(0):PROCgetITdattot_:itp_%-=Z%:PROCsetITdat_(Z%)
37470ENDPROC
37475
37480DEFPROCSITup_(Z%):IFsitp_%=0THENENDPROC
37485IFsitp_%-Z%<0THENZ%=sitp_%
37490IFsitp_%-Z%>=0THENPROCgetSITdat_:sitp_%-=Z%:PROCsetSITdat_(Z%)
37495ENDPROC
37500DEFPROCTITup_(Z%):IFtitp_%=0THENENDPROC
37505IFtitp_%-Z%<0THENZ%=titp_%
37510IFtitp_%-Z%>=0THENPROCgetTITdat_:titp_%-=Z%:PROCsetTITdat_(Z%)
37515ENDPROC
37520DEFPROCPITup_(Z%):IFpitp_%=0THENENDPROC
37525IFpitp_%-Z%<0THENZ%=pitp_%
37530IFpitp_%-Z%>=0THENPROCgetPITdat_:pitp_%-=Z%:PROCsetPITdat_(Z%)
37535ENDPROC
37540DEFPROCBITup_(Z%):IFbitp_%=0THENENDPROC
37545IFbitp_%-Z%<0THENZ%=bitp_%
37550IFbitp_%-Z%>=0THENPROCgetBITdat_:bitp_%-=Z%:PROCsetBITdat_(Z%)
37555ENDPROC
37560
37565DEFPROCITpage_(V_%)
37570LOCAL Z%
37575IF!i%<1OR!i%>itin_%THENENDPROC
37580Z%=!i%:IFV_%<0THENPROCITdown_(V_%):IFV_%<-1:IFitp_%=maxI_%*itip_%-itip_%THENZ%=itin_%-5
37585IFV_%>0THENPROCITup_(V_%):IFV_%>1:IFitp_%=0THENZ%=1
37590PROCsetC1_(invw%,Z%)
37595ENDPROC
37600
37605DEFPROCSITpage_(V_%)
37610LOCAL Z%
37615IF!i%<1OR!i%>sitin_%THENENDPROC
37620Z%=!i%:IFV_%<0THENPROCSITdown_(V_%):IFV_%<-1:IFsitp_%=maxS_%*sitip_%-sitip_%THENZ%=sitin_%-(sitif_%-((!i%-1)MODsitif_%+1))
37625IFV_%>0THENPROCSITup_(V_%):IFV_%>1:IFsitp_%=0THENZ%=(!i%-1)MODsitif_%+1
37630PROCsetC1_(saled%,Z%)
37635ENDPROC
37640
37645DEFPROCTITpage_(V_%)
37650LOCAL Z%
37655IF!i%<1OR!i%>sitin_%THENENDPROC
37660Z%=!i%:IFV_%<0THENPROCTITdown_(V_%):IFV_%<-1:IFtitp_%=maxT_%*sitip_%-sitip_%THENZ%=sitin_%-(sitif_%-((!i%-1)MODsitif_%+1))
37665IFV_%>0THENPROCTITup_(V_%):IFV_%>1:IFtitp_%=0THENZ%=(!i%-1)MODsitif_%+1
37670PROCsetC1_(stand%,Z%)
37675ENDPROC
37680
37685DEFPROCPITpage_(V_%)
37690LOCAL Z%
37695IF!i%<1OR!i%>sitin_%THENENDPROC
37700Z%=!i%:IFV_%<0THENPROCPITdown_(V_%):IFV_%<-1:IFpitp_%=maxP_%*sitip_%-sitip_%THENZ%=sitin_%-(sitif_%-((!i%-1)MODsitif_%+1))
37705IFV_%>0THENPROCPITup_(V_%):IFV_%>1:IFpitp_%=0THENZ%=(!i%-1)MODsitif_%+1
37710PROCsetC1_(paled%,Z%)
37715ENDPROC
37720
37725DEFPROCBITpage_(V_%)
37730LOCAL Z%
37735IF!i%<1OR!i%>bitin_%THENENDPROC
37740Z%=!i%:IFV_%<0THENPROCBITdown_(V_%):IFV_%<-1:IFbitp_%=maxB_%*bitip_%-bitip_%THENZ%=bitin_%-(bitif_%-((!i%-1)MODbitif_%+1))
37745IFV_%>0THENPROCBITup_(V_%):IFV_%>1:IFbitp_%=0THENZ%=(!i%-1)MODbitif_%+1
37750PROCsetC1_(bankl%,Z%)
37755ENDPROC
37760
37765DEFFNITsn_
37770LOCAL A%,B%,B$,A$,Z%,A
37775LOCAL ERROR
37780ON ERROR LOCAL:RESTORE ERROR:PROCpe_("Can't calculate quantity?"+" ("+FNerr_+")"):=TRUE
37785ITsupch_%=0
37790CASE !i%MODitif_% OF
37795WHEN 1:ITn_%(!i%/itif_%+itp_%)=0:ITos_$(!i%/itif_%+itp_%)="":Z%=FNpII(invw%,!i%,"")
37890WHEN 3:A$=FNgId(invw%,!i%):IFINSTR(A$,":")=0:IFA$<>"":A=EVAL(A$)*100:A$=FNconvis_(A,""):IFRIGHT$(A$,3)=".00"THENA$=LEFT$(A$,LEN(A$)-3)
37895IFA$="":IFFNgId(invw%,!i%-2)<>"":A$="1"
37900IFA$<>"":Z%=FNpII(invw%,!i%,A$)
37905WHEN 4:A$=FNgId(invw%,!i%):A=FNconvsi_(A$):Z%=FNpII(invw%,!i%,FNconvis_(A,"")):IF$!ITpri_%="Ret.Inc"THENITr_(!i%/itif_%+itp_%)=A ELSEITr_(!i%/itif_%+itp_%)=0
37910IFFNgId(invw%,!i%-1)="":IFA$<>"":Z%=FNpII(invw%,!i%-1,"1")
37915IFFNgId(invw%,!i%+1)="":IFCSuDisc_$(supply1_%)<>"":IFA$<>""THENZ%=FNpII(invw%,!i%+1,CSuDisc_$(supply1_%))
37920WHEN 5:ITd_%(!i%/itif_%+itp_%)=ASC($!ITDisc_%)
37925WHEN 0:IF!i%>itif_%:IFFNgId(invw%,!i%)="":IFFNgId(invw%,!i%-2)<>"":A$=FNgId(invw%,!i%-itif_%):Z%=FNpII(invw%,!i%,A$)
37930ENDCASE
37935B%=!i%-1:PROCgetITdat_(0):PROCgetITdattot_
37940IFFNgId(invw%,62)<>ITsss_$(8)THENZ%=FNpII(invw%,62,ITsss_$(8))
37945IFFNgId(invw%,63)<>ITsss_$(9)THENZ%=FNpII(invw%,63,ITsss_$(9))
37950IFFNgId(invw%,64)<>ITsss_$(10)THENZ%=FNpII(invw%,64,ITsss_$(10))
37955IFFNgId(invw%,65)<>ITsss_$(11)THENZ%=FNpII(invw%,65,ITsss_$(11))
37960IFFNgId(invw%,B%/itif_%+54)<>ITt_$(B%/itif_%+itp_%)THEN=FNpII(invw%,B%/itif_%+54,ITt_$(B%/itif_%+itp_%))
37965=TRUE
37970
37975DEFPROCsw_(A_%):LOCAL Z%,Z_%:FORZ%=1TO16:IFA_%=low_%(Z%):low_%(Z%)=0:Z_%=Z%:Z%=16:NEXT:FORZ%=Z_%TO15:low_%(Z%)=low_%(Z%+1):NEXT ELSENEXT
37980low_%(16)=0:ENDPROC
37985DEFPROCow_:LOCAL Z%,Z_%:REPEAT:Z_%=-1:FORZ%=16TO1STEP-1:IFlow_%(Z%)>0THENZ_%=low_%(Z%):Z%=1
37990NEXT:IFZ_%>0:IFFNwS(Z_%!12):PROCoW(Z_%):PROCgC(Z_%) ELSEIFZ_%>0:PROCsw_(Z_%):Z_%=0
37995UNTILZ_%<>0:IFZ_%=-1:IF$wn%<>"EditIt":Z%=FNmainW_
38000ENDPROC
38005
38010DEFFNldelete_(Z_%):IFQ%!24=27:IFW%>0:IFW%!12>0:IFlow_%(2)>0OR$wn%<>"EditIt":PROCeK:PROCcloseW(W%):=TRUE
38015IFZ_%=1:=FNwindow("Calc")
38020IFZ_%=19:sa_%=1:=FNswc_
38025IFZ_%=461:=FNInsert_
38030IFZ_%=30:=FNStart1_
38035IFZ_%=414:=FNLeft11_
38040IFZ_%=415:=FNRight11_
38045IFZ_%=443:sa_%=1:=FNallcopy_
38050IFZ_%=411:sa_%=1:=FNcopy_
38055IFZ_%=384:=FNprintkey_
38060IFZ_%=8:=FNcredit_
38065IFZ_%=17THEN=FNmainW_
38075IFZ_%=9:IF$wn%="InvW"THENsa_%=1:=FNITne1_
38080IFZ_%=9:IF$wn%="CustomW"THEN=FNinvoc_
38085IFZ_%=5:IF$wn%="Saled"OR$wn%="SaledFW"OR$wn%="SaledRW"OR$wn%="Headings"ANDsaled%>0THEN=FNSaledRW_
38090IFZ_%=6:IF$wn%="Saled"OR$wn%="SaledFW"OR$wn%="SaledRW"ANDsaled%>0OR$wn%="Headings"ANDsaled%>0THEN=FNSaledFW_
38095IFZ_%=5:IF$wn%="Paled"OR$wn%="PaledFW"OR$wn%="PaledRW"OR$wn%="PHeadings"ANDpaled%>0THEN=FNPaledRW_
38100IFZ_%=6:IF$wn%="Paled"OR$wn%="PaledFW"OR$wn%="PaledRW"ANDpaled%>0OR$wn%="PHeadings"ANDpaled%>0THEN=FNPaledFW_
38105IFZ_%=5:IF$wn%="BankL"OR$wn%="BankFW"OR$wn%="BankRW"OR$wn%="Banks"ANDbankl%>0THEN=FNBankRW_
38110IFZ_%=6:IF$wn%="BankL"OR$wn%="BankFW"OR$wn%="BankRW"ANDbankl%>0OR$wn%="Banks"ANDbankl%>0THEN=FNBankFW_
38115IFZ_%=9ORZ_%=5:=TRUE
38120IFZ_%<>4ANDZ_%<>11ANDZ_%<>3ANDZ_%<>18ANDZ_%<>6ANDZ_%<>22THEN=FALSE
38125LOCAL A_%,B_%,Z%,a_%,A_$:Z%=(!i%-1)/sitif_%:Z%=Z%*sitif_%:IF$wn%="BankL"THENZ%=(!i%-1)/bitif_%:Z%=Z%*bitif_%
38130IFZ_%=4ORZ_%=3:IF$wn%="Saled"OR$wn%="Paled"OR$wn%="BankL"THENud_$(0)="10":IF$wn%="BankL"THENud_$(0)="7"
38135IFZ_%=11:IF$wn%="Saled"OR$wn%="Paled"OR$wn%="BankL"THENZ%=0:ud_$(0)="54":IF$wn%="BankL"THENud_$(0)="39"
38140IFZ_%=18:IF$wn%="Saled"OR$wn%="Paled"OR$wn%="BankL":IFud_$(0)="54"ORud_$(0)="39"THENZ%=0
38145IFZ_%=18:IF$wn%="Saled"OR$wn%="Paled":IFud_$(0)="39"ORud_$(0)="7":=FALSE
38150IFZ_%=18:IF$wn%="BankL":IFud_$(0)="54"ORud_$(0)="10":=FALSE
38155CASE $wn% OF
38170WHEN"CFindSu":IFZ_%=4:$!CSSupplier_%="":PROCrI(W%,"CSSupplier")
38175WHEN"SaledFW":IFZ_%=4:PROCupdatesaled1d_
38180WHEN"PaledFW":IFZ_%=4:PROCupdatepaled1d_
38185WHEN"BankFW":IFZ_%=4:PROCupdatebank1d_
38190WHEN"Saled":IFZ_%=4ORZ_%=11THEN
38195FORA_%=Z%TOZ%+VAL(ud_$(0)):ud_$(A_%-Z%+1)=SITe_$(A_%+1+sitp_%*sitif_%):B_%=FNpII(saled%,A_%+1,""):IFA_%MODsitif_%=8:a_%+=1:ud_%(a_%)=SITn_%(A_%/sitif_%+1+sitp_%):SITn_%(A_%/sitif_%+1+sitp_%)=0:IFSITs_$(A_%/sitif_%+sitp_%)=Q_$:ud_$(A_%-Z%+1)+="R"
38200NEXT:A_%=FNupdatesaled_
38205ENDIF
38210IFZ_%=3ANDZ%>0ANDSITe_$(Z%+1+sitp_%*sitif_%)=""THEN
38215FORA_%=Z%TOZ%+VAL(ud_$(0)):ud_$(A_%-Z%+1)=SITe_$(A_%+1+sitp_%*sitif_%):A_$=FNgId(saled%,A_%+1-sitif_%):IFA_%MODsitif_%=8:IFSITs_$(A_%/sitif_%+sitp_%-1)=Q_$:A_$+="R"
38220B_%=FNpII(saled%,A_%+1,A_$):IFA_%MODsitif_%=8:a_%+=1:ud_%(a_%)=SITn_%(A_%/sitif_%+1+sitp_%):SITn_%(A_%/sitif_%+1+sitp_%)=SITn_%(A_%/sitif_%+1+sitp_%-1):IFSITs_$(A_%/sitif_%+sitp_%)=Q_$:ud_$(A_%-Z%+1)+="R"
38225NEXT:A_%=FNupdatesaled_
38230ENDIF
38235IFZ_%=18THEN
38240FORA_%=Z%TOZ%+VAL(ud_$(0)):IFA_%MODsitif_%=8:a_%+=1:ud1_%(a_%)=SITn_%(A_%/sitif_%+1+sitp_%):SITn_%(A_%/sitif_%+1+sitp_%)=ud_%(a_%)
38245ud1_$(A_%-Z%+1)=SITe_$(A_%+1+sitp_%*sitif_%):B_%=FNpII(saled%,A_%+1,ud_$(A_%-Z%+1)):IFA_%MODsitif_%=8:IFSITs_$(A_%/sitif_%+sitp_%)=Q_$:ud1_$(A_%-Z%+1)+="R"
38250ud_$(A_%-Z%+1)=ud1_$(A_%-Z%+1):IFA_%MODsitif_%=8:ud_%(a_%)=ud1_%(a_%)
38255NEXT:A_%=FNupdatesaled_
38260ENDIF:occred_%=0:IF!i%MODsitif_%=0THENB_%=sitif_% ELSEB_%=!i%MODsitif_%
38265IFZ_%=22:IFsitp_%>0OR!i%>11:A_$=SITe_$(Z%+sitp_%*sitif_%+B_%-sitif_%):B_%=FNpII(saled%,!i%,A_$):A_%=FNupdatesaled_:SYS&6,138,0,13:IF!i%MODsitif_%=3:SITn_%(Z%/sitif_%+1+sitp_%)=SITn_%(Z%/sitif_%+sitp_%)
38270WHEN"Paled":IFZ_%=4ORZ_%=11THEN
38275FORA_%=Z%TOZ%+VAL(ud_$(0)):ud_$(A_%-Z%+1)=PITe_$(A_%+1+pitp_%*sitif_%):B_%=FNpII(paled%,A_%+1,""):IFA_%MODsitif_%=8:a_%+=1:ud_%(a_%)=PITn_%(A_%/sitif_%+1+pitp_%):PITn_%(A_%/sitif_%+1+pitp_%)=0:IFPITs_$(A_%/sitif_%+pitp_%)=Q_$:ud_$(A_%-Z%+1)+="R"
38280NEXT:A_%=FNupdatepaled_
38285ENDIF
38290IFZ_%=3ANDZ%>0ANDPITe_$(Z%+1+pitp_%*sitif_%)=""THEN
38295FORA_%=Z%TOZ%+VAL(ud_$(0)):ud_$(A_%-Z%+1)=PITe_$(A_%+1+pitp_%*sitif_%):A_$=FNgId(paled%,A_%+1-sitif_%):IFA_%MODsitif_%=8:IFPITs_$(A_%/sitif_%+pitp_%-1)=Q_$:A_$+="R"
38300B_%=FNpII(paled%,A_%+1,A_$):IFA_%MODsitif_%=8:a_%+=1:ud_%(a_%)=PITn_%(A_%/sitif_%+1+pitp_%):PITn_%(A_%/sitif_%+1+pitp_%)=PITn_%(A_%/sitif_%+1+pitp_%-1):IFPITs_$(A_%/sitif_%+pitp_%)=Q_$:ud_$(A_%-Z%+1)+="R"
38305NEXT:A_%=FNupdatepaled_
38310ENDIF
38315IFZ_%=18THEN
38320FORA_%=Z%TOZ%+VAL(ud_$(0)):IFA_%MODsitif_%=8:a_%+=1:ud1_%(a_%)=PITn_%(A_%/sitif_%+1+pitp_%):PITn_%(A_%/sitif_%+1+pitp_%)=ud_%(a_%)
38325ud1_$(A_%-Z%+1)=PITe_$(A_%+1+pitp_%*sitif_%):B_%=FNpII(paled%,A_%+1,ud_$(A_%-Z%+1)):IFA_%MODsitif_%=8:IFPITs_$(A_%/sitif_%+pitp_%)=Q_$:ud1_$(A_%-Z%+1)+="R"
38330ud_$(A_%-Z%+1)=ud1_$(A_%-Z%+1):IFA_%MODsitif_%=8:ud_%(a_%)=ud1_%(a_%)
38335NEXT:A_%=FNupdatepaled_
38340ENDIF:oscred_%=0:IF!i%MODsitif_%=0THENB_%=sitif_% ELSEB_%=!i%MODsitif_%
38345IFZ_%=22:IFpitp_%>0OR!i%>11:A_$=PITe_$(Z%+pitp_%*sitif_%+B_%-sitif_%):B_%=FNpII(paled%,!i%,A_$):A_%=FNupdatepaled_:SYS&6,138,0,13:IF!i%MODsitif_%=3:PITn_%(Z%/sitif_%+1+pitp_%)=PITn_%(Z%/sitif_%+pitp_%)
38350WHEN"BankL":IFZ_%=4ORZ_%=11:FORA_%=Z%TOZ%+VAL(ud_$(0)):ud_$(A_%-Z%+1)=BITe_$(A_%+1+bitp_%*bitif_%):B_%=FNpII(bankl%,A_%+1,""):NEXT:A_%=FNupdatebankl_
38355IFZ_%=3:IFZ%>0:IFBITe_$(Z%+1+bitp_%*bitif_%)="":FORA_%=Z%TOZ%+VAL(ud_$(0)):ud_$(A_%-Z%+1)=BITe_$(A_%+1+bitp_%*bitif_%):A_$=FNgId(bankl%,A_%+1-bitif_%):B_%=FNpII(bankl%,A_%+1,A_$):NEXT:A_%=FNupdatebankl_
38360IFZ_%=18:FORA_%=Z%TOZ%+VAL(ud_$(0)):ud1_$(A_%-Z%+1)=BITe_$(A_%+1+bitp_%*bitif_%):B_%=FNpII(bankl%,A_%+1,ud_$(A_%-Z%+1)):ud_$(A_%-Z%+1)=ud1_$(A_%-Z%+1):NEXT:A_%=FNupdatebankl_
38365IF!i%MODbitif_%=0THENB_%=bitif_% ELSEB_%=!i%MODbitif_%
38370IFZ_%=22:IFbitp_%>0OR!i%>bitif_%:A_$=BITe_$(Z%+bitp_%*bitif_%+B_%-bitif_%):B_%=FNpII(bankl%,!i%,A_$):A_%=FNupdatebankl_:SYS&6,138,0,13
38375WHEN"CustomW":IFZ_%=3:IFCSuppliers_$(CS_%)="":IFCS_%>1:$!CSufindnum_%=STR$(CS_%-1):A_%=FNallcopy_
38380IFZ_%=6THENZ%=FNCSuFind_
38417ENDCASE
38420=TRUE
38425DEFFNRsn_
38430LOCAL A_%,A%,B%,C%,D%,E%,F%,G%,Z%,A_$,A$,B$,C$,D$,a_%
38435IFW%!12=saled%THENE%=saled%:F%=sitp_%:G%=1 ELSEE%=stand%:F%=titp_%
38440A_%=!i%:A$=FNgId(E%,!i%):B$=A$:A%=!i%:C$="":B%=sitif_%
38445CASE!i%MODsitif_%OF
38450WHEN 1:IFF%=0AND!i%<12THENB%=1
38455IFG%THENB$=FNchdate1_(A$,SITe_$(!i%+F%*sitif_%-B%)) ELSEB$=FNchdate_(A$):IFB$=""THENTITn_%(!i%/sitif_%+F%)=0:FORa_%=0TO10:Z%=FNpII(E%,!i%+a_%,""):NEXT:A%+=1
38460IFG%:A%+=2:IFSITe_$((!i%+1)+F%*sitif_%)=""THENZ%=FNpII(E%,!i%+1,RIGHT$(B$,7))
38465WHEN 2:IFG%:B$=RIGHT$(FNchdate1_("01."+A$,SITe_$((!i%-1)+F%*sitif_%)),7)
38470WHEN 3:IFG%<>0:B$=FNPITSuFirst_(A$,1)
38475IFG%=0:IFTITe_%(!i%/sitif_%+F%)=-1THENB$=FNPITSuFirst_(A$,2)
38480IFG%=0:IFTITe_%(!i%/sitif_%+F%)=1THENB$=FNPITSuFirst_(A$,4)
38485WHEN 4:IFG%:IFA$="":IF!i%>11THENA$=SITe_$(!i%+F%*sitif_%-B%)
38490IFA$<>""THENB$=FNcaps_(A$):A$=""
38495WHEN 5:IFG%=1ANDA$=""THEN
38500D$=FNcaps_(FNgId(E%,!i%-1)):IF!i%+F%*sitif_%>11ANDD$<>""THEN
38505SYS&406C0:FORa_%=!i%+F%*sitif_%-B%TO5STEP-B%
38510IFFNcaps_(SITe_$(a_%-1))=D$:IFFNgn_(SITe_$(a_%))>0:B$=FNupdatenum_(SITe_$(a_%),50):a_%=5
38515NEXT:SYS&406C1
38520ENDIF
38525ENDIF
38530WHEN 6:B%=FNni_(A$)
38535IFRIGHT$(A$)="�":B$=FNadd_vat(B%):A$="0" ELSEB$=FNtc_(B%,"")
38540A_$=FNautovat_(A$,B%):IFA_$<>""THEN
38545Z%=FNpII(E%,!i%+1,vatc_$):A%+=3:IFA_$="0"THENA_$=""
38550Z%=FNpII(E%,!i%+2,A_$)
38555IFG%=0THENA%+=1
38560ENDIF
38565IFG%=0:Z%=FNpII(E%,!i%+3,B$)
38570WHEN 7:IFA$<>""THENB$=FNcaps_(A$)
38575WHEN 8:B%=FNni_(A$):B$=FNtc_(B%,""):IFG%=0THENA%+=2
38580WHEN 9:B%=FNni_(A$):C%=FNni_(FNgId(E%,!i%-3))
38585C$="":IFINSTR(A$,"P")ORINSTR(A$,"p")THENC$="P" ELSEIFINSTR(A$,"R")ORINSTR(A$,"r")THENC$="R" ELSEIFINSTR(A$,"U")ORINSTR(A$,"u")THENC$="U":B%=0
38590IFC$="R"ORC$="P":IFB%=0THENB%=C%
38595B$=FNtc_(B%,"")
38600IFG%=0:Z%=FNpII(E%,!i%-3,B$):IFC$="R"C$=""
38605WHEN 10:IFG%:IFA$="":IF!i%>11THENA$=SITe_$(!i%+F%*sitif_%-B%)
38610IFLEN(A$)=1THENA$=A$+"A"
38615IFA$<>""THENB$=FNcaps_(A$):A$=""
38620WHEN 0:IFG%:IFA$="":IF!i%>11THENZ%=FNpII(E%,!i%,FNupdatenum2_(SITe_$(!i%+F%*sitif_%-B%)))
38625IFG%:IF!i%=sitin_%THENPROCSITdown_(-1):A%=sitin_%-10
38630IFG%=0:IF!i%=sitin_%THENPROCTITdown_(-1):A%=sitin_%-10
38635ENDCASE
38640IFA$<>B$THENZ%=FNpII(E%,!i%,B$)
38645IFC$<>""THENZ%=FNpII(E%,!i%/sitif_%+76,C$)
38650IFA%<>!i%THENPROCsetC1_(E%,A%) ELSEA%+=1:IFA%>sitin_%THENA%=sitin_%-sitif_%+1
38655IFG%THENPROCgetSITdat_ ELSEPROCgetTITdat_
38660PROCseewind_(E%,A%):occred_%=0:PROCupdateccred_(CS_%,1)
38665=TRUE
38670
38675DEFFNRsn1_
38680LOCAL A_%,A%,B%,C%,D%,Z%,A_$,A$,B$,C$,D$,a_%
38685A_%=!i%:A$=FNgId(paled%,!i%):B$=A$:A%=!i%:C$="":B%=sitif_%
38690CASE!i%MODsitif_%OF
38695WHEN 1:IFpitp_%=0AND!i%<12THENB%=1
38700B$=FNchdate1_(A$,PITe_$(!i%+pitp_%*sitif_%-B%))
38705IFPITe_$((!i%+1)+pitp_%*sitif_%)=""THENZ%=FNpII(paled%,!i%+1,RIGHT$(B$,7))
38710A%+=2
38715WHEN 2:B$=RIGHT$(FNchdate1_("01."+A$,PITe_$((!i%-1)+pitp_%*sitif_%)),7)
38720WHEN 3:B$=FNPITSuFirst_(A$,3)
38725WHEN 4:IFA$="":IF!i%>11THENA$=PITe_$(!i%+pitp_%*sitif_%-B%)
38730IFA$<>""THENB$=FNcaps_(A$):A$=""
38735WHEN 5:IFA$=""THEN
38740D$=FNcaps_(FNgId(paled%,!i%-1)):IF!i%+pitp_%*sitif_%>11ANDD$<>""THEN
38745SYS&406C0:FORa_%=!i%+pitp_%*sitif_%-B%TO5STEP-B%
38750IFFNcaps_(PITe_$(a_%-1))=D$:IFFNgn_(PITe_$(a_%))>0:B$=FNupdatenum_(PITe_$(a_%),50):a_%=5
38755NEXT:SYS&406C1
38760ENDIF
38765ENDIF
38770WHEN 6:B%=FNni_(A$)
38775IFRIGHT$(A$)="�":B$=FNadd_vat(B%):A$="0" ELSEB$=FNtc_(B%,"")
38780A_$=FNautovat_(A$,B%):IFA_$<>""THEN
38785Z%=FNpII(paled%,!i%+1,vatc_$):A%+=3:IFA_$="0"THENA_$=""
38790Z%=FNpII(paled%,!i%+2,A_$)
38795ENDIF
38800WHEN 7:IFA$<>""THENB$=FNcaps_(A$)
38805WHEN 8:B%=FNni_(A$):B$=FNtc_(B%,"")
38810WHEN 9:B%=FNni_(A$):C%=FNni_(FNgId(paled%,!i%-3))
38815C$="":IFINSTR(A$,"P")ORINSTR(A$,"p")THENC$="P" ELSEIFINSTR(A$,"R")ORINSTR(A$,"r")THENC$="R" ELSEIFINSTR(A$,"U")ORINSTR(A$,"u")THENC$="U":B%=0
38820IFC$="R"ORC$="P":IFB%=0THENB%=C%
38825B$=FNtc_(B%,"")
38830WHEN 10:IFA$="":IF!i%>11THENA$=PITe_$(!i%+pitp_%*sitif_%-B%)
38835IFLEN(A$)=1THENA$=A$+"A"
38840IFA$<>""THENB$=FNcaps_(A$):A$=""
38845WHEN 0:IFA$="":IF!i%>11THENZ%=FNpII(paled%,!i%,FNupdatenum2_(PITe_$(!i%+pitp_%*sitif_%-B%)))
38850IF!i%=sitin_%THENPROCPITdown_(-1):A%=sitin_%-10
38855ENDCASE
38860IFA$<>B$THENZ%=FNpII(paled%,!i%,B$)
38865IFC$<>""THENZ%=FNpII(paled%,!i%/sitif_%+76,C$)
38870IFA%<>!i%THENPROCsetC1_(paled%,A%) ELSEA%+=1:IFA%>sitin_%THENA%=sitin_%-sitif_%+1
38875PROCgetPITdat_
38880PROCseewind_(paled%,A%)
38885=TRUE
38890
38895DEFFNRsn2_
38900LOCAL A_%,A%,B%,C%,D%,Z%,A_$,A$,B$,C$,D$
38905A_%=!i%:A$=FNgId(bankl%,!i%):B$=A$:A%=!i%:B%=bitif_%
38910CASE!i%MODbitif_%OF
38915WHEN 1:IFbitp_%=0AND!i%<9THENB%=1
38920B$=FNchdate1_(A$,BITe_$(!i%+bitp_%*bitif_%-B%))
38925WHEN 2:IFA$="":IF!i%>8THENB$=FNupdatenum_(BITe_$(!i%+bitp_%*bitif_%-B%),50)
38930WHEN 3:IFA$="":IF!i%>8THENA$=BITe_$(!i%+bitp_%*bitif_%-B%)
38935IFA$<>""THENB$=FNcaps_(A$):A$=""
38940WHEN 5:B%=FNni_(A$):B$=FNtc_(B%,""):IFB%<>0:IFFNgId(bankl%,!i%-1)<"{"THENZ%=FNpII(bankl%,!i%-1,"P")
38945WHEN 6:IFA$="":IF!i%>8THENA$=BITe_$(!i%+bitp_%*bitif_%-B%)
38950IFA$<>""THENB$=FNcaps_(A$):A$=""
38955WHEN 0:IFA$="":IF!i%>8THENZ%=FNpII(bankl%,!i%,FNupdatenum2_(BITe_$(!i%+bitp_%*bitif_%-B%)))
38960IF!i%=bitin_%THENPROCBITdown_(-1):A%=bitin_%-7
38965ENDCASE
38970IFA$<>B$THENZ%=FNpII(bankl%,!i%,B$)
38975IFA%<>!i%THENPROCsetC1_(bankl%,A%) ELSEA%+=1:IFA%>bitin_%THENA%=bitin_%-bitif_%+1
38980PROCgetBITdat_
38985PROCseewind_(bankl%,A%)
38990=TRUE
38995DEFFNITord_:IF$!ITord_%<>"":CSuSuppRe_$(supply1_%)=$!ITord_%:IFCSuW%>0:IFCS_%=supply1_%:$!CSuSuppRef_%=CSuSuppRe_$(supply1_%):PROCrI(CSuW%,"CSuSuppRef")
39000=TRUE
39005DEFFNITsnd_:LOCAL Z%:Z%=((!i%-66)+itp_%):PROCgeticon_(invw%,!i%):PROCseticon_(invw%,!i%,flag21_%,0)
39010IFITf_%(Z%)=0THENITf_%(Z%)=1 ELSEITf_%(Z%)=0
39015=TRUE
39020
39025DEFFNITDisc_:IF$!ITDisc_%="Disc%" THEN$!ITDisc_%="Comm%" ELSE$!ITDisc_%="Disc%"
39030PROCrI(invW%,"ITDisc"):ITDisc_$=$!ITDisc_%:=TRUE
39035DEFFNITrec_:IFinvw%<1THEN=FALSE
39040IF$!ITrec_%="Stock Num" THEN$!ITrec_%="Recrd Num" ELSE$!ITrec_%="Stock Num"
39045PROCrI(invW%,"ITrec"):ITre_$=$!ITrec_%:=TRUE
39050DEFFNITpri_:IF$!ITpri_%="Ret.Exc" THEN$!ITpri_%="Ret.Inc" ELSEIF$!ITpri_%="Ret.Inc" THEN$!ITpri_%="List" ELSEIF$!ITpri_%="List" THEN$!ITpri_%="Ret.Exc"
39055PROCrI(invW%,"ITpri"):ITpric_$=$!ITpri_%:=TRUE
39060DEFFNITcop_:ITcop_$=$!ITcop_%:=TRUE
39065DEFFNITesd_:ITes_%=VAL($!ITesd_%):PROCgetITdat_(0):PROCgetITdattot_:PROCsetITdat_(0):=TRUE
39070DEFFNITsupplier_:LOCAL Z%:Z%=FNsf_($!ITsupplier_%,1)
39075IFZ%>0:$!ITsupplier_%=CSuppliers_$(Z%):ITsupnumN_%=CSuNumber_%(Z%):PROCrI(invW%,"ITsupplier")
39080=FNITnet_(0)
39085DEFFNITnum_:=FNITnet_(0)
39090DEFFNnewcust_:LOCAL A%,Z%:Z%=TRUE:IFFNgetcust_(0)=FALSE THEN$!ITnum_%=ITnu_$:$!ITsupplier_%=FNgetcustname_(ITsupnum_%):Z%=FALSE
39095PROCrI(invW%,"ITnum"):PROCrI(invW%,"ITsupplier"):PROCsetC1_(invw%,iti_%):=Z%
39100DEFFNITsl_:=FNopt_
39105DEFFNITpd_:PROCsI(invW%,"ITpd"):PROCsI(invW%,"ITunp"):=TRUE
39110DEFFNITunp_:PROCusI(invW%,"ITunp"):PROCusI(invW%,"ITpd"):=TRUE
39115DEFFNITunp1_:IFinvw%<1:=FALSE
39120ci_%=-ci_%:IFci_%=-1THEN=FNITpd_ ELSE=FNITunp_
39125DEFFNgetcustname_(A%):LOCAL A$,Z%:FORZ%=1TOCmaxsupp_%
39130IFA%=CSuNumber_%(Z%)THENA$=CSuppliers_$(Z%):Z%=Cmaxsupp_%
39135NEXT:=A$
39140DEFFNgetcustnum_(A%):LOCAL B%,Z%:FORZ%=1TOCmaxsupp_%
39145IFA%=CSuNumber_%(Z%)THENB%=Z%:Z%=Cmaxsupp_%
39150NEXT:=B%
39151
39152DEFFNcheckdate_(B$):IFB$=""THEN=TRUE
39153IFFNJul_(today_$)>FNJul_(B$)THEN=TRUE
39154=FALSE
39155
39195DEFFNITpa_
39200LOCAL A%,B%,C%,F%,Z%,num_$,cust_%,d$,d%,i_%,a$,a_%,k_%,ent_%,a_
39205LOCAL ERROR
39210ON ERROR LOCAL:RESTORE ERROR:SYS&406C1:PROCpe1_(FNerr_,F%):=FALSE
39215Oerr_%=0:Z%=FNITnum_
39220F%=OPENUP(inv_$):IFF%=0THEN=FALSE
39225IFEXT#F%=0THENCLOSE#F%:F%=0:=FALSE
39230REPEAT:ent_%=0
39235A%=PTR#F%:INPUT#F%,num_$,cust_%,d$,d%,i_%,a$,a$,a$
39240FORZ%=0TO4:INPUT#F%,a_%:NEXT:INPUT#F%,k_%,a_%
39245FORZ%=1TOi_%*itif_%:INPUT#F%,a$:IFa$<>""THENent_%=1
39250NEXT
39255FORZ%=0TOi_%:INPUT#F%,a$,a_%,a_%,a_%,a_%,a$,a_%:NEXT
39260B%=PTR#F%
39265CLOSE#F%:F%=0
39270IFi_%>0ANDnum_$="Current"ANDFNcheckdate_(d$)=TRUE ANDk_%=0ANDent_%=1THEN
39275$!ITsupplier_%=FNgetcustname_(cust_%):$!ITrecd_%=STR$(FNgetcustnum_(cust_%))
39280$!ITnum_%=num_$:Z%=FNITnum_
39285IFFNITpi_=FALSE THENOerr_%=1
39290C%=A%
39295ELSE
39300C%=B%
39305ENDIF
39310F%=OPENUP(inv_$):PTR#F%=C%
39315a_=INKEY(0):UNTILPTR#F%=EXT#F%OROerr_%>0ORa_=27:CLOSE#F%:F%=0
39320=FNITnum_
39325
39330DEFFNITpi_
39335LOCAL A_%,B%,C%,Z%
39340C%=0:A_%=TRUE:B%=FALSE:Z%=FNupdateInvW_
39345IFITnu_$="Current"THENITnumb_$=CSuOrde_$(FNgetcustnum_(ITsupnum_%))+IOrderS_$(19) ELSEITnumb_$=ITnu_$
39350IFFNcheckdate_($!ITda_%)=FALSE THEN=FALSE
39355IFFNgetiflag(93)=1 THEN=FALSE
39360PROCgetITdatvat_
39365IFFNgetiflag(86)=0:Z%=FNfirstfreesale_:IFFNfreesale_=1THENerror_%=1:PROCwl_(25):=FALSE
39370IFFNITprint_(VAL($!ITcop_%),0,FNgetcustnum_(ITsupnum_%))=FALSE THEN=FALSE
39375IFFNgetiflag(86)=0THENZ%=FNsavesalesledger_(2)
39380IFFNgetiflag(92)=1THEN$!ITnum_%="Current":Z%=FNgetcust_(1):Z%=FNopt1_(86):Z%=FNopt1_(92):Z%=FNopt1_(93):Z%=FNopt1_(94):PROCsetC1_(invw%,iti_%):IOrderS_$(19)=FNupdatenum_(IOrderS_$(19),20):IOrderch%(19)=1:B%=TRUE
39385IFB%=TRUE:IFIOnum%>0THENZ%=FNIinitOrdernum_:PROCrI(IOnum%,"IOrdernum")
39390IFB%=TRUE THEN=A_%
39395IFITnu_$="Current"THEN
39400Z%=FNopt2_(86):Z%=FNopt2_(93):Z%=FNopt2_(94)
39405Z%=FNsavecust_(0,CSuOrde_$(FNgetcustnum_(ITsupnum_%))+IOrderS_$(19))
39410ITnu_$=CSuOrde_$(FNgetcustnum_(ITsupnum_%))+IOrderS_$(19):$!ITnum_%=ITnu_$:PROCrI(invW%,"ITnum")
39415IOrderS_$(19)=FNupdatenum_(IOrderS_$(19),20):IOrderch%(19)=1
39420IFIOnum%>0THENZ%=FNIinitOrdernum_:PROCrI(IOnum%,"IOrdernum")
39425ELSE
39430Z%=FNsavecust_(0,ITnu_$)
39435ENDIF
39440PROCsetC1_(invw%,iti_%)
39445=A_%
39450DEFFNITtp_:IFITnu_$="Current"THENITnumb_$=CSuOrde_$(FNgetcustnum_(ITsupnum_%))+IOrderS_$(19) ELSEITnumb_$=ITnu_$
39455PROCgetITdatvat_:=FNITprint_(1,2,FNgetcustnum_(ITsupnum_%))
39460DEFFNITdi_:PROCgeticon_(invw%,!i%):PROCseticon_(invw%,!i%,flag21_%,0):=TRUE
39465DEFFNITpr_:=FNopt_
39470DEFFNITne_:=FNITnet_(1)
39475DEFFNITne1_:LOCAL Z%:IFinvw%<1THEN=FALSE ELSEZ%=FNwindow("InvW"):$!ITnum_%="Current":PROCrI(invW%,"ITnum"):=FNITnum_
39480DEFFNITnet_(Z%)
39485LOCAL A%
39490IFZ%=1THEN
39495IFFNgetiflag(!i%)=1THEN$!ITnum_%="Current":PROCrI(invW%,"ITnum"):A%=FNnewcust_:A%=FNopt1_(94):A%=FNopt1_(93):A%=FNopt1_(86) ELSEA%=FNnewcust_
39500ENDIF
39505IFZ%=0THEN
39510A%=FNnewcust_
39515IF$!ITnum_%="Current"THENA%=FNopt1_(94):A%=FNopt1_(93):A%=FNopt1_(86)
39520ENDIF
39525=TRUE
39530DEFFNITacc1_:ITacc_$=$!ITacc1_%:=TRUE
39535DEFFNIThead1_:IThead_$=$!IThead1_%:=TRUE
39540DEFFNITcomm1_:ITcomm_$=$!ITcomm1_%:=TRUE
39545DEFFNITda_:$!ITda_%=FNchdate_($!ITda_%):PROCrI(invW%,"ITda"):=TRUE
39550
39555DEFFNopt_:PROCgeticon_(invw%,!i%):PROCseticon_(invw%,!i%,flag21_%,0):=TRUE
39560DEFFNopt1_(A_%):PROCgeticon_(invw%,A_%):PROCseticon_(invw%,A_%,0,flag21_%):=TRUE
39565DEFFNopt2_(A_%):PROCgeticon_(invw%,A_%):PROCseticon_(invw%,A_%,flag21_%,flag21_%):=TRUE
39570DEFFNgetiflag(A_%):PROCgeticon_(invw%,A_%):=(block_%!24>>21)MOD2
39575DEFPROCsIcon_(W_%,I_%,A_%):PROCgeticon_(W_%,I_%)
39580IFA_%=1:PROCseticon_(W_%,I_%,flag21_%,flag21_%)
39585IFA_%=-1:PROCseticon_(W_%,I_%,0,flag21_%)
39590ENDPROC
39595DEFPROCfI_(A_%):LOCAL Z%:FORZ%=17TO36:PROCgeticon_(Prct%!12,Z%)
39600IFA_%=1:PROCseticon_(Prct%!12,Z%,flag22_%,flag22_%)
39605IFA_%=0:PROCseticon_(Prct%!12,Z%,0,flag22_%)
39610NEXT
39615ENDPROC
39620
39625DEFPROCgetinvflags_:olddata_%(0)=inv11_%(0):olddata_%(1)=FNgetiflag(86):olddata_%(2)=FNgetiflag(85):olddata_%(3)=FNgetiflag(84):olddata_%(4)=FNgetiflag(92):olddata_%(5)=FNgetiflag(93):olddata_%(6)=FNgetiflag(94):ENDPROC
39630DEFPROCsetinvflags_:inv11_%(0)=olddata_%(0):$!invname_%=FNcri_
39635PROCrI(W%,"invname"):PROCseticon_(invw%,86,olddata_%(1)<<21,flag21_%):PROCseticon_(invw%,85,olddata_%(2)<<21,flag21_%):PROCseticon_(invw%,84,olddata_%(3)<<21,flag21_%):PROCseticon_(invw%,92,olddata_%(4)<<21,flag21_%)
39640PROCseticon_(invw%,93,olddata_%(5)<<21,flag21_%):PROCseticon_(invw%,94,olddata_%(6)<<21,flag21_%):ENDPROC
39645
39675DEFFNCinitsupplier_:LOCAL Z%:$!CSuRecord_%=STR$(CS_%):PROCrI(W%,"CSuRecord"):$!CSuName_%=CSuppliers_$(CS_%):$!CSuAd11_%=CSuAd1_$(CS_%):$!CSuAd22_%=CSuAd2_$(CS_%):$!CSuAd33_%=CSuAd3_$(CS_%):$!CSuAd44_%=CSuAd4_$(CS_%)
39680$!dCSuName_%=dCSuppliers_$(CS_%):$!dCSuAd11_%=dCSuAd1_$(CS_%):$!dCSuAd22_%=dCSuAd2_$(CS_%):$!dCSuAd33_%=dCSuAd3_$(CS_%):$!dCSuAd44_%=dCSuAd4_$(CS_%):$!dCSuPost_%=dCSuPos_$(CS_%)
39685$!CSuPost_%=CSuPos_$(CS_%):$!CSuContact_%=CSuContac_$(CS_%):$!CSuTele_%=CSuTel_$(CS_%):$!CSuFax_%=CSuFa_$(CS_%):$!CSuCom11_%=CSuCom1_$(CS_%):$!CSuCom22_%=CSuCom2_$(CS_%):$!CSuSuppRef_%=CSuSuppRe_$(CS_%)
39690$!CSuYourRef_%=CSuYourRe_$(CS_%):$!CSuOrder_%=CSuOrde_$(CS_%):$!CSuDisc_%=CSuDisc_$(CS_%):$!CSufindnum_%=FNchtolen_(VAL(CSufindnu_$),Cmaxsupp_%):CSufindnu_$=$!CSufindnum_%:PROCupdateccred_(CS_%,1):=TRUE
39695
39745DEFFNCupdatesupplier_:LOCAL Z%
39750CSuppliers_$(CS_%)=$!CSuName_%:CLSuppliers_$(CS_%)=LEFT$(CSuppliers_$(CS_%),maxsuplen_%):CLSuppliers_$(CS_%)=CLSuppliers_$(CS_%)+STRING$(maxsuplen_%-LEN(CLSuppliers_$(CS_%))," ")+CHR$(0)
39755IFchcunam_%=1THENPROCCfillsu_
39760Csupp_$(CS_%)=FNcaps_($!CSuName_%):CSuAd1_$(CS_%)=$!CSuAd11_%:CSuAd2_$(CS_%)=$!CSuAd22_%:CSuAd3_$(CS_%)=$!CSuAd33_%:CSuAd4_$(CS_%)=$!CSuAd44_%:CSuPos_$(CS_%)=$!CSuPost_%:CSuContac_$(CS_%)=$!CSuContact_%
39765dCSuppliers_$(CS_%)=$!dCSuName_%:dCSuAd1_$(CS_%)=$!dCSuAd11_%:dCSuAd2_$(CS_%)=$!dCSuAd22_%:dCSuAd3_$(CS_%)=$!dCSuAd33_%:dCSuAd4_$(CS_%)=$!dCSuAd44_%:dCSuPos_$(CS_%)=$!dCSuPost_%
39770CSuTel_$(CS_%)=$!CSuTele_%:CSuFa_$(CS_%)=$!CSuFax_%:CSuCom1_$(CS_%)=$!CSuCom11_%:CSuCom2_$(CS_%)=$!CSuCom22_%:CSuSuppRe_$(CS_%)=$!CSuSuppRef_%:CSuYourRe_$(CS_%)=$!CSuYourRef_%:CSuOrde_$(CS_%)=$!CSuOrder_%
39775CSuDisc_$(CS_%)=$!CSuDisc_%:IF$!CSufindnum_%<>CSufindnu_$THENCSufindnu_$=FNchtolen_(VAL($!CSufindnum_%),Cmaxsupp_%):$!CSufindnum_%=CSufindnu_$:PROCrI(CSuW%,"CSufindnum")
39780IFCLabSu%>0:Z%=FNCupdatesulab_
39785PROCupdateccred_(CS_%,1):=TRUE
39790
40180DEFFNinitCalc_:LOCAL Z%:$!Cal11_%=Cal1_$:$!Cal22_%=Cal2_$:$!Cal33_%=Cal3_$:$!Cal44_%=Cal4_$:$!CalTot1_%=FNtc_(Calt1_%,"0"):$!CalTot2_%=FNtc_(Calt2_%,"0"):$!CalTot3_%=FNtc_(Calt3_%,"0")
40185$!CalTot4_%=FNtc_(Calt4_%,"0"):$!CalTot_%=FNtc_(CalTo_%,"0"):=FALSE
40415
40420DEFFNcalpc2_(A):IFA=0:=0
40425LOCAL B
40430IFABS(A-A DIV1)>.51THENB=.5 ELSEB=.1
40435IFA<0THEN=A-B ELSE=A+B
40440
40445DEFFNcalpc1_(A):IFA=0:=0
40450LOCAL B
40455IFABS(A-A DIV1)>.50001THENB=.005 ELSEB=.001
40460IFA<0THEN=-B ELSE=B
40465
40470DEFFNcalpc3_(A):IFA=0:=0
40475LOCAL B
40480IFABS(A-A DIV1)>.0050001THENB=.00005 ELSEB=.00001
40485IFA<0THEN=-B ELSE=B
40490
40495DEFFNcl_(A_$):IFINSTR(A_$,"!")ORINSTR(A_$,"?")ORINSTR(A_$,"$")THEN="Error" ELSE=A_$
40500DEFFNupdateCalc_
40505LOCAL A,A%,Z%,A$
40510A$=$!Cal11_%:Cal1_$=$!Cal11_%:$!CalTot1_%=FNconvis_(Calt1_%,"0"):A$=FNcl_(A$)
40515LOCAL ERROR
40520ON ERROR LOCAL:RESTORE ERROR:$!CalTot1_%="Error":A$="Error"
40525IFA$<>"Error"ANDA$<>""THENA=EVAL($!Cal11_%):A=A+FNcalpc1_(A*100):IFABS(A)>.009THENCalt1_%=FNconvsi_(STR$(A)):$!CalTot1_%=FNconvis_(Calt1_%,"0") ELSECalt1_%=0
40530A$=$!Cal22_%:Cal2_$=$!Cal22_%:$!CalTot2_%=FNconvis_(Calt2_%,"0"):A$=FNcl_(A$)
40535LOCAL ERROR
40540ON ERROR LOCAL:RESTORE ERROR:$!CalTot2_%="Error":A$="Error"
40545IFA$<>"Error"ANDA$<>""THENA=EVAL($!Cal22_%):A=A+FNcalpc1_(A*100):IFABS(A)>.009THENCalt2_%=FNconvsi_(STR$(A)):$!CalTot2_%=FNconvis_(Calt2_%,"0") ELSECalt2_%=0
40550A$=$!Cal33_%:Cal3_$=$!Cal33_%:$!CalTot3_%=FNconvis_(Calt3_%,"0"):A$=FNcl_(A$)
40555LOCAL ERROR
40560ON ERROR LOCAL:RESTORE ERROR:$!CalTot3_%="Error":A$="Error"
40565IFA$<>"Error"ANDA$<>""THENA=EVAL($!Cal33_%):A=A+FNcalpc1_(A*100):IFABS(A)>.009THENCalt3_%=FNconvsi_(STR$(A)):$!CalTot3_%=FNconvis_(Calt3_%,"0") ELSECalt3_%=0
40570A$=$!Cal44_%:Cal4_$=$!Cal44_%:$!CalTot4_%=FNconvis_(Calt4_%,"0"):A$=FNcl_(A$)
40575LOCAL ERROR
40580ON ERROR LOCAL:RESTORE ERROR:$!CalTot4_%="Error":A$="Error"
40585IFA$<>"Error"ANDA$<>""THENA=EVAL($!Cal44_%):A=A+FNcalpc1_(A*100):IFABS(A)>.009THENCalt4_%=FNconvsi_(STR$(A)):$!CalTot4_%=FNconvis_(Calt4_%,"0") ELSECalt4_%=0
40590CalTo_%=Calt1_%+Calt2_%+Calt3_%+Calt4_%:$!CalTot_%=FNconvis_(CalTo_%,"0")
40595PROCrI(W%,"CalTot1"):PROCrI(W%,"CalTot2"):PROCrI(W%,"CalTot3"):PROCrI(W%,"CalTot4"):PROCrI(W%,"CalTot")
40600=FALSE
40605
40610DEFFNCalTot_:=TRUE
40615DEFFNCalTot1_:=TRUE
40620DEFFNCalTot2_:=TRUE
40625DEFFNCalTot3_:=TRUE
40630DEFFNCalTot4_:=TRUE
40635
40640DEFPROCdrag_
40645IFQ%!32<1ORQ%!36<0ORs_$=""THENENDPROC
40650LOCAL Z%:PROCgeticon1_(Q%!32,Q%!36):IF(iblock_%?25>>4)<15THENENDPROC
40655Z%=FNpII(Q%!32,Q%!36,s_$):ENDPROC
40660
40810DEFFNCSuDelete_:LOCAL A%,Z%,Z$:Z$=FNalert("About to delete a customer, are you sure?","","YES","NO","ar_quest",1):IFZ$="NO":=FALSE
40815SYS&406C0:A%=-1
40820IF$!CSuName_%<>""THEN
40825FORZ%=0TOmaxS_%*sitip_%-1:IFSITn_%(Z%+1)=CSuNumber_%(CS_%)THENA%=Z%:Z%=maxS_%*sitip_%-1
40830NEXT
40835ENDIF
40840SYS&406C1:IFA%>-1THENerror_%=1:Z$=FNalert("There are entries in the Sales ledger related to this customer, are you sure you want to Delete?","","YES","NO","ar_quest",1):IFZ$="NO"THENerror_%=0:=FALSE
40845error_%=0:CLSuppliers_$(CS_%)=STRING$(maxsuplen_%," ")+CHR$(0):$!CSuName_%="":$!CSuAd11_%="":$!CSuAd22_%="":$!CSuAd33_%="":$!CSuAd44_%="":$!CSuPost_%="":$!CSuContact_%="":$!CSuTele_%="":$!CSuFax_%=""
40850dCSuppliers_$(CS_%)="":$!dCSuName_%="":$!dCSuAd11_%="":$!dCSuAd22_%="":$!dCSuAd33_%="":$!dCSuAd44_%="":$!dCSuPost_%=""
40855CSuppliers_$(CS_%)="":$!CSuCom11_%="":$!CSuCom22_%="":$!CSuSuppRef_%="":$!CSuYourRef_%="":$!CSuOrder_%="":$!CSuDisc_%="":chcunam_%=1:occred_%=0
40860FORZ%=0TOmaxS_%*sitip_%-1:IFSITn_%(Z%+1)=CSuNumber_%(CS_%)THENSITn_%(Z%+1)=0
40865NEXT:=FNwindow("CustomW")
40870
40890DEFFNcd_(A$):IFA$=""THEN=maxN_% ELSE=FNJul_(A$)
40895DEFFNcd1_(A$):IFA$=""THEN=maxN_% ELSE=FNJul_("01."+A$)
40900
41010DEFFNcodate_(B$):IFB$=""THEN=0 ELSE=FNJul_(B$)
41015B$=FNchdate_(B$):=FNJul_(B$)
41020
41025DEFFNcodate1_(B$):IFB$=""THEN=0 ELSE=FNJul_("01."+B$)
41030B$="01."+B$:B$=FNchdate_(B$):=FNJul_(B$)
41035
41040DEFFNJul_(A$):LOCAL B%,C%,D%:B%=VAL(MID$(A$,1,2)):C%=VAL(MID$(A$,4,2)):D%=VAL(MID$(A$,7)):IF C%>2 THEN C%-=3 ELSE C%+=9:D%-=1
41045=146097*(D%DIV100)DIV4+1461*(D%MOD100)DIV4+(153*C%+2)DIV5+B%+1721119
41050
41055DEFFNfindDate(A%)
41060LOCAL B%,C%,D%
41065B%=4*A%-6884477:C%=(B%DIV146097)*100:D%=(B%MOD146097)DIV4:B%=4*D%+3:C%+=B%DIV1461:D%=(B%MOD1461)DIV4+1:B%=5*D%-3:D%=(B%MOD153)DIV5+1:B%=B%DIV153+1:C%+=B%DIV11:IF B%<11 THEN B%+=2 ELSE B%-=10
41070=RIGHT$("0"+STR$D%,2)+"."+RIGHT$("0"+STR$B%,2)+"."+STR$C%
41075
41080DEFFNcheckDate(A$):LOCAL B%,C$:B%=FNJul_(A$):C$=FNfindDate(B%):IF A$=C$ THEN=TRUE ELSE=FALSE
41085
41090DEFFNMyquit_:LOCAL Z%,Z$:IFS%!192=1THENPROCfin:error_%=0:=TRUE
41095IFS%!192=2:S%!192=1:Q%!12=Q%!8:SYS&400E7,19,Q%:!t0%=Q%!4
41100IFsa_%=1:IFSasav_%=-1THENZ$=FNalert("Your work has not been saved, are you sure you want to quit?","","YES","NO","ar_quest",1):IFZ$="NO"THENerror_%=0:S%!192=0:=FALSE
41105IFinvw%>0THENZ%=FNInvW_:Z%=FNgetcust_(0)
41110IFSasav_%=1:IFsaled%>0THENPROCsw_(saledW%):saled%=0:PROCcloseW(saledW%):PROCSiSort_
41115IFSasav_%=1:IFpaled%>0THENPROCsw_(paledW%):paled%=0:PROCcloseW(paledW%):PROCPiSort_
41120IFSasav_%=1:IFbankl%>0THENPROCsw_(bankW%):bankl%=0:PROCcloseW(bankW%):PROCBiSort_
41125IFHIMEM-END>=10000:IFExitwar_%=1:IFSasav_%=-1THENZ$=FNalert("About to Quit OK?","","YES","NO","ar_quest",1):IFZ$="NO"THENerror_%=0:S%!192=0:=FALSE
41130IFHIMEM-END>=10000:IFExitwar_%=1:IFSasav_%=1THENZ$=FNalert("About to Save your Work and Quit OK?","","YES","NO","ar_quest",1):IFZ$="NO"THENerror_%=0:S%!192=0:=FALSE
41135IFSasav_%=1THENZ$=FNasave2_(Savea_$,1):IFER_%=1 THENZ%=FNwindow("Ssave"):PROCsetC_(5):error_%=0:S%!192=0:=FALSE
41140Z%=FNIloseOfonts_
41145IFS%!192=1:SYS&6,138,0,&1FC
41150error_%=0:PROCfin:=TRUE
41155
41165DEFFNCinitSuSav_:=FNzzC1_
41175DEFFNCupdateSuSav_:=FNzzC2_
41190DEFFNCSuSavT_:PROCwl_(28):=TRUE
41210DEFFNCSuSavC_:PROCwl_(28):=TRUE
41220
41225DEFFNSasaveas_:SaledR_$(25)=$!Sasaveas_%:=TRUE
41230DEFFNSasavT_:PROCwl_(28):=TRUE
41235DEFFNSasavC_:PROCwl_(28):=TRUE
41240
41245DEFFNPasaveas_:PaledR_$(25)=$!Pasaveas_%:=TRUE
41250DEFFNPasavT_:PROCwl_(28):=TRUE
41255DEFFNPasavC_:PROCwl_(28):=TRUE
41260
41265DEFFNBasaveas_:BaledR_$(15)=$!Basaveas_%:=TRUE
41270DEFFNBasavT_:PROCwl_(28):=TRUE
41275DEFFNBasavC_:PROCwl_(28):=TRUE
41280
41285DEFFNVasaveas_:VatC_$(10)=$!Vasaveas_%:=TRUE
41290DEFFNVasavT_:PROCwl_(28):=TRUE
41295DEFFNVasavC_:PROCwl_(28):=TRUE
41300
41325DEFFNXasaveas_:Xnam_$=$!Xasaveas_%:=TRUE
41330DEFFNXasavT_:PROCwl_(28):=TRUE
41335DEFFNXasavC_:PROCwl_(28):=TRUE
41340
41445DEFFNCSuSaveas_:=TRUE
41450DEFFNCSaAdd_:=TRUE
41455DEFFNCSaPos_:=TRUE
41460DEFFNCSaCom1_:=TRUE
41465DEFFNCSaCom2_:=TRUE
41470DEFFNCSaFname_:=TRUE
41475DEFFNCSaFadd_:=TRUE
41480DEFFNCSaFcont_:=TRUE
41485DEFFNCSaFcomm_:=TRUE
41490DEFFNCSaFsref_:=TRUE
41495DEFFNCSaFyref_:=TRUE
41500DEFFNCSuH_:csuh_%=-csuh_%:IFcsuh_%=-1THENPROCsI(W%,"CSuH") ELSEPROCusI(W%,"CSuH")
41505=TRUE
41510DEFFNzz33_:=TRUE
41515DEFFNzz44_:PROCsetC_(5):=TRUE
41520DEFFNzzC1_:$!CSaAdd_%=Ec_$(0):$!CSaPos_%=Ec_$(1):$!CSaCom1_%=Ec_$(2):$!CSaCom2_%=Ec_$(3):$!CSaFname_%=Ec_$(4):$!CSaFadd_%=Ec_$(5):$!CSaFcont_%=Ec_$(6):$!CSaFcomm_%=Ec_$(7):$!CSaFsref_%=Ec_$(8):$!CSaFyref_%=Ec_$(9)
41525$!zz33_%=Ec_$(10):$!zz44_%=Ec_$(11):$!CSuSaveas_%=Ec_$(12):csuh_%=-csuh_%:=FNCSuH_
41530DEFFNzzC2_:Ec_$(0)=$!CSaAdd_%:Ec_$(1)=$!CSaPos_%:Ec_$(2)=$!CSaCom1_%:Ec_$(3)=$!CSaCom2_%:Ec_$(4)=$!CSaFname_%:Ec_$(5)=$!CSaFadd_%:Ec_$(6)=$!CSaFcont_%:Ec_$(7)=$!CSaFcomm_%:Ec_$(8)=$!CSaFsref_%:Ec_$(9)=$!CSaFyref_%
41535$!CuCn_%=STR$(count_%):PROCrI(W%,"CuCn"):Ec_$(10)=$!zz33_%:Ec_$(11)=$!zz44_%:Ec_$(12)=$!CSuSaveas_%:=TRUE
41540
41545DEFFNinitSave_:$!Saveas_%=Savea_$:$!SaveasB_%=SaveaB_$:PROCautosa_:=TRUE
41550DEFPROCautosa_
41555IFAutosav_%>0THENauto_$="(Autosave ON)" ELSEauto_$=""
41560IFSasav_%=1THENautoE_$="(Save on exit ON)" ELSEautoE_$=""
41565$!autos_%=auto_$:$!autoe_%=autoE_$:ENDPROC
41570DEFFNupdateSave_:Savea_$=$!Saveas_%:SaveaB_$=$!SaveasB_%:=TRUE
41575DEFFNSok_:Savea_$=$!Saveas_%:SaveaB_$=$!SaveasB_%:PROCsavefile_(1):=TRUE
41580DEFFNSokb_:Savea_$=$!Saveas_%:SaveaB_$=$!SaveasB_%:PROCsavefile_(3):=TRUE
41585DEFFNSaveas_:!b%=0:Savea_$=$!Saveas_%:SaveaB_$=$!SaveasB_%:=FNSok_
41590DEFFNSavI_:Savea_$=$!Saveas_%:SaveaB_$=$!SaveasB_%:PROCsavefile_(0):=TRUE
41595DEFFNSaveasB_:!b%=0:Savea_$=$!Saveas_%:SaveaB_$=$!SaveasB_%:=FNSokb_
41600DEFFNSavIB_:Savea_$=$!Saveas_%:SaveaB_$=$!SaveasB_%:PROCsavefile_(2):=TRUE
41605DEFFNSokN_:SaveaN_$=$!SaveasN_%:PROCsavefile_(5):=TRUE
41610DEFFNSaveasN_:SaveaN_$=$!SaveasN_%:=FNSokN_
41615DEFFNSavN_:SaveaN_$=$!SaveasN_%:PROCsavefile_(4):=TRUE
41620
41625DEFPROCsavefile_(Z%)
41630IFZ%=0:PROCinitsave_(&C88,Savea_$,1) ELSEIFZ%=2:PROCinitsave_(&C88,SaveaB_$,0) ELSEIFZ%=1:$!Saveas_%=FNasave2_(Savea_$,1) ELSEIFZ%=3:$!SaveasB_%=FNasave2_(SaveaB_$,0)
41635IFZ%=4:PROCinitsave_(&C88,SaveaN_$,-1) ELSEIFZ%=5$!SaveasN_%=FNasave2_(SaveaN_$,-1)
41640IFZ%=1:IFER_%=1THENPROCrI(W%,"Saveas"):PROCsetC_(5)
41645IFZ%=3:IFER_%=1THENPROCrI(W%,"SaveasB"):PROCsetC_(10)
41650IFZ%=5:IFER_%=1THENPROCrI(W%,"SaveasN"):PROCsetC_(3)
41655ENDPROC
41660
41790DEFPROCinitsave_(A_%,A_$,B_%)
41795LOCAL A%,reason_%,Z%,B%,C%,Z_%
41800SYS &400CF,,block_%
41805block_%!20=block_%!12
41810block_%!24=block_%!16
41815block_%!28=block_%!0
41820block_%!32=block_%!4
41830block_%!36=4096
41835block_%!0=256
41840block_%!12=0
41845block_%!16=1
41850block_%!40=A_%
41855$(block_%+44)=FNgetfnm_(A_$)
41860SYS &400E7,18,block_%,block_%!20,block_%!24 TO ,,dtask_%:stask_%=block_%!4
41865IFdtask_%=stask_%THENENDPROC
41870temp_%=0:byteptr_%=0:IFA_%=&FFF THENC%=1 ELSEC%=0
41875sal_%(13,0)=0:sal_%(13,1)=0:sal_%(13,2)=0:sal_%(0,0)=0:sal_%(0,1)=0:sal_%(0,2)=0:bal_%(13,0)=0:bal_%(13,1)=0:bal_%(13,2)=0:bal_%(0,0)=0:bal_%(0,1)=0:bal_%(0,2)=0:flag_%=0:flag1_%=0:VatV_%()=0:VatS_%()=0
41880B%=ASC($!r33B_%)MOD32:IFB%<1THENB%=0:FORZ%=1TO12:B%=FNadd_(B%,BankOO_%(Z%)):NEXT ELSEIFB%>0ANDB%<13THENB%=BankOO_%(B%)
41885BankOO_%(0)=0:BankSS_%(0)=0:BankCC_%(0)=0:FORZ%=1TO12:BankOO_%(0)=FNadd_(BankOO_%(0),BankOO_%(Z%)):BankSS_%(0)=FNadd_(BankSS_%(0),BankSS_%(Z%)):BankCC_%(0)=FNadd_(BankCC_%(0),BankCC_%(Z%)):NEXT
41895temploop_%=maxsupp_%
41940REPEAT
41945SYS &400C7,,block_% TO reason_%
41950CASE reason_% OF
41955WHEN 17,18:PROCrecmess_(block_%,B_%)
41960WHEN 19:temp_%=temploop_%
41965ENDCASE
41970UNTIL temp_%=temploop_%ORnotrans_%=1
41975IFreason_%=19THENPROCpe_("Data transfer failed : Receiver died")
41980PROCfH_
41985ENDPROC
41990
41995DEFPROCinitdsave_(B_%)
42000IFB_%=1THEN$!Saveas_%=FNasave2_(FNconfnm_(block_%+44),1):Savea_$=$!Saveas_%
42005IFB_%=0THEN$!SaveasB_%=FNasave2_(FNconfnm_(block_%+44),0):SaveaB_$=$!SaveasB_%
42010IFB_%=-1THEN$!SaveasN_%=FNasave2_(FNconfnm_(block_%+44),-1):SaveaN_$=$!SaveasN_%
42015IFER_%=1ANDB_%=1THENPROCrI(W%,"Saveas"):PROCsetC_(5):ENDPROC
42020IFER_%=1ANDB_%=0THENPROCrI(W%,"SaveasB"):PROCsetC_(10):ENDPROC
42025IFER_%=1ANDB_%=-1THENPROCrI(W%,"SaveasN"):PROCsetC_(3):ENDPROC
42030block_%!12=block_%!8:block_%!16=3:block_%!0=256:SYS&400E7,18,block_%,block_%!20,block_%!24
42035ENDPROC
42040
46550DEFFNVcalc_
46555LOCAL A%,B%,C%,E%,Z%,A_$,F%
46560SYS&406C0
46565VatV_%()=0:VatS_%()=0:FORA%=0TOmaxS_%*sitip_%-1:SYS&406C4,A%/(maxS_%*sitip_%)*100
46570IFSITe_$(A%*sitif_%+1)<>""THEN
46575IFVatC_%(1)=1ANDFNcd1_(SITe_$(A%*sitif_%+2))>=FNcodate_(VatC_$(4))ANDFNcodate1_(SITe_$(A%*sitif_%+2))<=FNcd_(VatC_$(5))ORVatC_%(2)=1THEN
46580IFSITe_$(A%*sitif_%+7)<>""THEN
46585IFVatC_%(2)=1ANDFNcd_(SITe_$(A%*sitif_%+1))>=FNcodate_(VatC_$(4))ANDFNcodate_(SITe_$(A%*sitif_%+1))<=FNcd_(VatC_$(5))ANDLEFT$(SITs_$(A%),1)<>"U"ORVatC_%(1)=1THEN
46590FORF%=0TO10
46595IFVatT_%(F%*4)=1THENVatS_%(F%)=FNadd_(VatS_%(F%),FNcvat_(FNni_(SITe_$(A%*sitif_%+6)),FNni_(SITe_$(A%*sitif_%+8)),FNni_(SITe_$(A%*sitif_%+9)),FNcaps_(SITe_$(A%*sitif_%+7)),VatR_$(F%*4+2),F%))
46600NEXT
46605ENDIF
46610ENDIF
46615ENDIF
46620ENDIF
46625NEXT
46630FORA%=0TOmaxP_%*sitip_%-1:SYS&406C4,A%/(maxP_%*sitip_%)*100
46635IFPITe_$(A%*sitif_%+1)<>""THEN
46640IFVatC_%(1)=1ANDFNcd1_(PITe_$(A%*sitif_%+2))>=FNcodate_(VatC_$(4))ANDFNcodate1_(PITe_$(A%*sitif_%+2))<=FNcd_(VatC_$(5))ORVatC_%(2)=1THEN
46645IFPITe_$(A%*sitif_%+7)<>""THEN
46650IFVatC_%(2)=1ANDFNcd_(PITe_$(A%*sitif_%+1))>=FNcodate_(VatC_$(4))ANDFNcodate_(PITe_$(A%*sitif_%+1))<=FNcd_(VatC_$(5))ANDLEFT$(PITs_$(A%),1)<>"U"ORVatC_%(1)=1THEN
46655FORF%=0TO10
46660IFVatT_%(F%*4+1)=1THENVatV_%(F%)=FNadd_(VatV_%(F%),FNcvat_(FNni_(PITe_$(A%*sitif_%+6)),FNni_(PITe_$(A%*sitif_%+8)),FNni_(PITe_$(A%*sitif_%+9)),FNcaps_(PITe_$(A%*sitif_%+7)),VatR_$(F%*4+2),F%))
46665NEXT
46670ENDIF
46675ENDIF
46680ENDIF
46685ENDIF
46690NEXT
46695PROCvtcalc_
46700SYS&406C1
46705=TRUE
46710
46715DEFPROCvtcalc_
46720LOCAL F%
46725FORF%=0TO10
46730IFVatR_$(F%*4)=""THENVatR_$(F%*4+3)=""
46735IFVatT_%(F%*4)=1THENVatR_$(F%*4+3)=FNtc_(VatS_%(F%),"0")
46740IFVatT_%(F%*4+1)=1THENVatR_$(F%*4+3)=FNtc_(VatV_%(F%),"0")
46745VatV_%(F%)=FNni_(VatR_$(F%*4+3))
46750Z%=FNpII(vatp%!12,F%*4+4,VatR_$(F%*4+3)):NEXT
46755FORF%=0TO10:IFVatR_$(F%*4+1)<>""THENVatR_$(F%*4+3)=FNcalcvat_(VatR_$(F%*4+1)):Z%=FNpII(vatp%!12,F%*4+4,VatR_$(F%*4+3)):VatV_%(F%)=FNni_(VatR_$(F%*4+3))
46760NEXT
46765ENDPROC
46770
46775DEFFNcvat_(a_%,b_%,c_%,a_$,b_$,d_%)
46780LOCAL Z%
46785IFINSTR(FNcaps_(b_$),a_$)THEN
46790IFVatC_%(1)=1ANDVatT_%(d_%*4+2)=1ANDVatT_%(d_%*4+3)=1THENZ%=a_%
46795IFVatC_%(1)=1ANDVatT_%(d_%*4+2)=1ANDVatT_%(d_%*4+3)=-1THENZ%=a_%-b_%
46800IFVatC_%(1)=1ANDVatT_%(d_%*4+2)=-1ANDVatT_%(d_%*4+3)=1THENZ%=b_%
46805IFVatC_%(2)=1ANDVatT_%(d_%*4+2)=1ANDVatT_%(d_%*4+3)=1THENZ%=c_%
46810IFVatC_%(2)=1ANDVatT_%(d_%*4+2)=1ANDVatT_%(d_%*4+3)=-1THENZ%=c_%-b_%
46815IFVatC_%(2)=1ANDVatT_%(d_%*4+2)=-1ANDVatT_%(d_%*4+3)=1THENZ%=b_%
46820ENDIF
46825=Z%
46830
47200DEFFNcalcvat_(A_$)
47205LOCAL Z,A,B,C,D,E,F,G,H,I,J,K
47210LOCAL ERROR
47215ON ERROR LOCAL:RESTORE ERROR:PROCpe_("A 'Sum' field in the "+VAT_$+" Return cannot be calculated. Please check the line(s) marked 'Error'. (Formulas should be made up as follows A+B/9 etc.)"):="Error"
47220A_$=FNcaps_(A_$):A=VatV_%(0)/100:B=VatV_%(1)/100:C=VatV_%(2)/100:D=VatV_%(3)/100:E=VatV_%(4)/100:F=VatV_%(5)/100:G=VatV_%(6)/100:H=VatV_%(7)/100:I=VatV_%(8)/100:J=VatV_%(9)/100:K=VatV_%(10)/100
47225Z=EVAL(A_$)*100
47230=FNconvis_(Z,"0")
47235
47620DEFPROCackload_
47625IFR%<>18THENENDPROC
47630block_%!12=block_%!8
47635block_%!16=4
47640SYS&400E7,17,block_%,block_%!20,block_%!24
47645ENDPROC
47650
47655DEFFNgetfnm_(aname$)
47660WHILE INSTR(aname$,".")
47665aname$=MID$(aname$,INSTR(aname$,".")+1)
47670ENDWHILE
47675=aname$+CHR$(0)
47680
47685DEFFNconfnm_(A_%)
47690LOCAL a_%,b_%,tname_$,Z%
47695LOCAL ERROR
47700ON ERROR LOCAL:RESTORE ERROR:PROCpe_(FNerr_):=tname_$
47705tname_$="":a_%=0:b_%=A_%?a_%
47710WHILE b_%<>0
47715tname_$+=CHR$(b_%)
47720a_%+=1
47725b_%=A_%?a_%
47730ENDWHILE
47735=tname_$
47740DEFFNconinm_(A_%,B_%):LOCAL a_%,b_%,tname_$:tname_$="":a_%=0:b_%=A_%?a_%:WHILE b_%>31ANDB_%+1>a_%:tname_$+=CHR$(b_%):a_%+=1:b_%=A_%?a_%:ENDWHILE:=tname_$
47745
47750DEFPROCrecmess_(block_%,B_%)
47755Oerr_%=0
47760LOCAL ERROR
47765ON ERROR LOCAL:RESTORE ERROR:temp_%=temploop_%:PROCpe_(FNerr_):ENDPROC
47770CASE (block_%!16) OF
47775WHEN 2:IFblock_%!40=&C88THENtemp_%=temploop_%:PROCinitdsave_(B_%)
47780WHEN 3:PROCdataload_(block_%,0)
47785WHEN 5:PROCdataload_(block_%,0)
47795ENDCASE
47800ENDPROC
47805
47810DEFPROCdataload_(block_%,A_%)
47815IFblock_%!40=&C87:temp_%=temploop_%:PROCackload_:inv_$=FNconfnm_(block_%+44):PROCpe_("Invoice file accepted -"+inv_$)
47820IFblock_%!40=&C88:temp_%=temploop_%:PROCackload_:PROCload_(FNconfnm_(block_%+44),A_%)
47825ENDPROC
47830
47945DEFFNasave2_(tname_$,a_%)
47950ER_%=0
47955LOCAL A%,B%,C%,Z%,F%,L$,A$,B$,A_%,B_%:bl1_%()=0
47960IFa_%=0THENB$=SaveaB_$ ELSEIFa_%=1THENB$=Savea_$ ELSEIFa_%=-1THENB$=SaveaN_$
47965LOCAL ERROR
47970ON ERROR LOCAL:RESTORE ERROR:SYS&406C1:Z%=FNwindow("Ssave"):PROCpe1_(auto_$+autoE_$+FNerr_,F%):ER_%=1:=B$
47975F%=0
47980L$=FNgLn(tname_$):A$=LEFT$(L$,1)
47985IFA$="!"ORA$="$"ORA$="%"THENPROCpe_(auto_$+autoE_$+" You cannot start the file name with a '"+A$+"' character"):ER_%=1:=B$
47990IFLEN(L$)=0THENPROCpe_(auto_$+autoE_$+" You must enter a valid file name"):ER_%=1:=B$
47995IFINSTR(L$,"<")THENPROCpe_(auto_$+autoE_$+" This file cannot be saved to another application"):ER_%=1:=B$
48000IFINSTR(tname_$,".")=0THENPROCpe_(auto_$+autoE_$+" To save, drag the icon to a directory viewer"):ER_%=1:=B$
48005IFLEN(L$)>10THENPROCpe_(auto_$+autoE_$+" File name too long, maximum 10 characters"):ER_%=1:=B$
48010SYS&406C0
48015A%=FNcheckmaxst1_
48020B%=FNcheckmaxsu1_
48025C%=FNCcheckmaxsu1_
48030NewPref_%(0)=FNcheckmaxS1_
48035NewPref_%(1)=FNcheckmaxP1_
48040NewPref_%(2)=FNcheckmaxB1_
48045NewPref_%(3)=v_%
48050NewPref_%(4)=SLdeb_%
48055NewPref_%(5)=CSLdeb_%
48060NewPref_%(6)=prefs_%
48065NewPref_%(8)=prefos_%
48070NewPref_%(9)=Pl_%
48075IFa_%=-1THENNewPref_%(7)=-1 ELSENewPref_%(7)=0
48080REM ********** New Pref's used=0,1,2,3,4,5,6,7,8,9 **************
48085F%=OPENOUT(tname_$)
48090PRINT#F%,A%,B%,C%,Omaxst_%,Omaxsu_%,COmaxsu_%,OmaxS_%,OmaxP_%,OmaxB_%
48095FORZ%=0TO9:PRINT#F%,NewPref_%(Z%):NEXT
48100FORZ%=0TO23:PRINT#F%,Index_$(Z%):NEXT
48105FORZ%=0TO47:PRINT#F%,Best_$(Z%):NEXT
48110FORZ%=0TO3996STEP4:PRINT#F%,0:NEXT
48115FORZ%=0TO3996STEP4:PRINT#F%,(OrderC_%!Z%):NEXT
48117PRINT#F%,-1:REM Ojust etc
48125FORZ%=0TOIOicons%:PRINT#F%,IOjust_%(Z%),IOrderS_$(Z%),IOrderF_%(Z%),IOrdermy_(Z%),IOrdermx_(Z%),IOrderfy_%(Z%),IOrderfx_%(Z%):NEXT
48130FORZ%=0TO1000:PRINT#F%,SlRec_$(0),SlNum_$(0),SlDes_$(0),SlQua_(0),SlPri_(0),SlVat_$(0):NEXT:PRINT#F%,Sg_%,Lg_%,Cg_%
48135FORZ%=0TO16:PRINT#F%,Label_$(Z%):NEXT
48140FORZ%=0TOmaxifont_%:PRINT#F%,fhandle_%(Z%):NEXT:BPUT#F%,65
48142PRINT#F%,"#PRO�LITE#"
48155FORZ%=0TO27:PRINT#F%,Va_%(Z%),Va_$(Z%):NEXT
48157PRINT#F%,"#PRO�LITE#"
48175FORZ%=0TOC%:PRINT#F%,CSuppliers_$(Z%),CSuNumber_%(Z%),CSuAd1_$(Z%),CSuAd2_$(Z%),CSuAd3_$(Z%),CSuAd4_$(Z%),CSuPos_$(Z%),CSuContac_$(Z%),CSuTel_$(Z%),CSuFa_$(Z%),CSuCom1_$(Z%),CSuCom2_$(Z%),CSuSuppRe_$(Z%),Csupp_$(Z%)
48180PRINT#F%,dCSuppliers_$(Z%),dCSuAd1_$(Z%),dCSuAd2_$(Z%),dCSuAd3_$(Z%),dCSuAd4_$(Z%),dCSuPos_$(Z%),CSuDisc_$(Z%)
48185PRINT#F%,CSuYourRe_$(Z%),CSuOrde_$(Z%):NEXT
48190PRINT#F%,Views_%,Viewp_%,Lstocknu_%,Ldescrip_%,Lsuppre_%,Lsup_%,Lstoc_%,Lpric_%,La4_%,Lus_%,Lcust_%,Ljle_%,Ljce_%,Ldow_%,Lacros_%,Lnumbe_%,Lstar_%,Lpagx_%,Lpagy_%,Lfon_x%,Lfon_y%,Cu_$
48195PRINT#F%,Scontac_%,Snam_%,Saddres_%,Sa4_%,Sus_%,Scust_%,Sdow_%,Sacros_%,Snumbe_%,Sstar_%,Spagx_%,Spagy_%,Sfon_x%,Sfon_y%,SupFro_%,SupT_%,SsCom_$,SsPos_$
48200PRINT#F%,CScontac_%,CSnam_%,CSaddres_%,CSa4_%,CSus_%,CScust_%,CSdow_%,CSacros_%,CSnumbe_%,CSstar_%,CSpagx_%,CSpagy_%,CSfon_x%,CSfon_y%,CSupFro_%,CSupT_%,CsCom_$,CsPos_$
48205PRINT#F%,ListRecNu_%,ListStNu_%,ListDesc_%,ListSup_%,ListRe_%,ListCos_%,ListRetai_%,ListStoc_%,ListMi_%,ListQua_%,ListSol_%,ListMo_%,ListPr1_%,ListPr2_%,ListMar_%,ListDat_%,Lista4_%,Listus_%,Listcust_%,Listpagx_%,Listpagy_%
48210PRINT#F%,Listfon_x%,Listfon_y%,Listfro_%,Listt_%,Listlef_%,Listtop_%,Listspac_%,Da4_%,Dus_%,Dcust_%,Dpagx_%,Dpagy_%,Dfon_x%,Dfon_y%,Dlef_%,Dtop_%,Dspac_%
48215PRINT#F%,SLRecNu_%,SLsupplie_%,SLad1_%,SLad2_%,SLad3_%,SLad4_%,SLpos_%,SLcon_%,SLtel_%,SLfa_%,SLcom1_%,SLcom2_%,SLsuppre_%,SLyourre_%,SLordpr_%,SLa4_%,SLus_%,SLcust_%,SLpagx_%,SLpagy_%,SLfon_x%,SLfon_y%,SLfro_%,SLt_%,SLlef_%
48220PRINT#F%,SLtop_%,SLspac_%,Sjle_%,Sjce_%,Oa4_%,Ous_%,Ocust_%,Opagx_%,Opagy_%,Unam_$,Uad1_$,Uad2_$,Uad3_$,Uad4_$,Uad5_$,Upos_$,Ute_$,Ufa_$,Uva_$,Cal1_$,Cal2_$,Cal3_$,Cal4_$,CalTo_%,IOa4_%,IOus_%,IOcust_%,IOpagx_%,IOpagy_%
48225PRINT#F%,CSLRecNu_%,CSLsupplie_%,CSLad1_%,CSLad2_%,CSLad3_%,CSLad4_%,CSLpos_%,CSLcon_%,CSLtel_%,CSLfa_%,CSLcom1_%,CSLcom2_%,CSLsuppre_%,CSLyourre_%,CSLordpr_%,CSLa4_%,CSLus_%,CSLcust_%,CSLpagx_%,CSLpagy_%
48230PRINT#F%,CSLfon_x%,CSLfon_y%,CSLfro_%,CSLt_%,CSLlef_%,CSLtop_%,CSLspac_%,CSjle_%,CSjce_%,Calt1_%,Calt2_%,Calt3_%,Calt4_%
48235PRINT#F%,j_f%,j_f1%,j_f2%,j_f3%,j_f4%,j_f5%,j_f6%
48240PRINT#F%,Oborder%,Oruler%,Odsize_%,Odgap_%,Oisupplie_$,Oinumbe_%,Oanumbe_%,Oafro_%,Oat_%,BestF_%,BestP_%,BestL_$,BestD_$,Sasav_%,savesal_%,IOborder%,IOruler%,IOdsize_%,IOdgap_%
48245PRINT#F%,pass1_$,pass2_$,pass3_$,pass4_$
48250PRINT#F%,Otoday_$,valfro_$,valt_$,Sfindnu_$,Sufindnu_$,Autosav_%,CSufindnu_$
48255FORZ%=1TOmaxifont_%:PRINT#F%,Ofontname_$(Z%):NEXT:PRINT#F%,Oisupnum_%,ITcop_$,ITes_%,ITdis_$,ITre_$,ITpric_$
48260FORZ%=1TO108:PRINT#F%,Shead1_$(Z%),Phead1_$(Z%):NEXT
48265FORZ%=1TO12
48270IFa_%=-1THENa_%=FNadd_(BankOO_%(Z%),BankSS_%(Z%)):PRINT#F%,BankNN_$(Z%),a_%:a_%=-1 ELSEPRINT#F%,BankNN_$(Z%),BankOO_%(Z%)
48275NEXT
48280IFa_%=-1THEN
48285FORZ%=0TONewPref_%(0)*sitip_%
48290IFSITs_$(Z%)<>Q_$ORSITe_$(Z%*sitif_%+6)<>SITe_$(Z%*sitif_%+9)THENPRINT#F%,SITa_$(Z%),SITh_$(Z%),SITs_$(Z%),SITn_%(Z%) ELSEPRINT#F%,"","","",SITn_%(Z%)
48295NEXT
48300ENDIF
48305IFa_%<>-1:FORZ%=0TONewPref_%(0)*sitip_%:PRINT#F%,SITa_$(Z%),SITh_$(Z%),SITs_$(Z%),SITn_%(Z%):NEXT
48310IFa_%=-1THEN
48315FORZ%=0TONewPref_%(1)*sitip_%
48320IFPITs_$(Z%)<>Q_$ORPITe_$(Z%*sitif_%+6)<>PITe_$(Z%*sitif_%+9)THENPRINT#F%,PITa_$(Z%),PITh_$(Z%),PITs_$(Z%),PITn_%(Z%) ELSEPRINT#F%,"","","",PITn_%(Z%)
48325NEXT
48330ENDIF
48335IFa_%<>-1:FORZ%=0TONewPref_%(1)*sitip_%:PRINT#F%,PITa_$(Z%),PITh_$(Z%),PITs_$(Z%),PITn_%(Z%):NEXT
48340FORZ%=0TONewPref_%(2)*sitip_%
48345IFa_%=-1THEN
48350IFBITe_$(Z%*bitif_%+4)="�"ORBITe_$(Z%*bitif_%+4)=""THENPRINT#F%,"" ELSEPRINT#F%,BITf_$(Z%)
48355IFBITe_$(Z%*bitif_%+7)="�"ORBITe_$(Z%*bitif_%+7)=""THENPRINT#F%,"" ELSEPRINT#F%,BITt_$(Z%)
48360ELSE
48365PRINT#F%,BITf_$(Z%),BITt_$(Z%)
48370ENDIF
48375NEXT
48380IFa_%=-1THEN
48385FORZ%=1TONewPref_%(0)*sitip_%*sitif_%STEPsitif_%
48390IFSITs_$(Z%/sitif_%)=Q_$ANDSITe_$(Z%+5)=SITe_$(Z%+8)THEN
48395PRINT#F%,"","","","","","","","","","",""
48400ELSE
48405PRINT#F%,SITe_$(Z%),SITe_$(Z%+1),SITe_$(Z%+2),SITe_$(Z%+3),SITe_$(Z%+4),SITe_$(Z%+5),SITe_$(Z%+6),SITe_$(Z%+7),SITe_$(Z%+8),SITe_$(Z%+9),SITe_$(Z%+10)
48410IFSITs_$(Z%/sitif_%)=Q_$:B_%=FNni_(SITe_$(Z%+8)):A_%=ASC(SITe_$(Z%+3))-65:IFA_%>-1ANDA_%<12THENbl1_%(A_%)=FNadd_(bl1_%(A_%),B_%)
48415ENDIF
48420NEXT
48425FORZ%=0TO11:bl1_%(Z%)=-bl1_%(Z%):NEXT
48430ENDIF
48435IFa_%<>-1:FORZ%=1TONewPref_%(0)*sitip_%*sitif_%STEPsitif_%:PRINT#F%,SITe_$(Z%),SITe_$(Z%+1),SITe_$(Z%+2),SITe_$(Z%+3),SITe_$(Z%+4),SITe_$(Z%+5),SITe_$(Z%+6),SITe_$(Z%+7),SITe_$(Z%+8),SITe_$(Z%+9),SITe_$(Z%+10):NEXT
48440FORZ%=0TOsitin_%-1:PRINT#F%,SITep_$(Z%):NEXT:FORZ%=0TOsitip_%*3:PRINT#F%,SITap_$(Z%):NEXT:PRINT#F%,sitp_%
48445IFa_%=-1THEN
48450FORZ%=1TONewPref_%(1)*sitip_%*sitif_%STEPsitif_%
48455IFPITs_$(Z%/sitif_%)=Q_$ANDPITe_$(Z%+5)=PITe_$(Z%+8)THEN
48460PRINT#F%,"","","","","","","","","","",""
48465ELSE
48470PRINT#F%,PITe_$(Z%),PITe_$(Z%+1),PITe_$(Z%+2),PITe_$(Z%+3),PITe_$(Z%+4),PITe_$(Z%+5),PITe_$(Z%+6),PITe_$(Z%+7),PITe_$(Z%+8),PITe_$(Z%+9),PITe_$(Z%+10)
48475IFPITs_$(Z%/sitif_%)=Q_$:B_%=FNni_(PITe_$(Z%+8)):A_%=ASC(PITe_$(Z%+3))-65:IFA_%>-1ANDA_%<12THENbl1_%(A_%)=FNadd_(bl1_%(A_%),B_%)
48480ENDIF
48485NEXT
48490ENDIF
48495IFa_%<>-1:FORZ%=1TONewPref_%(1)*sitip_%*sitif_%STEPsitif_%:PRINT#F%,PITe_$(Z%),PITe_$(Z%+1),PITe_$(Z%+2),PITe_$(Z%+3),PITe_$(Z%+4),PITe_$(Z%+5),PITe_$(Z%+6),PITe_$(Z%+7),PITe_$(Z%+8),PITe_$(Z%+9),PITe_$(Z%+10):NEXT
48500FORZ%=0TOsitin_%-1:PRINT#F%,PITep_$(Z%):NEXT:FORZ%=0TOsitip_%*3:PRINT#F%,PITap_$(Z%):NEXT
48505PRINT#F%,pitp_%,Autowar_%,Salewar_%,Exitwar_%,pass5_$,pass6_$,pass7_$,ITacc_$,IThead_$,SAacc_$,SAhead_$,ITcomm_$,SAcust_$,SAref_$,SAcomm_$
48510FORZ%=1TONewPref_%(2)*sitip_%*bitif_%
48515IFa_%=-1THEN
48520IFBITe_$(Z%+3)="�"ANDBITe_$(Z%+6)="�"ORBITe_$(Z%+3)=""ANDBITe_$(Z%+6)="�"ORBITe_$(Z%+3)="�"ANDBITe_$(Z%+6)=""ORBITe_$(Z%+3)=""ANDBITe_$(Z%+6)=""THENPRINT#F%,"","","","","","","",""
48525IFBITe_$(Z%+3)<>"�"ANDBITe_$(Z%+6)<>"�":IFBITe_$(Z%+3)<>""ORBITe_$(Z%+6)<>""THENPRINT#F%,BITe_$(Z%),BITe_$(Z%+1),BITe_$(Z%+2),BITe_$(Z%+3),BITe_$(Z%+4),BITe_$(Z%+5),BITe_$(Z%+6),BITe_$(Z%+7)
48530IFBITe_$(Z%+3)="�"ANDBITe_$(Z%+6)<>"�"ANDBITe_$(Z%+6)<>""THENPRINT#F%,BITe_$(Z%),BITe_$(Z%+1),"","",BITe_$(Z%+4),BITe_$(Z%+5),BITe_$(Z%+6),BITe_$(Z%+7)
48535IFBITe_$(Z%+6)="�"ANDBITe_$(Z%+3)<>"�"ANDBITe_$(Z%+3)<>""THENPRINT#F%,BITe_$(Z%),BITe_$(Z%+1),BITe_$(Z%+2),BITe_$(Z%+3),BITe_$(Z%+4),"","",BITe_$(Z%+7)
48540Z%+=bitif_%-1
48545ELSE
48550PRINT#F%,BITe_$(Z%)
48555ENDIF
48560NEXT
48565FORZ%=0TObitin_%-1:PRINT#F%,BITep_$(Z%):NEXT:FORZ%=0TOsitip_%*2:PRINT#F%,BITap_$(Z%):NEXT
48570FORZ%=1TO7:PRINT#F%,SaledF_$(Z%),PaledF_$(Z%),BankF_$(Z%):NEXT
48575FORZ%=1TO25:PRINT#F%,SaledR_$(Z%),PaledR_$(Z%):NEXT
48580FORZ%=1TO17:PRINT#F%,SaledR_%(Z%),PaledR_%(Z%):NEXT
48585FORZ%=1TO15:PRINT#F%,BaledR_$(Z%):NEXT
48590FORZ%=1TO11:PRINT#F%,BaledR_%(Z%):NEXT
48595FORZ%=0TO44:PRINT#F%,VatR_$(Z%),VatT_%(Z%):NEXT
48600FORZ%=0TO10:PRINT#F%,VatC_$(Z%),VatC_%(Z%):NEXT:PRINT#F%,pass8_$
48605PRINT#F%,prefn_%,prefye_%,Tr__$(1)
48610FORZ%=0TOIOicons%:PRINT#F%,inv11_%(Z%),inv22_%(Z%),inv33_%(Z%):NEXT
48615PRINT#F%,Xpagx_%,Xpagy_%,Xnam_%,Xfon_x%,Xfon_y%,Xaspac_%,Xatab_%,Xnam_$,Xa4_%,Xus_%,Xcust_%
48620PRINT#F%,Stat1_$,Stat2_$,Stat3_$,SBestP_%,SBestF_%
48622PRINT#F%,-1:REM SIOjust etc
48630PRINT#F%,SIOborder%,SIOruler%,SIOdsize_%,SIOdgap_%
48635PRINT#F%,SIOa4_%,SIOus_%,SIOcust_%,SIOpagx_%,SIOpagy_%
48640FORZ%=0TO3996STEP4:PRINT#F%,0:NEXT
48645FORZ%=1TOmaxT_%*sitip_%*sitif_%:PRINT#F%,TITe_$(Z%):NEXT:FORZ%=0TOsitin_%-1:PRINT#F%,TITep_$(Z%):NEXT:FORZ%=0TOsitip_%*3:PRINT#F%,TITap_$(Z%):NEXT:PRINT#F%,titp_%
48650FORZ%=0TOmaxT_%*sitip_%:PRINT#F%,TITa_$(Z%),TITh_$(Z%),TITs_$(Z%),TITe_%(Z%),TITn_%(Z%):NEXT:PRINT#F%,SaveaB_$,Tnam_$:FORZ%=0TO12:PRINT#F%,Es_$(Z%),Ec_$(Z%):NEXT
48655FORZ%=0TO399:PRINT#F%,bl_$(0):NEXT:PRINT#F%,passA_$:REM P&L etc
48660FORZ%=0TO479STEP5:PRINT#F%,Sheadt1_%(Z%),Sheadt1_%(Z%+1),Pheadt1_%(Z%),Pheadt1_%(Z%+1):NEXT
48665FORZ%=0TO10:PRINT#F%,WatC_$(Z%),WatC_%(Z%):NEXT:PRINT#F%,pass9_$
48670FORZ%=0TO11:PRINT#F%,bl1_%(Z%):NEXT
48675FORZ%=0TO16:PRINT#F%,pc_$(Z%):NEXT:PRINT#F%,prefs1_%,prefsn1_%:FORZ%=17TO19:PRINT#F%,pc_$(Z%):NEXT:PRINT#F%,prefs2_%,prefsn2_%,C_%,S_%,CS_%,ITll_%,lm_%,tm_%:FORZ%=0TOA%:PRINT#F%,StHd_$(Z%):NEXT
48685CLOSE#F%:F%=0
48690OSCLI("SETTYPE "+tname_$+" C88")
48695SYS&406C1
48700IFsave%>0:IF!b%<>1:PROCsw_(save%):PROCcloseW(save%)
48705sa_%=0:PROCinitedit_:=tname_$
48710
48715DEFPROCreloadprophet_
48720PROCload_(moremem_$,1)
48725ENDPROC
48730
48735DEFPROCupstand_:IFprefos_%=-1THENENDPROC
48740LOCAL A%,B%,C%,D%,E%,F_%,G%,H%,Z%,A$,B$,C$,l_%,a_%,b_%
48745SYS&406C0:lastpos_%=0:lastpos1_%=0:lastpos2_%=0
48750FORZ%=0TOmaxT_%*sitip_%-1:B$="":F_%=0:E%=0:H%=1
48755A$=TITe_$(Z%*sitif_%+2)
48760C%=VAL(A$):REM number
48765C$=TITe_$(Z%*sitif_%+1):IFC$<>""ANDLEN(C$)<10THENH%=2
48770IFC$=""THENTITn_%(Z%)=0
48775G%=TITn_%(Z%):REM number already inserted
48780B%=FNJul_(C$):REM date
48785IFTITe_%(Z%)=1THENl_%=3 ELSEl_%=4:REM ledger
48790D%=INSTR(A$,"D"):IFD%=0THEND%=INSTR(A$,"d")
48795IFD%THENB$="D":F_%=VAL(MID$(A$,D%+1))
48800D%=INSTR(A$,"M"):IFD%=0THEND%=INSTR(A$,"m")
48805IFD%THENB$="M":F_%=VAL(MID$(A$,D%+1))
48810D%=INSTR(A$,"Y"):IFD%=0THEND%=INSTR(A$,"y")
48815IFD%THENB$="Y":F_%=VAL(MID$(A$,D%+1))
48820IFB$="D"ANDG%<C%ANDB%>0ANDF_%>0ANDH%=1THEN
48825B%+=F_%*G%
48830FORA%=G%TOC%-1
48835IFB%<=day_%THEN
48840H%=FNinstand_(Z%,B%,l_%):IFH%=TRUE:TITn_%(Z%)+=1
48845ELSE
48850A%=C%
48855ENDIF
48860IFH%=FALSE THENA%=C%:Z%=maxT_%*sitip_%-1
48865B%+=F_%
48870NEXT
48875ENDIF
48880IFB$="M"ANDG%<C%ANDB%>0ANDF_%>0ANDH%=1THEN
48885a_%=VAL(MID$(C$,4,2))+F_%*G%:b_%=VAL(RIGHT$(C$,4))
48890IFa_%>12THENb_%+=a_%/12:a_%=a_%MOD12
48895FORA%=G%TOC%-1
48900A$=FNchdate_(LEFT$(C$,3)+STR$(a_%)+"."+STR$(b_%)):B%=FNJul_(A$)
48905IFB%<=day_%THEN
48910H%=FNinstand_(Z%,B%,l_%):IFH%=TRUE:TITn_%(Z%)+=1
48915ELSE
48920A%=C%
48925ENDIF
48930IFH%=FALSE THENA%=C%:Z%=maxT_%*sitip_%-1
48935a_%+=F_%:IFa_%>12THENb_%+=a_%/12:a_%=a_%MOD12
48940NEXT
48945ENDIF
48950IFB$="Y"ANDG%<C%ANDB%>0ANDF_%>0ANDH%=1THEN
48955b_%=VAL(RIGHT$(C$,4))+F_%*G%
48960FORA%=G%TOC%-1
48965A$=FNchdate_(LEFT$(C$,6)+STR$(b_%)):B%=FNJul_(A$)
48970IFB%<=day_%THEN
48975H%=FNinstand_(Z%,B%,l_%):IFH%=TRUE:TITn_%(Z%)+=1
48980ELSE
48985A%=C%
48990ENDIF
48995IFH%=FALSE THENA%=C%:Z%=maxT_%*sitip_%-1
49000b_%+=F_%
49005NEXT
49010ENDIF
49015IFH%=2THENZ%=maxT_%*sitip_%-1
49020NEXT
49025SYS&406C1
49030IFH%=2THENPROCpe_("Check your standing orders, a date is not correct. Update suspended until you next load the file")
49035ENDPROC
49040
49045DEFFNinstand_(Z%,B%,A%):olddata_$(0)=FNfindDate(B%):olddata_$(1)=RIGHT$(olddata_$(0),7):olddata_$(2)=TITe_$(Z%*sitif_%+3):olddata_$(3)=TITe_$(Z%*sitif_%+4):olddata_$(4)=TITe_$(Z%*sitif_%+5):olddata_$(5)=TITe_$(Z%*sitif_%+6)
49050olddata_$(6)=TITe_$(Z%*sitif_%+7):olddata_$(7)=TITe_$(Z%*sitif_%+8):olddata_$(8)=TITe_$(Z%*sitif_%+9):olddata_$(9)=TITe_$(Z%*sitif_%+10):olddata_$(10)=TITe_$(Z%*sitif_%+11):=FNsavesalesledger_(A%)
49055
49060DEFFNstrip_(A_$):IFRIGHT$(A_$)=" "ORRIGHT$(A_$)=CHR$(0)THENREPEAT:A_$=LEFT$(A_$,LEN(A_$)-1):UNTILRIGHT$(A_$)<>" "ORA_$=""
49065=A_$
49070
49075DEFPROCload_(tem_$,n_%):IFn_%=0THENPROCpe_("Please quit Prophet and try again"):ENDPROC
49080SYS&406C0
49085LOCAL A%,F%,Z%,B%,C%,E%,Z_%,a_$,a_%,b_%,c_%,A_%,B_%,aa_%,Cc_%,D_%,E_%,l_%,ti_%,a_$
49090LOCAL ERROR
49095ON ERROR LOCAL:RESTORE ERROR:SYS&406C1:Oerr_%=1:PROCpe1_(FNerr_,F%):PROCCuplsup_:ENDPROC
49100F%=0:F%=OPENUP(tem_$):l_%=EXT#(F%)
49105SYS&406C4,PTR#F%/l_%*100
49110INPUT#F%,B%,C%,E%,Omaxst_%,Omaxsu_%,COmaxsu_%,OmaxS_%,OmaxP_%,OmaxB_%
49115IFFNim_(F%,tem_$)=1THENF%=0:ENDPROC
49120M_%=Omaxst_%:maxsupp_%=Omaxsu_%:Cmaxsupp_%=COmaxsu_%:maxS_%=OmaxS_%:maxP_%=OmaxP_%:maxB_%=OmaxB_%
49125FORZ%=0TO9:INPUT#F%,NewPref_%(Z%):NEXT:IFNewPref_%(3)<128:ti_%=56:ti1_%=41 ELSEti_%=57:ti1_%=42
49130IFNewPref_%(3)<>v_%:SYS&406C1:PROCpe1_("ERROR: This is not a file created by Prophet Lite, it has not been loaded.",F%):ENDPROC
49135SLdeb_%=NewPref_%(4):CSLdeb_%=NewPref_%(5):IFSLdeb_%=0ORCSLdeb_%=0THENSLdeb_%=-1:CSLdeb_%=-1
49140prefs_%=NewPref_%(6):IFprefs_%=0:prefs_%=-1
49145prefos_%=NewPref_%(8):IFprefos_%=0:prefos_%=1
49150Pl_%=NewPref_%(9):IFPl_%=0:Pl_%=-1
49155prefsn_%=-prefs_%:prefson_%=-prefos_%:FORZ%=0TO23:INPUT#F%,Index_$(Z%):NEXT
49160FORZ%=0TO47:INPUT#F%,Best_$(Z%):NEXT:SYS&406C4,PTR#F%/l_%*100
49165FORZ%=0TO3996STEP4:INPUT#F%,A%:NEXT
49170FORZ%=0TO3996STEP4:INPUT#F%,A%:OrderC_%!Z%=A%:NEXT
49172INPUT#F%,A%:REM Ojust etc
49180SYS&406C4,PTR#F%/l_%*100:FORZ%=0TOti_%:INPUT#F%,IOjust_%(Z%),IOrderS_$(Z%),IOrderF_%(Z%),IOrdermy_(Z%),IOrdermx_(Z%),IOrderfy_%(Z%),IOrderfx_%(Z%):NEXT
49185FORZ%=0TO1000:INPUT#F%,SlRec_$(0),SlNum_$(0),SlDes_$(0),SlQua_(0),SlPri_(0),SlVat_$(0):NEXT:INPUT#F%,Sg_%,Lg_%,Cg_%
49190FORZ%=0TO16:INPUT#F%,Label_$(Z%):NEXT
49195FORZ%=0TOmaxifont_%:INPUT#F%,fhandle_%(Z%):NEXT:Z_%=BGET#F%
49200IFZ_%<>65THENPTR#F%=PTR#F%-1:FORZ%=maxifont_%+1TO255:INPUT#F%,a_%:NEXT
49205IFFNim_(F%,tem_$)=1THENF%=0:ENDPROC
49207INPUT#F%,a_$:REM stock
49232FORZ%=0TO27:INPUT#F%,Va_%(Z%),Va_$(Z%):NEXT:supp_%()=0:Tr_%()=0
49233INPUT#F%,a_$:REM supp
49340supp_%()=0:Tr_%(1)=0
49345FORZ%=0TOE%:INPUT#F%,CSuppliers_$(Z%),CSuNumber_%(Z%),CSuAd1_$(Z%),CSuAd2_$(Z%),CSuAd3_$(Z%),CSuAd4_$(Z%),CSuPos_$(Z%),CSuContac_$(Z%),CSuTel_$(Z%),CSuFa_$(Z%),CSuCom1_$(Z%),CSuCom2_$(Z%),CSuSuppRe_$(Z%),Csupp_$(Z%)
49350IFNewPref_%(3)>127:INPUT#F%,dCSuppliers_$(Z%),dCSuAd1_$(Z%),dCSuAd2_$(Z%),dCSuAd3_$(Z%),dCSuAd4_$(Z%),dCSuPos_$(Z%),CSuDisc_$(Z%)
49355INPUT#F%,CSuYourRe_$(Z%),CSuOrde_$(Z%)
49360IFCSuNumber_%(Z%)<=Cmaxsupp_%:IFsupp_%(CSuNumber_%(Z%))=0THENsupp_%(CSuNumber_%(Z%))=Z% ELSECSuNumber_%(Z%)=0:Tr_%(1)+=1
49365IFFNim_(F%,tem_$)=1THENF%=0:Z%=E%:NEXT:ENDPROC
49370SYS&406C4,PTR#F%/l_%*100:NEXT
49375IFE%<Cmaxsupp_%THEN
49380E_%=Cmaxsupp_%
49385FORZ%=E%+1TOCmaxsupp_%:IFsupp_%(CSuNumber_%(Z%))=0THENsupp_%(CSuNumber_%(Z%))=Z% ELSECSuNumber_%(Z%)=0:Tr_%(1)+=1
49390NEXT
49395ELSE
49400E_%=E%
49405ENDIF
49410IFTr_%(1)>0THEN
49415FORZ%=1TOE_%:supp_%(CSuNumber_%(Z%))=1:NEXT
49420D_%=1:FORZ%=1TOE_%
49425IFCSuNumber_%(Z%)=0THEN
49430FORCc_%=D_%TOE_%:IFsupp_%(Cc_%)=0THENCSuNumber_%(Z%)=Cc_%:D_%=Cc_%+1:Cc_%=E_%
49435NEXT
49440ENDIF
49445NEXT
49450ENDIF
49455INPUT#F%,Views_%,Viewp_%,Lstocknu_%,Ldescrip_%,Lsuppre_%,Lsup_%,Lstoc_%,Lpric_%,La4_%,Lus_%,Lcust_%,Ljle_%,Ljce_%,Ldow_%,Lacros_%,Lnumbe_%,Lstar_%,Lpagx_%,Lpagy_%,Lfon_x%,Lfon_y%,Cu_$
49460INPUT#F%,Scontac_%,Snam_%,Saddres_%,Sa4_%,Sus_%,Scust_%,Sdow_%,Sacros_%,Snumbe_%,Sstar_%,Spagx_%,Spagy_%,Sfon_x%,Sfon_y%,SupFro_%,SupT_%,SsCom_$,SsPos_$
49465INPUT#F%,CScontac_%,CSnam_%,CSaddres_%,CSa4_%,CSus_%,CScust_%,CSdow_%,CSacros_%,CSnumbe_%,CSstar_%,CSpagx_%,CSpagy_%,CSfon_x%,CSfon_y%,CSupFro_%,CSupT_%,CsCom_$,CsPos_$:SYS&406C4,PTR#F%/l_%*100
49470INPUT#F%,ListRecNu_%,ListStNu_%,ListDesc_%,ListSup_%,ListRe_%,ListCos_%,ListRetai_%,ListStoc_%,ListMi_%,ListQua_%,ListSol_%,ListMo_%,ListPr1_%,ListPr2_%,ListMar_%,ListDat_%,Lista4_%,Listus_%,Listcust_%,Listpagx_%,Listpagy_%
49475INPUT#F%,Listfon_x%,Listfon_y%,Listfro_%,Listt_%,Listlef_%,Listtop_%,Listspac_%,Da4_%,Dus_%,Dcust_%,Dpagx_%,Dpagy_%,Dfon_x%,Dfon_y%,Dlef_%,Dtop_%,Dspac_%
49480INPUT#F%,SLRecNu_%,SLsupplie_%,SLad1_%,SLad2_%,SLad3_%,SLad4_%,SLpos_%,SLcon_%,SLtel_%,SLfa_%,SLcom1_%,SLcom2_%,SLsuppre_%,SLyourre_%,SLordpr_%,SLa4_%,SLus_%,SLcust_%,SLpagx_%,SLpagy_%,SLfon_x%,SLfon_y%,SLfro_%,SLt_%,SLlef_%
49485INPUT#F%,SLtop_%,SLspac_%,Sjle_%,Sjce_%,Oa4_%,Ous_%,Ocust_%,Opagx_%,Opagy_%,Unam_$,Uad1_$,Uad2_$,Uad3_$,Uad4_$,Uad5_$,Upos_$,Ute_$,Ufa_$,Uva_$,Cal1_$,Cal2_$,Cal3_$,Cal4_$,CalTo_%,IOa4_%,IOus_%,IOcust_%,IOpagx_%,IOpagy_%
49490INPUT#F%,CSLRecNu_%,CSLsupplie_%,CSLad1_%,CSLad2_%,CSLad3_%,CSLad4_%,CSLpos_%,CSLcon_%,CSLtel_%,CSLfa_%,CSLcom1_%,CSLcom2_%,CSLsuppre_%,CSLyourre_%,CSLordpr_%,CSLa4_%,CSLus_%,CSLcust_%,CSLpagx_%,CSLpagy_%
49495INPUT#F%,CSLfon_x%,CSLfon_y%,CSLfro_%,CSLt_%,CSLlef_%,CSLtop_%,CSLspac_%,CSjle_%,CSjce_%,Calt1_%,Calt2_%,Calt3_%,Calt4_%
49500INPUT#F%,j_f%,j_f1%,j_f2%,j_f3%,j_f4%,j_f5%,j_f6%
49505INPUT#F%,Oborder%,Oruler%,Odsize_%,Odgap_%,Oisupplie_$,Oinumbe_%,Oanumbe_%,Oafro_%,Oat_%,BestF_%,BestP_%,BestL_$,BestD_$,Sasav_%,savesal_%,IOborder%,IOruler%,IOdsize_%,IOdgap_%
49510INPUT#F%,pass1_$,pass2_$,pass3_$,pass4_$
49515INPUT#F%,Otoday_$,valfro_$,valt_$,Sfindnu_$,Sufindnu_$,Autosav_%,CSufindnu_$:SYS&406C4,PTR#F%/l_%*100
49520FORZ%=1TOmaxifont_%:INPUT#F%,Ofontname_$(Z%):NEXT:IFZ_%<>65THENFORZ%=maxifont_%+1TO255:INPUT#F%,a_$:NEXT:IFFNim_(F%,tem_$)=1THENF%=0:ENDPROC
49525INPUT#F%,Oisupnum_%,ITcop_$,ITes_%,ITdis_$,ITre_$,ITpric_$
49530FORZ%=1TO108:INPUT#F%,Shead1_$(Z%),Phead1_$(Z%):NEXT
49540FORZ%=1TO12:INPUT#F%,BankNN_$(Z%),BankOO_%(Z%):NEXT
49545FORZ%=0TONewPref_%(0)*sitip_%:INPUT#F%,SITa_$(Z%),SITh_$(Z%),SITs_$(Z%),SITn_%(Z%):NEXT:FORZ%=0TONewPref_%(1)*sitip_%:INPUT#F%,PITa_$(Z%),PITh_$(Z%),PITs_$(Z%),PITn_%(Z%):NEXT
49550FORZ%=0TONewPref_%(2)*sitip_%:INPUT#F%,BITf_$(Z%),BITt_$(Z%):NEXT:SYS&406C4,PTR#F%/l_%*100
49555Sheadt1_%()=0:Pheadt1_%()=0:FORZ%=1TONewPref_%(0)*sitip_%*sitif_%:INPUT#F%,SITe_$(Z%):IFFNim_(F%,tem_$)=1THENF%=0:Z%=NewPref_%(0)*sitip_%*sitif_%:NEXT:Sheadt1_%()=0:ENDPROC
49560IFZ%MODsitif_%=0THEN
49565a_%=FNni_(SITe_$(Z%-5)):b_%=FNni_(SITe_$(Z%-3)):c_%=FNni_(SITe_$(Z%-2))
49570IFSITe_$(Z%-1)<>""THENSITe_$(Z%-1)=FNcaps_(SITe_$(Z%-1)):A_%=ASC(SITe_$(Z%-1))-65:B_%=ASC(RIGHT$(SITe_$(Z%-1),1))-65:aa_%=A_%*40+B_%*5+2
49575IFSITe_$(Z%-1)<>"":IFA_%<12ANDB_%<8THENSheadt1_%(aa_%)=FNadd_(Sheadt1_%(aa_%),c_%):Sheadt1_%(aa_%+2)=FNadd_(Sheadt1_%(aa_%+2),b_%):Sheadt1_%(aa_%+1)=Sheadt1_%(aa_%+1)+(a_%-c_%)
49580IFSITe_$(Z%-7)<>"":SITe_$(Z%-7)=FNcaps_(SITe_$(Z%-7)):A_%=ASC(SITe_$(Z%-7))-64:IFA_%<13:BankCC_%(A_%)=FNadd_(BankCC_%(A_%),c_%):IFSITs_$(Z%/sitif_%-1)=Q_$:BankSS_%(A_%)=FNadd_(BankSS_%(A_%),c_%)
49585IFSITe_$(Z%-8)=""THENSITn_%(Z%/sitif_%)=0
49590SYS&406C4,PTR#F%/l_%*100:IFTr_%(1)>0:IFSITe_$(Z%-8)<>"":IFFNgetcun_(SITn_%(Z%/sitif_%))<>SITe_$(Z%-8)THENSITn_%(Z%/sitif_%)=FNgetcup_(SITe_$(Z%-8))
49595ENDIF
49600NEXT:FORZ%=0TOsitin_%-1:INPUT#F%,SITep_$(Z%):NEXT:FORZ%=0TOsitip_%*3:INPUT#F%,SITap_$(Z%):NEXT:INPUT#F%,sitp_%
49610FORZ%=1TONewPref_%(1)*sitip_%*sitif_%:INPUT#F%,PITe_$(Z%):IFFNim_(F%,tem_$)=1THENF%=0:Z%=NewPref_%(1)*sitip_%*sitif_%:NEXT:Pheadt1_%()=0:ENDPROC
49615IFZ%MODsitif_%=0THEN
49620a_%=FNni_(PITe_$(Z%-5)):b_%=FNni_(PITe_$(Z%-3)):c_%=FNni_(PITe_$(Z%-2))
49625IFPITe_$(Z%-1)<>""THENPITe_$(Z%-1)=FNcaps_(PITe_$(Z%-1)):A_%=ASC(PITe_$(Z%-1))-65:B_%=ASC(RIGHT$(PITe_$(Z%-1),1))-65:aa_%=A_%*40+B_%*5+2
49630IFPITe_$(Z%-1)<>"":IFA_%<12ANDB_%<8THENPheadt1_%(aa_%)=FNadd_(Pheadt1_%(aa_%),c_%):Pheadt1_%(aa_%+2)=FNadd_(Pheadt1_%(aa_%+2),b_%):Pheadt1_%(aa_%+1)=Pheadt1_%(aa_%+1)+(a_%-c_%)
49635IFPITe_$(Z%-7)<>"":PITe_$(Z%-7)=FNcaps_(PITe_$(Z%-7)):A_%=ASC(PITe_$(Z%-7))-64:IFA_%<13:BankCC_%(A_%)=FNadd_(BankCC_%(A_%),-c_%):IFPITs_$(Z%/sitif_%-1)=Q_$:BankSS_%(A_%)=FNadd_(BankSS_%(A_%),-c_%)
49640PITn_%(Z%/sitif_%)=0
49645SYS&406C4,PTR#F%/l_%*100
49650ENDIF
49655NEXT:FORZ%=0TOsitin_%-1:INPUT#F%,PITep_$(Z%):NEXT:FORZ%=0TOsitip_%*3:INPUT#F%,PITap_$(Z%):NEXT:INPUT#F%,pitp_%,Autowar_%,Salewar_%,Exitwar_%,pass5_$,pass6_$,pass7_$,ITacc_$,IThead_$,SAacc_$,SAhead_$,ITcomm_$,SAcust_$,SAref_$,SAcomm_$
49665FORZ%=1TONewPref_%(2)*sitip_%*bitif_%:INPUT#F%,BITe_$(Z%):IFFNim_(F%,tem_$)=1THENF%=0:Z%=NewPref_%(2)*sitip_%*bitif_%:NEXT:BankCC_%()=0:BankSS_%()=0:ENDPROC
49670IFZ%MODbitif_%=7THEN
49675c_%=FNni_(BITe_$(Z%-2)):SYS&406C4,PTR#F%/l_%*100
49680IFBITe_$(Z%-4)<>"":BITe_$(Z%-4)=FNcaps_(BITe_$(Z%-4)):A_%=ASC(BITe_$(Z%-4))-64:IFA_%<13:BankCC_%(A_%)=FNadd_(BankCC_%(A_%),-c_%):IFFNcaps_(BITe_$(Z%-3))>"P":BankSS_%(A_%)=FNadd_(BankSS_%(A_%),-c_%)
49685IFBITe_$(Z%-1)<>"":BITe_$(Z%-1)=FNcaps_(BITe_$(Z%-1)):A_%=ASC(BITe_$(Z%-1))-64:IFA_%<13:BankCC_%(A_%)=FNadd_(BankCC_%(A_%),c_%):IFFNcaps_(BITe_$(Z%))>"P":BankSS_%(A_%)=FNadd_(BankSS_%(A_%),c_%)
49690ENDIF
49695NEXT:FORZ%=0TObitin_%-1:INPUT#F%,BITep_$(Z%):NEXT:FORZ%=0TOsitip_%*2:INPUT#F%,BITap_$(Z%)
49700NEXT
49710FORZ%=1TO7:INPUT#F%,SaledF_$(Z%),PaledF_$(Z%),BankF_$(Z%):NEXT
49715FORZ%=1TO25:INPUT#F%,SaledR_$(Z%),PaledR_$(Z%):NEXT
49720FORZ%=1TO17:INPUT#F%,SaledR_%(Z%),PaledR_%(Z%):NEXT
49725FORZ%=1TO15:INPUT#F%,BaledR_$(Z%):NEXT
49730FORZ%=1TO11:INPUT#F%,BaledR_%(Z%):NEXT
49735FORZ%=0TO44:INPUT#F%,VatR_$(Z%),VatT_%(Z%):NEXT
49740FORZ%=0TO10:INPUT#F%,VatC_$(Z%),VatC_%(Z%):NEXT:INPUT#F%,pass8_$
49745INPUT#F%,prefn_%,prefye_%,you_$:SYS&406C4,PTR#F%/l_%*100
49750FORZ%=0TOti_%:INPUT#F%,inv11_%(Z%),inv22_%(Z%),inv33_%(Z%):NEXT
49755INPUT#F%,Xpagx_%,Xpagy_%,Xnam_%,Xfon_x%,Xfon_y%,Xaspac_%,Xatab_%,Xnam_$,Xa4_%,Xus_%,Xcust_%
49760INPUT#F%,Stat1_$,Stat2_$,Stat3_$,SBestP_%,SBestF_%
49762INPUT#F%,A%:REM SIOjust etc
49770INPUT#F%,SIOborder%,SIOruler%,SIOdsize_%,SIOdgap_%
49775INPUT#F%,SIOa4_%,SIOus_%,SIOcust_%,SIOpagx_%,SIOpagy_%
49780IFFNim_(F%,tem_$)=1THENF%=0:ENDPROC
49785FORZ%=0TO3996STEP4:INPUT#F%,A%:NEXT
49790FORZ%=1TOmaxT_%*sitip_%*sitif_%:INPUT#F%,TITe_$(Z%):NEXT:FORZ%=0TOsitin_%-1:INPUT#F%,TITep_$(Z%):NEXT:FORZ%=0TOsitip_%*3:INPUT#F%,TITap_$(Z%):NEXT:INPUT#F%,titp_%
49795FORZ%=0TOmaxT_%*sitip_%:INPUT#F%,TITa_$(Z%),TITh_$(Z%),TITs_$(Z%),TITe_%(Z%),TITn_%(Z%):NEXT:INPUT#F%,SaveaB_$,Tnam_$:FORZ%=0TO12:INPUT#F%,Es_$(Z%),Ec_$(Z%)
49800NEXT:IFFNim_(F%,tem_$)=1THENF%=0:ENDPROC
49805IFRIGHT$(Tnam_$,2)=" *"THENTnam_$=LEFT$(Tnam_$,LEN(Tnam_$)-2)
49810FORZ%=0TO399:INPUT#F%,bl_$(0):NEXT:INPUT#F%,passA_$:REM P&L etc
49820FORZ%=0TO479STEP5:INPUT#F%,Sheadt1_%(Z%),Sheadt1_%(Z%+1),Pheadt1_%(Z%),Pheadt1_%(Z%+1):NEXT
49830SYS&406C4,PTR#F%/l_%*100:FORZ%=0TO10:INPUT#F%,WatC_$(Z%),WatC_%(Z%):NEXT:INPUT#F%,pass9_$
49835FORZ%=0TO11:INPUT#F%,bl1_%(Z%):NEXT:FORZ%=0TO16:INPUT#F%,pc_$(Z%):NEXT:INPUT#F%,prefs1_%,prefsn1_%:FORZ%=17TO19:INPUT#F%,pc_$(Z%):NEXT:INPUT#F%,prefs2_%,prefsn2_%
49840INPUT#F%,C_%,S_%,CS_%:INPUT#F%,ITll_%:IFNewPref_%(3)>125:INPUT#F%,lm_%,tm_%:FORZ%=0TOB%:INPUT#F%,StHd_$(Z%):NEXT
49845CLOSE#F%:F%=0:end_%=0:sa_%=0
49850IFNewPref_%(7)=-1THEN
49855FORZ%=0TO479STEP5:Sheadt1_%(Z%)=FNadd_(Sheadt1_%(Z%+2),Sheadt1_%(Z%+3)):Sheadt1_%(Z%+1)=Sheadt1_%(Z%+4):Pheadt1_%(Z%)=FNadd_(Pheadt1_%(Z%+2),Pheadt1_%(Z%+3)):Pheadt1_%(Z%+1)=Pheadt1_%(Z%+4):NEXT
49860SYS&406C1:PROCSiSort_:PROCPiSort_:PROCBiSort_:SYS&406C0
49865FORZ%=0TO11:BankOO_%(Z%+1)=FNadd_(BankOO_%(Z%+1),bl1_%(Z%)):NEXT
49870ENDIF
49875SYS&406C1
49880Savea_$=tem_$:IFsave%>0THEN$!Saveas_%=tem_$:Z%=FNwindow("Ssave")
49885IOrderch%()=1:IOch_%=1
49890IFC_%>M_%:C_%=M_%
49895IFS_%>maxsupp_%:S_%=maxsupp_%
49900IFCS_%>Cmaxsupp_%:CS_%=Cmaxsupp_%
49905PROColdfont_:PROCCuplsup_:PROCuplheads_:PROCuplheadp_:PROCuplbank_
49910IFn_%>-1ANDpass1_$<>""ANDedit%>0THENPROCsw_(edit%):PROCcloseW(edit%)
49915IFn_%>-1THENZ%=FNmainW_
49920PROCupstand_
49925ENDPROC
49930DEFFNim_(F_%,tem_$):IFHIMEM-END<mem_%THENSYS&406C1:moremem_%=mem_%:moremem_$=tem_$:CLOSE#F_%:end_%=2:=1 ELSE=0
49935
49940DEFFNmaxmem_:LOCAL A%:mem8_%=0:A%=0
49945IFmem8_%<M_%*mem1_%THENmem8_%=M_%*mem1_%:A%=mem1_%
49950IFmem8_%<maxsupp_%*mem2_%THENmem8_%=maxsupp_%*mem2_%:A%=mem2_%
49955IFmem8_%<Cmaxsupp_%*mem3_%THENmem8_%=Cmaxsupp_%*mem3_%:A%=mem3_%
49960IFmem8_%<maxS_%*mem4_%THENmem8_%=maxS_%*mem4_%:A%=mem4_%
49965IFmem8_%<maxP_%*mem5_%THENmem8_%=maxP_%*mem5_%:A%=mem5_%
49970IFmem8_%<maxB_%*mem6_%THENmem8_%=maxB_%*mem6_%:A%=mem6_%
49975IFmem8_%<maxS_%*mem4_%+maxP_%*mem5_%+maxB_%*mem6_%THENmem8_%=maxS_%*mem4_%+maxP_%*mem5_%+maxB_%*mem6_%
49980=A%
49985DEFFNclf_(Z_%):IFZ_%>0THENCLOSE#Z_%:=0 ELSE=0
49990DEFFNload1_(temp_$)
49995LOCAL A%,B%,C%,D%,E%,F%,G%,Z%,A_%,B_%,C_%,D_%,E_%,F_%,G_%,H_%,I_%,J_%,K_%,L_%
50000LOCAL ERROR
50005ON ERROR LOCAL:RESTORE ERROR:moremem_%=0:=FNclf_(F%)
50010F%=0
50015F%=OPENUP(temp_$)
50020INPUT#F%,B%,C%,D%,M_%,maxsupp_%,Cmaxsupp_%,maxS_%,maxP_%,maxB_%,A_%,B_%,C_%
50025N_%=FNmaxmem_:IFmaxsupp_%>Cmaxsupp_%THENN_%=maxsupp_% ELSEN_%=Cmaxsupp_%
50030moremem_%=M_%*mem1_%+maxsupp_%*mem2_%+Cmaxsupp_%*mem3_%+maxS_%*mem4_%+maxP_%*mem5_%+maxB_%*mem6_%+N_%*mem7_%+EXT#F%
50035SYS&400EC,-1,-1 TO Z1_%,Z2_%,Z3_%
50040D_%=moremem_%-(HIMEM-END):G%=D_%+mpa_%-Z3_%
50045IFD_%+mpa_%>Z3_%THEN
50050E_%=M_%-B%:F_%=maxsupp_%-C%:G_%=Cmaxsupp_%-D%:H_%=maxS_%-A_%:I_%=maxP_%-B_%:J_%=maxB_%-C_%:reduce_%=1
50055REPEAT:L_%=moremem_%
50060E%=E_%:K_%=1
50065IFE%<F_%THENE%=F_%:K_%=2
50070IFE%<G_%THENE%=G_%:K_%=3
50075IFE%<H_%THENE%=H_%:K_%=4
50080IFE%<I_%THENE%=I_%:K_%=5
50085IFE%<J_%THENE%=J_%:K_%=6
50090IFE%<1THENK_%=0
50095CASE K_% OF
50100WHEN 1:E_%-=1:M_%-=1:PTR#F%=15:PRINT#F%,M_%:moremem_%-=mem1_%
50105WHEN 2:F_%-=1:maxsupp_%-=1:PTR#F%=20:PRINT#F%,maxsupp_%:moremem_%-=mem2_%:IFmaxsupp_%>Cmaxsupp_%THENmoremem_%-=mem7_%
50110WHEN 3:G_%-=1:Cmaxsupp_%-=1:PTR#F%=25:PRINT#F%,Cmaxsupp_%:moremem_%-=mem3_%:IFCmaxsupp_%>maxsupp_%THENmoremem_%-=mem7_%
50115WHEN 4:H_%-=1:maxS_%-=1:PTR#F%=30:PRINT#F%,maxS_%:moremem_%-=mem4_%
50120WHEN 5:I_%-=1:maxP_%-=1:PTR#F%=35:PRINT#F%,maxP_%:moremem_%-=mem5_%
50125WHEN 6:J_%-=1:maxB_%-=1:PTR#F%=40:PRINT#F%,maxB_%:moremem_%-=mem6_%
50130ENDCASE
50135D_%=D_%=moremem_%-(HIMEM-END):SYS&406C4,(D_%+mpa_%-Z3_%)/G%*100
50140UNTILD_%+mpa_%<Z3_%ORL_%=moremem_%
50145IFD_%>Z3_%THENmoremem_%=0
50150ENDIF
50155CLOSE#F%
50160=moremem_%
50165
50170DEFFNcheckmaxst1_:LOCAL A%,Z%:=12
50180DEFFNcheckmaxsu1_:LOCAL A%,Z%:=10
50200DEFFNCcheckmaxsu1_:LOCAL A%,Z%:=30
50215DEFFNcheckmaxS1_:LOCAL A%,Z%:=30
50230DEFFNcheckmaxP1_:LOCAL A%,Z%:=30
50245DEFFNcheckmaxB1_:LOCAL A%,Z%:=10
50260
50265DEFFNswpc_(A_%):IFA_%>64ANDA_%<97THEN=A_%+32 ELSEIFA_%>96ANDA_%<123THEN=A_%-32 ELSE=A_%
50270
50275DEFFNgn_(A_$):LOCAL Z%,Z_%:FORZ%=1TOLEN(A_$)
50280IFMID$(A_$,Z%,1)>"/"ANDMID$(A_$,Z%,1)<":"THENZ_%=Z%:Z%=LEN(A_$)
50285NEXT:=Z_%
50290
50295DEFFNupdatenum_(A$,L%)
50300LOCAL A%,B%,Z%,B$,C$,D$
50305IFA$=""THEN=""
50310FORZ%=LEN(A$)TO1STEP-1
50315IFMID$(A$,Z%,1)>"/"ANDMID$(A$,Z%,1)<":"THENA%=Z%:Z%=1
50320NEXT
50325IFA%>0THEN
50330FORZ%=A%TO1STEP-1
50335IFMID$(A$,Z%,1)<"0"ORMID$(A$,Z%,1)>"9"THENB%=Z%:Z%=1
50340NEXT
50345B$=LEFT$(A$,B%)
50350D$=MID$(A$,A%+1,255)
50355C$=STR$(VAL(MID$(A$,B%+1,A%-B%))+1)
50360ENDIF
50365=LEFT$(B$+C$+D$,L%)
50370DEFFNupdatenum2_(A$)
50375LOCAL A%,B%,Z%,B$,C$,D$
50380A%=INSTR(A$,"�"):IFA%<1THEN=""
50385A%+=1:B$=LEFT$(A$,A%-1)
50390B%=LEN(A$)+1:FORZ%=A%TOLEN(A$)
50395IFMID$(A$,Z%,1)<"0"ORMID$(A$,Z%,1)>"9"THENB%=Z%:Z%=LEN(A$)
50400NEXT
50405C$=STR$(VAL(MID$(A$,A%,B%-A%))+1)
50410D$=MID$(A$,B%,255)
50415=B$+C$+D$
50420
50425DEFFNcaps_(A_$):LOCAL H%:H%=t_%:$t_%=A_$:CALLm1_%:=$t_%
50430
50435DEFFNsavesalesledger_(A_%)
50440LOCAL a_%,Z$
50445REM A_%=1 Cash sales A_%=2 Invoice A_%=3 RECEIPT 4=PAYMENT
50450error_%=1:a_%=W%
50455IFA_%<3:IFSalewar_%=1THENZ$=FNalert("About to Save to the Sales Ledger OK?","","YES","NO","ar_quest",1)
50460W%=a_%
50465error_%=0
50470IFZ$="NO"THEN=FALSE
50475IFA_%=1:IFFNSAledger_=FALSE THEN=FALSE
50480IFA_%=2THENPROCITledger_
50485IFA_%=3:IFFNREledger_(0)=FALSE THEN=FALSE
50490IFA_%=4:IFFNPEledger_(0)=FALSE THEN=FALSE
50495IFA_%=5:IFFNBEledger_=FALSE THEN=FALSE
50500IFA_%<3:IFsaled%=0THENPROCSiSort_
50505=TRUE
50510
50515DEFFNfirstfreesale_
50520LOCAL A%,B%,C%,D%,E%,Z%
50525t6_%()=0
50530FORD%=1TO6
50535FORZ%=E%TOmaxS_%*sitip_%-1
50540B%=0:C%=0
50545FORA%=Z%*sitif_%+1TO(Z%*sitif_%+1)+sitif_%-1
50550IFSITe_$(A%)<>""THENB%=1:A%=(Z%*sitif_%+1)+sitif_%-1
50555NEXT
50560IFB%=0THENC%=Z%+1:Z%=maxS_%*sitip_%-1
50565NEXT
50570IFB%=0THENt6_%(D%)=(C%-1)*sitif_%+1
50575E%=C%
50580IFB%=1ORC%=maxS_%*sitip_%THEND%=6
50585NEXT
50590=FALSE
50595
50600DEFFNfreesale_
50605LOCAL A_%,B%,C%,Z%
50610FORZ%=1TO6
50615IFItot_%(Z%)<>0ORIvat_%(Z%)<>0THENB%+=1
50620IFt6_%(Z%)<>0THENA_%+=1
50625NEXT
50630IFB%>A_%THEN=1
50635=0
50640
50645DEFFNfirstfreepaym_(A_%)
50650LOCAL A%,B%,C%,Z%
50655IFA_%=1THENA_%=lastpos_%
50660FORZ%=A_%TOmaxP_%*sitip_%-1
50665B%=0:FORA%=Z%*sitif_%+1TO(Z%*sitif_%+1)+sitif_%-1
50670IFPITe_$(A%)<>""THENB%=1:A%=(Z%*sitif_%+1)+sitif_%-1
50675NEXT
50680IFB%=0THENC%=Z%+1:lastpos_%=Z%:Z%=maxP_%*sitip_%-1
50685NEXT
50690IFB%=1THEN=maxP_%*sitip_%-1
50695=C%
50700DEFFNfirstfreesal_(A_%)
50705LOCAL A%,B%,C%,Z%
50710IFA_%=1THENA_%=lastpos1_%
50715FORZ%=A_%TOmaxS_%*sitip_%-1
50720B%=0:FORA%=Z%*sitif_%+1TO(Z%*sitif_%+1)+sitif_%-1
50725IFSITe_$(A%)<>""THENB%=1:A%=(Z%*sitif_%+1)+sitif_%-1
50730NEXT
50735IFB%=0THENC%=Z%+1:lastpos1_%=Z%:Z%=maxS_%*sitip_%-1
50740NEXT
50745IFB%=1THEN=maxS_%*sitip_%-1
50750=C%
50755DEFFNfirstfreetal_(A_%)
50760LOCAL A%,B%,C%,Z%
50765IFA_%=1THENA_%=lastpos3_%
50770FORZ%=A_%TOmaxT_%*sitip_%-1
50775B%=0:FORA%=Z%*sitif_%+1TO(Z%*sitif_%+1)+sitif_%-1
50780IFTITe_$(A%)<>""THENB%=1:A%=(Z%*sitif_%+1)+sitif_%-1
50785NEXT
50790IFB%=0THENC%=Z%+1:lastpos3_%=Z%:Z%=maxT_%*sitip_%-1
50795NEXT
50800IFB%=1THEN=maxT_%*sitip_%-1
50805=C%
50810DEFFNfirstfreebank_(A_%)
50815LOCAL A%,B%,C%,Z%
50820IFA_%=1THENA_%=lastpos2_%
50825FORZ%=A_%TOmaxB_%*sitip_%-1
50830B%=0:FORA%=Z%*bitif_%+1TO(Z%*bitif_%+1)+bitif_%-1
50835IFBITe_$(A%)<>""THENB%=1:A%=(Z%*bitif_%+1)+bitif_%-1
50840NEXT
50845IFB%=0THENC%=Z%+1:lastpos2_%=Z%:Z%=maxB_%*sitip_%-1
50850NEXT
50855IFB%=1THEN=maxB_%*sitip_%-1
50860=C%
50865
50870DEFPROCITledger_:LOCAL A_%,C%,Z%,Z_%,a_%:olddata_$(11)="":lastpos1_%=0:A_%=-1
50875IFFNchdate_($!ITda1_%)=""THEN$!ITda1_%=today_$:PROCrI(invW%,"ITda1")
50880FORZ%=0TO95:IFvt_%(Z%)<>0:Z_%+=1:IFZ_%=2THENZ%=95
50885IFA_%=-1:IFZ_%=1:A_%=Z%
50890NEXT:a_%=FNgetiflag(85)
50895IFZ_%<2THEN
50900FORZ%=1TO6
50905IFZ_%>1:Itot_%(Z%)=0
50910IFItot_%(Z%)<>0ORIvat_%(Z%)<>0ORZ%=6ANDC%=0ANDZ_%<2THEN
50915IFinv11_%(0)=-1THENItot_%(Z%)=-Itot_%(Z%):Ivat_%(Z%)=-Ivat_%(Z%)
50920C%+=1:IFsaled%>0THENPROCSITdown_(sitp_%-(t6_%(C%)/sitif_%-1))
50925SITe_$(t6_%(C%))=$!ITda1_%:SITe_$(t6_%(C%)+1)=RIGHT$($!ITda1_%,7):SITe_$(t6_%(C%)+2)=$!ITsupplier_%:SITe_$(t6_%(C%)+3)=ITacc_$:SITe_$(t6_%(C%)+4)=ITnumb_$:SITe_$(t6_%(C%)+5)=FNconvis_(FNadd_(Itot_%(Z%),Ivat_%(Z%)),"")
50930SITe_$(t6_%(C%)+6)=LEFT$(Ivat_$(Z%),1):SITe_$(t6_%(C%)+7)=FNconvis_(Ivat_%(Z%),"")
50935IFa_%=1THENSITe_$(t6_%(C%)+8)=SITe_$(t6_%(C%)+5):olddata_$(11)="R"
50940SITe_$(t6_%(C%)+9)=IThead_$:SITe_$(t6_%(C%)+10)=ITcomm_$:PROCsavesaleledger2_(t6_%(C%)/sitif_%,1)
50945ENDIF
50950NEXT
50955ENDIF
50960olddata_$(0)=$!ITda1_%:olddata_$(1)=RIGHT$($!ITda1_%,7):olddata_$(2)=$!ITsupplier_%:olddata_$(3)=ITacc_$:olddata_$(4)=ITnumb_$:olddata_$(10)=ITcomm_$
50965IFZ_%>1THEN
50970FORZ%=0TO95:IFvt_%(Z%)<>0THEN
50975IFinv11_%(0)=-1THENvt_%(Z%)=-vt_%(Z%):vt1_%(Z%)=-vt1_%(Z%)
50980olddata_$(5)=FNconvis_(FNadd_(vt_%(Z%),vt1_%(Z%)),""):olddata_$(7)=FNconvis_(vt1_%(Z%),""):olddata_$(9)=CHR$(Z%/8+65)+CHR$(Z%MOD8+65):olddata_$(6)=LEFT$(vt_$(Z%),1)
50985IFa_%=1THENolddata_$(8)=olddata_$(5):olddata_$(11)="R" ELSEolddata_$(8)="":olddata_$(11)=""
50990IFFNREledger_(1)=FALSE:Z%=95
50995ENDIF
51000NEXT
51005ENDIF
51010ENDPROC
51015
51220DEFFNREledger_(a_%)
51225LOCAL A%,Z%
51230Z%=FNfirstfreesal_(1):IFZ%=maxS_%*sitip_%-1THENerror_%=1:SYS&406C1:PROCwl_(25):SYS&406C0:=FALSE
51235Z%=(Z%-1)*sitif_%+1:IFsaled%>0THENPROCSITdown_(sitp_%-(Z%/sitif_%-1))
51240FORA%=0TO10:SITe_$(Z%+A%)=FNstrip_(olddata_$(A%)):NEXT:IFa_%=2:SITn_%(Z%/sitif_%+1)=CSuNumber_%(CS_%)
51245PROCsavesaleledger2_(Z%/sitif_%,a_%)
51250=TRUE
51255
51260DEFFNPEledger_(a_%)
51265LOCAL A%,Z%
51270IFa_%=2:Z%=FNfirstfreepaym_(0) ELSEZ%=FNfirstfreepaym_(1)
51272IFZ%=maxP_%*sitip_%-1THENerror_%=1:SYS&406C1:PROCwl_(25):SYS&406C0:=FALSE
51275Z%=(Z%-1)*sitif_%+1:IFpaled%>0THENPROCPITdown_(pitp_%-(Z%/sitif_%-1))
51280FORA%=0TO10:PITe_$(Z%+A%)=FNstrip_(olddata_$(A%)):NEXT:IFa_%=2:PITn_%(Z%/sitif_%+1)=SuNumber_%(S_%)
51285PROCsavepurchledger2_(Z%/sitif_%,a_%)
51290=TRUE
51295
51300DEFFNBEledger_:LOCAL A%,Z%:Z%=FNfirstfreebank_(1):IFZ%=maxB_%*bitip_%-1THENerror_%=1:SYS&406C1:PROCwl_(25):SYS&406C0:=FALSE
51305Z%=(Z%-1)*bitif_%+1:IFbankl%>0THENPROCBITdown_(bitp_%-(Z%/bitif_%-1))
51310IFolddata_$(11)="R"THENolddata_$(11)="�"
51315IFolddata_$(12)="R"THENolddata_$(12)="�"
51320BITe_$(Z%)=olddata_$(0):BITe_$(Z%+1)=olddata_$(4):BITe_$(Z%+2)=olddata_$(3):BITe_$(Z%+3)=olddata_$(11):BITe_$(Z%+4)=olddata_$(5):BITe_$(Z%+5)=olddata_$(9):BITe_$(Z%+6)=olddata_$(12):BITe_$(Z%+7)=olddata_$(10)
51325PROCsavebankledger2_(Z%/bitif_%):=Z%
51330
51335DEFFNgH_:IFheap_size%>0THEN=heap_size%
51340SYS&51 TO heap_psize%:SYS"OS_GetEnv" TO ,tblock_%:heap_size%=0:=FNeH_
51345
51350DEFPROCfH_:LOCAL slot%:IFheap_size%>0:SYS&400EC,-1,-1 TO slot%:SYS&400EC,slot%-heap_size%,-1:heap_size%=0
51355ENDPROC
51360
51365DEFFNeH_:LOCAL slot%:SYS&400EC,-1,-1 TO slot%,,mslot_%:IFmslot_%<heap_psize%THEN=0
51370SYS&400EC,slot%+heap_psize%,-1:heap_size%+=heap_psize%:=heap_size%
51375DEFPROCas1_:LOCAL l_%,P%,a:FORl_%=0TO2STEP2:P%=m1_%:[OPTl_%:STMFD R13!,{R0-R9,R14}:MOV R4,#0:.a:LDRB R0,[R7,R4]:CMP R0,#ASC"a":RSBHSS R1,R0,#ASC"z":SUBHS R0,R0,#&20:STRB R0,[R7,R4]:ADD R4,R4,#1:CMP R0,#13:BNE a
51380LDMFD R13!,{R0-R9,R15}:]:NEXT:ENDPROC
51385DEFPROCas2_:LOCAL P%,l_%,a,b:FORl_%=0TO2STEP2:P%=m2_%:[OPT l_%:STMFD R13!,{R0-R9,R14}:MOV R9,#0:.a:LDRB R0,[R6,R9]:CMP R0,#ASC"a":RSBHSS R1,R0,#ASC"z":SUBHS R0,R0,#&20:STRB R0,[R6,R9]:ADD R9,R9,#1:CMP R0,#13:BNE a
51390MOV R9,#0:.b:LDRB R2,[R7,R9]:CMP R2,#ASC"a":RSBHSS R3,R2,#ASC"z":SUBHS R2,R2,#&20:STRB R2,[R7,R9]:ADD R9,R9,#1:CMP R2,#13:BNE b:LDMFD R13!,{R0-R9,R15}:]:NEXT:ENDPROC
51395DEFPROCas3_:LOCAL P%,l_%,a:FORl_%=0TO2STEP2:P%=m3_%:[OPT l_%:STMFD R13!,{R0-R4,R14}:MOV R4,#0:MOV R3,#0:.a:LDRB R0,[R7,R4]:CMP R0,#ASC"a":RSBHSS R1,R0,#ASC"z":SUBHS R0,R0,#&20:CMP R0,#64:STRGTB R0,[R7,R3]
51400ADDGT R3,R3,#1:MOVGT R0,#13:ADD R4,R4,#1:CMP R0,#13:BNE a:STRB R0,[R7,R3]:LDMFD R13!,{R0-R4,R15}:]:NEXT:ENDPROC
51405
51410DEFPROCinit:LOCALA%,A$,B%,B$,C%,C$,D%,D$,E%,Psprites%,a_$,a_%:Z$="":DIMChoices$(3):ONERROR PRINT REPORT$+" at line "+STR$ERL:STOP
51415B$="<Obey$Dir>.Choices"
51420A%=OPENIN(B$):INPUT#A%,Level$,Pass$,Debug%,ShowName%,Help%,Last$,Z$,SaveChoices%,Z%,Choices$(0),Choices$(1),Choices$(2),Choices$(3),Info_$:CLOSE#A%:Pass$=FNcdS(Pass$):E%=FALSE
51425A$="4000,0,16"
51430CloseW%=3:PtrLeave%=4:PtrEnter%=5:Click%=6:KeyPress%=8:LoseCaret%=11:GainCaret%=12:CreateW%=193:Key13%=194:Wspace%=195:ClosedW%=198:PopUpW%=256:DoTail%=257:StaticW%=258:ChangeM%=259:Quit%=260:RamT%=261
51435I%=FALSE:DIMJ%63:K%=FALSE:M%=FALSE:N%=FALSE:P%=FALSE:R%=FALSE:T%=FALSE:U%=FALSE:E$="":F$="":G$="":H$="":A=0:B=0:C=0:D=0:E=0:F=0:G=0:H=0:d$="":f$="":z$="":A%=6663:B%=VAL(FNpS(A$,",")):IFB%<1200THENB%=1200
51440A%+=B%:DIMS%A%,S%!164 64:B%=S%!164:C%=&80D02:SYSC%,0TO,A%:B%!0=A%:SYSC%,1TO,A%:B%!4=A%:SYSC%,2TO,A%:B%!8=A%:SYSC%,3TO,A%:B%!12=A%:SYSC%,4TO,A%:B%!16=A%:SYSC%,5TO,A%:B%!20=A%:SYSC%,8TO,A%:B%!24=A%:SYSC%,9TO,A%:B%!28=A%
51445SYSC%,11TO,A%:B%!36=A%:SYSC%,12TO,A%:B%!40=A%:SYSC%,14TO,A%:!S%=A%
51450PROCsBw(S%+4,160,0):PROCsBw(S%+168,6496,0):Q%=S%+6664:S%!8=Q%:$(S%+20)="_":S%!112=S%+1544:S%!116=S%+1800:S%!120=S%+2056:O%=S%+2312:S%!124=O%:W%=S%+2568
51455S%!44=HI_%:SYS29,0,S%!44,,HM%-S%!44:S%!48=TRUE:D%=VAL(FNpS(A$,",")):S%!80=D%:IFD%>0THENDIMS%!76D%
51460S%!128=TRUE:S%!148=E%:S%!156=100
51465S%!188=TRUE:PROCgMi:S%!212=&8028C0:S%!216=TRUE:S%!248=VAL(FNpS(A$,","))-2:SYS81TOD%:S%!292=D%:S%!324=TRUE:DIMS%!424 31,S%!492 31:S%!456=TRUE:S%!552=TRUE:S%!556=MODE
51470B%=S%+1024:an%=B%:cn%=B%+24:dn%=B%+36:en%=B%+48:fn%=B%+60:ln%=B%+132:mn%=B%+144:nn%=B%+156:pn%=B%+180:rn%=B%+204:sn%=B%+216:wn%=B%+264:$an%="":$cn%="":$dn%="":$en%="":$fn%="":$ln%="":$mn%="":$nn%="":$pn%="":$rn%="":$sn%="":$wn%=""
51475B%=S%+1336:a%=B%:a0%=B%+4:b%=B%+8:b0%=B%+12:c%=B%+16:d%=B%+24:d0%=B%+28:e%=B%+32:e0%=B%+36:f%=B%+40:f0%=B%+44:g%=B%+48:g0%=B%+52:h%=B%+56:h0%=B%+60:i%=B%+64:i0%=B%+68:j%=B%+72:j0%=B%+76:k%=B%+80:k0%=B%+84:l%=B%+88:l0%=B%+92:m%=B%+96:m0%=B%+100
51480n%=B%+104:q%=B%+128:r%=B%+136:r0%=B%+140:s%=B%+144:t%=B%+152:t0%=B%+156:v%=B%+168:v0%=B%+172:w%=B%+176:w0%=B%+180:x%=B%+184:x0%=B%+188:y%=B%+192:y0%=B%+196:z%=B%+200:z0%=B%+204
51485!v0%=856:!w%=W%:W%+=256:C%=0:FORB%=!w%+12TO!w%+12+15*256STEP256:!B%=-255:B%!28=TRUE:B%!184=TRUE:B%!36=C%:C%+=1:NEXT
51490DIMC%(1,6),I%(16),M%(16),M$(16),T$(31),z$(16):C%()=-1:C%(0,6)=0:RESTORE+0:FORA%=0TO14:READ?(S%+300+A%):NEXT:FORA%=0TO31:READT$(A%):NEXT:Poll$="":Tool%=0
51495C$=FNgSV("Obey$Dir"):$sn%=FNgLn(C$):Appln$=C$:SYS&400C0,200,&4B534154,$sn%TOC%,!t%
51500IFC%<200THENERRORS%!212+2,"You need RISC-OS Wimp version 2.0 to run this program":END
51505ONERRORPROCerror:END
51510PROCsPO(1):S%!560=1:A%=S%!560<<3:DIMS%!60(A%<<2)+3:DIMS%!84(A%<<3)+7:PROCsB(S%!84,(A%<<3)+8,13)
51515z$="_":$(S%!84)=z$:Z%=FNi_(Appln$,0):S%!140=-1:S%!144=-1:C$="IconBar":$(S%+96)=C$:S%!72=FNfM(C$):A%=FNaR(S%!72):B%=A%+4:C%=0:D%=0:REPEATB%+=24:E%=!B%:C%+=1:IFE%AND2THEND%+=1
51520UNTIL(E%AND128)>0:S%!108=C%*(A%!20+A%!24)+A%!24+24*D%:B$=FNpS(A$,","):IFB$<>""THENB$=LEFT$(FNtoUC(B$),1)ELSEB$="R"
51525IFB$="L"THEN!O%=-2ELSE!O%=-1
51530S%!340=!O%:O%!4=0:B$=FNpS(A$,","):B$=FNtoLC(B$):IFB$=""THENB$=FNtoLC($sn%)
51535O%!8=0:SYS&400E9,296,,B$TO,,,A%,B%:C%=FNrMV(B%,4):O%!12=A%<<C%:O%!16=68:C$=FNpS(A$,","):IFC$<>""THEN
51540B$="S"+B$+","+FNtoLC(C$):O%!20=&1701B11B:DIMO%!24 3:$(O%!24)="":A%=LENB$:DIMO%!28A%:$(O%!28)=B$:O%!32=4
51545ELSEO%!20=&17003002:$(O%+24)=B$
51550ENDIF:SYS&400C2,,O%TO!g%:SYS&400D0,,-1
51555ENDPROC
51560DATA1,25,0,240,240,2,25,0,0,144,3,25,240,0,0
51565DATA"",Alert,Basic,Edit,Paint,Draw,Texture,Display,Form,Dialog,Menu,Scroll,Sprite,Animate,DataPad,MultiPad,Tools,View,"",ThreeDee,"",Film,"","","","","","","","","",Ambig
51570
51575DEFPROCiRes(A$,B1%):LOCALA%,B%,B2%,B$,C%,C$,D%,D$,E%,F%,G%,H%,Z$:E%=fn%:B%=0:!(S%!60+(B1%<<2))=0:B2%=(B1%MOD32)<<27:REPEATSYS12,9,A$,E%,1,B%,12TO,,,,B%:IFB%<>-1THEN
51580D%=E%:WHILE?D%:D%+=1:ENDWHILE:?D%=13:B$=FNtoLC($E%):C$=A$+"."+B$:D%=FNgFl(C$)
51585IFD%>0THEN
51590F%=FNgFt(C$)
51595CASETRUE OF
51600WHENF%=&FF9:CASEB$OF
51605WHEN"sprites":D%+=16:DIMA%D%:!A%=D%:A%!4=0:A%!8=16:A%!12=16:SYS46,265,A%:SYS8,16,C$,A%+4:!(S%!60+(B1%<<2))=A%:S%!144=A%
51610WHEN"!sprites":S%!140=TRUE
51615ENDCASE
51620WHENLEFT$(B$,1)="!",F%=&FFB,F%=&407,F%>=&FFF,F%=&AFF
51625WHENF%=&402:IFB$="menus"THENDIMA%D%:C%=FNldF(C$,A%):A%!12=A%!12ORB2%:A%!28=S%!56:S%!56=A%:D%=C%+C%!20:FORF%=C%+52TOC%+28+24*C%!16STEP24:!F%+=D%:F%!-8=F%!-8ORB2%:Z%=FNiM(!F%):NEXT:C%!20=C%+32
51630WHENF%=&404:IFB$="windows"THEN
51635DIMA%D%:C%=FNldF(C$,A%):A%!12=A%!12ORB2%:A%!28=S%!64:S%!64=A%:D%=C%+C%!20:FORF%=C%+52TOC%+28+24*C%!16STEP24:!F%+=D%:F%!-8=F%!-8ORB2%:$wn%=$(F%-20):H%=F%!-8>>>16AND31:Z%=FNiW(!F%,H%):IFH%=10THEN
51640G%=!(!F%+36):IFG%>0THENDIMA%G%-1:PROCsBw(A%,G%,0):G%=W%:W%=A%-52:R%=195:Z%=EVAL("FNe"+z$):!(!F%+12)=A%:W%=G%ELSE!(!F%+12)=0
51645A%=FNaR(!F%):PROCcB(A%,Q%+4,88+(A%!84<<5)):R%=193:Z%=EVAL("FNe"+z$):SYS&400C1,,Q%+4TO!h%:$(!F%+4)="":!(!F%+8)=!h%
51650ENDIF
51655NEXT:C%!20=C%+32:S%!32=C%
51660ENDIF
51665OTHERWISE
51670IFB$="key"THEN
51675DIMA%D%:C%=FNldF(C$,A%):A%!12=A%!12ORB2%:A%!28=S%!52:S%!52=A%:D%=C%+C%!20:FORF%=C%+52TOC%+28+24*C%!16STEP24:!F%+=D%:F%!-8=F%!-8ORB2%:CASE$C%OF
51680WHEN"Key":Z%=FNiKey(!F%)
51685ENDCASE:NEXT:C%!20=C%+32
51690ENDIF
51695ENDCASE
51700ENDIF
51705ENDIF:UNTILB%=-1
51710ENDPROC
51715DEFFNi(A$,B%):PROCiRes(A$,B%):=TRUE
51720
51725DEFFNiKey(A%):LOCALB%,C%:FORB%=A%TOA%+&3FFSTEP4:IF!B%>512THEN!B%+=A%
51730NEXT:FORB%=A%+&600TOA%+&7FFSTEP4:IF!B%>512THEN!B%+=A%
51735NEXT:K%=A%:S%!24=A%:=FALSE
51740DEFFNiM(A%):LOCALB%,C%,D%,E%,F%,G$:C%=!A%:IFC%>0THEN
51745F%=FNaR(A%):A%-=12:FORB%=F%+28TOF%+4+24*C%STEP24:A%+=16:E%=B%!8:IFE%AND256THEN
51750B%!12+=F%:B%!16-=F%*(B%!16>1):IF!B%AND4THEN
51755G$=$A%:IFINSTR(G$,"_")=0THENG$+=z$
51760PROCcIV(G$,B%+12)
51765ENDIF:IFE%AND2THENB%!16=1
51770ENDIF
51775NEXT
51780ENDIF:=FALSE
51785DEFFNiW(A%,B1%):LOCALB%,C%,C$,D%,E%,F%,G%,G1%,H%:F%=FNaR(A%):F%!64=S%!144:E%=F%!84<<5:D%=F%+88+E%:A%!64=0:IFB1%=10THEN
51790IFF%!56AND256THENF%!72+=D%
51795IFE%>0THEN
51800FORC%=F%+104TOF%+72+E%STEP32:IF!C%AND256THENC%!4+=D%:IFC%!8>0THENC%!8+=D%
51805NEXT
51810ENDIF:E%=!A%<<4:D%=F%+72:F%=14<<12:G%=F%+(1<<23):IFE%>64THEN
51815FORC%=A%+80TOA%+E%STEP16:IF(!C%AND17)=17THEN
51820H%=D%+((!C%AND&FF00)>>>3):IF(!H%ANDG%)>=F%THEN
51825C$=$(C%-12):IFC$<>""ANDC$<>"noName"ANDC$<>"No_Name"THEN
51830IFINSTR(C$,"_")=0THENC$+=z$
51835PROCcIV(C$,H%+4)
51840ENDIF
51845ENDIF
51850!H%=!H%ANDNOT(1<<23)
51855ENDIF:NEXT
51860ENDIF
51865ELSEIFE%>0THEN
51870ENDIF:E%=!A%<<4:D%=F%+72:F%=14<<12:G%=F%+(1<<23):IFE%>64THEN
51875B%=0:FORC%=A%+80TOA%+E%STEP16:IF(!C%AND17)=17THENH%=D%+((!C%AND&FF00)>>>3):IF(!H%ANDG%)>=F%THENB%+=4
51880NEXT:IFB%THEN
51885IFB1%=14THEN
51890DIMC% B%*7+3:PROCsB(C%,B%*6+4,-1):A%!64=C%:!C%=B%:B%+=C%+4:G1%=0:FORE%=A%+80TOA%+(!A%<<4)STEP16:IF(!E%AND17)=17THEN
51895H%=D%+((!E%AND&FF00)>>>3):IF(!H%ANDG%)>=F%THEN
51900C$=$(E%-12):IFC$<>""ANDC$<>"noName"ANDC$<>"No_Name"THEN
51905IFINSTR(C$,"_")=0THENC$+=z$
51910PROCcIV(C$,B%):!B%=H%!4:!(B%+!C%)=E%-12:!(B%+(!C%<<1))=H%!12:!(B%+5*!C%)=!E%>>>8AND&FF:IF(!H%AND&F101)>=&E101THEN!(B%+4*!C%)=G1%:G1%+=FNalign(H%!12+1)
51915B%+=4
51920ENDIF
51925ENDIF:!H%=!H%ANDNOT(1<<23)
51930ENDIF:NEXT:PROCcB(C%+!C%+4,C%+4,!C%):B%=C%+4*!C%+4:FORE%=A%+80TOA%+(!A%<<4)STEP16:IF(!E%AND4)=4THEN
51935FORB%=C%+6*!C%+4TOC%+7*!C%STEP4:IF!B%=!E%>>>8AND&FF THEN!(B%-(!C%<<1))=E%-12:B%=C%+7*!C%
51940NEXT
51945ENDIF:NEXT:FORB%=C%+4*!C%+4TOC%+5*!C%STEP4:IF!B%<&8000THEN!B%=0
51950NEXT
51955ELSEDIMC% (B%<<1)+3:PROCsB(C%,(B%<<1)+4,-1):A%!64=C%:!C%=B%:B%+=C%+4:FORE%=A%+80TOA%+(!A%<<4)STEP16:IF(!E%AND17)=17THEN
51960H%=D%+((!E%AND&FF00)>>>3):IF(!H%ANDG%)>=F%THEN
51965C$=$(E%-12):IFC$<>""ANDC$<>"noName"ANDC$<>"No_Name"THEN
51970IFINSTR(C$,"_")=0THENC$+=z$
51975PROCcIV(C$,B%):!B%=H%!4:B%+=4
51980ENDIF
51985ENDIF
51990!H%=!H%ANDNOT(1<<23)
51995ENDIF:NEXT:PROCcB(C%+!C%+4,C%+4,!C%)
52000ENDIF
52005ENDIF
52010ENDIF
52015ENDIF:=FALSE
52020DEFFNiMsg(A$(),B%):LOCALC%:C%=0:REPEAT:A$(C%)=GET$#B%:C%+=1:UNTILEOF#B%:=FALSE
52025
52030DEFPROCpoll
52035REPEATPROCp:UNTILend_%>0
52040ENDPROC
52045DEFPROCp:A%=S%:R%=USR!A%:CASER%OF
52050WHEN4:W%=S%!16:z$=$(S%+20):IFEVAL("FNe"+$(S%!84+W%!16)):IFpm_%=0:SYS&400E9,36,,"ptr_default",1
52055WHEN5:W%=S%!16:z$=$(S%+20):IFEVAL("FNe"+$(S%!84+W%!16))THENPROCsP(W%!32):pm_%=0
52060WHEN6:W%=S%!16:z$=$(S%+20):X%=!Q%:Y%=Q%!4:PROCc:PROCmb_
52065WHEN8:W%=S%!16:z$=$(S%+20):PROCk
52070WHEN9:PROCdM(Q%)
52075WHEN10:W%=S%!16:z$=$(S%+20):PROCscW(W%)
52080WHEN1:W%=S%!16:z$=$(S%+20):IF$(W%+20)="View"THENZ%=EVAL("FN"+$W%+z$)ELSEIFW%!216>0THENSYS&400C8,,Q%TOZ%:IFZ%THENPROCd(W%)
52085WHEN2:PROCo(Q%)
52090WHEN3:W%=S%!16:z$=$(S%+20):PROCcloseW(W%)
52095WHEN7:X%=Q%!20:Y%=Q%!24:pm_%=0:SYS&400E9,36,,"ptr_default",1:IFEVAL("FN"+$dn%+z$)THENPROCdB:PROCmb1_
52100WHEN17,18:PROCfix3_:PROCrM
52105WHEN19:PROCrB
52110WHEN11:W%=S%!16:z$=$(S%+20):Z%=EVAL("FNe"+$(S%!84+W%!16))
52115WHEN12:W%=S%!16:z$=$(S%+20):IFEVAL("FNe"+$(S%!84+W%!16)):IFW%!172>0ANDW%!176>0ANDW%!180>0THENPROCcB(W%!176,W%!172,W%!180)
52120WHEN0:PROCB
52125ENDCASE:ENDPROC
52130DEFPROCc:IF(!b%AND&FF2)=0THEN
52135IFW%>0THEN
52140SYS&400D3,,O%:IF!O%<>!h%THENPROCgC(W%)
52145IF!i%>TRUE THEN
52150CASE$rn%OF
52155WHEN"Menu","Dialog","Scroll":!w0%=S%!32:!h0%=!(!w0%+12):S%!32=W%:IF$rn%="Menu"AND!w0%>0THENN%=!(!w0%+48)ELSEIFW%!36AND2THENN%=W%!48
52160IFFNfIC THEN
52165CASE!i0%>>>16AND63OF
52170WHEN0:IF$cn%<>""THEN
52175IFINSTR($cn%,"_")THENZ%=EVAL("FN"+$cn%)ELSEZ%=EVAL("FN"+$cn%+z$)
52180ENDIF
52185WHEN4:
52190WHEN5:Z%=FNlist
52195ENDCASE
52200ELSEZ%=FNpB_
52205ENDIF
52210WHEN"Alert","Input":Poll$=FNgId(!h%,!i%)
52215OTHERWISE:Z%=FNpB_
52220ENDCASE
52225ELSEZ%=FNpB_
52230ENDIF
52235ELSEIF!h%=-2AND!i%=!g%THENz$="_":Z%=FNmainW_
52240ENDIF
52245ELSEIF!b%AND2THEN
52250Z%=FNoM
52255ELSEIF!b%AND336THEN
52260!d0%=!d0%ANDNOT255:IF!i%<0THEN$cn%="":$dn%="":PROCpBd ELSEZ%=FNfIC:Z%=!i0%>>>16AND63:IFZ%>7ANDZ%<11ORZ%=7AND((!b%AND80)=64)THEN$dn%=$cn%:!d0%=!d0%ORZ%:PROCpBd
52265ENDIF
52270ENDIF
52275ENDIF:ENDPROC
52280---(BACKGROUND)
52285DEFPROCB:LOCALA%:IFU%THEN
52290S%!320=FALSE:A%=S%!48:SYS6,176:WHILEA%<>-1:Z%=EVAL("FNb"+$(A%!4)):IFS%!320THENA%=-1ELSEA%=!A%
52295ENDWHILE:SYS6,176,,255TO,A%:S%!468=A%
52300ENDIF:IFU%=0THENPROCsPO(1)
52305IFS%!12THENSYS66TOA%:WHILEA%-S%!12>0:S%!12+=S%!156:ENDWHILE
52310ENDPROC
52315DEFFNb:IFU%AND1THENSYS&80D0C,,S%
52320=TRUE
52325DEFFNaBg(A$,B%,C%):LOCALD%,E%,F%,V%:S%!320=TRUE:U%=U%OR(1<<B%MOD32):D%=S%!48:WHILED%<>-1ANDNOTF%:IF$(D%!4)=A$THENF%=D%
52330D%=!D%:ENDWHILE:IFF%>0THEND%=F%!4:V%=TRUE ELSED%=FNgH(16):$D%=A$:D%!8=0:D%!12=&FFFFFFF:V%=FNaLL(S%+48,D%)
52335IFV%THEN
52340D%!8=D%!8OR(1<<B%MOD32):IFC%<2THENC%=2
52345IFC%=2THEN
52350D%!12=C%:PROCsPO(C%)
52355ELSEE%=S%!48:F%=&FFFFFFF:WHILEE%<>-1:IF!(E%!4+12)<F%THENF%=!(E%!4+12)
52360E%=!E%:ENDWHILE:IFC%<D%!12THEND%!12=C%
52365IFC%<F%THENPROCsPO(C%)
52370ENDIF
52375ENDIF:=V%
52380DEFPROCcBg(A$,B$,C%,D%):LOCALE%,F%:E%=!w%+&F00:FORF%=!w%TOE%STEP256:IFF%!12>TRUE THENIF$F%=B$ANDF%!12<>C%THENF%=E%:E%=TRUE
52385NEXT:IFE%>0THENZ%=FNdBg(A$,D%)
52390ENDPROC
52395DEFFNdBg(A$,B%):LOCALD%,E%,F%,V%:V%=TRUE:S%!320=TRUE:D%=S%!48:WHILED%<>-1ANDNOTF%:IF$(D%!4)=A$THENF%=D%
52400D%=!D%:ENDWHILE:IFF%>0THEN
52405D%=F%!4:U%=U%ANDNOT(1<<B%MOD32):D%!8=D%!8ANDNOT(1<<B%MOD32):IFD%!8=0THENV%=FNdLL(S%+48,D%):PROCfH(D%)
52410IFU%=0THEN
52415PROCsPO(0)
52420ELSEE%=S%!48:F%=&FFFFFFF:WHILEE%<>-1:IF!(E%!4+12)<F%THENF%=!(E%!4+12)
52425E%=!E%:ENDWHILE:IFF%>2THENPROCsPO(F%)
52430ENDIF
52435ENDIF:=V%
52440---(CARET)
52445DEFPROCgC(A%):IFA%=0THENENDPROC
52450CASE$(A%+20)OF
52455WHEN"Alert","Display":PROCgCp:SYS&400D2,A%!12,-1,,,&1000024,-1
52460WHEN"Input":PROCgCp:PROCsCI(A%!12,4)
52465WHEN"Dialog","Scroll","View":PROCgCp:SYS&400D6,A%!12,S%!116,&E000,&E000:IF!(S%!116)<>-1THENPROCsCI(A%!12,!(S%!116)) ELSESYS&400D2,A%!12,-1,,,&1000024,-1
52470ENDCASE:ENDPROC
52475DEFPROCfC(A%):SYS&400D3,,A%:ENDPROC
52480DEFPROCsCI(A%,B%):PROCpK1_(13):IFFNfix_:SYS&80D10,,A%,B%
52485ENDPROC
52490DEFPROCgCp:LOCALB%:SYS&400D3,,J%:IFC%(0,6)=0THENB%=0:C%(0,6)=1ELSEB%=1:C%(0,6)=0
52495C%(B%,0)=!J%:C%(B%,1)=J%!4:C%(B%,2)=J%!8:C%(B%,3)=J%!12:C%(B%,4)=J%!16:C%(B%,5)=J%!20:ENDPROC
52500DEFPROCpCp:LOCALB%:B%=-1:CASETRUE OF
52505WHENC%(0,6)=1:IFC%(0,0)>0THENB%=0:C%(0,6)=0
52510WHENC%(0,6)=0:IFC%(1,0)>0THENB%=1:C%(0,6)=1
52515ENDCASE:IFB%=-1THENENDPROC
52520SYS&600D2,C%(B%,0),C%(B%,1),C%(B%,2),C%(B%,3),C%(B%,4),C%(B%,5):C%(B%,0)=-1:ENDPROC
52525---(DRAG)
52530DEFPROCpBd:LOCALA%,C%,D%,V%:V%=FALSE:SYS&400CF,,O%:X%=!O%:Y%=O%!4:!O%=!h%:O%!4=!i%:O%!248=W%:IFFNpBd_ THEN
52535IF!i%>-1AND(!d0%AND&FF00)=0THEN
52540Q%!256=!O%:SYS&400CC,,Q%+256:IFQ%!288AND(1<<17)THEN
52545O%!40=Q%!260-Q%!276:O%!44=Q%!272-Q%!280:A%=Q%+348+(!i%<<5):C%=!A%:D%=A%!4:IFFNbV(W%,C%,D%,A%!8,A%!12)THEN
52550V%=TRUE:Q%!8=!A%+O%!40:Q%!12=A%!4+O%!44:Q%!16=A%!8+O%!40:Q%!20=A%!12+O%!44:Q%!24=Q%!260:Q%!28=Q%!264:Q%!32=Q%!268:Q%!36=Q%!272:CASE!b%OF
52555WHEN64:O%!12=X%:O%!16=Y%:PROCcB(A%,O%+64,16):PROCcB(A%,O%+112,16):CASE!d0%AND63OF
52560WHEN7,8:Q%!4=5:D%=S%!428:C%=((Q%!16ANDD%)-(Q%!8ANDD%))>>>S%!196:D%=S%!432:D%=((Q%!20ANDD%)-(Q%!12ANDD%))>>>S%!200
52565WHEN9:Q%!4=5:Q%!24=0:Q%!28=0:Q%!32=S%!204:Q%!36=S%!208:V%=TRUE
52570OTHERWISEV%=FALSE
52575ENDCASE
52580WHEN16:!d0%=!d0%OR(1<<31):CASE!d0%AND63OF
52585WHEN8:Q%!4=6:IFX%>(Q%!8+Q%!16)DIV2THENQ%!24=(Q%!8<<1)-Q%!16+16ELSEQ%!24+=Q%!16-Q%!8:Q%!32=Q%!16-16:SWAPQ%!8,Q%!16:!d0%=!d0%OR1<<16
52590IFY%>(Q%!12+Q%!20)DIV2THENQ%!28=Q%!12+16:Q%!36-=Q%!20-Q%!12:SWAPQ%!12,Q%!20:!d0%=!d0%OR2<<16ELSEQ%!36=(Q%!20<<1)-Q%!12-16
52595D%=S%!428:Q%!24=Q%!24ANDD%:Q%!32=Q%!32ANDD%:D%=S%!432:Q%!28=Q%!28ANDD%:Q%!36=Q%!36ANDD%
52600IF(A%!16AND&183)=256THEN!d0%=!d0%OR(1<<29)
52605OTHERWISEV%=FALSE
52610ENDCASE
52615OTHERWISEV%=FALSE
52620ENDCASE
52625ELSEPROCscrollBy(W%,C%,D%)
52630ENDIF
52635ELSEQ%!284=-1:PROCo(Q%+256)
52640ENDIF
52645ELSEV%=TRUE
52650ENDIF:IFV%THENS%!328=Help%:Help%=FALSE:SYS&400D0,,Q%:IF!d0%AND(1<<30)THENZ%=FNaBg("",0,2)
52655ENDIF
52660ENDPROC
52665DEFFNpBd_:=TRUE
52670DEFPROCdB:LOCALA%,B%,C%:PROCcB(Q%+348+(O%!4<<5),Q%+136,32):IF(!d0%AND&FF00)=0THEN
52675A%=Q%+256:IF(!d0%AND1<<31)=0THEN
52680CASE!d0%AND63OF
52685WHEN7,8:IF!d0%AND(1<<30)THEN
52690B%=X%-O%!12:C%=S%!428:!A%=(O%!64+B%)ANDC%:A%!8=(O%!72+B%)ANDC%:B%=Y%-O%!16:C%=S%!432:A%!4=(O%!68+B%)ANDC%:A%!12=(O%!76+B%)ANDC%:PROCfH(O%!28)
52695ELSEC%=S%!428:!A%=(!Q%-O%!40)ANDC%:A%!8=(Q%!8-O%!40)ANDC%:C%=S%!432:A%!4=(Q%!4-O%!44)ANDC%:A%!12=(Q%!12-O%!44)ANDC%
52700ENDIF:B%=!O%:C%=O%!4:IF!d0%AND(1<<29)THENPROCdB_g
52705PROCcB(Q%+136,Q%+172,16):PROCcB(A%,Q%+136,16):Q%!128=B%:Q%!132=C%:PROCrcI(Q%+128,Q%+172,2)
52710WHEN9
52715ENDCASE
52720ELSECASE!d0%AND63OF
52725WHEN8:C%=S%!428:!A%=(!Q%-O%!40)ANDC%:A%!8=(Q%!8-O%!40)ANDC%:C%=S%!432:A%!4=(Q%!4-O%!44)ANDC%:A%!12=(Q%!12-O%!44)ANDC%:IF!d0%AND1<<16THENSWAP!A%,A%!8
52730IF!d0%AND2<<16THENSWAPA%!4,A%!12
52735B%=!O%:C%=O%!4:IF!d0%AND(1<<29)THENPROCdB_g
52740PROCcB(Q%+136,Q%+172,16):PROCcB(A%,Q%+136,16):Q%!128=B%:Q%!132=C%:PROCrcI(Q%+128,Q%+172,4)
52745ENDCASE
52750ENDIF
52755ENDIF:!d0%=0:!x%=0:!y%=0:Help%=S%!328:IFU%AND1THENZ%=FNdBg("",0)
52760ENDPROC
52765DEFFNbV(A%,RETURN B%,RETURN C%,D%,E%):SYS&80D0D,,A%,B%,C%,D%,E%TOA%,,B%,C%:=A%
52770---(EVENT HANDLER)
52775DEFFNe:=TRUE
52780DEFFNq2_:=FALSE
52785DEFFNbE(A%):LOCALB$,C%,D%,E%,V%:LOCALERROR:C%=S%!84:D%=S%!560<<3:R%=A%:FORE%=C%TOC%+D%STEP8:B$=$E%:ONERRORLOCAL:RESTORE ERROR:NEXT:=V%
52790IFB$<>""THENV%=EVAL("FNe"+B$):IFV%=0THENE%=C%+D%
52795NEXT:=V%
52800---(FILES)
52805DEFFNgLn(A$):LOCALB%:IFINSTR(A$,".")>0THENB%=LENA$:WHILE(MID$(A$,B%,1)<>".")AND(B%>0):B%-=1:ENDWHILE:=RIGHT$(A$,LENA$-B%)ELSE=A$
52810DEFFNgFl(A$):LOCALB%,C%,V%:SYS&20008,17,A$TOC%,,,,B%;V%:IFV%AND1THEN=FALSE
52815CASEC%OF
52820WHEN1:C%=B%
52825WHEN2:C%=-2
52830OTHERWISE:C%=-1
52835ENDCASE:=C%
52840DEFFNldF(A$,B%):LOCALC%,V%:SYS&20008,16,A$,B%TOC%;V%:IFV%AND1THENZ%=FNsysErrBox(C%):=FALSE
52845=B%
52850DEFFNgFt(A$):LOCALB%,C%,V%:SYS&20008,17,A$TOC%,,B%;V%:IFV%AND1THEN=-2
52855IFC%<>1THEN=-2
52860IF(B%>>>20)=&FFF THEN=(B%>>>8)AND&FFF ELSE=TRUE
52865DEFFNvFt:IFS%!160=-1THEN=FNrM_g
52870IF(S%!176AND(1<<6))=0THEN=FALSE
52875LOCALA%,B%,C%,D%,V%:A%=S%!88:IFA%>0THEN
52880REPEATC%=A%!8*28:IFC%>0THEN
52885FORD%=A%+16TOA%+C%STEP28:IF!D%=!f0%THENB%=D%:S%!92=A%:D%=A%+C%
52890NEXT
52895ENDIF:A%=!A%:UNTILB%OR(A%=0):IFB%THEN!v%=B%!4:S%!264=B%!8:f$=$(S%!84+(!(S%!92+12)>>>24)):S%!180=B%!12:$en%=$(B%+16):V%=TRUE
52900ENDIF:=V%
52905---(ICONS)
52910DEFFNfi(A%,B$):SYS&80D0F,0,A%,B$TOA%:=A%
52915DEFFNfIC:SYS&80D0F,1,S%,W%TOZ%:=Z%
52920DEFFNfIL:SYS&80D0F,2,S%,W%TOZ%:=Z%
52925DEFFNfIM:SYS&80D0F,3,S%,W%TOZ%:=Z%
52930DEFFNgId(A%,B%):SYS&80D0F,4,A%,B%TOZ$:=Z$
52935DEFFNgIv(A%,B%):SYS&80D0F,5,A%,B%TOZ$:=Z$
52940DEFPROCpId(A%,B$,C$):SYS&80D0F,6,A%,B$,C$:ENDPROC
52945DEFFNpII(A%,B%,C$):SYS&80D0F,7,A%,B%,C$:=TRUE
52950DEFPROCpIB(A$):IFShowName%THEN$(S%!344)=STRING$(11," "):!J%=S%!340:J%!4=!g%:J%!8=0:J%!12=0:SYS&400CD,,J%:$(S%!344)=LEFT$(A$,11):SYS&400CD,,J%
52955ENDPROC
52960DEFPROCrI(A%,B$):SYS&80D0F,8,A%,B$:ENDPROC
52965DEFPROCrIs(A%,B%):SYS&80D0F,9,A%,B%:ENDPROC
52970DEFPROCsI(A%,B$):SYS&80D0F,11,A%,B$:ENDPROC
52975DEFPROCusI(A%,B$):SYS&80D0F,13,A%,B$:ENDPROC
52980DEFPROCusIs(A%):SYS&80D0F,14,A%,S%!116:ENDPROC
52985DEFPROCfI(A%,B$):SYS&80D0F,15,A%,B$:ENDPROC
52990DEFPROCufI(A%,B$):SYS&80D0F,16,A%,B$:ENDPROC
52995DEFPROCufIs(A%):SYS&80D0F,17,A%,S%!116:ENDPROC
53000DEFFNgIs(A%,B%):!J%=A%:J%!4=B%:SYS&400CE,,J%:IFJ%!24AND(1<<21)THEN=TRUE ELSE=FALSE
53005DEFPROCpPD(A%,D$(),B%):LOCALC%,F%:SYS&400D6,A%!12,Q%,&F000,0:C%=Q%:IF!C%>0THENF%=!C%ELSEREPEAT:C%+=4:UNTIL!C%>C%!-4+1OR!C%=-1:IF!C%<>-1THENF%=!C%
53010IFF%>0THENPROCpID(A%,D$(),B%,&F101,&101,F%)
53015ENDPROC
53020DEFPROCpFD(A%,F$(),B%):PROCpID(A%,F$(),B%,&E101,&E101,-1):ENDPROC
53025DEFPROCpID(A%,A$(),B%,G%,H%,F%):LOCALA$,C%,D%,E%:SYS&400D6,A%!12,Q%,G%,H%:C%=Q%:WHILE!C%<F%:C%+=4:ENDWHILE:E%=-1:!J%=A%!12:D%=DIM(A$()):IFD%=1THENB%=-1ELSEIFD%=2AND(B%<0ORB%>DIM(A$(),2))THENB%=0
53030IFB%>-1THEN
53035D%=DIM(A$(),2):WHILE!C%<>-1ANDE%<D%:E%+=1:J%!4=!C%:SYS&400CE,,J%:A$=A$(B%,E%):IFA$<>"|"THEN$(J%!28)=A$:J%!8=0:J%!12=0:SYS&400CD,,J%
53040C%+=4:ENDWHILE
53045ELSED%=DIM(A$(),1):WHILE!C%<>-1ANDE%<D%:E%+=1:J%!4=!C%:SYS&400CE,,J%:A$=A$(E%):IFA$<>"|"THEN$(J%!28)=A$:J%!8=0:J%!12=0:SYS&400CD,,J%
53050C%+=4:ENDWHILE
53055ENDIF:ENDPROC
53060DEFPROCrcI(A%,B%,F%):LOCALC%,D%:C%=!A%:D%=&400D1:SYS&400C4,,A%:A%!4=C%:SYS&400C2,,A%+4:IFF%AND1 IFA%!8=!B%ANDA%!12=B%!4ANDA%!16=B%!8ANDA%!20=B%!12THENENDPROC
53065CASETRUE OF
53070WHEN(F%AND2)=2:CASETRUE OF
53075WHEN!B%>A%!16ORB%!8<A%!8ORB%!4>A%!20ORB%!12<A%!12:SYSD%,C%,!B%,B%!4,B%!8,B%!12
53080WHEN!B%=A%!8ANDB%!4=A%!12
53085WHEN!B%=A%!8:IFB%!4>A%!12THENSYSD%,C%,A%!8,A%!20,A%!16,B%!12ELSESYSD%,C%,A%!8,B%!4,A%!16,A%!12
53090WHENB%!4=A%!12:IF!B%>A%!8THENSYSD%,C%,A%!16,A%!12,B%!8,A%!20ELSESYSD%,C%,!B%,A%!12,A%!8,A%!20
53095OTHERWISE:IFA%!12>B%!4THEN
53100SYSD%,C%,!B%,B%!4,B%!8,A%!12:IFA%!8>!B%THENSYSD%,C%,!B%,A%!12,A%!8,B%!12ELSESYSD%,C%,A%!16,A%!12,B%!8,A%!20
53105ELSESYSD%,C%,!B%,A%!20,B%!8,B%!12:IFA%!8>!B%THENSYSD%,C%,!B%,B%!4,A%!8,A%!20ELSESYSD%,C%,A%!16,A%!12,B%!8,A%!20
53110ENDIF
53115ENDCASE:SYSD%,C%,A%!8,A%!12,A%!16,A%!20
53120WHEN(F%AND4)=4:SYSD%,C%,A%!8,A%!12,A%!16,A%!20:CASETRUE OF
53125WHENA%!16-A%!8>B%!8-!B%ANDA%!20-A%!12>B%!12-B%!4
53130WHENA%!16-A%!8<B%!8-!B%ANDA%!20-A%!12<B%!12-B%!4:IFA%!12=B%!4THENSYSD%,C%,!B%,A%!20,B%!8,B%!12ELSESYSD%,C%,!B%,B%!4,B%!8,A%!12
53135IFA%!8=!B%THENSYSD%,C%,A%!16,A%!12,B%!8,A%!20ELSESYSD%,C%,!B%,A%!12,A%!8,A%!20
53140WHENA%!16-A%!8<B%!8-!B%:IFA%!8=!B%THENSYSD%,C%,A%!16,B%!4,B%!8,B%!12ELSESYSD%,C%,!B%,B%!4,A%!8,B%!12
53145OTHERWISE:IFA%!12=B%!4THENSYSD%,C%,!B%,A%!20,B%!8,B%!12ELSESYSD%,C%,!B%,B%!4,B%!8,A%!12
53150ENDCASE
53155OTHERWISE:SYSD%,C%,!B%,B%!4,B%!8,B%!12:SYSD%,C%,A%!8,A%!12,A%!16,A%!20
53160ENDCASE:ENDPROC
53165---(KEYS)
53170DEFPROCk
53175IFW%>0THEN
53180N%=0:CASE$rn%OF
53185WHEN"Dialog","Scroll","DataPad":IFW%!36AND2THENN%=W%!48
53190IFFNkp THENENDPROC
53195WHEN"Menu":IFS%!32>0AND(!(S%!32+36)AND2)>0THENN%=!(S%!32+48)
53200IFFNkpMenu THENENDPROC
53205WHEN"Alert","Input":IFFNkpAlert THENENDPROC
53210ENDCASE:S%!32=W%
53215ENDIF:CASETRUE OF
53220WHEN(!k%>K%)AND(K%>0):IFM%THEN$cn%=""
53225IF!k%>(K%+&800)OR!k%>(K%+&3FF)AND!k%<(K%+&600)THEN$cn%=$(!k%):!i0%=!(!k%+12)ELSE$cn%="":!i0%=0
53230CASE!i0%>>>16AND63OF
53235WHEN0:IF$cn%<>""THEN
53240IFINSTR($cn%,"_")THENZ%=EVAL("FN"+$cn%)ELSEZ%=EVAL("FN"+$cn%+"_")
53245ENDIF
53250WHEN4:
53255WHEN5:Z%=FNlist
53260ENDCASE
53265WHEN!k%=-1:IFM%=0THENSYS&400DC,!k0%
53270OTHERWISE:IFM%=0THENSYS&400DC,!k0%
53275ENDCASE:ENDPROC
53280DEFPROCeK:LOCALA%:REPEATA%=INKEY(-113):UNTILA%=0:*FX 21,0
53285ENDPROC
53290DEFFNkp:LOCALA%,B%,C%,V%:V%=TRUE:A%=!i%:CASE!k%OF
53295WHEN&18E,&19D:PROCpK1_(!k%):IFFNfix1_ THENSYS&80D0E,,A%,S%
53300WHEN&18F,&19C:PROCpK1_(!k%):IFFNfix1_ THENSYS&80D0E,1,A%,S%
53305WHEN386,387,388,389,390,391,392,393,458,459:V%=FALSE
53310WHEN13:SYS&400D6,!h%,Q%,&E000,&E000:IF!Q%=-1THEN=V%
53315B%=Q%:WHILE!B%<>A%:B%+=4:ENDWHILE:IFB%!4>-1THENC%=B%!4:IFC%<>A%THENPROCsCI(!h%,C%)
53320IFFNfIC THEN
53325IF$cn%=""THEN
53330R%=194:Z%=EVAL("FNe"+z$)
53335ELSEIFINSTR($cn%,"_")THENZ%=EVAL("FN"+$cn%)ELSEZ%=EVAL("FN"+$cn%+z$)
53340ENDIF
53345ENDIF
53350OTHERWISE:V%=FNpK_
53355ENDCASE:=V%
53360DEFFNkpAlert:LOCALV%:V%=TRUE:CASE!k%OF
53365WHEN13,27:Poll$=STR$!k0%
53370OTHERWISE:V%=FALSE
53375ENDCASE:=V%
53380DEFFNkpForm:LOCALA%,B%,C%:V%=TRUE:A%=!i%:CASE!k%OF
53385WHEN&18E,&19D:SYS&80D0E,,A%,S%
53390WHEN&18F,&19C:SYS&80D0E,1,A%,S%
53395WHEN386,387,388,389,390,391,392,393,458,459:V%=FALSE
53400WHEN13:!h0%=!h%:SYS&400D6,!h%,Q%,&E000,&E000:B%=Q%:WHILE!B%<>A%:B%+=4:ENDWHILE:IFB%!4>-1THENV%=FALSE:C%=B%!4:IFC%<>A%THENPROCsCI(!h%,C%)
53405IFV%THEN
53410IFFNfIC THEN
53415IF$cn%=""THEN
53420R%=194:Z%=EVAL("FNe"+z$)
53425ELSEIFINSTR($cn%,"_")THENV%=EVAL("FN"+$cn%)ELSEV%=EVAL("FN"+$cn%+z$)
53430ENDIF
53435ENDIF
53440ENDIF:IFV%THENPROCkW(!h0%)ELSEV%=TRUE
53445OTHERWISE:V%=TRUE
53450ENDCASE:=V%
53455DEFFNkpMenu:LOCALA%,B%,C%,V%:V%=TRUE:A%=!i%:CASE!k%OF
53460WHEN&18E,&19D:SYS&80D0E,,A%,S%
53465WHEN&18F,&19C:SYS&80D0E,1,A%,S%
53470WHEN386,387,388,389,390,391,392,393,458,459:Z%=FNdFK(!k%)
53475WHEN13:SYS&400D6,!h%,Q%,&E000,&E000:IF!Q%=-1THEN=V%
53480B%=Q%:WHILE!B%<>A%:B%+=4:ENDWHILE:IFB%!4>-1THENC%=B%!4:IFC%<>A%THENPROCsCI(!h%,C%)
53485IFFNfIC THEN
53490IF$cn%=""THEN
53495R%=194:Z%=EVAL("FNe"+z$)
53500ELSEIFINSTR($cn%,"_")THENZ%=EVAL("FN"+$cn%)ELSEZ%=EVAL("FN"+$cn%+z$)
53505ENDIF
53510ENDIF
53515OTHERWISE:V%=FNpK_
53520ENDCASE:=V%
53525DEFFNkpView:=FNpK_
53530DEFFNdFK(A%):LOCALB%,C%,D%,E%,F%,V%:V%=FALSE:B%=A%-385:IFB%>72THENB%-=64
53535IFB%>0ANDB%<11THEN
53540!Q%=!h%:SYS&400CC,,Q%:C%=Q%+108:D%=C%+(Q%!88<<5):WHILEC%<D%ANDE%<B%:F%=(!C%>>>12)AND15:IF(F%>0)AND(F%<12)THENE%+=1
53545C%+=32:ENDWHILE:IFE%=B%THEN
53550!i%=(C%-108-Q%)DIV32-1:!Q%=!h%:Q%!4=!i%:Q%!8=1<<21:Q%!12=0:SYS&400CD,,Q%:IFFNfIC THEN
53555C%=!i%:D%=!h%:IFINSTR($cn%,"_")THENV%=EVAL("FN"+$cn%)ELSEV%=EVAL("FN"+$cn%+z$)
53560!Q%=D%:Q%!4=C%:Q%!8=1<<21:Q%!12=0:SYS&600CD,,Q%
53565ENDIF
53570ENDIF
53575ENDIF:=V%
53580DEFFNkey:LOCALV%:SYS6,122TO,V%:=V%
53585---(HELP)
53590DEFFNmenuList(A$,B$,F%,G%):LOCALB%,C%,D%,E%,H%:F%=!F%:B%=!F%:LOCALERROR:ONERRORLOCAL:RESTORE ERROR:PROCcIV(A$+"_",0)
53595C%=EVAL(A$+"_%")
53600IFC%>0THEN
53605IFB%<>!C%THENC%=FNeH(C%,40*(B%-!C%))
53610ELSEC%=FNgH(68+40*B%)
53615ENDIF:D%=C%+36+(B%<<4):PROCcIV(A$+"_",C%):!C%=B%:C%!4=D%-20:C%!8=D%:C%!12=F%+12:$nn%=B$:E%=FNr(S%!56):C%!16=E%:B$=B$+"_%":B%=EVAL(B$):CASE!B%OF
53620WHEN1:PROCcB(B%,C%!4,72):C%!20=1
53625WHEN2:C%!4=C%!4-16:PROCcB(B%,C%!4,112):C%!20=2
53630OTHERWISE:C%!20=0
53635ENDCASE:B%=EVAL(A$+"_%"):C%=!B%:D%=B%!8:E%=B%!12:IFB%!20=2THEND%!36=D%!36OR256:D%!40=!E%:D%!44=-1:D%!48=E%?4:H%=E%?4:D%+=24
53640E%+=5:G%=1:A%=D%!32:F%=D%!36OR256:D%+=28:WHILEE%?4>0ANDG%<C%:!D%=0:D%!4=A%:D%!8=F%:D%!12=!E%:D%!16=-1:D%!20=E%?4:IFD%!20>H%THENH%=D%!20
53645D%+=24:E%+=5:G%+=1:ENDWHILE:D%!-24=128:!(B%!8+16)=H%<<4:E%=B%!8-4-16*G%:B$="":CASEB%!20OF
53650WHEN1:B$=$(B%!4+4):H%=!(B%!4+16):D%=4
53655WHEN2:B$=$(B%!4+20):H%=!(B%!4+32):D%=20:$(E%+4)=$(B%!4+4):E%!16=!(B%!4+16)
53660ENDCASE:B%!4=E%:!E%=G%:FORF%=E%+D%TOB%!8-16STEP16:$F%=B$:F%!12=H%:NEXT:=FNoList(A$)
53665DEFFNoList(A$):LOCALB%:B%=EVAL(A$+"_%"):IFB%>0THEN!(B%!16+20)=B%!4:=TRUE ELSE=FALSE
53670DEFFNlist:LOCALA$,B$,C%,D%,E%,F%,G$:IFINSTR($cn%,"_")THENA$=$cn%ELSEA$=$cn%+z$
53675B$=FNgId(!h%,!i%):C%=EVAL(A$+"%"):E%=-1:FORD%=0TOC%:IFEVAL(A$+"$(D%)")=B$THENE%=D%:D%=C%
53680NEXT:IFE%>-1THEN
53685IF!b%AND1THENF%=-1ELSEF%=+1
53690REPEATE%+=F%:IFE%>C%THENE%=0ELSEIFE%<0THENE%=C%
53695G$=EVAL(A$+"$(E%)"):UNTILG$<>"":!l%=E%:IFEVAL("FN"+A$) IF!l%>TRUE THENG$=EVAL(A$+"$(!l%)"):IFG$<>B$THENZ%=FNpII(!h%,!i%,G$)
53700ELSE!l%=-1
53705ENDIF:=TRUE
53710DEFFNaLL(A%,B%):LOCALC%:C%=FNgH(8):IFC%>0THEN!C%=!A%:C%!4=B%:!A%=C%:=TRUE
53715=FALSE
53720DEFFNdLL(A%,B%):LOCALC%,V%:C%=!A%:WHILEC%<>-1ANDNOTV%:IFC%!4=B%THEN!A%=!C%:PROCfH(C%):C%=-1:V%=TRUE ELSEA%=C%:C%=!C%
53725ENDWHILE:=V%
53730DEFFNrLL(A%,B%,D%):LOCALC%,V%:C%=!A%:WHILEC%<>-1ANDNOTV%:IFC%!4=B%THENC%!4=D%:V%=TRUE ELSEC%=!C%
53735ENDWHILE:IFV%=0THEN=FNaLL(A%,D%)
53740=V%
53745DEFFNsLL(RETURN A%):IFA%>0THENA%=!A%:IFA%>0THEN=A%!4ELSE=FALSE
53750=FALSE
53755---(MEMORY)
53760DEFFNalign(A%):=(A%+3)ANDNOT3
53765DEFPROCcB(A%,B%,C%):C%=(C%+3)>>2:CALL!(S%!164):PROCmb2_:ENDPROC
53770DEFPROCmBl(A%,B%,C%):C%=(C%+3)>>2:CALL!(S%!164+4):ENDPROC
53775DEFPROCdBl(A%,B%,C%):B%+=A%:C%=(C%+3)>>2:CALL!(S%!164+4):ENDPROC
53780DEFPROCsB(A%,B%,C%):CALL!(S%!164+8):ENDPROC
53785DEFPROCsBw(A%,B%,C%):CALL!(S%!164+40):ENDPROC
53790DEFPROCwB(A%,B%,C%):C%=(C%+3)>>2:CALL!(S%!164+12):ENDPROC
53795DEFPROCaM(A%,B%,C%,D%):CALL!(S%!164+24):ENDPROC
53800DEFFNrC(A%,B%,C%):=USR!(S%!164+28)
53805DEFFNgH(B%):IFB%<1THEN=FALSE
53810LOCALA%,V%:SYS&2001D,2,S%!44,,B%TO,,A%;V%:IFV%AND1ELSE=A%
53815IFFNxHp(B%)THENSYS&2001D,2,S%!44,,B%TO,,A%;V%:IFV%AND1ELSE=A%
53820=FALSE
53825DEFFNgHs(A%,B%):LOCALV%:V%=FNgH(B%):IFV%>0THENPROCaWSm(A%,V%)
53830=V%
53835DEFPROCfH(A%):IFA%<1THENENDPROC
53840LOCALB%,V%:SYS&2001D,3,S%!44,A%TOB%;V%:IFV%AND1THENZ%=FNsysErrBox(B%):ENDPROC
53845SYS29,1,S%!44TO,,B%:REM IFB%>S%!292THENPROCrH
53850ENDPROC
53855DEFPROCrH:LOCALA%,B%,C%,V%:SYS29,1,S%!44TO,,,A%:REPEAT:SYS&2001D,5,S%!44,,-S%!292TO;V%:UNTILV%AND1:SYS29,1,S%!44TO,,,B%:A%-=B%:B%=A%DIVS%!292:SYS29,5,S%!44,,A%MODS%!292:IFB%>0THENSYS&400EC,-1,-1TOC%:SYS&400EC,C%-S%!292*B%,-1
53860ENDPROC
53865DEFFNeH(C%,B%):LOCALA%,V%:SYS&2001D,4,S%!44,C%,B%TO,,A%;V%:IFV%AND1ELSE=A%
53870SYS29,6,S%!44,C%TO,,,A%:A%+=B%:IFFNxHp(A%)THENSYS29,4,S%!44,C%,B%TO,,C%:=C%
53875=FALSE
53880DEFFNeHs(A%,C%,B%):LOCALV%:IFC%=0THEN=FNgHs(A%,B%)ELSEIFB%=0THENPROCfH(C%):Z%=FNdLL(!w%+196+(A%<<8),C%)ELSESYS29,6,S%!44,C%TO,,,V%:V%=FNeH(C%,B%-V%):IFV%>0THENZ%=FNrLL(!w%+196+(A%<<8),C%,V%)
53885=V%
53890DEFFNxHp(B%):LOCALA%,C%,V%:SYS&400EC,-1,-1TOC%:SYS&600EC,C%+S%!292*(B%DIVS%!292+1),-1TOA%;V%:IFV%AND1ELSESYS29,5,S%!44,,A%-C%:=TRUE
53895=FALSE
53900---(MENUS)
53905DEFFNm:=TRUE
53910DEFFNsm:=TRUE
53915DEFFNsma:=TRUE
53920DEFPROCdM(A%):LOCALB$,V%:V%=FALSE:B$=FNdm(A%):IFB$<>""THEN
53925CASE!j%AND3OF
53930WHEN1:$cn%=B$:CASEB$OF
53935WHEN"","noName","No_Name":PROCuM
53940WHEN"notYetAvail":Z%=FNnotYetAvail_
53945OTHERWISE:V%=TRUE:IFS%!216=0THENV%=FNa_
53950IFV%THEN
53955CASE!j%>>>16AND63OF
53960WHEN0:IF$cn%<>""THEN
53965IFINSTR($cn%,"_")THENZ%=EVAL("FN"+$cn%)ELSEZ%=EVAL("FN"+$cn%+z$(!d%-1))
53970ENDIF
53975WHEN4:
53980ENDCASE:PROCuM
53985ENDIF:V%=FALSE
53990ENDCASE
53995WHEN3:$wn%=B$:R%=258:CASE$wn%OF
54000OTHERWISE:V%=FNe_
54005ENDCASE:IFV%THENZ%=FNwindow($wn%)
54010V%=FALSE
54015WHEN0:$mn%=B$:V%=FNfM(B$)
54020WHEN2:$wn%=B$:V%=FNfW(B$)
54025ENDCASE:IFV%THEN
54030$an%=B$:B$=z$:z$="_":CASE$an%OF
54035OTHERWISE:V%=FNsma_
54040ENDCASE:IFV% IFS%!140>0THENZ%=FNwS(S%!140):IFz$<>"_"THENV%=EVAL("FNsma"+z$)
54045IFV% IFB$<>"_"ANDz$<>B$THENV%=EVAL("FNsma"+B$)
54050PROCuM
54055ENDIF
54060ENDIF:ENDPROC
54065DEFPROCdM1(A%):LOCALB$,C%,V%:V%=TRUE:B$=FNdm(A%):IFB$<>""THEN
54070CASE!j%AND3OF
54075WHEN2:PROCpW(B$,1)
54080WHEN0:$mn%=B$:!m%=FNfM(B$):IFEVAL("FNsm"+z$)THENM$(!d%)=$mn%:M%(!d%)=!m%:z$(!d%)=z$:!m0%=FNaR(!m%):I%(!d%-1)!4=!m0%:SYS&400E8,,!m0%,!x0%,!y0%
54085ENDCASE
54090ENDIF:ENDPROC
54095DEFFNdm(A%):LOCALB%,C%:B%=A%:WHILE!B%<>-1:B%+=4:ENDWHILE:I%=B%!-4:!d%=(B%-A%)>>>2:B%=M%(!d%-1):C%=B%+4+(I%<<4):!j%=C%!12:I%(!d%-1)=FNaR(B%)+28+24*I%:=$C%
54100DEFFNiWM:LOCALA$,V%:A$=FNtoLC($mn%):IFA$=""ORA$="nomenu"ORA$="noname"ORA$="no_menu"ORA$="no_name"THEN
54105W%!40=-1:W%!188=-1:V%=FALSE
54110ELSEW%!40=FNfM($mn%):IFW%!40>0THENW%!188=!g0%:V%=TRUE ELSEW%!40=-1:W%!188=-1:V%=FALSE
54115ENDIF:=V%
54120DEFFNoM:LOCALA%,B%:A%=TRUE:$mn%="":S%!140=!h%:S%!144=!i%:IFM%THEN=FALSE
54125IFW%>0THEN
54130CASETRUE OF
54135WHEN!i%>-1:A%=FNfIM:IFA%>0THENS%!40=W%!188:A%=FNfM($mn%)
54140IFA%>0THEN
54145LOCALC%,D%:!J%=!h%:J%!4=!i%:SYS&400CE,,J%:IF(J%!24AND&183)=256THEN
54150C%=W%!216:IFC%>0THEN
54155FORB%=C%+148TOC%+(!C%<<7)STEP128:IF(!B%>>>24)=!i%THEND%=!B%:B%=C%+(!C%<<7)
54160NEXT:B%=0:IF(D%AND255)=0THENA%=0
54165ENDIF
54170ENDIF
54175ELSEA%=W%!40:$mn%=$(W%+124):S%!40=W%!188:S%!144=-1
54180ENDIF
54185WHEN!h%>-1:A%=W%!40:$mn%=$(W%+124):S%!40=W%!188:S%!144=-1
54190ENDCASE:S%!32=W%:IF$rn%<>"Tools"THENN%=W%!48ELSEIFW%!104>0THENN%=!(W%!104+48)
54195ELSEIF!h%=-2THENA%=S%!72:$mn%=$(S%+96):S%!32=0:S%!40=S%!56:B%=1
54200ENDIF:CASEA%OF
54205WHEN0,-1:S%!140=-1:S%!144=-1
54210OTHERWISE:!m%=A%:S%!172=0:!d%=0:IFEVAL("FNm"+z$)THENM$(!d%)=$mn%:M%(!d%)=!m%:z$(!d%)=z$:!m0%=FNaR(!m%):MOUSE!x0%,!y0%,Z%:!x0%-=64:!y0%=(S%!108+96)*B%-!y0%*(B%=0):S%!140=!h%:PROCm_(!m0%):ELSES%!140=-1:S%!144=-1
54215ENDCASE:=A%
54220DEFPROCm_(A_%):LOCAL Z_%:IF$mn%="FontList":A_%+=28+maxfont_%*24:Z_%=A_%?0:A_%?0=%10000000
54225IF$mn%="InvL":A_%+=28+maxinvl_%*24:Z_%=A_%?0:A_%?0=%10000000
54230IF$mn%="HeadListS"OR$mn%="HeadListP":A_%+=28+11*24:A_%?0=%10
54235SYS&400D4,,!m0%,!x0%,!y0%:IF$mn%="FontList":A_%?0=Z_%
54240IF$mn%="InvL":A_%?0=Z_%
54245ENDPROC
54250DEFPROCovrM(A$):$mn%=A$:!m%=FNfM(A$):ENDPROC
54255DEFPROCuM:IFNOTM%AND(!b0%AND1)THEN
54260IFP%THENPROCrP
54265!m0%=FNaR(M%(0)):PROCm_(!m0%)
54270ENDIF:ENDPROC
54275DEFFNfMI(A$,B%):LOCALC%:C%=FNfM(A$):SYS&80D06,1,,B%,C%TOC%:=C%
54280DEFFNfMH(A$,B%):LOCALC%:C%=FNfM(A$):SYS&80D06,3,,B%,C%TOC%:=C%
54285DEFFNgMIs(A$,B%):LOCALC%:C%=FNfMI(A$,B%):SYS&80D06,4,,,C%TOC%:=C%
54290DEFFNgMIt(A$,B%):LOCALC%:C%=FNfMI(A$,B%):SYS&80D06,5,,,C%TOC%:=C%
54295DEFPROCcMI(A$,B%,D%):LOCALC%:C%=FNfMI(A$,B%):IFC%>0AND(C%!8AND64)=0THENC%!8=C%!8AND&FFFFFF:C%!8=C%!8ORD%<<24
54300ENDPROC
54305DEFPROCsMI(A$,B%):LOCALC%:C%=FNfMI(A$,B%):SYS&80D06,7,,,C%:ENDPROC
54310DEFPROCusMI(A$,B%):LOCALC%:C%=FNfMI(A$,B%):SYS&80D06,8,,,C%:ENDPROC
54315DEFPROCsMn(A$):LOCALC%:C%=FNfM(A$):SYS&80D06,9,,,C%:ENDPROC
54320DEFPROCusMn(A$):LOCALC%:C%=FNfM(A$):SYS&80D06,10,,,C%:ENDPROC
54325DEFPROCtMI(A$,B%):LOCALC%:C%=FNfMI(A$,B%):SYS&80D06,11,,,C%:ENDPROC
54330DEFPROCtMIx(A$,B%):LOCALC%:C%=FNfM(A$):SYS&80D06,12,,B%,C%:ENDPROC
54335DEFPROCutMI(A$,B%):LOCALC%:C%=FNfMI(A$,B%):SYS&80D06,13,,,C%:ENDPROC
54340DEFPROCpMI(A$,B%,D$):LOCALC%:C%=FNfMI(A$,B%):IFC%>0THEN
54345IFC%!8AND256THEN$(C%!12)=LEFT$(D$,C%!20-1)ELSE$(C%+12)=LEFT$(D$,11)
54350ENDIF:ENDPROC
54355DEFFNgMI(A$,B%):LOCALC%:C%=FNfMI(A$,B%):SYS&80D06,15,,,C%TOC%:IFC%>0THEN=$C%
54360DEFPROCpMT(A$,B$):LOCALC%:C%=FNfM(A$):SYS&80D06,16,,B$,C%:ENDPROC
54365DEFPROCbgMI(A$,B%,D%):LOCALC%:C%=FNfMI(A$,B%):SYS&80D06,17,,,C%,D%:ENDPROC
54370DEFPROCfgMI(A$,B%,D%):LOCALC%:C%=FNfMI(A$,B%):SYS&80D06,18,,,C%,D%:ENDPROC
54375DEFPROChMI(A$,B%):LOCALC%:C%=FNfMI(A$,B%):SYS&80D06,19,,,C%:ENDPROC
54380DEFPROCuhMI(A$,B%):LOCALC%:C%=FNfMI(A$,B%):SYS&80D06,20,,,C%:ENDPROC
54385DEFFNgMIh(A$,B%):LOCALC%:C%=FNfMI(A$,B%):SYS&80D06,21,,,C%TOC%:=C%
54390---(MESSAGES)
54395DEFPROCrM:CASE!a0%ANDNOT63OF
54400WHEN&500:CASE!a0%AND63OF
54405WHEN2:IFHelp%THEN
54410!h%=Q%!32:W%=FNwS(!h%):IFW%>0THEN$wn%=$W%ELSE$wn%=""
54415!i%=Q%!36:Z$=LEFT$(EVAL("FNh"+z$),235):IFZ$<>""THEN!Q%=256:Q%!12=!r0%:Q%!16=&503:$(Q%+20)=Z$:?(Q%+20+LENZ$)=0:SYS&400E7,17,Q%,!t0%:!r%=Q%!8
54420ENDIF
54425ENDCASE
54430WHEN&80D00:!c%=!a0%AND63:CASE!a0%OF
54435OTHERWISE:Z%=FNrM_
54440ENDCASE
54445WHEN&400C0:CASE!a0%AND63OF
54450WHEN0:!x0%=Q%!24:!y0%=Q%!28:PROCdM1(Q%+32)
54455!h%=Q%!32:W%=FNwS(!h%):IFW%>0THEN$wn%=$W%ELSE$wn%=""
54460WHEN1:R%=259
54465OTHERWISE:Z%=FNrM_
54470ENDCASE
54475WHEN0:CASE!a0%OF
54480WHEN0:PROCfin:END
54485WHEN1,2,3,4,5:!f0%=Q%!40:IFFNvFt
54490WHEN6,7:
54495WHEN8:IFS%!192=0THENS%!192=2
54500Z%=FNMyquit_
54505WHEN9:IFFNrM_ IFS%!176AND(1<<7)THENPROCcP_g
54510OTHERWISE:Z%=FNrM_
54515ENDCASE
54520WHEN&80140:CASE!a0%AND63OF
54525WHEN0,1,4,5:!f0%=Q%!40:IFFNvFt IFFNrM_ Z%=FNptrM
54530OTHERWISE:Z%=FNrM_
54535ENDCASE
54540OTHERWISE:Z%=FNrM_
54545ENDCASE:ENDPROC
54550DEFPROCrB:CASE!a0%ANDNOT63OF
54555WHEN0:CASE!a0%OF
54560WHEN1,2,3,4,5,6,7:IFFNrB_ IF(S%!176AND(1<<6))>0THENZ%=FNdtB
54565OTHERWISE:Z%=FNrB_
54570ENDCASE
54575WHEN&80140:CASE!a0%AND63OF
54580WHEN0,1,2,5,6:IFFNrB_ THEN
54585CASETRUE OF
54590WHENS%!160=-1:Z%=FNrB_g
54595WHEN(S%!176AND(1<<6))>0:Z%=FNdtB
54600OTHERWISE:Z%=FNrB_
54605ENDCASE
54610ENDIF
54615OTHERWISE:Z%=FNrB_
54620ENDCASE
54625WHEN&80D00:!c%=!a0%AND63:CASE!a0%OF
54630OTHERWISE:Z%=FNrB_
54635ENDCASE
54640OTHERWISE:Z%=FNrB_
54645ENDCASE:ENDPROC
54650---(MISC)
54655DEFPROCgMi:S%!196=FNrMV(-1,4):S%!200=FNrMV(-1,5):S%!440=1<<S%!196:S%!444=1<<S%!200:S%!204=(FNrMV(-1,11)+1)<<S%!196:S%!208=(FNrMV(-1,12)+1)<<S%!200:S%!428=NOT(S%!440-1):S%!432=NOT(S%!444-1):ENDPROC
54660DEFFNgB1(A%):LOCALB%,C%:FORC%=0TO31:B%+=A%AND1:A%=A%>>>1:NEXT:=B%
54665DEFPROCsPO(A%):CASEA%OF
54670WHEN1:S%!4=1:S%!12=0
54675WHEN2:S%!4=0:S%!12=0
54680OTHERWISE:S%!4=0:SYS66TOS%!12:S%!156=A%
54685ENDCASE:ENDPROC
54690DEFFNh:=""
54695DEFFN_:IFS%!176AND(1<<7)THEN=TRUE ELSE=FALSE
54700DEFFNtL(A%):LOCALB$,C%:C%=SGNA%:A%=ABSA%:B$=STR$(A%DIV100)+"."+RIGHT$("0"+STR$(A%MOD100),2):IFC%>=0THEN=B$ELSE="-"+B$
54705DEFFNfL(A$):LOCALB:B=100*VALA$:=SGNB*INT(ABSB+0.5)
54710DEFFNaL(A%,B%):LOCALC:C=A%+B%:IFC>&7FFFFFF0ORC<&80000010THENPROCbeep:=-1ELSE=A%+B%
54715DEFFNmL(A%,B%):LOCALC:C=A%*B%:IFC>&FFFFFF0THENPROCbeep:=-1ELSE=A%*B%
54720DEFFNdL(A%,B%):IFB%=0THENPROCbeep:=-1ELSE=A%DIVB%
54725DEFFNa_:=TRUE
54730DEFFNdTh(A%):=STR$~A%
54735DEFFNhTd(A$):LOCALB%:SYS33,16,A$TO,,B%:=B%
54740---(POINTERS)
54745DEFPROChgOn:SYS&406C0:ENDPROC
54750DEFPROChgOff:SYS&406C1:ENDPROC
54755DEFPROChgSmash:SYS&406C2:ENDPROC
54760DEFPROChgPC(A%):SYS&406C4,A%:ENDPROC
54765DEFPROChgLED(A%):SYS&406C5,A%AND3:ENDPROC
54770DEFPROCiP:IF$pn%=""OR$pn%="Standard"OR$pn%="ptr_default"THENW%!32=-1:ENDPROC
54775LOCALA%:$nn%=$pn%:A%=FNfP:IFA%>0THENW%!32=A%!20
54780ENDPROC
54785DEFPROCpP(A$,B%):IFB%>0THENLOCALC%:C%=W%:W%=FNwS(B%):$pn%=A$:PROCiP:PROCsP(W%!32):W%=C%
54790ENDPROC
54795DEFPROCsP(A%):IFA%>0THENSYS&400E9,36,,$A%,A%!16,A%!20,A%!24:P%=A%:IFA%!16AND32THENSYS7,12,S%+300:SYS7,12,S%+305:SYS7,12,S%+310
54800ENDPROC
54805DEFPROCrP:SYS&400D8,1,-1:SYS7,12,S%+300:SYS7,12,S%+305:SYS7,12,S%+310:P%=0:ENDPROC
54810DEFFNmouse:LOCALA%,V%:SYS6,121,137TO,A%:A%=-4*(A%=255):SYS6,121,139TO,V%:IFV%=255THENV%=1ORA%ELSEV%=A%
54815=V%
54820---(QUIT)
54825DEFPROCfin:Z%=FNbE(260):PROChgSmash:PROCrP:SYS&400DD,!t%,&AB534154:SYS17:ENDPROC
54830---(RESOURCES)
54835DEFFNaR(A%):=A%+4+(!A%<<4)
54840DEFFNfM(A$):LOCALA%,B%,C%,D%:A%=S%!424:IF$A%=A$THENz$=$(A%+12):!f%=A%!28:=A%!24
54845$nn%=A$:C%=FNgUH:IFC%>-1THEN
54850A%=S%!56:REPEATD%=A%!12>>>24:B%=A%:A%=A%!28:UNTILD%=C%ORA%=0:IFD%=C%THEND%=FNr(B%)ELSED%=0
54855ELSEA%=S%!40:IFA%>0THEND%=FNr(A%)
54860IFD%<1THEN
54865A%=S%!56:REPEAT:IFA%<>S%!40THEND%=FNr(A%)
54870A%=A%!28:UNTILD%ORA%=0
54875ENDIF:IFD%>0THENz$=$(S%!84+(!f%>>>24))
54880ENDIF:IFD%>0THENA%=S%!424:$A%=A$:$(A%+12)=z$:A%!24=D%!20:A%!28=!f%:=D%!20ELSE=FALSE
54885DEFFNfP:LOCALA%,B%,C%,D%:A%=S%!68:IFA%>0THEN
54890C%=FNgUH:IFC%>-1THEN
54895REPEATD%=A%!12>>>24:B%=A%:A%=A%!28:UNTILD%=C%ORA%=0:IFD%=C%THEND%=FNr(A%)ELSED%=0
54900ELSEREPEATD%=FNr(A%):A%=A%!28:UNTILD%ORA%=0:IFD%>0THENz$=$(S%!84+(!f%>>>24))
54905ENDIF
54910ENDIF:=D%
54915DEFFNfW(A$):LOCALA%,B%,C%,D%:$nn%=A$:A%=S%!64:C%=FNgUH:IFC%>-1THEN
54920REPEATD%=A%!12>>>24:B%=A%:A%=A%!28:UNTILD%=C%ORA%=0:IFD%=C%THEND%=FNr(B%)ELSED%=0
54925ELSEREPEATD%=FNr(A%):A%=A%!28:UNTILD%ORA%=0:IFD%>0THENz$=$(S%!84+(!f%>>>24))
54930ENDIF:IFD%>0THEN$rn%=T$(!f%>>>16AND31)
54935=D%
54940DEFFNfR:LOCALA%,A$,B%,C%,D%:A%=S%!52:IFA%>0THEN
54945A$=$rn%:C%=FNgUH:IFC%>-1THEN
54950REPEATD%=A%!12>>>24:IF$A%=A$ANDD%=C%THENB%=A%
54955A%=A%!28:UNTILB%OR(A%=0):IFB%THEND%=FNr(B%)ELSED%=0
54960ELSEREPEAT:IF$A%=A$THEND%=FNr(A%)
54965A%=A%!28:UNTILD%ORA%=0:IFD%>0THENz$=$(S%!84+(!f%>>>24))
54970ENDIF
54975ENDIF:=D%
54980DEFFNrR(A$,B$):LOCALA%:A%=FNfM(B$):IFA%>0THENPROCcIV(B$+"_%",A%)
54985=A%
54990DEFFNr(A%):LOCALB%,C%,D%,E$:C%=A%+32+A%!16*24:E$=$nn%:FORB%=A%+32TOC%-24STEP24:IF$B%=E$THEND%=B%:B%=C%:!f%=D%!12
54995NEXT:IFD%=0THEN
55000E$+=z$:FORB%=A%+32TOC%-24STEP24:IF$B%=E$THEND%=B%:B%=C%:!f%=D%!12
55005NEXT
55010ENDIF:=D%
55015DEFFNgUH:LOCALA%,B$,C%,D%:A%=INSTR($nn%,"_"):IFA%=0THEN=TRUE
55020C%=TRUE:B$=MID$($nn%,A%):$nn%=LEFT$($nn%,A%-1):A%=S%!84:B%=A%+(S%!560<<3):FORD%=A%TOB%STEP8:IF$D%=B$THENC%=D%-A%:D%=B%:z$=B$
55025NEXT
55030=C%
55035DEFFNgCR(B$):LOCALA%:$rn%="Code":$nn%=B$:A%=FNfR:IFA%>0THEN=A%!20ELSE=0
55040DEFFNgUR(B$):LOCALA%:$rn%="Custom":$nn%=B$:A%=FNfR:IFA%>0THEN=A%!20ELSE=0
55045---(SLOTS)
55050DEFFNfWS(A$):LOCALB%,C%,D%:IFA$<>""THEN
55055C%=!w%+&F00:FORD%=!w%TOC%STEP256:IFD%!12>TRUE IF$D%=A$THENB%=D%:D%=C%
55060NEXT
55065ENDIF:=B%
55070DEFFNoWS(A$,B%):LOCALC%,D%,E%:IFA$<>""THEN
55075E%=TRUE:C%=!w%+&F00:FORD%=!w%TOC%STEP256:IFD%!12>TRUE IF$D%=A$ IFD%!48<>B%THENE%=D%:D%=C%
55080NEXT
55085ENDIF:=E%
55090DEFFNwS(A%):SYS&80D0B,0,A%,,,S%TOA%,z$:=A%
55095DEFFNgWS(A%):=!w%+(A%<<8)
55100DEFPROCaWSm(A%,B%):Z%=FNaLL(!w%+196+(A%<<8),B%):ENDPROC
55105DEFPROCdWSm(A%,B%):Z%=FNdLL(!w%+196+(A%<<8),B%):ENDPROC
55110DEFPROCrWS(A%):LOCALB%,C%,D%:A%=FNwS(A%):IFA%>0THENB%=A%!196:PROCsBw(A%,256,0):A%!12=-255:A%!48=(A%-!w%)DIV256:D%=S%!44:WHILEB%<>-1:SYS29,3,D%,B%!4:C%=B%:B%=!B%:SYS29,3,D%,C%:ENDWHILE:A%!196=-1:SYS29,1,D%TO,,B%:REM IFB%>S%!292THENPROCrH
55115ENDPROC
55120---(SOUND)
55125DEFPROCsound(D%):CASED%MOD16OF
55130WHEN0
55135WHEN1:PROCbeep
55140WHEN2:SOUND1,-5,200,3
55145WHEN3:SOUND1,-10,75,5
55150WHEN4:SOUND1,-5,200,7
55155WHEN5:PROCbeep:PROCpause(30):PROCbeep
55160WHEN6:SOUND1,-5,200,3:PROCpause(30):SOUND1,-5,200,3
55165WHEN7:SOUND1,-10,75,5:PROCpause(30):SOUND1,-10,75,5
55170OTHERWISE:PROCsound_(D%)
55175ENDCASE
55180ENDPROC
55185DEFPROCbeep:SOUND1,-10,100,5:ENDPROC
55190DEFPROCsound_(D%):ENDPROC
55195---(STRINGS)
55200DEFFNpadR(A$,B%):B%=ABSB%AND255:=LEFT$(FNtrmL(A$)+STRING$(B%," "),B%)
55205DEFFNpadL(A$,B%):B%=ABSB%AND255:=RIGHT$(STRING$(B%," ")+FNtrmR(A$),B%)
55210DEFFNtrmL(A$):WHILELEFT$(A$,1)=" ":A$=MID$(A$,2):ENDWHILE:=A$
55215DEFFNtrmR(A$):WHILERIGHT$(A$,1)=" ":A$=LEFT$(A$):ENDWHILE:=A$
55220DEFFNtrmS(A$,B%):A$=FNtrmL(A$):A$=FNtrmR(A$):IFB%>0THEN=LEFT$(A$,B%)ELSE=A$
55225DEFFNtrunc(A$,B%):IFLENA$>B%THENA$="..."+RIGHT$(A$,B%)
55230=A$
55235DEFFNtoLC(A$):LOCALB%,C$:FORB%=1TOLEN(A$):C$=MID$(A$,B%,1):IFC$>"@"ANDC$<"["THENMID$(A$,B%,1)=CHR$(ASCC$+32)
55240NEXT:=A$
55245DEFFNtoUC(A$):LOCALB%,C$:FORB%=1TOLEN(A$):C$=MID$(A$,B%,1):IFC$>"`"ANDC$<"{"THENMID$(A$,B%,1)=CHR$(ASCC$-32)
55250NEXT:=A$
55255DEFPROCpCR(A%):WHILE?A%>31:A%+=1:ENDWHILE:?A%=13:ENDPROC
55260DEFPROCpZ(A%):WHILE?A%>31:A%+=1:ENDWHILE:?A%=0:ENDPROC
55265DEFFNpS(RETURN A$,D$):LOCALV$,C%:C%=INSTR(A$,D$):IFC%=0THENV$=A$:A$=""ELSEV$=LEFT$(A$,C%-1):A$=MID$(A$,C%+1)
55270=V$
55275DEFFNpV(A$,B$):LOCALC$:B$=FNtoUC(LEFT$(B$,1)):C$="":WHILEA$<>""ANDFNtoUC(LEFT$(C$,1))<>B$:C$=FNpS(A$,","):ENDWHILE:IFLEFT$(C$,1)=B$THEN=MID$(C$,2)ELSE=""
55280DEFFNaV(A$,B$):LOCALC$,D$,E$,F%:D$=FNtoUC(LEFT$(B$,1)):E$="":WHILEA$<>"":C$=FNpS(A$,","):IFFNtoUC(LEFT$(C$,1))=D$THENC$=B$:F%=TRUE
55285E$+=C$+",":ENDWHILE:IFNOTF%THENE$+=B$
55290IFRIGHT$(E$)=","THENE$=LEFT$(E$)
55295=E$
55300DEFFNdV(A$,B$):LOCALC$,D$,E$:D$=FNtoUC(LEFT$(B$,1)):E$="":WHILEA$<>"":C$=FNpS(A$,","):IFFNtoUC(LEFT$(C$,1))=D$THENC$="":IFRIGHT$(E$)=","THENE$=LEFT$(E$)
55305E$+=C$+",":ENDWHILE:IFRIGHT$(E$)=","THENE$=LEFT$(E$)
55310=E$
55315DEFFNgSw(A$,B%):LOCALC%:C%=&70000000:SYS&4008A,B%:SYS&40085,,A$,C%,C%,-1,C%TO,,C%:SYS&40088,,C%TO,C%:=C%
55320DEFFNdGST(A$):LOCALB%,C%:B%=S%!120:SYS39,A$,B%,255TO,,C%:B%?C%=13:=$B%
55325DEFFNcdS(A$):LOCALC%,D%:Z%=RND(-1*ASCA$):FORC%=2TOLEN(A$):D%=ASC(MID$(A$,C%,1))EOR(128+RND(127)):MID$(A$,C%,1)=CHR$D%:NEXT:=A$
55330DEFFNval(A$):LOCALB%:SYS&20021,,A$TO,,B%:=B%
55335DEFFNtoS(A%):LOCALB$:B$=STRING$(8,"0"):SYS212,A%,B$,9TOB$:=B$
55340DEFFNtoI(A$):LOCALB%:SYS33,16,A$TO,,B%:=B%
55345---(TIME)
55350DEFPROCpause(A%):A%+=TIME:REPEATUNTILA%<=TIME:ENDPROC
55355DEFPROCwait:SOUND1,-10,100,2:REPEATUNTILINKEY(10)=-1:REPEATUNTILGET=32:ENDPROC
55360DEFFNdate:LOCALA$:A$=TIME$:=FNpS(A$,".")
55365DEFFNtime:LOCALA$:A$=TIME$:Z$=FNpS(A$,"."):=A$
55370---(VARIABLES)
55375DEFFNrMV(A%,B%):SYS53,A%,B%TO,,A%:=A%
55380DEFFNrVV(A%):!O%=A%:O%!4=-1:SYS49,O%,O%:=!O%
55385DEFFNgSV(A$):LOCALB$:B$=STRING$(248," "):SYS&20023,A$,B$,248TO,B$:=FNtrmS(B$,-1)
55390DEFFNxSV(A$):LOCALB%:SYS&20023,A$,,-1,,3TO,,B%:=B%
55395DEFPROCcIV(A$,B%):LOCALA%:A$+="%":A%=S%!120:$A%=A$:CALL!(S%!164+16):ENDPROC
55400---(WINDOWS)
55405DEFFNw:=TRUE
55410DEFFNwindow(A$):LOCALA%,B%,B$,C%,C$,D%,E%,F%,G%,H%,V%:V%=FALSE:LOCALERROR:ONERRORLOCAL:RESTORE ERROR:S%!152=2:PROCerror:=FALSE
55415$wn%=A$:C%=FNfW(A$):IFC%=0THEN=FALSE
55420B$=$rn%:IFB$="Tools"ANDS%!140=-1THENS%!140=W%!12:S%!144=!i%
55425CASETRUE OF
55430WHENS%!336>0:A%=FNwS(S%!336)
55435WHEN(!f%>>>12AND1)=0:A%=FNfWS(A$)
55440OTHERWISE:A%=0
55445ENDCASE:IFA%>0THENV%=TRUE:W%=A%:C$=$(S%!84+W%!16):!h%=W%!12:N%=W%!48
55450IFNOTV%THEN
55455E%=!w%+&E00:A%=!w%+256:WHILEA%!12<>-255ANDA%<E%:A%+=256:ENDWHILE:IFA%!12<>-255THENA%=0
55460IFA%=0THENPROCmoan("No more windows available. Please close some to continue."):=FALSE
55465W%=A%:W%!12=TRUE:N%=W%!48:$W%=$wn%:!a%=C%!20:W%!16=!f%>>>24:C$=$(S%!84+W%!16):$(W%+20)=$rn%:W%!36=!f%:W%!44=!a%:$pn%=$(!a%+20):PROCiP:$mn%=$(!a%+4):W%!60=!(!a%+44):W%!64=!(S%!60+(W%!16>>>1)):W%!80=32:W%!84=320:W%!88=32:W%!92=320
55470IF$mn%="Default"THEN$mn%=$wn%
55475W%!56=!(!a%+36):W%!52=0:IFW%!56>0THENW%!52=FNgHs(W%!48,W%!56):IFW%!52>0THENPROCsBw(W%!52,W%!56,0)
55480R%=195:Z%=EVAL("FNe"+C$):$(W%+124)=$mn%:Z%=FNiWM:SYS66TOA%:W%!136=A%:$(W%+200)="":W%!172=!(!a%+64):IFW%!172>0THENW%!180=!(W%!172):W%!172+=4ELSEW%!176=0:W%!180=0
55485G%=C%!16-92-(!(!a%)<<4):C%=FNaR(!a%):G%-=C%!84<<5:IFG%<0THEN=FALSE
55490PROCcB(C%,Q%+4,88+(C%!84<<5)):IF(G%+W%!180)>0THEN
55495H%=FNgHs(W%!48,G%+W%!180):IFH%=0THEN=FALSE
55500W%!144=H%:W%!148=G%:W%!176=H%+G%:IFG%>0ANDH%>0THENPROCcB(C%+88+(C%!84<<5),H%,G%)
55505IFH%>0THEN
55510IFQ%!60AND256THENQ%!76+=H%:W%!140=Q%!76
55515FORF%=Q%+108TOQ%+76+(C%!84<<5)STEP32:IF!F%AND256THENF%!4+=H%:IFF%!8>0THENF%!8+=H%
55520NEXT:IFW%!172>0THENPROCcB(W%!172,W%!176,W%!180):W%!172+=W%!180:FORF%=W%!176TOW%!176+W%!180-4STEP4:!F%+=H%:NEXT
55525ENDIF
55530ELSEW%!144=0:W%!148=0:W%!176=0
55535ENDIF:IFW%!36AND2THENW%!220=0ELSEIF!(S%!32+36)AND2THENW%!220=!(S%!32+48)ELSEW%!220=-1
55540$rn%=$(W%+20):E%=0:CASE$rn%OF
55545WHEN"Dialog","Scroll","Tools","View","DataPad":FORB%=1TO14:D%=FNgWS(B%):IFD%!12>TRUE THENIF$D%=$wn%THENIFD%!136>=E%THENE%=D%!136:F%=D%
55550NEXT:IFE%>0THENB%=F%!108-48:IFB%-Q%!16+Q%!8>=128THENF%=Q%!16:Q%!16=B%:Q%!8-=F%-B%
55555ENDCASE:R%=193:V%=EVAL("FNe"+C$):IFV%ANDC$<>"_"THENV%=FNe_
55560IF$rn%="DataPad"THENPROCdPad
55565SYS&400C1,,Q%+4TO!h%:W%!12=!h%:!Q%=!h%:W%!108=Q%!16:IFS%!176AND(1<<7)THENPROCiWG:SYS&400C1,,Q%+4TO!h%:SYS&400C3,,Q%:W%!12=!h%
55570IFS%!176AND(1<<6)THENPROCpEo(W%!48)
55575ENDIF:IFNOTS%!332THEN
55580PROCcB(W%!176,W%!172,W%!180):IF$rn%="Tools"THENC%=S%!32:IFC%>0THENW%!104=C%:C%!104=S%!144:N%=C%!48
55585V%=EVAL("FNw"+C$):IFV%THENPROCoW(W%):PROCgC(W%):S%!380=W%
55590ENDIF:=V%
55595DEFPROCoW(A%):!J%=A%!12:SYS&400CB,,J%:J%!28=-1:SYS&400C6,,J%:PROCo(J%):ENDPROC
55600DEFPROCo(A%):SYS&400C5,,A%:ENDPROC
55605DEFPROCcloseW(A%):LOCALB$,C%,D%,E$,V%:V%=TRUE:B$=$(A%+20):IFB$="Command"THENSYS&400EF,!A%:ENDPROC
55610E$=$(S%!84+A%!16):N%=A%!48:IFS%!176AND64THENV%=FNclW_f(A%)
55615IFV% IFS%!176AND128THENV%=FNclW_g(A%)
55620IFV%THENR%=3:IFEVAL("FNe"+E$)THENPROCkW(A%!12)
55625IFA%!12=-255ANDB$<>"Tools"THEN
55630FORC%=1TO14:D%=FNgWS(C%):IFD%!12>TRUE IF$(D%+20)="Tools" IFD%!104=A%THENPROCcloseW(D%)
55635NEXT:R%=198:Z%=EVAL("FNe"+E$)
55640ENDIF:ENDPROC
55645DEFPROCkW(A%):PROCcW(A%):PROCdW(A%):ENDPROC
55650DEFPROCcW(A%):IFA%>0THEN
55655SYS&400D3,,Q%:IFA%=!Q%THENPROCpCp
55660!Q%=A%:SYS&400C6,,Q%
55665ENDIF:ENDPROC
55670DEFPROCdW(A%):IFA%>0THEN!Q%=A%:SYS&400C3,,Q%:PROCrWS(A%)
55675ENDPROC
55680DEFPROCpW(A$,B%):LOCALB$,C%,V%:IFA$<>""THEN
55685$wn%=A$:C%=FNfW(A$):IFC%>0THEN
55690W%=!w%:$W%=A$:!f%=C%!12:W%!16=!f%>>>24:!a%=C%!20:$(W%+20)="Menu":W%!44=!a%:$pn%=$(!a%+20):PROCiP:W%!36=!f%:$mn%="":W%!60=!(!a%+44):$(W%+124)="":W%!40=-1:W%!52=!(!a%+12):W%!56=!(!a%+36)
55695W%!12=!(!a%+8):!Q%=W%!12:SYS&400CC,,Q%:IFQ%!60AND256THENW%!140=Q%!76ELSEW%!140=0
55700IF!(S%!32+36)AND2THENW%!220=!(S%!32+48)ELSEW%!220=-1
55705B$=z$:z$="_":R%=256:V%=FNe_:IFV% IFS%!140>0THENZ%=FNwS(S%!140):IFz$<>"_"THENV%=EVAL("FNe"+z$)
55710IFV% IFB$<>"_"ANDz$<>B$THENV%=EVAL("FNe"+B$)
55715SYS&400C1,,Q%+4TOC%:SYS&400C3,,Q%:W%!12=C%:!(!a%+8)=C%:IFEVAL("FNw"+B$)THEN
55720IFB%=1THENSYS&400E8,,W%!12,!x0%,!y0%ELSESYS&400D4,,W%!12,!x0%,!y0%
55725ENDIF
55730ENDIF
55735ENDIF:ENDPROC
55740DEFPROCscW(A%):IFA%>0THENQ%!20+=!(A%+76+(ABS(Q%!32)<<2))*SGN(Q%!32):Q%!24+=!(A%+84+(ABS(Q%!36)<<2))*SGN(Q%!36):PROCo(Q%)
55745ENDPROC
55750DEFPROCscrollBy(A%,B%,C%):!J%=A%!12:SYS&400CB,,J%:J%!20+=B%:J%!24+=C%:PROCo(J%):ENDPROC
55755DEFFNvW(A%):!J%=A%:SYS&400CB,,J%:=J%!12-J%!4
55760DEFFNvH(A%):!J%=A%:SYS&400CB,,J%:=J%!16-J%!8
55765DEFFNxOf(A%):!J%=A%:SYS&400CB,,J%:=J%!20
55770DEFFNyOf(A%):!J%=A%:SYS&400CB,,J%:=J%!24
55775DEFPROCach_:Ad_%=297:ENDPROC
55785DEFFNinput(A$,B$,C$,D%,E$,B%):e1_%=1:LOCALD$,F$:F$=FNy(A$,B$,C$,D$,E$,B%,D%,"Input"):IFPoll$="27"THENF$=B$
55790e1_%=0:=F$
55795DEFFNalert(A$,B$,C$,D$,E$,B%):e1_%=1:LOCALD%,F$:Z$=FNy(A$,B$,C$,D$,E$,B%,D%,"Alert"):F$=Poll$:IFF$="13"THENF$=C$
55800IFF$="27"THENF$=D$:IFF$=""THENF$=C$
55805e1_%=0:=F$
55810DEFFNcna_(a_$):LOCAL F%,F$:FORF%=1TO20:F$=F$+CHR$(ASC(MID$(a_$,F%,1))-100):NEXT:=F$
55815DEFFNy(A$,B$,C$,D$,E$,B%,D%,F$):LOCALbW%,bH%,C%,E%,bB%,bT%,H%,BT%,bL%,bR%,G%,BW%,tQ%,TQ%,A%,F%,Mx%,My%:F%=S%!116:tQ%=FNgH(520):IFtQ%=0THENPoll$="":=""
55820TQ%=tQ%:bW%=736:bH%=432:bB%=20-bH%:bT%=bB%+56:C%=508:E%=316:H%=bT%+20:BT%=H%+E%:bL%=(bW%-C%)DIV2:bR%=bL%+C%
55825E$=FNtoLC(E$):CASEE$OF
55830WHEN"asterisk":E$="ar_excl"
55835WHEN"questmark":E$="ar_quest"
55840WHEN"exclammark":E$="ar_excl"
55845ENDCASE:Q%!4=270:Q%!8=316:Q%!12=Q%!4+bW%:Q%!16=Q%!8+bH%:Q%!20=0:Q%!24=0:Q%!28=-1:Q%!32=&84000010:Q%?36=7:Q%?37=2:Q%?38=7:Q%?39=1:Q%?40=3:Q%?41=1:Q%?42=2:Q%?43=0:Q%!44=0:Q%!48=-bH%:Q%!52=bW%:Q%!56=0
55850Q%!60=&13D:Q%!64=&3000:Q%!68=1:Q%!72=0:$F%="Message from "+$sn%+CHR$0:Q%!76=F%:Q%!80=-1:Q%!84=LEN($F%)+1:F%+=40:Q%!88=1-1*((A$<>"")+(B$<>""ORD%>0)+(C$<>"")+(D$<>"")+2*(E$<>"")):A%=Q%+92:IFC$=""THEN
55855IFD$=""THENC$="OK"ELSEC$=D$:D$=""
55860ENDIF:C$=LEFT$(C$,11):G%=16*(2+LENC$):IFG%<152THENG%=152
55865D$=LEFT$(D$,11):BW%=16*(2+LEND$):IFBW%<152THENBW%=152
55870IFD$<>""THEN
55875!A%=bL%+(C%DIV2-G%)DIV2:A%!4=bB%:A%!8=!A%+G%:A%!12=bT%:A%!16=&1902D:A%?19=&C7:$(A%+20)=C$:!x%=Q%!4+!A%+G%DIV2:!y%=Q%!8+bH%+(bB%+bT%)DIV2:A%+=32
55880!A%=bW%DIV2+(C%DIV2-BW%)DIV2:A%!4=bB%:A%!8=!A%+BW%:A%!12=bT%:A%!16=&1902D:A%?19=7:$(A%+20)=D$:A%+=32
55885ELSE!A%=bL%+(C%-G%)DIV2:A%!4=bB%:A%!8=!A%+G%:A%!12=bT%:A%!16=&1902D:A%?19=&C7:$(A%+20)=C$:!x%=Q%!4+!A%+G%DIV2:!y%=Q%!8+bH%+(bB%+bT%)DIV2:A%+=32
55890ENDIF:IFE$<>""THEN!A%=0:A%!4=H%:A%!8=bL%:A%!12=BT%:A%!16=&1A:$(A%+20)=E$:A%+=32:!A%=bR%:A%!4=H%:A%!8=bW%:A%!12=BT%:A%!16=&1A:$(A%+20)=E$:A%+=32
55895IFA$=""THEN
55900IFB$=""THENA$="Ok"ELSEA$=B$:B$=""
55905ENDIF:IFD%=0THEN
55910IFB$<>""THEN
55915$tQ%=A$:!A%=bL%:A%!4=H%+E%DIV2:A%!8=bR%:A%!12=BT%:A%!16=&119:A%?19=&17:A%!20=tQ%:$F%="L40":A%!24=F%:F%+=8:A%!28=LENA$+1:tQ%+=256:A%+=32
55920$tQ%=B$:!A%=bL%:A%!4=H%:A%!8=bR%:A%!12=H%+E%DIV2:A%!16=&119:A%?19=&17:A%!20=tQ%:$F%="L40":A%!24=F%:F%+=8:A%!28=LENB$+1:A%+=32
55925ELSE$tQ%=A$:!A%=bL%:A%!4=H%:A%!8=bR%:A%!12=BT%:A%!16=&119:A%?19=&17:A%!20=tQ%:$F%="L40":A%!24=F%:A%!28=LENA$+1:A%+=32
55930ENDIF
55935ELSE$tQ%=A$:!A%=bL%:A%!4=H%+E%DIV2:A%!8=bR%:A%!12=BT%:A%!16=&119:A%?19=&17:A%!20=tQ%:$F%="L40":A%!24=F%:F%+=8:A%!28=LENA$+1:tQ%+=256:A%+=32
55940$tQ%=B$:!A%=bL%+32:A%!4=H%+52:A%!8=bR%-32:A%!12=H%+100:A%!16=&F13D:A%?19=7:A%!20=tQ%:$F%="D*":A%!24=F%:A%!28=D%:A%+=32
55945ENDIF:!A%=bL%:A%!4=H%:A%!8=bR%:A%!12=BT%:A%!16=4:A%?19=&17:A%?20=13:SYS&400C1,,Q%+4TO!h%:W%=!w%+&F00:$W%=F$:W%!12=!h%:$(W%+20)=F$:$rn%=F$:PROCoW(W%):PROCgC(W%):PROCrP:MOUSEMx%,My%,Z%:MOUSETO!x%,!y%:!O%=!h%:SYS&400E0,,O%
55950MOUSERECTANGLEO%!4,O%!8,O%!12-O%!4-S%!440,O%!16-O%!8-S%!444:PROCsound(B%AND15):Poll$="":M%=TRUE:S%!488=TRUE:REPEATPROCp:UNTILPoll$<>"":S%!488=FALSE:F$=FNgId(!h%,4):PROCcW(!h%):W%!12=-255:!Q%=!h%:SYS&400C3,,Q%:PROCfH(TQ%)
55955MOUSERECTANGLE0,0,S%!204,S%!208:M%=FALSE:MOUSETOMx%,My%:!x%=0:!y%=0:=F$
55960---(DEBUG AIDS)
55965DEFFNq_:=FALSE
55970DEFPROCq1_:IFInfo_$<>""THENTr__$(1)=FNcna_(Info_$):ENDPROC ELSEENDPROC
55975DEFPROCmoan(A$):LOCALERROR:ONERRORLOCAL:RESTORE ERROR:PROCerror:ENDPROC
55980ERRORS%!212,A$:ENDPROC
55985DEFPROCerror:LOCALerr%,err$:SYS&400D0,,-1:!(S%!116)=ERR:MOUSERECTANGLE0,0,S%!204,S%!208:M%=FALSE:CASETRUE OF
55990WHENERR=S%!212:S%!152=3
55995WHENERR=S%!212+255:S%!152=0
56000WHENS%!152=3
56005WHEN(ERR>S%!212)AND(ERR<S%!212+192):err$="ARCHWAY reported error. "
56010WHEN(ERR>S%!212+191)AND(ERR<S%!212+255):err$="Application reported error. "
56015OTHERWISE:S%!152=0
56020ENDCASE:err$+=REPORT$
56025CASES%!152OF
56030WHEN0:err%=2:err$=RIGHT$(err$,241):err$+=" (Internal code "+STR$~ERR+"/"+STR$ERL+")"
56035WHEN2,3:err%=1
56040WHEN1:err%=3
56045ENDCASE
56050$(S%!116+4)=err$+CHR$0:S%!152=0:SYS&400DF,S%!116,err%,$sn%TO,err%:REM IFerr%=2THENPROCfin:END
56055ENDPROC
56060DEFFNsysErrBox(A%):SYS&400D0,,-1:SYS&400DF,A%,1,$sn%:=TRUE
U� Prophet Lite (c) Apricote�Studios 1991/2/3 V1.28L 12.7.1993 for Acorn Computing
��fix2_<>0�*Error 0 Quit any other Archway programs, press function key F12 and type RMKill Archway then press RETURN twice and re-run Prophet
ș&406C0
m� m_% 100,Tr__$(2),Tr_%(1),poll_%256:ITll_%=50:iw_%=0:ow_%=0:oldt_$=��$,17,5):count_%=0:sount_%=0:invW%=0
W� heap_% 65556:HM%=heap_%+65556:HI_%=heap_%:fc_%=0:oc_$="":e1_%=0:Z1_%=�getpage_(1)
#)lw_%=0:pm_%=0:wf1_%=2:wf2_%=2:wf3_%=2
% Z4_%=�initmem_:VAT_$="VAT"
-'�env_$<>""�Z4_%=0�env_$="NO MEMORY"
74end_%=0:ș&400EC,-1,-1 � Z1_%,Z2_%,Z3_%:�=�+Z3_%
< �init
AUZ%=�initconst_:end_%=0:v_%=128:NewPref_%(3)=v_%:� remove IF end of SAVE when V129
F2�env_$<>""�env_$<>"NO MEMORY"��load_(env_$,-1)
K�mainW_=� ��fin
P,�env_$="NO MEMORY" ��pe_(nme_$):env_$=""
\!end_%=�+mpa_%:�=end_%:end_%=0
_� �:�pe_(�err_)
d$end_%=0:�poll:�notrans_%>0:�Dd@
i"moremem_%=�getpage_(moremem_%)
n#ș&400EC,-1,-1 � Z1_%,Z2_%,Z3_%
s(�Z3_%>moremem_%�nomem_%=0 �nomem_%=1
u:Me1_%=moremem_%:Me2_%=�:Me3_%=Z1_%+moremem_%:Me4_%=�-�
vMe2_%+=moremem_%
x2�moremem_%>0�nomem_%=0:Z1_%+=moremem_%:�=Me2_%
}�nomem_%=1�
�'�end_%<2��pe_("Memory getting low")
��end_%>1��pe_(nme_$)
��
�<�moremem_%>0:�end_%>1:�nomem_%=0:end_%=0:�reloadprophet_
� �Dd@
�W� BASIC 5 (RiscOS 2) BUG, Can't handle mem ext. in loops so GOTO used as workaround
��
�
��ݤfix_:�fix1_ �R%=193�invw%=W%!12�R%<>8�saled%=W%!12�R%<>8�paled%=W%!12�R%<>8�bankl%=W%!12�R%<>8�vatp%=W%�R%<>8�stand%=W%!12�R%<>8�bank%=W%�R%<>8�heads%=W%�R%<>8�headp%=W%�R%<>8�=�
�=�
��ݤfix1_:�IOwind%<>W%!12�invw%<>W%!12�saled%<>W%!12�paled%<>W%!12�bankl%<>W%!12�vatp%<>W%�stand%<>W%!12�bank%<>W%�heads%<>W%�headp%<>W%�=�
� *FX15,1
�=�
� ݤfix2_:� �:� � �:� �:=0
�&ș&1E,18,"Archway" � ,mod_%:=mod_%
�'��fix3_:� Z%:�Q%!16=&400C3�fc_%=1:�
� �Q%!40<>&C87 �Q%!40<>&C88��
�
Z%=�rM_:�
܊��mb_:s_$=�gId(W%!12,!i%):�$wn%="CSuSave"�$wn%="Ssave"�$wn%="SaledRW"�$wn%="PaledRW"�$wn%="BankRW"�$wn%="VatPCont"�$wn%="BankP"�s_$=""
�4�!b%=64:�pmm_:�pm_%=1:ș&400E9,36,,"ptr_hand",2
�@�Prct%>0:�W%!12=Prct%!12:�prefs1_%=-1�ș&400D2,-1,-1,0,0,0,0
��
���mb1_:�drag_:�
���mb2_:�pmm_:pm_%=1
��
�ݤStockW_:=�
�ݤSupplierW_:=�
�ݤSales_:=�
�ݤBalW_:=�
�ݤIndexW_:=�
�ݤpmm_:�$wn%="OrderW"�$wn%="StatementW"�$wn%="InvoiceW"�$wn%="Ssave"�$wn%="CSuSave"�$wn%="Calc"�$wn%="SaledRW"�$wn%="PaledRW"�$wn%="BankRW"�$wn%="VatPCont"�$wn%="Sales"�$wn%="BankP":=1
=0
ݤgetpage_(A%):� B%:�A%=0�=0
%ș&51 � B%:mpa_%=B%:=B%*(A%�B%+1)
+��Poll_:ș&400C7,,pblock_% � reason_%:�
ݤmainW_:� V$
OV$=pass1_$:�edit%=0:�pass1_$<>""�V$=�input(passm1_$,"","OK",5,"ar_quest",1)
"&�V$=pass1_$�=�window("EditIt") �=�
' ݤOrderMenuW_:�wl_(28):=�
,ݤSload_:�wl_(28):=�
1ݤbreakP1_:�wl_(28):=�
6�ݤinitvatp_:� Z%:�pFD(W%,VatR_$(),0):�Z%=0�43:�sIcon_(W%!12,Z%+57,VatT_%(Z%)):�:$!vathead_%=vathead_$:$!vathead1_%=vathead1_$:=�
;!ݤupdatevatp_:�pass8_$<>""�=�
@2� Z%:�Z%=0�43:VatR_$(Z%)=�gId(W%!12,Z%+1):�:=�
�VݤO1_:�!i%�2=1�TITe_%((!i%-81)/2+titp_%)=1�!i%�2=0�TITe_%((!i%-81)/2+titp_%)=-1�=�
�GTITe_%((!i%-81)/2+titp_%)=-TITe_%((!i%-81)/2+titp_%):�getTITdat_:=�
�
�Qݤt1_:� Z%:Z%=!i%-57:�pass8_$<>""��sIcon_(W%!12,Z%+57,VatT_%(Z%)):�wl_(26):=�
�"VatT_%(!i%-57)=-VatT_%(!i%-57)
�Ȏ !i%�4 �
�� 1:�VatT_%(Z%)=1�
�E�VatT_%(Z%+1)=1�VatT_%(Z%+1)=-1:�sIcon_(W%!12,!i%+1,VatT_%(Z%+1))
�R�VatT_%(Z%+2)+VatT_%(Z%+3)=-2�VatT_%(Z%+2)=1:�sIcon_(W%!12,!i%+2,VatT_%(Z%+2))
��
у�VatT_%(Z%)+VatT_%(Z%+1)=-2�VatT_%(Z%+2)=-1:VatT_%(Z%+3)=-1:�sIcon_(W%!12,!i%+2,VatT_%(Z%+2)):�sIcon_(W%!12,!i%+3,VatT_%(Z%+3))
�� 2:�VatT_%(Z%)=1�
�E�VatT_%(Z%-1)=1�VatT_%(Z%-1)=-1:�sIcon_(W%!12,!i%-1,VatT_%(Z%-1))
�R�VatT_%(Z%+1)+VatT_%(Z%+2)=-2�VatT_%(Z%+1)=1:�sIcon_(W%!12,!i%+1,VatT_%(Z%+1))
��
��VatT_%(Z%-1)+VatT_%(Z%)=-2�VatT_%(Z%+1)=-1:VatT_%(Z%+2)=-1:�sIcon_(W%!12,!i%+1,VatT_%(Z%+1)):�sIcon_(W%!12,!i%+2,VatT_%(Z%+2))
�d� 3:�VatT_%(Z%)=1:�VatT_%(Z%-1)+VatT_%(Z%-2)=-2�VatT_%(Z%-2)=1:�sIcon_(W%!12,!i%-2,VatT_%(Z%-2))
��VatT_%(Z%)+VatT_%(Z%+1)=-2:�VatT_%(Z%-1)+VatT_%(Z%-2)>-2�VatT_%(Z%-1)=-1:VatT_%(Z%-2)=-1:�sIcon_(W%!12,!i%-2,VatT_%(Z%-2)):�sIcon_(W%!12,!i%-1,VatT_%(Z%-1))
�d� 0:�VatT_%(Z%)=1:�VatT_%(Z%-2)+VatT_%(Z%-3)=-2�VatT_%(Z%-3)=1:�sIcon_(W%!12,!i%-3,VatT_%(Z%-3))
���VatT_%(Z%)+VatT_%(Z%-1)=-2:�VatT_%(Z%-2)+VatT_%(Z%-3)>-2�VatT_%(Z%-2)=-1:VatT_%(Z%-3)=-1:�sIcon_(W%!12,!i%-3,VatT_%(Z%-3)):�sIcon_(W%!12,!i%-2,VatT_%(Z%-2))
�
=�
Hݤv1_:� Z%:�pass8_$<>""�Z%=�pII(W%!12,!i%,VatR_$(!i%-1)):�wl_(26):=�
$VatR_$(!i%-1)=�gId(W%!12,!i%):=�
!BݤShup_:� Z%:�$wn%="Headings"�SsubH_%-=1:�SsubH_%<0�SsubH_%=11
&6�$wn%="PHeadings"�PsubH_%-=1:�PsubH_%<0�PsubH_%=11
+L�$wn%="Headings"�$!Sm1_%=�(SsubH_%+65):Z%=�updateheadsM_(0):�setC_(1):=�
0;$!Pm1_%=�(PsubH_%+65):Z%=�updateheadpM_(0):�setC_(1):=�
5BݤShdo_:� Z%:�$wn%="Headings"�SsubH_%+=1:�SsubH_%>11�SsubH_%=0
:6�$wn%="PHeadings"�PsubH_%+=1:�PsubH_%>11�PsubH_%=0
?L�$wn%="Headings"�$!Sm1_%=�(SsubH_%+65):Z%=�updateheadsM_(0):�setC_(1):=�
D;$!Pm1_%=�(PsubH_%+65):Z%=�updateheadpM_(0):�setC_(1):=�
I2ݤSm1_:� A_%,Z%:�$!Sm1_%<>�(SsubH_%+65)�A_%=69
N+Z%=�updateheadsM_(0):�A_%=69��setC_(69)
S=�
X)ݤSm2_:Shead1_$(SsubH_%+1)=$!Sm2_%:=�
]<ݤSh1_:� A_%,B_%:�$wn%="Headings"�B_%=heads% �B_%=headp%
bQ�!i%�7=1�!i%�7=2�A_%=�ni_(�gId(B_%!12,!i%)):Z%=�pII(B_%!12,!i%,�tc_(A_%,"0"))
g;�$wn%="Headings"�=�updateheadsM_(0) �=�updateheadpM_(0)
l
q(ݤinitheadsM_(A_%):ș&406C0:� Z_%,Z%
v� �
{� � �:� �:ș&406C1:=�
�it1_%()=0:t2_%()=0:Hw_$(24)=�(SsubH_%+65):Hw_$(25)=Shead1_$(SsubH_%+1):Z_%=SsubH_%*40:�Z%=Z_%�Z_%+35�5
���A_%<4�Hw_$(t1_%(0))=�tc_(Sheadt1_%(Z%),"0"):t1_%(2)=t1_%(2)+Sheadt1_%(Z%):Hw_$(t1_%(0)+1)=�tc_(Sheadt1_%(Z%+1),"0"):t1_%(3)=t1_%(3)+Sheadt1_%(Z%+1):Hw_$(t1_%(0)+2)=Shead1_$(Z%/5+13)
���A_%<5�Hp_$(t1_%(1))=�tc_(Sheadt1_%(Z%+2),"0"):Hp_$(t1_%(1)+1)=�tc_(Sheadt1_%(Z%+3),"0"):Hp_$(t1_%(1)+2)=�tc_(Sheadt1_%(Z%+4),"0")
��t1_%(4)=t1_%(4)+Sheadt1_%(Z%+2):t1_%(5)=t1_%(5)+Sheadt1_%(Z%+3):t1_%(6)=t1_%(6)+Sheadt1_%(Z%+4):t1_%(8)=Sheadt1_%(Z%+2)+Sheadt1_%(Z%+3):t1_%(8)=t1_%(8)-Sheadt1_%(Z%+4):t1_%(9)=Sheadt1_%(Z%)-Sheadt1_%(Z%+1)
�mt1_%(8)=t1_%(8)-t1_%(9):t1_%(7)=t1_%(7)+t1_%(8):Hp_$(t1_%(1)+3)=�tc_(t1_%(8),"0"):t1_%(0)+=3:t1_%(1)+=4:�
�9�Z%=2�7:Hp_$(t1_%(1))=�tc_(t1_%(Z%),"0"):t1_%(1)+=1:�
� �A_%<>3�
���Z%=0�479�5:t2_%(0)=t2_%(0)+Sheadt1_%(Z%):t2_%(1)=t2_%(1)+Sheadt1_%(Z%+1):t2_%(2)=t2_%(2)+Sheadt1_%(Z%+2):t2_%(3)=t2_%(3)+Sheadt1_%(Z%+3):t2_%(4)=t2_%(4)+Sheadt1_%(Z%+4):�
�ct2_%(5)=t2_%(2)+t2_%(3):t2_%(5)=t2_%(5)-t2_%(4):t2_%(6)=t2_%(0)-t2_%(1):t2_%(5)=t2_%(5)-t2_%(6)
�9�Z%=0�5:Hp_$(t1_%(1))=�tc_(t2_%(Z%),"0"):t1_%(1)+=1:�
��
� A_%=0
��
� ș&406C1
�Y�A_%=5:�Z%=0�33:Hp_$(Z%)="|":�:Hp_$(Z%+4)="|":Hp_$(Z%+5)="|":�pPD(heads%,Hp_$(),0):=�
�9�A_%=0��pFD(heads%,Hw_$(),0):�pPD(heads%,Hp_$(),0):=�
�)�A_%=1:�Z%=0�31:�Z%�4<>3�Hp_$(Z%)="|"
� �A_%=1:�
� �pPD(heads%,Hp_$(),0):=�
�
�%ݤupdateheadsM_(D_%):�heads%=0�=�
�C� A_%,B_%,H%,Z%,Z_%,a_%,b_%:t1_%(1)=1:Hp_$(44)="|":Hp_$(45)="|"
�� �
�� � �:� �:=�
�sA_%=2:H%=t_%:$t_%=$!Sm1_%:�m1_%:$!Sm1_%=$t_%:SsubH_%=�($!Sm1_%)-65:�SsubH_%<0�SsubH_%=0 ��SsubH_%>11�SsubH_%=11
�0�oSsubH_%<>SsubH_%�B_%=oSsubH_% �B_%=SsubH_%
&Shead1_$(B_%+1)=$!Sm2_%:B_%=B_%*40
�Z%=B_%�B_%+35�5
��D_%=0�a_%=Sheadt1_%(Z%):b_%=Sheadt1_%(Z%+1):Sheadt1_%(Z%)=�ni_(�gId(heads%!12,t1_%(1))):Sheadt1_%(Z%+1)=�ni_(�gId(heads%!12,t1_%(1)+1)):Shead1_$(Z%/5+13)=�gId(heads%!12,t1_%(1)+2):�a_%<>Sheadt1_%(Z%)�b_%<>Sheadt1_%(Z%+1)�A_%=1
��D_%=1:�Sheadt1_%(Z%+2)<>�ni_(�gId(heads%!12,t1_%(1)+3))�Sheadt1_%(Z%+3)<>�ni_(�gId(heads%!12,t1_%(1)+4))�Sheadt1_%(Z%+4)<>�ni_(�gId(heads%!12,t1_%(1)+5))�A_%=4
lt1_%(1)+=7:�:�A_%=2:�oSsubH_%<>SsubH_%:oSsubH_%=SsubH_%:A_%=3 ��oSsubH_%<>SsubH_%�oSsubH_%=SsubH_%:A_%=0
�D_%=1:�A_%=2�A_%=5
"�A_%<>2�=�initheadsM_(A_%) �=�
%
*2ݤPm1_:� A_%,Z%:�$!Pm1_%<>�(PsubH_%+65)�A_%=69
/+Z%=�updateheadpM_(0):�A_%=69��setC_(69)
4=�
9)ݤPm2_:Phead1_$(PsubH_%+1)=$!Pm2_%:=�
>
C(ݤinitheadpM_(A_%):ș&406C0:� Z_%,Z%
H� �
M� � �:� �:ș&406C1:=�
Rkt1_%()=0:t2_%()=0:Hwp_$(24)=�(PsubH_%+65):Hwp_$(25)=Phead1_$(PsubH_%+1):Z_%=PsubH_%*40:�Z%=Z_%�Z_%+35�5
W��A_%<4�Hwp_$(t1_%(0))=�tc_(Pheadt1_%(Z%),"0"):t1_%(2)=t1_%(2)+Pheadt1_%(Z%):Hwp_$(t1_%(0)+1)=�tc_(Pheadt1_%(Z%+1),"0"):t1_%(3)=t1_%(3)+Pheadt1_%(Z%+1):Hwp_$(t1_%(0)+2)=Phead1_$(Z%/5+13)
\��A_%<5�Hpp_$(t1_%(1))=�tc_(Pheadt1_%(Z%+2),"0"):Hpp_$(t1_%(1)+1)=�tc_(Pheadt1_%(Z%+3),"0"):Hpp_$(t1_%(1)+2)=�tc_(Pheadt1_%(Z%+4),"0")
a�t1_%(4)=t1_%(4)+Pheadt1_%(Z%+2):t1_%(5)=t1_%(5)+Pheadt1_%(Z%+3):t1_%(6)=t1_%(6)+Pheadt1_%(Z%+4):t1_%(8)=Pheadt1_%(Z%+2)+Pheadt1_%(Z%+3):t1_%(8)=t1_%(8)-Pheadt1_%(Z%+4):t1_%(9)=Pheadt1_%(Z%)-Pheadt1_%(Z%+1)
fnt1_%(8)=t1_%(8)-t1_%(9):t1_%(7)=t1_%(7)+t1_%(8):Hpp_$(t1_%(1)+3)=�tc_(t1_%(8),"0"):t1_%(0)+=3:t1_%(1)+=4:�
k:�Z%=2�7:Hpp_$(t1_%(1))=�tc_(t1_%(Z%),"0"):t1_%(1)+=1:�
p �A_%<>3�
u��Z%=0�479�5:t2_%(0)=t2_%(0)+Pheadt1_%(Z%):t2_%(1)=t2_%(1)+Pheadt1_%(Z%+1):t2_%(2)=t2_%(2)+Pheadt1_%(Z%+2):t2_%(3)=t2_%(3)+Pheadt1_%(Z%+3):t2_%(4)=t2_%(4)+Pheadt1_%(Z%+4):�
zct2_%(5)=t2_%(2)+t2_%(3):t2_%(5)=t2_%(5)-t2_%(4):t2_%(6)=t2_%(0)-t2_%(1):t2_%(5)=t2_%(5)-t2_%(6)
:�Z%=0�5:Hpp_$(t1_%(1))=�tc_(t2_%(Z%),"0"):t1_%(1)+=1:�
��
� A_%=0
��
� ș&406C1
�]�A_%=5:�Z%=0�33:Hpp_$(Z%)="|":�:Hpp_$(Z%+4)="|":Hpp_$(Z%+5)="|":�pPD(headp%,Hpp_$(),0):=�
�;�A_%=0��pFD(headp%,Hwp_$(),0):�pPD(headp%,Hpp_$(),0):=�
�*�A_%=1:�Z%=0�31:�Z%�4<>3�Hpp_$(Z%)="|"
� �A_%=1:�
� �pPD(headp%,Hpp_$(),0):=�
�
�%ݤupdateheadpM_(D_%):�headp%=0�=�
�E� A_%,B_%,H%,Z%,Z_%,a_%,b_%:t1_%(1)=1:Hpp_$(44)="|":Hpp_$(45)="|"
�� �
�� � �:� �:=�
�sA_%=2:H%=t_%:$t_%=$!Pm1_%:�m1_%:$!Pm1_%=$t_%:PsubH_%=�($!Pm1_%)-65:�PsubH_%<0�PsubH_%=0 ��PsubH_%>11�PsubH_%=11
�0�oPsubH_%<>PsubH_%�B_%=oPsubH_% �B_%=PsubH_%
�&Phead1_$(B_%+1)=$!Pm2_%:B_%=B_%*40
��Z%=B_%�B_%+35�5
���D_%=0�a_%=Pheadt1_%(Z%):b_%=Pheadt1_%(Z%+1):Pheadt1_%(Z%)=�ni_(�gId(headp%!12,t1_%(1))):Pheadt1_%(Z%+1)=�ni_(�gId(headp%!12,t1_%(1)+1)):Phead1_$(Z%/5+13)=�gId(headp%!12,t1_%(1)+2):�a_%<>Pheadt1_%(Z%)�b_%<>Pheadt1_%(Z%+1)�A_%=1
��D_%=1:�Pheadt1_%(Z%+2)<>�ni_(�gId(headp%!12,t1_%(1)+3))�Pheadt1_%(Z%+3)<>�ni_(�gId(headp%!12,t1_%(1)+4))�Pheadt1_%(Z%+4)<>�ni_(�gId(headp%!12,t1_%(1)+5))�A_%=4
�lt1_%(1)+=7:�:�A_%=2:�oPsubH_%<>PsubH_%:oPsubH_%=PsubH_%:A_%=3 ��oPsubH_%<>PsubH_%�oPsubH_%=PsubH_%:A_%=0
��D_%=1:�A_%=2�A_%=5
�"�A_%<>2�=�initheadpM_(A_%) �=�
�
��ݤinitbank_(A_%):� A%,B%,C%,D%,E%,F%,G%,Z%:�Z%=0�23�2:D%+=1:Bn1_$(Z%)=�tc_(BankOO_%(D%),"0"):Bn1_$(Z%+1)=BankNN_$(D%):A%=�add_(BankOO_%(D%),BankSS_%(D%)):B%=�add_(BankOO_%(D%),BankCC_%(D%))
�Bn2_$(Z%)=�tc_(A%,"0"):Bn2_$(Z%+1)=�tc_(B%,"0"):E%=�add_(E%,BankOO_%(D%)):F%=�add_(F%,A%):G%=�add_(G%,B%):�:Bn2_$(24)=�tc_(E%,"0"):Bn2_$(25)=�tc_(F%,"0"):Bn2_$(26)=�tc_(G%,"0")
6�A_%=0��pFD(bank%,Bn1_$(),0):�pPD(bank%,Bn2_$(),0)
=�
*ݤupdatebank_:� A_%,Z%,Z_%:�bank%=0�=�
ut4_%()=0:�Z%=1�12:t1_%(Z%)=BankOO_%(Z%):BankNN_$(Z%)=�gId(bank%!12,Z%*2):BankOO_%(Z%)=�ni_(�gId(bank%!12,Z%*2-1))
��BankOO_%(Z%)<>t1_%(Z%)��ni_(�gId(bank%!12,Z%*2+23))<>BankSS_%(Z%)+BankOO_%(Z%)��ni_(�gId(bank%!12,Z%*2+24))<>BankCC_%(Z%)+BankOO_%(Z%)�t4_%(Z%-1)=1:Z_%=1
$�:�Z_%=0�=�
)�Z%=�initbank_(1):�Z%=0�11:�t4_%(Z%)=1�A_%=�pII(bank%!12,Z%*2+1,Bn1_$(Z%*2)):A_%=�pII(bank%!12,Z%*2+25,Bn2_$(Z%*2)):A_%=�pII(bank%!12,Z%*2+26,Bn2_$(Z%*2+1))
.l�:�Z_%=1�A_%=�pII(bank%!12,49,Bn2_$(24)):A_%=�pII(bank%!12,50,Bn2_$(25)):A_%=�pII(bank%!12,51,Bn2_$(26))
3=�
8
=ݤB1_:*FX15,1
B=�updatebank_
G
���ds_(Z_%):� A_$,B_%,Z%
�`�Z_%=1:A_$=$!SuName_% ��Z_%=3:A_$=$!CSuName_% ��Z_%=2:A_$=$!SuPost_% ��Z_%=4:A_$=$!CSuPost_%
�
�A_$=""��
��Z_%<3:Z%=S_% �Z%=CS_%
� �Z%=1��
� ș&406C0
� Ȏ Z_% �
�8� 1:�Z%=1�S_%-1:�Suppliers_$(Z%)=A_$:B_%=Z%:Z%=S_%-1
��
4� 2:�Z%=1�S_%-1:�SuPos_$(Z%)=A_$:B_%=Z%:Z%=S_%-1
�
;� 3:�Z%=1�CS_%-1:�CSuppliers_$(Z%)=A_$:B_%=Z%:Z%=CS_%-1
�
7� 4:�Z%=1�CS_%-1:�CSuPos_$(Z%)=A_$:B_%=Z%:Z%=CS_%-1
�
�
#[ș&406C1:�B_%>0:�pe_("Just to let you know you may have a duplicate record at "+�(B_%))
(�
-"ݤSuName_:�ds_(1):=�suppup_(0)
2ݤSuAd11_:=�suppup_(0)
7ݤSuAd22_:=�suppup_(0)
<ݤSuAd33_:=�suppup_(0)
AݤSuAd44_:=�suppup_(0)
F"ݤSuPost_:�ds_(2):=�suppup_(0)
KݤdSuName_:=�suppup_(0)
PݤdSuAd11_:=�suppup_(0)
UݤdSuAd22_:=�suppup_(0)
ZݤdSuAd33_:=�suppup_(0)
_ݤdSuAd44_:=�suppup_(0)
dݤdSuPost_:=�suppup_(0)
i ݤSuContact_:=�suppup_(0)
nݤSuTele_:=�suppup_(0)
sݤSuFax_:=�suppup_(0)
xݤSuCom11_:=�suppup_(0)
}ݤSuCom22_:=�suppup_(0)
� ݤSuSuppRef_:=�suppup_(0)
� ݤSuYourRef_:=�suppup_(0)
� ݤSuOrder_:Z%=�suppup_(0)
�9ݤSuDisc_:Z%=�suppup_(1):SuI_%=sui_%:�setC_(SuI_%):=�
�0ݤSufindnum_:=�suppup_(�($!Sufindnum_%)-S_%)
�
�$ݤCSuName_:�ds_(3):=�Csuppup_(0)
� ݤCSuAd11_:=�Csuppup_(0)
� ݤCSuAd22_:=�Csuppup_(0)
� ݤCSuAd33_:=�Csuppup_(0)
� ݤCSuAd44_:=�Csuppup_(0)
�$ݤCSuPost_:�ds_(4):=�Csuppup_(0)
� ݤdCSuName_:=�Csuppup_(0)
� ݤdCSuAd11_:=�Csuppup_(0)
� ݤdCSuAd22_:=�Csuppup_(0)
� ݤdCSuAd33_:=�Csuppup_(0)
� ݤdCSuAd44_:=�Csuppup_(0)
� ݤdCSuPost_:=�Csuppup_(0)
� ݤCSuContact_:=�Csuppup_(0)
� ݤCSuTele_:=�Csuppup_(0)
�ݤCSuFax_:=�Csuppup_(0)
� ݤCSuCom11_:=�Csuppup_(0)
� ݤCSuCom22_:=�Csuppup_(0)
�VݤCSuSuppRef_:�invW%>0:�supply1_%=CS_%:$!ITord_%=$!CSuSuppRef_%:�rI(invW%,"ITord")
�=�Csuppup_(0)
� ݤCSuYourRef_:=�Csuppup_(0)
� ݤCSuOrder_:=�Csuppup_(0)
>ݤCSuDisc_:Z%=�Csuppup_(1):CSuI_%=Csui_%:�setC_(CSuI_%):=�
4ݤCSufindnum_:=�Csuppup_(�($!CSufindnum_%)-CS_%)
ݤstockch1_
� Z%
*FX15,1
"�$wn%="CustomW"�=�
'=�
,ݤstockch_(V_%)
1� Z%
@(�$wn%="CustomW"�Z%=�Csuppup_(V_%):=�
E=�
J
O ݤLeft1_
T �$wn%="InvW"��ITpage_(1):=�
Y!�$wn%="Saled"��SITpage_(1):=�
^!�$wn%="Paled"��PITpage_(1):=�
c!�$wn%="BankL"��BITpage_(1):=�
h"�$wn%="StandW"��TITpage_(1):=�
m1� Z%:Z%=�stockch1_:�Z%=� ��sI(W%,"Left1") �=�
r(Z%=�stockch_(-1):�usI(W%,"Left1"):=�
w
ݤLeft11_
|6�saled1%>0:�$wn%="Saled"�$wn%="SaledFW"�=�SaledFo_
�6�paled1%>0:�$wn%="Paled"�$wn%="PaledFW"�=�PaledFo_
�3�bank1%>0:�$wn%="BankL"�$wn%="BankFW"�=�Bankfo_
�8�CFindSu%>0:�$wn%="CustomW"�$wn%="CFindSu"�=�CSuFor_
���$wn%<>"InvW"�$wn%<>"Saled"�$wn%<>"Paled"�$wn%<>"BankL"�$wn%<>"StandW"�$wn%<>"Headings"�$wn%<>"PHeadings"�$wn%<>"BalW"�=�Right1_
� *FX15,1
�%�$wn%="InvW"��ITpage_(-itip_%):=�
�(�$wn%="Saled"��SITpage_(-sitip_%):=�
�(�$wn%="Paled"��PITpage_(-sitip_%):=�
�(�$wn%="BankL"��BITpage_(-sitip_%):=�
�)�$wn%="StandW"��TITpage_(-sitip_%):=�
�-�$wn%="Headings"�$wn%="PHeadings"�=�Shdo_
�=�
�
ݤRight1_
� �$wn%="InvW"��ITpage_(-1):=�
�"�$wn%="Saled"��SITpage_(-1):=�
�"�$wn%="Paled"��PITpage_(-1):=�
�"�$wn%="BankL"��BITpage_(-1):=�
�#�$wn%="StandW"��TITpage_(-1):=�
�2� Z%:Z%=�stockch1_:�Z%=� ��sI(W%,"Right1") �=�
�(Z%=�stockch_(1):�usI(W%,"Right1"):=�
�ݤRight11_
�6�saled1%>0:�$wn%="Saled"�$wn%="SaledFW"�=�SaledBa_
�6�paled1%>0:�$wn%="Paled"�$wn%="PaledFW"�=�PaledBa_
3�bank1%>0:�$wn%="BankL"�$wn%="BankFW"�=�Bankba_
9�CFindSu%>0:�$wn%="CustomW"�$wn%="CFindSu"�=�CSuBack_
��$wn%<>"InvW"�$wn%<>"Saled"�$wn%<>"Paled"�$wn%<>"BankL"�$wn%<>"StandW"�$wn%<>"Headings"�$wn%<>"PHeadings"�$wn%<>"BalW"�=�Left1_
*FX15,1
!$�$wn%="InvW"��ITpage_(itip_%):=�
&'�$wn%="Saled"��SITpage_(sitip_%):=�
+'�$wn%="Paled"��PITpage_(sitip_%):=�
0'�$wn%="BankL"��BITpage_(sitip_%):=�
5(�$wn%="StandW"��TITpage_(sitip_%):=�
:-�$wn%="Headings"�$wn%="PHeadings"�=�Shup_
D=�
I
ݤLeft10_
N&�$wn%="InvW"��ITpage_(itip_%*5):=�
S)�$wn%="Saled"��SITpage_(sitip_%*5):=�
X)�$wn%="Paled"��PITpage_(sitip_%*5):=�
])�$wn%="BankL"��BITpage_(sitip_%*5):=�
b*�$wn%="StandW"��TITpage_(sitip_%*5):=�
g2� Z%:Z%=�stockch1_:�Z%=� ��sI(W%,"Left10") �=�
l*Z%=�stockch_(-10):�usI(W%,"Left10"):=�
qݤRight10_
v'�$wn%="InvW"��ITpage_(-itip_%*5):=�
{+�$wn%="StandW"��TITpage_(-sitip_%*5):=�
�*�$wn%="Saled"��SITpage_(-sitip_%*5):=�
�*�$wn%="Paled"��PITpage_(-sitip_%*5):=�
�*�$wn%="BankL"��BITpage_(-sitip_%*5):=�
�3� Z%:Z%=�stockch1_:�Z%=� ��sI(W%,"Right10") �=�
�*Z%=�stockch_(10):�usI(W%,"Right10"):=�
�ݤLeft100_
�'�$wn%="InvW"��ITpage_(itip_%*10):=�
�*�$wn%="Saled"��SITpage_(sitip_%*10):=�
�*�$wn%="Paled"��PITpage_(sitip_%*10):=�
�*�$wn%="BankL"��BITpage_(sitip_%*10):=�
�+�$wn%="StandW"��TITpage_(sitip_%*10):=�
�3� Z%:Z%=�stockch1_:�Z%=� ��sI(W%,"Left100") �=�
�,Z%=�stockch_(-100):�usI(W%,"Left100"):=�
�ݤRight100_
�(�$wn%="InvW"��ITpage_(-itip_%*10):=�
�,�$wn%="StandW"��TITpage_(-sitip_%*10):=�
�+�$wn%="Saled"��SITpage_(-sitip_%*10):=�
�+�$wn%="Paled"��PITpage_(-sitip_%*10):=�
�+�$wn%="BankL"��BITpage_(-sitip_%*10):=�
�4� Z%:Z%=�stockch1_:�Z%=� ��sI(W%,"Right100") �=�
�,Z%=�stockch_(100):�usI(W%,"Right100"):=�
�
ݤStart1_
�6�saled1%>0:�$wn%="Saled"�$wn%="SaledFW"�=�SaledFi_
�6�paled1%>0:�$wn%="Paled"�$wn%="PaledFW"�=�PaledFi_
�3�bank1%>0:�$wn%="BankL"�$wn%="BankFW"�=�Bankfi_
:�CFindSu%>0:�$wn%="CustomW"�$wn%="CFindSu"�=�CSuFirst_
=�Start_
ݤStart_
+�$wn%="InvW"��ITpage_(maxI_%*itip_%):=�
.�$wn%="Saled"��SITpage_(maxS_%*sitip_%):=�
.�$wn%="Paled"��PITpage_(maxP_%*sitip_%):=�
%.�$wn%="BankL"��BITpage_(maxB_%*sitip_%):=�
*/�$wn%="StandW"��TITpage_(maxT_%*sitip_%):=�
/1� Z%:Z%=�stockch1_:�Z%=� ��sI(W%,"Start") �=�
4.Z%=�stockch_(-1000000):�usI(W%,"Start"):=�
9
ݤEnd_
>.�$wn%="InvW"��ITpage_(-(maxI_%*itip_%)):=�
C2�$wn%="StandW"��TITpage_(-(maxT_%*sitip_%)):=�
H1�$wn%="Saled"��SITpage_(-(maxS_%*sitip_%)):=�
M1�$wn%="Paled"��PITpage_(-(maxP_%*sitip_%)):=�
R1�$wn%="BankL"��BITpage_(-(maxB_%*sitip_%)):=�
W/� Z%:Z%=�stockch1_:�Z%=� ��sI(W%,"End") �=�
\+Z%=�stockch_(1000000):�usI(W%,"End"):=�
aJݤlinkhS_:� Z%,A$,B$,C$:A$=�(I%+65):B$=�((I%-12)/8+65)+�((I%-12)�8+65)
fȎ curlink_% �
p\� 7:�!i%<45:C$=�gId(invw%,!i%):�C$,":"):C$=�C$,2)��(C$)=1��(C$)=3�C$=�C$,1)+":" �C$=""
uA�I%<12�Z%=�pII(invw%,!i%,C$+A$+"A") �Z%=�pII(invw%,!i%,C$+B$)
z=� 8:�I%<12�Z%=�pII(saled%,!i%,A$) �Z%=�pII(saled%,!i%,B$)
=� 9:�I%<12�Z%=�pII(paled%,!i%,A$) �Z%=�pII(paled%,!i%,B$)
�,� 10:�I%<12�$!Saled4_%=A$ �$!Saled4_%=B$
��rI(W%,"Saled4")
�,� 11:�I%<12�$!Paled4_%=A$ �$!Paled4_%=B$
��rI(W%,"Paled4")
�(� 12:�I%<12�$!r99S_%=A$ �$!r99S_%=B$
��rI(W%,"r99S")
�(� 13:�I%<12�$!r99P_%=A$ �$!r99P_%=B$
��rI(W%,"r99P")
�3� 15:�I%<12�$!Sm1_%=A$ �$!Sm1_%=�((I%-12)/8+65)
� Z%=�Sm1_
�3� 16:�I%<12�$!Pm1_%=A$ �$!Pm1_%=�((I%-12)/8+65)
� Z%=�Pm1_
��
�=�
�MݤlinkbS_:� Z%,A$:A$=�(I%+65):�W%>0:�W%!12>0:�I%<12�Z%=�pII(W%!12,!i%,A$)
�=�
� ݤlinkS_
�� Z%
�Ȏ curlink_% �
�� 6:Z%=�window("CFindSu"):$!CSSupplier_%=CSuppliers_$(I%+1):CSSupplie_$=$!CSSupplier_%:�rI(W%,"CSSupplier"):�setC_(3):CS_%=I%+1:CSuwind%=0:CSuW%=0:Z%=�window("CustomW"):Z%=�Cupdatesupplier_:Z%=�window("CFindSu")
o� 7:$!ITsupplier_%=CSuppliers_$(I%+1):ITsupnumN_%=CSuNumber_%(I%+1):�rI(invW%,"ITsupplier"):Z%=�ITsupplier_
]� 8:Z%=�pII(saled%,!i%,CSuppliers_$(I%+1)):SITn_%(sitp_%+!i%/sitif_%+1)=CSuNumber_%(I%+1)
V� 10:$!Saled1_%="#"+�(I%+1)+"="+CSuppliers_$(I%+1):�rI(W%,"Saled1"):SITn_%(0)=I%+1
$P� 12:$!r33S_%="#"+�(I%+1)+"="+CSuppliers_$(I%+1):�rI(W%,"r33S"):SITn1_%=I%+1
.]� 14:$!SCust_%="#"+�(I%+1)+"="+CSuppliers_$(I%+1):�rI(W%,"SCust"):�setC_(11):SITn2_%=I%+1
3 � 17:
8�
==�
B�ݤinvoc_:� Z%:Z%=�Cupdatesupplier_:Z%=�window("InvW"):$!ITsupplier_%=$!CSuName_%:ITsupnumN_%=CSuNumber_%(CS_%):�rI(invW%,"ITsupplier"):=�ITsupplier_
G ݤlinkF_
L� Z%
QȎ fonlink_% �
V$� 1:j_f4%=I%-1:!b%=1:Z%=�Dfname_
[&� 2:j_f%=I%-1:!b%=1:Z%=�Lfontname_
`'� 3:j_f1%=I%-1:!b%=1:Z%=�Listfname_
e'� 4:j_f2%=I%-1:!b%=1:Z%=�Sfontname_
j%� 5:j_f3%=I%-1:!b%=1:Z%=�SLfname_
o(� 6:j_f5%=I%-1:!b%=1:Z%=�CSfontname_
t&� 7:j_f6%=I%-1:!b%=1:Z%=�CSLfname_
y/� 8,9,14:OrderFU_%=I%-1:!b%=1:Z%=�IOrderfu_
~-� 10:SaledR_%(15)=I%-1:!b%=1:Z%=�Safname_
�-� 11:PaledR_%(15)=I%-1:!b%=1:Z%=�Pafname_
�,� 12:BaledR_%(9)=I%-1:!b%=1:Z%=�Bafname_
�&� 13:Xnam_%=I%-1:!b%=1:Z%=�Xfname_
�*� 15:VatC_%(8)=I%-1:!b%=1:Z%=�Vafname_
�*� 16:WatC_%(8)=I%-1:!b%=1:Z%=�Wafname_
��
�g�fonlink_%>IAfon_%+1�fonlink_%<=IOicons%+IAfon_%�IOrderF_%(fonlink_%-IAfon_%)=I%-1:!b%=1:=�IOrderf_
�=�
�*ݤlinkI_:$!ITnum_%=invL_$(I%):=�ITnum_
�
�ݤStSort1_:=�
�ݤStsn_:=�
�ݤStrn_:=�
�
ݤCSuSort_:�wl_(28):=�
_
d���SiSort_:� A%,B%,C%,D%,Z%:B%=sitif_%:ș&406C0:�A%=1�maxS_%*sitip_%:supp_%(A%)=A%:�:�A%=2�maxS_%*sitip_%:�C%=A%�2 �-1:D%=(C%-1)*B%+1
i��SITe_$(D%)<>""��cd_(SITe_$(D%))<�cd_(SITe_$(D%-B%))�SITe_$(0)=SITe_$(D%-B%):SITe_$(D%-B%)=SITe_$(D%):SITe_$(D%)=SITe_$(0):supp_%(0)=supp_%(C%-1):supp_%(C%-1)=supp_%(C%):supp_%(C%)=supp_%(0) �C%=2
n�
sMș&406C4,A%/(maxS_%*sitip_%)*100:�:�swapsit_:ș&406C1:SITe_$(0)=today_$:�
x���PiSort_:� A%,B%,C%,D%,Z%:B%=sitif_%:ș&406C0:�A%=1�maxP_%*sitip_%:supp_%(A%)=A%:�:�A%=2�maxP_%*sitip_%:�C%=A%�2 �-1:D%=(C%-1)*B%+1
}��PITe_$(D%)<>""��cd_(PITe_$(D%))<�cd_(PITe_$(D%-B%))�PITe_$(0)=PITe_$(D%-B%):PITe_$(D%-B%)=PITe_$(D%):PITe_$(D%)=PITe_$(0):supp_%(0)=supp_%(C%-1):supp_%(C%-1)=supp_%(C%):supp_%(C%)=supp_%(0) �C%=2
��
�Mș&406C4,A%/(maxP_%*sitip_%)*100:�:�swapPit_:ș&406C1:PITe_$(0)=today_$:�
����BiSort_:� A%,B%,C%,D%,Z%:B%=bitif_%:ș&406C0:�A%=1�maxB_%*sitip_%:supp_%(A%)=A%:�:�A%=2�maxB_%*sitip_%:�C%=A%�2 �-1:D%=(C%-1)*B%+1
���BITe_$(D%)<>""��cd_(BITe_$(D%))<�cd_(BITe_$(D%-B%))�BITe_$(0)=BITe_$(D%-B%):BITe_$(D%-B%)=BITe_$(D%):BITe_$(D%)=BITe_$(0):supp_%(0)=supp_%(C%-1):supp_%(C%-1)=supp_%(C%):supp_%(C%)=supp_%(0) �C%=2
��
�Mș&406C4,A%/(maxB_%*sitip_%)*100:�:�swapBit_:ș&406C1:BITe_$(0)=today_$:�
;
@6��swapsit_:� A%,B%,C%,D%:B%=maxS_%*sitip_%:A%=B%:�
E�supp_%(B%)<>B%�
J��swapsit1_(0,A%):�:�swapsit1_(A%,supp_%(A%)):C%=A%:A%=supp_%(A%):supp_%(C%)=C%:ș&406C4,A%/(maxS_%*sitip_%)*100:� supp_%(A%)=B%:�swapsit1_(A%,0):supp_%(A%)=A%
O�
T8B%-=1:A%=B%:ș&406C4,B%/(maxS_%*sitip_%)*100:�B%=1:�
Y6��swapPit_:� A%,B%,C%,D%:B%=maxP_%*sitip_%:A%=B%:�
^�supp_%(B%)<>B%�
c��swapPit1_(0,A%):�:�swapPit1_(A%,supp_%(A%)):C%=A%:A%=supp_%(A%):supp_%(C%)=C%:ș&406C4,A%/(maxP_%*sitip_%)*100:� supp_%(A%)=B%:�swapPit1_(A%,0):supp_%(A%)=A%
h�
m8B%-=1:A%=B%:ș&406C4,B%/(maxP_%*sitip_%)*100:�B%=1:�
r6��swapBit_:� A%,B%,C%,D%:B%=maxB_%*sitip_%:A%=B%:�
w�supp_%(B%)<>B%�
|��swapBit1_(0,A%):�:�swapBit1_(A%,supp_%(A%)):C%=A%:A%=supp_%(A%):supp_%(C%)=C%:ș&406C4,A%/(maxB_%*sitip_%)*100:� supp_%(A%)=B%:�swapBit1_(A%,0):supp_%(A%)=A%
��
�8B%-=1:A%=B%:ș&406C4,B%/(maxB_%*sitip_%)*100:�B%=1:�
�
���swapsit1_(C%,B%)
�� A%
�"�C%=0�C%=maxS_%*sitip_% �C%-=1
�"�B%=0�B%=maxS_%*sitip_% �B%-=1
�?�A%=2�sitif_%:SITe_$(C%*sitif_%+A%)=SITe_$(B%*sitif_%+A%):�
�_SITa_$(C%)=SITa_$(B%):SITh_$(C%)=SITh_$(B%):SITs_$(C%)=SITs_$(B%):SITn_%(C%+1)=SITn_%(B%+1)
��
���swapPit1_(C%,B%)
�� A%
�"�C%=0�C%=maxP_%*sitip_% �C%-=1
�"�B%=0�B%=maxP_%*sitip_% �B%-=1
�?�A%=2�sitif_%:PITe_$(C%*sitif_%+A%)=PITe_$(B%*sitif_%+A%):�
_PITa_$(C%)=PITa_$(B%):PITh_$(C%)=PITh_$(B%):PITs_$(C%)=PITs_$(B%):PITn_%(C%+1)=PITn_%(B%+1)
�
��swapBit1_(C%,B%)
� A%
"�C%=0�C%=maxB_%*sitip_% �C%-=1
"�B%=0�B%=maxB_%*sitip_% �B%-=1
!?�A%=2�bitif_%:BITe_$(C%*bitif_%+A%)=BITe_$(B%*bitif_%+A%):�
&/BITf_$(C%)=BITf_$(B%):BITt_$(C%)=BITt_$(B%)
+�
0
q2ݤCSuFind_:Z%=�Csuppup_(0):=�window("CFindSu")
v
�8ݤCSSupplier_:CSSupplie_$=$!CSSupplier_%:=�CSuFirst_
�
�ݤr11S_:=�updatesaled2_
� ݤr111S_:=�updatesaled2_
�ݤr22S_:=�updatesaled2_
� ݤr222S_:=�updatesaled2_
�tݤr33S_:� Z%:�$!r33S_%,1)="#"�Z%=�sf_($!r33S_%,1):$!r33S_%="#"+�(Z%)+"="+CSuppliers_$(Z%):SITn1_%=Z% �SITn1_%=0
�=�updatesaled2_
�ݤr44S_:=�Salfinda_
� ݤr444S_:=�updatesaled2_
�ݤr55S_:=�updatesaled2_
�ݤr66S_:=�updatesaled2_
� ݤr666S_:=�updatesaled2_
�ݤr77S_:=�updatesaled2_
� ݤr777S_:=�updatesaled2_
� ݤr7777S_:=�updatesaled2_
�ݤr88S_:=�updatesaled2_
� ݤr888S_:=�updatesaled2_
�ݤr99S_:=�Salfindh_
� ݤr999S_:=�updatesaled2_
�ݤraaS_:=�updatesaled2_
�ݤrbbS_:=�Salfinds_
� ݤrbbbS_:=�updatesaled2_
�
ݤr11P_:=�updatepaled2_
ݤr111P_:=�updatepaled2_
ݤr22P_:=�updatepaled2_
ݤr222P_:=�updatepaled2_
sݤr33P_:� Z%:�$!r33S_%,1)="#"�Z%=�sf_($!r33P_%,3):$!r33P_%="#"+�(Z%)+"="+Suppliers_$(Z%):PITn1_%=Z% �PITn1_%=0
=�updatepaled2_
ݤr44P_:=�Palfinda_
% ݤr444P_:=�updatepaled2_
*ݤr55P_:=�updatepaled2_
/ݤr66P_:=�updatepaled2_
4 ݤr666P_:=�updatepaled2_
9ݤr77P_:=�updatepaled2_
> ݤr777P_:=�updatepaled2_
C ݤr7777P_:=�updatepaled2_
Hݤr88P_:=�updatepaled2_
M ݤr888P_:=�updatepaled2_
Rݤr99P_:=�Palfindh_
W ݤr999P_:=�updatepaled2_
\ݤraaP_:=�updatepaled2_
aݤrbbP_:=�Palfinds_
f ݤrbbbP_:=�updatepaled2_
k
pݤr11B_:=�updatebank2_
uݤr111B_:=�updatebank2_
zݤr22B_:=�updatebank2_
ݤr33B_:=�Balfinda_
�ݤr333B_:=�updatebank2_
�ݤr44B_:=�updatebank2_
�ݤr444B_:=�updatebank2_
�ݤr55B_:=�Balfinds_
�ݤr555B_:=�updatebank2_
�ݤr66B_:=�updatebank2_
�
�3ݤSaled1_:SaledF_$(1)=$!Saled1_%:SITn_%(0)=0:=�
�0ݤSaled2_:SaledF_$(2)=$!Saled2_%:=�salfinda_
�'ݤSaled3_:SaledF_$(3)=$!Saled3_%:=�
�0ݤSaled4_:SaledF_$(4)=$!Saled4_%:=�salfindh_
�'ݤSaled5_:SaledF_$(5)=$!Saled5_%:=�
�0ݤSaled6_:SaledF_$(6)=$!Saled6_%:=�salfinds_
�2ݤSaled7_:SaledF_$(7)=$!Saled7_%:�setC_(13):=�
ʵݤinitsaled1_:$!Saled1_%=SaledF_$(1):$!Saled2_%=SaledF_$(2):$!Saled3_%=SaledF_$(3):$!Saled4_%=SaledF_$(4):$!Saled5_%=SaledF_$(5):$!Saled6_%=SaledF_$(6):$!Saled7_%=SaledF_$(7):=�
�v��updatesaled1d_:$!Saled1_%="":$!Saled2_%="":$!Saled3_%="":$!Saled4_%="":$!Saled5_%="":$!Saled6_%="":$!Saled7_%=""
�|�rI(W%,"Saled1"):�rI(W%,"Saled2"):�rI(W%,"Saled3"):�rI(W%,"Saled4"):�rI(W%,"Saled5"):�rI(W%,"Saled6"):�rI(W%,"Saled7"):�
�v��updatepaled1d_:$!Paled1_%="":$!Paled2_%="":$!Paled3_%="":$!Paled4_%="":$!Paled5_%="":$!Paled6_%="":$!Paled7_%=""
�|�rI(W%,"Paled1"):�rI(W%,"Paled2"):�rI(W%,"Paled3"):�rI(W%,"Paled4"):�rI(W%,"Paled5"):�rI(W%,"Paled6"):�rI(W%,"Paled7"):�
��ݤupdatesaled1_:� Z%:SaledF_$(1)=$!Saled1_%:SaledF_$(2)=$!Saled2_%:SaledF_$(3)=$!Saled3_%:SaledF_$(4)=$!Saled4_%:SaledF_$(5)=$!Saled5_%:SaledF_$(6)=$!Saled6_%:SaledF_$(7)=$!Saled7_%:Z%=�salfindh_:Z%=�salfinda_
�=�salfinds_
�Iݤsalfinda_:$!Saledacc_%=�getbank_(SaledF_$(2)):�rI(W%,"Saledacc"):=�
�Jݤsalfindh_:$!Saledhea_%=�getheadS_(SaledF_$(4)):�rI(W%,"Saledhea"):=�
�ݤsalfinds_
� � V$,H%
C�SaledF_$(6)<>"p"�$t_%=SaledF_$(6):H%=t_%:�m1_%:V$=$t_% �V$="p"
q�V$="P"�V$="Paid" ��V$="R"�V$=Q_$ ��V$="U"�V$="Unpaid" ��V$="O"�V$="over-Paid" ��V$="p"�V$="part-Paid" �V$=""
)$!Saledsta_%=V$:�rI(W%,"Saledsta"):=�
Qݤgetbank_($t_%):� Z%,H%:H%=t_%:�m1_%:Z%=�($t_%)-64:�Z%>0�Z%<13�=BankNN_$(Z%)
=""
PݤgetheadS_($t_%):� Z%,Z_%,B_$,H%:H%=t_%:�m1_%:Z%=�($t_%)-65:�Z%<0�Z%>11�=""
$cB_$=Shead1_$(Z%+1):�($t_%)>1:Z_%=�(�$t_%,1))-64:�Z_%>0�Z_%<9�B_$=B_$+":"+Shead1_$(Z%*8+12+Z_%)
)=B_$
.PݤgetheadP_($t_%):� Z%,Z_%,B_$,H%:H%=t_%:�m1_%:Z%=�($t_%)-65:�Z%<0�Z%>11�=""
3cB_$=Phead1_$(Z%+1):�($t_%)>1:Z_%=�(�$t_%,1))-64:�Z_%>0�Z_%<9�B_$=B_$+":"+Phead1_$(Z%*8+12+Z_%)
8=B_$
=LݤgethN_($t_%):� Z%,Z_%,B_$,H%:H%=t_%:�m1_%:Z%=�($t_%)-65:�Z%<0�Z%>11�=0
BP�($t_%)>1:Z_%=�(�$t_%,1))-64:�Z_%>0�Z_%<9�=Z%*8+Z_% ��($t_%)>1�=0 �=Z%*8+1
G
L@ݤSalfinda_:$!r444S_%=�getbank_($!r44S_%):�rI(W%,"r444S"):=�
QAݤSalfindh_:$!r999S_%=�getheadS_($!r99S_%):�rI(W%,"r999S"):=�
VݤSalfinds_:� V$,H%
[=�$!rbbS_%<>"p"�$t_%=$!rbbS_%:H%=t_%:�m1_%:V$=$t_% �V$="p"
`q�V$="P"�V$="Paid" ��V$="R"�V$=Q_$ ��V$="U"�V$="Unpaid" ��V$="O"�V$="over-Paid" ��V$="p"�V$="part-Paid" �V$=""
e#$!rbbbS_%=V$:�rI(W%,"rbbbS"):=�
j
o@ݤPalfinda_:$!r444P_%=�getbank_($!r44P_%):�rI(W%,"r444P"):=�
tAݤPalfindh_:$!r999P_%=�getheadP_($!r99P_%):�rI(W%,"r999P"):=�
yݤPalfinds_:� V$,H%
~=�$!rbbP_%<>"p"�$t_%=$!rbbP_%:H%=t_%:�m1_%:V$=$t_% �V$="p"
�q�V$="P"�V$="Paid" ��V$="R"�V$=Q_$ ��V$="U"�V$="Unpaid" ��V$="O"�V$="over-Paid" ��V$="p"�V$="part-Paid" �V$=""
�#$!rbbbP_%=V$:�rI(W%,"rbbbP"):=�
�
�@ݤBalfinda_:$!r333B_%=�getbank_($!r33B_%):�rI(W%,"r333B"):=�
�@ݤBalfinds_:� V$,H%:$t_%=$!r55B_%:H%=t_%:�m1_%:$!r55B_%=$t_%
�G�$!r55B_%<>""�$!r55B_%<>"P"�$!r55B_%<>"R"�$!r55B_%<>"�"�$!r55B_%=""
�?V$=$!r55B_%:�V$="P"�V$="Paid" ��V$="R"�V$="�"�V$=Q_$ �V$=""
�2$!r555B_%=V$:�rI(W%,"r55B"):�rI(W%,"r555B"):=�
�
�ݤSaledFi_:�saled%=0�=�
�$=�SalesFi_(0,maxS_%*sitip_%-1,1)
��ݤSalesFi_(A_%,AA_%,AAA_%):� A$,B$,C$,D$,E$,F$,G$,A%,B%,C%,D%,E%,H%,Z%:ș&406C0:Z%=�updatesaled1_:E%=saledp_%:H%=t_%:$t_%=SaledF_$(1):�m1_%:A$=$t_%:$t_%=SaledF_$(2):�m1_%:B$=$t_%:$t_%=SaledF_$(3):�m1_%:C$=$t_%
�>�A$,1)="#":SITn_%(0)=CSuNumber_%(�sf_(A$,1)) �SITn_%(0)=0
ĝ$t_%=SaledF_$(4):�m1_%:D$=$t_%:$t_%=SaledF_$(5):�m1_%:E$=$t_%:F$=$!Saledsta_%:G$=�convis_(�convsi_(SaledF_$(7)),""):�Z%=A_%�AA_%�AAA_%:A%=Z%*sitif_%:B%=0
�9$t_%=SITe_$(A%+3):�m1_%:�SITn_%(0)=0:�$t_%,A$)�B%+=1
�.�SITn_%(0)>0:�SITn_%(0)=SITn_%(Z%+1)�B%+=1
� �SITe_$(A%+4)=B$�B$=""�B%+=1
�,$t_%=SITe_$(A%+5):�m1_%:�$t_%,C$)�B%+=1
�W�SITe_$(A%+10),1)=�D$,1)��SITe_$(A%+10),1)=�D$,1)��SITe_$(A%+10),1)=D$�D$=""�B%+=1
�-$t_%=SITe_$(A%+11):�m1_%:�$t_%,E$)�B%+=1
� �SITs_$(Z%)=F$�F$=""�B%+=1
� �SITe_$(A%+6)=G$�G$=""�B%+=1
��B%=7�C%=Z%:Z%=AA_%
�#�:�B%<7�ș&406C1:=�updatesaled_
�HZ%=sitp_%+(E%-1)/sitif_%:D%=�window("Saled"):�Z%<C%��SITdown_(Z%-C%)
�Z%>C%��SITup_(Z%-C%)
,�sitp_%=0�E%=(E%-1)�sitif_%+C%*sitif_%+1
\�sitp_%=maxS_%*sitip_%-sitip_%�E%=(E%-1)�sitif_%+(C%-(maxS_%*sitip_%-sitip_%))*sitif_%+1
"�setC1_(saled%,E%):ș&406C1:=�
DݤSaledBa_:� Z%:Z%=sitp_%+(saledp_%-1)/sitif_%:�Z%=0�saled%=0�=�
=�SalesFi_(Z%-1,0,-1)
NݤSaledFo_:Z%=sitp_%+(saledp_%-1)/sitif_%:�Z%=maxS_%*sitip_%-1�saled%=0�=�
#'=�SalesFi_(Z%+1,maxS_%*sitip_%-1,1)
(
-ݤPaledFi_:�paled%=0�=�
2$=�PalesFi_(0,maxP_%*sitip_%-1,1)
7�ݤPalesFi_(A_%,AA_%,AAA_%):� A$,B$,C$,D$,E$,F$,G$,A%,B%,C%,D%,E%,H%,Z%:ș&406C0:Z%=�updatepaled1_:E%=paledp_%:H%=t_%:$t_%=PaledF_$(1):�m1_%:A$=$t_%:$t_%=PaledF_$(2):�m1_%:B$=$t_%:$t_%=PaledF_$(3):�m1_%:C$=$t_%
<PITn_%(0)=0
A�$t_%=PaledF_$(4):�m1_%:D$=$t_%:$t_%=PaledF_$(5):�m1_%:E$=$t_%:F$=$!Paledsta_%:G$=�convis_(�convsi_(PaledF_$(7)),""):�Z%=A_%�AA_%�AAA_%:A%=Z%*sitif_%:B%=0
F9$t_%=PITe_$(A%+3):�m1_%:�PITn_%(0)=0:�$t_%,A$)�B%+=1
K.�PITn_%(0)>0:�PITn_%(0)=PITn_%(Z%+1)�B%+=1
P �PITe_$(A%+4)=B$�B$=""�B%+=1
U,$t_%=PITe_$(A%+5):�m1_%:�$t_%,C$)�B%+=1
ZW�PITe_$(A%+10),1)=�D$,1)��PITe_$(A%+10),1)=�D$,1)��PITe_$(A%+10),1)=D$�D$=""�B%+=1
_-$t_%=PITe_$(A%+11):�m1_%:�$t_%,E$)�B%+=1
d �PITs_$(Z%)=F$�F$=""�B%+=1
i �PITe_$(A%+6)=G$�G$=""�B%+=1
n�B%=7�C%=Z%:Z%=AA_%
s#�:�B%<7�ș&406C1:=�updatepaled_
xHZ%=pitp_%+(E%-1)/sitif_%:D%=�window("Paled"):�Z%<C%��PITdown_(Z%-C%)
}�Z%>C%��PITup_(Z%-C%)
�,�pitp_%=0�E%=(E%-1)�sitif_%+C%*sitif_%+1
�\�pitp_%=maxP_%*sitip_%-sitip_%�E%=(E%-1)�sitif_%+(C%-(maxP_%*sitip_%-sitip_%))*sitif_%+1
�"�setC1_(paled%,E%):ș&406C1:=�
�DݤPaledBa_:� Z%:Z%=pitp_%+(paledp_%-1)/sitif_%:�Z%=0�paled%=0�=�
�=�PalesFi_(Z%-1,0,-1)
�NݤPaledFo_:Z%=pitp_%+(paledp_%-1)/sitif_%:�Z%=maxP_%*sitip_%-1�paled%=0�=�
�'=�PalesFi_(Z%+1,maxP_%*sitip_%-1,1)
�
�3ݤPaled1_:PaledF_$(1)=$!Paled1_%:PITn_%(0)=0:=�
�0ݤPaled2_:PaledF_$(2)=$!Paled2_%:=�palfinda_
�'ݤPaled3_:PaledF_$(3)=$!Paled3_%:=�
�0ݤPaled4_:PaledF_$(4)=$!Paled4_%:=�palfindh_
�'ݤPaled5_:PaledF_$(5)=$!Paled5_%:=�
�0ݤPaled6_:PaledF_$(6)=$!Paled6_%:=�palfinds_
�2ݤPaled7_:PaledF_$(7)=$!Paled7_%:�setC_(13):=�
͵ݤinitpaled1_:$!Paled1_%=PaledF_$(1):$!Paled2_%=PaledF_$(2):$!Paled3_%=PaledF_$(3):$!Paled4_%=PaledF_$(4):$!Paled5_%=PaledF_$(5):$!Paled6_%=PaledF_$(6):$!Paled7_%=PaledF_$(7):=�
��ݤupdatepaled1_:� Z%:PaledF_$(1)=$!Paled1_%:PaledF_$(2)=$!Paled2_%:PaledF_$(3)=$!Paled3_%:PaledF_$(4)=$!Paled4_%:PaledF_$(5)=$!Paled5_%:PaledF_$(6)=$!Paled6_%:PaledF_$(7)=$!Paled7_%:Z%=�palfindh_:Z%=�palfinda_
�=�palfinds_
�Iݤpalfinda_:$!Paledacc_%=�getbank_(PaledF_$(2)):�rI(W%,"Paledacc"):=�
�Jݤpalfindh_:$!Paledhea_%=�getheadP_(PaledF_$(4)):�rI(W%,"Paledhea"):=�
�ݤpalfinds_:� V$,H%
�C�PaledF_$(6)<>"p"�H%=t_%:$t_%=PaledF_$(6):�m1_%:V$=$t_% �V$="p"
�q�V$="P"�V$="Paid" ��V$="R"�V$=Q_$ ��V$="U"�V$="Unpaid" ��V$="O"�V$="over-Paid" ��V$="p"�V$="part-Paid" �V$=""
�)$!Paledsta_%=V$:�rI(W%,"Paledsta"):=�
�
�$ݤBank1_:BankF_$(1)=$!Bank1_%:=�
.ݤBank2_:BankF_$(2)=$!Bank2_%:=�banfinda1_
.ݤBank3_:BankF_$(3)=$!Bank3_%:=�banfinds1_
.ݤBank4_:BankF_$(4)=$!Bank4_%:=�banfinda2_
.ݤBank5_:BankF_$(5)=$!Bank5_%:=�banfinds2_
$ݤBank6_:BankF_$(6)=$!Bank6_%:=�
/ݤBank7_:BankF_$(7)=$!Bank7_%:�setC_(14):=�
"�ݤinitbank1_:$!Bank1_%=BankF_$(1):$!Bank2_%=BankF_$(2):$!Bank3_%=BankF_$(3):$!Bank4_%=BankF_$(4):$!Bank5_%=BankF_$(5):$!Bank6_%=BankF_$(6):$!Bank7_%=BankF_$(7):=�
'�ݤupdatebank1_:� Z%,H%:$t_%=$!Bank3_%:H%=t_%:�m1_%:BankF_$(1)=$!Bank1_%:BankF_$(2)=$!Bank2_%:�$t_%="R"�$!Bank3_%="�":�rI(bank1%,"Bank3")
,nBankF_$(3)=$!Bank3_%:BankF_$(4)=$!Bank4_%:$t_%=$!Bank5_%:�m1_%:�$t_%="R"�$!Bank5_%="�":�rI(bank1%,"Bank5")
1|BankF_$(5)=$!Bank5_%:BankF_$(6)=$!Bank6_%:BankF_$(7)=$!Bank7_%:Z%=�banfinda1_:Z%=�banfinda2_:Z%=�banfinds1_:=�banfinds2_
6n��updatebank1d_:$!Bank1_%="":$!Bank2_%="":$!Bank3_%="":$!Bank4_%="":$!Bank5_%="":$!Bank6_%="":$!Bank7_%=""
;u�rI(W%,"Bank1"):�rI(W%,"Bank2"):�rI(W%,"Bank3"):�rI(W%,"Bank4"):�rI(W%,"Bank5"):�rI(W%,"Bank6"):�rI(W%,"Bank7"):�
@Iݤbanfinda1_:$!Bank1acc_%=�getbank_(BankF_$(2)):�rI(W%,"Bank1acc"):=�
EIݤbanfinda2_:$!Bank2acc_%=�getbank_(BankF_$(4)):�rI(W%,"Bank2acc"):=�
Jݤbanfinds1_:� V$,H%
O(H%=t_%:$t_%=BankF_$(3):�m1_%:V$=$t_%
T,�V$="P"�V$="Paid" ��V$="R"�V$="�"�V$=Q_$
Y)$!Bank1sta_%=V$:�rI(W%,"Bank1sta"):=�
^ݤbanfinds2_:� V$,H%
c(H%=t_%:$t_%=BankF_$(5):�m1_%:V$=$t_%
h,�V$="P"�V$="Paid" ��V$="R"�V$="�"�V$=Q_$
m)$!Bank2sta_%=V$:�rI(W%,"Bank2sta"):=�
r
wݤBankfi_:�bankl%=0�=�
|$=�BanksFi_(0,maxB_%*bitip_%-1,1)
��ݤBanksFi_(A_%,AA_%,AAA_%):� A$,B$,C$,D$,E$,F$,G$,A%,B%,C%,D%,E%,H%,Z%:ș&406C0:Z%=�updatebank1_:E%=bankp_%:H%=t_%:$t_%=BankF_$(1):�m1_%:A$=$t_%
�l$t_%=BankF_$(6):�m1_%:F$=$t_%:G$=�convis_(�convsi_(BankF_$(7)),""):�Z%=A_%�AA_%�AAA_%:A%=Z%*bitif_%:B%=0
�,$t_%=BITe_$(A%+2):�m1_%:�$t_%,A$)�B%+=1
�B%=�accsta_(A%,B%)
�,$t_%=BITe_$(A%+8):�m1_%:�$t_%,F$)�B%+=1
� �BITe_$(A%+5)=G$�G$=""�B%+=1
��B%=4�C%=Z%:Z%=AA_%
�#�:�B%<4�ș&406C1:=�updatebankl_
�HZ%=bitp_%+(E%-1)/bitif_%:D%=�window("BankL"):�Z%<C%��BITdown_(Z%-C%)
��Z%>C%��BITup_(Z%-C%)
�,�bitp_%=0�E%=(E%-1)�bitif_%+C%*bitif_%+1
�\�bitp_%=maxB_%*bitip_%-bitip_%�E%=(E%-1)�bitif_%+(C%-(maxB_%*bitip_%-bitip_%))*bitif_%+1
�"�setC1_(bankl%,E%):ș&406C1:=�
�@ݤaccsta_(a_%,B%):� A%,H%,B$,C$,D$,E$,B_$,C_$,D_$,E_$:H%=t_%
�{$t_%=BankF_$(2):�m1_%:B$=$t_%:$t_%=BankF_$(3):�m1_%:C$=$t_%:$t_%=BankF_$(4):�m1_%:D$=$t_%:$t_%=BankF_$(5):�m1_%:E$=$t_%
�KB_$=BITe_$(a_%+3):C_$=BITe_$(a_%+4):D_$=BITe_$(a_%+6):E_$=BITe_$(a_%+7)
ѡ�B_$=B$�C_$=C$�D_$=D$�E_$=E$�B$=""�C$=""�D$=""�E$=""�B_$=B$�C$=""�D$=""�E$=""�C_$=C$�B$=""�D$=""�E$=""�D_$=D$�B$=""�C$=""�E$=""�E_$=E$�B$=""�C$=""�D$=""�A%=1
�=�C_$=C$�E_$=E$�B$=""�D$=""�B_$=B$�D_$=D$�C$=""�E$=""�A%=1
��A%=1�=B%+1 �=B%
�BݤBankba_:� Z%:Z%=bitp_%+(bankp_%-1)/bitif_%:�Z%=0�bankl%=0�=�
�=�BanksFi_(Z%-1,0,-1)
�LݤBankfo_:Z%=bitp_%+(bankp_%-1)/bitif_%:�Z%=maxB_%*bitip_%-1�bankl%=0�=�
�'=�BanksFi_(Z%+1,maxB_%*bitip_%-1,1)
�
I ��SFirst_:�$!SCust_%=""��
N� A%,H%,Z%,A$:H%=t_%
S ș&406C0
X�SITn2_%>0�
]Z%=1
b�
g $t_%=$!SCust_%:�m1_%:A$=$t_%
lU�A%=1�Cmaxsupp_%:�Csupp_$(A%),A$)�$!SCust_%=CSuppliers_$(A%):Z%=A%:A%=Cmaxsupp_%
q�
v�
{�Z%=0�$!SCust_%=""
� ș&406C1
� �rI(W%,"SCust"):�setC_(11):�
�Dݤgetcup_(A_$):� A%,H%,Z%:H%=t_%:$t_%=A_$:�m1_%:A_$=$t_%:oc_$=""
�^�A%=1�Cmaxsupp_%:�Csupp_$(A%),A_$)�Z%=CSuNumber_%(A%):oc_$=CSuppliers_$(A%):A%=Cmaxsupp_%
��:�Z%>0�=Z% �=0
�dݤgetcun_(A_%):� A%,A_$:�A%=1�Cmaxsupp_%:�A_%=CSuNumber_%(A%):A_$=CSuppliers_$(A%):A%=Cmaxsupp_%
�
�:=A_$
�ݤCSuFirst_
�� A%,H%,Z%,A$:H%=t_%
� ș&406C0
�8�CFindSu%>0�$t_%=$!CSSupplier_%:�m1_%:A$=$t_% �A$=""
� �A$=""�
��A%=1�Cmaxsupp_%
߿�Csupp_$(A%)+CSuPos_$(A%)+CSuContac_$(A%)+CSuTel_$(A%)+CSuFa_$(A%)=""�CS_%=A%:A%=Cmaxsupp_%:CSuwind%=0:CSuW%=0:Z%=�window("CustomW"):Z%=�Cupdatesupplier_:�CFindSu%>0�Z%=�window("CFindSu")
��
��
��A%=1�Cmaxsupp_%
��H%=t_%:$t_%=Csupp_$(A%)+CSuAd1_$(A%)+CSuAd2_$(A%)+CSuAd3_$(A%)+CSuAd4_$(A%)+CSuPos_$(A%):�m1_%:H%=u_%:$u_%=CSuContac_$(A%)+CSuTel_$(A%)+CSuFa_$(A%)+CSuCom1_$(A%)+CSuCom2_$(A%)+CSuSuppRe_$(A%)+CSuYourRe_$(A%)+CSuOrde_$(A%):�m1_%
���$t_%,A$)��$u_%,A$)�CS_%=A%:A%=Cmaxsupp_%:CSuwind%=0:CSuW%=0:Z%=�window("CustomW"):Z%=�Cupdatesupplier_:Z%=�window("CFindSu")
��
�
ș&406C1
occred_%=0:=�
ݤITSuFirst_
� A%,H%,Z%,A$:H%=t_%
�$!ITsupplier_%=""�=�
% ș&406C0
*e�A%=1�Cmaxsupp_%:�ITsupnumN_%=CSuNumber_%(A%)�$!ITsupplier_%=CSuppliers_$(A%)�Z%=A%:A%=Cmaxsupp_%
/�
4�Z%>0�ș&406C1:=�
9*Z%=0:$t_%=$!ITsupplier_%:�m1_%:A$=$t_%
>�A%=1�Cmaxsupp_%
Ce�Csupp_$(A%),A$)�$!ITsupplier_%=CSuppliers_$(A%):ITsupnumN_%=CSuNumber_%(A%):Z%=A%:A%=Cmaxsupp_%
H�
M ș&406C1
R �Z%>0�=�
W=�
\
aݤPITSuFirst_(A_$,a_%)
f �A_$=""�
k)�a_%=1:SITn_%(sitp_%+!i%/sitif_%+1)=0
p)�a_%=3:PITn_%(pitp_%+!i%/sitif_%+1)=0
u�
z�A_$=""�=""
��a_%=1:�SITn_%(sitp_%+!i%/sitif_%+1)>0:�getcun_(SITn_%(sitp_%+!i%/sitif_%+1))=A_$ �=A_$ ��a_%=1:SITn_%(sitp_%+!i%/sitif_%+1)=0
�)�a_%=3:PITn_%(pitp_%+!i%/sitif_%+1)=0
�H� A%,B%,H%,Z%,A$,B_%:H%=t_%:�a_%=1�a_%=4�B%=Cmaxsupp_% �B%=maxsupp_%
� ș&406C0
��(A_$)=�("#")�
�Z%=�sf_(A_$,a_%)
��
�#$t_%=A_$:�m1_%:A$=$t_%:�A%=1�B%
�.�a_%=1�a_%=4:�Csupp_$(A%),A$)�Z%=A%:A%=B%
��a_%=2�a_%=3:A%=B%
��
��
�wș&406C1:�a_%=1:SITn_%(sitp_%+!i%/sitif_%+1)=0:�Z%>0�SITn_%(sitp_%+!i%/sitif_%+1)=CSuNumber_%(Z%):=CSuppliers_$(Z%)
�"�a_%=4:�Z%>0�=CSuppliers_$(Z%)
�)�a_%=3:PITn_%(pitp_%+!i%/sitif_%+1)=0
��a_%=0�=""
�=A_$
�8ݤsf_(A_$,a_%):� Z%:�(A_$)=�("#")�Z%=�(�A_$,2,255))
�#�a_%=3:�Z%>0:�Z%<=maxsupp_%�=Z%
�$�a_%=1:�Z%>0:�Z%<=Cmaxsupp_%�=Z%
�=0
B
ݤCSuFor_
G� A%,H%,Z%,A$,B%:H%=t_%
L�CS_%=Cmaxsupp_%�=�
Q ș&406C0
V/$t_%=$!CSSupplier_%:�m1_%:A$=$t_%:B%=CS_%+1
[ �A$=""�
`�A%=B%�Cmaxsupp_%
e��Csupp_$(A%)+CSuPos_$(A%)+CSuContac_$(A%)+CSuTel_$(A%)+CSuFa_$(A%)=""�CS_%=A%:A%=Cmaxsupp_%:CSuwind%=0:CSuW%=0:Z%=�window("CustomW"):Z%=�Cupdatesupplier_:Z%=�window("CFindSu")
j�
o�
t�A%=B%�Cmaxsupp_%
y�H%=t_%:$t_%=Csupp_$(A%)+CSuAd1_$(A%)+CSuAd2_$(A%)+CSuAd3_$(A%)+CSuAd4_$(A%)+CSuPos_$(A%):�m1_%:H%=u_%:$u_%=CSuContac_$(A%)+CSuTel_$(A%)+CSuFa_$(A%)+CSuCom1_$(A%)+CSuCom2_$(A%)+CSuSuppRe_$(A%)+CSuYourRe_$(A%)+CSuOrde_$(A%):�m1_%
~��$t_%,A$)��$u_%,A$)�CS_%=A%:A%=Cmaxsupp_%:CSuwind%=0:CSuW%=0:Z%=�window("CustomW"):Z%=�Cupdatesupplier_:Z%=�window("CFindSu")
��
��
� ș&406C1
�occred_%=0:=�
�
�ݤCSuBack_
�� A%,B%,H%,Z%,A$:H%=t_%
��CS_%=1�=�
ș&406C0
/$t_%=$!CSSupplier_%:�m1_%:A$=$t_%:B%=CS_%-1
�A$=""�
�A%=B%�1 �-1
��Csupp_$(A%)+CSuPos_$(A%)+CSuContac_$(A%)+CSuTel_$(A%)+CSuFa_$(A%)=""�CS_%=A%:A%=1:CSuwind%=0:CSuW%=0:Z%=�window("CustomW"):Z%=�Cupdatesupplier_:Z%=�window("CFindSu")
�
�
#�A%=B%�1 �-1
(�H%=t_%:$t_%=Csupp_$(A%)+CSuAd1_$(A%)+CSuAd2_$(A%)+CSuAd3_$(A%)+CSuAd4_$(A%)+CSuPos_$(A%):�m1_%:H%=u_%:$u_%=CSuContac_$(A%)+CSuTel_$(A%)+CSuFa_$(A%)+CSuCom1_$(A%)+CSuCom2_$(A%)+CSuSuppRe_$(A%)+CSuYourRe_$(A%)+CSuOrde_$(A%):�m1_%
-y�$t_%,A$)��$u_%,A$)�CS_%=A%:A%=1:CSuwind%=0:CSuW%=0:Z%=�window("CustomW"):Z%=�Cupdatesupplier_:Z%=�window("CFindSu")
2�
7�
< ș&406C1
Aoccred_%=0:=�
F
�
ݤInsert_
� � Z%,V_%
�O�$wn%="Saled"�Z%=�firstfreesal_(0)-4:�SITdown_(sitp_%-Z%):�setSITdat_(0):=�
�P�$wn%="StandW"�Z%=�firstfreetal_(0)-4:�TITdown_(titp_%-Z%):�setTITdat_(0):=�
�P�$wn%="Paled"�Z%=�firstfreepaym_(0)-4:�PITdown_(pitp_%-Z%):�setPITdat_(0):=�
�P�$wn%="BankL"�Z%=�firstfreebank_(0)-4:�BITdown_(bitp_%-Z%):�setBITdat_(0):=�
�$wn%="CustomW"�
!�CFindSu%>0�$!CSSupplier_%=""
Z%=�CSuFirst_:V_%=�
�
�$wn%="InvW"�=�NewSale_
"=V_%
'
,XݤNewSale_:� Z%:�$wn%="InvW"�$!ITsupplier_%="":�rI(invW%,"ITsupplier"):�setC_(49):=�
6=�
O ݤUser_:=�window("User")
^bݤCustomW_:� V$:V$=pass4_$:�CSuwind%=0:�pass4_$<>""�V$=�input(passm1_$,"","OK",5,"ar_quest",1)
c'�V$=pass4_$�=�window("CustomW") �=�
h ݤCalc_:=�window("Calc")
r$ݤInvoiceW_:=�window("InvoiceW")
|ݤprct_:�wl_(28):=�
�$ݤControlW_:=�window("ControlW")
� ݤPrefer_:=�window("Prefer")
� ݤSsave_:=�window("Ssave")
�$ݤVatCodeW_:=�window("VatCodeW")
� ݤPassW_:=�window("PassW")
�"ݤCSuSave_:=�window("CSuSave")
� ݤInvNumI_:Onum%=1:=�InvNum_
� ݤInvNumO_:Onum%=3:=�InvNum_
�"ݤInvMenu_:=�window("InvMenu")
� ݤInvNum_:=�window("InvNum")
�$ݤStatMenu_:=�window("StatMenu")
�,ݤcredit_:�W%!12=CSuwind%:=�Ccredit_ �=�
�"ݤCcredit_:=�window("Ccredit")
� ݤStatC_:=�window("StatC")
�$ݤScontrol_:=�window("Scontrol")
�1ݤInvW_:� Z%:�CSuwind%>0:Z%=�Cupdatesupplier_
�=�window("InvW")
ݤHeads_:=�window("Heading")
"ݤSalesH_:=�window("Headings")
#ݤPurchH_:=�window("PHeadings")
ݤBanks_:=�window("Banks")
^ݤSaled_:� V$:V$=pass5_$:�saled%=0:�pass5_$<>""�V$=�input(passm1_$,"","OK",5,"ar_quest",1)
%�V$=pass5_$�=�window("Saled") �=�
!^ݤPaled_:� V$:V$=pass6_$:�paled%=0:�pass6_$<>""�V$=�input(passm1_$,"","OK",5,"ar_quest",1)
&%�V$=pass6_$�=�window("Paled") �=�
+^ݤBankL_:� V$:V$=pass7_$:�bankl%=0:�pass7_$<>""�V$=�input(passm1_$,"","OK",5,"ar_quest",1)
0%�V$=pass7_$�=�window("BankL") �=�
5"ݤSaledFW_:=�window("SaledFW")
:"ݤSaledRW_:=�window("SaledRW")
?"ݤPaledFW_:=�window("PaledFW")
D"ݤPaledRW_:=�window("PaledRW")
I ݤBankFW_:=�window("BankFW")
N ݤBankRW_:=�window("BankRW")
S ݤVatP_:=�window("VatP")
X$ݤVatPCont_:=�window("VatPCont")
] ݤBankP_:=�window("BankP")
b ݤStandW_:=�window("StandW")
gݤBalW_:�wl_(28):=�
vݤm_
{� Z%
� �$wn%="CFindSu"�curlink_%=6
� �$wn%="InvW"�curlink_%=7
� �$wn%="Saled"�curlink_%=8
� �$wn%="Paled"�curlink_%=9
� �$wn%="SaledFW"�curlink_%=10
� �$wn%="PaledFW"�curlink_%=11
� �$wn%="SaledRW"�curlink_%=12
� �$wn%="PaledRW"�curlink_%=13
�!�$wn%="Scontrol"�curlink_%=14
�!�$wn%="Headings"�curlink_%=15
�"�$wn%="PHeadings"�curlink_%=16
��$mn%="EditIt"�=�
�A�$mn%="CSuppList"�ș&406C0:�Cmaxsupp_%>=maxmenu_%�ș&406C1:=�
�A�$mn%="HeadListS"�ș&406C0:Z%=�updateheadsM_(0):�uplheads_:=�
�A�$mn%="HeadListP"�ș&406C0:Z%=�updateheadpM_(0):�uplheadp_:=�
�2�$mn%="InvL"�ș&406C0:�updateinvl_:�uplinv_:=�
�1�$mn%="BankList"�Z%=�updatebank_:�uplbank_:=�
� �$mn%="FontList"�ș&406C0
�$wn%="CSupLabW"�fonlink_%=6
!�$wn%="CSupListW"�fonlink_%=7
�$mn%="OrderM"�fonlink_%=8
�$mn%="OrderMI"�fonlink_%=9
�$wn%="SaledRW"�fonlink_%=10
% �$wn%="PaledRW"�fonlink_%=11
* �$wn%="BankRW"�fonlink_%=12
/ �$wn%="BankP"�fonlink_%=13
4!�$mn%="OrderMIS"�fonlink_%=14
9!�$wn%="VatPCont"�fonlink_%=15
H�$mn%="OrderSMI"�
M4fonlink_%=!i%+IAfon_%:�pMT($mn%,IOrderme_$(!i%))
R�inv11_%(fonlink_%-IAfon_%)=-inv11_%(fonlink_%-IAfon_%):inv22_%(fonlink_%-IAfon_%)=-inv22_%(fonlink_%-IAfon_%):inv33_%(fonlink_%-IAfon_%)=-inv33_%(fonlink_%-IAfon_%):Z%=�inv1_:Z%=�inv2_:Z%=�inv3_
W�
a(�$mn%="IconBar":�ovrM("IconBar1"):=�
f�$mn%="IconBar":=�
k=�
p�ݤinv1_:inv11_%(fonlink_%-IAfon_%)=-inv11_%(fonlink_%-IAfon_%):�(inv11_%(fonlink_%-IAfon_%))<>1�inv11_%(fonlink_%-IAfon_%)=1
uI�inv11_%(fonlink_%-IAfon_%)=1��tMI("OrderSMI",2) ��utMI("OrderSMI",2)
z=�
�ݤinv2_:inv22_%(fonlink_%-IAfon_%)=-inv22_%(fonlink_%-IAfon_%):�(inv22_%(fonlink_%-IAfon_%))<>1�inv22_%(fonlink_%-IAfon_%)=1
�I�inv22_%(fonlink_%-IAfon_%)=1��tMI("OrderSMI",3) ��utMI("OrderSMI",3)
�=�
��ݤinv3_:inv33_%(fonlink_%-IAfon_%)=-inv33_%(fonlink_%-IAfon_%):�(inv33_%(fonlink_%-IAfon_%))<>1�inv33_%(fonlink_%-IAfon_%)=1
�I�inv33_%(fonlink_%-IAfon_%)=1��tMI("OrderSMI",4) ��utMI("OrderSMI",4)
�=�
�
� ݤinvname_:�$wn%<>"InvW"�=�
�=�wl_(20):�getITdat_(1):�getITdattot_:�rI(W%,"invname"):=�
�
� ݤsm_
��$mn%="OrderVI"�
�,�IOborder%=1��tMI($mn%,1) ��utMI($mn%,1)
�+�IOruler%=1��tMI($mn%,0) ��utMI($mn%,0)
��
�<�$mn%="OrderMPI"��tMIx($mn%,IOjust_%(fonlink_%-IAfon_%))
=�
l��seticon_(W_%,I_%,A_%,B_%):block_%!0=W_%:block_%!4=I_%:block_%!8=A_%:block_%!12=B_%:ș&400CD,,block_%:�
G��geticon_(W_%,I_%):block_%!0=W_%:block_%!4=I_%:ș&400CE,,block_%:�
K��geticon1_(W_%,I_%):iblock_%!0=W_%:iblock_%!4=I_%:ș&400CE,,iblock_%:�
ݤswc_:�!i%<0�W%!12<0:=�
� A%,B%,C%,a_$
$��geticon1_(W%!12,!i%):�iblock_%!24�(1<<13):�iblock_%!24�(1<<14):�iblock_%!24�(1<<15):�iblock_%!24�(1<<8):a_$=�coninm_(iblock_%!28,iblock_%!36):ș&400D3,,block_%
)!�a_$=""�block_%!20>=�(a_$):=�
.,A%=block_%!20:A%=�swpc_(�(�a_$,A%+1,1)))
3�B%=block_%!20:C%=iblock_%!28:C%?B%=A%:iblock_%!8=0:iblock_%!12=0:ș&400CD,,iblock_%:ș&400D2,block_%!0,block_%!4,0,0,-1,B%+1
8 *FX15,1
==�
B
yݤIOBorder_
~
�Z%,A%,B%
�IOborder%=-IOborder%
�2�IOborder%=1��tMI("OrderVI",1):A%=%100:B%=%100
�1�IOborder%=-1��utMI("OrderVI",1):A%=%100:B%=0
��Z%=Iori_%�IOicons%
�Q�Z%<23�Z%<>4�Z%>27�Z%<42�Z%>43�Z%<49�Z%>51�Z%<57��setObord_(IOwind%,Z%,A%,B%)
��
�D�IOborder%=-1�ș&400D1,IOwind%,-1000000,-1000000,1000000,1000000
�=�
�
� ��setObord_(W_%,I_%,A_%,B_%)
��geticon_(W_%,I_%)
� �seticon_(W_%,I_%,A%,B%)
��
ݤIORuler_
#
�Z%,A%,B%
(IOruler%=-IOruler%
-3�IOruler%=1��tMI("OrderVI",0):A%=flag22_%:B%=%0
2;�IOruler%=-1��utMI("OrderVI",0):A%=flag22_%:B%=flag22_%
7�IOruler%=1�IOch_%=1�=�
<*�Z%=0�1:�setObord_(IOwind%,Z%,A%,B%):�
A=�
n
x,ݤIOtitle_:�IupOrdMP1_(2,$!IOtitle_%):=�
�*ݤIOhead_:�IupOrdMP1_(3,$!IOhead_%):=�
�"ݤIOsupplier_:�IupOrdMP_(4):=�
�"ݤIOdeliver_:�IupOrdMP_(57):=�
� ݤIOname_:�IupOrdMP_(5):=�
� ݤIOadd11_:�IupOrdMP_(6):=�
� ݤIOadd22_:�IupOrdMP_(7):=�
� ݤIOadd33_:�IupOrdMP_(8):=�
� ݤIOadd44_:�IupOrdMP_(9):=�
� ݤIOadd55_:�IupOrdMP_(10):=�
ݤIOpost_:�IupOrdMP_(11):=�
ݤIOtel_:�IupOrdMP_(12):=�
' ݤIOfax_:�IupOrdMP_(13):=�
61ݤIOsuppref_:�IupOrdMP1_(14,$!IOsuppref_%):=�
E1ݤIOyourref_:�IupOrdMP1_(15,$!IOyourref_%):=�
T/ݤIOnumber_:�IupOrdMP1_(16,$!IOnumber_%):=�
Y
c ݤIOsr_:�IupOrdMP_(17):=�
r ݤIOyr_:�IupOrdMP_(18):=�
� ݤIOnr_:�IupOrdMP_(19):=�
�+ݤIOdate_:�IupOrdMP1_(20,$!IOdate_%):=�
� ݤIOde_:�IupOrdMP_(21):=�
�-ݤIOtext1_:�IupOrdMP1_(22,$!IOtext1_%):=�
�-ݤIOdata1_:�IupOrdMP1_(23,$!IOdata1_%):=�
�-ݤIOdata2_:�IupOrdMP1_(24,$!IOdata2_%):=�
�-ݤIOdata3_:�IupOrdMP1_(25,$!IOdata3_%):=�
�-ݤIOdata4_:�IupOrdMP1_(26,$!IOdata4_%):=�
�-ݤIOdata5_:�IupOrdMP1_(27,$!IOdata5_%):=�
-ݤIOtext2_:�IupOrdMP1_(28,$!IOtext2_%):=�
-ݤIOtext3_:�IupOrdMP1_(29,$!IOtext3_%):=�
&-ݤIOdata6_:�IupOrdMP1_(30,$!IOdata6_%):=�
0 ݤIOdata7_:�IupOrdMP_(31):=�
:-ݤIOtext4_:�IupOrdMP1_(32,$!IOtext4_%):=�
I-ݤIOtext5_:�IupOrdMP1_(33,$!IOtext5_%):=�
X-ݤIOtext6_:�IupOrdMP1_(34,$!IOtext6_%):=�
g-ݤIOtext7_:�IupOrdMP1_(35,$!IOtext7_%):=�
v-ݤIOtext8_:�IupOrdMP1_(36,$!IOtext8_%):=�
�-ݤIOtext9_:�IupOrdMP1_(37,$!IOtext9_%):=�
�/ݤIOtext10_:�IupOrdMP1_(38,$!IOtext10_%):=�
�/ݤIOtext11_:�IupOrdMP1_(39,$!IOtext11_%):=�
�+ݤIOpage_:�IupOrdMP1_(40,$!IOpage_%):=�
� ݤIOpe_:�IupOrdMP_(41):=�
�+ݤIOdisc_:�IupOrdMP1_(42,$!IOdisc_%):=�
�)ݤIOvat_:�IupOrdMP1_(43,$!IOvat_%):=�
�+ݤIOesdt_:�IupOrdMP1_(44,$!IOesdt_%):=�
�)ݤIOest_:�IupOrdMP1_(45,$!IOest_%):=�
�'ݤIOvt_:�IupOrdMP1_(46,$!IOvt_%):=�
�'ݤIOnt_:�IupOrdMP1_(47,$!IOnt_%):=�
�)ݤIOvnt_:�IupOrdMP1_(48,$!IOvnt_%):=�
�'ݤIOvr_:�IupOrdMP1_(49,$!IOvr_%):=�
'ݤIOva_:�IupOrdMP1_(50,$!IOva_%):=�
)ݤIOvdt_:�IupOrdMP1_(51,$!IOvdt_%):=�
ݤIOdata8_:�IupOrdMP_(52):=�
ݤIOdata9_:�IupOrdMP_(53):=�
!ݤIOdata10_:�IupOrdMP_(54):=�
!ݤIOdata11_:�IupOrdMP_(55):=�
*!ݤIOdata12_:�IupOrdMP_(56):=�
9���IupOrdMP_(Z%):ipos_%=R%:fonlink_%=Z%+IAfon_%:R%=0:IOrderch%(Z%)=1:Z_%=�updateOrder_(2):ipos_%=7:fonlink_%=Z%+IAfon_%:�IordermpI_:�
M���IupOrdMP1_(Z%,Z$):� Z_%:wf2_%=Z%:ipos_%=R%:fonlink_%=wf2_%+IAfon_%:�Z$<>IOrderS_$(wf2_%)�R%=7�IOrderch%(wf2_%)=1:�R%=8:Z_%=�updateOrder_(2):�setC1_(IOwind%,wf2_%)
R�
a
fݤOstrlen_(ff_%,fs_$)
k� Z%,r1%,r2%,r3%,r4%,Z$
p� �
ua� � �:� �:�pe_(�err_):Otw=�(fs_$)*16+8:Oth=40:charx_=0:chary_=0:=%111000000000000000000011000
z!Otw=0:Oth=0:charx_=0:chary_=0
D�ff_%=0 �Z%=%111000000000000000000011000:Otw=�(fs_$)*16+8:Oth=40
�
�ff_%>0 �
�ș&4008A,ff_%
�hș &E0,ff_%,hblock_%,64 � ,Z%:!Z%=13:Z$=�$hblock_%+"000000000000000001011000",32):ș &21,2,Z$ � ,,Z%
�%ș&40097,,fs_$ � ,r1%,r2%,r3%,r4%
�Otw=r3%-r1%
�$ș&40084,ff_% � ,r1%,r2%,r3%,r4%
�,charx_=(r3%-r1%)/4:Otw=Otw/os_%+2*charx_
� Oth=r4%-r2%:chary_=�(r2%)
��
��Oth<48�Oth=48
��Otw<48�Otw=48
�=Z%
�
�ݤOtitleF_(V_%,W_%)
�O� R1%,R2%,R3%,R4%,R5%,R6%,R7%,R8%,r1%,r2%,r3%,r4%,A_%,B%,Z%,mx_,my_,ml%,a_%
�� �
� � � �:� �:�pe_(�err_):=0
�*�W_%=2��geticon_(IOwind%,IOicon%(V_%))
�R1%=block_%!8:R2%=block_%!12:R3%=block_%!16:R4%=block_%!20:R5%=block_%!24:R6%=block_%!28:R7%=block_%!32:R8%=block_%!36:ș&400C4,,block_%
��W_%=2�A_%=�Ostrlen_(IOrderF1_%(V_%),IOrderS_$(V_%)):IOrderch%(V_%)=0:mx_=IOrdermx_(V_%):my_=IOrdermy_(V_%):ml%=IOjust_%(V_%):�V_%=4�V_%>48�V_%<52�V_%=57�Oth=4.2*Oth
-�V_%>22�V_%<28�W_%=2�V_%>41�V_%<44�W_%=2�
#�my_-IOdsize_%<0 �IOdsize_%=my_
/Oth=IOdsize_%*rule_:Oth=Oth-Oth �(2*modey%)
�
8?B%=%11111111000000000000000001011000:R5%=(R5% � � B%) � A_%
=#r1%=R1%:r2%=R2%:r3%=R3%:r4%=R4%
G<�W_%=2:�ml%=0:�mx_+Otw/rule_+charx_/rule_>IOpagx_%�ml%=2
V1�W_%=2:�ml%=1:�mx_+Otw/rule_/2>IOpagx_%�ml%=2
eq�W_%=2:�ml%=0:�mx_+Otw/rule_+charx_/rule_>IOpagx_%-1�mx_=IOpagx_%-Otw/rule_-charx_/rule_:IOrdermx_(V_%)=mx_-1
t[�W_%=2:�ml%=1:�mx_+Otw/rule_/2>IOpagx_%-1�mx_=IOpagx_%-Otw/rule_/2:IOrdermx_(V_%)=mx_-1
�]�W_%=2:�ml%=2:�mx_-charx_/rule_>IOpagx_%-1�mx_=IOpagx_%-charx_/rule_:IOrdermx_(V_%)=mx_-1
�q�W_%=2:�ml%=2�mx_-Otw/rule_+charx_/rule_<1�ml%=1�mx_-Otw/rule_/2<1�ml%=0�mx_<1�ml%=0:mx_=1:IOrdermx_(V_%)=mx_
� �ml%=0�R1%=mx_*rule_-charx_
� �ml%=1�R1%=mx_*rule_-Otw/2
�#�ml%=2�R1%=mx_*rule_-Otw+charx_
�R�W_%=2:�my_+chary_/rule_>IOpagy_%�my_=IOpagy_%-chary_/rule_:IOrdermy_(V_%)=my_
�R�W_%=2:�my_+chary_/rule_-Oth/rule_<0�my_=(Oth-chary_)/rule_:IOrdermy_(V_%)=my_
�%R2%=-my_*rule_-chary_:R4%=R2%+Oth
�R3%=R1%+Otw
�yblock_%!4=R1%:block_%!8=R2%:block_%!12=R3%:block_%!16=R4%:block_%!20=R5%:block_%!24=R6%:block_%!28=R7%:block_%!32=R8%
�+�W_%=2�ș&400C2,,block_% � IOicon%(V_%)
��r1%<R1%�R1%=r1%
��r3%>R3%�R3%=r3%
��r2%<R2%�R2%=r2%
��r4%>R4%�R4%=r4%
�2ș&400D1,block_%!0,R1%-12,R2%-12,R3%+12,R4%+12
�W_%=2�
!�V_%>22�V_%<28�V_%>41�V_%<44�
G�a_%=23�27:�IOrdermy_(a_%)<>my_:IOrdermy_(a_%)=my_:IOrderch%(a_%)=1
#�
(G�a_%=42�43:�IOrdermy_(a_%)<>my_:IOrdermy_(a_%)=my_:IOrderch%(a_%)=1
-�
2�
7�V_%>48�V_%<52�
<G�a_%=49�51:�IOrdermy_(a_%)<>my_:IOrdermy_(a_%)=my_:IOrderch%(a_%)=1
A�
F�
K�
�=ml%
�
�ݤCal11_:=�updateCalc_
�ݤCal22_:=�updateCalc_
�ݤCal33_:=�updateCalc_
�)ݤCal44_:Z%=�updateCalc_:�setC_(1):=�
�
�ݤUname_:=�Uup_(2)
�ݤUad11_:=�Uup_(3)
�ݤUad22_:=�Uup_(4)
�ݤUad33_:=�Uup_(5)
�ݤUad44_:=�Uup_(6)
�ݤUad55_:=�Uup_(7)
�ݤUpost_:=�Uup_(8)
�ݤUtel_:=�Uup_(9)
�ݤUfax_:=�Uup_(10)
�ݤUvat_:=�Uup_(11)
�ݤTname_:=�Uup_(1)
�
J&ݤr1S_:SaledR_%(1)=-SaledR_%(1):=�
O&ݤr2S_:SaledR_%(2)=-SaledR_%(2):=�
T&ݤr3S_:SaledR_%(3)=-SaledR_%(3):=�
Y&ݤr4S_:SaledR_%(4)=-SaledR_%(4):=�
^&ݤr5S_:SaledR_%(5)=-SaledR_%(5):=�
c&ݤr6S_:SaledR_%(6)=-SaledR_%(6):=�
h&ݤr7S_:SaledR_%(7)=-SaledR_%(7):=�
m&ݤr8S_:SaledR_%(8)=-SaledR_%(8):=�
r&ݤr9S_:SaledR_%(9)=-SaledR_%(9):=�
w(ݤraS_:SaledR_%(10)=-SaledR_%(10):=�
|(ݤrbS_:SaledR_%(11)=-SaledR_%(11):=�
�^ݤSaa4_:� Z%:SaledR_%(12)=1:SaledR_%(13)=-1:SaledR_%(14)=-1:Z%=�Sapapersize_:�setC_(50):=�
�^ݤSaus_:� Z%:SaledR_%(12)=-1:SaledR_%(13)=1:SaledR_%(14)=-1:Z%=�Sapapersize_:�setC_(50):=�
�`ݤSacust_:� Z%:SaledR_%(12)=-1:SaledR_%(13)=-1:SaledR_%(14)=1:Z%=�Sapapersize_:�setC_(50):=�
�?ݤSatab_:� Z%:SaledR_%(16)=1:SaledR_%(17)=-1:=�Sapapersize_
�@ݤSaspac_:� Z%:SaledR_%(16)=-1:SaledR_%(17)=1:=�Sapapersize_
�(ݤrcS_:SaledR_%(18)=-SaledR_%(18):=�
�
�&ݤr1P_:PaledR_%(1)=-PaledR_%(1):=�
�&ݤr2P_:PaledR_%(2)=-PaledR_%(2):=�
�&ݤr3P_:PaledR_%(3)=-PaledR_%(3):=�
�&ݤr4P_:PaledR_%(4)=-PaledR_%(4):=�
�&ݤr5P_:PaledR_%(5)=-PaledR_%(5):=�
�&ݤr6P_:PaledR_%(6)=-PaledR_%(6):=�
�&ݤr7P_:PaledR_%(7)=-PaledR_%(7):=�
�&ݤr8P_:PaledR_%(8)=-PaledR_%(8):=�
�&ݤr9P_:PaledR_%(9)=-PaledR_%(9):=�
�(ݤraP_:PaledR_%(10)=-PaledR_%(10):=�
�(ݤrbP_:PaledR_%(11)=-PaledR_%(11):=�
�^ݤPaa4_:� Z%:PaledR_%(12)=1:PaledR_%(13)=-1:PaledR_%(14)=-1:Z%=�Papapersize_:�setC_(50):=�
�^ݤPaus_:� Z%:PaledR_%(12)=-1:PaledR_%(13)=1:PaledR_%(14)=-1:Z%=�Papapersize_:�setC_(50):=�
�`ݤPacust_:� Z%:PaledR_%(12)=-1:PaledR_%(13)=-1:PaledR_%(14)=1:Z%=�Papapersize_:�setC_(50):=�
�?ݤPatab_:� Z%:PaledR_%(16)=1:PaledR_%(17)=-1:=�Papapersize_
�@ݤPaspac_:� Z%:PaledR_%(16)=-1:PaledR_%(17)=1:=�Papapersize_
�(ݤrcP_:PaledR_%(18)=-PaledR_%(18):=�
�
�&ݤr1B_:BaledR_%(1)=-BaledR_%(1):=�
&ݤr2B_:BaledR_%(2)=-BaledR_%(2):=�
&ݤr3B_:BaledR_%(3)=-BaledR_%(3):=�
&ݤr4B_:BaledR_%(4)=-BaledR_%(4):=�
&ݤr5B_:BaledR_%(5)=-BaledR_%(5):=�
&ݤr6B_:BaledR_%(6)=-BaledR_%(6):=�
[ݤBaa4_:� Z%:BaledR_%(6)=1:BaledR_%(7)=-1:BaledR_%(8)=-1:Z%=�Bapapersize_:�setC_(35):=�
![ݤBaus_:� Z%:BaledR_%(6)=-1:BaledR_%(7)=1:BaledR_%(8)=-1:Z%=�Bapapersize_:�setC_(35):=�
&]ݤBacust_:� Z%:BaledR_%(6)=-1:BaledR_%(7)=-1:BaledR_%(8)=1:Z%=�Bapapersize_:�setC_(35):=�
+?ݤBatab_:� Z%:BaledR_%(10)=1:BaledR_%(11)=-1:=�Bapapersize_
0@ݤBaspac_:� Z%:BaledR_%(10)=-1:BaledR_%(11)=1:=�Bapapersize_
55ݤXatab_:� Z%:Xatab_%=1:Xaspac_%=-1:=�Xpapersize_
:6ݤXaspac_:� Z%:Xaspac_%=1:Xatab_%=-1:=�Xpapersize_
?HݤXa4_:� Z%:Xa4_%=1:Xus_%=-1:Xcust_%=-1:Z%=�Xpapersize_:�setC_(3):=�
DHݤXus_:� Z%:Xa4_%=-1:Xus_%=1:Xcust_%=-1:Z%=�Xpapersize_:�setC_(3):=�
IJݤXcust_:� Z%:Xa4_%=-1:Xus_%=-1:Xcust_%=1:Z%=�Xpapersize_:�setC_(3):=�
N
S
ݤvc3_
X&�pass8_$<>""��wl_(26):=�initvatpc_
]<VatC_%(1)=1:VatC_%(2)=-1:�sI(W%,"vc3"):�usI(W%,"vc4"):=�
b
ݤvc4_
g&�pass8_$<>""��wl_(26):=�initvatpc_
l<VatC_%(2)=1:VatC_%(1)=-1:�usI(W%,"vc3"):�sI(W%,"vc4"):=�
q
ݤvc5_
v� A%,B%,Z%
{ Z%=�($!vc7_%)-1:�Z%=0�=�
�1$!vc7_%=�(Z%):VatC_$(3)=$!vc7_%:�rI(W%,"vc7")
�+A%=�(�today_$,4,2)):B%=�(�today_$,7,4))
�a�$!vc8_%<>""�A%=�(�$!vc8_%,4,2)):B%=�(�$!vc8_%,7,4)) �$!vc8_%="01."+$!vc2_%+"."+�today_$,7,4)
�*�$!vc9_%=""��($!vc9_%)>27�$!vc9_%="31"
�A%-=�($!vc1_%)
��A%<1�B%-=1:A%+=12
�5$!vc8_%=�chdate_(�$!vc8_%,2)+"."+�(A%)+"."+�(B%))
�(A%+=�($!vc1_%)-1:�A%>12�B%+=1:A%-=12
�5$!vc9_%=�chdate_(�$!vc9_%,2)+"."+�(A%)+"."+�(B%))
�'VatC_$(4)=$!vc8_%:VatC_$(5)=$!vc9_%
� �rI(W%,"vc8"):�rI(W%,"vc9")
�=�
�
ݤvc6_
�� A%,B%,Z%
� Z%=�($!vc7_%)+1:�Z%>12�=�
�1$!vc7_%=�(Z%):VatC_$(3)=$!vc7_%:�rI(W%,"vc7")
�+A%=�(�today_$,4,2)):B%=�(�today_$,7,4))
�a�$!vc8_%<>""�A%=�(�$!vc8_%,4,2)):B%=�(�$!vc8_%,7,4)) �$!vc8_%="01."+$!vc2_%+"."+�today_$,7,4)
�*�$!vc9_%=""��($!vc9_%)>27�$!vc9_%="31"
�&A%+=�($!vc1_%):�A%>12�B%+=1:A%-=12
�5$!vc8_%=�chdate_(�$!vc8_%,2)+"."+�(A%)+"."+�(B%))
�(A%+=�($!vc1_%)-1:�A%>12�B%+=1:A%-=12
�5$!vc9_%=�chdate_(�$!vc9_%,2)+"."+�(A%)+"."+�(B%))
�'VatC_$(4)=$!vc8_%:VatC_$(5)=$!vc9_%
� �rI(W%,"vc8"):�rI(W%,"vc9")
�=�
!
ݤvcdate_
! � A%,B%
! %A%=�($!vc2_%):B%=�(�today_$,7,4))
! �A%>�(�today_$,4,2))�B%-=1
!#$!vc8_%="01."+$!vc2_%+"."+�(B%)
! $!vc9_%="31":$!vc7_%="1"
! 5$!vc8_%=�chdate_(�$!vc8_%,2)+"."+�(A%)+"."+�(B%))
!%(A%+=�($!vc1_%)-1:�A%>12�B%+=1:A%-=12
!*5$!vc9_%=�chdate_(�$!vc9_%,2)+"."+�(A%)+"."+�(B%))
!/9VatC_$(4)=$!vc8_%:VatC_$(5)=$!vc9_%:VatC_$(3)=$!vc7_%
!4I�rI(W%,"vc1"):�rI(W%,"vc2"):�rI(W%,"vc7"):�rI(W%,"vc8"):�rI(W%,"vc9")
!9=�
!>
!C
ݤvc1_
!H(�pass8_$<>""��wl_(26):=�updatevatpc_
!M-�($!vc1_%)>12�$!vc1_%="12":�rI(W%,"vc1")
!RVatC_$(1)=$!vc1_%
!W
=�vcdate_
!\
ݤvc2_
!a(�pass8_$<>""��wl_(26):=�updatevatpc_
!f-�($!vc2_%)>12�$!vc2_%="12":�rI(W%,"vc2")
!kVatC_$(2)=$!vc2_%
!p
=�vcdate_
!u
ݤvc8_
!z(�pass8_$<>""��wl_(26):=�updatevatpc_
!*�$!vc8_%<>""�$!vc8_%=�chdate_($!vc8_%)
!�VatC_$(4)=$!vc8_%
!�=�updatevatpc_
!�
ݤvc9_
!�(�pass8_$<>""��wl_(26):=�updatevatpc_
!�*�$!vc9_%<>""�$!vc9_%=�chdate_($!vc9_%)
!�VatC_$(5)=$!vc9_%
!�=�updatevatpc_
!�
!�UݤVaa4_:� Z%:VatC_%(3)=1:VatC_%(4)=-1:VatC_%(5)=-1:Z%=�Vapapersize_:�setC_(18):=�
!�UݤVaus_:� Z%:VatC_%(3)=-1:VatC_%(4)=1:VatC_%(5)=-1:Z%=�Vapapersize_:�setC_(18):=�
!�WݤVacust_:� Z%:VatC_%(3)=-1:VatC_%(4)=-1:VatC_%(5)=1:Z%=�Vapapersize_:�setC_(18):=�
!�9ݤVatab_:� Z%:VatC_%(6)=1:VatC_%(7)=-1:=�Vapapersize_
!�:ݤVaspac_:� Z%:VatC_%(6)=-1:VatC_%(7)=1:=�Vapapersize_
"8*ݤCSLRecNum_:CSLRecNu_%=-CSLRecNu_%:=�
"=/ݤCLsupplier_:CSLsupplie_%=-CSLsupplie_%:=�
"B$ݤCSLad11_:CSLad1_%=-CSLad1_%:=�
"G$ݤCSLad22_:CSLad2_%=-CSLad2_%:=�
"L$ݤCSLad33_:CSLad3_%=-CSLad3_%:=�
"Q$ݤCSLad44_:CSLad4_%=-CSLad4_%:=�
"V$ݤCSLpost_:CSLpos_%=-CSLpos_%:=�
"[$ݤCSLcont_:CSLcon_%=-CSLcon_%:=�
"`$ݤCSLtele_:CSLtel_%=-CSLtel_%:=�
"e!ݤCSLfax_:CSLfa_%=-CSLfa_%:=�
"j'ݤCSLcom11_:CSLcom1_%=-CSLcom1_%:=�
"o'ݤCSLcom22_:CSLcom2_%=-CSLcom2_%:=�
"t-ݤCSLsuppref_:CSLsuppre_%=-CSLsuppre_%:=�
"y-ݤCSLyourref_:CSLyourre_%=-CSLyourre_%:=�
"~*ݤCSLordpre_:CSLordpr_%=-CSLordpr_%:=�
"�$ݤCSLdebt_:CSLdeb_%=-CSLdeb_%:=�
"�$ݤCSupLabW_:=�window("CSupLabW")
"�&ݤCSupListW_:=�window("CSupListW")
"�
"�*ݤCScontact_:CScontac_%=-CScontac_%:=�
"�!ݤCSname_:CSnam_%=-CSnam_%:=�
"�*ݤCSaddress_:CSaddres_%=-CSaddres_%:=�
"�
"�MݤCSa4_:� Z%:CSa4_%=1:CSus_%=-1:CScust_%=-1:Z%=�CSpapersize_:�setC_(3):=�
#
RݤCSLa4_:� Z%:CSLa4_%=1:CSLus_%=-1:CSLcust_%=-1:Z%=�CSLpapersize_:�setC_(3):=�
#MݤIOa4_:� Z%:IOa4_%=1:IOus_%=-1:IOcust_%=-1:Z%=�IOpapersize_:�setC_(1):=�
#
#-MݤCSus_:� Z%:CSus_%=1:CSa4_%=-1:CScust_%=-1:Z%=�CSpapersize_:�setC_(3):=�
#ARݤCSLus_:� Z%:CSLus_%=1:CSLa4_%=-1:CSLcust_%=-1:Z%=�CSLpapersize_:�setC_(3):=�
#KMݤIOus_:� Z%:IOus_%=1:IOa4_%=-1:IOcust_%=-1:Z%=�IOpapersize_:�setC_(1):=�
#U
#dOݤCScust_:� Z%:CScust_%=1:CSa4_%=-1:CSus_%=-1:Z%=�CSpapersize_:�setC_(3):=�
#xTݤCSLcust_:� Z%:CSLcust_%=1:CSLa4_%=-1:CSLus_%=-1:Z%=�CSLpapersize_:�setC_(3):=�
#�OݤIOcust_:� Z%:IOcust_%=1:IOa4_%=-1:IOus_%=-1:Z%=�IOpapersize_:�setC_(1):=�
#��ݤSachecksize_:�SaledR_$(21)<>"210"�SaledR_$(22)<>"279"�SaledR_$(22)<>"297"�SaledR_%(14)=1:SaledR_%(12)=-1:SaledR_%(13)=-1:=�Sapapersize_
#�=�
#��ݤPachecksize_:�PaledR_$(21)<>"210"�PaledR_$(22)<>"279"�PaledR_$(22)<>"297"�PaledR_%(14)=1:PaledR_%(12)=-1:PaledR_%(13)=-1:=�Papapersize_
#�=�
#��ݤBachecksize_:�BaledR_$(11)<>"210"�BaledR_$(12)<>"279"�BaledR_$(12)<>"297"�BaledR_%(8)=1:BaledR_%(6)=-1:BaledR_%(7)=-1:=�Bapapersize_
#�=�
#�{ݤVachecksize_:�VatC_$(6)<>"210"�VatC_$(7)<>"279"�VatC_$(7)<>"297"�VatC_%(5)=1:VatC_%(3)=-1:VatC_%(4)=-1:=�Vapapersize_
#�=�
#�cݤXchecksize_:�Xpagx_%<>210�Xpagy_%<>279�Xpagy_%<>297�Xcust_%=1:Xa4_%=-1:Xus_%=-1:=�Xpapersize_
#�=�
#�kݤCSchecksize_:�CSpagx_%<>210�CSpagy_%<>279�CSpagy_%<>297�CScust_%=1:CSa4_%=-1:CSus_%=-1:=�CSpapersize_
#�=�
$sݤCSLchecksize_:�CSLpagx_%<>210�CSLpagy_%<>279�CSLpagy_%<>297�CSLcust_%=1:CSLa4_%=-1:CSLus_%=-1:=�CSLpapersize_
$ =�
$\ݤIOchecksize_:�IOpagx_%<>210�IOpagy_%<>279�IOpagy_%<>297�IOcust_%=1:IOa4_%=-1:IOus_%=-1
$ =�
$6LݤXpagex_:Xpagx_%=�($!Xpagex_%):�rI(W%,"Xpagex"):�setC_(4):=�Xchecksize_
$;QݤCSpagex_:CSpagx_%=�($!CSpagex_%):�rI(W%,"CSpagex"):�setC_(4):=�CSchecksize_
$OVݤCSLpagex_:CSLpagx_%=�($!CSLpagex_%):�rI(W%,"CSLpagex"):�setC_(4):=�CSLchecksize_
$T
$^3ݤIOpagex_:� Z%:Z%=�IupdateOrderP_:�setC_(2):=�
$hSݤSapagex_:SaledR_$(21)=$!Sapagex_%:�rI(W%,"Sapagex"):�setC_(51):=�Sachecksize_
$mSݤPapagex_:PaledR_$(21)=$!Papagex_%:�rI(W%,"Papagex"):�setC_(51):=�Pachecksize_
$rSݤBapagex_:BaledR_$(11)=$!Bapagex_%:�rI(W%,"Bapagex"):�setC_(36):=�Bachecksize_
$wPݤVapagex_:VatC_$(6)=$!Vapagex_%:�rI(W%,"Vapagex"):�setC_(20):=�Vachecksize_
$�
$�3ݤIOpagey_:� Z%:Z%=�IupdateOrderP_:�setC_(1):=�
$�LݤXpagey_:Xpagy_%=�($!Xpagey_%):�rI(W%,"Xpagey"):�setC_(5):=�Xchecksize_
$�QݤCSpagey_:CSpagy_%=�($!CSpagey_%):�rI(W%,"CSpagey"):�setC_(5):=�CSchecksize_
$�VݤCSLpagey_:CSLpagy_%=�($!CSLpagey_%):�rI(W%,"CSLpagey"):�setC_(5):=�CSLchecksize_
$�SݤSapagey_:SaledR_$(22)=$!Sapagey_%:�rI(W%,"Sapagey"):�setC_(52):=�Sachecksize_
$�SݤPapagey_:PaledR_$(22)=$!Papagey_%:�rI(W%,"Papagey"):�setC_(52):=�Pachecksize_
$�SݤBapagey_:BaledR_$(12)=$!Bapagey_%:�rI(W%,"Bapagey"):�setC_(37):=�Bachecksize_
$�PݤVapagey_:VatC_$(7)=$!Vapagey_%:�rI(W%,"Vapagey"):�setC_(26):=�Vachecksize_
$�
$�EݤCSLleft_:CSLlef_%=�($!CSLleft_%):�rI(W%,"CSLleft"):�setC_(7):=�
$�
%?ݤCSLtopp_
%DCSLtop_%=�($!CSLtopp_%)
%I�rI(W%,"CSLtopp")
%N
�setC_(6)
%S=�
%X
%�ݤCSLspace_
%� CSLspac_%=�($!CSLspace_%)
%��rI(W%,"CSLspace")
%�
�setC_(8)
%�=�
%�
%�ݤCSacross_
%� CSacros_%=�($!CSacross_%)
&�rI(W%,"CSacross")
&
�setC_(6)
& =�
&
&H
ݤCSdown_
&MCSdow_%=�($!CSdown_%)
&R�rI(W%,"CSdown")
&W
�setC_(7)
&\=�
&a
&�ݤCSnumber_
&� CSnumbe_%=�($!CSnumber_%)
&��rI(W%,"CSnumber")
&�
�setC_(8)
&�=�
&�
&�ݤCSstart_
&�CSstar_%=�($!CSstart_%)
&��rI(W%,"CSstart")
&�
�setC_(9)
&�=�
'
'8
ݤXfontx_
'=Xfon_x%=�($!Xfontx_%)
'B�rI(W%,"Xfontx")
'G
�setC_(6)
'L=�
'QݤCSfontx_
'VCSfon_x%=�($!CSfontx_%)
'[�rI(W%,"CSfontx")
'`�setC_(10)
'e=�
'�ݤCSLfontx_
'� CSLfon_x%=�($!CSLfontx_%)
'��rI(W%,"CSLfontx")
'�
�setC_(9)
'�=�
'�ݤSafontx_
'� SaledR_$(23)=$!Safontx_%
'��rI(W%,"Safontx")
'��setC_(53)
'�=�
'�ݤSafonty_
'� SaledR_$(24)=$!Safonty_%
'��rI(W%,"Safonty")
'��setC_(54)
'�=�
( ݤPafontx_
( PaledR_$(23)=$!Pafontx_%
(
�rI(W%,"Pafontx")
(�setC_(53)
(=�
(ݤPafonty_
( PaledR_$(24)=$!Pafonty_%
(#�rI(W%,"Pafonty")
((�setC_(54)
(-=�
(2ݤBafontx_
(7 BaledR_$(13)=$!Bafontx_%
(<�rI(W%,"Bafontx")
(A�setC_(38)
(F=�
(KݤBafonty_
(P BaledR_$(14)=$!Bafonty_%
(U�rI(W%,"Bafonty")
(Z�setC_(39)
(_=�
(dݤVafontx_
(iVatC_$(8)=$!Vafontx_%
(n�rI(W%,"Vafontx")
(s�setC_(27)
(x=�
(}ݤVafonty_
(�VatC_$(9)=$!Vafonty_%
(��rI(W%,"Vafonty")
(��setC_(37)
(�=�
(�
ݤXfonty_
(�Xfon_y%=�($!Xfonty_%)
)�rI(W%,"Xfonty")
) =�
)ݤCSfonty_
)CSfon_y%=�($!CSfonty_%)
)�rI(W%,"CSfonty")
) �setC_(11)
)"=�
)rݤCSLfonty_
)w CSLfon_y%=�($!CSLfonty_%)
)|�rI(W%,"CSLfonty")
)��setC_(10)
)�=�
)�
)�ݤCSupFrom_
)�:�($!CSupFrom_%)>�($!CSupTo_%)�$!CSupFrom_%=$!CSupTo_%
)�6$!CSupFrom_%=�chtolen_(�($!CSupFrom_%),Cmaxsupp_%)
)� CSupFro_%=�($!CSupFrom_%)
)�'�rI(W%,"CSupFrom"):�rI(W%,"CSupTo")
)��setC_(12)
)�=�
* ݤCSLfrom_
*!6�($!CSLfrom_%)>�($!CSLto_%)�$!CSLfrom_%=$!CSLto_%
*&4$!CSLfrom_%=�chtolen_(�($!CSLfrom_%),Cmaxsupp_%)
*+CSLfro_%=�($!CSLfrom_%)
*0%�rI(W%,"CSLfrom"):�rI(W%,"CSLto")
*5�setC_(11)
*:=�
*?
*�
ݤCSupTo_
*�:�($!CSupFrom_%)>�($!CSupTo_%)�$!CSupFrom_%=$!CSupTo_%
*�2$!CSupTo_%=�chtolen_(�($!CSupTo_%),Cmaxsupp_%)
*�CSupT_%=�($!CSupTo_%)
*�'�rI(W%,"CSupTo"):�rI(W%,"CSupFrom")
*��setC_(13)
*�=�
*� ݤCSLto_
*�6�($!CSLfrom_%)>�($!CSLto_%)�$!CSLfrom_%=$!CSLto_%
*�0$!CSLto_%=�chtolen_(�($!CSLto_%),Cmaxsupp_%)
*�CSLt_%=�($!CSLto_%)
*�%�rI(W%,"CSLto"):�rI(W%,"CSLfrom")
*�
�setC_(3)
*�=�
*�
ݤCsComm_
*�CsCom_$=$!CsComm_%
*�
�setC_(3)
+=�
+
ݤCsPost_
+ CsPos_$=$!CsPost_%
+%�setC_(14)
+*=�
+C
+Hݤchtolen_(A%,B%)
+M�A%>B%�=�(B%)
+R�A%<1�="1"
+W
=�(A%)
+\
+aݤCurrency_
+fCu_$=$!Currency_%
+k�rI(W%,"Currency")
+p
�setC_(2)
+u=�
+z
+ݤfontnum(V_%)
+�� Z%
+��!b%=1�V_%+=1
+��!b%=4�V_%-=1
+��V_%>maxfont_%�V_%=0
+��V_%<0�V_%=maxfont_%
+�=V_%
+�
+�UݤXfname_:Xnam_%=�fontnum(Xnam_%):$!Xfname_%=Fo_$(Xnam_%):�rI(bankp%,"Xfname"):=�
+�_ݤCSfontname_:j_f5%=�fontnum(j_f5%):$!CSfontname_%=Fo_$(j_f5%):�rI(CLabSu%,"CSfontname"):=�
+�kݤSafname_:SaledR_%(15)=�fontnum(SaledR_%(15)):$!Safname_%=Fo_$(SaledR_%(15)):�rI(saled2%,"Safname"):=�
+�kݤPafname_:PaledR_%(15)=�fontnum(PaledR_%(15)):$!Pafname_%=Fo_$(PaledR_%(15)):�rI(paled2%,"Pafname"):=�
+�gݤBafname_:BaledR_%(9)=�fontnum(BaledR_%(9)):$!Bafname_%=Fo_$(BaledR_%(9)):�rI(bank2%,"Bafname"):=�
+�]ݤVafname_:VatC_%(8)=�fontnum(VatC_%(8)):$!Vafname_%=Fo_$(VatC_%(8)):�rI(W%,"Vafname"):=�
+�XݤCSLfname_:j_f6%=�fontnum(j_f6%):$!CSLfname_%=Fo_$(j_f6%):�rI(CSLsu%,"CSLfname"):=�
+�
+� ݤfontset_:�error_%=1�=3
+�� Z%
+�� �
+�� � �:� �:=3
,Z%=�setcol_
,-�font_x%<2�font_y%<2�fhandle_%(fh_%)=0:=�
, �fh_%=0�=�
,�Fo_$(fh_%)=""�=3
,:ș&40081,,Fo_$(fh_%),font_x%,font_y% � fhandle_%(fh_%)
, ș&4008A,fhandle_%(fh_%)
, =�
,$
,)2ݤfindfont_(V_%,font_x%,font_y%):�error_%=1�=0
,.� �
,3 � � �:� �:�pe_(�err_):=0
,8�font_x%<2�font_y%<2�=0
,=)font_x%=font_x%*16:font_y%=font_y%*16
,B �V_%=0 � Fo_$(V_%)="" �=0
,G-ș&40081,,Fo_$(V_%),font_x%,font_y% � V_%
,L=V_%
,Q
,yݤIloseOfonts_
,~ � A%,Z%
,�� �
,� � � �:� �:�pe_(�err_):=0
,�Z%=0
,��A%=2�IOicons%
,�O�IOrderF_%(A%)<>0�IOrderF1_%(A%)=�losefont_(IOrderF1_%(A%)):IOrderch%(A%)=1
,�Z%+=IOrderF1_%(A%):�
,�=Z%
,�
,�
ݤsetcol_
,�<*RMEnsure ColourTrans 0.51 RMLoad System:Modules.Colours
,�2ș "ColourTrans_SetFontColours",,&FFFFFF00,0,6
,�*ș "ColourTrans_SetGCOL",&00000000,,,0
,�,ș "ColourTrans_SetGCOL",&FFFFFF00,,,128
,�=1
,�
4���pe_(err_$)
4� � A%,Z$
4��err_$,9)="File open"�err_$="File open : Press the function key f12, type CLOSE and press RETURN twice, then re-load the file"
4��err_$,9)="Data lost"�err_$="Disc/File is write protected : Please move the write protect tab on the disc so that you can't see through the hole or unlock the file"
4� �err_$,3)="SWI"�err_$=mod_$
4�
error_%=1
5 A%=W%
5+Z$=�alert(err_$,"","OK","","ar_excl",1)
5 W%=A%
5
error_%=0
5�
5��pe1_(err_$,F_%)
5 � A%,Z$
5%� �
5*� � �:� �:�pe_(�err_):�
5/(�err_$,9)="File open"��pe_(err_$):�
54
error_%=1
59�F_%>0��#F_%
5>(�err_$,9)="Data lost"��pe_(err_$):�
5C7A%=W%:Z$=�alert(err_$,"","OK","","ar_excl",1):W%=A%
5H
error_%=0
5M�
5R
5W4ݤerr_:=�$+" (Code:"+�(� �100)+":"+�(� �100)+")"
B�
C ݤListprint_:�wl_(28):=�
CqݤSaprint_:�wl_(28):=�
DݤPaprint_:�wl_(28):=�
D�ݤBaprint_:�wl_(28):=�
ELݤVaprint_:�wl_(28):=�
E�ݤWaprint_:�wl_(28):=�
FݤXprint_:�wl_(28):=�
F�ݤDprint_:�wl_(28):=�
F�ݤSLprint_:�wl_(28):=�
G,ݤCSLprint_:�wl_(28):=�
G|ݤOaprint_:�wl_(28):=�
G�ݤOiprint_:�wl_(28):=�
G̿ݤITprint_(V_%,X%,Y%):�V_%<>0:�pe_("Even though printing is disabled in this version, set the number of copies to zero and click PRINT again to see the effect in the Sales Ledger"):=� �=�
HgݤSpi_:�wl_(28):=�
H�ݤSpa_:�wl_(28):=�
I� ��wl_(temp_%):�S%!192>0��
I�� �
I�� � �:� �:�pe_(�err_):�
I�G�fhandle_%(fh_%)>0�fh_%<=maxifont_%�oz%=�losefont_(fhandle_%(fh_%))
I�Ȏ temp_% �
I�� 0:�pe_(�err_)
J�� 3:�pe_("The date is incorrect ("+D_$+"). Dates can be left blank or entered in the format DD.MM.YYYY ie. 1.4.1991 (Hint: just the day/month or year can be entered)")
J34� 12:�pe_("To delete, click on the Delete icon")
J8O� 13:�pe_("All Font sizes are set to zero in the template. Please rectify")
J=Q� 14:�pe_("Template Data area is too small to print entries. Please rectify")
JG)� 16:�pe_("Please select a supplier")
J[<� 20:�pe_("About to toggle between Invoice/Credit Note")
J`)� 21:�pe_("Please select a customer")
Je�� 25:�pe_("Not enough space in the ledger to complete this action. Please adjust the Preferences setting for the ledger, save the file, exit the program, then re-boot the file")
Jj� 26:�pe_("LOCKED")
Jq�� 28:�pe_("Sorry, this is only available in the full version of Prophet - click MENU on Prophet's icon and select 'Information'")
Jt�
Jy�
J~
J�ݤSprint_:�wl_(28):=�
KPݤCSprint_:�wl_(28):=�
K�ݤLprint_:�wl_(28):=�
L�
ݤsma_
L�=�
L�
L� ��Mode_
L� mode_%=�
L�!�edit%��seewind_(edit%!12,-1)
L�$�CSuwind%��seewind_(CSuwind%,-1)
L�$�CFindSu%��seewind_(CFindSu%,-1)
L�%�CLabSu%��seewind_(CLabSu%!12,-1)
L�#�CSLsu%��seewind_(CSLsu%!12,-1)
L� �Uwind%��seewind_(Uwind%,-1)
M �Cwind%��seewind_(Cwind%,-1)
M
"�IOwind%��seewind_(IOwind%,-1)
M "�IOpage%��seewind_(IOpage%,-1)
M? �pref%��seewind_(pref%,-1)
MD!�save%��seewind_(save%!12,-1)
MI �vat%��seewind_(vat%,-1)
MN �pass%��seewind_(pass%,-1)
MS �sav%��seewind_(sav%!12,-1)
MX!�Csav%��seewind_(Csav%!12,-1)
M]#�IOnum%��seewind_(IOnum%!12,-1)
Mb �invw%��seewind_(invw%,-1)
Mg#�heads%��seewind_(heads%!12,-1)
Ml#�headp%��seewind_(headp%!12,-1)
Mq!�bank%��seewind_(bank%!12,-1)
Mv �saled%��seewind_(saled%,-1)
M{ �paled%��seewind_(paled%,-1)
M� �bankl%��seewind_(bankl%,-1)
M� �stand%��seewind_(stand%,-1)
M�%�saled1%��seewind_(saled1%!12,-1)
M�%�paled1%��seewind_(paled1%!12,-1)
M�%�saled2%��seewind_(saled2%!12,-1)
M�%�paled2%��seewind_(paled2%!12,-1)
M�#�bank1%��seewind_(bank1%!12,-1)
M�#�bank2%��seewind_(bank2%!12,-1)
M�!�vatp%��seewind_(vatp%!12,-1)
M�#�vatpc%��seewind_(vatpc%!12,-1)
M�#�bankp%��seewind_(bankp%!12,-1)
M�!�stat%��seewind_(stat%!12,-1)
M�#�ccred%��seewind_(ccred%!12,-1)
M��
M�ݤw_:ow_%=W%
M� � Z%,Z_%
M��$(W%+20)<>"Menu"�
M��Z%=1�16:�low_%(Z%)=W%:Z_%=Z%:Z%=16:�:�:low_%(Z_%)=low_%(Z_%+1):Z_%+=1:�low_%(Z_%)=0:low_%(Z_%-1)=W% ��low_%(Z%)=0�low_%(Z%)=W%:Z%=16:� ��
M��
M�
Ȏ $wn% �
M��� "EditIt":�edit%=0�edit%=W%:$!mainname_%=Tnam_$:$!maindate_%=��$,15):$!maintime_%=��$,17,5):$!VatCodeW_%=vatcodew_$:$!VatP_%=vatp_$
NF� "CustomW":�CSuwind%=0�CSuwind%=W%!12:CSuW%=W%:Z%=�Cinitsupplier_
NE� "CFindSu":�CFindSu%=0�CFindSu%=W%!12:$!CSSupplier_%=CSSupplie_$
N*7� "CSupLabW":�CLabSu%=0�CLabSu%=W%:Z%=�Cinitsuplab_
N>7� "CSupListW":�CSLsu%=0�CSLsu%=W%:Z%=�Cinitsuplist_
NH1� "User":�Uwind%=0�Z%=�initUser_:Uwind%=W%!12
NM1� "Calc":�Cwind%=0�Cwind%=W%!12:Z%=�initCalc_
NW�� "InvoiceW":�IOwind%=0�IOwind%=W%!12:Z%=�IinitOrder_:IOch_%=1:�OrderC_%!0=0�$!IOvat_%=VAT_$+"%":$!IOvt_%=VAT_$+" Total:":$!IOdata10_%=VAT_$+"/Total":$!IOvr_%=VAT_$+" Rate":$!IOvdt_%=VAT_$:$!IOtext11_%=VAT_$+" Registration No:"
Nf9� "OrderPI":�IOpage%=0�IOpage%=W%!12:Z%=�IinitOrderP_
Np"� "OrderMF":ș&400D3,,oblock_%
Nz �oblock_%!0=IOwind%�lw_%=2
N�3� "Prefer":�pref%=0�pref%=W%!12:Z%=�initPrefer_
N�-� "Ssave":�save%=0�save%=W%:Z%=�initSave_
N�1� "VatCodeW":�vat%=0�vat%=W%!12:Z%=�initVatW_
N�1� "PassW":�pass%=0�pass%=W%!12:Z%=�initPassW_
N�1� "CSuSave":�Csav%=0�Csav%=W%:Z%=�CinitSuSav_
N�5� "InvNum":�IOnum%=0�IOnum%=W%:Z%=�IinitOrdernum_
N�8� "InvW":�invw%=0�invw%=W%!12:invW%=W%:Z%=�initInvW_
N�S� "Headings":�heads%=0�heads%=W%:$!Sv1_%=VAT_$:$!Sv2_%=VAT_$:Z%=�initheadsM_(0)
N�T� "PHeadings":�headp%=0�headp%=W%:$!Pv1_%=VAT_$:$!Pv2_%=VAT_$:Z%=�initheadpM_(0)
N�0� "Banks":�bank%=0�bank%=W%:Z%=�initbank_(0)
N�G� "Saled":�saled%=0�saled%=W%!12:saledW%=W%:ș&406C0:Z%=�initsaled_
N�G� "Paled":�paled%=0�paled%=W%!12:paledW%=W%:ș&406C0:Z%=�initpaled_
N�F� "BankL":�bankl%=0�bankl%=W%!12:bankW%=W%:ș&406C0:Z%=�initbankl_
N�H� "StandW":�stand%=0�stand%=W%!12:standW%=W%:ș&406C0:Z%=�initstand_
N�5� "SaledFW":�saled1%=0�saled1%=W%:Z%=�initsaled1_
N�5� "PaledFW":�paled1%=0�paled1%=W%:Z%=�initpaled1_
N�C� "SaledRW":�saled2%=0�saled2%=W%:$!r7S_%=VAT_$:Z%=�initsaled2_
N�C� "PaledRW":�paled2%=0�paled2%=W%:$!r7P_%=VAT_$:Z%=�initpaled2_
O1� "BankFW":�bank1%=0�bank1%=W%:Z%=�initbank1_
O1� "BankRW":�bank2%=0�bank2%=W%:Z%=�initbank2_
O ,� "VatP":�vatp%=0�vatp%=W%:Z%=�initvatp_
O3� "VatPCont":�vatpc%=0�vatpc%=W%:Z%=�initvatpc_
O2� "BankP":�bankp%=0�bankp%=W%:Z%=�initbanktot_
O0� "Scontrol":�stat%=0�stat%=W%:Z%=�initstat_
O$:� "Ccredit":�ccred%=0�ccred%=W%:occred_%=0:�initccred_
O=�
OB=�
OGݤb_
OL��<>mode_%��gMi:�Mode_
OQq�notrans_%=1:�error_%=0:notrans_%=0:�pe_("Escape pressed or no data/not enough memory to complete this task")
OV!�error_%=0:ș&400CF,,cblock_%
O[D�error_%=0:�pm_%=1:�mouse=0:pm_%=0:ș&400E9,36,,"ptr_default",1
O` �error_%=0:�cblock_%!8<>0�=�
Oe;�error_%=0:�car_:�memE_%=0:�-�<12000�memE_%=1:�lowmem_
Oor�error_%=0:�oldt_$<>��$,17,5):oldt_$=��$,17,5):min_%+=1:�edit%<>0:$!maintime_%=��$,17,5):�rI(edit%,"maintime")
OtX�error_%=0:�Autosav_%>0:�min_%>=Autosav_%:�e1_%=0:min_%=0:�save%=0��ausav_:error_%=0
Oy=�
O~H��car_:ș&400D3,,cblock_%:�cblock_%!16<0�cblock_%!4<0�cblock_%!0<0��
O���cblock_%!0=invw%:�cblock_%!4�6=2:�cblock_%!4<45:�$!ITsd_%<>�gId(invw%,cblock_%!4):$!ITsd_%=�gId(invw%,cblock_%!4):�rI(invW%,"ITsd"):ITll_%=�($!ITl_%):ș&6,128,255�,iw_%:�($!ITsd_%)>ITll_%�iw_%>40:�wrap_(cblock_%!4):�
O�Y�cblock_%!0=invw%:�cblock_%!4�6<>2:�$!ITsd_%<>""�$!ITsd_%="":sa_%=1:�rI(invW%,"ITsd")
O�Wcblock_%!16=cblock_%!16�&4000000:�(cblock_%!16>>25)�2�cblock_%!20=-1:cblock_%!16=-1
O�Qș&400D2,cblock_%!0,cblock_%!4,cblock_%!8,cblock_%!12,cblock_%!16,cblock_%!20
O��
O� ��ausav_
O� � Z%,Z$
O�error_%=1:�sa_%=0��
O�T�Autowar_%=1�Z$=�alert("About to Save your Work OK?","","YES","NO","ar_quest",1)
O��Z$="NO"��
O�Z$=�asave2_(Savea_$,1)
O��
O�
��lowmem_
O� � Z%,Z$
O�*end_%=1:moremem_%=1:error_%=1:Oerr_%=1
OΏ�-�<6000�Z$=�alert("Sorry, no memory left. Quitting program. Click on YES to SAVE your work or NO to lose it.","","YES","NO","ar_quest",1)
O�-�-�<6000:�Z$="YES"�Sasav_%=1:Z%=�Myquit_
O�,�-�<6000:�Z$="NO"�Sasav_%=0:Z%=�Myquit_
O�
error_%=0
O��
O�ݤe_:�R%=3:ow_%=W%
O�U�R%=193:�seewind1_:�$wn%<>"EditIt"�$wn%<>"Prefer"�$wn%<>"Ssave"�$wn%<>""�memE_%=0
O�l�$mn%="SuppList"�$mn%="CSuppList"�$mn%="FontList"�$mn%="HeadListS"�$mn%="HeadListP"�$mn%="InvL"�ș&406C1
O�� Z%
O� �fc_%=1:fc_%=0:Z%=�chfonts_
P
Ȏ $wn% �
P1� "EditIt":�edit%<>0��initedit_:�R%=3�edit%=0
Ps� "CustomW":�CSuwind%>0 �Z%=�Csupstoc_:�R%=3�CSuwind%=0:CSuW%=0:�ccred%>0��sw_(ccred%):�closeW(ccred%):ccred%=0
P#H� "CFindSu":�CFindSu%>0 �CSSupplie_$=$!CSSupplier_%:�R%=3�CFindSu%=0
P7J� "CSupLabW":�CLabSu%>0�Z%=�Cfsulab_:�R%=3�Z%=�Cupdatesulab_:CLabSu%=0
PKK� "CSupListW":�CSLsu%>0�Z%=�Cfsulist_:�R%=3�Z%=�Cupdatesulist_:CSLsu%=0
PU6� "User":�Uwind%<>0�Z%=�updateUser_:�R%=3�Uwind%=0
P_6� "Calc":�Cwind%<>0�Z%=�updateCalc_:�R%=3�Cwind%=0
Pi�� "InvoiceW":�getWind_(OrderC_%,2):�IOwind%<>0�Z%=�updateOrder_(2):�R%=3�IOwind%=0:IOpage%=0:�updatewind_(OrderC_%):Z%=�IloseOfonts_
P} � "OrderPI":�R%=5��setC_(1)
P�!�IOpage%>0�Z%=�IupdateOrderP_
P� � "OrderDI":�IupdateOrderD_
P� � "OrderMPI":�R%=5��setC_(3)
P��IOwind%>0��Iordermp_
P� � "OrderUFI":�R%=5��setC_(1)
P�1� "Prefer":�pref%>0�Z%=�prefer_:�R%=3�pref%=0
P�4� "Ssave":�save%>0�Z%=�updateSave_:�R%=3�save%=0
P�/� "VatCodeW":�vat%>0�Z%=�VatW_:�R%=3�vat%=0
P�$� "PassW":�pass%>0:�R%=3�pass%=0
P�8� "CSuSave":�Csav%>0�Z%=�CupdateSuSav_:�R%=3�Csav%=0
Q6� "InvNum":�IOnum%>0�Z%=�IOrdernum_:�R%=3�IOnum%=0
Q C� "InvW":�invw%>0�Z%=�updateInvW_:�R%=3�Z%=�getcust_(0):invw%=0
Q4� "Banks":�bank%>0:Z%=�updatebank_:�R%=3�bank%=0
Q>� "Headings":�heads%>0�Z%=�updateheadsM_(0):�R%=3�heads%=0
Q?� "PHeadings":�headp%>0�Z%=�updateheadpM_(0):�R%=3�headp%=0
Q t� "Saled":�saled%>0�Z%=�updatesaled_:�R%=3�saled%=0:�SiSort_:�saled1%>0��sw_(saled1%):�closeW(saled1%):saled1%=0
Q"t� "Paled":�paled%>0�Z%=�updatepaled_:�R%=3�paled%=0:�PiSort_:�paled1%>0��sw_(paled1%):�closeW(paled1%):paled1%=0
Q'p� "BankL":�bankl%>0�Z%=�updatebankl_:�R%=3�bankl%=0:�BiSort_:�bank1%>0��sw_(bank1%):�closeW(bank1%):bank1%=0
Q,8� "StandW":�stand%>0�Z%=�updatestand_:�R%=3�stand%=0
Q1<� "SaledFW":�saled1%>0�Z%=�updatesaled1_:�R%=3�saled1%=0
Q6<� "PaledFW":�paled1%>0�Z%=�updatepaled1_:�R%=3�paled1%=0
Q;<� "SaledRW":�saled2%>0�Z%=�updatesaled2_:�R%=3�saled2%=0
Q@<� "PaledRW":�paled2%>0�Z%=�updatepaled2_:�R%=3�paled2%=0
QE8� "BankFW":�bank1%>0�Z%=�updatebank1_:�R%=3�bank1%=0
QJ8� "BankRW":�bank2%>0�Z%=�updatebank2_:�R%=3�bank2%=0
QOc� "VatP":�vatp%>0�Z%=�updatevatp_:�R%=3�vatp%=0:�vatpc%>0��sw_(vatpc%):�closeW(vatpc%):vatpc%=0
Q^:� "VatPCont":�vatpc%>0�Z%=�updatevatpc_:�R%=3�vatpc%=0
Qh9� "BankP":�bankp%>0�Z%=�updatebanktot_:�R%=3�bankp%=0
Qm7� "Scontrol":�stat%>0�Z%=�updatestat_:�R%=3�stat%=0
Qw>� "Ccredit":�ccred%>0��updateccred_(CS_%,1):�R%=3�ccred%=0
Q��
Q�)�R%=3:�$wn%<>"Chuser":�sw_(ow_%):�ow_
Q�=�
Q�ݤpK_:=�ldelete_(!k%)
Q�/��pK1_(A_%):�!k%=13:sa_%=1:!k%=0:�initedit_
Q�� Z%,Z_%,K_%
Q��IOwind%=W%!12�
Q�'�A_%=&18E �A_%=&19D �A_%=13�R%<>11�
Q��!i%<2 �Z%=2
Q� �!i%=2 �Z%=3:�A_%=13�Z%=!i%
Q� �!i%=3 �Z%=14:�A_%=13�Z%=!i%
Q�*�!i%=14�!i%=15�Z%=!i%+1:�A_%=13�Z%=!i%
Q�!�!i%=16 �Z%=20:�A_%=13�Z%=!i%
Q�!�!i%=20 �Z%=22:�A_%=13�Z%=!i%
Q�+�!i%>21�!i%<30 �Z%=!i%+1:�A_%=13�Z%=!i%
Q�!�!i%=30 �Z%=32:�A_%=13�Z%=!i%
Q�+�!i%>31�!i%<40 �Z%=!i%+1:�A_%=13�Z%=!i%
Q��IOwind%=W%!12�
Q�!�!i%=40 �Z%=42:�A_%=13�Z%=!i%
Q�+�!i%>41�!i%<51 �Z%=!i%+1:�A_%=13�Z%=!i%
Q� �!i%=51 �Z%=2:�A_%=13�Z%=!i%
Q��
R �
R!�A_%=&18F �A_%=&19C �
R+T�IOwind%=W%!12:�!i%=2 �Z%=51:�A_%=13�Z%=!i%:� **ALTER LAST WRITE INV ICON HERE**
R5 �!i%=3 �Z%=2:�A_%=13�Z%=!i%
R: �!i%=14 �Z%=3:�A_%=13�Z%=!i%
R?!�!i%=15 �Z%=14:�A_%=13�Z%=!i%
RD!�!i%=16 �Z%=15:�A_%=13�Z%=!i%
RI!�!i%=20 �Z%=16:�A_%=13�Z%=!i%
RN+�!i%>22�!i%<31 �Z%=!i%-1:�A_%=13�Z%=!i%
RS!�!i%=22 �Z%=20:�A_%=13�Z%=!i%
RX+�!i%>32�!i%<41 �Z%=!i%-1:�A_%=13�Z%=!i%
R]!�!i%=32 �Z%=30:�A_%=13�Z%=!i%
Rb�IOwind%=W%!12�
Rg+�!i%>42�!i%<52 �Z%=!i%-1:�A_%=13�Z%=!i%
Rl!�!i%=42 �Z%=40:�A_%=13�Z%=!i%
Rq<�Z%>0:wf2_%=Z%:�IOrderF1_%(Z%)>0�ș&4008A,IOrderF1_%(Z%)
Rv�
R��
R�5�Z%>0�ș&400D4,,-1:�setC_(Z%):�seewind_(W%!12,Z%)
R��
R��invw%=W%!12�
R�
Z%=!i%
R��A_%=&18F �
R��Z%>=1�Z%<7��ITup_(1)
R�'�Z%-itif_%>=1�Z%<=itin_%�Z%-=itif_%
R� �Z%>itin_%�Z%<itin_%+6�Z%-=1
R��setC_(Z%)
R��
R��A_%=&19D �A_%=13
R��A_%=&19C �
R��Z%=1��ITup_(1)
R��Z%>=1�Z%<=itin_%�Z%-=1
R��Z%<1�Z%=itif_%
R��setC_(Z%)
R��
S�A_%=&18E �A_%=13�
S7�A_%=&18E:�Z%>itin_%-itif_%�Z%<=itin_%��ITdown_(-1)
S +�A_%=&18E:�Z%<=itin_%-itif_%�Z%+=itif_%
S#�A_%=13:�Z%=itin_%��ITdown_(-1)
S;�A_%=13:�Z%<=itin_%�Z%+=1:�Z%>itin_%�Z%=itin_%-itif_%+1
S�Z%>itin_%�Z%+=1
S �Z%>itin_%+5�Z%<105:Z%=104
S%�Z%>108�Z%=1
S*�setC_(Z%)
S/�
S4�seewind_(invw%,Z%)
S9�
S>9�saled%=W%!12�paled%=W%!12�bankl%=W%!12�stand%=W%!12�
SC0Z%=!i%:Z_%=sitif_%:�bankl%=W%!12�Z_%=bitif_%
SH�A_%=&18F �
SM�Z%>=1�Z%<=Z_%�
SR �saled%=W%!12��SITup_(1)
SW �paled%=W%!12��PITup_(1)
S\ �bankl%=W%!12��BITup_(1)
Sa �stand%=W%!12��TITup_(1)
Sf�
Sk&�Z%-Z_%>=1�Z%<=sitip_%*Z_%�Z%-=Z_%
Sp�setC_(Z%)
Su�
Sz�A_%=&19D �A_%=13
S�A_%=&19C �
S�
�Z%=1�
S� �saled%=W%!12��SITup_(1)
S� �paled%=W%!12��PITup_(1)
S� �bankl%=W%!12��BITup_(1)
S� �stand%=W%!12��TITup_(1)
S��
S� �Z%>=1�Z%<=sitip_%*Z_%�Z%-=1
S��Z%<1�Z%=Z_%
S��setC_(Z%)
S��
S��A_%=&18E �A_%=13�
S��A_%=&18E �
S�(�Z%>sitip_%*Z_%-Z_%�Z%<=sitip_%*Z_%�
S� �saled%=W%!12��SITdown_(-1)
S� �paled%=W%!12��PITdown_(-1)
S� �bankl%=W%!12��BITdown_(-1)
S� �stand%=W%!12��TITdown_(-1)
S��
S� �Z%<=sitip_%*Z_%-Z_%�Z%+=Z_%
S��
S� �A_%=13�
S��Z%=sitip_%*Z_%�
S� �saled%=W%!12��SITdown_(-1)
S� �paled%=W%!12��PITdown_(-1)
S� �bankl%=W%!12��BITdown_(-1)
T �stand%=W%!12��TITdown_(-1)
T�
T ?�Z%<=sitip_%*Z_%�Z%+=1:�Z%>sitip_%*Z_%�Z%=sitip_%*Z_%-Z_%+1
T�
T�Z%>sitip_%*Z_%�Z%=1
T�setC_(Z%)
T �
T$�
T)�vatp%!12=W%!12�
T.Z%=!i%:K_%=Z%
T3�A_%=&18F �
T8%�Z%>4�Z%<45��setC_(Z%-4):K_%=Z%-4
T=&�Z%>0�Z%<5��setC_(Z%+40):K_%=Z%+40
TB�
TG�A_%=&18E �
TL%�Z%>0�Z%<41��setC_(Z%+4):K_%=Z%+4
TQ(�Z%>40�Z%<45��setC_(Z%-40):K_%=Z%-40
TV�
T[�A_%=&19C �
T`%�Z%>1�Z%<45��setC_(Z%-1):K_%=Z%-1
Te�Z%<1��setC_(44):K_%=44
Tj�
To�A_%=&19D �A_%=13 �
Tt%�Z%>0�Z%<44��setC_(Z%+1):K_%=Z%+1
Ty�Z%>44��setC_(1):K_%=1
T~�
T��seewind_(vatp%!12,K_%)
T��
T��bank%!12=W%!12�
T�Z%=!i%:K_%=Z%
T��A_%=&18F �
U %�Z%>2�Z%<25��setC_(Z%-2):K_%=Z%-2
U&�Z%>0�Z%<3��setC_(Z%+22):K_%=Z%+22
U
�
U�A_%=&18E �
U%�Z%>0�Z%<23��setC_(Z%+2):K_%=Z%+2
U(�Z%>22�Z%<25��setC_(Z%-22):K_%=Z%-22
U �
U#�A_%=&19C �
U(1�Z%>0�Z%<25�Z%-=1:K_%=Z%-1:�Z%=0�Z%=24:K_%=24
U-�setC_(Z%)
U2�
U7�A_%=&19D �A_%=13 �
U<0�Z%>0�Z%<25�Z%+=1:K_%=Z%+1:�Z%=25�Z%=1:K_%=1
UA�setC_(Z%)
UF�
UK�seewind_(bank%!12,K_%)
UP�
UU%�heads%!12=W%!12�headp%!12=W%!12�
UZ
Z%=!i%
U_�A_%=&18F �
Ud �Z%>7�Z%<53��setC_(Z%-7)
Ui�Z%>0�Z%<8��setC_(70)
Un�Z%=70��setC_(69)
Us�Z%=69��setC_(52)
Ux�
U}�A_%=&18E �
U� �Z%>0�Z%<50��setC_(Z%+7)
U��Z%>49�Z%<53��setC_(69)
U��Z%=69��setC_(70)
U��Z%=70��setC_(3)
U��
U��A_%=&19C �
U�#�Z%>0�Z%<53�Z%-=1:�Z%�7=0�Z%-=4
U��Z%=69�Z%=52
U��Z%=70�Z%=69
U��Z%<1�Z%=70
U��setC_(Z%)
U��
U��A_%=&19D �A_%=13 �
U�#�Z%>0�Z%<53�Z%+=1:�Z%�7=4�Z%+=4
U��Z%=70�Z%=1
U��Z%=69�Z%=70
U��Z%>52�Z%<69�Z%=69
U��setC_(Z%)
U��
U��
U��
U�
U� ݤcopy_
U� � A%,Z%
V��$wn%="CustomW"�
V�A%=�($!CSufindnum_%)
W Ȏ !i% �
W)� Csui_%:$!CSuName_%=CSuppliers_$(A%)
W
'� Csui_%+1:$!CSuAd11_%=CSuAd1_$(A%)
W'� Csui_%+2:$!CSuAd22_%=CSuAd2_$(A%)
W'� Csui_%+3:$!CSuAd33_%=CSuAd3_$(A%)
W '� Csui_%+4:$!CSuAd44_%=CSuAd4_$(A%)
W!'� Csui_%+5:$!CSuPost_%=CSuPos_$(A%)
W&.� Csui_%+11:$!dCSuName_%=dCSuppliers_$(A%)
W+*� Csui_%+12:$!dCSuAd11_%=dCSuAd1_$(A%)
W0*� Csui_%+13:$!dCSuAd22_%=dCSuAd2_$(A%)
W5*� Csui_%+14:$!dCSuAd33_%=dCSuAd3_$(A%)
W:*� Csui_%+15:$!dCSuAd44_%=dCSuAd4_$(A%)
W?*� Csui_%+16:$!dCSuPost_%=dCSuPos_$(A%)
WD-� Csui_%+6:$!CSuContact_%=CSuContac_$(A%)
WI'� Csui_%+7:$!CSuTele_%=CSuTel_$(A%)
WN%� Csui_%+8:$!CSuFax_%=CSuFa_$(A%)
WS)� Csui_%+9:$!CSuCom11_%=CSuCom1_$(A%)
WX*� Csui_%+10:$!CSuCom22_%=CSuCom2_$(A%)
W].� Csui_%+17:$!CSuSuppRef_%=CSuSuppRe_$(A%)
Wb.� Csui_%+18:$!CSuYourRef_%=CSuYourRe_$(A%)
Wg*� Csui_%+19:$!CSuOrder_%=CSuOrde_$(A%)
Wl)� Csui_%+20:$!CSuDisc_%=CSuDisc_$(A%)
Wq�
Wv
�Cfillsu_
W{Z%=�Csuppup_(0)
W��
W�=�
W�
W�ݤallcopy_
W� � A%,Z%
W��$wn%="CustomW"�
W�5A%=�($!CSufindnum_%):�A%>Cmaxsupp_%�A%=Cmaxsupp_%
W��$!CSuName_%=CSuppliers_$(A%):$!CSuAd11_%=CSuAd1_$(A%):$!CSuAd22_%=CSuAd2_$(A%):$!CSuAd33_%=CSuAd3_$(A%):$!CSuAd44_%=CSuAd4_$(A%):$!CSuPost_%=CSuPos_$(A%):$!CSuContact_%=CSuContac_$(A%):$!CSuTele_%=CSuTel_$(A%)
W��$!CSuFax_%=CSuFa_$(A%):$!CSuCom11_%=CSuCom1_$(A%):$!CSuCom22_%=CSuCom2_$(A%):$!CSuSuppRef_%=CSuSuppRe_$(A%):$!CSuYourRef_%=CSuYourRe_$(A%):$!CSuOrder_%=CSuOrde_$(A%):$!CSuDisc_%=CSuDisc_$(A%)
Wթ$!dCSuName_%=dCSuppliers_$(A%):$!dCSuAd11_%=dCSuAd1_$(A%):$!dCSuAd22_%=dCSuAd2_$(A%):$!dCSuAd33_%=dCSuAd3_$(A%):$!dCSuAd44_%=dCSuAd4_$(A%):$!dCSuPost_%=dCSuPos_$(A%)
W�
�Cfillsu_
W�Z%=�Csuppup_(0)
W��
X=�
X
Xݤprintkey_:�wl_(28)
X *FX15,1
X =�
X� ݤh_:=""
X�
X� ݤrM_
X�temploop_%=0
X�temp_%=temploop_%
X�#�R%=17�R%=18��recmess_(Q%,0):=�
X�=�
X� ݤrB_:=�
X� ݤpB_:=�
X���initedit_:�edit%<1��
X�"�Tnam_$=""�Tnam_$="<Untitled>"
X�7��Tnam_$,2)=" *"�sa_%=0�Tnam_$=�Tnam_$,�(Tnam_$)-2)
X�/��Tnam_$,2)<>" *"�sa_%=1�Tnam_$=Tnam_$+" *"
X�C�$!mainname_%<>Tnam_$�$!mainname_%=Tnam_$:�rI(edit%,"mainname")
X�E�$!maindate_%<>��$,15)�$!maindate_%=��$,15):�rI(edit%,"maindate")
X��
X�ݤmainname_:=�
X�ݤinitPrefer_:$!Omaxsup_%=�(Omaxsu_%):$!Omaxsto_%=�(Omaxst_%):$!COmaxsup_%=�(COmaxsu_%):$!Autosave_%=�(Autosav_%):$!OmaxSS_%=�(OmaxS_%):$!OmaxPP_%=�(OmaxP_%):$!OmaxBB_%=�(OmaxB_%)
X�A$!SAacc1_%=SAacc_$:$!SAhead1_%=SAhead_$:$!prefvat_%=prefvat_$
X�3�Sasav_%=-1��sI(W%,"Sasave") ��usI(W%,"Sasave")
X�9�savesal_%=-1��sI(W%,"savesale") ��usI(W%,"savesale")
X�9�Autowar_%=-1��sI(W%,"Autowarn") ��usI(W%,"Autowarn")
Y9�Salewar_%=-1��sI(W%,"Salewarn") ��usI(W%,"Salewarn")
Y9�Exitwar_%=-1��sI(W%,"Exitwarn") ��usI(W%,"Exitwarn")
Y X�prefye_%=1��sI(W%,"prefyes"):�usI(W%,"prefno") ��sI(W%,"prefno"):�usI(W%,"prefyes")
YZ�prefos_%=1��sI(W%,"prefosy"):�usI(W%,"prefosn") ��sI(W%,"prefosn"):�usI(W%,"prefosy")
Y=�
Y[
ݤprefer_
Y`� A%
Ye ș&406C0
YjS�($!Omaxsup_%)<maxsupp_%�A%=�checkmaxsu1_:�A%>�($!Omaxsup_%)�$!Omaxsup_%=�(A%)
YoX�($!COmaxsup_%)<Cmaxsupp_%�A%=�Ccheckmaxsu1_:�A%>�($!COmaxsup_%)�$!COmaxsup_%=�(A%)
YtM�($!Omaxsto_%)<M_%�A%=�checkmaxst1_:�A%>�($!Omaxsto_%)�$!Omaxsto_%=�(A%)
YyL�($!OmaxSS_%)<maxS_%�A%=�checkmaxS1_:�A%>�($!OmaxSS_%)�$!OmaxSS_%=�(A%)
Y~L�($!OmaxPP_%)<maxP_%�A%=�checkmaxP1_:�A%>�($!OmaxPP_%)�$!OmaxPP_%=�(A%)
Y�L�($!OmaxBB_%)<maxB_%�A%=�checkmaxB1_:�A%>�($!OmaxBB_%)�$!OmaxBB_%=�(A%)
Y�(�($!Omaxsup_%)<>50�$!Omaxsup_%="10"
Y�*�($!COmaxsup_%)<>50�$!COmaxsup_%="30"
Y�(�($!Omaxsto_%)<>12�$!Omaxsto_%="12"
Y�&�($!OmaxSS_%)<>50�$!OmaxSS_%="30"
Y�&�($!OmaxPP_%)<>50�$!OmaxPP_%="30"
Y�&�($!OmaxBB_%)<>50�$!OmaxBB_%="10"
Y��Omaxsu_%=�($!Omaxsup_%):Omaxst_%=�($!Omaxsto_%):COmaxsu_%=�($!COmaxsup_%):OmaxS_%=�($!OmaxSS_%):OmaxP_%=�($!OmaxPP_%):OmaxB_%=�($!OmaxBB_%):Autosav_%=�($!Autosave_%):SAacc_$=$!SAacc1_%:SAhead_$=$!SAhead1_%
Y�;�save%>0��autosa_:�rI(save%,"autos"):�rI(save%,"autoe")
Y�y�rI(W%,"Omaxsup"):�rI(W%,"Omaxsto"):�rI(W%,"COmaxsup"):�rI(W%,"OmaxSS"):�rI(W%,"OmaxPP"):�rI(W%,"OmaxBB"):ș&406C1:=�
Y�!ݤSasave_:Sasav_%=-Sasav_%:=�
Y�$ݤsavesale_:savesal_%=-savesal_%
Y�C�savesal_%=1�Slwind%>0��sw_(Slwind%):�closeW(Slwind%):Slwind%=0
Y�=�
Y�'ݤAutowarn_:Autowar_%=-Autowar_%:=�
Y�'ݤSalewarn_:Salewar_%=-Salewar_%:=�
Y�'ݤExitwarn_:Exitwar_%=-Exitwar_%:=�
Y�)ݤOmaxsup_:Omaxsu_%=�($!Omaxsup_%):=�
Y�)ݤOmaxsto_:Omaxst_%=�($!Omaxsto_%):=�
Y�,ݤCOmaxsup_:COmaxsu_%=�($!COmaxsup_%):=�
Y�&ݤOmaxSS_:OmaxS_%=�($!OmaxSS_%):=�
Y�&ݤOmaxPP_:OmaxP_%=�($!OmaxPP_%):=�
Y�&ݤOmaxBB_:OmaxB_%=�($!OmaxBB_%):=�
Y�,ݤAutosave_:Autosav_%=�($!Autosave_%):=�
Y�#ݤSAacc1_:SAacc_$=$!SAacc1_%:=�
Z 0ݤSAhead1_:SAhead_$=$!SAhead1_%:�setC_(1):=�
ZKݤprefyes_:prefye_%=1:prefn_%=-1:�sI(W%,"prefyes"):�usI(W%,"prefno"):=�
Z
Jݤprefno_:prefn_%=1:prefye_%=-1:�sI(W%,"prefno"):�usI(W%,"prefyes"):=�
ZIݤprefss_:prefs_%=1:prefsn_%=-1:�sI(W%,"prefss"):�usI(W%,"prefnn"):=�
ZIݤprefnn_:prefsn_%=1:prefs_%=-1:�sI(W%,"prefnn"):�usI(W%,"prefss"):=�
ZANݤprefosy_:prefos_%=1:prefson_%=-1:�sI(W%,"prefosy"):�usI(W%,"prefosn"):=�
ZFNݤprefosn_:prefson_%=1:prefos_%=-1:�sI(W%,"prefosn"):�usI(W%,"prefosy"):=�
ZK
Zx��initccred_:� A$
Z}(�SBestP_%=1�A$=" Months" �A$=" Days"
Z�8�SBestF_%=1�$!C1_%="1"+�A$,6) �$!C1_%=�(SBestF_%)+A$
Z�r$!C2_%=�(SBestF_%*2)+A$:$!C3_%=�(SBestF_%*3)+A$+"+":$!C10_%="":$!C11_%=�CSuppliers_$(CS_%),21):$!C13_%=today_$
Z�+�C120_%=1��usI(W%,"C12") ��sI(W%,"C12")
Z�@�ccred%>0��rI(ccred%,"C1"):�rI(ccred%,"C2"):�rI(ccred%,"C3")
Z� �days_:�
Z�
Z�*��findccreds_:� A$:Ivat_$(0)="Current"
Z�(�SBestP_%=1�A$=" Months" �A$=" Days"
Z�>�SBestF_%=1�Ivat_$(1)="1"+�A$,6) �Ivat_$(1)=�(SBestF_%)+A$
Z�FIvat_$(2)=�(SBestF_%*2)+A$:Ivat_$(3)=�(SBestF_%*3)+A$+"+":�days_:�
Z�
Z� ��days_
Z�� A%,B%,B$,C$
Z�B%=�(�today_$,7))
Z��SBestP_%=1�
Z�;A%=�(�today_$,4,2)):A%=A%-SBestF_%:�A%<1�A%=12+A%:B%-=1
Z�!�A%<10�B$="0"+�(A%) �B$=�(A%)
Z� C$=�(B%)
Z�'day1_%=�Jul_(�today_$,3)+B$+"."+C$)
Z�'A%=A%-SBestF_%:�A%<1�A%=12+A%:B%-=1
Z�!�A%<10�B$="0"+�(A%) �B$=�(A%)
Z� C$=�(B%)
Z�'day2_%=�Jul_(�today_$,3)+B$+"."+C$)
Z�'A%=A%-SBestF_%:�A%<1�A%=12+A%:B%-=1
Z�!�A%<10�B$="0"+�(A%) �B$=�(A%)
Z� C$=�(B%)
['day3_%=�Jul_(�today_$,3)+B$+"."+C$)
[ �
[Gday1_%=day_%-SBestF_%:day2_%=day1_%-SBestF_%:day3_%=day2_%-SBestF_%
[�
[�
[
[|n��updateccred_(Z_%,A_%):db_%=0:db11_%=0:db22_%=0:db33_%=0:db44_%=0:db_$="":�A_%=1:�ccred%=0�occred_%=Z_%��
[�-�A_%=0:�CSuppliers_$(Z_%)=""�$!C11_%=""��
[�8�A_%=1:�CSuppliers_$(Z_%)="":�$!C9_%=""�$!C11_%=""��
[� � Z%,A%,B%,C%,D%,E%,F%,G%,H%
[� ș&406C0
[��Z%=0�maxS_%*sitip_%-1
[�#�SITn_%(Z%+1)=CSuNumber_%(Z_%)�
[�xF%=�Jul_(SITe_$(Z%*sitif_%+1)):H%=�ni_(SITe_$(Z%*sitif_%+6)):G%=�sub_(H%,�ni_(SITe_$(Z%*sitif_%+9))):E%=�add_(E%,H%)
[�g�F%>day1_%�A%=�add_(A%,G%) ��F%>day2_%�B%=�add_(B%,G%) ��F%>day3_%�C%=�add_(C%,G%) �D%=�add_(D%,G%)
[��
[�G�:db_%=�add_(A%+B%+C%+D%,0):db11_%=A%:db22_%=B%:db33_%=C%:db44_%=D%
[� �A_%=1�
[��$!C4_%=�tc_(A%,""):$!C5_%=�tc_(B%,""):$!C6_%=�tc_(C%,""):$!C7_%=�tc_(D%,""):$!C8_%=�tc_(db_%,""):$!C9_%=�tc_(E%,""):$!C11_%=�CSuppliers_$(CS_%),21):$!C13_%=�chdate_($!C13_%)
[���rI(ccred%,"C4"):�rI(ccred%,"C5"):�rI(ccred%,"C6"):�rI(ccred%,"C7"):�rI(ccred%,"C8"):�rI(ccred%,"C9"):�rI(ccred%,"C11"):�rI(ccred%,"C13"):occred_%=Z_%
[��
[Ǩ�A_%=0:�db_%<>0:db_$="Cur="+Cu_$+�tc_(A%,"0")+" : Prd1="+Cu_$+�tc_(B%,"0")+" : Prd2="+Cu_$+�tc_(C%,"0")+" : Prd3="+Cu_$+�tc_(D%,"0")+" : TOTAL="+Cu_$+�tc_(db_%,"0")
[� ș&406C1
[��
[�GݤC12_:C120_%=-C120_%:�C120_%=1��usI(W%,"C12"):=� ��sI(W%,"C12"):=�
[�@ݤC13_:$!C13_%=�chdate_($!C13_%):�$!C13_%="":$!C13_%=today_$
[��rI(ccred%,"C13"):=�
[�
[�ݤfindccredt_
[�Itot_%()=0:Ord_%()=-1
\!� Z%,A%,B%,C%,D%,F%,G%,H%,H_%
\ ș&406C0
\
�Z%=0�maxS_%*sitip_%-1
\)�SITn_%(Z%+1)=CSuNumber_%(supply1_%)�
\bF%=�Jul_(SITe_$(Z%*sitif_%+1)):G%=�sub_(�ni_(SITe_$(Z%*sitif_%+6)),�ni_(SITe_$(Z%*sitif_%+9)))
\ g�F%>day1_%�A%=�add_(A%,G%) ��F%>day2_%�B%=�add_(B%,G%) ��F%>day3_%�C%=�add_(C%,G%) �D%=�add_(D%,G%)
\!��G%<>0�H_%+=1:Ord_%(H_%)=Z%:�Z%=maxS_%*sitip_%-1�SITe_$(Z%*sitif_%+5)<>SITe_$((Z%+1)*sitif_%+5)�SITe_$(Z%*sitif_%+5)="":H%+=1
\&�
\+�
\0VItot_%(0)=A%:Itot_%(1)=B%:Itot_%(2)=C%:Itot_%(3)=D%:Itot_%(4)=�add_(A%+B%+C%+D%,0)
\5p�Itot_%(3)>0�Ivat_$(4)=Stat3_$ ��Itot_%(2)>0�Ivat_$(4)=Stat2_$ ��Itot_%(1)>0�Ivat_$(4)=Stat1_$ �Ivat_$(4)=""
\: ș&406C1
\?=H%
\�
]ݤC10_:�($!C10_%)=0:=�
]�� A%,A_%,B%,B_%,C%,c_%,D%,D_%,E%,E_%,F%,F_%,G%,H%,Z%,Z_%,a_$,b_$:C%=�ni_($!C10_%):G%=t_%:H%=u_%:$!C13_%=�chdate_($!C13_%):b_$=$!C13_%:�b_$="":b_$=today_$
] #ș&406C0:�Z%=0�maxS_%*sitip_%-1
]$�SITn_%(Z%+1)=CSuNumber_%(CS_%)�
]0�SITe_$(Z%*sitif_%+6)<>SITe_$(Z%*sitif_%+9)�
]\A%=�ni_(SITe_$(Z%*sitif_%+6)):E%=�ni_(SITe_$(Z%*sitif_%+9)):B%=E%:D%=A%-B%:B%+=D%:C%-=D%
] �C%<0:B%+=C%:C%=0
]% �SITs_$(Z%)=Q_$:F%=1 �F%=0
]*�saled%=0�
]/,�C120_%=1:SITe_$(Z%*sitif_%+1)=b_$:Z_%=1
]4>SITe_$(Z%*sitif_%+9)=�convis_(B%,""):�B%=A%:SITs_$(Z%)=Q_$
]9>$t_%=SITe_$(Z%*sitif_%+4):$u_%=SITe_$(Z%*sitif_%+10):�m2_%
]>�$t_%<>""�
]CA_%=�($t_%)-64:�A_%<13�
]H�BankCC_%(A_%)=�add_(BankCC_%(A_%),-E%+B%):�F%=1�SITs_$(Z%)=Q_$�BankSS_%(A_%)=�add_(BankSS_%(A_%),-E%+B%) ��F%=1:BankSS_%(A_%)=�add_(BankSS_%(A_%),-E%) ��SITs_$(Z%)=Q_$�BankSS_%(A_%)=�add_(BankSS_%(A_%),B%)
]Mc_%=�updatebank_
]R�
]W�
]\�($u_%)=1�$u_%+="A"
]a��$u_%<>""�A_%=�($u_%)-65:B_%=�(�$u_%,1))-65:�A_%<12�B_%<8�A_%=A_%*40+B_%*5+2:Sheadt1_%(A_%)=�add_(Sheadt1_%(A_%),-E%+B%):Sheadt1_%(A_%+1)=Sheadt1_%(A_%+1)-(A%-E%)+(A%-B%):c_%=�updateheadsM_(1)
]f�
]kR�getSITdat_:F_%=4:D_%=Z%-sitp_%-4:E_%=sitp_%+D_%:�E_%<=0:F_%=4-�(E_%):D_%-=E_%
]pEsitp_%+=D_%:�setSITdat_(-D_%):a_$=�convis_(B%,""):�B%=A%:a_$+="R"
]uSc_%=�pII(saled%,F_%*sitif_%+9,a_$):�C120_%=1:c_%=�pII(saled%,F_%*sitif_%+1,b_$)
]z�
] �C%=0:Z%=maxS_%*sitip_%-1
]��
]��
]��
]�
�C%>0�
]��olddata_$(0)=b_$:olddata_$(1)=�b_$,7):olddata_$(2)=CSuppliers_$(CS_%):olddata_$(3)=ITacc_$:olddata_$(4)="Credit":olddata_$(5)="":olddata_$(6)="":olddata_$(7)="":olddata_$(8)=�convis_(C%,"")
]�<olddata_$(9)=IThead_$:olddata_$(10)="":olddata_$(11)="o"
]���REledger_(2)=�:ș&406C1:�pe_("Sales Ledger full. Increase preference levels, save your work and quit, re-load it and enter an extra UNPAID sales entry for "+�(-C%)+" (CREDIT)"):ș&406C0
]��
]��saled%>0:�getSITdat_
]��:�Z_%=1:�SiSort_
]�Xș&406C1:$!C10_%="":�rI(ccred%,"C10"):�setC_(14):occred_%=0:�updateccred_(CS_%,1):=�
]�ݤIinitOrdernum_
]� $!IOrdernum_%=IOrderS_$(19)
]�$!Ordernum_%="000001"
]�=�
]� ݤOrdernum_:=�IOrdernum_
]�ݤIOrdernum_
]�1�$!IOrdernum_%<>IOrderS_$(19)�IOrderch%(19)=1
]�;�$!IOrdernum_%=""�$!IOrdernum_%="1":�rI(W%,"IOrdernum")
]� IOrderS_$(19)=$!IOrdernum_%
]�>�$!Ordernum_%<>"N/A"�$!Ordernum_%="N/A":�rI(W%,"Ordernum")
]��R%=12:�setC_(Onum%)
]�=�
^�ݤinitVatW_:$!VatC1_%=�convis_(Va_%(2),"0"):$!VatN1_%=Va_$(2):$!VatC2_%=�convis_(Va_%(3),"0"):$!VatN2_%=Va_$(3):$!VatC3_%=�convis_(Va_%(4),"0"):$!VatN3_%=Va_$(4):$!VatC4_%=�convis_(Va_%(5),"0"):$!VatN4_%=Va_$(5)
^8$!VatC5_%=�convis_(Va_%(6),"0"):$!VatN5_%=Va_$(6):=�
^ ݤVatW_:�error_%>0�=�
^�� Z%,Z$:Va_%(22)=Va_%(2):Va_%(23)=Va_%(3):Va_%(24)=Va_%(4):Va_%(25)=Va_%(5):Va_%(26)=Va_%(6):Va_%(2)=�ni_($!VatC1_%):Va_$(2)=$!VatN1_%:Va_%(3)=�ni_($!VatC2_%):Va_$(3)=$!VatN2_%
^�Va_%(4)=�ni_($!VatC3_%):Va_$(4)=$!VatN3_%:Va_%(5)=�ni_($!VatC4_%):Va_$(5)=$!VatN4_%:Va_%(6)=�ni_($!VatC5_%):Va_$(6)=$!VatN5_%
^_�Va_%(22)<>Va_%(2)�Va_%(23)<>Va_%(3)�Va_%(24)<>Va_%(4)�Va_%(25)<>Va_%(5)�Va_%(26)<>Va_%(6)�
^ eerror_%=1:Z$=�alert("About to update all "+VAT_$+" related stock OK?","","YES","NO","ar_quest",1)
^)
error_%=0
^.�
^3=Va_%(22)=0:Va_%(23)=0:Va_%(24)=0:Va_%(25)=0:Va_%(26)=0:=�
^8ݤVatC1_:=�VatW_
^=ݤVatC2_:=�VatW_
^BݤVatC3_:=�VatW_
^GݤVatC4_:=�VatW_
^LݤVatC5_:=�VatW_
^QݤVatN1_:=�VatW_
^VݤVatN2_:=�VatW_
^[ݤVatN3_:=�VatW_
^`ݤVatN4_:=�VatW_
^eݤVatN5_:=�VatW_
^j
^oݤinitPassW_
^t3�pass1_$<>""�$!Spass11_%="ON"�$!Spass11_%="Off"
^y3�pass2_$<>""�$!Spass22_%="ON"�$!Spass22_%="Off"
^~3�pass3_$<>""�$!Spass33_%="ON"�$!Spass33_%="Off"
^�3�pass4_$<>""�$!Spass44_%="ON"�$!Spass44_%="Off"
^�3�pass5_$<>""�$!Spass55_%="ON"�$!Spass55_%="Off"
^�3�pass6_$<>""�$!Spass66_%="ON"�$!Spass66_%="Off"
^�3�pass7_$<>""�$!Spass77_%="ON"�$!Spass77_%="Off"
^�3�passA_$<>""�$!SpassAA_%="ON"�$!SpassAA_%="Off"
^��$!pass11_%="":$!pass22_%="":$!pass33_%="":$!pass44_%="":$!pass55_%="":$!pass66_%="":$!pass77_%="":$!passAA_%="":$!passmess_%=passm1_$:=�
^�
^�Tݤpass_(A_$,A_%,B_%,a_%,B_$,C_$):�A_$=""�$!A_%<>""�A_$=$!A_%:$!B_%="ON":$!A_%=""
^�4�A_$=$!A_%�A_$="":$!A_%=A_$:$!B_%="Off":$!A_%=""
^���A_$<>""�$!A_%<>"":�A_$<>$!A_%��setC_(a_%):$!A_%="":$!B_%="Wrong":�rI(W%,B_$):�pause(100):$!B_%="ON":�rI(W%,C_$):�setC_(a_%)
^� �rI(W%,C_$):�rI(W%,B_$):=A_$
^�
^�Pݤpass11_:pass1_$=�pass_(pass1_$,pass11_%,Spass11_%,0,"Spass11","pass11"):=�
^�Pݤpass22_:pass2_$=�pass_(pass2_$,pass22_%,Spass22_%,1,"Spass22","pass22"):=�
^�Pݤpass33_:pass3_$=�pass_(pass3_$,pass33_%,Spass33_%,3,"Spass33","pass33"):=�
^�Pݤpass44_:pass4_$=�pass_(pass4_$,pass44_%,Spass44_%,2,"Spass44","pass44"):=�
^�Pݤpass55_:pass5_$=�pass_(pass5_$,pass55_%,Spass55_%,4,"Spass55","pass55"):=�
^�Pݤpass66_:pass6_$=�pass_(pass6_$,pass66_%,Spass66_%,5,"Spass66","pass66"):=�
^�Pݤpass77_:pass7_$=�pass_(pass7_$,pass77_%,Spass77_%,6,"Spass77","pass77"):=�
^�Pݤpass88_:pass8_$=�pass_(pass8_$,pass88_%,Spass88_%,5,"Spass88","pass88"):=�
^�Pݤpass99_:pass9_$=�pass_(pass9_$,pass99_%,Spass99_%,1,"Spass99","pass99"):=�
^�ZݤpassAA_:passA_$=�pass_(passA_$,passAA_%,SpassAA_%,7,"SpassAA","passAA"):�setC_(7):=�
^�
_2'ݤCsuppup_(V_%):�$wn%<>"CustomW"�=�
_7g�$!CSuName_%=""�CSuppliers_$(CS_%)<>""�$!CSuName_%=CSuppliers_$(CS_%):�rI(CSuW%,"CSuName"):�wl_(12)
_<6�$!CSuName_%<>"":�CSuppliers_$(CS_%)=""�occred_%=0
_A� Z%,B%,C%,A$,V$,Z$
_Fo�!i%>Csui_%-1�!i%<Csui_%+21�CSuI_%=!i%:�V_%=0�!i%<Csui_%+21�CSuI_%=CSuI_%+1:�CSuI_%=Csui_%+21�CSuI_%=Csui_%
_KZ%=�Csupstoc_
_P CS_%=CS_%+V_%:Z%=�CSCheck_
_U3Z%=�Cinitsupplier_:�CLabSu%>0:Z%=�Cupdatesulab_
_Z�setC_(CSuI_%)
__�V_%<>0��Cfillsu_
_d *FX15,1
_i=�
_n
_�_ݤCsupstoc_:�CSuppliers_$(CS_%)<>"":�$!CSuName_%<>"":�$!CSuName_%<>CSuppliers_$(CS_%)��chc_
_�=�Cupdatesupplier_
_�3��chc_:� Z%,Z_%:ș&406C0:�Z%=0�maxS_%*sitip_%-1
_���SITn_%(Z%+1)=CSuNumber_%(CS_%)�SITe_$(Z%*sitif_%+3)=$!CSuName_%:�saled%>0:�Z%-sitp_%>-1:�Z%-sitp_%<5�Z_%=�pII(saled%,(Z%-sitp_%)*sitif_%+3,SITe_$(Z%*sitif_%+3))
_��:ș&406C1:�
_�
_���Cfillsu_:�CSuW%=0��
_���rI(CSuW%,"CSuName"):�rI(CSuW%,"CSuAd11"):�rI(CSuW%,"CSuAd22"):�rI(CSuW%,"CSuAd33"):�rI(CSuW%,"CSuAd44"):�rI(CSuW%,"CSuPost"):�rI(CSuW%,"CSuContact"):�rI(CSuW%,"CSuTele")
_���rI(CSuW%,"dCSuName"):�rI(CSuW%,"dCSuAd11"):�rI(CSuW%,"dCSuAd22"):�rI(CSuW%,"dCSuAd33"):�rI(CSuW%,"dCSuAd44"):�rI(CSuW%,"dCSuPost")
_���rI(CSuW%,"CSuFax"):�rI(CSuW%,"CSuCom11"):�rI(CSuW%,"CSuCom22"):�rI(CSuW%,"CSuSuppRef"):�rI(CSuW%,"CSuYourRef"):�rI(CSuW%,"CSuOrder"):�rI(CSuW%,"CSuDisc"):chcunam_%=0:�
_�
ba'��setC_(temp_%):�W%!12<1�temp_%<0��
bf� �
bk� � �:� �:�pe_(�err_):�
bp'ș&400D2,W%!12,temp_%,9999,,-1,-1:�
bu*��setC1_(W_%,temp_%):�W_%<1�temp_%<0��
bz%ș&400D2,W_%,temp_%,9999,,-1,-1:�
b>��setC2_:ș&400D3,,hblock_%:�hblock_%!0=-1�hblock_%!4=-1��
b�0ș&400D2,hblock_%!0,hblock_%!4,9999,,-1,-1:�
b�
b�AݤUup_(V_%):� Z%:Z%=�updateUser_:Z%=�initUser_:�setC_(V_%):=�
b�
c.ݤCSCheck_
c3�CS_%<1�CS_%=1
c8$�CS_%>Cmaxsupp_%�CS_%=Cmaxsupp_%
c==�
cB
d�ݤchdate_(D_$)
d�)� A,A$,B_%,Z%,Z$,A%,B%,C%,D%,E%,B$,C$
d��D_$=""�=""
d� A$="":A%=0:B%=0:C%=0:D%=0
d�A=�(D_$):A%=�add_(0,A)
d�%�A%>31�A%<0�D_$=today_$:A%=�(D_$)
d� �A%<1�A%>31�A%=�(��$,5,2))
eaD%=�D_$,"."):�D%>0�B%=�(�D_$,D%+1,255)):E%=��D_$,D%+1,255),"."):�E%>0�C%=�(�D_$,D%+E%+1,255))
e �B%=0�B%>12�B%=�curmon_
e�C%=0�C%=�(��$,12,4))
e&�A%=31:�B%=4�B%=6�B%=9�B%=11�A%=30
e
�B%=2�
e "�A%>29:�C%�4=0�C%�400<>0�A%=29
e""�A%>28:�C%�4<>0�C%�400=0�A%=28
e'�
e, A$=�(A%):B$=�(B%):C$=�(C%)
e1�A%<10�A$="0"+�(A%)
e6�B%<10�B$="0"+�(B%)
e;G�C%<10�C$="199"+�(C%) ��C%<100�C$="19"+�(C%) ��C%<1000�C$="1"+�(C%)
e@D_$=A$+"."+B$+"."+C$
eE#�checkDate(D_$)=� ��wl_(3):=""
eJ=D_$
eO
eTݤchdate1_(D_$,O_$)
eY)� A,A$,B_%,Z%,Z$,A%,B%,C%,D%,E%,B$,C$
e^)O_$=�chdate_(O_$):�O_$=""�O_$=today_$
ec�D_$=""�=O_$
eh A$="":A%=0:B%=0:C%=0:D%=0
emA=�(D_$):A%=�add_(0,A)
er!�A%>31�A%<0�D_$=O_$:A%=�(D_$)
ew �A%<1�A%>31�A%=�(�O_$,2))
e|aD%=�D_$,"."):�D%>0�B%=�(�D_$,D%+1,255)):E%=��D_$,D%+1,255),"."):�E%>0�C%=�(�D_$,D%+E%+1,255))
e� �B%=0�B%>12�B%=�(�O_$,4,2))
e��C%=0�C%=�(�O_$,4))
e�&�A%=31:�B%=4�B%=6�B%=9�B%=11�A%=30
e�
�B%=2�
e�"�A%>29:�C%�4=0�C%�400<>0�A%=29
e�"�A%>28:�C%�4<>0�C%�400=0�A%=28
e��
e� A$=�(A%):B$=�(B%):C$=�(C%)
e��A%<10�A$="0"+�(A%)
e��B%<10�B$="0"+�(B%)
e�G�C%<10�C$="199"+�(C%) ��C%<100�C$="19"+�(C%) ��C%<1000�C$="1"+�(C%)
e�D_$=A$+"."+B$+"."+C$
e�#�checkDate(D_$)=� ��wl_(3):=""
e�=D_$
e�
e�
ݤcurmon_
e��$,8,3)="Jan"�=1
e��$,8,3)="Feb"�=2
e��$,8,3)="Mar"�=3
e��$,8,3)="Apr"�=4
e��$,8,3)="May"�=5
e��$,8,3)="Jun"�=6
e��$,8,3)="Jul"�=7
e��$,8,3)="Aug"�=8
e��$,8,3)="Sep"�=9
e��$,8,3)="Oct"�=10
f�$,8,3)="Nov"�=11
f�$,8,3)="Dec"�=12
f
=1
f
f�!ݤIinitOrderP_:=�IOpapersize_
f�
gݤIupdateOrderP_
g� A%,B%,Z%
g
A%=0:B%=0
g�IOwind%>0�
g�Z%=Iori_%�IOicons%
g�geticon_(IOwind%,Z%)
g a�block_%!16>�($!IOpagex_%)*rule_:�block_%!16>A%�$!IOpagex_%=�(block_%!16/rule_):A%=block_%!16
g%m�(block_%!12)>�($!IOpagey_%)*rule_:�(block_%!12)>B%�$!IOpagey_%=�(�(block_%!12/rule_)):B%=�(block_%!12)
g*�
g/�
g4'�($!IOpagex_%)<50�$!IOpagex_%="50"
g9)�($!IOpagex_%)>400�$!IOpagex_%="400"
g>'�($!IOpagey_%)<50�$!IOpagey_%="50"
gC)�($!IOpagey_%)>400�$!IOpagey_%="400"
gHXIOpagx_%=�($!IOpagex_%):IOpagy_%=�($!IOpagey_%):Z%=�IOchecksize_:Z%=�IOpapersize_:=�
g���IupdateOrderD_
g�
�R%=193��
g�� Z%
g�c�R%=256�R%=5�$!IOrderH_%=�(IOdsize_%):$!IOrderG_%=�(IOdgap_%):�R%=5��rI(W%,"IOrderH"):�setC_(0)
g�4IOdsize_%=�($!IOrderH_%):IOdgap_%=�($!IOrderG_%)
g�?�Z%=23�27:IOrderch%(Z%)=1:�:IOrderch%(42)=1:IOrderch%(43)=1
g��
hLݤIOrderH_:�Z%=23�27:IOrderch%(Z%)=1:�:�($!IOrderH_%)<7�$!IOrderH_%="7"
h@�IOrdermy_(23)-�($!IOrderH_%)<0�$!IOrderH_%=�(IOrdermy_(23))
h �rI(W%,"IOrderH")
h$ IOdsize_%=�($!IOrderH_%):=�
hB)ݤIOrderG_:IOdgap_%=�($!IOrderG_%):=�
hL
h��ݤinitbanktot_:� Z%:Z%=�Xpapersize_:$!Xfontx_%=�(Xfon_x%):$!Xfonty_%=�(Xfon_y%):Z%=�Xfsulab_:$!Xfname_%=Fo_$(Xnam_%):$!Xasaveas_%=Xnam_$:=�
h�yݤCinitsuplab_:� Z%:$!CSdown_%=�(CSdow_%):$!CSacross_%=�(CSacros_%):$!CSnumber_%=�(CSnumbe_%):$!CSstart_%=�(CSstar_%)
h�;�CScontac_%=1��usI(W%,"CScontact") ��sI(W%,"CScontact")
h�2�CSnam_%=1��usI(W%,"CSname") ��sI(W%,"CSname")
h�;�CSaddres_%=1��usI(W%,"CSaddress") ��sI(W%,"CSaddress")
h��Z%=�CSpapersize_:Z%=�CSaltju_:$!CSfontx_%=�(CSfon_x%):$!CSfonty_%=�(CSfon_y%):$!CSupFrom_%=�chtolen_(CSupFro_%,Cmaxsupp_%):CSupFro_%=�($!CSupFrom_%)
h��$!CSupTo_%=�chtolen_(CSupT_%,Cmaxsupp_%):CSupT_%=�($!CSupTo_%):�CSupFro_%=CSupT_%:CSupFro_%=CS_%:CSupT_%=CS_%:$!CSupFrom_%=�(CSupFro_%):$!CSupTo_%=�(CSupT_%)
h�TZ%=�Cfsulab_:$!CSfontname_%=Fo_$(j_f5%):$!CsComm_%=CsCom_$:$!CsPost_%=CsPos_$:=�
i(�ݤinitsaled2_:� Z%:Z%=�Sapapersize_:$!Safontx_%=SaledR_$(23):$!Safonty_%=SaledR_$(24):$!Safname_%=Fo_$(SaledR_%(15)):$!Sasaveas_%=SaledR_$(25)
i-0�SaledR_%(1)=1��usI(W%,"r1S") ��sI(W%,"r1S")
i20�SaledR_%(2)=1��usI(W%,"r2S") ��sI(W%,"r2S")
i70�SaledR_%(3)=1��usI(W%,"r3S") ��sI(W%,"r3S")
i<0�SaledR_%(4)=1��usI(W%,"r4S") ��sI(W%,"r4S")
iA0�SaledR_%(5)=1��usI(W%,"r5S") ��sI(W%,"r5S")
iF0�SaledR_%(6)=1��usI(W%,"r6S") ��sI(W%,"r6S")
iK0�SaledR_%(7)=1��usI(W%,"r7S") ��sI(W%,"r7S")
iP0�SaledR_%(8)=1��usI(W%,"r8S") ��sI(W%,"r8S")
iU0�SaledR_%(9)=1��usI(W%,"r9S") ��sI(W%,"r9S")
iZ1�SaledR_%(10)=1��usI(W%,"raS") ��sI(W%,"raS")
i_1�SaledR_%(11)=1��usI(W%,"rbS") ��sI(W%,"rbS")
id1�SaledR_%(18)=1��usI(W%,"rcS") ��sI(W%,"rcS")
ii�$!r11S_%=SaledR_$(1):$!r111S_%=SaledR_$(2):$!r22S_%=SaledR_$(3):$!r222S_%=SaledR_$(4):$!r33S_%=SaledR_$(5):$!r44S_%=SaledR_$(6):$!r444S_%=SaledR_$(7):$!r55S_%=SaledR_$(8):$!r66S_%=SaledR_$(9):$!r666S_%=SaledR_$(10)
in�$!r77S_%=SaledR_$(11):$!r777S_%=SaledR_$(12):$!r7777S_%=SaledR_$(13):$!r88S_%=SaledR_$(14):$!r888S_%=SaledR_$(15):$!r99S_%=SaledR_$(16):$!r999S_%=SaledR_$(17):$!raaS_%=SaledR_$(18)
is3$!rbbS_%=SaledR_$(19):$!rbbbS_%=SaledR_$(20):=�
ix
i}�ݤinitpaled2_:� Z%:Z%=�Papapersize_:$!Pafontx_%=PaledR_$(23):$!Pafonty_%=PaledR_$(24):$!Pafname_%=Fo_$(PaledR_%(15)):$!Pasaveas_%=PaledR_$(25)
i�0�PaledR_%(1)=1��usI(W%,"r1P") ��sI(W%,"r1P")
i�0�PaledR_%(2)=1��usI(W%,"r2P") ��sI(W%,"r2P")
i�0�PaledR_%(3)=1��usI(W%,"r3P") ��sI(W%,"r3P")
i�0�PaledR_%(4)=1��usI(W%,"r4P") ��sI(W%,"r4P")
i�0�PaledR_%(5)=1��usI(W%,"r5P") ��sI(W%,"r5P")
i�0�PaledR_%(6)=1��usI(W%,"r6P") ��sI(W%,"r6P")
i�0�PaledR_%(7)=1��usI(W%,"r7P") ��sI(W%,"r7P")
i�0�PaledR_%(8)=1��usI(W%,"r8P") ��sI(W%,"r8P")
i�0�PaledR_%(9)=1��usI(W%,"r9P") ��sI(W%,"r9P")
i�1�PaledR_%(10)=1��usI(W%,"raP") ��sI(W%,"raP")
i�1�PaledR_%(11)=1��usI(W%,"rbP") ��sI(W%,"rbP")
i�1�PaledR_%(18)=1��usI(W%,"rcP") ��sI(W%,"rcP")
i��$!r11P_%=PaledR_$(1):$!r111P_%=PaledR_$(2):$!r22P_%=PaledR_$(3):$!r222P_%=PaledR_$(4):$!r33P_%=PaledR_$(5):$!r44P_%=PaledR_$(6):$!r444P_%=PaledR_$(7):$!r55P_%=PaledR_$(8):$!r66P_%=PaledR_$(9):$!r666P_%=PaledR_$(10)
iø$!r77P_%=PaledR_$(11):$!r777P_%=PaledR_$(12):$!r7777P_%=PaledR_$(13):$!r88P_%=PaledR_$(14):$!r888P_%=PaledR_$(15):$!r99P_%=PaledR_$(16):$!r999P_%=PaledR_$(17):$!raaP_%=PaledR_$(18)
i�3$!rbbP_%=PaledR_$(19):$!rbbbP_%=PaledR_$(20):=�
i�
iҐݤinitbank2_:� Z%:Z%=�Bapapersize_:$!Bafontx_%=BaledR_$(13):$!Bafonty_%=BaledR_$(14):$!Bafname_%=Fo_$(BaledR_%(9)):$!Basaveas_%=BaledR_$(15)
i�0�BaledR_%(1)=1��usI(W%,"r1B") ��sI(W%,"r1B")
i�0�BaledR_%(2)=1��usI(W%,"r2B") ��sI(W%,"r2B")
i�0�BaledR_%(3)=1��usI(W%,"r3B") ��sI(W%,"r3B")
i�0�BaledR_%(4)=1��usI(W%,"r4B") ��sI(W%,"r4B")
i�0�BaledR_%(5)=1��usI(W%,"r5B") ��sI(W%,"r5B")
i�0�BaledR_%(6)=1��usI(W%,"r6B") ��sI(W%,"r6B")
i��$!r11B_%=BaledR_$(1):$!r111B_%=BaledR_$(2):$!r22B_%=BaledR_$(3):$!r33B_%=BaledR_$(4):$!r333B_%=BaledR_$(5):$!r44B_%=BaledR_$(6):$!r444B_%=BaledR_$(7):$!r55B_%=BaledR_$(8):$!r555B_%=BaledR_$(9):$!r66B_%=BaledR_$(10):=�
i�ݤinitvatpc_
i�� Z%
jZ%=�Vapapersize_
j c$!Vafontx_%=VatC_$(8):$!Vafonty_%=VatC_$(9):$!Vafname_%=Fo_$(VatC_%(8)):$!Vasaveas_%=VatC_$(10)
jd�VatC_%(1)=1��sI(W%,"vc3"):�usI(W%,"vc4"):VatC_%(2)=-1 ��sI(W%,"vc4"):�usI(W%,"vc3"):VatC_%(2)=1
j]$!vc1_%=VatC_$(1):$!vc2_%=VatC_$(2):$!vc7_%=VatC_$(3):$!vc8_%=VatC_$(4):$!vc9_%=VatC_$(5)
jA$!pass88_%="":�pass8_$<>""�$!Spass88_%="ON"�$!Spass88_%="Off"
j �VatC_$(4)=""�=�vcdate_
j"=�
j��ݤCinitsuplist_:� Z%:Z%=�CSLpapersize_:$!CSLleft_%=�(CSLlef_%):$!CSLtopp_%=�(CSLtop_%):$!CSLspace_%=�(CSLspac_%):$!CSLfontx_%=�(CSLfon_x%):$!CSLfonty_%=�(CSLfon_y%)
j��$!CSLfrom_%=�chtolen_(CSLfro_%,Cmaxsupp_%):CSLfro_%=�($!CSLfrom_%):$!CSLto_%=�chtolen_(CSLt_%,Cmaxsupp_%):CSLt_%=�($!CSLto_%):Z%=�Cfsulist_:$!CSLfname_%=Fo_$(j_f6%)
j�;�CSLRecNu_%=1��usI(W%,"CSLRecNum") ��sI(W%,"CSLRecNum")
j�A�CSLsupplie_%=1��usI(W%,"CSLsupplier") ��sI(W%,"CSLsupplier")
j�5�CSLad1_%=1��usI(W%,"CSLad11") ��sI(W%,"CSLad11")
j�5�CSLad2_%=1��usI(W%,"CSLad22") ��sI(W%,"CSLad22")
j�5�CSLad3_%=1��usI(W%,"CSLad33") ��sI(W%,"CSLad33")
j�5�CSLad4_%=1��usI(W%,"CSLad44") ��sI(W%,"CSLad44")
j�5�CSLpos_%=1��usI(W%,"CSLpost") ��sI(W%,"CSLpost")
j�5�CSLcon_%=1��usI(W%,"CSLcont") ��sI(W%,"CSLcont")
j�5�CSLtel_%=1��usI(W%,"CSLtele") ��sI(W%,"CSLtele")
j�2�CSLfa_%=1��usI(W%,"CSLfax") ��sI(W%,"CSLfax")
j�8�CSLcom1_%=1��usI(W%,"CSLcom11") ��sI(W%,"CSLcom11")
j�8�CSLcom2_%=1��usI(W%,"CSLcom22") ��sI(W%,"CSLcom22")
j�>�CSLsuppre_%=1��usI(W%,"CSLsuppref") ��sI(W%,"CSLsuppref")
j�>�CSLyourre_%=1��usI(W%,"CSLyourref") ��sI(W%,"CSLyourref")
j�;�CSLordpr_%=1��usI(W%,"CSLordpre") ��sI(W%,"CSLordpre")
k5�CSLdeb_%=1��usI(W%,"CSLdebt") ��sI(W%,"CSLdebt")
k=�
k
kݤnpd_(A_$,B_$)
k� �
k � � �:� �:�rI(W%,pd_$):=pd_$
k!�ș&80140 � ,pxres_%,pyres_%,,$pname%:�A_$<>$pname%+" ("+�(pxres_%)+" by "+�(pyres_%)+" dpi)"�=$pname%+" ("+�(pxres_%)+" by "+�(pyres_%)+" dpi)":�rI(W%,B_$) �=A_$
k&
k?ݤXfsulab_:�bankp%=0�=�
kD2$!Xprinter_%=�npd_($!Xprinter_%,"Xprinter"):=�
kI ݤCfsulab_:�CLabSu%=0�=�
kN5$!CSprinter_%=�npd_($!CSprinter_%,"CSprinter"):=�
kb ݤfsalist_:�saled2%=0�=�
kg5$!Saprinter_%=�npd_($!Saprinter_%,"Saprinter"):=�
kl ݤfpalist_:�paled2%=0�=�
kq5$!Paprinter_%=�npd_($!Paprinter_%,"Paprinter"):=�
kvݤfbalist_:�bank2%=0�=�
k{5$!Baprinter_%=�npd_($!Baprinter_%,"Baprinter"):=�
k�ݤfvalist_:�vatpc%=0�=�
k�5$!Vaprinter_%=�npd_($!Vaprinter_%,"Vaprinter"):=�
k� ݤCfsulist_:�CSLsu%=0�=�
k�8$!CSLprinter_%=�npd_($!CSLprinter_%,"CSLprinter"):=�
kߕݤupdatebanktot_:� Z%:Z%=�Xfsulab_:Xpagx_%=�($!Xpagex_%):Xpagy_%=�($!Xpagey_%):Xfon_x%=�($!Xfontx_%):Xfon_y%=�($!Xfonty_%):Xnam_$=$!Xasaveas_%:=�
l ݤCupdatesulab_:� Z%
l�CSdow_%=�($!CSdown_%):CSacros_%=�($!CSacross_%):CSnumbe_%=�($!CSnumber_%):CSstar_%=�($!CSstart_%):CSpagx_%=�($!CSpagex_%):CSpagy_%=�($!CSpagey_%):CSfon_x%=�($!CSfontx_%):CSfon_y%=�($!CSfonty_%)
l�CsCom_$=$!CsComm_%:CsPos_$=$!CsPost_%:$!CSupFrom_%=�chtolen_(�($!CSupFrom_%),Cmaxsupp_%):$!CSupTo_%=�chtolen_(�($!CSupTo_%),Cmaxsupp_%)
l:�($!CSupTo_%)<�($!CSupFrom_%)�$!CSupTo_%=$!CSupFrom_%
l 3CSupFro_%=�($!CSupFrom_%):CSupT_%=�($!CSupTo_%)
l%b�CSupFro_%=CSupT_%:CSupFro_%=CS_%:CSupT_%=CS_%:$!CSupFrom_%=�(CSupFro_%):$!CSupTo_%=�(CSupT_%)
l*T�rI(CLabSu%,"CSupFrom"):�rI(CLabSu%,"CSupTo"):�W%=CLabSu%:Z%=�Cfsulab_:�setC_(3)
l/=�
l4
lM9ݤupdatesaled2_:� G%,H%,Z%:G%=t_%:H%=u_%:Z%=�fsalist_
lR<�$!r11S_%<>""�$!r11S_%=�chdate_($!r11S_%):�rI(W%,"r11S")
lW@�$!r111S_%<>""�$!r111S_%=�chdate_($!r111S_%):�rI(W%,"r111S")
l\F�$!r22S_%<>""�$!r22S_%=¤chdate_("01."+$!r22S_%),7):�rI(W%,"r22S")
laJ�$!r222S_%<>""�$!r222S_%=¤chdate_("01."+$!r222S_%),7):�rI(W%,"r222S")
lfA$t_%=$!r44S_%:$u_%=$!r99S_%:�m2_%:$!r44S_%=$t_%:$!r99S_%=$u_%
lk�SaledR_$(1)=$!r11S_%:SaledR_$(2)=$!r111S_%:SaledR_$(3)=$!r22S_%:SaledR_$(4)=$!r222S_%:SaledR_$(5)=$!r33S_%:�rI(W%,"r44S"):SaledR_$(6)=$!r44S_%:SaledR_$(7)=$!r444S_%:SaledR_$(8)=$!r55S_%
lp�SaledR_$(9)=$!r66S_%:SaledR_$(10)=$!r666S_%:SaledR_$(11)=$!r77S_%:SaledR_$(12)=$!r777S_%:SaledR_$(13)=$!r7777S_%:SaledR_$(14)=$!r88S_%:SaledR_$(15)=$!r888S_%:�rI(W%,"r99S")
lusSaledR_$(16)=$!r99S_%:SaledR_$(17)=$!r999S_%:SaledR_$(18)=$!raaS_%:SaledR_$(19)=$!rbbS_%:SaledR_$(20)=$!rbbbS_%
lz�SaledR_$(21)=$!Sapagex_%:SaledR_$(22)=$!Sapagey_%:SaledR_$(23)=$!Safontx_%:SaledR_$(24)=$!Safonty_%:SaledR_$(25)=$!Sasaveas_%:*FX15,1
l+Z%=�Salfinda_:Z%=�Salfindh_:=�Salfinds_
l�
l�9ݤupdatepaled2_:� G%,H%,Z%:G%=t_%:H%=u_%:Z%=�fpalist_
l�<�$!r11P_%<>""�$!r11P_%=�chdate_($!r11P_%):�rI(W%,"r11P")
l�@�$!r111P_%<>""�$!r111P_%=�chdate_($!r111P_%):�rI(W%,"r111P")
l�F�$!r22P_%<>""�$!r22P_%=¤chdate_("01."+$!r22P_%),7):�rI(W%,"r22P")
l�J�$!r222P_%<>""�$!r222P_%=¤chdate_("01."+$!r222P_%),7):�rI(W%,"r222P")
l�A$t_%=$!r44P_%:$u_%=$!r99P_%:�m2_%:$!r44P_%=$t_%:$!r99P_%=$u_%
l��PaledR_$(1)=$!r11P_%:PaledR_$(2)=$!r111P_%:PaledR_$(3)=$!r22P_%:PaledR_$(4)=$!r222P_%:PaledR_$(5)=$!r33P_%:�rI(W%,"r44P"):PaledR_$(6)=$!r44P_%:PaledR_$(7)=$!r444P_%:PaledR_$(8)=$!r55P_%
l��PaledR_$(9)=$!r66P_%:PaledR_$(10)=$!r666P_%:PaledR_$(11)=$!r77P_%:PaledR_$(12)=$!r777P_%:PaledR_$(13)=$!r7777P_%:PaledR_$(14)=$!r88P_%:PaledR_$(15)=$!r888P_%:�rI(W%,"r99P")
l�sPaledR_$(16)=$!r99P_%:PaledR_$(17)=$!r999P_%:PaledR_$(18)=$!raaP_%:PaledR_$(19)=$!rbbP_%:PaledR_$(20)=$!rbbbP_%
l��PaledR_$(21)=$!Papagex_%:PaledR_$(22)=$!Papagey_%:PaledR_$(23)=$!Pafontx_%:PaledR_$(24)=$!Pafonty_%:PaledR_$(25)=$!Pasaveas_%:*FX15,1
l�+Z%=�Palfinda_:Z%=�Palfindh_:=�Palfinds_
l�
l�qݤupdatebank2_:� G%,H%,Z%:G%=t_%:H%=u_%:Z%=�fbalist_:�$!r11B_%<>""�$!r11B_%=�chdate_($!r11B_%):�rI(W%,"r11B")
l�@�$!r111B_%<>""�$!r111B_%=�chdate_($!r111B_%):�rI(W%,"r111B")
l��$t_%=$!r33B_%:$u_%=$!r55B_%:�m2_%:$!r33B_%=$t_%:$!r55B_%=$u_%:BaledR_$(1)=$!r11B_%:BaledR_$(2)=$!r111B_%:BaledR_$(3)=$!r22B_%:�rI(W%,"r33B"):BaledR_$(4)=$!r33B_%:BaledR_$(5)=$!r333B_%:BaledR_$(6)=$!r44B_%:BaledR_$(7)=$!r444B_%
l���rI(W%,"r55B"):BaledR_$(8)=$!r55B_%:BaledR_$(9)=$!r555B_%:BaledR_$(10)=$!r66B_%:BaledR_$(11)=$!Bapagex_%:BaledR_$(12)=$!Bapagey_%:BaledR_$(13)=$!Bafontx_%:BaledR_$(14)=$!Bafonty_%:BaledR_$(15)=$!Basaveas_%:*FX15,1
l� Z%=�Balfinda_:=�Balfinds_
l�
l�ݤupdatevatpc_:� Z%:Z%=�fvalist_:�rI(W%,"vc8"):�rI(W%,"vc9"):$!vc1_%=VatC_$(1):$!vc2_%=VatC_$(2):�rI(W%,"vc1"):�rI(W%,"vc2"):$!vc8_%=VatC_$(4):$!vc9_%=VatC_$(5):�rI(W%,"vc8"):�rI(W%,"vc9")
l�VatC_$(3)=$!vc7_%:VatC_$(6)=$!Vapagex_%:VatC_$(7)=$!Vapagey_%:VatC_$(8)=$!Vafontx_%:VatC_$(9)=$!Vafonty_%:VatC_$(10)=$!Vasaveas_%:*FX15,1
l�=�
m�ݤCupdatesulist_:� Z%:Z%=�Cfsulist_:CSLpagx_%=�($!CSLpagex_%):CSLpagy_%=�($!CSLpagey_%):CSLfon_x%=�($!CSLfontx_%):CSLfon_y%=�($!CSLfonty_%):$!CSLfrom_%=�chtolen_(�($!CSLfrom_%),Cmaxsupp_%)
m c$!CSLto_%=�chtolen_(�($!CSLto_%),Cmaxsupp_%):�($!CSLto_%)<�($!CSLfrom_%)�$!CSLto_%=$!CSLfrom_%
m$�CSLfro_%=�($!CSLfrom_%):CSLt_%=�($!CSLto_%):CSLlef_%=�($!CSLleft_%):CSLtop_%=�($!CSLtopp_%):CSLspac_%=�($!CSLspace_%):�rI(W%,"CSLfrom"):�rI(W%,"CSLto"):�setC_(3):=�
m)
m.
ݤLaltju_
m3,�Ljle_%=1��sI(W%,"Ljle"):�usI(W%,"Ljce")
m8,�Ljce_%=1��usI(W%,"Ljle"):�sI(W%,"Ljce")
m==�
mVݤCSaltju_
m[/�CSjle_%=1��sI(W%,"CSjle"):�usI(W%,"CSjce")
m`/�CSjce_%=1��usI(W%,"CSjle"):�sI(W%,"CSjce")
me=�
mj(ݤLjce_:Ljle_%=-1:Ljce_%=1:=�Laltju_
mo(ݤLjle_:Ljle_%=1:Ljce_%=-1:=�Laltju_
my,ݤCSjce_:CSjle_%=-1:CSjce_%=1:=�CSaltju_
m�,ݤCSjle_:CSjle_%=1:CSjce_%=-1:=�CSaltju_
m�
m�ݤXpapersize_
m�R�Xa4_%=1��sI(W%,"Xa4"):�usI(W%,"Xus"):�usI(W%,"Xcust"):Xpagx_%=210:Xpagy_%=297
m�R�Xus_%=1��sI(W%,"Xus"):�usI(W%,"Xa4"):�usI(W%,"Xcust"):Xpagx_%=210:Xpagy_%=279
m�j�Xcust_%=1��sI(W%,"Xcust"):�usI(W%,"Xa4"):�usI(W%,"Xus"):� Xpagx_%=0�Xpagy_%=0�Xpagx_%=210:Xpagy_%=304
m�T�Xaspac_%=1��sI(W%,"Xaspac"):�usI(W%,"Xatab") ��usI(W%,"Xaspac"):�sI(W%,"Xatab")
m�*$!Xpagex_%=�(Xpagx_%):�rI(W%,"Xpagex")
m�*$!Xpagey_%=�(Xpagy_%):�rI(W%,"Xpagey")
m�=�
m�ݤCSpapersize_
n X�CSa4_%=1��sI(W%,"CSa4"):�usI(W%,"CSus"):�usI(W%,"CScust"):CSpagx_%=210:CSpagy_%=297
nX�CSus_%=1��sI(W%,"CSus"):�usI(W%,"CSa4"):�usI(W%,"CScust"):CSpagx_%=210:CSpagy_%=279
n
r�CScust_%=1��sI(W%,"CScust"):�usI(W%,"CSa4"):�usI(W%,"CSus"):� CSpagx_%=0�CSpagy_%=0�CSpagx_%=210:CSpagy_%=304
n-$!CSpagex_%=�(CSpagx_%):�rI(W%,"CSpagex")
n-$!CSpagey_%=�(CSpagy_%):�rI(W%,"CSpagey")
n=�
nFݤSapapersize_
nKj�SaledR_%(12)=1��sI(W%,"Saa4"):�usI(W%,"Saus"):�usI(W%,"Sacust"):SaledR_$(21)="210":SaledR_$(22)="297"
nPj�SaledR_%(13)=1��sI(W%,"Saus"):�usI(W%,"Saa4"):�usI(W%,"Sacust"):SaledR_$(21)="210":SaledR_$(22)="279"
nU��SaledR_%(14)=1��sI(W%,"Sacust"):�usI(W%,"Saa4"):�usI(W%,"Saus"):�(SaledR_$(21))=0��(SaledR_$(22))=0�SaledR_$(21)="210":SaledR_$(22)="304"
nZ.$!Sapagex_%=SaledR_$(21):�rI(W%,"Sapagex")
n_.$!Sapagey_%=SaledR_$(22):�rI(W%,"Sapagey")
nd5�SaledR_%(16)=1��sI(W%,"Satab"):�usI(W%,"Saspac")
ni5�SaledR_%(17)=1��usI(W%,"Satab"):�sI(W%,"Saspac")
nn=�
ns
nxݤPapapersize_
n}j�PaledR_%(12)=1��sI(W%,"Paa4"):�usI(W%,"Paus"):�usI(W%,"Pacust"):PaledR_$(21)="210":PaledR_$(22)="297"
n�j�PaledR_%(13)=1��sI(W%,"Paus"):�usI(W%,"Paa4"):�usI(W%,"Pacust"):PaledR_$(21)="210":PaledR_$(22)="279"
n���PaledR_%(14)=1��sI(W%,"Pacust"):�usI(W%,"Paa4"):�usI(W%,"Paus"):�(PaledR_$(21))=0��(PaledR_$(22))=0�PaledR_$(21)="210":PaledR_$(22)="304"
n�.$!Papagex_%=PaledR_$(21):�rI(W%,"Papagex")
n�.$!Papagey_%=PaledR_$(22):�rI(W%,"Papagey")
n�5�PaledR_%(16)=1��sI(W%,"Patab"):�usI(W%,"Paspac")
n�5�PaledR_%(17)=1��usI(W%,"Patab"):�sI(W%,"Paspac")
n�=�
n�
n�ݤBapapersize_
n�i�BaledR_%(6)=1��sI(W%,"Baa4"):�usI(W%,"Baus"):�usI(W%,"Bacust"):BaledR_$(11)="210":BaledR_$(12)="297"
n�i�BaledR_%(7)=1��sI(W%,"Baus"):�usI(W%,"Baa4"):�usI(W%,"Bacust"):BaledR_$(11)="210":BaledR_$(12)="279"
n���BaledR_%(8)=1��sI(W%,"Bacust"):�usI(W%,"Baa4"):�usI(W%,"Baus"):�(BaledR_$(11))=0��(BaledR_$(12))=0�BaledR_$(11)="210":BaledR_$(12)="304"
n�.$!Bapagex_%=BaledR_$(11):�rI(W%,"Bapagex")
n�.$!Bapagey_%=BaledR_$(12):�rI(W%,"Bapagey")
n�5�BaledR_%(10)=1��sI(W%,"Batab"):�usI(W%,"Baspac")
n�5�BaledR_%(11)=1��usI(W%,"Batab"):�sI(W%,"Baspac")
n�=�
n�
o"ݤCSLpapersize_
o'^�CSLa4_%=1��sI(W%,"CSLa4"):�usI(W%,"CSLus"):�usI(W%,"CSLcust"):CSLpagx_%=210:CSLpagy_%=297
o,^�CSLus_%=1��sI(W%,"CSLus"):�usI(W%,"CSLa4"):�usI(W%,"CSLcust"):CSLpagx_%=210:CSLpagy_%=279
o1z�CSLcust_%=1��sI(W%,"CSLcust"):�usI(W%,"CSLa4"):�usI(W%,"CSLus"):� CSLpagx_%=0�CSLpagy_%=0�CSLpagx_%=210:CSLpagy_%=304
o60$!CSLpagex_%=�(CSLpagx_%):�rI(W%,"CSLpagex")
o;0$!CSLpagey_%=�(CSLpagy_%):�rI(W%,"CSLpagey")
o@=�
ohݤIOpapersize_
omX�IOa4_%=1��sI(W%,"IOa4"):�usI(W%,"IOus"):�usI(W%,"IOcust"):IOpagx_%=210:IOpagy_%=297
orX�IOus_%=1��sI(W%,"IOus"):�usI(W%,"IOa4"):�usI(W%,"IOcust"):IOpagx_%=210:IOpagy_%=279
owr�IOcust_%=1��sI(W%,"IOcust"):�usI(W%,"IOa4"):�usI(W%,"IOus"):� IOpagx_%=0�IOpagy_%=0�IOpagx_%=210:IOpagy_%=304
o|-$!IOpagex_%=�(IOpagx_%):�rI(W%,"IOpagex")
o�-$!IOpagey_%=�(IOpagy_%):�rI(W%,"IOpagey")
o�=�
o�ݤVapapersize_
o�a�VatC_%(3)=1��sI(W%,"Vaa4"):�usI(W%,"Vaus"):�usI(W%,"Vacust"):VatC_$(6)="210":VatC_$(7)="297"
o�a�VatC_%(4)=1��sI(W%,"Vaus"):�usI(W%,"Vaa4"):�usI(W%,"Vacust"):VatC_$(6)="210":VatC_$(7)="279"
o���VatC_%(5)=1��sI(W%,"Vacust"):�usI(W%,"Vaa4"):�usI(W%,"Vaus"):� �(VatC_$(6))=0��(VatC_$(7))=0�VatC_$(6)="210":VatC_$(7)="304"
o�+$!Vapagex_%=VatC_$(6):�rI(W%,"Vapagex")
o�+$!Vapagey_%=VatC_$(7):�rI(W%,"Vapagey")
o�2�VatC_%(6)=1��sI(W%,"Vatab"):�usI(W%,"Vaspac")
o�2�VatC_%(7)=1��usI(W%,"Vatab"):�sI(W%,"Vaspac")
o�=�
pl
pqݤvatless_(D_,n_%)
pv+=D_-(D_-D_/((10000+Va_%(n_%))/100)*100)
p{
p� ݤtc_(A%,m_$):�A%=0�=m_$
p�N�B$,C%:C%=�A%:A%=�A%:B$=�(A%�100)+"."+�"0"+�(A%�100),2):�C%>=0�=B$�="-"+B$
p�
p�5ݤni_(A$):�B:B=100*�A$:�(�B*�(�B+0.5))>maxN_%�=0
p�=�B*�(�B+0.5)
p�
p�&ݤconvsi_(m_$):�(�(m_$))<.0001�=0
p�<� A:�(m_$)<0 �A=�(m_$)-.000000001 � A=�(m_$)+.000000001
p� �(�(m_$)*100)>maxN_%�=0
p�2��m_$,1)>"@"��:m_$=�m_$,�(m_$)-1):��m_$,1)<"@"
p�
=A*100
p�
p�ݤconvis_(m_,m_$)
p�� A%,B%,A$,B$,C$
p� �m_<0�A$="-":m_=�(m_) �A$=""
p��m_<.01�=m_$
p�"A%=m_+.001:B%=(m_+.001-A%)*100
p�Q�B%=0�m_$="00"�B$="" ��B%<10�B$="0"+�(B%) �B$=��(B%),2):��B$,1)="0"�B$=�B$,1)
p� C$=�(A%):�A%<10�C$="0"+C$
p�"=A$+�C$,�(C$)-2)+"."+�C$,2)+B$
p�
p�Hݤsum_(A_,B_):�(A_*B_)<maxN_%��(A_*B_)>=.009�=A_*B_+�calpc3_(A_*B_)
p�=0
p�Hݤadd_(A_,B_):�(A_+B_)<maxN_%��(A_+B_)>=.009�=A_+B_+�calpc3_(A_+B_)
p�=0
p�Hݤsub_(A_,B_):�(A_-B_)<maxN_%��(A_-B_)>=.009�=A_-B_+�calpc3_(A_-B_)
q=0
q
q ݤconis_(m_)
q� A%,B%,A$,B$,C$
q �m_<0�A$="-":m_=�(m_) �A$=""
q�m_<.0001�m_>maxN_%�=""
q .A%=m_:B%=(m_+.00001-A%)*10000:A%=m_+.00001
q%
�B%=0�
q* B$=""
q/�
q4f�B%<10�B$="000"+�(B%) ��B%<100�B$="00"+�(B%) ��B%<1000�B$="0"+�(B%) ��B%<10000�B$=��(B%),4) �B$=""
q90B$="."+B$+"0":�:B$=�B$,�(B$)-1):��B$,1)<>"0"
q>�B$="."�B$=""
qC�
qH C$=�(A%)
qM
=A$+C$+B$
qRݤinitmem_:� Z%
qW�Opage%=0:IOpage%=0:SIOpage%=0:Oerr_%=0:Afon_%=15:s_$="":error_%=0:headp%=0:heads%=0:fh_%=-1:maxifont_%=200:tenv_$="":ipos_%=0:maxN_%=2147483645:end_%=0:moremem_$="":moremem_%=0:nomem_%=0:vatc_$="":zz1_%=10:zz2_%=10:sa_%=0
q\�bankl%=0:heap_size%=0:match_$=" Any Match ":reduce_%=0:j_%=0:label_$="":notrans_%=0:maxmenu_%=200:mode_%=-1:sitip_%=5:mem1_%=1:mem2_%=1:mem3_%=149:mem4_%=411:mem5_%=411:mem6_%=296:mem7_%=25:mem8_%=0:minF_=.6:balw%=0
qa�bitip_%=5:M_%=12:maxsupp_%=10:Cmaxsupp_%=30:maxS_%=30:maxP_%=30:maxB_%=10:maxT_%=10:Owind%=0:IOwind%=0:SIOwind%=0:balwi_%=3:balwn_%=71:balwc%=0:balpa_%=0:CSuW%=0:SuW%=0:S14_$="":S15_$=""
qpdmoremem_%=�sysenv_:�moremem_%=0 �M_%=12:maxsupp_%=10:Cmaxsupp_%=30:maxS_%=30:maxP_%=30:maxB_%=10
quE�maxsupp_%>Cmaxsupp_%�Lmaxsupp_%=maxsupp_% �Lmaxsupp_%=Cmaxsupp_%
qz �Lmaxsupp_%<30�Lmaxsupp_%=30
qa�maxS_%>maxP_%�LmaxS_%=maxS_%:LLmaxS_%=maxS_%*sitip_% �LmaxS_%=maxP_%:LLmaxS_%=maxP_%*sitip_%
q�:�maxB_%>LmaxS_%�LmaxS_%=maxB_%:LLmaxS_%=maxB_%*sitip_%
q�=moremem_%
q�)ݤi_(A$,B%):�A%,C$,Z%:�iRes(A$,B%):=�
q�
q�ݤinitconst_
q�
�A%,C$,Z%
q�� �
q�#� � �:� �:�pe_(�err_):=�Myquit_
q�CM_%=12:maxsupp_%=10:Cmaxsupp_%=30:maxS_%=30:maxP_%=30:maxB_%=10
q��nomem_%=1�
q�CM_%=12:maxsupp_%=10:Cmaxsupp_%=30:maxS_%=30:maxP_%=30:maxB_%=10
q�E�maxsupp_%>Cmaxsupp_%�Lmaxsupp_%=maxsupp_% �Lmaxsupp_%=Cmaxsupp_%
q� �Lmaxsupp_%<10�Lmaxsupp_%=10
q�a�maxS_%>maxP_%�LmaxS_%=maxS_%:LLmaxS_%=maxS_%*sitip_% �LmaxS_%=maxP_%:LLmaxS_%=maxP_%*sitip_%
q�:�maxB_%>LmaxS_%�LmaxS_%=maxB_%:LLmaxS_%=maxB_%*sitip_%
q��
q�mem_%=�getpage_(1)
q�C�LLmaxS_%>Lmaxsupp_%�Mmaxsupp_%=LLmaxS_% �Mmaxsupp_%=Lmaxsupp_%
q��Z%=�maxmem_:memE_%=0:memS_%=mem8_%:Omaxst_%=M_%:OmaxS_%=maxS_%:OmaxP_%=maxP_%:OmaxB_%=maxB_%:pd_$="No printer driver installed":C_%=1:S_%=1:CS_%=1:sti_%=19:fsi_%=8:sui_%=19:Csui_%=19:sli_%=7:ori_%=2
q��Iori_%=2:SIori_%=2:iti_%=1:itin_%=48:itif_%=6:itp_%=0:itip_%=8:maxI_%=10:totI_%=maxI_%*itip_%*itif_%-1:siti_%=1:sitif_%=11:sitin_%=sitif_%*sitip_%:sitp_%=0:pitp_%=0:bitif_%=8:bitin_%=bitif_%*sitip_%:bitp_%=0:titp_%=0:S120_%=-1:C120_%=-1
q��maxfonlen_%=30:os_%=400:mm_=25.4:mp_%=72000:osc_%=180:rule_=7.1:srule_=2.2:maxsuplen_%=20:Omaxsu_%=maxsupp_%:COmaxsu_%=Cmaxsupp_%:Sal_%=1:Sg_%=1:Lg_%=Sg_%:Cg_%=1:fontsize_%=&200:suh_%=1:csuh_%=1:Prct%=0:Pl_%=-1:Ol_%=-1
q�ci_%=1:imm_=4.62962963E-3:Oicons%=42:IOicons%=57:SIOicons%=44:IAfon_%=Afon_%+Oicons%-1:SIAfon_%=IAfon_%+IOicons%-1:Onum%=1:�maxS_%*sitip_%>M_%�temp1_%=maxS_%*sitip_% �temp1_%=M_%
q��� NewPref_%(9),t1_%(13),t2_%(12),t3_%(12),t4_%(12),t5_%(12),t6_%(12),Shead1_$(108),Phead1_$(108),Sheadt1_%(5*96),Pheadt1_%(5*96),BankNN_$(13),BankOO_%(13),BankSS_%(13),BankCC_%(13),olddata_%(10),Bn1_$(24),Bn2_$(27)
q�� olddata_$(12),cblock_% 256,pblock_% 256,Index_$(23),Index1_$(23),Best_$(47),font_% fontsize_%,block_% 4000,iblock_% 64,hblock_% 64,OrderC_% 4000,Hw_$(25),Hp_$(45),oblock_% 64,bl_$(1)
q�T� IOicon%(IOicons%),IOjust_%(IOicons%),IOrderch%(IOicons%),WatC_$(10),WatC_%(10)
q�`� IOrderS_$(IOicons%),IOrderF_%(IOicons%),IOrderF1_%(IOicons%),bl1_%(11),Hwp_$(25),Hpp_$(45)
rj� IOrdermy_(IOicons%),IOrdermx_(IOicons%),IOrderfy_%(IOicons%),LheadS_$(108),LheadP_$(108),Lbank_$(12)
re� IOrderfx_%(IOicons%),IOrderme_$(IOicons%),inv11_%(IOicons%),inv22_%(IOicons%),inv33_%(IOicons%)
r �� SlRec_$(Sal_%),SlNum_$(Sal_%),SlDes_$(Sal_%),SlQua_(Sal_%),SlPri_(Sal_%),SlVat_$(Sal_%),Label_$(16),Fo_$(maxifont_%),Ofontname_$(maxifont_%),Lfo_$(maxifont_%+1),invL_$(100),invl_$(101)
r� fhandle_%(maxifont_%)
r"� Ord_%(temp1_%+1),StHd_$(M_%)
r*� Va_%(27),Va_$(27),supp_%(Mmaxsupp_%)
r)�� CLSuppliers_$(Cmaxsupp_%),CSuppliers_$(Cmaxsupp_%),Csupp_$(Cmaxsupp_%),CSuNumber_%(Cmaxsupp_%),CSuAd1_$(Cmaxsupp_%),vt1_(96)
r.�� CSuAd2_$(Cmaxsupp_%),CSuAd3_$(Cmaxsupp_%),CSuAd4_$(Cmaxsupp_%),CSuPos_$(Cmaxsupp_%),CSuContac_$(Cmaxsupp_%),CSuTel_$(Cmaxsupp_%),CSuFa_$(Cmaxsupp_%),CSuCom1_$(Cmaxsupp_%),vt_%(96),vt1_%(96),vt_$(96)
r3�� dCSuppliers_$(Cmaxsupp_%),dCSuAd1_$(Cmaxsupp_%),dCSuAd2_$(Cmaxsupp_%),dCSuAd3_$(Cmaxsupp_%),dCSuAd4_$(Cmaxsupp_%),dCSuPos_$(Cmaxsupp_%)
r8�� CSuCom2_$(Cmaxsupp_%),CSuSuppRe_$(Cmaxsupp_%),CSuYourRe_$(Cmaxsupp_%),CSuOrde_$(Cmaxsupp_%),CSuDisc_$(Cmaxsupp_%),ITs_$(maxI_%*itip_%*itif_%+5),ITos_$(maxI_%*itip_%),ITd_%(maxI_%*itip_%),ITf_%(maxI_%*itip_%)
r=�� ITt_$(maxI_%*itip_%),ITr_(maxI_%*itip_%),ITn_%(maxI_%*itip_%),ITo_%(maxI_%*itip_%),ITss_$(itin_%+4),ITsss_$(itip_%+3),SITe_$(maxS_%*sitip_%*sitif_%+sitif_%),SITep_$(sitin_%-1),low_%(16)
rB�� SITa_$(maxS_%*sitip_%),SITap_$(sitip_%*3),SITh_$(maxS_%*sitip_%),SITs_$(maxS_%*sitip_%),SITn_%(maxS_%*sitip_%+1),TITe_$(maxT_%*sitip_%*sitif_%+sitif_%),TITe_%(maxT_%*sitip_%),TITn_%(maxT_%*sitip_%),ud_$(56),ud1_$(56)
rG�� TITep_$(sitin_%-1),TITa_$(maxT_%*sitip_%),TITap_$(sitip_%*3),TITh_$(maxT_%*sitip_%),TITs_$(maxT_%*sitip_%),PITe_$(maxP_%*sitip_%*sitif_%+sitif_%),PITep_$(sitin_%-1),PITa_$(maxP_%*sitip_%),PITn_%(maxP_%*sitip_%+1)
rL�� PITap_$(sitip_%*3),PITh_$(maxP_%*sitip_%),PITs_$(maxP_%*sitip_%),BITe_$(maxB_%*sitip_%*bitif_%+bitif_%),BITep_$(bitin_%-1),BITf_$(maxB_%*sitip_%),BITt_$(maxB_%*sitip_%),BITap_$(sitip_%*2),ud_%(6),ud1_%(6),pc_$(20)
rQ�� Ivat_(27),Ivat_%(27),Itot_%(27),Ivat_$(27),trans% 16,rect% 16,plotat% 8,rectin% 16,pname% 256,font% 256,SaledF_$(7),PaledF_$(7),BankF_$(7),sal_%(13,2),bal_%(13,2),SaledR_$(25),SaledR_%(18),PaledR_$(25),PaledR_%(18)
rV�� BaledR_$(15),BaledR_%(11),VatR_$(44),VatT_%(44),VatC_$(10),VatC_%(10),VatV_%(10),VatS_%(10),Tr_$(15),Ec_$(12),Es_$(12),m1_%100,m2_%100,m3_%100,t_%255,u_%255:�as1_:�as2_:�as3_:SITn1_%=0:PITn1_%=0:SITn2_%=0:SITn3_%=0
r[�VatT_%()=-1:TITe_%()=-1:Es_$(10)="10":Es_$(11)="10":Ec_$(10)="10":Ec_$(11)="10":Va_%(2)=0:Va_%(3)=0:Va_%(4)=0:Va_%(5)=0:Va_%(6)=0:Va_$(2)="Standard Rate":Va_$(3)="Zero Rated":Va_$(4)="Exempt":Hp_$(44)=VAT_$:Hp_$(45)=VAT_$
r`�nme_$="Not enough memory to load file : See 'Task Manager' in your computer user guide to try and free some extra memory : HINT try Mode O first, then change to your normal mode if successful"
rb�prefs_%=-1:prefsn_%=1:prefos_%=1:prefson_%=-1:Hpp_$(44)=VAT_$:Hpp_$(45)=VAT_$:prefn_%=1:prefye_%=-1:prefs1_%=-1:prefsn1_%=1:lm_%=6
refVatC_$()="","3","4","1","","","210","297","10","10","Return":VatC_%()=0,1,-1,1,-1,-1,1,-1,0:tm_%=6
rjTr__$(1)="":SITep_$()="|":SITap_$()="|":PITep_$()="|":PITap_$()="|":BITep_$()="|":BITap_$()="|":TITep_$()="|":TITap_$()="|"
ro?WatC_%()=0,0,0,1,-1,-1,1,-1:maxinvl_%=0:invL_$(0)="Current"
rt�pc_$()="27,83,1","27,80,15","27,80,27,87,1","27,69","27,52","27,45,1","163","27,77","27,74,1","27,51,1","27,79,27,57","12,27,64","27,84","18,27,77","27,87,0,27,77","27,70","27,53","27,45,0","35","96"
ry0prefs2_%=-1:prefsn2_%=1:OrderFU_%=0:Cu_$="�"
r�NVatR_$(0)="BOX 1:VAT due on SALES":VatR_$(2)="ABC":VatT_%(0)=1:VatT_%(3)=1
r�SVatR_$(4)="BOX 2:VAT due on Acquisitions":VatR_$(6)="E":VatT_%(5)=1:VatT_%(7)=1
r�3VatR_$(8)="BOX 3:Total VAT Due":VatR_$(9)="A+B"
r�]VatR_$(12)="BOX 4:VAT reclaimed on PURCHASES":VatR_$(14)="ABCE":VatT_%(13)=1:VatT_%(15)=1
r�AVatR_$(16)="BOX 5:NET VAT payable/repayable":VatR_$(17)="C-D"
r�WVatR_$(24)="BOX 6:Total value of SALES":VatR_$(26)="ABCD":VatT_%(24)=1:VatT_%(26)=1
r�[VatR_$(28)="BOX 7:Total value of PURCHASES":VatR_$(30)="ABCE":VatT_%(29)=1:VatT_%(30)=1
r�[VatR_$(36)="BOX 8:Total value of SALES to EEC":VatR_$(38)="D":VatT_%(36)=1:VatT_%(38)=1
r�_VatR_$(40)="BOX 9:Total value of PURCHASES to EEC":VatR_$(42)="E":VatT_%(41)=1:VatT_%(42)=1
s Rprefye_%=1:prefn_%=-1:Va_%(2)=1750:Va_$(5)="EEC Sales":Va_$(6)="EEC Purchases"
s��vatcodew_$=VAT_$+" Codes":vatp_$=VAT_$+" Return":usname_$=VAT_$+" Number:":salname_$="Cd: "+VAT_$:palname_$="Cd: "+VAT_$:talname_$="Cd: "+VAT_$
s��mod_$="System Modules/Fonts or Printer driver not found, please locate your System or Fonts disc and double click on either !System,!Fonts or a Printer Driver. Please see the manual for info on above":db_$="":db_%=0
s��bankp%=0:Xa4_%=1:Xus_%=-1:Xcust_%=-1:Xpagx_%=210:Xpagy_%=297:Xfon_x%=12:Xfon_y%=12:Xnam_%=0:Xnam_$="Totals":Xaspac_%=1:Xatab_%=-1:Q_$="Reconciled"
sÝSaledR_%()=1:PaledR_%()=1:chus%=0:SaledR_%(13)=-1:SaledR_%(14)=-1:SaledR_%(15)=0:SaledR_%(17)=-1:SaledR_$(25)="Sales":SaledR_$(23)="10":SaledR_$(24)="10"
s�PaledR_%(13)=-1:PaledR_%(14)=-1:PaledR_%(15)=0:PaledR_%(17)=-1:PaledR_$(25)="Purchases":PaledR_$(23)="10":PaledR_$(24)="10"
s͒BaledR_%()=1:chus1%=0:BaledR_%(7)=-1:BaledR_%(8)=-1:BaledR_%(9)=0:BaledR_%(11)=-1:BaledR_$(15)="Statement":BaledR_$(13)="10":BaledR_$(14)="10"
sҡfield_$="Field output order not specified, ie. Contact:1.5 Name:2 Address:3 Post Code:4 etc. Please enter":inv11_%()=1:inv22_%()=1:inv33_%()=1:olddata_%(0)=1
sױSsubH_%=0:PsubH_%=0:ITss_$()="|":ITsss_$()="|":prefvat_$="ESD: "+VAT_$+" Discounted Yes:":oSsubH_%=0:oPsubH_%=0:WatC_$()="","","","","","","210","297","10","10","P&L/Bal"
sܹOrderC_%!0=0:vathead_$="Key: S=Sales : P=Purchases : A=Total less "+VAT_$+" : "+�VAT_$,1)+"="+VAT_$:vathead1_$="Cd Description Sum Codes TOTAL S P A "+�VAT_$,1)
s�Stat1_$="":Stat2_$="":Stat3_$="":SBestP_%=1:SBestF_%=1:StI_%=sti_%:FsI_%=fsi_%:SuI_%=sui_%:CSuI_%=Csui_%:SlI_%=sli_%:you_$="":passm1_$="Enter Password and press RETURN"
s�}pass1_$="":pass2_$="":pass3_$="":pass4_$="":pass5_$="":pass6_$="":pass7_$="":pass8_$="":pass9_$="":passA_$="":chcunam_%=0
s��Sfindnu_$="":Sufindnu_$="":CSufindnu_$="":Stwind%=0:chstnam_%=0:FindSt%=0:FindSu%=0:CFindSu%=0:Suwind%=0:chsunam_%=0:CSuwind%=0:ValSt%=0:LabSt%=0:LabSu%=0:CLabSu%=0:CSLsu%=0:ListSt%=0:ListSl%=0:SLsu%=0:Slwind%=0:Uwind%=0
s�Cwind%=0:Oind%=0:Oall%=0:save%=0:sav%=0:Csav%=0:Ind%=0:Inds_%=-1:best%=0:view%=0:Views_%=-1:Viewp_%=-1:vat%=0:pass%=0:edit%=0:invw%=0:IOnum%=0:stand%=0:bank%=0:bank1%=0:bank2%=0
s��saledp_%=1:paledp_%=1:bankp_%=1:saled%=0:saled1%=0:saled2%=0:paled%=0:paled1%=0:paled2%=0:vatp%=0:vatpc%=0:stat%=0:scred%=0:ccred%=0:oscred_%=0:occred_%=0:ITacc_$="L":IThead_$="AA":ITcomm_$=""
s��SAacc_$="L":SAhead_$="BA":SAref_$="":SAcomm_$="":SAcust_$="":flag21_%=%1000000000000000000000:flag22_%=%10000000000000000000000:ITes_%=0:ITcop_$="2":ITda_$="":ITnu_$="":ITsupnum_%=0:ITsupnumN_%=0
s�}ITdis_$="Disc%":ITre_$="Stock Num":ITpric_$="Ret.Exc":ITnumb_$="":Autosav_%=0:min_%=-1:auto_$="":autoE_$="":IOrderch%()=1
tV�temp_%=0� IOicons%:IOicon%(temp_%)=temp_%:�:�Z%=0�Cmaxsupp_%:CSuNumber_%(Z%)=Z%:�
t !CSuppliers_$()="":Isupnum_%=0
tvFStockNu_$="":FArtis_$="":FSupplie_$="":FSuppRe_$="":FUpToA_$="":FAboveA_$="":match_$=" Any Match ":CSSupplie_$=""
tuLstocknu_%=1:Ldescrip_%=1:Lsuppre_%=1:Lsup_%=1:Lstoc_%=1:Lpric_%=1:La4_%=1:Lus_%=-1:Lcust_%=-1:Ljle_%=-1:Ljce_%=1
t,Ldow_%=8:Lacros_%=3:Lnumbe_%=1:Lstar_%=1
t 1Lpagx_%=210:Lpagy_%=297:Lfon_x%=12:Lfon_y%=12
t"�Scontac_%=1:Snam_%=1:Saddres_%=1:Sa4_%=1:Sus_%=-1:Scust_%=-1:Sdow_%=8:Sacros_%=3:Snumbe_%=1:Sstar_%=1:Spagx_%=210:Spagy_%=297:Sfon_x%=10:Sfon_y%=10:SupFro_%=1:SupT_%=maxsupp_%:SsCom_$="":SsPos_$=""
t'�CScontac_%=1:CSnam_%=1:CSaddres_%=1:CSa4_%=1:CSus_%=-1:CScust_%=-1:CSdow_%=8:CSacros_%=3:CSnumbe_%=1:CSstar_%=1:CSpagx_%=210:CSpagy_%=297:CSfon_x%=10:CSfon_y%=10:CSupFro_%=1:CSupT_%=Cmaxsupp_%:CsCom_$="":CsPos_$=""
t,�ListRecNu_%=1:ListStNu_%=1:ListDesc_%=1:ListSup_%=1:ListRe_%=1:ListCos_%=1:ListRetai_%=1:ListStoc_%=1:ListMi_%=1:ListQua_%=1:ListSol_%=1:ListMo_%=1:ListPr1_%=1:ListPr2_%=1:ListMar_%=1:ListDat_%=1
t1�Lista4_%=1:Listus_%=-1:Listcust_%=-1:Listpagx_%=210:Listpagy_%=297:Listfon_x%=12:Listfon_y%=12:Listfro_%=1:Listt_%=M_%:Listlef_%=4:Listtop_%=4:Listspac_%=4
t6iDa4_%=1:Dus_%=-1:Dcust_%=-1:Dpagx_%=210:Dpagy_%=297:Dfon_x%=12:Dfon_y%=12:Dlef_%=4:Dtop_%=4:Dspac_%=4
t;�SLRecNu_%=1:SLsupplie_%=1:SLad1_%=1:SLad2_%=1:SLad3_%=1:SLad4_%=1:SLpos_%=1:SLcon_%=1:SLtel_%=1:SLfa_%=1:SLcom1_%=1:SLcom2_%=1:SLsuppre_%=1:SLyourre_%=1:SLordpr_%=1:SLdeb_%=-1
t@�SLa4_%=1:SLus_%=-1:SLcust_%=-1:SLpagx_%=210:SLpagy_%=297:SLfon_x%=12:SLfon_y%=12:SLfro_%=1:SLt_%=maxsupp_%:SLlef_%=4:SLtop_%=4:SLspac_%=4:Sjle_%=1:Sjce_%=-1
tE�CSLRecNu_%=1:CSLsupplie_%=1:CSLad1_%=1:CSLad2_%=1:CSLad3_%=1:CSLad4_%=1:CSLpos_%=1:CSLcon_%=1:CSLtel_%=1:CSLfa_%=1:CSLcom1_%=1:CSLcom2_%=1:CSLsuppre_%=1:CSLyourre_%=1:CSLordpr_%=1:CSLdeb_%=-1
tJ�CSLa4_%=1:CSLus_%=-1:CSLcust_%=-1:CSLpagx_%=210:CSLpagy_%=297:CSLfon_x%=12:CSLfon_y%=12:CSLfro_%=1:CSLt_%=Cmaxsupp_%:CSLlef_%=4:CSLtop_%=4:CSLspac_%=4:CSjle_%=1:CSjce_%=-1
tO7Oa4_%=1:Ous_%=-1:Ocust_%=-1:Opagx_%=210:Opagy_%=297
tT<IOa4_%=1:IOus_%=-1:IOcust_%=-1:IOpagx_%=210:IOpagy_%=297
tYASIOa4_%=1:SIOus_%=-1:SIOcust_%=-1:SIOpagx_%=210:SIOpagy_%=297
t^�Unam_$="":Uad1_$="":Uad2_$="":Uad3_$="":Uad4_$="":Uad5_$="":Upos_$="":Ute_$="Tel:":Ufa_$="Fax:":Uva_$="":Tnam_$="<Untitled>":Cal1_$="":Cal2_$="":Cal3_$="":Cal4_$=""
tc�CalTo_%=0:Calt1_%=0:Calt2_%=0:Calt3_%=0:Calt4_%=0:fontnum_%=0:j_f%=0:j_f1%=0:j_f2%=0:j_f3%=0:j_f4%=0:fh_%=0:j_f5%=0:j_f6%=0:�IupOuser_:Och_%=1:IOch_%=1:SIOch_%=1
thIOrderme_$()="Text"
tr�IOrderme_$()="Text","Text","Text","Text","CustomAdd","Your Name","Your Add 1","Your Add 2","Your Add 3","Your Add 4","Your Add 5","Post Code","Telephone","Fax"
t| IOrderme_$(17)="CusRefData"
t�WIOrderme_$(18)="YourRefData":IOrderme_$(19)="InvNumData":IOrderme_$(21)="Date Data"
t��IOrderme_$(22)="Text":IOrderme_$(23)="SupStockNum":IOrderme_$(24)="Description":IOrderme_$(25)="Quantity":IOrderme_$(26)="Price":IOrderme_$(27)="Sub Total":IOrderme_$(30)="Text":IOrderme_$(31)="S/TotalData"
t� IOrderme_$(41)="Page Data"
t��IOrderme_$(42)="EntryDiscnt":IOrderme_$(43)="Entry"+VAT_$:IOrderme_$(49)=VAT_$+"RateData":IOrderme_$(50)="ValueData":IOrderme_$(51)=VAT_$+"TotData":IOrderme_$(52)="DiscntData"
t��IOrderme_$(48)="PaidMessage":IOrderme_$(53)="DiscTotData":IOrderme_$(54)=VAT_$+"TotData":IOrderme_$(55)="NetTotData":IOrderme_$(56)=VAT_$+"NumData":IOrderme_$(57)="DeliveryAdd":IOrderS_$(19)="1"
t�<IOrderfx_%()=12:IOrderfy_%()=12:�Z%=2�3:IOjust_%(Z%)=1:�
t�D�Z%=5�19:IOrdermx_(Z%)=200:IOrdermy_(Z%)=Z%*4.5:IOjust_%(Z%)=2:�
t�-IOjust_%(22)=2:�Z%=25�29:IOjust_%(Z%)=2:�
t�%IOrdermx_(57)=80:IOrdermy_(57)=90
t�ZIOjust_%(25)=0:IOjust_%(31)=2:IOjust_%(32)=2:�Z%=50�55:IOjust_%(Z%)=2:�:IOjust_%(41)=2
t��fonlink_%=0:Oborder%=1:Oruler%=1:Odsize_%=100:Odgap_%=2:IOborder%=1:IOruler%=1:IOdsize_%=100:IOdgap_%=2:SIOborder%=1:SIOruler%=1:SIOdsize_%=100:SIOdgap_%=2:Oisupplie_$="":Oinumbe_%=1:Oisupnum_%=0
t��Oanumbe_%=1:Oafro_%=1:Oat_%=maxsupp_%:BestF_%=1:BestP_%=1:BestL_$="Once every month":BestD_$="":pref%=0:Sasav_%=-1:savesal_%=-1:Autowar_%=-1:Salewar_%=-1:Exitwar_%=-1:Savea_$="AccntData":SaveaB_$="BackupData"
t��ofontpath_$="":Inde_$="":maxfont_%=0:modex%=1:modey%=2:today_$=�chdate_("99"):Otoday_$=today_$:SITe_$(0)=today_$:PITe_$(0)=today_$:TITe_$(0)=today_$:valfro_$="1":valt_$=�(M_%):day_%=�Jul_(today_$)
t�%�Cmaxsupp_%<maxmenu_%��Csupplist_
t�&�headlistS_:�headlistP_:�banklist_
t�.Z%=�chfonts_:�fontlist_:�invlist_:ș&406C1
t�Z%=�aBg("_",24,30)
t�Droot_$="":$cblock_%="<Obey$Dir>":ș&27,cblock_%,block_%,255 �,Z%
t�
�Z%>0�
t�root_$=$Z%
t��Z%=�(root_$)�1�-1
t�.�root_$,Z%,1)="."�root_$=�root_$,Z%):Z%=1
t��
u�
u;inv_$=root_$+"Invoices":bch_$=root_$+"!Prophet.Windows"
u
�env_$<>""�
uFinv_$="":�Z%=�(env_$)�1�-1:�env_$,Z%,1)="."�inv_$=�env_$,Z%):Z%=1
u �:inv_$=inv_$+"Invoices"
u �
u!BZ%=�(root_$+"!Prophet.!Boot"):Ad_%=�#Z%:�#Z%=65:Ae_%=�#Z%:�#Z%
u&=�
u+
u0(ݤsysenv_:� A%:ș"OS_GetEnv" � env_$
u5\A%=�env_$,"!RunImage"):env_$=�env_$,A%+10):env_$=�trmL(env_$):�env_$<>"":=�load1_(env_$)
u:=0
u?
uDݤchfonts_
uI� A%
uN� �
uS%� � �:� �:fh_%=0:fhandle_%()=0:=�
uXFo_$(0)="System font"
u],�findres_(3)=� �fh_%=0:fhandle_%()=0:=�
ubDș&27,"<Font$Prefix> and <Font$Path>",font_%,fontsize_%-1 � ,,A%
ugfont_%?A%=13
ulL�$font_%<>ofontpath_$ � ofontpath_$=$font_%:fhandle_%()=0:A%=�initfonts_
uq=A%
uv
u{ݤtrans_(tr_$)
u� � A%,A_%
u�$font_%=""
u�,ș&27,tr_$,font_%,fontsize_%-1 � ,A_%,A%
u�!�A_%=0�A%=fontsize_%�A%=0�=""
u�font_%?A%=13
u� =$font_%
u�
u�ݤinitfonts_
u�� �
u�%� � �:� �:fh_%=0:fhandle_%()=0:=�
u� ș&406C0
u�fontnum_%=0:maxfont_%=0
u�#Fo_$()="":Fo_$(0)="System font"
u�ȕ fontnum_%<>-1
u�:ș "Font_ListFonts" ,,font%,fontnum_%,-1 � ,,fontnum_%
u�R�fontnum_%>-1�fontnum_%<=maxifont_%�Fo_$(fontnum_%)=$font%:maxfont_%=fontnum_%
u��
u� �upfont_
u� ș&406C1
u�
�oldfont_
u�=�
u�
u�ݤlosefont_(Z%)
u� �Z%=0�=0
u�� �
u�f� � �:� �:�pe_("FontManager not found. Please double click on your !Fonts file and try again"):=Z%
vș&40082,Z%
v=0
v
vݤfindres_(A_%)
v*�A_%=1:�trans_("<System$Path>")=""�=�
v+�A_%=2:�trans_("<PDriver$Path>")=""�=�
v (�A_%=3:�trans_("<Font$Path>")=""�=�
v%=�
v*
va��Csupplist_
vf � Z%,A%
vk Z%=�rR("Menus","CSuppList")
vpCLSuppliers_$()=""
vu
�Cuplsup_
vz A%=J%
v!�!(S%!164+20),CLSuppliers_$()
v�
A%=!J%
v�0Z%=�menuList("CLSuppliers","CSuppList",A%,0)
v��
v���headlistS_
v� � Z%,A%
v� Z%=�rR("Menus","HeadListS")
v�LheadS_$()=""
v��uplheads_
v� A%=J%
v� �!(S%!164+20),LheadS_$()
v�
A%=!J%
v�+Z%=�menuList("LheadS","HeadListS",A%,0)
v��
v���headlistP_
v� � Z%,A%
v� Z%=�rR("Menus","HeadListP")
v�LheadP_$()=""
v��uplheadp_
v� A%=J%
v� �!(S%!164+20),LheadP_$()
v�
A%=!J%
v�+Z%=�menuList("LheadP","HeadListP",A%,0)
v��
v���banklist_
v� � Z%,A%
w Z%=�rR("Menus","BankList")
wLbank_$()=""
w
�uplbank_
w A%=J%
w�!(S%!164+20),Lbank_$()
w
A%=!J%
w )Z%=�menuList("Lbank","BankList",A%,0)
w$�
w)��invlist_
w. � Z%,A%
w3Z%=�rR("Menus","InvL")
w8invl_$()=""
w= �uplinv_
wB'A%=J%:�!(S%!164+20),invl_$():A%=!J%
wG$Z%=�menuList("invl","InvL",A%,0)
wL�
wQ��fontlist_
wV� Z%,A%,temp_%
w[ Z%=�rR("Menus","FontList")
w`Lfo_$()=""
we �upfont_
wj A%=J%
wo�!(S%!164+20),Lfo_$()
wt
A%=!J%
wy-Z%=�menuList("LFontname","FontList",A%,0)
w~;�temp_%=0�maxifont_%:Ofontname_$(temp_%)=Fo_$(temp_%):�
w��
w�
w�
��uplinv_
w�� temp_$,temp_%
w��temp_%=0�100
w�\temp_$=�invL_$(temp_%),20):temp_$=temp_$+�20-�(temp_$)," "):invl_$(temp_%+1)=temp_$+�(0)
w��
w��
w�
w��uplheads_:� temp_$,temp_%,a_%:�temp_%=0�12:temp_$=�(temp_%+64)+":"+�Shead1_$(temp_%),16):temp_$=temp_$+�18-�(temp_$)," "):LheadS_$(temp_%)=temp_$+�(0):�
wӎ�temp_%=13�108:�temp_%�8<>5:temp_$=" "+�(a_%)+":"+�Shead1_$(temp_%),15):a_%+=1:�temp_$=�(temp_%/8+64)+"a"+":"+�Shead1_$(temp_%),15):a_%=98
w�Etemp_$=temp_$+�18-�(temp_$)," "):LheadS_$(temp_%)=temp_$+�(0):�:�
wݞ��uplheadp_:� temp_$,temp_%,a_%:�temp_%=0�12:temp_$=�(temp_%+64)+":"+�Phead1_$(temp_%),16):temp_$=temp_$+�18-�(temp_$)," "):LheadP_$(temp_%)=temp_$+�(0):�
w��temp_%=13�108:�temp_%�8<>5:temp_$=" "+�(a_%)+":"+�Phead1_$(temp_%),15):a_%+=1:�temp_$=�(temp_%/8+64)+"a"+":"+�Phead1_$(temp_%),15):a_%=98
w�Etemp_$=temp_$+�18-�(temp_$)," "):LheadP_$(temp_%)=temp_$+�(0):�:�
w���uplbank_:� temp_$,temp_%:�temp_%=0�12:temp_$=�(temp_%+64)+":"+�BankNN_$(temp_%),16):temp_$=temp_$+�18-�(temp_$)," "):Lbank_$(temp_%)=temp_$+�(0):�:�
w���Cuplsup_
w�� temp_$,temp_%
w��temp_%=0�Cmaxsupp_%
x ytemp_$=�CSuppliers_$(temp_%),maxsuplen_%):temp_$=temp_$+�maxsuplen_%-�(temp_$)," "):CLSuppliers_$(temp_%)=temp_$+�(0)
x�
x
�
x
��upfont_
x� temp_$,temp_%
x�temp_%=0�maxifont_%
x ktemp_$=�Fo_$(temp_%),maxfonlen_%):temp_$=temp_$+�maxfonlen_%-�(temp_$)," "):Lfo_$(temp_%+1)=temp_$+�(0)
x#�
x(�
x-
x2��oldfont_
x7� A%,B%,C%,OK_%,a_%
x<.�trans_("<Font$Path>")=""�fhandle_%()=0:�
xAt1_%()=0:IOrderch%()=0
xF ș&406C0
xK�C%=1�maxifont_%
xPOK_%=0:�A%=1�maxifont_%
xUd�Ofontname_$(C%)=""�A%=maxifont_%:C%=maxifont_% ��Ofontname_$(C%)=Fo_$(A%)�OK_%=A%:A%=maxifont_%
xZ�
x_��chanfont_(C%,OK_%)=1:�OK_%=0�Ofontname_$(C%)<>"":�error_%=0:ș&406C1:�pe_("Font '"+Ofontname_$(C%)+"' not found. Replaced by '"+Fo_$(0)+"'."):ș&406C0
xd�
xi@Ofontname_$()="":�A%=0�maxifont_%:Ofontname_$(A%)=Fo_$(A%):�
xnIOrderch%()=1
xs ș&406C1
xx�
x}
x�ݤchanfont_(A_%,B_%)
x�� C%,Z%,a_%:a_%=0
x�q�t1_%(5)=0:�j_f5%=A_%�j_f5%=B_%:t1_%(5)=1:a_%=1:�CLabSu%>0�$!CSfontname_%=Fo_$(B_%):�rI(CLabSu%,"CSfontname")
x�k�t1_%(6)=0:�j_f6%=A_%�j_f6%=B_%:t1_%(6)=1:a_%=1:�CSLsu%>0�$!CSLfname_%=Fo_$(B_%):�rI(CSLsu%,"CSLfname")
x�A�t1_%(8)=0:�SaledR_%(15)=A_%�SaledR_%(15)=B_%:t1_%(8)=1:a_%=1
x�A�t1_%(9)=0:�PaledR_%(15)=A_%�PaledR_%(15)=B_%:t1_%(9)=1:a_%=1
x�A�t1_%(10)=0:�BaledR_%(9)=A_%�BaledR_%(9)=B_%:t1_%(10)=1:a_%=1
x�7�t1_%(11)=0:�Xnam_%=A_%�Xnam_%=B_%:t1_%(11)=1:a_%=1
x�=�t1_%(12)=0:�VatC_%(8)=A_%�VatC_%(8)=B_%:t1_%(12)=1:a_%=1
x��C%=2�IOicons%
x���IOrderch%(C%)=0:�IOrderF_%(C%)=A_%�IOrderF_%(C%)=B_%:IOrderch%(C%)=1:a_%=1:�IOrderF1_%(C%)>0�IOrderF1_%(C%)=�losefont_(IOrderF1_%(C%)):IOrderF1_%(C%)=�findfont_(IOrderF_%(C%),IOrderfx_%(C%),IOrderfy_%(C%))
x��
x�=a_%
y
y'XݤIinitOrder_:IOborder%=-IOborder%:IOruler%=-IOruler%:�IOiniticons_:�IOinitfonts_:=�
y1
yE��IOinitfonts_
yG � Z_%
yJ`�Z_%=2�IOicons%:IOrderF1_%(Z_%)=�findfont_(IOrderF_%(Z_%),IOrderfx_%(Z_%),IOrderfy_%(Z_%)):�
yO�
y�+��IOiniticons_:�IOch_%=1�OrderC_%!0=0��
y��$!IOtitle_%=IOrderS_$(2):$!IOhead_%=IOrderS_$(3):$!IOname_%=IOrderS_$(5):$!IOadd11_%=IOrderS_$(6):$!IOadd22_%=IOrderS_$(7):$!IOadd33_%=IOrderS_$(8):$!IOadd44_%=IOrderS_$(9):$!IOadd55_%=IOrderS_$(10)
y��$!IOtel_%=IOrderS_$(12):$!IOfax_%=IOrderS_$(13):$!IOsuppref_%=IOrderS_$(14):$!IOyourref_%=IOrderS_$(15):$!IOnumber_%=IOrderS_$(16):$!IOdate_%=IOrderS_$(20):$!IOde_%=IOrderS_$(21):$!IOtext1_%=IOrderS_$(22)
y��$!IOdata1_%=IOrderS_$(23):$!IOdata2_%=IOrderS_$(24):$!IOdata3_%=IOrderS_$(25):$!IOdata4_%=IOrderS_$(26):$!IOdata5_%=IOrderS_$(27):$!IOdata6_%=IOrderS_$(30):$!IOtext2_%=IOrderS_$(28):$!IOtext3_%=IOrderS_$(29)
y��$!IOtext4_%=IOrderS_$(32):$!IOtext5_%=IOrderS_$(33):$!IOtext6_%=IOrderS_$(34):$!IOtext7_%=IOrderS_$(35):$!IOtext8_%=IOrderS_$(36):$!IOtext9_%=IOrderS_$(37):$!IOtext10_%=IOrderS_$(38):$!IOtext11_%=IOrderS_$(39)
y��$!IOpage_%=IOrderS_$(40):$!IOdisc_%=IOrderS_$(42):$!IOvat_%=IOrderS_$(43):$!IOesdt_%=IOrderS_$(44):$!IOest_%=IOrderS_$(45):$!IOvt_%=IOrderS_$(46):$!IOnt_%=IOrderS_$(47):$!IOvnt_%=IOrderS_$(48):$!IOvr_%=IOrderS_$(49)
y�}$!IOva_%=IOrderS_$(50):$!IOvdt_%=IOrderS_$(51):$!IOpost_%=IOrderS_$(11):$!IOdata12_%=IOrderS_$(56):$!IOnr_%=IOrderS_$(19)
y��
y�
y�ݤupdateOrder_(W_%)
y�� A%,B%,D%,E%,Z%,a_%
y�� �
y� � � �:� �:�pe_(�err_):=�
z �W_%=2�
z �IOpage%=0�ș&406C0
z!(�IOch_%=1�Z%=�IOBorder_:Z%=�IORuler_
z&"�ipos_%=7��IordermpI_:ipos_%=0
z+�IOrderS_$(2)=$!IOtitle_%:IOrderS_$(3)=$!IOhead_%:IOrderS_$(4)=$!IOsupplier_%:IOrderS_$(14)=$!IOsuppref_%:IOrderS_$(15)=$!IOyourref_%:IOrderS_$(16)=$!IOnumber_%:IOrderS_$(17)=$!IOsr_%:IOrderS_$(18)=$!IOyr_%
z0�IOrderS_$(57)=$!IOdeliver_%:IOrderS_$(20)=$!IOdate_%:IOrderS_$(21)=��$,5,11):IOrderS_$(22)=$!IOtext1_%:IOrderS_$(23)=$!IOdata1_%:IOrderS_$(24)=$!IOdata2_%:IOrderS_$(25)=$!IOdata3_%:IOrderS_$(26)=$!IOdata4_%
z5�IOrderS_$(27)=$!IOdata5_%:IOrderS_$(28)=$!IOtext2_%:IOrderS_$(29)=$!IOtext3_%:IOrderS_$(30)=$!IOdata6_%:IOrderS_$(31)=$!IOdata7_%:IOrderS_$(32)=$!IOtext4_%:IOrderS_$(33)=$!IOtext5_%:IOrderS_$(34)=$!IOtext6_%
z:�IOrderS_$(35)=$!IOtext7_%:IOrderS_$(36)=$!IOtext8_%:IOrderS_$(37)=$!IOtext9_%:IOrderS_$(38)=$!IOtext10_%:IOrderS_$(39)=$!IOtext11_%:IOrderS_$(40)=$!IOpage_%:IOrderS_$(41)=$!IOpe_%:IOrderS_$(42)=$!IOdisc_%
z?�IOrderS_$(43)=$!IOvat_%:IOrderS_$(44)=$!IOesdt_%:IOrderS_$(45)=$!IOest_%:IOrderS_$(46)=$!IOvt_%:IOrderS_$(47)=$!IOnt_%:IOrderS_$(48)=$!IOvnt_%:IOrderS_$(49)=$!IOvr_%:IOrderS_$(50)=$!IOva_%:IOrderS_$(51)=$!IOvdt_%
zDmIOrderS_$(52)=$!IOdata8_%:IOrderS_$(53)=$!IOdata9_%:IOrderS_$(54)=$!IOdata10_%:IOrderS_$(55)=$!IOdata11_%
zI�IOiniticons_
zN�
z�A%=modex%:B%=modey%
z�ș&35,-1,4 � ,,modex%
z�ș&35,-1,5 � ,,modey%
z�E%=fonlink_%
z� �W_%=2�
z�9�A%<>modex%�B%<>modey%�Z%=�IloseOfonts_:�IOinitfonts_
z�M�Z%=Iori_%�IOicons%:�IOch_%=1:�OrderC_%!0=0�ipos_%=7:�Z%>4�Z%<14�ipos_%=0
z�R�IOrderch%(Z%)=1�fonlink_%=Z%+IAfon_%:�IordermpI_:IOjust_%(Z%)=�OtitleF_(Z%,2)
z��
z�*D%=IOwind%:�IOch_%=1�ipos_%=0:IOch_%=0
z��
{fonlink_%=E%
{ �Opagesize_(W_%)
{block_%!0=D%
{ș&400CC,,block_%
{��Opaper3%>block_%!52�Opaper2%<block_%!48�Opaper3%<block_%!52�Opaper2%>block_%!48�block_%!0=0:block_%!4=Opaper2%:block_%!8=Opaper3%:block_%!12=0:ș&400D7,D%,block_%
{ ��error_%=0:ș&400CF,,cblock_%:a_%=cblock_%!12:�cblock_%!12=D%:cblock_%!0=cblock_%!12:ș&400CB,,cblock_%:�(cblock_%!32>>27)�2:�(cblock_%!32>>18)�2��seewind_(D%,-1)
{* �W_%=2:�IOpage%=0�ș&406C1
{9��W_%=2:�$wn%="InvoiceW":�R%=12�R%=5:ș&400D3,,block_%:ș&400CF,,cblock_%:�cblock_%!12=IOwind%:�block_%!0<>IOwind%:�setC1_(IOwind%,wf2_%)
{C=�
{H
{M)��seewind1_:� pix%,piy%,modex%,modey%
{R3�Q%!12-Q%!4<Q%!52-Q%!44�Q%!16-Q%!8<Q%!56-Q%!48�
{Wș&35,-1,4 � ,,modex%:ș&35,-1,5 � ,,modey%:ș&35,-1,11 � ,,pix%:pix%=pix%*2*modex%:ș&35,-1,12 � ,,piy%:piy%=piy%*2*modey%
{\3Q%!4=0:Q%!12=Q%!52-Q%!44:�Q%!12>pix%�Q%!12=pix%
{a=Q%!16=piy%-40:Q%!8=piy%-(Q%!56-Q%!48)-40:�Q%!8<40�Q%!8=40
{f�
{k�
{p
{u��seewind_(W_%,I_%)
{z �W_%<0��
{L� iconx1%,iconx2%,visx1%,visx2%,workx1%,workx2%,pix%,piy%,scrx%,scry%,Z%
{�D� icony1%,icony2%,visy1%,visy2%,worky1%,worky2%,modex%,modey%,Z%
{� block_%!0=W_%:block_%!4=I_%
{�ș&35,-1,4 � ,,modex%
{�ș&35,-1,5 � ,,modey%
{�+ș&35,-1,11 � ,,pix%:pix%=pix%*2*modex%
{�+ș&35,-1,12 � ,,piy%:piy%=piy%*2*modey%
{��I_%>-1�ș&400CE,,block_%:iconx1%=block_%!8:icony1%=block_%!12:iconx2%=block_%!16:icony2%=block_%!20:�block_%!0<>W_%�I_%=-1
{��block_%!0=W_%:ș&400CC,,block_%:workx1%=block_%!44:worky1%=block_%!48:workx2%=block_%!52:worky2%=block_%!56:visx1%=block_%!4:visy1%=block_%!8:visx2%=block_%!12:visy2%=block_%!16:scrx%=block_%!20:scry%=block_%!24
{�>�visx1%<0�block_%!4=0:block_%!12=block_%!12+�(visx1%):Z%=1
{�R�visy2%>piy%-40�block_%!16=piy%-40:block_%!8=block_%!8-(visy2%-(piy%-40)):Z%=1
{�n�block_%!12>pix%�block_%!4=block_%!4-(block_%!12-pix%)-40:block_%!12=pix%-40:Z%=1:�block_%!4<0�block_%!4=0
{�l�block_%!8<0�block_%!8=40:block_%!16=block_%!16+�(visy1%)+40:Z%=1:�block_%!16>piy%-40�block_%!16=piy%-40
{� �I_%>-1�
{�/�iconx1%<block_%!20�block_%!20=iconx1%:Z%=1
{�F�iconx2%>block_%!20+(block_%!12-block_%!4)�block_%!20=iconx1%:Z%=1
{�F�icony1%<block_%!24-(block_%!16-block_%!8)�block_%!24=icony2%:Z%=1
{�/�icony2%>block_%!24�block_%!24=icony2%:Z%=1
{��
{�)�Z%=1�block_%!0=W_%:ș&400C5,,block_%
{��
{�
{���ordermf_
{��lw_%=2:�IOwind%=0��
|�R%<5�R%>7�R%<>12��
|� Z%
| !b%=0
|�lw_%=2:Z%=�IOrderf_:�
| �
|$
|)ݤIOrderfu_
|. � A%,Z%
|3!OrderFU_%=�fontnum(OrderFU_%)
|83$!IOrderfu_%=Fo_$(OrderFU_%):�rI(W%,"IOrderfu")
|`�fonlink_%=9�
|e�A%=2�IOicons%
|jCIOrderfx_%(A%)=�($!IOrderfxu_%):IOrderfy_%(A%)=�($!IOrderfyu_%)
|oIOrderF_%(A%)=OrderFU_%
|txZ%=�losefont_(IOrderF1_%(A%)):IOrderF1_%(A%)=�findfont_(IOrderF_%(A%),IOrderfx_%(A%),IOrderfy_%(A%)):IOrderch%(A%)=1
|y�:Z%=�updateOrder_(2)
|~�
|�=�
|�
|�"ݤIOrderfxu_:!b%=0:=�IOrderfu_
|�"ݤIOrderfyu_:!b%=0:=�IOrderfu_
|� ݤOrderfx_:!b%=0:=�IOrderf_
|� ݤOrderfy_:!b%=0:=�IOrderf_
|�ݤOrderf_:=�IOrderf_
|�ݤIOrderf_
|� � A%,Z%
|�-A%=fonlink_%-IAfon_%:�A%<2�A%>IOicons%�=�
|�G�R%<>12�IOrderfx_%(A%)=�($!Orderfx_%):IOrderfy_%(A%)=�($!Orderfy_%)
|��IOrderF_%(A%)=�fontnum(IOrderF_%(A%)):$!Orderf_%=Fo_$(IOrderF_%(A%)):$!Orderfx_%=�(IOrderfx_%(A%)):$!Orderfy_%=�(IOrderfy_%(A%)):�$wn%="OrderMF":�rI(W%,"Orderf"):�rI(W%,"Orderfx"):�rI(W%,"Orderfy")
} xZ%=�losefont_(IOrderF1_%(A%)):IOrderF1_%(A%)=�findfont_(IOrderF_%(A%),IOrderfx_%(A%),IOrderfy_%(A%)):IOrderch%(A%)=1
}=�updateOrder_(2)
}i��Iordermp_
}n� Z%
}s�R%<4�R%>13�R%<>256��
}x?�IOwind%=0�fonlink_%<IAfon_%+2�fonlink_%-IAfon_%>IOicons%��
}}Z%=fonlink_%-IAfon_%
}�l�IOrdermx_(Z%)<>0�IOrdermy_(Z%)<>0�$!IOrderjx_%=�(IOrdermx_(Z%)):$!IOrderjy_%=�(IOrdermy_(Z%)) �ipos_%=7
}� �R%=11�R%=256��IordermpI_
}�OIOrdermx_(Z%)=�($!IOrderjx_%):IOrdermy_(Z%)=�($!IOrderjy_%):IOrderch%(Z%)=1
}��
~ ��IordermpI_
~� A,B,C%,Z%
~?�IOwind%=0�fonlink_%<IAfon_%+2�fonlink_%-IAfon_%>IOicons%��
~Z%=fonlink_%-IAfon_%
~ ,�ipos_%=7�IOrdermx_(Z%)+IOrdermy_(Z%)=0�
~"P�geticon_(IOwind%,Z%):A=block_%!8:C%=�Ostrlen_(IOrderF1_%(Z%),IOrderS_$(Z%))
~' �IOjust_%(Z%)=0�A=A+charx_
~, �IOjust_%(Z%)=1�A=A+Otw/2
~1"�IOjust_%(Z%)=2�A=A+Otw-charx_
~65A=A/rule_:B=�((block_%!12+chary_)/rule_):�A<0�A=0
~;^�$wn%="OrderMPI"�$!IOrderjx_%=�(A):$!IOrderjy_%=�(B):�rI(W%,"IOrderjx"):�rI(W%,"IOrderjy")
~@#IOrdermx_(Z%)=A:IOrdermy_(Z%)=B
~E�
~J�
~�
~�ݤIOrderJ_
~� � A%,Z%
~�A%=fonlink_%-IAfon_%
~�Dipos_%=7:IOjust_%(A%)=I%:�tMIx("OrderMPI",I%):IOrderch%(A%)=1:=�
~�+ݤIOrderjx_:�IOsetmp_:=�updateOrder_(2)
~�+ݤIOrderjy_:�IOsetmp_:=�updateOrder_(2)
��IOsetmp_
� A%
A%=fonlink_%-IAfon_%
!Xipos_%=0:IOrdermx_(A%)=�($!IOrderjx_%):IOrdermy_(A%)=�($!IOrderjy_%):IOrderch%(A%)=1
&�
D
���getWind_(temp_%,W_%)
� � A%,B%,C%,D%,E%,A_%
�/�temp_%=0��
�4 �R%=193�temp_%!0<>0�W_%<4�
�9LA_%=1:�NewPref_%(3)<128�A_%=0:� 1 extra icon in order/invoice after V127
�C&�W_%=2�B%=IOicons%+A_%:B%=B%*32+84
�M�A%=4 � B% �4
�R�A%=32�A%+=4
�W�A%=60�A%+=4
�\�A%=68�A%+=4
�a�A%=76�A%+=12
�f�A%=88�A%+=68
�kQ%!A%=temp_%!A%
�p�(A%-92)�32=12�A%=A%+16
�u�
�z�
�K�R%=5:�W_%>0�W_%<4:ș&400CF,,oblock_%:�oblock_%!12=IOwind%�ș&400D4,,-1
���
��
�� ��Opagesize_(W_%):� A%,B%
��"�W_%=2�A%=IOpagy_%:B%=IOpagx_%
���Opaper1%=0:Opaper2%=-A%*rule_:Opaper2%=Opaper2%-Opaper2%�(2*modey%):Opaper3%=B%*rule_:Opaper3%=Opaper3%-Opaper3%�(2*modex%):Opaper4%=0:�
��
��ݤinitstat_:$!Stat1_%=Stat1_$:$!Stat2_%=Stat2_$:$!Stat3_%=Stat3_$:$!SBestFr_%=�(SBestF_%):�SBestP_%=1�$!SBestPe_%="Months" �$!SBestPe_%="Days"
��=�
��{ݤupdatestat_:Stat1_$=$!Stat1_%:Stat2_$=$!Stat2_%:Stat3_$=$!Stat3_%:�($!SBestFr_%)<1�$!SBestFr_%="1":�rI(W%,"SBestFr")
��D�($!SBestFr_%)>12�SBestP_%=1�$!SBestFr_%="12":�rI(W%,"SBestFr")
�SBestF_%=�($!SBestFr_%)
�:�ccred%>0�occred_%=0:�initccred_:�updateccred_(CS_%,1)
� =�
�
�)&ݤSBestPe_:� Z%:SBestP_%=-SBestP_%
�.8�SBestP_%=1�$!SBestPe_%="Months" �$!SBestPe_%="Days"
�3#�rI(W%,"SBestPe"):=�updatestat_
�8 ݤSBestFr_:=�updatestat_
�=ݤStat1_:=�updatestat_
�BݤStat2_:=�updatestat_
�GݤStat3_:=�updatestat_
�LxݤSCust_:� Z%:�$!SCust_%,1)="#"�Z%=�sf_($!SCust_%,1):$!SCust_%="#"+�(Z%)+"="+CSuppliers_$(Z%):SITn2_%=Z% �SITn2_%=0
�Q�SFirst_:=�updatestat_
�V
���ݤinitUser_:�A%:$!Uname_%=Unam_$:$!Uad11_%=Uad1_$:$!Uad22_%=Uad2_$:$!Uad33_%=Uad3_$:$!Uad44_%=Uad4_$:$!Uad55_%=Uad5_$:$!Upost_%=Upos_$:$!Utel_%=Ute_$:$!Ufax_%=Ufa_$:$!Uvat_%=Uva_$:$!usname_%=usname_$:$!Tname_%=Tnam_$
��=�
���ݤupdateUser_:� Z%:Unam_$=$!Uname_%:Uad1_$=$!Uad11_%:Uad2_$=$!Uad22_%:Uad3_$=$!Uad33_%:Uad4_$=$!Uad44_%:Uad5_$=$!Uad55_%:Upos_$=$!Upost_%:Ute_$=$!Utel_%:Ufa_$=$!Ufax_%:Uva_$=$!Uvat_%:Tnam_$=$!Tname_%
��<�IupOuser_:�Z%=5�13:IOrderch%(Z%)=1:�:IOrderch%(56)=1:=�
�����IupOuser_:IOrderS_$(5)=Unam_$:IOrderS_$(6)=Uad1_$:IOrderS_$(7)=Uad2_$:IOrderS_$(8)=Uad3_$:IOrderS_$(9)=Uad4_$:IOrderS_$(10)=Uad5_$:IOrderS_$(11)=Upos_$:IOrderS_$(12)=Ute_$:IOrderS_$(13)=Ufa_$:IOrderS_$(56)=Uva_$:�
��
��;��updatewind_(temp_%):temp_%!0=W%!12:ș&400CC,,temp_%:�
�
�ݤinitsaled_
� 1sitp_%=�firstfreesal_(0)-4:�sitp_%<0�sitp_%=0
�@�sitp_%>maxS_%*sitip_%-sitip_%�sitp_%=maxS_%*sitip_%-sitip_%
�BIsal_%=0:$!salname_%=salname_$:�SITap_$(0)<>"|"�SITap_$(0)="|"
�=�
� ݤinitstand_
�%1titp_%=�firstfreetal_(0)-4:�titp_%<0�titp_%=0
�*@�titp_%>maxT_%*sitip_%-sitip_%�titp_%=maxT_%*sitip_%-sitip_%
�/BISal_%=0:$!talname_%=talname_$:�TITap_$(0)<>"|"�TITap_$(0)="|"
�4=�
�9ݤinitpaled_
�>2pitp_%=�firstfreepaym_(0)-4:�pitp_%<0�pitp_%=0
�C@�pitp_%>maxP_%*sitip_%-sitip_%�pitp_%=maxP_%*sitip_%-sitip_%
�HBIpal_%=0:$!palname_%=palname_$:�PITap_$(0)<>"|"�PITap_$(0)="|"
�M=�
�Rݤinitbankl_
�W2bitp_%=�firstfreebank_(0)-4:�bitp_%<0�bitp_%=0
�\@�bitp_%>maxB_%*bitip_%-bitip_%�bitp_%=maxB_%*bitip_%-bitip_%
�aIbal_%=0:=�
�f
�k���initInvW1_:ITs_$()="":ITos_$()="":ITss_$()="|":ITsss_$()="|":ITf_%()=0:ITd_%()=0:ITt_$()="":ITr_()=0:ITn_%()=0:ITo_%()=0:itp_%=0:�
�p
�u�ݤinitInvW_:� Z%:supply1_%=0:$!ITda1_%=today_$:�initInvW1_:ITsupnum_%=0:ITsupnumN_%=0:$!ITesd_%=�(ITes_%):$!ITrec_%="":Z%=�pII(W%!12,89,�VAT_$,1)+":Cd"):Z%=�pII(W%!12,79,VAT_$+"tot"):�$!ITesd_%="0"�$!ITesd_%=""
�z�$!ITord_%="":$!ITcop_%=ITcop_$:$!ITda_%="":ITda_$="":ITnu_$="Current":$!ITnum_%="Current":$!ITsupplier_%="":$!ITDisc_%=ITdis_$:$!ITrec_%=ITre_$:$!ITpri_%=ITpric_$:$!ITacc1_%=ITacc_$:$!IThead1_%=IThead_$:$!ITcomm1_%=ITcomm_$
�F!k%=1:ITsupch_%=0:inv11_%(0)=1:$!invname_%=�cri_:$!ITl_%=�(ITll_%)
���rI(W%,"invname"):=�
��
��=ݤITnoitems_:� A%,Z%:A%=-1:�Z%=maxI_%*itip_%*itif_% �1�-1
�� �ITs_$(Z%)<>""�A%=Z%-1:Z%=1
���:�A%>-1�=A%/itif_%+1
��=0
��
����getSITdat_
��W� aa_%,a_%,b_%,A%,A_%,B_%,B%,C%,D%,E_%,E%,F%,G%,H%,Z%,Z_%,C_$,A_$,B_$:G%=t_%:H%=u_%
��� �
��� � �:� �:�pe_(�err_):�
���Z%=sitp_%�sitp_%+4
���A%=�ni_(SITe_$(Z%*sitif_%+9)):a_%=�ni_(SITe_$(Z%*sitif_%+6)):b_%=�ni_(SITe_$(Z%*sitif_%+8)):$t_%=SITe_$(Z%*sitif_%+4):$u_%=SITe_$(Z%*sitif_%+10):�m2_%
�ń�$t_%<>""�A_%=�($t_%)-64:�A_%<13�BankCC_%(A_%)=�add_(BankCC_%(A_%),-A%):�(SITs_$(Z%))=Q_$�BankSS_%(A_%)=�add_(BankSS_%(A_%),-A%)
���($u_%)=1�$u_%+="A"
����$u_%<>""�A_%=�($u_%)-65:B_%=�(�$u_%,1))-65:�A_%<12�B_%<8�A_%=A_%*40+B_%*5+2:Sheadt1_%(A_%)=�add_(Sheadt1_%(A_%),-A%):Sheadt1_%(A_%+2)=�add_(Sheadt1_%(A_%+2),-b_%):Sheadt1_%(A_%+1)=Sheadt1_%(A_%+1)-(a_%-A%)
���
��FD%=sitp_%*sitif_%:�Z%=1�sitin_%:D%+=1:SITe_$(D%)=�gId(saled%,Z%):�
��Z%=sitp_%�sitp_%+4:$u_%=SITe_$(Z%*sitif_%+9):�m3_%:F%=�($u_%):A_$=��gId(saled%,Z%-sitp_%+76),1):B_$=SITe_$(Z%*sitif_%+1):�SITe_$(Z%*sitif_%+3)="":�SITn_%(Z%+1)<>0�SITn_%(Z%+1)=0
���$t_%=SITe_$(Z%*sitif_%+4):$u_%=SITe_$(Z%*sitif_%+10):�m2_%:SITe_$(Z%*sitif_%+4)=$t_%:SITe_$(Z%*sitif_%+10)=$u_%:B%=�ni_(SITe_$(Z%*sitif_%+6)):SITa_$(Z%)="":SITh_$(Z%)="":E%=�ni_(SITe_$(Z%*sitif_%+9))
��Aa_%=�ni_(SITe_$(Z%*sitif_%+6)):b_%=�ni_(SITe_$(Z%*sitif_%+8))
��
�F%>0�
��/�F%=85�A_$="U":SITe_$(Z%*sitif_%+9)="":E%=0
��=�F%=80�A_$="P":SITe_$(Z%*sitif_%+9)=�convis_(B%,""):E%=B%
��B�F%=82�E%=0�A_$="R":SITe_$(Z%*sitif_%+9)=�convis_(B%,""):E%=B%
�=�F%=82�E%<>0�A_$="R":SITe_$(Z%*sitif_%+9)=�convis_(E%,"")
�?Z_%=�pII(saled%,(Z%-sitp_%)*sitif_%+9,SITe_$(Z%*sitif_%+9))
� �
���A_$="R"�SITs_$(Z%)=Q_$ ��B%=E%�SITs_$(Z%)="Paid" ��(B%)>�(E%)�E%<>0�SITs_$(Z%)="part-Paid" ��(B%)<�(E%)�E%<>0�SITs_$(Z%)="over-Paid" �SITs_$(Z%)="Unpaid"
��B_$=""�SITs_$(Z%)=""
���$t_%<>"":A_%=�($t_%)-64:�A_%<13�SITa_$(Z%)=BankNN_$(A_%):BankCC_%(A_%)=�add_(BankCC_%(A_%),E%):�(SITs_$(Z%))=Q_$BankSS_%(A_%)=�add_(BankSS_%(A_%),E%)
� �$u_%<>""�
�$3�($u_%)=1�$u_%+="A":SITe_$(Z%*sitif_%+10)=$u_%
�)9A_%=�($u_%)-65:B_%=�(�$u_%,1))-65:aa_%=A_%*40+B_%*5+2
�.��A_%<12�B_%<8�SITh_$(Z%)=Shead1_$(A_%+1):A_%=A_%*8+12+B_%+1:SITh_$(Z%)=SITh_$(Z%)+":"+Shead1_$(A_%):Sheadt1_%(aa_%)=�add_(Sheadt1_%(aa_%),E%):Sheadt1_%(aa_%+2)=�add_(Sheadt1_%(aa_%+2),b_%):Sheadt1_%(aa_%+1)=Sheadt1_%(aa_%+1)+(a_%-E%)
�3�
�8S�gId(saled%,Z%-sitp_%+66)<>SITa_$(Z%)�Z_%=�pII(saled%,Z%-sitp_%+66,SITa_$(Z%))
�=S�gId(saled%,Z%-sitp_%+71)<>SITh_$(Z%)�Z_%=�pII(saled%,Z%-sitp_%+71,SITh_$(Z%))
�BS�gId(saled%,Z%-sitp_%+76)<>SITs_$(Z%)�Z_%=�pII(saled%,Z%-sitp_%+76,SITs_$(Z%))
�G�
�LIZ%=�updatebank_:Z%=�updateheadsM_(1):saledp_%=�sp_(saled%,saledp_%):�
�Q��getTITdat_
�V � D%,G%,H%,Z%:G%=t_%:H%=u_%
�[� �
�`� � �:� �:�pe_(�err_):�
�eFD%=titp_%*sitif_%:�Z%=1�sitin_%:D%+=1:TITe_$(D%)=�gId(stand%,Z%):�
�jA�Z%=titp_%�titp_%+4:TITa_$(Z%)="":TITh_$(Z%)="":TITs_$(Z%)=""
�o�$t_%=TITe_$(Z%*sitif_%+4):$u_%=TITe_$(Z%*sitif_%+10):�m2_%:TITe_$(Z%*sitif_%+4)=$t_%:TITe_$(Z%*sitif_%+10)=$u_%:TITa_$(Z%)=�getbank_($t_%)
�tJ�TITe_%(Z%)=1�TITh_$(Z%)=�getheadS_($u_%) �TITh_$(Z%)=�getheadP_($u_%)
�yYTITe_$(Z%*sitif_%+9)=TITe_$(Z%*sitif_%+6):�TITe_$(Z%*sitif_%+6)<>""�TITs_$(Z%)="Paid"
�~y�gId(stand%,(Z%-titp_%)*sitif_%+9)<>TITe_$(Z%*sitif_%+6)�Z_%=�pII(stand%,(Z%-titp_%)*sitif_%+9,TITe_$(Z%*sitif_%+6))
��S�gId(stand%,Z%-titp_%+66)<>TITa_$(Z%)�Z_%=�pII(stand%,Z%-titp_%+66,TITa_$(Z%))
��S�gId(stand%,Z%-titp_%+71)<>TITh_$(Z%)�Z_%=�pII(stand%,Z%-titp_%+71,TITh_$(Z%))
��S�gId(stand%,Z%-titp_%+76)<>TITs_$(Z%)�Z_%=�pII(stand%,Z%-titp_%+76,TITs_$(Z%))
���
���
��
��d��savesaleledger2_(Z%,c_%):� aa_%,b_%,A%,A_%,B_%,B%,C%,D%,E_%,E%,G%,H%,Z_%,C_$,A_$:G%=t_%:H%=u_%
���SITs_$(Z%)="":SITa_$(Z%)="":SITh_$(Z%)="":$t_%=SITe_$(Z%*sitif_%+4):$u_%=SITe_$(Z%*sitif_%+10):�m2_%:SITe_$(Z%*sitif_%+4)=$t_%:SITe_$(Z%*sitif_%+10)=$u_%
��^E%=�ni_(SITe_$(Z%*sitif_%+9)):B%=�ni_(SITe_$(Z%*sitif_%+6)):b_%=�ni_(SITe_$(Z%*sitif_%+8))
����c_%=1�SITn_%(Z%+1)=CSuNumber_%(�($!ITrecd_%)) ��c_%=0:SITn_%(Z%+1)=�getcup_(SITe_$(Z%*sitif_%+3)):�SITn_%(Z%+1)>0:SITe_$(Z%*sitif_%+3)=oc_$
��e�B%=E%�olddata_$(11)=""�SITs_$(Z%)="Paid" ��olddata_$(11)="R"�SITs_$(Z%)=Q_$ �SITs_$(Z%)="Unpaid"
����SITe_$(Z%*sitif_%+4)<>"":A_%=�(SITe_$(Z%*sitif_%+4))-64:�A_%<13�A_%>0�SITa_$(Z%)=BankNN_$(A_%):�E%<>0�BankCC_%(A_%)=�add_(BankCC_%(A_%),E%):�(SITs_$(Z%))=Q_$BankSS_%(A_%)=�add_(BankSS_%(A_%),E%)
���$u_%<>""�
��3�($u_%)=1�$u_%+="A":SITe_$(Z%*sitif_%+10)=$u_%
��9A_%=�($u_%)-65:B_%=�(�$u_%,1))-65:aa_%=A_%*40+B_%*5+2
����A_%<12�B_%<8�SITh_$(Z%)=Shead1_$(A_%+1):A_%=A_%*8+12+B_%+1:SITh_$(Z%)=SITh_$(Z%)+":"+Shead1_$(A_%):Sheadt1_%(aa_%)=�add_(Sheadt1_%(aa_%),E%):Sheadt1_%(aa_%+2)=�add_(Sheadt1_%(aa_%+2),b_%):Sheadt1_%(aa_%+1)=Sheadt1_%(aa_%+1)+(B%-E%)
���
���saled%>0�
��S�gId(saled%,Z%-sitp_%+66)<>SITa_$(Z%)�Z_%=�pII(saled%,Z%-sitp_%+66,SITa_$(Z%))
��S�gId(saled%,Z%-sitp_%+71)<>SITh_$(Z%)�Z_%=�pII(saled%,Z%-sitp_%+71,SITh_$(Z%))
��S�gId(saled%,Z%-sitp_%+76)<>SITs_$(Z%)�Z_%=�pII(saled%,Z%-sitp_%+76,SITs_$(Z%))
���setSITdat_(0)
���
��*Z%=�updatebank_:Z%=�updateheadsM_(1):�
��
� e��savepurchledger2_(Z%,c_%):� aa_%,b_%,A%,A_%,B_%,B%,C%,D%,E_%,E%,G%,H%,Z_%,C_$,A_$:G%=t_%:H%=u_%
��PITs_$(Z%)="":PITa_$(Z%)="":PITh_$(Z%)="":$t_%=PITe_$(Z%*sitif_%+4):$u_%=PITe_$(Z%*sitif_%+10):�m2_%:PITe_$(Z%*sitif_%+4)=$t_%:PITe_$(Z%*sitif_%+10)=$u_%
�
^E%=�ni_(PITe_$(Z%*sitif_%+9)):B%=�ni_(PITe_$(Z%*sitif_%+6)):b_%=�ni_(PITe_$(Z%*sitif_%+8))
��c_%=0:PITn_%(Z%+1)=0
�e�B%=E%�olddata_$(11)=""�PITs_$(Z%)="Paid" ��olddata_$(11)="R"�PITs_$(Z%)=Q_$ �PITs_$(Z%)="Unpaid"
���PITe_$(Z%*sitif_%+4)<>"":A_%=�(PITe_$(Z%*sitif_%+4))-64:�A_%<13�A_%>0�PITa_$(Z%)=BankNN_$(A_%):�E%<>0�BankCC_%(A_%)=�add_(BankCC_%(A_%),-E%):�(PITs_$(Z%))=Q_$BankSS_%(A_%)=�add_(BankSS_%(A_%),-E%)
� �$u_%<>""�
�#3�($u_%)=1�$u_%+="A":PITe_$(Z%*sitif_%+10)=$u_%
�(9A_%=�($u_%)-65:B_%=�(�$u_%,1))-65:aa_%=A_%*40+B_%*5+2
�-��A_%<12�B_%<8�PITh_$(Z%)=Phead1_$(A_%+1):A_%=A_%*8+12+B_%+1:PITh_$(Z%)=PITh_$(Z%)+":"+Phead1_$(A_%):Pheadt1_%(aa_%)=�add_(Pheadt1_%(aa_%),E%):Pheadt1_%(aa_%+2)=�add_(Pheadt1_%(aa_%+2),b_%):Pheadt1_%(aa_%+1)=Pheadt1_%(aa_%+1)+(B%-E%)
�2�
�7�paled%>0�
�<S�gId(paled%,Z%-pitp_%+66)<>PITa_$(Z%)�Z_%=�pII(paled%,Z%-pitp_%+66,PITa_$(Z%))
�AS�gId(paled%,Z%-pitp_%+71)<>PITh_$(Z%)�Z_%=�pII(paled%,Z%-pitp_%+71,PITh_$(Z%))
�FS�gId(paled%,Z%-pitp_%+76)<>PITs_$(Z%)�Z_%=�pII(paled%,Z%-pitp_%+76,PITs_$(Z%))
�K�setPITdat_(0)
�P�
�U*Z%=�updatebank_:Z%=�updateheadpM_(1):�
�Z
�_��getPITdat_
�dW� aa_%,a_%,b_%,A%,A_%,B_%,B%,C%,D%,E_%,E%,F%,G%,H%,Z%,Z_%,C_$,A_$,B_$:G%=t_%:H%=u_%
�i� �
�n� � �:� �:�pe_(�err_):�
�s�Z%=pitp_%�pitp_%+4
�x�A%=�ni_(PITe_$(Z%*sitif_%+9)):a_%=�ni_(PITe_$(Z%*sitif_%+6)):b_%=�ni_(PITe_$(Z%*sitif_%+8)):$t_%=PITe_$(Z%*sitif_%+4):$u_%=PITe_$(Z%*sitif_%+10):�m2_%
�}��$t_%<>""�A_%=�($t_%)-64:�A_%<13�BankCC_%(A_%)=�add_(BankCC_%(A_%),A%):�PITs_$(Z%)=Q_$�BankSS_%(A_%)=�add_(BankSS_%(A_%),A%)
���($u_%)=1�$u_%+="A"
����$u_%<>""�A_%=�($u_%)-65:B_%=�(�$u_%,1))-65:�A_%<12�B_%<8�A_%=A_%*40+B_%*5+2:Pheadt1_%(A_%)=�add_(Pheadt1_%(A_%),-A%):Pheadt1_%(A_%+2)=�add_(Pheadt1_%(A_%+2),-b_%):Pheadt1_%(A_%+1)=Pheadt1_%(A_%+1)-(a_%-A%)
���
��FD%=pitp_%*sitif_%:�Z%=1�sitin_%:D%+=1:PITe_$(D%)=�gId(paled%,Z%):�
����Z%=pitp_%�pitp_%+4:$u_%=PITe_$(Z%*sitif_%+9):�m3_%:F%=�($u_%):A_$=��gId(paled%,Z%-pitp_%+76),1):B_$=PITe_$(Z%*sitif_%+1):�PITe_$(Z%*sitif_%+3)="":�PITn_%(Z%+1)<>0�PITn_%(Z%+1)=0
���$t_%=PITe_$(Z%*sitif_%+4):$u_%=PITe_$(Z%*sitif_%+10):�m2_%:PITe_$(Z%*sitif_%+4)=$t_%:PITe_$(Z%*sitif_%+10)=$u_%:B%=�ni_(PITe_$(Z%*sitif_%+6)):PITa_$(Z%)="":PITh_$(Z%)="":E%=�ni_(PITe_$(Z%*sitif_%+9))
��Aa_%=�ni_(PITe_$(Z%*sitif_%+6)):b_%=�ni_(PITe_$(Z%*sitif_%+8))
��
�F%>0�
��/�F%=85�A_$="U":PITe_$(Z%*sitif_%+9)="":E%=0
��=�F%=80�A_$="P":PITe_$(Z%*sitif_%+9)=�convis_(B%,""):E%=B%
��B�F%=82�E%=0�A_$="R":PITe_$(Z%*sitif_%+9)=�convis_(B%,""):E%=B%
��=�F%=82�E%<>0�A_$="R":PITe_$(Z%*sitif_%+9)=�convis_(E%,"")
��?Z_%=�pII(paled%,(Z%-pitp_%)*sitif_%+9,PITe_$(Z%*sitif_%+9))
���
�Ƞ�A_$="R"�PITs_$(Z%)=Q_$ ��B%=E%�PITs_$(Z%)="Paid" ��(B%)>�(E%)�E%<>0�PITs_$(Z%)="part-Paid" ��(B%)<�(E%)�E%<>0�PITs_$(Z%)="over-Paid" �PITs_$(Z%)="Unpaid"
���B_$=""�PITs_$(Z%)=""
�Ҝ�$t_%<>"":A_%=�($t_%)-64:�A_%<13�PITa_$(Z%)=BankNN_$(A_%):BankCC_%(A_%)=�add_(BankCC_%(A_%),-E%):�(PITs_$(Z%))=Q_$BankSS_%(A_%)=�add_(BankSS_%(A_%),-E%)
���$u_%<>""�
��3�($u_%)=1�$u_%+="A":PITe_$(Z%*sitif_%+10)=$u_%
��9A_%=�($u_%)-65:B_%=�(�$u_%,1))-65:aa_%=A_%*40+B_%*5+2
����A_%<12�B_%<8�PITh_$(Z%)=Phead1_$(A_%+1):A_%=A_%*8+12+B_%+1:PITh_$(Z%)=PITh_$(Z%)+":"+Phead1_$(A_%):Pheadt1_%(aa_%)=�add_(Pheadt1_%(aa_%),E%):Pheadt1_%(aa_%+2)=�add_(Pheadt1_%(aa_%+2),b_%):Pheadt1_%(aa_%+1)=Pheadt1_%(aa_%+1)+(a_%-E%)
���
��S�gId(paled%,Z%-pitp_%+66)<>PITa_$(Z%)�Z_%=�pII(paled%,Z%-pitp_%+66,PITa_$(Z%))
��S�gId(paled%,Z%-pitp_%+71)<>PITh_$(Z%)�Z_%=�pII(paled%,Z%-pitp_%+71,PITh_$(Z%))
��S�gId(paled%,Z%-pitp_%+76)<>PITs_$(Z%)�Z_%=�pII(paled%,Z%-pitp_%+76,PITs_$(Z%))
���
�IZ%=�updatebank_:Z%=�updateheadpM_(1):paledp_%=�sp_(paled%,paledp_%):�
�
���getBITdat_
�G� A%,A_%,B_%,B%,C%,D%,E_%,E%,G%,H%,Z%,Z_%,C_$,A_$,B_$:G%=t_%:H%=u_%
�� �
� � � �:� �:�pe_(�err_):�
�"�Z%=bitp_%�bitp_%+4
�'!A%=�ni_(BITe_$(Z%*bitif_%+5))
�, �A%<>0�
�1=$t_%=BITe_$(Z%*bitif_%+3):$u_%=BITe_$(Z%*bitif_%+6):�m2_%
�6��$t_%<>"":�BITe_$(Z%*bitif_%+4)="P"�BITe_$(Z%*bitif_%+4)="�"�A_%=�($t_%)-64:�A_%<13�BankCC_%(A_%)=�add_(BankCC_%(A_%),A%):�BITe_$(Z%*bitif_%+4)="�"�BankSS_%(A_%)=�add_(BankSS_%(A_%),A%)
�;��$u_%<>"":�BITe_$(Z%*bitif_%+7)="P"�BITe_$(Z%*bitif_%+7)="�"�A_%=�($u_%)-64:�A_%<13�BankCC_%(A_%)=�add_(BankCC_%(A_%),-A%):�BITe_$(Z%*bitif_%+7)="�"�BankSS_%(A_%)=�add_(BankSS_%(A_%),-A%)
�@�
�E�
�JFD%=bitp_%*bitif_%:�Z%=1�bitin_%:D%+=1:BITe_$(D%)=�gId(bankl%,Z%):�
�O��Z%=bitp_%�bitp_%+4:$t_%=BITe_$(Z%*bitif_%+4):$u_%=BITe_$(Z%*bitif_%+7):�m2_%:A_$=$t_%:B_$=$u_%:$t_%=BITe_$(Z%*bitif_%+3):$u_%=BITe_$(Z%*bitif_%+6):�m2_%:BITe_$(Z%*bitif_%+3)=$t_%:BITe_$(Z%*bitif_%+6)=$u_%
�T!E%=�ni_(BITe_$(Z%*bitif_%+5))
�Y �A_$<>"":�$t_%=""�A_$=""
�^�A_$="R"�A_$="�"
�c&�$t_%<>"":�E%<>0:�A_$<>"�"�A_$="P"
�hb�A_$<>BITe_$(Z%*bitif_%+4)�BITe_$(Z%*bitif_%+4)=A_$:Z_%=�pII(bankl%,(Z%-bitp_%)*bitif_%+4,A_$)
�m BITf_$(Z%)="":BITt_$(Z%)=""
�r��$t_%<>""�A_%=�($t_%)-64:�A_%<13BITf_$(Z%)=BankNN_$(A_%):BankCC_%(A_%)=�add_(BankCC_%(A_%),-E%):�A_$="�"�BankSS_%(A_%)=�add_(BankSS_%(A_%),-E%)
�w �B_$<>"":�$u_%=""�B_$=""
�|�B_$="R"�B_$="�"
��&�$u_%<>"":�E%<>0:�B_$<>"�"�B_$="P"
��b�B_$<>BITe_$(Z%*bitif_%+7)�BITe_$(Z%*bitif_%+7)=B_$:Z_%=�pII(bankl%,(Z%-bitp_%)*bitif_%+7,B_$)
����$u_%<>""�A_%=�($u_%)-64:�A_%<13BITt_$(Z%)=BankNN_$(A_%):BankCC_%(A_%)=�add_(BankCC_%(A_%),E%):�B_$="�"�BankSS_%(A_%)=�add_(BankSS_%(A_%),E%)
��S�gId(bankl%,Z%-bitp_%+48)<>BITf_$(Z%)�Z_%=�pII(bankl%,Z%-bitp_%+48,BITf_$(Z%))
��S�gId(bankl%,Z%-bitp_%+53)<>BITt_$(Z%)�Z_%=�pII(bankl%,Z%-bitp_%+53,BITt_$(Z%))
���
��0Z%=�updatebank_:bankp_%=�sp_(bankl%,bankp_%)
���
��
����savebankledger2_(Z%)
��,� A%,A_%,B_%,B%,C%,D%,E_%,E%,Z_%,C_$,A_$
��!E%=�ni_(BITe_$(Z%*bitif_%+5))
�� A_$=BITe_$(Z%*bitif_%+4)
�� BITf_$(Z%)="":BITt_$(Z%)=""
�dz�BITe_$(Z%*bitif_%+3)<>""�A_%=�(BITe_$(Z%*bitif_%+3))-64:�A_%<13BITf_$(Z%)=BankNN_$(A_%):BankCC_%(A_%)=�add_(BankCC_%(A_%),-E%):�A_$="�"�BankSS_%(A_%)=�add_(BankSS_%(A_%),-E%)
�� A_$=BITe_$(Z%*bitif_%+7)
�ѱ�BITe_$(Z%*bitif_%+6)<>""�A_%=�(BITe_$(Z%*bitif_%+6))-64:�A_%<13BITt_$(Z%)=BankNN_$(A_%):BankCC_%(A_%)=�add_(BankCC_%(A_%),E%):�A_$="�"�BankSS_%(A_%)=�add_(BankSS_%(A_%),E%)
����bankl%>0�Z_%=�pII(bankl%,(Z%-bitp_%)*bitif_%+4,A_$):Z_%=�pII(bankl%,(Z%-bitp_%)*bitif_%+7,A_$):Z_%=�pII(bankl%,Z%-bitp_%+48,BITf_$(Z%)):Z_%=�pII(bankl%,Z%-bitp_%+53,BITt_$(Z%)):�setBITdat_(0)
��Z%=�updatebank_:�
��Cݤch_(a_$,b_$):� Z%:a_$=�trmL(a_$):Z%=�a_$,":"):a_$=�caps_(a_$)
�� �b_$="":�(a_$)<2=�a_$,1)
�� �Z%=0:�(a_$)=0:=" :"+b_$
�� �Z%=0:�(a_$)=1:=a_$+":"+b_$
�� �Z%=0:�(a_$)=2:=" :"+a_$
��*�Z%=0:�(a_$)>2:=�a_$,1)+":"+�a_$,2,2)
���Z%=1:=�" "+a_$+b_$,4)
�!=�a_$,1)+":"+�a_$+b_$,Z%+1,2)
�/ݤqc_(a_$,b_):� A$,Z%,A,a_:A$=a_$:�A$="":=0
�
� �
�� � �:� �:=0
��a_$,":")�
�Ea_$+="0000":A=�a_$,":"):Z%=�(�a_$,A+1,4))/60*100:A$=�a_$,A-1)+"."
�(�(Z%)<1000:A$+="0"+�(Z%) �A$+=�(Z%)
��
� '�b_=0:a_=�(A$)*inv11_%(0) �a_=�(A$)
�!=a_
�&��getITdat_(A_%)
�+%� A%,B_%,C%,D%,E_%,Z%,C_$,A,D,A_$
�0E�!k%=0:�ITsupnum_%=0�ITsupch_%=0�error_%=0�ITsupch_%=1:�wl_(21):�
�5�ITsupnum_%>0�
�:�Z%=itp_%�itp_%+7
�D$�ITo_%(Z%)>0�ITo_%(Z%)=ITn_%(Z%)
�I�
�N�
�SqD%=itp_%*itif_%:�Z%=1�itin_%:D%+=1:ITs_$(D%)=�gId(invw%,Z%):�:�A_%=1�inv11_%(0)=-inv11_%(0):$!invname_%=�cri_
�X�ITsupnum_%>0�
�]�E_%=0:�Z%=itp_%�itp_%+7:�ITs_$(Z%*itif_%+6)<>"":�ch_(ITs_$(Z%*itif_%+6),"")<>ITs_$(Z%*itif_%+6):D%=�pII(invw%,E_%*itif_%+6,�ch_(ITs_$(Z%*itif_%+6),""))
�b��ITos_$(Z%)<>ITs_$(Z%*itif_%+1)�ITs_$(Z%*itif_%+1)="":ITn_%(Z%)=0:D%=�pII(invw%,(E_%*itif_%+1),ITs_$(Z%*itif_%+1)):�setC_(E_%*itif_%+1)
��>E_%+=1:ITo_%(Z%)=ITn_%(Z%):ITos_$(Z%)=ITs_$(Z%*itif_%+1):�
���
���
��[ݤcri_:�inv11_%(0)=1�="Invoice" ��inv11_%(0)=-1�="Credit Note" �inv11_%(0)=1:="Invoice"
����getITdattot_
��&� Z%,A%,B%,C%,D%,E%,F%,G%,H%,G,A,B
��4�Z%=1�maxI_%*itip_%*itif_%-1�itif_%:ITt_$(F%)=""
���ITs_$(Z%+2)<>""�
��0�Va_%(�(ITs_$(Z%+5))�32+1)=0�A=0 �A=ITr_(F%)
��B=�qc_(ITs_$(Z%+2),1)
���A=0�D%=�calpc2_(�sum_(B,�convsi_(ITs_$(Z%+3)))) �D%=�calpc2_(�sum_(B,ITr_(F%))):D%=D%-(D%-D%/((10000+Va_%(�(ITs_$(Z%+5))�32+1))/100)*100)
���(ITs_$(Z%+4))<>0�
��K�ITd_%(F%)=67�D%=D%*(�(ITs_$(Z%+4))/100) �D%=D%-D%*(�(ITs_$(Z%+4))/100)
���
��<ITt_$(F%)=�tc_(D%,""):A%=A%+D%:G%=D%-D%*�($!ITesd_%)/100
���prefn_%=1�
��A<>0��(ITs_$(Z%+4))=0�
���ITf_%(F%)=1�$!ITesd_%=""�G=G+(�sum_(ITr_(F%),B)-D%):C%=C%+D% �H%=�calpc2_(D%*(Va_%(�(ITs_$(Z%+5))�32+1)/10000)):C%=C%+G%:G=G+H%
� �
��A=0��(ITs_$(Z%+4))<>0�
�u�ITf_%(F%)=1�G=G+D%*(Va_%(�(ITs_$(Z%+5))�32+1)/10000):C%=C%+D% �G=G+D%*(Va_%(�(ITs_$(Z%+5))�32+1)/10000):C%=C%+G%
��
� �
�%�prefn_%=-1�
�*�A<>0��(ITs_$(Z%+4))=0�
�/��ITf_%(F%)=1�$!ITesd_%=""�G=G+(�sum_(ITr_(F%),B)-D%):C%=C%+D% �H%=�calpc2_(G%*(Va_%(�(ITs_$(Z%+5))�32+1)/10000)):C%=C%+G%:G=G+H%
�4�
�9�A=0��(ITs_$(Z%+4))<>0�
�>u�ITf_%(F%)=1�G=G+D%*(Va_%(�(ITs_$(Z%+5))�32+1)/10000):C%=C%+D% �G=G+G%*(Va_%(�(ITs_$(Z%+5))�32+1)/10000):C%=C%+G%
�C�
�H�
�M�
�R�F%+=1:�:ITsss_$(8)=�tc_(A%,"0"):B%=�calpc2_(G):ITsss_$(9)=�tc_(B%,"0"):ITsss_$(10)=�tc_(A%+B%,"0"):�$!ITesd_%<>""�C%=�add_(C%,�calpc2_(G)):ITsss_$(11)=�tc_(C%,"") �ITsss_$(11)=""
�W�
�\
�a`ݤautovat_(A_$,A_%):� A,H%,Z%,B$:H%=t_%:�Z%=1��(A_$):�A_$,Z%,1)>"@"�B$=�A_$,Z%,1):Z%=�(A_$)
�f�:$t_%=B$:�m1_%
�k'vatc_$=$t_%:�A_%=0�A_$=""�B$=""�=""
�pGA=A_%-A_%/(1+(Va_%(�(B$)�32+1)/10000)):Z%=�calpc2_(A):=�tc_(Z%,"0")
�u
�z,ݤtot_vat_(A_$,A_%):� A:�A_%=0�A_$=""�=0
�8A=A_%-A_%/(1+(Va_%(�(A_$)�32+1)/10000)):=�calpc2_(A)
��$ݤadd_vat(A_%):� A,Z%:�A_%=0�=""
��:A=A_%*(1+(Va_%(2)/10000)):Z%=�calpc2_(A):=�tc_(Z%,"0")
��
��Hݤhn_(A_$,B_$):A_$=�caps_(A_$):B_$=�caps_(B_$):ȕ�(B_$)<2:B_$+="A":�
��'� Z%:Z%=�A_$,":"):�Z%=0�=�whn_(B_$)
��=�whn_(�A_$,Z%+1))
��ݤwhn_(a_$):� a_%,b_%
���(a_$)=1:a_$+="A"
��$Z%=(�(a_$)-65)*8+(�(�a_$,2))-65)
���Z%>-1�Z%<96:=Z% �=0
��
����getITdatvat_
���getITdat_(0)
��@� Z%,A%,B%,C%,D%,E%,F%,G%,H%,A_%,Z_%,G,N_%,N,O_%,P_%,A,a_%,B
��YN=0:Ivat_()=0:Ivat_%()=0:Itot_%()=0:Ivat_$()="":vt_%()=0:vt1_%()=0:vt1_()=0:vt_$()=""
��]�Z%=1�maxI_%*itip_%*itif_%-1�itif_%:ITt_$(F%)="":N_%=0:N=0:A_%=�hn_(ITs_$(Z%+5),IThead_$)
���ITs_$(Z%+2)<>""�
��0�Va_%(�(ITs_$(Z%+5))�32+1)=0�A=0 �A=ITr_(F%)
��B=�qc_(ITs_$(Z%+2),1)
���A=0�D%=�calpc2_(�sum_(B,�convsi_(ITs_$(Z%+3)))) �D%=�calpc2_(�sum_(B,ITr_(F%))):D%=D%-(D%-D%/((10000+Va_%(�(ITs_$(Z%+5))�32+1))/100)*100)
���(ITs_$(Z%+4))<>0�
��K�ITd_%(F%)=67�D%=D%*(�(ITs_$(Z%+4))/100) �D%=D%-D%*(�(ITs_$(Z%+4))/100)
���
��CITt_$(F%)=�tc_(D%,""):A%=A%+D%:G%=D%-D%*�($!ITesd_%)/100:N_%=D%
���prefn_%=1�
��A<>0��(ITs_$(Z%+4))=0�
���ITf_%(F%)=1�$!ITesd_%=""�N=�sum_(ITr_(F%),B)-D%:G=G+N:C%=C%+D% �H%=�calpc2_(D%*(Va_%(�(ITs_$(Z%+5))�32+1)/10000)):C%=C%+G%:G=G+H%:N=H%
� �
��A=0��(ITs_$(Z%+4))<>0�
�}�ITf_%(F%)=1�N=D%*(Va_%(�(ITs_$(Z%+5))�32+1)/10000):G=G+N:C%=C%+D% �N=D%*(Va_%(�(ITs_$(Z%+5))�32+1)/10000):G=G+N:C%=C%+G%
��
� �
�$�prefn_%=-1�
�)�A<>0��(ITs_$(Z%+4))=0�
�.��ITf_%(F%)=1�$!ITesd_%=""�N=�sum_(ITr_(F%),B)-D%:G=G+N:C%=C%+D% �H%=�calpc2_(G%*(Va_%(�(ITs_$(Z%+5))�32+1)/10000)):C%=C%+G%:G=G+H%:N=H%
�3�
�8�A=0��(ITs_$(Z%+4))<>0�
�=}�ITf_%(F%)=1�N=D%*(Va_%(�(ITs_$(Z%+5))�32+1)/10000):G=G+N:C%=C%+D% �N=G%*(Va_%(�(ITs_$(Z%+5))�32+1)/10000):G=G+N:C%=C%+G%
�B�
�G�
�L�
�Q F%+=1
�VG�ITs_$(Z%+5)>="A"�ITs_$(Z%+5)<"F"�ITs_$(Z%+5)>="a"�ITs_$(Z%+5)<"f"�
�[O_%=�(ITs_$(Z%+5))�32
�`�Ivat_$(O_%)=�caps_(ITs_$(Z%+5)):vt_$(A_%)=Ivat_$(O_%):�Z_%=0:�(ITs_$(Z%+5))>1:IThead_$=�(A_%/8+65)+�(A_%�8+65):$!IThead1_%=IThead_$:Z_%=1
�eIvat_(O_%)=Ivat_(O_%)+N
�j Itot_%(O_%)=Itot_%(O_%)+N_%
�o�
�t&Ivat_(6)=0:Itot_%(6)=Itot_%(6)+N_%
�y�
�~'�N_%<>0�vt_%(A_%)+=N_%:vt1_(A_%)+=N
���
��F�O_%=1�5:Ivat_%(O_%)=�calpc2_(Ivat_(O_%)):vt1_%(96)+=Ivat_%(O_%):�
��W�A_%=0�95:vt1_%(A_%)=�calpc2_(vt1_(A_%)):P_%+=vt1_%(A_%):�:P_%=P_%-vt1_%(96):D%=P_%
�� ȕP_%<>0
��
�A_%=0�95
����P_%>0:�vt1_%(A_%)>0:�vt1_%(A_%)<vt_%(A_%):vt1_%(A_%)-=1:P_%-=1 ��P_%<0:�vt1_%(A_%)>0:�vt1_%(A_%)<vt_%(A_%):vt1_%(A_%)+=1:P_%+=1 ��P_%<0:�vt1_%(A_%)<0:�vt1_%(A_%)>vt_%(A_%):vt1_%(A_%)-=1:P_%+=1
���P_%=0:A_%=95
���
��)�D%<>P_%:D%=P_% ��D%=P_%�P_%<>0�P_%=0
���
����D%<>0:�pe_("There is a "+VAT_$+" rounding error of "+�(D%/100)+" between the invoice and the sales ledger entries due to splitting the invoice across more than one heading - please manually adjust the entries")
��^ITsss_$(8)=�tc_(A%,"0"):B%=�calpc2_(G):ITsss_$(9)=�tc_(B%,"0"):ITsss_$(10)=�tc_(A%+B%,"0")
��S�$!ITesd_%<>""�C%=�add_(C%,�calpc2_(G)):ITsss_$(11)=�tc_(C%,"") �ITsss_$(11)=""
���
��
��+��wrap_(Z_%):�$!ITsd_%,ITll_%+1)=" ":�
��m� A_$,A_%,B_%,B%,C%,D%,E%,F%,F_%,G_%,Z%,a_%,b_%,c_%,d_%,k_%,iw_%,i_%:iw_%=0:c_%=5000:d_%=totI_%+3:i_%=Z_%
��1�:ș&6,128,255�,B_%:Z%=�(0):�Z%>31�A_$+=�(Z%)
��3�B_%=0:E%=�(A_$):a_%=�($!ITsd_%)+E%:C%=ITll_%-1
��8B%=itp_%*itif_%+Z_%:B_%=B%:F%=Z_%:�B%=totI_%-3�F_%=1
��4�:�F%<40:ITs_$(B_%+itif_%)=�gId(invw%,F%+itif_%)
��(B_%+=itif_%:F%+=itif_%:�F%>40:B_%=B%
��$�F_%=0:�gH_=0�notrans_%=1:F_%=1
��8�F_%=0:�a_%+255>heap_size%:�eH_=0�notrans_%=1:F_%=1
��Q�F_%=1�ITs_$(B%)=�$!ITsd_%,ITll_%):Z%=�pII(invw%,Z_%,ITs_$(B%)):�setC_(Z_%):�
� v$tblock_%=�$!ITsd_%,cblock_%!20):a_%=�(�$!ITsd_%,cblock_%!20)):$(tblock_%+a_%)=A_$:a_%+=E%:tblock_%?a_%=255:a_%+=1
�M$(tblock_%+a_%)=�$!ITsd_%,cblock_%!20+1):a_%+=�(�$!ITsd_%,cblock_%!20+1))
�
I�:A_$=ITs_$(B_%+itif_%):�A_$=""�A_$=�(0):�d_%=totI_%+3:d_%=B_%+itif_%
�/$(tblock_%+a_%)=A_$:a_%+=�(A_$):B_%+=itif_%
�'�B_%=totI_%-3:tblock_%?a_%=0:B_%=-1
�
� `�:D%=0:B_%+=1:A_%=B_%:A_$="":�tblock_%?A_%=32��b_%=A_%�a_%-1:tblock_%?b_%=tblock_%?(b_%+1):�
�#`�Z%=A_%�A_%+C%:�tblock_%?Z%=255�iw_%=-1:c_%=Z%:�b_%=Z%�a_%-1:tblock_%?b_%=tblock_%?(b_%+1):�
�(U�tblock_%?Z%=0�B_%=Z%:Z%=A_%+C% �A_$+=�(tblock_%?Z%):B_%=Z%:�tblock_%?Z%=32�D%=Z%
�-8�:�D%>0:�tblock_%?(B_%+1)>32�B_%=D%:A_$=�A_$,D%-A_%)
�2+�iw_%=-1:�c_%<=B_%�iw_%=c_%-A_%:G_%=k_%
�7X�iw_%=-1:�c_%>B_%��b_%=a_%�B_%+2�-1:tblock_%?b_%=tblock_%?(b_%-1):�:tblock_%?b_%=255
�<#�A_$<>"":��A_$,1)<>" ":A_$+=" "
�A6ITs_$(B%)=A_$:�Z_%<48:Z%=�pII(invw%,Z_%,ITs_$(B%))
�FPZ_%+=itif_%:B%+=itif_%:k_%+=1:�B%=d_%+itif_%�tblock_%?B_%=0�B%=totI_%+3:�fH_
�K=Z_%=i_%+G_%*itif_%:G_%=G_%-(44-i_%)/itif_%:�Z_%>44:Z_%=44
�P�G_%>0��ITdown_(-G_%)
�U.�itp_%=72:�Z_%=44:�iw_%>ITll_%�iw_%=ITll_%
�Z ș&400D2,invw%,Z_%,,,-1,iw_%
�_�
�d
�i��setITdat_(Z_%)
�n� A%,B%,D%,Z%
�smB%=itp_%*itif_%:�Z%=0�itin_%-1:B%+=1:ITss_$(Z%)=ITs_$(B%):�ITss_$(Z%)=ITs_$(B%+Z_%*itif_%)�ITss_$(Z%)="|"
�x�
�}_�Z%=0�itip_%-1:ITsss_$(Z%)=ITt_$(Z%+itp_%):�ITsss_$(Z%)=ITt_$(Z%+itp_%+Z_%)�ITsss_$(Z%)="|"
��/�geticon_(invw%,Z%+66):�(block_%!24>>21)�2�
��8�ITf_%(Z%+itp_%)=0:�seticon_(invw%,Z%+66,0,flag21_%)
���
��=�ITf_%(Z%+itp_%):�seticon_(invw%,Z%+66,flag21_%,flag21_%)
���
���
��-�gId(invw%,62)=ITsss_$(8)�ITsss_$(8)="|"
��-�gId(invw%,63)=ITsss_$(9)�ITsss_$(9)="|"
��/�gId(invw%,64)=ITsss_$(10)�ITsss_$(10)="|"
��/�gId(invw%,65)=ITsss_$(11)�ITsss_$(11)="|"
��4�pPD(invW%,ITsss_$(),0):�pFD(invW%,ITss_$(),0):�
��
����setSITdat_(Z_%)
��� A%,B%,Z%
��~B%=sitp_%*sitif_%:�Z%=0�sitin_%-1:B%+=1:SITep_$(Z%)=SITe_$(B%):�SITep_$(Z%)=SITe_$(B%+Z_%*sitif_%):�Z_%<>0�SITep_$(Z%)="|"
���
��+�Z%=0�4:SITap_$(Z%+1)=SITa_$(Z%+sitp_%)
��B�SITap_$(Z%+1)=SITa_$(Z%+sitp_%+Z_%):�Z_%<>0�SITap_$(Z%+1)="|"
���
��-�Z%=5�9:SITap_$(Z%+1)=SITh_$(Z%-5+sitp_%)
��D�SITap_$(Z%+1)=SITh_$(Z%-5+sitp_%+Z_%):�Z_%<>0�SITap_$(Z%+1)="|"
���
��0�Z%=10�14:SITap_$(Z%+1)=SITs_$(Z%-10+sitp_%)
��E�SITap_$(Z%+1)=SITs_$(Z%-10+sitp_%+Z_%):�Z_%<>0�SITap_$(Z%+1)="|"
���
�� �pPD(saledW%,SITap_$(),0)
� �pFD(saledW%,SITep_$(),0)
� �Z_%=0�
�A%=1
� �gId(saled%,45)=""�A%=45
� �gId(saled%,34)=""�A%=34
� �gId(saled%,23)=""�A%=23
�" �gId(saled%,12)=""�A%=12
�'�gId(saled%,1)=""�A%=1
�,�setC1_(saled%,A%)
�1�
�6�
�;��setTITdat_(Z_%)
�@� A%,B%,Z%
�E~B%=titp_%*sitif_%:�Z%=0�sitin_%-1:B%+=1:TITep_$(Z%)=TITe_$(B%):�TITep_$(Z%)=TITe_$(B%+Z_%*sitif_%):�Z_%<>0�TITep_$(Z%)="|"
�J�
�O+�Z%=0�4:TITap_$(Z%+1)=TITa_$(Z%+titp_%)
�TB�TITap_$(Z%+1)=TITa_$(Z%+titp_%+Z_%):�Z_%<>0�TITap_$(Z%+1)="|"
�YX�sIcon_(stand%,Z%*2+81,TITe_%(Z%+titp_%)):�sIcon_(stand%,Z%*2+82,-TITe_%(Z%+titp_%))
�^�
�c-�Z%=5�9:TITap_$(Z%+1)=TITh_$(Z%-5+titp_%)
�hD�TITap_$(Z%+1)=TITh_$(Z%-5+titp_%+Z_%):�Z_%<>0�TITap_$(Z%+1)="|"
�m�
�r0�Z%=10�14:TITap_$(Z%+1)=TITs_$(Z%-10+titp_%)
�wE�TITap_$(Z%+1)=TITs_$(Z%-10+titp_%+Z_%):�Z_%<>0�TITap_$(Z%+1)="|"
�|�
�� �pPD(standW%,TITap_$(),0)
�� �pFD(standW%,TITep_$(),0)
�� �Z_%=0�
��A%=1
�� �gId(stand%,45)=""�A%=45
�� �gId(stand%,34)=""�A%=34
�� �gId(stand%,23)=""�A%=23
�� �gId(stand%,12)=""�A%=12
���gId(stand%,1)=""�A%=1
���setC1_(stand%,A%)
���
���
��
����setPITdat_(Z_%)
��� A%,B%,Z%
��~B%=pitp_%*sitif_%:�Z%=0�sitin_%-1:B%+=1:PITep_$(Z%)=PITe_$(B%):�PITep_$(Z%)=PITe_$(B%+Z_%*sitif_%):�Z_%<>0�PITep_$(Z%)="|"
���
��+�Z%=0�4:PITap_$(Z%+1)=PITa_$(Z%+pitp_%)
��B�PITap_$(Z%+1)=PITa_$(Z%+pitp_%+Z_%):�Z_%<>0�PITap_$(Z%+1)="|"
���
��-�Z%=5�9:PITap_$(Z%+1)=PITh_$(Z%-5+pitp_%)
��D�PITap_$(Z%+1)=PITh_$(Z%-5+pitp_%+Z_%):�Z_%<>0�PITap_$(Z%+1)="|"
���
��0�Z%=10�14:PITap_$(Z%+1)=PITs_$(Z%-10+pitp_%)
��E�PITap_$(Z%+1)=PITs_$(Z%-10+pitp_%+Z_%):�Z_%<>0�PITap_$(Z%+1)="|"
���
� �pPD(paledW%,PITap_$(),0)
� �pFD(paledW%,PITep_$(),0)
�
�Z_%=0�
�A%=1
� �gId(paled%,45)=""�A%=45
� �gId(paled%,34)=""�A%=34
�! �gId(paled%,23)=""�A%=23
�& �gId(paled%,12)=""�A%=12
�+�gId(paled%,1)=""�A%=1
�0�setC1_(paled%,A%)
�5�
�:�
�?
�D��setBITdat_(Z_%)
�I� A%,B%,Z%
�N~B%=bitp_%*bitif_%:�Z%=0�bitin_%-1:B%+=1:BITep_$(Z%)=BITe_$(B%):�BITep_$(Z%)=BITe_$(B%+Z_%*bitif_%):�Z_%<>0�BITep_$(Z%)="|"
�S�
�X)�Z%=0�4:BITap_$(Z%)=BITf_$(Z%+bitp_%)
�]>�BITap_$(Z%)=BITf_$(Z%+bitp_%+Z_%):�Z_%<>0�BITap_$(Z%)="|"
�b�
�g+�Z%=5�9:BITap_$(Z%)=BITt_$(Z%-5+bitp_%)
�l@�BITap_$(Z%)=BITt_$(Z%-5+bitp_%+Z_%):�Z_%<>0�BITap_$(Z%)="|"
�q�
�v �pPD(bankW%,BITap_$(),0)
�{ �pFD(bankW%,BITep_$(),0)
�� �Z_%=0�
��A%=1
�� �gId(bankl%,33)=""�A%=33
�� �gId(bankl%,25)=""�A%=25
�� �gId(bankl%,17)=""�A%=17
���gId(bankl%,9)=""�A%=9
���gId(bankl%,1)=""�A%=1
���setC1_(bankl%,A%)
���
���
��
����initITdat_
��� A%,B%,D%,Z%
��cB%=itp_%*itif_%:�Z%=0�itin_%-1:B%+=1:�ITss_$(Z%)=ITs_$(B%)�ITss_$(Z%)="|" �ITss_$(Z%)=ITs_$(B%)
���
��\�Z%=0�itip_%-1:�ITsss_$(Z%)=ITt_$(Z%+itp_%)�ITsss_$(Z%)="|" �ITsss_$(Z%)=ITt_$(Z%+itp_%)
��/�geticon_(invw%,Z%+66):�(block_%!24>>21)�2�
��8�ITf_%(Z%+itp_%)=0:�seticon_(invw%,Z%+66,0,flag21_%)
���
��=�ITf_%(Z%+itp_%):�seticon_(invw%,Z%+66,flag21_%,flag21_%)
���
���
��-�gId(invw%,62)=ITsss_$(8)�ITsss_$(8)="|"
��-�gId(invw%,63)=ITsss_$(9)�ITsss_$(9)="|"
��/�gId(invw%,64)=ITsss_$(10)�ITsss_$(10)="|"
��/�gId(invw%,65)=ITsss_$(11)�ITsss_$(11)="|"
�4�pPD(invW%,ITsss_$(),0):�pFD(invW%,ITss_$(),0):�
�
� GݤupdateInvW_:� Z%:$!ITda1_%=�chdate_($!ITda1_%):�rI(invW%,"ITda1")
���supply1_%<>0:CSuSuppRe_$(supply1_%)=$!ITord_%:�CSuW%>0:�CS_%=supply1_%:$!CSuSuppRef_%=CSuSuppRe_$(supply1_%):�rI(CSuW%,"CSuSuppRef")
��ITda_$=�chdate_($!ITda_%):$!ITda_%=ITda_$:�rI(invW%,"ITda"):ITacc_$=$!ITacc1_%:IThead_$=$!IThead1_%:ITcomm_$=$!ITcomm1_%:�getITdat_(0):�getITdattot_:ITll_%=�($!ITl_%):=�
�ݤITl_:=�updateInvW_
� @ݤITda1_:$!ITda1_%=�chdate_($!ITda1_%):�rI(invW%,"ITda1"):=�
�%
�*=ݤupdatesaled_:�Isal_%=0��setSITdat_(0):Isal_%=1:ș&406C1
�/�getSITdat_:=�
�4=ݤupdatestand_:�ISal_%=0��setTITdat_(0):ISal_%=1:ș&406C1
�9�getTITdat_:=�
�>=ݤupdatepaled_:�Ipal_%=0��setPITdat_(0):Ipal_%=1:ș&406C1
�C�getPITdat_:=�
�H=ݤupdatebankl_:�Ibal_%=0��setBITdat_(0):Ibal_%=1:ș&406C1
�M�getBITdat_:=�
�RQݤsp_(a_%,b_%):ș&400D3,,block_%:�block_%!0=a_%:�block_%!4>0�=block_%!4 �=b_%
�Wݤsavecust_(H%,A$)
�\.� A%,B%,C%,D%,E%,F%,G%,I%,Z%,A_$,SS_$,NN_$
�a� �
�f)� � �:� �:ș&406C1:�pe1_(�err_,F%):=�
�k!�getinvflags_:Z%=�updateInvW_
�p(F%=�(inv_$):�F%<>0:�#F%=0��#F%:F%=0
�u0�F%=0�F%=�(inv_$):�savenewcust_(F%,H%,A$):=�
�z ș&406C0
��
��.B%=�#F%:�#F%,NN_$,G%,A_$,A%,I%,A_$,A_$,A_$
���Z%=0�6:�#F%,A%:�
�� �Z%=1�I%*itif_%:�#F%,A_$:�
��2�Z%=0�I%:�#F%,A_$,A%,A%,A%,A%,A_$,A%:�:C%=�#F%
��(�G%=ITsupnum_%�NN_$=ITnu_$��#F%=�#F%
��%�G%<>ITsupnum_%�NN_$<>ITnu_$�E%=0
���#F%<�#F%�E%=1
��-�G%=ITsupnum_%�NN_$=ITnu_$��#F%=�#F%�E%=2
���E%=0�H%=0�
��I%=�ITnoitems_
���#F%,A$,ITsupnum_%,ITda_$,ITes_%,I%,ITacc_$,IThead_$,ITcomm_$:�Z%=0�6:�#F%,olddata_%(Z%):�:�Z%=1�I%*itif_%:�#F%,ITs_$(Z%):�
��Y�Z%=0�I%:�#F%,ITt_$(Z%),ITr_(Z%),ITf_%(Z%),ITn_%(Z%),ITo_%(Z%),ITos_$(Z%),ITd_%(Z%):�
���
��
�E%=1�
��
�#F%=�#F%
��I%=�ITnoitems_
�ԅ�H%=0��#F%,A$,ITsupnum_%,ITda_$,ITes_%,I%,ITacc_$,IThead_$,ITcomm_$:�Z%=0�6:�#F%,olddata_%(Z%):�:�Z%=1�I%*itif_%:�#F%,ITs_$(Z%):�
��_�H%=0��Z%=0�I%:�#F%,ITt_$(Z%),ITr_(Z%),ITf_%(Z%),ITn_%(Z%),ITo_%(Z%),ITos_$(Z%),ITd_%(Z%):�
�� D%=�#F%
��
�:�#F%=C%
���#F%<�#F%�
��VITs_$()="":ITt_$()="":ITr_()=0:ITf_%()=0:ITn_%()=0:ITo_%()=0:ITos_$()="":ITd_%()=0
��E�#F%,ITnu_$,ITsupnum_%,ITda_$,ITes_%,I%,ITacc_$,IThead_$,ITcomm_$
���Z%=0�6:�#F%,olddata_%(Z%):�:�Z%=1�I%*itif_%:�#F%,ITs_$(Z%):�:�Z%=0�I%:�#F%,ITt_$(Z%),ITr_(Z%),ITf_%(Z%),ITn_%(Z%),ITo_%(Z%),ITos_$(Z%),ITd_%(Z%):�
���
�� C%=�#F%
�� �#F%=B%
����#F%,ITnu_$,ITsupnum_%,ITda_$,ITes_%,I%,ITacc_$,IThead_$,ITcomm_$:�Z%=0�6:�#F%,olddata_%(Z%):�:�Z%=1�I%*itif_%:�#F%,ITs_$(Z%):�
�Y�Z%=0�I%:�#F%,ITt_$(Z%),ITr_(Z%),ITf_%(Z%),ITn_%(Z%),ITo_%(Z%),ITos_$(Z%),ITd_%(Z%):�
� B%=�#F%
� 6�G%=ITsupnum_%�NN_$=ITnu_$��#F%>=�#F%�C%=�#F%�H%=1
� �#F%=B%
��
�
�E%=2�
� �#F%=B%
�$I%=�ITnoitems_
�)��H%=0��#F%,A$,ITsupnum_%,ITda_$,ITes_%,I%,ITacc_$,IThead_$,ITcomm_$:�Z%=0�6:�#F%,olddata_%(Z%):�:�Z%=1�I%*itif_%:�#F%,ITs_$(Z%):�
�._�H%=0��Z%=0�I%:�#F%,ITt_$(Z%),ITr_(Z%),ITf_%(Z%),ITn_%(Z%),ITo_%(Z%),ITos_$(Z%),ITd_%(Z%):�
�3
�#F%=�#F%
�8�
�=
�#F%:F%=0
�B �("SETTYPE "+inv_$+" C87")
�G ș&406C1
�L=�
�Q��updateinvl_
�V-� A%,C%,F%,G%,Z%,A_$,SS_$,NN_$,I%,Z_%,A_%
�[� �
�`1� � �:� �:ș&406C1:�pe1_(�err_,F%):ș&406C0:�
�e/invL_$()="":invL_$(0)="Current":maxinvl_%=0
�jF%=�(inv_$):�F%=0��
�o�#F%=0��#F%:F%=0:�
�t|�:�#F%,NN_$,G%,A_$,A%,I%,A_$,A_$,A_$:�Z%=0�6:�#F%,A%:�:�Z%=1�I%*itif_%:�#F%,A_$:�:�Z%=0�I%:�#F%,A_$,A%,A%,A%,A%,A_$,A%:�
�y�G%=ITsupnum_%�
�~�NN_$<>"Current"�
���maxinvl_%<100�
��0A_%=0:�Z%=1�maxinvl_%:�NN_$=invL_$(Z%):A_%=1
��0�:�A_%=0:maxinvl_%+=1:invL_$(maxinvl_%)=NN_$
���
���
���
��&��#F%=�#F%:�#F%:F%=0:�maxinvl_%>1�
��M�Z%=1�maxinvl_%-1:�invL_$(Z%)>invL_$(Z%+1):ȔinvL_$(Z%),invL_$(Z%+1):Z%=0
���
���
���
��ݤloadcust_
��(� A%,B%,C%,F%,G%,Z%,A_$,SS_$,NN_$,I%
��� �
��)� � �:� �:ș&406C1:�pe1_(�err_,F%):=�
��F%=�(inv_$):�F%=0�=�
���#F%=0��#F%:F%=0:=�
�� ș&406C0
�݄�:B%=�#F%:�#F%,NN_$,G%,A_$,A%,I%,A_$,A_$,A_$:�Z%=0�6:�#F%,A%:�:�Z%=1�I%*itif_%:�#F%,A_$:�:�Z%=0�I%:�#F%,A_$,A%,A%,A%,A%,A_$,A%:�
��,�G%=ITsupnumN_%�NN_$=$!ITnum_%��#F%=�#F%
��#�G%=ITsupnumN_%�NN_$=$!ITnum_%�
��ITs_$()="":ITt_$()="":ITr_()=0:ITf_%()=0:ITn_%()=0:ITo_%()=0:ITos_$()="":ITd_%()=0:�#F%=B%:�#F%,ITnu_$,ITsupnum_%,ITda_$,ITes_%,I%,ITacc_$,IThead_$,ITcomm_$
���Z%=0�6:�#F%,olddata_%(Z%):�:�Z%=1�I%*itif_%:�#F%,ITs_$(Z%):�:�Z%=0�I%:�#F%,ITt_$(Z%),ITr_(Z%),ITf_%(Z%),ITn_%(Z%),ITo_%(Z%),ITos_$(Z%),ITd_%(Z%):�:C%=�
��a�ITnu_$="Current"�$!ITcop_%=ITcop_$:�rI(invW%,"ITcop"):$!ITesd_%=�(ITes_%):�rI(invW%,"ITesd")
����ITnu_$="Current"�$!ITacc1_%=ITacc_$:�rI(invW%,"ITacc1"):$!IThead1_%=IThead_$:�rI(invW%,"IThead1"):$!ITcomm1_%=ITcomm_$:�rI(invW%,"ITcomm1")
� 7�ITnu_$<>"Current"�$!ITcop_%="1":�rI(invW%,"ITcop")
��
�
ITsupnum_%=ITsupnumN_%
��C%=�:$!ITcop_%=ITcop_$:�rI(invW%,"ITcop"):$!ITesd_%=�(ITes_%):�rI(invW%,"ITesd"):$!ITacc1_%=ITacc_$:�rI(invW%,"ITacc1"):$!IThead1_%=IThead_$:�rI(invW%,"IThead1"):$!ITcomm1_%=ITcomm_$:�rI(invW%,"ITcomm1")
��
�
�#F%:F%=0
� ș&406C1
�#=C%
�(
�- ��savenewcust_(F%,H%,A$)
�2�H%=1��#F%:F%=0:�
�7� Z%
�<� �
�A � � �:� �:�pe1_(�err_,F%):�
�FI%=�ITnoitems_
�K�#F%,A$,ITsupnum_%,ITda_$,ITes_%,I%,ITacc_$,IThead_$,ITcomm_$:�Z%=0�6:�#F%,olddata_%(Z%):�:�Z%=1�I%*itif_%:�#F%,ITs_$(Z%):�
�PY�Z%=0�I%:�#F%,ITt_$(Z%),ITr_(Z%),ITf_%(Z%),ITn_%(Z%),ITo_%(Z%),ITos_$(Z%),ITd_%(Z%):�
�U*�#F%:F%=0:�("SETTYPE "+inv_$+" C87"):�
�Zݤgetcust_(A%)
�_ � Z%,A$
�d.Z%=�:Z%=�ITacc1_:Z%=�IThead1_:Z%=�ITcomm1_
�i�ITSuFirst_=� �=�
�nS�ITsupnum_%=0�ITsupnum_%=ITsupnumN_%:ITnu_$=$!ITnum_% �Z%=�savecust_(A%,ITnu_$)
�s�R%=3�ITsupnum_%=0�=�
�x�initInvW1_:ITda_$=""
�}Z%=�loadcust_
��L�Z%=� �ITnu_$="Current":$!ITnum_%=ITnu_$:Z%=�loadcust_ �$!ITnum_%=ITnu_$
���$!ITsupplier_%=�getcustname_(ITsupnum_%):supply1_%=�getcustnum_(ITsupnum_%):$!ITrecd_%=�(supply1_%):$!ITord_%=CSuSuppRe_$(supply1_%)
��~$!ITacc1_%=ITacc_$:�rI(invW%,"ITacc1"):$!IThead1_%=IThead_$:�rI(invW%,"IThead1"):$!ITcomm1_%=ITcomm_$:�rI(invW%,"ITcomm1")
��ZITsupnumN_%=ITsupnum_%:$!ITda_%=ITda_$:$!ITesd_%=�(ITes_%):�$!ITesd_%="0"�$!ITesd_%=""
��z�rI(invW%,"ITsupplier"):�rI(invW%,"ITrecd"):�rI(invW%,"ITnum"):�rI(invW%,"ITda"):�rI(invW%,"ITesd"):�rI(invW%,"ITord")
��@�getITdattot_:�initITdat_:�setinvflags_:�setC1_(invw%,iti_%)
��=Z%
��
����ITdown_(Z%)
��e�(itp_%+-Z%)*itif_%+itip_%*itif_%>maxI_%*itip_%*itif_%�Z%=-(maxI_%*itip_%-(itp_%+itip_%)):�Z%=0��
��p�(itp_%+-Z%)*itif_%+itip_%*itif_%<=maxI_%*itip_%*itif_%��getITdat_(0):�getITdattot_:itp_%-=Z%:�setITdat_(Z%)
���
��
����SITdown_(Z%)
��n�(sitp_%+-Z%)*sitif_%+sitip_%*sitif_%>maxS_%*sitip_%*sitif_%�Z%=-(maxS_%*sitip_%-(sitp_%+sitip_%)):�Z%=0��
���sitp_%+-Z%<0�Z%=sitp_%
��+�sitp_%+-Z%>maxS_%*sitip_%-sitip_%�Z%=0
��h�(sitp_%+-Z%)*sitif_%+sitip_%*sitif_%<=maxS_%*sitip_%*sitif_%��getSITdat_:sitp_%-=Z%:�setSITdat_(Z%)
���
��
����TITdown_(Z%)
��n�(titp_%+-Z%)*sitif_%+sitip_%*sitif_%>maxT_%*sitip_%*sitif_%�Z%=-(maxT_%*sitip_%-(titp_%+sitip_%)):�Z%=0��
���titp_%+-Z%<0�Z%=titp_%
��+�titp_%+-Z%>maxT_%*sitip_%-sitip_%�Z%=0
��h�(titp_%+-Z%)*sitif_%+sitip_%*sitif_%<=maxT_%*sitip_%*sitif_%��getTITdat_:titp_%-=Z%:�setTITdat_(Z%)
���
�
� ��PITdown_(Z%)
�n�(pitp_%+-Z%)*sitif_%+sitip_%*sitif_%>maxP_%*sitip_%*sitif_%�Z%=-(maxP_%*sitip_%-(pitp_%+sitip_%)):�Z%=0��
��pitp_%+-Z%<0�Z%=pitp_%
�+�pitp_%+-Z%>maxP_%*sitip_%-sitip_%�Z%=0
� h�(pitp_%+-Z%)*sitif_%+sitip_%*sitif_%<=maxP_%*sitip_%*sitif_%��getPITdat_:pitp_%-=Z%:�setPITdat_(Z%)
�"�
�'
�,��BITdown_(Z%)
�1n�(bitp_%+-Z%)*bitif_%+sitip_%*bitif_%>maxB_%*sitip_%*bitif_%�Z%=-(maxB_%*sitip_%-(bitp_%+sitip_%)):�Z%=0��
�6�bitp_%+-Z%<0�Z%=bitp_%
�;+�bitp_%+-Z%>maxB_%*bitip_%-bitip_%�Z%=0
�@h�(bitp_%+-Z%)*bitif_%+sitip_%*bitif_%<=maxB_%*sitip_%*bitif_%��getBITdat_:bitp_%-=Z%:�setBITdat_(Z%)
�E�
�J
�O��ITup_(Z%):�itp_%=0��
�T�itp_%-Z%<0�Z%=itp_%
�YE�itp_%-Z%>=0��getITdat_(0):�getITdattot_:itp_%-=Z%:�setITdat_(Z%)
�^�
�c
�h ��SITup_(Z%):�sitp_%=0��
�m�sitp_%-Z%<0�Z%=sitp_%
�r8�sitp_%-Z%>=0��getSITdat_:sitp_%-=Z%:�setSITdat_(Z%)
�w�
�| ��TITup_(Z%):�titp_%=0��
���titp_%-Z%<0�Z%=titp_%
��8�titp_%-Z%>=0��getTITdat_:titp_%-=Z%:�setTITdat_(Z%)
���
�� ��PITup_(Z%):�pitp_%=0��
���pitp_%-Z%<0�Z%=pitp_%
��8�pitp_%-Z%>=0��getPITdat_:pitp_%-=Z%:�setPITdat_(Z%)
���
�� ��BITup_(Z%):�bitp_%=0��
���bitp_%-Z%<0�Z%=bitp_%
��8�bitp_%-Z%>=0��getBITdat_:bitp_%-=Z%:�setBITdat_(Z%)
���
��
����ITpage_(V_%)
��� Z%
���!i%<1�!i%>itin_%��
��OZ%=!i%:�V_%<0��ITdown_(V_%):�V_%<-1:�itp_%=maxI_%*itip_%-itip_%�Z%=itin_%-5
��+�V_%>0��ITup_(V_%):�V_%>1:�itp_%=0�Z%=1
���setC1_(invw%,Z%)
���
��
����SITpage_(V_%)
��� Z%
���!i%<1�!i%>sitin_%��
��pZ%=!i%:�V_%<0��SITdown_(V_%):�V_%<-1:�sitp_%=maxS_%*sitip_%-sitip_%�Z%=sitin_%-(sitif_%-((!i%-1)�sitif_%+1))
��=�V_%>0��SITup_(V_%):�V_%>1:�sitp_%=0�Z%=(!i%-1)�sitif_%+1
���setC1_(saled%,Z%)
��
�
�
��TITpage_(V_%)
�� Z%
��!i%<1�!i%>sitin_%��
� pZ%=!i%:�V_%<0��TITdown_(V_%):�V_%<-1:�titp_%=maxT_%*sitip_%-sitip_%�Z%=sitin_%-(sitif_%-((!i%-1)�sitif_%+1))
�!=�V_%>0��TITup_(V_%):�V_%>1:�titp_%=0�Z%=(!i%-1)�sitif_%+1
�&�setC1_(stand%,Z%)
�+�
�0
�5��PITpage_(V_%)
�:� Z%
�?�!i%<1�!i%>sitin_%��
�DpZ%=!i%:�V_%<0��PITdown_(V_%):�V_%<-1:�pitp_%=maxP_%*sitip_%-sitip_%�Z%=sitin_%-(sitif_%-((!i%-1)�sitif_%+1))
�I=�V_%>0��PITup_(V_%):�V_%>1:�pitp_%=0�Z%=(!i%-1)�sitif_%+1
�N�setC1_(paled%,Z%)
�S�
�X
�]��BITpage_(V_%)
�b� Z%
�g�!i%<1�!i%>bitin_%��
�lpZ%=!i%:�V_%<0��BITdown_(V_%):�V_%<-1:�bitp_%=maxB_%*bitip_%-bitip_%�Z%=bitin_%-(bitif_%-((!i%-1)�bitif_%+1))
�q=�V_%>0��BITup_(V_%):�V_%>1:�bitp_%=0�Z%=(!i%-1)�bitif_%+1
�v�setC1_(bankl%,Z%)
�{�
��
�� ݤITsn_
��� A%,B%,B$,A$,Z%,A
��� �
��A� � �:� �:�pe_("Can't calculate quantity?"+" ("+�err_+")"):=�
��ITsupch_%=0
��Ȏ !i%�itif_% �
��S� 1:ITn_%(!i%/itif_%+itp_%)=0:ITos_$(!i%/itif_%+itp_%)="":Z%=�pII(invw%,!i%,"")
�j� 3:A$=�gId(invw%,!i%):�A$,":")=0:�A$<>"":A=�(A$)*100:A$=�convis_(A,""):��A$,3)=".00"�A$=�A$,�(A$)-3)
�(�A$="":�gId(invw%,!i%-2)<>"":A$="1"
� !�A$<>"":Z%=�pII(invw%,!i%,A$)
��� 4:A$=�gId(invw%,!i%):A=�convsi_(A$):Z%=�pII(invw%,!i%,�convis_(A,"")):�$!ITpri_%="Ret.Inc"�ITr_(!i%/itif_%+itp_%)=A �ITr_(!i%/itif_%+itp_%)=0
�:�gId(invw%,!i%-1)="":�A$<>"":Z%=�pII(invw%,!i%-1,"1")
�e�gId(invw%,!i%+1)="":�CSuDisc_$(supply1_%)<>"":�A$<>""�Z%=�pII(invw%,!i%+1,CSuDisc_$(supply1_%))
� -� 5:ITd_%(!i%/itif_%+itp_%)=�($!ITDisc_%)
�%n� 0:�!i%>itif_%:�gId(invw%,!i%)="":�gId(invw%,!i%-2)<>"":A$=�gId(invw%,!i%-itif_%):Z%=�pII(invw%,!i%,A$)
�*�
�/(B%=!i%-1:�getITdat_(0):�getITdattot_
�4<�gId(invw%,62)<>ITsss_$(8)�Z%=�pII(invw%,62,ITsss_$(8))
�9<�gId(invw%,63)<>ITsss_$(9)�Z%=�pII(invw%,63,ITsss_$(9))
�>>�gId(invw%,64)<>ITsss_$(10)�Z%=�pII(invw%,64,ITsss_$(10))
�C>�gId(invw%,65)<>ITsss_$(11)�Z%=�pII(invw%,65,ITsss_$(11))
�Hf�gId(invw%,B%/itif_%+54)<>ITt_$(B%/itif_%+itp_%)�=�pII(invw%,B%/itif_%+54,ITt_$(B%/itif_%+itp_%))
�M=�
�R
�Wp��sw_(A_%):� Z%,Z_%:�Z%=1�16:�A_%=low_%(Z%):low_%(Z%)=0:Z_%=Z%:Z%=16:�:�Z%=Z_%�15:low_%(Z%)=low_%(Z%+1):� ��
�\low_%(16)=0:�
�aG��ow_:� Z%,Z_%:�:Z_%=-1:�Z%=16�1�-1:�low_%(Z%)>0�Z_%=low_%(Z%):Z%=1
�fC�:�Z_%>0:�wS(Z_%!12):�oW(Z_%):�gC(Z_%) ��Z_%>0:�sw_(Z_%):Z_%=0
�k.�Z_%<>0:�Z_%=-1:�$wn%<>"EditIt":Z%=�mainW_
�p�
�u
�zZݤldelete_(Z_%):�Q%!24=27:�W%>0:�W%!12>0:�low_%(2)>0�$wn%<>"EditIt":�eK:�closeW(W%):=�
��Z_%=1:=�window("Calc")
���Z_%=19:sa_%=1:=�swc_
���Z_%=461:=�Insert_
���Z_%=30:=�Start1_
���Z_%=414:=�Left11_
���Z_%=415:=�Right11_
�� �Z_%=443:sa_%=1:=�allcopy_
���Z_%=411:sa_%=1:=�copy_
���Z_%=384:=�printkey_
���Z_%=8:=�credit_
���Z_%=17�=�mainW_
��'�Z_%=9:�$wn%="InvW"�sa_%=1:=�ITne1_
��#�Z_%=9:�$wn%="CustomW"�=�invoc_
��Z�Z_%=5:�$wn%="Saled"�$wn%="SaledFW"�$wn%="SaledRW"�$wn%="Headings"�saled%>0�=�SaledRW_
��c�Z_%=6:�$wn%="Saled"�$wn%="SaledFW"�$wn%="SaledRW"�saled%>0�$wn%="Headings"�saled%>0�=�SaledFW_
��[�Z_%=5:�$wn%="Paled"�$wn%="PaledFW"�$wn%="PaledRW"�$wn%="PHeadings"�paled%>0�=�PaledRW_
��d�Z_%=6:�$wn%="Paled"�$wn%="PaledFW"�$wn%="PaledRW"�paled%>0�$wn%="PHeadings"�paled%>0�=�PaledFW_
��T�Z_%=5:�$wn%="BankL"�$wn%="BankFW"�$wn%="BankRW"�$wn%="Banks"�bankl%>0�=�BankRW_
��]�Z_%=6:�$wn%="BankL"�$wn%="BankFW"�$wn%="BankRW"�bankl%>0�$wn%="Banks"�bankl%>0�=�BankFW_
���Z_%=9�Z_%=5:=�
��4�Z_%<>4�Z_%<>11�Z_%<>3�Z_%<>18�Z_%<>6�Z_%<>22�=�
��h� A_%,B_%,Z%,a_%,A_$:Z%=(!i%-1)/sitif_%:Z%=Z%*sitif_%:�$wn%="BankL"�Z%=(!i%-1)/bitif_%:Z%=Z%*bitif_%
��_�Z_%=4�Z_%=3:�$wn%="Saled"�$wn%="Paled"�$wn%="BankL"�ud_$(0)="10":�$wn%="BankL"�ud_$(0)="7"
��`�Z_%=11:�$wn%="Saled"�$wn%="Paled"�$wn%="BankL"�Z%=0:ud_$(0)="54":�$wn%="BankL"�ud_$(0)="39"
��S�Z_%=18:�$wn%="Saled"�$wn%="Paled"�$wn%="BankL":�ud_$(0)="54"�ud_$(0)="39"�Z%=0
�C�Z_%=18:�$wn%="Saled"�$wn%="Paled":�ud_$(0)="39"�ud_$(0)="7":=�
�7�Z_%=18:�$wn%="BankL":�ud_$(0)="54"�ud_$(0)="10":=�
�
Ȏ $wn% �
�<�"CFindSu":�Z_%=4:$!CSSupplier_%="":�rI(W%,"CSSupplier")
� %�"SaledFW":�Z_%=4:�updatesaled1d_
�$%�"PaledFW":�Z_%=4:�updatepaled1d_
�)#�"BankFW":�Z_%=4:�updatebank1d_
�.�"Saled":�Z_%=4�Z_%=11�
�3��A_%=Z%�Z%+�(ud_$(0)):ud_$(A_%-Z%+1)=SITe_$(A_%+1+sitp_%*sitif_%):B_%=�pII(saled%,A_%+1,""):�A_%�sitif_%=8:a_%+=1:ud_%(a_%)=SITn_%(A_%/sitif_%+1+sitp_%):SITn_%(A_%/sitif_%+1+sitp_%)=0:�SITs_$(A_%/sitif_%+sitp_%)=Q_$:ud_$(A_%-Z%+1)+="R"
�8�:A_%=�updatesaled_
�=�
�B/�Z_%=3�Z%>0�SITe_$(Z%+1+sitp_%*sitif_%)=""�
�G��A_%=Z%�Z%+�(ud_$(0)):ud_$(A_%-Z%+1)=SITe_$(A_%+1+sitp_%*sitif_%):A_$=�gId(saled%,A_%+1-sitif_%):�A_%�sitif_%=8:�SITs_$(A_%/sitif_%+sitp_%-1)=Q_$:A_$+="R"
�L�B_%=�pII(saled%,A_%+1,A_$):�A_%�sitif_%=8:a_%+=1:ud_%(a_%)=SITn_%(A_%/sitif_%+1+sitp_%):SITn_%(A_%/sitif_%+1+sitp_%)=SITn_%(A_%/sitif_%+1+sitp_%-1):�SITs_$(A_%/sitif_%+sitp_%)=Q_$:ud_$(A_%-Z%+1)+="R"
�Q�:A_%=�updatesaled_
�V�
�[ �Z_%=18�
�`~�A_%=Z%�Z%+�(ud_$(0)):�A_%�sitif_%=8:a_%+=1:ud1_%(a_%)=SITn_%(A_%/sitif_%+1+sitp_%):SITn_%(A_%/sitif_%+1+sitp_%)=ud_%(a_%)
�e�ud1_$(A_%-Z%+1)=SITe_$(A_%+1+sitp_%*sitif_%):B_%=�pII(saled%,A_%+1,ud_$(A_%-Z%+1)):�A_%�sitif_%=8:�SITs_$(A_%/sitif_%+sitp_%)=Q_$:ud1_$(A_%-Z%+1)+="R"
�jFud_$(A_%-Z%+1)=ud1_$(A_%-Z%+1):�A_%�sitif_%=8:ud_%(a_%)=ud1_%(a_%)
�o�:A_%=�updatesaled_
�t<�:occred_%=0:�!i%�sitif_%=0�B_%=sitif_% �B_%=!i%�sitif_%
�y��Z_%=22:�sitp_%>0�!i%>11:A_$=SITe_$(Z%+sitp_%*sitif_%+B_%-sitif_%):B_%=�pII(saled%,!i%,A_$):A_%=�updatesaled_:ș&6,138,0,13:�!i%�sitif_%=3:SITn_%(Z%/sitif_%+1+sitp_%)=SITn_%(Z%/sitif_%+sitp_%)
�~�"Paled":�Z_%=4�Z_%=11�
����A_%=Z%�Z%+�(ud_$(0)):ud_$(A_%-Z%+1)=PITe_$(A_%+1+pitp_%*sitif_%):B_%=�pII(paled%,A_%+1,""):�A_%�sitif_%=8:a_%+=1:ud_%(a_%)=PITn_%(A_%/sitif_%+1+pitp_%):PITn_%(A_%/sitif_%+1+pitp_%)=0:�PITs_$(A_%/sitif_%+pitp_%)=Q_$:ud_$(A_%-Z%+1)+="R"
���:A_%=�updatepaled_
���
��/�Z_%=3�Z%>0�PITe_$(Z%+1+pitp_%*sitif_%)=""�
����A_%=Z%�Z%+�(ud_$(0)):ud_$(A_%-Z%+1)=PITe_$(A_%+1+pitp_%*sitif_%):A_$=�gId(paled%,A_%+1-sitif_%):�A_%�sitif_%=8:�PITs_$(A_%/sitif_%+pitp_%-1)=Q_$:A_$+="R"
���B_%=�pII(paled%,A_%+1,A_$):�A_%�sitif_%=8:a_%+=1:ud_%(a_%)=PITn_%(A_%/sitif_%+1+pitp_%):PITn_%(A_%/sitif_%+1+pitp_%)=PITn_%(A_%/sitif_%+1+pitp_%-1):�PITs_$(A_%/sitif_%+pitp_%)=Q_$:ud_$(A_%-Z%+1)+="R"
���:A_%=�updatepaled_
���
�� �Z_%=18�
��~�A_%=Z%�Z%+�(ud_$(0)):�A_%�sitif_%=8:a_%+=1:ud1_%(a_%)=PITn_%(A_%/sitif_%+1+pitp_%):PITn_%(A_%/sitif_%+1+pitp_%)=ud_%(a_%)
���ud1_$(A_%-Z%+1)=PITe_$(A_%+1+pitp_%*sitif_%):B_%=�pII(paled%,A_%+1,ud_$(A_%-Z%+1)):�A_%�sitif_%=8:�PITs_$(A_%/sitif_%+pitp_%)=Q_$:ud1_$(A_%-Z%+1)+="R"
��Fud_$(A_%-Z%+1)=ud1_$(A_%-Z%+1):�A_%�sitif_%=8:ud_%(a_%)=ud1_%(a_%)
���:A_%=�updatepaled_
��<�:oscred_%=0:�!i%�sitif_%=0�B_%=sitif_% �B_%=!i%�sitif_%
����Z_%=22:�pitp_%>0�!i%>11:A_$=PITe_$(Z%+pitp_%*sitif_%+B_%-sitif_%):B_%=�pII(paled%,!i%,A_$):A_%=�updatepaled_:ș&6,138,0,13:�!i%�sitif_%=3:PITn_%(Z%/sitif_%+1+pitp_%)=PITn_%(Z%/sitif_%+pitp_%)
�Ί�"BankL":�Z_%=4�Z_%=11:�A_%=Z%�Z%+�(ud_$(0)):ud_$(A_%-Z%+1)=BITe_$(A_%+1+bitp_%*bitif_%):B_%=�pII(bankl%,A_%+1,""):�:A_%=�updatebankl_
���Z_%=3:�Z%>0:�BITe_$(Z%+1+bitp_%*bitif_%)="":�A_%=Z%�Z%+�(ud_$(0)):ud_$(A_%-Z%+1)=BITe_$(A_%+1+bitp_%*bitif_%):A_$=�gId(bankl%,A_%+1-bitif_%):B_%=�pII(bankl%,A_%+1,A_$):�:A_%=�updatebankl_
�ا�Z_%=18:�A_%=Z%�Z%+�(ud_$(0)):ud1_$(A_%-Z%+1)=BITe_$(A_%+1+bitp_%*bitif_%):B_%=�pII(bankl%,A_%+1,ud_$(A_%-Z%+1)):ud_$(A_%-Z%+1)=ud1_$(A_%-Z%+1):�:A_%=�updatebankl_
��/�!i%�bitif_%=0�B_%=bitif_% �B_%=!i%�bitif_%
���Z_%=22:�bitp_%>0�!i%>bitif_%:A_$=BITe_$(Z%+bitp_%*bitif_%+B_%-bitif_%):B_%=�pII(bankl%,!i%,A_$):A_%=�updatebankl_:ș&6,138,0,13
��[�"CustomW":�Z_%=3:�CSuppliers_$(CS_%)="":�CS_%>1:$!CSufindnum_%=�(CS_%-1):A_%=�allcopy_
���Z_%=6�Z%=�CSuFind_
��
�=�
�
ݤRsn_
� 5� A_%,A%,B%,C%,D%,E%,F%,G%,Z%,A_$,A$,B$,C$,D$,a_%
�#?�W%!12=saled%�E%=saled%:F%=sitp_%:G%=1 �E%=stand%:F%=titp_%
�(9A_%=!i%:A$=�gId(E%,!i%):B$=A$:A%=!i%:C$="":B%=sitif_%
�-Ȏ!i%�sitif_%�
�2� 1:�F%=0�!i%<12�B%=1
�7��G%�B$=�chdate1_(A$,SITe_$(!i%+F%*sitif_%-B%)) �B$=�chdate_(A$):�B$=""�TITn_%(!i%/sitif_%+F%)=0:�a_%=0�10:Z%=�pII(E%,!i%+a_%,""):�:A%+=1
�<E�G%:A%+=2:�SITe_$((!i%+1)+F%*sitif_%)=""�Z%=�pII(E%,!i%+1,�B$,7))
�AA� 2:�G%:B$=¤chdate1_("01."+A$,SITe_$((!i%-1)+F%*sitif_%)),7)
�F$� 3:�G%<>0:B$=�PITSuFirst_(A$,1)
�K:�G%=0:�TITe_%(!i%/sitif_%+F%)=-1�B$=�PITSuFirst_(A$,2)
�P9�G%=0:�TITe_%(!i%/sitif_%+F%)=1�B$=�PITSuFirst_(A$,4)
�U7� 4:�G%:�A$="":�!i%>11�A$=SITe_$(!i%+F%*sitif_%-B%)
�Z �A$<>""�B$=�caps_(A$):A$=""
�_� 5:�G%=1�A$=""�
�d8D$=�caps_(�gId(E%,!i%-1)):�!i%+F%*sitif_%>11�D$<>""�
�i)ș&406C0:�a_%=!i%+F%*sitif_%-B%�5�-B%
�nW�caps_(SITe_$(a_%-1))=D$:�gn_(SITe_$(a_%))>0:B$=�updatenum_(SITe_$(a_%),50):a_%=5
�s�:ș&406C1
�x�
�}�
��� 6:B%=�ni_(A$)
��4��A$)="�":B$=�add_vat(B%):A$="0" �B$=�tc_(B%,"")
��"A_$=�autovat_(A$,B%):�A_$<>""�
��2Z%=�pII(E%,!i%+1,vatc_$):A%+=3:�A_$="0"�A_$=""
��Z%=�pII(E%,!i%+2,A_$)
���G%=0�A%+=1
���
�� �G%=0:Z%=�pII(E%,!i%+3,B$)
�� � 7:�A$<>""�B$=�caps_(A$)
��.� 8:B%=�ni_(A$):B$=�tc_(B%,""):�G%=0�A%+=2
��+� 9:B%=�ni_(A$):C%=�ni_(�gId(E%,!i%-3))
��^C$="":�A$,"P")��A$,"p")�C$="P" ��A$,"R")��A$,"r")�C$="R" ��A$,"U")��A$,"u")�C$="U":B%=0
�� �C$="R"�C$="P":�B%=0�B%=C%
��B$=�tc_(B%,"")
��+�G%=0:Z%=�pII(E%,!i%-3,B$):�C$="R"C$=""
��8� 10:�G%:�A$="":�!i%>11�A$=SITe_$(!i%+F%*sitif_%-B%)
���(A$)=1�A$=A$+"A"
�� �A$<>""�B$=�caps_(A$):A$=""
��R� 0:�G%:�A$="":�!i%>11�Z%=�pII(E%,!i%,�updatenum2_(SITe_$(!i%+F%*sitif_%-B%)))
��0�G%:�!i%=sitin_%��SITdown_(-1):A%=sitin_%-10
��2�G%=0:�!i%=sitin_%��TITdown_(-1):A%=sitin_%-10
���
�� �A$<>B$�Z%=�pII(E%,!i%,B$)
��)�C$<>""�Z%=�pII(E%,!i%/sitif_%+76,C$)
��C�A%<>!i%��setC1_(E%,A%) �A%+=1:�A%>sitin_%�A%=sitin_%-sitif_%+1
�� �G%��getSITdat_ ��getTITdat_
�5�seewind_(E%,A%):occred_%=0:�updateccred_(CS_%,1)
� =�
�
� ݤRsn1_
�,� A_%,A%,B%,C%,D%,Z%,A_$,A$,B$,C$,D$,a_%
� =A_%=!i%:A$=�gId(paled%,!i%):B$=A$:A%=!i%:C$="":B%=sitif_%
�"Ȏ!i%�sitif_%�
�' � 1:�pitp_%=0�!i%<12�B%=1
�,2B$=�chdate1_(A$,PITe_$(!i%+pitp_%*sitif_%-B%))
�1C�PITe_$((!i%+1)+pitp_%*sitif_%)=""�Z%=�pII(paled%,!i%+1,�B$,7))
�6 A%+=2
�;A� 2:B$=¤chdate1_("01."+A$,PITe_$((!i%-1)+pitp_%*sitif_%)),7)
�@ � 3:B$=�PITSuFirst_(A$,3)
�E7� 4:�A$="":�!i%>11�A$=PITe_$(!i%+pitp_%*sitif_%-B%)
�J �A$<>""�B$=�caps_(A$):A$=""
�O� 5:�A$=""�
�T@D$=�caps_(�gId(paled%,!i%-1)):�!i%+pitp_%*sitif_%>11�D$<>""�
�Y-ș&406C0:�a_%=!i%+pitp_%*sitif_%-B%�5�-B%
�^W�caps_(PITe_$(a_%-1))=D$:�gn_(PITe_$(a_%))>0:B$=�updatenum_(PITe_$(a_%),50):a_%=5
�c�:ș&406C1
�h�
�m�
�r� 6:B%=�ni_(A$)
�w4��A$)="�":B$=�add_vat(B%):A$="0" �B$=�tc_(B%,"")
�|"A_$=�autovat_(A$,B%):�A_$<>""�
��6Z%=�pII(paled%,!i%+1,vatc_$):A%+=3:�A_$="0"�A_$=""
�� Z%=�pII(paled%,!i%+2,A_$)
���
�� � 7:�A$<>""�B$=�caps_(A$)
��"� 8:B%=�ni_(A$):B$=�tc_(B%,"")
��/� 9:B%=�ni_(A$):C%=�ni_(�gId(paled%,!i%-3))
��^C$="":�A$,"P")��A$,"p")�C$="P" ��A$,"R")��A$,"r")�C$="R" ��A$,"U")��A$,"u")�C$="U":B%=0
�� �C$="R"�C$="P":�B%=0�B%=C%
��B$=�tc_(B%,"")
��8� 10:�A$="":�!i%>11�A$=PITe_$(!i%+pitp_%*sitif_%-B%)
���(A$)=1�A$=A$+"A"
�� �A$<>""�B$=�caps_(A$):A$=""
��V� 0:�A$="":�!i%>11�Z%=�pII(paled%,!i%,�updatenum2_(PITe_$(!i%+pitp_%*sitif_%-B%)))
��,�!i%=sitin_%��PITdown_(-1):A%=sitin_%-10
���
��"�A$<>B$�Z%=�pII(paled%,!i%,B$)
��-�C$<>""�Z%=�pII(paled%,!i%/sitif_%+76,C$)
��G�A%<>!i%��setC1_(paled%,A%) �A%+=1:�A%>sitin_%�A%=sitin_%-sitif_%+1
���getPITdat_
���seewind_(paled%,A%)
��=�
��
�� ݤRsn2_
��(� A_%,A%,B%,C%,D%,Z%,A_$,A$,B$,C$,D$
��7A_%=!i%:A$=�gId(bankl%,!i%):B$=A$:A%=!i%:B%=bitif_%
��Ȏ!i%�bitif_%�
� � 1:�bitp_%=0�!i%<9�B%=1
�2B$=�chdate1_(A$,BITe_$(!i%+bitp_%*bitif_%-B%))
�
F� 2:�A$="":�!i%>8�B$=�updatenum_(BITe_$(!i%+bitp_%*bitif_%-B%),50)
�6� 3:�A$="":�!i%>8�A$=BITe_$(!i%+bitp_%*bitif_%-B%)
� �A$<>""�B$=�caps_(A$):A$=""
� [� 5:B%=�ni_(A$):B$=�tc_(B%,""):�B%<>0:�gId(bankl%,!i%-1)<"{"�Z%=�pII(bankl%,!i%-1,"P")
�!6� 6:�A$="":�!i%>8�A$=BITe_$(!i%+bitp_%*bitif_%-B%)
�& �A$<>""�B$=�caps_(A$):A$=""
�+U� 0:�A$="":�!i%>8�Z%=�pII(bankl%,!i%,�updatenum2_(BITe_$(!i%+bitp_%*bitif_%-B%)))
�0+�!i%=bitin_%��BITdown_(-1):A%=bitin_%-7
�5�
�:"�A$<>B$�Z%=�pII(bankl%,!i%,B$)
�?G�A%<>!i%��setC1_(bankl%,A%) �A%+=1:�A%>bitin_%�A%=bitin_%-bitif_%+1
�D�getBITdat_
�I�seewind_(bankl%,A%)
�N=�
�S�ݤITord_:�$!ITord_%<>"":CSuSuppRe_$(supply1_%)=$!ITord_%:�CSuW%>0:�CS_%=supply1_%:$!CSuSuppRef_%=CSuSuppRe_$(supply1_%):�rI(CSuW%,"CSuSuppRef")
�X=�
�]ZݤITsnd_:� Z%:Z%=((!i%-66)+itp_%):�geticon_(invw%,!i%):�seticon_(invw%,!i%,flag21_%,0)
�b)�ITf_%(Z%)=0�ITf_%(Z%)=1 �ITf_%(Z%)=0
�g=�
�l
�qIݤITDisc_:�$!ITDisc_%="Disc%" �$!ITDisc_%="Comm%" �$!ITDisc_%="Disc%"
�v.�rI(invW%,"ITDisc"):ITDisc_$=$!ITDisc_%:=�
�{ݤITrec_:�invw%<1�=�
��H�$!ITrec_%="Stock Num" �$!ITrec_%="Recrd Num" �$!ITrec_%="Stock Num"
��*�rI(invW%,"ITrec"):ITre_$=$!ITrec_%:=�
���ݤITpri_:�$!ITpri_%="Ret.Exc" �$!ITpri_%="Ret.Inc" ��$!ITpri_%="Ret.Inc" �$!ITpri_%="List" ��$!ITpri_%="List" �$!ITpri_%="Ret.Exc"
��,�rI(invW%,"ITpri"):ITpric_$=$!ITpri_%:=�
��!ݤITcop_:ITcop_$=$!ITcop_%:=�
��MݤITesd_:ITes_%=�($!ITesd_%):�getITdat_(0):�getITdattot_:�setITdat_(0):=�
��0ݤITsupplier_:� Z%:Z%=�sf_($!ITsupplier_%,1)
��]�Z%>0:$!ITsupplier_%=CSuppliers_$(Z%):ITsupnumN_%=CSuNumber_%(Z%):�rI(invW%,"ITsupplier")
��=�ITnet_(0)
��ݤITnum_:=�ITnet_(0)
��kݤnewcust_:� A%,Z%:Z%=�:�getcust_(0)=� �$!ITnum_%=ITnu_$:$!ITsupplier_%=�getcustname_(ITsupnum_%):Z%=�
��G�rI(invW%,"ITnum"):�rI(invW%,"ITsupplier"):�setC1_(invw%,iti_%):=Z%
��ݤITsl_:=�opt_
��3ݤITpd_:�sI(invW%,"ITpd"):�sI(invW%,"ITunp"):=�
��6ݤITunp_:�usI(invW%,"ITunp"):�usI(invW%,"ITpd"):=�
��ݤITunp1_:�invw%<1:=�
��)ci_%=-ci_%:�ci_%=-1�=�ITpd_ �=�ITunp_
��/ݤgetcustname_(A%):� A$,Z%:�Z%=1�Cmaxsupp_%
��9�A%=CSuNumber_%(Z%)�A$=CSuppliers_$(Z%):Z%=Cmaxsupp_%
�� �:=A$
��.ݤgetcustnum_(A%):� B%,Z%:�Z%=1�Cmaxsupp_%
��+�A%=CSuNumber_%(Z%)�B%=Z%:Z%=Cmaxsupp_%
�� �:=B%
��
�� ݤcheckdate_(B$):�B$=""�=�
�� �Jul_(today_$)>�Jul_(B$)�=�
��=�
��
� ݤITpa_
� ?� A%,B%,C%,F%,Z%,num_$,cust_%,d$,d%,i_%,a$,a_%,k_%,ent_%,a_
�%� �
�*)� � �:� �:ș&406C1:�pe1_(�err_,F%):=�
�/Oerr_%=0:Z%=�ITnum_
�4F%=�(inv_$):�F%=0�=�
�9�#F%=0��#F%:F%=0:=�
�>
�:ent_%=0
�C0A%=�#F%:�#F%,num_$,cust_%,d$,d%,i_%,a$,a$,a$
�H#�Z%=0�4:�#F%,a_%:�:�#F%,k_%,a_%
�M,�Z%=1�i_%*itif_%:�#F%,a$:�a$<>""�ent_%=1
�R�
�W.�Z%=0�i_%:�#F%,a$,a_%,a_%,a_%,a_%,a$,a_%:�
�\ B%=�#F%
�a
�#F%:F%=0
�f<�i_%>0�num_$="Current"��checkdate_(d$)=� �k_%=0�ent_%=1�
�kK$!ITsupplier_%=�getcustname_(cust_%):$!ITrecd_%=�(�getcustnum_(cust_%))
�p $!ITnum_%=num_$:Z%=�ITnum_
�u�ITpi_=� �Oerr_%=1
�z C%=A%
��
�� C%=B%
���
��F%=�(inv_$):�#F%=C%
��/a_=�(0):��#F%=�#F%�Oerr_%>0�a_=27:�#F%:F%=0
�� =�ITnum_
��
�� ݤITpi_
��� A_%,B%,C%,Z%
��#C%=0:A_%=�:B%=�:Z%=�updateInvW_
��a�ITnu_$="Current"�ITnumb_$=CSuOrde_$(�getcustnum_(ITsupnum_%))+IOrderS_$(19) �ITnumb_$=ITnu_$
�� �checkdate_($!ITda_%)=� �=�
���getiflag(93)=1 �=�
���getITdatvat_
��K�getiflag(86)=0:Z%=�firstfreesale_:�freesale_=1�error_%=1:�wl_(25):=�
��=�ITprint_(�($!ITcop_%),0,�getcustnum_(ITsupnum_%))=� �=�
��,�getiflag(86)=0�Z%=�savesalesledger_(2)
����getiflag(92)=1�$!ITnum_%="Current":Z%=�getcust_(1):Z%=�opt1_(86):Z%=�opt1_(92):Z%=�opt1_(93):Z%=�opt1_(94):�setC1_(invw%,iti_%):IOrderS_$(19)=�updatenum_(IOrderS_$(19),20):IOrderch%(19)=1:B%=�
��>�B%=�:�IOnum%>0�Z%=�IinitOrdernum_:�rI(IOnum%,"IOrdernum")
���B%=� �=A_%
���ITnu_$="Current"�
��-Z%=�opt2_(86):Z%=�opt2_(93):Z%=�opt2_(94)
��FZ%=�savecust_(0,CSuOrde_$(�getcustnum_(ITsupnum_%))+IOrderS_$(19))
��`ITnu_$=CSuOrde_$(�getcustnum_(ITsupnum_%))+IOrderS_$(19):$!ITnum_%=ITnu_$:�rI(invW%,"ITnum")
��?IOrderS_$(19)=�updatenum_(IOrderS_$(19),20):IOrderch%(19)=1
��8�IOnum%>0�Z%=�IinitOrdernum_:�rI(IOnum%,"IOrdernum")
��
�Z%=�savecust_(0,ITnu_$)
� �
��setC1_(invw%,iti_%)
�=A_%
�iݤITtp_:�ITnu_$="Current"�ITnumb_$=CSuOrde_$(�getcustnum_(ITsupnum_%))+IOrderS_$(19) �ITnumb_$=ITnu_$
� :�getITdatvat_:=�ITprint_(1,2,�getcustnum_(ITsupnum_%))
�$CݤITdi_:�geticon_(invw%,!i%):�seticon_(invw%,!i%,flag21_%,0):=�
�)ݤITpr_:=�opt_
�.ݤITne_:=�ITnet_(1)
�3aݤITne1_:� Z%:�invw%<1�=� �Z%=�window("InvW"):$!ITnum_%="Current":�rI(invW%,"ITnum"):=�ITnum_
�8ݤITnet_(Z%)
�=� A%
�B
�Z%=1�
�G��getiflag(!i%)=1�$!ITnum_%="Current":�rI(invW%,"ITnum"):A%=�newcust_:A%=�opt1_(94):A%=�opt1_(93):A%=�opt1_(86) �A%=�newcust_
�L�
�Q
�Z%=0�
�VA%=�newcust_
�[B�$!ITnum_%="Current"�A%=�opt1_(94):A%=�opt1_(93):A%=�opt1_(86)
�`�
�e=�
�j#ݤITacc1_:ITacc_$=$!ITacc1_%:=�
�o&ݤIThead1_:IThead_$=$!IThead1_%:=�
�t&ݤITcomm1_:ITcomm_$=$!ITcomm1_%:=�
�y<ݤITda_:$!ITda_%=�chdate_($!ITda_%):�rI(invW%,"ITda"):=�
�~
��Bݤopt_:�geticon_(invw%,!i%):�seticon_(invw%,!i%,flag21_%,0):=�
��Hݤopt1_(A_%):�geticon_(invw%,A_%):�seticon_(invw%,A_%,0,flag21_%):=�
��Oݤopt2_(A_%):�geticon_(invw%,A_%):�seticon_(invw%,A_%,flag21_%,flag21_%):=�
��<ݤgetiflag(A_%):�geticon_(invw%,A_%):=(block_%!24>>21)�2
��,��sIcon_(W_%,I_%,A_%):�geticon_(W_%,I_%)
��/�A_%=1:�seticon_(W_%,I_%,flag21_%,flag21_%)
��)�A_%=-1:�seticon_(W_%,I_%,0,flag21_%)
���
��4��fI_(A_%):� Z%:�Z%=17�36:�geticon_(Prct%!12,Z%)
��3�A_%=1:�seticon_(Prct%!12,Z%,flag22_%,flag22_%)
��,�A_%=0:�seticon_(Prct%!12,Z%,0,flag22_%)
���
���
��
�����getinvflags_:olddata_%(0)=inv11_%(0):olddata_%(1)=�getiflag(86):olddata_%(2)=�getiflag(85):olddata_%(3)=�getiflag(84):olddata_%(4)=�getiflag(92):olddata_%(5)=�getiflag(93):olddata_%(6)=�getiflag(94):�
��<��setinvflags_:inv11_%(0)=olddata_%(0):$!invname_%=�cri_
����rI(W%,"invname"):�seticon_(invw%,86,olddata_%(1)<<21,flag21_%):�seticon_(invw%,85,olddata_%(2)<<21,flag21_%):�seticon_(invw%,84,olddata_%(3)<<21,flag21_%):�seticon_(invw%,92,olddata_%(4)<<21,flag21_%)
��a�seticon_(invw%,93,olddata_%(5)<<21,flag21_%):�seticon_(invw%,94,olddata_%(6)<<21,flag21_%):�
��
���ݤCinitsupplier_:� Z%:$!CSuRecord_%=�(CS_%):�rI(W%,"CSuRecord"):$!CSuName_%=CSuppliers_$(CS_%):$!CSuAd11_%=CSuAd1_$(CS_%):$!CSuAd22_%=CSuAd2_$(CS_%):$!CSuAd33_%=CSuAd3_$(CS_%):$!CSuAd44_%=CSuAd4_$(CS_%)
� �$!dCSuName_%=dCSuppliers_$(CS_%):$!dCSuAd11_%=dCSuAd1_$(CS_%):$!dCSuAd22_%=dCSuAd2_$(CS_%):$!dCSuAd33_%=dCSuAd3_$(CS_%):$!dCSuAd44_%=dCSuAd4_$(CS_%):$!dCSuPost_%=dCSuPos_$(CS_%)
��$!CSuPost_%=CSuPos_$(CS_%):$!CSuContact_%=CSuContac_$(CS_%):$!CSuTele_%=CSuTel_$(CS_%):$!CSuFax_%=CSuFa_$(CS_%):$!CSuCom11_%=CSuCom1_$(CS_%):$!CSuCom22_%=CSuCom2_$(CS_%):$!CSuSuppRef_%=CSuSuppRe_$(CS_%)
�
�$!CSuYourRef_%=CSuYourRe_$(CS_%):$!CSuOrder_%=CSuOrde_$(CS_%):$!CSuDisc_%=CSuDisc_$(CS_%):$!CSufindnum_%=�chtolen_(�(CSufindnu_$),Cmaxsupp_%):CSufindnu_$=$!CSufindnum_%:�updateccred_(CS_%,1):=�
�
�AݤCupdatesupplier_:� Z%
�F�CSuppliers_$(CS_%)=$!CSuName_%:CLSuppliers_$(CS_%)=�CSuppliers_$(CS_%),maxsuplen_%):CLSuppliers_$(CS_%)=CLSuppliers_$(CS_%)+�maxsuplen_%-�(CLSuppliers_$(CS_%))," ")+�(0)
�K�chcunam_%=1��Cfillsu_
�P�Csupp_$(CS_%)=�caps_($!CSuName_%):CSuAd1_$(CS_%)=$!CSuAd11_%:CSuAd2_$(CS_%)=$!CSuAd22_%:CSuAd3_$(CS_%)=$!CSuAd33_%:CSuAd4_$(CS_%)=$!CSuAd44_%:CSuPos_$(CS_%)=$!CSuPost_%:CSuContac_$(CS_%)=$!CSuContact_%
�U�dCSuppliers_$(CS_%)=$!dCSuName_%:dCSuAd1_$(CS_%)=$!dCSuAd11_%:dCSuAd2_$(CS_%)=$!dCSuAd22_%:dCSuAd3_$(CS_%)=$!dCSuAd33_%:dCSuAd4_$(CS_%)=$!dCSuAd44_%:dCSuPos_$(CS_%)=$!dCSuPost_%
�Z�CSuTel_$(CS_%)=$!CSuTele_%:CSuFa_$(CS_%)=$!CSuFax_%:CSuCom1_$(CS_%)=$!CSuCom11_%:CSuCom2_$(CS_%)=$!CSuCom22_%:CSuSuppRe_$(CS_%)=$!CSuSuppRef_%:CSuYourRe_$(CS_%)=$!CSuYourRef_%:CSuOrde_$(CS_%)=$!CSuOrder_%
�_�CSuDisc_$(CS_%)=$!CSuDisc_%:�$!CSufindnum_%<>CSufindnu_$�CSufindnu_$=�chtolen_(�($!CSufindnum_%),Cmaxsupp_%):$!CSufindnum_%=CSufindnu_$:�rI(CSuW%,"CSufindnum")
�d �CLabSu%>0:Z%=�Cupdatesulab_
�i �updateccred_(CS_%,1):=�
�n
��ݤinitCalc_:� Z%:$!Cal11_%=Cal1_$:$!Cal22_%=Cal2_$:$!Cal33_%=Cal3_$:$!Cal44_%=Cal4_$:$!CalTot1_%=�tc_(Calt1_%,"0"):$!CalTot2_%=�tc_(Calt2_%,"0"):$!CalTot3_%=�tc_(Calt3_%,"0")
��A$!CalTot4_%=�tc_(Calt4_%,"0"):$!CalTot_%=�tc_(CalTo_%,"0"):=�
��
��ݤcalpc2_(A):�A=0:=0
��� B
�� �(A-A �1)>.51�B=.5 �B=.1
���A<0�=A-B �=A+B
��
��ݤcalpc1_(A):�A=0:=0
�� B
�$�(A-A �1)>.50001�B=.005 �B=.001
� �A<0�=-B �=B
�
�ݤcalpc3_(A):�A=0:=0
�� B
� *�(A-A �1)>.0050001�B=.00005 �B=.00001
�%�A<0�=-B �=B
�*
�/<ݤcl_(A_$):�A_$,"!")��A_$,"?")��A_$,"$")�="Error" �=A_$
�4ݤupdateCalc_
�9� A,A%,Z%,A$
�>OA$=$!Cal11_%:Cal1_$=$!Cal11_%:$!CalTot1_%=�convis_(Calt1_%,"0"):A$=�cl_(A$)
�C� �
�H,� � �:� �:$!CalTot1_%="Error":A$="Error"
�M��A$<>"Error"�A$<>""�A=�($!Cal11_%):A=A+�calpc1_(A*100):�(A)>.009�Calt1_%=�convsi_(�(A)):$!CalTot1_%=�convis_(Calt1_%,"0") �Calt1_%=0
�ROA$=$!Cal22_%:Cal2_$=$!Cal22_%:$!CalTot2_%=�convis_(Calt2_%,"0"):A$=�cl_(A$)
�W� �
�\,� � �:� �:$!CalTot2_%="Error":A$="Error"
�a��A$<>"Error"�A$<>""�A=�($!Cal22_%):A=A+�calpc1_(A*100):�(A)>.009�Calt2_%=�convsi_(�(A)):$!CalTot2_%=�convis_(Calt2_%,"0") �Calt2_%=0
�fOA$=$!Cal33_%:Cal3_$=$!Cal33_%:$!CalTot3_%=�convis_(Calt3_%,"0"):A$=�cl_(A$)
�k� �
�p,� � �:� �:$!CalTot3_%="Error":A$="Error"
�u��A$<>"Error"�A$<>""�A=�($!Cal33_%):A=A+�calpc1_(A*100):�(A)>.009�Calt3_%=�convsi_(�(A)):$!CalTot3_%=�convis_(Calt3_%,"0") �Calt3_%=0
�zOA$=$!Cal44_%:Cal4_$=$!Cal44_%:$!CalTot4_%=�convis_(Calt4_%,"0"):A$=�cl_(A$)
�� �
��,� � �:� �:$!CalTot4_%="Error":A$="Error"
����A$<>"Error"�A$<>""�A=�($!Cal44_%):A=A+�calpc1_(A*100):�(A)>.009�Calt4_%=�convsi_(�(A)):$!CalTot4_%=�convis_(Calt4_%,"0") �Calt4_%=0
��LCalTo_%=Calt1_%+Calt2_%+Calt3_%+Calt4_%:$!CalTot_%=�convis_(CalTo_%,"0")
��\�rI(W%,"CalTot1"):�rI(W%,"CalTot2"):�rI(W%,"CalTot3"):�rI(W%,"CalTot4"):�rI(W%,"CalTot")
��=�
��
��ݤCalTot_:=�
��ݤCalTot1_:=�
��ݤCalTot2_:=�
��ݤCalTot3_:=�
��ݤCalTot4_:=�
��
�� ��drag_
�� �Q%!32<1�Q%!36<0�s_$=""��
��7� Z%:�geticon1_(Q%!32,Q%!36):�(iblock_%?25>>4)<15��
�� Z%=�pII(Q%!32,Q%!36,s_$):�
��
�jyݤCSuDelete_:� A%,Z%,Z$:Z$=�alert("About to delete a customer, are you sure?","","YES","NO","ar_quest",1):�Z$="NO":=�
�oș&406C0:A%=-1
�t�$!CSuName_%<>""�
�yT�Z%=0�maxS_%*sitip_%-1:�SITn_%(Z%+1)=CSuNumber_%(CS_%)�A%=Z%:Z%=maxS_%*sitip_%-1
�~�
���
���ș&406C1:�A%>-1�error_%=1:Z$=�alert("There are entries in the Sales ledger related to this customer, are you sure you want to Delete?","","YES","NO","ar_quest",1):�Z$="NO"�error_%=0:=�
���error_%=0:CLSuppliers_$(CS_%)=�maxsuplen_%," ")+�(0):$!CSuName_%="":$!CSuAd11_%="":$!CSuAd22_%="":$!CSuAd33_%="":$!CSuAd44_%="":$!CSuPost_%="":$!CSuContact_%="":$!CSuTele_%="":$!CSuFax_%=""
��zdCSuppliers_$(CS_%)="":$!dCSuName_%="":$!dCSuAd11_%="":$!dCSuAd22_%="":$!dCSuAd33_%="":$!dCSuAd44_%="":$!dCSuPost_%=""
���CSuppliers_$(CS_%)="":$!CSuCom11_%="":$!CSuCom22_%="":$!CSuSuppRef_%="":$!CSuYourRef_%="":$!CSuOrder_%="":$!CSuDisc_%="":chcunam_%=1:occred_%=0
��I�Z%=0�maxS_%*sitip_%-1:�SITn_%(Z%+1)=CSuNumber_%(CS_%)�SITn_%(Z%+1)=0
���:=�window("CustomW")
��
��(ݤcd_(A$):�A$=""�=maxN_% �=�Jul_(A$)
��/ݤcd1_(A$):�A$=""�=maxN_% �=�Jul_("01."+A$)
��
�2'ݤcodate_(B$):�B$=""�=0 �=�Jul_(B$)
�7 B$=�chdate_(B$):=�Jul_(B$)
�<
�A.ݤcodate1_(B$):�B$=""�=0 �=�Jul_("01."+B$)
�F*B$="01."+B$:B$=�chdate_(B$):=�Jul_(B$)
�K
�PaݤJul_(A$):� B%,C%,D%:B%=�(�A$,1,2)):C%=�(�A$,4,2)):D%=�(�A$,7)):� C%>2 � C%-=3 � C%+=9:D%-=1
�U>=146097*(D%�100)�4+1461*(D%�100)�4+(153*C%+2)�5+B%+1721119
�Z
�_ݤfindDate(A%)
�d� B%,C%,D%
�i�B%=4*A%-6884477:C%=(B%�146097)*100:D%=(B%�146097)�4:B%=4*D%+3:C%+=B%�1461:D%=(B%�1461)�4+1:B%=5*D%-3:D%=(B%�153)�5+1:B%=B%�153+1:C%+=B%�11:� B%<11 � B%+=2 � B%-=10
�n(=�"0"+�D%,2)+"."+�"0"+�B%,2)+"."+�C%
�s
�xIݤcheckDate(A$):� B%,C$:B%=�Jul_(A$):C$=�findDate(B%):� A$=C$ �=� �=�
�}
��1ݤMyquit_:� Z%,Z$:�S%!192=1��fin:error_%=0:=�
��:�S%!192=2:S%!192=1:Q%!12=Q%!8:ș&400E7,19,Q%:!t0%=Q%!4
����sa_%=1:�Sasav_%=-1�Z$=�alert("Your work has not been saved, are you sure you want to quit?","","YES","NO","ar_quest",1):�Z$="NO"�error_%=0:S%!192=0:=�
��&�invw%>0�Z%=�InvW_:Z%=�getcust_(0)
��I�Sasav_%=1:�saled%>0��sw_(saledW%):saled%=0:�closeW(saledW%):�SiSort_
��I�Sasav_%=1:�paled%>0��sw_(paledW%):paled%=0:�closeW(paledW%):�PiSort_
��G�Sasav_%=1:�bankl%>0��sw_(bankW%):bankl%=0:�closeW(bankW%):�BiSort_
����-�>=10000:�Exitwar_%=1:�Sasav_%=-1�Z$=�alert("About to Quit OK?","","YES","NO","ar_quest",1):�Z$="NO"�error_%=0:S%!192=0:=�
����-�>=10000:�Exitwar_%=1:�Sasav_%=1�Z$=�alert("About to Save your Work and Quit OK?","","YES","NO","ar_quest",1):�Z$="NO"�error_%=0:S%!192=0:=�
��b�Sasav_%=1�Z$=�asave2_(Savea_$,1):�ER_%=1 �Z%=�window("Ssave"):�setC_(5):error_%=0:S%!192=0:=�
��Z%=�IloseOfonts_
�� �S%!192=1:ș&6,138,0,&1FC
��error_%=0:�fin:=�
��
��ݤCinitSuSav_:=�zzC1_
��ݤCupdateSuSav_:=�zzC2_
��ݤCSuSavT_:�wl_(28):=�
��ݤCSuSavC_:�wl_(28):=�
�
� ,ݤSasaveas_:SaledR_$(25)=$!Sasaveas_%:=�
�ݤSasavT_:�wl_(28):=�
�ݤSasavC_:�wl_(28):=�
�
� ,ݤPasaveas_:PaledR_$(25)=$!Pasaveas_%:=�
�"ݤPasavT_:�wl_(28):=�
�'ݤPasavC_:�wl_(28):=�
�,
�1,ݤBasaveas_:BaledR_$(15)=$!Basaveas_%:=�
�6ݤBasavT_:�wl_(28):=�
�;ݤBasavC_:�wl_(28):=�
�@
�E*ݤVasaveas_:VatC_$(10)=$!Vasaveas_%:=�
�JݤVasavT_:�wl_(28):=�
�OݤVasavC_:�wl_(28):=�
�T
�m&ݤXasaveas_:Xnam_$=$!Xasaveas_%:=�
�rݤXasavT_:�wl_(28):=�
�wݤXasavC_:�wl_(28):=�
�|
��ݤCSuSaveas_:=�
��ݤCSaAdd_:=�
��ݤCSaPos_:=�
��ݤCSaCom1_:=�
��ݤCSaCom2_:=�
��ݤCSaFname_:=�
�ݤCSaFadd_:=�
�ݤCSaFcont_:=�
�
ݤCSaFcomm_:=�
�ݤCSaFsref_:=�
�ݤCSaFyref_:=�
� EݤCSuH_:csuh_%=-csuh_%:�csuh_%=-1��sI(W%,"CSuH") ��usI(W%,"CSuH")
�!=�
�&ݤzz33_:=�
�+ݤzz44_:�setC_(5):=�
�0�ݤzzC1_:$!CSaAdd_%=Ec_$(0):$!CSaPos_%=Ec_$(1):$!CSaCom1_%=Ec_$(2):$!CSaCom2_%=Ec_$(3):$!CSaFname_%=Ec_$(4):$!CSaFadd_%=Ec_$(5):$!CSaFcont_%=Ec_$(6):$!CSaFcomm_%=Ec_$(7):$!CSaFsref_%=Ec_$(8):$!CSaFyref_%=Ec_$(9)
�5U$!zz33_%=Ec_$(10):$!zz44_%=Ec_$(11):$!CSuSaveas_%=Ec_$(12):csuh_%=-csuh_%:=�CSuH_
�:�ݤzzC2_:Ec_$(0)=$!CSaAdd_%:Ec_$(1)=$!CSaPos_%:Ec_$(2)=$!CSaCom1_%:Ec_$(3)=$!CSaCom2_%:Ec_$(4)=$!CSaFname_%:Ec_$(5)=$!CSaFadd_%:Ec_$(6)=$!CSaFcont_%:Ec_$(7)=$!CSaFcomm_%:Ec_$(8)=$!CSaFsref_%:Ec_$(9)=$!CSaFyref_%
�?d$!CuCn_%=�(count_%):�rI(W%,"CuCn"):Ec_$(10)=$!zz33_%:Ec_$(11)=$!zz44_%:Ec_$(12)=$!CSuSaveas_%:=�
�D
�ICݤinitSave_:$!Saveas_%=Savea_$:$!SaveasB_%=SaveaB_$:�autosa_:=�
�N
��autosa_
�S2�Autosav_%>0�auto_$="(Autosave ON)" �auto_$=""
�X6�Sasav_%=1�autoE_$="(Save on exit ON)" �autoE_$=""
�]($!autos_%=auto_$:$!autoe_%=autoE_$:�
�b<ݤupdateSave_:Savea_$=$!Saveas_%:SaveaB_$=$!SaveasB_%:=�
�gCݤSok_:Savea_$=$!Saveas_%:SaveaB_$=$!SaveasB_%:�savefile_(1):=�
�lDݤSokb_:Savea_$=$!Saveas_%:SaveaB_$=$!SaveasB_%:�savefile_(3):=�
�qBݤSaveas_:!b%=0:Savea_$=$!Saveas_%:SaveaB_$=$!SaveasB_%:=�Sok_
�vDݤSavI_:Savea_$=$!Saveas_%:SaveaB_$=$!SaveasB_%:�savefile_(0):=�
�{DݤSaveasB_:!b%=0:Savea_$=$!Saveas_%:SaveaB_$=$!SaveasB_%:=�Sokb_
��EݤSavIB_:Savea_$=$!Saveas_%:SaveaB_$=$!SaveasB_%:�savefile_(2):=�
��1ݤSokN_:SaveaN_$=$!SaveasN_%:�savefile_(5):=�
��+ݤSaveasN_:SaveaN_$=$!SaveasN_%:=�SokN_
��1ݤSavN_:SaveaN_$=$!SaveasN_%:�savefile_(4):=�
��
����savefile_(Z%)
����Z%=0:�initsave_(&C88,Savea_$,1) ��Z%=2:�initsave_(&C88,SaveaB_$,0) ��Z%=1:$!Saveas_%=�asave2_(Savea_$,1) ��Z%=3:$!SaveasB_%=�asave2_(SaveaB_$,0)
��N�Z%=4:�initsave_(&C88,SaveaN_$,-1) ��Z%=5$!SaveasN_%=�asave2_(SaveaN_$,-1)
��,�Z%=1:�ER_%=1��rI(W%,"Saveas"):�setC_(5)
��.�Z%=3:�ER_%=1��rI(W%,"SaveasB"):�setC_(10)
��-�Z%=5:�ER_%=1��rI(W%,"SaveasN"):�setC_(3)
���
��
�> ��initsave_(A_%,A_$,B_%)
�C � A%,reason_%,Z%,B%,C%,Z_%
�Hș &400CF,,block_%
�Mblock_%!20=block_%!12
�Rblock_%!24=block_%!16
�Wblock_%!28=block_%!0
�\block_%!32=block_%!4
�fblock_%!36=4096
�kblock_%!0=256
�pblock_%!12=0
�ublock_%!16=1
�zblock_%!40=A_%
� $(block_%+44)=�getfnm_(A_$)
��Lș &400E7,18,block_%,block_%!20,block_%!24 � ,,dtask_%:stask_%=block_%!4
���dtask_%=stask_%��
��.temp_%=0:byteptr_%=0:�A_%=&FFF �C%=1 �C%=0
���sal_%(13,0)=0:sal_%(13,1)=0:sal_%(13,2)=0:sal_%(0,0)=0:sal_%(0,1)=0:sal_%(0,2)=0:bal_%(13,0)=0:bal_%(13,1)=0:bal_%(13,2)=0:bal_%(0,0)=0:bal_%(0,1)=0:bal_%(0,2)=0:flag_%=0:flag1_%=0:VatV_%()=0:VatS_%()=0
��bB%=�($!r33B_%)�32:�B%<1�B%=0:�Z%=1�12:B%=�add_(B%,BankOO_%(Z%)):� ��B%>0�B%<13�B%=BankOO_%(B%)
���BankOO_%(0)=0:BankSS_%(0)=0:BankCC_%(0)=0:�Z%=1�12:BankOO_%(0)=�add_(BankOO_%(0),BankOO_%(Z%)):BankSS_%(0)=�add_(BankSS_%(0),BankSS_%(Z%)):BankCC_%(0)=�add_(BankCC_%(0),BankCC_%(Z%)):�
��temploop_%=maxsupp_%
���
��!ș &400C7,,block_% � reason_%
��Ȏ reason_% �
��"� 17,18:�recmess_(block_%,B_%)
��� 19:temp_%=temploop_%
���
��#� temp_%=temploop_%�notrans_%=1
��=�reason_%=19��pe_("Data transfer failed : Receiver died")
���fH_
��
�
� ��initdsave_(B_%)
�I�B_%=1�$!Saveas_%=�asave2_(�confnm_(block_%+44),1):Savea_$=$!Saveas_%
�L�B_%=0�$!SaveasB_%=�asave2_(�confnm_(block_%+44),0):SaveaB_$=$!SaveasB_%
�N�B_%=-1�$!SaveasN_%=�asave2_(�confnm_(block_%+44),-1):SaveaN_$=$!SaveasN_%
� .�ER_%=1�B_%=1��rI(W%,"Saveas"):�setC_(5):�
�$0�ER_%=1�B_%=0��rI(W%,"SaveasB"):�setC_(10):�
�)0�ER_%=1�B_%=-1��rI(W%,"SaveasN"):�setC_(3):�
�.]block_%!12=block_%!8:block_%!16=3:block_%!0=256:ș&400E7,18,block_%,block_%!20,block_%!24
�3�
�8
�� ݤVcalc_
��� A%,B%,C%,E%,Z%,A_$,F%
�� ș&406C0
��QVatV_%()=0:VatS_%()=0:�A%=0�maxS_%*sitip_%-1:ș&406C4,A%/(maxS_%*sitip_%)*100
�� �SITe_$(A%*sitif_%+1)<>""�
���VatC_%(1)=1��cd1_(SITe_$(A%*sitif_%+2))>=�codate_(VatC_$(4))��codate1_(SITe_$(A%*sitif_%+2))<=�cd_(VatC_$(5))�VatC_%(2)=1�
�� �SITe_$(A%*sitif_%+7)<>""�
����VatC_%(2)=1��cd_(SITe_$(A%*sitif_%+1))>=�codate_(VatC_$(4))��codate_(SITe_$(A%*sitif_%+1))<=�cd_(VatC_$(5))��SITs_$(A%),1)<>"U"�VatC_%(1)=1�
�� �F%=0�10
���VatT_%(F%*4)=1�VatS_%(F%)=�add_(VatS_%(F%),�cvat_(�ni_(SITe_$(A%*sitif_%+6)),�ni_(SITe_$(A%*sitif_%+8)),�ni_(SITe_$(A%*sitif_%+9)),�caps_(SITe_$(A%*sitif_%+7)),VatR_$(F%*4+2),F%))
��
�
�
��
��
� �
�!�
�&;�A%=0�maxP_%*sitip_%-1:ș&406C4,A%/(maxP_%*sitip_%)*100
�+ �PITe_$(A%*sitif_%+1)<>""�
�0�VatC_%(1)=1��cd1_(PITe_$(A%*sitif_%+2))>=�codate_(VatC_$(4))��codate1_(PITe_$(A%*sitif_%+2))<=�cd_(VatC_$(5))�VatC_%(2)=1�
�5 �PITe_$(A%*sitif_%+7)<>""�
�:��VatC_%(2)=1��cd_(PITe_$(A%*sitif_%+1))>=�codate_(VatC_$(4))��codate_(PITe_$(A%*sitif_%+1))<=�cd_(VatC_$(5))��PITs_$(A%),1)<>"U"�VatC_%(1)=1�
�? �F%=0�10
�D��VatT_%(F%*4+1)=1�VatV_%(F%)=�add_(VatV_%(F%),�cvat_(�ni_(PITe_$(A%*sitif_%+6)),�ni_(PITe_$(A%*sitif_%+8)),�ni_(PITe_$(A%*sitif_%+9)),�caps_(PITe_$(A%*sitif_%+7)),VatR_$(F%*4+2),F%))
�I�
�N�
�S�
�X�
�]�
�b�
�g �vtcalc_
�l ș&406C1
�q=�
�v
�{
��vtcalc_
��� F%
�� �F%=0�10
��&�VatR_$(F%*4)=""�VatR_$(F%*4+3)=""
��7�VatT_%(F%*4)=1�VatR_$(F%*4+3)=�tc_(VatS_%(F%),"0")
��9�VatT_%(F%*4+1)=1�VatR_$(F%*4+3)=�tc_(VatV_%(F%),"0")
��#VatV_%(F%)=�ni_(VatR_$(F%*4+3))
��-Z%=�pII(vatp%!12,F%*4+4,VatR_$(F%*4+3)):�
����F%=0�10:�VatR_$(F%*4+1)<>""�VatR_$(F%*4+3)=�calcvat_(VatR_$(F%*4+1)):Z%=�pII(vatp%!12,F%*4+4,VatR_$(F%*4+3)):VatV_%(F%)=�ni_(VatR_$(F%*4+3))
���
���
��
��$ݤcvat_(a_%,b_%,c_%,a_$,b_$,d_%)
��� Z%
��秤caps_(b_$),a_$)�
��;�VatC_%(1)=1�VatT_%(d_%*4+2)=1�VatT_%(d_%*4+3)=1�Z%=a_%
��@�VatC_%(1)=1�VatT_%(d_%*4+2)=1�VatT_%(d_%*4+3)=-1�Z%=a_%-b_%
��<�VatC_%(1)=1�VatT_%(d_%*4+2)=-1�VatT_%(d_%*4+3)=1�Z%=b_%
��;�VatC_%(2)=1�VatT_%(d_%*4+2)=1�VatT_%(d_%*4+3)=1�Z%=c_%
��@�VatC_%(2)=1�VatT_%(d_%*4+2)=1�VatT_%(d_%*4+3)=-1�Z%=c_%-b_%
��<�VatC_%(2)=1�VatT_%(d_%*4+2)=-1�VatT_%(d_%*4+3)=1�Z%=b_%
���
��=Z%
��
�`ݤcalcvat_(A_$)
�e � Z,A,B,C,D,E,F,G,H,I,J,K
�j� �
�o�� � �:� �:�pe_("A 'Sum' field in the "+VAT_$+" Return cannot be calculated. Please check the line(s) marked 'Error'. (Formulas should be made up as follows A+B/9 etc.)"):="Error"
�t�A_$=�caps_(A_$):A=VatV_%(0)/100:B=VatV_%(1)/100:C=VatV_%(2)/100:D=VatV_%(3)/100:E=VatV_%(4)/100:F=VatV_%(5)/100:G=VatV_%(6)/100:H=VatV_%(7)/100:I=VatV_%(8)/100:J=VatV_%(9)/100:K=VatV_%(10)/100
�yZ=�(A_$)*100
�~=�convis_(Z,"0")
��
���ackload_
�
�R%<>18��
�block_%!12=block_%!8
�block_%!16=4
�-ș&400E7,17,block_%,block_%!20,block_%!24
� �
�"
�'ݤgetfnm_(aname$)
�,ȕ �aname$,".")
�1"aname$=�aname$,�aname$,".")+1)
�6�
�;=aname$+�(0)
�@
�Eݤconfnm_(A_%)
�J� a_%,b_%,tname_$,Z%
�O� �
�T"� � �:� �:�pe_(�err_):=tname_$
�Y tname_$="":a_%=0:b_%=A_%?a_%
�^
ȕ b_%<>0
�ctname_$+=�(b_%)
�h
a_%+=1
�mb_%=A_%?a_%
�r�
�w =tname_$
�|�ݤconinm_(A_%,B_%):� a_%,b_%,tname_$:tname_$="":a_%=0:b_%=A_%?a_%:ȕ b_%>31�B_%+1>a_%:tname_$+=�(b_%):a_%+=1:b_%=A_%?a_%:�:=tname_$
��
����recmess_(block_%,B_%)
�� Oerr_%=0
��� �
��-� � �:� �:temp_%=temploop_%:�pe_(�err_):�
��Ȏ (block_%!16) �
��;� 2:�block_%!40=&C88�temp_%=temploop_%:�initdsave_(B_%)
�� � 3:�dataload_(block_%,0)
�� � 5:�dataload_(block_%,0)
���
���
��
�� ��dataload_(block_%,A_%)
��q�block_%!40=&C87:temp_%=temploop_%:�ackload_:inv_$=�confnm_(block_%+44):�pe_("Invoice file accepted -"+inv_$)
��Q�block_%!40=&C88:temp_%=temploop_%:�ackload_:�load_(�confnm_(block_%+44),A_%)
���
��
�Iݤasave2_(tname_$,a_%)
�N
ER_%=0
�S/� A%,B%,C%,Z%,F%,L$,A$,B$,A_%,B_%:bl1_%()=0
�X>�a_%=0�B$=SaveaB_$ ��a_%=1�B$=Savea_$ ��a_%=-1�B$=SaveaN_$
�]� �
�bT� � �:� �:ș&406C1:Z%=�window("Ssave"):�pe1_(auto_$+autoE_$+�err_,F%):ER_%=1:=B$
�gF%=0
�l L$=�gLn(tname_$):A$=�L$,1)
�qu�A$="!"�A$="$"�A$="%"��pe_(auto_$+autoE_$+" You cannot start the file name with a '"+A$+"' character"):ER_%=1:=B$
�vP�(L$)=0��pe_(auto_$+autoE_$+" You must enter a valid file name"):ER_%=1:=B$
�{a�L$,"<")��pe_(auto_$+autoE_$+" This file cannot be saved to another application"):ER_%=1:=B$
��d�tname_$,".")=0��pe_(auto_$+autoE_$+" To save, drag the icon to a directory viewer"):ER_%=1:=B$
��Z�(L$)>10��pe_(auto_$+autoE_$+" File name too long, maximum 10 characters"):ER_%=1:=B$
�� ș&406C0
��A%=�checkmaxst1_
��B%=�checkmaxsu1_
��C%=�Ccheckmaxsu1_
�� NewPref_%(0)=�checkmaxS1_
�� NewPref_%(1)=�checkmaxP1_
�� NewPref_%(2)=�checkmaxB1_
��NewPref_%(3)=v_%
��NewPref_%(4)=SLdeb_%
��NewPref_%(5)=CSLdeb_%
��NewPref_%(6)=prefs_%
��NewPref_%(8)=prefos_%
��NewPref_%(9)=Pl_%
��+�a_%=-1�NewPref_%(7)=-1 �NewPref_%(7)=0
��C� ********** New Pref's used=0,1,2,3,4,5,6,7,8,9 **************
��F%=�(tname_$)
��E�#F%,A%,B%,C%,Omaxst_%,Omaxsu_%,COmaxsu_%,OmaxS_%,OmaxP_%,OmaxB_%
�� �Z%=0�9:�#F%,NewPref_%(Z%):�
�� �Z%=0�23:�#F%,Index_$(Z%):�
�� �Z%=0�47:�#F%,Best_$(Z%):�
���Z%=0�3996�4:�#F%,0:�
��%�Z%=0�3996�4:�#F%,(OrderC_%!Z%):�
���#F%,-1:� Ojust etc
��|�Z%=0�IOicons%:�#F%,IOjust_%(Z%),IOrderS_$(Z%),IOrderF_%(Z%),IOrdermy_(Z%),IOrdermx_(Z%),IOrderfy_%(Z%),IOrderfx_%(Z%):�
�i�Z%=0�1000:�#F%,SlRec_$(0),SlNum_$(0),SlDes_$(0),SlQua_(0),SlPri_(0),SlVat_$(0):�:�#F%,Sg_%,Lg_%,Cg_%
� �Z%=0�16:�#F%,Label_$(Z%):�
� 1�Z%=0�maxifont_%:�#F%,fhandle_%(Z%):�:�#F%,65
��#F%,"#PRO�LITE#"
�%�Z%=0�27:�#F%,Va_%(Z%),Va_$(Z%):�
� �#F%,"#PRO�LITE#"
�/��Z%=0�C%:�#F%,CSuppliers_$(Z%),CSuNumber_%(Z%),CSuAd1_$(Z%),CSuAd2_$(Z%),CSuAd3_$(Z%),CSuAd4_$(Z%),CSuPos_$(Z%),CSuContac_$(Z%),CSuTel_$(Z%),CSuFa_$(Z%),CSuCom1_$(Z%),CSuCom2_$(Z%),CSuSuppRe_$(Z%),Csupp_$(Z%)
�4n�#F%,dCSuppliers_$(Z%),dCSuAd1_$(Z%),dCSuAd2_$(Z%),dCSuAd3_$(Z%),dCSuAd4_$(Z%),dCSuPos_$(Z%),CSuDisc_$(Z%)
�9(�#F%,CSuYourRe_$(Z%),CSuOrde_$(Z%):�
�>��#F%,Views_%,Viewp_%,Lstocknu_%,Ldescrip_%,Lsuppre_%,Lsup_%,Lstoc_%,Lpric_%,La4_%,Lus_%,Lcust_%,Ljle_%,Ljce_%,Ldow_%,Lacros_%,Lnumbe_%,Lstar_%,Lpagx_%,Lpagy_%,Lfon_x%,Lfon_y%,Cu_$
�C��#F%,Scontac_%,Snam_%,Saddres_%,Sa4_%,Sus_%,Scust_%,Sdow_%,Sacros_%,Snumbe_%,Sstar_%,Spagx_%,Spagy_%,Sfon_x%,Sfon_y%,SupFro_%,SupT_%,SsCom_$,SsPos_$
�H��#F%,CScontac_%,CSnam_%,CSaddres_%,CSa4_%,CSus_%,CScust_%,CSdow_%,CSacros_%,CSnumbe_%,CSstar_%,CSpagx_%,CSpagy_%,CSfon_x%,CSfon_y%,CSupFro_%,CSupT_%,CsCom_$,CsPos_$
�M��#F%,ListRecNu_%,ListStNu_%,ListDesc_%,ListSup_%,ListRe_%,ListCos_%,ListRetai_%,ListStoc_%,ListMi_%,ListQua_%,ListSol_%,ListMo_%,ListPr1_%,ListPr2_%,ListMar_%,ListDat_%,Lista4_%,Listus_%,Listcust_%,Listpagx_%,Listpagy_%
�R��#F%,Listfon_x%,Listfon_y%,Listfro_%,Listt_%,Listlef_%,Listtop_%,Listspac_%,Da4_%,Dus_%,Dcust_%,Dpagx_%,Dpagy_%,Dfon_x%,Dfon_y%,Dlef_%,Dtop_%,Dspac_%
�W��#F%,SLRecNu_%,SLsupplie_%,SLad1_%,SLad2_%,SLad3_%,SLad4_%,SLpos_%,SLcon_%,SLtel_%,SLfa_%,SLcom1_%,SLcom2_%,SLsuppre_%,SLyourre_%,SLordpr_%,SLa4_%,SLus_%,SLcust_%,SLpagx_%,SLpagy_%,SLfon_x%,SLfon_y%,SLfro_%,SLt_%,SLlef_%
�\��#F%,SLtop_%,SLspac_%,Sjle_%,Sjce_%,Oa4_%,Ous_%,Ocust_%,Opagx_%,Opagy_%,Unam_$,Uad1_$,Uad2_$,Uad3_$,Uad4_$,Uad5_$,Upos_$,Ute_$,Ufa_$,Uva_$,Cal1_$,Cal2_$,Cal3_$,Cal4_$,CalTo_%,IOa4_%,IOus_%,IOcust_%,IOpagx_%,IOpagy_%
�a��#F%,CSLRecNu_%,CSLsupplie_%,CSLad1_%,CSLad2_%,CSLad3_%,CSLad4_%,CSLpos_%,CSLcon_%,CSLtel_%,CSLfa_%,CSLcom1_%,CSLcom2_%,CSLsuppre_%,CSLyourre_%,CSLordpr_%,CSLa4_%,CSLus_%,CSLcust_%,CSLpagx_%,CSLpagy_%
�fx�#F%,CSLfon_x%,CSLfon_y%,CSLfro_%,CSLt_%,CSLlef_%,CSLtop_%,CSLspac_%,CSjle_%,CSjce_%,Calt1_%,Calt2_%,Calt3_%,Calt4_%
�k1�#F%,j_f%,j_f1%,j_f2%,j_f3%,j_f4%,j_f5%,j_f6%
�p��#F%,Oborder%,Oruler%,Odsize_%,Odgap_%,Oisupplie_$,Oinumbe_%,Oanumbe_%,Oafro_%,Oat_%,BestF_%,BestP_%,BestL_$,BestD_$,Sasav_%,savesal_%,IOborder%,IOruler%,IOdsize_%,IOdgap_%
�u(�#F%,pass1_$,pass2_$,pass3_$,pass4_$
�zL�#F%,Otoday_$,valfro_$,valt_$,Sfindnu_$,Sufindnu_$,Autosav_%,CSufindnu_$
�b�Z%=1�maxifont_%:�#F%,Ofontname_$(Z%):�:�#F%,Oisupnum_%,ITcop_$,ITes_%,ITdis_$,ITre_$,ITpric_$
��.�Z%=1�108:�#F%,Shead1_$(Z%),Phead1_$(Z%):�
�� �Z%=1�12
��m�a_%=-1�a_%=�add_(BankOO_%(Z%),BankSS_%(Z%)):�#F%,BankNN_$(Z%),a_%:a_%=-1 ��#F%,BankNN_$(Z%),BankOO_%(Z%)
���
�� �a_%=-1�
�� �Z%=0�NewPref_%(0)*sitip_%
����SITs_$(Z%)<>Q_$�SITe_$(Z%*sitif_%+6)<>SITe_$(Z%*sitif_%+9)��#F%,SITa_$(Z%),SITh_$(Z%),SITs_$(Z%),SITn_%(Z%) ��#F%,"","","",SITn_%(Z%)
���
���
��Z�a_%<>-1:�Z%=0�NewPref_%(0)*sitip_%:�#F%,SITa_$(Z%),SITh_$(Z%),SITs_$(Z%),SITn_%(Z%):�
�� �a_%=-1�
�� �Z%=0�NewPref_%(1)*sitip_%
����PITs_$(Z%)<>Q_$�PITe_$(Z%*sitif_%+6)<>PITe_$(Z%*sitif_%+9)��#F%,PITa_$(Z%),PITh_$(Z%),PITs_$(Z%),PITn_%(Z%) ��#F%,"","","",PITn_%(Z%)
���
���
��Z�a_%<>-1:�Z%=0�NewPref_%(1)*sitip_%:�#F%,PITa_$(Z%),PITh_$(Z%),PITs_$(Z%),PITn_%(Z%):�
�� �Z%=0�NewPref_%(2)*sitip_%
�� �a_%=-1�
��N�BITe_$(Z%*bitif_%+4)="�"�BITe_$(Z%*bitif_%+4)=""��#F%,"" ��#F%,BITf_$(Z%)
��N�BITe_$(Z%*bitif_%+7)="�"�BITe_$(Z%*bitif_%+7)=""��#F%,"" ��#F%,BITt_$(Z%)
���
�� �#F%,BITf_$(Z%),BITt_$(Z%)
���
���
�� �a_%=-1�
�.�Z%=1�NewPref_%(0)*sitip_%*sitif_%�sitif_%
�6�SITs_$(Z%/sitif_%)=Q_$�SITe_$(Z%+5)=SITe_$(Z%+8)�
� )�#F%,"","","","","","","","","","",""
��
���#F%,SITe_$(Z%),SITe_$(Z%+1),SITe_$(Z%+2),SITe_$(Z%+3),SITe_$(Z%+4),SITe_$(Z%+5),SITe_$(Z%+6),SITe_$(Z%+7),SITe_$(Z%+8),SITe_$(Z%+9),SITe_$(Z%+10)
�y�SITs_$(Z%/sitif_%)=Q_$:B_%=�ni_(SITe_$(Z%+8)):A_%=�(SITe_$(Z%+3))-65:�A_%>-1�A_%<12�bl1_%(A_%)=�add_(bl1_%(A_%),B_%)
� �
�$�
�)#�Z%=0�11:bl1_%(Z%)=-bl1_%(Z%):�
�.�
�3��a_%<>-1:�Z%=1�NewPref_%(0)*sitip_%*sitif_%�sitif_%:�#F%,SITe_$(Z%),SITe_$(Z%+1),SITe_$(Z%+2),SITe_$(Z%+3),SITe_$(Z%+4),SITe_$(Z%+5),SITe_$(Z%+6),SITe_$(Z%+7),SITe_$(Z%+8),SITe_$(Z%+9),SITe_$(Z%+10):�
�8U�Z%=0�sitin_%-1:�#F%,SITep_$(Z%):�:�Z%=0�sitip_%*3:�#F%,SITap_$(Z%):�:�#F%,sitp_%
�= �a_%=-1�
�B.�Z%=1�NewPref_%(1)*sitip_%*sitif_%�sitif_%
�G6�PITs_$(Z%/sitif_%)=Q_$�PITe_$(Z%+5)=PITe_$(Z%+8)�
�L)�#F%,"","","","","","","","","","",""
�Q�
�V��#F%,PITe_$(Z%),PITe_$(Z%+1),PITe_$(Z%+2),PITe_$(Z%+3),PITe_$(Z%+4),PITe_$(Z%+5),PITe_$(Z%+6),PITe_$(Z%+7),PITe_$(Z%+8),PITe_$(Z%+9),PITe_$(Z%+10)
�[y�PITs_$(Z%/sitif_%)=Q_$:B_%=�ni_(PITe_$(Z%+8)):A_%=�(PITe_$(Z%+3))-65:�A_%>-1�A_%<12�bl1_%(A_%)=�add_(bl1_%(A_%),B_%)
�`�
�e�
�j�
�o��a_%<>-1:�Z%=1�NewPref_%(1)*sitip_%*sitif_%�sitif_%:�#F%,PITe_$(Z%),PITe_$(Z%+1),PITe_$(Z%+2),PITe_$(Z%+3),PITe_$(Z%+4),PITe_$(Z%+5),PITe_$(Z%+6),PITe_$(Z%+7),PITe_$(Z%+8),PITe_$(Z%+9),PITe_$(Z%+10):�
�tI�Z%=0�sitin_%-1:�#F%,PITep_$(Z%):�:�Z%=0�sitip_%*3:�#F%,PITap_$(Z%):�
�y��#F%,pitp_%,Autowar_%,Salewar_%,Exitwar_%,pass5_$,pass6_$,pass7_$,ITacc_$,IThead_$,SAacc_$,SAhead_$,ITcomm_$,SAcust_$,SAref_$,SAcomm_$
�~&�Z%=1�NewPref_%(2)*sitip_%*bitif_%
�� �a_%=-1�
����BITe_$(Z%+3)="�"�BITe_$(Z%+6)="�"�BITe_$(Z%+3)=""�BITe_$(Z%+6)="�"�BITe_$(Z%+3)="�"�BITe_$(Z%+6)=""�BITe_$(Z%+3)=""�BITe_$(Z%+6)=""��#F%,"","","","","","","",""
����BITe_$(Z%+3)<>"�"�BITe_$(Z%+6)<>"�":�BITe_$(Z%+3)<>""�BITe_$(Z%+6)<>""��#F%,BITe_$(Z%),BITe_$(Z%+1),BITe_$(Z%+2),BITe_$(Z%+3),BITe_$(Z%+4),BITe_$(Z%+5),BITe_$(Z%+6),BITe_$(Z%+7)
����BITe_$(Z%+3)="�"�BITe_$(Z%+6)<>"�"�BITe_$(Z%+6)<>""��#F%,BITe_$(Z%),BITe_$(Z%+1),"","",BITe_$(Z%+4),BITe_$(Z%+5),BITe_$(Z%+6),BITe_$(Z%+7)
����BITe_$(Z%+6)="�"�BITe_$(Z%+3)<>"�"�BITe_$(Z%+3)<>""��#F%,BITe_$(Z%),BITe_$(Z%+1),BITe_$(Z%+2),BITe_$(Z%+3),BITe_$(Z%+4),"","",BITe_$(Z%+7)
��Z%+=bitif_%-1
���
���#F%,BITe_$(Z%)
���
���
��I�Z%=0�bitin_%-1:�#F%,BITep_$(Z%):�:�Z%=0�sitip_%*2:�#F%,BITap_$(Z%):�
��8�Z%=1�7:�#F%,SaledF_$(Z%),PaledF_$(Z%),BankF_$(Z%):�
��-�Z%=1�25:�#F%,SaledR_$(Z%),PaledR_$(Z%):�
��-�Z%=1�17:�#F%,SaledR_%(Z%),PaledR_%(Z%):�
�� �Z%=1�15:�#F%,BaledR_$(Z%):�
�� �Z%=1�11:�#F%,BaledR_%(Z%):�
��)�Z%=0�44:�#F%,VatR_$(Z%),VatT_%(Z%):�
��6�Z%=0�10:�#F%,VatC_$(Z%),VatC_%(Z%):�:�#F%,pass8_$
��"�#F%,prefn_%,prefye_%,Tr__$(1)
��=�Z%=0�IOicons%:�#F%,inv11_%(Z%),inv22_%(Z%),inv33_%(Z%):�
��[�#F%,Xpagx_%,Xpagy_%,Xnam_%,Xfon_x%,Xfon_y%,Xaspac_%,Xatab_%,Xnam_$,Xa4_%,Xus_%,Xcust_%
��2�#F%,Stat1_$,Stat2_$,Stat3_$,SBestP_%,SBestF_%
���#F%,-1:� SIOjust etc
��2�#F%,SIOborder%,SIOruler%,SIOdsize_%,SIOdgap_%
��6�#F%,SIOa4_%,SIOus_%,SIOcust_%,SIOpagx_%,SIOpagy_%
� �Z%=0�3996�4:�#F%,0:�
���Z%=1�maxT_%*sitip_%*sitif_%:�#F%,TITe_$(Z%):�:�Z%=0�sitin_%-1:�#F%,TITep_$(Z%):�:�Z%=0�sitip_%*3:�#F%,TITap_$(Z%):�:�#F%,titp_%
�
��Z%=0�maxT_%*sitip_%:�#F%,TITa_$(Z%),TITh_$(Z%),TITs_$(Z%),TITe_%(Z%),TITn_%(Z%):�:�#F%,SaveaB_$,Tnam_$:�Z%=0�12:�#F%,Es_$(Z%),Ec_$(Z%):�
�3�Z%=0�399:�#F%,bl_$(0):�:�#F%,passA_$:� P&L etc
�R�Z%=0�479�5:�#F%,Sheadt1_%(Z%),Sheadt1_%(Z%+1),Pheadt1_%(Z%),Pheadt1_%(Z%+1):�
�6�Z%=0�10:�#F%,WatC_$(Z%),WatC_%(Z%):�:�#F%,pass9_$
� �Z%=0�11:�#F%,bl1_%(Z%):�
�#��Z%=0�16:�#F%,pc_$(Z%):�:�#F%,prefs1_%,prefsn1_%:�Z%=17�19:�#F%,pc_$(Z%):�:�#F%,prefs2_%,prefsn2_%,C_%,S_%,CS_%,ITll_%,lm_%,tm_%:�Z%=0�A%:�#F%,StHd_$(Z%):�
�-
�#F%:F%=0
�2 �("SETTYPE "+tname_$+" C88")
�7 ș&406C1
�</�save%>0:�!b%<>1:�sw_(save%):�closeW(save%)
�A sa_%=0:�initedit_:=tname_$
�F
�K��reloadprophet_
�P�load_(moremem_$,1)
�U�
�Z
�_ ��upstand_:�prefos_%=-1��
�d6� A%,B%,C%,D%,E%,F_%,G%,H%,Z%,A$,B$,C$,l_%,a_%,b_%
�i2ș&406C0:lastpos_%=0:lastpos1_%=0:lastpos2_%=0
�n0�Z%=0�maxT_%*sitip_%-1:B$="":F_%=0:E%=0:H%=1
�sA$=TITe_$(Z%*sitif_%+2)
�xC%=�(A$):� number
�}1C$=TITe_$(Z%*sitif_%+1):�C$<>""��(C$)<10�H%=2
���C$=""�TITn_%(Z%)=0
��+G%=TITn_%(Z%):� number already inserted
��B%=�Jul_(C$):� date
��'�TITe_%(Z%)=1�l_%=3 �l_%=4:� ledger
��!D%=�A$,"D"):�D%=0�D%=�A$,"d")
�� �D%�B$="D":F_%=�(�A$,D%+1))
��!D%=�A$,"M"):�D%=0�D%=�A$,"m")
�� �D%�B$="M":F_%=�(�A$,D%+1))
��!D%=�A$,"Y"):�D%=0�D%=�A$,"y")
�� �D%�B$="Y":F_%=�(�A$,D%+1))
��"�B$="D"�G%<C%�B%>0�F_%>0�H%=1�
��B%+=F_%*G%
���A%=G%�C%-1
���B%<=day_%�
��/H%=�instand_(Z%,B%,l_%):�H%=�:TITn_%(Z%)+=1
���
�� A%=C%
���
��$�H%=� �A%=C%:Z%=maxT_%*sitip_%-1
�� B%+=F_%
���
���
��"�B$="M"�G%<C%�B%>0�F_%>0�H%=1�
��(a_%=�(�C$,4,2))+F_%*G%:b_%=�(�C$,4))
��"�a_%>12�b_%+=a_%/12:a_%=a_%�12
���A%=G%�C%-1
�6A$=�chdate_(�C$,3)+�(a_%)+"."+�(b_%)):B%=�Jul_(A$)
� �B%<=day_%�
�/H%=�instand_(Z%,B%,l_%):�H%=�:TITn_%(Z%)+=1
��
� A%=C%
� �
�"$�H%=� �A%=C%:Z%=maxT_%*sitip_%-1
�'+a_%+=F_%:�a_%>12�b_%+=a_%/12:a_%=a_%�12
�,�
�1�
�6"�B$="Y"�G%<C%�B%>0�F_%>0�H%=1�
�;b_%=�(�C$,4))+F_%*G%
�@�A%=G%�C%-1
�E+A$=�chdate_(�C$,6)+�(b_%)):B%=�Jul_(A$)
�J�B%<=day_%�
�O/H%=�instand_(Z%,B%,l_%):�H%=�:TITn_%(Z%)+=1
�T�
�Y A%=C%
�^�
�c$�H%=� �A%=C%:Z%=maxT_%*sitip_%-1
�h b_%+=F_%
�m�
�r�
�w �H%=2�Z%=maxT_%*sitip_%-1
�|�
�� ș&406C1
��r�H%=2��pe_("Check your standing orders, a date is not correct. Update suspended until you next load the file")
���
��
���ݤinstand_(Z%,B%,A%):olddata_$(0)=�findDate(B%):olddata_$(1)=�olddata_$(0),7):olddata_$(2)=TITe_$(Z%*sitif_%+3):olddata_$(3)=TITe_$(Z%*sitif_%+4):olddata_$(4)=TITe_$(Z%*sitif_%+5):olddata_$(5)=TITe_$(Z%*sitif_%+6)
���olddata_$(6)=TITe_$(Z%*sitif_%+7):olddata_$(7)=TITe_$(Z%*sitif_%+8):olddata_$(8)=TITe_$(Z%*sitif_%+9):olddata_$(9)=TITe_$(Z%*sitif_%+10):olddata_$(10)=TITe_$(Z%*sitif_%+11):=�savesalesledger_(A%)
��
��Oݤstrip_(A_$):��A_$)=" "��A_$)=�(0)��:A_$=�A_$,�(A_$)-1):��A_$)<>" "�A_$=""
��=A_$
��
��I��load_(tem_$,n_%):�n_%=0��pe_("Please quit Prophet and try again"):�
�� ș&406C0
��R� A%,F%,Z%,B%,C%,E%,Z_%,a_$,a_%,b_%,c_%,A_%,B_%,aa_%,Cc_%,D_%,E_%,l_%,ti_%,a_$
��� �
��;� � �:� �:ș&406C1:Oerr_%=1:�pe1_(�err_,F%):�Cuplsup_:�
�� F%=0:F%=�(tem_$):l_%=�#(F%)
��ș&406C4,�#F%/l_%*100
��E�#F%,B%,C%,E%,Omaxst_%,Omaxsu_%,COmaxsu_%,OmaxS_%,OmaxP_%,OmaxB_%
�� �im_(F%,tem_$)=1�F%=0:�
��eM_%=Omaxst_%:maxsupp_%=Omaxsu_%:Cmaxsupp_%=COmaxsu_%:maxS_%=OmaxS_%:maxP_%=OmaxP_%:maxB_%=OmaxB_%
��U�Z%=0�9:�#F%,NewPref_%(Z%):�:�NewPref_%(3)<128:ti_%=56:ti1_%=41 �ti_%=57:ti1_%=42
��x�NewPref_%(3)<>v_%:ș&406C1:�pe1_("ERROR: This is not a file created by Prophet Lite, it has not been loaded.",F%):�
��[SLdeb_%=NewPref_%(4):CSLdeb_%=NewPref_%(5):�SLdeb_%=0�CSLdeb_%=0�SLdeb_%=-1:CSLdeb_%=-1
��.prefs_%=NewPref_%(6):�prefs_%=0:prefs_%=-1
��0prefos_%=NewPref_%(8):�prefos_%=0:prefos_%=1
��%Pl_%=NewPref_%(9):�Pl_%=0:Pl_%=-1
�Eprefsn_%=-prefs_%:prefson_%=-prefos_%:�Z%=0�23:�#F%,Index_$(Z%):�
�4�Z%=0�47:�#F%,Best_$(Z%):�:ș&406C4,�#F%/l_%*100
�
�Z%=0�3996�4:�#F%,A%:�
�)�Z%=0�3996�4:�#F%,A%:OrderC_%!Z%=A%:�
��#F%,A%:� Ojust etc
� �ș&406C4,�#F%/l_%*100:�Z%=0�ti_%:�#F%,IOjust_%(Z%),IOrderS_$(Z%),IOrderF_%(Z%),IOrdermy_(Z%),IOrdermx_(Z%),IOrderfy_%(Z%),IOrderfx_%(Z%):�
�!i�Z%=0�1000:�#F%,SlRec_$(0),SlNum_$(0),SlDes_$(0),SlQua_(0),SlPri_(0),SlVat_$(0):�:�#F%,Sg_%,Lg_%,Cg_%
�& �Z%=0�16:�#F%,Label_$(Z%):�
�+2�Z%=0�maxifont_%:�#F%,fhandle_%(Z%):�:Z_%=�#F%
�08�Z_%<>65��#F%=�#F%-1:�Z%=maxifont_%+1�255:�#F%,a_%:�
�5 �im_(F%,tem_$)=1�F%=0:�
�7�#F%,a_$:� stock
�P9�Z%=0�27:�#F%,Va_%(Z%),Va_$(Z%):�:supp_%()=0:Tr_%()=0
�Q�#F%,a_$:� supp
��supp_%()=0:Tr_%(1)=0
����Z%=0�E%:�#F%,CSuppliers_$(Z%),CSuNumber_%(Z%),CSuAd1_$(Z%),CSuAd2_$(Z%),CSuAd3_$(Z%),CSuAd4_$(Z%),CSuPos_$(Z%),CSuContac_$(Z%),CSuTel_$(Z%),CSuFa_$(Z%),CSuCom1_$(Z%),CSuCom2_$(Z%),CSuSuppRe_$(Z%),Csupp_$(Z%)
�ƀ�NewPref_%(3)>127:�#F%,dCSuppliers_$(Z%),dCSuAd1_$(Z%),dCSuAd2_$(Z%),dCSuAd3_$(Z%),dCSuAd4_$(Z%),dCSuPos_$(Z%),CSuDisc_$(Z%)
��&�#F%,CSuYourRe_$(Z%),CSuOrde_$(Z%)
��t�CSuNumber_%(Z%)<=Cmaxsupp_%:�supp_%(CSuNumber_%(Z%))=0�supp_%(CSuNumber_%(Z%))=Z% �CSuNumber_%(Z%)=0:Tr_%(1)+=1
��$�im_(F%,tem_$)=1�F%=0:Z%=E%:�:�
��ș&406C4,�#F%/l_%*100:�
���E%<Cmaxsupp_%�
��E_%=Cmaxsupp_%
��k�Z%=E%+1�Cmaxsupp_%:�supp_%(CSuNumber_%(Z%))=0�supp_%(CSuNumber_%(Z%))=Z% �CSuNumber_%(Z%)=0:Tr_%(1)+=1
���
���
��
E_%=E%
���
��Tr_%(1)>0�
�)�Z%=1�E_%:supp_%(CSuNumber_%(Z%))=1:�
� D_%=1:�Z%=1�E_%
��CSuNumber_%(Z%)=0�
�J�Cc_%=D_%�E_%:�supp_%(Cc_%)=0�CSuNumber_%(Z%)=Cc_%:D_%=Cc_%+1:Cc_%=E_%
��
� �
�%�
�*�
�/��#F%,Views_%,Viewp_%,Lstocknu_%,Ldescrip_%,Lsuppre_%,Lsup_%,Lstoc_%,Lpric_%,La4_%,Lus_%,Lcust_%,Ljle_%,Ljce_%,Ldow_%,Lacros_%,Lnumbe_%,Lstar_%,Lpagx_%,Lpagy_%,Lfon_x%,Lfon_y%,Cu_$
�4��#F%,Scontac_%,Snam_%,Saddres_%,Sa4_%,Sus_%,Scust_%,Sdow_%,Sacros_%,Snumbe_%,Sstar_%,Spagx_%,Spagy_%,Sfon_x%,Sfon_y%,SupFro_%,SupT_%,SsCom_$,SsPos_$
�9��#F%,CScontac_%,CSnam_%,CSaddres_%,CSa4_%,CSus_%,CScust_%,CSdow_%,CSacros_%,CSnumbe_%,CSstar_%,CSpagx_%,CSpagy_%,CSfon_x%,CSfon_y%,CSupFro_%,CSupT_%,CsCom_$,CsPos_$:ș&406C4,�#F%/l_%*100
�>��#F%,ListRecNu_%,ListStNu_%,ListDesc_%,ListSup_%,ListRe_%,ListCos_%,ListRetai_%,ListStoc_%,ListMi_%,ListQua_%,ListSol_%,ListMo_%,ListPr1_%,ListPr2_%,ListMar_%,ListDat_%,Lista4_%,Listus_%,Listcust_%,Listpagx_%,Listpagy_%
�C��#F%,Listfon_x%,Listfon_y%,Listfro_%,Listt_%,Listlef_%,Listtop_%,Listspac_%,Da4_%,Dus_%,Dcust_%,Dpagx_%,Dpagy_%,Dfon_x%,Dfon_y%,Dlef_%,Dtop_%,Dspac_%
�H��#F%,SLRecNu_%,SLsupplie_%,SLad1_%,SLad2_%,SLad3_%,SLad4_%,SLpos_%,SLcon_%,SLtel_%,SLfa_%,SLcom1_%,SLcom2_%,SLsuppre_%,SLyourre_%,SLordpr_%,SLa4_%,SLus_%,SLcust_%,SLpagx_%,SLpagy_%,SLfon_x%,SLfon_y%,SLfro_%,SLt_%,SLlef_%
�M��#F%,SLtop_%,SLspac_%,Sjle_%,Sjce_%,Oa4_%,Ous_%,Ocust_%,Opagx_%,Opagy_%,Unam_$,Uad1_$,Uad2_$,Uad3_$,Uad4_$,Uad5_$,Upos_$,Ute_$,Ufa_$,Uva_$,Cal1_$,Cal2_$,Cal3_$,Cal4_$,CalTo_%,IOa4_%,IOus_%,IOcust_%,IOpagx_%,IOpagy_%
�R��#F%,CSLRecNu_%,CSLsupplie_%,CSLad1_%,CSLad2_%,CSLad3_%,CSLad4_%,CSLpos_%,CSLcon_%,CSLtel_%,CSLfa_%,CSLcom1_%,CSLcom2_%,CSLsuppre_%,CSLyourre_%,CSLordpr_%,CSLa4_%,CSLus_%,CSLcust_%,CSLpagx_%,CSLpagy_%
�Wx�#F%,CSLfon_x%,CSLfon_y%,CSLfro_%,CSLt_%,CSLlef_%,CSLtop_%,CSLspac_%,CSjle_%,CSjce_%,Calt1_%,Calt2_%,Calt3_%,Calt4_%
�\1�#F%,j_f%,j_f1%,j_f2%,j_f3%,j_f4%,j_f5%,j_f6%
�a��#F%,Oborder%,Oruler%,Odsize_%,Odgap_%,Oisupplie_$,Oinumbe_%,Oanumbe_%,Oafro_%,Oat_%,BestF_%,BestP_%,BestL_$,BestD_$,Sasav_%,savesal_%,IOborder%,IOruler%,IOdsize_%,IOdgap_%
�f(�#F%,pass1_$,pass2_$,pass3_$,pass4_$
�kb�#F%,Otoday_$,valfro_$,valt_$,Sfindnu_$,Sufindnu_$,Autosav_%,CSufindnu_$:ș&406C4,�#F%/l_%*100
�pm�Z%=1�maxifont_%:�#F%,Ofontname_$(Z%):�:�Z_%<>65��Z%=maxifont_%+1�255:�#F%,a_$:�:�im_(F%,tem_$)=1�F%=0:�
�u:�#F%,Oisupnum_%,ITcop_$,ITes_%,ITdis_$,ITre_$,ITpric_$
�z.�Z%=1�108:�#F%,Shead1_$(Z%),Phead1_$(Z%):�
��-�Z%=1�12:�#F%,BankNN_$(Z%),BankOO_%(Z%):�
����Z%=0�NewPref_%(0)*sitip_%:�#F%,SITa_$(Z%),SITh_$(Z%),SITs_$(Z%),SITn_%(Z%):�:�Z%=0�NewPref_%(1)*sitip_%:�#F%,PITa_$(Z%),PITh_$(Z%),PITs_$(Z%),PITn_%(Z%):�
��Q�Z%=0�NewPref_%(2)*sitip_%:�#F%,BITf_$(Z%),BITt_$(Z%):�:ș&406C4,�#F%/l_%*100
���Sheadt1_%()=0:Pheadt1_%()=0:�Z%=1�NewPref_%(0)*sitip_%*sitif_%:�#F%,SITe_$(Z%):�im_(F%,tem_$)=1�F%=0:Z%=NewPref_%(0)*sitip_%*sitif_%:�:Sheadt1_%()=0:�
���Z%�sitif_%=0�
��Ha_%=�ni_(SITe_$(Z%-5)):b_%=�ni_(SITe_$(Z%-3)):c_%=�ni_(SITe_$(Z%-2))
��}�SITe_$(Z%-1)<>""�SITe_$(Z%-1)=�caps_(SITe_$(Z%-1)):A_%=�(SITe_$(Z%-1))-65:B_%=�(�SITe_$(Z%-1),1))-65:aa_%=A_%*40+B_%*5+2
����SITe_$(Z%-1)<>"":�A_%<12�B_%<8�Sheadt1_%(aa_%)=�add_(Sheadt1_%(aa_%),c_%):Sheadt1_%(aa_%+2)=�add_(Sheadt1_%(aa_%+2),b_%):Sheadt1_%(aa_%+1)=Sheadt1_%(aa_%+1)+(a_%-c_%)
����SITe_$(Z%-7)<>"":SITe_$(Z%-7)=�caps_(SITe_$(Z%-7)):A_%=�(SITe_$(Z%-7))-64:�A_%<13:BankCC_%(A_%)=�add_(BankCC_%(A_%),c_%):�SITs_$(Z%/sitif_%-1)=Q_$:BankSS_%(A_%)=�add_(BankSS_%(A_%),c_%)
��)�SITe_$(Z%-8)=""�SITn_%(Z%/sitif_%)=0
���ș&406C4,�#F%/l_%*100:�Tr_%(1)>0:�SITe_$(Z%-8)<>"":�getcun_(SITn_%(Z%/sitif_%))<>SITe_$(Z%-8)�SITn_%(Z%/sitif_%)=�getcup_(SITe_$(Z%-8))
���
��W�:�Z%=0�sitin_%-1:�#F%,SITep_$(Z%):�:�Z%=0�sitip_%*3:�#F%,SITap_$(Z%):�:�#F%,sitp_%
���Z%=1�NewPref_%(1)*sitip_%*sitif_%:�#F%,PITe_$(Z%):�im_(F%,tem_$)=1�F%=0:Z%=NewPref_%(1)*sitip_%*sitif_%:�:Pheadt1_%()=0:�
���Z%�sitif_%=0�
��Ha_%=�ni_(PITe_$(Z%-5)):b_%=�ni_(PITe_$(Z%-3)):c_%=�ni_(PITe_$(Z%-2))
��}�PITe_$(Z%-1)<>""�PITe_$(Z%-1)=�caps_(PITe_$(Z%-1)):A_%=�(PITe_$(Z%-1))-65:B_%=�(�PITe_$(Z%-1),1))-65:aa_%=A_%*40+B_%*5+2
�ޫ�PITe_$(Z%-1)<>"":�A_%<12�B_%<8�Pheadt1_%(aa_%)=�add_(Pheadt1_%(aa_%),c_%):Pheadt1_%(aa_%+2)=�add_(Pheadt1_%(aa_%+2),b_%):Pheadt1_%(aa_%+1)=Pheadt1_%(aa_%+1)+(a_%-c_%)
���PITe_$(Z%-7)<>"":PITe_$(Z%-7)=�caps_(PITe_$(Z%-7)):A_%=�(PITe_$(Z%-7))-64:�A_%<13:BankCC_%(A_%)=�add_(BankCC_%(A_%),-c_%):�PITs_$(Z%/sitif_%-1)=Q_$:BankSS_%(A_%)=�add_(BankSS_%(A_%),-c_%)
��PITn_%(Z%/sitif_%)=0
��ș&406C4,�#F%/l_%*100
���
����:�Z%=0�sitin_%-1:�#F%,PITep_$(Z%):�:�Z%=0�sitip_%*3:�#F%,PITap_$(Z%):�:�#F%,pitp_%,Autowar_%,Salewar_%,Exitwar_%,pass5_$,pass6_$,pass7_$,ITacc_$,IThead_$,SAacc_$,SAhead_$,ITcomm_$,SAcust_$,SAref_$,SAcomm_$
���Z%=1�NewPref_%(2)*sitip_%*bitif_%:�#F%,BITe_$(Z%):�im_(F%,tem_$)=1�F%=0:Z%=NewPref_%(2)*sitip_%*bitif_%:�:BankCC_%()=0:BankSS_%()=0:�
��Z%�bitif_%=7�
� 0c_%=�ni_(BITe_$(Z%-2)):ș&406C4,�#F%/l_%*100
���BITe_$(Z%-4)<>"":BITe_$(Z%-4)=�caps_(BITe_$(Z%-4)):A_%=�(BITe_$(Z%-4))-64:�A_%<13:BankCC_%(A_%)=�add_(BankCC_%(A_%),-c_%):�caps_(BITe_$(Z%-3))>"P":BankSS_%(A_%)=�add_(BankSS_%(A_%),-c_%)
���BITe_$(Z%-1)<>"":BITe_$(Z%-1)=�caps_(BITe_$(Z%-1)):A_%=�(BITe_$(Z%-1))-64:�A_%<13:BankCC_%(A_%)=�add_(BankCC_%(A_%),c_%):�caps_(BITe_$(Z%))>"P":BankSS_%(A_%)=�add_(BankSS_%(A_%),c_%)
��
� I�:�Z%=0�bitin_%-1:�#F%,BITep_$(Z%):�:�Z%=0�sitip_%*2:�#F%,BITap_$(Z%)
�$�
�.8�Z%=1�7:�#F%,SaledF_$(Z%),PaledF_$(Z%),BankF_$(Z%):�
�3-�Z%=1�25:�#F%,SaledR_$(Z%),PaledR_$(Z%):�
�8-�Z%=1�17:�#F%,SaledR_%(Z%),PaledR_%(Z%):�
�= �Z%=1�15:�#F%,BaledR_$(Z%):�
�B �Z%=1�11:�#F%,BaledR_%(Z%):�
�G)�Z%=0�44:�#F%,VatR_$(Z%),VatT_%(Z%):�
�L6�Z%=0�10:�#F%,VatC_$(Z%),VatC_%(Z%):�:�#F%,pass8_$
�Q5�#F%,prefn_%,prefye_%,you_$:ș&406C4,�#F%/l_%*100
�V9�Z%=0�ti_%:�#F%,inv11_%(Z%),inv22_%(Z%),inv33_%(Z%):�
�[[�#F%,Xpagx_%,Xpagy_%,Xnam_%,Xfon_x%,Xfon_y%,Xaspac_%,Xatab_%,Xnam_$,Xa4_%,Xus_%,Xcust_%
�`2�#F%,Stat1_$,Stat2_$,Stat3_$,SBestP_%,SBestF_%
�b�#F%,A%:� SIOjust etc
�j2�#F%,SIOborder%,SIOruler%,SIOdsize_%,SIOdgap_%
�o6�#F%,SIOa4_%,SIOus_%,SIOcust_%,SIOpagx_%,SIOpagy_%
�t �im_(F%,tem_$)=1�F%=0:�
�y�Z%=0�3996�4:�#F%,A%:�
�~��Z%=1�maxT_%*sitip_%*sitif_%:�#F%,TITe_$(Z%):�:�Z%=0�sitin_%-1:�#F%,TITep_$(Z%):�:�Z%=0�sitip_%*3:�#F%,TITap_$(Z%):�:�#F%,titp_%
��Z%=0�maxT_%*sitip_%:�#F%,TITa_$(Z%),TITh_$(Z%),TITs_$(Z%),TITe_%(Z%),TITn_%(Z%):�:�#F%,SaveaB_$,Tnam_$:�Z%=0�12:�#F%,Es_$(Z%),Ec_$(Z%)
�:�im_(F%,tem_$)=1�F%=0:�
0��Tnam_$,2)=" *"�Tnam_$=�Tnam_$,�(Tnam_$)-2)
3�Z%=0�399:�#F%,bl_$(0):�:�#F%,passA_$:� P&L etc
R�Z%=0�479�5:�#F%,Sheadt1_%(Z%),Sheadt1_%(Z%+1),Pheadt1_%(Z%),Pheadt1_%(Z%+1):�
¦Lș&406C4,�#F%/l_%*100:�Z%=0�10:�#F%,WatC_$(Z%),WatC_%(Z%):�:�#F%,pass9_$
«��Z%=0�11:�#F%,bl1_%(Z%):�:�Z%=0�16:�#F%,pc_$(Z%):�:�#F%,prefs1_%,prefsn1_%:�Z%=17�19:�#F%,pc_$(Z%):�:�#F%,prefs2_%,prefsn2_%
°]�#F%,C_%,S_%,CS_%:�#F%,ITll_%:�NewPref_%(3)>125:�#F%,lm_%,tm_%:�Z%=0�B%:�#F%,StHd_$(Z%):�
µ �#F%:F%=0:end_%=0:sa_%=0
º�NewPref_%(7)=-1�
¿��Z%=0�479�5:Sheadt1_%(Z%)=�add_(Sheadt1_%(Z%+2),Sheadt1_%(Z%+3)):Sheadt1_%(Z%+1)=Sheadt1_%(Z%+4):Pheadt1_%(Z%)=�add_(Pheadt1_%(Z%+2),Pheadt1_%(Z%+3)):Pheadt1_%(Z%+1)=Pheadt1_%(Z%+4):�
��0ș&406C1:�SiSort_:�PiSort_:�BiSort_:ș&406C0
��=�Z%=0�11:BankOO_%(Z%+1)=�add_(BankOO_%(Z%+1),bl1_%(Z%)):�
���
�� ș&406C1
��?Savea_$=tem_$:�save%>0�$!Saveas_%=tem_$:Z%=�window("Ssave")
��IOrderch%()=1:IOch_%=1
���C_%>M_%:C_%=M_%
�� �S_%>maxsupp_%:S_%=maxsupp_%
��$�CS_%>Cmaxsupp_%:CS_%=Cmaxsupp_%
��7�oldfont_:�Cuplsup_:�uplheads_:�uplheadp_:�uplbank_
�:�n_%>-1�pass1_$<>""�edit%>0��sw_(edit%):�closeW(edit%)
��n_%>-1�Z%=�mainW_
�
�upstand_
��
�
]ݤim_(F_%,tem_$):�-�<mem_%�ș&406C1:moremem_%=mem_%:moremem_$=tem_$:�#F_%:end_%=2:=1 �=0
�
� ݤmaxmem_:� A%:mem8_%=0:A%=0
�2�mem8_%<M_%*mem1_%�mem8_%=M_%*mem1_%:A%=mem1_%
� >�mem8_%<maxsupp_%*mem2_%�mem8_%=maxsupp_%*mem2_%:A%=mem2_%
�#@�mem8_%<Cmaxsupp_%*mem3_%�mem8_%=Cmaxsupp_%*mem3_%:A%=mem3_%
�(8�mem8_%<maxS_%*mem4_%�mem8_%=maxS_%*mem4_%:A%=mem4_%
�-8�mem8_%<maxP_%*mem5_%�mem8_%=maxP_%*mem5_%:A%=mem5_%
�28�mem8_%<maxB_%*mem6_%�mem8_%=maxB_%*mem6_%:A%=mem6_%
�7f�mem8_%<maxS_%*mem4_%+maxP_%*mem5_%+maxB_%*mem6_%�mem8_%=maxS_%*mem4_%+maxP_%*mem5_%+maxB_%*mem6_%
�<=A%
�A#ݤclf_(Z_%):�Z_%>0��#Z_%:=0 �=0
�Fݤload1_(temp_$)
�KM� A%,B%,C%,D%,E%,F%,G%,Z%,A_%,B_%,C_%,D_%,E_%,F_%,G_%,H_%,I_%,J_%,K_%,L_%
�P� �
�U$� � �:� �:moremem_%=0:=�clf_(F%)
�ZF%=0
�_F%=�(temp_$)
�dK�#F%,B%,C%,D%,M_%,maxsupp_%,Cmaxsupp_%,maxS_%,maxP_%,maxB_%,A_%,B_%,C_%
�iDN_%=�maxmem_:�maxsupp_%>Cmaxsupp_%�N_%=maxsupp_% �N_%=Cmaxsupp_%
�numoremem_%=M_%*mem1_%+maxsupp_%*mem2_%+Cmaxsupp_%*mem3_%+maxS_%*mem4_%+maxP_%*mem5_%+maxB_%*mem6_%+N_%*mem7_%+�#F%
�s#ș&400EC,-1,-1 � Z1_%,Z2_%,Z3_%
�x)D_%=moremem_%-(�-�):G%=D_%+mpa_%-Z3_%
�}�D_%+mpa_%>Z3_%�
ÂiE_%=M_%-B%:F_%=maxsupp_%-C%:G_%=Cmaxsupp_%-D%:H_%=maxS_%-A_%:I_%=maxP_%-B_%:J_%=maxB_%-C_%:reduce_%=1
�:L_%=moremem_%
ÌE%=E_%:K_%=1
�E%<F_%�E%=F_%:K_%=2
Ö�E%<G_%�E%=G_%:K_%=3
Û�E%<H_%�E%=H_%:K_%=4
à�E%<I_%�E%=I_%:K_%=5
å�E%<J_%�E%=J_%:K_%=6
ê�E%<1�K_%=0
ï Ȏ K_% �
ô8� 1:E_%-=1:M_%-=1:�#F%=15:�#F%,M_%:moremem_%-=mem1_%
ùl� 2:F_%-=1:maxsupp_%-=1:�#F%=20:�#F%,maxsupp_%:moremem_%-=mem2_%:�maxsupp_%>Cmaxsupp_%�moremem_%-=mem7_%
þn� 3:G_%-=1:Cmaxsupp_%-=1:�#F%=25:�#F%,Cmaxsupp_%:moremem_%-=mem3_%:�Cmaxsupp_%>maxsupp_%�moremem_%-=mem7_%
��>� 4:H_%-=1:maxS_%-=1:�#F%=30:�#F%,maxS_%:moremem_%-=mem4_%
��>� 5:I_%-=1:maxP_%-=1:�#F%=35:�#F%,maxP_%:moremem_%-=mem5_%
��>� 6:J_%-=1:maxB_%-=1:�#F%=40:�#F%,maxB_%:moremem_%-=mem6_%
���
��<D_%=D_%=moremem_%-(�-�):ș&406C4,(D_%+mpa_%-Z3_%)/G%*100
��!�D_%+mpa_%<Z3_%�L_%=moremem_%
���D_%>Z3_%�moremem_%=0
���
���#F%
��=moremem_%
�
� ݤcheckmaxst1_:� A%,Z%:=12
� ݤcheckmaxsu1_:� A%,Z%:=10
� ݤCcheckmaxsu1_:� A%,Z%:=30
�' ݤcheckmaxS1_:� A%,Z%:=30
�6 ݤcheckmaxP1_:� A%,Z%:=30
�E ݤcheckmaxB1_:� A%,Z%:=10
�T
�YFݤswpc_(A_%):�A_%>64�A_%<97�=A_%+32 ��A_%>96�A_%<123�=A_%-32 �=A_%
�^
�c$ݤgn_(A_$):� Z%,Z_%:�Z%=1��(A_$)
�h3�A_$,Z%,1)>"/"��A_$,Z%,1)<":"�Z_%=Z%:Z%=�(A_$)
�m
�:=Z_%
�r
�wݤupdatenum_(A$,L%)
�|� A%,B%,Z%,B$,C$,D$
ā�A$=""�=""
�Z%=�(A$)�1�-1
ċ+�A$,Z%,1)>"/"��A$,Z%,1)<":"�A%=Z%:Z%=1
�
ĕ
�A%>0�
�Z%=A%�1�-1
ğ+�A$,Z%,1)<"0"��A$,Z%,1)>"9"�B%=Z%:Z%=1
Ĥ�
ĩB$=�A$,B%)
ĮD$=�A$,A%+1,255)
ij C$=�(�(�A$,B%+1,A%-B%))+1)
ĸ�
Ľ=�B$+C$+D$,L%)
��ݤupdatenum2_(A$)
��� A%,B%,Z%,B$,C$,D$
��A%=�A$,"�"):�A%<1�=""
��A%+=1:B$=�A$,A%-1)
��B%=�(A$)+1:�Z%=A%��(A$)
��/�A$,Z%,1)<"0"��A$,Z%,1)>"9"�B%=Z%:Z%=�(A$)
���
�� C$=�(�(�A$,A%,B%-A%))+1)
��D$=�A$,B%,255)
��
=B$+C$+D$
��
�1ݤcaps_(A_$):� H%:H%=t_%:$t_%=A_$:�m1_%:=$t_%
�
�ݤsavesalesledger_(A_%)
� � a_%,Z$
�
<� A_%=1 Cash sales A_%=2 Invoice A_%=3 RECEIPT 4=PAYMENT
�error_%=1:a_%=W%
�e�A_%<3:�Salewar_%=1�Z$=�alert("About to Save to the Sales Ledger OK?","","YES","NO","ar_quest",1)
�
W%=a_%
�!
error_%=0
�&�Z$="NO"�=�
�+ �A_%=1:�SAledger_=� �=�
�0�A_%=2��ITledger_
�5 �A_%=3:�REledger_(0)=� �=�
�: �A_%=4:�PEledger_(0)=� �=�
�? �A_%=5:�BEledger_=� �=�
�D �A_%<3:�saled%=0��SiSort_
�I=�
�N
�Sݤfirstfreesale_
�X� A%,B%,C%,D%,E%,Z%
�] t6_%()=0
�b �D%=1�6
�g�Z%=E%�maxS_%*sitip_%-1
�l
B%=0:C%=0
�q-�A%=Z%*sitif_%+1�(Z%*sitif_%+1)+sitif_%-1
�v4�SITe_$(A%)<>""�B%=1:A%=(Z%*sitif_%+1)+sitif_%-1
�{�
ŀ%�B%=0�C%=Z%+1:Z%=maxS_%*sitip_%-1
Ņ�
Ŋ#�B%=0�t6_%(D%)=(C%-1)*sitif_%+1
ŏ E%=C%
Ŕ �B%=1�C%=maxS_%*sitip_%�D%=6
ř�
Ş=�
ţ
Ũݤfreesale_
ŭ� A_%,B%,C%,Z%
Ų �Z%=1�6
ŷ&�Itot_%(Z%)<>0�Ivat_%(Z%)<>0�B%+=1
ż�t6_%(Z%)<>0�A_%+=1
��
���B%>A_%�=1
��=0
��
��ݤfirstfreepaym_(A_%)
��� A%,B%,C%,Z%
���A_%=1�A_%=lastpos_%
�� �Z%=A_%�maxP_%*sitip_%-1
��2B%=0:�A%=Z%*sitif_%+1�(Z%*sitif_%+1)+sitif_%-1
��4�PITe_$(A%)<>""�B%=1:A%=(Z%*sitif_%+1)+sitif_%-1
���
�2�B%=0�C%=Z%+1:lastpos_%=Z%:Z%=maxP_%*sitip_%-1
��
��B%=1�=maxP_%*sitip_%-1
�=C%
� ݤfirstfreesal_(A_%)
�� A%,B%,C%,Z%
��A_%=1�A_%=lastpos1_%
� �Z%=A_%�maxS_%*sitip_%-1
� 2B%=0:�A%=Z%*sitif_%+1�(Z%*sitif_%+1)+sitif_%-1
�%4�SITe_$(A%)<>""�B%=1:A%=(Z%*sitif_%+1)+sitif_%-1
�*�
�/3�B%=0�C%=Z%+1:lastpos1_%=Z%:Z%=maxS_%*sitip_%-1
�4�
�9�B%=1�=maxS_%*sitip_%-1
�>=C%
�Cݤfirstfreetal_(A_%)
�H� A%,B%,C%,Z%
�M�A_%=1�A_%=lastpos3_%
�R �Z%=A_%�maxT_%*sitip_%-1
�W2B%=0:�A%=Z%*sitif_%+1�(Z%*sitif_%+1)+sitif_%-1
�\4�TITe_$(A%)<>""�B%=1:A%=(Z%*sitif_%+1)+sitif_%-1
�a�
�f3�B%=0�C%=Z%+1:lastpos3_%=Z%:Z%=maxT_%*sitip_%-1
�k�
�p�B%=1�=maxT_%*sitip_%-1
�u=C%
�zݤfirstfreebank_(A_%)
�� A%,B%,C%,Z%
Ƅ�A_%=1�A_%=lastpos2_%
Ɖ �Z%=A_%�maxB_%*sitip_%-1
Ǝ2B%=0:�A%=Z%*bitif_%+1�(Z%*bitif_%+1)+bitif_%-1
Ɠ4�BITe_$(A%)<>""�B%=1:A%=(Z%*bitif_%+1)+bitif_%-1
Ƙ�
Ɲ3�B%=0�C%=Z%+1:lastpos2_%=Z%:Z%=maxB_%*sitip_%-1
Ƣ�
Ƨ�B%=1�=maxB_%*sitip_%-1
Ƭ=C%
Ʊ
ƶH��ITledger_:� A_%,C%,Z%,Z_%,a_%:olddata_$(11)="":lastpos1_%=0:A_%=-1
ƻ@�chdate_($!ITda1_%)=""�$!ITda1_%=today_$:�rI(invW%,"ITda1")
�-�Z%=0�95:�vt_%(Z%)<>0:Z_%+=1:�Z_%=2�Z%=95
���A_%=-1:�Z_%=1:A_%=Z%
���:a_%=�getiflag(85)
�� �Z_%<2�
�� �Z%=1�6
���Z_%>1:Itot_%(Z%)=0
��1�Itot_%(Z%)<>0�Ivat_%(Z%)<>0�Z%=6�C%=0�Z_%<2�
��@�inv11_%(0)=-1�Itot_%(Z%)=-Itot_%(Z%):Ivat_%(Z%)=-Ivat_%(Z%)
��:C%+=1:�saled%>0��SITdown_(sitp_%-(t6_%(C%)/sitif_%-1))
���SITe_$(t6_%(C%))=$!ITda1_%:SITe_$(t6_%(C%)+1)=�$!ITda1_%,7):SITe_$(t6_%(C%)+2)=$!ITsupplier_%:SITe_$(t6_%(C%)+3)=ITacc_$:SITe_$(t6_%(C%)+4)=ITnumb_$:SITe_$(t6_%(C%)+5)=�convis_(�add_(Itot_%(Z%),Ivat_%(Z%)),"")
��PSITe_$(t6_%(C%)+6)=�Ivat_$(Z%),1):SITe_$(t6_%(C%)+7)=�convis_(Ivat_%(Z%),"")
�B�a_%=1�SITe_$(t6_%(C%)+8)=SITe_$(t6_%(C%)+5):olddata_$(11)="R"
�bSITe_$(t6_%(C%)+9)=IThead_$:SITe_$(t6_%(C%)+10)=ITcomm_$:�savesaleledger2_(t6_%(C%)/sitif_%,1)
��
��
� �
��olddata_$(0)=$!ITda1_%:olddata_$(1)=�$!ITda1_%,7):olddata_$(2)=$!ITsupplier_%:olddata_$(3)=ITacc_$:olddata_$(4)=ITnumb_$:olddata_$(10)=ITcomm_$
� �Z_%>1�
��Z%=0�95:�vt_%(Z%)<>0�
� :�inv11_%(0)=-1�vt_%(Z%)=-vt_%(Z%):vt1_%(Z%)=-vt1_%(Z%)
�$�olddata_$(5)=�convis_(�add_(vt_%(Z%),vt1_%(Z%)),""):olddata_$(7)=�convis_(vt1_%(Z%),""):olddata_$(9)=�(Z%/8+65)+�(Z%�8+65):olddata_$(6)=�vt_$(Z%),1)
�)X�a_%=1�olddata_$(8)=olddata_$(5):olddata_$(11)="R" �olddata_$(8)="":olddata_$(11)=""
�.�REledger_(1)=�:Z%=95
�3�
�8�
�=�
�B�
�G
�ݤREledger_(a_%)
� � A%,Z%
� UZ%=�firstfreesal_(1):�Z%=maxS_%*sitip_%-1�error_%=1:ș&406C1:�wl_(25):ș&406C0:=�
�#BZ%=(Z%-1)*sitif_%+1:�saled%>0��SITdown_(sitp_%-(Z%/sitif_%-1))
�(a�A%=0�10:SITe_$(Z%+A%)=�strip_(olddata_$(A%)):�:�a_%=2:SITn_%(Z%/sitif_%+1)=CSuNumber_%(CS_%)
�-%�savesaleledger2_(Z%/sitif_%,a_%)
�2=�
�7
�<ݤPEledger_(a_%)
�A � A%,Z%
�F7�a_%=2:Z%=�firstfreepaym_(0) �Z%=�firstfreepaym_(1)
�H@�Z%=maxP_%*sitip_%-1�error_%=1:ș&406C1:�wl_(25):ș&406C0:=�
�KBZ%=(Z%-1)*sitif_%+1:�paled%>0��PITdown_(pitp_%-(Z%/sitif_%-1))
�P_�A%=0�10:PITe_$(Z%+A%)=�strip_(olddata_$(A%)):�:�a_%=2:PITn_%(Z%/sitif_%+1)=SuNumber_%(S_%)
�U&�savepurchledger2_(Z%/sitif_%,a_%)
�Z=�
�_
�djݤBEledger_:� A%,Z%:Z%=�firstfreebank_(1):�Z%=maxB_%*bitip_%-1�error_%=1:ș&406C1:�wl_(25):ș&406C0:=�
�iBZ%=(Z%-1)*bitif_%+1:�bankl%>0��BITdown_(bitp_%-(Z%/bitif_%-1))
�n(�olddata_$(11)="R"�olddata_$(11)="�"
�s(�olddata_$(12)="R"�olddata_$(12)="�"
�x�BITe_$(Z%)=olddata_$(0):BITe_$(Z%+1)=olddata_$(4):BITe_$(Z%+2)=olddata_$(3):BITe_$(Z%+3)=olddata_$(11):BITe_$(Z%+4)=olddata_$(5):BITe_$(Z%+5)=olddata_$(9):BITe_$(Z%+6)=olddata_$(12):BITe_$(Z%+7)=olddata_$(10)
�}%�savebankledger2_(Z%/bitif_%):=Z%
Ȃ
ȇ#ݤgH_:�heap_size%>0�=heap_size%
ȌDș&51 � heap_psize%:ș"OS_GetEnv" � ,tblock_%:heap_size%=0:=�eH_
ȑ
Ȗ`��fH_:� slot%:�heap_size%>0:ș&400EC,-1,-1 � slot%:ș&400EC,slot%-heap_size%,-1:heap_size%=0
ț�
Ƞ
ȥIݤeH_:� slot%:ș&400EC,-1,-1 � slot%,,mslot_%:�mslot_%<heap_psize%�=0
ȪEș&400EC,slot%+heap_psize%,-1:heap_size%+=heap_psize%:=heap_size%
ȯ���as1_:� l_%,P%,a:�l_%=0�2�2:P%=m1_%:[OPTl_%:STMFD R13!,{R0-R9,R14}:MOV R4,#0:.a:LDRB R0,[R7,R4]:CMP R0,#�"a":RSBHSS R1,R0,#�"z":SUBHS R0,R0,#&20:STRB R0,[R7,R4]:ADD R4,R4,#1:CMP R0,#13:BNE a
ȴ LDMFD R13!,{R0-R9,R15}:]:�:�
ȹ���as2_:� P%,l_%,a,b:�l_%=0�2�2:P%=m2_%:[OPT l_%:STMFD R13!,{R0-R9,R14}:MOV R9,#0:.a:LDRB R0,[R6,R9]:CMP R0,#�"a":RSBHSS R1,R0,#�"z":SUBHS R0,R0,#&20:STRB R0,[R6,R9]:ADD R9,R9,#1:CMP R0,#13:BNE a
Ⱦ�MOV R9,#0:.b:LDRB R2,[R7,R9]:CMP R2,#�"a":RSBHSS R3,R2,#�"z":SUBHS R2,R2,#&20:STRB R2,[R7,R9]:ADD R9,R9,#1:CMP R2,#13:BNE b:LDMFD R13!,{R0-R9,R15}:]:�:�
�ý��as3_:� P%,l_%,a:�l_%=0�2�2:P%=m3_%:[OPT l_%:STMFD R13!,{R0-R4,R14}:MOV R4,#0:MOV R3,#0:.a:LDRB R0,[R7,R4]:CMP R0,#�"a":RSBHSS R1,R0,#�"z":SUBHS R0,R0,#&20:CMP R0,#64:STRGTB R0,[R7,R3]
��jADDGT R3,R3,#1:MOVGT R0,#13:ADD R4,R4,#1:CMP R0,#13:BNE a:STRB R0,[R7,R3]:LDMFD R13!,{R0-R4,R15}:]:�:�
��
��d��init:�A%,A$,B%,B$,C%,C$,D%,D$,E%,Psprites%,a_$,a_%:Z$="":�Choices$(3):� � �$+" at line "+Þ:�
��B$="<Obey$Dir>.Choices"
�ܡA%=�(B$):�#A%,Level$,Pass$,Debug%,ShowName%,Help%,Last$,Z$,SaveChoices%,Z%,Choices$(0),Choices$(1),Choices$(2),Choices$(3),Info_$:�#A%:Pass$=�cdS(Pass$):E%=�
��A$="4000,0,16"
���CloseW%=3:PtrLeave%=4:PtrEnter%=5:Click%=6:KeyPress%=8:LoseCaret%=11:GainCaret%=12:CreateW%=193:Key13%=194:Wspace%=195:ClosedW%=198:PopUpW%=256:DoTail%=257:StaticW%=258:ChangeM%=259:Quit%=260:RamT%=261
��I%=�:�J%63:K%=�:M%=�:N%=�:P%=�:R%=�:T%=�:U%=�:E$="":F$="":G$="":H$="":A=0:B=0:C=0:D=0:E=0:F=0:G=0:H=0:d$="":f$="":z$="":A%=6663:B%=�(�pS(A$,",")):�B%<1200�B%=1200
���A%+=B%:�S%A%,S%!164 64:B%=S%!164:C%=&80D02:șC%,0�,A%:B%!0=A%:șC%,1�,A%:B%!4=A%:șC%,2�,A%:B%!8=A%:șC%,3�,A%:B%!12=A%:șC%,4�,A%:B%!16=A%:șC%,5�,A%:B%!20=A%:șC%,8�,A%:B%!24=A%:șC%,9�,A%:B%!28=A%
�@șC%,11�,A%:B%!36=A%:șC%,12�,A%:B%!40=A%:șC%,14�,A%:!S%=A%
���sBw(S%+4,160,0):�sBw(S%+168,6496,0):Q%=S%+6664:S%!8=Q%:$(S%+20)="_":S%!112=S%+1544:S%!116=S%+1800:S%!120=S%+2056:O%=S%+2312:S%!124=O%:W%=S%+2568
�XS%!44=HI_%:ș29,0,S%!44,,HM%-S%!44:S%!48=�:D%=�(�pS(A$,",")):S%!80=D%:�D%>0��S%!76D%
�!S%!128=�:S%!148=E%:S%!156=100
� �S%!188=�:�gMi:S%!212=&8028C0:S%!216=�:S%!248=�(�pS(A$,","))-2:ș81�D%:S%!292=D%:S%!324=�:�S%!424 31,S%!492 31:S%!456=�:S%!552=�:S%!556=�
��B%=S%+1024:an%=B%:cn%=B%+24:dn%=B%+36:en%=B%+48:fn%=B%+60:ln%=B%+132:mn%=B%+144:nn%=B%+156:pn%=B%+180:rn%=B%+204:sn%=B%+216:wn%=B%+264:$an%="":$cn%="":$dn%="":$en%="":$fn%="":$ln%="":$mn%="":$nn%="":$pn%="":$rn%="":$sn%="":$wn%=""
��B%=S%+1336:a%=B%:a0%=B%+4:b%=B%+8:b0%=B%+12:c%=B%+16:d%=B%+24:d0%=B%+28:e%=B%+32:e0%=B%+36:f%=B%+40:f0%=B%+44:g%=B%+48:g0%=B%+52:h%=B%+56:h0%=B%+60:i%=B%+64:i0%=B%+68:j%=B%+72:j0%=B%+76:k%=B%+80:k0%=B%+84:l%=B%+88:l0%=B%+92:m%=B%+96:m0%=B%+100
��n%=B%+104:q%=B%+128:r%=B%+136:r0%=B%+140:s%=B%+144:t%=B%+152:t0%=B%+156:v%=B%+168:v0%=B%+172:w%=B%+176:w0%=B%+180:x%=B%+184:x0%=B%+188:y%=B%+192:y0%=B%+196:z%=B%+200:z0%=B%+204
� h!v0%=856:!w%=W%:W%+=256:C%=0:�B%=!w%+12�!w%+12+15*256�256:!B%=-255:B%!28=�:B%!184=�:B%!36=C%:C%+=1:�
�"��C%(1,6),I%(16),M%(16),M$(16),T$(31),z$(16):C%()=-1:C%(0,6)=0:�+0:�A%=0�14:�?(S%+300+A%):�:�A%=0�31:�T$(A%):�:Poll$="":Tool%=0
�'RC$=�gSV("Obey$Dir"):$sn%=�gLn(C$):Appln$=C$:ș&400C0,200,&4B534154,$sn%�C%,!t%
�,O�C%<200��S%!212+2,"You need RISC-OS Wimp version 2.0 to run this program":�
�1��error:�
�6Y�sPO(1):S%!560=1:A%=S%!560<<3:�S%!60(A%<<2)+3:�S%!84(A%<<3)+7:�sB(S%!84,(A%<<3)+8,13)
�;�z$="_":$(S%!84)=z$:Z%=�i_(Appln$,0):S%!140=-1:S%!144=-1:C$="IconBar":$(S%+96)=C$:S%!72=�fM(C$):A%=�aR(S%!72):B%=A%+4:C%=0:D%=0:�B%+=24:E%=!B%:C%+=1:�E%�2�D%+=1
�@b�(E%�128)>0:S%!108=C%*(A%!20+A%!24)+A%!24+24*D%:B$=�pS(A$,","):�B$<>""�B$=��toUC(B$),1)�B$="R"
�E�B$="L"�!O%=-2�!O%=-1
�JGS%!340=!O%:O%!4=0:B$=�pS(A$,","):B$=�toLC(B$):�B$=""�B$=�toLC($sn%)
�O`O%!8=0:ș&400E9,296,,B$�,,,A%,B%:C%=�rMV(B%,4):O%!12=A%<<C%:O%!16=68:C$=�pS(A$,","):�C$<>""�
�TdB$="S"+B$+","+�toLC(C$):O%!20=&1701B11B:�O%!24 3:$(O%!24)="":A%=�B$:�O%!28A%:$(O%!28)=B$:O%!32=4
�Y �O%!20=&17003002:$(O%+24)=B$
�^#�:ș&400C2,,O%�!g%:ș&400D0,,-1
�c�
�h-�1,25,0,240,240,2,25,0,0,144,3,25,240,0,0
�m��"",Alert,Basic,Edit,Paint,Draw,Texture,Display,Form,Dialog,Menu,Scroll,Sprite,Animate,DataPad,MultiPad,Tools,View,"",ThreeDee,"",Film,"","","","","","","","","",Ambig
�r
�w���iRes(A$,B1%):�A%,B%,B2%,B$,C%,C$,D%,D$,E%,F%,G%,H%,Z$:E%=fn%:B%=0:!(S%!60+(B1%<<2))=0:B2%=(B1%�32)<<27:�ș12,9,A$,E%,1,B%,12�,,,,B%:�B%<>-1�
�|ED%=E%:ȕ?D%:D%+=1:�:?D%=13:B$=�toLC($E%):C$=A$+"."+B$:D%=�gFl(C$)
Ɂ
�D%>0�
ɆF%=�gFt(C$)
ɋ Ȏ� �
ɐ�F%=&FF9:ȎB$�
ɕt�"sprites":D%+=16:�A%D%:!A%=D%:A%!4=0:A%!8=16:A%!12=16:ș46,265,A%:ș8,16,C$,A%+4:!(S%!60+(B1%<<2))=A%:S%!144=A%
ɚ�"!sprites":S%!140=�
ɟ�
ɤ0�B$,1)="!",F%=&FFB,F%=&407,F%>=&FFF,F%=&AFF
ɩ��F%=&402:�B$="menus"��A%D%:C%=�ldF(C$,A%):A%!12=A%!12�B2%:A%!28=S%!56:S%!56=A%:D%=C%+C%!20:�F%=C%+52�C%+28+24*C%!16�24:!F%+=D%:F%!-8=F%!-8�B2%:Z%=�iM(!F%):�:C%!20=C%+32
ɮ�F%=&404:�B$="windows"�
ɳ��A%D%:C%=�ldF(C$,A%):A%!12=A%!12�B2%:A%!28=S%!64:S%!64=A%:D%=C%+C%!20:�F%=C%+52�C%+28+24*C%!16�24:!F%+=D%:F%!-8=F%!-8�B2%:$wn%=$(F%-20):H%=F%!-8>>>16�31:Z%=�iW(!F%,H%):�H%=10�
ɸpG%=!(!F%+36):�G%>0��A%G%-1:�sBw(A%,G%,0):G%=W%:W%=A%-52:R%=195:Z%=�("FNe"+z$):!(!F%+12)=A%:W%=G%�!(!F%+12)=0
ɽlA%=�aR(!F%):�cB(A%,Q%+4,88+(A%!84<<5)):R%=193:Z%=�("FNe"+z$):ș&400C1,,Q%+4�!h%:$(!F%+4)="":!(!F%+8)=!h%
���
���:C%!20=C%+32:S%!32=C%
���
��
���B$="key"�
�ۄ�A%D%:C%=�ldF(C$,A%):A%!12=A%!12�B2%:A%!28=S%!52:S%!52=A%:D%=C%+C%!20:�F%=C%+52�C%+28+24*C%!16�24:!F%+=D%:F%!-8=F%!-8�B2%:Ȏ$C%�
���"Key":Z%=�iKey(!F%)
���:�:C%!20=C%+32
���
���
���
� �:�B%=-1
��
� ݤi(A$,B%):�iRes(A$,B%):=�
�
�
7ݤiKey(A%):�B%,C%:�B%=A%�A%+&3FF�4:�!B%>512�!B%+=A%
�,�:�B%=A%+&600�A%+&7FF�4:�!B%>512�!B%+=A%
��:K%=A%:S%!24=A%:=�
� -ݤiM(A%):�B%,C%,D%,E%,F%,G$:C%=!A%:�C%>0�
�!EF%=�aR(A%):A%-=12:�B%=F%+28�F%+4+24*C%�24:A%+=16:E%=B%!8:�E%�256�
�&)B%!12+=F%:B%!16-=F%*(B%!16>1):�!B%�4�
�+ G$=$A%:�G$,"_")=0�G$+=z$
�0�cIV(G$,B%+12)
�5�:�E%�2�B%!16=1
�:�
�?�
�D�:=�
�InݤiW(A%,B1%):�B%,C%,C$,D%,E%,F%,G%,G1%,H%:F%=�aR(A%):F%!64=S%!144:E%=F%!84<<5:D%=F%+88+E%:A%!64=0:�B1%=10�
�N�F%!56�256�F%!72+=D%
�S
�E%>0�
�X=�C%=F%+104�F%+72+E%�32:�!C%�256�C%!4+=D%:�C%!8>0�C%!8+=D%
�]�
�b8�:E%=!A%<<4:D%=F%+72:F%=14<<12:G%=F%+(1<<23):�E%>64�
�g$�C%=A%+80�A%+E%�16:�(!C%�17)=17�
�l*H%=D%+((!C%�&FF00)>>>3):�(!H%�G%)>=F%�
�q3C$=$(C%-12):�C$<>""�C$<>"noName"�C$<>"No_Name"�
�v�C$,"_")=0�C$+=z$
�{�cIV(C$,H%+4)
ʀ�
ʅ�
ʊ!H%=!H%��(1<<23)
ʏ�:�
ʔ�
ʙ ��E%>0�
ʞ8�:E%=!A%<<4:D%=F%+72:F%=14<<12:G%=F%+(1<<23):�E%>64�
ʣTB%=0:�C%=A%+80�A%+E%�16:�(!C%�17)=17�H%=D%+((!C%�&FF00)>>>3):�(!H%�G%)>=F%�B%+=4
ʨ
�:�B%�
ʭ �B1%=14�
ʲf�C% B%*7+3:�sB(C%,B%*6+4,-1):A%!64=C%:!C%=B%:B%+=C%+4:G1%=0:�E%=A%+80�A%+(!A%<<4)�16:�(!E%�17)=17�
ʷ*H%=D%+((!E%�&FF00)>>>3):�(!H%�G%)>=F%�
ʼ3C$=$(E%-12):�C$<>""�C$<>"noName"�C$<>"No_Name"�
��C$,"_")=0�C$+=z$
�Ǝ�cIV(C$,B%):!B%=H%!4:!(B%+!C%)=E%-12:!(B%+(!C%<<1))=H%!12:!(B%+5*!C%)=!E%>>>8�&FF:�(!H%�&F101)>=&E101�!(B%+4*!C%)=G1%:G1%+=�align(H%!12+1)
�� B%+=4
���
���:!H%=!H%��(1<<23)
��Q�:�:�cB(C%+!C%+4,C%+4,!C%):B%=C%+4*!C%+4:�E%=A%+80�A%+(!A%<<4)�16:�(!E%�4)=4�
��P�B%=C%+6*!C%+4�C%+7*!C%�4:�!B%=!E%>>>8�&FF �!(B%-(!C%<<1))=E%-12:B%=C%+7*!C%
���
��2�:�:�B%=C%+4*!C%+4�C%+5*!C%�4:�!B%<&8000�!B%=0
���
��g��C% (B%<<1)+3:�sB(C%,(B%<<1)+4,-1):A%!64=C%:!C%=B%:B%+=C%+4:�E%=A%+80�A%+(!A%<<4)�16:�(!E%�17)=17�
�*H%=D%+((!E%�&FF00)>>>3):�(!H%�G%)>=F%�
�3C$=$(E%-12):�C$<>""�C$<>"noName"�C$<>"No_Name"�
��C$,"_")=0�C$+=z$
� �cIV(C$,B%):!B%=H%!4:B%+=4
� �
��
�!H%=!H%��(1<<23)
� �:�:�cB(C%+!C%+4,C%+4,!C%)
� �
�%�
�*�
�/�:=�
�49ݤiMsg(A$(),B%):�C%:C%=0:�:A$(C%)=�#B%:C%+=1:��#B%:=�
�9
�>
��poll
�C��p:�end_%>0
�H�
�M��p:A%=S%:R%=�!A%:ȎR%�
�RY�4:W%=S%!16:z$=$(S%+20):�("FNe"+$(S%!84+W%!16)):�pm_%=0:ș&400E9,36,,"ptr_default",1
�WF�5:W%=S%!16:z$=$(S%+20):�("FNe"+$(S%!84+W%!16))��sP(W%!32):pm_%=0
�\2�6:W%=S%!16:z$=$(S%+20):X%=!Q%:Y%=Q%!4:�c:�mb_
�a �8:W%=S%!16:z$=$(S%+20):�k
�f�9:�dM(Q%)
�k%�10:W%=S%!16:z$=$(S%+20):�scW(W%)
�pc�1:W%=S%!16:z$=$(S%+20):�$(W%+20)="View"�Z%=�("FN"+$W%+z$)��W%!216>0�ș&400C8,,Q%�Z%:�Z%��d(W%)
�u
�2:�o(Q%)
�z'�3:W%=S%!16:z$=$(S%+20):�closeW(W%)
�W�7:X%=Q%!20:Y%=Q%!24:pm_%=0:ș&400E9,36,,"ptr_default",1:�("FN"+$dn%+z$)��dB:�mb1_
˄�17,18:�fix3_:�rM
ˉ �19:�rB
ˎ7�11:W%=S%!16:z$=$(S%+20):Z%=�("FNe"+$(S%!84+W%!16))
˓k�12:W%=S%!16:z$=$(S%+20):�("FNe"+$(S%!84+W%!16)):�W%!172>0�W%!176>0�W%!180>0��cB(W%!176,W%!172,W%!180)
˘ �0:�B
˝�:�
ˢ��c:�(!b%�&FF2)=0�
˧
�W%>0�
ˬ"ș&400D3,,O%:�!O%<>!h%��gC(W%)
˱ �!i%>� �
˶ Ȏ$rn%�
˻u�"Menu","Dialog","Scroll":!w0%=S%!32:!h0%=!(!w0%+12):S%!32=W%:�$rn%="Menu"�!w0%>0�N%=!(!w0%+48)��W%!36�2�N%=W%!48
� �fIC �
��Ȏ!i0%>>>16�63�
���0:�$cn%<>""�
��2�$cn%,"_")�Z%=�("FN"+$cn%)�Z%=�("FN"+$cn%+z$)
���
���4:
���5:Z%=�list
���
�� �Z%=�pB_
���
��(�"Alert","Input":Poll$=�gId(!h%,!i%)
�
:Z%=�pB_
��
� �Z%=�pB_
��
� &��!h%=-2�!i%=!g%�z$="_":Z%=�mainW_
��
� ��!b%�2�
�
Z%=�oM
� ��!b%�336�
�$�!d0%=!d0%��255:�!i%<0�$cn%="":$dn%="":�pBd �Z%=�fIC:Z%=!i0%>>>16�63:�Z%>7�Z%<11�Z%=7�((!b%�80)=64)�$dn%=$cn%:!d0%=!d0%�Z%:�pBd
�)�
�.�
�3�:�
�8---(BACKGROUND)
�=��B:�A%:�U%�
�BOS%!320=�:A%=S%!48:ș6,176:ȕA%<>-1:Z%=�("FNb"+$(A%!4)):�S%!320�A%=-1�A%=!A%
�G �:ș6,176,,255�,A%:S%!468=A%
�L�:�U%=0��sPO(1)
�Q/�S%!12�ș66�A%:ȕA%-S%!12>0:S%!12+=S%!156:�
�V�
�[ݤb:�U%�1�ș&80D0C,,S%
�`=�
�ebݤaBg(A$,B%,C%):�D%,E%,F%,V%:S%!320=�:U%=U%�(1<<B%�32):D%=S%!48:ȕD%<>-1��F%:�$(D%!4)=A$�F%=D%
�jZD%=!D%:�:�F%>0�D%=F%!4:V%=� �D%=�gH(16):$D%=A$:D%!8=0:D%!12=&FFFFFFF:V%=�aLL(S%+48,D%)
�o�V%�
�t#D%!8=D%!8�(1<<B%�32):�C%<2�C%=2
�y
�C%=2�
�~D%!12=C%:�sPO(C%)
̃?�E%=S%!48:F%=&FFFFFFF:ȕE%<>-1:�!(E%!4+12)<F%�F%=!(E%!4+12)
̈ E%=!E%:�:�C%<D%!12�D%!12=C%
̍�C%<F%��sPO(C%)
̒�
̗ �:=V%
̜_��cBg(A$,B$,C%,D%):�E%,F%:E%=!w%+&F00:�F%=!w%�E%�256:�F%!12>� ��$F%=B$�F%!12<>C%�F%=E%:E%=�
̡�:�E%>0�Z%=�dBg(A$,D%)
̦�
̫SݤdBg(A$,B%):�D%,E%,F%,V%:V%=�:S%!320=�:D%=S%!48:ȕD%<>-1��F%:�$(D%!4)=A$�F%=D%
̰D%=!D%:�:�F%>0�
̵UD%=F%!4:U%=U%��(1<<B%�32):D%!8=D%!8��(1<<B%�32):�D%!8=0�V%=�dLL(S%+48,D%):�fH(D%)
̺
�U%=0�
̿ �sPO(0)
��?�E%=S%!48:F%=&FFFFFFF:ȕE%<>-1:�!(E%!4+12)<F%�F%=!(E%!4+12)
��E%=!E%:�:�F%>2��sPO(F%)
���
�� �:=V%
��---(CARET)
����gC(A%):�A%=0��
��Ȏ$(A%+20)�
��;�"Alert","Display":�gCp:ș&400D2,A%!12,-1,,,&1000024,-1
�� �"Input":�gCp:�sCI(A%!12,4)
���"Dialog","Scroll","View":�gCp:ș&400D6,A%!12,S%!116,&E000,&E000:�!(S%!116)<>-1��sCI(A%!12,!(S%!116)) �ș&400D2,A%!12,-1,,,&1000024,-1
��:�
���fC(A%):ș&400D3,,A%:�
� 1��sCI(A%,B%):�pK1_(13):�fix_:ș&80D10,,A%,B%
��
�
C��gCp:�B%:ș&400D3,,J%:�C%(0,6)=0�B%=0:C%(0,6)=1�B%=1:C%(0,6)=0
�[C%(B%,0)=!J%:C%(B%,1)=J%!4:C%(B%,2)=J%!8:C%(B%,3)=J%!12:C%(B%,4)=J%!16:C%(B%,5)=J%!20:�
���pCp:�B%:B%=-1:Ȏ� �
�(�C%(0,6)=1:�C%(0,0)>0�B%=0:C%(0,6)=0
� (�C%(0,6)=0:�C%(1,0)>0�B%=1:C%(0,6)=1
�#�:�B%=-1��
�(Pș&600D2,C%(B%,0),C%(B%,1),C%(B%,2),C%(B%,3),C%(B%,4),C%(B%,5):C%(B%,0)=-1:�
�-
---(DRAG)
�2[��pBd:�A%,C%,D%,V%:V%=�:ș&400CF,,O%:X%=!O%:Y%=O%!4:!O%=!h%:O%!4=!i%:O%!248=W%:�pBd_ �
�7�!i%>-1�(!d0%�&FF00)=0�
�<0Q%!256=!O%:ș&400CC,,Q%+256:�Q%!288�(1<<17)�
�AhO%!40=Q%!260-Q%!276:O%!44=Q%!272-Q%!280:A%=Q%+348+(!i%<<5):C%=!A%:D%=A%!4:�bV(W%,C%,D%,A%!8,A%!12)�
�F�V%=�:Q%!8=!A%+O%!40:Q%!12=A%!4+O%!44:Q%!16=A%!8+O%!40:Q%!20=A%!12+O%!44:Q%!24=Q%!260:Q%!28=Q%!264:Q%!32=Q%!268:Q%!36=Q%!272:Ȏ!b%�
�KG�64:O%!12=X%:O%!16=Y%:�cB(A%,O%+64,16):�cB(A%,O%+112,16):Ȏ!d0%�63�
�Pj�7,8:Q%!4=5:D%=S%!428:C%=((Q%!16�D%)-(Q%!8�D%))>>>S%!196:D%=S%!432:D%=((Q%!20�D%)-(Q%!12�D%))>>>S%!200
�U<�9:Q%!4=5:Q%!24=0:Q%!28=0:Q%!32=S%!204:Q%!36=S%!208:V%=�
�Z V%=�
�_�
�d$�16:!d0%=!d0%�(1<<31):Ȏ!d0%�63�
�iw�8:Q%!4=6:�X%>(Q%!8+Q%!16)�2�Q%!24=(Q%!8<<1)-Q%!16+16�Q%!24+=Q%!16-Q%!8:Q%!32=Q%!16-16:ȔQ%!8,Q%!16:!d0%=!d0%�1<<16
�nq�Y%>(Q%!12+Q%!20)�2�Q%!28=Q%!12+16:Q%!36-=Q%!20-Q%!12:ȔQ%!12,Q%!20:!d0%=!d0%�2<<16�Q%!36=(Q%!20<<1)-Q%!12-16
�sSD%=S%!428:Q%!24=Q%!24�D%:Q%!32=Q%!32�D%:D%=S%!432:Q%!28=Q%!28�D%:Q%!36=Q%!36�D%
�x'�(A%!16�&183)=256�!d0%=!d0%�(1<<29)
�} V%=�
͂�
͇ V%=�
͌�
͑��scrollBy(W%,C%,D%)
͖�
͛�Q%!284=-1:�o(Q%+256)
͠�
ͥ �V%=�
ͪI�:�V%�S%!328=Help%:Help%=�:ș&400D0,,Q%:�!d0%�(1<<30)�Z%=�aBg("",0,2)
ͯ�
ʹ�
ݤpBd_:=�
;C��dB:�A%,B%,C%:�cB(Q%+348+(O%!4<<5),Q%+136,32):�(!d0%�&FF00)=0�
�� A%=Q%+256:�(!d0%�1<<31)=0�
��Ȏ!d0%�63�
���7,8:�!d0%�(1<<30)�
�҆B%=X%-O%!12:C%=S%!428:!A%=(O%!64+B%)�C%:A%!8=(O%!72+B%)�C%:B%=Y%-O%!16:C%=S%!432:A%!4=(O%!68+B%)�C%:A%!12=(O%!76+B%)�C%:�fH(O%!28)
��l�C%=S%!428:!A%=(!Q%-O%!40)�C%:A%!8=(Q%!8-O%!40)�C%:C%=S%!432:A%!4=(Q%!4-O%!44)�C%:A%!12=(Q%!12-O%!44)�C%
��(�:B%=!O%:C%=O%!4:�!d0%�(1<<29)��dB_g
��U�cB(Q%+136,Q%+172,16):�cB(A%,Q%+136,16):Q%!128=B%:Q%!132=C%:�rcI(Q%+128,Q%+172,2)
���9
���
���Ȏ!d0%�63�
���8:C%=S%!428:!A%=(!Q%-O%!40)�C%:A%!8=(Q%!8-O%!40)�C%:C%=S%!432:A%!4=(Q%!4-O%!44)�C%:A%!12=(Q%!12-O%!44)�C%:�!d0%�1<<16�Ȕ!A%,A%!8
� �!d0%�2<<16�ȔA%!4,A%!12
�&B%=!O%:C%=O%!4:�!d0%�(1<<29)��dB_g
�U�cB(Q%+136,Q%+172,16):�cB(A%,Q%+136,16):Q%!128=B%:Q%!132=C%:�rcI(Q%+128,Q%+172,4)
� �
��
�9�:!d0%=0:!x%=0:!y%=0:Help%=S%!328:�U%�1�Z%=�dBg("",0)
��
� CݤbV(A%,� B%,� C%,D%,E%):ș&80D0D,,A%,B%,C%,D%,E%�A%,,B%,C%:=A%
�"---(EVENT HANDLER)
�'
ݤe:=�
�, ݤq2_:=�
�1_ݤbE(A%):�B$,C%,D%,E%,V%:�:C%=S%!84:D%=S%!560<<3:R%=A%:�E%=C%�C%+D%�8:B$=$E%:��:� �:�:=V%
�6)�B$<>""�V%=�("FNe"+B$):�V%=0�E%=C%+D%
�; �:=V%
�@---(FILES)
�EWݤgLn(A$):�B%:�A$,".")>0�B%=�A$:ȕ(�A$,B%,1)<>".")�(B%>0):B%-=1:�:=�A$,�A$-B%)�=A$
�J;ݤgFl(A$):�B%,C%,V%:ș&20008,17,A$�C%,,,,B%;V%:�V%�1�=�
�O ȎC%�
�T �1:C%=B%
�Y �2:C%=-2
�^ :C%=-1
�c �:=C%
�hJݤldF(A$,B%):�C%,V%:ș&20008,16,A$,B%�C%;V%:�V%�1�Z%=�sysErrBox(C%):=�
�m=B%
�r:ݤgFt(A$):�B%,C%,V%:ș&20008,17,A$�C%,,B%;V%:�V%�1�=-2
�w�C%<>1�=-2
�|'�(B%>>>20)=&FFF �=(B%>>>8)�&FFF �=�
ݤvFt:�S%!160=-1�=�rM_g
Ά�(S%!176�(1<<6))=0�=�
#�A%,B%,C%,D%,V%:A%=S%!88:�A%>0�
ΐ�C%=A%!8*28:�C%>0�
Ε8�D%=A%+16�A%+C%�28:�!D%=!f0%�B%=D%:S%!92=A%:D%=A%+C%
Κ�
Οo�:A%=!A%:�B%�(A%=0):�B%�!v%=B%!4:S%!264=B%!8:f$=$(S%!84+(!(S%!92+12)>>>24)):S%!180=B%!12:$en%=$(B%+16):V%=�
Τ �:=V%
Ω---(ICONS)
ή'ݤfi(A%,B$):ș&80D0F,0,A%,B$�A%:=A%
γ!ݤfIC:ș&80D0F,1,S%,W%�Z%:=Z%
θ!ݤfIL:ș&80D0F,2,S%,W%�Z%:=Z%
ν!ݤfIM:ș&80D0F,3,S%,W%�Z%:=Z%
��(ݤgId(A%,B%):ș&80D0F,4,A%,B%�Z$:=Z$
��(ݤgIv(A%,B%):ș&80D0F,5,A%,B%�Z$:=Z$
��)��pId(A%,B$,C$):ș&80D0F,6,A%,B$,C$:�
��*ݤpII(A%,B%,C$):ș&80D0F,7,A%,B%,C$:=�
��z��pIB(A$):�ShowName%�$(S%!344)=�11," "):!J%=S%!340:J%!4=!g%:J%!8=0:J%!12=0:ș&400CD,,J%:$(S%!344)=�A$,11):ș&400CD,,J%
���
��"��rI(A%,B$):ș&80D0F,8,A%,B$:�
��#��rIs(A%,B%):ș&80D0F,9,A%,B%:�
��#��sI(A%,B$):ș&80D0F,11,A%,B$:�
��$��usI(A%,B$):ș&80D0F,13,A%,B$:�
��&��usIs(A%):ș&80D0F,14,A%,S%!116:�
�#��fI(A%,B$):ș&80D0F,15,A%,B$:�
�$��ufI(A%,B$):ș&80D0F,16,A%,B$:�
�&��ufIs(A%):ș&80D0F,17,A%,S%!116:�
�BݤgIs(A%,B%):!J%=A%:J%!4=B%:ș&400CE,,J%:�J%!24�(1<<21)�=� �=�
�
v��pPD(A%,D$(),B%):�C%,F%:ș&400D6,A%!12,Q%,&F000,0:C%=Q%:�!C%>0�F%=!C%��:C%+=4:�!C%>C%!-4+1�!C%=-1:�!C%<>-1�F%=!C%
�(�F%>0��pID(A%,D$(),B%,&F101,&101,F%)
��
� 7��pFD(A%,F$(),B%):�pID(A%,F$(),B%,&E101,&E101,-1):�
�!���pID(A%,A$(),B%,G%,H%,F%):�A$,C%,D%,E%:ș&400D6,A%!12,Q%,G%,H%:C%=Q%:ȕ!C%<F%:C%+=4:�:E%=-1:!J%=A%!12:D%=�(A$()):�D%=1�B%=-1��D%=2�(B%<0�B%>�(A$(),2))�B%=0
�& �B%>-1�
�+zD%=�(A$(),2):ȕ!C%<>-1�E%<D%:E%+=1:J%!4=!C%:ș&400CE,,J%:A$=A$(B%,E%):�A$<>"|"�$(J%!28)=A$:J%!8=0:J%!12=0:ș&400CD,,J%
�0 C%+=4:�
�5x�D%=�(A$(),1):ȕ!C%<>-1�E%<D%:E%+=1:J%!4=!C%:ș&400CE,,J%:A$=A$(E%):�A$<>"|"�$(J%!28)=A$:J%!8=0:J%!12=0:ș&400CD,,J%
�: C%+=4:�
�?�:�
�D���rcI(A%,B%,F%):�C%,D%:C%=!A%:D%=&400D1:ș&400C4,,A%:A%!4=C%:ș&400C2,,A%+4:�F%�1 �A%!8=!B%�A%!12=B%!4�A%!16=B%!8�A%!20=B%!12��
�I Ȏ� �
�N�(F%�2)=2:Ȏ� �
�SK�!B%>A%!16�B%!8<A%!8�B%!4>A%!20�B%!12<A%!12:șD%,C%,!B%,B%!4,B%!8,B%!12
�X�!B%=A%!8�B%!4=A%!12
�]V�!B%=A%!8:�B%!4>A%!12�șD%,C%,A%!8,A%!20,A%!16,B%!12�șD%,C%,A%!8,B%!4,A%!16,A%!12
�bU�B%!4=A%!12:�!B%>A%!8�șD%,C%,A%!16,A%!12,B%!8,A%!20�șD%,C%,!B%,A%!12,A%!8,A%!20
�g:�A%!12>B%!4�
�leșD%,C%,!B%,B%!4,B%!8,A%!12:�A%!8>!B%�șD%,C%,!B%,A%!12,A%!8,B%!12�șD%,C%,A%!16,A%!12,B%!8,A%!20
�qf�șD%,C%,!B%,A%!20,B%!8,B%!12:�A%!8>!B%�șD%,C%,!B%,B%!4,A%!8,A%!20�șD%,C%,A%!16,A%!12,B%!8,A%!20
�v�
�{$�:șD%,C%,A%!8,A%!12,A%!16,A%!20
π2�(F%�4)=4:șD%,C%,A%!8,A%!12,A%!16,A%!20:Ȏ� �
υ/�A%!16-A%!8>B%!8-!B%�A%!20-A%!12>B%!12-B%!4
ϊt�A%!16-A%!8<B%!8-!B%�A%!20-A%!12<B%!12-B%!4:�A%!12=B%!4�șD%,C%,!B%,A%!20,B%!8,B%!12�șD%,C%,!B%,B%!4,B%!8,A%!12
ϏI�A%!8=!B%�șD%,C%,A%!16,A%!12,B%!8,A%!20�șD%,C%,!B%,A%!12,A%!8,A%!20
ϔ\�A%!16-A%!8<B%!8-!B%:�A%!8=!B%�șD%,C%,A%!16,B%!4,B%!8,B%!12�șD%,C%,!B%,B%!4,A%!8,B%!12
ϙJ:�A%!12=B%!4�șD%,C%,!B%,A%!20,B%!8,B%!12�șD%,C%,!B%,B%!4,B%!8,A%!12
Ϟ�
ϣ@:șD%,C%,!B%,B%!4,B%!8,B%!12:șD%,C%,A%!8,A%!12,A%!16,A%!20
Ϩ�:�
ϭ
---(KEYS)
ϲ��k
Ϸ
�W%>0�
ϼN%=0:Ȏ$rn%�
�2�"Dialog","Scroll","DataPad":�W%!36�2�N%=W%!48
�� �kp ��
��5�"Menu":�S%!32>0�(!(S%!32+36)�2)>0�N%=!(S%!32+48)
���kpMenu ��
��!�"Alert","Input":�kpAlert ��
���:S%!32=W%
�� �:Ȏ� �
�� �(!k%>K%)�(K%>0):�M%�$cn%=""
��X�!k%>(K%+&800)�!k%>(K%+&3FF)�!k%<(K%+&600)�$cn%=$(!k%):!i0%=!(!k%+12)�$cn%="":!i0%=0
��Ȏ!i0%>>>16�63�
���0:�$cn%<>""�
�3�$cn%,"_")�Z%=�("FN"+$cn%)�Z%=�("FN"+$cn%+"_")
��
��4:
��5:Z%=�list
� �
� �!k%=-1:�M%=0�ș&400DC,!k0%
�:�M%=0�ș&400DC,!k0%
��:�
� '��eK:�A%:�A%=�(-113):�A%=0:*FX 21,0
�%�
�*(ݤkp:�A%,B%,C%,V%:V%=�:A%=!i%:Ȏ!k%�
�/2�&18E,&19D:�pK1_(!k%):�fix1_ �ș&80D0E,,A%,S%
�43�&18F,&19C:�pK1_(!k%):�fix1_ �ș&80D0E,1,A%,S%
�91�386,387,388,389,390,391,392,393,458,459:V%=�
�>/�13:ș&400D6,!h%,Q%,&E000,&E000:�!Q%=-1�=V%
�CAB%=Q%:ȕ!B%<>A%:B%+=4:�:�B%!4>-1�C%=B%!4:�C%<>A%��sCI(!h%,C%)
�H �fIC �
�M
�$cn%=""�
�RR%=194:Z%=�("FNe"+z$)
�W3��$cn%,"_")�Z%=�("FN"+$cn%)�Z%=�("FN"+$cn%+z$)
�\�
�a�
�f
:V%=�pK_
�k �:=V%
�p ݤkpAlert:�V%:V%=�:Ȏ!k%�
�u�13,27:Poll$=�!k0%
�z
:V%=�
� �:=V%
Є)ݤkpForm:�A%,B%,C%:V%=�:A%=!i%:Ȏ!k%�
Љ �&18E,&19D:ș&80D0E,,A%,S%
Ў �&18F,&19C:ș&80D0E,1,A%,S%
Г1�386,387,388,389,390,391,392,393,458,459:V%=�
Иo�13:!h0%=!h%:ș&400D6,!h%,Q%,&E000,&E000:B%=Q%:ȕ!B%<>A%:B%+=4:�:�B%!4>-1�V%=�:C%=B%!4:�C%<>A%��sCI(!h%,C%)
Н�V%�
Т �fIC �
Ч
�$cn%=""�
ЬR%=194:Z%=�("FNe"+z$)
б3��$cn%,"_")�V%=�("FN"+$cn%)�V%=�("FN"+$cn%+z$)
ж�
л�
��:�V%��kW(!h0%)�V%=�
��
:V%=�
�� �:=V%
��,ݤkpMenu:�A%,B%,C%,V%:V%=�:A%=!i%:Ȏ!k%�
�� �&18E,&19D:ș&80D0E,,A%,S%
�� �&18F,&19C:ș&80D0E,1,A%,S%
��9�386,387,388,389,390,391,392,393,458,459:Z%=�dFK(!k%)
��/�13:ș&400D6,!h%,Q%,&E000,&E000:�!Q%=-1�=V%
��AB%=Q%:ȕ!B%<>A%:B%+=4:�:�B%!4>-1�C%=B%!4:�C%<>A%��sCI(!h%,C%)
�� �fIC �
��
�$cn%=""�
�R%=194:Z%=�("FNe"+z$)
�3��$cn%,"_")�Z%=�("FN"+$cn%)�Z%=�("FN"+$cn%+z$)
��
��
�
:V%=�pK_
� �:=V%
�ݤkpView:=�pK_
�=ݤdFK(A%):�B%,C%,D%,E%,F%,V%:V%=�:B%=A%-385:�B%>72�B%-=64
� �B%>0�B%<11�
�$h!Q%=!h%:ș&400CC,,Q%:C%=Q%+108:D%=C%+(Q%!88<<5):ȕC%<D%�E%<B%:F%=(!C%>>>12)�15:�(F%>0)�(F%<12)�E%+=1
�)C%+=32:�:�E%=B%�
�.Q!i%=(C%-108-Q%)�32-1:!Q%=!h%:Q%!4=!i%:Q%!8=1<<21:Q%!12=0:ș&400CD,,Q%:�fIC �
�3@C%=!i%:D%=!h%:�$cn%,"_")�V%=�("FN"+$cn%)�V%=�("FN"+$cn%+z$)
�82!Q%=D%:Q%!4=C%:Q%!8=1<<21:Q%!12=0:ș&600CD,,Q%
�=�
�B�
�G �:=V%
�L ݤkey:�V%:ș6,122�,V%:=V%
�Q ---(Ǔ)
�VSݤmenuList(A$,B$,F%,G%):�B%,C%,D%,E%,H%:F%=!F%:B%=!F%:�:��:� �:�cIV(A$+"_",0)
�[C%=�(A$+"_%")
�`
�C%>0�
�e#�B%<>!C%�C%=�eH(C%,40*(B%-!C%))
�j�C%=�gH(68+40*B%)
�o��:D%=C%+36+(B%<<4):�cIV(A$+"_",C%):!C%=B%:C%!4=D%-20:C%!8=D%:C%!12=F%+12:$nn%=B$:E%=�r(S%!56):C%!16=E%:B$=B$+"_%":B%=�(B$):Ȏ!B%�
�t �1:�cB(B%,C%!4,72):C%!20=1
�y,�2:C%!4=C%!4-16:�cB(B%,C%!4,112):C%!20=2
�~
:C%!20=0
уq�:B%=�(A$+"_%"):C%=!B%:D%=B%!8:E%=B%!12:�B%!20=2�D%!36=D%!36�256:D%!40=!E%:D%!44=-1:D%!48=E%?4:H%=E%?4:D%+=24
ш�E%+=5:G%=1:A%=D%!32:F%=D%!36�256:D%+=28:ȕE%?4>0�G%<C%:!D%=0:D%!4=A%:D%!8=F%:D%!12=!E%:D%!16=-1:D%!20=E%?4:�D%!20>H%�H%=D%!20
эSD%+=24:E%+=5:G%+=1:�:D%!-24=128:!(B%!8+16)=H%<<4:E%=B%!8-4-16*G%:B$="":ȎB%!20�
ђ&�1:B$=$(B%!4+4):H%=!(B%!4+16):D%=4
їK�2:B$=$(B%!4+20):H%=!(B%!4+32):D%=20:$(E%+4)=$(B%!4+4):E%!16=!(B%!4+16)
ќG�:B%!4=E%:!E%=G%:�F%=E%+D%�B%!8-16�16:$F%=B$:F%!12=H%:�:=�oList(A$)
ѡ?ݤoList(A$):�B%:B%=�(A$+"_%"):�B%>0�!(B%!16+20)=B%!4:=� �=�
Ѧ?ݤlist:�A$,B$,C%,D%,E%,F%,G$:�$cn%,"_")�A$=$cn%�A$=$cn%+z$
ѫNB$=�gId(!h%,!i%):C%=�(A$+"%"):E%=-1:�D%=0�C%:�(A$+"$(D%)")=B$�E%=D%:D%=C%
Ѱ
�:�E%>-1�
ѵ�!b%�1�F%=-1�F%=+1
Ѻ#�E%+=F%:�E%>C%�E%=0��E%<0�E%=C%
ѿeG$=�(A$+"$(E%)"):�G$<>"":!l%=E%:�("FN"+A$) �!l%>� �G$=�(A$+"$(!l%)"):�G$<>B$�Z%=�pII(!h%,!i%,G$)
�� �!l%=-1
���:=�
��>ݤaLL(A%,B%):�C%:C%=�gH(8):�C%>0�!C%=!A%:C%!4=B%:!A%=C%:=�
��=�
��]ݤdLL(A%,B%):�C%,V%:C%=!A%:ȕC%<>-1��V%:�C%!4=B%�!A%=!C%:�fH(C%):C%=-1:V%=� �A%=C%:C%=!C%
�� �:=V%
��LݤrLL(A%,B%,D%):�C%,V%:C%=!A%:ȕC%<>-1��V%:�C%!4=B%�C%!4=D%:V%=� �C%=!C%
���:�V%=0�=�aLL(A%,D%)
��=V%
��+ݤsLL(� A%):�A%>0�A%=!A%:�A%>0�=A%!4�=�
�=�
�---(MEMORY)
� ݤalign(A%):=(A%+3)��3
�2��cB(A%,B%,C%):C%=(C%+3)>>2:�!(S%!164):�mb2_:�
�
/��mBl(A%,B%,C%):C%=(C%+3)>>2:�!(S%!164+4):�
�6��dBl(A%,B%,C%):B%+=A%:C%=(C%+3)>>2:�!(S%!164+4):�
�!��sB(A%,B%,C%):�!(S%!164+8):�
�#��sBw(A%,B%,C%):�!(S%!164+40):�
� /��wB(A%,B%,C%):C%=(C%+3)>>2:�!(S%!164+12):�
�#%��aM(A%,B%,C%,D%):�!(S%!164+24):�
�(!ݤrC(A%,B%,C%):=�!(S%!164+28)
�-ݤgH(B%):�B%<1�=�
�21�A%,V%:ș&2001D,2,S%!44,,B%�,,A%;V%:�V%�1�=A%
�74�xHp(B%)�ș&2001D,2,S%!44,,B%�,,A%;V%:�V%�1�=A%
�<=�
�A2ݤgHs(A%,B%):�V%:V%=�gH(B%):�V%>0��aWSm(A%,V%)
�F=V%
�K��fH(A%):�A%<1��
�P>�B%,V%:ș&2001D,3,S%!44,A%�B%;V%:�V%�1�Z%=�sysErrBox(B%):�
�U-ș29,1,S%!44�,,B%:� IFB%>S%!292THENPROCrH
�Z�
�_���rH:�A%,B%,C%,V%:ș29,1,S%!44�,,,A%:�:ș&2001D,5,S%!44,,-S%!292�;V%:�V%�1:ș29,1,S%!44�,,,B%:A%-=B%:B%=A%�S%!292:ș29,5,S%!44,,A%�S%!292:�B%>0�ș&400EC,-1,-1�C%:ș&400EC,C%-S%!292*B%,-1
�d�
�i?ݤeH(C%,B%):�A%,V%:ș&2001D,4,S%!44,C%,B%�,,A%;V%:�V%�1�=A%
�nFș29,6,S%!44,C%�,,,A%:A%+=B%:�xHp(A%)�ș29,4,S%!44,C%,B%�,,C%:=C%
�s=�
�x�ݤeHs(A%,C%,B%):�V%:�C%=0�=�gHs(A%,B%)��B%=0��fH(C%):Z%=�dLL(!w%+196+(A%<<8),C%)�ș29,6,S%!44,C%�,,,V%:V%=�eH(C%,B%-V%):�V%>0�Z%=�rLL(!w%+196+(A%<<8),C%,V%)
�}=V%
҂pݤxHp(B%):�A%,C%,V%:ș&400EC,-1,-1�C%:ș&600EC,C%+S%!292*(B%�S%!292+1),-1�A%;V%:�V%�1�ș29,5,S%!44,,A%-C%:=�
҇=�
Ҍ---(MENUS)
ґ
ݤm:=�
Җ ݤsm:=�
қ ݤsma:=�
Ҡ,��dM(A%):�B$,V%:V%=�:B$=�dm(A%):�B$<>""�
ҥ Ȏ!j%�3�
Ҫ�1:$cn%=B$:ȎB$�
ү �"","noName","No_Name":�uM
Ҵ#�"notYetAvail":Z%=�notYetAvail_
ҹ:V%=�:�S%!216=0�V%=�a_
Ҿ�V%�
��Ȏ!j%>>>16�63�
���0:�$cn%<>""�
��9�$cn%,"_")�Z%=�("FN"+$cn%)�Z%=�("FN"+$cn%+z$(!d%-1))
���
���4:
�� �:�uM
��
�:V%=�
���
�� �3:$wn%=B$:R%=258:Ȏ$wn%�
�� :V%=�e_
��:�V%�Z%=�window($wn%)
�V%=�
��0:$mn%=B$:V%=�fM(B$)
��2:$wn%=B$:V%=�fW(B$)
�
�:�V%�
� $an%=B$:B$=z$:z$="_":Ȏ$an%�
�:V%=�sma_
�<�:�V% �S%!140>0�Z%=�wS(S%!140):�z$<>"_"�V%=�("FNsma"+z$)
� (�V% �B$<>"_"�z$<>B$�V%=�("FNsma"+B$)
�"�uM
�'�
�,�:�
�10��dM1(A%):�B$,C%,V%:V%=�:B$=�dm(A%):�B$<>""�
�6 Ȏ!j%�3�
�;�2:�pW(B$,1)
�@��0:$mn%=B$:!m%=�fM(B$):�("FNsm"+z$)�M$(!d%)=$mn%:M%(!d%)=!m%:z$(!d%)=z$:!m0%=�aR(!m%):I%(!d%-1)!4=!m0%:ș&400E8,,!m0%,!x0%,!y0%
�E�
�J�:�
�O�ݤdm(A%):�B%,C%:B%=A%:ȕ!B%<>-1:B%+=4:�:I%=B%!-4:!d%=(B%-A%)>>>2:B%=M%(!d%-1):C%=B%+4+(I%<<4):!j%=C%!12:I%(!d%-1)=�aR(B%)+28+24*I%:=$C%
�TYݤiWM:�A$,V%:A$=�toLC($mn%):�A$=""�A$="nomenu"�A$="noname"�A$="no_menu"�A$="no_name"�
�YW%!40=-1:W%!188=-1:V%=�
�^G�W%!40=�fM($mn%):�W%!40>0�W%!188=!g0%:V%=� �W%!40=-1:W%!188=-1:V%=�
�c �:=V%
�h9ݤoM:�A%,B%:A%=�:$mn%="":S%!140=!h%:S%!144=!i%:�M%�=�
�m
�W%>0�
�r Ȏ� �
�w3�!i%>-1:A%=�fIM:�A%>0�S%!40=W%!188:A%=�fM($mn%)
�|
�A%>0�
Ӂ;�C%,D%:!J%=!h%:J%!4=!i%:ș&400CE,,J%:�(J%!24�&183)=256�
ӆC%=W%!216:�C%>0�
ӋD�B%=C%+148�C%+(!C%<<7)�128:�(!B%>>>24)=!i%�D%=!B%:B%=C%+(!C%<<7)
Ӑ�:B%=0:�(D%�255)=0�A%=0
ӕ�
Ӛ�
ӟ3�A%=W%!40:$mn%=$(W%+124):S%!40=W%!188:S%!144=-1
Ӥ�
ө:�!h%>-1:A%=W%!40:$mn%=$(W%+124):S%!40=W%!188:S%!144=-1
Ӯ@�:S%!32=W%:�$rn%<>"Tools"�N%=W%!48��W%!104>0�N%=!(W%!104+48)
ӳ<��!h%=-2�A%=S%!72:$mn%=$(S%+96):S%!32=0:S%!40=S%!56:B%=1
Ӹ �:ȎA%�
ӽ �0,-1:S%!140=-1:S%!144=-1
�¼:!m%=A%:S%!172=0:!d%=0:�("FNm"+z$)�M$(!d%)=$mn%:M%(!d%)=!m%:z$(!d%)=z$:!m0%=�aR(!m%):ȗ!x0%,!y0%,Z%:!x0%-=64:!y0%=(S%!108+96)*B%-!y0%*(B%=0):S%!140=!h%:�m_(!m0%):�S%!140=-1:S%!144=-1
�� �:=A%
��S��m_(A_%):� Z_%:�$mn%="FontList":A_%+=28+maxfont_%*24:Z_%=A_%?0:A_%?0=%10000000
��?�$mn%="InvL":A_%+=28+maxinvl_%*24:Z_%=A_%?0:A_%?0=%10000000
��>�$mn%="HeadListS"�$mn%="HeadListP":A_%+=28+11*24:A_%?0=%10
��7ș&400D4,,!m0%,!x0%,!y0%:�$mn%="FontList":A_%?0=Z_%
���$mn%="InvL":A_%?0=Z_%
���
��$��ovrM(A$):$mn%=A$:!m%=�fM(A$):�
����uM:�M%�(!b0%�1)�
�� �P%��rP
� !m0%=�aR(M%(0)):�m_(!m0%)
��:�
�8ݤfMI(A$,B%):�C%:C%=�fM(A$):ș&80D06,1,,B%,C%�C%:=C%
�8ݤfMH(A$,B%):�C%:C%=�fM(A$):ș&80D06,3,,B%,C%�C%:=C%
�
;ݤgMIs(A$,B%):�C%:C%=�fMI(A$,B%):ș&80D06,4,,,C%�C%:=C%
�;ݤgMIt(A$,B%):�C%:C%=�fMI(A$,B%):ș&80D06,5,,,C%�C%:=C%
�[��cMI(A$,B%,D%):�C%:C%=�fMI(A$,B%):�C%>0�(C%!8�64)=0�C%!8=C%!8�&FFFFFF:C%!8=C%!8�D%<<24
� �
�!5��sMI(A$,B%):�C%:C%=�fMI(A$,B%):ș&80D06,7,,,C%:�
�&6��usMI(A$,B%):�C%:C%=�fMI(A$,B%):ș&80D06,8,,,C%:�
�+.��sMn(A$):�C%:C%=�fM(A$):ș&80D06,9,,,C%:�
�00��usMn(A$):�C%:C%=�fM(A$):ș&80D06,10,,,C%:�
�56��tMI(A$,B%):�C%:C%=�fMI(A$,B%):ș&80D06,11,,,C%:�
�:5��tMIx(A$,B%):�C%:C%=�fM(A$):ș&80D06,12,,B%,C%:�
�?7��utMI(A$,B%):�C%:C%=�fMI(A$,B%):ș&80D06,13,,,C%:�
�D-��pMI(A$,B%,D$):�C%:C%=�fMI(A$,B%):�C%>0�
�I4�C%!8�256�$(C%!12)=�D$,C%!20-1)�$(C%+12)=�D$,11)
�N�:�
�SBݤgMI(A$,B%):�C%:C%=�fMI(A$,B%):ș&80D06,15,,,C%�C%:�C%>0�=$C%
�X4��pMT(A$,B$):�C%:C%=�fM(A$):ș&80D06,16,,B$,C%:�
�]=��bgMI(A$,B%,D%):�C%:C%=�fMI(A$,B%):ș&80D06,17,,,C%,D%:�
�b=��fgMI(A$,B%,D%):�C%:C%=�fMI(A$,B%):ș&80D06,18,,,C%,D%:�
�g6��hMI(A$,B%):�C%:C%=�fMI(A$,B%):ș&80D06,19,,,C%:�
�l7��uhMI(A$,B%):�C%:C%=�fMI(A$,B%):ș&80D06,20,,,C%:�
�q<ݤgMIh(A$,B%):�C%:C%=�fMI(A$,B%):ș&80D06,21,,,C%�C%:=C%
�v---(MESSAGES)
�{��rM:Ȏ!a0%��63�
Ԁ�&500:Ȏ!a0%�63�
ԅ�2:�Help%�
Ԋ0!h%=Q%!32:W%=�wS(!h%):�W%>0�$wn%=$W%�$wn%=""
ԏ�!i%=Q%!36:Z$=��("FNh"+z$),235):�Z$<>""�!Q%=256:Q%!12=!r0%:Q%!16=&503:$(Q%+20)=Z$:?(Q%+20+�Z$)=0:ș&400E7,17,Q%,!t0%:!r%=Q%!8
Ԕ�
ԙ�
Ԟ �&80D00:!c%=!a0%�63:Ȏ!a0%�
ԣ
:Z%=�rM_
Ԩ�
ԭ�&400C0:Ȏ!a0%�63�
Բ(�0:!x0%=Q%!24:!y0%=Q%!28:�dM1(Q%+32)
Է0!h%=Q%!32:W%=�wS(!h%):�W%>0�$wn%=$W%�$wn%=""
Լ
�1:R%=259
�
:Z%=�rM_
���
���0:Ȏ!a0%�
��
�0:�fin:�
�� �1,2,3,4,5:!f0%=Q%!40:�vFt
�� �6,7:
���8:�S%!192=0�S%!192=2
��Z%=�Myquit_
��!�9:�rM_ �S%!176�(1<<7)��cP_g
��
:Z%=�rM_
���
��&80140:Ȏ!a0%�63�
�,�0,1,4,5:!f0%=Q%!40:�vFt �rM_ Z%=�ptrM
�
:Z%=�rM_
��
�
:Z%=�rM_
��:�
���rB:Ȏ!a0%��63�
��0:Ȏ!a0%�
� 3�1,2,3,4,5,6,7:�rB_ �(S%!176�(1<<6))>0�Z%=�dtB
�%
:Z%=�rB_
�*�
�/�&80140:Ȏ!a0%�63�
�4�0,1,2,5,6:�rB_ �
�9 Ȏ� �
�>�S%!160=-1:Z%=�rB_g
�C �(S%!176�(1<<6))>0:Z%=�dtB
�H
:Z%=�rB_
�M�
�R�
�W
:Z%=�rB_
�\�
�a �&80D00:!c%=!a0%�63:Ȏ!a0%�
�f
:Z%=�rB_
�k�
�p
:Z%=�rB_
�u�:�
�z
---(MISC)
����gMi:S%!196=�rMV(-1,4):S%!200=�rMV(-1,5):S%!440=1<<S%!196:S%!444=1<<S%!200:S%!204=(�rMV(-1,11)+1)<<S%!196:S%!208=(�rMV(-1,12)+1)<<S%!200:S%!428=�(S%!440-1):S%!432=�(S%!444-1):�
Մ6ݤgB1(A%):�B%,C%:�C%=0�31:B%+=A%�1:A%=A%>>>1:�:=B%
Չ��sPO(A%):ȎA%�
Վ�1:S%!4=1:S%!12=0
Փ�2:S%!4=0:S%!12=0
!:S%!4=0:ș66�S%!12:S%!156=A%
՝�:�
բ ݤh:=""
է ݤ_:�S%!176�(1<<7)�=� �=�
լWݤtL(A%):�B$,C%:C%=�A%:A%=�A%:B$=�(A%�100)+"."+�"0"+�(A%�100),2):�C%>=0�=B$�="-"+B$
ձ'ݤfL(A$):�B:B=100*�A$:=�B*�(�B+0.5)
նDݤaL(A%,B%):�C:C=A%+B%:�C>&7FFFFFF0�C<&80000010��beep:=-1�=A%+B%
ջ7ݤmL(A%,B%):�C:C=A%*B%:�C>&FFFFFF0��beep:=-1�=A%*B%
�&ݤdL(A%,B%):�B%=0��beep:=-1�=A%�B%
�� ݤa_:=�
��ݤdTh(A%):=�~A%
��%ݤhTd(A$):�B%:ș33,16,A$�,,B%:=B%
��---(ȒERS)
����hgOn:ș&406C0:�
����hgOff:ș&406C1:�
����hgSmash:ș&406C2:�
�� ��hgPC(A%):ș&406C4,A%:�
�� ��hgLED(A%):ș&406C5,A%�3:�
��?��iP:�$pn%=""�$pn%="Standard"�$pn%="ptr_default"�W%!32=-1:�
�*�A%:$nn%=$pn%:A%=�fP:�A%>0�W%!32=A%!20
��
�G��pP(A$,B%):�B%>0��C%:C%=W%:W%=�wS(B%):$pn%=A$:�iP:�sP(W%!32):W%=C%
��
� o��sP(A%):�A%>0�ș&400E9,36,,$A%,A%!16,A%!20,A%!24:P%=A%:�A%!16�32�ș7,12,S%+300:ș7,12,S%+305:ș7,12,S%+310
��
�G��rP:ș&400D8,1,-1:ș7,12,S%+300:ș7,12,S%+305:ș7,12,S%+310:P%=0:�
�Wݤmouse:�A%,V%:ș6,121,137�,A%:A%=-4*(A%=255):ș6,121,139�,V%:�V%=255�V%=1�A%�V%=A%
� =V%
�$ ---(Ș)
�)@��fin:Z%=�bE(260):�hgSmash:�rP:ș&400DD,!t%,&AB534154:ș17:�
�.---(RESOURCES)
�3ݤaR(A%):=A%+4+(!A%<<4)
�8HݤfM(A$):�A%,B%,C%,D%:A%=S%!424:�$A%=A$�z$=$(A%+12):!f%=A%!28:=A%!24
�=$nn%=A$:C%=�gUH:�C%>-1�
�BLA%=S%!56:�D%=A%!12>>>24:B%=A%:A%=A%!28:�D%=C%�A%=0:�D%=C%�D%=�r(B%)�D%=0
�G �A%=S%!40:�A%>0�D%=�r(A%)
�L
�D%<1�
�Q#A%=S%!56:�:�A%<>S%!40�D%=�r(A%)
�VA%=A%!28:�D%�A%=0
�["�:�D%>0�z$=$(S%!84+(!f%>>>24))
�`H�:�D%>0�A%=S%!424:$A%=A$:$(A%+12)=z$:A%!24=D%!20:A%!28=!f%:=D%!20�=�
�e%ݤfP:�A%,B%,C%,D%:A%=S%!68:�A%>0�
�jC%=�gUH:�C%>-1�
�oC�D%=A%!12>>>24:B%=A%:A%=A%!28:�D%=C%�A%=0:�D%=C%�D%=�r(A%)�D%=0
�t>�D%=�r(A%):A%=A%!28:�D%�A%=0:�D%>0�z$=$(S%!84+(!f%>>>24))
�y�
�~ �:=D%
փ:ݤfW(A$):�A%,B%,C%,D%:$nn%=A$:A%=S%!64:C%=�gUH:�C%>-1�
ֈC�D%=A%!12>>>24:B%=A%:A%=A%!28:�D%=C%�A%=0:�D%=C%�D%=�r(B%)�D%=0
֍>�D%=�r(A%):A%=A%!28:�D%�A%=0:�D%>0�z$=$(S%!84+(!f%>>>24))
֒ �:�D%>0�$rn%=T$(!f%>>>16�31)
֗=D%
֜(ݤfR:�A%,A$,B%,C%,D%:A%=S%!52:�A%>0�
֡A$=$rn%:C%=�gUH:�C%>-1�
֦&�D%=A%!12>>>24:�$A%=A$�D%=C%�B%=A%
֫*A%=A%!28:�B%�(A%=0):�B%�D%=�r(B%)�D%=0
ְ�:�$A%=A$�D%=�r(A%)
ֵ2A%=A%!28:�D%�A%=0:�D%>0�z$=$(S%!84+(!f%>>>24))
ֺ�
ֿ �:=D%
��5ݤrR(A$,B$):�A%:A%=�fM(B$):�A%>0��cIV(B$+"_%",A%)
��=A%
��cݤr(A%):�B%,C%,D%,E$:C%=A%+32+A%!16*24:E$=$nn%:�B%=A%+32�C%-24�24:�$B%=E$�D%=B%:B%=C%:!f%=D%!12
�� �:�D%=0�
��;E$+=z$:�B%=A%+32�C%-24�24:�$B%=E$�D%=B%:B%=C%:!f%=D%!12
���
�� �:=D%
��-ݤgUH:�A%,B$,C%,D%:A%=�$nn%,"_"):�A%=0�=�
��jC%=�:B$=�$nn%,A%):$nn%=�$nn%,A%-1):A%=S%!84:B%=A%+(S%!560<<3):�D%=A%�B%�8:�$D%=B$�C%=D%-A%:D%=B%:z$=B$
���
�=C%
�<ݤgCR(B$):�A%:$rn%="Code":$nn%=B$:A%=�fR:�A%>0�=A%!20�=0
� >ݤgUR(B$):�A%:$rn%="Custom":$nn%=B$:A%=�fR:�A%>0�=A%!20�=0
�---(SLOTS)
�
ݤfWS(A$):�B%,C%,D%:�A$<>""�
�;C%=!w%+&F00:�D%=!w%�C%�256:�D%!12>� �$D%=A$�B%=D%:D%=C%
��
� �:=B%
� #ݤoWS(A$,B%):�C%,D%,E%:�A$<>""�
�#KE%=�:C%=!w%+&F00:�D%=!w%�C%�256:�D%!12>� �$D%=A$ �D%!48<>B%�E%=D%:D%=C%
�(�
�- �:=E%
�2)ݤwS(A%):ș&80D0B,0,A%,,,S%�A%,z$:=A%
�7ݤgWS(A%):=!w%+(A%<<8)
�</��aWSm(A%,B%):Z%=�aLL(!w%+196+(A%<<8),B%):�
�A/��dWSm(A%,B%):Z%=�dLL(!w%+196+(A%<<8),B%):�
�F���rWS(A%):�B%,C%,D%:A%=�wS(A%):�A%>0�B%=A%!196:�sBw(A%,256,0):A%!12=-255:A%!48=(A%-!w%)�256:D%=S%!44:ȕB%<>-1:ș29,3,D%,B%!4:C%=B%:B%=!B%:ș29,3,D%,C%:�:A%!196=-1:ș29,1,D%�,,B%:� IFB%>S%!292THENPROCrH
�K�
�P
---(�)
�U��sound(D%):ȎD%�16�
�Z�0
�_ �1:�beep
�d�2:�1,-5,200,3
�i�3:�1,-10,75,5
�n�4:�1,-5,200,7
�s �5:�beep:�pause(30):�beep
�x)�6:�1,-5,200,3:�pause(30):�1,-5,200,3
�})�7:�1,-10,75,5:�pause(30):�1,-10,75,5
ׂ:�sound_(D%)
ׇ�
�
ב��beep:�1,-10,100,5:�
ז��sound_(D%):�
כ---(STRINGS)
נ5ݤpadR(A$,B%):B%=�B%�255:=��trmL(A$)+�B%," "),B%)
ץ5ݤpadL(A$,B%):B%=�B%�255:=��B%," ")+�trmR(A$),B%)
ת+ݤtrmL(A$):ȕ�A$,1)=" ":A$=�A$,2):�:=A$
ׯ)ݤtrmR(A$):ȕ�A$,1)=" ":A$=�A$):�:=A$
״>ݤtrmS(A$,B%):A$=�trmL(A$):A$=�trmR(A$):�B%>0�=�A$,B%)�=A$
+ݤtrunc(A$,B%):�A$>B%�A$="..."+�A$,B%)
=A$
��QݤtoLC(A$):�B%,C$:�B%=1��(A$):C$=�A$,B%,1):�C$>"@"�C$<"["��A$,B%,1)=�(�C$+32)
�� �:=A$
��QݤtoUC(A$):�B%,C$:�B%=1��(A$):C$=�A$,B%,1):�C$>"`"�C$<"{"��A$,B%,1)=�(�C$-32)
�� �:=A$
��'��pCR(A%):ȕ?A%>31:A%+=1:�:?A%=13:�
��%��pZ(A%):ȕ?A%>31:A%+=1:�:?A%=0:�
��OݤpS(� A$,D$):�V$,C%:C%=�A$,D$):�C%=0�V$=A$:A$=""�V$=�A$,C%-1):A$=�A$,C%+1)
��=V$
��mݤpV(A$,B$):�C$:B$=�toUC(�B$,1)):C$="":ȕA$<>""��toUC(�C$,1))<>B$:C$=�pS(A$,","):�:�C$,1)=B$�=�C$,2)�=""
��hݤaV(A$,B$):�C$,D$,E$,F%:D$=�toUC(�B$,1)):E$="":ȕA$<>"":C$=�pS(A$,","):�toUC(�C$,1))=D$�C$=B$:F%=�
� E$+=C$+",":�:�F%�E$+=B$
���E$)=","�E$=�E$)
�=E$
�rݤdV(A$,B$):�C$,D$,E$:D$=�toUC(�B$,1)):E$="":ȕA$<>"":C$=�pS(A$,","):�toUC(�C$,1))=D$�C$="":��E$)=","�E$=�E$)
� "E$+=C$+",":�:��E$)=","�E$=�E$)
�=E$
�`ݤgSw(A$,B%):�C%:C%=&70000000:ș&4008A,B%:ș&40085,,A$,C%,C%,-1,C%�,,C%:ș&40088,,C%�,C%:=C%
�AݤdGST(A$):�B%,C%:B%=S%!120:ș39,A$,B%,255�,,C%:B%?C%=13:=$B%
� ^ݤcdS(A$):�C%,D%:Z%=�(-1*�A$):�C%=2��(A$):D%=�(�A$,C%,1))�(128+�(127)):�A$,C%,1)=�D%:�:=A$
�"'ݤval(A$):�B%:ș&20021,,A$�,,B%:=B%
�'1ݤtoS(A%):�B$:B$=�8,"0"):ș212,A%,B$,9�B$:=B$
�,%ݤtoI(A$):�B%:ș33,16,A$�,,B%:=B%
�1
---(�)
�6 ��pause(A%):A%+=�:��A%<=�:�
�;+��wait:�1,-10,100,2:���(10)=-1:���=32:�
�@!ݤdate:�A$:A$=�$:=�pS(A$,".")
�E'ݤtime:�A$:A$=�$:Z$=�pS(A$,"."):=A$
�J---(VARIABLES)
�O$ݤrMV(A%,B%):ș53,A%,B%�,,A%:=A%
�T,ݤrVV(A%):!O%=A%:O%!4=-1:ș49,O%,O%:=!O%
�YCݤgSV(A$):�B$:B$=�248," "):ș&20023,A$,B$,248�,B$:=�trmS(B$,-1)
�^-ݤxSV(A$):�B%:ș&20023,A$,,-1,,3�,,B%:=B%
�c=��cIV(A$,B%):�A%:A$+="%":A%=S%!120:$A%=A$:�!(S%!164+16):�
�h---(WINDOWS)
�m
ݤw:=�
�rUݤwindow(A$):�A%,B%,B$,C%,C$,D%,E%,F%,G%,H%,V%:V%=�:�:��:� �:S%!152=2:�error:=�
�w $wn%=A$:C%=�fW(A$):�C%=0�=�
�|9B$=$rn%:�B$="Tools"�S%!140=-1�S%!140=W%!12:S%!144=!i%
Ȏ� �
؆ �S%!336>0:A%=�wS(S%!336)
؋ �(!f%>>>12�1)=0:A%=�fWS(A$)
ؐ
:A%=0
ؕ;�:�A%>0�V%=�:W%=A%:C$=$(S%!84+W%!16):!h%=W%!12:N%=W%!48
ؚ �V%�
؟JE%=!w%+&E00:A%=!w%+256:ȕA%!12<>-255�A%<E%:A%+=256:�:�A%!12<>-255�A%=0
ؤO�A%=0��moan("No more windows available. Please close some to continue."):=�
ة�W%=A%:W%!12=�:N%=W%!48:$W%=$wn%:!a%=C%!20:W%!16=!f%>>>24:C$=$(S%!84+W%!16):$(W%+20)=$rn%:W%!36=!f%:W%!44=!a%:$pn%=$(!a%+20):�iP:$mn%=$(!a%+4):W%!60=!(!a%+44):W%!64=!(S%!60+(W%!16>>>1)):W%!80=32:W%!84=320:W%!88=32:W%!92=320
خ �$mn%="Default"�$mn%=$wn%
سYW%!56=!(!a%+36):W%!52=0:�W%!56>0�W%!52=�gHs(W%!48,W%!56):�W%!52>0��sBw(W%!52,W%!56,0)
ظ�R%=195:Z%=�("FNe"+C$):$(W%+124)=$mn%:Z%=�iWM:ș66�A%:W%!136=A%:$(W%+200)="":W%!172=!(!a%+64):�W%!172>0�W%!180=!(W%!172):W%!172+=4�W%!176=0:W%!180=0
ؽ=G%=C%!16-92-(!(!a%)<<4):C%=�aR(!a%):G%-=C%!84<<5:�G%<0�=�
��.�cB(C%,Q%+4,88+(C%!84<<5)):�(G%+W%!180)>0�
��%H%=�gHs(W%!48,G%+W%!180):�H%=0�=�
��KW%!144=H%:W%!148=G%:W%!176=H%+G%:�G%>0�H%>0��cB(C%+88+(C%!84<<5),H%,G%)
��
�H%>0�
��%�Q%!60�256�Q%!76+=H%:W%!140=Q%!76
��E�F%=Q%+108�Q%+76+(C%!84<<5)�32:�!F%�256�F%!4+=H%:�F%!8>0�F%!8+=H%
��_�:�W%!172>0��cB(W%!172,W%!176,W%!180):W%!172+=W%!180:�F%=W%!176�W%!176+W%!180-4�4:!F%+=H%:�
���
�� �W%!144=0:W%!148=0:W%!176=0
��C�:�W%!36�2�W%!220=0��!(S%!32+36)�2�W%!220=!(S%!32+48)�W%!220=-1
�� $rn%=$(W%+20):E%=0:Ȏ$rn%�
�t�"Dialog","Scroll","Tools","View","DataPad":�B%=1�14:D%=�gWS(B%):�D%!12>� ��$D%=$wn%��D%!136>=E%�E%=D%!136:F%=D%
�J�:�E%>0�B%=F%!108-48:�B%-Q%!16+Q%!8>=128�F%=Q%!16:Q%!16=B%:Q%!8-=F%-B%
�.�:R%=193:V%=�("FNe"+C$):�V%�C$<>"_"�V%=�e_
��$rn%="DataPad"��dPad
�
sș&400C1,,Q%+4�!h%:W%!12=!h%:!Q%=!h%:W%!108=Q%!16:�S%!176�(1<<7)��iWG:ș&400C1,,Q%+4�!h%:ș&400C3,,Q%:W%!12=!h%
� �S%!176�(1<<6)��pEo(W%!48)
��:�S%!332�
� [�cB(W%!176,W%!172,W%!180):�$rn%="Tools"�C%=S%!32:�C%>0�W%!104=C%:C%!104=S%!144:N%=C%!48
�!0V%=�("FNw"+C$):�V%��oW(W%):�gC(W%):S%!380=W%
�& �:=V%
�+B��oW(A%):!J%=A%!12:ș&400CB,,J%:J%!28=-1:ș&400C6,,J%:�o(J%):�
�0��o(A%):ș&400C5,,A%:�
�5N��closeW(A%):�B$,C%,D%,E$,V%:V%=�:B$=$(A%+20):�B$="Command"�ș&400EF,!A%:�
�:7E$=$(S%!84+A%!16):N%=A%!48:�S%!176�64�V%=�clW_f(A%)
�?!�V% �S%!176�128�V%=�clW_g(A%)
�D$�V%�R%=3:�("FNe"+E$)��kW(A%!12)
�I �A%!12=-255�B$<>"Tools"�
�NJ�C%=1�14:D%=�gWS(C%):�D%!12>� �$(D%+20)="Tools" �D%!104=A%��closeW(D%)
�S�:R%=198:Z%=�("FNe"+E$)
�X�:�
�] ��kW(A%):�cW(A%):�dW(A%):�
�b��cW(A%):�A%>0�
�g ș&400D3,,Q%:�A%=!Q%��pCp
�l!Q%=A%:ș&400C6,,Q%
�q�:�
�v/��dW(A%):�A%>0�!Q%=A%:ș&400C3,,Q%:�rWS(A%)
�{�
ـ"��pW(A$,B%):�B$,C%,V%:�A$<>""�
م $wn%=A$:C%=�fW(A$):�C%>0�
ي�W%=!w%:$W%=A$:!f%=C%!12:W%!16=!f%>>>24:!a%=C%!20:$(W%+20)="Menu":W%!44=!a%:$pn%=$(!a%+20):�iP:W%!36=!f%:$mn%="":W%!60=!(!a%+44):$(W%+124)="":W%!40=-1:W%!52=!(!a%+12):W%!56=!(!a%+36)
ُJW%!12=!(!a%+8):!Q%=W%!12:ș&400CC,,Q%:�Q%!60�256�W%!140=Q%!76�W%!140=0
ٔ/�!(S%!32+36)�2�W%!220=!(S%!32+48)�W%!220=-1
ٙSB$=z$:z$="_":R%=256:V%=�e_:�V% �S%!140>0�Z%=�wS(S%!140):�z$<>"_"�V%=�("FNe"+z$)
ٞ&�V% �B$<>"_"�z$<>B$�V%=�("FNe"+B$)
٣Eș&400C1,,Q%+4�C%:ș&400C3,,Q%:W%!12=C%:!(!a%+8)=C%:�("FNw"+B$)�
٨=�B%=1�ș&400E8,,W%!12,!x0%,!y0%�ș&400D4,,W%!12,!x0%,!y0%
٭�
ٲ�
ٷ�:�
ټh��scW(A%):�A%>0�Q%!20+=!(A%+76+(�(Q%!32)<<2))*�(Q%!32):Q%!24+=!(A%+84+(�(Q%!36)<<2))*�(Q%!36):�o(Q%)
��
��L��scrollBy(A%,B%,C%):!J%=A%!12:ș&400CB,,J%:J%!20+=B%:J%!24+=C%:�o(J%):�
��,ݤvW(A%):!J%=A%:ș&400CB,,J%:=J%!12-J%!4
��,ݤvH(A%):!J%=A%:ș&400CB,,J%:=J%!16-J%!8
��(ݤxOf(A%):!J%=A%:ș&400CB,,J%:=J%!20
��(ݤyOf(A%):!J%=A%:ș&400CB,,J%:=J%!24
����ach_:Ad_%=297:�
��bݤinput(A$,B$,C$,D%,E$,B%):e1_%=1:�D$,F$:F$=�y(A$,B$,C$,D$,E$,B%,D%,"Input"):�Poll$="27"�F$=B$
��e1_%=0:=F$
��hݤalert(A$,B$,C$,D$,E$,B%):e1_%=1:�D%,F$:Z$=�y(A$,B$,C$,D$,E$,B%,D%,"Alert"):F$=Poll$:�F$="13"�F$=C$
� �F$="27"�F$=D$:�F$=""�F$=C$
�e1_%=0:=F$
�Aݤcna_(a_$):� F%,F$:�F%=1�20:F$=F$+�(�(�a_$,F%,1))-100):�:=F$
��ݤy(A$,B$,C$,D$,E$,B%,D%,F$):�bW%,bH%,C%,E%,bB%,bT%,H%,BT%,bL%,bR%,G%,BW%,tQ%,TQ%,A%,F%,Mx%,My%:F%=S%!116:tQ%=�gH(520):�tQ%=0�Poll$="":=""
� mTQ%=tQ%:bW%=736:bH%=432:bB%=20-bH%:bT%=bB%+56:C%=508:E%=316:H%=bT%+20:BT%=H%+E%:bL%=(bW%-C%)�2:bR%=bL%+C%
�E$=�toLC(E$):ȎE$�
� �"asterisk":E$="ar_excl"
� �"questmark":E$="ar_quest"
� �"exclammark":E$="ar_excl"
�%��:Q%!4=270:Q%!8=316:Q%!12=Q%!4+bW%:Q%!16=Q%!8+bH%:Q%!20=0:Q%!24=0:Q%!28=-1:Q%!32=&84000010:Q%?36=7:Q%?37=2:Q%?38=7:Q%?39=1:Q%?40=3:Q%?41=1:Q%?42=2:Q%?43=0:Q%!44=0:Q%!48=-bH%:Q%!52=bW%:Q%!56=0
�*�Q%!60=&13D:Q%!64=&3000:Q%!68=1:Q%!72=0:$F%="Message from "+$sn%+�0:Q%!76=F%:Q%!80=-1:Q%!84=�($F%)+1:F%+=40:Q%!88=1-1*((A$<>"")+(B$<>""�D%>0)+(C$<>"")+(D$<>"")+2*(E$<>"")):A%=Q%+92:�C$=""�
�/ �D$=""�C$="OK"�C$=D$:D$=""
�4-�:C$=�C$,11):G%=16*(2+�C$):�G%<152�G%=152
�9.D$=�D$,11):BW%=16*(2+�D$):�BW%<152�BW%=152
�> �D$<>""�
�C�!A%=bL%+(C%�2-G%)�2:A%!4=bB%:A%!8=!A%+G%:A%!12=bT%:A%!16=&1902D:A%?19=&C7:$(A%+20)=C$:!x%=Q%!4+!A%+G%�2:!y%=Q%!8+bH%+(bB%+bT%)�2:A%+=32
�Hb!A%=bW%�2+(C%�2-BW%)�2:A%!4=bB%:A%!8=!A%+BW%:A%!12=bT%:A%!16=&1902D:A%?19=7:$(A%+20)=D$:A%+=32
�M��!A%=bL%+(C%-G%)�2:A%!4=bB%:A%!8=!A%+G%:A%!12=bT%:A%!16=&1902D:A%?19=&C7:$(A%+20)=C$:!x%=Q%!4+!A%+G%�2:!y%=Q%!8+bH%+(bB%+bT%)�2:A%+=32
�R��:�E$<>""�!A%=0:A%!4=H%:A%!8=bL%:A%!12=BT%:A%!16=&1A:$(A%+20)=E$:A%+=32:!A%=bR%:A%!4=H%:A%!8=bW%:A%!12=BT%:A%!16=&1A:$(A%+20)=E$:A%+=32
�W �A$=""�
�\ �B$=""�A$="Ok"�A$=B$:B$=""
�a �:�D%=0�
�f �B$<>""�
�k�$tQ%=A$:!A%=bL%:A%!4=H%+E%�2:A%!8=bR%:A%!12=BT%:A%!16=&119:A%?19=&17:A%!20=tQ%:$F%="L40":A%!24=F%:F%+=8:A%!28=�A$+1:tQ%+=256:A%+=32
�p}$tQ%=B$:!A%=bL%:A%!4=H%:A%!8=bR%:A%!12=H%+E%�2:A%!16=&119:A%?19=&17:A%!20=tQ%:$F%="L40":A%!24=F%:F%+=8:A%!28=�B$+1:A%+=32
�ut�$tQ%=A$:!A%=bL%:A%!4=H%:A%!8=bR%:A%!12=BT%:A%!16=&119:A%?19=&17:A%!20=tQ%:$F%="L40":A%!24=F%:A%!28=�A$+1:A%+=32
�z�
���$tQ%=A$:!A%=bL%:A%!4=H%+E%�2:A%!8=bR%:A%!12=BT%:A%!16=&119:A%?19=&17:A%!20=tQ%:$F%="L40":A%!24=F%:F%+=8:A%!28=�A$+1:tQ%+=256:A%+=32
ڄz$tQ%=B$:!A%=bL%+32:A%!4=H%+52:A%!8=bR%-32:A%!12=H%+100:A%!16=&F13D:A%?19=7:A%!20=tQ%:$F%="D*":A%!24=F%:A%!28=D%:A%+=32
ډ��:!A%=bL%:A%!4=H%:A%!8=bR%:A%!12=BT%:A%!16=4:A%?19=&17:A%?20=13:ș&400C1,,Q%+4�!h%:W%=!w%+&F00:$W%=F$:W%!12=!h%:$(W%+20)=F$:$rn%=F$:�oW(W%):�gC(W%):�rP:ȗMx%,My%,Z%:ȗ�!x%,!y%:!O%=!h%:ș&400E0,,O%
ڎ�ȗȓO%!4,O%!8,O%!12-O%!4-S%!440,O%!16-O%!8-S%!444:�sound(B%�15):Poll$="":M%=�:S%!488=�:��p:�Poll$<>"":S%!488=�:F$=�gId(!h%,4):�cW(!h%):W%!12=-255:!Q%=!h%:ș&400C3,,Q%:�fH(TQ%)
ړ9ȗȓ0,0,S%!204,S%!208:M%=�:ȗ�Mx%,My%:!x%=0:!y%=0:=F$
ژ---(DEBUG AIDS)
ڝ ݤq_:=�
ڢ1��q1_:�Info_$<>""�Tr__$(1)=�cna_(Info_$):� ��
ڧ"��moan(A$):�:��:� �:�error:�
ڬ�S%!212,A$:�
ڱP��error:�err%,err$:ș&400D0,,-1:!(S%!116)=�:ȗȓ0,0,S%!204,S%!208:M%=�:Ȏ� �
ڶɟ=S%!212:S%!152=3
ڻɟ=S%!212+255:S%!152=0
�
�S%!152=3
��>�(�>S%!212)�(�<S%!212+192):err$="ARCHWAY reported error. "
��F�(�>S%!212+191)�(�<S%!212+255):err$="Application reported error. "
��:S%!152=0
���:err$+=�$
��
ȎS%!152�
��E�0:err%=2:err$=�err$,241):err$+=" (Internal code "+�~�+"/"+Þ+")"
���2,3:err%=1
��
�1:err%=3
���
��Z$(S%!116+4)=err$+�0:S%!152=0:ș&400DF,S%!116,err%,$sn%�,err%:� IFerr%=2THENPROCfin:END
��
�6ݤsysErrBox(A%):ș&400D0,,-1:ș&400DF,A%,1,$sn%:=�
� 00000000 0d 00 0a 55 f4 20 50 72 6f 70 68 65 74 20 4c 69 |...U. Prophet Li|
00000010 74 65 20 28 63 29 20 41 70 72 69 63 6f 74 65 a0 |te (c) Apricote.|
00000020 53 74 75 64 69 6f 73 20 31 39 39 31 2f 32 2f 33 |Studios 1991/2/3|
00000030 20 56 31 2e 32 38 4c 20 31 32 2e 37 2e 31 39 39 | V1.28L 12.7.199|
00000040 33 20 66 6f 72 20 41 63 6f 72 6e 20 43 6f 6d 70 |3 for Acorn Comp|
00000050 75 74 69 6e 67 0d 00 0f 92 e7 a4 66 69 78 32 5f |uting......fix2_|
00000060 3c 3e 30 8c 2a 45 72 72 6f 72 20 30 20 51 75 69 |<>0.*Error 0 Qui|
00000070 74 20 61 6e 79 20 6f 74 68 65 72 20 41 72 63 68 |t any other Arch|
00000080 77 61 79 20 70 72 6f 67 72 61 6d 73 2c 20 70 72 |way programs, pr|
00000090 65 73 73 20 66 75 6e 63 74 69 6f 6e 20 6b 65 79 |ess function key|
000000a0 20 46 31 32 20 61 6e 64 20 74 79 70 65 20 52 4d | F12 and type RM|
000000b0 4b 69 6c 6c 20 41 72 63 68 77 61 79 20 74 68 65 |Kill Archway the|
000000c0 6e 20 70 72 65 73 73 20 52 45 54 55 52 4e 20 74 |n press RETURN t|
000000d0 77 69 63 65 20 61 6e 64 20 72 65 2d 72 75 6e 20 |wice and re-run |
000000e0 50 72 6f 70 68 65 74 0d 00 14 0c c8 99 26 34 30 |Prophet......&40|
000000f0 36 43 30 0d 00 19 6d de 20 6d 5f 25 20 31 30 30 |6C0...m. m_% 100|
00000100 2c 54 72 5f 5f 24 28 32 29 2c 54 72 5f 25 28 31 |,Tr__$(2),Tr_%(1|
00000110 29 2c 70 6f 6c 6c 5f 25 32 35 36 3a 49 54 6c 6c |),poll_%256:ITll|
00000120 5f 25 3d 35 30 3a 69 77 5f 25 3d 30 3a 6f 77 5f |_%=50:iw_%=0:ow_|
00000130 25 3d 30 3a 6f 6c 64 74 5f 24 3d c1 91 24 2c 31 |%=0:oldt_$=..$,1|
00000140 37 2c 35 29 3a 63 6f 75 6e 74 5f 25 3d 30 3a 73 |7,5):count_%=0:s|
00000150 6f 75 6e 74 5f 25 3d 30 3a 69 6e 76 57 25 3d 30 |ount_%=0:invW%=0|
00000160 0d 00 1e 57 de 20 68 65 61 70 5f 25 20 36 35 35 |...W. heap_% 655|
00000170 35 36 3a 48 4d 25 3d 68 65 61 70 5f 25 2b 36 35 |56:HM%=heap_%+65|
00000180 35 35 36 3a 48 49 5f 25 3d 68 65 61 70 5f 25 3a |556:HI_%=heap_%:|
00000190 66 63 5f 25 3d 30 3a 6f 63 5f 24 3d 22 22 3a 65 |fc_%=0:oc_$="":e|
000001a0 31 5f 25 3d 30 3a 5a 31 5f 25 3d a4 67 65 74 70 |1_%=0:Z1_%=.getp|
000001b0 61 67 65 5f 28 31 29 0d 00 23 29 6c 77 5f 25 3d |age_(1)..#)lw_%=|
000001c0 30 3a 70 6d 5f 25 3d 30 3a 77 66 31 5f 25 3d 32 |0:pm_%=0:wf1_%=2|
000001d0 3a 77 66 32 5f 25 3d 32 3a 77 66 33 5f 25 3d 32 |:wf2_%=2:wf3_%=2|
000001e0 0d 00 25 1e 5a 34 5f 25 3d a4 69 6e 69 74 6d 65 |..%.Z4_%=.initme|
000001f0 6d 5f 3a 56 41 54 5f 24 3d 22 56 41 54 22 0d 00 |m_:VAT_$="VAT"..|
00000200 2d 27 e7 65 6e 76 5f 24 3c 3e 22 22 80 5a 34 5f |-'.env_$<>"".Z4_|
00000210 25 3d 30 8c 65 6e 76 5f 24 3d 22 4e 4f 20 4d 45 |%=0.env_$="NO ME|
00000220 4d 4f 52 59 22 0d 00 37 34 65 6e 64 5f 25 3d 30 |MORY"..74end_%=0|
00000230 3a c8 99 26 34 30 30 45 43 2c 2d 31 2c 2d 31 20 |:..&400EC,-1,-1 |
00000240 b8 20 5a 31 5f 25 2c 5a 32 5f 25 2c 5a 33 5f 25 |. Z1_%,Z2_%,Z3_%|
00000250 3a e0 3d 93 2b 5a 33 5f 25 0d 00 3c 09 f2 69 6e |:.=.+Z3_%..<..in|
00000260 69 74 0d 00 41 55 5a 25 3d a4 69 6e 69 74 63 6f |it..AUZ%=.initco|
00000270 6e 73 74 5f 3a 65 6e 64 5f 25 3d 30 3a 76 5f 25 |nst_:end_%=0:v_%|
00000280 3d 31 32 38 3a 4e 65 77 50 72 65 66 5f 25 28 33 |=128:NewPref_%(3|
00000290 29 3d 76 5f 25 3a f4 20 72 65 6d 6f 76 65 20 49 |)=v_%:. remove I|
000002a0 46 20 65 6e 64 20 6f 66 20 53 41 56 45 20 77 68 |F end of SAVE wh|
000002b0 65 6e 20 56 31 32 39 0d 00 46 32 e7 65 6e 76 5f |en V129..F2.env_|
000002c0 24 3c 3e 22 22 80 65 6e 76 5f 24 3c 3e 22 4e 4f |$<>"".env_$<>"NO|
000002d0 20 4d 45 4d 4f 52 59 22 8c f2 6c 6f 61 64 5f 28 | MEMORY"..load_(|
000002e0 65 6e 76 5f 24 2c 2d 31 29 0d 00 4b 14 e7 a4 6d |env_$,-1)..K...m|
000002f0 61 69 6e 57 5f 3d a3 20 8c f2 66 69 6e 0d 00 50 |ainW_=. ..fin..P|
00000300 2c e7 65 6e 76 5f 24 3d 22 4e 4f 20 4d 45 4d 4f |,.env_$="NO MEMO|
00000310 52 59 22 20 8c f2 70 65 5f 28 6e 6d 65 5f 24 29 |RY" ..pe_(nme_$)|
00000320 3a 65 6e 76 5f 24 3d 22 22 0d 00 5c 21 65 6e 64 |:env_$=""..\!end|
00000330 5f 25 3d e0 2b 6d 70 61 5f 25 3a e0 3d 65 6e 64 |_%=.+mpa_%:.=end|
00000340 5f 25 3a 65 6e 64 5f 25 3d 30 0d 00 5f 13 ee 20 |_%:end_%=0.._.. |
00000350 85 3a f2 70 65 5f 28 a4 65 72 72 5f 29 0d 00 64 |.:.pe_(.err_)..d|
00000360 24 65 6e 64 5f 25 3d 30 3a f2 70 6f 6c 6c 3a e7 |$end_%=0:.poll:.|
00000370 6e 6f 74 72 61 6e 73 5f 25 3e 30 3a e5 8d 44 64 |notrans_%>0:..Dd|
00000380 40 0d 00 69 22 6d 6f 72 65 6d 65 6d 5f 25 3d a4 |@..i"moremem_%=.|
00000390 67 65 74 70 61 67 65 5f 28 6d 6f 72 65 6d 65 6d |getpage_(moremem|
000003a0 5f 25 29 0d 00 6e 23 c8 99 26 34 30 30 45 43 2c |_%)..n#..&400EC,|
000003b0 2d 31 2c 2d 31 20 b8 20 5a 31 5f 25 2c 5a 32 5f |-1,-1 . Z1_%,Z2_|
000003c0 25 2c 5a 33 5f 25 0d 00 73 28 e7 5a 33 5f 25 3e |%,Z3_%..s(.Z3_%>|
000003d0 6d 6f 72 65 6d 65 6d 5f 25 8c 6e 6f 6d 65 6d 5f |moremem_%.nomem_|
000003e0 25 3d 30 20 8b 6e 6f 6d 65 6d 5f 25 3d 31 0d 00 |%=0 .nomem_%=1..|
000003f0 75 3a 4d 65 31 5f 25 3d 6d 6f 72 65 6d 65 6d 5f |u:Me1_%=moremem_|
00000400 25 3a 4d 65 32 5f 25 3d e0 3a 4d 65 33 5f 25 3d |%:Me2_%=.:Me3_%=|
00000410 5a 31 5f 25 2b 6d 6f 72 65 6d 65 6d 5f 25 3a 4d |Z1_%+moremem_%:M|
00000420 65 34 5f 25 3d 93 2d 90 0d 00 76 14 4d 65 32 5f |e4_%=.-...v.Me2_|
00000430 25 2b 3d 6d 6f 72 65 6d 65 6d 5f 25 0d 00 78 32 |%+=moremem_%..x2|
00000440 e7 6d 6f 72 65 6d 65 6d 5f 25 3e 30 80 6e 6f 6d |.moremem_%>0.nom|
00000450 65 6d 5f 25 3d 30 3a 5a 31 5f 25 2b 3d 6d 6f 72 |em_%=0:Z1_%+=mor|
00000460 65 6d 65 6d 5f 25 3a e0 3d 4d 65 32 5f 25 0d 00 |emem_%:.=Me2_%..|
00000470 7d 0f e7 6e 6f 6d 65 6d 5f 25 3d 31 8c 0d 00 82 |}..nomem_%=1....|
00000480 27 e7 65 6e 64 5f 25 3c 32 8c f2 70 65 5f 28 22 |'.end_%<2..pe_("|
00000490 4d 65 6d 6f 72 79 20 67 65 74 74 69 6e 67 20 6c |Memory getting l|
000004a0 6f 77 22 29 0d 00 87 18 e7 65 6e 64 5f 25 3e 31 |ow").....end_%>1|
000004b0 8c f2 70 65 5f 28 6e 6d 65 5f 24 29 0d 00 8c 05 |..pe_(nme_$)....|
000004c0 cd 0d 00 91 3c e7 6d 6f 72 65 6d 65 6d 5f 25 3e |....<.moremem_%>|
000004d0 30 3a e7 65 6e 64 5f 25 3e 31 3a e7 6e 6f 6d 65 |0:.end_%>1:.nome|
000004e0 6d 5f 25 3d 30 3a 65 6e 64 5f 25 3d 30 3a f2 72 |m_%=0:end_%=0:.r|
000004f0 65 6c 6f 61 64 70 72 6f 70 68 65 74 5f 0d 00 96 |eloadprophet_...|
00000500 09 e5 8d 44 64 40 0d 00 9b 57 f4 20 42 41 53 49 |...Dd@...W. BASI|
00000510 43 20 35 20 28 52 69 73 63 4f 53 20 32 29 20 42 |C 5 (RiscOS 2) B|
00000520 55 47 2c 20 43 61 6e 27 74 20 68 61 6e 64 6c 65 |UG, Can't handle|
00000530 20 6d 65 6d 20 65 78 74 2e 20 69 6e 20 6c 6f 6f | mem ext. in loo|
00000540 70 73 20 73 6f 20 47 4f 54 4f 20 75 73 65 64 20 |ps so GOTO used |
00000550 61 73 20 77 6f 72 6b 61 72 6f 75 6e 64 0d 00 a0 |as workaround...|
00000560 05 e0 0d 00 a5 04 0d 00 aa b9 dd a4 66 69 78 5f |............fix_|
00000570 3a e7 a4 66 69 78 31 5f 20 84 52 25 3d 31 39 33 |:..fix1_ .R%=193|
00000580 84 69 6e 76 77 25 3d 57 25 21 31 32 80 52 25 3c |.invw%=W%!12.R%<|
00000590 3e 38 84 73 61 6c 65 64 25 3d 57 25 21 31 32 80 |>8.saled%=W%!12.|
000005a0 52 25 3c 3e 38 84 70 61 6c 65 64 25 3d 57 25 21 |R%<>8.paled%=W%!|
000005b0 31 32 80 52 25 3c 3e 38 84 62 61 6e 6b 6c 25 3d |12.R%<>8.bankl%=|
000005c0 57 25 21 31 32 80 52 25 3c 3e 38 84 76 61 74 70 |W%!12.R%<>8.vatp|
000005d0 25 3d 57 25 80 52 25 3c 3e 38 84 73 74 61 6e 64 |%=W%.R%<>8.stand|
000005e0 25 3d 57 25 21 31 32 80 52 25 3c 3e 38 84 62 61 |%=W%!12.R%<>8.ba|
000005f0 6e 6b 25 3d 57 25 80 52 25 3c 3e 38 84 68 65 61 |nk%=W%.R%<>8.hea|
00000600 64 73 25 3d 57 25 80 52 25 3c 3e 38 84 68 65 61 |ds%=W%.R%<>8.hea|
00000610 64 70 25 3d 57 25 80 52 25 3c 3e 38 8c 3d b9 0d |dp%=W%.R%<>8.=..|
00000620 00 af 06 3d a3 0d 00 b4 8d dd a4 66 69 78 31 5f |...=.......fix1_|
00000630 3a e7 49 4f 77 69 6e 64 25 3c 3e 57 25 21 31 32 |:.IOwind%<>W%!12|
00000640 80 69 6e 76 77 25 3c 3e 57 25 21 31 32 80 73 61 |.invw%<>W%!12.sa|
00000650 6c 65 64 25 3c 3e 57 25 21 31 32 80 70 61 6c 65 |led%<>W%!12.pale|
00000660 64 25 3c 3e 57 25 21 31 32 80 62 61 6e 6b 6c 25 |d%<>W%!12.bankl%|
00000670 3c 3e 57 25 21 31 32 80 76 61 74 70 25 3c 3e 57 |<>W%!12.vatp%<>W|
00000680 25 80 73 74 61 6e 64 25 3c 3e 57 25 21 31 32 80 |%.stand%<>W%!12.|
00000690 62 61 6e 6b 25 3c 3e 57 25 80 68 65 61 64 73 25 |bank%<>W%.heads%|
000006a0 3c 3e 57 25 80 68 65 61 64 70 25 3c 3e 57 25 8c |<>W%.headp%<>W%.|
000006b0 3d b9 0d 00 b9 0b 2a 46 58 31 35 2c 31 0d 00 be |=.....*FX15,1...|
000006c0 06 3d a3 0d 00 c3 1c dd a4 66 69 78 32 5f 3a ea |.=.......fix2_:.|
000006d0 20 85 3a ee 20 85 20 ea 3a f7 20 85 3a 3d 30 0d | .:. . .:. .:=0.|
000006e0 00 c8 26 c8 99 26 31 45 2c 31 38 2c 22 41 72 63 |..&..&1E,18,"Arc|
000006f0 68 77 61 79 22 20 b8 20 2c 6d 6f 64 5f 25 3a 3d |hway" . ,mod_%:=|
00000700 6d 6f 64 5f 25 0d 00 cd 27 dd f2 66 69 78 33 5f |mod_%...'..fix3_|
00000710 3a ea 20 5a 25 3a e7 51 25 21 31 36 3d 26 34 30 |:. Z%:.Q%!16=&40|
00000720 30 43 33 8c 66 63 5f 25 3d 31 3a e1 0d 00 d2 1f |0C3.fc_%=1:.....|
00000730 e7 51 25 21 34 30 3c 3e 26 43 38 37 20 80 51 25 |.Q%!40<>&C87 .Q%|
00000740 21 34 30 3c 3e 26 43 38 38 8c e1 0d 00 d7 0d 5a |!40<>&C88......Z|
00000750 25 3d a4 72 4d 5f 3a e1 0d 00 dc 8a dd f2 6d 62 |%=.rM_:.......mb|
00000760 5f 3a 73 5f 24 3d a4 67 49 64 28 57 25 21 31 32 |_:s_$=.gId(W%!12|
00000770 2c 21 69 25 29 3a e7 24 77 6e 25 3d 22 43 53 75 |,!i%):.$wn%="CSu|
00000780 53 61 76 65 22 84 24 77 6e 25 3d 22 53 73 61 76 |Save".$wn%="Ssav|
00000790 65 22 84 24 77 6e 25 3d 22 53 61 6c 65 64 52 57 |e".$wn%="SaledRW|
000007a0 22 84 24 77 6e 25 3d 22 50 61 6c 65 64 52 57 22 |".$wn%="PaledRW"|
000007b0 84 24 77 6e 25 3d 22 42 61 6e 6b 52 57 22 84 24 |.$wn%="BankRW".$|
000007c0 77 6e 25 3d 22 56 61 74 50 43 6f 6e 74 22 84 24 |wn%="VatPCont".$|
000007d0 77 6e 25 3d 22 42 61 6e 6b 50 22 8c 73 5f 24 3d |wn%="BankP".s_$=|
000007e0 22 22 0d 00 e1 34 e7 21 62 25 3d 36 34 3a e7 a4 |""...4.!b%=64:..|
000007f0 70 6d 6d 5f 3a e7 70 6d 5f 25 3d 31 3a c8 99 26 |pmm_:.pm_%=1:..&|
00000800 34 30 30 45 39 2c 33 36 2c 2c 22 70 74 72 5f 68 |400E9,36,,"ptr_h|
00000810 61 6e 64 22 2c 32 0d 00 e6 40 e7 50 72 63 74 25 |and",2...@.Prct%|
00000820 3e 30 3a e7 57 25 21 31 32 3d 50 72 63 74 25 21 |>0:.W%!12=Prct%!|
00000830 31 32 3a e7 70 72 65 66 73 31 5f 25 3d 2d 31 8c |12:.prefs1_%=-1.|
00000840 c8 99 26 34 30 30 44 32 2c 2d 31 2c 2d 31 2c 30 |..&400D2,-1,-1,0|
00000850 2c 30 2c 30 2c 30 0d 00 eb 05 e1 0d 00 f0 13 dd |,0,0,0..........|
00000860 f2 6d 62 31 5f 3a f2 64 72 61 67 5f 3a e1 0d 00 |.mb1_:.drag_:...|
00000870 f5 18 dd f2 6d 62 32 5f 3a e7 a4 70 6d 6d 5f 3a |....mb2_:..pmm_:|
00000880 70 6d 5f 25 3d 31 0d 00 f6 05 e1 0d 00 fa 10 dd |pm_%=1..........|
00000890 a4 53 74 6f 63 6b 57 5f 3a 3d a3 0d 00 fc 13 dd |.StockW_:=......|
000008a0 a4 53 75 70 70 6c 69 65 72 57 5f 3a 3d a3 0d 00 |.SupplierW_:=...|
000008b0 fd 0f dd a4 53 61 6c 65 73 5f 3a 3d a3 0d 00 fe |....Sales_:=....|
000008c0 0e dd a4 42 61 6c 57 5f 3a 3d a3 0d 00 ff 10 dd |...BalW_:=......|
000008d0 a4 49 6e 64 65 78 57 5f 3a 3d a3 0d 01 00 bc dd |.IndexW_:=......|
000008e0 a4 70 6d 6d 5f 3a e7 24 77 6e 25 3d 22 4f 72 64 |.pmm_:.$wn%="Ord|
000008f0 65 72 57 22 84 24 77 6e 25 3d 22 53 74 61 74 65 |erW".$wn%="State|
00000900 6d 65 6e 74 57 22 84 24 77 6e 25 3d 22 49 6e 76 |mentW".$wn%="Inv|
00000910 6f 69 63 65 57 22 84 24 77 6e 25 3d 22 53 73 61 |oiceW".$wn%="Ssa|
00000920 76 65 22 84 24 77 6e 25 3d 22 43 53 75 53 61 76 |ve".$wn%="CSuSav|
00000930 65 22 84 24 77 6e 25 3d 22 43 61 6c 63 22 84 24 |e".$wn%="Calc".$|
00000940 77 6e 25 3d 22 53 61 6c 65 64 52 57 22 84 24 77 |wn%="SaledRW".$w|
00000950 6e 25 3d 22 50 61 6c 65 64 52 57 22 84 24 77 6e |n%="PaledRW".$wn|
00000960 25 3d 22 42 61 6e 6b 52 57 22 84 24 77 6e 25 3d |%="BankRW".$wn%=|
00000970 22 56 61 74 50 43 6f 6e 74 22 84 24 77 6e 25 3d |"VatPCont".$wn%=|
00000980 22 53 61 6c 65 73 22 84 24 77 6e 25 3d 22 42 61 |"Sales".$wn%="Ba|
00000990 6e 6b 50 22 3a 3d 31 0d 01 04 06 3d 30 0d 01 09 |nkP":=1....=0...|
000009a0 20 dd a4 67 65 74 70 61 67 65 5f 28 41 25 29 3a | ..getpage_(A%):|
000009b0 ea 20 42 25 3a e7 41 25 3d 30 8c 3d 30 0d 01 0e |. B%:.A%=0.=0...|
000009c0 25 c8 99 26 35 31 20 b8 20 42 25 3a 6d 70 61 5f |%..&51 . B%:mpa_|
000009d0 25 3d 42 25 3a 3d 42 25 2a 28 41 25 81 42 25 2b |%=B%:=B%*(A%.B%+|
000009e0 31 29 0d 01 13 2b dd f2 50 6f 6c 6c 5f 3a c8 99 |1)...+..Poll_:..|
000009f0 26 34 30 30 43 37 2c 2c 70 62 6c 6f 63 6b 5f 25 |&400C7,,pblock_%|
00000a00 20 b8 20 72 65 61 73 6f 6e 5f 25 3a e1 0d 01 18 | . reason_%:....|
00000a10 11 dd a4 6d 61 69 6e 57 5f 3a ea 20 56 24 0d 01 |...mainW_:. V$..|
00000a20 1d 4f 56 24 3d 70 61 73 73 31 5f 24 3a e7 65 64 |.OV$=pass1_$:.ed|
00000a30 69 74 25 3d 30 3a e7 70 61 73 73 31 5f 24 3c 3e |it%=0:.pass1_$<>|
00000a40 22 22 8c 56 24 3d a4 69 6e 70 75 74 28 70 61 73 |"".V$=.input(pas|
00000a50 73 6d 31 5f 24 2c 22 22 2c 22 4f 4b 22 2c 35 2c |sm1_$,"","OK",5,|
00000a60 22 61 72 5f 71 75 65 73 74 22 2c 31 29 0d 01 22 |"ar_quest",1).."|
00000a70 26 e7 56 24 3d 70 61 73 73 31 5f 24 8c 3d a4 77 |&.V$=pass1_$.=.w|
00000a80 69 6e 64 6f 77 28 22 45 64 69 74 49 74 22 29 20 |indow("EditIt") |
00000a90 8b 3d a3 0d 01 27 1d dd a4 4f 72 64 65 72 4d 65 |.=...'...OrderMe|
00000aa0 6e 75 57 5f 3a f2 77 6c 5f 28 32 38 29 3a 3d a3 |nuW_:.wl_(28):=.|
00000ab0 0d 01 2c 18 dd a4 53 6c 6f 61 64 5f 3a f2 77 6c |..,...Sload_:.wl|
00000ac0 5f 28 32 38 29 3a 3d b9 0d 01 31 1a dd a4 62 72 |_(28):=...1...br|
00000ad0 65 61 6b 50 31 5f 3a f2 77 6c 5f 28 32 38 29 3a |eakP1_:.wl_(28):|
00000ae0 3d a3 0d 01 36 84 dd a4 69 6e 69 74 76 61 74 70 |=...6...initvatp|
00000af0 5f 3a ea 20 5a 25 3a f2 70 46 44 28 57 25 2c 56 |_:. Z%:.pFD(W%,V|
00000b00 61 74 52 5f 24 28 29 2c 30 29 3a e3 5a 25 3d 30 |atR_$(),0):.Z%=0|
00000b10 b8 34 33 3a f2 73 49 63 6f 6e 5f 28 57 25 21 31 |.43:.sIcon_(W%!1|
00000b20 32 2c 5a 25 2b 35 37 2c 56 61 74 54 5f 25 28 5a |2,Z%+57,VatT_%(Z|
00000b30 25 29 29 3a ed 3a 24 21 76 61 74 68 65 61 64 5f |%)):.:$!vathead_|
00000b40 25 3d 76 61 74 68 65 61 64 5f 24 3a 24 21 76 61 |%=vathead_$:$!va|
00000b50 74 68 65 61 64 31 5f 25 3d 76 61 74 68 65 61 64 |thead1_%=vathead|
00000b60 31 5f 24 3a 3d b9 0d 01 3b 21 dd a4 75 70 64 61 |1_$:=...;!..upda|
00000b70 74 65 76 61 74 70 5f 3a e7 70 61 73 73 38 5f 24 |tevatp_:.pass8_$|
00000b80 3c 3e 22 22 8c 3d a3 0d 01 40 32 ea 20 5a 25 3a |<>"".=...@2. Z%:|
00000b90 e3 5a 25 3d 30 b8 34 33 3a 56 61 74 52 5f 24 28 |.Z%=0.43:VatR_$(|
00000ba0 5a 25 29 3d a4 67 49 64 28 57 25 21 31 32 2c 5a |Z%)=.gId(W%!12,Z|
00000bb0 25 2b 31 29 3a ed 3a 3d b9 0d 01 9f 56 dd a4 4f |%+1):.:=....V..O|
00000bc0 31 5f 3a e7 21 69 25 83 32 3d 31 80 54 49 54 65 |1_:.!i%.2=1.TITe|
00000bd0 5f 25 28 28 21 69 25 2d 38 31 29 2f 32 2b 74 69 |_%((!i%-81)/2+ti|
00000be0 74 70 5f 25 29 3d 31 84 21 69 25 83 32 3d 30 80 |tp_%)=1.!i%.2=0.|
00000bf0 54 49 54 65 5f 25 28 28 21 69 25 2d 38 31 29 2f |TITe_%((!i%-81)/|
00000c00 32 2b 74 69 74 70 5f 25 29 3d 2d 31 8c 3d a3 0d |2+titp_%)=-1.=..|
00000c10 01 a4 47 54 49 54 65 5f 25 28 28 21 69 25 2d 38 |..GTITe_%((!i%-8|
00000c20 31 29 2f 32 2b 74 69 74 70 5f 25 29 3d 2d 54 49 |1)/2+titp_%)=-TI|
00000c30 54 65 5f 25 28 28 21 69 25 2d 38 31 29 2f 32 2b |Te_%((!i%-81)/2+|
00000c40 74 69 74 70 5f 25 29 3a f2 67 65 74 54 49 54 64 |titp_%):.getTITd|
00000c50 61 74 5f 3a 3d a3 0d 01 a9 04 0d 01 ae 51 dd a4 |at_:=........Q..|
00000c60 74 31 5f 3a ea 20 5a 25 3a 5a 25 3d 21 69 25 2d |t1_:. Z%:Z%=!i%-|
00000c70 35 37 3a e7 70 61 73 73 38 5f 24 3c 3e 22 22 8c |57:.pass8_$<>"".|
00000c80 f2 73 49 63 6f 6e 5f 28 57 25 21 31 32 2c 5a 25 |.sIcon_(W%!12,Z%|
00000c90 2b 35 37 2c 56 61 74 54 5f 25 28 5a 25 29 29 3a |+57,VatT_%(Z%)):|
00000ca0 f2 77 6c 5f 28 32 36 29 3a 3d a3 0d 01 b3 22 56 |.wl_(26):=...."V|
00000cb0 61 74 54 5f 25 28 21 69 25 2d 35 37 29 3d 2d 56 |atT_%(!i%-57)=-V|
00000cc0 61 74 54 5f 25 28 21 69 25 2d 35 37 29 0d 01 b8 |atT_%(!i%-57)...|
00000cd0 0e c8 8e 20 21 69 25 83 34 20 ca 0d 01 bd 16 c9 |... !i%.4 ......|
00000ce0 20 31 3a e7 56 61 74 54 5f 25 28 5a 25 29 3d 31 | 1:.VatT_%(Z%)=1|
00000cf0 8c 0d 01 c2 45 e7 56 61 74 54 5f 25 28 5a 25 2b |....E.VatT_%(Z%+|
00000d00 31 29 3d 31 8c 56 61 74 54 5f 25 28 5a 25 2b 31 |1)=1.VatT_%(Z%+1|
00000d10 29 3d 2d 31 3a f2 73 49 63 6f 6e 5f 28 57 25 21 |)=-1:.sIcon_(W%!|
00000d20 31 32 2c 21 69 25 2b 31 2c 56 61 74 54 5f 25 28 |12,!i%+1,VatT_%(|
00000d30 5a 25 2b 31 29 29 0d 01 c7 52 e7 56 61 74 54 5f |Z%+1))...R.VatT_|
00000d40 25 28 5a 25 2b 32 29 2b 56 61 74 54 5f 25 28 5a |%(Z%+2)+VatT_%(Z|
00000d50 25 2b 33 29 3d 2d 32 8c 56 61 74 54 5f 25 28 5a |%+3)=-2.VatT_%(Z|
00000d60 25 2b 32 29 3d 31 3a f2 73 49 63 6f 6e 5f 28 57 |%+2)=1:.sIcon_(W|
00000d70 25 21 31 32 2c 21 69 25 2b 32 2c 56 61 74 54 5f |%!12,!i%+2,VatT_|
00000d80 25 28 5a 25 2b 32 29 29 0d 01 cc 05 cd 0d 01 d1 |%(Z%+2))........|
00000d90 83 e7 56 61 74 54 5f 25 28 5a 25 29 2b 56 61 74 |..VatT_%(Z%)+Vat|
00000da0 54 5f 25 28 5a 25 2b 31 29 3d 2d 32 8c 56 61 74 |T_%(Z%+1)=-2.Vat|
00000db0 54 5f 25 28 5a 25 2b 32 29 3d 2d 31 3a 56 61 74 |T_%(Z%+2)=-1:Vat|
00000dc0 54 5f 25 28 5a 25 2b 33 29 3d 2d 31 3a f2 73 49 |T_%(Z%+3)=-1:.sI|
00000dd0 63 6f 6e 5f 28 57 25 21 31 32 2c 21 69 25 2b 32 |con_(W%!12,!i%+2|
00000de0 2c 56 61 74 54 5f 25 28 5a 25 2b 32 29 29 3a f2 |,VatT_%(Z%+2)):.|
00000df0 73 49 63 6f 6e 5f 28 57 25 21 31 32 2c 21 69 25 |sIcon_(W%!12,!i%|
00000e00 2b 33 2c 56 61 74 54 5f 25 28 5a 25 2b 33 29 29 |+3,VatT_%(Z%+3))|
00000e10 0d 01 d6 16 c9 20 32 3a e7 56 61 74 54 5f 25 28 |..... 2:.VatT_%(|
00000e20 5a 25 29 3d 31 8c 0d 01 db 45 e7 56 61 74 54 5f |Z%)=1....E.VatT_|
00000e30 25 28 5a 25 2d 31 29 3d 31 8c 56 61 74 54 5f 25 |%(Z%-1)=1.VatT_%|
00000e40 28 5a 25 2d 31 29 3d 2d 31 3a f2 73 49 63 6f 6e |(Z%-1)=-1:.sIcon|
00000e50 5f 28 57 25 21 31 32 2c 21 69 25 2d 31 2c 56 61 |_(W%!12,!i%-1,Va|
00000e60 74 54 5f 25 28 5a 25 2d 31 29 29 0d 01 e0 52 e7 |tT_%(Z%-1))...R.|
00000e70 56 61 74 54 5f 25 28 5a 25 2b 31 29 2b 56 61 74 |VatT_%(Z%+1)+Vat|
00000e80 54 5f 25 28 5a 25 2b 32 29 3d 2d 32 8c 56 61 74 |T_%(Z%+2)=-2.Vat|
00000e90 54 5f 25 28 5a 25 2b 31 29 3d 31 3a f2 73 49 63 |T_%(Z%+1)=1:.sIc|
00000ea0 6f 6e 5f 28 57 25 21 31 32 2c 21 69 25 2b 31 2c |on_(W%!12,!i%+1,|
00000eb0 56 61 74 54 5f 25 28 5a 25 2b 31 29 29 0d 01 e5 |VatT_%(Z%+1))...|
00000ec0 05 cd 0d 01 ea 83 e7 56 61 74 54 5f 25 28 5a 25 |.......VatT_%(Z%|
00000ed0 2d 31 29 2b 56 61 74 54 5f 25 28 5a 25 29 3d 2d |-1)+VatT_%(Z%)=-|
00000ee0 32 8c 56 61 74 54 5f 25 28 5a 25 2b 31 29 3d 2d |2.VatT_%(Z%+1)=-|
00000ef0 31 3a 56 61 74 54 5f 25 28 5a 25 2b 32 29 3d 2d |1:VatT_%(Z%+2)=-|
00000f00 31 3a f2 73 49 63 6f 6e 5f 28 57 25 21 31 32 2c |1:.sIcon_(W%!12,|
00000f10 21 69 25 2b 31 2c 56 61 74 54 5f 25 28 5a 25 2b |!i%+1,VatT_%(Z%+|
00000f20 31 29 29 3a f2 73 49 63 6f 6e 5f 28 57 25 21 31 |1)):.sIcon_(W%!1|
00000f30 32 2c 21 69 25 2b 32 2c 56 61 74 54 5f 25 28 5a |2,!i%+2,VatT_%(Z|
00000f40 25 2b 32 29 29 0d 01 ef 64 c9 20 33 3a e7 56 61 |%+2))...d. 3:.Va|
00000f50 74 54 5f 25 28 5a 25 29 3d 31 3a e7 56 61 74 54 |tT_%(Z%)=1:.VatT|
00000f60 5f 25 28 5a 25 2d 31 29 2b 56 61 74 54 5f 25 28 |_%(Z%-1)+VatT_%(|
00000f70 5a 25 2d 32 29 3d 2d 32 8c 56 61 74 54 5f 25 28 |Z%-2)=-2.VatT_%(|
00000f80 5a 25 2d 32 29 3d 31 3a f2 73 49 63 6f 6e 5f 28 |Z%-2)=1:.sIcon_(|
00000f90 57 25 21 31 32 2c 21 69 25 2d 32 2c 56 61 74 54 |W%!12,!i%-2,VatT|
00000fa0 5f 25 28 5a 25 2d 32 29 29 0d 01 f4 a1 e7 56 61 |_%(Z%-2)).....Va|
00000fb0 74 54 5f 25 28 5a 25 29 2b 56 61 74 54 5f 25 28 |tT_%(Z%)+VatT_%(|
00000fc0 5a 25 2b 31 29 3d 2d 32 3a e7 56 61 74 54 5f 25 |Z%+1)=-2:.VatT_%|
00000fd0 28 5a 25 2d 31 29 2b 56 61 74 54 5f 25 28 5a 25 |(Z%-1)+VatT_%(Z%|
00000fe0 2d 32 29 3e 2d 32 8c 56 61 74 54 5f 25 28 5a 25 |-2)>-2.VatT_%(Z%|
00000ff0 2d 31 29 3d 2d 31 3a 56 61 74 54 5f 25 28 5a 25 |-1)=-1:VatT_%(Z%|
00001000 2d 32 29 3d 2d 31 3a f2 73 49 63 6f 6e 5f 28 57 |-2)=-1:.sIcon_(W|
00001010 25 21 31 32 2c 21 69 25 2d 32 2c 56 61 74 54 5f |%!12,!i%-2,VatT_|
00001020 25 28 5a 25 2d 32 29 29 3a f2 73 49 63 6f 6e 5f |%(Z%-2)):.sIcon_|
00001030 28 57 25 21 31 32 2c 21 69 25 2d 31 2c 56 61 74 |(W%!12,!i%-1,Vat|
00001040 54 5f 25 28 5a 25 2d 31 29 29 0d 01 f9 64 c9 20 |T_%(Z%-1))...d. |
00001050 30 3a e7 56 61 74 54 5f 25 28 5a 25 29 3d 31 3a |0:.VatT_%(Z%)=1:|
00001060 e7 56 61 74 54 5f 25 28 5a 25 2d 32 29 2b 56 61 |.VatT_%(Z%-2)+Va|
00001070 74 54 5f 25 28 5a 25 2d 33 29 3d 2d 32 8c 56 61 |tT_%(Z%-3)=-2.Va|
00001080 74 54 5f 25 28 5a 25 2d 33 29 3d 31 3a f2 73 49 |tT_%(Z%-3)=1:.sI|
00001090 63 6f 6e 5f 28 57 25 21 31 32 2c 21 69 25 2d 33 |con_(W%!12,!i%-3|
000010a0 2c 56 61 74 54 5f 25 28 5a 25 2d 33 29 29 0d 01 |,VatT_%(Z%-3))..|
000010b0 fe a1 e7 56 61 74 54 5f 25 28 5a 25 29 2b 56 61 |...VatT_%(Z%)+Va|
000010c0 74 54 5f 25 28 5a 25 2d 31 29 3d 2d 32 3a e7 56 |tT_%(Z%-1)=-2:.V|
000010d0 61 74 54 5f 25 28 5a 25 2d 32 29 2b 56 61 74 54 |atT_%(Z%-2)+VatT|
000010e0 5f 25 28 5a 25 2d 33 29 3e 2d 32 8c 56 61 74 54 |_%(Z%-3)>-2.VatT|
000010f0 5f 25 28 5a 25 2d 32 29 3d 2d 31 3a 56 61 74 54 |_%(Z%-2)=-1:VatT|
00001100 5f 25 28 5a 25 2d 33 29 3d 2d 31 3a f2 73 49 63 |_%(Z%-3)=-1:.sIc|
00001110 6f 6e 5f 28 57 25 21 31 32 2c 21 69 25 2d 33 2c |on_(W%!12,!i%-3,|
00001120 56 61 74 54 5f 25 28 5a 25 2d 33 29 29 3a f2 73 |VatT_%(Z%-3)):.s|
00001130 49 63 6f 6e 5f 28 57 25 21 31 32 2c 21 69 25 2d |Icon_(W%!12,!i%-|
00001140 32 2c 56 61 74 54 5f 25 28 5a 25 2d 32 29 29 0d |2,VatT_%(Z%-2)).|
00001150 02 03 05 cb 0d 02 08 06 3d b9 0d 02 0d 04 0d 02 |........=.......|
00001160 12 48 dd a4 76 31 5f 3a ea 20 5a 25 3a e7 70 61 |.H..v1_:. Z%:.pa|
00001170 73 73 38 5f 24 3c 3e 22 22 8c 5a 25 3d a4 70 49 |ss8_$<>"".Z%=.pI|
00001180 49 28 57 25 21 31 32 2c 21 69 25 2c 56 61 74 52 |I(W%!12,!i%,VatR|
00001190 5f 24 28 21 69 25 2d 31 29 29 3a f2 77 6c 5f 28 |_$(!i%-1)):.wl_(|
000011a0 32 36 29 3a 3d a3 0d 02 17 24 56 61 74 52 5f 24 |26):=....$VatR_$|
000011b0 28 21 69 25 2d 31 29 3d a4 67 49 64 28 57 25 21 |(!i%-1)=.gId(W%!|
000011c0 31 32 2c 21 69 25 29 3a 3d b9 0d 02 1c 04 0d 02 |12,!i%):=.......|
000011d0 21 42 dd a4 53 68 75 70 5f 3a ea 20 5a 25 3a e7 |!B..Shup_:. Z%:.|
000011e0 24 77 6e 25 3d 22 48 65 61 64 69 6e 67 73 22 8c |$wn%="Headings".|
000011f0 53 73 75 62 48 5f 25 2d 3d 31 3a e7 53 73 75 62 |SsubH_%-=1:.Ssub|
00001200 48 5f 25 3c 30 8c 53 73 75 62 48 5f 25 3d 31 31 |H_%<0.SsubH_%=11|
00001210 0d 02 26 36 e7 24 77 6e 25 3d 22 50 48 65 61 64 |..&6.$wn%="PHead|
00001220 69 6e 67 73 22 8c 50 73 75 62 48 5f 25 2d 3d 31 |ings".PsubH_%-=1|
00001230 3a e7 50 73 75 62 48 5f 25 3c 30 8c 50 73 75 62 |:.PsubH_%<0.Psub|
00001240 48 5f 25 3d 31 31 0d 02 2b 4c e7 24 77 6e 25 3d |H_%=11..+L.$wn%=|
00001250 22 48 65 61 64 69 6e 67 73 22 8c 24 21 53 6d 31 |"Headings".$!Sm1|
00001260 5f 25 3d bd 28 53 73 75 62 48 5f 25 2b 36 35 29 |_%=.(SsubH_%+65)|
00001270 3a 5a 25 3d a4 75 70 64 61 74 65 68 65 61 64 73 |:Z%=.updateheads|
00001280 4d 5f 28 30 29 3a f2 73 65 74 43 5f 28 31 29 3a |M_(0):.setC_(1):|
00001290 3d b9 0d 02 30 3b 24 21 50 6d 31 5f 25 3d bd 28 |=...0;$!Pm1_%=.(|
000012a0 50 73 75 62 48 5f 25 2b 36 35 29 3a 5a 25 3d a4 |PsubH_%+65):Z%=.|
000012b0 75 70 64 61 74 65 68 65 61 64 70 4d 5f 28 30 29 |updateheadpM_(0)|
000012c0 3a f2 73 65 74 43 5f 28 31 29 3a 3d b9 0d 02 35 |:.setC_(1):=...5|
000012d0 42 dd a4 53 68 64 6f 5f 3a ea 20 5a 25 3a e7 24 |B..Shdo_:. Z%:.$|
000012e0 77 6e 25 3d 22 48 65 61 64 69 6e 67 73 22 8c 53 |wn%="Headings".S|
000012f0 73 75 62 48 5f 25 2b 3d 31 3a e7 53 73 75 62 48 |subH_%+=1:.SsubH|
00001300 5f 25 3e 31 31 8c 53 73 75 62 48 5f 25 3d 30 0d |_%>11.SsubH_%=0.|
00001310 02 3a 36 e7 24 77 6e 25 3d 22 50 48 65 61 64 69 |.:6.$wn%="PHeadi|
00001320 6e 67 73 22 8c 50 73 75 62 48 5f 25 2b 3d 31 3a |ngs".PsubH_%+=1:|
00001330 e7 50 73 75 62 48 5f 25 3e 31 31 8c 50 73 75 62 |.PsubH_%>11.Psub|
00001340 48 5f 25 3d 30 0d 02 3f 4c e7 24 77 6e 25 3d 22 |H_%=0..?L.$wn%="|
00001350 48 65 61 64 69 6e 67 73 22 8c 24 21 53 6d 31 5f |Headings".$!Sm1_|
00001360 25 3d bd 28 53 73 75 62 48 5f 25 2b 36 35 29 3a |%=.(SsubH_%+65):|
00001370 5a 25 3d a4 75 70 64 61 74 65 68 65 61 64 73 4d |Z%=.updateheadsM|
00001380 5f 28 30 29 3a f2 73 65 74 43 5f 28 31 29 3a 3d |_(0):.setC_(1):=|
00001390 b9 0d 02 44 3b 24 21 50 6d 31 5f 25 3d bd 28 50 |...D;$!Pm1_%=.(P|
000013a0 73 75 62 48 5f 25 2b 36 35 29 3a 5a 25 3d a4 75 |subH_%+65):Z%=.u|
000013b0 70 64 61 74 65 68 65 61 64 70 4d 5f 28 30 29 3a |pdateheadpM_(0):|
000013c0 f2 73 65 74 43 5f 28 31 29 3a 3d b9 0d 02 49 32 |.setC_(1):=...I2|
000013d0 dd a4 53 6d 31 5f 3a ea 20 41 5f 25 2c 5a 25 3a |..Sm1_:. A_%,Z%:|
000013e0 e7 24 21 53 6d 31 5f 25 3c 3e bd 28 53 73 75 62 |.$!Sm1_%<>.(Ssub|
000013f0 48 5f 25 2b 36 35 29 8c 41 5f 25 3d 36 39 0d 02 |H_%+65).A_%=69..|
00001400 4e 2b 5a 25 3d a4 75 70 64 61 74 65 68 65 61 64 |N+Z%=.updatehead|
00001410 73 4d 5f 28 30 29 3a e7 41 5f 25 3d 36 39 8c f2 |sM_(0):.A_%=69..|
00001420 73 65 74 43 5f 28 36 39 29 0d 02 53 06 3d b9 0d |setC_(69)..S.=..|
00001430 02 58 29 dd a4 53 6d 32 5f 3a 53 68 65 61 64 31 |.X)..Sm2_:Shead1|
00001440 5f 24 28 53 73 75 62 48 5f 25 2b 31 29 3d 24 21 |_$(SsubH_%+1)=$!|
00001450 53 6d 32 5f 25 3a 3d b9 0d 02 5d 3c dd a4 53 68 |Sm2_%:=...]<..Sh|
00001460 31 5f 3a ea 20 41 5f 25 2c 42 5f 25 3a e7 24 77 |1_:. A_%,B_%:.$w|
00001470 6e 25 3d 22 48 65 61 64 69 6e 67 73 22 8c 42 5f |n%="Headings".B_|
00001480 25 3d 68 65 61 64 73 25 20 8b 42 5f 25 3d 68 65 |%=heads% .B_%=he|
00001490 61 64 70 25 0d 02 62 51 e7 21 69 25 83 37 3d 31 |adp%..bQ.!i%.7=1|
000014a0 84 21 69 25 83 37 3d 32 8c 41 5f 25 3d a4 6e 69 |.!i%.7=2.A_%=.ni|
000014b0 5f 28 a4 67 49 64 28 42 5f 25 21 31 32 2c 21 69 |_(.gId(B_%!12,!i|
000014c0 25 29 29 3a 5a 25 3d a4 70 49 49 28 42 5f 25 21 |%)):Z%=.pII(B_%!|
000014d0 31 32 2c 21 69 25 2c a4 74 63 5f 28 41 5f 25 2c |12,!i%,.tc_(A_%,|
000014e0 22 30 22 29 29 0d 02 67 3b e7 24 77 6e 25 3d 22 |"0"))..g;.$wn%="|
000014f0 48 65 61 64 69 6e 67 73 22 8c 3d a4 75 70 64 61 |Headings".=.upda|
00001500 74 65 68 65 61 64 73 4d 5f 28 30 29 20 8b 3d a4 |teheadsM_(0) .=.|
00001510 75 70 64 61 74 65 68 65 61 64 70 4d 5f 28 30 29 |updateheadpM_(0)|
00001520 0d 02 6c 04 0d 02 71 28 dd a4 69 6e 69 74 68 65 |..l...q(..inithe|
00001530 61 64 73 4d 5f 28 41 5f 25 29 3a c8 99 26 34 30 |adsM_(A_%):..&40|
00001540 36 43 30 3a ea 20 5a 5f 25 2c 5a 25 0d 02 76 07 |6C0:. Z_%,Z%..v.|
00001550 ea 20 85 0d 02 7b 19 ee 20 85 20 ea 3a f7 20 85 |. ...{.. . .:. .|
00001560 3a c8 99 26 34 30 36 43 31 3a 3d a3 0d 02 80 69 |:..&406C1:=....i|
00001570 74 31 5f 25 28 29 3d 30 3a 74 32 5f 25 28 29 3d |t1_%()=0:t2_%()=|
00001580 30 3a 48 77 5f 24 28 32 34 29 3d bd 28 53 73 75 |0:Hw_$(24)=.(Ssu|
00001590 62 48 5f 25 2b 36 35 29 3a 48 77 5f 24 28 32 35 |bH_%+65):Hw_$(25|
000015a0 29 3d 53 68 65 61 64 31 5f 24 28 53 73 75 62 48 |)=Shead1_$(SsubH|
000015b0 5f 25 2b 31 29 3a 5a 5f 25 3d 53 73 75 62 48 5f |_%+1):Z_%=SsubH_|
000015c0 25 2a 34 30 3a e3 5a 25 3d 5a 5f 25 b8 5a 5f 25 |%*40:.Z%=Z_%.Z_%|
000015d0 2b 33 35 88 35 0d 02 85 ba e7 41 5f 25 3c 34 8c |+35.5.....A_%<4.|
000015e0 48 77 5f 24 28 74 31 5f 25 28 30 29 29 3d a4 74 |Hw_$(t1_%(0))=.t|
000015f0 63 5f 28 53 68 65 61 64 74 31 5f 25 28 5a 25 29 |c_(Sheadt1_%(Z%)|
00001600 2c 22 30 22 29 3a 74 31 5f 25 28 32 29 3d 74 31 |,"0"):t1_%(2)=t1|
00001610 5f 25 28 32 29 2b 53 68 65 61 64 74 31 5f 25 28 |_%(2)+Sheadt1_%(|
00001620 5a 25 29 3a 48 77 5f 24 28 74 31 5f 25 28 30 29 |Z%):Hw_$(t1_%(0)|
00001630 2b 31 29 3d a4 74 63 5f 28 53 68 65 61 64 74 31 |+1)=.tc_(Sheadt1|
00001640 5f 25 28 5a 25 2b 31 29 2c 22 30 22 29 3a 74 31 |_%(Z%+1),"0"):t1|
00001650 5f 25 28 33 29 3d 74 31 5f 25 28 33 29 2b 53 68 |_%(3)=t1_%(3)+Sh|
00001660 65 61 64 74 31 5f 25 28 5a 25 2b 31 29 3a 48 77 |eadt1_%(Z%+1):Hw|
00001670 5f 24 28 74 31 5f 25 28 30 29 2b 32 29 3d 53 68 |_$(t1_%(0)+2)=Sh|
00001680 65 61 64 31 5f 24 28 5a 25 2f 35 2b 31 33 29 0d |ead1_$(Z%/5+13).|
00001690 02 8a 86 e7 41 5f 25 3c 35 8c 48 70 5f 24 28 74 |....A_%<5.Hp_$(t|
000016a0 31 5f 25 28 31 29 29 3d a4 74 63 5f 28 53 68 65 |1_%(1))=.tc_(She|
000016b0 61 64 74 31 5f 25 28 5a 25 2b 32 29 2c 22 30 22 |adt1_%(Z%+2),"0"|
000016c0 29 3a 48 70 5f 24 28 74 31 5f 25 28 31 29 2b 31 |):Hp_$(t1_%(1)+1|
000016d0 29 3d a4 74 63 5f 28 53 68 65 61 64 74 31 5f 25 |)=.tc_(Sheadt1_%|
000016e0 28 5a 25 2b 33 29 2c 22 30 22 29 3a 48 70 5f 24 |(Z%+3),"0"):Hp_$|
000016f0 28 74 31 5f 25 28 31 29 2b 32 29 3d a4 74 63 5f |(t1_%(1)+2)=.tc_|
00001700 28 53 68 65 61 64 74 31 5f 25 28 5a 25 2b 34 29 |(Sheadt1_%(Z%+4)|
00001710 2c 22 30 22 29 0d 02 8f d1 74 31 5f 25 28 34 29 |,"0")....t1_%(4)|
00001720 3d 74 31 5f 25 28 34 29 2b 53 68 65 61 64 74 31 |=t1_%(4)+Sheadt1|
00001730 5f 25 28 5a 25 2b 32 29 3a 74 31 5f 25 28 35 29 |_%(Z%+2):t1_%(5)|
00001740 3d 74 31 5f 25 28 35 29 2b 53 68 65 61 64 74 31 |=t1_%(5)+Sheadt1|
00001750 5f 25 28 5a 25 2b 33 29 3a 74 31 5f 25 28 36 29 |_%(Z%+3):t1_%(6)|
00001760 3d 74 31 5f 25 28 36 29 2b 53 68 65 61 64 74 31 |=t1_%(6)+Sheadt1|
00001770 5f 25 28 5a 25 2b 34 29 3a 74 31 5f 25 28 38 29 |_%(Z%+4):t1_%(8)|
00001780 3d 53 68 65 61 64 74 31 5f 25 28 5a 25 2b 32 29 |=Sheadt1_%(Z%+2)|
00001790 2b 53 68 65 61 64 74 31 5f 25 28 5a 25 2b 33 29 |+Sheadt1_%(Z%+3)|
000017a0 3a 74 31 5f 25 28 38 29 3d 74 31 5f 25 28 38 29 |:t1_%(8)=t1_%(8)|
000017b0 2d 53 68 65 61 64 74 31 5f 25 28 5a 25 2b 34 29 |-Sheadt1_%(Z%+4)|
000017c0 3a 74 31 5f 25 28 39 29 3d 53 68 65 61 64 74 31 |:t1_%(9)=Sheadt1|
000017d0 5f 25 28 5a 25 29 2d 53 68 65 61 64 74 31 5f 25 |_%(Z%)-Sheadt1_%|
000017e0 28 5a 25 2b 31 29 0d 02 94 6d 74 31 5f 25 28 38 |(Z%+1)...mt1_%(8|
000017f0 29 3d 74 31 5f 25 28 38 29 2d 74 31 5f 25 28 39 |)=t1_%(8)-t1_%(9|
00001800 29 3a 74 31 5f 25 28 37 29 3d 74 31 5f 25 28 37 |):t1_%(7)=t1_%(7|
00001810 29 2b 74 31 5f 25 28 38 29 3a 48 70 5f 24 28 74 |)+t1_%(8):Hp_$(t|
00001820 31 5f 25 28 31 29 2b 33 29 3d a4 74 63 5f 28 74 |1_%(1)+3)=.tc_(t|
00001830 31 5f 25 28 38 29 2c 22 30 22 29 3a 74 31 5f 25 |1_%(8),"0"):t1_%|
00001840 28 30 29 2b 3d 33 3a 74 31 5f 25 28 31 29 2b 3d |(0)+=3:t1_%(1)+=|
00001850 34 3a ed 0d 02 99 39 e3 5a 25 3d 32 b8 37 3a 48 |4:....9.Z%=2.7:H|
00001860 70 5f 24 28 74 31 5f 25 28 31 29 29 3d a4 74 63 |p_$(t1_%(1))=.tc|
00001870 5f 28 74 31 5f 25 28 5a 25 29 2c 22 30 22 29 3a |_(t1_%(Z%),"0"):|
00001880 74 31 5f 25 28 31 29 2b 3d 31 3a ed 0d 02 9e 0c |t1_%(1)+=1:.....|
00001890 e7 41 5f 25 3c 3e 33 8c 0d 02 a3 af e3 5a 25 3d |.A_%<>3......Z%=|
000018a0 30 b8 34 37 39 88 35 3a 74 32 5f 25 28 30 29 3d |0.479.5:t2_%(0)=|
000018b0 74 32 5f 25 28 30 29 2b 53 68 65 61 64 74 31 5f |t2_%(0)+Sheadt1_|
000018c0 25 28 5a 25 29 3a 74 32 5f 25 28 31 29 3d 74 32 |%(Z%):t2_%(1)=t2|
000018d0 5f 25 28 31 29 2b 53 68 65 61 64 74 31 5f 25 28 |_%(1)+Sheadt1_%(|
000018e0 5a 25 2b 31 29 3a 74 32 5f 25 28 32 29 3d 74 32 |Z%+1):t2_%(2)=t2|
000018f0 5f 25 28 32 29 2b 53 68 65 61 64 74 31 5f 25 28 |_%(2)+Sheadt1_%(|
00001900 5a 25 2b 32 29 3a 74 32 5f 25 28 33 29 3d 74 32 |Z%+2):t2_%(3)=t2|
00001910 5f 25 28 33 29 2b 53 68 65 61 64 74 31 5f 25 28 |_%(3)+Sheadt1_%(|
00001920 5a 25 2b 33 29 3a 74 32 5f 25 28 34 29 3d 74 32 |Z%+3):t2_%(4)=t2|
00001930 5f 25 28 34 29 2b 53 68 65 61 64 74 31 5f 25 28 |_%(4)+Sheadt1_%(|
00001940 5a 25 2b 34 29 3a ed 0d 02 a8 63 74 32 5f 25 28 |Z%+4):....ct2_%(|
00001950 35 29 3d 74 32 5f 25 28 32 29 2b 74 32 5f 25 28 |5)=t2_%(2)+t2_%(|
00001960 33 29 3a 74 32 5f 25 28 35 29 3d 74 32 5f 25 28 |3):t2_%(5)=t2_%(|
00001970 35 29 2d 74 32 5f 25 28 34 29 3a 74 32 5f 25 28 |5)-t2_%(4):t2_%(|
00001980 36 29 3d 74 32 5f 25 28 30 29 2d 74 32 5f 25 28 |6)=t2_%(0)-t2_%(|
00001990 31 29 3a 74 32 5f 25 28 35 29 3d 74 32 5f 25 28 |1):t2_%(5)=t2_%(|
000019a0 35 29 2d 74 32 5f 25 28 36 29 0d 02 ad 39 e3 5a |5)-t2_%(6)...9.Z|
000019b0 25 3d 30 b8 35 3a 48 70 5f 24 28 74 31 5f 25 28 |%=0.5:Hp_$(t1_%(|
000019c0 31 29 29 3d a4 74 63 5f 28 74 32 5f 25 28 5a 25 |1))=.tc_(t2_%(Z%|
000019d0 29 2c 22 30 22 29 3a 74 31 5f 25 28 31 29 2b 3d |),"0"):t1_%(1)+=|
000019e0 31 3a ed 0d 02 b2 05 cc 0d 02 b7 09 41 5f 25 3d |1:..........A_%=|
000019f0 30 0d 02 bc 05 cd 0d 02 c1 0c c8 99 26 34 30 36 |0...........&406|
00001a00 43 31 0d 02 c6 59 e7 41 5f 25 3d 35 3a e3 5a 25 |C1...Y.A_%=5:.Z%|
00001a10 3d 30 b8 33 33 3a 48 70 5f 24 28 5a 25 29 3d 22 |=0.33:Hp_$(Z%)="|
00001a20 7c 22 3a ed 3a 48 70 5f 24 28 5a 25 2b 34 29 3d ||":.:Hp_$(Z%+4)=|
00001a30 22 7c 22 3a 48 70 5f 24 28 5a 25 2b 35 29 3d 22 |"|":Hp_$(Z%+5)="|
00001a40 7c 22 3a f2 70 50 44 28 68 65 61 64 73 25 2c 48 ||":.pPD(heads%,H|
00001a50 70 5f 24 28 29 2c 30 29 3a 3d b9 0d 02 cb 39 e7 |p_$(),0):=....9.|
00001a60 41 5f 25 3d 30 8c f2 70 46 44 28 68 65 61 64 73 |A_%=0..pFD(heads|
00001a70 25 2c 48 77 5f 24 28 29 2c 30 29 3a f2 70 50 44 |%,Hw_$(),0):.pPD|
00001a80 28 68 65 61 64 73 25 2c 48 70 5f 24 28 29 2c 30 |(heads%,Hp_$(),0|
00001a90 29 3a 3d b9 0d 02 d0 29 e7 41 5f 25 3d 31 3a e3 |):=....).A_%=1:.|
00001aa0 5a 25 3d 30 b8 33 31 3a e7 5a 25 83 34 3c 3e 33 |Z%=0.31:.Z%.4<>3|
00001ab0 8c 48 70 5f 24 28 5a 25 29 3d 22 7c 22 0d 02 d5 |.Hp_$(Z%)="|"...|
00001ac0 0c e7 41 5f 25 3d 31 3a ed 0d 02 da 1c f2 70 50 |..A_%=1:......pP|
00001ad0 44 28 68 65 61 64 73 25 2c 48 70 5f 24 28 29 2c |D(heads%,Hp_$(),|
00001ae0 30 29 3a 3d b9 0d 02 df 04 0d 02 e4 25 dd a4 75 |0):=........%..u|
00001af0 70 64 61 74 65 68 65 61 64 73 4d 5f 28 44 5f 25 |pdateheadsM_(D_%|
00001b00 29 3a e7 68 65 61 64 73 25 3d 30 8c 3d a3 0d 02 |):.heads%=0.=...|
00001b10 e9 43 ea 20 41 5f 25 2c 42 5f 25 2c 48 25 2c 5a |.C. A_%,B_%,H%,Z|
00001b20 25 2c 5a 5f 25 2c 61 5f 25 2c 62 5f 25 3a 74 31 |%,Z_%,a_%,b_%:t1|
00001b30 5f 25 28 31 29 3d 31 3a 48 70 5f 24 28 34 34 29 |_%(1)=1:Hp_$(44)|
00001b40 3d 22 7c 22 3a 48 70 5f 24 28 34 35 29 3d 22 7c |="|":Hp_$(45)="||
00001b50 22 0d 02 ee 07 ea 20 85 0d 02 f3 10 ee 20 85 20 |"..... ...... . |
00001b60 ea 3a f7 20 85 3a 3d a3 0d 02 f8 73 41 5f 25 3d |.:. .:=....sA_%=|
00001b70 32 3a 48 25 3d 74 5f 25 3a 24 74 5f 25 3d 24 21 |2:H%=t_%:$t_%=$!|
00001b80 53 6d 31 5f 25 3a d6 6d 31 5f 25 3a 24 21 53 6d |Sm1_%:.m1_%:$!Sm|
00001b90 31 5f 25 3d 24 74 5f 25 3a 53 73 75 62 48 5f 25 |1_%=$t_%:SsubH_%|
00001ba0 3d 97 28 24 21 53 6d 31 5f 25 29 2d 36 35 3a e7 |=.($!Sm1_%)-65:.|
00001bb0 53 73 75 62 48 5f 25 3c 30 8c 53 73 75 62 48 5f |SsubH_%<0.SsubH_|
00001bc0 25 3d 30 20 8b e7 53 73 75 62 48 5f 25 3e 31 31 |%=0 ..SsubH_%>11|
00001bd0 8c 53 73 75 62 48 5f 25 3d 31 31 0d 02 fd 30 e7 |.SsubH_%=11...0.|
00001be0 6f 53 73 75 62 48 5f 25 3c 3e 53 73 75 62 48 5f |oSsubH_%<>SsubH_|
00001bf0 25 8c 42 5f 25 3d 6f 53 73 75 62 48 5f 25 20 8b |%.B_%=oSsubH_% .|
00001c00 42 5f 25 3d 53 73 75 62 48 5f 25 0d 03 02 26 53 |B_%=SsubH_%...&S|
00001c10 68 65 61 64 31 5f 24 28 42 5f 25 2b 31 29 3d 24 |head1_$(B_%+1)=$|
00001c20 21 53 6d 32 5f 25 3a 42 5f 25 3d 42 5f 25 2a 34 |!Sm2_%:B_%=B_%*4|
00001c30 30 0d 03 07 14 e3 5a 25 3d 42 5f 25 b8 42 5f 25 |0.....Z%=B_%.B_%|
00001c40 2b 33 35 88 35 0d 03 0c e7 e7 44 5f 25 3d 30 8c |+35.5.....D_%=0.|
00001c50 61 5f 25 3d 53 68 65 61 64 74 31 5f 25 28 5a 25 |a_%=Sheadt1_%(Z%|
00001c60 29 3a 62 5f 25 3d 53 68 65 61 64 74 31 5f 25 28 |):b_%=Sheadt1_%(|
00001c70 5a 25 2b 31 29 3a 53 68 65 61 64 74 31 5f 25 28 |Z%+1):Sheadt1_%(|
00001c80 5a 25 29 3d a4 6e 69 5f 28 a4 67 49 64 28 68 65 |Z%)=.ni_(.gId(he|
00001c90 61 64 73 25 21 31 32 2c 74 31 5f 25 28 31 29 29 |ads%!12,t1_%(1))|
00001ca0 29 3a 53 68 65 61 64 74 31 5f 25 28 5a 25 2b 31 |):Sheadt1_%(Z%+1|
00001cb0 29 3d a4 6e 69 5f 28 a4 67 49 64 28 68 65 61 64 |)=.ni_(.gId(head|
00001cc0 73 25 21 31 32 2c 74 31 5f 25 28 31 29 2b 31 29 |s%!12,t1_%(1)+1)|
00001cd0 29 3a 53 68 65 61 64 31 5f 24 28 5a 25 2f 35 2b |):Shead1_$(Z%/5+|
00001ce0 31 33 29 3d a4 67 49 64 28 68 65 61 64 73 25 21 |13)=.gId(heads%!|
00001cf0 31 32 2c 74 31 5f 25 28 31 29 2b 32 29 3a e7 61 |12,t1_%(1)+2):.a|
00001d00 5f 25 3c 3e 53 68 65 61 64 74 31 5f 25 28 5a 25 |_%<>Sheadt1_%(Z%|
00001d10 29 84 62 5f 25 3c 3e 53 68 65 61 64 74 31 5f 25 |).b_%<>Sheadt1_%|
00001d20 28 5a 25 2b 31 29 8c 41 5f 25 3d 31 0d 03 11 a4 |(Z%+1).A_%=1....|
00001d30 e7 44 5f 25 3d 31 3a e7 53 68 65 61 64 74 31 5f |.D_%=1:.Sheadt1_|
00001d40 25 28 5a 25 2b 32 29 3c 3e a4 6e 69 5f 28 a4 67 |%(Z%+2)<>.ni_(.g|
00001d50 49 64 28 68 65 61 64 73 25 21 31 32 2c 74 31 5f |Id(heads%!12,t1_|
00001d60 25 28 31 29 2b 33 29 29 84 53 68 65 61 64 74 31 |%(1)+3)).Sheadt1|
00001d70 5f 25 28 5a 25 2b 33 29 3c 3e a4 6e 69 5f 28 a4 |_%(Z%+3)<>.ni_(.|
00001d80 67 49 64 28 68 65 61 64 73 25 21 31 32 2c 74 31 |gId(heads%!12,t1|
00001d90 5f 25 28 31 29 2b 34 29 29 84 53 68 65 61 64 74 |_%(1)+4)).Sheadt|
00001da0 31 5f 25 28 5a 25 2b 34 29 3c 3e a4 6e 69 5f 28 |1_%(Z%+4)<>.ni_(|
00001db0 a4 67 49 64 28 68 65 61 64 73 25 21 31 32 2c 74 |.gId(heads%!12,t|
00001dc0 31 5f 25 28 31 29 2b 35 29 29 8c 41 5f 25 3d 34 |1_%(1)+5)).A_%=4|
00001dd0 0d 03 16 6c 74 31 5f 25 28 31 29 2b 3d 37 3a ed |...lt1_%(1)+=7:.|
00001de0 3a e7 41 5f 25 3d 32 3a e7 6f 53 73 75 62 48 5f |:.A_%=2:.oSsubH_|
00001df0 25 3c 3e 53 73 75 62 48 5f 25 3a 6f 53 73 75 62 |%<>SsubH_%:oSsub|
00001e00 48 5f 25 3d 53 73 75 62 48 5f 25 3a 41 5f 25 3d |H_%=SsubH_%:A_%=|
00001e10 33 20 8b e7 6f 53 73 75 62 48 5f 25 3c 3e 53 73 |3 ..oSsubH_%<>Ss|
00001e20 75 62 48 5f 25 8c 6f 53 73 75 62 48 5f 25 3d 53 |ubH_%.oSsubH_%=S|
00001e30 73 75 62 48 5f 25 3a 41 5f 25 3d 30 0d 03 1b 17 |subH_%:A_%=0....|
00001e40 e7 44 5f 25 3d 31 3a e7 41 5f 25 3d 32 8c 41 5f |.D_%=1:.A_%=2.A_|
00001e50 25 3d 35 0d 03 20 22 e7 41 5f 25 3c 3e 32 8c 3d |%=5.. ".A_%<>2.=|
00001e60 a4 69 6e 69 74 68 65 61 64 73 4d 5f 28 41 5f 25 |.initheadsM_(A_%|
00001e70 29 20 8b 3d a3 0d 03 25 04 0d 03 2a 32 dd a4 50 |) .=...%...*2..P|
00001e80 6d 31 5f 3a ea 20 41 5f 25 2c 5a 25 3a e7 24 21 |m1_:. A_%,Z%:.$!|
00001e90 50 6d 31 5f 25 3c 3e bd 28 50 73 75 62 48 5f 25 |Pm1_%<>.(PsubH_%|
00001ea0 2b 36 35 29 8c 41 5f 25 3d 36 39 0d 03 2f 2b 5a |+65).A_%=69../+Z|
00001eb0 25 3d a4 75 70 64 61 74 65 68 65 61 64 70 4d 5f |%=.updateheadpM_|
00001ec0 28 30 29 3a e7 41 5f 25 3d 36 39 8c f2 73 65 74 |(0):.A_%=69..set|
00001ed0 43 5f 28 36 39 29 0d 03 34 06 3d b9 0d 03 39 29 |C_(69)..4.=...9)|
00001ee0 dd a4 50 6d 32 5f 3a 50 68 65 61 64 31 5f 24 28 |..Pm2_:Phead1_$(|
00001ef0 50 73 75 62 48 5f 25 2b 31 29 3d 24 21 50 6d 32 |PsubH_%+1)=$!Pm2|
00001f00 5f 25 3a 3d b9 0d 03 3e 04 0d 03 43 28 dd a4 69 |_%:=...>...C(..i|
00001f10 6e 69 74 68 65 61 64 70 4d 5f 28 41 5f 25 29 3a |nitheadpM_(A_%):|
00001f20 c8 99 26 34 30 36 43 30 3a ea 20 5a 5f 25 2c 5a |..&406C0:. Z_%,Z|
00001f30 25 0d 03 48 07 ea 20 85 0d 03 4d 19 ee 20 85 20 |%..H.. ...M.. . |
00001f40 ea 3a f7 20 85 3a c8 99 26 34 30 36 43 31 3a 3d |.:. .:..&406C1:=|
00001f50 a3 0d 03 52 6b 74 31 5f 25 28 29 3d 30 3a 74 32 |...Rkt1_%()=0:t2|
00001f60 5f 25 28 29 3d 30 3a 48 77 70 5f 24 28 32 34 29 |_%()=0:Hwp_$(24)|
00001f70 3d bd 28 50 73 75 62 48 5f 25 2b 36 35 29 3a 48 |=.(PsubH_%+65):H|
00001f80 77 70 5f 24 28 32 35 29 3d 50 68 65 61 64 31 5f |wp_$(25)=Phead1_|
00001f90 24 28 50 73 75 62 48 5f 25 2b 31 29 3a 5a 5f 25 |$(PsubH_%+1):Z_%|
00001fa0 3d 50 73 75 62 48 5f 25 2a 34 30 3a e3 5a 25 3d |=PsubH_%*40:.Z%=|
00001fb0 5a 5f 25 b8 5a 5f 25 2b 33 35 88 35 0d 03 57 bd |Z_%.Z_%+35.5..W.|
00001fc0 e7 41 5f 25 3c 34 8c 48 77 70 5f 24 28 74 31 5f |.A_%<4.Hwp_$(t1_|
00001fd0 25 28 30 29 29 3d a4 74 63 5f 28 50 68 65 61 64 |%(0))=.tc_(Phead|
00001fe0 74 31 5f 25 28 5a 25 29 2c 22 30 22 29 3a 74 31 |t1_%(Z%),"0"):t1|
00001ff0 5f 25 28 32 29 3d 74 31 5f 25 28 32 29 2b 50 68 |_%(2)=t1_%(2)+Ph|
00002000 65 61 64 74 31 5f 25 28 5a 25 29 3a 48 77 70 5f |eadt1_%(Z%):Hwp_|
00002010 24 28 74 31 5f 25 28 30 29 2b 31 29 3d a4 74 63 |$(t1_%(0)+1)=.tc|
00002020 5f 28 50 68 65 61 64 74 31 5f 25 28 5a 25 2b 31 |_(Pheadt1_%(Z%+1|
00002030 29 2c 22 30 22 29 3a 74 31 5f 25 28 33 29 3d 74 |),"0"):t1_%(3)=t|
00002040 31 5f 25 28 33 29 2b 50 68 65 61 64 74 31 5f 25 |1_%(3)+Pheadt1_%|
00002050 28 5a 25 2b 31 29 3a 48 77 70 5f 24 28 74 31 5f |(Z%+1):Hwp_$(t1_|
00002060 25 28 30 29 2b 32 29 3d 50 68 65 61 64 31 5f 24 |%(0)+2)=Phead1_$|
00002070 28 5a 25 2f 35 2b 31 33 29 0d 03 5c 89 e7 41 5f |(Z%/5+13)..\..A_|
00002080 25 3c 35 8c 48 70 70 5f 24 28 74 31 5f 25 28 31 |%<5.Hpp_$(t1_%(1|
00002090 29 29 3d a4 74 63 5f 28 50 68 65 61 64 74 31 5f |))=.tc_(Pheadt1_|
000020a0 25 28 5a 25 2b 32 29 2c 22 30 22 29 3a 48 70 70 |%(Z%+2),"0"):Hpp|
000020b0 5f 24 28 74 31 5f 25 28 31 29 2b 31 29 3d a4 74 |_$(t1_%(1)+1)=.t|
000020c0 63 5f 28 50 68 65 61 64 74 31 5f 25 28 5a 25 2b |c_(Pheadt1_%(Z%+|
000020d0 33 29 2c 22 30 22 29 3a 48 70 70 5f 24 28 74 31 |3),"0"):Hpp_$(t1|
000020e0 5f 25 28 31 29 2b 32 29 3d a4 74 63 5f 28 50 68 |_%(1)+2)=.tc_(Ph|
000020f0 65 61 64 74 31 5f 25 28 5a 25 2b 34 29 2c 22 30 |eadt1_%(Z%+4),"0|
00002100 22 29 0d 03 61 d1 74 31 5f 25 28 34 29 3d 74 31 |")..a.t1_%(4)=t1|
00002110 5f 25 28 34 29 2b 50 68 65 61 64 74 31 5f 25 28 |_%(4)+Pheadt1_%(|
00002120 5a 25 2b 32 29 3a 74 31 5f 25 28 35 29 3d 74 31 |Z%+2):t1_%(5)=t1|
00002130 5f 25 28 35 29 2b 50 68 65 61 64 74 31 5f 25 28 |_%(5)+Pheadt1_%(|
00002140 5a 25 2b 33 29 3a 74 31 5f 25 28 36 29 3d 74 31 |Z%+3):t1_%(6)=t1|
00002150 5f 25 28 36 29 2b 50 68 65 61 64 74 31 5f 25 28 |_%(6)+Pheadt1_%(|
00002160 5a 25 2b 34 29 3a 74 31 5f 25 28 38 29 3d 50 68 |Z%+4):t1_%(8)=Ph|
00002170 65 61 64 74 31 5f 25 28 5a 25 2b 32 29 2b 50 68 |eadt1_%(Z%+2)+Ph|
00002180 65 61 64 74 31 5f 25 28 5a 25 2b 33 29 3a 74 31 |eadt1_%(Z%+3):t1|
00002190 5f 25 28 38 29 3d 74 31 5f 25 28 38 29 2d 50 68 |_%(8)=t1_%(8)-Ph|
000021a0 65 61 64 74 31 5f 25 28 5a 25 2b 34 29 3a 74 31 |eadt1_%(Z%+4):t1|
000021b0 5f 25 28 39 29 3d 50 68 65 61 64 74 31 5f 25 28 |_%(9)=Pheadt1_%(|
000021c0 5a 25 29 2d 50 68 65 61 64 74 31 5f 25 28 5a 25 |Z%)-Pheadt1_%(Z%|
000021d0 2b 31 29 0d 03 66 6e 74 31 5f 25 28 38 29 3d 74 |+1)..fnt1_%(8)=t|
000021e0 31 5f 25 28 38 29 2d 74 31 5f 25 28 39 29 3a 74 |1_%(8)-t1_%(9):t|
000021f0 31 5f 25 28 37 29 3d 74 31 5f 25 28 37 29 2b 74 |1_%(7)=t1_%(7)+t|
00002200 31 5f 25 28 38 29 3a 48 70 70 5f 24 28 74 31 5f |1_%(8):Hpp_$(t1_|
00002210 25 28 31 29 2b 33 29 3d a4 74 63 5f 28 74 31 5f |%(1)+3)=.tc_(t1_|
00002220 25 28 38 29 2c 22 30 22 29 3a 74 31 5f 25 28 30 |%(8),"0"):t1_%(0|
00002230 29 2b 3d 33 3a 74 31 5f 25 28 31 29 2b 3d 34 3a |)+=3:t1_%(1)+=4:|
00002240 ed 0d 03 6b 3a e3 5a 25 3d 32 b8 37 3a 48 70 70 |...k:.Z%=2.7:Hpp|
00002250 5f 24 28 74 31 5f 25 28 31 29 29 3d a4 74 63 5f |_$(t1_%(1))=.tc_|
00002260 28 74 31 5f 25 28 5a 25 29 2c 22 30 22 29 3a 74 |(t1_%(Z%),"0"):t|
00002270 31 5f 25 28 31 29 2b 3d 31 3a ed 0d 03 70 0c e7 |1_%(1)+=1:...p..|
00002280 41 5f 25 3c 3e 33 8c 0d 03 75 af e3 5a 25 3d 30 |A_%<>3...u..Z%=0|
00002290 b8 34 37 39 88 35 3a 74 32 5f 25 28 30 29 3d 74 |.479.5:t2_%(0)=t|
000022a0 32 5f 25 28 30 29 2b 50 68 65 61 64 74 31 5f 25 |2_%(0)+Pheadt1_%|
000022b0 28 5a 25 29 3a 74 32 5f 25 28 31 29 3d 74 32 5f |(Z%):t2_%(1)=t2_|
000022c0 25 28 31 29 2b 50 68 65 61 64 74 31 5f 25 28 5a |%(1)+Pheadt1_%(Z|
000022d0 25 2b 31 29 3a 74 32 5f 25 28 32 29 3d 74 32 5f |%+1):t2_%(2)=t2_|
000022e0 25 28 32 29 2b 50 68 65 61 64 74 31 5f 25 28 5a |%(2)+Pheadt1_%(Z|
000022f0 25 2b 32 29 3a 74 32 5f 25 28 33 29 3d 74 32 5f |%+2):t2_%(3)=t2_|
00002300 25 28 33 29 2b 50 68 65 61 64 74 31 5f 25 28 5a |%(3)+Pheadt1_%(Z|
00002310 25 2b 33 29 3a 74 32 5f 25 28 34 29 3d 74 32 5f |%+3):t2_%(4)=t2_|
00002320 25 28 34 29 2b 50 68 65 61 64 74 31 5f 25 28 5a |%(4)+Pheadt1_%(Z|
00002330 25 2b 34 29 3a ed 0d 03 7a 63 74 32 5f 25 28 35 |%+4):...zct2_%(5|
00002340 29 3d 74 32 5f 25 28 32 29 2b 74 32 5f 25 28 33 |)=t2_%(2)+t2_%(3|
00002350 29 3a 74 32 5f 25 28 35 29 3d 74 32 5f 25 28 35 |):t2_%(5)=t2_%(5|
00002360 29 2d 74 32 5f 25 28 34 29 3a 74 32 5f 25 28 36 |)-t2_%(4):t2_%(6|
00002370 29 3d 74 32 5f 25 28 30 29 2d 74 32 5f 25 28 31 |)=t2_%(0)-t2_%(1|
00002380 29 3a 74 32 5f 25 28 35 29 3d 74 32 5f 25 28 35 |):t2_%(5)=t2_%(5|
00002390 29 2d 74 32 5f 25 28 36 29 0d 03 7f 3a e3 5a 25 |)-t2_%(6)...:.Z%|
000023a0 3d 30 b8 35 3a 48 70 70 5f 24 28 74 31 5f 25 28 |=0.5:Hpp_$(t1_%(|
000023b0 31 29 29 3d a4 74 63 5f 28 74 32 5f 25 28 5a 25 |1))=.tc_(t2_%(Z%|
000023c0 29 2c 22 30 22 29 3a 74 31 5f 25 28 31 29 2b 3d |),"0"):t1_%(1)+=|
000023d0 31 3a ed 0d 03 84 05 cc 0d 03 89 09 41 5f 25 3d |1:..........A_%=|
000023e0 30 0d 03 8e 05 cd 0d 03 93 0c c8 99 26 34 30 36 |0...........&406|
000023f0 43 31 0d 03 98 5d e7 41 5f 25 3d 35 3a e3 5a 25 |C1...].A_%=5:.Z%|
00002400 3d 30 b8 33 33 3a 48 70 70 5f 24 28 5a 25 29 3d |=0.33:Hpp_$(Z%)=|
00002410 22 7c 22 3a ed 3a 48 70 70 5f 24 28 5a 25 2b 34 |"|":.:Hpp_$(Z%+4|
00002420 29 3d 22 7c 22 3a 48 70 70 5f 24 28 5a 25 2b 35 |)="|":Hpp_$(Z%+5|
00002430 29 3d 22 7c 22 3a f2 70 50 44 28 68 65 61 64 70 |)="|":.pPD(headp|
00002440 25 2c 48 70 70 5f 24 28 29 2c 30 29 3a 3d b9 0d |%,Hpp_$(),0):=..|
00002450 03 9d 3b e7 41 5f 25 3d 30 8c f2 70 46 44 28 68 |..;.A_%=0..pFD(h|
00002460 65 61 64 70 25 2c 48 77 70 5f 24 28 29 2c 30 29 |eadp%,Hwp_$(),0)|
00002470 3a f2 70 50 44 28 68 65 61 64 70 25 2c 48 70 70 |:.pPD(headp%,Hpp|
00002480 5f 24 28 29 2c 30 29 3a 3d b9 0d 03 a2 2a e7 41 |_$(),0):=....*.A|
00002490 5f 25 3d 31 3a e3 5a 25 3d 30 b8 33 31 3a e7 5a |_%=1:.Z%=0.31:.Z|
000024a0 25 83 34 3c 3e 33 8c 48 70 70 5f 24 28 5a 25 29 |%.4<>3.Hpp_$(Z%)|
000024b0 3d 22 7c 22 0d 03 a7 0c e7 41 5f 25 3d 31 3a ed |="|".....A_%=1:.|
000024c0 0d 03 ac 1d f2 70 50 44 28 68 65 61 64 70 25 2c |.....pPD(headp%,|
000024d0 48 70 70 5f 24 28 29 2c 30 29 3a 3d b9 0d 03 b1 |Hpp_$(),0):=....|
000024e0 04 0d 03 b6 25 dd a4 75 70 64 61 74 65 68 65 61 |....%..updatehea|
000024f0 64 70 4d 5f 28 44 5f 25 29 3a e7 68 65 61 64 70 |dpM_(D_%):.headp|
00002500 25 3d 30 8c 3d a3 0d 03 bb 45 ea 20 41 5f 25 2c |%=0.=....E. A_%,|
00002510 42 5f 25 2c 48 25 2c 5a 25 2c 5a 5f 25 2c 61 5f |B_%,H%,Z%,Z_%,a_|
00002520 25 2c 62 5f 25 3a 74 31 5f 25 28 31 29 3d 31 3a |%,b_%:t1_%(1)=1:|
00002530 48 70 70 5f 24 28 34 34 29 3d 22 7c 22 3a 48 70 |Hpp_$(44)="|":Hp|
00002540 70 5f 24 28 34 35 29 3d 22 7c 22 0d 03 c0 07 ea |p_$(45)="|".....|
00002550 20 85 0d 03 c5 10 ee 20 85 20 ea 3a f7 20 85 3a | ...... . .:. .:|
00002560 3d a3 0d 03 ca 73 41 5f 25 3d 32 3a 48 25 3d 74 |=....sA_%=2:H%=t|
00002570 5f 25 3a 24 74 5f 25 3d 24 21 50 6d 31 5f 25 3a |_%:$t_%=$!Pm1_%:|
00002580 d6 6d 31 5f 25 3a 24 21 50 6d 31 5f 25 3d 24 74 |.m1_%:$!Pm1_%=$t|
00002590 5f 25 3a 50 73 75 62 48 5f 25 3d 97 28 24 21 50 |_%:PsubH_%=.($!P|
000025a0 6d 31 5f 25 29 2d 36 35 3a e7 50 73 75 62 48 5f |m1_%)-65:.PsubH_|
000025b0 25 3c 30 8c 50 73 75 62 48 5f 25 3d 30 20 8b e7 |%<0.PsubH_%=0 ..|
000025c0 50 73 75 62 48 5f 25 3e 31 31 8c 50 73 75 62 48 |PsubH_%>11.PsubH|
000025d0 5f 25 3d 31 31 0d 03 cf 30 e7 6f 50 73 75 62 48 |_%=11...0.oPsubH|
000025e0 5f 25 3c 3e 50 73 75 62 48 5f 25 8c 42 5f 25 3d |_%<>PsubH_%.B_%=|
000025f0 6f 50 73 75 62 48 5f 25 20 8b 42 5f 25 3d 50 73 |oPsubH_% .B_%=Ps|
00002600 75 62 48 5f 25 0d 03 d4 26 50 68 65 61 64 31 5f |ubH_%...&Phead1_|
00002610 24 28 42 5f 25 2b 31 29 3d 24 21 50 6d 32 5f 25 |$(B_%+1)=$!Pm2_%|
00002620 3a 42 5f 25 3d 42 5f 25 2a 34 30 0d 03 d9 14 e3 |:B_%=B_%*40.....|
00002630 5a 25 3d 42 5f 25 b8 42 5f 25 2b 33 35 88 35 0d |Z%=B_%.B_%+35.5.|
00002640 03 de e7 e7 44 5f 25 3d 30 8c 61 5f 25 3d 50 68 |....D_%=0.a_%=Ph|
00002650 65 61 64 74 31 5f 25 28 5a 25 29 3a 62 5f 25 3d |eadt1_%(Z%):b_%=|
00002660 50 68 65 61 64 74 31 5f 25 28 5a 25 2b 31 29 3a |Pheadt1_%(Z%+1):|
00002670 50 68 65 61 64 74 31 5f 25 28 5a 25 29 3d a4 6e |Pheadt1_%(Z%)=.n|
00002680 69 5f 28 a4 67 49 64 28 68 65 61 64 70 25 21 31 |i_(.gId(headp%!1|
00002690 32 2c 74 31 5f 25 28 31 29 29 29 3a 50 68 65 61 |2,t1_%(1))):Phea|
000026a0 64 74 31 5f 25 28 5a 25 2b 31 29 3d a4 6e 69 5f |dt1_%(Z%+1)=.ni_|
000026b0 28 a4 67 49 64 28 68 65 61 64 70 25 21 31 32 2c |(.gId(headp%!12,|
000026c0 74 31 5f 25 28 31 29 2b 31 29 29 3a 50 68 65 61 |t1_%(1)+1)):Phea|
000026d0 64 31 5f 24 28 5a 25 2f 35 2b 31 33 29 3d a4 67 |d1_$(Z%/5+13)=.g|
000026e0 49 64 28 68 65 61 64 70 25 21 31 32 2c 74 31 5f |Id(headp%!12,t1_|
000026f0 25 28 31 29 2b 32 29 3a e7 61 5f 25 3c 3e 50 68 |%(1)+2):.a_%<>Ph|
00002700 65 61 64 74 31 5f 25 28 5a 25 29 84 62 5f 25 3c |eadt1_%(Z%).b_%<|
00002710 3e 50 68 65 61 64 74 31 5f 25 28 5a 25 2b 31 29 |>Pheadt1_%(Z%+1)|
00002720 8c 41 5f 25 3d 31 0d 03 e3 a4 e7 44 5f 25 3d 31 |.A_%=1.....D_%=1|
00002730 3a e7 50 68 65 61 64 74 31 5f 25 28 5a 25 2b 32 |:.Pheadt1_%(Z%+2|
00002740 29 3c 3e a4 6e 69 5f 28 a4 67 49 64 28 68 65 61 |)<>.ni_(.gId(hea|
00002750 64 70 25 21 31 32 2c 74 31 5f 25 28 31 29 2b 33 |dp%!12,t1_%(1)+3|
00002760 29 29 84 50 68 65 61 64 74 31 5f 25 28 5a 25 2b |)).Pheadt1_%(Z%+|
00002770 33 29 3c 3e a4 6e 69 5f 28 a4 67 49 64 28 68 65 |3)<>.ni_(.gId(he|
00002780 61 64 70 25 21 31 32 2c 74 31 5f 25 28 31 29 2b |adp%!12,t1_%(1)+|
00002790 34 29 29 84 50 68 65 61 64 74 31 5f 25 28 5a 25 |4)).Pheadt1_%(Z%|
000027a0 2b 34 29 3c 3e a4 6e 69 5f 28 a4 67 49 64 28 68 |+4)<>.ni_(.gId(h|
000027b0 65 61 64 70 25 21 31 32 2c 74 31 5f 25 28 31 29 |eadp%!12,t1_%(1)|
000027c0 2b 35 29 29 8c 41 5f 25 3d 34 0d 03 e8 6c 74 31 |+5)).A_%=4...lt1|
000027d0 5f 25 28 31 29 2b 3d 37 3a ed 3a e7 41 5f 25 3d |_%(1)+=7:.:.A_%=|
000027e0 32 3a e7 6f 50 73 75 62 48 5f 25 3c 3e 50 73 75 |2:.oPsubH_%<>Psu|
000027f0 62 48 5f 25 3a 6f 50 73 75 62 48 5f 25 3d 50 73 |bH_%:oPsubH_%=Ps|
00002800 75 62 48 5f 25 3a 41 5f 25 3d 33 20 8b e7 6f 50 |ubH_%:A_%=3 ..oP|
00002810 73 75 62 48 5f 25 3c 3e 50 73 75 62 48 5f 25 8c |subH_%<>PsubH_%.|
00002820 6f 50 73 75 62 48 5f 25 3d 50 73 75 62 48 5f 25 |oPsubH_%=PsubH_%|
00002830 3a 41 5f 25 3d 30 0d 03 ed 17 e7 44 5f 25 3d 31 |:A_%=0.....D_%=1|
00002840 3a e7 41 5f 25 3d 32 8c 41 5f 25 3d 35 0d 03 f2 |:.A_%=2.A_%=5...|
00002850 22 e7 41 5f 25 3c 3e 32 8c 3d a4 69 6e 69 74 68 |".A_%<>2.=.inith|
00002860 65 61 64 70 4d 5f 28 41 5f 25 29 20 8b 3d a3 0d |eadpM_(A_%) .=..|
00002870 03 f7 04 0d 03 fc c1 dd a4 69 6e 69 74 62 61 6e |.........initban|
00002880 6b 5f 28 41 5f 25 29 3a ea 20 41 25 2c 42 25 2c |k_(A_%):. A%,B%,|
00002890 43 25 2c 44 25 2c 45 25 2c 46 25 2c 47 25 2c 5a |C%,D%,E%,F%,G%,Z|
000028a0 25 3a e3 5a 25 3d 30 b8 32 33 88 32 3a 44 25 2b |%:.Z%=0.23.2:D%+|
000028b0 3d 31 3a 42 6e 31 5f 24 28 5a 25 29 3d a4 74 63 |=1:Bn1_$(Z%)=.tc|
000028c0 5f 28 42 61 6e 6b 4f 4f 5f 25 28 44 25 29 2c 22 |_(BankOO_%(D%),"|
000028d0 30 22 29 3a 42 6e 31 5f 24 28 5a 25 2b 31 29 3d |0"):Bn1_$(Z%+1)=|
000028e0 42 61 6e 6b 4e 4e 5f 24 28 44 25 29 3a 41 25 3d |BankNN_$(D%):A%=|
000028f0 a4 61 64 64 5f 28 42 61 6e 6b 4f 4f 5f 25 28 44 |.add_(BankOO_%(D|
00002900 25 29 2c 42 61 6e 6b 53 53 5f 25 28 44 25 29 29 |%),BankSS_%(D%))|
00002910 3a 42 25 3d a4 61 64 64 5f 28 42 61 6e 6b 4f 4f |:B%=.add_(BankOO|
00002920 5f 25 28 44 25 29 2c 42 61 6e 6b 43 43 5f 25 28 |_%(D%),BankCC_%(|
00002930 44 25 29 29 0d 04 01 b4 42 6e 32 5f 24 28 5a 25 |D%))....Bn2_$(Z%|
00002940 29 3d a4 74 63 5f 28 41 25 2c 22 30 22 29 3a 42 |)=.tc_(A%,"0"):B|
00002950 6e 32 5f 24 28 5a 25 2b 31 29 3d a4 74 63 5f 28 |n2_$(Z%+1)=.tc_(|
00002960 42 25 2c 22 30 22 29 3a 45 25 3d a4 61 64 64 5f |B%,"0"):E%=.add_|
00002970 28 45 25 2c 42 61 6e 6b 4f 4f 5f 25 28 44 25 29 |(E%,BankOO_%(D%)|
00002980 29 3a 46 25 3d a4 61 64 64 5f 28 46 25 2c 41 25 |):F%=.add_(F%,A%|
00002990 29 3a 47 25 3d a4 61 64 64 5f 28 47 25 2c 42 25 |):G%=.add_(G%,B%|
000029a0 29 3a ed 3a 42 6e 32 5f 24 28 32 34 29 3d a4 74 |):.:Bn2_$(24)=.t|
000029b0 63 5f 28 45 25 2c 22 30 22 29 3a 42 6e 32 5f 24 |c_(E%,"0"):Bn2_$|
000029c0 28 32 35 29 3d a4 74 63 5f 28 46 25 2c 22 30 22 |(25)=.tc_(F%,"0"|
000029d0 29 3a 42 6e 32 5f 24 28 32 36 29 3d a4 74 63 5f |):Bn2_$(26)=.tc_|
000029e0 28 47 25 2c 22 30 22 29 0d 04 06 36 e7 41 5f 25 |(G%,"0")...6.A_%|
000029f0 3d 30 8c f2 70 46 44 28 62 61 6e 6b 25 2c 42 6e |=0..pFD(bank%,Bn|
00002a00 31 5f 24 28 29 2c 30 29 3a f2 70 50 44 28 62 61 |1_$(),0):.pPD(ba|
00002a10 6e 6b 25 2c 42 6e 32 5f 24 28 29 2c 30 29 0d 04 |nk%,Bn2_$(),0)..|
00002a20 0b 06 3d b9 0d 04 10 04 0d 04 15 2a dd a4 75 70 |..=........*..up|
00002a30 64 61 74 65 62 61 6e 6b 5f 3a ea 20 41 5f 25 2c |datebank_:. A_%,|
00002a40 5a 25 2c 5a 5f 25 3a e7 62 61 6e 6b 25 3d 30 8c |Z%,Z_%:.bank%=0.|
00002a50 3d a3 0d 04 1a 75 74 34 5f 25 28 29 3d 30 3a e3 |=....ut4_%()=0:.|
00002a60 5a 25 3d 31 b8 31 32 3a 74 31 5f 25 28 5a 25 29 |Z%=1.12:t1_%(Z%)|
00002a70 3d 42 61 6e 6b 4f 4f 5f 25 28 5a 25 29 3a 42 61 |=BankOO_%(Z%):Ba|
00002a80 6e 6b 4e 4e 5f 24 28 5a 25 29 3d a4 67 49 64 28 |nkNN_$(Z%)=.gId(|
00002a90 62 61 6e 6b 25 21 31 32 2c 5a 25 2a 32 29 3a 42 |bank%!12,Z%*2):B|
00002aa0 61 6e 6b 4f 4f 5f 25 28 5a 25 29 3d a4 6e 69 5f |ankOO_%(Z%)=.ni_|
00002ab0 28 a4 67 49 64 28 62 61 6e 6b 25 21 31 32 2c 5a |(.gId(bank%!12,Z|
00002ac0 25 2a 32 2d 31 29 29 0d 04 1f 9e e7 42 61 6e 6b |%*2-1)).....Bank|
00002ad0 4f 4f 5f 25 28 5a 25 29 3c 3e 74 31 5f 25 28 5a |OO_%(Z%)<>t1_%(Z|
00002ae0 25 29 84 a4 6e 69 5f 28 a4 67 49 64 28 62 61 6e |%)..ni_(.gId(ban|
00002af0 6b 25 21 31 32 2c 5a 25 2a 32 2b 32 33 29 29 3c |k%!12,Z%*2+23))<|
00002b00 3e 42 61 6e 6b 53 53 5f 25 28 5a 25 29 2b 42 61 |>BankSS_%(Z%)+Ba|
00002b10 6e 6b 4f 4f 5f 25 28 5a 25 29 84 a4 6e 69 5f 28 |nkOO_%(Z%)..ni_(|
00002b20 a4 67 49 64 28 62 61 6e 6b 25 21 31 32 2c 5a 25 |.gId(bank%!12,Z%|
00002b30 2a 32 2b 32 34 29 29 3c 3e 42 61 6e 6b 43 43 5f |*2+24))<>BankCC_|
00002b40 25 28 5a 25 29 2b 42 61 6e 6b 4f 4f 5f 25 28 5a |%(Z%)+BankOO_%(Z|
00002b50 25 29 8c 74 34 5f 25 28 5a 25 2d 31 29 3d 31 3a |%).t4_%(Z%-1)=1:|
00002b60 5a 5f 25 3d 31 0d 04 24 0f ed 3a e7 5a 5f 25 3d |Z_%=1..$..:.Z_%=|
00002b70 30 8c 3d a3 0d 04 29 9f 5a 25 3d a4 69 6e 69 74 |0.=...).Z%=.init|
00002b80 62 61 6e 6b 5f 28 31 29 3a e3 5a 25 3d 30 b8 31 |bank_(1):.Z%=0.1|
00002b90 31 3a e7 74 34 5f 25 28 5a 25 29 3d 31 8c 41 5f |1:.t4_%(Z%)=1.A_|
00002ba0 25 3d a4 70 49 49 28 62 61 6e 6b 25 21 31 32 2c |%=.pII(bank%!12,|
00002bb0 5a 25 2a 32 2b 31 2c 42 6e 31 5f 24 28 5a 25 2a |Z%*2+1,Bn1_$(Z%*|
00002bc0 32 29 29 3a 41 5f 25 3d a4 70 49 49 28 62 61 6e |2)):A_%=.pII(ban|
00002bd0 6b 25 21 31 32 2c 5a 25 2a 32 2b 32 35 2c 42 6e |k%!12,Z%*2+25,Bn|
00002be0 32 5f 24 28 5a 25 2a 32 29 29 3a 41 5f 25 3d a4 |2_$(Z%*2)):A_%=.|
00002bf0 70 49 49 28 62 61 6e 6b 25 21 31 32 2c 5a 25 2a |pII(bank%!12,Z%*|
00002c00 32 2b 32 36 2c 42 6e 32 5f 24 28 5a 25 2a 32 2b |2+26,Bn2_$(Z%*2+|
00002c10 31 29 29 0d 04 2e 6c ed 3a e7 5a 5f 25 3d 31 8c |1))...l.:.Z_%=1.|
00002c20 41 5f 25 3d a4 70 49 49 28 62 61 6e 6b 25 21 31 |A_%=.pII(bank%!1|
00002c30 32 2c 34 39 2c 42 6e 32 5f 24 28 32 34 29 29 3a |2,49,Bn2_$(24)):|
00002c40 41 5f 25 3d a4 70 49 49 28 62 61 6e 6b 25 21 31 |A_%=.pII(bank%!1|
00002c50 32 2c 35 30 2c 42 6e 32 5f 24 28 32 35 29 29 3a |2,50,Bn2_$(25)):|
00002c60 41 5f 25 3d a4 70 49 49 28 62 61 6e 6b 25 21 31 |A_%=.pII(bank%!1|
00002c70 32 2c 35 31 2c 42 6e 32 5f 24 28 32 36 29 29 0d |2,51,Bn2_$(26)).|
00002c80 04 33 06 3d b9 0d 04 38 04 0d 04 3d 11 dd a4 42 |.3.=...8...=...B|
00002c90 31 5f 3a 2a 46 58 31 35 2c 31 0d 04 42 11 3d a4 |1_:*FX15,1..B.=.|
00002ca0 75 70 64 61 74 65 62 61 6e 6b 5f 0d 04 47 04 0d |updatebank_..G..|
00002cb0 04 d3 1b dd f2 64 73 5f 28 5a 5f 25 29 3a ea 20 |.....ds_(Z_%):. |
00002cc0 41 5f 24 2c 42 5f 25 2c 5a 25 0d 04 d8 60 e7 5a |A_$,B_%,Z%...`.Z|
00002cd0 5f 25 3d 31 3a 41 5f 24 3d 24 21 53 75 4e 61 6d |_%=1:A_$=$!SuNam|
00002ce0 65 5f 25 20 8b e7 5a 5f 25 3d 33 3a 41 5f 24 3d |e_% ..Z_%=3:A_$=|
00002cf0 24 21 43 53 75 4e 61 6d 65 5f 25 20 8b e7 5a 5f |$!CSuName_% ..Z_|
00002d00 25 3d 32 3a 41 5f 24 3d 24 21 53 75 50 6f 73 74 |%=2:A_$=$!SuPost|
00002d10 5f 25 20 8b e7 5a 5f 25 3d 34 3a 41 5f 24 3d 24 |_% ..Z_%=4:A_$=$|
00002d20 21 43 53 75 50 6f 73 74 5f 25 0d 04 dd 0d e7 41 |!CSuPost_%.....A|
00002d30 5f 24 3d 22 22 8c e1 0d 04 e2 1a e7 5a 5f 25 3c |_$="".......Z_%<|
00002d40 33 3a 5a 25 3d 53 5f 25 20 8b 5a 25 3d 43 53 5f |3:Z%=S_% .Z%=CS_|
00002d50 25 0d 04 e7 0b e7 5a 25 3d 31 8c e1 0d 04 ec 0c |%.....Z%=1......|
00002d60 c8 99 26 34 30 36 43 30 0d 04 f1 0c c8 8e 20 5a |..&406C0...... Z|
00002d70 5f 25 20 ca 0d 04 f6 38 c9 20 31 3a e3 5a 25 3d |_% ....8. 1:.Z%=|
00002d80 31 b8 53 5f 25 2d 31 3a e7 53 75 70 70 6c 69 65 |1.S_%-1:.Supplie|
00002d90 72 73 5f 24 28 5a 25 29 3d 41 5f 24 3a 42 5f 25 |rs_$(Z%)=A_$:B_%|
00002da0 3d 5a 25 3a 5a 25 3d 53 5f 25 2d 31 0d 04 fb 05 |=Z%:Z%=S_%-1....|
00002db0 ed 0d 05 00 34 c9 20 32 3a e3 5a 25 3d 31 b8 53 |....4. 2:.Z%=1.S|
00002dc0 5f 25 2d 31 3a e7 53 75 50 6f 73 5f 24 28 5a 25 |_%-1:.SuPos_$(Z%|
00002dd0 29 3d 41 5f 24 3a 42 5f 25 3d 5a 25 3a 5a 25 3d |)=A_$:B_%=Z%:Z%=|
00002de0 53 5f 25 2d 31 0d 05 05 05 ed 0d 05 0a 3b c9 20 |S_%-1........;. |
00002df0 33 3a e3 5a 25 3d 31 b8 43 53 5f 25 2d 31 3a e7 |3:.Z%=1.CS_%-1:.|
00002e00 43 53 75 70 70 6c 69 65 72 73 5f 24 28 5a 25 29 |CSuppliers_$(Z%)|
00002e10 3d 41 5f 24 3a 42 5f 25 3d 5a 25 3a 5a 25 3d 43 |=A_$:B_%=Z%:Z%=C|
00002e20 53 5f 25 2d 31 0d 05 0f 05 ed 0d 05 14 37 c9 20 |S_%-1........7. |
00002e30 34 3a e3 5a 25 3d 31 b8 43 53 5f 25 2d 31 3a e7 |4:.Z%=1.CS_%-1:.|
00002e40 43 53 75 50 6f 73 5f 24 28 5a 25 29 3d 41 5f 24 |CSuPos_$(Z%)=A_$|
00002e50 3a 42 5f 25 3d 5a 25 3a 5a 25 3d 43 53 5f 25 2d |:B_%=Z%:Z%=CS_%-|
00002e60 31 0d 05 19 05 ed 0d 05 1e 05 cb 0d 05 23 5b c8 |1............#[.|
00002e70 99 26 34 30 36 43 31 3a e7 42 5f 25 3e 30 3a f2 |.&406C1:.B_%>0:.|
00002e80 70 65 5f 28 22 4a 75 73 74 20 74 6f 20 6c 65 74 |pe_("Just to let|
00002e90 20 79 6f 75 20 6b 6e 6f 77 20 79 6f 75 20 6d 61 | you know you ma|
00002ea0 79 20 68 61 76 65 20 61 20 64 75 70 6c 69 63 61 |y have a duplica|
00002eb0 74 65 20 72 65 63 6f 72 64 20 61 74 20 22 2b c3 |te record at "+.|
00002ec0 28 42 5f 25 29 29 0d 05 28 05 e1 0d 05 2d 22 dd |(B_%))..(....-".|
00002ed0 a4 53 75 4e 61 6d 65 5f 3a f2 64 73 5f 28 31 29 |.SuName_:.ds_(1)|
00002ee0 3a 3d a4 73 75 70 70 75 70 5f 28 30 29 0d 05 32 |:=.suppup_(0)..2|
00002ef0 1a dd a4 53 75 41 64 31 31 5f 3a 3d a4 73 75 70 |...SuAd11_:=.sup|
00002f00 70 75 70 5f 28 30 29 0d 05 37 1a dd a4 53 75 41 |pup_(0)..7...SuA|
00002f10 64 32 32 5f 3a 3d a4 73 75 70 70 75 70 5f 28 30 |d22_:=.suppup_(0|
00002f20 29 0d 05 3c 1a dd a4 53 75 41 64 33 33 5f 3a 3d |)..<...SuAd33_:=|
00002f30 a4 73 75 70 70 75 70 5f 28 30 29 0d 05 41 1a dd |.suppup_(0)..A..|
00002f40 a4 53 75 41 64 34 34 5f 3a 3d a4 73 75 70 70 75 |.SuAd44_:=.suppu|
00002f50 70 5f 28 30 29 0d 05 46 22 dd a4 53 75 50 6f 73 |p_(0)..F"..SuPos|
00002f60 74 5f 3a f2 64 73 5f 28 32 29 3a 3d a4 73 75 70 |t_:.ds_(2):=.sup|
00002f70 70 75 70 5f 28 30 29 0d 05 4b 1b dd a4 64 53 75 |pup_(0)..K...dSu|
00002f80 4e 61 6d 65 5f 3a 3d a4 73 75 70 70 75 70 5f 28 |Name_:=.suppup_(|
00002f90 30 29 0d 05 50 1b dd a4 64 53 75 41 64 31 31 5f |0)..P...dSuAd11_|
00002fa0 3a 3d a4 73 75 70 70 75 70 5f 28 30 29 0d 05 55 |:=.suppup_(0)..U|
00002fb0 1b dd a4 64 53 75 41 64 32 32 5f 3a 3d a4 73 75 |...dSuAd22_:=.su|
00002fc0 70 70 75 70 5f 28 30 29 0d 05 5a 1b dd a4 64 53 |ppup_(0)..Z...dS|
00002fd0 75 41 64 33 33 5f 3a 3d a4 73 75 70 70 75 70 5f |uAd33_:=.suppup_|
00002fe0 28 30 29 0d 05 5f 1b dd a4 64 53 75 41 64 34 34 |(0).._...dSuAd44|
00002ff0 5f 3a 3d a4 73 75 70 70 75 70 5f 28 30 29 0d 05 |_:=.suppup_(0)..|
00003000 64 1b dd a4 64 53 75 50 6f 73 74 5f 3a 3d a4 73 |d...dSuPost_:=.s|
00003010 75 70 70 75 70 5f 28 30 29 0d 05 69 1d dd a4 53 |uppup_(0)..i...S|
00003020 75 43 6f 6e 74 61 63 74 5f 3a 3d a4 73 75 70 70 |uContact_:=.supp|
00003030 75 70 5f 28 30 29 0d 05 6e 1a dd a4 53 75 54 65 |up_(0)..n...SuTe|
00003040 6c 65 5f 3a 3d a4 73 75 70 70 75 70 5f 28 30 29 |le_:=.suppup_(0)|
00003050 0d 05 73 19 dd a4 53 75 46 61 78 5f 3a 3d a4 73 |..s...SuFax_:=.s|
00003060 75 70 70 75 70 5f 28 30 29 0d 05 78 1b dd a4 53 |uppup_(0)..x...S|
00003070 75 43 6f 6d 31 31 5f 3a 3d a4 73 75 70 70 75 70 |uCom11_:=.suppup|
00003080 5f 28 30 29 0d 05 7d 1b dd a4 53 75 43 6f 6d 32 |_(0)..}...SuCom2|
00003090 32 5f 3a 3d a4 73 75 70 70 75 70 5f 28 30 29 0d |2_:=.suppup_(0).|
000030a0 05 82 1d dd a4 53 75 53 75 70 70 52 65 66 5f 3a |.....SuSuppRef_:|
000030b0 3d a4 73 75 70 70 75 70 5f 28 30 29 0d 05 87 1d |=.suppup_(0)....|
000030c0 dd a4 53 75 59 6f 75 72 52 65 66 5f 3a 3d a4 73 |..SuYourRef_:=.s|
000030d0 75 70 70 75 70 5f 28 30 29 0d 05 8c 1d dd a4 53 |uppup_(0)......S|
000030e0 75 4f 72 64 65 72 5f 3a 5a 25 3d a4 73 75 70 70 |uOrder_:Z%=.supp|
000030f0 75 70 5f 28 30 29 0d 05 91 39 dd a4 53 75 44 69 |up_(0)...9..SuDi|
00003100 73 63 5f 3a 5a 25 3d a4 73 75 70 70 75 70 5f 28 |sc_:Z%=.suppup_(|
00003110 31 29 3a 53 75 49 5f 25 3d 73 75 69 5f 25 3a f2 |1):SuI_%=sui_%:.|
00003120 73 65 74 43 5f 28 53 75 49 5f 25 29 3a 3d a3 0d |setC_(SuI_%):=..|
00003130 05 96 30 dd a4 53 75 66 69 6e 64 6e 75 6d 5f 3a |..0..Sufindnum_:|
00003140 3d a4 73 75 70 70 75 70 5f 28 bb 28 24 21 53 75 |=.suppup_(.($!Su|
00003150 66 69 6e 64 6e 75 6d 5f 25 29 2d 53 5f 25 29 0d |findnum_%)-S_%).|
00003160 05 9b 04 0d 05 a0 24 dd a4 43 53 75 4e 61 6d 65 |......$..CSuName|
00003170 5f 3a f2 64 73 5f 28 33 29 3a 3d a4 43 73 75 70 |_:.ds_(3):=.Csup|
00003180 70 75 70 5f 28 30 29 0d 05 a5 1c dd a4 43 53 75 |pup_(0)......CSu|
00003190 41 64 31 31 5f 3a 3d a4 43 73 75 70 70 75 70 5f |Ad11_:=.Csuppup_|
000031a0 28 30 29 0d 05 aa 1c dd a4 43 53 75 41 64 32 32 |(0)......CSuAd22|
000031b0 5f 3a 3d a4 43 73 75 70 70 75 70 5f 28 30 29 0d |_:=.Csuppup_(0).|
000031c0 05 af 1c dd a4 43 53 75 41 64 33 33 5f 3a 3d a4 |.....CSuAd33_:=.|
000031d0 43 73 75 70 70 75 70 5f 28 30 29 0d 05 b4 1c dd |Csuppup_(0).....|
000031e0 a4 43 53 75 41 64 34 34 5f 3a 3d a4 43 73 75 70 |.CSuAd44_:=.Csup|
000031f0 70 75 70 5f 28 30 29 0d 05 b9 24 dd a4 43 53 75 |pup_(0)...$..CSu|
00003200 50 6f 73 74 5f 3a f2 64 73 5f 28 34 29 3a 3d a4 |Post_:.ds_(4):=.|
00003210 43 73 75 70 70 75 70 5f 28 30 29 0d 05 be 1d dd |Csuppup_(0).....|
00003220 a4 64 43 53 75 4e 61 6d 65 5f 3a 3d a4 43 73 75 |.dCSuName_:=.Csu|
00003230 70 70 75 70 5f 28 30 29 0d 05 c3 1d dd a4 64 43 |ppup_(0)......dC|
00003240 53 75 41 64 31 31 5f 3a 3d a4 43 73 75 70 70 75 |SuAd11_:=.Csuppu|
00003250 70 5f 28 30 29 0d 05 c8 1d dd a4 64 43 53 75 41 |p_(0)......dCSuA|
00003260 64 32 32 5f 3a 3d a4 43 73 75 70 70 75 70 5f 28 |d22_:=.Csuppup_(|
00003270 30 29 0d 05 cd 1d dd a4 64 43 53 75 41 64 33 33 |0)......dCSuAd33|
00003280 5f 3a 3d a4 43 73 75 70 70 75 70 5f 28 30 29 0d |_:=.Csuppup_(0).|
00003290 05 d2 1d dd a4 64 43 53 75 41 64 34 34 5f 3a 3d |.....dCSuAd44_:=|
000032a0 a4 43 73 75 70 70 75 70 5f 28 30 29 0d 05 d7 1d |.Csuppup_(0)....|
000032b0 dd a4 64 43 53 75 50 6f 73 74 5f 3a 3d a4 43 73 |..dCSuPost_:=.Cs|
000032c0 75 70 70 75 70 5f 28 30 29 0d 05 dc 1f dd a4 43 |uppup_(0)......C|
000032d0 53 75 43 6f 6e 74 61 63 74 5f 3a 3d a4 43 73 75 |SuContact_:=.Csu|
000032e0 70 70 75 70 5f 28 30 29 0d 05 e1 1c dd a4 43 53 |ppup_(0)......CS|
000032f0 75 54 65 6c 65 5f 3a 3d a4 43 73 75 70 70 75 70 |uTele_:=.Csuppup|
00003300 5f 28 30 29 0d 05 e6 1b dd a4 43 53 75 46 61 78 |_(0)......CSuFax|
00003310 5f 3a 3d a4 43 73 75 70 70 75 70 5f 28 30 29 0d |_:=.Csuppup_(0).|
00003320 05 eb 1d dd a4 43 53 75 43 6f 6d 31 31 5f 3a 3d |.....CSuCom11_:=|
00003330 a4 43 73 75 70 70 75 70 5f 28 30 29 0d 05 f0 1d |.Csuppup_(0)....|
00003340 dd a4 43 53 75 43 6f 6d 32 32 5f 3a 3d a4 43 73 |..CSuCom22_:=.Cs|
00003350 75 70 70 75 70 5f 28 30 29 0d 05 f5 56 dd a4 43 |uppup_(0)...V..C|
00003360 53 75 53 75 70 70 52 65 66 5f 3a e7 69 6e 76 57 |SuSuppRef_:.invW|
00003370 25 3e 30 3a e7 73 75 70 70 6c 79 31 5f 25 3d 43 |%>0:.supply1_%=C|
00003380 53 5f 25 3a 24 21 49 54 6f 72 64 5f 25 3d 24 21 |S_%:$!ITord_%=$!|
00003390 43 53 75 53 75 70 70 52 65 66 5f 25 3a f2 72 49 |CSuSuppRef_%:.rI|
000033a0 28 69 6e 76 57 25 2c 22 49 54 6f 72 64 22 29 0d |(invW%,"ITord").|
000033b0 05 f7 11 3d a4 43 73 75 70 70 75 70 5f 28 30 29 |...=.Csuppup_(0)|
000033c0 0d 05 fa 1f dd a4 43 53 75 59 6f 75 72 52 65 66 |......CSuYourRef|
000033d0 5f 3a 3d a4 43 73 75 70 70 75 70 5f 28 30 29 0d |_:=.Csuppup_(0).|
000033e0 05 ff 1d dd a4 43 53 75 4f 72 64 65 72 5f 3a 3d |.....CSuOrder_:=|
000033f0 a4 43 73 75 70 70 75 70 5f 28 30 29 0d 06 04 3e |.Csuppup_(0)...>|
00003400 dd a4 43 53 75 44 69 73 63 5f 3a 5a 25 3d a4 43 |..CSuDisc_:Z%=.C|
00003410 73 75 70 70 75 70 5f 28 31 29 3a 43 53 75 49 5f |suppup_(1):CSuI_|
00003420 25 3d 43 73 75 69 5f 25 3a f2 73 65 74 43 5f 28 |%=Csui_%:.setC_(|
00003430 43 53 75 49 5f 25 29 3a 3d a3 0d 06 09 34 dd a4 |CSuI_%):=....4..|
00003440 43 53 75 66 69 6e 64 6e 75 6d 5f 3a 3d a4 43 73 |CSufindnum_:=.Cs|
00003450 75 70 70 75 70 5f 28 bb 28 24 21 43 53 75 66 69 |uppup_(.($!CSufi|
00003460 6e 64 6e 75 6d 5f 25 29 2d 43 53 5f 25 29 0d 06 |ndnum_%)-CS_%)..|
00003470 0e 04 0d 06 13 0f dd a4 73 74 6f 63 6b 63 68 31 |........stockch1|
00003480 5f 0d 06 18 08 ea 20 5a 25 0d 06 1d 0b 2a 46 58 |_..... Z%....*FX|
00003490 31 35 2c 31 0d 06 22 16 e7 24 77 6e 25 3d 22 43 |15,1.."..$wn%="C|
000034a0 75 73 74 6f 6d 57 22 8c 3d b9 0d 06 27 06 3d a3 |ustomW".=...'.=.|
000034b0 0d 06 2c 13 dd a4 73 74 6f 63 6b 63 68 5f 28 56 |..,...stockch_(V|
000034c0 5f 25 29 0d 06 31 08 ea 20 5a 25 0d 06 40 28 e7 |_%)..1.. Z%..@(.|
000034d0 24 77 6e 25 3d 22 43 75 73 74 6f 6d 57 22 8c 5a |$wn%="CustomW".Z|
000034e0 25 3d a4 43 73 75 70 70 75 70 5f 28 56 5f 25 29 |%=.Csuppup_(V_%)|
000034f0 3a 3d b9 0d 06 45 06 3d a3 0d 06 4a 04 0d 06 4f |:=...E.=...J...O|
00003500 0c dd a4 4c 65 66 74 31 5f 0d 06 54 1f e7 24 77 |...Left1_..T..$w|
00003510 6e 25 3d 22 49 6e 76 57 22 8c f2 49 54 70 61 67 |n%="InvW"..ITpag|
00003520 65 5f 28 31 29 3a 3d b9 0d 06 59 21 e7 24 77 6e |e_(1):=...Y!.$wn|
00003530 25 3d 22 53 61 6c 65 64 22 8c f2 53 49 54 70 61 |%="Saled"..SITpa|
00003540 67 65 5f 28 31 29 3a 3d b9 0d 06 5e 21 e7 24 77 |ge_(1):=...^!.$w|
00003550 6e 25 3d 22 50 61 6c 65 64 22 8c f2 50 49 54 70 |n%="Paled"..PITp|
00003560 61 67 65 5f 28 31 29 3a 3d b9 0d 06 63 21 e7 24 |age_(1):=...c!.$|
00003570 77 6e 25 3d 22 42 61 6e 6b 4c 22 8c f2 42 49 54 |wn%="BankL"..BIT|
00003580 70 61 67 65 5f 28 31 29 3a 3d b9 0d 06 68 22 e7 |page_(1):=...h".|
00003590 24 77 6e 25 3d 22 53 74 61 6e 64 57 22 8c f2 54 |$wn%="StandW"..T|
000035a0 49 54 70 61 67 65 5f 28 31 29 3a 3d b9 0d 06 6d |ITpage_(1):=...m|
000035b0 31 ea 20 5a 25 3a 5a 25 3d a4 73 74 6f 63 6b 63 |1. Z%:Z%=.stockc|
000035c0 68 31 5f 3a e7 5a 25 3d b9 20 8c f2 73 49 28 57 |h1_:.Z%=. ..sI(W|
000035d0 25 2c 22 4c 65 66 74 31 22 29 20 8b 3d b9 0d 06 |%,"Left1") .=...|
000035e0 72 28 5a 25 3d a4 73 74 6f 63 6b 63 68 5f 28 2d |r(Z%=.stockch_(-|
000035f0 31 29 3a f2 75 73 49 28 57 25 2c 22 4c 65 66 74 |1):.usI(W%,"Left|
00003600 31 22 29 3a 3d b9 0d 06 77 0d dd a4 4c 65 66 74 |1"):=...w...Left|
00003610 31 31 5f 0d 06 7c 36 e7 73 61 6c 65 64 31 25 3e |11_..|6.saled1%>|
00003620 30 3a e7 24 77 6e 25 3d 22 53 61 6c 65 64 22 84 |0:.$wn%="Saled".|
00003630 24 77 6e 25 3d 22 53 61 6c 65 64 46 57 22 8c 3d |$wn%="SaledFW".=|
00003640 a4 53 61 6c 65 64 46 6f 5f 0d 06 81 36 e7 70 61 |.SaledFo_...6.pa|
00003650 6c 65 64 31 25 3e 30 3a e7 24 77 6e 25 3d 22 50 |led1%>0:.$wn%="P|
00003660 61 6c 65 64 22 84 24 77 6e 25 3d 22 50 61 6c 65 |aled".$wn%="Pale|
00003670 64 46 57 22 8c 3d a4 50 61 6c 65 64 46 6f 5f 0d |dFW".=.PaledFo_.|
00003680 06 86 33 e7 62 61 6e 6b 31 25 3e 30 3a e7 24 77 |..3.bank1%>0:.$w|
00003690 6e 25 3d 22 42 61 6e 6b 4c 22 84 24 77 6e 25 3d |n%="BankL".$wn%=|
000036a0 22 42 61 6e 6b 46 57 22 8c 3d a4 42 61 6e 6b 66 |"BankFW".=.Bankf|
000036b0 6f 5f 0d 06 95 38 e7 43 46 69 6e 64 53 75 25 3e |o_...8.CFindSu%>|
000036c0 30 3a e7 24 77 6e 25 3d 22 43 75 73 74 6f 6d 57 |0:.$wn%="CustomW|
000036d0 22 84 24 77 6e 25 3d 22 43 46 69 6e 64 53 75 22 |".$wn%="CFindSu"|
000036e0 8c 3d a4 43 53 75 46 6f 72 5f 0d 06 9a 84 e7 24 |.=.CSuFor_.....$|
000036f0 77 6e 25 3c 3e 22 49 6e 76 57 22 80 24 77 6e 25 |wn%<>"InvW".$wn%|
00003700 3c 3e 22 53 61 6c 65 64 22 80 24 77 6e 25 3c 3e |<>"Saled".$wn%<>|
00003710 22 50 61 6c 65 64 22 80 24 77 6e 25 3c 3e 22 42 |"Paled".$wn%<>"B|
00003720 61 6e 6b 4c 22 80 24 77 6e 25 3c 3e 22 53 74 61 |ankL".$wn%<>"Sta|
00003730 6e 64 57 22 80 24 77 6e 25 3c 3e 22 48 65 61 64 |ndW".$wn%<>"Head|
00003740 69 6e 67 73 22 80 24 77 6e 25 3c 3e 22 50 48 65 |ings".$wn%<>"PHe|
00003750 61 64 69 6e 67 73 22 80 24 77 6e 25 3c 3e 22 42 |adings".$wn%<>"B|
00003760 61 6c 57 22 8c 3d a4 52 69 67 68 74 31 5f 0d 06 |alW".=.Right1_..|
00003770 9f 0b 2a 46 58 31 35 2c 31 0d 06 a4 25 e7 24 77 |..*FX15,1...%.$w|
00003780 6e 25 3d 22 49 6e 76 57 22 8c f2 49 54 70 61 67 |n%="InvW"..ITpag|
00003790 65 5f 28 2d 69 74 69 70 5f 25 29 3a 3d b9 0d 06 |e_(-itip_%):=...|
000037a0 a9 28 e7 24 77 6e 25 3d 22 53 61 6c 65 64 22 8c |.(.$wn%="Saled".|
000037b0 f2 53 49 54 70 61 67 65 5f 28 2d 73 69 74 69 70 |.SITpage_(-sitip|
000037c0 5f 25 29 3a 3d b9 0d 06 ae 28 e7 24 77 6e 25 3d |_%):=....(.$wn%=|
000037d0 22 50 61 6c 65 64 22 8c f2 50 49 54 70 61 67 65 |"Paled"..PITpage|
000037e0 5f 28 2d 73 69 74 69 70 5f 25 29 3a 3d b9 0d 06 |_(-sitip_%):=...|
000037f0 b3 28 e7 24 77 6e 25 3d 22 42 61 6e 6b 4c 22 8c |.(.$wn%="BankL".|
00003800 f2 42 49 54 70 61 67 65 5f 28 2d 73 69 74 69 70 |.BITpage_(-sitip|
00003810 5f 25 29 3a 3d b9 0d 06 b8 29 e7 24 77 6e 25 3d |_%):=....).$wn%=|
00003820 22 53 74 61 6e 64 57 22 8c f2 54 49 54 70 61 67 |"StandW"..TITpag|
00003830 65 5f 28 2d 73 69 74 69 70 5f 25 29 3a 3d b9 0d |e_(-sitip_%):=..|
00003840 06 bd 2d e7 24 77 6e 25 3d 22 48 65 61 64 69 6e |..-.$wn%="Headin|
00003850 67 73 22 84 24 77 6e 25 3d 22 50 48 65 61 64 69 |gs".$wn%="PHeadi|
00003860 6e 67 73 22 8c 3d a4 53 68 64 6f 5f 0d 06 c7 06 |ngs".=.Shdo_....|
00003870 3d a3 0d 06 cc 0d dd a4 52 69 67 68 74 31 5f 0d |=.......Right1_.|
00003880 06 d1 20 e7 24 77 6e 25 3d 22 49 6e 76 57 22 8c |.. .$wn%="InvW".|
00003890 f2 49 54 70 61 67 65 5f 28 2d 31 29 3a 3d b9 0d |.ITpage_(-1):=..|
000038a0 06 d6 22 e7 24 77 6e 25 3d 22 53 61 6c 65 64 22 |..".$wn%="Saled"|
000038b0 8c f2 53 49 54 70 61 67 65 5f 28 2d 31 29 3a 3d |..SITpage_(-1):=|
000038c0 b9 0d 06 db 22 e7 24 77 6e 25 3d 22 50 61 6c 65 |....".$wn%="Pale|
000038d0 64 22 8c f2 50 49 54 70 61 67 65 5f 28 2d 31 29 |d"..PITpage_(-1)|
000038e0 3a 3d b9 0d 06 e0 22 e7 24 77 6e 25 3d 22 42 61 |:=....".$wn%="Ba|
000038f0 6e 6b 4c 22 8c f2 42 49 54 70 61 67 65 5f 28 2d |nkL"..BITpage_(-|
00003900 31 29 3a 3d b9 0d 06 e5 23 e7 24 77 6e 25 3d 22 |1):=....#.$wn%="|
00003910 53 74 61 6e 64 57 22 8c f2 54 49 54 70 61 67 65 |StandW"..TITpage|
00003920 5f 28 2d 31 29 3a 3d b9 0d 06 ea 32 ea 20 5a 25 |_(-1):=....2. Z%|
00003930 3a 5a 25 3d a4 73 74 6f 63 6b 63 68 31 5f 3a e7 |:Z%=.stockch1_:.|
00003940 5a 25 3d b9 20 8c f2 73 49 28 57 25 2c 22 52 69 |Z%=. ..sI(W%,"Ri|
00003950 67 68 74 31 22 29 20 8b 3d b9 0d 06 ef 28 5a 25 |ght1") .=....(Z%|
00003960 3d a4 73 74 6f 63 6b 63 68 5f 28 31 29 3a f2 75 |=.stockch_(1):.u|
00003970 73 49 28 57 25 2c 22 52 69 67 68 74 31 22 29 3a |sI(W%,"Right1"):|
00003980 3d b9 0d 06 f4 0e dd a4 52 69 67 68 74 31 31 5f |=.......Right11_|
00003990 0d 06 f9 36 e7 73 61 6c 65 64 31 25 3e 30 3a e7 |...6.saled1%>0:.|
000039a0 24 77 6e 25 3d 22 53 61 6c 65 64 22 84 24 77 6e |$wn%="Saled".$wn|
000039b0 25 3d 22 53 61 6c 65 64 46 57 22 8c 3d a4 53 61 |%="SaledFW".=.Sa|
000039c0 6c 65 64 42 61 5f 0d 06 fe 36 e7 70 61 6c 65 64 |ledBa_...6.paled|
000039d0 31 25 3e 30 3a e7 24 77 6e 25 3d 22 50 61 6c 65 |1%>0:.$wn%="Pale|
000039e0 64 22 84 24 77 6e 25 3d 22 50 61 6c 65 64 46 57 |d".$wn%="PaledFW|
000039f0 22 8c 3d a4 50 61 6c 65 64 42 61 5f 0d 07 03 33 |".=.PaledBa_...3|
00003a00 e7 62 61 6e 6b 31 25 3e 30 3a e7 24 77 6e 25 3d |.bank1%>0:.$wn%=|
00003a10 22 42 61 6e 6b 4c 22 84 24 77 6e 25 3d 22 42 61 |"BankL".$wn%="Ba|
00003a20 6e 6b 46 57 22 8c 3d a4 42 61 6e 6b 62 61 5f 0d |nkFW".=.Bankba_.|
00003a30 07 12 39 e7 43 46 69 6e 64 53 75 25 3e 30 3a e7 |..9.CFindSu%>0:.|
00003a40 24 77 6e 25 3d 22 43 75 73 74 6f 6d 57 22 84 24 |$wn%="CustomW".$|
00003a50 77 6e 25 3d 22 43 46 69 6e 64 53 75 22 8c 3d a4 |wn%="CFindSu".=.|
00003a60 43 53 75 42 61 63 6b 5f 0d 07 17 83 e7 24 77 6e |CSuBack_.....$wn|
00003a70 25 3c 3e 22 49 6e 76 57 22 80 24 77 6e 25 3c 3e |%<>"InvW".$wn%<>|
00003a80 22 53 61 6c 65 64 22 80 24 77 6e 25 3c 3e 22 50 |"Saled".$wn%<>"P|
00003a90 61 6c 65 64 22 80 24 77 6e 25 3c 3e 22 42 61 6e |aled".$wn%<>"Ban|
00003aa0 6b 4c 22 80 24 77 6e 25 3c 3e 22 53 74 61 6e 64 |kL".$wn%<>"Stand|
00003ab0 57 22 80 24 77 6e 25 3c 3e 22 48 65 61 64 69 6e |W".$wn%<>"Headin|
00003ac0 67 73 22 80 24 77 6e 25 3c 3e 22 50 48 65 61 64 |gs".$wn%<>"PHead|
00003ad0 69 6e 67 73 22 80 24 77 6e 25 3c 3e 22 42 61 6c |ings".$wn%<>"Bal|
00003ae0 57 22 8c 3d a4 4c 65 66 74 31 5f 0d 07 1c 0b 2a |W".=.Left1_....*|
00003af0 46 58 31 35 2c 31 0d 07 21 24 e7 24 77 6e 25 3d |FX15,1..!$.$wn%=|
00003b00 22 49 6e 76 57 22 8c f2 49 54 70 61 67 65 5f 28 |"InvW"..ITpage_(|
00003b10 69 74 69 70 5f 25 29 3a 3d b9 0d 07 26 27 e7 24 |itip_%):=...&'.$|
00003b20 77 6e 25 3d 22 53 61 6c 65 64 22 8c f2 53 49 54 |wn%="Saled"..SIT|
00003b30 70 61 67 65 5f 28 73 69 74 69 70 5f 25 29 3a 3d |page_(sitip_%):=|
00003b40 b9 0d 07 2b 27 e7 24 77 6e 25 3d 22 50 61 6c 65 |...+'.$wn%="Pale|
00003b50 64 22 8c f2 50 49 54 70 61 67 65 5f 28 73 69 74 |d"..PITpage_(sit|
00003b60 69 70 5f 25 29 3a 3d b9 0d 07 30 27 e7 24 77 6e |ip_%):=...0'.$wn|
00003b70 25 3d 22 42 61 6e 6b 4c 22 8c f2 42 49 54 70 61 |%="BankL"..BITpa|
00003b80 67 65 5f 28 73 69 74 69 70 5f 25 29 3a 3d b9 0d |ge_(sitip_%):=..|
00003b90 07 35 28 e7 24 77 6e 25 3d 22 53 74 61 6e 64 57 |.5(.$wn%="StandW|
00003ba0 22 8c f2 54 49 54 70 61 67 65 5f 28 73 69 74 69 |"..TITpage_(siti|
00003bb0 70 5f 25 29 3a 3d b9 0d 07 3a 2d e7 24 77 6e 25 |p_%):=...:-.$wn%|
00003bc0 3d 22 48 65 61 64 69 6e 67 73 22 84 24 77 6e 25 |="Headings".$wn%|
00003bd0 3d 22 50 48 65 61 64 69 6e 67 73 22 8c 3d a4 53 |="PHeadings".=.S|
00003be0 68 75 70 5f 0d 07 44 06 3d a3 0d 07 49 0d dd a4 |hup_..D.=...I...|
00003bf0 4c 65 66 74 31 30 5f 0d 07 4e 26 e7 24 77 6e 25 |Left10_..N&.$wn%|
00003c00 3d 22 49 6e 76 57 22 8c f2 49 54 70 61 67 65 5f |="InvW"..ITpage_|
00003c10 28 69 74 69 70 5f 25 2a 35 29 3a 3d b9 0d 07 53 |(itip_%*5):=...S|
00003c20 29 e7 24 77 6e 25 3d 22 53 61 6c 65 64 22 8c f2 |).$wn%="Saled"..|
00003c30 53 49 54 70 61 67 65 5f 28 73 69 74 69 70 5f 25 |SITpage_(sitip_%|
00003c40 2a 35 29 3a 3d b9 0d 07 58 29 e7 24 77 6e 25 3d |*5):=...X).$wn%=|
00003c50 22 50 61 6c 65 64 22 8c f2 50 49 54 70 61 67 65 |"Paled"..PITpage|
00003c60 5f 28 73 69 74 69 70 5f 25 2a 35 29 3a 3d b9 0d |_(sitip_%*5):=..|
00003c70 07 5d 29 e7 24 77 6e 25 3d 22 42 61 6e 6b 4c 22 |.]).$wn%="BankL"|
00003c80 8c f2 42 49 54 70 61 67 65 5f 28 73 69 74 69 70 |..BITpage_(sitip|
00003c90 5f 25 2a 35 29 3a 3d b9 0d 07 62 2a e7 24 77 6e |_%*5):=...b*.$wn|
00003ca0 25 3d 22 53 74 61 6e 64 57 22 8c f2 54 49 54 70 |%="StandW"..TITp|
00003cb0 61 67 65 5f 28 73 69 74 69 70 5f 25 2a 35 29 3a |age_(sitip_%*5):|
00003cc0 3d b9 0d 07 67 32 ea 20 5a 25 3a 5a 25 3d a4 73 |=...g2. Z%:Z%=.s|
00003cd0 74 6f 63 6b 63 68 31 5f 3a e7 5a 25 3d b9 20 8c |tockch1_:.Z%=. .|
00003ce0 f2 73 49 28 57 25 2c 22 4c 65 66 74 31 30 22 29 |.sI(W%,"Left10")|
00003cf0 20 8b 3d b9 0d 07 6c 2a 5a 25 3d a4 73 74 6f 63 | .=...l*Z%=.stoc|
00003d00 6b 63 68 5f 28 2d 31 30 29 3a f2 75 73 49 28 57 |kch_(-10):.usI(W|
00003d10 25 2c 22 4c 65 66 74 31 30 22 29 3a 3d b9 0d 07 |%,"Left10"):=...|
00003d20 71 0e dd a4 52 69 67 68 74 31 30 5f 0d 07 76 27 |q...Right10_..v'|
00003d30 e7 24 77 6e 25 3d 22 49 6e 76 57 22 8c f2 49 54 |.$wn%="InvW"..IT|
00003d40 70 61 67 65 5f 28 2d 69 74 69 70 5f 25 2a 35 29 |page_(-itip_%*5)|
00003d50 3a 3d b9 0d 07 7b 2b e7 24 77 6e 25 3d 22 53 74 |:=...{+.$wn%="St|
00003d60 61 6e 64 57 22 8c f2 54 49 54 70 61 67 65 5f 28 |andW"..TITpage_(|
00003d70 2d 73 69 74 69 70 5f 25 2a 35 29 3a 3d b9 0d 07 |-sitip_%*5):=...|
00003d80 80 2a e7 24 77 6e 25 3d 22 53 61 6c 65 64 22 8c |.*.$wn%="Saled".|
00003d90 f2 53 49 54 70 61 67 65 5f 28 2d 73 69 74 69 70 |.SITpage_(-sitip|
00003da0 5f 25 2a 35 29 3a 3d b9 0d 07 85 2a e7 24 77 6e |_%*5):=....*.$wn|
00003db0 25 3d 22 50 61 6c 65 64 22 8c f2 50 49 54 70 61 |%="Paled"..PITpa|
00003dc0 67 65 5f 28 2d 73 69 74 69 70 5f 25 2a 35 29 3a |ge_(-sitip_%*5):|
00003dd0 3d b9 0d 07 8a 2a e7 24 77 6e 25 3d 22 42 61 6e |=....*.$wn%="Ban|
00003de0 6b 4c 22 8c f2 42 49 54 70 61 67 65 5f 28 2d 73 |kL"..BITpage_(-s|
00003df0 69 74 69 70 5f 25 2a 35 29 3a 3d b9 0d 07 8f 33 |itip_%*5):=....3|
00003e00 ea 20 5a 25 3a 5a 25 3d a4 73 74 6f 63 6b 63 68 |. Z%:Z%=.stockch|
00003e10 31 5f 3a e7 5a 25 3d b9 20 8c f2 73 49 28 57 25 |1_:.Z%=. ..sI(W%|
00003e20 2c 22 52 69 67 68 74 31 30 22 29 20 8b 3d b9 0d |,"Right10") .=..|
00003e30 07 94 2a 5a 25 3d a4 73 74 6f 63 6b 63 68 5f 28 |..*Z%=.stockch_(|
00003e40 31 30 29 3a f2 75 73 49 28 57 25 2c 22 52 69 67 |10):.usI(W%,"Rig|
00003e50 68 74 31 30 22 29 3a 3d b9 0d 07 99 0e dd a4 4c |ht10"):=.......L|
00003e60 65 66 74 31 30 30 5f 0d 07 9e 27 e7 24 77 6e 25 |eft100_...'.$wn%|
00003e70 3d 22 49 6e 76 57 22 8c f2 49 54 70 61 67 65 5f |="InvW"..ITpage_|
00003e80 28 69 74 69 70 5f 25 2a 31 30 29 3a 3d b9 0d 07 |(itip_%*10):=...|
00003e90 a3 2a e7 24 77 6e 25 3d 22 53 61 6c 65 64 22 8c |.*.$wn%="Saled".|
00003ea0 f2 53 49 54 70 61 67 65 5f 28 73 69 74 69 70 5f |.SITpage_(sitip_|
00003eb0 25 2a 31 30 29 3a 3d b9 0d 07 a8 2a e7 24 77 6e |%*10):=....*.$wn|
00003ec0 25 3d 22 50 61 6c 65 64 22 8c f2 50 49 54 70 61 |%="Paled"..PITpa|
00003ed0 67 65 5f 28 73 69 74 69 70 5f 25 2a 31 30 29 3a |ge_(sitip_%*10):|
00003ee0 3d b9 0d 07 ad 2a e7 24 77 6e 25 3d 22 42 61 6e |=....*.$wn%="Ban|
00003ef0 6b 4c 22 8c f2 42 49 54 70 61 67 65 5f 28 73 69 |kL"..BITpage_(si|
00003f00 74 69 70 5f 25 2a 31 30 29 3a 3d b9 0d 07 b2 2b |tip_%*10):=....+|
00003f10 e7 24 77 6e 25 3d 22 53 74 61 6e 64 57 22 8c f2 |.$wn%="StandW"..|
00003f20 54 49 54 70 61 67 65 5f 28 73 69 74 69 70 5f 25 |TITpage_(sitip_%|
00003f30 2a 31 30 29 3a 3d b9 0d 07 b7 33 ea 20 5a 25 3a |*10):=....3. Z%:|
00003f40 5a 25 3d a4 73 74 6f 63 6b 63 68 31 5f 3a e7 5a |Z%=.stockch1_:.Z|
00003f50 25 3d b9 20 8c f2 73 49 28 57 25 2c 22 4c 65 66 |%=. ..sI(W%,"Lef|
00003f60 74 31 30 30 22 29 20 8b 3d b9 0d 07 bc 2c 5a 25 |t100") .=....,Z%|
00003f70 3d a4 73 74 6f 63 6b 63 68 5f 28 2d 31 30 30 29 |=.stockch_(-100)|
00003f80 3a f2 75 73 49 28 57 25 2c 22 4c 65 66 74 31 30 |:.usI(W%,"Left10|
00003f90 30 22 29 3a 3d b9 0d 07 c1 0f dd a4 52 69 67 68 |0"):=.......Righ|
00003fa0 74 31 30 30 5f 0d 07 c6 28 e7 24 77 6e 25 3d 22 |t100_...(.$wn%="|
00003fb0 49 6e 76 57 22 8c f2 49 54 70 61 67 65 5f 28 2d |InvW"..ITpage_(-|
00003fc0 69 74 69 70 5f 25 2a 31 30 29 3a 3d b9 0d 07 cb |itip_%*10):=....|
00003fd0 2c e7 24 77 6e 25 3d 22 53 74 61 6e 64 57 22 8c |,.$wn%="StandW".|
00003fe0 f2 54 49 54 70 61 67 65 5f 28 2d 73 69 74 69 70 |.TITpage_(-sitip|
00003ff0 5f 25 2a 31 30 29 3a 3d b9 0d 07 d0 2b e7 24 77 |_%*10):=....+.$w|
00004000 6e 25 3d 22 53 61 6c 65 64 22 8c f2 53 49 54 70 |n%="Saled"..SITp|
00004010 61 67 65 5f 28 2d 73 69 74 69 70 5f 25 2a 31 30 |age_(-sitip_%*10|
00004020 29 3a 3d b9 0d 07 d5 2b e7 24 77 6e 25 3d 22 50 |):=....+.$wn%="P|
00004030 61 6c 65 64 22 8c f2 50 49 54 70 61 67 65 5f 28 |aled"..PITpage_(|
00004040 2d 73 69 74 69 70 5f 25 2a 31 30 29 3a 3d b9 0d |-sitip_%*10):=..|
00004050 07 da 2b e7 24 77 6e 25 3d 22 42 61 6e 6b 4c 22 |..+.$wn%="BankL"|
00004060 8c f2 42 49 54 70 61 67 65 5f 28 2d 73 69 74 69 |..BITpage_(-siti|
00004070 70 5f 25 2a 31 30 29 3a 3d b9 0d 07 df 34 ea 20 |p_%*10):=....4. |
00004080 5a 25 3a 5a 25 3d a4 73 74 6f 63 6b 63 68 31 5f |Z%:Z%=.stockch1_|
00004090 3a e7 5a 25 3d b9 20 8c f2 73 49 28 57 25 2c 22 |:.Z%=. ..sI(W%,"|
000040a0 52 69 67 68 74 31 30 30 22 29 20 8b 3d b9 0d 07 |Right100") .=...|
000040b0 e4 2c 5a 25 3d a4 73 74 6f 63 6b 63 68 5f 28 31 |.,Z%=.stockch_(1|
000040c0 30 30 29 3a f2 75 73 49 28 57 25 2c 22 52 69 67 |00):.usI(W%,"Rig|
000040d0 68 74 31 30 30 22 29 3a 3d b9 0d 07 e9 0d dd a4 |ht100"):=.......|
000040e0 53 74 61 72 74 31 5f 0d 07 ee 36 e7 73 61 6c 65 |Start1_...6.sale|
000040f0 64 31 25 3e 30 3a e7 24 77 6e 25 3d 22 53 61 6c |d1%>0:.$wn%="Sal|
00004100 65 64 22 84 24 77 6e 25 3d 22 53 61 6c 65 64 46 |ed".$wn%="SaledF|
00004110 57 22 8c 3d a4 53 61 6c 65 64 46 69 5f 0d 07 f3 |W".=.SaledFi_...|
00004120 36 e7 70 61 6c 65 64 31 25 3e 30 3a e7 24 77 6e |6.paled1%>0:.$wn|
00004130 25 3d 22 50 61 6c 65 64 22 84 24 77 6e 25 3d 22 |%="Paled".$wn%="|
00004140 50 61 6c 65 64 46 57 22 8c 3d a4 50 61 6c 65 64 |PaledFW".=.Paled|
00004150 46 69 5f 0d 07 f8 33 e7 62 61 6e 6b 31 25 3e 30 |Fi_...3.bank1%>0|
00004160 3a e7 24 77 6e 25 3d 22 42 61 6e 6b 4c 22 84 24 |:.$wn%="BankL".$|
00004170 77 6e 25 3d 22 42 61 6e 6b 46 57 22 8c 3d a4 42 |wn%="BankFW".=.B|
00004180 61 6e 6b 66 69 5f 0d 08 07 3a e7 43 46 69 6e 64 |ankfi_...:.CFind|
00004190 53 75 25 3e 30 3a e7 24 77 6e 25 3d 22 43 75 73 |Su%>0:.$wn%="Cus|
000041a0 74 6f 6d 57 22 84 24 77 6e 25 3d 22 43 46 69 6e |tomW".$wn%="CFin|
000041b0 64 53 75 22 8c 3d a4 43 53 75 46 69 72 73 74 5f |dSu".=.CSuFirst_|
000041c0 0d 08 0c 0c 3d a4 53 74 61 72 74 5f 0d 08 11 0c |....=.Start_....|
000041d0 dd a4 53 74 61 72 74 5f 0d 08 16 2b e7 24 77 6e |..Start_...+.$wn|
000041e0 25 3d 22 49 6e 76 57 22 8c f2 49 54 70 61 67 65 |%="InvW"..ITpage|
000041f0 5f 28 6d 61 78 49 5f 25 2a 69 74 69 70 5f 25 29 |_(maxI_%*itip_%)|
00004200 3a 3d b9 0d 08 1b 2e e7 24 77 6e 25 3d 22 53 61 |:=......$wn%="Sa|
00004210 6c 65 64 22 8c f2 53 49 54 70 61 67 65 5f 28 6d |led"..SITpage_(m|
00004220 61 78 53 5f 25 2a 73 69 74 69 70 5f 25 29 3a 3d |axS_%*sitip_%):=|
00004230 b9 0d 08 20 2e e7 24 77 6e 25 3d 22 50 61 6c 65 |... ..$wn%="Pale|
00004240 64 22 8c f2 50 49 54 70 61 67 65 5f 28 6d 61 78 |d"..PITpage_(max|
00004250 50 5f 25 2a 73 69 74 69 70 5f 25 29 3a 3d b9 0d |P_%*sitip_%):=..|
00004260 08 25 2e e7 24 77 6e 25 3d 22 42 61 6e 6b 4c 22 |.%..$wn%="BankL"|
00004270 8c f2 42 49 54 70 61 67 65 5f 28 6d 61 78 42 5f |..BITpage_(maxB_|
00004280 25 2a 73 69 74 69 70 5f 25 29 3a 3d b9 0d 08 2a |%*sitip_%):=...*|
00004290 2f e7 24 77 6e 25 3d 22 53 74 61 6e 64 57 22 8c |/.$wn%="StandW".|
000042a0 f2 54 49 54 70 61 67 65 5f 28 6d 61 78 54 5f 25 |.TITpage_(maxT_%|
000042b0 2a 73 69 74 69 70 5f 25 29 3a 3d b9 0d 08 2f 31 |*sitip_%):=.../1|
000042c0 ea 20 5a 25 3a 5a 25 3d a4 73 74 6f 63 6b 63 68 |. Z%:Z%=.stockch|
000042d0 31 5f 3a e7 5a 25 3d b9 20 8c f2 73 49 28 57 25 |1_:.Z%=. ..sI(W%|
000042e0 2c 22 53 74 61 72 74 22 29 20 8b 3d b9 0d 08 34 |,"Start") .=...4|
000042f0 2e 5a 25 3d a4 73 74 6f 63 6b 63 68 5f 28 2d 31 |.Z%=.stockch_(-1|
00004300 30 30 30 30 30 30 29 3a f2 75 73 49 28 57 25 2c |000000):.usI(W%,|
00004310 22 53 74 61 72 74 22 29 3a 3d b9 0d 08 39 0a dd |"Start"):=...9..|
00004320 a4 45 6e 64 5f 0d 08 3e 2e e7 24 77 6e 25 3d 22 |.End_..>..$wn%="|
00004330 49 6e 76 57 22 8c f2 49 54 70 61 67 65 5f 28 2d |InvW"..ITpage_(-|
00004340 28 6d 61 78 49 5f 25 2a 69 74 69 70 5f 25 29 29 |(maxI_%*itip_%))|
00004350 3a 3d b9 0d 08 43 32 e7 24 77 6e 25 3d 22 53 74 |:=...C2.$wn%="St|
00004360 61 6e 64 57 22 8c f2 54 49 54 70 61 67 65 5f 28 |andW"..TITpage_(|
00004370 2d 28 6d 61 78 54 5f 25 2a 73 69 74 69 70 5f 25 |-(maxT_%*sitip_%|
00004380 29 29 3a 3d b9 0d 08 48 31 e7 24 77 6e 25 3d 22 |)):=...H1.$wn%="|
00004390 53 61 6c 65 64 22 8c f2 53 49 54 70 61 67 65 5f |Saled"..SITpage_|
000043a0 28 2d 28 6d 61 78 53 5f 25 2a 73 69 74 69 70 5f |(-(maxS_%*sitip_|
000043b0 25 29 29 3a 3d b9 0d 08 4d 31 e7 24 77 6e 25 3d |%)):=...M1.$wn%=|
000043c0 22 50 61 6c 65 64 22 8c f2 50 49 54 70 61 67 65 |"Paled"..PITpage|
000043d0 5f 28 2d 28 6d 61 78 50 5f 25 2a 73 69 74 69 70 |_(-(maxP_%*sitip|
000043e0 5f 25 29 29 3a 3d b9 0d 08 52 31 e7 24 77 6e 25 |_%)):=...R1.$wn%|
000043f0 3d 22 42 61 6e 6b 4c 22 8c f2 42 49 54 70 61 67 |="BankL"..BITpag|
00004400 65 5f 28 2d 28 6d 61 78 42 5f 25 2a 73 69 74 69 |e_(-(maxB_%*siti|
00004410 70 5f 25 29 29 3a 3d b9 0d 08 57 2f ea 20 5a 25 |p_%)):=...W/. Z%|
00004420 3a 5a 25 3d a4 73 74 6f 63 6b 63 68 31 5f 3a e7 |:Z%=.stockch1_:.|
00004430 5a 25 3d b9 20 8c f2 73 49 28 57 25 2c 22 45 6e |Z%=. ..sI(W%,"En|
00004440 64 22 29 20 8b 3d b9 0d 08 5c 2b 5a 25 3d a4 73 |d") .=...\+Z%=.s|
00004450 74 6f 63 6b 63 68 5f 28 31 30 30 30 30 30 30 29 |tockch_(1000000)|
00004460 3a f2 75 73 49 28 57 25 2c 22 45 6e 64 22 29 3a |:.usI(W%,"End"):|
00004470 3d b9 0d 08 61 4a dd a4 6c 69 6e 6b 68 53 5f 3a |=...aJ..linkhS_:|
00004480 ea 20 5a 25 2c 41 24 2c 42 24 2c 43 24 3a 41 24 |. Z%,A$,B$,C$:A$|
00004490 3d bd 28 49 25 2b 36 35 29 3a 42 24 3d bd 28 28 |=.(I%+65):B$=.((|
000044a0 49 25 2d 31 32 29 2f 38 2b 36 35 29 2b bd 28 28 |I%-12)/8+65)+.((|
000044b0 49 25 2d 31 32 29 83 38 2b 36 35 29 0d 08 66 12 |I%-12).8+65)..f.|
000044c0 c8 8e 20 63 75 72 6c 69 6e 6b 5f 25 20 ca 0d 08 |.. curlink_% ...|
000044d0 70 5c c9 20 37 3a e7 21 69 25 3c 34 35 3a 43 24 |p\. 7:.!i%<45:C$|
000044e0 3d a4 67 49 64 28 69 6e 76 77 25 2c 21 69 25 29 |=.gId(invw%,!i%)|
000044f0 3a e7 a7 43 24 2c 22 3a 22 29 3a 43 24 3d c0 43 |:..C$,":"):C$=.C|
00004500 24 2c 32 29 8b e7 a9 28 43 24 29 3d 31 84 a9 28 |$,2)...(C$)=1..(|
00004510 43 24 29 3d 33 8c 43 24 3d c0 43 24 2c 31 29 2b |C$)=3.C$=.C$,1)+|
00004520 22 3a 22 20 8b 43 24 3d 22 22 0d 08 75 41 e7 49 |":" .C$=""..uA.I|
00004530 25 3c 31 32 8c 5a 25 3d a4 70 49 49 28 69 6e 76 |%<12.Z%=.pII(inv|
00004540 77 25 2c 21 69 25 2c 43 24 2b 41 24 2b 22 41 22 |w%,!i%,C$+A$+"A"|
00004550 29 20 8b 5a 25 3d a4 70 49 49 28 69 6e 76 77 25 |) .Z%=.pII(invw%|
00004560 2c 21 69 25 2c 43 24 2b 42 24 29 0d 08 7a 3d c9 |,!i%,C$+B$)..z=.|
00004570 20 38 3a e7 49 25 3c 31 32 8c 5a 25 3d a4 70 49 | 8:.I%<12.Z%=.pI|
00004580 49 28 73 61 6c 65 64 25 2c 21 69 25 2c 41 24 29 |I(saled%,!i%,A$)|
00004590 20 8b 5a 25 3d a4 70 49 49 28 73 61 6c 65 64 25 | .Z%=.pII(saled%|
000045a0 2c 21 69 25 2c 42 24 29 0d 08 7f 3d c9 20 39 3a |,!i%,B$)...=. 9:|
000045b0 e7 49 25 3c 31 32 8c 5a 25 3d a4 70 49 49 28 70 |.I%<12.Z%=.pII(p|
000045c0 61 6c 65 64 25 2c 21 69 25 2c 41 24 29 20 8b 5a |aled%,!i%,A$) .Z|
000045d0 25 3d a4 70 49 49 28 70 61 6c 65 64 25 2c 21 69 |%=.pII(paled%,!i|
000045e0 25 2c 42 24 29 0d 08 84 2c c9 20 31 30 3a e7 49 |%,B$)...,. 10:.I|
000045f0 25 3c 31 32 8c 24 21 53 61 6c 65 64 34 5f 25 3d |%<12.$!Saled4_%=|
00004600 41 24 20 8b 24 21 53 61 6c 65 64 34 5f 25 3d 42 |A$ .$!Saled4_%=B|
00004610 24 0d 08 89 14 f2 72 49 28 57 25 2c 22 53 61 6c |$.....rI(W%,"Sal|
00004620 65 64 34 22 29 0d 08 8e 2c c9 20 31 31 3a e7 49 |ed4")...,. 11:.I|
00004630 25 3c 31 32 8c 24 21 50 61 6c 65 64 34 5f 25 3d |%<12.$!Paled4_%=|
00004640 41 24 20 8b 24 21 50 61 6c 65 64 34 5f 25 3d 42 |A$ .$!Paled4_%=B|
00004650 24 0d 08 93 14 f2 72 49 28 57 25 2c 22 50 61 6c |$.....rI(W%,"Pal|
00004660 65 64 34 22 29 0d 08 98 28 c9 20 31 32 3a e7 49 |ed4")...(. 12:.I|
00004670 25 3c 31 32 8c 24 21 72 39 39 53 5f 25 3d 41 24 |%<12.$!r99S_%=A$|
00004680 20 8b 24 21 72 39 39 53 5f 25 3d 42 24 0d 08 9d | .$!r99S_%=B$...|
00004690 12 f2 72 49 28 57 25 2c 22 72 39 39 53 22 29 0d |..rI(W%,"r99S").|
000046a0 08 a2 28 c9 20 31 33 3a e7 49 25 3c 31 32 8c 24 |..(. 13:.I%<12.$|
000046b0 21 72 39 39 50 5f 25 3d 41 24 20 8b 24 21 72 39 |!r99P_%=A$ .$!r9|
000046c0 39 50 5f 25 3d 42 24 0d 08 a7 12 f2 72 49 28 57 |9P_%=B$.....rI(W|
000046d0 25 2c 22 72 39 39 50 22 29 0d 08 ac 33 c9 20 31 |%,"r99P")...3. 1|
000046e0 35 3a e7 49 25 3c 31 32 8c 24 21 53 6d 31 5f 25 |5:.I%<12.$!Sm1_%|
000046f0 3d 41 24 20 8b 24 21 53 6d 31 5f 25 3d bd 28 28 |=A$ .$!Sm1_%=.((|
00004700 49 25 2d 31 32 29 2f 38 2b 36 35 29 0d 08 b1 0c |I%-12)/8+65)....|
00004710 5a 25 3d a4 53 6d 31 5f 0d 08 b6 33 c9 20 31 36 |Z%=.Sm1_...3. 16|
00004720 3a e7 49 25 3c 31 32 8c 24 21 50 6d 31 5f 25 3d |:.I%<12.$!Pm1_%=|
00004730 41 24 20 8b 24 21 50 6d 31 5f 25 3d bd 28 28 49 |A$ .$!Pm1_%=.((I|
00004740 25 2d 31 32 29 2f 38 2b 36 35 29 0d 08 bb 0c 5a |%-12)/8+65)....Z|
00004750 25 3d a4 50 6d 31 5f 0d 08 ca 05 cb 0d 08 cf 06 |%=.Pm1_.........|
00004760 3d b9 0d 08 d4 4d dd a4 6c 69 6e 6b 62 53 5f 3a |=....M..linkbS_:|
00004770 ea 20 5a 25 2c 41 24 3a 41 24 3d bd 28 49 25 2b |. Z%,A$:A$=.(I%+|
00004780 36 35 29 3a e7 57 25 3e 30 3a e7 57 25 21 31 32 |65):.W%>0:.W%!12|
00004790 3e 30 3a e7 49 25 3c 31 32 8c 5a 25 3d a4 70 49 |>0:.I%<12.Z%=.pI|
000047a0 49 28 57 25 21 31 32 2c 21 69 25 2c 41 24 29 0d |I(W%!12,!i%,A$).|
000047b0 08 d9 06 3d b9 0d 08 de 0c dd a4 6c 69 6e 6b 53 |...=.......linkS|
000047c0 5f 0d 08 e3 08 ea 20 5a 25 0d 08 e8 12 c8 8e 20 |_..... Z%...... |
000047d0 63 75 72 6c 69 6e 6b 5f 25 20 ca 0d 09 06 d7 c9 |curlink_% ......|
000047e0 20 36 3a 5a 25 3d a4 77 69 6e 64 6f 77 28 22 43 | 6:Z%=.window("C|
000047f0 46 69 6e 64 53 75 22 29 3a 24 21 43 53 53 75 70 |FindSu"):$!CSSup|
00004800 70 6c 69 65 72 5f 25 3d 43 53 75 70 70 6c 69 65 |plier_%=CSupplie|
00004810 72 73 5f 24 28 49 25 2b 31 29 3a 43 53 53 75 70 |rs_$(I%+1):CSSup|
00004820 70 6c 69 65 5f 24 3d 24 21 43 53 53 75 70 70 6c |plie_$=$!CSSuppl|
00004830 69 65 72 5f 25 3a f2 72 49 28 57 25 2c 22 43 53 |ier_%:.rI(W%,"CS|
00004840 53 75 70 70 6c 69 65 72 22 29 3a f2 73 65 74 43 |Supplier"):.setC|
00004850 5f 28 33 29 3a 43 53 5f 25 3d 49 25 2b 31 3a 43 |_(3):CS_%=I%+1:C|
00004860 53 75 77 69 6e 64 25 3d 30 3a 43 53 75 57 25 3d |Suwind%=0:CSuW%=|
00004870 30 3a 5a 25 3d a4 77 69 6e 64 6f 77 28 22 43 75 |0:Z%=.window("Cu|
00004880 73 74 6f 6d 57 22 29 3a 5a 25 3d a4 43 75 70 64 |stomW"):Z%=.Cupd|
00004890 61 74 65 73 75 70 70 6c 69 65 72 5f 3a 5a 25 3d |atesupplier_:Z%=|
000048a0 a4 77 69 6e 64 6f 77 28 22 43 46 69 6e 64 53 75 |.window("CFindSu|
000048b0 22 29 0d 09 0b 6f c9 20 37 3a 24 21 49 54 73 75 |")...o. 7:$!ITsu|
000048c0 70 70 6c 69 65 72 5f 25 3d 43 53 75 70 70 6c 69 |pplier_%=CSuppli|
000048d0 65 72 73 5f 24 28 49 25 2b 31 29 3a 49 54 73 75 |ers_$(I%+1):ITsu|
000048e0 70 6e 75 6d 4e 5f 25 3d 43 53 75 4e 75 6d 62 65 |pnumN_%=CSuNumbe|
000048f0 72 5f 25 28 49 25 2b 31 29 3a f2 72 49 28 69 6e |r_%(I%+1):.rI(in|
00004900 76 57 25 2c 22 49 54 73 75 70 70 6c 69 65 72 22 |vW%,"ITsupplier"|
00004910 29 3a 5a 25 3d a4 49 54 73 75 70 70 6c 69 65 72 |):Z%=.ITsupplier|
00004920 5f 0d 09 10 5d c9 20 38 3a 5a 25 3d a4 70 49 49 |_...]. 8:Z%=.pII|
00004930 28 73 61 6c 65 64 25 2c 21 69 25 2c 43 53 75 70 |(saled%,!i%,CSup|
00004940 70 6c 69 65 72 73 5f 24 28 49 25 2b 31 29 29 3a |pliers_$(I%+1)):|
00004950 53 49 54 6e 5f 25 28 73 69 74 70 5f 25 2b 21 69 |SITn_%(sitp_%+!i|
00004960 25 2f 73 69 74 69 66 5f 25 2b 31 29 3d 43 53 75 |%/sitif_%+1)=CSu|
00004970 4e 75 6d 62 65 72 5f 25 28 49 25 2b 31 29 0d 09 |Number_%(I%+1)..|
00004980 1a 56 c9 20 31 30 3a 24 21 53 61 6c 65 64 31 5f |.V. 10:$!Saled1_|
00004990 25 3d 22 23 22 2b c3 28 49 25 2b 31 29 2b 22 3d |%="#"+.(I%+1)+"=|
000049a0 22 2b 43 53 75 70 70 6c 69 65 72 73 5f 24 28 49 |"+CSuppliers_$(I|
000049b0 25 2b 31 29 3a f2 72 49 28 57 25 2c 22 53 61 6c |%+1):.rI(W%,"Sal|
000049c0 65 64 31 22 29 3a 53 49 54 6e 5f 25 28 30 29 3d |ed1"):SITn_%(0)=|
000049d0 49 25 2b 31 0d 09 24 50 c9 20 31 32 3a 24 21 72 |I%+1..$P. 12:$!r|
000049e0 33 33 53 5f 25 3d 22 23 22 2b c3 28 49 25 2b 31 |33S_%="#"+.(I%+1|
000049f0 29 2b 22 3d 22 2b 43 53 75 70 70 6c 69 65 72 73 |)+"="+CSuppliers|
00004a00 5f 24 28 49 25 2b 31 29 3a f2 72 49 28 57 25 2c |_$(I%+1):.rI(W%,|
00004a10 22 72 33 33 53 22 29 3a 53 49 54 6e 31 5f 25 3d |"r33S"):SITn1_%=|
00004a20 49 25 2b 31 0d 09 2e 5d c9 20 31 34 3a 24 21 53 |I%+1...]. 14:$!S|
00004a30 43 75 73 74 5f 25 3d 22 23 22 2b c3 28 49 25 2b |Cust_%="#"+.(I%+|
00004a40 31 29 2b 22 3d 22 2b 43 53 75 70 70 6c 69 65 72 |1)+"="+CSupplier|
00004a50 73 5f 24 28 49 25 2b 31 29 3a f2 72 49 28 57 25 |s_$(I%+1):.rI(W%|
00004a60 2c 22 53 43 75 73 74 22 29 3a f2 73 65 74 43 5f |,"SCust"):.setC_|
00004a70 28 31 31 29 3a 53 49 54 6e 32 5f 25 3d 49 25 2b |(11):SITn2_%=I%+|
00004a80 31 0d 09 33 09 c9 20 31 37 3a 0d 09 38 05 cb 0d |1..3.. 17:..8...|
00004a90 09 3d 06 3d b9 0d 09 42 98 dd a4 69 6e 76 6f 63 |.=.=...B...invoc|
00004aa0 5f 3a ea 20 5a 25 3a 5a 25 3d a4 43 75 70 64 61 |_:. Z%:Z%=.Cupda|
00004ab0 74 65 73 75 70 70 6c 69 65 72 5f 3a 5a 25 3d a4 |tesupplier_:Z%=.|
00004ac0 77 69 6e 64 6f 77 28 22 49 6e 76 57 22 29 3a 24 |window("InvW"):$|
00004ad0 21 49 54 73 75 70 70 6c 69 65 72 5f 25 3d 24 21 |!ITsupplier_%=$!|
00004ae0 43 53 75 4e 61 6d 65 5f 25 3a 49 54 73 75 70 6e |CSuName_%:ITsupn|
00004af0 75 6d 4e 5f 25 3d 43 53 75 4e 75 6d 62 65 72 5f |umN_%=CSuNumber_|
00004b00 25 28 43 53 5f 25 29 3a f2 72 49 28 69 6e 76 57 |%(CS_%):.rI(invW|
00004b10 25 2c 22 49 54 73 75 70 70 6c 69 65 72 22 29 3a |%,"ITsupplier"):|
00004b20 3d a4 49 54 73 75 70 70 6c 69 65 72 5f 0d 09 47 |=.ITsupplier_..G|
00004b30 0c dd a4 6c 69 6e 6b 46 5f 0d 09 4c 08 ea 20 5a |...linkF_..L.. Z|
00004b40 25 0d 09 51 12 c8 8e 20 66 6f 6e 6c 69 6e 6b 5f |%..Q... fonlink_|
00004b50 25 20 ca 0d 09 56 24 c9 20 31 3a 6a 5f 66 34 25 |% ...V$. 1:j_f4%|
00004b60 3d 49 25 2d 31 3a 21 62 25 3d 31 3a 5a 25 3d a4 |=I%-1:!b%=1:Z%=.|
00004b70 44 66 6e 61 6d 65 5f 0d 09 5b 26 c9 20 32 3a 6a |Dfname_..[&. 2:j|
00004b80 5f 66 25 3d 49 25 2d 31 3a 21 62 25 3d 31 3a 5a |_f%=I%-1:!b%=1:Z|
00004b90 25 3d a4 4c 66 6f 6e 74 6e 61 6d 65 5f 0d 09 60 |%=.Lfontname_..`|
00004ba0 27 c9 20 33 3a 6a 5f 66 31 25 3d 49 25 2d 31 3a |'. 3:j_f1%=I%-1:|
00004bb0 21 62 25 3d 31 3a 5a 25 3d a4 4c 69 73 74 66 6e |!b%=1:Z%=.Listfn|
00004bc0 61 6d 65 5f 0d 09 65 27 c9 20 34 3a 6a 5f 66 32 |ame_..e'. 4:j_f2|
00004bd0 25 3d 49 25 2d 31 3a 21 62 25 3d 31 3a 5a 25 3d |%=I%-1:!b%=1:Z%=|
00004be0 a4 53 66 6f 6e 74 6e 61 6d 65 5f 0d 09 6a 25 c9 |.Sfontname_..j%.|
00004bf0 20 35 3a 6a 5f 66 33 25 3d 49 25 2d 31 3a 21 62 | 5:j_f3%=I%-1:!b|
00004c00 25 3d 31 3a 5a 25 3d a4 53 4c 66 6e 61 6d 65 5f |%=1:Z%=.SLfname_|
00004c10 0d 09 6f 28 c9 20 36 3a 6a 5f 66 35 25 3d 49 25 |..o(. 6:j_f5%=I%|
00004c20 2d 31 3a 21 62 25 3d 31 3a 5a 25 3d a4 43 53 66 |-1:!b%=1:Z%=.CSf|
00004c30 6f 6e 74 6e 61 6d 65 5f 0d 09 74 26 c9 20 37 3a |ontname_..t&. 7:|
00004c40 6a 5f 66 36 25 3d 49 25 2d 31 3a 21 62 25 3d 31 |j_f6%=I%-1:!b%=1|
00004c50 3a 5a 25 3d a4 43 53 4c 66 6e 61 6d 65 5f 0d 09 |:Z%=.CSLfname_..|
00004c60 79 2f c9 20 38 2c 39 2c 31 34 3a 4f 72 64 65 72 |y/. 8,9,14:Order|
00004c70 46 55 5f 25 3d 49 25 2d 31 3a 21 62 25 3d 31 3a |FU_%=I%-1:!b%=1:|
00004c80 5a 25 3d a4 49 4f 72 64 65 72 66 75 5f 0d 09 7e |Z%=.IOrderfu_..~|
00004c90 2d c9 20 31 30 3a 53 61 6c 65 64 52 5f 25 28 31 |-. 10:SaledR_%(1|
00004ca0 35 29 3d 49 25 2d 31 3a 21 62 25 3d 31 3a 5a 25 |5)=I%-1:!b%=1:Z%|
00004cb0 3d a4 53 61 66 6e 61 6d 65 5f 0d 09 83 2d c9 20 |=.Safname_...-. |
00004cc0 31 31 3a 50 61 6c 65 64 52 5f 25 28 31 35 29 3d |11:PaledR_%(15)=|
00004cd0 49 25 2d 31 3a 21 62 25 3d 31 3a 5a 25 3d a4 50 |I%-1:!b%=1:Z%=.P|
00004ce0 61 66 6e 61 6d 65 5f 0d 09 88 2c c9 20 31 32 3a |afname_...,. 12:|
00004cf0 42 61 6c 65 64 52 5f 25 28 39 29 3d 49 25 2d 31 |BaledR_%(9)=I%-1|
00004d00 3a 21 62 25 3d 31 3a 5a 25 3d a4 42 61 66 6e 61 |:!b%=1:Z%=.Bafna|
00004d10 6d 65 5f 0d 09 8d 26 c9 20 31 33 3a 58 6e 61 6d |me_...&. 13:Xnam|
00004d20 5f 25 3d 49 25 2d 31 3a 21 62 25 3d 31 3a 5a 25 |_%=I%-1:!b%=1:Z%|
00004d30 3d a4 58 66 6e 61 6d 65 5f 0d 09 92 2a c9 20 31 |=.Xfname_...*. 1|
00004d40 35 3a 56 61 74 43 5f 25 28 38 29 3d 49 25 2d 31 |5:VatC_%(8)=I%-1|
00004d50 3a 21 62 25 3d 31 3a 5a 25 3d a4 56 61 66 6e 61 |:!b%=1:Z%=.Vafna|
00004d60 6d 65 5f 0d 09 97 2a c9 20 31 36 3a 57 61 74 43 |me_...*. 16:WatC|
00004d70 5f 25 28 38 29 3d 49 25 2d 31 3a 21 62 25 3d 31 |_%(8)=I%-1:!b%=1|
00004d80 3a 5a 25 3d a4 57 61 66 6e 61 6d 65 5f 0d 09 9c |:Z%=.Wafname_...|
00004d90 05 cb 0d 09 a6 67 e7 66 6f 6e 6c 69 6e 6b 5f 25 |.....g.fonlink_%|
00004da0 3e 49 41 66 6f 6e 5f 25 2b 31 80 66 6f 6e 6c 69 |>IAfon_%+1.fonli|
00004db0 6e 6b 5f 25 3c 3d 49 4f 69 63 6f 6e 73 25 2b 49 |nk_%<=IOicons%+I|
00004dc0 41 66 6f 6e 5f 25 8c 49 4f 72 64 65 72 46 5f 25 |Afon_%.IOrderF_%|
00004dd0 28 66 6f 6e 6c 69 6e 6b 5f 25 2d 49 41 66 6f 6e |(fonlink_%-IAfon|
00004de0 5f 25 29 3d 49 25 2d 31 3a 21 62 25 3d 31 3a 3d |_%)=I%-1:!b%=1:=|
00004df0 a4 49 4f 72 64 65 72 66 5f 0d 09 b0 06 3d b9 0d |.IOrderf_....=..|
00004e00 09 b5 2a dd a4 6c 69 6e 6b 49 5f 3a 24 21 49 54 |..*..linkI_:$!IT|
00004e10 6e 75 6d 5f 25 3d 69 6e 76 4c 5f 24 28 49 25 29 |num_%=invL_$(I%)|
00004e20 3a 3d a4 49 54 6e 75 6d 5f 0d 09 bf 04 0d 09 c4 |:=.ITnum_.......|
00004e30 11 dd a4 53 74 53 6f 72 74 31 5f 3a 3d a3 0d 09 |...StSort1_:=...|
00004e40 c9 0e dd a4 53 74 73 6e 5f 3a 3d a3 0d 09 ce 0e |....Stsn_:=.....|
00004e50 dd a4 53 74 72 6e 5f 3a 3d a3 0d 09 d3 04 0d 0a |..Strn_:=.......|
00004e60 1e 1a dd a4 43 53 75 53 6f 72 74 5f 3a f2 77 6c |....CSuSort_:.wl|
00004e70 5f 28 32 38 29 3a 3d a3 0d 0a 5f 04 0d 0a 64 88 |_(28):=..._...d.|
00004e80 dd f2 53 69 53 6f 72 74 5f 3a ea 20 41 25 2c 42 |..SiSort_:. A%,B|
00004e90 25 2c 43 25 2c 44 25 2c 5a 25 3a 42 25 3d 73 69 |%,C%,D%,Z%:B%=si|
00004ea0 74 69 66 5f 25 3a c8 99 26 34 30 36 43 30 3a e3 |tif_%:..&406C0:.|
00004eb0 41 25 3d 31 b8 6d 61 78 53 5f 25 2a 73 69 74 69 |A%=1.maxS_%*siti|
00004ec0 70 5f 25 3a 73 75 70 70 5f 25 28 41 25 29 3d 41 |p_%:supp_%(A%)=A|
00004ed0 25 3a ed 3a e3 41 25 3d 32 b8 6d 61 78 53 5f 25 |%:.:.A%=2.maxS_%|
00004ee0 2a 73 69 74 69 70 5f 25 3a e3 43 25 3d 41 25 b8 |*sitip_%:.C%=A%.|
00004ef0 32 20 88 2d 31 3a 44 25 3d 28 43 25 2d 31 29 2a |2 .-1:D%=(C%-1)*|
00004f00 42 25 2b 31 0d 0a 69 c8 e7 53 49 54 65 5f 24 28 |B%+1..i..SITe_$(|
00004f10 44 25 29 3c 3e 22 22 80 a4 63 64 5f 28 53 49 54 |D%)<>""..cd_(SIT|
00004f20 65 5f 24 28 44 25 29 29 3c a4 63 64 5f 28 53 49 |e_$(D%))<.cd_(SI|
00004f30 54 65 5f 24 28 44 25 2d 42 25 29 29 8c 53 49 54 |Te_$(D%-B%)).SIT|
00004f40 65 5f 24 28 30 29 3d 53 49 54 65 5f 24 28 44 25 |e_$(0)=SITe_$(D%|
00004f50 2d 42 25 29 3a 53 49 54 65 5f 24 28 44 25 2d 42 |-B%):SITe_$(D%-B|
00004f60 25 29 3d 53 49 54 65 5f 24 28 44 25 29 3a 53 49 |%)=SITe_$(D%):SI|
00004f70 54 65 5f 24 28 44 25 29 3d 53 49 54 65 5f 24 28 |Te_$(D%)=SITe_$(|
00004f80 30 29 3a 73 75 70 70 5f 25 28 30 29 3d 73 75 70 |0):supp_%(0)=sup|
00004f90 70 5f 25 28 43 25 2d 31 29 3a 73 75 70 70 5f 25 |p_%(C%-1):supp_%|
00004fa0 28 43 25 2d 31 29 3d 73 75 70 70 5f 25 28 43 25 |(C%-1)=supp_%(C%|
00004fb0 29 3a 73 75 70 70 5f 25 28 43 25 29 3d 73 75 70 |):supp_%(C%)=sup|
00004fc0 70 5f 25 28 30 29 20 8b 43 25 3d 32 0d 0a 6e 05 |p_%(0) .C%=2..n.|
00004fd0 ed 0d 0a 73 4d c8 99 26 34 30 36 43 34 2c 41 25 |...sM..&406C4,A%|
00004fe0 2f 28 6d 61 78 53 5f 25 2a 73 69 74 69 70 5f 25 |/(maxS_%*sitip_%|
00004ff0 29 2a 31 30 30 3a ed 3a f2 73 77 61 70 73 69 74 |)*100:.:.swapsit|
00005000 5f 3a c8 99 26 34 30 36 43 31 3a 53 49 54 65 5f |_:..&406C1:SITe_|
00005010 24 28 30 29 3d 74 6f 64 61 79 5f 24 3a e1 0d 0a |$(0)=today_$:...|
00005020 78 88 dd f2 50 69 53 6f 72 74 5f 3a ea 20 41 25 |x...PiSort_:. A%|
00005030 2c 42 25 2c 43 25 2c 44 25 2c 5a 25 3a 42 25 3d |,B%,C%,D%,Z%:B%=|
00005040 73 69 74 69 66 5f 25 3a c8 99 26 34 30 36 43 30 |sitif_%:..&406C0|
00005050 3a e3 41 25 3d 31 b8 6d 61 78 50 5f 25 2a 73 69 |:.A%=1.maxP_%*si|
00005060 74 69 70 5f 25 3a 73 75 70 70 5f 25 28 41 25 29 |tip_%:supp_%(A%)|
00005070 3d 41 25 3a ed 3a e3 41 25 3d 32 b8 6d 61 78 50 |=A%:.:.A%=2.maxP|
00005080 5f 25 2a 73 69 74 69 70 5f 25 3a e3 43 25 3d 41 |_%*sitip_%:.C%=A|
00005090 25 b8 32 20 88 2d 31 3a 44 25 3d 28 43 25 2d 31 |%.2 .-1:D%=(C%-1|
000050a0 29 2a 42 25 2b 31 0d 0a 7d c8 e7 50 49 54 65 5f |)*B%+1..}..PITe_|
000050b0 24 28 44 25 29 3c 3e 22 22 80 a4 63 64 5f 28 50 |$(D%)<>""..cd_(P|
000050c0 49 54 65 5f 24 28 44 25 29 29 3c a4 63 64 5f 28 |ITe_$(D%))<.cd_(|
000050d0 50 49 54 65 5f 24 28 44 25 2d 42 25 29 29 8c 50 |PITe_$(D%-B%)).P|
000050e0 49 54 65 5f 24 28 30 29 3d 50 49 54 65 5f 24 28 |ITe_$(0)=PITe_$(|
000050f0 44 25 2d 42 25 29 3a 50 49 54 65 5f 24 28 44 25 |D%-B%):PITe_$(D%|
00005100 2d 42 25 29 3d 50 49 54 65 5f 24 28 44 25 29 3a |-B%)=PITe_$(D%):|
00005110 50 49 54 65 5f 24 28 44 25 29 3d 50 49 54 65 5f |PITe_$(D%)=PITe_|
00005120 24 28 30 29 3a 73 75 70 70 5f 25 28 30 29 3d 73 |$(0):supp_%(0)=s|
00005130 75 70 70 5f 25 28 43 25 2d 31 29 3a 73 75 70 70 |upp_%(C%-1):supp|
00005140 5f 25 28 43 25 2d 31 29 3d 73 75 70 70 5f 25 28 |_%(C%-1)=supp_%(|
00005150 43 25 29 3a 73 75 70 70 5f 25 28 43 25 29 3d 73 |C%):supp_%(C%)=s|
00005160 75 70 70 5f 25 28 30 29 20 8b 43 25 3d 32 0d 0a |upp_%(0) .C%=2..|
00005170 82 05 ed 0d 0a 87 4d c8 99 26 34 30 36 43 34 2c |......M..&406C4,|
00005180 41 25 2f 28 6d 61 78 50 5f 25 2a 73 69 74 69 70 |A%/(maxP_%*sitip|
00005190 5f 25 29 2a 31 30 30 3a ed 3a f2 73 77 61 70 50 |_%)*100:.:.swapP|
000051a0 69 74 5f 3a c8 99 26 34 30 36 43 31 3a 50 49 54 |it_:..&406C1:PIT|
000051b0 65 5f 24 28 30 29 3d 74 6f 64 61 79 5f 24 3a e1 |e_$(0)=today_$:.|
000051c0 0d 0a 8c 88 dd f2 42 69 53 6f 72 74 5f 3a ea 20 |......BiSort_:. |
000051d0 41 25 2c 42 25 2c 43 25 2c 44 25 2c 5a 25 3a 42 |A%,B%,C%,D%,Z%:B|
000051e0 25 3d 62 69 74 69 66 5f 25 3a c8 99 26 34 30 36 |%=bitif_%:..&406|
000051f0 43 30 3a e3 41 25 3d 31 b8 6d 61 78 42 5f 25 2a |C0:.A%=1.maxB_%*|
00005200 73 69 74 69 70 5f 25 3a 73 75 70 70 5f 25 28 41 |sitip_%:supp_%(A|
00005210 25 29 3d 41 25 3a ed 3a e3 41 25 3d 32 b8 6d 61 |%)=A%:.:.A%=2.ma|
00005220 78 42 5f 25 2a 73 69 74 69 70 5f 25 3a e3 43 25 |xB_%*sitip_%:.C%|
00005230 3d 41 25 b8 32 20 88 2d 31 3a 44 25 3d 28 43 25 |=A%.2 .-1:D%=(C%|
00005240 2d 31 29 2a 42 25 2b 31 0d 0a 91 c8 e7 42 49 54 |-1)*B%+1.....BIT|
00005250 65 5f 24 28 44 25 29 3c 3e 22 22 80 a4 63 64 5f |e_$(D%)<>""..cd_|
00005260 28 42 49 54 65 5f 24 28 44 25 29 29 3c a4 63 64 |(BITe_$(D%))<.cd|
00005270 5f 28 42 49 54 65 5f 24 28 44 25 2d 42 25 29 29 |_(BITe_$(D%-B%))|
00005280 8c 42 49 54 65 5f 24 28 30 29 3d 42 49 54 65 5f |.BITe_$(0)=BITe_|
00005290 24 28 44 25 2d 42 25 29 3a 42 49 54 65 5f 24 28 |$(D%-B%):BITe_$(|
000052a0 44 25 2d 42 25 29 3d 42 49 54 65 5f 24 28 44 25 |D%-B%)=BITe_$(D%|
000052b0 29 3a 42 49 54 65 5f 24 28 44 25 29 3d 42 49 54 |):BITe_$(D%)=BIT|
000052c0 65 5f 24 28 30 29 3a 73 75 70 70 5f 25 28 30 29 |e_$(0):supp_%(0)|
000052d0 3d 73 75 70 70 5f 25 28 43 25 2d 31 29 3a 73 75 |=supp_%(C%-1):su|
000052e0 70 70 5f 25 28 43 25 2d 31 29 3d 73 75 70 70 5f |pp_%(C%-1)=supp_|
000052f0 25 28 43 25 29 3a 73 75 70 70 5f 25 28 43 25 29 |%(C%):supp_%(C%)|
00005300 3d 73 75 70 70 5f 25 28 30 29 20 8b 43 25 3d 32 |=supp_%(0) .C%=2|
00005310 0d 0a 96 05 ed 0d 0a 9b 4d c8 99 26 34 30 36 43 |........M..&406C|
00005320 34 2c 41 25 2f 28 6d 61 78 42 5f 25 2a 73 69 74 |4,A%/(maxB_%*sit|
00005330 69 70 5f 25 29 2a 31 30 30 3a ed 3a f2 73 77 61 |ip_%)*100:.:.swa|
00005340 70 42 69 74 5f 3a c8 99 26 34 30 36 43 31 3a 42 |pBit_:..&406C1:B|
00005350 49 54 65 5f 24 28 30 29 3d 74 6f 64 61 79 5f 24 |ITe_$(0)=today_$|
00005360 3a e1 0d 0b 3b 04 0d 0b 40 36 dd f2 73 77 61 70 |:...;...@6..swap|
00005370 73 69 74 5f 3a ea 20 41 25 2c 42 25 2c 43 25 2c |sit_:. A%,B%,C%,|
00005380 44 25 3a 42 25 3d 6d 61 78 53 5f 25 2a 73 69 74 |D%:B%=maxS_%*sit|
00005390 69 70 5f 25 3a 41 25 3d 42 25 3a f5 0d 0b 45 14 |ip_%:A%=B%:...E.|
000053a0 e7 73 75 70 70 5f 25 28 42 25 29 3c 3e 42 25 8c |.supp_%(B%)<>B%.|
000053b0 0d 0b 4a a2 f2 73 77 61 70 73 69 74 31 5f 28 30 |..J..swapsit1_(0|
000053c0 2c 41 25 29 3a f5 3a f2 73 77 61 70 73 69 74 31 |,A%):.:.swapsit1|
000053d0 5f 28 41 25 2c 73 75 70 70 5f 25 28 41 25 29 29 |_(A%,supp_%(A%))|
000053e0 3a 43 25 3d 41 25 3a 41 25 3d 73 75 70 70 5f 25 |:C%=A%:A%=supp_%|
000053f0 28 41 25 29 3a 73 75 70 70 5f 25 28 43 25 29 3d |(A%):supp_%(C%)=|
00005400 43 25 3a c8 99 26 34 30 36 43 34 2c 41 25 2f 28 |C%:..&406C4,A%/(|
00005410 6d 61 78 53 5f 25 2a 73 69 74 69 70 5f 25 29 2a |maxS_%*sitip_%)*|
00005420 31 30 30 3a fd 20 73 75 70 70 5f 25 28 41 25 29 |100:. supp_%(A%)|
00005430 3d 42 25 3a f2 73 77 61 70 73 69 74 31 5f 28 41 |=B%:.swapsit1_(A|
00005440 25 2c 30 29 3a 73 75 70 70 5f 25 28 41 25 29 3d |%,0):supp_%(A%)=|
00005450 41 25 0d 0b 4f 05 cd 0d 0b 54 38 42 25 2d 3d 31 |A%..O....T8B%-=1|
00005460 3a 41 25 3d 42 25 3a c8 99 26 34 30 36 43 34 2c |:A%=B%:..&406C4,|
00005470 42 25 2f 28 6d 61 78 53 5f 25 2a 73 69 74 69 70 |B%/(maxS_%*sitip|
00005480 5f 25 29 2a 31 30 30 3a fd 42 25 3d 31 3a e1 0d |_%)*100:.B%=1:..|
00005490 0b 59 36 dd f2 73 77 61 70 50 69 74 5f 3a ea 20 |.Y6..swapPit_:. |
000054a0 41 25 2c 42 25 2c 43 25 2c 44 25 3a 42 25 3d 6d |A%,B%,C%,D%:B%=m|
000054b0 61 78 50 5f 25 2a 73 69 74 69 70 5f 25 3a 41 25 |axP_%*sitip_%:A%|
000054c0 3d 42 25 3a f5 0d 0b 5e 14 e7 73 75 70 70 5f 25 |=B%:...^..supp_%|
000054d0 28 42 25 29 3c 3e 42 25 8c 0d 0b 63 a2 f2 73 77 |(B%)<>B%...c..sw|
000054e0 61 70 50 69 74 31 5f 28 30 2c 41 25 29 3a f5 3a |apPit1_(0,A%):.:|
000054f0 f2 73 77 61 70 50 69 74 31 5f 28 41 25 2c 73 75 |.swapPit1_(A%,su|
00005500 70 70 5f 25 28 41 25 29 29 3a 43 25 3d 41 25 3a |pp_%(A%)):C%=A%:|
00005510 41 25 3d 73 75 70 70 5f 25 28 41 25 29 3a 73 75 |A%=supp_%(A%):su|
00005520 70 70 5f 25 28 43 25 29 3d 43 25 3a c8 99 26 34 |pp_%(C%)=C%:..&4|
00005530 30 36 43 34 2c 41 25 2f 28 6d 61 78 50 5f 25 2a |06C4,A%/(maxP_%*|
00005540 73 69 74 69 70 5f 25 29 2a 31 30 30 3a fd 20 73 |sitip_%)*100:. s|
00005550 75 70 70 5f 25 28 41 25 29 3d 42 25 3a f2 73 77 |upp_%(A%)=B%:.sw|
00005560 61 70 50 69 74 31 5f 28 41 25 2c 30 29 3a 73 75 |apPit1_(A%,0):su|
00005570 70 70 5f 25 28 41 25 29 3d 41 25 0d 0b 68 05 cd |pp_%(A%)=A%..h..|
00005580 0d 0b 6d 38 42 25 2d 3d 31 3a 41 25 3d 42 25 3a |..m8B%-=1:A%=B%:|
00005590 c8 99 26 34 30 36 43 34 2c 42 25 2f 28 6d 61 78 |..&406C4,B%/(max|
000055a0 50 5f 25 2a 73 69 74 69 70 5f 25 29 2a 31 30 30 |P_%*sitip_%)*100|
000055b0 3a fd 42 25 3d 31 3a e1 0d 0b 72 36 dd f2 73 77 |:.B%=1:...r6..sw|
000055c0 61 70 42 69 74 5f 3a ea 20 41 25 2c 42 25 2c 43 |apBit_:. A%,B%,C|
000055d0 25 2c 44 25 3a 42 25 3d 6d 61 78 42 5f 25 2a 73 |%,D%:B%=maxB_%*s|
000055e0 69 74 69 70 5f 25 3a 41 25 3d 42 25 3a f5 0d 0b |itip_%:A%=B%:...|
000055f0 77 14 e7 73 75 70 70 5f 25 28 42 25 29 3c 3e 42 |w..supp_%(B%)<>B|
00005600 25 8c 0d 0b 7c a2 f2 73 77 61 70 42 69 74 31 5f |%...|..swapBit1_|
00005610 28 30 2c 41 25 29 3a f5 3a f2 73 77 61 70 42 69 |(0,A%):.:.swapBi|
00005620 74 31 5f 28 41 25 2c 73 75 70 70 5f 25 28 41 25 |t1_(A%,supp_%(A%|
00005630 29 29 3a 43 25 3d 41 25 3a 41 25 3d 73 75 70 70 |)):C%=A%:A%=supp|
00005640 5f 25 28 41 25 29 3a 73 75 70 70 5f 25 28 43 25 |_%(A%):supp_%(C%|
00005650 29 3d 43 25 3a c8 99 26 34 30 36 43 34 2c 41 25 |)=C%:..&406C4,A%|
00005660 2f 28 6d 61 78 42 5f 25 2a 73 69 74 69 70 5f 25 |/(maxB_%*sitip_%|
00005670 29 2a 31 30 30 3a fd 20 73 75 70 70 5f 25 28 41 |)*100:. supp_%(A|
00005680 25 29 3d 42 25 3a f2 73 77 61 70 42 69 74 31 5f |%)=B%:.swapBit1_|
00005690 28 41 25 2c 30 29 3a 73 75 70 70 5f 25 28 41 25 |(A%,0):supp_%(A%|
000056a0 29 3d 41 25 0d 0b 81 05 cd 0d 0b 86 38 42 25 2d |)=A%........8B%-|
000056b0 3d 31 3a 41 25 3d 42 25 3a c8 99 26 34 30 36 43 |=1:A%=B%:..&406C|
000056c0 34 2c 42 25 2f 28 6d 61 78 42 5f 25 2a 73 69 74 |4,B%/(maxB_%*sit|
000056d0 69 70 5f 25 29 2a 31 30 30 3a fd 42 25 3d 31 3a |ip_%)*100:.B%=1:|
000056e0 e1 0d 0b 8b 04 0d 0b c7 16 dd f2 73 77 61 70 73 |...........swaps|
000056f0 69 74 31 5f 28 43 25 2c 42 25 29 0d 0b cc 08 ea |it1_(C%,B%).....|
00005700 20 41 25 0d 0b d1 22 e7 43 25 3d 30 8c 43 25 3d | A%...".C%=0.C%=|
00005710 6d 61 78 53 5f 25 2a 73 69 74 69 70 5f 25 20 8b |maxS_%*sitip_% .|
00005720 43 25 2d 3d 31 0d 0b d6 22 e7 42 25 3d 30 8c 42 |C%-=1...".B%=0.B|
00005730 25 3d 6d 61 78 53 5f 25 2a 73 69 74 69 70 5f 25 |%=maxS_%*sitip_%|
00005740 20 8b 42 25 2d 3d 31 0d 0b db 3f e3 41 25 3d 32 | .B%-=1...?.A%=2|
00005750 b8 73 69 74 69 66 5f 25 3a 53 49 54 65 5f 24 28 |.sitif_%:SITe_$(|
00005760 43 25 2a 73 69 74 69 66 5f 25 2b 41 25 29 3d 53 |C%*sitif_%+A%)=S|
00005770 49 54 65 5f 24 28 42 25 2a 73 69 74 69 66 5f 25 |ITe_$(B%*sitif_%|
00005780 2b 41 25 29 3a ed 0d 0b e0 5f 53 49 54 61 5f 24 |+A%):...._SITa_$|
00005790 28 43 25 29 3d 53 49 54 61 5f 24 28 42 25 29 3a |(C%)=SITa_$(B%):|
000057a0 53 49 54 68 5f 24 28 43 25 29 3d 53 49 54 68 5f |SITh_$(C%)=SITh_|
000057b0 24 28 42 25 29 3a 53 49 54 73 5f 24 28 43 25 29 |$(B%):SITs_$(C%)|
000057c0 3d 53 49 54 73 5f 24 28 42 25 29 3a 53 49 54 6e |=SITs_$(B%):SITn|
000057d0 5f 25 28 43 25 2b 31 29 3d 53 49 54 6e 5f 25 28 |_%(C%+1)=SITn_%(|
000057e0 42 25 2b 31 29 0d 0b e5 05 e1 0d 0b ea 16 dd f2 |B%+1)...........|
000057f0 73 77 61 70 50 69 74 31 5f 28 43 25 2c 42 25 29 |swapPit1_(C%,B%)|
00005800 0d 0b ef 08 ea 20 41 25 0d 0b f4 22 e7 43 25 3d |..... A%...".C%=|
00005810 30 8c 43 25 3d 6d 61 78 50 5f 25 2a 73 69 74 69 |0.C%=maxP_%*siti|
00005820 70 5f 25 20 8b 43 25 2d 3d 31 0d 0b f9 22 e7 42 |p_% .C%-=1...".B|
00005830 25 3d 30 8c 42 25 3d 6d 61 78 50 5f 25 2a 73 69 |%=0.B%=maxP_%*si|
00005840 74 69 70 5f 25 20 8b 42 25 2d 3d 31 0d 0b fe 3f |tip_% .B%-=1...?|
00005850 e3 41 25 3d 32 b8 73 69 74 69 66 5f 25 3a 50 49 |.A%=2.sitif_%:PI|
00005860 54 65 5f 24 28 43 25 2a 73 69 74 69 66 5f 25 2b |Te_$(C%*sitif_%+|
00005870 41 25 29 3d 50 49 54 65 5f 24 28 42 25 2a 73 69 |A%)=PITe_$(B%*si|
00005880 74 69 66 5f 25 2b 41 25 29 3a ed 0d 0c 03 5f 50 |tif_%+A%):...._P|
00005890 49 54 61 5f 24 28 43 25 29 3d 50 49 54 61 5f 24 |ITa_$(C%)=PITa_$|
000058a0 28 42 25 29 3a 50 49 54 68 5f 24 28 43 25 29 3d |(B%):PITh_$(C%)=|
000058b0 50 49 54 68 5f 24 28 42 25 29 3a 50 49 54 73 5f |PITh_$(B%):PITs_|
000058c0 24 28 43 25 29 3d 50 49 54 73 5f 24 28 42 25 29 |$(C%)=PITs_$(B%)|
000058d0 3a 50 49 54 6e 5f 25 28 43 25 2b 31 29 3d 50 49 |:PITn_%(C%+1)=PI|
000058e0 54 6e 5f 25 28 42 25 2b 31 29 0d 0c 08 05 e1 0d |Tn_%(B%+1)......|
000058f0 0c 0d 16 dd f2 73 77 61 70 42 69 74 31 5f 28 43 |.....swapBit1_(C|
00005900 25 2c 42 25 29 0d 0c 12 08 ea 20 41 25 0d 0c 17 |%,B%)..... A%...|
00005910 22 e7 43 25 3d 30 8c 43 25 3d 6d 61 78 42 5f 25 |".C%=0.C%=maxB_%|
00005920 2a 73 69 74 69 70 5f 25 20 8b 43 25 2d 3d 31 0d |*sitip_% .C%-=1.|
00005930 0c 1c 22 e7 42 25 3d 30 8c 42 25 3d 6d 61 78 42 |..".B%=0.B%=maxB|
00005940 5f 25 2a 73 69 74 69 70 5f 25 20 8b 42 25 2d 3d |_%*sitip_% .B%-=|
00005950 31 0d 0c 21 3f e3 41 25 3d 32 b8 62 69 74 69 66 |1..!?.A%=2.bitif|
00005960 5f 25 3a 42 49 54 65 5f 24 28 43 25 2a 62 69 74 |_%:BITe_$(C%*bit|
00005970 69 66 5f 25 2b 41 25 29 3d 42 49 54 65 5f 24 28 |if_%+A%)=BITe_$(|
00005980 42 25 2a 62 69 74 69 66 5f 25 2b 41 25 29 3a ed |B%*bitif_%+A%):.|
00005990 0d 0c 26 2f 42 49 54 66 5f 24 28 43 25 29 3d 42 |..&/BITf_$(C%)=B|
000059a0 49 54 66 5f 24 28 42 25 29 3a 42 49 54 74 5f 24 |ITf_$(B%):BITt_$|
000059b0 28 43 25 29 3d 42 49 54 74 5f 24 28 42 25 29 0d |(C%)=BITt_$(B%).|
000059c0 0c 2b 05 e1 0d 0c 30 04 0d 0c 71 32 dd a4 43 53 |.+....0...q2..CS|
000059d0 75 46 69 6e 64 5f 3a 5a 25 3d a4 43 73 75 70 70 |uFind_:Z%=.Csupp|
000059e0 75 70 5f 28 30 29 3a 3d a4 77 69 6e 64 6f 77 28 |up_(0):=.window(|
000059f0 22 43 46 69 6e 64 53 75 22 29 0d 0c 76 04 0d 0c |"CFindSu")..v...|
00005a00 8a 38 dd a4 43 53 53 75 70 70 6c 69 65 72 5f 3a |.8..CSSupplier_:|
00005a10 43 53 53 75 70 70 6c 69 65 5f 24 3d 24 21 43 53 |CSSupplie_$=$!CS|
00005a20 53 75 70 70 6c 69 65 72 5f 25 3a 3d a4 43 53 75 |Supplier_%:=.CSu|
00005a30 46 69 72 73 74 5f 0d 0c 8f 04 0d 0c 94 1b dd a4 |First_..........|
00005a40 72 31 31 53 5f 3a 3d a4 75 70 64 61 74 65 73 61 |r11S_:=.updatesa|
00005a50 6c 65 64 32 5f 0d 0c 99 1c dd a4 72 31 31 31 53 |led2_......r111S|
00005a60 5f 3a 3d a4 75 70 64 61 74 65 73 61 6c 65 64 32 |_:=.updatesaled2|
00005a70 5f 0d 0c 9e 1b dd a4 72 32 32 53 5f 3a 3d a4 75 |_......r22S_:=.u|
00005a80 70 64 61 74 65 73 61 6c 65 64 32 5f 0d 0c a3 1c |pdatesaled2_....|
00005a90 dd a4 72 32 32 32 53 5f 3a 3d a4 75 70 64 61 74 |..r222S_:=.updat|
00005aa0 65 73 61 6c 65 64 32 5f 0d 0c a8 74 dd a4 72 33 |esaled2_...t..r3|
00005ab0 33 53 5f 3a ea 20 5a 25 3a e7 c0 24 21 72 33 33 |3S_:. Z%:..$!r33|
00005ac0 53 5f 25 2c 31 29 3d 22 23 22 8c 5a 25 3d a4 73 |S_%,1)="#".Z%=.s|
00005ad0 66 5f 28 24 21 72 33 33 53 5f 25 2c 31 29 3a 24 |f_($!r33S_%,1):$|
00005ae0 21 72 33 33 53 5f 25 3d 22 23 22 2b c3 28 5a 25 |!r33S_%="#"+.(Z%|
00005af0 29 2b 22 3d 22 2b 43 53 75 70 70 6c 69 65 72 73 |)+"="+CSuppliers|
00005b00 5f 24 28 5a 25 29 3a 53 49 54 6e 31 5f 25 3d 5a |_$(Z%):SITn1_%=Z|
00005b10 25 20 8b 53 49 54 6e 31 5f 25 3d 30 0d 0c ad 13 |% .SITn1_%=0....|
00005b20 3d a4 75 70 64 61 74 65 73 61 6c 65 64 32 5f 0d |=.updatesaled2_.|
00005b30 0c b2 17 dd a4 72 34 34 53 5f 3a 3d a4 53 61 6c |.....r44S_:=.Sal|
00005b40 66 69 6e 64 61 5f 0d 0c b7 1c dd a4 72 34 34 34 |finda_......r444|
00005b50 53 5f 3a 3d a4 75 70 64 61 74 65 73 61 6c 65 64 |S_:=.updatesaled|
00005b60 32 5f 0d 0c bc 1b dd a4 72 35 35 53 5f 3a 3d a4 |2_......r55S_:=.|
00005b70 75 70 64 61 74 65 73 61 6c 65 64 32 5f 0d 0c c1 |updatesaled2_...|
00005b80 1b dd a4 72 36 36 53 5f 3a 3d a4 75 70 64 61 74 |...r66S_:=.updat|
00005b90 65 73 61 6c 65 64 32 5f 0d 0c c6 1c dd a4 72 36 |esaled2_......r6|
00005ba0 36 36 53 5f 3a 3d a4 75 70 64 61 74 65 73 61 6c |66S_:=.updatesal|
00005bb0 65 64 32 5f 0d 0c cb 1b dd a4 72 37 37 53 5f 3a |ed2_......r77S_:|
00005bc0 3d a4 75 70 64 61 74 65 73 61 6c 65 64 32 5f 0d |=.updatesaled2_.|
00005bd0 0c d0 1c dd a4 72 37 37 37 53 5f 3a 3d a4 75 70 |.....r777S_:=.up|
00005be0 64 61 74 65 73 61 6c 65 64 32 5f 0d 0c d5 1d dd |datesaled2_.....|
00005bf0 a4 72 37 37 37 37 53 5f 3a 3d a4 75 70 64 61 74 |.r7777S_:=.updat|
00005c00 65 73 61 6c 65 64 32 5f 0d 0c da 1b dd a4 72 38 |esaled2_......r8|
00005c10 38 53 5f 3a 3d a4 75 70 64 61 74 65 73 61 6c 65 |8S_:=.updatesale|
00005c20 64 32 5f 0d 0c df 1c dd a4 72 38 38 38 53 5f 3a |d2_......r888S_:|
00005c30 3d a4 75 70 64 61 74 65 73 61 6c 65 64 32 5f 0d |=.updatesaled2_.|
00005c40 0c e4 17 dd a4 72 39 39 53 5f 3a 3d a4 53 61 6c |.....r99S_:=.Sal|
00005c50 66 69 6e 64 68 5f 0d 0c e9 1c dd a4 72 39 39 39 |findh_......r999|
00005c60 53 5f 3a 3d a4 75 70 64 61 74 65 73 61 6c 65 64 |S_:=.updatesaled|
00005c70 32 5f 0d 0c ee 1b dd a4 72 61 61 53 5f 3a 3d a4 |2_......raaS_:=.|
00005c80 75 70 64 61 74 65 73 61 6c 65 64 32 5f 0d 0c f3 |updatesaled2_...|
00005c90 17 dd a4 72 62 62 53 5f 3a 3d a4 53 61 6c 66 69 |...rbbS_:=.Salfi|
00005ca0 6e 64 73 5f 0d 0c f8 1c dd a4 72 62 62 62 53 5f |nds_......rbbbS_|
00005cb0 3a 3d a4 75 70 64 61 74 65 73 61 6c 65 64 32 5f |:=.updatesaled2_|
00005cc0 0d 0c fd 04 0d 0d 02 1b dd a4 72 31 31 50 5f 3a |..........r11P_:|
00005cd0 3d a4 75 70 64 61 74 65 70 61 6c 65 64 32 5f 0d |=.updatepaled2_.|
00005ce0 0d 07 1c dd a4 72 31 31 31 50 5f 3a 3d a4 75 70 |.....r111P_:=.up|
00005cf0 64 61 74 65 70 61 6c 65 64 32 5f 0d 0d 0c 1b dd |datepaled2_.....|
00005d00 a4 72 32 32 50 5f 3a 3d a4 75 70 64 61 74 65 70 |.r22P_:=.updatep|
00005d10 61 6c 65 64 32 5f 0d 0d 11 1c dd a4 72 32 32 32 |aled2_......r222|
00005d20 50 5f 3a 3d a4 75 70 64 61 74 65 70 61 6c 65 64 |P_:=.updatepaled|
00005d30 32 5f 0d 0d 16 73 dd a4 72 33 33 50 5f 3a ea 20 |2_...s..r33P_:. |
00005d40 5a 25 3a e7 c0 24 21 72 33 33 53 5f 25 2c 31 29 |Z%:..$!r33S_%,1)|
00005d50 3d 22 23 22 8c 5a 25 3d a4 73 66 5f 28 24 21 72 |="#".Z%=.sf_($!r|
00005d60 33 33 50 5f 25 2c 33 29 3a 24 21 72 33 33 50 5f |33P_%,3):$!r33P_|
00005d70 25 3d 22 23 22 2b c3 28 5a 25 29 2b 22 3d 22 2b |%="#"+.(Z%)+"="+|
00005d80 53 75 70 70 6c 69 65 72 73 5f 24 28 5a 25 29 3a |Suppliers_$(Z%):|
00005d90 50 49 54 6e 31 5f 25 3d 5a 25 20 8b 50 49 54 6e |PITn1_%=Z% .PITn|
00005da0 31 5f 25 3d 30 0d 0d 1b 13 3d a4 75 70 64 61 74 |1_%=0....=.updat|
00005db0 65 70 61 6c 65 64 32 5f 0d 0d 20 17 dd a4 72 34 |epaled2_.. ...r4|
00005dc0 34 50 5f 3a 3d a4 50 61 6c 66 69 6e 64 61 5f 0d |4P_:=.Palfinda_.|
00005dd0 0d 25 1c dd a4 72 34 34 34 50 5f 3a 3d a4 75 70 |.%...r444P_:=.up|
00005de0 64 61 74 65 70 61 6c 65 64 32 5f 0d 0d 2a 1b dd |datepaled2_..*..|
00005df0 a4 72 35 35 50 5f 3a 3d a4 75 70 64 61 74 65 70 |.r55P_:=.updatep|
00005e00 61 6c 65 64 32 5f 0d 0d 2f 1b dd a4 72 36 36 50 |aled2_../...r66P|
00005e10 5f 3a 3d a4 75 70 64 61 74 65 70 61 6c 65 64 32 |_:=.updatepaled2|
00005e20 5f 0d 0d 34 1c dd a4 72 36 36 36 50 5f 3a 3d a4 |_..4...r666P_:=.|
00005e30 75 70 64 61 74 65 70 61 6c 65 64 32 5f 0d 0d 39 |updatepaled2_..9|
00005e40 1b dd a4 72 37 37 50 5f 3a 3d a4 75 70 64 61 74 |...r77P_:=.updat|
00005e50 65 70 61 6c 65 64 32 5f 0d 0d 3e 1c dd a4 72 37 |epaled2_..>...r7|
00005e60 37 37 50 5f 3a 3d a4 75 70 64 61 74 65 70 61 6c |77P_:=.updatepal|
00005e70 65 64 32 5f 0d 0d 43 1d dd a4 72 37 37 37 37 50 |ed2_..C...r7777P|
00005e80 5f 3a 3d a4 75 70 64 61 74 65 70 61 6c 65 64 32 |_:=.updatepaled2|
00005e90 5f 0d 0d 48 1b dd a4 72 38 38 50 5f 3a 3d a4 75 |_..H...r88P_:=.u|
00005ea0 70 64 61 74 65 70 61 6c 65 64 32 5f 0d 0d 4d 1c |pdatepaled2_..M.|
00005eb0 dd a4 72 38 38 38 50 5f 3a 3d a4 75 70 64 61 74 |..r888P_:=.updat|
00005ec0 65 70 61 6c 65 64 32 5f 0d 0d 52 17 dd a4 72 39 |epaled2_..R...r9|
00005ed0 39 50 5f 3a 3d a4 50 61 6c 66 69 6e 64 68 5f 0d |9P_:=.Palfindh_.|
00005ee0 0d 57 1c dd a4 72 39 39 39 50 5f 3a 3d a4 75 70 |.W...r999P_:=.up|
00005ef0 64 61 74 65 70 61 6c 65 64 32 5f 0d 0d 5c 1b dd |datepaled2_..\..|
00005f00 a4 72 61 61 50 5f 3a 3d a4 75 70 64 61 74 65 70 |.raaP_:=.updatep|
00005f10 61 6c 65 64 32 5f 0d 0d 61 17 dd a4 72 62 62 50 |aled2_..a...rbbP|
00005f20 5f 3a 3d a4 50 61 6c 66 69 6e 64 73 5f 0d 0d 66 |_:=.Palfinds_..f|
00005f30 1c dd a4 72 62 62 62 50 5f 3a 3d a4 75 70 64 61 |...rbbbP_:=.upda|
00005f40 74 65 70 61 6c 65 64 32 5f 0d 0d 6b 04 0d 0d 70 |tepaled2_..k...p|
00005f50 1a dd a4 72 31 31 42 5f 3a 3d a4 75 70 64 61 74 |...r11B_:=.updat|
00005f60 65 62 61 6e 6b 32 5f 0d 0d 75 1b dd a4 72 31 31 |ebank2_..u...r11|
00005f70 31 42 5f 3a 3d a4 75 70 64 61 74 65 62 61 6e 6b |1B_:=.updatebank|
00005f80 32 5f 0d 0d 7a 1a dd a4 72 32 32 42 5f 3a 3d a4 |2_..z...r22B_:=.|
00005f90 75 70 64 61 74 65 62 61 6e 6b 32 5f 0d 0d 7f 17 |updatebank2_....|
00005fa0 dd a4 72 33 33 42 5f 3a 3d a4 42 61 6c 66 69 6e |..r33B_:=.Balfin|
00005fb0 64 61 5f 0d 0d 84 1b dd a4 72 33 33 33 42 5f 3a |da_......r333B_:|
00005fc0 3d a4 75 70 64 61 74 65 62 61 6e 6b 32 5f 0d 0d |=.updatebank2_..|
00005fd0 89 1a dd a4 72 34 34 42 5f 3a 3d a4 75 70 64 61 |....r44B_:=.upda|
00005fe0 74 65 62 61 6e 6b 32 5f 0d 0d 8e 1b dd a4 72 34 |tebank2_......r4|
00005ff0 34 34 42 5f 3a 3d a4 75 70 64 61 74 65 62 61 6e |44B_:=.updateban|
00006000 6b 32 5f 0d 0d 93 17 dd a4 72 35 35 42 5f 3a 3d |k2_......r55B_:=|
00006010 a4 42 61 6c 66 69 6e 64 73 5f 0d 0d 98 1b dd a4 |.Balfinds_......|
00006020 72 35 35 35 42 5f 3a 3d a4 75 70 64 61 74 65 62 |r555B_:=.updateb|
00006030 61 6e 6b 32 5f 0d 0d 9d 1a dd a4 72 36 36 42 5f |ank2_......r66B_|
00006040 3a 3d a4 75 70 64 61 74 65 62 61 6e 6b 32 5f 0d |:=.updatebank2_.|
00006050 0d a2 04 0d 0d a7 33 dd a4 53 61 6c 65 64 31 5f |......3..Saled1_|
00006060 3a 53 61 6c 65 64 46 5f 24 28 31 29 3d 24 21 53 |:SaledF_$(1)=$!S|
00006070 61 6c 65 64 31 5f 25 3a 53 49 54 6e 5f 25 28 30 |aled1_%:SITn_%(0|
00006080 29 3d 30 3a 3d b9 0d 0d ac 30 dd a4 53 61 6c 65 |)=0:=....0..Sale|
00006090 64 32 5f 3a 53 61 6c 65 64 46 5f 24 28 32 29 3d |d2_:SaledF_$(2)=|
000060a0 24 21 53 61 6c 65 64 32 5f 25 3a 3d a4 73 61 6c |$!Saled2_%:=.sal|
000060b0 66 69 6e 64 61 5f 0d 0d b1 27 dd a4 53 61 6c 65 |finda_...'..Sale|
000060c0 64 33 5f 3a 53 61 6c 65 64 46 5f 24 28 33 29 3d |d3_:SaledF_$(3)=|
000060d0 24 21 53 61 6c 65 64 33 5f 25 3a 3d b9 0d 0d b6 |$!Saled3_%:=....|
000060e0 30 dd a4 53 61 6c 65 64 34 5f 3a 53 61 6c 65 64 |0..Saled4_:Saled|
000060f0 46 5f 24 28 34 29 3d 24 21 53 61 6c 65 64 34 5f |F_$(4)=$!Saled4_|
00006100 25 3a 3d a4 73 61 6c 66 69 6e 64 68 5f 0d 0d bb |%:=.salfindh_...|
00006110 27 dd a4 53 61 6c 65 64 35 5f 3a 53 61 6c 65 64 |'..Saled5_:Saled|
00006120 46 5f 24 28 35 29 3d 24 21 53 61 6c 65 64 35 5f |F_$(5)=$!Saled5_|
00006130 25 3a 3d b9 0d 0d c0 30 dd a4 53 61 6c 65 64 36 |%:=....0..Saled6|
00006140 5f 3a 53 61 6c 65 64 46 5f 24 28 36 29 3d 24 21 |_:SaledF_$(6)=$!|
00006150 53 61 6c 65 64 36 5f 25 3a 3d a4 73 61 6c 66 69 |Saled6_%:=.salfi|
00006160 6e 64 73 5f 0d 0d c5 32 dd a4 53 61 6c 65 64 37 |nds_...2..Saled7|
00006170 5f 3a 53 61 6c 65 64 46 5f 24 28 37 29 3d 24 21 |_:SaledF_$(7)=$!|
00006180 53 61 6c 65 64 37 5f 25 3a f2 73 65 74 43 5f 28 |Saled7_%:.setC_(|
00006190 31 33 29 3a 3d b9 0d 0d ca b5 dd a4 69 6e 69 74 |13):=.......init|
000061a0 73 61 6c 65 64 31 5f 3a 24 21 53 61 6c 65 64 31 |saled1_:$!Saled1|
000061b0 5f 25 3d 53 61 6c 65 64 46 5f 24 28 31 29 3a 24 |_%=SaledF_$(1):$|
000061c0 21 53 61 6c 65 64 32 5f 25 3d 53 61 6c 65 64 46 |!Saled2_%=SaledF|
000061d0 5f 24 28 32 29 3a 24 21 53 61 6c 65 64 33 5f 25 |_$(2):$!Saled3_%|
000061e0 3d 53 61 6c 65 64 46 5f 24 28 33 29 3a 24 21 53 |=SaledF_$(3):$!S|
000061f0 61 6c 65 64 34 5f 25 3d 53 61 6c 65 64 46 5f 24 |aled4_%=SaledF_$|
00006200 28 34 29 3a 24 21 53 61 6c 65 64 35 5f 25 3d 53 |(4):$!Saled5_%=S|
00006210 61 6c 65 64 46 5f 24 28 35 29 3a 24 21 53 61 6c |aledF_$(5):$!Sal|
00006220 65 64 36 5f 25 3d 53 61 6c 65 64 46 5f 24 28 36 |ed6_%=SaledF_$(6|
00006230 29 3a 24 21 53 61 6c 65 64 37 5f 25 3d 53 61 6c |):$!Saled7_%=Sal|
00006240 65 64 46 5f 24 28 37 29 3a 3d b9 0d 0d cf 76 dd |edF_$(7):=....v.|
00006250 f2 75 70 64 61 74 65 73 61 6c 65 64 31 64 5f 3a |.updatesaled1d_:|
00006260 24 21 53 61 6c 65 64 31 5f 25 3d 22 22 3a 24 21 |$!Saled1_%="":$!|
00006270 53 61 6c 65 64 32 5f 25 3d 22 22 3a 24 21 53 61 |Saled2_%="":$!Sa|
00006280 6c 65 64 33 5f 25 3d 22 22 3a 24 21 53 61 6c 65 |led3_%="":$!Sale|
00006290 64 34 5f 25 3d 22 22 3a 24 21 53 61 6c 65 64 35 |d4_%="":$!Saled5|
000062a0 5f 25 3d 22 22 3a 24 21 53 61 6c 65 64 36 5f 25 |_%="":$!Saled6_%|
000062b0 3d 22 22 3a 24 21 53 61 6c 65 64 37 5f 25 3d 22 |="":$!Saled7_%="|
000062c0 22 0d 0d d4 7c f2 72 49 28 57 25 2c 22 53 61 6c |"...|.rI(W%,"Sal|
000062d0 65 64 31 22 29 3a f2 72 49 28 57 25 2c 22 53 61 |ed1"):.rI(W%,"Sa|
000062e0 6c 65 64 32 22 29 3a f2 72 49 28 57 25 2c 22 53 |led2"):.rI(W%,"S|
000062f0 61 6c 65 64 33 22 29 3a f2 72 49 28 57 25 2c 22 |aled3"):.rI(W%,"|
00006300 53 61 6c 65 64 34 22 29 3a f2 72 49 28 57 25 2c |Saled4"):.rI(W%,|
00006310 22 53 61 6c 65 64 35 22 29 3a f2 72 49 28 57 25 |"Saled5"):.rI(W%|
00006320 2c 22 53 61 6c 65 64 36 22 29 3a f2 72 49 28 57 |,"Saled6"):.rI(W|
00006330 25 2c 22 53 61 6c 65 64 37 22 29 3a e1 0d 0d d9 |%,"Saled7"):....|
00006340 76 dd f2 75 70 64 61 74 65 70 61 6c 65 64 31 64 |v..updatepaled1d|
00006350 5f 3a 24 21 50 61 6c 65 64 31 5f 25 3d 22 22 3a |_:$!Paled1_%="":|
00006360 24 21 50 61 6c 65 64 32 5f 25 3d 22 22 3a 24 21 |$!Paled2_%="":$!|
00006370 50 61 6c 65 64 33 5f 25 3d 22 22 3a 24 21 50 61 |Paled3_%="":$!Pa|
00006380 6c 65 64 34 5f 25 3d 22 22 3a 24 21 50 61 6c 65 |led4_%="":$!Pale|
00006390 64 35 5f 25 3d 22 22 3a 24 21 50 61 6c 65 64 36 |d5_%="":$!Paled6|
000063a0 5f 25 3d 22 22 3a 24 21 50 61 6c 65 64 37 5f 25 |_%="":$!Paled7_%|
000063b0 3d 22 22 0d 0d de 7c f2 72 49 28 57 25 2c 22 50 |=""...|.rI(W%,"P|
000063c0 61 6c 65 64 31 22 29 3a f2 72 49 28 57 25 2c 22 |aled1"):.rI(W%,"|
000063d0 50 61 6c 65 64 32 22 29 3a f2 72 49 28 57 25 2c |Paled2"):.rI(W%,|
000063e0 22 50 61 6c 65 64 33 22 29 3a f2 72 49 28 57 25 |"Paled3"):.rI(W%|
000063f0 2c 22 50 61 6c 65 64 34 22 29 3a f2 72 49 28 57 |,"Paled4"):.rI(W|
00006400 25 2c 22 50 61 6c 65 64 35 22 29 3a f2 72 49 28 |%,"Paled5"):.rI(|
00006410 57 25 2c 22 50 61 6c 65 64 36 22 29 3a f2 72 49 |W%,"Paled6"):.rI|
00006420 28 57 25 2c 22 50 61 6c 65 64 37 22 29 3a e1 0d |(W%,"Paled7"):..|
00006430 0d e3 d5 dd a4 75 70 64 61 74 65 73 61 6c 65 64 |.....updatesaled|
00006440 31 5f 3a ea 20 5a 25 3a 53 61 6c 65 64 46 5f 24 |1_:. Z%:SaledF_$|
00006450 28 31 29 3d 24 21 53 61 6c 65 64 31 5f 25 3a 53 |(1)=$!Saled1_%:S|
00006460 61 6c 65 64 46 5f 24 28 32 29 3d 24 21 53 61 6c |aledF_$(2)=$!Sal|
00006470 65 64 32 5f 25 3a 53 61 6c 65 64 46 5f 24 28 33 |ed2_%:SaledF_$(3|
00006480 29 3d 24 21 53 61 6c 65 64 33 5f 25 3a 53 61 6c |)=$!Saled3_%:Sal|
00006490 65 64 46 5f 24 28 34 29 3d 24 21 53 61 6c 65 64 |edF_$(4)=$!Saled|
000064a0 34 5f 25 3a 53 61 6c 65 64 46 5f 24 28 35 29 3d |4_%:SaledF_$(5)=|
000064b0 24 21 53 61 6c 65 64 35 5f 25 3a 53 61 6c 65 64 |$!Saled5_%:Saled|
000064c0 46 5f 24 28 36 29 3d 24 21 53 61 6c 65 64 36 5f |F_$(6)=$!Saled6_|
000064d0 25 3a 53 61 6c 65 64 46 5f 24 28 37 29 3d 24 21 |%:SaledF_$(7)=$!|
000064e0 53 61 6c 65 64 37 5f 25 3a 5a 25 3d a4 73 61 6c |Saled7_%:Z%=.sal|
000064f0 66 69 6e 64 68 5f 3a 5a 25 3d a4 73 61 6c 66 69 |findh_:Z%=.salfi|
00006500 6e 64 61 5f 0d 0d e8 0f 3d a4 73 61 6c 66 69 6e |nda_....=.salfin|
00006510 64 73 5f 0d 0d ed 49 dd a4 73 61 6c 66 69 6e 64 |ds_...I..salfind|
00006520 61 5f 3a 24 21 53 61 6c 65 64 61 63 63 5f 25 3d |a_:$!Saledacc_%=|
00006530 a4 67 65 74 62 61 6e 6b 5f 28 53 61 6c 65 64 46 |.getbank_(SaledF|
00006540 5f 24 28 32 29 29 3a f2 72 49 28 57 25 2c 22 53 |_$(2)):.rI(W%,"S|
00006550 61 6c 65 64 61 63 63 22 29 3a 3d b9 0d 0d f2 4a |aledacc"):=....J|
00006560 dd a4 73 61 6c 66 69 6e 64 68 5f 3a 24 21 53 61 |..salfindh_:$!Sa|
00006570 6c 65 64 68 65 61 5f 25 3d a4 67 65 74 68 65 61 |ledhea_%=.gethea|
00006580 64 53 5f 28 53 61 6c 65 64 46 5f 24 28 34 29 29 |dS_(SaledF_$(4))|
00006590 3a f2 72 49 28 57 25 2c 22 53 61 6c 65 64 68 65 |:.rI(W%,"Saledhe|
000065a0 61 22 29 3a 3d b9 0d 0d f7 0f dd a4 73 61 6c 66 |a"):=.......salf|
000065b0 69 6e 64 73 5f 0d 0d fc 0b ea 20 56 24 2c 48 25 |inds_..... V$,H%|
000065c0 0d 0e 01 43 e7 53 61 6c 65 64 46 5f 24 28 36 29 |...C.SaledF_$(6)|
000065d0 3c 3e 22 70 22 8c 24 74 5f 25 3d 53 61 6c 65 64 |<>"p".$t_%=Saled|
000065e0 46 5f 24 28 36 29 3a 48 25 3d 74 5f 25 3a d6 6d |F_$(6):H%=t_%:.m|
000065f0 31 5f 25 3a 56 24 3d 24 74 5f 25 20 8b 56 24 3d |1_%:V$=$t_% .V$=|
00006600 22 70 22 0d 0e 06 71 e7 56 24 3d 22 50 22 8c 56 |"p"...q.V$="P".V|
00006610 24 3d 22 50 61 69 64 22 20 8b e7 56 24 3d 22 52 |$="Paid" ..V$="R|
00006620 22 8c 56 24 3d 51 5f 24 20 8b e7 56 24 3d 22 55 |".V$=Q_$ ..V$="U|
00006630 22 8c 56 24 3d 22 55 6e 70 61 69 64 22 20 8b e7 |".V$="Unpaid" ..|
00006640 56 24 3d 22 4f 22 8c 56 24 3d 22 6f 76 65 72 2d |V$="O".V$="over-|
00006650 50 61 69 64 22 20 8b e7 56 24 3d 22 70 22 8c 56 |Paid" ..V$="p".V|
00006660 24 3d 22 70 61 72 74 2d 50 61 69 64 22 20 8b 56 |$="part-Paid" .V|
00006670 24 3d 22 22 0d 0e 0b 29 24 21 53 61 6c 65 64 73 |$=""...)$!Saleds|
00006680 74 61 5f 25 3d 56 24 3a f2 72 49 28 57 25 2c 22 |ta_%=V$:.rI(W%,"|
00006690 53 61 6c 65 64 73 74 61 22 29 3a 3d b9 0d 0e 10 |Saledsta"):=....|
000066a0 04 0d 0e 15 51 dd a4 67 65 74 62 61 6e 6b 5f 28 |....Q..getbank_(|
000066b0 24 74 5f 25 29 3a ea 20 5a 25 2c 48 25 3a 48 25 |$t_%):. Z%,H%:H%|
000066c0 3d 74 5f 25 3a d6 6d 31 5f 25 3a 5a 25 3d 97 28 |=t_%:.m1_%:Z%=.(|
000066d0 24 74 5f 25 29 2d 36 34 3a e7 5a 25 3e 30 80 5a |$t_%)-64:.Z%>0.Z|
000066e0 25 3c 31 33 8c 3d 42 61 6e 6b 4e 4e 5f 24 28 5a |%<13.=BankNN_$(Z|
000066f0 25 29 0d 0e 1a 07 3d 22 22 0d 0e 1f 50 dd a4 67 |%)....=""...P..g|
00006700 65 74 68 65 61 64 53 5f 28 24 74 5f 25 29 3a ea |etheadS_($t_%):.|
00006710 20 5a 25 2c 5a 5f 25 2c 42 5f 24 2c 48 25 3a 48 | Z%,Z_%,B_$,H%:H|
00006720 25 3d 74 5f 25 3a d6 6d 31 5f 25 3a 5a 25 3d 97 |%=t_%:.m1_%:Z%=.|
00006730 28 24 74 5f 25 29 2d 36 35 3a e7 5a 25 3c 30 84 |($t_%)-65:.Z%<0.|
00006740 5a 25 3e 31 31 8c 3d 22 22 0d 0e 24 63 42 5f 24 |Z%>11.=""..$cB_$|
00006750 3d 53 68 65 61 64 31 5f 24 28 5a 25 2b 31 29 3a |=Shead1_$(Z%+1):|
00006760 e7 a9 28 24 74 5f 25 29 3e 31 3a 5a 5f 25 3d 97 |..($t_%)>1:Z_%=.|
00006770 28 c2 24 74 5f 25 2c 31 29 29 2d 36 34 3a e7 5a |(.$t_%,1))-64:.Z|
00006780 5f 25 3e 30 80 5a 5f 25 3c 39 8c 42 5f 24 3d 42 |_%>0.Z_%<9.B_$=B|
00006790 5f 24 2b 22 3a 22 2b 53 68 65 61 64 31 5f 24 28 |_$+":"+Shead1_$(|
000067a0 5a 25 2a 38 2b 31 32 2b 5a 5f 25 29 0d 0e 29 08 |Z%*8+12+Z_%)..).|
000067b0 3d 42 5f 24 0d 0e 2e 50 dd a4 67 65 74 68 65 61 |=B_$...P..gethea|
000067c0 64 50 5f 28 24 74 5f 25 29 3a ea 20 5a 25 2c 5a |dP_($t_%):. Z%,Z|
000067d0 5f 25 2c 42 5f 24 2c 48 25 3a 48 25 3d 74 5f 25 |_%,B_$,H%:H%=t_%|
000067e0 3a d6 6d 31 5f 25 3a 5a 25 3d 97 28 24 74 5f 25 |:.m1_%:Z%=.($t_%|
000067f0 29 2d 36 35 3a e7 5a 25 3c 30 84 5a 25 3e 31 31 |)-65:.Z%<0.Z%>11|
00006800 8c 3d 22 22 0d 0e 33 63 42 5f 24 3d 50 68 65 61 |.=""..3cB_$=Phea|
00006810 64 31 5f 24 28 5a 25 2b 31 29 3a e7 a9 28 24 74 |d1_$(Z%+1):..($t|
00006820 5f 25 29 3e 31 3a 5a 5f 25 3d 97 28 c2 24 74 5f |_%)>1:Z_%=.(.$t_|
00006830 25 2c 31 29 29 2d 36 34 3a e7 5a 5f 25 3e 30 80 |%,1))-64:.Z_%>0.|
00006840 5a 5f 25 3c 39 8c 42 5f 24 3d 42 5f 24 2b 22 3a |Z_%<9.B_$=B_$+":|
00006850 22 2b 50 68 65 61 64 31 5f 24 28 5a 25 2a 38 2b |"+Phead1_$(Z%*8+|
00006860 31 32 2b 5a 5f 25 29 0d 0e 38 08 3d 42 5f 24 0d |12+Z_%)..8.=B_$.|
00006870 0e 3d 4c dd a4 67 65 74 68 4e 5f 28 24 74 5f 25 |.=L..gethN_($t_%|
00006880 29 3a ea 20 5a 25 2c 5a 5f 25 2c 42 5f 24 2c 48 |):. Z%,Z_%,B_$,H|
00006890 25 3a 48 25 3d 74 5f 25 3a d6 6d 31 5f 25 3a 5a |%:H%=t_%:.m1_%:Z|
000068a0 25 3d 97 28 24 74 5f 25 29 2d 36 35 3a e7 5a 25 |%=.($t_%)-65:.Z%|
000068b0 3c 30 84 5a 25 3e 31 31 8c 3d 30 0d 0e 42 50 e7 |<0.Z%>11.=0..BP.|
000068c0 a9 28 24 74 5f 25 29 3e 31 3a 5a 5f 25 3d 97 28 |.($t_%)>1:Z_%=.(|
000068d0 c2 24 74 5f 25 2c 31 29 29 2d 36 34 3a e7 5a 5f |.$t_%,1))-64:.Z_|
000068e0 25 3e 30 80 5a 5f 25 3c 39 8c 3d 5a 25 2a 38 2b |%>0.Z_%<9.=Z%*8+|
000068f0 5a 5f 25 20 8b e7 a9 28 24 74 5f 25 29 3e 31 8c |Z_% ...($t_%)>1.|
00006900 3d 30 20 8b 3d 5a 25 2a 38 2b 31 0d 0e 47 04 0d |=0 .=Z%*8+1..G..|
00006910 0e 4c 40 dd a4 53 61 6c 66 69 6e 64 61 5f 3a 24 |.L@..Salfinda_:$|
00006920 21 72 34 34 34 53 5f 25 3d a4 67 65 74 62 61 6e |!r444S_%=.getban|
00006930 6b 5f 28 24 21 72 34 34 53 5f 25 29 3a f2 72 49 |k_($!r44S_%):.rI|
00006940 28 57 25 2c 22 72 34 34 34 53 22 29 3a 3d b9 0d |(W%,"r444S"):=..|
00006950 0e 51 41 dd a4 53 61 6c 66 69 6e 64 68 5f 3a 24 |.QA..Salfindh_:$|
00006960 21 72 39 39 39 53 5f 25 3d a4 67 65 74 68 65 61 |!r999S_%=.gethea|
00006970 64 53 5f 28 24 21 72 39 39 53 5f 25 29 3a f2 72 |dS_($!r99S_%):.r|
00006980 49 28 57 25 2c 22 72 39 39 39 53 22 29 3a 3d b9 |I(W%,"r999S"):=.|
00006990 0d 0e 56 17 dd a4 53 61 6c 66 69 6e 64 73 5f 3a |..V...Salfinds_:|
000069a0 ea 20 56 24 2c 48 25 0d 0e 5b 3d e7 24 21 72 62 |. V$,H%..[=.$!rb|
000069b0 62 53 5f 25 3c 3e 22 70 22 8c 24 74 5f 25 3d 24 |bS_%<>"p".$t_%=$|
000069c0 21 72 62 62 53 5f 25 3a 48 25 3d 74 5f 25 3a d6 |!rbbS_%:H%=t_%:.|
000069d0 6d 31 5f 25 3a 56 24 3d 24 74 5f 25 20 8b 56 24 |m1_%:V$=$t_% .V$|
000069e0 3d 22 70 22 0d 0e 60 71 e7 56 24 3d 22 50 22 8c |="p"..`q.V$="P".|
000069f0 56 24 3d 22 50 61 69 64 22 20 8b e7 56 24 3d 22 |V$="Paid" ..V$="|
00006a00 52 22 8c 56 24 3d 51 5f 24 20 8b e7 56 24 3d 22 |R".V$=Q_$ ..V$="|
00006a10 55 22 8c 56 24 3d 22 55 6e 70 61 69 64 22 20 8b |U".V$="Unpaid" .|
00006a20 e7 56 24 3d 22 4f 22 8c 56 24 3d 22 6f 76 65 72 |.V$="O".V$="over|
00006a30 2d 50 61 69 64 22 20 8b e7 56 24 3d 22 70 22 8c |-Paid" ..V$="p".|
00006a40 56 24 3d 22 70 61 72 74 2d 50 61 69 64 22 20 8b |V$="part-Paid" .|
00006a50 56 24 3d 22 22 0d 0e 65 23 24 21 72 62 62 62 53 |V$=""..e#$!rbbbS|
00006a60 5f 25 3d 56 24 3a f2 72 49 28 57 25 2c 22 72 62 |_%=V$:.rI(W%,"rb|
00006a70 62 62 53 22 29 3a 3d b9 0d 0e 6a 04 0d 0e 6f 40 |bbS"):=...j...o@|
00006a80 dd a4 50 61 6c 66 69 6e 64 61 5f 3a 24 21 72 34 |..Palfinda_:$!r4|
00006a90 34 34 50 5f 25 3d a4 67 65 74 62 61 6e 6b 5f 28 |44P_%=.getbank_(|
00006aa0 24 21 72 34 34 50 5f 25 29 3a f2 72 49 28 57 25 |$!r44P_%):.rI(W%|
00006ab0 2c 22 72 34 34 34 50 22 29 3a 3d b9 0d 0e 74 41 |,"r444P"):=...tA|
00006ac0 dd a4 50 61 6c 66 69 6e 64 68 5f 3a 24 21 72 39 |..Palfindh_:$!r9|
00006ad0 39 39 50 5f 25 3d a4 67 65 74 68 65 61 64 50 5f |99P_%=.getheadP_|
00006ae0 28 24 21 72 39 39 50 5f 25 29 3a f2 72 49 28 57 |($!r99P_%):.rI(W|
00006af0 25 2c 22 72 39 39 39 50 22 29 3a 3d b9 0d 0e 79 |%,"r999P"):=...y|
00006b00 17 dd a4 50 61 6c 66 69 6e 64 73 5f 3a ea 20 56 |...Palfinds_:. V|
00006b10 24 2c 48 25 0d 0e 7e 3d e7 24 21 72 62 62 50 5f |$,H%..~=.$!rbbP_|
00006b20 25 3c 3e 22 70 22 8c 24 74 5f 25 3d 24 21 72 62 |%<>"p".$t_%=$!rb|
00006b30 62 50 5f 25 3a 48 25 3d 74 5f 25 3a d6 6d 31 5f |bP_%:H%=t_%:.m1_|
00006b40 25 3a 56 24 3d 24 74 5f 25 20 8b 56 24 3d 22 70 |%:V$=$t_% .V$="p|
00006b50 22 0d 0e 83 71 e7 56 24 3d 22 50 22 8c 56 24 3d |"...q.V$="P".V$=|
00006b60 22 50 61 69 64 22 20 8b e7 56 24 3d 22 52 22 8c |"Paid" ..V$="R".|
00006b70 56 24 3d 51 5f 24 20 8b e7 56 24 3d 22 55 22 8c |V$=Q_$ ..V$="U".|
00006b80 56 24 3d 22 55 6e 70 61 69 64 22 20 8b e7 56 24 |V$="Unpaid" ..V$|
00006b90 3d 22 4f 22 8c 56 24 3d 22 6f 76 65 72 2d 50 61 |="O".V$="over-Pa|
00006ba0 69 64 22 20 8b e7 56 24 3d 22 70 22 8c 56 24 3d |id" ..V$="p".V$=|
00006bb0 22 70 61 72 74 2d 50 61 69 64 22 20 8b 56 24 3d |"part-Paid" .V$=|
00006bc0 22 22 0d 0e 88 23 24 21 72 62 62 62 50 5f 25 3d |""...#$!rbbbP_%=|
00006bd0 56 24 3a f2 72 49 28 57 25 2c 22 72 62 62 62 50 |V$:.rI(W%,"rbbbP|
00006be0 22 29 3a 3d b9 0d 0e 8d 04 0d 0e 92 40 dd a4 42 |"):=........@..B|
00006bf0 61 6c 66 69 6e 64 61 5f 3a 24 21 72 33 33 33 42 |alfinda_:$!r333B|
00006c00 5f 25 3d a4 67 65 74 62 61 6e 6b 5f 28 24 21 72 |_%=.getbank_($!r|
00006c10 33 33 42 5f 25 29 3a f2 72 49 28 57 25 2c 22 72 |33B_%):.rI(W%,"r|
00006c20 33 33 33 42 22 29 3a 3d b9 0d 0e 97 40 dd a4 42 |333B"):=....@..B|
00006c30 61 6c 66 69 6e 64 73 5f 3a ea 20 56 24 2c 48 25 |alfinds_:. V$,H%|
00006c40 3a 24 74 5f 25 3d 24 21 72 35 35 42 5f 25 3a 48 |:$t_%=$!r55B_%:H|
00006c50 25 3d 74 5f 25 3a d6 6d 31 5f 25 3a 24 21 72 35 |%=t_%:.m1_%:$!r5|
00006c60 35 42 5f 25 3d 24 74 5f 25 0d 0e 9c 47 e7 24 21 |5B_%=$t_%...G.$!|
00006c70 72 35 35 42 5f 25 3c 3e 22 22 80 24 21 72 35 35 |r55B_%<>"".$!r55|
00006c80 42 5f 25 3c 3e 22 50 22 80 24 21 72 35 35 42 5f |B_%<>"P".$!r55B_|
00006c90 25 3c 3e 22 52 22 80 24 21 72 35 35 42 5f 25 3c |%<>"R".$!r55B_%<|
00006ca0 3e 22 80 22 8c 24 21 72 35 35 42 5f 25 3d 22 22 |>".".$!r55B_%=""|
00006cb0 0d 0e a1 3f 56 24 3d 24 21 72 35 35 42 5f 25 3a |...?V$=$!r55B_%:|
00006cc0 e7 56 24 3d 22 50 22 8c 56 24 3d 22 50 61 69 64 |.V$="P".V$="Paid|
00006cd0 22 20 8b e7 56 24 3d 22 52 22 84 56 24 3d 22 80 |" ..V$="R".V$=".|
00006ce0 22 8c 56 24 3d 51 5f 24 20 8b 56 24 3d 22 22 0d |".V$=Q_$ .V$="".|
00006cf0 0e a6 32 24 21 72 35 35 35 42 5f 25 3d 56 24 3a |..2$!r555B_%=V$:|
00006d00 f2 72 49 28 57 25 2c 22 72 35 35 42 22 29 3a f2 |.rI(W%,"r55B"):.|
00006d10 72 49 28 57 25 2c 22 72 35 35 35 42 22 29 3a 3d |rI(W%,"r555B"):=|
00006d20 b9 0d 0e ab 04 0d 0e b0 1b dd a4 53 61 6c 65 64 |...........Saled|
00006d30 46 69 5f 3a e7 73 61 6c 65 64 25 3d 30 8c 3d a3 |Fi_:.saled%=0.=.|
00006d40 0d 0e b5 24 3d a4 53 61 6c 65 73 46 69 5f 28 30 |...$=.SalesFi_(0|
00006d50 2c 6d 61 78 53 5f 25 2a 73 69 74 69 70 5f 25 2d |,maxS_%*sitip_%-|
00006d60 31 2c 31 29 0d 0e ba d5 dd a4 53 61 6c 65 73 46 |1,1)......SalesF|
00006d70 69 5f 28 41 5f 25 2c 41 41 5f 25 2c 41 41 41 5f |i_(A_%,AA_%,AAA_|
00006d80 25 29 3a ea 20 41 24 2c 42 24 2c 43 24 2c 44 24 |%):. A$,B$,C$,D$|
00006d90 2c 45 24 2c 46 24 2c 47 24 2c 41 25 2c 42 25 2c |,E$,F$,G$,A%,B%,|
00006da0 43 25 2c 44 25 2c 45 25 2c 48 25 2c 5a 25 3a c8 |C%,D%,E%,H%,Z%:.|
00006db0 99 26 34 30 36 43 30 3a 5a 25 3d a4 75 70 64 61 |.&406C0:Z%=.upda|
00006dc0 74 65 73 61 6c 65 64 31 5f 3a 45 25 3d 73 61 6c |tesaled1_:E%=sal|
00006dd0 65 64 70 5f 25 3a 48 25 3d 74 5f 25 3a 24 74 5f |edp_%:H%=t_%:$t_|
00006de0 25 3d 53 61 6c 65 64 46 5f 24 28 31 29 3a d6 6d |%=SaledF_$(1):.m|
00006df0 31 5f 25 3a 41 24 3d 24 74 5f 25 3a 24 74 5f 25 |1_%:A$=$t_%:$t_%|
00006e00 3d 53 61 6c 65 64 46 5f 24 28 32 29 3a d6 6d 31 |=SaledF_$(2):.m1|
00006e10 5f 25 3a 42 24 3d 24 74 5f 25 3a 24 74 5f 25 3d |_%:B$=$t_%:$t_%=|
00006e20 53 61 6c 65 64 46 5f 24 28 33 29 3a d6 6d 31 5f |SaledF_$(3):.m1_|
00006e30 25 3a 43 24 3d 24 74 5f 25 0d 0e bf 3e e7 c0 41 |%:C$=$t_%...>..A|
00006e40 24 2c 31 29 3d 22 23 22 3a 53 49 54 6e 5f 25 28 |$,1)="#":SITn_%(|
00006e50 30 29 3d 43 53 75 4e 75 6d 62 65 72 5f 25 28 a4 |0)=CSuNumber_%(.|
00006e60 73 66 5f 28 41 24 2c 31 29 29 20 8b 53 49 54 6e |sf_(A$,1)) .SITn|
00006e70 5f 25 28 30 29 3d 30 0d 0e c4 9d 24 74 5f 25 3d |_%(0)=0....$t_%=|
00006e80 53 61 6c 65 64 46 5f 24 28 34 29 3a d6 6d 31 5f |SaledF_$(4):.m1_|
00006e90 25 3a 44 24 3d 24 74 5f 25 3a 24 74 5f 25 3d 53 |%:D$=$t_%:$t_%=S|
00006ea0 61 6c 65 64 46 5f 24 28 35 29 3a d6 6d 31 5f 25 |aledF_$(5):.m1_%|
00006eb0 3a 45 24 3d 24 74 5f 25 3a 46 24 3d 24 21 53 61 |:E$=$t_%:F$=$!Sa|
00006ec0 6c 65 64 73 74 61 5f 25 3a 47 24 3d a4 63 6f 6e |ledsta_%:G$=.con|
00006ed0 76 69 73 5f 28 a4 63 6f 6e 76 73 69 5f 28 53 61 |vis_(.convsi_(Sa|
00006ee0 6c 65 64 46 5f 24 28 37 29 29 2c 22 22 29 3a e3 |ledF_$(7)),""):.|
00006ef0 5a 25 3d 41 5f 25 b8 41 41 5f 25 88 41 41 41 5f |Z%=A_%.AA_%.AAA_|
00006f00 25 3a 41 25 3d 5a 25 2a 73 69 74 69 66 5f 25 3a |%:A%=Z%*sitif_%:|
00006f10 42 25 3d 30 0d 0e c9 39 24 74 5f 25 3d 53 49 54 |B%=0...9$t_%=SIT|
00006f20 65 5f 24 28 41 25 2b 33 29 3a d6 6d 31 5f 25 3a |e_$(A%+3):.m1_%:|
00006f30 e7 53 49 54 6e 5f 25 28 30 29 3d 30 3a e7 a7 24 |.SITn_%(0)=0:..$|
00006f40 74 5f 25 2c 41 24 29 8c 42 25 2b 3d 31 0d 0e ce |t_%,A$).B%+=1...|
00006f50 2e e7 53 49 54 6e 5f 25 28 30 29 3e 30 3a e7 53 |..SITn_%(0)>0:.S|
00006f60 49 54 6e 5f 25 28 30 29 3d 53 49 54 6e 5f 25 28 |ITn_%(0)=SITn_%(|
00006f70 5a 25 2b 31 29 8c 42 25 2b 3d 31 0d 0e d3 20 e7 |Z%+1).B%+=1... .|
00006f80 53 49 54 65 5f 24 28 41 25 2b 34 29 3d 42 24 84 |SITe_$(A%+4)=B$.|
00006f90 42 24 3d 22 22 8c 42 25 2b 3d 31 0d 0e d8 2c 24 |B$="".B%+=1...,$|
00006fa0 74 5f 25 3d 53 49 54 65 5f 24 28 41 25 2b 35 29 |t_%=SITe_$(A%+5)|
00006fb0 3a d6 6d 31 5f 25 3a e7 a7 24 74 5f 25 2c 43 24 |:.m1_%:..$t_%,C$|
00006fc0 29 8c 42 25 2b 3d 31 0d 0e dd 57 e7 c0 53 49 54 |).B%+=1...W..SIT|
00006fd0 65 5f 24 28 41 25 2b 31 30 29 2c 31 29 3d c0 44 |e_$(A%+10),1)=.D|
00006fe0 24 2c 31 29 80 c2 53 49 54 65 5f 24 28 41 25 2b |$,1)..SITe_$(A%+|
00006ff0 31 30 29 2c 31 29 3d c2 44 24 2c 31 29 84 c0 53 |10),1)=.D$,1)..S|
00007000 49 54 65 5f 24 28 41 25 2b 31 30 29 2c 31 29 3d |ITe_$(A%+10),1)=|
00007010 44 24 84 44 24 3d 22 22 8c 42 25 2b 3d 31 0d 0e |D$.D$="".B%+=1..|
00007020 e2 2d 24 74 5f 25 3d 53 49 54 65 5f 24 28 41 25 |.-$t_%=SITe_$(A%|
00007030 2b 31 31 29 3a d6 6d 31 5f 25 3a e7 a7 24 74 5f |+11):.m1_%:..$t_|
00007040 25 2c 45 24 29 8c 42 25 2b 3d 31 0d 0e e7 1e e7 |%,E$).B%+=1.....|
00007050 53 49 54 73 5f 24 28 5a 25 29 3d 46 24 84 46 24 |SITs_$(Z%)=F$.F$|
00007060 3d 22 22 8c 42 25 2b 3d 31 0d 0e ec 20 e7 53 49 |="".B%+=1... .SI|
00007070 54 65 5f 24 28 41 25 2b 36 29 3d 47 24 84 47 24 |Te_$(A%+6)=G$.G$|
00007080 3d 22 22 8c 42 25 2b 3d 31 0d 0e f1 17 e7 42 25 |="".B%+=1.....B%|
00007090 3d 37 8c 43 25 3d 5a 25 3a 5a 25 3d 41 41 5f 25 |=7.C%=Z%:Z%=AA_%|
000070a0 0d 0e f6 23 ed 3a e7 42 25 3c 37 8c c8 99 26 34 |...#.:.B%<7...&4|
000070b0 30 36 43 31 3a 3d a4 75 70 64 61 74 65 73 61 6c |06C1:=.updatesal|
000070c0 65 64 5f 0d 0e fb 48 5a 25 3d 73 69 74 70 5f 25 |ed_...HZ%=sitp_%|
000070d0 2b 28 45 25 2d 31 29 2f 73 69 74 69 66 5f 25 3a |+(E%-1)/sitif_%:|
000070e0 44 25 3d a4 77 69 6e 64 6f 77 28 22 53 61 6c 65 |D%=.window("Sale|
000070f0 64 22 29 3a e7 5a 25 3c 43 25 8c f2 53 49 54 64 |d"):.Z%<C%..SITd|
00007100 6f 77 6e 5f 28 5a 25 2d 43 25 29 0d 0f 00 19 e7 |own_(Z%-C%).....|
00007110 5a 25 3e 43 25 8c f2 53 49 54 75 70 5f 28 5a 25 |Z%>C%..SITup_(Z%|
00007120 2d 43 25 29 0d 0f 05 2c e7 73 69 74 70 5f 25 3d |-C%)...,.sitp_%=|
00007130 30 8c 45 25 3d 28 45 25 2d 31 29 83 73 69 74 69 |0.E%=(E%-1).siti|
00007140 66 5f 25 2b 43 25 2a 73 69 74 69 66 5f 25 2b 31 |f_%+C%*sitif_%+1|
00007150 0d 0f 0a 5c e7 73 69 74 70 5f 25 3d 6d 61 78 53 |...\.sitp_%=maxS|
00007160 5f 25 2a 73 69 74 69 70 5f 25 2d 73 69 74 69 70 |_%*sitip_%-sitip|
00007170 5f 25 8c 45 25 3d 28 45 25 2d 31 29 83 73 69 74 |_%.E%=(E%-1).sit|
00007180 69 66 5f 25 2b 28 43 25 2d 28 6d 61 78 53 5f 25 |if_%+(C%-(maxS_%|
00007190 2a 73 69 74 69 70 5f 25 2d 73 69 74 69 70 5f 25 |*sitip_%-sitip_%|
000071a0 29 29 2a 73 69 74 69 66 5f 25 2b 31 0d 0f 0f 22 |))*sitif_%+1..."|
000071b0 f2 73 65 74 43 31 5f 28 73 61 6c 65 64 25 2c 45 |.setC1_(saled%,E|
000071c0 25 29 3a c8 99 26 34 30 36 43 31 3a 3d b9 0d 0f |%):..&406C1:=...|
000071d0 14 44 dd a4 53 61 6c 65 64 42 61 5f 3a ea 20 5a |.D..SaledBa_:. Z|
000071e0 25 3a 5a 25 3d 73 69 74 70 5f 25 2b 28 73 61 6c |%:Z%=sitp_%+(sal|
000071f0 65 64 70 5f 25 2d 31 29 2f 73 69 74 69 66 5f 25 |edp_%-1)/sitif_%|
00007200 3a e7 5a 25 3d 30 84 73 61 6c 65 64 25 3d 30 8c |:.Z%=0.saled%=0.|
00007210 3d a3 0d 0f 19 19 3d a4 53 61 6c 65 73 46 69 5f |=.....=.SalesFi_|
00007220 28 5a 25 2d 31 2c 30 2c 2d 31 29 0d 0f 1e 4e dd |(Z%-1,0,-1)...N.|
00007230 a4 53 61 6c 65 64 46 6f 5f 3a 5a 25 3d 73 69 74 |.SaledFo_:Z%=sit|
00007240 70 5f 25 2b 28 73 61 6c 65 64 70 5f 25 2d 31 29 |p_%+(saledp_%-1)|
00007250 2f 73 69 74 69 66 5f 25 3a e7 5a 25 3d 6d 61 78 |/sitif_%:.Z%=max|
00007260 53 5f 25 2a 73 69 74 69 70 5f 25 2d 31 84 73 61 |S_%*sitip_%-1.sa|
00007270 6c 65 64 25 3d 30 8c 3d a3 0d 0f 23 27 3d a4 53 |led%=0.=...#'=.S|
00007280 61 6c 65 73 46 69 5f 28 5a 25 2b 31 2c 6d 61 78 |alesFi_(Z%+1,max|
00007290 53 5f 25 2a 73 69 74 69 70 5f 25 2d 31 2c 31 29 |S_%*sitip_%-1,1)|
000072a0 0d 0f 28 04 0d 0f 2d 1b dd a4 50 61 6c 65 64 46 |..(...-...PaledF|
000072b0 69 5f 3a e7 70 61 6c 65 64 25 3d 30 8c 3d a3 0d |i_:.paled%=0.=..|
000072c0 0f 32 24 3d a4 50 61 6c 65 73 46 69 5f 28 30 2c |.2$=.PalesFi_(0,|
000072d0 6d 61 78 50 5f 25 2a 73 69 74 69 70 5f 25 2d 31 |maxP_%*sitip_%-1|
000072e0 2c 31 29 0d 0f 37 d5 dd a4 50 61 6c 65 73 46 69 |,1)..7...PalesFi|
000072f0 5f 28 41 5f 25 2c 41 41 5f 25 2c 41 41 41 5f 25 |_(A_%,AA_%,AAA_%|
00007300 29 3a ea 20 41 24 2c 42 24 2c 43 24 2c 44 24 2c |):. A$,B$,C$,D$,|
00007310 45 24 2c 46 24 2c 47 24 2c 41 25 2c 42 25 2c 43 |E$,F$,G$,A%,B%,C|
00007320 25 2c 44 25 2c 45 25 2c 48 25 2c 5a 25 3a c8 99 |%,D%,E%,H%,Z%:..|
00007330 26 34 30 36 43 30 3a 5a 25 3d a4 75 70 64 61 74 |&406C0:Z%=.updat|
00007340 65 70 61 6c 65 64 31 5f 3a 45 25 3d 70 61 6c 65 |epaled1_:E%=pale|
00007350 64 70 5f 25 3a 48 25 3d 74 5f 25 3a 24 74 5f 25 |dp_%:H%=t_%:$t_%|
00007360 3d 50 61 6c 65 64 46 5f 24 28 31 29 3a d6 6d 31 |=PaledF_$(1):.m1|
00007370 5f 25 3a 41 24 3d 24 74 5f 25 3a 24 74 5f 25 3d |_%:A$=$t_%:$t_%=|
00007380 50 61 6c 65 64 46 5f 24 28 32 29 3a d6 6d 31 5f |PaledF_$(2):.m1_|
00007390 25 3a 42 24 3d 24 74 5f 25 3a 24 74 5f 25 3d 50 |%:B$=$t_%:$t_%=P|
000073a0 61 6c 65 64 46 5f 24 28 33 29 3a d6 6d 31 5f 25 |aledF_$(3):.m1_%|
000073b0 3a 43 24 3d 24 74 5f 25 0d 0f 3c 0f 50 49 54 6e |:C$=$t_%..<.PITn|
000073c0 5f 25 28 30 29 3d 30 0d 0f 41 9d 24 74 5f 25 3d |_%(0)=0..A.$t_%=|
000073d0 50 61 6c 65 64 46 5f 24 28 34 29 3a d6 6d 31 5f |PaledF_$(4):.m1_|
000073e0 25 3a 44 24 3d 24 74 5f 25 3a 24 74 5f 25 3d 50 |%:D$=$t_%:$t_%=P|
000073f0 61 6c 65 64 46 5f 24 28 35 29 3a d6 6d 31 5f 25 |aledF_$(5):.m1_%|
00007400 3a 45 24 3d 24 74 5f 25 3a 46 24 3d 24 21 50 61 |:E$=$t_%:F$=$!Pa|
00007410 6c 65 64 73 74 61 5f 25 3a 47 24 3d a4 63 6f 6e |ledsta_%:G$=.con|
00007420 76 69 73 5f 28 a4 63 6f 6e 76 73 69 5f 28 50 61 |vis_(.convsi_(Pa|
00007430 6c 65 64 46 5f 24 28 37 29 29 2c 22 22 29 3a e3 |ledF_$(7)),""):.|
00007440 5a 25 3d 41 5f 25 b8 41 41 5f 25 88 41 41 41 5f |Z%=A_%.AA_%.AAA_|
00007450 25 3a 41 25 3d 5a 25 2a 73 69 74 69 66 5f 25 3a |%:A%=Z%*sitif_%:|
00007460 42 25 3d 30 0d 0f 46 39 24 74 5f 25 3d 50 49 54 |B%=0..F9$t_%=PIT|
00007470 65 5f 24 28 41 25 2b 33 29 3a d6 6d 31 5f 25 3a |e_$(A%+3):.m1_%:|
00007480 e7 50 49 54 6e 5f 25 28 30 29 3d 30 3a e7 a7 24 |.PITn_%(0)=0:..$|
00007490 74 5f 25 2c 41 24 29 8c 42 25 2b 3d 31 0d 0f 4b |t_%,A$).B%+=1..K|
000074a0 2e e7 50 49 54 6e 5f 25 28 30 29 3e 30 3a e7 50 |..PITn_%(0)>0:.P|
000074b0 49 54 6e 5f 25 28 30 29 3d 50 49 54 6e 5f 25 28 |ITn_%(0)=PITn_%(|
000074c0 5a 25 2b 31 29 8c 42 25 2b 3d 31 0d 0f 50 20 e7 |Z%+1).B%+=1..P .|
000074d0 50 49 54 65 5f 24 28 41 25 2b 34 29 3d 42 24 84 |PITe_$(A%+4)=B$.|
000074e0 42 24 3d 22 22 8c 42 25 2b 3d 31 0d 0f 55 2c 24 |B$="".B%+=1..U,$|
000074f0 74 5f 25 3d 50 49 54 65 5f 24 28 41 25 2b 35 29 |t_%=PITe_$(A%+5)|
00007500 3a d6 6d 31 5f 25 3a e7 a7 24 74 5f 25 2c 43 24 |:.m1_%:..$t_%,C$|
00007510 29 8c 42 25 2b 3d 31 0d 0f 5a 57 e7 c0 50 49 54 |).B%+=1..ZW..PIT|
00007520 65 5f 24 28 41 25 2b 31 30 29 2c 31 29 3d c0 44 |e_$(A%+10),1)=.D|
00007530 24 2c 31 29 80 c2 50 49 54 65 5f 24 28 41 25 2b |$,1)..PITe_$(A%+|
00007540 31 30 29 2c 31 29 3d c2 44 24 2c 31 29 84 c0 50 |10),1)=.D$,1)..P|
00007550 49 54 65 5f 24 28 41 25 2b 31 30 29 2c 31 29 3d |ITe_$(A%+10),1)=|
00007560 44 24 84 44 24 3d 22 22 8c 42 25 2b 3d 31 0d 0f |D$.D$="".B%+=1..|
00007570 5f 2d 24 74 5f 25 3d 50 49 54 65 5f 24 28 41 25 |_-$t_%=PITe_$(A%|
00007580 2b 31 31 29 3a d6 6d 31 5f 25 3a e7 a7 24 74 5f |+11):.m1_%:..$t_|
00007590 25 2c 45 24 29 8c 42 25 2b 3d 31 0d 0f 64 1e e7 |%,E$).B%+=1..d..|
000075a0 50 49 54 73 5f 24 28 5a 25 29 3d 46 24 84 46 24 |PITs_$(Z%)=F$.F$|
000075b0 3d 22 22 8c 42 25 2b 3d 31 0d 0f 69 20 e7 50 49 |="".B%+=1..i .PI|
000075c0 54 65 5f 24 28 41 25 2b 36 29 3d 47 24 84 47 24 |Te_$(A%+6)=G$.G$|
000075d0 3d 22 22 8c 42 25 2b 3d 31 0d 0f 6e 17 e7 42 25 |="".B%+=1..n..B%|
000075e0 3d 37 8c 43 25 3d 5a 25 3a 5a 25 3d 41 41 5f 25 |=7.C%=Z%:Z%=AA_%|
000075f0 0d 0f 73 23 ed 3a e7 42 25 3c 37 8c c8 99 26 34 |..s#.:.B%<7...&4|
00007600 30 36 43 31 3a 3d a4 75 70 64 61 74 65 70 61 6c |06C1:=.updatepal|
00007610 65 64 5f 0d 0f 78 48 5a 25 3d 70 69 74 70 5f 25 |ed_..xHZ%=pitp_%|
00007620 2b 28 45 25 2d 31 29 2f 73 69 74 69 66 5f 25 3a |+(E%-1)/sitif_%:|
00007630 44 25 3d a4 77 69 6e 64 6f 77 28 22 50 61 6c 65 |D%=.window("Pale|
00007640 64 22 29 3a e7 5a 25 3c 43 25 8c f2 50 49 54 64 |d"):.Z%<C%..PITd|
00007650 6f 77 6e 5f 28 5a 25 2d 43 25 29 0d 0f 7d 19 e7 |own_(Z%-C%)..}..|
00007660 5a 25 3e 43 25 8c f2 50 49 54 75 70 5f 28 5a 25 |Z%>C%..PITup_(Z%|
00007670 2d 43 25 29 0d 0f 82 2c e7 70 69 74 70 5f 25 3d |-C%)...,.pitp_%=|
00007680 30 8c 45 25 3d 28 45 25 2d 31 29 83 73 69 74 69 |0.E%=(E%-1).siti|
00007690 66 5f 25 2b 43 25 2a 73 69 74 69 66 5f 25 2b 31 |f_%+C%*sitif_%+1|
000076a0 0d 0f 87 5c e7 70 69 74 70 5f 25 3d 6d 61 78 50 |...\.pitp_%=maxP|
000076b0 5f 25 2a 73 69 74 69 70 5f 25 2d 73 69 74 69 70 |_%*sitip_%-sitip|
000076c0 5f 25 8c 45 25 3d 28 45 25 2d 31 29 83 73 69 74 |_%.E%=(E%-1).sit|
000076d0 69 66 5f 25 2b 28 43 25 2d 28 6d 61 78 50 5f 25 |if_%+(C%-(maxP_%|
000076e0 2a 73 69 74 69 70 5f 25 2d 73 69 74 69 70 5f 25 |*sitip_%-sitip_%|
000076f0 29 29 2a 73 69 74 69 66 5f 25 2b 31 0d 0f 8c 22 |))*sitif_%+1..."|
00007700 f2 73 65 74 43 31 5f 28 70 61 6c 65 64 25 2c 45 |.setC1_(paled%,E|
00007710 25 29 3a c8 99 26 34 30 36 43 31 3a 3d b9 0d 0f |%):..&406C1:=...|
00007720 91 44 dd a4 50 61 6c 65 64 42 61 5f 3a ea 20 5a |.D..PaledBa_:. Z|
00007730 25 3a 5a 25 3d 70 69 74 70 5f 25 2b 28 70 61 6c |%:Z%=pitp_%+(pal|
00007740 65 64 70 5f 25 2d 31 29 2f 73 69 74 69 66 5f 25 |edp_%-1)/sitif_%|
00007750 3a e7 5a 25 3d 30 84 70 61 6c 65 64 25 3d 30 8c |:.Z%=0.paled%=0.|
00007760 3d a3 0d 0f 96 19 3d a4 50 61 6c 65 73 46 69 5f |=.....=.PalesFi_|
00007770 28 5a 25 2d 31 2c 30 2c 2d 31 29 0d 0f 9b 4e dd |(Z%-1,0,-1)...N.|
00007780 a4 50 61 6c 65 64 46 6f 5f 3a 5a 25 3d 70 69 74 |.PaledFo_:Z%=pit|
00007790 70 5f 25 2b 28 70 61 6c 65 64 70 5f 25 2d 31 29 |p_%+(paledp_%-1)|
000077a0 2f 73 69 74 69 66 5f 25 3a e7 5a 25 3d 6d 61 78 |/sitif_%:.Z%=max|
000077b0 50 5f 25 2a 73 69 74 69 70 5f 25 2d 31 84 70 61 |P_%*sitip_%-1.pa|
000077c0 6c 65 64 25 3d 30 8c 3d a3 0d 0f a0 27 3d a4 50 |led%=0.=....'=.P|
000077d0 61 6c 65 73 46 69 5f 28 5a 25 2b 31 2c 6d 61 78 |alesFi_(Z%+1,max|
000077e0 50 5f 25 2a 73 69 74 69 70 5f 25 2d 31 2c 31 29 |P_%*sitip_%-1,1)|
000077f0 0d 0f a5 04 0d 0f aa 33 dd a4 50 61 6c 65 64 31 |.......3..Paled1|
00007800 5f 3a 50 61 6c 65 64 46 5f 24 28 31 29 3d 24 21 |_:PaledF_$(1)=$!|
00007810 50 61 6c 65 64 31 5f 25 3a 50 49 54 6e 5f 25 28 |Paled1_%:PITn_%(|
00007820 30 29 3d 30 3a 3d b9 0d 0f af 30 dd a4 50 61 6c |0)=0:=....0..Pal|
00007830 65 64 32 5f 3a 50 61 6c 65 64 46 5f 24 28 32 29 |ed2_:PaledF_$(2)|
00007840 3d 24 21 50 61 6c 65 64 32 5f 25 3a 3d a4 70 61 |=$!Paled2_%:=.pa|
00007850 6c 66 69 6e 64 61 5f 0d 0f b4 27 dd a4 50 61 6c |lfinda_...'..Pal|
00007860 65 64 33 5f 3a 50 61 6c 65 64 46 5f 24 28 33 29 |ed3_:PaledF_$(3)|
00007870 3d 24 21 50 61 6c 65 64 33 5f 25 3a 3d b9 0d 0f |=$!Paled3_%:=...|
00007880 b9 30 dd a4 50 61 6c 65 64 34 5f 3a 50 61 6c 65 |.0..Paled4_:Pale|
00007890 64 46 5f 24 28 34 29 3d 24 21 50 61 6c 65 64 34 |dF_$(4)=$!Paled4|
000078a0 5f 25 3a 3d a4 70 61 6c 66 69 6e 64 68 5f 0d 0f |_%:=.palfindh_..|
000078b0 be 27 dd a4 50 61 6c 65 64 35 5f 3a 50 61 6c 65 |.'..Paled5_:Pale|
000078c0 64 46 5f 24 28 35 29 3d 24 21 50 61 6c 65 64 35 |dF_$(5)=$!Paled5|
000078d0 5f 25 3a 3d b9 0d 0f c3 30 dd a4 50 61 6c 65 64 |_%:=....0..Paled|
000078e0 36 5f 3a 50 61 6c 65 64 46 5f 24 28 36 29 3d 24 |6_:PaledF_$(6)=$|
000078f0 21 50 61 6c 65 64 36 5f 25 3a 3d a4 70 61 6c 66 |!Paled6_%:=.palf|
00007900 69 6e 64 73 5f 0d 0f c8 32 dd a4 50 61 6c 65 64 |inds_...2..Paled|
00007910 37 5f 3a 50 61 6c 65 64 46 5f 24 28 37 29 3d 24 |7_:PaledF_$(7)=$|
00007920 21 50 61 6c 65 64 37 5f 25 3a f2 73 65 74 43 5f |!Paled7_%:.setC_|
00007930 28 31 33 29 3a 3d b9 0d 0f cd b5 dd a4 69 6e 69 |(13):=.......ini|
00007940 74 70 61 6c 65 64 31 5f 3a 24 21 50 61 6c 65 64 |tpaled1_:$!Paled|
00007950 31 5f 25 3d 50 61 6c 65 64 46 5f 24 28 31 29 3a |1_%=PaledF_$(1):|
00007960 24 21 50 61 6c 65 64 32 5f 25 3d 50 61 6c 65 64 |$!Paled2_%=Paled|
00007970 46 5f 24 28 32 29 3a 24 21 50 61 6c 65 64 33 5f |F_$(2):$!Paled3_|
00007980 25 3d 50 61 6c 65 64 46 5f 24 28 33 29 3a 24 21 |%=PaledF_$(3):$!|
00007990 50 61 6c 65 64 34 5f 25 3d 50 61 6c 65 64 46 5f |Paled4_%=PaledF_|
000079a0 24 28 34 29 3a 24 21 50 61 6c 65 64 35 5f 25 3d |$(4):$!Paled5_%=|
000079b0 50 61 6c 65 64 46 5f 24 28 35 29 3a 24 21 50 61 |PaledF_$(5):$!Pa|
000079c0 6c 65 64 36 5f 25 3d 50 61 6c 65 64 46 5f 24 28 |led6_%=PaledF_$(|
000079d0 36 29 3a 24 21 50 61 6c 65 64 37 5f 25 3d 50 61 |6):$!Paled7_%=Pa|
000079e0 6c 65 64 46 5f 24 28 37 29 3a 3d b9 0d 0f d2 d5 |ledF_$(7):=.....|
000079f0 dd a4 75 70 64 61 74 65 70 61 6c 65 64 31 5f 3a |..updatepaled1_:|
00007a00 ea 20 5a 25 3a 50 61 6c 65 64 46 5f 24 28 31 29 |. Z%:PaledF_$(1)|
00007a10 3d 24 21 50 61 6c 65 64 31 5f 25 3a 50 61 6c 65 |=$!Paled1_%:Pale|
00007a20 64 46 5f 24 28 32 29 3d 24 21 50 61 6c 65 64 32 |dF_$(2)=$!Paled2|
00007a30 5f 25 3a 50 61 6c 65 64 46 5f 24 28 33 29 3d 24 |_%:PaledF_$(3)=$|
00007a40 21 50 61 6c 65 64 33 5f 25 3a 50 61 6c 65 64 46 |!Paled3_%:PaledF|
00007a50 5f 24 28 34 29 3d 24 21 50 61 6c 65 64 34 5f 25 |_$(4)=$!Paled4_%|
00007a60 3a 50 61 6c 65 64 46 5f 24 28 35 29 3d 24 21 50 |:PaledF_$(5)=$!P|
00007a70 61 6c 65 64 35 5f 25 3a 50 61 6c 65 64 46 5f 24 |aled5_%:PaledF_$|
00007a80 28 36 29 3d 24 21 50 61 6c 65 64 36 5f 25 3a 50 |(6)=$!Paled6_%:P|
00007a90 61 6c 65 64 46 5f 24 28 37 29 3d 24 21 50 61 6c |aledF_$(7)=$!Pal|
00007aa0 65 64 37 5f 25 3a 5a 25 3d a4 70 61 6c 66 69 6e |ed7_%:Z%=.palfin|
00007ab0 64 68 5f 3a 5a 25 3d a4 70 61 6c 66 69 6e 64 61 |dh_:Z%=.palfinda|
00007ac0 5f 0d 0f d7 0f 3d a4 70 61 6c 66 69 6e 64 73 5f |_....=.palfinds_|
00007ad0 0d 0f dc 49 dd a4 70 61 6c 66 69 6e 64 61 5f 3a |...I..palfinda_:|
00007ae0 24 21 50 61 6c 65 64 61 63 63 5f 25 3d a4 67 65 |$!Paledacc_%=.ge|
00007af0 74 62 61 6e 6b 5f 28 50 61 6c 65 64 46 5f 24 28 |tbank_(PaledF_$(|
00007b00 32 29 29 3a f2 72 49 28 57 25 2c 22 50 61 6c 65 |2)):.rI(W%,"Pale|
00007b10 64 61 63 63 22 29 3a 3d b9 0d 0f e1 4a dd a4 70 |dacc"):=....J..p|
00007b20 61 6c 66 69 6e 64 68 5f 3a 24 21 50 61 6c 65 64 |alfindh_:$!Paled|
00007b30 68 65 61 5f 25 3d a4 67 65 74 68 65 61 64 50 5f |hea_%=.getheadP_|
00007b40 28 50 61 6c 65 64 46 5f 24 28 34 29 29 3a f2 72 |(PaledF_$(4)):.r|
00007b50 49 28 57 25 2c 22 50 61 6c 65 64 68 65 61 22 29 |I(W%,"Paledhea")|
00007b60 3a 3d b9 0d 0f e6 17 dd a4 70 61 6c 66 69 6e 64 |:=.......palfind|
00007b70 73 5f 3a ea 20 56 24 2c 48 25 0d 0f eb 43 e7 50 |s_:. V$,H%...C.P|
00007b80 61 6c 65 64 46 5f 24 28 36 29 3c 3e 22 70 22 8c |aledF_$(6)<>"p".|
00007b90 48 25 3d 74 5f 25 3a 24 74 5f 25 3d 50 61 6c 65 |H%=t_%:$t_%=Pale|
00007ba0 64 46 5f 24 28 36 29 3a d6 6d 31 5f 25 3a 56 24 |dF_$(6):.m1_%:V$|
00007bb0 3d 24 74 5f 25 20 8b 56 24 3d 22 70 22 0d 0f f0 |=$t_% .V$="p"...|
00007bc0 71 e7 56 24 3d 22 50 22 8c 56 24 3d 22 50 61 69 |q.V$="P".V$="Pai|
00007bd0 64 22 20 8b e7 56 24 3d 22 52 22 8c 56 24 3d 51 |d" ..V$="R".V$=Q|
00007be0 5f 24 20 8b e7 56 24 3d 22 55 22 8c 56 24 3d 22 |_$ ..V$="U".V$="|
00007bf0 55 6e 70 61 69 64 22 20 8b e7 56 24 3d 22 4f 22 |Unpaid" ..V$="O"|
00007c00 8c 56 24 3d 22 6f 76 65 72 2d 50 61 69 64 22 20 |.V$="over-Paid" |
00007c10 8b e7 56 24 3d 22 70 22 8c 56 24 3d 22 70 61 72 |..V$="p".V$="par|
00007c20 74 2d 50 61 69 64 22 20 8b 56 24 3d 22 22 0d 0f |t-Paid" .V$=""..|
00007c30 f5 29 24 21 50 61 6c 65 64 73 74 61 5f 25 3d 56 |.)$!Paledsta_%=V|
00007c40 24 3a f2 72 49 28 57 25 2c 22 50 61 6c 65 64 73 |$:.rI(W%,"Paleds|
00007c50 74 61 22 29 3a 3d b9 0d 0f fa 04 0d 0f ff 24 dd |ta"):=........$.|
00007c60 a4 42 61 6e 6b 31 5f 3a 42 61 6e 6b 46 5f 24 28 |.Bank1_:BankF_$(|
00007c70 31 29 3d 24 21 42 61 6e 6b 31 5f 25 3a 3d b9 0d |1)=$!Bank1_%:=..|
00007c80 10 04 2e dd a4 42 61 6e 6b 32 5f 3a 42 61 6e 6b |.....Bank2_:Bank|
00007c90 46 5f 24 28 32 29 3d 24 21 42 61 6e 6b 32 5f 25 |F_$(2)=$!Bank2_%|
00007ca0 3a 3d a4 62 61 6e 66 69 6e 64 61 31 5f 0d 10 09 |:=.banfinda1_...|
00007cb0 2e dd a4 42 61 6e 6b 33 5f 3a 42 61 6e 6b 46 5f |...Bank3_:BankF_|
00007cc0 24 28 33 29 3d 24 21 42 61 6e 6b 33 5f 25 3a 3d |$(3)=$!Bank3_%:=|
00007cd0 a4 62 61 6e 66 69 6e 64 73 31 5f 0d 10 0e 2e dd |.banfinds1_.....|
00007ce0 a4 42 61 6e 6b 34 5f 3a 42 61 6e 6b 46 5f 24 28 |.Bank4_:BankF_$(|
00007cf0 34 29 3d 24 21 42 61 6e 6b 34 5f 25 3a 3d a4 62 |4)=$!Bank4_%:=.b|
00007d00 61 6e 66 69 6e 64 61 32 5f 0d 10 13 2e dd a4 42 |anfinda2_......B|
00007d10 61 6e 6b 35 5f 3a 42 61 6e 6b 46 5f 24 28 35 29 |ank5_:BankF_$(5)|
00007d20 3d 24 21 42 61 6e 6b 35 5f 25 3a 3d a4 62 61 6e |=$!Bank5_%:=.ban|
00007d30 66 69 6e 64 73 32 5f 0d 10 18 24 dd a4 42 61 6e |finds2_...$..Ban|
00007d40 6b 36 5f 3a 42 61 6e 6b 46 5f 24 28 36 29 3d 24 |k6_:BankF_$(6)=$|
00007d50 21 42 61 6e 6b 36 5f 25 3a 3d b9 0d 10 1d 2f dd |!Bank6_%:=..../.|
00007d60 a4 42 61 6e 6b 37 5f 3a 42 61 6e 6b 46 5f 24 28 |.Bank7_:BankF_$(|
00007d70 37 29 3d 24 21 42 61 6e 6b 37 5f 25 3a f2 73 65 |7)=$!Bank7_%:.se|
00007d80 74 43 5f 28 31 34 29 3a 3d b9 0d 10 22 a6 dd a4 |tC_(14):=..."...|
00007d90 69 6e 69 74 62 61 6e 6b 31 5f 3a 24 21 42 61 6e |initbank1_:$!Ban|
00007da0 6b 31 5f 25 3d 42 61 6e 6b 46 5f 24 28 31 29 3a |k1_%=BankF_$(1):|
00007db0 24 21 42 61 6e 6b 32 5f 25 3d 42 61 6e 6b 46 5f |$!Bank2_%=BankF_|
00007dc0 24 28 32 29 3a 24 21 42 61 6e 6b 33 5f 25 3d 42 |$(2):$!Bank3_%=B|
00007dd0 61 6e 6b 46 5f 24 28 33 29 3a 24 21 42 61 6e 6b |ankF_$(3):$!Bank|
00007de0 34 5f 25 3d 42 61 6e 6b 46 5f 24 28 34 29 3a 24 |4_%=BankF_$(4):$|
00007df0 21 42 61 6e 6b 35 5f 25 3d 42 61 6e 6b 46 5f 24 |!Bank5_%=BankF_$|
00007e00 28 35 29 3a 24 21 42 61 6e 6b 36 5f 25 3d 42 61 |(5):$!Bank6_%=Ba|
00007e10 6e 6b 46 5f 24 28 36 29 3a 24 21 42 61 6e 6b 37 |nkF_$(6):$!Bank7|
00007e20 5f 25 3d 42 61 6e 6b 46 5f 24 28 37 29 3a 3d b9 |_%=BankF_$(7):=.|
00007e30 0d 10 27 8c dd a4 75 70 64 61 74 65 62 61 6e 6b |..'...updatebank|
00007e40 31 5f 3a ea 20 5a 25 2c 48 25 3a 24 74 5f 25 3d |1_:. Z%,H%:$t_%=|
00007e50 24 21 42 61 6e 6b 33 5f 25 3a 48 25 3d 74 5f 25 |$!Bank3_%:H%=t_%|
00007e60 3a d6 6d 31 5f 25 3a 42 61 6e 6b 46 5f 24 28 31 |:.m1_%:BankF_$(1|
00007e70 29 3d 24 21 42 61 6e 6b 31 5f 25 3a 42 61 6e 6b |)=$!Bank1_%:Bank|
00007e80 46 5f 24 28 32 29 3d 24 21 42 61 6e 6b 32 5f 25 |F_$(2)=$!Bank2_%|
00007e90 3a e7 24 74 5f 25 3d 22 52 22 8c 24 21 42 61 6e |:.$t_%="R".$!Ban|
00007ea0 6b 33 5f 25 3d 22 80 22 3a f2 72 49 28 62 61 6e |k3_%=".":.rI(ban|
00007eb0 6b 31 25 2c 22 42 61 6e 6b 33 22 29 0d 10 2c 6e |k1%,"Bank3")..,n|
00007ec0 42 61 6e 6b 46 5f 24 28 33 29 3d 24 21 42 61 6e |BankF_$(3)=$!Ban|
00007ed0 6b 33 5f 25 3a 42 61 6e 6b 46 5f 24 28 34 29 3d |k3_%:BankF_$(4)=|
00007ee0 24 21 42 61 6e 6b 34 5f 25 3a 24 74 5f 25 3d 24 |$!Bank4_%:$t_%=$|
00007ef0 21 42 61 6e 6b 35 5f 25 3a d6 6d 31 5f 25 3a e7 |!Bank5_%:.m1_%:.|
00007f00 24 74 5f 25 3d 22 52 22 8c 24 21 42 61 6e 6b 35 |$t_%="R".$!Bank5|
00007f10 5f 25 3d 22 80 22 3a f2 72 49 28 62 61 6e 6b 31 |_%=".":.rI(bank1|
00007f20 25 2c 22 42 61 6e 6b 35 22 29 0d 10 31 7c 42 61 |%,"Bank5")..1|Ba|
00007f30 6e 6b 46 5f 24 28 35 29 3d 24 21 42 61 6e 6b 35 |nkF_$(5)=$!Bank5|
00007f40 5f 25 3a 42 61 6e 6b 46 5f 24 28 36 29 3d 24 21 |_%:BankF_$(6)=$!|
00007f50 42 61 6e 6b 36 5f 25 3a 42 61 6e 6b 46 5f 24 28 |Bank6_%:BankF_$(|
00007f60 37 29 3d 24 21 42 61 6e 6b 37 5f 25 3a 5a 25 3d |7)=$!Bank7_%:Z%=|
00007f70 a4 62 61 6e 66 69 6e 64 61 31 5f 3a 5a 25 3d a4 |.banfinda1_:Z%=.|
00007f80 62 61 6e 66 69 6e 64 61 32 5f 3a 5a 25 3d a4 62 |banfinda2_:Z%=.b|
00007f90 61 6e 66 69 6e 64 73 31 5f 3a 3d a4 62 61 6e 66 |anfinds1_:=.banf|
00007fa0 69 6e 64 73 32 5f 0d 10 36 6e dd f2 75 70 64 61 |inds2_..6n..upda|
00007fb0 74 65 62 61 6e 6b 31 64 5f 3a 24 21 42 61 6e 6b |tebank1d_:$!Bank|
00007fc0 31 5f 25 3d 22 22 3a 24 21 42 61 6e 6b 32 5f 25 |1_%="":$!Bank2_%|
00007fd0 3d 22 22 3a 24 21 42 61 6e 6b 33 5f 25 3d 22 22 |="":$!Bank3_%=""|
00007fe0 3a 24 21 42 61 6e 6b 34 5f 25 3d 22 22 3a 24 21 |:$!Bank4_%="":$!|
00007ff0 42 61 6e 6b 35 5f 25 3d 22 22 3a 24 21 42 61 6e |Bank5_%="":$!Ban|
00008000 6b 36 5f 25 3d 22 22 3a 24 21 42 61 6e 6b 37 5f |k6_%="":$!Bank7_|
00008010 25 3d 22 22 0d 10 3b 75 f2 72 49 28 57 25 2c 22 |%=""..;u.rI(W%,"|
00008020 42 61 6e 6b 31 22 29 3a f2 72 49 28 57 25 2c 22 |Bank1"):.rI(W%,"|
00008030 42 61 6e 6b 32 22 29 3a f2 72 49 28 57 25 2c 22 |Bank2"):.rI(W%,"|
00008040 42 61 6e 6b 33 22 29 3a f2 72 49 28 57 25 2c 22 |Bank3"):.rI(W%,"|
00008050 42 61 6e 6b 34 22 29 3a f2 72 49 28 57 25 2c 22 |Bank4"):.rI(W%,"|
00008060 42 61 6e 6b 35 22 29 3a f2 72 49 28 57 25 2c 22 |Bank5"):.rI(W%,"|
00008070 42 61 6e 6b 36 22 29 3a f2 72 49 28 57 25 2c 22 |Bank6"):.rI(W%,"|
00008080 42 61 6e 6b 37 22 29 3a e1 0d 10 40 49 dd a4 62 |Bank7"):...@I..b|
00008090 61 6e 66 69 6e 64 61 31 5f 3a 24 21 42 61 6e 6b |anfinda1_:$!Bank|
000080a0 31 61 63 63 5f 25 3d a4 67 65 74 62 61 6e 6b 5f |1acc_%=.getbank_|
000080b0 28 42 61 6e 6b 46 5f 24 28 32 29 29 3a f2 72 49 |(BankF_$(2)):.rI|
000080c0 28 57 25 2c 22 42 61 6e 6b 31 61 63 63 22 29 3a |(W%,"Bank1acc"):|
000080d0 3d b9 0d 10 45 49 dd a4 62 61 6e 66 69 6e 64 61 |=...EI..banfinda|
000080e0 32 5f 3a 24 21 42 61 6e 6b 32 61 63 63 5f 25 3d |2_:$!Bank2acc_%=|
000080f0 a4 67 65 74 62 61 6e 6b 5f 28 42 61 6e 6b 46 5f |.getbank_(BankF_|
00008100 24 28 34 29 29 3a f2 72 49 28 57 25 2c 22 42 61 |$(4)):.rI(W%,"Ba|
00008110 6e 6b 32 61 63 63 22 29 3a 3d b9 0d 10 4a 18 dd |nk2acc"):=...J..|
00008120 a4 62 61 6e 66 69 6e 64 73 31 5f 3a ea 20 56 24 |.banfinds1_:. V$|
00008130 2c 48 25 0d 10 4f 28 48 25 3d 74 5f 25 3a 24 74 |,H%..O(H%=t_%:$t|
00008140 5f 25 3d 42 61 6e 6b 46 5f 24 28 33 29 3a d6 6d |_%=BankF_$(3):.m|
00008150 31 5f 25 3a 56 24 3d 24 74 5f 25 0d 10 54 2c e7 |1_%:V$=$t_%..T,.|
00008160 56 24 3d 22 50 22 8c 56 24 3d 22 50 61 69 64 22 |V$="P".V$="Paid"|
00008170 20 8b e7 56 24 3d 22 52 22 84 56 24 3d 22 80 22 | ..V$="R".V$="."|
00008180 8c 56 24 3d 51 5f 24 0d 10 59 29 24 21 42 61 6e |.V$=Q_$..Y)$!Ban|
00008190 6b 31 73 74 61 5f 25 3d 56 24 3a f2 72 49 28 57 |k1sta_%=V$:.rI(W|
000081a0 25 2c 22 42 61 6e 6b 31 73 74 61 22 29 3a 3d b9 |%,"Bank1sta"):=.|
000081b0 0d 10 5e 18 dd a4 62 61 6e 66 69 6e 64 73 32 5f |..^...banfinds2_|
000081c0 3a ea 20 56 24 2c 48 25 0d 10 63 28 48 25 3d 74 |:. V$,H%..c(H%=t|
000081d0 5f 25 3a 24 74 5f 25 3d 42 61 6e 6b 46 5f 24 28 |_%:$t_%=BankF_$(|
000081e0 35 29 3a d6 6d 31 5f 25 3a 56 24 3d 24 74 5f 25 |5):.m1_%:V$=$t_%|
000081f0 0d 10 68 2c e7 56 24 3d 22 50 22 8c 56 24 3d 22 |..h,.V$="P".V$="|
00008200 50 61 69 64 22 20 8b e7 56 24 3d 22 52 22 84 56 |Paid" ..V$="R".V|
00008210 24 3d 22 80 22 8c 56 24 3d 51 5f 24 0d 10 6d 29 |$=".".V$=Q_$..m)|
00008220 24 21 42 61 6e 6b 32 73 74 61 5f 25 3d 56 24 3a |$!Bank2sta_%=V$:|
00008230 f2 72 49 28 57 25 2c 22 42 61 6e 6b 32 73 74 61 |.rI(W%,"Bank2sta|
00008240 22 29 3a 3d b9 0d 10 72 04 0d 10 77 1a dd a4 42 |"):=...r...w...B|
00008250 61 6e 6b 66 69 5f 3a e7 62 61 6e 6b 6c 25 3d 30 |ankfi_:.bankl%=0|
00008260 8c 3d a3 0d 10 7c 24 3d a4 42 61 6e 6b 73 46 69 |.=...|$=.BanksFi|
00008270 5f 28 30 2c 6d 61 78 42 5f 25 2a 62 69 74 69 70 |_(0,maxB_%*bitip|
00008280 5f 25 2d 31 2c 31 29 0d 10 81 94 dd a4 42 61 6e |_%-1,1)......Ban|
00008290 6b 73 46 69 5f 28 41 5f 25 2c 41 41 5f 25 2c 41 |ksFi_(A_%,AA_%,A|
000082a0 41 41 5f 25 29 3a ea 20 41 24 2c 42 24 2c 43 24 |AA_%):. A$,B$,C$|
000082b0 2c 44 24 2c 45 24 2c 46 24 2c 47 24 2c 41 25 2c |,D$,E$,F$,G$,A%,|
000082c0 42 25 2c 43 25 2c 44 25 2c 45 25 2c 48 25 2c 5a |B%,C%,D%,E%,H%,Z|
000082d0 25 3a c8 99 26 34 30 36 43 30 3a 5a 25 3d a4 75 |%:..&406C0:Z%=.u|
000082e0 70 64 61 74 65 62 61 6e 6b 31 5f 3a 45 25 3d 62 |pdatebank1_:E%=b|
000082f0 61 6e 6b 70 5f 25 3a 48 25 3d 74 5f 25 3a 24 74 |ankp_%:H%=t_%:$t|
00008300 5f 25 3d 42 61 6e 6b 46 5f 24 28 31 29 3a d6 6d |_%=BankF_$(1):.m|
00008310 31 5f 25 3a 41 24 3d 24 74 5f 25 0d 10 86 6c 24 |1_%:A$=$t_%...l$|
00008320 74 5f 25 3d 42 61 6e 6b 46 5f 24 28 36 29 3a d6 |t_%=BankF_$(6):.|
00008330 6d 31 5f 25 3a 46 24 3d 24 74 5f 25 3a 47 24 3d |m1_%:F$=$t_%:G$=|
00008340 a4 63 6f 6e 76 69 73 5f 28 a4 63 6f 6e 76 73 69 |.convis_(.convsi|
00008350 5f 28 42 61 6e 6b 46 5f 24 28 37 29 29 2c 22 22 |_(BankF_$(7)),""|
00008360 29 3a e3 5a 25 3d 41 5f 25 b8 41 41 5f 25 88 41 |):.Z%=A_%.AA_%.A|
00008370 41 41 5f 25 3a 41 25 3d 5a 25 2a 62 69 74 69 66 |AA_%:A%=Z%*bitif|
00008380 5f 25 3a 42 25 3d 30 0d 10 8b 2c 24 74 5f 25 3d |_%:B%=0...,$t_%=|
00008390 42 49 54 65 5f 24 28 41 25 2b 32 29 3a d6 6d 31 |BITe_$(A%+2):.m1|
000083a0 5f 25 3a e7 a7 24 74 5f 25 2c 41 24 29 8c 42 25 |_%:..$t_%,A$).B%|
000083b0 2b 3d 31 0d 10 90 16 42 25 3d a4 61 63 63 73 74 |+=1....B%=.accst|
000083c0 61 5f 28 41 25 2c 42 25 29 0d 10 95 2c 24 74 5f |a_(A%,B%)...,$t_|
000083d0 25 3d 42 49 54 65 5f 24 28 41 25 2b 38 29 3a d6 |%=BITe_$(A%+8):.|
000083e0 6d 31 5f 25 3a e7 a7 24 74 5f 25 2c 46 24 29 8c |m1_%:..$t_%,F$).|
000083f0 42 25 2b 3d 31 0d 10 9a 20 e7 42 49 54 65 5f 24 |B%+=1... .BITe_$|
00008400 28 41 25 2b 35 29 3d 47 24 84 47 24 3d 22 22 8c |(A%+5)=G$.G$="".|
00008410 42 25 2b 3d 31 0d 10 9f 17 e7 42 25 3d 34 8c 43 |B%+=1.....B%=4.C|
00008420 25 3d 5a 25 3a 5a 25 3d 41 41 5f 25 0d 10 a4 23 |%=Z%:Z%=AA_%...#|
00008430 ed 3a e7 42 25 3c 34 8c c8 99 26 34 30 36 43 31 |.:.B%<4...&406C1|
00008440 3a 3d a4 75 70 64 61 74 65 62 61 6e 6b 6c 5f 0d |:=.updatebankl_.|
00008450 10 a9 48 5a 25 3d 62 69 74 70 5f 25 2b 28 45 25 |..HZ%=bitp_%+(E%|
00008460 2d 31 29 2f 62 69 74 69 66 5f 25 3a 44 25 3d a4 |-1)/bitif_%:D%=.|
00008470 77 69 6e 64 6f 77 28 22 42 61 6e 6b 4c 22 29 3a |window("BankL"):|
00008480 e7 5a 25 3c 43 25 8c f2 42 49 54 64 6f 77 6e 5f |.Z%<C%..BITdown_|
00008490 28 5a 25 2d 43 25 29 0d 10 ae 19 e7 5a 25 3e 43 |(Z%-C%).....Z%>C|
000084a0 25 8c f2 42 49 54 75 70 5f 28 5a 25 2d 43 25 29 |%..BITup_(Z%-C%)|
000084b0 0d 10 b3 2c e7 62 69 74 70 5f 25 3d 30 8c 45 25 |...,.bitp_%=0.E%|
000084c0 3d 28 45 25 2d 31 29 83 62 69 74 69 66 5f 25 2b |=(E%-1).bitif_%+|
000084d0 43 25 2a 62 69 74 69 66 5f 25 2b 31 0d 10 b8 5c |C%*bitif_%+1...\|
000084e0 e7 62 69 74 70 5f 25 3d 6d 61 78 42 5f 25 2a 62 |.bitp_%=maxB_%*b|
000084f0 69 74 69 70 5f 25 2d 62 69 74 69 70 5f 25 8c 45 |itip_%-bitip_%.E|
00008500 25 3d 28 45 25 2d 31 29 83 62 69 74 69 66 5f 25 |%=(E%-1).bitif_%|
00008510 2b 28 43 25 2d 28 6d 61 78 42 5f 25 2a 62 69 74 |+(C%-(maxB_%*bit|
00008520 69 70 5f 25 2d 62 69 74 69 70 5f 25 29 29 2a 62 |ip_%-bitip_%))*b|
00008530 69 74 69 66 5f 25 2b 31 0d 10 bd 22 f2 73 65 74 |itif_%+1...".set|
00008540 43 31 5f 28 62 61 6e 6b 6c 25 2c 45 25 29 3a c8 |C1_(bankl%,E%):.|
00008550 99 26 34 30 36 43 31 3a 3d b9 0d 10 c2 40 dd a4 |.&406C1:=....@..|
00008560 61 63 63 73 74 61 5f 28 61 5f 25 2c 42 25 29 3a |accsta_(a_%,B%):|
00008570 ea 20 41 25 2c 48 25 2c 42 24 2c 43 24 2c 44 24 |. A%,H%,B$,C$,D$|
00008580 2c 45 24 2c 42 5f 24 2c 43 5f 24 2c 44 5f 24 2c |,E$,B_$,C_$,D_$,|
00008590 45 5f 24 3a 48 25 3d 74 5f 25 0d 10 c7 7b 24 74 |E_$:H%=t_%...{$t|
000085a0 5f 25 3d 42 61 6e 6b 46 5f 24 28 32 29 3a d6 6d |_%=BankF_$(2):.m|
000085b0 31 5f 25 3a 42 24 3d 24 74 5f 25 3a 24 74 5f 25 |1_%:B$=$t_%:$t_%|
000085c0 3d 42 61 6e 6b 46 5f 24 28 33 29 3a d6 6d 31 5f |=BankF_$(3):.m1_|
000085d0 25 3a 43 24 3d 24 74 5f 25 3a 24 74 5f 25 3d 42 |%:C$=$t_%:$t_%=B|
000085e0 61 6e 6b 46 5f 24 28 34 29 3a d6 6d 31 5f 25 3a |ankF_$(4):.m1_%:|
000085f0 44 24 3d 24 74 5f 25 3a 24 74 5f 25 3d 42 61 6e |D$=$t_%:$t_%=Ban|
00008600 6b 46 5f 24 28 35 29 3a d6 6d 31 5f 25 3a 45 24 |kF_$(5):.m1_%:E$|
00008610 3d 24 74 5f 25 0d 10 cc 4b 42 5f 24 3d 42 49 54 |=$t_%...KB_$=BIT|
00008620 65 5f 24 28 61 5f 25 2b 33 29 3a 43 5f 24 3d 42 |e_$(a_%+3):C_$=B|
00008630 49 54 65 5f 24 28 61 5f 25 2b 34 29 3a 44 5f 24 |ITe_$(a_%+4):D_$|
00008640 3d 42 49 54 65 5f 24 28 61 5f 25 2b 36 29 3a 45 |=BITe_$(a_%+6):E|
00008650 5f 24 3d 42 49 54 65 5f 24 28 61 5f 25 2b 37 29 |_$=BITe_$(a_%+7)|
00008660 0d 10 d1 a1 e7 42 5f 24 3d 42 24 80 43 5f 24 3d |.....B_$=B$.C_$=|
00008670 43 24 84 44 5f 24 3d 44 24 80 45 5f 24 3d 45 24 |C$.D_$=D$.E_$=E$|
00008680 84 42 24 3d 22 22 80 43 24 3d 22 22 80 44 24 3d |.B$="".C$="".D$=|
00008690 22 22 80 45 24 3d 22 22 84 42 5f 24 3d 42 24 80 |"".E$="".B_$=B$.|
000086a0 43 24 3d 22 22 80 44 24 3d 22 22 80 45 24 3d 22 |C$="".D$="".E$="|
000086b0 22 84 43 5f 24 3d 43 24 80 42 24 3d 22 22 80 44 |".C_$=C$.B$="".D|
000086c0 24 3d 22 22 80 45 24 3d 22 22 84 44 5f 24 3d 44 |$="".E$="".D_$=D|
000086d0 24 80 42 24 3d 22 22 80 43 24 3d 22 22 80 45 24 |$.B$="".C$="".E$|
000086e0 3d 22 22 84 45 5f 24 3d 45 24 80 42 24 3d 22 22 |="".E_$=E$.B$=""|
000086f0 80 43 24 3d 22 22 80 44 24 3d 22 22 8c 41 25 3d |.C$="".D$="".A%=|
00008700 31 0d 10 d6 3d e7 43 5f 24 3d 43 24 80 45 5f 24 |1...=.C_$=C$.E_$|
00008710 3d 45 24 80 42 24 3d 22 22 80 44 24 3d 22 22 84 |=E$.B$="".D$="".|
00008720 42 5f 24 3d 42 24 80 44 5f 24 3d 44 24 80 43 24 |B_$=B$.D_$=D$.C$|
00008730 3d 22 22 80 45 24 3d 22 22 8c 41 25 3d 31 0d 10 |="".E$="".A%=1..|
00008740 db 14 e7 41 25 3d 31 8c 3d 42 25 2b 31 20 8b 3d |...A%=1.=B%+1 .=|
00008750 42 25 0d 10 e0 42 dd a4 42 61 6e 6b 62 61 5f 3a |B%...B..Bankba_:|
00008760 ea 20 5a 25 3a 5a 25 3d 62 69 74 70 5f 25 2b 28 |. Z%:Z%=bitp_%+(|
00008770 62 61 6e 6b 70 5f 25 2d 31 29 2f 62 69 74 69 66 |bankp_%-1)/bitif|
00008780 5f 25 3a e7 5a 25 3d 30 84 62 61 6e 6b 6c 25 3d |_%:.Z%=0.bankl%=|
00008790 30 8c 3d a3 0d 10 e5 19 3d a4 42 61 6e 6b 73 46 |0.=.....=.BanksF|
000087a0 69 5f 28 5a 25 2d 31 2c 30 2c 2d 31 29 0d 10 ea |i_(Z%-1,0,-1)...|
000087b0 4c dd a4 42 61 6e 6b 66 6f 5f 3a 5a 25 3d 62 69 |L..Bankfo_:Z%=bi|
000087c0 74 70 5f 25 2b 28 62 61 6e 6b 70 5f 25 2d 31 29 |tp_%+(bankp_%-1)|
000087d0 2f 62 69 74 69 66 5f 25 3a e7 5a 25 3d 6d 61 78 |/bitif_%:.Z%=max|
000087e0 42 5f 25 2a 62 69 74 69 70 5f 25 2d 31 84 62 61 |B_%*bitip_%-1.ba|
000087f0 6e 6b 6c 25 3d 30 8c 3d a3 0d 10 ef 27 3d a4 42 |nkl%=0.=....'=.B|
00008800 61 6e 6b 73 46 69 5f 28 5a 25 2b 31 2c 6d 61 78 |anksFi_(Z%+1,max|
00008810 42 5f 25 2a 62 69 74 69 70 5f 25 2d 31 2c 31 29 |B_%*bitip_%-1,1)|
00008820 0d 10 f4 04 0d 11 49 1d dd f2 53 46 69 72 73 74 |......I...SFirst|
00008830 5f 3a e7 24 21 53 43 75 73 74 5f 25 3d 22 22 8c |_:.$!SCust_%="".|
00008840 e1 0d 11 4e 18 ea 20 41 25 2c 48 25 2c 5a 25 2c |...N.. A%,H%,Z%,|
00008850 41 24 3a 48 25 3d 74 5f 25 0d 11 53 0c c8 99 26 |A$:H%=t_%..S...&|
00008860 34 30 36 43 30 0d 11 58 0f e7 53 49 54 6e 32 5f |406C0..X..SITn2_|
00008870 25 3e 30 8c 0d 11 5d 08 5a 25 3d 31 0d 11 62 05 |%>0...].Z%=1..b.|
00008880 cc 0d 11 67 20 24 74 5f 25 3d 24 21 53 43 75 73 |...g $t_%=$!SCus|
00008890 74 5f 25 3a d6 6d 31 5f 25 3a 41 24 3d 24 74 5f |t_%:.m1_%:A$=$t_|
000088a0 25 0d 11 6c 55 e3 41 25 3d 31 b8 43 6d 61 78 73 |%..lU.A%=1.Cmaxs|
000088b0 75 70 70 5f 25 3a e7 a7 43 73 75 70 70 5f 24 28 |upp_%:..Csupp_$(|
000088c0 41 25 29 2c 41 24 29 8c 24 21 53 43 75 73 74 5f |A%),A$).$!SCust_|
000088d0 25 3d 43 53 75 70 70 6c 69 65 72 73 5f 24 28 41 |%=CSuppliers_$(A|
000088e0 25 29 3a 5a 25 3d 41 25 3a 41 25 3d 43 6d 61 78 |%):Z%=A%:A%=Cmax|
000088f0 73 75 70 70 5f 25 0d 11 71 05 ed 0d 11 76 05 cd |supp_%..q....v..|
00008900 0d 11 7b 16 e7 5a 25 3d 30 8c 24 21 53 43 75 73 |..{..Z%=0.$!SCus|
00008910 74 5f 25 3d 22 22 0d 11 80 0c c8 99 26 34 30 36 |t_%=""......&406|
00008920 43 31 0d 11 85 20 f2 72 49 28 57 25 2c 22 53 43 |C1... .rI(W%,"SC|
00008930 75 73 74 22 29 3a f2 73 65 74 43 5f 28 31 31 29 |ust"):.setC_(11)|
00008940 3a e1 0d 11 8a 44 dd a4 67 65 74 63 75 70 5f 28 |:....D..getcup_(|
00008950 41 5f 24 29 3a ea 20 41 25 2c 48 25 2c 5a 25 3a |A_$):. A%,H%,Z%:|
00008960 48 25 3d 74 5f 25 3a 24 74 5f 25 3d 41 5f 24 3a |H%=t_%:$t_%=A_$:|
00008970 d6 6d 31 5f 25 3a 41 5f 24 3d 24 74 5f 25 3a 6f |.m1_%:A_$=$t_%:o|
00008980 63 5f 24 3d 22 22 0d 11 8f 5e e3 41 25 3d 31 b8 |c_$=""...^.A%=1.|
00008990 43 6d 61 78 73 75 70 70 5f 25 3a e7 a7 43 73 75 |Cmaxsupp_%:..Csu|
000089a0 70 70 5f 24 28 41 25 29 2c 41 5f 24 29 8c 5a 25 |pp_$(A%),A_$).Z%|
000089b0 3d 43 53 75 4e 75 6d 62 65 72 5f 25 28 41 25 29 |=CSuNumber_%(A%)|
000089c0 3a 6f 63 5f 24 3d 43 53 75 70 70 6c 69 65 72 73 |:oc_$=CSuppliers|
000089d0 5f 24 28 41 25 29 3a 41 25 3d 43 6d 61 78 73 75 |_$(A%):A%=Cmaxsu|
000089e0 70 70 5f 25 0d 11 94 13 ed 3a e7 5a 25 3e 30 8c |pp_%.....:.Z%>0.|
000089f0 3d 5a 25 20 8b 3d 30 0d 11 a8 64 dd a4 67 65 74 |=Z% .=0...d..get|
00008a00 63 75 6e 5f 28 41 5f 25 29 3a ea 20 41 25 2c 41 |cun_(A_%):. A%,A|
00008a10 5f 24 3a e3 41 25 3d 31 b8 43 6d 61 78 73 75 70 |_$:.A%=1.Cmaxsup|
00008a20 70 5f 25 3a e7 41 5f 25 3d 43 53 75 4e 75 6d 62 |p_%:.A_%=CSuNumb|
00008a30 65 72 5f 25 28 41 25 29 3a 41 5f 24 3d 43 53 75 |er_%(A%):A_$=CSu|
00008a40 70 70 6c 69 65 72 73 5f 24 28 41 25 29 3a 41 25 |ppliers_$(A%):A%|
00008a50 3d 43 6d 61 78 73 75 70 70 5f 25 0d 11 ad 0a ed |=Cmaxsupp_%.....|
00008a60 3a 3d 41 5f 24 0d 11 c1 0f dd a4 43 53 75 46 69 |:=A_$......CSuFi|
00008a70 72 73 74 5f 0d 11 c6 18 ea 20 41 25 2c 48 25 2c |rst_..... A%,H%,|
00008a80 5a 25 2c 41 24 3a 48 25 3d 74 5f 25 0d 11 cb 0c |Z%,A$:H%=t_%....|
00008a90 c8 99 26 34 30 36 43 30 0d 11 d0 38 e7 43 46 69 |..&406C0...8.CFi|
00008aa0 6e 64 53 75 25 3e 30 8c 24 74 5f 25 3d 24 21 43 |ndSu%>0.$t_%=$!C|
00008ab0 53 53 75 70 70 6c 69 65 72 5f 25 3a d6 6d 31 5f |SSupplier_%:.m1_|
00008ac0 25 3a 41 24 3d 24 74 5f 25 20 8b 41 24 3d 22 22 |%:A$=$t_% .A$=""|
00008ad0 0d 11 d5 0b e7 41 24 3d 22 22 8c 0d 11 da 14 e3 |.....A$=""......|
00008ae0 41 25 3d 31 b8 43 6d 61 78 73 75 70 70 5f 25 0d |A%=1.Cmaxsupp_%.|
00008af0 11 df bf e7 43 73 75 70 70 5f 24 28 41 25 29 2b |....Csupp_$(A%)+|
00008b00 43 53 75 50 6f 73 5f 24 28 41 25 29 2b 43 53 75 |CSuPos_$(A%)+CSu|
00008b10 43 6f 6e 74 61 63 5f 24 28 41 25 29 2b 43 53 75 |Contac_$(A%)+CSu|
00008b20 54 65 6c 5f 24 28 41 25 29 2b 43 53 75 46 61 5f |Tel_$(A%)+CSuFa_|
00008b30 24 28 41 25 29 3d 22 22 8c 43 53 5f 25 3d 41 25 |$(A%)="".CS_%=A%|
00008b40 3a 41 25 3d 43 6d 61 78 73 75 70 70 5f 25 3a 43 |:A%=Cmaxsupp_%:C|
00008b50 53 75 77 69 6e 64 25 3d 30 3a 43 53 75 57 25 3d |Suwind%=0:CSuW%=|
00008b60 30 3a 5a 25 3d a4 77 69 6e 64 6f 77 28 22 43 75 |0:Z%=.window("Cu|
00008b70 73 74 6f 6d 57 22 29 3a 5a 25 3d a4 43 75 70 64 |stomW"):Z%=.Cupd|
00008b80 61 74 65 73 75 70 70 6c 69 65 72 5f 3a e7 43 46 |atesupplier_:.CF|
00008b90 69 6e 64 53 75 25 3e 30 8c 5a 25 3d a4 77 69 6e |indSu%>0.Z%=.win|
00008ba0 64 6f 77 28 22 43 46 69 6e 64 53 75 22 29 0d 11 |dow("CFindSu")..|
00008bb0 e4 05 ed 0d 11 e9 05 cc 0d 11 ee 14 e3 41 25 3d |.............A%=|
00008bc0 31 b8 43 6d 61 78 73 75 70 70 5f 25 0d 11 f3 e7 |1.Cmaxsupp_%....|
00008bd0 48 25 3d 74 5f 25 3a 24 74 5f 25 3d 43 73 75 70 |H%=t_%:$t_%=Csup|
00008be0 70 5f 24 28 41 25 29 2b 43 53 75 41 64 31 5f 24 |p_$(A%)+CSuAd1_$|
00008bf0 28 41 25 29 2b 43 53 75 41 64 32 5f 24 28 41 25 |(A%)+CSuAd2_$(A%|
00008c00 29 2b 43 53 75 41 64 33 5f 24 28 41 25 29 2b 43 |)+CSuAd3_$(A%)+C|
00008c10 53 75 41 64 34 5f 24 28 41 25 29 2b 43 53 75 50 |SuAd4_$(A%)+CSuP|
00008c20 6f 73 5f 24 28 41 25 29 3a d6 6d 31 5f 25 3a 48 |os_$(A%):.m1_%:H|
00008c30 25 3d 75 5f 25 3a 24 75 5f 25 3d 43 53 75 43 6f |%=u_%:$u_%=CSuCo|
00008c40 6e 74 61 63 5f 24 28 41 25 29 2b 43 53 75 54 65 |ntac_$(A%)+CSuTe|
00008c50 6c 5f 24 28 41 25 29 2b 43 53 75 46 61 5f 24 28 |l_$(A%)+CSuFa_$(|
00008c60 41 25 29 2b 43 53 75 43 6f 6d 31 5f 24 28 41 25 |A%)+CSuCom1_$(A%|
00008c70 29 2b 43 53 75 43 6f 6d 32 5f 24 28 41 25 29 2b |)+CSuCom2_$(A%)+|
00008c80 43 53 75 53 75 70 70 52 65 5f 24 28 41 25 29 2b |CSuSuppRe_$(A%)+|
00008c90 43 53 75 59 6f 75 72 52 65 5f 24 28 41 25 29 2b |CSuYourRe_$(A%)+|
00008ca0 43 53 75 4f 72 64 65 5f 24 28 41 25 29 3a d6 6d |CSuOrde_$(A%):.m|
00008cb0 31 5f 25 0d 11 f8 82 e7 a7 24 74 5f 25 2c 41 24 |1_%......$t_%,A$|
00008cc0 29 84 a7 24 75 5f 25 2c 41 24 29 8c 43 53 5f 25 |)..$u_%,A$).CS_%|
00008cd0 3d 41 25 3a 41 25 3d 43 6d 61 78 73 75 70 70 5f |=A%:A%=Cmaxsupp_|
00008ce0 25 3a 43 53 75 77 69 6e 64 25 3d 30 3a 43 53 75 |%:CSuwind%=0:CSu|
00008cf0 57 25 3d 30 3a 5a 25 3d a4 77 69 6e 64 6f 77 28 |W%=0:Z%=.window(|
00008d00 22 43 75 73 74 6f 6d 57 22 29 3a 5a 25 3d a4 43 |"CustomW"):Z%=.C|
00008d10 75 70 64 61 74 65 73 75 70 70 6c 69 65 72 5f 3a |updatesupplier_:|
00008d20 5a 25 3d a4 77 69 6e 64 6f 77 28 22 43 46 69 6e |Z%=.window("CFin|
00008d30 64 53 75 22 29 0d 11 fd 05 ed 0d 12 02 05 cd 0d |dSu")...........|
00008d40 12 07 0c c8 99 26 34 30 36 43 31 0d 12 0c 11 6f |.....&406C1....o|
00008d50 63 63 72 65 64 5f 25 3d 30 3a 3d b9 0d 12 11 04 |ccred_%=0:=.....|
00008d60 0d 12 16 10 dd a4 49 54 53 75 46 69 72 73 74 5f |......ITSuFirst_|
00008d70 0d 12 1b 18 ea 20 41 25 2c 48 25 2c 5a 25 2c 41 |..... A%,H%,Z%,A|
00008d80 24 3a 48 25 3d 74 5f 25 0d 12 20 19 e7 24 21 49 |$:H%=t_%.. ..$!I|
00008d90 54 73 75 70 70 6c 69 65 72 5f 25 3d 22 22 8c 3d |Tsupplier_%="".=|
00008da0 a3 0d 12 25 0c c8 99 26 34 30 36 43 30 0d 12 2a |...%...&406C0..*|
00008db0 65 e3 41 25 3d 31 b8 43 6d 61 78 73 75 70 70 5f |e.A%=1.Cmaxsupp_|
00008dc0 25 3a e7 49 54 73 75 70 6e 75 6d 4e 5f 25 3d 43 |%:.ITsupnumN_%=C|
00008dd0 53 75 4e 75 6d 62 65 72 5f 25 28 41 25 29 80 24 |SuNumber_%(A%).$|
00008de0 21 49 54 73 75 70 70 6c 69 65 72 5f 25 3d 43 53 |!ITsupplier_%=CS|
00008df0 75 70 70 6c 69 65 72 73 5f 24 28 41 25 29 8c 5a |uppliers_$(A%).Z|
00008e00 25 3d 41 25 3a 41 25 3d 43 6d 61 78 73 75 70 70 |%=A%:A%=Cmaxsupp|
00008e10 5f 25 0d 12 2f 05 ed 0d 12 34 15 e7 5a 25 3e 30 |_%../....4..Z%>0|
00008e20 8c c8 99 26 34 30 36 43 31 3a 3d b9 0d 12 39 2a |...&406C1:=...9*|
00008e30 5a 25 3d 30 3a 24 74 5f 25 3d 24 21 49 54 73 75 |Z%=0:$t_%=$!ITsu|
00008e40 70 70 6c 69 65 72 5f 25 3a d6 6d 31 5f 25 3a 41 |pplier_%:.m1_%:A|
00008e50 24 3d 24 74 5f 25 0d 12 3e 14 e3 41 25 3d 31 b8 |$=$t_%..>..A%=1.|
00008e60 43 6d 61 78 73 75 70 70 5f 25 0d 12 43 65 e7 a7 |Cmaxsupp_%..Ce..|
00008e70 43 73 75 70 70 5f 24 28 41 25 29 2c 41 24 29 8c |Csupp_$(A%),A$).|
00008e80 24 21 49 54 73 75 70 70 6c 69 65 72 5f 25 3d 43 |$!ITsupplier_%=C|
00008e90 53 75 70 70 6c 69 65 72 73 5f 24 28 41 25 29 3a |Suppliers_$(A%):|
00008ea0 49 54 73 75 70 6e 75 6d 4e 5f 25 3d 43 53 75 4e |ITsupnumN_%=CSuN|
00008eb0 75 6d 62 65 72 5f 25 28 41 25 29 3a 5a 25 3d 41 |umber_%(A%):Z%=A|
00008ec0 25 3a 41 25 3d 43 6d 61 78 73 75 70 70 5f 25 0d |%:A%=Cmaxsupp_%.|
00008ed0 12 48 05 ed 0d 12 4d 0c c8 99 26 34 30 36 43 31 |.H....M...&406C1|
00008ee0 0d 12 52 0c e7 5a 25 3e 30 8c 3d b9 0d 12 57 06 |..R..Z%>0.=...W.|
00008ef0 3d a3 0d 12 5c 04 0d 12 61 1a dd a4 50 49 54 53 |=...\...a...PITS|
00008f00 75 46 69 72 73 74 5f 28 41 5f 24 2c 61 5f 25 29 |uFirst_(A_$,a_%)|
00008f10 0d 12 66 0c e7 41 5f 24 3d 22 22 8c 0d 12 6b 29 |..f..A_$=""...k)|
00008f20 e7 61 5f 25 3d 31 3a 53 49 54 6e 5f 25 28 73 69 |.a_%=1:SITn_%(si|
00008f30 74 70 5f 25 2b 21 69 25 2f 73 69 74 69 66 5f 25 |tp_%+!i%/sitif_%|
00008f40 2b 31 29 3d 30 0d 12 70 29 e7 61 5f 25 3d 33 3a |+1)=0..p).a_%=3:|
00008f50 50 49 54 6e 5f 25 28 70 69 74 70 5f 25 2b 21 69 |PITn_%(pitp_%+!i|
00008f60 25 2f 73 69 74 69 66 5f 25 2b 31 29 3d 30 0d 12 |%/sitif_%+1)=0..|
00008f70 75 05 cd 0d 12 7a 0f e7 41 5f 24 3d 22 22 8c 3d |u....z..A_$="".=|
00008f80 22 22 0d 12 7f 83 e7 61 5f 25 3d 31 3a e7 53 49 |"".....a_%=1:.SI|
00008f90 54 6e 5f 25 28 73 69 74 70 5f 25 2b 21 69 25 2f |Tn_%(sitp_%+!i%/|
00008fa0 73 69 74 69 66 5f 25 2b 31 29 3e 30 3a e7 a4 67 |sitif_%+1)>0:..g|
00008fb0 65 74 63 75 6e 5f 28 53 49 54 6e 5f 25 28 73 69 |etcun_(SITn_%(si|
00008fc0 74 70 5f 25 2b 21 69 25 2f 73 69 74 69 66 5f 25 |tp_%+!i%/sitif_%|
00008fd0 2b 31 29 29 3d 41 5f 24 20 8c 3d 41 5f 24 20 8b |+1))=A_$ .=A_$ .|
00008fe0 e7 61 5f 25 3d 31 3a 53 49 54 6e 5f 25 28 73 69 |.a_%=1:SITn_%(si|
00008ff0 74 70 5f 25 2b 21 69 25 2f 73 69 74 69 66 5f 25 |tp_%+!i%/sitif_%|
00009000 2b 31 29 3d 30 0d 12 84 29 e7 61 5f 25 3d 33 3a |+1)=0...).a_%=3:|
00009010 50 49 54 6e 5f 25 28 70 69 74 70 5f 25 2b 21 69 |PITn_%(pitp_%+!i|
00009020 25 2f 73 69 74 69 66 5f 25 2b 31 29 3d 30 0d 12 |%/sitif_%+1)=0..|
00009030 89 48 ea 20 41 25 2c 42 25 2c 48 25 2c 5a 25 2c |.H. A%,B%,H%,Z%,|
00009040 41 24 2c 42 5f 25 3a 48 25 3d 74 5f 25 3a e7 61 |A$,B_%:H%=t_%:.a|
00009050 5f 25 3d 31 84 61 5f 25 3d 34 8c 42 25 3d 43 6d |_%=1.a_%=4.B%=Cm|
00009060 61 78 73 75 70 70 5f 25 20 8b 42 25 3d 6d 61 78 |axsupp_% .B%=max|
00009070 73 75 70 70 5f 25 0d 12 8e 0c c8 99 26 34 30 36 |supp_%......&406|
00009080 43 30 0d 12 93 13 e7 97 28 41 5f 24 29 3d 97 28 |C0......(A_$)=.(|
00009090 22 23 22 29 8c 0d 12 98 14 5a 25 3d a4 73 66 5f |"#").....Z%=.sf_|
000090a0 28 41 5f 24 2c 61 5f 25 29 0d 12 9d 05 cc 0d 12 |(A_$,a_%).......|
000090b0 a2 23 24 74 5f 25 3d 41 5f 24 3a d6 6d 31 5f 25 |.#$t_%=A_$:.m1_%|
000090c0 3a 41 24 3d 24 74 5f 25 3a e3 41 25 3d 31 b8 42 |:A$=$t_%:.A%=1.B|
000090d0 25 0d 12 a7 2e e7 61 5f 25 3d 31 84 61 5f 25 3d |%.....a_%=1.a_%=|
000090e0 34 3a e7 a7 43 73 75 70 70 5f 24 28 41 25 29 2c |4:..Csupp_$(A%),|
000090f0 41 24 29 8c 5a 25 3d 41 25 3a 41 25 3d 42 25 0d |A$).Z%=A%:A%=B%.|
00009100 12 ac 16 e7 61 5f 25 3d 32 84 61 5f 25 3d 33 3a |....a_%=2.a_%=3:|
00009110 41 25 3d 42 25 0d 12 b1 05 ed 0d 12 b6 05 cd 0d |A%=B%...........|
00009120 12 bb 77 c8 99 26 34 30 36 43 31 3a e7 61 5f 25 |..w..&406C1:.a_%|
00009130 3d 31 3a 53 49 54 6e 5f 25 28 73 69 74 70 5f 25 |=1:SITn_%(sitp_%|
00009140 2b 21 69 25 2f 73 69 74 69 66 5f 25 2b 31 29 3d |+!i%/sitif_%+1)=|
00009150 30 3a e7 5a 25 3e 30 8c 53 49 54 6e 5f 25 28 73 |0:.Z%>0.SITn_%(s|
00009160 69 74 70 5f 25 2b 21 69 25 2f 73 69 74 69 66 5f |itp_%+!i%/sitif_|
00009170 25 2b 31 29 3d 43 53 75 4e 75 6d 62 65 72 5f 25 |%+1)=CSuNumber_%|
00009180 28 5a 25 29 3a 3d 43 53 75 70 70 6c 69 65 72 73 |(Z%):=CSuppliers|
00009190 5f 24 28 5a 25 29 0d 12 c5 22 e7 61 5f 25 3d 34 |_$(Z%)...".a_%=4|
000091a0 3a e7 5a 25 3e 30 8c 3d 43 53 75 70 70 6c 69 65 |:.Z%>0.=CSupplie|
000091b0 72 73 5f 24 28 5a 25 29 0d 12 ca 29 e7 61 5f 25 |rs_$(Z%)...).a_%|
000091c0 3d 33 3a 50 49 54 6e 5f 25 28 70 69 74 70 5f 25 |=3:PITn_%(pitp_%|
000091d0 2b 21 69 25 2f 73 69 74 69 66 5f 25 2b 31 29 3d |+!i%/sitif_%+1)=|
000091e0 30 0d 12 cf 0e e7 61 5f 25 3d 30 8c 3d 22 22 0d |0.....a_%=0.="".|
000091f0 12 d4 08 3d 41 5f 24 0d 12 d9 38 dd a4 73 66 5f |...=A_$...8..sf_|
00009200 28 41 5f 24 2c 61 5f 25 29 3a ea 20 5a 25 3a e7 |(A_$,a_%):. Z%:.|
00009210 97 28 41 5f 24 29 3d 97 28 22 23 22 29 8c 5a 25 |.(A_$)=.("#").Z%|
00009220 3d bb 28 c1 41 5f 24 2c 32 2c 32 35 35 29 29 0d |=.(.A_$,2,255)).|
00009230 12 de 23 e7 61 5f 25 3d 33 3a e7 5a 25 3e 30 3a |..#.a_%=3:.Z%>0:|
00009240 e7 5a 25 3c 3d 6d 61 78 73 75 70 70 5f 25 8c 3d |.Z%<=maxsupp_%.=|
00009250 5a 25 0d 12 e3 24 e7 61 5f 25 3d 31 3a e7 5a 25 |Z%...$.a_%=1:.Z%|
00009260 3e 30 3a e7 5a 25 3c 3d 43 6d 61 78 73 75 70 70 |>0:.Z%<=Cmaxsupp|
00009270 5f 25 8c 3d 5a 25 0d 12 e8 06 3d 30 0d 13 42 0d |_%.=Z%....=0..B.|
00009280 dd a4 43 53 75 46 6f 72 5f 0d 13 47 1b ea 20 41 |..CSuFor_..G.. A|
00009290 25 2c 48 25 2c 5a 25 2c 41 24 2c 42 25 3a 48 25 |%,H%,Z%,A$,B%:H%|
000092a0 3d 74 5f 25 0d 13 4c 17 e7 43 53 5f 25 3d 43 6d |=t_%..L..CS_%=Cm|
000092b0 61 78 73 75 70 70 5f 25 8c 3d a3 0d 13 51 0c c8 |axsupp_%.=...Q..|
000092c0 99 26 34 30 36 43 30 0d 13 56 2f 24 74 5f 25 3d |.&406C0..V/$t_%=|
000092d0 24 21 43 53 53 75 70 70 6c 69 65 72 5f 25 3a d6 |$!CSSupplier_%:.|
000092e0 6d 31 5f 25 3a 41 24 3d 24 74 5f 25 3a 42 25 3d |m1_%:A$=$t_%:B%=|
000092f0 43 53 5f 25 2b 31 0d 13 5b 0b e7 41 24 3d 22 22 |CS_%+1..[..A$=""|
00009300 8c 0d 13 60 15 e3 41 25 3d 42 25 b8 43 6d 61 78 |...`..A%=B%.Cmax|
00009310 73 75 70 70 5f 25 0d 13 65 b3 e7 43 73 75 70 70 |supp_%..e..Csupp|
00009320 5f 24 28 41 25 29 2b 43 53 75 50 6f 73 5f 24 28 |_$(A%)+CSuPos_$(|
00009330 41 25 29 2b 43 53 75 43 6f 6e 74 61 63 5f 24 28 |A%)+CSuContac_$(|
00009340 41 25 29 2b 43 53 75 54 65 6c 5f 24 28 41 25 29 |A%)+CSuTel_$(A%)|
00009350 2b 43 53 75 46 61 5f 24 28 41 25 29 3d 22 22 8c |+CSuFa_$(A%)="".|
00009360 43 53 5f 25 3d 41 25 3a 41 25 3d 43 6d 61 78 73 |CS_%=A%:A%=Cmaxs|
00009370 75 70 70 5f 25 3a 43 53 75 77 69 6e 64 25 3d 30 |upp_%:CSuwind%=0|
00009380 3a 43 53 75 57 25 3d 30 3a 5a 25 3d a4 77 69 6e |:CSuW%=0:Z%=.win|
00009390 64 6f 77 28 22 43 75 73 74 6f 6d 57 22 29 3a 5a |dow("CustomW"):Z|
000093a0 25 3d a4 43 75 70 64 61 74 65 73 75 70 70 6c 69 |%=.Cupdatesuppli|
000093b0 65 72 5f 3a 5a 25 3d a4 77 69 6e 64 6f 77 28 22 |er_:Z%=.window("|
000093c0 43 46 69 6e 64 53 75 22 29 0d 13 6a 05 ed 0d 13 |CFindSu")..j....|
000093d0 6f 05 cc 0d 13 74 15 e3 41 25 3d 42 25 b8 43 6d |o....t..A%=B%.Cm|
000093e0 61 78 73 75 70 70 5f 25 0d 13 79 e7 48 25 3d 74 |axsupp_%..y.H%=t|
000093f0 5f 25 3a 24 74 5f 25 3d 43 73 75 70 70 5f 24 28 |_%:$t_%=Csupp_$(|
00009400 41 25 29 2b 43 53 75 41 64 31 5f 24 28 41 25 29 |A%)+CSuAd1_$(A%)|
00009410 2b 43 53 75 41 64 32 5f 24 28 41 25 29 2b 43 53 |+CSuAd2_$(A%)+CS|
00009420 75 41 64 33 5f 24 28 41 25 29 2b 43 53 75 41 64 |uAd3_$(A%)+CSuAd|
00009430 34 5f 24 28 41 25 29 2b 43 53 75 50 6f 73 5f 24 |4_$(A%)+CSuPos_$|
00009440 28 41 25 29 3a d6 6d 31 5f 25 3a 48 25 3d 75 5f |(A%):.m1_%:H%=u_|
00009450 25 3a 24 75 5f 25 3d 43 53 75 43 6f 6e 74 61 63 |%:$u_%=CSuContac|
00009460 5f 24 28 41 25 29 2b 43 53 75 54 65 6c 5f 24 28 |_$(A%)+CSuTel_$(|
00009470 41 25 29 2b 43 53 75 46 61 5f 24 28 41 25 29 2b |A%)+CSuFa_$(A%)+|
00009480 43 53 75 43 6f 6d 31 5f 24 28 41 25 29 2b 43 53 |CSuCom1_$(A%)+CS|
00009490 75 43 6f 6d 32 5f 24 28 41 25 29 2b 43 53 75 53 |uCom2_$(A%)+CSuS|
000094a0 75 70 70 52 65 5f 24 28 41 25 29 2b 43 53 75 59 |uppRe_$(A%)+CSuY|
000094b0 6f 75 72 52 65 5f 24 28 41 25 29 2b 43 53 75 4f |ourRe_$(A%)+CSuO|
000094c0 72 64 65 5f 24 28 41 25 29 3a d6 6d 31 5f 25 0d |rde_$(A%):.m1_%.|
000094d0 13 7e 82 e7 a7 24 74 5f 25 2c 41 24 29 84 a7 24 |.~...$t_%,A$)..$|
000094e0 75 5f 25 2c 41 24 29 8c 43 53 5f 25 3d 41 25 3a |u_%,A$).CS_%=A%:|
000094f0 41 25 3d 43 6d 61 78 73 75 70 70 5f 25 3a 43 53 |A%=Cmaxsupp_%:CS|
00009500 75 77 69 6e 64 25 3d 30 3a 43 53 75 57 25 3d 30 |uwind%=0:CSuW%=0|
00009510 3a 5a 25 3d a4 77 69 6e 64 6f 77 28 22 43 75 73 |:Z%=.window("Cus|
00009520 74 6f 6d 57 22 29 3a 5a 25 3d a4 43 75 70 64 61 |tomW"):Z%=.Cupda|
00009530 74 65 73 75 70 70 6c 69 65 72 5f 3a 5a 25 3d a4 |tesupplier_:Z%=.|
00009540 77 69 6e 64 6f 77 28 22 43 46 69 6e 64 53 75 22 |window("CFindSu"|
00009550 29 0d 13 83 05 ed 0d 13 88 05 cd 0d 13 8d 0c c8 |)...............|
00009560 99 26 34 30 36 43 31 0d 13 92 11 6f 63 63 72 65 |.&406C1....occre|
00009570 64 5f 25 3d 30 3a 3d b9 0d 13 97 04 0d 13 f1 0e |d_%=0:=.........|
00009580 dd a4 43 53 75 42 61 63 6b 5f 0d 13 f6 1b ea 20 |..CSuBack_..... |
00009590 41 25 2c 42 25 2c 48 25 2c 5a 25 2c 41 24 3a 48 |A%,B%,H%,Z%,A$:H|
000095a0 25 3d 74 5f 25 0d 13 fb 0e e7 43 53 5f 25 3d 31 |%=t_%.....CS_%=1|
000095b0 8c 3d a3 0d 14 00 0c c8 99 26 34 30 36 43 30 0d |.=.......&406C0.|
000095c0 14 05 2f 24 74 5f 25 3d 24 21 43 53 53 75 70 70 |../$t_%=$!CSSupp|
000095d0 6c 69 65 72 5f 25 3a d6 6d 31 5f 25 3a 41 24 3d |lier_%:.m1_%:A$=|
000095e0 24 74 5f 25 3a 42 25 3d 43 53 5f 25 2d 31 0d 14 |$t_%:B%=CS_%-1..|
000095f0 0a 0b e7 41 24 3d 22 22 8c 0d 14 0f 10 e3 41 25 |...A$=""......A%|
00009600 3d 42 25 b8 31 20 88 2d 31 0d 14 14 aa e7 43 73 |=B%.1 .-1.....Cs|
00009610 75 70 70 5f 24 28 41 25 29 2b 43 53 75 50 6f 73 |upp_$(A%)+CSuPos|
00009620 5f 24 28 41 25 29 2b 43 53 75 43 6f 6e 74 61 63 |_$(A%)+CSuContac|
00009630 5f 24 28 41 25 29 2b 43 53 75 54 65 6c 5f 24 28 |_$(A%)+CSuTel_$(|
00009640 41 25 29 2b 43 53 75 46 61 5f 24 28 41 25 29 3d |A%)+CSuFa_$(A%)=|
00009650 22 22 8c 43 53 5f 25 3d 41 25 3a 41 25 3d 31 3a |"".CS_%=A%:A%=1:|
00009660 43 53 75 77 69 6e 64 25 3d 30 3a 43 53 75 57 25 |CSuwind%=0:CSuW%|
00009670 3d 30 3a 5a 25 3d a4 77 69 6e 64 6f 77 28 22 43 |=0:Z%=.window("C|
00009680 75 73 74 6f 6d 57 22 29 3a 5a 25 3d a4 43 75 70 |ustomW"):Z%=.Cup|
00009690 64 61 74 65 73 75 70 70 6c 69 65 72 5f 3a 5a 25 |datesupplier_:Z%|
000096a0 3d a4 77 69 6e 64 6f 77 28 22 43 46 69 6e 64 53 |=.window("CFindS|
000096b0 75 22 29 0d 14 19 05 ed 0d 14 1e 05 cc 0d 14 23 |u")............#|
000096c0 10 e3 41 25 3d 42 25 b8 31 20 88 2d 31 0d 14 28 |..A%=B%.1 .-1..(|
000096d0 e7 48 25 3d 74 5f 25 3a 24 74 5f 25 3d 43 73 75 |.H%=t_%:$t_%=Csu|
000096e0 70 70 5f 24 28 41 25 29 2b 43 53 75 41 64 31 5f |pp_$(A%)+CSuAd1_|
000096f0 24 28 41 25 29 2b 43 53 75 41 64 32 5f 24 28 41 |$(A%)+CSuAd2_$(A|
00009700 25 29 2b 43 53 75 41 64 33 5f 24 28 41 25 29 2b |%)+CSuAd3_$(A%)+|
00009710 43 53 75 41 64 34 5f 24 28 41 25 29 2b 43 53 75 |CSuAd4_$(A%)+CSu|
00009720 50 6f 73 5f 24 28 41 25 29 3a d6 6d 31 5f 25 3a |Pos_$(A%):.m1_%:|
00009730 48 25 3d 75 5f 25 3a 24 75 5f 25 3d 43 53 75 43 |H%=u_%:$u_%=CSuC|
00009740 6f 6e 74 61 63 5f 24 28 41 25 29 2b 43 53 75 54 |ontac_$(A%)+CSuT|
00009750 65 6c 5f 24 28 41 25 29 2b 43 53 75 46 61 5f 24 |el_$(A%)+CSuFa_$|
00009760 28 41 25 29 2b 43 53 75 43 6f 6d 31 5f 24 28 41 |(A%)+CSuCom1_$(A|
00009770 25 29 2b 43 53 75 43 6f 6d 32 5f 24 28 41 25 29 |%)+CSuCom2_$(A%)|
00009780 2b 43 53 75 53 75 70 70 52 65 5f 24 28 41 25 29 |+CSuSuppRe_$(A%)|
00009790 2b 43 53 75 59 6f 75 72 52 65 5f 24 28 41 25 29 |+CSuYourRe_$(A%)|
000097a0 2b 43 53 75 4f 72 64 65 5f 24 28 41 25 29 3a d6 |+CSuOrde_$(A%):.|
000097b0 6d 31 5f 25 0d 14 2d 79 e7 a7 24 74 5f 25 2c 41 |m1_%..-y..$t_%,A|
000097c0 24 29 84 a7 24 75 5f 25 2c 41 24 29 8c 43 53 5f |$)..$u_%,A$).CS_|
000097d0 25 3d 41 25 3a 41 25 3d 31 3a 43 53 75 77 69 6e |%=A%:A%=1:CSuwin|
000097e0 64 25 3d 30 3a 43 53 75 57 25 3d 30 3a 5a 25 3d |d%=0:CSuW%=0:Z%=|
000097f0 a4 77 69 6e 64 6f 77 28 22 43 75 73 74 6f 6d 57 |.window("CustomW|
00009800 22 29 3a 5a 25 3d a4 43 75 70 64 61 74 65 73 75 |"):Z%=.Cupdatesu|
00009810 70 70 6c 69 65 72 5f 3a 5a 25 3d a4 77 69 6e 64 |pplier_:Z%=.wind|
00009820 6f 77 28 22 43 46 69 6e 64 53 75 22 29 0d 14 32 |ow("CFindSu")..2|
00009830 05 ed 0d 14 37 05 cd 0d 14 3c 0c c8 99 26 34 30 |....7....<...&40|
00009840 36 43 31 0d 14 41 11 6f 63 63 72 65 64 5f 25 3d |6C1..A.occred_%=|
00009850 30 3a 3d b9 0d 14 46 04 0d 14 cd 0d dd a4 49 6e |0:=...F.......In|
00009860 73 65 72 74 5f 0d 14 d2 0c ea 20 5a 25 2c 56 5f |sert_..... Z%,V_|
00009870 25 0d 14 dc 4f e7 24 77 6e 25 3d 22 53 61 6c 65 |%...O.$wn%="Sale|
00009880 64 22 8c 5a 25 3d a4 66 69 72 73 74 66 72 65 65 |d".Z%=.firstfree|
00009890 73 61 6c 5f 28 30 29 2d 34 3a f2 53 49 54 64 6f |sal_(0)-4:.SITdo|
000098a0 77 6e 5f 28 73 69 74 70 5f 25 2d 5a 25 29 3a f2 |wn_(sitp_%-Z%):.|
000098b0 73 65 74 53 49 54 64 61 74 5f 28 30 29 3a 3d b9 |setSITdat_(0):=.|
000098c0 0d 14 e1 50 e7 24 77 6e 25 3d 22 53 74 61 6e 64 |...P.$wn%="Stand|
000098d0 57 22 8c 5a 25 3d a4 66 69 72 73 74 66 72 65 65 |W".Z%=.firstfree|
000098e0 74 61 6c 5f 28 30 29 2d 34 3a f2 54 49 54 64 6f |tal_(0)-4:.TITdo|
000098f0 77 6e 5f 28 74 69 74 70 5f 25 2d 5a 25 29 3a f2 |wn_(titp_%-Z%):.|
00009900 73 65 74 54 49 54 64 61 74 5f 28 30 29 3a 3d b9 |setTITdat_(0):=.|
00009910 0d 14 e6 50 e7 24 77 6e 25 3d 22 50 61 6c 65 64 |...P.$wn%="Paled|
00009920 22 8c 5a 25 3d a4 66 69 72 73 74 66 72 65 65 70 |".Z%=.firstfreep|
00009930 61 79 6d 5f 28 30 29 2d 34 3a f2 50 49 54 64 6f |aym_(0)-4:.PITdo|
00009940 77 6e 5f 28 70 69 74 70 5f 25 2d 5a 25 29 3a f2 |wn_(pitp_%-Z%):.|
00009950 73 65 74 50 49 54 64 61 74 5f 28 30 29 3a 3d b9 |setPITdat_(0):=.|
00009960 0d 14 eb 50 e7 24 77 6e 25 3d 22 42 61 6e 6b 4c |...P.$wn%="BankL|
00009970 22 8c 5a 25 3d a4 66 69 72 73 74 66 72 65 65 62 |".Z%=.firstfreeb|
00009980 61 6e 6b 5f 28 30 29 2d 34 3a f2 42 49 54 64 6f |ank_(0)-4:.BITdo|
00009990 77 6e 5f 28 62 69 74 70 5f 25 2d 5a 25 29 3a f2 |wn_(bitp_%-Z%):.|
000099a0 73 65 74 42 49 54 64 61 74 5f 28 30 29 3a 3d b9 |setBITdat_(0):=.|
000099b0 0d 15 09 14 e7 24 77 6e 25 3d 22 43 75 73 74 6f |.....$wn%="Custo|
000099c0 6d 57 22 8c 0d 15 0e 21 e7 43 46 69 6e 64 53 75 |mW"....!.CFindSu|
000099d0 25 3e 30 8c 24 21 43 53 53 75 70 70 6c 69 65 72 |%>0.$!CSSupplier|
000099e0 5f 25 3d 22 22 0d 15 13 17 5a 25 3d a4 43 53 75 |_%=""....Z%=.CSu|
000099f0 46 69 72 73 74 5f 3a 56 5f 25 3d b9 0d 15 18 05 |First_:V_%=.....|
00009a00 cd 0d 15 1d 1b e7 24 77 6e 25 3d 22 49 6e 76 57 |......$wn%="InvW|
00009a10 22 8c 3d a4 4e 65 77 53 61 6c 65 5f 0d 15 22 08 |".=.NewSale_..".|
00009a20 3d 56 5f 25 0d 15 27 04 0d 15 2c 58 dd a4 4e 65 |=V_%..'...,X..Ne|
00009a30 77 53 61 6c 65 5f 3a ea 20 5a 25 3a e7 24 77 6e |wSale_:. Z%:.$wn|
00009a40 25 3d 22 49 6e 76 57 22 8c 24 21 49 54 73 75 70 |%="InvW".$!ITsup|
00009a50 70 6c 69 65 72 5f 25 3d 22 22 3a f2 72 49 28 69 |plier_%="":.rI(i|
00009a60 6e 76 57 25 2c 22 49 54 73 75 70 70 6c 69 65 72 |nvW%,"ITsupplier|
00009a70 22 29 3a f2 73 65 74 43 5f 28 34 39 29 3a 3d b9 |"):.setC_(49):=.|
00009a80 0d 15 36 06 3d b9 0d 15 4f 1c dd a4 55 73 65 72 |..6.=...O...User|
00009a90 5f 3a 3d a4 77 69 6e 64 6f 77 28 22 55 73 65 72 |_:=.window("User|
00009aa0 22 29 0d 15 5e 62 dd a4 43 75 73 74 6f 6d 57 5f |")..^b..CustomW_|
00009ab0 3a ea 20 56 24 3a 56 24 3d 70 61 73 73 34 5f 24 |:. V$:V$=pass4_$|
00009ac0 3a e7 43 53 75 77 69 6e 64 25 3d 30 3a e7 70 61 |:.CSuwind%=0:.pa|
00009ad0 73 73 34 5f 24 3c 3e 22 22 8c 56 24 3d a4 69 6e |ss4_$<>"".V$=.in|
00009ae0 70 75 74 28 70 61 73 73 6d 31 5f 24 2c 22 22 2c |put(passm1_$,"",|
00009af0 22 4f 4b 22 2c 35 2c 22 61 72 5f 71 75 65 73 74 |"OK",5,"ar_quest|
00009b00 22 2c 31 29 0d 15 63 27 e7 56 24 3d 70 61 73 73 |",1)..c'.V$=pass|
00009b10 34 5f 24 8c 3d a4 77 69 6e 64 6f 77 28 22 43 75 |4_$.=.window("Cu|
00009b20 73 74 6f 6d 57 22 29 20 8b 3d a3 0d 15 68 1c dd |stomW") .=...h..|
00009b30 a4 43 61 6c 63 5f 3a 3d a4 77 69 6e 64 6f 77 28 |.Calc_:=.window(|
00009b40 22 43 61 6c 63 22 29 0d 15 72 24 dd a4 49 6e 76 |"Calc")..r$..Inv|
00009b50 6f 69 63 65 57 5f 3a 3d a4 77 69 6e 64 6f 77 28 |oiceW_:=.window(|
00009b60 22 49 6e 76 6f 69 63 65 57 22 29 0d 15 7c 17 dd |"InvoiceW")..|..|
00009b70 a4 70 72 63 74 5f 3a f2 77 6c 5f 28 32 38 29 3a |.prct_:.wl_(28):|
00009b80 3d a3 0d 15 9a 24 dd a4 43 6f 6e 74 72 6f 6c 57 |=....$..ControlW|
00009b90 5f 3a 3d a4 77 69 6e 64 6f 77 28 22 43 6f 6e 74 |_:=.window("Cont|
00009ba0 72 6f 6c 57 22 29 0d 15 a4 20 dd a4 50 72 65 66 |rolW")... ..Pref|
00009bb0 65 72 5f 3a 3d a4 77 69 6e 64 6f 77 28 22 50 72 |er_:=.window("Pr|
00009bc0 65 66 65 72 22 29 0d 15 a9 1e dd a4 53 73 61 76 |efer")......Ssav|
00009bd0 65 5f 3a 3d a4 77 69 6e 64 6f 77 28 22 53 73 61 |e_:=.window("Ssa|
00009be0 76 65 22 29 0d 15 ae 24 dd a4 56 61 74 43 6f 64 |ve")...$..VatCod|
00009bf0 65 57 5f 3a 3d a4 77 69 6e 64 6f 77 28 22 56 61 |eW_:=.window("Va|
00009c00 74 43 6f 64 65 57 22 29 0d 15 b3 1e dd a4 50 61 |tCodeW")......Pa|
00009c10 73 73 57 5f 3a 3d a4 77 69 6e 64 6f 77 28 22 50 |ssW_:=.window("P|
00009c20 61 73 73 57 22 29 0d 15 bd 22 dd a4 43 53 75 53 |assW")..."..CSuS|
00009c30 61 76 65 5f 3a 3d a4 77 69 6e 64 6f 77 28 22 43 |ave_:=.window("C|
00009c40 53 75 53 61 76 65 22 29 0d 15 c2 20 dd a4 49 6e |SuSave")... ..In|
00009c50 76 4e 75 6d 49 5f 3a 4f 6e 75 6d 25 3d 31 3a 3d |vNumI_:Onum%=1:=|
00009c60 a4 49 6e 76 4e 75 6d 5f 0d 15 c7 20 dd a4 49 6e |.InvNum_... ..In|
00009c70 76 4e 75 6d 4f 5f 3a 4f 6e 75 6d 25 3d 33 3a 3d |vNumO_:Onum%=3:=|
00009c80 a4 49 6e 76 4e 75 6d 5f 0d 15 cc 22 dd a4 49 6e |.InvNum_..."..In|
00009c90 76 4d 65 6e 75 5f 3a 3d a4 77 69 6e 64 6f 77 28 |vMenu_:=.window(|
00009ca0 22 49 6e 76 4d 65 6e 75 22 29 0d 15 d1 20 dd a4 |"InvMenu")... ..|
00009cb0 49 6e 76 4e 75 6d 5f 3a 3d a4 77 69 6e 64 6f 77 |InvNum_:=.window|
00009cc0 28 22 49 6e 76 4e 75 6d 22 29 0d 15 d6 24 dd a4 |("InvNum")...$..|
00009cd0 53 74 61 74 4d 65 6e 75 5f 3a 3d a4 77 69 6e 64 |StatMenu_:=.wind|
00009ce0 6f 77 28 22 53 74 61 74 4d 65 6e 75 22 29 0d 15 |ow("StatMenu")..|
00009cf0 db 2c dd a4 63 72 65 64 69 74 5f 3a e7 57 25 21 |.,..credit_:.W%!|
00009d00 31 32 3d 43 53 75 77 69 6e 64 25 3a 3d a4 43 63 |12=CSuwind%:=.Cc|
00009d10 72 65 64 69 74 5f 20 8b 3d a3 0d 15 e5 22 dd a4 |redit_ .=...."..|
00009d20 43 63 72 65 64 69 74 5f 3a 3d a4 77 69 6e 64 6f |Ccredit_:=.windo|
00009d30 77 28 22 43 63 72 65 64 69 74 22 29 0d 15 ea 1e |w("Ccredit")....|
00009d40 dd a4 53 74 61 74 43 5f 3a 3d a4 77 69 6e 64 6f |..StatC_:=.windo|
00009d50 77 28 22 53 74 61 74 43 22 29 0d 15 ef 24 dd a4 |w("StatC")...$..|
00009d60 53 63 6f 6e 74 72 6f 6c 5f 3a 3d a4 77 69 6e 64 |Scontrol_:=.wind|
00009d70 6f 77 28 22 53 63 6f 6e 74 72 6f 6c 22 29 0d 15 |ow("Scontrol")..|
00009d80 f4 31 dd a4 49 6e 76 57 5f 3a ea 20 5a 25 3a e7 |.1..InvW_:. Z%:.|
00009d90 43 53 75 77 69 6e 64 25 3e 30 3a 5a 25 3d a4 43 |CSuwind%>0:Z%=.C|
00009da0 75 70 64 61 74 65 73 75 70 70 6c 69 65 72 5f 0d |updatesupplier_.|
00009db0 15 f9 14 3d a4 77 69 6e 64 6f 77 28 22 49 6e 76 |...=.window("Inv|
00009dc0 57 22 29 0d 16 03 20 dd a4 48 65 61 64 73 5f 3a |W")... ..Heads_:|
00009dd0 3d a4 77 69 6e 64 6f 77 28 22 48 65 61 64 69 6e |=.window("Headin|
00009de0 67 22 29 0d 16 08 22 dd a4 53 61 6c 65 73 48 5f |g")..."..SalesH_|
00009df0 3a 3d a4 77 69 6e 64 6f 77 28 22 48 65 61 64 69 |:=.window("Headi|
00009e00 6e 67 73 22 29 0d 16 0d 23 dd a4 50 75 72 63 68 |ngs")...#..Purch|
00009e10 48 5f 3a 3d a4 77 69 6e 64 6f 77 28 22 50 48 65 |H_:=.window("PHe|
00009e20 61 64 69 6e 67 73 22 29 0d 16 12 1e dd a4 42 61 |adings")......Ba|
00009e30 6e 6b 73 5f 3a 3d a4 77 69 6e 64 6f 77 28 22 42 |nks_:=.window("B|
00009e40 61 6e 6b 73 22 29 0d 16 17 5e dd a4 53 61 6c 65 |anks")...^..Sale|
00009e50 64 5f 3a ea 20 56 24 3a 56 24 3d 70 61 73 73 35 |d_:. V$:V$=pass5|
00009e60 5f 24 3a e7 73 61 6c 65 64 25 3d 30 3a e7 70 61 |_$:.saled%=0:.pa|
00009e70 73 73 35 5f 24 3c 3e 22 22 8c 56 24 3d a4 69 6e |ss5_$<>"".V$=.in|
00009e80 70 75 74 28 70 61 73 73 6d 31 5f 24 2c 22 22 2c |put(passm1_$,"",|
00009e90 22 4f 4b 22 2c 35 2c 22 61 72 5f 71 75 65 73 74 |"OK",5,"ar_quest|
00009ea0 22 2c 31 29 0d 16 1c 25 e7 56 24 3d 70 61 73 73 |",1)...%.V$=pass|
00009eb0 35 5f 24 8c 3d a4 77 69 6e 64 6f 77 28 22 53 61 |5_$.=.window("Sa|
00009ec0 6c 65 64 22 29 20 8b 3d a3 0d 16 21 5e dd a4 50 |led") .=...!^..P|
00009ed0 61 6c 65 64 5f 3a ea 20 56 24 3a 56 24 3d 70 61 |aled_:. V$:V$=pa|
00009ee0 73 73 36 5f 24 3a e7 70 61 6c 65 64 25 3d 30 3a |ss6_$:.paled%=0:|
00009ef0 e7 70 61 73 73 36 5f 24 3c 3e 22 22 8c 56 24 3d |.pass6_$<>"".V$=|
00009f00 a4 69 6e 70 75 74 28 70 61 73 73 6d 31 5f 24 2c |.input(passm1_$,|
00009f10 22 22 2c 22 4f 4b 22 2c 35 2c 22 61 72 5f 71 75 |"","OK",5,"ar_qu|
00009f20 65 73 74 22 2c 31 29 0d 16 26 25 e7 56 24 3d 70 |est",1)..&%.V$=p|
00009f30 61 73 73 36 5f 24 8c 3d a4 77 69 6e 64 6f 77 28 |ass6_$.=.window(|
00009f40 22 50 61 6c 65 64 22 29 20 8b 3d a3 0d 16 2b 5e |"Paled") .=...+^|
00009f50 dd a4 42 61 6e 6b 4c 5f 3a ea 20 56 24 3a 56 24 |..BankL_:. V$:V$|
00009f60 3d 70 61 73 73 37 5f 24 3a e7 62 61 6e 6b 6c 25 |=pass7_$:.bankl%|
00009f70 3d 30 3a e7 70 61 73 73 37 5f 24 3c 3e 22 22 8c |=0:.pass7_$<>"".|
00009f80 56 24 3d a4 69 6e 70 75 74 28 70 61 73 73 6d 31 |V$=.input(passm1|
00009f90 5f 24 2c 22 22 2c 22 4f 4b 22 2c 35 2c 22 61 72 |_$,"","OK",5,"ar|
00009fa0 5f 71 75 65 73 74 22 2c 31 29 0d 16 30 25 e7 56 |_quest",1)..0%.V|
00009fb0 24 3d 70 61 73 73 37 5f 24 8c 3d a4 77 69 6e 64 |$=pass7_$.=.wind|
00009fc0 6f 77 28 22 42 61 6e 6b 4c 22 29 20 8b 3d a3 0d |ow("BankL") .=..|
00009fd0 16 35 22 dd a4 53 61 6c 65 64 46 57 5f 3a 3d a4 |.5"..SaledFW_:=.|
00009fe0 77 69 6e 64 6f 77 28 22 53 61 6c 65 64 46 57 22 |window("SaledFW"|
00009ff0 29 0d 16 3a 22 dd a4 53 61 6c 65 64 52 57 5f 3a |)..:"..SaledRW_:|
0000a000 3d a4 77 69 6e 64 6f 77 28 22 53 61 6c 65 64 52 |=.window("SaledR|
0000a010 57 22 29 0d 16 3f 22 dd a4 50 61 6c 65 64 46 57 |W")..?"..PaledFW|
0000a020 5f 3a 3d a4 77 69 6e 64 6f 77 28 22 50 61 6c 65 |_:=.window("Pale|
0000a030 64 46 57 22 29 0d 16 44 22 dd a4 50 61 6c 65 64 |dFW")..D"..Paled|
0000a040 52 57 5f 3a 3d a4 77 69 6e 64 6f 77 28 22 50 61 |RW_:=.window("Pa|
0000a050 6c 65 64 52 57 22 29 0d 16 49 20 dd a4 42 61 6e |ledRW")..I ..Ban|
0000a060 6b 46 57 5f 3a 3d a4 77 69 6e 64 6f 77 28 22 42 |kFW_:=.window("B|
0000a070 61 6e 6b 46 57 22 29 0d 16 4e 20 dd a4 42 61 6e |ankFW")..N ..Ban|
0000a080 6b 52 57 5f 3a 3d a4 77 69 6e 64 6f 77 28 22 42 |kRW_:=.window("B|
0000a090 61 6e 6b 52 57 22 29 0d 16 53 1c dd a4 56 61 74 |ankRW")..S...Vat|
0000a0a0 50 5f 3a 3d a4 77 69 6e 64 6f 77 28 22 56 61 74 |P_:=.window("Vat|
0000a0b0 50 22 29 0d 16 58 24 dd a4 56 61 74 50 43 6f 6e |P")..X$..VatPCon|
0000a0c0 74 5f 3a 3d a4 77 69 6e 64 6f 77 28 22 56 61 74 |t_:=.window("Vat|
0000a0d0 50 43 6f 6e 74 22 29 0d 16 5d 1e dd a4 42 61 6e |PCont")..]...Ban|
0000a0e0 6b 50 5f 3a 3d a4 77 69 6e 64 6f 77 28 22 42 61 |kP_:=.window("Ba|
0000a0f0 6e 6b 50 22 29 0d 16 62 20 dd a4 53 74 61 6e 64 |nkP")..b ..Stand|
0000a100 57 5f 3a 3d a4 77 69 6e 64 6f 77 28 22 53 74 61 |W_:=.window("Sta|
0000a110 6e 64 57 22 29 0d 16 67 17 dd a4 42 61 6c 57 5f |ndW")..g...BalW_|
0000a120 3a f2 77 6c 5f 28 32 38 29 3a 3d b9 0d 16 76 08 |:.wl_(28):=...v.|
0000a130 dd a4 6d 5f 0d 16 7b 08 ea 20 5a 25 0d 16 8f 1f |..m_..{.. Z%....|
0000a140 e7 24 77 6e 25 3d 22 43 46 69 6e 64 53 75 22 8c |.$wn%="CFindSu".|
0000a150 63 75 72 6c 69 6e 6b 5f 25 3d 36 0d 16 94 1c e7 |curlink_%=6.....|
0000a160 24 77 6e 25 3d 22 49 6e 76 57 22 8c 63 75 72 6c |$wn%="InvW".curl|
0000a170 69 6e 6b 5f 25 3d 37 0d 16 99 1d e7 24 77 6e 25 |ink_%=7.....$wn%|
0000a180 3d 22 53 61 6c 65 64 22 8c 63 75 72 6c 69 6e 6b |="Saled".curlink|
0000a190 5f 25 3d 38 0d 16 9e 1d e7 24 77 6e 25 3d 22 50 |_%=8.....$wn%="P|
0000a1a0 61 6c 65 64 22 8c 63 75 72 6c 69 6e 6b 5f 25 3d |aled".curlink_%=|
0000a1b0 39 0d 16 a3 20 e7 24 77 6e 25 3d 22 53 61 6c 65 |9... .$wn%="Sale|
0000a1c0 64 46 57 22 8c 63 75 72 6c 69 6e 6b 5f 25 3d 31 |dFW".curlink_%=1|
0000a1d0 30 0d 16 a8 20 e7 24 77 6e 25 3d 22 50 61 6c 65 |0... .$wn%="Pale|
0000a1e0 64 46 57 22 8c 63 75 72 6c 69 6e 6b 5f 25 3d 31 |dFW".curlink_%=1|
0000a1f0 31 0d 16 ad 20 e7 24 77 6e 25 3d 22 53 61 6c 65 |1... .$wn%="Sale|
0000a200 64 52 57 22 8c 63 75 72 6c 69 6e 6b 5f 25 3d 31 |dRW".curlink_%=1|
0000a210 32 0d 16 b2 20 e7 24 77 6e 25 3d 22 50 61 6c 65 |2... .$wn%="Pale|
0000a220 64 52 57 22 8c 63 75 72 6c 69 6e 6b 5f 25 3d 31 |dRW".curlink_%=1|
0000a230 33 0d 16 b7 21 e7 24 77 6e 25 3d 22 53 63 6f 6e |3...!.$wn%="Scon|
0000a240 74 72 6f 6c 22 8c 63 75 72 6c 69 6e 6b 5f 25 3d |trol".curlink_%=|
0000a250 31 34 0d 16 bc 21 e7 24 77 6e 25 3d 22 48 65 61 |14...!.$wn%="Hea|
0000a260 64 69 6e 67 73 22 8c 63 75 72 6c 69 6e 6b 5f 25 |dings".curlink_%|
0000a270 3d 31 35 0d 16 c1 22 e7 24 77 6e 25 3d 22 50 48 |=15...".$wn%="PH|
0000a280 65 61 64 69 6e 67 73 22 8c 63 75 72 6c 69 6e 6b |eadings".curlink|
0000a290 5f 25 3d 31 36 0d 16 cb 15 e7 24 6d 6e 25 3d 22 |_%=16.....$mn%="|
0000a2a0 45 64 69 74 49 74 22 8c 3d a3 0d 16 d5 41 e7 24 |EditIt".=....A.$|
0000a2b0 6d 6e 25 3d 22 43 53 75 70 70 4c 69 73 74 22 8c |mn%="CSuppList".|
0000a2c0 c8 99 26 34 30 36 43 30 3a e7 43 6d 61 78 73 75 |..&406C0:.Cmaxsu|
0000a2d0 70 70 5f 25 3e 3d 6d 61 78 6d 65 6e 75 5f 25 8c |pp_%>=maxmenu_%.|
0000a2e0 c8 99 26 34 30 36 43 31 3a 3d a3 0d 16 da 41 e7 |..&406C1:=....A.|
0000a2f0 24 6d 6e 25 3d 22 48 65 61 64 4c 69 73 74 53 22 |$mn%="HeadListS"|
0000a300 8c c8 99 26 34 30 36 43 30 3a 5a 25 3d a4 75 70 |...&406C0:Z%=.up|
0000a310 64 61 74 65 68 65 61 64 73 4d 5f 28 30 29 3a f2 |dateheadsM_(0):.|
0000a320 75 70 6c 68 65 61 64 73 5f 3a 3d b9 0d 16 df 41 |uplheads_:=....A|
0000a330 e7 24 6d 6e 25 3d 22 48 65 61 64 4c 69 73 74 50 |.$mn%="HeadListP|
0000a340 22 8c c8 99 26 34 30 36 43 30 3a 5a 25 3d a4 75 |"...&406C0:Z%=.u|
0000a350 70 64 61 74 65 68 65 61 64 70 4d 5f 28 30 29 3a |pdateheadpM_(0):|
0000a360 f2 75 70 6c 68 65 61 64 70 5f 3a 3d b9 0d 16 e4 |.uplheadp_:=....|
0000a370 32 e7 24 6d 6e 25 3d 22 49 6e 76 4c 22 8c c8 99 |2.$mn%="InvL"...|
0000a380 26 34 30 36 43 30 3a f2 75 70 64 61 74 65 69 6e |&406C0:.updatein|
0000a390 76 6c 5f 3a f2 75 70 6c 69 6e 76 5f 3a 3d b9 0d |vl_:.uplinv_:=..|
0000a3a0 16 e9 31 e7 24 6d 6e 25 3d 22 42 61 6e 6b 4c 69 |..1.$mn%="BankLi|
0000a3b0 73 74 22 8c 5a 25 3d a4 75 70 64 61 74 65 62 61 |st".Z%=.updateba|
0000a3c0 6e 6b 5f 3a f2 75 70 6c 62 61 6e 6b 5f 3a 3d b9 |nk_:.uplbank_:=.|
0000a3d0 0d 16 ee 1d e7 24 6d 6e 25 3d 22 46 6f 6e 74 4c |.....$mn%="FontL|
0000a3e0 69 73 74 22 8c c8 99 26 34 30 36 43 30 0d 17 0c |ist"...&406C0...|
0000a3f0 20 e7 24 77 6e 25 3d 22 43 53 75 70 4c 61 62 57 | .$wn%="CSupLabW|
0000a400 22 8c 66 6f 6e 6c 69 6e 6b 5f 25 3d 36 0d 17 11 |".fonlink_%=6...|
0000a410 21 e7 24 77 6e 25 3d 22 43 53 75 70 4c 69 73 74 |!.$wn%="CSupList|
0000a420 57 22 8c 66 6f 6e 6c 69 6e 6b 5f 25 3d 37 0d 17 |W".fonlink_%=7..|
0000a430 16 1e e7 24 6d 6e 25 3d 22 4f 72 64 65 72 4d 22 |...$mn%="OrderM"|
0000a440 8c 66 6f 6e 6c 69 6e 6b 5f 25 3d 38 0d 17 1b 1f |.fonlink_%=8....|
0000a450 e7 24 6d 6e 25 3d 22 4f 72 64 65 72 4d 49 22 8c |.$mn%="OrderMI".|
0000a460 66 6f 6e 6c 69 6e 6b 5f 25 3d 39 0d 17 20 20 e7 |fonlink_%=9.. .|
0000a470 24 77 6e 25 3d 22 53 61 6c 65 64 52 57 22 8c 66 |$wn%="SaledRW".f|
0000a480 6f 6e 6c 69 6e 6b 5f 25 3d 31 30 0d 17 25 20 e7 |onlink_%=10..% .|
0000a490 24 77 6e 25 3d 22 50 61 6c 65 64 52 57 22 8c 66 |$wn%="PaledRW".f|
0000a4a0 6f 6e 6c 69 6e 6b 5f 25 3d 31 31 0d 17 2a 1f e7 |onlink_%=11..*..|
0000a4b0 24 77 6e 25 3d 22 42 61 6e 6b 52 57 22 8c 66 6f |$wn%="BankRW".fo|
0000a4c0 6e 6c 69 6e 6b 5f 25 3d 31 32 0d 17 2f 1e e7 24 |nlink_%=12../..$|
0000a4d0 77 6e 25 3d 22 42 61 6e 6b 50 22 8c 66 6f 6e 6c |wn%="BankP".fonl|
0000a4e0 69 6e 6b 5f 25 3d 31 33 0d 17 34 21 e7 24 6d 6e |ink_%=13..4!.$mn|
0000a4f0 25 3d 22 4f 72 64 65 72 4d 49 53 22 8c 66 6f 6e |%="OrderMIS".fon|
0000a500 6c 69 6e 6b 5f 25 3d 31 34 0d 17 39 21 e7 24 77 |link_%=14..9!.$w|
0000a510 6e 25 3d 22 56 61 74 50 43 6f 6e 74 22 8c 66 6f |n%="VatPCont".fo|
0000a520 6e 6c 69 6e 6b 5f 25 3d 31 35 0d 17 48 15 e7 24 |nlink_%=15..H..$|
0000a530 6d 6e 25 3d 22 4f 72 64 65 72 53 4d 49 22 8c 0d |mn%="OrderSMI"..|
0000a540 17 4d 34 66 6f 6e 6c 69 6e 6b 5f 25 3d 21 69 25 |.M4fonlink_%=!i%|
0000a550 2b 49 41 66 6f 6e 5f 25 3a f2 70 4d 54 28 24 6d |+IAfon_%:.pMT($m|
0000a560 6e 25 2c 49 4f 72 64 65 72 6d 65 5f 24 28 21 69 |n%,IOrderme_$(!i|
0000a570 25 29 29 0d 17 52 c6 69 6e 76 31 31 5f 25 28 66 |%))..R.inv11_%(f|
0000a580 6f 6e 6c 69 6e 6b 5f 25 2d 49 41 66 6f 6e 5f 25 |onlink_%-IAfon_%|
0000a590 29 3d 2d 69 6e 76 31 31 5f 25 28 66 6f 6e 6c 69 |)=-inv11_%(fonli|
0000a5a0 6e 6b 5f 25 2d 49 41 66 6f 6e 5f 25 29 3a 69 6e |nk_%-IAfon_%):in|
0000a5b0 76 32 32 5f 25 28 66 6f 6e 6c 69 6e 6b 5f 25 2d |v22_%(fonlink_%-|
0000a5c0 49 41 66 6f 6e 5f 25 29 3d 2d 69 6e 76 32 32 5f |IAfon_%)=-inv22_|
0000a5d0 25 28 66 6f 6e 6c 69 6e 6b 5f 25 2d 49 41 66 6f |%(fonlink_%-IAfo|
0000a5e0 6e 5f 25 29 3a 69 6e 76 33 33 5f 25 28 66 6f 6e |n_%):inv33_%(fon|
0000a5f0 6c 69 6e 6b 5f 25 2d 49 41 66 6f 6e 5f 25 29 3d |link_%-IAfon_%)=|
0000a600 2d 69 6e 76 33 33 5f 25 28 66 6f 6e 6c 69 6e 6b |-inv33_%(fonlink|
0000a610 5f 25 2d 49 41 66 6f 6e 5f 25 29 3a 5a 25 3d a4 |_%-IAfon_%):Z%=.|
0000a620 69 6e 76 31 5f 3a 5a 25 3d a4 69 6e 76 32 5f 3a |inv1_:Z%=.inv2_:|
0000a630 5a 25 3d a4 69 6e 76 33 5f 0d 17 57 05 cd 0d 17 |Z%=.inv3_..W....|
0000a640 61 28 e7 24 6d 6e 25 3d 22 49 63 6f 6e 42 61 72 |a(.$mn%="IconBar|
0000a650 22 3a f2 6f 76 72 4d 28 22 49 63 6f 6e 42 61 72 |":.ovrM("IconBar|
0000a660 31 22 29 3a 3d b9 0d 17 66 16 e7 24 6d 6e 25 3d |1"):=...f..$mn%=|
0000a670 22 49 63 6f 6e 42 61 72 22 3a 3d a3 0d 17 6b 06 |"IconBar":=...k.|
0000a680 3d b9 0d 17 70 81 dd a4 69 6e 76 31 5f 3a 69 6e |=...p...inv1_:in|
0000a690 76 31 31 5f 25 28 66 6f 6e 6c 69 6e 6b 5f 25 2d |v11_%(fonlink_%-|
0000a6a0 49 41 66 6f 6e 5f 25 29 3d 2d 69 6e 76 31 31 5f |IAfon_%)=-inv11_|
0000a6b0 25 28 66 6f 6e 6c 69 6e 6b 5f 25 2d 49 41 66 6f |%(fonlink_%-IAfo|
0000a6c0 6e 5f 25 29 3a e7 94 28 69 6e 76 31 31 5f 25 28 |n_%):..(inv11_%(|
0000a6d0 66 6f 6e 6c 69 6e 6b 5f 25 2d 49 41 66 6f 6e 5f |fonlink_%-IAfon_|
0000a6e0 25 29 29 3c 3e 31 8c 69 6e 76 31 31 5f 25 28 66 |%))<>1.inv11_%(f|
0000a6f0 6f 6e 6c 69 6e 6b 5f 25 2d 49 41 66 6f 6e 5f 25 |onlink_%-IAfon_%|
0000a700 29 3d 31 0d 17 75 49 e7 69 6e 76 31 31 5f 25 28 |)=1..uI.inv11_%(|
0000a710 66 6f 6e 6c 69 6e 6b 5f 25 2d 49 41 66 6f 6e 5f |fonlink_%-IAfon_|
0000a720 25 29 3d 31 8c f2 74 4d 49 28 22 4f 72 64 65 72 |%)=1..tMI("Order|
0000a730 53 4d 49 22 2c 32 29 20 8b f2 75 74 4d 49 28 22 |SMI",2) ..utMI("|
0000a740 4f 72 64 65 72 53 4d 49 22 2c 32 29 0d 17 7a 06 |OrderSMI",2)..z.|
0000a750 3d b9 0d 17 7f 81 dd a4 69 6e 76 32 5f 3a 69 6e |=.......inv2_:in|
0000a760 76 32 32 5f 25 28 66 6f 6e 6c 69 6e 6b 5f 25 2d |v22_%(fonlink_%-|
0000a770 49 41 66 6f 6e 5f 25 29 3d 2d 69 6e 76 32 32 5f |IAfon_%)=-inv22_|
0000a780 25 28 66 6f 6e 6c 69 6e 6b 5f 25 2d 49 41 66 6f |%(fonlink_%-IAfo|
0000a790 6e 5f 25 29 3a e7 94 28 69 6e 76 32 32 5f 25 28 |n_%):..(inv22_%(|
0000a7a0 66 6f 6e 6c 69 6e 6b 5f 25 2d 49 41 66 6f 6e 5f |fonlink_%-IAfon_|
0000a7b0 25 29 29 3c 3e 31 8c 69 6e 76 32 32 5f 25 28 66 |%))<>1.inv22_%(f|
0000a7c0 6f 6e 6c 69 6e 6b 5f 25 2d 49 41 66 6f 6e 5f 25 |onlink_%-IAfon_%|
0000a7d0 29 3d 31 0d 17 84 49 e7 69 6e 76 32 32 5f 25 28 |)=1...I.inv22_%(|
0000a7e0 66 6f 6e 6c 69 6e 6b 5f 25 2d 49 41 66 6f 6e 5f |fonlink_%-IAfon_|
0000a7f0 25 29 3d 31 8c f2 74 4d 49 28 22 4f 72 64 65 72 |%)=1..tMI("Order|
0000a800 53 4d 49 22 2c 33 29 20 8b f2 75 74 4d 49 28 22 |SMI",3) ..utMI("|
0000a810 4f 72 64 65 72 53 4d 49 22 2c 33 29 0d 17 89 06 |OrderSMI",3)....|
0000a820 3d b9 0d 17 8e 81 dd a4 69 6e 76 33 5f 3a 69 6e |=.......inv3_:in|
0000a830 76 33 33 5f 25 28 66 6f 6e 6c 69 6e 6b 5f 25 2d |v33_%(fonlink_%-|
0000a840 49 41 66 6f 6e 5f 25 29 3d 2d 69 6e 76 33 33 5f |IAfon_%)=-inv33_|
0000a850 25 28 66 6f 6e 6c 69 6e 6b 5f 25 2d 49 41 66 6f |%(fonlink_%-IAfo|
0000a860 6e 5f 25 29 3a e7 94 28 69 6e 76 33 33 5f 25 28 |n_%):..(inv33_%(|
0000a870 66 6f 6e 6c 69 6e 6b 5f 25 2d 49 41 66 6f 6e 5f |fonlink_%-IAfon_|
0000a880 25 29 29 3c 3e 31 8c 69 6e 76 33 33 5f 25 28 66 |%))<>1.inv33_%(f|
0000a890 6f 6e 6c 69 6e 6b 5f 25 2d 49 41 66 6f 6e 5f 25 |onlink_%-IAfon_%|
0000a8a0 29 3d 31 0d 17 93 49 e7 69 6e 76 33 33 5f 25 28 |)=1...I.inv33_%(|
0000a8b0 66 6f 6e 6c 69 6e 6b 5f 25 2d 49 41 66 6f 6e 5f |fonlink_%-IAfon_|
0000a8c0 25 29 3d 31 8c f2 74 4d 49 28 22 4f 72 64 65 72 |%)=1..tMI("Order|
0000a8d0 53 4d 49 22 2c 34 29 20 8b f2 75 74 4d 49 28 22 |SMI",4) ..utMI("|
0000a8e0 4f 72 64 65 72 53 4d 49 22 2c 34 29 0d 17 98 06 |OrderSMI",4)....|
0000a8f0 3d b9 0d 17 9d 04 0d 17 a2 1f dd a4 69 6e 76 6e |=...........invn|
0000a900 61 6d 65 5f 3a e7 24 77 6e 25 3c 3e 22 49 6e 76 |ame_:.$wn%<>"Inv|
0000a910 57 22 8c 3d a3 0d 17 a7 3d f2 77 6c 5f 28 32 30 |W".=....=.wl_(20|
0000a920 29 3a f2 67 65 74 49 54 64 61 74 5f 28 31 29 3a |):.getITdat_(1):|
0000a930 f2 67 65 74 49 54 64 61 74 74 6f 74 5f 3a f2 72 |.getITdattot_:.r|
0000a940 49 28 57 25 2c 22 69 6e 76 6e 61 6d 65 22 29 3a |I(W%,"invname"):|
0000a950 3d b9 0d 17 ac 04 0d 17 b1 09 dd a4 73 6d 5f 0d |=...........sm_.|
0000a960 17 ca 14 e7 24 6d 6e 25 3d 22 4f 72 64 65 72 56 |....$mn%="OrderV|
0000a970 49 22 8c 0d 17 cf 2c e7 49 4f 62 6f 72 64 65 72 |I"....,.IOborder|
0000a980 25 3d 31 8c f2 74 4d 49 28 24 6d 6e 25 2c 31 29 |%=1..tMI($mn%,1)|
0000a990 20 8b f2 75 74 4d 49 28 24 6d 6e 25 2c 31 29 0d | ..utMI($mn%,1).|
0000a9a0 17 d4 2b e7 49 4f 72 75 6c 65 72 25 3d 31 8c f2 |..+.IOruler%=1..|
0000a9b0 74 4d 49 28 24 6d 6e 25 2c 30 29 20 8b f2 75 74 |tMI($mn%,0) ..ut|
0000a9c0 4d 49 28 24 6d 6e 25 2c 30 29 0d 17 d9 05 cd 0d |MI($mn%,0)......|
0000a9d0 17 f7 3c e7 24 6d 6e 25 3d 22 4f 72 64 65 72 4d |..<.$mn%="OrderM|
0000a9e0 50 49 22 8c f2 74 4d 49 78 28 24 6d 6e 25 2c 49 |PI"..tMIx($mn%,I|
0000a9f0 4f 6a 75 73 74 5f 25 28 66 6f 6e 6c 69 6e 6b 5f |Ojust_%(fonlink_|
0000aa00 25 2d 49 41 66 6f 6e 5f 25 29 29 0d 18 01 06 3d |%-IAfon_%))....=|
0000aa10 b9 0d 18 06 04 0d 18 0b 6c dd f2 73 65 74 69 63 |........l..setic|
0000aa20 6f 6e 5f 28 57 5f 25 2c 49 5f 25 2c 41 5f 25 2c |on_(W_%,I_%,A_%,|
0000aa30 42 5f 25 29 3a 62 6c 6f 63 6b 5f 25 21 30 3d 57 |B_%):block_%!0=W|
0000aa40 5f 25 3a 62 6c 6f 63 6b 5f 25 21 34 3d 49 5f 25 |_%:block_%!4=I_%|
0000aa50 3a 62 6c 6f 63 6b 5f 25 21 38 3d 41 5f 25 3a 62 |:block_%!8=A_%:b|
0000aa60 6c 6f 63 6b 5f 25 21 31 32 3d 42 5f 25 3a c8 99 |lock_%!12=B_%:..|
0000aa70 26 34 30 30 43 44 2c 2c 62 6c 6f 63 6b 5f 25 3a |&400CD,,block_%:|
0000aa80 e1 0d 18 10 47 dd f2 67 65 74 69 63 6f 6e 5f 28 |....G..geticon_(|
0000aa90 57 5f 25 2c 49 5f 25 29 3a 62 6c 6f 63 6b 5f 25 |W_%,I_%):block_%|
0000aaa0 21 30 3d 57 5f 25 3a 62 6c 6f 63 6b 5f 25 21 34 |!0=W_%:block_%!4|
0000aab0 3d 49 5f 25 3a c8 99 26 34 30 30 43 45 2c 2c 62 |=I_%:..&400CE,,b|
0000aac0 6c 6f 63 6b 5f 25 3a e1 0d 18 15 4b dd f2 67 65 |lock_%:....K..ge|
0000aad0 74 69 63 6f 6e 31 5f 28 57 5f 25 2c 49 5f 25 29 |ticon1_(W_%,I_%)|
0000aae0 3a 69 62 6c 6f 63 6b 5f 25 21 30 3d 57 5f 25 3a |:iblock_%!0=W_%:|
0000aaf0 69 62 6c 6f 63 6b 5f 25 21 34 3d 49 5f 25 3a c8 |iblock_%!4=I_%:.|
0000ab00 99 26 34 30 30 43 45 2c 2c 69 62 6c 6f 63 6b 5f |.&400CE,,iblock_|
0000ab10 25 3a e1 0d 18 1a 1c dd a4 73 77 63 5f 3a e7 21 |%:.......swc_:.!|
0000ab20 69 25 3c 30 84 57 25 21 31 32 3c 30 3a 3d b9 0d |i%<0.W%!12<0:=..|
0000ab30 18 1f 12 ea 20 41 25 2c 42 25 2c 43 25 2c 61 5f |.... A%,B%,C%,a_|
0000ab40 24 0d 18 24 a4 f2 67 65 74 69 63 6f 6e 31 5f 28 |$..$..geticon1_(|
0000ab50 57 25 21 31 32 2c 21 69 25 29 3a e7 69 62 6c 6f |W%!12,!i%):.iblo|
0000ab60 63 6b 5f 25 21 32 34 80 28 31 3c 3c 31 33 29 3a |ck_%!24.(1<<13):|
0000ab70 e7 69 62 6c 6f 63 6b 5f 25 21 32 34 80 28 31 3c |.iblock_%!24.(1<|
0000ab80 3c 31 34 29 3a e7 69 62 6c 6f 63 6b 5f 25 21 32 |<14):.iblock_%!2|
0000ab90 34 80 28 31 3c 3c 31 35 29 3a e7 69 62 6c 6f 63 |4.(1<<15):.ibloc|
0000aba0 6b 5f 25 21 32 34 80 28 31 3c 3c 38 29 3a 61 5f |k_%!24.(1<<8):a_|
0000abb0 24 3d a4 63 6f 6e 69 6e 6d 5f 28 69 62 6c 6f 63 |$=.coninm_(ibloc|
0000abc0 6b 5f 25 21 32 38 2c 69 62 6c 6f 63 6b 5f 25 21 |k_%!28,iblock_%!|
0000abd0 33 36 29 3a c8 99 26 34 30 30 44 33 2c 2c 62 6c |36):..&400D3,,bl|
0000abe0 6f 63 6b 5f 25 0d 18 29 21 e7 61 5f 24 3d 22 22 |ock_%..)!.a_$=""|
0000abf0 84 62 6c 6f 63 6b 5f 25 21 32 30 3e 3d a9 28 61 |.block_%!20>=.(a|
0000ac00 5f 24 29 3a 3d b9 0d 18 2e 2c 41 25 3d 62 6c 6f |_$):=....,A%=blo|
0000ac10 63 6b 5f 25 21 32 30 3a 41 25 3d a4 73 77 70 63 |ck_%!20:A%=.swpc|
0000ac20 5f 28 97 28 c1 61 5f 24 2c 41 25 2b 31 2c 31 29 |_(.(.a_$,A%+1,1)|
0000ac30 29 29 0d 18 33 80 42 25 3d 62 6c 6f 63 6b 5f 25 |))..3.B%=block_%|
0000ac40 21 32 30 3a 43 25 3d 69 62 6c 6f 63 6b 5f 25 21 |!20:C%=iblock_%!|
0000ac50 32 38 3a 43 25 3f 42 25 3d 41 25 3a 69 62 6c 6f |28:C%?B%=A%:iblo|
0000ac60 63 6b 5f 25 21 38 3d 30 3a 69 62 6c 6f 63 6b 5f |ck_%!8=0:iblock_|
0000ac70 25 21 31 32 3d 30 3a c8 99 26 34 30 30 43 44 2c |%!12=0:..&400CD,|
0000ac80 2c 69 62 6c 6f 63 6b 5f 25 3a c8 99 26 34 30 30 |,iblock_%:..&400|
0000ac90 44 32 2c 62 6c 6f 63 6b 5f 25 21 30 2c 62 6c 6f |D2,block_%!0,blo|
0000aca0 63 6b 5f 25 21 34 2c 30 2c 30 2c 2d 31 2c 42 25 |ck_%!4,0,0,-1,B%|
0000acb0 2b 31 0d 18 38 0b 2a 46 58 31 35 2c 31 0d 18 3d |+1..8.*FX15,1..=|
0000acc0 06 3d b9 0d 18 42 04 0d 18 79 0f dd a4 49 4f 42 |.=...B...y...IOB|
0000acd0 6f 72 64 65 72 5f 0d 18 7e 0d ea 5a 25 2c 41 25 |order_..~..Z%,A%|
0000ace0 2c 42 25 0d 18 83 18 49 4f 62 6f 72 64 65 72 25 |,B%....IOborder%|
0000acf0 3d 2d 49 4f 62 6f 72 64 65 72 25 0d 18 88 32 e7 |=-IOborder%...2.|
0000ad00 49 4f 62 6f 72 64 65 72 25 3d 31 8c f2 74 4d 49 |IOborder%=1..tMI|
0000ad10 28 22 4f 72 64 65 72 56 49 22 2c 31 29 3a 41 25 |("OrderVI",1):A%|
0000ad20 3d 25 31 30 30 3a 42 25 3d 25 31 30 30 0d 18 8d |=%100:B%=%100...|
0000ad30 31 e7 49 4f 62 6f 72 64 65 72 25 3d 2d 31 8c f2 |1.IOborder%=-1..|
0000ad40 75 74 4d 49 28 22 4f 72 64 65 72 56 49 22 2c 31 |utMI("OrderVI",1|
0000ad50 29 3a 41 25 3d 25 31 30 30 3a 42 25 3d 30 0d 18 |):A%=%100:B%=0..|
0000ad60 92 17 e3 5a 25 3d 49 6f 72 69 5f 25 b8 49 4f 69 |...Z%=Iori_%.IOi|
0000ad70 63 6f 6e 73 25 0d 18 97 51 e7 5a 25 3c 32 33 80 |cons%...Q.Z%<23.|
0000ad80 5a 25 3c 3e 34 84 5a 25 3e 32 37 80 5a 25 3c 34 |Z%<>4.Z%>27.Z%<4|
0000ad90 32 84 5a 25 3e 34 33 80 5a 25 3c 34 39 84 5a 25 |2.Z%>43.Z%<49.Z%|
0000ada0 3e 35 31 80 5a 25 3c 35 37 8c f2 73 65 74 4f 62 |>51.Z%<57..setOb|
0000adb0 6f 72 64 5f 28 49 4f 77 69 6e 64 25 2c 5a 25 2c |ord_(IOwind%,Z%,|
0000adc0 41 25 2c 42 25 29 0d 18 9c 05 ed 0d 18 a1 44 e7 |A%,B%)........D.|
0000add0 49 4f 62 6f 72 64 65 72 25 3d 2d 31 8c c8 99 26 |IOborder%=-1...&|
0000ade0 34 30 30 44 31 2c 49 4f 77 69 6e 64 25 2c 2d 31 |400D1,IOwind%,-1|
0000adf0 30 30 30 30 30 30 2c 2d 31 30 30 30 30 30 30 2c |000000,-1000000,|
0000ae00 31 30 30 30 30 30 30 2c 31 30 30 30 30 30 30 0d |1000000,1000000.|
0000ae10 18 a6 06 3d b9 0d 18 dd 04 0d 18 e2 20 dd f2 73 |...=........ ..s|
0000ae20 65 74 4f 62 6f 72 64 5f 28 57 5f 25 2c 49 5f 25 |etObord_(W_%,I_%|
0000ae30 2c 41 5f 25 2c 42 5f 25 29 0d 18 e7 16 f2 67 65 |,A_%,B_%).....ge|
0000ae40 74 69 63 6f 6e 5f 28 57 5f 25 2c 49 5f 25 29 0d |ticon_(W_%,I_%).|
0000ae50 18 ec 1c f2 73 65 74 69 63 6f 6e 5f 28 57 5f 25 |....seticon_(W_%|
0000ae60 2c 49 5f 25 2c 41 25 2c 42 25 29 0d 18 f1 05 e1 |,I_%,A%,B%).....|
0000ae70 0d 19 1e 0e dd a4 49 4f 52 75 6c 65 72 5f 0d 19 |......IORuler_..|
0000ae80 23 0d ea 5a 25 2c 41 25 2c 42 25 0d 19 28 16 49 |#..Z%,A%,B%..(.I|
0000ae90 4f 72 75 6c 65 72 25 3d 2d 49 4f 72 75 6c 65 72 |Oruler%=-IOruler|
0000aea0 25 0d 19 2d 33 e7 49 4f 72 75 6c 65 72 25 3d 31 |%..-3.IOruler%=1|
0000aeb0 8c f2 74 4d 49 28 22 4f 72 64 65 72 56 49 22 2c |..tMI("OrderVI",|
0000aec0 30 29 3a 41 25 3d 66 6c 61 67 32 32 5f 25 3a 42 |0):A%=flag22_%:B|
0000aed0 25 3d 25 30 0d 19 32 3b e7 49 4f 72 75 6c 65 72 |%=%0..2;.IOruler|
0000aee0 25 3d 2d 31 8c f2 75 74 4d 49 28 22 4f 72 64 65 |%=-1..utMI("Orde|
0000aef0 72 56 49 22 2c 30 29 3a 41 25 3d 66 6c 61 67 32 |rVI",0):A%=flag2|
0000af00 32 5f 25 3a 42 25 3d 66 6c 61 67 32 32 5f 25 0d |2_%:B%=flag22_%.|
0000af10 19 37 1b e7 49 4f 72 75 6c 65 72 25 3d 31 80 49 |.7..IOruler%=1.I|
0000af20 4f 63 68 5f 25 3d 31 8c 3d a3 0d 19 3c 2a e3 5a |Och_%=1.=...<*.Z|
0000af30 25 3d 30 b8 31 3a f2 73 65 74 4f 62 6f 72 64 5f |%=0.1:.setObord_|
0000af40 28 49 4f 77 69 6e 64 25 2c 5a 25 2c 41 25 2c 42 |(IOwind%,Z%,A%,B|
0000af50 25 29 3a ed 0d 19 41 06 3d b9 0d 19 6e 04 0d 19 |%):...A.=...n...|
0000af60 78 2c dd a4 49 4f 74 69 74 6c 65 5f 3a f2 49 75 |x,..IOtitle_:.Iu|
0000af70 70 4f 72 64 4d 50 31 5f 28 32 2c 24 21 49 4f 74 |pOrdMP1_(2,$!IOt|
0000af80 69 74 6c 65 5f 25 29 3a 3d b9 0d 19 87 2a dd a4 |itle_%):=....*..|
0000af90 49 4f 68 65 61 64 5f 3a f2 49 75 70 4f 72 64 4d |IOhead_:.IupOrdM|
0000afa0 50 31 5f 28 33 2c 24 21 49 4f 68 65 61 64 5f 25 |P1_(3,$!IOhead_%|
0000afb0 29 3a 3d b9 0d 19 96 22 dd a4 49 4f 73 75 70 70 |):=...."..IOsupp|
0000afc0 6c 69 65 72 5f 3a f2 49 75 70 4f 72 64 4d 50 5f |lier_:.IupOrdMP_|
0000afd0 28 34 29 3a 3d b9 0d 19 9b 22 dd a4 49 4f 64 65 |(4):=...."..IOde|
0000afe0 6c 69 76 65 72 5f 3a f2 49 75 70 4f 72 64 4d 50 |liver_:.IupOrdMP|
0000aff0 5f 28 35 37 29 3a 3d b9 0d 19 af 1e dd a4 49 4f |_(57):=.......IO|
0000b000 6e 61 6d 65 5f 3a f2 49 75 70 4f 72 64 4d 50 5f |name_:.IupOrdMP_|
0000b010 28 35 29 3a 3d b9 0d 19 be 1f dd a4 49 4f 61 64 |(5):=.......IOad|
0000b020 64 31 31 5f 3a f2 49 75 70 4f 72 64 4d 50 5f 28 |d11_:.IupOrdMP_(|
0000b030 36 29 3a 3d b9 0d 19 cd 1f dd a4 49 4f 61 64 64 |6):=.......IOadd|
0000b040 32 32 5f 3a f2 49 75 70 4f 72 64 4d 50 5f 28 37 |22_:.IupOrdMP_(7|
0000b050 29 3a 3d b9 0d 19 dc 1f dd a4 49 4f 61 64 64 33 |):=.......IOadd3|
0000b060 33 5f 3a f2 49 75 70 4f 72 64 4d 50 5f 28 38 29 |3_:.IupOrdMP_(8)|
0000b070 3a 3d b9 0d 19 eb 1f dd a4 49 4f 61 64 64 34 34 |:=.......IOadd44|
0000b080 5f 3a f2 49 75 70 4f 72 64 4d 50 5f 28 39 29 3a |_:.IupOrdMP_(9):|
0000b090 3d b9 0d 19 fa 20 dd a4 49 4f 61 64 64 35 35 5f |=.... ..IOadd55_|
0000b0a0 3a f2 49 75 70 4f 72 64 4d 50 5f 28 31 30 29 3a |:.IupOrdMP_(10):|
0000b0b0 3d b9 0d 1a 09 1f dd a4 49 4f 70 6f 73 74 5f 3a |=.......IOpost_:|
0000b0c0 f2 49 75 70 4f 72 64 4d 50 5f 28 31 31 29 3a 3d |.IupOrdMP_(11):=|
0000b0d0 b9 0d 1a 18 1e dd a4 49 4f 74 65 6c 5f 3a f2 49 |.......IOtel_:.I|
0000b0e0 75 70 4f 72 64 4d 50 5f 28 31 32 29 3a 3d b9 0d |upOrdMP_(12):=..|
0000b0f0 1a 27 1e dd a4 49 4f 66 61 78 5f 3a f2 49 75 70 |.'...IOfax_:.Iup|
0000b100 4f 72 64 4d 50 5f 28 31 33 29 3a 3d b9 0d 1a 36 |OrdMP_(13):=...6|
0000b110 31 dd a4 49 4f 73 75 70 70 72 65 66 5f 3a f2 49 |1..IOsuppref_:.I|
0000b120 75 70 4f 72 64 4d 50 31 5f 28 31 34 2c 24 21 49 |upOrdMP1_(14,$!I|
0000b130 4f 73 75 70 70 72 65 66 5f 25 29 3a 3d b9 0d 1a |Osuppref_%):=...|
0000b140 45 31 dd a4 49 4f 79 6f 75 72 72 65 66 5f 3a f2 |E1..IOyourref_:.|
0000b150 49 75 70 4f 72 64 4d 50 31 5f 28 31 35 2c 24 21 |IupOrdMP1_(15,$!|
0000b160 49 4f 79 6f 75 72 72 65 66 5f 25 29 3a 3d b9 0d |IOyourref_%):=..|
0000b170 1a 54 2f dd a4 49 4f 6e 75 6d 62 65 72 5f 3a f2 |.T/..IOnumber_:.|
0000b180 49 75 70 4f 72 64 4d 50 31 5f 28 31 36 2c 24 21 |IupOrdMP1_(16,$!|
0000b190 49 4f 6e 75 6d 62 65 72 5f 25 29 3a 3d b9 0d 1a |IOnumber_%):=...|
0000b1a0 59 04 0d 1a 63 1d dd a4 49 4f 73 72 5f 3a f2 49 |Y...c...IOsr_:.I|
0000b1b0 75 70 4f 72 64 4d 50 5f 28 31 37 29 3a 3d b9 0d |upOrdMP_(17):=..|
0000b1c0 1a 72 1d dd a4 49 4f 79 72 5f 3a f2 49 75 70 4f |.r...IOyr_:.IupO|
0000b1d0 72 64 4d 50 5f 28 31 38 29 3a 3d b9 0d 1a 81 1d |rdMP_(18):=.....|
0000b1e0 dd a4 49 4f 6e 72 5f 3a f2 49 75 70 4f 72 64 4d |..IOnr_:.IupOrdM|
0000b1f0 50 5f 28 31 39 29 3a 3d b9 0d 1a 90 2b dd a4 49 |P_(19):=....+..I|
0000b200 4f 64 61 74 65 5f 3a f2 49 75 70 4f 72 64 4d 50 |Odate_:.IupOrdMP|
0000b210 31 5f 28 32 30 2c 24 21 49 4f 64 61 74 65 5f 25 |1_(20,$!IOdate_%|
0000b220 29 3a 3d b9 0d 1a 9f 1d dd a4 49 4f 64 65 5f 3a |):=.......IOde_:|
0000b230 f2 49 75 70 4f 72 64 4d 50 5f 28 32 31 29 3a 3d |.IupOrdMP_(21):=|
0000b240 b9 0d 1a ae 2d dd a4 49 4f 74 65 78 74 31 5f 3a |....-..IOtext1_:|
0000b250 f2 49 75 70 4f 72 64 4d 50 31 5f 28 32 32 2c 24 |.IupOrdMP1_(22,$|
0000b260 21 49 4f 74 65 78 74 31 5f 25 29 3a 3d b9 0d 1a |!IOtext1_%):=...|
0000b270 bd 2d dd a4 49 4f 64 61 74 61 31 5f 3a f2 49 75 |.-..IOdata1_:.Iu|
0000b280 70 4f 72 64 4d 50 31 5f 28 32 33 2c 24 21 49 4f |pOrdMP1_(23,$!IO|
0000b290 64 61 74 61 31 5f 25 29 3a 3d b9 0d 1a cc 2d dd |data1_%):=....-.|
0000b2a0 a4 49 4f 64 61 74 61 32 5f 3a f2 49 75 70 4f 72 |.IOdata2_:.IupOr|
0000b2b0 64 4d 50 31 5f 28 32 34 2c 24 21 49 4f 64 61 74 |dMP1_(24,$!IOdat|
0000b2c0 61 32 5f 25 29 3a 3d b9 0d 1a db 2d dd a4 49 4f |a2_%):=....-..IO|
0000b2d0 64 61 74 61 33 5f 3a f2 49 75 70 4f 72 64 4d 50 |data3_:.IupOrdMP|
0000b2e0 31 5f 28 32 35 2c 24 21 49 4f 64 61 74 61 33 5f |1_(25,$!IOdata3_|
0000b2f0 25 29 3a 3d b9 0d 1a ea 2d dd a4 49 4f 64 61 74 |%):=....-..IOdat|
0000b300 61 34 5f 3a f2 49 75 70 4f 72 64 4d 50 31 5f 28 |a4_:.IupOrdMP1_(|
0000b310 32 36 2c 24 21 49 4f 64 61 74 61 34 5f 25 29 3a |26,$!IOdata4_%):|
0000b320 3d b9 0d 1a f9 2d dd a4 49 4f 64 61 74 61 35 5f |=....-..IOdata5_|
0000b330 3a f2 49 75 70 4f 72 64 4d 50 31 5f 28 32 37 2c |:.IupOrdMP1_(27,|
0000b340 24 21 49 4f 64 61 74 61 35 5f 25 29 3a 3d b9 0d |$!IOdata5_%):=..|
0000b350 1b 08 2d dd a4 49 4f 74 65 78 74 32 5f 3a f2 49 |..-..IOtext2_:.I|
0000b360 75 70 4f 72 64 4d 50 31 5f 28 32 38 2c 24 21 49 |upOrdMP1_(28,$!I|
0000b370 4f 74 65 78 74 32 5f 25 29 3a 3d b9 0d 1b 17 2d |Otext2_%):=....-|
0000b380 dd a4 49 4f 74 65 78 74 33 5f 3a f2 49 75 70 4f |..IOtext3_:.IupO|
0000b390 72 64 4d 50 31 5f 28 32 39 2c 24 21 49 4f 74 65 |rdMP1_(29,$!IOte|
0000b3a0 78 74 33 5f 25 29 3a 3d b9 0d 1b 26 2d dd a4 49 |xt3_%):=...&-..I|
0000b3b0 4f 64 61 74 61 36 5f 3a f2 49 75 70 4f 72 64 4d |Odata6_:.IupOrdM|
0000b3c0 50 31 5f 28 33 30 2c 24 21 49 4f 64 61 74 61 36 |P1_(30,$!IOdata6|
0000b3d0 5f 25 29 3a 3d b9 0d 1b 30 20 dd a4 49 4f 64 61 |_%):=...0 ..IOda|
0000b3e0 74 61 37 5f 3a f2 49 75 70 4f 72 64 4d 50 5f 28 |ta7_:.IupOrdMP_(|
0000b3f0 33 31 29 3a 3d b9 0d 1b 3a 2d dd a4 49 4f 74 65 |31):=...:-..IOte|
0000b400 78 74 34 5f 3a f2 49 75 70 4f 72 64 4d 50 31 5f |xt4_:.IupOrdMP1_|
0000b410 28 33 32 2c 24 21 49 4f 74 65 78 74 34 5f 25 29 |(32,$!IOtext4_%)|
0000b420 3a 3d b9 0d 1b 49 2d dd a4 49 4f 74 65 78 74 35 |:=...I-..IOtext5|
0000b430 5f 3a f2 49 75 70 4f 72 64 4d 50 31 5f 28 33 33 |_:.IupOrdMP1_(33|
0000b440 2c 24 21 49 4f 74 65 78 74 35 5f 25 29 3a 3d b9 |,$!IOtext5_%):=.|
0000b450 0d 1b 58 2d dd a4 49 4f 74 65 78 74 36 5f 3a f2 |..X-..IOtext6_:.|
0000b460 49 75 70 4f 72 64 4d 50 31 5f 28 33 34 2c 24 21 |IupOrdMP1_(34,$!|
0000b470 49 4f 74 65 78 74 36 5f 25 29 3a 3d b9 0d 1b 67 |IOtext6_%):=...g|
0000b480 2d dd a4 49 4f 74 65 78 74 37 5f 3a f2 49 75 70 |-..IOtext7_:.Iup|
0000b490 4f 72 64 4d 50 31 5f 28 33 35 2c 24 21 49 4f 74 |OrdMP1_(35,$!IOt|
0000b4a0 65 78 74 37 5f 25 29 3a 3d b9 0d 1b 76 2d dd a4 |ext7_%):=...v-..|
0000b4b0 49 4f 74 65 78 74 38 5f 3a f2 49 75 70 4f 72 64 |IOtext8_:.IupOrd|
0000b4c0 4d 50 31 5f 28 33 36 2c 24 21 49 4f 74 65 78 74 |MP1_(36,$!IOtext|
0000b4d0 38 5f 25 29 3a 3d b9 0d 1b 85 2d dd a4 49 4f 74 |8_%):=....-..IOt|
0000b4e0 65 78 74 39 5f 3a f2 49 75 70 4f 72 64 4d 50 31 |ext9_:.IupOrdMP1|
0000b4f0 5f 28 33 37 2c 24 21 49 4f 74 65 78 74 39 5f 25 |_(37,$!IOtext9_%|
0000b500 29 3a 3d b9 0d 1b 94 2f dd a4 49 4f 74 65 78 74 |):=..../..IOtext|
0000b510 31 30 5f 3a f2 49 75 70 4f 72 64 4d 50 31 5f 28 |10_:.IupOrdMP1_(|
0000b520 33 38 2c 24 21 49 4f 74 65 78 74 31 30 5f 25 29 |38,$!IOtext10_%)|
0000b530 3a 3d b9 0d 1b a3 2f dd a4 49 4f 74 65 78 74 31 |:=..../..IOtext1|
0000b540 31 5f 3a f2 49 75 70 4f 72 64 4d 50 31 5f 28 33 |1_:.IupOrdMP1_(3|
0000b550 39 2c 24 21 49 4f 74 65 78 74 31 31 5f 25 29 3a |9,$!IOtext11_%):|
0000b560 3d b9 0d 1b b2 2b dd a4 49 4f 70 61 67 65 5f 3a |=....+..IOpage_:|
0000b570 f2 49 75 70 4f 72 64 4d 50 31 5f 28 34 30 2c 24 |.IupOrdMP1_(40,$|
0000b580 21 49 4f 70 61 67 65 5f 25 29 3a 3d b9 0d 1b c1 |!IOpage_%):=....|
0000b590 1d dd a4 49 4f 70 65 5f 3a f2 49 75 70 4f 72 64 |...IOpe_:.IupOrd|
0000b5a0 4d 50 5f 28 34 31 29 3a 3d b9 0d 1b cb 2b dd a4 |MP_(41):=....+..|
0000b5b0 49 4f 64 69 73 63 5f 3a f2 49 75 70 4f 72 64 4d |IOdisc_:.IupOrdM|
0000b5c0 50 31 5f 28 34 32 2c 24 21 49 4f 64 69 73 63 5f |P1_(42,$!IOdisc_|
0000b5d0 25 29 3a 3d b9 0d 1b d0 29 dd a4 49 4f 76 61 74 |%):=....)..IOvat|
0000b5e0 5f 3a f2 49 75 70 4f 72 64 4d 50 31 5f 28 34 33 |_:.IupOrdMP1_(43|
0000b5f0 2c 24 21 49 4f 76 61 74 5f 25 29 3a 3d b9 0d 1b |,$!IOvat_%):=...|
0000b600 d5 2b dd a4 49 4f 65 73 64 74 5f 3a f2 49 75 70 |.+..IOesdt_:.Iup|
0000b610 4f 72 64 4d 50 31 5f 28 34 34 2c 24 21 49 4f 65 |OrdMP1_(44,$!IOe|
0000b620 73 64 74 5f 25 29 3a 3d b9 0d 1b da 29 dd a4 49 |sdt_%):=....)..I|
0000b630 4f 65 73 74 5f 3a f2 49 75 70 4f 72 64 4d 50 31 |Oest_:.IupOrdMP1|
0000b640 5f 28 34 35 2c 24 21 49 4f 65 73 74 5f 25 29 3a |_(45,$!IOest_%):|
0000b650 3d b9 0d 1b df 27 dd a4 49 4f 76 74 5f 3a f2 49 |=....'..IOvt_:.I|
0000b660 75 70 4f 72 64 4d 50 31 5f 28 34 36 2c 24 21 49 |upOrdMP1_(46,$!I|
0000b670 4f 76 74 5f 25 29 3a 3d b9 0d 1b e4 27 dd a4 49 |Ovt_%):=....'..I|
0000b680 4f 6e 74 5f 3a f2 49 75 70 4f 72 64 4d 50 31 5f |Ont_:.IupOrdMP1_|
0000b690 28 34 37 2c 24 21 49 4f 6e 74 5f 25 29 3a 3d b9 |(47,$!IOnt_%):=.|
0000b6a0 0d 1b ee 29 dd a4 49 4f 76 6e 74 5f 3a f2 49 75 |...)..IOvnt_:.Iu|
0000b6b0 70 4f 72 64 4d 50 31 5f 28 34 38 2c 24 21 49 4f |pOrdMP1_(48,$!IO|
0000b6c0 76 6e 74 5f 25 29 3a 3d b9 0d 1b f8 27 dd a4 49 |vnt_%):=....'..I|
0000b6d0 4f 76 72 5f 3a f2 49 75 70 4f 72 64 4d 50 31 5f |Ovr_:.IupOrdMP1_|
0000b6e0 28 34 39 2c 24 21 49 4f 76 72 5f 25 29 3a 3d b9 |(49,$!IOvr_%):=.|
0000b6f0 0d 1c 02 27 dd a4 49 4f 76 61 5f 3a f2 49 75 70 |...'..IOva_:.Iup|
0000b700 4f 72 64 4d 50 31 5f 28 35 30 2c 24 21 49 4f 76 |OrdMP1_(50,$!IOv|
0000b710 61 5f 25 29 3a 3d b9 0d 1c 0c 29 dd a4 49 4f 76 |a_%):=....)..IOv|
0000b720 64 74 5f 3a f2 49 75 70 4f 72 64 4d 50 31 5f 28 |dt_:.IupOrdMP1_(|
0000b730 35 31 2c 24 21 49 4f 76 64 74 5f 25 29 3a 3d b9 |51,$!IOvdt_%):=.|
0000b740 0d 1c 11 20 dd a4 49 4f 64 61 74 61 38 5f 3a f2 |... ..IOdata8_:.|
0000b750 49 75 70 4f 72 64 4d 50 5f 28 35 32 29 3a 3d b9 |IupOrdMP_(52):=.|
0000b760 0d 1c 16 20 dd a4 49 4f 64 61 74 61 39 5f 3a f2 |... ..IOdata9_:.|
0000b770 49 75 70 4f 72 64 4d 50 5f 28 35 33 29 3a 3d b9 |IupOrdMP_(53):=.|
0000b780 0d 1c 1b 21 dd a4 49 4f 64 61 74 61 31 30 5f 3a |...!..IOdata10_:|
0000b790 f2 49 75 70 4f 72 64 4d 50 5f 28 35 34 29 3a 3d |.IupOrdMP_(54):=|
0000b7a0 b9 0d 1c 20 21 dd a4 49 4f 64 61 74 61 31 31 5f |... !..IOdata11_|
0000b7b0 3a f2 49 75 70 4f 72 64 4d 50 5f 28 35 35 29 3a |:.IupOrdMP_(55):|
0000b7c0 3d b9 0d 1c 2a 21 dd a4 49 4f 64 61 74 61 31 32 |=...*!..IOdata12|
0000b7d0 5f 3a f2 49 75 70 4f 72 64 4d 50 5f 28 35 36 29 |_:.IupOrdMP_(56)|
0000b7e0 3a 3d b9 0d 1c 39 88 dd f2 49 75 70 4f 72 64 4d |:=...9...IupOrdM|
0000b7f0 50 5f 28 5a 25 29 3a 69 70 6f 73 5f 25 3d 52 25 |P_(Z%):ipos_%=R%|
0000b800 3a 66 6f 6e 6c 69 6e 6b 5f 25 3d 5a 25 2b 49 41 |:fonlink_%=Z%+IA|
0000b810 66 6f 6e 5f 25 3a 52 25 3d 30 3a 49 4f 72 64 65 |fon_%:R%=0:IOrde|
0000b820 72 63 68 25 28 5a 25 29 3d 31 3a 5a 5f 25 3d a4 |rch%(Z%)=1:Z_%=.|
0000b830 75 70 64 61 74 65 4f 72 64 65 72 5f 28 32 29 3a |updateOrder_(2):|
0000b840 69 70 6f 73 5f 25 3d 37 3a 66 6f 6e 6c 69 6e 6b |ipos_%=7:fonlink|
0000b850 5f 25 3d 5a 25 2b 49 41 66 6f 6e 5f 25 3a f2 49 |_%=Z%+IAfon_%:.I|
0000b860 6f 72 64 65 72 6d 70 49 5f 3a e1 0d 1c 4d a8 dd |ordermpI_:...M..|
0000b870 f2 49 75 70 4f 72 64 4d 50 31 5f 28 5a 25 2c 5a |.IupOrdMP1_(Z%,Z|
0000b880 24 29 3a ea 20 5a 5f 25 3a 77 66 32 5f 25 3d 5a |$):. Z_%:wf2_%=Z|
0000b890 25 3a 69 70 6f 73 5f 25 3d 52 25 3a 66 6f 6e 6c |%:ipos_%=R%:fonl|
0000b8a0 69 6e 6b 5f 25 3d 77 66 32 5f 25 2b 49 41 66 6f |ink_%=wf2_%+IAfo|
0000b8b0 6e 5f 25 3a e7 5a 24 3c 3e 49 4f 72 64 65 72 53 |n_%:.Z$<>IOrderS|
0000b8c0 5f 24 28 77 66 32 5f 25 29 84 52 25 3d 37 8c 49 |_$(wf2_%).R%=7.I|
0000b8d0 4f 72 64 65 72 63 68 25 28 77 66 32 5f 25 29 3d |Orderch%(wf2_%)=|
0000b8e0 31 3a e7 52 25 3d 38 3a 5a 5f 25 3d a4 75 70 64 |1:.R%=8:Z_%=.upd|
0000b8f0 61 74 65 4f 72 64 65 72 5f 28 32 29 3a f2 73 65 |ateOrder_(2):.se|
0000b900 74 43 31 5f 28 49 4f 77 69 6e 64 25 2c 77 66 32 |tC1_(IOwind%,wf2|
0000b910 5f 25 29 0d 1c 52 05 e1 0d 1c 61 04 0d 1c 66 19 |_%)..R....a...f.|
0000b920 dd a4 4f 73 74 72 6c 65 6e 5f 28 66 66 5f 25 2c |..Ostrlen_(ff_%,|
0000b930 66 73 5f 24 29 0d 1c 6b 1b ea 20 5a 25 2c 72 31 |fs_$)..k.. Z%,r1|
0000b940 25 2c 72 32 25 2c 72 33 25 2c 72 34 25 2c 5a 24 |%,r2%,r3%,r4%,Z$|
0000b950 0d 1c 70 07 ea 20 85 0d 1c 75 61 ee 20 85 20 ea |..p.. ...ua. . .|
0000b960 3a f7 20 85 3a f2 70 65 5f 28 a4 65 72 72 5f 29 |:. .:.pe_(.err_)|
0000b970 3a 4f 74 77 3d a9 28 66 73 5f 24 29 2a 31 36 2b |:Otw=.(fs_$)*16+|
0000b980 38 3a 4f 74 68 3d 34 30 3a 63 68 61 72 78 5f 3d |8:Oth=40:charx_=|
0000b990 30 3a 63 68 61 72 79 5f 3d 30 3a 3d 25 31 31 31 |0:chary_=0:=%111|
0000b9a0 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 |0000000000000000|
0000b9b0 30 30 30 31 31 30 30 30 0d 1c 7a 21 4f 74 77 3d |00011000..z!Otw=|
0000b9c0 30 3a 4f 74 68 3d 30 3a 63 68 61 72 78 5f 3d 30 |0:Oth=0:charx_=0|
0000b9d0 3a 63 68 61 72 79 5f 3d 30 0d 1c 7f 44 e7 66 66 |:chary_=0...D.ff|
0000b9e0 5f 25 3d 30 20 8c 5a 25 3d 25 31 31 31 30 30 30 |_%=0 .Z%=%111000|
0000b9f0 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 |0000000000000000|
0000ba00 31 31 30 30 30 3a 4f 74 77 3d a9 28 66 73 5f 24 |11000:Otw=.(fs_$|
0000ba10 29 2a 31 36 2b 38 3a 4f 74 68 3d 34 30 0d 1c 84 |)*16+8:Oth=40...|
0000ba20 0d e7 66 66 5f 25 3e 30 20 8c 0d 1c 89 11 c8 99 |..ff_%>0 .......|
0000ba30 26 34 30 30 38 41 2c 66 66 5f 25 0d 1c 8e 68 c8 |&4008A,ff_%...h.|
0000ba40 99 20 26 45 30 2c 66 66 5f 25 2c 68 62 6c 6f 63 |. &E0,ff_%,hbloc|
0000ba50 6b 5f 25 2c 36 34 20 b8 20 2c 5a 25 3a 21 5a 25 |k_%,64 . ,Z%:!Z%|
0000ba60 3d 31 33 3a 5a 24 3d c2 24 68 62 6c 6f 63 6b 5f |=13:Z$=.$hblock_|
0000ba70 25 2b 22 30 30 30 30 30 30 30 30 30 30 30 30 30 |%+"0000000000000|
0000ba80 30 30 30 30 31 30 31 31 30 30 30 22 2c 33 32 29 |00001011000",32)|
0000ba90 3a c8 99 20 26 32 31 2c 32 2c 5a 24 20 b8 20 2c |:.. &21,2,Z$ . ,|
0000baa0 2c 5a 25 0d 1c 93 25 c8 99 26 34 30 30 39 37 2c |,Z%...%..&40097,|
0000bab0 2c 66 73 5f 24 20 b8 20 2c 72 31 25 2c 72 32 25 |,fs_$ . ,r1%,r2%|
0000bac0 2c 72 33 25 2c 72 34 25 0d 1c 98 0f 4f 74 77 3d |,r3%,r4%....Otw=|
0000bad0 72 33 25 2d 72 31 25 0d 1c 9d 24 c8 99 26 34 30 |r3%-r1%...$..&40|
0000bae0 30 38 34 2c 66 66 5f 25 20 b8 20 2c 72 31 25 2c |084,ff_% . ,r1%,|
0000baf0 72 32 25 2c 72 33 25 2c 72 34 25 0d 1c a2 2c 63 |r2%,r3%,r4%...,c|
0000bb00 68 61 72 78 5f 3d 28 72 33 25 2d 72 31 25 29 2f |harx_=(r3%-r1%)/|
0000bb10 34 3a 4f 74 77 3d 4f 74 77 2f 6f 73 5f 25 2b 32 |4:Otw=Otw/os_%+2|
0000bb20 2a 63 68 61 72 78 5f 0d 1c a7 1d 4f 74 68 3d 72 |*charx_....Oth=r|
0000bb30 34 25 2d 72 32 25 3a 63 68 61 72 79 5f 3d 94 28 |4%-r2%:chary_=.(|
0000bb40 72 32 25 29 0d 1c ac 05 cd 0d 1c b1 12 e7 4f 74 |r2%)..........Ot|
0000bb50 68 3c 34 38 8c 4f 74 68 3d 34 38 0d 1c b6 12 e7 |h<48.Oth=48.....|
0000bb60 4f 74 77 3c 34 38 8c 4f 74 77 3d 34 38 0d 1c bb |Otw<48.Otw=48...|
0000bb70 07 3d 5a 25 0d 1c c0 04 0d 1c c5 17 dd a4 4f 74 |.=Z%..........Ot|
0000bb80 69 74 6c 65 46 5f 28 56 5f 25 2c 57 5f 25 29 0d |itleF_(V_%,W_%).|
0000bb90 1c ca 4f ea 20 52 31 25 2c 52 32 25 2c 52 33 25 |..O. R1%,R2%,R3%|
0000bba0 2c 52 34 25 2c 52 35 25 2c 52 36 25 2c 52 37 25 |,R4%,R5%,R6%,R7%|
0000bbb0 2c 52 38 25 2c 72 31 25 2c 72 32 25 2c 72 33 25 |,R8%,r1%,r2%,r3%|
0000bbc0 2c 72 34 25 2c 41 5f 25 2c 42 25 2c 5a 25 2c 6d |,r4%,A_%,B%,Z%,m|
0000bbd0 78 5f 2c 6d 79 5f 2c 6d 6c 25 2c 61 5f 25 0d 1c |x_,my_,ml%,a_%..|
0000bbe0 cf 07 ea 20 85 0d 1c d4 1c ee 20 85 20 ea 3a f7 |... ...... . .:.|
0000bbf0 20 85 3a f2 70 65 5f 28 a4 65 72 72 5f 29 3a 3d | .:.pe_(.err_):=|
0000bc00 30 0d 1c de 2a e7 57 5f 25 3d 32 8c f2 67 65 74 |0...*.W_%=2..get|
0000bc10 69 63 6f 6e 5f 28 49 4f 77 69 6e 64 25 2c 49 4f |icon_(IOwind%,IO|
0000bc20 69 63 6f 6e 25 28 56 5f 25 29 29 0d 1c e8 8c 52 |icon%(V_%))....R|
0000bc30 31 25 3d 62 6c 6f 63 6b 5f 25 21 38 3a 52 32 25 |1%=block_%!8:R2%|
0000bc40 3d 62 6c 6f 63 6b 5f 25 21 31 32 3a 52 33 25 3d |=block_%!12:R3%=|
0000bc50 62 6c 6f 63 6b 5f 25 21 31 36 3a 52 34 25 3d 62 |block_%!16:R4%=b|
0000bc60 6c 6f 63 6b 5f 25 21 32 30 3a 52 35 25 3d 62 6c |lock_%!20:R5%=bl|
0000bc70 6f 63 6b 5f 25 21 32 34 3a 52 36 25 3d 62 6c 6f |ock_%!24:R6%=blo|
0000bc80 63 6b 5f 25 21 32 38 3a 52 37 25 3d 62 6c 6f 63 |ck_%!28:R7%=bloc|
0000bc90 6b 5f 25 21 33 32 3a 52 38 25 3d 62 6c 6f 63 6b |k_%!32:R8%=block|
0000bca0 5f 25 21 33 36 3a c8 99 26 34 30 30 43 34 2c 2c |_%!36:..&400C4,,|
0000bcb0 62 6c 6f 63 6b 5f 25 0d 1c f2 a9 e7 57 5f 25 3d |block_%.....W_%=|
0000bcc0 32 8c 41 5f 25 3d a4 4f 73 74 72 6c 65 6e 5f 28 |2.A_%=.Ostrlen_(|
0000bcd0 49 4f 72 64 65 72 46 31 5f 25 28 56 5f 25 29 2c |IOrderF1_%(V_%),|
0000bce0 49 4f 72 64 65 72 53 5f 24 28 56 5f 25 29 29 3a |IOrderS_$(V_%)):|
0000bcf0 49 4f 72 64 65 72 63 68 25 28 56 5f 25 29 3d 30 |IOrderch%(V_%)=0|
0000bd00 3a 6d 78 5f 3d 49 4f 72 64 65 72 6d 78 5f 28 56 |:mx_=IOrdermx_(V|
0000bd10 5f 25 29 3a 6d 79 5f 3d 49 4f 72 64 65 72 6d 79 |_%):my_=IOrdermy|
0000bd20 5f 28 56 5f 25 29 3a 6d 6c 25 3d 49 4f 6a 75 73 |_(V_%):ml%=IOjus|
0000bd30 74 5f 25 28 56 5f 25 29 3a e7 56 5f 25 3d 34 84 |t_%(V_%):.V_%=4.|
0000bd40 56 5f 25 3e 34 38 80 56 5f 25 3c 35 32 84 56 5f |V_%>48.V_%<52.V_|
0000bd50 25 3d 35 37 8c 4f 74 68 3d 34 2e 32 2a 4f 74 68 |%=57.Oth=4.2*Oth|
0000bd60 0d 1d 10 2d e7 56 5f 25 3e 32 32 80 56 5f 25 3c |...-.V_%>22.V_%<|
0000bd70 32 38 80 57 5f 25 3d 32 84 56 5f 25 3e 34 31 80 |28.W_%=2.V_%>41.|
0000bd80 56 5f 25 3c 34 34 80 57 5f 25 3d 32 8c 0d 1d 15 |V_%<44.W_%=2....|
0000bd90 23 e7 6d 79 5f 2d 49 4f 64 73 69 7a 65 5f 25 3c |#.my_-IOdsize_%<|
0000bda0 30 20 8c 49 4f 64 73 69 7a 65 5f 25 3d 6d 79 5f |0 .IOdsize_%=my_|
0000bdb0 0d 1d 1a 2f 4f 74 68 3d 49 4f 64 73 69 7a 65 5f |.../Oth=IOdsize_|
0000bdc0 25 2a 72 75 6c 65 5f 3a 4f 74 68 3d 4f 74 68 2d |%*rule_:Oth=Oth-|
0000bdd0 4f 74 68 20 83 28 32 2a 6d 6f 64 65 79 25 29 0d |Oth .(2*modey%).|
0000bde0 1d 1f 05 cd 0d 1d 38 3f 42 25 3d 25 31 31 31 31 |......8?B%=%1111|
0000bdf0 31 31 31 31 30 30 30 30 30 30 30 30 30 30 30 30 |1111000000000000|
0000be00 30 30 30 30 30 31 30 31 31 30 30 30 3a 52 35 25 |000001011000:R5%|
0000be10 3d 28 52 35 25 20 80 20 ac 20 42 25 29 20 82 20 |=(R5% . . B%) . |
0000be20 41 5f 25 0d 1d 3d 23 72 31 25 3d 52 31 25 3a 72 |A_%..=#r1%=R1%:r|
0000be30 32 25 3d 52 32 25 3a 72 33 25 3d 52 33 25 3a 72 |2%=R2%:r3%=R3%:r|
0000be40 34 25 3d 52 34 25 0d 1d 47 3c e7 57 5f 25 3d 32 |4%=R4%..G<.W_%=2|
0000be50 3a e7 6d 6c 25 3d 30 3a e7 6d 78 5f 2b 4f 74 77 |:.ml%=0:.mx_+Otw|
0000be60 2f 72 75 6c 65 5f 2b 63 68 61 72 78 5f 2f 72 75 |/rule_+charx_/ru|
0000be70 6c 65 5f 3e 49 4f 70 61 67 78 5f 25 8c 6d 6c 25 |le_>IOpagx_%.ml%|
0000be80 3d 32 0d 1d 56 31 e7 57 5f 25 3d 32 3a e7 6d 6c |=2..V1.W_%=2:.ml|
0000be90 25 3d 31 3a e7 6d 78 5f 2b 4f 74 77 2f 72 75 6c |%=1:.mx_+Otw/rul|
0000bea0 65 5f 2f 32 3e 49 4f 70 61 67 78 5f 25 8c 6d 6c |e_/2>IOpagx_%.ml|
0000beb0 25 3d 32 0d 1d 65 71 e7 57 5f 25 3d 32 3a e7 6d |%=2..eq.W_%=2:.m|
0000bec0 6c 25 3d 30 3a e7 6d 78 5f 2b 4f 74 77 2f 72 75 |l%=0:.mx_+Otw/ru|
0000bed0 6c 65 5f 2b 63 68 61 72 78 5f 2f 72 75 6c 65 5f |le_+charx_/rule_|
0000bee0 3e 49 4f 70 61 67 78 5f 25 2d 31 8c 6d 78 5f 3d |>IOpagx_%-1.mx_=|
0000bef0 49 4f 70 61 67 78 5f 25 2d 4f 74 77 2f 72 75 6c |IOpagx_%-Otw/rul|
0000bf00 65 5f 2d 63 68 61 72 78 5f 2f 72 75 6c 65 5f 3a |e_-charx_/rule_:|
0000bf10 49 4f 72 64 65 72 6d 78 5f 28 56 5f 25 29 3d 6d |IOrdermx_(V_%)=m|
0000bf20 78 5f 2d 31 0d 1d 74 5b e7 57 5f 25 3d 32 3a e7 |x_-1..t[.W_%=2:.|
0000bf30 6d 6c 25 3d 31 3a e7 6d 78 5f 2b 4f 74 77 2f 72 |ml%=1:.mx_+Otw/r|
0000bf40 75 6c 65 5f 2f 32 3e 49 4f 70 61 67 78 5f 25 2d |ule_/2>IOpagx_%-|
0000bf50 31 8c 6d 78 5f 3d 49 4f 70 61 67 78 5f 25 2d 4f |1.mx_=IOpagx_%-O|
0000bf60 74 77 2f 72 75 6c 65 5f 2f 32 3a 49 4f 72 64 65 |tw/rule_/2:IOrde|
0000bf70 72 6d 78 5f 28 56 5f 25 29 3d 6d 78 5f 2d 31 0d |rmx_(V_%)=mx_-1.|
0000bf80 1d 83 5d e7 57 5f 25 3d 32 3a e7 6d 6c 25 3d 32 |..].W_%=2:.ml%=2|
0000bf90 3a e7 6d 78 5f 2d 63 68 61 72 78 5f 2f 72 75 6c |:.mx_-charx_/rul|
0000bfa0 65 5f 3e 49 4f 70 61 67 78 5f 25 2d 31 8c 6d 78 |e_>IOpagx_%-1.mx|
0000bfb0 5f 3d 49 4f 70 61 67 78 5f 25 2d 63 68 61 72 78 |_=IOpagx_%-charx|
0000bfc0 5f 2f 72 75 6c 65 5f 3a 49 4f 72 64 65 72 6d 78 |_/rule_:IOrdermx|
0000bfd0 5f 28 56 5f 25 29 3d 6d 78 5f 2d 31 0d 1d 92 71 |_(V_%)=mx_-1...q|
0000bfe0 e7 57 5f 25 3d 32 3a e7 6d 6c 25 3d 32 80 6d 78 |.W_%=2:.ml%=2.mx|
0000bff0 5f 2d 4f 74 77 2f 72 75 6c 65 5f 2b 63 68 61 72 |_-Otw/rule_+char|
0000c000 78 5f 2f 72 75 6c 65 5f 3c 31 84 6d 6c 25 3d 31 |x_/rule_<1.ml%=1|
0000c010 80 6d 78 5f 2d 4f 74 77 2f 72 75 6c 65 5f 2f 32 |.mx_-Otw/rule_/2|
0000c020 3c 31 84 6d 6c 25 3d 30 80 6d 78 5f 3c 31 8c 6d |<1.ml%=0.mx_<1.m|
0000c030 6c 25 3d 30 3a 6d 78 5f 3d 31 3a 49 4f 72 64 65 |l%=0:mx_=1:IOrde|
0000c040 72 6d 78 5f 28 56 5f 25 29 3d 6d 78 5f 0d 1d 9c |rmx_(V_%)=mx_...|
0000c050 1f e7 6d 6c 25 3d 30 8c 52 31 25 3d 6d 78 5f 2a |..ml%=0.R1%=mx_*|
0000c060 72 75 6c 65 5f 2d 63 68 61 72 78 5f 0d 1d a1 1e |rule_-charx_....|
0000c070 e7 6d 6c 25 3d 31 8c 52 31 25 3d 6d 78 5f 2a 72 |.ml%=1.R1%=mx_*r|
0000c080 75 6c 65 5f 2d 4f 74 77 2f 32 0d 1d a6 23 e7 6d |ule_-Otw/2...#.m|
0000c090 6c 25 3d 32 8c 52 31 25 3d 6d 78 5f 2a 72 75 6c |l%=2.R1%=mx_*rul|
0000c0a0 65 5f 2d 4f 74 77 2b 63 68 61 72 78 5f 0d 1d b0 |e_-Otw+charx_...|
0000c0b0 52 e7 57 5f 25 3d 32 3a e7 6d 79 5f 2b 63 68 61 |R.W_%=2:.my_+cha|
0000c0c0 72 79 5f 2f 72 75 6c 65 5f 3e 49 4f 70 61 67 79 |ry_/rule_>IOpagy|
0000c0d0 5f 25 8c 6d 79 5f 3d 49 4f 70 61 67 79 5f 25 2d |_%.my_=IOpagy_%-|
0000c0e0 63 68 61 72 79 5f 2f 72 75 6c 65 5f 3a 49 4f 72 |chary_/rule_:IOr|
0000c0f0 64 65 72 6d 79 5f 28 56 5f 25 29 3d 6d 79 5f 0d |dermy_(V_%)=my_.|
0000c100 1d bf 52 e7 57 5f 25 3d 32 3a e7 6d 79 5f 2b 63 |..R.W_%=2:.my_+c|
0000c110 68 61 72 79 5f 2f 72 75 6c 65 5f 2d 4f 74 68 2f |hary_/rule_-Oth/|
0000c120 72 75 6c 65 5f 3c 30 8c 6d 79 5f 3d 28 4f 74 68 |rule_<0.my_=(Oth|
0000c130 2d 63 68 61 72 79 5f 29 2f 72 75 6c 65 5f 3a 49 |-chary_)/rule_:I|
0000c140 4f 72 64 65 72 6d 79 5f 28 56 5f 25 29 3d 6d 79 |Ordermy_(V_%)=my|
0000c150 5f 0d 1d c9 25 52 32 25 3d 2d 6d 79 5f 2a 72 75 |_...%R2%=-my_*ru|
0000c160 6c 65 5f 2d 63 68 61 72 79 5f 3a 52 34 25 3d 52 |le_-chary_:R4%=R|
0000c170 32 25 2b 4f 74 68 0d 1d ce 0f 52 33 25 3d 52 31 |2%+Oth....R3%=R1|
0000c180 25 2b 4f 74 77 0d 1d d3 79 62 6c 6f 63 6b 5f 25 |%+Otw...yblock_%|
0000c190 21 34 3d 52 31 25 3a 62 6c 6f 63 6b 5f 25 21 38 |!4=R1%:block_%!8|
0000c1a0 3d 52 32 25 3a 62 6c 6f 63 6b 5f 25 21 31 32 3d |=R2%:block_%!12=|
0000c1b0 52 33 25 3a 62 6c 6f 63 6b 5f 25 21 31 36 3d 52 |R3%:block_%!16=R|
0000c1c0 34 25 3a 62 6c 6f 63 6b 5f 25 21 32 30 3d 52 35 |4%:block_%!20=R5|
0000c1d0 25 3a 62 6c 6f 63 6b 5f 25 21 32 34 3d 52 36 25 |%:block_%!24=R6%|
0000c1e0 3a 62 6c 6f 63 6b 5f 25 21 32 38 3d 52 37 25 3a |:block_%!28=R7%:|
0000c1f0 62 6c 6f 63 6b 5f 25 21 33 32 3d 52 38 25 0d 1d |block_%!32=R8%..|
0000c200 dd 2b e7 57 5f 25 3d 32 8c c8 99 26 34 30 30 43 |.+.W_%=2...&400C|
0000c210 32 2c 2c 62 6c 6f 63 6b 5f 25 20 b8 20 49 4f 69 |2,,block_% . IOi|
0000c220 63 6f 6e 25 28 56 5f 25 29 0d 1d e7 14 e7 72 31 |con%(V_%).....r1|
0000c230 25 3c 52 31 25 8c 52 31 25 3d 72 31 25 0d 1d ec |%<R1%.R1%=r1%...|
0000c240 14 e7 72 33 25 3e 52 33 25 8c 52 33 25 3d 72 33 |..r3%>R3%.R3%=r3|
0000c250 25 0d 1d f1 14 e7 72 32 25 3c 52 32 25 8c 52 32 |%.....r2%<R2%.R2|
0000c260 25 3d 72 32 25 0d 1d f6 14 e7 72 34 25 3e 52 34 |%=r2%.....r4%>R4|
0000c270 25 8c 52 34 25 3d 72 34 25 0d 1d fb 32 c8 99 26 |%.R4%=r4%...2..&|
0000c280 34 30 30 44 31 2c 62 6c 6f 63 6b 5f 25 21 30 2c |400D1,block_%!0,|
0000c290 52 31 25 2d 31 32 2c 52 32 25 2d 31 32 2c 52 33 |R1%-12,R2%-12,R3|
0000c2a0 25 2b 31 32 2c 52 34 25 2b 31 32 0d 1e 14 0b e7 |%+12,R4%+12.....|
0000c2b0 57 5f 25 3d 32 8c 0d 1e 19 21 e7 56 5f 25 3e 32 |W_%=2....!.V_%>2|
0000c2c0 32 80 56 5f 25 3c 32 38 84 56 5f 25 3e 34 31 80 |2.V_%<28.V_%>41.|
0000c2d0 56 5f 25 3c 34 34 8c 0d 1e 1e 47 e3 61 5f 25 3d |V_%<44....G.a_%=|
0000c2e0 32 33 b8 32 37 3a e7 49 4f 72 64 65 72 6d 79 5f |23.27:.IOrdermy_|
0000c2f0 28 61 5f 25 29 3c 3e 6d 79 5f 3a 49 4f 72 64 65 |(a_%)<>my_:IOrde|
0000c300 72 6d 79 5f 28 61 5f 25 29 3d 6d 79 5f 3a 49 4f |rmy_(a_%)=my_:IO|
0000c310 72 64 65 72 63 68 25 28 61 5f 25 29 3d 31 0d 1e |rderch%(a_%)=1..|
0000c320 23 05 ed 0d 1e 28 47 e3 61 5f 25 3d 34 32 b8 34 |#....(G.a_%=42.4|
0000c330 33 3a e7 49 4f 72 64 65 72 6d 79 5f 28 61 5f 25 |3:.IOrdermy_(a_%|
0000c340 29 3c 3e 6d 79 5f 3a 49 4f 72 64 65 72 6d 79 5f |)<>my_:IOrdermy_|
0000c350 28 61 5f 25 29 3d 6d 79 5f 3a 49 4f 72 64 65 72 |(a_%)=my_:IOrder|
0000c360 63 68 25 28 61 5f 25 29 3d 31 0d 1e 2d 05 ed 0d |ch%(a_%)=1..-...|
0000c370 1e 32 05 cd 0d 1e 37 13 e7 56 5f 25 3e 34 38 80 |.2....7..V_%>48.|
0000c380 56 5f 25 3c 35 32 8c 0d 1e 3c 47 e3 61 5f 25 3d |V_%<52...<G.a_%=|
0000c390 34 39 b8 35 31 3a e7 49 4f 72 64 65 72 6d 79 5f |49.51:.IOrdermy_|
0000c3a0 28 61 5f 25 29 3c 3e 6d 79 5f 3a 49 4f 72 64 65 |(a_%)<>my_:IOrde|
0000c3b0 72 6d 79 5f 28 61 5f 25 29 3d 6d 79 5f 3a 49 4f |rmy_(a_%)=my_:IO|
0000c3c0 72 64 65 72 63 68 25 28 61 5f 25 29 3d 31 0d 1e |rderch%(a_%)=1..|
0000c3d0 41 05 ed 0d 1e 46 05 cd 0d 1e 4b 05 cd 0d 1e 82 |A....F....K.....|
0000c3e0 08 3d 6d 6c 25 0d 1e 87 04 0d 1e 8c 1a dd a4 43 |.=ml%..........C|
0000c3f0 61 6c 31 31 5f 3a 3d a4 75 70 64 61 74 65 43 61 |al11_:=.updateCa|
0000c400 6c 63 5f 0d 1e 91 1a dd a4 43 61 6c 32 32 5f 3a |lc_......Cal22_:|
0000c410 3d a4 75 70 64 61 74 65 43 61 6c 63 5f 0d 1e 96 |=.updateCalc_...|
0000c420 1a dd a4 43 61 6c 33 33 5f 3a 3d a4 75 70 64 61 |...Cal33_:=.upda|
0000c430 74 65 43 61 6c 63 5f 0d 1e 9b 29 dd a4 43 61 6c |teCalc_...)..Cal|
0000c440 34 34 5f 3a 5a 25 3d a4 75 70 64 61 74 65 43 61 |44_:Z%=.updateCa|
0000c450 6c 63 5f 3a f2 73 65 74 43 5f 28 31 29 3a 3d a3 |lc_:.setC_(1):=.|
0000c460 0d 1e a0 04 0d 1e b9 16 dd a4 55 6e 61 6d 65 5f |..........Uname_|
0000c470 3a 3d a4 55 75 70 5f 28 32 29 0d 1e be 16 dd a4 |:=.Uup_(2)......|
0000c480 55 61 64 31 31 5f 3a 3d a4 55 75 70 5f 28 33 29 |Uad11_:=.Uup_(3)|
0000c490 0d 1e c3 16 dd a4 55 61 64 32 32 5f 3a 3d a4 55 |......Uad22_:=.U|
0000c4a0 75 70 5f 28 34 29 0d 1e c8 16 dd a4 55 61 64 33 |up_(4)......Uad3|
0000c4b0 33 5f 3a 3d a4 55 75 70 5f 28 35 29 0d 1e cd 16 |3_:=.Uup_(5)....|
0000c4c0 dd a4 55 61 64 34 34 5f 3a 3d a4 55 75 70 5f 28 |..Uad44_:=.Uup_(|
0000c4d0 36 29 0d 1e d2 16 dd a4 55 61 64 35 35 5f 3a 3d |6)......Uad55_:=|
0000c4e0 a4 55 75 70 5f 28 37 29 0d 1e d7 16 dd a4 55 70 |.Uup_(7)......Up|
0000c4f0 6f 73 74 5f 3a 3d a4 55 75 70 5f 28 38 29 0d 1e |ost_:=.Uup_(8)..|
0000c500 dc 15 dd a4 55 74 65 6c 5f 3a 3d a4 55 75 70 5f |....Utel_:=.Uup_|
0000c510 28 39 29 0d 1e e1 16 dd a4 55 66 61 78 5f 3a 3d |(9)......Ufax_:=|
0000c520 a4 55 75 70 5f 28 31 30 29 0d 1e e6 16 dd a4 55 |.Uup_(10)......U|
0000c530 76 61 74 5f 3a 3d a4 55 75 70 5f 28 31 31 29 0d |vat_:=.Uup_(11).|
0000c540 1e eb 16 dd a4 54 6e 61 6d 65 5f 3a 3d a4 55 75 |.....Tname_:=.Uu|
0000c550 70 5f 28 31 29 0d 1e f0 04 0d 1f 4a 26 dd a4 72 |p_(1)......J&..r|
0000c560 31 53 5f 3a 53 61 6c 65 64 52 5f 25 28 31 29 3d |1S_:SaledR_%(1)=|
0000c570 2d 53 61 6c 65 64 52 5f 25 28 31 29 3a 3d a3 0d |-SaledR_%(1):=..|
0000c580 1f 4f 26 dd a4 72 32 53 5f 3a 53 61 6c 65 64 52 |.O&..r2S_:SaledR|
0000c590 5f 25 28 32 29 3d 2d 53 61 6c 65 64 52 5f 25 28 |_%(2)=-SaledR_%(|
0000c5a0 32 29 3a 3d a3 0d 1f 54 26 dd a4 72 33 53 5f 3a |2):=...T&..r3S_:|
0000c5b0 53 61 6c 65 64 52 5f 25 28 33 29 3d 2d 53 61 6c |SaledR_%(3)=-Sal|
0000c5c0 65 64 52 5f 25 28 33 29 3a 3d a3 0d 1f 59 26 dd |edR_%(3):=...Y&.|
0000c5d0 a4 72 34 53 5f 3a 53 61 6c 65 64 52 5f 25 28 34 |.r4S_:SaledR_%(4|
0000c5e0 29 3d 2d 53 61 6c 65 64 52 5f 25 28 34 29 3a 3d |)=-SaledR_%(4):=|
0000c5f0 a3 0d 1f 5e 26 dd a4 72 35 53 5f 3a 53 61 6c 65 |...^&..r5S_:Sale|
0000c600 64 52 5f 25 28 35 29 3d 2d 53 61 6c 65 64 52 5f |dR_%(5)=-SaledR_|
0000c610 25 28 35 29 3a 3d a3 0d 1f 63 26 dd a4 72 36 53 |%(5):=...c&..r6S|
0000c620 5f 3a 53 61 6c 65 64 52 5f 25 28 36 29 3d 2d 53 |_:SaledR_%(6)=-S|
0000c630 61 6c 65 64 52 5f 25 28 36 29 3a 3d a3 0d 1f 68 |aledR_%(6):=...h|
0000c640 26 dd a4 72 37 53 5f 3a 53 61 6c 65 64 52 5f 25 |&..r7S_:SaledR_%|
0000c650 28 37 29 3d 2d 53 61 6c 65 64 52 5f 25 28 37 29 |(7)=-SaledR_%(7)|
0000c660 3a 3d a3 0d 1f 6d 26 dd a4 72 38 53 5f 3a 53 61 |:=...m&..r8S_:Sa|
0000c670 6c 65 64 52 5f 25 28 38 29 3d 2d 53 61 6c 65 64 |ledR_%(8)=-Saled|
0000c680 52 5f 25 28 38 29 3a 3d a3 0d 1f 72 26 dd a4 72 |R_%(8):=...r&..r|
0000c690 39 53 5f 3a 53 61 6c 65 64 52 5f 25 28 39 29 3d |9S_:SaledR_%(9)=|
0000c6a0 2d 53 61 6c 65 64 52 5f 25 28 39 29 3a 3d a3 0d |-SaledR_%(9):=..|
0000c6b0 1f 77 28 dd a4 72 61 53 5f 3a 53 61 6c 65 64 52 |.w(..raS_:SaledR|
0000c6c0 5f 25 28 31 30 29 3d 2d 53 61 6c 65 64 52 5f 25 |_%(10)=-SaledR_%|
0000c6d0 28 31 30 29 3a 3d a3 0d 1f 7c 28 dd a4 72 62 53 |(10):=...|(..rbS|
0000c6e0 5f 3a 53 61 6c 65 64 52 5f 25 28 31 31 29 3d 2d |_:SaledR_%(11)=-|
0000c6f0 53 61 6c 65 64 52 5f 25 28 31 31 29 3a 3d a3 0d |SaledR_%(11):=..|
0000c700 1f 81 5e dd a4 53 61 61 34 5f 3a ea 20 5a 25 3a |..^..Saa4_:. Z%:|
0000c710 53 61 6c 65 64 52 5f 25 28 31 32 29 3d 31 3a 53 |SaledR_%(12)=1:S|
0000c720 61 6c 65 64 52 5f 25 28 31 33 29 3d 2d 31 3a 53 |aledR_%(13)=-1:S|
0000c730 61 6c 65 64 52 5f 25 28 31 34 29 3d 2d 31 3a 5a |aledR_%(14)=-1:Z|
0000c740 25 3d a4 53 61 70 61 70 65 72 73 69 7a 65 5f 3a |%=.Sapapersize_:|
0000c750 f2 73 65 74 43 5f 28 35 30 29 3a 3d a3 0d 1f 86 |.setC_(50):=....|
0000c760 5e dd a4 53 61 75 73 5f 3a ea 20 5a 25 3a 53 61 |^..Saus_:. Z%:Sa|
0000c770 6c 65 64 52 5f 25 28 31 32 29 3d 2d 31 3a 53 61 |ledR_%(12)=-1:Sa|
0000c780 6c 65 64 52 5f 25 28 31 33 29 3d 31 3a 53 61 6c |ledR_%(13)=1:Sal|
0000c790 65 64 52 5f 25 28 31 34 29 3d 2d 31 3a 5a 25 3d |edR_%(14)=-1:Z%=|
0000c7a0 a4 53 61 70 61 70 65 72 73 69 7a 65 5f 3a f2 73 |.Sapapersize_:.s|
0000c7b0 65 74 43 5f 28 35 30 29 3a 3d a3 0d 1f 8b 60 dd |etC_(50):=....`.|
0000c7c0 a4 53 61 63 75 73 74 5f 3a ea 20 5a 25 3a 53 61 |.Sacust_:. Z%:Sa|
0000c7d0 6c 65 64 52 5f 25 28 31 32 29 3d 2d 31 3a 53 61 |ledR_%(12)=-1:Sa|
0000c7e0 6c 65 64 52 5f 25 28 31 33 29 3d 2d 31 3a 53 61 |ledR_%(13)=-1:Sa|
0000c7f0 6c 65 64 52 5f 25 28 31 34 29 3d 31 3a 5a 25 3d |ledR_%(14)=1:Z%=|
0000c800 a4 53 61 70 61 70 65 72 73 69 7a 65 5f 3a f2 73 |.Sapapersize_:.s|
0000c810 65 74 43 5f 28 35 30 29 3a 3d a3 0d 1f 90 3f dd |etC_(50):=....?.|
0000c820 a4 53 61 74 61 62 5f 3a ea 20 5a 25 3a 53 61 6c |.Satab_:. Z%:Sal|
0000c830 65 64 52 5f 25 28 31 36 29 3d 31 3a 53 61 6c 65 |edR_%(16)=1:Sale|
0000c840 64 52 5f 25 28 31 37 29 3d 2d 31 3a 3d a4 53 61 |dR_%(17)=-1:=.Sa|
0000c850 70 61 70 65 72 73 69 7a 65 5f 0d 1f 95 40 dd a4 |papersize_...@..|
0000c860 53 61 73 70 61 63 5f 3a ea 20 5a 25 3a 53 61 6c |Saspac_:. Z%:Sal|
0000c870 65 64 52 5f 25 28 31 36 29 3d 2d 31 3a 53 61 6c |edR_%(16)=-1:Sal|
0000c880 65 64 52 5f 25 28 31 37 29 3d 31 3a 3d a4 53 61 |edR_%(17)=1:=.Sa|
0000c890 70 61 70 65 72 73 69 7a 65 5f 0d 1f 9a 28 dd a4 |papersize_...(..|
0000c8a0 72 63 53 5f 3a 53 61 6c 65 64 52 5f 25 28 31 38 |rcS_:SaledR_%(18|
0000c8b0 29 3d 2d 53 61 6c 65 64 52 5f 25 28 31 38 29 3a |)=-SaledR_%(18):|
0000c8c0 3d a3 0d 1f 9f 04 0d 1f a4 26 dd a4 72 31 50 5f |=........&..r1P_|
0000c8d0 3a 50 61 6c 65 64 52 5f 25 28 31 29 3d 2d 50 61 |:PaledR_%(1)=-Pa|
0000c8e0 6c 65 64 52 5f 25 28 31 29 3a 3d a3 0d 1f a9 26 |ledR_%(1):=....&|
0000c8f0 dd a4 72 32 50 5f 3a 50 61 6c 65 64 52 5f 25 28 |..r2P_:PaledR_%(|
0000c900 32 29 3d 2d 50 61 6c 65 64 52 5f 25 28 32 29 3a |2)=-PaledR_%(2):|
0000c910 3d a3 0d 1f ae 26 dd a4 72 33 50 5f 3a 50 61 6c |=....&..r3P_:Pal|
0000c920 65 64 52 5f 25 28 33 29 3d 2d 50 61 6c 65 64 52 |edR_%(3)=-PaledR|
0000c930 5f 25 28 33 29 3a 3d a3 0d 1f b3 26 dd a4 72 34 |_%(3):=....&..r4|
0000c940 50 5f 3a 50 61 6c 65 64 52 5f 25 28 34 29 3d 2d |P_:PaledR_%(4)=-|
0000c950 50 61 6c 65 64 52 5f 25 28 34 29 3a 3d a3 0d 1f |PaledR_%(4):=...|
0000c960 b8 26 dd a4 72 35 50 5f 3a 50 61 6c 65 64 52 5f |.&..r5P_:PaledR_|
0000c970 25 28 35 29 3d 2d 50 61 6c 65 64 52 5f 25 28 35 |%(5)=-PaledR_%(5|
0000c980 29 3a 3d a3 0d 1f bd 26 dd a4 72 36 50 5f 3a 50 |):=....&..r6P_:P|
0000c990 61 6c 65 64 52 5f 25 28 36 29 3d 2d 50 61 6c 65 |aledR_%(6)=-Pale|
0000c9a0 64 52 5f 25 28 36 29 3a 3d a3 0d 1f c2 26 dd a4 |dR_%(6):=....&..|
0000c9b0 72 37 50 5f 3a 50 61 6c 65 64 52 5f 25 28 37 29 |r7P_:PaledR_%(7)|
0000c9c0 3d 2d 50 61 6c 65 64 52 5f 25 28 37 29 3a 3d a3 |=-PaledR_%(7):=.|
0000c9d0 0d 1f c7 26 dd a4 72 38 50 5f 3a 50 61 6c 65 64 |...&..r8P_:Paled|
0000c9e0 52 5f 25 28 38 29 3d 2d 50 61 6c 65 64 52 5f 25 |R_%(8)=-PaledR_%|
0000c9f0 28 38 29 3a 3d a3 0d 1f cc 26 dd a4 72 39 50 5f |(8):=....&..r9P_|
0000ca00 3a 50 61 6c 65 64 52 5f 25 28 39 29 3d 2d 50 61 |:PaledR_%(9)=-Pa|
0000ca10 6c 65 64 52 5f 25 28 39 29 3a 3d a3 0d 1f d1 28 |ledR_%(9):=....(|
0000ca20 dd a4 72 61 50 5f 3a 50 61 6c 65 64 52 5f 25 28 |..raP_:PaledR_%(|
0000ca30 31 30 29 3d 2d 50 61 6c 65 64 52 5f 25 28 31 30 |10)=-PaledR_%(10|
0000ca40 29 3a 3d a3 0d 1f d6 28 dd a4 72 62 50 5f 3a 50 |):=....(..rbP_:P|
0000ca50 61 6c 65 64 52 5f 25 28 31 31 29 3d 2d 50 61 6c |aledR_%(11)=-Pal|
0000ca60 65 64 52 5f 25 28 31 31 29 3a 3d a3 0d 1f db 5e |edR_%(11):=....^|
0000ca70 dd a4 50 61 61 34 5f 3a ea 20 5a 25 3a 50 61 6c |..Paa4_:. Z%:Pal|
0000ca80 65 64 52 5f 25 28 31 32 29 3d 31 3a 50 61 6c 65 |edR_%(12)=1:Pale|
0000ca90 64 52 5f 25 28 31 33 29 3d 2d 31 3a 50 61 6c 65 |dR_%(13)=-1:Pale|
0000caa0 64 52 5f 25 28 31 34 29 3d 2d 31 3a 5a 25 3d a4 |dR_%(14)=-1:Z%=.|
0000cab0 50 61 70 61 70 65 72 73 69 7a 65 5f 3a f2 73 65 |Papapersize_:.se|
0000cac0 74 43 5f 28 35 30 29 3a 3d a3 0d 1f e0 5e dd a4 |tC_(50):=....^..|
0000cad0 50 61 75 73 5f 3a ea 20 5a 25 3a 50 61 6c 65 64 |Paus_:. Z%:Paled|
0000cae0 52 5f 25 28 31 32 29 3d 2d 31 3a 50 61 6c 65 64 |R_%(12)=-1:Paled|
0000caf0 52 5f 25 28 31 33 29 3d 31 3a 50 61 6c 65 64 52 |R_%(13)=1:PaledR|
0000cb00 5f 25 28 31 34 29 3d 2d 31 3a 5a 25 3d a4 50 61 |_%(14)=-1:Z%=.Pa|
0000cb10 70 61 70 65 72 73 69 7a 65 5f 3a f2 73 65 74 43 |papersize_:.setC|
0000cb20 5f 28 35 30 29 3a 3d a3 0d 1f e5 60 dd a4 50 61 |_(50):=....`..Pa|
0000cb30 63 75 73 74 5f 3a ea 20 5a 25 3a 50 61 6c 65 64 |cust_:. Z%:Paled|
0000cb40 52 5f 25 28 31 32 29 3d 2d 31 3a 50 61 6c 65 64 |R_%(12)=-1:Paled|
0000cb50 52 5f 25 28 31 33 29 3d 2d 31 3a 50 61 6c 65 64 |R_%(13)=-1:Paled|
0000cb60 52 5f 25 28 31 34 29 3d 31 3a 5a 25 3d a4 50 61 |R_%(14)=1:Z%=.Pa|
0000cb70 70 61 70 65 72 73 69 7a 65 5f 3a f2 73 65 74 43 |papersize_:.setC|
0000cb80 5f 28 35 30 29 3a 3d a3 0d 1f ea 3f dd a4 50 61 |_(50):=....?..Pa|
0000cb90 74 61 62 5f 3a ea 20 5a 25 3a 50 61 6c 65 64 52 |tab_:. Z%:PaledR|
0000cba0 5f 25 28 31 36 29 3d 31 3a 50 61 6c 65 64 52 5f |_%(16)=1:PaledR_|
0000cbb0 25 28 31 37 29 3d 2d 31 3a 3d a4 50 61 70 61 70 |%(17)=-1:=.Papap|
0000cbc0 65 72 73 69 7a 65 5f 0d 1f ef 40 dd a4 50 61 73 |ersize_...@..Pas|
0000cbd0 70 61 63 5f 3a ea 20 5a 25 3a 50 61 6c 65 64 52 |pac_:. Z%:PaledR|
0000cbe0 5f 25 28 31 36 29 3d 2d 31 3a 50 61 6c 65 64 52 |_%(16)=-1:PaledR|
0000cbf0 5f 25 28 31 37 29 3d 31 3a 3d a4 50 61 70 61 70 |_%(17)=1:=.Papap|
0000cc00 65 72 73 69 7a 65 5f 0d 1f f4 28 dd a4 72 63 50 |ersize_...(..rcP|
0000cc10 5f 3a 50 61 6c 65 64 52 5f 25 28 31 38 29 3d 2d |_:PaledR_%(18)=-|
0000cc20 50 61 6c 65 64 52 5f 25 28 31 38 29 3a 3d a3 0d |PaledR_%(18):=..|
0000cc30 1f f9 04 0d 1f fe 26 dd a4 72 31 42 5f 3a 42 61 |......&..r1B_:Ba|
0000cc40 6c 65 64 52 5f 25 28 31 29 3d 2d 42 61 6c 65 64 |ledR_%(1)=-Baled|
0000cc50 52 5f 25 28 31 29 3a 3d a3 0d 20 03 26 dd a4 72 |R_%(1):=.. .&..r|
0000cc60 32 42 5f 3a 42 61 6c 65 64 52 5f 25 28 32 29 3d |2B_:BaledR_%(2)=|
0000cc70 2d 42 61 6c 65 64 52 5f 25 28 32 29 3a 3d a3 0d |-BaledR_%(2):=..|
0000cc80 20 08 26 dd a4 72 33 42 5f 3a 42 61 6c 65 64 52 | .&..r3B_:BaledR|
0000cc90 5f 25 28 33 29 3d 2d 42 61 6c 65 64 52 5f 25 28 |_%(3)=-BaledR_%(|
0000cca0 33 29 3a 3d a3 0d 20 0d 26 dd a4 72 34 42 5f 3a |3):=.. .&..r4B_:|
0000ccb0 42 61 6c 65 64 52 5f 25 28 34 29 3d 2d 42 61 6c |BaledR_%(4)=-Bal|
0000ccc0 65 64 52 5f 25 28 34 29 3a 3d a3 0d 20 12 26 dd |edR_%(4):=.. .&.|
0000ccd0 a4 72 35 42 5f 3a 42 61 6c 65 64 52 5f 25 28 35 |.r5B_:BaledR_%(5|
0000cce0 29 3d 2d 42 61 6c 65 64 52 5f 25 28 35 29 3a 3d |)=-BaledR_%(5):=|
0000ccf0 a3 0d 20 17 26 dd a4 72 36 42 5f 3a 42 61 6c 65 |.. .&..r6B_:Bale|
0000cd00 64 52 5f 25 28 36 29 3d 2d 42 61 6c 65 64 52 5f |dR_%(6)=-BaledR_|
0000cd10 25 28 36 29 3a 3d a3 0d 20 1c 5b dd a4 42 61 61 |%(6):=.. .[..Baa|
0000cd20 34 5f 3a ea 20 5a 25 3a 42 61 6c 65 64 52 5f 25 |4_:. Z%:BaledR_%|
0000cd30 28 36 29 3d 31 3a 42 61 6c 65 64 52 5f 25 28 37 |(6)=1:BaledR_%(7|
0000cd40 29 3d 2d 31 3a 42 61 6c 65 64 52 5f 25 28 38 29 |)=-1:BaledR_%(8)|
0000cd50 3d 2d 31 3a 5a 25 3d a4 42 61 70 61 70 65 72 73 |=-1:Z%=.Bapapers|
0000cd60 69 7a 65 5f 3a f2 73 65 74 43 5f 28 33 35 29 3a |ize_:.setC_(35):|
0000cd70 3d a3 0d 20 21 5b dd a4 42 61 75 73 5f 3a ea 20 |=.. ![..Baus_:. |
0000cd80 5a 25 3a 42 61 6c 65 64 52 5f 25 28 36 29 3d 2d |Z%:BaledR_%(6)=-|
0000cd90 31 3a 42 61 6c 65 64 52 5f 25 28 37 29 3d 31 3a |1:BaledR_%(7)=1:|
0000cda0 42 61 6c 65 64 52 5f 25 28 38 29 3d 2d 31 3a 5a |BaledR_%(8)=-1:Z|
0000cdb0 25 3d a4 42 61 70 61 70 65 72 73 69 7a 65 5f 3a |%=.Bapapersize_:|
0000cdc0 f2 73 65 74 43 5f 28 33 35 29 3a 3d a3 0d 20 26 |.setC_(35):=.. &|
0000cdd0 5d dd a4 42 61 63 75 73 74 5f 3a ea 20 5a 25 3a |]..Bacust_:. Z%:|
0000cde0 42 61 6c 65 64 52 5f 25 28 36 29 3d 2d 31 3a 42 |BaledR_%(6)=-1:B|
0000cdf0 61 6c 65 64 52 5f 25 28 37 29 3d 2d 31 3a 42 61 |aledR_%(7)=-1:Ba|
0000ce00 6c 65 64 52 5f 25 28 38 29 3d 31 3a 5a 25 3d a4 |ledR_%(8)=1:Z%=.|
0000ce10 42 61 70 61 70 65 72 73 69 7a 65 5f 3a f2 73 65 |Bapapersize_:.se|
0000ce20 74 43 5f 28 33 35 29 3a 3d a3 0d 20 2b 3f dd a4 |tC_(35):=.. +?..|
0000ce30 42 61 74 61 62 5f 3a ea 20 5a 25 3a 42 61 6c 65 |Batab_:. Z%:Bale|
0000ce40 64 52 5f 25 28 31 30 29 3d 31 3a 42 61 6c 65 64 |dR_%(10)=1:Baled|
0000ce50 52 5f 25 28 31 31 29 3d 2d 31 3a 3d a4 42 61 70 |R_%(11)=-1:=.Bap|
0000ce60 61 70 65 72 73 69 7a 65 5f 0d 20 30 40 dd a4 42 |apersize_. 0@..B|
0000ce70 61 73 70 61 63 5f 3a ea 20 5a 25 3a 42 61 6c 65 |aspac_:. Z%:Bale|
0000ce80 64 52 5f 25 28 31 30 29 3d 2d 31 3a 42 61 6c 65 |dR_%(10)=-1:Bale|
0000ce90 64 52 5f 25 28 31 31 29 3d 31 3a 3d a4 42 61 70 |dR_%(11)=1:=.Bap|
0000cea0 61 70 65 72 73 69 7a 65 5f 0d 20 35 35 dd a4 58 |apersize_. 55..X|
0000ceb0 61 74 61 62 5f 3a ea 20 5a 25 3a 58 61 74 61 62 |atab_:. Z%:Xatab|
0000cec0 5f 25 3d 31 3a 58 61 73 70 61 63 5f 25 3d 2d 31 |_%=1:Xaspac_%=-1|
0000ced0 3a 3d a4 58 70 61 70 65 72 73 69 7a 65 5f 0d 20 |:=.Xpapersize_. |
0000cee0 3a 36 dd a4 58 61 73 70 61 63 5f 3a ea 20 5a 25 |:6..Xaspac_:. Z%|
0000cef0 3a 58 61 73 70 61 63 5f 25 3d 31 3a 58 61 74 61 |:Xaspac_%=1:Xata|
0000cf00 62 5f 25 3d 2d 31 3a 3d a4 58 70 61 70 65 72 73 |b_%=-1:=.Xpapers|
0000cf10 69 7a 65 5f 0d 20 3f 48 dd a4 58 61 34 5f 3a ea |ize_. ?H..Xa4_:.|
0000cf20 20 5a 25 3a 58 61 34 5f 25 3d 31 3a 58 75 73 5f | Z%:Xa4_%=1:Xus_|
0000cf30 25 3d 2d 31 3a 58 63 75 73 74 5f 25 3d 2d 31 3a |%=-1:Xcust_%=-1:|
0000cf40 5a 25 3d a4 58 70 61 70 65 72 73 69 7a 65 5f 3a |Z%=.Xpapersize_:|
0000cf50 f2 73 65 74 43 5f 28 33 29 3a 3d a3 0d 20 44 48 |.setC_(3):=.. DH|
0000cf60 dd a4 58 75 73 5f 3a ea 20 5a 25 3a 58 61 34 5f |..Xus_:. Z%:Xa4_|
0000cf70 25 3d 2d 31 3a 58 75 73 5f 25 3d 31 3a 58 63 75 |%=-1:Xus_%=1:Xcu|
0000cf80 73 74 5f 25 3d 2d 31 3a 5a 25 3d a4 58 70 61 70 |st_%=-1:Z%=.Xpap|
0000cf90 65 72 73 69 7a 65 5f 3a f2 73 65 74 43 5f 28 33 |ersize_:.setC_(3|
0000cfa0 29 3a 3d a3 0d 20 49 4a dd a4 58 63 75 73 74 5f |):=.. IJ..Xcust_|
0000cfb0 3a ea 20 5a 25 3a 58 61 34 5f 25 3d 2d 31 3a 58 |:. Z%:Xa4_%=-1:X|
0000cfc0 75 73 5f 25 3d 2d 31 3a 58 63 75 73 74 5f 25 3d |us_%=-1:Xcust_%=|
0000cfd0 31 3a 5a 25 3d a4 58 70 61 70 65 72 73 69 7a 65 |1:Z%=.Xpapersize|
0000cfe0 5f 3a f2 73 65 74 43 5f 28 33 29 3a 3d a3 0d 20 |_:.setC_(3):=.. |
0000cff0 4e 04 0d 20 53 0a dd a4 76 63 33 5f 0d 20 58 26 |N.. S...vc3_. X&|
0000d000 e7 70 61 73 73 38 5f 24 3c 3e 22 22 8c f2 77 6c |.pass8_$<>""..wl|
0000d010 5f 28 32 36 29 3a 3d a4 69 6e 69 74 76 61 74 70 |_(26):=.initvatp|
0000d020 63 5f 0d 20 5d 3c 56 61 74 43 5f 25 28 31 29 3d |c_. ]<VatC_%(1)=|
0000d030 31 3a 56 61 74 43 5f 25 28 32 29 3d 2d 31 3a f2 |1:VatC_%(2)=-1:.|
0000d040 73 49 28 57 25 2c 22 76 63 33 22 29 3a f2 75 73 |sI(W%,"vc3"):.us|
0000d050 49 28 57 25 2c 22 76 63 34 22 29 3a 3d a3 0d 20 |I(W%,"vc4"):=.. |
0000d060 62 0a dd a4 76 63 34 5f 0d 20 67 26 e7 70 61 73 |b...vc4_. g&.pas|
0000d070 73 38 5f 24 3c 3e 22 22 8c f2 77 6c 5f 28 32 36 |s8_$<>""..wl_(26|
0000d080 29 3a 3d a4 69 6e 69 74 76 61 74 70 63 5f 0d 20 |):=.initvatpc_. |
0000d090 6c 3c 56 61 74 43 5f 25 28 32 29 3d 31 3a 56 61 |l<VatC_%(2)=1:Va|
0000d0a0 74 43 5f 25 28 31 29 3d 2d 31 3a f2 75 73 49 28 |tC_%(1)=-1:.usI(|
0000d0b0 57 25 2c 22 76 63 33 22 29 3a f2 73 49 28 57 25 |W%,"vc3"):.sI(W%|
0000d0c0 2c 22 76 63 34 22 29 3a 3d a3 0d 20 71 0a dd a4 |,"vc4"):=.. q...|
0000d0d0 76 63 35 5f 0d 20 76 0e ea 20 41 25 2c 42 25 2c |vc5_. v.. A%,B%,|
0000d0e0 5a 25 0d 20 7b 1c 5a 25 3d bb 28 24 21 76 63 37 |Z%. {.Z%=.($!vc7|
0000d0f0 5f 25 29 2d 31 3a e7 5a 25 3d 30 8c 3d a3 0d 20 |_%)-1:.Z%=0.=.. |
0000d100 80 31 24 21 76 63 37 5f 25 3d c3 28 5a 25 29 3a |.1$!vc7_%=.(Z%):|
0000d110 56 61 74 43 5f 24 28 33 29 3d 24 21 76 63 37 5f |VatC_$(3)=$!vc7_|
0000d120 25 3a f2 72 49 28 57 25 2c 22 76 63 37 22 29 0d |%:.rI(W%,"vc7").|
0000d130 20 85 2b 41 25 3d bb 28 c1 74 6f 64 61 79 5f 24 | .+A%=.(.today_$|
0000d140 2c 34 2c 32 29 29 3a 42 25 3d bb 28 c1 74 6f 64 |,4,2)):B%=.(.tod|
0000d150 61 79 5f 24 2c 37 2c 34 29 29 0d 20 8a 61 e7 24 |ay_$,7,4)). .a.$|
0000d160 21 76 63 38 5f 25 3c 3e 22 22 8c 41 25 3d bb 28 |!vc8_%<>"".A%=.(|
0000d170 c1 24 21 76 63 38 5f 25 2c 34 2c 32 29 29 3a 42 |.$!vc8_%,4,2)):B|
0000d180 25 3d bb 28 c1 24 21 76 63 38 5f 25 2c 37 2c 34 |%=.(.$!vc8_%,7,4|
0000d190 29 29 20 8b 24 21 76 63 38 5f 25 3d 22 30 31 2e |)) .$!vc8_%="01.|
0000d1a0 22 2b 24 21 76 63 32 5f 25 2b 22 2e 22 2b c1 74 |"+$!vc2_%+"."+.t|
0000d1b0 6f 64 61 79 5f 24 2c 37 2c 34 29 0d 20 8f 2a e7 |oday_$,7,4). .*.|
0000d1c0 24 21 76 63 39 5f 25 3d 22 22 84 bb 28 24 21 76 |$!vc9_%=""..($!v|
0000d1d0 63 39 5f 25 29 3e 32 37 8c 24 21 76 63 39 5f 25 |c9_%)>27.$!vc9_%|
0000d1e0 3d 22 33 31 22 0d 20 94 12 41 25 2d 3d bb 28 24 |="31". ..A%-=.($|
0000d1f0 21 76 63 31 5f 25 29 0d 20 99 16 e7 41 25 3c 31 |!vc1_%). ...A%<1|
0000d200 8c 42 25 2d 3d 31 3a 41 25 2b 3d 31 32 0d 20 9e |.B%-=1:A%+=12. .|
0000d210 35 24 21 76 63 38 5f 25 3d a4 63 68 64 61 74 65 |5$!vc8_%=.chdate|
0000d220 5f 28 c0 24 21 76 63 38 5f 25 2c 32 29 2b 22 2e |_(.$!vc8_%,2)+".|
0000d230 22 2b c3 28 41 25 29 2b 22 2e 22 2b c3 28 42 25 |"+.(A%)+"."+.(B%|
0000d240 29 29 0d 20 a3 28 41 25 2b 3d bb 28 24 21 76 63 |)). .(A%+=.($!vc|
0000d250 31 5f 25 29 2d 31 3a e7 41 25 3e 31 32 8c 42 25 |1_%)-1:.A%>12.B%|
0000d260 2b 3d 31 3a 41 25 2d 3d 31 32 0d 20 a8 35 24 21 |+=1:A%-=12. .5$!|
0000d270 76 63 39 5f 25 3d a4 63 68 64 61 74 65 5f 28 c0 |vc9_%=.chdate_(.|
0000d280 24 21 76 63 39 5f 25 2c 32 29 2b 22 2e 22 2b c3 |$!vc9_%,2)+"."+.|
0000d290 28 41 25 29 2b 22 2e 22 2b c3 28 42 25 29 29 0d |(A%)+"."+.(B%)).|
0000d2a0 20 ad 27 56 61 74 43 5f 24 28 34 29 3d 24 21 76 | .'VatC_$(4)=$!v|
0000d2b0 63 38 5f 25 3a 56 61 74 43 5f 24 28 35 29 3d 24 |c8_%:VatC_$(5)=$|
0000d2c0 21 76 63 39 5f 25 0d 20 b2 1f f2 72 49 28 57 25 |!vc9_%. ...rI(W%|
0000d2d0 2c 22 76 63 38 22 29 3a f2 72 49 28 57 25 2c 22 |,"vc8"):.rI(W%,"|
0000d2e0 76 63 39 22 29 0d 20 b7 06 3d b9 0d 20 bc 0a dd |vc9"). ..=.. ...|
0000d2f0 a4 76 63 36 5f 0d 20 c1 0e ea 20 41 25 2c 42 25 |.vc6_. ... A%,B%|
0000d300 2c 5a 25 0d 20 c6 1d 5a 25 3d bb 28 24 21 76 63 |,Z%. ..Z%=.($!vc|
0000d310 37 5f 25 29 2b 31 3a e7 5a 25 3e 31 32 8c 3d a3 |7_%)+1:.Z%>12.=.|
0000d320 0d 20 cb 31 24 21 76 63 37 5f 25 3d c3 28 5a 25 |. .1$!vc7_%=.(Z%|
0000d330 29 3a 56 61 74 43 5f 24 28 33 29 3d 24 21 76 63 |):VatC_$(3)=$!vc|
0000d340 37 5f 25 3a f2 72 49 28 57 25 2c 22 76 63 37 22 |7_%:.rI(W%,"vc7"|
0000d350 29 0d 20 d0 2b 41 25 3d bb 28 c1 74 6f 64 61 79 |). .+A%=.(.today|
0000d360 5f 24 2c 34 2c 32 29 29 3a 42 25 3d bb 28 c1 74 |_$,4,2)):B%=.(.t|
0000d370 6f 64 61 79 5f 24 2c 37 2c 34 29 29 0d 20 d5 61 |oday_$,7,4)). .a|
0000d380 e7 24 21 76 63 38 5f 25 3c 3e 22 22 8c 41 25 3d |.$!vc8_%<>"".A%=|
0000d390 bb 28 c1 24 21 76 63 38 5f 25 2c 34 2c 32 29 29 |.(.$!vc8_%,4,2))|
0000d3a0 3a 42 25 3d bb 28 c1 24 21 76 63 38 5f 25 2c 37 |:B%=.(.$!vc8_%,7|
0000d3b0 2c 34 29 29 20 8b 24 21 76 63 38 5f 25 3d 22 30 |,4)) .$!vc8_%="0|
0000d3c0 31 2e 22 2b 24 21 76 63 32 5f 25 2b 22 2e 22 2b |1."+$!vc2_%+"."+|
0000d3d0 c1 74 6f 64 61 79 5f 24 2c 37 2c 34 29 0d 20 da |.today_$,7,4). .|
0000d3e0 2a e7 24 21 76 63 39 5f 25 3d 22 22 84 bb 28 24 |*.$!vc9_%=""..($|
0000d3f0 21 76 63 39 5f 25 29 3e 32 37 8c 24 21 76 63 39 |!vc9_%)>27.$!vc9|
0000d400 5f 25 3d 22 33 31 22 0d 20 df 26 41 25 2b 3d bb |_%="31". .&A%+=.|
0000d410 28 24 21 76 63 31 5f 25 29 3a e7 41 25 3e 31 32 |($!vc1_%):.A%>12|
0000d420 8c 42 25 2b 3d 31 3a 41 25 2d 3d 31 32 0d 20 e4 |.B%+=1:A%-=12. .|
0000d430 35 24 21 76 63 38 5f 25 3d a4 63 68 64 61 74 65 |5$!vc8_%=.chdate|
0000d440 5f 28 c0 24 21 76 63 38 5f 25 2c 32 29 2b 22 2e |_(.$!vc8_%,2)+".|
0000d450 22 2b c3 28 41 25 29 2b 22 2e 22 2b c3 28 42 25 |"+.(A%)+"."+.(B%|
0000d460 29 29 0d 20 e9 28 41 25 2b 3d bb 28 24 21 76 63 |)). .(A%+=.($!vc|
0000d470 31 5f 25 29 2d 31 3a e7 41 25 3e 31 32 8c 42 25 |1_%)-1:.A%>12.B%|
0000d480 2b 3d 31 3a 41 25 2d 3d 31 32 0d 20 ee 35 24 21 |+=1:A%-=12. .5$!|
0000d490 76 63 39 5f 25 3d a4 63 68 64 61 74 65 5f 28 c0 |vc9_%=.chdate_(.|
0000d4a0 24 21 76 63 39 5f 25 2c 32 29 2b 22 2e 22 2b c3 |$!vc9_%,2)+"."+.|
0000d4b0 28 41 25 29 2b 22 2e 22 2b c3 28 42 25 29 29 0d |(A%)+"."+.(B%)).|
0000d4c0 20 f3 27 56 61 74 43 5f 24 28 34 29 3d 24 21 76 | .'VatC_$(4)=$!v|
0000d4d0 63 38 5f 25 3a 56 61 74 43 5f 24 28 35 29 3d 24 |c8_%:VatC_$(5)=$|
0000d4e0 21 76 63 39 5f 25 0d 20 f8 1f f2 72 49 28 57 25 |!vc9_%. ...rI(W%|
0000d4f0 2c 22 76 63 38 22 29 3a f2 72 49 28 57 25 2c 22 |,"vc8"):.rI(W%,"|
0000d500 76 63 39 22 29 0d 20 fd 06 3d b9 0d 21 02 0d dd |vc9"). ..=..!...|
0000d510 a4 76 63 64 61 74 65 5f 0d 21 07 0b ea 20 41 25 |.vcdate_.!... A%|
0000d520 2c 42 25 0d 21 0c 25 41 25 3d bb 28 24 21 76 63 |,B%.!.%A%=.($!vc|
0000d530 32 5f 25 29 3a 42 25 3d bb 28 c1 74 6f 64 61 79 |2_%):B%=.(.today|
0000d540 5f 24 2c 37 2c 34 29 29 0d 21 11 1e e7 41 25 3e |_$,7,4)).!...A%>|
0000d550 bb 28 c1 74 6f 64 61 79 5f 24 2c 34 2c 32 29 29 |.(.today_$,4,2))|
0000d560 8c 42 25 2d 3d 31 0d 21 16 23 24 21 76 63 38 5f |.B%-=1.!.#$!vc8_|
0000d570 25 3d 22 30 31 2e 22 2b 24 21 76 63 32 5f 25 2b |%="01."+$!vc2_%+|
0000d580 22 2e 22 2b c3 28 42 25 29 0d 21 1b 1c 24 21 76 |"."+.(B%).!..$!v|
0000d590 63 39 5f 25 3d 22 33 31 22 3a 24 21 76 63 37 5f |c9_%="31":$!vc7_|
0000d5a0 25 3d 22 31 22 0d 21 20 35 24 21 76 63 38 5f 25 |%="1".! 5$!vc8_%|
0000d5b0 3d a4 63 68 64 61 74 65 5f 28 c0 24 21 76 63 38 |=.chdate_(.$!vc8|
0000d5c0 5f 25 2c 32 29 2b 22 2e 22 2b c3 28 41 25 29 2b |_%,2)+"."+.(A%)+|
0000d5d0 22 2e 22 2b c3 28 42 25 29 29 0d 21 25 28 41 25 |"."+.(B%)).!%(A%|
0000d5e0 2b 3d bb 28 24 21 76 63 31 5f 25 29 2d 31 3a e7 |+=.($!vc1_%)-1:.|
0000d5f0 41 25 3e 31 32 8c 42 25 2b 3d 31 3a 41 25 2d 3d |A%>12.B%+=1:A%-=|
0000d600 31 32 0d 21 2a 35 24 21 76 63 39 5f 25 3d a4 63 |12.!*5$!vc9_%=.c|
0000d610 68 64 61 74 65 5f 28 c0 24 21 76 63 39 5f 25 2c |hdate_(.$!vc9_%,|
0000d620 32 29 2b 22 2e 22 2b c3 28 41 25 29 2b 22 2e 22 |2)+"."+.(A%)+"."|
0000d630 2b c3 28 42 25 29 29 0d 21 2f 39 56 61 74 43 5f |+.(B%)).!/9VatC_|
0000d640 24 28 34 29 3d 24 21 76 63 38 5f 25 3a 56 61 74 |$(4)=$!vc8_%:Vat|
0000d650 43 5f 24 28 35 29 3d 24 21 76 63 39 5f 25 3a 56 |C_$(5)=$!vc9_%:V|
0000d660 61 74 43 5f 24 28 33 29 3d 24 21 76 63 37 5f 25 |atC_$(3)=$!vc7_%|
0000d670 0d 21 34 49 f2 72 49 28 57 25 2c 22 76 63 31 22 |.!4I.rI(W%,"vc1"|
0000d680 29 3a f2 72 49 28 57 25 2c 22 76 63 32 22 29 3a |):.rI(W%,"vc2"):|
0000d690 f2 72 49 28 57 25 2c 22 76 63 37 22 29 3a f2 72 |.rI(W%,"vc7"):.r|
0000d6a0 49 28 57 25 2c 22 76 63 38 22 29 3a f2 72 49 28 |I(W%,"vc8"):.rI(|
0000d6b0 57 25 2c 22 76 63 39 22 29 0d 21 39 06 3d b9 0d |W%,"vc9").!9.=..|
0000d6c0 21 3e 04 0d 21 43 0a dd a4 76 63 31 5f 0d 21 48 |!>..!C...vc1_.!H|
0000d6d0 28 e7 70 61 73 73 38 5f 24 3c 3e 22 22 8c f2 77 |(.pass8_$<>""..w|
0000d6e0 6c 5f 28 32 36 29 3a 3d a4 75 70 64 61 74 65 76 |l_(26):=.updatev|
0000d6f0 61 74 70 63 5f 0d 21 4d 2d e7 bb 28 24 21 76 63 |atpc_.!M-..($!vc|
0000d700 31 5f 25 29 3e 31 32 8c 24 21 76 63 31 5f 25 3d |1_%)>12.$!vc1_%=|
0000d710 22 31 32 22 3a f2 72 49 28 57 25 2c 22 76 63 31 |"12":.rI(W%,"vc1|
0000d720 22 29 0d 21 52 15 56 61 74 43 5f 24 28 31 29 3d |").!R.VatC_$(1)=|
0000d730 24 21 76 63 31 5f 25 0d 21 57 0d 3d a4 76 63 64 |$!vc1_%.!W.=.vcd|
0000d740 61 74 65 5f 0d 21 5c 0a dd a4 76 63 32 5f 0d 21 |ate_.!\...vc2_.!|
0000d750 61 28 e7 70 61 73 73 38 5f 24 3c 3e 22 22 8c f2 |a(.pass8_$<>""..|
0000d760 77 6c 5f 28 32 36 29 3a 3d a4 75 70 64 61 74 65 |wl_(26):=.update|
0000d770 76 61 74 70 63 5f 0d 21 66 2d e7 bb 28 24 21 76 |vatpc_.!f-..($!v|
0000d780 63 32 5f 25 29 3e 31 32 8c 24 21 76 63 32 5f 25 |c2_%)>12.$!vc2_%|
0000d790 3d 22 31 32 22 3a f2 72 49 28 57 25 2c 22 76 63 |="12":.rI(W%,"vc|
0000d7a0 32 22 29 0d 21 6b 15 56 61 74 43 5f 24 28 32 29 |2").!k.VatC_$(2)|
0000d7b0 3d 24 21 76 63 32 5f 25 0d 21 70 0d 3d a4 76 63 |=$!vc2_%.!p.=.vc|
0000d7c0 64 61 74 65 5f 0d 21 75 0a dd a4 76 63 38 5f 0d |date_.!u...vc8_.|
0000d7d0 21 7a 28 e7 70 61 73 73 38 5f 24 3c 3e 22 22 8c |!z(.pass8_$<>"".|
0000d7e0 f2 77 6c 5f 28 32 36 29 3a 3d a4 75 70 64 61 74 |.wl_(26):=.updat|
0000d7f0 65 76 61 74 70 63 5f 0d 21 7f 2a e7 24 21 76 63 |evatpc_.!.*.$!vc|
0000d800 38 5f 25 3c 3e 22 22 8c 24 21 76 63 38 5f 25 3d |8_%<>"".$!vc8_%=|
0000d810 a4 63 68 64 61 74 65 5f 28 24 21 76 63 38 5f 25 |.chdate_($!vc8_%|
0000d820 29 0d 21 84 15 56 61 74 43 5f 24 28 34 29 3d 24 |).!..VatC_$(4)=$|
0000d830 21 76 63 38 5f 25 0d 21 89 12 3d a4 75 70 64 61 |!vc8_%.!..=.upda|
0000d840 74 65 76 61 74 70 63 5f 0d 21 8e 0a dd a4 76 63 |tevatpc_.!....vc|
0000d850 39 5f 0d 21 93 28 e7 70 61 73 73 38 5f 24 3c 3e |9_.!.(.pass8_$<>|
0000d860 22 22 8c f2 77 6c 5f 28 32 36 29 3a 3d a4 75 70 |""..wl_(26):=.up|
0000d870 64 61 74 65 76 61 74 70 63 5f 0d 21 98 2a e7 24 |datevatpc_.!.*.$|
0000d880 21 76 63 39 5f 25 3c 3e 22 22 8c 24 21 76 63 39 |!vc9_%<>"".$!vc9|
0000d890 5f 25 3d a4 63 68 64 61 74 65 5f 28 24 21 76 63 |_%=.chdate_($!vc|
0000d8a0 39 5f 25 29 0d 21 9d 15 56 61 74 43 5f 24 28 35 |9_%).!..VatC_$(5|
0000d8b0 29 3d 24 21 76 63 39 5f 25 0d 21 a2 12 3d a4 75 |)=$!vc9_%.!..=.u|
0000d8c0 70 64 61 74 65 76 61 74 70 63 5f 0d 21 a7 04 0d |pdatevatpc_.!...|
0000d8d0 21 ac 55 dd a4 56 61 61 34 5f 3a ea 20 5a 25 3a |!.U..Vaa4_:. Z%:|
0000d8e0 56 61 74 43 5f 25 28 33 29 3d 31 3a 56 61 74 43 |VatC_%(3)=1:VatC|
0000d8f0 5f 25 28 34 29 3d 2d 31 3a 56 61 74 43 5f 25 28 |_%(4)=-1:VatC_%(|
0000d900 35 29 3d 2d 31 3a 5a 25 3d a4 56 61 70 61 70 65 |5)=-1:Z%=.Vapape|
0000d910 72 73 69 7a 65 5f 3a f2 73 65 74 43 5f 28 31 38 |rsize_:.setC_(18|
0000d920 29 3a 3d a3 0d 21 b1 55 dd a4 56 61 75 73 5f 3a |):=..!.U..Vaus_:|
0000d930 ea 20 5a 25 3a 56 61 74 43 5f 25 28 33 29 3d 2d |. Z%:VatC_%(3)=-|
0000d940 31 3a 56 61 74 43 5f 25 28 34 29 3d 31 3a 56 61 |1:VatC_%(4)=1:Va|
0000d950 74 43 5f 25 28 35 29 3d 2d 31 3a 5a 25 3d a4 56 |tC_%(5)=-1:Z%=.V|
0000d960 61 70 61 70 65 72 73 69 7a 65 5f 3a f2 73 65 74 |apapersize_:.set|
0000d970 43 5f 28 31 38 29 3a 3d a3 0d 21 b6 57 dd a4 56 |C_(18):=..!.W..V|
0000d980 61 63 75 73 74 5f 3a ea 20 5a 25 3a 56 61 74 43 |acust_:. Z%:VatC|
0000d990 5f 25 28 33 29 3d 2d 31 3a 56 61 74 43 5f 25 28 |_%(3)=-1:VatC_%(|
0000d9a0 34 29 3d 2d 31 3a 56 61 74 43 5f 25 28 35 29 3d |4)=-1:VatC_%(5)=|
0000d9b0 31 3a 5a 25 3d a4 56 61 70 61 70 65 72 73 69 7a |1:Z%=.Vapapersiz|
0000d9c0 65 5f 3a f2 73 65 74 43 5f 28 31 38 29 3a 3d a3 |e_:.setC_(18):=.|
0000d9d0 0d 21 bb 39 dd a4 56 61 74 61 62 5f 3a ea 20 5a |.!.9..Vatab_:. Z|
0000d9e0 25 3a 56 61 74 43 5f 25 28 36 29 3d 31 3a 56 61 |%:VatC_%(6)=1:Va|
0000d9f0 74 43 5f 25 28 37 29 3d 2d 31 3a 3d a4 56 61 70 |tC_%(7)=-1:=.Vap|
0000da00 61 70 65 72 73 69 7a 65 5f 0d 21 c0 3a dd a4 56 |apersize_.!.:..V|
0000da10 61 73 70 61 63 5f 3a ea 20 5a 25 3a 56 61 74 43 |aspac_:. Z%:VatC|
0000da20 5f 25 28 36 29 3d 2d 31 3a 56 61 74 43 5f 25 28 |_%(6)=-1:VatC_%(|
0000da30 37 29 3d 31 3a 3d a4 56 61 70 61 70 65 72 73 69 |7)=1:=.Vapapersi|
0000da40 7a 65 5f 0d 22 38 2a dd a4 43 53 4c 52 65 63 4e |ze_."8*..CSLRecN|
0000da50 75 6d 5f 3a 43 53 4c 52 65 63 4e 75 5f 25 3d 2d |um_:CSLRecNu_%=-|
0000da60 43 53 4c 52 65 63 4e 75 5f 25 3a 3d a3 0d 22 3d |CSLRecNu_%:=.."=|
0000da70 2f dd a4 43 4c 73 75 70 70 6c 69 65 72 5f 3a 43 |/..CLsupplier_:C|
0000da80 53 4c 73 75 70 70 6c 69 65 5f 25 3d 2d 43 53 4c |SLsupplie_%=-CSL|
0000da90 73 75 70 70 6c 69 65 5f 25 3a 3d a3 0d 22 42 24 |supplie_%:=.."B$|
0000daa0 dd a4 43 53 4c 61 64 31 31 5f 3a 43 53 4c 61 64 |..CSLad11_:CSLad|
0000dab0 31 5f 25 3d 2d 43 53 4c 61 64 31 5f 25 3a 3d a3 |1_%=-CSLad1_%:=.|
0000dac0 0d 22 47 24 dd a4 43 53 4c 61 64 32 32 5f 3a 43 |."G$..CSLad22_:C|
0000dad0 53 4c 61 64 32 5f 25 3d 2d 43 53 4c 61 64 32 5f |SLad2_%=-CSLad2_|
0000dae0 25 3a 3d a3 0d 22 4c 24 dd a4 43 53 4c 61 64 33 |%:=.."L$..CSLad3|
0000daf0 33 5f 3a 43 53 4c 61 64 33 5f 25 3d 2d 43 53 4c |3_:CSLad3_%=-CSL|
0000db00 61 64 33 5f 25 3a 3d a3 0d 22 51 24 dd a4 43 53 |ad3_%:=.."Q$..CS|
0000db10 4c 61 64 34 34 5f 3a 43 53 4c 61 64 34 5f 25 3d |Lad44_:CSLad4_%=|
0000db20 2d 43 53 4c 61 64 34 5f 25 3a 3d a3 0d 22 56 24 |-CSLad4_%:=.."V$|
0000db30 dd a4 43 53 4c 70 6f 73 74 5f 3a 43 53 4c 70 6f |..CSLpost_:CSLpo|
0000db40 73 5f 25 3d 2d 43 53 4c 70 6f 73 5f 25 3a 3d a3 |s_%=-CSLpos_%:=.|
0000db50 0d 22 5b 24 dd a4 43 53 4c 63 6f 6e 74 5f 3a 43 |."[$..CSLcont_:C|
0000db60 53 4c 63 6f 6e 5f 25 3d 2d 43 53 4c 63 6f 6e 5f |SLcon_%=-CSLcon_|
0000db70 25 3a 3d a3 0d 22 60 24 dd a4 43 53 4c 74 65 6c |%:=.."`$..CSLtel|
0000db80 65 5f 3a 43 53 4c 74 65 6c 5f 25 3d 2d 43 53 4c |e_:CSLtel_%=-CSL|
0000db90 74 65 6c 5f 25 3a 3d a3 0d 22 65 21 dd a4 43 53 |tel_%:=.."e!..CS|
0000dba0 4c 66 61 78 5f 3a 43 53 4c 66 61 5f 25 3d 2d 43 |Lfax_:CSLfa_%=-C|
0000dbb0 53 4c 66 61 5f 25 3a 3d a3 0d 22 6a 27 dd a4 43 |SLfa_%:=.."j'..C|
0000dbc0 53 4c 63 6f 6d 31 31 5f 3a 43 53 4c 63 6f 6d 31 |SLcom11_:CSLcom1|
0000dbd0 5f 25 3d 2d 43 53 4c 63 6f 6d 31 5f 25 3a 3d a3 |_%=-CSLcom1_%:=.|
0000dbe0 0d 22 6f 27 dd a4 43 53 4c 63 6f 6d 32 32 5f 3a |."o'..CSLcom22_:|
0000dbf0 43 53 4c 63 6f 6d 32 5f 25 3d 2d 43 53 4c 63 6f |CSLcom2_%=-CSLco|
0000dc00 6d 32 5f 25 3a 3d a3 0d 22 74 2d dd a4 43 53 4c |m2_%:=.."t-..CSL|
0000dc10 73 75 70 70 72 65 66 5f 3a 43 53 4c 73 75 70 70 |suppref_:CSLsupp|
0000dc20 72 65 5f 25 3d 2d 43 53 4c 73 75 70 70 72 65 5f |re_%=-CSLsuppre_|
0000dc30 25 3a 3d a3 0d 22 79 2d dd a4 43 53 4c 79 6f 75 |%:=.."y-..CSLyou|
0000dc40 72 72 65 66 5f 3a 43 53 4c 79 6f 75 72 72 65 5f |rref_:CSLyourre_|
0000dc50 25 3d 2d 43 53 4c 79 6f 75 72 72 65 5f 25 3a 3d |%=-CSLyourre_%:=|
0000dc60 a3 0d 22 7e 2a dd a4 43 53 4c 6f 72 64 70 72 65 |.."~*..CSLordpre|
0000dc70 5f 3a 43 53 4c 6f 72 64 70 72 5f 25 3d 2d 43 53 |_:CSLordpr_%=-CS|
0000dc80 4c 6f 72 64 70 72 5f 25 3a 3d a3 0d 22 83 24 dd |Lordpr_%:=..".$.|
0000dc90 a4 43 53 4c 64 65 62 74 5f 3a 43 53 4c 64 65 62 |.CSLdebt_:CSLdeb|
0000dca0 5f 25 3d 2d 43 53 4c 64 65 62 5f 25 3a 3d a3 0d |_%=-CSLdeb_%:=..|
0000dcb0 22 97 24 dd a4 43 53 75 70 4c 61 62 57 5f 3a 3d |".$..CSupLabW_:=|
0000dcc0 a4 77 69 6e 64 6f 77 28 22 43 53 75 70 4c 61 62 |.window("CSupLab|
0000dcd0 57 22 29 0d 22 9c 26 dd a4 43 53 75 70 4c 69 73 |W").".&..CSupLis|
0000dce0 74 57 5f 3a 3d a4 77 69 6e 64 6f 77 28 22 43 53 |tW_:=.window("CS|
0000dcf0 75 70 4c 69 73 74 57 22 29 0d 22 a1 04 0d 22 d8 |upListW")."...".|
0000dd00 2a dd a4 43 53 63 6f 6e 74 61 63 74 5f 3a 43 53 |*..CScontact_:CS|
0000dd10 63 6f 6e 74 61 63 5f 25 3d 2d 43 53 63 6f 6e 74 |contac_%=-CScont|
0000dd20 61 63 5f 25 3a 3d a3 0d 22 dd 21 dd a4 43 53 6e |ac_%:=..".!..CSn|
0000dd30 61 6d 65 5f 3a 43 53 6e 61 6d 5f 25 3d 2d 43 53 |ame_:CSnam_%=-CS|
0000dd40 6e 61 6d 5f 25 3a 3d a3 0d 22 e2 2a dd a4 43 53 |nam_%:=..".*..CS|
0000dd50 61 64 64 72 65 73 73 5f 3a 43 53 61 64 64 72 65 |address_:CSaddre|
0000dd60 73 5f 25 3d 2d 43 53 61 64 64 72 65 73 5f 25 3a |s_%=-CSaddres_%:|
0000dd70 3d a3 0d 22 e7 04 0d 22 f6 4d dd a4 43 53 61 34 |=.."...".M..CSa4|
0000dd80 5f 3a ea 20 5a 25 3a 43 53 61 34 5f 25 3d 31 3a |_:. Z%:CSa4_%=1:|
0000dd90 43 53 75 73 5f 25 3d 2d 31 3a 43 53 63 75 73 74 |CSus_%=-1:CScust|
0000dda0 5f 25 3d 2d 31 3a 5a 25 3d a4 43 53 70 61 70 65 |_%=-1:Z%=.CSpape|
0000ddb0 72 73 69 7a 65 5f 3a f2 73 65 74 43 5f 28 33 29 |rsize_:.setC_(3)|
0000ddc0 3a 3d a3 0d 23 0a 52 dd a4 43 53 4c 61 34 5f 3a |:=..#.R..CSLa4_:|
0000ddd0 ea 20 5a 25 3a 43 53 4c 61 34 5f 25 3d 31 3a 43 |. Z%:CSLa4_%=1:C|
0000dde0 53 4c 75 73 5f 25 3d 2d 31 3a 43 53 4c 63 75 73 |SLus_%=-1:CSLcus|
0000ddf0 74 5f 25 3d 2d 31 3a 5a 25 3d a4 43 53 4c 70 61 |t_%=-1:Z%=.CSLpa|
0000de00 70 65 72 73 69 7a 65 5f 3a f2 73 65 74 43 5f 28 |persize_:.setC_(|
0000de10 33 29 3a 3d a3 0d 23 14 4d dd a4 49 4f 61 34 5f |3):=..#.M..IOa4_|
0000de20 3a ea 20 5a 25 3a 49 4f 61 34 5f 25 3d 31 3a 49 |:. Z%:IOa4_%=1:I|
0000de30 4f 75 73 5f 25 3d 2d 31 3a 49 4f 63 75 73 74 5f |Ous_%=-1:IOcust_|
0000de40 25 3d 2d 31 3a 5a 25 3d a4 49 4f 70 61 70 65 72 |%=-1:Z%=.IOpaper|
0000de50 73 69 7a 65 5f 3a f2 73 65 74 43 5f 28 31 29 3a |size_:.setC_(1):|
0000de60 3d a3 0d 23 1e 04 0d 23 2d 4d dd a4 43 53 75 73 |=..#...#-M..CSus|
0000de70 5f 3a ea 20 5a 25 3a 43 53 75 73 5f 25 3d 31 3a |_:. Z%:CSus_%=1:|
0000de80 43 53 61 34 5f 25 3d 2d 31 3a 43 53 63 75 73 74 |CSa4_%=-1:CScust|
0000de90 5f 25 3d 2d 31 3a 5a 25 3d a4 43 53 70 61 70 65 |_%=-1:Z%=.CSpape|
0000dea0 72 73 69 7a 65 5f 3a f2 73 65 74 43 5f 28 33 29 |rsize_:.setC_(3)|
0000deb0 3a 3d a3 0d 23 41 52 dd a4 43 53 4c 75 73 5f 3a |:=..#AR..CSLus_:|
0000dec0 ea 20 5a 25 3a 43 53 4c 75 73 5f 25 3d 31 3a 43 |. Z%:CSLus_%=1:C|
0000ded0 53 4c 61 34 5f 25 3d 2d 31 3a 43 53 4c 63 75 73 |SLa4_%=-1:CSLcus|
0000dee0 74 5f 25 3d 2d 31 3a 5a 25 3d a4 43 53 4c 70 61 |t_%=-1:Z%=.CSLpa|
0000def0 70 65 72 73 69 7a 65 5f 3a f2 73 65 74 43 5f 28 |persize_:.setC_(|
0000df00 33 29 3a 3d a3 0d 23 4b 4d dd a4 49 4f 75 73 5f |3):=..#KM..IOus_|
0000df10 3a ea 20 5a 25 3a 49 4f 75 73 5f 25 3d 31 3a 49 |:. Z%:IOus_%=1:I|
0000df20 4f 61 34 5f 25 3d 2d 31 3a 49 4f 63 75 73 74 5f |Oa4_%=-1:IOcust_|
0000df30 25 3d 2d 31 3a 5a 25 3d a4 49 4f 70 61 70 65 72 |%=-1:Z%=.IOpaper|
0000df40 73 69 7a 65 5f 3a f2 73 65 74 43 5f 28 31 29 3a |size_:.setC_(1):|
0000df50 3d a3 0d 23 55 04 0d 23 64 4f dd a4 43 53 63 75 |=..#U..#dO..CScu|
0000df60 73 74 5f 3a ea 20 5a 25 3a 43 53 63 75 73 74 5f |st_:. Z%:CScust_|
0000df70 25 3d 31 3a 43 53 61 34 5f 25 3d 2d 31 3a 43 53 |%=1:CSa4_%=-1:CS|
0000df80 75 73 5f 25 3d 2d 31 3a 5a 25 3d a4 43 53 70 61 |us_%=-1:Z%=.CSpa|
0000df90 70 65 72 73 69 7a 65 5f 3a f2 73 65 74 43 5f 28 |persize_:.setC_(|
0000dfa0 33 29 3a 3d a3 0d 23 78 54 dd a4 43 53 4c 63 75 |3):=..#xT..CSLcu|
0000dfb0 73 74 5f 3a ea 20 5a 25 3a 43 53 4c 63 75 73 74 |st_:. Z%:CSLcust|
0000dfc0 5f 25 3d 31 3a 43 53 4c 61 34 5f 25 3d 2d 31 3a |_%=1:CSLa4_%=-1:|
0000dfd0 43 53 4c 75 73 5f 25 3d 2d 31 3a 5a 25 3d a4 43 |CSLus_%=-1:Z%=.C|
0000dfe0 53 4c 70 61 70 65 72 73 69 7a 65 5f 3a f2 73 65 |SLpapersize_:.se|
0000dff0 74 43 5f 28 33 29 3a 3d a3 0d 23 82 4f dd a4 49 |tC_(3):=..#.O..I|
0000e000 4f 63 75 73 74 5f 3a ea 20 5a 25 3a 49 4f 63 75 |Ocust_:. Z%:IOcu|
0000e010 73 74 5f 25 3d 31 3a 49 4f 61 34 5f 25 3d 2d 31 |st_%=1:IOa4_%=-1|
0000e020 3a 49 4f 75 73 5f 25 3d 2d 31 3a 5a 25 3d a4 49 |:IOus_%=-1:Z%=.I|
0000e030 4f 70 61 70 65 72 73 69 7a 65 5f 3a f2 73 65 74 |Opapersize_:.set|
0000e040 43 5f 28 31 29 3a 3d a3 0d 23 8c 8d dd a4 53 61 |C_(1):=..#....Sa|
0000e050 63 68 65 63 6b 73 69 7a 65 5f 3a e7 53 61 6c 65 |checksize_:.Sale|
0000e060 64 52 5f 24 28 32 31 29 3c 3e 22 32 31 30 22 84 |dR_$(21)<>"210".|
0000e070 53 61 6c 65 64 52 5f 24 28 32 32 29 3c 3e 22 32 |SaledR_$(22)<>"2|
0000e080 37 39 22 80 53 61 6c 65 64 52 5f 24 28 32 32 29 |79".SaledR_$(22)|
0000e090 3c 3e 22 32 39 37 22 8c 53 61 6c 65 64 52 5f 25 |<>"297".SaledR_%|
0000e0a0 28 31 34 29 3d 31 3a 53 61 6c 65 64 52 5f 25 28 |(14)=1:SaledR_%(|
0000e0b0 31 32 29 3d 2d 31 3a 53 61 6c 65 64 52 5f 25 28 |12)=-1:SaledR_%(|
0000e0c0 31 33 29 3d 2d 31 3a 3d a4 53 61 70 61 70 65 72 |13)=-1:=.Sapaper|
0000e0d0 73 69 7a 65 5f 0d 23 8e 06 3d a3 0d 23 96 8d dd |size_.#..=..#...|
0000e0e0 a4 50 61 63 68 65 63 6b 73 69 7a 65 5f 3a e7 50 |.Pachecksize_:.P|
0000e0f0 61 6c 65 64 52 5f 24 28 32 31 29 3c 3e 22 32 31 |aledR_$(21)<>"21|
0000e100 30 22 84 50 61 6c 65 64 52 5f 24 28 32 32 29 3c |0".PaledR_$(22)<|
0000e110 3e 22 32 37 39 22 80 50 61 6c 65 64 52 5f 24 28 |>"279".PaledR_$(|
0000e120 32 32 29 3c 3e 22 32 39 37 22 8c 50 61 6c 65 64 |22)<>"297".Paled|
0000e130 52 5f 25 28 31 34 29 3d 31 3a 50 61 6c 65 64 52 |R_%(14)=1:PaledR|
0000e140 5f 25 28 31 32 29 3d 2d 31 3a 50 61 6c 65 64 52 |_%(12)=-1:PaledR|
0000e150 5f 25 28 31 33 29 3d 2d 31 3a 3d a4 50 61 70 61 |_%(13)=-1:=.Papa|
0000e160 70 65 72 73 69 7a 65 5f 0d 23 9b 06 3d a3 0d 23 |persize_.#..=..#|
0000e170 a0 8a dd a4 42 61 63 68 65 63 6b 73 69 7a 65 5f |....Bachecksize_|
0000e180 3a e7 42 61 6c 65 64 52 5f 24 28 31 31 29 3c 3e |:.BaledR_$(11)<>|
0000e190 22 32 31 30 22 84 42 61 6c 65 64 52 5f 24 28 31 |"210".BaledR_$(1|
0000e1a0 32 29 3c 3e 22 32 37 39 22 80 42 61 6c 65 64 52 |2)<>"279".BaledR|
0000e1b0 5f 24 28 31 32 29 3c 3e 22 32 39 37 22 8c 42 61 |_$(12)<>"297".Ba|
0000e1c0 6c 65 64 52 5f 25 28 38 29 3d 31 3a 42 61 6c 65 |ledR_%(8)=1:Bale|
0000e1d0 64 52 5f 25 28 36 29 3d 2d 31 3a 42 61 6c 65 64 |dR_%(6)=-1:Baled|
0000e1e0 52 5f 25 28 37 29 3d 2d 31 3a 3d a4 42 61 70 61 |R_%(7)=-1:=.Bapa|
0000e1f0 70 65 72 73 69 7a 65 5f 0d 23 a5 06 3d a3 0d 23 |persize_.#..=..#|
0000e200 aa 7b dd a4 56 61 63 68 65 63 6b 73 69 7a 65 5f |.{..Vachecksize_|
0000e210 3a e7 56 61 74 43 5f 24 28 36 29 3c 3e 22 32 31 |:.VatC_$(6)<>"21|
0000e220 30 22 84 56 61 74 43 5f 24 28 37 29 3c 3e 22 32 |0".VatC_$(7)<>"2|
0000e230 37 39 22 80 56 61 74 43 5f 24 28 37 29 3c 3e 22 |79".VatC_$(7)<>"|
0000e240 32 39 37 22 8c 56 61 74 43 5f 25 28 35 29 3d 31 |297".VatC_%(5)=1|
0000e250 3a 56 61 74 43 5f 25 28 33 29 3d 2d 31 3a 56 61 |:VatC_%(3)=-1:Va|
0000e260 74 43 5f 25 28 34 29 3d 2d 31 3a 3d a4 56 61 70 |tC_%(4)=-1:=.Vap|
0000e270 61 70 65 72 73 69 7a 65 5f 0d 23 af 06 3d a3 0d |apersize_.#..=..|
0000e280 23 d2 63 dd a4 58 63 68 65 63 6b 73 69 7a 65 5f |#.c..Xchecksize_|
0000e290 3a e7 58 70 61 67 78 5f 25 3c 3e 32 31 30 84 58 |:.Xpagx_%<>210.X|
0000e2a0 70 61 67 79 5f 25 3c 3e 32 37 39 80 58 70 61 67 |pagy_%<>279.Xpag|
0000e2b0 79 5f 25 3c 3e 32 39 37 8c 58 63 75 73 74 5f 25 |y_%<>297.Xcust_%|
0000e2c0 3d 31 3a 58 61 34 5f 25 3d 2d 31 3a 58 75 73 5f |=1:Xa4_%=-1:Xus_|
0000e2d0 25 3d 2d 31 3a 3d a4 58 70 61 70 65 72 73 69 7a |%=-1:=.Xpapersiz|
0000e2e0 65 5f 0d 23 d7 06 3d a3 0d 23 dc 6b dd a4 43 53 |e_.#..=..#.k..CS|
0000e2f0 63 68 65 63 6b 73 69 7a 65 5f 3a e7 43 53 70 61 |checksize_:.CSpa|
0000e300 67 78 5f 25 3c 3e 32 31 30 84 43 53 70 61 67 79 |gx_%<>210.CSpagy|
0000e310 5f 25 3c 3e 32 37 39 80 43 53 70 61 67 79 5f 25 |_%<>279.CSpagy_%|
0000e320 3c 3e 32 39 37 8c 43 53 63 75 73 74 5f 25 3d 31 |<>297.CScust_%=1|
0000e330 3a 43 53 61 34 5f 25 3d 2d 31 3a 43 53 75 73 5f |:CSa4_%=-1:CSus_|
0000e340 25 3d 2d 31 3a 3d a4 43 53 70 61 70 65 72 73 69 |%=-1:=.CSpapersi|
0000e350 7a 65 5f 0d 23 e1 06 3d a3 0d 24 04 73 dd a4 43 |ze_.#..=..$.s..C|
0000e360 53 4c 63 68 65 63 6b 73 69 7a 65 5f 3a e7 43 53 |SLchecksize_:.CS|
0000e370 4c 70 61 67 78 5f 25 3c 3e 32 31 30 84 43 53 4c |Lpagx_%<>210.CSL|
0000e380 70 61 67 79 5f 25 3c 3e 32 37 39 80 43 53 4c 70 |pagy_%<>279.CSLp|
0000e390 61 67 79 5f 25 3c 3e 32 39 37 8c 43 53 4c 63 75 |agy_%<>297.CSLcu|
0000e3a0 73 74 5f 25 3d 31 3a 43 53 4c 61 34 5f 25 3d 2d |st_%=1:CSLa4_%=-|
0000e3b0 31 3a 43 53 4c 75 73 5f 25 3d 2d 31 3a 3d a4 43 |1:CSLus_%=-1:=.C|
0000e3c0 53 4c 70 61 70 65 72 73 69 7a 65 5f 0d 24 09 06 |SLpapersize_.$..|
0000e3d0 3d a3 0d 24 18 5c dd a4 49 4f 63 68 65 63 6b 73 |=..$.\..IOchecks|
0000e3e0 69 7a 65 5f 3a e7 49 4f 70 61 67 78 5f 25 3c 3e |ize_:.IOpagx_%<>|
0000e3f0 32 31 30 84 49 4f 70 61 67 79 5f 25 3c 3e 32 37 |210.IOpagy_%<>27|
0000e400 39 80 49 4f 70 61 67 79 5f 25 3c 3e 32 39 37 8c |9.IOpagy_%<>297.|
0000e410 49 4f 63 75 73 74 5f 25 3d 31 3a 49 4f 61 34 5f |IOcust_%=1:IOa4_|
0000e420 25 3d 2d 31 3a 49 4f 75 73 5f 25 3d 2d 31 0d 24 |%=-1:IOus_%=-1.$|
0000e430 1d 06 3d a3 0d 24 36 4c dd a4 58 70 61 67 65 78 |..=..$6L..Xpagex|
0000e440 5f 3a 58 70 61 67 78 5f 25 3d bb 28 24 21 58 70 |_:Xpagx_%=.($!Xp|
0000e450 61 67 65 78 5f 25 29 3a f2 72 49 28 57 25 2c 22 |agex_%):.rI(W%,"|
0000e460 58 70 61 67 65 78 22 29 3a f2 73 65 74 43 5f 28 |Xpagex"):.setC_(|
0000e470 34 29 3a 3d a4 58 63 68 65 63 6b 73 69 7a 65 5f |4):=.Xchecksize_|
0000e480 0d 24 3b 51 dd a4 43 53 70 61 67 65 78 5f 3a 43 |.$;Q..CSpagex_:C|
0000e490 53 70 61 67 78 5f 25 3d bb 28 24 21 43 53 70 61 |Spagx_%=.($!CSpa|
0000e4a0 67 65 78 5f 25 29 3a f2 72 49 28 57 25 2c 22 43 |gex_%):.rI(W%,"C|
0000e4b0 53 70 61 67 65 78 22 29 3a f2 73 65 74 43 5f 28 |Spagex"):.setC_(|
0000e4c0 34 29 3a 3d a4 43 53 63 68 65 63 6b 73 69 7a 65 |4):=.CSchecksize|
0000e4d0 5f 0d 24 4f 56 dd a4 43 53 4c 70 61 67 65 78 5f |_.$OV..CSLpagex_|
0000e4e0 3a 43 53 4c 70 61 67 78 5f 25 3d bb 28 24 21 43 |:CSLpagx_%=.($!C|
0000e4f0 53 4c 70 61 67 65 78 5f 25 29 3a f2 72 49 28 57 |SLpagex_%):.rI(W|
0000e500 25 2c 22 43 53 4c 70 61 67 65 78 22 29 3a f2 73 |%,"CSLpagex"):.s|
0000e510 65 74 43 5f 28 34 29 3a 3d a4 43 53 4c 63 68 65 |etC_(4):=.CSLche|
0000e520 63 6b 73 69 7a 65 5f 0d 24 54 04 0d 24 5e 33 dd |cksize_.$T..$^3.|
0000e530 a4 49 4f 70 61 67 65 78 5f 3a ea 20 5a 25 3a 5a |.IOpagex_:. Z%:Z|
0000e540 25 3d a4 49 75 70 64 61 74 65 4f 72 64 65 72 50 |%=.IupdateOrderP|
0000e550 5f 3a f2 73 65 74 43 5f 28 32 29 3a 3d a3 0d 24 |_:.setC_(2):=..$|
0000e560 68 53 dd a4 53 61 70 61 67 65 78 5f 3a 53 61 6c |hS..Sapagex_:Sal|
0000e570 65 64 52 5f 24 28 32 31 29 3d 24 21 53 61 70 61 |edR_$(21)=$!Sapa|
0000e580 67 65 78 5f 25 3a f2 72 49 28 57 25 2c 22 53 61 |gex_%:.rI(W%,"Sa|
0000e590 70 61 67 65 78 22 29 3a f2 73 65 74 43 5f 28 35 |pagex"):.setC_(5|
0000e5a0 31 29 3a 3d a4 53 61 63 68 65 63 6b 73 69 7a 65 |1):=.Sachecksize|
0000e5b0 5f 0d 24 6d 53 dd a4 50 61 70 61 67 65 78 5f 3a |_.$mS..Papagex_:|
0000e5c0 50 61 6c 65 64 52 5f 24 28 32 31 29 3d 24 21 50 |PaledR_$(21)=$!P|
0000e5d0 61 70 61 67 65 78 5f 25 3a f2 72 49 28 57 25 2c |apagex_%:.rI(W%,|
0000e5e0 22 50 61 70 61 67 65 78 22 29 3a f2 73 65 74 43 |"Papagex"):.setC|
0000e5f0 5f 28 35 31 29 3a 3d a4 50 61 63 68 65 63 6b 73 |_(51):=.Pachecks|
0000e600 69 7a 65 5f 0d 24 72 53 dd a4 42 61 70 61 67 65 |ize_.$rS..Bapage|
0000e610 78 5f 3a 42 61 6c 65 64 52 5f 24 28 31 31 29 3d |x_:BaledR_$(11)=|
0000e620 24 21 42 61 70 61 67 65 78 5f 25 3a f2 72 49 28 |$!Bapagex_%:.rI(|
0000e630 57 25 2c 22 42 61 70 61 67 65 78 22 29 3a f2 73 |W%,"Bapagex"):.s|
0000e640 65 74 43 5f 28 33 36 29 3a 3d a4 42 61 63 68 65 |etC_(36):=.Bache|
0000e650 63 6b 73 69 7a 65 5f 0d 24 77 50 dd a4 56 61 70 |cksize_.$wP..Vap|
0000e660 61 67 65 78 5f 3a 56 61 74 43 5f 24 28 36 29 3d |agex_:VatC_$(6)=|
0000e670 24 21 56 61 70 61 67 65 78 5f 25 3a f2 72 49 28 |$!Vapagex_%:.rI(|
0000e680 57 25 2c 22 56 61 70 61 67 65 78 22 29 3a f2 73 |W%,"Vapagex"):.s|
0000e690 65 74 43 5f 28 32 30 29 3a 3d a4 56 61 63 68 65 |etC_(20):=.Vache|
0000e6a0 63 6b 73 69 7a 65 5f 0d 24 81 04 0d 24 8b 33 dd |cksize_.$...$.3.|
0000e6b0 a4 49 4f 70 61 67 65 79 5f 3a ea 20 5a 25 3a 5a |.IOpagey_:. Z%:Z|
0000e6c0 25 3d a4 49 75 70 64 61 74 65 4f 72 64 65 72 50 |%=.IupdateOrderP|
0000e6d0 5f 3a f2 73 65 74 43 5f 28 31 29 3a 3d a3 0d 24 |_:.setC_(1):=..$|
0000e6e0 9f 4c dd a4 58 70 61 67 65 79 5f 3a 58 70 61 67 |.L..Xpagey_:Xpag|
0000e6f0 79 5f 25 3d bb 28 24 21 58 70 61 67 65 79 5f 25 |y_%=.($!Xpagey_%|
0000e700 29 3a f2 72 49 28 57 25 2c 22 58 70 61 67 65 79 |):.rI(W%,"Xpagey|
0000e710 22 29 3a f2 73 65 74 43 5f 28 35 29 3a 3d a4 58 |"):.setC_(5):=.X|
0000e720 63 68 65 63 6b 73 69 7a 65 5f 0d 24 a4 51 dd a4 |checksize_.$.Q..|
0000e730 43 53 70 61 67 65 79 5f 3a 43 53 70 61 67 79 5f |CSpagey_:CSpagy_|
0000e740 25 3d bb 28 24 21 43 53 70 61 67 65 79 5f 25 29 |%=.($!CSpagey_%)|
0000e750 3a f2 72 49 28 57 25 2c 22 43 53 70 61 67 65 79 |:.rI(W%,"CSpagey|
0000e760 22 29 3a f2 73 65 74 43 5f 28 35 29 3a 3d a4 43 |"):.setC_(5):=.C|
0000e770 53 63 68 65 63 6b 73 69 7a 65 5f 0d 24 b8 56 dd |Schecksize_.$.V.|
0000e780 a4 43 53 4c 70 61 67 65 79 5f 3a 43 53 4c 70 61 |.CSLpagey_:CSLpa|
0000e790 67 79 5f 25 3d bb 28 24 21 43 53 4c 70 61 67 65 |gy_%=.($!CSLpage|
0000e7a0 79 5f 25 29 3a f2 72 49 28 57 25 2c 22 43 53 4c |y_%):.rI(W%,"CSL|
0000e7b0 70 61 67 65 79 22 29 3a f2 73 65 74 43 5f 28 35 |pagey"):.setC_(5|
0000e7c0 29 3a 3d a4 43 53 4c 63 68 65 63 6b 73 69 7a 65 |):=.CSLchecksize|
0000e7d0 5f 0d 24 bd 53 dd a4 53 61 70 61 67 65 79 5f 3a |_.$.S..Sapagey_:|
0000e7e0 53 61 6c 65 64 52 5f 24 28 32 32 29 3d 24 21 53 |SaledR_$(22)=$!S|
0000e7f0 61 70 61 67 65 79 5f 25 3a f2 72 49 28 57 25 2c |apagey_%:.rI(W%,|
0000e800 22 53 61 70 61 67 65 79 22 29 3a f2 73 65 74 43 |"Sapagey"):.setC|
0000e810 5f 28 35 32 29 3a 3d a4 53 61 63 68 65 63 6b 73 |_(52):=.Sachecks|
0000e820 69 7a 65 5f 0d 24 c2 53 dd a4 50 61 70 61 67 65 |ize_.$.S..Papage|
0000e830 79 5f 3a 50 61 6c 65 64 52 5f 24 28 32 32 29 3d |y_:PaledR_$(22)=|
0000e840 24 21 50 61 70 61 67 65 79 5f 25 3a f2 72 49 28 |$!Papagey_%:.rI(|
0000e850 57 25 2c 22 50 61 70 61 67 65 79 22 29 3a f2 73 |W%,"Papagey"):.s|
0000e860 65 74 43 5f 28 35 32 29 3a 3d a4 50 61 63 68 65 |etC_(52):=.Pache|
0000e870 63 6b 73 69 7a 65 5f 0d 24 c7 53 dd a4 42 61 70 |cksize_.$.S..Bap|
0000e880 61 67 65 79 5f 3a 42 61 6c 65 64 52 5f 24 28 31 |agey_:BaledR_$(1|
0000e890 32 29 3d 24 21 42 61 70 61 67 65 79 5f 25 3a f2 |2)=$!Bapagey_%:.|
0000e8a0 72 49 28 57 25 2c 22 42 61 70 61 67 65 79 22 29 |rI(W%,"Bapagey")|
0000e8b0 3a f2 73 65 74 43 5f 28 33 37 29 3a 3d a4 42 61 |:.setC_(37):=.Ba|
0000e8c0 63 68 65 63 6b 73 69 7a 65 5f 0d 24 cc 50 dd a4 |checksize_.$.P..|
0000e8d0 56 61 70 61 67 65 79 5f 3a 56 61 74 43 5f 24 28 |Vapagey_:VatC_$(|
0000e8e0 37 29 3d 24 21 56 61 70 61 67 65 79 5f 25 3a f2 |7)=$!Vapagey_%:.|
0000e8f0 72 49 28 57 25 2c 22 56 61 70 61 67 65 79 22 29 |rI(W%,"Vapagey")|
0000e900 3a f2 73 65 74 43 5f 28 32 36 29 3a 3d a4 56 61 |:.setC_(26):=.Va|
0000e910 63 68 65 63 6b 73 69 7a 65 5f 0d 24 d6 04 0d 24 |checksize_.$...$|
0000e920 ea 45 dd a4 43 53 4c 6c 65 66 74 5f 3a 43 53 4c |.E..CSLleft_:CSL|
0000e930 6c 65 66 5f 25 3d bb 28 24 21 43 53 4c 6c 65 66 |lef_%=.($!CSLlef|
0000e940 74 5f 25 29 3a f2 72 49 28 57 25 2c 22 43 53 4c |t_%):.rI(W%,"CSL|
0000e950 6c 65 66 74 22 29 3a f2 73 65 74 43 5f 28 37 29 |left"):.setC_(7)|
0000e960 3a 3d a3 0d 24 ef 04 0d 25 3f 0e dd a4 43 53 4c |:=..$...%?...CSL|
0000e970 74 6f 70 70 5f 0d 25 44 1b 43 53 4c 74 6f 70 5f |topp_.%D.CSLtop_|
0000e980 25 3d bb 28 24 21 43 53 4c 74 6f 70 70 5f 25 29 |%=.($!CSLtopp_%)|
0000e990 0d 25 49 15 f2 72 49 28 57 25 2c 22 43 53 4c 74 |.%I..rI(W%,"CSLt|
0000e9a0 6f 70 70 22 29 0d 25 4e 0d f2 73 65 74 43 5f 28 |opp").%N..setC_(|
0000e9b0 36 29 0d 25 53 06 3d a3 0d 25 58 04 0d 25 a8 0f |6).%S.=..%X..%..|
0000e9c0 dd a4 43 53 4c 73 70 61 63 65 5f 0d 25 ad 1d 43 |..CSLspace_.%..C|
0000e9d0 53 4c 73 70 61 63 5f 25 3d bb 28 24 21 43 53 4c |SLspac_%=.($!CSL|
0000e9e0 73 70 61 63 65 5f 25 29 0d 25 b2 16 f2 72 49 28 |space_%).%...rI(|
0000e9f0 57 25 2c 22 43 53 4c 73 70 61 63 65 22 29 0d 25 |W%,"CSLspace").%|
0000ea00 b7 0d f2 73 65 74 43 5f 28 38 29 0d 25 bc 06 3d |...setC_(8).%..=|
0000ea10 a3 0d 25 c1 04 0d 25 f8 0f dd a4 43 53 61 63 72 |..%...%....CSacr|
0000ea20 6f 73 73 5f 0d 25 fd 1d 43 53 61 63 72 6f 73 5f |oss_.%..CSacros_|
0000ea30 25 3d bb 28 24 21 43 53 61 63 72 6f 73 73 5f 25 |%=.($!CSacross_%|
0000ea40 29 0d 26 02 16 f2 72 49 28 57 25 2c 22 43 53 61 |).&...rI(W%,"CSa|
0000ea50 63 72 6f 73 73 22 29 0d 26 07 0d f2 73 65 74 43 |cross").&...setC|
0000ea60 5f 28 36 29 0d 26 0c 06 3d a3 0d 26 11 04 0d 26 |_(6).&..=..&...&|
0000ea70 48 0d dd a4 43 53 64 6f 77 6e 5f 0d 26 4d 19 43 |H...CSdown_.&M.C|
0000ea80 53 64 6f 77 5f 25 3d bb 28 24 21 43 53 64 6f 77 |Sdow_%=.($!CSdow|
0000ea90 6e 5f 25 29 0d 26 52 14 f2 72 49 28 57 25 2c 22 |n_%).&R..rI(W%,"|
0000eaa0 43 53 64 6f 77 6e 22 29 0d 26 57 0d f2 73 65 74 |CSdown").&W..set|
0000eab0 43 5f 28 37 29 0d 26 5c 06 3d a3 0d 26 61 04 0d |C_(7).&\.=..&a..|
0000eac0 26 98 0f dd a4 43 53 6e 75 6d 62 65 72 5f 0d 26 |&....CSnumber_.&|
0000ead0 9d 1d 43 53 6e 75 6d 62 65 5f 25 3d bb 28 24 21 |..CSnumbe_%=.($!|
0000eae0 43 53 6e 75 6d 62 65 72 5f 25 29 0d 26 a2 16 f2 |CSnumber_%).&...|
0000eaf0 72 49 28 57 25 2c 22 43 53 6e 75 6d 62 65 72 22 |rI(W%,"CSnumber"|
0000eb00 29 0d 26 a7 0d f2 73 65 74 43 5f 28 38 29 0d 26 |).&...setC_(8).&|
0000eb10 ac 06 3d a3 0d 26 b1 04 0d 26 e8 0e dd a4 43 53 |..=..&...&....CS|
0000eb20 73 74 61 72 74 5f 0d 26 ed 1b 43 53 73 74 61 72 |start_.&..CSstar|
0000eb30 5f 25 3d bb 28 24 21 43 53 73 74 61 72 74 5f 25 |_%=.($!CSstart_%|
0000eb40 29 0d 26 f2 15 f2 72 49 28 57 25 2c 22 43 53 73 |).&...rI(W%,"CSs|
0000eb50 74 61 72 74 22 29 0d 26 f7 0d f2 73 65 74 43 5f |tart").&...setC_|
0000eb60 28 39 29 0d 26 fc 06 3d a3 0d 27 01 04 0d 27 38 |(9).&..=..'...'8|
0000eb70 0d dd a4 58 66 6f 6e 74 78 5f 0d 27 3d 19 58 66 |...Xfontx_.'=.Xf|
0000eb80 6f 6e 5f 78 25 3d bb 28 24 21 58 66 6f 6e 74 78 |on_x%=.($!Xfontx|
0000eb90 5f 25 29 0d 27 42 14 f2 72 49 28 57 25 2c 22 58 |_%).'B..rI(W%,"X|
0000eba0 66 6f 6e 74 78 22 29 0d 27 47 0d f2 73 65 74 43 |fontx").'G..setC|
0000ebb0 5f 28 36 29 0d 27 4c 06 3d a3 0d 27 51 0e dd a4 |_(6).'L.=..'Q...|
0000ebc0 43 53 66 6f 6e 74 78 5f 0d 27 56 1b 43 53 66 6f |CSfontx_.'V.CSfo|
0000ebd0 6e 5f 78 25 3d bb 28 24 21 43 53 66 6f 6e 74 78 |n_x%=.($!CSfontx|
0000ebe0 5f 25 29 0d 27 5b 15 f2 72 49 28 57 25 2c 22 43 |_%).'[..rI(W%,"C|
0000ebf0 53 66 6f 6e 74 78 22 29 0d 27 60 0e f2 73 65 74 |Sfontx").'`..set|
0000ec00 43 5f 28 31 30 29 0d 27 65 06 3d a3 0d 27 b5 0f |C_(10).'e.=..'..|
0000ec10 dd a4 43 53 4c 66 6f 6e 74 78 5f 0d 27 ba 1d 43 |..CSLfontx_.'..C|
0000ec20 53 4c 66 6f 6e 5f 78 25 3d bb 28 24 21 43 53 4c |SLfon_x%=.($!CSL|
0000ec30 66 6f 6e 74 78 5f 25 29 0d 27 bf 16 f2 72 49 28 |fontx_%).'...rI(|
0000ec40 57 25 2c 22 43 53 4c 66 6f 6e 74 78 22 29 0d 27 |W%,"CSLfontx").'|
0000ec50 c4 0d f2 73 65 74 43 5f 28 39 29 0d 27 c9 06 3d |...setC_(9).'..=|
0000ec60 a3 0d 27 ce 0e dd a4 53 61 66 6f 6e 74 78 5f 0d |..'....Safontx_.|
0000ec70 27 d3 1c 53 61 6c 65 64 52 5f 24 28 32 33 29 3d |'..SaledR_$(23)=|
0000ec80 24 21 53 61 66 6f 6e 74 78 5f 25 0d 27 d8 15 f2 |$!Safontx_%.'...|
0000ec90 72 49 28 57 25 2c 22 53 61 66 6f 6e 74 78 22 29 |rI(W%,"Safontx")|
0000eca0 0d 27 dd 0e f2 73 65 74 43 5f 28 35 33 29 0d 27 |.'...setC_(53).'|
0000ecb0 e2 06 3d a3 0d 27 e7 0e dd a4 53 61 66 6f 6e 74 |..=..'....Safont|
0000ecc0 79 5f 0d 27 ec 1c 53 61 6c 65 64 52 5f 24 28 32 |y_.'..SaledR_$(2|
0000ecd0 34 29 3d 24 21 53 61 66 6f 6e 74 79 5f 25 0d 27 |4)=$!Safonty_%.'|
0000ece0 f1 15 f2 72 49 28 57 25 2c 22 53 61 66 6f 6e 74 |...rI(W%,"Safont|
0000ecf0 79 22 29 0d 27 f6 0e f2 73 65 74 43 5f 28 35 34 |y").'...setC_(54|
0000ed00 29 0d 27 fb 06 3d a3 0d 28 00 0e dd a4 50 61 66 |).'..=..(....Paf|
0000ed10 6f 6e 74 78 5f 0d 28 05 1c 50 61 6c 65 64 52 5f |ontx_.(..PaledR_|
0000ed20 24 28 32 33 29 3d 24 21 50 61 66 6f 6e 74 78 5f |$(23)=$!Pafontx_|
0000ed30 25 0d 28 0a 15 f2 72 49 28 57 25 2c 22 50 61 66 |%.(...rI(W%,"Paf|
0000ed40 6f 6e 74 78 22 29 0d 28 0f 0e f2 73 65 74 43 5f |ontx").(...setC_|
0000ed50 28 35 33 29 0d 28 14 06 3d a3 0d 28 19 0e dd a4 |(53).(..=..(....|
0000ed60 50 61 66 6f 6e 74 79 5f 0d 28 1e 1c 50 61 6c 65 |Pafonty_.(..Pale|
0000ed70 64 52 5f 24 28 32 34 29 3d 24 21 50 61 66 6f 6e |dR_$(24)=$!Pafon|
0000ed80 74 79 5f 25 0d 28 23 15 f2 72 49 28 57 25 2c 22 |ty_%.(#..rI(W%,"|
0000ed90 50 61 66 6f 6e 74 79 22 29 0d 28 28 0e f2 73 65 |Pafonty").((..se|
0000eda0 74 43 5f 28 35 34 29 0d 28 2d 06 3d a3 0d 28 32 |tC_(54).(-.=..(2|
0000edb0 0e dd a4 42 61 66 6f 6e 74 78 5f 0d 28 37 1c 42 |...Bafontx_.(7.B|
0000edc0 61 6c 65 64 52 5f 24 28 31 33 29 3d 24 21 42 61 |aledR_$(13)=$!Ba|
0000edd0 66 6f 6e 74 78 5f 25 0d 28 3c 15 f2 72 49 28 57 |fontx_%.(<..rI(W|
0000ede0 25 2c 22 42 61 66 6f 6e 74 78 22 29 0d 28 41 0e |%,"Bafontx").(A.|
0000edf0 f2 73 65 74 43 5f 28 33 38 29 0d 28 46 06 3d a3 |.setC_(38).(F.=.|
0000ee00 0d 28 4b 0e dd a4 42 61 66 6f 6e 74 79 5f 0d 28 |.(K...Bafonty_.(|
0000ee10 50 1c 42 61 6c 65 64 52 5f 24 28 31 34 29 3d 24 |P.BaledR_$(14)=$|
0000ee20 21 42 61 66 6f 6e 74 79 5f 25 0d 28 55 15 f2 72 |!Bafonty_%.(U..r|
0000ee30 49 28 57 25 2c 22 42 61 66 6f 6e 74 79 22 29 0d |I(W%,"Bafonty").|
0000ee40 28 5a 0e f2 73 65 74 43 5f 28 33 39 29 0d 28 5f |(Z..setC_(39).(_|
0000ee50 06 3d a3 0d 28 64 0e dd a4 56 61 66 6f 6e 74 78 |.=..(d...Vafontx|
0000ee60 5f 0d 28 69 19 56 61 74 43 5f 24 28 38 29 3d 24 |_.(i.VatC_$(8)=$|
0000ee70 21 56 61 66 6f 6e 74 78 5f 25 0d 28 6e 15 f2 72 |!Vafontx_%.(n..r|
0000ee80 49 28 57 25 2c 22 56 61 66 6f 6e 74 78 22 29 0d |I(W%,"Vafontx").|
0000ee90 28 73 0e f2 73 65 74 43 5f 28 32 37 29 0d 28 78 |(s..setC_(27).(x|
0000eea0 06 3d a3 0d 28 7d 0e dd a4 56 61 66 6f 6e 74 79 |.=..(}...Vafonty|
0000eeb0 5f 0d 28 82 19 56 61 74 43 5f 24 28 39 29 3d 24 |_.(..VatC_$(9)=$|
0000eec0 21 56 61 66 6f 6e 74 79 5f 25 0d 28 87 15 f2 72 |!Vafonty_%.(...r|
0000eed0 49 28 57 25 2c 22 56 61 66 6f 6e 74 79 22 29 0d |I(W%,"Vafonty").|
0000eee0 28 8c 0e f2 73 65 74 43 5f 28 33 37 29 0d 28 91 |(...setC_(37).(.|
0000eef0 06 3d a3 0d 28 fa 0d dd a4 58 66 6f 6e 74 79 5f |.=..(....Xfonty_|
0000ef00 0d 28 ff 19 58 66 6f 6e 5f 79 25 3d bb 28 24 21 |.(..Xfon_y%=.($!|
0000ef10 58 66 6f 6e 74 79 5f 25 29 0d 29 04 14 f2 72 49 |Xfonty_%).)...rI|
0000ef20 28 57 25 2c 22 58 66 6f 6e 74 79 22 29 0d 29 09 |(W%,"Xfonty").).|
0000ef30 06 3d a3 0d 29 0e 0e dd a4 43 53 66 6f 6e 74 79 |.=..)....CSfonty|
0000ef40 5f 0d 29 13 1b 43 53 66 6f 6e 5f 79 25 3d bb 28 |_.)..CSfon_y%=.(|
0000ef50 24 21 43 53 66 6f 6e 74 79 5f 25 29 0d 29 18 15 |$!CSfonty_%).)..|
0000ef60 f2 72 49 28 57 25 2c 22 43 53 66 6f 6e 74 79 22 |.rI(W%,"CSfonty"|
0000ef70 29 0d 29 1d 0e f2 73 65 74 43 5f 28 31 31 29 0d |).)...setC_(11).|
0000ef80 29 22 06 3d a3 0d 29 72 0f dd a4 43 53 4c 66 6f |)".=..)r...CSLfo|
0000ef90 6e 74 79 5f 0d 29 77 1d 43 53 4c 66 6f 6e 5f 79 |nty_.)w.CSLfon_y|
0000efa0 25 3d bb 28 24 21 43 53 4c 66 6f 6e 74 79 5f 25 |%=.($!CSLfonty_%|
0000efb0 29 0d 29 7c 16 f2 72 49 28 57 25 2c 22 43 53 4c |).)|..rI(W%,"CSL|
0000efc0 66 6f 6e 74 79 22 29 0d 29 81 0e f2 73 65 74 43 |fonty").)...setC|
0000efd0 5f 28 31 30 29 0d 29 86 06 3d a3 0d 29 8b 04 0d |_(10).)..=..)...|
0000efe0 29 d6 0f dd a4 43 53 75 70 46 72 6f 6d 5f 0d 29 |)....CSupFrom_.)|
0000eff0 db 3a e7 bb 28 24 21 43 53 75 70 46 72 6f 6d 5f |.:..($!CSupFrom_|
0000f000 25 29 3e bb 28 24 21 43 53 75 70 54 6f 5f 25 29 |%)>.($!CSupTo_%)|
0000f010 8c 24 21 43 53 75 70 46 72 6f 6d 5f 25 3d 24 21 |.$!CSupFrom_%=$!|
0000f020 43 53 75 70 54 6f 5f 25 0d 29 e0 36 24 21 43 53 |CSupTo_%.).6$!CS|
0000f030 75 70 46 72 6f 6d 5f 25 3d a4 63 68 74 6f 6c 65 |upFrom_%=.chtole|
0000f040 6e 5f 28 bb 28 24 21 43 53 75 70 46 72 6f 6d 5f |n_(.($!CSupFrom_|
0000f050 25 29 2c 43 6d 61 78 73 75 70 70 5f 25 29 0d 29 |%),Cmaxsupp_%).)|
0000f060 e5 1d 43 53 75 70 46 72 6f 5f 25 3d bb 28 24 21 |..CSupFro_%=.($!|
0000f070 43 53 75 70 46 72 6f 6d 5f 25 29 0d 29 ea 27 f2 |CSupFrom_%).).'.|
0000f080 72 49 28 57 25 2c 22 43 53 75 70 46 72 6f 6d 22 |rI(W%,"CSupFrom"|
0000f090 29 3a f2 72 49 28 57 25 2c 22 43 53 75 70 54 6f |):.rI(W%,"CSupTo|
0000f0a0 22 29 0d 29 ef 0e f2 73 65 74 43 5f 28 31 32 29 |").)...setC_(12)|
0000f0b0 0d 29 f4 06 3d a3 0d 2a 1c 0e dd a4 43 53 4c 66 |.)..=..*....CSLf|
0000f0c0 72 6f 6d 5f 0d 2a 21 36 e7 bb 28 24 21 43 53 4c |rom_.*!6..($!CSL|
0000f0d0 66 72 6f 6d 5f 25 29 3e bb 28 24 21 43 53 4c 74 |from_%)>.($!CSLt|
0000f0e0 6f 5f 25 29 8c 24 21 43 53 4c 66 72 6f 6d 5f 25 |o_%).$!CSLfrom_%|
0000f0f0 3d 24 21 43 53 4c 74 6f 5f 25 0d 2a 26 34 24 21 |=$!CSLto_%.*&4$!|
0000f100 43 53 4c 66 72 6f 6d 5f 25 3d a4 63 68 74 6f 6c |CSLfrom_%=.chtol|
0000f110 65 6e 5f 28 bb 28 24 21 43 53 4c 66 72 6f 6d 5f |en_(.($!CSLfrom_|
0000f120 25 29 2c 43 6d 61 78 73 75 70 70 5f 25 29 0d 2a |%),Cmaxsupp_%).*|
0000f130 2b 1b 43 53 4c 66 72 6f 5f 25 3d bb 28 24 21 43 |+.CSLfro_%=.($!C|
0000f140 53 4c 66 72 6f 6d 5f 25 29 0d 2a 30 25 f2 72 49 |SLfrom_%).*0%.rI|
0000f150 28 57 25 2c 22 43 53 4c 66 72 6f 6d 22 29 3a f2 |(W%,"CSLfrom"):.|
0000f160 72 49 28 57 25 2c 22 43 53 4c 74 6f 22 29 0d 2a |rI(W%,"CSLto").*|
0000f170 35 0e f2 73 65 74 43 5f 28 31 31 29 0d 2a 3a 06 |5..setC_(11).*:.|
0000f180 3d a3 0d 2a 3f 04 0d 2a 8a 0d dd a4 43 53 75 70 |=..*?..*....CSup|
0000f190 54 6f 5f 0d 2a 8f 3a e7 bb 28 24 21 43 53 75 70 |To_.*.:..($!CSup|
0000f1a0 46 72 6f 6d 5f 25 29 3e bb 28 24 21 43 53 75 70 |From_%)>.($!CSup|
0000f1b0 54 6f 5f 25 29 8c 24 21 43 53 75 70 46 72 6f 6d |To_%).$!CSupFrom|
0000f1c0 5f 25 3d 24 21 43 53 75 70 54 6f 5f 25 0d 2a 94 |_%=$!CSupTo_%.*.|
0000f1d0 32 24 21 43 53 75 70 54 6f 5f 25 3d a4 63 68 74 |2$!CSupTo_%=.cht|
0000f1e0 6f 6c 65 6e 5f 28 bb 28 24 21 43 53 75 70 54 6f |olen_(.($!CSupTo|
0000f1f0 5f 25 29 2c 43 6d 61 78 73 75 70 70 5f 25 29 0d |_%),Cmaxsupp_%).|
0000f200 2a 99 19 43 53 75 70 54 5f 25 3d bb 28 24 21 43 |*..CSupT_%=.($!C|
0000f210 53 75 70 54 6f 5f 25 29 0d 2a 9e 27 f2 72 49 28 |SupTo_%).*.'.rI(|
0000f220 57 25 2c 22 43 53 75 70 54 6f 22 29 3a f2 72 49 |W%,"CSupTo"):.rI|
0000f230 28 57 25 2c 22 43 53 75 70 46 72 6f 6d 22 29 0d |(W%,"CSupFrom").|
0000f240 2a a3 0e f2 73 65 74 43 5f 28 31 33 29 0d 2a a8 |*...setC_(13).*.|
0000f250 06 3d a3 0d 2a d0 0c dd a4 43 53 4c 74 6f 5f 0d |.=..*....CSLto_.|
0000f260 2a d5 36 e7 bb 28 24 21 43 53 4c 66 72 6f 6d 5f |*.6..($!CSLfrom_|
0000f270 25 29 3e bb 28 24 21 43 53 4c 74 6f 5f 25 29 8c |%)>.($!CSLto_%).|
0000f280 24 21 43 53 4c 66 72 6f 6d 5f 25 3d 24 21 43 53 |$!CSLfrom_%=$!CS|
0000f290 4c 74 6f 5f 25 0d 2a da 30 24 21 43 53 4c 74 6f |Lto_%.*.0$!CSLto|
0000f2a0 5f 25 3d a4 63 68 74 6f 6c 65 6e 5f 28 bb 28 24 |_%=.chtolen_(.($|
0000f2b0 21 43 53 4c 74 6f 5f 25 29 2c 43 6d 61 78 73 75 |!CSLto_%),Cmaxsu|
0000f2c0 70 70 5f 25 29 0d 2a df 17 43 53 4c 74 5f 25 3d |pp_%).*..CSLt_%=|
0000f2d0 bb 28 24 21 43 53 4c 74 6f 5f 25 29 0d 2a e4 25 |.($!CSLto_%).*.%|
0000f2e0 f2 72 49 28 57 25 2c 22 43 53 4c 74 6f 22 29 3a |.rI(W%,"CSLto"):|
0000f2f0 f2 72 49 28 57 25 2c 22 43 53 4c 66 72 6f 6d 22 |.rI(W%,"CSLfrom"|
0000f300 29 0d 2a e9 0d f2 73 65 74 43 5f 28 33 29 0d 2a |).*...setC_(3).*|
0000f310 ee 06 3d a3 0d 2a f3 0d dd a4 43 73 43 6f 6d 6d |..=..*....CsComm|
0000f320 5f 0d 2a f8 16 43 73 43 6f 6d 5f 24 3d 24 21 43 |_.*..CsCom_$=$!C|
0000f330 73 43 6f 6d 6d 5f 25 0d 2a fd 0d f2 73 65 74 43 |sComm_%.*...setC|
0000f340 5f 28 33 29 0d 2b 02 06 3d a3 0d 2b 1b 0d dd a4 |_(3).+..=..+....|
0000f350 43 73 50 6f 73 74 5f 0d 2b 20 16 43 73 50 6f 73 |CsPost_.+ .CsPos|
0000f360 5f 24 3d 24 21 43 73 50 6f 73 74 5f 25 0d 2b 25 |_$=$!CsPost_%.+%|
0000f370 0e f2 73 65 74 43 5f 28 31 34 29 0d 2b 2a 06 3d |..setC_(14).+*.=|
0000f380 a3 0d 2b 43 04 0d 2b 48 15 dd a4 63 68 74 6f 6c |..+C..+H...chtol|
0000f390 65 6e 5f 28 41 25 2c 42 25 29 0d 2b 4d 11 e7 41 |en_(A%,B%).+M..A|
0000f3a0 25 3e 42 25 8c 3d c3 28 42 25 29 0d 2b 52 0e e7 |%>B%.=.(B%).+R..|
0000f3b0 41 25 3c 31 8c 3d 22 31 22 0d 2b 57 0a 3d c3 28 |A%<1.="1".+W.=.(|
0000f3c0 41 25 29 0d 2b 5c 04 0d 2b 61 0f dd a4 43 75 72 |A%).+\..+a...Cur|
0000f3d0 72 65 6e 63 79 5f 0d 2b 66 15 43 75 5f 24 3d 24 |rency_.+f.Cu_$=$|
0000f3e0 21 43 75 72 72 65 6e 63 79 5f 25 0d 2b 6b 16 f2 |!Currency_%.+k..|
0000f3f0 72 49 28 57 25 2c 22 43 75 72 72 65 6e 63 79 22 |rI(W%,"Currency"|
0000f400 29 0d 2b 70 0d f2 73 65 74 43 5f 28 32 29 0d 2b |).+p..setC_(2).+|
0000f410 75 06 3d a3 0d 2b 7a 04 0d 2b 7f 12 dd a4 66 6f |u.=..+z..+....fo|
0000f420 6e 74 6e 75 6d 28 56 5f 25 29 0d 2b 84 08 ea 20 |ntnum(V_%).+... |
0000f430 5a 25 0d 2b 89 11 e7 21 62 25 3d 31 8c 56 5f 25 |Z%.+...!b%=1.V_%|
0000f440 2b 3d 31 0d 2b 8e 11 e7 21 62 25 3d 34 8c 56 5f |+=1.+...!b%=4.V_|
0000f450 25 2d 3d 31 0d 2b 93 18 e7 56 5f 25 3e 6d 61 78 |%-=1.+...V_%>max|
0000f460 66 6f 6e 74 5f 25 8c 56 5f 25 3d 30 0d 2b 98 18 |font_%.V_%=0.+..|
0000f470 e7 56 5f 25 3c 30 8c 56 5f 25 3d 6d 61 78 66 6f |.V_%<0.V_%=maxfo|
0000f480 6e 74 5f 25 0d 2b 9d 08 3d 56 5f 25 0d 2b a2 04 |nt_%.+..=V_%.+..|
0000f490 0d 2b b1 55 dd a4 58 66 6e 61 6d 65 5f 3a 58 6e |.+.U..Xfname_:Xn|
0000f4a0 61 6d 5f 25 3d a4 66 6f 6e 74 6e 75 6d 28 58 6e |am_%=.fontnum(Xn|
0000f4b0 61 6d 5f 25 29 3a 24 21 58 66 6e 61 6d 65 5f 25 |am_%):$!Xfname_%|
0000f4c0 3d 46 6f 5f 24 28 58 6e 61 6d 5f 25 29 3a f2 72 |=Fo_$(Xnam_%):.r|
0000f4d0 49 28 62 61 6e 6b 70 25 2c 22 58 66 6e 61 6d 65 |I(bankp%,"Xfname|
0000f4e0 22 29 3a 3d a3 0d 2b b6 5f dd a4 43 53 66 6f 6e |"):=..+._..CSfon|
0000f4f0 74 6e 61 6d 65 5f 3a 6a 5f 66 35 25 3d a4 66 6f |tname_:j_f5%=.fo|
0000f500 6e 74 6e 75 6d 28 6a 5f 66 35 25 29 3a 24 21 43 |ntnum(j_f5%):$!C|
0000f510 53 66 6f 6e 74 6e 61 6d 65 5f 25 3d 46 6f 5f 24 |Sfontname_%=Fo_$|
0000f520 28 6a 5f 66 35 25 29 3a f2 72 49 28 43 4c 61 62 |(j_f5%):.rI(CLab|
0000f530 53 75 25 2c 22 43 53 66 6f 6e 74 6e 61 6d 65 22 |Su%,"CSfontname"|
0000f540 29 3a 3d a3 0d 2b c0 6b dd a4 53 61 66 6e 61 6d |):=..+.k..Safnam|
0000f550 65 5f 3a 53 61 6c 65 64 52 5f 25 28 31 35 29 3d |e_:SaledR_%(15)=|
0000f560 a4 66 6f 6e 74 6e 75 6d 28 53 61 6c 65 64 52 5f |.fontnum(SaledR_|
0000f570 25 28 31 35 29 29 3a 24 21 53 61 66 6e 61 6d 65 |%(15)):$!Safname|
0000f580 5f 25 3d 46 6f 5f 24 28 53 61 6c 65 64 52 5f 25 |_%=Fo_$(SaledR_%|
0000f590 28 31 35 29 29 3a f2 72 49 28 73 61 6c 65 64 32 |(15)):.rI(saled2|
0000f5a0 25 2c 22 53 61 66 6e 61 6d 65 22 29 3a 3d a3 0d |%,"Safname"):=..|
0000f5b0 2b c5 6b dd a4 50 61 66 6e 61 6d 65 5f 3a 50 61 |+.k..Pafname_:Pa|
0000f5c0 6c 65 64 52 5f 25 28 31 35 29 3d a4 66 6f 6e 74 |ledR_%(15)=.font|
0000f5d0 6e 75 6d 28 50 61 6c 65 64 52 5f 25 28 31 35 29 |num(PaledR_%(15)|
0000f5e0 29 3a 24 21 50 61 66 6e 61 6d 65 5f 25 3d 46 6f |):$!Pafname_%=Fo|
0000f5f0 5f 24 28 50 61 6c 65 64 52 5f 25 28 31 35 29 29 |_$(PaledR_%(15))|
0000f600 3a f2 72 49 28 70 61 6c 65 64 32 25 2c 22 50 61 |:.rI(paled2%,"Pa|
0000f610 66 6e 61 6d 65 22 29 3a 3d a3 0d 2b ca 67 dd a4 |fname"):=..+.g..|
0000f620 42 61 66 6e 61 6d 65 5f 3a 42 61 6c 65 64 52 5f |Bafname_:BaledR_|
0000f630 25 28 39 29 3d a4 66 6f 6e 74 6e 75 6d 28 42 61 |%(9)=.fontnum(Ba|
0000f640 6c 65 64 52 5f 25 28 39 29 29 3a 24 21 42 61 66 |ledR_%(9)):$!Baf|
0000f650 6e 61 6d 65 5f 25 3d 46 6f 5f 24 28 42 61 6c 65 |name_%=Fo_$(Bale|
0000f660 64 52 5f 25 28 39 29 29 3a f2 72 49 28 62 61 6e |dR_%(9)):.rI(ban|
0000f670 6b 32 25 2c 22 42 61 66 6e 61 6d 65 22 29 3a 3d |k2%,"Bafname"):=|
0000f680 a3 0d 2b cf 5d dd a4 56 61 66 6e 61 6d 65 5f 3a |..+.]..Vafname_:|
0000f690 56 61 74 43 5f 25 28 38 29 3d a4 66 6f 6e 74 6e |VatC_%(8)=.fontn|
0000f6a0 75 6d 28 56 61 74 43 5f 25 28 38 29 29 3a 24 21 |um(VatC_%(8)):$!|
0000f6b0 56 61 66 6e 61 6d 65 5f 25 3d 46 6f 5f 24 28 56 |Vafname_%=Fo_$(V|
0000f6c0 61 74 43 5f 25 28 38 29 29 3a f2 72 49 28 57 25 |atC_%(8)):.rI(W%|
0000f6d0 2c 22 56 61 66 6e 61 6d 65 22 29 3a 3d a3 0d 2b |,"Vafname"):=..+|
0000f6e0 e3 58 dd a4 43 53 4c 66 6e 61 6d 65 5f 3a 6a 5f |.X..CSLfname_:j_|
0000f6f0 66 36 25 3d a4 66 6f 6e 74 6e 75 6d 28 6a 5f 66 |f6%=.fontnum(j_f|
0000f700 36 25 29 3a 24 21 43 53 4c 66 6e 61 6d 65 5f 25 |6%):$!CSLfname_%|
0000f710 3d 46 6f 5f 24 28 6a 5f 66 36 25 29 3a f2 72 49 |=Fo_$(j_f6%):.rI|
0000f720 28 43 53 4c 73 75 25 2c 22 43 53 4c 66 6e 61 6d |(CSLsu%,"CSLfnam|
0000f730 65 22 29 3a 3d a3 0d 2b e8 04 0d 2b ed 1c dd a4 |e"):=..+...+....|
0000f740 66 6f 6e 74 73 65 74 5f 3a e7 65 72 72 6f 72 5f |fontset_:.error_|
0000f750 25 3d 31 8c 3d 33 0d 2b f2 08 ea 20 5a 25 0d 2b |%=1.=3.+... Z%.+|
0000f760 f7 07 ea 20 85 0d 2b fc 10 ee 20 85 20 ea 3a f7 |... ..+... . .:.|
0000f770 20 85 3a 3d 33 0d 2c 01 0f 5a 25 3d a4 73 65 74 | .:=3.,..Z%=.set|
0000f780 63 6f 6c 5f 0d 2c 06 2d e7 66 6f 6e 74 5f 78 25 |col_.,.-.font_x%|
0000f790 3c 32 84 66 6f 6e 74 5f 79 25 3c 32 8c 66 68 61 |<2.font_y%<2.fha|
0000f7a0 6e 64 6c 65 5f 25 28 66 68 5f 25 29 3d 30 3a 3d |ndle_%(fh_%)=0:=|
0000f7b0 b9 0d 2c 0b 0e e7 66 68 5f 25 3d 30 8c 3d a3 0d |..,...fh_%=0.=..|
0000f7c0 2c 10 15 e7 46 6f 5f 24 28 66 68 5f 25 29 3d 22 |,...Fo_$(fh_%)="|
0000f7d0 22 8c 3d 33 0d 2c 15 3a c8 99 26 34 30 30 38 31 |".=3.,.:..&40081|
0000f7e0 2c 2c 46 6f 5f 24 28 66 68 5f 25 29 2c 66 6f 6e |,,Fo_$(fh_%),fon|
0000f7f0 74 5f 78 25 2c 66 6f 6e 74 5f 79 25 20 b8 20 66 |t_x%,font_y% . f|
0000f800 68 61 6e 64 6c 65 5f 25 28 66 68 5f 25 29 0d 2c |handle_%(fh_%).,|
0000f810 1a 1c c8 99 26 34 30 30 38 41 2c 66 68 61 6e 64 |....&4008A,fhand|
0000f820 6c 65 5f 25 28 66 68 5f 25 29 0d 2c 1f 06 3d b9 |le_%(fh_%).,..=.|
0000f830 0d 2c 24 04 0d 2c 29 32 dd a4 66 69 6e 64 66 6f |.,$..,)2..findfo|
0000f840 6e 74 5f 28 56 5f 25 2c 66 6f 6e 74 5f 78 25 2c |nt_(V_%,font_x%,|
0000f850 66 6f 6e 74 5f 79 25 29 3a e7 65 72 72 6f 72 5f |font_y%):.error_|
0000f860 25 3d 31 8c 3d 30 0d 2c 2e 07 ea 20 85 0d 2c 33 |%=1.=0.,... ..,3|
0000f870 1c ee 20 85 20 ea 3a f7 20 85 3a f2 70 65 5f 28 |.. . .:. .:.pe_(|
0000f880 a4 65 72 72 5f 29 3a 3d 30 0d 2c 38 1b e7 66 6f |.err_):=0.,8..fo|
0000f890 6e 74 5f 78 25 3c 32 84 66 6f 6e 74 5f 79 25 3c |nt_x%<2.font_y%<|
0000f8a0 32 8c 3d 30 0d 2c 3d 29 66 6f 6e 74 5f 78 25 3d |2.=0.,=)font_x%=|
0000f8b0 66 6f 6e 74 5f 78 25 2a 31 36 3a 66 6f 6e 74 5f |font_x%*16:font_|
0000f8c0 79 25 3d 66 6f 6e 74 5f 79 25 2a 31 36 0d 2c 42 |y%=font_y%*16.,B|
0000f8d0 1d e7 56 5f 25 3d 30 20 84 20 46 6f 5f 24 28 56 |..V_%=0 . Fo_$(V|
0000f8e0 5f 25 29 3d 22 22 20 8c 3d 30 0d 2c 47 2d c8 99 |_%)="" .=0.,G-..|
0000f8f0 26 34 30 30 38 31 2c 2c 46 6f 5f 24 28 56 5f 25 |&40081,,Fo_$(V_%|
0000f900 29 2c 66 6f 6e 74 5f 78 25 2c 66 6f 6e 74 5f 79 |),font_x%,font_y|
0000f910 25 20 b8 20 56 5f 25 0d 2c 4c 08 3d 56 5f 25 0d |% . V_%.,L.=V_%.|
0000f920 2c 51 04 0d 2c 79 12 dd a4 49 6c 6f 73 65 4f 66 |,Q..,y...IloseOf|
0000f930 6f 6e 74 73 5f 0d 2c 7e 0b ea 20 41 25 2c 5a 25 |onts_.,~.. A%,Z%|
0000f940 0d 2c 80 07 ea 20 85 0d 2c 81 1c ee 20 85 20 ea |.,... ..,... . .|
0000f950 3a f7 20 85 3a f2 70 65 5f 28 a4 65 72 72 5f 29 |:. .:.pe_(.err_)|
0000f960 3a 3d 30 0d 2c 83 08 5a 25 3d 30 0d 2c 88 12 e3 |:=0.,..Z%=0.,...|
0000f970 41 25 3d 32 b8 49 4f 69 63 6f 6e 73 25 0d 2c 8d |A%=2.IOicons%.,.|
0000f980 4f e7 49 4f 72 64 65 72 46 5f 25 28 41 25 29 3c |O.IOrderF_%(A%)<|
0000f990 3e 30 8c 49 4f 72 64 65 72 46 31 5f 25 28 41 25 |>0.IOrderF1_%(A%|
0000f9a0 29 3d a4 6c 6f 73 65 66 6f 6e 74 5f 28 49 4f 72 |)=.losefont_(IOr|
0000f9b0 64 65 72 46 31 5f 25 28 41 25 29 29 3a 49 4f 72 |derF1_%(A%)):IOr|
0000f9c0 64 65 72 63 68 25 28 41 25 29 3d 31 0d 2c 92 18 |derch%(A%)=1.,..|
0000f9d0 5a 25 2b 3d 49 4f 72 64 65 72 46 31 5f 25 28 41 |Z%+=IOrderF1_%(A|
0000f9e0 25 29 3a ed 0d 2c 97 07 3d 5a 25 0d 2c bf 04 0d |%):..,..=Z%.,...|
0000f9f0 2c c4 0d dd a4 73 65 74 63 6f 6c 5f 0d 2c c9 3c |,....setcol_.,.<|
0000fa00 2a 52 4d 45 6e 73 75 72 65 20 43 6f 6c 6f 75 72 |*RMEnsure Colour|
0000fa10 54 72 61 6e 73 20 30 2e 35 31 20 52 4d 4c 6f 61 |Trans 0.51 RMLoa|
0000fa20 64 20 53 79 73 74 65 6d 3a 4d 6f 64 75 6c 65 73 |d System:Modules|
0000fa30 2e 43 6f 6c 6f 75 72 73 0d 2c ce 32 c8 99 20 22 |.Colours.,.2.. "|
0000fa40 43 6f 6c 6f 75 72 54 72 61 6e 73 5f 53 65 74 46 |ColourTrans_SetF|
0000fa50 6f 6e 74 43 6f 6c 6f 75 72 73 22 2c 2c 26 46 46 |ontColours",,&FF|
0000fa60 46 46 46 46 30 30 2c 30 2c 36 0d 2c d3 2a c8 99 |FFFF00,0,6.,.*..|
0000fa70 20 22 43 6f 6c 6f 75 72 54 72 61 6e 73 5f 53 65 | "ColourTrans_Se|
0000fa80 74 47 43 4f 4c 22 2c 26 30 30 30 30 30 30 30 30 |tGCOL",&00000000|
0000fa90 2c 2c 2c 30 0d 2c d8 2c c8 99 20 22 43 6f 6c 6f |,,,0.,.,.. "Colo|
0000faa0 75 72 54 72 61 6e 73 5f 53 65 74 47 43 4f 4c 22 |urTrans_SetGCOL"|
0000fab0 2c 26 46 46 46 46 46 46 30 30 2c 2c 2c 31 32 38 |,&FFFFFF00,,,128|
0000fac0 0d 2c dd 06 3d 31 0d 2c e2 04 0d 34 e4 10 dd f2 |.,..=1.,...4....|
0000fad0 70 65 5f 28 65 72 72 5f 24 29 0d 34 e9 0b ea 20 |pe_(err_$).4... |
0000fae0 41 25 2c 5a 24 0d 34 ee 83 e7 c0 65 72 72 5f 24 |A%,Z$.4....err_$|
0000faf0 2c 39 29 3d 22 46 69 6c 65 20 6f 70 65 6e 22 8c |,9)="File open".|
0000fb00 65 72 72 5f 24 3d 22 46 69 6c 65 20 6f 70 65 6e |err_$="File open|
0000fb10 20 3a 20 50 72 65 73 73 20 74 68 65 20 66 75 6e | : Press the fun|
0000fb20 63 74 69 6f 6e 20 6b 65 79 20 66 31 32 2c 20 74 |ction key f12, t|
0000fb30 79 70 65 20 43 4c 4f 53 45 20 61 6e 64 20 70 72 |ype CLOSE and pr|
0000fb40 65 73 73 20 52 45 54 55 52 4e 20 74 77 69 63 65 |ess RETURN twice|
0000fb50 2c 20 74 68 65 6e 20 72 65 2d 6c 6f 61 64 20 74 |, then re-load t|
0000fb60 68 65 20 66 69 6c 65 22 0d 34 f3 a9 e7 c0 65 72 |he file".4....er|
0000fb70 72 5f 24 2c 39 29 3d 22 44 61 74 61 20 6c 6f 73 |r_$,9)="Data los|
0000fb80 74 22 8c 65 72 72 5f 24 3d 22 44 69 73 63 2f 46 |t".err_$="Disc/F|
0000fb90 69 6c 65 20 69 73 20 77 72 69 74 65 20 70 72 6f |ile is write pro|
0000fba0 74 65 63 74 65 64 20 3a 20 50 6c 65 61 73 65 20 |tected : Please |
0000fbb0 6d 6f 76 65 20 74 68 65 20 77 72 69 74 65 20 70 |move the write p|
0000fbc0 72 6f 74 65 63 74 20 74 61 62 20 6f 6e 20 74 68 |rotect tab on th|
0000fbd0 65 20 64 69 73 63 20 73 6f 20 74 68 61 74 20 79 |e disc so that y|
0000fbe0 6f 75 20 63 61 6e 27 74 20 73 65 65 20 74 68 72 |ou can't see thr|
0000fbf0 6f 75 67 68 20 74 68 65 20 68 6f 6c 65 20 6f 72 |ough the hole or|
0000fc00 20 75 6e 6c 6f 63 6b 20 74 68 65 20 66 69 6c 65 | unlock the file|
0000fc10 22 0d 34 f8 20 e7 c0 65 72 72 5f 24 2c 33 29 3d |".4. ..err_$,3)=|
0000fc20 22 53 57 49 22 8c 65 72 72 5f 24 3d 6d 6f 64 5f |"SWI".err_$=mod_|
0000fc30 24 0d 34 fd 0d 65 72 72 6f 72 5f 25 3d 31 0d 35 |$.4..error_%=1.5|
0000fc40 02 09 41 25 3d 57 25 0d 35 07 2b 5a 24 3d a4 61 |..A%=W%.5.+Z$=.a|
0000fc50 6c 65 72 74 28 65 72 72 5f 24 2c 22 22 2c 22 4f |lert(err_$,"","O|
0000fc60 4b 22 2c 22 22 2c 22 61 72 5f 65 78 63 6c 22 2c |K","","ar_excl",|
0000fc70 31 29 0d 35 0c 09 57 25 3d 41 25 0d 35 11 0d 65 |1).5..W%=A%.5..e|
0000fc80 72 72 6f 72 5f 25 3d 30 0d 35 16 05 e1 0d 35 1b |rror_%=0.5....5.|
0000fc90 15 dd f2 70 65 31 5f 28 65 72 72 5f 24 2c 46 5f |...pe1_(err_$,F_|
0000fca0 25 29 0d 35 20 0b ea 20 41 25 2c 5a 24 0d 35 25 |%).5 .. A%,Z$.5%|
0000fcb0 07 ea 20 85 0d 35 2a 1b ee 20 85 20 ea 3a f7 20 |.. ..5*.. . .:. |
0000fcc0 85 3a f2 70 65 5f 28 a4 65 72 72 5f 29 3a e1 0d |.:.pe_(.err_):..|
0000fcd0 35 2f 28 e7 c0 65 72 72 5f 24 2c 39 29 3d 22 46 |5/(..err_$,9)="F|
0000fce0 69 6c 65 20 6f 70 65 6e 22 8c f2 70 65 5f 28 65 |ile open"..pe_(e|
0000fcf0 72 72 5f 24 29 3a e1 0d 35 34 0d 65 72 72 6f 72 |rr_$):..54.error|
0000fd00 5f 25 3d 31 0d 35 39 10 e7 46 5f 25 3e 30 8c d9 |_%=1.59..F_%>0..|
0000fd10 23 46 5f 25 0d 35 3e 28 e7 c0 65 72 72 5f 24 2c |#F_%.5>(..err_$,|
0000fd20 39 29 3d 22 44 61 74 61 20 6c 6f 73 74 22 8c f2 |9)="Data lost"..|
0000fd30 70 65 5f 28 65 72 72 5f 24 29 3a e1 0d 35 43 37 |pe_(err_$):..5C7|
0000fd40 41 25 3d 57 25 3a 5a 24 3d a4 61 6c 65 72 74 28 |A%=W%:Z$=.alert(|
0000fd50 65 72 72 5f 24 2c 22 22 2c 22 4f 4b 22 2c 22 22 |err_$,"","OK",""|
0000fd60 2c 22 61 72 5f 65 78 63 6c 22 2c 31 29 3a 57 25 |,"ar_excl",1):W%|
0000fd70 3d 41 25 0d 35 48 0d 65 72 72 6f 72 5f 25 3d 30 |=A%.5H.error_%=0|
0000fd80 0d 35 4d 05 e1 0d 35 52 04 0d 35 57 34 dd a4 65 |.5M...5R..5W4..e|
0000fd90 72 72 5f 3a 3d f6 24 2b 22 20 28 43 6f 64 65 3a |rr_:=.$+" (Code:|
0000fda0 22 2b c3 28 9e 20 81 31 30 30 29 2b 22 3a 22 2b |"+.(. .100)+":"+|
0000fdb0 c3 28 9e 20 83 31 30 30 29 2b 22 29 22 0d 42 e5 |.(. .100)+")".B.|
0000fdc0 04 0d 43 12 1c dd a4 4c 69 73 74 70 72 69 6e 74 |..C....Listprint|
0000fdd0 5f 3a f2 77 6c 5f 28 32 38 29 3a 3d b9 0d 43 71 |_:.wl_(28):=..Cq|
0000fde0 1a dd a4 53 61 70 72 69 6e 74 5f 3a f2 77 6c 5f |...Saprint_:.wl_|
0000fdf0 28 32 38 29 3a 3d b9 0d 44 11 1a dd a4 50 61 70 |(28):=..D....Pap|
0000fe00 72 69 6e 74 5f 3a f2 77 6c 5f 28 32 38 29 3a 3d |rint_:.wl_(28):=|
0000fe10 b9 0d 44 b1 1a dd a4 42 61 70 72 69 6e 74 5f 3a |..D....Baprint_:|
0000fe20 f2 77 6c 5f 28 32 38 29 3a 3d b9 0d 45 4c 1a dd |.wl_(28):=..EL..|
0000fe30 a4 56 61 70 72 69 6e 74 5f 3a f2 77 6c 5f 28 32 |.Vaprint_:.wl_(2|
0000fe40 38 29 3a 3d b9 0d 45 b5 1a dd a4 57 61 70 72 69 |8):=..E....Wapri|
0000fe50 6e 74 5f 3a f2 77 6c 5f 28 32 38 29 3a 3d b9 0d |nt_:.wl_(28):=..|
0000fe60 46 14 19 dd a4 58 70 72 69 6e 74 5f 3a f2 77 6c |F....Xprint_:.wl|
0000fe70 5f 28 32 38 29 3a 3d b9 0d 46 82 19 dd a4 44 70 |_(28):=..F....Dp|
0000fe80 72 69 6e 74 5f 3a f2 77 6c 5f 28 32 38 29 3a 3d |rint_:.wl_(28):=|
0000fe90 b9 0d 46 e1 1a dd a4 53 4c 70 72 69 6e 74 5f 3a |..F....SLprint_:|
0000fea0 f2 77 6c 5f 28 32 38 29 3a 3d b9 0d 47 2c 1b dd |.wl_(28):=..G,..|
0000feb0 a4 43 53 4c 70 72 69 6e 74 5f 3a f2 77 6c 5f 28 |.CSLprint_:.wl_(|
0000fec0 32 38 29 3a 3d b9 0d 47 7c 1a dd a4 4f 61 70 72 |28):=..G|...Oapr|
0000fed0 69 6e 74 5f 3a f2 77 6c 5f 28 32 38 29 3a 3d b9 |int_:.wl_(28):=.|
0000fee0 0d 47 c2 1a dd a4 4f 69 70 72 69 6e 74 5f 3a f2 |.G....Oiprint_:.|
0000fef0 77 6c 5f 28 32 38 29 3a 3d b9 0d 47 cc bf dd a4 |wl_(28):=..G....|
0000ff00 49 54 70 72 69 6e 74 5f 28 56 5f 25 2c 58 25 2c |ITprint_(V_%,X%,|
0000ff10 59 25 29 3a e7 56 5f 25 3c 3e 30 3a f2 70 65 5f |Y%):.V_%<>0:.pe_|
0000ff20 28 22 45 76 65 6e 20 74 68 6f 75 67 68 20 70 72 |("Even though pr|
0000ff30 69 6e 74 69 6e 67 20 69 73 20 64 69 73 61 62 6c |inting is disabl|
0000ff40 65 64 20 69 6e 20 74 68 69 73 20 76 65 72 73 69 |ed in this versi|
0000ff50 6f 6e 2c 20 73 65 74 20 74 68 65 20 6e 75 6d 62 |on, set the numb|
0000ff60 65 72 20 6f 66 20 63 6f 70 69 65 73 20 74 6f 20 |er of copies to |
0000ff70 7a 65 72 6f 20 61 6e 64 20 63 6c 69 63 6b 20 50 |zero and click P|
0000ff80 52 49 4e 54 20 61 67 61 69 6e 20 74 6f 20 73 65 |RINT again to se|
0000ff90 65 20 74 68 65 20 65 66 66 65 63 74 20 69 6e 20 |e the effect in |
0000ffa0 74 68 65 20 53 61 6c 65 73 20 4c 65 64 67 65 72 |the Sales Ledger|
0000ffb0 22 29 3a 3d a3 20 8b 3d b9 0d 48 67 16 dd a4 53 |"):=. .=..Hg...S|
0000ffc0 70 69 5f 3a f2 77 6c 5f 28 32 38 29 3a 3d b9 0d |pi_:.wl_(28):=..|
0000ffd0 48 94 16 dd a4 53 70 61 5f 3a f2 77 6c 5f 28 32 |H....Spa_:.wl_(2|
0000ffe0 38 29 3a 3d b9 0d 49 de 1d dd f2 77 6c 5f 28 74 |8):=..I....wl_(t|
0000fff0 65 6d 70 5f 25 29 3a e7 53 25 21 31 39 32 3e 30 |emp_%):.S%!192>0|
00010000 8c e1 0d 49 e3 07 ea 20 85 0d 49 e8 1b ee 20 85 |...I... ..I... .|
00010010 20 ea 3a f7 20 85 3a f2 70 65 5f 28 a4 65 72 72 | .:. .:.pe_(.err|
00010020 5f 29 3a e1 0d 49 ed 47 e7 66 68 61 6e 64 6c 65 |_):..I.G.fhandle|
00010030 5f 25 28 66 68 5f 25 29 3e 30 80 66 68 5f 25 3c |_%(fh_%)>0.fh_%<|
00010040 3d 6d 61 78 69 66 6f 6e 74 5f 25 8c 6f 7a 25 3d |=maxifont_%.oz%=|
00010050 a4 6c 6f 73 65 66 6f 6e 74 5f 28 66 68 61 6e 64 |.losefont_(fhand|
00010060 6c 65 5f 25 28 66 68 5f 25 29 29 0d 49 f2 0f c8 |le_%(fh_%)).I...|
00010070 8e 20 74 65 6d 70 5f 25 20 ca 0d 49 f7 13 c9 20 |. temp_% ..I... |
00010080 30 3a f2 70 65 5f 28 a4 65 72 72 5f 29 0d 4a 06 |0:.pe_(.err_).J.|
00010090 ab c9 20 33 3a f2 70 65 5f 28 22 54 68 65 20 64 |.. 3:.pe_("The d|
000100a0 61 74 65 20 69 73 20 69 6e 63 6f 72 72 65 63 74 |ate is incorrect|
000100b0 20 28 22 2b 44 5f 24 2b 22 29 2e 20 44 61 74 65 | ("+D_$+"). Date|
000100c0 73 20 63 61 6e 20 62 65 20 6c 65 66 74 20 62 6c |s can be left bl|
000100d0 61 6e 6b 20 6f 72 20 65 6e 74 65 72 65 64 20 69 |ank or entered i|
000100e0 6e 20 74 68 65 20 66 6f 72 6d 61 74 20 44 44 2e |n the format DD.|
000100f0 4d 4d 2e 59 59 59 59 20 69 65 2e 20 31 2e 34 2e |MM.YYYY ie. 1.4.|
00010100 31 39 39 31 20 28 48 69 6e 74 3a 20 6a 75 73 74 |1991 (Hint: just|
00010110 20 74 68 65 20 64 61 79 2f 6d 6f 6e 74 68 20 6f | the day/month o|
00010120 72 20 79 65 61 72 20 63 61 6e 20 62 65 20 65 6e |r year can be en|
00010130 74 65 72 65 64 29 22 29 0d 4a 33 34 c9 20 31 32 |tered)").J34. 12|
00010140 3a f2 70 65 5f 28 22 54 6f 20 64 65 6c 65 74 65 |:.pe_("To delete|
00010150 2c 20 63 6c 69 63 6b 20 6f 6e 20 74 68 65 20 44 |, click on the D|
00010160 65 6c 65 74 65 20 69 63 6f 6e 22 29 0d 4a 38 4f |elete icon").J8O|
00010170 c9 20 31 33 3a f2 70 65 5f 28 22 41 6c 6c 20 46 |. 13:.pe_("All F|
00010180 6f 6e 74 20 73 69 7a 65 73 20 61 72 65 20 73 65 |ont sizes are se|
00010190 74 20 74 6f 20 7a 65 72 6f 20 69 6e 20 74 68 65 |t to zero in the|
000101a0 20 74 65 6d 70 6c 61 74 65 2e 20 50 6c 65 61 73 | template. Pleas|
000101b0 65 20 72 65 63 74 69 66 79 22 29 0d 4a 3d 51 c9 |e rectify").J=Q.|
000101c0 20 31 34 3a f2 70 65 5f 28 22 54 65 6d 70 6c 61 | 14:.pe_("Templa|
000101d0 74 65 20 44 61 74 61 20 61 72 65 61 20 69 73 20 |te Data area is |
000101e0 74 6f 6f 20 73 6d 61 6c 6c 20 74 6f 20 70 72 69 |too small to pri|
000101f0 6e 74 20 65 6e 74 72 69 65 73 2e 20 50 6c 65 61 |nt entries. Plea|
00010200 73 65 20 72 65 63 74 69 66 79 22 29 0d 4a 47 29 |se rectify").JG)|
00010210 c9 20 31 36 3a f2 70 65 5f 28 22 50 6c 65 61 73 |. 16:.pe_("Pleas|
00010220 65 20 73 65 6c 65 63 74 20 61 20 73 75 70 70 6c |e select a suppl|
00010230 69 65 72 22 29 0d 4a 5b 3c c9 20 32 30 3a f2 70 |ier").J[<. 20:.p|
00010240 65 5f 28 22 41 62 6f 75 74 20 74 6f 20 74 6f 67 |e_("About to tog|
00010250 67 6c 65 20 62 65 74 77 65 65 6e 20 49 6e 76 6f |gle between Invo|
00010260 69 63 65 2f 43 72 65 64 69 74 20 4e 6f 74 65 22 |ice/Credit Note"|
00010270 29 0d 4a 60 29 c9 20 32 31 3a f2 70 65 5f 28 22 |).J`). 21:.pe_("|
00010280 50 6c 65 61 73 65 20 73 65 6c 65 63 74 20 61 20 |Please select a |
00010290 63 75 73 74 6f 6d 65 72 22 29 0d 4a 65 b5 c9 20 |customer").Je.. |
000102a0 32 35 3a f2 70 65 5f 28 22 4e 6f 74 20 65 6e 6f |25:.pe_("Not eno|
000102b0 75 67 68 20 73 70 61 63 65 20 69 6e 20 74 68 65 |ugh space in the|
000102c0 20 6c 65 64 67 65 72 20 74 6f 20 63 6f 6d 70 6c | ledger to compl|
000102d0 65 74 65 20 74 68 69 73 20 61 63 74 69 6f 6e 2e |ete this action.|
000102e0 20 50 6c 65 61 73 65 20 61 64 6a 75 73 74 20 74 | Please adjust t|
000102f0 68 65 20 50 72 65 66 65 72 65 6e 63 65 73 20 73 |he Preferences s|
00010300 65 74 74 69 6e 67 20 66 6f 72 20 74 68 65 20 6c |etting for the l|
00010310 65 64 67 65 72 2c 20 73 61 76 65 20 74 68 65 20 |edger, save the |
00010320 66 69 6c 65 2c 20 65 78 69 74 20 74 68 65 20 70 |file, exit the p|
00010330 72 6f 67 72 61 6d 2c 20 74 68 65 6e 20 72 65 2d |rogram, then re-|
00010340 62 6f 6f 74 20 74 68 65 20 66 69 6c 65 22 29 0d |boot the file").|
00010350 4a 6a 17 c9 20 32 36 3a f2 70 65 5f 28 22 4c 4f |Jj.. 26:.pe_("LO|
00010360 43 4b 45 44 22 29 0d 4a 71 85 c9 20 32 38 3a f2 |CKED").Jq.. 28:.|
00010370 70 65 5f 28 22 53 6f 72 72 79 2c 20 74 68 69 73 |pe_("Sorry, this|
00010380 20 69 73 20 6f 6e 6c 79 20 61 76 61 69 6c 61 62 | is only availab|
00010390 6c 65 20 69 6e 20 74 68 65 20 66 75 6c 6c 20 76 |le in the full v|
000103a0 65 72 73 69 6f 6e 20 6f 66 20 50 72 6f 70 68 65 |ersion of Prophe|
000103b0 74 20 2d 20 63 6c 69 63 6b 20 4d 45 4e 55 20 6f |t - click MENU o|
000103c0 6e 20 50 72 6f 70 68 65 74 27 73 20 69 63 6f 6e |n Prophet's icon|
000103d0 20 61 6e 64 20 73 65 6c 65 63 74 20 27 49 6e 66 | and select 'Inf|
000103e0 6f 72 6d 61 74 69 6f 6e 27 22 29 0d 4a 74 05 cb |ormation'").Jt..|
000103f0 0d 4a 79 05 e1 0d 4a 7e 04 0d 4a c9 19 dd a4 53 |.Jy...J~..J....S|
00010400 70 72 69 6e 74 5f 3a f2 77 6c 5f 28 32 38 29 3a |print_:.wl_(28):|
00010410 3d b9 0d 4b 50 1a dd a4 43 53 70 72 69 6e 74 5f |=..KP...CSprint_|
00010420 3a f2 77 6c 5f 28 32 38 29 3a 3d b9 0d 4b d7 19 |:.wl_(28):=..K..|
00010430 dd a4 4c 70 72 69 6e 74 5f 3a f2 77 6c 5f 28 32 |..Lprint_:.wl_(2|
00010440 38 29 3a 3d b9 0d 4c 95 0a dd a4 73 6d 61 5f 0d |8):=..L....sma_.|
00010450 4c 9a 06 3d b9 0d 4c 9f 04 0d 4c a4 0b dd f2 4d |L..=..L...L....M|
00010460 6f 64 65 5f 0d 4c a9 0c 6d 6f 64 65 5f 25 3d eb |ode_.L..mode_%=.|
00010470 0d 4c ae 21 e7 65 64 69 74 25 8c f2 73 65 65 77 |.L.!.edit%..seew|
00010480 69 6e 64 5f 28 65 64 69 74 25 21 31 32 2c 2d 31 |ind_(edit%!12,-1|
00010490 29 0d 4c b8 24 e7 43 53 75 77 69 6e 64 25 8c f2 |).L.$.CSuwind%..|
000104a0 73 65 65 77 69 6e 64 5f 28 43 53 75 77 69 6e 64 |seewind_(CSuwind|
000104b0 25 2c 2d 31 29 0d 4c cc 24 e7 43 46 69 6e 64 53 |%,-1).L.$.CFindS|
000104c0 75 25 8c f2 73 65 65 77 69 6e 64 5f 28 43 46 69 |u%..seewind_(CFi|
000104d0 6e 64 53 75 25 2c 2d 31 29 0d 4c e0 25 e7 43 4c |ndSu%,-1).L.%.CL|
000104e0 61 62 53 75 25 8c f2 73 65 65 77 69 6e 64 5f 28 |abSu%..seewind_(|
000104f0 43 4c 61 62 53 75 25 21 31 32 2c 2d 31 29 0d 4c |CLabSu%!12,-1).L|
00010500 f4 23 e7 43 53 4c 73 75 25 8c f2 73 65 65 77 69 |.#.CSLsu%..seewi|
00010510 6e 64 5f 28 43 53 4c 73 75 25 21 31 32 2c 2d 31 |nd_(CSLsu%!12,-1|
00010520 29 0d 4c fe 20 e7 55 77 69 6e 64 25 8c f2 73 65 |).L. .Uwind%..se|
00010530 65 77 69 6e 64 5f 28 55 77 69 6e 64 25 2c 2d 31 |ewind_(Uwind%,-1|
00010540 29 0d 4d 03 20 e7 43 77 69 6e 64 25 8c f2 73 65 |).M. .Cwind%..se|
00010550 65 77 69 6e 64 5f 28 43 77 69 6e 64 25 2c 2d 31 |ewind_(Cwind%,-1|
00010560 29 0d 4d 0d 22 e7 49 4f 77 69 6e 64 25 8c f2 73 |).M.".IOwind%..s|
00010570 65 65 77 69 6e 64 5f 28 49 4f 77 69 6e 64 25 2c |eewind_(IOwind%,|
00010580 2d 31 29 0d 4d 1c 22 e7 49 4f 70 61 67 65 25 8c |-1).M.".IOpage%.|
00010590 f2 73 65 65 77 69 6e 64 5f 28 49 4f 70 61 67 65 |.seewind_(IOpage|
000105a0 25 2c 2d 31 29 0d 4d 3f 1e e7 70 72 65 66 25 8c |%,-1).M?..pref%.|
000105b0 f2 73 65 65 77 69 6e 64 5f 28 70 72 65 66 25 2c |.seewind_(pref%,|
000105c0 2d 31 29 0d 4d 44 21 e7 73 61 76 65 25 8c f2 73 |-1).MD!.save%..s|
000105d0 65 65 77 69 6e 64 5f 28 73 61 76 65 25 21 31 32 |eewind_(save%!12|
000105e0 2c 2d 31 29 0d 4d 49 1c e7 76 61 74 25 8c f2 73 |,-1).MI..vat%..s|
000105f0 65 65 77 69 6e 64 5f 28 76 61 74 25 2c 2d 31 29 |eewind_(vat%,-1)|
00010600 0d 4d 4e 1e e7 70 61 73 73 25 8c f2 73 65 65 77 |.MN..pass%..seew|
00010610 69 6e 64 5f 28 70 61 73 73 25 2c 2d 31 29 0d 4d |ind_(pass%,-1).M|
00010620 53 1f e7 73 61 76 25 8c f2 73 65 65 77 69 6e 64 |S..sav%..seewind|
00010630 5f 28 73 61 76 25 21 31 32 2c 2d 31 29 0d 4d 58 |_(sav%!12,-1).MX|
00010640 21 e7 43 73 61 76 25 8c f2 73 65 65 77 69 6e 64 |!.Csav%..seewind|
00010650 5f 28 43 73 61 76 25 21 31 32 2c 2d 31 29 0d 4d |_(Csav%!12,-1).M|
00010660 5d 23 e7 49 4f 6e 75 6d 25 8c f2 73 65 65 77 69 |]#.IOnum%..seewi|
00010670 6e 64 5f 28 49 4f 6e 75 6d 25 21 31 32 2c 2d 31 |nd_(IOnum%!12,-1|
00010680 29 0d 4d 62 1e e7 69 6e 76 77 25 8c f2 73 65 65 |).Mb..invw%..see|
00010690 77 69 6e 64 5f 28 69 6e 76 77 25 2c 2d 31 29 0d |wind_(invw%,-1).|
000106a0 4d 67 23 e7 68 65 61 64 73 25 8c f2 73 65 65 77 |Mg#.heads%..seew|
000106b0 69 6e 64 5f 28 68 65 61 64 73 25 21 31 32 2c 2d |ind_(heads%!12,-|
000106c0 31 29 0d 4d 6c 23 e7 68 65 61 64 70 25 8c f2 73 |1).Ml#.headp%..s|
000106d0 65 65 77 69 6e 64 5f 28 68 65 61 64 70 25 21 31 |eewind_(headp%!1|
000106e0 32 2c 2d 31 29 0d 4d 71 21 e7 62 61 6e 6b 25 8c |2,-1).Mq!.bank%.|
000106f0 f2 73 65 65 77 69 6e 64 5f 28 62 61 6e 6b 25 21 |.seewind_(bank%!|
00010700 31 32 2c 2d 31 29 0d 4d 76 20 e7 73 61 6c 65 64 |12,-1).Mv .saled|
00010710 25 8c f2 73 65 65 77 69 6e 64 5f 28 73 61 6c 65 |%..seewind_(sale|
00010720 64 25 2c 2d 31 29 0d 4d 7b 20 e7 70 61 6c 65 64 |d%,-1).M{ .paled|
00010730 25 8c f2 73 65 65 77 69 6e 64 5f 28 70 61 6c 65 |%..seewind_(pale|
00010740 64 25 2c 2d 31 29 0d 4d 80 20 e7 62 61 6e 6b 6c |d%,-1).M. .bankl|
00010750 25 8c f2 73 65 65 77 69 6e 64 5f 28 62 61 6e 6b |%..seewind_(bank|
00010760 6c 25 2c 2d 31 29 0d 4d 85 20 e7 73 74 61 6e 64 |l%,-1).M. .stand|
00010770 25 8c f2 73 65 65 77 69 6e 64 5f 28 73 74 61 6e |%..seewind_(stan|
00010780 64 25 2c 2d 31 29 0d 4d 8a 25 e7 73 61 6c 65 64 |d%,-1).M.%.saled|
00010790 31 25 8c f2 73 65 65 77 69 6e 64 5f 28 73 61 6c |1%..seewind_(sal|
000107a0 65 64 31 25 21 31 32 2c 2d 31 29 0d 4d 8f 25 e7 |ed1%!12,-1).M.%.|
000107b0 70 61 6c 65 64 31 25 8c f2 73 65 65 77 69 6e 64 |paled1%..seewind|
000107c0 5f 28 70 61 6c 65 64 31 25 21 31 32 2c 2d 31 29 |_(paled1%!12,-1)|
000107d0 0d 4d 94 25 e7 73 61 6c 65 64 32 25 8c f2 73 65 |.M.%.saled2%..se|
000107e0 65 77 69 6e 64 5f 28 73 61 6c 65 64 32 25 21 31 |ewind_(saled2%!1|
000107f0 32 2c 2d 31 29 0d 4d 99 25 e7 70 61 6c 65 64 32 |2,-1).M.%.paled2|
00010800 25 8c f2 73 65 65 77 69 6e 64 5f 28 70 61 6c 65 |%..seewind_(pale|
00010810 64 32 25 21 31 32 2c 2d 31 29 0d 4d 9e 23 e7 62 |d2%!12,-1).M.#.b|
00010820 61 6e 6b 31 25 8c f2 73 65 65 77 69 6e 64 5f 28 |ank1%..seewind_(|
00010830 62 61 6e 6b 31 25 21 31 32 2c 2d 31 29 0d 4d a3 |bank1%!12,-1).M.|
00010840 23 e7 62 61 6e 6b 32 25 8c f2 73 65 65 77 69 6e |#.bank2%..seewin|
00010850 64 5f 28 62 61 6e 6b 32 25 21 31 32 2c 2d 31 29 |d_(bank2%!12,-1)|
00010860 0d 4d a8 21 e7 76 61 74 70 25 8c f2 73 65 65 77 |.M.!.vatp%..seew|
00010870 69 6e 64 5f 28 76 61 74 70 25 21 31 32 2c 2d 31 |ind_(vatp%!12,-1|
00010880 29 0d 4d b7 23 e7 76 61 74 70 63 25 8c f2 73 65 |).M.#.vatpc%..se|
00010890 65 77 69 6e 64 5f 28 76 61 74 70 63 25 21 31 32 |ewind_(vatpc%!12|
000108a0 2c 2d 31 29 0d 4d bc 23 e7 62 61 6e 6b 70 25 8c |,-1).M.#.bankp%.|
000108b0 f2 73 65 65 77 69 6e 64 5f 28 62 61 6e 6b 70 25 |.seewind_(bankp%|
000108c0 21 31 32 2c 2d 31 29 0d 4d c1 21 e7 73 74 61 74 |!12,-1).M.!.stat|
000108d0 25 8c f2 73 65 65 77 69 6e 64 5f 28 73 74 61 74 |%..seewind_(stat|
000108e0 25 21 31 32 2c 2d 31 29 0d 4d cb 23 e7 63 63 72 |%!12,-1).M.#.ccr|
000108f0 65 64 25 8c f2 73 65 65 77 69 6e 64 5f 28 63 63 |ed%..seewind_(cc|
00010900 72 65 64 25 21 31 32 2c 2d 31 29 0d 4d d5 05 e1 |red%!12,-1).M...|
00010910 0d 4d da 10 dd a4 77 5f 3a 6f 77 5f 25 3d 57 25 |.M....w_:ow_%=W%|
00010920 0d 4d df 0c ea 20 5a 25 2c 5a 5f 25 0d 4d e4 16 |.M... Z%,Z_%.M..|
00010930 e7 24 28 57 25 2b 32 30 29 3c 3e 22 4d 65 6e 75 |.$(W%+20)<>"Menu|
00010940 22 8c 0d 4d e9 8e e3 5a 25 3d 31 b8 31 36 3a e7 |"..M...Z%=1.16:.|
00010950 6c 6f 77 5f 25 28 5a 25 29 3d 57 25 3a 5a 5f 25 |low_%(Z%)=W%:Z_%|
00010960 3d 5a 25 3a 5a 25 3d 31 36 3a ed 3a f5 3a 6c 6f |=Z%:Z%=16:.:.:lo|
00010970 77 5f 25 28 5a 5f 25 29 3d 6c 6f 77 5f 25 28 5a |w_%(Z_%)=low_%(Z|
00010980 5f 25 2b 31 29 3a 5a 5f 25 2b 3d 31 3a fd 6c 6f |_%+1):Z_%+=1:.lo|
00010990 77 5f 25 28 5a 5f 25 29 3d 30 3a 6c 6f 77 5f 25 |w_%(Z_%)=0:low_%|
000109a0 28 5a 5f 25 2d 31 29 3d 57 25 20 8b e7 6c 6f 77 |(Z_%-1)=W% ..low|
000109b0 5f 25 28 5a 25 29 3d 30 8c 6c 6f 77 5f 25 28 5a |_%(Z%)=0.low_%(Z|
000109c0 25 29 3d 57 25 3a 5a 25 3d 31 36 3a ed 20 8b ed |%)=W%:Z%=16:. ..|
000109d0 0d 4d ee 05 cd 0d 4d f3 0d c8 8e 20 24 77 6e 25 |.M....M.... $wn%|
000109e0 20 ca 0d 4d f8 88 c9 20 22 45 64 69 74 49 74 22 | ..M... "EditIt"|
000109f0 3a e7 65 64 69 74 25 3d 30 8c 65 64 69 74 25 3d |:.edit%=0.edit%=|
00010a00 57 25 3a 24 21 6d 61 69 6e 6e 61 6d 65 5f 25 3d |W%:$!mainname_%=|
00010a10 54 6e 61 6d 5f 24 3a 24 21 6d 61 69 6e 64 61 74 |Tnam_$:$!maindat|
00010a20 65 5f 25 3d c0 91 24 2c 31 35 29 3a 24 21 6d 61 |e_%=..$,15):$!ma|
00010a30 69 6e 74 69 6d 65 5f 25 3d c1 91 24 2c 31 37 2c |intime_%=..$,17,|
00010a40 35 29 3a 24 21 56 61 74 43 6f 64 65 57 5f 25 3d |5):$!VatCodeW_%=|
00010a50 76 61 74 63 6f 64 65 77 5f 24 3a 24 21 56 61 74 |vatcodew_$:$!Vat|
00010a60 50 5f 25 3d 76 61 74 70 5f 24 0d 4e 07 46 c9 20 |P_%=vatp_$.N.F. |
00010a70 22 43 75 73 74 6f 6d 57 22 3a e7 43 53 75 77 69 |"CustomW":.CSuwi|
00010a80 6e 64 25 3d 30 8c 43 53 75 77 69 6e 64 25 3d 57 |nd%=0.CSuwind%=W|
00010a90 25 21 31 32 3a 43 53 75 57 25 3d 57 25 3a 5a 25 |%!12:CSuW%=W%:Z%|
00010aa0 3d a4 43 69 6e 69 74 73 75 70 70 6c 69 65 72 5f |=.Cinitsupplier_|
00010ab0 0d 4e 16 45 c9 20 22 43 46 69 6e 64 53 75 22 3a |.N.E. "CFindSu":|
00010ac0 e7 43 46 69 6e 64 53 75 25 3d 30 8c 43 46 69 6e |.CFindSu%=0.CFin|
00010ad0 64 53 75 25 3d 57 25 21 31 32 3a 24 21 43 53 53 |dSu%=W%!12:$!CSS|
00010ae0 75 70 70 6c 69 65 72 5f 25 3d 43 53 53 75 70 70 |upplier_%=CSSupp|
00010af0 6c 69 65 5f 24 0d 4e 2a 37 c9 20 22 43 53 75 70 |lie_$.N*7. "CSup|
00010b00 4c 61 62 57 22 3a e7 43 4c 61 62 53 75 25 3d 30 |LabW":.CLabSu%=0|
00010b10 8c 43 4c 61 62 53 75 25 3d 57 25 3a 5a 25 3d a4 |.CLabSu%=W%:Z%=.|
00010b20 43 69 6e 69 74 73 75 70 6c 61 62 5f 0d 4e 3e 37 |Cinitsuplab_.N>7|
00010b30 c9 20 22 43 53 75 70 4c 69 73 74 57 22 3a e7 43 |. "CSupListW":.C|
00010b40 53 4c 73 75 25 3d 30 8c 43 53 4c 73 75 25 3d 57 |SLsu%=0.CSLsu%=W|
00010b50 25 3a 5a 25 3d a4 43 69 6e 69 74 73 75 70 6c 69 |%:Z%=.Cinitsupli|
00010b60 73 74 5f 0d 4e 48 31 c9 20 22 55 73 65 72 22 3a |st_.NH1. "User":|
00010b70 e7 55 77 69 6e 64 25 3d 30 8c 5a 25 3d a4 69 6e |.Uwind%=0.Z%=.in|
00010b80 69 74 55 73 65 72 5f 3a 55 77 69 6e 64 25 3d 57 |itUser_:Uwind%=W|
00010b90 25 21 31 32 0d 4e 4d 31 c9 20 22 43 61 6c 63 22 |%!12.NM1. "Calc"|
00010ba0 3a e7 43 77 69 6e 64 25 3d 30 8c 43 77 69 6e 64 |:.Cwind%=0.Cwind|
00010bb0 25 3d 57 25 21 31 32 3a 5a 25 3d a4 69 6e 69 74 |%=W%!12:Z%=.init|
00010bc0 43 61 6c 63 5f 0d 4e 57 e7 c9 20 22 49 6e 76 6f |Calc_.NW.. "Invo|
00010bd0 69 63 65 57 22 3a e7 49 4f 77 69 6e 64 25 3d 30 |iceW":.IOwind%=0|
00010be0 8c 49 4f 77 69 6e 64 25 3d 57 25 21 31 32 3a 5a |.IOwind%=W%!12:Z|
00010bf0 25 3d a4 49 69 6e 69 74 4f 72 64 65 72 5f 3a 49 |%=.IinitOrder_:I|
00010c00 4f 63 68 5f 25 3d 31 3a e7 4f 72 64 65 72 43 5f |Och_%=1:.OrderC_|
00010c10 25 21 30 3d 30 8c 24 21 49 4f 76 61 74 5f 25 3d |%!0=0.$!IOvat_%=|
00010c20 56 41 54 5f 24 2b 22 25 22 3a 24 21 49 4f 76 74 |VAT_$+"%":$!IOvt|
00010c30 5f 25 3d 56 41 54 5f 24 2b 22 20 54 6f 74 61 6c |_%=VAT_$+" Total|
00010c40 3a 22 3a 24 21 49 4f 64 61 74 61 31 30 5f 25 3d |:":$!IOdata10_%=|
00010c50 56 41 54 5f 24 2b 22 2f 54 6f 74 61 6c 22 3a 24 |VAT_$+"/Total":$|
00010c60 21 49 4f 76 72 5f 25 3d 56 41 54 5f 24 2b 22 20 |!IOvr_%=VAT_$+" |
00010c70 52 61 74 65 22 3a 24 21 49 4f 76 64 74 5f 25 3d |Rate":$!IOvdt_%=|
00010c80 56 41 54 5f 24 3a 24 21 49 4f 74 65 78 74 31 31 |VAT_$:$!IOtext11|
00010c90 5f 25 3d 56 41 54 5f 24 2b 22 20 52 65 67 69 73 |_%=VAT_$+" Regis|
00010ca0 74 72 61 74 69 6f 6e 20 4e 6f 3a 22 0d 4e 66 39 |tration No:".Nf9|
00010cb0 c9 20 22 4f 72 64 65 72 50 49 22 3a e7 49 4f 70 |. "OrderPI":.IOp|
00010cc0 61 67 65 25 3d 30 8c 49 4f 70 61 67 65 25 3d 57 |age%=0.IOpage%=W|
00010cd0 25 21 31 32 3a 5a 25 3d a4 49 69 6e 69 74 4f 72 |%!12:Z%=.IinitOr|
00010ce0 64 65 72 50 5f 0d 4e 70 22 c9 20 22 4f 72 64 65 |derP_.Np". "Orde|
00010cf0 72 4d 46 22 3a c8 99 26 34 30 30 44 33 2c 2c 6f |rMF":..&400D3,,o|
00010d00 62 6c 6f 63 6b 5f 25 0d 4e 7a 1e e7 6f 62 6c 6f |block_%.Nz..oblo|
00010d10 63 6b 5f 25 21 30 3d 49 4f 77 69 6e 64 25 8c 6c |ck_%!0=IOwind%.l|
00010d20 77 5f 25 3d 32 0d 4e 9d 33 c9 20 22 50 72 65 66 |w_%=2.N.3. "Pref|
00010d30 65 72 22 3a e7 70 72 65 66 25 3d 30 8c 70 72 65 |er":.pref%=0.pre|
00010d40 66 25 3d 57 25 21 31 32 3a 5a 25 3d a4 69 6e 69 |f%=W%!12:Z%=.ini|
00010d50 74 50 72 65 66 65 72 5f 0d 4e a2 2d c9 20 22 53 |tPrefer_.N.-. "S|
00010d60 73 61 76 65 22 3a e7 73 61 76 65 25 3d 30 8c 73 |save":.save%=0.s|
00010d70 61 76 65 25 3d 57 25 3a 5a 25 3d a4 69 6e 69 74 |ave%=W%:Z%=.init|
00010d80 53 61 76 65 5f 0d 4e a7 31 c9 20 22 56 61 74 43 |Save_.N.1. "VatC|
00010d90 6f 64 65 57 22 3a e7 76 61 74 25 3d 30 8c 76 61 |odeW":.vat%=0.va|
00010da0 74 25 3d 57 25 21 31 32 3a 5a 25 3d a4 69 6e 69 |t%=W%!12:Z%=.ini|
00010db0 74 56 61 74 57 5f 0d 4e ac 31 c9 20 22 50 61 73 |tVatW_.N.1. "Pas|
00010dc0 73 57 22 3a e7 70 61 73 73 25 3d 30 8c 70 61 73 |sW":.pass%=0.pas|
00010dd0 73 25 3d 57 25 21 31 32 3a 5a 25 3d a4 69 6e 69 |s%=W%!12:Z%=.ini|
00010de0 74 50 61 73 73 57 5f 0d 4e b6 31 c9 20 22 43 53 |tPassW_.N.1. "CS|
00010df0 75 53 61 76 65 22 3a e7 43 73 61 76 25 3d 30 8c |uSave":.Csav%=0.|
00010e00 43 73 61 76 25 3d 57 25 3a 5a 25 3d a4 43 69 6e |Csav%=W%:Z%=.Cin|
00010e10 69 74 53 75 53 61 76 5f 0d 4e bb 35 c9 20 22 49 |itSuSav_.N.5. "I|
00010e20 6e 76 4e 75 6d 22 3a e7 49 4f 6e 75 6d 25 3d 30 |nvNum":.IOnum%=0|
00010e30 8c 49 4f 6e 75 6d 25 3d 57 25 3a 5a 25 3d a4 49 |.IOnum%=W%:Z%=.I|
00010e40 69 6e 69 74 4f 72 64 65 72 6e 75 6d 5f 0d 4e c0 |initOrdernum_.N.|
00010e50 38 c9 20 22 49 6e 76 57 22 3a e7 69 6e 76 77 25 |8. "InvW":.invw%|
00010e60 3d 30 8c 69 6e 76 77 25 3d 57 25 21 31 32 3a 69 |=0.invw%=W%!12:i|
00010e70 6e 76 57 25 3d 57 25 3a 5a 25 3d a4 69 6e 69 74 |nvW%=W%:Z%=.init|
00010e80 49 6e 76 57 5f 0d 4e ca 53 c9 20 22 48 65 61 64 |InvW_.N.S. "Head|
00010e90 69 6e 67 73 22 3a e7 68 65 61 64 73 25 3d 30 8c |ings":.heads%=0.|
00010ea0 68 65 61 64 73 25 3d 57 25 3a 24 21 53 76 31 5f |heads%=W%:$!Sv1_|
00010eb0 25 3d 56 41 54 5f 24 3a 24 21 53 76 32 5f 25 3d |%=VAT_$:$!Sv2_%=|
00010ec0 56 41 54 5f 24 3a 5a 25 3d a4 69 6e 69 74 68 65 |VAT_$:Z%=.inithe|
00010ed0 61 64 73 4d 5f 28 30 29 0d 4e cf 54 c9 20 22 50 |adsM_(0).N.T. "P|
00010ee0 48 65 61 64 69 6e 67 73 22 3a e7 68 65 61 64 70 |Headings":.headp|
00010ef0 25 3d 30 8c 68 65 61 64 70 25 3d 57 25 3a 24 21 |%=0.headp%=W%:$!|
00010f00 50 76 31 5f 25 3d 56 41 54 5f 24 3a 24 21 50 76 |Pv1_%=VAT_$:$!Pv|
00010f10 32 5f 25 3d 56 41 54 5f 24 3a 5a 25 3d a4 69 6e |2_%=VAT_$:Z%=.in|
00010f20 69 74 68 65 61 64 70 4d 5f 28 30 29 0d 4e d4 30 |itheadpM_(0).N.0|
00010f30 c9 20 22 42 61 6e 6b 73 22 3a e7 62 61 6e 6b 25 |. "Banks":.bank%|
00010f40 3d 30 8c 62 61 6e 6b 25 3d 57 25 3a 5a 25 3d a4 |=0.bank%=W%:Z%=.|
00010f50 69 6e 69 74 62 61 6e 6b 5f 28 30 29 0d 4e d9 47 |initbank_(0).N.G|
00010f60 c9 20 22 53 61 6c 65 64 22 3a e7 73 61 6c 65 64 |. "Saled":.saled|
00010f70 25 3d 30 8c 73 61 6c 65 64 25 3d 57 25 21 31 32 |%=0.saled%=W%!12|
00010f80 3a 73 61 6c 65 64 57 25 3d 57 25 3a c8 99 26 34 |:saledW%=W%:..&4|
00010f90 30 36 43 30 3a 5a 25 3d a4 69 6e 69 74 73 61 6c |06C0:Z%=.initsal|
00010fa0 65 64 5f 0d 4e de 47 c9 20 22 50 61 6c 65 64 22 |ed_.N.G. "Paled"|
00010fb0 3a e7 70 61 6c 65 64 25 3d 30 8c 70 61 6c 65 64 |:.paled%=0.paled|
00010fc0 25 3d 57 25 21 31 32 3a 70 61 6c 65 64 57 25 3d |%=W%!12:paledW%=|
00010fd0 57 25 3a c8 99 26 34 30 36 43 30 3a 5a 25 3d a4 |W%:..&406C0:Z%=.|
00010fe0 69 6e 69 74 70 61 6c 65 64 5f 0d 4e e3 46 c9 20 |initpaled_.N.F. |
00010ff0 22 42 61 6e 6b 4c 22 3a e7 62 61 6e 6b 6c 25 3d |"BankL":.bankl%=|
00011000 30 8c 62 61 6e 6b 6c 25 3d 57 25 21 31 32 3a 62 |0.bankl%=W%!12:b|
00011010 61 6e 6b 57 25 3d 57 25 3a c8 99 26 34 30 36 43 |ankW%=W%:..&406C|
00011020 30 3a 5a 25 3d a4 69 6e 69 74 62 61 6e 6b 6c 5f |0:Z%=.initbankl_|
00011030 0d 4e e8 48 c9 20 22 53 74 61 6e 64 57 22 3a e7 |.N.H. "StandW":.|
00011040 73 74 61 6e 64 25 3d 30 8c 73 74 61 6e 64 25 3d |stand%=0.stand%=|
00011050 57 25 21 31 32 3a 73 74 61 6e 64 57 25 3d 57 25 |W%!12:standW%=W%|
00011060 3a c8 99 26 34 30 36 43 30 3a 5a 25 3d a4 69 6e |:..&406C0:Z%=.in|
00011070 69 74 73 74 61 6e 64 5f 0d 4e ed 35 c9 20 22 53 |itstand_.N.5. "S|
00011080 61 6c 65 64 46 57 22 3a e7 73 61 6c 65 64 31 25 |aledFW":.saled1%|
00011090 3d 30 8c 73 61 6c 65 64 31 25 3d 57 25 3a 5a 25 |=0.saled1%=W%:Z%|
000110a0 3d a4 69 6e 69 74 73 61 6c 65 64 31 5f 0d 4e f2 |=.initsaled1_.N.|
000110b0 35 c9 20 22 50 61 6c 65 64 46 57 22 3a e7 70 61 |5. "PaledFW":.pa|
000110c0 6c 65 64 31 25 3d 30 8c 70 61 6c 65 64 31 25 3d |led1%=0.paled1%=|
000110d0 57 25 3a 5a 25 3d a4 69 6e 69 74 70 61 6c 65 64 |W%:Z%=.initpaled|
000110e0 31 5f 0d 4e f7 43 c9 20 22 53 61 6c 65 64 52 57 |1_.N.C. "SaledRW|
000110f0 22 3a e7 73 61 6c 65 64 32 25 3d 30 8c 73 61 6c |":.saled2%=0.sal|
00011100 65 64 32 25 3d 57 25 3a 24 21 72 37 53 5f 25 3d |ed2%=W%:$!r7S_%=|
00011110 56 41 54 5f 24 3a 5a 25 3d a4 69 6e 69 74 73 61 |VAT_$:Z%=.initsa|
00011120 6c 65 64 32 5f 0d 4e fc 43 c9 20 22 50 61 6c 65 |led2_.N.C. "Pale|
00011130 64 52 57 22 3a e7 70 61 6c 65 64 32 25 3d 30 8c |dRW":.paled2%=0.|
00011140 70 61 6c 65 64 32 25 3d 57 25 3a 24 21 72 37 50 |paled2%=W%:$!r7P|
00011150 5f 25 3d 56 41 54 5f 24 3a 5a 25 3d a4 69 6e 69 |_%=VAT_$:Z%=.ini|
00011160 74 70 61 6c 65 64 32 5f 0d 4f 01 31 c9 20 22 42 |tpaled2_.O.1. "B|
00011170 61 6e 6b 46 57 22 3a e7 62 61 6e 6b 31 25 3d 30 |ankFW":.bank1%=0|
00011180 8c 62 61 6e 6b 31 25 3d 57 25 3a 5a 25 3d a4 69 |.bank1%=W%:Z%=.i|
00011190 6e 69 74 62 61 6e 6b 31 5f 0d 4f 06 31 c9 20 22 |nitbank1_.O.1. "|
000111a0 42 61 6e 6b 52 57 22 3a e7 62 61 6e 6b 32 25 3d |BankRW":.bank2%=|
000111b0 30 8c 62 61 6e 6b 32 25 3d 57 25 3a 5a 25 3d a4 |0.bank2%=W%:Z%=.|
000111c0 69 6e 69 74 62 61 6e 6b 32 5f 0d 4f 0b 2c c9 20 |initbank2_.O.,. |
000111d0 22 56 61 74 50 22 3a e7 76 61 74 70 25 3d 30 8c |"VatP":.vatp%=0.|
000111e0 76 61 74 70 25 3d 57 25 3a 5a 25 3d a4 69 6e 69 |vatp%=W%:Z%=.ini|
000111f0 74 76 61 74 70 5f 0d 4f 10 33 c9 20 22 56 61 74 |tvatp_.O.3. "Vat|
00011200 50 43 6f 6e 74 22 3a e7 76 61 74 70 63 25 3d 30 |PCont":.vatpc%=0|
00011210 8c 76 61 74 70 63 25 3d 57 25 3a 5a 25 3d a4 69 |.vatpc%=W%:Z%=.i|
00011220 6e 69 74 76 61 74 70 63 5f 0d 4f 15 32 c9 20 22 |nitvatpc_.O.2. "|
00011230 42 61 6e 6b 50 22 3a e7 62 61 6e 6b 70 25 3d 30 |BankP":.bankp%=0|
00011240 8c 62 61 6e 6b 70 25 3d 57 25 3a 5a 25 3d a4 69 |.bankp%=W%:Z%=.i|
00011250 6e 69 74 62 61 6e 6b 74 6f 74 5f 0d 4f 1a 30 c9 |nitbanktot_.O.0.|
00011260 20 22 53 63 6f 6e 74 72 6f 6c 22 3a e7 73 74 61 | "Scontrol":.sta|
00011270 74 25 3d 30 8c 73 74 61 74 25 3d 57 25 3a 5a 25 |t%=0.stat%=W%:Z%|
00011280 3d a4 69 6e 69 74 73 74 61 74 5f 0d 4f 24 3a c9 |=.initstat_.O$:.|
00011290 20 22 43 63 72 65 64 69 74 22 3a e7 63 63 72 65 | "Ccredit":.ccre|
000112a0 64 25 3d 30 8c 63 63 72 65 64 25 3d 57 25 3a 6f |d%=0.ccred%=W%:o|
000112b0 63 63 72 65 64 5f 25 3d 30 3a f2 69 6e 69 74 63 |ccred_%=0:.initc|
000112c0 63 72 65 64 5f 0d 4f 3d 05 cb 0d 4f 42 06 3d b9 |cred_.O=...OB.=.|
000112d0 0d 4f 47 08 dd a4 62 5f 0d 4f 4c 1a e7 eb 3c 3e |.OG...b_.OL...<>|
000112e0 6d 6f 64 65 5f 25 8c f2 67 4d 69 3a f2 4d 6f 64 |mode_%..gMi:.Mod|
000112f0 65 5f 0d 4f 51 71 e7 6e 6f 74 72 61 6e 73 5f 25 |e_.OQq.notrans_%|
00011300 3d 31 3a e7 65 72 72 6f 72 5f 25 3d 30 3a 6e 6f |=1:.error_%=0:no|
00011310 74 72 61 6e 73 5f 25 3d 30 3a f2 70 65 5f 28 22 |trans_%=0:.pe_("|
00011320 45 73 63 61 70 65 20 70 72 65 73 73 65 64 20 6f |Escape pressed o|
00011330 72 20 6e 6f 20 64 61 74 61 2f 6e 6f 74 20 65 6e |r no data/not en|
00011340 6f 75 67 68 20 6d 65 6d 6f 72 79 20 74 6f 20 63 |ough memory to c|
00011350 6f 6d 70 6c 65 74 65 20 74 68 69 73 20 74 61 73 |omplete this tas|
00011360 6b 22 29 0d 4f 56 21 e7 65 72 72 6f 72 5f 25 3d |k").OV!.error_%=|
00011370 30 3a c8 99 26 34 30 30 43 46 2c 2c 63 62 6c 6f |0:..&400CF,,cblo|
00011380 63 6b 5f 25 0d 4f 5b 44 e7 65 72 72 6f 72 5f 25 |ck_%.O[D.error_%|
00011390 3d 30 3a e7 70 6d 5f 25 3d 31 3a e7 a4 6d 6f 75 |=0:.pm_%=1:..mou|
000113a0 73 65 3d 30 3a 70 6d 5f 25 3d 30 3a c8 99 26 34 |se=0:pm_%=0:..&4|
000113b0 30 30 45 39 2c 33 36 2c 2c 22 70 74 72 5f 64 65 |00E9,36,,"ptr_de|
000113c0 66 61 75 6c 74 22 2c 31 0d 4f 60 20 e7 65 72 72 |fault",1.O` .err|
000113d0 6f 72 5f 25 3d 30 3a e7 63 62 6c 6f 63 6b 5f 25 |or_%=0:.cblock_%|
000113e0 21 38 3c 3e 30 8c 3d b9 0d 4f 65 3b e7 65 72 72 |!8<>0.=..Oe;.err|
000113f0 6f 72 5f 25 3d 30 3a f2 63 61 72 5f 3a e7 6d 65 |or_%=0:.car_:.me|
00011400 6d 45 5f 25 3d 30 3a e7 93 2d e0 3c 31 32 30 30 |mE_%=0:..-.<1200|
00011410 30 8c 6d 65 6d 45 5f 25 3d 31 3a f2 6c 6f 77 6d |0.memE_%=1:.lowm|
00011420 65 6d 5f 0d 4f 6f 72 e7 65 72 72 6f 72 5f 25 3d |em_.Oor.error_%=|
00011430 30 3a e7 6f 6c 64 74 5f 24 3c 3e c1 91 24 2c 31 |0:.oldt_$<>..$,1|
00011440 37 2c 35 29 3a 6f 6c 64 74 5f 24 3d c1 91 24 2c |7,5):oldt_$=..$,|
00011450 31 37 2c 35 29 3a 6d 69 6e 5f 25 2b 3d 31 3a e7 |17,5):min_%+=1:.|
00011460 65 64 69 74 25 3c 3e 30 3a 24 21 6d 61 69 6e 74 |edit%<>0:$!maint|
00011470 69 6d 65 5f 25 3d c1 91 24 2c 31 37 2c 35 29 3a |ime_%=..$,17,5):|
00011480 f2 72 49 28 65 64 69 74 25 2c 22 6d 61 69 6e 74 |.rI(edit%,"maint|
00011490 69 6d 65 22 29 0d 4f 74 58 e7 65 72 72 6f 72 5f |ime").OtX.error_|
000114a0 25 3d 30 3a e7 41 75 74 6f 73 61 76 5f 25 3e 30 |%=0:.Autosav_%>0|
000114b0 3a e7 6d 69 6e 5f 25 3e 3d 41 75 74 6f 73 61 76 |:.min_%>=Autosav|
000114c0 5f 25 3a e7 65 31 5f 25 3d 30 3a 6d 69 6e 5f 25 |_%:.e1_%=0:min_%|
000114d0 3d 30 3a e7 73 61 76 65 25 3d 30 8c f2 61 75 73 |=0:.save%=0..aus|
000114e0 61 76 5f 3a 65 72 72 6f 72 5f 25 3d 30 0d 4f 79 |av_:error_%=0.Oy|
000114f0 06 3d b9 0d 4f 7e 48 dd f2 63 61 72 5f 3a c8 99 |.=..O~H..car_:..|
00011500 26 34 30 30 44 33 2c 2c 63 62 6c 6f 63 6b 5f 25 |&400D3,,cblock_%|
00011510 3a e7 63 62 6c 6f 63 6b 5f 25 21 31 36 3c 30 84 |:.cblock_%!16<0.|
00011520 63 62 6c 6f 63 6b 5f 25 21 34 3c 30 84 63 62 6c |cblock_%!4<0.cbl|
00011530 6f 63 6b 5f 25 21 30 3c 30 8c e1 0d 4f 83 de e7 |ock_%!0<0...O...|
00011540 63 62 6c 6f 63 6b 5f 25 21 30 3d 69 6e 76 77 25 |cblock_%!0=invw%|
00011550 3a e7 63 62 6c 6f 63 6b 5f 25 21 34 83 36 3d 32 |:.cblock_%!4.6=2|
00011560 3a e7 63 62 6c 6f 63 6b 5f 25 21 34 3c 34 35 3a |:.cblock_%!4<45:|
00011570 e7 24 21 49 54 73 64 5f 25 3c 3e a4 67 49 64 28 |.$!ITsd_%<>.gId(|
00011580 69 6e 76 77 25 2c 63 62 6c 6f 63 6b 5f 25 21 34 |invw%,cblock_%!4|
00011590 29 3a 24 21 49 54 73 64 5f 25 3d a4 67 49 64 28 |):$!ITsd_%=.gId(|
000115a0 69 6e 76 77 25 2c 63 62 6c 6f 63 6b 5f 25 21 34 |invw%,cblock_%!4|
000115b0 29 3a f2 72 49 28 69 6e 76 57 25 2c 22 49 54 73 |):.rI(invW%,"ITs|
000115c0 64 22 29 3a 49 54 6c 6c 5f 25 3d bb 28 24 21 49 |d"):ITll_%=.($!I|
000115d0 54 6c 5f 25 29 3a c8 99 26 36 2c 31 32 38 2c 32 |Tl_%):..&6,128,2|
000115e0 35 35 b8 2c 69 77 5f 25 3a e7 a9 28 24 21 49 54 |55.,iw_%:..($!IT|
000115f0 73 64 5f 25 29 3e 49 54 6c 6c 5f 25 84 69 77 5f |sd_%)>ITll_%.iw_|
00011600 25 3e 34 30 3a f2 77 72 61 70 5f 28 63 62 6c 6f |%>40:.wrap_(cblo|
00011610 63 6b 5f 25 21 34 29 3a e1 0d 4f 88 59 e7 63 62 |ck_%!4):..O.Y.cb|
00011620 6c 6f 63 6b 5f 25 21 30 3d 69 6e 76 77 25 3a e7 |lock_%!0=invw%:.|
00011630 63 62 6c 6f 63 6b 5f 25 21 34 83 36 3c 3e 32 3a |cblock_%!4.6<>2:|
00011640 e7 24 21 49 54 73 64 5f 25 3c 3e 22 22 8c 24 21 |.$!ITsd_%<>"".$!|
00011650 49 54 73 64 5f 25 3d 22 22 3a 73 61 5f 25 3d 31 |ITsd_%="":sa_%=1|
00011660 3a f2 72 49 28 69 6e 76 57 25 2c 22 49 54 73 64 |:.rI(invW%,"ITsd|
00011670 22 29 0d 4f 8d 57 63 62 6c 6f 63 6b 5f 25 21 31 |").O.Wcblock_%!1|
00011680 36 3d 63 62 6c 6f 63 6b 5f 25 21 31 36 82 26 34 |6=cblock_%!16.&4|
00011690 30 30 30 30 30 30 3a e7 28 63 62 6c 6f 63 6b 5f |000000:.(cblock_|
000116a0 25 21 31 36 3e 3e 32 35 29 83 32 8c 63 62 6c 6f |%!16>>25).2.cblo|
000116b0 63 6b 5f 25 21 32 30 3d 2d 31 3a 63 62 6c 6f 63 |ck_%!20=-1:cbloc|
000116c0 6b 5f 25 21 31 36 3d 2d 31 0d 4f 92 51 c8 99 26 |k_%!16=-1.O.Q..&|
000116d0 34 30 30 44 32 2c 63 62 6c 6f 63 6b 5f 25 21 30 |400D2,cblock_%!0|
000116e0 2c 63 62 6c 6f 63 6b 5f 25 21 34 2c 63 62 6c 6f |,cblock_%!4,cblo|
000116f0 63 6b 5f 25 21 38 2c 63 62 6c 6f 63 6b 5f 25 21 |ck_%!8,cblock_%!|
00011700 31 32 2c 63 62 6c 6f 63 6b 5f 25 21 31 36 2c 63 |12,cblock_%!16,c|
00011710 62 6c 6f 63 6b 5f 25 21 32 30 0d 4f 97 05 e1 0d |block_%!20.O....|
00011720 4f 9c 0c dd f2 61 75 73 61 76 5f 0d 4f a1 0b ea |O....ausav_.O...|
00011730 20 5a 25 2c 5a 24 0d 4f a6 17 65 72 72 6f 72 5f | Z%,Z$.O..error_|
00011740 25 3d 31 3a e7 73 61 5f 25 3d 30 8c e1 0d 4f ab |%=1:.sa_%=0...O.|
00011750 54 e7 41 75 74 6f 77 61 72 5f 25 3d 31 8c 5a 24 |T.Autowar_%=1.Z$|
00011760 3d a4 61 6c 65 72 74 28 22 41 62 6f 75 74 20 74 |=.alert("About t|
00011770 6f 20 53 61 76 65 20 79 6f 75 72 20 57 6f 72 6b |o Save your Work|
00011780 20 4f 4b 3f 22 2c 22 22 2c 22 59 45 53 22 2c 22 | OK?","","YES","|
00011790 4e 4f 22 2c 22 61 72 5f 71 75 65 73 74 22 2c 31 |NO","ar_quest",1|
000117a0 29 0d 4f b0 0e e7 5a 24 3d 22 4e 4f 22 8c e1 0d |).O...Z$="NO"...|
000117b0 4f b5 1a 5a 24 3d a4 61 73 61 76 65 32 5f 28 53 |O..Z$=.asave2_(S|
000117c0 61 76 65 61 5f 24 2c 31 29 0d 4f ba 05 e1 0d 4f |avea_$,1).O....O|
000117d0 bf 0d dd f2 6c 6f 77 6d 65 6d 5f 0d 4f c4 0b ea |....lowmem_.O...|
000117e0 20 5a 25 2c 5a 24 0d 4f c9 2a 65 6e 64 5f 25 3d | Z%,Z$.O.*end_%=|
000117f0 31 3a 6d 6f 72 65 6d 65 6d 5f 25 3d 31 3a 65 72 |1:moremem_%=1:er|
00011800 72 6f 72 5f 25 3d 31 3a 4f 65 72 72 5f 25 3d 31 |ror_%=1:Oerr_%=1|
00011810 0d 4f ce 8f e7 93 2d e0 3c 36 30 30 30 8c 5a 24 |.O....-.<6000.Z$|
00011820 3d a4 61 6c 65 72 74 28 22 53 6f 72 72 79 2c 20 |=.alert("Sorry, |
00011830 6e 6f 20 6d 65 6d 6f 72 79 20 6c 65 66 74 2e 20 |no memory left. |
00011840 51 75 69 74 74 69 6e 67 20 70 72 6f 67 72 61 6d |Quitting program|
00011850 2e 20 43 6c 69 63 6b 20 6f 6e 20 59 45 53 20 74 |. Click on YES t|
00011860 6f 20 53 41 56 45 20 79 6f 75 72 20 77 6f 72 6b |o SAVE your work|
00011870 20 6f 72 20 4e 4f 20 74 6f 20 6c 6f 73 65 20 69 | or NO to lose i|
00011880 74 2e 22 2c 22 22 2c 22 59 45 53 22 2c 22 4e 4f |t.","","YES","NO|
00011890 22 2c 22 61 72 5f 71 75 65 73 74 22 2c 31 29 0d |","ar_quest",1).|
000118a0 4f d3 2d e7 93 2d e0 3c 36 30 30 30 3a e7 5a 24 |O.-..-.<6000:.Z$|
000118b0 3d 22 59 45 53 22 8c 53 61 73 61 76 5f 25 3d 31 |="YES".Sasav_%=1|
000118c0 3a 5a 25 3d a4 4d 79 71 75 69 74 5f 0d 4f d8 2c |:Z%=.Myquit_.O.,|
000118d0 e7 93 2d e0 3c 36 30 30 30 3a e7 5a 24 3d 22 4e |..-.<6000:.Z$="N|
000118e0 4f 22 8c 53 61 73 61 76 5f 25 3d 30 3a 5a 25 3d |O".Sasav_%=0:Z%=|
000118f0 a4 4d 79 71 75 69 74 5f 0d 4f dd 0d 65 72 72 6f |.Myquit_.O..erro|
00011900 72 5f 25 3d 30 0d 4f e2 05 e1 0d 4f e7 16 dd a4 |r_%=0.O....O....|
00011910 65 5f 3a e7 52 25 3d 33 3a 6f 77 5f 25 3d 57 25 |e_:.R%=3:ow_%=W%|
00011920 0d 4f ec 55 e7 52 25 3d 31 39 33 3a f2 73 65 65 |.O.U.R%=193:.see|
00011930 77 69 6e 64 31 5f 3a e7 24 77 6e 25 3c 3e 22 45 |wind1_:.$wn%<>"E|
00011940 64 69 74 49 74 22 80 24 77 6e 25 3c 3e 22 50 72 |ditIt".$wn%<>"Pr|
00011950 65 66 65 72 22 80 24 77 6e 25 3c 3e 22 53 73 61 |efer".$wn%<>"Ssa|
00011960 76 65 22 80 24 77 6e 25 3c 3e 22 22 8c 6d 65 6d |ve".$wn%<>"".mem|
00011970 45 5f 25 3d 30 0d 4f f1 6c e7 24 6d 6e 25 3d 22 |E_%=0.O.l.$mn%="|
00011980 53 75 70 70 4c 69 73 74 22 84 24 6d 6e 25 3d 22 |SuppList".$mn%="|
00011990 43 53 75 70 70 4c 69 73 74 22 84 24 6d 6e 25 3d |CSuppList".$mn%=|
000119a0 22 46 6f 6e 74 4c 69 73 74 22 84 24 6d 6e 25 3d |"FontList".$mn%=|
000119b0 22 48 65 61 64 4c 69 73 74 53 22 84 24 6d 6e 25 |"HeadListS".$mn%|
000119c0 3d 22 48 65 61 64 4c 69 73 74 50 22 84 24 6d 6e |="HeadListP".$mn|
000119d0 25 3d 22 49 6e 76 4c 22 8c c8 99 26 34 30 36 43 |%="InvL"...&406C|
000119e0 31 0d 4f f6 08 ea 20 5a 25 0d 4f fb 1f e7 66 63 |1.O... Z%.O...fc|
000119f0 5f 25 3d 31 3a 66 63 5f 25 3d 30 3a 5a 25 3d a4 |_%=1:fc_%=0:Z%=.|
00011a00 63 68 66 6f 6e 74 73 5f 0d 50 00 0d c8 8e 20 24 |chfonts_.P.... $|
00011a10 77 6e 25 20 ca 0d 50 05 31 c9 20 22 45 64 69 74 |wn% ..P.1. "Edit|
00011a20 49 74 22 3a e7 65 64 69 74 25 3c 3e 30 8c f2 69 |It":.edit%<>0..i|
00011a30 6e 69 74 65 64 69 74 5f 3a e7 52 25 3d 33 8c 65 |nitedit_:.R%=3.e|
00011a40 64 69 74 25 3d 30 0d 50 14 73 c9 20 22 43 75 73 |dit%=0.P.s. "Cus|
00011a50 74 6f 6d 57 22 3a e7 43 53 75 77 69 6e 64 25 3e |tomW":.CSuwind%>|
00011a60 30 20 8c 5a 25 3d a4 43 73 75 70 73 74 6f 63 5f |0 .Z%=.Csupstoc_|
00011a70 3a e7 52 25 3d 33 8c 43 53 75 77 69 6e 64 25 3d |:.R%=3.CSuwind%=|
00011a80 30 3a 43 53 75 57 25 3d 30 3a e7 63 63 72 65 64 |0:CSuW%=0:.ccred|
00011a90 25 3e 30 8c f2 73 77 5f 28 63 63 72 65 64 25 29 |%>0..sw_(ccred%)|
00011aa0 3a f2 63 6c 6f 73 65 57 28 63 63 72 65 64 25 29 |:.closeW(ccred%)|
00011ab0 3a 63 63 72 65 64 25 3d 30 0d 50 23 48 c9 20 22 |:ccred%=0.P#H. "|
00011ac0 43 46 69 6e 64 53 75 22 3a e7 43 46 69 6e 64 53 |CFindSu":.CFindS|
00011ad0 75 25 3e 30 20 8c 43 53 53 75 70 70 6c 69 65 5f |u%>0 .CSSupplie_|
00011ae0 24 3d 24 21 43 53 53 75 70 70 6c 69 65 72 5f 25 |$=$!CSSupplier_%|
00011af0 3a e7 52 25 3d 33 8c 43 46 69 6e 64 53 75 25 3d |:.R%=3.CFindSu%=|
00011b00 30 0d 50 37 4a c9 20 22 43 53 75 70 4c 61 62 57 |0.P7J. "CSupLabW|
00011b10 22 3a e7 43 4c 61 62 53 75 25 3e 30 8c 5a 25 3d |":.CLabSu%>0.Z%=|
00011b20 a4 43 66 73 75 6c 61 62 5f 3a e7 52 25 3d 33 8c |.Cfsulab_:.R%=3.|
00011b30 5a 25 3d a4 43 75 70 64 61 74 65 73 75 6c 61 62 |Z%=.Cupdatesulab|
00011b40 5f 3a 43 4c 61 62 53 75 25 3d 30 0d 50 4b 4b c9 |_:CLabSu%=0.PKK.|
00011b50 20 22 43 53 75 70 4c 69 73 74 57 22 3a e7 43 53 | "CSupListW":.CS|
00011b60 4c 73 75 25 3e 30 8c 5a 25 3d a4 43 66 73 75 6c |Lsu%>0.Z%=.Cfsul|
00011b70 69 73 74 5f 3a e7 52 25 3d 33 8c 5a 25 3d a4 43 |ist_:.R%=3.Z%=.C|
00011b80 75 70 64 61 74 65 73 75 6c 69 73 74 5f 3a 43 53 |updatesulist_:CS|
00011b90 4c 73 75 25 3d 30 0d 50 55 36 c9 20 22 55 73 65 |Lsu%=0.PU6. "Use|
00011ba0 72 22 3a e7 55 77 69 6e 64 25 3c 3e 30 8c 5a 25 |r":.Uwind%<>0.Z%|
00011bb0 3d a4 75 70 64 61 74 65 55 73 65 72 5f 3a e7 52 |=.updateUser_:.R|
00011bc0 25 3d 33 8c 55 77 69 6e 64 25 3d 30 0d 50 5f 36 |%=3.Uwind%=0.P_6|
00011bd0 c9 20 22 43 61 6c 63 22 3a e7 43 77 69 6e 64 25 |. "Calc":.Cwind%|
00011be0 3c 3e 30 8c 5a 25 3d a4 75 70 64 61 74 65 43 61 |<>0.Z%=.updateCa|
00011bf0 6c 63 5f 3a e7 52 25 3d 33 8c 43 77 69 6e 64 25 |lc_:.R%=3.Cwind%|
00011c00 3d 30 0d 50 69 88 c9 20 22 49 6e 76 6f 69 63 65 |=0.Pi.. "Invoice|
00011c10 57 22 3a f2 67 65 74 57 69 6e 64 5f 28 4f 72 64 |W":.getWind_(Ord|
00011c20 65 72 43 5f 25 2c 32 29 3a e7 49 4f 77 69 6e 64 |erC_%,2):.IOwind|
00011c30 25 3c 3e 30 8c 5a 25 3d a4 75 70 64 61 74 65 4f |%<>0.Z%=.updateO|
00011c40 72 64 65 72 5f 28 32 29 3a e7 52 25 3d 33 8c 49 |rder_(2):.R%=3.I|
00011c50 4f 77 69 6e 64 25 3d 30 3a 49 4f 70 61 67 65 25 |Owind%=0:IOpage%|
00011c60 3d 30 3a f2 75 70 64 61 74 65 77 69 6e 64 5f 28 |=0:.updatewind_(|
00011c70 4f 72 64 65 72 43 5f 25 29 3a 5a 25 3d a4 49 6c |OrderC_%):Z%=.Il|
00011c80 6f 73 65 4f 66 6f 6e 74 73 5f 0d 50 7d 1f c9 20 |oseOfonts_.P}.. |
00011c90 22 4f 72 64 65 72 50 49 22 3a e7 52 25 3d 35 8c |"OrderPI":.R%=5.|
00011ca0 f2 73 65 74 43 5f 28 31 29 0d 50 82 21 e7 49 4f |.setC_(1).P.!.IO|
00011cb0 70 61 67 65 25 3e 30 8c 5a 25 3d a4 49 75 70 64 |page%>0.Z%=.Iupd|
00011cc0 61 74 65 4f 72 64 65 72 50 5f 0d 50 96 1f c9 20 |ateOrderP_.P... |
00011cd0 22 4f 72 64 65 72 44 49 22 3a f2 49 75 70 64 61 |"OrderDI":.Iupda|
00011ce0 74 65 4f 72 64 65 72 44 5f 0d 50 aa 20 c9 20 22 |teOrderD_.P. . "|
00011cf0 4f 72 64 65 72 4d 50 49 22 3a e7 52 25 3d 35 8c |OrderMPI":.R%=5.|
00011d00 f2 73 65 74 43 5f 28 33 29 0d 50 af 19 e7 49 4f |.setC_(3).P...IO|
00011d10 77 69 6e 64 25 3e 30 8c f2 49 6f 72 64 65 72 6d |wind%>0..Iorderm|
00011d20 70 5f 0d 50 c8 20 c9 20 22 4f 72 64 65 72 55 46 |p_.P. . "OrderUF|
00011d30 49 22 3a e7 52 25 3d 35 8c f2 73 65 74 43 5f 28 |I":.R%=5..setC_(|
00011d40 31 29 0d 50 e6 31 c9 20 22 50 72 65 66 65 72 22 |1).P.1. "Prefer"|
00011d50 3a e7 70 72 65 66 25 3e 30 8c 5a 25 3d a4 70 72 |:.pref%>0.Z%=.pr|
00011d60 65 66 65 72 5f 3a e7 52 25 3d 33 8c 70 72 65 66 |efer_:.R%=3.pref|
00011d70 25 3d 30 0d 50 eb 34 c9 20 22 53 73 61 76 65 22 |%=0.P.4. "Ssave"|
00011d80 3a e7 73 61 76 65 25 3e 30 8c 5a 25 3d a4 75 70 |:.save%>0.Z%=.up|
00011d90 64 61 74 65 53 61 76 65 5f 3a e7 52 25 3d 33 8c |dateSave_:.R%=3.|
00011da0 73 61 76 65 25 3d 30 0d 50 f0 2f c9 20 22 56 61 |save%=0.P./. "Va|
00011db0 74 43 6f 64 65 57 22 3a e7 76 61 74 25 3e 30 8c |tCodeW":.vat%>0.|
00011dc0 5a 25 3d a4 56 61 74 57 5f 3a e7 52 25 3d 33 8c |Z%=.VatW_:.R%=3.|
00011dd0 76 61 74 25 3d 30 0d 50 f5 24 c9 20 22 50 61 73 |vat%=0.P.$. "Pas|
00011de0 73 57 22 3a e7 70 61 73 73 25 3e 30 3a e7 52 25 |sW":.pass%>0:.R%|
00011df0 3d 33 8c 70 61 73 73 25 3d 30 0d 50 ff 38 c9 20 |=3.pass%=0.P.8. |
00011e00 22 43 53 75 53 61 76 65 22 3a e7 43 73 61 76 25 |"CSuSave":.Csav%|
00011e10 3e 30 8c 5a 25 3d a4 43 75 70 64 61 74 65 53 75 |>0.Z%=.CupdateSu|
00011e20 53 61 76 5f 3a e7 52 25 3d 33 8c 43 73 61 76 25 |Sav_:.R%=3.Csav%|
00011e30 3d 30 0d 51 04 36 c9 20 22 49 6e 76 4e 75 6d 22 |=0.Q.6. "InvNum"|
00011e40 3a e7 49 4f 6e 75 6d 25 3e 30 8c 5a 25 3d a4 49 |:.IOnum%>0.Z%=.I|
00011e50 4f 72 64 65 72 6e 75 6d 5f 3a e7 52 25 3d 33 8c |Ordernum_:.R%=3.|
00011e60 49 4f 6e 75 6d 25 3d 30 0d 51 09 43 c9 20 22 49 |IOnum%=0.Q.C. "I|
00011e70 6e 76 57 22 3a e7 69 6e 76 77 25 3e 30 8c 5a 25 |nvW":.invw%>0.Z%|
00011e80 3d a4 75 70 64 61 74 65 49 6e 76 57 5f 3a e7 52 |=.updateInvW_:.R|
00011e90 25 3d 33 8c 5a 25 3d a4 67 65 74 63 75 73 74 5f |%=3.Z%=.getcust_|
00011ea0 28 30 29 3a 69 6e 76 77 25 3d 30 0d 51 0e 34 c9 |(0):invw%=0.Q.4.|
00011eb0 20 22 42 61 6e 6b 73 22 3a e7 62 61 6e 6b 25 3e | "Banks":.bank%>|
00011ec0 30 3a 5a 25 3d a4 75 70 64 61 74 65 62 61 6e 6b |0:Z%=.updatebank|
00011ed0 5f 3a e7 52 25 3d 33 8c 62 61 6e 6b 25 3d 30 0d |_:.R%=3.bank%=0.|
00011ee0 51 13 3e c9 20 22 48 65 61 64 69 6e 67 73 22 3a |Q.>. "Headings":|
00011ef0 e7 68 65 61 64 73 25 3e 30 8c 5a 25 3d a4 75 70 |.heads%>0.Z%=.up|
00011f00 64 61 74 65 68 65 61 64 73 4d 5f 28 30 29 3a e7 |dateheadsM_(0):.|
00011f10 52 25 3d 33 8c 68 65 61 64 73 25 3d 30 0d 51 18 |R%=3.heads%=0.Q.|
00011f20 3f c9 20 22 50 48 65 61 64 69 6e 67 73 22 3a e7 |?. "PHeadings":.|
00011f30 68 65 61 64 70 25 3e 30 8c 5a 25 3d a4 75 70 64 |headp%>0.Z%=.upd|
00011f40 61 74 65 68 65 61 64 70 4d 5f 28 30 29 3a e7 52 |ateheadpM_(0):.R|
00011f50 25 3d 33 8c 68 65 61 64 70 25 3d 30 0d 51 1d 74 |%=3.headp%=0.Q.t|
00011f60 c9 20 22 53 61 6c 65 64 22 3a e7 73 61 6c 65 64 |. "Saled":.saled|
00011f70 25 3e 30 8c 5a 25 3d a4 75 70 64 61 74 65 73 61 |%>0.Z%=.updatesa|
00011f80 6c 65 64 5f 3a e7 52 25 3d 33 8c 73 61 6c 65 64 |led_:.R%=3.saled|
00011f90 25 3d 30 3a f2 53 69 53 6f 72 74 5f 3a e7 73 61 |%=0:.SiSort_:.sa|
00011fa0 6c 65 64 31 25 3e 30 8c f2 73 77 5f 28 73 61 6c |led1%>0..sw_(sal|
00011fb0 65 64 31 25 29 3a f2 63 6c 6f 73 65 57 28 73 61 |ed1%):.closeW(sa|
00011fc0 6c 65 64 31 25 29 3a 73 61 6c 65 64 31 25 3d 30 |led1%):saled1%=0|
00011fd0 0d 51 22 74 c9 20 22 50 61 6c 65 64 22 3a e7 70 |.Q"t. "Paled":.p|
00011fe0 61 6c 65 64 25 3e 30 8c 5a 25 3d a4 75 70 64 61 |aled%>0.Z%=.upda|
00011ff0 74 65 70 61 6c 65 64 5f 3a e7 52 25 3d 33 8c 70 |tepaled_:.R%=3.p|
00012000 61 6c 65 64 25 3d 30 3a f2 50 69 53 6f 72 74 5f |aled%=0:.PiSort_|
00012010 3a e7 70 61 6c 65 64 31 25 3e 30 8c f2 73 77 5f |:.paled1%>0..sw_|
00012020 28 70 61 6c 65 64 31 25 29 3a f2 63 6c 6f 73 65 |(paled1%):.close|
00012030 57 28 70 61 6c 65 64 31 25 29 3a 70 61 6c 65 64 |W(paled1%):paled|
00012040 31 25 3d 30 0d 51 27 70 c9 20 22 42 61 6e 6b 4c |1%=0.Q'p. "BankL|
00012050 22 3a e7 62 61 6e 6b 6c 25 3e 30 8c 5a 25 3d a4 |":.bankl%>0.Z%=.|
00012060 75 70 64 61 74 65 62 61 6e 6b 6c 5f 3a e7 52 25 |updatebankl_:.R%|
00012070 3d 33 8c 62 61 6e 6b 6c 25 3d 30 3a f2 42 69 53 |=3.bankl%=0:.BiS|
00012080 6f 72 74 5f 3a e7 62 61 6e 6b 31 25 3e 30 8c f2 |ort_:.bank1%>0..|
00012090 73 77 5f 28 62 61 6e 6b 31 25 29 3a f2 63 6c 6f |sw_(bank1%):.clo|
000120a0 73 65 57 28 62 61 6e 6b 31 25 29 3a 62 61 6e 6b |seW(bank1%):bank|
000120b0 31 25 3d 30 0d 51 2c 38 c9 20 22 53 74 61 6e 64 |1%=0.Q,8. "Stand|
000120c0 57 22 3a e7 73 74 61 6e 64 25 3e 30 8c 5a 25 3d |W":.stand%>0.Z%=|
000120d0 a4 75 70 64 61 74 65 73 74 61 6e 64 5f 3a e7 52 |.updatestand_:.R|
000120e0 25 3d 33 8c 73 74 61 6e 64 25 3d 30 0d 51 31 3c |%=3.stand%=0.Q1<|
000120f0 c9 20 22 53 61 6c 65 64 46 57 22 3a e7 73 61 6c |. "SaledFW":.sal|
00012100 65 64 31 25 3e 30 8c 5a 25 3d a4 75 70 64 61 74 |ed1%>0.Z%=.updat|
00012110 65 73 61 6c 65 64 31 5f 3a e7 52 25 3d 33 8c 73 |esaled1_:.R%=3.s|
00012120 61 6c 65 64 31 25 3d 30 0d 51 36 3c c9 20 22 50 |aled1%=0.Q6<. "P|
00012130 61 6c 65 64 46 57 22 3a e7 70 61 6c 65 64 31 25 |aledFW":.paled1%|
00012140 3e 30 8c 5a 25 3d a4 75 70 64 61 74 65 70 61 6c |>0.Z%=.updatepal|
00012150 65 64 31 5f 3a e7 52 25 3d 33 8c 70 61 6c 65 64 |ed1_:.R%=3.paled|
00012160 31 25 3d 30 0d 51 3b 3c c9 20 22 53 61 6c 65 64 |1%=0.Q;<. "Saled|
00012170 52 57 22 3a e7 73 61 6c 65 64 32 25 3e 30 8c 5a |RW":.saled2%>0.Z|
00012180 25 3d a4 75 70 64 61 74 65 73 61 6c 65 64 32 5f |%=.updatesaled2_|
00012190 3a e7 52 25 3d 33 8c 73 61 6c 65 64 32 25 3d 30 |:.R%=3.saled2%=0|
000121a0 0d 51 40 3c c9 20 22 50 61 6c 65 64 52 57 22 3a |.Q@<. "PaledRW":|
000121b0 e7 70 61 6c 65 64 32 25 3e 30 8c 5a 25 3d a4 75 |.paled2%>0.Z%=.u|
000121c0 70 64 61 74 65 70 61 6c 65 64 32 5f 3a e7 52 25 |pdatepaled2_:.R%|
000121d0 3d 33 8c 70 61 6c 65 64 32 25 3d 30 0d 51 45 38 |=3.paled2%=0.QE8|
000121e0 c9 20 22 42 61 6e 6b 46 57 22 3a e7 62 61 6e 6b |. "BankFW":.bank|
000121f0 31 25 3e 30 8c 5a 25 3d a4 75 70 64 61 74 65 62 |1%>0.Z%=.updateb|
00012200 61 6e 6b 31 5f 3a e7 52 25 3d 33 8c 62 61 6e 6b |ank1_:.R%=3.bank|
00012210 31 25 3d 30 0d 51 4a 38 c9 20 22 42 61 6e 6b 52 |1%=0.QJ8. "BankR|
00012220 57 22 3a e7 62 61 6e 6b 32 25 3e 30 8c 5a 25 3d |W":.bank2%>0.Z%=|
00012230 a4 75 70 64 61 74 65 62 61 6e 6b 32 5f 3a e7 52 |.updatebank2_:.R|
00012240 25 3d 33 8c 62 61 6e 6b 32 25 3d 30 0d 51 4f 63 |%=3.bank2%=0.QOc|
00012250 c9 20 22 56 61 74 50 22 3a e7 76 61 74 70 25 3e |. "VatP":.vatp%>|
00012260 30 8c 5a 25 3d a4 75 70 64 61 74 65 76 61 74 70 |0.Z%=.updatevatp|
00012270 5f 3a e7 52 25 3d 33 8c 76 61 74 70 25 3d 30 3a |_:.R%=3.vatp%=0:|
00012280 e7 76 61 74 70 63 25 3e 30 8c f2 73 77 5f 28 76 |.vatpc%>0..sw_(v|
00012290 61 74 70 63 25 29 3a f2 63 6c 6f 73 65 57 28 76 |atpc%):.closeW(v|
000122a0 61 74 70 63 25 29 3a 76 61 74 70 63 25 3d 30 0d |atpc%):vatpc%=0.|
000122b0 51 5e 3a c9 20 22 56 61 74 50 43 6f 6e 74 22 3a |Q^:. "VatPCont":|
000122c0 e7 76 61 74 70 63 25 3e 30 8c 5a 25 3d a4 75 70 |.vatpc%>0.Z%=.up|
000122d0 64 61 74 65 76 61 74 70 63 5f 3a e7 52 25 3d 33 |datevatpc_:.R%=3|
000122e0 8c 76 61 74 70 63 25 3d 30 0d 51 68 39 c9 20 22 |.vatpc%=0.Qh9. "|
000122f0 42 61 6e 6b 50 22 3a e7 62 61 6e 6b 70 25 3e 30 |BankP":.bankp%>0|
00012300 8c 5a 25 3d a4 75 70 64 61 74 65 62 61 6e 6b 74 |.Z%=.updatebankt|
00012310 6f 74 5f 3a e7 52 25 3d 33 8c 62 61 6e 6b 70 25 |ot_:.R%=3.bankp%|
00012320 3d 30 0d 51 6d 37 c9 20 22 53 63 6f 6e 74 72 6f |=0.Qm7. "Scontro|
00012330 6c 22 3a e7 73 74 61 74 25 3e 30 8c 5a 25 3d a4 |l":.stat%>0.Z%=.|
00012340 75 70 64 61 74 65 73 74 61 74 5f 3a e7 52 25 3d |updatestat_:.R%=|
00012350 33 8c 73 74 61 74 25 3d 30 0d 51 77 3e c9 20 22 |3.stat%=0.Qw>. "|
00012360 43 63 72 65 64 69 74 22 3a e7 63 63 72 65 64 25 |Ccredit":.ccred%|
00012370 3e 30 8c f2 75 70 64 61 74 65 63 63 72 65 64 5f |>0..updateccred_|
00012380 28 43 53 5f 25 2c 31 29 3a e7 52 25 3d 33 8c 63 |(CS_%,1):.R%=3.c|
00012390 63 72 65 64 25 3d 30 0d 51 81 05 cb 0d 51 86 29 |cred%=0.Q....Q.)|
000123a0 e7 52 25 3d 33 3a e7 24 77 6e 25 3c 3e 22 43 68 |.R%=3:.$wn%<>"Ch|
000123b0 75 73 65 72 22 3a f2 73 77 5f 28 6f 77 5f 25 29 |user":.sw_(ow_%)|
000123c0 3a f2 6f 77 5f 0d 51 8b 06 3d b9 0d 51 90 19 dd |:.ow_.Q..=..Q...|
000123d0 a4 70 4b 5f 3a 3d a4 6c 64 65 6c 65 74 65 5f 28 |.pK_:=.ldelete_(|
000123e0 21 6b 25 29 0d 51 95 2f dd f2 70 4b 31 5f 28 41 |!k%).Q./..pK1_(A|
000123f0 5f 25 29 3a e7 21 6b 25 3d 31 33 3a 73 61 5f 25 |_%):.!k%=13:sa_%|
00012400 3d 31 3a 21 6b 25 3d 30 3a f2 69 6e 69 74 65 64 |=1:!k%=0:.inited|
00012410 69 74 5f 0d 51 9a 10 ea 20 5a 25 2c 5a 5f 25 2c |it_.Q... Z%,Z_%,|
00012420 4b 5f 25 0d 51 9f 13 e7 49 4f 77 69 6e 64 25 3d |K_%.Q...IOwind%=|
00012430 57 25 21 31 32 8c 0d 51 a4 27 e7 41 5f 25 3d 26 |W%!12..Q.'.A_%=&|
00012440 31 38 45 20 84 41 5f 25 3d 26 31 39 44 20 84 41 |18E .A_%=&19D .A|
00012450 5f 25 3d 31 33 80 52 25 3c 3e 31 31 8c 0d 51 a9 |_%=13.R%<>11..Q.|
00012460 10 e7 21 69 25 3c 32 20 8c 5a 25 3d 32 0d 51 ae |..!i%<2 .Z%=2.Q.|
00012470 1f e7 21 69 25 3d 32 20 8c 5a 25 3d 33 3a e7 41 |..!i%=2 .Z%=3:.A|
00012480 5f 25 3d 31 33 8c 5a 25 3d 21 69 25 0d 51 b3 20 |_%=13.Z%=!i%.Q. |
00012490 e7 21 69 25 3d 33 20 8c 5a 25 3d 31 34 3a e7 41 |.!i%=3 .Z%=14:.A|
000124a0 5f 25 3d 31 33 8c 5a 25 3d 21 69 25 0d 51 b8 2a |_%=13.Z%=!i%.Q.*|
000124b0 e7 21 69 25 3d 31 34 84 21 69 25 3d 31 35 8c 5a |.!i%=14.!i%=15.Z|
000124c0 25 3d 21 69 25 2b 31 3a e7 41 5f 25 3d 31 33 8c |%=!i%+1:.A_%=13.|
000124d0 5a 25 3d 21 69 25 0d 51 bd 21 e7 21 69 25 3d 31 |Z%=!i%.Q.!.!i%=1|
000124e0 36 20 8c 5a 25 3d 32 30 3a e7 41 5f 25 3d 31 33 |6 .Z%=20:.A_%=13|
000124f0 8c 5a 25 3d 21 69 25 0d 51 c2 21 e7 21 69 25 3d |.Z%=!i%.Q.!.!i%=|
00012500 32 30 20 8c 5a 25 3d 32 32 3a e7 41 5f 25 3d 31 |20 .Z%=22:.A_%=1|
00012510 33 8c 5a 25 3d 21 69 25 0d 51 c7 2b e7 21 69 25 |3.Z%=!i%.Q.+.!i%|
00012520 3e 32 31 80 21 69 25 3c 33 30 20 8c 5a 25 3d 21 |>21.!i%<30 .Z%=!|
00012530 69 25 2b 31 3a e7 41 5f 25 3d 31 33 8c 5a 25 3d |i%+1:.A_%=13.Z%=|
00012540 21 69 25 0d 51 cc 21 e7 21 69 25 3d 33 30 20 8c |!i%.Q.!.!i%=30 .|
00012550 5a 25 3d 33 32 3a e7 41 5f 25 3d 31 33 8c 5a 25 |Z%=32:.A_%=13.Z%|
00012560 3d 21 69 25 0d 51 d1 2b e7 21 69 25 3e 33 31 80 |=!i%.Q.+.!i%>31.|
00012570 21 69 25 3c 34 30 20 8c 5a 25 3d 21 69 25 2b 31 |!i%<40 .Z%=!i%+1|
00012580 3a e7 41 5f 25 3d 31 33 8c 5a 25 3d 21 69 25 0d |:.A_%=13.Z%=!i%.|
00012590 51 db 13 e7 49 4f 77 69 6e 64 25 3d 57 25 21 31 |Q...IOwind%=W%!1|
000125a0 32 8c 0d 51 e0 21 e7 21 69 25 3d 34 30 20 8c 5a |2..Q.!.!i%=40 .Z|
000125b0 25 3d 34 32 3a e7 41 5f 25 3d 31 33 8c 5a 25 3d |%=42:.A_%=13.Z%=|
000125c0 21 69 25 0d 51 e5 2b e7 21 69 25 3e 34 31 80 21 |!i%.Q.+.!i%>41.!|
000125d0 69 25 3c 35 31 20 8c 5a 25 3d 21 69 25 2b 31 3a |i%<51 .Z%=!i%+1:|
000125e0 e7 41 5f 25 3d 31 33 8c 5a 25 3d 21 69 25 0d 51 |.A_%=13.Z%=!i%.Q|
000125f0 ea 20 e7 21 69 25 3d 35 31 20 8c 5a 25 3d 32 3a |. .!i%=51 .Z%=2:|
00012600 e7 41 5f 25 3d 31 33 8c 5a 25 3d 21 69 25 0d 51 |.A_%=13.Z%=!i%.Q|
00012610 ef 05 cd 0d 52 1c 05 cd 0d 52 21 19 e7 41 5f 25 |....R....R!..A_%|
00012620 3d 26 31 38 46 20 84 41 5f 25 3d 26 31 39 43 20 |=&18F .A_%=&19C |
00012630 8c 0d 52 2b 54 e7 49 4f 77 69 6e 64 25 3d 57 25 |..R+T.IOwind%=W%|
00012640 21 31 32 3a e7 21 69 25 3d 32 20 8c 5a 25 3d 35 |!12:.!i%=2 .Z%=5|
00012650 31 3a e7 41 5f 25 3d 31 33 8c 5a 25 3d 21 69 25 |1:.A_%=13.Z%=!i%|
00012660 3a f4 20 2a 2a 41 4c 54 45 52 20 4c 41 53 54 20 |:. **ALTER LAST |
00012670 57 52 49 54 45 20 49 4e 56 20 49 43 4f 4e 20 48 |WRITE INV ICON H|
00012680 45 52 45 2a 2a 0d 52 35 1f e7 21 69 25 3d 33 20 |ERE**.R5..!i%=3 |
00012690 8c 5a 25 3d 32 3a e7 41 5f 25 3d 31 33 8c 5a 25 |.Z%=2:.A_%=13.Z%|
000126a0 3d 21 69 25 0d 52 3a 20 e7 21 69 25 3d 31 34 20 |=!i%.R: .!i%=14 |
000126b0 8c 5a 25 3d 33 3a e7 41 5f 25 3d 31 33 8c 5a 25 |.Z%=3:.A_%=13.Z%|
000126c0 3d 21 69 25 0d 52 3f 21 e7 21 69 25 3d 31 35 20 |=!i%.R?!.!i%=15 |
000126d0 8c 5a 25 3d 31 34 3a e7 41 5f 25 3d 31 33 8c 5a |.Z%=14:.A_%=13.Z|
000126e0 25 3d 21 69 25 0d 52 44 21 e7 21 69 25 3d 31 36 |%=!i%.RD!.!i%=16|
000126f0 20 8c 5a 25 3d 31 35 3a e7 41 5f 25 3d 31 33 8c | .Z%=15:.A_%=13.|
00012700 5a 25 3d 21 69 25 0d 52 49 21 e7 21 69 25 3d 32 |Z%=!i%.RI!.!i%=2|
00012710 30 20 8c 5a 25 3d 31 36 3a e7 41 5f 25 3d 31 33 |0 .Z%=16:.A_%=13|
00012720 8c 5a 25 3d 21 69 25 0d 52 4e 2b e7 21 69 25 3e |.Z%=!i%.RN+.!i%>|
00012730 32 32 80 21 69 25 3c 33 31 20 8c 5a 25 3d 21 69 |22.!i%<31 .Z%=!i|
00012740 25 2d 31 3a e7 41 5f 25 3d 31 33 8c 5a 25 3d 21 |%-1:.A_%=13.Z%=!|
00012750 69 25 0d 52 53 21 e7 21 69 25 3d 32 32 20 8c 5a |i%.RS!.!i%=22 .Z|
00012760 25 3d 32 30 3a e7 41 5f 25 3d 31 33 8c 5a 25 3d |%=20:.A_%=13.Z%=|
00012770 21 69 25 0d 52 58 2b e7 21 69 25 3e 33 32 80 21 |!i%.RX+.!i%>32.!|
00012780 69 25 3c 34 31 20 8c 5a 25 3d 21 69 25 2d 31 3a |i%<41 .Z%=!i%-1:|
00012790 e7 41 5f 25 3d 31 33 8c 5a 25 3d 21 69 25 0d 52 |.A_%=13.Z%=!i%.R|
000127a0 5d 21 e7 21 69 25 3d 33 32 20 8c 5a 25 3d 33 30 |]!.!i%=32 .Z%=30|
000127b0 3a e7 41 5f 25 3d 31 33 8c 5a 25 3d 21 69 25 0d |:.A_%=13.Z%=!i%.|
000127c0 52 62 13 e7 49 4f 77 69 6e 64 25 3d 57 25 21 31 |Rb..IOwind%=W%!1|
000127d0 32 8c 0d 52 67 2b e7 21 69 25 3e 34 32 80 21 69 |2..Rg+.!i%>42.!i|
000127e0 25 3c 35 32 20 8c 5a 25 3d 21 69 25 2d 31 3a e7 |%<52 .Z%=!i%-1:.|
000127f0 41 5f 25 3d 31 33 8c 5a 25 3d 21 69 25 0d 52 6c |A_%=13.Z%=!i%.Rl|
00012800 21 e7 21 69 25 3d 34 32 20 8c 5a 25 3d 34 30 3a |!.!i%=42 .Z%=40:|
00012810 e7 41 5f 25 3d 31 33 8c 5a 25 3d 21 69 25 0d 52 |.A_%=13.Z%=!i%.R|
00012820 71 3c e7 5a 25 3e 30 3a 77 66 32 5f 25 3d 5a 25 |q<.Z%>0:wf2_%=Z%|
00012830 3a e7 49 4f 72 64 65 72 46 31 5f 25 28 5a 25 29 |:.IOrderF1_%(Z%)|
00012840 3e 30 8c c8 99 26 34 30 30 38 41 2c 49 4f 72 64 |>0...&4008A,IOrd|
00012850 65 72 46 31 5f 25 28 5a 25 29 0d 52 76 05 cd 0d |erF1_%(Z%).Rv...|
00012860 52 a3 05 cd 0d 52 ad 35 e7 5a 25 3e 30 8c c8 99 |R....R.5.Z%>0...|
00012870 26 34 30 30 44 34 2c 2c 2d 31 3a f2 73 65 74 43 |&400D4,,-1:.setC|
00012880 5f 28 5a 25 29 3a f2 73 65 65 77 69 6e 64 5f 28 |_(Z%):.seewind_(|
00012890 57 25 21 31 32 2c 5a 25 29 0d 52 b2 05 cd 0d 52 |W%!12,Z%).R....R|
000128a0 b7 11 e7 69 6e 76 77 25 3d 57 25 21 31 32 8c 0d |...invw%=W%!12..|
000128b0 52 bc 0a 5a 25 3d 21 69 25 0d 52 c1 0f e7 41 5f |R..Z%=!i%.R...A_|
000128c0 25 3d 26 31 38 46 20 8c 0d 52 c6 19 e7 5a 25 3e |%=&18F ..R...Z%>|
000128d0 3d 31 80 5a 25 3c 37 8c f2 49 54 75 70 5f 28 31 |=1.Z%<7..ITup_(1|
000128e0 29 0d 52 cb 27 e7 5a 25 2d 69 74 69 66 5f 25 3e |).R.'.Z%-itif_%>|
000128f0 3d 31 80 5a 25 3c 3d 69 74 69 6e 5f 25 8c 5a 25 |=1.Z%<=itin_%.Z%|
00012900 2d 3d 69 74 69 66 5f 25 0d 52 d0 20 e7 5a 25 3e |-=itif_%.R. .Z%>|
00012910 69 74 69 6e 5f 25 80 5a 25 3c 69 74 69 6e 5f 25 |itin_%.Z%<itin_%|
00012920 2b 36 8c 5a 25 2d 3d 31 0d 52 d5 0e f2 73 65 74 |+6.Z%-=1.R...set|
00012930 43 5f 28 5a 25 29 0d 52 da 05 cd 0d 52 df 15 e7 |C_(Z%).R....R...|
00012940 41 5f 25 3d 26 31 39 44 20 8c 41 5f 25 3d 31 33 |A_%=&19D .A_%=13|
00012950 0d 52 e4 0f e7 41 5f 25 3d 26 31 39 43 20 8c 0d |.R...A_%=&19C ..|
00012960 52 e9 13 e7 5a 25 3d 31 8c f2 49 54 75 70 5f 28 |R...Z%=1..ITup_(|
00012970 31 29 0d 52 ee 1b e7 5a 25 3e 3d 31 80 5a 25 3c |1).R...Z%>=1.Z%<|
00012980 3d 69 74 69 6e 5f 25 8c 5a 25 2d 3d 31 0d 52 f3 |=itin_%.Z%-=1.R.|
00012990 13 e7 5a 25 3c 31 8c 5a 25 3d 69 74 69 66 5f 25 |..Z%<1.Z%=itif_%|
000129a0 0d 52 f8 0e f2 73 65 74 43 5f 28 5a 25 29 0d 52 |.R...setC_(Z%).R|
000129b0 fd 05 cd 0d 53 02 16 e7 41 5f 25 3d 26 31 38 45 |....S...A_%=&18E|
000129c0 20 84 41 5f 25 3d 31 33 8c 0d 53 07 37 e7 41 5f | .A_%=13..S.7.A_|
000129d0 25 3d 26 31 38 45 3a e7 5a 25 3e 69 74 69 6e 5f |%=&18E:.Z%>itin_|
000129e0 25 2d 69 74 69 66 5f 25 80 5a 25 3c 3d 69 74 69 |%-itif_%.Z%<=iti|
000129f0 6e 5f 25 8c f2 49 54 64 6f 77 6e 5f 28 2d 31 29 |n_%..ITdown_(-1)|
00012a00 0d 53 0c 2b e7 41 5f 25 3d 26 31 38 45 3a e7 5a |.S.+.A_%=&18E:.Z|
00012a10 25 3c 3d 69 74 69 6e 5f 25 2d 69 74 69 66 5f 25 |%<=itin_%-itif_%|
00012a20 8c 5a 25 2b 3d 69 74 69 66 5f 25 0d 53 11 23 e7 |.Z%+=itif_%.S.#.|
00012a30 41 5f 25 3d 31 33 3a e7 5a 25 3d 69 74 69 6e 5f |A_%=13:.Z%=itin_|
00012a40 25 8c f2 49 54 64 6f 77 6e 5f 28 2d 31 29 0d 53 |%..ITdown_(-1).S|
00012a50 16 3b e7 41 5f 25 3d 31 33 3a e7 5a 25 3c 3d 69 |.;.A_%=13:.Z%<=i|
00012a60 74 69 6e 5f 25 8c 5a 25 2b 3d 31 3a e7 5a 25 3e |tin_%.Z%+=1:.Z%>|
00012a70 69 74 69 6e 5f 25 8c 5a 25 3d 69 74 69 6e 5f 25 |itin_%.Z%=itin_%|
00012a80 2d 69 74 69 66 5f 25 2b 31 0d 53 1b 14 e7 5a 25 |-itif_%+1.S...Z%|
00012a90 3e 69 74 69 6e 5f 25 8c 5a 25 2b 3d 31 0d 53 20 |>itin_%.Z%+=1.S |
00012aa0 1e e7 5a 25 3e 69 74 69 6e 5f 25 2b 35 80 5a 25 |..Z%>itin_%+5.Z%|
00012ab0 3c 31 30 35 3a 5a 25 3d 31 30 34 0d 53 25 10 e7 |<105:Z%=104.S%..|
00012ac0 5a 25 3e 31 30 38 8c 5a 25 3d 31 0d 53 2a 0e f2 |Z%>108.Z%=1.S*..|
00012ad0 73 65 74 43 5f 28 5a 25 29 0d 53 2f 05 cd 0d 53 |setC_(Z%).S/...S|
00012ae0 34 17 f2 73 65 65 77 69 6e 64 5f 28 69 6e 76 77 |4..seewind_(invw|
00012af0 25 2c 5a 25 29 0d 53 39 05 cd 0d 53 3e 39 e7 73 |%,Z%).S9...S>9.s|
00012b00 61 6c 65 64 25 3d 57 25 21 31 32 84 70 61 6c 65 |aled%=W%!12.pale|
00012b10 64 25 3d 57 25 21 31 32 84 62 61 6e 6b 6c 25 3d |d%=W%!12.bankl%=|
00012b20 57 25 21 31 32 84 73 74 61 6e 64 25 3d 57 25 21 |W%!12.stand%=W%!|
00012b30 31 32 8c 0d 53 43 30 5a 25 3d 21 69 25 3a 5a 5f |12..SC0Z%=!i%:Z_|
00012b40 25 3d 73 69 74 69 66 5f 25 3a e7 62 61 6e 6b 6c |%=sitif_%:.bankl|
00012b50 25 3d 57 25 21 31 32 8c 5a 5f 25 3d 62 69 74 69 |%=W%!12.Z_%=biti|
00012b60 66 5f 25 0d 53 48 0f e7 41 5f 25 3d 26 31 38 46 |f_%.SH..A_%=&18F|
00012b70 20 8c 0d 53 4d 13 e7 5a 25 3e 3d 31 80 5a 25 3c | ..SM..Z%>=1.Z%<|
00012b80 3d 5a 5f 25 8c 0d 53 52 1c e7 73 61 6c 65 64 25 |=Z_%..SR..saled%|
00012b90 3d 57 25 21 31 32 8c f2 53 49 54 75 70 5f 28 31 |=W%!12..SITup_(1|
00012ba0 29 0d 53 57 1c e7 70 61 6c 65 64 25 3d 57 25 21 |).SW..paled%=W%!|
00012bb0 31 32 8c f2 50 49 54 75 70 5f 28 31 29 0d 53 5c |12..PITup_(1).S\|
00012bc0 1c e7 62 61 6e 6b 6c 25 3d 57 25 21 31 32 8c f2 |..bankl%=W%!12..|
00012bd0 42 49 54 75 70 5f 28 31 29 0d 53 61 1c e7 73 74 |BITup_(1).Sa..st|
00012be0 61 6e 64 25 3d 57 25 21 31 32 8c f2 54 49 54 75 |and%=W%!12..TITu|
00012bf0 70 5f 28 31 29 0d 53 66 05 cd 0d 53 6b 26 e7 5a |p_(1).Sf...Sk&.Z|
00012c00 25 2d 5a 5f 25 3e 3d 31 80 5a 25 3c 3d 73 69 74 |%-Z_%>=1.Z%<=sit|
00012c10 69 70 5f 25 2a 5a 5f 25 8c 5a 25 2d 3d 5a 5f 25 |ip_%*Z_%.Z%-=Z_%|
00012c20 0d 53 70 0e f2 73 65 74 43 5f 28 5a 25 29 0d 53 |.Sp..setC_(Z%).S|
00012c30 75 05 cd 0d 53 7a 15 e7 41 5f 25 3d 26 31 39 44 |u...Sz..A_%=&19D|
00012c40 20 8c 41 5f 25 3d 31 33 0d 53 7f 0f e7 41 5f 25 | .A_%=13.S...A_%|
00012c50 3d 26 31 39 43 20 8c 0d 53 84 0a e7 5a 25 3d 31 |=&19C ..S...Z%=1|
00012c60 8c 0d 53 89 1c e7 73 61 6c 65 64 25 3d 57 25 21 |..S...saled%=W%!|
00012c70 31 32 8c f2 53 49 54 75 70 5f 28 31 29 0d 53 8e |12..SITup_(1).S.|
00012c80 1c e7 70 61 6c 65 64 25 3d 57 25 21 31 32 8c f2 |..paled%=W%!12..|
00012c90 50 49 54 75 70 5f 28 31 29 0d 53 93 1c e7 62 61 |PITup_(1).S...ba|
00012ca0 6e 6b 6c 25 3d 57 25 21 31 32 8c f2 42 49 54 75 |nkl%=W%!12..BITu|
00012cb0 70 5f 28 31 29 0d 53 98 1c e7 73 74 61 6e 64 25 |p_(1).S...stand%|
00012cc0 3d 57 25 21 31 32 8c f2 54 49 54 75 70 5f 28 31 |=W%!12..TITup_(1|
00012cd0 29 0d 53 9d 05 cd 0d 53 a2 20 e7 5a 25 3e 3d 31 |).S....S. .Z%>=1|
00012ce0 80 5a 25 3c 3d 73 69 74 69 70 5f 25 2a 5a 5f 25 |.Z%<=sitip_%*Z_%|
00012cf0 8c 5a 25 2d 3d 31 0d 53 a7 10 e7 5a 25 3c 31 8c |.Z%-=1.S...Z%<1.|
00012d00 5a 25 3d 5a 5f 25 0d 53 ac 0e f2 73 65 74 43 5f |Z%=Z_%.S...setC_|
00012d10 28 5a 25 29 0d 53 b1 05 cd 0d 53 b6 16 e7 41 5f |(Z%).S....S...A_|
00012d20 25 3d 26 31 38 45 20 84 41 5f 25 3d 31 33 8c 0d |%=&18E .A_%=13..|
00012d30 53 bb 0f e7 41 5f 25 3d 26 31 38 45 20 8c 0d 53 |S...A_%=&18E ..S|
00012d40 c0 28 e7 5a 25 3e 73 69 74 69 70 5f 25 2a 5a 5f |.(.Z%>sitip_%*Z_|
00012d50 25 2d 5a 5f 25 80 5a 25 3c 3d 73 69 74 69 70 5f |%-Z_%.Z%<=sitip_|
00012d60 25 2a 5a 5f 25 8c 0d 53 c5 1f e7 73 61 6c 65 64 |%*Z_%..S...saled|
00012d70 25 3d 57 25 21 31 32 8c f2 53 49 54 64 6f 77 6e |%=W%!12..SITdown|
00012d80 5f 28 2d 31 29 0d 53 ca 1f e7 70 61 6c 65 64 25 |_(-1).S...paled%|
00012d90 3d 57 25 21 31 32 8c f2 50 49 54 64 6f 77 6e 5f |=W%!12..PITdown_|
00012da0 28 2d 31 29 0d 53 cf 1f e7 62 61 6e 6b 6c 25 3d |(-1).S...bankl%=|
00012db0 57 25 21 31 32 8c f2 42 49 54 64 6f 77 6e 5f 28 |W%!12..BITdown_(|
00012dc0 2d 31 29 0d 53 d4 1f e7 73 74 61 6e 64 25 3d 57 |-1).S...stand%=W|
00012dd0 25 21 31 32 8c f2 54 49 54 64 6f 77 6e 5f 28 2d |%!12..TITdown_(-|
00012de0 31 29 0d 53 d9 05 cd 0d 53 de 20 e7 5a 25 3c 3d |1).S....S. .Z%<=|
00012df0 73 69 74 69 70 5f 25 2a 5a 5f 25 2d 5a 5f 25 8c |sitip_%*Z_%-Z_%.|
00012e00 5a 25 2b 3d 5a 5f 25 0d 53 e3 05 cd 0d 53 e8 0c |Z%+=Z_%.S....S..|
00012e10 e7 41 5f 25 3d 31 33 8c 0d 53 ed 14 e7 5a 25 3d |.A_%=13..S...Z%=|
00012e20 73 69 74 69 70 5f 25 2a 5a 5f 25 8c 0d 53 f2 1f |sitip_%*Z_%..S..|
00012e30 e7 73 61 6c 65 64 25 3d 57 25 21 31 32 8c f2 53 |.saled%=W%!12..S|
00012e40 49 54 64 6f 77 6e 5f 28 2d 31 29 0d 53 f7 1f e7 |ITdown_(-1).S...|
00012e50 70 61 6c 65 64 25 3d 57 25 21 31 32 8c f2 50 49 |paled%=W%!12..PI|
00012e60 54 64 6f 77 6e 5f 28 2d 31 29 0d 53 fc 1f e7 62 |Tdown_(-1).S...b|
00012e70 61 6e 6b 6c 25 3d 57 25 21 31 32 8c f2 42 49 54 |ankl%=W%!12..BIT|
00012e80 64 6f 77 6e 5f 28 2d 31 29 0d 54 01 1f e7 73 74 |down_(-1).T...st|
00012e90 61 6e 64 25 3d 57 25 21 31 32 8c f2 54 49 54 64 |and%=W%!12..TITd|
00012ea0 6f 77 6e 5f 28 2d 31 29 0d 54 06 05 cd 0d 54 0b |own_(-1).T....T.|
00012eb0 3f e7 5a 25 3c 3d 73 69 74 69 70 5f 25 2a 5a 5f |?.Z%<=sitip_%*Z_|
00012ec0 25 8c 5a 25 2b 3d 31 3a e7 5a 25 3e 73 69 74 69 |%.Z%+=1:.Z%>siti|
00012ed0 70 5f 25 2a 5a 5f 25 8c 5a 25 3d 73 69 74 69 70 |p_%*Z_%.Z%=sitip|
00012ee0 5f 25 2a 5a 5f 25 2d 5a 5f 25 2b 31 0d 54 10 05 |_%*Z_%-Z_%+1.T..|
00012ef0 cd 0d 54 15 18 e7 5a 25 3e 73 69 74 69 70 5f 25 |..T...Z%>sitip_%|
00012f00 2a 5a 5f 25 8c 5a 25 3d 31 0d 54 1a 0e f2 73 65 |*Z_%.Z%=1.T...se|
00012f10 74 43 5f 28 5a 25 29 0d 54 1f 05 cd 0d 54 24 05 |tC_(Z%).T....T$.|
00012f20 cd 0d 54 29 14 e7 76 61 74 70 25 21 31 32 3d 57 |..T)..vatp%!12=W|
00012f30 25 21 31 32 8c 0d 54 2e 11 5a 25 3d 21 69 25 3a |%!12..T..Z%=!i%:|
00012f40 4b 5f 25 3d 5a 25 0d 54 33 0f e7 41 5f 25 3d 26 |K_%=Z%.T3..A_%=&|
00012f50 31 38 46 20 8c 0d 54 38 25 e7 5a 25 3e 34 80 5a |18F ..T8%.Z%>4.Z|
00012f60 25 3c 34 35 8c f2 73 65 74 43 5f 28 5a 25 2d 34 |%<45..setC_(Z%-4|
00012f70 29 3a 4b 5f 25 3d 5a 25 2d 34 0d 54 3d 26 e7 5a |):K_%=Z%-4.T=&.Z|
00012f80 25 3e 30 80 5a 25 3c 35 8c f2 73 65 74 43 5f 28 |%>0.Z%<5..setC_(|
00012f90 5a 25 2b 34 30 29 3a 4b 5f 25 3d 5a 25 2b 34 30 |Z%+40):K_%=Z%+40|
00012fa0 0d 54 42 05 cd 0d 54 47 0f e7 41 5f 25 3d 26 31 |.TB...TG..A_%=&1|
00012fb0 38 45 20 8c 0d 54 4c 25 e7 5a 25 3e 30 80 5a 25 |8E ..TL%.Z%>0.Z%|
00012fc0 3c 34 31 8c f2 73 65 74 43 5f 28 5a 25 2b 34 29 |<41..setC_(Z%+4)|
00012fd0 3a 4b 5f 25 3d 5a 25 2b 34 0d 54 51 28 e7 5a 25 |:K_%=Z%+4.TQ(.Z%|
00012fe0 3e 34 30 80 5a 25 3c 34 35 8c f2 73 65 74 43 5f |>40.Z%<45..setC_|
00012ff0 28 5a 25 2d 34 30 29 3a 4b 5f 25 3d 5a 25 2d 34 |(Z%-40):K_%=Z%-4|
00013000 30 0d 54 56 05 cd 0d 54 5b 0f e7 41 5f 25 3d 26 |0.TV...T[..A_%=&|
00013010 31 39 43 20 8c 0d 54 60 25 e7 5a 25 3e 31 80 5a |19C ..T`%.Z%>1.Z|
00013020 25 3c 34 35 8c f2 73 65 74 43 5f 28 5a 25 2d 31 |%<45..setC_(Z%-1|
00013030 29 3a 4b 5f 25 3d 5a 25 2d 31 0d 54 65 1b e7 5a |):K_%=Z%-1.Te..Z|
00013040 25 3c 31 8c f2 73 65 74 43 5f 28 34 34 29 3a 4b |%<1..setC_(44):K|
00013050 5f 25 3d 34 34 0d 54 6a 05 cd 0d 54 6f 17 e7 41 |_%=44.Tj...To..A|
00013060 5f 25 3d 26 31 39 44 20 84 41 5f 25 3d 31 33 20 |_%=&19D .A_%=13 |
00013070 8c 0d 54 74 25 e7 5a 25 3e 30 80 5a 25 3c 34 34 |..Tt%.Z%>0.Z%<44|
00013080 8c f2 73 65 74 43 5f 28 5a 25 2b 31 29 3a 4b 5f |..setC_(Z%+1):K_|
00013090 25 3d 5a 25 2b 31 0d 54 79 1a e7 5a 25 3e 34 34 |%=Z%+1.Ty..Z%>44|
000130a0 8c f2 73 65 74 43 5f 28 31 29 3a 4b 5f 25 3d 31 |..setC_(1):K_%=1|
000130b0 0d 54 7e 05 cd 0d 54 83 1b f2 73 65 65 77 69 6e |.T~...T...seewin|
000130c0 64 5f 28 76 61 74 70 25 21 31 32 2c 4b 5f 25 29 |d_(vatp%!12,K_%)|
000130d0 0d 54 88 05 cd 0d 54 f1 14 e7 62 61 6e 6b 25 21 |.T....T...bank%!|
000130e0 31 32 3d 57 25 21 31 32 8c 0d 54 f6 11 5a 25 3d |12=W%!12..T..Z%=|
000130f0 21 69 25 3a 4b 5f 25 3d 5a 25 0d 54 fb 0f e7 41 |!i%:K_%=Z%.T...A|
00013100 5f 25 3d 26 31 38 46 20 8c 0d 55 00 25 e7 5a 25 |_%=&18F ..U.%.Z%|
00013110 3e 32 80 5a 25 3c 32 35 8c f2 73 65 74 43 5f 28 |>2.Z%<25..setC_(|
00013120 5a 25 2d 32 29 3a 4b 5f 25 3d 5a 25 2d 32 0d 55 |Z%-2):K_%=Z%-2.U|
00013130 05 26 e7 5a 25 3e 30 80 5a 25 3c 33 8c f2 73 65 |.&.Z%>0.Z%<3..se|
00013140 74 43 5f 28 5a 25 2b 32 32 29 3a 4b 5f 25 3d 5a |tC_(Z%+22):K_%=Z|
00013150 25 2b 32 32 0d 55 0a 05 cd 0d 55 0f 0f e7 41 5f |%+22.U....U...A_|
00013160 25 3d 26 31 38 45 20 8c 0d 55 14 25 e7 5a 25 3e |%=&18E ..U.%.Z%>|
00013170 30 80 5a 25 3c 32 33 8c f2 73 65 74 43 5f 28 5a |0.Z%<23..setC_(Z|
00013180 25 2b 32 29 3a 4b 5f 25 3d 5a 25 2b 32 0d 55 19 |%+2):K_%=Z%+2.U.|
00013190 28 e7 5a 25 3e 32 32 80 5a 25 3c 32 35 8c f2 73 |(.Z%>22.Z%<25..s|
000131a0 65 74 43 5f 28 5a 25 2d 32 32 29 3a 4b 5f 25 3d |etC_(Z%-22):K_%=|
000131b0 5a 25 2d 32 32 0d 55 1e 05 cd 0d 55 23 0f e7 41 |Z%-22.U....U#..A|
000131c0 5f 25 3d 26 31 39 43 20 8c 0d 55 28 31 e7 5a 25 |_%=&19C ..U(1.Z%|
000131d0 3e 30 80 5a 25 3c 32 35 8c 5a 25 2d 3d 31 3a 4b |>0.Z%<25.Z%-=1:K|
000131e0 5f 25 3d 5a 25 2d 31 3a e7 5a 25 3d 30 8c 5a 25 |_%=Z%-1:.Z%=0.Z%|
000131f0 3d 32 34 3a 4b 5f 25 3d 32 34 0d 55 2d 0e f2 73 |=24:K_%=24.U-..s|
00013200 65 74 43 5f 28 5a 25 29 0d 55 32 05 cd 0d 55 37 |etC_(Z%).U2...U7|
00013210 17 e7 41 5f 25 3d 26 31 39 44 20 84 41 5f 25 3d |..A_%=&19D .A_%=|
00013220 31 33 20 8c 0d 55 3c 30 e7 5a 25 3e 30 80 5a 25 |13 ..U<0.Z%>0.Z%|
00013230 3c 32 35 8c 5a 25 2b 3d 31 3a 4b 5f 25 3d 5a 25 |<25.Z%+=1:K_%=Z%|
00013240 2b 31 3a e7 5a 25 3d 32 35 8c 5a 25 3d 31 3a 4b |+1:.Z%=25.Z%=1:K|
00013250 5f 25 3d 31 0d 55 41 0e f2 73 65 74 43 5f 28 5a |_%=1.UA..setC_(Z|
00013260 25 29 0d 55 46 05 cd 0d 55 4b 1b f2 73 65 65 77 |%).UF...UK..seew|
00013270 69 6e 64 5f 28 62 61 6e 6b 25 21 31 32 2c 4b 5f |ind_(bank%!12,K_|
00013280 25 29 0d 55 50 05 cd 0d 55 55 25 e7 68 65 61 64 |%).UP...UU%.head|
00013290 73 25 21 31 32 3d 57 25 21 31 32 84 68 65 61 64 |s%!12=W%!12.head|
000132a0 70 25 21 31 32 3d 57 25 21 31 32 8c 0d 55 5a 0a |p%!12=W%!12..UZ.|
000132b0 5a 25 3d 21 69 25 0d 55 5f 0f e7 41 5f 25 3d 26 |Z%=!i%.U_..A_%=&|
000132c0 31 38 46 20 8c 0d 55 64 1c e7 5a 25 3e 37 80 5a |18F ..Ud..Z%>7.Z|
000132d0 25 3c 35 33 8c f2 73 65 74 43 5f 28 5a 25 2d 37 |%<53..setC_(Z%-7|
000132e0 29 0d 55 69 19 e7 5a 25 3e 30 80 5a 25 3c 38 8c |).Ui..Z%>0.Z%<8.|
000132f0 f2 73 65 74 43 5f 28 37 30 29 0d 55 6e 15 e7 5a |.setC_(70).Un..Z|
00013300 25 3d 37 30 8c f2 73 65 74 43 5f 28 36 39 29 0d |%=70..setC_(69).|
00013310 55 73 15 e7 5a 25 3d 36 39 8c f2 73 65 74 43 5f |Us..Z%=69..setC_|
00013320 28 35 32 29 0d 55 78 05 cd 0d 55 7d 0f e7 41 5f |(52).Ux...U}..A_|
00013330 25 3d 26 31 38 45 20 8c 0d 55 82 1c e7 5a 25 3e |%=&18E ..U...Z%>|
00013340 30 80 5a 25 3c 35 30 8c f2 73 65 74 43 5f 28 5a |0.Z%<50..setC_(Z|
00013350 25 2b 37 29 0d 55 87 1b e7 5a 25 3e 34 39 80 5a |%+7).U...Z%>49.Z|
00013360 25 3c 35 33 8c f2 73 65 74 43 5f 28 36 39 29 0d |%<53..setC_(69).|
00013370 55 8c 15 e7 5a 25 3d 36 39 8c f2 73 65 74 43 5f |U...Z%=69..setC_|
00013380 28 37 30 29 0d 55 91 14 e7 5a 25 3d 37 30 8c f2 |(70).U...Z%=70..|
00013390 73 65 74 43 5f 28 33 29 0d 55 96 05 cd 0d 55 9b |setC_(3).U....U.|
000133a0 0f e7 41 5f 25 3d 26 31 39 43 20 8c 0d 55 a0 23 |..A_%=&19C ..U.#|
000133b0 e7 5a 25 3e 30 80 5a 25 3c 35 33 8c 5a 25 2d 3d |.Z%>0.Z%<53.Z%-=|
000133c0 31 3a e7 5a 25 83 37 3d 30 8c 5a 25 2d 3d 34 0d |1:.Z%.7=0.Z%-=4.|
000133d0 55 a5 10 e7 5a 25 3d 36 39 8c 5a 25 3d 35 32 0d |U...Z%=69.Z%=52.|
000133e0 55 aa 10 e7 5a 25 3d 37 30 8c 5a 25 3d 36 39 0d |U...Z%=70.Z%=69.|
000133f0 55 af 0f e7 5a 25 3c 31 8c 5a 25 3d 37 30 0d 55 |U...Z%<1.Z%=70.U|
00013400 b4 0e f2 73 65 74 43 5f 28 5a 25 29 0d 55 b9 05 |...setC_(Z%).U..|
00013410 cd 0d 55 be 17 e7 41 5f 25 3d 26 31 39 44 20 84 |..U...A_%=&19D .|
00013420 41 5f 25 3d 31 33 20 8c 0d 55 c3 23 e7 5a 25 3e |A_%=13 ..U.#.Z%>|
00013430 30 80 5a 25 3c 35 33 8c 5a 25 2b 3d 31 3a e7 5a |0.Z%<53.Z%+=1:.Z|
00013440 25 83 37 3d 34 8c 5a 25 2b 3d 34 0d 55 c8 0f e7 |%.7=4.Z%+=4.U...|
00013450 5a 25 3d 37 30 8c 5a 25 3d 31 0d 55 cd 10 e7 5a |Z%=70.Z%=1.U...Z|
00013460 25 3d 36 39 8c 5a 25 3d 37 30 0d 55 d2 16 e7 5a |%=69.Z%=70.U...Z|
00013470 25 3e 35 32 80 5a 25 3c 36 39 8c 5a 25 3d 36 39 |%>52.Z%<69.Z%=69|
00013480 0d 55 d7 0e f2 73 65 74 43 5f 28 5a 25 29 0d 55 |.U...setC_(Z%).U|
00013490 dc 05 cd 0d 55 e1 05 cd 0d 55 e6 05 e1 0d 55 eb |....U....U....U.|
000134a0 04 0d 55 f0 0b dd a4 63 6f 70 79 5f 0d 55 f5 0b |..U....copy_.U..|
000134b0 ea 20 41 25 2c 5a 25 0d 56 f9 14 e7 24 77 6e 25 |. A%,Z%.V...$wn%|
000134c0 3d 22 43 75 73 74 6f 6d 57 22 8c 0d 56 fe 18 41 |="CustomW"..V..A|
000134d0 25 3d bb 28 24 21 43 53 75 66 69 6e 64 6e 75 6d |%=.($!CSufindnum|
000134e0 5f 25 29 0d 57 03 0c c8 8e 20 21 69 25 20 ca 0d |_%).W.... !i% ..|
000134f0 57 08 29 c9 20 43 73 75 69 5f 25 3a 24 21 43 53 |W.). Csui_%:$!CS|
00013500 75 4e 61 6d 65 5f 25 3d 43 53 75 70 70 6c 69 65 |uName_%=CSupplie|
00013510 72 73 5f 24 28 41 25 29 0d 57 0d 27 c9 20 43 73 |rs_$(A%).W.'. Cs|
00013520 75 69 5f 25 2b 31 3a 24 21 43 53 75 41 64 31 31 |ui_%+1:$!CSuAd11|
00013530 5f 25 3d 43 53 75 41 64 31 5f 24 28 41 25 29 0d |_%=CSuAd1_$(A%).|
00013540 57 12 27 c9 20 43 73 75 69 5f 25 2b 32 3a 24 21 |W.'. Csui_%+2:$!|
00013550 43 53 75 41 64 32 32 5f 25 3d 43 53 75 41 64 32 |CSuAd22_%=CSuAd2|
00013560 5f 24 28 41 25 29 0d 57 17 27 c9 20 43 73 75 69 |_$(A%).W.'. Csui|
00013570 5f 25 2b 33 3a 24 21 43 53 75 41 64 33 33 5f 25 |_%+3:$!CSuAd33_%|
00013580 3d 43 53 75 41 64 33 5f 24 28 41 25 29 0d 57 1c |=CSuAd3_$(A%).W.|
00013590 27 c9 20 43 73 75 69 5f 25 2b 34 3a 24 21 43 53 |'. Csui_%+4:$!CS|
000135a0 75 41 64 34 34 5f 25 3d 43 53 75 41 64 34 5f 24 |uAd44_%=CSuAd4_$|
000135b0 28 41 25 29 0d 57 21 27 c9 20 43 73 75 69 5f 25 |(A%).W!'. Csui_%|
000135c0 2b 35 3a 24 21 43 53 75 50 6f 73 74 5f 25 3d 43 |+5:$!CSuPost_%=C|
000135d0 53 75 50 6f 73 5f 24 28 41 25 29 0d 57 26 2e c9 |SuPos_$(A%).W&..|
000135e0 20 43 73 75 69 5f 25 2b 31 31 3a 24 21 64 43 53 | Csui_%+11:$!dCS|
000135f0 75 4e 61 6d 65 5f 25 3d 64 43 53 75 70 70 6c 69 |uName_%=dCSuppli|
00013600 65 72 73 5f 24 28 41 25 29 0d 57 2b 2a c9 20 43 |ers_$(A%).W+*. C|
00013610 73 75 69 5f 25 2b 31 32 3a 24 21 64 43 53 75 41 |sui_%+12:$!dCSuA|
00013620 64 31 31 5f 25 3d 64 43 53 75 41 64 31 5f 24 28 |d11_%=dCSuAd1_$(|
00013630 41 25 29 0d 57 30 2a c9 20 43 73 75 69 5f 25 2b |A%).W0*. Csui_%+|
00013640 31 33 3a 24 21 64 43 53 75 41 64 32 32 5f 25 3d |13:$!dCSuAd22_%=|
00013650 64 43 53 75 41 64 32 5f 24 28 41 25 29 0d 57 35 |dCSuAd2_$(A%).W5|
00013660 2a c9 20 43 73 75 69 5f 25 2b 31 34 3a 24 21 64 |*. Csui_%+14:$!d|
00013670 43 53 75 41 64 33 33 5f 25 3d 64 43 53 75 41 64 |CSuAd33_%=dCSuAd|
00013680 33 5f 24 28 41 25 29 0d 57 3a 2a c9 20 43 73 75 |3_$(A%).W:*. Csu|
00013690 69 5f 25 2b 31 35 3a 24 21 64 43 53 75 41 64 34 |i_%+15:$!dCSuAd4|
000136a0 34 5f 25 3d 64 43 53 75 41 64 34 5f 24 28 41 25 |4_%=dCSuAd4_$(A%|
000136b0 29 0d 57 3f 2a c9 20 43 73 75 69 5f 25 2b 31 36 |).W?*. Csui_%+16|
000136c0 3a 24 21 64 43 53 75 50 6f 73 74 5f 25 3d 64 43 |:$!dCSuPost_%=dC|
000136d0 53 75 50 6f 73 5f 24 28 41 25 29 0d 57 44 2d c9 |SuPos_$(A%).WD-.|
000136e0 20 43 73 75 69 5f 25 2b 36 3a 24 21 43 53 75 43 | Csui_%+6:$!CSuC|
000136f0 6f 6e 74 61 63 74 5f 25 3d 43 53 75 43 6f 6e 74 |ontact_%=CSuCont|
00013700 61 63 5f 24 28 41 25 29 0d 57 49 27 c9 20 43 73 |ac_$(A%).WI'. Cs|
00013710 75 69 5f 25 2b 37 3a 24 21 43 53 75 54 65 6c 65 |ui_%+7:$!CSuTele|
00013720 5f 25 3d 43 53 75 54 65 6c 5f 24 28 41 25 29 0d |_%=CSuTel_$(A%).|
00013730 57 4e 25 c9 20 43 73 75 69 5f 25 2b 38 3a 24 21 |WN%. Csui_%+8:$!|
00013740 43 53 75 46 61 78 5f 25 3d 43 53 75 46 61 5f 24 |CSuFax_%=CSuFa_$|
00013750 28 41 25 29 0d 57 53 29 c9 20 43 73 75 69 5f 25 |(A%).WS). Csui_%|
00013760 2b 39 3a 24 21 43 53 75 43 6f 6d 31 31 5f 25 3d |+9:$!CSuCom11_%=|
00013770 43 53 75 43 6f 6d 31 5f 24 28 41 25 29 0d 57 58 |CSuCom1_$(A%).WX|
00013780 2a c9 20 43 73 75 69 5f 25 2b 31 30 3a 24 21 43 |*. Csui_%+10:$!C|
00013790 53 75 43 6f 6d 32 32 5f 25 3d 43 53 75 43 6f 6d |SuCom22_%=CSuCom|
000137a0 32 5f 24 28 41 25 29 0d 57 5d 2e c9 20 43 73 75 |2_$(A%).W].. Csu|
000137b0 69 5f 25 2b 31 37 3a 24 21 43 53 75 53 75 70 70 |i_%+17:$!CSuSupp|
000137c0 52 65 66 5f 25 3d 43 53 75 53 75 70 70 52 65 5f |Ref_%=CSuSuppRe_|
000137d0 24 28 41 25 29 0d 57 62 2e c9 20 43 73 75 69 5f |$(A%).Wb.. Csui_|
000137e0 25 2b 31 38 3a 24 21 43 53 75 59 6f 75 72 52 65 |%+18:$!CSuYourRe|
000137f0 66 5f 25 3d 43 53 75 59 6f 75 72 52 65 5f 24 28 |f_%=CSuYourRe_$(|
00013800 41 25 29 0d 57 67 2a c9 20 43 73 75 69 5f 25 2b |A%).Wg*. Csui_%+|
00013810 31 39 3a 24 21 43 53 75 4f 72 64 65 72 5f 25 3d |19:$!CSuOrder_%=|
00013820 43 53 75 4f 72 64 65 5f 24 28 41 25 29 0d 57 6c |CSuOrde_$(A%).Wl|
00013830 29 c9 20 43 73 75 69 5f 25 2b 32 30 3a 24 21 43 |). Csui_%+20:$!C|
00013840 53 75 44 69 73 63 5f 25 3d 43 53 75 44 69 73 63 |SuDisc_%=CSuDisc|
00013850 5f 24 28 41 25 29 0d 57 71 05 cb 0d 57 76 0d f2 |_$(A%).Wq...Wv..|
00013860 43 66 69 6c 6c 73 75 5f 0d 57 7b 13 5a 25 3d a4 |Cfillsu_.W{.Z%=.|
00013870 43 73 75 70 70 75 70 5f 28 30 29 0d 57 80 05 cd |Csuppup_(0).W...|
00013880 0d 57 85 06 3d b9 0d 57 8a 04 0d 57 8f 0e dd a4 |.W..=..W...W....|
00013890 61 6c 6c 63 6f 70 79 5f 0d 57 94 0b ea 20 41 25 |allcopy_.W... A%|
000138a0 2c 5a 25 0d 57 c1 14 e7 24 77 6e 25 3d 22 43 75 |,Z%.W...$wn%="Cu|
000138b0 73 74 6f 6d 57 22 8c 0d 57 c6 35 41 25 3d bb 28 |stomW"..W.5A%=.(|
000138c0 24 21 43 53 75 66 69 6e 64 6e 75 6d 5f 25 29 3a |$!CSufindnum_%):|
000138d0 e7 41 25 3e 43 6d 61 78 73 75 70 70 5f 25 8c 41 |.A%>Cmaxsupp_%.A|
000138e0 25 3d 43 6d 61 78 73 75 70 70 5f 25 0d 57 cb d5 |%=Cmaxsupp_%.W..|
000138f0 24 21 43 53 75 4e 61 6d 65 5f 25 3d 43 53 75 70 |$!CSuName_%=CSup|
00013900 70 6c 69 65 72 73 5f 24 28 41 25 29 3a 24 21 43 |pliers_$(A%):$!C|
00013910 53 75 41 64 31 31 5f 25 3d 43 53 75 41 64 31 5f |SuAd11_%=CSuAd1_|
00013920 24 28 41 25 29 3a 24 21 43 53 75 41 64 32 32 5f |$(A%):$!CSuAd22_|
00013930 25 3d 43 53 75 41 64 32 5f 24 28 41 25 29 3a 24 |%=CSuAd2_$(A%):$|
00013940 21 43 53 75 41 64 33 33 5f 25 3d 43 53 75 41 64 |!CSuAd33_%=CSuAd|
00013950 33 5f 24 28 41 25 29 3a 24 21 43 53 75 41 64 34 |3_$(A%):$!CSuAd4|
00013960 34 5f 25 3d 43 53 75 41 64 34 5f 24 28 41 25 29 |4_%=CSuAd4_$(A%)|
00013970 3a 24 21 43 53 75 50 6f 73 74 5f 25 3d 43 53 75 |:$!CSuPost_%=CSu|
00013980 50 6f 73 5f 24 28 41 25 29 3a 24 21 43 53 75 43 |Pos_$(A%):$!CSuC|
00013990 6f 6e 74 61 63 74 5f 25 3d 43 53 75 43 6f 6e 74 |ontact_%=CSuCont|
000139a0 61 63 5f 24 28 41 25 29 3a 24 21 43 53 75 54 65 |ac_$(A%):$!CSuTe|
000139b0 6c 65 5f 25 3d 43 53 75 54 65 6c 5f 24 28 41 25 |le_%=CSuTel_$(A%|
000139c0 29 0d 57 d0 c3 24 21 43 53 75 46 61 78 5f 25 3d |).W..$!CSuFax_%=|
000139d0 43 53 75 46 61 5f 24 28 41 25 29 3a 24 21 43 53 |CSuFa_$(A%):$!CS|
000139e0 75 43 6f 6d 31 31 5f 25 3d 43 53 75 43 6f 6d 31 |uCom11_%=CSuCom1|
000139f0 5f 24 28 41 25 29 3a 24 21 43 53 75 43 6f 6d 32 |_$(A%):$!CSuCom2|
00013a00 32 5f 25 3d 43 53 75 43 6f 6d 32 5f 24 28 41 25 |2_%=CSuCom2_$(A%|
00013a10 29 3a 24 21 43 53 75 53 75 70 70 52 65 66 5f 25 |):$!CSuSuppRef_%|
00013a20 3d 43 53 75 53 75 70 70 52 65 5f 24 28 41 25 29 |=CSuSuppRe_$(A%)|
00013a30 3a 24 21 43 53 75 59 6f 75 72 52 65 66 5f 25 3d |:$!CSuYourRef_%=|
00013a40 43 53 75 59 6f 75 72 52 65 5f 24 28 41 25 29 3a |CSuYourRe_$(A%):|
00013a50 24 21 43 53 75 4f 72 64 65 72 5f 25 3d 43 53 75 |$!CSuOrder_%=CSu|
00013a60 4f 72 64 65 5f 24 28 41 25 29 3a 24 21 43 53 75 |Orde_$(A%):$!CSu|
00013a70 44 69 73 63 5f 25 3d 43 53 75 44 69 73 63 5f 24 |Disc_%=CSuDisc_$|
00013a80 28 41 25 29 0d 57 d5 a9 24 21 64 43 53 75 4e 61 |(A%).W..$!dCSuNa|
00013a90 6d 65 5f 25 3d 64 43 53 75 70 70 6c 69 65 72 73 |me_%=dCSuppliers|
00013aa0 5f 24 28 41 25 29 3a 24 21 64 43 53 75 41 64 31 |_$(A%):$!dCSuAd1|
00013ab0 31 5f 25 3d 64 43 53 75 41 64 31 5f 24 28 41 25 |1_%=dCSuAd1_$(A%|
00013ac0 29 3a 24 21 64 43 53 75 41 64 32 32 5f 25 3d 64 |):$!dCSuAd22_%=d|
00013ad0 43 53 75 41 64 32 5f 24 28 41 25 29 3a 24 21 64 |CSuAd2_$(A%):$!d|
00013ae0 43 53 75 41 64 33 33 5f 25 3d 64 43 53 75 41 64 |CSuAd33_%=dCSuAd|
00013af0 33 5f 24 28 41 25 29 3a 24 21 64 43 53 75 41 64 |3_$(A%):$!dCSuAd|
00013b00 34 34 5f 25 3d 64 43 53 75 41 64 34 5f 24 28 41 |44_%=dCSuAd4_$(A|
00013b10 25 29 3a 24 21 64 43 53 75 50 6f 73 74 5f 25 3d |%):$!dCSuPost_%=|
00013b20 64 43 53 75 50 6f 73 5f 24 28 41 25 29 0d 57 da |dCSuPos_$(A%).W.|
00013b30 0d f2 43 66 69 6c 6c 73 75 5f 0d 57 df 13 5a 25 |..Cfillsu_.W..Z%|
00013b40 3d a4 43 73 75 70 70 75 70 5f 28 30 29 0d 57 e4 |=.Csuppup_(0).W.|
00013b50 05 cd 0d 58 11 06 3d b9 0d 58 16 04 0d 58 1b 18 |...X..=..X...X..|
00013b60 dd a4 70 72 69 6e 74 6b 65 79 5f 3a f2 77 6c 5f |..printkey_:.wl_|
00013b70 28 32 38 29 0d 58 1d 0b 2a 46 58 31 35 2c 31 0d |(28).X..*FX15,1.|
00013b80 58 1e 06 3d b9 0d 58 93 0c dd a4 68 5f 3a 3d 22 |X..=..X....h_:="|
00013b90 22 0d 58 98 04 0d 58 9d 09 dd a4 72 4d 5f 0d 58 |".X...X....rM_.X|
00013ba0 a2 10 74 65 6d 70 6c 6f 6f 70 5f 25 3d 30 0d 58 |..temploop_%=0.X|
00013bb0 a7 15 74 65 6d 70 5f 25 3d 74 65 6d 70 6c 6f 6f |..temp_%=temploo|
00013bc0 70 5f 25 0d 58 ac 23 e7 52 25 3d 31 37 84 52 25 |p_%.X.#.R%=17.R%|
00013bd0 3d 31 38 8c f2 72 65 63 6d 65 73 73 5f 28 51 25 |=18..recmess_(Q%|
00013be0 2c 30 29 3a 3d b9 0d 58 b1 06 3d a3 0d 58 b6 0c |,0):=..X..=..X..|
00013bf0 dd a4 72 42 5f 3a 3d b9 0d 58 bb 0c dd a4 70 42 |..rB_:=..X....pB|
00013c00 5f 3a 3d b9 0d 58 c0 1a dd f2 69 6e 69 74 65 64 |_:=..X....inited|
00013c10 69 74 5f 3a e7 65 64 69 74 25 3c 31 8c e1 0d 58 |it_:.edit%<1...X|
00013c20 c5 22 e7 54 6e 61 6d 5f 24 3d 22 22 8c 54 6e 61 |.".Tnam_$="".Tna|
00013c30 6d 5f 24 3d 22 3c 55 6e 74 69 74 6c 65 64 3e 22 |m_$="<Untitled>"|
00013c40 0d 58 ca 37 e7 c2 54 6e 61 6d 5f 24 2c 32 29 3d |.X.7..Tnam_$,2)=|
00013c50 22 20 2a 22 80 73 61 5f 25 3d 30 8c 54 6e 61 6d |" *".sa_%=0.Tnam|
00013c60 5f 24 3d c0 54 6e 61 6d 5f 24 2c a9 28 54 6e 61 |_$=.Tnam_$,.(Tna|
00013c70 6d 5f 24 29 2d 32 29 0d 58 cf 2f e7 c2 54 6e 61 |m_$)-2).X./..Tna|
00013c80 6d 5f 24 2c 32 29 3c 3e 22 20 2a 22 80 73 61 5f |m_$,2)<>" *".sa_|
00013c90 25 3d 31 8c 54 6e 61 6d 5f 24 3d 54 6e 61 6d 5f |%=1.Tnam_$=Tnam_|
00013ca0 24 2b 22 20 2a 22 0d 58 d4 43 e7 24 21 6d 61 69 |$+" *".X.C.$!mai|
00013cb0 6e 6e 61 6d 65 5f 25 3c 3e 54 6e 61 6d 5f 24 8c |nname_%<>Tnam_$.|
00013cc0 24 21 6d 61 69 6e 6e 61 6d 65 5f 25 3d 54 6e 61 |$!mainname_%=Tna|
00013cd0 6d 5f 24 3a f2 72 49 28 65 64 69 74 25 2c 22 6d |m_$:.rI(edit%,"m|
00013ce0 61 69 6e 6e 61 6d 65 22 29 0d 58 d9 45 e7 24 21 |ainname").X.E.$!|
00013cf0 6d 61 69 6e 64 61 74 65 5f 25 3c 3e c0 91 24 2c |maindate_%<>..$,|
00013d00 31 35 29 8c 24 21 6d 61 69 6e 64 61 74 65 5f 25 |15).$!maindate_%|
00013d10 3d c0 91 24 2c 31 35 29 3a f2 72 49 28 65 64 69 |=..$,15):.rI(edi|
00013d20 74 25 2c 22 6d 61 69 6e 64 61 74 65 22 29 0d 58 |t%,"maindate").X|
00013d30 de 05 e1 0d 58 e3 12 dd a4 6d 61 69 6e 6e 61 6d |....X....mainnam|
00013d40 65 5f 3a 3d b9 0d 58 e8 b7 dd a4 69 6e 69 74 50 |e_:=..X....initP|
00013d50 72 65 66 65 72 5f 3a 24 21 4f 6d 61 78 73 75 70 |refer_:$!Omaxsup|
00013d60 5f 25 3d c3 28 4f 6d 61 78 73 75 5f 25 29 3a 24 |_%=.(Omaxsu_%):$|
00013d70 21 4f 6d 61 78 73 74 6f 5f 25 3d c3 28 4f 6d 61 |!Omaxsto_%=.(Oma|
00013d80 78 73 74 5f 25 29 3a 24 21 43 4f 6d 61 78 73 75 |xst_%):$!COmaxsu|
00013d90 70 5f 25 3d c3 28 43 4f 6d 61 78 73 75 5f 25 29 |p_%=.(COmaxsu_%)|
00013da0 3a 24 21 41 75 74 6f 73 61 76 65 5f 25 3d c3 28 |:$!Autosave_%=.(|
00013db0 41 75 74 6f 73 61 76 5f 25 29 3a 24 21 4f 6d 61 |Autosav_%):$!Oma|
00013dc0 78 53 53 5f 25 3d c3 28 4f 6d 61 78 53 5f 25 29 |xSS_%=.(OmaxS_%)|
00013dd0 3a 24 21 4f 6d 61 78 50 50 5f 25 3d c3 28 4f 6d |:$!OmaxPP_%=.(Om|
00013de0 61 78 50 5f 25 29 3a 24 21 4f 6d 61 78 42 42 5f |axP_%):$!OmaxBB_|
00013df0 25 3d c3 28 4f 6d 61 78 42 5f 25 29 0d 58 ed 41 |%=.(OmaxB_%).X.A|
00013e00 24 21 53 41 61 63 63 31 5f 25 3d 53 41 61 63 63 |$!SAacc1_%=SAacc|
00013e10 5f 24 3a 24 21 53 41 68 65 61 64 31 5f 25 3d 53 |_$:$!SAhead1_%=S|
00013e20 41 68 65 61 64 5f 24 3a 24 21 70 72 65 66 76 61 |Ahead_$:$!prefva|
00013e30 74 5f 25 3d 70 72 65 66 76 61 74 5f 24 0d 58 f2 |t_%=prefvat_$.X.|
00013e40 33 e7 53 61 73 61 76 5f 25 3d 2d 31 8c f2 73 49 |3.Sasav_%=-1..sI|
00013e50 28 57 25 2c 22 53 61 73 61 76 65 22 29 20 8b f2 |(W%,"Sasave") ..|
00013e60 75 73 49 28 57 25 2c 22 53 61 73 61 76 65 22 29 |usI(W%,"Sasave")|
00013e70 0d 58 f7 39 e7 73 61 76 65 73 61 6c 5f 25 3d 2d |.X.9.savesal_%=-|
00013e80 31 8c f2 73 49 28 57 25 2c 22 73 61 76 65 73 61 |1..sI(W%,"savesa|
00013e90 6c 65 22 29 20 8b f2 75 73 49 28 57 25 2c 22 73 |le") ..usI(W%,"s|
00013ea0 61 76 65 73 61 6c 65 22 29 0d 58 fc 39 e7 41 75 |avesale").X.9.Au|
00013eb0 74 6f 77 61 72 5f 25 3d 2d 31 8c f2 73 49 28 57 |towar_%=-1..sI(W|
00013ec0 25 2c 22 41 75 74 6f 77 61 72 6e 22 29 20 8b f2 |%,"Autowarn") ..|
00013ed0 75 73 49 28 57 25 2c 22 41 75 74 6f 77 61 72 6e |usI(W%,"Autowarn|
00013ee0 22 29 0d 59 01 39 e7 53 61 6c 65 77 61 72 5f 25 |").Y.9.Salewar_%|
00013ef0 3d 2d 31 8c f2 73 49 28 57 25 2c 22 53 61 6c 65 |=-1..sI(W%,"Sale|
00013f00 77 61 72 6e 22 29 20 8b f2 75 73 49 28 57 25 2c |warn") ..usI(W%,|
00013f10 22 53 61 6c 65 77 61 72 6e 22 29 0d 59 06 39 e7 |"Salewarn").Y.9.|
00013f20 45 78 69 74 77 61 72 5f 25 3d 2d 31 8c f2 73 49 |Exitwar_%=-1..sI|
00013f30 28 57 25 2c 22 45 78 69 74 77 61 72 6e 22 29 20 |(W%,"Exitwarn") |
00013f40 8b f2 75 73 49 28 57 25 2c 22 45 78 69 74 77 61 |..usI(W%,"Exitwa|
00013f50 72 6e 22 29 0d 59 0b 58 e7 70 72 65 66 79 65 5f |rn").Y.X.prefye_|
00013f60 25 3d 31 8c f2 73 49 28 57 25 2c 22 70 72 65 66 |%=1..sI(W%,"pref|
00013f70 79 65 73 22 29 3a f2 75 73 49 28 57 25 2c 22 70 |yes"):.usI(W%,"p|
00013f80 72 65 66 6e 6f 22 29 20 8b f2 73 49 28 57 25 2c |refno") ..sI(W%,|
00013f90 22 70 72 65 66 6e 6f 22 29 3a f2 75 73 49 28 57 |"prefno"):.usI(W|
00013fa0 25 2c 22 70 72 65 66 79 65 73 22 29 0d 59 10 5a |%,"prefyes").Y.Z|
00013fb0 e7 70 72 65 66 6f 73 5f 25 3d 31 8c f2 73 49 28 |.prefos_%=1..sI(|
00013fc0 57 25 2c 22 70 72 65 66 6f 73 79 22 29 3a f2 75 |W%,"prefosy"):.u|
00013fd0 73 49 28 57 25 2c 22 70 72 65 66 6f 73 6e 22 29 |sI(W%,"prefosn")|
00013fe0 20 8b f2 73 49 28 57 25 2c 22 70 72 65 66 6f 73 | ..sI(W%,"prefos|
00013ff0 6e 22 29 3a f2 75 73 49 28 57 25 2c 22 70 72 65 |n"):.usI(W%,"pre|
00014000 66 6f 73 79 22 29 0d 59 15 06 3d b9 0d 59 5b 0d |fosy").Y..=..Y[.|
00014010 dd a4 70 72 65 66 65 72 5f 0d 59 60 08 ea 20 41 |..prefer_.Y`.. A|
00014020 25 0d 59 65 0c c8 99 26 34 30 36 43 30 0d 59 6a |%.Ye...&406C0.Yj|
00014030 53 e7 bb 28 24 21 4f 6d 61 78 73 75 70 5f 25 29 |S..($!Omaxsup_%)|
00014040 3c 6d 61 78 73 75 70 70 5f 25 8c 41 25 3d a4 63 |<maxsupp_%.A%=.c|
00014050 68 65 63 6b 6d 61 78 73 75 31 5f 3a e7 41 25 3e |heckmaxsu1_:.A%>|
00014060 bb 28 24 21 4f 6d 61 78 73 75 70 5f 25 29 8c 24 |.($!Omaxsup_%).$|
00014070 21 4f 6d 61 78 73 75 70 5f 25 3d c3 28 41 25 29 |!Omaxsup_%=.(A%)|
00014080 0d 59 6f 58 e7 bb 28 24 21 43 4f 6d 61 78 73 75 |.YoX..($!COmaxsu|
00014090 70 5f 25 29 3c 43 6d 61 78 73 75 70 70 5f 25 8c |p_%)<Cmaxsupp_%.|
000140a0 41 25 3d a4 43 63 68 65 63 6b 6d 61 78 73 75 31 |A%=.Ccheckmaxsu1|
000140b0 5f 3a e7 41 25 3e bb 28 24 21 43 4f 6d 61 78 73 |_:.A%>.($!COmaxs|
000140c0 75 70 5f 25 29 8c 24 21 43 4f 6d 61 78 73 75 70 |up_%).$!COmaxsup|
000140d0 5f 25 3d c3 28 41 25 29 0d 59 74 4d e7 bb 28 24 |_%=.(A%).YtM..($|
000140e0 21 4f 6d 61 78 73 74 6f 5f 25 29 3c 4d 5f 25 8c |!Omaxsto_%)<M_%.|
000140f0 41 25 3d a4 63 68 65 63 6b 6d 61 78 73 74 31 5f |A%=.checkmaxst1_|
00014100 3a e7 41 25 3e bb 28 24 21 4f 6d 61 78 73 74 6f |:.A%>.($!Omaxsto|
00014110 5f 25 29 8c 24 21 4f 6d 61 78 73 74 6f 5f 25 3d |_%).$!Omaxsto_%=|
00014120 c3 28 41 25 29 0d 59 79 4c e7 bb 28 24 21 4f 6d |.(A%).YyL..($!Om|
00014130 61 78 53 53 5f 25 29 3c 6d 61 78 53 5f 25 8c 41 |axSS_%)<maxS_%.A|
00014140 25 3d a4 63 68 65 63 6b 6d 61 78 53 31 5f 3a e7 |%=.checkmaxS1_:.|
00014150 41 25 3e bb 28 24 21 4f 6d 61 78 53 53 5f 25 29 |A%>.($!OmaxSS_%)|
00014160 8c 24 21 4f 6d 61 78 53 53 5f 25 3d c3 28 41 25 |.$!OmaxSS_%=.(A%|
00014170 29 0d 59 7e 4c e7 bb 28 24 21 4f 6d 61 78 50 50 |).Y~L..($!OmaxPP|
00014180 5f 25 29 3c 6d 61 78 50 5f 25 8c 41 25 3d a4 63 |_%)<maxP_%.A%=.c|
00014190 68 65 63 6b 6d 61 78 50 31 5f 3a e7 41 25 3e bb |heckmaxP1_:.A%>.|
000141a0 28 24 21 4f 6d 61 78 50 50 5f 25 29 8c 24 21 4f |($!OmaxPP_%).$!O|
000141b0 6d 61 78 50 50 5f 25 3d c3 28 41 25 29 0d 59 83 |maxPP_%=.(A%).Y.|
000141c0 4c e7 bb 28 24 21 4f 6d 61 78 42 42 5f 25 29 3c |L..($!OmaxBB_%)<|
000141d0 6d 61 78 42 5f 25 8c 41 25 3d a4 63 68 65 63 6b |maxB_%.A%=.check|
000141e0 6d 61 78 42 31 5f 3a e7 41 25 3e bb 28 24 21 4f |maxB1_:.A%>.($!O|
000141f0 6d 61 78 42 42 5f 25 29 8c 24 21 4f 6d 61 78 42 |maxBB_%).$!OmaxB|
00014200 42 5f 25 3d c3 28 41 25 29 0d 59 88 28 e7 bb 28 |B_%=.(A%).Y.(..(|
00014210 24 21 4f 6d 61 78 73 75 70 5f 25 29 3c 3e 35 30 |$!Omaxsup_%)<>50|
00014220 8c 24 21 4f 6d 61 78 73 75 70 5f 25 3d 22 31 30 |.$!Omaxsup_%="10|
00014230 22 0d 59 8d 2a e7 bb 28 24 21 43 4f 6d 61 78 73 |".Y.*..($!COmaxs|
00014240 75 70 5f 25 29 3c 3e 35 30 8c 24 21 43 4f 6d 61 |up_%)<>50.$!COma|
00014250 78 73 75 70 5f 25 3d 22 33 30 22 0d 59 92 28 e7 |xsup_%="30".Y.(.|
00014260 bb 28 24 21 4f 6d 61 78 73 74 6f 5f 25 29 3c 3e |.($!Omaxsto_%)<>|
00014270 31 32 8c 24 21 4f 6d 61 78 73 74 6f 5f 25 3d 22 |12.$!Omaxsto_%="|
00014280 31 32 22 0d 59 97 26 e7 bb 28 24 21 4f 6d 61 78 |12".Y.&..($!Omax|
00014290 53 53 5f 25 29 3c 3e 35 30 8c 24 21 4f 6d 61 78 |SS_%)<>50.$!Omax|
000142a0 53 53 5f 25 3d 22 33 30 22 0d 59 9c 26 e7 bb 28 |SS_%="30".Y.&..(|
000142b0 24 21 4f 6d 61 78 50 50 5f 25 29 3c 3e 35 30 8c |$!OmaxPP_%)<>50.|
000142c0 24 21 4f 6d 61 78 50 50 5f 25 3d 22 33 30 22 0d |$!OmaxPP_%="30".|
000142d0 59 a1 26 e7 bb 28 24 21 4f 6d 61 78 42 42 5f 25 |Y.&..($!OmaxBB_%|
000142e0 29 3c 3e 35 30 8c 24 21 4f 6d 61 78 42 42 5f 25 |)<>50.$!OmaxBB_%|
000142f0 3d 22 31 30 22 0d 59 a6 d1 4f 6d 61 78 73 75 5f |="10".Y..Omaxsu_|
00014300 25 3d bb 28 24 21 4f 6d 61 78 73 75 70 5f 25 29 |%=.($!Omaxsup_%)|
00014310 3a 4f 6d 61 78 73 74 5f 25 3d bb 28 24 21 4f 6d |:Omaxst_%=.($!Om|
00014320 61 78 73 74 6f 5f 25 29 3a 43 4f 6d 61 78 73 75 |axsto_%):COmaxsu|
00014330 5f 25 3d bb 28 24 21 43 4f 6d 61 78 73 75 70 5f |_%=.($!COmaxsup_|
00014340 25 29 3a 4f 6d 61 78 53 5f 25 3d bb 28 24 21 4f |%):OmaxS_%=.($!O|
00014350 6d 61 78 53 53 5f 25 29 3a 4f 6d 61 78 50 5f 25 |maxSS_%):OmaxP_%|
00014360 3d bb 28 24 21 4f 6d 61 78 50 50 5f 25 29 3a 4f |=.($!OmaxPP_%):O|
00014370 6d 61 78 42 5f 25 3d bb 28 24 21 4f 6d 61 78 42 |maxB_%=.($!OmaxB|
00014380 42 5f 25 29 3a 41 75 74 6f 73 61 76 5f 25 3d bb |B_%):Autosav_%=.|
00014390 28 24 21 41 75 74 6f 73 61 76 65 5f 25 29 3a 53 |($!Autosave_%):S|
000143a0 41 61 63 63 5f 24 3d 24 21 53 41 61 63 63 31 5f |Aacc_$=$!SAacc1_|
000143b0 25 3a 53 41 68 65 61 64 5f 24 3d 24 21 53 41 68 |%:SAhead_$=$!SAh|
000143c0 65 61 64 31 5f 25 0d 59 ab 3b e7 73 61 76 65 25 |ead1_%.Y.;.save%|
000143d0 3e 30 8c f2 61 75 74 6f 73 61 5f 3a f2 72 49 28 |>0..autosa_:.rI(|
000143e0 73 61 76 65 25 2c 22 61 75 74 6f 73 22 29 3a f2 |save%,"autos"):.|
000143f0 72 49 28 73 61 76 65 25 2c 22 61 75 74 6f 65 22 |rI(save%,"autoe"|
00014400 29 0d 59 b0 79 f2 72 49 28 57 25 2c 22 4f 6d 61 |).Y.y.rI(W%,"Oma|
00014410 78 73 75 70 22 29 3a f2 72 49 28 57 25 2c 22 4f |xsup"):.rI(W%,"O|
00014420 6d 61 78 73 74 6f 22 29 3a f2 72 49 28 57 25 2c |maxsto"):.rI(W%,|
00014430 22 43 4f 6d 61 78 73 75 70 22 29 3a f2 72 49 28 |"COmaxsup"):.rI(|
00014440 57 25 2c 22 4f 6d 61 78 53 53 22 29 3a f2 72 49 |W%,"OmaxSS"):.rI|
00014450 28 57 25 2c 22 4f 6d 61 78 50 50 22 29 3a f2 72 |(W%,"OmaxPP"):.r|
00014460 49 28 57 25 2c 22 4f 6d 61 78 42 42 22 29 3a c8 |I(W%,"OmaxBB"):.|
00014470 99 26 34 30 36 43 31 3a 3d b9 0d 59 b5 21 dd a4 |.&406C1:=..Y.!..|
00014480 53 61 73 61 76 65 5f 3a 53 61 73 61 76 5f 25 3d |Sasave_:Sasav_%=|
00014490 2d 53 61 73 61 76 5f 25 3a 3d b9 0d 59 ba 24 dd |-Sasav_%:=..Y.$.|
000144a0 a4 73 61 76 65 73 61 6c 65 5f 3a 73 61 76 65 73 |.savesale_:saves|
000144b0 61 6c 5f 25 3d 2d 73 61 76 65 73 61 6c 5f 25 0d |al_%=-savesal_%.|
000144c0 59 bf 43 e7 73 61 76 65 73 61 6c 5f 25 3d 31 80 |Y.C.savesal_%=1.|
000144d0 53 6c 77 69 6e 64 25 3e 30 8c f2 73 77 5f 28 53 |Slwind%>0..sw_(S|
000144e0 6c 77 69 6e 64 25 29 3a f2 63 6c 6f 73 65 57 28 |lwind%):.closeW(|
000144f0 53 6c 77 69 6e 64 25 29 3a 53 6c 77 69 6e 64 25 |Slwind%):Slwind%|
00014500 3d 30 0d 59 c4 06 3d b9 0d 59 c9 27 dd a4 41 75 |=0.Y..=..Y.'..Au|
00014510 74 6f 77 61 72 6e 5f 3a 41 75 74 6f 77 61 72 5f |towarn_:Autowar_|
00014520 25 3d 2d 41 75 74 6f 77 61 72 5f 25 3a 3d b9 0d |%=-Autowar_%:=..|
00014530 59 ce 27 dd a4 53 61 6c 65 77 61 72 6e 5f 3a 53 |Y.'..Salewarn_:S|
00014540 61 6c 65 77 61 72 5f 25 3d 2d 53 61 6c 65 77 61 |alewar_%=-Salewa|
00014550 72 5f 25 3a 3d b9 0d 59 d3 27 dd a4 45 78 69 74 |r_%:=..Y.'..Exit|
00014560 77 61 72 6e 5f 3a 45 78 69 74 77 61 72 5f 25 3d |warn_:Exitwar_%=|
00014570 2d 45 78 69 74 77 61 72 5f 25 3a 3d b9 0d 59 d8 |-Exitwar_%:=..Y.|
00014580 29 dd a4 4f 6d 61 78 73 75 70 5f 3a 4f 6d 61 78 |)..Omaxsup_:Omax|
00014590 73 75 5f 25 3d bb 28 24 21 4f 6d 61 78 73 75 70 |su_%=.($!Omaxsup|
000145a0 5f 25 29 3a 3d b9 0d 59 dd 29 dd a4 4f 6d 61 78 |_%):=..Y.)..Omax|
000145b0 73 74 6f 5f 3a 4f 6d 61 78 73 74 5f 25 3d bb 28 |sto_:Omaxst_%=.(|
000145c0 24 21 4f 6d 61 78 73 74 6f 5f 25 29 3a 3d b9 0d |$!Omaxsto_%):=..|
000145d0 59 e2 2c dd a4 43 4f 6d 61 78 73 75 70 5f 3a 43 |Y.,..COmaxsup_:C|
000145e0 4f 6d 61 78 73 75 5f 25 3d bb 28 24 21 43 4f 6d |Omaxsu_%=.($!COm|
000145f0 61 78 73 75 70 5f 25 29 3a 3d b9 0d 59 e7 26 dd |axsup_%):=..Y.&.|
00014600 a4 4f 6d 61 78 53 53 5f 3a 4f 6d 61 78 53 5f 25 |.OmaxSS_:OmaxS_%|
00014610 3d bb 28 24 21 4f 6d 61 78 53 53 5f 25 29 3a 3d |=.($!OmaxSS_%):=|
00014620 b9 0d 59 ec 26 dd a4 4f 6d 61 78 50 50 5f 3a 4f |..Y.&..OmaxPP_:O|
00014630 6d 61 78 50 5f 25 3d bb 28 24 21 4f 6d 61 78 50 |maxP_%=.($!OmaxP|
00014640 50 5f 25 29 3a 3d b9 0d 59 f1 26 dd a4 4f 6d 61 |P_%):=..Y.&..Oma|
00014650 78 42 42 5f 3a 4f 6d 61 78 42 5f 25 3d bb 28 24 |xBB_:OmaxB_%=.($|
00014660 21 4f 6d 61 78 42 42 5f 25 29 3a 3d b9 0d 59 f6 |!OmaxBB_%):=..Y.|
00014670 2c dd a4 41 75 74 6f 73 61 76 65 5f 3a 41 75 74 |,..Autosave_:Aut|
00014680 6f 73 61 76 5f 25 3d bb 28 24 21 41 75 74 6f 73 |osav_%=.($!Autos|
00014690 61 76 65 5f 25 29 3a 3d b9 0d 59 fb 23 dd a4 53 |ave_%):=..Y.#..S|
000146a0 41 61 63 63 31 5f 3a 53 41 61 63 63 5f 24 3d 24 |Aacc1_:SAacc_$=$|
000146b0 21 53 41 61 63 63 31 5f 25 3a 3d b9 0d 5a 00 30 |!SAacc1_%:=..Z.0|
000146c0 dd a4 53 41 68 65 61 64 31 5f 3a 53 41 68 65 61 |..SAhead1_:SAhea|
000146d0 64 5f 24 3d 24 21 53 41 68 65 61 64 31 5f 25 3a |d_$=$!SAhead1_%:|
000146e0 f2 73 65 74 43 5f 28 31 29 3a 3d b9 0d 5a 05 4b |.setC_(1):=..Z.K|
000146f0 dd a4 70 72 65 66 79 65 73 5f 3a 70 72 65 66 79 |..prefyes_:prefy|
00014700 65 5f 25 3d 31 3a 70 72 65 66 6e 5f 25 3d 2d 31 |e_%=1:prefn_%=-1|
00014710 3a f2 73 49 28 57 25 2c 22 70 72 65 66 79 65 73 |:.sI(W%,"prefyes|
00014720 22 29 3a f2 75 73 49 28 57 25 2c 22 70 72 65 66 |"):.usI(W%,"pref|
00014730 6e 6f 22 29 3a 3d b9 0d 5a 0a 4a dd a4 70 72 65 |no"):=..Z.J..pre|
00014740 66 6e 6f 5f 3a 70 72 65 66 6e 5f 25 3d 31 3a 70 |fno_:prefn_%=1:p|
00014750 72 65 66 79 65 5f 25 3d 2d 31 3a f2 73 49 28 57 |refye_%=-1:.sI(W|
00014760 25 2c 22 70 72 65 66 6e 6f 22 29 3a f2 75 73 49 |%,"prefno"):.usI|
00014770 28 57 25 2c 22 70 72 65 66 79 65 73 22 29 3a 3d |(W%,"prefyes"):=|
00014780 b9 0d 5a 0f 49 dd a4 70 72 65 66 73 73 5f 3a 70 |..Z.I..prefss_:p|
00014790 72 65 66 73 5f 25 3d 31 3a 70 72 65 66 73 6e 5f |refs_%=1:prefsn_|
000147a0 25 3d 2d 31 3a f2 73 49 28 57 25 2c 22 70 72 65 |%=-1:.sI(W%,"pre|
000147b0 66 73 73 22 29 3a f2 75 73 49 28 57 25 2c 22 70 |fss"):.usI(W%,"p|
000147c0 72 65 66 6e 6e 22 29 3a 3d b9 0d 5a 14 49 dd a4 |refnn"):=..Z.I..|
000147d0 70 72 65 66 6e 6e 5f 3a 70 72 65 66 73 6e 5f 25 |prefnn_:prefsn_%|
000147e0 3d 31 3a 70 72 65 66 73 5f 25 3d 2d 31 3a f2 73 |=1:prefs_%=-1:.s|
000147f0 49 28 57 25 2c 22 70 72 65 66 6e 6e 22 29 3a f2 |I(W%,"prefnn"):.|
00014800 75 73 49 28 57 25 2c 22 70 72 65 66 73 73 22 29 |usI(W%,"prefss")|
00014810 3a 3d b9 0d 5a 41 4e dd a4 70 72 65 66 6f 73 79 |:=..ZAN..prefosy|
00014820 5f 3a 70 72 65 66 6f 73 5f 25 3d 31 3a 70 72 65 |_:prefos_%=1:pre|
00014830 66 73 6f 6e 5f 25 3d 2d 31 3a f2 73 49 28 57 25 |fson_%=-1:.sI(W%|
00014840 2c 22 70 72 65 66 6f 73 79 22 29 3a f2 75 73 49 |,"prefosy"):.usI|
00014850 28 57 25 2c 22 70 72 65 66 6f 73 6e 22 29 3a 3d |(W%,"prefosn"):=|
00014860 b9 0d 5a 46 4e dd a4 70 72 65 66 6f 73 6e 5f 3a |..ZFN..prefosn_:|
00014870 70 72 65 66 73 6f 6e 5f 25 3d 31 3a 70 72 65 66 |prefson_%=1:pref|
00014880 6f 73 5f 25 3d 2d 31 3a f2 73 49 28 57 25 2c 22 |os_%=-1:.sI(W%,"|
00014890 70 72 65 66 6f 73 6e 22 29 3a f2 75 73 49 28 57 |prefosn"):.usI(W|
000148a0 25 2c 22 70 72 65 66 6f 73 79 22 29 3a 3d b9 0d |%,"prefosy"):=..|
000148b0 5a 4b 04 0d 5a 78 15 dd f2 69 6e 69 74 63 63 72 |ZK..Zx...initccr|
000148c0 65 64 5f 3a ea 20 41 24 0d 5a 7d 28 e7 53 42 65 |ed_:. A$.Z}(.SBe|
000148d0 73 74 50 5f 25 3d 31 8c 41 24 3d 22 20 4d 6f 6e |stP_%=1.A$=" Mon|
000148e0 74 68 73 22 20 8b 41 24 3d 22 20 44 61 79 73 22 |ths" .A$=" Days"|
000148f0 0d 5a 82 38 e7 53 42 65 73 74 46 5f 25 3d 31 8c |.Z.8.SBestF_%=1.|
00014900 24 21 43 31 5f 25 3d 22 31 22 2b c0 41 24 2c 36 |$!C1_%="1"+.A$,6|
00014910 29 20 8b 24 21 43 31 5f 25 3d c3 28 53 42 65 73 |) .$!C1_%=.(SBes|
00014920 74 46 5f 25 29 2b 41 24 0d 5a 87 72 24 21 43 32 |tF_%)+A$.Z.r$!C2|
00014930 5f 25 3d c3 28 53 42 65 73 74 46 5f 25 2a 32 29 |_%=.(SBestF_%*2)|
00014940 2b 41 24 3a 24 21 43 33 5f 25 3d c3 28 53 42 65 |+A$:$!C3_%=.(SBe|
00014950 73 74 46 5f 25 2a 33 29 2b 41 24 2b 22 2b 22 3a |stF_%*3)+A$+"+":|
00014960 24 21 43 31 30 5f 25 3d 22 22 3a 24 21 43 31 31 |$!C10_%="":$!C11|
00014970 5f 25 3d c0 43 53 75 70 70 6c 69 65 72 73 5f 24 |_%=.CSuppliers_$|
00014980 28 43 53 5f 25 29 2c 32 31 29 3a 24 21 43 31 33 |(CS_%),21):$!C13|
00014990 5f 25 3d 74 6f 64 61 79 5f 24 0d 5a 8c 2b e7 43 |_%=today_$.Z.+.C|
000149a0 31 32 30 5f 25 3d 31 8c f2 75 73 49 28 57 25 2c |120_%=1..usI(W%,|
000149b0 22 43 31 32 22 29 20 8b f2 73 49 28 57 25 2c 22 |"C12") ..sI(W%,"|
000149c0 43 31 32 22 29 0d 5a 91 40 e7 63 63 72 65 64 25 |C12").Z.@.ccred%|
000149d0 3e 30 8c f2 72 49 28 63 63 72 65 64 25 2c 22 43 |>0..rI(ccred%,"C|
000149e0 31 22 29 3a f2 72 49 28 63 63 72 65 64 25 2c 22 |1"):.rI(ccred%,"|
000149f0 43 32 22 29 3a f2 72 49 28 63 63 72 65 64 25 2c |C2"):.rI(ccred%,|
00014a00 22 43 33 22 29 0d 5a 96 0c f2 64 61 79 73 5f 3a |"C3").Z...days_:|
00014a10 e1 0d 5a 9b 04 0d 5a a0 2a dd f2 66 69 6e 64 63 |..Z...Z.*..findc|
00014a20 63 72 65 64 73 5f 3a ea 20 41 24 3a 49 76 61 74 |creds_:. A$:Ivat|
00014a30 5f 24 28 30 29 3d 22 43 75 72 72 65 6e 74 22 0d |_$(0)="Current".|
00014a40 5a a5 28 e7 53 42 65 73 74 50 5f 25 3d 31 8c 41 |Z.(.SBestP_%=1.A|
00014a50 24 3d 22 20 4d 6f 6e 74 68 73 22 20 8b 41 24 3d |$=" Months" .A$=|
00014a60 22 20 44 61 79 73 22 0d 5a aa 3e e7 53 42 65 73 |" Days".Z.>.SBes|
00014a70 74 46 5f 25 3d 31 8c 49 76 61 74 5f 24 28 31 29 |tF_%=1.Ivat_$(1)|
00014a80 3d 22 31 22 2b c0 41 24 2c 36 29 20 8b 49 76 61 |="1"+.A$,6) .Iva|
00014a90 74 5f 24 28 31 29 3d c3 28 53 42 65 73 74 46 5f |t_$(1)=.(SBestF_|
00014aa0 25 29 2b 41 24 0d 5a af 46 49 76 61 74 5f 24 28 |%)+A$.Z.FIvat_$(|
00014ab0 32 29 3d c3 28 53 42 65 73 74 46 5f 25 2a 32 29 |2)=.(SBestF_%*2)|
00014ac0 2b 41 24 3a 49 76 61 74 5f 24 28 33 29 3d c3 28 |+A$:Ivat_$(3)=.(|
00014ad0 53 42 65 73 74 46 5f 25 2a 33 29 2b 41 24 2b 22 |SBestF_%*3)+A$+"|
00014ae0 2b 22 3a f2 64 61 79 73 5f 3a e1 0d 5a b4 04 0d |+":.days_:..Z...|
00014af0 5a b9 0b dd f2 64 61 79 73 5f 0d 5a be 11 ea 20 |Z....days_.Z... |
00014b00 41 25 2c 42 25 2c 42 24 2c 43 24 0d 5a c3 15 42 |A%,B%,B$,C$.Z..B|
00014b10 25 3d bb 28 c1 74 6f 64 61 79 5f 24 2c 37 29 29 |%=.(.today_$,7))|
00014b20 0d 5a c8 10 e7 53 42 65 73 74 50 5f 25 3d 31 8c |.Z...SBestP_%=1.|
00014b30 0d 5a cd 3b 41 25 3d bb 28 c1 74 6f 64 61 79 5f |.Z.;A%=.(.today_|
00014b40 24 2c 34 2c 32 29 29 3a 41 25 3d 41 25 2d 53 42 |$,4,2)):A%=A%-SB|
00014b50 65 73 74 46 5f 25 3a e7 41 25 3c 31 8c 41 25 3d |estF_%:.A%<1.A%=|
00014b60 31 32 2b 41 25 3a 42 25 2d 3d 31 0d 5a d2 21 e7 |12+A%:B%-=1.Z.!.|
00014b70 41 25 3c 31 30 8c 42 24 3d 22 30 22 2b c3 28 41 |A%<10.B$="0"+.(A|
00014b80 25 29 20 8b 42 24 3d c3 28 41 25 29 0d 5a d7 0c |%) .B$=.(A%).Z..|
00014b90 43 24 3d c3 28 42 25 29 0d 5a dc 27 64 61 79 31 |C$=.(B%).Z.'day1|
00014ba0 5f 25 3d a4 4a 75 6c 5f 28 c0 74 6f 64 61 79 5f |_%=.Jul_(.today_|
00014bb0 24 2c 33 29 2b 42 24 2b 22 2e 22 2b 43 24 29 0d |$,3)+B$+"."+C$).|
00014bc0 5a e1 27 41 25 3d 41 25 2d 53 42 65 73 74 46 5f |Z.'A%=A%-SBestF_|
00014bd0 25 3a e7 41 25 3c 31 8c 41 25 3d 31 32 2b 41 25 |%:.A%<1.A%=12+A%|
00014be0 3a 42 25 2d 3d 31 0d 5a e6 21 e7 41 25 3c 31 30 |:B%-=1.Z.!.A%<10|
00014bf0 8c 42 24 3d 22 30 22 2b c3 28 41 25 29 20 8b 42 |.B$="0"+.(A%) .B|
00014c00 24 3d c3 28 41 25 29 0d 5a eb 0c 43 24 3d c3 28 |$=.(A%).Z..C$=.(|
00014c10 42 25 29 0d 5a f0 27 64 61 79 32 5f 25 3d a4 4a |B%).Z.'day2_%=.J|
00014c20 75 6c 5f 28 c0 74 6f 64 61 79 5f 24 2c 33 29 2b |ul_(.today_$,3)+|
00014c30 42 24 2b 22 2e 22 2b 43 24 29 0d 5a f5 27 41 25 |B$+"."+C$).Z.'A%|
00014c40 3d 41 25 2d 53 42 65 73 74 46 5f 25 3a e7 41 25 |=A%-SBestF_%:.A%|
00014c50 3c 31 8c 41 25 3d 31 32 2b 41 25 3a 42 25 2d 3d |<1.A%=12+A%:B%-=|
00014c60 31 0d 5a fa 21 e7 41 25 3c 31 30 8c 42 24 3d 22 |1.Z.!.A%<10.B$="|
00014c70 30 22 2b c3 28 41 25 29 20 8b 42 24 3d c3 28 41 |0"+.(A%) .B$=.(A|
00014c80 25 29 0d 5a ff 0c 43 24 3d c3 28 42 25 29 0d 5b |%).Z..C$=.(B%).[|
00014c90 04 27 64 61 79 33 5f 25 3d a4 4a 75 6c 5f 28 c0 |.'day3_%=.Jul_(.|
00014ca0 74 6f 64 61 79 5f 24 2c 33 29 2b 42 24 2b 22 2e |today_$,3)+B$+".|
00014cb0 22 2b 43 24 29 0d 5b 09 05 cc 0d 5b 0e 47 64 61 |"+C$).[....[.Gda|
00014cc0 79 31 5f 25 3d 64 61 79 5f 25 2d 53 42 65 73 74 |y1_%=day_%-SBest|
00014cd0 46 5f 25 3a 64 61 79 32 5f 25 3d 64 61 79 31 5f |F_%:day2_%=day1_|
00014ce0 25 2d 53 42 65 73 74 46 5f 25 3a 64 61 79 33 5f |%-SBestF_%:day3_|
00014cf0 25 3d 64 61 79 32 5f 25 2d 53 42 65 73 74 46 5f |%=day2_%-SBestF_|
00014d00 25 0d 5b 13 05 cd 0d 5b 18 05 e1 0d 5b 1d 04 0d |%.[....[....[...|
00014d10 5b 7c 6e dd f2 75 70 64 61 74 65 63 63 72 65 64 |[|n..updateccred|
00014d20 5f 28 5a 5f 25 2c 41 5f 25 29 3a 64 62 5f 25 3d |_(Z_%,A_%):db_%=|
00014d30 30 3a 64 62 31 31 5f 25 3d 30 3a 64 62 32 32 5f |0:db11_%=0:db22_|
00014d40 25 3d 30 3a 64 62 33 33 5f 25 3d 30 3a 64 62 34 |%=0:db33_%=0:db4|
00014d50 34 5f 25 3d 30 3a 64 62 5f 24 3d 22 22 3a e7 41 |4_%=0:db_$="":.A|
00014d60 5f 25 3d 31 3a e7 63 63 72 65 64 25 3d 30 84 6f |_%=1:.ccred%=0.o|
00014d70 63 63 72 65 64 5f 25 3d 5a 5f 25 8c e1 0d 5b 81 |ccred_%=Z_%...[.|
00014d80 2d e7 41 5f 25 3d 30 3a e7 43 53 75 70 70 6c 69 |-.A_%=0:.CSuppli|
00014d90 65 72 73 5f 24 28 5a 5f 25 29 3d 22 22 80 24 21 |ers_$(Z_%)="".$!|
00014da0 43 31 31 5f 25 3d 22 22 8c e1 0d 5b 86 38 e7 41 |C11_%=""...[.8.A|
00014db0 5f 25 3d 31 3a e7 43 53 75 70 70 6c 69 65 72 73 |_%=1:.CSuppliers|
00014dc0 5f 24 28 5a 5f 25 29 3d 22 22 3a e7 24 21 43 39 |_$(Z_%)="":.$!C9|
00014dd0 5f 25 3d 22 22 80 24 21 43 31 31 5f 25 3d 22 22 |_%="".$!C11_%=""|
00014de0 8c e1 0d 5b 8b 20 ea 20 5a 25 2c 41 25 2c 42 25 |...[. . Z%,A%,B%|
00014df0 2c 43 25 2c 44 25 2c 45 25 2c 46 25 2c 47 25 2c |,C%,D%,E%,F%,G%,|
00014e00 48 25 0d 5b 90 0c c8 99 26 34 30 36 43 30 0d 5b |H%.[....&406C0.[|
00014e10 95 1a e3 5a 25 3d 30 b8 6d 61 78 53 5f 25 2a 73 |...Z%=0.maxS_%*s|
00014e20 69 74 69 70 5f 25 2d 31 0d 5b 9a 23 e7 53 49 54 |itip_%-1.[.#.SIT|
00014e30 6e 5f 25 28 5a 25 2b 31 29 3d 43 53 75 4e 75 6d |n_%(Z%+1)=CSuNum|
00014e40 62 65 72 5f 25 28 5a 5f 25 29 8c 0d 5b 9f 78 46 |ber_%(Z_%)..[.xF|
00014e50 25 3d a4 4a 75 6c 5f 28 53 49 54 65 5f 24 28 5a |%=.Jul_(SITe_$(Z|
00014e60 25 2a 73 69 74 69 66 5f 25 2b 31 29 29 3a 48 25 |%*sitif_%+1)):H%|
00014e70 3d a4 6e 69 5f 28 53 49 54 65 5f 24 28 5a 25 2a |=.ni_(SITe_$(Z%*|
00014e80 73 69 74 69 66 5f 25 2b 36 29 29 3a 47 25 3d a4 |sitif_%+6)):G%=.|
00014e90 73 75 62 5f 28 48 25 2c a4 6e 69 5f 28 53 49 54 |sub_(H%,.ni_(SIT|
00014ea0 65 5f 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b 39 |e_$(Z%*sitif_%+9|
00014eb0 29 29 29 3a 45 25 3d a4 61 64 64 5f 28 45 25 2c |))):E%=.add_(E%,|
00014ec0 48 25 29 0d 5b a4 67 e7 46 25 3e 64 61 79 31 5f |H%).[.g.F%>day1_|
00014ed0 25 8c 41 25 3d a4 61 64 64 5f 28 41 25 2c 47 25 |%.A%=.add_(A%,G%|
00014ee0 29 20 8b e7 46 25 3e 64 61 79 32 5f 25 8c 42 25 |) ..F%>day2_%.B%|
00014ef0 3d a4 61 64 64 5f 28 42 25 2c 47 25 29 20 8b e7 |=.add_(B%,G%) ..|
00014f00 46 25 3e 64 61 79 33 5f 25 8c 43 25 3d a4 61 64 |F%>day3_%.C%=.ad|
00014f10 64 5f 28 43 25 2c 47 25 29 20 8b 44 25 3d a4 61 |d_(C%,G%) .D%=.a|
00014f20 64 64 5f 28 44 25 2c 47 25 29 0d 5b a9 05 cd 0d |dd_(D%,G%).[....|
00014f30 5b ae 47 ed 3a 64 62 5f 25 3d a4 61 64 64 5f 28 |[.G.:db_%=.add_(|
00014f40 41 25 2b 42 25 2b 43 25 2b 44 25 2c 30 29 3a 64 |A%+B%+C%+D%,0):d|
00014f50 62 31 31 5f 25 3d 41 25 3a 64 62 32 32 5f 25 3d |b11_%=A%:db22_%=|
00014f60 42 25 3a 64 62 33 33 5f 25 3d 43 25 3a 64 62 34 |B%:db33_%=C%:db4|
00014f70 34 5f 25 3d 44 25 0d 5b b3 0b e7 41 5f 25 3d 31 |4_%=D%.[...A_%=1|
00014f80 8c 0d 5b b8 b1 24 21 43 34 5f 25 3d a4 74 63 5f |..[..$!C4_%=.tc_|
00014f90 28 41 25 2c 22 22 29 3a 24 21 43 35 5f 25 3d a4 |(A%,""):$!C5_%=.|
00014fa0 74 63 5f 28 42 25 2c 22 22 29 3a 24 21 43 36 5f |tc_(B%,""):$!C6_|
00014fb0 25 3d a4 74 63 5f 28 43 25 2c 22 22 29 3a 24 21 |%=.tc_(C%,""):$!|
00014fc0 43 37 5f 25 3d a4 74 63 5f 28 44 25 2c 22 22 29 |C7_%=.tc_(D%,"")|
00014fd0 3a 24 21 43 38 5f 25 3d a4 74 63 5f 28 64 62 5f |:$!C8_%=.tc_(db_|
00014fe0 25 2c 22 22 29 3a 24 21 43 39 5f 25 3d a4 74 63 |%,""):$!C9_%=.tc|
00014ff0 5f 28 45 25 2c 22 22 29 3a 24 21 43 31 31 5f 25 |_(E%,""):$!C11_%|
00015000 3d c0 43 53 75 70 70 6c 69 65 72 73 5f 24 28 43 |=.CSuppliers_$(C|
00015010 53 5f 25 29 2c 32 31 29 3a 24 21 43 31 33 5f 25 |S_%),21):$!C13_%|
00015020 3d a4 63 68 64 61 74 65 5f 28 24 21 43 31 33 5f |=.chdate_($!C13_|
00015030 25 29 0d 5b bd 9a f2 72 49 28 63 63 72 65 64 25 |%).[...rI(ccred%|
00015040 2c 22 43 34 22 29 3a f2 72 49 28 63 63 72 65 64 |,"C4"):.rI(ccred|
00015050 25 2c 22 43 35 22 29 3a f2 72 49 28 63 63 72 65 |%,"C5"):.rI(ccre|
00015060 64 25 2c 22 43 36 22 29 3a f2 72 49 28 63 63 72 |d%,"C6"):.rI(ccr|
00015070 65 64 25 2c 22 43 37 22 29 3a f2 72 49 28 63 63 |ed%,"C7"):.rI(cc|
00015080 72 65 64 25 2c 22 43 38 22 29 3a f2 72 49 28 63 |red%,"C8"):.rI(c|
00015090 63 72 65 64 25 2c 22 43 39 22 29 3a f2 72 49 28 |cred%,"C9"):.rI(|
000150a0 63 63 72 65 64 25 2c 22 43 31 31 22 29 3a f2 72 |ccred%,"C11"):.r|
000150b0 49 28 63 63 72 65 64 25 2c 22 43 31 33 22 29 3a |I(ccred%,"C13"):|
000150c0 6f 63 63 72 65 64 5f 25 3d 5a 5f 25 0d 5b c2 05 |occred_%=Z_%.[..|
000150d0 cd 0d 5b c7 a8 e7 41 5f 25 3d 30 3a e7 64 62 5f |..[...A_%=0:.db_|
000150e0 25 3c 3e 30 3a 64 62 5f 24 3d 22 43 75 72 3d 22 |%<>0:db_$="Cur="|
000150f0 2b 43 75 5f 24 2b a4 74 63 5f 28 41 25 2c 22 30 |+Cu_$+.tc_(A%,"0|
00015100 22 29 2b 22 20 3a 20 50 72 64 31 3d 22 2b 43 75 |")+" : Prd1="+Cu|
00015110 5f 24 2b a4 74 63 5f 28 42 25 2c 22 30 22 29 2b |_$+.tc_(B%,"0")+|
00015120 22 20 3a 20 50 72 64 32 3d 22 2b 43 75 5f 24 2b |" : Prd2="+Cu_$+|
00015130 a4 74 63 5f 28 43 25 2c 22 30 22 29 2b 22 20 3a |.tc_(C%,"0")+" :|
00015140 20 50 72 64 33 3d 22 2b 43 75 5f 24 2b a4 74 63 | Prd3="+Cu_$+.tc|
00015150 5f 28 44 25 2c 22 30 22 29 2b 22 20 3a 20 54 4f |_(D%,"0")+" : TO|
00015160 54 41 4c 3d 22 2b 43 75 5f 24 2b a4 74 63 5f 28 |TAL="+Cu_$+.tc_(|
00015170 64 62 5f 25 2c 22 30 22 29 0d 5b cc 0c c8 99 26 |db_%,"0").[....&|
00015180 34 30 36 43 31 0d 5b d1 05 e1 0d 5b d6 47 dd a4 |406C1.[....[.G..|
00015190 43 31 32 5f 3a 43 31 32 30 5f 25 3d 2d 43 31 32 |C12_:C120_%=-C12|
000151a0 30 5f 25 3a e7 43 31 32 30 5f 25 3d 31 8c f2 75 |0_%:.C120_%=1..u|
000151b0 73 49 28 57 25 2c 22 43 31 32 22 29 3a 3d b9 20 |sI(W%,"C12"):=. |
000151c0 8b f2 73 49 28 57 25 2c 22 43 31 32 22 29 3a 3d |..sI(W%,"C12"):=|
000151d0 b9 0d 5b e0 40 dd a4 43 31 33 5f 3a 24 21 43 31 |..[.@..C13_:$!C1|
000151e0 33 5f 25 3d a4 63 68 64 61 74 65 5f 28 24 21 43 |3_%=.chdate_($!C|
000151f0 31 33 5f 25 29 3a e7 24 21 43 31 33 5f 25 3d 22 |13_%):.$!C13_%="|
00015200 22 3a 24 21 43 31 33 5f 25 3d 74 6f 64 61 79 5f |":$!C13_%=today_|
00015210 24 0d 5b e5 18 f2 72 49 28 63 63 72 65 64 25 2c |$.[...rI(ccred%,|
00015220 22 43 31 33 22 29 3a 3d b9 0d 5b f4 04 0d 5b f9 |"C13"):=..[...[.|
00015230 11 dd a4 66 69 6e 64 63 63 72 65 64 74 5f 0d 5b |...findccredt_.[|
00015240 fe 19 49 74 6f 74 5f 25 28 29 3d 30 3a 4f 72 64 |..Itot_%()=0:Ord|
00015250 5f 25 28 29 3d 2d 31 0d 5c 03 21 ea 20 5a 25 2c |_%()=-1.\.!. Z%,|
00015260 41 25 2c 42 25 2c 43 25 2c 44 25 2c 46 25 2c 47 |A%,B%,C%,D%,F%,G|
00015270 25 2c 48 25 2c 48 5f 25 0d 5c 08 0c c8 99 26 34 |%,H%,H_%.\....&4|
00015280 30 36 43 30 0d 5c 0d 1a e3 5a 25 3d 30 b8 6d 61 |06C0.\...Z%=0.ma|
00015290 78 53 5f 25 2a 73 69 74 69 70 5f 25 2d 31 0d 5c |xS_%*sitip_%-1.\|
000152a0 12 29 e7 53 49 54 6e 5f 25 28 5a 25 2b 31 29 3d |.).SITn_%(Z%+1)=|
000152b0 43 53 75 4e 75 6d 62 65 72 5f 25 28 73 75 70 70 |CSuNumber_%(supp|
000152c0 6c 79 31 5f 25 29 8c 0d 5c 17 62 46 25 3d a4 4a |ly1_%)..\.bF%=.J|
000152d0 75 6c 5f 28 53 49 54 65 5f 24 28 5a 25 2a 73 69 |ul_(SITe_$(Z%*si|
000152e0 74 69 66 5f 25 2b 31 29 29 3a 47 25 3d a4 73 75 |tif_%+1)):G%=.su|
000152f0 62 5f 28 a4 6e 69 5f 28 53 49 54 65 5f 24 28 5a |b_(.ni_(SITe_$(Z|
00015300 25 2a 73 69 74 69 66 5f 25 2b 36 29 29 2c a4 6e |%*sitif_%+6)),.n|
00015310 69 5f 28 53 49 54 65 5f 24 28 5a 25 2a 73 69 74 |i_(SITe_$(Z%*sit|
00015320 69 66 5f 25 2b 39 29 29 29 0d 5c 1c 67 e7 46 25 |if_%+9))).\.g.F%|
00015330 3e 64 61 79 31 5f 25 8c 41 25 3d a4 61 64 64 5f |>day1_%.A%=.add_|
00015340 28 41 25 2c 47 25 29 20 8b e7 46 25 3e 64 61 79 |(A%,G%) ..F%>day|
00015350 32 5f 25 8c 42 25 3d a4 61 64 64 5f 28 42 25 2c |2_%.B%=.add_(B%,|
00015360 47 25 29 20 8b e7 46 25 3e 64 61 79 33 5f 25 8c |G%) ..F%>day3_%.|
00015370 43 25 3d a4 61 64 64 5f 28 43 25 2c 47 25 29 20 |C%=.add_(C%,G%) |
00015380 8b 44 25 3d a4 61 64 64 5f 28 44 25 2c 47 25 29 |.D%=.add_(D%,G%)|
00015390 0d 5c 21 81 e7 47 25 3c 3e 30 8c 48 5f 25 2b 3d |.\!..G%<>0.H_%+=|
000153a0 31 3a 4f 72 64 5f 25 28 48 5f 25 29 3d 5a 25 3a |1:Ord_%(H_%)=Z%:|
000153b0 e7 5a 25 3d 6d 61 78 53 5f 25 2a 73 69 74 69 70 |.Z%=maxS_%*sitip|
000153c0 5f 25 2d 31 84 53 49 54 65 5f 24 28 5a 25 2a 73 |_%-1.SITe_$(Z%*s|
000153d0 69 74 69 66 5f 25 2b 35 29 3c 3e 53 49 54 65 5f |itif_%+5)<>SITe_|
000153e0 24 28 28 5a 25 2b 31 29 2a 73 69 74 69 66 5f 25 |$((Z%+1)*sitif_%|
000153f0 2b 35 29 84 53 49 54 65 5f 24 28 5a 25 2a 73 69 |+5).SITe_$(Z%*si|
00015400 74 69 66 5f 25 2b 35 29 3d 22 22 3a 48 25 2b 3d |tif_%+5)="":H%+=|
00015410 31 0d 5c 26 05 cd 0d 5c 2b 05 ed 0d 5c 30 56 49 |1.\&...\+...\0VI|
00015420 74 6f 74 5f 25 28 30 29 3d 41 25 3a 49 74 6f 74 |tot_%(0)=A%:Itot|
00015430 5f 25 28 31 29 3d 42 25 3a 49 74 6f 74 5f 25 28 |_%(1)=B%:Itot_%(|
00015440 32 29 3d 43 25 3a 49 74 6f 74 5f 25 28 33 29 3d |2)=C%:Itot_%(3)=|
00015450 44 25 3a 49 74 6f 74 5f 25 28 34 29 3d a4 61 64 |D%:Itot_%(4)=.ad|
00015460 64 5f 28 41 25 2b 42 25 2b 43 25 2b 44 25 2c 30 |d_(A%+B%+C%+D%,0|
00015470 29 0d 5c 35 70 e7 49 74 6f 74 5f 25 28 33 29 3e |).\5p.Itot_%(3)>|
00015480 30 8c 49 76 61 74 5f 24 28 34 29 3d 53 74 61 74 |0.Ivat_$(4)=Stat|
00015490 33 5f 24 20 8b e7 49 74 6f 74 5f 25 28 32 29 3e |3_$ ..Itot_%(2)>|
000154a0 30 8c 49 76 61 74 5f 24 28 34 29 3d 53 74 61 74 |0.Ivat_$(4)=Stat|
000154b0 32 5f 24 20 8b e7 49 74 6f 74 5f 25 28 31 29 3e |2_$ ..Itot_%(1)>|
000154c0 30 8c 49 76 61 74 5f 24 28 34 29 3d 53 74 61 74 |0.Ivat_$(4)=Stat|
000154d0 31 5f 24 20 8b 49 76 61 74 5f 24 28 34 29 3d 22 |1_$ .Ivat_$(4)="|
000154e0 22 0d 5c 3a 0c c8 99 26 34 30 36 43 31 0d 5c 3f |".\:...&406C1.\?|
000154f0 07 3d 48 25 0d 5c fd 04 0d 5d 02 1b dd a4 43 31 |.=H%.\...]....C1|
00015500 30 5f 3a e7 bb 28 24 21 43 31 30 5f 25 29 3d 30 |0_:..($!C10_%)=0|
00015510 3a 3d b9 0d 5d 07 9d ea 20 41 25 2c 41 5f 25 2c |:=..]... A%,A_%,|
00015520 42 25 2c 42 5f 25 2c 43 25 2c 63 5f 25 2c 44 25 |B%,B_%,C%,c_%,D%|
00015530 2c 44 5f 25 2c 45 25 2c 45 5f 25 2c 46 25 2c 46 |,D_%,E%,E_%,F%,F|
00015540 5f 25 2c 47 25 2c 48 25 2c 5a 25 2c 5a 5f 25 2c |_%,G%,H%,Z%,Z_%,|
00015550 61 5f 24 2c 62 5f 24 3a 43 25 3d a4 6e 69 5f 28 |a_$,b_$:C%=.ni_(|
00015560 24 21 43 31 30 5f 25 29 3a 47 25 3d 74 5f 25 3a |$!C10_%):G%=t_%:|
00015570 48 25 3d 75 5f 25 3a 24 21 43 31 33 5f 25 3d a4 |H%=u_%:$!C13_%=.|
00015580 63 68 64 61 74 65 5f 28 24 21 43 31 33 5f 25 29 |chdate_($!C13_%)|
00015590 3a 62 5f 24 3d 24 21 43 31 33 5f 25 3a e7 62 5f |:b_$=$!C13_%:.b_|
000155a0 24 3d 22 22 3a 62 5f 24 3d 74 6f 64 61 79 5f 24 |$="":b_$=today_$|
000155b0 0d 5d 0c 23 c8 99 26 34 30 36 43 30 3a e3 5a 25 |.].#..&406C0:.Z%|
000155c0 3d 30 b8 6d 61 78 53 5f 25 2a 73 69 74 69 70 5f |=0.maxS_%*sitip_|
000155d0 25 2d 31 0d 5d 11 24 e7 53 49 54 6e 5f 25 28 5a |%-1.].$.SITn_%(Z|
000155e0 25 2b 31 29 3d 43 53 75 4e 75 6d 62 65 72 5f 25 |%+1)=CSuNumber_%|
000155f0 28 43 53 5f 25 29 8c 0d 5d 16 30 e7 53 49 54 65 |(CS_%)..].0.SITe|
00015600 5f 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b 36 29 |_$(Z%*sitif_%+6)|
00015610 3c 3e 53 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 |<>SITe_$(Z%*siti|
00015620 66 5f 25 2b 39 29 8c 0d 5d 1b 5c 41 25 3d a4 6e |f_%+9)..].\A%=.n|
00015630 69 5f 28 53 49 54 65 5f 24 28 5a 25 2a 73 69 74 |i_(SITe_$(Z%*sit|
00015640 69 66 5f 25 2b 36 29 29 3a 45 25 3d a4 6e 69 5f |if_%+6)):E%=.ni_|
00015650 28 53 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 66 |(SITe_$(Z%*sitif|
00015660 5f 25 2b 39 29 29 3a 42 25 3d 45 25 3a 44 25 3d |_%+9)):B%=E%:D%=|
00015670 41 25 2d 42 25 3a 42 25 2b 3d 44 25 3a 43 25 2d |A%-B%:B%+=D%:C%-|
00015680 3d 44 25 0d 5d 20 15 e7 43 25 3c 30 3a 42 25 2b |=D%.] ..C%<0:B%+|
00015690 3d 43 25 3a 43 25 3d 30 0d 5d 25 1e e7 53 49 54 |=C%:C%=0.]%..SIT|
000156a0 73 5f 24 28 5a 25 29 3d 51 5f 24 3a 46 25 3d 31 |s_$(Z%)=Q_$:F%=1|
000156b0 20 8b 46 25 3d 30 0d 5d 2a 0e e7 73 61 6c 65 64 | .F%=0.]*..saled|
000156c0 25 3d 30 8c 0d 5d 2f 2c e7 43 31 32 30 5f 25 3d |%=0..]/,.C120_%=|
000156d0 31 3a 53 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 |1:SITe_$(Z%*siti|
000156e0 66 5f 25 2b 31 29 3d 62 5f 24 3a 5a 5f 25 3d 31 |f_%+1)=b_$:Z_%=1|
000156f0 0d 5d 34 3e 53 49 54 65 5f 24 28 5a 25 2a 73 69 |.]4>SITe_$(Z%*si|
00015700 74 69 66 5f 25 2b 39 29 3d a4 63 6f 6e 76 69 73 |tif_%+9)=.convis|
00015710 5f 28 42 25 2c 22 22 29 3a e7 42 25 3d 41 25 3a |_(B%,""):.B%=A%:|
00015720 53 49 54 73 5f 24 28 5a 25 29 3d 51 5f 24 0d 5d |SITs_$(Z%)=Q_$.]|
00015730 39 3e 24 74 5f 25 3d 53 49 54 65 5f 24 28 5a 25 |9>$t_%=SITe_$(Z%|
00015740 2a 73 69 74 69 66 5f 25 2b 34 29 3a 24 75 5f 25 |*sitif_%+4):$u_%|
00015750 3d 53 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 66 |=SITe_$(Z%*sitif|
00015760 5f 25 2b 31 30 29 3a d6 6d 32 5f 25 0d 5d 3e 0e |_%+10):.m2_%.]>.|
00015770 e7 24 74 5f 25 3c 3e 22 22 8c 0d 5d 43 1b 41 5f |.$t_%<>""..]C.A_|
00015780 25 3d 97 28 24 74 5f 25 29 2d 36 34 3a e7 41 5f |%=.($t_%)-64:.A_|
00015790 25 3c 31 33 8c 0d 5d 48 d1 42 61 6e 6b 43 43 5f |%<13..]H.BankCC_|
000157a0 25 28 41 5f 25 29 3d a4 61 64 64 5f 28 42 61 6e |%(A_%)=.add_(Ban|
000157b0 6b 43 43 5f 25 28 41 5f 25 29 2c 2d 45 25 2b 42 |kCC_%(A_%),-E%+B|
000157c0 25 29 3a e7 46 25 3d 31 80 53 49 54 73 5f 24 28 |%):.F%=1.SITs_$(|
000157d0 5a 25 29 3d 51 5f 24 8c 42 61 6e 6b 53 53 5f 25 |Z%)=Q_$.BankSS_%|
000157e0 28 41 5f 25 29 3d a4 61 64 64 5f 28 42 61 6e 6b |(A_%)=.add_(Bank|
000157f0 53 53 5f 25 28 41 5f 25 29 2c 2d 45 25 2b 42 25 |SS_%(A_%),-E%+B%|
00015800 29 20 8b e7 46 25 3d 31 3a 42 61 6e 6b 53 53 5f |) ..F%=1:BankSS_|
00015810 25 28 41 5f 25 29 3d a4 61 64 64 5f 28 42 61 6e |%(A_%)=.add_(Ban|
00015820 6b 53 53 5f 25 28 41 5f 25 29 2c 2d 45 25 29 20 |kSS_%(A_%),-E%) |
00015830 8b e7 53 49 54 73 5f 24 28 5a 25 29 3d 51 5f 24 |..SITs_$(Z%)=Q_$|
00015840 8c 42 61 6e 6b 53 53 5f 25 28 41 5f 25 29 3d a4 |.BankSS_%(A_%)=.|
00015850 61 64 64 5f 28 42 61 6e 6b 53 53 5f 25 28 41 5f |add_(BankSS_%(A_|
00015860 25 29 2c 42 25 29 0d 5d 4d 14 63 5f 25 3d a4 75 |%),B%).]M.c_%=.u|
00015870 70 64 61 74 65 62 61 6e 6b 5f 0d 5d 52 05 cd 0d |pdatebank_.]R...|
00015880 5d 57 05 cd 0d 5d 5c 18 e7 a9 28 24 75 5f 25 29 |]W...]\...($u_%)|
00015890 3d 31 8c 24 75 5f 25 2b 3d 22 41 22 0d 5d 61 c4 |=1.$u_%+="A".]a.|
000158a0 e7 24 75 5f 25 3c 3e 22 22 8c 41 5f 25 3d 97 28 |.$u_%<>"".A_%=.(|
000158b0 24 75 5f 25 29 2d 36 35 3a 42 5f 25 3d 97 28 c2 |$u_%)-65:B_%=.(.|
000158c0 24 75 5f 25 2c 31 29 29 2d 36 35 3a e7 41 5f 25 |$u_%,1))-65:.A_%|
000158d0 3c 31 32 80 42 5f 25 3c 38 8c 41 5f 25 3d 41 5f |<12.B_%<8.A_%=A_|
000158e0 25 2a 34 30 2b 42 5f 25 2a 35 2b 32 3a 53 68 65 |%*40+B_%*5+2:She|
000158f0 61 64 74 31 5f 25 28 41 5f 25 29 3d a4 61 64 64 |adt1_%(A_%)=.add|
00015900 5f 28 53 68 65 61 64 74 31 5f 25 28 41 5f 25 29 |_(Sheadt1_%(A_%)|
00015910 2c 2d 45 25 2b 42 25 29 3a 53 68 65 61 64 74 31 |,-E%+B%):Sheadt1|
00015920 5f 25 28 41 5f 25 2b 31 29 3d 53 68 65 61 64 74 |_%(A_%+1)=Sheadt|
00015930 31 5f 25 28 41 5f 25 2b 31 29 2d 28 41 25 2d 45 |1_%(A_%+1)-(A%-E|
00015940 25 29 2b 28 41 25 2d 42 25 29 3a 63 5f 25 3d a4 |%)+(A%-B%):c_%=.|
00015950 75 70 64 61 74 65 68 65 61 64 73 4d 5f 28 31 29 |updateheadsM_(1)|
00015960 0d 5d 66 05 cc 0d 5d 6b 52 f2 67 65 74 53 49 54 |.]f...]kR.getSIT|
00015970 64 61 74 5f 3a 46 5f 25 3d 34 3a 44 5f 25 3d 5a |dat_:F_%=4:D_%=Z|
00015980 25 2d 73 69 74 70 5f 25 2d 34 3a 45 5f 25 3d 73 |%-sitp_%-4:E_%=s|
00015990 69 74 70 5f 25 2b 44 5f 25 3a e7 45 5f 25 3c 3d |itp_%+D_%:.E_%<=|
000159a0 30 3a 46 5f 25 3d 34 2d 94 28 45 5f 25 29 3a 44 |0:F_%=4-.(E_%):D|
000159b0 5f 25 2d 3d 45 5f 25 0d 5d 70 45 73 69 74 70 5f |_%-=E_%.]pEsitp_|
000159c0 25 2b 3d 44 5f 25 3a f2 73 65 74 53 49 54 64 61 |%+=D_%:.setSITda|
000159d0 74 5f 28 2d 44 5f 25 29 3a 61 5f 24 3d a4 63 6f |t_(-D_%):a_$=.co|
000159e0 6e 76 69 73 5f 28 42 25 2c 22 22 29 3a e7 42 25 |nvis_(B%,""):.B%|
000159f0 3d 41 25 3a 61 5f 24 2b 3d 22 52 22 0d 5d 75 53 |=A%:a_$+="R".]uS|
00015a00 63 5f 25 3d a4 70 49 49 28 73 61 6c 65 64 25 2c |c_%=.pII(saled%,|
00015a10 46 5f 25 2a 73 69 74 69 66 5f 25 2b 39 2c 61 5f |F_%*sitif_%+9,a_|
00015a20 24 29 3a e7 43 31 32 30 5f 25 3d 31 3a 63 5f 25 |$):.C120_%=1:c_%|
00015a30 3d a4 70 49 49 28 73 61 6c 65 64 25 2c 46 5f 25 |=.pII(saled%,F_%|
00015a40 2a 73 69 74 69 66 5f 25 2b 31 2c 62 5f 24 29 0d |*sitif_%+1,b_$).|
00015a50 5d 7a 05 cd 0d 5d 7f 1d e7 43 25 3d 30 3a 5a 25 |]z...]...C%=0:Z%|
00015a60 3d 6d 61 78 53 5f 25 2a 73 69 74 69 70 5f 25 2d |=maxS_%*sitip_%-|
00015a70 31 0d 5d 84 05 cd 0d 5d 89 05 cd 0d 5d 8e 05 ed |1.]....]....]...|
00015a80 0d 5d 93 0a e7 43 25 3e 30 8c 0d 5d 98 c1 6f 6c |.]...C%>0..]..ol|
00015a90 64 64 61 74 61 5f 24 28 30 29 3d 62 5f 24 3a 6f |ddata_$(0)=b_$:o|
00015aa0 6c 64 64 61 74 61 5f 24 28 31 29 3d c2 62 5f 24 |lddata_$(1)=.b_$|
00015ab0 2c 37 29 3a 6f 6c 64 64 61 74 61 5f 24 28 32 29 |,7):olddata_$(2)|
00015ac0 3d 43 53 75 70 70 6c 69 65 72 73 5f 24 28 43 53 |=CSuppliers_$(CS|
00015ad0 5f 25 29 3a 6f 6c 64 64 61 74 61 5f 24 28 33 29 |_%):olddata_$(3)|
00015ae0 3d 49 54 61 63 63 5f 24 3a 6f 6c 64 64 61 74 61 |=ITacc_$:olddata|
00015af0 5f 24 28 34 29 3d 22 43 72 65 64 69 74 22 3a 6f |_$(4)="Credit":o|
00015b00 6c 64 64 61 74 61 5f 24 28 35 29 3d 22 22 3a 6f |lddata_$(5)="":o|
00015b10 6c 64 64 61 74 61 5f 24 28 36 29 3d 22 22 3a 6f |lddata_$(6)="":o|
00015b20 6c 64 64 61 74 61 5f 24 28 37 29 3d 22 22 3a 6f |lddata_$(7)="":o|
00015b30 6c 64 64 61 74 61 5f 24 28 38 29 3d a4 63 6f 6e |lddata_$(8)=.con|
00015b40 76 69 73 5f 28 43 25 2c 22 22 29 0d 5d 9d 3c 6f |vis_(C%,"").].<o|
00015b50 6c 64 64 61 74 61 5f 24 28 39 29 3d 49 54 68 65 |lddata_$(9)=IThe|
00015b60 61 64 5f 24 3a 6f 6c 64 64 61 74 61 5f 24 28 31 |ad_$:olddata_$(1|
00015b70 30 29 3d 22 22 3a 6f 6c 64 64 61 74 61 5f 24 28 |0)="":olddata_$(|
00015b80 31 31 29 3d 22 6f 22 0d 5d a2 bf e7 a4 52 45 6c |11)="o".]....REl|
00015b90 65 64 67 65 72 5f 28 32 29 3d a3 3a c8 99 26 34 |edger_(2)=.:..&4|
00015ba0 30 36 43 31 3a f2 70 65 5f 28 22 53 61 6c 65 73 |06C1:.pe_("Sales|
00015bb0 20 4c 65 64 67 65 72 20 66 75 6c 6c 2e 20 49 6e | Ledger full. In|
00015bc0 63 72 65 61 73 65 20 70 72 65 66 65 72 65 6e 63 |crease preferenc|
00015bd0 65 20 6c 65 76 65 6c 73 2c 20 73 61 76 65 20 79 |e levels, save y|
00015be0 6f 75 72 20 77 6f 72 6b 20 61 6e 64 20 71 75 69 |our work and qui|
00015bf0 74 2c 20 72 65 2d 6c 6f 61 64 20 69 74 20 61 6e |t, re-load it an|
00015c00 64 20 65 6e 74 65 72 20 61 6e 20 65 78 74 72 61 |d enter an extra|
00015c10 20 55 4e 50 41 49 44 20 73 61 6c 65 73 20 65 6e | UNPAID sales en|
00015c20 74 72 79 20 66 6f 72 20 22 2b c3 28 2d 43 25 29 |try for "+.(-C%)|
00015c30 2b 22 20 28 43 52 45 44 49 54 29 22 29 3a c8 99 |+" (CREDIT)"):..|
00015c40 26 34 30 36 43 30 0d 5d a7 05 cc 0d 5d ac 19 e7 |&406C0.]....]...|
00015c50 73 61 6c 65 64 25 3e 30 3a f2 67 65 74 53 49 54 |saled%>0:.getSIT|
00015c60 64 61 74 5f 0d 5d b1 15 cd 3a e7 5a 5f 25 3d 31 |dat_.]...:.Z_%=1|
00015c70 3a f2 53 69 53 6f 72 74 5f 0d 5d b6 58 c8 99 26 |:.SiSort_.].X..&|
00015c80 34 30 36 43 31 3a 24 21 43 31 30 5f 25 3d 22 22 |406C1:$!C10_%=""|
00015c90 3a f2 72 49 28 63 63 72 65 64 25 2c 22 43 31 30 |:.rI(ccred%,"C10|
00015ca0 22 29 3a f2 73 65 74 43 5f 28 31 34 29 3a 6f 63 |"):.setC_(14):oc|
00015cb0 63 72 65 64 5f 25 3d 30 3a f2 75 70 64 61 74 65 |cred_%=0:.update|
00015cc0 63 63 72 65 64 5f 28 43 53 5f 25 2c 31 29 3a 3d |ccred_(CS_%,1):=|
00015cd0 b9 0d 5d bb 14 dd a4 49 69 6e 69 74 4f 72 64 65 |..]....IinitOrde|
00015ce0 72 6e 75 6d 5f 0d 5d c0 1f 24 21 49 4f 72 64 65 |rnum_.]..$!IOrde|
00015cf0 72 6e 75 6d 5f 25 3d 49 4f 72 64 65 72 53 5f 24 |rnum_%=IOrderS_$|
00015d00 28 31 39 29 0d 5d c5 19 24 21 4f 72 64 65 72 6e |(19).]..$!Ordern|
00015d10 75 6d 5f 25 3d 22 30 30 30 30 30 31 22 0d 5d ca |um_%="000001".].|
00015d20 06 3d b9 0d 5d cf 1c dd a4 4f 72 64 65 72 6e 75 |.=..]....Ordernu|
00015d30 6d 5f 3a 3d a4 49 4f 72 64 65 72 6e 75 6d 5f 0d |m_:=.IOrdernum_.|
00015d40 5d d4 10 dd a4 49 4f 72 64 65 72 6e 75 6d 5f 0d |]....IOrdernum_.|
00015d50 5d d9 31 e7 24 21 49 4f 72 64 65 72 6e 75 6d 5f |].1.$!IOrdernum_|
00015d60 25 3c 3e 49 4f 72 64 65 72 53 5f 24 28 31 39 29 |%<>IOrderS_$(19)|
00015d70 8c 49 4f 72 64 65 72 63 68 25 28 31 39 29 3d 31 |.IOrderch%(19)=1|
00015d80 0d 5d de 3b e7 24 21 49 4f 72 64 65 72 6e 75 6d |.].;.$!IOrdernum|
00015d90 5f 25 3d 22 22 8c 24 21 49 4f 72 64 65 72 6e 75 |_%="".$!IOrdernu|
00015da0 6d 5f 25 3d 22 31 22 3a f2 72 49 28 57 25 2c 22 |m_%="1":.rI(W%,"|
00015db0 49 4f 72 64 65 72 6e 75 6d 22 29 0d 5d e3 1f 49 |IOrdernum").]..I|
00015dc0 4f 72 64 65 72 53 5f 24 28 31 39 29 3d 24 21 49 |OrderS_$(19)=$!I|
00015dd0 4f 72 64 65 72 6e 75 6d 5f 25 0d 5d e8 3e e7 24 |Ordernum_%.].>.$|
00015de0 21 4f 72 64 65 72 6e 75 6d 5f 25 3c 3e 22 4e 2f |!Ordernum_%<>"N/|
00015df0 41 22 8c 24 21 4f 72 64 65 72 6e 75 6d 5f 25 3d |A".$!Ordernum_%=|
00015e00 22 4e 2f 41 22 3a f2 72 49 28 57 25 2c 22 4f 72 |"N/A":.rI(W%,"Or|
00015e10 64 65 72 6e 75 6d 22 29 0d 5d f7 18 e7 52 25 3d |dernum").]...R%=|
00015e20 31 32 3a f2 73 65 74 43 5f 28 4f 6e 75 6d 25 29 |12:.setC_(Onum%)|
00015e30 0d 5d fc 06 3d b9 0d 5e 01 d7 dd a4 69 6e 69 74 |.]..=..^....init|
00015e40 56 61 74 57 5f 3a 24 21 56 61 74 43 31 5f 25 3d |VatW_:$!VatC1_%=|
00015e50 a4 63 6f 6e 76 69 73 5f 28 56 61 5f 25 28 32 29 |.convis_(Va_%(2)|
00015e60 2c 22 30 22 29 3a 24 21 56 61 74 4e 31 5f 25 3d |,"0"):$!VatN1_%=|
00015e70 56 61 5f 24 28 32 29 3a 24 21 56 61 74 43 32 5f |Va_$(2):$!VatC2_|
00015e80 25 3d a4 63 6f 6e 76 69 73 5f 28 56 61 5f 25 28 |%=.convis_(Va_%(|
00015e90 33 29 2c 22 30 22 29 3a 24 21 56 61 74 4e 32 5f |3),"0"):$!VatN2_|
00015ea0 25 3d 56 61 5f 24 28 33 29 3a 24 21 56 61 74 43 |%=Va_$(3):$!VatC|
00015eb0 33 5f 25 3d a4 63 6f 6e 76 69 73 5f 28 56 61 5f |3_%=.convis_(Va_|
00015ec0 25 28 34 29 2c 22 30 22 29 3a 24 21 56 61 74 4e |%(4),"0"):$!VatN|
00015ed0 33 5f 25 3d 56 61 5f 24 28 34 29 3a 24 21 56 61 |3_%=Va_$(4):$!Va|
00015ee0 74 43 34 5f 25 3d a4 63 6f 6e 76 69 73 5f 28 56 |tC4_%=.convis_(V|
00015ef0 61 5f 25 28 35 29 2c 22 30 22 29 3a 24 21 56 61 |a_%(5),"0"):$!Va|
00015f00 74 4e 34 5f 25 3d 56 61 5f 24 28 35 29 0d 5e 06 |tN4_%=Va_$(5).^.|
00015f10 38 24 21 56 61 74 43 35 5f 25 3d a4 63 6f 6e 76 |8$!VatC5_%=.conv|
00015f20 69 73 5f 28 56 61 5f 25 28 36 29 2c 22 30 22 29 |is_(Va_%(6),"0")|
00015f30 3a 24 21 56 61 74 4e 35 5f 25 3d 56 61 5f 24 28 |:$!VatN5_%=Va_$(|
00015f40 36 29 3a 3d b9 0d 5e 0b 19 dd a4 56 61 74 57 5f |6):=..^....VatW_|
00015f50 3a e7 65 72 72 6f 72 5f 25 3e 30 8c 3d b9 0d 5e |:.error_%>0.=..^|
00015f60 10 b4 ea 20 5a 25 2c 5a 24 3a 56 61 5f 25 28 32 |... Z%,Z$:Va_%(2|
00015f70 32 29 3d 56 61 5f 25 28 32 29 3a 56 61 5f 25 28 |2)=Va_%(2):Va_%(|
00015f80 32 33 29 3d 56 61 5f 25 28 33 29 3a 56 61 5f 25 |23)=Va_%(3):Va_%|
00015f90 28 32 34 29 3d 56 61 5f 25 28 34 29 3a 56 61 5f |(24)=Va_%(4):Va_|
00015fa0 25 28 32 35 29 3d 56 61 5f 25 28 35 29 3a 56 61 |%(25)=Va_%(5):Va|
00015fb0 5f 25 28 32 36 29 3d 56 61 5f 25 28 36 29 3a 56 |_%(26)=Va_%(6):V|
00015fc0 61 5f 25 28 32 29 3d a4 6e 69 5f 28 24 21 56 61 |a_%(2)=.ni_($!Va|
00015fd0 74 43 31 5f 25 29 3a 56 61 5f 24 28 32 29 3d 24 |tC1_%):Va_$(2)=$|
00015fe0 21 56 61 74 4e 31 5f 25 3a 56 61 5f 25 28 33 29 |!VatN1_%:Va_%(3)|
00015ff0 3d a4 6e 69 5f 28 24 21 56 61 74 43 32 5f 25 29 |=.ni_($!VatC2_%)|
00016000 3a 56 61 5f 24 28 33 29 3d 24 21 56 61 74 4e 32 |:Va_$(3)=$!VatN2|
00016010 5f 25 0d 5e 15 81 56 61 5f 25 28 34 29 3d a4 6e |_%.^..Va_%(4)=.n|
00016020 69 5f 28 24 21 56 61 74 43 33 5f 25 29 3a 56 61 |i_($!VatC3_%):Va|
00016030 5f 24 28 34 29 3d 24 21 56 61 74 4e 33 5f 25 3a |_$(4)=$!VatN3_%:|
00016040 56 61 5f 25 28 35 29 3d a4 6e 69 5f 28 24 21 56 |Va_%(5)=.ni_($!V|
00016050 61 74 43 34 5f 25 29 3a 56 61 5f 24 28 35 29 3d |atC4_%):Va_$(5)=|
00016060 24 21 56 61 74 4e 34 5f 25 3a 56 61 5f 25 28 36 |$!VatN4_%:Va_%(6|
00016070 29 3d a4 6e 69 5f 28 24 21 56 61 74 43 35 5f 25 |)=.ni_($!VatC5_%|
00016080 29 3a 56 61 5f 24 28 36 29 3d 24 21 56 61 74 4e |):Va_$(6)=$!VatN|
00016090 35 5f 25 0d 5e 1a 5f e7 56 61 5f 25 28 32 32 29 |5_%.^._.Va_%(22)|
000160a0 3c 3e 56 61 5f 25 28 32 29 84 56 61 5f 25 28 32 |<>Va_%(2).Va_%(2|
000160b0 33 29 3c 3e 56 61 5f 25 28 33 29 84 56 61 5f 25 |3)<>Va_%(3).Va_%|
000160c0 28 32 34 29 3c 3e 56 61 5f 25 28 34 29 84 56 61 |(24)<>Va_%(4).Va|
000160d0 5f 25 28 32 35 29 3c 3e 56 61 5f 25 28 35 29 84 |_%(25)<>Va_%(5).|
000160e0 56 61 5f 25 28 32 36 29 3c 3e 56 61 5f 25 28 36 |Va_%(26)<>Va_%(6|
000160f0 29 8c 0d 5e 1f 65 65 72 72 6f 72 5f 25 3d 31 3a |)..^.eerror_%=1:|
00016100 5a 24 3d a4 61 6c 65 72 74 28 22 41 62 6f 75 74 |Z$=.alert("About|
00016110 20 74 6f 20 75 70 64 61 74 65 20 61 6c 6c 20 22 | to update all "|
00016120 2b 56 41 54 5f 24 2b 22 20 72 65 6c 61 74 65 64 |+VAT_$+" related|
00016130 20 73 74 6f 63 6b 20 4f 4b 3f 22 2c 22 22 2c 22 | stock OK?","","|
00016140 59 45 53 22 2c 22 4e 4f 22 2c 22 61 72 5f 71 75 |YES","NO","ar_qu|
00016150 65 73 74 22 2c 31 29 0d 5e 29 0d 65 72 72 6f 72 |est",1).^).error|
00016160 5f 25 3d 30 0d 5e 2e 05 cd 0d 5e 33 3d 56 61 5f |_%=0.^....^3=Va_|
00016170 25 28 32 32 29 3d 30 3a 56 61 5f 25 28 32 33 29 |%(22)=0:Va_%(23)|
00016180 3d 30 3a 56 61 5f 25 28 32 34 29 3d 30 3a 56 61 |=0:Va_%(24)=0:Va|
00016190 5f 25 28 32 35 29 3d 30 3a 56 61 5f 25 28 32 36 |_%(25)=0:Va_%(26|
000161a0 29 3d 30 3a 3d b9 0d 5e 38 14 dd a4 56 61 74 43 |)=0:=..^8...VatC|
000161b0 31 5f 3a 3d a4 56 61 74 57 5f 0d 5e 3d 14 dd a4 |1_:=.VatW_.^=...|
000161c0 56 61 74 43 32 5f 3a 3d a4 56 61 74 57 5f 0d 5e |VatC2_:=.VatW_.^|
000161d0 42 14 dd a4 56 61 74 43 33 5f 3a 3d a4 56 61 74 |B...VatC3_:=.Vat|
000161e0 57 5f 0d 5e 47 14 dd a4 56 61 74 43 34 5f 3a 3d |W_.^G...VatC4_:=|
000161f0 a4 56 61 74 57 5f 0d 5e 4c 14 dd a4 56 61 74 43 |.VatW_.^L...VatC|
00016200 35 5f 3a 3d a4 56 61 74 57 5f 0d 5e 51 14 dd a4 |5_:=.VatW_.^Q...|
00016210 56 61 74 4e 31 5f 3a 3d a4 56 61 74 57 5f 0d 5e |VatN1_:=.VatW_.^|
00016220 56 14 dd a4 56 61 74 4e 32 5f 3a 3d a4 56 61 74 |V...VatN2_:=.Vat|
00016230 57 5f 0d 5e 5b 14 dd a4 56 61 74 4e 33 5f 3a 3d |W_.^[...VatN3_:=|
00016240 a4 56 61 74 57 5f 0d 5e 60 14 dd a4 56 61 74 4e |.VatW_.^`...VatN|
00016250 34 5f 3a 3d a4 56 61 74 57 5f 0d 5e 65 14 dd a4 |4_:=.VatW_.^e...|
00016260 56 61 74 4e 35 5f 3a 3d a4 56 61 74 57 5f 0d 5e |VatN5_:=.VatW_.^|
00016270 6a 04 0d 5e 6f 10 dd a4 69 6e 69 74 50 61 73 73 |j..^o...initPass|
00016280 57 5f 0d 5e 74 33 e7 70 61 73 73 31 5f 24 3c 3e |W_.^t3.pass1_$<>|
00016290 22 22 8c 24 21 53 70 61 73 73 31 31 5f 25 3d 22 |"".$!Spass11_%="|
000162a0 4f 4e 22 8b 24 21 53 70 61 73 73 31 31 5f 25 3d |ON".$!Spass11_%=|
000162b0 22 4f 66 66 22 0d 5e 79 33 e7 70 61 73 73 32 5f |"Off".^y3.pass2_|
000162c0 24 3c 3e 22 22 8c 24 21 53 70 61 73 73 32 32 5f |$<>"".$!Spass22_|
000162d0 25 3d 22 4f 4e 22 8b 24 21 53 70 61 73 73 32 32 |%="ON".$!Spass22|
000162e0 5f 25 3d 22 4f 66 66 22 0d 5e 7e 33 e7 70 61 73 |_%="Off".^~3.pas|
000162f0 73 33 5f 24 3c 3e 22 22 8c 24 21 53 70 61 73 73 |s3_$<>"".$!Spass|
00016300 33 33 5f 25 3d 22 4f 4e 22 8b 24 21 53 70 61 73 |33_%="ON".$!Spas|
00016310 73 33 33 5f 25 3d 22 4f 66 66 22 0d 5e 83 33 e7 |s33_%="Off".^.3.|
00016320 70 61 73 73 34 5f 24 3c 3e 22 22 8c 24 21 53 70 |pass4_$<>"".$!Sp|
00016330 61 73 73 34 34 5f 25 3d 22 4f 4e 22 8b 24 21 53 |ass44_%="ON".$!S|
00016340 70 61 73 73 34 34 5f 25 3d 22 4f 66 66 22 0d 5e |pass44_%="Off".^|
00016350 88 33 e7 70 61 73 73 35 5f 24 3c 3e 22 22 8c 24 |.3.pass5_$<>"".$|
00016360 21 53 70 61 73 73 35 35 5f 25 3d 22 4f 4e 22 8b |!Spass55_%="ON".|
00016370 24 21 53 70 61 73 73 35 35 5f 25 3d 22 4f 66 66 |$!Spass55_%="Off|
00016380 22 0d 5e 8d 33 e7 70 61 73 73 36 5f 24 3c 3e 22 |".^.3.pass6_$<>"|
00016390 22 8c 24 21 53 70 61 73 73 36 36 5f 25 3d 22 4f |".$!Spass66_%="O|
000163a0 4e 22 8b 24 21 53 70 61 73 73 36 36 5f 25 3d 22 |N".$!Spass66_%="|
000163b0 4f 66 66 22 0d 5e 92 33 e7 70 61 73 73 37 5f 24 |Off".^.3.pass7_$|
000163c0 3c 3e 22 22 8c 24 21 53 70 61 73 73 37 37 5f 25 |<>"".$!Spass77_%|
000163d0 3d 22 4f 4e 22 8b 24 21 53 70 61 73 73 37 37 5f |="ON".$!Spass77_|
000163e0 25 3d 22 4f 66 66 22 0d 5e 97 33 e7 70 61 73 73 |%="Off".^.3.pass|
000163f0 41 5f 24 3c 3e 22 22 8c 24 21 53 70 61 73 73 41 |A_$<>"".$!SpassA|
00016400 41 5f 25 3d 22 4f 4e 22 8b 24 21 53 70 61 73 73 |A_%="ON".$!Spass|
00016410 41 41 5f 25 3d 22 4f 66 66 22 0d 5e 9c 8c 24 21 |AA_%="Off".^..$!|
00016420 70 61 73 73 31 31 5f 25 3d 22 22 3a 24 21 70 61 |pass11_%="":$!pa|
00016430 73 73 32 32 5f 25 3d 22 22 3a 24 21 70 61 73 73 |ss22_%="":$!pass|
00016440 33 33 5f 25 3d 22 22 3a 24 21 70 61 73 73 34 34 |33_%="":$!pass44|
00016450 5f 25 3d 22 22 3a 24 21 70 61 73 73 35 35 5f 25 |_%="":$!pass55_%|
00016460 3d 22 22 3a 24 21 70 61 73 73 36 36 5f 25 3d 22 |="":$!pass66_%="|
00016470 22 3a 24 21 70 61 73 73 37 37 5f 25 3d 22 22 3a |":$!pass77_%="":|
00016480 24 21 70 61 73 73 41 41 5f 25 3d 22 22 3a 24 21 |$!passAA_%="":$!|
00016490 70 61 73 73 6d 65 73 73 5f 25 3d 70 61 73 73 6d |passmess_%=passm|
000164a0 31 5f 24 3a 3d b9 0d 5e a1 04 0d 5e a6 54 dd a4 |1_$:=..^...^.T..|
000164b0 70 61 73 73 5f 28 41 5f 24 2c 41 5f 25 2c 42 5f |pass_(A_$,A_%,B_|
000164c0 25 2c 61 5f 25 2c 42 5f 24 2c 43 5f 24 29 3a e7 |%,a_%,B_$,C_$):.|
000164d0 41 5f 24 3d 22 22 80 24 21 41 5f 25 3c 3e 22 22 |A_$="".$!A_%<>""|
000164e0 8c 41 5f 24 3d 24 21 41 5f 25 3a 24 21 42 5f 25 |.A_$=$!A_%:$!B_%|
000164f0 3d 22 4f 4e 22 3a 24 21 41 5f 25 3d 22 22 0d 5e |="ON":$!A_%="".^|
00016500 ab 34 e7 41 5f 24 3d 24 21 41 5f 25 8c 41 5f 24 |.4.A_$=$!A_%.A_$|
00016510 3d 22 22 3a 24 21 41 5f 25 3d 41 5f 24 3a 24 21 |="":$!A_%=A_$:$!|
00016520 42 5f 25 3d 22 4f 66 66 22 3a 24 21 41 5f 25 3d |B_%="Off":$!A_%=|
00016530 22 22 0d 5e b0 80 e7 41 5f 24 3c 3e 22 22 80 24 |"".^...A_$<>"".$|
00016540 21 41 5f 25 3c 3e 22 22 3a e7 41 5f 24 3c 3e 24 |!A_%<>"":.A_$<>$|
00016550 21 41 5f 25 8c f2 73 65 74 43 5f 28 61 5f 25 29 |!A_%..setC_(a_%)|
00016560 3a 24 21 41 5f 25 3d 22 22 3a 24 21 42 5f 25 3d |:$!A_%="":$!B_%=|
00016570 22 57 72 6f 6e 67 22 3a f2 72 49 28 57 25 2c 42 |"Wrong":.rI(W%,B|
00016580 5f 24 29 3a f2 70 61 75 73 65 28 31 30 30 29 3a |_$):.pause(100):|
00016590 24 21 42 5f 25 3d 22 4f 4e 22 3a f2 72 49 28 57 |$!B_%="ON":.rI(W|
000165a0 25 2c 43 5f 24 29 3a f2 73 65 74 43 5f 28 61 5f |%,C_$):.setC_(a_|
000165b0 25 29 0d 5e b5 20 f2 72 49 28 57 25 2c 43 5f 24 |%).^. .rI(W%,C_$|
000165c0 29 3a f2 72 49 28 57 25 2c 42 5f 24 29 3a 3d 41 |):.rI(W%,B_$):=A|
000165d0 5f 24 0d 5e ba 04 0d 5e bf 50 dd a4 70 61 73 73 |_$.^...^.P..pass|
000165e0 31 31 5f 3a 70 61 73 73 31 5f 24 3d a4 70 61 73 |11_:pass1_$=.pas|
000165f0 73 5f 28 70 61 73 73 31 5f 24 2c 70 61 73 73 31 |s_(pass1_$,pass1|
00016600 31 5f 25 2c 53 70 61 73 73 31 31 5f 25 2c 30 2c |1_%,Spass11_%,0,|
00016610 22 53 70 61 73 73 31 31 22 2c 22 70 61 73 73 31 |"Spass11","pass1|
00016620 31 22 29 3a 3d b9 0d 5e c4 50 dd a4 70 61 73 73 |1"):=..^.P..pass|
00016630 32 32 5f 3a 70 61 73 73 32 5f 24 3d a4 70 61 73 |22_:pass2_$=.pas|
00016640 73 5f 28 70 61 73 73 32 5f 24 2c 70 61 73 73 32 |s_(pass2_$,pass2|
00016650 32 5f 25 2c 53 70 61 73 73 32 32 5f 25 2c 31 2c |2_%,Spass22_%,1,|
00016660 22 53 70 61 73 73 32 32 22 2c 22 70 61 73 73 32 |"Spass22","pass2|
00016670 32 22 29 3a 3d b9 0d 5e c9 50 dd a4 70 61 73 73 |2"):=..^.P..pass|
00016680 33 33 5f 3a 70 61 73 73 33 5f 24 3d a4 70 61 73 |33_:pass3_$=.pas|
00016690 73 5f 28 70 61 73 73 33 5f 24 2c 70 61 73 73 33 |s_(pass3_$,pass3|
000166a0 33 5f 25 2c 53 70 61 73 73 33 33 5f 25 2c 33 2c |3_%,Spass33_%,3,|
000166b0 22 53 70 61 73 73 33 33 22 2c 22 70 61 73 73 33 |"Spass33","pass3|
000166c0 33 22 29 3a 3d b9 0d 5e ce 50 dd a4 70 61 73 73 |3"):=..^.P..pass|
000166d0 34 34 5f 3a 70 61 73 73 34 5f 24 3d a4 70 61 73 |44_:pass4_$=.pas|
000166e0 73 5f 28 70 61 73 73 34 5f 24 2c 70 61 73 73 34 |s_(pass4_$,pass4|
000166f0 34 5f 25 2c 53 70 61 73 73 34 34 5f 25 2c 32 2c |4_%,Spass44_%,2,|
00016700 22 53 70 61 73 73 34 34 22 2c 22 70 61 73 73 34 |"Spass44","pass4|
00016710 34 22 29 3a 3d b9 0d 5e d3 50 dd a4 70 61 73 73 |4"):=..^.P..pass|
00016720 35 35 5f 3a 70 61 73 73 35 5f 24 3d a4 70 61 73 |55_:pass5_$=.pas|
00016730 73 5f 28 70 61 73 73 35 5f 24 2c 70 61 73 73 35 |s_(pass5_$,pass5|
00016740 35 5f 25 2c 53 70 61 73 73 35 35 5f 25 2c 34 2c |5_%,Spass55_%,4,|
00016750 22 53 70 61 73 73 35 35 22 2c 22 70 61 73 73 35 |"Spass55","pass5|
00016760 35 22 29 3a 3d b9 0d 5e d8 50 dd a4 70 61 73 73 |5"):=..^.P..pass|
00016770 36 36 5f 3a 70 61 73 73 36 5f 24 3d a4 70 61 73 |66_:pass6_$=.pas|
00016780 73 5f 28 70 61 73 73 36 5f 24 2c 70 61 73 73 36 |s_(pass6_$,pass6|
00016790 36 5f 25 2c 53 70 61 73 73 36 36 5f 25 2c 35 2c |6_%,Spass66_%,5,|
000167a0 22 53 70 61 73 73 36 36 22 2c 22 70 61 73 73 36 |"Spass66","pass6|
000167b0 36 22 29 3a 3d b9 0d 5e dd 50 dd a4 70 61 73 73 |6"):=..^.P..pass|
000167c0 37 37 5f 3a 70 61 73 73 37 5f 24 3d a4 70 61 73 |77_:pass7_$=.pas|
000167d0 73 5f 28 70 61 73 73 37 5f 24 2c 70 61 73 73 37 |s_(pass7_$,pass7|
000167e0 37 5f 25 2c 53 70 61 73 73 37 37 5f 25 2c 36 2c |7_%,Spass77_%,6,|
000167f0 22 53 70 61 73 73 37 37 22 2c 22 70 61 73 73 37 |"Spass77","pass7|
00016800 37 22 29 3a 3d b9 0d 5e e2 50 dd a4 70 61 73 73 |7"):=..^.P..pass|
00016810 38 38 5f 3a 70 61 73 73 38 5f 24 3d a4 70 61 73 |88_:pass8_$=.pas|
00016820 73 5f 28 70 61 73 73 38 5f 24 2c 70 61 73 73 38 |s_(pass8_$,pass8|
00016830 38 5f 25 2c 53 70 61 73 73 38 38 5f 25 2c 35 2c |8_%,Spass88_%,5,|
00016840 22 53 70 61 73 73 38 38 22 2c 22 70 61 73 73 38 |"Spass88","pass8|
00016850 38 22 29 3a 3d b9 0d 5e e7 50 dd a4 70 61 73 73 |8"):=..^.P..pass|
00016860 39 39 5f 3a 70 61 73 73 39 5f 24 3d a4 70 61 73 |99_:pass9_$=.pas|
00016870 73 5f 28 70 61 73 73 39 5f 24 2c 70 61 73 73 39 |s_(pass9_$,pass9|
00016880 39 5f 25 2c 53 70 61 73 73 39 39 5f 25 2c 31 2c |9_%,Spass99_%,1,|
00016890 22 53 70 61 73 73 39 39 22 2c 22 70 61 73 73 39 |"Spass99","pass9|
000168a0 39 22 29 3a 3d b9 0d 5e ec 5a dd a4 70 61 73 73 |9"):=..^.Z..pass|
000168b0 41 41 5f 3a 70 61 73 73 41 5f 24 3d a4 70 61 73 |AA_:passA_$=.pas|
000168c0 73 5f 28 70 61 73 73 41 5f 24 2c 70 61 73 73 41 |s_(passA_$,passA|
000168d0 41 5f 25 2c 53 70 61 73 73 41 41 5f 25 2c 37 2c |A_%,SpassAA_%,7,|
000168e0 22 53 70 61 73 73 41 41 22 2c 22 70 61 73 73 41 |"SpassAA","passA|
000168f0 41 22 29 3a f2 73 65 74 43 5f 28 37 29 3a 3d b9 |A"):.setC_(7):=.|
00016900 0d 5e f1 04 0d 5f 32 27 dd a4 43 73 75 70 70 75 |.^..._2'..Csuppu|
00016910 70 5f 28 56 5f 25 29 3a e7 24 77 6e 25 3c 3e 22 |p_(V_%):.$wn%<>"|
00016920 43 75 73 74 6f 6d 57 22 8c 3d a3 0d 5f 37 67 e7 |CustomW".=.._7g.|
00016930 24 21 43 53 75 4e 61 6d 65 5f 25 3d 22 22 80 43 |$!CSuName_%="".C|
00016940 53 75 70 70 6c 69 65 72 73 5f 24 28 43 53 5f 25 |Suppliers_$(CS_%|
00016950 29 3c 3e 22 22 8c 24 21 43 53 75 4e 61 6d 65 5f |)<>"".$!CSuName_|
00016960 25 3d 43 53 75 70 70 6c 69 65 72 73 5f 24 28 43 |%=CSuppliers_$(C|
00016970 53 5f 25 29 3a f2 72 49 28 43 53 75 57 25 2c 22 |S_%):.rI(CSuW%,"|
00016980 43 53 75 4e 61 6d 65 22 29 3a f2 77 6c 5f 28 31 |CSuName"):.wl_(1|
00016990 32 29 0d 5f 3c 36 e7 24 21 43 53 75 4e 61 6d 65 |2)._<6.$!CSuName|
000169a0 5f 25 3c 3e 22 22 3a e7 43 53 75 70 70 6c 69 65 |_%<>"":.CSupplie|
000169b0 72 73 5f 24 28 43 53 5f 25 29 3d 22 22 8c 6f 63 |rs_$(CS_%)="".oc|
000169c0 63 72 65 64 5f 25 3d 30 0d 5f 41 17 ea 20 5a 25 |cred_%=0._A.. Z%|
000169d0 2c 42 25 2c 43 25 2c 41 24 2c 56 24 2c 5a 24 0d |,B%,C%,A$,V$,Z$.|
000169e0 5f 46 6f e7 21 69 25 3e 43 73 75 69 5f 25 2d 31 |_Fo.!i%>Csui_%-1|
000169f0 80 21 69 25 3c 43 73 75 69 5f 25 2b 32 31 8c 43 |.!i%<Csui_%+21.C|
00016a00 53 75 49 5f 25 3d 21 69 25 3a e7 56 5f 25 3d 30 |SuI_%=!i%:.V_%=0|
00016a10 80 21 69 25 3c 43 73 75 69 5f 25 2b 32 31 8c 43 |.!i%<Csui_%+21.C|
00016a20 53 75 49 5f 25 3d 43 53 75 49 5f 25 2b 31 3a e7 |SuI_%=CSuI_%+1:.|
00016a30 43 53 75 49 5f 25 3d 43 73 75 69 5f 25 2b 32 31 |CSuI_%=Csui_%+21|
00016a40 8c 43 53 75 49 5f 25 3d 43 73 75 69 5f 25 0d 5f |.CSuI_%=Csui_%._|
00016a50 4b 11 5a 25 3d a4 43 73 75 70 73 74 6f 63 5f 0d |K.Z%=.Csupstoc_.|
00016a60 5f 50 1e 43 53 5f 25 3d 43 53 5f 25 2b 56 5f 25 |_P.CS_%=CS_%+V_%|
00016a70 3a 5a 25 3d a4 43 53 43 68 65 63 6b 5f 0d 5f 55 |:Z%=.CSCheck_._U|
00016a80 33 5a 25 3d a4 43 69 6e 69 74 73 75 70 70 6c 69 |3Z%=.Cinitsuppli|
00016a90 65 72 5f 3a e7 43 4c 61 62 53 75 25 3e 30 3a 5a |er_:.CLabSu%>0:Z|
00016aa0 25 3d a4 43 75 70 64 61 74 65 73 75 6c 61 62 5f |%=.Cupdatesulab_|
00016ab0 0d 5f 5a 12 f2 73 65 74 43 5f 28 43 53 75 49 5f |._Z..setC_(CSuI_|
00016ac0 25 29 0d 5f 5f 15 e7 56 5f 25 3c 3e 30 8c f2 43 |%).__..V_%<>0..C|
00016ad0 66 69 6c 6c 73 75 5f 0d 5f 64 0b 2a 46 58 31 35 |fillsu_._d.*FX15|
00016ae0 2c 31 0d 5f 69 06 3d a3 0d 5f 6e 04 0d 5f 87 5f |,1._i.=.._n.._._|
00016af0 dd a4 43 73 75 70 73 74 6f 63 5f 3a e7 43 53 75 |..Csupstoc_:.CSu|
00016b00 70 70 6c 69 65 72 73 5f 24 28 43 53 5f 25 29 3c |ppliers_$(CS_%)<|
00016b10 3e 22 22 3a e7 24 21 43 53 75 4e 61 6d 65 5f 25 |>"":.$!CSuName_%|
00016b20 3c 3e 22 22 3a e7 24 21 43 53 75 4e 61 6d 65 5f |<>"":.$!CSuName_|
00016b30 25 3c 3e 43 53 75 70 70 6c 69 65 72 73 5f 24 28 |%<>CSuppliers_$(|
00016b40 43 53 5f 25 29 8c f2 63 68 63 5f 0d 5f 8c 16 3d |CS_%)..chc_._..=|
00016b50 a4 43 75 70 64 61 74 65 73 75 70 70 6c 69 65 72 |.Cupdatesupplier|
00016b60 5f 0d 5f 8e 33 dd f2 63 68 63 5f 3a ea 20 5a 25 |_._.3..chc_:. Z%|
00016b70 2c 5a 5f 25 3a c8 99 26 34 30 36 43 30 3a e3 5a |,Z_%:..&406C0:.Z|
00016b80 25 3d 30 b8 6d 61 78 53 5f 25 2a 73 69 74 69 70 |%=0.maxS_%*sitip|
00016b90 5f 25 2d 31 0d 5f 8f a5 e7 53 49 54 6e 5f 25 28 |_%-1._...SITn_%(|
00016ba0 5a 25 2b 31 29 3d 43 53 75 4e 75 6d 62 65 72 5f |Z%+1)=CSuNumber_|
00016bb0 25 28 43 53 5f 25 29 8c 53 49 54 65 5f 24 28 5a |%(CS_%).SITe_$(Z|
00016bc0 25 2a 73 69 74 69 66 5f 25 2b 33 29 3d 24 21 43 |%*sitif_%+3)=$!C|
00016bd0 53 75 4e 61 6d 65 5f 25 3a e7 73 61 6c 65 64 25 |SuName_%:.saled%|
00016be0 3e 30 3a e7 5a 25 2d 73 69 74 70 5f 25 3e 2d 31 |>0:.Z%-sitp_%>-1|
00016bf0 3a e7 5a 25 2d 73 69 74 70 5f 25 3c 35 8c 5a 5f |:.Z%-sitp_%<5.Z_|
00016c00 25 3d a4 70 49 49 28 73 61 6c 65 64 25 2c 28 5a |%=.pII(saled%,(Z|
00016c10 25 2d 73 69 74 70 5f 25 29 2a 73 69 74 69 66 5f |%-sitp_%)*sitif_|
00016c20 25 2b 33 2c 53 49 54 65 5f 24 28 5a 25 2a 73 69 |%+3,SITe_$(Z%*si|
00016c30 74 69 66 5f 25 2b 33 29 29 0d 5f 90 10 ed 3a c8 |tif_%+3))._...:.|
00016c40 99 26 34 30 36 43 31 3a e1 0d 5f 91 04 0d 5f aa |.&406C1:.._..._.|
00016c50 19 dd f2 43 66 69 6c 6c 73 75 5f 3a e7 43 53 75 |...Cfillsu_:.CSu|
00016c60 57 25 3d 30 8c e1 0d 5f af ae f2 72 49 28 43 53 |W%=0..._...rI(CS|
00016c70 75 57 25 2c 22 43 53 75 4e 61 6d 65 22 29 3a f2 |uW%,"CSuName"):.|
00016c80 72 49 28 43 53 75 57 25 2c 22 43 53 75 41 64 31 |rI(CSuW%,"CSuAd1|
00016c90 31 22 29 3a f2 72 49 28 43 53 75 57 25 2c 22 43 |1"):.rI(CSuW%,"C|
00016ca0 53 75 41 64 32 32 22 29 3a f2 72 49 28 43 53 75 |SuAd22"):.rI(CSu|
00016cb0 57 25 2c 22 43 53 75 41 64 33 33 22 29 3a f2 72 |W%,"CSuAd33"):.r|
00016cc0 49 28 43 53 75 57 25 2c 22 43 53 75 41 64 34 34 |I(CSuW%,"CSuAd44|
00016cd0 22 29 3a f2 72 49 28 43 53 75 57 25 2c 22 43 53 |"):.rI(CSuW%,"CS|
00016ce0 75 50 6f 73 74 22 29 3a f2 72 49 28 43 53 75 57 |uPost"):.rI(CSuW|
00016cf0 25 2c 22 43 53 75 43 6f 6e 74 61 63 74 22 29 3a |%,"CSuContact"):|
00016d00 f2 72 49 28 43 53 75 57 25 2c 22 43 53 75 54 65 |.rI(CSuW%,"CSuTe|
00016d10 6c 65 22 29 0d 5f b4 87 f2 72 49 28 43 53 75 57 |le")._...rI(CSuW|
00016d20 25 2c 22 64 43 53 75 4e 61 6d 65 22 29 3a f2 72 |%,"dCSuName"):.r|
00016d30 49 28 43 53 75 57 25 2c 22 64 43 53 75 41 64 31 |I(CSuW%,"dCSuAd1|
00016d40 31 22 29 3a f2 72 49 28 43 53 75 57 25 2c 22 64 |1"):.rI(CSuW%,"d|
00016d50 43 53 75 41 64 32 32 22 29 3a f2 72 49 28 43 53 |CSuAd22"):.rI(CS|
00016d60 75 57 25 2c 22 64 43 53 75 41 64 33 33 22 29 3a |uW%,"dCSuAd33"):|
00016d70 f2 72 49 28 43 53 75 57 25 2c 22 64 43 53 75 41 |.rI(CSuW%,"dCSuA|
00016d80 64 34 34 22 29 3a f2 72 49 28 43 53 75 57 25 2c |d44"):.rI(CSuW%,|
00016d90 22 64 43 53 75 50 6f 73 74 22 29 0d 5f b9 ac f2 |"dCSuPost")._...|
00016da0 72 49 28 43 53 75 57 25 2c 22 43 53 75 46 61 78 |rI(CSuW%,"CSuFax|
00016db0 22 29 3a f2 72 49 28 43 53 75 57 25 2c 22 43 53 |"):.rI(CSuW%,"CS|
00016dc0 75 43 6f 6d 31 31 22 29 3a f2 72 49 28 43 53 75 |uCom11"):.rI(CSu|
00016dd0 57 25 2c 22 43 53 75 43 6f 6d 32 32 22 29 3a f2 |W%,"CSuCom22"):.|
00016de0 72 49 28 43 53 75 57 25 2c 22 43 53 75 53 75 70 |rI(CSuW%,"CSuSup|
00016df0 70 52 65 66 22 29 3a f2 72 49 28 43 53 75 57 25 |pRef"):.rI(CSuW%|
00016e00 2c 22 43 53 75 59 6f 75 72 52 65 66 22 29 3a f2 |,"CSuYourRef"):.|
00016e10 72 49 28 43 53 75 57 25 2c 22 43 53 75 4f 72 64 |rI(CSuW%,"CSuOrd|
00016e20 65 72 22 29 3a f2 72 49 28 43 53 75 57 25 2c 22 |er"):.rI(CSuW%,"|
00016e30 43 53 75 44 69 73 63 22 29 3a 63 68 63 75 6e 61 |CSuDisc"):chcuna|
00016e40 6d 5f 25 3d 30 3a e1 0d 5f be 04 0d 62 61 27 dd |m_%=0:.._...ba'.|
00016e50 f2 73 65 74 43 5f 28 74 65 6d 70 5f 25 29 3a e7 |.setC_(temp_%):.|
00016e60 57 25 21 31 32 3c 31 84 74 65 6d 70 5f 25 3c 30 |W%!12<1.temp_%<0|
00016e70 8c e1 0d 62 66 07 ea 20 85 0d 62 6b 1b ee 20 85 |...bf.. ..bk.. .|
00016e80 20 ea 3a f7 20 85 3a f2 70 65 5f 28 a4 65 72 72 | .:. .:.pe_(.err|
00016e90 5f 29 3a e1 0d 62 70 27 c8 99 26 34 30 30 44 32 |_):..bp'..&400D2|
00016ea0 2c 57 25 21 31 32 2c 74 65 6d 70 5f 25 2c 39 39 |,W%!12,temp_%,99|
00016eb0 39 39 2c 2c 2d 31 2c 2d 31 3a e1 0d 62 75 2a dd |99,,-1,-1:..bu*.|
00016ec0 f2 73 65 74 43 31 5f 28 57 5f 25 2c 74 65 6d 70 |.setC1_(W_%,temp|
00016ed0 5f 25 29 3a e7 57 5f 25 3c 31 84 74 65 6d 70 5f |_%):.W_%<1.temp_|
00016ee0 25 3c 30 8c e1 0d 62 7a 25 c8 99 26 34 30 30 44 |%<0...bz%..&400D|
00016ef0 32 2c 57 5f 25 2c 74 65 6d 70 5f 25 2c 39 39 39 |2,W_%,temp_%,999|
00016f00 39 2c 2c 2d 31 2c 2d 31 3a e1 0d 62 7f 3e dd f2 |9,,-1,-1:..b.>..|
00016f10 73 65 74 43 32 5f 3a c8 99 26 34 30 30 44 33 2c |setC2_:..&400D3,|
00016f20 2c 68 62 6c 6f 63 6b 5f 25 3a e7 68 62 6c 6f 63 |,hblock_%:.hbloc|
00016f30 6b 5f 25 21 30 3d 2d 31 84 68 62 6c 6f 63 6b 5f |k_%!0=-1.hblock_|
00016f40 25 21 34 3d 2d 31 8c e1 0d 62 84 30 c8 99 26 34 |%!4=-1...b.0..&4|
00016f50 30 30 44 32 2c 68 62 6c 6f 63 6b 5f 25 21 30 2c |00D2,hblock_%!0,|
00016f60 68 62 6c 6f 63 6b 5f 25 21 34 2c 39 39 39 39 2c |hblock_%!4,9999,|
00016f70 2c 2d 31 2c 2d 31 3a e1 0d 62 89 04 0d 62 f7 41 |,-1,-1:..b...b.A|
00016f80 dd a4 55 75 70 5f 28 56 5f 25 29 3a ea 20 5a 25 |..Uup_(V_%):. Z%|
00016f90 3a 5a 25 3d a4 75 70 64 61 74 65 55 73 65 72 5f |:Z%=.updateUser_|
00016fa0 3a 5a 25 3d a4 69 6e 69 74 55 73 65 72 5f 3a f2 |:Z%=.initUser_:.|
00016fb0 73 65 74 43 5f 28 56 5f 25 29 3a 3d a3 0d 62 fc |setC_(V_%):=..b.|
00016fc0 04 0d 63 2e 0e dd a4 43 53 43 68 65 63 6b 5f 0d |..c....CSCheck_.|
00016fd0 63 33 12 e7 43 53 5f 25 3c 31 8c 43 53 5f 25 3d |c3..CS_%<1.CS_%=|
00016fe0 31 0d 63 38 24 e7 43 53 5f 25 3e 43 6d 61 78 73 |1.c8$.CS_%>Cmaxs|
00016ff0 75 70 70 5f 25 8c 43 53 5f 25 3d 43 6d 61 78 73 |upp_%.CS_%=Cmaxs|
00017000 75 70 70 5f 25 0d 63 3d 06 3d a3 0d 63 42 04 0d |upp_%.c=.=..cB..|
00017010 64 e1 12 dd a4 63 68 64 61 74 65 5f 28 44 5f 24 |d....chdate_(D_$|
00017020 29 0d 64 e6 29 ea 20 41 2c 41 24 2c 42 5f 25 2c |).d.). A,A$,B_%,|
00017030 5a 25 2c 5a 24 2c 41 25 2c 42 25 2c 43 25 2c 44 |Z%,Z$,A%,B%,C%,D|
00017040 25 2c 45 25 2c 42 24 2c 43 24 0d 64 eb 0f e7 44 |%,E%,B$,C$.d...D|
00017050 5f 24 3d 22 22 8c 3d 22 22 0d 64 f0 1d 41 24 3d |_$="".="".d..A$=|
00017060 22 22 3a 41 25 3d 30 3a 42 25 3d 30 3a 43 25 3d |"":A%=0:B%=0:C%=|
00017070 30 3a 44 25 3d 30 0d 64 f5 1a 41 3d bb 28 44 5f |0:D%=0.d..A=.(D_|
00017080 24 29 3a 41 25 3d a4 61 64 64 5f 28 30 2c 41 29 |$):A%=.add_(0,A)|
00017090 0d 64 fa 25 e7 41 25 3e 33 31 84 41 25 3c 30 8c |.d.%.A%>31.A%<0.|
000170a0 44 5f 24 3d 74 6f 64 61 79 5f 24 3a 41 25 3d bb |D_$=today_$:A%=.|
000170b0 28 44 5f 24 29 0d 64 ff 1e e7 41 25 3c 31 84 41 |(D_$).d...A%<1.A|
000170c0 25 3e 33 31 8c 41 25 3d bb 28 c1 91 24 2c 35 2c |%>31.A%=.(..$,5,|
000170d0 32 29 29 0d 65 04 61 44 25 3d a7 44 5f 24 2c 22 |2)).e.aD%=.D_$,"|
000170e0 2e 22 29 3a e7 44 25 3e 30 8c 42 25 3d bb 28 c1 |."):.D%>0.B%=.(.|
000170f0 44 5f 24 2c 44 25 2b 31 2c 32 35 35 29 29 3a 45 |D_$,D%+1,255)):E|
00017100 25 3d a7 c1 44 5f 24 2c 44 25 2b 31 2c 32 35 35 |%=..D_$,D%+1,255|
00017110 29 2c 22 2e 22 29 3a e7 45 25 3e 30 8c 43 25 3d |),"."):.E%>0.C%=|
00017120 bb 28 c1 44 5f 24 2c 44 25 2b 45 25 2b 31 2c 32 |.(.D_$,D%+E%+1,2|
00017130 35 35 29 29 0d 65 09 1b e7 42 25 3d 30 84 42 25 |55)).e...B%=0.B%|
00017140 3e 31 32 8c 42 25 3d a4 63 75 72 6d 6f 6e 5f 0d |>12.B%=.curmon_.|
00017150 65 0e 19 e7 43 25 3d 30 8c 43 25 3d bb 28 c1 91 |e...C%=0.C%=.(..|
00017160 24 2c 31 32 2c 34 29 29 0d 65 13 26 e7 41 25 3d |$,12,4)).e.&.A%=|
00017170 33 31 3a e7 42 25 3d 34 84 42 25 3d 36 84 42 25 |31:.B%=4.B%=6.B%|
00017180 3d 39 84 42 25 3d 31 31 8c 41 25 3d 33 30 0d 65 |=9.B%=11.A%=30.e|
00017190 18 0a e7 42 25 3d 32 8c 0d 65 1d 22 e7 41 25 3e |...B%=2..e.".A%>|
000171a0 32 39 3a e7 43 25 83 34 3d 30 80 43 25 83 34 30 |29:.C%.4=0.C%.40|
000171b0 30 3c 3e 30 8c 41 25 3d 32 39 0d 65 22 22 e7 41 |0<>0.A%=29.e"".A|
000171c0 25 3e 32 38 3a e7 43 25 83 34 3c 3e 30 84 43 25 |%>28:.C%.4<>0.C%|
000171d0 83 34 30 30 3d 30 8c 41 25 3d 32 38 0d 65 27 05 |.400=0.A%=28.e'.|
000171e0 cd 0d 65 2c 1e 41 24 3d c3 28 41 25 29 3a 42 24 |..e,.A$=.(A%):B$|
000171f0 3d c3 28 42 25 29 3a 43 24 3d c3 28 43 25 29 0d |=.(B%):C$=.(C%).|
00017200 65 31 17 e7 41 25 3c 31 30 8c 41 24 3d 22 30 22 |e1..A%<10.A$="0"|
00017210 2b c3 28 41 25 29 0d 65 36 17 e7 42 25 3c 31 30 |+.(A%).e6..B%<10|
00017220 8c 42 24 3d 22 30 22 2b c3 28 42 25 29 0d 65 3b |.B$="0"+.(B%).e;|
00017230 47 e7 43 25 3c 31 30 8c 43 24 3d 22 31 39 39 22 |G.C%<10.C$="199"|
00017240 2b c3 28 43 25 29 20 8b e7 43 25 3c 31 30 30 8c |+.(C%) ..C%<100.|
00017250 43 24 3d 22 31 39 22 2b c3 28 43 25 29 20 8b e7 |C$="19"+.(C%) ..|
00017260 43 25 3c 31 30 30 30 8c 43 24 3d 22 31 22 2b c3 |C%<1000.C$="1"+.|
00017270 28 43 25 29 0d 65 40 18 44 5f 24 3d 41 24 2b 22 |(C%).e@.D_$=A$+"|
00017280 2e 22 2b 42 24 2b 22 2e 22 2b 43 24 0d 65 45 23 |."+B$+"."+C$.eE#|
00017290 e7 a4 63 68 65 63 6b 44 61 74 65 28 44 5f 24 29 |..checkDate(D_$)|
000172a0 3d a3 20 8c f2 77 6c 5f 28 33 29 3a 3d 22 22 0d |=. ..wl_(3):="".|
000172b0 65 4a 08 3d 44 5f 24 0d 65 4f 04 0d 65 54 17 dd |eJ.=D_$.eO..eT..|
000172c0 a4 63 68 64 61 74 65 31 5f 28 44 5f 24 2c 4f 5f |.chdate1_(D_$,O_|
000172d0 24 29 0d 65 59 29 ea 20 41 2c 41 24 2c 42 5f 25 |$).eY). A,A$,B_%|
000172e0 2c 5a 25 2c 5a 24 2c 41 25 2c 42 25 2c 43 25 2c |,Z%,Z$,A%,B%,C%,|
000172f0 44 25 2c 45 25 2c 42 24 2c 43 24 0d 65 5e 29 4f |D%,E%,B$,C$.e^)O|
00017300 5f 24 3d a4 63 68 64 61 74 65 5f 28 4f 5f 24 29 |_$=.chdate_(O_$)|
00017310 3a e7 4f 5f 24 3d 22 22 8c 4f 5f 24 3d 74 6f 64 |:.O_$="".O_$=tod|
00017320 61 79 5f 24 0d 65 63 10 e7 44 5f 24 3d 22 22 8c |ay_$.ec..D_$="".|
00017330 3d 4f 5f 24 0d 65 68 1d 41 24 3d 22 22 3a 41 25 |=O_$.eh.A$="":A%|
00017340 3d 30 3a 42 25 3d 30 3a 43 25 3d 30 3a 44 25 3d |=0:B%=0:C%=0:D%=|
00017350 30 0d 65 6d 1a 41 3d bb 28 44 5f 24 29 3a 41 25 |0.em.A=.(D_$):A%|
00017360 3d a4 61 64 64 5f 28 30 2c 41 29 0d 65 72 21 e7 |=.add_(0,A).er!.|
00017370 41 25 3e 33 31 84 41 25 3c 30 8c 44 5f 24 3d 4f |A%>31.A%<0.D_$=O|
00017380 5f 24 3a 41 25 3d bb 28 44 5f 24 29 0d 65 77 1d |_$:A%=.(D_$).ew.|
00017390 e7 41 25 3c 31 84 41 25 3e 33 31 8c 41 25 3d bb |.A%<1.A%>31.A%=.|
000173a0 28 c0 4f 5f 24 2c 32 29 29 0d 65 7c 61 44 25 3d |(.O_$,2)).e|aD%=|
000173b0 a7 44 5f 24 2c 22 2e 22 29 3a e7 44 25 3e 30 8c |.D_$,"."):.D%>0.|
000173c0 42 25 3d bb 28 c1 44 5f 24 2c 44 25 2b 31 2c 32 |B%=.(.D_$,D%+1,2|
000173d0 35 35 29 29 3a 45 25 3d a7 c1 44 5f 24 2c 44 25 |55)):E%=..D_$,D%|
000173e0 2b 31 2c 32 35 35 29 2c 22 2e 22 29 3a e7 45 25 |+1,255),"."):.E%|
000173f0 3e 30 8c 43 25 3d bb 28 c1 44 5f 24 2c 44 25 2b |>0.C%=.(.D_$,D%+|
00017400 45 25 2b 31 2c 32 35 35 29 29 0d 65 81 1f e7 42 |E%+1,255)).e...B|
00017410 25 3d 30 84 42 25 3e 31 32 8c 42 25 3d bb 28 c1 |%=0.B%>12.B%=.(.|
00017420 4f 5f 24 2c 34 2c 32 29 29 0d 65 86 17 e7 43 25 |O_$,4,2)).e...C%|
00017430 3d 30 8c 43 25 3d bb 28 c2 4f 5f 24 2c 34 29 29 |=0.C%=.(.O_$,4))|
00017440 0d 65 8b 26 e7 41 25 3d 33 31 3a e7 42 25 3d 34 |.e.&.A%=31:.B%=4|
00017450 84 42 25 3d 36 84 42 25 3d 39 84 42 25 3d 31 31 |.B%=6.B%=9.B%=11|
00017460 8c 41 25 3d 33 30 0d 65 90 0a e7 42 25 3d 32 8c |.A%=30.e...B%=2.|
00017470 0d 65 95 22 e7 41 25 3e 32 39 3a e7 43 25 83 34 |.e.".A%>29:.C%.4|
00017480 3d 30 80 43 25 83 34 30 30 3c 3e 30 8c 41 25 3d |=0.C%.400<>0.A%=|
00017490 32 39 0d 65 9a 22 e7 41 25 3e 32 38 3a e7 43 25 |29.e.".A%>28:.C%|
000174a0 83 34 3c 3e 30 84 43 25 83 34 30 30 3d 30 8c 41 |.4<>0.C%.400=0.A|
000174b0 25 3d 32 38 0d 65 9f 05 cd 0d 65 a4 1e 41 24 3d |%=28.e....e..A$=|
000174c0 c3 28 41 25 29 3a 42 24 3d c3 28 42 25 29 3a 43 |.(A%):B$=.(B%):C|
000174d0 24 3d c3 28 43 25 29 0d 65 a9 17 e7 41 25 3c 31 |$=.(C%).e...A%<1|
000174e0 30 8c 41 24 3d 22 30 22 2b c3 28 41 25 29 0d 65 |0.A$="0"+.(A%).e|
000174f0 ae 17 e7 42 25 3c 31 30 8c 42 24 3d 22 30 22 2b |...B%<10.B$="0"+|
00017500 c3 28 42 25 29 0d 65 b3 47 e7 43 25 3c 31 30 8c |.(B%).e.G.C%<10.|
00017510 43 24 3d 22 31 39 39 22 2b c3 28 43 25 29 20 8b |C$="199"+.(C%) .|
00017520 e7 43 25 3c 31 30 30 8c 43 24 3d 22 31 39 22 2b |.C%<100.C$="19"+|
00017530 c3 28 43 25 29 20 8b e7 43 25 3c 31 30 30 30 8c |.(C%) ..C%<1000.|
00017540 43 24 3d 22 31 22 2b c3 28 43 25 29 0d 65 b8 18 |C$="1"+.(C%).e..|
00017550 44 5f 24 3d 41 24 2b 22 2e 22 2b 42 24 2b 22 2e |D_$=A$+"."+B$+".|
00017560 22 2b 43 24 0d 65 bd 23 e7 a4 63 68 65 63 6b 44 |"+C$.e.#..checkD|
00017570 61 74 65 28 44 5f 24 29 3d a3 20 8c f2 77 6c 5f |ate(D_$)=. ..wl_|
00017580 28 33 29 3a 3d 22 22 0d 65 c2 08 3d 44 5f 24 0d |(3):="".e..=D_$.|
00017590 65 c7 04 0d 65 cc 0d dd a4 63 75 72 6d 6f 6e 5f |e...e....curmon_|
000175a0 0d 65 d1 16 e7 c1 91 24 2c 38 2c 33 29 3d 22 4a |.e.....$,8,3)="J|
000175b0 61 6e 22 8c 3d 31 0d 65 d6 16 e7 c1 91 24 2c 38 |an".=1.e.....$,8|
000175c0 2c 33 29 3d 22 46 65 62 22 8c 3d 32 0d 65 db 16 |,3)="Feb".=2.e..|
000175d0 e7 c1 91 24 2c 38 2c 33 29 3d 22 4d 61 72 22 8c |...$,8,3)="Mar".|
000175e0 3d 33 0d 65 e0 16 e7 c1 91 24 2c 38 2c 33 29 3d |=3.e.....$,8,3)=|
000175f0 22 41 70 72 22 8c 3d 34 0d 65 e5 16 e7 c1 91 24 |"Apr".=4.e.....$|
00017600 2c 38 2c 33 29 3d 22 4d 61 79 22 8c 3d 35 0d 65 |,8,3)="May".=5.e|
00017610 ea 16 e7 c1 91 24 2c 38 2c 33 29 3d 22 4a 75 6e |.....$,8,3)="Jun|
00017620 22 8c 3d 36 0d 65 ef 16 e7 c1 91 24 2c 38 2c 33 |".=6.e.....$,8,3|
00017630 29 3d 22 4a 75 6c 22 8c 3d 37 0d 65 f4 16 e7 c1 |)="Jul".=7.e....|
00017640 91 24 2c 38 2c 33 29 3d 22 41 75 67 22 8c 3d 38 |.$,8,3)="Aug".=8|
00017650 0d 65 f9 16 e7 c1 91 24 2c 38 2c 33 29 3d 22 53 |.e.....$,8,3)="S|
00017660 65 70 22 8c 3d 39 0d 65 fe 17 e7 c1 91 24 2c 38 |ep".=9.e.....$,8|
00017670 2c 33 29 3d 22 4f 63 74 22 8c 3d 31 30 0d 66 03 |,3)="Oct".=10.f.|
00017680 17 e7 c1 91 24 2c 38 2c 33 29 3d 22 4e 6f 76 22 |....$,8,3)="Nov"|
00017690 8c 3d 31 31 0d 66 08 17 e7 c1 91 24 2c 38 2c 33 |.=11.f.....$,8,3|
000176a0 29 3d 22 44 65 63 22 8c 3d 31 32 0d 66 0d 06 3d |)="Dec".=12.f..=|
000176b0 31 0d 66 12 04 0d 66 a8 21 dd a4 49 69 6e 69 74 |1.f...f.!..Iinit|
000176c0 4f 72 64 65 72 50 5f 3a 3d a4 49 4f 70 61 70 65 |OrderP_:=.IOpape|
000176d0 72 73 69 7a 65 5f 0d 66 b2 04 0d 67 02 14 dd a4 |rsize_.f...g....|
000176e0 49 75 70 64 61 74 65 4f 72 64 65 72 50 5f 0d 67 |IupdateOrderP_.g|
000176f0 07 0e ea 20 41 25 2c 42 25 2c 5a 25 0d 67 0c 0d |... A%,B%,Z%.g..|
00017700 41 25 3d 30 3a 42 25 3d 30 0d 67 11 0f e7 49 4f |A%=0:B%=0.g...IO|
00017710 77 69 6e 64 25 3e 30 8c 0d 67 16 17 e3 5a 25 3d |wind%>0..g...Z%=|
00017720 49 6f 72 69 5f 25 b8 49 4f 69 63 6f 6e 73 25 0d |Iori_%.IOicons%.|
00017730 67 1b 19 f2 67 65 74 69 63 6f 6e 5f 28 49 4f 77 |g...geticon_(IOw|
00017740 69 6e 64 25 2c 5a 25 29 0d 67 20 61 e7 62 6c 6f |ind%,Z%).g a.blo|
00017750 63 6b 5f 25 21 31 36 3e bb 28 24 21 49 4f 70 61 |ck_%!16>.($!IOpa|
00017760 67 65 78 5f 25 29 2a 72 75 6c 65 5f 3a e7 62 6c |gex_%)*rule_:.bl|
00017770 6f 63 6b 5f 25 21 31 36 3e 41 25 8c 24 21 49 4f |ock_%!16>A%.$!IO|
00017780 70 61 67 65 78 5f 25 3d c3 28 62 6c 6f 63 6b 5f |pagex_%=.(block_|
00017790 25 21 31 36 2f 72 75 6c 65 5f 29 3a 41 25 3d 62 |%!16/rule_):A%=b|
000177a0 6c 6f 63 6b 5f 25 21 31 36 0d 67 25 6d e7 94 28 |lock_%!16.g%m..(|
000177b0 62 6c 6f 63 6b 5f 25 21 31 32 29 3e bb 28 24 21 |block_%!12)>.($!|
000177c0 49 4f 70 61 67 65 79 5f 25 29 2a 72 75 6c 65 5f |IOpagey_%)*rule_|
000177d0 3a e7 94 28 62 6c 6f 63 6b 5f 25 21 31 32 29 3e |:..(block_%!12)>|
000177e0 42 25 8c 24 21 49 4f 70 61 67 65 79 5f 25 3d c3 |B%.$!IOpagey_%=.|
000177f0 28 94 28 62 6c 6f 63 6b 5f 25 21 31 32 2f 72 75 |(.(block_%!12/ru|
00017800 6c 65 5f 29 29 3a 42 25 3d 94 28 62 6c 6f 63 6b |le_)):B%=.(block|
00017810 5f 25 21 31 32 29 0d 67 2a 05 ed 0d 67 2f 05 cd |_%!12).g*...g/..|
00017820 0d 67 34 27 e7 bb 28 24 21 49 4f 70 61 67 65 78 |.g4'..($!IOpagex|
00017830 5f 25 29 3c 35 30 8c 24 21 49 4f 70 61 67 65 78 |_%)<50.$!IOpagex|
00017840 5f 25 3d 22 35 30 22 0d 67 39 29 e7 bb 28 24 21 |_%="50".g9)..($!|
00017850 49 4f 70 61 67 65 78 5f 25 29 3e 34 30 30 8c 24 |IOpagex_%)>400.$|
00017860 21 49 4f 70 61 67 65 78 5f 25 3d 22 34 30 30 22 |!IOpagex_%="400"|
00017870 0d 67 3e 27 e7 bb 28 24 21 49 4f 70 61 67 65 79 |.g>'..($!IOpagey|
00017880 5f 25 29 3c 35 30 8c 24 21 49 4f 70 61 67 65 79 |_%)<50.$!IOpagey|
00017890 5f 25 3d 22 35 30 22 0d 67 43 29 e7 bb 28 24 21 |_%="50".gC)..($!|
000178a0 49 4f 70 61 67 65 79 5f 25 29 3e 34 30 30 8c 24 |IOpagey_%)>400.$|
000178b0 21 49 4f 70 61 67 65 79 5f 25 3d 22 34 30 30 22 |!IOpagey_%="400"|
000178c0 0d 67 48 58 49 4f 70 61 67 78 5f 25 3d bb 28 24 |.gHXIOpagx_%=.($|
000178d0 21 49 4f 70 61 67 65 78 5f 25 29 3a 49 4f 70 61 |!IOpagex_%):IOpa|
000178e0 67 79 5f 25 3d bb 28 24 21 49 4f 70 61 67 65 79 |gy_%=.($!IOpagey|
000178f0 5f 25 29 3a 5a 25 3d a4 49 4f 63 68 65 63 6b 73 |_%):Z%=.IOchecks|
00017900 69 7a 65 5f 3a 5a 25 3d a4 49 4f 70 61 70 65 72 |ize_:Z%=.IOpaper|
00017910 73 69 7a 65 5f 3a 3d a3 0d 67 bb 14 dd f2 49 75 |size_:=..g....Iu|
00017920 70 64 61 74 65 4f 72 64 65 72 44 5f 0d 67 c0 0d |pdateOrderD_.g..|
00017930 e7 52 25 3d 31 39 33 8c e1 0d 67 c5 08 ea 20 5a |.R%=193...g... Z|
00017940 25 0d 67 ca 63 e7 52 25 3d 32 35 36 84 52 25 3d |%.g.c.R%=256.R%=|
00017950 35 8c 24 21 49 4f 72 64 65 72 48 5f 25 3d c3 28 |5.$!IOrderH_%=.(|
00017960 49 4f 64 73 69 7a 65 5f 25 29 3a 24 21 49 4f 72 |IOdsize_%):$!IOr|
00017970 64 65 72 47 5f 25 3d c3 28 49 4f 64 67 61 70 5f |derG_%=.(IOdgap_|
00017980 25 29 3a e7 52 25 3d 35 8c f2 72 49 28 57 25 2c |%):.R%=5..rI(W%,|
00017990 22 49 4f 72 64 65 72 48 22 29 3a f2 73 65 74 43 |"IOrderH"):.setC|
000179a0 5f 28 30 29 0d 67 cf 34 49 4f 64 73 69 7a 65 5f |_(0).g.4IOdsize_|
000179b0 25 3d bb 28 24 21 49 4f 72 64 65 72 48 5f 25 29 |%=.($!IOrderH_%)|
000179c0 3a 49 4f 64 67 61 70 5f 25 3d bb 28 24 21 49 4f |:IOdgap_%=.($!IO|
000179d0 72 64 65 72 47 5f 25 29 0d 67 d4 3f e3 5a 25 3d |rderG_%).g.?.Z%=|
000179e0 32 33 b8 32 37 3a 49 4f 72 64 65 72 63 68 25 28 |23.27:IOrderch%(|
000179f0 5a 25 29 3d 31 3a ed 3a 49 4f 72 64 65 72 63 68 |Z%)=1:.:IOrderch|
00017a00 25 28 34 32 29 3d 31 3a 49 4f 72 64 65 72 63 68 |%(42)=1:IOrderch|
00017a10 25 28 34 33 29 3d 31 0d 67 d9 05 e1 0d 68 15 4c |%(43)=1.g....h.L|
00017a20 dd a4 49 4f 72 64 65 72 48 5f 3a e3 5a 25 3d 32 |..IOrderH_:.Z%=2|
00017a30 33 b8 32 37 3a 49 4f 72 64 65 72 63 68 25 28 5a |3.27:IOrderch%(Z|
00017a40 25 29 3d 31 3a ed 3a e7 bb 28 24 21 49 4f 72 64 |%)=1:.:..($!IOrd|
00017a50 65 72 48 5f 25 29 3c 37 8c 24 21 49 4f 72 64 65 |erH_%)<7.$!IOrde|
00017a60 72 48 5f 25 3d 22 37 22 0d 68 1a 40 e7 49 4f 72 |rH_%="7".h.@.IOr|
00017a70 64 65 72 6d 79 5f 28 32 33 29 2d bb 28 24 21 49 |dermy_(23)-.($!I|
00017a80 4f 72 64 65 72 48 5f 25 29 3c 30 8c 24 21 49 4f |OrderH_%)<0.$!IO|
00017a90 72 64 65 72 48 5f 25 3d c3 28 49 4f 72 64 65 72 |rderH_%=.(IOrder|
00017aa0 6d 79 5f 28 32 33 29 29 0d 68 1f 15 f2 72 49 28 |my_(23)).h...rI(|
00017ab0 57 25 2c 22 49 4f 72 64 65 72 48 22 29 0d 68 24 |W%,"IOrderH").h$|
00017ac0 1f 49 4f 64 73 69 7a 65 5f 25 3d bb 28 24 21 49 |.IOdsize_%=.($!I|
00017ad0 4f 72 64 65 72 48 5f 25 29 3a 3d b9 0d 68 42 29 |OrderH_%):=..hB)|
00017ae0 dd a4 49 4f 72 64 65 72 47 5f 3a 49 4f 64 67 61 |..IOrderG_:IOdga|
00017af0 70 5f 25 3d bb 28 24 21 49 4f 72 64 65 72 47 5f |p_%=.($!IOrderG_|
00017b00 25 29 3a 3d b9 0d 68 4c 04 0d 68 9c 8f dd a4 69 |%):=..hL..h....i|
00017b10 6e 69 74 62 61 6e 6b 74 6f 74 5f 3a ea 20 5a 25 |nitbanktot_:. Z%|
00017b20 3a 5a 25 3d a4 58 70 61 70 65 72 73 69 7a 65 5f |:Z%=.Xpapersize_|
00017b30 3a 24 21 58 66 6f 6e 74 78 5f 25 3d c3 28 58 66 |:$!Xfontx_%=.(Xf|
00017b40 6f 6e 5f 78 25 29 3a 24 21 58 66 6f 6e 74 79 5f |on_x%):$!Xfonty_|
00017b50 25 3d c3 28 58 66 6f 6e 5f 79 25 29 3a 5a 25 3d |%=.(Xfon_y%):Z%=|
00017b60 a4 58 66 73 75 6c 61 62 5f 3a 24 21 58 66 6e 61 |.Xfsulab_:$!Xfna|
00017b70 6d 65 5f 25 3d 46 6f 5f 24 28 58 6e 61 6d 5f 25 |me_%=Fo_$(Xnam_%|
00017b80 29 3a 24 21 58 61 73 61 76 65 61 73 5f 25 3d 58 |):$!Xasaveas_%=X|
00017b90 6e 61 6d 5f 24 3a 3d a3 0d 68 a1 79 dd a4 43 69 |nam_$:=..h.y..Ci|
00017ba0 6e 69 74 73 75 70 6c 61 62 5f 3a ea 20 5a 25 3a |nitsuplab_:. Z%:|
00017bb0 24 21 43 53 64 6f 77 6e 5f 25 3d c3 28 43 53 64 |$!CSdown_%=.(CSd|
00017bc0 6f 77 5f 25 29 3a 24 21 43 53 61 63 72 6f 73 73 |ow_%):$!CSacross|
00017bd0 5f 25 3d c3 28 43 53 61 63 72 6f 73 5f 25 29 3a |_%=.(CSacros_%):|
00017be0 24 21 43 53 6e 75 6d 62 65 72 5f 25 3d c3 28 43 |$!CSnumber_%=.(C|
00017bf0 53 6e 75 6d 62 65 5f 25 29 3a 24 21 43 53 73 74 |Snumbe_%):$!CSst|
00017c00 61 72 74 5f 25 3d c3 28 43 53 73 74 61 72 5f 25 |art_%=.(CSstar_%|
00017c10 29 0d 68 a6 3b e7 43 53 63 6f 6e 74 61 63 5f 25 |).h.;.CScontac_%|
00017c20 3d 31 8c f2 75 73 49 28 57 25 2c 22 43 53 63 6f |=1..usI(W%,"CSco|
00017c30 6e 74 61 63 74 22 29 20 8b f2 73 49 28 57 25 2c |ntact") ..sI(W%,|
00017c40 22 43 53 63 6f 6e 74 61 63 74 22 29 0d 68 ab 32 |"CScontact").h.2|
00017c50 e7 43 53 6e 61 6d 5f 25 3d 31 8c f2 75 73 49 28 |.CSnam_%=1..usI(|
00017c60 57 25 2c 22 43 53 6e 61 6d 65 22 29 20 8b f2 73 |W%,"CSname") ..s|
00017c70 49 28 57 25 2c 22 43 53 6e 61 6d 65 22 29 0d 68 |I(W%,"CSname").h|
00017c80 b0 3b e7 43 53 61 64 64 72 65 73 5f 25 3d 31 8c |.;.CSaddres_%=1.|
00017c90 f2 75 73 49 28 57 25 2c 22 43 53 61 64 64 72 65 |.usI(W%,"CSaddre|
00017ca0 73 73 22 29 20 8b f2 73 49 28 57 25 2c 22 43 53 |ss") ..sI(W%,"CS|
00017cb0 61 64 64 72 65 73 73 22 29 0d 68 b5 98 5a 25 3d |address").h..Z%=|
00017cc0 a4 43 53 70 61 70 65 72 73 69 7a 65 5f 3a 5a 25 |.CSpapersize_:Z%|
00017cd0 3d a4 43 53 61 6c 74 6a 75 5f 3a 24 21 43 53 66 |=.CSaltju_:$!CSf|
00017ce0 6f 6e 74 78 5f 25 3d c3 28 43 53 66 6f 6e 5f 78 |ontx_%=.(CSfon_x|
00017cf0 25 29 3a 24 21 43 53 66 6f 6e 74 79 5f 25 3d c3 |%):$!CSfonty_%=.|
00017d00 28 43 53 66 6f 6e 5f 79 25 29 3a 24 21 43 53 75 |(CSfon_y%):$!CSu|
00017d10 70 46 72 6f 6d 5f 25 3d a4 63 68 74 6f 6c 65 6e |pFrom_%=.chtolen|
00017d20 5f 28 43 53 75 70 46 72 6f 5f 25 2c 43 6d 61 78 |_(CSupFro_%,Cmax|
00017d30 73 75 70 70 5f 25 29 3a 43 53 75 70 46 72 6f 5f |supp_%):CSupFro_|
00017d40 25 3d bb 28 24 21 43 53 75 70 46 72 6f 6d 5f 25 |%=.($!CSupFrom_%|
00017d50 29 0d 68 ba a1 24 21 43 53 75 70 54 6f 5f 25 3d |).h..$!CSupTo_%=|
00017d60 a4 63 68 74 6f 6c 65 6e 5f 28 43 53 75 70 54 5f |.chtolen_(CSupT_|
00017d70 25 2c 43 6d 61 78 73 75 70 70 5f 25 29 3a 43 53 |%,Cmaxsupp_%):CS|
00017d80 75 70 54 5f 25 3d bb 28 24 21 43 53 75 70 54 6f |upT_%=.($!CSupTo|
00017d90 5f 25 29 3a e7 43 53 75 70 46 72 6f 5f 25 3d 43 |_%):.CSupFro_%=C|
00017da0 53 75 70 54 5f 25 3a 43 53 75 70 46 72 6f 5f 25 |SupT_%:CSupFro_%|
00017db0 3d 43 53 5f 25 3a 43 53 75 70 54 5f 25 3d 43 53 |=CS_%:CSupT_%=CS|
00017dc0 5f 25 3a 24 21 43 53 75 70 46 72 6f 6d 5f 25 3d |_%:$!CSupFrom_%=|
00017dd0 c3 28 43 53 75 70 46 72 6f 5f 25 29 3a 24 21 43 |.(CSupFro_%):$!C|
00017de0 53 75 70 54 6f 5f 25 3d c3 28 43 53 75 70 54 5f |SupTo_%=.(CSupT_|
00017df0 25 29 0d 68 bf 54 5a 25 3d a4 43 66 73 75 6c 61 |%).h.TZ%=.Cfsula|
00017e00 62 5f 3a 24 21 43 53 66 6f 6e 74 6e 61 6d 65 5f |b_:$!CSfontname_|
00017e10 25 3d 46 6f 5f 24 28 6a 5f 66 35 25 29 3a 24 21 |%=Fo_$(j_f5%):$!|
00017e20 43 73 43 6f 6d 6d 5f 25 3d 43 73 43 6f 6d 5f 24 |CsComm_%=CsCom_$|
00017e30 3a 24 21 43 73 50 6f 73 74 5f 25 3d 43 73 50 6f |:$!CsPost_%=CsPo|
00017e40 73 5f 24 3a 3d a3 0d 69 28 92 dd a4 69 6e 69 74 |s_$:=..i(...init|
00017e50 73 61 6c 65 64 32 5f 3a ea 20 5a 25 3a 5a 25 3d |saled2_:. Z%:Z%=|
00017e60 a4 53 61 70 61 70 65 72 73 69 7a 65 5f 3a 24 21 |.Sapapersize_:$!|
00017e70 53 61 66 6f 6e 74 78 5f 25 3d 53 61 6c 65 64 52 |Safontx_%=SaledR|
00017e80 5f 24 28 32 33 29 3a 24 21 53 61 66 6f 6e 74 79 |_$(23):$!Safonty|
00017e90 5f 25 3d 53 61 6c 65 64 52 5f 24 28 32 34 29 3a |_%=SaledR_$(24):|
00017ea0 24 21 53 61 66 6e 61 6d 65 5f 25 3d 46 6f 5f 24 |$!Safname_%=Fo_$|
00017eb0 28 53 61 6c 65 64 52 5f 25 28 31 35 29 29 3a 24 |(SaledR_%(15)):$|
00017ec0 21 53 61 73 61 76 65 61 73 5f 25 3d 53 61 6c 65 |!Sasaveas_%=Sale|
00017ed0 64 52 5f 24 28 32 35 29 0d 69 2d 30 e7 53 61 6c |dR_$(25).i-0.Sal|
00017ee0 65 64 52 5f 25 28 31 29 3d 31 8c f2 75 73 49 28 |edR_%(1)=1..usI(|
00017ef0 57 25 2c 22 72 31 53 22 29 20 8b f2 73 49 28 57 |W%,"r1S") ..sI(W|
00017f00 25 2c 22 72 31 53 22 29 0d 69 32 30 e7 53 61 6c |%,"r1S").i20.Sal|
00017f10 65 64 52 5f 25 28 32 29 3d 31 8c f2 75 73 49 28 |edR_%(2)=1..usI(|
00017f20 57 25 2c 22 72 32 53 22 29 20 8b f2 73 49 28 57 |W%,"r2S") ..sI(W|
00017f30 25 2c 22 72 32 53 22 29 0d 69 37 30 e7 53 61 6c |%,"r2S").i70.Sal|
00017f40 65 64 52 5f 25 28 33 29 3d 31 8c f2 75 73 49 28 |edR_%(3)=1..usI(|
00017f50 57 25 2c 22 72 33 53 22 29 20 8b f2 73 49 28 57 |W%,"r3S") ..sI(W|
00017f60 25 2c 22 72 33 53 22 29 0d 69 3c 30 e7 53 61 6c |%,"r3S").i<0.Sal|
00017f70 65 64 52 5f 25 28 34 29 3d 31 8c f2 75 73 49 28 |edR_%(4)=1..usI(|
00017f80 57 25 2c 22 72 34 53 22 29 20 8b f2 73 49 28 57 |W%,"r4S") ..sI(W|
00017f90 25 2c 22 72 34 53 22 29 0d 69 41 30 e7 53 61 6c |%,"r4S").iA0.Sal|
00017fa0 65 64 52 5f 25 28 35 29 3d 31 8c f2 75 73 49 28 |edR_%(5)=1..usI(|
00017fb0 57 25 2c 22 72 35 53 22 29 20 8b f2 73 49 28 57 |W%,"r5S") ..sI(W|
00017fc0 25 2c 22 72 35 53 22 29 0d 69 46 30 e7 53 61 6c |%,"r5S").iF0.Sal|
00017fd0 65 64 52 5f 25 28 36 29 3d 31 8c f2 75 73 49 28 |edR_%(6)=1..usI(|
00017fe0 57 25 2c 22 72 36 53 22 29 20 8b f2 73 49 28 57 |W%,"r6S") ..sI(W|
00017ff0 25 2c 22 72 36 53 22 29 0d 69 4b 30 e7 53 61 6c |%,"r6S").iK0.Sal|
00018000 65 64 52 5f 25 28 37 29 3d 31 8c f2 75 73 49 28 |edR_%(7)=1..usI(|
00018010 57 25 2c 22 72 37 53 22 29 20 8b f2 73 49 28 57 |W%,"r7S") ..sI(W|
00018020 25 2c 22 72 37 53 22 29 0d 69 50 30 e7 53 61 6c |%,"r7S").iP0.Sal|
00018030 65 64 52 5f 25 28 38 29 3d 31 8c f2 75 73 49 28 |edR_%(8)=1..usI(|
00018040 57 25 2c 22 72 38 53 22 29 20 8b f2 73 49 28 57 |W%,"r8S") ..sI(W|
00018050 25 2c 22 72 38 53 22 29 0d 69 55 30 e7 53 61 6c |%,"r8S").iU0.Sal|
00018060 65 64 52 5f 25 28 39 29 3d 31 8c f2 75 73 49 28 |edR_%(9)=1..usI(|
00018070 57 25 2c 22 72 39 53 22 29 20 8b f2 73 49 28 57 |W%,"r9S") ..sI(W|
00018080 25 2c 22 72 39 53 22 29 0d 69 5a 31 e7 53 61 6c |%,"r9S").iZ1.Sal|
00018090 65 64 52 5f 25 28 31 30 29 3d 31 8c f2 75 73 49 |edR_%(10)=1..usI|
000180a0 28 57 25 2c 22 72 61 53 22 29 20 8b f2 73 49 28 |(W%,"raS") ..sI(|
000180b0 57 25 2c 22 72 61 53 22 29 0d 69 5f 31 e7 53 61 |W%,"raS").i_1.Sa|
000180c0 6c 65 64 52 5f 25 28 31 31 29 3d 31 8c f2 75 73 |ledR_%(11)=1..us|
000180d0 49 28 57 25 2c 22 72 62 53 22 29 20 8b f2 73 49 |I(W%,"rbS") ..sI|
000180e0 28 57 25 2c 22 72 62 53 22 29 0d 69 64 31 e7 53 |(W%,"rbS").id1.S|
000180f0 61 6c 65 64 52 5f 25 28 31 38 29 3d 31 8c f2 75 |aledR_%(18)=1..u|
00018100 73 49 28 57 25 2c 22 72 63 53 22 29 20 8b f2 73 |sI(W%,"rcS") ..s|
00018110 49 28 57 25 2c 22 72 63 53 22 29 0d 69 69 da 24 |I(W%,"rcS").ii.$|
00018120 21 72 31 31 53 5f 25 3d 53 61 6c 65 64 52 5f 24 |!r11S_%=SaledR_$|
00018130 28 31 29 3a 24 21 72 31 31 31 53 5f 25 3d 53 61 |(1):$!r111S_%=Sa|
00018140 6c 65 64 52 5f 24 28 32 29 3a 24 21 72 32 32 53 |ledR_$(2):$!r22S|
00018150 5f 25 3d 53 61 6c 65 64 52 5f 24 28 33 29 3a 24 |_%=SaledR_$(3):$|
00018160 21 72 32 32 32 53 5f 25 3d 53 61 6c 65 64 52 5f |!r222S_%=SaledR_|
00018170 24 28 34 29 3a 24 21 72 33 33 53 5f 25 3d 53 61 |$(4):$!r33S_%=Sa|
00018180 6c 65 64 52 5f 24 28 35 29 3a 24 21 72 34 34 53 |ledR_$(5):$!r44S|
00018190 5f 25 3d 53 61 6c 65 64 52 5f 24 28 36 29 3a 24 |_%=SaledR_$(6):$|
000181a0 21 72 34 34 34 53 5f 25 3d 53 61 6c 65 64 52 5f |!r444S_%=SaledR_|
000181b0 24 28 37 29 3a 24 21 72 35 35 53 5f 25 3d 53 61 |$(7):$!r55S_%=Sa|
000181c0 6c 65 64 52 5f 24 28 38 29 3a 24 21 72 36 36 53 |ledR_$(8):$!r66S|
000181d0 5f 25 3d 53 61 6c 65 64 52 5f 24 28 39 29 3a 24 |_%=SaledR_$(9):$|
000181e0 21 72 36 36 36 53 5f 25 3d 53 61 6c 65 64 52 5f |!r666S_%=SaledR_|
000181f0 24 28 31 30 29 0d 69 6e b8 24 21 72 37 37 53 5f |$(10).in.$!r77S_|
00018200 25 3d 53 61 6c 65 64 52 5f 24 28 31 31 29 3a 24 |%=SaledR_$(11):$|
00018210 21 72 37 37 37 53 5f 25 3d 53 61 6c 65 64 52 5f |!r777S_%=SaledR_|
00018220 24 28 31 32 29 3a 24 21 72 37 37 37 37 53 5f 25 |$(12):$!r7777S_%|
00018230 3d 53 61 6c 65 64 52 5f 24 28 31 33 29 3a 24 21 |=SaledR_$(13):$!|
00018240 72 38 38 53 5f 25 3d 53 61 6c 65 64 52 5f 24 28 |r88S_%=SaledR_$(|
00018250 31 34 29 3a 24 21 72 38 38 38 53 5f 25 3d 53 61 |14):$!r888S_%=Sa|
00018260 6c 65 64 52 5f 24 28 31 35 29 3a 24 21 72 39 39 |ledR_$(15):$!r99|
00018270 53 5f 25 3d 53 61 6c 65 64 52 5f 24 28 31 36 29 |S_%=SaledR_$(16)|
00018280 3a 24 21 72 39 39 39 53 5f 25 3d 53 61 6c 65 64 |:$!r999S_%=Saled|
00018290 52 5f 24 28 31 37 29 3a 24 21 72 61 61 53 5f 25 |R_$(17):$!raaS_%|
000182a0 3d 53 61 6c 65 64 52 5f 24 28 31 38 29 0d 69 73 |=SaledR_$(18).is|
000182b0 33 24 21 72 62 62 53 5f 25 3d 53 61 6c 65 64 52 |3$!rbbS_%=SaledR|
000182c0 5f 24 28 31 39 29 3a 24 21 72 62 62 62 53 5f 25 |_$(19):$!rbbbS_%|
000182d0 3d 53 61 6c 65 64 52 5f 24 28 32 30 29 3a 3d a3 |=SaledR_$(20):=.|
000182e0 0d 69 78 04 0d 69 7d 92 dd a4 69 6e 69 74 70 61 |.ix..i}...initpa|
000182f0 6c 65 64 32 5f 3a ea 20 5a 25 3a 5a 25 3d a4 50 |led2_:. Z%:Z%=.P|
00018300 61 70 61 70 65 72 73 69 7a 65 5f 3a 24 21 50 61 |apapersize_:$!Pa|
00018310 66 6f 6e 74 78 5f 25 3d 50 61 6c 65 64 52 5f 24 |fontx_%=PaledR_$|
00018320 28 32 33 29 3a 24 21 50 61 66 6f 6e 74 79 5f 25 |(23):$!Pafonty_%|
00018330 3d 50 61 6c 65 64 52 5f 24 28 32 34 29 3a 24 21 |=PaledR_$(24):$!|
00018340 50 61 66 6e 61 6d 65 5f 25 3d 46 6f 5f 24 28 50 |Pafname_%=Fo_$(P|
00018350 61 6c 65 64 52 5f 25 28 31 35 29 29 3a 24 21 50 |aledR_%(15)):$!P|
00018360 61 73 61 76 65 61 73 5f 25 3d 50 61 6c 65 64 52 |asaveas_%=PaledR|
00018370 5f 24 28 32 35 29 0d 69 82 30 e7 50 61 6c 65 64 |_$(25).i.0.Paled|
00018380 52 5f 25 28 31 29 3d 31 8c f2 75 73 49 28 57 25 |R_%(1)=1..usI(W%|
00018390 2c 22 72 31 50 22 29 20 8b f2 73 49 28 57 25 2c |,"r1P") ..sI(W%,|
000183a0 22 72 31 50 22 29 0d 69 87 30 e7 50 61 6c 65 64 |"r1P").i.0.Paled|
000183b0 52 5f 25 28 32 29 3d 31 8c f2 75 73 49 28 57 25 |R_%(2)=1..usI(W%|
000183c0 2c 22 72 32 50 22 29 20 8b f2 73 49 28 57 25 2c |,"r2P") ..sI(W%,|
000183d0 22 72 32 50 22 29 0d 69 8c 30 e7 50 61 6c 65 64 |"r2P").i.0.Paled|
000183e0 52 5f 25 28 33 29 3d 31 8c f2 75 73 49 28 57 25 |R_%(3)=1..usI(W%|
000183f0 2c 22 72 33 50 22 29 20 8b f2 73 49 28 57 25 2c |,"r3P") ..sI(W%,|
00018400 22 72 33 50 22 29 0d 69 91 30 e7 50 61 6c 65 64 |"r3P").i.0.Paled|
00018410 52 5f 25 28 34 29 3d 31 8c f2 75 73 49 28 57 25 |R_%(4)=1..usI(W%|
00018420 2c 22 72 34 50 22 29 20 8b f2 73 49 28 57 25 2c |,"r4P") ..sI(W%,|
00018430 22 72 34 50 22 29 0d 69 96 30 e7 50 61 6c 65 64 |"r4P").i.0.Paled|
00018440 52 5f 25 28 35 29 3d 31 8c f2 75 73 49 28 57 25 |R_%(5)=1..usI(W%|
00018450 2c 22 72 35 50 22 29 20 8b f2 73 49 28 57 25 2c |,"r5P") ..sI(W%,|
00018460 22 72 35 50 22 29 0d 69 9b 30 e7 50 61 6c 65 64 |"r5P").i.0.Paled|
00018470 52 5f 25 28 36 29 3d 31 8c f2 75 73 49 28 57 25 |R_%(6)=1..usI(W%|
00018480 2c 22 72 36 50 22 29 20 8b f2 73 49 28 57 25 2c |,"r6P") ..sI(W%,|
00018490 22 72 36 50 22 29 0d 69 a0 30 e7 50 61 6c 65 64 |"r6P").i.0.Paled|
000184a0 52 5f 25 28 37 29 3d 31 8c f2 75 73 49 28 57 25 |R_%(7)=1..usI(W%|
000184b0 2c 22 72 37 50 22 29 20 8b f2 73 49 28 57 25 2c |,"r7P") ..sI(W%,|
000184c0 22 72 37 50 22 29 0d 69 a5 30 e7 50 61 6c 65 64 |"r7P").i.0.Paled|
000184d0 52 5f 25 28 38 29 3d 31 8c f2 75 73 49 28 57 25 |R_%(8)=1..usI(W%|
000184e0 2c 22 72 38 50 22 29 20 8b f2 73 49 28 57 25 2c |,"r8P") ..sI(W%,|
000184f0 22 72 38 50 22 29 0d 69 aa 30 e7 50 61 6c 65 64 |"r8P").i.0.Paled|
00018500 52 5f 25 28 39 29 3d 31 8c f2 75 73 49 28 57 25 |R_%(9)=1..usI(W%|
00018510 2c 22 72 39 50 22 29 20 8b f2 73 49 28 57 25 2c |,"r9P") ..sI(W%,|
00018520 22 72 39 50 22 29 0d 69 af 31 e7 50 61 6c 65 64 |"r9P").i.1.Paled|
00018530 52 5f 25 28 31 30 29 3d 31 8c f2 75 73 49 28 57 |R_%(10)=1..usI(W|
00018540 25 2c 22 72 61 50 22 29 20 8b f2 73 49 28 57 25 |%,"raP") ..sI(W%|
00018550 2c 22 72 61 50 22 29 0d 69 b4 31 e7 50 61 6c 65 |,"raP").i.1.Pale|
00018560 64 52 5f 25 28 31 31 29 3d 31 8c f2 75 73 49 28 |dR_%(11)=1..usI(|
00018570 57 25 2c 22 72 62 50 22 29 20 8b f2 73 49 28 57 |W%,"rbP") ..sI(W|
00018580 25 2c 22 72 62 50 22 29 0d 69 b9 31 e7 50 61 6c |%,"rbP").i.1.Pal|
00018590 65 64 52 5f 25 28 31 38 29 3d 31 8c f2 75 73 49 |edR_%(18)=1..usI|
000185a0 28 57 25 2c 22 72 63 50 22 29 20 8b f2 73 49 28 |(W%,"rcP") ..sI(|
000185b0 57 25 2c 22 72 63 50 22 29 0d 69 be da 24 21 72 |W%,"rcP").i..$!r|
000185c0 31 31 50 5f 25 3d 50 61 6c 65 64 52 5f 24 28 31 |11P_%=PaledR_$(1|
000185d0 29 3a 24 21 72 31 31 31 50 5f 25 3d 50 61 6c 65 |):$!r111P_%=Pale|
000185e0 64 52 5f 24 28 32 29 3a 24 21 72 32 32 50 5f 25 |dR_$(2):$!r22P_%|
000185f0 3d 50 61 6c 65 64 52 5f 24 28 33 29 3a 24 21 72 |=PaledR_$(3):$!r|
00018600 32 32 32 50 5f 25 3d 50 61 6c 65 64 52 5f 24 28 |222P_%=PaledR_$(|
00018610 34 29 3a 24 21 72 33 33 50 5f 25 3d 50 61 6c 65 |4):$!r33P_%=Pale|
00018620 64 52 5f 24 28 35 29 3a 24 21 72 34 34 50 5f 25 |dR_$(5):$!r44P_%|
00018630 3d 50 61 6c 65 64 52 5f 24 28 36 29 3a 24 21 72 |=PaledR_$(6):$!r|
00018640 34 34 34 50 5f 25 3d 50 61 6c 65 64 52 5f 24 28 |444P_%=PaledR_$(|
00018650 37 29 3a 24 21 72 35 35 50 5f 25 3d 50 61 6c 65 |7):$!r55P_%=Pale|
00018660 64 52 5f 24 28 38 29 3a 24 21 72 36 36 50 5f 25 |dR_$(8):$!r66P_%|
00018670 3d 50 61 6c 65 64 52 5f 24 28 39 29 3a 24 21 72 |=PaledR_$(9):$!r|
00018680 36 36 36 50 5f 25 3d 50 61 6c 65 64 52 5f 24 28 |666P_%=PaledR_$(|
00018690 31 30 29 0d 69 c3 b8 24 21 72 37 37 50 5f 25 3d |10).i..$!r77P_%=|
000186a0 50 61 6c 65 64 52 5f 24 28 31 31 29 3a 24 21 72 |PaledR_$(11):$!r|
000186b0 37 37 37 50 5f 25 3d 50 61 6c 65 64 52 5f 24 28 |777P_%=PaledR_$(|
000186c0 31 32 29 3a 24 21 72 37 37 37 37 50 5f 25 3d 50 |12):$!r7777P_%=P|
000186d0 61 6c 65 64 52 5f 24 28 31 33 29 3a 24 21 72 38 |aledR_$(13):$!r8|
000186e0 38 50 5f 25 3d 50 61 6c 65 64 52 5f 24 28 31 34 |8P_%=PaledR_$(14|
000186f0 29 3a 24 21 72 38 38 38 50 5f 25 3d 50 61 6c 65 |):$!r888P_%=Pale|
00018700 64 52 5f 24 28 31 35 29 3a 24 21 72 39 39 50 5f |dR_$(15):$!r99P_|
00018710 25 3d 50 61 6c 65 64 52 5f 24 28 31 36 29 3a 24 |%=PaledR_$(16):$|
00018720 21 72 39 39 39 50 5f 25 3d 50 61 6c 65 64 52 5f |!r999P_%=PaledR_|
00018730 24 28 31 37 29 3a 24 21 72 61 61 50 5f 25 3d 50 |$(17):$!raaP_%=P|
00018740 61 6c 65 64 52 5f 24 28 31 38 29 0d 69 c8 33 24 |aledR_$(18).i.3$|
00018750 21 72 62 62 50 5f 25 3d 50 61 6c 65 64 52 5f 24 |!rbbP_%=PaledR_$|
00018760 28 31 39 29 3a 24 21 72 62 62 62 50 5f 25 3d 50 |(19):$!rbbbP_%=P|
00018770 61 6c 65 64 52 5f 24 28 32 30 29 3a 3d a3 0d 69 |aledR_$(20):=..i|
00018780 cd 04 0d 69 d2 90 dd a4 69 6e 69 74 62 61 6e 6b |...i....initbank|
00018790 32 5f 3a ea 20 5a 25 3a 5a 25 3d a4 42 61 70 61 |2_:. Z%:Z%=.Bapa|
000187a0 70 65 72 73 69 7a 65 5f 3a 24 21 42 61 66 6f 6e |persize_:$!Bafon|
000187b0 74 78 5f 25 3d 42 61 6c 65 64 52 5f 24 28 31 33 |tx_%=BaledR_$(13|
000187c0 29 3a 24 21 42 61 66 6f 6e 74 79 5f 25 3d 42 61 |):$!Bafonty_%=Ba|
000187d0 6c 65 64 52 5f 24 28 31 34 29 3a 24 21 42 61 66 |ledR_$(14):$!Baf|
000187e0 6e 61 6d 65 5f 25 3d 46 6f 5f 24 28 42 61 6c 65 |name_%=Fo_$(Bale|
000187f0 64 52 5f 25 28 39 29 29 3a 24 21 42 61 73 61 76 |dR_%(9)):$!Basav|
00018800 65 61 73 5f 25 3d 42 61 6c 65 64 52 5f 24 28 31 |eas_%=BaledR_$(1|
00018810 35 29 0d 69 d7 30 e7 42 61 6c 65 64 52 5f 25 28 |5).i.0.BaledR_%(|
00018820 31 29 3d 31 8c f2 75 73 49 28 57 25 2c 22 72 31 |1)=1..usI(W%,"r1|
00018830 42 22 29 20 8b f2 73 49 28 57 25 2c 22 72 31 42 |B") ..sI(W%,"r1B|
00018840 22 29 0d 69 dc 30 e7 42 61 6c 65 64 52 5f 25 28 |").i.0.BaledR_%(|
00018850 32 29 3d 31 8c f2 75 73 49 28 57 25 2c 22 72 32 |2)=1..usI(W%,"r2|
00018860 42 22 29 20 8b f2 73 49 28 57 25 2c 22 72 32 42 |B") ..sI(W%,"r2B|
00018870 22 29 0d 69 e1 30 e7 42 61 6c 65 64 52 5f 25 28 |").i.0.BaledR_%(|
00018880 33 29 3d 31 8c f2 75 73 49 28 57 25 2c 22 72 33 |3)=1..usI(W%,"r3|
00018890 42 22 29 20 8b f2 73 49 28 57 25 2c 22 72 33 42 |B") ..sI(W%,"r3B|
000188a0 22 29 0d 69 e6 30 e7 42 61 6c 65 64 52 5f 25 28 |").i.0.BaledR_%(|
000188b0 34 29 3d 31 8c f2 75 73 49 28 57 25 2c 22 72 34 |4)=1..usI(W%,"r4|
000188c0 42 22 29 20 8b f2 73 49 28 57 25 2c 22 72 34 42 |B") ..sI(W%,"r4B|
000188d0 22 29 0d 69 eb 30 e7 42 61 6c 65 64 52 5f 25 28 |").i.0.BaledR_%(|
000188e0 35 29 3d 31 8c f2 75 73 49 28 57 25 2c 22 72 35 |5)=1..usI(W%,"r5|
000188f0 42 22 29 20 8b f2 73 49 28 57 25 2c 22 72 35 42 |B") ..sI(W%,"r5B|
00018900 22 29 0d 69 f0 30 e7 42 61 6c 65 64 52 5f 25 28 |").i.0.BaledR_%(|
00018910 36 29 3d 31 8c f2 75 73 49 28 57 25 2c 22 72 36 |6)=1..usI(W%,"r6|
00018920 42 22 29 20 8b f2 73 49 28 57 25 2c 22 72 36 42 |B") ..sI(W%,"r6B|
00018930 22 29 0d 69 f5 dd 24 21 72 31 31 42 5f 25 3d 42 |").i..$!r11B_%=B|
00018940 61 6c 65 64 52 5f 24 28 31 29 3a 24 21 72 31 31 |aledR_$(1):$!r11|
00018950 31 42 5f 25 3d 42 61 6c 65 64 52 5f 24 28 32 29 |1B_%=BaledR_$(2)|
00018960 3a 24 21 72 32 32 42 5f 25 3d 42 61 6c 65 64 52 |:$!r22B_%=BaledR|
00018970 5f 24 28 33 29 3a 24 21 72 33 33 42 5f 25 3d 42 |_$(3):$!r33B_%=B|
00018980 61 6c 65 64 52 5f 24 28 34 29 3a 24 21 72 33 33 |aledR_$(4):$!r33|
00018990 33 42 5f 25 3d 42 61 6c 65 64 52 5f 24 28 35 29 |3B_%=BaledR_$(5)|
000189a0 3a 24 21 72 34 34 42 5f 25 3d 42 61 6c 65 64 52 |:$!r44B_%=BaledR|
000189b0 5f 24 28 36 29 3a 24 21 72 34 34 34 42 5f 25 3d |_$(6):$!r444B_%=|
000189c0 42 61 6c 65 64 52 5f 24 28 37 29 3a 24 21 72 35 |BaledR_$(7):$!r5|
000189d0 35 42 5f 25 3d 42 61 6c 65 64 52 5f 24 28 38 29 |5B_%=BaledR_$(8)|
000189e0 3a 24 21 72 35 35 35 42 5f 25 3d 42 61 6c 65 64 |:$!r555B_%=Baled|
000189f0 52 5f 24 28 39 29 3a 24 21 72 36 36 42 5f 25 3d |R_$(9):$!r66B_%=|
00018a00 42 61 6c 65 64 52 5f 24 28 31 30 29 3a 3d a3 0d |BaledR_$(10):=..|
00018a10 69 fa 10 dd a4 69 6e 69 74 76 61 74 70 63 5f 0d |i....initvatpc_.|
00018a20 69 ff 08 ea 20 5a 25 0d 6a 04 14 5a 25 3d a4 56 |i... Z%.j..Z%=.V|
00018a30 61 70 61 70 65 72 73 69 7a 65 5f 0d 6a 09 63 24 |apapersize_.j.c$|
00018a40 21 56 61 66 6f 6e 74 78 5f 25 3d 56 61 74 43 5f |!Vafontx_%=VatC_|
00018a50 24 28 38 29 3a 24 21 56 61 66 6f 6e 74 79 5f 25 |$(8):$!Vafonty_%|
00018a60 3d 56 61 74 43 5f 24 28 39 29 3a 24 21 56 61 66 |=VatC_$(9):$!Vaf|
00018a70 6e 61 6d 65 5f 25 3d 46 6f 5f 24 28 56 61 74 43 |name_%=Fo_$(VatC|
00018a80 5f 25 28 38 29 29 3a 24 21 56 61 73 61 76 65 61 |_%(8)):$!Vasavea|
00018a90 73 5f 25 3d 56 61 74 43 5f 24 28 31 30 29 0d 6a |s_%=VatC_$(10).j|
00018aa0 0e 64 e7 56 61 74 43 5f 25 28 31 29 3d 31 8c f2 |.d.VatC_%(1)=1..|
00018ab0 73 49 28 57 25 2c 22 76 63 33 22 29 3a f2 75 73 |sI(W%,"vc3"):.us|
00018ac0 49 28 57 25 2c 22 76 63 34 22 29 3a 56 61 74 43 |I(W%,"vc4"):VatC|
00018ad0 5f 25 28 32 29 3d 2d 31 20 8b f2 73 49 28 57 25 |_%(2)=-1 ..sI(W%|
00018ae0 2c 22 76 63 34 22 29 3a f2 75 73 49 28 57 25 2c |,"vc4"):.usI(W%,|
00018af0 22 76 63 33 22 29 3a 56 61 74 43 5f 25 28 32 29 |"vc3"):VatC_%(2)|
00018b00 3d 31 0d 6a 13 5d 24 21 76 63 31 5f 25 3d 56 61 |=1.j.]$!vc1_%=Va|
00018b10 74 43 5f 24 28 31 29 3a 24 21 76 63 32 5f 25 3d |tC_$(1):$!vc2_%=|
00018b20 56 61 74 43 5f 24 28 32 29 3a 24 21 76 63 37 5f |VatC_$(2):$!vc7_|
00018b30 25 3d 56 61 74 43 5f 24 28 33 29 3a 24 21 76 63 |%=VatC_$(3):$!vc|
00018b40 38 5f 25 3d 56 61 74 43 5f 24 28 34 29 3a 24 21 |8_%=VatC_$(4):$!|
00018b50 76 63 39 5f 25 3d 56 61 74 43 5f 24 28 35 29 0d |vc9_%=VatC_$(5).|
00018b60 6a 18 41 24 21 70 61 73 73 38 38 5f 25 3d 22 22 |j.A$!pass88_%=""|
00018b70 3a e7 70 61 73 73 38 5f 24 3c 3e 22 22 8c 24 21 |:.pass8_$<>"".$!|
00018b80 53 70 61 73 73 38 38 5f 25 3d 22 4f 4e 22 8b 24 |Spass88_%="ON".$|
00018b90 21 53 70 61 73 73 38 38 5f 25 3d 22 4f 66 66 22 |!Spass88_%="Off"|
00018ba0 0d 6a 1d 1b e7 56 61 74 43 5f 24 28 34 29 3d 22 |.j...VatC_$(4)="|
00018bb0 22 8c 3d a4 76 63 64 61 74 65 5f 0d 6a 22 06 3d |".=.vcdate_.j".=|
00018bc0 b9 0d 6a ae a8 dd a4 43 69 6e 69 74 73 75 70 6c |..j....Cinitsupl|
00018bd0 69 73 74 5f 3a ea 20 5a 25 3a 5a 25 3d a4 43 53 |ist_:. Z%:Z%=.CS|
00018be0 4c 70 61 70 65 72 73 69 7a 65 5f 3a 24 21 43 53 |Lpapersize_:$!CS|
00018bf0 4c 6c 65 66 74 5f 25 3d c3 28 43 53 4c 6c 65 66 |Lleft_%=.(CSLlef|
00018c00 5f 25 29 3a 24 21 43 53 4c 74 6f 70 70 5f 25 3d |_%):$!CSLtopp_%=|
00018c10 c3 28 43 53 4c 74 6f 70 5f 25 29 3a 24 21 43 53 |.(CSLtop_%):$!CS|
00018c20 4c 73 70 61 63 65 5f 25 3d c3 28 43 53 4c 73 70 |Lspace_%=.(CSLsp|
00018c30 61 63 5f 25 29 3a 24 21 43 53 4c 66 6f 6e 74 78 |ac_%):$!CSLfontx|
00018c40 5f 25 3d c3 28 43 53 4c 66 6f 6e 5f 78 25 29 3a |_%=.(CSLfon_x%):|
00018c50 24 21 43 53 4c 66 6f 6e 74 79 5f 25 3d c3 28 43 |$!CSLfonty_%=.(C|
00018c60 53 4c 66 6f 6e 5f 79 25 29 0d 6a b3 a8 24 21 43 |SLfon_y%).j..$!C|
00018c70 53 4c 66 72 6f 6d 5f 25 3d a4 63 68 74 6f 6c 65 |SLfrom_%=.chtole|
00018c80 6e 5f 28 43 53 4c 66 72 6f 5f 25 2c 43 6d 61 78 |n_(CSLfro_%,Cmax|
00018c90 73 75 70 70 5f 25 29 3a 43 53 4c 66 72 6f 5f 25 |supp_%):CSLfro_%|
00018ca0 3d bb 28 24 21 43 53 4c 66 72 6f 6d 5f 25 29 3a |=.($!CSLfrom_%):|
00018cb0 24 21 43 53 4c 74 6f 5f 25 3d a4 63 68 74 6f 6c |$!CSLto_%=.chtol|
00018cc0 65 6e 5f 28 43 53 4c 74 5f 25 2c 43 6d 61 78 73 |en_(CSLt_%,Cmaxs|
00018cd0 75 70 70 5f 25 29 3a 43 53 4c 74 5f 25 3d bb 28 |upp_%):CSLt_%=.(|
00018ce0 24 21 43 53 4c 74 6f 5f 25 29 3a 5a 25 3d a4 43 |$!CSLto_%):Z%=.C|
00018cf0 66 73 75 6c 69 73 74 5f 3a 24 21 43 53 4c 66 6e |fsulist_:$!CSLfn|
00018d00 61 6d 65 5f 25 3d 46 6f 5f 24 28 6a 5f 66 36 25 |ame_%=Fo_$(j_f6%|
00018d10 29 0d 6a b8 3b e7 43 53 4c 52 65 63 4e 75 5f 25 |).j.;.CSLRecNu_%|
00018d20 3d 31 8c f2 75 73 49 28 57 25 2c 22 43 53 4c 52 |=1..usI(W%,"CSLR|
00018d30 65 63 4e 75 6d 22 29 20 8b f2 73 49 28 57 25 2c |ecNum") ..sI(W%,|
00018d40 22 43 53 4c 52 65 63 4e 75 6d 22 29 0d 6a bd 41 |"CSLRecNum").j.A|
00018d50 e7 43 53 4c 73 75 70 70 6c 69 65 5f 25 3d 31 8c |.CSLsupplie_%=1.|
00018d60 f2 75 73 49 28 57 25 2c 22 43 53 4c 73 75 70 70 |.usI(W%,"CSLsupp|
00018d70 6c 69 65 72 22 29 20 8b f2 73 49 28 57 25 2c 22 |lier") ..sI(W%,"|
00018d80 43 53 4c 73 75 70 70 6c 69 65 72 22 29 0d 6a c2 |CSLsupplier").j.|
00018d90 35 e7 43 53 4c 61 64 31 5f 25 3d 31 8c f2 75 73 |5.CSLad1_%=1..us|
00018da0 49 28 57 25 2c 22 43 53 4c 61 64 31 31 22 29 20 |I(W%,"CSLad11") |
00018db0 8b f2 73 49 28 57 25 2c 22 43 53 4c 61 64 31 31 |..sI(W%,"CSLad11|
00018dc0 22 29 0d 6a c7 35 e7 43 53 4c 61 64 32 5f 25 3d |").j.5.CSLad2_%=|
00018dd0 31 8c f2 75 73 49 28 57 25 2c 22 43 53 4c 61 64 |1..usI(W%,"CSLad|
00018de0 32 32 22 29 20 8b f2 73 49 28 57 25 2c 22 43 53 |22") ..sI(W%,"CS|
00018df0 4c 61 64 32 32 22 29 0d 6a cc 35 e7 43 53 4c 61 |Lad22").j.5.CSLa|
00018e00 64 33 5f 25 3d 31 8c f2 75 73 49 28 57 25 2c 22 |d3_%=1..usI(W%,"|
00018e10 43 53 4c 61 64 33 33 22 29 20 8b f2 73 49 28 57 |CSLad33") ..sI(W|
00018e20 25 2c 22 43 53 4c 61 64 33 33 22 29 0d 6a d1 35 |%,"CSLad33").j.5|
00018e30 e7 43 53 4c 61 64 34 5f 25 3d 31 8c f2 75 73 49 |.CSLad4_%=1..usI|
00018e40 28 57 25 2c 22 43 53 4c 61 64 34 34 22 29 20 8b |(W%,"CSLad44") .|
00018e50 f2 73 49 28 57 25 2c 22 43 53 4c 61 64 34 34 22 |.sI(W%,"CSLad44"|
00018e60 29 0d 6a d6 35 e7 43 53 4c 70 6f 73 5f 25 3d 31 |).j.5.CSLpos_%=1|
00018e70 8c f2 75 73 49 28 57 25 2c 22 43 53 4c 70 6f 73 |..usI(W%,"CSLpos|
00018e80 74 22 29 20 8b f2 73 49 28 57 25 2c 22 43 53 4c |t") ..sI(W%,"CSL|
00018e90 70 6f 73 74 22 29 0d 6a db 35 e7 43 53 4c 63 6f |post").j.5.CSLco|
00018ea0 6e 5f 25 3d 31 8c f2 75 73 49 28 57 25 2c 22 43 |n_%=1..usI(W%,"C|
00018eb0 53 4c 63 6f 6e 74 22 29 20 8b f2 73 49 28 57 25 |SLcont") ..sI(W%|
00018ec0 2c 22 43 53 4c 63 6f 6e 74 22 29 0d 6a e0 35 e7 |,"CSLcont").j.5.|
00018ed0 43 53 4c 74 65 6c 5f 25 3d 31 8c f2 75 73 49 28 |CSLtel_%=1..usI(|
00018ee0 57 25 2c 22 43 53 4c 74 65 6c 65 22 29 20 8b f2 |W%,"CSLtele") ..|
00018ef0 73 49 28 57 25 2c 22 43 53 4c 74 65 6c 65 22 29 |sI(W%,"CSLtele")|
00018f00 0d 6a e5 32 e7 43 53 4c 66 61 5f 25 3d 31 8c f2 |.j.2.CSLfa_%=1..|
00018f10 75 73 49 28 57 25 2c 22 43 53 4c 66 61 78 22 29 |usI(W%,"CSLfax")|
00018f20 20 8b f2 73 49 28 57 25 2c 22 43 53 4c 66 61 78 | ..sI(W%,"CSLfax|
00018f30 22 29 0d 6a ea 38 e7 43 53 4c 63 6f 6d 31 5f 25 |").j.8.CSLcom1_%|
00018f40 3d 31 8c f2 75 73 49 28 57 25 2c 22 43 53 4c 63 |=1..usI(W%,"CSLc|
00018f50 6f 6d 31 31 22 29 20 8b f2 73 49 28 57 25 2c 22 |om11") ..sI(W%,"|
00018f60 43 53 4c 63 6f 6d 31 31 22 29 0d 6a ef 38 e7 43 |CSLcom11").j.8.C|
00018f70 53 4c 63 6f 6d 32 5f 25 3d 31 8c f2 75 73 49 28 |SLcom2_%=1..usI(|
00018f80 57 25 2c 22 43 53 4c 63 6f 6d 32 32 22 29 20 8b |W%,"CSLcom22") .|
00018f90 f2 73 49 28 57 25 2c 22 43 53 4c 63 6f 6d 32 32 |.sI(W%,"CSLcom22|
00018fa0 22 29 0d 6a f4 3e e7 43 53 4c 73 75 70 70 72 65 |").j.>.CSLsuppre|
00018fb0 5f 25 3d 31 8c f2 75 73 49 28 57 25 2c 22 43 53 |_%=1..usI(W%,"CS|
00018fc0 4c 73 75 70 70 72 65 66 22 29 20 8b f2 73 49 28 |Lsuppref") ..sI(|
00018fd0 57 25 2c 22 43 53 4c 73 75 70 70 72 65 66 22 29 |W%,"CSLsuppref")|
00018fe0 0d 6a f9 3e e7 43 53 4c 79 6f 75 72 72 65 5f 25 |.j.>.CSLyourre_%|
00018ff0 3d 31 8c f2 75 73 49 28 57 25 2c 22 43 53 4c 79 |=1..usI(W%,"CSLy|
00019000 6f 75 72 72 65 66 22 29 20 8b f2 73 49 28 57 25 |ourref") ..sI(W%|
00019010 2c 22 43 53 4c 79 6f 75 72 72 65 66 22 29 0d 6a |,"CSLyourref").j|
00019020 fe 3b e7 43 53 4c 6f 72 64 70 72 5f 25 3d 31 8c |.;.CSLordpr_%=1.|
00019030 f2 75 73 49 28 57 25 2c 22 43 53 4c 6f 72 64 70 |.usI(W%,"CSLordp|
00019040 72 65 22 29 20 8b f2 73 49 28 57 25 2c 22 43 53 |re") ..sI(W%,"CS|
00019050 4c 6f 72 64 70 72 65 22 29 0d 6b 03 35 e7 43 53 |Lordpre").k.5.CS|
00019060 4c 64 65 62 5f 25 3d 31 8c f2 75 73 49 28 57 25 |Ldeb_%=1..usI(W%|
00019070 2c 22 43 53 4c 64 65 62 74 22 29 20 8b f2 73 49 |,"CSLdebt") ..sI|
00019080 28 57 25 2c 22 43 53 4c 64 65 62 74 22 29 0d 6b |(W%,"CSLdebt").k|
00019090 08 06 3d a3 0d 6b 0d 04 0d 6b 12 13 dd a4 6e 70 |..=..k...k....np|
000190a0 64 5f 28 41 5f 24 2c 42 5f 24 29 0d 6b 17 07 ea |d_(A_$,B_$).k...|
000190b0 20 85 0d 6b 1c 20 ee 20 85 20 ea 3a f7 20 85 3a | ..k. . . .:. .:|
000190c0 f2 72 49 28 57 25 2c 70 64 5f 24 29 3a 3d 70 64 |.rI(W%,pd_$):=pd|
000190d0 5f 24 0d 6b 21 a5 c8 99 26 38 30 31 34 30 20 b8 |_$.k!...&80140 .|
000190e0 20 2c 70 78 72 65 73 5f 25 2c 70 79 72 65 73 5f | ,pxres_%,pyres_|
000190f0 25 2c 2c 24 70 6e 61 6d 65 25 3a e7 41 5f 24 3c |%,,$pname%:.A_$<|
00019100 3e 24 70 6e 61 6d 65 25 2b 22 20 28 22 2b c3 28 |>$pname%+" ("+.(|
00019110 70 78 72 65 73 5f 25 29 2b 22 20 62 79 20 22 2b |pxres_%)+" by "+|
00019120 c3 28 70 79 72 65 73 5f 25 29 2b 22 20 64 70 69 |.(pyres_%)+" dpi|
00019130 29 22 8c 3d 24 70 6e 61 6d 65 25 2b 22 20 28 22 |)".=$pname%+" ("|
00019140 2b c3 28 70 78 72 65 73 5f 25 29 2b 22 20 62 79 |+.(pxres_%)+" by|
00019150 20 22 2b c3 28 70 79 72 65 73 5f 25 29 2b 22 20 | "+.(pyres_%)+" |
00019160 64 70 69 29 22 3a f2 72 49 28 57 25 2c 42 5f 24 |dpi)":.rI(W%,B_$|
00019170 29 20 8b 3d 41 5f 24 0d 6b 26 04 0d 6b 3f 1b dd |) .=A_$.k&..k?..|
00019180 a4 58 66 73 75 6c 61 62 5f 3a e7 62 61 6e 6b 70 |.Xfsulab_:.bankp|
00019190 25 3d 30 8c 3d a3 0d 6b 44 32 24 21 58 70 72 69 |%=0.=..kD2$!Xpri|
000191a0 6e 74 65 72 5f 25 3d a4 6e 70 64 5f 28 24 21 58 |nter_%=.npd_($!X|
000191b0 70 72 69 6e 74 65 72 5f 25 2c 22 58 70 72 69 6e |printer_%,"Xprin|
000191c0 74 65 72 22 29 3a 3d a3 0d 6b 49 1c dd a4 43 66 |ter"):=..kI...Cf|
000191d0 73 75 6c 61 62 5f 3a e7 43 4c 61 62 53 75 25 3d |sulab_:.CLabSu%=|
000191e0 30 8c 3d a3 0d 6b 4e 35 24 21 43 53 70 72 69 6e |0.=..kN5$!CSprin|
000191f0 74 65 72 5f 25 3d a4 6e 70 64 5f 28 24 21 43 53 |ter_%=.npd_($!CS|
00019200 70 72 69 6e 74 65 72 5f 25 2c 22 43 53 70 72 69 |printer_%,"CSpri|
00019210 6e 74 65 72 22 29 3a 3d a3 0d 6b 62 1c dd a4 66 |nter"):=..kb...f|
00019220 73 61 6c 69 73 74 5f 3a e7 73 61 6c 65 64 32 25 |salist_:.saled2%|
00019230 3d 30 8c 3d a3 0d 6b 67 35 24 21 53 61 70 72 69 |=0.=..kg5$!Sapri|
00019240 6e 74 65 72 5f 25 3d a4 6e 70 64 5f 28 24 21 53 |nter_%=.npd_($!S|
00019250 61 70 72 69 6e 74 65 72 5f 25 2c 22 53 61 70 72 |aprinter_%,"Sapr|
00019260 69 6e 74 65 72 22 29 3a 3d a3 0d 6b 6c 1c dd a4 |inter"):=..kl...|
00019270 66 70 61 6c 69 73 74 5f 3a e7 70 61 6c 65 64 32 |fpalist_:.paled2|
00019280 25 3d 30 8c 3d a3 0d 6b 71 35 24 21 50 61 70 72 |%=0.=..kq5$!Papr|
00019290 69 6e 74 65 72 5f 25 3d a4 6e 70 64 5f 28 24 21 |inter_%=.npd_($!|
000192a0 50 61 70 72 69 6e 74 65 72 5f 25 2c 22 50 61 70 |Paprinter_%,"Pap|
000192b0 72 69 6e 74 65 72 22 29 3a 3d a3 0d 6b 76 1b dd |rinter"):=..kv..|
000192c0 a4 66 62 61 6c 69 73 74 5f 3a e7 62 61 6e 6b 32 |.fbalist_:.bank2|
000192d0 25 3d 30 8c 3d a3 0d 6b 7b 35 24 21 42 61 70 72 |%=0.=..k{5$!Bapr|
000192e0 69 6e 74 65 72 5f 25 3d a4 6e 70 64 5f 28 24 21 |inter_%=.npd_($!|
000192f0 42 61 70 72 69 6e 74 65 72 5f 25 2c 22 42 61 70 |Baprinter_%,"Bap|
00019300 72 69 6e 74 65 72 22 29 3a 3d a3 0d 6b 80 1b dd |rinter"):=..k...|
00019310 a4 66 76 61 6c 69 73 74 5f 3a e7 76 61 74 70 63 |.fvalist_:.vatpc|
00019320 25 3d 30 8c 3d a3 0d 6b 85 35 24 21 56 61 70 72 |%=0.=..k.5$!Vapr|
00019330 69 6e 74 65 72 5f 25 3d a4 6e 70 64 5f 28 24 21 |inter_%=.npd_($!|
00019340 56 61 70 72 69 6e 74 65 72 5f 25 2c 22 56 61 70 |Vaprinter_%,"Vap|
00019350 72 69 6e 74 65 72 22 29 3a 3d a3 0d 6b ad 1c dd |rinter"):=..k...|
00019360 a4 43 66 73 75 6c 69 73 74 5f 3a e7 43 53 4c 73 |.Cfsulist_:.CSLs|
00019370 75 25 3d 30 8c 3d a3 0d 6b b2 38 24 21 43 53 4c |u%=0.=..k.8$!CSL|
00019380 70 72 69 6e 74 65 72 5f 25 3d a4 6e 70 64 5f 28 |printer_%=.npd_(|
00019390 24 21 43 53 4c 70 72 69 6e 74 65 72 5f 25 2c 22 |$!CSLprinter_%,"|
000193a0 43 53 4c 70 72 69 6e 74 65 72 22 29 3a 3d a3 0d |CSLprinter"):=..|
000193b0 6b df 95 dd a4 75 70 64 61 74 65 62 61 6e 6b 74 |k....updatebankt|
000193c0 6f 74 5f 3a ea 20 5a 25 3a 5a 25 3d a4 58 66 73 |ot_:. Z%:Z%=.Xfs|
000193d0 75 6c 61 62 5f 3a 58 70 61 67 78 5f 25 3d bb 28 |ulab_:Xpagx_%=.(|
000193e0 24 21 58 70 61 67 65 78 5f 25 29 3a 58 70 61 67 |$!Xpagex_%):Xpag|
000193f0 79 5f 25 3d bb 28 24 21 58 70 61 67 65 79 5f 25 |y_%=.($!Xpagey_%|
00019400 29 3a 58 66 6f 6e 5f 78 25 3d bb 28 24 21 58 66 |):Xfon_x%=.($!Xf|
00019410 6f 6e 74 78 5f 25 29 3a 58 66 6f 6e 5f 79 25 3d |ontx_%):Xfon_y%=|
00019420 bb 28 24 21 58 66 6f 6e 74 79 5f 25 29 3a 58 6e |.($!Xfonty_%):Xn|
00019430 61 6d 5f 24 3d 24 21 58 61 73 61 76 65 61 73 5f |am_$=$!Xasaveas_|
00019440 25 3a 3d a3 0d 6c 0c 18 dd a4 43 75 70 64 61 74 |%:=..l....Cupdat|
00019450 65 73 75 6c 61 62 5f 3a ea 20 5a 25 0d 6c 11 c5 |esulab_:. Z%.l..|
00019460 43 53 64 6f 77 5f 25 3d bb 28 24 21 43 53 64 6f |CSdow_%=.($!CSdo|
00019470 77 6e 5f 25 29 3a 43 53 61 63 72 6f 73 5f 25 3d |wn_%):CSacros_%=|
00019480 bb 28 24 21 43 53 61 63 72 6f 73 73 5f 25 29 3a |.($!CSacross_%):|
00019490 43 53 6e 75 6d 62 65 5f 25 3d bb 28 24 21 43 53 |CSnumbe_%=.($!CS|
000194a0 6e 75 6d 62 65 72 5f 25 29 3a 43 53 73 74 61 72 |number_%):CSstar|
000194b0 5f 25 3d bb 28 24 21 43 53 73 74 61 72 74 5f 25 |_%=.($!CSstart_%|
000194c0 29 3a 43 53 70 61 67 78 5f 25 3d bb 28 24 21 43 |):CSpagx_%=.($!C|
000194d0 53 70 61 67 65 78 5f 25 29 3a 43 53 70 61 67 79 |Spagex_%):CSpagy|
000194e0 5f 25 3d bb 28 24 21 43 53 70 61 67 65 79 5f 25 |_%=.($!CSpagey_%|
000194f0 29 3a 43 53 66 6f 6e 5f 78 25 3d bb 28 24 21 43 |):CSfon_x%=.($!C|
00019500 53 66 6f 6e 74 78 5f 25 29 3a 43 53 66 6f 6e 5f |Sfontx_%):CSfon_|
00019510 79 25 3d bb 28 24 21 43 53 66 6f 6e 74 79 5f 25 |y%=.($!CSfonty_%|
00019520 29 0d 6c 16 8b 43 73 43 6f 6d 5f 24 3d 24 21 43 |).l..CsCom_$=$!C|
00019530 73 43 6f 6d 6d 5f 25 3a 43 73 50 6f 73 5f 24 3d |sComm_%:CsPos_$=|
00019540 24 21 43 73 50 6f 73 74 5f 25 3a 24 21 43 53 75 |$!CsPost_%:$!CSu|
00019550 70 46 72 6f 6d 5f 25 3d a4 63 68 74 6f 6c 65 6e |pFrom_%=.chtolen|
00019560 5f 28 bb 28 24 21 43 53 75 70 46 72 6f 6d 5f 25 |_(.($!CSupFrom_%|
00019570 29 2c 43 6d 61 78 73 75 70 70 5f 25 29 3a 24 21 |),Cmaxsupp_%):$!|
00019580 43 53 75 70 54 6f 5f 25 3d a4 63 68 74 6f 6c 65 |CSupTo_%=.chtole|
00019590 6e 5f 28 bb 28 24 21 43 53 75 70 54 6f 5f 25 29 |n_(.($!CSupTo_%)|
000195a0 2c 43 6d 61 78 73 75 70 70 5f 25 29 0d 6c 1b 3a |,Cmaxsupp_%).l.:|
000195b0 e7 bb 28 24 21 43 53 75 70 54 6f 5f 25 29 3c bb |..($!CSupTo_%)<.|
000195c0 28 24 21 43 53 75 70 46 72 6f 6d 5f 25 29 8c 24 |($!CSupFrom_%).$|
000195d0 21 43 53 75 70 54 6f 5f 25 3d 24 21 43 53 75 70 |!CSupTo_%=$!CSup|
000195e0 46 72 6f 6d 5f 25 0d 6c 20 33 43 53 75 70 46 72 |From_%.l 3CSupFr|
000195f0 6f 5f 25 3d bb 28 24 21 43 53 75 70 46 72 6f 6d |o_%=.($!CSupFrom|
00019600 5f 25 29 3a 43 53 75 70 54 5f 25 3d bb 28 24 21 |_%):CSupT_%=.($!|
00019610 43 53 75 70 54 6f 5f 25 29 0d 6c 25 62 e7 43 53 |CSupTo_%).l%b.CS|
00019620 75 70 46 72 6f 5f 25 3d 43 53 75 70 54 5f 25 3a |upFro_%=CSupT_%:|
00019630 43 53 75 70 46 72 6f 5f 25 3d 43 53 5f 25 3a 43 |CSupFro_%=CS_%:C|
00019640 53 75 70 54 5f 25 3d 43 53 5f 25 3a 24 21 43 53 |SupT_%=CS_%:$!CS|
00019650 75 70 46 72 6f 6d 5f 25 3d c3 28 43 53 75 70 46 |upFrom_%=.(CSupF|
00019660 72 6f 5f 25 29 3a 24 21 43 53 75 70 54 6f 5f 25 |ro_%):$!CSupTo_%|
00019670 3d c3 28 43 53 75 70 54 5f 25 29 0d 6c 2a 54 f2 |=.(CSupT_%).l*T.|
00019680 72 49 28 43 4c 61 62 53 75 25 2c 22 43 53 75 70 |rI(CLabSu%,"CSup|
00019690 46 72 6f 6d 22 29 3a f2 72 49 28 43 4c 61 62 53 |From"):.rI(CLabS|
000196a0 75 25 2c 22 43 53 75 70 54 6f 22 29 3a e7 57 25 |u%,"CSupTo"):.W%|
000196b0 3d 43 4c 61 62 53 75 25 3a 5a 25 3d a4 43 66 73 |=CLabSu%:Z%=.Cfs|
000196c0 75 6c 61 62 5f 3a f2 73 65 74 43 5f 28 33 29 0d |ulab_:.setC_(3).|
000196d0 6c 2f 06 3d a3 0d 6c 34 04 0d 6c 4d 39 dd a4 75 |l/.=..l4..lM9..u|
000196e0 70 64 61 74 65 73 61 6c 65 64 32 5f 3a ea 20 47 |pdatesaled2_:. G|
000196f0 25 2c 48 25 2c 5a 25 3a 47 25 3d 74 5f 25 3a 48 |%,H%,Z%:G%=t_%:H|
00019700 25 3d 75 5f 25 3a 5a 25 3d a4 66 73 61 6c 69 73 |%=u_%:Z%=.fsalis|
00019710 74 5f 0d 6c 52 3c e7 24 21 72 31 31 53 5f 25 3c |t_.lR<.$!r11S_%<|
00019720 3e 22 22 8c 24 21 72 31 31 53 5f 25 3d a4 63 68 |>"".$!r11S_%=.ch|
00019730 64 61 74 65 5f 28 24 21 72 31 31 53 5f 25 29 3a |date_($!r11S_%):|
00019740 f2 72 49 28 57 25 2c 22 72 31 31 53 22 29 0d 6c |.rI(W%,"r11S").l|
00019750 57 40 e7 24 21 72 31 31 31 53 5f 25 3c 3e 22 22 |W@.$!r111S_%<>""|
00019760 8c 24 21 72 31 31 31 53 5f 25 3d a4 63 68 64 61 |.$!r111S_%=.chda|
00019770 74 65 5f 28 24 21 72 31 31 31 53 5f 25 29 3a f2 |te_($!r111S_%):.|
00019780 72 49 28 57 25 2c 22 72 31 31 31 53 22 29 0d 6c |rI(W%,"r111S").l|
00019790 5c 46 e7 24 21 72 32 32 53 5f 25 3c 3e 22 22 8c |\F.$!r22S_%<>"".|
000197a0 24 21 72 32 32 53 5f 25 3d c2 a4 63 68 64 61 74 |$!r22S_%=..chdat|
000197b0 65 5f 28 22 30 31 2e 22 2b 24 21 72 32 32 53 5f |e_("01."+$!r22S_|
000197c0 25 29 2c 37 29 3a f2 72 49 28 57 25 2c 22 72 32 |%),7):.rI(W%,"r2|
000197d0 32 53 22 29 0d 6c 61 4a e7 24 21 72 32 32 32 53 |2S").laJ.$!r222S|
000197e0 5f 25 3c 3e 22 22 8c 24 21 72 32 32 32 53 5f 25 |_%<>"".$!r222S_%|
000197f0 3d c2 a4 63 68 64 61 74 65 5f 28 22 30 31 2e 22 |=..chdate_("01."|
00019800 2b 24 21 72 32 32 32 53 5f 25 29 2c 37 29 3a f2 |+$!r222S_%),7):.|
00019810 72 49 28 57 25 2c 22 72 32 32 32 53 22 29 0d 6c |rI(W%,"r222S").l|
00019820 66 41 24 74 5f 25 3d 24 21 72 34 34 53 5f 25 3a |fA$t_%=$!r44S_%:|
00019830 24 75 5f 25 3d 24 21 72 39 39 53 5f 25 3a d6 6d |$u_%=$!r99S_%:.m|
00019840 32 5f 25 3a 24 21 72 34 34 53 5f 25 3d 24 74 5f |2_%:$!r44S_%=$t_|
00019850 25 3a 24 21 72 39 39 53 5f 25 3d 24 75 5f 25 0d |%:$!r99S_%=$u_%.|
00019860 6c 6b bd 53 61 6c 65 64 52 5f 24 28 31 29 3d 24 |lk.SaledR_$(1)=$|
00019870 21 72 31 31 53 5f 25 3a 53 61 6c 65 64 52 5f 24 |!r11S_%:SaledR_$|
00019880 28 32 29 3d 24 21 72 31 31 31 53 5f 25 3a 53 61 |(2)=$!r111S_%:Sa|
00019890 6c 65 64 52 5f 24 28 33 29 3d 24 21 72 32 32 53 |ledR_$(3)=$!r22S|
000198a0 5f 25 3a 53 61 6c 65 64 52 5f 24 28 34 29 3d 24 |_%:SaledR_$(4)=$|
000198b0 21 72 32 32 32 53 5f 25 3a 53 61 6c 65 64 52 5f |!r222S_%:SaledR_|
000198c0 24 28 35 29 3d 24 21 72 33 33 53 5f 25 3a f2 72 |$(5)=$!r33S_%:.r|
000198d0 49 28 57 25 2c 22 72 34 34 53 22 29 3a 53 61 6c |I(W%,"r44S"):Sal|
000198e0 65 64 52 5f 24 28 36 29 3d 24 21 72 34 34 53 5f |edR_$(6)=$!r44S_|
000198f0 25 3a 53 61 6c 65 64 52 5f 24 28 37 29 3d 24 21 |%:SaledR_$(7)=$!|
00019900 72 34 34 34 53 5f 25 3a 53 61 6c 65 64 52 5f 24 |r444S_%:SaledR_$|
00019910 28 38 29 3d 24 21 72 35 35 53 5f 25 0d 6c 70 b0 |(8)=$!r55S_%.lp.|
00019920 53 61 6c 65 64 52 5f 24 28 39 29 3d 24 21 72 36 |SaledR_$(9)=$!r6|
00019930 36 53 5f 25 3a 53 61 6c 65 64 52 5f 24 28 31 30 |6S_%:SaledR_$(10|
00019940 29 3d 24 21 72 36 36 36 53 5f 25 3a 53 61 6c 65 |)=$!r666S_%:Sale|
00019950 64 52 5f 24 28 31 31 29 3d 24 21 72 37 37 53 5f |dR_$(11)=$!r77S_|
00019960 25 3a 53 61 6c 65 64 52 5f 24 28 31 32 29 3d 24 |%:SaledR_$(12)=$|
00019970 21 72 37 37 37 53 5f 25 3a 53 61 6c 65 64 52 5f |!r777S_%:SaledR_|
00019980 24 28 31 33 29 3d 24 21 72 37 37 37 37 53 5f 25 |$(13)=$!r7777S_%|
00019990 3a 53 61 6c 65 64 52 5f 24 28 31 34 29 3d 24 21 |:SaledR_$(14)=$!|
000199a0 72 38 38 53 5f 25 3a 53 61 6c 65 64 52 5f 24 28 |r88S_%:SaledR_$(|
000199b0 31 35 29 3d 24 21 72 38 38 38 53 5f 25 3a f2 72 |15)=$!r888S_%:.r|
000199c0 49 28 57 25 2c 22 72 39 39 53 22 29 0d 6c 75 73 |I(W%,"r99S").lus|
000199d0 53 61 6c 65 64 52 5f 24 28 31 36 29 3d 24 21 72 |SaledR_$(16)=$!r|
000199e0 39 39 53 5f 25 3a 53 61 6c 65 64 52 5f 24 28 31 |99S_%:SaledR_$(1|
000199f0 37 29 3d 24 21 72 39 39 39 53 5f 25 3a 53 61 6c |7)=$!r999S_%:Sal|
00019a00 65 64 52 5f 24 28 31 38 29 3d 24 21 72 61 61 53 |edR_$(18)=$!raaS|
00019a10 5f 25 3a 53 61 6c 65 64 52 5f 24 28 31 39 29 3d |_%:SaledR_$(19)=|
00019a20 24 21 72 62 62 53 5f 25 3a 53 61 6c 65 64 52 5f |$!rbbS_%:SaledR_|
00019a30 24 28 32 30 29 3d 24 21 72 62 62 62 53 5f 25 0d |$(20)=$!rbbbS_%.|
00019a40 6c 7a 89 53 61 6c 65 64 52 5f 24 28 32 31 29 3d |lz.SaledR_$(21)=|
00019a50 24 21 53 61 70 61 67 65 78 5f 25 3a 53 61 6c 65 |$!Sapagex_%:Sale|
00019a60 64 52 5f 24 28 32 32 29 3d 24 21 53 61 70 61 67 |dR_$(22)=$!Sapag|
00019a70 65 79 5f 25 3a 53 61 6c 65 64 52 5f 24 28 32 33 |ey_%:SaledR_$(23|
00019a80 29 3d 24 21 53 61 66 6f 6e 74 78 5f 25 3a 53 61 |)=$!Safontx_%:Sa|
00019a90 6c 65 64 52 5f 24 28 32 34 29 3d 24 21 53 61 66 |ledR_$(24)=$!Saf|
00019aa0 6f 6e 74 79 5f 25 3a 53 61 6c 65 64 52 5f 24 28 |onty_%:SaledR_$(|
00019ab0 32 35 29 3d 24 21 53 61 73 61 76 65 61 73 5f 25 |25)=$!Sasaveas_%|
00019ac0 3a 2a 46 58 31 35 2c 31 0d 6c 7f 2b 5a 25 3d a4 |:*FX15,1.l.+Z%=.|
00019ad0 53 61 6c 66 69 6e 64 61 5f 3a 5a 25 3d a4 53 61 |Salfinda_:Z%=.Sa|
00019ae0 6c 66 69 6e 64 68 5f 3a 3d a4 53 61 6c 66 69 6e |lfindh_:=.Salfin|
00019af0 64 73 5f 0d 6c 84 04 0d 6c 89 39 dd a4 75 70 64 |ds_.l...l.9..upd|
00019b00 61 74 65 70 61 6c 65 64 32 5f 3a ea 20 47 25 2c |atepaled2_:. G%,|
00019b10 48 25 2c 5a 25 3a 47 25 3d 74 5f 25 3a 48 25 3d |H%,Z%:G%=t_%:H%=|
00019b20 75 5f 25 3a 5a 25 3d a4 66 70 61 6c 69 73 74 5f |u_%:Z%=.fpalist_|
00019b30 0d 6c 8e 3c e7 24 21 72 31 31 50 5f 25 3c 3e 22 |.l.<.$!r11P_%<>"|
00019b40 22 8c 24 21 72 31 31 50 5f 25 3d a4 63 68 64 61 |".$!r11P_%=.chda|
00019b50 74 65 5f 28 24 21 72 31 31 50 5f 25 29 3a f2 72 |te_($!r11P_%):.r|
00019b60 49 28 57 25 2c 22 72 31 31 50 22 29 0d 6c 93 40 |I(W%,"r11P").l.@|
00019b70 e7 24 21 72 31 31 31 50 5f 25 3c 3e 22 22 8c 24 |.$!r111P_%<>"".$|
00019b80 21 72 31 31 31 50 5f 25 3d a4 63 68 64 61 74 65 |!r111P_%=.chdate|
00019b90 5f 28 24 21 72 31 31 31 50 5f 25 29 3a f2 72 49 |_($!r111P_%):.rI|
00019ba0 28 57 25 2c 22 72 31 31 31 50 22 29 0d 6c 98 46 |(W%,"r111P").l.F|
00019bb0 e7 24 21 72 32 32 50 5f 25 3c 3e 22 22 8c 24 21 |.$!r22P_%<>"".$!|
00019bc0 72 32 32 50 5f 25 3d c2 a4 63 68 64 61 74 65 5f |r22P_%=..chdate_|
00019bd0 28 22 30 31 2e 22 2b 24 21 72 32 32 50 5f 25 29 |("01."+$!r22P_%)|
00019be0 2c 37 29 3a f2 72 49 28 57 25 2c 22 72 32 32 50 |,7):.rI(W%,"r22P|
00019bf0 22 29 0d 6c 9d 4a e7 24 21 72 32 32 32 50 5f 25 |").l.J.$!r222P_%|
00019c00 3c 3e 22 22 8c 24 21 72 32 32 32 50 5f 25 3d c2 |<>"".$!r222P_%=.|
00019c10 a4 63 68 64 61 74 65 5f 28 22 30 31 2e 22 2b 24 |.chdate_("01."+$|
00019c20 21 72 32 32 32 50 5f 25 29 2c 37 29 3a f2 72 49 |!r222P_%),7):.rI|
00019c30 28 57 25 2c 22 72 32 32 32 50 22 29 0d 6c a2 41 |(W%,"r222P").l.A|
00019c40 24 74 5f 25 3d 24 21 72 34 34 50 5f 25 3a 24 75 |$t_%=$!r44P_%:$u|
00019c50 5f 25 3d 24 21 72 39 39 50 5f 25 3a d6 6d 32 5f |_%=$!r99P_%:.m2_|
00019c60 25 3a 24 21 72 34 34 50 5f 25 3d 24 74 5f 25 3a |%:$!r44P_%=$t_%:|
00019c70 24 21 72 39 39 50 5f 25 3d 24 75 5f 25 0d 6c a7 |$!r99P_%=$u_%.l.|
00019c80 bd 50 61 6c 65 64 52 5f 24 28 31 29 3d 24 21 72 |.PaledR_$(1)=$!r|
00019c90 31 31 50 5f 25 3a 50 61 6c 65 64 52 5f 24 28 32 |11P_%:PaledR_$(2|
00019ca0 29 3d 24 21 72 31 31 31 50 5f 25 3a 50 61 6c 65 |)=$!r111P_%:Pale|
00019cb0 64 52 5f 24 28 33 29 3d 24 21 72 32 32 50 5f 25 |dR_$(3)=$!r22P_%|
00019cc0 3a 50 61 6c 65 64 52 5f 24 28 34 29 3d 24 21 72 |:PaledR_$(4)=$!r|
00019cd0 32 32 32 50 5f 25 3a 50 61 6c 65 64 52 5f 24 28 |222P_%:PaledR_$(|
00019ce0 35 29 3d 24 21 72 33 33 50 5f 25 3a f2 72 49 28 |5)=$!r33P_%:.rI(|
00019cf0 57 25 2c 22 72 34 34 50 22 29 3a 50 61 6c 65 64 |W%,"r44P"):Paled|
00019d00 52 5f 24 28 36 29 3d 24 21 72 34 34 50 5f 25 3a |R_$(6)=$!r44P_%:|
00019d10 50 61 6c 65 64 52 5f 24 28 37 29 3d 24 21 72 34 |PaledR_$(7)=$!r4|
00019d20 34 34 50 5f 25 3a 50 61 6c 65 64 52 5f 24 28 38 |44P_%:PaledR_$(8|
00019d30 29 3d 24 21 72 35 35 50 5f 25 0d 6c ac b0 50 61 |)=$!r55P_%.l..Pa|
00019d40 6c 65 64 52 5f 24 28 39 29 3d 24 21 72 36 36 50 |ledR_$(9)=$!r66P|
00019d50 5f 25 3a 50 61 6c 65 64 52 5f 24 28 31 30 29 3d |_%:PaledR_$(10)=|
00019d60 24 21 72 36 36 36 50 5f 25 3a 50 61 6c 65 64 52 |$!r666P_%:PaledR|
00019d70 5f 24 28 31 31 29 3d 24 21 72 37 37 50 5f 25 3a |_$(11)=$!r77P_%:|
00019d80 50 61 6c 65 64 52 5f 24 28 31 32 29 3d 24 21 72 |PaledR_$(12)=$!r|
00019d90 37 37 37 50 5f 25 3a 50 61 6c 65 64 52 5f 24 28 |777P_%:PaledR_$(|
00019da0 31 33 29 3d 24 21 72 37 37 37 37 50 5f 25 3a 50 |13)=$!r7777P_%:P|
00019db0 61 6c 65 64 52 5f 24 28 31 34 29 3d 24 21 72 38 |aledR_$(14)=$!r8|
00019dc0 38 50 5f 25 3a 50 61 6c 65 64 52 5f 24 28 31 35 |8P_%:PaledR_$(15|
00019dd0 29 3d 24 21 72 38 38 38 50 5f 25 3a f2 72 49 28 |)=$!r888P_%:.rI(|
00019de0 57 25 2c 22 72 39 39 50 22 29 0d 6c b1 73 50 61 |W%,"r99P").l.sPa|
00019df0 6c 65 64 52 5f 24 28 31 36 29 3d 24 21 72 39 39 |ledR_$(16)=$!r99|
00019e00 50 5f 25 3a 50 61 6c 65 64 52 5f 24 28 31 37 29 |P_%:PaledR_$(17)|
00019e10 3d 24 21 72 39 39 39 50 5f 25 3a 50 61 6c 65 64 |=$!r999P_%:Paled|
00019e20 52 5f 24 28 31 38 29 3d 24 21 72 61 61 50 5f 25 |R_$(18)=$!raaP_%|
00019e30 3a 50 61 6c 65 64 52 5f 24 28 31 39 29 3d 24 21 |:PaledR_$(19)=$!|
00019e40 72 62 62 50 5f 25 3a 50 61 6c 65 64 52 5f 24 28 |rbbP_%:PaledR_$(|
00019e50 32 30 29 3d 24 21 72 62 62 62 50 5f 25 0d 6c b6 |20)=$!rbbbP_%.l.|
00019e60 89 50 61 6c 65 64 52 5f 24 28 32 31 29 3d 24 21 |.PaledR_$(21)=$!|
00019e70 50 61 70 61 67 65 78 5f 25 3a 50 61 6c 65 64 52 |Papagex_%:PaledR|
00019e80 5f 24 28 32 32 29 3d 24 21 50 61 70 61 67 65 79 |_$(22)=$!Papagey|
00019e90 5f 25 3a 50 61 6c 65 64 52 5f 24 28 32 33 29 3d |_%:PaledR_$(23)=|
00019ea0 24 21 50 61 66 6f 6e 74 78 5f 25 3a 50 61 6c 65 |$!Pafontx_%:Pale|
00019eb0 64 52 5f 24 28 32 34 29 3d 24 21 50 61 66 6f 6e |dR_$(24)=$!Pafon|
00019ec0 74 79 5f 25 3a 50 61 6c 65 64 52 5f 24 28 32 35 |ty_%:PaledR_$(25|
00019ed0 29 3d 24 21 50 61 73 61 76 65 61 73 5f 25 3a 2a |)=$!Pasaveas_%:*|
00019ee0 46 58 31 35 2c 31 0d 6c bb 2b 5a 25 3d a4 50 61 |FX15,1.l.+Z%=.Pa|
00019ef0 6c 66 69 6e 64 61 5f 3a 5a 25 3d a4 50 61 6c 66 |lfinda_:Z%=.Palf|
00019f00 69 6e 64 68 5f 3a 3d a4 50 61 6c 66 69 6e 64 73 |indh_:=.Palfinds|
00019f10 5f 0d 6c c0 04 0d 6c c5 71 dd a4 75 70 64 61 74 |_.l...l.q..updat|
00019f20 65 62 61 6e 6b 32 5f 3a ea 20 47 25 2c 48 25 2c |ebank2_:. G%,H%,|
00019f30 5a 25 3a 47 25 3d 74 5f 25 3a 48 25 3d 75 5f 25 |Z%:G%=t_%:H%=u_%|
00019f40 3a 5a 25 3d a4 66 62 61 6c 69 73 74 5f 3a e7 24 |:Z%=.fbalist_:.$|
00019f50 21 72 31 31 42 5f 25 3c 3e 22 22 8c 24 21 72 31 |!r11B_%<>"".$!r1|
00019f60 31 42 5f 25 3d a4 63 68 64 61 74 65 5f 28 24 21 |1B_%=.chdate_($!|
00019f70 72 31 31 42 5f 25 29 3a f2 72 49 28 57 25 2c 22 |r11B_%):.rI(W%,"|
00019f80 72 31 31 42 22 29 0d 6c ca 40 e7 24 21 72 31 31 |r11B").l.@.$!r11|
00019f90 31 42 5f 25 3c 3e 22 22 8c 24 21 72 31 31 31 42 |1B_%<>"".$!r111B|
00019fa0 5f 25 3d a4 63 68 64 61 74 65 5f 28 24 21 72 31 |_%=.chdate_($!r1|
00019fb0 31 31 42 5f 25 29 3a f2 72 49 28 57 25 2c 22 72 |11B_%):.rI(W%,"r|
00019fc0 31 31 31 42 22 29 0d 6c cf e6 24 74 5f 25 3d 24 |111B").l..$t_%=$|
00019fd0 21 72 33 33 42 5f 25 3a 24 75 5f 25 3d 24 21 72 |!r33B_%:$u_%=$!r|
00019fe0 35 35 42 5f 25 3a d6 6d 32 5f 25 3a 24 21 72 33 |55B_%:.m2_%:$!r3|
00019ff0 33 42 5f 25 3d 24 74 5f 25 3a 24 21 72 35 35 42 |3B_%=$t_%:$!r55B|
0001a000 5f 25 3d 24 75 5f 25 3a 42 61 6c 65 64 52 5f 24 |_%=$u_%:BaledR_$|
0001a010 28 31 29 3d 24 21 72 31 31 42 5f 25 3a 42 61 6c |(1)=$!r11B_%:Bal|
0001a020 65 64 52 5f 24 28 32 29 3d 24 21 72 31 31 31 42 |edR_$(2)=$!r111B|
0001a030 5f 25 3a 42 61 6c 65 64 52 5f 24 28 33 29 3d 24 |_%:BaledR_$(3)=$|
0001a040 21 72 32 32 42 5f 25 3a f2 72 49 28 57 25 2c 22 |!r22B_%:.rI(W%,"|
0001a050 72 33 33 42 22 29 3a 42 61 6c 65 64 52 5f 24 28 |r33B"):BaledR_$(|
0001a060 34 29 3d 24 21 72 33 33 42 5f 25 3a 42 61 6c 65 |4)=$!r33B_%:Bale|
0001a070 64 52 5f 24 28 35 29 3d 24 21 72 33 33 33 42 5f |dR_$(5)=$!r333B_|
0001a080 25 3a 42 61 6c 65 64 52 5f 24 28 36 29 3d 24 21 |%:BaledR_$(6)=$!|
0001a090 72 34 34 42 5f 25 3a 42 61 6c 65 64 52 5f 24 28 |r44B_%:BaledR_$(|
0001a0a0 37 29 3d 24 21 72 34 34 34 42 5f 25 0d 6c d4 d9 |7)=$!r444B_%.l..|
0001a0b0 f2 72 49 28 57 25 2c 22 72 35 35 42 22 29 3a 42 |.rI(W%,"r55B"):B|
0001a0c0 61 6c 65 64 52 5f 24 28 38 29 3d 24 21 72 35 35 |aledR_$(8)=$!r55|
0001a0d0 42 5f 25 3a 42 61 6c 65 64 52 5f 24 28 39 29 3d |B_%:BaledR_$(9)=|
0001a0e0 24 21 72 35 35 35 42 5f 25 3a 42 61 6c 65 64 52 |$!r555B_%:BaledR|
0001a0f0 5f 24 28 31 30 29 3d 24 21 72 36 36 42 5f 25 3a |_$(10)=$!r66B_%:|
0001a100 42 61 6c 65 64 52 5f 24 28 31 31 29 3d 24 21 42 |BaledR_$(11)=$!B|
0001a110 61 70 61 67 65 78 5f 25 3a 42 61 6c 65 64 52 5f |apagex_%:BaledR_|
0001a120 24 28 31 32 29 3d 24 21 42 61 70 61 67 65 79 5f |$(12)=$!Bapagey_|
0001a130 25 3a 42 61 6c 65 64 52 5f 24 28 31 33 29 3d 24 |%:BaledR_$(13)=$|
0001a140 21 42 61 66 6f 6e 74 78 5f 25 3a 42 61 6c 65 64 |!Bafontx_%:Baled|
0001a150 52 5f 24 28 31 34 29 3d 24 21 42 61 66 6f 6e 74 |R_$(14)=$!Bafont|
0001a160 79 5f 25 3a 42 61 6c 65 64 52 5f 24 28 31 35 29 |y_%:BaledR_$(15)|
0001a170 3d 24 21 42 61 73 61 76 65 61 73 5f 25 3a 2a 46 |=$!Basaveas_%:*F|
0001a180 58 31 35 2c 31 0d 6c d9 1d 5a 25 3d a4 42 61 6c |X15,1.l..Z%=.Bal|
0001a190 66 69 6e 64 61 5f 3a 3d a4 42 61 6c 66 69 6e 64 |finda_:=.Balfind|
0001a1a0 73 5f 0d 6c de 04 0d 6c e3 c0 dd a4 75 70 64 61 |s_.l...l....upda|
0001a1b0 74 65 76 61 74 70 63 5f 3a ea 20 5a 25 3a 5a 25 |tevatpc_:. Z%:Z%|
0001a1c0 3d a4 66 76 61 6c 69 73 74 5f 3a f2 72 49 28 57 |=.fvalist_:.rI(W|
0001a1d0 25 2c 22 76 63 38 22 29 3a f2 72 49 28 57 25 2c |%,"vc8"):.rI(W%,|
0001a1e0 22 76 63 39 22 29 3a 24 21 76 63 31 5f 25 3d 56 |"vc9"):$!vc1_%=V|
0001a1f0 61 74 43 5f 24 28 31 29 3a 24 21 76 63 32 5f 25 |atC_$(1):$!vc2_%|
0001a200 3d 56 61 74 43 5f 24 28 32 29 3a f2 72 49 28 57 |=VatC_$(2):.rI(W|
0001a210 25 2c 22 76 63 31 22 29 3a f2 72 49 28 57 25 2c |%,"vc1"):.rI(W%,|
0001a220 22 76 63 32 22 29 3a 24 21 76 63 38 5f 25 3d 56 |"vc2"):$!vc8_%=V|
0001a230 61 74 43 5f 24 28 34 29 3a 24 21 76 63 39 5f 25 |atC_$(4):$!vc9_%|
0001a240 3d 56 61 74 43 5f 24 28 35 29 3a f2 72 49 28 57 |=VatC_$(5):.rI(W|
0001a250 25 2c 22 76 63 38 22 29 3a f2 72 49 28 57 25 2c |%,"vc8"):.rI(W%,|
0001a260 22 76 63 39 22 29 0d 6c e8 8d 56 61 74 43 5f 24 |"vc9").l..VatC_$|
0001a270 28 33 29 3d 24 21 76 63 37 5f 25 3a 56 61 74 43 |(3)=$!vc7_%:VatC|
0001a280 5f 24 28 36 29 3d 24 21 56 61 70 61 67 65 78 5f |_$(6)=$!Vapagex_|
0001a290 25 3a 56 61 74 43 5f 24 28 37 29 3d 24 21 56 61 |%:VatC_$(7)=$!Va|
0001a2a0 70 61 67 65 79 5f 25 3a 56 61 74 43 5f 24 28 38 |pagey_%:VatC_$(8|
0001a2b0 29 3d 24 21 56 61 66 6f 6e 74 78 5f 25 3a 56 61 |)=$!Vafontx_%:Va|
0001a2c0 74 43 5f 24 28 39 29 3d 24 21 56 61 66 6f 6e 74 |tC_$(9)=$!Vafont|
0001a2d0 79 5f 25 3a 56 61 74 43 5f 24 28 31 30 29 3d 24 |y_%:VatC_$(10)=$|
0001a2e0 21 56 61 73 61 76 65 61 73 5f 25 3a 2a 46 58 31 |!Vasaveas_%:*FX1|
0001a2f0 35 2c 31 0d 6c ed 06 3d b9 0d 6d 1a c0 dd a4 43 |5,1.l..=..m....C|
0001a300 75 70 64 61 74 65 73 75 6c 69 73 74 5f 3a ea 20 |updatesulist_:. |
0001a310 5a 25 3a 5a 25 3d a4 43 66 73 75 6c 69 73 74 5f |Z%:Z%=.Cfsulist_|
0001a320 3a 43 53 4c 70 61 67 78 5f 25 3d bb 28 24 21 43 |:CSLpagx_%=.($!C|
0001a330 53 4c 70 61 67 65 78 5f 25 29 3a 43 53 4c 70 61 |SLpagex_%):CSLpa|
0001a340 67 79 5f 25 3d bb 28 24 21 43 53 4c 70 61 67 65 |gy_%=.($!CSLpage|
0001a350 79 5f 25 29 3a 43 53 4c 66 6f 6e 5f 78 25 3d bb |y_%):CSLfon_x%=.|
0001a360 28 24 21 43 53 4c 66 6f 6e 74 78 5f 25 29 3a 43 |($!CSLfontx_%):C|
0001a370 53 4c 66 6f 6e 5f 79 25 3d bb 28 24 21 43 53 4c |SLfon_y%=.($!CSL|
0001a380 66 6f 6e 74 79 5f 25 29 3a 24 21 43 53 4c 66 72 |fonty_%):$!CSLfr|
0001a390 6f 6d 5f 25 3d a4 63 68 74 6f 6c 65 6e 5f 28 bb |om_%=.chtolen_(.|
0001a3a0 28 24 21 43 53 4c 66 72 6f 6d 5f 25 29 2c 43 6d |($!CSLfrom_%),Cm|
0001a3b0 61 78 73 75 70 70 5f 25 29 0d 6d 1f 63 24 21 43 |axsupp_%).m.c$!C|
0001a3c0 53 4c 74 6f 5f 25 3d a4 63 68 74 6f 6c 65 6e 5f |SLto_%=.chtolen_|
0001a3d0 28 bb 28 24 21 43 53 4c 74 6f 5f 25 29 2c 43 6d |(.($!CSLto_%),Cm|
0001a3e0 61 78 73 75 70 70 5f 25 29 3a e7 bb 28 24 21 43 |axsupp_%):..($!C|
0001a3f0 53 4c 74 6f 5f 25 29 3c bb 28 24 21 43 53 4c 66 |SLto_%)<.($!CSLf|
0001a400 72 6f 6d 5f 25 29 8c 24 21 43 53 4c 74 6f 5f 25 |rom_%).$!CSLto_%|
0001a410 3d 24 21 43 53 4c 66 72 6f 6d 5f 25 0d 6d 24 a8 |=$!CSLfrom_%.m$.|
0001a420 43 53 4c 66 72 6f 5f 25 3d bb 28 24 21 43 53 4c |CSLfro_%=.($!CSL|
0001a430 66 72 6f 6d 5f 25 29 3a 43 53 4c 74 5f 25 3d bb |from_%):CSLt_%=.|
0001a440 28 24 21 43 53 4c 74 6f 5f 25 29 3a 43 53 4c 6c |($!CSLto_%):CSLl|
0001a450 65 66 5f 25 3d bb 28 24 21 43 53 4c 6c 65 66 74 |ef_%=.($!CSLleft|
0001a460 5f 25 29 3a 43 53 4c 74 6f 70 5f 25 3d bb 28 24 |_%):CSLtop_%=.($|
0001a470 21 43 53 4c 74 6f 70 70 5f 25 29 3a 43 53 4c 73 |!CSLtopp_%):CSLs|
0001a480 70 61 63 5f 25 3d bb 28 24 21 43 53 4c 73 70 61 |pac_%=.($!CSLspa|
0001a490 63 65 5f 25 29 3a f2 72 49 28 57 25 2c 22 43 53 |ce_%):.rI(W%,"CS|
0001a4a0 4c 66 72 6f 6d 22 29 3a f2 72 49 28 57 25 2c 22 |Lfrom"):.rI(W%,"|
0001a4b0 43 53 4c 74 6f 22 29 3a f2 73 65 74 43 5f 28 33 |CSLto"):.setC_(3|
0001a4c0 29 3a 3d a3 0d 6d 29 04 0d 6d 2e 0d dd a4 4c 61 |):=..m)..m....La|
0001a4d0 6c 74 6a 75 5f 0d 6d 33 2c e7 4c 6a 6c 65 5f 25 |ltju_.m3,.Ljle_%|
0001a4e0 3d 31 8c f2 73 49 28 57 25 2c 22 4c 6a 6c 65 22 |=1..sI(W%,"Ljle"|
0001a4f0 29 3a f2 75 73 49 28 57 25 2c 22 4c 6a 63 65 22 |):.usI(W%,"Ljce"|
0001a500 29 0d 6d 38 2c e7 4c 6a 63 65 5f 25 3d 31 8c f2 |).m8,.Ljce_%=1..|
0001a510 75 73 49 28 57 25 2c 22 4c 6a 6c 65 22 29 3a f2 |usI(W%,"Ljle"):.|
0001a520 73 49 28 57 25 2c 22 4c 6a 63 65 22 29 0d 6d 3d |sI(W%,"Ljce").m=|
0001a530 06 3d a3 0d 6d 56 0e dd a4 43 53 61 6c 74 6a 75 |.=..mV...CSaltju|
0001a540 5f 0d 6d 5b 2f e7 43 53 6a 6c 65 5f 25 3d 31 8c |_.m[/.CSjle_%=1.|
0001a550 f2 73 49 28 57 25 2c 22 43 53 6a 6c 65 22 29 3a |.sI(W%,"CSjle"):|
0001a560 f2 75 73 49 28 57 25 2c 22 43 53 6a 63 65 22 29 |.usI(W%,"CSjce")|
0001a570 0d 6d 60 2f e7 43 53 6a 63 65 5f 25 3d 31 8c f2 |.m`/.CSjce_%=1..|
0001a580 75 73 49 28 57 25 2c 22 43 53 6a 6c 65 22 29 3a |usI(W%,"CSjle"):|
0001a590 f2 73 49 28 57 25 2c 22 43 53 6a 63 65 22 29 0d |.sI(W%,"CSjce").|
0001a5a0 6d 65 06 3d a3 0d 6d 6a 28 dd a4 4c 6a 63 65 5f |me.=..mj(..Ljce_|
0001a5b0 3a 4c 6a 6c 65 5f 25 3d 2d 31 3a 4c 6a 63 65 5f |:Ljle_%=-1:Ljce_|
0001a5c0 25 3d 31 3a 3d a4 4c 61 6c 74 6a 75 5f 0d 6d 6f |%=1:=.Laltju_.mo|
0001a5d0 28 dd a4 4c 6a 6c 65 5f 3a 4c 6a 6c 65 5f 25 3d |(..Ljle_:Ljle_%=|
0001a5e0 31 3a 4c 6a 63 65 5f 25 3d 2d 31 3a 3d a4 4c 61 |1:Ljce_%=-1:=.La|
0001a5f0 6c 74 6a 75 5f 0d 6d 79 2c dd a4 43 53 6a 63 65 |ltju_.my,..CSjce|
0001a600 5f 3a 43 53 6a 6c 65 5f 25 3d 2d 31 3a 43 53 6a |_:CSjle_%=-1:CSj|
0001a610 63 65 5f 25 3d 31 3a 3d a4 43 53 61 6c 74 6a 75 |ce_%=1:=.CSaltju|
0001a620 5f 0d 6d 83 2c dd a4 43 53 6a 6c 65 5f 3a 43 53 |_.m.,..CSjle_:CS|
0001a630 6a 6c 65 5f 25 3d 31 3a 43 53 6a 63 65 5f 25 3d |jle_%=1:CSjce_%=|
0001a640 2d 31 3a 3d a4 43 53 61 6c 74 6a 75 5f 0d 6d 88 |-1:=.CSaltju_.m.|
0001a650 04 0d 6d d3 11 dd a4 58 70 61 70 65 72 73 69 7a |..m....Xpapersiz|
0001a660 65 5f 0d 6d d8 52 e7 58 61 34 5f 25 3d 31 8c f2 |e_.m.R.Xa4_%=1..|
0001a670 73 49 28 57 25 2c 22 58 61 34 22 29 3a f2 75 73 |sI(W%,"Xa4"):.us|
0001a680 49 28 57 25 2c 22 58 75 73 22 29 3a f2 75 73 49 |I(W%,"Xus"):.usI|
0001a690 28 57 25 2c 22 58 63 75 73 74 22 29 3a 58 70 61 |(W%,"Xcust"):Xpa|
0001a6a0 67 78 5f 25 3d 32 31 30 3a 58 70 61 67 79 5f 25 |gx_%=210:Xpagy_%|
0001a6b0 3d 32 39 37 0d 6d dd 52 e7 58 75 73 5f 25 3d 31 |=297.m.R.Xus_%=1|
0001a6c0 8c f2 73 49 28 57 25 2c 22 58 75 73 22 29 3a f2 |..sI(W%,"Xus"):.|
0001a6d0 75 73 49 28 57 25 2c 22 58 61 34 22 29 3a f2 75 |usI(W%,"Xa4"):.u|
0001a6e0 73 49 28 57 25 2c 22 58 63 75 73 74 22 29 3a 58 |sI(W%,"Xcust"):X|
0001a6f0 70 61 67 78 5f 25 3d 32 31 30 3a 58 70 61 67 79 |pagx_%=210:Xpagy|
0001a700 5f 25 3d 32 37 39 0d 6d e2 6a e7 58 63 75 73 74 |_%=279.m.j.Xcust|
0001a710 5f 25 3d 31 8c f2 73 49 28 57 25 2c 22 58 63 75 |_%=1..sI(W%,"Xcu|
0001a720 73 74 22 29 3a f2 75 73 49 28 57 25 2c 22 58 61 |st"):.usI(W%,"Xa|
0001a730 34 22 29 3a f2 75 73 49 28 57 25 2c 22 58 75 73 |4"):.usI(W%,"Xus|
0001a740 22 29 3a e7 20 58 70 61 67 78 5f 25 3d 30 84 58 |"):. Xpagx_%=0.X|
0001a750 70 61 67 79 5f 25 3d 30 8c 58 70 61 67 78 5f 25 |pagy_%=0.Xpagx_%|
0001a760 3d 32 31 30 3a 58 70 61 67 79 5f 25 3d 33 30 34 |=210:Xpagy_%=304|
0001a770 0d 6d e7 54 e7 58 61 73 70 61 63 5f 25 3d 31 8c |.m.T.Xaspac_%=1.|
0001a780 f2 73 49 28 57 25 2c 22 58 61 73 70 61 63 22 29 |.sI(W%,"Xaspac")|
0001a790 3a f2 75 73 49 28 57 25 2c 22 58 61 74 61 62 22 |:.usI(W%,"Xatab"|
0001a7a0 29 20 8b f2 75 73 49 28 57 25 2c 22 58 61 73 70 |) ..usI(W%,"Xasp|
0001a7b0 61 63 22 29 3a f2 73 49 28 57 25 2c 22 58 61 74 |ac"):.sI(W%,"Xat|
0001a7c0 61 62 22 29 0d 6d ec 2a 24 21 58 70 61 67 65 78 |ab").m.*$!Xpagex|
0001a7d0 5f 25 3d c3 28 58 70 61 67 78 5f 25 29 3a f2 72 |_%=.(Xpagx_%):.r|
0001a7e0 49 28 57 25 2c 22 58 70 61 67 65 78 22 29 0d 6d |I(W%,"Xpagex").m|
0001a7f0 f1 2a 24 21 58 70 61 67 65 79 5f 25 3d c3 28 58 |.*$!Xpagey_%=.(X|
0001a800 70 61 67 79 5f 25 29 3a f2 72 49 28 57 25 2c 22 |pagy_%):.rI(W%,"|
0001a810 58 70 61 67 65 79 22 29 0d 6d f6 06 3d a3 0d 6d |Xpagey").m..=..m|
0001a820 fb 12 dd a4 43 53 70 61 70 65 72 73 69 7a 65 5f |....CSpapersize_|
0001a830 0d 6e 00 58 e7 43 53 61 34 5f 25 3d 31 8c f2 73 |.n.X.CSa4_%=1..s|
0001a840 49 28 57 25 2c 22 43 53 61 34 22 29 3a f2 75 73 |I(W%,"CSa4"):.us|
0001a850 49 28 57 25 2c 22 43 53 75 73 22 29 3a f2 75 73 |I(W%,"CSus"):.us|
0001a860 49 28 57 25 2c 22 43 53 63 75 73 74 22 29 3a 43 |I(W%,"CScust"):C|
0001a870 53 70 61 67 78 5f 25 3d 32 31 30 3a 43 53 70 61 |Spagx_%=210:CSpa|
0001a880 67 79 5f 25 3d 32 39 37 0d 6e 05 58 e7 43 53 75 |gy_%=297.n.X.CSu|
0001a890 73 5f 25 3d 31 8c f2 73 49 28 57 25 2c 22 43 53 |s_%=1..sI(W%,"CS|
0001a8a0 75 73 22 29 3a f2 75 73 49 28 57 25 2c 22 43 53 |us"):.usI(W%,"CS|
0001a8b0 61 34 22 29 3a f2 75 73 49 28 57 25 2c 22 43 53 |a4"):.usI(W%,"CS|
0001a8c0 63 75 73 74 22 29 3a 43 53 70 61 67 78 5f 25 3d |cust"):CSpagx_%=|
0001a8d0 32 31 30 3a 43 53 70 61 67 79 5f 25 3d 32 37 39 |210:CSpagy_%=279|
0001a8e0 0d 6e 0a 72 e7 43 53 63 75 73 74 5f 25 3d 31 8c |.n.r.CScust_%=1.|
0001a8f0 f2 73 49 28 57 25 2c 22 43 53 63 75 73 74 22 29 |.sI(W%,"CScust")|
0001a900 3a f2 75 73 49 28 57 25 2c 22 43 53 61 34 22 29 |:.usI(W%,"CSa4")|
0001a910 3a f2 75 73 49 28 57 25 2c 22 43 53 75 73 22 29 |:.usI(W%,"CSus")|
0001a920 3a e7 20 43 53 70 61 67 78 5f 25 3d 30 84 43 53 |:. CSpagx_%=0.CS|
0001a930 70 61 67 79 5f 25 3d 30 8c 43 53 70 61 67 78 5f |pagy_%=0.CSpagx_|
0001a940 25 3d 32 31 30 3a 43 53 70 61 67 79 5f 25 3d 33 |%=210:CSpagy_%=3|
0001a950 30 34 0d 6e 0f 2d 24 21 43 53 70 61 67 65 78 5f |04.n.-$!CSpagex_|
0001a960 25 3d c3 28 43 53 70 61 67 78 5f 25 29 3a f2 72 |%=.(CSpagx_%):.r|
0001a970 49 28 57 25 2c 22 43 53 70 61 67 65 78 22 29 0d |I(W%,"CSpagex").|
0001a980 6e 14 2d 24 21 43 53 70 61 67 65 79 5f 25 3d c3 |n.-$!CSpagey_%=.|
0001a990 28 43 53 70 61 67 79 5f 25 29 3a f2 72 49 28 57 |(CSpagy_%):.rI(W|
0001a9a0 25 2c 22 43 53 70 61 67 65 79 22 29 0d 6e 19 06 |%,"CSpagey").n..|
0001a9b0 3d a3 0d 6e 46 12 dd a4 53 61 70 61 70 65 72 73 |=..nF...Sapapers|
0001a9c0 69 7a 65 5f 0d 6e 4b 6a e7 53 61 6c 65 64 52 5f |ize_.nKj.SaledR_|
0001a9d0 25 28 31 32 29 3d 31 8c f2 73 49 28 57 25 2c 22 |%(12)=1..sI(W%,"|
0001a9e0 53 61 61 34 22 29 3a f2 75 73 49 28 57 25 2c 22 |Saa4"):.usI(W%,"|
0001a9f0 53 61 75 73 22 29 3a f2 75 73 49 28 57 25 2c 22 |Saus"):.usI(W%,"|
0001aa00 53 61 63 75 73 74 22 29 3a 53 61 6c 65 64 52 5f |Sacust"):SaledR_|
0001aa10 24 28 32 31 29 3d 22 32 31 30 22 3a 53 61 6c 65 |$(21)="210":Sale|
0001aa20 64 52 5f 24 28 32 32 29 3d 22 32 39 37 22 0d 6e |dR_$(22)="297".n|
0001aa30 50 6a e7 53 61 6c 65 64 52 5f 25 28 31 33 29 3d |Pj.SaledR_%(13)=|
0001aa40 31 8c f2 73 49 28 57 25 2c 22 53 61 75 73 22 29 |1..sI(W%,"Saus")|
0001aa50 3a f2 75 73 49 28 57 25 2c 22 53 61 61 34 22 29 |:.usI(W%,"Saa4")|
0001aa60 3a f2 75 73 49 28 57 25 2c 22 53 61 63 75 73 74 |:.usI(W%,"Sacust|
0001aa70 22 29 3a 53 61 6c 65 64 52 5f 24 28 32 31 29 3d |"):SaledR_$(21)=|
0001aa80 22 32 31 30 22 3a 53 61 6c 65 64 52 5f 24 28 32 |"210":SaledR_$(2|
0001aa90 32 29 3d 22 32 37 39 22 0d 6e 55 8f e7 53 61 6c |2)="279".nU..Sal|
0001aaa0 65 64 52 5f 25 28 31 34 29 3d 31 8c f2 73 49 28 |edR_%(14)=1..sI(|
0001aab0 57 25 2c 22 53 61 63 75 73 74 22 29 3a f2 75 73 |W%,"Sacust"):.us|
0001aac0 49 28 57 25 2c 22 53 61 61 34 22 29 3a f2 75 73 |I(W%,"Saa4"):.us|
0001aad0 49 28 57 25 2c 22 53 61 75 73 22 29 3a e7 bb 28 |I(W%,"Saus"):..(|
0001aae0 53 61 6c 65 64 52 5f 24 28 32 31 29 29 3d 30 84 |SaledR_$(21))=0.|
0001aaf0 bb 28 53 61 6c 65 64 52 5f 24 28 32 32 29 29 3d |.(SaledR_$(22))=|
0001ab00 30 8c 53 61 6c 65 64 52 5f 24 28 32 31 29 3d 22 |0.SaledR_$(21)="|
0001ab10 32 31 30 22 3a 53 61 6c 65 64 52 5f 24 28 32 32 |210":SaledR_$(22|
0001ab20 29 3d 22 33 30 34 22 0d 6e 5a 2e 24 21 53 61 70 |)="304".nZ.$!Sap|
0001ab30 61 67 65 78 5f 25 3d 53 61 6c 65 64 52 5f 24 28 |agex_%=SaledR_$(|
0001ab40 32 31 29 3a f2 72 49 28 57 25 2c 22 53 61 70 61 |21):.rI(W%,"Sapa|
0001ab50 67 65 78 22 29 0d 6e 5f 2e 24 21 53 61 70 61 67 |gex").n_.$!Sapag|
0001ab60 65 79 5f 25 3d 53 61 6c 65 64 52 5f 24 28 32 32 |ey_%=SaledR_$(22|
0001ab70 29 3a f2 72 49 28 57 25 2c 22 53 61 70 61 67 65 |):.rI(W%,"Sapage|
0001ab80 79 22 29 0d 6e 64 35 e7 53 61 6c 65 64 52 5f 25 |y").nd5.SaledR_%|
0001ab90 28 31 36 29 3d 31 8c f2 73 49 28 57 25 2c 22 53 |(16)=1..sI(W%,"S|
0001aba0 61 74 61 62 22 29 3a f2 75 73 49 28 57 25 2c 22 |atab"):.usI(W%,"|
0001abb0 53 61 73 70 61 63 22 29 0d 6e 69 35 e7 53 61 6c |Saspac").ni5.Sal|
0001abc0 65 64 52 5f 25 28 31 37 29 3d 31 8c f2 75 73 49 |edR_%(17)=1..usI|
0001abd0 28 57 25 2c 22 53 61 74 61 62 22 29 3a f2 73 49 |(W%,"Satab"):.sI|
0001abe0 28 57 25 2c 22 53 61 73 70 61 63 22 29 0d 6e 6e |(W%,"Saspac").nn|
0001abf0 06 3d a3 0d 6e 73 04 0d 6e 78 12 dd a4 50 61 70 |.=..ns..nx...Pap|
0001ac00 61 70 65 72 73 69 7a 65 5f 0d 6e 7d 6a e7 50 61 |apersize_.n}j.Pa|
0001ac10 6c 65 64 52 5f 25 28 31 32 29 3d 31 8c f2 73 49 |ledR_%(12)=1..sI|
0001ac20 28 57 25 2c 22 50 61 61 34 22 29 3a f2 75 73 49 |(W%,"Paa4"):.usI|
0001ac30 28 57 25 2c 22 50 61 75 73 22 29 3a f2 75 73 49 |(W%,"Paus"):.usI|
0001ac40 28 57 25 2c 22 50 61 63 75 73 74 22 29 3a 50 61 |(W%,"Pacust"):Pa|
0001ac50 6c 65 64 52 5f 24 28 32 31 29 3d 22 32 31 30 22 |ledR_$(21)="210"|
0001ac60 3a 50 61 6c 65 64 52 5f 24 28 32 32 29 3d 22 32 |:PaledR_$(22)="2|
0001ac70 39 37 22 0d 6e 82 6a e7 50 61 6c 65 64 52 5f 25 |97".n.j.PaledR_%|
0001ac80 28 31 33 29 3d 31 8c f2 73 49 28 57 25 2c 22 50 |(13)=1..sI(W%,"P|
0001ac90 61 75 73 22 29 3a f2 75 73 49 28 57 25 2c 22 50 |aus"):.usI(W%,"P|
0001aca0 61 61 34 22 29 3a f2 75 73 49 28 57 25 2c 22 50 |aa4"):.usI(W%,"P|
0001acb0 61 63 75 73 74 22 29 3a 50 61 6c 65 64 52 5f 24 |acust"):PaledR_$|
0001acc0 28 32 31 29 3d 22 32 31 30 22 3a 50 61 6c 65 64 |(21)="210":Paled|
0001acd0 52 5f 24 28 32 32 29 3d 22 32 37 39 22 0d 6e 87 |R_$(22)="279".n.|
0001ace0 8f e7 50 61 6c 65 64 52 5f 25 28 31 34 29 3d 31 |..PaledR_%(14)=1|
0001acf0 8c f2 73 49 28 57 25 2c 22 50 61 63 75 73 74 22 |..sI(W%,"Pacust"|
0001ad00 29 3a f2 75 73 49 28 57 25 2c 22 50 61 61 34 22 |):.usI(W%,"Paa4"|
0001ad10 29 3a f2 75 73 49 28 57 25 2c 22 50 61 75 73 22 |):.usI(W%,"Paus"|
0001ad20 29 3a e7 bb 28 50 61 6c 65 64 52 5f 24 28 32 31 |):..(PaledR_$(21|
0001ad30 29 29 3d 30 84 bb 28 50 61 6c 65 64 52 5f 24 28 |))=0..(PaledR_$(|
0001ad40 32 32 29 29 3d 30 8c 50 61 6c 65 64 52 5f 24 28 |22))=0.PaledR_$(|
0001ad50 32 31 29 3d 22 32 31 30 22 3a 50 61 6c 65 64 52 |21)="210":PaledR|
0001ad60 5f 24 28 32 32 29 3d 22 33 30 34 22 0d 6e 8c 2e |_$(22)="304".n..|
0001ad70 24 21 50 61 70 61 67 65 78 5f 25 3d 50 61 6c 65 |$!Papagex_%=Pale|
0001ad80 64 52 5f 24 28 32 31 29 3a f2 72 49 28 57 25 2c |dR_$(21):.rI(W%,|
0001ad90 22 50 61 70 61 67 65 78 22 29 0d 6e 91 2e 24 21 |"Papagex").n..$!|
0001ada0 50 61 70 61 67 65 79 5f 25 3d 50 61 6c 65 64 52 |Papagey_%=PaledR|
0001adb0 5f 24 28 32 32 29 3a f2 72 49 28 57 25 2c 22 50 |_$(22):.rI(W%,"P|
0001adc0 61 70 61 67 65 79 22 29 0d 6e 96 35 e7 50 61 6c |apagey").n.5.Pal|
0001add0 65 64 52 5f 25 28 31 36 29 3d 31 8c f2 73 49 28 |edR_%(16)=1..sI(|
0001ade0 57 25 2c 22 50 61 74 61 62 22 29 3a f2 75 73 49 |W%,"Patab"):.usI|
0001adf0 28 57 25 2c 22 50 61 73 70 61 63 22 29 0d 6e 9b |(W%,"Paspac").n.|
0001ae00 35 e7 50 61 6c 65 64 52 5f 25 28 31 37 29 3d 31 |5.PaledR_%(17)=1|
0001ae10 8c f2 75 73 49 28 57 25 2c 22 50 61 74 61 62 22 |..usI(W%,"Patab"|
0001ae20 29 3a f2 73 49 28 57 25 2c 22 50 61 73 70 61 63 |):.sI(W%,"Paspac|
0001ae30 22 29 0d 6e a0 06 3d a3 0d 6e a5 04 0d 6e aa 12 |").n..=..n...n..|
0001ae40 dd a4 42 61 70 61 70 65 72 73 69 7a 65 5f 0d 6e |..Bapapersize_.n|
0001ae50 af 69 e7 42 61 6c 65 64 52 5f 25 28 36 29 3d 31 |.i.BaledR_%(6)=1|
0001ae60 8c f2 73 49 28 57 25 2c 22 42 61 61 34 22 29 3a |..sI(W%,"Baa4"):|
0001ae70 f2 75 73 49 28 57 25 2c 22 42 61 75 73 22 29 3a |.usI(W%,"Baus"):|
0001ae80 f2 75 73 49 28 57 25 2c 22 42 61 63 75 73 74 22 |.usI(W%,"Bacust"|
0001ae90 29 3a 42 61 6c 65 64 52 5f 24 28 31 31 29 3d 22 |):BaledR_$(11)="|
0001aea0 32 31 30 22 3a 42 61 6c 65 64 52 5f 24 28 31 32 |210":BaledR_$(12|
0001aeb0 29 3d 22 32 39 37 22 0d 6e b4 69 e7 42 61 6c 65 |)="297".n.i.Bale|
0001aec0 64 52 5f 25 28 37 29 3d 31 8c f2 73 49 28 57 25 |dR_%(7)=1..sI(W%|
0001aed0 2c 22 42 61 75 73 22 29 3a f2 75 73 49 28 57 25 |,"Baus"):.usI(W%|
0001aee0 2c 22 42 61 61 34 22 29 3a f2 75 73 49 28 57 25 |,"Baa4"):.usI(W%|
0001aef0 2c 22 42 61 63 75 73 74 22 29 3a 42 61 6c 65 64 |,"Bacust"):Baled|
0001af00 52 5f 24 28 31 31 29 3d 22 32 31 30 22 3a 42 61 |R_$(11)="210":Ba|
0001af10 6c 65 64 52 5f 24 28 31 32 29 3d 22 32 37 39 22 |ledR_$(12)="279"|
0001af20 0d 6e b9 8e e7 42 61 6c 65 64 52 5f 25 28 38 29 |.n...BaledR_%(8)|
0001af30 3d 31 8c f2 73 49 28 57 25 2c 22 42 61 63 75 73 |=1..sI(W%,"Bacus|
0001af40 74 22 29 3a f2 75 73 49 28 57 25 2c 22 42 61 61 |t"):.usI(W%,"Baa|
0001af50 34 22 29 3a f2 75 73 49 28 57 25 2c 22 42 61 75 |4"):.usI(W%,"Bau|
0001af60 73 22 29 3a e7 bb 28 42 61 6c 65 64 52 5f 24 28 |s"):..(BaledR_$(|
0001af70 31 31 29 29 3d 30 84 bb 28 42 61 6c 65 64 52 5f |11))=0..(BaledR_|
0001af80 24 28 31 32 29 29 3d 30 8c 42 61 6c 65 64 52 5f |$(12))=0.BaledR_|
0001af90 24 28 31 31 29 3d 22 32 31 30 22 3a 42 61 6c 65 |$(11)="210":Bale|
0001afa0 64 52 5f 24 28 31 32 29 3d 22 33 30 34 22 0d 6e |dR_$(12)="304".n|
0001afb0 be 2e 24 21 42 61 70 61 67 65 78 5f 25 3d 42 61 |..$!Bapagex_%=Ba|
0001afc0 6c 65 64 52 5f 24 28 31 31 29 3a f2 72 49 28 57 |ledR_$(11):.rI(W|
0001afd0 25 2c 22 42 61 70 61 67 65 78 22 29 0d 6e c3 2e |%,"Bapagex").n..|
0001afe0 24 21 42 61 70 61 67 65 79 5f 25 3d 42 61 6c 65 |$!Bapagey_%=Bale|
0001aff0 64 52 5f 24 28 31 32 29 3a f2 72 49 28 57 25 2c |dR_$(12):.rI(W%,|
0001b000 22 42 61 70 61 67 65 79 22 29 0d 6e c8 35 e7 42 |"Bapagey").n.5.B|
0001b010 61 6c 65 64 52 5f 25 28 31 30 29 3d 31 8c f2 73 |aledR_%(10)=1..s|
0001b020 49 28 57 25 2c 22 42 61 74 61 62 22 29 3a f2 75 |I(W%,"Batab"):.u|
0001b030 73 49 28 57 25 2c 22 42 61 73 70 61 63 22 29 0d |sI(W%,"Baspac").|
0001b040 6e cd 35 e7 42 61 6c 65 64 52 5f 25 28 31 31 29 |n.5.BaledR_%(11)|
0001b050 3d 31 8c f2 75 73 49 28 57 25 2c 22 42 61 74 61 |=1..usI(W%,"Bata|
0001b060 62 22 29 3a f2 73 49 28 57 25 2c 22 42 61 73 70 |b"):.sI(W%,"Basp|
0001b070 61 63 22 29 0d 6e d2 06 3d a3 0d 6e d7 04 0d 6f |ac").n..=..n...o|
0001b080 22 13 dd a4 43 53 4c 70 61 70 65 72 73 69 7a 65 |"...CSLpapersize|
0001b090 5f 0d 6f 27 5e e7 43 53 4c 61 34 5f 25 3d 31 8c |_.o'^.CSLa4_%=1.|
0001b0a0 f2 73 49 28 57 25 2c 22 43 53 4c 61 34 22 29 3a |.sI(W%,"CSLa4"):|
0001b0b0 f2 75 73 49 28 57 25 2c 22 43 53 4c 75 73 22 29 |.usI(W%,"CSLus")|
0001b0c0 3a f2 75 73 49 28 57 25 2c 22 43 53 4c 63 75 73 |:.usI(W%,"CSLcus|
0001b0d0 74 22 29 3a 43 53 4c 70 61 67 78 5f 25 3d 32 31 |t"):CSLpagx_%=21|
0001b0e0 30 3a 43 53 4c 70 61 67 79 5f 25 3d 32 39 37 0d |0:CSLpagy_%=297.|
0001b0f0 6f 2c 5e e7 43 53 4c 75 73 5f 25 3d 31 8c f2 73 |o,^.CSLus_%=1..s|
0001b100 49 28 57 25 2c 22 43 53 4c 75 73 22 29 3a f2 75 |I(W%,"CSLus"):.u|
0001b110 73 49 28 57 25 2c 22 43 53 4c 61 34 22 29 3a f2 |sI(W%,"CSLa4"):.|
0001b120 75 73 49 28 57 25 2c 22 43 53 4c 63 75 73 74 22 |usI(W%,"CSLcust"|
0001b130 29 3a 43 53 4c 70 61 67 78 5f 25 3d 32 31 30 3a |):CSLpagx_%=210:|
0001b140 43 53 4c 70 61 67 79 5f 25 3d 32 37 39 0d 6f 31 |CSLpagy_%=279.o1|
0001b150 7a e7 43 53 4c 63 75 73 74 5f 25 3d 31 8c f2 73 |z.CSLcust_%=1..s|
0001b160 49 28 57 25 2c 22 43 53 4c 63 75 73 74 22 29 3a |I(W%,"CSLcust"):|
0001b170 f2 75 73 49 28 57 25 2c 22 43 53 4c 61 34 22 29 |.usI(W%,"CSLa4")|
0001b180 3a f2 75 73 49 28 57 25 2c 22 43 53 4c 75 73 22 |:.usI(W%,"CSLus"|
0001b190 29 3a e7 20 43 53 4c 70 61 67 78 5f 25 3d 30 84 |):. CSLpagx_%=0.|
0001b1a0 43 53 4c 70 61 67 79 5f 25 3d 30 8c 43 53 4c 70 |CSLpagy_%=0.CSLp|
0001b1b0 61 67 78 5f 25 3d 32 31 30 3a 43 53 4c 70 61 67 |agx_%=210:CSLpag|
0001b1c0 79 5f 25 3d 33 30 34 0d 6f 36 30 24 21 43 53 4c |y_%=304.o60$!CSL|
0001b1d0 70 61 67 65 78 5f 25 3d c3 28 43 53 4c 70 61 67 |pagex_%=.(CSLpag|
0001b1e0 78 5f 25 29 3a f2 72 49 28 57 25 2c 22 43 53 4c |x_%):.rI(W%,"CSL|
0001b1f0 70 61 67 65 78 22 29 0d 6f 3b 30 24 21 43 53 4c |pagex").o;0$!CSL|
0001b200 70 61 67 65 79 5f 25 3d c3 28 43 53 4c 70 61 67 |pagey_%=.(CSLpag|
0001b210 79 5f 25 29 3a f2 72 49 28 57 25 2c 22 43 53 4c |y_%):.rI(W%,"CSL|
0001b220 70 61 67 65 79 22 29 0d 6f 40 06 3d a3 0d 6f 68 |pagey").o@.=..oh|
0001b230 12 dd a4 49 4f 70 61 70 65 72 73 69 7a 65 5f 0d |...IOpapersize_.|
0001b240 6f 6d 58 e7 49 4f 61 34 5f 25 3d 31 8c f2 73 49 |omX.IOa4_%=1..sI|
0001b250 28 57 25 2c 22 49 4f 61 34 22 29 3a f2 75 73 49 |(W%,"IOa4"):.usI|
0001b260 28 57 25 2c 22 49 4f 75 73 22 29 3a f2 75 73 49 |(W%,"IOus"):.usI|
0001b270 28 57 25 2c 22 49 4f 63 75 73 74 22 29 3a 49 4f |(W%,"IOcust"):IO|
0001b280 70 61 67 78 5f 25 3d 32 31 30 3a 49 4f 70 61 67 |pagx_%=210:IOpag|
0001b290 79 5f 25 3d 32 39 37 0d 6f 72 58 e7 49 4f 75 73 |y_%=297.orX.IOus|
0001b2a0 5f 25 3d 31 8c f2 73 49 28 57 25 2c 22 49 4f 75 |_%=1..sI(W%,"IOu|
0001b2b0 73 22 29 3a f2 75 73 49 28 57 25 2c 22 49 4f 61 |s"):.usI(W%,"IOa|
0001b2c0 34 22 29 3a f2 75 73 49 28 57 25 2c 22 49 4f 63 |4"):.usI(W%,"IOc|
0001b2d0 75 73 74 22 29 3a 49 4f 70 61 67 78 5f 25 3d 32 |ust"):IOpagx_%=2|
0001b2e0 31 30 3a 49 4f 70 61 67 79 5f 25 3d 32 37 39 0d |10:IOpagy_%=279.|
0001b2f0 6f 77 72 e7 49 4f 63 75 73 74 5f 25 3d 31 8c f2 |owr.IOcust_%=1..|
0001b300 73 49 28 57 25 2c 22 49 4f 63 75 73 74 22 29 3a |sI(W%,"IOcust"):|
0001b310 f2 75 73 49 28 57 25 2c 22 49 4f 61 34 22 29 3a |.usI(W%,"IOa4"):|
0001b320 f2 75 73 49 28 57 25 2c 22 49 4f 75 73 22 29 3a |.usI(W%,"IOus"):|
0001b330 e7 20 49 4f 70 61 67 78 5f 25 3d 30 84 49 4f 70 |. IOpagx_%=0.IOp|
0001b340 61 67 79 5f 25 3d 30 8c 49 4f 70 61 67 78 5f 25 |agy_%=0.IOpagx_%|
0001b350 3d 32 31 30 3a 49 4f 70 61 67 79 5f 25 3d 33 30 |=210:IOpagy_%=30|
0001b360 34 0d 6f 7c 2d 24 21 49 4f 70 61 67 65 78 5f 25 |4.o|-$!IOpagex_%|
0001b370 3d c3 28 49 4f 70 61 67 78 5f 25 29 3a f2 72 49 |=.(IOpagx_%):.rI|
0001b380 28 57 25 2c 22 49 4f 70 61 67 65 78 22 29 0d 6f |(W%,"IOpagex").o|
0001b390 81 2d 24 21 49 4f 70 61 67 65 79 5f 25 3d c3 28 |.-$!IOpagey_%=.(|
0001b3a0 49 4f 70 61 67 79 5f 25 29 3a f2 72 49 28 57 25 |IOpagy_%):.rI(W%|
0001b3b0 2c 22 49 4f 70 61 67 65 79 22 29 0d 6f 86 06 3d |,"IOpagey").o..=|
0001b3c0 a3 0d 6f ae 12 dd a4 56 61 70 61 70 65 72 73 69 |..o....Vapapersi|
0001b3d0 7a 65 5f 0d 6f b3 61 e7 56 61 74 43 5f 25 28 33 |ze_.o.a.VatC_%(3|
0001b3e0 29 3d 31 8c f2 73 49 28 57 25 2c 22 56 61 61 34 |)=1..sI(W%,"Vaa4|
0001b3f0 22 29 3a f2 75 73 49 28 57 25 2c 22 56 61 75 73 |"):.usI(W%,"Vaus|
0001b400 22 29 3a f2 75 73 49 28 57 25 2c 22 56 61 63 75 |"):.usI(W%,"Vacu|
0001b410 73 74 22 29 3a 56 61 74 43 5f 24 28 36 29 3d 22 |st"):VatC_$(6)="|
0001b420 32 31 30 22 3a 56 61 74 43 5f 24 28 37 29 3d 22 |210":VatC_$(7)="|
0001b430 32 39 37 22 0d 6f b8 61 e7 56 61 74 43 5f 25 28 |297".o.a.VatC_%(|
0001b440 34 29 3d 31 8c f2 73 49 28 57 25 2c 22 56 61 75 |4)=1..sI(W%,"Vau|
0001b450 73 22 29 3a f2 75 73 49 28 57 25 2c 22 56 61 61 |s"):.usI(W%,"Vaa|
0001b460 34 22 29 3a f2 75 73 49 28 57 25 2c 22 56 61 63 |4"):.usI(W%,"Vac|
0001b470 75 73 74 22 29 3a 56 61 74 43 5f 24 28 36 29 3d |ust"):VatC_$(6)=|
0001b480 22 32 31 30 22 3a 56 61 74 43 5f 24 28 37 29 3d |"210":VatC_$(7)=|
0001b490 22 32 37 39 22 0d 6f bd 81 e7 56 61 74 43 5f 25 |"279".o...VatC_%|
0001b4a0 28 35 29 3d 31 8c f2 73 49 28 57 25 2c 22 56 61 |(5)=1..sI(W%,"Va|
0001b4b0 63 75 73 74 22 29 3a f2 75 73 49 28 57 25 2c 22 |cust"):.usI(W%,"|
0001b4c0 56 61 61 34 22 29 3a f2 75 73 49 28 57 25 2c 22 |Vaa4"):.usI(W%,"|
0001b4d0 56 61 75 73 22 29 3a e7 20 bb 28 56 61 74 43 5f |Vaus"):. .(VatC_|
0001b4e0 24 28 36 29 29 3d 30 84 bb 28 56 61 74 43 5f 24 |$(6))=0..(VatC_$|
0001b4f0 28 37 29 29 3d 30 8c 56 61 74 43 5f 24 28 36 29 |(7))=0.VatC_$(6)|
0001b500 3d 22 32 31 30 22 3a 56 61 74 43 5f 24 28 37 29 |="210":VatC_$(7)|
0001b510 3d 22 33 30 34 22 0d 6f c2 2b 24 21 56 61 70 61 |="304".o.+$!Vapa|
0001b520 67 65 78 5f 25 3d 56 61 74 43 5f 24 28 36 29 3a |gex_%=VatC_$(6):|
0001b530 f2 72 49 28 57 25 2c 22 56 61 70 61 67 65 78 22 |.rI(W%,"Vapagex"|
0001b540 29 0d 6f c7 2b 24 21 56 61 70 61 67 65 79 5f 25 |).o.+$!Vapagey_%|
0001b550 3d 56 61 74 43 5f 24 28 37 29 3a f2 72 49 28 57 |=VatC_$(7):.rI(W|
0001b560 25 2c 22 56 61 70 61 67 65 79 22 29 0d 6f cc 32 |%,"Vapagey").o.2|
0001b570 e7 56 61 74 43 5f 25 28 36 29 3d 31 8c f2 73 49 |.VatC_%(6)=1..sI|
0001b580 28 57 25 2c 22 56 61 74 61 62 22 29 3a f2 75 73 |(W%,"Vatab"):.us|
0001b590 49 28 57 25 2c 22 56 61 73 70 61 63 22 29 0d 6f |I(W%,"Vaspac").o|
0001b5a0 d1 32 e7 56 61 74 43 5f 25 28 37 29 3d 31 8c f2 |.2.VatC_%(7)=1..|
0001b5b0 75 73 49 28 57 25 2c 22 56 61 74 61 62 22 29 3a |usI(W%,"Vatab"):|
0001b5c0 f2 73 49 28 57 25 2c 22 56 61 73 70 61 63 22 29 |.sI(W%,"Vaspac")|
0001b5d0 0d 6f d6 06 3d a3 0d 70 6c 04 0d 70 71 16 dd a4 |.o..=..pl..pq...|
0001b5e0 76 61 74 6c 65 73 73 5f 28 44 5f 2c 6e 5f 25 29 |vatless_(D_,n_%)|
0001b5f0 0d 70 76 2b 3d 44 5f 2d 28 44 5f 2d 44 5f 2f 28 |.pv+=D_-(D_-D_/(|
0001b600 28 31 30 30 30 30 2b 56 61 5f 25 28 6e 5f 25 29 |(10000+Va_%(n_%)|
0001b610 29 2f 31 30 30 29 2a 31 30 30 29 0d 70 7b 04 0d |)/100)*100).p{..|
0001b620 70 80 1c dd a4 74 63 5f 28 41 25 2c 6d 5f 24 29 |p....tc_(A%,m_$)|
0001b630 3a e7 41 25 3d 30 8c 3d 6d 5f 24 0d 70 85 4e ea |:.A%=0.=m_$.p.N.|
0001b640 42 24 2c 43 25 3a 43 25 3d b4 41 25 3a 41 25 3d |B$,C%:C%=.A%:A%=|
0001b650 94 41 25 3a 42 24 3d c3 28 41 25 81 31 30 30 29 |.A%:B$=.(A%.100)|
0001b660 2b 22 2e 22 2b c2 22 30 22 2b c3 28 41 25 83 31 |+"."+."0"+.(A%.1|
0001b670 30 30 29 2c 32 29 3a e7 43 25 3e 3d 30 8c 3d 42 |00),2):.C%>=0.=B|
0001b680 24 8b 3d 22 2d 22 2b 42 24 0d 70 8a 04 0d 70 8f |$.="-"+B$.p...p.|
0001b690 35 dd a4 6e 69 5f 28 41 24 29 3a ea 42 3a 42 3d |5..ni_(A$):.B:B=|
0001b6a0 31 30 30 2a bb 41 24 3a e7 94 28 b4 42 2a a8 28 |100*.A$:..(.B*.(|
0001b6b0 94 42 2b 30 2e 35 29 29 3e 6d 61 78 4e 5f 25 8c |.B+0.5))>maxN_%.|
0001b6c0 3d 30 0d 70 94 11 3d b4 42 2a a8 28 94 42 2b 30 |=0.p..=.B*.(.B+0|
0001b6d0 2e 35 29 0d 70 99 04 0d 70 9e 26 dd a4 63 6f 6e |.5).p...p.&..con|
0001b6e0 76 73 69 5f 28 6d 5f 24 29 3a e7 94 28 bb 28 6d |vsi_(m_$):..(.(m|
0001b6f0 5f 24 29 29 3c 2e 30 30 30 31 8c 3d 30 0d 70 a3 |_$))<.0001.=0.p.|
0001b700 3c ea 20 41 3a e7 bb 28 6d 5f 24 29 3c 30 20 8c |<. A:..(m_$)<0 .|
0001b710 41 3d bb 28 6d 5f 24 29 2d 2e 30 30 30 30 30 30 |A=.(m_$)-.000000|
0001b720 30 30 31 20 8b 20 41 3d bb 28 6d 5f 24 29 2b 2e |001 . A=.(m_$)+.|
0001b730 30 30 30 30 30 30 30 30 31 0d 70 a8 1c e7 94 28 |000000001.p....(|
0001b740 bb 28 6d 5f 24 29 2a 31 30 30 29 3e 6d 61 78 4e |.(m_$)*100)>maxN|
0001b750 5f 25 8c 3d 30 0d 70 ad 32 e7 c2 6d 5f 24 2c 31 |_%.=0.p.2..m_$,1|
0001b760 29 3e 22 40 22 8c f5 3a 6d 5f 24 3d c0 6d 5f 24 |)>"@"..:m_$=.m_$|
0001b770 2c a9 28 6d 5f 24 29 2d 31 29 3a fd c2 6d 5f 24 |,.(m_$)-1):..m_$|
0001b780 2c 31 29 3c 22 40 22 0d 70 b2 0a 3d 41 2a 31 30 |,1)<"@".p..=A*10|
0001b790 30 0d 70 b7 04 0d 70 bc 15 dd a4 63 6f 6e 76 69 |0.p...p....convi|
0001b7a0 73 5f 28 6d 5f 2c 6d 5f 24 29 0d 70 c1 14 ea 20 |s_(m_,m_$).p... |
0001b7b0 41 25 2c 42 25 2c 41 24 2c 42 24 2c 43 24 0d 70 |A%,B%,A$,B$,C$.p|
0001b7c0 c6 20 e7 6d 5f 3c 30 8c 41 24 3d 22 2d 22 3a 6d |. .m_<0.A$="-":m|
0001b7d0 5f 3d 94 28 6d 5f 29 20 8b 41 24 3d 22 22 0d 70 |_=.(m_) .A$="".p|
0001b7e0 cb 10 e7 6d 5f 3c 2e 30 31 8c 3d 6d 5f 24 0d 70 |...m_<.01.=m_$.p|
0001b7f0 d0 22 41 25 3d 6d 5f 2b 2e 30 30 31 3a 42 25 3d |."A%=m_+.001:B%=|
0001b800 28 6d 5f 2b 2e 30 30 31 2d 41 25 29 2a 31 30 30 |(m_+.001-A%)*100|
0001b810 0d 70 d5 51 e7 42 25 3d 30 84 6d 5f 24 3d 22 30 |.p.Q.B%=0.m_$="0|
0001b820 30 22 8c 42 24 3d 22 22 20 8b e7 42 25 3c 31 30 |0".B$="" ..B%<10|
0001b830 8c 42 24 3d 22 30 22 2b c3 28 42 25 29 20 8b 42 |.B$="0"+.(B%) .B|
0001b840 24 3d c0 c3 28 42 25 29 2c 32 29 3a e7 c2 42 24 |$=..(B%),2):..B$|
0001b850 2c 31 29 3d 22 30 22 8c 42 24 3d c0 42 24 2c 31 |,1)="0".B$=.B$,1|
0001b860 29 0d 70 da 1d 43 24 3d c3 28 41 25 29 3a e7 41 |).p..C$=.(A%):.A|
0001b870 25 3c 31 30 8c 43 24 3d 22 30 22 2b 43 24 0d 70 |%<10.C$="0"+C$.p|
0001b880 df 22 3d 41 24 2b c0 43 24 2c a9 28 43 24 29 2d |."=A$+.C$,.(C$)-|
0001b890 32 29 2b 22 2e 22 2b c2 43 24 2c 32 29 2b 42 24 |2)+"."+.C$,2)+B$|
0001b8a0 0d 70 e4 04 0d 70 e9 48 dd a4 73 75 6d 5f 28 41 |.p...p.H..sum_(A|
0001b8b0 5f 2c 42 5f 29 3a e7 94 28 41 5f 2a 42 5f 29 3c |_,B_):..(A_*B_)<|
0001b8c0 6d 61 78 4e 5f 25 80 94 28 41 5f 2a 42 5f 29 3e |maxN_%..(A_*B_)>|
0001b8d0 3d 2e 30 30 39 8c 3d 41 5f 2a 42 5f 2b a4 63 61 |=.009.=A_*B_+.ca|
0001b8e0 6c 70 63 33 5f 28 41 5f 2a 42 5f 29 0d 70 ee 06 |lpc3_(A_*B_).p..|
0001b8f0 3d 30 0d 70 f3 48 dd a4 61 64 64 5f 28 41 5f 2c |=0.p.H..add_(A_,|
0001b900 42 5f 29 3a e7 94 28 41 5f 2b 42 5f 29 3c 6d 61 |B_):..(A_+B_)<ma|
0001b910 78 4e 5f 25 80 94 28 41 5f 2b 42 5f 29 3e 3d 2e |xN_%..(A_+B_)>=.|
0001b920 30 30 39 8c 3d 41 5f 2b 42 5f 2b a4 63 61 6c 70 |009.=A_+B_+.calp|
0001b930 63 33 5f 28 41 5f 2b 42 5f 29 0d 70 f8 06 3d 30 |c3_(A_+B_).p..=0|
0001b940 0d 70 fd 48 dd a4 73 75 62 5f 28 41 5f 2c 42 5f |.p.H..sub_(A_,B_|
0001b950 29 3a e7 94 28 41 5f 2d 42 5f 29 3c 6d 61 78 4e |):..(A_-B_)<maxN|
0001b960 5f 25 80 94 28 41 5f 2d 42 5f 29 3e 3d 2e 30 30 |_%..(A_-B_)>=.00|
0001b970 39 8c 3d 41 5f 2d 42 5f 2b a4 63 61 6c 70 63 33 |9.=A_-B_+.calpc3|
0001b980 5f 28 41 5f 2d 42 5f 29 0d 71 02 06 3d 30 0d 71 |_(A_-B_).q..=0.q|
0001b990 07 04 0d 71 0c 10 dd a4 63 6f 6e 69 73 5f 28 6d |...q....conis_(m|
0001b9a0 5f 29 0d 71 11 14 ea 20 41 25 2c 42 25 2c 41 24 |_).q... A%,B%,A$|
0001b9b0 2c 42 24 2c 43 24 0d 71 16 20 e7 6d 5f 3c 30 8c |,B$,C$.q. .m_<0.|
0001b9c0 41 24 3d 22 2d 22 3a 6d 5f 3d 94 28 6d 5f 29 20 |A$="-":m_=.(m_) |
0001b9d0 8b 41 24 3d 22 22 0d 71 1b 1b e7 6d 5f 3c 2e 30 |.A$="".q...m_<.0|
0001b9e0 30 30 31 84 6d 5f 3e 6d 61 78 4e 5f 25 8c 3d 22 |001.m_>maxN_%.="|
0001b9f0 22 0d 71 20 2e 41 25 3d 6d 5f 3a 42 25 3d 28 6d |".q .A%=m_:B%=(m|
0001ba00 5f 2b 2e 30 30 30 30 31 2d 41 25 29 2a 31 30 30 |_+.00001-A%)*100|
0001ba10 30 30 3a 41 25 3d 6d 5f 2b 2e 30 30 30 30 31 0d |00:A%=m_+.00001.|
0001ba20 71 25 0a e7 42 25 3d 30 8c 0d 71 2a 09 42 24 3d |q%..B%=0..q*.B$=|
0001ba30 22 22 0d 71 2f 05 cc 0d 71 34 66 e7 42 25 3c 31 |"".q/...q4f.B%<1|
0001ba40 30 8c 42 24 3d 22 30 30 30 22 2b c3 28 42 25 29 |0.B$="000"+.(B%)|
0001ba50 20 8b e7 42 25 3c 31 30 30 8c 42 24 3d 22 30 30 | ..B%<100.B$="00|
0001ba60 22 2b c3 28 42 25 29 20 8b e7 42 25 3c 31 30 30 |"+.(B%) ..B%<100|
0001ba70 30 8c 42 24 3d 22 30 22 2b c3 28 42 25 29 20 8b |0.B$="0"+.(B%) .|
0001ba80 e7 42 25 3c 31 30 30 30 30 8c 42 24 3d c0 c3 28 |.B%<10000.B$=..(|
0001ba90 42 25 29 2c 34 29 20 8b 42 24 3d 22 22 0d 71 39 |B%),4) .B$="".q9|
0001baa0 30 42 24 3d 22 2e 22 2b 42 24 2b 22 30 22 3a f5 |0B$="."+B$+"0":.|
0001bab0 3a 42 24 3d c0 42 24 2c a9 28 42 24 29 2d 31 29 |:B$=.B$,.(B$)-1)|
0001bac0 3a fd c2 42 24 2c 31 29 3c 3e 22 30 22 0d 71 3e |:..B$,1)<>"0".q>|
0001bad0 11 e7 42 24 3d 22 2e 22 8c 42 24 3d 22 22 0d 71 |..B$=".".B$="".q|
0001bae0 43 05 cd 0d 71 48 0c 43 24 3d c3 28 41 25 29 0d |C...qH.C$=.(A%).|
0001baf0 71 4d 0d 3d 41 24 2b 43 24 2b 42 24 0d 71 52 13 |qM.=A$+C$+B$.qR.|
0001bb00 dd a4 69 6e 69 74 6d 65 6d 5f 3a ea 20 5a 25 0d |..initmem_:. Z%.|
0001bb10 71 57 e1 4f 70 61 67 65 25 3d 30 3a 49 4f 70 61 |qW.Opage%=0:IOpa|
0001bb20 67 65 25 3d 30 3a 53 49 4f 70 61 67 65 25 3d 30 |ge%=0:SIOpage%=0|
0001bb30 3a 4f 65 72 72 5f 25 3d 30 3a 41 66 6f 6e 5f 25 |:Oerr_%=0:Afon_%|
0001bb40 3d 31 35 3a 73 5f 24 3d 22 22 3a 65 72 72 6f 72 |=15:s_$="":error|
0001bb50 5f 25 3d 30 3a 68 65 61 64 70 25 3d 30 3a 68 65 |_%=0:headp%=0:he|
0001bb60 61 64 73 25 3d 30 3a 66 68 5f 25 3d 2d 31 3a 6d |ads%=0:fh_%=-1:m|
0001bb70 61 78 69 66 6f 6e 74 5f 25 3d 32 30 30 3a 74 65 |axifont_%=200:te|
0001bb80 6e 76 5f 24 3d 22 22 3a 69 70 6f 73 5f 25 3d 30 |nv_$="":ipos_%=0|
0001bb90 3a 6d 61 78 4e 5f 25 3d 32 31 34 37 34 38 33 36 |:maxN_%=21474836|
0001bba0 34 35 3a 65 6e 64 5f 25 3d 30 3a 6d 6f 72 65 6d |45:end_%=0:morem|
0001bbb0 65 6d 5f 24 3d 22 22 3a 6d 6f 72 65 6d 65 6d 5f |em_$="":moremem_|
0001bbc0 25 3d 30 3a 6e 6f 6d 65 6d 5f 25 3d 30 3a 76 61 |%=0:nomem_%=0:va|
0001bbd0 74 63 5f 24 3d 22 22 3a 7a 7a 31 5f 25 3d 31 30 |tc_$="":zz1_%=10|
0001bbe0 3a 7a 7a 32 5f 25 3d 31 30 3a 73 61 5f 25 3d 30 |:zz2_%=10:sa_%=0|
0001bbf0 0d 71 5c db 62 61 6e 6b 6c 25 3d 30 3a 68 65 61 |.q\.bankl%=0:hea|
0001bc00 70 5f 73 69 7a 65 25 3d 30 3a 6d 61 74 63 68 5f |p_size%=0:match_|
0001bc10 24 3d 22 20 41 6e 79 20 4d 61 74 63 68 20 22 3a |$=" Any Match ":|
0001bc20 72 65 64 75 63 65 5f 25 3d 30 3a 6a 5f 25 3d 30 |reduce_%=0:j_%=0|
0001bc30 3a 6c 61 62 65 6c 5f 24 3d 22 22 3a 6e 6f 74 72 |:label_$="":notr|
0001bc40 61 6e 73 5f 25 3d 30 3a 6d 61 78 6d 65 6e 75 5f |ans_%=0:maxmenu_|
0001bc50 25 3d 32 30 30 3a 6d 6f 64 65 5f 25 3d 2d 31 3a |%=200:mode_%=-1:|
0001bc60 73 69 74 69 70 5f 25 3d 35 3a 6d 65 6d 31 5f 25 |sitip_%=5:mem1_%|
0001bc70 3d 31 3a 6d 65 6d 32 5f 25 3d 31 3a 6d 65 6d 33 |=1:mem2_%=1:mem3|
0001bc80 5f 25 3d 31 34 39 3a 6d 65 6d 34 5f 25 3d 34 31 |_%=149:mem4_%=41|
0001bc90 31 3a 6d 65 6d 35 5f 25 3d 34 31 31 3a 6d 65 6d |1:mem5_%=411:mem|
0001bca0 36 5f 25 3d 32 39 36 3a 6d 65 6d 37 5f 25 3d 32 |6_%=296:mem7_%=2|
0001bcb0 35 3a 6d 65 6d 38 5f 25 3d 30 3a 6d 69 6e 46 5f |5:mem8_%=0:minF_|
0001bcc0 3d 2e 36 3a 62 61 6c 77 25 3d 30 0d 71 61 be 62 |=.6:balw%=0.qa.b|
0001bcd0 69 74 69 70 5f 25 3d 35 3a 4d 5f 25 3d 31 32 3a |itip_%=5:M_%=12:|
0001bce0 6d 61 78 73 75 70 70 5f 25 3d 31 30 3a 43 6d 61 |maxsupp_%=10:Cma|
0001bcf0 78 73 75 70 70 5f 25 3d 33 30 3a 6d 61 78 53 5f |xsupp_%=30:maxS_|
0001bd00 25 3d 33 30 3a 6d 61 78 50 5f 25 3d 33 30 3a 6d |%=30:maxP_%=30:m|
0001bd10 61 78 42 5f 25 3d 31 30 3a 6d 61 78 54 5f 25 3d |axB_%=10:maxT_%=|
0001bd20 31 30 3a 4f 77 69 6e 64 25 3d 30 3a 49 4f 77 69 |10:Owind%=0:IOwi|
0001bd30 6e 64 25 3d 30 3a 53 49 4f 77 69 6e 64 25 3d 30 |nd%=0:SIOwind%=0|
0001bd40 3a 62 61 6c 77 69 5f 25 3d 33 3a 62 61 6c 77 6e |:balwi_%=3:balwn|
0001bd50 5f 25 3d 37 31 3a 62 61 6c 77 63 25 3d 30 3a 62 |_%=71:balwc%=0:b|
0001bd60 61 6c 70 61 5f 25 3d 30 3a 43 53 75 57 25 3d 30 |alpa_%=0:CSuW%=0|
0001bd70 3a 53 75 57 25 3d 30 3a 53 31 34 5f 24 3d 22 22 |:SuW%=0:S14_$=""|
0001bd80 3a 53 31 35 5f 24 3d 22 22 0d 71 70 64 6d 6f 72 |:S15_$="".qpdmor|
0001bd90 65 6d 65 6d 5f 25 3d a4 73 79 73 65 6e 76 5f 3a |emem_%=.sysenv_:|
0001bda0 e7 6d 6f 72 65 6d 65 6d 5f 25 3d 30 20 8c 4d 5f |.moremem_%=0 .M_|
0001bdb0 25 3d 31 32 3a 6d 61 78 73 75 70 70 5f 25 3d 31 |%=12:maxsupp_%=1|
0001bdc0 30 3a 43 6d 61 78 73 75 70 70 5f 25 3d 33 30 3a |0:Cmaxsupp_%=30:|
0001bdd0 6d 61 78 53 5f 25 3d 33 30 3a 6d 61 78 50 5f 25 |maxS_%=30:maxP_%|
0001bde0 3d 33 30 3a 6d 61 78 42 5f 25 3d 31 30 0d 71 75 |=30:maxB_%=10.qu|
0001bdf0 45 e7 6d 61 78 73 75 70 70 5f 25 3e 43 6d 61 78 |E.maxsupp_%>Cmax|
0001be00 73 75 70 70 5f 25 8c 4c 6d 61 78 73 75 70 70 5f |supp_%.Lmaxsupp_|
0001be10 25 3d 6d 61 78 73 75 70 70 5f 25 20 8b 4c 6d 61 |%=maxsupp_% .Lma|
0001be20 78 73 75 70 70 5f 25 3d 43 6d 61 78 73 75 70 70 |xsupp_%=Cmaxsupp|
0001be30 5f 25 0d 71 7a 20 e7 4c 6d 61 78 73 75 70 70 5f |_%.qz .Lmaxsupp_|
0001be40 25 3c 33 30 8c 4c 6d 61 78 73 75 70 70 5f 25 3d |%<30.Lmaxsupp_%=|
0001be50 33 30 0d 71 7f 61 e7 6d 61 78 53 5f 25 3e 6d 61 |30.q.a.maxS_%>ma|
0001be60 78 50 5f 25 8c 4c 6d 61 78 53 5f 25 3d 6d 61 78 |xP_%.LmaxS_%=max|
0001be70 53 5f 25 3a 4c 4c 6d 61 78 53 5f 25 3d 6d 61 78 |S_%:LLmaxS_%=max|
0001be80 53 5f 25 2a 73 69 74 69 70 5f 25 20 8b 4c 6d 61 |S_%*sitip_% .Lma|
0001be90 78 53 5f 25 3d 6d 61 78 50 5f 25 3a 4c 4c 6d 61 |xS_%=maxP_%:LLma|
0001bea0 78 53 5f 25 3d 6d 61 78 50 5f 25 2a 73 69 74 69 |xS_%=maxP_%*siti|
0001beb0 70 5f 25 0d 71 84 3a e7 6d 61 78 42 5f 25 3e 4c |p_%.q.:.maxB_%>L|
0001bec0 6d 61 78 53 5f 25 8c 4c 6d 61 78 53 5f 25 3d 6d |maxS_%.LmaxS_%=m|
0001bed0 61 78 42 5f 25 3a 4c 4c 6d 61 78 53 5f 25 3d 6d |axB_%:LLmaxS_%=m|
0001bee0 61 78 42 5f 25 2a 73 69 74 69 70 5f 25 0d 71 89 |axB_%*sitip_%.q.|
0001bef0 0e 3d 6d 6f 72 65 6d 65 6d 5f 25 0d 71 8e 29 dd |.=moremem_%.q.).|
0001bf00 a4 69 5f 28 41 24 2c 42 25 29 3a ea 41 25 2c 43 |.i_(A$,B%):.A%,C|
0001bf10 24 2c 5a 25 3a f2 69 52 65 73 28 41 24 2c 42 25 |$,Z%:.iRes(A$,B%|
0001bf20 29 3a 3d b9 0d 71 93 04 0d 71 98 10 dd a4 69 6e |):=..q...q....in|
0001bf30 69 74 63 6f 6e 73 74 5f 0d 71 9d 0d ea 41 25 2c |itconst_.q...A%,|
0001bf40 43 24 2c 5a 25 0d 71 a2 07 ea 20 85 0d 71 a7 23 |C$,Z%.q... ..q.#|
0001bf50 ee 20 85 20 ea 3a f7 20 85 3a f2 70 65 5f 28 a4 |. . .:. .:.pe_(.|
0001bf60 65 72 72 5f 29 3a 3d a4 4d 79 71 75 69 74 5f 0d |err_):=.Myquit_.|
0001bf70 71 a9 43 4d 5f 25 3d 31 32 3a 6d 61 78 73 75 70 |q.CM_%=12:maxsup|
0001bf80 70 5f 25 3d 31 30 3a 43 6d 61 78 73 75 70 70 5f |p_%=10:Cmaxsupp_|
0001bf90 25 3d 33 30 3a 6d 61 78 53 5f 25 3d 33 30 3a 6d |%=30:maxS_%=30:m|
0001bfa0 61 78 50 5f 25 3d 33 30 3a 6d 61 78 42 5f 25 3d |axP_%=30:maxB_%=|
0001bfb0 31 30 0d 71 ac 0f e7 6e 6f 6d 65 6d 5f 25 3d 31 |10.q...nomem_%=1|
0001bfc0 8c 0d 71 b1 43 4d 5f 25 3d 31 32 3a 6d 61 78 73 |..q.CM_%=12:maxs|
0001bfd0 75 70 70 5f 25 3d 31 30 3a 43 6d 61 78 73 75 70 |upp_%=10:Cmaxsup|
0001bfe0 70 5f 25 3d 33 30 3a 6d 61 78 53 5f 25 3d 33 30 |p_%=30:maxS_%=30|
0001bff0 3a 6d 61 78 50 5f 25 3d 33 30 3a 6d 61 78 42 5f |:maxP_%=30:maxB_|
0001c000 25 3d 31 30 0d 71 b6 45 e7 6d 61 78 73 75 70 70 |%=10.q.E.maxsupp|
0001c010 5f 25 3e 43 6d 61 78 73 75 70 70 5f 25 8c 4c 6d |_%>Cmaxsupp_%.Lm|
0001c020 61 78 73 75 70 70 5f 25 3d 6d 61 78 73 75 70 70 |axsupp_%=maxsupp|
0001c030 5f 25 20 8b 4c 6d 61 78 73 75 70 70 5f 25 3d 43 |_% .Lmaxsupp_%=C|
0001c040 6d 61 78 73 75 70 70 5f 25 0d 71 bb 20 e7 4c 6d |maxsupp_%.q. .Lm|
0001c050 61 78 73 75 70 70 5f 25 3c 31 30 8c 4c 6d 61 78 |axsupp_%<10.Lmax|
0001c060 73 75 70 70 5f 25 3d 31 30 0d 71 c0 61 e7 6d 61 |supp_%=10.q.a.ma|
0001c070 78 53 5f 25 3e 6d 61 78 50 5f 25 8c 4c 6d 61 78 |xS_%>maxP_%.Lmax|
0001c080 53 5f 25 3d 6d 61 78 53 5f 25 3a 4c 4c 6d 61 78 |S_%=maxS_%:LLmax|
0001c090 53 5f 25 3d 6d 61 78 53 5f 25 2a 73 69 74 69 70 |S_%=maxS_%*sitip|
0001c0a0 5f 25 20 8b 4c 6d 61 78 53 5f 25 3d 6d 61 78 50 |_% .LmaxS_%=maxP|
0001c0b0 5f 25 3a 4c 4c 6d 61 78 53 5f 25 3d 6d 61 78 50 |_%:LLmaxS_%=maxP|
0001c0c0 5f 25 2a 73 69 74 69 70 5f 25 0d 71 c5 3a e7 6d |_%*sitip_%.q.:.m|
0001c0d0 61 78 42 5f 25 3e 4c 6d 61 78 53 5f 25 8c 4c 6d |axB_%>LmaxS_%.Lm|
0001c0e0 61 78 53 5f 25 3d 6d 61 78 42 5f 25 3a 4c 4c 6d |axS_%=maxB_%:LLm|
0001c0f0 61 78 53 5f 25 3d 6d 61 78 42 5f 25 2a 73 69 74 |axS_%=maxB_%*sit|
0001c100 69 70 5f 25 0d 71 ca 05 cd 0d 71 cf 16 6d 65 6d |ip_%.q....q..mem|
0001c110 5f 25 3d a4 67 65 74 70 61 67 65 5f 28 31 29 0d |_%=.getpage_(1).|
0001c120 71 d4 43 e7 4c 4c 6d 61 78 53 5f 25 3e 4c 6d 61 |q.C.LLmaxS_%>Lma|
0001c130 78 73 75 70 70 5f 25 8c 4d 6d 61 78 73 75 70 70 |xsupp_%.Mmaxsupp|
0001c140 5f 25 3d 4c 4c 6d 61 78 53 5f 25 20 8b 4d 6d 61 |_%=LLmaxS_% .Mma|
0001c150 78 73 75 70 70 5f 25 3d 4c 6d 61 78 73 75 70 70 |xsupp_%=Lmaxsupp|
0001c160 5f 25 0d 71 d9 ca 5a 25 3d a4 6d 61 78 6d 65 6d |_%.q..Z%=.maxmem|
0001c170 5f 3a 6d 65 6d 45 5f 25 3d 30 3a 6d 65 6d 53 5f |_:memE_%=0:memS_|
0001c180 25 3d 6d 65 6d 38 5f 25 3a 4f 6d 61 78 73 74 5f |%=mem8_%:Omaxst_|
0001c190 25 3d 4d 5f 25 3a 4f 6d 61 78 53 5f 25 3d 6d 61 |%=M_%:OmaxS_%=ma|
0001c1a0 78 53 5f 25 3a 4f 6d 61 78 50 5f 25 3d 6d 61 78 |xS_%:OmaxP_%=max|
0001c1b0 50 5f 25 3a 4f 6d 61 78 42 5f 25 3d 6d 61 78 42 |P_%:OmaxB_%=maxB|
0001c1c0 5f 25 3a 70 64 5f 24 3d 22 4e 6f 20 70 72 69 6e |_%:pd_$="No prin|
0001c1d0 74 65 72 20 64 72 69 76 65 72 20 69 6e 73 74 61 |ter driver insta|
0001c1e0 6c 6c 65 64 22 3a 43 5f 25 3d 31 3a 53 5f 25 3d |lled":C_%=1:S_%=|
0001c1f0 31 3a 43 53 5f 25 3d 31 3a 73 74 69 5f 25 3d 31 |1:CS_%=1:sti_%=1|
0001c200 39 3a 66 73 69 5f 25 3d 38 3a 73 75 69 5f 25 3d |9:fsi_%=8:sui_%=|
0001c210 31 39 3a 43 73 75 69 5f 25 3d 31 39 3a 73 6c 69 |19:Csui_%=19:sli|
0001c220 5f 25 3d 37 3a 6f 72 69 5f 25 3d 32 0d 71 de f0 |_%=7:ori_%=2.q..|
0001c230 49 6f 72 69 5f 25 3d 32 3a 53 49 6f 72 69 5f 25 |Iori_%=2:SIori_%|
0001c240 3d 32 3a 69 74 69 5f 25 3d 31 3a 69 74 69 6e 5f |=2:iti_%=1:itin_|
0001c250 25 3d 34 38 3a 69 74 69 66 5f 25 3d 36 3a 69 74 |%=48:itif_%=6:it|
0001c260 70 5f 25 3d 30 3a 69 74 69 70 5f 25 3d 38 3a 6d |p_%=0:itip_%=8:m|
0001c270 61 78 49 5f 25 3d 31 30 3a 74 6f 74 49 5f 25 3d |axI_%=10:totI_%=|
0001c280 6d 61 78 49 5f 25 2a 69 74 69 70 5f 25 2a 69 74 |maxI_%*itip_%*it|
0001c290 69 66 5f 25 2d 31 3a 73 69 74 69 5f 25 3d 31 3a |if_%-1:siti_%=1:|
0001c2a0 73 69 74 69 66 5f 25 3d 31 31 3a 73 69 74 69 6e |sitif_%=11:sitin|
0001c2b0 5f 25 3d 73 69 74 69 66 5f 25 2a 73 69 74 69 70 |_%=sitif_%*sitip|
0001c2c0 5f 25 3a 73 69 74 70 5f 25 3d 30 3a 70 69 74 70 |_%:sitp_%=0:pitp|
0001c2d0 5f 25 3d 30 3a 62 69 74 69 66 5f 25 3d 38 3a 62 |_%=0:bitif_%=8:b|
0001c2e0 69 74 69 6e 5f 25 3d 62 69 74 69 66 5f 25 2a 73 |itin_%=bitif_%*s|
0001c2f0 69 74 69 70 5f 25 3a 62 69 74 70 5f 25 3d 30 3a |itip_%:bitp_%=0:|
0001c300 74 69 74 70 5f 25 3d 30 3a 53 31 32 30 5f 25 3d |titp_%=0:S120_%=|
0001c310 2d 31 3a 43 31 32 30 5f 25 3d 2d 31 0d 71 e3 de |-1:C120_%=-1.q..|
0001c320 6d 61 78 66 6f 6e 6c 65 6e 5f 25 3d 33 30 3a 6f |maxfonlen_%=30:o|
0001c330 73 5f 25 3d 34 30 30 3a 6d 6d 5f 3d 32 35 2e 34 |s_%=400:mm_=25.4|
0001c340 3a 6d 70 5f 25 3d 37 32 30 30 30 3a 6f 73 63 5f |:mp_%=72000:osc_|
0001c350 25 3d 31 38 30 3a 72 75 6c 65 5f 3d 37 2e 31 3a |%=180:rule_=7.1:|
0001c360 73 72 75 6c 65 5f 3d 32 2e 32 3a 6d 61 78 73 75 |srule_=2.2:maxsu|
0001c370 70 6c 65 6e 5f 25 3d 32 30 3a 4f 6d 61 78 73 75 |plen_%=20:Omaxsu|
0001c380 5f 25 3d 6d 61 78 73 75 70 70 5f 25 3a 43 4f 6d |_%=maxsupp_%:COm|
0001c390 61 78 73 75 5f 25 3d 43 6d 61 78 73 75 70 70 5f |axsu_%=Cmaxsupp_|
0001c3a0 25 3a 53 61 6c 5f 25 3d 31 3a 53 67 5f 25 3d 31 |%:Sal_%=1:Sg_%=1|
0001c3b0 3a 4c 67 5f 25 3d 53 67 5f 25 3a 43 67 5f 25 3d |:Lg_%=Sg_%:Cg_%=|
0001c3c0 31 3a 66 6f 6e 74 73 69 7a 65 5f 25 3d 26 32 30 |1:fontsize_%=&20|
0001c3d0 30 3a 73 75 68 5f 25 3d 31 3a 63 73 75 68 5f 25 |0:suh_%=1:csuh_%|
0001c3e0 3d 31 3a 50 72 63 74 25 3d 30 3a 50 6c 5f 25 3d |=1:Prct%=0:Pl_%=|
0001c3f0 2d 31 3a 4f 6c 5f 25 3d 2d 31 0d 71 e8 b6 63 69 |-1:Ol_%=-1.q..ci|
0001c400 5f 25 3d 31 3a 69 6d 6d 5f 3d 34 2e 36 32 39 36 |_%=1:imm_=4.6296|
0001c410 32 39 36 33 45 2d 33 3a 4f 69 63 6f 6e 73 25 3d |2963E-3:Oicons%=|
0001c420 34 32 3a 49 4f 69 63 6f 6e 73 25 3d 35 37 3a 53 |42:IOicons%=57:S|
0001c430 49 4f 69 63 6f 6e 73 25 3d 34 34 3a 49 41 66 6f |IOicons%=44:IAfo|
0001c440 6e 5f 25 3d 41 66 6f 6e 5f 25 2b 4f 69 63 6f 6e |n_%=Afon_%+Oicon|
0001c450 73 25 2d 31 3a 53 49 41 66 6f 6e 5f 25 3d 49 41 |s%-1:SIAfon_%=IA|
0001c460 66 6f 6e 5f 25 2b 49 4f 69 63 6f 6e 73 25 2d 31 |fon_%+IOicons%-1|
0001c470 3a 4f 6e 75 6d 25 3d 31 3a e7 6d 61 78 53 5f 25 |:Onum%=1:.maxS_%|
0001c480 2a 73 69 74 69 70 5f 25 3e 4d 5f 25 8c 74 65 6d |*sitip_%>M_%.tem|
0001c490 70 31 5f 25 3d 6d 61 78 53 5f 25 2a 73 69 74 69 |p1_%=maxS_%*siti|
0001c4a0 70 5f 25 20 8b 74 65 6d 70 31 5f 25 3d 4d 5f 25 |p_% .temp1_%=M_%|
0001c4b0 0d 71 ed da de 20 4e 65 77 50 72 65 66 5f 25 28 |.q... NewPref_%(|
0001c4c0 39 29 2c 74 31 5f 25 28 31 33 29 2c 74 32 5f 25 |9),t1_%(13),t2_%|
0001c4d0 28 31 32 29 2c 74 33 5f 25 28 31 32 29 2c 74 34 |(12),t3_%(12),t4|
0001c4e0 5f 25 28 31 32 29 2c 74 35 5f 25 28 31 32 29 2c |_%(12),t5_%(12),|
0001c4f0 74 36 5f 25 28 31 32 29 2c 53 68 65 61 64 31 5f |t6_%(12),Shead1_|
0001c500 24 28 31 30 38 29 2c 50 68 65 61 64 31 5f 24 28 |$(108),Phead1_$(|
0001c510 31 30 38 29 2c 53 68 65 61 64 74 31 5f 25 28 35 |108),Sheadt1_%(5|
0001c520 2a 39 36 29 2c 50 68 65 61 64 74 31 5f 25 28 35 |*96),Pheadt1_%(5|
0001c530 2a 39 36 29 2c 42 61 6e 6b 4e 4e 5f 24 28 31 33 |*96),BankNN_$(13|
0001c540 29 2c 42 61 6e 6b 4f 4f 5f 25 28 31 33 29 2c 42 |),BankOO_%(13),B|
0001c550 61 6e 6b 53 53 5f 25 28 31 33 29 2c 42 61 6e 6b |ankSS_%(13),Bank|
0001c560 43 43 5f 25 28 31 33 29 2c 6f 6c 64 64 61 74 61 |CC_%(13),olddata|
0001c570 5f 25 28 31 30 29 2c 42 6e 31 5f 24 28 32 34 29 |_%(10),Bn1_$(24)|
0001c580 2c 42 6e 32 5f 24 28 32 37 29 0d 71 f2 bc de 20 |,Bn2_$(27).q... |
0001c590 6f 6c 64 64 61 74 61 5f 24 28 31 32 29 2c 63 62 |olddata_$(12),cb|
0001c5a0 6c 6f 63 6b 5f 25 20 32 35 36 2c 70 62 6c 6f 63 |lock_% 256,pbloc|
0001c5b0 6b 5f 25 20 32 35 36 2c 49 6e 64 65 78 5f 24 28 |k_% 256,Index_$(|
0001c5c0 32 33 29 2c 49 6e 64 65 78 31 5f 24 28 32 33 29 |23),Index1_$(23)|
0001c5d0 2c 42 65 73 74 5f 24 28 34 37 29 2c 66 6f 6e 74 |,Best_$(47),font|
0001c5e0 5f 25 20 66 6f 6e 74 73 69 7a 65 5f 25 2c 62 6c |_% fontsize_%,bl|
0001c5f0 6f 63 6b 5f 25 20 34 30 30 30 2c 69 62 6c 6f 63 |ock_% 4000,ibloc|
0001c600 6b 5f 25 20 36 34 2c 68 62 6c 6f 63 6b 5f 25 20 |k_% 64,hblock_% |
0001c610 36 34 2c 4f 72 64 65 72 43 5f 25 20 34 30 30 30 |64,OrderC_% 4000|
0001c620 2c 48 77 5f 24 28 32 35 29 2c 48 70 5f 24 28 34 |,Hw_$(25),Hp_$(4|
0001c630 35 29 2c 6f 62 6c 6f 63 6b 5f 25 20 36 34 2c 62 |5),oblock_% 64,b|
0001c640 6c 5f 24 28 31 29 0d 71 f7 54 de 20 49 4f 69 63 |l_$(1).q.T. IOic|
0001c650 6f 6e 25 28 49 4f 69 63 6f 6e 73 25 29 2c 49 4f |on%(IOicons%),IO|
0001c660 6a 75 73 74 5f 25 28 49 4f 69 63 6f 6e 73 25 29 |just_%(IOicons%)|
0001c670 2c 49 4f 72 64 65 72 63 68 25 28 49 4f 69 63 6f |,IOrderch%(IOico|
0001c680 6e 73 25 29 2c 57 61 74 43 5f 24 28 31 30 29 2c |ns%),WatC_$(10),|
0001c690 57 61 74 43 5f 25 28 31 30 29 0d 71 fc 60 de 20 |WatC_%(10).q.`. |
0001c6a0 49 4f 72 64 65 72 53 5f 24 28 49 4f 69 63 6f 6e |IOrderS_$(IOicon|
0001c6b0 73 25 29 2c 49 4f 72 64 65 72 46 5f 25 28 49 4f |s%),IOrderF_%(IO|
0001c6c0 69 63 6f 6e 73 25 29 2c 49 4f 72 64 65 72 46 31 |icons%),IOrderF1|
0001c6d0 5f 25 28 49 4f 69 63 6f 6e 73 25 29 2c 62 6c 31 |_%(IOicons%),bl1|
0001c6e0 5f 25 28 31 31 29 2c 48 77 70 5f 24 28 32 35 29 |_%(11),Hwp_$(25)|
0001c6f0 2c 48 70 70 5f 24 28 34 35 29 0d 72 01 6a de 20 |,Hpp_$(45).r.j. |
0001c700 49 4f 72 64 65 72 6d 79 5f 28 49 4f 69 63 6f 6e |IOrdermy_(IOicon|
0001c710 73 25 29 2c 49 4f 72 64 65 72 6d 78 5f 28 49 4f |s%),IOrdermx_(IO|
0001c720 69 63 6f 6e 73 25 29 2c 49 4f 72 64 65 72 66 79 |icons%),IOrderfy|
0001c730 5f 25 28 49 4f 69 63 6f 6e 73 25 29 2c 4c 68 65 |_%(IOicons%),Lhe|
0001c740 61 64 53 5f 24 28 31 30 38 29 2c 4c 68 65 61 64 |adS_$(108),Lhead|
0001c750 50 5f 24 28 31 30 38 29 2c 4c 62 61 6e 6b 5f 24 |P_$(108),Lbank_$|
0001c760 28 31 32 29 0d 72 06 65 de 20 49 4f 72 64 65 72 |(12).r.e. IOrder|
0001c770 66 78 5f 25 28 49 4f 69 63 6f 6e 73 25 29 2c 49 |fx_%(IOicons%),I|
0001c780 4f 72 64 65 72 6d 65 5f 24 28 49 4f 69 63 6f 6e |Orderme_$(IOicon|
0001c790 73 25 29 2c 69 6e 76 31 31 5f 25 28 49 4f 69 63 |s%),inv11_%(IOic|
0001c7a0 6f 6e 73 25 29 2c 69 6e 76 32 32 5f 25 28 49 4f |ons%),inv22_%(IO|
0001c7b0 69 63 6f 6e 73 25 29 2c 69 6e 76 33 33 5f 25 28 |icons%),inv33_%(|
0001c7c0 49 4f 69 63 6f 6e 73 25 29 0d 72 0b be de 20 53 |IOicons%).r... S|
0001c7d0 6c 52 65 63 5f 24 28 53 61 6c 5f 25 29 2c 53 6c |lRec_$(Sal_%),Sl|
0001c7e0 4e 75 6d 5f 24 28 53 61 6c 5f 25 29 2c 53 6c 44 |Num_$(Sal_%),SlD|
0001c7f0 65 73 5f 24 28 53 61 6c 5f 25 29 2c 53 6c 51 75 |es_$(Sal_%),SlQu|
0001c800 61 5f 28 53 61 6c 5f 25 29 2c 53 6c 50 72 69 5f |a_(Sal_%),SlPri_|
0001c810 28 53 61 6c 5f 25 29 2c 53 6c 56 61 74 5f 24 28 |(Sal_%),SlVat_$(|
0001c820 53 61 6c 5f 25 29 2c 4c 61 62 65 6c 5f 24 28 31 |Sal_%),Label_$(1|
0001c830 36 29 2c 46 6f 5f 24 28 6d 61 78 69 66 6f 6e 74 |6),Fo_$(maxifont|
0001c840 5f 25 29 2c 4f 66 6f 6e 74 6e 61 6d 65 5f 24 28 |_%),Ofontname_$(|
0001c850 6d 61 78 69 66 6f 6e 74 5f 25 29 2c 4c 66 6f 5f |maxifont_%),Lfo_|
0001c860 24 28 6d 61 78 69 66 6f 6e 74 5f 25 2b 31 29 2c |$(maxifont_%+1),|
0001c870 69 6e 76 4c 5f 24 28 31 30 30 29 2c 69 6e 76 6c |invL_$(100),invl|
0001c880 5f 24 28 31 30 31 29 0d 72 10 1b de 20 66 68 61 |_$(101).r... fha|
0001c890 6e 64 6c 65 5f 25 28 6d 61 78 69 66 6f 6e 74 5f |ndle_%(maxifont_|
0001c8a0 25 29 0d 72 15 22 de 20 4f 72 64 5f 25 28 74 65 |%).r.". Ord_%(te|
0001c8b0 6d 70 31 5f 25 2b 31 29 2c 53 74 48 64 5f 24 28 |mp1_%+1),StHd_$(|
0001c8c0 4d 5f 25 29 0d 72 1a 2a de 20 56 61 5f 25 28 32 |M_%).r.*. Va_%(2|
0001c8d0 37 29 2c 56 61 5f 24 28 32 37 29 2c 73 75 70 70 |7),Va_$(27),supp|
0001c8e0 5f 25 28 4d 6d 61 78 73 75 70 70 5f 25 29 0d 72 |_%(Mmaxsupp_%).r|
0001c8f0 29 82 de 20 43 4c 53 75 70 70 6c 69 65 72 73 5f |).. CLSuppliers_|
0001c900 24 28 43 6d 61 78 73 75 70 70 5f 25 29 2c 43 53 |$(Cmaxsupp_%),CS|
0001c910 75 70 70 6c 69 65 72 73 5f 24 28 43 6d 61 78 73 |uppliers_$(Cmaxs|
0001c920 75 70 70 5f 25 29 2c 43 73 75 70 70 5f 24 28 43 |upp_%),Csupp_$(C|
0001c930 6d 61 78 73 75 70 70 5f 25 29 2c 43 53 75 4e 75 |maxsupp_%),CSuNu|
0001c940 6d 62 65 72 5f 25 28 43 6d 61 78 73 75 70 70 5f |mber_%(Cmaxsupp_|
0001c950 25 29 2c 43 53 75 41 64 31 5f 24 28 43 6d 61 78 |%),CSuAd1_$(Cmax|
0001c960 73 75 70 70 5f 25 29 2c 76 74 31 5f 28 39 36 29 |supp_%),vt1_(96)|
0001c970 0d 72 2e cc de 20 43 53 75 41 64 32 5f 24 28 43 |.r... CSuAd2_$(C|
0001c980 6d 61 78 73 75 70 70 5f 25 29 2c 43 53 75 41 64 |maxsupp_%),CSuAd|
0001c990 33 5f 24 28 43 6d 61 78 73 75 70 70 5f 25 29 2c |3_$(Cmaxsupp_%),|
0001c9a0 43 53 75 41 64 34 5f 24 28 43 6d 61 78 73 75 70 |CSuAd4_$(Cmaxsup|
0001c9b0 70 5f 25 29 2c 43 53 75 50 6f 73 5f 24 28 43 6d |p_%),CSuPos_$(Cm|
0001c9c0 61 78 73 75 70 70 5f 25 29 2c 43 53 75 43 6f 6e |axsupp_%),CSuCon|
0001c9d0 74 61 63 5f 24 28 43 6d 61 78 73 75 70 70 5f 25 |tac_$(Cmaxsupp_%|
0001c9e0 29 2c 43 53 75 54 65 6c 5f 24 28 43 6d 61 78 73 |),CSuTel_$(Cmaxs|
0001c9f0 75 70 70 5f 25 29 2c 43 53 75 46 61 5f 24 28 43 |upp_%),CSuFa_$(C|
0001ca00 6d 61 78 73 75 70 70 5f 25 29 2c 43 53 75 43 6f |maxsupp_%),CSuCo|
0001ca10 6d 31 5f 24 28 43 6d 61 78 73 75 70 70 5f 25 29 |m1_$(Cmaxsupp_%)|
0001ca20 2c 76 74 5f 25 28 39 36 29 2c 76 74 31 5f 25 28 |,vt_%(96),vt1_%(|
0001ca30 39 36 29 2c 76 74 5f 24 28 39 36 29 0d 72 33 8d |96),vt_$(96).r3.|
0001ca40 de 20 64 43 53 75 70 70 6c 69 65 72 73 5f 24 28 |. dCSuppliers_$(|
0001ca50 43 6d 61 78 73 75 70 70 5f 25 29 2c 64 43 53 75 |Cmaxsupp_%),dCSu|
0001ca60 41 64 31 5f 24 28 43 6d 61 78 73 75 70 70 5f 25 |Ad1_$(Cmaxsupp_%|
0001ca70 29 2c 64 43 53 75 41 64 32 5f 24 28 43 6d 61 78 |),dCSuAd2_$(Cmax|
0001ca80 73 75 70 70 5f 25 29 2c 64 43 53 75 41 64 33 5f |supp_%),dCSuAd3_|
0001ca90 24 28 43 6d 61 78 73 75 70 70 5f 25 29 2c 64 43 |$(Cmaxsupp_%),dC|
0001caa0 53 75 41 64 34 5f 24 28 43 6d 61 78 73 75 70 70 |SuAd4_$(Cmaxsupp|
0001cab0 5f 25 29 2c 64 43 53 75 50 6f 73 5f 24 28 43 6d |_%),dCSuPos_$(Cm|
0001cac0 61 78 73 75 70 70 5f 25 29 0d 72 38 d5 de 20 43 |axsupp_%).r8.. C|
0001cad0 53 75 43 6f 6d 32 5f 24 28 43 6d 61 78 73 75 70 |SuCom2_$(Cmaxsup|
0001cae0 70 5f 25 29 2c 43 53 75 53 75 70 70 52 65 5f 24 |p_%),CSuSuppRe_$|
0001caf0 28 43 6d 61 78 73 75 70 70 5f 25 29 2c 43 53 75 |(Cmaxsupp_%),CSu|
0001cb00 59 6f 75 72 52 65 5f 24 28 43 6d 61 78 73 75 70 |YourRe_$(Cmaxsup|
0001cb10 70 5f 25 29 2c 43 53 75 4f 72 64 65 5f 24 28 43 |p_%),CSuOrde_$(C|
0001cb20 6d 61 78 73 75 70 70 5f 25 29 2c 43 53 75 44 69 |maxsupp_%),CSuDi|
0001cb30 73 63 5f 24 28 43 6d 61 78 73 75 70 70 5f 25 29 |sc_$(Cmaxsupp_%)|
0001cb40 2c 49 54 73 5f 24 28 6d 61 78 49 5f 25 2a 69 74 |,ITs_$(maxI_%*it|
0001cb50 69 70 5f 25 2a 69 74 69 66 5f 25 2b 35 29 2c 49 |ip_%*itif_%+5),I|
0001cb60 54 6f 73 5f 24 28 6d 61 78 49 5f 25 2a 69 74 69 |Tos_$(maxI_%*iti|
0001cb70 70 5f 25 29 2c 49 54 64 5f 25 28 6d 61 78 49 5f |p_%),ITd_%(maxI_|
0001cb80 25 2a 69 74 69 70 5f 25 29 2c 49 54 66 5f 25 28 |%*itip_%),ITf_%(|
0001cb90 6d 61 78 49 5f 25 2a 69 74 69 70 5f 25 29 0d 72 |maxI_%*itip_%).r|
0001cba0 3d bf de 20 49 54 74 5f 24 28 6d 61 78 49 5f 25 |=.. ITt_$(maxI_%|
0001cbb0 2a 69 74 69 70 5f 25 29 2c 49 54 72 5f 28 6d 61 |*itip_%),ITr_(ma|
0001cbc0 78 49 5f 25 2a 69 74 69 70 5f 25 29 2c 49 54 6e |xI_%*itip_%),ITn|
0001cbd0 5f 25 28 6d 61 78 49 5f 25 2a 69 74 69 70 5f 25 |_%(maxI_%*itip_%|
0001cbe0 29 2c 49 54 6f 5f 25 28 6d 61 78 49 5f 25 2a 69 |),ITo_%(maxI_%*i|
0001cbf0 74 69 70 5f 25 29 2c 49 54 73 73 5f 24 28 69 74 |tip_%),ITss_$(it|
0001cc00 69 6e 5f 25 2b 34 29 2c 49 54 73 73 73 5f 24 28 |in_%+4),ITsss_$(|
0001cc10 69 74 69 70 5f 25 2b 33 29 2c 53 49 54 65 5f 24 |itip_%+3),SITe_$|
0001cc20 28 6d 61 78 53 5f 25 2a 73 69 74 69 70 5f 25 2a |(maxS_%*sitip_%*|
0001cc30 73 69 74 69 66 5f 25 2b 73 69 74 69 66 5f 25 29 |sitif_%+sitif_%)|
0001cc40 2c 53 49 54 65 70 5f 24 28 73 69 74 69 6e 5f 25 |,SITep_$(sitin_%|
0001cc50 2d 31 29 2c 6c 6f 77 5f 25 28 31 36 29 0d 72 42 |-1),low_%(16).rB|
0001cc60 de de 20 53 49 54 61 5f 24 28 6d 61 78 53 5f 25 |.. SITa_$(maxS_%|
0001cc70 2a 73 69 74 69 70 5f 25 29 2c 53 49 54 61 70 5f |*sitip_%),SITap_|
0001cc80 24 28 73 69 74 69 70 5f 25 2a 33 29 2c 53 49 54 |$(sitip_%*3),SIT|
0001cc90 68 5f 24 28 6d 61 78 53 5f 25 2a 73 69 74 69 70 |h_$(maxS_%*sitip|
0001cca0 5f 25 29 2c 53 49 54 73 5f 24 28 6d 61 78 53 5f |_%),SITs_$(maxS_|
0001ccb0 25 2a 73 69 74 69 70 5f 25 29 2c 53 49 54 6e 5f |%*sitip_%),SITn_|
0001ccc0 25 28 6d 61 78 53 5f 25 2a 73 69 74 69 70 5f 25 |%(maxS_%*sitip_%|
0001ccd0 2b 31 29 2c 54 49 54 65 5f 24 28 6d 61 78 54 5f |+1),TITe_$(maxT_|
0001cce0 25 2a 73 69 74 69 70 5f 25 2a 73 69 74 69 66 5f |%*sitip_%*sitif_|
0001ccf0 25 2b 73 69 74 69 66 5f 25 29 2c 54 49 54 65 5f |%+sitif_%),TITe_|
0001cd00 25 28 6d 61 78 54 5f 25 2a 73 69 74 69 70 5f 25 |%(maxT_%*sitip_%|
0001cd10 29 2c 54 49 54 6e 5f 25 28 6d 61 78 54 5f 25 2a |),TITn_%(maxT_%*|
0001cd20 73 69 74 69 70 5f 25 29 2c 75 64 5f 24 28 35 36 |sitip_%),ud_$(56|
0001cd30 29 2c 75 64 31 5f 24 28 35 36 29 0d 72 47 da de |),ud1_$(56).rG..|
0001cd40 20 54 49 54 65 70 5f 24 28 73 69 74 69 6e 5f 25 | TITep_$(sitin_%|
0001cd50 2d 31 29 2c 54 49 54 61 5f 24 28 6d 61 78 54 5f |-1),TITa_$(maxT_|
0001cd60 25 2a 73 69 74 69 70 5f 25 29 2c 54 49 54 61 70 |%*sitip_%),TITap|
0001cd70 5f 24 28 73 69 74 69 70 5f 25 2a 33 29 2c 54 49 |_$(sitip_%*3),TI|
0001cd80 54 68 5f 24 28 6d 61 78 54 5f 25 2a 73 69 74 69 |Th_$(maxT_%*siti|
0001cd90 70 5f 25 29 2c 54 49 54 73 5f 24 28 6d 61 78 54 |p_%),TITs_$(maxT|
0001cda0 5f 25 2a 73 69 74 69 70 5f 25 29 2c 50 49 54 65 |_%*sitip_%),PITe|
0001cdb0 5f 24 28 6d 61 78 50 5f 25 2a 73 69 74 69 70 5f |_$(maxP_%*sitip_|
0001cdc0 25 2a 73 69 74 69 66 5f 25 2b 73 69 74 69 66 5f |%*sitif_%+sitif_|
0001cdd0 25 29 2c 50 49 54 65 70 5f 24 28 73 69 74 69 6e |%),PITep_$(sitin|
0001cde0 5f 25 2d 31 29 2c 50 49 54 61 5f 24 28 6d 61 78 |_%-1),PITa_$(max|
0001cdf0 50 5f 25 2a 73 69 74 69 70 5f 25 29 2c 50 49 54 |P_%*sitip_%),PIT|
0001ce00 6e 5f 25 28 6d 61 78 50 5f 25 2a 73 69 74 69 70 |n_%(maxP_%*sitip|
0001ce10 5f 25 2b 31 29 0d 72 4c db de 20 50 49 54 61 70 |_%+1).rL.. PITap|
0001ce20 5f 24 28 73 69 74 69 70 5f 25 2a 33 29 2c 50 49 |_$(sitip_%*3),PI|
0001ce30 54 68 5f 24 28 6d 61 78 50 5f 25 2a 73 69 74 69 |Th_$(maxP_%*siti|
0001ce40 70 5f 25 29 2c 50 49 54 73 5f 24 28 6d 61 78 50 |p_%),PITs_$(maxP|
0001ce50 5f 25 2a 73 69 74 69 70 5f 25 29 2c 42 49 54 65 |_%*sitip_%),BITe|
0001ce60 5f 24 28 6d 61 78 42 5f 25 2a 73 69 74 69 70 5f |_$(maxB_%*sitip_|
0001ce70 25 2a 62 69 74 69 66 5f 25 2b 62 69 74 69 66 5f |%*bitif_%+bitif_|
0001ce80 25 29 2c 42 49 54 65 70 5f 24 28 62 69 74 69 6e |%),BITep_$(bitin|
0001ce90 5f 25 2d 31 29 2c 42 49 54 66 5f 24 28 6d 61 78 |_%-1),BITf_$(max|
0001cea0 42 5f 25 2a 73 69 74 69 70 5f 25 29 2c 42 49 54 |B_%*sitip_%),BIT|
0001ceb0 74 5f 24 28 6d 61 78 42 5f 25 2a 73 69 74 69 70 |t_$(maxB_%*sitip|
0001cec0 5f 25 29 2c 42 49 54 61 70 5f 24 28 73 69 74 69 |_%),BITap_$(siti|
0001ced0 70 5f 25 2a 32 29 2c 75 64 5f 25 28 36 29 2c 75 |p_%*2),ud_%(6),u|
0001cee0 64 31 5f 25 28 36 29 2c 70 63 5f 24 28 32 30 29 |d1_%(6),pc_$(20)|
0001cef0 0d 72 51 dc de 20 49 76 61 74 5f 28 32 37 29 2c |.rQ.. Ivat_(27),|
0001cf00 49 76 61 74 5f 25 28 32 37 29 2c 49 74 6f 74 5f |Ivat_%(27),Itot_|
0001cf10 25 28 32 37 29 2c 49 76 61 74 5f 24 28 32 37 29 |%(27),Ivat_$(27)|
0001cf20 2c 74 72 61 6e 73 25 20 31 36 2c 72 65 63 74 25 |,trans% 16,rect%|
0001cf30 20 31 36 2c 70 6c 6f 74 61 74 25 20 38 2c 72 65 | 16,plotat% 8,re|
0001cf40 63 74 69 6e 25 20 31 36 2c 70 6e 61 6d 65 25 20 |ctin% 16,pname% |
0001cf50 32 35 36 2c 66 6f 6e 74 25 20 32 35 36 2c 53 61 |256,font% 256,Sa|
0001cf60 6c 65 64 46 5f 24 28 37 29 2c 50 61 6c 65 64 46 |ledF_$(7),PaledF|
0001cf70 5f 24 28 37 29 2c 42 61 6e 6b 46 5f 24 28 37 29 |_$(7),BankF_$(7)|
0001cf80 2c 73 61 6c 5f 25 28 31 33 2c 32 29 2c 62 61 6c |,sal_%(13,2),bal|
0001cf90 5f 25 28 31 33 2c 32 29 2c 53 61 6c 65 64 52 5f |_%(13,2),SaledR_|
0001cfa0 24 28 32 35 29 2c 53 61 6c 65 64 52 5f 25 28 31 |$(25),SaledR_%(1|
0001cfb0 38 29 2c 50 61 6c 65 64 52 5f 24 28 32 35 29 2c |8),PaledR_$(25),|
0001cfc0 50 61 6c 65 64 52 5f 25 28 31 38 29 0d 72 56 dc |PaledR_%(18).rV.|
0001cfd0 de 20 42 61 6c 65 64 52 5f 24 28 31 35 29 2c 42 |. BaledR_$(15),B|
0001cfe0 61 6c 65 64 52 5f 25 28 31 31 29 2c 56 61 74 52 |aledR_%(11),VatR|
0001cff0 5f 24 28 34 34 29 2c 56 61 74 54 5f 25 28 34 34 |_$(44),VatT_%(44|
0001d000 29 2c 56 61 74 43 5f 24 28 31 30 29 2c 56 61 74 |),VatC_$(10),Vat|
0001d010 43 5f 25 28 31 30 29 2c 56 61 74 56 5f 25 28 31 |C_%(10),VatV_%(1|
0001d020 30 29 2c 56 61 74 53 5f 25 28 31 30 29 2c 54 72 |0),VatS_%(10),Tr|
0001d030 5f 24 28 31 35 29 2c 45 63 5f 24 28 31 32 29 2c |_$(15),Ec_$(12),|
0001d040 45 73 5f 24 28 31 32 29 2c 6d 31 5f 25 31 30 30 |Es_$(12),m1_%100|
0001d050 2c 6d 32 5f 25 31 30 30 2c 6d 33 5f 25 31 30 30 |,m2_%100,m3_%100|
0001d060 2c 74 5f 25 32 35 35 2c 75 5f 25 32 35 35 3a f2 |,t_%255,u_%255:.|
0001d070 61 73 31 5f 3a f2 61 73 32 5f 3a f2 61 73 33 5f |as1_:.as2_:.as3_|
0001d080 3a 53 49 54 6e 31 5f 25 3d 30 3a 50 49 54 6e 31 |:SITn1_%=0:PITn1|
0001d090 5f 25 3d 30 3a 53 49 54 6e 32 5f 25 3d 30 3a 53 |_%=0:SITn2_%=0:S|
0001d0a0 49 54 6e 33 5f 25 3d 30 0d 72 5b e1 56 61 74 54 |ITn3_%=0.r[.VatT|
0001d0b0 5f 25 28 29 3d 2d 31 3a 54 49 54 65 5f 25 28 29 |_%()=-1:TITe_%()|
0001d0c0 3d 2d 31 3a 45 73 5f 24 28 31 30 29 3d 22 31 30 |=-1:Es_$(10)="10|
0001d0d0 22 3a 45 73 5f 24 28 31 31 29 3d 22 31 30 22 3a |":Es_$(11)="10":|
0001d0e0 45 63 5f 24 28 31 30 29 3d 22 31 30 22 3a 45 63 |Ec_$(10)="10":Ec|
0001d0f0 5f 24 28 31 31 29 3d 22 31 30 22 3a 56 61 5f 25 |_$(11)="10":Va_%|
0001d100 28 32 29 3d 30 3a 56 61 5f 25 28 33 29 3d 30 3a |(2)=0:Va_%(3)=0:|
0001d110 56 61 5f 25 28 34 29 3d 30 3a 56 61 5f 25 28 35 |Va_%(4)=0:Va_%(5|
0001d120 29 3d 30 3a 56 61 5f 25 28 36 29 3d 30 3a 56 61 |)=0:Va_%(6)=0:Va|
0001d130 5f 24 28 32 29 3d 22 53 74 61 6e 64 61 72 64 20 |_$(2)="Standard |
0001d140 52 61 74 65 22 3a 56 61 5f 24 28 33 29 3d 22 5a |Rate":Va_$(3)="Z|
0001d150 65 72 6f 20 52 61 74 65 64 22 3a 56 61 5f 24 28 |ero Rated":Va_$(|
0001d160 34 29 3d 22 45 78 65 6d 70 74 22 3a 48 70 5f 24 |4)="Exempt":Hp_$|
0001d170 28 34 34 29 3d 56 41 54 5f 24 3a 48 70 5f 24 28 |(44)=VAT_$:Hp_$(|
0001d180 34 35 29 3d 56 41 54 5f 24 0d 72 60 c4 6e 6d 65 |45)=VAT_$.r`.nme|
0001d190 5f 24 3d 22 4e 6f 74 20 65 6e 6f 75 67 68 20 6d |_$="Not enough m|
0001d1a0 65 6d 6f 72 79 20 74 6f 20 6c 6f 61 64 20 66 69 |emory to load fi|
0001d1b0 6c 65 20 3a 20 53 65 65 20 27 54 61 73 6b 20 4d |le : See 'Task M|
0001d1c0 61 6e 61 67 65 72 27 20 69 6e 20 79 6f 75 72 20 |anager' in your |
0001d1d0 63 6f 6d 70 75 74 65 72 20 75 73 65 72 20 67 75 |computer user gu|
0001d1e0 69 64 65 20 74 6f 20 74 72 79 20 61 6e 64 20 66 |ide to try and f|
0001d1f0 72 65 65 20 73 6f 6d 65 20 65 78 74 72 61 20 6d |ree some extra m|
0001d200 65 6d 6f 72 79 20 3a 20 48 49 4e 54 20 74 72 79 |emory : HINT try|
0001d210 20 4d 6f 64 65 20 4f 20 66 69 72 73 74 2c 20 74 | Mode O first, t|
0001d220 68 65 6e 20 63 68 61 6e 67 65 20 74 6f 20 79 6f |hen change to yo|
0001d230 75 72 20 6e 6f 72 6d 61 6c 20 6d 6f 64 65 20 69 |ur normal mode i|
0001d240 66 20 73 75 63 63 65 73 73 66 75 6c 22 0d 72 62 |f successful".rb|
0001d250 86 70 72 65 66 73 5f 25 3d 2d 31 3a 70 72 65 66 |.prefs_%=-1:pref|
0001d260 73 6e 5f 25 3d 31 3a 70 72 65 66 6f 73 5f 25 3d |sn_%=1:prefos_%=|
0001d270 31 3a 70 72 65 66 73 6f 6e 5f 25 3d 2d 31 3a 48 |1:prefson_%=-1:H|
0001d280 70 70 5f 24 28 34 34 29 3d 56 41 54 5f 24 3a 48 |pp_$(44)=VAT_$:H|
0001d290 70 70 5f 24 28 34 35 29 3d 56 41 54 5f 24 3a 70 |pp_$(45)=VAT_$:p|
0001d2a0 72 65 66 6e 5f 25 3d 31 3a 70 72 65 66 79 65 5f |refn_%=1:prefye_|
0001d2b0 25 3d 2d 31 3a 70 72 65 66 73 31 5f 25 3d 2d 31 |%=-1:prefs1_%=-1|
0001d2c0 3a 70 72 65 66 73 6e 31 5f 25 3d 31 3a 6c 6d 5f |:prefsn1_%=1:lm_|
0001d2d0 25 3d 36 0d 72 65 66 56 61 74 43 5f 24 28 29 3d |%=6.refVatC_$()=|
0001d2e0 22 22 2c 22 33 22 2c 22 34 22 2c 22 31 22 2c 22 |"","3","4","1","|
0001d2f0 22 2c 22 22 2c 22 32 31 30 22 2c 22 32 39 37 22 |","","210","297"|
0001d300 2c 22 31 30 22 2c 22 31 30 22 2c 22 52 65 74 75 |,"10","10","Retu|
0001d310 72 6e 22 3a 56 61 74 43 5f 25 28 29 3d 30 2c 31 |rn":VatC_%()=0,1|
0001d320 2c 2d 31 2c 31 2c 2d 31 2c 2d 31 2c 31 2c 2d 31 |,-1,1,-1,-1,1,-1|
0001d330 2c 30 3a 74 6d 5f 25 3d 36 0d 72 6a 7f 54 72 5f |,0:tm_%=6.rj.Tr_|
0001d340 5f 24 28 31 29 3d 22 22 3a 53 49 54 65 70 5f 24 |_$(1)="":SITep_$|
0001d350 28 29 3d 22 7c 22 3a 53 49 54 61 70 5f 24 28 29 |()="|":SITap_$()|
0001d360 3d 22 7c 22 3a 50 49 54 65 70 5f 24 28 29 3d 22 |="|":PITep_$()="|
0001d370 7c 22 3a 50 49 54 61 70 5f 24 28 29 3d 22 7c 22 ||":PITap_$()="|"|
0001d380 3a 42 49 54 65 70 5f 24 28 29 3d 22 7c 22 3a 42 |:BITep_$()="|":B|
0001d390 49 54 61 70 5f 24 28 29 3d 22 7c 22 3a 54 49 54 |ITap_$()="|":TIT|
0001d3a0 65 70 5f 24 28 29 3d 22 7c 22 3a 54 49 54 61 70 |ep_$()="|":TITap|
0001d3b0 5f 24 28 29 3d 22 7c 22 0d 72 6f 3f 57 61 74 43 |_$()="|".ro?WatC|
0001d3c0 5f 25 28 29 3d 30 2c 30 2c 30 2c 31 2c 2d 31 2c |_%()=0,0,0,1,-1,|
0001d3d0 2d 31 2c 31 2c 2d 31 3a 6d 61 78 69 6e 76 6c 5f |-1,1,-1:maxinvl_|
0001d3e0 25 3d 30 3a 69 6e 76 4c 5f 24 28 30 29 3d 22 43 |%=0:invL_$(0)="C|
0001d3f0 75 72 72 65 6e 74 22 0d 72 74 cb 70 63 5f 24 28 |urrent".rt.pc_$(|
0001d400 29 3d 22 32 37 2c 38 33 2c 31 22 2c 22 32 37 2c |)="27,83,1","27,|
0001d410 38 30 2c 31 35 22 2c 22 32 37 2c 38 30 2c 32 37 |80,15","27,80,27|
0001d420 2c 38 37 2c 31 22 2c 22 32 37 2c 36 39 22 2c 22 |,87,1","27,69","|
0001d430 32 37 2c 35 32 22 2c 22 32 37 2c 34 35 2c 31 22 |27,52","27,45,1"|
0001d440 2c 22 31 36 33 22 2c 22 32 37 2c 37 37 22 2c 22 |,"163","27,77","|
0001d450 32 37 2c 37 34 2c 31 22 2c 22 32 37 2c 35 31 2c |27,74,1","27,51,|
0001d460 31 22 2c 22 32 37 2c 37 39 2c 32 37 2c 35 37 22 |1","27,79,27,57"|
0001d470 2c 22 31 32 2c 32 37 2c 36 34 22 2c 22 32 37 2c |,"12,27,64","27,|
0001d480 38 34 22 2c 22 31 38 2c 32 37 2c 37 37 22 2c 22 |84","18,27,77","|
0001d490 32 37 2c 38 37 2c 30 2c 32 37 2c 37 37 22 2c 22 |27,87,0,27,77","|
0001d4a0 32 37 2c 37 30 22 2c 22 32 37 2c 35 33 22 2c 22 |27,70","27,53","|
0001d4b0 32 37 2c 34 35 2c 30 22 2c 22 33 35 22 2c 22 39 |27,45,0","35","9|
0001d4c0 36 22 0d 72 79 30 70 72 65 66 73 32 5f 25 3d 2d |6".ry0prefs2_%=-|
0001d4d0 31 3a 70 72 65 66 73 6e 32 5f 25 3d 31 3a 4f 72 |1:prefsn2_%=1:Or|
0001d4e0 64 65 72 46 55 5f 25 3d 30 3a 43 75 5f 24 3d 22 |derFU_%=0:Cu_$="|
0001d4f0 a3 22 0d 72 d3 4e 56 61 74 52 5f 24 28 30 29 3d |.".r.NVatR_$(0)=|
0001d500 22 42 4f 58 20 31 3a 56 41 54 20 64 75 65 20 6f |"BOX 1:VAT due o|
0001d510 6e 20 53 41 4c 45 53 22 3a 56 61 74 52 5f 24 28 |n SALES":VatR_$(|
0001d520 32 29 3d 22 41 42 43 22 3a 56 61 74 54 5f 25 28 |2)="ABC":VatT_%(|
0001d530 30 29 3d 31 3a 56 61 74 54 5f 25 28 33 29 3d 31 |0)=1:VatT_%(3)=1|
0001d540 0d 72 d8 53 56 61 74 52 5f 24 28 34 29 3d 22 42 |.r.SVatR_$(4)="B|
0001d550 4f 58 20 32 3a 56 41 54 20 64 75 65 20 6f 6e 20 |OX 2:VAT due on |
0001d560 41 63 71 75 69 73 69 74 69 6f 6e 73 22 3a 56 61 |Acquisitions":Va|
0001d570 74 52 5f 24 28 36 29 3d 22 45 22 3a 56 61 74 54 |tR_$(6)="E":VatT|
0001d580 5f 25 28 35 29 3d 31 3a 56 61 74 54 5f 25 28 37 |_%(5)=1:VatT_%(7|
0001d590 29 3d 31 0d 72 dd 33 56 61 74 52 5f 24 28 38 29 |)=1.r.3VatR_$(8)|
0001d5a0 3d 22 42 4f 58 20 33 3a 54 6f 74 61 6c 20 56 41 |="BOX 3:Total VA|
0001d5b0 54 20 44 75 65 22 3a 56 61 74 52 5f 24 28 39 29 |T Due":VatR_$(9)|
0001d5c0 3d 22 41 2b 42 22 0d 72 e2 5d 56 61 74 52 5f 24 |="A+B".r.]VatR_$|
0001d5d0 28 31 32 29 3d 22 42 4f 58 20 34 3a 56 41 54 20 |(12)="BOX 4:VAT |
0001d5e0 72 65 63 6c 61 69 6d 65 64 20 6f 6e 20 50 55 52 |reclaimed on PUR|
0001d5f0 43 48 41 53 45 53 22 3a 56 61 74 52 5f 24 28 31 |CHASES":VatR_$(1|
0001d600 34 29 3d 22 41 42 43 45 22 3a 56 61 74 54 5f 25 |4)="ABCE":VatT_%|
0001d610 28 31 33 29 3d 31 3a 56 61 74 54 5f 25 28 31 35 |(13)=1:VatT_%(15|
0001d620 29 3d 31 0d 72 e7 41 56 61 74 52 5f 24 28 31 36 |)=1.r.AVatR_$(16|
0001d630 29 3d 22 42 4f 58 20 35 3a 4e 45 54 20 56 41 54 |)="BOX 5:NET VAT|
0001d640 20 70 61 79 61 62 6c 65 2f 72 65 70 61 79 61 62 | payable/repayab|
0001d650 6c 65 22 3a 56 61 74 52 5f 24 28 31 37 29 3d 22 |le":VatR_$(17)="|
0001d660 43 2d 44 22 0d 72 ec 57 56 61 74 52 5f 24 28 32 |C-D".r.WVatR_$(2|
0001d670 34 29 3d 22 42 4f 58 20 36 3a 54 6f 74 61 6c 20 |4)="BOX 6:Total |
0001d680 76 61 6c 75 65 20 6f 66 20 53 41 4c 45 53 22 3a |value of SALES":|
0001d690 56 61 74 52 5f 24 28 32 36 29 3d 22 41 42 43 44 |VatR_$(26)="ABCD|
0001d6a0 22 3a 56 61 74 54 5f 25 28 32 34 29 3d 31 3a 56 |":VatT_%(24)=1:V|
0001d6b0 61 74 54 5f 25 28 32 36 29 3d 31 0d 72 f1 5b 56 |atT_%(26)=1.r.[V|
0001d6c0 61 74 52 5f 24 28 32 38 29 3d 22 42 4f 58 20 37 |atR_$(28)="BOX 7|
0001d6d0 3a 54 6f 74 61 6c 20 76 61 6c 75 65 20 6f 66 20 |:Total value of |
0001d6e0 50 55 52 43 48 41 53 45 53 22 3a 56 61 74 52 5f |PURCHASES":VatR_|
0001d6f0 24 28 33 30 29 3d 22 41 42 43 45 22 3a 56 61 74 |$(30)="ABCE":Vat|
0001d700 54 5f 25 28 32 39 29 3d 31 3a 56 61 74 54 5f 25 |T_%(29)=1:VatT_%|
0001d710 28 33 30 29 3d 31 0d 72 f6 5b 56 61 74 52 5f 24 |(30)=1.r.[VatR_$|
0001d720 28 33 36 29 3d 22 42 4f 58 20 38 3a 54 6f 74 61 |(36)="BOX 8:Tota|
0001d730 6c 20 76 61 6c 75 65 20 6f 66 20 53 41 4c 45 53 |l value of SALES|
0001d740 20 74 6f 20 45 45 43 22 3a 56 61 74 52 5f 24 28 | to EEC":VatR_$(|
0001d750 33 38 29 3d 22 44 22 3a 56 61 74 54 5f 25 28 33 |38)="D":VatT_%(3|
0001d760 36 29 3d 31 3a 56 61 74 54 5f 25 28 33 38 29 3d |6)=1:VatT_%(38)=|
0001d770 31 0d 72 fb 5f 56 61 74 52 5f 24 28 34 30 29 3d |1.r._VatR_$(40)=|
0001d780 22 42 4f 58 20 39 3a 54 6f 74 61 6c 20 76 61 6c |"BOX 9:Total val|
0001d790 75 65 20 6f 66 20 50 55 52 43 48 41 53 45 53 20 |ue of PURCHASES |
0001d7a0 74 6f 20 45 45 43 22 3a 56 61 74 52 5f 24 28 34 |to EEC":VatR_$(4|
0001d7b0 32 29 3d 22 45 22 3a 56 61 74 54 5f 25 28 34 31 |2)="E":VatT_%(41|
0001d7c0 29 3d 31 3a 56 61 74 54 5f 25 28 34 32 29 3d 31 |)=1:VatT_%(42)=1|
0001d7d0 0d 73 00 52 70 72 65 66 79 65 5f 25 3d 31 3a 70 |.s.Rprefye_%=1:p|
0001d7e0 72 65 66 6e 5f 25 3d 2d 31 3a 56 61 5f 25 28 32 |refn_%=-1:Va_%(2|
0001d7f0 29 3d 31 37 35 30 3a 56 61 5f 24 28 35 29 3d 22 |)=1750:Va_$(5)="|
0001d800 45 45 43 20 53 61 6c 65 73 22 3a 56 61 5f 24 28 |EEC Sales":Va_$(|
0001d810 36 29 3d 22 45 45 43 20 50 75 72 63 68 61 73 65 |6)="EEC Purchase|
0001d820 73 22 0d 73 b4 96 76 61 74 63 6f 64 65 77 5f 24 |s".s..vatcodew_$|
0001d830 3d 56 41 54 5f 24 2b 22 20 43 6f 64 65 73 22 3a |=VAT_$+" Codes":|
0001d840 76 61 74 70 5f 24 3d 56 41 54 5f 24 2b 22 20 52 |vatp_$=VAT_$+" R|
0001d850 65 74 75 72 6e 22 3a 75 73 6e 61 6d 65 5f 24 3d |eturn":usname_$=|
0001d860 56 41 54 5f 24 2b 22 20 4e 75 6d 62 65 72 3a 22 |VAT_$+" Number:"|
0001d870 3a 73 61 6c 6e 61 6d 65 5f 24 3d 22 43 64 3a 20 |:salname_$="Cd: |
0001d880 20 22 2b 56 41 54 5f 24 3a 70 61 6c 6e 61 6d 65 | "+VAT_$:palname|
0001d890 5f 24 3d 22 43 64 3a 20 20 22 2b 56 41 54 5f 24 |_$="Cd: "+VAT_$|
0001d8a0 3a 74 61 6c 6e 61 6d 65 5f 24 3d 22 43 64 3a 20 |:talname_$="Cd: |
0001d8b0 20 22 2b 56 41 54 5f 24 0d 73 b9 db 6d 6f 64 5f | "+VAT_$.s..mod_|
0001d8c0 24 3d 22 53 79 73 74 65 6d 20 4d 6f 64 75 6c 65 |$="System Module|
0001d8d0 73 2f 46 6f 6e 74 73 20 6f 72 20 50 72 69 6e 74 |s/Fonts or Print|
0001d8e0 65 72 20 64 72 69 76 65 72 20 6e 6f 74 20 66 6f |er driver not fo|
0001d8f0 75 6e 64 2c 20 70 6c 65 61 73 65 20 6c 6f 63 61 |und, please loca|
0001d900 74 65 20 79 6f 75 72 20 53 79 73 74 65 6d 20 6f |te your System o|
0001d910 72 20 46 6f 6e 74 73 20 64 69 73 63 20 61 6e 64 |r Fonts disc and|
0001d920 20 64 6f 75 62 6c 65 20 63 6c 69 63 6b 20 6f 6e | double click on|
0001d930 20 65 69 74 68 65 72 20 21 53 79 73 74 65 6d 2c | either !System,|
0001d940 21 46 6f 6e 74 73 20 6f 72 20 61 20 50 72 69 6e |!Fonts or a Prin|
0001d950 74 65 72 20 44 72 69 76 65 72 2e 20 50 6c 65 61 |ter Driver. Plea|
0001d960 73 65 20 73 65 65 20 74 68 65 20 6d 61 6e 75 61 |se see the manua|
0001d970 6c 20 66 6f 72 20 69 6e 66 6f 20 6f 6e 20 61 62 |l for info on ab|
0001d980 6f 76 65 22 3a 64 62 5f 24 3d 22 22 3a 64 62 5f |ove":db_$="":db_|
0001d990 25 3d 30 0d 73 be 96 62 61 6e 6b 70 25 3d 30 3a |%=0.s..bankp%=0:|
0001d9a0 58 61 34 5f 25 3d 31 3a 58 75 73 5f 25 3d 2d 31 |Xa4_%=1:Xus_%=-1|
0001d9b0 3a 58 63 75 73 74 5f 25 3d 2d 31 3a 58 70 61 67 |:Xcust_%=-1:Xpag|
0001d9c0 78 5f 25 3d 32 31 30 3a 58 70 61 67 79 5f 25 3d |x_%=210:Xpagy_%=|
0001d9d0 32 39 37 3a 58 66 6f 6e 5f 78 25 3d 31 32 3a 58 |297:Xfon_x%=12:X|
0001d9e0 66 6f 6e 5f 79 25 3d 31 32 3a 58 6e 61 6d 5f 25 |fon_y%=12:Xnam_%|
0001d9f0 3d 30 3a 58 6e 61 6d 5f 24 3d 22 54 6f 74 61 6c |=0:Xnam_$="Total|
0001da00 73 22 3a 58 61 73 70 61 63 5f 25 3d 31 3a 58 61 |s":Xaspac_%=1:Xa|
0001da10 74 61 62 5f 25 3d 2d 31 3a 51 5f 24 3d 22 52 65 |tab_%=-1:Q_$="Re|
0001da20 63 6f 6e 63 69 6c 65 64 22 0d 73 c3 9d 53 61 6c |conciled".s..Sal|
0001da30 65 64 52 5f 25 28 29 3d 31 3a 50 61 6c 65 64 52 |edR_%()=1:PaledR|
0001da40 5f 25 28 29 3d 31 3a 63 68 75 73 25 3d 30 3a 53 |_%()=1:chus%=0:S|
0001da50 61 6c 65 64 52 5f 25 28 31 33 29 3d 2d 31 3a 53 |aledR_%(13)=-1:S|
0001da60 61 6c 65 64 52 5f 25 28 31 34 29 3d 2d 31 3a 53 |aledR_%(14)=-1:S|
0001da70 61 6c 65 64 52 5f 25 28 31 35 29 3d 30 3a 53 61 |aledR_%(15)=0:Sa|
0001da80 6c 65 64 52 5f 25 28 31 37 29 3d 2d 31 3a 53 61 |ledR_%(17)=-1:Sa|
0001da90 6c 65 64 52 5f 24 28 32 35 29 3d 22 53 61 6c 65 |ledR_$(25)="Sale|
0001daa0 73 22 3a 53 61 6c 65 64 52 5f 24 28 32 33 29 3d |s":SaledR_$(23)=|
0001dab0 22 31 30 22 3a 53 61 6c 65 64 52 5f 24 28 32 34 |"10":SaledR_$(24|
0001dac0 29 3d 22 31 30 22 0d 73 c8 7f 50 61 6c 65 64 52 |)="10".s..PaledR|
0001dad0 5f 25 28 31 33 29 3d 2d 31 3a 50 61 6c 65 64 52 |_%(13)=-1:PaledR|
0001dae0 5f 25 28 31 34 29 3d 2d 31 3a 50 61 6c 65 64 52 |_%(14)=-1:PaledR|
0001daf0 5f 25 28 31 35 29 3d 30 3a 50 61 6c 65 64 52 5f |_%(15)=0:PaledR_|
0001db00 25 28 31 37 29 3d 2d 31 3a 50 61 6c 65 64 52 5f |%(17)=-1:PaledR_|
0001db10 24 28 32 35 29 3d 22 50 75 72 63 68 61 73 65 73 |$(25)="Purchases|
0001db20 22 3a 50 61 6c 65 64 52 5f 24 28 32 33 29 3d 22 |":PaledR_$(23)="|
0001db30 31 30 22 3a 50 61 6c 65 64 52 5f 24 28 32 34 29 |10":PaledR_$(24)|
0001db40 3d 22 31 30 22 0d 73 cd 92 42 61 6c 65 64 52 5f |="10".s..BaledR_|
0001db50 25 28 29 3d 31 3a 63 68 75 73 31 25 3d 30 3a 42 |%()=1:chus1%=0:B|
0001db60 61 6c 65 64 52 5f 25 28 37 29 3d 2d 31 3a 42 61 |aledR_%(7)=-1:Ba|
0001db70 6c 65 64 52 5f 25 28 38 29 3d 2d 31 3a 42 61 6c |ledR_%(8)=-1:Bal|
0001db80 65 64 52 5f 25 28 39 29 3d 30 3a 42 61 6c 65 64 |edR_%(9)=0:Baled|
0001db90 52 5f 25 28 31 31 29 3d 2d 31 3a 42 61 6c 65 64 |R_%(11)=-1:Baled|
0001dba0 52 5f 24 28 31 35 29 3d 22 53 74 61 74 65 6d 65 |R_$(15)="Stateme|
0001dbb0 6e 74 22 3a 42 61 6c 65 64 52 5f 24 28 31 33 29 |nt":BaledR_$(13)|
0001dbc0 3d 22 31 30 22 3a 42 61 6c 65 64 52 5f 24 28 31 |="10":BaledR_$(1|
0001dbd0 34 29 3d 22 31 30 22 0d 73 d2 a1 66 69 65 6c 64 |4)="10".s..field|
0001dbe0 5f 24 3d 22 46 69 65 6c 64 20 6f 75 74 70 75 74 |_$="Field output|
0001dbf0 20 6f 72 64 65 72 20 6e 6f 74 20 73 70 65 63 69 | order not speci|
0001dc00 66 69 65 64 2c 20 69 65 2e 20 43 6f 6e 74 61 63 |fied, ie. Contac|
0001dc10 74 3a 31 2e 35 20 4e 61 6d 65 3a 32 20 41 64 64 |t:1.5 Name:2 Add|
0001dc20 72 65 73 73 3a 33 20 50 6f 73 74 20 43 6f 64 65 |ress:3 Post Code|
0001dc30 3a 34 20 65 74 63 2e 20 50 6c 65 61 73 65 20 65 |:4 etc. Please e|
0001dc40 6e 74 65 72 22 3a 69 6e 76 31 31 5f 25 28 29 3d |nter":inv11_%()=|
0001dc50 31 3a 69 6e 76 32 32 5f 25 28 29 3d 31 3a 69 6e |1:inv22_%()=1:in|
0001dc60 76 33 33 5f 25 28 29 3d 31 3a 6f 6c 64 64 61 74 |v33_%()=1:olddat|
0001dc70 61 5f 25 28 30 29 3d 31 0d 73 d7 b1 53 73 75 62 |a_%(0)=1.s..Ssub|
0001dc80 48 5f 25 3d 30 3a 50 73 75 62 48 5f 25 3d 30 3a |H_%=0:PsubH_%=0:|
0001dc90 49 54 73 73 5f 24 28 29 3d 22 7c 22 3a 49 54 73 |ITss_$()="|":ITs|
0001dca0 73 73 5f 24 28 29 3d 22 7c 22 3a 70 72 65 66 76 |ss_$()="|":prefv|
0001dcb0 61 74 5f 24 3d 22 45 53 44 3a 20 22 2b 56 41 54 |at_$="ESD: "+VAT|
0001dcc0 5f 24 2b 22 20 44 69 73 63 6f 75 6e 74 65 64 20 |_$+" Discounted |
0001dcd0 20 20 20 59 65 73 3a 22 3a 6f 53 73 75 62 48 5f | Yes:":oSsubH_|
0001dce0 25 3d 30 3a 6f 50 73 75 62 48 5f 25 3d 30 3a 57 |%=0:oPsubH_%=0:W|
0001dcf0 61 74 43 5f 24 28 29 3d 22 22 2c 22 22 2c 22 22 |atC_$()="","",""|
0001dd00 2c 22 22 2c 22 22 2c 22 22 2c 22 32 31 30 22 2c |,"","","","210",|
0001dd10 22 32 39 37 22 2c 22 31 30 22 2c 22 31 30 22 2c |"297","10","10",|
0001dd20 22 50 26 4c 2f 42 61 6c 22 0d 73 dc b9 4f 72 64 |"P&L/Bal".s..Ord|
0001dd30 65 72 43 5f 25 21 30 3d 30 3a 76 61 74 68 65 61 |erC_%!0=0:vathea|
0001dd40 64 5f 24 3d 22 4b 65 79 3a 20 53 3d 53 61 6c 65 |d_$="Key: S=Sale|
0001dd50 73 20 3a 20 50 3d 50 75 72 63 68 61 73 65 73 20 |s : P=Purchases |
0001dd60 3a 20 41 3d 54 6f 74 61 6c 20 6c 65 73 73 20 22 |: A=Total less "|
0001dd70 2b 56 41 54 5f 24 2b 22 20 3a 20 22 2b c0 56 41 |+VAT_$+" : "+.VA|
0001dd80 54 5f 24 2c 31 29 2b 22 3d 22 2b 56 41 54 5f 24 |T_$,1)+"="+VAT_$|
0001dd90 3a 76 61 74 68 65 61 64 31 5f 24 3d 22 43 64 20 |:vathead1_$="Cd |
0001dda0 44 65 73 63 72 69 70 74 69 6f 6e 20 20 20 20 20 |Description |
0001ddb0 20 20 20 20 20 20 20 53 75 6d 20 20 43 6f 64 65 | Sum Code|
0001ddc0 73 20 20 20 20 20 20 20 54 4f 54 41 4c 20 53 20 |s TOTAL S |
0001ddd0 20 50 20 20 41 20 20 22 2b c0 56 41 54 5f 24 2c | P A "+.VAT_$,|
0001dde0 31 29 0d 73 e1 ac 53 74 61 74 31 5f 24 3d 22 22 |1).s..Stat1_$=""|
0001ddf0 3a 53 74 61 74 32 5f 24 3d 22 22 3a 53 74 61 74 |:Stat2_$="":Stat|
0001de00 33 5f 24 3d 22 22 3a 53 42 65 73 74 50 5f 25 3d |3_$="":SBestP_%=|
0001de10 31 3a 53 42 65 73 74 46 5f 25 3d 31 3a 53 74 49 |1:SBestF_%=1:StI|
0001de20 5f 25 3d 73 74 69 5f 25 3a 46 73 49 5f 25 3d 66 |_%=sti_%:FsI_%=f|
0001de30 73 69 5f 25 3a 53 75 49 5f 25 3d 73 75 69 5f 25 |si_%:SuI_%=sui_%|
0001de40 3a 43 53 75 49 5f 25 3d 43 73 75 69 5f 25 3a 53 |:CSuI_%=Csui_%:S|
0001de50 6c 49 5f 25 3d 73 6c 69 5f 25 3a 79 6f 75 5f 24 |lI_%=sli_%:you_$|
0001de60 3d 22 22 3a 70 61 73 73 6d 31 5f 24 3d 22 45 6e |="":passm1_$="En|
0001de70 74 65 72 20 50 61 73 73 77 6f 72 64 20 61 6e 64 |ter Password and|
0001de80 20 70 72 65 73 73 20 52 45 54 55 52 4e 22 0d 73 | press RETURN".s|
0001de90 e6 7d 70 61 73 73 31 5f 24 3d 22 22 3a 70 61 73 |.}pass1_$="":pas|
0001dea0 73 32 5f 24 3d 22 22 3a 70 61 73 73 33 5f 24 3d |s2_$="":pass3_$=|
0001deb0 22 22 3a 70 61 73 73 34 5f 24 3d 22 22 3a 70 61 |"":pass4_$="":pa|
0001dec0 73 73 35 5f 24 3d 22 22 3a 70 61 73 73 36 5f 24 |ss5_$="":pass6_$|
0001ded0 3d 22 22 3a 70 61 73 73 37 5f 24 3d 22 22 3a 70 |="":pass7_$="":p|
0001dee0 61 73 73 38 5f 24 3d 22 22 3a 70 61 73 73 39 5f |ass8_$="":pass9_|
0001def0 24 3d 22 22 3a 70 61 73 73 41 5f 24 3d 22 22 3a |$="":passA_$="":|
0001df00 63 68 63 75 6e 61 6d 5f 25 3d 30 0d 73 eb e0 53 |chcunam_%=0.s..S|
0001df10 66 69 6e 64 6e 75 5f 24 3d 22 22 3a 53 75 66 69 |findnu_$="":Sufi|
0001df20 6e 64 6e 75 5f 24 3d 22 22 3a 43 53 75 66 69 6e |ndnu_$="":CSufin|
0001df30 64 6e 75 5f 24 3d 22 22 3a 53 74 77 69 6e 64 25 |dnu_$="":Stwind%|
0001df40 3d 30 3a 63 68 73 74 6e 61 6d 5f 25 3d 30 3a 46 |=0:chstnam_%=0:F|
0001df50 69 6e 64 53 74 25 3d 30 3a 46 69 6e 64 53 75 25 |indSt%=0:FindSu%|
0001df60 3d 30 3a 43 46 69 6e 64 53 75 25 3d 30 3a 53 75 |=0:CFindSu%=0:Su|
0001df70 77 69 6e 64 25 3d 30 3a 63 68 73 75 6e 61 6d 5f |wind%=0:chsunam_|
0001df80 25 3d 30 3a 43 53 75 77 69 6e 64 25 3d 30 3a 56 |%=0:CSuwind%=0:V|
0001df90 61 6c 53 74 25 3d 30 3a 4c 61 62 53 74 25 3d 30 |alSt%=0:LabSt%=0|
0001dfa0 3a 4c 61 62 53 75 25 3d 30 3a 43 4c 61 62 53 75 |:LabSu%=0:CLabSu|
0001dfb0 25 3d 30 3a 43 53 4c 73 75 25 3d 30 3a 4c 69 73 |%=0:CSLsu%=0:Lis|
0001dfc0 74 53 74 25 3d 30 3a 4c 69 73 74 53 6c 25 3d 30 |tSt%=0:ListSl%=0|
0001dfd0 3a 53 4c 73 75 25 3d 30 3a 53 6c 77 69 6e 64 25 |:SLsu%=0:Slwind%|
0001dfe0 3d 30 3a 55 77 69 6e 64 25 3d 30 0d 73 f0 b5 43 |=0:Uwind%=0.s..C|
0001dff0 77 69 6e 64 25 3d 30 3a 4f 69 6e 64 25 3d 30 3a |wind%=0:Oind%=0:|
0001e000 4f 61 6c 6c 25 3d 30 3a 73 61 76 65 25 3d 30 3a |Oall%=0:save%=0:|
0001e010 73 61 76 25 3d 30 3a 43 73 61 76 25 3d 30 3a 49 |sav%=0:Csav%=0:I|
0001e020 6e 64 25 3d 30 3a 49 6e 64 73 5f 25 3d 2d 31 3a |nd%=0:Inds_%=-1:|
0001e030 62 65 73 74 25 3d 30 3a 76 69 65 77 25 3d 30 3a |best%=0:view%=0:|
0001e040 56 69 65 77 73 5f 25 3d 2d 31 3a 56 69 65 77 70 |Views_%=-1:Viewp|
0001e050 5f 25 3d 2d 31 3a 76 61 74 25 3d 30 3a 70 61 73 |_%=-1:vat%=0:pas|
0001e060 73 25 3d 30 3a 65 64 69 74 25 3d 30 3a 69 6e 76 |s%=0:edit%=0:inv|
0001e070 77 25 3d 30 3a 49 4f 6e 75 6d 25 3d 30 3a 73 74 |w%=0:IOnum%=0:st|
0001e080 61 6e 64 25 3d 30 3a 62 61 6e 6b 25 3d 30 3a 62 |and%=0:bank%=0:b|
0001e090 61 6e 6b 31 25 3d 30 3a 62 61 6e 6b 32 25 3d 30 |ank1%=0:bank2%=0|
0001e0a0 0d 73 f5 c4 73 61 6c 65 64 70 5f 25 3d 31 3a 70 |.s..saledp_%=1:p|
0001e0b0 61 6c 65 64 70 5f 25 3d 31 3a 62 61 6e 6b 70 5f |aledp_%=1:bankp_|
0001e0c0 25 3d 31 3a 73 61 6c 65 64 25 3d 30 3a 73 61 6c |%=1:saled%=0:sal|
0001e0d0 65 64 31 25 3d 30 3a 73 61 6c 65 64 32 25 3d 30 |ed1%=0:saled2%=0|
0001e0e0 3a 70 61 6c 65 64 25 3d 30 3a 70 61 6c 65 64 31 |:paled%=0:paled1|
0001e0f0 25 3d 30 3a 70 61 6c 65 64 32 25 3d 30 3a 76 61 |%=0:paled2%=0:va|
0001e100 74 70 25 3d 30 3a 76 61 74 70 63 25 3d 30 3a 73 |tp%=0:vatpc%=0:s|
0001e110 74 61 74 25 3d 30 3a 73 63 72 65 64 25 3d 30 3a |tat%=0:scred%=0:|
0001e120 63 63 72 65 64 25 3d 30 3a 6f 73 63 72 65 64 5f |ccred%=0:oscred_|
0001e130 25 3d 30 3a 6f 63 63 72 65 64 5f 25 3d 30 3a 49 |%=0:occred_%=0:I|
0001e140 54 61 63 63 5f 24 3d 22 4c 22 3a 49 54 68 65 61 |Tacc_$="L":IThea|
0001e150 64 5f 24 3d 22 41 41 22 3a 49 54 63 6f 6d 6d 5f |d_$="AA":ITcomm_|
0001e160 24 3d 22 22 0d 73 fa c7 53 41 61 63 63 5f 24 3d |$="".s..SAacc_$=|
0001e170 22 4c 22 3a 53 41 68 65 61 64 5f 24 3d 22 42 41 |"L":SAhead_$="BA|
0001e180 22 3a 53 41 72 65 66 5f 24 3d 22 22 3a 53 41 63 |":SAref_$="":SAc|
0001e190 6f 6d 6d 5f 24 3d 22 22 3a 53 41 63 75 73 74 5f |omm_$="":SAcust_|
0001e1a0 24 3d 22 22 3a 66 6c 61 67 32 31 5f 25 3d 25 31 |$="":flag21_%=%1|
0001e1b0 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 |0000000000000000|
0001e1c0 30 30 30 30 30 3a 66 6c 61 67 32 32 5f 25 3d 25 |00000:flag22_%=%|
0001e1d0 31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 |1000000000000000|
0001e1e0 30 30 30 30 30 30 30 3a 49 54 65 73 5f 25 3d 30 |0000000:ITes_%=0|
0001e1f0 3a 49 54 63 6f 70 5f 24 3d 22 32 22 3a 49 54 64 |:ITcop_$="2":ITd|
0001e200 61 5f 24 3d 22 22 3a 49 54 6e 75 5f 24 3d 22 22 |a_$="":ITnu_$=""|
0001e210 3a 49 54 73 75 70 6e 75 6d 5f 25 3d 30 3a 49 54 |:ITsupnum_%=0:IT|
0001e220 73 75 70 6e 75 6d 4e 5f 25 3d 30 0d 73 ff 7d 49 |supnumN_%=0.s.}I|
0001e230 54 64 69 73 5f 24 3d 22 44 69 73 63 25 22 3a 49 |Tdis_$="Disc%":I|
0001e240 54 72 65 5f 24 3d 22 53 74 6f 63 6b 20 4e 75 6d |Tre_$="Stock Num|
0001e250 22 3a 49 54 70 72 69 63 5f 24 3d 22 52 65 74 2e |":ITpric_$="Ret.|
0001e260 45 78 63 22 3a 49 54 6e 75 6d 62 5f 24 3d 22 22 |Exc":ITnumb_$=""|
0001e270 3a 41 75 74 6f 73 61 76 5f 25 3d 30 3a 6d 69 6e |:Autosav_%=0:min|
0001e280 5f 25 3d 2d 31 3a 61 75 74 6f 5f 24 3d 22 22 3a |_%=-1:auto_$="":|
0001e290 61 75 74 6f 45 5f 24 3d 22 22 3a 49 4f 72 64 65 |autoE_$="":IOrde|
0001e2a0 72 63 68 25 28 29 3d 31 0d 74 04 56 e3 74 65 6d |rch%()=1.t.V.tem|
0001e2b0 70 5f 25 3d 30 b8 20 49 4f 69 63 6f 6e 73 25 3a |p_%=0. IOicons%:|
0001e2c0 49 4f 69 63 6f 6e 25 28 74 65 6d 70 5f 25 29 3d |IOicon%(temp_%)=|
0001e2d0 74 65 6d 70 5f 25 3a ed 3a e3 5a 25 3d 30 b8 43 |temp_%:.:.Z%=0.C|
0001e2e0 6d 61 78 73 75 70 70 5f 25 3a 43 53 75 4e 75 6d |maxsupp_%:CSuNum|
0001e2f0 62 65 72 5f 25 28 5a 25 29 3d 5a 25 3a ed 0d 74 |ber_%(Z%)=Z%:..t|
0001e300 09 21 43 53 75 70 70 6c 69 65 72 73 5f 24 28 29 |.!CSuppliers_$()|
0001e310 3d 22 22 3a 49 73 75 70 6e 75 6d 5f 25 3d 30 0d |="":Isupnum_%=0.|
0001e320 74 0e 76 46 53 74 6f 63 6b 4e 75 5f 24 3d 22 22 |t.vFStockNu_$=""|
0001e330 3a 46 41 72 74 69 73 5f 24 3d 22 22 3a 46 53 75 |:FArtis_$="":FSu|
0001e340 70 70 6c 69 65 5f 24 3d 22 22 3a 46 53 75 70 70 |pplie_$="":FSupp|
0001e350 52 65 5f 24 3d 22 22 3a 46 55 70 54 6f 41 5f 24 |Re_$="":FUpToA_$|
0001e360 3d 22 22 3a 46 41 62 6f 76 65 41 5f 24 3d 22 22 |="":FAboveA_$=""|
0001e370 3a 6d 61 74 63 68 5f 24 3d 22 20 41 6e 79 20 4d |:match_$=" Any M|
0001e380 61 74 63 68 20 22 3a 43 53 53 75 70 70 6c 69 65 |atch ":CSSupplie|
0001e390 5f 24 3d 22 22 0d 74 13 75 4c 73 74 6f 63 6b 6e |_$="".t.uLstockn|
0001e3a0 75 5f 25 3d 31 3a 4c 64 65 73 63 72 69 70 5f 25 |u_%=1:Ldescrip_%|
0001e3b0 3d 31 3a 4c 73 75 70 70 72 65 5f 25 3d 31 3a 4c |=1:Lsuppre_%=1:L|
0001e3c0 73 75 70 5f 25 3d 31 3a 4c 73 74 6f 63 5f 25 3d |sup_%=1:Lstoc_%=|
0001e3d0 31 3a 4c 70 72 69 63 5f 25 3d 31 3a 4c 61 34 5f |1:Lpric_%=1:La4_|
0001e3e0 25 3d 31 3a 4c 75 73 5f 25 3d 2d 31 3a 4c 63 75 |%=1:Lus_%=-1:Lcu|
0001e3f0 73 74 5f 25 3d 2d 31 3a 4c 6a 6c 65 5f 25 3d 2d |st_%=-1:Ljle_%=-|
0001e400 31 3a 4c 6a 63 65 5f 25 3d 31 0d 74 18 2c 4c 64 |1:Ljce_%=1.t.,Ld|
0001e410 6f 77 5f 25 3d 38 3a 4c 61 63 72 6f 73 5f 25 3d |ow_%=8:Lacros_%=|
0001e420 33 3a 4c 6e 75 6d 62 65 5f 25 3d 31 3a 4c 73 74 |3:Lnumbe_%=1:Lst|
0001e430 61 72 5f 25 3d 31 0d 74 1d 31 4c 70 61 67 78 5f |ar_%=1.t.1Lpagx_|
0001e440 25 3d 32 31 30 3a 4c 70 61 67 79 5f 25 3d 32 39 |%=210:Lpagy_%=29|
0001e450 37 3a 4c 66 6f 6e 5f 78 25 3d 31 32 3a 4c 66 6f |7:Lfon_x%=12:Lfo|
0001e460 6e 5f 79 25 3d 31 32 0d 74 22 c9 53 63 6f 6e 74 |n_y%=12.t".Scont|
0001e470 61 63 5f 25 3d 31 3a 53 6e 61 6d 5f 25 3d 31 3a |ac_%=1:Snam_%=1:|
0001e480 53 61 64 64 72 65 73 5f 25 3d 31 3a 53 61 34 5f |Saddres_%=1:Sa4_|
0001e490 25 3d 31 3a 53 75 73 5f 25 3d 2d 31 3a 53 63 75 |%=1:Sus_%=-1:Scu|
0001e4a0 73 74 5f 25 3d 2d 31 3a 53 64 6f 77 5f 25 3d 38 |st_%=-1:Sdow_%=8|
0001e4b0 3a 53 61 63 72 6f 73 5f 25 3d 33 3a 53 6e 75 6d |:Sacros_%=3:Snum|
0001e4c0 62 65 5f 25 3d 31 3a 53 73 74 61 72 5f 25 3d 31 |be_%=1:Sstar_%=1|
0001e4d0 3a 53 70 61 67 78 5f 25 3d 32 31 30 3a 53 70 61 |:Spagx_%=210:Spa|
0001e4e0 67 79 5f 25 3d 32 39 37 3a 53 66 6f 6e 5f 78 25 |gy_%=297:Sfon_x%|
0001e4f0 3d 31 30 3a 53 66 6f 6e 5f 79 25 3d 31 30 3a 53 |=10:Sfon_y%=10:S|
0001e500 75 70 46 72 6f 5f 25 3d 31 3a 53 75 70 54 5f 25 |upFro_%=1:SupT_%|
0001e510 3d 6d 61 78 73 75 70 70 5f 25 3a 53 73 43 6f 6d |=maxsupp_%:SsCom|
0001e520 5f 24 3d 22 22 3a 53 73 50 6f 73 5f 24 3d 22 22 |_$="":SsPos_$=""|
0001e530 0d 74 27 da 43 53 63 6f 6e 74 61 63 5f 25 3d 31 |.t'.CScontac_%=1|
0001e540 3a 43 53 6e 61 6d 5f 25 3d 31 3a 43 53 61 64 64 |:CSnam_%=1:CSadd|
0001e550 72 65 73 5f 25 3d 31 3a 43 53 61 34 5f 25 3d 31 |res_%=1:CSa4_%=1|
0001e560 3a 43 53 75 73 5f 25 3d 2d 31 3a 43 53 63 75 73 |:CSus_%=-1:CScus|
0001e570 74 5f 25 3d 2d 31 3a 43 53 64 6f 77 5f 25 3d 38 |t_%=-1:CSdow_%=8|
0001e580 3a 43 53 61 63 72 6f 73 5f 25 3d 33 3a 43 53 6e |:CSacros_%=3:CSn|
0001e590 75 6d 62 65 5f 25 3d 31 3a 43 53 73 74 61 72 5f |umbe_%=1:CSstar_|
0001e5a0 25 3d 31 3a 43 53 70 61 67 78 5f 25 3d 32 31 30 |%=1:CSpagx_%=210|
0001e5b0 3a 43 53 70 61 67 79 5f 25 3d 32 39 37 3a 43 53 |:CSpagy_%=297:CS|
0001e5c0 66 6f 6e 5f 78 25 3d 31 30 3a 43 53 66 6f 6e 5f |fon_x%=10:CSfon_|
0001e5d0 79 25 3d 31 30 3a 43 53 75 70 46 72 6f 5f 25 3d |y%=10:CSupFro_%=|
0001e5e0 31 3a 43 53 75 70 54 5f 25 3d 43 6d 61 78 73 75 |1:CSupT_%=Cmaxsu|
0001e5f0 70 70 5f 25 3a 43 73 43 6f 6d 5f 24 3d 22 22 3a |pp_%:CsCom_$="":|
0001e600 43 73 50 6f 73 5f 24 3d 22 22 0d 74 2c c7 4c 69 |CsPos_$="".t,.Li|
0001e610 73 74 52 65 63 4e 75 5f 25 3d 31 3a 4c 69 73 74 |stRecNu_%=1:List|
0001e620 53 74 4e 75 5f 25 3d 31 3a 4c 69 73 74 44 65 73 |StNu_%=1:ListDes|
0001e630 63 5f 25 3d 31 3a 4c 69 73 74 53 75 70 5f 25 3d |c_%=1:ListSup_%=|
0001e640 31 3a 4c 69 73 74 52 65 5f 25 3d 31 3a 4c 69 73 |1:ListRe_%=1:Lis|
0001e650 74 43 6f 73 5f 25 3d 31 3a 4c 69 73 74 52 65 74 |tCos_%=1:ListRet|
0001e660 61 69 5f 25 3d 31 3a 4c 69 73 74 53 74 6f 63 5f |ai_%=1:ListStoc_|
0001e670 25 3d 31 3a 4c 69 73 74 4d 69 5f 25 3d 31 3a 4c |%=1:ListMi_%=1:L|
0001e680 69 73 74 51 75 61 5f 25 3d 31 3a 4c 69 73 74 53 |istQua_%=1:ListS|
0001e690 6f 6c 5f 25 3d 31 3a 4c 69 73 74 4d 6f 5f 25 3d |ol_%=1:ListMo_%=|
0001e6a0 31 3a 4c 69 73 74 50 72 31 5f 25 3d 31 3a 4c 69 |1:ListPr1_%=1:Li|
0001e6b0 73 74 50 72 32 5f 25 3d 31 3a 4c 69 73 74 4d 61 |stPr2_%=1:ListMa|
0001e6c0 72 5f 25 3d 31 3a 4c 69 73 74 44 61 74 5f 25 3d |r_%=1:ListDat_%=|
0001e6d0 31 0d 74 31 9f 4c 69 73 74 61 34 5f 25 3d 31 3a |1.t1.Lista4_%=1:|
0001e6e0 4c 69 73 74 75 73 5f 25 3d 2d 31 3a 4c 69 73 74 |Listus_%=-1:List|
0001e6f0 63 75 73 74 5f 25 3d 2d 31 3a 4c 69 73 74 70 61 |cust_%=-1:Listpa|
0001e700 67 78 5f 25 3d 32 31 30 3a 4c 69 73 74 70 61 67 |gx_%=210:Listpag|
0001e710 79 5f 25 3d 32 39 37 3a 4c 69 73 74 66 6f 6e 5f |y_%=297:Listfon_|
0001e720 78 25 3d 31 32 3a 4c 69 73 74 66 6f 6e 5f 79 25 |x%=12:Listfon_y%|
0001e730 3d 31 32 3a 4c 69 73 74 66 72 6f 5f 25 3d 31 3a |=12:Listfro_%=1:|
0001e740 4c 69 73 74 74 5f 25 3d 4d 5f 25 3a 4c 69 73 74 |Listt_%=M_%:List|
0001e750 6c 65 66 5f 25 3d 34 3a 4c 69 73 74 74 6f 70 5f |lef_%=4:Listtop_|
0001e760 25 3d 34 3a 4c 69 73 74 73 70 61 63 5f 25 3d 34 |%=4:Listspac_%=4|
0001e770 0d 74 36 69 44 61 34 5f 25 3d 31 3a 44 75 73 5f |.t6iDa4_%=1:Dus_|
0001e780 25 3d 2d 31 3a 44 63 75 73 74 5f 25 3d 2d 31 3a |%=-1:Dcust_%=-1:|
0001e790 44 70 61 67 78 5f 25 3d 32 31 30 3a 44 70 61 67 |Dpagx_%=210:Dpag|
0001e7a0 79 5f 25 3d 32 39 37 3a 44 66 6f 6e 5f 78 25 3d |y_%=297:Dfon_x%=|
0001e7b0 31 32 3a 44 66 6f 6e 5f 79 25 3d 31 32 3a 44 6c |12:Dfon_y%=12:Dl|
0001e7c0 65 66 5f 25 3d 34 3a 44 74 6f 70 5f 25 3d 34 3a |ef_%=4:Dtop_%=4:|
0001e7d0 44 73 70 61 63 5f 25 3d 34 0d 74 3b b3 53 4c 52 |Dspac_%=4.t;.SLR|
0001e7e0 65 63 4e 75 5f 25 3d 31 3a 53 4c 73 75 70 70 6c |ecNu_%=1:SLsuppl|
0001e7f0 69 65 5f 25 3d 31 3a 53 4c 61 64 31 5f 25 3d 31 |ie_%=1:SLad1_%=1|
0001e800 3a 53 4c 61 64 32 5f 25 3d 31 3a 53 4c 61 64 33 |:SLad2_%=1:SLad3|
0001e810 5f 25 3d 31 3a 53 4c 61 64 34 5f 25 3d 31 3a 53 |_%=1:SLad4_%=1:S|
0001e820 4c 70 6f 73 5f 25 3d 31 3a 53 4c 63 6f 6e 5f 25 |Lpos_%=1:SLcon_%|
0001e830 3d 31 3a 53 4c 74 65 6c 5f 25 3d 31 3a 53 4c 66 |=1:SLtel_%=1:SLf|
0001e840 61 5f 25 3d 31 3a 53 4c 63 6f 6d 31 5f 25 3d 31 |a_%=1:SLcom1_%=1|
0001e850 3a 53 4c 63 6f 6d 32 5f 25 3d 31 3a 53 4c 73 75 |:SLcom2_%=1:SLsu|
0001e860 70 70 72 65 5f 25 3d 31 3a 53 4c 79 6f 75 72 72 |ppre_%=1:SLyourr|
0001e870 65 5f 25 3d 31 3a 53 4c 6f 72 64 70 72 5f 25 3d |e_%=1:SLordpr_%=|
0001e880 31 3a 53 4c 64 65 62 5f 25 3d 2d 31 0d 74 40 a0 |1:SLdeb_%=-1.t@.|
0001e890 53 4c 61 34 5f 25 3d 31 3a 53 4c 75 73 5f 25 3d |SLa4_%=1:SLus_%=|
0001e8a0 2d 31 3a 53 4c 63 75 73 74 5f 25 3d 2d 31 3a 53 |-1:SLcust_%=-1:S|
0001e8b0 4c 70 61 67 78 5f 25 3d 32 31 30 3a 53 4c 70 61 |Lpagx_%=210:SLpa|
0001e8c0 67 79 5f 25 3d 32 39 37 3a 53 4c 66 6f 6e 5f 78 |gy_%=297:SLfon_x|
0001e8d0 25 3d 31 32 3a 53 4c 66 6f 6e 5f 79 25 3d 31 32 |%=12:SLfon_y%=12|
0001e8e0 3a 53 4c 66 72 6f 5f 25 3d 31 3a 53 4c 74 5f 25 |:SLfro_%=1:SLt_%|
0001e8f0 3d 6d 61 78 73 75 70 70 5f 25 3a 53 4c 6c 65 66 |=maxsupp_%:SLlef|
0001e900 5f 25 3d 34 3a 53 4c 74 6f 70 5f 25 3d 34 3a 53 |_%=4:SLtop_%=4:S|
0001e910 4c 73 70 61 63 5f 25 3d 34 3a 53 6a 6c 65 5f 25 |Lspac_%=4:Sjle_%|
0001e920 3d 31 3a 53 6a 63 65 5f 25 3d 2d 31 0d 74 45 c3 |=1:Sjce_%=-1.tE.|
0001e930 43 53 4c 52 65 63 4e 75 5f 25 3d 31 3a 43 53 4c |CSLRecNu_%=1:CSL|
0001e940 73 75 70 70 6c 69 65 5f 25 3d 31 3a 43 53 4c 61 |supplie_%=1:CSLa|
0001e950 64 31 5f 25 3d 31 3a 43 53 4c 61 64 32 5f 25 3d |d1_%=1:CSLad2_%=|
0001e960 31 3a 43 53 4c 61 64 33 5f 25 3d 31 3a 43 53 4c |1:CSLad3_%=1:CSL|
0001e970 61 64 34 5f 25 3d 31 3a 43 53 4c 70 6f 73 5f 25 |ad4_%=1:CSLpos_%|
0001e980 3d 31 3a 43 53 4c 63 6f 6e 5f 25 3d 31 3a 43 53 |=1:CSLcon_%=1:CS|
0001e990 4c 74 65 6c 5f 25 3d 31 3a 43 53 4c 66 61 5f 25 |Ltel_%=1:CSLfa_%|
0001e9a0 3d 31 3a 43 53 4c 63 6f 6d 31 5f 25 3d 31 3a 43 |=1:CSLcom1_%=1:C|
0001e9b0 53 4c 63 6f 6d 32 5f 25 3d 31 3a 43 53 4c 73 75 |SLcom2_%=1:CSLsu|
0001e9c0 70 70 72 65 5f 25 3d 31 3a 43 53 4c 79 6f 75 72 |ppre_%=1:CSLyour|
0001e9d0 72 65 5f 25 3d 31 3a 43 53 4c 6f 72 64 70 72 5f |re_%=1:CSLordpr_|
0001e9e0 25 3d 31 3a 43 53 4c 64 65 62 5f 25 3d 2d 31 0d |%=1:CSLdeb_%=-1.|
0001e9f0 74 4a af 43 53 4c 61 34 5f 25 3d 31 3a 43 53 4c |tJ.CSLa4_%=1:CSL|
0001ea00 75 73 5f 25 3d 2d 31 3a 43 53 4c 63 75 73 74 5f |us_%=-1:CSLcust_|
0001ea10 25 3d 2d 31 3a 43 53 4c 70 61 67 78 5f 25 3d 32 |%=-1:CSLpagx_%=2|
0001ea20 31 30 3a 43 53 4c 70 61 67 79 5f 25 3d 32 39 37 |10:CSLpagy_%=297|
0001ea30 3a 43 53 4c 66 6f 6e 5f 78 25 3d 31 32 3a 43 53 |:CSLfon_x%=12:CS|
0001ea40 4c 66 6f 6e 5f 79 25 3d 31 32 3a 43 53 4c 66 72 |Lfon_y%=12:CSLfr|
0001ea50 6f 5f 25 3d 31 3a 43 53 4c 74 5f 25 3d 43 6d 61 |o_%=1:CSLt_%=Cma|
0001ea60 78 73 75 70 70 5f 25 3a 43 53 4c 6c 65 66 5f 25 |xsupp_%:CSLlef_%|
0001ea70 3d 34 3a 43 53 4c 74 6f 70 5f 25 3d 34 3a 43 53 |=4:CSLtop_%=4:CS|
0001ea80 4c 73 70 61 63 5f 25 3d 34 3a 43 53 6a 6c 65 5f |Lspac_%=4:CSjle_|
0001ea90 25 3d 31 3a 43 53 6a 63 65 5f 25 3d 2d 31 0d 74 |%=1:CSjce_%=-1.t|
0001eaa0 4f 37 4f 61 34 5f 25 3d 31 3a 4f 75 73 5f 25 3d |O7Oa4_%=1:Ous_%=|
0001eab0 2d 31 3a 4f 63 75 73 74 5f 25 3d 2d 31 3a 4f 70 |-1:Ocust_%=-1:Op|
0001eac0 61 67 78 5f 25 3d 32 31 30 3a 4f 70 61 67 79 5f |agx_%=210:Opagy_|
0001ead0 25 3d 32 39 37 0d 74 54 3c 49 4f 61 34 5f 25 3d |%=297.tT<IOa4_%=|
0001eae0 31 3a 49 4f 75 73 5f 25 3d 2d 31 3a 49 4f 63 75 |1:IOus_%=-1:IOcu|
0001eaf0 73 74 5f 25 3d 2d 31 3a 49 4f 70 61 67 78 5f 25 |st_%=-1:IOpagx_%|
0001eb00 3d 32 31 30 3a 49 4f 70 61 67 79 5f 25 3d 32 39 |=210:IOpagy_%=29|
0001eb10 37 0d 74 59 41 53 49 4f 61 34 5f 25 3d 31 3a 53 |7.tYASIOa4_%=1:S|
0001eb20 49 4f 75 73 5f 25 3d 2d 31 3a 53 49 4f 63 75 73 |IOus_%=-1:SIOcus|
0001eb30 74 5f 25 3d 2d 31 3a 53 49 4f 70 61 67 78 5f 25 |t_%=-1:SIOpagx_%|
0001eb40 3d 32 31 30 3a 53 49 4f 70 61 67 79 5f 25 3d 32 |=210:SIOpagy_%=2|
0001eb50 39 37 0d 74 5e a8 55 6e 61 6d 5f 24 3d 22 22 3a |97.t^.Unam_$="":|
0001eb60 55 61 64 31 5f 24 3d 22 22 3a 55 61 64 32 5f 24 |Uad1_$="":Uad2_$|
0001eb70 3d 22 22 3a 55 61 64 33 5f 24 3d 22 22 3a 55 61 |="":Uad3_$="":Ua|
0001eb80 64 34 5f 24 3d 22 22 3a 55 61 64 35 5f 24 3d 22 |d4_$="":Uad5_$="|
0001eb90 22 3a 55 70 6f 73 5f 24 3d 22 22 3a 55 74 65 5f |":Upos_$="":Ute_|
0001eba0 24 3d 22 54 65 6c 3a 22 3a 55 66 61 5f 24 3d 22 |$="Tel:":Ufa_$="|
0001ebb0 46 61 78 3a 22 3a 55 76 61 5f 24 3d 22 22 3a 54 |Fax:":Uva_$="":T|
0001ebc0 6e 61 6d 5f 24 3d 22 3c 55 6e 74 69 74 6c 65 64 |nam_$="<Untitled|
0001ebd0 3e 22 3a 43 61 6c 31 5f 24 3d 22 22 3a 43 61 6c |>":Cal1_$="":Cal|
0001ebe0 32 5f 24 3d 22 22 3a 43 61 6c 33 5f 24 3d 22 22 |2_$="":Cal3_$=""|
0001ebf0 3a 43 61 6c 34 5f 24 3d 22 22 0d 74 63 a5 43 61 |:Cal4_$="".tc.Ca|
0001ec00 6c 54 6f 5f 25 3d 30 3a 43 61 6c 74 31 5f 25 3d |lTo_%=0:Calt1_%=|
0001ec10 30 3a 43 61 6c 74 32 5f 25 3d 30 3a 43 61 6c 74 |0:Calt2_%=0:Calt|
0001ec20 33 5f 25 3d 30 3a 43 61 6c 74 34 5f 25 3d 30 3a |3_%=0:Calt4_%=0:|
0001ec30 66 6f 6e 74 6e 75 6d 5f 25 3d 30 3a 6a 5f 66 25 |fontnum_%=0:j_f%|
0001ec40 3d 30 3a 6a 5f 66 31 25 3d 30 3a 6a 5f 66 32 25 |=0:j_f1%=0:j_f2%|
0001ec50 3d 30 3a 6a 5f 66 33 25 3d 30 3a 6a 5f 66 34 25 |=0:j_f3%=0:j_f4%|
0001ec60 3d 30 3a 66 68 5f 25 3d 30 3a 6a 5f 66 35 25 3d |=0:fh_%=0:j_f5%=|
0001ec70 30 3a 6a 5f 66 36 25 3d 30 3a f2 49 75 70 4f 75 |0:j_f6%=0:.IupOu|
0001ec80 73 65 72 5f 3a 4f 63 68 5f 25 3d 31 3a 49 4f 63 |ser_:Och_%=1:IOc|
0001ec90 68 5f 25 3d 31 3a 53 49 4f 63 68 5f 25 3d 31 0d |h_%=1:SIOch_%=1.|
0001eca0 74 68 17 49 4f 72 64 65 72 6d 65 5f 24 28 29 3d |th.IOrderme_$()=|
0001ecb0 22 54 65 78 74 22 0d 74 72 a3 49 4f 72 64 65 72 |"Text".tr.IOrder|
0001ecc0 6d 65 5f 24 28 29 3d 22 54 65 78 74 22 2c 22 54 |me_$()="Text","T|
0001ecd0 65 78 74 22 2c 22 54 65 78 74 22 2c 22 54 65 78 |ext","Text","Tex|
0001ece0 74 22 2c 22 43 75 73 74 6f 6d 41 64 64 22 2c 22 |t","CustomAdd","|
0001ecf0 59 6f 75 72 20 4e 61 6d 65 22 2c 22 59 6f 75 72 |Your Name","Your|
0001ed00 20 41 64 64 20 31 22 2c 22 59 6f 75 72 20 41 64 | Add 1","Your Ad|
0001ed10 64 20 32 22 2c 22 59 6f 75 72 20 41 64 64 20 33 |d 2","Your Add 3|
0001ed20 22 2c 22 59 6f 75 72 20 41 64 64 20 34 22 2c 22 |","Your Add 4","|
0001ed30 59 6f 75 72 20 41 64 64 20 35 22 2c 22 50 6f 73 |Your Add 5","Pos|
0001ed40 74 20 43 6f 64 65 22 2c 22 54 65 6c 65 70 68 6f |t Code","Telepho|
0001ed50 6e 65 22 2c 22 46 61 78 22 0d 74 7c 1f 49 4f 72 |ne","Fax".t|.IOr|
0001ed60 64 65 72 6d 65 5f 24 28 31 37 29 3d 22 43 75 73 |derme_$(17)="Cus|
0001ed70 52 65 66 44 61 74 61 22 0d 74 81 57 49 4f 72 64 |RefData".t.WIOrd|
0001ed80 65 72 6d 65 5f 24 28 31 38 29 3d 22 59 6f 75 72 |erme_$(18)="Your|
0001ed90 52 65 66 44 61 74 61 22 3a 49 4f 72 64 65 72 6d |RefData":IOrderm|
0001eda0 65 5f 24 28 31 39 29 3d 22 49 6e 76 4e 75 6d 44 |e_$(19)="InvNumD|
0001edb0 61 74 61 22 3a 49 4f 72 64 65 72 6d 65 5f 24 28 |ata":IOrderme_$(|
0001edc0 32 31 29 3d 22 44 61 74 65 20 44 61 74 61 22 0d |21)="Date Data".|
0001edd0 74 8b d2 49 4f 72 64 65 72 6d 65 5f 24 28 32 32 |t..IOrderme_$(22|
0001ede0 29 3d 22 54 65 78 74 22 3a 49 4f 72 64 65 72 6d |)="Text":IOrderm|
0001edf0 65 5f 24 28 32 33 29 3d 22 53 75 70 53 74 6f 63 |e_$(23)="SupStoc|
0001ee00 6b 4e 75 6d 22 3a 49 4f 72 64 65 72 6d 65 5f 24 |kNum":IOrderme_$|
0001ee10 28 32 34 29 3d 22 44 65 73 63 72 69 70 74 69 6f |(24)="Descriptio|
0001ee20 6e 22 3a 49 4f 72 64 65 72 6d 65 5f 24 28 32 35 |n":IOrderme_$(25|
0001ee30 29 3d 22 51 75 61 6e 74 69 74 79 22 3a 49 4f 72 |)="Quantity":IOr|
0001ee40 64 65 72 6d 65 5f 24 28 32 36 29 3d 22 50 72 69 |derme_$(26)="Pri|
0001ee50 63 65 22 3a 49 4f 72 64 65 72 6d 65 5f 24 28 32 |ce":IOrderme_$(2|
0001ee60 37 29 3d 22 53 75 62 20 54 6f 74 61 6c 22 3a 49 |7)="Sub Total":I|
0001ee70 4f 72 64 65 72 6d 65 5f 24 28 33 30 29 3d 22 54 |Orderme_$(30)="T|
0001ee80 65 78 74 22 3a 49 4f 72 64 65 72 6d 65 5f 24 28 |ext":IOrderme_$(|
0001ee90 33 31 29 3d 22 53 2f 54 6f 74 61 6c 44 61 74 61 |31)="S/TotalData|
0001eea0 22 0d 74 95 1e 49 4f 72 64 65 72 6d 65 5f 24 28 |".t..IOrderme_$(|
0001eeb0 34 31 29 3d 22 50 61 67 65 20 44 61 74 61 22 0d |41)="Page Data".|
0001eec0 74 9a b3 49 4f 72 64 65 72 6d 65 5f 24 28 34 32 |t..IOrderme_$(42|
0001eed0 29 3d 22 45 6e 74 72 79 44 69 73 63 6e 74 22 3a |)="EntryDiscnt":|
0001eee0 49 4f 72 64 65 72 6d 65 5f 24 28 34 33 29 3d 22 |IOrderme_$(43)="|
0001eef0 45 6e 74 72 79 22 2b 56 41 54 5f 24 3a 49 4f 72 |Entry"+VAT_$:IOr|
0001ef00 64 65 72 6d 65 5f 24 28 34 39 29 3d 56 41 54 5f |derme_$(49)=VAT_|
0001ef10 24 2b 22 52 61 74 65 44 61 74 61 22 3a 49 4f 72 |$+"RateData":IOr|
0001ef20 64 65 72 6d 65 5f 24 28 35 30 29 3d 22 56 61 6c |derme_$(50)="Val|
0001ef30 75 65 44 61 74 61 22 3a 49 4f 72 64 65 72 6d 65 |ueData":IOrderme|
0001ef40 5f 24 28 35 31 29 3d 56 41 54 5f 24 2b 22 54 6f |_$(51)=VAT_$+"To|
0001ef50 74 44 61 74 61 22 3a 49 4f 72 64 65 72 6d 65 5f |tData":IOrderme_|
0001ef60 24 28 35 32 29 3d 22 44 69 73 63 6e 74 44 61 74 |$(52)="DiscntDat|
0001ef70 61 22 0d 74 9f c6 49 4f 72 64 65 72 6d 65 5f 24 |a".t..IOrderme_$|
0001ef80 28 34 38 29 3d 22 50 61 69 64 4d 65 73 73 61 67 |(48)="PaidMessag|
0001ef90 65 22 3a 49 4f 72 64 65 72 6d 65 5f 24 28 35 33 |e":IOrderme_$(53|
0001efa0 29 3d 22 44 69 73 63 54 6f 74 44 61 74 61 22 3a |)="DiscTotData":|
0001efb0 49 4f 72 64 65 72 6d 65 5f 24 28 35 34 29 3d 56 |IOrderme_$(54)=V|
0001efc0 41 54 5f 24 2b 22 54 6f 74 44 61 74 61 22 3a 49 |AT_$+"TotData":I|
0001efd0 4f 72 64 65 72 6d 65 5f 24 28 35 35 29 3d 22 4e |Orderme_$(55)="N|
0001efe0 65 74 54 6f 74 44 61 74 61 22 3a 49 4f 72 64 65 |etTotData":IOrde|
0001eff0 72 6d 65 5f 24 28 35 36 29 3d 56 41 54 5f 24 2b |rme_$(56)=VAT_$+|
0001f000 22 4e 75 6d 44 61 74 61 22 3a 49 4f 72 64 65 72 |"NumData":IOrder|
0001f010 6d 65 5f 24 28 35 37 29 3d 22 44 65 6c 69 76 65 |me_$(57)="Delive|
0001f020 72 79 41 64 64 22 3a 49 4f 72 64 65 72 53 5f 24 |ryAdd":IOrderS_$|
0001f030 28 31 39 29 3d 22 31 22 0d 74 a4 3c 49 4f 72 64 |(19)="1".t.<IOrd|
0001f040 65 72 66 78 5f 25 28 29 3d 31 32 3a 49 4f 72 64 |erfx_%()=12:IOrd|
0001f050 65 72 66 79 5f 25 28 29 3d 31 32 3a e3 5a 25 3d |erfy_%()=12:.Z%=|
0001f060 32 b8 33 3a 49 4f 6a 75 73 74 5f 25 28 5a 25 29 |2.3:IOjust_%(Z%)|
0001f070 3d 31 3a ed 0d 74 a9 44 e3 5a 25 3d 35 b8 31 39 |=1:..t.D.Z%=5.19|
0001f080 3a 49 4f 72 64 65 72 6d 78 5f 28 5a 25 29 3d 32 |:IOrdermx_(Z%)=2|
0001f090 30 30 3a 49 4f 72 64 65 72 6d 79 5f 28 5a 25 29 |00:IOrdermy_(Z%)|
0001f0a0 3d 5a 25 2a 34 2e 35 3a 49 4f 6a 75 73 74 5f 25 |=Z%*4.5:IOjust_%|
0001f0b0 28 5a 25 29 3d 32 3a ed 0d 74 ae 2d 49 4f 6a 75 |(Z%)=2:..t.-IOju|
0001f0c0 73 74 5f 25 28 32 32 29 3d 32 3a e3 5a 25 3d 32 |st_%(22)=2:.Z%=2|
0001f0d0 35 b8 32 39 3a 49 4f 6a 75 73 74 5f 25 28 5a 25 |5.29:IOjust_%(Z%|
0001f0e0 29 3d 32 3a ed 0d 74 b3 25 49 4f 72 64 65 72 6d |)=2:..t.%IOrderm|
0001f0f0 78 5f 28 35 37 29 3d 38 30 3a 49 4f 72 64 65 72 |x_(57)=80:IOrder|
0001f100 6d 79 5f 28 35 37 29 3d 39 30 0d 74 b8 5a 49 4f |my_(57)=90.t.ZIO|
0001f110 6a 75 73 74 5f 25 28 32 35 29 3d 30 3a 49 4f 6a |just_%(25)=0:IOj|
0001f120 75 73 74 5f 25 28 33 31 29 3d 32 3a 49 4f 6a 75 |ust_%(31)=2:IOju|
0001f130 73 74 5f 25 28 33 32 29 3d 32 3a e3 5a 25 3d 35 |st_%(32)=2:.Z%=5|
0001f140 30 b8 35 35 3a 49 4f 6a 75 73 74 5f 25 28 5a 25 |0.55:IOjust_%(Z%|
0001f150 29 3d 32 3a ed 3a 49 4f 6a 75 73 74 5f 25 28 34 |)=2:.:IOjust_%(4|
0001f160 31 29 3d 32 0d 74 bd c7 66 6f 6e 6c 69 6e 6b 5f |1)=2.t..fonlink_|
0001f170 25 3d 30 3a 4f 62 6f 72 64 65 72 25 3d 31 3a 4f |%=0:Oborder%=1:O|
0001f180 72 75 6c 65 72 25 3d 31 3a 4f 64 73 69 7a 65 5f |ruler%=1:Odsize_|
0001f190 25 3d 31 30 30 3a 4f 64 67 61 70 5f 25 3d 32 3a |%=100:Odgap_%=2:|
0001f1a0 49 4f 62 6f 72 64 65 72 25 3d 31 3a 49 4f 72 75 |IOborder%=1:IOru|
0001f1b0 6c 65 72 25 3d 31 3a 49 4f 64 73 69 7a 65 5f 25 |ler%=1:IOdsize_%|
0001f1c0 3d 31 30 30 3a 49 4f 64 67 61 70 5f 25 3d 32 3a |=100:IOdgap_%=2:|
0001f1d0 53 49 4f 62 6f 72 64 65 72 25 3d 31 3a 53 49 4f |SIOborder%=1:SIO|
0001f1e0 72 75 6c 65 72 25 3d 31 3a 53 49 4f 64 73 69 7a |ruler%=1:SIOdsiz|
0001f1f0 65 5f 25 3d 31 30 30 3a 53 49 4f 64 67 61 70 5f |e_%=100:SIOdgap_|
0001f200 25 3d 32 3a 4f 69 73 75 70 70 6c 69 65 5f 24 3d |%=2:Oisupplie_$=|
0001f210 22 22 3a 4f 69 6e 75 6d 62 65 5f 25 3d 31 3a 4f |"":Oinumbe_%=1:O|
0001f220 69 73 75 70 6e 75 6d 5f 25 3d 30 0d 74 c2 d4 4f |isupnum_%=0.t..O|
0001f230 61 6e 75 6d 62 65 5f 25 3d 31 3a 4f 61 66 72 6f |anumbe_%=1:Oafro|
0001f240 5f 25 3d 31 3a 4f 61 74 5f 25 3d 6d 61 78 73 75 |_%=1:Oat_%=maxsu|
0001f250 70 70 5f 25 3a 42 65 73 74 46 5f 25 3d 31 3a 42 |pp_%:BestF_%=1:B|
0001f260 65 73 74 50 5f 25 3d 31 3a 42 65 73 74 4c 5f 24 |estP_%=1:BestL_$|
0001f270 3d 22 4f 6e 63 65 20 65 76 65 72 79 20 6d 6f 6e |="Once every mon|
0001f280 74 68 22 3a 42 65 73 74 44 5f 24 3d 22 22 3a 70 |th":BestD_$="":p|
0001f290 72 65 66 25 3d 30 3a 53 61 73 61 76 5f 25 3d 2d |ref%=0:Sasav_%=-|
0001f2a0 31 3a 73 61 76 65 73 61 6c 5f 25 3d 2d 31 3a 41 |1:savesal_%=-1:A|
0001f2b0 75 74 6f 77 61 72 5f 25 3d 2d 31 3a 53 61 6c 65 |utowar_%=-1:Sale|
0001f2c0 77 61 72 5f 25 3d 2d 31 3a 45 78 69 74 77 61 72 |war_%=-1:Exitwar|
0001f2d0 5f 25 3d 2d 31 3a 53 61 76 65 61 5f 24 3d 22 41 |_%=-1:Savea_$="A|
0001f2e0 63 63 6e 74 44 61 74 61 22 3a 53 61 76 65 61 42 |ccntData":SaveaB|
0001f2f0 5f 24 3d 22 42 61 63 6b 75 70 44 61 74 61 22 0d |_$="BackupData".|
0001f300 74 c7 c8 6f 66 6f 6e 74 70 61 74 68 5f 24 3d 22 |t..ofontpath_$="|
0001f310 22 3a 49 6e 64 65 5f 24 3d 22 22 3a 6d 61 78 66 |":Inde_$="":maxf|
0001f320 6f 6e 74 5f 25 3d 30 3a 6d 6f 64 65 78 25 3d 31 |ont_%=0:modex%=1|
0001f330 3a 6d 6f 64 65 79 25 3d 32 3a 74 6f 64 61 79 5f |:modey%=2:today_|
0001f340 24 3d a4 63 68 64 61 74 65 5f 28 22 39 39 22 29 |$=.chdate_("99")|
0001f350 3a 4f 74 6f 64 61 79 5f 24 3d 74 6f 64 61 79 5f |:Otoday_$=today_|
0001f360 24 3a 53 49 54 65 5f 24 28 30 29 3d 74 6f 64 61 |$:SITe_$(0)=toda|
0001f370 79 5f 24 3a 50 49 54 65 5f 24 28 30 29 3d 74 6f |y_$:PITe_$(0)=to|
0001f380 64 61 79 5f 24 3a 54 49 54 65 5f 24 28 30 29 3d |day_$:TITe_$(0)=|
0001f390 74 6f 64 61 79 5f 24 3a 76 61 6c 66 72 6f 5f 24 |today_$:valfro_$|
0001f3a0 3d 22 31 22 3a 76 61 6c 74 5f 24 3d c3 28 4d 5f |="1":valt_$=.(M_|
0001f3b0 25 29 3a 64 61 79 5f 25 3d a4 4a 75 6c 5f 28 74 |%):day_%=.Jul_(t|
0001f3c0 6f 64 61 79 5f 24 29 0d 74 d1 25 e7 43 6d 61 78 |oday_$).t.%.Cmax|
0001f3d0 73 75 70 70 5f 25 3c 6d 61 78 6d 65 6e 75 5f 25 |supp_%<maxmenu_%|
0001f3e0 8c f2 43 73 75 70 70 6c 69 73 74 5f 0d 74 d6 26 |..Csupplist_.t.&|
0001f3f0 f2 68 65 61 64 6c 69 73 74 53 5f 3a f2 68 65 61 |.headlistS_:.hea|
0001f400 64 6c 69 73 74 50 5f 3a f2 62 61 6e 6b 6c 69 73 |dlistP_:.banklis|
0001f410 74 5f 0d 74 db 2e 5a 25 3d a4 63 68 66 6f 6e 74 |t_.t..Z%=.chfont|
0001f420 73 5f 3a f2 66 6f 6e 74 6c 69 73 74 5f 3a f2 69 |s_:.fontlist_:.i|
0001f430 6e 76 6c 69 73 74 5f 3a c8 99 26 34 30 36 43 31 |nvlist_:..&406C1|
0001f440 0d 74 e0 16 5a 25 3d a4 61 42 67 28 22 5f 22 2c |.t..Z%=.aBg("_",|
0001f450 32 34 2c 33 30 29 0d 74 e5 44 72 6f 6f 74 5f 24 |24,30).t.Droot_$|
0001f460 3d 22 22 3a 24 63 62 6c 6f 63 6b 5f 25 3d 22 3c |="":$cblock_%="<|
0001f470 4f 62 65 79 24 44 69 72 3e 22 3a c8 99 26 32 37 |Obey$Dir>":..&27|
0001f480 2c 63 62 6c 6f 63 6b 5f 25 2c 62 6c 6f 63 6b 5f |,cblock_%,block_|
0001f490 25 2c 32 35 35 20 b8 2c 5a 25 0d 74 ea 0a e7 5a |%,255 .,Z%.t...Z|
0001f4a0 25 3e 30 8c 0d 74 ef 0e 72 6f 6f 74 5f 24 3d 24 |%>0..t..root_$=$|
0001f4b0 5a 25 0d 74 f4 16 e3 5a 25 3d a9 28 72 6f 6f 74 |Z%.t...Z%=.(root|
0001f4c0 5f 24 29 b8 31 88 2d 31 0d 74 f9 2e e7 c1 72 6f |_$).1.-1.t....ro|
0001f4d0 6f 74 5f 24 2c 5a 25 2c 31 29 3d 22 2e 22 8c 72 |ot_$,Z%,1)=".".r|
0001f4e0 6f 6f 74 5f 24 3d c0 72 6f 6f 74 5f 24 2c 5a 25 |oot_$=.root_$,Z%|
0001f4f0 29 3a 5a 25 3d 31 0d 74 fe 05 ed 0d 75 03 05 cd |):Z%=1.t....u...|
0001f500 0d 75 08 3b 69 6e 76 5f 24 3d 72 6f 6f 74 5f 24 |.u.;inv_$=root_$|
0001f510 2b 22 49 6e 76 6f 69 63 65 73 22 3a 62 63 68 5f |+"Invoices":bch_|
0001f520 24 3d 72 6f 6f 74 5f 24 2b 22 21 50 72 6f 70 68 |$=root_$+"!Proph|
0001f530 65 74 2e 57 69 6e 64 6f 77 73 22 0d 75 0d 0f e7 |et.Windows".u...|
0001f540 65 6e 76 5f 24 3c 3e 22 22 8c 0d 75 12 46 69 6e |env_$<>""..u.Fin|
0001f550 76 5f 24 3d 22 22 3a e3 5a 25 3d a9 28 65 6e 76 |v_$="":.Z%=.(env|
0001f560 5f 24 29 b8 31 88 2d 31 3a e7 c1 65 6e 76 5f 24 |_$).1.-1:..env_$|
0001f570 2c 5a 25 2c 31 29 3d 22 2e 22 8c 69 6e 76 5f 24 |,Z%,1)=".".inv_$|
0001f580 3d c0 65 6e 76 5f 24 2c 5a 25 29 3a 5a 25 3d 31 |=.env_$,Z%):Z%=1|
0001f590 0d 75 17 1c ed 3a 69 6e 76 5f 24 3d 69 6e 76 5f |.u...:inv_$=inv_|
0001f5a0 24 2b 22 49 6e 76 6f 69 63 65 73 22 0d 75 1c 05 |$+"Invoices".u..|
0001f5b0 cd 0d 75 21 42 5a 25 3d ad 28 72 6f 6f 74 5f 24 |..u!BZ%=.(root_$|
0001f5c0 2b 22 21 50 72 6f 70 68 65 74 2e 21 42 6f 6f 74 |+"!Prophet.!Boot|
0001f5d0 22 29 3a 41 64 5f 25 3d a2 23 5a 25 3a cf 23 5a |"):Ad_%=.#Z%:.#Z|
0001f5e0 25 3d 36 35 3a 41 65 5f 25 3d 9a 23 5a 25 3a d9 |%=65:Ae_%=.#Z%:.|
0001f5f0 23 5a 25 0d 75 26 06 3d b9 0d 75 2b 04 0d 75 30 |#Z%.u&.=..u+..u0|
0001f600 28 dd a4 73 79 73 65 6e 76 5f 3a ea 20 41 25 3a |(..sysenv_:. A%:|
0001f610 c8 99 22 4f 53 5f 47 65 74 45 6e 76 22 20 b8 20 |.."OS_GetEnv" . |
0001f620 65 6e 76 5f 24 0d 75 35 5c 41 25 3d a7 65 6e 76 |env_$.u5\A%=.env|
0001f630 5f 24 2c 22 21 52 75 6e 49 6d 61 67 65 22 29 3a |_$,"!RunImage"):|
0001f640 65 6e 76 5f 24 3d c1 65 6e 76 5f 24 2c 41 25 2b |env_$=.env_$,A%+|
0001f650 31 30 29 3a 65 6e 76 5f 24 3d a4 74 72 6d 4c 28 |10):env_$=.trmL(|
0001f660 65 6e 76 5f 24 29 3a e7 65 6e 76 5f 24 3c 3e 22 |env_$):.env_$<>"|
0001f670 22 3a 3d a4 6c 6f 61 64 31 5f 28 65 6e 76 5f 24 |":=.load1_(env_$|
0001f680 29 0d 75 3a 06 3d 30 0d 75 3f 04 0d 75 44 0e dd |).u:.=0.u?..uD..|
0001f690 a4 63 68 66 6f 6e 74 73 5f 0d 75 49 08 ea 20 41 |.chfonts_.uI.. A|
0001f6a0 25 0d 75 4e 07 ea 20 85 0d 75 53 25 ee 20 85 20 |%.uN.. ..uS%. . |
0001f6b0 ea 3a f7 20 85 3a 66 68 5f 25 3d 30 3a 66 68 61 |.:. .:fh_%=0:fha|
0001f6c0 6e 64 6c 65 5f 25 28 29 3d 30 3a 3d a3 0d 75 58 |ndle_%()=0:=..uX|
0001f6d0 19 46 6f 5f 24 28 30 29 3d 22 53 79 73 74 65 6d |.Fo_$(0)="System|
0001f6e0 20 66 6f 6e 74 22 0d 75 5d 2c e7 a4 66 69 6e 64 | font".u],..find|
0001f6f0 72 65 73 5f 28 33 29 3d a3 20 8c 66 68 5f 25 3d |res_(3)=. .fh_%=|
0001f700 30 3a 66 68 61 6e 64 6c 65 5f 25 28 29 3d 30 3a |0:fhandle_%()=0:|
0001f710 3d a3 0d 75 62 44 c8 99 26 32 37 2c 22 3c 46 6f |=..ubD..&27,"<Fo|
0001f720 6e 74 24 50 72 65 66 69 78 3e 20 61 6e 64 20 3c |nt$Prefix> and <|
0001f730 46 6f 6e 74 24 50 61 74 68 3e 22 2c 66 6f 6e 74 |Font$Path>",font|
0001f740 5f 25 2c 66 6f 6e 74 73 69 7a 65 5f 25 2d 31 20 |_%,fontsize_%-1 |
0001f750 b8 20 2c 2c 41 25 0d 75 67 10 66 6f 6e 74 5f 25 |. ,,A%.ug.font_%|
0001f760 3f 41 25 3d 31 33 0d 75 6c 4c e7 24 66 6f 6e 74 |?A%=13.ulL.$font|
0001f770 5f 25 3c 3e 6f 66 6f 6e 74 70 61 74 68 5f 24 20 |_%<>ofontpath_$ |
0001f780 8c 20 6f 66 6f 6e 74 70 61 74 68 5f 24 3d 24 66 |. ofontpath_$=$f|
0001f790 6f 6e 74 5f 25 3a 66 68 61 6e 64 6c 65 5f 25 28 |ont_%:fhandle_%(|
0001f7a0 29 3d 30 3a 41 25 3d a4 69 6e 69 74 66 6f 6e 74 |)=0:A%=.initfont|
0001f7b0 73 5f 0d 75 71 07 3d 41 25 0d 75 76 04 0d 75 7b |s_.uq.=A%.uv..u{|
0001f7c0 12 dd a4 74 72 61 6e 73 5f 28 74 72 5f 24 29 0d |...trans_(tr_$).|
0001f7d0 75 80 0c ea 20 41 25 2c 41 5f 25 0d 75 85 0e 24 |u... A%,A_%.u..$|
0001f7e0 66 6f 6e 74 5f 25 3d 22 22 0d 75 8a 2c c8 99 26 |font_%="".u.,..&|
0001f7f0 32 37 2c 74 72 5f 24 2c 66 6f 6e 74 5f 25 2c 66 |27,tr_$,font_%,f|
0001f800 6f 6e 74 73 69 7a 65 5f 25 2d 31 20 b8 20 2c 41 |ontsize_%-1 . ,A|
0001f810 5f 25 2c 41 25 0d 75 8f 21 e7 41 5f 25 3d 30 84 |_%,A%.u.!.A_%=0.|
0001f820 41 25 3d 66 6f 6e 74 73 69 7a 65 5f 25 84 41 25 |A%=fontsize_%.A%|
0001f830 3d 30 8c 3d 22 22 0d 75 94 10 66 6f 6e 74 5f 25 |=0.="".u..font_%|
0001f840 3f 41 25 3d 31 33 0d 75 99 0c 3d 24 66 6f 6e 74 |?A%=13.u..=$font|
0001f850 5f 25 0d 75 9e 04 0d 75 a3 10 dd a4 69 6e 69 74 |_%.u...u....init|
0001f860 66 6f 6e 74 73 5f 0d 75 a8 07 ea 20 85 0d 75 ad |fonts_.u... ..u.|
0001f870 25 ee 20 85 20 ea 3a f7 20 85 3a 66 68 5f 25 3d |%. . .:. .:fh_%=|
0001f880 30 3a 66 68 61 6e 64 6c 65 5f 25 28 29 3d 30 3a |0:fhandle_%()=0:|
0001f890 3d a3 0d 75 b2 0c c8 99 26 34 30 36 43 30 0d 75 |=..u....&406C0.u|
0001f8a0 b7 1b 66 6f 6e 74 6e 75 6d 5f 25 3d 30 3a 6d 61 |..fontnum_%=0:ma|
0001f8b0 78 66 6f 6e 74 5f 25 3d 30 0d 75 bc 23 46 6f 5f |xfont_%=0.u.#Fo_|
0001f8c0 24 28 29 3d 22 22 3a 46 6f 5f 24 28 30 29 3d 22 |$()="":Fo_$(0)="|
0001f8d0 53 79 73 74 65 6d 20 66 6f 6e 74 22 0d 75 c1 14 |System font".u..|
0001f8e0 c8 95 20 66 6f 6e 74 6e 75 6d 5f 25 3c 3e 2d 31 |.. fontnum_%<>-1|
0001f8f0 0d 75 c6 3a c8 99 20 22 46 6f 6e 74 5f 4c 69 73 |.u.:.. "Font_Lis|
0001f900 74 46 6f 6e 74 73 22 20 2c 2c 66 6f 6e 74 25 2c |tFonts" ,,font%,|
0001f910 66 6f 6e 74 6e 75 6d 5f 25 2c 2d 31 20 b8 20 2c |fontnum_%,-1 . ,|
0001f920 2c 66 6f 6e 74 6e 75 6d 5f 25 0d 75 cb 52 e7 66 |,fontnum_%.u.R.f|
0001f930 6f 6e 74 6e 75 6d 5f 25 3e 2d 31 80 66 6f 6e 74 |ontnum_%>-1.font|
0001f940 6e 75 6d 5f 25 3c 3d 6d 61 78 69 66 6f 6e 74 5f |num_%<=maxifont_|
0001f950 25 8c 46 6f 5f 24 28 66 6f 6e 74 6e 75 6d 5f 25 |%.Fo_$(fontnum_%|
0001f960 29 3d 24 66 6f 6e 74 25 3a 6d 61 78 66 6f 6e 74 |)=$font%:maxfont|
0001f970 5f 25 3d 66 6f 6e 74 6e 75 6d 5f 25 0d 75 d0 05 |_%=fontnum_%.u..|
0001f980 ce 0d 75 d5 0c f2 75 70 66 6f 6e 74 5f 0d 75 da |..u...upfont_.u.|
0001f990 0c c8 99 26 34 30 36 43 31 0d 75 df 0d f2 6f 6c |...&406C1.u...ol|
0001f9a0 64 66 6f 6e 74 5f 0d 75 e4 06 3d b9 0d 75 e9 04 |dfont_.u..=..u..|
0001f9b0 0d 75 ee 13 dd a4 6c 6f 73 65 66 6f 6e 74 5f 28 |.u....losefont_(|
0001f9c0 5a 25 29 0d 75 f3 0c e7 5a 25 3d 30 8c 3d 30 0d |Z%).u...Z%=0.=0.|
0001f9d0 75 f8 07 ea 20 85 0d 75 fd 66 ee 20 85 20 ea 3a |u... ..u.f. . .:|
0001f9e0 f7 20 85 3a f2 70 65 5f 28 22 46 6f 6e 74 4d 61 |. .:.pe_("FontMa|
0001f9f0 6e 61 67 65 72 20 6e 6f 74 20 66 6f 75 6e 64 2e |nager not found.|
0001fa00 20 50 6c 65 61 73 65 20 64 6f 75 62 6c 65 20 63 | Please double c|
0001fa10 6c 69 63 6b 20 6f 6e 20 79 6f 75 72 20 21 46 6f |lick on your !Fo|
0001fa20 6e 74 73 20 66 69 6c 65 20 61 6e 64 20 74 72 79 |nts file and try|
0001fa30 20 61 67 61 69 6e 22 29 3a 3d 5a 25 0d 76 02 0f | again"):=Z%.v..|
0001fa40 c8 99 26 34 30 30 38 32 2c 5a 25 0d 76 07 06 3d |..&40082,Z%.v..=|
0001fa50 30 0d 76 0c 04 0d 76 11 13 dd a4 66 69 6e 64 72 |0.v...v....findr|
0001fa60 65 73 5f 28 41 5f 25 29 0d 76 16 2a e7 41 5f 25 |es_(A_%).v.*.A_%|
0001fa70 3d 31 3a e7 a4 74 72 61 6e 73 5f 28 22 3c 53 79 |=1:..trans_("<Sy|
0001fa80 73 74 65 6d 24 50 61 74 68 3e 22 29 3d 22 22 8c |stem$Path>")="".|
0001fa90 3d a3 0d 76 1b 2b e7 41 5f 25 3d 32 3a e7 a4 74 |=..v.+.A_%=2:..t|
0001faa0 72 61 6e 73 5f 28 22 3c 50 44 72 69 76 65 72 24 |rans_("<PDriver$|
0001fab0 50 61 74 68 3e 22 29 3d 22 22 8c 3d a3 0d 76 20 |Path>")="".=..v |
0001fac0 28 e7 41 5f 25 3d 33 3a e7 a4 74 72 61 6e 73 5f |(.A_%=3:..trans_|
0001fad0 28 22 3c 46 6f 6e 74 24 50 61 74 68 3e 22 29 3d |("<Font$Path>")=|
0001fae0 22 22 8c 3d a3 0d 76 25 06 3d b9 0d 76 2a 04 0d |"".=..v%.=..v*..|
0001faf0 76 61 10 dd f2 43 73 75 70 70 6c 69 73 74 5f 0d |va...Csupplist_.|
0001fb00 76 66 0b ea 20 5a 25 2c 41 25 0d 76 6b 1f 5a 25 |vf.. Z%,A%.vk.Z%|
0001fb10 3d a4 72 52 28 22 4d 65 6e 75 73 22 2c 22 43 53 |=.rR("Menus","CS|
0001fb20 75 70 70 4c 69 73 74 22 29 0d 76 70 16 43 4c 53 |uppList").vp.CLS|
0001fb30 75 70 70 6c 69 65 72 73 5f 24 28 29 3d 22 22 0d |uppliers_$()="".|
0001fb40 76 75 0d f2 43 75 70 6c 73 75 70 5f 0d 76 7a 09 |vu..Cuplsup_.vz.|
0001fb50 41 25 3d 4a 25 0d 76 7f 21 d6 21 28 53 25 21 31 |A%=J%.v.!.!(S%!1|
0001fb60 36 34 2b 32 30 29 2c 43 4c 53 75 70 70 6c 69 65 |64+20),CLSupplie|
0001fb70 72 73 5f 24 28 29 0d 76 84 0a 41 25 3d 21 4a 25 |rs_$().v..A%=!J%|
0001fb80 0d 76 89 30 5a 25 3d a4 6d 65 6e 75 4c 69 73 74 |.v.0Z%=.menuList|
0001fb90 28 22 43 4c 53 75 70 70 6c 69 65 72 73 22 2c 22 |("CLSuppliers","|
0001fba0 43 53 75 70 70 4c 69 73 74 22 2c 41 25 2c 30 29 |CSuppList",A%,0)|
0001fbb0 0d 76 8e 05 e1 0d 76 93 10 dd f2 68 65 61 64 6c |.v....v....headl|
0001fbc0 69 73 74 53 5f 0d 76 98 0b ea 20 5a 25 2c 41 25 |istS_.v... Z%,A%|
0001fbd0 0d 76 9d 1f 5a 25 3d a4 72 52 28 22 4d 65 6e 75 |.v..Z%=.rR("Menu|
0001fbe0 73 22 2c 22 48 65 61 64 4c 69 73 74 53 22 29 0d |s","HeadListS").|
0001fbf0 76 a2 11 4c 68 65 61 64 53 5f 24 28 29 3d 22 22 |v..LheadS_$()=""|
0001fc00 0d 76 a7 0e f2 75 70 6c 68 65 61 64 73 5f 0d 76 |.v...uplheads_.v|
0001fc10 ac 09 41 25 3d 4a 25 0d 76 b1 1c d6 21 28 53 25 |..A%=J%.v...!(S%|
0001fc20 21 31 36 34 2b 32 30 29 2c 4c 68 65 61 64 53 5f |!164+20),LheadS_|
0001fc30 24 28 29 0d 76 b6 0a 41 25 3d 21 4a 25 0d 76 bb |$().v..A%=!J%.v.|
0001fc40 2b 5a 25 3d a4 6d 65 6e 75 4c 69 73 74 28 22 4c |+Z%=.menuList("L|
0001fc50 68 65 61 64 53 22 2c 22 48 65 61 64 4c 69 73 74 |headS","HeadList|
0001fc60 53 22 2c 41 25 2c 30 29 0d 76 c0 05 e1 0d 76 c5 |S",A%,0).v....v.|
0001fc70 10 dd f2 68 65 61 64 6c 69 73 74 50 5f 0d 76 ca |...headlistP_.v.|
0001fc80 0b ea 20 5a 25 2c 41 25 0d 76 cf 1f 5a 25 3d a4 |.. Z%,A%.v..Z%=.|
0001fc90 72 52 28 22 4d 65 6e 75 73 22 2c 22 48 65 61 64 |rR("Menus","Head|
0001fca0 4c 69 73 74 50 22 29 0d 76 d4 11 4c 68 65 61 64 |ListP").v..Lhead|
0001fcb0 50 5f 24 28 29 3d 22 22 0d 76 d9 0e f2 75 70 6c |P_$()="".v...upl|
0001fcc0 68 65 61 64 70 5f 0d 76 de 09 41 25 3d 4a 25 0d |headp_.v..A%=J%.|
0001fcd0 76 e3 1c d6 21 28 53 25 21 31 36 34 2b 32 30 29 |v...!(S%!164+20)|
0001fce0 2c 4c 68 65 61 64 50 5f 24 28 29 0d 76 e8 0a 41 |,LheadP_$().v..A|
0001fcf0 25 3d 21 4a 25 0d 76 ed 2b 5a 25 3d a4 6d 65 6e |%=!J%.v.+Z%=.men|
0001fd00 75 4c 69 73 74 28 22 4c 68 65 61 64 50 22 2c 22 |uList("LheadP","|
0001fd10 48 65 61 64 4c 69 73 74 50 22 2c 41 25 2c 30 29 |HeadListP",A%,0)|
0001fd20 0d 76 f2 05 e1 0d 76 f7 0f dd f2 62 61 6e 6b 6c |.v....v....bankl|
0001fd30 69 73 74 5f 0d 76 fc 0b ea 20 5a 25 2c 41 25 0d |ist_.v... Z%,A%.|
0001fd40 77 01 1e 5a 25 3d a4 72 52 28 22 4d 65 6e 75 73 |w..Z%=.rR("Menus|
0001fd50 22 2c 22 42 61 6e 6b 4c 69 73 74 22 29 0d 77 06 |","BankList").w.|
0001fd60 10 4c 62 61 6e 6b 5f 24 28 29 3d 22 22 0d 77 0b |.Lbank_$()="".w.|
0001fd70 0d f2 75 70 6c 62 61 6e 6b 5f 0d 77 10 09 41 25 |..uplbank_.w..A%|
0001fd80 3d 4a 25 0d 77 15 1b d6 21 28 53 25 21 31 36 34 |=J%.w...!(S%!164|
0001fd90 2b 32 30 29 2c 4c 62 61 6e 6b 5f 24 28 29 0d 77 |+20),Lbank_$().w|
0001fda0 1a 0a 41 25 3d 21 4a 25 0d 77 1f 29 5a 25 3d a4 |..A%=!J%.w.)Z%=.|
0001fdb0 6d 65 6e 75 4c 69 73 74 28 22 4c 62 61 6e 6b 22 |menuList("Lbank"|
0001fdc0 2c 22 42 61 6e 6b 4c 69 73 74 22 2c 41 25 2c 30 |,"BankList",A%,0|
0001fdd0 29 0d 77 24 05 e1 0d 77 29 0e dd f2 69 6e 76 6c |).w$...w)...invl|
0001fde0 69 73 74 5f 0d 77 2e 0b ea 20 5a 25 2c 41 25 0d |ist_.w... Z%,A%.|
0001fdf0 77 33 1a 5a 25 3d a4 72 52 28 22 4d 65 6e 75 73 |w3.Z%=.rR("Menus|
0001fe00 22 2c 22 49 6e 76 4c 22 29 0d 77 38 0f 69 6e 76 |","InvL").w8.inv|
0001fe10 6c 5f 24 28 29 3d 22 22 0d 77 3d 0c f2 75 70 6c |l_$()="".w=..upl|
0001fe20 69 6e 76 5f 0d 77 42 27 41 25 3d 4a 25 3a d6 21 |inv_.wB'A%=J%:.!|
0001fe30 28 53 25 21 31 36 34 2b 32 30 29 2c 69 6e 76 6c |(S%!164+20),invl|
0001fe40 5f 24 28 29 3a 41 25 3d 21 4a 25 0d 77 47 24 5a |_$():A%=!J%.wG$Z|
0001fe50 25 3d a4 6d 65 6e 75 4c 69 73 74 28 22 69 6e 76 |%=.menuList("inv|
0001fe60 6c 22 2c 22 49 6e 76 4c 22 2c 41 25 2c 30 29 0d |l","InvL",A%,0).|
0001fe70 77 4c 05 e1 0d 77 51 0f dd f2 66 6f 6e 74 6c 69 |wL...wQ...fontli|
0001fe80 73 74 5f 0d 77 56 12 ea 20 5a 25 2c 41 25 2c 74 |st_.wV.. Z%,A%,t|
0001fe90 65 6d 70 5f 25 0d 77 5b 1e 5a 25 3d a4 72 52 28 |emp_%.w[.Z%=.rR(|
0001fea0 22 4d 65 6e 75 73 22 2c 22 46 6f 6e 74 4c 69 73 |"Menus","FontLis|
0001feb0 74 22 29 0d 77 60 0e 4c 66 6f 5f 24 28 29 3d 22 |t").w`.Lfo_$()="|
0001fec0 22 0d 77 65 0c f2 75 70 66 6f 6e 74 5f 0d 77 6a |".we..upfont_.wj|
0001fed0 09 41 25 3d 4a 25 0d 77 6f 19 d6 21 28 53 25 21 |.A%=J%.wo..!(S%!|
0001fee0 31 36 34 2b 32 30 29 2c 4c 66 6f 5f 24 28 29 0d |164+20),Lfo_$().|
0001fef0 77 74 0a 41 25 3d 21 4a 25 0d 77 79 2d 5a 25 3d |wt.A%=!J%.wy-Z%=|
0001ff00 a4 6d 65 6e 75 4c 69 73 74 28 22 4c 46 6f 6e 74 |.menuList("LFont|
0001ff10 6e 61 6d 65 22 2c 22 46 6f 6e 74 4c 69 73 74 22 |name","FontList"|
0001ff20 2c 41 25 2c 30 29 0d 77 7e 3b e3 74 65 6d 70 5f |,A%,0).w~;.temp_|
0001ff30 25 3d 30 b8 6d 61 78 69 66 6f 6e 74 5f 25 3a 4f |%=0.maxifont_%:O|
0001ff40 66 6f 6e 74 6e 61 6d 65 5f 24 28 74 65 6d 70 5f |fontname_$(temp_|
0001ff50 25 29 3d 46 6f 5f 24 28 74 65 6d 70 5f 25 29 3a |%)=Fo_$(temp_%):|
0001ff60 ed 0d 77 83 05 e1 0d 77 88 04 0d 77 ab 0d dd f2 |..w....w...w....|
0001ff70 75 70 6c 69 6e 76 5f 0d 77 b0 13 ea 20 74 65 6d |uplinv_.w... tem|
0001ff80 70 5f 24 2c 74 65 6d 70 5f 25 0d 77 b5 11 e3 74 |p_$,temp_%.w...t|
0001ff90 65 6d 70 5f 25 3d 30 b8 31 30 30 0d 77 ba 5c 74 |emp_%=0.100.w.\t|
0001ffa0 65 6d 70 5f 24 3d c0 69 6e 76 4c 5f 24 28 74 65 |emp_$=.invL_$(te|
0001ffb0 6d 70 5f 25 29 2c 32 30 29 3a 74 65 6d 70 5f 24 |mp_%),20):temp_$|
0001ffc0 3d 74 65 6d 70 5f 24 2b c4 32 30 2d a9 28 74 65 |=temp_$+.20-.(te|
0001ffd0 6d 70 5f 24 29 2c 22 20 22 29 3a 69 6e 76 6c 5f |mp_$)," "):invl_|
0001ffe0 24 28 74 65 6d 70 5f 25 2b 31 29 3d 74 65 6d 70 |$(temp_%+1)=temp|
0001fff0 5f 24 2b bd 28 30 29 0d 77 bf 05 ed 0d 77 c4 05 |_$+.(0).w....w..|
00020000 e1 0d 77 c9 04 0d 77 ce 9e dd f2 75 70 6c 68 65 |..w...w....uplhe|
00020010 61 64 73 5f 3a ea 20 74 65 6d 70 5f 24 2c 74 65 |ads_:. temp_$,te|
00020020 6d 70 5f 25 2c 61 5f 25 3a e3 74 65 6d 70 5f 25 |mp_%,a_%:.temp_%|
00020030 3d 30 b8 31 32 3a 74 65 6d 70 5f 24 3d bd 28 74 |=0.12:temp_$=.(t|
00020040 65 6d 70 5f 25 2b 36 34 29 2b 22 3a 22 2b c0 53 |emp_%+64)+":"+.S|
00020050 68 65 61 64 31 5f 24 28 74 65 6d 70 5f 25 29 2c |head1_$(temp_%),|
00020060 31 36 29 3a 74 65 6d 70 5f 24 3d 74 65 6d 70 5f |16):temp_$=temp_|
00020070 24 2b c4 31 38 2d a9 28 74 65 6d 70 5f 24 29 2c |$+.18-.(temp_$),|
00020080 22 20 22 29 3a 4c 68 65 61 64 53 5f 24 28 74 65 |" "):LheadS_$(te|
00020090 6d 70 5f 25 29 3d 74 65 6d 70 5f 24 2b bd 28 30 |mp_%)=temp_$+.(0|
000200a0 29 3a ed 0d 77 d3 8e e3 74 65 6d 70 5f 25 3d 31 |):..w...temp_%=1|
000200b0 33 b8 31 30 38 3a e7 74 65 6d 70 5f 25 83 38 3c |3.108:.temp_%.8<|
000200c0 3e 35 3a 74 65 6d 70 5f 24 3d 22 20 22 2b bd 28 |>5:temp_$=" "+.(|
000200d0 61 5f 25 29 2b 22 3a 22 2b c0 53 68 65 61 64 31 |a_%)+":"+.Shead1|
000200e0 5f 24 28 74 65 6d 70 5f 25 29 2c 31 35 29 3a 61 |_$(temp_%),15):a|
000200f0 5f 25 2b 3d 31 3a 8b 74 65 6d 70 5f 24 3d bd 28 |_%+=1:.temp_$=.(|
00020100 74 65 6d 70 5f 25 2f 38 2b 36 34 29 2b 22 61 22 |temp_%/8+64)+"a"|
00020110 2b 22 3a 22 2b c0 53 68 65 61 64 31 5f 24 28 74 |+":"+.Shead1_$(t|
00020120 65 6d 70 5f 25 29 2c 31 35 29 3a 61 5f 25 3d 39 |emp_%),15):a_%=9|
00020130 38 0d 77 d8 45 74 65 6d 70 5f 24 3d 74 65 6d 70 |8.w.Etemp_$=temp|
00020140 5f 24 2b c4 31 38 2d a9 28 74 65 6d 70 5f 24 29 |_$+.18-.(temp_$)|
00020150 2c 22 20 22 29 3a 4c 68 65 61 64 53 5f 24 28 74 |," "):LheadS_$(t|
00020160 65 6d 70 5f 25 29 3d 74 65 6d 70 5f 24 2b bd 28 |emp_%)=temp_$+.(|
00020170 30 29 3a ed 3a e1 0d 77 dd 9e dd f2 75 70 6c 68 |0):.:..w....uplh|
00020180 65 61 64 70 5f 3a ea 20 74 65 6d 70 5f 24 2c 74 |eadp_:. temp_$,t|
00020190 65 6d 70 5f 25 2c 61 5f 25 3a e3 74 65 6d 70 5f |emp_%,a_%:.temp_|
000201a0 25 3d 30 b8 31 32 3a 74 65 6d 70 5f 24 3d bd 28 |%=0.12:temp_$=.(|
000201b0 74 65 6d 70 5f 25 2b 36 34 29 2b 22 3a 22 2b c0 |temp_%+64)+":"+.|
000201c0 50 68 65 61 64 31 5f 24 28 74 65 6d 70 5f 25 29 |Phead1_$(temp_%)|
000201d0 2c 31 36 29 3a 74 65 6d 70 5f 24 3d 74 65 6d 70 |,16):temp_$=temp|
000201e0 5f 24 2b c4 31 38 2d a9 28 74 65 6d 70 5f 24 29 |_$+.18-.(temp_$)|
000201f0 2c 22 20 22 29 3a 4c 68 65 61 64 50 5f 24 28 74 |," "):LheadP_$(t|
00020200 65 6d 70 5f 25 29 3d 74 65 6d 70 5f 24 2b bd 28 |emp_%)=temp_$+.(|
00020210 30 29 3a ed 0d 77 e2 8e e3 74 65 6d 70 5f 25 3d |0):..w...temp_%=|
00020220 31 33 b8 31 30 38 3a e7 74 65 6d 70 5f 25 83 38 |13.108:.temp_%.8|
00020230 3c 3e 35 3a 74 65 6d 70 5f 24 3d 22 20 22 2b bd |<>5:temp_$=" "+.|
00020240 28 61 5f 25 29 2b 22 3a 22 2b c0 50 68 65 61 64 |(a_%)+":"+.Phead|
00020250 31 5f 24 28 74 65 6d 70 5f 25 29 2c 31 35 29 3a |1_$(temp_%),15):|
00020260 61 5f 25 2b 3d 31 3a 8b 74 65 6d 70 5f 24 3d bd |a_%+=1:.temp_$=.|
00020270 28 74 65 6d 70 5f 25 2f 38 2b 36 34 29 2b 22 61 |(temp_%/8+64)+"a|
00020280 22 2b 22 3a 22 2b c0 50 68 65 61 64 31 5f 24 28 |"+":"+.Phead1_$(|
00020290 74 65 6d 70 5f 25 29 2c 31 35 29 3a 61 5f 25 3d |temp_%),15):a_%=|
000202a0 39 38 0d 77 e7 45 74 65 6d 70 5f 24 3d 74 65 6d |98.w.Etemp_$=tem|
000202b0 70 5f 24 2b c4 31 38 2d a9 28 74 65 6d 70 5f 24 |p_$+.18-.(temp_$|
000202c0 29 2c 22 20 22 29 3a 4c 68 65 61 64 50 5f 24 28 |)," "):LheadP_$(|
000202d0 74 65 6d 70 5f 25 29 3d 74 65 6d 70 5f 24 2b bd |temp_%)=temp_$+.|
000202e0 28 30 29 3a ed 3a e1 0d 77 ec 9a dd f2 75 70 6c |(0):.:..w....upl|
000202f0 62 61 6e 6b 5f 3a ea 20 74 65 6d 70 5f 24 2c 74 |bank_:. temp_$,t|
00020300 65 6d 70 5f 25 3a e3 74 65 6d 70 5f 25 3d 30 b8 |emp_%:.temp_%=0.|
00020310 31 32 3a 74 65 6d 70 5f 24 3d bd 28 74 65 6d 70 |12:temp_$=.(temp|
00020320 5f 25 2b 36 34 29 2b 22 3a 22 2b c0 42 61 6e 6b |_%+64)+":"+.Bank|
00020330 4e 4e 5f 24 28 74 65 6d 70 5f 25 29 2c 31 36 29 |NN_$(temp_%),16)|
00020340 3a 74 65 6d 70 5f 24 3d 74 65 6d 70 5f 24 2b c4 |:temp_$=temp_$+.|
00020350 31 38 2d a9 28 74 65 6d 70 5f 24 29 2c 22 20 22 |18-.(temp_$)," "|
00020360 29 3a 4c 62 61 6e 6b 5f 24 28 74 65 6d 70 5f 25 |):Lbank_$(temp_%|
00020370 29 3d 74 65 6d 70 5f 24 2b bd 28 30 29 3a ed 3a |)=temp_$+.(0):.:|
00020380 e1 0d 77 f1 0e dd f2 43 75 70 6c 73 75 70 5f 0d |..w....Cuplsup_.|
00020390 77 f6 13 ea 20 74 65 6d 70 5f 24 2c 74 65 6d 70 |w... temp_$,temp|
000203a0 5f 25 0d 77 fb 18 e3 74 65 6d 70 5f 25 3d 30 b8 |_%.w...temp_%=0.|
000203b0 43 6d 61 78 73 75 70 70 5f 25 0d 78 00 79 74 65 |Cmaxsupp_%.x.yte|
000203c0 6d 70 5f 24 3d c0 43 53 75 70 70 6c 69 65 72 73 |mp_$=.CSuppliers|
000203d0 5f 24 28 74 65 6d 70 5f 25 29 2c 6d 61 78 73 75 |_$(temp_%),maxsu|
000203e0 70 6c 65 6e 5f 25 29 3a 74 65 6d 70 5f 24 3d 74 |plen_%):temp_$=t|
000203f0 65 6d 70 5f 24 2b c4 6d 61 78 73 75 70 6c 65 6e |emp_$+.maxsuplen|
00020400 5f 25 2d a9 28 74 65 6d 70 5f 24 29 2c 22 20 22 |_%-.(temp_$)," "|
00020410 29 3a 43 4c 53 75 70 70 6c 69 65 72 73 5f 24 28 |):CLSuppliers_$(|
00020420 74 65 6d 70 5f 25 29 3d 74 65 6d 70 5f 24 2b bd |temp_%)=temp_$+.|
00020430 28 30 29 0d 78 05 05 ed 0d 78 0a 05 e1 0d 78 0f |(0).x....x....x.|
00020440 0d dd f2 75 70 66 6f 6e 74 5f 0d 78 14 13 ea 20 |...upfont_.x... |
00020450 74 65 6d 70 5f 24 2c 74 65 6d 70 5f 25 0d 78 19 |temp_$,temp_%.x.|
00020460 18 e3 74 65 6d 70 5f 25 3d 30 b8 6d 61 78 69 66 |..temp_%=0.maxif|
00020470 6f 6e 74 5f 25 0d 78 1e 6b 74 65 6d 70 5f 24 3d |ont_%.x.ktemp_$=|
00020480 c0 46 6f 5f 24 28 74 65 6d 70 5f 25 29 2c 6d 61 |.Fo_$(temp_%),ma|
00020490 78 66 6f 6e 6c 65 6e 5f 25 29 3a 74 65 6d 70 5f |xfonlen_%):temp_|
000204a0 24 3d 74 65 6d 70 5f 24 2b c4 6d 61 78 66 6f 6e |$=temp_$+.maxfon|
000204b0 6c 65 6e 5f 25 2d a9 28 74 65 6d 70 5f 24 29 2c |len_%-.(temp_$),|
000204c0 22 20 22 29 3a 4c 66 6f 5f 24 28 74 65 6d 70 5f |" "):Lfo_$(temp_|
000204d0 25 2b 31 29 3d 74 65 6d 70 5f 24 2b bd 28 30 29 |%+1)=temp_$+.(0)|
000204e0 0d 78 23 05 ed 0d 78 28 05 e1 0d 78 2d 04 0d 78 |.x#...x(...x-..x|
000204f0 32 0e dd f2 6f 6c 64 66 6f 6e 74 5f 0d 78 37 17 |2...oldfont_.x7.|
00020500 ea 20 41 25 2c 42 25 2c 43 25 2c 4f 4b 5f 25 2c |. A%,B%,C%,OK_%,|
00020510 61 5f 25 0d 78 3c 2e e7 a4 74 72 61 6e 73 5f 28 |a_%.x<...trans_(|
00020520 22 3c 46 6f 6e 74 24 50 61 74 68 3e 22 29 3d 22 |"<Font$Path>")="|
00020530 22 8c 66 68 61 6e 64 6c 65 5f 25 28 29 3d 30 3a |".fhandle_%()=0:|
00020540 e1 0d 78 41 1a 74 31 5f 25 28 29 3d 30 3a 49 4f |..xA.t1_%()=0:IO|
00020550 72 64 65 72 63 68 25 28 29 3d 30 0d 78 46 0c c8 |rderch%()=0.xF..|
00020560 99 26 34 30 36 43 30 0d 78 4b 14 e3 43 25 3d 31 |.&406C0.xK..C%=1|
00020570 b8 6d 61 78 69 66 6f 6e 74 5f 25 0d 78 50 1b 4f |.maxifont_%.xP.O|
00020580 4b 5f 25 3d 30 3a e3 41 25 3d 31 b8 6d 61 78 69 |K_%=0:.A%=1.maxi|
00020590 66 6f 6e 74 5f 25 0d 78 55 64 e7 4f 66 6f 6e 74 |font_%.xUd.Ofont|
000205a0 6e 61 6d 65 5f 24 28 43 25 29 3d 22 22 8c 41 25 |name_$(C%)="".A%|
000205b0 3d 6d 61 78 69 66 6f 6e 74 5f 25 3a 43 25 3d 6d |=maxifont_%:C%=m|
000205c0 61 78 69 66 6f 6e 74 5f 25 20 8b e7 4f 66 6f 6e |axifont_% ..Ofon|
000205d0 74 6e 61 6d 65 5f 24 28 43 25 29 3d 46 6f 5f 24 |tname_$(C%)=Fo_$|
000205e0 28 41 25 29 8c 4f 4b 5f 25 3d 41 25 3a 41 25 3d |(A%).OK_%=A%:A%=|
000205f0 6d 61 78 69 66 6f 6e 74 5f 25 0d 78 5a 05 ed 0d |maxifont_%.xZ...|
00020600 78 5f 9c e7 a4 63 68 61 6e 66 6f 6e 74 5f 28 43 |x_...chanfont_(C|
00020610 25 2c 4f 4b 5f 25 29 3d 31 3a e7 4f 4b 5f 25 3d |%,OK_%)=1:.OK_%=|
00020620 30 80 4f 66 6f 6e 74 6e 61 6d 65 5f 24 28 43 25 |0.Ofontname_$(C%|
00020630 29 3c 3e 22 22 3a e7 65 72 72 6f 72 5f 25 3d 30 |)<>"":.error_%=0|
00020640 3a c8 99 26 34 30 36 43 31 3a f2 70 65 5f 28 22 |:..&406C1:.pe_("|
00020650 46 6f 6e 74 20 27 22 2b 4f 66 6f 6e 74 6e 61 6d |Font '"+Ofontnam|
00020660 65 5f 24 28 43 25 29 2b 22 27 20 6e 6f 74 20 66 |e_$(C%)+"' not f|
00020670 6f 75 6e 64 2e 20 52 65 70 6c 61 63 65 64 20 62 |ound. Replaced b|
00020680 79 20 27 22 2b 46 6f 5f 24 28 30 29 2b 22 27 2e |y '"+Fo_$(0)+"'.|
00020690 22 29 3a c8 99 26 34 30 36 43 30 0d 78 64 05 ed |"):..&406C0.xd..|
000206a0 0d 78 69 40 4f 66 6f 6e 74 6e 61 6d 65 5f 24 28 |.xi@Ofontname_$(|
000206b0 29 3d 22 22 3a e3 41 25 3d 30 b8 6d 61 78 69 66 |)="":.A%=0.maxif|
000206c0 6f 6e 74 5f 25 3a 4f 66 6f 6e 74 6e 61 6d 65 5f |ont_%:Ofontname_|
000206d0 24 28 41 25 29 3d 46 6f 5f 24 28 41 25 29 3a ed |$(A%)=Fo_$(A%):.|
000206e0 0d 78 6e 11 49 4f 72 64 65 72 63 68 25 28 29 3d |.xn.IOrderch%()=|
000206f0 31 0d 78 73 0c c8 99 26 34 30 36 43 31 0d 78 78 |1.xs...&406C1.xx|
00020700 05 e1 0d 78 7d 04 0d 78 82 18 dd a4 63 68 61 6e |...x}..x....chan|
00020710 66 6f 6e 74 5f 28 41 5f 25 2c 42 5f 25 29 0d 78 |font_(A_%,B_%).x|
00020720 87 15 ea 20 43 25 2c 5a 25 2c 61 5f 25 3a 61 5f |... C%,Z%,a_%:a_|
00020730 25 3d 30 0d 78 a5 71 e7 74 31 5f 25 28 35 29 3d |%=0.x.q.t1_%(5)=|
00020740 30 3a e7 6a 5f 66 35 25 3d 41 5f 25 8c 6a 5f 66 |0:.j_f5%=A_%.j_f|
00020750 35 25 3d 42 5f 25 3a 74 31 5f 25 28 35 29 3d 31 |5%=B_%:t1_%(5)=1|
00020760 3a 61 5f 25 3d 31 3a e7 43 4c 61 62 53 75 25 3e |:a_%=1:.CLabSu%>|
00020770 30 8c 24 21 43 53 66 6f 6e 74 6e 61 6d 65 5f 25 |0.$!CSfontname_%|
00020780 3d 46 6f 5f 24 28 42 5f 25 29 3a f2 72 49 28 43 |=Fo_$(B_%):.rI(C|
00020790 4c 61 62 53 75 25 2c 22 43 53 66 6f 6e 74 6e 61 |LabSu%,"CSfontna|
000207a0 6d 65 22 29 0d 78 aa 6b e7 74 31 5f 25 28 36 29 |me").x.k.t1_%(6)|
000207b0 3d 30 3a e7 6a 5f 66 36 25 3d 41 5f 25 8c 6a 5f |=0:.j_f6%=A_%.j_|
000207c0 66 36 25 3d 42 5f 25 3a 74 31 5f 25 28 36 29 3d |f6%=B_%:t1_%(6)=|
000207d0 31 3a 61 5f 25 3d 31 3a e7 43 53 4c 73 75 25 3e |1:a_%=1:.CSLsu%>|
000207e0 30 8c 24 21 43 53 4c 66 6e 61 6d 65 5f 25 3d 46 |0.$!CSLfname_%=F|
000207f0 6f 5f 24 28 42 5f 25 29 3a f2 72 49 28 43 53 4c |o_$(B_%):.rI(CSL|
00020800 73 75 25 2c 22 43 53 4c 66 6e 61 6d 65 22 29 0d |su%,"CSLfname").|
00020810 78 b4 41 e7 74 31 5f 25 28 38 29 3d 30 3a e7 53 |x.A.t1_%(8)=0:.S|
00020820 61 6c 65 64 52 5f 25 28 31 35 29 3d 41 5f 25 8c |aledR_%(15)=A_%.|
00020830 53 61 6c 65 64 52 5f 25 28 31 35 29 3d 42 5f 25 |SaledR_%(15)=B_%|
00020840 3a 74 31 5f 25 28 38 29 3d 31 3a 61 5f 25 3d 31 |:t1_%(8)=1:a_%=1|
00020850 0d 78 b9 41 e7 74 31 5f 25 28 39 29 3d 30 3a e7 |.x.A.t1_%(9)=0:.|
00020860 50 61 6c 65 64 52 5f 25 28 31 35 29 3d 41 5f 25 |PaledR_%(15)=A_%|
00020870 8c 50 61 6c 65 64 52 5f 25 28 31 35 29 3d 42 5f |.PaledR_%(15)=B_|
00020880 25 3a 74 31 5f 25 28 39 29 3d 31 3a 61 5f 25 3d |%:t1_%(9)=1:a_%=|
00020890 31 0d 78 be 41 e7 74 31 5f 25 28 31 30 29 3d 30 |1.x.A.t1_%(10)=0|
000208a0 3a e7 42 61 6c 65 64 52 5f 25 28 39 29 3d 41 5f |:.BaledR_%(9)=A_|
000208b0 25 8c 42 61 6c 65 64 52 5f 25 28 39 29 3d 42 5f |%.BaledR_%(9)=B_|
000208c0 25 3a 74 31 5f 25 28 31 30 29 3d 31 3a 61 5f 25 |%:t1_%(10)=1:a_%|
000208d0 3d 31 0d 78 c3 37 e7 74 31 5f 25 28 31 31 29 3d |=1.x.7.t1_%(11)=|
000208e0 30 3a e7 58 6e 61 6d 5f 25 3d 41 5f 25 8c 58 6e |0:.Xnam_%=A_%.Xn|
000208f0 61 6d 5f 25 3d 42 5f 25 3a 74 31 5f 25 28 31 31 |am_%=B_%:t1_%(11|
00020900 29 3d 31 3a 61 5f 25 3d 31 0d 78 c8 3d e7 74 31 |)=1:a_%=1.x.=.t1|
00020910 5f 25 28 31 32 29 3d 30 3a e7 56 61 74 43 5f 25 |_%(12)=0:.VatC_%|
00020920 28 38 29 3d 41 5f 25 8c 56 61 74 43 5f 25 28 38 |(8)=A_%.VatC_%(8|
00020930 29 3d 42 5f 25 3a 74 31 5f 25 28 31 32 29 3d 31 |)=B_%:t1_%(12)=1|
00020940 3a 61 5f 25 3d 31 0d 78 e1 12 e3 43 25 3d 32 b8 |:a_%=1.x...C%=2.|
00020950 49 4f 69 63 6f 6e 73 25 0d 78 e6 d2 e7 49 4f 72 |IOicons%.x...IOr|
00020960 64 65 72 63 68 25 28 43 25 29 3d 30 3a e7 49 4f |derch%(C%)=0:.IO|
00020970 72 64 65 72 46 5f 25 28 43 25 29 3d 41 5f 25 8c |rderF_%(C%)=A_%.|
00020980 49 4f 72 64 65 72 46 5f 25 28 43 25 29 3d 42 5f |IOrderF_%(C%)=B_|
00020990 25 3a 49 4f 72 64 65 72 63 68 25 28 43 25 29 3d |%:IOrderch%(C%)=|
000209a0 31 3a 61 5f 25 3d 31 3a e7 49 4f 72 64 65 72 46 |1:a_%=1:.IOrderF|
000209b0 31 5f 25 28 43 25 29 3e 30 8c 49 4f 72 64 65 72 |1_%(C%)>0.IOrder|
000209c0 46 31 5f 25 28 43 25 29 3d a4 6c 6f 73 65 66 6f |F1_%(C%)=.losefo|
000209d0 6e 74 5f 28 49 4f 72 64 65 72 46 31 5f 25 28 43 |nt_(IOrderF1_%(C|
000209e0 25 29 29 3a 49 4f 72 64 65 72 46 31 5f 25 28 43 |%)):IOrderF1_%(C|
000209f0 25 29 3d a4 66 69 6e 64 66 6f 6e 74 5f 28 49 4f |%)=.findfont_(IO|
00020a00 72 64 65 72 46 5f 25 28 43 25 29 2c 49 4f 72 64 |rderF_%(C%),IOrd|
00020a10 65 72 66 78 5f 25 28 43 25 29 2c 49 4f 72 64 65 |erfx_%(C%),IOrde|
00020a20 72 66 79 5f 25 28 43 25 29 29 0d 78 eb 05 ed 0d |rfy_%(C%)).x....|
00020a30 78 ff 08 3d 61 5f 25 0d 79 04 04 0d 79 27 58 dd |x..=a_%.y...y'X.|
00020a40 a4 49 69 6e 69 74 4f 72 64 65 72 5f 3a 49 4f 62 |.IinitOrder_:IOb|
00020a50 6f 72 64 65 72 25 3d 2d 49 4f 62 6f 72 64 65 72 |order%=-IOborder|
00020a60 25 3a 49 4f 72 75 6c 65 72 25 3d 2d 49 4f 72 75 |%:IOruler%=-IOru|
00020a70 6c 65 72 25 3a f2 49 4f 69 6e 69 74 69 63 6f 6e |ler%:.IOiniticon|
00020a80 73 5f 3a f2 49 4f 69 6e 69 74 66 6f 6e 74 73 5f |s_:.IOinitfonts_|
00020a90 3a 3d b9 0d 79 31 04 0d 79 45 12 dd f2 49 4f 69 |:=..y1..yE...IOi|
00020aa0 6e 69 74 66 6f 6e 74 73 5f 0d 79 47 09 ea 20 5a |nitfonts_.yG.. Z|
00020ab0 5f 25 0d 79 4a 60 e3 5a 5f 25 3d 32 b8 49 4f 69 |_%.yJ`.Z_%=2.IOi|
00020ac0 63 6f 6e 73 25 3a 49 4f 72 64 65 72 46 31 5f 25 |cons%:IOrderF1_%|
00020ad0 28 5a 5f 25 29 3d a4 66 69 6e 64 66 6f 6e 74 5f |(Z_%)=.findfont_|
00020ae0 28 49 4f 72 64 65 72 46 5f 25 28 5a 5f 25 29 2c |(IOrderF_%(Z_%),|
00020af0 49 4f 72 64 65 72 66 78 5f 25 28 5a 5f 25 29 2c |IOrderfx_%(Z_%),|
00020b00 49 4f 72 64 65 72 66 79 5f 25 28 5a 5f 25 29 29 |IOrderfy_%(Z_%))|
00020b10 3a ed 0d 79 4f 05 e1 0d 79 81 2b dd f2 49 4f 69 |:..yO...y.+..IOi|
00020b20 6e 69 74 69 63 6f 6e 73 5f 3a e7 49 4f 63 68 5f |niticons_:.IOch_|
00020b30 25 3d 31 80 4f 72 64 65 72 43 5f 25 21 30 3d 30 |%=1.OrderC_%!0=0|
00020b40 8c e1 0d 79 86 ca 24 21 49 4f 74 69 74 6c 65 5f |...y..$!IOtitle_|
00020b50 25 3d 49 4f 72 64 65 72 53 5f 24 28 32 29 3a 24 |%=IOrderS_$(2):$|
00020b60 21 49 4f 68 65 61 64 5f 25 3d 49 4f 72 64 65 72 |!IOhead_%=IOrder|
00020b70 53 5f 24 28 33 29 3a 24 21 49 4f 6e 61 6d 65 5f |S_$(3):$!IOname_|
00020b80 25 3d 49 4f 72 64 65 72 53 5f 24 28 35 29 3a 24 |%=IOrderS_$(5):$|
00020b90 21 49 4f 61 64 64 31 31 5f 25 3d 49 4f 72 64 65 |!IOadd11_%=IOrde|
00020ba0 72 53 5f 24 28 36 29 3a 24 21 49 4f 61 64 64 32 |rS_$(6):$!IOadd2|
00020bb0 32 5f 25 3d 49 4f 72 64 65 72 53 5f 24 28 37 29 |2_%=IOrderS_$(7)|
00020bc0 3a 24 21 49 4f 61 64 64 33 33 5f 25 3d 49 4f 72 |:$!IOadd33_%=IOr|
00020bd0 64 65 72 53 5f 24 28 38 29 3a 24 21 49 4f 61 64 |derS_$(8):$!IOad|
00020be0 64 34 34 5f 25 3d 49 4f 72 64 65 72 53 5f 24 28 |d44_%=IOrderS_$(|
00020bf0 39 29 3a 24 21 49 4f 61 64 64 35 35 5f 25 3d 49 |9):$!IOadd55_%=I|
00020c00 4f 72 64 65 72 53 5f 24 28 31 30 29 0d 79 8b d0 |OrderS_$(10).y..|
00020c10 24 21 49 4f 74 65 6c 5f 25 3d 49 4f 72 64 65 72 |$!IOtel_%=IOrder|
00020c20 53 5f 24 28 31 32 29 3a 24 21 49 4f 66 61 78 5f |S_$(12):$!IOfax_|
00020c30 25 3d 49 4f 72 64 65 72 53 5f 24 28 31 33 29 3a |%=IOrderS_$(13):|
00020c40 24 21 49 4f 73 75 70 70 72 65 66 5f 25 3d 49 4f |$!IOsuppref_%=IO|
00020c50 72 64 65 72 53 5f 24 28 31 34 29 3a 24 21 49 4f |rderS_$(14):$!IO|
00020c60 79 6f 75 72 72 65 66 5f 25 3d 49 4f 72 64 65 72 |yourref_%=IOrder|
00020c70 53 5f 24 28 31 35 29 3a 24 21 49 4f 6e 75 6d 62 |S_$(15):$!IOnumb|
00020c80 65 72 5f 25 3d 49 4f 72 64 65 72 53 5f 24 28 31 |er_%=IOrderS_$(1|
00020c90 36 29 3a 24 21 49 4f 64 61 74 65 5f 25 3d 49 4f |6):$!IOdate_%=IO|
00020ca0 72 64 65 72 53 5f 24 28 32 30 29 3a 24 21 49 4f |rderS_$(20):$!IO|
00020cb0 64 65 5f 25 3d 49 4f 72 64 65 72 53 5f 24 28 32 |de_%=IOrderS_$(2|
00020cc0 31 29 3a 24 21 49 4f 74 65 78 74 31 5f 25 3d 49 |1):$!IOtext1_%=I|
00020cd0 4f 72 64 65 72 53 5f 24 28 32 32 29 0d 79 90 d3 |OrderS_$(22).y..|
00020ce0 24 21 49 4f 64 61 74 61 31 5f 25 3d 49 4f 72 64 |$!IOdata1_%=IOrd|
00020cf0 65 72 53 5f 24 28 32 33 29 3a 24 21 49 4f 64 61 |erS_$(23):$!IOda|
00020d00 74 61 32 5f 25 3d 49 4f 72 64 65 72 53 5f 24 28 |ta2_%=IOrderS_$(|
00020d10 32 34 29 3a 24 21 49 4f 64 61 74 61 33 5f 25 3d |24):$!IOdata3_%=|
00020d20 49 4f 72 64 65 72 53 5f 24 28 32 35 29 3a 24 21 |IOrderS_$(25):$!|
00020d30 49 4f 64 61 74 61 34 5f 25 3d 49 4f 72 64 65 72 |IOdata4_%=IOrder|
00020d40 53 5f 24 28 32 36 29 3a 24 21 49 4f 64 61 74 61 |S_$(26):$!IOdata|
00020d50 35 5f 25 3d 49 4f 72 64 65 72 53 5f 24 28 32 37 |5_%=IOrderS_$(27|
00020d60 29 3a 24 21 49 4f 64 61 74 61 36 5f 25 3d 49 4f |):$!IOdata6_%=IO|
00020d70 72 64 65 72 53 5f 24 28 33 30 29 3a 24 21 49 4f |rderS_$(30):$!IO|
00020d80 74 65 78 74 32 5f 25 3d 49 4f 72 64 65 72 53 5f |text2_%=IOrderS_|
00020d90 24 28 32 38 29 3a 24 21 49 4f 74 65 78 74 33 5f |$(28):$!IOtext3_|
00020da0 25 3d 49 4f 72 64 65 72 53 5f 24 28 32 39 29 0d |%=IOrderS_$(29).|
00020db0 79 95 d5 24 21 49 4f 74 65 78 74 34 5f 25 3d 49 |y..$!IOtext4_%=I|
00020dc0 4f 72 64 65 72 53 5f 24 28 33 32 29 3a 24 21 49 |OrderS_$(32):$!I|
00020dd0 4f 74 65 78 74 35 5f 25 3d 49 4f 72 64 65 72 53 |Otext5_%=IOrderS|
00020de0 5f 24 28 33 33 29 3a 24 21 49 4f 74 65 78 74 36 |_$(33):$!IOtext6|
00020df0 5f 25 3d 49 4f 72 64 65 72 53 5f 24 28 33 34 29 |_%=IOrderS_$(34)|
00020e00 3a 24 21 49 4f 74 65 78 74 37 5f 25 3d 49 4f 72 |:$!IOtext7_%=IOr|
00020e10 64 65 72 53 5f 24 28 33 35 29 3a 24 21 49 4f 74 |derS_$(35):$!IOt|
00020e20 65 78 74 38 5f 25 3d 49 4f 72 64 65 72 53 5f 24 |ext8_%=IOrderS_$|
00020e30 28 33 36 29 3a 24 21 49 4f 74 65 78 74 39 5f 25 |(36):$!IOtext9_%|
00020e40 3d 49 4f 72 64 65 72 53 5f 24 28 33 37 29 3a 24 |=IOrderS_$(37):$|
00020e50 21 49 4f 74 65 78 74 31 30 5f 25 3d 49 4f 72 64 |!IOtext10_%=IOrd|
00020e60 65 72 53 5f 24 28 33 38 29 3a 24 21 49 4f 74 65 |erS_$(38):$!IOte|
00020e70 78 74 31 31 5f 25 3d 49 4f 72 64 65 72 53 5f 24 |xt11_%=IOrderS_$|
00020e80 28 33 39 29 0d 79 9a db 24 21 49 4f 70 61 67 65 |(39).y..$!IOpage|
00020e90 5f 25 3d 49 4f 72 64 65 72 53 5f 24 28 34 30 29 |_%=IOrderS_$(40)|
00020ea0 3a 24 21 49 4f 64 69 73 63 5f 25 3d 49 4f 72 64 |:$!IOdisc_%=IOrd|
00020eb0 65 72 53 5f 24 28 34 32 29 3a 24 21 49 4f 76 61 |erS_$(42):$!IOva|
00020ec0 74 5f 25 3d 49 4f 72 64 65 72 53 5f 24 28 34 33 |t_%=IOrderS_$(43|
00020ed0 29 3a 24 21 49 4f 65 73 64 74 5f 25 3d 49 4f 72 |):$!IOesdt_%=IOr|
00020ee0 64 65 72 53 5f 24 28 34 34 29 3a 24 21 49 4f 65 |derS_$(44):$!IOe|
00020ef0 73 74 5f 25 3d 49 4f 72 64 65 72 53 5f 24 28 34 |st_%=IOrderS_$(4|
00020f00 35 29 3a 24 21 49 4f 76 74 5f 25 3d 49 4f 72 64 |5):$!IOvt_%=IOrd|
00020f10 65 72 53 5f 24 28 34 36 29 3a 24 21 49 4f 6e 74 |erS_$(46):$!IOnt|
00020f20 5f 25 3d 49 4f 72 64 65 72 53 5f 24 28 34 37 29 |_%=IOrderS_$(47)|
00020f30 3a 24 21 49 4f 76 6e 74 5f 25 3d 49 4f 72 64 65 |:$!IOvnt_%=IOrde|
00020f40 72 53 5f 24 28 34 38 29 3a 24 21 49 4f 76 72 5f |rS_$(48):$!IOvr_|
00020f50 25 3d 49 4f 72 64 65 72 53 5f 24 28 34 39 29 0d |%=IOrderS_$(49).|
00020f60 79 9f 7d 24 21 49 4f 76 61 5f 25 3d 49 4f 72 64 |y.}$!IOva_%=IOrd|
00020f70 65 72 53 5f 24 28 35 30 29 3a 24 21 49 4f 76 64 |erS_$(50):$!IOvd|
00020f80 74 5f 25 3d 49 4f 72 64 65 72 53 5f 24 28 35 31 |t_%=IOrderS_$(51|
00020f90 29 3a 24 21 49 4f 70 6f 73 74 5f 25 3d 49 4f 72 |):$!IOpost_%=IOr|
00020fa0 64 65 72 53 5f 24 28 31 31 29 3a 24 21 49 4f 64 |derS_$(11):$!IOd|
00020fb0 61 74 61 31 32 5f 25 3d 49 4f 72 64 65 72 53 5f |ata12_%=IOrderS_|
00020fc0 24 28 35 36 29 3a 24 21 49 4f 6e 72 5f 25 3d 49 |$(56):$!IOnr_%=I|
00020fd0 4f 72 64 65 72 53 5f 24 28 31 39 29 0d 79 a4 05 |OrderS_$(19).y..|
00020fe0 e1 0d 79 cc 04 0d 79 d1 17 dd a4 75 70 64 61 74 |..y...y....updat|
00020ff0 65 4f 72 64 65 72 5f 28 57 5f 25 29 0d 79 d6 18 |eOrder_(W_%).y..|
00021000 ea 20 41 25 2c 42 25 2c 44 25 2c 45 25 2c 5a 25 |. A%,B%,D%,E%,Z%|
00021010 2c 61 5f 25 0d 79 db 07 ea 20 85 0d 79 e0 1c ee |,a_%.y... ..y...|
00021020 20 85 20 ea 3a f7 20 85 3a f2 70 65 5f 28 a4 65 | . .:. .:.pe_(.e|
00021030 72 72 5f 29 3a 3d a3 0d 7a 17 0b e7 57 5f 25 3d |rr_):=..z...W_%=|
00021040 32 8c 0d 7a 1c 17 e7 49 4f 70 61 67 65 25 3d 30 |2..z...IOpage%=0|
00021050 8c c8 99 26 34 30 36 43 30 0d 7a 21 28 e7 49 4f |...&406C0.z!(.IO|
00021060 63 68 5f 25 3d 31 8c 5a 25 3d a4 49 4f 42 6f 72 |ch_%=1.Z%=.IOBor|
00021070 64 65 72 5f 3a 5a 25 3d a4 49 4f 52 75 6c 65 72 |der_:Z%=.IORuler|
00021080 5f 0d 7a 26 22 e7 69 70 6f 73 5f 25 3d 37 8c f2 |_.z&".ipos_%=7..|
00021090 49 6f 72 64 65 72 6d 70 49 5f 3a 69 70 6f 73 5f |IordermpI_:ipos_|
000210a0 25 3d 30 0d 7a 2b d1 49 4f 72 64 65 72 53 5f 24 |%=0.z+.IOrderS_$|
000210b0 28 32 29 3d 24 21 49 4f 74 69 74 6c 65 5f 25 3a |(2)=$!IOtitle_%:|
000210c0 49 4f 72 64 65 72 53 5f 24 28 33 29 3d 24 21 49 |IOrderS_$(3)=$!I|
000210d0 4f 68 65 61 64 5f 25 3a 49 4f 72 64 65 72 53 5f |Ohead_%:IOrderS_|
000210e0 24 28 34 29 3d 24 21 49 4f 73 75 70 70 6c 69 65 |$(4)=$!IOsupplie|
000210f0 72 5f 25 3a 49 4f 72 64 65 72 53 5f 24 28 31 34 |r_%:IOrderS_$(14|
00021100 29 3d 24 21 49 4f 73 75 70 70 72 65 66 5f 25 3a |)=$!IOsuppref_%:|
00021110 49 4f 72 64 65 72 53 5f 24 28 31 35 29 3d 24 21 |IOrderS_$(15)=$!|
00021120 49 4f 79 6f 75 72 72 65 66 5f 25 3a 49 4f 72 64 |IOyourref_%:IOrd|
00021130 65 72 53 5f 24 28 31 36 29 3d 24 21 49 4f 6e 75 |erS_$(16)=$!IOnu|
00021140 6d 62 65 72 5f 25 3a 49 4f 72 64 65 72 53 5f 24 |mber_%:IOrderS_$|
00021150 28 31 37 29 3d 24 21 49 4f 73 72 5f 25 3a 49 4f |(17)=$!IOsr_%:IO|
00021160 72 64 65 72 53 5f 24 28 31 38 29 3d 24 21 49 4f |rderS_$(18)=$!IO|
00021170 79 72 5f 25 0d 7a 30 d2 49 4f 72 64 65 72 53 5f |yr_%.z0.IOrderS_|
00021180 24 28 35 37 29 3d 24 21 49 4f 64 65 6c 69 76 65 |$(57)=$!IOdelive|
00021190 72 5f 25 3a 49 4f 72 64 65 72 53 5f 24 28 32 30 |r_%:IOrderS_$(20|
000211a0 29 3d 24 21 49 4f 64 61 74 65 5f 25 3a 49 4f 72 |)=$!IOdate_%:IOr|
000211b0 64 65 72 53 5f 24 28 32 31 29 3d c1 91 24 2c 35 |derS_$(21)=..$,5|
000211c0 2c 31 31 29 3a 49 4f 72 64 65 72 53 5f 24 28 32 |,11):IOrderS_$(2|
000211d0 32 29 3d 24 21 49 4f 74 65 78 74 31 5f 25 3a 49 |2)=$!IOtext1_%:I|
000211e0 4f 72 64 65 72 53 5f 24 28 32 33 29 3d 24 21 49 |OrderS_$(23)=$!I|
000211f0 4f 64 61 74 61 31 5f 25 3a 49 4f 72 64 65 72 53 |Odata1_%:IOrderS|
00021200 5f 24 28 32 34 29 3d 24 21 49 4f 64 61 74 61 32 |_$(24)=$!IOdata2|
00021210 5f 25 3a 49 4f 72 64 65 72 53 5f 24 28 32 35 29 |_%:IOrderS_$(25)|
00021220 3d 24 21 49 4f 64 61 74 61 33 5f 25 3a 49 4f 72 |=$!IOdata3_%:IOr|
00021230 64 65 72 53 5f 24 28 32 36 29 3d 24 21 49 4f 64 |derS_$(26)=$!IOd|
00021240 61 74 61 34 5f 25 0d 7a 35 d3 49 4f 72 64 65 72 |ata4_%.z5.IOrder|
00021250 53 5f 24 28 32 37 29 3d 24 21 49 4f 64 61 74 61 |S_$(27)=$!IOdata|
00021260 35 5f 25 3a 49 4f 72 64 65 72 53 5f 24 28 32 38 |5_%:IOrderS_$(28|
00021270 29 3d 24 21 49 4f 74 65 78 74 32 5f 25 3a 49 4f |)=$!IOtext2_%:IO|
00021280 72 64 65 72 53 5f 24 28 32 39 29 3d 24 21 49 4f |rderS_$(29)=$!IO|
00021290 74 65 78 74 33 5f 25 3a 49 4f 72 64 65 72 53 5f |text3_%:IOrderS_|
000212a0 24 28 33 30 29 3d 24 21 49 4f 64 61 74 61 36 5f |$(30)=$!IOdata6_|
000212b0 25 3a 49 4f 72 64 65 72 53 5f 24 28 33 31 29 3d |%:IOrderS_$(31)=|
000212c0 24 21 49 4f 64 61 74 61 37 5f 25 3a 49 4f 72 64 |$!IOdata7_%:IOrd|
000212d0 65 72 53 5f 24 28 33 32 29 3d 24 21 49 4f 74 65 |erS_$(32)=$!IOte|
000212e0 78 74 34 5f 25 3a 49 4f 72 64 65 72 53 5f 24 28 |xt4_%:IOrderS_$(|
000212f0 33 33 29 3d 24 21 49 4f 74 65 78 74 35 5f 25 3a |33)=$!IOtext5_%:|
00021300 49 4f 72 64 65 72 53 5f 24 28 33 34 29 3d 24 21 |IOrderS_$(34)=$!|
00021310 49 4f 74 65 78 74 36 5f 25 0d 7a 3a d0 49 4f 72 |IOtext6_%.z:.IOr|
00021320 64 65 72 53 5f 24 28 33 35 29 3d 24 21 49 4f 74 |derS_$(35)=$!IOt|
00021330 65 78 74 37 5f 25 3a 49 4f 72 64 65 72 53 5f 24 |ext7_%:IOrderS_$|
00021340 28 33 36 29 3d 24 21 49 4f 74 65 78 74 38 5f 25 |(36)=$!IOtext8_%|
00021350 3a 49 4f 72 64 65 72 53 5f 24 28 33 37 29 3d 24 |:IOrderS_$(37)=$|
00021360 21 49 4f 74 65 78 74 39 5f 25 3a 49 4f 72 64 65 |!IOtext9_%:IOrde|
00021370 72 53 5f 24 28 33 38 29 3d 24 21 49 4f 74 65 78 |rS_$(38)=$!IOtex|
00021380 74 31 30 5f 25 3a 49 4f 72 64 65 72 53 5f 24 28 |t10_%:IOrderS_$(|
00021390 33 39 29 3d 24 21 49 4f 74 65 78 74 31 31 5f 25 |39)=$!IOtext11_%|
000213a0 3a 49 4f 72 64 65 72 53 5f 24 28 34 30 29 3d 24 |:IOrderS_$(40)=$|
000213b0 21 49 4f 70 61 67 65 5f 25 3a 49 4f 72 64 65 72 |!IOpage_%:IOrder|
000213c0 53 5f 24 28 34 31 29 3d 24 21 49 4f 70 65 5f 25 |S_$(41)=$!IOpe_%|
000213d0 3a 49 4f 72 64 65 72 53 5f 24 28 34 32 29 3d 24 |:IOrderS_$(42)=$|
000213e0 21 49 4f 64 69 73 63 5f 25 0d 7a 3f d8 49 4f 72 |!IOdisc_%.z?.IOr|
000213f0 64 65 72 53 5f 24 28 34 33 29 3d 24 21 49 4f 76 |derS_$(43)=$!IOv|
00021400 61 74 5f 25 3a 49 4f 72 64 65 72 53 5f 24 28 34 |at_%:IOrderS_$(4|
00021410 34 29 3d 24 21 49 4f 65 73 64 74 5f 25 3a 49 4f |4)=$!IOesdt_%:IO|
00021420 72 64 65 72 53 5f 24 28 34 35 29 3d 24 21 49 4f |rderS_$(45)=$!IO|
00021430 65 73 74 5f 25 3a 49 4f 72 64 65 72 53 5f 24 28 |est_%:IOrderS_$(|
00021440 34 36 29 3d 24 21 49 4f 76 74 5f 25 3a 49 4f 72 |46)=$!IOvt_%:IOr|
00021450 64 65 72 53 5f 24 28 34 37 29 3d 24 21 49 4f 6e |derS_$(47)=$!IOn|
00021460 74 5f 25 3a 49 4f 72 64 65 72 53 5f 24 28 34 38 |t_%:IOrderS_$(48|
00021470 29 3d 24 21 49 4f 76 6e 74 5f 25 3a 49 4f 72 64 |)=$!IOvnt_%:IOrd|
00021480 65 72 53 5f 24 28 34 39 29 3d 24 21 49 4f 76 72 |erS_$(49)=$!IOvr|
00021490 5f 25 3a 49 4f 72 64 65 72 53 5f 24 28 35 30 29 |_%:IOrderS_$(50)|
000214a0 3d 24 21 49 4f 76 61 5f 25 3a 49 4f 72 64 65 72 |=$!IOva_%:IOrder|
000214b0 53 5f 24 28 35 31 29 3d 24 21 49 4f 76 64 74 5f |S_$(51)=$!IOvdt_|
000214c0 25 0d 7a 44 6d 49 4f 72 64 65 72 53 5f 24 28 35 |%.zDmIOrderS_$(5|
000214d0 32 29 3d 24 21 49 4f 64 61 74 61 38 5f 25 3a 49 |2)=$!IOdata8_%:I|
000214e0 4f 72 64 65 72 53 5f 24 28 35 33 29 3d 24 21 49 |OrderS_$(53)=$!I|
000214f0 4f 64 61 74 61 39 5f 25 3a 49 4f 72 64 65 72 53 |Odata9_%:IOrderS|
00021500 5f 24 28 35 34 29 3d 24 21 49 4f 64 61 74 61 31 |_$(54)=$!IOdata1|
00021510 30 5f 25 3a 49 4f 72 64 65 72 53 5f 24 28 35 35 |0_%:IOrderS_$(55|
00021520 29 3d 24 21 49 4f 64 61 74 61 31 31 5f 25 0d 7a |)=$!IOdata11_%.z|
00021530 49 11 f2 49 4f 69 6e 69 74 69 63 6f 6e 73 5f 0d |I..IOiniticons_.|
00021540 7a 4e 05 cd 0d 7a 8a 17 41 25 3d 6d 6f 64 65 78 |zN...z..A%=modex|
00021550 25 3a 42 25 3d 6d 6f 64 65 79 25 0d 7a 8f 19 c8 |%:B%=modey%.z...|
00021560 99 26 33 35 2c 2d 31 2c 34 20 b8 20 2c 2c 6d 6f |.&35,-1,4 . ,,mo|
00021570 64 65 78 25 0d 7a 94 19 c8 99 26 33 35 2c 2d 31 |dex%.z....&35,-1|
00021580 2c 35 20 b8 20 2c 2c 6d 6f 64 65 79 25 0d 7a 99 |,5 . ,,modey%.z.|
00021590 10 45 25 3d 66 6f 6e 6c 69 6e 6b 5f 25 0d 7a c1 |.E%=fonlink_%.z.|
000215a0 0b e7 57 5f 25 3d 32 8c 0d 7a c6 39 e7 41 25 3c |..W_%=2..z.9.A%<|
000215b0 3e 6d 6f 64 65 78 25 84 42 25 3c 3e 6d 6f 64 65 |>modex%.B%<>mode|
000215c0 79 25 8c 5a 25 3d a4 49 6c 6f 73 65 4f 66 6f 6e |y%.Z%=.IloseOfon|
000215d0 74 73 5f 3a f2 49 4f 69 6e 69 74 66 6f 6e 74 73 |ts_:.IOinitfonts|
000215e0 5f 0d 7a cb 4d e3 5a 25 3d 49 6f 72 69 5f 25 b8 |_.z.M.Z%=Iori_%.|
000215f0 49 4f 69 63 6f 6e 73 25 3a e7 49 4f 63 68 5f 25 |IOicons%:.IOch_%|
00021600 3d 31 3a e7 4f 72 64 65 72 43 5f 25 21 30 3d 30 |=1:.OrderC_%!0=0|
00021610 8c 69 70 6f 73 5f 25 3d 37 3a e7 5a 25 3e 34 80 |.ipos_%=7:.Z%>4.|
00021620 5a 25 3c 31 34 8c 69 70 6f 73 5f 25 3d 30 0d 7a |Z%<14.ipos_%=0.z|
00021630 d0 52 e7 49 4f 72 64 65 72 63 68 25 28 5a 25 29 |.R.IOrderch%(Z%)|
00021640 3d 31 8c 66 6f 6e 6c 69 6e 6b 5f 25 3d 5a 25 2b |=1.fonlink_%=Z%+|
00021650 49 41 66 6f 6e 5f 25 3a f2 49 6f 72 64 65 72 6d |IAfon_%:.Iorderm|
00021660 70 49 5f 3a 49 4f 6a 75 73 74 5f 25 28 5a 25 29 |pI_:IOjust_%(Z%)|
00021670 3d a4 4f 74 69 74 6c 65 46 5f 28 5a 25 2c 32 29 |=.OtitleF_(Z%,2)|
00021680 0d 7a d5 05 ed 0d 7a da 2a 44 25 3d 49 4f 77 69 |.z....z.*D%=IOwi|
00021690 6e 64 25 3a e7 49 4f 63 68 5f 25 3d 31 8c 69 70 |nd%:.IOch_%=1.ip|
000216a0 6f 73 5f 25 3d 30 3a 49 4f 63 68 5f 25 3d 30 0d |os_%=0:IOch_%=0.|
000216b0 7a df 05 cd 0d 7b 07 10 66 6f 6e 6c 69 6e 6b 5f |z....{..fonlink_|
000216c0 25 3d 45 25 0d 7b 0c 14 f2 4f 70 61 67 65 73 69 |%=E%.{...Opagesi|
000216d0 7a 65 5f 28 57 5f 25 29 0d 7b 11 10 62 6c 6f 63 |ze_(W_%).{..bloc|
000216e0 6b 5f 25 21 30 3d 44 25 0d 7b 16 15 c8 99 26 34 |k_%!0=D%.{....&4|
000216f0 30 30 43 43 2c 2c 62 6c 6f 63 6b 5f 25 0d 7b 1b |00CC,,block_%.{.|
00021700 a7 e7 4f 70 61 70 65 72 33 25 3e 62 6c 6f 63 6b |..Opaper3%>block|
00021710 5f 25 21 35 32 84 4f 70 61 70 65 72 32 25 3c 62 |_%!52.Opaper2%<b|
00021720 6c 6f 63 6b 5f 25 21 34 38 84 4f 70 61 70 65 72 |lock_%!48.Opaper|
00021730 33 25 3c 62 6c 6f 63 6b 5f 25 21 35 32 84 4f 70 |3%<block_%!52.Op|
00021740 61 70 65 72 32 25 3e 62 6c 6f 63 6b 5f 25 21 34 |aper2%>block_%!4|
00021750 38 8c 62 6c 6f 63 6b 5f 25 21 30 3d 30 3a 62 6c |8.block_%!0=0:bl|
00021760 6f 63 6b 5f 25 21 34 3d 4f 70 61 70 65 72 32 25 |ock_%!4=Opaper2%|
00021770 3a 62 6c 6f 63 6b 5f 25 21 38 3d 4f 70 61 70 65 |:block_%!8=Opape|
00021780 72 33 25 3a 62 6c 6f 63 6b 5f 25 21 31 32 3d 30 |r3%:block_%!12=0|
00021790 3a c8 99 26 34 30 30 44 37 2c 44 25 2c 62 6c 6f |:..&400D7,D%,blo|
000217a0 63 6b 5f 25 0d 7b 20 a6 e7 65 72 72 6f 72 5f 25 |ck_%.{ ..error_%|
000217b0 3d 30 3a c8 99 26 34 30 30 43 46 2c 2c 63 62 6c |=0:..&400CF,,cbl|
000217c0 6f 63 6b 5f 25 3a 61 5f 25 3d 63 62 6c 6f 63 6b |ock_%:a_%=cblock|
000217d0 5f 25 21 31 32 3a e7 63 62 6c 6f 63 6b 5f 25 21 |_%!12:.cblock_%!|
000217e0 31 32 3d 44 25 3a 63 62 6c 6f 63 6b 5f 25 21 30 |12=D%:cblock_%!0|
000217f0 3d 63 62 6c 6f 63 6b 5f 25 21 31 32 3a c8 99 26 |=cblock_%!12:..&|
00021800 34 30 30 43 42 2c 2c 63 62 6c 6f 63 6b 5f 25 3a |400CB,,cblock_%:|
00021810 e7 28 63 62 6c 6f 63 6b 5f 25 21 33 32 3e 3e 32 |.(cblock_%!32>>2|
00021820 37 29 83 32 3a e7 28 63 62 6c 6f 63 6b 5f 25 21 |7).2:.(cblock_%!|
00021830 33 32 3e 3e 31 38 29 83 32 8c f2 73 65 65 77 69 |32>>18).2..seewi|
00021840 6e 64 5f 28 44 25 2c 2d 31 29 0d 7b 2a 1e e7 57 |nd_(D%,-1).{*..W|
00021850 5f 25 3d 32 3a e7 49 4f 70 61 67 65 25 3d 30 8c |_%=2:.IOpage%=0.|
00021860 c8 99 26 34 30 36 43 31 0d 7b 39 8c e7 57 5f 25 |..&406C1.{9..W_%|
00021870 3d 32 3a e7 24 77 6e 25 3d 22 49 6e 76 6f 69 63 |=2:.$wn%="Invoic|
00021880 65 57 22 3a e7 52 25 3d 31 32 84 52 25 3d 35 3a |eW":.R%=12.R%=5:|
00021890 c8 99 26 34 30 30 44 33 2c 2c 62 6c 6f 63 6b 5f |..&400D3,,block_|
000218a0 25 3a c8 99 26 34 30 30 43 46 2c 2c 63 62 6c 6f |%:..&400CF,,cblo|
000218b0 63 6b 5f 25 3a e7 63 62 6c 6f 63 6b 5f 25 21 31 |ck_%:.cblock_%!1|
000218c0 32 3d 49 4f 77 69 6e 64 25 3a e7 62 6c 6f 63 6b |2=IOwind%:.block|
000218d0 5f 25 21 30 3c 3e 49 4f 77 69 6e 64 25 3a f2 73 |_%!0<>IOwind%:.s|
000218e0 65 74 43 31 5f 28 49 4f 77 69 6e 64 25 2c 77 66 |etC1_(IOwind%,wf|
000218f0 32 5f 25 29 0d 7b 43 06 3d b9 0d 7b 48 04 0d 7b |2_%).{C.=..{H..{|
00021900 4d 29 dd f2 73 65 65 77 69 6e 64 31 5f 3a ea 20 |M)..seewind1_:. |
00021910 70 69 78 25 2c 70 69 79 25 2c 6d 6f 64 65 78 25 |pix%,piy%,modex%|
00021920 2c 6d 6f 64 65 79 25 0d 7b 52 33 e7 51 25 21 31 |,modey%.{R3.Q%!1|
00021930 32 2d 51 25 21 34 3c 51 25 21 35 32 2d 51 25 21 |2-Q%!4<Q%!52-Q%!|
00021940 34 34 84 51 25 21 31 36 2d 51 25 21 38 3c 51 25 |44.Q%!16-Q%!8<Q%|
00021950 21 35 36 2d 51 25 21 34 38 8c 0d 7b 57 7f c8 99 |!56-Q%!48..{W...|
00021960 26 33 35 2c 2d 31 2c 34 20 b8 20 2c 2c 6d 6f 64 |&35,-1,4 . ,,mod|
00021970 65 78 25 3a c8 99 26 33 35 2c 2d 31 2c 35 20 b8 |ex%:..&35,-1,5 .|
00021980 20 2c 2c 6d 6f 64 65 79 25 3a c8 99 26 33 35 2c | ,,modey%:..&35,|
00021990 2d 31 2c 31 31 20 b8 20 2c 2c 70 69 78 25 3a 70 |-1,11 . ,,pix%:p|
000219a0 69 78 25 3d 70 69 78 25 2a 32 2a 6d 6f 64 65 78 |ix%=pix%*2*modex|
000219b0 25 3a c8 99 26 33 35 2c 2d 31 2c 31 32 20 b8 20 |%:..&35,-1,12 . |
000219c0 2c 2c 70 69 79 25 3a 70 69 79 25 3d 70 69 79 25 |,,piy%:piy%=piy%|
000219d0 2a 32 2a 6d 6f 64 65 79 25 0d 7b 5c 33 51 25 21 |*2*modey%.{\3Q%!|
000219e0 34 3d 30 3a 51 25 21 31 32 3d 51 25 21 35 32 2d |4=0:Q%!12=Q%!52-|
000219f0 51 25 21 34 34 3a e7 51 25 21 31 32 3e 70 69 78 |Q%!44:.Q%!12>pix|
00021a00 25 8c 51 25 21 31 32 3d 70 69 78 25 0d 7b 61 3d |%.Q%!12=pix%.{a=|
00021a10 51 25 21 31 36 3d 70 69 79 25 2d 34 30 3a 51 25 |Q%!16=piy%-40:Q%|
00021a20 21 38 3d 70 69 79 25 2d 28 51 25 21 35 36 2d 51 |!8=piy%-(Q%!56-Q|
00021a30 25 21 34 38 29 2d 34 30 3a e7 51 25 21 38 3c 34 |%!48)-40:.Q%!8<4|
00021a40 30 8c 51 25 21 38 3d 34 30 0d 7b 66 05 cd 0d 7b |0.Q%!8=40.{f...{|
00021a50 6b 05 e1 0d 7b 70 04 0d 7b 75 17 dd f2 73 65 65 |k...{p..{u...see|
00021a60 77 69 6e 64 5f 28 57 5f 25 2c 49 5f 25 29 0d 7b |wind_(W_%,I_%).{|
00021a70 7a 0c e7 57 5f 25 3c 30 8c e1 0d 7b 7f 4c ea 20 |z..W_%<0...{.L. |
00021a80 69 63 6f 6e 78 31 25 2c 69 63 6f 6e 78 32 25 2c |iconx1%,iconx2%,|
00021a90 76 69 73 78 31 25 2c 76 69 73 78 32 25 2c 77 6f |visx1%,visx2%,wo|
00021aa0 72 6b 78 31 25 2c 77 6f 72 6b 78 32 25 2c 70 69 |rkx1%,workx2%,pi|
00021ab0 78 25 2c 70 69 79 25 2c 73 63 72 78 25 2c 73 63 |x%,piy%,scrx%,sc|
00021ac0 72 79 25 2c 5a 25 0d 7b 84 44 ea 20 69 63 6f 6e |ry%,Z%.{.D. icon|
00021ad0 79 31 25 2c 69 63 6f 6e 79 32 25 2c 76 69 73 79 |y1%,icony2%,visy|
00021ae0 31 25 2c 76 69 73 79 32 25 2c 77 6f 72 6b 79 31 |1%,visy2%,worky1|
00021af0 25 2c 77 6f 72 6b 79 32 25 2c 6d 6f 64 65 78 25 |%,worky2%,modex%|
00021b00 2c 6d 6f 64 65 79 25 2c 5a 25 0d 7b 89 1f 62 6c |,modey%,Z%.{..bl|
00021b10 6f 63 6b 5f 25 21 30 3d 57 5f 25 3a 62 6c 6f 63 |ock_%!0=W_%:bloc|
00021b20 6b 5f 25 21 34 3d 49 5f 25 0d 7b 8e 19 c8 99 26 |k_%!4=I_%.{....&|
00021b30 33 35 2c 2d 31 2c 34 20 b8 20 2c 2c 6d 6f 64 65 |35,-1,4 . ,,mode|
00021b40 78 25 0d 7b 93 19 c8 99 26 33 35 2c 2d 31 2c 35 |x%.{....&35,-1,5|
00021b50 20 b8 20 2c 2c 6d 6f 64 65 79 25 0d 7b 98 2b c8 | . ,,modey%.{.+.|
00021b60 99 26 33 35 2c 2d 31 2c 31 31 20 b8 20 2c 2c 70 |.&35,-1,11 . ,,p|
00021b70 69 78 25 3a 70 69 78 25 3d 70 69 78 25 2a 32 2a |ix%:pix%=pix%*2*|
00021b80 6d 6f 64 65 78 25 0d 7b 9d 2b c8 99 26 33 35 2c |modex%.{.+..&35,|
00021b90 2d 31 2c 31 32 20 b8 20 2c 2c 70 69 79 25 3a 70 |-1,12 . ,,piy%:p|
00021ba0 69 79 25 3d 70 69 79 25 2a 32 2a 6d 6f 64 65 79 |iy%=piy%*2*modey|
00021bb0 25 0d 7b a2 7f e7 49 5f 25 3e 2d 31 8c c8 99 26 |%.{...I_%>-1...&|
00021bc0 34 30 30 43 45 2c 2c 62 6c 6f 63 6b 5f 25 3a 69 |400CE,,block_%:i|
00021bd0 63 6f 6e 78 31 25 3d 62 6c 6f 63 6b 5f 25 21 38 |conx1%=block_%!8|
00021be0 3a 69 63 6f 6e 79 31 25 3d 62 6c 6f 63 6b 5f 25 |:icony1%=block_%|
00021bf0 21 31 32 3a 69 63 6f 6e 78 32 25 3d 62 6c 6f 63 |!12:iconx2%=bloc|
00021c00 6b 5f 25 21 31 36 3a 69 63 6f 6e 79 32 25 3d 62 |k_%!16:icony2%=b|
00021c10 6c 6f 63 6b 5f 25 21 32 30 3a e7 62 6c 6f 63 6b |lock_%!20:.block|
00021c20 5f 25 21 30 3c 3e 57 5f 25 8c 49 5f 25 3d 2d 31 |_%!0<>W_%.I_%=-1|
00021c30 0d 7b a7 d7 62 6c 6f 63 6b 5f 25 21 30 3d 57 5f |.{..block_%!0=W_|
00021c40 25 3a c8 99 26 34 30 30 43 43 2c 2c 62 6c 6f 63 |%:..&400CC,,bloc|
00021c50 6b 5f 25 3a 77 6f 72 6b 78 31 25 3d 62 6c 6f 63 |k_%:workx1%=bloc|
00021c60 6b 5f 25 21 34 34 3a 77 6f 72 6b 79 31 25 3d 62 |k_%!44:worky1%=b|
00021c70 6c 6f 63 6b 5f 25 21 34 38 3a 77 6f 72 6b 78 32 |lock_%!48:workx2|
00021c80 25 3d 62 6c 6f 63 6b 5f 25 21 35 32 3a 77 6f 72 |%=block_%!52:wor|
00021c90 6b 79 32 25 3d 62 6c 6f 63 6b 5f 25 21 35 36 3a |ky2%=block_%!56:|
00021ca0 76 69 73 78 31 25 3d 62 6c 6f 63 6b 5f 25 21 34 |visx1%=block_%!4|
00021cb0 3a 76 69 73 79 31 25 3d 62 6c 6f 63 6b 5f 25 21 |:visy1%=block_%!|
00021cc0 38 3a 76 69 73 78 32 25 3d 62 6c 6f 63 6b 5f 25 |8:visx2%=block_%|
00021cd0 21 31 32 3a 76 69 73 79 32 25 3d 62 6c 6f 63 6b |!12:visy2%=block|
00021ce0 5f 25 21 31 36 3a 73 63 72 78 25 3d 62 6c 6f 63 |_%!16:scrx%=bloc|
00021cf0 6b 5f 25 21 32 30 3a 73 63 72 79 25 3d 62 6c 6f |k_%!20:scry%=blo|
00021d00 63 6b 5f 25 21 32 34 0d 7b ac 3e e7 76 69 73 78 |ck_%!24.{.>.visx|
00021d10 31 25 3c 30 8c 62 6c 6f 63 6b 5f 25 21 34 3d 30 |1%<0.block_%!4=0|
00021d20 3a 62 6c 6f 63 6b 5f 25 21 31 32 3d 62 6c 6f 63 |:block_%!12=bloc|
00021d30 6b 5f 25 21 31 32 2b 94 28 76 69 73 78 31 25 29 |k_%!12+.(visx1%)|
00021d40 3a 5a 25 3d 31 0d 7b b1 52 e7 76 69 73 79 32 25 |:Z%=1.{.R.visy2%|
00021d50 3e 70 69 79 25 2d 34 30 8c 62 6c 6f 63 6b 5f 25 |>piy%-40.block_%|
00021d60 21 31 36 3d 70 69 79 25 2d 34 30 3a 62 6c 6f 63 |!16=piy%-40:bloc|
00021d70 6b 5f 25 21 38 3d 62 6c 6f 63 6b 5f 25 21 38 2d |k_%!8=block_%!8-|
00021d80 28 76 69 73 79 32 25 2d 28 70 69 79 25 2d 34 30 |(visy2%-(piy%-40|
00021d90 29 29 3a 5a 25 3d 31 0d 7b b6 6e e7 62 6c 6f 63 |)):Z%=1.{.n.bloc|
00021da0 6b 5f 25 21 31 32 3e 70 69 78 25 8c 62 6c 6f 63 |k_%!12>pix%.bloc|
00021db0 6b 5f 25 21 34 3d 62 6c 6f 63 6b 5f 25 21 34 2d |k_%!4=block_%!4-|
00021dc0 28 62 6c 6f 63 6b 5f 25 21 31 32 2d 70 69 78 25 |(block_%!12-pix%|
00021dd0 29 2d 34 30 3a 62 6c 6f 63 6b 5f 25 21 31 32 3d |)-40:block_%!12=|
00021de0 70 69 78 25 2d 34 30 3a 5a 25 3d 31 3a e7 62 6c |pix%-40:Z%=1:.bl|
00021df0 6f 63 6b 5f 25 21 34 3c 30 8c 62 6c 6f 63 6b 5f |ock_%!4<0.block_|
00021e00 25 21 34 3d 30 0d 7b bb 6c e7 62 6c 6f 63 6b 5f |%!4=0.{.l.block_|
00021e10 25 21 38 3c 30 8c 62 6c 6f 63 6b 5f 25 21 38 3d |%!8<0.block_%!8=|
00021e20 34 30 3a 62 6c 6f 63 6b 5f 25 21 31 36 3d 62 6c |40:block_%!16=bl|
00021e30 6f 63 6b 5f 25 21 31 36 2b 94 28 76 69 73 79 31 |ock_%!16+.(visy1|
00021e40 25 29 2b 34 30 3a 5a 25 3d 31 3a e7 62 6c 6f 63 |%)+40:Z%=1:.bloc|
00021e50 6b 5f 25 21 31 36 3e 70 69 79 25 2d 34 30 8c 62 |k_%!16>piy%-40.b|
00021e60 6c 6f 63 6b 5f 25 21 31 36 3d 70 69 79 25 2d 34 |lock_%!16=piy%-4|
00021e70 30 0d 7b c0 0c e7 49 5f 25 3e 2d 31 8c 0d 7b c5 |0.{...I_%>-1..{.|
00021e80 2f e7 69 63 6f 6e 78 31 25 3c 62 6c 6f 63 6b 5f |/.iconx1%<block_|
00021e90 25 21 32 30 8c 62 6c 6f 63 6b 5f 25 21 32 30 3d |%!20.block_%!20=|
00021ea0 69 63 6f 6e 78 31 25 3a 5a 25 3d 31 0d 7b ca 46 |iconx1%:Z%=1.{.F|
00021eb0 e7 69 63 6f 6e 78 32 25 3e 62 6c 6f 63 6b 5f 25 |.iconx2%>block_%|
00021ec0 21 32 30 2b 28 62 6c 6f 63 6b 5f 25 21 31 32 2d |!20+(block_%!12-|
00021ed0 62 6c 6f 63 6b 5f 25 21 34 29 8c 62 6c 6f 63 6b |block_%!4).block|
00021ee0 5f 25 21 32 30 3d 69 63 6f 6e 78 31 25 3a 5a 25 |_%!20=iconx1%:Z%|
00021ef0 3d 31 0d 7b cf 46 e7 69 63 6f 6e 79 31 25 3c 62 |=1.{.F.icony1%<b|
00021f00 6c 6f 63 6b 5f 25 21 32 34 2d 28 62 6c 6f 63 6b |lock_%!24-(block|
00021f10 5f 25 21 31 36 2d 62 6c 6f 63 6b 5f 25 21 38 29 |_%!16-block_%!8)|
00021f20 8c 62 6c 6f 63 6b 5f 25 21 32 34 3d 69 63 6f 6e |.block_%!24=icon|
00021f30 79 32 25 3a 5a 25 3d 31 0d 7b d4 2f e7 69 63 6f |y2%:Z%=1.{./.ico|
00021f40 6e 79 32 25 3e 62 6c 6f 63 6b 5f 25 21 32 34 8c |ny2%>block_%!24.|
00021f50 62 6c 6f 63 6b 5f 25 21 32 34 3d 69 63 6f 6e 79 |block_%!24=icony|
00021f60 32 25 3a 5a 25 3d 31 0d 7b d9 05 cd 0d 7b de 29 |2%:Z%=1.{....{.)|
00021f70 e7 5a 25 3d 31 8c 62 6c 6f 63 6b 5f 25 21 30 3d |.Z%=1.block_%!0=|
00021f80 57 5f 25 3a c8 99 26 34 30 30 43 35 2c 2c 62 6c |W_%:..&400C5,,bl|
00021f90 6f 63 6b 5f 25 0d 7b e3 05 e1 0d 7b e8 04 0d 7b |ock_%.{....{...{|
00021fa0 ed 0e dd f2 6f 72 64 65 72 6d 66 5f 0d 7b f7 18 |....ordermf_.{..|
00021fb0 e7 6c 77 5f 25 3d 32 3a e7 49 4f 77 69 6e 64 25 |.lw_%=2:.IOwind%|
00021fc0 3d 30 8c e1 0d 7c 01 17 e7 52 25 3c 35 84 52 25 |=0...|...R%<5.R%|
00021fd0 3e 37 80 52 25 3c 3e 31 32 8c e1 0d 7c 06 08 ea |>7.R%<>12...|...|
00021fe0 20 5a 25 0d 7c 0b 09 21 62 25 3d 30 0d 7c 15 1a | Z%.|..!b%=0.|..|
00021ff0 e7 6c 77 5f 25 3d 32 3a 5a 25 3d a4 49 4f 72 64 |.lw_%=2:Z%=.IOrd|
00022000 65 72 66 5f 3a e1 0d 7c 1f 05 e1 0d 7c 24 04 0d |erf_:..|....|$..|
00022010 7c 29 0f dd a4 49 4f 72 64 65 72 66 75 5f 0d 7c ||)...IOrderfu_.||
00022020 2e 0b ea 20 41 25 2c 5a 25 0d 7c 33 21 4f 72 64 |... A%,Z%.|3!Ord|
00022030 65 72 46 55 5f 25 3d a4 66 6f 6e 74 6e 75 6d 28 |erFU_%=.fontnum(|
00022040 4f 72 64 65 72 46 55 5f 25 29 0d 7c 38 33 24 21 |OrderFU_%).|83$!|
00022050 49 4f 72 64 65 72 66 75 5f 25 3d 46 6f 5f 24 28 |IOrderfu_%=Fo_$(|
00022060 4f 72 64 65 72 46 55 5f 25 29 3a f2 72 49 28 57 |OrderFU_%):.rI(W|
00022070 25 2c 22 49 4f 72 64 65 72 66 75 22 29 0d 7c 60 |%,"IOrderfu").|`|
00022080 11 e7 66 6f 6e 6c 69 6e 6b 5f 25 3d 39 8c 0d 7c |..fonlink_%=9..||
00022090 65 12 e3 41 25 3d 32 b8 49 4f 69 63 6f 6e 73 25 |e..A%=2.IOicons%|
000220a0 0d 7c 6a 43 49 4f 72 64 65 72 66 78 5f 25 28 41 |.|jCIOrderfx_%(A|
000220b0 25 29 3d bb 28 24 21 49 4f 72 64 65 72 66 78 75 |%)=.($!IOrderfxu|
000220c0 5f 25 29 3a 49 4f 72 64 65 72 66 79 5f 25 28 41 |_%):IOrderfy_%(A|
000220d0 25 29 3d bb 28 24 21 49 4f 72 64 65 72 66 79 75 |%)=.($!IOrderfyu|
000220e0 5f 25 29 0d 7c 6f 1b 49 4f 72 64 65 72 46 5f 25 |_%).|o.IOrderF_%|
000220f0 28 41 25 29 3d 4f 72 64 65 72 46 55 5f 25 0d 7c |(A%)=OrderFU_%.||
00022100 74 78 5a 25 3d a4 6c 6f 73 65 66 6f 6e 74 5f 28 |txZ%=.losefont_(|
00022110 49 4f 72 64 65 72 46 31 5f 25 28 41 25 29 29 3a |IOrderF1_%(A%)):|
00022120 49 4f 72 64 65 72 46 31 5f 25 28 41 25 29 3d a4 |IOrderF1_%(A%)=.|
00022130 66 69 6e 64 66 6f 6e 74 5f 28 49 4f 72 64 65 72 |findfont_(IOrder|
00022140 46 5f 25 28 41 25 29 2c 49 4f 72 64 65 72 66 78 |F_%(A%),IOrderfx|
00022150 5f 25 28 41 25 29 2c 49 4f 72 64 65 72 66 79 5f |_%(A%),IOrderfy_|
00022160 25 28 41 25 29 29 3a 49 4f 72 64 65 72 63 68 25 |%(A%)):IOrderch%|
00022170 28 41 25 29 3d 31 0d 7c 79 19 ed 3a 5a 25 3d a4 |(A%)=1.|y..:Z%=.|
00022180 75 70 64 61 74 65 4f 72 64 65 72 5f 28 32 29 0d |updateOrder_(2).|
00022190 7c 7e 05 cd 0d 7c a6 06 3d b9 0d 7c ab 04 0d 7c ||~...|..=..|...||
000221a0 b0 22 dd a4 49 4f 72 64 65 72 66 78 75 5f 3a 21 |."..IOrderfxu_:!|
000221b0 62 25 3d 30 3a 3d a4 49 4f 72 64 65 72 66 75 5f |b%=0:=.IOrderfu_|
000221c0 0d 7c b5 22 dd a4 49 4f 72 64 65 72 66 79 75 5f |.|."..IOrderfyu_|
000221d0 3a 21 62 25 3d 30 3a 3d a4 49 4f 72 64 65 72 66 |:!b%=0:=.IOrderf|
000221e0 75 5f 0d 7c b6 1f dd a4 4f 72 64 65 72 66 78 5f |u_.|....Orderfx_|
000221f0 3a 21 62 25 3d 30 3a 3d a4 49 4f 72 64 65 72 66 |:!b%=0:=.IOrderf|
00022200 5f 0d 7c b7 1f dd a4 4f 72 64 65 72 66 79 5f 3a |_.|....Orderfy_:|
00022210 21 62 25 3d 30 3a 3d a4 49 4f 72 64 65 72 66 5f |!b%=0:=.IOrderf_|
00022220 0d 7c b8 18 dd a4 4f 72 64 65 72 66 5f 3a 3d a4 |.|....Orderf_:=.|
00022230 49 4f 72 64 65 72 66 5f 0d 7c e7 0e dd a4 49 4f |IOrderf_.|....IO|
00022240 72 64 65 72 66 5f 0d 7c ec 0b ea 20 41 25 2c 5a |rderf_.|... A%,Z|
00022250 25 0d 7c f1 2d 41 25 3d 66 6f 6e 6c 69 6e 6b 5f |%.|.-A%=fonlink_|
00022260 25 2d 49 41 66 6f 6e 5f 25 3a e7 41 25 3c 32 84 |%-IAfon_%:.A%<2.|
00022270 41 25 3e 49 4f 69 63 6f 6e 73 25 8c 3d a3 0d 7c |A%>IOicons%.=..||
00022280 f6 47 e7 52 25 3c 3e 31 32 8c 49 4f 72 64 65 72 |.G.R%<>12.IOrder|
00022290 66 78 5f 25 28 41 25 29 3d bb 28 24 21 4f 72 64 |fx_%(A%)=.($!Ord|
000222a0 65 72 66 78 5f 25 29 3a 49 4f 72 64 65 72 66 79 |erfx_%):IOrderfy|
000222b0 5f 25 28 41 25 29 3d bb 28 24 21 4f 72 64 65 72 |_%(A%)=.($!Order|
000222c0 66 79 5f 25 29 0d 7c fb c9 49 4f 72 64 65 72 46 |fy_%).|..IOrderF|
000222d0 5f 25 28 41 25 29 3d a4 66 6f 6e 74 6e 75 6d 28 |_%(A%)=.fontnum(|
000222e0 49 4f 72 64 65 72 46 5f 25 28 41 25 29 29 3a 24 |IOrderF_%(A%)):$|
000222f0 21 4f 72 64 65 72 66 5f 25 3d 46 6f 5f 24 28 49 |!Orderf_%=Fo_$(I|
00022300 4f 72 64 65 72 46 5f 25 28 41 25 29 29 3a 24 21 |OrderF_%(A%)):$!|
00022310 4f 72 64 65 72 66 78 5f 25 3d c3 28 49 4f 72 64 |Orderfx_%=.(IOrd|
00022320 65 72 66 78 5f 25 28 41 25 29 29 3a 24 21 4f 72 |erfx_%(A%)):$!Or|
00022330 64 65 72 66 79 5f 25 3d c3 28 49 4f 72 64 65 72 |derfy_%=.(IOrder|
00022340 66 79 5f 25 28 41 25 29 29 3a e7 24 77 6e 25 3d |fy_%(A%)):.$wn%=|
00022350 22 4f 72 64 65 72 4d 46 22 3a f2 72 49 28 57 25 |"OrderMF":.rI(W%|
00022360 2c 22 4f 72 64 65 72 66 22 29 3a f2 72 49 28 57 |,"Orderf"):.rI(W|
00022370 25 2c 22 4f 72 64 65 72 66 78 22 29 3a f2 72 49 |%,"Orderfx"):.rI|
00022380 28 57 25 2c 22 4f 72 64 65 72 66 79 22 29 0d 7d |(W%,"Orderfy").}|
00022390 00 78 5a 25 3d a4 6c 6f 73 65 66 6f 6e 74 5f 28 |.xZ%=.losefont_(|
000223a0 49 4f 72 64 65 72 46 31 5f 25 28 41 25 29 29 3a |IOrderF1_%(A%)):|
000223b0 49 4f 72 64 65 72 46 31 5f 25 28 41 25 29 3d a4 |IOrderF1_%(A%)=.|
000223c0 66 69 6e 64 66 6f 6e 74 5f 28 49 4f 72 64 65 72 |findfont_(IOrder|
000223d0 46 5f 25 28 41 25 29 2c 49 4f 72 64 65 72 66 78 |F_%(A%),IOrderfx|
000223e0 5f 25 28 41 25 29 2c 49 4f 72 64 65 72 66 79 5f |_%(A%),IOrderfy_|
000223f0 25 28 41 25 29 29 3a 49 4f 72 64 65 72 63 68 25 |%(A%)):IOrderch%|
00022400 28 41 25 29 3d 31 0d 7d 05 15 3d a4 75 70 64 61 |(A%)=1.}..=.upda|
00022410 74 65 4f 72 64 65 72 5f 28 32 29 0d 7d 69 0f dd |teOrder_(2).}i..|
00022420 f2 49 6f 72 64 65 72 6d 70 5f 0d 7d 6e 08 ea 20 |.Iordermp_.}n.. |
00022430 5a 25 0d 7d 73 19 e7 52 25 3c 34 84 52 25 3e 31 |Z%.}s..R%<4.R%>1|
00022440 33 80 52 25 3c 3e 32 35 36 8c e1 0d 7d 78 3f e7 |3.R%<>256...}x?.|
00022450 49 4f 77 69 6e 64 25 3d 30 84 66 6f 6e 6c 69 6e |IOwind%=0.fonlin|
00022460 6b 5f 25 3c 49 41 66 6f 6e 5f 25 2b 32 84 66 6f |k_%<IAfon_%+2.fo|
00022470 6e 6c 69 6e 6b 5f 25 2d 49 41 66 6f 6e 5f 25 3e |nlink_%-IAfon_%>|
00022480 49 4f 69 63 6f 6e 73 25 8c e1 0d 7d 7d 18 5a 25 |IOicons%...}}.Z%|
00022490 3d 66 6f 6e 6c 69 6e 6b 5f 25 2d 49 41 66 6f 6e |=fonlink_%-IAfon|
000224a0 5f 25 0d 7d 82 6c e7 49 4f 72 64 65 72 6d 78 5f |_%.}.l.IOrdermx_|
000224b0 28 5a 25 29 3c 3e 30 84 49 4f 72 64 65 72 6d 79 |(Z%)<>0.IOrdermy|
000224c0 5f 28 5a 25 29 3c 3e 30 8c 24 21 49 4f 72 64 65 |_(Z%)<>0.$!IOrde|
000224d0 72 6a 78 5f 25 3d c3 28 49 4f 72 64 65 72 6d 78 |rjx_%=.(IOrdermx|
000224e0 5f 28 5a 25 29 29 3a 24 21 49 4f 72 64 65 72 6a |_(Z%)):$!IOrderj|
000224f0 79 5f 25 3d c3 28 49 4f 72 64 65 72 6d 79 5f 28 |y_%=.(IOrdermy_(|
00022500 5a 25 29 29 20 8b 69 70 6f 73 5f 25 3d 37 0d 7d |Z%)) .ipos_%=7.}|
00022510 87 1d e7 52 25 3d 31 31 84 52 25 3d 32 35 36 8c |...R%=11.R%=256.|
00022520 f2 49 6f 72 64 65 72 6d 70 49 5f 0d 7d 8c 4f 49 |.IordermpI_.}.OI|
00022530 4f 72 64 65 72 6d 78 5f 28 5a 25 29 3d bb 28 24 |Ordermx_(Z%)=.($|
00022540 21 49 4f 72 64 65 72 6a 78 5f 25 29 3a 49 4f 72 |!IOrderjx_%):IOr|
00022550 64 65 72 6d 79 5f 28 5a 25 29 3d bb 28 24 21 49 |dermy_(Z%)=.($!I|
00022560 4f 72 64 65 72 6a 79 5f 25 29 3a 49 4f 72 64 65 |Orderjy_%):IOrde|
00022570 72 63 68 25 28 5a 25 29 3d 31 0d 7d 91 05 e1 0d |rch%(Z%)=1.}....|
00022580 7e 09 10 dd f2 49 6f 72 64 65 72 6d 70 49 5f 0d |~....IordermpI_.|
00022590 7e 0e 0f ea 20 41 2c 42 2c 43 25 2c 5a 25 0d 7e |~... A,B,C%,Z%.~|
000225a0 13 3f e7 49 4f 77 69 6e 64 25 3d 30 84 66 6f 6e |.?.IOwind%=0.fon|
000225b0 6c 69 6e 6b 5f 25 3c 49 41 66 6f 6e 5f 25 2b 32 |link_%<IAfon_%+2|
000225c0 84 66 6f 6e 6c 69 6e 6b 5f 25 2d 49 41 66 6f 6e |.fonlink_%-IAfon|
000225d0 5f 25 3e 49 4f 69 63 6f 6e 73 25 8c e1 0d 7e 18 |_%>IOicons%...~.|
000225e0 18 5a 25 3d 66 6f 6e 6c 69 6e 6b 5f 25 2d 49 41 |.Z%=fonlink_%-IA|
000225f0 66 6f 6e 5f 25 0d 7e 1d 2c e7 69 70 6f 73 5f 25 |fon_%.~.,.ipos_%|
00022600 3d 37 84 49 4f 72 64 65 72 6d 78 5f 28 5a 25 29 |=7.IOrdermx_(Z%)|
00022610 2b 49 4f 72 64 65 72 6d 79 5f 28 5a 25 29 3d 30 |+IOrdermy_(Z%)=0|
00022620 8c 0d 7e 22 50 f2 67 65 74 69 63 6f 6e 5f 28 49 |..~"P.geticon_(I|
00022630 4f 77 69 6e 64 25 2c 5a 25 29 3a 41 3d 62 6c 6f |Owind%,Z%):A=blo|
00022640 63 6b 5f 25 21 38 3a 43 25 3d a4 4f 73 74 72 6c |ck_%!8:C%=.Ostrl|
00022650 65 6e 5f 28 49 4f 72 64 65 72 46 31 5f 25 28 5a |en_(IOrderF1_%(Z|
00022660 25 29 2c 49 4f 72 64 65 72 53 5f 24 28 5a 25 29 |%),IOrderS_$(Z%)|
00022670 29 0d 7e 27 1e e7 49 4f 6a 75 73 74 5f 25 28 5a |).~'..IOjust_%(Z|
00022680 25 29 3d 30 8c 41 3d 41 2b 63 68 61 72 78 5f 0d |%)=0.A=A+charx_.|
00022690 7e 2c 1d e7 49 4f 6a 75 73 74 5f 25 28 5a 25 29 |~,..IOjust_%(Z%)|
000226a0 3d 31 8c 41 3d 41 2b 4f 74 77 2f 32 0d 7e 31 22 |=1.A=A+Otw/2.~1"|
000226b0 e7 49 4f 6a 75 73 74 5f 25 28 5a 25 29 3d 32 8c |.IOjust_%(Z%)=2.|
000226c0 41 3d 41 2b 4f 74 77 2d 63 68 61 72 78 5f 0d 7e |A=A+Otw-charx_.~|
000226d0 36 35 41 3d 41 2f 72 75 6c 65 5f 3a 42 3d 94 28 |65A=A/rule_:B=.(|
000226e0 28 62 6c 6f 63 6b 5f 25 21 31 32 2b 63 68 61 72 |(block_%!12+char|
000226f0 79 5f 29 2f 72 75 6c 65 5f 29 3a e7 41 3c 30 8c |y_)/rule_):.A<0.|
00022700 41 3d 30 0d 7e 3b 5e e7 24 77 6e 25 3d 22 4f 72 |A=0.~;^.$wn%="Or|
00022710 64 65 72 4d 50 49 22 8c 24 21 49 4f 72 64 65 72 |derMPI".$!IOrder|
00022720 6a 78 5f 25 3d c3 28 41 29 3a 24 21 49 4f 72 64 |jx_%=.(A):$!IOrd|
00022730 65 72 6a 79 5f 25 3d c3 28 42 29 3a f2 72 49 28 |erjy_%=.(B):.rI(|
00022740 57 25 2c 22 49 4f 72 64 65 72 6a 78 22 29 3a f2 |W%,"IOrderjx"):.|
00022750 72 49 28 57 25 2c 22 49 4f 72 64 65 72 6a 79 22 |rI(W%,"IOrderjy"|
00022760 29 0d 7e 40 23 49 4f 72 64 65 72 6d 78 5f 28 5a |).~@#IOrdermx_(Z|
00022770 25 29 3d 41 3a 49 4f 72 64 65 72 6d 79 5f 28 5a |%)=A:IOrdermy_(Z|
00022780 25 29 3d 42 0d 7e 45 05 cd 0d 7e 4a 05 e1 0d 7e |%)=B.~E...~J...~|
00022790 95 04 0d 7e ae 0e dd a4 49 4f 72 64 65 72 4a 5f |...~....IOrderJ_|
000227a0 0d 7e b3 0b ea 20 41 25 2c 5a 25 0d 7e b8 18 41 |.~... A%,Z%.~..A|
000227b0 25 3d 66 6f 6e 6c 69 6e 6b 5f 25 2d 49 41 66 6f |%=fonlink_%-IAfo|
000227c0 6e 5f 25 0d 7e bd 44 69 70 6f 73 5f 25 3d 37 3a |n_%.~.Dipos_%=7:|
000227d0 49 4f 6a 75 73 74 5f 25 28 41 25 29 3d 49 25 3a |IOjust_%(A%)=I%:|
000227e0 f2 74 4d 49 78 28 22 4f 72 64 65 72 4d 50 49 22 |.tMIx("OrderMPI"|
000227f0 2c 49 25 29 3a 49 4f 72 64 65 72 63 68 25 28 41 |,I%):IOrderch%(A|
00022800 25 29 3d 31 3a 3d b9 0d 7e e0 2b dd a4 49 4f 72 |%)=1:=..~.+..IOr|
00022810 64 65 72 6a 78 5f 3a f2 49 4f 73 65 74 6d 70 5f |derjx_:.IOsetmp_|
00022820 3a 3d a4 75 70 64 61 74 65 4f 72 64 65 72 5f 28 |:=.updateOrder_(|
00022830 32 29 0d 7e ef 2b dd a4 49 4f 72 64 65 72 6a 79 |2).~.+..IOrderjy|
00022840 5f 3a f2 49 4f 73 65 74 6d 70 5f 3a 3d a4 75 70 |_:.IOsetmp_:=.up|
00022850 64 61 74 65 4f 72 64 65 72 5f 28 32 29 0d 7f 12 |dateOrder_(2)...|
00022860 0e dd f2 49 4f 73 65 74 6d 70 5f 0d 7f 17 08 ea |...IOsetmp_.....|
00022870 20 41 25 0d 7f 1c 18 41 25 3d 66 6f 6e 6c 69 6e | A%....A%=fonlin|
00022880 6b 5f 25 2d 49 41 66 6f 6e 5f 25 0d 7f 21 58 69 |k_%-IAfon_%..!Xi|
00022890 70 6f 73 5f 25 3d 30 3a 49 4f 72 64 65 72 6d 78 |pos_%=0:IOrdermx|
000228a0 5f 28 41 25 29 3d bb 28 24 21 49 4f 72 64 65 72 |_(A%)=.($!IOrder|
000228b0 6a 78 5f 25 29 3a 49 4f 72 64 65 72 6d 79 5f 28 |jx_%):IOrdermy_(|
000228c0 41 25 29 3d bb 28 24 21 49 4f 72 64 65 72 6a 79 |A%)=.($!IOrderjy|
000228d0 5f 25 29 3a 49 4f 72 64 65 72 63 68 25 28 41 25 |_%):IOrderch%(A%|
000228e0 29 3d 31 0d 7f 26 05 e1 0d 7f 44 04 0d 80 1b 1a |)=1..&....D.....|
000228f0 dd f2 67 65 74 57 69 6e 64 5f 28 74 65 6d 70 5f |..getWind_(temp_|
00022900 25 2c 57 5f 25 29 0d 80 20 18 ea 20 41 25 2c 42 |%,W_%).. .. A%,B|
00022910 25 2c 43 25 2c 44 25 2c 45 25 2c 41 5f 25 0d 80 |%,C%,D%,E%,A_%..|
00022920 2f 0f e7 74 65 6d 70 5f 25 3d 30 8c e1 0d 80 34 |/..temp_%=0....4|
00022930 1e e7 52 25 3d 31 39 33 80 74 65 6d 70 5f 25 21 |..R%=193.temp_%!|
00022940 30 3c 3e 30 80 57 5f 25 3c 34 8c 0d 80 39 4c 41 |0<>0.W_%<4...9LA|
00022950 5f 25 3d 31 3a e7 4e 65 77 50 72 65 66 5f 25 28 |_%=1:.NewPref_%(|
00022960 33 29 3c 31 32 38 8c 41 5f 25 3d 30 3a f4 20 31 |3)<128.A_%=0:. 1|
00022970 20 65 78 74 72 61 20 69 63 6f 6e 20 69 6e 20 6f | extra icon in o|
00022980 72 64 65 72 2f 69 6e 76 6f 69 63 65 20 61 66 74 |rder/invoice aft|
00022990 65 72 20 56 31 32 37 0d 80 43 26 e7 57 5f 25 3d |er V127..C&.W_%=|
000229a0 32 8c 42 25 3d 49 4f 69 63 6f 6e 73 25 2b 41 5f |2.B%=IOicons%+A_|
000229b0 25 3a 42 25 3d 42 25 2a 33 32 2b 38 34 0d 80 4d |%:B%=B%*32+84..M|
000229c0 11 e3 41 25 3d 34 20 b8 20 42 25 20 88 34 0d 80 |..A%=4 . B% .4..|
000229d0 52 10 e7 41 25 3d 33 32 8c 41 25 2b 3d 34 0d 80 |R..A%=32.A%+=4..|
000229e0 57 10 e7 41 25 3d 36 30 8c 41 25 2b 3d 34 0d 80 |W..A%=60.A%+=4..|
000229f0 5c 10 e7 41 25 3d 36 38 8c 41 25 2b 3d 34 0d 80 |\..A%=68.A%+=4..|
00022a00 61 11 e7 41 25 3d 37 36 8c 41 25 2b 3d 31 32 0d |a..A%=76.A%+=12.|
00022a10 80 66 11 e7 41 25 3d 38 38 8c 41 25 2b 3d 36 38 |.f..A%=88.A%+=68|
00022a20 0d 80 6b 13 51 25 21 41 25 3d 74 65 6d 70 5f 25 |..k.Q%!A%=temp_%|
00022a30 21 41 25 0d 80 70 1b e7 28 41 25 2d 39 32 29 83 |!A%..p..(A%-92).|
00022a40 33 32 3d 31 32 8c 41 25 3d 41 25 2b 31 36 0d 80 |32=12.A%=A%+16..|
00022a50 75 05 ed 0d 80 7a 05 cd 0d 80 7f 4b e7 52 25 3d |u....z.....K.R%=|
00022a60 35 3a e7 57 5f 25 3e 30 80 57 5f 25 3c 34 3a c8 |5:.W_%>0.W_%<4:.|
00022a70 99 26 34 30 30 43 46 2c 2c 6f 62 6c 6f 63 6b 5f |.&400CF,,oblock_|
00022a80 25 3a e7 6f 62 6c 6f 63 6b 5f 25 21 31 32 3d 49 |%:.oblock_%!12=I|
00022a90 4f 77 69 6e 64 25 8c c8 99 26 34 30 30 44 34 2c |Owind%...&400D4,|
00022aa0 2c 2d 31 0d 80 84 05 e1 0d 80 89 04 0d 80 8e 1d |,-1.............|
00022ab0 dd f2 4f 70 61 67 65 73 69 7a 65 5f 28 57 5f 25 |..Opagesize_(W_%|
00022ac0 29 3a ea 20 41 25 2c 42 25 0d 80 98 22 e7 57 5f |):. A%,B%...".W_|
00022ad0 25 3d 32 8c 41 25 3d 49 4f 70 61 67 79 5f 25 3a |%=2.A%=IOpagy_%:|
00022ae0 42 25 3d 49 4f 70 61 67 78 5f 25 0d 80 a2 8c 4f |B%=IOpagx_%....O|
00022af0 70 61 70 65 72 31 25 3d 30 3a 4f 70 61 70 65 72 |paper1%=0:Opaper|
00022b00 32 25 3d 2d 41 25 2a 72 75 6c 65 5f 3a 4f 70 61 |2%=-A%*rule_:Opa|
00022b10 70 65 72 32 25 3d 4f 70 61 70 65 72 32 25 2d 4f |per2%=Opaper2%-O|
00022b20 70 61 70 65 72 32 25 83 28 32 2a 6d 6f 64 65 79 |paper2%.(2*modey|
00022b30 25 29 3a 4f 70 61 70 65 72 33 25 3d 42 25 2a 72 |%):Opaper3%=B%*r|
00022b40 75 6c 65 5f 3a 4f 70 61 70 65 72 33 25 3d 4f 70 |ule_:Opaper3%=Op|
00022b50 61 70 65 72 33 25 2d 4f 70 61 70 65 72 33 25 83 |aper3%-Opaper3%.|
00022b60 28 32 2a 6d 6f 64 65 78 25 29 3a 4f 70 61 70 65 |(2*modex%):Opape|
00022b70 72 34 25 3d 30 3a e1 0d 80 a7 04 0d 80 ed 92 dd |r4%=0:..........|
00022b80 a4 69 6e 69 74 73 74 61 74 5f 3a 24 21 53 74 61 |.initstat_:$!Sta|
00022b90 74 31 5f 25 3d 53 74 61 74 31 5f 24 3a 24 21 53 |t1_%=Stat1_$:$!S|
00022ba0 74 61 74 32 5f 25 3d 53 74 61 74 32 5f 24 3a 24 |tat2_%=Stat2_$:$|
00022bb0 21 53 74 61 74 33 5f 25 3d 53 74 61 74 33 5f 24 |!Stat3_%=Stat3_$|
00022bc0 3a 24 21 53 42 65 73 74 46 72 5f 25 3d c3 28 53 |:$!SBestFr_%=.(S|
00022bd0 42 65 73 74 46 5f 25 29 3a e7 53 42 65 73 74 50 |BestF_%):.SBestP|
00022be0 5f 25 3d 31 8c 24 21 53 42 65 73 74 50 65 5f 25 |_%=1.$!SBestPe_%|
00022bf0 3d 22 4d 6f 6e 74 68 73 22 20 8b 24 21 53 42 65 |="Months" .$!SBe|
00022c00 73 74 50 65 5f 25 3d 22 44 61 79 73 22 0d 80 f2 |stPe_%="Days"...|
00022c10 06 3d b9 0d 80 f7 7b dd a4 75 70 64 61 74 65 73 |.=....{..updates|
00022c20 74 61 74 5f 3a 53 74 61 74 31 5f 24 3d 24 21 53 |tat_:Stat1_$=$!S|
00022c30 74 61 74 31 5f 25 3a 53 74 61 74 32 5f 24 3d 24 |tat1_%:Stat2_$=$|
00022c40 21 53 74 61 74 32 5f 25 3a 53 74 61 74 33 5f 24 |!Stat2_%:Stat3_$|
00022c50 3d 24 21 53 74 61 74 33 5f 25 3a e7 bb 28 24 21 |=$!Stat3_%:..($!|
00022c60 53 42 65 73 74 46 72 5f 25 29 3c 31 8c 24 21 53 |SBestFr_%)<1.$!S|
00022c70 42 65 73 74 46 72 5f 25 3d 22 31 22 3a f2 72 49 |BestFr_%="1":.rI|
00022c80 28 57 25 2c 22 53 42 65 73 74 46 72 22 29 0d 80 |(W%,"SBestFr")..|
00022c90 fc 44 e7 bb 28 24 21 53 42 65 73 74 46 72 5f 25 |.D..($!SBestFr_%|
00022ca0 29 3e 31 32 80 53 42 65 73 74 50 5f 25 3d 31 8c |)>12.SBestP_%=1.|
00022cb0 24 21 53 42 65 73 74 46 72 5f 25 3d 22 31 32 22 |$!SBestFr_%="12"|
00022cc0 3a f2 72 49 28 57 25 2c 22 53 42 65 73 74 46 72 |:.rI(W%,"SBestFr|
00022cd0 22 29 0d 81 01 1b 53 42 65 73 74 46 5f 25 3d bb |")....SBestF_%=.|
00022ce0 28 24 21 53 42 65 73 74 46 72 5f 25 29 0d 81 06 |($!SBestFr_%)...|
00022cf0 3a e7 63 63 72 65 64 25 3e 30 8c 6f 63 63 72 65 |:.ccred%>0.occre|
00022d00 64 5f 25 3d 30 3a f2 69 6e 69 74 63 63 72 65 64 |d_%=0:.initccred|
00022d10 5f 3a f2 75 70 64 61 74 65 63 63 72 65 64 5f 28 |_:.updateccred_(|
00022d20 43 53 5f 25 2c 31 29 0d 81 0b 06 3d b9 0d 81 10 |CS_%,1)....=....|
00022d30 04 0d 81 29 26 dd a4 53 42 65 73 74 50 65 5f 3a |...)&..SBestPe_:|
00022d40 ea 20 5a 25 3a 53 42 65 73 74 50 5f 25 3d 2d 53 |. Z%:SBestP_%=-S|
00022d50 42 65 73 74 50 5f 25 0d 81 2e 38 e7 53 42 65 73 |BestP_%...8.SBes|
00022d60 74 50 5f 25 3d 31 8c 24 21 53 42 65 73 74 50 65 |tP_%=1.$!SBestPe|
00022d70 5f 25 3d 22 4d 6f 6e 74 68 73 22 20 8b 24 21 53 |_%="Months" .$!S|
00022d80 42 65 73 74 50 65 5f 25 3d 22 44 61 79 73 22 0d |BestPe_%="Days".|
00022d90 81 33 23 f2 72 49 28 57 25 2c 22 53 42 65 73 74 |.3#.rI(W%,"SBest|
00022da0 50 65 22 29 3a 3d a4 75 70 64 61 74 65 73 74 61 |Pe"):=.updatesta|
00022db0 74 5f 0d 81 38 1c dd a4 53 42 65 73 74 46 72 5f |t_..8...SBestFr_|
00022dc0 3a 3d a4 75 70 64 61 74 65 73 74 61 74 5f 0d 81 |:=.updatestat_..|
00022dd0 3d 1a dd a4 53 74 61 74 31 5f 3a 3d a4 75 70 64 |=...Stat1_:=.upd|
00022de0 61 74 65 73 74 61 74 5f 0d 81 42 1a dd a4 53 74 |atestat_..B...St|
00022df0 61 74 32 5f 3a 3d a4 75 70 64 61 74 65 73 74 61 |at2_:=.updatesta|
00022e00 74 5f 0d 81 47 1a dd a4 53 74 61 74 33 5f 3a 3d |t_..G...Stat3_:=|
00022e10 a4 75 70 64 61 74 65 73 74 61 74 5f 0d 81 4c 78 |.updatestat_..Lx|
00022e20 dd a4 53 43 75 73 74 5f 3a ea 20 5a 25 3a e7 c0 |..SCust_:. Z%:..|
00022e30 24 21 53 43 75 73 74 5f 25 2c 31 29 3d 22 23 22 |$!SCust_%,1)="#"|
00022e40 8c 5a 25 3d a4 73 66 5f 28 24 21 53 43 75 73 74 |.Z%=.sf_($!SCust|
00022e50 5f 25 2c 31 29 3a 24 21 53 43 75 73 74 5f 25 3d |_%,1):$!SCust_%=|
00022e60 22 23 22 2b c3 28 5a 25 29 2b 22 3d 22 2b 43 53 |"#"+.(Z%)+"="+CS|
00022e70 75 70 70 6c 69 65 72 73 5f 24 28 5a 25 29 3a 53 |uppliers_$(Z%):S|
00022e80 49 54 6e 32 5f 25 3d 5a 25 20 8b 53 49 54 6e 32 |ITn2_%=Z% .SITn2|
00022e90 5f 25 3d 30 0d 81 51 1a f2 53 46 69 72 73 74 5f |_%=0..Q..SFirst_|
00022ea0 3a 3d a4 75 70 64 61 74 65 73 74 61 74 5f 0d 81 |:=.updatestat_..|
00022eb0 56 04 0d 84 d0 dc dd a4 69 6e 69 74 55 73 65 72 |V.......initUser|
00022ec0 5f 3a ea 41 25 3a 24 21 55 6e 61 6d 65 5f 25 3d |_:.A%:$!Uname_%=|
00022ed0 55 6e 61 6d 5f 24 3a 24 21 55 61 64 31 31 5f 25 |Unam_$:$!Uad11_%|
00022ee0 3d 55 61 64 31 5f 24 3a 24 21 55 61 64 32 32 5f |=Uad1_$:$!Uad22_|
00022ef0 25 3d 55 61 64 32 5f 24 3a 24 21 55 61 64 33 33 |%=Uad2_$:$!Uad33|
00022f00 5f 25 3d 55 61 64 33 5f 24 3a 24 21 55 61 64 34 |_%=Uad3_$:$!Uad4|
00022f10 34 5f 25 3d 55 61 64 34 5f 24 3a 24 21 55 61 64 |4_%=Uad4_$:$!Uad|
00022f20 35 35 5f 25 3d 55 61 64 35 5f 24 3a 24 21 55 70 |55_%=Uad5_$:$!Up|
00022f30 6f 73 74 5f 25 3d 55 70 6f 73 5f 24 3a 24 21 55 |ost_%=Upos_$:$!U|
00022f40 74 65 6c 5f 25 3d 55 74 65 5f 24 3a 24 21 55 66 |tel_%=Ute_$:$!Uf|
00022f50 61 78 5f 25 3d 55 66 61 5f 24 3a 24 21 55 76 61 |ax_%=Ufa_$:$!Uva|
00022f60 74 5f 25 3d 55 76 61 5f 24 3a 24 21 75 73 6e 61 |t_%=Uva_$:$!usna|
00022f70 6d 65 5f 25 3d 75 73 6e 61 6d 65 5f 24 3a 24 21 |me_%=usname_$:$!|
00022f80 54 6e 61 6d 65 5f 25 3d 54 6e 61 6d 5f 24 0d 84 |Tname_%=Tnam_$..|
00022f90 d5 06 3d a3 0d 84 da cb dd a4 75 70 64 61 74 65 |..=.......update|
00022fa0 55 73 65 72 5f 3a ea 20 5a 25 3a 55 6e 61 6d 5f |User_:. Z%:Unam_|
00022fb0 24 3d 24 21 55 6e 61 6d 65 5f 25 3a 55 61 64 31 |$=$!Uname_%:Uad1|
00022fc0 5f 24 3d 24 21 55 61 64 31 31 5f 25 3a 55 61 64 |_$=$!Uad11_%:Uad|
00022fd0 32 5f 24 3d 24 21 55 61 64 32 32 5f 25 3a 55 61 |2_$=$!Uad22_%:Ua|
00022fe0 64 33 5f 24 3d 24 21 55 61 64 33 33 5f 25 3a 55 |d3_$=$!Uad33_%:U|
00022ff0 61 64 34 5f 24 3d 24 21 55 61 64 34 34 5f 25 3a |ad4_$=$!Uad44_%:|
00023000 55 61 64 35 5f 24 3d 24 21 55 61 64 35 35 5f 25 |Uad5_$=$!Uad55_%|
00023010 3a 55 70 6f 73 5f 24 3d 24 21 55 70 6f 73 74 5f |:Upos_$=$!Upost_|
00023020 25 3a 55 74 65 5f 24 3d 24 21 55 74 65 6c 5f 25 |%:Ute_$=$!Utel_%|
00023030 3a 55 66 61 5f 24 3d 24 21 55 66 61 78 5f 25 3a |:Ufa_$=$!Ufax_%:|
00023040 55 76 61 5f 24 3d 24 21 55 76 61 74 5f 25 3a 54 |Uva_$=$!Uvat_%:T|
00023050 6e 61 6d 5f 24 3d 24 21 54 6e 61 6d 65 5f 25 0d |nam_$=$!Tname_%.|
00023060 84 df 3c f2 49 75 70 4f 75 73 65 72 5f 3a e3 5a |..<.IupOuser_:.Z|
00023070 25 3d 35 b8 31 33 3a 49 4f 72 64 65 72 63 68 25 |%=5.13:IOrderch%|
00023080 28 5a 25 29 3d 31 3a ed 3a 49 4f 72 64 65 72 63 |(Z%)=1:.:IOrderc|
00023090 68 25 28 35 36 29 3d 31 3a 3d a3 0d 84 e9 db dd |h%(56)=1:=......|
000230a0 f2 49 75 70 4f 75 73 65 72 5f 3a 49 4f 72 64 65 |.IupOuser_:IOrde|
000230b0 72 53 5f 24 28 35 29 3d 55 6e 61 6d 5f 24 3a 49 |rS_$(5)=Unam_$:I|
000230c0 4f 72 64 65 72 53 5f 24 28 36 29 3d 55 61 64 31 |OrderS_$(6)=Uad1|
000230d0 5f 24 3a 49 4f 72 64 65 72 53 5f 24 28 37 29 3d |_$:IOrderS_$(7)=|
000230e0 55 61 64 32 5f 24 3a 49 4f 72 64 65 72 53 5f 24 |Uad2_$:IOrderS_$|
000230f0 28 38 29 3d 55 61 64 33 5f 24 3a 49 4f 72 64 65 |(8)=Uad3_$:IOrde|
00023100 72 53 5f 24 28 39 29 3d 55 61 64 34 5f 24 3a 49 |rS_$(9)=Uad4_$:I|
00023110 4f 72 64 65 72 53 5f 24 28 31 30 29 3d 55 61 64 |OrderS_$(10)=Uad|
00023120 35 5f 24 3a 49 4f 72 64 65 72 53 5f 24 28 31 31 |5_$:IOrderS_$(11|
00023130 29 3d 55 70 6f 73 5f 24 3a 49 4f 72 64 65 72 53 |)=Upos_$:IOrderS|
00023140 5f 24 28 31 32 29 3d 55 74 65 5f 24 3a 49 4f 72 |_$(12)=Ute_$:IOr|
00023150 64 65 72 53 5f 24 28 31 33 29 3d 55 66 61 5f 24 |derS_$(13)=Ufa_$|
00023160 3a 49 4f 72 64 65 72 53 5f 24 28 35 36 29 3d 55 |:IOrderS_$(56)=U|
00023170 76 61 5f 24 3a e1 0d 84 f8 04 0d 84 fd 3b dd f2 |va_$:........;..|
00023180 75 70 64 61 74 65 77 69 6e 64 5f 28 74 65 6d 70 |updatewind_(temp|
00023190 5f 25 29 3a 74 65 6d 70 5f 25 21 30 3d 57 25 21 |_%):temp_%!0=W%!|
000231a0 31 32 3a c8 99 26 34 30 30 43 43 2c 2c 74 65 6d |12:..&400CC,,tem|
000231b0 70 5f 25 3a e1 0d 85 02 04 0d 85 07 10 dd a4 69 |p_%:...........i|
000231c0 6e 69 74 73 61 6c 65 64 5f 0d 85 0c 31 73 69 74 |nitsaled_...1sit|
000231d0 70 5f 25 3d a4 66 69 72 73 74 66 72 65 65 73 61 |p_%=.firstfreesa|
000231e0 6c 5f 28 30 29 2d 34 3a e7 73 69 74 70 5f 25 3c |l_(0)-4:.sitp_%<|
000231f0 30 8c 73 69 74 70 5f 25 3d 30 0d 85 11 40 e7 73 |0.sitp_%=0...@.s|
00023200 69 74 70 5f 25 3e 6d 61 78 53 5f 25 2a 73 69 74 |itp_%>maxS_%*sit|
00023210 69 70 5f 25 2d 73 69 74 69 70 5f 25 8c 73 69 74 |ip_%-sitip_%.sit|
00023220 70 5f 25 3d 6d 61 78 53 5f 25 2a 73 69 74 69 70 |p_%=maxS_%*sitip|
00023230 5f 25 2d 73 69 74 69 70 5f 25 0d 85 16 42 49 73 |_%-sitip_%...BIs|
00023240 61 6c 5f 25 3d 30 3a 24 21 73 61 6c 6e 61 6d 65 |al_%=0:$!salname|
00023250 5f 25 3d 73 61 6c 6e 61 6d 65 5f 24 3a e7 53 49 |_%=salname_$:.SI|
00023260 54 61 70 5f 24 28 30 29 3c 3e 22 7c 22 8c 53 49 |Tap_$(0)<>"|".SI|
00023270 54 61 70 5f 24 28 30 29 3d 22 7c 22 0d 85 1b 06 |Tap_$(0)="|"....|
00023280 3d b9 0d 85 20 10 dd a4 69 6e 69 74 73 74 61 6e |=... ...initstan|
00023290 64 5f 0d 85 25 31 74 69 74 70 5f 25 3d a4 66 69 |d_..%1titp_%=.fi|
000232a0 72 73 74 66 72 65 65 74 61 6c 5f 28 30 29 2d 34 |rstfreetal_(0)-4|
000232b0 3a e7 74 69 74 70 5f 25 3c 30 8c 74 69 74 70 5f |:.titp_%<0.titp_|
000232c0 25 3d 30 0d 85 2a 40 e7 74 69 74 70 5f 25 3e 6d |%=0..*@.titp_%>m|
000232d0 61 78 54 5f 25 2a 73 69 74 69 70 5f 25 2d 73 69 |axT_%*sitip_%-si|
000232e0 74 69 70 5f 25 8c 74 69 74 70 5f 25 3d 6d 61 78 |tip_%.titp_%=max|
000232f0 54 5f 25 2a 73 69 74 69 70 5f 25 2d 73 69 74 69 |T_%*sitip_%-siti|
00023300 70 5f 25 0d 85 2f 42 49 53 61 6c 5f 25 3d 30 3a |p_%../BISal_%=0:|
00023310 24 21 74 61 6c 6e 61 6d 65 5f 25 3d 74 61 6c 6e |$!talname_%=taln|
00023320 61 6d 65 5f 24 3a e7 54 49 54 61 70 5f 24 28 30 |ame_$:.TITap_$(0|
00023330 29 3c 3e 22 7c 22 8c 54 49 54 61 70 5f 24 28 30 |)<>"|".TITap_$(0|
00023340 29 3d 22 7c 22 0d 85 34 06 3d b9 0d 85 39 10 dd |)="|"..4.=...9..|
00023350 a4 69 6e 69 74 70 61 6c 65 64 5f 0d 85 3e 32 70 |.initpaled_..>2p|
00023360 69 74 70 5f 25 3d a4 66 69 72 73 74 66 72 65 65 |itp_%=.firstfree|
00023370 70 61 79 6d 5f 28 30 29 2d 34 3a e7 70 69 74 70 |paym_(0)-4:.pitp|
00023380 5f 25 3c 30 8c 70 69 74 70 5f 25 3d 30 0d 85 43 |_%<0.pitp_%=0..C|
00023390 40 e7 70 69 74 70 5f 25 3e 6d 61 78 50 5f 25 2a |@.pitp_%>maxP_%*|
000233a0 73 69 74 69 70 5f 25 2d 73 69 74 69 70 5f 25 8c |sitip_%-sitip_%.|
000233b0 70 69 74 70 5f 25 3d 6d 61 78 50 5f 25 2a 73 69 |pitp_%=maxP_%*si|
000233c0 74 69 70 5f 25 2d 73 69 74 69 70 5f 25 0d 85 48 |tip_%-sitip_%..H|
000233d0 42 49 70 61 6c 5f 25 3d 30 3a 24 21 70 61 6c 6e |BIpal_%=0:$!paln|
000233e0 61 6d 65 5f 25 3d 70 61 6c 6e 61 6d 65 5f 24 3a |ame_%=palname_$:|
000233f0 e7 50 49 54 61 70 5f 24 28 30 29 3c 3e 22 7c 22 |.PITap_$(0)<>"|"|
00023400 8c 50 49 54 61 70 5f 24 28 30 29 3d 22 7c 22 0d |.PITap_$(0)="|".|
00023410 85 4d 06 3d b9 0d 85 52 10 dd a4 69 6e 69 74 62 |.M.=...R...initb|
00023420 61 6e 6b 6c 5f 0d 85 57 32 62 69 74 70 5f 25 3d |ankl_..W2bitp_%=|
00023430 a4 66 69 72 73 74 66 72 65 65 62 61 6e 6b 5f 28 |.firstfreebank_(|
00023440 30 29 2d 34 3a e7 62 69 74 70 5f 25 3c 30 8c 62 |0)-4:.bitp_%<0.b|
00023450 69 74 70 5f 25 3d 30 0d 85 5c 40 e7 62 69 74 70 |itp_%=0..\@.bitp|
00023460 5f 25 3e 6d 61 78 42 5f 25 2a 62 69 74 69 70 5f |_%>maxB_%*bitip_|
00023470 25 2d 62 69 74 69 70 5f 25 8c 62 69 74 70 5f 25 |%-bitip_%.bitp_%|
00023480 3d 6d 61 78 42 5f 25 2a 62 69 74 69 70 5f 25 2d |=maxB_%*bitip_%-|
00023490 62 69 74 69 70 5f 25 0d 85 61 0f 49 62 61 6c 5f |bitip_%..a.Ibal_|
000234a0 25 3d 30 3a 3d b9 0d 85 66 04 0d 85 6b 88 dd f2 |%=0:=...f...k...|
000234b0 69 6e 69 74 49 6e 76 57 31 5f 3a 49 54 73 5f 24 |initInvW1_:ITs_$|
000234c0 28 29 3d 22 22 3a 49 54 6f 73 5f 24 28 29 3d 22 |()="":ITos_$()="|
000234d0 22 3a 49 54 73 73 5f 24 28 29 3d 22 7c 22 3a 49 |":ITss_$()="|":I|
000234e0 54 73 73 73 5f 24 28 29 3d 22 7c 22 3a 49 54 66 |Tsss_$()="|":ITf|
000234f0 5f 25 28 29 3d 30 3a 49 54 64 5f 25 28 29 3d 30 |_%()=0:ITd_%()=0|
00023500 3a 49 54 74 5f 24 28 29 3d 22 22 3a 49 54 72 5f |:ITt_$()="":ITr_|
00023510 28 29 3d 30 3a 49 54 6e 5f 25 28 29 3d 30 3a 49 |()=0:ITn_%()=0:I|
00023520 54 6f 5f 25 28 29 3d 30 3a 69 74 70 5f 25 3d 30 |To_%()=0:itp_%=0|
00023530 3a e1 0d 85 70 04 0d 85 75 d6 dd a4 69 6e 69 74 |:...p...u...init|
00023540 49 6e 76 57 5f 3a ea 20 5a 25 3a 73 75 70 70 6c |InvW_:. Z%:suppl|
00023550 79 31 5f 25 3d 30 3a 24 21 49 54 64 61 31 5f 25 |y1_%=0:$!ITda1_%|
00023560 3d 74 6f 64 61 79 5f 24 3a f2 69 6e 69 74 49 6e |=today_$:.initIn|
00023570 76 57 31 5f 3a 49 54 73 75 70 6e 75 6d 5f 25 3d |vW1_:ITsupnum_%=|
00023580 30 3a 49 54 73 75 70 6e 75 6d 4e 5f 25 3d 30 3a |0:ITsupnumN_%=0:|
00023590 24 21 49 54 65 73 64 5f 25 3d c3 28 49 54 65 73 |$!ITesd_%=.(ITes|
000235a0 5f 25 29 3a 24 21 49 54 72 65 63 5f 25 3d 22 22 |_%):$!ITrec_%=""|
000235b0 3a 5a 25 3d a4 70 49 49 28 57 25 21 31 32 2c 38 |:Z%=.pII(W%!12,8|
000235c0 39 2c c0 56 41 54 5f 24 2c 31 29 2b 22 3a 43 64 |9,.VAT_$,1)+":Cd|
000235d0 22 29 3a 5a 25 3d a4 70 49 49 28 57 25 21 31 32 |"):Z%=.pII(W%!12|
000235e0 2c 37 39 2c 56 41 54 5f 24 2b 22 74 6f 74 22 29 |,79,VAT_$+"tot")|
000235f0 3a e7 24 21 49 54 65 73 64 5f 25 3d 22 30 22 8c |:.$!ITesd_%="0".|
00023600 24 21 49 54 65 73 64 5f 25 3d 22 22 0d 85 7a e3 |$!ITesd_%=""..z.|
00023610 24 21 49 54 6f 72 64 5f 25 3d 22 22 3a 24 21 49 |$!ITord_%="":$!I|
00023620 54 63 6f 70 5f 25 3d 49 54 63 6f 70 5f 24 3a 24 |Tcop_%=ITcop_$:$|
00023630 21 49 54 64 61 5f 25 3d 22 22 3a 49 54 64 61 5f |!ITda_%="":ITda_|
00023640 24 3d 22 22 3a 49 54 6e 75 5f 24 3d 22 43 75 72 |$="":ITnu_$="Cur|
00023650 72 65 6e 74 22 3a 24 21 49 54 6e 75 6d 5f 25 3d |rent":$!ITnum_%=|
00023660 22 43 75 72 72 65 6e 74 22 3a 24 21 49 54 73 75 |"Current":$!ITsu|
00023670 70 70 6c 69 65 72 5f 25 3d 22 22 3a 24 21 49 54 |pplier_%="":$!IT|
00023680 44 69 73 63 5f 25 3d 49 54 64 69 73 5f 24 3a 24 |Disc_%=ITdis_$:$|
00023690 21 49 54 72 65 63 5f 25 3d 49 54 72 65 5f 24 3a |!ITrec_%=ITre_$:|
000236a0 24 21 49 54 70 72 69 5f 25 3d 49 54 70 72 69 63 |$!ITpri_%=ITpric|
000236b0 5f 24 3a 24 21 49 54 61 63 63 31 5f 25 3d 49 54 |_$:$!ITacc1_%=IT|
000236c0 61 63 63 5f 24 3a 24 21 49 54 68 65 61 64 31 5f |acc_$:$!IThead1_|
000236d0 25 3d 49 54 68 65 61 64 5f 24 3a 24 21 49 54 63 |%=IThead_$:$!ITc|
000236e0 6f 6d 6d 31 5f 25 3d 49 54 63 6f 6d 6d 5f 24 0d |omm1_%=ITcomm_$.|
000236f0 85 7f 46 21 6b 25 3d 31 3a 49 54 73 75 70 63 68 |..F!k%=1:ITsupch|
00023700 5f 25 3d 30 3a 69 6e 76 31 31 5f 25 28 30 29 3d |_%=0:inv11_%(0)=|
00023710 31 3a 24 21 69 6e 76 6e 61 6d 65 5f 25 3d a4 63 |1:$!invname_%=.c|
00023720 72 69 5f 3a 24 21 49 54 6c 5f 25 3d c3 28 49 54 |ri_:$!ITl_%=.(IT|
00023730 6c 6c 5f 25 29 0d 85 84 18 f2 72 49 28 57 25 2c |ll_%).....rI(W%,|
00023740 22 69 6e 76 6e 61 6d 65 22 29 3a 3d b9 0d 85 89 |"invname"):=....|
00023750 04 0d 85 8e 3d dd a4 49 54 6e 6f 69 74 65 6d 73 |....=..ITnoitems|
00023760 5f 3a ea 20 41 25 2c 5a 25 3a 41 25 3d 2d 31 3a |_:. A%,Z%:A%=-1:|
00023770 e3 5a 25 3d 6d 61 78 49 5f 25 2a 69 74 69 70 5f |.Z%=maxI_%*itip_|
00023780 25 2a 69 74 69 66 5f 25 20 b8 31 88 2d 31 0d 85 |%*itif_% .1.-1..|
00023790 93 1f e7 49 54 73 5f 24 28 5a 25 29 3c 3e 22 22 |...ITs_$(Z%)<>""|
000237a0 8c 41 25 3d 5a 25 2d 31 3a 5a 25 3d 31 0d 85 98 |.A%=Z%-1:Z%=1...|
000237b0 19 ed 3a e7 41 25 3e 2d 31 8c 3d 41 25 2f 69 74 |..:.A%>-1.=A%/it|
000237c0 69 66 5f 25 2b 31 0d 85 9d 06 3d 30 0d 85 a2 04 |if_%+1....=0....|
000237d0 0d 85 a7 10 dd f2 67 65 74 53 49 54 64 61 74 5f |......getSITdat_|
000237e0 0d 85 ac 57 ea 20 61 61 5f 25 2c 61 5f 25 2c 62 |...W. aa_%,a_%,b|
000237f0 5f 25 2c 41 25 2c 41 5f 25 2c 42 5f 25 2c 42 25 |_%,A%,A_%,B_%,B%|
00023800 2c 43 25 2c 44 25 2c 45 5f 25 2c 45 25 2c 46 25 |,C%,D%,E_%,E%,F%|
00023810 2c 47 25 2c 48 25 2c 5a 25 2c 5a 5f 25 2c 43 5f |,G%,H%,Z%,Z_%,C_|
00023820 24 2c 41 5f 24 2c 42 5f 24 3a 47 25 3d 74 5f 25 |$,A_$,B_$:G%=t_%|
00023830 3a 48 25 3d 75 5f 25 0d 85 b1 07 ea 20 85 0d 85 |:H%=u_%..... ...|
00023840 b6 1b ee 20 85 20 ea 3a f7 20 85 3a f2 70 65 5f |... . .:. .:.pe_|
00023850 28 a4 65 72 72 5f 29 3a e1 0d 85 bb 17 e3 5a 25 |(.err_):......Z%|
00023860 3d 73 69 74 70 5f 25 b8 73 69 74 70 5f 25 2b 34 |=sitp_%.sitp_%+4|
00023870 0d 85 c0 9a 41 25 3d a4 6e 69 5f 28 53 49 54 65 |....A%=.ni_(SITe|
00023880 5f 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b 39 29 |_$(Z%*sitif_%+9)|
00023890 29 3a 61 5f 25 3d a4 6e 69 5f 28 53 49 54 65 5f |):a_%=.ni_(SITe_|
000238a0 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b 36 29 29 |$(Z%*sitif_%+6))|
000238b0 3a 62 5f 25 3d a4 6e 69 5f 28 53 49 54 65 5f 24 |:b_%=.ni_(SITe_$|
000238c0 28 5a 25 2a 73 69 74 69 66 5f 25 2b 38 29 29 3a |(Z%*sitif_%+8)):|
000238d0 24 74 5f 25 3d 53 49 54 65 5f 24 28 5a 25 2a 73 |$t_%=SITe_$(Z%*s|
000238e0 69 74 69 66 5f 25 2b 34 29 3a 24 75 5f 25 3d 53 |itif_%+4):$u_%=S|
000238f0 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 66 5f 25 |ITe_$(Z%*sitif_%|
00023900 2b 31 30 29 3a d6 6d 32 5f 25 0d 85 c5 84 e7 24 |+10):.m2_%.....$|
00023910 74 5f 25 3c 3e 22 22 8c 41 5f 25 3d 97 28 24 74 |t_%<>"".A_%=.($t|
00023920 5f 25 29 2d 36 34 3a e7 41 5f 25 3c 31 33 8c 42 |_%)-64:.A_%<13.B|
00023930 61 6e 6b 43 43 5f 25 28 41 5f 25 29 3d a4 61 64 |ankCC_%(A_%)=.ad|
00023940 64 5f 28 42 61 6e 6b 43 43 5f 25 28 41 5f 25 29 |d_(BankCC_%(A_%)|
00023950 2c 2d 41 25 29 3a e7 28 53 49 54 73 5f 24 28 5a |,-A%):.(SITs_$(Z|
00023960 25 29 29 3d 51 5f 24 8c 42 61 6e 6b 53 53 5f 25 |%))=Q_$.BankSS_%|
00023970 28 41 5f 25 29 3d a4 61 64 64 5f 28 42 61 6e 6b |(A_%)=.add_(Bank|
00023980 53 53 5f 25 28 41 5f 25 29 2c 2d 41 25 29 0d 85 |SS_%(A_%),-A%)..|
00023990 ca 18 e7 a9 28 24 75 5f 25 29 3d 31 8c 24 75 5f |....($u_%)=1.$u_|
000239a0 25 2b 3d 22 41 22 0d 85 cf d2 e7 24 75 5f 25 3c |%+="A".....$u_%<|
000239b0 3e 22 22 8c 41 5f 25 3d 97 28 24 75 5f 25 29 2d |>"".A_%=.($u_%)-|
000239c0 36 35 3a 42 5f 25 3d 97 28 c2 24 75 5f 25 2c 31 |65:B_%=.(.$u_%,1|
000239d0 29 29 2d 36 35 3a e7 41 5f 25 3c 31 32 80 42 5f |))-65:.A_%<12.B_|
000239e0 25 3c 38 8c 41 5f 25 3d 41 5f 25 2a 34 30 2b 42 |%<8.A_%=A_%*40+B|
000239f0 5f 25 2a 35 2b 32 3a 53 68 65 61 64 74 31 5f 25 |_%*5+2:Sheadt1_%|
00023a00 28 41 5f 25 29 3d a4 61 64 64 5f 28 53 68 65 61 |(A_%)=.add_(Shea|
00023a10 64 74 31 5f 25 28 41 5f 25 29 2c 2d 41 25 29 3a |dt1_%(A_%),-A%):|
00023a20 53 68 65 61 64 74 31 5f 25 28 41 5f 25 2b 32 29 |Sheadt1_%(A_%+2)|
00023a30 3d a4 61 64 64 5f 28 53 68 65 61 64 74 31 5f 25 |=.add_(Sheadt1_%|
00023a40 28 41 5f 25 2b 32 29 2c 2d 62 5f 25 29 3a 53 68 |(A_%+2),-b_%):Sh|
00023a50 65 61 64 74 31 5f 25 28 41 5f 25 2b 31 29 3d 53 |eadt1_%(A_%+1)=S|
00023a60 68 65 61 64 74 31 5f 25 28 41 5f 25 2b 31 29 2d |headt1_%(A_%+1)-|
00023a70 28 61 5f 25 2d 41 25 29 0d 85 d4 05 ed 0d 85 d9 |(a_%-A%)........|
00023a80 46 44 25 3d 73 69 74 70 5f 25 2a 73 69 74 69 66 |FD%=sitp_%*sitif|
00023a90 5f 25 3a e3 5a 25 3d 31 b8 73 69 74 69 6e 5f 25 |_%:.Z%=1.sitin_%|
00023aa0 3a 44 25 2b 3d 31 3a 53 49 54 65 5f 24 28 44 25 |:D%+=1:SITe_$(D%|
00023ab0 29 3d a4 67 49 64 28 73 61 6c 65 64 25 2c 5a 25 |)=.gId(saled%,Z%|
00023ac0 29 3a ed 0d 85 de b6 e3 5a 25 3d 73 69 74 70 5f |):......Z%=sitp_|
00023ad0 25 b8 73 69 74 70 5f 25 2b 34 3a 24 75 5f 25 3d |%.sitp_%+4:$u_%=|
00023ae0 53 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 66 5f |SITe_$(Z%*sitif_|
00023af0 25 2b 39 29 3a d6 6d 33 5f 25 3a 46 25 3d 97 28 |%+9):.m3_%:F%=.(|
00023b00 24 75 5f 25 29 3a 41 5f 24 3d c0 a4 67 49 64 28 |$u_%):A_$=..gId(|
00023b10 73 61 6c 65 64 25 2c 5a 25 2d 73 69 74 70 5f 25 |saled%,Z%-sitp_%|
00023b20 2b 37 36 29 2c 31 29 3a 42 5f 24 3d 53 49 54 65 |+76),1):B_$=SITe|
00023b30 5f 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b 31 29 |_$(Z%*sitif_%+1)|
00023b40 3a e7 53 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 |:.SITe_$(Z%*siti|
00023b50 66 5f 25 2b 33 29 3d 22 22 3a e7 53 49 54 6e 5f |f_%+3)="":.SITn_|
00023b60 25 28 5a 25 2b 31 29 3c 3e 30 8c 53 49 54 6e 5f |%(Z%+1)<>0.SITn_|
00023b70 25 28 5a 25 2b 31 29 3d 30 0d 85 e3 cb 24 74 5f |%(Z%+1)=0....$t_|
00023b80 25 3d 53 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 |%=SITe_$(Z%*siti|
00023b90 66 5f 25 2b 34 29 3a 24 75 5f 25 3d 53 49 54 65 |f_%+4):$u_%=SITe|
00023ba0 5f 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b 31 30 |_$(Z%*sitif_%+10|
00023bb0 29 3a d6 6d 32 5f 25 3a 53 49 54 65 5f 24 28 5a |):.m2_%:SITe_$(Z|
00023bc0 25 2a 73 69 74 69 66 5f 25 2b 34 29 3d 24 74 5f |%*sitif_%+4)=$t_|
00023bd0 25 3a 53 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 |%:SITe_$(Z%*siti|
00023be0 66 5f 25 2b 31 30 29 3d 24 75 5f 25 3a 42 25 3d |f_%+10)=$u_%:B%=|
00023bf0 a4 6e 69 5f 28 53 49 54 65 5f 24 28 5a 25 2a 73 |.ni_(SITe_$(Z%*s|
00023c00 69 74 69 66 5f 25 2b 36 29 29 3a 53 49 54 61 5f |itif_%+6)):SITa_|
00023c10 24 28 5a 25 29 3d 22 22 3a 53 49 54 68 5f 24 28 |$(Z%)="":SITh_$(|
00023c20 5a 25 29 3d 22 22 3a 45 25 3d a4 6e 69 5f 28 53 |Z%)="":E%=.ni_(S|
00023c30 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 66 5f 25 |ITe_$(Z%*sitif_%|
00023c40 2b 39 29 29 0d 85 e8 41 61 5f 25 3d a4 6e 69 5f |+9))...Aa_%=.ni_|
00023c50 28 53 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 66 |(SITe_$(Z%*sitif|
00023c60 5f 25 2b 36 29 29 3a 62 5f 25 3d a4 6e 69 5f 28 |_%+6)):b_%=.ni_(|
00023c70 53 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 66 5f |SITe_$(Z%*sitif_|
00023c80 25 2b 38 29 29 0d 85 ed 0a e7 46 25 3e 30 8c 0d |%+8)).....F%>0..|
00023c90 85 f2 2f e7 46 25 3d 38 35 8c 41 5f 24 3d 22 55 |../.F%=85.A_$="U|
00023ca0 22 3a 53 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 |":SITe_$(Z%*siti|
00023cb0 66 5f 25 2b 39 29 3d 22 22 3a 45 25 3d 30 0d 85 |f_%+9)="":E%=0..|
00023cc0 f7 3d e7 46 25 3d 38 30 8c 41 5f 24 3d 22 50 22 |.=.F%=80.A_$="P"|
00023cd0 3a 53 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 66 |:SITe_$(Z%*sitif|
00023ce0 5f 25 2b 39 29 3d a4 63 6f 6e 76 69 73 5f 28 42 |_%+9)=.convis_(B|
00023cf0 25 2c 22 22 29 3a 45 25 3d 42 25 0d 85 fc 42 e7 |%,""):E%=B%...B.|
00023d00 46 25 3d 38 32 80 45 25 3d 30 8c 41 5f 24 3d 22 |F%=82.E%=0.A_$="|
00023d10 52 22 3a 53 49 54 65 5f 24 28 5a 25 2a 73 69 74 |R":SITe_$(Z%*sit|
00023d20 69 66 5f 25 2b 39 29 3d a4 63 6f 6e 76 69 73 5f |if_%+9)=.convis_|
00023d30 28 42 25 2c 22 22 29 3a 45 25 3d 42 25 0d 86 01 |(B%,""):E%=B%...|
00023d40 3d e7 46 25 3d 38 32 80 45 25 3c 3e 30 8c 41 5f |=.F%=82.E%<>0.A_|
00023d50 24 3d 22 52 22 3a 53 49 54 65 5f 24 28 5a 25 2a |$="R":SITe_$(Z%*|
00023d60 73 69 74 69 66 5f 25 2b 39 29 3d a4 63 6f 6e 76 |sitif_%+9)=.conv|
00023d70 69 73 5f 28 45 25 2c 22 22 29 0d 86 06 3f 5a 5f |is_(E%,"")...?Z_|
00023d80 25 3d a4 70 49 49 28 73 61 6c 65 64 25 2c 28 5a |%=.pII(saled%,(Z|
00023d90 25 2d 73 69 74 70 5f 25 29 2a 73 69 74 69 66 5f |%-sitp_%)*sitif_|
00023da0 25 2b 39 2c 53 49 54 65 5f 24 28 5a 25 2a 73 69 |%+9,SITe_$(Z%*si|
00023db0 74 69 66 5f 25 2b 39 29 29 0d 86 0b 05 cd 0d 86 |tif_%+9)).......|
00023dc0 10 a0 e7 41 5f 24 3d 22 52 22 8c 53 49 54 73 5f |...A_$="R".SITs_|
00023dd0 24 28 5a 25 29 3d 51 5f 24 20 8b e7 42 25 3d 45 |$(Z%)=Q_$ ..B%=E|
00023de0 25 8c 53 49 54 73 5f 24 28 5a 25 29 3d 22 50 61 |%.SITs_$(Z%)="Pa|
00023df0 69 64 22 20 8b e7 94 28 42 25 29 3e 94 28 45 25 |id" ...(B%)>.(E%|
00023e00 29 80 45 25 3c 3e 30 8c 53 49 54 73 5f 24 28 5a |).E%<>0.SITs_$(Z|
00023e10 25 29 3d 22 70 61 72 74 2d 50 61 69 64 22 20 8b |%)="part-Paid" .|
00023e20 e7 94 28 42 25 29 3c 94 28 45 25 29 80 45 25 3c |..(B%)<.(E%).E%<|
00023e30 3e 30 8c 53 49 54 73 5f 24 28 5a 25 29 3d 22 6f |>0.SITs_$(Z%)="o|
00023e40 76 65 72 2d 50 61 69 64 22 20 8b 53 49 54 73 5f |ver-Paid" .SITs_|
00023e50 24 28 5a 25 29 3d 22 55 6e 70 61 69 64 22 0d 86 |$(Z%)="Unpaid"..|
00023e60 15 19 e7 42 5f 24 3d 22 22 8c 53 49 54 73 5f 24 |...B_$="".SITs_$|
00023e70 28 5a 25 29 3d 22 22 0d 86 1a 9a e7 24 74 5f 25 |(Z%)="".....$t_%|
00023e80 3c 3e 22 22 3a 41 5f 25 3d 97 28 24 74 5f 25 29 |<>"":A_%=.($t_%)|
00023e90 2d 36 34 3a e7 41 5f 25 3c 31 33 8c 53 49 54 61 |-64:.A_%<13.SITa|
00023ea0 5f 24 28 5a 25 29 3d 42 61 6e 6b 4e 4e 5f 24 28 |_$(Z%)=BankNN_$(|
00023eb0 41 5f 25 29 3a 42 61 6e 6b 43 43 5f 25 28 41 5f |A_%):BankCC_%(A_|
00023ec0 25 29 3d a4 61 64 64 5f 28 42 61 6e 6b 43 43 5f |%)=.add_(BankCC_|
00023ed0 25 28 41 5f 25 29 2c 45 25 29 3a e7 28 53 49 54 |%(A_%),E%):.(SIT|
00023ee0 73 5f 24 28 5a 25 29 29 3d 51 5f 24 42 61 6e 6b |s_$(Z%))=Q_$Bank|
00023ef0 53 53 5f 25 28 41 5f 25 29 3d a4 61 64 64 5f 28 |SS_%(A_%)=.add_(|
00023f00 42 61 6e 6b 53 53 5f 25 28 41 5f 25 29 2c 45 25 |BankSS_%(A_%),E%|
00023f10 29 0d 86 1f 0e e7 24 75 5f 25 3c 3e 22 22 8c 0d |).....$u_%<>""..|
00023f20 86 24 33 e7 a9 28 24 75 5f 25 29 3d 31 8c 24 75 |.$3..($u_%)=1.$u|
00023f30 5f 25 2b 3d 22 41 22 3a 53 49 54 65 5f 24 28 5a |_%+="A":SITe_$(Z|
00023f40 25 2a 73 69 74 69 66 5f 25 2b 31 30 29 3d 24 75 |%*sitif_%+10)=$u|
00023f50 5f 25 0d 86 29 39 41 5f 25 3d 97 28 24 75 5f 25 |_%..)9A_%=.($u_%|
00023f60 29 2d 36 35 3a 42 5f 25 3d 97 28 c2 24 75 5f 25 |)-65:B_%=.(.$u_%|
00023f70 2c 31 29 29 2d 36 35 3a 61 61 5f 25 3d 41 5f 25 |,1))-65:aa_%=A_%|
00023f80 2a 34 30 2b 42 5f 25 2a 35 2b 32 0d 86 2e ed e7 |*40+B_%*5+2.....|
00023f90 41 5f 25 3c 31 32 80 42 5f 25 3c 38 8c 53 49 54 |A_%<12.B_%<8.SIT|
00023fa0 68 5f 24 28 5a 25 29 3d 53 68 65 61 64 31 5f 24 |h_$(Z%)=Shead1_$|
00023fb0 28 41 5f 25 2b 31 29 3a 41 5f 25 3d 41 5f 25 2a |(A_%+1):A_%=A_%*|
00023fc0 38 2b 31 32 2b 42 5f 25 2b 31 3a 53 49 54 68 5f |8+12+B_%+1:SITh_|
00023fd0 24 28 5a 25 29 3d 53 49 54 68 5f 24 28 5a 25 29 |$(Z%)=SITh_$(Z%)|
00023fe0 2b 22 3a 22 2b 53 68 65 61 64 31 5f 24 28 41 5f |+":"+Shead1_$(A_|
00023ff0 25 29 3a 53 68 65 61 64 74 31 5f 25 28 61 61 5f |%):Sheadt1_%(aa_|
00024000 25 29 3d a4 61 64 64 5f 28 53 68 65 61 64 74 31 |%)=.add_(Sheadt1|
00024010 5f 25 28 61 61 5f 25 29 2c 45 25 29 3a 53 68 65 |_%(aa_%),E%):She|
00024020 61 64 74 31 5f 25 28 61 61 5f 25 2b 32 29 3d a4 |adt1_%(aa_%+2)=.|
00024030 61 64 64 5f 28 53 68 65 61 64 74 31 5f 25 28 61 |add_(Sheadt1_%(a|
00024040 61 5f 25 2b 32 29 2c 62 5f 25 29 3a 53 68 65 61 |a_%+2),b_%):Shea|
00024050 64 74 31 5f 25 28 61 61 5f 25 2b 31 29 3d 53 68 |dt1_%(aa_%+1)=Sh|
00024060 65 61 64 74 31 5f 25 28 61 61 5f 25 2b 31 29 2b |eadt1_%(aa_%+1)+|
00024070 28 61 5f 25 2d 45 25 29 0d 86 33 05 cd 0d 86 38 |(a_%-E%)..3....8|
00024080 53 e7 a4 67 49 64 28 73 61 6c 65 64 25 2c 5a 25 |S..gId(saled%,Z%|
00024090 2d 73 69 74 70 5f 25 2b 36 36 29 3c 3e 53 49 54 |-sitp_%+66)<>SIT|
000240a0 61 5f 24 28 5a 25 29 8c 5a 5f 25 3d a4 70 49 49 |a_$(Z%).Z_%=.pII|
000240b0 28 73 61 6c 65 64 25 2c 5a 25 2d 73 69 74 70 5f |(saled%,Z%-sitp_|
000240c0 25 2b 36 36 2c 53 49 54 61 5f 24 28 5a 25 29 29 |%+66,SITa_$(Z%))|
000240d0 0d 86 3d 53 e7 a4 67 49 64 28 73 61 6c 65 64 25 |..=S..gId(saled%|
000240e0 2c 5a 25 2d 73 69 74 70 5f 25 2b 37 31 29 3c 3e |,Z%-sitp_%+71)<>|
000240f0 53 49 54 68 5f 24 28 5a 25 29 8c 5a 5f 25 3d a4 |SITh_$(Z%).Z_%=.|
00024100 70 49 49 28 73 61 6c 65 64 25 2c 5a 25 2d 73 69 |pII(saled%,Z%-si|
00024110 74 70 5f 25 2b 37 31 2c 53 49 54 68 5f 24 28 5a |tp_%+71,SITh_$(Z|
00024120 25 29 29 0d 86 42 53 e7 a4 67 49 64 28 73 61 6c |%))..BS..gId(sal|
00024130 65 64 25 2c 5a 25 2d 73 69 74 70 5f 25 2b 37 36 |ed%,Z%-sitp_%+76|
00024140 29 3c 3e 53 49 54 73 5f 24 28 5a 25 29 8c 5a 5f |)<>SITs_$(Z%).Z_|
00024150 25 3d a4 70 49 49 28 73 61 6c 65 64 25 2c 5a 25 |%=.pII(saled%,Z%|
00024160 2d 73 69 74 70 5f 25 2b 37 36 2c 53 49 54 73 5f |-sitp_%+76,SITs_|
00024170 24 28 5a 25 29 29 0d 86 47 05 ed 0d 86 4c 49 5a |$(Z%))..G....LIZ|
00024180 25 3d a4 75 70 64 61 74 65 62 61 6e 6b 5f 3a 5a |%=.updatebank_:Z|
00024190 25 3d a4 75 70 64 61 74 65 68 65 61 64 73 4d 5f |%=.updateheadsM_|
000241a0 28 31 29 3a 73 61 6c 65 64 70 5f 25 3d a4 73 70 |(1):saledp_%=.sp|
000241b0 5f 28 73 61 6c 65 64 25 2c 73 61 6c 65 64 70 5f |_(saled%,saledp_|
000241c0 25 29 3a e1 0d 86 51 10 dd f2 67 65 74 54 49 54 |%):...Q...getTIT|
000241d0 64 61 74 5f 0d 86 56 1f ea 20 44 25 2c 47 25 2c |dat_..V.. D%,G%,|
000241e0 48 25 2c 5a 25 3a 47 25 3d 74 5f 25 3a 48 25 3d |H%,Z%:G%=t_%:H%=|
000241f0 75 5f 25 0d 86 5b 07 ea 20 85 0d 86 60 1b ee 20 |u_%..[.. ...`.. |
00024200 85 20 ea 3a f7 20 85 3a f2 70 65 5f 28 a4 65 72 |. .:. .:.pe_(.er|
00024210 72 5f 29 3a e1 0d 86 65 46 44 25 3d 74 69 74 70 |r_):...eFD%=titp|
00024220 5f 25 2a 73 69 74 69 66 5f 25 3a e3 5a 25 3d 31 |_%*sitif_%:.Z%=1|
00024230 b8 73 69 74 69 6e 5f 25 3a 44 25 2b 3d 31 3a 54 |.sitin_%:D%+=1:T|
00024240 49 54 65 5f 24 28 44 25 29 3d a4 67 49 64 28 73 |ITe_$(D%)=.gId(s|
00024250 74 61 6e 64 25 2c 5a 25 29 3a ed 0d 86 6a 41 e3 |tand%,Z%):...jA.|
00024260 5a 25 3d 74 69 74 70 5f 25 b8 74 69 74 70 5f 25 |Z%=titp_%.titp_%|
00024270 2b 34 3a 54 49 54 61 5f 24 28 5a 25 29 3d 22 22 |+4:TITa_$(Z%)=""|
00024280 3a 54 49 54 68 5f 24 28 5a 25 29 3d 22 22 3a 54 |:TITh_$(Z%)="":T|
00024290 49 54 73 5f 24 28 5a 25 29 3d 22 22 0d 86 6f 8e |ITs_$(Z%)=""..o.|
000242a0 24 74 5f 25 3d 54 49 54 65 5f 24 28 5a 25 2a 73 |$t_%=TITe_$(Z%*s|
000242b0 69 74 69 66 5f 25 2b 34 29 3a 24 75 5f 25 3d 54 |itif_%+4):$u_%=T|
000242c0 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 66 5f 25 |ITe_$(Z%*sitif_%|
000242d0 2b 31 30 29 3a d6 6d 32 5f 25 3a 54 49 54 65 5f |+10):.m2_%:TITe_|
000242e0 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b 34 29 3d |$(Z%*sitif_%+4)=|
000242f0 24 74 5f 25 3a 54 49 54 65 5f 24 28 5a 25 2a 73 |$t_%:TITe_$(Z%*s|
00024300 69 74 69 66 5f 25 2b 31 30 29 3d 24 75 5f 25 3a |itif_%+10)=$u_%:|
00024310 54 49 54 61 5f 24 28 5a 25 29 3d a4 67 65 74 62 |TITa_$(Z%)=.getb|
00024320 61 6e 6b 5f 28 24 74 5f 25 29 0d 86 74 4a e7 54 |ank_($t_%)..tJ.T|
00024330 49 54 65 5f 25 28 5a 25 29 3d 31 8c 54 49 54 68 |ITe_%(Z%)=1.TITh|
00024340 5f 24 28 5a 25 29 3d a4 67 65 74 68 65 61 64 53 |_$(Z%)=.getheadS|
00024350 5f 28 24 75 5f 25 29 20 8b 54 49 54 68 5f 24 28 |_($u_%) .TITh_$(|
00024360 5a 25 29 3d a4 67 65 74 68 65 61 64 50 5f 28 24 |Z%)=.getheadP_($|
00024370 75 5f 25 29 0d 86 79 59 54 49 54 65 5f 24 28 5a |u_%)..yYTITe_$(Z|
00024380 25 2a 73 69 74 69 66 5f 25 2b 39 29 3d 54 49 54 |%*sitif_%+9)=TIT|
00024390 65 5f 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b 36 |e_$(Z%*sitif_%+6|
000243a0 29 3a e7 54 49 54 65 5f 24 28 5a 25 2a 73 69 74 |):.TITe_$(Z%*sit|
000243b0 69 66 5f 25 2b 36 29 3c 3e 22 22 8c 54 49 54 73 |if_%+6)<>"".TITs|
000243c0 5f 24 28 5a 25 29 3d 22 50 61 69 64 22 0d 86 7e |_$(Z%)="Paid"..~|
000243d0 79 e7 a4 67 49 64 28 73 74 61 6e 64 25 2c 28 5a |y..gId(stand%,(Z|
000243e0 25 2d 74 69 74 70 5f 25 29 2a 73 69 74 69 66 5f |%-titp_%)*sitif_|
000243f0 25 2b 39 29 3c 3e 54 49 54 65 5f 24 28 5a 25 2a |%+9)<>TITe_$(Z%*|
00024400 73 69 74 69 66 5f 25 2b 36 29 8c 5a 5f 25 3d a4 |sitif_%+6).Z_%=.|
00024410 70 49 49 28 73 74 61 6e 64 25 2c 28 5a 25 2d 74 |pII(stand%,(Z%-t|
00024420 69 74 70 5f 25 29 2a 73 69 74 69 66 5f 25 2b 39 |itp_%)*sitif_%+9|
00024430 2c 54 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 66 |,TITe_$(Z%*sitif|
00024440 5f 25 2b 36 29 29 0d 86 83 53 e7 a4 67 49 64 28 |_%+6))...S..gId(|
00024450 73 74 61 6e 64 25 2c 5a 25 2d 74 69 74 70 5f 25 |stand%,Z%-titp_%|
00024460 2b 36 36 29 3c 3e 54 49 54 61 5f 24 28 5a 25 29 |+66)<>TITa_$(Z%)|
00024470 8c 5a 5f 25 3d a4 70 49 49 28 73 74 61 6e 64 25 |.Z_%=.pII(stand%|
00024480 2c 5a 25 2d 74 69 74 70 5f 25 2b 36 36 2c 54 49 |,Z%-titp_%+66,TI|
00024490 54 61 5f 24 28 5a 25 29 29 0d 86 88 53 e7 a4 67 |Ta_$(Z%))...S..g|
000244a0 49 64 28 73 74 61 6e 64 25 2c 5a 25 2d 74 69 74 |Id(stand%,Z%-tit|
000244b0 70 5f 25 2b 37 31 29 3c 3e 54 49 54 68 5f 24 28 |p_%+71)<>TITh_$(|
000244c0 5a 25 29 8c 5a 5f 25 3d a4 70 49 49 28 73 74 61 |Z%).Z_%=.pII(sta|
000244d0 6e 64 25 2c 5a 25 2d 74 69 74 70 5f 25 2b 37 31 |nd%,Z%-titp_%+71|
000244e0 2c 54 49 54 68 5f 24 28 5a 25 29 29 0d 86 8d 53 |,TITh_$(Z%))...S|
000244f0 e7 a4 67 49 64 28 73 74 61 6e 64 25 2c 5a 25 2d |..gId(stand%,Z%-|
00024500 74 69 74 70 5f 25 2b 37 36 29 3c 3e 54 49 54 73 |titp_%+76)<>TITs|
00024510 5f 24 28 5a 25 29 8c 5a 5f 25 3d a4 70 49 49 28 |_$(Z%).Z_%=.pII(|
00024520 73 74 61 6e 64 25 2c 5a 25 2d 74 69 74 70 5f 25 |stand%,Z%-titp_%|
00024530 2b 37 36 2c 54 49 54 73 5f 24 28 5a 25 29 29 0d |+76,TITs_$(Z%)).|
00024540 86 92 05 ed 0d 86 97 05 e1 0d 86 9c 04 0d 86 a1 |................|
00024550 64 dd f2 73 61 76 65 73 61 6c 65 6c 65 64 67 65 |d..savesaleledge|
00024560 72 32 5f 28 5a 25 2c 63 5f 25 29 3a ea 20 61 61 |r2_(Z%,c_%):. aa|
00024570 5f 25 2c 62 5f 25 2c 41 25 2c 41 5f 25 2c 42 5f |_%,b_%,A%,A_%,B_|
00024580 25 2c 42 25 2c 43 25 2c 44 25 2c 45 5f 25 2c 45 |%,B%,C%,D%,E_%,E|
00024590 25 2c 47 25 2c 48 25 2c 5a 5f 25 2c 43 5f 24 2c |%,G%,H%,Z_%,C_$,|
000245a0 41 5f 24 3a 47 25 3d 74 5f 25 3a 48 25 3d 75 5f |A_$:G%=t_%:H%=u_|
000245b0 25 0d 86 a6 9d 53 49 54 73 5f 24 28 5a 25 29 3d |%....SITs_$(Z%)=|
000245c0 22 22 3a 53 49 54 61 5f 24 28 5a 25 29 3d 22 22 |"":SITa_$(Z%)=""|
000245d0 3a 53 49 54 68 5f 24 28 5a 25 29 3d 22 22 3a 24 |:SITh_$(Z%)="":$|
000245e0 74 5f 25 3d 53 49 54 65 5f 24 28 5a 25 2a 73 69 |t_%=SITe_$(Z%*si|
000245f0 74 69 66 5f 25 2b 34 29 3a 24 75 5f 25 3d 53 49 |tif_%+4):$u_%=SI|
00024600 54 65 5f 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b |Te_$(Z%*sitif_%+|
00024610 31 30 29 3a d6 6d 32 5f 25 3a 53 49 54 65 5f 24 |10):.m2_%:SITe_$|
00024620 28 5a 25 2a 73 69 74 69 66 5f 25 2b 34 29 3d 24 |(Z%*sitif_%+4)=$|
00024630 74 5f 25 3a 53 49 54 65 5f 24 28 5a 25 2a 73 69 |t_%:SITe_$(Z%*si|
00024640 74 69 66 5f 25 2b 31 30 29 3d 24 75 5f 25 0d 86 |tif_%+10)=$u_%..|
00024650 ab 5e 45 25 3d a4 6e 69 5f 28 53 49 54 65 5f 24 |.^E%=.ni_(SITe_$|
00024660 28 5a 25 2a 73 69 74 69 66 5f 25 2b 39 29 29 3a |(Z%*sitif_%+9)):|
00024670 42 25 3d a4 6e 69 5f 28 53 49 54 65 5f 24 28 5a |B%=.ni_(SITe_$(Z|
00024680 25 2a 73 69 74 69 66 5f 25 2b 36 29 29 3a 62 5f |%*sitif_%+6)):b_|
00024690 25 3d a4 6e 69 5f 28 53 49 54 65 5f 24 28 5a 25 |%=.ni_(SITe_$(Z%|
000246a0 2a 73 69 74 69 66 5f 25 2b 38 29 29 0d 86 b0 90 |*sitif_%+8))....|
000246b0 e7 63 5f 25 3d 31 8c 53 49 54 6e 5f 25 28 5a 25 |.c_%=1.SITn_%(Z%|
000246c0 2b 31 29 3d 43 53 75 4e 75 6d 62 65 72 5f 25 28 |+1)=CSuNumber_%(|
000246d0 bb 28 24 21 49 54 72 65 63 64 5f 25 29 29 20 8b |.($!ITrecd_%)) .|
000246e0 e7 63 5f 25 3d 30 3a 53 49 54 6e 5f 25 28 5a 25 |.c_%=0:SITn_%(Z%|
000246f0 2b 31 29 3d a4 67 65 74 63 75 70 5f 28 53 49 54 |+1)=.getcup_(SIT|
00024700 65 5f 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b 33 |e_$(Z%*sitif_%+3|
00024710 29 29 3a e7 53 49 54 6e 5f 25 28 5a 25 2b 31 29 |)):.SITn_%(Z%+1)|
00024720 3e 30 3a 53 49 54 65 5f 24 28 5a 25 2a 73 69 74 |>0:SITe_$(Z%*sit|
00024730 69 66 5f 25 2b 33 29 3d 6f 63 5f 24 0d 86 b5 65 |if_%+3)=oc_$...e|
00024740 e7 42 25 3d 45 25 80 6f 6c 64 64 61 74 61 5f 24 |.B%=E%.olddata_$|
00024750 28 31 31 29 3d 22 22 8c 53 49 54 73 5f 24 28 5a |(11)="".SITs_$(Z|
00024760 25 29 3d 22 50 61 69 64 22 20 8b e7 6f 6c 64 64 |%)="Paid" ..oldd|
00024770 61 74 61 5f 24 28 31 31 29 3d 22 52 22 8c 53 49 |ata_$(11)="R".SI|
00024780 54 73 5f 24 28 5a 25 29 3d 51 5f 24 20 8b 53 49 |Ts_$(Z%)=Q_$ .SI|
00024790 54 73 5f 24 28 5a 25 29 3d 22 55 6e 70 61 69 64 |Ts_$(Z%)="Unpaid|
000247a0 22 0d 86 ba c7 e7 53 49 54 65 5f 24 28 5a 25 2a |".....SITe_$(Z%*|
000247b0 73 69 74 69 66 5f 25 2b 34 29 3c 3e 22 22 3a 41 |sitif_%+4)<>"":A|
000247c0 5f 25 3d 97 28 53 49 54 65 5f 24 28 5a 25 2a 73 |_%=.(SITe_$(Z%*s|
000247d0 69 74 69 66 5f 25 2b 34 29 29 2d 36 34 3a e7 41 |itif_%+4))-64:.A|
000247e0 5f 25 3c 31 33 80 41 5f 25 3e 30 8c 53 49 54 61 |_%<13.A_%>0.SITa|
000247f0 5f 24 28 5a 25 29 3d 42 61 6e 6b 4e 4e 5f 24 28 |_$(Z%)=BankNN_$(|
00024800 41 5f 25 29 3a e7 45 25 3c 3e 30 8c 42 61 6e 6b |A_%):.E%<>0.Bank|
00024810 43 43 5f 25 28 41 5f 25 29 3d a4 61 64 64 5f 28 |CC_%(A_%)=.add_(|
00024820 42 61 6e 6b 43 43 5f 25 28 41 5f 25 29 2c 45 25 |BankCC_%(A_%),E%|
00024830 29 3a e7 28 53 49 54 73 5f 24 28 5a 25 29 29 3d |):.(SITs_$(Z%))=|
00024840 51 5f 24 42 61 6e 6b 53 53 5f 25 28 41 5f 25 29 |Q_$BankSS_%(A_%)|
00024850 3d a4 61 64 64 5f 28 42 61 6e 6b 53 53 5f 25 28 |=.add_(BankSS_%(|
00024860 41 5f 25 29 2c 45 25 29 0d 86 bf 0e e7 24 75 5f |A_%),E%).....$u_|
00024870 25 3c 3e 22 22 8c 0d 86 c4 33 e7 a9 28 24 75 5f |%<>""....3..($u_|
00024880 25 29 3d 31 8c 24 75 5f 25 2b 3d 22 41 22 3a 53 |%)=1.$u_%+="A":S|
00024890 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 66 5f 25 |ITe_$(Z%*sitif_%|
000248a0 2b 31 30 29 3d 24 75 5f 25 0d 86 c9 39 41 5f 25 |+10)=$u_%...9A_%|
000248b0 3d 97 28 24 75 5f 25 29 2d 36 35 3a 42 5f 25 3d |=.($u_%)-65:B_%=|
000248c0 97 28 c2 24 75 5f 25 2c 31 29 29 2d 36 35 3a 61 |.(.$u_%,1))-65:a|
000248d0 61 5f 25 3d 41 5f 25 2a 34 30 2b 42 5f 25 2a 35 |a_%=A_%*40+B_%*5|
000248e0 2b 32 0d 86 ce ec e7 41 5f 25 3c 31 32 80 42 5f |+2.....A_%<12.B_|
000248f0 25 3c 38 8c 53 49 54 68 5f 24 28 5a 25 29 3d 53 |%<8.SITh_$(Z%)=S|
00024900 68 65 61 64 31 5f 24 28 41 5f 25 2b 31 29 3a 41 |head1_$(A_%+1):A|
00024910 5f 25 3d 41 5f 25 2a 38 2b 31 32 2b 42 5f 25 2b |_%=A_%*8+12+B_%+|
00024920 31 3a 53 49 54 68 5f 24 28 5a 25 29 3d 53 49 54 |1:SITh_$(Z%)=SIT|
00024930 68 5f 24 28 5a 25 29 2b 22 3a 22 2b 53 68 65 61 |h_$(Z%)+":"+Shea|
00024940 64 31 5f 24 28 41 5f 25 29 3a 53 68 65 61 64 74 |d1_$(A_%):Sheadt|
00024950 31 5f 25 28 61 61 5f 25 29 3d a4 61 64 64 5f 28 |1_%(aa_%)=.add_(|
00024960 53 68 65 61 64 74 31 5f 25 28 61 61 5f 25 29 2c |Sheadt1_%(aa_%),|
00024970 45 25 29 3a 53 68 65 61 64 74 31 5f 25 28 61 61 |E%):Sheadt1_%(aa|
00024980 5f 25 2b 32 29 3d a4 61 64 64 5f 28 53 68 65 61 |_%+2)=.add_(Shea|
00024990 64 74 31 5f 25 28 61 61 5f 25 2b 32 29 2c 62 5f |dt1_%(aa_%+2),b_|
000249a0 25 29 3a 53 68 65 61 64 74 31 5f 25 28 61 61 5f |%):Sheadt1_%(aa_|
000249b0 25 2b 31 29 3d 53 68 65 61 64 74 31 5f 25 28 61 |%+1)=Sheadt1_%(a|
000249c0 61 5f 25 2b 31 29 2b 28 42 25 2d 45 25 29 0d 86 |a_%+1)+(B%-E%)..|
000249d0 d3 05 cd 0d 86 d8 0e e7 73 61 6c 65 64 25 3e 30 |........saled%>0|
000249e0 8c 0d 86 dd 53 e7 a4 67 49 64 28 73 61 6c 65 64 |....S..gId(saled|
000249f0 25 2c 5a 25 2d 73 69 74 70 5f 25 2b 36 36 29 3c |%,Z%-sitp_%+66)<|
00024a00 3e 53 49 54 61 5f 24 28 5a 25 29 8c 5a 5f 25 3d |>SITa_$(Z%).Z_%=|
00024a10 a4 70 49 49 28 73 61 6c 65 64 25 2c 5a 25 2d 73 |.pII(saled%,Z%-s|
00024a20 69 74 70 5f 25 2b 36 36 2c 53 49 54 61 5f 24 28 |itp_%+66,SITa_$(|
00024a30 5a 25 29 29 0d 86 e2 53 e7 a4 67 49 64 28 73 61 |Z%))...S..gId(sa|
00024a40 6c 65 64 25 2c 5a 25 2d 73 69 74 70 5f 25 2b 37 |led%,Z%-sitp_%+7|
00024a50 31 29 3c 3e 53 49 54 68 5f 24 28 5a 25 29 8c 5a |1)<>SITh_$(Z%).Z|
00024a60 5f 25 3d a4 70 49 49 28 73 61 6c 65 64 25 2c 5a |_%=.pII(saled%,Z|
00024a70 25 2d 73 69 74 70 5f 25 2b 37 31 2c 53 49 54 68 |%-sitp_%+71,SITh|
00024a80 5f 24 28 5a 25 29 29 0d 86 e7 53 e7 a4 67 49 64 |_$(Z%))...S..gId|
00024a90 28 73 61 6c 65 64 25 2c 5a 25 2d 73 69 74 70 5f |(saled%,Z%-sitp_|
00024aa0 25 2b 37 36 29 3c 3e 53 49 54 73 5f 24 28 5a 25 |%+76)<>SITs_$(Z%|
00024ab0 29 8c 5a 5f 25 3d a4 70 49 49 28 73 61 6c 65 64 |).Z_%=.pII(saled|
00024ac0 25 2c 5a 25 2d 73 69 74 70 5f 25 2b 37 36 2c 53 |%,Z%-sitp_%+76,S|
00024ad0 49 54 73 5f 24 28 5a 25 29 29 0d 86 ec 12 f2 73 |ITs_$(Z%)).....s|
00024ae0 65 74 53 49 54 64 61 74 5f 28 30 29 0d 86 f1 05 |etSITdat_(0)....|
00024af0 cd 0d 86 f6 2a 5a 25 3d a4 75 70 64 61 74 65 62 |....*Z%=.updateb|
00024b00 61 6e 6b 5f 3a 5a 25 3d a4 75 70 64 61 74 65 68 |ank_:Z%=.updateh|
00024b10 65 61 64 73 4d 5f 28 31 29 3a e1 0d 86 fb 04 0d |eadsM_(1):......|
00024b20 87 00 65 dd f2 73 61 76 65 70 75 72 63 68 6c 65 |..e..savepurchle|
00024b30 64 67 65 72 32 5f 28 5a 25 2c 63 5f 25 29 3a ea |dger2_(Z%,c_%):.|
00024b40 20 61 61 5f 25 2c 62 5f 25 2c 41 25 2c 41 5f 25 | aa_%,b_%,A%,A_%|
00024b50 2c 42 5f 25 2c 42 25 2c 43 25 2c 44 25 2c 45 5f |,B_%,B%,C%,D%,E_|
00024b60 25 2c 45 25 2c 47 25 2c 48 25 2c 5a 5f 25 2c 43 |%,E%,G%,H%,Z_%,C|
00024b70 5f 24 2c 41 5f 24 3a 47 25 3d 74 5f 25 3a 48 25 |_$,A_$:G%=t_%:H%|
00024b80 3d 75 5f 25 0d 87 05 9d 50 49 54 73 5f 24 28 5a |=u_%....PITs_$(Z|
00024b90 25 29 3d 22 22 3a 50 49 54 61 5f 24 28 5a 25 29 |%)="":PITa_$(Z%)|
00024ba0 3d 22 22 3a 50 49 54 68 5f 24 28 5a 25 29 3d 22 |="":PITh_$(Z%)="|
00024bb0 22 3a 24 74 5f 25 3d 50 49 54 65 5f 24 28 5a 25 |":$t_%=PITe_$(Z%|
00024bc0 2a 73 69 74 69 66 5f 25 2b 34 29 3a 24 75 5f 25 |*sitif_%+4):$u_%|
00024bd0 3d 50 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 66 |=PITe_$(Z%*sitif|
00024be0 5f 25 2b 31 30 29 3a d6 6d 32 5f 25 3a 50 49 54 |_%+10):.m2_%:PIT|
00024bf0 65 5f 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b 34 |e_$(Z%*sitif_%+4|
00024c00 29 3d 24 74 5f 25 3a 50 49 54 65 5f 24 28 5a 25 |)=$t_%:PITe_$(Z%|
00024c10 2a 73 69 74 69 66 5f 25 2b 31 30 29 3d 24 75 5f |*sitif_%+10)=$u_|
00024c20 25 0d 87 0a 5e 45 25 3d a4 6e 69 5f 28 50 49 54 |%...^E%=.ni_(PIT|
00024c30 65 5f 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b 39 |e_$(Z%*sitif_%+9|
00024c40 29 29 3a 42 25 3d a4 6e 69 5f 28 50 49 54 65 5f |)):B%=.ni_(PITe_|
00024c50 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b 36 29 29 |$(Z%*sitif_%+6))|
00024c60 3a 62 5f 25 3d a4 6e 69 5f 28 50 49 54 65 5f 24 |:b_%=.ni_(PITe_$|
00024c70 28 5a 25 2a 73 69 74 69 66 5f 25 2b 38 29 29 0d |(Z%*sitif_%+8)).|
00024c80 87 0f 19 e7 63 5f 25 3d 30 3a 50 49 54 6e 5f 25 |....c_%=0:PITn_%|
00024c90 28 5a 25 2b 31 29 3d 30 0d 87 14 65 e7 42 25 3d |(Z%+1)=0...e.B%=|
00024ca0 45 25 80 6f 6c 64 64 61 74 61 5f 24 28 31 31 29 |E%.olddata_$(11)|
00024cb0 3d 22 22 8c 50 49 54 73 5f 24 28 5a 25 29 3d 22 |="".PITs_$(Z%)="|
00024cc0 50 61 69 64 22 20 8b e7 6f 6c 64 64 61 74 61 5f |Paid" ..olddata_|
00024cd0 24 28 31 31 29 3d 22 52 22 8c 50 49 54 73 5f 24 |$(11)="R".PITs_$|
00024ce0 28 5a 25 29 3d 51 5f 24 20 8b 50 49 54 73 5f 24 |(Z%)=Q_$ .PITs_$|
00024cf0 28 5a 25 29 3d 22 55 6e 70 61 69 64 22 0d 87 19 |(Z%)="Unpaid"...|
00024d00 c9 e7 50 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 |..PITe_$(Z%*siti|
00024d10 66 5f 25 2b 34 29 3c 3e 22 22 3a 41 5f 25 3d 97 |f_%+4)<>"":A_%=.|
00024d20 28 50 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 66 |(PITe_$(Z%*sitif|
00024d30 5f 25 2b 34 29 29 2d 36 34 3a e7 41 5f 25 3c 31 |_%+4))-64:.A_%<1|
00024d40 33 80 41 5f 25 3e 30 8c 50 49 54 61 5f 24 28 5a |3.A_%>0.PITa_$(Z|
00024d50 25 29 3d 42 61 6e 6b 4e 4e 5f 24 28 41 5f 25 29 |%)=BankNN_$(A_%)|
00024d60 3a e7 45 25 3c 3e 30 8c 42 61 6e 6b 43 43 5f 25 |:.E%<>0.BankCC_%|
00024d70 28 41 5f 25 29 3d a4 61 64 64 5f 28 42 61 6e 6b |(A_%)=.add_(Bank|
00024d80 43 43 5f 25 28 41 5f 25 29 2c 2d 45 25 29 3a e7 |CC_%(A_%),-E%):.|
00024d90 28 50 49 54 73 5f 24 28 5a 25 29 29 3d 51 5f 24 |(PITs_$(Z%))=Q_$|
00024da0 42 61 6e 6b 53 53 5f 25 28 41 5f 25 29 3d a4 61 |BankSS_%(A_%)=.a|
00024db0 64 64 5f 28 42 61 6e 6b 53 53 5f 25 28 41 5f 25 |dd_(BankSS_%(A_%|
00024dc0 29 2c 2d 45 25 29 0d 87 1e 0e e7 24 75 5f 25 3c |),-E%).....$u_%<|
00024dd0 3e 22 22 8c 0d 87 23 33 e7 a9 28 24 75 5f 25 29 |>""...#3..($u_%)|
00024de0 3d 31 8c 24 75 5f 25 2b 3d 22 41 22 3a 50 49 54 |=1.$u_%+="A":PIT|
00024df0 65 5f 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b 31 |e_$(Z%*sitif_%+1|
00024e00 30 29 3d 24 75 5f 25 0d 87 28 39 41 5f 25 3d 97 |0)=$u_%..(9A_%=.|
00024e10 28 24 75 5f 25 29 2d 36 35 3a 42 5f 25 3d 97 28 |($u_%)-65:B_%=.(|
00024e20 c2 24 75 5f 25 2c 31 29 29 2d 36 35 3a 61 61 5f |.$u_%,1))-65:aa_|
00024e30 25 3d 41 5f 25 2a 34 30 2b 42 5f 25 2a 35 2b 32 |%=A_%*40+B_%*5+2|
00024e40 0d 87 2d ec e7 41 5f 25 3c 31 32 80 42 5f 25 3c |..-..A_%<12.B_%<|
00024e50 38 8c 50 49 54 68 5f 24 28 5a 25 29 3d 50 68 65 |8.PITh_$(Z%)=Phe|
00024e60 61 64 31 5f 24 28 41 5f 25 2b 31 29 3a 41 5f 25 |ad1_$(A_%+1):A_%|
00024e70 3d 41 5f 25 2a 38 2b 31 32 2b 42 5f 25 2b 31 3a |=A_%*8+12+B_%+1:|
00024e80 50 49 54 68 5f 24 28 5a 25 29 3d 50 49 54 68 5f |PITh_$(Z%)=PITh_|
00024e90 24 28 5a 25 29 2b 22 3a 22 2b 50 68 65 61 64 31 |$(Z%)+":"+Phead1|
00024ea0 5f 24 28 41 5f 25 29 3a 50 68 65 61 64 74 31 5f |_$(A_%):Pheadt1_|
00024eb0 25 28 61 61 5f 25 29 3d a4 61 64 64 5f 28 50 68 |%(aa_%)=.add_(Ph|
00024ec0 65 61 64 74 31 5f 25 28 61 61 5f 25 29 2c 45 25 |eadt1_%(aa_%),E%|
00024ed0 29 3a 50 68 65 61 64 74 31 5f 25 28 61 61 5f 25 |):Pheadt1_%(aa_%|
00024ee0 2b 32 29 3d a4 61 64 64 5f 28 50 68 65 61 64 74 |+2)=.add_(Pheadt|
00024ef0 31 5f 25 28 61 61 5f 25 2b 32 29 2c 62 5f 25 29 |1_%(aa_%+2),b_%)|
00024f00 3a 50 68 65 61 64 74 31 5f 25 28 61 61 5f 25 2b |:Pheadt1_%(aa_%+|
00024f10 31 29 3d 50 68 65 61 64 74 31 5f 25 28 61 61 5f |1)=Pheadt1_%(aa_|
00024f20 25 2b 31 29 2b 28 42 25 2d 45 25 29 0d 87 32 05 |%+1)+(B%-E%)..2.|
00024f30 cd 0d 87 37 0e e7 70 61 6c 65 64 25 3e 30 8c 0d |...7..paled%>0..|
00024f40 87 3c 53 e7 a4 67 49 64 28 70 61 6c 65 64 25 2c |.<S..gId(paled%,|
00024f50 5a 25 2d 70 69 74 70 5f 25 2b 36 36 29 3c 3e 50 |Z%-pitp_%+66)<>P|
00024f60 49 54 61 5f 24 28 5a 25 29 8c 5a 5f 25 3d a4 70 |ITa_$(Z%).Z_%=.p|
00024f70 49 49 28 70 61 6c 65 64 25 2c 5a 25 2d 70 69 74 |II(paled%,Z%-pit|
00024f80 70 5f 25 2b 36 36 2c 50 49 54 61 5f 24 28 5a 25 |p_%+66,PITa_$(Z%|
00024f90 29 29 0d 87 41 53 e7 a4 67 49 64 28 70 61 6c 65 |))..AS..gId(pale|
00024fa0 64 25 2c 5a 25 2d 70 69 74 70 5f 25 2b 37 31 29 |d%,Z%-pitp_%+71)|
00024fb0 3c 3e 50 49 54 68 5f 24 28 5a 25 29 8c 5a 5f 25 |<>PITh_$(Z%).Z_%|
00024fc0 3d a4 70 49 49 28 70 61 6c 65 64 25 2c 5a 25 2d |=.pII(paled%,Z%-|
00024fd0 70 69 74 70 5f 25 2b 37 31 2c 50 49 54 68 5f 24 |pitp_%+71,PITh_$|
00024fe0 28 5a 25 29 29 0d 87 46 53 e7 a4 67 49 64 28 70 |(Z%))..FS..gId(p|
00024ff0 61 6c 65 64 25 2c 5a 25 2d 70 69 74 70 5f 25 2b |aled%,Z%-pitp_%+|
00025000 37 36 29 3c 3e 50 49 54 73 5f 24 28 5a 25 29 8c |76)<>PITs_$(Z%).|
00025010 5a 5f 25 3d a4 70 49 49 28 70 61 6c 65 64 25 2c |Z_%=.pII(paled%,|
00025020 5a 25 2d 70 69 74 70 5f 25 2b 37 36 2c 50 49 54 |Z%-pitp_%+76,PIT|
00025030 73 5f 24 28 5a 25 29 29 0d 87 4b 12 f2 73 65 74 |s_$(Z%))..K..set|
00025040 50 49 54 64 61 74 5f 28 30 29 0d 87 50 05 cd 0d |PITdat_(0)..P...|
00025050 87 55 2a 5a 25 3d a4 75 70 64 61 74 65 62 61 6e |.U*Z%=.updateban|
00025060 6b 5f 3a 5a 25 3d a4 75 70 64 61 74 65 68 65 61 |k_:Z%=.updatehea|
00025070 64 70 4d 5f 28 31 29 3a e1 0d 87 5a 04 0d 87 5f |dpM_(1):...Z..._|
00025080 10 dd f2 67 65 74 50 49 54 64 61 74 5f 0d 87 64 |...getPITdat_..d|
00025090 57 ea 20 61 61 5f 25 2c 61 5f 25 2c 62 5f 25 2c |W. aa_%,a_%,b_%,|
000250a0 41 25 2c 41 5f 25 2c 42 5f 25 2c 42 25 2c 43 25 |A%,A_%,B_%,B%,C%|
000250b0 2c 44 25 2c 45 5f 25 2c 45 25 2c 46 25 2c 47 25 |,D%,E_%,E%,F%,G%|
000250c0 2c 48 25 2c 5a 25 2c 5a 5f 25 2c 43 5f 24 2c 41 |,H%,Z%,Z_%,C_$,A|
000250d0 5f 24 2c 42 5f 24 3a 47 25 3d 74 5f 25 3a 48 25 |_$,B_$:G%=t_%:H%|
000250e0 3d 75 5f 25 0d 87 69 07 ea 20 85 0d 87 6e 1b ee |=u_%..i.. ...n..|
000250f0 20 85 20 ea 3a f7 20 85 3a f2 70 65 5f 28 a4 65 | . .:. .:.pe_(.e|
00025100 72 72 5f 29 3a e1 0d 87 73 17 e3 5a 25 3d 70 69 |rr_):...s..Z%=pi|
00025110 74 70 5f 25 b8 70 69 74 70 5f 25 2b 34 0d 87 78 |tp_%.pitp_%+4..x|
00025120 9a 41 25 3d a4 6e 69 5f 28 50 49 54 65 5f 24 28 |.A%=.ni_(PITe_$(|
00025130 5a 25 2a 73 69 74 69 66 5f 25 2b 39 29 29 3a 61 |Z%*sitif_%+9)):a|
00025140 5f 25 3d a4 6e 69 5f 28 50 49 54 65 5f 24 28 5a |_%=.ni_(PITe_$(Z|
00025150 25 2a 73 69 74 69 66 5f 25 2b 36 29 29 3a 62 5f |%*sitif_%+6)):b_|
00025160 25 3d a4 6e 69 5f 28 50 49 54 65 5f 24 28 5a 25 |%=.ni_(PITe_$(Z%|
00025170 2a 73 69 74 69 66 5f 25 2b 38 29 29 3a 24 74 5f |*sitif_%+8)):$t_|
00025180 25 3d 50 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 |%=PITe_$(Z%*siti|
00025190 66 5f 25 2b 34 29 3a 24 75 5f 25 3d 50 49 54 65 |f_%+4):$u_%=PITe|
000251a0 5f 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b 31 30 |_$(Z%*sitif_%+10|
000251b0 29 3a d6 6d 32 5f 25 0d 87 7d 80 e7 24 74 5f 25 |):.m2_%..}..$t_%|
000251c0 3c 3e 22 22 8c 41 5f 25 3d 97 28 24 74 5f 25 29 |<>"".A_%=.($t_%)|
000251d0 2d 36 34 3a e7 41 5f 25 3c 31 33 8c 42 61 6e 6b |-64:.A_%<13.Bank|
000251e0 43 43 5f 25 28 41 5f 25 29 3d a4 61 64 64 5f 28 |CC_%(A_%)=.add_(|
000251f0 42 61 6e 6b 43 43 5f 25 28 41 5f 25 29 2c 41 25 |BankCC_%(A_%),A%|
00025200 29 3a e7 50 49 54 73 5f 24 28 5a 25 29 3d 51 5f |):.PITs_$(Z%)=Q_|
00025210 24 8c 42 61 6e 6b 53 53 5f 25 28 41 5f 25 29 3d |$.BankSS_%(A_%)=|
00025220 a4 61 64 64 5f 28 42 61 6e 6b 53 53 5f 25 28 41 |.add_(BankSS_%(A|
00025230 5f 25 29 2c 41 25 29 0d 87 82 18 e7 a9 28 24 75 |_%),A%)......($u|
00025240 5f 25 29 3d 31 8c 24 75 5f 25 2b 3d 22 41 22 0d |_%)=1.$u_%+="A".|
00025250 87 87 d2 e7 24 75 5f 25 3c 3e 22 22 8c 41 5f 25 |....$u_%<>"".A_%|
00025260 3d 97 28 24 75 5f 25 29 2d 36 35 3a 42 5f 25 3d |=.($u_%)-65:B_%=|
00025270 97 28 c2 24 75 5f 25 2c 31 29 29 2d 36 35 3a e7 |.(.$u_%,1))-65:.|
00025280 41 5f 25 3c 31 32 80 42 5f 25 3c 38 8c 41 5f 25 |A_%<12.B_%<8.A_%|
00025290 3d 41 5f 25 2a 34 30 2b 42 5f 25 2a 35 2b 32 3a |=A_%*40+B_%*5+2:|
000252a0 50 68 65 61 64 74 31 5f 25 28 41 5f 25 29 3d a4 |Pheadt1_%(A_%)=.|
000252b0 61 64 64 5f 28 50 68 65 61 64 74 31 5f 25 28 41 |add_(Pheadt1_%(A|
000252c0 5f 25 29 2c 2d 41 25 29 3a 50 68 65 61 64 74 31 |_%),-A%):Pheadt1|
000252d0 5f 25 28 41 5f 25 2b 32 29 3d a4 61 64 64 5f 28 |_%(A_%+2)=.add_(|
000252e0 50 68 65 61 64 74 31 5f 25 28 41 5f 25 2b 32 29 |Pheadt1_%(A_%+2)|
000252f0 2c 2d 62 5f 25 29 3a 50 68 65 61 64 74 31 5f 25 |,-b_%):Pheadt1_%|
00025300 28 41 5f 25 2b 31 29 3d 50 68 65 61 64 74 31 5f |(A_%+1)=Pheadt1_|
00025310 25 28 41 5f 25 2b 31 29 2d 28 61 5f 25 2d 41 25 |%(A_%+1)-(a_%-A%|
00025320 29 0d 87 8c 05 ed 0d 87 91 46 44 25 3d 70 69 74 |)........FD%=pit|
00025330 70 5f 25 2a 73 69 74 69 66 5f 25 3a e3 5a 25 3d |p_%*sitif_%:.Z%=|
00025340 31 b8 73 69 74 69 6e 5f 25 3a 44 25 2b 3d 31 3a |1.sitin_%:D%+=1:|
00025350 50 49 54 65 5f 24 28 44 25 29 3d a4 67 49 64 28 |PITe_$(D%)=.gId(|
00025360 70 61 6c 65 64 25 2c 5a 25 29 3a ed 0d 87 96 b6 |paled%,Z%):.....|
00025370 e3 5a 25 3d 70 69 74 70 5f 25 b8 70 69 74 70 5f |.Z%=pitp_%.pitp_|
00025380 25 2b 34 3a 24 75 5f 25 3d 50 49 54 65 5f 24 28 |%+4:$u_%=PITe_$(|
00025390 5a 25 2a 73 69 74 69 66 5f 25 2b 39 29 3a d6 6d |Z%*sitif_%+9):.m|
000253a0 33 5f 25 3a 46 25 3d 97 28 24 75 5f 25 29 3a 41 |3_%:F%=.($u_%):A|
000253b0 5f 24 3d c0 a4 67 49 64 28 70 61 6c 65 64 25 2c |_$=..gId(paled%,|
000253c0 5a 25 2d 70 69 74 70 5f 25 2b 37 36 29 2c 31 29 |Z%-pitp_%+76),1)|
000253d0 3a 42 5f 24 3d 50 49 54 65 5f 24 28 5a 25 2a 73 |:B_$=PITe_$(Z%*s|
000253e0 69 74 69 66 5f 25 2b 31 29 3a e7 50 49 54 65 5f |itif_%+1):.PITe_|
000253f0 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b 33 29 3d |$(Z%*sitif_%+3)=|
00025400 22 22 3a e7 50 49 54 6e 5f 25 28 5a 25 2b 31 29 |"":.PITn_%(Z%+1)|
00025410 3c 3e 30 8c 50 49 54 6e 5f 25 28 5a 25 2b 31 29 |<>0.PITn_%(Z%+1)|
00025420 3d 30 0d 87 9b cb 24 74 5f 25 3d 50 49 54 65 5f |=0....$t_%=PITe_|
00025430 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b 34 29 3a |$(Z%*sitif_%+4):|
00025440 24 75 5f 25 3d 50 49 54 65 5f 24 28 5a 25 2a 73 |$u_%=PITe_$(Z%*s|
00025450 69 74 69 66 5f 25 2b 31 30 29 3a d6 6d 32 5f 25 |itif_%+10):.m2_%|
00025460 3a 50 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 66 |:PITe_$(Z%*sitif|
00025470 5f 25 2b 34 29 3d 24 74 5f 25 3a 50 49 54 65 5f |_%+4)=$t_%:PITe_|
00025480 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b 31 30 29 |$(Z%*sitif_%+10)|
00025490 3d 24 75 5f 25 3a 42 25 3d a4 6e 69 5f 28 50 49 |=$u_%:B%=.ni_(PI|
000254a0 54 65 5f 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b |Te_$(Z%*sitif_%+|
000254b0 36 29 29 3a 50 49 54 61 5f 24 28 5a 25 29 3d 22 |6)):PITa_$(Z%)="|
000254c0 22 3a 50 49 54 68 5f 24 28 5a 25 29 3d 22 22 3a |":PITh_$(Z%)="":|
000254d0 45 25 3d a4 6e 69 5f 28 50 49 54 65 5f 24 28 5a |E%=.ni_(PITe_$(Z|
000254e0 25 2a 73 69 74 69 66 5f 25 2b 39 29 29 0d 87 a0 |%*sitif_%+9))...|
000254f0 41 61 5f 25 3d a4 6e 69 5f 28 50 49 54 65 5f 24 |Aa_%=.ni_(PITe_$|
00025500 28 5a 25 2a 73 69 74 69 66 5f 25 2b 36 29 29 3a |(Z%*sitif_%+6)):|
00025510 62 5f 25 3d a4 6e 69 5f 28 50 49 54 65 5f 24 28 |b_%=.ni_(PITe_$(|
00025520 5a 25 2a 73 69 74 69 66 5f 25 2b 38 29 29 0d 87 |Z%*sitif_%+8))..|
00025530 a5 0a e7 46 25 3e 30 8c 0d 87 aa 2f e7 46 25 3d |...F%>0..../.F%=|
00025540 38 35 8c 41 5f 24 3d 22 55 22 3a 50 49 54 65 5f |85.A_$="U":PITe_|
00025550 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b 39 29 3d |$(Z%*sitif_%+9)=|
00025560 22 22 3a 45 25 3d 30 0d 87 af 3d e7 46 25 3d 38 |"":E%=0...=.F%=8|
00025570 30 8c 41 5f 24 3d 22 50 22 3a 50 49 54 65 5f 24 |0.A_$="P":PITe_$|
00025580 28 5a 25 2a 73 69 74 69 66 5f 25 2b 39 29 3d a4 |(Z%*sitif_%+9)=.|
00025590 63 6f 6e 76 69 73 5f 28 42 25 2c 22 22 29 3a 45 |convis_(B%,""):E|
000255a0 25 3d 42 25 0d 87 b4 42 e7 46 25 3d 38 32 80 45 |%=B%...B.F%=82.E|
000255b0 25 3d 30 8c 41 5f 24 3d 22 52 22 3a 50 49 54 65 |%=0.A_$="R":PITe|
000255c0 5f 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b 39 29 |_$(Z%*sitif_%+9)|
000255d0 3d a4 63 6f 6e 76 69 73 5f 28 42 25 2c 22 22 29 |=.convis_(B%,"")|
000255e0 3a 45 25 3d 42 25 0d 87 b9 3d e7 46 25 3d 38 32 |:E%=B%...=.F%=82|
000255f0 80 45 25 3c 3e 30 8c 41 5f 24 3d 22 52 22 3a 50 |.E%<>0.A_$="R":P|
00025600 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 66 5f 25 |ITe_$(Z%*sitif_%|
00025610 2b 39 29 3d a4 63 6f 6e 76 69 73 5f 28 45 25 2c |+9)=.convis_(E%,|
00025620 22 22 29 0d 87 be 3f 5a 5f 25 3d a4 70 49 49 28 |"")...?Z_%=.pII(|
00025630 70 61 6c 65 64 25 2c 28 5a 25 2d 70 69 74 70 5f |paled%,(Z%-pitp_|
00025640 25 29 2a 73 69 74 69 66 5f 25 2b 39 2c 50 49 54 |%)*sitif_%+9,PIT|
00025650 65 5f 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b 39 |e_$(Z%*sitif_%+9|
00025660 29 29 0d 87 c3 05 cd 0d 87 c8 a0 e7 41 5f 24 3d |))..........A_$=|
00025670 22 52 22 8c 50 49 54 73 5f 24 28 5a 25 29 3d 51 |"R".PITs_$(Z%)=Q|
00025680 5f 24 20 8b e7 42 25 3d 45 25 8c 50 49 54 73 5f |_$ ..B%=E%.PITs_|
00025690 24 28 5a 25 29 3d 22 50 61 69 64 22 20 8b e7 94 |$(Z%)="Paid" ...|
000256a0 28 42 25 29 3e 94 28 45 25 29 80 45 25 3c 3e 30 |(B%)>.(E%).E%<>0|
000256b0 8c 50 49 54 73 5f 24 28 5a 25 29 3d 22 70 61 72 |.PITs_$(Z%)="par|
000256c0 74 2d 50 61 69 64 22 20 8b e7 94 28 42 25 29 3c |t-Paid" ...(B%)<|
000256d0 94 28 45 25 29 80 45 25 3c 3e 30 8c 50 49 54 73 |.(E%).E%<>0.PITs|
000256e0 5f 24 28 5a 25 29 3d 22 6f 76 65 72 2d 50 61 69 |_$(Z%)="over-Pai|
000256f0 64 22 20 8b 50 49 54 73 5f 24 28 5a 25 29 3d 22 |d" .PITs_$(Z%)="|
00025700 55 6e 70 61 69 64 22 0d 87 cd 19 e7 42 5f 24 3d |Unpaid".....B_$=|
00025710 22 22 8c 50 49 54 73 5f 24 28 5a 25 29 3d 22 22 |"".PITs_$(Z%)=""|
00025720 0d 87 d2 9c e7 24 74 5f 25 3c 3e 22 22 3a 41 5f |.....$t_%<>"":A_|
00025730 25 3d 97 28 24 74 5f 25 29 2d 36 34 3a e7 41 5f |%=.($t_%)-64:.A_|
00025740 25 3c 31 33 8c 50 49 54 61 5f 24 28 5a 25 29 3d |%<13.PITa_$(Z%)=|
00025750 42 61 6e 6b 4e 4e 5f 24 28 41 5f 25 29 3a 42 61 |BankNN_$(A_%):Ba|
00025760 6e 6b 43 43 5f 25 28 41 5f 25 29 3d a4 61 64 64 |nkCC_%(A_%)=.add|
00025770 5f 28 42 61 6e 6b 43 43 5f 25 28 41 5f 25 29 2c |_(BankCC_%(A_%),|
00025780 2d 45 25 29 3a e7 28 50 49 54 73 5f 24 28 5a 25 |-E%):.(PITs_$(Z%|
00025790 29 29 3d 51 5f 24 42 61 6e 6b 53 53 5f 25 28 41 |))=Q_$BankSS_%(A|
000257a0 5f 25 29 3d a4 61 64 64 5f 28 42 61 6e 6b 53 53 |_%)=.add_(BankSS|
000257b0 5f 25 28 41 5f 25 29 2c 2d 45 25 29 0d 87 d7 0e |_%(A_%),-E%)....|
000257c0 e7 24 75 5f 25 3c 3e 22 22 8c 0d 87 dc 33 e7 a9 |.$u_%<>""....3..|
000257d0 28 24 75 5f 25 29 3d 31 8c 24 75 5f 25 2b 3d 22 |($u_%)=1.$u_%+="|
000257e0 41 22 3a 50 49 54 65 5f 24 28 5a 25 2a 73 69 74 |A":PITe_$(Z%*sit|
000257f0 69 66 5f 25 2b 31 30 29 3d 24 75 5f 25 0d 87 e1 |if_%+10)=$u_%...|
00025800 39 41 5f 25 3d 97 28 24 75 5f 25 29 2d 36 35 3a |9A_%=.($u_%)-65:|
00025810 42 5f 25 3d 97 28 c2 24 75 5f 25 2c 31 29 29 2d |B_%=.(.$u_%,1))-|
00025820 36 35 3a 61 61 5f 25 3d 41 5f 25 2a 34 30 2b 42 |65:aa_%=A_%*40+B|
00025830 5f 25 2a 35 2b 32 0d 87 e6 ed e7 41 5f 25 3c 31 |_%*5+2.....A_%<1|
00025840 32 80 42 5f 25 3c 38 8c 50 49 54 68 5f 24 28 5a |2.B_%<8.PITh_$(Z|
00025850 25 29 3d 50 68 65 61 64 31 5f 24 28 41 5f 25 2b |%)=Phead1_$(A_%+|
00025860 31 29 3a 41 5f 25 3d 41 5f 25 2a 38 2b 31 32 2b |1):A_%=A_%*8+12+|
00025870 42 5f 25 2b 31 3a 50 49 54 68 5f 24 28 5a 25 29 |B_%+1:PITh_$(Z%)|
00025880 3d 50 49 54 68 5f 24 28 5a 25 29 2b 22 3a 22 2b |=PITh_$(Z%)+":"+|
00025890 50 68 65 61 64 31 5f 24 28 41 5f 25 29 3a 50 68 |Phead1_$(A_%):Ph|
000258a0 65 61 64 74 31 5f 25 28 61 61 5f 25 29 3d a4 61 |eadt1_%(aa_%)=.a|
000258b0 64 64 5f 28 50 68 65 61 64 74 31 5f 25 28 61 61 |dd_(Pheadt1_%(aa|
000258c0 5f 25 29 2c 45 25 29 3a 50 68 65 61 64 74 31 5f |_%),E%):Pheadt1_|
000258d0 25 28 61 61 5f 25 2b 32 29 3d a4 61 64 64 5f 28 |%(aa_%+2)=.add_(|
000258e0 50 68 65 61 64 74 31 5f 25 28 61 61 5f 25 2b 32 |Pheadt1_%(aa_%+2|
000258f0 29 2c 62 5f 25 29 3a 50 68 65 61 64 74 31 5f 25 |),b_%):Pheadt1_%|
00025900 28 61 61 5f 25 2b 31 29 3d 50 68 65 61 64 74 31 |(aa_%+1)=Pheadt1|
00025910 5f 25 28 61 61 5f 25 2b 31 29 2b 28 61 5f 25 2d |_%(aa_%+1)+(a_%-|
00025920 45 25 29 0d 87 eb 05 cd 0d 87 f0 53 e7 a4 67 49 |E%)........S..gI|
00025930 64 28 70 61 6c 65 64 25 2c 5a 25 2d 70 69 74 70 |d(paled%,Z%-pitp|
00025940 5f 25 2b 36 36 29 3c 3e 50 49 54 61 5f 24 28 5a |_%+66)<>PITa_$(Z|
00025950 25 29 8c 5a 5f 25 3d a4 70 49 49 28 70 61 6c 65 |%).Z_%=.pII(pale|
00025960 64 25 2c 5a 25 2d 70 69 74 70 5f 25 2b 36 36 2c |d%,Z%-pitp_%+66,|
00025970 50 49 54 61 5f 24 28 5a 25 29 29 0d 87 f5 53 e7 |PITa_$(Z%))...S.|
00025980 a4 67 49 64 28 70 61 6c 65 64 25 2c 5a 25 2d 70 |.gId(paled%,Z%-p|
00025990 69 74 70 5f 25 2b 37 31 29 3c 3e 50 49 54 68 5f |itp_%+71)<>PITh_|
000259a0 24 28 5a 25 29 8c 5a 5f 25 3d a4 70 49 49 28 70 |$(Z%).Z_%=.pII(p|
000259b0 61 6c 65 64 25 2c 5a 25 2d 70 69 74 70 5f 25 2b |aled%,Z%-pitp_%+|
000259c0 37 31 2c 50 49 54 68 5f 24 28 5a 25 29 29 0d 87 |71,PITh_$(Z%))..|
000259d0 fa 53 e7 a4 67 49 64 28 70 61 6c 65 64 25 2c 5a |.S..gId(paled%,Z|
000259e0 25 2d 70 69 74 70 5f 25 2b 37 36 29 3c 3e 50 49 |%-pitp_%+76)<>PI|
000259f0 54 73 5f 24 28 5a 25 29 8c 5a 5f 25 3d a4 70 49 |Ts_$(Z%).Z_%=.pI|
00025a00 49 28 70 61 6c 65 64 25 2c 5a 25 2d 70 69 74 70 |I(paled%,Z%-pitp|
00025a10 5f 25 2b 37 36 2c 50 49 54 73 5f 24 28 5a 25 29 |_%+76,PITs_$(Z%)|
00025a20 29 0d 87 ff 05 ed 0d 88 04 49 5a 25 3d a4 75 70 |)........IZ%=.up|
00025a30 64 61 74 65 62 61 6e 6b 5f 3a 5a 25 3d a4 75 70 |datebank_:Z%=.up|
00025a40 64 61 74 65 68 65 61 64 70 4d 5f 28 31 29 3a 70 |dateheadpM_(1):p|
00025a50 61 6c 65 64 70 5f 25 3d a4 73 70 5f 28 70 61 6c |aledp_%=.sp_(pal|
00025a60 65 64 25 2c 70 61 6c 65 64 70 5f 25 29 3a e1 0d |ed%,paledp_%):..|
00025a70 88 09 04 0d 88 0e 10 dd f2 67 65 74 42 49 54 64 |.........getBITd|
00025a80 61 74 5f 0d 88 13 47 ea 20 41 25 2c 41 5f 25 2c |at_...G. A%,A_%,|
00025a90 42 5f 25 2c 42 25 2c 43 25 2c 44 25 2c 45 5f 25 |B_%,B%,C%,D%,E_%|
00025aa0 2c 45 25 2c 47 25 2c 48 25 2c 5a 25 2c 5a 5f 25 |,E%,G%,H%,Z%,Z_%|
00025ab0 2c 43 5f 24 2c 41 5f 24 2c 42 5f 24 3a 47 25 3d |,C_$,A_$,B_$:G%=|
00025ac0 74 5f 25 3a 48 25 3d 75 5f 25 0d 88 18 07 ea 20 |t_%:H%=u_%..... |
00025ad0 85 0d 88 1d 1b ee 20 85 20 ea 3a f7 20 85 3a f2 |...... . .:. .:.|
00025ae0 70 65 5f 28 a4 65 72 72 5f 29 3a e1 0d 88 22 17 |pe_(.err_):...".|
00025af0 e3 5a 25 3d 62 69 74 70 5f 25 b8 62 69 74 70 5f |.Z%=bitp_%.bitp_|
00025b00 25 2b 34 0d 88 27 21 41 25 3d a4 6e 69 5f 28 42 |%+4..'!A%=.ni_(B|
00025b10 49 54 65 5f 24 28 5a 25 2a 62 69 74 69 66 5f 25 |ITe_$(Z%*bitif_%|
00025b20 2b 35 29 29 0d 88 2c 0b e7 41 25 3c 3e 30 8c 0d |+5))..,..A%<>0..|
00025b30 88 31 3d 24 74 5f 25 3d 42 49 54 65 5f 24 28 5a |.1=$t_%=BITe_$(Z|
00025b40 25 2a 62 69 74 69 66 5f 25 2b 33 29 3a 24 75 5f |%*bitif_%+3):$u_|
00025b50 25 3d 42 49 54 65 5f 24 28 5a 25 2a 62 69 74 69 |%=BITe_$(Z%*biti|
00025b60 66 5f 25 2b 36 29 3a d6 6d 32 5f 25 0d 88 36 bd |f_%+6):.m2_%..6.|
00025b70 e7 24 74 5f 25 3c 3e 22 22 3a e7 42 49 54 65 5f |.$t_%<>"":.BITe_|
00025b80 24 28 5a 25 2a 62 69 74 69 66 5f 25 2b 34 29 3d |$(Z%*bitif_%+4)=|
00025b90 22 50 22 84 42 49 54 65 5f 24 28 5a 25 2a 62 69 |"P".BITe_$(Z%*bi|
00025ba0 74 69 66 5f 25 2b 34 29 3d 22 80 22 8c 41 5f 25 |tif_%+4)=".".A_%|
00025bb0 3d 97 28 24 74 5f 25 29 2d 36 34 3a e7 41 5f 25 |=.($t_%)-64:.A_%|
00025bc0 3c 31 33 8c 42 61 6e 6b 43 43 5f 25 28 41 5f 25 |<13.BankCC_%(A_%|
00025bd0 29 3d a4 61 64 64 5f 28 42 61 6e 6b 43 43 5f 25 |)=.add_(BankCC_%|
00025be0 28 41 5f 25 29 2c 41 25 29 3a e7 42 49 54 65 5f |(A_%),A%):.BITe_|
00025bf0 24 28 5a 25 2a 62 69 74 69 66 5f 25 2b 34 29 3d |$(Z%*bitif_%+4)=|
00025c00 22 80 22 8c 42 61 6e 6b 53 53 5f 25 28 41 5f 25 |".".BankSS_%(A_%|
00025c10 29 3d a4 61 64 64 5f 28 42 61 6e 6b 53 53 5f 25 |)=.add_(BankSS_%|
00025c20 28 41 5f 25 29 2c 41 25 29 0d 88 3b bf e7 24 75 |(A_%),A%)..;..$u|
00025c30 5f 25 3c 3e 22 22 3a e7 42 49 54 65 5f 24 28 5a |_%<>"":.BITe_$(Z|
00025c40 25 2a 62 69 74 69 66 5f 25 2b 37 29 3d 22 50 22 |%*bitif_%+7)="P"|
00025c50 84 42 49 54 65 5f 24 28 5a 25 2a 62 69 74 69 66 |.BITe_$(Z%*bitif|
00025c60 5f 25 2b 37 29 3d 22 80 22 8c 41 5f 25 3d 97 28 |_%+7)=".".A_%=.(|
00025c70 24 75 5f 25 29 2d 36 34 3a e7 41 5f 25 3c 31 33 |$u_%)-64:.A_%<13|
00025c80 8c 42 61 6e 6b 43 43 5f 25 28 41 5f 25 29 3d a4 |.BankCC_%(A_%)=.|
00025c90 61 64 64 5f 28 42 61 6e 6b 43 43 5f 25 28 41 5f |add_(BankCC_%(A_|
00025ca0 25 29 2c 2d 41 25 29 3a e7 42 49 54 65 5f 24 28 |%),-A%):.BITe_$(|
00025cb0 5a 25 2a 62 69 74 69 66 5f 25 2b 37 29 3d 22 80 |Z%*bitif_%+7)=".|
00025cc0 22 8c 42 61 6e 6b 53 53 5f 25 28 41 5f 25 29 3d |".BankSS_%(A_%)=|
00025cd0 a4 61 64 64 5f 28 42 61 6e 6b 53 53 5f 25 28 41 |.add_(BankSS_%(A|
00025ce0 5f 25 29 2c 2d 41 25 29 0d 88 40 05 cd 0d 88 45 |_%),-A%)..@....E|
00025cf0 05 ed 0d 88 4a 46 44 25 3d 62 69 74 70 5f 25 2a |....JFD%=bitp_%*|
00025d00 62 69 74 69 66 5f 25 3a e3 5a 25 3d 31 b8 62 69 |bitif_%:.Z%=1.bi|
00025d10 74 69 6e 5f 25 3a 44 25 2b 3d 31 3a 42 49 54 65 |tin_%:D%+=1:BITe|
00025d20 5f 24 28 44 25 29 3d a4 67 49 64 28 62 61 6e 6b |_$(D%)=.gId(bank|
00025d30 6c 25 2c 5a 25 29 3a ed 0d 88 4f d1 e3 5a 25 3d |l%,Z%):...O..Z%=|
00025d40 62 69 74 70 5f 25 b8 62 69 74 70 5f 25 2b 34 3a |bitp_%.bitp_%+4:|
00025d50 24 74 5f 25 3d 42 49 54 65 5f 24 28 5a 25 2a 62 |$t_%=BITe_$(Z%*b|
00025d60 69 74 69 66 5f 25 2b 34 29 3a 24 75 5f 25 3d 42 |itif_%+4):$u_%=B|
00025d70 49 54 65 5f 24 28 5a 25 2a 62 69 74 69 66 5f 25 |ITe_$(Z%*bitif_%|
00025d80 2b 37 29 3a d6 6d 32 5f 25 3a 41 5f 24 3d 24 74 |+7):.m2_%:A_$=$t|
00025d90 5f 25 3a 42 5f 24 3d 24 75 5f 25 3a 24 74 5f 25 |_%:B_$=$u_%:$t_%|
00025da0 3d 42 49 54 65 5f 24 28 5a 25 2a 62 69 74 69 66 |=BITe_$(Z%*bitif|
00025db0 5f 25 2b 33 29 3a 24 75 5f 25 3d 42 49 54 65 5f |_%+3):$u_%=BITe_|
00025dc0 24 28 5a 25 2a 62 69 74 69 66 5f 25 2b 36 29 3a |$(Z%*bitif_%+6):|
00025dd0 d6 6d 32 5f 25 3a 42 49 54 65 5f 24 28 5a 25 2a |.m2_%:BITe_$(Z%*|
00025de0 62 69 74 69 66 5f 25 2b 33 29 3d 24 74 5f 25 3a |bitif_%+3)=$t_%:|
00025df0 42 49 54 65 5f 24 28 5a 25 2a 62 69 74 69 66 5f |BITe_$(Z%*bitif_|
00025e00 25 2b 36 29 3d 24 75 5f 25 0d 88 54 21 45 25 3d |%+6)=$u_%..T!E%=|
00025e10 a4 6e 69 5f 28 42 49 54 65 5f 24 28 5a 25 2a 62 |.ni_(BITe_$(Z%*b|
00025e20 69 74 69 66 5f 25 2b 35 29 29 0d 88 59 1c e7 41 |itif_%+5))..Y..A|
00025e30 5f 24 3c 3e 22 22 3a e7 24 74 5f 25 3d 22 22 8c |_$<>"":.$t_%="".|
00025e40 41 5f 24 3d 22 22 0d 88 5e 14 e7 41 5f 24 3d 22 |A_$=""..^..A_$="|
00025e50 52 22 8c 41 5f 24 3d 22 80 22 0d 88 63 26 e7 24 |R".A_$="."..c&.$|
00025e60 74 5f 25 3c 3e 22 22 3a e7 45 25 3c 3e 30 3a e7 |t_%<>"":.E%<>0:.|
00025e70 41 5f 24 3c 3e 22 80 22 8c 41 5f 24 3d 22 50 22 |A_$<>".".A_$="P"|
00025e80 0d 88 68 62 e7 41 5f 24 3c 3e 42 49 54 65 5f 24 |..hb.A_$<>BITe_$|
00025e90 28 5a 25 2a 62 69 74 69 66 5f 25 2b 34 29 8c 42 |(Z%*bitif_%+4).B|
00025ea0 49 54 65 5f 24 28 5a 25 2a 62 69 74 69 66 5f 25 |ITe_$(Z%*bitif_%|
00025eb0 2b 34 29 3d 41 5f 24 3a 5a 5f 25 3d a4 70 49 49 |+4)=A_$:Z_%=.pII|
00025ec0 28 62 61 6e 6b 6c 25 2c 28 5a 25 2d 62 69 74 70 |(bankl%,(Z%-bitp|
00025ed0 5f 25 29 2a 62 69 74 69 66 5f 25 2b 34 2c 41 5f |_%)*bitif_%+4,A_|
00025ee0 24 29 0d 88 6d 1f 42 49 54 66 5f 24 28 5a 25 29 |$)..m.BITf_$(Z%)|
00025ef0 3d 22 22 3a 42 49 54 74 5f 24 28 5a 25 29 3d 22 |="":BITt_$(Z%)="|
00025f00 22 0d 88 72 93 e7 24 74 5f 25 3c 3e 22 22 8c 41 |"..r..$t_%<>"".A|
00025f10 5f 25 3d 97 28 24 74 5f 25 29 2d 36 34 3a e7 41 |_%=.($t_%)-64:.A|
00025f20 5f 25 3c 31 33 42 49 54 66 5f 24 28 5a 25 29 3d |_%<13BITf_$(Z%)=|
00025f30 42 61 6e 6b 4e 4e 5f 24 28 41 5f 25 29 3a 42 61 |BankNN_$(A_%):Ba|
00025f40 6e 6b 43 43 5f 25 28 41 5f 25 29 3d a4 61 64 64 |nkCC_%(A_%)=.add|
00025f50 5f 28 42 61 6e 6b 43 43 5f 25 28 41 5f 25 29 2c |_(BankCC_%(A_%),|
00025f60 2d 45 25 29 3a e7 41 5f 24 3d 22 80 22 8c 42 61 |-E%):.A_$=".".Ba|
00025f70 6e 6b 53 53 5f 25 28 41 5f 25 29 3d a4 61 64 64 |nkSS_%(A_%)=.add|
00025f80 5f 28 42 61 6e 6b 53 53 5f 25 28 41 5f 25 29 2c |_(BankSS_%(A_%),|
00025f90 2d 45 25 29 0d 88 77 1c e7 42 5f 24 3c 3e 22 22 |-E%)..w..B_$<>""|
00025fa0 3a e7 24 75 5f 25 3d 22 22 8c 42 5f 24 3d 22 22 |:.$u_%="".B_$=""|
00025fb0 0d 88 7c 14 e7 42 5f 24 3d 22 52 22 8c 42 5f 24 |..|..B_$="R".B_$|
00025fc0 3d 22 80 22 0d 88 81 26 e7 24 75 5f 25 3c 3e 22 |="."...&.$u_%<>"|
00025fd0 22 3a e7 45 25 3c 3e 30 3a e7 42 5f 24 3c 3e 22 |":.E%<>0:.B_$<>"|
00025fe0 80 22 8c 42 5f 24 3d 22 50 22 0d 88 86 62 e7 42 |.".B_$="P"...b.B|
00025ff0 5f 24 3c 3e 42 49 54 65 5f 24 28 5a 25 2a 62 69 |_$<>BITe_$(Z%*bi|
00026000 74 69 66 5f 25 2b 37 29 8c 42 49 54 65 5f 24 28 |tif_%+7).BITe_$(|
00026010 5a 25 2a 62 69 74 69 66 5f 25 2b 37 29 3d 42 5f |Z%*bitif_%+7)=B_|
00026020 24 3a 5a 5f 25 3d a4 70 49 49 28 62 61 6e 6b 6c |$:Z_%=.pII(bankl|
00026030 25 2c 28 5a 25 2d 62 69 74 70 5f 25 29 2a 62 69 |%,(Z%-bitp_%)*bi|
00026040 74 69 66 5f 25 2b 37 2c 42 5f 24 29 0d 88 8b 91 |tif_%+7,B_$)....|
00026050 e7 24 75 5f 25 3c 3e 22 22 8c 41 5f 25 3d 97 28 |.$u_%<>"".A_%=.(|
00026060 24 75 5f 25 29 2d 36 34 3a e7 41 5f 25 3c 31 33 |$u_%)-64:.A_%<13|
00026070 42 49 54 74 5f 24 28 5a 25 29 3d 42 61 6e 6b 4e |BITt_$(Z%)=BankN|
00026080 4e 5f 24 28 41 5f 25 29 3a 42 61 6e 6b 43 43 5f |N_$(A_%):BankCC_|
00026090 25 28 41 5f 25 29 3d a4 61 64 64 5f 28 42 61 6e |%(A_%)=.add_(Ban|
000260a0 6b 43 43 5f 25 28 41 5f 25 29 2c 45 25 29 3a e7 |kCC_%(A_%),E%):.|
000260b0 42 5f 24 3d 22 80 22 8c 42 61 6e 6b 53 53 5f 25 |B_$=".".BankSS_%|
000260c0 28 41 5f 25 29 3d a4 61 64 64 5f 28 42 61 6e 6b |(A_%)=.add_(Bank|
000260d0 53 53 5f 25 28 41 5f 25 29 2c 45 25 29 0d 88 90 |SS_%(A_%),E%)...|
000260e0 53 e7 a4 67 49 64 28 62 61 6e 6b 6c 25 2c 5a 25 |S..gId(bankl%,Z%|
000260f0 2d 62 69 74 70 5f 25 2b 34 38 29 3c 3e 42 49 54 |-bitp_%+48)<>BIT|
00026100 66 5f 24 28 5a 25 29 8c 5a 5f 25 3d a4 70 49 49 |f_$(Z%).Z_%=.pII|
00026110 28 62 61 6e 6b 6c 25 2c 5a 25 2d 62 69 74 70 5f |(bankl%,Z%-bitp_|
00026120 25 2b 34 38 2c 42 49 54 66 5f 24 28 5a 25 29 29 |%+48,BITf_$(Z%))|
00026130 0d 88 95 53 e7 a4 67 49 64 28 62 61 6e 6b 6c 25 |...S..gId(bankl%|
00026140 2c 5a 25 2d 62 69 74 70 5f 25 2b 35 33 29 3c 3e |,Z%-bitp_%+53)<>|
00026150 42 49 54 74 5f 24 28 5a 25 29 8c 5a 5f 25 3d a4 |BITt_$(Z%).Z_%=.|
00026160 70 49 49 28 62 61 6e 6b 6c 25 2c 5a 25 2d 62 69 |pII(bankl%,Z%-bi|
00026170 74 70 5f 25 2b 35 33 2c 42 49 54 74 5f 24 28 5a |tp_%+53,BITt_$(Z|
00026180 25 29 29 0d 88 9a 05 ed 0d 88 9f 30 5a 25 3d a4 |%))........0Z%=.|
00026190 75 70 64 61 74 65 62 61 6e 6b 5f 3a 62 61 6e 6b |updatebank_:bank|
000261a0 70 5f 25 3d a4 73 70 5f 28 62 61 6e 6b 6c 25 2c |p_%=.sp_(bankl%,|
000261b0 62 61 6e 6b 70 5f 25 29 0d 88 a4 05 e1 0d 88 a9 |bankp_%)........|
000261c0 04 0d 88 ae 1a dd f2 73 61 76 65 62 61 6e 6b 6c |.......savebankl|
000261d0 65 64 67 65 72 32 5f 28 5a 25 29 0d 88 b3 2c ea |edger2_(Z%)...,.|
000261e0 20 41 25 2c 41 5f 25 2c 42 5f 25 2c 42 25 2c 43 | A%,A_%,B_%,B%,C|
000261f0 25 2c 44 25 2c 45 5f 25 2c 45 25 2c 5a 5f 25 2c |%,D%,E_%,E%,Z_%,|
00026200 43 5f 24 2c 41 5f 24 0d 88 b8 21 45 25 3d a4 6e |C_$,A_$...!E%=.n|
00026210 69 5f 28 42 49 54 65 5f 24 28 5a 25 2a 62 69 74 |i_(BITe_$(Z%*bit|
00026220 69 66 5f 25 2b 35 29 29 0d 88 bd 1c 41 5f 24 3d |if_%+5))....A_$=|
00026230 42 49 54 65 5f 24 28 5a 25 2a 62 69 74 69 66 5f |BITe_$(Z%*bitif_|
00026240 25 2b 34 29 0d 88 c2 1f 42 49 54 66 5f 24 28 5a |%+4)....BITf_$(Z|
00026250 25 29 3d 22 22 3a 42 49 54 74 5f 24 28 5a 25 29 |%)="":BITt_$(Z%)|
00026260 3d 22 22 0d 88 c7 b3 e7 42 49 54 65 5f 24 28 5a |="".....BITe_$(Z|
00026270 25 2a 62 69 74 69 66 5f 25 2b 33 29 3c 3e 22 22 |%*bitif_%+3)<>""|
00026280 8c 41 5f 25 3d 97 28 42 49 54 65 5f 24 28 5a 25 |.A_%=.(BITe_$(Z%|
00026290 2a 62 69 74 69 66 5f 25 2b 33 29 29 2d 36 34 3a |*bitif_%+3))-64:|
000262a0 e7 41 5f 25 3c 31 33 42 49 54 66 5f 24 28 5a 25 |.A_%<13BITf_$(Z%|
000262b0 29 3d 42 61 6e 6b 4e 4e 5f 24 28 41 5f 25 29 3a |)=BankNN_$(A_%):|
000262c0 42 61 6e 6b 43 43 5f 25 28 41 5f 25 29 3d a4 61 |BankCC_%(A_%)=.a|
000262d0 64 64 5f 28 42 61 6e 6b 43 43 5f 25 28 41 5f 25 |dd_(BankCC_%(A_%|
000262e0 29 2c 2d 45 25 29 3a e7 41 5f 24 3d 22 80 22 8c |),-E%):.A_$=".".|
000262f0 42 61 6e 6b 53 53 5f 25 28 41 5f 25 29 3d a4 61 |BankSS_%(A_%)=.a|
00026300 64 64 5f 28 42 61 6e 6b 53 53 5f 25 28 41 5f 25 |dd_(BankSS_%(A_%|
00026310 29 2c 2d 45 25 29 0d 88 cc 1c 41 5f 24 3d 42 49 |),-E%)....A_$=BI|
00026320 54 65 5f 24 28 5a 25 2a 62 69 74 69 66 5f 25 2b |Te_$(Z%*bitif_%+|
00026330 37 29 0d 88 d1 b1 e7 42 49 54 65 5f 24 28 5a 25 |7).....BITe_$(Z%|
00026340 2a 62 69 74 69 66 5f 25 2b 36 29 3c 3e 22 22 8c |*bitif_%+6)<>"".|
00026350 41 5f 25 3d 97 28 42 49 54 65 5f 24 28 5a 25 2a |A_%=.(BITe_$(Z%*|
00026360 62 69 74 69 66 5f 25 2b 36 29 29 2d 36 34 3a e7 |bitif_%+6))-64:.|
00026370 41 5f 25 3c 31 33 42 49 54 74 5f 24 28 5a 25 29 |A_%<13BITt_$(Z%)|
00026380 3d 42 61 6e 6b 4e 4e 5f 24 28 41 5f 25 29 3a 42 |=BankNN_$(A_%):B|
00026390 61 6e 6b 43 43 5f 25 28 41 5f 25 29 3d a4 61 64 |ankCC_%(A_%)=.ad|
000263a0 64 5f 28 42 61 6e 6b 43 43 5f 25 28 41 5f 25 29 |d_(BankCC_%(A_%)|
000263b0 2c 45 25 29 3a e7 41 5f 24 3d 22 80 22 8c 42 61 |,E%):.A_$=".".Ba|
000263c0 6e 6b 53 53 5f 25 28 41 5f 25 29 3d a4 61 64 64 |nkSS_%(A_%)=.add|
000263d0 5f 28 42 61 6e 6b 53 53 5f 25 28 41 5f 25 29 2c |_(BankSS_%(A_%),|
000263e0 45 25 29 0d 88 d6 c4 e7 62 61 6e 6b 6c 25 3e 30 |E%).....bankl%>0|
000263f0 8c 5a 5f 25 3d a4 70 49 49 28 62 61 6e 6b 6c 25 |.Z_%=.pII(bankl%|
00026400 2c 28 5a 25 2d 62 69 74 70 5f 25 29 2a 62 69 74 |,(Z%-bitp_%)*bit|
00026410 69 66 5f 25 2b 34 2c 41 5f 24 29 3a 5a 5f 25 3d |if_%+4,A_$):Z_%=|
00026420 a4 70 49 49 28 62 61 6e 6b 6c 25 2c 28 5a 25 2d |.pII(bankl%,(Z%-|
00026430 62 69 74 70 5f 25 29 2a 62 69 74 69 66 5f 25 2b |bitp_%)*bitif_%+|
00026440 37 2c 41 5f 24 29 3a 5a 5f 25 3d a4 70 49 49 28 |7,A_$):Z_%=.pII(|
00026450 62 61 6e 6b 6c 25 2c 5a 25 2d 62 69 74 70 5f 25 |bankl%,Z%-bitp_%|
00026460 2b 34 38 2c 42 49 54 66 5f 24 28 5a 25 29 29 3a |+48,BITf_$(Z%)):|
00026470 5a 5f 25 3d a4 70 49 49 28 62 61 6e 6b 6c 25 2c |Z_%=.pII(bankl%,|
00026480 5a 25 2d 62 69 74 70 5f 25 2b 35 33 2c 42 49 54 |Z%-bitp_%+53,BIT|
00026490 74 5f 24 28 5a 25 29 29 3a f2 73 65 74 42 49 54 |t_$(Z%)):.setBIT|
000264a0 64 61 74 5f 28 30 29 0d 88 db 15 5a 25 3d a4 75 |dat_(0)....Z%=.u|
000264b0 70 64 61 74 65 62 61 6e 6b 5f 3a e1 0d 88 e0 43 |pdatebank_:....C|
000264c0 dd a4 63 68 5f 28 61 5f 24 2c 62 5f 24 29 3a ea |..ch_(a_$,b_$):.|
000264d0 20 5a 25 3a 61 5f 24 3d a4 74 72 6d 4c 28 61 5f | Z%:a_$=.trmL(a_|
000264e0 24 29 3a 5a 25 3d a7 61 5f 24 2c 22 3a 22 29 3a |$):Z%=.a_$,":"):|
000264f0 61 5f 24 3d a4 63 61 70 73 5f 28 61 5f 24 29 0d |a_$=.caps_(a_$).|
00026500 88 e5 1d e7 62 5f 24 3d 22 22 3a e7 a9 28 61 5f |....b_$="":..(a_|
00026510 24 29 3c 32 3d c0 61 5f 24 2c 31 29 0d 88 ea 1d |$)<2=.a_$,1)....|
00026520 e7 5a 25 3d 30 3a e7 a9 28 61 5f 24 29 3d 30 3a |.Z%=0:..(a_$)=0:|
00026530 3d 22 20 3a 22 2b 62 5f 24 0d 88 ef 20 e7 5a 25 |=" :"+b_$... .Z%|
00026540 3d 30 3a e7 a9 28 61 5f 24 29 3d 31 3a 3d 61 5f |=0:..(a_$)=1:=a_|
00026550 24 2b 22 3a 22 2b 62 5f 24 0d 88 f4 1d e7 5a 25 |$+":"+b_$.....Z%|
00026560 3d 30 3a e7 a9 28 61 5f 24 29 3d 32 3a 3d 22 20 |=0:..(a_$)=2:=" |
00026570 3a 22 2b 61 5f 24 0d 88 f9 2a e7 5a 25 3d 30 3a |:"+a_$...*.Z%=0:|
00026580 e7 a9 28 61 5f 24 29 3e 32 3a 3d c0 61 5f 24 2c |..(a_$)>2:=.a_$,|
00026590 31 29 2b 22 3a 22 2b c1 61 5f 24 2c 32 2c 32 29 |1)+":"+.a_$,2,2)|
000265a0 0d 88 fe 1a e7 5a 25 3d 31 3a 3d c0 22 20 22 2b |.....Z%=1:=." "+|
000265b0 61 5f 24 2b 62 5f 24 2c 34 29 0d 89 03 21 3d c0 |a_$+b_$,4)...!=.|
000265c0 61 5f 24 2c 31 29 2b 22 3a 22 2b c1 61 5f 24 2b |a_$,1)+":"+.a_$+|
000265d0 62 5f 24 2c 5a 25 2b 31 2c 32 29 0d 89 08 2f dd |b_$,Z%+1,2).../.|
000265e0 a4 71 63 5f 28 61 5f 24 2c 62 5f 29 3a ea 20 41 |.qc_(a_$,b_):. A|
000265f0 24 2c 5a 25 2c 41 2c 61 5f 3a 41 24 3d 61 5f 24 |$,Z%,A,a_:A$=a_$|
00026600 3a e7 41 24 3d 22 22 3a 3d 30 0d 89 0d 07 ea 20 |:.A$="":=0..... |
00026610 85 0d 89 12 10 ee 20 85 20 ea 3a f7 20 85 3a 3d |...... . .:. .:=|
00026620 30 0d 89 17 0f e7 a7 61 5f 24 2c 22 3a 22 29 8c |0......a_$,":").|
00026630 0d 89 18 45 61 5f 24 2b 3d 22 30 30 30 30 22 3a |...Ea_$+="0000":|
00026640 41 3d a7 61 5f 24 2c 22 3a 22 29 3a 5a 25 3d bb |A=.a_$,":"):Z%=.|
00026650 28 c1 61 5f 24 2c 41 2b 31 2c 34 29 29 2f 36 30 |(.a_$,A+1,4))/60|
00026660 2a 31 30 30 3a 41 24 3d c0 61 5f 24 2c 41 2d 31 |*100:A$=.a_$,A-1|
00026670 29 2b 22 2e 22 0d 89 19 28 e7 94 28 5a 25 29 3c |)+"."...(..(Z%)<|
00026680 31 30 30 30 3a 41 24 2b 3d 22 30 22 2b c3 28 5a |1000:A$+="0"+.(Z|
00026690 25 29 20 8b 41 24 2b 3d c3 28 5a 25 29 0d 89 1a |%) .A$+=.(Z%)...|
000266a0 05 cd 0d 89 1c 27 e7 62 5f 3d 30 3a 61 5f 3d a0 |.....'.b_=0:a_=.|
000266b0 28 41 24 29 2a 69 6e 76 31 31 5f 25 28 30 29 20 |(A$)*inv11_%(0) |
000266c0 8b 61 5f 3d a0 28 41 24 29 0d 89 21 07 3d 61 5f |.a_=.(A$)..!.=a_|
000266d0 0d 89 26 14 dd f2 67 65 74 49 54 64 61 74 5f 28 |..&...getITdat_(|
000266e0 41 5f 25 29 0d 89 2b 25 ea 20 41 25 2c 42 5f 25 |A_%)..+%. A%,B_%|
000266f0 2c 43 25 2c 44 25 2c 45 5f 25 2c 5a 25 2c 43 5f |,C%,D%,E_%,Z%,C_|
00026700 24 2c 41 2c 44 2c 41 5f 24 0d 89 30 45 e7 21 6b |$,A,D,A_$..0E.!k|
00026710 25 3d 30 3a e7 49 54 73 75 70 6e 75 6d 5f 25 3d |%=0:.ITsupnum_%=|
00026720 30 80 49 54 73 75 70 63 68 5f 25 3d 30 80 65 72 |0.ITsupch_%=0.er|
00026730 72 6f 72 5f 25 3d 30 8c 49 54 73 75 70 63 68 5f |ror_%=0.ITsupch_|
00026740 25 3d 31 3a f2 77 6c 5f 28 32 31 29 3a e1 0d 89 |%=1:.wl_(21):...|
00026750 35 12 e7 49 54 73 75 70 6e 75 6d 5f 25 3e 30 8c |5..ITsupnum_%>0.|
00026760 0d 89 3a 15 e3 5a 25 3d 69 74 70 5f 25 b8 69 74 |..:..Z%=itp_%.it|
00026770 70 5f 25 2b 37 0d 89 44 24 e7 49 54 6f 5f 25 28 |p_%+7..D$.ITo_%(|
00026780 5a 25 29 3e 30 8c 49 54 6f 5f 25 28 5a 25 29 3d |Z%)>0.ITo_%(Z%)=|
00026790 49 54 6e 5f 25 28 5a 25 29 0d 89 49 05 ed 0d 89 |ITn_%(Z%)..I....|
000267a0 4e 05 cd 0d 89 53 71 44 25 3d 69 74 70 5f 25 2a |N....SqD%=itp_%*|
000267b0 69 74 69 66 5f 25 3a e3 5a 25 3d 31 b8 69 74 69 |itif_%:.Z%=1.iti|
000267c0 6e 5f 25 3a 44 25 2b 3d 31 3a 49 54 73 5f 24 28 |n_%:D%+=1:ITs_$(|
000267d0 44 25 29 3d a4 67 49 64 28 69 6e 76 77 25 2c 5a |D%)=.gId(invw%,Z|
000267e0 25 29 3a ed 3a e7 41 5f 25 3d 31 8c 69 6e 76 31 |%):.:.A_%=1.inv1|
000267f0 31 5f 25 28 30 29 3d 2d 69 6e 76 31 31 5f 25 28 |1_%(0)=-inv11_%(|
00026800 30 29 3a 24 21 69 6e 76 6e 61 6d 65 5f 25 3d a4 |0):$!invname_%=.|
00026810 63 72 69 5f 0d 89 58 12 e7 49 54 73 75 70 6e 75 |cri_..X..ITsupnu|
00026820 6d 5f 25 3e 30 8c 0d 89 5d 9c 45 5f 25 3d 30 3a |m_%>0...].E_%=0:|
00026830 e3 5a 25 3d 69 74 70 5f 25 b8 69 74 70 5f 25 2b |.Z%=itp_%.itp_%+|
00026840 37 3a e7 49 54 73 5f 24 28 5a 25 2a 69 74 69 66 |7:.ITs_$(Z%*itif|
00026850 5f 25 2b 36 29 3c 3e 22 22 3a e7 a4 63 68 5f 28 |_%+6)<>"":..ch_(|
00026860 49 54 73 5f 24 28 5a 25 2a 69 74 69 66 5f 25 2b |ITs_$(Z%*itif_%+|
00026870 36 29 2c 22 22 29 3c 3e 49 54 73 5f 24 28 5a 25 |6),"")<>ITs_$(Z%|
00026880 2a 69 74 69 66 5f 25 2b 36 29 3a 44 25 3d a4 70 |*itif_%+6):D%=.p|
00026890 49 49 28 69 6e 76 77 25 2c 45 5f 25 2a 69 74 69 |II(invw%,E_%*iti|
000268a0 66 5f 25 2b 36 2c a4 63 68 5f 28 49 54 73 5f 24 |f_%+6,.ch_(ITs_$|
000268b0 28 5a 25 2a 69 74 69 66 5f 25 2b 36 29 2c 22 22 |(Z%*itif_%+6),""|
000268c0 29 29 0d 89 62 8b e7 49 54 6f 73 5f 24 28 5a 25 |))..b..ITos_$(Z%|
000268d0 29 3c 3e 49 54 73 5f 24 28 5a 25 2a 69 74 69 66 |)<>ITs_$(Z%*itif|
000268e0 5f 25 2b 31 29 8c 49 54 73 5f 24 28 5a 25 2a 69 |_%+1).ITs_$(Z%*i|
000268f0 74 69 66 5f 25 2b 31 29 3d 22 22 3a 49 54 6e 5f |tif_%+1)="":ITn_|
00026900 25 28 5a 25 29 3d 30 3a 44 25 3d a4 70 49 49 28 |%(Z%)=0:D%=.pII(|
00026910 69 6e 76 77 25 2c 28 45 5f 25 2a 69 74 69 66 5f |invw%,(E_%*itif_|
00026920 25 2b 31 29 2c 49 54 73 5f 24 28 5a 25 2a 69 74 |%+1),ITs_$(Z%*it|
00026930 69 66 5f 25 2b 31 29 29 3a f2 73 65 74 43 5f 28 |if_%+1)):.setC_(|
00026940 45 5f 25 2a 69 74 69 66 5f 25 2b 31 29 0d 89 a8 |E_%*itif_%+1)...|
00026950 3e 45 5f 25 2b 3d 31 3a 49 54 6f 5f 25 28 5a 25 |>E_%+=1:ITo_%(Z%|
00026960 29 3d 49 54 6e 5f 25 28 5a 25 29 3a 49 54 6f 73 |)=ITn_%(Z%):ITos|
00026970 5f 24 28 5a 25 29 3d 49 54 73 5f 24 28 5a 25 2a |_$(Z%)=ITs_$(Z%*|
00026980 69 74 69 66 5f 25 2b 31 29 3a ed 0d 89 b7 05 cd |itif_%+1):......|
00026990 0d 89 bc 05 e1 0d 89 c1 5b dd a4 63 72 69 5f 3a |........[..cri_:|
000269a0 e7 69 6e 76 31 31 5f 25 28 30 29 3d 31 8c 3d 22 |.inv11_%(0)=1.="|
000269b0 49 6e 76 6f 69 63 65 22 20 8b e7 69 6e 76 31 31 |Invoice" ..inv11|
000269c0 5f 25 28 30 29 3d 2d 31 8c 3d 22 43 72 65 64 69 |_%(0)=-1.="Credi|
000269d0 74 20 4e 6f 74 65 22 20 8b 69 6e 76 31 31 5f 25 |t Note" .inv11_%|
000269e0 28 30 29 3d 31 3a 3d 22 49 6e 76 6f 69 63 65 22 |(0)=1:="Invoice"|
000269f0 0d 89 c6 12 dd f2 67 65 74 49 54 64 61 74 74 6f |......getITdatto|
00026a00 74 5f 0d 89 cb 26 ea 20 5a 25 2c 41 25 2c 42 25 |t_...&. Z%,A%,B%|
00026a10 2c 43 25 2c 44 25 2c 45 25 2c 46 25 2c 47 25 2c |,C%,D%,E%,F%,G%,|
00026a20 48 25 2c 47 2c 41 2c 42 0d 89 d0 34 e3 5a 25 3d |H%,G,A,B...4.Z%=|
00026a30 31 b8 6d 61 78 49 5f 25 2a 69 74 69 70 5f 25 2a |1.maxI_%*itip_%*|
00026a40 69 74 69 66 5f 25 2d 31 88 69 74 69 66 5f 25 3a |itif_%-1.itif_%:|
00026a50 49 54 74 5f 24 28 46 25 29 3d 22 22 0d 89 d5 15 |ITt_$(F%)=""....|
00026a60 e7 49 54 73 5f 24 28 5a 25 2b 32 29 3c 3e 22 22 |.ITs_$(Z%+2)<>""|
00026a70 8c 0d 89 da 30 e7 56 61 5f 25 28 97 28 49 54 73 |....0.Va_%(.(ITs|
00026a80 5f 24 28 5a 25 2b 35 29 29 83 33 32 2b 31 29 3d |_$(Z%+5)).32+1)=|
00026a90 30 8c 41 3d 30 20 8b 41 3d 49 54 72 5f 28 46 25 |0.A=0 .A=ITr_(F%|
00026aa0 29 0d 89 df 19 42 3d a4 71 63 5f 28 49 54 73 5f |)....B=.qc_(ITs_|
00026ab0 24 28 5a 25 2b 32 29 2c 31 29 0d 89 e4 8e e7 41 |$(Z%+2),1).....A|
00026ac0 3d 30 8c 44 25 3d a4 63 61 6c 70 63 32 5f 28 a4 |=0.D%=.calpc2_(.|
00026ad0 73 75 6d 5f 28 42 2c a4 63 6f 6e 76 73 69 5f 28 |sum_(B,.convsi_(|
00026ae0 49 54 73 5f 24 28 5a 25 2b 33 29 29 29 29 20 8b |ITs_$(Z%+3)))) .|
00026af0 44 25 3d a4 63 61 6c 70 63 32 5f 28 a4 73 75 6d |D%=.calpc2_(.sum|
00026b00 5f 28 42 2c 49 54 72 5f 28 46 25 29 29 29 3a 44 |_(B,ITr_(F%))):D|
00026b10 25 3d 44 25 2d 28 44 25 2d 44 25 2f 28 28 31 30 |%=D%-(D%-D%/((10|
00026b20 30 30 30 2b 56 61 5f 25 28 97 28 49 54 73 5f 24 |000+Va_%(.(ITs_$|
00026b30 28 5a 25 2b 35 29 29 83 33 32 2b 31 29 29 2f 31 |(Z%+5)).32+1))/1|
00026b40 30 30 29 2a 31 30 30 29 0d 89 e9 17 e7 bb 28 49 |00)*100)......(I|
00026b50 54 73 5f 24 28 5a 25 2b 34 29 29 3c 3e 30 8c 0d |Ts_$(Z%+4))<>0..|
00026b60 89 ee 4b e7 49 54 64 5f 25 28 46 25 29 3d 36 37 |..K.ITd_%(F%)=67|
00026b70 8c 44 25 3d 44 25 2a 28 bb 28 49 54 73 5f 24 28 |.D%=D%*(.(ITs_$(|
00026b80 5a 25 2b 34 29 29 2f 31 30 30 29 20 8b 44 25 3d |Z%+4))/100) .D%=|
00026b90 44 25 2d 44 25 2a 28 bb 28 49 54 73 5f 24 28 5a |D%-D%*(.(ITs_$(Z|
00026ba0 25 2b 34 29 29 2f 31 30 30 29 0d 89 f3 05 cd 0d |%+4))/100)......|
00026bb0 89 f8 3c 49 54 74 5f 24 28 46 25 29 3d a4 74 63 |..<ITt_$(F%)=.tc|
00026bc0 5f 28 44 25 2c 22 22 29 3a 41 25 3d 41 25 2b 44 |_(D%,""):A%=A%+D|
00026bd0 25 3a 47 25 3d 44 25 2d 44 25 2a bb 28 24 21 49 |%:G%=D%-D%*.($!I|
00026be0 54 65 73 64 5f 25 29 2f 31 30 30 0d 89 fd 0f e7 |Tesd_%)/100.....|
00026bf0 70 72 65 66 6e 5f 25 3d 31 8c 0d 8a 02 1b e7 41 |prefn_%=1......A|
00026c00 3c 3e 30 80 bb 28 49 54 73 5f 24 28 5a 25 2b 34 |<>0..(ITs_$(Z%+4|
00026c10 29 29 3d 30 8c 0d 8a 07 84 e7 49 54 66 5f 25 28 |))=0......ITf_%(|
00026c20 46 25 29 3d 31 84 24 21 49 54 65 73 64 5f 25 3d |F%)=1.$!ITesd_%=|
00026c30 22 22 8c 47 3d 47 2b 28 a4 73 75 6d 5f 28 49 54 |"".G=G+(.sum_(IT|
00026c40 72 5f 28 46 25 29 2c 42 29 2d 44 25 29 3a 43 25 |r_(F%),B)-D%):C%|
00026c50 3d 43 25 2b 44 25 20 8b 48 25 3d a4 63 61 6c 70 |=C%+D% .H%=.calp|
00026c60 63 32 5f 28 44 25 2a 28 56 61 5f 25 28 97 28 49 |c2_(D%*(Va_%(.(I|
00026c70 54 73 5f 24 28 5a 25 2b 35 29 29 83 33 32 2b 31 |Ts_$(Z%+5)).32+1|
00026c80 29 2f 31 30 30 30 30 29 29 3a 43 25 3d 43 25 2b |)/10000)):C%=C%+|
00026c90 47 25 3a 47 3d 47 2b 48 25 0d 8a 0c 05 cd 0d 8a |G%:G=G+H%.......|
00026ca0 11 1b e7 41 3d 30 84 bb 28 49 54 73 5f 24 28 5a |...A=0..(ITs_$(Z|
00026cb0 25 2b 34 29 29 3c 3e 30 8c 0d 8a 16 75 e7 49 54 |%+4))<>0....u.IT|
00026cc0 66 5f 25 28 46 25 29 3d 31 8c 47 3d 47 2b 44 25 |f_%(F%)=1.G=G+D%|
00026cd0 2a 28 56 61 5f 25 28 97 28 49 54 73 5f 24 28 5a |*(Va_%(.(ITs_$(Z|
00026ce0 25 2b 35 29 29 83 33 32 2b 31 29 2f 31 30 30 30 |%+5)).32+1)/1000|
00026cf0 30 29 3a 43 25 3d 43 25 2b 44 25 20 8b 47 3d 47 |0):C%=C%+D% .G=G|
00026d00 2b 44 25 2a 28 56 61 5f 25 28 97 28 49 54 73 5f |+D%*(Va_%(.(ITs_|
00026d10 24 28 5a 25 2b 35 29 29 83 33 32 2b 31 29 2f 31 |$(Z%+5)).32+1)/1|
00026d20 30 30 30 30 29 3a 43 25 3d 43 25 2b 47 25 0d 8a |0000):C%=C%+G%..|
00026d30 1b 05 cd 0d 8a 20 05 cd 0d 8a 25 10 e7 70 72 65 |..... ....%..pre|
00026d40 66 6e 5f 25 3d 2d 31 8c 0d 8a 2a 1b e7 41 3c 3e |fn_%=-1...*..A<>|
00026d50 30 80 bb 28 49 54 73 5f 24 28 5a 25 2b 34 29 29 |0..(ITs_$(Z%+4))|
00026d60 3d 30 8c 0d 8a 2f 84 e7 49 54 66 5f 25 28 46 25 |=0.../..ITf_%(F%|
00026d70 29 3d 31 84 24 21 49 54 65 73 64 5f 25 3d 22 22 |)=1.$!ITesd_%=""|
00026d80 8c 47 3d 47 2b 28 a4 73 75 6d 5f 28 49 54 72 5f |.G=G+(.sum_(ITr_|
00026d90 28 46 25 29 2c 42 29 2d 44 25 29 3a 43 25 3d 43 |(F%),B)-D%):C%=C|
00026da0 25 2b 44 25 20 8b 48 25 3d a4 63 61 6c 70 63 32 |%+D% .H%=.calpc2|
00026db0 5f 28 47 25 2a 28 56 61 5f 25 28 97 28 49 54 73 |_(G%*(Va_%(.(ITs|
00026dc0 5f 24 28 5a 25 2b 35 29 29 83 33 32 2b 31 29 2f |_$(Z%+5)).32+1)/|
00026dd0 31 30 30 30 30 29 29 3a 43 25 3d 43 25 2b 47 25 |10000)):C%=C%+G%|
00026de0 3a 47 3d 47 2b 48 25 0d 8a 34 05 cd 0d 8a 39 1b |:G=G+H%..4....9.|
00026df0 e7 41 3d 30 84 bb 28 49 54 73 5f 24 28 5a 25 2b |.A=0..(ITs_$(Z%+|
00026e00 34 29 29 3c 3e 30 8c 0d 8a 3e 75 e7 49 54 66 5f |4))<>0...>u.ITf_|
00026e10 25 28 46 25 29 3d 31 8c 47 3d 47 2b 44 25 2a 28 |%(F%)=1.G=G+D%*(|
00026e20 56 61 5f 25 28 97 28 49 54 73 5f 24 28 5a 25 2b |Va_%(.(ITs_$(Z%+|
00026e30 35 29 29 83 33 32 2b 31 29 2f 31 30 30 30 30 29 |5)).32+1)/10000)|
00026e40 3a 43 25 3d 43 25 2b 44 25 20 8b 47 3d 47 2b 47 |:C%=C%+D% .G=G+G|
00026e50 25 2a 28 56 61 5f 25 28 97 28 49 54 73 5f 24 28 |%*(Va_%(.(ITs_$(|
00026e60 5a 25 2b 35 29 29 83 33 32 2b 31 29 2f 31 30 30 |Z%+5)).32+1)/100|
00026e70 30 30 29 3a 43 25 3d 43 25 2b 47 25 0d 8a 43 05 |00):C%=C%+G%..C.|
00026e80 cd 0d 8a 48 05 cd 0d 8a 4d 05 cd 0d 8a 52 b6 46 |...H....M....R.F|
00026e90 25 2b 3d 31 3a ed 3a 49 54 73 73 73 5f 24 28 38 |%+=1:.:ITsss_$(8|
00026ea0 29 3d a4 74 63 5f 28 41 25 2c 22 30 22 29 3a 42 |)=.tc_(A%,"0"):B|
00026eb0 25 3d a4 63 61 6c 70 63 32 5f 28 47 29 3a 49 54 |%=.calpc2_(G):IT|
00026ec0 73 73 73 5f 24 28 39 29 3d a4 74 63 5f 28 42 25 |sss_$(9)=.tc_(B%|
00026ed0 2c 22 30 22 29 3a 49 54 73 73 73 5f 24 28 31 30 |,"0"):ITsss_$(10|
00026ee0 29 3d a4 74 63 5f 28 41 25 2b 42 25 2c 22 30 22 |)=.tc_(A%+B%,"0"|
00026ef0 29 3a e7 24 21 49 54 65 73 64 5f 25 3c 3e 22 22 |):.$!ITesd_%<>""|
00026f00 8c 43 25 3d a4 61 64 64 5f 28 43 25 2c a4 63 61 |.C%=.add_(C%,.ca|
00026f10 6c 70 63 32 5f 28 47 29 29 3a 49 54 73 73 73 5f |lpc2_(G)):ITsss_|
00026f20 24 28 31 31 29 3d a4 74 63 5f 28 43 25 2c 22 22 |$(11)=.tc_(C%,""|
00026f30 29 20 8b 49 54 73 73 73 5f 24 28 31 31 29 3d 22 |) .ITsss_$(11)="|
00026f40 22 0d 8a 57 05 e1 0d 8a 5c 04 0d 8a 61 60 dd a4 |"..W....\...a`..|
00026f50 61 75 74 6f 76 61 74 5f 28 41 5f 24 2c 41 5f 25 |autovat_(A_$,A_%|
00026f60 29 3a ea 20 41 2c 48 25 2c 5a 25 2c 42 24 3a 48 |):. A,H%,Z%,B$:H|
00026f70 25 3d 74 5f 25 3a e3 5a 25 3d 31 b8 a9 28 41 5f |%=t_%:.Z%=1..(A_|
00026f80 24 29 3a e7 c1 41 5f 24 2c 5a 25 2c 31 29 3e 22 |$):..A_$,Z%,1)>"|
00026f90 40 22 8c 42 24 3d c1 41 5f 24 2c 5a 25 2c 31 29 |@".B$=.A_$,Z%,1)|
00026fa0 3a 5a 25 3d a9 28 41 5f 24 29 0d 8a 66 13 ed 3a |:Z%=.(A_$)..f..:|
00026fb0 24 74 5f 25 3d 42 24 3a d6 6d 31 5f 25 0d 8a 6b |$t_%=B$:.m1_%..k|
00026fc0 27 76 61 74 63 5f 24 3d 24 74 5f 25 3a e7 41 5f |'vatc_$=$t_%:.A_|
00026fd0 25 3d 30 84 41 5f 24 3d 22 22 84 42 24 3d 22 22 |%=0.A_$="".B$=""|
00026fe0 8c 3d 22 22 0d 8a 70 47 41 3d 41 5f 25 2d 41 5f |.=""..pGA=A_%-A_|
00026ff0 25 2f 28 31 2b 28 56 61 5f 25 28 97 28 42 24 29 |%/(1+(Va_%(.(B$)|
00027000 83 33 32 2b 31 29 2f 31 30 30 30 30 29 29 3a 5a |.32+1)/10000)):Z|
00027010 25 3d a4 63 61 6c 70 63 32 5f 28 41 29 3a 3d a4 |%=.calpc2_(A):=.|
00027020 74 63 5f 28 5a 25 2c 22 30 22 29 0d 8a 75 04 0d |tc_(Z%,"0")..u..|
00027030 8a 7a 2c dd a4 74 6f 74 5f 76 61 74 5f 28 41 5f |.z,..tot_vat_(A_|
00027040 24 2c 41 5f 25 29 3a ea 20 41 3a e7 41 5f 25 3d |$,A_%):. A:.A_%=|
00027050 30 84 41 5f 24 3d 22 22 8c 3d 30 0d 8a 7f 38 41 |0.A_$="".=0...8A|
00027060 3d 41 5f 25 2d 41 5f 25 2f 28 31 2b 28 56 61 5f |=A_%-A_%/(1+(Va_|
00027070 25 28 97 28 41 5f 24 29 83 33 32 2b 31 29 2f 31 |%(.(A_$).32+1)/1|
00027080 30 30 30 30 29 29 3a 3d a4 63 61 6c 70 63 32 5f |0000)):=.calpc2_|
00027090 28 41 29 0d 8a 84 24 dd a4 61 64 64 5f 76 61 74 |(A)...$..add_vat|
000270a0 28 41 5f 25 29 3a ea 20 41 2c 5a 25 3a e7 41 5f |(A_%):. A,Z%:.A_|
000270b0 25 3d 30 8c 3d 22 22 0d 8a 89 3a 41 3d 41 5f 25 |%=0.=""...:A=A_%|
000270c0 2a 28 31 2b 28 56 61 5f 25 28 32 29 2f 31 30 30 |*(1+(Va_%(2)/100|
000270d0 30 30 29 29 3a 5a 25 3d a4 63 61 6c 70 63 32 5f |00)):Z%=.calpc2_|
000270e0 28 41 29 3a 3d a4 74 63 5f 28 5a 25 2c 22 30 22 |(A):=.tc_(Z%,"0"|
000270f0 29 0d 8a 8e 04 0d 8a 93 48 dd a4 68 6e 5f 28 41 |).......H..hn_(A|
00027100 5f 24 2c 42 5f 24 29 3a 41 5f 24 3d a4 63 61 70 |_$,B_$):A_$=.cap|
00027110 73 5f 28 41 5f 24 29 3a 42 5f 24 3d a4 63 61 70 |s_(A_$):B_$=.cap|
00027120 73 5f 28 42 5f 24 29 3a c8 95 a9 28 42 5f 24 29 |s_(B_$):...(B_$)|
00027130 3c 32 3a 42 5f 24 2b 3d 22 41 22 3a ce 0d 8a 98 |<2:B_$+="A":....|
00027140 27 ea 20 5a 25 3a 5a 25 3d a7 41 5f 24 2c 22 3a |'. Z%:Z%=.A_$,":|
00027150 22 29 3a e7 5a 25 3d 30 8c 3d a4 77 68 6e 5f 28 |"):.Z%=0.=.whn_(|
00027160 42 5f 24 29 0d 8a 9d 16 3d a4 77 68 6e 5f 28 c1 |B_$)....=.whn_(.|
00027170 41 5f 24 2c 5a 25 2b 31 29 29 0d 8a a2 19 dd a4 |A_$,Z%+1))......|
00027180 77 68 6e 5f 28 61 5f 24 29 3a ea 20 61 5f 25 2c |whn_(a_$):. a_%,|
00027190 62 5f 25 0d 8a a7 16 e7 a9 28 61 5f 24 29 3d 31 |b_%......(a_$)=1|
000271a0 3a 61 5f 24 2b 3d 22 41 22 0d 8a ac 24 5a 25 3d |:a_$+="A"...$Z%=|
000271b0 28 97 28 61 5f 24 29 2d 36 35 29 2a 38 2b 28 97 |(.(a_$)-65)*8+(.|
000271c0 28 c1 61 5f 24 2c 32 29 29 2d 36 35 29 0d 8a b1 |(.a_$,2))-65)...|
000271d0 18 e7 5a 25 3e 2d 31 80 5a 25 3c 39 36 3a 3d 5a |..Z%>-1.Z%<96:=Z|
000271e0 25 20 8b 3d 30 0d 8a b6 04 0d 8a bb 12 dd f2 67 |% .=0..........g|
000271f0 65 74 49 54 64 61 74 76 61 74 5f 0d 8a c0 11 f2 |etITdatvat_.....|
00027200 67 65 74 49 54 64 61 74 5f 28 30 29 0d 8a c5 40 |getITdat_(0)...@|
00027210 ea 20 5a 25 2c 41 25 2c 42 25 2c 43 25 2c 44 25 |. Z%,A%,B%,C%,D%|
00027220 2c 45 25 2c 46 25 2c 47 25 2c 48 25 2c 41 5f 25 |,E%,F%,G%,H%,A_%|
00027230 2c 5a 5f 25 2c 47 2c 4e 5f 25 2c 4e 2c 4f 5f 25 |,Z_%,G,N_%,N,O_%|
00027240 2c 50 5f 25 2c 41 2c 61 5f 25 2c 42 0d 8a ca 59 |,P_%,A,a_%,B...Y|
00027250 4e 3d 30 3a 49 76 61 74 5f 28 29 3d 30 3a 49 76 |N=0:Ivat_()=0:Iv|
00027260 61 74 5f 25 28 29 3d 30 3a 49 74 6f 74 5f 25 28 |at_%()=0:Itot_%(|
00027270 29 3d 30 3a 49 76 61 74 5f 24 28 29 3d 22 22 3a |)=0:Ivat_$()="":|
00027280 76 74 5f 25 28 29 3d 30 3a 76 74 31 5f 25 28 29 |vt_%()=0:vt1_%()|
00027290 3d 30 3a 76 74 31 5f 28 29 3d 30 3a 76 74 5f 24 |=0:vt1_()=0:vt_$|
000272a0 28 29 3d 22 22 0d 8a cf 5d e3 5a 25 3d 31 b8 6d |()=""...].Z%=1.m|
000272b0 61 78 49 5f 25 2a 69 74 69 70 5f 25 2a 69 74 69 |axI_%*itip_%*iti|
000272c0 66 5f 25 2d 31 88 69 74 69 66 5f 25 3a 49 54 74 |f_%-1.itif_%:ITt|
000272d0 5f 24 28 46 25 29 3d 22 22 3a 4e 5f 25 3d 30 3a |_$(F%)="":N_%=0:|
000272e0 4e 3d 30 3a 41 5f 25 3d a4 68 6e 5f 28 49 54 73 |N=0:A_%=.hn_(ITs|
000272f0 5f 24 28 5a 25 2b 35 29 2c 49 54 68 65 61 64 5f |_$(Z%+5),IThead_|
00027300 24 29 0d 8a d4 15 e7 49 54 73 5f 24 28 5a 25 2b |$).....ITs_$(Z%+|
00027310 32 29 3c 3e 22 22 8c 0d 8a d9 30 e7 56 61 5f 25 |2)<>""....0.Va_%|
00027320 28 97 28 49 54 73 5f 24 28 5a 25 2b 35 29 29 83 |(.(ITs_$(Z%+5)).|
00027330 33 32 2b 31 29 3d 30 8c 41 3d 30 20 8b 41 3d 49 |32+1)=0.A=0 .A=I|
00027340 54 72 5f 28 46 25 29 0d 8a de 19 42 3d a4 71 63 |Tr_(F%)....B=.qc|
00027350 5f 28 49 54 73 5f 24 28 5a 25 2b 32 29 2c 31 29 |_(ITs_$(Z%+2),1)|
00027360 0d 8a e3 8e e7 41 3d 30 8c 44 25 3d a4 63 61 6c |.....A=0.D%=.cal|
00027370 70 63 32 5f 28 a4 73 75 6d 5f 28 42 2c a4 63 6f |pc2_(.sum_(B,.co|
00027380 6e 76 73 69 5f 28 49 54 73 5f 24 28 5a 25 2b 33 |nvsi_(ITs_$(Z%+3|
00027390 29 29 29 29 20 8b 44 25 3d a4 63 61 6c 70 63 32 |)))) .D%=.calpc2|
000273a0 5f 28 a4 73 75 6d 5f 28 42 2c 49 54 72 5f 28 46 |_(.sum_(B,ITr_(F|
000273b0 25 29 29 29 3a 44 25 3d 44 25 2d 28 44 25 2d 44 |%))):D%=D%-(D%-D|
000273c0 25 2f 28 28 31 30 30 30 30 2b 56 61 5f 25 28 97 |%/((10000+Va_%(.|
000273d0 28 49 54 73 5f 24 28 5a 25 2b 35 29 29 83 33 32 |(ITs_$(Z%+5)).32|
000273e0 2b 31 29 29 2f 31 30 30 29 2a 31 30 30 29 0d 8a |+1))/100)*100)..|
000273f0 e8 17 e7 bb 28 49 54 73 5f 24 28 5a 25 2b 34 29 |....(ITs_$(Z%+4)|
00027400 29 3c 3e 30 8c 0d 8a ed 4b e7 49 54 64 5f 25 28 |)<>0....K.ITd_%(|
00027410 46 25 29 3d 36 37 8c 44 25 3d 44 25 2a 28 bb 28 |F%)=67.D%=D%*(.(|
00027420 49 54 73 5f 24 28 5a 25 2b 34 29 29 2f 31 30 30 |ITs_$(Z%+4))/100|
00027430 29 20 8b 44 25 3d 44 25 2d 44 25 2a 28 bb 28 49 |) .D%=D%-D%*(.(I|
00027440 54 73 5f 24 28 5a 25 2b 34 29 29 2f 31 30 30 29 |Ts_$(Z%+4))/100)|
00027450 0d 8a f2 05 cd 0d 8a f7 43 49 54 74 5f 24 28 46 |........CITt_$(F|
00027460 25 29 3d a4 74 63 5f 28 44 25 2c 22 22 29 3a 41 |%)=.tc_(D%,""):A|
00027470 25 3d 41 25 2b 44 25 3a 47 25 3d 44 25 2d 44 25 |%=A%+D%:G%=D%-D%|
00027480 2a bb 28 24 21 49 54 65 73 64 5f 25 29 2f 31 30 |*.($!ITesd_%)/10|
00027490 30 3a 4e 5f 25 3d 44 25 0d 8a fc 0f e7 70 72 65 |0:N_%=D%.....pre|
000274a0 66 6e 5f 25 3d 31 8c 0d 8b 01 1b e7 41 3c 3e 30 |fn_%=1......A<>0|
000274b0 80 bb 28 49 54 73 5f 24 28 5a 25 2b 34 29 29 3d |..(ITs_$(Z%+4))=|
000274c0 30 8c 0d 8b 06 8b e7 49 54 66 5f 25 28 46 25 29 |0......ITf_%(F%)|
000274d0 3d 31 84 24 21 49 54 65 73 64 5f 25 3d 22 22 8c |=1.$!ITesd_%="".|
000274e0 4e 3d a4 73 75 6d 5f 28 49 54 72 5f 28 46 25 29 |N=.sum_(ITr_(F%)|
000274f0 2c 42 29 2d 44 25 3a 47 3d 47 2b 4e 3a 43 25 3d |,B)-D%:G=G+N:C%=|
00027500 43 25 2b 44 25 20 8b 48 25 3d a4 63 61 6c 70 63 |C%+D% .H%=.calpc|
00027510 32 5f 28 44 25 2a 28 56 61 5f 25 28 97 28 49 54 |2_(D%*(Va_%(.(IT|
00027520 73 5f 24 28 5a 25 2b 35 29 29 83 33 32 2b 31 29 |s_$(Z%+5)).32+1)|
00027530 2f 31 30 30 30 30 29 29 3a 43 25 3d 43 25 2b 47 |/10000)):C%=C%+G|
00027540 25 3a 47 3d 47 2b 48 25 3a 4e 3d 48 25 0d 8b 0b |%:G=G+H%:N=H%...|
00027550 05 cd 0d 8b 10 1b e7 41 3d 30 84 bb 28 49 54 73 |.......A=0..(ITs|
00027560 5f 24 28 5a 25 2b 34 29 29 3c 3e 30 8c 0d 8b 15 |_$(Z%+4))<>0....|
00027570 7d e7 49 54 66 5f 25 28 46 25 29 3d 31 8c 4e 3d |}.ITf_%(F%)=1.N=|
00027580 44 25 2a 28 56 61 5f 25 28 97 28 49 54 73 5f 24 |D%*(Va_%(.(ITs_$|
00027590 28 5a 25 2b 35 29 29 83 33 32 2b 31 29 2f 31 30 |(Z%+5)).32+1)/10|
000275a0 30 30 30 29 3a 47 3d 47 2b 4e 3a 43 25 3d 43 25 |000):G=G+N:C%=C%|
000275b0 2b 44 25 20 8b 4e 3d 44 25 2a 28 56 61 5f 25 28 |+D% .N=D%*(Va_%(|
000275c0 97 28 49 54 73 5f 24 28 5a 25 2b 35 29 29 83 33 |.(ITs_$(Z%+5)).3|
000275d0 32 2b 31 29 2f 31 30 30 30 30 29 3a 47 3d 47 2b |2+1)/10000):G=G+|
000275e0 4e 3a 43 25 3d 43 25 2b 47 25 0d 8b 1a 05 cd 0d |N:C%=C%+G%......|
000275f0 8b 1f 05 cd 0d 8b 24 10 e7 70 72 65 66 6e 5f 25 |......$..prefn_%|
00027600 3d 2d 31 8c 0d 8b 29 1b e7 41 3c 3e 30 80 bb 28 |=-1...)..A<>0..(|
00027610 49 54 73 5f 24 28 5a 25 2b 34 29 29 3d 30 8c 0d |ITs_$(Z%+4))=0..|
00027620 8b 2e 8b e7 49 54 66 5f 25 28 46 25 29 3d 31 84 |....ITf_%(F%)=1.|
00027630 24 21 49 54 65 73 64 5f 25 3d 22 22 8c 4e 3d a4 |$!ITesd_%="".N=.|
00027640 73 75 6d 5f 28 49 54 72 5f 28 46 25 29 2c 42 29 |sum_(ITr_(F%),B)|
00027650 2d 44 25 3a 47 3d 47 2b 4e 3a 43 25 3d 43 25 2b |-D%:G=G+N:C%=C%+|
00027660 44 25 20 8b 48 25 3d a4 63 61 6c 70 63 32 5f 28 |D% .H%=.calpc2_(|
00027670 47 25 2a 28 56 61 5f 25 28 97 28 49 54 73 5f 24 |G%*(Va_%(.(ITs_$|
00027680 28 5a 25 2b 35 29 29 83 33 32 2b 31 29 2f 31 30 |(Z%+5)).32+1)/10|
00027690 30 30 30 29 29 3a 43 25 3d 43 25 2b 47 25 3a 47 |000)):C%=C%+G%:G|
000276a0 3d 47 2b 48 25 3a 4e 3d 48 25 0d 8b 33 05 cd 0d |=G+H%:N=H%..3...|
000276b0 8b 38 1b e7 41 3d 30 84 bb 28 49 54 73 5f 24 28 |.8..A=0..(ITs_$(|
000276c0 5a 25 2b 34 29 29 3c 3e 30 8c 0d 8b 3d 7d e7 49 |Z%+4))<>0...=}.I|
000276d0 54 66 5f 25 28 46 25 29 3d 31 8c 4e 3d 44 25 2a |Tf_%(F%)=1.N=D%*|
000276e0 28 56 61 5f 25 28 97 28 49 54 73 5f 24 28 5a 25 |(Va_%(.(ITs_$(Z%|
000276f0 2b 35 29 29 83 33 32 2b 31 29 2f 31 30 30 30 30 |+5)).32+1)/10000|
00027700 29 3a 47 3d 47 2b 4e 3a 43 25 3d 43 25 2b 44 25 |):G=G+N:C%=C%+D%|
00027710 20 8b 4e 3d 47 25 2a 28 56 61 5f 25 28 97 28 49 | .N=G%*(Va_%(.(I|
00027720 54 73 5f 24 28 5a 25 2b 35 29 29 83 33 32 2b 31 |Ts_$(Z%+5)).32+1|
00027730 29 2f 31 30 30 30 30 29 3a 47 3d 47 2b 4e 3a 43 |)/10000):G=G+N:C|
00027740 25 3d 43 25 2b 47 25 0d 8b 42 05 cd 0d 8b 47 05 |%=C%+G%..B....G.|
00027750 cd 0d 8b 4c 05 cd 0d 8b 51 09 46 25 2b 3d 31 0d |...L....Q.F%+=1.|
00027760 8b 56 47 e7 49 54 73 5f 24 28 5a 25 2b 35 29 3e |.VG.ITs_$(Z%+5)>|
00027770 3d 22 41 22 80 49 54 73 5f 24 28 5a 25 2b 35 29 |="A".ITs_$(Z%+5)|
00027780 3c 22 46 22 84 49 54 73 5f 24 28 5a 25 2b 35 29 |<"F".ITs_$(Z%+5)|
00027790 3e 3d 22 61 22 80 49 54 73 5f 24 28 5a 25 2b 35 |>="a".ITs_$(Z%+5|
000277a0 29 3c 22 66 22 8c 0d 8b 5b 19 4f 5f 25 3d 97 28 |)<"f"...[.O_%=.(|
000277b0 49 54 73 5f 24 28 5a 25 2b 35 29 29 83 33 32 0d |ITs_$(Z%+5)).32.|
000277c0 8b 60 8e 49 76 61 74 5f 24 28 4f 5f 25 29 3d a4 |.`.Ivat_$(O_%)=.|
000277d0 63 61 70 73 5f 28 49 54 73 5f 24 28 5a 25 2b 35 |caps_(ITs_$(Z%+5|
000277e0 29 29 3a 76 74 5f 24 28 41 5f 25 29 3d 49 76 61 |)):vt_$(A_%)=Iva|
000277f0 74 5f 24 28 4f 5f 25 29 3a e7 5a 5f 25 3d 30 3a |t_$(O_%):.Z_%=0:|
00027800 e7 a9 28 49 54 73 5f 24 28 5a 25 2b 35 29 29 3e |..(ITs_$(Z%+5))>|
00027810 31 3a 49 54 68 65 61 64 5f 24 3d bd 28 41 5f 25 |1:IThead_$=.(A_%|
00027820 2f 38 2b 36 35 29 2b bd 28 41 5f 25 83 38 2b 36 |/8+65)+.(A_%.8+6|
00027830 35 29 3a 24 21 49 54 68 65 61 64 31 5f 25 3d 49 |5):$!IThead1_%=I|
00027840 54 68 65 61 64 5f 24 3a 5a 5f 25 3d 31 0d 8b 65 |Thead_$:Z_%=1..e|
00027850 1b 49 76 61 74 5f 28 4f 5f 25 29 3d 49 76 61 74 |.Ivat_(O_%)=Ivat|
00027860 5f 28 4f 5f 25 29 2b 4e 0d 8b 6a 1f 49 74 6f 74 |_(O_%)+N..j.Itot|
00027870 5f 25 28 4f 5f 25 29 3d 49 74 6f 74 5f 25 28 4f |_%(O_%)=Itot_%(O|
00027880 5f 25 29 2b 4e 5f 25 0d 8b 6f 05 cc 0d 8b 74 26 |_%)+N_%..o....t&|
00027890 49 76 61 74 5f 28 36 29 3d 30 3a 49 74 6f 74 5f |Ivat_(6)=0:Itot_|
000278a0 25 28 36 29 3d 49 74 6f 74 5f 25 28 36 29 2b 4e |%(6)=Itot_%(6)+N|
000278b0 5f 25 0d 8b 79 05 cd 0d 8b 7e 27 e7 4e 5f 25 3c |_%..y....~'.N_%<|
000278c0 3e 30 8c 76 74 5f 25 28 41 5f 25 29 2b 3d 4e 5f |>0.vt_%(A_%)+=N_|
000278d0 25 3a 76 74 31 5f 28 41 5f 25 29 2b 3d 4e 0d 8b |%:vt1_(A_%)+=N..|
000278e0 83 05 ed 0d 8b 88 46 e3 4f 5f 25 3d 31 b8 35 3a |......F.O_%=1.5:|
000278f0 49 76 61 74 5f 25 28 4f 5f 25 29 3d a4 63 61 6c |Ivat_%(O_%)=.cal|
00027900 70 63 32 5f 28 49 76 61 74 5f 28 4f 5f 25 29 29 |pc2_(Ivat_(O_%))|
00027910 3a 76 74 31 5f 25 28 39 36 29 2b 3d 49 76 61 74 |:vt1_%(96)+=Ivat|
00027920 5f 25 28 4f 5f 25 29 3a ed 0d 8b 8d 57 e3 41 5f |_%(O_%):....W.A_|
00027930 25 3d 30 b8 39 35 3a 76 74 31 5f 25 28 41 5f 25 |%=0.95:vt1_%(A_%|
00027940 29 3d a4 63 61 6c 70 63 32 5f 28 76 74 31 5f 28 |)=.calpc2_(vt1_(|
00027950 41 5f 25 29 29 3a 50 5f 25 2b 3d 76 74 31 5f 25 |A_%)):P_%+=vt1_%|
00027960 28 41 5f 25 29 3a ed 3a 50 5f 25 3d 50 5f 25 2d |(A_%):.:P_%=P_%-|
00027970 76 74 31 5f 25 28 39 36 29 3a 44 25 3d 50 5f 25 |vt1_%(96):D%=P_%|
00027980 0d 8b 92 0c c8 95 50 5f 25 3c 3e 30 0d 8b 97 0d |......P_%<>0....|
00027990 e3 41 5f 25 3d 30 b8 39 35 0d 8b 9c c5 e7 50 5f |.A_%=0.95.....P_|
000279a0 25 3e 30 3a e7 76 74 31 5f 25 28 41 5f 25 29 3e |%>0:.vt1_%(A_%)>|
000279b0 30 3a e7 76 74 31 5f 25 28 41 5f 25 29 3c 76 74 |0:.vt1_%(A_%)<vt|
000279c0 5f 25 28 41 5f 25 29 3a 76 74 31 5f 25 28 41 5f |_%(A_%):vt1_%(A_|
000279d0 25 29 2d 3d 31 3a 50 5f 25 2d 3d 31 20 8b e7 50 |%)-=1:P_%-=1 ..P|
000279e0 5f 25 3c 30 3a e7 76 74 31 5f 25 28 41 5f 25 29 |_%<0:.vt1_%(A_%)|
000279f0 3e 30 3a e7 76 74 31 5f 25 28 41 5f 25 29 3c 76 |>0:.vt1_%(A_%)<v|
00027a00 74 5f 25 28 41 5f 25 29 3a 76 74 31 5f 25 28 41 |t_%(A_%):vt1_%(A|
00027a10 5f 25 29 2b 3d 31 3a 50 5f 25 2b 3d 31 20 8b e7 |_%)+=1:P_%+=1 ..|
00027a20 50 5f 25 3c 30 3a e7 76 74 31 5f 25 28 41 5f 25 |P_%<0:.vt1_%(A_%|
00027a30 29 3c 30 3a e7 76 74 31 5f 25 28 41 5f 25 29 3e |)<0:.vt1_%(A_%)>|
00027a40 76 74 5f 25 28 41 5f 25 29 3a 76 74 31 5f 25 28 |vt_%(A_%):vt1_%(|
00027a50 41 5f 25 29 2d 3d 31 3a 50 5f 25 2b 3d 31 0d 8b |A_%)-=1:P_%+=1..|
00027a60 a1 11 e7 50 5f 25 3d 30 3a 41 5f 25 3d 39 35 0d |...P_%=0:A_%=95.|
00027a70 8b a6 05 ed 0d 8b ab 29 e7 44 25 3c 3e 50 5f 25 |.......).D%<>P_%|
00027a80 3a 44 25 3d 50 5f 25 20 8b e7 44 25 3d 50 5f 25 |:D%=P_% ..D%=P_%|
00027a90 80 50 5f 25 3c 3e 30 8c 50 5f 25 3d 30 0d 8b b0 |.P_%<>0.P_%=0...|
00027aa0 05 ce 0d 8b b5 d7 e7 44 25 3c 3e 30 3a f2 70 65 |.......D%<>0:.pe|
00027ab0 5f 28 22 54 68 65 72 65 20 69 73 20 61 20 22 2b |_("There is a "+|
00027ac0 56 41 54 5f 24 2b 22 20 72 6f 75 6e 64 69 6e 67 |VAT_$+" rounding|
00027ad0 20 65 72 72 6f 72 20 6f 66 20 22 2b c3 28 44 25 | error of "+.(D%|
00027ae0 2f 31 30 30 29 2b 22 20 62 65 74 77 65 65 6e 20 |/100)+" between |
00027af0 74 68 65 20 69 6e 76 6f 69 63 65 20 61 6e 64 20 |the invoice and |
00027b00 74 68 65 20 73 61 6c 65 73 20 6c 65 64 67 65 72 |the sales ledger|
00027b10 20 65 6e 74 72 69 65 73 20 64 75 65 20 74 6f 20 | entries due to |
00027b20 73 70 6c 69 74 74 69 6e 67 20 74 68 65 20 69 6e |splitting the in|
00027b30 76 6f 69 63 65 20 61 63 72 6f 73 73 20 6d 6f 72 |voice across mor|
00027b40 65 20 74 68 61 6e 20 6f 6e 65 20 68 65 61 64 69 |e than one headi|
00027b50 6e 67 20 2d 20 70 6c 65 61 73 65 20 6d 61 6e 75 |ng - please manu|
00027b60 61 6c 6c 79 20 61 64 6a 75 73 74 20 74 68 65 20 |ally adjust the |
00027b70 65 6e 74 72 69 65 73 22 29 0d 8b ba 5e 49 54 73 |entries")...^ITs|
00027b80 73 73 5f 24 28 38 29 3d a4 74 63 5f 28 41 25 2c |ss_$(8)=.tc_(A%,|
00027b90 22 30 22 29 3a 42 25 3d a4 63 61 6c 70 63 32 5f |"0"):B%=.calpc2_|
00027ba0 28 47 29 3a 49 54 73 73 73 5f 24 28 39 29 3d a4 |(G):ITsss_$(9)=.|
00027bb0 74 63 5f 28 42 25 2c 22 30 22 29 3a 49 54 73 73 |tc_(B%,"0"):ITss|
00027bc0 73 5f 24 28 31 30 29 3d a4 74 63 5f 28 41 25 2b |s_$(10)=.tc_(A%+|
00027bd0 42 25 2c 22 30 22 29 0d 8b bf 53 e7 24 21 49 54 |B%,"0")...S.$!IT|
00027be0 65 73 64 5f 25 3c 3e 22 22 8c 43 25 3d a4 61 64 |esd_%<>"".C%=.ad|
00027bf0 64 5f 28 43 25 2c a4 63 61 6c 70 63 32 5f 28 47 |d_(C%,.calpc2_(G|
00027c00 29 29 3a 49 54 73 73 73 5f 24 28 31 31 29 3d a4 |)):ITsss_$(11)=.|
00027c10 74 63 5f 28 43 25 2c 22 22 29 20 8b 49 54 73 73 |tc_(C%,"") .ITss|
00027c20 73 5f 24 28 31 31 29 3d 22 22 0d 8b c4 05 e1 0d |s_$(11)=""......|
00027c30 8b c9 04 0d 8b ce 2b dd f2 77 72 61 70 5f 28 5a |......+..wrap_(Z|
00027c40 5f 25 29 3a e7 c1 24 21 49 54 73 64 5f 25 2c 49 |_%):..$!ITsd_%,I|
00027c50 54 6c 6c 5f 25 2b 31 29 3d 22 20 22 3a e1 0d 8b |Tll_%+1)=" ":...|
00027c60 d3 6d ea 20 41 5f 24 2c 41 5f 25 2c 42 5f 25 2c |.m. A_$,A_%,B_%,|
00027c70 42 25 2c 43 25 2c 44 25 2c 45 25 2c 46 25 2c 46 |B%,C%,D%,E%,F%,F|
00027c80 5f 25 2c 47 5f 25 2c 5a 25 2c 61 5f 25 2c 62 5f |_%,G_%,Z%,a_%,b_|
00027c90 25 2c 63 5f 25 2c 64 5f 25 2c 6b 5f 25 2c 69 77 |%,c_%,d_%,k_%,iw|
00027ca0 5f 25 2c 69 5f 25 3a 69 77 5f 25 3d 30 3a 63 5f |_%,i_%:iw_%=0:c_|
00027cb0 25 3d 35 30 30 30 3a 64 5f 25 3d 74 6f 74 49 5f |%=5000:d_%=totI_|
00027cc0 25 2b 33 3a 69 5f 25 3d 5a 5f 25 0d 8b d8 31 f5 |%+3:i_%=Z_%...1.|
00027cd0 3a c8 99 26 36 2c 31 32 38 2c 32 35 35 b8 2c 42 |:..&6,128,255.,B|
00027ce0 5f 25 3a 5a 25 3d a6 28 30 29 3a e7 5a 25 3e 33 |_%:Z%=.(0):.Z%>3|
00027cf0 31 8c 41 5f 24 2b 3d bd 28 5a 25 29 0d 8b dd 33 |1.A_$+=.(Z%)...3|
00027d00 fd 42 5f 25 3d 30 3a 45 25 3d a9 28 41 5f 24 29 |.B_%=0:E%=.(A_$)|
00027d10 3a 61 5f 25 3d a9 28 24 21 49 54 73 64 5f 25 29 |:a_%=.($!ITsd_%)|
00027d20 2b 45 25 3a 43 25 3d 49 54 6c 6c 5f 25 2d 31 0d |+E%:C%=ITll_%-1.|
00027d30 8b e2 38 42 25 3d 69 74 70 5f 25 2a 69 74 69 66 |..8B%=itp_%*itif|
00027d40 5f 25 2b 5a 5f 25 3a 42 5f 25 3d 42 25 3a 46 25 |_%+Z_%:B_%=B%:F%|
00027d50 3d 5a 5f 25 3a e7 42 25 3d 74 6f 74 49 5f 25 2d |=Z_%:.B%=totI_%-|
00027d60 33 8c 46 5f 25 3d 31 0d 8b e7 34 f5 3a e7 46 25 |3.F_%=1...4.:.F%|
00027d70 3c 34 30 3a 49 54 73 5f 24 28 42 5f 25 2b 69 74 |<40:ITs_$(B_%+it|
00027d80 69 66 5f 25 29 3d a4 67 49 64 28 69 6e 76 77 25 |if_%)=.gId(invw%|
00027d90 2c 46 25 2b 69 74 69 66 5f 25 29 0d 8b ec 28 42 |,F%+itif_%)...(B|
00027da0 5f 25 2b 3d 69 74 69 66 5f 25 3a 46 25 2b 3d 69 |_%+=itif_%:F%+=i|
00027db0 74 69 66 5f 25 3a fd 46 25 3e 34 30 3a 42 5f 25 |tif_%:.F%>40:B_%|
00027dc0 3d 42 25 0d 8b f1 24 e7 46 5f 25 3d 30 3a e7 a4 |=B%...$.F_%=0:..|
00027dd0 67 48 5f 3d 30 8c 6e 6f 74 72 61 6e 73 5f 25 3d |gH_=0.notrans_%=|
00027de0 31 3a 46 5f 25 3d 31 0d 8b f6 38 e7 46 5f 25 3d |1:F_%=1...8.F_%=|
00027df0 30 3a e7 61 5f 25 2b 32 35 35 3e 68 65 61 70 5f |0:.a_%+255>heap_|
00027e00 73 69 7a 65 25 3a e7 a4 65 48 5f 3d 30 8c 6e 6f |size%:..eH_=0.no|
00027e10 74 72 61 6e 73 5f 25 3d 31 3a 46 5f 25 3d 31 0d |trans_%=1:F_%=1.|
00027e20 8b fb 51 e7 46 5f 25 3d 31 8c 49 54 73 5f 24 28 |..Q.F_%=1.ITs_$(|
00027e30 42 25 29 3d c0 24 21 49 54 73 64 5f 25 2c 49 54 |B%)=.$!ITsd_%,IT|
00027e40 6c 6c 5f 25 29 3a 5a 25 3d a4 70 49 49 28 69 6e |ll_%):Z%=.pII(in|
00027e50 76 77 25 2c 5a 5f 25 2c 49 54 73 5f 24 28 42 25 |vw%,Z_%,ITs_$(B%|
00027e60 29 29 3a f2 73 65 74 43 5f 28 5a 5f 25 29 3a e1 |)):.setC_(Z_%):.|
00027e70 0d 8c 00 76 24 74 62 6c 6f 63 6b 5f 25 3d c0 24 |...v$tblock_%=.$|
00027e80 21 49 54 73 64 5f 25 2c 63 62 6c 6f 63 6b 5f 25 |!ITsd_%,cblock_%|
00027e90 21 32 30 29 3a 61 5f 25 3d a9 28 c0 24 21 49 54 |!20):a_%=.(.$!IT|
00027ea0 73 64 5f 25 2c 63 62 6c 6f 63 6b 5f 25 21 32 30 |sd_%,cblock_%!20|
00027eb0 29 29 3a 24 28 74 62 6c 6f 63 6b 5f 25 2b 61 5f |)):$(tblock_%+a_|
00027ec0 25 29 3d 41 5f 24 3a 61 5f 25 2b 3d 45 25 3a 74 |%)=A_$:a_%+=E%:t|
00027ed0 62 6c 6f 63 6b 5f 25 3f 61 5f 25 3d 32 35 35 3a |block_%?a_%=255:|
00027ee0 61 5f 25 2b 3d 31 0d 8c 05 4d 24 28 74 62 6c 6f |a_%+=1...M$(tblo|
00027ef0 63 6b 5f 25 2b 61 5f 25 29 3d c1 24 21 49 54 73 |ck_%+a_%)=.$!ITs|
00027f00 64 5f 25 2c 63 62 6c 6f 63 6b 5f 25 21 32 30 2b |d_%,cblock_%!20+|
00027f10 31 29 3a 61 5f 25 2b 3d a9 28 c1 24 21 49 54 73 |1):a_%+=.(.$!ITs|
00027f20 64 5f 25 2c 63 62 6c 6f 63 6b 5f 25 21 32 30 2b |d_%,cblock_%!20+|
00027f30 31 29 29 0d 8c 0a 49 f5 3a 41 5f 24 3d 49 54 73 |1))...I.:A_$=ITs|
00027f40 5f 24 28 42 5f 25 2b 69 74 69 66 5f 25 29 3a e7 |_$(B_%+itif_%):.|
00027f50 41 5f 24 3d 22 22 8c 41 5f 24 3d bd 28 30 29 3a |A_$="".A_$=.(0):|
00027f60 e7 64 5f 25 3d 74 6f 74 49 5f 25 2b 33 3a 64 5f |.d_%=totI_%+3:d_|
00027f70 25 3d 42 5f 25 2b 69 74 69 66 5f 25 0d 8c 0f 2f |%=B_%+itif_%.../|
00027f80 24 28 74 62 6c 6f 63 6b 5f 25 2b 61 5f 25 29 3d |$(tblock_%+a_%)=|
00027f90 41 5f 24 3a 61 5f 25 2b 3d a9 28 41 5f 24 29 3a |A_$:a_%+=.(A_$):|
00027fa0 42 5f 25 2b 3d 69 74 69 66 5f 25 0d 8c 14 27 fd |B_%+=itif_%...'.|
00027fb0 42 5f 25 3d 74 6f 74 49 5f 25 2d 33 3a 74 62 6c |B_%=totI_%-3:tbl|
00027fc0 6f 63 6b 5f 25 3f 61 5f 25 3d 30 3a 42 5f 25 3d |ock_%?a_%=0:B_%=|
00027fd0 2d 31 0d 8c 19 04 0d 8c 1e 60 f5 3a 44 25 3d 30 |-1.......`.:D%=0|
00027fe0 3a 42 5f 25 2b 3d 31 3a 41 5f 25 3d 42 5f 25 3a |:B_%+=1:A_%=B_%:|
00027ff0 41 5f 24 3d 22 22 3a e7 74 62 6c 6f 63 6b 5f 25 |A_$="":.tblock_%|
00028000 3f 41 5f 25 3d 33 32 8c e3 62 5f 25 3d 41 5f 25 |?A_%=32..b_%=A_%|
00028010 b8 61 5f 25 2d 31 3a 74 62 6c 6f 63 6b 5f 25 3f |.a_%-1:tblock_%?|
00028020 62 5f 25 3d 74 62 6c 6f 63 6b 5f 25 3f 28 62 5f |b_%=tblock_%?(b_|
00028030 25 2b 31 29 3a ed 0d 8c 23 60 e3 5a 25 3d 41 5f |%+1):...#`.Z%=A_|
00028040 25 b8 41 5f 25 2b 43 25 3a e7 74 62 6c 6f 63 6b |%.A_%+C%:.tblock|
00028050 5f 25 3f 5a 25 3d 32 35 35 8c 69 77 5f 25 3d 2d |_%?Z%=255.iw_%=-|
00028060 31 3a 63 5f 25 3d 5a 25 3a e3 62 5f 25 3d 5a 25 |1:c_%=Z%:.b_%=Z%|
00028070 b8 61 5f 25 2d 31 3a 74 62 6c 6f 63 6b 5f 25 3f |.a_%-1:tblock_%?|
00028080 62 5f 25 3d 74 62 6c 6f 63 6b 5f 25 3f 28 62 5f |b_%=tblock_%?(b_|
00028090 25 2b 31 29 3a ed 0d 8c 28 55 e7 74 62 6c 6f 63 |%+1):...(U.tbloc|
000280a0 6b 5f 25 3f 5a 25 3d 30 8c 42 5f 25 3d 5a 25 3a |k_%?Z%=0.B_%=Z%:|
000280b0 5a 25 3d 41 5f 25 2b 43 25 20 8b 41 5f 24 2b 3d |Z%=A_%+C% .A_$+=|
000280c0 bd 28 74 62 6c 6f 63 6b 5f 25 3f 5a 25 29 3a 42 |.(tblock_%?Z%):B|
000280d0 5f 25 3d 5a 25 3a e7 74 62 6c 6f 63 6b 5f 25 3f |_%=Z%:.tblock_%?|
000280e0 5a 25 3d 33 32 8c 44 25 3d 5a 25 0d 8c 2d 38 ed |Z%=32.D%=Z%..-8.|
000280f0 3a e7 44 25 3e 30 3a e7 74 62 6c 6f 63 6b 5f 25 |:.D%>0:.tblock_%|
00028100 3f 28 42 5f 25 2b 31 29 3e 33 32 8c 42 5f 25 3d |?(B_%+1)>32.B_%=|
00028110 44 25 3a 41 5f 24 3d c0 41 5f 24 2c 44 25 2d 41 |D%:A_$=.A_$,D%-A|
00028120 5f 25 29 0d 8c 32 2b e7 69 77 5f 25 3d 2d 31 3a |_%)..2+.iw_%=-1:|
00028130 e7 63 5f 25 3c 3d 42 5f 25 8c 69 77 5f 25 3d 63 |.c_%<=B_%.iw_%=c|
00028140 5f 25 2d 41 5f 25 3a 47 5f 25 3d 6b 5f 25 0d 8c |_%-A_%:G_%=k_%..|
00028150 37 58 e7 69 77 5f 25 3d 2d 31 3a e7 63 5f 25 3e |7X.iw_%=-1:.c_%>|
00028160 42 5f 25 8c e3 62 5f 25 3d 61 5f 25 b8 42 5f 25 |B_%..b_%=a_%.B_%|
00028170 2b 32 88 2d 31 3a 74 62 6c 6f 63 6b 5f 25 3f 62 |+2.-1:tblock_%?b|
00028180 5f 25 3d 74 62 6c 6f 63 6b 5f 25 3f 28 62 5f 25 |_%=tblock_%?(b_%|
00028190 2d 31 29 3a ed 3a 74 62 6c 6f 63 6b 5f 25 3f 62 |-1):.:tblock_%?b|
000281a0 5f 25 3d 32 35 35 0d 8c 3c 23 e7 41 5f 24 3c 3e |_%=255..<#.A_$<>|
000281b0 22 22 3a e7 c2 41 5f 24 2c 31 29 3c 3e 22 20 22 |"":..A_$,1)<>" "|
000281c0 3a 41 5f 24 2b 3d 22 20 22 0d 8c 41 36 49 54 73 |:A_$+=" "..A6ITs|
000281d0 5f 24 28 42 25 29 3d 41 5f 24 3a e7 5a 5f 25 3c |_$(B%)=A_$:.Z_%<|
000281e0 34 38 3a 5a 25 3d a4 70 49 49 28 69 6e 76 77 25 |48:Z%=.pII(invw%|
000281f0 2c 5a 5f 25 2c 49 54 73 5f 24 28 42 25 29 29 0d |,Z_%,ITs_$(B%)).|
00028200 8c 46 50 5a 5f 25 2b 3d 69 74 69 66 5f 25 3a 42 |.FPZ_%+=itif_%:B|
00028210 25 2b 3d 69 74 69 66 5f 25 3a 6b 5f 25 2b 3d 31 |%+=itif_%:k_%+=1|
00028220 3a fd 42 25 3d 64 5f 25 2b 69 74 69 66 5f 25 80 |:.B%=d_%+itif_%.|
00028230 74 62 6c 6f 63 6b 5f 25 3f 42 5f 25 3d 30 84 42 |tblock_%?B_%=0.B|
00028240 25 3d 74 6f 74 49 5f 25 2b 33 3a f2 66 48 5f 0d |%=totI_%+3:.fH_.|
00028250 8c 4b 3d 5a 5f 25 3d 69 5f 25 2b 47 5f 25 2a 69 |.K=Z_%=i_%+G_%*i|
00028260 74 69 66 5f 25 3a 47 5f 25 3d 47 5f 25 2d 28 34 |tif_%:G_%=G_%-(4|
00028270 34 2d 69 5f 25 29 2f 69 74 69 66 5f 25 3a e7 5a |4-i_%)/itif_%:.Z|
00028280 5f 25 3e 34 34 3a 5a 5f 25 3d 34 34 0d 8c 50 19 |_%>44:Z_%=44..P.|
00028290 e7 47 5f 25 3e 30 8c f2 49 54 64 6f 77 6e 5f 28 |.G_%>0..ITdown_(|
000282a0 2d 47 5f 25 29 0d 8c 55 2e e7 69 74 70 5f 25 3d |-G_%)..U..itp_%=|
000282b0 37 32 3a e7 5a 5f 25 3d 34 34 3a e7 69 77 5f 25 |72:.Z_%=44:.iw_%|
000282c0 3e 49 54 6c 6c 5f 25 8c 69 77 5f 25 3d 49 54 6c |>ITll_%.iw_%=ITl|
000282d0 6c 5f 25 0d 8c 5a 20 c8 99 26 34 30 30 44 32 2c |l_%..Z ..&400D2,|
000282e0 69 6e 76 77 25 2c 5a 5f 25 2c 2c 2c 2d 31 2c 69 |invw%,Z_%,,,-1,i|
000282f0 77 5f 25 0d 8c 5f 05 e1 0d 8c 64 04 0d 8c 69 14 |w_%.._....d...i.|
00028300 dd f2 73 65 74 49 54 64 61 74 5f 28 5a 5f 25 29 |..setITdat_(Z_%)|
00028310 0d 8c 6e 11 ea 20 41 25 2c 42 25 2c 44 25 2c 5a |..n.. A%,B%,D%,Z|
00028320 25 0d 8c 73 6d 42 25 3d 69 74 70 5f 25 2a 69 74 |%..smB%=itp_%*it|
00028330 69 66 5f 25 3a e3 5a 25 3d 30 b8 69 74 69 6e 5f |if_%:.Z%=0.itin_|
00028340 25 2d 31 3a 42 25 2b 3d 31 3a 49 54 73 73 5f 24 |%-1:B%+=1:ITss_$|
00028350 28 5a 25 29 3d 49 54 73 5f 24 28 42 25 29 3a e7 |(Z%)=ITs_$(B%):.|
00028360 49 54 73 73 5f 24 28 5a 25 29 3d 49 54 73 5f 24 |ITss_$(Z%)=ITs_$|
00028370 28 42 25 2b 5a 5f 25 2a 69 74 69 66 5f 25 29 8c |(B%+Z_%*itif_%).|
00028380 49 54 73 73 5f 24 28 5a 25 29 3d 22 7c 22 0d 8c |ITss_$(Z%)="|"..|
00028390 78 05 ed 0d 8c 7d 5f e3 5a 25 3d 30 b8 69 74 69 |x....}_.Z%=0.iti|
000283a0 70 5f 25 2d 31 3a 49 54 73 73 73 5f 24 28 5a 25 |p_%-1:ITsss_$(Z%|
000283b0 29 3d 49 54 74 5f 24 28 5a 25 2b 69 74 70 5f 25 |)=ITt_$(Z%+itp_%|
000283c0 29 3a e7 49 54 73 73 73 5f 24 28 5a 25 29 3d 49 |):.ITsss_$(Z%)=I|
000283d0 54 74 5f 24 28 5a 25 2b 69 74 70 5f 25 2b 5a 5f |Tt_$(Z%+itp_%+Z_|
000283e0 25 29 8c 49 54 73 73 73 5f 24 28 5a 25 29 3d 22 |%).ITsss_$(Z%)="|
000283f0 7c 22 0d 8c 82 2f f2 67 65 74 69 63 6f 6e 5f 28 ||".../.geticon_(|
00028400 69 6e 76 77 25 2c 5a 25 2b 36 36 29 3a e7 28 62 |invw%,Z%+66):.(b|
00028410 6c 6f 63 6b 5f 25 21 32 34 3e 3e 32 31 29 83 32 |lock_%!24>>21).2|
00028420 8c 0d 8c 87 38 e7 49 54 66 5f 25 28 5a 25 2b 69 |....8.ITf_%(Z%+i|
00028430 74 70 5f 25 29 3d 30 3a f2 73 65 74 69 63 6f 6e |tp_%)=0:.seticon|
00028440 5f 28 69 6e 76 77 25 2c 5a 25 2b 36 36 2c 30 2c |_(invw%,Z%+66,0,|
00028450 66 6c 61 67 32 31 5f 25 29 0d 8c 8c 05 cc 0d 8c |flag21_%).......|
00028460 91 3d e7 49 54 66 5f 25 28 5a 25 2b 69 74 70 5f |.=.ITf_%(Z%+itp_|
00028470 25 29 3a f2 73 65 74 69 63 6f 6e 5f 28 69 6e 76 |%):.seticon_(inv|
00028480 77 25 2c 5a 25 2b 36 36 2c 66 6c 61 67 32 31 5f |w%,Z%+66,flag21_|
00028490 25 2c 66 6c 61 67 32 31 5f 25 29 0d 8c 96 05 cd |%,flag21_%).....|
000284a0 0d 8c 9b 05 ed 0d 8c a0 2d e7 a4 67 49 64 28 69 |........-..gId(i|
000284b0 6e 76 77 25 2c 36 32 29 3d 49 54 73 73 73 5f 24 |nvw%,62)=ITsss_$|
000284c0 28 38 29 8c 49 54 73 73 73 5f 24 28 38 29 3d 22 |(8).ITsss_$(8)="|
000284d0 7c 22 0d 8c a5 2d e7 a4 67 49 64 28 69 6e 76 77 ||"...-..gId(invw|
000284e0 25 2c 36 33 29 3d 49 54 73 73 73 5f 24 28 39 29 |%,63)=ITsss_$(9)|
000284f0 8c 49 54 73 73 73 5f 24 28 39 29 3d 22 7c 22 0d |.ITsss_$(9)="|".|
00028500 8c aa 2f e7 a4 67 49 64 28 69 6e 76 77 25 2c 36 |../..gId(invw%,6|
00028510 34 29 3d 49 54 73 73 73 5f 24 28 31 30 29 8c 49 |4)=ITsss_$(10).I|
00028520 54 73 73 73 5f 24 28 31 30 29 3d 22 7c 22 0d 8c |Tsss_$(10)="|"..|
00028530 af 2f e7 a4 67 49 64 28 69 6e 76 77 25 2c 36 35 |./..gId(invw%,65|
00028540 29 3d 49 54 73 73 73 5f 24 28 31 31 29 8c 49 54 |)=ITsss_$(11).IT|
00028550 73 73 73 5f 24 28 31 31 29 3d 22 7c 22 0d 8c b4 |sss_$(11)="|"...|
00028560 34 f2 70 50 44 28 69 6e 76 57 25 2c 49 54 73 73 |4.pPD(invW%,ITss|
00028570 73 5f 24 28 29 2c 30 29 3a f2 70 46 44 28 69 6e |s_$(),0):.pFD(in|
00028580 76 57 25 2c 49 54 73 73 5f 24 28 29 2c 30 29 3a |vW%,ITss_$(),0):|
00028590 e1 0d 8c b9 04 0d 8c be 15 dd f2 73 65 74 53 49 |...........setSI|
000285a0 54 64 61 74 5f 28 5a 5f 25 29 0d 8c c3 0e ea 20 |Tdat_(Z_%)..... |
000285b0 41 25 2c 42 25 2c 5a 25 0d 8c c8 7e 42 25 3d 73 |A%,B%,Z%...~B%=s|
000285c0 69 74 70 5f 25 2a 73 69 74 69 66 5f 25 3a e3 5a |itp_%*sitif_%:.Z|
000285d0 25 3d 30 b8 73 69 74 69 6e 5f 25 2d 31 3a 42 25 |%=0.sitin_%-1:B%|
000285e0 2b 3d 31 3a 53 49 54 65 70 5f 24 28 5a 25 29 3d |+=1:SITep_$(Z%)=|
000285f0 53 49 54 65 5f 24 28 42 25 29 3a e7 53 49 54 65 |SITe_$(B%):.SITe|
00028600 70 5f 24 28 5a 25 29 3d 53 49 54 65 5f 24 28 42 |p_$(Z%)=SITe_$(B|
00028610 25 2b 5a 5f 25 2a 73 69 74 69 66 5f 25 29 3a e7 |%+Z_%*sitif_%):.|
00028620 5a 5f 25 3c 3e 30 8c 53 49 54 65 70 5f 24 28 5a |Z_%<>0.SITep_$(Z|
00028630 25 29 3d 22 7c 22 0d 8c cd 05 ed 0d 8c d2 2b e3 |%)="|"........+.|
00028640 5a 25 3d 30 b8 34 3a 53 49 54 61 70 5f 24 28 5a |Z%=0.4:SITap_$(Z|
00028650 25 2b 31 29 3d 53 49 54 61 5f 24 28 5a 25 2b 73 |%+1)=SITa_$(Z%+s|
00028660 69 74 70 5f 25 29 0d 8c d7 42 e7 53 49 54 61 70 |itp_%)...B.SITap|
00028670 5f 24 28 5a 25 2b 31 29 3d 53 49 54 61 5f 24 28 |_$(Z%+1)=SITa_$(|
00028680 5a 25 2b 73 69 74 70 5f 25 2b 5a 5f 25 29 3a e7 |Z%+sitp_%+Z_%):.|
00028690 5a 5f 25 3c 3e 30 8c 53 49 54 61 70 5f 24 28 5a |Z_%<>0.SITap_$(Z|
000286a0 25 2b 31 29 3d 22 7c 22 0d 8c dc 05 ed 0d 8c e1 |%+1)="|"........|
000286b0 2d e3 5a 25 3d 35 b8 39 3a 53 49 54 61 70 5f 24 |-.Z%=5.9:SITap_$|
000286c0 28 5a 25 2b 31 29 3d 53 49 54 68 5f 24 28 5a 25 |(Z%+1)=SITh_$(Z%|
000286d0 2d 35 2b 73 69 74 70 5f 25 29 0d 8c e6 44 e7 53 |-5+sitp_%)...D.S|
000286e0 49 54 61 70 5f 24 28 5a 25 2b 31 29 3d 53 49 54 |ITap_$(Z%+1)=SIT|
000286f0 68 5f 24 28 5a 25 2d 35 2b 73 69 74 70 5f 25 2b |h_$(Z%-5+sitp_%+|
00028700 5a 5f 25 29 3a e7 5a 5f 25 3c 3e 30 8c 53 49 54 |Z_%):.Z_%<>0.SIT|
00028710 61 70 5f 24 28 5a 25 2b 31 29 3d 22 7c 22 0d 8c |ap_$(Z%+1)="|"..|
00028720 eb 05 ed 0d 8c f0 30 e3 5a 25 3d 31 30 b8 31 34 |......0.Z%=10.14|
00028730 3a 53 49 54 61 70 5f 24 28 5a 25 2b 31 29 3d 53 |:SITap_$(Z%+1)=S|
00028740 49 54 73 5f 24 28 5a 25 2d 31 30 2b 73 69 74 70 |ITs_$(Z%-10+sitp|
00028750 5f 25 29 0d 8c f5 45 e7 53 49 54 61 70 5f 24 28 |_%)...E.SITap_$(|
00028760 5a 25 2b 31 29 3d 53 49 54 73 5f 24 28 5a 25 2d |Z%+1)=SITs_$(Z%-|
00028770 31 30 2b 73 69 74 70 5f 25 2b 5a 5f 25 29 3a e7 |10+sitp_%+Z_%):.|
00028780 5a 5f 25 3c 3e 30 8c 53 49 54 61 70 5f 24 28 5a |Z_%<>0.SITap_$(Z|
00028790 25 2b 31 29 3d 22 7c 22 0d 8c fa 05 ed 0d 8c ff |%+1)="|"........|
000287a0 1d f2 70 50 44 28 73 61 6c 65 64 57 25 2c 53 49 |..pPD(saledW%,SI|
000287b0 54 61 70 5f 24 28 29 2c 30 29 0d 8d 04 1d f2 70 |Tap_$(),0).....p|
000287c0 46 44 28 73 61 6c 65 64 57 25 2c 53 49 54 65 70 |FD(saledW%,SITep|
000287d0 5f 24 28 29 2c 30 29 0d 8d 09 0b e7 5a 5f 25 3d |_$(),0).....Z_%=|
000287e0 30 8c 0d 8d 0e 08 41 25 3d 31 0d 8d 13 1d e7 a4 |0.....A%=1......|
000287f0 67 49 64 28 73 61 6c 65 64 25 2c 34 35 29 3d 22 |gId(saled%,45)="|
00028800 22 8c 41 25 3d 34 35 0d 8d 18 1d e7 a4 67 49 64 |".A%=45......gId|
00028810 28 73 61 6c 65 64 25 2c 33 34 29 3d 22 22 8c 41 |(saled%,34)="".A|
00028820 25 3d 33 34 0d 8d 1d 1d e7 a4 67 49 64 28 73 61 |%=34......gId(sa|
00028830 6c 65 64 25 2c 32 33 29 3d 22 22 8c 41 25 3d 32 |led%,23)="".A%=2|
00028840 33 0d 8d 22 1d e7 a4 67 49 64 28 73 61 6c 65 64 |3.."...gId(saled|
00028850 25 2c 31 32 29 3d 22 22 8c 41 25 3d 31 32 0d 8d |%,12)="".A%=12..|
00028860 27 1b e7 a4 67 49 64 28 73 61 6c 65 64 25 2c 31 |'...gId(saled%,1|
00028870 29 3d 22 22 8c 41 25 3d 31 0d 8d 2c 16 f2 73 65 |)="".A%=1..,..se|
00028880 74 43 31 5f 28 73 61 6c 65 64 25 2c 41 25 29 0d |tC1_(saled%,A%).|
00028890 8d 31 05 cd 0d 8d 36 05 e1 0d 8d 3b 15 dd f2 73 |.1....6....;...s|
000288a0 65 74 54 49 54 64 61 74 5f 28 5a 5f 25 29 0d 8d |etTITdat_(Z_%)..|
000288b0 40 0e ea 20 41 25 2c 42 25 2c 5a 25 0d 8d 45 7e |@.. A%,B%,Z%..E~|
000288c0 42 25 3d 74 69 74 70 5f 25 2a 73 69 74 69 66 5f |B%=titp_%*sitif_|
000288d0 25 3a e3 5a 25 3d 30 b8 73 69 74 69 6e 5f 25 2d |%:.Z%=0.sitin_%-|
000288e0 31 3a 42 25 2b 3d 31 3a 54 49 54 65 70 5f 24 28 |1:B%+=1:TITep_$(|
000288f0 5a 25 29 3d 54 49 54 65 5f 24 28 42 25 29 3a e7 |Z%)=TITe_$(B%):.|
00028900 54 49 54 65 70 5f 24 28 5a 25 29 3d 54 49 54 65 |TITep_$(Z%)=TITe|
00028910 5f 24 28 42 25 2b 5a 5f 25 2a 73 69 74 69 66 5f |_$(B%+Z_%*sitif_|
00028920 25 29 3a e7 5a 5f 25 3c 3e 30 8c 54 49 54 65 70 |%):.Z_%<>0.TITep|
00028930 5f 24 28 5a 25 29 3d 22 7c 22 0d 8d 4a 05 ed 0d |_$(Z%)="|"..J...|
00028940 8d 4f 2b e3 5a 25 3d 30 b8 34 3a 54 49 54 61 70 |.O+.Z%=0.4:TITap|
00028950 5f 24 28 5a 25 2b 31 29 3d 54 49 54 61 5f 24 28 |_$(Z%+1)=TITa_$(|
00028960 5a 25 2b 74 69 74 70 5f 25 29 0d 8d 54 42 e7 54 |Z%+titp_%)..TB.T|
00028970 49 54 61 70 5f 24 28 5a 25 2b 31 29 3d 54 49 54 |ITap_$(Z%+1)=TIT|
00028980 61 5f 24 28 5a 25 2b 74 69 74 70 5f 25 2b 5a 5f |a_$(Z%+titp_%+Z_|
00028990 25 29 3a e7 5a 5f 25 3c 3e 30 8c 54 49 54 61 70 |%):.Z_%<>0.TITap|
000289a0 5f 24 28 5a 25 2b 31 29 3d 22 7c 22 0d 8d 59 58 |_$(Z%+1)="|"..YX|
000289b0 f2 73 49 63 6f 6e 5f 28 73 74 61 6e 64 25 2c 5a |.sIcon_(stand%,Z|
000289c0 25 2a 32 2b 38 31 2c 54 49 54 65 5f 25 28 5a 25 |%*2+81,TITe_%(Z%|
000289d0 2b 74 69 74 70 5f 25 29 29 3a f2 73 49 63 6f 6e |+titp_%)):.sIcon|
000289e0 5f 28 73 74 61 6e 64 25 2c 5a 25 2a 32 2b 38 32 |_(stand%,Z%*2+82|
000289f0 2c 2d 54 49 54 65 5f 25 28 5a 25 2b 74 69 74 70 |,-TITe_%(Z%+titp|
00028a00 5f 25 29 29 0d 8d 5e 05 ed 0d 8d 63 2d e3 5a 25 |_%))..^....c-.Z%|
00028a10 3d 35 b8 39 3a 54 49 54 61 70 5f 24 28 5a 25 2b |=5.9:TITap_$(Z%+|
00028a20 31 29 3d 54 49 54 68 5f 24 28 5a 25 2d 35 2b 74 |1)=TITh_$(Z%-5+t|
00028a30 69 74 70 5f 25 29 0d 8d 68 44 e7 54 49 54 61 70 |itp_%)..hD.TITap|
00028a40 5f 24 28 5a 25 2b 31 29 3d 54 49 54 68 5f 24 28 |_$(Z%+1)=TITh_$(|
00028a50 5a 25 2d 35 2b 74 69 74 70 5f 25 2b 5a 5f 25 29 |Z%-5+titp_%+Z_%)|
00028a60 3a e7 5a 5f 25 3c 3e 30 8c 54 49 54 61 70 5f 24 |:.Z_%<>0.TITap_$|
00028a70 28 5a 25 2b 31 29 3d 22 7c 22 0d 8d 6d 05 ed 0d |(Z%+1)="|"..m...|
00028a80 8d 72 30 e3 5a 25 3d 31 30 b8 31 34 3a 54 49 54 |.r0.Z%=10.14:TIT|
00028a90 61 70 5f 24 28 5a 25 2b 31 29 3d 54 49 54 73 5f |ap_$(Z%+1)=TITs_|
00028aa0 24 28 5a 25 2d 31 30 2b 74 69 74 70 5f 25 29 0d |$(Z%-10+titp_%).|
00028ab0 8d 77 45 e7 54 49 54 61 70 5f 24 28 5a 25 2b 31 |.wE.TITap_$(Z%+1|
00028ac0 29 3d 54 49 54 73 5f 24 28 5a 25 2d 31 30 2b 74 |)=TITs_$(Z%-10+t|
00028ad0 69 74 70 5f 25 2b 5a 5f 25 29 3a e7 5a 5f 25 3c |itp_%+Z_%):.Z_%<|
00028ae0 3e 30 8c 54 49 54 61 70 5f 24 28 5a 25 2b 31 29 |>0.TITap_$(Z%+1)|
00028af0 3d 22 7c 22 0d 8d 7c 05 ed 0d 8d 81 1d f2 70 50 |="|"..|.......pP|
00028b00 44 28 73 74 61 6e 64 57 25 2c 54 49 54 61 70 5f |D(standW%,TITap_|
00028b10 24 28 29 2c 30 29 0d 8d 86 1d f2 70 46 44 28 73 |$(),0).....pFD(s|
00028b20 74 61 6e 64 57 25 2c 54 49 54 65 70 5f 24 28 29 |tandW%,TITep_$()|
00028b30 2c 30 29 0d 8d 8b 0b e7 5a 5f 25 3d 30 8c 0d 8d |,0).....Z_%=0...|
00028b40 90 08 41 25 3d 31 0d 8d 95 1d e7 a4 67 49 64 28 |..A%=1......gId(|
00028b50 73 74 61 6e 64 25 2c 34 35 29 3d 22 22 8c 41 25 |stand%,45)="".A%|
00028b60 3d 34 35 0d 8d 9a 1d e7 a4 67 49 64 28 73 74 61 |=45......gId(sta|
00028b70 6e 64 25 2c 33 34 29 3d 22 22 8c 41 25 3d 33 34 |nd%,34)="".A%=34|
00028b80 0d 8d 9f 1d e7 a4 67 49 64 28 73 74 61 6e 64 25 |......gId(stand%|
00028b90 2c 32 33 29 3d 22 22 8c 41 25 3d 32 33 0d 8d a4 |,23)="".A%=23...|
00028ba0 1d e7 a4 67 49 64 28 73 74 61 6e 64 25 2c 31 32 |...gId(stand%,12|
00028bb0 29 3d 22 22 8c 41 25 3d 31 32 0d 8d a9 1b e7 a4 |)="".A%=12......|
00028bc0 67 49 64 28 73 74 61 6e 64 25 2c 31 29 3d 22 22 |gId(stand%,1)=""|
00028bd0 8c 41 25 3d 31 0d 8d ae 16 f2 73 65 74 43 31 5f |.A%=1.....setC1_|
00028be0 28 73 74 61 6e 64 25 2c 41 25 29 0d 8d b3 05 cd |(stand%,A%).....|
00028bf0 0d 8d b8 05 e1 0d 8d bd 04 0d 8d c2 15 dd f2 73 |...............s|
00028c00 65 74 50 49 54 64 61 74 5f 28 5a 5f 25 29 0d 8d |etPITdat_(Z_%)..|
00028c10 c7 0e ea 20 41 25 2c 42 25 2c 5a 25 0d 8d cc 7e |... A%,B%,Z%...~|
00028c20 42 25 3d 70 69 74 70 5f 25 2a 73 69 74 69 66 5f |B%=pitp_%*sitif_|
00028c30 25 3a e3 5a 25 3d 30 b8 73 69 74 69 6e 5f 25 2d |%:.Z%=0.sitin_%-|
00028c40 31 3a 42 25 2b 3d 31 3a 50 49 54 65 70 5f 24 28 |1:B%+=1:PITep_$(|
00028c50 5a 25 29 3d 50 49 54 65 5f 24 28 42 25 29 3a e7 |Z%)=PITe_$(B%):.|
00028c60 50 49 54 65 70 5f 24 28 5a 25 29 3d 50 49 54 65 |PITep_$(Z%)=PITe|
00028c70 5f 24 28 42 25 2b 5a 5f 25 2a 73 69 74 69 66 5f |_$(B%+Z_%*sitif_|
00028c80 25 29 3a e7 5a 5f 25 3c 3e 30 8c 50 49 54 65 70 |%):.Z_%<>0.PITep|
00028c90 5f 24 28 5a 25 29 3d 22 7c 22 0d 8d d1 05 ed 0d |_$(Z%)="|"......|
00028ca0 8d d6 2b e3 5a 25 3d 30 b8 34 3a 50 49 54 61 70 |..+.Z%=0.4:PITap|
00028cb0 5f 24 28 5a 25 2b 31 29 3d 50 49 54 61 5f 24 28 |_$(Z%+1)=PITa_$(|
00028cc0 5a 25 2b 70 69 74 70 5f 25 29 0d 8d db 42 e7 50 |Z%+pitp_%)...B.P|
00028cd0 49 54 61 70 5f 24 28 5a 25 2b 31 29 3d 50 49 54 |ITap_$(Z%+1)=PIT|
00028ce0 61 5f 24 28 5a 25 2b 70 69 74 70 5f 25 2b 5a 5f |a_$(Z%+pitp_%+Z_|
00028cf0 25 29 3a e7 5a 5f 25 3c 3e 30 8c 50 49 54 61 70 |%):.Z_%<>0.PITap|
00028d00 5f 24 28 5a 25 2b 31 29 3d 22 7c 22 0d 8d e0 05 |_$(Z%+1)="|"....|
00028d10 ed 0d 8d e5 2d e3 5a 25 3d 35 b8 39 3a 50 49 54 |....-.Z%=5.9:PIT|
00028d20 61 70 5f 24 28 5a 25 2b 31 29 3d 50 49 54 68 5f |ap_$(Z%+1)=PITh_|
00028d30 24 28 5a 25 2d 35 2b 70 69 74 70 5f 25 29 0d 8d |$(Z%-5+pitp_%)..|
00028d40 ea 44 e7 50 49 54 61 70 5f 24 28 5a 25 2b 31 29 |.D.PITap_$(Z%+1)|
00028d50 3d 50 49 54 68 5f 24 28 5a 25 2d 35 2b 70 69 74 |=PITh_$(Z%-5+pit|
00028d60 70 5f 25 2b 5a 5f 25 29 3a e7 5a 5f 25 3c 3e 30 |p_%+Z_%):.Z_%<>0|
00028d70 8c 50 49 54 61 70 5f 24 28 5a 25 2b 31 29 3d 22 |.PITap_$(Z%+1)="|
00028d80 7c 22 0d 8d ef 05 ed 0d 8d f4 30 e3 5a 25 3d 31 ||"........0.Z%=1|
00028d90 30 b8 31 34 3a 50 49 54 61 70 5f 24 28 5a 25 2b |0.14:PITap_$(Z%+|
00028da0 31 29 3d 50 49 54 73 5f 24 28 5a 25 2d 31 30 2b |1)=PITs_$(Z%-10+|
00028db0 70 69 74 70 5f 25 29 0d 8d f9 45 e7 50 49 54 61 |pitp_%)...E.PITa|
00028dc0 70 5f 24 28 5a 25 2b 31 29 3d 50 49 54 73 5f 24 |p_$(Z%+1)=PITs_$|
00028dd0 28 5a 25 2d 31 30 2b 70 69 74 70 5f 25 2b 5a 5f |(Z%-10+pitp_%+Z_|
00028de0 25 29 3a e7 5a 5f 25 3c 3e 30 8c 50 49 54 61 70 |%):.Z_%<>0.PITap|
00028df0 5f 24 28 5a 25 2b 31 29 3d 22 7c 22 0d 8d fe 05 |_$(Z%+1)="|"....|
00028e00 ed 0d 8e 03 1d f2 70 50 44 28 70 61 6c 65 64 57 |......pPD(paledW|
00028e10 25 2c 50 49 54 61 70 5f 24 28 29 2c 30 29 0d 8e |%,PITap_$(),0)..|
00028e20 08 1d f2 70 46 44 28 70 61 6c 65 64 57 25 2c 50 |...pFD(paledW%,P|
00028e30 49 54 65 70 5f 24 28 29 2c 30 29 0d 8e 0d 0b e7 |ITep_$(),0).....|
00028e40 5a 5f 25 3d 30 8c 0d 8e 12 08 41 25 3d 31 0d 8e |Z_%=0.....A%=1..|
00028e50 17 1d e7 a4 67 49 64 28 70 61 6c 65 64 25 2c 34 |....gId(paled%,4|
00028e60 35 29 3d 22 22 8c 41 25 3d 34 35 0d 8e 1c 1d e7 |5)="".A%=45.....|
00028e70 a4 67 49 64 28 70 61 6c 65 64 25 2c 33 34 29 3d |.gId(paled%,34)=|
00028e80 22 22 8c 41 25 3d 33 34 0d 8e 21 1d e7 a4 67 49 |"".A%=34..!...gI|
00028e90 64 28 70 61 6c 65 64 25 2c 32 33 29 3d 22 22 8c |d(paled%,23)="".|
00028ea0 41 25 3d 32 33 0d 8e 26 1d e7 a4 67 49 64 28 70 |A%=23..&...gId(p|
00028eb0 61 6c 65 64 25 2c 31 32 29 3d 22 22 8c 41 25 3d |aled%,12)="".A%=|
00028ec0 31 32 0d 8e 2b 1b e7 a4 67 49 64 28 70 61 6c 65 |12..+...gId(pale|
00028ed0 64 25 2c 31 29 3d 22 22 8c 41 25 3d 31 0d 8e 30 |d%,1)="".A%=1..0|
00028ee0 16 f2 73 65 74 43 31 5f 28 70 61 6c 65 64 25 2c |..setC1_(paled%,|
00028ef0 41 25 29 0d 8e 35 05 cd 0d 8e 3a 05 e1 0d 8e 3f |A%)..5....:....?|
00028f00 04 0d 8e 44 15 dd f2 73 65 74 42 49 54 64 61 74 |...D...setBITdat|
00028f10 5f 28 5a 5f 25 29 0d 8e 49 0e ea 20 41 25 2c 42 |_(Z_%)..I.. A%,B|
00028f20 25 2c 5a 25 0d 8e 4e 7e 42 25 3d 62 69 74 70 5f |%,Z%..N~B%=bitp_|
00028f30 25 2a 62 69 74 69 66 5f 25 3a e3 5a 25 3d 30 b8 |%*bitif_%:.Z%=0.|
00028f40 62 69 74 69 6e 5f 25 2d 31 3a 42 25 2b 3d 31 3a |bitin_%-1:B%+=1:|
00028f50 42 49 54 65 70 5f 24 28 5a 25 29 3d 42 49 54 65 |BITep_$(Z%)=BITe|
00028f60 5f 24 28 42 25 29 3a e7 42 49 54 65 70 5f 24 28 |_$(B%):.BITep_$(|
00028f70 5a 25 29 3d 42 49 54 65 5f 24 28 42 25 2b 5a 5f |Z%)=BITe_$(B%+Z_|
00028f80 25 2a 62 69 74 69 66 5f 25 29 3a e7 5a 5f 25 3c |%*bitif_%):.Z_%<|
00028f90 3e 30 8c 42 49 54 65 70 5f 24 28 5a 25 29 3d 22 |>0.BITep_$(Z%)="|
00028fa0 7c 22 0d 8e 53 05 ed 0d 8e 58 29 e3 5a 25 3d 30 ||"..S....X).Z%=0|
00028fb0 b8 34 3a 42 49 54 61 70 5f 24 28 5a 25 29 3d 42 |.4:BITap_$(Z%)=B|
00028fc0 49 54 66 5f 24 28 5a 25 2b 62 69 74 70 5f 25 29 |ITf_$(Z%+bitp_%)|
00028fd0 0d 8e 5d 3e e7 42 49 54 61 70 5f 24 28 5a 25 29 |..]>.BITap_$(Z%)|
00028fe0 3d 42 49 54 66 5f 24 28 5a 25 2b 62 69 74 70 5f |=BITf_$(Z%+bitp_|
00028ff0 25 2b 5a 5f 25 29 3a e7 5a 5f 25 3c 3e 30 8c 42 |%+Z_%):.Z_%<>0.B|
00029000 49 54 61 70 5f 24 28 5a 25 29 3d 22 7c 22 0d 8e |ITap_$(Z%)="|"..|
00029010 62 05 ed 0d 8e 67 2b e3 5a 25 3d 35 b8 39 3a 42 |b....g+.Z%=5.9:B|
00029020 49 54 61 70 5f 24 28 5a 25 29 3d 42 49 54 74 5f |ITap_$(Z%)=BITt_|
00029030 24 28 5a 25 2d 35 2b 62 69 74 70 5f 25 29 0d 8e |$(Z%-5+bitp_%)..|
00029040 6c 40 e7 42 49 54 61 70 5f 24 28 5a 25 29 3d 42 |l@.BITap_$(Z%)=B|
00029050 49 54 74 5f 24 28 5a 25 2d 35 2b 62 69 74 70 5f |ITt_$(Z%-5+bitp_|
00029060 25 2b 5a 5f 25 29 3a e7 5a 5f 25 3c 3e 30 8c 42 |%+Z_%):.Z_%<>0.B|
00029070 49 54 61 70 5f 24 28 5a 25 29 3d 22 7c 22 0d 8e |ITap_$(Z%)="|"..|
00029080 71 05 ed 0d 8e 76 1c f2 70 50 44 28 62 61 6e 6b |q....v..pPD(bank|
00029090 57 25 2c 42 49 54 61 70 5f 24 28 29 2c 30 29 0d |W%,BITap_$(),0).|
000290a0 8e 7b 1c f2 70 46 44 28 62 61 6e 6b 57 25 2c 42 |.{..pFD(bankW%,B|
000290b0 49 54 65 70 5f 24 28 29 2c 30 29 0d 8e 80 0b e7 |ITep_$(),0).....|
000290c0 5a 5f 25 3d 30 8c 0d 8e 85 08 41 25 3d 31 0d 8e |Z_%=0.....A%=1..|
000290d0 8a 1d e7 a4 67 49 64 28 62 61 6e 6b 6c 25 2c 33 |....gId(bankl%,3|
000290e0 33 29 3d 22 22 8c 41 25 3d 33 33 0d 8e 8f 1d e7 |3)="".A%=33.....|
000290f0 a4 67 49 64 28 62 61 6e 6b 6c 25 2c 32 35 29 3d |.gId(bankl%,25)=|
00029100 22 22 8c 41 25 3d 32 35 0d 8e 94 1d e7 a4 67 49 |"".A%=25......gI|
00029110 64 28 62 61 6e 6b 6c 25 2c 31 37 29 3d 22 22 8c |d(bankl%,17)="".|
00029120 41 25 3d 31 37 0d 8e 99 1b e7 a4 67 49 64 28 62 |A%=17......gId(b|
00029130 61 6e 6b 6c 25 2c 39 29 3d 22 22 8c 41 25 3d 39 |ankl%,9)="".A%=9|
00029140 0d 8e 9e 1b e7 a4 67 49 64 28 62 61 6e 6b 6c 25 |......gId(bankl%|
00029150 2c 31 29 3d 22 22 8c 41 25 3d 31 0d 8e a3 16 f2 |,1)="".A%=1.....|
00029160 73 65 74 43 31 5f 28 62 61 6e 6b 6c 25 2c 41 25 |setC1_(bankl%,A%|
00029170 29 0d 8e a8 05 cd 0d 8e ad 05 e1 0d 8e b2 04 0d |)...............|
00029180 8e b7 10 dd f2 69 6e 69 74 49 54 64 61 74 5f 0d |.....initITdat_.|
00029190 8e bc 11 ea 20 41 25 2c 42 25 2c 44 25 2c 5a 25 |.... A%,B%,D%,Z%|
000291a0 0d 8e c1 63 42 25 3d 69 74 70 5f 25 2a 69 74 69 |...cB%=itp_%*iti|
000291b0 66 5f 25 3a e3 5a 25 3d 30 b8 69 74 69 6e 5f 25 |f_%:.Z%=0.itin_%|
000291c0 2d 31 3a 42 25 2b 3d 31 3a e7 49 54 73 73 5f 24 |-1:B%+=1:.ITss_$|
000291d0 28 5a 25 29 3d 49 54 73 5f 24 28 42 25 29 8c 49 |(Z%)=ITs_$(B%).I|
000291e0 54 73 73 5f 24 28 5a 25 29 3d 22 7c 22 20 8b 49 |Tss_$(Z%)="|" .I|
000291f0 54 73 73 5f 24 28 5a 25 29 3d 49 54 73 5f 24 28 |Tss_$(Z%)=ITs_$(|
00029200 42 25 29 0d 8e c6 05 ed 0d 8e cb 5c e3 5a 25 3d |B%)........\.Z%=|
00029210 30 b8 69 74 69 70 5f 25 2d 31 3a e7 49 54 73 73 |0.itip_%-1:.ITss|
00029220 73 5f 24 28 5a 25 29 3d 49 54 74 5f 24 28 5a 25 |s_$(Z%)=ITt_$(Z%|
00029230 2b 69 74 70 5f 25 29 8c 49 54 73 73 73 5f 24 28 |+itp_%).ITsss_$(|
00029240 5a 25 29 3d 22 7c 22 20 8b 49 54 73 73 73 5f 24 |Z%)="|" .ITsss_$|
00029250 28 5a 25 29 3d 49 54 74 5f 24 28 5a 25 2b 69 74 |(Z%)=ITt_$(Z%+it|
00029260 70 5f 25 29 0d 8e d0 2f f2 67 65 74 69 63 6f 6e |p_%).../.geticon|
00029270 5f 28 69 6e 76 77 25 2c 5a 25 2b 36 36 29 3a e7 |_(invw%,Z%+66):.|
00029280 28 62 6c 6f 63 6b 5f 25 21 32 34 3e 3e 32 31 29 |(block_%!24>>21)|
00029290 83 32 8c 0d 8e d5 38 e7 49 54 66 5f 25 28 5a 25 |.2....8.ITf_%(Z%|
000292a0 2b 69 74 70 5f 25 29 3d 30 3a f2 73 65 74 69 63 |+itp_%)=0:.setic|
000292b0 6f 6e 5f 28 69 6e 76 77 25 2c 5a 25 2b 36 36 2c |on_(invw%,Z%+66,|
000292c0 30 2c 66 6c 61 67 32 31 5f 25 29 0d 8e da 05 cc |0,flag21_%).....|
000292d0 0d 8e df 3d e7 49 54 66 5f 25 28 5a 25 2b 69 74 |...=.ITf_%(Z%+it|
000292e0 70 5f 25 29 3a f2 73 65 74 69 63 6f 6e 5f 28 69 |p_%):.seticon_(i|
000292f0 6e 76 77 25 2c 5a 25 2b 36 36 2c 66 6c 61 67 32 |nvw%,Z%+66,flag2|
00029300 31 5f 25 2c 66 6c 61 67 32 31 5f 25 29 0d 8e e4 |1_%,flag21_%)...|
00029310 05 cd 0d 8e e9 05 ed 0d 8e ee 2d e7 a4 67 49 64 |..........-..gId|
00029320 28 69 6e 76 77 25 2c 36 32 29 3d 49 54 73 73 73 |(invw%,62)=ITsss|
00029330 5f 24 28 38 29 8c 49 54 73 73 73 5f 24 28 38 29 |_$(8).ITsss_$(8)|
00029340 3d 22 7c 22 0d 8e f3 2d e7 a4 67 49 64 28 69 6e |="|"...-..gId(in|
00029350 76 77 25 2c 36 33 29 3d 49 54 73 73 73 5f 24 28 |vw%,63)=ITsss_$(|
00029360 39 29 8c 49 54 73 73 73 5f 24 28 39 29 3d 22 7c |9).ITsss_$(9)="||
00029370 22 0d 8e f8 2f e7 a4 67 49 64 28 69 6e 76 77 25 |".../..gId(invw%|
00029380 2c 36 34 29 3d 49 54 73 73 73 5f 24 28 31 30 29 |,64)=ITsss_$(10)|
00029390 8c 49 54 73 73 73 5f 24 28 31 30 29 3d 22 7c 22 |.ITsss_$(10)="|"|
000293a0 0d 8e fd 2f e7 a4 67 49 64 28 69 6e 76 77 25 2c |.../..gId(invw%,|
000293b0 36 35 29 3d 49 54 73 73 73 5f 24 28 31 31 29 8c |65)=ITsss_$(11).|
000293c0 49 54 73 73 73 5f 24 28 31 31 29 3d 22 7c 22 0d |ITsss_$(11)="|".|
000293d0 8f 02 34 f2 70 50 44 28 69 6e 76 57 25 2c 49 54 |..4.pPD(invW%,IT|
000293e0 73 73 73 5f 24 28 29 2c 30 29 3a f2 70 46 44 28 |sss_$(),0):.pFD(|
000293f0 69 6e 76 57 25 2c 49 54 73 73 5f 24 28 29 2c 30 |invW%,ITss_$(),0|
00029400 29 3a e1 0d 8f 07 04 0d 8f 0c 47 dd a4 75 70 64 |):........G..upd|
00029410 61 74 65 49 6e 76 57 5f 3a ea 20 5a 25 3a 24 21 |ateInvW_:. Z%:$!|
00029420 49 54 64 61 31 5f 25 3d a4 63 68 64 61 74 65 5f |ITda1_%=.chdate_|
00029430 28 24 21 49 54 64 61 31 5f 25 29 3a f2 72 49 28 |($!ITda1_%):.rI(|
00029440 69 6e 76 57 25 2c 22 49 54 64 61 31 22 29 0d 8f |invW%,"ITda1")..|
00029450 11 89 e7 73 75 70 70 6c 79 31 5f 25 3c 3e 30 3a |...supply1_%<>0:|
00029460 43 53 75 53 75 70 70 52 65 5f 24 28 73 75 70 70 |CSuSuppRe_$(supp|
00029470 6c 79 31 5f 25 29 3d 24 21 49 54 6f 72 64 5f 25 |ly1_%)=$!ITord_%|
00029480 3a e7 43 53 75 57 25 3e 30 3a e7 43 53 5f 25 3d |:.CSuW%>0:.CS_%=|
00029490 73 75 70 70 6c 79 31 5f 25 3a 24 21 43 53 75 53 |supply1_%:$!CSuS|
000294a0 75 70 70 52 65 66 5f 25 3d 43 53 75 53 75 70 70 |uppRef_%=CSuSupp|
000294b0 52 65 5f 24 28 73 75 70 70 6c 79 31 5f 25 29 3a |Re_$(supply1_%):|
000294c0 f2 72 49 28 43 53 75 57 25 2c 22 43 53 75 53 75 |.rI(CSuW%,"CSuSu|
000294d0 70 70 52 65 66 22 29 0d 8f 16 ad 49 54 64 61 5f |ppRef")....ITda_|
000294e0 24 3d a4 63 68 64 61 74 65 5f 28 24 21 49 54 64 |$=.chdate_($!ITd|
000294f0 61 5f 25 29 3a 24 21 49 54 64 61 5f 25 3d 49 54 |a_%):$!ITda_%=IT|
00029500 64 61 5f 24 3a f2 72 49 28 69 6e 76 57 25 2c 22 |da_$:.rI(invW%,"|
00029510 49 54 64 61 22 29 3a 49 54 61 63 63 5f 24 3d 24 |ITda"):ITacc_$=$|
00029520 21 49 54 61 63 63 31 5f 25 3a 49 54 68 65 61 64 |!ITacc1_%:IThead|
00029530 5f 24 3d 24 21 49 54 68 65 61 64 31 5f 25 3a 49 |_$=$!IThead1_%:I|
00029540 54 63 6f 6d 6d 5f 24 3d 24 21 49 54 63 6f 6d 6d |Tcomm_$=$!ITcomm|
00029550 31 5f 25 3a f2 67 65 74 49 54 64 61 74 5f 28 30 |1_%:.getITdat_(0|
00029560 29 3a f2 67 65 74 49 54 64 61 74 74 6f 74 5f 3a |):.getITdattot_:|
00029570 49 54 6c 6c 5f 25 3d bb 28 24 21 49 54 6c 5f 25 |ITll_%=.($!ITl_%|
00029580 29 3a 3d b9 0d 8f 1b 18 dd a4 49 54 6c 5f 3a 3d |):=.......ITl_:=|
00029590 a4 75 70 64 61 74 65 49 6e 76 57 5f 0d 8f 20 40 |.updateInvW_.. @|
000295a0 dd a4 49 54 64 61 31 5f 3a 24 21 49 54 64 61 31 |..ITda1_:$!ITda1|
000295b0 5f 25 3d a4 63 68 64 61 74 65 5f 28 24 21 49 54 |_%=.chdate_($!IT|
000295c0 64 61 31 5f 25 29 3a f2 72 49 28 69 6e 76 57 25 |da1_%):.rI(invW%|
000295d0 2c 22 49 54 64 61 31 22 29 3a 3d b9 0d 8f 25 04 |,"ITda1"):=...%.|
000295e0 0d 8f 2a 3d dd a4 75 70 64 61 74 65 73 61 6c 65 |..*=..updatesale|
000295f0 64 5f 3a e7 49 73 61 6c 5f 25 3d 30 8c f2 73 65 |d_:.Isal_%=0..se|
00029600 74 53 49 54 64 61 74 5f 28 30 29 3a 49 73 61 6c |tSITdat_(0):Isal|
00029610 5f 25 3d 31 3a c8 99 26 34 30 36 43 31 0d 8f 2f |_%=1:..&406C1../|
00029620 12 f2 67 65 74 53 49 54 64 61 74 5f 3a 3d b9 0d |..getSITdat_:=..|
00029630 8f 34 3d dd a4 75 70 64 61 74 65 73 74 61 6e 64 |.4=..updatestand|
00029640 5f 3a e7 49 53 61 6c 5f 25 3d 30 8c f2 73 65 74 |_:.ISal_%=0..set|
00029650 54 49 54 64 61 74 5f 28 30 29 3a 49 53 61 6c 5f |TITdat_(0):ISal_|
00029660 25 3d 31 3a c8 99 26 34 30 36 43 31 0d 8f 39 12 |%=1:..&406C1..9.|
00029670 f2 67 65 74 54 49 54 64 61 74 5f 3a 3d b9 0d 8f |.getTITdat_:=...|
00029680 3e 3d dd a4 75 70 64 61 74 65 70 61 6c 65 64 5f |>=..updatepaled_|
00029690 3a e7 49 70 61 6c 5f 25 3d 30 8c f2 73 65 74 50 |:.Ipal_%=0..setP|
000296a0 49 54 64 61 74 5f 28 30 29 3a 49 70 61 6c 5f 25 |ITdat_(0):Ipal_%|
000296b0 3d 31 3a c8 99 26 34 30 36 43 31 0d 8f 43 12 f2 |=1:..&406C1..C..|
000296c0 67 65 74 50 49 54 64 61 74 5f 3a 3d b9 0d 8f 48 |getPITdat_:=...H|
000296d0 3d dd a4 75 70 64 61 74 65 62 61 6e 6b 6c 5f 3a |=..updatebankl_:|
000296e0 e7 49 62 61 6c 5f 25 3d 30 8c f2 73 65 74 42 49 |.Ibal_%=0..setBI|
000296f0 54 64 61 74 5f 28 30 29 3a 49 62 61 6c 5f 25 3d |Tdat_(0):Ibal_%=|
00029700 31 3a c8 99 26 34 30 36 43 31 0d 8f 4d 12 f2 67 |1:..&406C1..M..g|
00029710 65 74 42 49 54 64 61 74 5f 3a 3d b9 0d 8f 52 51 |etBITdat_:=...RQ|
00029720 dd a4 73 70 5f 28 61 5f 25 2c 62 5f 25 29 3a c8 |..sp_(a_%,b_%):.|
00029730 99 26 34 30 30 44 33 2c 2c 62 6c 6f 63 6b 5f 25 |.&400D3,,block_%|
00029740 3a e7 62 6c 6f 63 6b 5f 25 21 30 3d 61 5f 25 3a |:.block_%!0=a_%:|
00029750 e7 62 6c 6f 63 6b 5f 25 21 34 3e 30 8c 3d 62 6c |.block_%!4>0.=bl|
00029760 6f 63 6b 5f 25 21 34 20 8b 3d 62 5f 25 0d 8f 57 |ock_%!4 .=b_%..W|
00029770 16 dd a4 73 61 76 65 63 75 73 74 5f 28 48 25 2c |...savecust_(H%,|
00029780 41 24 29 0d 8f 5c 2e ea 20 41 25 2c 42 25 2c 43 |A$)..\.. A%,B%,C|
00029790 25 2c 44 25 2c 45 25 2c 46 25 2c 47 25 2c 49 25 |%,D%,E%,F%,G%,I%|
000297a0 2c 5a 25 2c 41 5f 24 2c 53 53 5f 24 2c 4e 4e 5f |,Z%,A_$,SS_$,NN_|
000297b0 24 0d 8f 61 07 ea 20 85 0d 8f 66 29 ee 20 85 20 |$..a.. ...f). . |
000297c0 ea 3a f7 20 85 3a c8 99 26 34 30 36 43 31 3a f2 |.:. .:..&406C1:.|
000297d0 70 65 31 5f 28 a4 65 72 72 5f 2c 46 25 29 3a 3d |pe1_(.err_,F%):=|
000297e0 a3 0d 8f 6b 21 f2 67 65 74 69 6e 76 66 6c 61 67 |...k!.getinvflag|
000297f0 73 5f 3a 5a 25 3d a4 75 70 64 61 74 65 49 6e 76 |s_:Z%=.updateInv|
00029800 57 5f 0d 8f 70 28 46 25 3d ad 28 69 6e 76 5f 24 |W_..p(F%=.(inv_$|
00029810 29 3a e7 46 25 3c 3e 30 3a e7 a2 23 46 25 3d 30 |):.F%<>0:..#F%=0|
00029820 8c d9 23 46 25 3a 46 25 3d 30 0d 8f 75 30 e7 46 |..#F%:F%=0..u0.F|
00029830 25 3d 30 8c 46 25 3d ae 28 69 6e 76 5f 24 29 3a |%=0.F%=.(inv_$):|
00029840 f2 73 61 76 65 6e 65 77 63 75 73 74 5f 28 46 25 |.savenewcust_(F%|
00029850 2c 48 25 2c 41 24 29 3a 3d b9 0d 8f 7a 0c c8 99 |,H%,A$):=...z...|
00029860 26 34 30 36 43 30 0d 8f 7f 05 f5 0d 8f 84 2e 42 |&406C0.........B|
00029870 25 3d 8f 23 46 25 3a e8 23 46 25 2c 4e 4e 5f 24 |%=.#F%:.#F%,NN_$|
00029880 2c 47 25 2c 41 5f 24 2c 41 25 2c 49 25 2c 41 5f |,G%,A_$,A%,I%,A_|
00029890 24 2c 41 5f 24 2c 41 5f 24 0d 8f 89 15 e3 5a 25 |$,A_$,A_$.....Z%|
000298a0 3d 30 b8 36 3a e8 23 46 25 2c 41 25 3a ed 0d 8f |=0.6:.#F%,A%:...|
000298b0 8e 1e e3 5a 25 3d 31 b8 49 25 2a 69 74 69 66 5f |...Z%=1.I%*itif_|
000298c0 25 3a e8 23 46 25 2c 41 5f 24 3a ed 0d 8f 93 32 |%:.#F%,A_$:....2|
000298d0 e3 5a 25 3d 30 b8 49 25 3a e8 23 46 25 2c 41 5f |.Z%=0.I%:.#F%,A_|
000298e0 24 2c 41 25 2c 41 25 2c 41 25 2c 41 25 2c 41 5f |$,A%,A%,A%,A%,A_|
000298f0 24 2c 41 25 3a ed 3a 43 25 3d 8f 23 46 25 0d 8f |$,A%:.:C%=.#F%..|
00029900 98 28 fd 47 25 3d 49 54 73 75 70 6e 75 6d 5f 25 |.(.G%=ITsupnum_%|
00029910 80 4e 4e 5f 24 3d 49 54 6e 75 5f 24 84 8f 23 46 |.NN_$=ITnu_$..#F|
00029920 25 3d a2 23 46 25 0d 8f 9d 25 e7 47 25 3c 3e 49 |%=.#F%...%.G%<>I|
00029930 54 73 75 70 6e 75 6d 5f 25 80 4e 4e 5f 24 3c 3e |Tsupnum_%.NN_$<>|
00029940 49 54 6e 75 5f 24 8c 45 25 3d 30 0d 8f a2 13 e7 |ITnu_$.E%=0.....|
00029950 8f 23 46 25 3c a2 23 46 25 8c 45 25 3d 31 0d 8f |.#F%<.#F%.E%=1..|
00029960 a7 2d e7 47 25 3d 49 54 73 75 70 6e 75 6d 5f 25 |.-.G%=ITsupnum_%|
00029970 80 4e 4e 5f 24 3d 49 54 6e 75 5f 24 80 8f 23 46 |.NN_$=ITnu_$..#F|
00029980 25 3d a2 23 46 25 8c 45 25 3d 32 0d 8f ac 0f e7 |%=.#F%.E%=2.....|
00029990 45 25 3d 30 80 48 25 3d 30 8c 0d 8f b1 12 49 25 |E%=0.H%=0.....I%|
000299a0 3d a4 49 54 6e 6f 69 74 65 6d 73 5f 0d 8f b6 7f |=.ITnoitems_....|
000299b0 f1 23 46 25 2c 41 24 2c 49 54 73 75 70 6e 75 6d |.#F%,A$,ITsupnum|
000299c0 5f 25 2c 49 54 64 61 5f 24 2c 49 54 65 73 5f 25 |_%,ITda_$,ITes_%|
000299d0 2c 49 25 2c 49 54 61 63 63 5f 24 2c 49 54 68 65 |,I%,ITacc_$,IThe|
000299e0 61 64 5f 24 2c 49 54 63 6f 6d 6d 5f 24 3a e3 5a |ad_$,ITcomm_$:.Z|
000299f0 25 3d 30 b8 36 3a f1 23 46 25 2c 6f 6c 64 64 61 |%=0.6:.#F%,oldda|
00029a00 74 61 5f 25 28 5a 25 29 3a ed 3a e3 5a 25 3d 31 |ta_%(Z%):.:.Z%=1|
00029a10 b8 49 25 2a 69 74 69 66 5f 25 3a f1 23 46 25 2c |.I%*itif_%:.#F%,|
00029a20 49 54 73 5f 24 28 5a 25 29 3a ed 0d 8f bb 59 e3 |ITs_$(Z%):....Y.|
00029a30 5a 25 3d 30 b8 49 25 3a f1 23 46 25 2c 49 54 74 |Z%=0.I%:.#F%,ITt|
00029a40 5f 24 28 5a 25 29 2c 49 54 72 5f 28 5a 25 29 2c |_$(Z%),ITr_(Z%),|
00029a50 49 54 66 5f 25 28 5a 25 29 2c 49 54 6e 5f 25 28 |ITf_%(Z%),ITn_%(|
00029a60 5a 25 29 2c 49 54 6f 5f 25 28 5a 25 29 2c 49 54 |Z%),ITo_%(Z%),IT|
00029a70 6f 73 5f 24 28 5a 25 29 2c 49 54 64 5f 25 28 5a |os_$(Z%),ITd_%(Z|
00029a80 25 29 3a ed 0d 8f c0 05 cd 0d 8f c5 0a e7 45 25 |%):...........E%|
00029a90 3d 31 8c 0d 8f ca 0d cf 23 46 25 3d a2 23 46 25 |=1......#F%=.#F%|
00029aa0 0d 8f cf 12 49 25 3d a4 49 54 6e 6f 69 74 65 6d |....I%=.ITnoitem|
00029ab0 73 5f 0d 8f d4 85 e7 48 25 3d 30 8c f1 23 46 25 |s_.....H%=0..#F%|
00029ac0 2c 41 24 2c 49 54 73 75 70 6e 75 6d 5f 25 2c 49 |,A$,ITsupnum_%,I|
00029ad0 54 64 61 5f 24 2c 49 54 65 73 5f 25 2c 49 25 2c |Tda_$,ITes_%,I%,|
00029ae0 49 54 61 63 63 5f 24 2c 49 54 68 65 61 64 5f 24 |ITacc_$,IThead_$|
00029af0 2c 49 54 63 6f 6d 6d 5f 24 3a e3 5a 25 3d 30 b8 |,ITcomm_$:.Z%=0.|
00029b00 36 3a f1 23 46 25 2c 6f 6c 64 64 61 74 61 5f 25 |6:.#F%,olddata_%|
00029b10 28 5a 25 29 3a ed 3a e3 5a 25 3d 31 b8 49 25 2a |(Z%):.:.Z%=1.I%*|
00029b20 69 74 69 66 5f 25 3a f1 23 46 25 2c 49 54 73 5f |itif_%:.#F%,ITs_|
00029b30 24 28 5a 25 29 3a ed 0d 8f d9 5f e7 48 25 3d 30 |$(Z%):...._.H%=0|
00029b40 8c e3 5a 25 3d 30 b8 49 25 3a f1 23 46 25 2c 49 |..Z%=0.I%:.#F%,I|
00029b50 54 74 5f 24 28 5a 25 29 2c 49 54 72 5f 28 5a 25 |Tt_$(Z%),ITr_(Z%|
00029b60 29 2c 49 54 66 5f 25 28 5a 25 29 2c 49 54 6e 5f |),ITf_%(Z%),ITn_|
00029b70 25 28 5a 25 29 2c 49 54 6f 5f 25 28 5a 25 29 2c |%(Z%),ITo_%(Z%),|
00029b80 49 54 6f 73 5f 24 28 5a 25 29 2c 49 54 64 5f 25 |ITos_$(Z%),ITd_%|
00029b90 28 5a 25 29 3a ed 0d 8f de 0b 44 25 3d 8f 23 46 |(Z%):.....D%=.#F|
00029ba0 25 0d 8f e3 0d f5 3a cf 23 46 25 3d 43 25 0d 8f |%.....:.#F%=C%..|
00029bb0 e8 0f e7 8f 23 46 25 3c a2 23 46 25 8c 0d 8f e9 |....#F%<.#F%....|
00029bc0 56 49 54 73 5f 24 28 29 3d 22 22 3a 49 54 74 5f |VITs_$()="":ITt_|
00029bd0 24 28 29 3d 22 22 3a 49 54 72 5f 28 29 3d 30 3a |$()="":ITr_()=0:|
00029be0 49 54 66 5f 25 28 29 3d 30 3a 49 54 6e 5f 25 28 |ITf_%()=0:ITn_%(|
00029bf0 29 3d 30 3a 49 54 6f 5f 25 28 29 3d 30 3a 49 54 |)=0:ITo_%()=0:IT|
00029c00 6f 73 5f 24 28 29 3d 22 22 3a 49 54 64 5f 25 28 |os_$()="":ITd_%(|
00029c10 29 3d 30 0d 8f ea 45 e8 23 46 25 2c 49 54 6e 75 |)=0...E.#F%,ITnu|
00029c20 5f 24 2c 49 54 73 75 70 6e 75 6d 5f 25 2c 49 54 |_$,ITsupnum_%,IT|
00029c30 64 61 5f 24 2c 49 54 65 73 5f 25 2c 49 25 2c 49 |da_$,ITes_%,I%,I|
00029c40 54 61 63 63 5f 24 2c 49 54 68 65 61 64 5f 24 2c |Tacc_$,IThead_$,|
00029c50 49 54 63 6f 6d 6d 5f 24 0d 8f ed 97 e3 5a 25 3d |ITcomm_$.....Z%=|
00029c60 30 b8 36 3a e8 23 46 25 2c 6f 6c 64 64 61 74 61 |0.6:.#F%,olddata|
00029c70 5f 25 28 5a 25 29 3a ed 3a e3 5a 25 3d 31 b8 49 |_%(Z%):.:.Z%=1.I|
00029c80 25 2a 69 74 69 66 5f 25 3a e8 23 46 25 2c 49 54 |%*itif_%:.#F%,IT|
00029c90 73 5f 24 28 5a 25 29 3a ed 3a e3 5a 25 3d 30 b8 |s_$(Z%):.:.Z%=0.|
00029ca0 49 25 3a e8 23 46 25 2c 49 54 74 5f 24 28 5a 25 |I%:.#F%,ITt_$(Z%|
00029cb0 29 2c 49 54 72 5f 28 5a 25 29 2c 49 54 66 5f 25 |),ITr_(Z%),ITf_%|
00029cc0 28 5a 25 29 2c 49 54 6e 5f 25 28 5a 25 29 2c 49 |(Z%),ITn_%(Z%),I|
00029cd0 54 6f 5f 25 28 5a 25 29 2c 49 54 6f 73 5f 24 28 |To_%(Z%),ITos_$(|
00029ce0 5a 25 29 2c 49 54 64 5f 25 28 5a 25 29 3a ed 0d |Z%),ITd_%(Z%):..|
00029cf0 8f ef 05 cd 0d 8f f2 0b 43 25 3d 8f 23 46 25 0d |........C%=.#F%.|
00029d00 8f f7 0b cf 23 46 25 3d 42 25 0d 8f fc 83 f1 23 |....#F%=B%.....#|
00029d10 46 25 2c 49 54 6e 75 5f 24 2c 49 54 73 75 70 6e |F%,ITnu_$,ITsupn|
00029d20 75 6d 5f 25 2c 49 54 64 61 5f 24 2c 49 54 65 73 |um_%,ITda_$,ITes|
00029d30 5f 25 2c 49 25 2c 49 54 61 63 63 5f 24 2c 49 54 |_%,I%,ITacc_$,IT|
00029d40 68 65 61 64 5f 24 2c 49 54 63 6f 6d 6d 5f 24 3a |head_$,ITcomm_$:|
00029d50 e3 5a 25 3d 30 b8 36 3a f1 23 46 25 2c 6f 6c 64 |.Z%=0.6:.#F%,old|
00029d60 64 61 74 61 5f 25 28 5a 25 29 3a ed 3a e3 5a 25 |data_%(Z%):.:.Z%|
00029d70 3d 31 b8 49 25 2a 69 74 69 66 5f 25 3a f1 23 46 |=1.I%*itif_%:.#F|
00029d80 25 2c 49 54 73 5f 24 28 5a 25 29 3a ed 0d 90 01 |%,ITs_$(Z%):....|
00029d90 59 e3 5a 25 3d 30 b8 49 25 3a f1 23 46 25 2c 49 |Y.Z%=0.I%:.#F%,I|
00029da0 54 74 5f 24 28 5a 25 29 2c 49 54 72 5f 28 5a 25 |Tt_$(Z%),ITr_(Z%|
00029db0 29 2c 49 54 66 5f 25 28 5a 25 29 2c 49 54 6e 5f |),ITf_%(Z%),ITn_|
00029dc0 25 28 5a 25 29 2c 49 54 6f 5f 25 28 5a 25 29 2c |%(Z%),ITo_%(Z%),|
00029dd0 49 54 6f 73 5f 24 28 5a 25 29 2c 49 54 64 5f 25 |ITos_$(Z%),ITd_%|
00029de0 28 5a 25 29 3a ed 0d 90 06 0b 42 25 3d 8f 23 46 |(Z%):.....B%=.#F|
00029df0 25 0d 90 0b 36 fd 47 25 3d 49 54 73 75 70 6e 75 |%...6.G%=ITsupnu|
00029e00 6d 5f 25 80 4e 4e 5f 24 3d 49 54 6e 75 5f 24 84 |m_%.NN_$=ITnu_$.|
00029e10 8f 23 46 25 3e 3d a2 23 46 25 84 43 25 3d a2 23 |.#F%>=.#F%.C%=.#|
00029e20 46 25 80 48 25 3d 31 0d 90 10 0b a2 23 46 25 3d |F%.H%=1.....#F%=|
00029e30 42 25 0d 90 15 05 cd 0d 90 1a 0a e7 45 25 3d 32 |B%..........E%=2|
00029e40 8c 0d 90 1f 0b cf 23 46 25 3d 42 25 0d 90 24 12 |......#F%=B%..$.|
00029e50 49 25 3d a4 49 54 6e 6f 69 74 65 6d 73 5f 0d 90 |I%=.ITnoitems_..|
00029e60 29 85 e7 48 25 3d 30 8c f1 23 46 25 2c 41 24 2c |)..H%=0..#F%,A$,|
00029e70 49 54 73 75 70 6e 75 6d 5f 25 2c 49 54 64 61 5f |ITsupnum_%,ITda_|
00029e80 24 2c 49 54 65 73 5f 25 2c 49 25 2c 49 54 61 63 |$,ITes_%,I%,ITac|
00029e90 63 5f 24 2c 49 54 68 65 61 64 5f 24 2c 49 54 63 |c_$,IThead_$,ITc|
00029ea0 6f 6d 6d 5f 24 3a e3 5a 25 3d 30 b8 36 3a f1 23 |omm_$:.Z%=0.6:.#|
00029eb0 46 25 2c 6f 6c 64 64 61 74 61 5f 25 28 5a 25 29 |F%,olddata_%(Z%)|
00029ec0 3a ed 3a e3 5a 25 3d 31 b8 49 25 2a 69 74 69 66 |:.:.Z%=1.I%*itif|
00029ed0 5f 25 3a f1 23 46 25 2c 49 54 73 5f 24 28 5a 25 |_%:.#F%,ITs_$(Z%|
00029ee0 29 3a ed 0d 90 2e 5f e7 48 25 3d 30 8c e3 5a 25 |):...._.H%=0..Z%|
00029ef0 3d 30 b8 49 25 3a f1 23 46 25 2c 49 54 74 5f 24 |=0.I%:.#F%,ITt_$|
00029f00 28 5a 25 29 2c 49 54 72 5f 28 5a 25 29 2c 49 54 |(Z%),ITr_(Z%),IT|
00029f10 66 5f 25 28 5a 25 29 2c 49 54 6e 5f 25 28 5a 25 |f_%(Z%),ITn_%(Z%|
00029f20 29 2c 49 54 6f 5f 25 28 5a 25 29 2c 49 54 6f 73 |),ITo_%(Z%),ITos|
00029f30 5f 24 28 5a 25 29 2c 49 54 64 5f 25 28 5a 25 29 |_$(Z%),ITd_%(Z%)|
00029f40 3a ed 0d 90 33 0d a2 23 46 25 3d 8f 23 46 25 0d |:...3..#F%=.#F%.|
00029f50 90 38 05 cd 0d 90 3d 0d d9 23 46 25 3a 46 25 3d |.8....=..#F%:F%=|
00029f60 30 0d 90 42 1e ff 28 22 53 45 54 54 59 50 45 20 |0..B..("SETTYPE |
00029f70 22 2b 69 6e 76 5f 24 2b 22 20 43 38 37 22 29 0d |"+inv_$+" C87").|
00029f80 90 47 0c c8 99 26 34 30 36 43 31 0d 90 4c 06 3d |.G...&406C1..L.=|
00029f90 b9 0d 90 51 11 dd f2 75 70 64 61 74 65 69 6e 76 |...Q...updateinv|
00029fa0 6c 5f 0d 90 56 2d ea 20 41 25 2c 43 25 2c 46 25 |l_..V-. A%,C%,F%|
00029fb0 2c 47 25 2c 5a 25 2c 41 5f 24 2c 53 53 5f 24 2c |,G%,Z%,A_$,SS_$,|
00029fc0 4e 4e 5f 24 2c 49 25 2c 5a 5f 25 2c 41 5f 25 0d |NN_$,I%,Z_%,A_%.|
00029fd0 90 5b 07 ea 20 85 0d 90 60 31 ee 20 85 20 ea 3a |.[.. ...`1. . .:|
00029fe0 f7 20 85 3a c8 99 26 34 30 36 43 31 3a f2 70 65 |. .:..&406C1:.pe|
00029ff0 31 5f 28 a4 65 72 72 5f 2c 46 25 29 3a c8 99 26 |1_(.err_,F%):..&|
0002a000 34 30 36 43 30 3a e1 0d 90 65 2f 69 6e 76 4c 5f |406C0:...e/invL_|
0002a010 24 28 29 3d 22 22 3a 69 6e 76 4c 5f 24 28 30 29 |$()="":invL_$(0)|
0002a020 3d 22 43 75 72 72 65 6e 74 22 3a 6d 61 78 69 6e |="Current":maxin|
0002a030 76 6c 5f 25 3d 30 0d 90 6a 17 46 25 3d ad 28 69 |vl_%=0..j.F%=.(i|
0002a040 6e 76 5f 24 29 3a e7 46 25 3d 30 8c e1 0d 90 6f |nv_$):.F%=0....o|
0002a050 17 e7 a2 23 46 25 3d 30 8c d9 23 46 25 3a 46 25 |...#F%=0..#F%:F%|
0002a060 3d 30 3a e1 0d 90 74 7c f5 3a e8 23 46 25 2c 4e |=0:...t|.:.#F%,N|
0002a070 4e 5f 24 2c 47 25 2c 41 5f 24 2c 41 25 2c 49 25 |N_$,G%,A_$,A%,I%|
0002a080 2c 41 5f 24 2c 41 5f 24 2c 41 5f 24 3a e3 5a 25 |,A_$,A_$,A_$:.Z%|
0002a090 3d 30 b8 36 3a e8 23 46 25 2c 41 25 3a ed 3a e3 |=0.6:.#F%,A%:.:.|
0002a0a0 5a 25 3d 31 b8 49 25 2a 69 74 69 66 5f 25 3a e8 |Z%=1.I%*itif_%:.|
0002a0b0 23 46 25 2c 41 5f 24 3a ed 3a e3 5a 25 3d 30 b8 |#F%,A_$:.:.Z%=0.|
0002a0c0 49 25 3a e8 23 46 25 2c 41 5f 24 2c 41 25 2c 41 |I%:.#F%,A_$,A%,A|
0002a0d0 25 2c 41 25 2c 41 25 2c 41 5f 24 2c 41 25 3a ed |%,A%,A%,A_$,A%:.|
0002a0e0 0d 90 79 13 e7 47 25 3d 49 54 73 75 70 6e 75 6d |..y..G%=ITsupnum|
0002a0f0 5f 25 8c 0d 90 7e 15 e7 4e 4e 5f 24 3c 3e 22 43 |_%...~..NN_$<>"C|
0002a100 75 72 72 65 6e 74 22 8c 0d 90 83 13 e7 6d 61 78 |urrent"......max|
0002a110 69 6e 76 6c 5f 25 3c 31 30 30 8c 0d 90 88 30 41 |invl_%<100....0A|
0002a120 5f 25 3d 30 3a e3 5a 25 3d 31 b8 6d 61 78 69 6e |_%=0:.Z%=1.maxin|
0002a130 76 6c 5f 25 3a e7 4e 4e 5f 24 3d 69 6e 76 4c 5f |vl_%:.NN_$=invL_|
0002a140 24 28 5a 25 29 3a 41 5f 25 3d 31 0d 90 8d 30 ed |$(Z%):A_%=1...0.|
0002a150 3a e7 41 5f 25 3d 30 3a 6d 61 78 69 6e 76 6c 5f |:.A_%=0:maxinvl_|
0002a160 25 2b 3d 31 3a 69 6e 76 4c 5f 24 28 6d 61 78 69 |%+=1:invL_$(maxi|
0002a170 6e 76 6c 5f 25 29 3d 4e 4e 5f 24 0d 90 92 05 cd |nvl_%)=NN_$.....|
0002a180 0d 90 97 05 cd 0d 90 9c 05 cd 0d 90 a1 26 fd 8f |.............&..|
0002a190 23 46 25 3d a2 23 46 25 3a d9 23 46 25 3a 46 25 |#F%=.#F%:.#F%:F%|
0002a1a0 3d 30 3a e7 6d 61 78 69 6e 76 6c 5f 25 3e 31 8c |=0:.maxinvl_%>1.|
0002a1b0 0d 90 a6 4d e3 5a 25 3d 31 b8 6d 61 78 69 6e 76 |...M.Z%=1.maxinv|
0002a1c0 6c 5f 25 2d 31 3a e7 69 6e 76 4c 5f 24 28 5a 25 |l_%-1:.invL_$(Z%|
0002a1d0 29 3e 69 6e 76 4c 5f 24 28 5a 25 2b 31 29 3a c8 |)>invL_$(Z%+1):.|
0002a1e0 94 69 6e 76 4c 5f 24 28 5a 25 29 2c 69 6e 76 4c |.invL_$(Z%),invL|
0002a1f0 5f 24 28 5a 25 2b 31 29 3a 5a 25 3d 30 0d 90 ab |_$(Z%+1):Z%=0...|
0002a200 05 ed 0d 90 b0 05 cd 0d 90 b5 05 e1 0d 90 ba 0f |................|
0002a210 dd a4 6c 6f 61 64 63 75 73 74 5f 0d 90 bf 28 ea |..loadcust_...(.|
0002a220 20 41 25 2c 42 25 2c 43 25 2c 46 25 2c 47 25 2c | A%,B%,C%,F%,G%,|
0002a230 5a 25 2c 41 5f 24 2c 53 53 5f 24 2c 4e 4e 5f 24 |Z%,A_$,SS_$,NN_$|
0002a240 2c 49 25 0d 90 c4 07 ea 20 85 0d 90 c9 29 ee 20 |,I%..... ....). |
0002a250 85 20 ea 3a f7 20 85 3a c8 99 26 34 30 36 43 31 |. .:. .:..&406C1|
0002a260 3a f2 70 65 31 5f 28 a4 65 72 72 5f 2c 46 25 29 |:.pe1_(.err_,F%)|
0002a270 3a 3d a3 0d 90 ce 18 46 25 3d ad 28 69 6e 76 5f |:=.....F%=.(inv_|
0002a280 24 29 3a e7 46 25 3d 30 8c 3d a3 0d 90 d3 18 e7 |$):.F%=0.=......|
0002a290 a2 23 46 25 3d 30 8c d9 23 46 25 3a 46 25 3d 30 |.#F%=0..#F%:F%=0|
0002a2a0 3a 3d a3 0d 90 d8 0c c8 99 26 34 30 36 43 30 0d |:=.......&406C0.|
0002a2b0 90 dd 84 f5 3a 42 25 3d 8f 23 46 25 3a e8 23 46 |....:B%=.#F%:.#F|
0002a2c0 25 2c 4e 4e 5f 24 2c 47 25 2c 41 5f 24 2c 41 25 |%,NN_$,G%,A_$,A%|
0002a2d0 2c 49 25 2c 41 5f 24 2c 41 5f 24 2c 41 5f 24 3a |,I%,A_$,A_$,A_$:|
0002a2e0 e3 5a 25 3d 30 b8 36 3a e8 23 46 25 2c 41 25 3a |.Z%=0.6:.#F%,A%:|
0002a2f0 ed 3a e3 5a 25 3d 31 b8 49 25 2a 69 74 69 66 5f |.:.Z%=1.I%*itif_|
0002a300 25 3a e8 23 46 25 2c 41 5f 24 3a ed 3a e3 5a 25 |%:.#F%,A_$:.:.Z%|
0002a310 3d 30 b8 49 25 3a e8 23 46 25 2c 41 5f 24 2c 41 |=0.I%:.#F%,A_$,A|
0002a320 25 2c 41 25 2c 41 25 2c 41 25 2c 41 5f 24 2c 41 |%,A%,A%,A%,A_$,A|
0002a330 25 3a ed 0d 90 e2 2c fd 47 25 3d 49 54 73 75 70 |%:....,.G%=ITsup|
0002a340 6e 75 6d 4e 5f 25 80 4e 4e 5f 24 3d 24 21 49 54 |numN_%.NN_$=$!IT|
0002a350 6e 75 6d 5f 25 84 8f 23 46 25 3d a2 23 46 25 0d |num_%..#F%=.#F%.|
0002a360 90 e7 23 e7 47 25 3d 49 54 73 75 70 6e 75 6d 4e |..#.G%=ITsupnumN|
0002a370 5f 25 80 4e 4e 5f 24 3d 24 21 49 54 6e 75 6d 5f |_%.NN_$=$!ITnum_|
0002a380 25 8c 0d 90 ec a0 49 54 73 5f 24 28 29 3d 22 22 |%.....ITs_$()=""|
0002a390 3a 49 54 74 5f 24 28 29 3d 22 22 3a 49 54 72 5f |:ITt_$()="":ITr_|
0002a3a0 28 29 3d 30 3a 49 54 66 5f 25 28 29 3d 30 3a 49 |()=0:ITf_%()=0:I|
0002a3b0 54 6e 5f 25 28 29 3d 30 3a 49 54 6f 5f 25 28 29 |Tn_%()=0:ITo_%()|
0002a3c0 3d 30 3a 49 54 6f 73 5f 24 28 29 3d 22 22 3a 49 |=0:ITos_$()="":I|
0002a3d0 54 64 5f 25 28 29 3d 30 3a cf 23 46 25 3d 42 25 |Td_%()=0:.#F%=B%|
0002a3e0 3a e8 23 46 25 2c 49 54 6e 75 5f 24 2c 49 54 73 |:.#F%,ITnu_$,ITs|
0002a3f0 75 70 6e 75 6d 5f 25 2c 49 54 64 61 5f 24 2c 49 |upnum_%,ITda_$,I|
0002a400 54 65 73 5f 25 2c 49 25 2c 49 54 61 63 63 5f 24 |Tes_%,I%,ITacc_$|
0002a410 2c 49 54 68 65 61 64 5f 24 2c 49 54 63 6f 6d 6d |,IThead_$,ITcomm|
0002a420 5f 24 0d 90 f1 9c e3 5a 25 3d 30 b8 36 3a e8 23 |_$.....Z%=0.6:.#|
0002a430 46 25 2c 6f 6c 64 64 61 74 61 5f 25 28 5a 25 29 |F%,olddata_%(Z%)|
0002a440 3a ed 3a e3 5a 25 3d 31 b8 49 25 2a 69 74 69 66 |:.:.Z%=1.I%*itif|
0002a450 5f 25 3a e8 23 46 25 2c 49 54 73 5f 24 28 5a 25 |_%:.#F%,ITs_$(Z%|
0002a460 29 3a ed 3a e3 5a 25 3d 30 b8 49 25 3a e8 23 46 |):.:.Z%=0.I%:.#F|
0002a470 25 2c 49 54 74 5f 24 28 5a 25 29 2c 49 54 72 5f |%,ITt_$(Z%),ITr_|
0002a480 28 5a 25 29 2c 49 54 66 5f 25 28 5a 25 29 2c 49 |(Z%),ITf_%(Z%),I|
0002a490 54 6e 5f 25 28 5a 25 29 2c 49 54 6f 5f 25 28 5a |Tn_%(Z%),ITo_%(Z|
0002a4a0 25 29 2c 49 54 6f 73 5f 24 28 5a 25 29 2c 49 54 |%),ITos_$(Z%),IT|
0002a4b0 64 5f 25 28 5a 25 29 3a ed 3a 43 25 3d b9 0d 90 |d_%(Z%):.:C%=...|
0002a4c0 f6 61 e7 49 54 6e 75 5f 24 3d 22 43 75 72 72 65 |.a.ITnu_$="Curre|
0002a4d0 6e 74 22 8c 24 21 49 54 63 6f 70 5f 25 3d 49 54 |nt".$!ITcop_%=IT|
0002a4e0 63 6f 70 5f 24 3a f2 72 49 28 69 6e 76 57 25 2c |cop_$:.rI(invW%,|
0002a4f0 22 49 54 63 6f 70 22 29 3a 24 21 49 54 65 73 64 |"ITcop"):$!ITesd|
0002a500 5f 25 3d c3 28 49 54 65 73 5f 25 29 3a f2 72 49 |_%=.(ITes_%):.rI|
0002a510 28 69 6e 76 57 25 2c 22 49 54 65 73 64 22 29 0d |(invW%,"ITesd").|
0002a520 90 fb 90 e7 49 54 6e 75 5f 24 3d 22 43 75 72 72 |....ITnu_$="Curr|
0002a530 65 6e 74 22 8c 24 21 49 54 61 63 63 31 5f 25 3d |ent".$!ITacc1_%=|
0002a540 49 54 61 63 63 5f 24 3a f2 72 49 28 69 6e 76 57 |ITacc_$:.rI(invW|
0002a550 25 2c 22 49 54 61 63 63 31 22 29 3a 24 21 49 54 |%,"ITacc1"):$!IT|
0002a560 68 65 61 64 31 5f 25 3d 49 54 68 65 61 64 5f 24 |head1_%=IThead_$|
0002a570 3a f2 72 49 28 69 6e 76 57 25 2c 22 49 54 68 65 |:.rI(invW%,"IThe|
0002a580 61 64 31 22 29 3a 24 21 49 54 63 6f 6d 6d 31 5f |ad1"):$!ITcomm1_|
0002a590 25 3d 49 54 63 6f 6d 6d 5f 24 3a f2 72 49 28 69 |%=ITcomm_$:.rI(i|
0002a5a0 6e 76 57 25 2c 22 49 54 63 6f 6d 6d 31 22 29 0d |nvW%,"ITcomm1").|
0002a5b0 91 00 37 e7 49 54 6e 75 5f 24 3c 3e 22 43 75 72 |..7.ITnu_$<>"Cur|
0002a5c0 72 65 6e 74 22 8c 24 21 49 54 63 6f 70 5f 25 3d |rent".$!ITcop_%=|
0002a5d0 22 31 22 3a f2 72 49 28 69 6e 76 57 25 2c 22 49 |"1":.rI(invW%,"I|
0002a5e0 54 63 6f 70 22 29 0d 91 05 05 cc 0d 91 0a 1a 49 |Tcop").........I|
0002a5f0 54 73 75 70 6e 75 6d 5f 25 3d 49 54 73 75 70 6e |Tsupnum_%=ITsupn|
0002a600 75 6d 4e 5f 25 0d 91 0f cf 43 25 3d a3 3a 24 21 |umN_%....C%=.:$!|
0002a610 49 54 63 6f 70 5f 25 3d 49 54 63 6f 70 5f 24 3a |ITcop_%=ITcop_$:|
0002a620 f2 72 49 28 69 6e 76 57 25 2c 22 49 54 63 6f 70 |.rI(invW%,"ITcop|
0002a630 22 29 3a 24 21 49 54 65 73 64 5f 25 3d c3 28 49 |"):$!ITesd_%=.(I|
0002a640 54 65 73 5f 25 29 3a f2 72 49 28 69 6e 76 57 25 |Tes_%):.rI(invW%|
0002a650 2c 22 49 54 65 73 64 22 29 3a 24 21 49 54 61 63 |,"ITesd"):$!ITac|
0002a660 63 31 5f 25 3d 49 54 61 63 63 5f 24 3a f2 72 49 |c1_%=ITacc_$:.rI|
0002a670 28 69 6e 76 57 25 2c 22 49 54 61 63 63 31 22 29 |(invW%,"ITacc1")|
0002a680 3a 24 21 49 54 68 65 61 64 31 5f 25 3d 49 54 68 |:$!IThead1_%=ITh|
0002a690 65 61 64 5f 24 3a f2 72 49 28 69 6e 76 57 25 2c |ead_$:.rI(invW%,|
0002a6a0 22 49 54 68 65 61 64 31 22 29 3a 24 21 49 54 63 |"IThead1"):$!ITc|
0002a6b0 6f 6d 6d 31 5f 25 3d 49 54 63 6f 6d 6d 5f 24 3a |omm1_%=ITcomm_$:|
0002a6c0 f2 72 49 28 69 6e 76 57 25 2c 22 49 54 63 6f 6d |.rI(invW%,"ITcom|
0002a6d0 6d 31 22 29 0d 91 14 05 cd 0d 91 19 0d d9 23 46 |m1")..........#F|
0002a6e0 25 3a 46 25 3d 30 0d 91 1e 0c c8 99 26 34 30 36 |%:F%=0......&406|
0002a6f0 43 31 0d 91 23 07 3d 43 25 0d 91 28 04 0d 91 2d |C1..#.=C%..(...-|
0002a700 1c dd f2 73 61 76 65 6e 65 77 63 75 73 74 5f 28 |...savenewcust_(|
0002a710 46 25 2c 48 25 2c 41 24 29 0d 91 32 15 e7 48 25 |F%,H%,A$)..2..H%|
0002a720 3d 31 8c d9 23 46 25 3a 46 25 3d 30 3a e1 0d 91 |=1..#F%:F%=0:...|
0002a730 37 08 ea 20 5a 25 0d 91 3c 07 ea 20 85 0d 91 41 |7.. Z%..<.. ...A|
0002a740 1f ee 20 85 20 ea 3a f7 20 85 3a f2 70 65 31 5f |.. . .:. .:.pe1_|
0002a750 28 a4 65 72 72 5f 2c 46 25 29 3a e1 0d 91 46 12 |(.err_,F%):...F.|
0002a760 49 25 3d a4 49 54 6e 6f 69 74 65 6d 73 5f 0d 91 |I%=.ITnoitems_..|
0002a770 4b 7f f1 23 46 25 2c 41 24 2c 49 54 73 75 70 6e |K..#F%,A$,ITsupn|
0002a780 75 6d 5f 25 2c 49 54 64 61 5f 24 2c 49 54 65 73 |um_%,ITda_$,ITes|
0002a790 5f 25 2c 49 25 2c 49 54 61 63 63 5f 24 2c 49 54 |_%,I%,ITacc_$,IT|
0002a7a0 68 65 61 64 5f 24 2c 49 54 63 6f 6d 6d 5f 24 3a |head_$,ITcomm_$:|
0002a7b0 e3 5a 25 3d 30 b8 36 3a f1 23 46 25 2c 6f 6c 64 |.Z%=0.6:.#F%,old|
0002a7c0 64 61 74 61 5f 25 28 5a 25 29 3a ed 3a e3 5a 25 |data_%(Z%):.:.Z%|
0002a7d0 3d 31 b8 49 25 2a 69 74 69 66 5f 25 3a f1 23 46 |=1.I%*itif_%:.#F|
0002a7e0 25 2c 49 54 73 5f 24 28 5a 25 29 3a ed 0d 91 50 |%,ITs_$(Z%):...P|
0002a7f0 59 e3 5a 25 3d 30 b8 49 25 3a f1 23 46 25 2c 49 |Y.Z%=0.I%:.#F%,I|
0002a800 54 74 5f 24 28 5a 25 29 2c 49 54 72 5f 28 5a 25 |Tt_$(Z%),ITr_(Z%|
0002a810 29 2c 49 54 66 5f 25 28 5a 25 29 2c 49 54 6e 5f |),ITf_%(Z%),ITn_|
0002a820 25 28 5a 25 29 2c 49 54 6f 5f 25 28 5a 25 29 2c |%(Z%),ITo_%(Z%),|
0002a830 49 54 6f 73 5f 24 28 5a 25 29 2c 49 54 64 5f 25 |ITos_$(Z%),ITd_%|
0002a840 28 5a 25 29 3a ed 0d 91 55 2a d9 23 46 25 3a 46 |(Z%):...U*.#F%:F|
0002a850 25 3d 30 3a ff 28 22 53 45 54 54 59 50 45 20 22 |%=0:.("SETTYPE "|
0002a860 2b 69 6e 76 5f 24 2b 22 20 43 38 37 22 29 3a e1 |+inv_$+" C87"):.|
0002a870 0d 91 5a 12 dd a4 67 65 74 63 75 73 74 5f 28 41 |..Z...getcust_(A|
0002a880 25 29 0d 91 5f 0b ea 20 5a 25 2c 41 24 0d 91 64 |%).._.. Z%,A$..d|
0002a890 2e 5a 25 3d b9 3a 5a 25 3d a4 49 54 61 63 63 31 |.Z%=.:Z%=.ITacc1|
0002a8a0 5f 3a 5a 25 3d a4 49 54 68 65 61 64 31 5f 3a 5a |_:Z%=.IThead1_:Z|
0002a8b0 25 3d a4 49 54 63 6f 6d 6d 31 5f 0d 91 69 16 e7 |%=.ITcomm1_..i..|
0002a8c0 a4 49 54 53 75 46 69 72 73 74 5f 3d a3 20 8c 3d |.ITSuFirst_=. .=|
0002a8d0 a3 0d 91 6e 53 e7 49 54 73 75 70 6e 75 6d 5f 25 |...nS.ITsupnum_%|
0002a8e0 3d 30 8c 49 54 73 75 70 6e 75 6d 5f 25 3d 49 54 |=0.ITsupnum_%=IT|
0002a8f0 73 75 70 6e 75 6d 4e 5f 25 3a 49 54 6e 75 5f 24 |supnumN_%:ITnu_$|
0002a900 3d 24 21 49 54 6e 75 6d 5f 25 20 8b 5a 25 3d a4 |=$!ITnum_% .Z%=.|
0002a910 73 61 76 65 63 75 73 74 5f 28 41 25 2c 49 54 6e |savecust_(A%,ITn|
0002a920 75 5f 24 29 0d 91 73 19 e7 52 25 3d 33 84 49 54 |u_$)..s..R%=3.IT|
0002a930 73 75 70 6e 75 6d 5f 25 3d 30 8c 3d a3 0d 91 78 |supnum_%=0.=...x|
0002a940 19 f2 69 6e 69 74 49 6e 76 57 31 5f 3a 49 54 64 |..initInvW1_:ITd|
0002a950 61 5f 24 3d 22 22 0d 91 7d 11 5a 25 3d a4 6c 6f |a_$=""..}.Z%=.lo|
0002a960 61 64 63 75 73 74 5f 0d 91 82 4c e7 5a 25 3d a3 |adcust_...L.Z%=.|
0002a970 20 8c 49 54 6e 75 5f 24 3d 22 43 75 72 72 65 6e | .ITnu_$="Curren|
0002a980 74 22 3a 24 21 49 54 6e 75 6d 5f 25 3d 49 54 6e |t":$!ITnum_%=ITn|
0002a990 75 5f 24 3a 5a 25 3d a4 6c 6f 61 64 63 75 73 74 |u_$:Z%=.loadcust|
0002a9a0 5f 20 8b 24 21 49 54 6e 75 6d 5f 25 3d 49 54 6e |_ .$!ITnum_%=ITn|
0002a9b0 75 5f 24 0d 91 87 88 24 21 49 54 73 75 70 70 6c |u_$....$!ITsuppl|
0002a9c0 69 65 72 5f 25 3d a4 67 65 74 63 75 73 74 6e 61 |ier_%=.getcustna|
0002a9d0 6d 65 5f 28 49 54 73 75 70 6e 75 6d 5f 25 29 3a |me_(ITsupnum_%):|
0002a9e0 73 75 70 70 6c 79 31 5f 25 3d a4 67 65 74 63 75 |supply1_%=.getcu|
0002a9f0 73 74 6e 75 6d 5f 28 49 54 73 75 70 6e 75 6d 5f |stnum_(ITsupnum_|
0002aa00 25 29 3a 24 21 49 54 72 65 63 64 5f 25 3d c3 28 |%):$!ITrecd_%=.(|
0002aa10 73 75 70 70 6c 79 31 5f 25 29 3a 24 21 49 54 6f |supply1_%):$!ITo|
0002aa20 72 64 5f 25 3d 43 53 75 53 75 70 70 52 65 5f 24 |rd_%=CSuSuppRe_$|
0002aa30 28 73 75 70 70 6c 79 31 5f 25 29 0d 91 8c 7e 24 |(supply1_%)...~$|
0002aa40 21 49 54 61 63 63 31 5f 25 3d 49 54 61 63 63 5f |!ITacc1_%=ITacc_|
0002aa50 24 3a f2 72 49 28 69 6e 76 57 25 2c 22 49 54 61 |$:.rI(invW%,"ITa|
0002aa60 63 63 31 22 29 3a 24 21 49 54 68 65 61 64 31 5f |cc1"):$!IThead1_|
0002aa70 25 3d 49 54 68 65 61 64 5f 24 3a f2 72 49 28 69 |%=IThead_$:.rI(i|
0002aa80 6e 76 57 25 2c 22 49 54 68 65 61 64 31 22 29 3a |nvW%,"IThead1"):|
0002aa90 24 21 49 54 63 6f 6d 6d 31 5f 25 3d 49 54 63 6f |$!ITcomm1_%=ITco|
0002aaa0 6d 6d 5f 24 3a f2 72 49 28 69 6e 76 57 25 2c 22 |mm_$:.rI(invW%,"|
0002aab0 49 54 63 6f 6d 6d 31 22 29 0d 91 91 5a 49 54 73 |ITcomm1")...ZITs|
0002aac0 75 70 6e 75 6d 4e 5f 25 3d 49 54 73 75 70 6e 75 |upnumN_%=ITsupnu|
0002aad0 6d 5f 25 3a 24 21 49 54 64 61 5f 25 3d 49 54 64 |m_%:$!ITda_%=ITd|
0002aae0 61 5f 24 3a 24 21 49 54 65 73 64 5f 25 3d c3 28 |a_$:$!ITesd_%=.(|
0002aaf0 49 54 65 73 5f 25 29 3a e7 24 21 49 54 65 73 64 |ITes_%):.$!ITesd|
0002ab00 5f 25 3d 22 30 22 8c 24 21 49 54 65 73 64 5f 25 |_%="0".$!ITesd_%|
0002ab10 3d 22 22 0d 91 96 7a f2 72 49 28 69 6e 76 57 25 |=""...z.rI(invW%|
0002ab20 2c 22 49 54 73 75 70 70 6c 69 65 72 22 29 3a f2 |,"ITsupplier"):.|
0002ab30 72 49 28 69 6e 76 57 25 2c 22 49 54 72 65 63 64 |rI(invW%,"ITrecd|
0002ab40 22 29 3a f2 72 49 28 69 6e 76 57 25 2c 22 49 54 |"):.rI(invW%,"IT|
0002ab50 6e 75 6d 22 29 3a f2 72 49 28 69 6e 76 57 25 2c |num"):.rI(invW%,|
0002ab60 22 49 54 64 61 22 29 3a f2 72 49 28 69 6e 76 57 |"ITda"):.rI(invW|
0002ab70 25 2c 22 49 54 65 73 64 22 29 3a f2 72 49 28 69 |%,"ITesd"):.rI(i|
0002ab80 6e 76 57 25 2c 22 49 54 6f 72 64 22 29 0d 91 9b |nvW%,"ITord")...|
0002ab90 40 f2 67 65 74 49 54 64 61 74 74 6f 74 5f 3a f2 |@.getITdattot_:.|
0002aba0 69 6e 69 74 49 54 64 61 74 5f 3a f2 73 65 74 69 |initITdat_:.seti|
0002abb0 6e 76 66 6c 61 67 73 5f 3a f2 73 65 74 43 31 5f |nvflags_:.setC1_|
0002abc0 28 69 6e 76 77 25 2c 69 74 69 5f 25 29 0d 91 a0 |(invw%,iti_%)...|
0002abd0 07 3d 5a 25 0d 91 a5 04 0d 91 aa 11 dd f2 49 54 |.=Z%..........IT|
0002abe0 64 6f 77 6e 5f 28 5a 25 29 0d 91 af 65 e7 28 69 |down_(Z%)...e.(i|
0002abf0 74 70 5f 25 2b 2d 5a 25 29 2a 69 74 69 66 5f 25 |tp_%+-Z%)*itif_%|
0002ac00 2b 69 74 69 70 5f 25 2a 69 74 69 66 5f 25 3e 6d |+itip_%*itif_%>m|
0002ac10 61 78 49 5f 25 2a 69 74 69 70 5f 25 2a 69 74 69 |axI_%*itip_%*iti|
0002ac20 66 5f 25 8c 5a 25 3d 2d 28 6d 61 78 49 5f 25 2a |f_%.Z%=-(maxI_%*|
0002ac30 69 74 69 70 5f 25 2d 28 69 74 70 5f 25 2b 69 74 |itip_%-(itp_%+it|
0002ac40 69 70 5f 25 29 29 3a e7 5a 25 3d 30 8c e1 0d 91 |ip_%)):.Z%=0....|
0002ac50 b4 70 e7 28 69 74 70 5f 25 2b 2d 5a 25 29 2a 69 |.p.(itp_%+-Z%)*i|
0002ac60 74 69 66 5f 25 2b 69 74 69 70 5f 25 2a 69 74 69 |tif_%+itip_%*iti|
0002ac70 66 5f 25 3c 3d 6d 61 78 49 5f 25 2a 69 74 69 70 |f_%<=maxI_%*itip|
0002ac80 5f 25 2a 69 74 69 66 5f 25 8c f2 67 65 74 49 54 |_%*itif_%..getIT|
0002ac90 64 61 74 5f 28 30 29 3a f2 67 65 74 49 54 64 61 |dat_(0):.getITda|
0002aca0 74 74 6f 74 5f 3a 69 74 70 5f 25 2d 3d 5a 25 3a |ttot_:itp_%-=Z%:|
0002acb0 f2 73 65 74 49 54 64 61 74 5f 28 5a 25 29 0d 91 |.setITdat_(Z%)..|
0002acc0 b9 05 e1 0d 91 be 04 0d 91 c3 12 dd f2 53 49 54 |.............SIT|
0002acd0 64 6f 77 6e 5f 28 5a 25 29 0d 91 c8 6e e7 28 73 |down_(Z%)...n.(s|
0002ace0 69 74 70 5f 25 2b 2d 5a 25 29 2a 73 69 74 69 66 |itp_%+-Z%)*sitif|
0002acf0 5f 25 2b 73 69 74 69 70 5f 25 2a 73 69 74 69 66 |_%+sitip_%*sitif|
0002ad00 5f 25 3e 6d 61 78 53 5f 25 2a 73 69 74 69 70 5f |_%>maxS_%*sitip_|
0002ad10 25 2a 73 69 74 69 66 5f 25 8c 5a 25 3d 2d 28 6d |%*sitif_%.Z%=-(m|
0002ad20 61 78 53 5f 25 2a 73 69 74 69 70 5f 25 2d 28 73 |axS_%*sitip_%-(s|
0002ad30 69 74 70 5f 25 2b 73 69 74 69 70 5f 25 29 29 3a |itp_%+sitip_%)):|
0002ad40 e7 5a 25 3d 30 8c e1 0d 91 cd 1b e7 73 69 74 70 |.Z%=0.......sitp|
0002ad50 5f 25 2b 2d 5a 25 3c 30 8c 5a 25 3d 73 69 74 70 |_%+-Z%<0.Z%=sitp|
0002ad60 5f 25 0d 91 d2 2b e7 73 69 74 70 5f 25 2b 2d 5a |_%...+.sitp_%+-Z|
0002ad70 25 3e 6d 61 78 53 5f 25 2a 73 69 74 69 70 5f 25 |%>maxS_%*sitip_%|
0002ad80 2d 73 69 74 69 70 5f 25 8c 5a 25 3d 30 0d 91 d7 |-sitip_%.Z%=0...|
0002ad90 68 e7 28 73 69 74 70 5f 25 2b 2d 5a 25 29 2a 73 |h.(sitp_%+-Z%)*s|
0002ada0 69 74 69 66 5f 25 2b 73 69 74 69 70 5f 25 2a 73 |itif_%+sitip_%*s|
0002adb0 69 74 69 66 5f 25 3c 3d 6d 61 78 53 5f 25 2a 73 |itif_%<=maxS_%*s|
0002adc0 69 74 69 70 5f 25 2a 73 69 74 69 66 5f 25 8c f2 |itip_%*sitif_%..|
0002add0 67 65 74 53 49 54 64 61 74 5f 3a 73 69 74 70 5f |getSITdat_:sitp_|
0002ade0 25 2d 3d 5a 25 3a f2 73 65 74 53 49 54 64 61 74 |%-=Z%:.setSITdat|
0002adf0 5f 28 5a 25 29 0d 91 dc 05 e1 0d 91 e1 04 0d 91 |_(Z%)...........|
0002ae00 e6 12 dd f2 54 49 54 64 6f 77 6e 5f 28 5a 25 29 |....TITdown_(Z%)|
0002ae10 0d 91 eb 6e e7 28 74 69 74 70 5f 25 2b 2d 5a 25 |...n.(titp_%+-Z%|
0002ae20 29 2a 73 69 74 69 66 5f 25 2b 73 69 74 69 70 5f |)*sitif_%+sitip_|
0002ae30 25 2a 73 69 74 69 66 5f 25 3e 6d 61 78 54 5f 25 |%*sitif_%>maxT_%|
0002ae40 2a 73 69 74 69 70 5f 25 2a 73 69 74 69 66 5f 25 |*sitip_%*sitif_%|
0002ae50 8c 5a 25 3d 2d 28 6d 61 78 54 5f 25 2a 73 69 74 |.Z%=-(maxT_%*sit|
0002ae60 69 70 5f 25 2d 28 74 69 74 70 5f 25 2b 73 69 74 |ip_%-(titp_%+sit|
0002ae70 69 70 5f 25 29 29 3a e7 5a 25 3d 30 8c e1 0d 91 |ip_%)):.Z%=0....|
0002ae80 f0 1b e7 74 69 74 70 5f 25 2b 2d 5a 25 3c 30 8c |...titp_%+-Z%<0.|
0002ae90 5a 25 3d 74 69 74 70 5f 25 0d 91 f5 2b e7 74 69 |Z%=titp_%...+.ti|
0002aea0 74 70 5f 25 2b 2d 5a 25 3e 6d 61 78 54 5f 25 2a |tp_%+-Z%>maxT_%*|
0002aeb0 73 69 74 69 70 5f 25 2d 73 69 74 69 70 5f 25 8c |sitip_%-sitip_%.|
0002aec0 5a 25 3d 30 0d 91 fa 68 e7 28 74 69 74 70 5f 25 |Z%=0...h.(titp_%|
0002aed0 2b 2d 5a 25 29 2a 73 69 74 69 66 5f 25 2b 73 69 |+-Z%)*sitif_%+si|
0002aee0 74 69 70 5f 25 2a 73 69 74 69 66 5f 25 3c 3d 6d |tip_%*sitif_%<=m|
0002aef0 61 78 54 5f 25 2a 73 69 74 69 70 5f 25 2a 73 69 |axT_%*sitip_%*si|
0002af00 74 69 66 5f 25 8c f2 67 65 74 54 49 54 64 61 74 |tif_%..getTITdat|
0002af10 5f 3a 74 69 74 70 5f 25 2d 3d 5a 25 3a f2 73 65 |_:titp_%-=Z%:.se|
0002af20 74 54 49 54 64 61 74 5f 28 5a 25 29 0d 91 ff 05 |tTITdat_(Z%)....|
0002af30 e1 0d 92 04 04 0d 92 09 12 dd f2 50 49 54 64 6f |...........PITdo|
0002af40 77 6e 5f 28 5a 25 29 0d 92 0e 6e e7 28 70 69 74 |wn_(Z%)...n.(pit|
0002af50 70 5f 25 2b 2d 5a 25 29 2a 73 69 74 69 66 5f 25 |p_%+-Z%)*sitif_%|
0002af60 2b 73 69 74 69 70 5f 25 2a 73 69 74 69 66 5f 25 |+sitip_%*sitif_%|
0002af70 3e 6d 61 78 50 5f 25 2a 73 69 74 69 70 5f 25 2a |>maxP_%*sitip_%*|
0002af80 73 69 74 69 66 5f 25 8c 5a 25 3d 2d 28 6d 61 78 |sitif_%.Z%=-(max|
0002af90 50 5f 25 2a 73 69 74 69 70 5f 25 2d 28 70 69 74 |P_%*sitip_%-(pit|
0002afa0 70 5f 25 2b 73 69 74 69 70 5f 25 29 29 3a e7 5a |p_%+sitip_%)):.Z|
0002afb0 25 3d 30 8c e1 0d 92 13 1b e7 70 69 74 70 5f 25 |%=0.......pitp_%|
0002afc0 2b 2d 5a 25 3c 30 8c 5a 25 3d 70 69 74 70 5f 25 |+-Z%<0.Z%=pitp_%|
0002afd0 0d 92 18 2b e7 70 69 74 70 5f 25 2b 2d 5a 25 3e |...+.pitp_%+-Z%>|
0002afe0 6d 61 78 50 5f 25 2a 73 69 74 69 70 5f 25 2d 73 |maxP_%*sitip_%-s|
0002aff0 69 74 69 70 5f 25 8c 5a 25 3d 30 0d 92 1d 68 e7 |itip_%.Z%=0...h.|
0002b000 28 70 69 74 70 5f 25 2b 2d 5a 25 29 2a 73 69 74 |(pitp_%+-Z%)*sit|
0002b010 69 66 5f 25 2b 73 69 74 69 70 5f 25 2a 73 69 74 |if_%+sitip_%*sit|
0002b020 69 66 5f 25 3c 3d 6d 61 78 50 5f 25 2a 73 69 74 |if_%<=maxP_%*sit|
0002b030 69 70 5f 25 2a 73 69 74 69 66 5f 25 8c f2 67 65 |ip_%*sitif_%..ge|
0002b040 74 50 49 54 64 61 74 5f 3a 70 69 74 70 5f 25 2d |tPITdat_:pitp_%-|
0002b050 3d 5a 25 3a f2 73 65 74 50 49 54 64 61 74 5f 28 |=Z%:.setPITdat_(|
0002b060 5a 25 29 0d 92 22 05 e1 0d 92 27 04 0d 92 2c 12 |Z%).."....'...,.|
0002b070 dd f2 42 49 54 64 6f 77 6e 5f 28 5a 25 29 0d 92 |..BITdown_(Z%)..|
0002b080 31 6e e7 28 62 69 74 70 5f 25 2b 2d 5a 25 29 2a |1n.(bitp_%+-Z%)*|
0002b090 62 69 74 69 66 5f 25 2b 73 69 74 69 70 5f 25 2a |bitif_%+sitip_%*|
0002b0a0 62 69 74 69 66 5f 25 3e 6d 61 78 42 5f 25 2a 73 |bitif_%>maxB_%*s|
0002b0b0 69 74 69 70 5f 25 2a 62 69 74 69 66 5f 25 8c 5a |itip_%*bitif_%.Z|
0002b0c0 25 3d 2d 28 6d 61 78 42 5f 25 2a 73 69 74 69 70 |%=-(maxB_%*sitip|
0002b0d0 5f 25 2d 28 62 69 74 70 5f 25 2b 73 69 74 69 70 |_%-(bitp_%+sitip|
0002b0e0 5f 25 29 29 3a e7 5a 25 3d 30 8c e1 0d 92 36 1b |_%)):.Z%=0....6.|
0002b0f0 e7 62 69 74 70 5f 25 2b 2d 5a 25 3c 30 8c 5a 25 |.bitp_%+-Z%<0.Z%|
0002b100 3d 62 69 74 70 5f 25 0d 92 3b 2b e7 62 69 74 70 |=bitp_%..;+.bitp|
0002b110 5f 25 2b 2d 5a 25 3e 6d 61 78 42 5f 25 2a 62 69 |_%+-Z%>maxB_%*bi|
0002b120 74 69 70 5f 25 2d 62 69 74 69 70 5f 25 8c 5a 25 |tip_%-bitip_%.Z%|
0002b130 3d 30 0d 92 40 68 e7 28 62 69 74 70 5f 25 2b 2d |=0..@h.(bitp_%+-|
0002b140 5a 25 29 2a 62 69 74 69 66 5f 25 2b 73 69 74 69 |Z%)*bitif_%+siti|
0002b150 70 5f 25 2a 62 69 74 69 66 5f 25 3c 3d 6d 61 78 |p_%*bitif_%<=max|
0002b160 42 5f 25 2a 73 69 74 69 70 5f 25 2a 62 69 74 69 |B_%*sitip_%*biti|
0002b170 66 5f 25 8c f2 67 65 74 42 49 54 64 61 74 5f 3a |f_%..getBITdat_:|
0002b180 62 69 74 70 5f 25 2d 3d 5a 25 3a f2 73 65 74 42 |bitp_%-=Z%:.setB|
0002b190 49 54 64 61 74 5f 28 5a 25 29 0d 92 45 05 e1 0d |ITdat_(Z%)..E...|
0002b1a0 92 4a 04 0d 92 4f 1a dd f2 49 54 75 70 5f 28 5a |.J...O...ITup_(Z|
0002b1b0 25 29 3a e7 69 74 70 5f 25 3d 30 8c e1 0d 92 54 |%):.itp_%=0....T|
0002b1c0 18 e7 69 74 70 5f 25 2d 5a 25 3c 30 8c 5a 25 3d |..itp_%-Z%<0.Z%=|
0002b1d0 69 74 70 5f 25 0d 92 59 45 e7 69 74 70 5f 25 2d |itp_%..YE.itp_%-|
0002b1e0 5a 25 3e 3d 30 8c f2 67 65 74 49 54 64 61 74 5f |Z%>=0..getITdat_|
0002b1f0 28 30 29 3a f2 67 65 74 49 54 64 61 74 74 6f 74 |(0):.getITdattot|
0002b200 5f 3a 69 74 70 5f 25 2d 3d 5a 25 3a f2 73 65 74 |_:itp_%-=Z%:.set|
0002b210 49 54 64 61 74 5f 28 5a 25 29 0d 92 5e 05 e1 0d |ITdat_(Z%)..^...|
0002b220 92 63 04 0d 92 68 1c dd f2 53 49 54 75 70 5f 28 |.c...h...SITup_(|
0002b230 5a 25 29 3a e7 73 69 74 70 5f 25 3d 30 8c e1 0d |Z%):.sitp_%=0...|
0002b240 92 6d 1a e7 73 69 74 70 5f 25 2d 5a 25 3c 30 8c |.m..sitp_%-Z%<0.|
0002b250 5a 25 3d 73 69 74 70 5f 25 0d 92 72 38 e7 73 69 |Z%=sitp_%..r8.si|
0002b260 74 70 5f 25 2d 5a 25 3e 3d 30 8c f2 67 65 74 53 |tp_%-Z%>=0..getS|
0002b270 49 54 64 61 74 5f 3a 73 69 74 70 5f 25 2d 3d 5a |ITdat_:sitp_%-=Z|
0002b280 25 3a f2 73 65 74 53 49 54 64 61 74 5f 28 5a 25 |%:.setSITdat_(Z%|
0002b290 29 0d 92 77 05 e1 0d 92 7c 1c dd f2 54 49 54 75 |)..w....|...TITu|
0002b2a0 70 5f 28 5a 25 29 3a e7 74 69 74 70 5f 25 3d 30 |p_(Z%):.titp_%=0|
0002b2b0 8c e1 0d 92 81 1a e7 74 69 74 70 5f 25 2d 5a 25 |.......titp_%-Z%|
0002b2c0 3c 30 8c 5a 25 3d 74 69 74 70 5f 25 0d 92 86 38 |<0.Z%=titp_%...8|
0002b2d0 e7 74 69 74 70 5f 25 2d 5a 25 3e 3d 30 8c f2 67 |.titp_%-Z%>=0..g|
0002b2e0 65 74 54 49 54 64 61 74 5f 3a 74 69 74 70 5f 25 |etTITdat_:titp_%|
0002b2f0 2d 3d 5a 25 3a f2 73 65 74 54 49 54 64 61 74 5f |-=Z%:.setTITdat_|
0002b300 28 5a 25 29 0d 92 8b 05 e1 0d 92 90 1c dd f2 50 |(Z%)...........P|
0002b310 49 54 75 70 5f 28 5a 25 29 3a e7 70 69 74 70 5f |ITup_(Z%):.pitp_|
0002b320 25 3d 30 8c e1 0d 92 95 1a e7 70 69 74 70 5f 25 |%=0.......pitp_%|
0002b330 2d 5a 25 3c 30 8c 5a 25 3d 70 69 74 70 5f 25 0d |-Z%<0.Z%=pitp_%.|
0002b340 92 9a 38 e7 70 69 74 70 5f 25 2d 5a 25 3e 3d 30 |..8.pitp_%-Z%>=0|
0002b350 8c f2 67 65 74 50 49 54 64 61 74 5f 3a 70 69 74 |..getPITdat_:pit|
0002b360 70 5f 25 2d 3d 5a 25 3a f2 73 65 74 50 49 54 64 |p_%-=Z%:.setPITd|
0002b370 61 74 5f 28 5a 25 29 0d 92 9f 05 e1 0d 92 a4 1c |at_(Z%).........|
0002b380 dd f2 42 49 54 75 70 5f 28 5a 25 29 3a e7 62 69 |..BITup_(Z%):.bi|
0002b390 74 70 5f 25 3d 30 8c e1 0d 92 a9 1a e7 62 69 74 |tp_%=0.......bit|
0002b3a0 70 5f 25 2d 5a 25 3c 30 8c 5a 25 3d 62 69 74 70 |p_%-Z%<0.Z%=bitp|
0002b3b0 5f 25 0d 92 ae 38 e7 62 69 74 70 5f 25 2d 5a 25 |_%...8.bitp_%-Z%|
0002b3c0 3e 3d 30 8c f2 67 65 74 42 49 54 64 61 74 5f 3a |>=0..getBITdat_:|
0002b3d0 62 69 74 70 5f 25 2d 3d 5a 25 3a f2 73 65 74 42 |bitp_%-=Z%:.setB|
0002b3e0 49 54 64 61 74 5f 28 5a 25 29 0d 92 b3 05 e1 0d |ITdat_(Z%)......|
0002b3f0 92 b8 04 0d 92 bd 12 dd f2 49 54 70 61 67 65 5f |.........ITpage_|
0002b400 28 56 5f 25 29 0d 92 c2 08 ea 20 5a 25 0d 92 c7 |(V_%)..... Z%...|
0002b410 17 e7 21 69 25 3c 31 84 21 69 25 3e 69 74 69 6e |..!i%<1.!i%>itin|
0002b420 5f 25 8c e1 0d 92 cc 4f 5a 25 3d 21 69 25 3a e7 |_%.....OZ%=!i%:.|
0002b430 56 5f 25 3c 30 8c f2 49 54 64 6f 77 6e 5f 28 56 |V_%<0..ITdown_(V|
0002b440 5f 25 29 3a e7 56 5f 25 3c 2d 31 3a e7 69 74 70 |_%):.V_%<-1:.itp|
0002b450 5f 25 3d 6d 61 78 49 5f 25 2a 69 74 69 70 5f 25 |_%=maxI_%*itip_%|
0002b460 2d 69 74 69 70 5f 25 8c 5a 25 3d 69 74 69 6e 5f |-itip_%.Z%=itin_|
0002b470 25 2d 35 0d 92 d1 2b e7 56 5f 25 3e 30 8c f2 49 |%-5...+.V_%>0..I|
0002b480 54 75 70 5f 28 56 5f 25 29 3a e7 56 5f 25 3e 31 |Tup_(V_%):.V_%>1|
0002b490 3a e7 69 74 70 5f 25 3d 30 8c 5a 25 3d 31 0d 92 |:.itp_%=0.Z%=1..|
0002b4a0 d6 15 f2 73 65 74 43 31 5f 28 69 6e 76 77 25 2c |...setC1_(invw%,|
0002b4b0 5a 25 29 0d 92 db 05 e1 0d 92 e0 04 0d 92 e5 13 |Z%).............|
0002b4c0 dd f2 53 49 54 70 61 67 65 5f 28 56 5f 25 29 0d |..SITpage_(V_%).|
0002b4d0 92 ea 08 ea 20 5a 25 0d 92 ef 18 e7 21 69 25 3c |.... Z%.....!i%<|
0002b4e0 31 84 21 69 25 3e 73 69 74 69 6e 5f 25 8c e1 0d |1.!i%>sitin_%...|
0002b4f0 92 f4 70 5a 25 3d 21 69 25 3a e7 56 5f 25 3c 30 |..pZ%=!i%:.V_%<0|
0002b500 8c f2 53 49 54 64 6f 77 6e 5f 28 56 5f 25 29 3a |..SITdown_(V_%):|
0002b510 e7 56 5f 25 3c 2d 31 3a e7 73 69 74 70 5f 25 3d |.V_%<-1:.sitp_%=|
0002b520 6d 61 78 53 5f 25 2a 73 69 74 69 70 5f 25 2d 73 |maxS_%*sitip_%-s|
0002b530 69 74 69 70 5f 25 8c 5a 25 3d 73 69 74 69 6e 5f |itip_%.Z%=sitin_|
0002b540 25 2d 28 73 69 74 69 66 5f 25 2d 28 28 21 69 25 |%-(sitif_%-((!i%|
0002b550 2d 31 29 83 73 69 74 69 66 5f 25 2b 31 29 29 0d |-1).sitif_%+1)).|
0002b560 92 f9 3d e7 56 5f 25 3e 30 8c f2 53 49 54 75 70 |..=.V_%>0..SITup|
0002b570 5f 28 56 5f 25 29 3a e7 56 5f 25 3e 31 3a e7 73 |_(V_%):.V_%>1:.s|
0002b580 69 74 70 5f 25 3d 30 8c 5a 25 3d 28 21 69 25 2d |itp_%=0.Z%=(!i%-|
0002b590 31 29 83 73 69 74 69 66 5f 25 2b 31 0d 92 fe 16 |1).sitif_%+1....|
0002b5a0 f2 73 65 74 43 31 5f 28 73 61 6c 65 64 25 2c 5a |.setC1_(saled%,Z|
0002b5b0 25 29 0d 93 03 05 e1 0d 93 08 04 0d 93 0d 13 dd |%)..............|
0002b5c0 f2 54 49 54 70 61 67 65 5f 28 56 5f 25 29 0d 93 |.TITpage_(V_%)..|
0002b5d0 12 08 ea 20 5a 25 0d 93 17 18 e7 21 69 25 3c 31 |... Z%.....!i%<1|
0002b5e0 84 21 69 25 3e 73 69 74 69 6e 5f 25 8c e1 0d 93 |.!i%>sitin_%....|
0002b5f0 1c 70 5a 25 3d 21 69 25 3a e7 56 5f 25 3c 30 8c |.pZ%=!i%:.V_%<0.|
0002b600 f2 54 49 54 64 6f 77 6e 5f 28 56 5f 25 29 3a e7 |.TITdown_(V_%):.|
0002b610 56 5f 25 3c 2d 31 3a e7 74 69 74 70 5f 25 3d 6d |V_%<-1:.titp_%=m|
0002b620 61 78 54 5f 25 2a 73 69 74 69 70 5f 25 2d 73 69 |axT_%*sitip_%-si|
0002b630 74 69 70 5f 25 8c 5a 25 3d 73 69 74 69 6e 5f 25 |tip_%.Z%=sitin_%|
0002b640 2d 28 73 69 74 69 66 5f 25 2d 28 28 21 69 25 2d |-(sitif_%-((!i%-|
0002b650 31 29 83 73 69 74 69 66 5f 25 2b 31 29 29 0d 93 |1).sitif_%+1))..|
0002b660 21 3d e7 56 5f 25 3e 30 8c f2 54 49 54 75 70 5f |!=.V_%>0..TITup_|
0002b670 28 56 5f 25 29 3a e7 56 5f 25 3e 31 3a e7 74 69 |(V_%):.V_%>1:.ti|
0002b680 74 70 5f 25 3d 30 8c 5a 25 3d 28 21 69 25 2d 31 |tp_%=0.Z%=(!i%-1|
0002b690 29 83 73 69 74 69 66 5f 25 2b 31 0d 93 26 16 f2 |).sitif_%+1..&..|
0002b6a0 73 65 74 43 31 5f 28 73 74 61 6e 64 25 2c 5a 25 |setC1_(stand%,Z%|
0002b6b0 29 0d 93 2b 05 e1 0d 93 30 04 0d 93 35 13 dd f2 |)..+....0...5...|
0002b6c0 50 49 54 70 61 67 65 5f 28 56 5f 25 29 0d 93 3a |PITpage_(V_%)..:|
0002b6d0 08 ea 20 5a 25 0d 93 3f 18 e7 21 69 25 3c 31 84 |.. Z%..?..!i%<1.|
0002b6e0 21 69 25 3e 73 69 74 69 6e 5f 25 8c e1 0d 93 44 |!i%>sitin_%....D|
0002b6f0 70 5a 25 3d 21 69 25 3a e7 56 5f 25 3c 30 8c f2 |pZ%=!i%:.V_%<0..|
0002b700 50 49 54 64 6f 77 6e 5f 28 56 5f 25 29 3a e7 56 |PITdown_(V_%):.V|
0002b710 5f 25 3c 2d 31 3a e7 70 69 74 70 5f 25 3d 6d 61 |_%<-1:.pitp_%=ma|
0002b720 78 50 5f 25 2a 73 69 74 69 70 5f 25 2d 73 69 74 |xP_%*sitip_%-sit|
0002b730 69 70 5f 25 8c 5a 25 3d 73 69 74 69 6e 5f 25 2d |ip_%.Z%=sitin_%-|
0002b740 28 73 69 74 69 66 5f 25 2d 28 28 21 69 25 2d 31 |(sitif_%-((!i%-1|
0002b750 29 83 73 69 74 69 66 5f 25 2b 31 29 29 0d 93 49 |).sitif_%+1))..I|
0002b760 3d e7 56 5f 25 3e 30 8c f2 50 49 54 75 70 5f 28 |=.V_%>0..PITup_(|
0002b770 56 5f 25 29 3a e7 56 5f 25 3e 31 3a e7 70 69 74 |V_%):.V_%>1:.pit|
0002b780 70 5f 25 3d 30 8c 5a 25 3d 28 21 69 25 2d 31 29 |p_%=0.Z%=(!i%-1)|
0002b790 83 73 69 74 69 66 5f 25 2b 31 0d 93 4e 16 f2 73 |.sitif_%+1..N..s|
0002b7a0 65 74 43 31 5f 28 70 61 6c 65 64 25 2c 5a 25 29 |etC1_(paled%,Z%)|
0002b7b0 0d 93 53 05 e1 0d 93 58 04 0d 93 5d 13 dd f2 42 |..S....X...]...B|
0002b7c0 49 54 70 61 67 65 5f 28 56 5f 25 29 0d 93 62 08 |ITpage_(V_%)..b.|
0002b7d0 ea 20 5a 25 0d 93 67 18 e7 21 69 25 3c 31 84 21 |. Z%..g..!i%<1.!|
0002b7e0 69 25 3e 62 69 74 69 6e 5f 25 8c e1 0d 93 6c 70 |i%>bitin_%....lp|
0002b7f0 5a 25 3d 21 69 25 3a e7 56 5f 25 3c 30 8c f2 42 |Z%=!i%:.V_%<0..B|
0002b800 49 54 64 6f 77 6e 5f 28 56 5f 25 29 3a e7 56 5f |ITdown_(V_%):.V_|
0002b810 25 3c 2d 31 3a e7 62 69 74 70 5f 25 3d 6d 61 78 |%<-1:.bitp_%=max|
0002b820 42 5f 25 2a 62 69 74 69 70 5f 25 2d 62 69 74 69 |B_%*bitip_%-biti|
0002b830 70 5f 25 8c 5a 25 3d 62 69 74 69 6e 5f 25 2d 28 |p_%.Z%=bitin_%-(|
0002b840 62 69 74 69 66 5f 25 2d 28 28 21 69 25 2d 31 29 |bitif_%-((!i%-1)|
0002b850 83 62 69 74 69 66 5f 25 2b 31 29 29 0d 93 71 3d |.bitif_%+1))..q=|
0002b860 e7 56 5f 25 3e 30 8c f2 42 49 54 75 70 5f 28 56 |.V_%>0..BITup_(V|
0002b870 5f 25 29 3a e7 56 5f 25 3e 31 3a e7 62 69 74 70 |_%):.V_%>1:.bitp|
0002b880 5f 25 3d 30 8c 5a 25 3d 28 21 69 25 2d 31 29 83 |_%=0.Z%=(!i%-1).|
0002b890 62 69 74 69 66 5f 25 2b 31 0d 93 76 16 f2 73 65 |bitif_%+1..v..se|
0002b8a0 74 43 31 5f 28 62 61 6e 6b 6c 25 2c 5a 25 29 0d |tC1_(bankl%,Z%).|
0002b8b0 93 7b 05 e1 0d 93 80 04 0d 93 85 0b dd a4 49 54 |.{............IT|
0002b8c0 73 6e 5f 0d 93 8a 16 ea 20 41 25 2c 42 25 2c 42 |sn_..... A%,B%,B|
0002b8d0 24 2c 41 24 2c 5a 25 2c 41 0d 93 8f 07 ea 20 85 |$,A$,Z%,A..... .|
0002b8e0 0d 93 94 41 ee 20 85 20 ea 3a f7 20 85 3a f2 70 |...A. . .:. .:.p|
0002b8f0 65 5f 28 22 43 61 6e 27 74 20 63 61 6c 63 75 6c |e_("Can't calcul|
0002b900 61 74 65 20 71 75 61 6e 74 69 74 79 3f 22 2b 22 |ate quantity?"+"|
0002b910 20 28 22 2b a4 65 72 72 5f 2b 22 29 22 29 3a 3d | ("+.err_+")"):=|
0002b920 b9 0d 93 99 0f 49 54 73 75 70 63 68 5f 25 3d 30 |.....ITsupch_%=0|
0002b930 0d 93 9e 13 c8 8e 20 21 69 25 83 69 74 69 66 5f |...... !i%.itif_|
0002b940 25 20 ca 0d 93 a3 53 c9 20 31 3a 49 54 6e 5f 25 |% ....S. 1:ITn_%|
0002b950 28 21 69 25 2f 69 74 69 66 5f 25 2b 69 74 70 5f |(!i%/itif_%+itp_|
0002b960 25 29 3d 30 3a 49 54 6f 73 5f 24 28 21 69 25 2f |%)=0:ITos_$(!i%/|
0002b970 69 74 69 66 5f 25 2b 69 74 70 5f 25 29 3d 22 22 |itif_%+itp_%)=""|
0002b980 3a 5a 25 3d a4 70 49 49 28 69 6e 76 77 25 2c 21 |:Z%=.pII(invw%,!|
0002b990 69 25 2c 22 22 29 0d 94 02 6a c9 20 33 3a 41 24 |i%,"")...j. 3:A$|
0002b9a0 3d a4 67 49 64 28 69 6e 76 77 25 2c 21 69 25 29 |=.gId(invw%,!i%)|
0002b9b0 3a e7 a7 41 24 2c 22 3a 22 29 3d 30 3a e7 41 24 |:..A$,":")=0:.A$|
0002b9c0 3c 3e 22 22 3a 41 3d a0 28 41 24 29 2a 31 30 30 |<>"":A=.(A$)*100|
0002b9d0 3a 41 24 3d a4 63 6f 6e 76 69 73 5f 28 41 2c 22 |:A$=.convis_(A,"|
0002b9e0 22 29 3a e7 c2 41 24 2c 33 29 3d 22 2e 30 30 22 |"):..A$,3)=".00"|
0002b9f0 8c 41 24 3d c0 41 24 2c a9 28 41 24 29 2d 33 29 |.A$=.A$,.(A$)-3)|
0002ba00 0d 94 07 28 e7 41 24 3d 22 22 3a e7 a4 67 49 64 |...(.A$="":..gId|
0002ba10 28 69 6e 76 77 25 2c 21 69 25 2d 32 29 3c 3e 22 |(invw%,!i%-2)<>"|
0002ba20 22 3a 41 24 3d 22 31 22 0d 94 0c 21 e7 41 24 3c |":A$="1"...!.A$<|
0002ba30 3e 22 22 3a 5a 25 3d a4 70 49 49 28 69 6e 76 77 |>"":Z%=.pII(invw|
0002ba40 25 2c 21 69 25 2c 41 24 29 0d 94 11 93 c9 20 34 |%,!i%,A$)..... 4|
0002ba50 3a 41 24 3d a4 67 49 64 28 69 6e 76 77 25 2c 21 |:A$=.gId(invw%,!|
0002ba60 69 25 29 3a 41 3d a4 63 6f 6e 76 73 69 5f 28 41 |i%):A=.convsi_(A|
0002ba70 24 29 3a 5a 25 3d a4 70 49 49 28 69 6e 76 77 25 |$):Z%=.pII(invw%|
0002ba80 2c 21 69 25 2c a4 63 6f 6e 76 69 73 5f 28 41 2c |,!i%,.convis_(A,|
0002ba90 22 22 29 29 3a e7 24 21 49 54 70 72 69 5f 25 3d |"")):.$!ITpri_%=|
0002baa0 22 52 65 74 2e 49 6e 63 22 8c 49 54 72 5f 28 21 |"Ret.Inc".ITr_(!|
0002bab0 69 25 2f 69 74 69 66 5f 25 2b 69 74 70 5f 25 29 |i%/itif_%+itp_%)|
0002bac0 3d 41 20 8b 49 54 72 5f 28 21 69 25 2f 69 74 69 |=A .ITr_(!i%/iti|
0002bad0 66 5f 25 2b 69 74 70 5f 25 29 3d 30 0d 94 16 3a |f_%+itp_%)=0...:|
0002bae0 e7 a4 67 49 64 28 69 6e 76 77 25 2c 21 69 25 2d |..gId(invw%,!i%-|
0002baf0 31 29 3d 22 22 3a e7 41 24 3c 3e 22 22 3a 5a 25 |1)="":.A$<>"":Z%|
0002bb00 3d a4 70 49 49 28 69 6e 76 77 25 2c 21 69 25 2d |=.pII(invw%,!i%-|
0002bb10 31 2c 22 31 22 29 0d 94 1b 65 e7 a4 67 49 64 28 |1,"1")...e..gId(|
0002bb20 69 6e 76 77 25 2c 21 69 25 2b 31 29 3d 22 22 3a |invw%,!i%+1)="":|
0002bb30 e7 43 53 75 44 69 73 63 5f 24 28 73 75 70 70 6c |.CSuDisc_$(suppl|
0002bb40 79 31 5f 25 29 3c 3e 22 22 3a e7 41 24 3c 3e 22 |y1_%)<>"":.A$<>"|
0002bb50 22 8c 5a 25 3d a4 70 49 49 28 69 6e 76 77 25 2c |".Z%=.pII(invw%,|
0002bb60 21 69 25 2b 31 2c 43 53 75 44 69 73 63 5f 24 28 |!i%+1,CSuDisc_$(|
0002bb70 73 75 70 70 6c 79 31 5f 25 29 29 0d 94 20 2d c9 |supply1_%)).. -.|
0002bb80 20 35 3a 49 54 64 5f 25 28 21 69 25 2f 69 74 69 | 5:ITd_%(!i%/iti|
0002bb90 66 5f 25 2b 69 74 70 5f 25 29 3d 97 28 24 21 49 |f_%+itp_%)=.($!I|
0002bba0 54 44 69 73 63 5f 25 29 0d 94 25 6e c9 20 30 3a |TDisc_%)..%n. 0:|
0002bbb0 e7 21 69 25 3e 69 74 69 66 5f 25 3a e7 a4 67 49 |.!i%>itif_%:..gI|
0002bbc0 64 28 69 6e 76 77 25 2c 21 69 25 29 3d 22 22 3a |d(invw%,!i%)="":|
0002bbd0 e7 a4 67 49 64 28 69 6e 76 77 25 2c 21 69 25 2d |..gId(invw%,!i%-|
0002bbe0 32 29 3c 3e 22 22 3a 41 24 3d a4 67 49 64 28 69 |2)<>"":A$=.gId(i|
0002bbf0 6e 76 77 25 2c 21 69 25 2d 69 74 69 66 5f 25 29 |nvw%,!i%-itif_%)|
0002bc00 3a 5a 25 3d a4 70 49 49 28 69 6e 76 77 25 2c 21 |:Z%=.pII(invw%,!|
0002bc10 69 25 2c 41 24 29 0d 94 2a 05 cb 0d 94 2f 28 42 |i%,A$)..*..../(B|
0002bc20 25 3d 21 69 25 2d 31 3a f2 67 65 74 49 54 64 61 |%=!i%-1:.getITda|
0002bc30 74 5f 28 30 29 3a f2 67 65 74 49 54 64 61 74 74 |t_(0):.getITdatt|
0002bc40 6f 74 5f 0d 94 34 3c e7 a4 67 49 64 28 69 6e 76 |ot_..4<..gId(inv|
0002bc50 77 25 2c 36 32 29 3c 3e 49 54 73 73 73 5f 24 28 |w%,62)<>ITsss_$(|
0002bc60 38 29 8c 5a 25 3d a4 70 49 49 28 69 6e 76 77 25 |8).Z%=.pII(invw%|
0002bc70 2c 36 32 2c 49 54 73 73 73 5f 24 28 38 29 29 0d |,62,ITsss_$(8)).|
0002bc80 94 39 3c e7 a4 67 49 64 28 69 6e 76 77 25 2c 36 |.9<..gId(invw%,6|
0002bc90 33 29 3c 3e 49 54 73 73 73 5f 24 28 39 29 8c 5a |3)<>ITsss_$(9).Z|
0002bca0 25 3d a4 70 49 49 28 69 6e 76 77 25 2c 36 33 2c |%=.pII(invw%,63,|
0002bcb0 49 54 73 73 73 5f 24 28 39 29 29 0d 94 3e 3e e7 |ITsss_$(9))..>>.|
0002bcc0 a4 67 49 64 28 69 6e 76 77 25 2c 36 34 29 3c 3e |.gId(invw%,64)<>|
0002bcd0 49 54 73 73 73 5f 24 28 31 30 29 8c 5a 25 3d a4 |ITsss_$(10).Z%=.|
0002bce0 70 49 49 28 69 6e 76 77 25 2c 36 34 2c 49 54 73 |pII(invw%,64,ITs|
0002bcf0 73 73 5f 24 28 31 30 29 29 0d 94 43 3e e7 a4 67 |ss_$(10))..C>..g|
0002bd00 49 64 28 69 6e 76 77 25 2c 36 35 29 3c 3e 49 54 |Id(invw%,65)<>IT|
0002bd10 73 73 73 5f 24 28 31 31 29 8c 5a 25 3d a4 70 49 |sss_$(11).Z%=.pI|
0002bd20 49 28 69 6e 76 77 25 2c 36 35 2c 49 54 73 73 73 |I(invw%,65,ITsss|
0002bd30 5f 24 28 31 31 29 29 0d 94 48 66 e7 a4 67 49 64 |_$(11))..Hf..gId|
0002bd40 28 69 6e 76 77 25 2c 42 25 2f 69 74 69 66 5f 25 |(invw%,B%/itif_%|
0002bd50 2b 35 34 29 3c 3e 49 54 74 5f 24 28 42 25 2f 69 |+54)<>ITt_$(B%/i|
0002bd60 74 69 66 5f 25 2b 69 74 70 5f 25 29 8c 3d a4 70 |tif_%+itp_%).=.p|
0002bd70 49 49 28 69 6e 76 77 25 2c 42 25 2f 69 74 69 66 |II(invw%,B%/itif|
0002bd80 5f 25 2b 35 34 2c 49 54 74 5f 24 28 42 25 2f 69 |_%+54,ITt_$(B%/i|
0002bd90 74 69 66 5f 25 2b 69 74 70 5f 25 29 29 0d 94 4d |tif_%+itp_%))..M|
0002bda0 06 3d b9 0d 94 52 04 0d 94 57 70 dd f2 73 77 5f |.=...R...Wp..sw_|
0002bdb0 28 41 5f 25 29 3a ea 20 5a 25 2c 5a 5f 25 3a e3 |(A_%):. Z%,Z_%:.|
0002bdc0 5a 25 3d 31 b8 31 36 3a e7 41 5f 25 3d 6c 6f 77 |Z%=1.16:.A_%=low|
0002bdd0 5f 25 28 5a 25 29 3a 6c 6f 77 5f 25 28 5a 25 29 |_%(Z%):low_%(Z%)|
0002bde0 3d 30 3a 5a 5f 25 3d 5a 25 3a 5a 25 3d 31 36 3a |=0:Z_%=Z%:Z%=16:|
0002bdf0 ed 3a e3 5a 25 3d 5a 5f 25 b8 31 35 3a 6c 6f 77 |.:.Z%=Z_%.15:low|
0002be00 5f 25 28 5a 25 29 3d 6c 6f 77 5f 25 28 5a 25 2b |_%(Z%)=low_%(Z%+|
0002be10 31 29 3a ed 20 8b ed 0d 94 5c 11 6c 6f 77 5f 25 |1):. ....\.low_%|
0002be20 28 31 36 29 3d 30 3a e1 0d 94 61 47 dd f2 6f 77 |(16)=0:...aG..ow|
0002be30 5f 3a ea 20 5a 25 2c 5a 5f 25 3a f5 3a 5a 5f 25 |_:. Z%,Z_%:.:Z_%|
0002be40 3d 2d 31 3a e3 5a 25 3d 31 36 b8 31 88 2d 31 3a |=-1:.Z%=16.1.-1:|
0002be50 e7 6c 6f 77 5f 25 28 5a 25 29 3e 30 8c 5a 5f 25 |.low_%(Z%)>0.Z_%|
0002be60 3d 6c 6f 77 5f 25 28 5a 25 29 3a 5a 25 3d 31 0d |=low_%(Z%):Z%=1.|
0002be70 94 66 43 ed 3a e7 5a 5f 25 3e 30 3a e7 a4 77 53 |.fC.:.Z_%>0:..wS|
0002be80 28 5a 5f 25 21 31 32 29 3a f2 6f 57 28 5a 5f 25 |(Z_%!12):.oW(Z_%|
0002be90 29 3a f2 67 43 28 5a 5f 25 29 20 8b e7 5a 5f 25 |):.gC(Z_%) ..Z_%|
0002bea0 3e 30 3a f2 73 77 5f 28 5a 5f 25 29 3a 5a 5f 25 |>0:.sw_(Z_%):Z_%|
0002beb0 3d 30 0d 94 6b 2e fd 5a 5f 25 3c 3e 30 3a e7 5a |=0..k..Z_%<>0:.Z|
0002bec0 5f 25 3d 2d 31 3a e7 24 77 6e 25 3c 3e 22 45 64 |_%=-1:.$wn%<>"Ed|
0002bed0 69 74 49 74 22 3a 5a 25 3d a4 6d 61 69 6e 57 5f |itIt":Z%=.mainW_|
0002bee0 0d 94 70 05 e1 0d 94 75 04 0d 94 7a 5a dd a4 6c |..p....u...zZ..l|
0002bef0 64 65 6c 65 74 65 5f 28 5a 5f 25 29 3a e7 51 25 |delete_(Z_%):.Q%|
0002bf00 21 32 34 3d 32 37 3a e7 57 25 3e 30 3a e7 57 25 |!24=27:.W%>0:.W%|
0002bf10 21 31 32 3e 30 3a e7 6c 6f 77 5f 25 28 32 29 3e |!12>0:.low_%(2)>|
0002bf20 30 84 24 77 6e 25 3c 3e 22 45 64 69 74 49 74 22 |0.$wn%<>"EditIt"|
0002bf30 3a f2 65 4b 3a f2 63 6c 6f 73 65 57 28 57 25 29 |:.eK:.closeW(W%)|
0002bf40 3a 3d b9 0d 94 7f 1b e7 5a 5f 25 3d 31 3a 3d a4 |:=......Z_%=1:=.|
0002bf50 77 69 6e 64 6f 77 28 22 43 61 6c 63 22 29 0d 94 |window("Calc")..|
0002bf60 84 19 e7 5a 5f 25 3d 31 39 3a 73 61 5f 25 3d 31 |...Z_%=19:sa_%=1|
0002bf70 3a 3d a4 73 77 63 5f 0d 94 89 16 e7 5a 5f 25 3d |:=.swc_.....Z_%=|
0002bf80 34 36 31 3a 3d a4 49 6e 73 65 72 74 5f 0d 94 8e |461:=.Insert_...|
0002bf90 15 e7 5a 5f 25 3d 33 30 3a 3d a4 53 74 61 72 74 |..Z_%=30:=.Start|
0002bfa0 31 5f 0d 94 93 16 e7 5a 5f 25 3d 34 31 34 3a 3d |1_.....Z_%=414:=|
0002bfb0 a4 4c 65 66 74 31 31 5f 0d 94 98 17 e7 5a 5f 25 |.Left11_.....Z_%|
0002bfc0 3d 34 31 35 3a 3d a4 52 69 67 68 74 31 31 5f 0d |=415:=.Right11_.|
0002bfd0 94 9d 1e e7 5a 5f 25 3d 34 34 33 3a 73 61 5f 25 |....Z_%=443:sa_%|
0002bfe0 3d 31 3a 3d a4 61 6c 6c 63 6f 70 79 5f 0d 94 a2 |=1:=.allcopy_...|
0002bff0 1b e7 5a 5f 25 3d 34 31 31 3a 73 61 5f 25 3d 31 |..Z_%=411:sa_%=1|
0002c000 3a 3d a4 63 6f 70 79 5f 0d 94 a7 18 e7 5a 5f 25 |:=.copy_.....Z_%|
0002c010 3d 33 38 34 3a 3d a4 70 72 69 6e 74 6b 65 79 5f |=384:=.printkey_|
0002c020 0d 94 ac 14 e7 5a 5f 25 3d 38 3a 3d a4 63 72 65 |.....Z_%=8:=.cre|
0002c030 64 69 74 5f 0d 94 b1 14 e7 5a 5f 25 3d 31 37 8c |dit_.....Z_%=17.|
0002c040 3d a4 6d 61 69 6e 57 5f 0d 94 bb 27 e7 5a 5f 25 |=.mainW_...'.Z_%|
0002c050 3d 39 3a e7 24 77 6e 25 3d 22 49 6e 76 57 22 8c |=9:.$wn%="InvW".|
0002c060 73 61 5f 25 3d 31 3a 3d a4 49 54 6e 65 31 5f 0d |sa_%=1:=.ITne1_.|
0002c070 94 c0 23 e7 5a 5f 25 3d 39 3a e7 24 77 6e 25 3d |..#.Z_%=9:.$wn%=|
0002c080 22 43 75 73 74 6f 6d 57 22 8c 3d a4 69 6e 76 6f |"CustomW".=.invo|
0002c090 63 5f 0d 94 c5 5a e7 5a 5f 25 3d 35 3a e7 24 77 |c_...Z.Z_%=5:.$w|
0002c0a0 6e 25 3d 22 53 61 6c 65 64 22 84 24 77 6e 25 3d |n%="Saled".$wn%=|
0002c0b0 22 53 61 6c 65 64 46 57 22 84 24 77 6e 25 3d 22 |"SaledFW".$wn%="|
0002c0c0 53 61 6c 65 64 52 57 22 84 24 77 6e 25 3d 22 48 |SaledRW".$wn%="H|
0002c0d0 65 61 64 69 6e 67 73 22 80 73 61 6c 65 64 25 3e |eadings".saled%>|
0002c0e0 30 8c 3d a4 53 61 6c 65 64 52 57 5f 0d 94 ca 63 |0.=.SaledRW_...c|
0002c0f0 e7 5a 5f 25 3d 36 3a e7 24 77 6e 25 3d 22 53 61 |.Z_%=6:.$wn%="Sa|
0002c100 6c 65 64 22 84 24 77 6e 25 3d 22 53 61 6c 65 64 |led".$wn%="Saled|
0002c110 46 57 22 84 24 77 6e 25 3d 22 53 61 6c 65 64 52 |FW".$wn%="SaledR|
0002c120 57 22 80 73 61 6c 65 64 25 3e 30 84 24 77 6e 25 |W".saled%>0.$wn%|
0002c130 3d 22 48 65 61 64 69 6e 67 73 22 80 73 61 6c 65 |="Headings".sale|
0002c140 64 25 3e 30 8c 3d a4 53 61 6c 65 64 46 57 5f 0d |d%>0.=.SaledFW_.|
0002c150 94 cf 5b e7 5a 5f 25 3d 35 3a e7 24 77 6e 25 3d |..[.Z_%=5:.$wn%=|
0002c160 22 50 61 6c 65 64 22 84 24 77 6e 25 3d 22 50 61 |"Paled".$wn%="Pa|
0002c170 6c 65 64 46 57 22 84 24 77 6e 25 3d 22 50 61 6c |ledFW".$wn%="Pal|
0002c180 65 64 52 57 22 84 24 77 6e 25 3d 22 50 48 65 61 |edRW".$wn%="PHea|
0002c190 64 69 6e 67 73 22 80 70 61 6c 65 64 25 3e 30 8c |dings".paled%>0.|
0002c1a0 3d a4 50 61 6c 65 64 52 57 5f 0d 94 d4 64 e7 5a |=.PaledRW_...d.Z|
0002c1b0 5f 25 3d 36 3a e7 24 77 6e 25 3d 22 50 61 6c 65 |_%=6:.$wn%="Pale|
0002c1c0 64 22 84 24 77 6e 25 3d 22 50 61 6c 65 64 46 57 |d".$wn%="PaledFW|
0002c1d0 22 84 24 77 6e 25 3d 22 50 61 6c 65 64 52 57 22 |".$wn%="PaledRW"|
0002c1e0 80 70 61 6c 65 64 25 3e 30 84 24 77 6e 25 3d 22 |.paled%>0.$wn%="|
0002c1f0 50 48 65 61 64 69 6e 67 73 22 80 70 61 6c 65 64 |PHeadings".paled|
0002c200 25 3e 30 8c 3d a4 50 61 6c 65 64 46 57 5f 0d 94 |%>0.=.PaledFW_..|
0002c210 d9 54 e7 5a 5f 25 3d 35 3a e7 24 77 6e 25 3d 22 |.T.Z_%=5:.$wn%="|
0002c220 42 61 6e 6b 4c 22 84 24 77 6e 25 3d 22 42 61 6e |BankL".$wn%="Ban|
0002c230 6b 46 57 22 84 24 77 6e 25 3d 22 42 61 6e 6b 52 |kFW".$wn%="BankR|
0002c240 57 22 84 24 77 6e 25 3d 22 42 61 6e 6b 73 22 80 |W".$wn%="Banks".|
0002c250 62 61 6e 6b 6c 25 3e 30 8c 3d a4 42 61 6e 6b 52 |bankl%>0.=.BankR|
0002c260 57 5f 0d 94 de 5d e7 5a 5f 25 3d 36 3a e7 24 77 |W_...].Z_%=6:.$w|
0002c270 6e 25 3d 22 42 61 6e 6b 4c 22 84 24 77 6e 25 3d |n%="BankL".$wn%=|
0002c280 22 42 61 6e 6b 46 57 22 84 24 77 6e 25 3d 22 42 |"BankFW".$wn%="B|
0002c290 61 6e 6b 52 57 22 80 62 61 6e 6b 6c 25 3e 30 84 |ankRW".bankl%>0.|
0002c2a0 24 77 6e 25 3d 22 42 61 6e 6b 73 22 80 62 61 6e |$wn%="Banks".ban|
0002c2b0 6b 6c 25 3e 30 8c 3d a4 42 61 6e 6b 46 57 5f 0d |kl%>0.=.BankFW_.|
0002c2c0 94 e3 13 e7 5a 5f 25 3d 39 84 5a 5f 25 3d 35 3a |....Z_%=9.Z_%=5:|
0002c2d0 3d b9 0d 94 e8 34 e7 5a 5f 25 3c 3e 34 80 5a 5f |=....4.Z_%<>4.Z_|
0002c2e0 25 3c 3e 31 31 80 5a 5f 25 3c 3e 33 80 5a 5f 25 |%<>11.Z_%<>3.Z_%|
0002c2f0 3c 3e 31 38 80 5a 5f 25 3c 3e 36 80 5a 5f 25 3c |<>18.Z_%<>6.Z_%<|
0002c300 3e 32 32 8c 3d a3 0d 94 ed 68 ea 20 41 5f 25 2c |>22.=....h. A_%,|
0002c310 42 5f 25 2c 5a 25 2c 61 5f 25 2c 41 5f 24 3a 5a |B_%,Z%,a_%,A_$:Z|
0002c320 25 3d 28 21 69 25 2d 31 29 2f 73 69 74 69 66 5f |%=(!i%-1)/sitif_|
0002c330 25 3a 5a 25 3d 5a 25 2a 73 69 74 69 66 5f 25 3a |%:Z%=Z%*sitif_%:|
0002c340 e7 24 77 6e 25 3d 22 42 61 6e 6b 4c 22 8c 5a 25 |.$wn%="BankL".Z%|
0002c350 3d 28 21 69 25 2d 31 29 2f 62 69 74 69 66 5f 25 |=(!i%-1)/bitif_%|
0002c360 3a 5a 25 3d 5a 25 2a 62 69 74 69 66 5f 25 0d 94 |:Z%=Z%*bitif_%..|
0002c370 f2 5f e7 5a 5f 25 3d 34 84 5a 5f 25 3d 33 3a e7 |._.Z_%=4.Z_%=3:.|
0002c380 24 77 6e 25 3d 22 53 61 6c 65 64 22 84 24 77 6e |$wn%="Saled".$wn|
0002c390 25 3d 22 50 61 6c 65 64 22 84 24 77 6e 25 3d 22 |%="Paled".$wn%="|
0002c3a0 42 61 6e 6b 4c 22 8c 75 64 5f 24 28 30 29 3d 22 |BankL".ud_$(0)="|
0002c3b0 31 30 22 3a e7 24 77 6e 25 3d 22 42 61 6e 6b 4c |10":.$wn%="BankL|
0002c3c0 22 8c 75 64 5f 24 28 30 29 3d 22 37 22 0d 94 f7 |".ud_$(0)="7"...|
0002c3d0 60 e7 5a 5f 25 3d 31 31 3a e7 24 77 6e 25 3d 22 |`.Z_%=11:.$wn%="|
0002c3e0 53 61 6c 65 64 22 84 24 77 6e 25 3d 22 50 61 6c |Saled".$wn%="Pal|
0002c3f0 65 64 22 84 24 77 6e 25 3d 22 42 61 6e 6b 4c 22 |ed".$wn%="BankL"|
0002c400 8c 5a 25 3d 30 3a 75 64 5f 24 28 30 29 3d 22 35 |.Z%=0:ud_$(0)="5|
0002c410 34 22 3a e7 24 77 6e 25 3d 22 42 61 6e 6b 4c 22 |4":.$wn%="BankL"|
0002c420 8c 75 64 5f 24 28 30 29 3d 22 33 39 22 0d 94 fc |.ud_$(0)="39"...|
0002c430 53 e7 5a 5f 25 3d 31 38 3a e7 24 77 6e 25 3d 22 |S.Z_%=18:.$wn%="|
0002c440 53 61 6c 65 64 22 84 24 77 6e 25 3d 22 50 61 6c |Saled".$wn%="Pal|
0002c450 65 64 22 84 24 77 6e 25 3d 22 42 61 6e 6b 4c 22 |ed".$wn%="BankL"|
0002c460 3a e7 75 64 5f 24 28 30 29 3d 22 35 34 22 84 75 |:.ud_$(0)="54".u|
0002c470 64 5f 24 28 30 29 3d 22 33 39 22 8c 5a 25 3d 30 |d_$(0)="39".Z%=0|
0002c480 0d 95 01 43 e7 5a 5f 25 3d 31 38 3a e7 24 77 6e |...C.Z_%=18:.$wn|
0002c490 25 3d 22 53 61 6c 65 64 22 84 24 77 6e 25 3d 22 |%="Saled".$wn%="|
0002c4a0 50 61 6c 65 64 22 3a e7 75 64 5f 24 28 30 29 3d |Paled":.ud_$(0)=|
0002c4b0 22 33 39 22 84 75 64 5f 24 28 30 29 3d 22 37 22 |"39".ud_$(0)="7"|
0002c4c0 3a 3d a3 0d 95 06 37 e7 5a 5f 25 3d 31 38 3a e7 |:=....7.Z_%=18:.|
0002c4d0 24 77 6e 25 3d 22 42 61 6e 6b 4c 22 3a e7 75 64 |$wn%="BankL":.ud|
0002c4e0 5f 24 28 30 29 3d 22 35 34 22 84 75 64 5f 24 28 |_$(0)="54".ud_$(|
0002c4f0 30 29 3d 22 31 30 22 3a 3d a3 0d 95 0b 0d c8 8e |0)="10":=.......|
0002c500 20 24 77 6e 25 20 ca 0d 95 1a 3c c9 22 43 46 69 | $wn% ....<."CFi|
0002c510 6e 64 53 75 22 3a e7 5a 5f 25 3d 34 3a 24 21 43 |ndSu":.Z_%=4:$!C|
0002c520 53 53 75 70 70 6c 69 65 72 5f 25 3d 22 22 3a f2 |SSupplier_%="":.|
0002c530 72 49 28 57 25 2c 22 43 53 53 75 70 70 6c 69 65 |rI(W%,"CSSupplie|
0002c540 72 22 29 0d 95 1f 25 c9 22 53 61 6c 65 64 46 57 |r")...%."SaledFW|
0002c550 22 3a e7 5a 5f 25 3d 34 3a f2 75 70 64 61 74 65 |":.Z_%=4:.update|
0002c560 73 61 6c 65 64 31 64 5f 0d 95 24 25 c9 22 50 61 |saled1d_..$%."Pa|
0002c570 6c 65 64 46 57 22 3a e7 5a 5f 25 3d 34 3a f2 75 |ledFW":.Z_%=4:.u|
0002c580 70 64 61 74 65 70 61 6c 65 64 31 64 5f 0d 95 29 |pdatepaled1d_..)|
0002c590 23 c9 22 42 61 6e 6b 46 57 22 3a e7 5a 5f 25 3d |#."BankFW":.Z_%=|
0002c5a0 34 3a f2 75 70 64 61 74 65 62 61 6e 6b 31 64 5f |4:.updatebank1d_|
0002c5b0 0d 95 2e 1b c9 22 53 61 6c 65 64 22 3a e7 5a 5f |....."Saled":.Z_|
0002c5c0 25 3d 34 84 5a 5f 25 3d 31 31 8c 0d 95 33 ef e3 |%=4.Z_%=11...3..|
0002c5d0 41 5f 25 3d 5a 25 b8 5a 25 2b bb 28 75 64 5f 24 |A_%=Z%.Z%+.(ud_$|
0002c5e0 28 30 29 29 3a 75 64 5f 24 28 41 5f 25 2d 5a 25 |(0)):ud_$(A_%-Z%|
0002c5f0 2b 31 29 3d 53 49 54 65 5f 24 28 41 5f 25 2b 31 |+1)=SITe_$(A_%+1|
0002c600 2b 73 69 74 70 5f 25 2a 73 69 74 69 66 5f 25 29 |+sitp_%*sitif_%)|
0002c610 3a 42 5f 25 3d a4 70 49 49 28 73 61 6c 65 64 25 |:B_%=.pII(saled%|
0002c620 2c 41 5f 25 2b 31 2c 22 22 29 3a e7 41 5f 25 83 |,A_%+1,""):.A_%.|
0002c630 73 69 74 69 66 5f 25 3d 38 3a 61 5f 25 2b 3d 31 |sitif_%=8:a_%+=1|
0002c640 3a 75 64 5f 25 28 61 5f 25 29 3d 53 49 54 6e 5f |:ud_%(a_%)=SITn_|
0002c650 25 28 41 5f 25 2f 73 69 74 69 66 5f 25 2b 31 2b |%(A_%/sitif_%+1+|
0002c660 73 69 74 70 5f 25 29 3a 53 49 54 6e 5f 25 28 41 |sitp_%):SITn_%(A|
0002c670 5f 25 2f 73 69 74 69 66 5f 25 2b 31 2b 73 69 74 |_%/sitif_%+1+sit|
0002c680 70 5f 25 29 3d 30 3a e7 53 49 54 73 5f 24 28 41 |p_%)=0:.SITs_$(A|
0002c690 5f 25 2f 73 69 74 69 66 5f 25 2b 73 69 74 70 5f |_%/sitif_%+sitp_|
0002c6a0 25 29 3d 51 5f 24 3a 75 64 5f 24 28 41 5f 25 2d |%)=Q_$:ud_$(A_%-|
0002c6b0 5a 25 2b 31 29 2b 3d 22 52 22 0d 95 38 17 ed 3a |Z%+1)+="R"..8..:|
0002c6c0 41 5f 25 3d a4 75 70 64 61 74 65 73 61 6c 65 64 |A_%=.updatesaled|
0002c6d0 5f 0d 95 3d 05 cd 0d 95 42 2f e7 5a 5f 25 3d 33 |_..=....B/.Z_%=3|
0002c6e0 80 5a 25 3e 30 80 53 49 54 65 5f 24 28 5a 25 2b |.Z%>0.SITe_$(Z%+|
0002c6f0 31 2b 73 69 74 70 5f 25 2a 73 69 74 69 66 5f 25 |1+sitp_%*sitif_%|
0002c700 29 3d 22 22 8c 0d 95 47 9e e3 41 5f 25 3d 5a 25 |)=""...G..A_%=Z%|
0002c710 b8 5a 25 2b bb 28 75 64 5f 24 28 30 29 29 3a 75 |.Z%+.(ud_$(0)):u|
0002c720 64 5f 24 28 41 5f 25 2d 5a 25 2b 31 29 3d 53 49 |d_$(A_%-Z%+1)=SI|
0002c730 54 65 5f 24 28 41 5f 25 2b 31 2b 73 69 74 70 5f |Te_$(A_%+1+sitp_|
0002c740 25 2a 73 69 74 69 66 5f 25 29 3a 41 5f 24 3d a4 |%*sitif_%):A_$=.|
0002c750 67 49 64 28 73 61 6c 65 64 25 2c 41 5f 25 2b 31 |gId(saled%,A_%+1|
0002c760 2d 73 69 74 69 66 5f 25 29 3a e7 41 5f 25 83 73 |-sitif_%):.A_%.s|
0002c770 69 74 69 66 5f 25 3d 38 3a e7 53 49 54 73 5f 24 |itif_%=8:.SITs_$|
0002c780 28 41 5f 25 2f 73 69 74 69 66 5f 25 2b 73 69 74 |(A_%/sitif_%+sit|
0002c790 70 5f 25 2d 31 29 3d 51 5f 24 3a 41 5f 24 2b 3d |p_%-1)=Q_$:A_$+=|
0002c7a0 22 52 22 0d 95 4c cb 42 5f 25 3d a4 70 49 49 28 |"R"..L.B_%=.pII(|
0002c7b0 73 61 6c 65 64 25 2c 41 5f 25 2b 31 2c 41 5f 24 |saled%,A_%+1,A_$|
0002c7c0 29 3a e7 41 5f 25 83 73 69 74 69 66 5f 25 3d 38 |):.A_%.sitif_%=8|
0002c7d0 3a 61 5f 25 2b 3d 31 3a 75 64 5f 25 28 61 5f 25 |:a_%+=1:ud_%(a_%|
0002c7e0 29 3d 53 49 54 6e 5f 25 28 41 5f 25 2f 73 69 74 |)=SITn_%(A_%/sit|
0002c7f0 69 66 5f 25 2b 31 2b 73 69 74 70 5f 25 29 3a 53 |if_%+1+sitp_%):S|
0002c800 49 54 6e 5f 25 28 41 5f 25 2f 73 69 74 69 66 5f |ITn_%(A_%/sitif_|
0002c810 25 2b 31 2b 73 69 74 70 5f 25 29 3d 53 49 54 6e |%+1+sitp_%)=SITn|
0002c820 5f 25 28 41 5f 25 2f 73 69 74 69 66 5f 25 2b 31 |_%(A_%/sitif_%+1|
0002c830 2b 73 69 74 70 5f 25 2d 31 29 3a e7 53 49 54 73 |+sitp_%-1):.SITs|
0002c840 5f 24 28 41 5f 25 2f 73 69 74 69 66 5f 25 2b 73 |_$(A_%/sitif_%+s|
0002c850 69 74 70 5f 25 29 3d 51 5f 24 3a 75 64 5f 24 28 |itp_%)=Q_$:ud_$(|
0002c860 41 5f 25 2d 5a 25 2b 31 29 2b 3d 22 52 22 0d 95 |A_%-Z%+1)+="R"..|
0002c870 51 17 ed 3a 41 5f 25 3d a4 75 70 64 61 74 65 73 |Q..:A_%=.updates|
0002c880 61 6c 65 64 5f 0d 95 56 05 cd 0d 95 5b 0c e7 5a |aled_..V....[..Z|
0002c890 5f 25 3d 31 38 8c 0d 95 60 7e e3 41 5f 25 3d 5a |_%=18...`~.A_%=Z|
0002c8a0 25 b8 5a 25 2b bb 28 75 64 5f 24 28 30 29 29 3a |%.Z%+.(ud_$(0)):|
0002c8b0 e7 41 5f 25 83 73 69 74 69 66 5f 25 3d 38 3a 61 |.A_%.sitif_%=8:a|
0002c8c0 5f 25 2b 3d 31 3a 75 64 31 5f 25 28 61 5f 25 29 |_%+=1:ud1_%(a_%)|
0002c8d0 3d 53 49 54 6e 5f 25 28 41 5f 25 2f 73 69 74 69 |=SITn_%(A_%/siti|
0002c8e0 66 5f 25 2b 31 2b 73 69 74 70 5f 25 29 3a 53 49 |f_%+1+sitp_%):SI|
0002c8f0 54 6e 5f 25 28 41 5f 25 2f 73 69 74 69 66 5f 25 |Tn_%(A_%/sitif_%|
0002c900 2b 31 2b 73 69 74 70 5f 25 29 3d 75 64 5f 25 28 |+1+sitp_%)=ud_%(|
0002c910 61 5f 25 29 0d 95 65 9a 75 64 31 5f 24 28 41 5f |a_%)..e.ud1_$(A_|
0002c920 25 2d 5a 25 2b 31 29 3d 53 49 54 65 5f 24 28 41 |%-Z%+1)=SITe_$(A|
0002c930 5f 25 2b 31 2b 73 69 74 70 5f 25 2a 73 69 74 69 |_%+1+sitp_%*siti|
0002c940 66 5f 25 29 3a 42 5f 25 3d a4 70 49 49 28 73 61 |f_%):B_%=.pII(sa|
0002c950 6c 65 64 25 2c 41 5f 25 2b 31 2c 75 64 5f 24 28 |led%,A_%+1,ud_$(|
0002c960 41 5f 25 2d 5a 25 2b 31 29 29 3a e7 41 5f 25 83 |A_%-Z%+1)):.A_%.|
0002c970 73 69 74 69 66 5f 25 3d 38 3a e7 53 49 54 73 5f |sitif_%=8:.SITs_|
0002c980 24 28 41 5f 25 2f 73 69 74 69 66 5f 25 2b 73 69 |$(A_%/sitif_%+si|
0002c990 74 70 5f 25 29 3d 51 5f 24 3a 75 64 31 5f 24 28 |tp_%)=Q_$:ud1_$(|
0002c9a0 41 5f 25 2d 5a 25 2b 31 29 2b 3d 22 52 22 0d 95 |A_%-Z%+1)+="R"..|
0002c9b0 6a 46 75 64 5f 24 28 41 5f 25 2d 5a 25 2b 31 29 |jFud_$(A_%-Z%+1)|
0002c9c0 3d 75 64 31 5f 24 28 41 5f 25 2d 5a 25 2b 31 29 |=ud1_$(A_%-Z%+1)|
0002c9d0 3a e7 41 5f 25 83 73 69 74 69 66 5f 25 3d 38 3a |:.A_%.sitif_%=8:|
0002c9e0 75 64 5f 25 28 61 5f 25 29 3d 75 64 31 5f 25 28 |ud_%(a_%)=ud1_%(|
0002c9f0 61 5f 25 29 0d 95 6f 17 ed 3a 41 5f 25 3d a4 75 |a_%)..o..:A_%=.u|
0002ca00 70 64 61 74 65 73 61 6c 65 64 5f 0d 95 74 3c cd |pdatesaled_..t<.|
0002ca10 3a 6f 63 63 72 65 64 5f 25 3d 30 3a e7 21 69 25 |:occred_%=0:.!i%|
0002ca20 83 73 69 74 69 66 5f 25 3d 30 8c 42 5f 25 3d 73 |.sitif_%=0.B_%=s|
0002ca30 69 74 69 66 5f 25 20 8b 42 5f 25 3d 21 69 25 83 |itif_% .B_%=!i%.|
0002ca40 73 69 74 69 66 5f 25 0d 95 79 c4 e7 5a 5f 25 3d |sitif_%..y..Z_%=|
0002ca50 32 32 3a e7 73 69 74 70 5f 25 3e 30 84 21 69 25 |22:.sitp_%>0.!i%|
0002ca60 3e 31 31 3a 41 5f 24 3d 53 49 54 65 5f 24 28 5a |>11:A_$=SITe_$(Z|
0002ca70 25 2b 73 69 74 70 5f 25 2a 73 69 74 69 66 5f 25 |%+sitp_%*sitif_%|
0002ca80 2b 42 5f 25 2d 73 69 74 69 66 5f 25 29 3a 42 5f |+B_%-sitif_%):B_|
0002ca90 25 3d a4 70 49 49 28 73 61 6c 65 64 25 2c 21 69 |%=.pII(saled%,!i|
0002caa0 25 2c 41 5f 24 29 3a 41 5f 25 3d a4 75 70 64 61 |%,A_$):A_%=.upda|
0002cab0 74 65 73 61 6c 65 64 5f 3a c8 99 26 36 2c 31 33 |tesaled_:..&6,13|
0002cac0 38 2c 30 2c 31 33 3a e7 21 69 25 83 73 69 74 69 |8,0,13:.!i%.siti|
0002cad0 66 5f 25 3d 33 3a 53 49 54 6e 5f 25 28 5a 25 2f |f_%=3:SITn_%(Z%/|
0002cae0 73 69 74 69 66 5f 25 2b 31 2b 73 69 74 70 5f 25 |sitif_%+1+sitp_%|
0002caf0 29 3d 53 49 54 6e 5f 25 28 5a 25 2f 73 69 74 69 |)=SITn_%(Z%/siti|
0002cb00 66 5f 25 2b 73 69 74 70 5f 25 29 0d 95 7e 1b c9 |f_%+sitp_%)..~..|
0002cb10 22 50 61 6c 65 64 22 3a e7 5a 5f 25 3d 34 84 5a |"Paled":.Z_%=4.Z|
0002cb20 5f 25 3d 31 31 8c 0d 95 83 ef e3 41 5f 25 3d 5a |_%=11......A_%=Z|
0002cb30 25 b8 5a 25 2b bb 28 75 64 5f 24 28 30 29 29 3a |%.Z%+.(ud_$(0)):|
0002cb40 75 64 5f 24 28 41 5f 25 2d 5a 25 2b 31 29 3d 50 |ud_$(A_%-Z%+1)=P|
0002cb50 49 54 65 5f 24 28 41 5f 25 2b 31 2b 70 69 74 70 |ITe_$(A_%+1+pitp|
0002cb60 5f 25 2a 73 69 74 69 66 5f 25 29 3a 42 5f 25 3d |_%*sitif_%):B_%=|
0002cb70 a4 70 49 49 28 70 61 6c 65 64 25 2c 41 5f 25 2b |.pII(paled%,A_%+|
0002cb80 31 2c 22 22 29 3a e7 41 5f 25 83 73 69 74 69 66 |1,""):.A_%.sitif|
0002cb90 5f 25 3d 38 3a 61 5f 25 2b 3d 31 3a 75 64 5f 25 |_%=8:a_%+=1:ud_%|
0002cba0 28 61 5f 25 29 3d 50 49 54 6e 5f 25 28 41 5f 25 |(a_%)=PITn_%(A_%|
0002cbb0 2f 73 69 74 69 66 5f 25 2b 31 2b 70 69 74 70 5f |/sitif_%+1+pitp_|
0002cbc0 25 29 3a 50 49 54 6e 5f 25 28 41 5f 25 2f 73 69 |%):PITn_%(A_%/si|
0002cbd0 74 69 66 5f 25 2b 31 2b 70 69 74 70 5f 25 29 3d |tif_%+1+pitp_%)=|
0002cbe0 30 3a e7 50 49 54 73 5f 24 28 41 5f 25 2f 73 69 |0:.PITs_$(A_%/si|
0002cbf0 74 69 66 5f 25 2b 70 69 74 70 5f 25 29 3d 51 5f |tif_%+pitp_%)=Q_|
0002cc00 24 3a 75 64 5f 24 28 41 5f 25 2d 5a 25 2b 31 29 |$:ud_$(A_%-Z%+1)|
0002cc10 2b 3d 22 52 22 0d 95 88 17 ed 3a 41 5f 25 3d a4 |+="R".....:A_%=.|
0002cc20 75 70 64 61 74 65 70 61 6c 65 64 5f 0d 95 8d 05 |updatepaled_....|
0002cc30 cd 0d 95 92 2f e7 5a 5f 25 3d 33 80 5a 25 3e 30 |..../.Z_%=3.Z%>0|
0002cc40 80 50 49 54 65 5f 24 28 5a 25 2b 31 2b 70 69 74 |.PITe_$(Z%+1+pit|
0002cc50 70 5f 25 2a 73 69 74 69 66 5f 25 29 3d 22 22 8c |p_%*sitif_%)="".|
0002cc60 0d 95 97 9e e3 41 5f 25 3d 5a 25 b8 5a 25 2b bb |.....A_%=Z%.Z%+.|
0002cc70 28 75 64 5f 24 28 30 29 29 3a 75 64 5f 24 28 41 |(ud_$(0)):ud_$(A|
0002cc80 5f 25 2d 5a 25 2b 31 29 3d 50 49 54 65 5f 24 28 |_%-Z%+1)=PITe_$(|
0002cc90 41 5f 25 2b 31 2b 70 69 74 70 5f 25 2a 73 69 74 |A_%+1+pitp_%*sit|
0002cca0 69 66 5f 25 29 3a 41 5f 24 3d a4 67 49 64 28 70 |if_%):A_$=.gId(p|
0002ccb0 61 6c 65 64 25 2c 41 5f 25 2b 31 2d 73 69 74 69 |aled%,A_%+1-siti|
0002ccc0 66 5f 25 29 3a e7 41 5f 25 83 73 69 74 69 66 5f |f_%):.A_%.sitif_|
0002ccd0 25 3d 38 3a e7 50 49 54 73 5f 24 28 41 5f 25 2f |%=8:.PITs_$(A_%/|
0002cce0 73 69 74 69 66 5f 25 2b 70 69 74 70 5f 25 2d 31 |sitif_%+pitp_%-1|
0002ccf0 29 3d 51 5f 24 3a 41 5f 24 2b 3d 22 52 22 0d 95 |)=Q_$:A_$+="R"..|
0002cd00 9c cb 42 5f 25 3d a4 70 49 49 28 70 61 6c 65 64 |..B_%=.pII(paled|
0002cd10 25 2c 41 5f 25 2b 31 2c 41 5f 24 29 3a e7 41 5f |%,A_%+1,A_$):.A_|
0002cd20 25 83 73 69 74 69 66 5f 25 3d 38 3a 61 5f 25 2b |%.sitif_%=8:a_%+|
0002cd30 3d 31 3a 75 64 5f 25 28 61 5f 25 29 3d 50 49 54 |=1:ud_%(a_%)=PIT|
0002cd40 6e 5f 25 28 41 5f 25 2f 73 69 74 69 66 5f 25 2b |n_%(A_%/sitif_%+|
0002cd50 31 2b 70 69 74 70 5f 25 29 3a 50 49 54 6e 5f 25 |1+pitp_%):PITn_%|
0002cd60 28 41 5f 25 2f 73 69 74 69 66 5f 25 2b 31 2b 70 |(A_%/sitif_%+1+p|
0002cd70 69 74 70 5f 25 29 3d 50 49 54 6e 5f 25 28 41 5f |itp_%)=PITn_%(A_|
0002cd80 25 2f 73 69 74 69 66 5f 25 2b 31 2b 70 69 74 70 |%/sitif_%+1+pitp|
0002cd90 5f 25 2d 31 29 3a e7 50 49 54 73 5f 24 28 41 5f |_%-1):.PITs_$(A_|
0002cda0 25 2f 73 69 74 69 66 5f 25 2b 70 69 74 70 5f 25 |%/sitif_%+pitp_%|
0002cdb0 29 3d 51 5f 24 3a 75 64 5f 24 28 41 5f 25 2d 5a |)=Q_$:ud_$(A_%-Z|
0002cdc0 25 2b 31 29 2b 3d 22 52 22 0d 95 a1 17 ed 3a 41 |%+1)+="R".....:A|
0002cdd0 5f 25 3d a4 75 70 64 61 74 65 70 61 6c 65 64 5f |_%=.updatepaled_|
0002cde0 0d 95 a6 05 cd 0d 95 ab 0c e7 5a 5f 25 3d 31 38 |..........Z_%=18|
0002cdf0 8c 0d 95 b0 7e e3 41 5f 25 3d 5a 25 b8 5a 25 2b |....~.A_%=Z%.Z%+|
0002ce00 bb 28 75 64 5f 24 28 30 29 29 3a e7 41 5f 25 83 |.(ud_$(0)):.A_%.|
0002ce10 73 69 74 69 66 5f 25 3d 38 3a 61 5f 25 2b 3d 31 |sitif_%=8:a_%+=1|
0002ce20 3a 75 64 31 5f 25 28 61 5f 25 29 3d 50 49 54 6e |:ud1_%(a_%)=PITn|
0002ce30 5f 25 28 41 5f 25 2f 73 69 74 69 66 5f 25 2b 31 |_%(A_%/sitif_%+1|
0002ce40 2b 70 69 74 70 5f 25 29 3a 50 49 54 6e 5f 25 28 |+pitp_%):PITn_%(|
0002ce50 41 5f 25 2f 73 69 74 69 66 5f 25 2b 31 2b 70 69 |A_%/sitif_%+1+pi|
0002ce60 74 70 5f 25 29 3d 75 64 5f 25 28 61 5f 25 29 0d |tp_%)=ud_%(a_%).|
0002ce70 95 b5 9a 75 64 31 5f 24 28 41 5f 25 2d 5a 25 2b |...ud1_$(A_%-Z%+|
0002ce80 31 29 3d 50 49 54 65 5f 24 28 41 5f 25 2b 31 2b |1)=PITe_$(A_%+1+|
0002ce90 70 69 74 70 5f 25 2a 73 69 74 69 66 5f 25 29 3a |pitp_%*sitif_%):|
0002cea0 42 5f 25 3d a4 70 49 49 28 70 61 6c 65 64 25 2c |B_%=.pII(paled%,|
0002ceb0 41 5f 25 2b 31 2c 75 64 5f 24 28 41 5f 25 2d 5a |A_%+1,ud_$(A_%-Z|
0002cec0 25 2b 31 29 29 3a e7 41 5f 25 83 73 69 74 69 66 |%+1)):.A_%.sitif|
0002ced0 5f 25 3d 38 3a e7 50 49 54 73 5f 24 28 41 5f 25 |_%=8:.PITs_$(A_%|
0002cee0 2f 73 69 74 69 66 5f 25 2b 70 69 74 70 5f 25 29 |/sitif_%+pitp_%)|
0002cef0 3d 51 5f 24 3a 75 64 31 5f 24 28 41 5f 25 2d 5a |=Q_$:ud1_$(A_%-Z|
0002cf00 25 2b 31 29 2b 3d 22 52 22 0d 95 ba 46 75 64 5f |%+1)+="R"...Fud_|
0002cf10 24 28 41 5f 25 2d 5a 25 2b 31 29 3d 75 64 31 5f |$(A_%-Z%+1)=ud1_|
0002cf20 24 28 41 5f 25 2d 5a 25 2b 31 29 3a e7 41 5f 25 |$(A_%-Z%+1):.A_%|
0002cf30 83 73 69 74 69 66 5f 25 3d 38 3a 75 64 5f 25 28 |.sitif_%=8:ud_%(|
0002cf40 61 5f 25 29 3d 75 64 31 5f 25 28 61 5f 25 29 0d |a_%)=ud1_%(a_%).|
0002cf50 95 bf 17 ed 3a 41 5f 25 3d a4 75 70 64 61 74 65 |....:A_%=.update|
0002cf60 70 61 6c 65 64 5f 0d 95 c4 3c cd 3a 6f 73 63 72 |paled_...<.:oscr|
0002cf70 65 64 5f 25 3d 30 3a e7 21 69 25 83 73 69 74 69 |ed_%=0:.!i%.siti|
0002cf80 66 5f 25 3d 30 8c 42 5f 25 3d 73 69 74 69 66 5f |f_%=0.B_%=sitif_|
0002cf90 25 20 8b 42 5f 25 3d 21 69 25 83 73 69 74 69 66 |% .B_%=!i%.sitif|
0002cfa0 5f 25 0d 95 c9 c4 e7 5a 5f 25 3d 32 32 3a e7 70 |_%.....Z_%=22:.p|
0002cfb0 69 74 70 5f 25 3e 30 84 21 69 25 3e 31 31 3a 41 |itp_%>0.!i%>11:A|
0002cfc0 5f 24 3d 50 49 54 65 5f 24 28 5a 25 2b 70 69 74 |_$=PITe_$(Z%+pit|
0002cfd0 70 5f 25 2a 73 69 74 69 66 5f 25 2b 42 5f 25 2d |p_%*sitif_%+B_%-|
0002cfe0 73 69 74 69 66 5f 25 29 3a 42 5f 25 3d a4 70 49 |sitif_%):B_%=.pI|
0002cff0 49 28 70 61 6c 65 64 25 2c 21 69 25 2c 41 5f 24 |I(paled%,!i%,A_$|
0002d000 29 3a 41 5f 25 3d a4 75 70 64 61 74 65 70 61 6c |):A_%=.updatepal|
0002d010 65 64 5f 3a c8 99 26 36 2c 31 33 38 2c 30 2c 31 |ed_:..&6,138,0,1|
0002d020 33 3a e7 21 69 25 83 73 69 74 69 66 5f 25 3d 33 |3:.!i%.sitif_%=3|
0002d030 3a 50 49 54 6e 5f 25 28 5a 25 2f 73 69 74 69 66 |:PITn_%(Z%/sitif|
0002d040 5f 25 2b 31 2b 70 69 74 70 5f 25 29 3d 50 49 54 |_%+1+pitp_%)=PIT|
0002d050 6e 5f 25 28 5a 25 2f 73 69 74 69 66 5f 25 2b 70 |n_%(Z%/sitif_%+p|
0002d060 69 74 70 5f 25 29 0d 95 ce 8a c9 22 42 61 6e 6b |itp_%)....."Bank|
0002d070 4c 22 3a e7 5a 5f 25 3d 34 84 5a 5f 25 3d 31 31 |L":.Z_%=4.Z_%=11|
0002d080 3a e3 41 5f 25 3d 5a 25 b8 5a 25 2b bb 28 75 64 |:.A_%=Z%.Z%+.(ud|
0002d090 5f 24 28 30 29 29 3a 75 64 5f 24 28 41 5f 25 2d |_$(0)):ud_$(A_%-|
0002d0a0 5a 25 2b 31 29 3d 42 49 54 65 5f 24 28 41 5f 25 |Z%+1)=BITe_$(A_%|
0002d0b0 2b 31 2b 62 69 74 70 5f 25 2a 62 69 74 69 66 5f |+1+bitp_%*bitif_|
0002d0c0 25 29 3a 42 5f 25 3d a4 70 49 49 28 62 61 6e 6b |%):B_%=.pII(bank|
0002d0d0 6c 25 2c 41 5f 25 2b 31 2c 22 22 29 3a ed 3a 41 |l%,A_%+1,""):.:A|
0002d0e0 5f 25 3d a4 75 70 64 61 74 65 62 61 6e 6b 6c 5f |_%=.updatebankl_|
0002d0f0 0d 95 d3 c0 e7 5a 5f 25 3d 33 3a e7 5a 25 3e 30 |.....Z_%=3:.Z%>0|
0002d100 3a e7 42 49 54 65 5f 24 28 5a 25 2b 31 2b 62 69 |:.BITe_$(Z%+1+bi|
0002d110 74 70 5f 25 2a 62 69 74 69 66 5f 25 29 3d 22 22 |tp_%*bitif_%)=""|
0002d120 3a e3 41 5f 25 3d 5a 25 b8 5a 25 2b bb 28 75 64 |:.A_%=Z%.Z%+.(ud|
0002d130 5f 24 28 30 29 29 3a 75 64 5f 24 28 41 5f 25 2d |_$(0)):ud_$(A_%-|
0002d140 5a 25 2b 31 29 3d 42 49 54 65 5f 24 28 41 5f 25 |Z%+1)=BITe_$(A_%|
0002d150 2b 31 2b 62 69 74 70 5f 25 2a 62 69 74 69 66 5f |+1+bitp_%*bitif_|
0002d160 25 29 3a 41 5f 24 3d a4 67 49 64 28 62 61 6e 6b |%):A_$=.gId(bank|
0002d170 6c 25 2c 41 5f 25 2b 31 2d 62 69 74 69 66 5f 25 |l%,A_%+1-bitif_%|
0002d180 29 3a 42 5f 25 3d a4 70 49 49 28 62 61 6e 6b 6c |):B_%=.pII(bankl|
0002d190 25 2c 41 5f 25 2b 31 2c 41 5f 24 29 3a ed 3a 41 |%,A_%+1,A_$):.:A|
0002d1a0 5f 25 3d a4 75 70 64 61 74 65 62 61 6e 6b 6c 5f |_%=.updatebankl_|
0002d1b0 0d 95 d8 a7 e7 5a 5f 25 3d 31 38 3a e3 41 5f 25 |.....Z_%=18:.A_%|
0002d1c0 3d 5a 25 b8 5a 25 2b bb 28 75 64 5f 24 28 30 29 |=Z%.Z%+.(ud_$(0)|
0002d1d0 29 3a 75 64 31 5f 24 28 41 5f 25 2d 5a 25 2b 31 |):ud1_$(A_%-Z%+1|
0002d1e0 29 3d 42 49 54 65 5f 24 28 41 5f 25 2b 31 2b 62 |)=BITe_$(A_%+1+b|
0002d1f0 69 74 70 5f 25 2a 62 69 74 69 66 5f 25 29 3a 42 |itp_%*bitif_%):B|
0002d200 5f 25 3d a4 70 49 49 28 62 61 6e 6b 6c 25 2c 41 |_%=.pII(bankl%,A|
0002d210 5f 25 2b 31 2c 75 64 5f 24 28 41 5f 25 2d 5a 25 |_%+1,ud_$(A_%-Z%|
0002d220 2b 31 29 29 3a 75 64 5f 24 28 41 5f 25 2d 5a 25 |+1)):ud_$(A_%-Z%|
0002d230 2b 31 29 3d 75 64 31 5f 24 28 41 5f 25 2d 5a 25 |+1)=ud1_$(A_%-Z%|
0002d240 2b 31 29 3a ed 3a 41 5f 25 3d a4 75 70 64 61 74 |+1):.:A_%=.updat|
0002d250 65 62 61 6e 6b 6c 5f 0d 95 dd 2f e7 21 69 25 83 |ebankl_.../.!i%.|
0002d260 62 69 74 69 66 5f 25 3d 30 8c 42 5f 25 3d 62 69 |bitif_%=0.B_%=bi|
0002d270 74 69 66 5f 25 20 8b 42 5f 25 3d 21 69 25 83 62 |tif_% .B_%=!i%.b|
0002d280 69 74 69 66 5f 25 0d 95 e2 84 e7 5a 5f 25 3d 32 |itif_%.....Z_%=2|
0002d290 32 3a e7 62 69 74 70 5f 25 3e 30 84 21 69 25 3e |2:.bitp_%>0.!i%>|
0002d2a0 62 69 74 69 66 5f 25 3a 41 5f 24 3d 42 49 54 65 |bitif_%:A_$=BITe|
0002d2b0 5f 24 28 5a 25 2b 62 69 74 70 5f 25 2a 62 69 74 |_$(Z%+bitp_%*bit|
0002d2c0 69 66 5f 25 2b 42 5f 25 2d 62 69 74 69 66 5f 25 |if_%+B_%-bitif_%|
0002d2d0 29 3a 42 5f 25 3d a4 70 49 49 28 62 61 6e 6b 6c |):B_%=.pII(bankl|
0002d2e0 25 2c 21 69 25 2c 41 5f 24 29 3a 41 5f 25 3d a4 |%,!i%,A_$):A_%=.|
0002d2f0 75 70 64 61 74 65 62 61 6e 6b 6c 5f 3a c8 99 26 |updatebankl_:..&|
0002d300 36 2c 31 33 38 2c 30 2c 31 33 0d 95 e7 5b c9 22 |6,138,0,13...[."|
0002d310 43 75 73 74 6f 6d 57 22 3a e7 5a 5f 25 3d 33 3a |CustomW":.Z_%=3:|
0002d320 e7 43 53 75 70 70 6c 69 65 72 73 5f 24 28 43 53 |.CSuppliers_$(CS|
0002d330 5f 25 29 3d 22 22 3a e7 43 53 5f 25 3e 31 3a 24 |_%)="":.CS_%>1:$|
0002d340 21 43 53 75 66 69 6e 64 6e 75 6d 5f 25 3d c3 28 |!CSufindnum_%=.(|
0002d350 43 53 5f 25 2d 31 29 3a 41 5f 25 3d a4 61 6c 6c |CS_%-1):A_%=.all|
0002d360 63 6f 70 79 5f 0d 95 ec 17 e7 5a 5f 25 3d 36 8c |copy_.....Z_%=6.|
0002d370 5a 25 3d a4 43 53 75 46 69 6e 64 5f 0d 96 11 05 |Z%=.CSuFind_....|
0002d380 cb 0d 96 14 06 3d b9 0d 96 19 0a dd a4 52 73 6e |.....=.......Rsn|
0002d390 5f 0d 96 1e 35 ea 20 41 5f 25 2c 41 25 2c 42 25 |_...5. A_%,A%,B%|
0002d3a0 2c 43 25 2c 44 25 2c 45 25 2c 46 25 2c 47 25 2c |,C%,D%,E%,F%,G%,|
0002d3b0 5a 25 2c 41 5f 24 2c 41 24 2c 42 24 2c 43 24 2c |Z%,A_$,A$,B$,C$,|
0002d3c0 44 24 2c 61 5f 25 0d 96 23 3f e7 57 25 21 31 32 |D$,a_%..#?.W%!12|
0002d3d0 3d 73 61 6c 65 64 25 8c 45 25 3d 73 61 6c 65 64 |=saled%.E%=saled|
0002d3e0 25 3a 46 25 3d 73 69 74 70 5f 25 3a 47 25 3d 31 |%:F%=sitp_%:G%=1|
0002d3f0 20 8b 45 25 3d 73 74 61 6e 64 25 3a 46 25 3d 74 | .E%=stand%:F%=t|
0002d400 69 74 70 5f 25 0d 96 28 39 41 5f 25 3d 21 69 25 |itp_%..(9A_%=!i%|
0002d410 3a 41 24 3d a4 67 49 64 28 45 25 2c 21 69 25 29 |:A$=.gId(E%,!i%)|
0002d420 3a 42 24 3d 41 24 3a 41 25 3d 21 69 25 3a 43 24 |:B$=A$:A%=!i%:C$|
0002d430 3d 22 22 3a 42 25 3d 73 69 74 69 66 5f 25 0d 96 |="":B%=sitif_%..|
0002d440 2d 12 c8 8e 21 69 25 83 73 69 74 69 66 5f 25 ca |-...!i%.sitif_%.|
0002d450 0d 96 32 19 c9 20 31 3a e7 46 25 3d 30 80 21 69 |..2.. 1:.F%=0.!i|
0002d460 25 3c 31 32 8c 42 25 3d 31 0d 96 37 8c e7 47 25 |%<12.B%=1..7..G%|
0002d470 8c 42 24 3d a4 63 68 64 61 74 65 31 5f 28 41 24 |.B$=.chdate1_(A$|
0002d480 2c 53 49 54 65 5f 24 28 21 69 25 2b 46 25 2a 73 |,SITe_$(!i%+F%*s|
0002d490 69 74 69 66 5f 25 2d 42 25 29 29 20 8b 42 24 3d |itif_%-B%)) .B$=|
0002d4a0 a4 63 68 64 61 74 65 5f 28 41 24 29 3a e7 42 24 |.chdate_(A$):.B$|
0002d4b0 3d 22 22 8c 54 49 54 6e 5f 25 28 21 69 25 2f 73 |="".TITn_%(!i%/s|
0002d4c0 69 74 69 66 5f 25 2b 46 25 29 3d 30 3a e3 61 5f |itif_%+F%)=0:.a_|
0002d4d0 25 3d 30 b8 31 30 3a 5a 25 3d a4 70 49 49 28 45 |%=0.10:Z%=.pII(E|
0002d4e0 25 2c 21 69 25 2b 61 5f 25 2c 22 22 29 3a ed 3a |%,!i%+a_%,""):.:|
0002d4f0 41 25 2b 3d 31 0d 96 3c 45 e7 47 25 3a 41 25 2b |A%+=1..<E.G%:A%+|
0002d500 3d 32 3a e7 53 49 54 65 5f 24 28 28 21 69 25 2b |=2:.SITe_$((!i%+|
0002d510 31 29 2b 46 25 2a 73 69 74 69 66 5f 25 29 3d 22 |1)+F%*sitif_%)="|
0002d520 22 8c 5a 25 3d a4 70 49 49 28 45 25 2c 21 69 25 |".Z%=.pII(E%,!i%|
0002d530 2b 31 2c c2 42 24 2c 37 29 29 0d 96 41 41 c9 20 |+1,.B$,7))..AA. |
0002d540 32 3a e7 47 25 3a 42 24 3d c2 a4 63 68 64 61 74 |2:.G%:B$=..chdat|
0002d550 65 31 5f 28 22 30 31 2e 22 2b 41 24 2c 53 49 54 |e1_("01."+A$,SIT|
0002d560 65 5f 24 28 28 21 69 25 2d 31 29 2b 46 25 2a 73 |e_$((!i%-1)+F%*s|
0002d570 69 74 69 66 5f 25 29 29 2c 37 29 0d 96 46 24 c9 |itif_%)),7)..F$.|
0002d580 20 33 3a e7 47 25 3c 3e 30 3a 42 24 3d a4 50 49 | 3:.G%<>0:B$=.PI|
0002d590 54 53 75 46 69 72 73 74 5f 28 41 24 2c 31 29 0d |TSuFirst_(A$,1).|
0002d5a0 96 4b 3a e7 47 25 3d 30 3a e7 54 49 54 65 5f 25 |.K:.G%=0:.TITe_%|
0002d5b0 28 21 69 25 2f 73 69 74 69 66 5f 25 2b 46 25 29 |(!i%/sitif_%+F%)|
0002d5c0 3d 2d 31 8c 42 24 3d a4 50 49 54 53 75 46 69 72 |=-1.B$=.PITSuFir|
0002d5d0 73 74 5f 28 41 24 2c 32 29 0d 96 50 39 e7 47 25 |st_(A$,2)..P9.G%|
0002d5e0 3d 30 3a e7 54 49 54 65 5f 25 28 21 69 25 2f 73 |=0:.TITe_%(!i%/s|
0002d5f0 69 74 69 66 5f 25 2b 46 25 29 3d 31 8c 42 24 3d |itif_%+F%)=1.B$=|
0002d600 a4 50 49 54 53 75 46 69 72 73 74 5f 28 41 24 2c |.PITSuFirst_(A$,|
0002d610 34 29 0d 96 55 37 c9 20 34 3a e7 47 25 3a e7 41 |4)..U7. 4:.G%:.A|
0002d620 24 3d 22 22 3a e7 21 69 25 3e 31 31 8c 41 24 3d |$="":.!i%>11.A$=|
0002d630 53 49 54 65 5f 24 28 21 69 25 2b 46 25 2a 73 69 |SITe_$(!i%+F%*si|
0002d640 74 69 66 5f 25 2d 42 25 29 0d 96 5a 1f e7 41 24 |tif_%-B%)..Z..A$|
0002d650 3c 3e 22 22 8c 42 24 3d a4 63 61 70 73 5f 28 41 |<>"".B$=.caps_(A|
0002d660 24 29 3a 41 24 3d 22 22 0d 96 5f 14 c9 20 35 3a |$):A$="".._.. 5:|
0002d670 e7 47 25 3d 31 80 41 24 3d 22 22 8c 0d 96 64 38 |.G%=1.A$=""...d8|
0002d680 44 24 3d a4 63 61 70 73 5f 28 a4 67 49 64 28 45 |D$=.caps_(.gId(E|
0002d690 25 2c 21 69 25 2d 31 29 29 3a e7 21 69 25 2b 46 |%,!i%-1)):.!i%+F|
0002d6a0 25 2a 73 69 74 69 66 5f 25 3e 31 31 80 44 24 3c |%*sitif_%>11.D$<|
0002d6b0 3e 22 22 8c 0d 96 69 29 c8 99 26 34 30 36 43 30 |>""...i)..&406C0|
0002d6c0 3a e3 61 5f 25 3d 21 69 25 2b 46 25 2a 73 69 74 |:.a_%=!i%+F%*sit|
0002d6d0 69 66 5f 25 2d 42 25 b8 35 88 2d 42 25 0d 96 6e |if_%-B%.5.-B%..n|
0002d6e0 57 e7 a4 63 61 70 73 5f 28 53 49 54 65 5f 24 28 |W..caps_(SITe_$(|
0002d6f0 61 5f 25 2d 31 29 29 3d 44 24 3a e7 a4 67 6e 5f |a_%-1))=D$:..gn_|
0002d700 28 53 49 54 65 5f 24 28 61 5f 25 29 29 3e 30 3a |(SITe_$(a_%))>0:|
0002d710 42 24 3d a4 75 70 64 61 74 65 6e 75 6d 5f 28 53 |B$=.updatenum_(S|
0002d720 49 54 65 5f 24 28 61 5f 25 29 2c 35 30 29 3a 61 |ITe_$(a_%),50):a|
0002d730 5f 25 3d 35 0d 96 73 0e ed 3a c8 99 26 34 30 36 |_%=5..s..:..&406|
0002d740 43 31 0d 96 78 05 cd 0d 96 7d 05 cd 0d 96 82 13 |C1..x....}......|
0002d750 c9 20 36 3a 42 25 3d a4 6e 69 5f 28 41 24 29 0d |. 6:B%=.ni_(A$).|
0002d760 96 87 34 e7 c2 41 24 29 3d 22 a3 22 3a 42 24 3d |..4..A$)=".":B$=|
0002d770 a4 61 64 64 5f 76 61 74 28 42 25 29 3a 41 24 3d |.add_vat(B%):A$=|
0002d780 22 30 22 20 8b 42 24 3d a4 74 63 5f 28 42 25 2c |"0" .B$=.tc_(B%,|
0002d790 22 22 29 0d 96 8c 22 41 5f 24 3d a4 61 75 74 6f |"")..."A_$=.auto|
0002d7a0 76 61 74 5f 28 41 24 2c 42 25 29 3a e7 41 5f 24 |vat_(A$,B%):.A_$|
0002d7b0 3c 3e 22 22 8c 0d 96 91 32 5a 25 3d a4 70 49 49 |<>""....2Z%=.pII|
0002d7c0 28 45 25 2c 21 69 25 2b 31 2c 76 61 74 63 5f 24 |(E%,!i%+1,vatc_$|
0002d7d0 29 3a 41 25 2b 3d 33 3a e7 41 5f 24 3d 22 30 22 |):A%+=3:.A_$="0"|
0002d7e0 8c 41 5f 24 3d 22 22 0d 96 96 19 5a 25 3d a4 70 |.A_$=""....Z%=.p|
0002d7f0 49 49 28 45 25 2c 21 69 25 2b 32 2c 41 5f 24 29 |II(E%,!i%+2,A_$)|
0002d800 0d 96 9b 0f e7 47 25 3d 30 8c 41 25 2b 3d 31 0d |.....G%=0.A%+=1.|
0002d810 96 a0 05 cd 0d 96 a5 1e e7 47 25 3d 30 3a 5a 25 |.........G%=0:Z%|
0002d820 3d a4 70 49 49 28 45 25 2c 21 69 25 2b 33 2c 42 |=.pII(E%,!i%+3,B|
0002d830 24 29 0d 96 aa 1d c9 20 37 3a e7 41 24 3c 3e 22 |$)..... 7:.A$<>"|
0002d840 22 8c 42 24 3d a4 63 61 70 73 5f 28 41 24 29 0d |".B$=.caps_(A$).|
0002d850 96 af 2e c9 20 38 3a 42 25 3d a4 6e 69 5f 28 41 |.... 8:B%=.ni_(A|
0002d860 24 29 3a 42 24 3d a4 74 63 5f 28 42 25 2c 22 22 |$):B$=.tc_(B%,""|
0002d870 29 3a e7 47 25 3d 30 8c 41 25 2b 3d 32 0d 96 b4 |):.G%=0.A%+=2...|
0002d880 2b c9 20 39 3a 42 25 3d a4 6e 69 5f 28 41 24 29 |+. 9:B%=.ni_(A$)|
0002d890 3a 43 25 3d a4 6e 69 5f 28 a4 67 49 64 28 45 25 |:C%=.ni_(.gId(E%|
0002d8a0 2c 21 69 25 2d 33 29 29 0d 96 b9 5e 43 24 3d 22 |,!i%-3))...^C$="|
0002d8b0 22 3a e7 a7 41 24 2c 22 50 22 29 84 a7 41 24 2c |":..A$,"P")..A$,|
0002d8c0 22 70 22 29 8c 43 24 3d 22 50 22 20 8b e7 a7 41 |"p").C$="P" ...A|
0002d8d0 24 2c 22 52 22 29 84 a7 41 24 2c 22 72 22 29 8c |$,"R")..A$,"r").|
0002d8e0 43 24 3d 22 52 22 20 8b e7 a7 41 24 2c 22 55 22 |C$="R" ...A$,"U"|
0002d8f0 29 84 a7 41 24 2c 22 75 22 29 8c 43 24 3d 22 55 |)..A$,"u").C$="U|
0002d900 22 3a 42 25 3d 30 0d 96 be 1e e7 43 24 3d 22 52 |":B%=0.....C$="R|
0002d910 22 84 43 24 3d 22 50 22 3a e7 42 25 3d 30 8c 42 |".C$="P":.B%=0.B|
0002d920 25 3d 43 25 0d 96 c3 12 42 24 3d a4 74 63 5f 28 |%=C%....B$=.tc_(|
0002d930 42 25 2c 22 22 29 0d 96 c8 2b e7 47 25 3d 30 3a |B%,"")...+.G%=0:|
0002d940 5a 25 3d a4 70 49 49 28 45 25 2c 21 69 25 2d 33 |Z%=.pII(E%,!i%-3|
0002d950 2c 42 24 29 3a e7 43 24 3d 22 52 22 43 24 3d 22 |,B$):.C$="R"C$="|
0002d960 22 0d 96 cd 38 c9 20 31 30 3a e7 47 25 3a e7 41 |"...8. 10:.G%:.A|
0002d970 24 3d 22 22 3a e7 21 69 25 3e 31 31 8c 41 24 3d |$="":.!i%>11.A$=|
0002d980 53 49 54 65 5f 24 28 21 69 25 2b 46 25 2a 73 69 |SITe_$(!i%+F%*si|
0002d990 74 69 66 5f 25 2d 42 25 29 0d 96 d2 16 e7 a9 28 |tif_%-B%)......(|
0002d9a0 41 24 29 3d 31 8c 41 24 3d 41 24 2b 22 41 22 0d |A$)=1.A$=A$+"A".|
0002d9b0 96 d7 1f e7 41 24 3c 3e 22 22 8c 42 24 3d a4 63 |....A$<>"".B$=.c|
0002d9c0 61 70 73 5f 28 41 24 29 3a 41 24 3d 22 22 0d 96 |aps_(A$):A$=""..|
0002d9d0 dc 52 c9 20 30 3a e7 47 25 3a e7 41 24 3d 22 22 |.R. 0:.G%:.A$=""|
0002d9e0 3a e7 21 69 25 3e 31 31 8c 5a 25 3d a4 70 49 49 |:.!i%>11.Z%=.pII|
0002d9f0 28 45 25 2c 21 69 25 2c a4 75 70 64 61 74 65 6e |(E%,!i%,.updaten|
0002da00 75 6d 32 5f 28 53 49 54 65 5f 24 28 21 69 25 2b |um2_(SITe_$(!i%+|
0002da10 46 25 2a 73 69 74 69 66 5f 25 2d 42 25 29 29 29 |F%*sitif_%-B%)))|
0002da20 0d 96 e1 30 e7 47 25 3a e7 21 69 25 3d 73 69 74 |...0.G%:.!i%=sit|
0002da30 69 6e 5f 25 8c f2 53 49 54 64 6f 77 6e 5f 28 2d |in_%..SITdown_(-|
0002da40 31 29 3a 41 25 3d 73 69 74 69 6e 5f 25 2d 31 30 |1):A%=sitin_%-10|
0002da50 0d 96 e6 32 e7 47 25 3d 30 3a e7 21 69 25 3d 73 |...2.G%=0:.!i%=s|
0002da60 69 74 69 6e 5f 25 8c f2 54 49 54 64 6f 77 6e 5f |itin_%..TITdown_|
0002da70 28 2d 31 29 3a 41 25 3d 73 69 74 69 6e 5f 25 2d |(-1):A%=sitin_%-|
0002da80 31 30 0d 96 eb 05 cb 0d 96 f0 1e e7 41 24 3c 3e |10..........A$<>|
0002da90 42 24 8c 5a 25 3d a4 70 49 49 28 45 25 2c 21 69 |B$.Z%=.pII(E%,!i|
0002daa0 25 2c 42 24 29 0d 96 f5 29 e7 43 24 3c 3e 22 22 |%,B$)...).C$<>""|
0002dab0 8c 5a 25 3d a4 70 49 49 28 45 25 2c 21 69 25 2f |.Z%=.pII(E%,!i%/|
0002dac0 73 69 74 69 66 5f 25 2b 37 36 2c 43 24 29 0d 96 |sitif_%+76,C$)..|
0002dad0 fa 43 e7 41 25 3c 3e 21 69 25 8c f2 73 65 74 43 |.C.A%<>!i%..setC|
0002dae0 31 5f 28 45 25 2c 41 25 29 20 8b 41 25 2b 3d 31 |1_(E%,A%) .A%+=1|
0002daf0 3a e7 41 25 3e 73 69 74 69 6e 5f 25 8c 41 25 3d |:.A%>sitin_%.A%=|
0002db00 73 69 74 69 6e 5f 25 2d 73 69 74 69 66 5f 25 2b |sitin_%-sitif_%+|
0002db10 31 0d 96 ff 20 e7 47 25 8c f2 67 65 74 53 49 54 |1... .G%..getSIT|
0002db20 64 61 74 5f 20 8b f2 67 65 74 54 49 54 64 61 74 |dat_ ..getTITdat|
0002db30 5f 0d 97 04 35 f2 73 65 65 77 69 6e 64 5f 28 45 |_...5.seewind_(E|
0002db40 25 2c 41 25 29 3a 6f 63 63 72 65 64 5f 25 3d 30 |%,A%):occred_%=0|
0002db50 3a f2 75 70 64 61 74 65 63 63 72 65 64 5f 28 43 |:.updateccred_(C|
0002db60 53 5f 25 2c 31 29 0d 97 09 06 3d b9 0d 97 0e 04 |S_%,1)....=.....|
0002db70 0d 97 13 0b dd a4 52 73 6e 31 5f 0d 97 18 2c ea |......Rsn1_...,.|
0002db80 20 41 5f 25 2c 41 25 2c 42 25 2c 43 25 2c 44 25 | A_%,A%,B%,C%,D%|
0002db90 2c 5a 25 2c 41 5f 24 2c 41 24 2c 42 24 2c 43 24 |,Z%,A_$,A$,B$,C$|
0002dba0 2c 44 24 2c 61 5f 25 0d 97 1d 3d 41 5f 25 3d 21 |,D$,a_%...=A_%=!|
0002dbb0 69 25 3a 41 24 3d a4 67 49 64 28 70 61 6c 65 64 |i%:A$=.gId(paled|
0002dbc0 25 2c 21 69 25 29 3a 42 24 3d 41 24 3a 41 25 3d |%,!i%):B$=A$:A%=|
0002dbd0 21 69 25 3a 43 24 3d 22 22 3a 42 25 3d 73 69 74 |!i%:C$="":B%=sit|
0002dbe0 69 66 5f 25 0d 97 22 12 c8 8e 21 69 25 83 73 69 |if_%.."...!i%.si|
0002dbf0 74 69 66 5f 25 ca 0d 97 27 1d c9 20 31 3a e7 70 |tif_%...'.. 1:.p|
0002dc00 69 74 70 5f 25 3d 30 80 21 69 25 3c 31 32 8c 42 |itp_%=0.!i%<12.B|
0002dc10 25 3d 31 0d 97 2c 32 42 24 3d a4 63 68 64 61 74 |%=1..,2B$=.chdat|
0002dc20 65 31 5f 28 41 24 2c 50 49 54 65 5f 24 28 21 69 |e1_(A$,PITe_$(!i|
0002dc30 25 2b 70 69 74 70 5f 25 2a 73 69 74 69 66 5f 25 |%+pitp_%*sitif_%|
0002dc40 2d 42 25 29 29 0d 97 31 43 e7 50 49 54 65 5f 24 |-B%))..1C.PITe_$|
0002dc50 28 28 21 69 25 2b 31 29 2b 70 69 74 70 5f 25 2a |((!i%+1)+pitp_%*|
0002dc60 73 69 74 69 66 5f 25 29 3d 22 22 8c 5a 25 3d a4 |sitif_%)="".Z%=.|
0002dc70 70 49 49 28 70 61 6c 65 64 25 2c 21 69 25 2b 31 |pII(paled%,!i%+1|
0002dc80 2c c2 42 24 2c 37 29 29 0d 97 36 09 41 25 2b 3d |,.B$,7))..6.A%+=|
0002dc90 32 0d 97 3b 41 c9 20 32 3a 42 24 3d c2 a4 63 68 |2..;A. 2:B$=..ch|
0002dca0 64 61 74 65 31 5f 28 22 30 31 2e 22 2b 41 24 2c |date1_("01."+A$,|
0002dcb0 50 49 54 65 5f 24 28 28 21 69 25 2d 31 29 2b 70 |PITe_$((!i%-1)+p|
0002dcc0 69 74 70 5f 25 2a 73 69 74 69 66 5f 25 29 29 2c |itp_%*sitif_%)),|
0002dcd0 37 29 0d 97 40 1d c9 20 33 3a 42 24 3d a4 50 49 |7)..@.. 3:B$=.PI|
0002dce0 54 53 75 46 69 72 73 74 5f 28 41 24 2c 33 29 0d |TSuFirst_(A$,3).|
0002dcf0 97 45 37 c9 20 34 3a e7 41 24 3d 22 22 3a e7 21 |.E7. 4:.A$="":.!|
0002dd00 69 25 3e 31 31 8c 41 24 3d 50 49 54 65 5f 24 28 |i%>11.A$=PITe_$(|
0002dd10 21 69 25 2b 70 69 74 70 5f 25 2a 73 69 74 69 66 |!i%+pitp_%*sitif|
0002dd20 5f 25 2d 42 25 29 0d 97 4a 1f e7 41 24 3c 3e 22 |_%-B%)..J..A$<>"|
0002dd30 22 8c 42 24 3d a4 63 61 70 73 5f 28 41 24 29 3a |".B$=.caps_(A$):|
0002dd40 41 24 3d 22 22 0d 97 4f 0f c9 20 35 3a e7 41 24 |A$=""..O.. 5:.A$|
0002dd50 3d 22 22 8c 0d 97 54 40 44 24 3d a4 63 61 70 73 |=""...T@D$=.caps|
0002dd60 5f 28 a4 67 49 64 28 70 61 6c 65 64 25 2c 21 69 |_(.gId(paled%,!i|
0002dd70 25 2d 31 29 29 3a e7 21 69 25 2b 70 69 74 70 5f |%-1)):.!i%+pitp_|
0002dd80 25 2a 73 69 74 69 66 5f 25 3e 31 31 80 44 24 3c |%*sitif_%>11.D$<|
0002dd90 3e 22 22 8c 0d 97 59 2d c8 99 26 34 30 36 43 30 |>""...Y-..&406C0|
0002dda0 3a e3 61 5f 25 3d 21 69 25 2b 70 69 74 70 5f 25 |:.a_%=!i%+pitp_%|
0002ddb0 2a 73 69 74 69 66 5f 25 2d 42 25 b8 35 88 2d 42 |*sitif_%-B%.5.-B|
0002ddc0 25 0d 97 5e 57 e7 a4 63 61 70 73 5f 28 50 49 54 |%..^W..caps_(PIT|
0002ddd0 65 5f 24 28 61 5f 25 2d 31 29 29 3d 44 24 3a e7 |e_$(a_%-1))=D$:.|
0002dde0 a4 67 6e 5f 28 50 49 54 65 5f 24 28 61 5f 25 29 |.gn_(PITe_$(a_%)|
0002ddf0 29 3e 30 3a 42 24 3d a4 75 70 64 61 74 65 6e 75 |)>0:B$=.updatenu|
0002de00 6d 5f 28 50 49 54 65 5f 24 28 61 5f 25 29 2c 35 |m_(PITe_$(a_%),5|
0002de10 30 29 3a 61 5f 25 3d 35 0d 97 63 0e ed 3a c8 99 |0):a_%=5..c..:..|
0002de20 26 34 30 36 43 31 0d 97 68 05 cd 0d 97 6d 05 cd |&406C1..h....m..|
0002de30 0d 97 72 13 c9 20 36 3a 42 25 3d a4 6e 69 5f 28 |..r.. 6:B%=.ni_(|
0002de40 41 24 29 0d 97 77 34 e7 c2 41 24 29 3d 22 a3 22 |A$)..w4..A$)="."|
0002de50 3a 42 24 3d a4 61 64 64 5f 76 61 74 28 42 25 29 |:B$=.add_vat(B%)|
0002de60 3a 41 24 3d 22 30 22 20 8b 42 24 3d a4 74 63 5f |:A$="0" .B$=.tc_|
0002de70 28 42 25 2c 22 22 29 0d 97 7c 22 41 5f 24 3d a4 |(B%,"")..|"A_$=.|
0002de80 61 75 74 6f 76 61 74 5f 28 41 24 2c 42 25 29 3a |autovat_(A$,B%):|
0002de90 e7 41 5f 24 3c 3e 22 22 8c 0d 97 81 36 5a 25 3d |.A_$<>""....6Z%=|
0002dea0 a4 70 49 49 28 70 61 6c 65 64 25 2c 21 69 25 2b |.pII(paled%,!i%+|
0002deb0 31 2c 76 61 74 63 5f 24 29 3a 41 25 2b 3d 33 3a |1,vatc_$):A%+=3:|
0002dec0 e7 41 5f 24 3d 22 30 22 8c 41 5f 24 3d 22 22 0d |.A_$="0".A_$="".|
0002ded0 97 86 1d 5a 25 3d a4 70 49 49 28 70 61 6c 65 64 |...Z%=.pII(paled|
0002dee0 25 2c 21 69 25 2b 32 2c 41 5f 24 29 0d 97 8b 05 |%,!i%+2,A_$)....|
0002def0 cd 0d 97 90 1d c9 20 37 3a e7 41 24 3c 3e 22 22 |...... 7:.A$<>""|
0002df00 8c 42 24 3d a4 63 61 70 73 5f 28 41 24 29 0d 97 |.B$=.caps_(A$)..|
0002df10 95 22 c9 20 38 3a 42 25 3d a4 6e 69 5f 28 41 24 |.". 8:B%=.ni_(A$|
0002df20 29 3a 42 24 3d a4 74 63 5f 28 42 25 2c 22 22 29 |):B$=.tc_(B%,"")|
0002df30 0d 97 9a 2f c9 20 39 3a 42 25 3d a4 6e 69 5f 28 |.../. 9:B%=.ni_(|
0002df40 41 24 29 3a 43 25 3d a4 6e 69 5f 28 a4 67 49 64 |A$):C%=.ni_(.gId|
0002df50 28 70 61 6c 65 64 25 2c 21 69 25 2d 33 29 29 0d |(paled%,!i%-3)).|
0002df60 97 9f 5e 43 24 3d 22 22 3a e7 a7 41 24 2c 22 50 |..^C$="":..A$,"P|
0002df70 22 29 84 a7 41 24 2c 22 70 22 29 8c 43 24 3d 22 |")..A$,"p").C$="|
0002df80 50 22 20 8b e7 a7 41 24 2c 22 52 22 29 84 a7 41 |P" ...A$,"R")..A|
0002df90 24 2c 22 72 22 29 8c 43 24 3d 22 52 22 20 8b e7 |$,"r").C$="R" ..|
0002dfa0 a7 41 24 2c 22 55 22 29 84 a7 41 24 2c 22 75 22 |.A$,"U")..A$,"u"|
0002dfb0 29 8c 43 24 3d 22 55 22 3a 42 25 3d 30 0d 97 a4 |).C$="U":B%=0...|
0002dfc0 1e e7 43 24 3d 22 52 22 84 43 24 3d 22 50 22 3a |..C$="R".C$="P":|
0002dfd0 e7 42 25 3d 30 8c 42 25 3d 43 25 0d 97 a9 12 42 |.B%=0.B%=C%....B|
0002dfe0 24 3d a4 74 63 5f 28 42 25 2c 22 22 29 0d 97 ae |$=.tc_(B%,"")...|
0002dff0 38 c9 20 31 30 3a e7 41 24 3d 22 22 3a e7 21 69 |8. 10:.A$="":.!i|
0002e000 25 3e 31 31 8c 41 24 3d 50 49 54 65 5f 24 28 21 |%>11.A$=PITe_$(!|
0002e010 69 25 2b 70 69 74 70 5f 25 2a 73 69 74 69 66 5f |i%+pitp_%*sitif_|
0002e020 25 2d 42 25 29 0d 97 b3 16 e7 a9 28 41 24 29 3d |%-B%)......(A$)=|
0002e030 31 8c 41 24 3d 41 24 2b 22 41 22 0d 97 b8 1f e7 |1.A$=A$+"A".....|
0002e040 41 24 3c 3e 22 22 8c 42 24 3d a4 63 61 70 73 5f |A$<>"".B$=.caps_|
0002e050 28 41 24 29 3a 41 24 3d 22 22 0d 97 bd 56 c9 20 |(A$):A$=""...V. |
0002e060 30 3a e7 41 24 3d 22 22 3a e7 21 69 25 3e 31 31 |0:.A$="":.!i%>11|
0002e070 8c 5a 25 3d a4 70 49 49 28 70 61 6c 65 64 25 2c |.Z%=.pII(paled%,|
0002e080 21 69 25 2c a4 75 70 64 61 74 65 6e 75 6d 32 5f |!i%,.updatenum2_|
0002e090 28 50 49 54 65 5f 24 28 21 69 25 2b 70 69 74 70 |(PITe_$(!i%+pitp|
0002e0a0 5f 25 2a 73 69 74 69 66 5f 25 2d 42 25 29 29 29 |_%*sitif_%-B%)))|
0002e0b0 0d 97 c2 2c e7 21 69 25 3d 73 69 74 69 6e 5f 25 |...,.!i%=sitin_%|
0002e0c0 8c f2 50 49 54 64 6f 77 6e 5f 28 2d 31 29 3a 41 |..PITdown_(-1):A|
0002e0d0 25 3d 73 69 74 69 6e 5f 25 2d 31 30 0d 97 c7 05 |%=sitin_%-10....|
0002e0e0 cb 0d 97 cc 22 e7 41 24 3c 3e 42 24 8c 5a 25 3d |....".A$<>B$.Z%=|
0002e0f0 a4 70 49 49 28 70 61 6c 65 64 25 2c 21 69 25 2c |.pII(paled%,!i%,|
0002e100 42 24 29 0d 97 d1 2d e7 43 24 3c 3e 22 22 8c 5a |B$)...-.C$<>"".Z|
0002e110 25 3d a4 70 49 49 28 70 61 6c 65 64 25 2c 21 69 |%=.pII(paled%,!i|
0002e120 25 2f 73 69 74 69 66 5f 25 2b 37 36 2c 43 24 29 |%/sitif_%+76,C$)|
0002e130 0d 97 d6 47 e7 41 25 3c 3e 21 69 25 8c f2 73 65 |...G.A%<>!i%..se|
0002e140 74 43 31 5f 28 70 61 6c 65 64 25 2c 41 25 29 20 |tC1_(paled%,A%) |
0002e150 8b 41 25 2b 3d 31 3a e7 41 25 3e 73 69 74 69 6e |.A%+=1:.A%>sitin|
0002e160 5f 25 8c 41 25 3d 73 69 74 69 6e 5f 25 2d 73 69 |_%.A%=sitin_%-si|
0002e170 74 69 66 5f 25 2b 31 0d 97 db 0f f2 67 65 74 50 |tif_%+1.....getP|
0002e180 49 54 64 61 74 5f 0d 97 e0 18 f2 73 65 65 77 69 |ITdat_.....seewi|
0002e190 6e 64 5f 28 70 61 6c 65 64 25 2c 41 25 29 0d 97 |nd_(paled%,A%)..|
0002e1a0 e5 06 3d b9 0d 97 ea 04 0d 97 ef 0b dd a4 52 73 |..=...........Rs|
0002e1b0 6e 32 5f 0d 97 f4 28 ea 20 41 5f 25 2c 41 25 2c |n2_...(. A_%,A%,|
0002e1c0 42 25 2c 43 25 2c 44 25 2c 5a 25 2c 41 5f 24 2c |B%,C%,D%,Z%,A_$,|
0002e1d0 41 24 2c 42 24 2c 43 24 2c 44 24 0d 97 f9 37 41 |A$,B$,C$,D$...7A|
0002e1e0 5f 25 3d 21 69 25 3a 41 24 3d a4 67 49 64 28 62 |_%=!i%:A$=.gId(b|
0002e1f0 61 6e 6b 6c 25 2c 21 69 25 29 3a 42 24 3d 41 24 |ankl%,!i%):B$=A$|
0002e200 3a 41 25 3d 21 69 25 3a 42 25 3d 62 69 74 69 66 |:A%=!i%:B%=bitif|
0002e210 5f 25 0d 97 fe 12 c8 8e 21 69 25 83 62 69 74 69 |_%......!i%.biti|
0002e220 66 5f 25 ca 0d 98 03 1c c9 20 31 3a e7 62 69 74 |f_%...... 1:.bit|
0002e230 70 5f 25 3d 30 80 21 69 25 3c 39 8c 42 25 3d 31 |p_%=0.!i%<9.B%=1|
0002e240 0d 98 08 32 42 24 3d a4 63 68 64 61 74 65 31 5f |...2B$=.chdate1_|
0002e250 28 41 24 2c 42 49 54 65 5f 24 28 21 69 25 2b 62 |(A$,BITe_$(!i%+b|
0002e260 69 74 70 5f 25 2a 62 69 74 69 66 5f 25 2d 42 25 |itp_%*bitif_%-B%|
0002e270 29 29 0d 98 0d 46 c9 20 32 3a e7 41 24 3d 22 22 |))...F. 2:.A$=""|
0002e280 3a e7 21 69 25 3e 38 8c 42 24 3d a4 75 70 64 61 |:.!i%>8.B$=.upda|
0002e290 74 65 6e 75 6d 5f 28 42 49 54 65 5f 24 28 21 69 |tenum_(BITe_$(!i|
0002e2a0 25 2b 62 69 74 70 5f 25 2a 62 69 74 69 66 5f 25 |%+bitp_%*bitif_%|
0002e2b0 2d 42 25 29 2c 35 30 29 0d 98 12 36 c9 20 33 3a |-B%),50)...6. 3:|
0002e2c0 e7 41 24 3d 22 22 3a e7 21 69 25 3e 38 8c 41 24 |.A$="":.!i%>8.A$|
0002e2d0 3d 42 49 54 65 5f 24 28 21 69 25 2b 62 69 74 70 |=BITe_$(!i%+bitp|
0002e2e0 5f 25 2a 62 69 74 69 66 5f 25 2d 42 25 29 0d 98 |_%*bitif_%-B%)..|
0002e2f0 17 1f e7 41 24 3c 3e 22 22 8c 42 24 3d a4 63 61 |...A$<>"".B$=.ca|
0002e300 70 73 5f 28 41 24 29 3a 41 24 3d 22 22 0d 98 1c |ps_(A$):A$=""...|
0002e310 5b c9 20 35 3a 42 25 3d a4 6e 69 5f 28 41 24 29 |[. 5:B%=.ni_(A$)|
0002e320 3a 42 24 3d a4 74 63 5f 28 42 25 2c 22 22 29 3a |:B$=.tc_(B%,""):|
0002e330 e7 42 25 3c 3e 30 3a e7 a4 67 49 64 28 62 61 6e |.B%<>0:..gId(ban|
0002e340 6b 6c 25 2c 21 69 25 2d 31 29 3c 22 7b 22 8c 5a |kl%,!i%-1)<"{".Z|
0002e350 25 3d a4 70 49 49 28 62 61 6e 6b 6c 25 2c 21 69 |%=.pII(bankl%,!i|
0002e360 25 2d 31 2c 22 50 22 29 0d 98 21 36 c9 20 36 3a |%-1,"P")..!6. 6:|
0002e370 e7 41 24 3d 22 22 3a e7 21 69 25 3e 38 8c 41 24 |.A$="":.!i%>8.A$|
0002e380 3d 42 49 54 65 5f 24 28 21 69 25 2b 62 69 74 70 |=BITe_$(!i%+bitp|
0002e390 5f 25 2a 62 69 74 69 66 5f 25 2d 42 25 29 0d 98 |_%*bitif_%-B%)..|
0002e3a0 26 1f e7 41 24 3c 3e 22 22 8c 42 24 3d a4 63 61 |&..A$<>"".B$=.ca|
0002e3b0 70 73 5f 28 41 24 29 3a 41 24 3d 22 22 0d 98 2b |ps_(A$):A$=""..+|
0002e3c0 55 c9 20 30 3a e7 41 24 3d 22 22 3a e7 21 69 25 |U. 0:.A$="":.!i%|
0002e3d0 3e 38 8c 5a 25 3d a4 70 49 49 28 62 61 6e 6b 6c |>8.Z%=.pII(bankl|
0002e3e0 25 2c 21 69 25 2c a4 75 70 64 61 74 65 6e 75 6d |%,!i%,.updatenum|
0002e3f0 32 5f 28 42 49 54 65 5f 24 28 21 69 25 2b 62 69 |2_(BITe_$(!i%+bi|
0002e400 74 70 5f 25 2a 62 69 74 69 66 5f 25 2d 42 25 29 |tp_%*bitif_%-B%)|
0002e410 29 29 0d 98 30 2b e7 21 69 25 3d 62 69 74 69 6e |))..0+.!i%=bitin|
0002e420 5f 25 8c f2 42 49 54 64 6f 77 6e 5f 28 2d 31 29 |_%..BITdown_(-1)|
0002e430 3a 41 25 3d 62 69 74 69 6e 5f 25 2d 37 0d 98 35 |:A%=bitin_%-7..5|
0002e440 05 cb 0d 98 3a 22 e7 41 24 3c 3e 42 24 8c 5a 25 |....:".A$<>B$.Z%|
0002e450 3d a4 70 49 49 28 62 61 6e 6b 6c 25 2c 21 69 25 |=.pII(bankl%,!i%|
0002e460 2c 42 24 29 0d 98 3f 47 e7 41 25 3c 3e 21 69 25 |,B$)..?G.A%<>!i%|
0002e470 8c f2 73 65 74 43 31 5f 28 62 61 6e 6b 6c 25 2c |..setC1_(bankl%,|
0002e480 41 25 29 20 8b 41 25 2b 3d 31 3a e7 41 25 3e 62 |A%) .A%+=1:.A%>b|
0002e490 69 74 69 6e 5f 25 8c 41 25 3d 62 69 74 69 6e 5f |itin_%.A%=bitin_|
0002e4a0 25 2d 62 69 74 69 66 5f 25 2b 31 0d 98 44 0f f2 |%-bitif_%+1..D..|
0002e4b0 67 65 74 42 49 54 64 61 74 5f 0d 98 49 18 f2 73 |getBITdat_..I..s|
0002e4c0 65 65 77 69 6e 64 5f 28 62 61 6e 6b 6c 25 2c 41 |eewind_(bankl%,A|
0002e4d0 25 29 0d 98 4e 06 3d b9 0d 98 53 93 dd a4 49 54 |%)..N.=...S...IT|
0002e4e0 6f 72 64 5f 3a e7 24 21 49 54 6f 72 64 5f 25 3c |ord_:.$!ITord_%<|
0002e4f0 3e 22 22 3a 43 53 75 53 75 70 70 52 65 5f 24 28 |>"":CSuSuppRe_$(|
0002e500 73 75 70 70 6c 79 31 5f 25 29 3d 24 21 49 54 6f |supply1_%)=$!ITo|
0002e510 72 64 5f 25 3a e7 43 53 75 57 25 3e 30 3a e7 43 |rd_%:.CSuW%>0:.C|
0002e520 53 5f 25 3d 73 75 70 70 6c 79 31 5f 25 3a 24 21 |S_%=supply1_%:$!|
0002e530 43 53 75 53 75 70 70 52 65 66 5f 25 3d 43 53 75 |CSuSuppRef_%=CSu|
0002e540 53 75 70 70 52 65 5f 24 28 73 75 70 70 6c 79 31 |SuppRe_$(supply1|
0002e550 5f 25 29 3a f2 72 49 28 43 53 75 57 25 2c 22 43 |_%):.rI(CSuW%,"C|
0002e560 53 75 53 75 70 70 52 65 66 22 29 0d 98 58 06 3d |SuSuppRef")..X.=|
0002e570 b9 0d 98 5d 5a dd a4 49 54 73 6e 64 5f 3a ea 20 |...]Z..ITsnd_:. |
0002e580 5a 25 3a 5a 25 3d 28 28 21 69 25 2d 36 36 29 2b |Z%:Z%=((!i%-66)+|
0002e590 69 74 70 5f 25 29 3a f2 67 65 74 69 63 6f 6e 5f |itp_%):.geticon_|
0002e5a0 28 69 6e 76 77 25 2c 21 69 25 29 3a f2 73 65 74 |(invw%,!i%):.set|
0002e5b0 69 63 6f 6e 5f 28 69 6e 76 77 25 2c 21 69 25 2c |icon_(invw%,!i%,|
0002e5c0 66 6c 61 67 32 31 5f 25 2c 30 29 0d 98 62 29 e7 |flag21_%,0)..b).|
0002e5d0 49 54 66 5f 25 28 5a 25 29 3d 30 8c 49 54 66 5f |ITf_%(Z%)=0.ITf_|
0002e5e0 25 28 5a 25 29 3d 31 20 8b 49 54 66 5f 25 28 5a |%(Z%)=1 .ITf_%(Z|
0002e5f0 25 29 3d 30 0d 98 67 06 3d b9 0d 98 6c 04 0d 98 |%)=0..g.=...l...|
0002e600 71 49 dd a4 49 54 44 69 73 63 5f 3a e7 24 21 49 |qI..ITDisc_:.$!I|
0002e610 54 44 69 73 63 5f 25 3d 22 44 69 73 63 25 22 20 |TDisc_%="Disc%" |
0002e620 8c 24 21 49 54 44 69 73 63 5f 25 3d 22 43 6f 6d |.$!ITDisc_%="Com|
0002e630 6d 25 22 20 8b 24 21 49 54 44 69 73 63 5f 25 3d |m%" .$!ITDisc_%=|
0002e640 22 44 69 73 63 25 22 0d 98 76 2e f2 72 49 28 69 |"Disc%"..v..rI(i|
0002e650 6e 76 57 25 2c 22 49 54 44 69 73 63 22 29 3a 49 |nvW%,"ITDisc"):I|
0002e660 54 44 69 73 63 5f 24 3d 24 21 49 54 44 69 73 63 |TDisc_$=$!ITDisc|
0002e670 5f 25 3a 3d b9 0d 98 7b 18 dd a4 49 54 72 65 63 |_%:=...{...ITrec|
0002e680 5f 3a e7 69 6e 76 77 25 3c 31 8c 3d a3 0d 98 80 |_:.invw%<1.=....|
0002e690 48 e7 24 21 49 54 72 65 63 5f 25 3d 22 53 74 6f |H.$!ITrec_%="Sto|
0002e6a0 63 6b 20 4e 75 6d 22 20 8c 24 21 49 54 72 65 63 |ck Num" .$!ITrec|
0002e6b0 5f 25 3d 22 52 65 63 72 64 20 4e 75 6d 22 20 8b |_%="Recrd Num" .|
0002e6c0 24 21 49 54 72 65 63 5f 25 3d 22 53 74 6f 63 6b |$!ITrec_%="Stock|
0002e6d0 20 4e 75 6d 22 0d 98 85 2a f2 72 49 28 69 6e 76 | Num"...*.rI(inv|
0002e6e0 57 25 2c 22 49 54 72 65 63 22 29 3a 49 54 72 65 |W%,"ITrec"):ITre|
0002e6f0 5f 24 3d 24 21 49 54 72 65 63 5f 25 3a 3d b9 0d |_$=$!ITrec_%:=..|
0002e700 98 8a 86 dd a4 49 54 70 72 69 5f 3a e7 24 21 49 |.....ITpri_:.$!I|
0002e710 54 70 72 69 5f 25 3d 22 52 65 74 2e 45 78 63 22 |Tpri_%="Ret.Exc"|
0002e720 20 8c 24 21 49 54 70 72 69 5f 25 3d 22 52 65 74 | .$!ITpri_%="Ret|
0002e730 2e 49 6e 63 22 20 8b e7 24 21 49 54 70 72 69 5f |.Inc" ..$!ITpri_|
0002e740 25 3d 22 52 65 74 2e 49 6e 63 22 20 8c 24 21 49 |%="Ret.Inc" .$!I|
0002e750 54 70 72 69 5f 25 3d 22 4c 69 73 74 22 20 8b e7 |Tpri_%="List" ..|
0002e760 24 21 49 54 70 72 69 5f 25 3d 22 4c 69 73 74 22 |$!ITpri_%="List"|
0002e770 20 8c 24 21 49 54 70 72 69 5f 25 3d 22 52 65 74 | .$!ITpri_%="Ret|
0002e780 2e 45 78 63 22 0d 98 8f 2c f2 72 49 28 69 6e 76 |.Exc"...,.rI(inv|
0002e790 57 25 2c 22 49 54 70 72 69 22 29 3a 49 54 70 72 |W%,"ITpri"):ITpr|
0002e7a0 69 63 5f 24 3d 24 21 49 54 70 72 69 5f 25 3a 3d |ic_$=$!ITpri_%:=|
0002e7b0 b9 0d 98 94 21 dd a4 49 54 63 6f 70 5f 3a 49 54 |....!..ITcop_:IT|
0002e7c0 63 6f 70 5f 24 3d 24 21 49 54 63 6f 70 5f 25 3a |cop_$=$!ITcop_%:|
0002e7d0 3d b9 0d 98 99 4d dd a4 49 54 65 73 64 5f 3a 49 |=....M..ITesd_:I|
0002e7e0 54 65 73 5f 25 3d bb 28 24 21 49 54 65 73 64 5f |Tes_%=.($!ITesd_|
0002e7f0 25 29 3a f2 67 65 74 49 54 64 61 74 5f 28 30 29 |%):.getITdat_(0)|
0002e800 3a f2 67 65 74 49 54 64 61 74 74 6f 74 5f 3a f2 |:.getITdattot_:.|
0002e810 73 65 74 49 54 64 61 74 5f 28 30 29 3a 3d b9 0d |setITdat_(0):=..|
0002e820 98 9e 30 dd a4 49 54 73 75 70 70 6c 69 65 72 5f |..0..ITsupplier_|
0002e830 3a ea 20 5a 25 3a 5a 25 3d a4 73 66 5f 28 24 21 |:. Z%:Z%=.sf_($!|
0002e840 49 54 73 75 70 70 6c 69 65 72 5f 25 2c 31 29 0d |ITsupplier_%,1).|
0002e850 98 a3 5d e7 5a 25 3e 30 3a 24 21 49 54 73 75 70 |..].Z%>0:$!ITsup|
0002e860 70 6c 69 65 72 5f 25 3d 43 53 75 70 70 6c 69 65 |plier_%=CSupplie|
0002e870 72 73 5f 24 28 5a 25 29 3a 49 54 73 75 70 6e 75 |rs_$(Z%):ITsupnu|
0002e880 6d 4e 5f 25 3d 43 53 75 4e 75 6d 62 65 72 5f 25 |mN_%=CSuNumber_%|
0002e890 28 5a 25 29 3a f2 72 49 28 69 6e 76 57 25 2c 22 |(Z%):.rI(invW%,"|
0002e8a0 49 54 73 75 70 70 6c 69 65 72 22 29 0d 98 a8 0f |ITsupplier")....|
0002e8b0 3d a4 49 54 6e 65 74 5f 28 30 29 0d 98 ad 18 dd |=.ITnet_(0).....|
0002e8c0 a4 49 54 6e 75 6d 5f 3a 3d a4 49 54 6e 65 74 5f |.ITnum_:=.ITnet_|
0002e8d0 28 30 29 0d 98 b2 6b dd a4 6e 65 77 63 75 73 74 |(0)...k..newcust|
0002e8e0 5f 3a ea 20 41 25 2c 5a 25 3a 5a 25 3d b9 3a e7 |_:. A%,Z%:Z%=.:.|
0002e8f0 a4 67 65 74 63 75 73 74 5f 28 30 29 3d a3 20 8c |.getcust_(0)=. .|
0002e900 24 21 49 54 6e 75 6d 5f 25 3d 49 54 6e 75 5f 24 |$!ITnum_%=ITnu_$|
0002e910 3a 24 21 49 54 73 75 70 70 6c 69 65 72 5f 25 3d |:$!ITsupplier_%=|
0002e920 a4 67 65 74 63 75 73 74 6e 61 6d 65 5f 28 49 54 |.getcustname_(IT|
0002e930 73 75 70 6e 75 6d 5f 25 29 3a 5a 25 3d a3 0d 98 |supnum_%):Z%=...|
0002e940 b7 47 f2 72 49 28 69 6e 76 57 25 2c 22 49 54 6e |.G.rI(invW%,"ITn|
0002e950 75 6d 22 29 3a f2 72 49 28 69 6e 76 57 25 2c 22 |um"):.rI(invW%,"|
0002e960 49 54 73 75 70 70 6c 69 65 72 22 29 3a f2 73 65 |ITsupplier"):.se|
0002e970 74 43 31 5f 28 69 6e 76 77 25 2c 69 74 69 5f 25 |tC1_(invw%,iti_%|
0002e980 29 3a 3d 5a 25 0d 98 bc 12 dd a4 49 54 73 6c 5f |):=Z%......ITsl_|
0002e990 3a 3d a4 6f 70 74 5f 0d 98 c1 33 dd a4 49 54 70 |:=.opt_...3..ITp|
0002e9a0 64 5f 3a f2 73 49 28 69 6e 76 57 25 2c 22 49 54 |d_:.sI(invW%,"IT|
0002e9b0 70 64 22 29 3a f2 73 49 28 69 6e 76 57 25 2c 22 |pd"):.sI(invW%,"|
0002e9c0 49 54 75 6e 70 22 29 3a 3d b9 0d 98 c6 36 dd a4 |ITunp"):=....6..|
0002e9d0 49 54 75 6e 70 5f 3a f2 75 73 49 28 69 6e 76 57 |ITunp_:.usI(invW|
0002e9e0 25 2c 22 49 54 75 6e 70 22 29 3a f2 75 73 49 28 |%,"ITunp"):.usI(|
0002e9f0 69 6e 76 57 25 2c 22 49 54 70 64 22 29 3a 3d b9 |invW%,"ITpd"):=.|
0002ea00 0d 98 cb 19 dd a4 49 54 75 6e 70 31 5f 3a e7 69 |......ITunp1_:.i|
0002ea10 6e 76 77 25 3c 31 3a 3d a3 0d 98 d0 29 63 69 5f |nvw%<1:=....)ci_|
0002ea20 25 3d 2d 63 69 5f 25 3a e7 63 69 5f 25 3d 2d 31 |%=-ci_%:.ci_%=-1|
0002ea30 8c 3d a4 49 54 70 64 5f 20 8b 3d a4 49 54 75 6e |.=.ITpd_ .=.ITun|
0002ea40 70 5f 0d 98 d5 2f dd a4 67 65 74 63 75 73 74 6e |p_.../..getcustn|
0002ea50 61 6d 65 5f 28 41 25 29 3a ea 20 41 24 2c 5a 25 |ame_(A%):. A$,Z%|
0002ea60 3a e3 5a 25 3d 31 b8 43 6d 61 78 73 75 70 70 5f |:.Z%=1.Cmaxsupp_|
0002ea70 25 0d 98 da 39 e7 41 25 3d 43 53 75 4e 75 6d 62 |%...9.A%=CSuNumb|
0002ea80 65 72 5f 25 28 5a 25 29 8c 41 24 3d 43 53 75 70 |er_%(Z%).A$=CSup|
0002ea90 70 6c 69 65 72 73 5f 24 28 5a 25 29 3a 5a 25 3d |pliers_$(Z%):Z%=|
0002eaa0 43 6d 61 78 73 75 70 70 5f 25 0d 98 df 09 ed 3a |Cmaxsupp_%.....:|
0002eab0 3d 41 24 0d 98 e4 2e dd a4 67 65 74 63 75 73 74 |=A$......getcust|
0002eac0 6e 75 6d 5f 28 41 25 29 3a ea 20 42 25 2c 5a 25 |num_(A%):. B%,Z%|
0002ead0 3a e3 5a 25 3d 31 b8 43 6d 61 78 73 75 70 70 5f |:.Z%=1.Cmaxsupp_|
0002eae0 25 0d 98 e9 2b e7 41 25 3d 43 53 75 4e 75 6d 62 |%...+.A%=CSuNumb|
0002eaf0 65 72 5f 25 28 5a 25 29 8c 42 25 3d 5a 25 3a 5a |er_%(Z%).B%=Z%:Z|
0002eb00 25 3d 43 6d 61 78 73 75 70 70 5f 25 0d 98 ee 09 |%=Cmaxsupp_%....|
0002eb10 ed 3a 3d 42 25 0d 98 ef 04 0d 98 f0 1e dd a4 63 |.:=B%..........c|
0002eb20 68 65 63 6b 64 61 74 65 5f 28 42 24 29 3a e7 42 |heckdate_(B$):.B|
0002eb30 24 3d 22 22 8c 3d b9 0d 98 f1 20 e7 a4 4a 75 6c |$="".=.... ..Jul|
0002eb40 5f 28 74 6f 64 61 79 5f 24 29 3e a4 4a 75 6c 5f |_(today_$)>.Jul_|
0002eb50 28 42 24 29 8c 3d b9 0d 98 f2 06 3d a3 0d 98 f3 |(B$).=.....=....|
0002eb60 04 0d 99 1b 0b dd a4 49 54 70 61 5f 0d 99 20 3f |.......ITpa_.. ?|
0002eb70 ea 20 41 25 2c 42 25 2c 43 25 2c 46 25 2c 5a 25 |. A%,B%,C%,F%,Z%|
0002eb80 2c 6e 75 6d 5f 24 2c 63 75 73 74 5f 25 2c 64 24 |,num_$,cust_%,d$|
0002eb90 2c 64 25 2c 69 5f 25 2c 61 24 2c 61 5f 25 2c 6b |,d%,i_%,a$,a_%,k|
0002eba0 5f 25 2c 65 6e 74 5f 25 2c 61 5f 0d 99 25 07 ea |_%,ent_%,a_..%..|
0002ebb0 20 85 0d 99 2a 29 ee 20 85 20 ea 3a f7 20 85 3a | ...*). . .:. .:|
0002ebc0 c8 99 26 34 30 36 43 31 3a f2 70 65 31 5f 28 a4 |..&406C1:.pe1_(.|
0002ebd0 65 72 72 5f 2c 46 25 29 3a 3d a3 0d 99 2f 17 4f |err_,F%):=.../.O|
0002ebe0 65 72 72 5f 25 3d 30 3a 5a 25 3d a4 49 54 6e 75 |err_%=0:Z%=.ITnu|
0002ebf0 6d 5f 0d 99 34 18 46 25 3d ad 28 69 6e 76 5f 24 |m_..4.F%=.(inv_$|
0002ec00 29 3a e7 46 25 3d 30 8c 3d a3 0d 99 39 18 e7 a2 |):.F%=0.=...9...|
0002ec10 23 46 25 3d 30 8c d9 23 46 25 3a 46 25 3d 30 3a |#F%=0..#F%:F%=0:|
0002ec20 3d a3 0d 99 3e 0d f5 3a 65 6e 74 5f 25 3d 30 0d |=...>..:ent_%=0.|
0002ec30 99 43 30 41 25 3d 8f 23 46 25 3a e8 23 46 25 2c |.C0A%=.#F%:.#F%,|
0002ec40 6e 75 6d 5f 24 2c 63 75 73 74 5f 25 2c 64 24 2c |num_$,cust_%,d$,|
0002ec50 64 25 2c 69 5f 25 2c 61 24 2c 61 24 2c 61 24 0d |d%,i_%,a$,a$,a$.|
0002ec60 99 48 23 e3 5a 25 3d 30 b8 34 3a e8 23 46 25 2c |.H#.Z%=0.4:.#F%,|
0002ec70 61 5f 25 3a ed 3a e8 23 46 25 2c 6b 5f 25 2c 61 |a_%:.:.#F%,k_%,a|
0002ec80 5f 25 0d 99 4d 2c e3 5a 25 3d 31 b8 69 5f 25 2a |_%..M,.Z%=1.i_%*|
0002ec90 69 74 69 66 5f 25 3a e8 23 46 25 2c 61 24 3a e7 |itif_%:.#F%,a$:.|
0002eca0 61 24 3c 3e 22 22 8c 65 6e 74 5f 25 3d 31 0d 99 |a$<>"".ent_%=1..|
0002ecb0 52 05 ed 0d 99 57 2e e3 5a 25 3d 30 b8 69 5f 25 |R....W..Z%=0.i_%|
0002ecc0 3a e8 23 46 25 2c 61 24 2c 61 5f 25 2c 61 5f 25 |:.#F%,a$,a_%,a_%|
0002ecd0 2c 61 5f 25 2c 61 5f 25 2c 61 24 2c 61 5f 25 3a |,a_%,a_%,a$,a_%:|
0002ece0 ed 0d 99 5c 0b 42 25 3d 8f 23 46 25 0d 99 61 0d |...\.B%=.#F%..a.|
0002ecf0 d9 23 46 25 3a 46 25 3d 30 0d 99 66 3c e7 69 5f |.#F%:F%=0..f<.i_|
0002ed00 25 3e 30 80 6e 75 6d 5f 24 3d 22 43 75 72 72 65 |%>0.num_$="Curre|
0002ed10 6e 74 22 80 a4 63 68 65 63 6b 64 61 74 65 5f 28 |nt"..checkdate_(|
0002ed20 64 24 29 3d b9 20 80 6b 5f 25 3d 30 80 65 6e 74 |d$)=. .k_%=0.ent|
0002ed30 5f 25 3d 31 8c 0d 99 6b 4b 24 21 49 54 73 75 70 |_%=1...kK$!ITsup|
0002ed40 70 6c 69 65 72 5f 25 3d a4 67 65 74 63 75 73 74 |plier_%=.getcust|
0002ed50 6e 61 6d 65 5f 28 63 75 73 74 5f 25 29 3a 24 21 |name_(cust_%):$!|
0002ed60 49 54 72 65 63 64 5f 25 3d c3 28 a4 67 65 74 63 |ITrecd_%=.(.getc|
0002ed70 75 73 74 6e 75 6d 5f 28 63 75 73 74 5f 25 29 29 |ustnum_(cust_%))|
0002ed80 0d 99 70 1e 24 21 49 54 6e 75 6d 5f 25 3d 6e 75 |..p.$!ITnum_%=nu|
0002ed90 6d 5f 24 3a 5a 25 3d a4 49 54 6e 75 6d 5f 0d 99 |m_$:Z%=.ITnum_..|
0002eda0 75 17 e7 a4 49 54 70 69 5f 3d a3 20 8c 4f 65 72 |u...ITpi_=. .Oer|
0002edb0 72 5f 25 3d 31 0d 99 7a 09 43 25 3d 41 25 0d 99 |r_%=1..z.C%=A%..|
0002edc0 7f 05 cc 0d 99 84 09 43 25 3d 42 25 0d 99 89 05 |.......C%=B%....|
0002edd0 cd 0d 99 8e 17 46 25 3d ad 28 69 6e 76 5f 24 29 |.....F%=.(inv_$)|
0002ede0 3a cf 23 46 25 3d 43 25 0d 99 93 2f 61 5f 3d a6 |:.#F%=C%.../a_=.|
0002edf0 28 30 29 3a fd 8f 23 46 25 3d a2 23 46 25 84 4f |(0):..#F%=.#F%.O|
0002ee00 65 72 72 5f 25 3e 30 84 61 5f 3d 32 37 3a d9 23 |err_%>0.a_=27:.#|
0002ee10 46 25 3a 46 25 3d 30 0d 99 98 0c 3d a4 49 54 6e |F%:F%=0....=.ITn|
0002ee20 75 6d 5f 0d 99 9d 04 0d 99 a2 0b dd a4 49 54 70 |um_..........ITp|
0002ee30 69 5f 0d 99 a7 12 ea 20 41 5f 25 2c 42 25 2c 43 |i_..... A_%,B%,C|
0002ee40 25 2c 5a 25 0d 99 ac 23 43 25 3d 30 3a 41 5f 25 |%,Z%...#C%=0:A_%|
0002ee50 3d b9 3a 42 25 3d a3 3a 5a 25 3d a4 75 70 64 61 |=.:B%=.:Z%=.upda|
0002ee60 74 65 49 6e 76 57 5f 0d 99 b1 61 e7 49 54 6e 75 |teInvW_...a.ITnu|
0002ee70 5f 24 3d 22 43 75 72 72 65 6e 74 22 8c 49 54 6e |_$="Current".ITn|
0002ee80 75 6d 62 5f 24 3d 43 53 75 4f 72 64 65 5f 24 28 |umb_$=CSuOrde_$(|
0002ee90 a4 67 65 74 63 75 73 74 6e 75 6d 5f 28 49 54 73 |.getcustnum_(ITs|
0002eea0 75 70 6e 75 6d 5f 25 29 29 2b 49 4f 72 64 65 72 |upnum_%))+IOrder|
0002eeb0 53 5f 24 28 31 39 29 20 8b 49 54 6e 75 6d 62 5f |S_$(19) .ITnumb_|
0002eec0 24 3d 49 54 6e 75 5f 24 0d 99 b6 20 e7 a4 63 68 |$=ITnu_$... ..ch|
0002eed0 65 63 6b 64 61 74 65 5f 28 24 21 49 54 64 61 5f |eckdate_($!ITda_|
0002eee0 25 29 3d a3 20 8c 3d a3 0d 99 bb 18 e7 a4 67 65 |%)=. .=.......ge|
0002eef0 74 69 66 6c 61 67 28 39 33 29 3d 31 20 8c 3d a3 |tiflag(93)=1 .=.|
0002ef00 0d 99 c0 11 f2 67 65 74 49 54 64 61 74 76 61 74 |.....getITdatvat|
0002ef10 5f 0d 99 c5 4b e7 a4 67 65 74 69 66 6c 61 67 28 |_...K..getiflag(|
0002ef20 38 36 29 3d 30 3a 5a 25 3d a4 66 69 72 73 74 66 |86)=0:Z%=.firstf|
0002ef30 72 65 65 73 61 6c 65 5f 3a e7 a4 66 72 65 65 73 |reesale_:..frees|
0002ef40 61 6c 65 5f 3d 31 8c 65 72 72 6f 72 5f 25 3d 31 |ale_=1.error_%=1|
0002ef50 3a f2 77 6c 5f 28 32 35 29 3a 3d a3 0d 99 ca 3d |:.wl_(25):=....=|
0002ef60 e7 a4 49 54 70 72 69 6e 74 5f 28 bb 28 24 21 49 |..ITprint_(.($!I|
0002ef70 54 63 6f 70 5f 25 29 2c 30 2c a4 67 65 74 63 75 |Tcop_%),0,.getcu|
0002ef80 73 74 6e 75 6d 5f 28 49 54 73 75 70 6e 75 6d 5f |stnum_(ITsupnum_|
0002ef90 25 29 29 3d a3 20 8c 3d a3 0d 99 cf 2c e7 a4 67 |%))=. .=....,..g|
0002efa0 65 74 69 66 6c 61 67 28 38 36 29 3d 30 8c 5a 25 |etiflag(86)=0.Z%|
0002efb0 3d a4 73 61 76 65 73 61 6c 65 73 6c 65 64 67 65 |=.savesalesledge|
0002efc0 72 5f 28 32 29 0d 99 d4 c6 e7 a4 67 65 74 69 66 |r_(2)......getif|
0002efd0 6c 61 67 28 39 32 29 3d 31 8c 24 21 49 54 6e 75 |lag(92)=1.$!ITnu|
0002efe0 6d 5f 25 3d 22 43 75 72 72 65 6e 74 22 3a 5a 25 |m_%="Current":Z%|
0002eff0 3d a4 67 65 74 63 75 73 74 5f 28 31 29 3a 5a 25 |=.getcust_(1):Z%|
0002f000 3d a4 6f 70 74 31 5f 28 38 36 29 3a 5a 25 3d a4 |=.opt1_(86):Z%=.|
0002f010 6f 70 74 31 5f 28 39 32 29 3a 5a 25 3d a4 6f 70 |opt1_(92):Z%=.op|
0002f020 74 31 5f 28 39 33 29 3a 5a 25 3d a4 6f 70 74 31 |t1_(93):Z%=.opt1|
0002f030 5f 28 39 34 29 3a f2 73 65 74 43 31 5f 28 69 6e |_(94):.setC1_(in|
0002f040 76 77 25 2c 69 74 69 5f 25 29 3a 49 4f 72 64 65 |vw%,iti_%):IOrde|
0002f050 72 53 5f 24 28 31 39 29 3d a4 75 70 64 61 74 65 |rS_$(19)=.update|
0002f060 6e 75 6d 5f 28 49 4f 72 64 65 72 53 5f 24 28 31 |num_(IOrderS_$(1|
0002f070 39 29 2c 32 30 29 3a 49 4f 72 64 65 72 63 68 25 |9),20):IOrderch%|
0002f080 28 31 39 29 3d 31 3a 42 25 3d b9 0d 99 d9 3e e7 |(19)=1:B%=....>.|
0002f090 42 25 3d b9 3a e7 49 4f 6e 75 6d 25 3e 30 8c 5a |B%=.:.IOnum%>0.Z|
0002f0a0 25 3d a4 49 69 6e 69 74 4f 72 64 65 72 6e 75 6d |%=.IinitOrdernum|
0002f0b0 5f 3a f2 72 49 28 49 4f 6e 75 6d 25 2c 22 49 4f |_:.rI(IOnum%,"IO|
0002f0c0 72 64 65 72 6e 75 6d 22 29 0d 99 de 0f e7 42 25 |rdernum").....B%|
0002f0d0 3d b9 20 8c 3d 41 5f 25 0d 99 e3 16 e7 49 54 6e |=. .=A_%.....ITn|
0002f0e0 75 5f 24 3d 22 43 75 72 72 65 6e 74 22 8c 0d 99 |u_$="Current"...|
0002f0f0 e8 2d 5a 25 3d a4 6f 70 74 32 5f 28 38 36 29 3a |.-Z%=.opt2_(86):|
0002f100 5a 25 3d a4 6f 70 74 32 5f 28 39 33 29 3a 5a 25 |Z%=.opt2_(93):Z%|
0002f110 3d a4 6f 70 74 32 5f 28 39 34 29 0d 99 ed 46 5a |=.opt2_(94)...FZ|
0002f120 25 3d a4 73 61 76 65 63 75 73 74 5f 28 30 2c 43 |%=.savecust_(0,C|
0002f130 53 75 4f 72 64 65 5f 24 28 a4 67 65 74 63 75 73 |SuOrde_$(.getcus|
0002f140 74 6e 75 6d 5f 28 49 54 73 75 70 6e 75 6d 5f 25 |tnum_(ITsupnum_%|
0002f150 29 29 2b 49 4f 72 64 65 72 53 5f 24 28 31 39 29 |))+IOrderS_$(19)|
0002f160 29 0d 99 f2 60 49 54 6e 75 5f 24 3d 43 53 75 4f |)...`ITnu_$=CSuO|
0002f170 72 64 65 5f 24 28 a4 67 65 74 63 75 73 74 6e 75 |rde_$(.getcustnu|
0002f180 6d 5f 28 49 54 73 75 70 6e 75 6d 5f 25 29 29 2b |m_(ITsupnum_%))+|
0002f190 49 4f 72 64 65 72 53 5f 24 28 31 39 29 3a 24 21 |IOrderS_$(19):$!|
0002f1a0 49 54 6e 75 6d 5f 25 3d 49 54 6e 75 5f 24 3a f2 |ITnum_%=ITnu_$:.|
0002f1b0 72 49 28 69 6e 76 57 25 2c 22 49 54 6e 75 6d 22 |rI(invW%,"ITnum"|
0002f1c0 29 0d 99 f7 3f 49 4f 72 64 65 72 53 5f 24 28 31 |)...?IOrderS_$(1|
0002f1d0 39 29 3d a4 75 70 64 61 74 65 6e 75 6d 5f 28 49 |9)=.updatenum_(I|
0002f1e0 4f 72 64 65 72 53 5f 24 28 31 39 29 2c 32 30 29 |OrderS_$(19),20)|
0002f1f0 3a 49 4f 72 64 65 72 63 68 25 28 31 39 29 3d 31 |:IOrderch%(19)=1|
0002f200 0d 99 fc 38 e7 49 4f 6e 75 6d 25 3e 30 8c 5a 25 |...8.IOnum%>0.Z%|
0002f210 3d a4 49 69 6e 69 74 4f 72 64 65 72 6e 75 6d 5f |=.IinitOrdernum_|
0002f220 3a f2 72 49 28 49 4f 6e 75 6d 25 2c 22 49 4f 72 |:.rI(IOnum%,"IOr|
0002f230 64 65 72 6e 75 6d 22 29 0d 9a 01 05 cc 0d 9a 06 |dernum")........|
0002f240 1b 5a 25 3d a4 73 61 76 65 63 75 73 74 5f 28 30 |.Z%=.savecust_(0|
0002f250 2c 49 54 6e 75 5f 24 29 0d 9a 0b 05 cd 0d 9a 10 |,ITnu_$)........|
0002f260 18 f2 73 65 74 43 31 5f 28 69 6e 76 77 25 2c 69 |..setC1_(invw%,i|
0002f270 74 69 5f 25 29 0d 9a 15 08 3d 41 5f 25 0d 9a 1a |ti_%)....=A_%...|
0002f280 69 dd a4 49 54 74 70 5f 3a e7 49 54 6e 75 5f 24 |i..ITtp_:.ITnu_$|
0002f290 3d 22 43 75 72 72 65 6e 74 22 8c 49 54 6e 75 6d |="Current".ITnum|
0002f2a0 62 5f 24 3d 43 53 75 4f 72 64 65 5f 24 28 a4 67 |b_$=CSuOrde_$(.g|
0002f2b0 65 74 63 75 73 74 6e 75 6d 5f 28 49 54 73 75 70 |etcustnum_(ITsup|
0002f2c0 6e 75 6d 5f 25 29 29 2b 49 4f 72 64 65 72 53 5f |num_%))+IOrderS_|
0002f2d0 24 28 31 39 29 20 8b 49 54 6e 75 6d 62 5f 24 3d |$(19) .ITnumb_$=|
0002f2e0 49 54 6e 75 5f 24 0d 9a 1f 3a f2 67 65 74 49 54 |ITnu_$...:.getIT|
0002f2f0 64 61 74 76 61 74 5f 3a 3d a4 49 54 70 72 69 6e |datvat_:=.ITprin|
0002f300 74 5f 28 31 2c 32 2c a4 67 65 74 63 75 73 74 6e |t_(1,2,.getcustn|
0002f310 75 6d 5f 28 49 54 73 75 70 6e 75 6d 5f 25 29 29 |um_(ITsupnum_%))|
0002f320 0d 9a 24 43 dd a4 49 54 64 69 5f 3a f2 67 65 74 |..$C..ITdi_:.get|
0002f330 69 63 6f 6e 5f 28 69 6e 76 77 25 2c 21 69 25 29 |icon_(invw%,!i%)|
0002f340 3a f2 73 65 74 69 63 6f 6e 5f 28 69 6e 76 77 25 |:.seticon_(invw%|
0002f350 2c 21 69 25 2c 66 6c 61 67 32 31 5f 25 2c 30 29 |,!i%,flag21_%,0)|
0002f360 3a 3d b9 0d 9a 29 12 dd a4 49 54 70 72 5f 3a 3d |:=...)...ITpr_:=|
0002f370 a4 6f 70 74 5f 0d 9a 2e 17 dd a4 49 54 6e 65 5f |.opt_......ITne_|
0002f380 3a 3d a4 49 54 6e 65 74 5f 28 31 29 0d 9a 33 61 |:=.ITnet_(1)..3a|
0002f390 dd a4 49 54 6e 65 31 5f 3a ea 20 5a 25 3a e7 69 |..ITne1_:. Z%:.i|
0002f3a0 6e 76 77 25 3c 31 8c 3d a3 20 8b 5a 25 3d a4 77 |nvw%<1.=. .Z%=.w|
0002f3b0 69 6e 64 6f 77 28 22 49 6e 76 57 22 29 3a 24 21 |indow("InvW"):$!|
0002f3c0 49 54 6e 75 6d 5f 25 3d 22 43 75 72 72 65 6e 74 |ITnum_%="Current|
0002f3d0 22 3a f2 72 49 28 69 6e 76 57 25 2c 22 49 54 6e |":.rI(invW%,"ITn|
0002f3e0 75 6d 22 29 3a 3d a4 49 54 6e 75 6d 5f 0d 9a 38 |um"):=.ITnum_..8|
0002f3f0 10 dd a4 49 54 6e 65 74 5f 28 5a 25 29 0d 9a 3d |...ITnet_(Z%)..=|
0002f400 08 ea 20 41 25 0d 9a 42 0a e7 5a 25 3d 31 8c 0d |.. A%..B..Z%=1..|
0002f410 9a 47 81 e7 a4 67 65 74 69 66 6c 61 67 28 21 69 |.G...getiflag(!i|
0002f420 25 29 3d 31 8c 24 21 49 54 6e 75 6d 5f 25 3d 22 |%)=1.$!ITnum_%="|
0002f430 43 75 72 72 65 6e 74 22 3a f2 72 49 28 69 6e 76 |Current":.rI(inv|
0002f440 57 25 2c 22 49 54 6e 75 6d 22 29 3a 41 25 3d a4 |W%,"ITnum"):A%=.|
0002f450 6e 65 77 63 75 73 74 5f 3a 41 25 3d a4 6f 70 74 |newcust_:A%=.opt|
0002f460 31 5f 28 39 34 29 3a 41 25 3d a4 6f 70 74 31 5f |1_(94):A%=.opt1_|
0002f470 28 39 33 29 3a 41 25 3d a4 6f 70 74 31 5f 28 38 |(93):A%=.opt1_(8|
0002f480 36 29 20 8b 41 25 3d a4 6e 65 77 63 75 73 74 5f |6) .A%=.newcust_|
0002f490 0d 9a 4c 05 cd 0d 9a 51 0a e7 5a 25 3d 30 8c 0d |..L....Q..Z%=0..|
0002f4a0 9a 56 10 41 25 3d a4 6e 65 77 63 75 73 74 5f 0d |.V.A%=.newcust_.|
0002f4b0 9a 5b 42 e7 24 21 49 54 6e 75 6d 5f 25 3d 22 43 |.[B.$!ITnum_%="C|
0002f4c0 75 72 72 65 6e 74 22 8c 41 25 3d a4 6f 70 74 31 |urrent".A%=.opt1|
0002f4d0 5f 28 39 34 29 3a 41 25 3d a4 6f 70 74 31 5f 28 |_(94):A%=.opt1_(|
0002f4e0 39 33 29 3a 41 25 3d a4 6f 70 74 31 5f 28 38 36 |93):A%=.opt1_(86|
0002f4f0 29 0d 9a 60 05 cd 0d 9a 65 06 3d b9 0d 9a 6a 23 |)..`....e.=...j#|
0002f500 dd a4 49 54 61 63 63 31 5f 3a 49 54 61 63 63 5f |..ITacc1_:ITacc_|
0002f510 24 3d 24 21 49 54 61 63 63 31 5f 25 3a 3d b9 0d |$=$!ITacc1_%:=..|
0002f520 9a 6f 26 dd a4 49 54 68 65 61 64 31 5f 3a 49 54 |.o&..IThead1_:IT|
0002f530 68 65 61 64 5f 24 3d 24 21 49 54 68 65 61 64 31 |head_$=$!IThead1|
0002f540 5f 25 3a 3d b9 0d 9a 74 26 dd a4 49 54 63 6f 6d |_%:=...t&..ITcom|
0002f550 6d 31 5f 3a 49 54 63 6f 6d 6d 5f 24 3d 24 21 49 |m1_:ITcomm_$=$!I|
0002f560 54 63 6f 6d 6d 31 5f 25 3a 3d b9 0d 9a 79 3c dd |Tcomm1_%:=...y<.|
0002f570 a4 49 54 64 61 5f 3a 24 21 49 54 64 61 5f 25 3d |.ITda_:$!ITda_%=|
0002f580 a4 63 68 64 61 74 65 5f 28 24 21 49 54 64 61 5f |.chdate_($!ITda_|
0002f590 25 29 3a f2 72 49 28 69 6e 76 57 25 2c 22 49 54 |%):.rI(invW%,"IT|
0002f5a0 64 61 22 29 3a 3d b9 0d 9a 7e 04 0d 9a 83 42 dd |da"):=...~....B.|
0002f5b0 a4 6f 70 74 5f 3a f2 67 65 74 69 63 6f 6e 5f 28 |.opt_:.geticon_(|
0002f5c0 69 6e 76 77 25 2c 21 69 25 29 3a f2 73 65 74 69 |invw%,!i%):.seti|
0002f5d0 63 6f 6e 5f 28 69 6e 76 77 25 2c 21 69 25 2c 66 |con_(invw%,!i%,f|
0002f5e0 6c 61 67 32 31 5f 25 2c 30 29 3a 3d b9 0d 9a 88 |lag21_%,0):=....|
0002f5f0 48 dd a4 6f 70 74 31 5f 28 41 5f 25 29 3a f2 67 |H..opt1_(A_%):.g|
0002f600 65 74 69 63 6f 6e 5f 28 69 6e 76 77 25 2c 41 5f |eticon_(invw%,A_|
0002f610 25 29 3a f2 73 65 74 69 63 6f 6e 5f 28 69 6e 76 |%):.seticon_(inv|
0002f620 77 25 2c 41 5f 25 2c 30 2c 66 6c 61 67 32 31 5f |w%,A_%,0,flag21_|
0002f630 25 29 3a 3d b9 0d 9a 8d 4f dd a4 6f 70 74 32 5f |%):=....O..opt2_|
0002f640 28 41 5f 25 29 3a f2 67 65 74 69 63 6f 6e 5f 28 |(A_%):.geticon_(|
0002f650 69 6e 76 77 25 2c 41 5f 25 29 3a f2 73 65 74 69 |invw%,A_%):.seti|
0002f660 63 6f 6e 5f 28 69 6e 76 77 25 2c 41 5f 25 2c 66 |con_(invw%,A_%,f|
0002f670 6c 61 67 32 31 5f 25 2c 66 6c 61 67 32 31 5f 25 |lag21_%,flag21_%|
0002f680 29 3a 3d b9 0d 9a 92 3c dd a4 67 65 74 69 66 6c |):=....<..getifl|
0002f690 61 67 28 41 5f 25 29 3a f2 67 65 74 69 63 6f 6e |ag(A_%):.geticon|
0002f6a0 5f 28 69 6e 76 77 25 2c 41 5f 25 29 3a 3d 28 62 |_(invw%,A_%):=(b|
0002f6b0 6c 6f 63 6b 5f 25 21 32 34 3e 3e 32 31 29 83 32 |lock_%!24>>21).2|
0002f6c0 0d 9a 97 2c dd f2 73 49 63 6f 6e 5f 28 57 5f 25 |...,..sIcon_(W_%|
0002f6d0 2c 49 5f 25 2c 41 5f 25 29 3a f2 67 65 74 69 63 |,I_%,A_%):.getic|
0002f6e0 6f 6e 5f 28 57 5f 25 2c 49 5f 25 29 0d 9a 9c 2f |on_(W_%,I_%).../|
0002f6f0 e7 41 5f 25 3d 31 3a f2 73 65 74 69 63 6f 6e 5f |.A_%=1:.seticon_|
0002f700 28 57 5f 25 2c 49 5f 25 2c 66 6c 61 67 32 31 5f |(W_%,I_%,flag21_|
0002f710 25 2c 66 6c 61 67 32 31 5f 25 29 0d 9a a1 29 e7 |%,flag21_%)...).|
0002f720 41 5f 25 3d 2d 31 3a f2 73 65 74 69 63 6f 6e 5f |A_%=-1:.seticon_|
0002f730 28 57 5f 25 2c 49 5f 25 2c 30 2c 66 6c 61 67 32 |(W_%,I_%,0,flag2|
0002f740 31 5f 25 29 0d 9a a6 05 e1 0d 9a ab 34 dd f2 66 |1_%)........4..f|
0002f750 49 5f 28 41 5f 25 29 3a ea 20 5a 25 3a e3 5a 25 |I_(A_%):. Z%:.Z%|
0002f760 3d 31 37 b8 33 36 3a f2 67 65 74 69 63 6f 6e 5f |=17.36:.geticon_|
0002f770 28 50 72 63 74 25 21 31 32 2c 5a 25 29 0d 9a b0 |(Prct%!12,Z%)...|
0002f780 33 e7 41 5f 25 3d 31 3a f2 73 65 74 69 63 6f 6e |3.A_%=1:.seticon|
0002f790 5f 28 50 72 63 74 25 21 31 32 2c 5a 25 2c 66 6c |_(Prct%!12,Z%,fl|
0002f7a0 61 67 32 32 5f 25 2c 66 6c 61 67 32 32 5f 25 29 |ag22_%,flag22_%)|
0002f7b0 0d 9a b5 2c e7 41 5f 25 3d 30 3a f2 73 65 74 69 |...,.A_%=0:.seti|
0002f7c0 63 6f 6e 5f 28 50 72 63 74 25 21 31 32 2c 5a 25 |con_(Prct%!12,Z%|
0002f7d0 2c 30 2c 66 6c 61 67 32 32 5f 25 29 0d 9a ba 05 |,0,flag22_%)....|
0002f7e0 ed 0d 9a bf 05 e1 0d 9a c4 04 0d 9a c9 ce dd f2 |................|
0002f7f0 67 65 74 69 6e 76 66 6c 61 67 73 5f 3a 6f 6c 64 |getinvflags_:old|
0002f800 64 61 74 61 5f 25 28 30 29 3d 69 6e 76 31 31 5f |data_%(0)=inv11_|
0002f810 25 28 30 29 3a 6f 6c 64 64 61 74 61 5f 25 28 31 |%(0):olddata_%(1|
0002f820 29 3d a4 67 65 74 69 66 6c 61 67 28 38 36 29 3a |)=.getiflag(86):|
0002f830 6f 6c 64 64 61 74 61 5f 25 28 32 29 3d a4 67 65 |olddata_%(2)=.ge|
0002f840 74 69 66 6c 61 67 28 38 35 29 3a 6f 6c 64 64 61 |tiflag(85):oldda|
0002f850 74 61 5f 25 28 33 29 3d a4 67 65 74 69 66 6c 61 |ta_%(3)=.getifla|
0002f860 67 28 38 34 29 3a 6f 6c 64 64 61 74 61 5f 25 28 |g(84):olddata_%(|
0002f870 34 29 3d a4 67 65 74 69 66 6c 61 67 28 39 32 29 |4)=.getiflag(92)|
0002f880 3a 6f 6c 64 64 61 74 61 5f 25 28 35 29 3d a4 67 |:olddata_%(5)=.g|
0002f890 65 74 69 66 6c 61 67 28 39 33 29 3a 6f 6c 64 64 |etiflag(93):oldd|
0002f8a0 61 74 61 5f 25 28 36 29 3d a4 67 65 74 69 66 6c |ata_%(6)=.getifl|
0002f8b0 61 67 28 39 34 29 3a e1 0d 9a ce 3c dd f2 73 65 |ag(94):....<..se|
0002f8c0 74 69 6e 76 66 6c 61 67 73 5f 3a 69 6e 76 31 31 |tinvflags_:inv11|
0002f8d0 5f 25 28 30 29 3d 6f 6c 64 64 61 74 61 5f 25 28 |_%(0)=olddata_%(|
0002f8e0 30 29 3a 24 21 69 6e 76 6e 61 6d 65 5f 25 3d a4 |0):$!invname_%=.|
0002f8f0 63 72 69 5f 0d 9a d3 cd f2 72 49 28 57 25 2c 22 |cri_.....rI(W%,"|
0002f900 69 6e 76 6e 61 6d 65 22 29 3a f2 73 65 74 69 63 |invname"):.setic|
0002f910 6f 6e 5f 28 69 6e 76 77 25 2c 38 36 2c 6f 6c 64 |on_(invw%,86,old|
0002f920 64 61 74 61 5f 25 28 31 29 3c 3c 32 31 2c 66 6c |data_%(1)<<21,fl|
0002f930 61 67 32 31 5f 25 29 3a f2 73 65 74 69 63 6f 6e |ag21_%):.seticon|
0002f940 5f 28 69 6e 76 77 25 2c 38 35 2c 6f 6c 64 64 61 |_(invw%,85,oldda|
0002f950 74 61 5f 25 28 32 29 3c 3c 32 31 2c 66 6c 61 67 |ta_%(2)<<21,flag|
0002f960 32 31 5f 25 29 3a f2 73 65 74 69 63 6f 6e 5f 28 |21_%):.seticon_(|
0002f970 69 6e 76 77 25 2c 38 34 2c 6f 6c 64 64 61 74 61 |invw%,84,olddata|
0002f980 5f 25 28 33 29 3c 3c 32 31 2c 66 6c 61 67 32 31 |_%(3)<<21,flag21|
0002f990 5f 25 29 3a f2 73 65 74 69 63 6f 6e 5f 28 69 6e |_%):.seticon_(in|
0002f9a0 76 77 25 2c 39 32 2c 6f 6c 64 64 61 74 61 5f 25 |vw%,92,olddata_%|
0002f9b0 28 34 29 3c 3c 32 31 2c 66 6c 61 67 32 31 5f 25 |(4)<<21,flag21_%|
0002f9c0 29 0d 9a d8 61 f2 73 65 74 69 63 6f 6e 5f 28 69 |)...a.seticon_(i|
0002f9d0 6e 76 77 25 2c 39 33 2c 6f 6c 64 64 61 74 61 5f |nvw%,93,olddata_|
0002f9e0 25 28 35 29 3c 3c 32 31 2c 66 6c 61 67 32 31 5f |%(5)<<21,flag21_|
0002f9f0 25 29 3a f2 73 65 74 69 63 6f 6e 5f 28 69 6e 76 |%):.seticon_(inv|
0002fa00 77 25 2c 39 34 2c 6f 6c 64 64 61 74 61 5f 25 28 |w%,94,olddata_%(|
0002fa10 36 29 3c 3c 32 31 2c 66 6c 61 67 32 31 5f 25 29 |6)<<21,flag21_%)|
0002fa20 3a e1 0d 9a dd 04 0d 9a fb ce dd a4 43 69 6e 69 |:...........Cini|
0002fa30 74 73 75 70 70 6c 69 65 72 5f 3a ea 20 5a 25 3a |tsupplier_:. Z%:|
0002fa40 24 21 43 53 75 52 65 63 6f 72 64 5f 25 3d c3 28 |$!CSuRecord_%=.(|
0002fa50 43 53 5f 25 29 3a f2 72 49 28 57 25 2c 22 43 53 |CS_%):.rI(W%,"CS|
0002fa60 75 52 65 63 6f 72 64 22 29 3a 24 21 43 53 75 4e |uRecord"):$!CSuN|
0002fa70 61 6d 65 5f 25 3d 43 53 75 70 70 6c 69 65 72 73 |ame_%=CSuppliers|
0002fa80 5f 24 28 43 53 5f 25 29 3a 24 21 43 53 75 41 64 |_$(CS_%):$!CSuAd|
0002fa90 31 31 5f 25 3d 43 53 75 41 64 31 5f 24 28 43 53 |11_%=CSuAd1_$(CS|
0002faa0 5f 25 29 3a 24 21 43 53 75 41 64 32 32 5f 25 3d |_%):$!CSuAd22_%=|
0002fab0 43 53 75 41 64 32 5f 24 28 43 53 5f 25 29 3a 24 |CSuAd2_$(CS_%):$|
0002fac0 21 43 53 75 41 64 33 33 5f 25 3d 43 53 75 41 64 |!CSuAd33_%=CSuAd|
0002fad0 33 5f 24 28 43 53 5f 25 29 3a 24 21 43 53 75 41 |3_$(CS_%):$!CSuA|
0002fae0 64 34 34 5f 25 3d 43 53 75 41 64 34 5f 24 28 43 |d44_%=CSuAd4_$(C|
0002faf0 53 5f 25 29 0d 9b 00 b5 24 21 64 43 53 75 4e 61 |S_%)....$!dCSuNa|
0002fb00 6d 65 5f 25 3d 64 43 53 75 70 70 6c 69 65 72 73 |me_%=dCSuppliers|
0002fb10 5f 24 28 43 53 5f 25 29 3a 24 21 64 43 53 75 41 |_$(CS_%):$!dCSuA|
0002fb20 64 31 31 5f 25 3d 64 43 53 75 41 64 31 5f 24 28 |d11_%=dCSuAd1_$(|
0002fb30 43 53 5f 25 29 3a 24 21 64 43 53 75 41 64 32 32 |CS_%):$!dCSuAd22|
0002fb40 5f 25 3d 64 43 53 75 41 64 32 5f 24 28 43 53 5f |_%=dCSuAd2_$(CS_|
0002fb50 25 29 3a 24 21 64 43 53 75 41 64 33 33 5f 25 3d |%):$!dCSuAd33_%=|
0002fb60 64 43 53 75 41 64 33 5f 24 28 43 53 5f 25 29 3a |dCSuAd3_$(CS_%):|
0002fb70 24 21 64 43 53 75 41 64 34 34 5f 25 3d 64 43 53 |$!dCSuAd44_%=dCS|
0002fb80 75 41 64 34 5f 24 28 43 53 5f 25 29 3a 24 21 64 |uAd4_$(CS_%):$!d|
0002fb90 43 53 75 50 6f 73 74 5f 25 3d 64 43 53 75 50 6f |CSuPost_%=dCSuPo|
0002fba0 73 5f 24 28 43 53 5f 25 29 0d 9b 05 ce 24 21 43 |s_$(CS_%)....$!C|
0002fbb0 53 75 50 6f 73 74 5f 25 3d 43 53 75 50 6f 73 5f |SuPost_%=CSuPos_|
0002fbc0 24 28 43 53 5f 25 29 3a 24 21 43 53 75 43 6f 6e |$(CS_%):$!CSuCon|
0002fbd0 74 61 63 74 5f 25 3d 43 53 75 43 6f 6e 74 61 63 |tact_%=CSuContac|
0002fbe0 5f 24 28 43 53 5f 25 29 3a 24 21 43 53 75 54 65 |_$(CS_%):$!CSuTe|
0002fbf0 6c 65 5f 25 3d 43 53 75 54 65 6c 5f 24 28 43 53 |le_%=CSuTel_$(CS|
0002fc00 5f 25 29 3a 24 21 43 53 75 46 61 78 5f 25 3d 43 |_%):$!CSuFax_%=C|
0002fc10 53 75 46 61 5f 24 28 43 53 5f 25 29 3a 24 21 43 |SuFa_$(CS_%):$!C|
0002fc20 53 75 43 6f 6d 31 31 5f 25 3d 43 53 75 43 6f 6d |SuCom11_%=CSuCom|
0002fc30 31 5f 24 28 43 53 5f 25 29 3a 24 21 43 53 75 43 |1_$(CS_%):$!CSuC|
0002fc40 6f 6d 32 32 5f 25 3d 43 53 75 43 6f 6d 32 5f 24 |om22_%=CSuCom2_$|
0002fc50 28 43 53 5f 25 29 3a 24 21 43 53 75 53 75 70 70 |(CS_%):$!CSuSupp|
0002fc60 52 65 66 5f 25 3d 43 53 75 53 75 70 70 52 65 5f |Ref_%=CSuSuppRe_|
0002fc70 24 28 43 53 5f 25 29 0d 9b 0a c5 24 21 43 53 75 |$(CS_%)....$!CSu|
0002fc80 59 6f 75 72 52 65 66 5f 25 3d 43 53 75 59 6f 75 |YourRef_%=CSuYou|
0002fc90 72 52 65 5f 24 28 43 53 5f 25 29 3a 24 21 43 53 |rRe_$(CS_%):$!CS|
0002fca0 75 4f 72 64 65 72 5f 25 3d 43 53 75 4f 72 64 65 |uOrder_%=CSuOrde|
0002fcb0 5f 24 28 43 53 5f 25 29 3a 24 21 43 53 75 44 69 |_$(CS_%):$!CSuDi|
0002fcc0 73 63 5f 25 3d 43 53 75 44 69 73 63 5f 24 28 43 |sc_%=CSuDisc_$(C|
0002fcd0 53 5f 25 29 3a 24 21 43 53 75 66 69 6e 64 6e 75 |S_%):$!CSufindnu|
0002fce0 6d 5f 25 3d a4 63 68 74 6f 6c 65 6e 5f 28 bb 28 |m_%=.chtolen_(.(|
0002fcf0 43 53 75 66 69 6e 64 6e 75 5f 24 29 2c 43 6d 61 |CSufindnu_$),Cma|
0002fd00 78 73 75 70 70 5f 25 29 3a 43 53 75 66 69 6e 64 |xsupp_%):CSufind|
0002fd10 6e 75 5f 24 3d 24 21 43 53 75 66 69 6e 64 6e 75 |nu_$=$!CSufindnu|
0002fd20 6d 5f 25 3a f2 75 70 64 61 74 65 63 63 72 65 64 |m_%:.updateccred|
0002fd30 5f 28 43 53 5f 25 2c 31 29 3a 3d b9 0d 9b 0f 04 |_(CS_%,1):=.....|
0002fd40 0d 9b 41 1b dd a4 43 75 70 64 61 74 65 73 75 70 |..A...Cupdatesup|
0002fd50 70 6c 69 65 72 5f 3a ea 20 5a 25 0d 9b 46 ad 43 |plier_:. Z%..F.C|
0002fd60 53 75 70 70 6c 69 65 72 73 5f 24 28 43 53 5f 25 |Suppliers_$(CS_%|
0002fd70 29 3d 24 21 43 53 75 4e 61 6d 65 5f 25 3a 43 4c |)=$!CSuName_%:CL|
0002fd80 53 75 70 70 6c 69 65 72 73 5f 24 28 43 53 5f 25 |Suppliers_$(CS_%|
0002fd90 29 3d c0 43 53 75 70 70 6c 69 65 72 73 5f 24 28 |)=.CSuppliers_$(|
0002fda0 43 53 5f 25 29 2c 6d 61 78 73 75 70 6c 65 6e 5f |CS_%),maxsuplen_|
0002fdb0 25 29 3a 43 4c 53 75 70 70 6c 69 65 72 73 5f 24 |%):CLSuppliers_$|
0002fdc0 28 43 53 5f 25 29 3d 43 4c 53 75 70 70 6c 69 65 |(CS_%)=CLSupplie|
0002fdd0 72 73 5f 24 28 43 53 5f 25 29 2b c4 6d 61 78 73 |rs_$(CS_%)+.maxs|
0002fde0 75 70 6c 65 6e 5f 25 2d a9 28 43 4c 53 75 70 70 |uplen_%-.(CLSupp|
0002fdf0 6c 69 65 72 73 5f 24 28 43 53 5f 25 29 29 2c 22 |liers_$(CS_%)),"|
0002fe00 20 22 29 2b bd 28 30 29 0d 9b 4b 1a e7 63 68 63 | ")+.(0)..K..chc|
0002fe10 75 6e 61 6d 5f 25 3d 31 8c f2 43 66 69 6c 6c 73 |unam_%=1..Cfills|
0002fe20 75 5f 0d 9b 50 cd 43 73 75 70 70 5f 24 28 43 53 |u_..P.Csupp_$(CS|
0002fe30 5f 25 29 3d a4 63 61 70 73 5f 28 24 21 43 53 75 |_%)=.caps_($!CSu|
0002fe40 4e 61 6d 65 5f 25 29 3a 43 53 75 41 64 31 5f 24 |Name_%):CSuAd1_$|
0002fe50 28 43 53 5f 25 29 3d 24 21 43 53 75 41 64 31 31 |(CS_%)=$!CSuAd11|
0002fe60 5f 25 3a 43 53 75 41 64 32 5f 24 28 43 53 5f 25 |_%:CSuAd2_$(CS_%|
0002fe70 29 3d 24 21 43 53 75 41 64 32 32 5f 25 3a 43 53 |)=$!CSuAd22_%:CS|
0002fe80 75 41 64 33 5f 24 28 43 53 5f 25 29 3d 24 21 43 |uAd3_$(CS_%)=$!C|
0002fe90 53 75 41 64 33 33 5f 25 3a 43 53 75 41 64 34 5f |SuAd33_%:CSuAd4_|
0002fea0 24 28 43 53 5f 25 29 3d 24 21 43 53 75 41 64 34 |$(CS_%)=$!CSuAd4|
0002feb0 34 5f 25 3a 43 53 75 50 6f 73 5f 24 28 43 53 5f |4_%:CSuPos_$(CS_|
0002fec0 25 29 3d 24 21 43 53 75 50 6f 73 74 5f 25 3a 43 |%)=$!CSuPost_%:C|
0002fed0 53 75 43 6f 6e 74 61 63 5f 24 28 43 53 5f 25 29 |SuContac_$(CS_%)|
0002fee0 3d 24 21 43 53 75 43 6f 6e 74 61 63 74 5f 25 0d |=$!CSuContact_%.|
0002fef0 9b 55 b5 64 43 53 75 70 70 6c 69 65 72 73 5f 24 |.U.dCSuppliers_$|
0002ff00 28 43 53 5f 25 29 3d 24 21 64 43 53 75 4e 61 6d |(CS_%)=$!dCSuNam|
0002ff10 65 5f 25 3a 64 43 53 75 41 64 31 5f 24 28 43 53 |e_%:dCSuAd1_$(CS|
0002ff20 5f 25 29 3d 24 21 64 43 53 75 41 64 31 31 5f 25 |_%)=$!dCSuAd11_%|
0002ff30 3a 64 43 53 75 41 64 32 5f 24 28 43 53 5f 25 29 |:dCSuAd2_$(CS_%)|
0002ff40 3d 24 21 64 43 53 75 41 64 32 32 5f 25 3a 64 43 |=$!dCSuAd22_%:dC|
0002ff50 53 75 41 64 33 5f 24 28 43 53 5f 25 29 3d 24 21 |SuAd3_$(CS_%)=$!|
0002ff60 64 43 53 75 41 64 33 33 5f 25 3a 64 43 53 75 41 |dCSuAd33_%:dCSuA|
0002ff70 64 34 5f 24 28 43 53 5f 25 29 3d 24 21 64 43 53 |d4_$(CS_%)=$!dCS|
0002ff80 75 41 64 34 34 5f 25 3a 64 43 53 75 50 6f 73 5f |uAd44_%:dCSuPos_|
0002ff90 24 28 43 53 5f 25 29 3d 24 21 64 43 53 75 50 6f |$(CS_%)=$!dCSuPo|
0002ffa0 73 74 5f 25 0d 9b 5a d0 43 53 75 54 65 6c 5f 24 |st_%..Z.CSuTel_$|
0002ffb0 28 43 53 5f 25 29 3d 24 21 43 53 75 54 65 6c 65 |(CS_%)=$!CSuTele|
0002ffc0 5f 25 3a 43 53 75 46 61 5f 24 28 43 53 5f 25 29 |_%:CSuFa_$(CS_%)|
0002ffd0 3d 24 21 43 53 75 46 61 78 5f 25 3a 43 53 75 43 |=$!CSuFax_%:CSuC|
0002ffe0 6f 6d 31 5f 24 28 43 53 5f 25 29 3d 24 21 43 53 |om1_$(CS_%)=$!CS|
0002fff0 75 43 6f 6d 31 31 5f 25 3a 43 53 75 43 6f 6d 32 |uCom11_%:CSuCom2|
00030000 5f 24 28 43 53 5f 25 29 3d 24 21 43 53 75 43 6f |_$(CS_%)=$!CSuCo|
00030010 6d 32 32 5f 25 3a 43 53 75 53 75 70 70 52 65 5f |m22_%:CSuSuppRe_|
00030020 24 28 43 53 5f 25 29 3d 24 21 43 53 75 53 75 70 |$(CS_%)=$!CSuSup|
00030030 70 52 65 66 5f 25 3a 43 53 75 59 6f 75 72 52 65 |pRef_%:CSuYourRe|
00030040 5f 24 28 43 53 5f 25 29 3d 24 21 43 53 75 59 6f |_$(CS_%)=$!CSuYo|
00030050 75 72 52 65 66 5f 25 3a 43 53 75 4f 72 64 65 5f |urRef_%:CSuOrde_|
00030060 24 28 43 53 5f 25 29 3d 24 21 43 53 75 4f 72 64 |$(CS_%)=$!CSuOrd|
00030070 65 72 5f 25 0d 9b 5f a3 43 53 75 44 69 73 63 5f |er_%.._.CSuDisc_|
00030080 24 28 43 53 5f 25 29 3d 24 21 43 53 75 44 69 73 |$(CS_%)=$!CSuDis|
00030090 63 5f 25 3a e7 24 21 43 53 75 66 69 6e 64 6e 75 |c_%:.$!CSufindnu|
000300a0 6d 5f 25 3c 3e 43 53 75 66 69 6e 64 6e 75 5f 24 |m_%<>CSufindnu_$|
000300b0 8c 43 53 75 66 69 6e 64 6e 75 5f 24 3d a4 63 68 |.CSufindnu_$=.ch|
000300c0 74 6f 6c 65 6e 5f 28 bb 28 24 21 43 53 75 66 69 |tolen_(.($!CSufi|
000300d0 6e 64 6e 75 6d 5f 25 29 2c 43 6d 61 78 73 75 70 |ndnum_%),Cmaxsup|
000300e0 70 5f 25 29 3a 24 21 43 53 75 66 69 6e 64 6e 75 |p_%):$!CSufindnu|
000300f0 6d 5f 25 3d 43 53 75 66 69 6e 64 6e 75 5f 24 3a |m_%=CSufindnu_$:|
00030100 f2 72 49 28 43 53 75 57 25 2c 22 43 53 75 66 69 |.rI(CSuW%,"CSufi|
00030110 6e 64 6e 75 6d 22 29 0d 9b 64 20 e7 43 4c 61 62 |ndnum")..d .CLab|
00030120 53 75 25 3e 30 3a 5a 25 3d a4 43 75 70 64 61 74 |Su%>0:Z%=.Cupdat|
00030130 65 73 75 6c 61 62 5f 0d 9b 69 1c f2 75 70 64 61 |esulab_..i..upda|
00030140 74 65 63 63 72 65 64 5f 28 43 53 5f 25 2c 31 29 |teccred_(CS_%,1)|
00030150 3a 3d b9 0d 9b 6e 04 0d 9c f4 b2 dd a4 69 6e 69 |:=...n.......ini|
00030160 74 43 61 6c 63 5f 3a ea 20 5a 25 3a 24 21 43 61 |tCalc_:. Z%:$!Ca|
00030170 6c 31 31 5f 25 3d 43 61 6c 31 5f 24 3a 24 21 43 |l11_%=Cal1_$:$!C|
00030180 61 6c 32 32 5f 25 3d 43 61 6c 32 5f 24 3a 24 21 |al22_%=Cal2_$:$!|
00030190 43 61 6c 33 33 5f 25 3d 43 61 6c 33 5f 24 3a 24 |Cal33_%=Cal3_$:$|
000301a0 21 43 61 6c 34 34 5f 25 3d 43 61 6c 34 5f 24 3a |!Cal44_%=Cal4_$:|
000301b0 24 21 43 61 6c 54 6f 74 31 5f 25 3d a4 74 63 5f |$!CalTot1_%=.tc_|
000301c0 28 43 61 6c 74 31 5f 25 2c 22 30 22 29 3a 24 21 |(Calt1_%,"0"):$!|
000301d0 43 61 6c 54 6f 74 32 5f 25 3d a4 74 63 5f 28 43 |CalTot2_%=.tc_(C|
000301e0 61 6c 74 32 5f 25 2c 22 30 22 29 3a 24 21 43 61 |alt2_%,"0"):$!Ca|
000301f0 6c 54 6f 74 33 5f 25 3d a4 74 63 5f 28 43 61 6c |lTot3_%=.tc_(Cal|
00030200 74 33 5f 25 2c 22 30 22 29 0d 9c f9 41 24 21 43 |t3_%,"0")...A$!C|
00030210 61 6c 54 6f 74 34 5f 25 3d a4 74 63 5f 28 43 61 |alTot4_%=.tc_(Ca|
00030220 6c 74 34 5f 25 2c 22 30 22 29 3a 24 21 43 61 6c |lt4_%,"0"):$!Cal|
00030230 54 6f 74 5f 25 3d a4 74 63 5f 28 43 61 6c 54 6f |Tot_%=.tc_(CalTo|
00030240 5f 25 2c 22 30 22 29 3a 3d a3 0d 9d df 04 0d 9d |_%,"0"):=.......|
00030250 e4 18 dd a4 63 61 6c 70 63 32 5f 28 41 29 3a e7 |....calpc2_(A):.|
00030260 41 3d 30 3a 3d 30 0d 9d e9 07 ea 20 42 0d 9d ee |A=0:=0..... B...|
00030270 1d e7 94 28 41 2d 41 20 81 31 29 3e 2e 35 31 8c |...(A-A .1)>.51.|
00030280 42 3d 2e 35 20 8b 42 3d 2e 31 0d 9d f3 13 e7 41 |B=.5 .B=.1.....A|
00030290 3c 30 8c 3d 41 2d 42 20 8b 3d 41 2b 42 0d 9d f8 |<0.=A-B .=A+B...|
000302a0 04 0d 9d fd 18 dd a4 63 61 6c 70 63 31 5f 28 41 |.......calpc1_(A|
000302b0 29 3a e7 41 3d 30 3a 3d 30 0d 9e 02 07 ea 20 42 |):.A=0:=0..... B|
000302c0 0d 9e 07 24 e7 94 28 41 2d 41 20 81 31 29 3e 2e |...$..(A-A .1)>.|
000302d0 35 30 30 30 31 8c 42 3d 2e 30 30 35 20 8b 42 3d |50001.B=.005 .B=|
000302e0 2e 30 30 31 0d 9e 0c 10 e7 41 3c 30 8c 3d 2d 42 |.001.....A<0.=-B|
000302f0 20 8b 3d 42 0d 9e 11 04 0d 9e 16 18 dd a4 63 61 | .=B..........ca|
00030300 6c 70 63 33 5f 28 41 29 3a e7 41 3d 30 3a 3d 30 |lpc3_(A):.A=0:=0|
00030310 0d 9e 1b 07 ea 20 42 0d 9e 20 2a e7 94 28 41 2d |..... B.. *..(A-|
00030320 41 20 81 31 29 3e 2e 30 30 35 30 30 30 31 8c 42 |A .1)>.0050001.B|
00030330 3d 2e 30 30 30 30 35 20 8b 42 3d 2e 30 30 30 30 |=.00005 .B=.0000|
00030340 31 0d 9e 25 10 e7 41 3c 30 8c 3d 2d 42 20 8b 3d |1..%..A<0.=-B .=|
00030350 42 0d 9e 2a 04 0d 9e 2f 3c dd a4 63 6c 5f 28 41 |B..*.../<..cl_(A|
00030360 5f 24 29 3a e7 a7 41 5f 24 2c 22 21 22 29 84 a7 |_$):..A_$,"!")..|
00030370 41 5f 24 2c 22 3f 22 29 84 a7 41 5f 24 2c 22 24 |A_$,"?")..A_$,"$|
00030380 22 29 8c 3d 22 45 72 72 6f 72 22 20 8b 3d 41 5f |").="Error" .=A_|
00030390 24 0d 9e 34 11 dd a4 75 70 64 61 74 65 43 61 6c |$..4...updateCal|
000303a0 63 5f 0d 9e 39 10 ea 20 41 2c 41 25 2c 5a 25 2c |c_..9.. A,A%,Z%,|
000303b0 41 24 0d 9e 3e 4f 41 24 3d 24 21 43 61 6c 31 31 |A$..>OA$=$!Cal11|
000303c0 5f 25 3a 43 61 6c 31 5f 24 3d 24 21 43 61 6c 31 |_%:Cal1_$=$!Cal1|
000303d0 31 5f 25 3a 24 21 43 61 6c 54 6f 74 31 5f 25 3d |1_%:$!CalTot1_%=|
000303e0 a4 63 6f 6e 76 69 73 5f 28 43 61 6c 74 31 5f 25 |.convis_(Calt1_%|
000303f0 2c 22 30 22 29 3a 41 24 3d a4 63 6c 5f 28 41 24 |,"0"):A$=.cl_(A$|
00030400 29 0d 9e 43 07 ea 20 85 0d 9e 48 2c ee 20 85 20 |)..C.. ...H,. . |
00030410 ea 3a f7 20 85 3a 24 21 43 61 6c 54 6f 74 31 5f |.:. .:$!CalTot1_|
00030420 25 3d 22 45 72 72 6f 72 22 3a 41 24 3d 22 45 72 |%="Error":A$="Er|
00030430 72 6f 72 22 0d 9e 4d 89 e7 41 24 3c 3e 22 45 72 |ror"..M..A$<>"Er|
00030440 72 6f 72 22 80 41 24 3c 3e 22 22 8c 41 3d a0 28 |ror".A$<>"".A=.(|
00030450 24 21 43 61 6c 31 31 5f 25 29 3a 41 3d 41 2b a4 |$!Cal11_%):A=A+.|
00030460 63 61 6c 70 63 31 5f 28 41 2a 31 30 30 29 3a e7 |calpc1_(A*100):.|
00030470 94 28 41 29 3e 2e 30 30 39 8c 43 61 6c 74 31 5f |.(A)>.009.Calt1_|
00030480 25 3d a4 63 6f 6e 76 73 69 5f 28 c3 28 41 29 29 |%=.convsi_(.(A))|
00030490 3a 24 21 43 61 6c 54 6f 74 31 5f 25 3d a4 63 6f |:$!CalTot1_%=.co|
000304a0 6e 76 69 73 5f 28 43 61 6c 74 31 5f 25 2c 22 30 |nvis_(Calt1_%,"0|
000304b0 22 29 20 8b 43 61 6c 74 31 5f 25 3d 30 0d 9e 52 |") .Calt1_%=0..R|
000304c0 4f 41 24 3d 24 21 43 61 6c 32 32 5f 25 3a 43 61 |OA$=$!Cal22_%:Ca|
000304d0 6c 32 5f 24 3d 24 21 43 61 6c 32 32 5f 25 3a 24 |l2_$=$!Cal22_%:$|
000304e0 21 43 61 6c 54 6f 74 32 5f 25 3d a4 63 6f 6e 76 |!CalTot2_%=.conv|
000304f0 69 73 5f 28 43 61 6c 74 32 5f 25 2c 22 30 22 29 |is_(Calt2_%,"0")|
00030500 3a 41 24 3d a4 63 6c 5f 28 41 24 29 0d 9e 57 07 |:A$=.cl_(A$)..W.|
00030510 ea 20 85 0d 9e 5c 2c ee 20 85 20 ea 3a f7 20 85 |. ...\,. . .:. .|
00030520 3a 24 21 43 61 6c 54 6f 74 32 5f 25 3d 22 45 72 |:$!CalTot2_%="Er|
00030530 72 6f 72 22 3a 41 24 3d 22 45 72 72 6f 72 22 0d |ror":A$="Error".|
00030540 9e 61 89 e7 41 24 3c 3e 22 45 72 72 6f 72 22 80 |.a..A$<>"Error".|
00030550 41 24 3c 3e 22 22 8c 41 3d a0 28 24 21 43 61 6c |A$<>"".A=.($!Cal|
00030560 32 32 5f 25 29 3a 41 3d 41 2b a4 63 61 6c 70 63 |22_%):A=A+.calpc|
00030570 31 5f 28 41 2a 31 30 30 29 3a e7 94 28 41 29 3e |1_(A*100):..(A)>|
00030580 2e 30 30 39 8c 43 61 6c 74 32 5f 25 3d a4 63 6f |.009.Calt2_%=.co|
00030590 6e 76 73 69 5f 28 c3 28 41 29 29 3a 24 21 43 61 |nvsi_(.(A)):$!Ca|
000305a0 6c 54 6f 74 32 5f 25 3d a4 63 6f 6e 76 69 73 5f |lTot2_%=.convis_|
000305b0 28 43 61 6c 74 32 5f 25 2c 22 30 22 29 20 8b 43 |(Calt2_%,"0") .C|
000305c0 61 6c 74 32 5f 25 3d 30 0d 9e 66 4f 41 24 3d 24 |alt2_%=0..fOA$=$|
000305d0 21 43 61 6c 33 33 5f 25 3a 43 61 6c 33 5f 24 3d |!Cal33_%:Cal3_$=|
000305e0 24 21 43 61 6c 33 33 5f 25 3a 24 21 43 61 6c 54 |$!Cal33_%:$!CalT|
000305f0 6f 74 33 5f 25 3d a4 63 6f 6e 76 69 73 5f 28 43 |ot3_%=.convis_(C|
00030600 61 6c 74 33 5f 25 2c 22 30 22 29 3a 41 24 3d a4 |alt3_%,"0"):A$=.|
00030610 63 6c 5f 28 41 24 29 0d 9e 6b 07 ea 20 85 0d 9e |cl_(A$)..k.. ...|
00030620 70 2c ee 20 85 20 ea 3a f7 20 85 3a 24 21 43 61 |p,. . .:. .:$!Ca|
00030630 6c 54 6f 74 33 5f 25 3d 22 45 72 72 6f 72 22 3a |lTot3_%="Error":|
00030640 41 24 3d 22 45 72 72 6f 72 22 0d 9e 75 89 e7 41 |A$="Error"..u..A|
00030650 24 3c 3e 22 45 72 72 6f 72 22 80 41 24 3c 3e 22 |$<>"Error".A$<>"|
00030660 22 8c 41 3d a0 28 24 21 43 61 6c 33 33 5f 25 29 |".A=.($!Cal33_%)|
00030670 3a 41 3d 41 2b a4 63 61 6c 70 63 31 5f 28 41 2a |:A=A+.calpc1_(A*|
00030680 31 30 30 29 3a e7 94 28 41 29 3e 2e 30 30 39 8c |100):..(A)>.009.|
00030690 43 61 6c 74 33 5f 25 3d a4 63 6f 6e 76 73 69 5f |Calt3_%=.convsi_|
000306a0 28 c3 28 41 29 29 3a 24 21 43 61 6c 54 6f 74 33 |(.(A)):$!CalTot3|
000306b0 5f 25 3d a4 63 6f 6e 76 69 73 5f 28 43 61 6c 74 |_%=.convis_(Calt|
000306c0 33 5f 25 2c 22 30 22 29 20 8b 43 61 6c 74 33 5f |3_%,"0") .Calt3_|
000306d0 25 3d 30 0d 9e 7a 4f 41 24 3d 24 21 43 61 6c 34 |%=0..zOA$=$!Cal4|
000306e0 34 5f 25 3a 43 61 6c 34 5f 24 3d 24 21 43 61 6c |4_%:Cal4_$=$!Cal|
000306f0 34 34 5f 25 3a 24 21 43 61 6c 54 6f 74 34 5f 25 |44_%:$!CalTot4_%|
00030700 3d a4 63 6f 6e 76 69 73 5f 28 43 61 6c 74 34 5f |=.convis_(Calt4_|
00030710 25 2c 22 30 22 29 3a 41 24 3d a4 63 6c 5f 28 41 |%,"0"):A$=.cl_(A|
00030720 24 29 0d 9e 7f 07 ea 20 85 0d 9e 84 2c ee 20 85 |$)..... ....,. .|
00030730 20 ea 3a f7 20 85 3a 24 21 43 61 6c 54 6f 74 34 | .:. .:$!CalTot4|
00030740 5f 25 3d 22 45 72 72 6f 72 22 3a 41 24 3d 22 45 |_%="Error":A$="E|
00030750 72 72 6f 72 22 0d 9e 89 89 e7 41 24 3c 3e 22 45 |rror".....A$<>"E|
00030760 72 72 6f 72 22 80 41 24 3c 3e 22 22 8c 41 3d a0 |rror".A$<>"".A=.|
00030770 28 24 21 43 61 6c 34 34 5f 25 29 3a 41 3d 41 2b |($!Cal44_%):A=A+|
00030780 a4 63 61 6c 70 63 31 5f 28 41 2a 31 30 30 29 3a |.calpc1_(A*100):|
00030790 e7 94 28 41 29 3e 2e 30 30 39 8c 43 61 6c 74 34 |..(A)>.009.Calt4|
000307a0 5f 25 3d a4 63 6f 6e 76 73 69 5f 28 c3 28 41 29 |_%=.convsi_(.(A)|
000307b0 29 3a 24 21 43 61 6c 54 6f 74 34 5f 25 3d a4 63 |):$!CalTot4_%=.c|
000307c0 6f 6e 76 69 73 5f 28 43 61 6c 74 34 5f 25 2c 22 |onvis_(Calt4_%,"|
000307d0 30 22 29 20 8b 43 61 6c 74 34 5f 25 3d 30 0d 9e |0") .Calt4_%=0..|
000307e0 8e 4c 43 61 6c 54 6f 5f 25 3d 43 61 6c 74 31 5f |.LCalTo_%=Calt1_|
000307f0 25 2b 43 61 6c 74 32 5f 25 2b 43 61 6c 74 33 5f |%+Calt2_%+Calt3_|
00030800 25 2b 43 61 6c 74 34 5f 25 3a 24 21 43 61 6c 54 |%+Calt4_%:$!CalT|
00030810 6f 74 5f 25 3d a4 63 6f 6e 76 69 73 5f 28 43 61 |ot_%=.convis_(Ca|
00030820 6c 54 6f 5f 25 2c 22 30 22 29 0d 9e 93 5c f2 72 |lTo_%,"0")...\.r|
00030830 49 28 57 25 2c 22 43 61 6c 54 6f 74 31 22 29 3a |I(W%,"CalTot1"):|
00030840 f2 72 49 28 57 25 2c 22 43 61 6c 54 6f 74 32 22 |.rI(W%,"CalTot2"|
00030850 29 3a f2 72 49 28 57 25 2c 22 43 61 6c 54 6f 74 |):.rI(W%,"CalTot|
00030860 33 22 29 3a f2 72 49 28 57 25 2c 22 43 61 6c 54 |3"):.rI(W%,"CalT|
00030870 6f 74 34 22 29 3a f2 72 49 28 57 25 2c 22 43 61 |ot4"):.rI(W%,"Ca|
00030880 6c 54 6f 74 22 29 0d 9e 98 06 3d a3 0d 9e 9d 04 |lTot")....=.....|
00030890 0d 9e a2 10 dd a4 43 61 6c 54 6f 74 5f 3a 3d b9 |......CalTot_:=.|
000308a0 0d 9e a7 11 dd a4 43 61 6c 54 6f 74 31 5f 3a 3d |......CalTot1_:=|
000308b0 b9 0d 9e ac 11 dd a4 43 61 6c 54 6f 74 32 5f 3a |.......CalTot2_:|
000308c0 3d b9 0d 9e b1 11 dd a4 43 61 6c 54 6f 74 33 5f |=.......CalTot3_|
000308d0 3a 3d b9 0d 9e b6 11 dd a4 43 61 6c 54 6f 74 34 |:=.......CalTot4|
000308e0 5f 3a 3d b9 0d 9e bb 04 0d 9e c0 0b dd f2 64 72 |_:=...........dr|
000308f0 61 67 5f 0d 9e c5 1d e7 51 25 21 33 32 3c 31 84 |ag_.....Q%!32<1.|
00030900 51 25 21 33 36 3c 30 84 73 5f 24 3d 22 22 8c e1 |Q%!36<0.s_$=""..|
00030910 0d 9e ca 37 ea 20 5a 25 3a f2 67 65 74 69 63 6f |...7. Z%:.getico|
00030920 6e 31 5f 28 51 25 21 33 32 2c 51 25 21 33 36 29 |n1_(Q%!32,Q%!36)|
00030930 3a e7 28 69 62 6c 6f 63 6b 5f 25 3f 32 35 3e 3e |:.(iblock_%?25>>|
00030940 34 29 3c 31 35 8c e1 0d 9e cf 1e 5a 25 3d a4 70 |4)<15......Z%=.p|
00030950 49 49 28 51 25 21 33 32 2c 51 25 21 33 36 2c 73 |II(Q%!32,Q%!36,s|
00030960 5f 24 29 3a e1 0d 9e d4 04 0d 9f 6a 79 dd a4 43 |_$):.......jy..C|
00030970 53 75 44 65 6c 65 74 65 5f 3a ea 20 41 25 2c 5a |SuDelete_:. A%,Z|
00030980 25 2c 5a 24 3a 5a 24 3d a4 61 6c 65 72 74 28 22 |%,Z$:Z$=.alert("|
00030990 41 62 6f 75 74 20 74 6f 20 64 65 6c 65 74 65 20 |About to delete |
000309a0 61 20 63 75 73 74 6f 6d 65 72 2c 20 61 72 65 20 |a customer, are |
000309b0 79 6f 75 20 73 75 72 65 3f 22 2c 22 22 2c 22 59 |you sure?","","Y|
000309c0 45 53 22 2c 22 4e 4f 22 2c 22 61 72 5f 71 75 65 |ES","NO","ar_que|
000309d0 73 74 22 2c 31 29 3a e7 5a 24 3d 22 4e 4f 22 3a |st",1):.Z$="NO":|
000309e0 3d a3 0d 9f 6f 12 c8 99 26 34 30 36 43 30 3a 41 |=...o...&406C0:A|
000309f0 25 3d 2d 31 0d 9f 74 15 e7 24 21 43 53 75 4e 61 |%=-1..t..$!CSuNa|
00030a00 6d 65 5f 25 3c 3e 22 22 8c 0d 9f 79 54 e3 5a 25 |me_%<>""...yT.Z%|
00030a10 3d 30 b8 6d 61 78 53 5f 25 2a 73 69 74 69 70 5f |=0.maxS_%*sitip_|
00030a20 25 2d 31 3a e7 53 49 54 6e 5f 25 28 5a 25 2b 31 |%-1:.SITn_%(Z%+1|
00030a30 29 3d 43 53 75 4e 75 6d 62 65 72 5f 25 28 43 53 |)=CSuNumber_%(CS|
00030a40 5f 25 29 8c 41 25 3d 5a 25 3a 5a 25 3d 6d 61 78 |_%).A%=Z%:Z%=max|
00030a50 53 5f 25 2a 73 69 74 69 70 5f 25 2d 31 0d 9f 7e |S_%*sitip_%-1..~|
00030a60 05 ed 0d 9f 83 05 cd 0d 9f 88 bc c8 99 26 34 30 |.............&40|
00030a70 36 43 31 3a e7 41 25 3e 2d 31 8c 65 72 72 6f 72 |6C1:.A%>-1.error|
00030a80 5f 25 3d 31 3a 5a 24 3d a4 61 6c 65 72 74 28 22 |_%=1:Z$=.alert("|
00030a90 54 68 65 72 65 20 61 72 65 20 65 6e 74 72 69 65 |There are entrie|
00030aa0 73 20 69 6e 20 74 68 65 20 53 61 6c 65 73 20 6c |s in the Sales l|
00030ab0 65 64 67 65 72 20 72 65 6c 61 74 65 64 20 74 6f |edger related to|
00030ac0 20 74 68 69 73 20 63 75 73 74 6f 6d 65 72 2c 20 | this customer, |
00030ad0 61 72 65 20 79 6f 75 20 73 75 72 65 20 79 6f 75 |are you sure you|
00030ae0 20 77 61 6e 74 20 74 6f 20 44 65 6c 65 74 65 3f | want to Delete?|
00030af0 22 2c 22 22 2c 22 59 45 53 22 2c 22 4e 4f 22 2c |","","YES","NO",|
00030b00 22 61 72 5f 71 75 65 73 74 22 2c 31 29 3a e7 5a |"ar_quest",1):.Z|
00030b10 24 3d 22 4e 4f 22 8c 65 72 72 6f 72 5f 25 3d 30 |$="NO".error_%=0|
00030b20 3a 3d a3 0d 9f 8d c1 65 72 72 6f 72 5f 25 3d 30 |:=.....error_%=0|
00030b30 3a 43 4c 53 75 70 70 6c 69 65 72 73 5f 24 28 43 |:CLSuppliers_$(C|
00030b40 53 5f 25 29 3d c4 6d 61 78 73 75 70 6c 65 6e 5f |S_%)=.maxsuplen_|
00030b50 25 2c 22 20 22 29 2b bd 28 30 29 3a 24 21 43 53 |%," ")+.(0):$!CS|
00030b60 75 4e 61 6d 65 5f 25 3d 22 22 3a 24 21 43 53 75 |uName_%="":$!CSu|
00030b70 41 64 31 31 5f 25 3d 22 22 3a 24 21 43 53 75 41 |Ad11_%="":$!CSuA|
00030b80 64 32 32 5f 25 3d 22 22 3a 24 21 43 53 75 41 64 |d22_%="":$!CSuAd|
00030b90 33 33 5f 25 3d 22 22 3a 24 21 43 53 75 41 64 34 |33_%="":$!CSuAd4|
00030ba0 34 5f 25 3d 22 22 3a 24 21 43 53 75 50 6f 73 74 |4_%="":$!CSuPost|
00030bb0 5f 25 3d 22 22 3a 24 21 43 53 75 43 6f 6e 74 61 |_%="":$!CSuConta|
00030bc0 63 74 5f 25 3d 22 22 3a 24 21 43 53 75 54 65 6c |ct_%="":$!CSuTel|
00030bd0 65 5f 25 3d 22 22 3a 24 21 43 53 75 46 61 78 5f |e_%="":$!CSuFax_|
00030be0 25 3d 22 22 0d 9f 92 7a 64 43 53 75 70 70 6c 69 |%=""...zdCSuppli|
00030bf0 65 72 73 5f 24 28 43 53 5f 25 29 3d 22 22 3a 24 |ers_$(CS_%)="":$|
00030c00 21 64 43 53 75 4e 61 6d 65 5f 25 3d 22 22 3a 24 |!dCSuName_%="":$|
00030c10 21 64 43 53 75 41 64 31 31 5f 25 3d 22 22 3a 24 |!dCSuAd11_%="":$|
00030c20 21 64 43 53 75 41 64 32 32 5f 25 3d 22 22 3a 24 |!dCSuAd22_%="":$|
00030c30 21 64 43 53 75 41 64 33 33 5f 25 3d 22 22 3a 24 |!dCSuAd33_%="":$|
00030c40 21 64 43 53 75 41 64 34 34 5f 25 3d 22 22 3a 24 |!dCSuAd44_%="":$|
00030c50 21 64 43 53 75 50 6f 73 74 5f 25 3d 22 22 0d 9f |!dCSuPost_%=""..|
00030c60 97 93 43 53 75 70 70 6c 69 65 72 73 5f 24 28 43 |..CSuppliers_$(C|
00030c70 53 5f 25 29 3d 22 22 3a 24 21 43 53 75 43 6f 6d |S_%)="":$!CSuCom|
00030c80 31 31 5f 25 3d 22 22 3a 24 21 43 53 75 43 6f 6d |11_%="":$!CSuCom|
00030c90 32 32 5f 25 3d 22 22 3a 24 21 43 53 75 53 75 70 |22_%="":$!CSuSup|
00030ca0 70 52 65 66 5f 25 3d 22 22 3a 24 21 43 53 75 59 |pRef_%="":$!CSuY|
00030cb0 6f 75 72 52 65 66 5f 25 3d 22 22 3a 24 21 43 53 |ourRef_%="":$!CS|
00030cc0 75 4f 72 64 65 72 5f 25 3d 22 22 3a 24 21 43 53 |uOrder_%="":$!CS|
00030cd0 75 44 69 73 63 5f 25 3d 22 22 3a 63 68 63 75 6e |uDisc_%="":chcun|
00030ce0 61 6d 5f 25 3d 31 3a 6f 63 63 72 65 64 5f 25 3d |am_%=1:occred_%=|
00030cf0 30 0d 9f 9c 49 e3 5a 25 3d 30 b8 6d 61 78 53 5f |0...I.Z%=0.maxS_|
00030d00 25 2a 73 69 74 69 70 5f 25 2d 31 3a e7 53 49 54 |%*sitip_%-1:.SIT|
00030d10 6e 5f 25 28 5a 25 2b 31 29 3d 43 53 75 4e 75 6d |n_%(Z%+1)=CSuNum|
00030d20 62 65 72 5f 25 28 43 53 5f 25 29 8c 53 49 54 6e |ber_%(CS_%).SITn|
00030d30 5f 25 28 5a 25 2b 31 29 3d 30 0d 9f a1 19 ed 3a |_%(Z%+1)=0.....:|
00030d40 3d a4 77 69 6e 64 6f 77 28 22 43 75 73 74 6f 6d |=.window("Custom|
00030d50 57 22 29 0d 9f a6 04 0d 9f ba 28 dd a4 63 64 5f |W").......(..cd_|
00030d60 28 41 24 29 3a e7 41 24 3d 22 22 8c 3d 6d 61 78 |(A$):.A$="".=max|
00030d70 4e 5f 25 20 8b 3d a4 4a 75 6c 5f 28 41 24 29 0d |N_% .=.Jul_(A$).|
00030d80 9f bf 2f dd a4 63 64 31 5f 28 41 24 29 3a e7 41 |../..cd1_(A$):.A|
00030d90 24 3d 22 22 8c 3d 6d 61 78 4e 5f 25 20 8b 3d a4 |$="".=maxN_% .=.|
00030da0 4a 75 6c 5f 28 22 30 31 2e 22 2b 41 24 29 0d 9f |Jul_("01."+A$)..|
00030db0 c4 04 0d a0 32 27 dd a4 63 6f 64 61 74 65 5f 28 |....2'..codate_(|
00030dc0 42 24 29 3a e7 42 24 3d 22 22 8c 3d 30 20 8b 3d |B$):.B$="".=0 .=|
00030dd0 a4 4a 75 6c 5f 28 42 24 29 0d a0 37 1e 42 24 3d |.Jul_(B$)..7.B$=|
00030de0 a4 63 68 64 61 74 65 5f 28 42 24 29 3a 3d a4 4a |.chdate_(B$):=.J|
00030df0 75 6c 5f 28 42 24 29 0d a0 3c 04 0d a0 41 2e dd |ul_(B$)..<...A..|
00030e00 a4 63 6f 64 61 74 65 31 5f 28 42 24 29 3a e7 42 |.codate1_(B$):.B|
00030e10 24 3d 22 22 8c 3d 30 20 8b 3d a4 4a 75 6c 5f 28 |$="".=0 .=.Jul_(|
00030e20 22 30 31 2e 22 2b 42 24 29 0d a0 46 2a 42 24 3d |"01."+B$)..F*B$=|
00030e30 22 30 31 2e 22 2b 42 24 3a 42 24 3d a4 63 68 64 |"01."+B$:B$=.chd|
00030e40 61 74 65 5f 28 42 24 29 3a 3d a4 4a 75 6c 5f 28 |ate_(B$):=.Jul_(|
00030e50 42 24 29 0d a0 4b 04 0d a0 50 61 dd a4 4a 75 6c |B$)..K...Pa..Jul|
00030e60 5f 28 41 24 29 3a ea 20 42 25 2c 43 25 2c 44 25 |_(A$):. B%,C%,D%|
00030e70 3a 42 25 3d bb 28 c1 41 24 2c 31 2c 32 29 29 3a |:B%=.(.A$,1,2)):|
00030e80 43 25 3d bb 28 c1 41 24 2c 34 2c 32 29 29 3a 44 |C%=.(.A$,4,2)):D|
00030e90 25 3d bb 28 c1 41 24 2c 37 29 29 3a e7 20 43 25 |%=.(.A$,7)):. C%|
00030ea0 3e 32 20 8c 20 43 25 2d 3d 33 20 8b 20 43 25 2b |>2 . C%-=3 . C%+|
00030eb0 3d 39 3a 44 25 2d 3d 31 0d a0 55 3e 3d 31 34 36 |=9:D%-=1..U>=146|
00030ec0 30 39 37 2a 28 44 25 81 31 30 30 29 81 34 2b 31 |097*(D%.100).4+1|
00030ed0 34 36 31 2a 28 44 25 83 31 30 30 29 81 34 2b 28 |461*(D%.100).4+(|
00030ee0 31 35 33 2a 43 25 2b 32 29 81 35 2b 42 25 2b 31 |153*C%+2).5+B%+1|
00030ef0 37 32 31 31 31 39 0d a0 5a 04 0d a0 5f 12 dd a4 |721119..Z..._...|
00030f00 66 69 6e 64 44 61 74 65 28 41 25 29 0d a0 64 0e |findDate(A%)..d.|
00030f10 ea 20 42 25 2c 43 25 2c 44 25 0d a0 69 a7 42 25 |. B%,C%,D%..i.B%|
00030f20 3d 34 2a 41 25 2d 36 38 38 34 34 37 37 3a 43 25 |=4*A%-6884477:C%|
00030f30 3d 28 42 25 81 31 34 36 30 39 37 29 2a 31 30 30 |=(B%.146097)*100|
00030f40 3a 44 25 3d 28 42 25 83 31 34 36 30 39 37 29 81 |:D%=(B%.146097).|
00030f50 34 3a 42 25 3d 34 2a 44 25 2b 33 3a 43 25 2b 3d |4:B%=4*D%+3:C%+=|
00030f60 42 25 81 31 34 36 31 3a 44 25 3d 28 42 25 83 31 |B%.1461:D%=(B%.1|
00030f70 34 36 31 29 81 34 2b 31 3a 42 25 3d 35 2a 44 25 |461).4+1:B%=5*D%|
00030f80 2d 33 3a 44 25 3d 28 42 25 83 31 35 33 29 81 35 |-3:D%=(B%.153).5|
00030f90 2b 31 3a 42 25 3d 42 25 81 31 35 33 2b 31 3a 43 |+1:B%=B%.153+1:C|
00030fa0 25 2b 3d 42 25 81 31 31 3a e7 20 42 25 3c 31 31 |%+=B%.11:. B%<11|
00030fb0 20 8c 20 42 25 2b 3d 32 20 8b 20 42 25 2d 3d 31 | . B%+=2 . B%-=1|
00030fc0 30 0d a0 6e 28 3d c2 22 30 22 2b c3 44 25 2c 32 |0..n(=."0"+.D%,2|
00030fd0 29 2b 22 2e 22 2b c2 22 30 22 2b c3 42 25 2c 32 |)+"."+."0"+.B%,2|
00030fe0 29 2b 22 2e 22 2b c3 43 25 0d a0 73 04 0d a0 78 |)+"."+.C%..s...x|
00030ff0 49 dd a4 63 68 65 63 6b 44 61 74 65 28 41 24 29 |I..checkDate(A$)|
00031000 3a ea 20 42 25 2c 43 24 3a 42 25 3d a4 4a 75 6c |:. B%,C$:B%=.Jul|
00031010 5f 28 41 24 29 3a 43 24 3d a4 66 69 6e 64 44 61 |_(A$):C$=.findDa|
00031020 74 65 28 42 25 29 3a e7 20 41 24 3d 43 24 20 8c |te(B%):. A$=C$ .|
00031030 3d b9 20 8b 3d a3 0d a0 7d 04 0d a0 82 31 dd a4 |=. .=...}....1..|
00031040 4d 79 71 75 69 74 5f 3a ea 20 5a 25 2c 5a 24 3a |Myquit_:. Z%,Z$:|
00031050 e7 53 25 21 31 39 32 3d 31 8c f2 66 69 6e 3a 65 |.S%!192=1..fin:e|
00031060 72 72 6f 72 5f 25 3d 30 3a 3d b9 0d a0 87 3a e7 |rror_%=0:=....:.|
00031070 53 25 21 31 39 32 3d 32 3a 53 25 21 31 39 32 3d |S%!192=2:S%!192=|
00031080 31 3a 51 25 21 31 32 3d 51 25 21 38 3a c8 99 26 |1:Q%!12=Q%!8:..&|
00031090 34 30 30 45 37 2c 31 39 2c 51 25 3a 21 74 30 25 |400E7,19,Q%:!t0%|
000310a0 3d 51 25 21 34 0d a0 8c 9b e7 73 61 5f 25 3d 31 |=Q%!4.....sa_%=1|
000310b0 3a e7 53 61 73 61 76 5f 25 3d 2d 31 8c 5a 24 3d |:.Sasav_%=-1.Z$=|
000310c0 a4 61 6c 65 72 74 28 22 59 6f 75 72 20 77 6f 72 |.alert("Your wor|
000310d0 6b 20 68 61 73 20 6e 6f 74 20 62 65 65 6e 20 73 |k has not been s|
000310e0 61 76 65 64 2c 20 61 72 65 20 79 6f 75 20 73 75 |aved, are you su|
000310f0 72 65 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 71 |re you want to q|
00031100 75 69 74 3f 22 2c 22 22 2c 22 59 45 53 22 2c 22 |uit?","","YES","|
00031110 4e 4f 22 2c 22 61 72 5f 71 75 65 73 74 22 2c 31 |NO","ar_quest",1|
00031120 29 3a e7 5a 24 3d 22 4e 4f 22 8c 65 72 72 6f 72 |):.Z$="NO".error|
00031130 5f 25 3d 30 3a 53 25 21 31 39 32 3d 30 3a 3d a3 |_%=0:S%!192=0:=.|
00031140 0d a0 91 26 e7 69 6e 76 77 25 3e 30 8c 5a 25 3d |...&.invw%>0.Z%=|
00031150 a4 49 6e 76 57 5f 3a 5a 25 3d a4 67 65 74 63 75 |.InvW_:Z%=.getcu|
00031160 73 74 5f 28 30 29 0d a0 96 49 e7 53 61 73 61 76 |st_(0)...I.Sasav|
00031170 5f 25 3d 31 3a e7 73 61 6c 65 64 25 3e 30 8c f2 |_%=1:.saled%>0..|
00031180 73 77 5f 28 73 61 6c 65 64 57 25 29 3a 73 61 6c |sw_(saledW%):sal|
00031190 65 64 25 3d 30 3a f2 63 6c 6f 73 65 57 28 73 61 |ed%=0:.closeW(sa|
000311a0 6c 65 64 57 25 29 3a f2 53 69 53 6f 72 74 5f 0d |ledW%):.SiSort_.|
000311b0 a0 9b 49 e7 53 61 73 61 76 5f 25 3d 31 3a e7 70 |..I.Sasav_%=1:.p|
000311c0 61 6c 65 64 25 3e 30 8c f2 73 77 5f 28 70 61 6c |aled%>0..sw_(pal|
000311d0 65 64 57 25 29 3a 70 61 6c 65 64 25 3d 30 3a f2 |edW%):paled%=0:.|
000311e0 63 6c 6f 73 65 57 28 70 61 6c 65 64 57 25 29 3a |closeW(paledW%):|
000311f0 f2 50 69 53 6f 72 74 5f 0d a0 a0 47 e7 53 61 73 |.PiSort_...G.Sas|
00031200 61 76 5f 25 3d 31 3a e7 62 61 6e 6b 6c 25 3e 30 |av_%=1:.bankl%>0|
00031210 8c f2 73 77 5f 28 62 61 6e 6b 57 25 29 3a 62 61 |..sw_(bankW%):ba|
00031220 6e 6b 6c 25 3d 30 3a f2 63 6c 6f 73 65 57 28 62 |nkl%=0:.closeW(b|
00031230 61 6e 6b 57 25 29 3a f2 42 69 53 6f 72 74 5f 0d |ankW%):.BiSort_.|
00031240 a0 a5 81 e7 93 2d e0 3e 3d 31 30 30 30 30 3a e7 |.....-.>=10000:.|
00031250 45 78 69 74 77 61 72 5f 25 3d 31 3a e7 53 61 73 |Exitwar_%=1:.Sas|
00031260 61 76 5f 25 3d 2d 31 8c 5a 24 3d a4 61 6c 65 72 |av_%=-1.Z$=.aler|
00031270 74 28 22 41 62 6f 75 74 20 74 6f 20 51 75 69 74 |t("About to Quit|
00031280 20 4f 4b 3f 22 2c 22 22 2c 22 59 45 53 22 2c 22 | OK?","","YES","|
00031290 4e 4f 22 2c 22 61 72 5f 71 75 65 73 74 22 2c 31 |NO","ar_quest",1|
000312a0 29 3a e7 5a 24 3d 22 4e 4f 22 8c 65 72 72 6f 72 |):.Z$="NO".error|
000312b0 5f 25 3d 30 3a 53 25 21 31 39 32 3d 30 3a 3d a3 |_%=0:S%!192=0:=.|
000312c0 0d a0 aa 93 e7 93 2d e0 3e 3d 31 30 30 30 30 3a |......-.>=10000:|
000312d0 e7 45 78 69 74 77 61 72 5f 25 3d 31 3a e7 53 61 |.Exitwar_%=1:.Sa|
000312e0 73 61 76 5f 25 3d 31 8c 5a 24 3d a4 61 6c 65 72 |sav_%=1.Z$=.aler|
000312f0 74 28 22 41 62 6f 75 74 20 74 6f 20 53 61 76 65 |t("About to Save|
00031300 20 79 6f 75 72 20 57 6f 72 6b 20 61 6e 64 20 51 | your Work and Q|
00031310 75 69 74 20 4f 4b 3f 22 2c 22 22 2c 22 59 45 53 |uit OK?","","YES|
00031320 22 2c 22 4e 4f 22 2c 22 61 72 5f 71 75 65 73 74 |","NO","ar_quest|
00031330 22 2c 31 29 3a e7 5a 24 3d 22 4e 4f 22 8c 65 72 |",1):.Z$="NO".er|
00031340 72 6f 72 5f 25 3d 30 3a 53 25 21 31 39 32 3d 30 |ror_%=0:S%!192=0|
00031350 3a 3d a3 0d a0 af 62 e7 53 61 73 61 76 5f 25 3d |:=....b.Sasav_%=|
00031360 31 8c 5a 24 3d a4 61 73 61 76 65 32 5f 28 53 61 |1.Z$=.asave2_(Sa|
00031370 76 65 61 5f 24 2c 31 29 3a e7 45 52 5f 25 3d 31 |vea_$,1):.ER_%=1|
00031380 20 8c 5a 25 3d a4 77 69 6e 64 6f 77 28 22 53 73 | .Z%=.window("Ss|
00031390 61 76 65 22 29 3a f2 73 65 74 43 5f 28 35 29 3a |ave"):.setC_(5):|
000313a0 65 72 72 6f 72 5f 25 3d 30 3a 53 25 21 31 39 32 |error_%=0:S%!192|
000313b0 3d 30 3a 3d a3 0d a0 b4 14 5a 25 3d a4 49 6c 6f |=0:=.....Z%=.Ilo|
000313c0 73 65 4f 66 6f 6e 74 73 5f 0d a0 b9 1d e7 53 25 |seOfonts_.....S%|
000313d0 21 31 39 32 3d 31 3a c8 99 26 36 2c 31 33 38 2c |!192=1:..&6,138,|
000313e0 30 2c 26 31 46 43 0d a0 be 15 65 72 72 6f 72 5f |0,&1FC....error_|
000313f0 25 3d 30 3a f2 66 69 6e 3a 3d b9 0d a0 c3 04 0d |%=0:.fin:=......|
00031400 a0 cd 19 dd a4 43 69 6e 69 74 53 75 53 61 76 5f |.....CinitSuSav_|
00031410 3a 3d a4 7a 7a 43 31 5f 0d a0 d7 1b dd a4 43 75 |:=.zzC1_......Cu|
00031420 70 64 61 74 65 53 75 53 61 76 5f 3a 3d a4 7a 7a |pdateSuSav_:=.zz|
00031430 43 32 5f 0d a0 e6 1a dd a4 43 53 75 53 61 76 54 |C2_......CSuSavT|
00031440 5f 3a f2 77 6c 5f 28 32 38 29 3a 3d b9 0d a0 fa |_:.wl_(28):=....|
00031450 1a dd a4 43 53 75 53 61 76 43 5f 3a f2 77 6c 5f |...CSuSavC_:.wl_|
00031460 28 32 38 29 3a 3d b9 0d a1 04 04 0d a1 09 2c dd |(28):=........,.|
00031470 a4 53 61 73 61 76 65 61 73 5f 3a 53 61 6c 65 64 |.Sasaveas_:Saled|
00031480 52 5f 24 28 32 35 29 3d 24 21 53 61 73 61 76 65 |R_$(25)=$!Sasave|
00031490 61 73 5f 25 3a 3d b9 0d a1 0e 19 dd a4 53 61 73 |as_%:=.......Sas|
000314a0 61 76 54 5f 3a f2 77 6c 5f 28 32 38 29 3a 3d b9 |avT_:.wl_(28):=.|
000314b0 0d a1 13 19 dd a4 53 61 73 61 76 43 5f 3a f2 77 |......SasavC_:.w|
000314c0 6c 5f 28 32 38 29 3a 3d b9 0d a1 18 04 0d a1 1d |l_(28):=........|
000314d0 2c dd a4 50 61 73 61 76 65 61 73 5f 3a 50 61 6c |,..Pasaveas_:Pal|
000314e0 65 64 52 5f 24 28 32 35 29 3d 24 21 50 61 73 61 |edR_$(25)=$!Pasa|
000314f0 76 65 61 73 5f 25 3a 3d b9 0d a1 22 19 dd a4 50 |veas_%:=..."...P|
00031500 61 73 61 76 54 5f 3a f2 77 6c 5f 28 32 38 29 3a |asavT_:.wl_(28):|
00031510 3d b9 0d a1 27 19 dd a4 50 61 73 61 76 43 5f 3a |=...'...PasavC_:|
00031520 f2 77 6c 5f 28 32 38 29 3a 3d b9 0d a1 2c 04 0d |.wl_(28):=...,..|
00031530 a1 31 2c dd a4 42 61 73 61 76 65 61 73 5f 3a 42 |.1,..Basaveas_:B|
00031540 61 6c 65 64 52 5f 24 28 31 35 29 3d 24 21 42 61 |aledR_$(15)=$!Ba|
00031550 73 61 76 65 61 73 5f 25 3a 3d b9 0d a1 36 19 dd |saveas_%:=...6..|
00031560 a4 42 61 73 61 76 54 5f 3a f2 77 6c 5f 28 32 38 |.BasavT_:.wl_(28|
00031570 29 3a 3d b9 0d a1 3b 19 dd a4 42 61 73 61 76 43 |):=...;...BasavC|
00031580 5f 3a f2 77 6c 5f 28 32 38 29 3a 3d b9 0d a1 40 |_:.wl_(28):=...@|
00031590 04 0d a1 45 2a dd a4 56 61 73 61 76 65 61 73 5f |...E*..Vasaveas_|
000315a0 3a 56 61 74 43 5f 24 28 31 30 29 3d 24 21 56 61 |:VatC_$(10)=$!Va|
000315b0 73 61 76 65 61 73 5f 25 3a 3d b9 0d a1 4a 19 dd |saveas_%:=...J..|
000315c0 a4 56 61 73 61 76 54 5f 3a f2 77 6c 5f 28 32 38 |.VasavT_:.wl_(28|
000315d0 29 3a 3d b9 0d a1 4f 19 dd a4 56 61 73 61 76 43 |):=...O...VasavC|
000315e0 5f 3a f2 77 6c 5f 28 32 38 29 3a 3d b9 0d a1 54 |_:.wl_(28):=...T|
000315f0 04 0d a1 6d 26 dd a4 58 61 73 61 76 65 61 73 5f |...m&..Xasaveas_|
00031600 3a 58 6e 61 6d 5f 24 3d 24 21 58 61 73 61 76 65 |:Xnam_$=$!Xasave|
00031610 61 73 5f 25 3a 3d b9 0d a1 72 19 dd a4 58 61 73 |as_%:=...r...Xas|
00031620 61 76 54 5f 3a f2 77 6c 5f 28 32 38 29 3a 3d b9 |avT_:.wl_(28):=.|
00031630 0d a1 77 19 dd a4 58 61 73 61 76 43 5f 3a f2 77 |..w...XasavC_:.w|
00031640 6c 5f 28 32 38 29 3a 3d b9 0d a1 7c 04 0d a1 e5 |l_(28):=...|....|
00031650 13 dd a4 43 53 75 53 61 76 65 61 73 5f 3a 3d b9 |...CSuSaveas_:=.|
00031660 0d a1 ea 10 dd a4 43 53 61 41 64 64 5f 3a 3d b9 |......CSaAdd_:=.|
00031670 0d a1 ef 10 dd a4 43 53 61 50 6f 73 5f 3a 3d b9 |......CSaPos_:=.|
00031680 0d a1 f4 11 dd a4 43 53 61 43 6f 6d 31 5f 3a 3d |......CSaCom1_:=|
00031690 b9 0d a1 f9 11 dd a4 43 53 61 43 6f 6d 32 5f 3a |.......CSaCom2_:|
000316a0 3d b9 0d a1 fe 12 dd a4 43 53 61 46 6e 61 6d 65 |=.......CSaFname|
000316b0 5f 3a 3d b9 0d a2 03 11 dd a4 43 53 61 46 61 64 |_:=.......CSaFad|
000316c0 64 5f 3a 3d b9 0d a2 08 12 dd a4 43 53 61 46 63 |d_:=.......CSaFc|
000316d0 6f 6e 74 5f 3a 3d b9 0d a2 0d 12 dd a4 43 53 61 |ont_:=.......CSa|
000316e0 46 63 6f 6d 6d 5f 3a 3d b9 0d a2 12 12 dd a4 43 |Fcomm_:=.......C|
000316f0 53 61 46 73 72 65 66 5f 3a 3d b9 0d a2 17 12 dd |SaFsref_:=......|
00031700 a4 43 53 61 46 79 72 65 66 5f 3a 3d b9 0d a2 1c |.CSaFyref_:=....|
00031710 45 dd a4 43 53 75 48 5f 3a 63 73 75 68 5f 25 3d |E..CSuH_:csuh_%=|
00031720 2d 63 73 75 68 5f 25 3a e7 63 73 75 68 5f 25 3d |-csuh_%:.csuh_%=|
00031730 2d 31 8c f2 73 49 28 57 25 2c 22 43 53 75 48 22 |-1..sI(W%,"CSuH"|
00031740 29 20 8b f2 75 73 49 28 57 25 2c 22 43 53 75 48 |) ..usI(W%,"CSuH|
00031750 22 29 0d a2 21 06 3d b9 0d a2 26 0e dd a4 7a 7a |")..!.=...&...zz|
00031760 33 33 5f 3a 3d b9 0d a2 2b 18 dd a4 7a 7a 34 34 |33_:=...+...zz44|
00031770 5f 3a f2 73 65 74 43 5f 28 35 29 3a 3d b9 0d a2 |_:.setC_(5):=...|
00031780 30 d6 dd a4 7a 7a 43 31 5f 3a 24 21 43 53 61 41 |0...zzC1_:$!CSaA|
00031790 64 64 5f 25 3d 45 63 5f 24 28 30 29 3a 24 21 43 |dd_%=Ec_$(0):$!C|
000317a0 53 61 50 6f 73 5f 25 3d 45 63 5f 24 28 31 29 3a |SaPos_%=Ec_$(1):|
000317b0 24 21 43 53 61 43 6f 6d 31 5f 25 3d 45 63 5f 24 |$!CSaCom1_%=Ec_$|
000317c0 28 32 29 3a 24 21 43 53 61 43 6f 6d 32 5f 25 3d |(2):$!CSaCom2_%=|
000317d0 45 63 5f 24 28 33 29 3a 24 21 43 53 61 46 6e 61 |Ec_$(3):$!CSaFna|
000317e0 6d 65 5f 25 3d 45 63 5f 24 28 34 29 3a 24 21 43 |me_%=Ec_$(4):$!C|
000317f0 53 61 46 61 64 64 5f 25 3d 45 63 5f 24 28 35 29 |SaFadd_%=Ec_$(5)|
00031800 3a 24 21 43 53 61 46 63 6f 6e 74 5f 25 3d 45 63 |:$!CSaFcont_%=Ec|
00031810 5f 24 28 36 29 3a 24 21 43 53 61 46 63 6f 6d 6d |_$(6):$!CSaFcomm|
00031820 5f 25 3d 45 63 5f 24 28 37 29 3a 24 21 43 53 61 |_%=Ec_$(7):$!CSa|
00031830 46 73 72 65 66 5f 25 3d 45 63 5f 24 28 38 29 3a |Fsref_%=Ec_$(8):|
00031840 24 21 43 53 61 46 79 72 65 66 5f 25 3d 45 63 5f |$!CSaFyref_%=Ec_|
00031850 24 28 39 29 0d a2 35 55 24 21 7a 7a 33 33 5f 25 |$(9)..5U$!zz33_%|
00031860 3d 45 63 5f 24 28 31 30 29 3a 24 21 7a 7a 34 34 |=Ec_$(10):$!zz44|
00031870 5f 25 3d 45 63 5f 24 28 31 31 29 3a 24 21 43 53 |_%=Ec_$(11):$!CS|
00031880 75 53 61 76 65 61 73 5f 25 3d 45 63 5f 24 28 31 |uSaveas_%=Ec_$(1|
00031890 32 29 3a 63 73 75 68 5f 25 3d 2d 63 73 75 68 5f |2):csuh_%=-csuh_|
000318a0 25 3a 3d a4 43 53 75 48 5f 0d a2 3a d6 dd a4 7a |%:=.CSuH_..:...z|
000318b0 7a 43 32 5f 3a 45 63 5f 24 28 30 29 3d 24 21 43 |zC2_:Ec_$(0)=$!C|
000318c0 53 61 41 64 64 5f 25 3a 45 63 5f 24 28 31 29 3d |SaAdd_%:Ec_$(1)=|
000318d0 24 21 43 53 61 50 6f 73 5f 25 3a 45 63 5f 24 28 |$!CSaPos_%:Ec_$(|
000318e0 32 29 3d 24 21 43 53 61 43 6f 6d 31 5f 25 3a 45 |2)=$!CSaCom1_%:E|
000318f0 63 5f 24 28 33 29 3d 24 21 43 53 61 43 6f 6d 32 |c_$(3)=$!CSaCom2|
00031900 5f 25 3a 45 63 5f 24 28 34 29 3d 24 21 43 53 61 |_%:Ec_$(4)=$!CSa|
00031910 46 6e 61 6d 65 5f 25 3a 45 63 5f 24 28 35 29 3d |Fname_%:Ec_$(5)=|
00031920 24 21 43 53 61 46 61 64 64 5f 25 3a 45 63 5f 24 |$!CSaFadd_%:Ec_$|
00031930 28 36 29 3d 24 21 43 53 61 46 63 6f 6e 74 5f 25 |(6)=$!CSaFcont_%|
00031940 3a 45 63 5f 24 28 37 29 3d 24 21 43 53 61 46 63 |:Ec_$(7)=$!CSaFc|
00031950 6f 6d 6d 5f 25 3a 45 63 5f 24 28 38 29 3d 24 21 |omm_%:Ec_$(8)=$!|
00031960 43 53 61 46 73 72 65 66 5f 25 3a 45 63 5f 24 28 |CSaFsref_%:Ec_$(|
00031970 39 29 3d 24 21 43 53 61 46 79 72 65 66 5f 25 0d |9)=$!CSaFyref_%.|
00031980 a2 3f 64 24 21 43 75 43 6e 5f 25 3d c3 28 63 6f |.?d$!CuCn_%=.(co|
00031990 75 6e 74 5f 25 29 3a f2 72 49 28 57 25 2c 22 43 |unt_%):.rI(W%,"C|
000319a0 75 43 6e 22 29 3a 45 63 5f 24 28 31 30 29 3d 24 |uCn"):Ec_$(10)=$|
000319b0 21 7a 7a 33 33 5f 25 3a 45 63 5f 24 28 31 31 29 |!zz33_%:Ec_$(11)|
000319c0 3d 24 21 7a 7a 34 34 5f 25 3a 45 63 5f 24 28 31 |=$!zz44_%:Ec_$(1|
000319d0 32 29 3d 24 21 43 53 75 53 61 76 65 61 73 5f 25 |2)=$!CSuSaveas_%|
000319e0 3a 3d b9 0d a2 44 04 0d a2 49 43 dd a4 69 6e 69 |:=...D...IC..ini|
000319f0 74 53 61 76 65 5f 3a 24 21 53 61 76 65 61 73 5f |tSave_:$!Saveas_|
00031a00 25 3d 53 61 76 65 61 5f 24 3a 24 21 53 61 76 65 |%=Savea_$:$!Save|
00031a10 61 73 42 5f 25 3d 53 61 76 65 61 42 5f 24 3a f2 |asB_%=SaveaB_$:.|
00031a20 61 75 74 6f 73 61 5f 3a 3d b9 0d a2 4e 0d dd f2 |autosa_:=...N...|
00031a30 61 75 74 6f 73 61 5f 0d a2 53 32 e7 41 75 74 6f |autosa_..S2.Auto|
00031a40 73 61 76 5f 25 3e 30 8c 61 75 74 6f 5f 24 3d 22 |sav_%>0.auto_$="|
00031a50 28 41 75 74 6f 73 61 76 65 20 4f 4e 29 22 20 8b |(Autosave ON)" .|
00031a60 61 75 74 6f 5f 24 3d 22 22 0d a2 58 36 e7 53 61 |auto_$=""..X6.Sa|
00031a70 73 61 76 5f 25 3d 31 8c 61 75 74 6f 45 5f 24 3d |sav_%=1.autoE_$=|
00031a80 22 28 53 61 76 65 20 6f 6e 20 65 78 69 74 20 4f |"(Save on exit O|
00031a90 4e 29 22 20 8b 61 75 74 6f 45 5f 24 3d 22 22 0d |N)" .autoE_$="".|
00031aa0 a2 5d 28 24 21 61 75 74 6f 73 5f 25 3d 61 75 74 |.]($!autos_%=aut|
00031ab0 6f 5f 24 3a 24 21 61 75 74 6f 65 5f 25 3d 61 75 |o_$:$!autoe_%=au|
00031ac0 74 6f 45 5f 24 3a e1 0d a2 62 3c dd a4 75 70 64 |toE_$:...b<..upd|
00031ad0 61 74 65 53 61 76 65 5f 3a 53 61 76 65 61 5f 24 |ateSave_:Savea_$|
00031ae0 3d 24 21 53 61 76 65 61 73 5f 25 3a 53 61 76 65 |=$!Saveas_%:Save|
00031af0 61 42 5f 24 3d 24 21 53 61 76 65 61 73 42 5f 25 |aB_$=$!SaveasB_%|
00031b00 3a 3d b9 0d a2 67 43 dd a4 53 6f 6b 5f 3a 53 61 |:=...gC..Sok_:Sa|
00031b10 76 65 61 5f 24 3d 24 21 53 61 76 65 61 73 5f 25 |vea_$=$!Saveas_%|
00031b20 3a 53 61 76 65 61 42 5f 24 3d 24 21 53 61 76 65 |:SaveaB_$=$!Save|
00031b30 61 73 42 5f 25 3a f2 73 61 76 65 66 69 6c 65 5f |asB_%:.savefile_|
00031b40 28 31 29 3a 3d b9 0d a2 6c 44 dd a4 53 6f 6b 62 |(1):=...lD..Sokb|
00031b50 5f 3a 53 61 76 65 61 5f 24 3d 24 21 53 61 76 65 |_:Savea_$=$!Save|
00031b60 61 73 5f 25 3a 53 61 76 65 61 42 5f 24 3d 24 21 |as_%:SaveaB_$=$!|
00031b70 53 61 76 65 61 73 42 5f 25 3a f2 73 61 76 65 66 |SaveasB_%:.savef|
00031b80 69 6c 65 5f 28 33 29 3a 3d b9 0d a2 71 42 dd a4 |ile_(3):=...qB..|
00031b90 53 61 76 65 61 73 5f 3a 21 62 25 3d 30 3a 53 61 |Saveas_:!b%=0:Sa|
00031ba0 76 65 61 5f 24 3d 24 21 53 61 76 65 61 73 5f 25 |vea_$=$!Saveas_%|
00031bb0 3a 53 61 76 65 61 42 5f 24 3d 24 21 53 61 76 65 |:SaveaB_$=$!Save|
00031bc0 61 73 42 5f 25 3a 3d a4 53 6f 6b 5f 0d a2 76 44 |asB_%:=.Sok_..vD|
00031bd0 dd a4 53 61 76 49 5f 3a 53 61 76 65 61 5f 24 3d |..SavI_:Savea_$=|
00031be0 24 21 53 61 76 65 61 73 5f 25 3a 53 61 76 65 61 |$!Saveas_%:Savea|
00031bf0 42 5f 24 3d 24 21 53 61 76 65 61 73 42 5f 25 3a |B_$=$!SaveasB_%:|
00031c00 f2 73 61 76 65 66 69 6c 65 5f 28 30 29 3a 3d b9 |.savefile_(0):=.|
00031c10 0d a2 7b 44 dd a4 53 61 76 65 61 73 42 5f 3a 21 |..{D..SaveasB_:!|
00031c20 62 25 3d 30 3a 53 61 76 65 61 5f 24 3d 24 21 53 |b%=0:Savea_$=$!S|
00031c30 61 76 65 61 73 5f 25 3a 53 61 76 65 61 42 5f 24 |aveas_%:SaveaB_$|
00031c40 3d 24 21 53 61 76 65 61 73 42 5f 25 3a 3d a4 53 |=$!SaveasB_%:=.S|
00031c50 6f 6b 62 5f 0d a2 80 45 dd a4 53 61 76 49 42 5f |okb_...E..SavIB_|
00031c60 3a 53 61 76 65 61 5f 24 3d 24 21 53 61 76 65 61 |:Savea_$=$!Savea|
00031c70 73 5f 25 3a 53 61 76 65 61 42 5f 24 3d 24 21 53 |s_%:SaveaB_$=$!S|
00031c80 61 76 65 61 73 42 5f 25 3a f2 73 61 76 65 66 69 |aveasB_%:.savefi|
00031c90 6c 65 5f 28 32 29 3a 3d b9 0d a2 85 31 dd a4 53 |le_(2):=....1..S|
00031ca0 6f 6b 4e 5f 3a 53 61 76 65 61 4e 5f 24 3d 24 21 |okN_:SaveaN_$=$!|
00031cb0 53 61 76 65 61 73 4e 5f 25 3a f2 73 61 76 65 66 |SaveasN_%:.savef|
00031cc0 69 6c 65 5f 28 35 29 3a 3d b9 0d a2 8a 2b dd a4 |ile_(5):=....+..|
00031cd0 53 61 76 65 61 73 4e 5f 3a 53 61 76 65 61 4e 5f |SaveasN_:SaveaN_|
00031ce0 24 3d 24 21 53 61 76 65 61 73 4e 5f 25 3a 3d a4 |$=$!SaveasN_%:=.|
00031cf0 53 6f 6b 4e 5f 0d a2 8f 31 dd a4 53 61 76 4e 5f |SokN_...1..SavN_|
00031d00 3a 53 61 76 65 61 4e 5f 24 3d 24 21 53 61 76 65 |:SaveaN_$=$!Save|
00031d10 61 73 4e 5f 25 3a f2 73 61 76 65 66 69 6c 65 5f |asN_%:.savefile_|
00031d20 28 34 29 3a 3d b9 0d a2 94 04 0d a2 99 13 dd f2 |(4):=...........|
00031d30 73 61 76 65 66 69 6c 65 5f 28 5a 25 29 0d a2 9e |savefile_(Z%)...|
00031d40 95 e7 5a 25 3d 30 3a f2 69 6e 69 74 73 61 76 65 |..Z%=0:.initsave|
00031d50 5f 28 26 43 38 38 2c 53 61 76 65 61 5f 24 2c 31 |_(&C88,Savea_$,1|
00031d60 29 20 8b e7 5a 25 3d 32 3a f2 69 6e 69 74 73 61 |) ..Z%=2:.initsa|
00031d70 76 65 5f 28 26 43 38 38 2c 53 61 76 65 61 42 5f |ve_(&C88,SaveaB_|
00031d80 24 2c 30 29 20 8b e7 5a 25 3d 31 3a 24 21 53 61 |$,0) ..Z%=1:$!Sa|
00031d90 76 65 61 73 5f 25 3d a4 61 73 61 76 65 32 5f 28 |veas_%=.asave2_(|
00031da0 53 61 76 65 61 5f 24 2c 31 29 20 8b e7 5a 25 3d |Savea_$,1) ..Z%=|
00031db0 33 3a 24 21 53 61 76 65 61 73 42 5f 25 3d a4 61 |3:$!SaveasB_%=.a|
00031dc0 73 61 76 65 32 5f 28 53 61 76 65 61 42 5f 24 2c |save2_(SaveaB_$,|
00031dd0 30 29 0d a2 a3 4e e7 5a 25 3d 34 3a f2 69 6e 69 |0)...N.Z%=4:.ini|
00031de0 74 73 61 76 65 5f 28 26 43 38 38 2c 53 61 76 65 |tsave_(&C88,Save|
00031df0 61 4e 5f 24 2c 2d 31 29 20 8b e7 5a 25 3d 35 24 |aN_$,-1) ..Z%=5$|
00031e00 21 53 61 76 65 61 73 4e 5f 25 3d a4 61 73 61 76 |!SaveasN_%=.asav|
00031e10 65 32 5f 28 53 61 76 65 61 4e 5f 24 2c 2d 31 29 |e2_(SaveaN_$,-1)|
00031e20 0d a2 a8 2c e7 5a 25 3d 31 3a e7 45 52 5f 25 3d |...,.Z%=1:.ER_%=|
00031e30 31 8c f2 72 49 28 57 25 2c 22 53 61 76 65 61 73 |1..rI(W%,"Saveas|
00031e40 22 29 3a f2 73 65 74 43 5f 28 35 29 0d a2 ad 2e |"):.setC_(5)....|
00031e50 e7 5a 25 3d 33 3a e7 45 52 5f 25 3d 31 8c f2 72 |.Z%=3:.ER_%=1..r|
00031e60 49 28 57 25 2c 22 53 61 76 65 61 73 42 22 29 3a |I(W%,"SaveasB"):|
00031e70 f2 73 65 74 43 5f 28 31 30 29 0d a2 b2 2d e7 5a |.setC_(10)...-.Z|
00031e80 25 3d 35 3a e7 45 52 5f 25 3d 31 8c f2 72 49 28 |%=5:.ER_%=1..rI(|
00031e90 57 25 2c 22 53 61 76 65 61 73 4e 22 29 3a f2 73 |W%,"SaveasN"):.s|
00031ea0 65 74 43 5f 28 33 29 0d a2 b7 05 e1 0d a2 bc 04 |etC_(3).........|
00031eb0 0d a3 3e 1c dd f2 69 6e 69 74 73 61 76 65 5f 28 |..>...initsave_(|
00031ec0 41 5f 25 2c 41 5f 24 2c 42 5f 25 29 0d a3 43 1e |A_%,A_$,B_%)..C.|
00031ed0 ea 20 41 25 2c 72 65 61 73 6f 6e 5f 25 2c 5a 25 |. A%,reason_%,Z%|
00031ee0 2c 42 25 2c 43 25 2c 5a 5f 25 0d a3 48 16 c8 99 |,B%,C%,Z_%..H...|
00031ef0 20 26 34 30 30 43 46 2c 2c 62 6c 6f 63 6b 5f 25 | &400CF,,block_%|
00031f00 0d a3 4d 19 62 6c 6f 63 6b 5f 25 21 32 30 3d 62 |..M.block_%!20=b|
00031f10 6c 6f 63 6b 5f 25 21 31 32 0d a3 52 19 62 6c 6f |lock_%!12..R.blo|
00031f20 63 6b 5f 25 21 32 34 3d 62 6c 6f 63 6b 5f 25 21 |ck_%!24=block_%!|
00031f30 31 36 0d a3 57 18 62 6c 6f 63 6b 5f 25 21 32 38 |16..W.block_%!28|
00031f40 3d 62 6c 6f 63 6b 5f 25 21 30 0d a3 5c 18 62 6c |=block_%!0..\.bl|
00031f50 6f 63 6b 5f 25 21 33 32 3d 62 6c 6f 63 6b 5f 25 |ock_%!32=block_%|
00031f60 21 34 0d a3 66 13 62 6c 6f 63 6b 5f 25 21 33 36 |!4..f.block_%!36|
00031f70 3d 34 30 39 36 0d a3 6b 11 62 6c 6f 63 6b 5f 25 |=4096..k.block_%|
00031f80 21 30 3d 32 35 36 0d a3 70 10 62 6c 6f 63 6b 5f |!0=256..p.block_|
00031f90 25 21 31 32 3d 30 0d a3 75 10 62 6c 6f 63 6b 5f |%!12=0..u.block_|
00031fa0 25 21 31 36 3d 31 0d a3 7a 12 62 6c 6f 63 6b 5f |%!16=1..z.block_|
00031fb0 25 21 34 30 3d 41 5f 25 0d a3 7f 1f 24 28 62 6c |%!40=A_%....$(bl|
00031fc0 6f 63 6b 5f 25 2b 34 34 29 3d a4 67 65 74 66 6e |ock_%+44)=.getfn|
00031fd0 6d 5f 28 41 5f 24 29 0d a3 84 4c c8 99 20 26 34 |m_(A_$)...L.. &4|
00031fe0 30 30 45 37 2c 31 38 2c 62 6c 6f 63 6b 5f 25 2c |00E7,18,block_%,|
00031ff0 62 6c 6f 63 6b 5f 25 21 32 30 2c 62 6c 6f 63 6b |block_%!20,block|
00032000 5f 25 21 32 34 20 b8 20 2c 2c 64 74 61 73 6b 5f |_%!24 . ,,dtask_|
00032010 25 3a 73 74 61 73 6b 5f 25 3d 62 6c 6f 63 6b 5f |%:stask_%=block_|
00032020 25 21 34 0d a3 89 16 e7 64 74 61 73 6b 5f 25 3d |%!4.....dtask_%=|
00032030 73 74 61 73 6b 5f 25 8c e1 0d a3 8e 2e 74 65 6d |stask_%......tem|
00032040 70 5f 25 3d 30 3a 62 79 74 65 70 74 72 5f 25 3d |p_%=0:byteptr_%=|
00032050 30 3a e7 41 5f 25 3d 26 46 46 46 20 8c 43 25 3d |0:.A_%=&FFF .C%=|
00032060 31 20 8b 43 25 3d 30 0d a3 93 ce 73 61 6c 5f 25 |1 .C%=0....sal_%|
00032070 28 31 33 2c 30 29 3d 30 3a 73 61 6c 5f 25 28 31 |(13,0)=0:sal_%(1|
00032080 33 2c 31 29 3d 30 3a 73 61 6c 5f 25 28 31 33 2c |3,1)=0:sal_%(13,|
00032090 32 29 3d 30 3a 73 61 6c 5f 25 28 30 2c 30 29 3d |2)=0:sal_%(0,0)=|
000320a0 30 3a 73 61 6c 5f 25 28 30 2c 31 29 3d 30 3a 73 |0:sal_%(0,1)=0:s|
000320b0 61 6c 5f 25 28 30 2c 32 29 3d 30 3a 62 61 6c 5f |al_%(0,2)=0:bal_|
000320c0 25 28 31 33 2c 30 29 3d 30 3a 62 61 6c 5f 25 28 |%(13,0)=0:bal_%(|
000320d0 31 33 2c 31 29 3d 30 3a 62 61 6c 5f 25 28 31 33 |13,1)=0:bal_%(13|
000320e0 2c 32 29 3d 30 3a 62 61 6c 5f 25 28 30 2c 30 29 |,2)=0:bal_%(0,0)|
000320f0 3d 30 3a 62 61 6c 5f 25 28 30 2c 31 29 3d 30 3a |=0:bal_%(0,1)=0:|
00032100 62 61 6c 5f 25 28 30 2c 32 29 3d 30 3a 66 6c 61 |bal_%(0,2)=0:fla|
00032110 67 5f 25 3d 30 3a 66 6c 61 67 31 5f 25 3d 30 3a |g_%=0:flag1_%=0:|
00032120 56 61 74 56 5f 25 28 29 3d 30 3a 56 61 74 53 5f |VatV_%()=0:VatS_|
00032130 25 28 29 3d 30 0d a3 98 62 42 25 3d 97 28 24 21 |%()=0...bB%=.($!|
00032140 72 33 33 42 5f 25 29 83 33 32 3a e7 42 25 3c 31 |r33B_%).32:.B%<1|
00032150 8c 42 25 3d 30 3a e3 5a 25 3d 31 b8 31 32 3a 42 |.B%=0:.Z%=1.12:B|
00032160 25 3d a4 61 64 64 5f 28 42 25 2c 42 61 6e 6b 4f |%=.add_(B%,BankO|
00032170 4f 5f 25 28 5a 25 29 29 3a ed 20 8b e7 42 25 3e |O_%(Z%)):. ..B%>|
00032180 30 80 42 25 3c 31 33 8c 42 25 3d 42 61 6e 6b 4f |0.B%<13.B%=BankO|
00032190 4f 5f 25 28 42 25 29 0d a3 9d bc 42 61 6e 6b 4f |O_%(B%)....BankO|
000321a0 4f 5f 25 28 30 29 3d 30 3a 42 61 6e 6b 53 53 5f |O_%(0)=0:BankSS_|
000321b0 25 28 30 29 3d 30 3a 42 61 6e 6b 43 43 5f 25 28 |%(0)=0:BankCC_%(|
000321c0 30 29 3d 30 3a e3 5a 25 3d 31 b8 31 32 3a 42 61 |0)=0:.Z%=1.12:Ba|
000321d0 6e 6b 4f 4f 5f 25 28 30 29 3d a4 61 64 64 5f 28 |nkOO_%(0)=.add_(|
000321e0 42 61 6e 6b 4f 4f 5f 25 28 30 29 2c 42 61 6e 6b |BankOO_%(0),Bank|
000321f0 4f 4f 5f 25 28 5a 25 29 29 3a 42 61 6e 6b 53 53 |OO_%(Z%)):BankSS|
00032200 5f 25 28 30 29 3d a4 61 64 64 5f 28 42 61 6e 6b |_%(0)=.add_(Bank|
00032210 53 53 5f 25 28 30 29 2c 42 61 6e 6b 53 53 5f 25 |SS_%(0),BankSS_%|
00032220 28 5a 25 29 29 3a 42 61 6e 6b 43 43 5f 25 28 30 |(Z%)):BankCC_%(0|
00032230 29 3d a4 61 64 64 5f 28 42 61 6e 6b 43 43 5f 25 |)=.add_(BankCC_%|
00032240 28 30 29 2c 42 61 6e 6b 43 43 5f 25 28 5a 25 29 |(0),BankCC_%(Z%)|
00032250 29 3a ed 0d a3 a7 18 74 65 6d 70 6c 6f 6f 70 5f |):.....temploop_|
00032260 25 3d 6d 61 78 73 75 70 70 5f 25 0d a3 d4 05 f5 |%=maxsupp_%.....|
00032270 0d a3 d9 21 c8 99 20 26 34 30 30 43 37 2c 2c 62 |...!.. &400C7,,b|
00032280 6c 6f 63 6b 5f 25 20 b8 20 72 65 61 73 6f 6e 5f |lock_% . reason_|
00032290 25 0d a3 de 11 c8 8e 20 72 65 61 73 6f 6e 5f 25 |%...... reason_%|
000322a0 20 ca 0d a3 e3 22 c9 20 31 37 2c 31 38 3a f2 72 | ....". 17,18:.r|
000322b0 65 63 6d 65 73 73 5f 28 62 6c 6f 63 6b 5f 25 2c |ecmess_(block_%,|
000322c0 42 5f 25 29 0d a3 e8 1a c9 20 31 39 3a 74 65 6d |B_%)..... 19:tem|
000322d0 70 5f 25 3d 74 65 6d 70 6c 6f 6f 70 5f 25 0d a3 |p_%=temploop_%..|
000322e0 ed 05 cb 0d a3 f2 23 fd 20 74 65 6d 70 5f 25 3d |......#. temp_%=|
000322f0 74 65 6d 70 6c 6f 6f 70 5f 25 84 6e 6f 74 72 61 |temploop_%.notra|
00032300 6e 73 5f 25 3d 31 0d a3 f7 3d e7 72 65 61 73 6f |ns_%=1...=.reaso|
00032310 6e 5f 25 3d 31 39 8c f2 70 65 5f 28 22 44 61 74 |n_%=19..pe_("Dat|
00032320 61 20 74 72 61 6e 73 66 65 72 20 66 61 69 6c 65 |a transfer faile|
00032330 64 20 3a 20 52 65 63 65 69 76 65 72 20 64 69 65 |d : Receiver die|
00032340 64 22 29 0d a3 fc 08 f2 66 48 5f 0d a4 01 05 e1 |d").....fH_.....|
00032350 0d a4 06 04 0d a4 0b 15 dd f2 69 6e 69 74 64 73 |..........initds|
00032360 61 76 65 5f 28 42 5f 25 29 0d a4 10 49 e7 42 5f |ave_(B_%)...I.B_|
00032370 25 3d 31 8c 24 21 53 61 76 65 61 73 5f 25 3d a4 |%=1.$!Saveas_%=.|
00032380 61 73 61 76 65 32 5f 28 a4 63 6f 6e 66 6e 6d 5f |asave2_(.confnm_|
00032390 28 62 6c 6f 63 6b 5f 25 2b 34 34 29 2c 31 29 3a |(block_%+44),1):|
000323a0 53 61 76 65 61 5f 24 3d 24 21 53 61 76 65 61 73 |Savea_$=$!Saveas|
000323b0 5f 25 0d a4 15 4c e7 42 5f 25 3d 30 8c 24 21 53 |_%...L.B_%=0.$!S|
000323c0 61 76 65 61 73 42 5f 25 3d a4 61 73 61 76 65 32 |aveasB_%=.asave2|
000323d0 5f 28 a4 63 6f 6e 66 6e 6d 5f 28 62 6c 6f 63 6b |_(.confnm_(block|
000323e0 5f 25 2b 34 34 29 2c 30 29 3a 53 61 76 65 61 42 |_%+44),0):SaveaB|
000323f0 5f 24 3d 24 21 53 61 76 65 61 73 42 5f 25 0d a4 |_$=$!SaveasB_%..|
00032400 1a 4e e7 42 5f 25 3d 2d 31 8c 24 21 53 61 76 65 |.N.B_%=-1.$!Save|
00032410 61 73 4e 5f 25 3d a4 61 73 61 76 65 32 5f 28 a4 |asN_%=.asave2_(.|
00032420 63 6f 6e 66 6e 6d 5f 28 62 6c 6f 63 6b 5f 25 2b |confnm_(block_%+|
00032430 34 34 29 2c 2d 31 29 3a 53 61 76 65 61 4e 5f 24 |44),-1):SaveaN_$|
00032440 3d 24 21 53 61 76 65 61 73 4e 5f 25 0d a4 1f 2e |=$!SaveasN_%....|
00032450 e7 45 52 5f 25 3d 31 80 42 5f 25 3d 31 8c f2 72 |.ER_%=1.B_%=1..r|
00032460 49 28 57 25 2c 22 53 61 76 65 61 73 22 29 3a f2 |I(W%,"Saveas"):.|
00032470 73 65 74 43 5f 28 35 29 3a e1 0d a4 24 30 e7 45 |setC_(5):...$0.E|
00032480 52 5f 25 3d 31 80 42 5f 25 3d 30 8c f2 72 49 28 |R_%=1.B_%=0..rI(|
00032490 57 25 2c 22 53 61 76 65 61 73 42 22 29 3a f2 73 |W%,"SaveasB"):.s|
000324a0 65 74 43 5f 28 31 30 29 3a e1 0d a4 29 30 e7 45 |etC_(10):...)0.E|
000324b0 52 5f 25 3d 31 80 42 5f 25 3d 2d 31 8c f2 72 49 |R_%=1.B_%=-1..rI|
000324c0 28 57 25 2c 22 53 61 76 65 61 73 4e 22 29 3a f2 |(W%,"SaveasN"):.|
000324d0 73 65 74 43 5f 28 33 29 3a e1 0d a4 2e 5d 62 6c |setC_(3):....]bl|
000324e0 6f 63 6b 5f 25 21 31 32 3d 62 6c 6f 63 6b 5f 25 |ock_%!12=block_%|
000324f0 21 38 3a 62 6c 6f 63 6b 5f 25 21 31 36 3d 33 3a |!8:block_%!16=3:|
00032500 62 6c 6f 63 6b 5f 25 21 30 3d 32 35 36 3a c8 99 |block_%!0=256:..|
00032510 26 34 30 30 45 37 2c 31 38 2c 62 6c 6f 63 6b 5f |&400E7,18,block_|
00032520 25 2c 62 6c 6f 63 6b 5f 25 21 32 30 2c 62 6c 6f |%,block_%!20,blo|
00032530 63 6b 5f 25 21 32 34 0d a4 33 05 e1 0d a4 38 04 |ck_%!24..3....8.|
00032540 0d b5 d6 0c dd a4 56 63 61 6c 63 5f 0d b5 db 1b |......Vcalc_....|
00032550 ea 20 41 25 2c 42 25 2c 43 25 2c 45 25 2c 5a 25 |. A%,B%,C%,E%,Z%|
00032560 2c 41 5f 24 2c 46 25 0d b5 e0 0c c8 99 26 34 30 |,A_$,F%......&40|
00032570 36 43 30 0d b5 e5 51 56 61 74 56 5f 25 28 29 3d |6C0...QVatV_%()=|
00032580 30 3a 56 61 74 53 5f 25 28 29 3d 30 3a e3 41 25 |0:VatS_%()=0:.A%|
00032590 3d 30 b8 6d 61 78 53 5f 25 2a 73 69 74 69 70 5f |=0.maxS_%*sitip_|
000325a0 25 2d 31 3a c8 99 26 34 30 36 43 34 2c 41 25 2f |%-1:..&406C4,A%/|
000325b0 28 6d 61 78 53 5f 25 2a 73 69 74 69 70 5f 25 29 |(maxS_%*sitip_%)|
000325c0 2a 31 30 30 0d b5 ea 1e e7 53 49 54 65 5f 24 28 |*100.....SITe_$(|
000325d0 41 25 2a 73 69 74 69 66 5f 25 2b 31 29 3c 3e 22 |A%*sitif_%+1)<>"|
000325e0 22 8c 0d b5 ef 7f e7 56 61 74 43 5f 25 28 31 29 |"......VatC_%(1)|
000325f0 3d 31 80 a4 63 64 31 5f 28 53 49 54 65 5f 24 28 |=1..cd1_(SITe_$(|
00032600 41 25 2a 73 69 74 69 66 5f 25 2b 32 29 29 3e 3d |A%*sitif_%+2))>=|
00032610 a4 63 6f 64 61 74 65 5f 28 56 61 74 43 5f 24 28 |.codate_(VatC_$(|
00032620 34 29 29 80 a4 63 6f 64 61 74 65 31 5f 28 53 49 |4))..codate1_(SI|
00032630 54 65 5f 24 28 41 25 2a 73 69 74 69 66 5f 25 2b |Te_$(A%*sitif_%+|
00032640 32 29 29 3c 3d a4 63 64 5f 28 56 61 74 43 5f 24 |2))<=.cd_(VatC_$|
00032650 28 35 29 29 84 56 61 74 43 5f 25 28 32 29 3d 31 |(5)).VatC_%(2)=1|
00032660 8c 0d b5 f4 1e e7 53 49 54 65 5f 24 28 41 25 2a |......SITe_$(A%*|
00032670 73 69 74 69 66 5f 25 2b 37 29 3c 3e 22 22 8c 0d |sitif_%+7)<>""..|
00032680 b5 f9 91 e7 56 61 74 43 5f 25 28 32 29 3d 31 80 |....VatC_%(2)=1.|
00032690 a4 63 64 5f 28 53 49 54 65 5f 24 28 41 25 2a 73 |.cd_(SITe_$(A%*s|
000326a0 69 74 69 66 5f 25 2b 31 29 29 3e 3d a4 63 6f 64 |itif_%+1))>=.cod|
000326b0 61 74 65 5f 28 56 61 74 43 5f 24 28 34 29 29 80 |ate_(VatC_$(4)).|
000326c0 a4 63 6f 64 61 74 65 5f 28 53 49 54 65 5f 24 28 |.codate_(SITe_$(|
000326d0 41 25 2a 73 69 74 69 66 5f 25 2b 31 29 29 3c 3d |A%*sitif_%+1))<=|
000326e0 a4 63 64 5f 28 56 61 74 43 5f 24 28 35 29 29 80 |.cd_(VatC_$(5)).|
000326f0 c0 53 49 54 73 5f 24 28 41 25 29 2c 31 29 3c 3e |.SITs_$(A%),1)<>|
00032700 22 55 22 84 56 61 74 43 5f 25 28 31 29 3d 31 8c |"U".VatC_%(1)=1.|
00032710 0d b5 fe 0c e3 46 25 3d 30 b8 31 30 0d b6 03 b8 |.....F%=0.10....|
00032720 e7 56 61 74 54 5f 25 28 46 25 2a 34 29 3d 31 8c |.VatT_%(F%*4)=1.|
00032730 56 61 74 53 5f 25 28 46 25 29 3d a4 61 64 64 5f |VatS_%(F%)=.add_|
00032740 28 56 61 74 53 5f 25 28 46 25 29 2c a4 63 76 61 |(VatS_%(F%),.cva|
00032750 74 5f 28 a4 6e 69 5f 28 53 49 54 65 5f 24 28 41 |t_(.ni_(SITe_$(A|
00032760 25 2a 73 69 74 69 66 5f 25 2b 36 29 29 2c a4 6e |%*sitif_%+6)),.n|
00032770 69 5f 28 53 49 54 65 5f 24 28 41 25 2a 73 69 74 |i_(SITe_$(A%*sit|
00032780 69 66 5f 25 2b 38 29 29 2c a4 6e 69 5f 28 53 49 |if_%+8)),.ni_(SI|
00032790 54 65 5f 24 28 41 25 2a 73 69 74 69 66 5f 25 2b |Te_$(A%*sitif_%+|
000327a0 39 29 29 2c a4 63 61 70 73 5f 28 53 49 54 65 5f |9)),.caps_(SITe_|
000327b0 24 28 41 25 2a 73 69 74 69 66 5f 25 2b 37 29 29 |$(A%*sitif_%+7))|
000327c0 2c 56 61 74 52 5f 24 28 46 25 2a 34 2b 32 29 2c |,VatR_$(F%*4+2),|
000327d0 46 25 29 29 0d b6 08 05 ed 0d b6 0d 05 cd 0d b6 |F%))............|
000327e0 12 05 cd 0d b6 17 05 cd 0d b6 1c 05 cd 0d b6 21 |...............!|
000327f0 05 ed 0d b6 26 3b e3 41 25 3d 30 b8 6d 61 78 50 |....&;.A%=0.maxP|
00032800 5f 25 2a 73 69 74 69 70 5f 25 2d 31 3a c8 99 26 |_%*sitip_%-1:..&|
00032810 34 30 36 43 34 2c 41 25 2f 28 6d 61 78 50 5f 25 |406C4,A%/(maxP_%|
00032820 2a 73 69 74 69 70 5f 25 29 2a 31 30 30 0d b6 2b |*sitip_%)*100..+|
00032830 1e e7 50 49 54 65 5f 24 28 41 25 2a 73 69 74 69 |..PITe_$(A%*siti|
00032840 66 5f 25 2b 31 29 3c 3e 22 22 8c 0d b6 30 7f e7 |f_%+1)<>""...0..|
00032850 56 61 74 43 5f 25 28 31 29 3d 31 80 a4 63 64 31 |VatC_%(1)=1..cd1|
00032860 5f 28 50 49 54 65 5f 24 28 41 25 2a 73 69 74 69 |_(PITe_$(A%*siti|
00032870 66 5f 25 2b 32 29 29 3e 3d a4 63 6f 64 61 74 65 |f_%+2))>=.codate|
00032880 5f 28 56 61 74 43 5f 24 28 34 29 29 80 a4 63 6f |_(VatC_$(4))..co|
00032890 64 61 74 65 31 5f 28 50 49 54 65 5f 24 28 41 25 |date1_(PITe_$(A%|
000328a0 2a 73 69 74 69 66 5f 25 2b 32 29 29 3c 3d a4 63 |*sitif_%+2))<=.c|
000328b0 64 5f 28 56 61 74 43 5f 24 28 35 29 29 84 56 61 |d_(VatC_$(5)).Va|
000328c0 74 43 5f 25 28 32 29 3d 31 8c 0d b6 35 1e e7 50 |tC_%(2)=1...5..P|
000328d0 49 54 65 5f 24 28 41 25 2a 73 69 74 69 66 5f 25 |ITe_$(A%*sitif_%|
000328e0 2b 37 29 3c 3e 22 22 8c 0d b6 3a 91 e7 56 61 74 |+7)<>""...:..Vat|
000328f0 43 5f 25 28 32 29 3d 31 80 a4 63 64 5f 28 50 49 |C_%(2)=1..cd_(PI|
00032900 54 65 5f 24 28 41 25 2a 73 69 74 69 66 5f 25 2b |Te_$(A%*sitif_%+|
00032910 31 29 29 3e 3d a4 63 6f 64 61 74 65 5f 28 56 61 |1))>=.codate_(Va|
00032920 74 43 5f 24 28 34 29 29 80 a4 63 6f 64 61 74 65 |tC_$(4))..codate|
00032930 5f 28 50 49 54 65 5f 24 28 41 25 2a 73 69 74 69 |_(PITe_$(A%*siti|
00032940 66 5f 25 2b 31 29 29 3c 3d a4 63 64 5f 28 56 61 |f_%+1))<=.cd_(Va|
00032950 74 43 5f 24 28 35 29 29 80 c0 50 49 54 73 5f 24 |tC_$(5))..PITs_$|
00032960 28 41 25 29 2c 31 29 3c 3e 22 55 22 84 56 61 74 |(A%),1)<>"U".Vat|
00032970 43 5f 25 28 31 29 3d 31 8c 0d b6 3f 0c e3 46 25 |C_%(1)=1...?..F%|
00032980 3d 30 b8 31 30 0d b6 44 ba e7 56 61 74 54 5f 25 |=0.10..D..VatT_%|
00032990 28 46 25 2a 34 2b 31 29 3d 31 8c 56 61 74 56 5f |(F%*4+1)=1.VatV_|
000329a0 25 28 46 25 29 3d a4 61 64 64 5f 28 56 61 74 56 |%(F%)=.add_(VatV|
000329b0 5f 25 28 46 25 29 2c a4 63 76 61 74 5f 28 a4 6e |_%(F%),.cvat_(.n|
000329c0 69 5f 28 50 49 54 65 5f 24 28 41 25 2a 73 69 74 |i_(PITe_$(A%*sit|
000329d0 69 66 5f 25 2b 36 29 29 2c a4 6e 69 5f 28 50 49 |if_%+6)),.ni_(PI|
000329e0 54 65 5f 24 28 41 25 2a 73 69 74 69 66 5f 25 2b |Te_$(A%*sitif_%+|
000329f0 38 29 29 2c a4 6e 69 5f 28 50 49 54 65 5f 24 28 |8)),.ni_(PITe_$(|
00032a00 41 25 2a 73 69 74 69 66 5f 25 2b 39 29 29 2c a4 |A%*sitif_%+9)),.|
00032a10 63 61 70 73 5f 28 50 49 54 65 5f 24 28 41 25 2a |caps_(PITe_$(A%*|
00032a20 73 69 74 69 66 5f 25 2b 37 29 29 2c 56 61 74 52 |sitif_%+7)),VatR|
00032a30 5f 24 28 46 25 2a 34 2b 32 29 2c 46 25 29 29 0d |_$(F%*4+2),F%)).|
00032a40 b6 49 05 ed 0d b6 4e 05 cd 0d b6 53 05 cd 0d b6 |.I....N....S....|
00032a50 58 05 cd 0d b6 5d 05 cd 0d b6 62 05 ed 0d b6 67 |X....]....b....g|
00032a60 0c f2 76 74 63 61 6c 63 5f 0d b6 6c 0c c8 99 26 |..vtcalc_..l...&|
00032a70 34 30 36 43 31 0d b6 71 06 3d b9 0d b6 76 04 0d |406C1..q.=...v..|
00032a80 b6 7b 0d dd f2 76 74 63 61 6c 63 5f 0d b6 80 08 |.{...vtcalc_....|
00032a90 ea 20 46 25 0d b6 85 0c e3 46 25 3d 30 b8 31 30 |. F%.....F%=0.10|
00032aa0 0d b6 8a 26 e7 56 61 74 52 5f 24 28 46 25 2a 34 |...&.VatR_$(F%*4|
00032ab0 29 3d 22 22 8c 56 61 74 52 5f 24 28 46 25 2a 34 |)="".VatR_$(F%*4|
00032ac0 2b 33 29 3d 22 22 0d b6 8f 37 e7 56 61 74 54 5f |+3)=""...7.VatT_|
00032ad0 25 28 46 25 2a 34 29 3d 31 8c 56 61 74 52 5f 24 |%(F%*4)=1.VatR_$|
00032ae0 28 46 25 2a 34 2b 33 29 3d a4 74 63 5f 28 56 61 |(F%*4+3)=.tc_(Va|
00032af0 74 53 5f 25 28 46 25 29 2c 22 30 22 29 0d b6 94 |tS_%(F%),"0")...|
00032b00 39 e7 56 61 74 54 5f 25 28 46 25 2a 34 2b 31 29 |9.VatT_%(F%*4+1)|
00032b10 3d 31 8c 56 61 74 52 5f 24 28 46 25 2a 34 2b 33 |=1.VatR_$(F%*4+3|
00032b20 29 3d a4 74 63 5f 28 56 61 74 56 5f 25 28 46 25 |)=.tc_(VatV_%(F%|
00032b30 29 2c 22 30 22 29 0d b6 99 23 56 61 74 56 5f 25 |),"0")...#VatV_%|
00032b40 28 46 25 29 3d a4 6e 69 5f 28 56 61 74 52 5f 24 |(F%)=.ni_(VatR_$|
00032b50 28 46 25 2a 34 2b 33 29 29 0d b6 9e 2d 5a 25 3d |(F%*4+3))...-Z%=|
00032b60 a4 70 49 49 28 76 61 74 70 25 21 31 32 2c 46 25 |.pII(vatp%!12,F%|
00032b70 2a 34 2b 34 2c 56 61 74 52 5f 24 28 46 25 2a 34 |*4+4,VatR_$(F%*4|
00032b80 2b 33 29 29 3a ed 0d b6 a3 91 e3 46 25 3d 30 b8 |+3)):......F%=0.|
00032b90 31 30 3a e7 56 61 74 52 5f 24 28 46 25 2a 34 2b |10:.VatR_$(F%*4+|
00032ba0 31 29 3c 3e 22 22 8c 56 61 74 52 5f 24 28 46 25 |1)<>"".VatR_$(F%|
00032bb0 2a 34 2b 33 29 3d a4 63 61 6c 63 76 61 74 5f 28 |*4+3)=.calcvat_(|
00032bc0 56 61 74 52 5f 24 28 46 25 2a 34 2b 31 29 29 3a |VatR_$(F%*4+1)):|
00032bd0 5a 25 3d a4 70 49 49 28 76 61 74 70 25 21 31 32 |Z%=.pII(vatp%!12|
00032be0 2c 46 25 2a 34 2b 34 2c 56 61 74 52 5f 24 28 46 |,F%*4+4,VatR_$(F|
00032bf0 25 2a 34 2b 33 29 29 3a 56 61 74 56 5f 25 28 46 |%*4+3)):VatV_%(F|
00032c00 25 29 3d a4 6e 69 5f 28 56 61 74 52 5f 24 28 46 |%)=.ni_(VatR_$(F|
00032c10 25 2a 34 2b 33 29 29 0d b6 a8 05 ed 0d b6 ad 05 |%*4+3)).........|
00032c20 e1 0d b6 b2 04 0d b6 b7 24 dd a4 63 76 61 74 5f |........$..cvat_|
00032c30 28 61 5f 25 2c 62 5f 25 2c 63 5f 25 2c 61 5f 24 |(a_%,b_%,c_%,a_$|
00032c40 2c 62 5f 24 2c 64 5f 25 29 0d b6 bc 08 ea 20 5a |,b_$,d_%)..... Z|
00032c50 25 0d b6 c1 17 e7 a7 a4 63 61 70 73 5f 28 62 5f |%.......caps_(b_|
00032c60 24 29 2c 61 5f 24 29 8c 0d b6 c6 3b e7 56 61 74 |$),a_$)....;.Vat|
00032c70 43 5f 25 28 31 29 3d 31 80 56 61 74 54 5f 25 28 |C_%(1)=1.VatT_%(|
00032c80 64 5f 25 2a 34 2b 32 29 3d 31 80 56 61 74 54 5f |d_%*4+2)=1.VatT_|
00032c90 25 28 64 5f 25 2a 34 2b 33 29 3d 31 8c 5a 25 3d |%(d_%*4+3)=1.Z%=|
00032ca0 61 5f 25 0d b6 cb 40 e7 56 61 74 43 5f 25 28 31 |a_%...@.VatC_%(1|
00032cb0 29 3d 31 80 56 61 74 54 5f 25 28 64 5f 25 2a 34 |)=1.VatT_%(d_%*4|
00032cc0 2b 32 29 3d 31 80 56 61 74 54 5f 25 28 64 5f 25 |+2)=1.VatT_%(d_%|
00032cd0 2a 34 2b 33 29 3d 2d 31 8c 5a 25 3d 61 5f 25 2d |*4+3)=-1.Z%=a_%-|
00032ce0 62 5f 25 0d b6 d0 3c e7 56 61 74 43 5f 25 28 31 |b_%...<.VatC_%(1|
00032cf0 29 3d 31 80 56 61 74 54 5f 25 28 64 5f 25 2a 34 |)=1.VatT_%(d_%*4|
00032d00 2b 32 29 3d 2d 31 80 56 61 74 54 5f 25 28 64 5f |+2)=-1.VatT_%(d_|
00032d10 25 2a 34 2b 33 29 3d 31 8c 5a 25 3d 62 5f 25 0d |%*4+3)=1.Z%=b_%.|
00032d20 b6 d5 3b e7 56 61 74 43 5f 25 28 32 29 3d 31 80 |..;.VatC_%(2)=1.|
00032d30 56 61 74 54 5f 25 28 64 5f 25 2a 34 2b 32 29 3d |VatT_%(d_%*4+2)=|
00032d40 31 80 56 61 74 54 5f 25 28 64 5f 25 2a 34 2b 33 |1.VatT_%(d_%*4+3|
00032d50 29 3d 31 8c 5a 25 3d 63 5f 25 0d b6 da 40 e7 56 |)=1.Z%=c_%...@.V|
00032d60 61 74 43 5f 25 28 32 29 3d 31 80 56 61 74 54 5f |atC_%(2)=1.VatT_|
00032d70 25 28 64 5f 25 2a 34 2b 32 29 3d 31 80 56 61 74 |%(d_%*4+2)=1.Vat|
00032d80 54 5f 25 28 64 5f 25 2a 34 2b 33 29 3d 2d 31 8c |T_%(d_%*4+3)=-1.|
00032d90 5a 25 3d 63 5f 25 2d 62 5f 25 0d b6 df 3c e7 56 |Z%=c_%-b_%...<.V|
00032da0 61 74 43 5f 25 28 32 29 3d 31 80 56 61 74 54 5f |atC_%(2)=1.VatT_|
00032db0 25 28 64 5f 25 2a 34 2b 32 29 3d 2d 31 80 56 61 |%(d_%*4+2)=-1.Va|
00032dc0 74 54 5f 25 28 64 5f 25 2a 34 2b 33 29 3d 31 8c |tT_%(d_%*4+3)=1.|
00032dd0 5a 25 3d 62 5f 25 0d b6 e4 05 cd 0d b6 e9 07 3d |Z%=b_%.........=|
00032de0 5a 25 0d b6 ee 04 0d b8 60 13 dd a4 63 61 6c 63 |Z%......`...calc|
00032df0 76 61 74 5f 28 41 5f 24 29 0d b8 65 1d ea 20 5a |vat_(A_$)..e.. Z|
00032e00 2c 41 2c 42 2c 43 2c 44 2c 45 2c 46 2c 47 2c 48 |,A,B,C,D,E,F,G,H|
00032e10 2c 49 2c 4a 2c 4b 0d b8 6a 07 ea 20 85 0d b8 6f |,I,J,K..j.. ...o|
00032e20 b6 ee 20 85 20 ea 3a f7 20 85 3a f2 70 65 5f 28 |.. . .:. .:.pe_(|
00032e30 22 41 20 27 53 75 6d 27 20 66 69 65 6c 64 20 69 |"A 'Sum' field i|
00032e40 6e 20 74 68 65 20 22 2b 56 41 54 5f 24 2b 22 20 |n the "+VAT_$+" |
00032e50 52 65 74 75 72 6e 20 63 61 6e 6e 6f 74 20 62 65 |Return cannot be|
00032e60 20 63 61 6c 63 75 6c 61 74 65 64 2e 20 50 6c 65 | calculated. Ple|
00032e70 61 73 65 20 63 68 65 63 6b 20 74 68 65 20 6c 69 |ase check the li|
00032e80 6e 65 28 73 29 20 6d 61 72 6b 65 64 20 27 45 72 |ne(s) marked 'Er|
00032e90 72 6f 72 27 2e 20 28 46 6f 72 6d 75 6c 61 73 20 |ror'. (Formulas |
00032ea0 73 68 6f 75 6c 64 20 62 65 20 6d 61 64 65 20 75 |should be made u|
00032eb0 70 20 61 73 20 66 6f 6c 6c 6f 77 73 20 41 2b 42 |p as follows A+B|
00032ec0 2f 39 20 65 74 63 2e 29 22 29 3a 3d 22 45 72 72 |/9 etc.)"):="Err|
00032ed0 6f 72 22 0d b8 74 c4 41 5f 24 3d a4 63 61 70 73 |or"..t.A_$=.caps|
00032ee0 5f 28 41 5f 24 29 3a 41 3d 56 61 74 56 5f 25 28 |_(A_$):A=VatV_%(|
00032ef0 30 29 2f 31 30 30 3a 42 3d 56 61 74 56 5f 25 28 |0)/100:B=VatV_%(|
00032f00 31 29 2f 31 30 30 3a 43 3d 56 61 74 56 5f 25 28 |1)/100:C=VatV_%(|
00032f10 32 29 2f 31 30 30 3a 44 3d 56 61 74 56 5f 25 28 |2)/100:D=VatV_%(|
00032f20 33 29 2f 31 30 30 3a 45 3d 56 61 74 56 5f 25 28 |3)/100:E=VatV_%(|
00032f30 34 29 2f 31 30 30 3a 46 3d 56 61 74 56 5f 25 28 |4)/100:F=VatV_%(|
00032f40 35 29 2f 31 30 30 3a 47 3d 56 61 74 56 5f 25 28 |5)/100:G=VatV_%(|
00032f50 36 29 2f 31 30 30 3a 48 3d 56 61 74 56 5f 25 28 |6)/100:H=VatV_%(|
00032f60 37 29 2f 31 30 30 3a 49 3d 56 61 74 56 5f 25 28 |7)/100:I=VatV_%(|
00032f70 38 29 2f 31 30 30 3a 4a 3d 56 61 74 56 5f 25 28 |8)/100:J=VatV_%(|
00032f80 39 29 2f 31 30 30 3a 4b 3d 56 61 74 56 5f 25 28 |9)/100:K=VatV_%(|
00032f90 31 30 29 2f 31 30 30 0d b8 79 10 5a 3d a0 28 41 |10)/100..y.Z=.(A|
00032fa0 5f 24 29 2a 31 30 30 0d b8 7e 14 3d a4 63 6f 6e |_$)*100..~.=.con|
00032fb0 76 69 73 5f 28 5a 2c 22 30 22 29 0d b8 83 04 0d |vis_(Z,"0").....|
00032fc0 ba 04 0e dd f2 61 63 6b 6c 6f 61 64 5f 0d ba 09 |.....ackload_...|
00032fd0 0d e7 52 25 3c 3e 31 38 8c e1 0d ba 0e 18 62 6c |..R%<>18......bl|
00032fe0 6f 63 6b 5f 25 21 31 32 3d 62 6c 6f 63 6b 5f 25 |ock_%!12=block_%|
00032ff0 21 38 0d ba 13 10 62 6c 6f 63 6b 5f 25 21 31 36 |!8....block_%!16|
00033000 3d 34 0d ba 18 2d c8 99 26 34 30 30 45 37 2c 31 |=4...-..&400E7,1|
00033010 37 2c 62 6c 6f 63 6b 5f 25 2c 62 6c 6f 63 6b 5f |7,block_%,block_|
00033020 25 21 32 30 2c 62 6c 6f 63 6b 5f 25 21 32 34 0d |%!20,block_%!24.|
00033030 ba 1d 05 e1 0d ba 22 04 0d ba 27 15 dd a4 67 65 |......"...'...ge|
00033040 74 66 6e 6d 5f 28 61 6e 61 6d 65 24 29 0d ba 2c |tfnm_(aname$)..,|
00033050 13 c8 95 20 a7 61 6e 61 6d 65 24 2c 22 2e 22 29 |... .aname$,".")|
00033060 0d ba 31 22 61 6e 61 6d 65 24 3d c1 61 6e 61 6d |..1"aname$=.anam|
00033070 65 24 2c a7 61 6e 61 6d 65 24 2c 22 2e 22 29 2b |e$,.aname$,".")+|
00033080 31 29 0d ba 36 05 ce 0d ba 3b 10 3d 61 6e 61 6d |1)..6....;.=anam|
00033090 65 24 2b bd 28 30 29 0d ba 40 04 0d ba 45 12 dd |e$+.(0)..@...E..|
000330a0 a4 63 6f 6e 66 6e 6d 5f 28 41 5f 25 29 0d ba 4a |.confnm_(A_%)..J|
000330b0 18 ea 20 61 5f 25 2c 62 5f 25 2c 74 6e 61 6d 65 |.. a_%,b_%,tname|
000330c0 5f 24 2c 5a 25 0d ba 4f 07 ea 20 85 0d ba 54 22 |_$,Z%..O.. ...T"|
000330d0 ee 20 85 20 ea 3a f7 20 85 3a f2 70 65 5f 28 a4 |. . .:. .:.pe_(.|
000330e0 65 72 72 5f 29 3a 3d 74 6e 61 6d 65 5f 24 0d ba |err_):=tname_$..|
000330f0 59 20 74 6e 61 6d 65 5f 24 3d 22 22 3a 61 5f 25 |Y tname_$="":a_%|
00033100 3d 30 3a 62 5f 25 3d 41 5f 25 3f 61 5f 25 0d ba |=0:b_%=A_%?a_%..|
00033110 5e 0d c8 95 20 62 5f 25 3c 3e 30 0d ba 63 13 74 |^... b_%<>0..c.t|
00033120 6e 61 6d 65 5f 24 2b 3d bd 28 62 5f 25 29 0d ba |name_$+=.(b_%)..|
00033130 68 0a 61 5f 25 2b 3d 31 0d ba 6d 0f 62 5f 25 3d |h.a_%+=1..m.b_%=|
00033140 41 5f 25 3f 61 5f 25 0d ba 72 05 ce 0d ba 77 0c |A_%?a_%..r....w.|
00033150 3d 74 6e 61 6d 65 5f 24 0d ba 7c 87 dd a4 63 6f |=tname_$..|...co|
00033160 6e 69 6e 6d 5f 28 41 5f 25 2c 42 5f 25 29 3a ea |ninm_(A_%,B_%):.|
00033170 20 61 5f 25 2c 62 5f 25 2c 74 6e 61 6d 65 5f 24 | a_%,b_%,tname_$|
00033180 3a 74 6e 61 6d 65 5f 24 3d 22 22 3a 61 5f 25 3d |:tname_$="":a_%=|
00033190 30 3a 62 5f 25 3d 41 5f 25 3f 61 5f 25 3a c8 95 |0:b_%=A_%?a_%:..|
000331a0 20 62 5f 25 3e 33 31 80 42 5f 25 2b 31 3e 61 5f | b_%>31.B_%+1>a_|
000331b0 25 3a 74 6e 61 6d 65 5f 24 2b 3d bd 28 62 5f 25 |%:tname_$+=.(b_%|
000331c0 29 3a 61 5f 25 2b 3d 31 3a 62 5f 25 3d 41 5f 25 |):a_%+=1:b_%=A_%|
000331d0 3f 61 5f 25 3a ce 3a 3d 74 6e 61 6d 65 5f 24 0d |?a_%:.:=tname_$.|
000331e0 ba 81 04 0d ba 86 1b dd f2 72 65 63 6d 65 73 73 |.........recmess|
000331f0 5f 28 62 6c 6f 63 6b 5f 25 2c 42 5f 25 29 0d ba |_(block_%,B_%)..|
00033200 8b 0c 4f 65 72 72 5f 25 3d 30 0d ba 90 07 ea 20 |..Oerr_%=0..... |
00033210 85 0d ba 95 2d ee 20 85 20 ea 3a f7 20 85 3a 74 |....-. . .:. .:t|
00033220 65 6d 70 5f 25 3d 74 65 6d 70 6c 6f 6f 70 5f 25 |emp_%=temploop_%|
00033230 3a f2 70 65 5f 28 a4 65 72 72 5f 29 3a e1 0d ba |:.pe_(.err_):...|
00033240 9a 15 c8 8e 20 28 62 6c 6f 63 6b 5f 25 21 31 36 |.... (block_%!16|
00033250 29 20 ca 0d ba 9f 3b c9 20 32 3a e7 62 6c 6f 63 |) ....;. 2:.bloc|
00033260 6b 5f 25 21 34 30 3d 26 43 38 38 8c 74 65 6d 70 |k_%!40=&C88.temp|
00033270 5f 25 3d 74 65 6d 70 6c 6f 6f 70 5f 25 3a f2 69 |_%=temploop_%:.i|
00033280 6e 69 74 64 73 61 76 65 5f 28 42 5f 25 29 0d ba |nitdsave_(B_%)..|
00033290 a4 1d c9 20 33 3a f2 64 61 74 61 6c 6f 61 64 5f |... 3:.dataload_|
000332a0 28 62 6c 6f 63 6b 5f 25 2c 30 29 0d ba a9 1d c9 |(block_%,0).....|
000332b0 20 35 3a f2 64 61 74 61 6c 6f 61 64 5f 28 62 6c | 5:.dataload_(bl|
000332c0 6f 63 6b 5f 25 2c 30 29 0d ba b3 05 cb 0d ba b8 |ock_%,0)........|
000332d0 05 e1 0d ba bd 04 0d ba c2 1c dd f2 64 61 74 61 |............data|
000332e0 6c 6f 61 64 5f 28 62 6c 6f 63 6b 5f 25 2c 41 5f |load_(block_%,A_|
000332f0 25 29 0d ba c7 71 e7 62 6c 6f 63 6b 5f 25 21 34 |%)...q.block_%!4|
00033300 30 3d 26 43 38 37 3a 74 65 6d 70 5f 25 3d 74 65 |0=&C87:temp_%=te|
00033310 6d 70 6c 6f 6f 70 5f 25 3a f2 61 63 6b 6c 6f 61 |mploop_%:.ackloa|
00033320 64 5f 3a 69 6e 76 5f 24 3d a4 63 6f 6e 66 6e 6d |d_:inv_$=.confnm|
00033330 5f 28 62 6c 6f 63 6b 5f 25 2b 34 34 29 3a f2 70 |_(block_%+44):.p|
00033340 65 5f 28 22 49 6e 76 6f 69 63 65 20 66 69 6c 65 |e_("Invoice file|
00033350 20 61 63 63 65 70 74 65 64 20 2d 22 2b 69 6e 76 | accepted -"+inv|
00033360 5f 24 29 0d ba cc 51 e7 62 6c 6f 63 6b 5f 25 21 |_$)...Q.block_%!|
00033370 34 30 3d 26 43 38 38 3a 74 65 6d 70 5f 25 3d 74 |40=&C88:temp_%=t|
00033380 65 6d 70 6c 6f 6f 70 5f 25 3a f2 61 63 6b 6c 6f |emploop_%:.acklo|
00033390 61 64 5f 3a f2 6c 6f 61 64 5f 28 a4 63 6f 6e 66 |ad_:.load_(.conf|
000333a0 6e 6d 5f 28 62 6c 6f 63 6b 5f 25 2b 34 34 29 2c |nm_(block_%+44),|
000333b0 41 5f 25 29 0d ba d1 05 e1 0d ba d6 04 0d bb 49 |A_%)...........I|
000333c0 1a dd a4 61 73 61 76 65 32 5f 28 74 6e 61 6d 65 |...asave2_(tname|
000333d0 5f 24 2c 61 5f 25 29 0d bb 4e 0a 45 52 5f 25 3d |_$,a_%)..N.ER_%=|
000333e0 30 0d bb 53 2f ea 20 41 25 2c 42 25 2c 43 25 2c |0..S/. A%,B%,C%,|
000333f0 5a 25 2c 46 25 2c 4c 24 2c 41 24 2c 42 24 2c 41 |Z%,F%,L$,A$,B$,A|
00033400 5f 25 2c 42 5f 25 3a 62 6c 31 5f 25 28 29 3d 30 |_%,B_%:bl1_%()=0|
00033410 0d bb 58 3e e7 61 5f 25 3d 30 8c 42 24 3d 53 61 |..X>.a_%=0.B$=Sa|
00033420 76 65 61 42 5f 24 20 8b e7 61 5f 25 3d 31 8c 42 |veaB_$ ..a_%=1.B|
00033430 24 3d 53 61 76 65 61 5f 24 20 8b e7 61 5f 25 3d |$=Savea_$ ..a_%=|
00033440 2d 31 8c 42 24 3d 53 61 76 65 61 4e 5f 24 0d bb |-1.B$=SaveaN_$..|
00033450 5d 07 ea 20 85 0d bb 62 54 ee 20 85 20 ea 3a f7 |].. ...bT. . .:.|
00033460 20 85 3a c8 99 26 34 30 36 43 31 3a 5a 25 3d a4 | .:..&406C1:Z%=.|
00033470 77 69 6e 64 6f 77 28 22 53 73 61 76 65 22 29 3a |window("Ssave"):|
00033480 f2 70 65 31 5f 28 61 75 74 6f 5f 24 2b 61 75 74 |.pe1_(auto_$+aut|
00033490 6f 45 5f 24 2b a4 65 72 72 5f 2c 46 25 29 3a 45 |oE_$+.err_,F%):E|
000334a0 52 5f 25 3d 31 3a 3d 42 24 0d bb 67 08 46 25 3d |R_%=1:=B$..g.F%=|
000334b0 30 0d bb 6c 1e 4c 24 3d a4 67 4c 6e 28 74 6e 61 |0..l.L$=.gLn(tna|
000334c0 6d 65 5f 24 29 3a 41 24 3d c0 4c 24 2c 31 29 0d |me_$):A$=.L$,1).|
000334d0 bb 71 75 e7 41 24 3d 22 21 22 84 41 24 3d 22 24 |.qu.A$="!".A$="$|
000334e0 22 84 41 24 3d 22 25 22 8c f2 70 65 5f 28 61 75 |".A$="%"..pe_(au|
000334f0 74 6f 5f 24 2b 61 75 74 6f 45 5f 24 2b 22 20 59 |to_$+autoE_$+" Y|
00033500 6f 75 20 63 61 6e 6e 6f 74 20 73 74 61 72 74 20 |ou cannot start |
00033510 74 68 65 20 66 69 6c 65 20 6e 61 6d 65 20 77 69 |the file name wi|
00033520 74 68 20 61 20 27 22 2b 41 24 2b 22 27 20 63 68 |th a '"+A$+"' ch|
00033530 61 72 61 63 74 65 72 22 29 3a 45 52 5f 25 3d 31 |aracter"):ER_%=1|
00033540 3a 3d 42 24 0d bb 76 50 e7 a9 28 4c 24 29 3d 30 |:=B$..vP..(L$)=0|
00033550 8c f2 70 65 5f 28 61 75 74 6f 5f 24 2b 61 75 74 |..pe_(auto_$+aut|
00033560 6f 45 5f 24 2b 22 20 59 6f 75 20 6d 75 73 74 20 |oE_$+" You must |
00033570 65 6e 74 65 72 20 61 20 76 61 6c 69 64 20 66 69 |enter a valid fi|
00033580 6c 65 20 6e 61 6d 65 22 29 3a 45 52 5f 25 3d 31 |le name"):ER_%=1|
00033590 3a 3d 42 24 0d bb 7b 61 e7 a7 4c 24 2c 22 3c 22 |:=B$..{a..L$,"<"|
000335a0 29 8c f2 70 65 5f 28 61 75 74 6f 5f 24 2b 61 75 |)..pe_(auto_$+au|
000335b0 74 6f 45 5f 24 2b 22 20 54 68 69 73 20 66 69 6c |toE_$+" This fil|
000335c0 65 20 63 61 6e 6e 6f 74 20 62 65 20 73 61 76 65 |e cannot be save|
000335d0 64 20 74 6f 20 61 6e 6f 74 68 65 72 20 61 70 70 |d to another app|
000335e0 6c 69 63 61 74 69 6f 6e 22 29 3a 45 52 5f 25 3d |lication"):ER_%=|
000335f0 31 3a 3d 42 24 0d bb 80 64 e7 a7 74 6e 61 6d 65 |1:=B$...d..tname|
00033600 5f 24 2c 22 2e 22 29 3d 30 8c f2 70 65 5f 28 61 |_$,".")=0..pe_(a|
00033610 75 74 6f 5f 24 2b 61 75 74 6f 45 5f 24 2b 22 20 |uto_$+autoE_$+" |
00033620 54 6f 20 73 61 76 65 2c 20 64 72 61 67 20 74 68 |To save, drag th|
00033630 65 20 69 63 6f 6e 20 74 6f 20 61 20 64 69 72 65 |e icon to a dire|
00033640 63 74 6f 72 79 20 76 69 65 77 65 72 22 29 3a 45 |ctory viewer"):E|
00033650 52 5f 25 3d 31 3a 3d 42 24 0d bb 85 5a e7 a9 28 |R_%=1:=B$...Z..(|
00033660 4c 24 29 3e 31 30 8c f2 70 65 5f 28 61 75 74 6f |L$)>10..pe_(auto|
00033670 5f 24 2b 61 75 74 6f 45 5f 24 2b 22 20 46 69 6c |_$+autoE_$+" Fil|
00033680 65 20 6e 61 6d 65 20 74 6f 6f 20 6c 6f 6e 67 2c |e name too long,|
00033690 20 6d 61 78 69 6d 75 6d 20 31 30 20 63 68 61 72 | maximum 10 char|
000336a0 61 63 74 65 72 73 22 29 3a 45 52 5f 25 3d 31 3a |acters"):ER_%=1:|
000336b0 3d 42 24 0d bb 8a 0c c8 99 26 34 30 36 43 30 0d |=B$......&406C0.|
000336c0 bb 8f 14 41 25 3d a4 63 68 65 63 6b 6d 61 78 73 |...A%=.checkmaxs|
000336d0 74 31 5f 0d bb 94 14 42 25 3d a4 63 68 65 63 6b |t1_....B%=.check|
000336e0 6d 61 78 73 75 31 5f 0d bb 99 15 43 25 3d a4 43 |maxsu1_....C%=.C|
000336f0 63 68 65 63 6b 6d 61 78 73 75 31 5f 0d bb 9e 1d |checkmaxsu1_....|
00033700 4e 65 77 50 72 65 66 5f 25 28 30 29 3d a4 63 68 |NewPref_%(0)=.ch|
00033710 65 63 6b 6d 61 78 53 31 5f 0d bb a3 1d 4e 65 77 |eckmaxS1_....New|
00033720 50 72 65 66 5f 25 28 31 29 3d a4 63 68 65 63 6b |Pref_%(1)=.check|
00033730 6d 61 78 50 31 5f 0d bb a8 1d 4e 65 77 50 72 65 |maxP1_....NewPre|
00033740 66 5f 25 28 32 29 3d a4 63 68 65 63 6b 6d 61 78 |f_%(2)=.checkmax|
00033750 42 31 5f 0d bb ad 14 4e 65 77 50 72 65 66 5f 25 |B1_....NewPref_%|
00033760 28 33 29 3d 76 5f 25 0d bb b2 18 4e 65 77 50 72 |(3)=v_%....NewPr|
00033770 65 66 5f 25 28 34 29 3d 53 4c 64 65 62 5f 25 0d |ef_%(4)=SLdeb_%.|
00033780 bb b7 19 4e 65 77 50 72 65 66 5f 25 28 35 29 3d |...NewPref_%(5)=|
00033790 43 53 4c 64 65 62 5f 25 0d bb bc 18 4e 65 77 50 |CSLdeb_%....NewP|
000337a0 72 65 66 5f 25 28 36 29 3d 70 72 65 66 73 5f 25 |ref_%(6)=prefs_%|
000337b0 0d bb c1 19 4e 65 77 50 72 65 66 5f 25 28 38 29 |....NewPref_%(8)|
000337c0 3d 70 72 65 66 6f 73 5f 25 0d bb c6 15 4e 65 77 |=prefos_%....New|
000337d0 50 72 65 66 5f 25 28 39 29 3d 50 6c 5f 25 0d bb |Pref_%(9)=Pl_%..|
000337e0 cb 2b e7 61 5f 25 3d 2d 31 8c 4e 65 77 50 72 65 |.+.a_%=-1.NewPre|
000337f0 66 5f 25 28 37 29 3d 2d 31 20 8b 4e 65 77 50 72 |f_%(7)=-1 .NewPr|
00033800 65 66 5f 25 28 37 29 3d 30 0d bb d0 43 f4 20 2a |ef_%(7)=0...C. *|
00033810 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 4e 65 77 20 50 72 |********* New Pr|
00033820 65 66 27 73 20 75 73 65 64 3d 30 2c 31 2c 32 2c |ef's used=0,1,2,|
00033830 33 2c 34 2c 35 2c 36 2c 37 2c 38 2c 39 20 2a 2a |3,4,5,6,7,8,9 **|
00033840 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d bb d5 11 |************....|
00033850 46 25 3d ae 28 74 6e 61 6d 65 5f 24 29 0d bb da |F%=.(tname_$)...|
00033860 45 f1 23 46 25 2c 41 25 2c 42 25 2c 43 25 2c 4f |E.#F%,A%,B%,C%,O|
00033870 6d 61 78 73 74 5f 25 2c 4f 6d 61 78 73 75 5f 25 |maxst_%,Omaxsu_%|
00033880 2c 43 4f 6d 61 78 73 75 5f 25 2c 4f 6d 61 78 53 |,COmaxsu_%,OmaxS|
00033890 5f 25 2c 4f 6d 61 78 50 5f 25 2c 4f 6d 61 78 42 |_%,OmaxP_%,OmaxB|
000338a0 5f 25 0d bb df 20 e3 5a 25 3d 30 b8 39 3a f1 23 |_%... .Z%=0.9:.#|
000338b0 46 25 2c 4e 65 77 50 72 65 66 5f 25 28 5a 25 29 |F%,NewPref_%(Z%)|
000338c0 3a ed 0d bb e4 1f e3 5a 25 3d 30 b8 32 33 3a f1 |:......Z%=0.23:.|
000338d0 23 46 25 2c 49 6e 64 65 78 5f 24 28 5a 25 29 3a |#F%,Index_$(Z%):|
000338e0 ed 0d bb e9 1e e3 5a 25 3d 30 b8 34 37 3a f1 23 |......Z%=0.47:.#|
000338f0 46 25 2c 42 65 73 74 5f 24 28 5a 25 29 3a ed 0d |F%,Best_$(Z%):..|
00033900 bb ee 19 e3 5a 25 3d 30 b8 33 39 39 36 88 34 3a |....Z%=0.3996.4:|
00033910 f1 23 46 25 2c 30 3a ed 0d bb f3 25 e3 5a 25 3d |.#F%,0:....%.Z%=|
00033920 30 b8 33 39 39 36 88 34 3a f1 23 46 25 2c 28 4f |0.3996.4:.#F%,(O|
00033930 72 64 65 72 43 5f 25 21 5a 25 29 3a ed 0d bb f5 |rderC_%!Z%):....|
00033940 17 f1 23 46 25 2c 2d 31 3a f4 20 4f 6a 75 73 74 |..#F%,-1:. Ojust|
00033950 20 65 74 63 0d bb fd 7c e3 5a 25 3d 30 b8 49 4f | etc...|.Z%=0.IO|
00033960 69 63 6f 6e 73 25 3a f1 23 46 25 2c 49 4f 6a 75 |icons%:.#F%,IOju|
00033970 73 74 5f 25 28 5a 25 29 2c 49 4f 72 64 65 72 53 |st_%(Z%),IOrderS|
00033980 5f 24 28 5a 25 29 2c 49 4f 72 64 65 72 46 5f 25 |_$(Z%),IOrderF_%|
00033990 28 5a 25 29 2c 49 4f 72 64 65 72 6d 79 5f 28 5a |(Z%),IOrdermy_(Z|
000339a0 25 29 2c 49 4f 72 64 65 72 6d 78 5f 28 5a 25 29 |%),IOrdermx_(Z%)|
000339b0 2c 49 4f 72 64 65 72 66 79 5f 25 28 5a 25 29 2c |,IOrderfy_%(Z%),|
000339c0 49 4f 72 64 65 72 66 78 5f 25 28 5a 25 29 3a ed |IOrderfx_%(Z%):.|
000339d0 0d bc 02 69 e3 5a 25 3d 30 b8 31 30 30 30 3a f1 |...i.Z%=0.1000:.|
000339e0 23 46 25 2c 53 6c 52 65 63 5f 24 28 30 29 2c 53 |#F%,SlRec_$(0),S|
000339f0 6c 4e 75 6d 5f 24 28 30 29 2c 53 6c 44 65 73 5f |lNum_$(0),SlDes_|
00033a00 24 28 30 29 2c 53 6c 51 75 61 5f 28 30 29 2c 53 |$(0),SlQua_(0),S|
00033a10 6c 50 72 69 5f 28 30 29 2c 53 6c 56 61 74 5f 24 |lPri_(0),SlVat_$|
00033a20 28 30 29 3a ed 3a f1 23 46 25 2c 53 67 5f 25 2c |(0):.:.#F%,Sg_%,|
00033a30 4c 67 5f 25 2c 43 67 5f 25 0d bc 07 1f e3 5a 25 |Lg_%,Cg_%.....Z%|
00033a40 3d 30 b8 31 36 3a f1 23 46 25 2c 4c 61 62 65 6c |=0.16:.#F%,Label|
00033a50 5f 24 28 5a 25 29 3a ed 0d bc 0c 31 e3 5a 25 3d |_$(Z%):....1.Z%=|
00033a60 30 b8 6d 61 78 69 66 6f 6e 74 5f 25 3a f1 23 46 |0.maxifont_%:.#F|
00033a70 25 2c 66 68 61 6e 64 6c 65 5f 25 28 5a 25 29 3a |%,fhandle_%(Z%):|
00033a80 ed 3a d5 23 46 25 2c 36 35 0d bc 0e 15 f1 23 46 |.:.#F%,65.....#F|
00033a90 25 2c 22 23 50 52 4f a0 4c 49 54 45 23 22 0d bc |%,"#PRO.LITE#"..|
00033aa0 1b 25 e3 5a 25 3d 30 b8 32 37 3a f1 23 46 25 2c |.%.Z%=0.27:.#F%,|
00033ab0 56 61 5f 25 28 5a 25 29 2c 56 61 5f 24 28 5a 25 |Va_%(Z%),Va_$(Z%|
00033ac0 29 3a ed 0d bc 1d 15 f1 23 46 25 2c 22 23 50 52 |):......#F%,"#PR|
00033ad0 4f a0 4c 49 54 45 23 22 0d bc 2f d4 e3 5a 25 3d |O.LITE#"../..Z%=|
00033ae0 30 b8 43 25 3a f1 23 46 25 2c 43 53 75 70 70 6c |0.C%:.#F%,CSuppl|
00033af0 69 65 72 73 5f 24 28 5a 25 29 2c 43 53 75 4e 75 |iers_$(Z%),CSuNu|
00033b00 6d 62 65 72 5f 25 28 5a 25 29 2c 43 53 75 41 64 |mber_%(Z%),CSuAd|
00033b10 31 5f 24 28 5a 25 29 2c 43 53 75 41 64 32 5f 24 |1_$(Z%),CSuAd2_$|
00033b20 28 5a 25 29 2c 43 53 75 41 64 33 5f 24 28 5a 25 |(Z%),CSuAd3_$(Z%|
00033b30 29 2c 43 53 75 41 64 34 5f 24 28 5a 25 29 2c 43 |),CSuAd4_$(Z%),C|
00033b40 53 75 50 6f 73 5f 24 28 5a 25 29 2c 43 53 75 43 |SuPos_$(Z%),CSuC|
00033b50 6f 6e 74 61 63 5f 24 28 5a 25 29 2c 43 53 75 54 |ontac_$(Z%),CSuT|
00033b60 65 6c 5f 24 28 5a 25 29 2c 43 53 75 46 61 5f 24 |el_$(Z%),CSuFa_$|
00033b70 28 5a 25 29 2c 43 53 75 43 6f 6d 31 5f 24 28 5a |(Z%),CSuCom1_$(Z|
00033b80 25 29 2c 43 53 75 43 6f 6d 32 5f 24 28 5a 25 29 |%),CSuCom2_$(Z%)|
00033b90 2c 43 53 75 53 75 70 70 52 65 5f 24 28 5a 25 29 |,CSuSuppRe_$(Z%)|
00033ba0 2c 43 73 75 70 70 5f 24 28 5a 25 29 0d bc 34 6e |,Csupp_$(Z%)..4n|
00033bb0 f1 23 46 25 2c 64 43 53 75 70 70 6c 69 65 72 73 |.#F%,dCSuppliers|
00033bc0 5f 24 28 5a 25 29 2c 64 43 53 75 41 64 31 5f 24 |_$(Z%),dCSuAd1_$|
00033bd0 28 5a 25 29 2c 64 43 53 75 41 64 32 5f 24 28 5a |(Z%),dCSuAd2_$(Z|
00033be0 25 29 2c 64 43 53 75 41 64 33 5f 24 28 5a 25 29 |%),dCSuAd3_$(Z%)|
00033bf0 2c 64 43 53 75 41 64 34 5f 24 28 5a 25 29 2c 64 |,dCSuAd4_$(Z%),d|
00033c00 43 53 75 50 6f 73 5f 24 28 5a 25 29 2c 43 53 75 |CSuPos_$(Z%),CSu|
00033c10 44 69 73 63 5f 24 28 5a 25 29 0d bc 39 28 f1 23 |Disc_$(Z%)..9(.#|
00033c20 46 25 2c 43 53 75 59 6f 75 72 52 65 5f 24 28 5a |F%,CSuYourRe_$(Z|
00033c30 25 29 2c 43 53 75 4f 72 64 65 5f 24 28 5a 25 29 |%),CSuOrde_$(Z%)|
00033c40 3a ed 0d bc 3e b7 f1 23 46 25 2c 56 69 65 77 73 |:...>..#F%,Views|
00033c50 5f 25 2c 56 69 65 77 70 5f 25 2c 4c 73 74 6f 63 |_%,Viewp_%,Lstoc|
00033c60 6b 6e 75 5f 25 2c 4c 64 65 73 63 72 69 70 5f 25 |knu_%,Ldescrip_%|
00033c70 2c 4c 73 75 70 70 72 65 5f 25 2c 4c 73 75 70 5f |,Lsuppre_%,Lsup_|
00033c80 25 2c 4c 73 74 6f 63 5f 25 2c 4c 70 72 69 63 5f |%,Lstoc_%,Lpric_|
00033c90 25 2c 4c 61 34 5f 25 2c 4c 75 73 5f 25 2c 4c 63 |%,La4_%,Lus_%,Lc|
00033ca0 75 73 74 5f 25 2c 4c 6a 6c 65 5f 25 2c 4c 6a 63 |ust_%,Ljle_%,Ljc|
00033cb0 65 5f 25 2c 4c 64 6f 77 5f 25 2c 4c 61 63 72 6f |e_%,Ldow_%,Lacro|
00033cc0 73 5f 25 2c 4c 6e 75 6d 62 65 5f 25 2c 4c 73 74 |s_%,Lnumbe_%,Lst|
00033cd0 61 72 5f 25 2c 4c 70 61 67 78 5f 25 2c 4c 70 61 |ar_%,Lpagx_%,Lpa|
00033ce0 67 79 5f 25 2c 4c 66 6f 6e 5f 78 25 2c 4c 66 6f |gy_%,Lfon_x%,Lfo|
00033cf0 6e 5f 79 25 2c 43 75 5f 24 0d bc 43 98 f1 23 46 |n_y%,Cu_$..C..#F|
00033d00 25 2c 53 63 6f 6e 74 61 63 5f 25 2c 53 6e 61 6d |%,Scontac_%,Snam|
00033d10 5f 25 2c 53 61 64 64 72 65 73 5f 25 2c 53 61 34 |_%,Saddres_%,Sa4|
00033d20 5f 25 2c 53 75 73 5f 25 2c 53 63 75 73 74 5f 25 |_%,Sus_%,Scust_%|
00033d30 2c 53 64 6f 77 5f 25 2c 53 61 63 72 6f 73 5f 25 |,Sdow_%,Sacros_%|
00033d40 2c 53 6e 75 6d 62 65 5f 25 2c 53 73 74 61 72 5f |,Snumbe_%,Sstar_|
00033d50 25 2c 53 70 61 67 78 5f 25 2c 53 70 61 67 79 5f |%,Spagx_%,Spagy_|
00033d60 25 2c 53 66 6f 6e 5f 78 25 2c 53 66 6f 6e 5f 79 |%,Sfon_x%,Sfon_y|
00033d70 25 2c 53 75 70 46 72 6f 5f 25 2c 53 75 70 54 5f |%,SupFro_%,SupT_|
00033d80 25 2c 53 73 43 6f 6d 5f 24 2c 53 73 50 6f 73 5f |%,SsCom_$,SsPos_|
00033d90 24 0d bc 48 a8 f1 23 46 25 2c 43 53 63 6f 6e 74 |$..H..#F%,CScont|
00033da0 61 63 5f 25 2c 43 53 6e 61 6d 5f 25 2c 43 53 61 |ac_%,CSnam_%,CSa|
00033db0 64 64 72 65 73 5f 25 2c 43 53 61 34 5f 25 2c 43 |ddres_%,CSa4_%,C|
00033dc0 53 75 73 5f 25 2c 43 53 63 75 73 74 5f 25 2c 43 |Sus_%,CScust_%,C|
00033dd0 53 64 6f 77 5f 25 2c 43 53 61 63 72 6f 73 5f 25 |Sdow_%,CSacros_%|
00033de0 2c 43 53 6e 75 6d 62 65 5f 25 2c 43 53 73 74 61 |,CSnumbe_%,CSsta|
00033df0 72 5f 25 2c 43 53 70 61 67 78 5f 25 2c 43 53 70 |r_%,CSpagx_%,CSp|
00033e00 61 67 79 5f 25 2c 43 53 66 6f 6e 5f 78 25 2c 43 |agy_%,CSfon_x%,C|
00033e10 53 66 6f 6e 5f 79 25 2c 43 53 75 70 46 72 6f 5f |Sfon_y%,CSupFro_|
00033e20 25 2c 43 53 75 70 54 5f 25 2c 43 73 43 6f 6d 5f |%,CSupT_%,CsCom_|
00033e30 24 2c 43 73 50 6f 73 5f 24 0d bc 4d df f1 23 46 |$,CsPos_$..M..#F|
00033e40 25 2c 4c 69 73 74 52 65 63 4e 75 5f 25 2c 4c 69 |%,ListRecNu_%,Li|
00033e50 73 74 53 74 4e 75 5f 25 2c 4c 69 73 74 44 65 73 |stStNu_%,ListDes|
00033e60 63 5f 25 2c 4c 69 73 74 53 75 70 5f 25 2c 4c 69 |c_%,ListSup_%,Li|
00033e70 73 74 52 65 5f 25 2c 4c 69 73 74 43 6f 73 5f 25 |stRe_%,ListCos_%|
00033e80 2c 4c 69 73 74 52 65 74 61 69 5f 25 2c 4c 69 73 |,ListRetai_%,Lis|
00033e90 74 53 74 6f 63 5f 25 2c 4c 69 73 74 4d 69 5f 25 |tStoc_%,ListMi_%|
00033ea0 2c 4c 69 73 74 51 75 61 5f 25 2c 4c 69 73 74 53 |,ListQua_%,ListS|
00033eb0 6f 6c 5f 25 2c 4c 69 73 74 4d 6f 5f 25 2c 4c 69 |ol_%,ListMo_%,Li|
00033ec0 73 74 50 72 31 5f 25 2c 4c 69 73 74 50 72 32 5f |stPr1_%,ListPr2_|
00033ed0 25 2c 4c 69 73 74 4d 61 72 5f 25 2c 4c 69 73 74 |%,ListMar_%,List|
00033ee0 44 61 74 5f 25 2c 4c 69 73 74 61 34 5f 25 2c 4c |Dat_%,Lista4_%,L|
00033ef0 69 73 74 75 73 5f 25 2c 4c 69 73 74 63 75 73 74 |istus_%,Listcust|
00033f00 5f 25 2c 4c 69 73 74 70 61 67 78 5f 25 2c 4c 69 |_%,Listpagx_%,Li|
00033f10 73 74 70 61 67 79 5f 25 0d bc 52 99 f1 23 46 25 |stpagy_%..R..#F%|
00033f20 2c 4c 69 73 74 66 6f 6e 5f 78 25 2c 4c 69 73 74 |,Listfon_x%,List|
00033f30 66 6f 6e 5f 79 25 2c 4c 69 73 74 66 72 6f 5f 25 |fon_y%,Listfro_%|
00033f40 2c 4c 69 73 74 74 5f 25 2c 4c 69 73 74 6c 65 66 |,Listt_%,Listlef|
00033f50 5f 25 2c 4c 69 73 74 74 6f 70 5f 25 2c 4c 69 73 |_%,Listtop_%,Lis|
00033f60 74 73 70 61 63 5f 25 2c 44 61 34 5f 25 2c 44 75 |tspac_%,Da4_%,Du|
00033f70 73 5f 25 2c 44 63 75 73 74 5f 25 2c 44 70 61 67 |s_%,Dcust_%,Dpag|
00033f80 78 5f 25 2c 44 70 61 67 79 5f 25 2c 44 66 6f 6e |x_%,Dpagy_%,Dfon|
00033f90 5f 78 25 2c 44 66 6f 6e 5f 79 25 2c 44 6c 65 66 |_x%,Dfon_y%,Dlef|
00033fa0 5f 25 2c 44 74 6f 70 5f 25 2c 44 73 70 61 63 5f |_%,Dtop_%,Dspac_|
00033fb0 25 0d bc 57 e0 f1 23 46 25 2c 53 4c 52 65 63 4e |%..W..#F%,SLRecN|
00033fc0 75 5f 25 2c 53 4c 73 75 70 70 6c 69 65 5f 25 2c |u_%,SLsupplie_%,|
00033fd0 53 4c 61 64 31 5f 25 2c 53 4c 61 64 32 5f 25 2c |SLad1_%,SLad2_%,|
00033fe0 53 4c 61 64 33 5f 25 2c 53 4c 61 64 34 5f 25 2c |SLad3_%,SLad4_%,|
00033ff0 53 4c 70 6f 73 5f 25 2c 53 4c 63 6f 6e 5f 25 2c |SLpos_%,SLcon_%,|
00034000 53 4c 74 65 6c 5f 25 2c 53 4c 66 61 5f 25 2c 53 |SLtel_%,SLfa_%,S|
00034010 4c 63 6f 6d 31 5f 25 2c 53 4c 63 6f 6d 32 5f 25 |Lcom1_%,SLcom2_%|
00034020 2c 53 4c 73 75 70 70 72 65 5f 25 2c 53 4c 79 6f |,SLsuppre_%,SLyo|
00034030 75 72 72 65 5f 25 2c 53 4c 6f 72 64 70 72 5f 25 |urre_%,SLordpr_%|
00034040 2c 53 4c 61 34 5f 25 2c 53 4c 75 73 5f 25 2c 53 |,SLa4_%,SLus_%,S|
00034050 4c 63 75 73 74 5f 25 2c 53 4c 70 61 67 78 5f 25 |Lcust_%,SLpagx_%|
00034060 2c 53 4c 70 61 67 79 5f 25 2c 53 4c 66 6f 6e 5f |,SLpagy_%,SLfon_|
00034070 78 25 2c 53 4c 66 6f 6e 5f 79 25 2c 53 4c 66 72 |x%,SLfon_y%,SLfr|
00034080 6f 5f 25 2c 53 4c 74 5f 25 2c 53 4c 6c 65 66 5f |o_%,SLt_%,SLlef_|
00034090 25 0d bc 5c db f1 23 46 25 2c 53 4c 74 6f 70 5f |%..\..#F%,SLtop_|
000340a0 25 2c 53 4c 73 70 61 63 5f 25 2c 53 6a 6c 65 5f |%,SLspac_%,Sjle_|
000340b0 25 2c 53 6a 63 65 5f 25 2c 4f 61 34 5f 25 2c 4f |%,Sjce_%,Oa4_%,O|
000340c0 75 73 5f 25 2c 4f 63 75 73 74 5f 25 2c 4f 70 61 |us_%,Ocust_%,Opa|
000340d0 67 78 5f 25 2c 4f 70 61 67 79 5f 25 2c 55 6e 61 |gx_%,Opagy_%,Una|
000340e0 6d 5f 24 2c 55 61 64 31 5f 24 2c 55 61 64 32 5f |m_$,Uad1_$,Uad2_|
000340f0 24 2c 55 61 64 33 5f 24 2c 55 61 64 34 5f 24 2c |$,Uad3_$,Uad4_$,|
00034100 55 61 64 35 5f 24 2c 55 70 6f 73 5f 24 2c 55 74 |Uad5_$,Upos_$,Ut|
00034110 65 5f 24 2c 55 66 61 5f 24 2c 55 76 61 5f 24 2c |e_$,Ufa_$,Uva_$,|
00034120 43 61 6c 31 5f 24 2c 43 61 6c 32 5f 24 2c 43 61 |Cal1_$,Cal2_$,Ca|
00034130 6c 33 5f 24 2c 43 61 6c 34 5f 24 2c 43 61 6c 54 |l3_$,Cal4_$,CalT|
00034140 6f 5f 25 2c 49 4f 61 34 5f 25 2c 49 4f 75 73 5f |o_%,IOa4_%,IOus_|
00034150 25 2c 49 4f 63 75 73 74 5f 25 2c 49 4f 70 61 67 |%,IOcust_%,IOpag|
00034160 78 5f 25 2c 49 4f 70 61 67 79 5f 25 0d bc 61 cc |x_%,IOpagy_%..a.|
00034170 f1 23 46 25 2c 43 53 4c 52 65 63 4e 75 5f 25 2c |.#F%,CSLRecNu_%,|
00034180 43 53 4c 73 75 70 70 6c 69 65 5f 25 2c 43 53 4c |CSLsupplie_%,CSL|
00034190 61 64 31 5f 25 2c 43 53 4c 61 64 32 5f 25 2c 43 |ad1_%,CSLad2_%,C|
000341a0 53 4c 61 64 33 5f 25 2c 43 53 4c 61 64 34 5f 25 |SLad3_%,CSLad4_%|
000341b0 2c 43 53 4c 70 6f 73 5f 25 2c 43 53 4c 63 6f 6e |,CSLpos_%,CSLcon|
000341c0 5f 25 2c 43 53 4c 74 65 6c 5f 25 2c 43 53 4c 66 |_%,CSLtel_%,CSLf|
000341d0 61 5f 25 2c 43 53 4c 63 6f 6d 31 5f 25 2c 43 53 |a_%,CSLcom1_%,CS|
000341e0 4c 63 6f 6d 32 5f 25 2c 43 53 4c 73 75 70 70 72 |Lcom2_%,CSLsuppr|
000341f0 65 5f 25 2c 43 53 4c 79 6f 75 72 72 65 5f 25 2c |e_%,CSLyourre_%,|
00034200 43 53 4c 6f 72 64 70 72 5f 25 2c 43 53 4c 61 34 |CSLordpr_%,CSLa4|
00034210 5f 25 2c 43 53 4c 75 73 5f 25 2c 43 53 4c 63 75 |_%,CSLus_%,CSLcu|
00034220 73 74 5f 25 2c 43 53 4c 70 61 67 78 5f 25 2c 43 |st_%,CSLpagx_%,C|
00034230 53 4c 70 61 67 79 5f 25 0d bc 66 78 f1 23 46 25 |SLpagy_%..fx.#F%|
00034240 2c 43 53 4c 66 6f 6e 5f 78 25 2c 43 53 4c 66 6f |,CSLfon_x%,CSLfo|
00034250 6e 5f 79 25 2c 43 53 4c 66 72 6f 5f 25 2c 43 53 |n_y%,CSLfro_%,CS|
00034260 4c 74 5f 25 2c 43 53 4c 6c 65 66 5f 25 2c 43 53 |Lt_%,CSLlef_%,CS|
00034270 4c 74 6f 70 5f 25 2c 43 53 4c 73 70 61 63 5f 25 |Ltop_%,CSLspac_%|
00034280 2c 43 53 6a 6c 65 5f 25 2c 43 53 6a 63 65 5f 25 |,CSjle_%,CSjce_%|
00034290 2c 43 61 6c 74 31 5f 25 2c 43 61 6c 74 32 5f 25 |,Calt1_%,Calt2_%|
000342a0 2c 43 61 6c 74 33 5f 25 2c 43 61 6c 74 34 5f 25 |,Calt3_%,Calt4_%|
000342b0 0d bc 6b 31 f1 23 46 25 2c 6a 5f 66 25 2c 6a 5f |..k1.#F%,j_f%,j_|
000342c0 66 31 25 2c 6a 5f 66 32 25 2c 6a 5f 66 33 25 2c |f1%,j_f2%,j_f3%,|
000342d0 6a 5f 66 34 25 2c 6a 5f 66 35 25 2c 6a 5f 66 36 |j_f4%,j_f5%,j_f6|
000342e0 25 0d bc 70 b0 f1 23 46 25 2c 4f 62 6f 72 64 65 |%..p..#F%,Oborde|
000342f0 72 25 2c 4f 72 75 6c 65 72 25 2c 4f 64 73 69 7a |r%,Oruler%,Odsiz|
00034300 65 5f 25 2c 4f 64 67 61 70 5f 25 2c 4f 69 73 75 |e_%,Odgap_%,Oisu|
00034310 70 70 6c 69 65 5f 24 2c 4f 69 6e 75 6d 62 65 5f |pplie_$,Oinumbe_|
00034320 25 2c 4f 61 6e 75 6d 62 65 5f 25 2c 4f 61 66 72 |%,Oanumbe_%,Oafr|
00034330 6f 5f 25 2c 4f 61 74 5f 25 2c 42 65 73 74 46 5f |o_%,Oat_%,BestF_|
00034340 25 2c 42 65 73 74 50 5f 25 2c 42 65 73 74 4c 5f |%,BestP_%,BestL_|
00034350 24 2c 42 65 73 74 44 5f 24 2c 53 61 73 61 76 5f |$,BestD_$,Sasav_|
00034360 25 2c 73 61 76 65 73 61 6c 5f 25 2c 49 4f 62 6f |%,savesal_%,IObo|
00034370 72 64 65 72 25 2c 49 4f 72 75 6c 65 72 25 2c 49 |rder%,IOruler%,I|
00034380 4f 64 73 69 7a 65 5f 25 2c 49 4f 64 67 61 70 5f |Odsize_%,IOdgap_|
00034390 25 0d bc 75 28 f1 23 46 25 2c 70 61 73 73 31 5f |%..u(.#F%,pass1_|
000343a0 24 2c 70 61 73 73 32 5f 24 2c 70 61 73 73 33 5f |$,pass2_$,pass3_|
000343b0 24 2c 70 61 73 73 34 5f 24 0d bc 7a 4c f1 23 46 |$,pass4_$..zL.#F|
000343c0 25 2c 4f 74 6f 64 61 79 5f 24 2c 76 61 6c 66 72 |%,Otoday_$,valfr|
000343d0 6f 5f 24 2c 76 61 6c 74 5f 24 2c 53 66 69 6e 64 |o_$,valt_$,Sfind|
000343e0 6e 75 5f 24 2c 53 75 66 69 6e 64 6e 75 5f 24 2c |nu_$,Sufindnu_$,|
000343f0 41 75 74 6f 73 61 76 5f 25 2c 43 53 75 66 69 6e |Autosav_%,CSufin|
00034400 64 6e 75 5f 24 0d bc 7f 62 e3 5a 25 3d 31 b8 6d |dnu_$...b.Z%=1.m|
00034410 61 78 69 66 6f 6e 74 5f 25 3a f1 23 46 25 2c 4f |axifont_%:.#F%,O|
00034420 66 6f 6e 74 6e 61 6d 65 5f 24 28 5a 25 29 3a ed |fontname_$(Z%):.|
00034430 3a f1 23 46 25 2c 4f 69 73 75 70 6e 75 6d 5f 25 |:.#F%,Oisupnum_%|
00034440 2c 49 54 63 6f 70 5f 24 2c 49 54 65 73 5f 25 2c |,ITcop_$,ITes_%,|
00034450 49 54 64 69 73 5f 24 2c 49 54 72 65 5f 24 2c 49 |ITdis_$,ITre_$,I|
00034460 54 70 72 69 63 5f 24 0d bc 84 2e e3 5a 25 3d 31 |Tpric_$.....Z%=1|
00034470 b8 31 30 38 3a f1 23 46 25 2c 53 68 65 61 64 31 |.108:.#F%,Shead1|
00034480 5f 24 28 5a 25 29 2c 50 68 65 61 64 31 5f 24 28 |_$(Z%),Phead1_$(|
00034490 5a 25 29 3a ed 0d bc 89 0c e3 5a 25 3d 31 b8 31 |Z%):......Z%=1.1|
000344a0 32 0d bc 8e 6d e7 61 5f 25 3d 2d 31 8c 61 5f 25 |2...m.a_%=-1.a_%|
000344b0 3d a4 61 64 64 5f 28 42 61 6e 6b 4f 4f 5f 25 28 |=.add_(BankOO_%(|
000344c0 5a 25 29 2c 42 61 6e 6b 53 53 5f 25 28 5a 25 29 |Z%),BankSS_%(Z%)|
000344d0 29 3a f1 23 46 25 2c 42 61 6e 6b 4e 4e 5f 24 28 |):.#F%,BankNN_$(|
000344e0 5a 25 29 2c 61 5f 25 3a 61 5f 25 3d 2d 31 20 8b |Z%),a_%:a_%=-1 .|
000344f0 f1 23 46 25 2c 42 61 6e 6b 4e 4e 5f 24 28 5a 25 |.#F%,BankNN_$(Z%|
00034500 29 2c 42 61 6e 6b 4f 4f 5f 25 28 5a 25 29 0d bc |),BankOO_%(Z%)..|
00034510 93 05 ed 0d bc 98 0c e7 61 5f 25 3d 2d 31 8c 0d |........a_%=-1..|
00034520 bc 9d 1e e3 5a 25 3d 30 b8 4e 65 77 50 72 65 66 |....Z%=0.NewPref|
00034530 5f 25 28 30 29 2a 73 69 74 69 70 5f 25 0d bc a2 |_%(0)*sitip_%...|
00034540 8a e7 53 49 54 73 5f 24 28 5a 25 29 3c 3e 51 5f |..SITs_$(Z%)<>Q_|
00034550 24 84 53 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 |$.SITe_$(Z%*siti|
00034560 66 5f 25 2b 36 29 3c 3e 53 49 54 65 5f 24 28 5a |f_%+6)<>SITe_$(Z|
00034570 25 2a 73 69 74 69 66 5f 25 2b 39 29 8c f1 23 46 |%*sitif_%+9)..#F|
00034580 25 2c 53 49 54 61 5f 24 28 5a 25 29 2c 53 49 54 |%,SITa_$(Z%),SIT|
00034590 68 5f 24 28 5a 25 29 2c 53 49 54 73 5f 24 28 5a |h_$(Z%),SITs_$(Z|
000345a0 25 29 2c 53 49 54 6e 5f 25 28 5a 25 29 20 8b f1 |%),SITn_%(Z%) ..|
000345b0 23 46 25 2c 22 22 2c 22 22 2c 22 22 2c 53 49 54 |#F%,"","","",SIT|
000345c0 6e 5f 25 28 5a 25 29 0d bc a7 05 ed 0d bc ac 05 |n_%(Z%).........|
000345d0 cd 0d bc b1 5a e7 61 5f 25 3c 3e 2d 31 3a e3 5a |....Z.a_%<>-1:.Z|
000345e0 25 3d 30 b8 4e 65 77 50 72 65 66 5f 25 28 30 29 |%=0.NewPref_%(0)|
000345f0 2a 73 69 74 69 70 5f 25 3a f1 23 46 25 2c 53 49 |*sitip_%:.#F%,SI|
00034600 54 61 5f 24 28 5a 25 29 2c 53 49 54 68 5f 24 28 |Ta_$(Z%),SITh_$(|
00034610 5a 25 29 2c 53 49 54 73 5f 24 28 5a 25 29 2c 53 |Z%),SITs_$(Z%),S|
00034620 49 54 6e 5f 25 28 5a 25 29 3a ed 0d bc b6 0c e7 |ITn_%(Z%):......|
00034630 61 5f 25 3d 2d 31 8c 0d bc bb 1e e3 5a 25 3d 30 |a_%=-1......Z%=0|
00034640 b8 4e 65 77 50 72 65 66 5f 25 28 31 29 2a 73 69 |.NewPref_%(1)*si|
00034650 74 69 70 5f 25 0d bc c0 8a e7 50 49 54 73 5f 24 |tip_%.....PITs_$|
00034660 28 5a 25 29 3c 3e 51 5f 24 84 50 49 54 65 5f 24 |(Z%)<>Q_$.PITe_$|
00034670 28 5a 25 2a 73 69 74 69 66 5f 25 2b 36 29 3c 3e |(Z%*sitif_%+6)<>|
00034680 50 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 66 5f |PITe_$(Z%*sitif_|
00034690 25 2b 39 29 8c f1 23 46 25 2c 50 49 54 61 5f 24 |%+9)..#F%,PITa_$|
000346a0 28 5a 25 29 2c 50 49 54 68 5f 24 28 5a 25 29 2c |(Z%),PITh_$(Z%),|
000346b0 50 49 54 73 5f 24 28 5a 25 29 2c 50 49 54 6e 5f |PITs_$(Z%),PITn_|
000346c0 25 28 5a 25 29 20 8b f1 23 46 25 2c 22 22 2c 22 |%(Z%) ..#F%,"","|
000346d0 22 2c 22 22 2c 50 49 54 6e 5f 25 28 5a 25 29 0d |","",PITn_%(Z%).|
000346e0 bc c5 05 ed 0d bc ca 05 cd 0d bc cf 5a e7 61 5f |............Z.a_|
000346f0 25 3c 3e 2d 31 3a e3 5a 25 3d 30 b8 4e 65 77 50 |%<>-1:.Z%=0.NewP|
00034700 72 65 66 5f 25 28 31 29 2a 73 69 74 69 70 5f 25 |ref_%(1)*sitip_%|
00034710 3a f1 23 46 25 2c 50 49 54 61 5f 24 28 5a 25 29 |:.#F%,PITa_$(Z%)|
00034720 2c 50 49 54 68 5f 24 28 5a 25 29 2c 50 49 54 73 |,PITh_$(Z%),PITs|
00034730 5f 24 28 5a 25 29 2c 50 49 54 6e 5f 25 28 5a 25 |_$(Z%),PITn_%(Z%|
00034740 29 3a ed 0d bc d4 1e e3 5a 25 3d 30 b8 4e 65 77 |):......Z%=0.New|
00034750 50 72 65 66 5f 25 28 32 29 2a 73 69 74 69 70 5f |Pref_%(2)*sitip_|
00034760 25 0d bc d9 0c e7 61 5f 25 3d 2d 31 8c 0d bc de |%.....a_%=-1....|
00034770 4e e7 42 49 54 65 5f 24 28 5a 25 2a 62 69 74 69 |N.BITe_$(Z%*biti|
00034780 66 5f 25 2b 34 29 3d 22 80 22 84 42 49 54 65 5f |f_%+4)=".".BITe_|
00034790 24 28 5a 25 2a 62 69 74 69 66 5f 25 2b 34 29 3d |$(Z%*bitif_%+4)=|
000347a0 22 22 8c f1 23 46 25 2c 22 22 20 8b f1 23 46 25 |""..#F%,"" ..#F%|
000347b0 2c 42 49 54 66 5f 24 28 5a 25 29 0d bc e3 4e e7 |,BITf_$(Z%)...N.|
000347c0 42 49 54 65 5f 24 28 5a 25 2a 62 69 74 69 66 5f |BITe_$(Z%*bitif_|
000347d0 25 2b 37 29 3d 22 80 22 84 42 49 54 65 5f 24 28 |%+7)=".".BITe_$(|
000347e0 5a 25 2a 62 69 74 69 66 5f 25 2b 37 29 3d 22 22 |Z%*bitif_%+7)=""|
000347f0 8c f1 23 46 25 2c 22 22 20 8b f1 23 46 25 2c 42 |..#F%,"" ..#F%,B|
00034800 49 54 74 5f 24 28 5a 25 29 0d bc e8 05 cc 0d bc |ITt_$(Z%).......|
00034810 ed 1e f1 23 46 25 2c 42 49 54 66 5f 24 28 5a 25 |...#F%,BITf_$(Z%|
00034820 29 2c 42 49 54 74 5f 24 28 5a 25 29 0d bc f2 05 |),BITt_$(Z%)....|
00034830 cd 0d bc f7 05 ed 0d bc fc 0c e7 61 5f 25 3d 2d |...........a_%=-|
00034840 31 8c 0d bd 01 2e e3 5a 25 3d 31 b8 4e 65 77 50 |1......Z%=1.NewP|
00034850 72 65 66 5f 25 28 30 29 2a 73 69 74 69 70 5f 25 |ref_%(0)*sitip_%|
00034860 2a 73 69 74 69 66 5f 25 88 73 69 74 69 66 5f 25 |*sitif_%.sitif_%|
00034870 0d bd 06 36 e7 53 49 54 73 5f 24 28 5a 25 2f 73 |...6.SITs_$(Z%/s|
00034880 69 74 69 66 5f 25 29 3d 51 5f 24 80 53 49 54 65 |itif_%)=Q_$.SITe|
00034890 5f 24 28 5a 25 2b 35 29 3d 53 49 54 65 5f 24 28 |_$(Z%+5)=SITe_$(|
000348a0 5a 25 2b 38 29 8c 0d bd 0b 29 f1 23 46 25 2c 22 |Z%+8)....).#F%,"|
000348b0 22 2c 22 22 2c 22 22 2c 22 22 2c 22 22 2c 22 22 |","","","","",""|
000348c0 2c 22 22 2c 22 22 2c 22 22 2c 22 22 2c 22 22 0d |,"","","","","".|
000348d0 bd 10 05 cc 0d bd 15 96 f1 23 46 25 2c 53 49 54 |.........#F%,SIT|
000348e0 65 5f 24 28 5a 25 29 2c 53 49 54 65 5f 24 28 5a |e_$(Z%),SITe_$(Z|
000348f0 25 2b 31 29 2c 53 49 54 65 5f 24 28 5a 25 2b 32 |%+1),SITe_$(Z%+2|
00034900 29 2c 53 49 54 65 5f 24 28 5a 25 2b 33 29 2c 53 |),SITe_$(Z%+3),S|
00034910 49 54 65 5f 24 28 5a 25 2b 34 29 2c 53 49 54 65 |ITe_$(Z%+4),SITe|
00034920 5f 24 28 5a 25 2b 35 29 2c 53 49 54 65 5f 24 28 |_$(Z%+5),SITe_$(|
00034930 5a 25 2b 36 29 2c 53 49 54 65 5f 24 28 5a 25 2b |Z%+6),SITe_$(Z%+|
00034940 37 29 2c 53 49 54 65 5f 24 28 5a 25 2b 38 29 2c |7),SITe_$(Z%+8),|
00034950 53 49 54 65 5f 24 28 5a 25 2b 39 29 2c 53 49 54 |SITe_$(Z%+9),SIT|
00034960 65 5f 24 28 5a 25 2b 31 30 29 0d bd 1a 79 e7 53 |e_$(Z%+10)...y.S|
00034970 49 54 73 5f 24 28 5a 25 2f 73 69 74 69 66 5f 25 |ITs_$(Z%/sitif_%|
00034980 29 3d 51 5f 24 3a 42 5f 25 3d a4 6e 69 5f 28 53 |)=Q_$:B_%=.ni_(S|
00034990 49 54 65 5f 24 28 5a 25 2b 38 29 29 3a 41 5f 25 |ITe_$(Z%+8)):A_%|
000349a0 3d 97 28 53 49 54 65 5f 24 28 5a 25 2b 33 29 29 |=.(SITe_$(Z%+3))|
000349b0 2d 36 35 3a e7 41 5f 25 3e 2d 31 80 41 5f 25 3c |-65:.A_%>-1.A_%<|
000349c0 31 32 8c 62 6c 31 5f 25 28 41 5f 25 29 3d a4 61 |12.bl1_%(A_%)=.a|
000349d0 64 64 5f 28 62 6c 31 5f 25 28 41 5f 25 29 2c 42 |dd_(bl1_%(A_%),B|
000349e0 5f 25 29 0d bd 1f 05 cd 0d bd 24 05 ed 0d bd 29 |_%).......$....)|
000349f0 23 e3 5a 25 3d 30 b8 31 31 3a 62 6c 31 5f 25 28 |#.Z%=0.11:bl1_%(|
00034a00 5a 25 29 3d 2d 62 6c 31 5f 25 28 5a 25 29 3a ed |Z%)=-bl1_%(Z%):.|
00034a10 0d bd 2e 05 cd 0d bd 33 cc e7 61 5f 25 3c 3e 2d |.......3..a_%<>-|
00034a20 31 3a e3 5a 25 3d 31 b8 4e 65 77 50 72 65 66 5f |1:.Z%=1.NewPref_|
00034a30 25 28 30 29 2a 73 69 74 69 70 5f 25 2a 73 69 74 |%(0)*sitip_%*sit|
00034a40 69 66 5f 25 88 73 69 74 69 66 5f 25 3a f1 23 46 |if_%.sitif_%:.#F|
00034a50 25 2c 53 49 54 65 5f 24 28 5a 25 29 2c 53 49 54 |%,SITe_$(Z%),SIT|
00034a60 65 5f 24 28 5a 25 2b 31 29 2c 53 49 54 65 5f 24 |e_$(Z%+1),SITe_$|
00034a70 28 5a 25 2b 32 29 2c 53 49 54 65 5f 24 28 5a 25 |(Z%+2),SITe_$(Z%|
00034a80 2b 33 29 2c 53 49 54 65 5f 24 28 5a 25 2b 34 29 |+3),SITe_$(Z%+4)|
00034a90 2c 53 49 54 65 5f 24 28 5a 25 2b 35 29 2c 53 49 |,SITe_$(Z%+5),SI|
00034aa0 54 65 5f 24 28 5a 25 2b 36 29 2c 53 49 54 65 5f |Te_$(Z%+6),SITe_|
00034ab0 24 28 5a 25 2b 37 29 2c 53 49 54 65 5f 24 28 5a |$(Z%+7),SITe_$(Z|
00034ac0 25 2b 38 29 2c 53 49 54 65 5f 24 28 5a 25 2b 39 |%+8),SITe_$(Z%+9|
00034ad0 29 2c 53 49 54 65 5f 24 28 5a 25 2b 31 30 29 3a |),SITe_$(Z%+10):|
00034ae0 ed 0d bd 38 55 e3 5a 25 3d 30 b8 73 69 74 69 6e |...8U.Z%=0.sitin|
00034af0 5f 25 2d 31 3a f1 23 46 25 2c 53 49 54 65 70 5f |_%-1:.#F%,SITep_|
00034b00 24 28 5a 25 29 3a ed 3a e3 5a 25 3d 30 b8 73 69 |$(Z%):.:.Z%=0.si|
00034b10 74 69 70 5f 25 2a 33 3a f1 23 46 25 2c 53 49 54 |tip_%*3:.#F%,SIT|
00034b20 61 70 5f 24 28 5a 25 29 3a ed 3a f1 23 46 25 2c |ap_$(Z%):.:.#F%,|
00034b30 73 69 74 70 5f 25 0d bd 3d 0c e7 61 5f 25 3d 2d |sitp_%..=..a_%=-|
00034b40 31 8c 0d bd 42 2e e3 5a 25 3d 31 b8 4e 65 77 50 |1...B..Z%=1.NewP|
00034b50 72 65 66 5f 25 28 31 29 2a 73 69 74 69 70 5f 25 |ref_%(1)*sitip_%|
00034b60 2a 73 69 74 69 66 5f 25 88 73 69 74 69 66 5f 25 |*sitif_%.sitif_%|
00034b70 0d bd 47 36 e7 50 49 54 73 5f 24 28 5a 25 2f 73 |..G6.PITs_$(Z%/s|
00034b80 69 74 69 66 5f 25 29 3d 51 5f 24 80 50 49 54 65 |itif_%)=Q_$.PITe|
00034b90 5f 24 28 5a 25 2b 35 29 3d 50 49 54 65 5f 24 28 |_$(Z%+5)=PITe_$(|
00034ba0 5a 25 2b 38 29 8c 0d bd 4c 29 f1 23 46 25 2c 22 |Z%+8)...L).#F%,"|
00034bb0 22 2c 22 22 2c 22 22 2c 22 22 2c 22 22 2c 22 22 |","","","","",""|
00034bc0 2c 22 22 2c 22 22 2c 22 22 2c 22 22 2c 22 22 0d |,"","","","","".|
00034bd0 bd 51 05 cc 0d bd 56 96 f1 23 46 25 2c 50 49 54 |.Q....V..#F%,PIT|
00034be0 65 5f 24 28 5a 25 29 2c 50 49 54 65 5f 24 28 5a |e_$(Z%),PITe_$(Z|
00034bf0 25 2b 31 29 2c 50 49 54 65 5f 24 28 5a 25 2b 32 |%+1),PITe_$(Z%+2|
00034c00 29 2c 50 49 54 65 5f 24 28 5a 25 2b 33 29 2c 50 |),PITe_$(Z%+3),P|
00034c10 49 54 65 5f 24 28 5a 25 2b 34 29 2c 50 49 54 65 |ITe_$(Z%+4),PITe|
00034c20 5f 24 28 5a 25 2b 35 29 2c 50 49 54 65 5f 24 28 |_$(Z%+5),PITe_$(|
00034c30 5a 25 2b 36 29 2c 50 49 54 65 5f 24 28 5a 25 2b |Z%+6),PITe_$(Z%+|
00034c40 37 29 2c 50 49 54 65 5f 24 28 5a 25 2b 38 29 2c |7),PITe_$(Z%+8),|
00034c50 50 49 54 65 5f 24 28 5a 25 2b 39 29 2c 50 49 54 |PITe_$(Z%+9),PIT|
00034c60 65 5f 24 28 5a 25 2b 31 30 29 0d bd 5b 79 e7 50 |e_$(Z%+10)..[y.P|
00034c70 49 54 73 5f 24 28 5a 25 2f 73 69 74 69 66 5f 25 |ITs_$(Z%/sitif_%|
00034c80 29 3d 51 5f 24 3a 42 5f 25 3d a4 6e 69 5f 28 50 |)=Q_$:B_%=.ni_(P|
00034c90 49 54 65 5f 24 28 5a 25 2b 38 29 29 3a 41 5f 25 |ITe_$(Z%+8)):A_%|
00034ca0 3d 97 28 50 49 54 65 5f 24 28 5a 25 2b 33 29 29 |=.(PITe_$(Z%+3))|
00034cb0 2d 36 35 3a e7 41 5f 25 3e 2d 31 80 41 5f 25 3c |-65:.A_%>-1.A_%<|
00034cc0 31 32 8c 62 6c 31 5f 25 28 41 5f 25 29 3d a4 61 |12.bl1_%(A_%)=.a|
00034cd0 64 64 5f 28 62 6c 31 5f 25 28 41 5f 25 29 2c 42 |dd_(bl1_%(A_%),B|
00034ce0 5f 25 29 0d bd 60 05 cd 0d bd 65 05 ed 0d bd 6a |_%)..`....e....j|
00034cf0 05 cd 0d bd 6f cc e7 61 5f 25 3c 3e 2d 31 3a e3 |....o..a_%<>-1:.|
00034d00 5a 25 3d 31 b8 4e 65 77 50 72 65 66 5f 25 28 31 |Z%=1.NewPref_%(1|
00034d10 29 2a 73 69 74 69 70 5f 25 2a 73 69 74 69 66 5f |)*sitip_%*sitif_|
00034d20 25 88 73 69 74 69 66 5f 25 3a f1 23 46 25 2c 50 |%.sitif_%:.#F%,P|
00034d30 49 54 65 5f 24 28 5a 25 29 2c 50 49 54 65 5f 24 |ITe_$(Z%),PITe_$|
00034d40 28 5a 25 2b 31 29 2c 50 49 54 65 5f 24 28 5a 25 |(Z%+1),PITe_$(Z%|
00034d50 2b 32 29 2c 50 49 54 65 5f 24 28 5a 25 2b 33 29 |+2),PITe_$(Z%+3)|
00034d60 2c 50 49 54 65 5f 24 28 5a 25 2b 34 29 2c 50 49 |,PITe_$(Z%+4),PI|
00034d70 54 65 5f 24 28 5a 25 2b 35 29 2c 50 49 54 65 5f |Te_$(Z%+5),PITe_|
00034d80 24 28 5a 25 2b 36 29 2c 50 49 54 65 5f 24 28 5a |$(Z%+6),PITe_$(Z|
00034d90 25 2b 37 29 2c 50 49 54 65 5f 24 28 5a 25 2b 38 |%+7),PITe_$(Z%+8|
00034da0 29 2c 50 49 54 65 5f 24 28 5a 25 2b 39 29 2c 50 |),PITe_$(Z%+9),P|
00034db0 49 54 65 5f 24 28 5a 25 2b 31 30 29 3a ed 0d bd |ITe_$(Z%+10):...|
00034dc0 74 49 e3 5a 25 3d 30 b8 73 69 74 69 6e 5f 25 2d |tI.Z%=0.sitin_%-|
00034dd0 31 3a f1 23 46 25 2c 50 49 54 65 70 5f 24 28 5a |1:.#F%,PITep_$(Z|
00034de0 25 29 3a ed 3a e3 5a 25 3d 30 b8 73 69 74 69 70 |%):.:.Z%=0.sitip|
00034df0 5f 25 2a 33 3a f1 23 46 25 2c 50 49 54 61 70 5f |_%*3:.#F%,PITap_|
00034e00 24 28 5a 25 29 3a ed 0d bd 79 8a f1 23 46 25 2c |$(Z%):...y..#F%,|
00034e10 70 69 74 70 5f 25 2c 41 75 74 6f 77 61 72 5f 25 |pitp_%,Autowar_%|
00034e20 2c 53 61 6c 65 77 61 72 5f 25 2c 45 78 69 74 77 |,Salewar_%,Exitw|
00034e30 61 72 5f 25 2c 70 61 73 73 35 5f 24 2c 70 61 73 |ar_%,pass5_$,pas|
00034e40 73 36 5f 24 2c 70 61 73 73 37 5f 24 2c 49 54 61 |s6_$,pass7_$,ITa|
00034e50 63 63 5f 24 2c 49 54 68 65 61 64 5f 24 2c 53 41 |cc_$,IThead_$,SA|
00034e60 61 63 63 5f 24 2c 53 41 68 65 61 64 5f 24 2c 49 |acc_$,SAhead_$,I|
00034e70 54 63 6f 6d 6d 5f 24 2c 53 41 63 75 73 74 5f 24 |Tcomm_$,SAcust_$|
00034e80 2c 53 41 72 65 66 5f 24 2c 53 41 63 6f 6d 6d 5f |,SAref_$,SAcomm_|
00034e90 24 0d bd 7e 26 e3 5a 25 3d 31 b8 4e 65 77 50 72 |$..~&.Z%=1.NewPr|
00034ea0 65 66 5f 25 28 32 29 2a 73 69 74 69 70 5f 25 2a |ef_%(2)*sitip_%*|
00034eb0 62 69 74 69 66 5f 25 0d bd 83 0c e7 61 5f 25 3d |bitif_%.....a_%=|
00034ec0 2d 31 8c 0d bd 88 a5 e7 42 49 54 65 5f 24 28 5a |-1......BITe_$(Z|
00034ed0 25 2b 33 29 3d 22 80 22 80 42 49 54 65 5f 24 28 |%+3)=".".BITe_$(|
00034ee0 5a 25 2b 36 29 3d 22 80 22 84 42 49 54 65 5f 24 |Z%+6)=".".BITe_$|
00034ef0 28 5a 25 2b 33 29 3d 22 22 80 42 49 54 65 5f 24 |(Z%+3)="".BITe_$|
00034f00 28 5a 25 2b 36 29 3d 22 80 22 84 42 49 54 65 5f |(Z%+6)=".".BITe_|
00034f10 24 28 5a 25 2b 33 29 3d 22 80 22 80 42 49 54 65 |$(Z%+3)=".".BITe|
00034f20 5f 24 28 5a 25 2b 36 29 3d 22 22 84 42 49 54 65 |_$(Z%+6)="".BITe|
00034f30 5f 24 28 5a 25 2b 33 29 3d 22 22 80 42 49 54 65 |_$(Z%+3)="".BITe|
00034f40 5f 24 28 5a 25 2b 36 29 3d 22 22 8c f1 23 46 25 |_$(Z%+6)=""..#F%|
00034f50 2c 22 22 2c 22 22 2c 22 22 2c 22 22 2c 22 22 2c |,"","","","","",|
00034f60 22 22 2c 22 22 2c 22 22 0d bd 8d b6 e7 42 49 54 |"","","".....BIT|
00034f70 65 5f 24 28 5a 25 2b 33 29 3c 3e 22 80 22 80 42 |e_$(Z%+3)<>".".B|
00034f80 49 54 65 5f 24 28 5a 25 2b 36 29 3c 3e 22 80 22 |ITe_$(Z%+6)<>"."|
00034f90 3a e7 42 49 54 65 5f 24 28 5a 25 2b 33 29 3c 3e |:.BITe_$(Z%+3)<>|
00034fa0 22 22 84 42 49 54 65 5f 24 28 5a 25 2b 36 29 3c |"".BITe_$(Z%+6)<|
00034fb0 3e 22 22 8c f1 23 46 25 2c 42 49 54 65 5f 24 28 |>""..#F%,BITe_$(|
00034fc0 5a 25 29 2c 42 49 54 65 5f 24 28 5a 25 2b 31 29 |Z%),BITe_$(Z%+1)|
00034fd0 2c 42 49 54 65 5f 24 28 5a 25 2b 32 29 2c 42 49 |,BITe_$(Z%+2),BI|
00034fe0 54 65 5f 24 28 5a 25 2b 33 29 2c 42 49 54 65 5f |Te_$(Z%+3),BITe_|
00034ff0 24 28 5a 25 2b 34 29 2c 42 49 54 65 5f 24 28 5a |$(Z%+4),BITe_$(Z|
00035000 25 2b 35 29 2c 42 49 54 65 5f 24 28 5a 25 2b 36 |%+5),BITe_$(Z%+6|
00035010 29 2c 42 49 54 65 5f 24 28 5a 25 2b 37 29 0d bd |),BITe_$(Z%+7)..|
00035020 92 8f e7 42 49 54 65 5f 24 28 5a 25 2b 33 29 3d |...BITe_$(Z%+3)=|
00035030 22 80 22 80 42 49 54 65 5f 24 28 5a 25 2b 36 29 |".".BITe_$(Z%+6)|
00035040 3c 3e 22 80 22 80 42 49 54 65 5f 24 28 5a 25 2b |<>".".BITe_$(Z%+|
00035050 36 29 3c 3e 22 22 8c f1 23 46 25 2c 42 49 54 65 |6)<>""..#F%,BITe|
00035060 5f 24 28 5a 25 29 2c 42 49 54 65 5f 24 28 5a 25 |_$(Z%),BITe_$(Z%|
00035070 2b 31 29 2c 22 22 2c 22 22 2c 42 49 54 65 5f 24 |+1),"","",BITe_$|
00035080 28 5a 25 2b 34 29 2c 42 49 54 65 5f 24 28 5a 25 |(Z%+4),BITe_$(Z%|
00035090 2b 35 29 2c 42 49 54 65 5f 24 28 5a 25 2b 36 29 |+5),BITe_$(Z%+6)|
000350a0 2c 42 49 54 65 5f 24 28 5a 25 2b 37 29 0d bd 97 |,BITe_$(Z%+7)...|
000350b0 8f e7 42 49 54 65 5f 24 28 5a 25 2b 36 29 3d 22 |..BITe_$(Z%+6)="|
000350c0 80 22 80 42 49 54 65 5f 24 28 5a 25 2b 33 29 3c |.".BITe_$(Z%+3)<|
000350d0 3e 22 80 22 80 42 49 54 65 5f 24 28 5a 25 2b 33 |>".".BITe_$(Z%+3|
000350e0 29 3c 3e 22 22 8c f1 23 46 25 2c 42 49 54 65 5f |)<>""..#F%,BITe_|
000350f0 24 28 5a 25 29 2c 42 49 54 65 5f 24 28 5a 25 2b |$(Z%),BITe_$(Z%+|
00035100 31 29 2c 42 49 54 65 5f 24 28 5a 25 2b 32 29 2c |1),BITe_$(Z%+2),|
00035110 42 49 54 65 5f 24 28 5a 25 2b 33 29 2c 42 49 54 |BITe_$(Z%+3),BIT|
00035120 65 5f 24 28 5a 25 2b 34 29 2c 22 22 2c 22 22 2c |e_$(Z%+4),"","",|
00035130 42 49 54 65 5f 24 28 5a 25 2b 37 29 0d bd 9c 11 |BITe_$(Z%+7)....|
00035140 5a 25 2b 3d 62 69 74 69 66 5f 25 2d 31 0d bd a1 |Z%+=bitif_%-1...|
00035150 05 cc 0d bd a6 13 f1 23 46 25 2c 42 49 54 65 5f |.......#F%,BITe_|
00035160 24 28 5a 25 29 0d bd ab 05 cd 0d bd b0 05 ed 0d |$(Z%)...........|
00035170 bd b5 49 e3 5a 25 3d 30 b8 62 69 74 69 6e 5f 25 |..I.Z%=0.bitin_%|
00035180 2d 31 3a f1 23 46 25 2c 42 49 54 65 70 5f 24 28 |-1:.#F%,BITep_$(|
00035190 5a 25 29 3a ed 3a e3 5a 25 3d 30 b8 73 69 74 69 |Z%):.:.Z%=0.siti|
000351a0 70 5f 25 2a 32 3a f1 23 46 25 2c 42 49 54 61 70 |p_%*2:.#F%,BITap|
000351b0 5f 24 28 5a 25 29 3a ed 0d bd ba 38 e3 5a 25 3d |_$(Z%):....8.Z%=|
000351c0 31 b8 37 3a f1 23 46 25 2c 53 61 6c 65 64 46 5f |1.7:.#F%,SaledF_|
000351d0 24 28 5a 25 29 2c 50 61 6c 65 64 46 5f 24 28 5a |$(Z%),PaledF_$(Z|
000351e0 25 29 2c 42 61 6e 6b 46 5f 24 28 5a 25 29 3a ed |%),BankF_$(Z%):.|
000351f0 0d bd bf 2d e3 5a 25 3d 31 b8 32 35 3a f1 23 46 |...-.Z%=1.25:.#F|
00035200 25 2c 53 61 6c 65 64 52 5f 24 28 5a 25 29 2c 50 |%,SaledR_$(Z%),P|
00035210 61 6c 65 64 52 5f 24 28 5a 25 29 3a ed 0d bd c4 |aledR_$(Z%):....|
00035220 2d e3 5a 25 3d 31 b8 31 37 3a f1 23 46 25 2c 53 |-.Z%=1.17:.#F%,S|
00035230 61 6c 65 64 52 5f 25 28 5a 25 29 2c 50 61 6c 65 |aledR_%(Z%),Pale|
00035240 64 52 5f 25 28 5a 25 29 3a ed 0d bd c9 20 e3 5a |dR_%(Z%):.... .Z|
00035250 25 3d 31 b8 31 35 3a f1 23 46 25 2c 42 61 6c 65 |%=1.15:.#F%,Bale|
00035260 64 52 5f 24 28 5a 25 29 3a ed 0d bd ce 20 e3 5a |dR_$(Z%):.... .Z|
00035270 25 3d 31 b8 31 31 3a f1 23 46 25 2c 42 61 6c 65 |%=1.11:.#F%,Bale|
00035280 64 52 5f 25 28 5a 25 29 3a ed 0d bd d3 29 e3 5a |dR_%(Z%):....).Z|
00035290 25 3d 30 b8 34 34 3a f1 23 46 25 2c 56 61 74 52 |%=0.44:.#F%,VatR|
000352a0 5f 24 28 5a 25 29 2c 56 61 74 54 5f 25 28 5a 25 |_$(Z%),VatT_%(Z%|
000352b0 29 3a ed 0d bd d8 36 e3 5a 25 3d 30 b8 31 30 3a |):....6.Z%=0.10:|
000352c0 f1 23 46 25 2c 56 61 74 43 5f 24 28 5a 25 29 2c |.#F%,VatC_$(Z%),|
000352d0 56 61 74 43 5f 25 28 5a 25 29 3a ed 3a f1 23 46 |VatC_%(Z%):.:.#F|
000352e0 25 2c 70 61 73 73 38 5f 24 0d bd dd 22 f1 23 46 |%,pass8_$...".#F|
000352f0 25 2c 70 72 65 66 6e 5f 25 2c 70 72 65 66 79 65 |%,prefn_%,prefye|
00035300 5f 25 2c 54 72 5f 5f 24 28 31 29 0d bd e2 3d e3 |_%,Tr__$(1)...=.|
00035310 5a 25 3d 30 b8 49 4f 69 63 6f 6e 73 25 3a f1 23 |Z%=0.IOicons%:.#|
00035320 46 25 2c 69 6e 76 31 31 5f 25 28 5a 25 29 2c 69 |F%,inv11_%(Z%),i|
00035330 6e 76 32 32 5f 25 28 5a 25 29 2c 69 6e 76 33 33 |nv22_%(Z%),inv33|
00035340 5f 25 28 5a 25 29 3a ed 0d bd e7 5b f1 23 46 25 |_%(Z%):....[.#F%|
00035350 2c 58 70 61 67 78 5f 25 2c 58 70 61 67 79 5f 25 |,Xpagx_%,Xpagy_%|
00035360 2c 58 6e 61 6d 5f 25 2c 58 66 6f 6e 5f 78 25 2c |,Xnam_%,Xfon_x%,|
00035370 58 66 6f 6e 5f 79 25 2c 58 61 73 70 61 63 5f 25 |Xfon_y%,Xaspac_%|
00035380 2c 58 61 74 61 62 5f 25 2c 58 6e 61 6d 5f 24 2c |,Xatab_%,Xnam_$,|
00035390 58 61 34 5f 25 2c 58 75 73 5f 25 2c 58 63 75 73 |Xa4_%,Xus_%,Xcus|
000353a0 74 5f 25 0d bd ec 32 f1 23 46 25 2c 53 74 61 74 |t_%...2.#F%,Stat|
000353b0 31 5f 24 2c 53 74 61 74 32 5f 24 2c 53 74 61 74 |1_$,Stat2_$,Stat|
000353c0 33 5f 24 2c 53 42 65 73 74 50 5f 25 2c 53 42 65 |3_$,SBestP_%,SBe|
000353d0 73 74 46 5f 25 0d bd ee 19 f1 23 46 25 2c 2d 31 |stF_%.....#F%,-1|
000353e0 3a f4 20 53 49 4f 6a 75 73 74 20 65 74 63 0d bd |:. SIOjust etc..|
000353f0 f6 32 f1 23 46 25 2c 53 49 4f 62 6f 72 64 65 72 |.2.#F%,SIOborder|
00035400 25 2c 53 49 4f 72 75 6c 65 72 25 2c 53 49 4f 64 |%,SIOruler%,SIOd|
00035410 73 69 7a 65 5f 25 2c 53 49 4f 64 67 61 70 5f 25 |size_%,SIOdgap_%|
00035420 0d bd fb 36 f1 23 46 25 2c 53 49 4f 61 34 5f 25 |...6.#F%,SIOa4_%|
00035430 2c 53 49 4f 75 73 5f 25 2c 53 49 4f 63 75 73 74 |,SIOus_%,SIOcust|
00035440 5f 25 2c 53 49 4f 70 61 67 78 5f 25 2c 53 49 4f |_%,SIOpagx_%,SIO|
00035450 70 61 67 79 5f 25 0d be 00 19 e3 5a 25 3d 30 b8 |pagy_%.....Z%=0.|
00035460 33 39 39 36 88 34 3a f1 23 46 25 2c 30 3a ed 0d |3996.4:.#F%,0:..|
00035470 be 05 84 e3 5a 25 3d 31 b8 6d 61 78 54 5f 25 2a |....Z%=1.maxT_%*|
00035480 73 69 74 69 70 5f 25 2a 73 69 74 69 66 5f 25 3a |sitip_%*sitif_%:|
00035490 f1 23 46 25 2c 54 49 54 65 5f 24 28 5a 25 29 3a |.#F%,TITe_$(Z%):|
000354a0 ed 3a e3 5a 25 3d 30 b8 73 69 74 69 6e 5f 25 2d |.:.Z%=0.sitin_%-|
000354b0 31 3a f1 23 46 25 2c 54 49 54 65 70 5f 24 28 5a |1:.#F%,TITep_$(Z|
000354c0 25 29 3a ed 3a e3 5a 25 3d 30 b8 73 69 74 69 70 |%):.:.Z%=0.sitip|
000354d0 5f 25 2a 33 3a f1 23 46 25 2c 54 49 54 61 70 5f |_%*3:.#F%,TITap_|
000354e0 24 28 5a 25 29 3a ed 3a f1 23 46 25 2c 74 69 74 |$(Z%):.:.#F%,tit|
000354f0 70 5f 25 0d be 0a 8d e3 5a 25 3d 30 b8 6d 61 78 |p_%.....Z%=0.max|
00035500 54 5f 25 2a 73 69 74 69 70 5f 25 3a f1 23 46 25 |T_%*sitip_%:.#F%|
00035510 2c 54 49 54 61 5f 24 28 5a 25 29 2c 54 49 54 68 |,TITa_$(Z%),TITh|
00035520 5f 24 28 5a 25 29 2c 54 49 54 73 5f 24 28 5a 25 |_$(Z%),TITs_$(Z%|
00035530 29 2c 54 49 54 65 5f 25 28 5a 25 29 2c 54 49 54 |),TITe_%(Z%),TIT|
00035540 6e 5f 25 28 5a 25 29 3a ed 3a f1 23 46 25 2c 53 |n_%(Z%):.:.#F%,S|
00035550 61 76 65 61 42 5f 24 2c 54 6e 61 6d 5f 24 3a e3 |aveaB_$,Tnam_$:.|
00035560 5a 25 3d 30 b8 31 32 3a f1 23 46 25 2c 45 73 5f |Z%=0.12:.#F%,Es_|
00035570 24 28 5a 25 29 2c 45 63 5f 24 28 5a 25 29 3a ed |$(Z%),Ec_$(Z%):.|
00035580 0d be 0f 33 e3 5a 25 3d 30 b8 33 39 39 3a f1 23 |...3.Z%=0.399:.#|
00035590 46 25 2c 62 6c 5f 24 28 30 29 3a ed 3a f1 23 46 |F%,bl_$(0):.:.#F|
000355a0 25 2c 70 61 73 73 41 5f 24 3a f4 20 50 26 4c 20 |%,passA_$:. P&L |
000355b0 65 74 63 0d be 14 52 e3 5a 25 3d 30 b8 34 37 39 |etc...R.Z%=0.479|
000355c0 88 35 3a f1 23 46 25 2c 53 68 65 61 64 74 31 5f |.5:.#F%,Sheadt1_|
000355d0 25 28 5a 25 29 2c 53 68 65 61 64 74 31 5f 25 28 |%(Z%),Sheadt1_%(|
000355e0 5a 25 2b 31 29 2c 50 68 65 61 64 74 31 5f 25 28 |Z%+1),Pheadt1_%(|
000355f0 5a 25 29 2c 50 68 65 61 64 74 31 5f 25 28 5a 25 |Z%),Pheadt1_%(Z%|
00035600 2b 31 29 3a ed 0d be 19 36 e3 5a 25 3d 30 b8 31 |+1):....6.Z%=0.1|
00035610 30 3a f1 23 46 25 2c 57 61 74 43 5f 24 28 5a 25 |0:.#F%,WatC_$(Z%|
00035620 29 2c 57 61 74 43 5f 25 28 5a 25 29 3a ed 3a f1 |),WatC_%(Z%):.:.|
00035630 23 46 25 2c 70 61 73 73 39 5f 24 0d be 1e 1d e3 |#F%,pass9_$.....|
00035640 5a 25 3d 30 b8 31 31 3a f1 23 46 25 2c 62 6c 31 |Z%=0.11:.#F%,bl1|
00035650 5f 25 28 5a 25 29 3a ed 0d be 23 9f e3 5a 25 3d |_%(Z%):...#..Z%=|
00035660 30 b8 31 36 3a f1 23 46 25 2c 70 63 5f 24 28 5a |0.16:.#F%,pc_$(Z|
00035670 25 29 3a ed 3a f1 23 46 25 2c 70 72 65 66 73 31 |%):.:.#F%,prefs1|
00035680 5f 25 2c 70 72 65 66 73 6e 31 5f 25 3a e3 5a 25 |_%,prefsn1_%:.Z%|
00035690 3d 31 37 b8 31 39 3a f1 23 46 25 2c 70 63 5f 24 |=17.19:.#F%,pc_$|
000356a0 28 5a 25 29 3a ed 3a f1 23 46 25 2c 70 72 65 66 |(Z%):.:.#F%,pref|
000356b0 73 32 5f 25 2c 70 72 65 66 73 6e 32 5f 25 2c 43 |s2_%,prefsn2_%,C|
000356c0 5f 25 2c 53 5f 25 2c 43 53 5f 25 2c 49 54 6c 6c |_%,S_%,CS_%,ITll|
000356d0 5f 25 2c 6c 6d 5f 25 2c 74 6d 5f 25 3a e3 5a 25 |_%,lm_%,tm_%:.Z%|
000356e0 3d 30 b8 41 25 3a f1 23 46 25 2c 53 74 48 64 5f |=0.A%:.#F%,StHd_|
000356f0 24 28 5a 25 29 3a ed 0d be 2d 0d d9 23 46 25 3a |$(Z%):...-..#F%:|
00035700 46 25 3d 30 0d be 32 20 ff 28 22 53 45 54 54 59 |F%=0..2 .("SETTY|
00035710 50 45 20 22 2b 74 6e 61 6d 65 5f 24 2b 22 20 43 |PE "+tname_$+" C|
00035720 38 38 22 29 0d be 37 0c c8 99 26 34 30 36 43 31 |88")..7...&406C1|
00035730 0d be 3c 2f e7 73 61 76 65 25 3e 30 3a e7 21 62 |..</.save%>0:.!b|
00035740 25 3c 3e 31 3a f2 73 77 5f 28 73 61 76 65 25 29 |%<>1:.sw_(save%)|
00035750 3a f2 63 6c 6f 73 65 57 28 73 61 76 65 25 29 0d |:.closeW(save%).|
00035760 be 41 1e 73 61 5f 25 3d 30 3a f2 69 6e 69 74 65 |.A.sa_%=0:.inite|
00035770 64 69 74 5f 3a 3d 74 6e 61 6d 65 5f 24 0d be 46 |dit_:=tname_$..F|
00035780 04 0d be 4b 14 dd f2 72 65 6c 6f 61 64 70 72 6f |...K...reloadpro|
00035790 70 68 65 74 5f 0d be 50 17 f2 6c 6f 61 64 5f 28 |phet_..P..load_(|
000357a0 6d 6f 72 65 6d 65 6d 5f 24 2c 31 29 0d be 55 05 |moremem_$,1)..U.|
000357b0 e1 0d be 5a 04 0d be 5f 1d dd f2 75 70 73 74 61 |...Z..._...upsta|
000357c0 6e 64 5f 3a e7 70 72 65 66 6f 73 5f 25 3d 2d 31 |nd_:.prefos_%=-1|
000357d0 8c e1 0d be 64 36 ea 20 41 25 2c 42 25 2c 43 25 |....d6. A%,B%,C%|
000357e0 2c 44 25 2c 45 25 2c 46 5f 25 2c 47 25 2c 48 25 |,D%,E%,F_%,G%,H%|
000357f0 2c 5a 25 2c 41 24 2c 42 24 2c 43 24 2c 6c 5f 25 |,Z%,A$,B$,C$,l_%|
00035800 2c 61 5f 25 2c 62 5f 25 0d be 69 32 c8 99 26 34 |,a_%,b_%..i2..&4|
00035810 30 36 43 30 3a 6c 61 73 74 70 6f 73 5f 25 3d 30 |06C0:lastpos_%=0|
00035820 3a 6c 61 73 74 70 6f 73 31 5f 25 3d 30 3a 6c 61 |:lastpos1_%=0:la|
00035830 73 74 70 6f 73 32 5f 25 3d 30 0d be 6e 30 e3 5a |stpos2_%=0..n0.Z|
00035840 25 3d 30 b8 6d 61 78 54 5f 25 2a 73 69 74 69 70 |%=0.maxT_%*sitip|
00035850 5f 25 2d 31 3a 42 24 3d 22 22 3a 46 5f 25 3d 30 |_%-1:B$="":F_%=0|
00035860 3a 45 25 3d 30 3a 48 25 3d 31 0d be 73 1b 41 24 |:E%=0:H%=1..s.A$|
00035870 3d 54 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 66 |=TITe_$(Z%*sitif|
00035880 5f 25 2b 32 29 0d be 78 15 43 25 3d bb 28 41 24 |_%+2)..x.C%=.(A$|
00035890 29 3a f4 20 6e 75 6d 62 65 72 0d be 7d 31 43 24 |):. number..}1C$|
000358a0 3d 54 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 66 |=TITe_$(Z%*sitif|
000358b0 5f 25 2b 31 29 3a e7 43 24 3c 3e 22 22 80 a9 28 |_%+1):.C$<>""..(|
000358c0 43 24 29 3c 31 30 8c 48 25 3d 32 0d be 82 17 e7 |C$)<10.H%=2.....|
000358d0 43 24 3d 22 22 8c 54 49 54 6e 5f 25 28 5a 25 29 |C$="".TITn_%(Z%)|
000358e0 3d 30 0d be 87 2b 47 25 3d 54 49 54 6e 5f 25 28 |=0...+G%=TITn_%(|
000358f0 5a 25 29 3a f4 20 6e 75 6d 62 65 72 20 61 6c 72 |Z%):. number alr|
00035900 65 61 64 79 20 69 6e 73 65 72 74 65 64 0d be 8c |eady inserted...|
00035910 17 42 25 3d a4 4a 75 6c 5f 28 43 24 29 3a f4 20 |.B%=.Jul_(C$):. |
00035920 64 61 74 65 0d be 91 27 e7 54 49 54 65 5f 25 28 |date...'.TITe_%(|
00035930 5a 25 29 3d 31 8c 6c 5f 25 3d 33 20 8b 6c 5f 25 |Z%)=1.l_%=3 .l_%|
00035940 3d 34 3a f4 20 6c 65 64 67 65 72 0d be 96 21 44 |=4:. ledger...!D|
00035950 25 3d a7 41 24 2c 22 44 22 29 3a e7 44 25 3d 30 |%=.A$,"D"):.D%=0|
00035960 8c 44 25 3d a7 41 24 2c 22 64 22 29 0d be 9b 1f |.D%=.A$,"d")....|
00035970 e7 44 25 8c 42 24 3d 22 44 22 3a 46 5f 25 3d bb |.D%.B$="D":F_%=.|
00035980 28 c1 41 24 2c 44 25 2b 31 29 29 0d be a0 21 44 |(.A$,D%+1))...!D|
00035990 25 3d a7 41 24 2c 22 4d 22 29 3a e7 44 25 3d 30 |%=.A$,"M"):.D%=0|
000359a0 8c 44 25 3d a7 41 24 2c 22 6d 22 29 0d be a5 1f |.D%=.A$,"m")....|
000359b0 e7 44 25 8c 42 24 3d 22 4d 22 3a 46 5f 25 3d bb |.D%.B$="M":F_%=.|
000359c0 28 c1 41 24 2c 44 25 2b 31 29 29 0d be aa 21 44 |(.A$,D%+1))...!D|
000359d0 25 3d a7 41 24 2c 22 59 22 29 3a e7 44 25 3d 30 |%=.A$,"Y"):.D%=0|
000359e0 8c 44 25 3d a7 41 24 2c 22 79 22 29 0d be af 1f |.D%=.A$,"y")....|
000359f0 e7 44 25 8c 42 24 3d 22 59 22 3a 46 5f 25 3d bb |.D%.B$="Y":F_%=.|
00035a00 28 c1 41 24 2c 44 25 2b 31 29 29 0d be b4 22 e7 |(.A$,D%+1))...".|
00035a10 42 24 3d 22 44 22 80 47 25 3c 43 25 80 42 25 3e |B$="D".G%<C%.B%>|
00035a20 30 80 46 5f 25 3e 30 80 48 25 3d 31 8c 0d be b9 |0.F_%>0.H%=1....|
00035a30 0e 42 25 2b 3d 46 5f 25 2a 47 25 0d be be 0f e3 |.B%+=F_%*G%.....|
00035a40 41 25 3d 47 25 b8 43 25 2d 31 0d be c3 0f e7 42 |A%=G%.C%-1.....B|
00035a50 25 3c 3d 64 61 79 5f 25 8c 0d be c8 2f 48 25 3d |%<=day_%..../H%=|
00035a60 a4 69 6e 73 74 61 6e 64 5f 28 5a 25 2c 42 25 2c |.instand_(Z%,B%,|
00035a70 6c 5f 25 29 3a e7 48 25 3d b9 3a 54 49 54 6e 5f |l_%):.H%=.:TITn_|
00035a80 25 28 5a 25 29 2b 3d 31 0d be cd 05 cc 0d be d2 |%(Z%)+=1........|
00035a90 09 41 25 3d 43 25 0d be d7 05 cd 0d be dc 24 e7 |.A%=C%........$.|
00035aa0 48 25 3d a3 20 8c 41 25 3d 43 25 3a 5a 25 3d 6d |H%=. .A%=C%:Z%=m|
00035ab0 61 78 54 5f 25 2a 73 69 74 69 70 5f 25 2d 31 0d |axT_%*sitip_%-1.|
00035ac0 be e1 0b 42 25 2b 3d 46 5f 25 0d be e6 05 ed 0d |...B%+=F_%......|
00035ad0 be eb 05 cd 0d be f0 22 e7 42 24 3d 22 4d 22 80 |.......".B$="M".|
00035ae0 47 25 3c 43 25 80 42 25 3e 30 80 46 5f 25 3e 30 |G%<C%.B%>0.F_%>0|
00035af0 80 48 25 3d 31 8c 0d be f5 28 61 5f 25 3d bb 28 |.H%=1....(a_%=.(|
00035b00 c1 43 24 2c 34 2c 32 29 29 2b 46 5f 25 2a 47 25 |.C$,4,2))+F_%*G%|
00035b10 3a 62 5f 25 3d bb 28 c2 43 24 2c 34 29 29 0d be |:b_%=.(.C$,4))..|
00035b20 fa 22 e7 61 5f 25 3e 31 32 8c 62 5f 25 2b 3d 61 |.".a_%>12.b_%+=a|
00035b30 5f 25 2f 31 32 3a 61 5f 25 3d 61 5f 25 83 31 32 |_%/12:a_%=a_%.12|
00035b40 0d be ff 0f e3 41 25 3d 47 25 b8 43 25 2d 31 0d |.....A%=G%.C%-1.|
00035b50 bf 04 36 41 24 3d a4 63 68 64 61 74 65 5f 28 c0 |..6A$=.chdate_(.|
00035b60 43 24 2c 33 29 2b c3 28 61 5f 25 29 2b 22 2e 22 |C$,3)+.(a_%)+"."|
00035b70 2b c3 28 62 5f 25 29 29 3a 42 25 3d a4 4a 75 6c |+.(b_%)):B%=.Jul|
00035b80 5f 28 41 24 29 0d bf 09 0f e7 42 25 3c 3d 64 61 |_(A$).....B%<=da|
00035b90 79 5f 25 8c 0d bf 0e 2f 48 25 3d a4 69 6e 73 74 |y_%..../H%=.inst|
00035ba0 61 6e 64 5f 28 5a 25 2c 42 25 2c 6c 5f 25 29 3a |and_(Z%,B%,l_%):|
00035bb0 e7 48 25 3d b9 3a 54 49 54 6e 5f 25 28 5a 25 29 |.H%=.:TITn_%(Z%)|
00035bc0 2b 3d 31 0d bf 13 05 cc 0d bf 18 09 41 25 3d 43 |+=1.........A%=C|
00035bd0 25 0d bf 1d 05 cd 0d bf 22 24 e7 48 25 3d a3 20 |%......."$.H%=. |
00035be0 8c 41 25 3d 43 25 3a 5a 25 3d 6d 61 78 54 5f 25 |.A%=C%:Z%=maxT_%|
00035bf0 2a 73 69 74 69 70 5f 25 2d 31 0d bf 27 2b 61 5f |*sitip_%-1..'+a_|
00035c00 25 2b 3d 46 5f 25 3a e7 61 5f 25 3e 31 32 8c 62 |%+=F_%:.a_%>12.b|
00035c10 5f 25 2b 3d 61 5f 25 2f 31 32 3a 61 5f 25 3d 61 |_%+=a_%/12:a_%=a|
00035c20 5f 25 83 31 32 0d bf 2c 05 ed 0d bf 31 05 cd 0d |_%.12..,....1...|
00035c30 bf 36 22 e7 42 24 3d 22 59 22 80 47 25 3c 43 25 |.6".B$="Y".G%<C%|
00035c40 80 42 25 3e 30 80 46 5f 25 3e 30 80 48 25 3d 31 |.B%>0.F_%>0.H%=1|
00035c50 8c 0d bf 3b 18 62 5f 25 3d bb 28 c2 43 24 2c 34 |...;.b_%=.(.C$,4|
00035c60 29 29 2b 46 5f 25 2a 47 25 0d bf 40 0f e3 41 25 |))+F_%*G%..@..A%|
00035c70 3d 47 25 b8 43 25 2d 31 0d bf 45 2b 41 24 3d a4 |=G%.C%-1..E+A$=.|
00035c80 63 68 64 61 74 65 5f 28 c0 43 24 2c 36 29 2b c3 |chdate_(.C$,6)+.|
00035c90 28 62 5f 25 29 29 3a 42 25 3d a4 4a 75 6c 5f 28 |(b_%)):B%=.Jul_(|
00035ca0 41 24 29 0d bf 4a 0f e7 42 25 3c 3d 64 61 79 5f |A$)..J..B%<=day_|
00035cb0 25 8c 0d bf 4f 2f 48 25 3d a4 69 6e 73 74 61 6e |%...O/H%=.instan|
00035cc0 64 5f 28 5a 25 2c 42 25 2c 6c 5f 25 29 3a e7 48 |d_(Z%,B%,l_%):.H|
00035cd0 25 3d b9 3a 54 49 54 6e 5f 25 28 5a 25 29 2b 3d |%=.:TITn_%(Z%)+=|
00035ce0 31 0d bf 54 05 cc 0d bf 59 09 41 25 3d 43 25 0d |1..T....Y.A%=C%.|
00035cf0 bf 5e 05 cd 0d bf 63 24 e7 48 25 3d a3 20 8c 41 |.^....c$.H%=. .A|
00035d00 25 3d 43 25 3a 5a 25 3d 6d 61 78 54 5f 25 2a 73 |%=C%:Z%=maxT_%*s|
00035d10 69 74 69 70 5f 25 2d 31 0d bf 68 0c 62 5f 25 2b |itip_%-1..h.b_%+|
00035d20 3d 46 5f 25 0d bf 6d 05 ed 0d bf 72 05 cd 0d bf |=F_%..m....r....|
00035d30 77 1d e7 48 25 3d 32 8c 5a 25 3d 6d 61 78 54 5f |w..H%=2.Z%=maxT_|
00035d40 25 2a 73 69 74 69 70 5f 25 2d 31 0d bf 7c 05 ed |%*sitip_%-1..|..|
00035d50 0d bf 81 0c c8 99 26 34 30 36 43 31 0d bf 86 72 |......&406C1...r|
00035d60 e7 48 25 3d 32 8c f2 70 65 5f 28 22 43 68 65 63 |.H%=2..pe_("Chec|
00035d70 6b 20 79 6f 75 72 20 73 74 61 6e 64 69 6e 67 20 |k your standing |
00035d80 6f 72 64 65 72 73 2c 20 61 20 64 61 74 65 20 69 |orders, a date i|
00035d90 73 20 6e 6f 74 20 63 6f 72 72 65 63 74 2e 20 55 |s not correct. U|
00035da0 70 64 61 74 65 20 73 75 73 70 65 6e 64 65 64 20 |pdate suspended |
00035db0 75 6e 74 69 6c 20 79 6f 75 20 6e 65 78 74 20 6c |until you next l|
00035dc0 6f 61 64 20 74 68 65 20 66 69 6c 65 22 29 0d bf |oad the file")..|
00035dd0 8b 05 e1 0d bf 90 04 0d bf 95 d9 dd a4 69 6e 73 |.............ins|
00035de0 74 61 6e 64 5f 28 5a 25 2c 42 25 2c 41 25 29 3a |tand_(Z%,B%,A%):|
00035df0 6f 6c 64 64 61 74 61 5f 24 28 30 29 3d a4 66 69 |olddata_$(0)=.fi|
00035e00 6e 64 44 61 74 65 28 42 25 29 3a 6f 6c 64 64 61 |ndDate(B%):oldda|
00035e10 74 61 5f 24 28 31 29 3d c2 6f 6c 64 64 61 74 61 |ta_$(1)=.olddata|
00035e20 5f 24 28 30 29 2c 37 29 3a 6f 6c 64 64 61 74 61 |_$(0),7):olddata|
00035e30 5f 24 28 32 29 3d 54 49 54 65 5f 24 28 5a 25 2a |_$(2)=TITe_$(Z%*|
00035e40 73 69 74 69 66 5f 25 2b 33 29 3a 6f 6c 64 64 61 |sitif_%+3):oldda|
00035e50 74 61 5f 24 28 33 29 3d 54 49 54 65 5f 24 28 5a |ta_$(3)=TITe_$(Z|
00035e60 25 2a 73 69 74 69 66 5f 25 2b 34 29 3a 6f 6c 64 |%*sitif_%+4):old|
00035e70 64 61 74 61 5f 24 28 34 29 3d 54 49 54 65 5f 24 |data_$(4)=TITe_$|
00035e80 28 5a 25 2a 73 69 74 69 66 5f 25 2b 35 29 3a 6f |(Z%*sitif_%+5):o|
00035e90 6c 64 64 61 74 61 5f 24 28 35 29 3d 54 49 54 65 |lddata_$(5)=TITe|
00035ea0 5f 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b 36 29 |_$(Z%*sitif_%+6)|
00035eb0 0d bf 9a c7 6f 6c 64 64 61 74 61 5f 24 28 36 29 |....olddata_$(6)|
00035ec0 3d 54 49 54 65 5f 24 28 5a 25 2a 73 69 74 69 66 |=TITe_$(Z%*sitif|
00035ed0 5f 25 2b 37 29 3a 6f 6c 64 64 61 74 61 5f 24 28 |_%+7):olddata_$(|
00035ee0 37 29 3d 54 49 54 65 5f 24 28 5a 25 2a 73 69 74 |7)=TITe_$(Z%*sit|
00035ef0 69 66 5f 25 2b 38 29 3a 6f 6c 64 64 61 74 61 5f |if_%+8):olddata_|
00035f00 24 28 38 29 3d 54 49 54 65 5f 24 28 5a 25 2a 73 |$(8)=TITe_$(Z%*s|
00035f10 69 74 69 66 5f 25 2b 39 29 3a 6f 6c 64 64 61 74 |itif_%+9):olddat|
00035f20 61 5f 24 28 39 29 3d 54 49 54 65 5f 24 28 5a 25 |a_$(9)=TITe_$(Z%|
00035f30 2a 73 69 74 69 66 5f 25 2b 31 30 29 3a 6f 6c 64 |*sitif_%+10):old|
00035f40 64 61 74 61 5f 24 28 31 30 29 3d 54 49 54 65 5f |data_$(10)=TITe_|
00035f50 24 28 5a 25 2a 73 69 74 69 66 5f 25 2b 31 31 29 |$(Z%*sitif_%+11)|
00035f60 3a 3d a4 73 61 76 65 73 61 6c 65 73 6c 65 64 67 |:=.savesalesledg|
00035f70 65 72 5f 28 41 25 29 0d bf 9f 04 0d bf a4 4f dd |er_(A%).......O.|
00035f80 a4 73 74 72 69 70 5f 28 41 5f 24 29 3a e7 c2 41 |.strip_(A_$):..A|
00035f90 5f 24 29 3d 22 20 22 84 c2 41 5f 24 29 3d bd 28 |_$)=" "..A_$)=.(|
00035fa0 30 29 8c f5 3a 41 5f 24 3d c0 41 5f 24 2c a9 28 |0)..:A_$=.A_$,.(|
00035fb0 41 5f 24 29 2d 31 29 3a fd c2 41 5f 24 29 3c 3e |A_$)-1):..A_$)<>|
00035fc0 22 20 22 84 41 5f 24 3d 22 22 0d bf a9 08 3d 41 |" ".A_$=""....=A|
00035fd0 5f 24 0d bf ae 04 0d bf b3 49 dd f2 6c 6f 61 64 |_$.......I..load|
00035fe0 5f 28 74 65 6d 5f 24 2c 6e 5f 25 29 3a e7 6e 5f |_(tem_$,n_%):.n_|
00035ff0 25 3d 30 8c f2 70 65 5f 28 22 50 6c 65 61 73 65 |%=0..pe_("Please|
00036000 20 71 75 69 74 20 50 72 6f 70 68 65 74 20 61 6e | quit Prophet an|
00036010 64 20 74 72 79 20 61 67 61 69 6e 22 29 3a e1 0d |d try again"):..|
00036020 bf b8 0c c8 99 26 34 30 36 43 30 0d bf bd 52 ea |.....&406C0...R.|
00036030 20 41 25 2c 46 25 2c 5a 25 2c 42 25 2c 43 25 2c | A%,F%,Z%,B%,C%,|
00036040 45 25 2c 5a 5f 25 2c 61 5f 24 2c 61 5f 25 2c 62 |E%,Z_%,a_$,a_%,b|
00036050 5f 25 2c 63 5f 25 2c 41 5f 25 2c 42 5f 25 2c 61 |_%,c_%,A_%,B_%,a|
00036060 61 5f 25 2c 43 63 5f 25 2c 44 5f 25 2c 45 5f 25 |a_%,Cc_%,D_%,E_%|
00036070 2c 6c 5f 25 2c 74 69 5f 25 2c 61 5f 24 0d bf c2 |,l_%,ti_%,a_$...|
00036080 07 ea 20 85 0d bf c7 3b ee 20 85 20 ea 3a f7 20 |.. ....;. . .:. |
00036090 85 3a c8 99 26 34 30 36 43 31 3a 4f 65 72 72 5f |.:..&406C1:Oerr_|
000360a0 25 3d 31 3a f2 70 65 31 5f 28 a4 65 72 72 5f 2c |%=1:.pe1_(.err_,|
000360b0 46 25 29 3a f2 43 75 70 6c 73 75 70 5f 3a e1 0d |F%):.Cuplsup_:..|
000360c0 bf cc 1f 46 25 3d 30 3a 46 25 3d ad 28 74 65 6d |...F%=0:F%=.(tem|
000360d0 5f 24 29 3a 6c 5f 25 3d a2 23 28 46 25 29 0d bf |_$):l_%=.#(F%)..|
000360e0 d1 19 c8 99 26 34 30 36 43 34 2c 8f 23 46 25 2f |....&406C4,.#F%/|
000360f0 6c 5f 25 2a 31 30 30 0d bf d6 45 e8 23 46 25 2c |l_%*100...E.#F%,|
00036100 42 25 2c 43 25 2c 45 25 2c 4f 6d 61 78 73 74 5f |B%,C%,E%,Omaxst_|
00036110 25 2c 4f 6d 61 78 73 75 5f 25 2c 43 4f 6d 61 78 |%,Omaxsu_%,COmax|
00036120 73 75 5f 25 2c 4f 6d 61 78 53 5f 25 2c 4f 6d 61 |su_%,OmaxS_%,Oma|
00036130 78 50 5f 25 2c 4f 6d 61 78 42 5f 25 0d bf db 1c |xP_%,OmaxB_%....|
00036140 e7 a4 69 6d 5f 28 46 25 2c 74 65 6d 5f 24 29 3d |..im_(F%,tem_$)=|
00036150 31 8c 46 25 3d 30 3a e1 0d bf e0 65 4d 5f 25 3d |1.F%=0:....eM_%=|
00036160 4f 6d 61 78 73 74 5f 25 3a 6d 61 78 73 75 70 70 |Omaxst_%:maxsupp|
00036170 5f 25 3d 4f 6d 61 78 73 75 5f 25 3a 43 6d 61 78 |_%=Omaxsu_%:Cmax|
00036180 73 75 70 70 5f 25 3d 43 4f 6d 61 78 73 75 5f 25 |supp_%=COmaxsu_%|
00036190 3a 6d 61 78 53 5f 25 3d 4f 6d 61 78 53 5f 25 3a |:maxS_%=OmaxS_%:|
000361a0 6d 61 78 50 5f 25 3d 4f 6d 61 78 50 5f 25 3a 6d |maxP_%=OmaxP_%:m|
000361b0 61 78 42 5f 25 3d 4f 6d 61 78 42 5f 25 0d bf e5 |axB_%=OmaxB_%...|
000361c0 55 e3 5a 25 3d 30 b8 39 3a e8 23 46 25 2c 4e 65 |U.Z%=0.9:.#F%,Ne|
000361d0 77 50 72 65 66 5f 25 28 5a 25 29 3a ed 3a e7 4e |wPref_%(Z%):.:.N|
000361e0 65 77 50 72 65 66 5f 25 28 33 29 3c 31 32 38 3a |ewPref_%(3)<128:|
000361f0 74 69 5f 25 3d 35 36 3a 74 69 31 5f 25 3d 34 31 |ti_%=56:ti1_%=41|
00036200 20 8b 74 69 5f 25 3d 35 37 3a 74 69 31 5f 25 3d | .ti_%=57:ti1_%=|
00036210 34 32 0d bf ea 78 e7 4e 65 77 50 72 65 66 5f 25 |42...x.NewPref_%|
00036220 28 33 29 3c 3e 76 5f 25 3a c8 99 26 34 30 36 43 |(3)<>v_%:..&406C|
00036230 31 3a f2 70 65 31 5f 28 22 45 52 52 4f 52 3a 20 |1:.pe1_("ERROR: |
00036240 54 68 69 73 20 69 73 20 6e 6f 74 20 61 20 66 69 |This is not a fi|
00036250 6c 65 20 63 72 65 61 74 65 64 20 62 79 20 50 72 |le created by Pr|
00036260 6f 70 68 65 74 20 4c 69 74 65 2c 20 69 74 20 68 |ophet Lite, it h|
00036270 61 73 20 6e 6f 74 20 62 65 65 6e 20 6c 6f 61 64 |as not been load|
00036280 65 64 2e 22 2c 46 25 29 3a e1 0d bf ef 5b 53 4c |ed.",F%):....[SL|
00036290 64 65 62 5f 25 3d 4e 65 77 50 72 65 66 5f 25 28 |deb_%=NewPref_%(|
000362a0 34 29 3a 43 53 4c 64 65 62 5f 25 3d 4e 65 77 50 |4):CSLdeb_%=NewP|
000362b0 72 65 66 5f 25 28 35 29 3a e7 53 4c 64 65 62 5f |ref_%(5):.SLdeb_|
000362c0 25 3d 30 84 43 53 4c 64 65 62 5f 25 3d 30 8c 53 |%=0.CSLdeb_%=0.S|
000362d0 4c 64 65 62 5f 25 3d 2d 31 3a 43 53 4c 64 65 62 |Ldeb_%=-1:CSLdeb|
000362e0 5f 25 3d 2d 31 0d bf f4 2e 70 72 65 66 73 5f 25 |_%=-1....prefs_%|
000362f0 3d 4e 65 77 50 72 65 66 5f 25 28 36 29 3a e7 70 |=NewPref_%(6):.p|
00036300 72 65 66 73 5f 25 3d 30 3a 70 72 65 66 73 5f 25 |refs_%=0:prefs_%|
00036310 3d 2d 31 0d bf f9 30 70 72 65 66 6f 73 5f 25 3d |=-1...0prefos_%=|
00036320 4e 65 77 50 72 65 66 5f 25 28 38 29 3a e7 70 72 |NewPref_%(8):.pr|
00036330 65 66 6f 73 5f 25 3d 30 3a 70 72 65 66 6f 73 5f |efos_%=0:prefos_|
00036340 25 3d 31 0d bf fe 25 50 6c 5f 25 3d 4e 65 77 50 |%=1...%Pl_%=NewP|
00036350 72 65 66 5f 25 28 39 29 3a e7 50 6c 5f 25 3d 30 |ref_%(9):.Pl_%=0|
00036360 3a 50 6c 5f 25 3d 2d 31 0d c0 03 45 70 72 65 66 |:Pl_%=-1...Epref|
00036370 73 6e 5f 25 3d 2d 70 72 65 66 73 5f 25 3a 70 72 |sn_%=-prefs_%:pr|
00036380 65 66 73 6f 6e 5f 25 3d 2d 70 72 65 66 6f 73 5f |efson_%=-prefos_|
00036390 25 3a e3 5a 25 3d 30 b8 32 33 3a e8 23 46 25 2c |%:.Z%=0.23:.#F%,|
000363a0 49 6e 64 65 78 5f 24 28 5a 25 29 3a ed 0d c0 08 |Index_$(Z%):....|
000363b0 34 e3 5a 25 3d 30 b8 34 37 3a e8 23 46 25 2c 42 |4.Z%=0.47:.#F%,B|
000363c0 65 73 74 5f 24 28 5a 25 29 3a ed 3a c8 99 26 34 |est_$(Z%):.:..&4|
000363d0 30 36 43 34 2c 8f 23 46 25 2f 6c 5f 25 2a 31 30 |06C4,.#F%/l_%*10|
000363e0 30 0d c0 0d 1a e3 5a 25 3d 30 b8 33 39 39 36 88 |0.....Z%=0.3996.|
000363f0 34 3a e8 23 46 25 2c 41 25 3a ed 0d c0 12 29 e3 |4:.#F%,A%:....).|
00036400 5a 25 3d 30 b8 33 39 39 36 88 34 3a e8 23 46 25 |Z%=0.3996.4:.#F%|
00036410 2c 41 25 3a 4f 72 64 65 72 43 5f 25 21 5a 25 3d |,A%:OrderC_%!Z%=|
00036420 41 25 3a ed 0d c0 14 17 e8 23 46 25 2c 41 25 3a |A%:......#F%,A%:|
00036430 f4 20 4f 6a 75 73 74 20 65 74 63 0d c0 1c 8e c8 |. Ojust etc.....|
00036440 99 26 34 30 36 43 34 2c 8f 23 46 25 2f 6c 5f 25 |.&406C4,.#F%/l_%|
00036450 2a 31 30 30 3a e3 5a 25 3d 30 b8 74 69 5f 25 3a |*100:.Z%=0.ti_%:|
00036460 e8 23 46 25 2c 49 4f 6a 75 73 74 5f 25 28 5a 25 |.#F%,IOjust_%(Z%|
00036470 29 2c 49 4f 72 64 65 72 53 5f 24 28 5a 25 29 2c |),IOrderS_$(Z%),|
00036480 49 4f 72 64 65 72 46 5f 25 28 5a 25 29 2c 49 4f |IOrderF_%(Z%),IO|
00036490 72 64 65 72 6d 79 5f 28 5a 25 29 2c 49 4f 72 64 |rdermy_(Z%),IOrd|
000364a0 65 72 6d 78 5f 28 5a 25 29 2c 49 4f 72 64 65 72 |ermx_(Z%),IOrder|
000364b0 66 79 5f 25 28 5a 25 29 2c 49 4f 72 64 65 72 66 |fy_%(Z%),IOrderf|
000364c0 78 5f 25 28 5a 25 29 3a ed 0d c0 21 69 e3 5a 25 |x_%(Z%):...!i.Z%|
000364d0 3d 30 b8 31 30 30 30 3a e8 23 46 25 2c 53 6c 52 |=0.1000:.#F%,SlR|
000364e0 65 63 5f 24 28 30 29 2c 53 6c 4e 75 6d 5f 24 28 |ec_$(0),SlNum_$(|
000364f0 30 29 2c 53 6c 44 65 73 5f 24 28 30 29 2c 53 6c |0),SlDes_$(0),Sl|
00036500 51 75 61 5f 28 30 29 2c 53 6c 50 72 69 5f 28 30 |Qua_(0),SlPri_(0|
00036510 29 2c 53 6c 56 61 74 5f 24 28 30 29 3a ed 3a e8 |),SlVat_$(0):.:.|
00036520 23 46 25 2c 53 67 5f 25 2c 4c 67 5f 25 2c 43 67 |#F%,Sg_%,Lg_%,Cg|
00036530 5f 25 0d c0 26 1f e3 5a 25 3d 30 b8 31 36 3a e8 |_%..&..Z%=0.16:.|
00036540 23 46 25 2c 4c 61 62 65 6c 5f 24 28 5a 25 29 3a |#F%,Label_$(Z%):|
00036550 ed 0d c0 2b 32 e3 5a 25 3d 30 b8 6d 61 78 69 66 |...+2.Z%=0.maxif|
00036560 6f 6e 74 5f 25 3a e8 23 46 25 2c 66 68 61 6e 64 |ont_%:.#F%,fhand|
00036570 6c 65 5f 25 28 5a 25 29 3a ed 3a 5a 5f 25 3d 9a |le_%(Z%):.:Z_%=.|
00036580 23 46 25 0d c0 30 38 e7 5a 5f 25 3c 3e 36 35 8c |#F%..08.Z_%<>65.|
00036590 cf 23 46 25 3d 8f 23 46 25 2d 31 3a e3 5a 25 3d |.#F%=.#F%-1:.Z%=|
000365a0 6d 61 78 69 66 6f 6e 74 5f 25 2b 31 b8 32 35 35 |maxifont_%+1.255|
000365b0 3a e8 23 46 25 2c 61 5f 25 3a ed 0d c0 35 1c e7 |:.#F%,a_%:...5..|
000365c0 a4 69 6d 5f 28 46 25 2c 74 65 6d 5f 24 29 3d 31 |.im_(F%,tem_$)=1|
000365d0 8c 46 25 3d 30 3a e1 0d c0 37 14 e8 23 46 25 2c |.F%=0:...7..#F%,|
000365e0 61 5f 24 3a f4 20 73 74 6f 63 6b 0d c0 50 39 e3 |a_$:. stock..P9.|
000365f0 5a 25 3d 30 b8 32 37 3a e8 23 46 25 2c 56 61 5f |Z%=0.27:.#F%,Va_|
00036600 25 28 5a 25 29 2c 56 61 5f 24 28 5a 25 29 3a ed |%(Z%),Va_$(Z%):.|
00036610 3a 73 75 70 70 5f 25 28 29 3d 30 3a 54 72 5f 25 |:supp_%()=0:Tr_%|
00036620 28 29 3d 30 0d c0 51 13 e8 23 46 25 2c 61 5f 24 |()=0..Q..#F%,a_$|
00036630 3a f4 20 73 75 70 70 0d c0 bc 18 73 75 70 70 5f |:. supp....supp_|
00036640 25 28 29 3d 30 3a 54 72 5f 25 28 31 29 3d 30 0d |%()=0:Tr_%(1)=0.|
00036650 c0 c1 d4 e3 5a 25 3d 30 b8 45 25 3a e8 23 46 25 |....Z%=0.E%:.#F%|
00036660 2c 43 53 75 70 70 6c 69 65 72 73 5f 24 28 5a 25 |,CSuppliers_$(Z%|
00036670 29 2c 43 53 75 4e 75 6d 62 65 72 5f 25 28 5a 25 |),CSuNumber_%(Z%|
00036680 29 2c 43 53 75 41 64 31 5f 24 28 5a 25 29 2c 43 |),CSuAd1_$(Z%),C|
00036690 53 75 41 64 32 5f 24 28 5a 25 29 2c 43 53 75 41 |SuAd2_$(Z%),CSuA|
000366a0 64 33 5f 24 28 5a 25 29 2c 43 53 75 41 64 34 5f |d3_$(Z%),CSuAd4_|
000366b0 24 28 5a 25 29 2c 43 53 75 50 6f 73 5f 24 28 5a |$(Z%),CSuPos_$(Z|
000366c0 25 29 2c 43 53 75 43 6f 6e 74 61 63 5f 24 28 5a |%),CSuContac_$(Z|
000366d0 25 29 2c 43 53 75 54 65 6c 5f 24 28 5a 25 29 2c |%),CSuTel_$(Z%),|
000366e0 43 53 75 46 61 5f 24 28 5a 25 29 2c 43 53 75 43 |CSuFa_$(Z%),CSuC|
000366f0 6f 6d 31 5f 24 28 5a 25 29 2c 43 53 75 43 6f 6d |om1_$(Z%),CSuCom|
00036700 32 5f 24 28 5a 25 29 2c 43 53 75 53 75 70 70 52 |2_$(Z%),CSuSuppR|
00036710 65 5f 24 28 5a 25 29 2c 43 73 75 70 70 5f 24 28 |e_$(Z%),Csupp_$(|
00036720 5a 25 29 0d c0 c6 80 e7 4e 65 77 50 72 65 66 5f |Z%).....NewPref_|
00036730 25 28 33 29 3e 31 32 37 3a e8 23 46 25 2c 64 43 |%(3)>127:.#F%,dC|
00036740 53 75 70 70 6c 69 65 72 73 5f 24 28 5a 25 29 2c |Suppliers_$(Z%),|
00036750 64 43 53 75 41 64 31 5f 24 28 5a 25 29 2c 64 43 |dCSuAd1_$(Z%),dC|
00036760 53 75 41 64 32 5f 24 28 5a 25 29 2c 64 43 53 75 |SuAd2_$(Z%),dCSu|
00036770 41 64 33 5f 24 28 5a 25 29 2c 64 43 53 75 41 64 |Ad3_$(Z%),dCSuAd|
00036780 34 5f 24 28 5a 25 29 2c 64 43 53 75 50 6f 73 5f |4_$(Z%),dCSuPos_|
00036790 24 28 5a 25 29 2c 43 53 75 44 69 73 63 5f 24 28 |$(Z%),CSuDisc_$(|
000367a0 5a 25 29 0d c0 cb 26 e8 23 46 25 2c 43 53 75 59 |Z%)...&.#F%,CSuY|
000367b0 6f 75 72 52 65 5f 24 28 5a 25 29 2c 43 53 75 4f |ourRe_$(Z%),CSuO|
000367c0 72 64 65 5f 24 28 5a 25 29 0d c0 d0 74 e7 43 53 |rde_$(Z%)...t.CS|
000367d0 75 4e 75 6d 62 65 72 5f 25 28 5a 25 29 3c 3d 43 |uNumber_%(Z%)<=C|
000367e0 6d 61 78 73 75 70 70 5f 25 3a e7 73 75 70 70 5f |maxsupp_%:.supp_|
000367f0 25 28 43 53 75 4e 75 6d 62 65 72 5f 25 28 5a 25 |%(CSuNumber_%(Z%|
00036800 29 29 3d 30 8c 73 75 70 70 5f 25 28 43 53 75 4e |))=0.supp_%(CSuN|
00036810 75 6d 62 65 72 5f 25 28 5a 25 29 29 3d 5a 25 20 |umber_%(Z%))=Z% |
00036820 8b 43 53 75 4e 75 6d 62 65 72 5f 25 28 5a 25 29 |.CSuNumber_%(Z%)|
00036830 3d 30 3a 54 72 5f 25 28 31 29 2b 3d 31 0d c0 d5 |=0:Tr_%(1)+=1...|
00036840 24 e7 a4 69 6d 5f 28 46 25 2c 74 65 6d 5f 24 29 |$..im_(F%,tem_$)|
00036850 3d 31 8c 46 25 3d 30 3a 5a 25 3d 45 25 3a ed 3a |=1.F%=0:Z%=E%:.:|
00036860 e1 0d c0 da 1b c8 99 26 34 30 36 43 34 2c 8f 23 |.......&406C4,.#|
00036870 46 25 2f 6c 5f 25 2a 31 30 30 3a ed 0d c0 df 13 |F%/l_%*100:.....|
00036880 e7 45 25 3c 43 6d 61 78 73 75 70 70 5f 25 8c 0d |.E%<Cmaxsupp_%..|
00036890 c0 e4 12 45 5f 25 3d 43 6d 61 78 73 75 70 70 5f |...E_%=Cmaxsupp_|
000368a0 25 0d c0 e9 6b e3 5a 25 3d 45 25 2b 31 b8 43 6d |%...k.Z%=E%+1.Cm|
000368b0 61 78 73 75 70 70 5f 25 3a e7 73 75 70 70 5f 25 |axsupp_%:.supp_%|
000368c0 28 43 53 75 4e 75 6d 62 65 72 5f 25 28 5a 25 29 |(CSuNumber_%(Z%)|
000368d0 29 3d 30 8c 73 75 70 70 5f 25 28 43 53 75 4e 75 |)=0.supp_%(CSuNu|
000368e0 6d 62 65 72 5f 25 28 5a 25 29 29 3d 5a 25 20 8b |mber_%(Z%))=Z% .|
000368f0 43 53 75 4e 75 6d 62 65 72 5f 25 28 5a 25 29 3d |CSuNumber_%(Z%)=|
00036900 30 3a 54 72 5f 25 28 31 29 2b 3d 31 0d c0 ee 05 |0:Tr_%(1)+=1....|
00036910 ed 0d c0 f3 05 cc 0d c0 f8 0a 45 5f 25 3d 45 25 |..........E_%=E%|
00036920 0d c0 fd 05 cd 0d c1 02 0f e7 54 72 5f 25 28 31 |..........Tr_%(1|
00036930 29 3e 30 8c 0d c1 07 29 e3 5a 25 3d 31 b8 45 5f |)>0....).Z%=1.E_|
00036940 25 3a 73 75 70 70 5f 25 28 43 53 75 4e 75 6d 62 |%:supp_%(CSuNumb|
00036950 65 72 5f 25 28 5a 25 29 29 3d 31 3a ed 0d c1 0c |er_%(Z%))=1:....|
00036960 13 44 5f 25 3d 31 3a e3 5a 25 3d 31 b8 45 5f 25 |.D_%=1:.Z%=1.E_%|
00036970 0d c1 11 17 e7 43 53 75 4e 75 6d 62 65 72 5f 25 |.....CSuNumber_%|
00036980 28 5a 25 29 3d 30 8c 0d c1 16 4a e3 43 63 5f 25 |(Z%)=0....J.Cc_%|
00036990 3d 44 5f 25 b8 45 5f 25 3a e7 73 75 70 70 5f 25 |=D_%.E_%:.supp_%|
000369a0 28 43 63 5f 25 29 3d 30 8c 43 53 75 4e 75 6d 62 |(Cc_%)=0.CSuNumb|
000369b0 65 72 5f 25 28 5a 25 29 3d 43 63 5f 25 3a 44 5f |er_%(Z%)=Cc_%:D_|
000369c0 25 3d 43 63 5f 25 2b 31 3a 43 63 5f 25 3d 45 5f |%=Cc_%+1:Cc_%=E_|
000369d0 25 0d c1 1b 05 ed 0d c1 20 05 cd 0d c1 25 05 ed |%....... ....%..|
000369e0 0d c1 2a 05 cd 0d c1 2f b7 e8 23 46 25 2c 56 69 |..*..../..#F%,Vi|
000369f0 65 77 73 5f 25 2c 56 69 65 77 70 5f 25 2c 4c 73 |ews_%,Viewp_%,Ls|
00036a00 74 6f 63 6b 6e 75 5f 25 2c 4c 64 65 73 63 72 69 |tocknu_%,Ldescri|
00036a10 70 5f 25 2c 4c 73 75 70 70 72 65 5f 25 2c 4c 73 |p_%,Lsuppre_%,Ls|
00036a20 75 70 5f 25 2c 4c 73 74 6f 63 5f 25 2c 4c 70 72 |up_%,Lstoc_%,Lpr|
00036a30 69 63 5f 25 2c 4c 61 34 5f 25 2c 4c 75 73 5f 25 |ic_%,La4_%,Lus_%|
00036a40 2c 4c 63 75 73 74 5f 25 2c 4c 6a 6c 65 5f 25 2c |,Lcust_%,Ljle_%,|
00036a50 4c 6a 63 65 5f 25 2c 4c 64 6f 77 5f 25 2c 4c 61 |Ljce_%,Ldow_%,La|
00036a60 63 72 6f 73 5f 25 2c 4c 6e 75 6d 62 65 5f 25 2c |cros_%,Lnumbe_%,|
00036a70 4c 73 74 61 72 5f 25 2c 4c 70 61 67 78 5f 25 2c |Lstar_%,Lpagx_%,|
00036a80 4c 70 61 67 79 5f 25 2c 4c 66 6f 6e 5f 78 25 2c |Lpagy_%,Lfon_x%,|
00036a90 4c 66 6f 6e 5f 79 25 2c 43 75 5f 24 0d c1 34 98 |Lfon_y%,Cu_$..4.|
00036aa0 e8 23 46 25 2c 53 63 6f 6e 74 61 63 5f 25 2c 53 |.#F%,Scontac_%,S|
00036ab0 6e 61 6d 5f 25 2c 53 61 64 64 72 65 73 5f 25 2c |nam_%,Saddres_%,|
00036ac0 53 61 34 5f 25 2c 53 75 73 5f 25 2c 53 63 75 73 |Sa4_%,Sus_%,Scus|
00036ad0 74 5f 25 2c 53 64 6f 77 5f 25 2c 53 61 63 72 6f |t_%,Sdow_%,Sacro|
00036ae0 73 5f 25 2c 53 6e 75 6d 62 65 5f 25 2c 53 73 74 |s_%,Snumbe_%,Sst|
00036af0 61 72 5f 25 2c 53 70 61 67 78 5f 25 2c 53 70 61 |ar_%,Spagx_%,Spa|
00036b00 67 79 5f 25 2c 53 66 6f 6e 5f 78 25 2c 53 66 6f |gy_%,Sfon_x%,Sfo|
00036b10 6e 5f 79 25 2c 53 75 70 46 72 6f 5f 25 2c 53 75 |n_y%,SupFro_%,Su|
00036b20 70 54 5f 25 2c 53 73 43 6f 6d 5f 24 2c 53 73 50 |pT_%,SsCom_$,SsP|
00036b30 6f 73 5f 24 0d c1 39 be e8 23 46 25 2c 43 53 63 |os_$..9..#F%,CSc|
00036b40 6f 6e 74 61 63 5f 25 2c 43 53 6e 61 6d 5f 25 2c |ontac_%,CSnam_%,|
00036b50 43 53 61 64 64 72 65 73 5f 25 2c 43 53 61 34 5f |CSaddres_%,CSa4_|
00036b60 25 2c 43 53 75 73 5f 25 2c 43 53 63 75 73 74 5f |%,CSus_%,CScust_|
00036b70 25 2c 43 53 64 6f 77 5f 25 2c 43 53 61 63 72 6f |%,CSdow_%,CSacro|
00036b80 73 5f 25 2c 43 53 6e 75 6d 62 65 5f 25 2c 43 53 |s_%,CSnumbe_%,CS|
00036b90 73 74 61 72 5f 25 2c 43 53 70 61 67 78 5f 25 2c |star_%,CSpagx_%,|
00036ba0 43 53 70 61 67 79 5f 25 2c 43 53 66 6f 6e 5f 78 |CSpagy_%,CSfon_x|
00036bb0 25 2c 43 53 66 6f 6e 5f 79 25 2c 43 53 75 70 46 |%,CSfon_y%,CSupF|
00036bc0 72 6f 5f 25 2c 43 53 75 70 54 5f 25 2c 43 73 43 |ro_%,CSupT_%,CsC|
00036bd0 6f 6d 5f 24 2c 43 73 50 6f 73 5f 24 3a c8 99 26 |om_$,CsPos_$:..&|
00036be0 34 30 36 43 34 2c 8f 23 46 25 2f 6c 5f 25 2a 31 |406C4,.#F%/l_%*1|
00036bf0 30 30 0d c1 3e df e8 23 46 25 2c 4c 69 73 74 52 |00..>..#F%,ListR|
00036c00 65 63 4e 75 5f 25 2c 4c 69 73 74 53 74 4e 75 5f |ecNu_%,ListStNu_|
00036c10 25 2c 4c 69 73 74 44 65 73 63 5f 25 2c 4c 69 73 |%,ListDesc_%,Lis|
00036c20 74 53 75 70 5f 25 2c 4c 69 73 74 52 65 5f 25 2c |tSup_%,ListRe_%,|
00036c30 4c 69 73 74 43 6f 73 5f 25 2c 4c 69 73 74 52 65 |ListCos_%,ListRe|
00036c40 74 61 69 5f 25 2c 4c 69 73 74 53 74 6f 63 5f 25 |tai_%,ListStoc_%|
00036c50 2c 4c 69 73 74 4d 69 5f 25 2c 4c 69 73 74 51 75 |,ListMi_%,ListQu|
00036c60 61 5f 25 2c 4c 69 73 74 53 6f 6c 5f 25 2c 4c 69 |a_%,ListSol_%,Li|
00036c70 73 74 4d 6f 5f 25 2c 4c 69 73 74 50 72 31 5f 25 |stMo_%,ListPr1_%|
00036c80 2c 4c 69 73 74 50 72 32 5f 25 2c 4c 69 73 74 4d |,ListPr2_%,ListM|
00036c90 61 72 5f 25 2c 4c 69 73 74 44 61 74 5f 25 2c 4c |ar_%,ListDat_%,L|
00036ca0 69 73 74 61 34 5f 25 2c 4c 69 73 74 75 73 5f 25 |ista4_%,Listus_%|
00036cb0 2c 4c 69 73 74 63 75 73 74 5f 25 2c 4c 69 73 74 |,Listcust_%,List|
00036cc0 70 61 67 78 5f 25 2c 4c 69 73 74 70 61 67 79 5f |pagx_%,Listpagy_|
00036cd0 25 0d c1 43 99 e8 23 46 25 2c 4c 69 73 74 66 6f |%..C..#F%,Listfo|
00036ce0 6e 5f 78 25 2c 4c 69 73 74 66 6f 6e 5f 79 25 2c |n_x%,Listfon_y%,|
00036cf0 4c 69 73 74 66 72 6f 5f 25 2c 4c 69 73 74 74 5f |Listfro_%,Listt_|
00036d00 25 2c 4c 69 73 74 6c 65 66 5f 25 2c 4c 69 73 74 |%,Listlef_%,List|
00036d10 74 6f 70 5f 25 2c 4c 69 73 74 73 70 61 63 5f 25 |top_%,Listspac_%|
00036d20 2c 44 61 34 5f 25 2c 44 75 73 5f 25 2c 44 63 75 |,Da4_%,Dus_%,Dcu|
00036d30 73 74 5f 25 2c 44 70 61 67 78 5f 25 2c 44 70 61 |st_%,Dpagx_%,Dpa|
00036d40 67 79 5f 25 2c 44 66 6f 6e 5f 78 25 2c 44 66 6f |gy_%,Dfon_x%,Dfo|
00036d50 6e 5f 79 25 2c 44 6c 65 66 5f 25 2c 44 74 6f 70 |n_y%,Dlef_%,Dtop|
00036d60 5f 25 2c 44 73 70 61 63 5f 25 0d c1 48 e0 e8 23 |_%,Dspac_%..H..#|
00036d70 46 25 2c 53 4c 52 65 63 4e 75 5f 25 2c 53 4c 73 |F%,SLRecNu_%,SLs|
00036d80 75 70 70 6c 69 65 5f 25 2c 53 4c 61 64 31 5f 25 |upplie_%,SLad1_%|
00036d90 2c 53 4c 61 64 32 5f 25 2c 53 4c 61 64 33 5f 25 |,SLad2_%,SLad3_%|
00036da0 2c 53 4c 61 64 34 5f 25 2c 53 4c 70 6f 73 5f 25 |,SLad4_%,SLpos_%|
00036db0 2c 53 4c 63 6f 6e 5f 25 2c 53 4c 74 65 6c 5f 25 |,SLcon_%,SLtel_%|
00036dc0 2c 53 4c 66 61 5f 25 2c 53 4c 63 6f 6d 31 5f 25 |,SLfa_%,SLcom1_%|
00036dd0 2c 53 4c 63 6f 6d 32 5f 25 2c 53 4c 73 75 70 70 |,SLcom2_%,SLsupp|
00036de0 72 65 5f 25 2c 53 4c 79 6f 75 72 72 65 5f 25 2c |re_%,SLyourre_%,|
00036df0 53 4c 6f 72 64 70 72 5f 25 2c 53 4c 61 34 5f 25 |SLordpr_%,SLa4_%|
00036e00 2c 53 4c 75 73 5f 25 2c 53 4c 63 75 73 74 5f 25 |,SLus_%,SLcust_%|
00036e10 2c 53 4c 70 61 67 78 5f 25 2c 53 4c 70 61 67 79 |,SLpagx_%,SLpagy|
00036e20 5f 25 2c 53 4c 66 6f 6e 5f 78 25 2c 53 4c 66 6f |_%,SLfon_x%,SLfo|
00036e30 6e 5f 79 25 2c 53 4c 66 72 6f 5f 25 2c 53 4c 74 |n_y%,SLfro_%,SLt|
00036e40 5f 25 2c 53 4c 6c 65 66 5f 25 0d c1 4d db e8 23 |_%,SLlef_%..M..#|
00036e50 46 25 2c 53 4c 74 6f 70 5f 25 2c 53 4c 73 70 61 |F%,SLtop_%,SLspa|
00036e60 63 5f 25 2c 53 6a 6c 65 5f 25 2c 53 6a 63 65 5f |c_%,Sjle_%,Sjce_|
00036e70 25 2c 4f 61 34 5f 25 2c 4f 75 73 5f 25 2c 4f 63 |%,Oa4_%,Ous_%,Oc|
00036e80 75 73 74 5f 25 2c 4f 70 61 67 78 5f 25 2c 4f 70 |ust_%,Opagx_%,Op|
00036e90 61 67 79 5f 25 2c 55 6e 61 6d 5f 24 2c 55 61 64 |agy_%,Unam_$,Uad|
00036ea0 31 5f 24 2c 55 61 64 32 5f 24 2c 55 61 64 33 5f |1_$,Uad2_$,Uad3_|
00036eb0 24 2c 55 61 64 34 5f 24 2c 55 61 64 35 5f 24 2c |$,Uad4_$,Uad5_$,|
00036ec0 55 70 6f 73 5f 24 2c 55 74 65 5f 24 2c 55 66 61 |Upos_$,Ute_$,Ufa|
00036ed0 5f 24 2c 55 76 61 5f 24 2c 43 61 6c 31 5f 24 2c |_$,Uva_$,Cal1_$,|
00036ee0 43 61 6c 32 5f 24 2c 43 61 6c 33 5f 24 2c 43 61 |Cal2_$,Cal3_$,Ca|
00036ef0 6c 34 5f 24 2c 43 61 6c 54 6f 5f 25 2c 49 4f 61 |l4_$,CalTo_%,IOa|
00036f00 34 5f 25 2c 49 4f 75 73 5f 25 2c 49 4f 63 75 73 |4_%,IOus_%,IOcus|
00036f10 74 5f 25 2c 49 4f 70 61 67 78 5f 25 2c 49 4f 70 |t_%,IOpagx_%,IOp|
00036f20 61 67 79 5f 25 0d c1 52 cc e8 23 46 25 2c 43 53 |agy_%..R..#F%,CS|
00036f30 4c 52 65 63 4e 75 5f 25 2c 43 53 4c 73 75 70 70 |LRecNu_%,CSLsupp|
00036f40 6c 69 65 5f 25 2c 43 53 4c 61 64 31 5f 25 2c 43 |lie_%,CSLad1_%,C|
00036f50 53 4c 61 64 32 5f 25 2c 43 53 4c 61 64 33 5f 25 |SLad2_%,CSLad3_%|
00036f60 2c 43 53 4c 61 64 34 5f 25 2c 43 53 4c 70 6f 73 |,CSLad4_%,CSLpos|
00036f70 5f 25 2c 43 53 4c 63 6f 6e 5f 25 2c 43 53 4c 74 |_%,CSLcon_%,CSLt|
00036f80 65 6c 5f 25 2c 43 53 4c 66 61 5f 25 2c 43 53 4c |el_%,CSLfa_%,CSL|
00036f90 63 6f 6d 31 5f 25 2c 43 53 4c 63 6f 6d 32 5f 25 |com1_%,CSLcom2_%|
00036fa0 2c 43 53 4c 73 75 70 70 72 65 5f 25 2c 43 53 4c |,CSLsuppre_%,CSL|
00036fb0 79 6f 75 72 72 65 5f 25 2c 43 53 4c 6f 72 64 70 |yourre_%,CSLordp|
00036fc0 72 5f 25 2c 43 53 4c 61 34 5f 25 2c 43 53 4c 75 |r_%,CSLa4_%,CSLu|
00036fd0 73 5f 25 2c 43 53 4c 63 75 73 74 5f 25 2c 43 53 |s_%,CSLcust_%,CS|
00036fe0 4c 70 61 67 78 5f 25 2c 43 53 4c 70 61 67 79 5f |Lpagx_%,CSLpagy_|
00036ff0 25 0d c1 57 78 e8 23 46 25 2c 43 53 4c 66 6f 6e |%..Wx.#F%,CSLfon|
00037000 5f 78 25 2c 43 53 4c 66 6f 6e 5f 79 25 2c 43 53 |_x%,CSLfon_y%,CS|
00037010 4c 66 72 6f 5f 25 2c 43 53 4c 74 5f 25 2c 43 53 |Lfro_%,CSLt_%,CS|
00037020 4c 6c 65 66 5f 25 2c 43 53 4c 74 6f 70 5f 25 2c |Llef_%,CSLtop_%,|
00037030 43 53 4c 73 70 61 63 5f 25 2c 43 53 6a 6c 65 5f |CSLspac_%,CSjle_|
00037040 25 2c 43 53 6a 63 65 5f 25 2c 43 61 6c 74 31 5f |%,CSjce_%,Calt1_|
00037050 25 2c 43 61 6c 74 32 5f 25 2c 43 61 6c 74 33 5f |%,Calt2_%,Calt3_|
00037060 25 2c 43 61 6c 74 34 5f 25 0d c1 5c 31 e8 23 46 |%,Calt4_%..\1.#F|
00037070 25 2c 6a 5f 66 25 2c 6a 5f 66 31 25 2c 6a 5f 66 |%,j_f%,j_f1%,j_f|
00037080 32 25 2c 6a 5f 66 33 25 2c 6a 5f 66 34 25 2c 6a |2%,j_f3%,j_f4%,j|
00037090 5f 66 35 25 2c 6a 5f 66 36 25 0d c1 61 b0 e8 23 |_f5%,j_f6%..a..#|
000370a0 46 25 2c 4f 62 6f 72 64 65 72 25 2c 4f 72 75 6c |F%,Oborder%,Orul|
000370b0 65 72 25 2c 4f 64 73 69 7a 65 5f 25 2c 4f 64 67 |er%,Odsize_%,Odg|
000370c0 61 70 5f 25 2c 4f 69 73 75 70 70 6c 69 65 5f 24 |ap_%,Oisupplie_$|
000370d0 2c 4f 69 6e 75 6d 62 65 5f 25 2c 4f 61 6e 75 6d |,Oinumbe_%,Oanum|
000370e0 62 65 5f 25 2c 4f 61 66 72 6f 5f 25 2c 4f 61 74 |be_%,Oafro_%,Oat|
000370f0 5f 25 2c 42 65 73 74 46 5f 25 2c 42 65 73 74 50 |_%,BestF_%,BestP|
00037100 5f 25 2c 42 65 73 74 4c 5f 24 2c 42 65 73 74 44 |_%,BestL_$,BestD|
00037110 5f 24 2c 53 61 73 61 76 5f 25 2c 73 61 76 65 73 |_$,Sasav_%,saves|
00037120 61 6c 5f 25 2c 49 4f 62 6f 72 64 65 72 25 2c 49 |al_%,IOborder%,I|
00037130 4f 72 75 6c 65 72 25 2c 49 4f 64 73 69 7a 65 5f |Oruler%,IOdsize_|
00037140 25 2c 49 4f 64 67 61 70 5f 25 0d c1 66 28 e8 23 |%,IOdgap_%..f(.#|
00037150 46 25 2c 70 61 73 73 31 5f 24 2c 70 61 73 73 32 |F%,pass1_$,pass2|
00037160 5f 24 2c 70 61 73 73 33 5f 24 2c 70 61 73 73 34 |_$,pass3_$,pass4|
00037170 5f 24 0d c1 6b 62 e8 23 46 25 2c 4f 74 6f 64 61 |_$..kb.#F%,Otoda|
00037180 79 5f 24 2c 76 61 6c 66 72 6f 5f 24 2c 76 61 6c |y_$,valfro_$,val|
00037190 74 5f 24 2c 53 66 69 6e 64 6e 75 5f 24 2c 53 75 |t_$,Sfindnu_$,Su|
000371a0 66 69 6e 64 6e 75 5f 24 2c 41 75 74 6f 73 61 76 |findnu_$,Autosav|
000371b0 5f 25 2c 43 53 75 66 69 6e 64 6e 75 5f 24 3a c8 |_%,CSufindnu_$:.|
000371c0 99 26 34 30 36 43 34 2c 8f 23 46 25 2f 6c 5f 25 |.&406C4,.#F%/l_%|
000371d0 2a 31 30 30 0d c1 70 6d e3 5a 25 3d 31 b8 6d 61 |*100..pm.Z%=1.ma|
000371e0 78 69 66 6f 6e 74 5f 25 3a e8 23 46 25 2c 4f 66 |xifont_%:.#F%,Of|
000371f0 6f 6e 74 6e 61 6d 65 5f 24 28 5a 25 29 3a ed 3a |ontname_$(Z%):.:|
00037200 e7 5a 5f 25 3c 3e 36 35 8c e3 5a 25 3d 6d 61 78 |.Z_%<>65..Z%=max|
00037210 69 66 6f 6e 74 5f 25 2b 31 b8 32 35 35 3a e8 23 |ifont_%+1.255:.#|
00037220 46 25 2c 61 5f 24 3a ed 3a e7 a4 69 6d 5f 28 46 |F%,a_$:.:..im_(F|
00037230 25 2c 74 65 6d 5f 24 29 3d 31 8c 46 25 3d 30 3a |%,tem_$)=1.F%=0:|
00037240 e1 0d c1 75 3a e8 23 46 25 2c 4f 69 73 75 70 6e |...u:.#F%,Oisupn|
00037250 75 6d 5f 25 2c 49 54 63 6f 70 5f 24 2c 49 54 65 |um_%,ITcop_$,ITe|
00037260 73 5f 25 2c 49 54 64 69 73 5f 24 2c 49 54 72 65 |s_%,ITdis_$,ITre|
00037270 5f 24 2c 49 54 70 72 69 63 5f 24 0d c1 7a 2e e3 |_$,ITpric_$..z..|
00037280 5a 25 3d 31 b8 31 30 38 3a e8 23 46 25 2c 53 68 |Z%=1.108:.#F%,Sh|
00037290 65 61 64 31 5f 24 28 5a 25 29 2c 50 68 65 61 64 |ead1_$(Z%),Phead|
000372a0 31 5f 24 28 5a 25 29 3a ed 0d c1 84 2d e3 5a 25 |1_$(Z%):....-.Z%|
000372b0 3d 31 b8 31 32 3a e8 23 46 25 2c 42 61 6e 6b 4e |=1.12:.#F%,BankN|
000372c0 4e 5f 24 28 5a 25 29 2c 42 61 6e 6b 4f 4f 5f 25 |N_$(Z%),BankOO_%|
000372d0 28 5a 25 29 3a ed 0d c1 89 9f e3 5a 25 3d 30 b8 |(Z%):......Z%=0.|
000372e0 4e 65 77 50 72 65 66 5f 25 28 30 29 2a 73 69 74 |NewPref_%(0)*sit|
000372f0 69 70 5f 25 3a e8 23 46 25 2c 53 49 54 61 5f 24 |ip_%:.#F%,SITa_$|
00037300 28 5a 25 29 2c 53 49 54 68 5f 24 28 5a 25 29 2c |(Z%),SITh_$(Z%),|
00037310 53 49 54 73 5f 24 28 5a 25 29 2c 53 49 54 6e 5f |SITs_$(Z%),SITn_|
00037320 25 28 5a 25 29 3a ed 3a e3 5a 25 3d 30 b8 4e 65 |%(Z%):.:.Z%=0.Ne|
00037330 77 50 72 65 66 5f 25 28 31 29 2a 73 69 74 69 70 |wPref_%(1)*sitip|
00037340 5f 25 3a e8 23 46 25 2c 50 49 54 61 5f 24 28 5a |_%:.#F%,PITa_$(Z|
00037350 25 29 2c 50 49 54 68 5f 24 28 5a 25 29 2c 50 49 |%),PITh_$(Z%),PI|
00037360 54 73 5f 24 28 5a 25 29 2c 50 49 54 6e 5f 25 28 |Ts_$(Z%),PITn_%(|
00037370 5a 25 29 3a ed 0d c1 8e 51 e3 5a 25 3d 30 b8 4e |Z%):....Q.Z%=0.N|
00037380 65 77 50 72 65 66 5f 25 28 32 29 2a 73 69 74 69 |ewPref_%(2)*siti|
00037390 70 5f 25 3a e8 23 46 25 2c 42 49 54 66 5f 24 28 |p_%:.#F%,BITf_$(|
000373a0 5a 25 29 2c 42 49 54 74 5f 24 28 5a 25 29 3a ed |Z%),BITt_$(Z%):.|
000373b0 3a c8 99 26 34 30 36 43 34 2c 8f 23 46 25 2f 6c |:..&406C4,.#F%/l|
000373c0 5f 25 2a 31 30 30 0d c1 93 9b 53 68 65 61 64 74 |_%*100....Sheadt|
000373d0 31 5f 25 28 29 3d 30 3a 50 68 65 61 64 74 31 5f |1_%()=0:Pheadt1_|
000373e0 25 28 29 3d 30 3a e3 5a 25 3d 31 b8 4e 65 77 50 |%()=0:.Z%=1.NewP|
000373f0 72 65 66 5f 25 28 30 29 2a 73 69 74 69 70 5f 25 |ref_%(0)*sitip_%|
00037400 2a 73 69 74 69 66 5f 25 3a e8 23 46 25 2c 53 49 |*sitif_%:.#F%,SI|
00037410 54 65 5f 24 28 5a 25 29 3a e7 a4 69 6d 5f 28 46 |Te_$(Z%):..im_(F|
00037420 25 2c 74 65 6d 5f 24 29 3d 31 8c 46 25 3d 30 3a |%,tem_$)=1.F%=0:|
00037430 5a 25 3d 4e 65 77 50 72 65 66 5f 25 28 30 29 2a |Z%=NewPref_%(0)*|
00037440 73 69 74 69 70 5f 25 2a 73 69 74 69 66 5f 25 3a |sitip_%*sitif_%:|
00037450 ed 3a 53 68 65 61 64 74 31 5f 25 28 29 3d 30 3a |.:Sheadt1_%()=0:|
00037460 e1 0d c1 98 12 e7 5a 25 83 73 69 74 69 66 5f 25 |......Z%.sitif_%|
00037470 3d 30 8c 0d c1 9d 48 61 5f 25 3d a4 6e 69 5f 28 |=0....Ha_%=.ni_(|
00037480 53 49 54 65 5f 24 28 5a 25 2d 35 29 29 3a 62 5f |SITe_$(Z%-5)):b_|
00037490 25 3d a4 6e 69 5f 28 53 49 54 65 5f 24 28 5a 25 |%=.ni_(SITe_$(Z%|
000374a0 2d 33 29 29 3a 63 5f 25 3d a4 6e 69 5f 28 53 49 |-3)):c_%=.ni_(SI|
000374b0 54 65 5f 24 28 5a 25 2d 32 29 29 0d c1 a2 7d e7 |Te_$(Z%-2))...}.|
000374c0 53 49 54 65 5f 24 28 5a 25 2d 31 29 3c 3e 22 22 |SITe_$(Z%-1)<>""|
000374d0 8c 53 49 54 65 5f 24 28 5a 25 2d 31 29 3d a4 63 |.SITe_$(Z%-1)=.c|
000374e0 61 70 73 5f 28 53 49 54 65 5f 24 28 5a 25 2d 31 |aps_(SITe_$(Z%-1|
000374f0 29 29 3a 41 5f 25 3d 97 28 53 49 54 65 5f 24 28 |)):A_%=.(SITe_$(|
00037500 5a 25 2d 31 29 29 2d 36 35 3a 42 5f 25 3d 97 28 |Z%-1))-65:B_%=.(|
00037510 c2 53 49 54 65 5f 24 28 5a 25 2d 31 29 2c 31 29 |.SITe_$(Z%-1),1)|
00037520 29 2d 36 35 3a 61 61 5f 25 3d 41 5f 25 2a 34 30 |)-65:aa_%=A_%*40|
00037530 2b 42 5f 25 2a 35 2b 32 0d c1 a7 ab e7 53 49 54 |+B_%*5+2.....SIT|
00037540 65 5f 24 28 5a 25 2d 31 29 3c 3e 22 22 3a e7 41 |e_$(Z%-1)<>"":.A|
00037550 5f 25 3c 31 32 80 42 5f 25 3c 38 8c 53 68 65 61 |_%<12.B_%<8.Shea|
00037560 64 74 31 5f 25 28 61 61 5f 25 29 3d a4 61 64 64 |dt1_%(aa_%)=.add|
00037570 5f 28 53 68 65 61 64 74 31 5f 25 28 61 61 5f 25 |_(Sheadt1_%(aa_%|
00037580 29 2c 63 5f 25 29 3a 53 68 65 61 64 74 31 5f 25 |),c_%):Sheadt1_%|
00037590 28 61 61 5f 25 2b 32 29 3d a4 61 64 64 5f 28 53 |(aa_%+2)=.add_(S|
000375a0 68 65 61 64 74 31 5f 25 28 61 61 5f 25 2b 32 29 |headt1_%(aa_%+2)|
000375b0 2c 62 5f 25 29 3a 53 68 65 61 64 74 31 5f 25 28 |,b_%):Sheadt1_%(|
000375c0 61 61 5f 25 2b 31 29 3d 53 68 65 61 64 74 31 5f |aa_%+1)=Sheadt1_|
000375d0 25 28 61 61 5f 25 2b 31 29 2b 28 61 5f 25 2d 63 |%(aa_%+1)+(a_%-c|
000375e0 5f 25 29 0d c1 ac be e7 53 49 54 65 5f 24 28 5a |_%).....SITe_$(Z|
000375f0 25 2d 37 29 3c 3e 22 22 3a 53 49 54 65 5f 24 28 |%-7)<>"":SITe_$(|
00037600 5a 25 2d 37 29 3d a4 63 61 70 73 5f 28 53 49 54 |Z%-7)=.caps_(SIT|
00037610 65 5f 24 28 5a 25 2d 37 29 29 3a 41 5f 25 3d 97 |e_$(Z%-7)):A_%=.|
00037620 28 53 49 54 65 5f 24 28 5a 25 2d 37 29 29 2d 36 |(SITe_$(Z%-7))-6|
00037630 34 3a e7 41 5f 25 3c 31 33 3a 42 61 6e 6b 43 43 |4:.A_%<13:BankCC|
00037640 5f 25 28 41 5f 25 29 3d a4 61 64 64 5f 28 42 61 |_%(A_%)=.add_(Ba|
00037650 6e 6b 43 43 5f 25 28 41 5f 25 29 2c 63 5f 25 29 |nkCC_%(A_%),c_%)|
00037660 3a e7 53 49 54 73 5f 24 28 5a 25 2f 73 69 74 69 |:.SITs_$(Z%/siti|
00037670 66 5f 25 2d 31 29 3d 51 5f 24 3a 42 61 6e 6b 53 |f_%-1)=Q_$:BankS|
00037680 53 5f 25 28 41 5f 25 29 3d a4 61 64 64 5f 28 42 |S_%(A_%)=.add_(B|
00037690 61 6e 6b 53 53 5f 25 28 41 5f 25 29 2c 63 5f 25 |ankSS_%(A_%),c_%|
000376a0 29 0d c1 b1 29 e7 53 49 54 65 5f 24 28 5a 25 2d |)...).SITe_$(Z%-|
000376b0 38 29 3d 22 22 8c 53 49 54 6e 5f 25 28 5a 25 2f |8)="".SITn_%(Z%/|
000376c0 73 69 74 69 66 5f 25 29 3d 30 0d c1 b6 8c c8 99 |sitif_%)=0......|
000376d0 26 34 30 36 43 34 2c 8f 23 46 25 2f 6c 5f 25 2a |&406C4,.#F%/l_%*|
000376e0 31 30 30 3a e7 54 72 5f 25 28 31 29 3e 30 3a e7 |100:.Tr_%(1)>0:.|
000376f0 53 49 54 65 5f 24 28 5a 25 2d 38 29 3c 3e 22 22 |SITe_$(Z%-8)<>""|
00037700 3a e7 a4 67 65 74 63 75 6e 5f 28 53 49 54 6e 5f |:..getcun_(SITn_|
00037710 25 28 5a 25 2f 73 69 74 69 66 5f 25 29 29 3c 3e |%(Z%/sitif_%))<>|
00037720 53 49 54 65 5f 24 28 5a 25 2d 38 29 8c 53 49 54 |SITe_$(Z%-8).SIT|
00037730 6e 5f 25 28 5a 25 2f 73 69 74 69 66 5f 25 29 3d |n_%(Z%/sitif_%)=|
00037740 a4 67 65 74 63 75 70 5f 28 53 49 54 65 5f 24 28 |.getcup_(SITe_$(|
00037750 5a 25 2d 38 29 29 0d c1 bb 05 cd 0d c1 c0 57 ed |Z%-8))........W.|
00037760 3a e3 5a 25 3d 30 b8 73 69 74 69 6e 5f 25 2d 31 |:.Z%=0.sitin_%-1|
00037770 3a e8 23 46 25 2c 53 49 54 65 70 5f 24 28 5a 25 |:.#F%,SITep_$(Z%|
00037780 29 3a ed 3a e3 5a 25 3d 30 b8 73 69 74 69 70 5f |):.:.Z%=0.sitip_|
00037790 25 2a 33 3a e8 23 46 25 2c 53 49 54 61 70 5f 24 |%*3:.#F%,SITap_$|
000377a0 28 5a 25 29 3a ed 3a e8 23 46 25 2c 73 69 74 70 |(Z%):.:.#F%,sitp|
000377b0 5f 25 0d c1 ca 7f e3 5a 25 3d 31 b8 4e 65 77 50 |_%.....Z%=1.NewP|
000377c0 72 65 66 5f 25 28 31 29 2a 73 69 74 69 70 5f 25 |ref_%(1)*sitip_%|
000377d0 2a 73 69 74 69 66 5f 25 3a e8 23 46 25 2c 50 49 |*sitif_%:.#F%,PI|
000377e0 54 65 5f 24 28 5a 25 29 3a e7 a4 69 6d 5f 28 46 |Te_$(Z%):..im_(F|
000377f0 25 2c 74 65 6d 5f 24 29 3d 31 8c 46 25 3d 30 3a |%,tem_$)=1.F%=0:|
00037800 5a 25 3d 4e 65 77 50 72 65 66 5f 25 28 31 29 2a |Z%=NewPref_%(1)*|
00037810 73 69 74 69 70 5f 25 2a 73 69 74 69 66 5f 25 3a |sitip_%*sitif_%:|
00037820 ed 3a 50 68 65 61 64 74 31 5f 25 28 29 3d 30 3a |.:Pheadt1_%()=0:|
00037830 e1 0d c1 cf 12 e7 5a 25 83 73 69 74 69 66 5f 25 |......Z%.sitif_%|
00037840 3d 30 8c 0d c1 d4 48 61 5f 25 3d a4 6e 69 5f 28 |=0....Ha_%=.ni_(|
00037850 50 49 54 65 5f 24 28 5a 25 2d 35 29 29 3a 62 5f |PITe_$(Z%-5)):b_|
00037860 25 3d a4 6e 69 5f 28 50 49 54 65 5f 24 28 5a 25 |%=.ni_(PITe_$(Z%|
00037870 2d 33 29 29 3a 63 5f 25 3d a4 6e 69 5f 28 50 49 |-3)):c_%=.ni_(PI|
00037880 54 65 5f 24 28 5a 25 2d 32 29 29 0d c1 d9 7d e7 |Te_$(Z%-2))...}.|
00037890 50 49 54 65 5f 24 28 5a 25 2d 31 29 3c 3e 22 22 |PITe_$(Z%-1)<>""|
000378a0 8c 50 49 54 65 5f 24 28 5a 25 2d 31 29 3d a4 63 |.PITe_$(Z%-1)=.c|
000378b0 61 70 73 5f 28 50 49 54 65 5f 24 28 5a 25 2d 31 |aps_(PITe_$(Z%-1|
000378c0 29 29 3a 41 5f 25 3d 97 28 50 49 54 65 5f 24 28 |)):A_%=.(PITe_$(|
000378d0 5a 25 2d 31 29 29 2d 36 35 3a 42 5f 25 3d 97 28 |Z%-1))-65:B_%=.(|
000378e0 c2 50 49 54 65 5f 24 28 5a 25 2d 31 29 2c 31 29 |.PITe_$(Z%-1),1)|
000378f0 29 2d 36 35 3a 61 61 5f 25 3d 41 5f 25 2a 34 30 |)-65:aa_%=A_%*40|
00037900 2b 42 5f 25 2a 35 2b 32 0d c1 de ab e7 50 49 54 |+B_%*5+2.....PIT|
00037910 65 5f 24 28 5a 25 2d 31 29 3c 3e 22 22 3a e7 41 |e_$(Z%-1)<>"":.A|
00037920 5f 25 3c 31 32 80 42 5f 25 3c 38 8c 50 68 65 61 |_%<12.B_%<8.Phea|
00037930 64 74 31 5f 25 28 61 61 5f 25 29 3d a4 61 64 64 |dt1_%(aa_%)=.add|
00037940 5f 28 50 68 65 61 64 74 31 5f 25 28 61 61 5f 25 |_(Pheadt1_%(aa_%|
00037950 29 2c 63 5f 25 29 3a 50 68 65 61 64 74 31 5f 25 |),c_%):Pheadt1_%|
00037960 28 61 61 5f 25 2b 32 29 3d a4 61 64 64 5f 28 50 |(aa_%+2)=.add_(P|
00037970 68 65 61 64 74 31 5f 25 28 61 61 5f 25 2b 32 29 |headt1_%(aa_%+2)|
00037980 2c 62 5f 25 29 3a 50 68 65 61 64 74 31 5f 25 28 |,b_%):Pheadt1_%(|
00037990 61 61 5f 25 2b 31 29 3d 50 68 65 61 64 74 31 5f |aa_%+1)=Pheadt1_|
000379a0 25 28 61 61 5f 25 2b 31 29 2b 28 61 5f 25 2d 63 |%(aa_%+1)+(a_%-c|
000379b0 5f 25 29 0d c1 e3 c0 e7 50 49 54 65 5f 24 28 5a |_%).....PITe_$(Z|
000379c0 25 2d 37 29 3c 3e 22 22 3a 50 49 54 65 5f 24 28 |%-7)<>"":PITe_$(|
000379d0 5a 25 2d 37 29 3d a4 63 61 70 73 5f 28 50 49 54 |Z%-7)=.caps_(PIT|
000379e0 65 5f 24 28 5a 25 2d 37 29 29 3a 41 5f 25 3d 97 |e_$(Z%-7)):A_%=.|
000379f0 28 50 49 54 65 5f 24 28 5a 25 2d 37 29 29 2d 36 |(PITe_$(Z%-7))-6|
00037a00 34 3a e7 41 5f 25 3c 31 33 3a 42 61 6e 6b 43 43 |4:.A_%<13:BankCC|
00037a10 5f 25 28 41 5f 25 29 3d a4 61 64 64 5f 28 42 61 |_%(A_%)=.add_(Ba|
00037a20 6e 6b 43 43 5f 25 28 41 5f 25 29 2c 2d 63 5f 25 |nkCC_%(A_%),-c_%|
00037a30 29 3a e7 50 49 54 73 5f 24 28 5a 25 2f 73 69 74 |):.PITs_$(Z%/sit|
00037a40 69 66 5f 25 2d 31 29 3d 51 5f 24 3a 42 61 6e 6b |if_%-1)=Q_$:Bank|
00037a50 53 53 5f 25 28 41 5f 25 29 3d a4 61 64 64 5f 28 |SS_%(A_%)=.add_(|
00037a60 42 61 6e 6b 53 53 5f 25 28 41 5f 25 29 2c 2d 63 |BankSS_%(A_%),-c|
00037a70 5f 25 29 0d c1 e8 18 50 49 54 6e 5f 25 28 5a 25 |_%)....PITn_%(Z%|
00037a80 2f 73 69 74 69 66 5f 25 29 3d 30 0d c1 ed 19 c8 |/sitif_%)=0.....|
00037a90 99 26 34 30 36 43 34 2c 8f 23 46 25 2f 6c 5f 25 |.&406C4,.#F%/l_%|
00037aa0 2a 31 30 30 0d c1 f2 05 cd 0d c1 f7 d2 ed 3a e3 |*100..........:.|
00037ab0 5a 25 3d 30 b8 73 69 74 69 6e 5f 25 2d 31 3a e8 |Z%=0.sitin_%-1:.|
00037ac0 23 46 25 2c 50 49 54 65 70 5f 24 28 5a 25 29 3a |#F%,PITep_$(Z%):|
00037ad0 ed 3a e3 5a 25 3d 30 b8 73 69 74 69 70 5f 25 2a |.:.Z%=0.sitip_%*|
00037ae0 33 3a e8 23 46 25 2c 50 49 54 61 70 5f 24 28 5a |3:.#F%,PITap_$(Z|
00037af0 25 29 3a ed 3a e8 23 46 25 2c 70 69 74 70 5f 25 |%):.:.#F%,pitp_%|
00037b00 2c 41 75 74 6f 77 61 72 5f 25 2c 53 61 6c 65 77 |,Autowar_%,Salew|
00037b10 61 72 5f 25 2c 45 78 69 74 77 61 72 5f 25 2c 70 |ar_%,Exitwar_%,p|
00037b20 61 73 73 35 5f 24 2c 70 61 73 73 36 5f 24 2c 70 |ass5_$,pass6_$,p|
00037b30 61 73 73 37 5f 24 2c 49 54 61 63 63 5f 24 2c 49 |ass7_$,ITacc_$,I|
00037b40 54 68 65 61 64 5f 24 2c 53 41 61 63 63 5f 24 2c |Thead_$,SAacc_$,|
00037b50 53 41 68 65 61 64 5f 24 2c 49 54 63 6f 6d 6d 5f |SAhead_$,ITcomm_|
00037b60 24 2c 53 41 63 75 73 74 5f 24 2c 53 41 72 65 66 |$,SAcust_$,SAref|
00037b70 5f 24 2c 53 41 63 6f 6d 6d 5f 24 0d c2 01 8b e3 |_$,SAcomm_$.....|
00037b80 5a 25 3d 31 b8 4e 65 77 50 72 65 66 5f 25 28 32 |Z%=1.NewPref_%(2|
00037b90 29 2a 73 69 74 69 70 5f 25 2a 62 69 74 69 66 5f |)*sitip_%*bitif_|
00037ba0 25 3a e8 23 46 25 2c 42 49 54 65 5f 24 28 5a 25 |%:.#F%,BITe_$(Z%|
00037bb0 29 3a e7 a4 69 6d 5f 28 46 25 2c 74 65 6d 5f 24 |):..im_(F%,tem_$|
00037bc0 29 3d 31 8c 46 25 3d 30 3a 5a 25 3d 4e 65 77 50 |)=1.F%=0:Z%=NewP|
00037bd0 72 65 66 5f 25 28 32 29 2a 73 69 74 69 70 5f 25 |ref_%(2)*sitip_%|
00037be0 2a 62 69 74 69 66 5f 25 3a ed 3a 42 61 6e 6b 43 |*bitif_%:.:BankC|
00037bf0 43 5f 25 28 29 3d 30 3a 42 61 6e 6b 53 53 5f 25 |C_%()=0:BankSS_%|
00037c00 28 29 3d 30 3a e1 0d c2 06 12 e7 5a 25 83 62 69 |()=0:......Z%.bi|
00037c10 74 69 66 5f 25 3d 37 8c 0d c2 0b 30 63 5f 25 3d |tif_%=7....0c_%=|
00037c20 a4 6e 69 5f 28 42 49 54 65 5f 24 28 5a 25 2d 32 |.ni_(BITe_$(Z%-2|
00037c30 29 29 3a c8 99 26 34 30 36 43 34 2c 8f 23 46 25 |)):..&406C4,.#F%|
00037c40 2f 6c 5f 25 2a 31 30 30 0d c2 10 c0 e7 42 49 54 |/l_%*100.....BIT|
00037c50 65 5f 24 28 5a 25 2d 34 29 3c 3e 22 22 3a 42 49 |e_$(Z%-4)<>"":BI|
00037c60 54 65 5f 24 28 5a 25 2d 34 29 3d a4 63 61 70 73 |Te_$(Z%-4)=.caps|
00037c70 5f 28 42 49 54 65 5f 24 28 5a 25 2d 34 29 29 3a |_(BITe_$(Z%-4)):|
00037c80 41 5f 25 3d 97 28 42 49 54 65 5f 24 28 5a 25 2d |A_%=.(BITe_$(Z%-|
00037c90 34 29 29 2d 36 34 3a e7 41 5f 25 3c 31 33 3a 42 |4))-64:.A_%<13:B|
00037ca0 61 6e 6b 43 43 5f 25 28 41 5f 25 29 3d a4 61 64 |ankCC_%(A_%)=.ad|
00037cb0 64 5f 28 42 61 6e 6b 43 43 5f 25 28 41 5f 25 29 |d_(BankCC_%(A_%)|
00037cc0 2c 2d 63 5f 25 29 3a e7 a4 63 61 70 73 5f 28 42 |,-c_%):..caps_(B|
00037cd0 49 54 65 5f 24 28 5a 25 2d 33 29 29 3e 22 50 22 |ITe_$(Z%-3))>"P"|
00037ce0 3a 42 61 6e 6b 53 53 5f 25 28 41 5f 25 29 3d a4 |:BankSS_%(A_%)=.|
00037cf0 61 64 64 5f 28 42 61 6e 6b 53 53 5f 25 28 41 5f |add_(BankSS_%(A_|
00037d00 25 29 2c 2d 63 5f 25 29 0d c2 15 bc e7 42 49 54 |%),-c_%).....BIT|
00037d10 65 5f 24 28 5a 25 2d 31 29 3c 3e 22 22 3a 42 49 |e_$(Z%-1)<>"":BI|
00037d20 54 65 5f 24 28 5a 25 2d 31 29 3d a4 63 61 70 73 |Te_$(Z%-1)=.caps|
00037d30 5f 28 42 49 54 65 5f 24 28 5a 25 2d 31 29 29 3a |_(BITe_$(Z%-1)):|
00037d40 41 5f 25 3d 97 28 42 49 54 65 5f 24 28 5a 25 2d |A_%=.(BITe_$(Z%-|
00037d50 31 29 29 2d 36 34 3a e7 41 5f 25 3c 31 33 3a 42 |1))-64:.A_%<13:B|
00037d60 61 6e 6b 43 43 5f 25 28 41 5f 25 29 3d a4 61 64 |ankCC_%(A_%)=.ad|
00037d70 64 5f 28 42 61 6e 6b 43 43 5f 25 28 41 5f 25 29 |d_(BankCC_%(A_%)|
00037d80 2c 63 5f 25 29 3a e7 a4 63 61 70 73 5f 28 42 49 |,c_%):..caps_(BI|
00037d90 54 65 5f 24 28 5a 25 29 29 3e 22 50 22 3a 42 61 |Te_$(Z%))>"P":Ba|
00037da0 6e 6b 53 53 5f 25 28 41 5f 25 29 3d a4 61 64 64 |nkSS_%(A_%)=.add|
00037db0 5f 28 42 61 6e 6b 53 53 5f 25 28 41 5f 25 29 2c |_(BankSS_%(A_%),|
00037dc0 63 5f 25 29 0d c2 1a 05 cd 0d c2 1f 49 ed 3a e3 |c_%)........I.:.|
00037dd0 5a 25 3d 30 b8 62 69 74 69 6e 5f 25 2d 31 3a e8 |Z%=0.bitin_%-1:.|
00037de0 23 46 25 2c 42 49 54 65 70 5f 24 28 5a 25 29 3a |#F%,BITep_$(Z%):|
00037df0 ed 3a e3 5a 25 3d 30 b8 73 69 74 69 70 5f 25 2a |.:.Z%=0.sitip_%*|
00037e00 32 3a e8 23 46 25 2c 42 49 54 61 70 5f 24 28 5a |2:.#F%,BITap_$(Z|
00037e10 25 29 0d c2 24 05 ed 0d c2 2e 38 e3 5a 25 3d 31 |%)..$.....8.Z%=1|
00037e20 b8 37 3a e8 23 46 25 2c 53 61 6c 65 64 46 5f 24 |.7:.#F%,SaledF_$|
00037e30 28 5a 25 29 2c 50 61 6c 65 64 46 5f 24 28 5a 25 |(Z%),PaledF_$(Z%|
00037e40 29 2c 42 61 6e 6b 46 5f 24 28 5a 25 29 3a ed 0d |),BankF_$(Z%):..|
00037e50 c2 33 2d e3 5a 25 3d 31 b8 32 35 3a e8 23 46 25 |.3-.Z%=1.25:.#F%|
00037e60 2c 53 61 6c 65 64 52 5f 24 28 5a 25 29 2c 50 61 |,SaledR_$(Z%),Pa|
00037e70 6c 65 64 52 5f 24 28 5a 25 29 3a ed 0d c2 38 2d |ledR_$(Z%):...8-|
00037e80 e3 5a 25 3d 31 b8 31 37 3a e8 23 46 25 2c 53 61 |.Z%=1.17:.#F%,Sa|
00037e90 6c 65 64 52 5f 25 28 5a 25 29 2c 50 61 6c 65 64 |ledR_%(Z%),Paled|
00037ea0 52 5f 25 28 5a 25 29 3a ed 0d c2 3d 20 e3 5a 25 |R_%(Z%):...= .Z%|
00037eb0 3d 31 b8 31 35 3a e8 23 46 25 2c 42 61 6c 65 64 |=1.15:.#F%,Baled|
00037ec0 52 5f 24 28 5a 25 29 3a ed 0d c2 42 20 e3 5a 25 |R_$(Z%):...B .Z%|
00037ed0 3d 31 b8 31 31 3a e8 23 46 25 2c 42 61 6c 65 64 |=1.11:.#F%,Baled|
00037ee0 52 5f 25 28 5a 25 29 3a ed 0d c2 47 29 e3 5a 25 |R_%(Z%):...G).Z%|
00037ef0 3d 30 b8 34 34 3a e8 23 46 25 2c 56 61 74 52 5f |=0.44:.#F%,VatR_|
00037f00 24 28 5a 25 29 2c 56 61 74 54 5f 25 28 5a 25 29 |$(Z%),VatT_%(Z%)|
00037f10 3a ed 0d c2 4c 36 e3 5a 25 3d 30 b8 31 30 3a e8 |:...L6.Z%=0.10:.|
00037f20 23 46 25 2c 56 61 74 43 5f 24 28 5a 25 29 2c 56 |#F%,VatC_$(Z%),V|
00037f30 61 74 43 5f 25 28 5a 25 29 3a ed 3a e8 23 46 25 |atC_%(Z%):.:.#F%|
00037f40 2c 70 61 73 73 38 5f 24 0d c2 51 35 e8 23 46 25 |,pass8_$..Q5.#F%|
00037f50 2c 70 72 65 66 6e 5f 25 2c 70 72 65 66 79 65 5f |,prefn_%,prefye_|
00037f60 25 2c 79 6f 75 5f 24 3a c8 99 26 34 30 36 43 34 |%,you_$:..&406C4|
00037f70 2c 8f 23 46 25 2f 6c 5f 25 2a 31 30 30 0d c2 56 |,.#F%/l_%*100..V|
00037f80 39 e3 5a 25 3d 30 b8 74 69 5f 25 3a e8 23 46 25 |9.Z%=0.ti_%:.#F%|
00037f90 2c 69 6e 76 31 31 5f 25 28 5a 25 29 2c 69 6e 76 |,inv11_%(Z%),inv|
00037fa0 32 32 5f 25 28 5a 25 29 2c 69 6e 76 33 33 5f 25 |22_%(Z%),inv33_%|
00037fb0 28 5a 25 29 3a ed 0d c2 5b 5b e8 23 46 25 2c 58 |(Z%):...[[.#F%,X|
00037fc0 70 61 67 78 5f 25 2c 58 70 61 67 79 5f 25 2c 58 |pagx_%,Xpagy_%,X|
00037fd0 6e 61 6d 5f 25 2c 58 66 6f 6e 5f 78 25 2c 58 66 |nam_%,Xfon_x%,Xf|
00037fe0 6f 6e 5f 79 25 2c 58 61 73 70 61 63 5f 25 2c 58 |on_y%,Xaspac_%,X|
00037ff0 61 74 61 62 5f 25 2c 58 6e 61 6d 5f 24 2c 58 61 |atab_%,Xnam_$,Xa|
00038000 34 5f 25 2c 58 75 73 5f 25 2c 58 63 75 73 74 5f |4_%,Xus_%,Xcust_|
00038010 25 0d c2 60 32 e8 23 46 25 2c 53 74 61 74 31 5f |%..`2.#F%,Stat1_|
00038020 24 2c 53 74 61 74 32 5f 24 2c 53 74 61 74 33 5f |$,Stat2_$,Stat3_|
00038030 24 2c 53 42 65 73 74 50 5f 25 2c 53 42 65 73 74 |$,SBestP_%,SBest|
00038040 46 5f 25 0d c2 62 19 e8 23 46 25 2c 41 25 3a f4 |F_%..b..#F%,A%:.|
00038050 20 53 49 4f 6a 75 73 74 20 65 74 63 0d c2 6a 32 | SIOjust etc..j2|
00038060 e8 23 46 25 2c 53 49 4f 62 6f 72 64 65 72 25 2c |.#F%,SIOborder%,|
00038070 53 49 4f 72 75 6c 65 72 25 2c 53 49 4f 64 73 69 |SIOruler%,SIOdsi|
00038080 7a 65 5f 25 2c 53 49 4f 64 67 61 70 5f 25 0d c2 |ze_%,SIOdgap_%..|
00038090 6f 36 e8 23 46 25 2c 53 49 4f 61 34 5f 25 2c 53 |o6.#F%,SIOa4_%,S|
000380a0 49 4f 75 73 5f 25 2c 53 49 4f 63 75 73 74 5f 25 |IOus_%,SIOcust_%|
000380b0 2c 53 49 4f 70 61 67 78 5f 25 2c 53 49 4f 70 61 |,SIOpagx_%,SIOpa|
000380c0 67 79 5f 25 0d c2 74 1c e7 a4 69 6d 5f 28 46 25 |gy_%..t...im_(F%|
000380d0 2c 74 65 6d 5f 24 29 3d 31 8c 46 25 3d 30 3a e1 |,tem_$)=1.F%=0:.|
000380e0 0d c2 79 1a e3 5a 25 3d 30 b8 33 39 39 36 88 34 |..y..Z%=0.3996.4|
000380f0 3a e8 23 46 25 2c 41 25 3a ed 0d c2 7e 84 e3 5a |:.#F%,A%:...~..Z|
00038100 25 3d 31 b8 6d 61 78 54 5f 25 2a 73 69 74 69 70 |%=1.maxT_%*sitip|
00038110 5f 25 2a 73 69 74 69 66 5f 25 3a e8 23 46 25 2c |_%*sitif_%:.#F%,|
00038120 54 49 54 65 5f 24 28 5a 25 29 3a ed 3a e3 5a 25 |TITe_$(Z%):.:.Z%|
00038130 3d 30 b8 73 69 74 69 6e 5f 25 2d 31 3a e8 23 46 |=0.sitin_%-1:.#F|
00038140 25 2c 54 49 54 65 70 5f 24 28 5a 25 29 3a ed 3a |%,TITep_$(Z%):.:|
00038150 e3 5a 25 3d 30 b8 73 69 74 69 70 5f 25 2a 33 3a |.Z%=0.sitip_%*3:|
00038160 e8 23 46 25 2c 54 49 54 61 70 5f 24 28 5a 25 29 |.#F%,TITap_$(Z%)|
00038170 3a ed 3a e8 23 46 25 2c 74 69 74 70 5f 25 0d c2 |:.:.#F%,titp_%..|
00038180 83 8b e3 5a 25 3d 30 b8 6d 61 78 54 5f 25 2a 73 |...Z%=0.maxT_%*s|
00038190 69 74 69 70 5f 25 3a e8 23 46 25 2c 54 49 54 61 |itip_%:.#F%,TITa|
000381a0 5f 24 28 5a 25 29 2c 54 49 54 68 5f 24 28 5a 25 |_$(Z%),TITh_$(Z%|
000381b0 29 2c 54 49 54 73 5f 24 28 5a 25 29 2c 54 49 54 |),TITs_$(Z%),TIT|
000381c0 65 5f 25 28 5a 25 29 2c 54 49 54 6e 5f 25 28 5a |e_%(Z%),TITn_%(Z|
000381d0 25 29 3a ed 3a e8 23 46 25 2c 53 61 76 65 61 42 |%):.:.#F%,SaveaB|
000381e0 5f 24 2c 54 6e 61 6d 5f 24 3a e3 5a 25 3d 30 b8 |_$,Tnam_$:.Z%=0.|
000381f0 31 32 3a e8 23 46 25 2c 45 73 5f 24 28 5a 25 29 |12:.#F%,Es_$(Z%)|
00038200 2c 45 63 5f 24 28 5a 25 29 0d c2 88 1e ed 3a e7 |,Ec_$(Z%).....:.|
00038210 a4 69 6d 5f 28 46 25 2c 74 65 6d 5f 24 29 3d 31 |.im_(F%,tem_$)=1|
00038220 8c 46 25 3d 30 3a e1 0d c2 8d 30 e7 c2 54 6e 61 |.F%=0:....0..Tna|
00038230 6d 5f 24 2c 32 29 3d 22 20 2a 22 8c 54 6e 61 6d |m_$,2)=" *".Tnam|
00038240 5f 24 3d c0 54 6e 61 6d 5f 24 2c a9 28 54 6e 61 |_$=.Tnam_$,.(Tna|
00038250 6d 5f 24 29 2d 32 29 0d c2 92 33 e3 5a 25 3d 30 |m_$)-2)...3.Z%=0|
00038260 b8 33 39 39 3a e8 23 46 25 2c 62 6c 5f 24 28 30 |.399:.#F%,bl_$(0|
00038270 29 3a ed 3a e8 23 46 25 2c 70 61 73 73 41 5f 24 |):.:.#F%,passA_$|
00038280 3a f4 20 50 26 4c 20 65 74 63 0d c2 9c 52 e3 5a |:. P&L etc...R.Z|
00038290 25 3d 30 b8 34 37 39 88 35 3a e8 23 46 25 2c 53 |%=0.479.5:.#F%,S|
000382a0 68 65 61 64 74 31 5f 25 28 5a 25 29 2c 53 68 65 |headt1_%(Z%),She|
000382b0 61 64 74 31 5f 25 28 5a 25 2b 31 29 2c 50 68 65 |adt1_%(Z%+1),Phe|
000382c0 61 64 74 31 5f 25 28 5a 25 29 2c 50 68 65 61 64 |adt1_%(Z%),Phead|
000382d0 74 31 5f 25 28 5a 25 2b 31 29 3a ed 0d c2 a6 4c |t1_%(Z%+1):....L|
000382e0 c8 99 26 34 30 36 43 34 2c 8f 23 46 25 2f 6c 5f |..&406C4,.#F%/l_|
000382f0 25 2a 31 30 30 3a e3 5a 25 3d 30 b8 31 30 3a e8 |%*100:.Z%=0.10:.|
00038300 23 46 25 2c 57 61 74 43 5f 24 28 5a 25 29 2c 57 |#F%,WatC_$(Z%),W|
00038310 61 74 43 5f 25 28 5a 25 29 3a ed 3a e8 23 46 25 |atC_%(Z%):.:.#F%|
00038320 2c 70 61 73 73 39 5f 24 0d c2 ab 80 e3 5a 25 3d |,pass9_$.....Z%=|
00038330 30 b8 31 31 3a e8 23 46 25 2c 62 6c 31 5f 25 28 |0.11:.#F%,bl1_%(|
00038340 5a 25 29 3a ed 3a e3 5a 25 3d 30 b8 31 36 3a e8 |Z%):.:.Z%=0.16:.|
00038350 23 46 25 2c 70 63 5f 24 28 5a 25 29 3a ed 3a e8 |#F%,pc_$(Z%):.:.|
00038360 23 46 25 2c 70 72 65 66 73 31 5f 25 2c 70 72 65 |#F%,prefs1_%,pre|
00038370 66 73 6e 31 5f 25 3a e3 5a 25 3d 31 37 b8 31 39 |fsn1_%:.Z%=17.19|
00038380 3a e8 23 46 25 2c 70 63 5f 24 28 5a 25 29 3a ed |:.#F%,pc_$(Z%):.|
00038390 3a e8 23 46 25 2c 70 72 65 66 73 32 5f 25 2c 70 |:.#F%,prefs2_%,p|
000383a0 72 65 66 73 6e 32 5f 25 0d c2 b0 5d e8 23 46 25 |refsn2_%...].#F%|
000383b0 2c 43 5f 25 2c 53 5f 25 2c 43 53 5f 25 3a e8 23 |,C_%,S_%,CS_%:.#|
000383c0 46 25 2c 49 54 6c 6c 5f 25 3a e7 4e 65 77 50 72 |F%,ITll_%:.NewPr|
000383d0 65 66 5f 25 28 33 29 3e 31 32 35 3a e8 23 46 25 |ef_%(3)>125:.#F%|
000383e0 2c 6c 6d 5f 25 2c 74 6d 5f 25 3a e3 5a 25 3d 30 |,lm_%,tm_%:.Z%=0|
000383f0 b8 42 25 3a e8 23 46 25 2c 53 74 48 64 5f 24 28 |.B%:.#F%,StHd_$(|
00038400 5a 25 29 3a ed 0d c2 b5 1c d9 23 46 25 3a 46 25 |Z%):......#F%:F%|
00038410 3d 30 3a 65 6e 64 5f 25 3d 30 3a 73 61 5f 25 3d |=0:end_%=0:sa_%=|
00038420 30 0d c2 ba 15 e7 4e 65 77 50 72 65 66 5f 25 28 |0.....NewPref_%(|
00038430 37 29 3d 2d 31 8c 0d c2 bf bb e3 5a 25 3d 30 b8 |7)=-1......Z%=0.|
00038440 34 37 39 88 35 3a 53 68 65 61 64 74 31 5f 25 28 |479.5:Sheadt1_%(|
00038450 5a 25 29 3d a4 61 64 64 5f 28 53 68 65 61 64 74 |Z%)=.add_(Sheadt|
00038460 31 5f 25 28 5a 25 2b 32 29 2c 53 68 65 61 64 74 |1_%(Z%+2),Sheadt|
00038470 31 5f 25 28 5a 25 2b 33 29 29 3a 53 68 65 61 64 |1_%(Z%+3)):Shead|
00038480 74 31 5f 25 28 5a 25 2b 31 29 3d 53 68 65 61 64 |t1_%(Z%+1)=Shead|
00038490 74 31 5f 25 28 5a 25 2b 34 29 3a 50 68 65 61 64 |t1_%(Z%+4):Phead|
000384a0 74 31 5f 25 28 5a 25 29 3d a4 61 64 64 5f 28 50 |t1_%(Z%)=.add_(P|
000384b0 68 65 61 64 74 31 5f 25 28 5a 25 2b 32 29 2c 50 |headt1_%(Z%+2),P|
000384c0 68 65 61 64 74 31 5f 25 28 5a 25 2b 33 29 29 3a |headt1_%(Z%+3)):|
000384d0 50 68 65 61 64 74 31 5f 25 28 5a 25 2b 31 29 3d |Pheadt1_%(Z%+1)=|
000384e0 50 68 65 61 64 74 31 5f 25 28 5a 25 2b 34 29 3a |Pheadt1_%(Z%+4):|
000384f0 ed 0d c2 c4 30 c8 99 26 34 30 36 43 31 3a f2 53 |....0..&406C1:.S|
00038500 69 53 6f 72 74 5f 3a f2 50 69 53 6f 72 74 5f 3a |iSort_:.PiSort_:|
00038510 f2 42 69 53 6f 72 74 5f 3a c8 99 26 34 30 36 43 |.BiSort_:..&406C|
00038520 30 0d c2 c9 3d e3 5a 25 3d 30 b8 31 31 3a 42 61 |0...=.Z%=0.11:Ba|
00038530 6e 6b 4f 4f 5f 25 28 5a 25 2b 31 29 3d a4 61 64 |nkOO_%(Z%+1)=.ad|
00038540 64 5f 28 42 61 6e 6b 4f 4f 5f 25 28 5a 25 2b 31 |d_(BankOO_%(Z%+1|
00038550 29 2c 62 6c 31 5f 25 28 5a 25 29 29 3a ed 0d c2 |),bl1_%(Z%)):...|
00038560 ce 05 cd 0d c2 d3 0c c8 99 26 34 30 36 43 31 0d |.........&406C1.|
00038570 c2 d8 3f 53 61 76 65 61 5f 24 3d 74 65 6d 5f 24 |..?Savea_$=tem_$|
00038580 3a e7 73 61 76 65 25 3e 30 8c 24 21 53 61 76 65 |:.save%>0.$!Save|
00038590 61 73 5f 25 3d 74 65 6d 5f 24 3a 5a 25 3d a4 77 |as_%=tem_$:Z%=.w|
000385a0 69 6e 64 6f 77 28 22 53 73 61 76 65 22 29 0d c2 |indow("Ssave")..|
000385b0 dd 1a 49 4f 72 64 65 72 63 68 25 28 29 3d 31 3a |..IOrderch%()=1:|
000385c0 49 4f 63 68 5f 25 3d 31 0d c2 e2 14 e7 43 5f 25 |IOch_%=1.....C_%|
000385d0 3e 4d 5f 25 3a 43 5f 25 3d 4d 5f 25 0d c2 e7 20 |>M_%:C_%=M_%... |
000385e0 e7 53 5f 25 3e 6d 61 78 73 75 70 70 5f 25 3a 53 |.S_%>maxsupp_%:S|
000385f0 5f 25 3d 6d 61 78 73 75 70 70 5f 25 0d c2 ec 24 |_%=maxsupp_%...$|
00038600 e7 43 53 5f 25 3e 43 6d 61 78 73 75 70 70 5f 25 |.CS_%>Cmaxsupp_%|
00038610 3a 43 53 5f 25 3d 43 6d 61 78 73 75 70 70 5f 25 |:CS_%=Cmaxsupp_%|
00038620 0d c2 f1 37 f2 6f 6c 64 66 6f 6e 74 5f 3a f2 43 |...7.oldfont_:.C|
00038630 75 70 6c 73 75 70 5f 3a f2 75 70 6c 68 65 61 64 |uplsup_:.uplhead|
00038640 73 5f 3a f2 75 70 6c 68 65 61 64 70 5f 3a f2 75 |s_:.uplheadp_:.u|
00038650 70 6c 62 61 6e 6b 5f 0d c2 f6 3a e7 6e 5f 25 3e |plbank_...:.n_%>|
00038660 2d 31 80 70 61 73 73 31 5f 24 3c 3e 22 22 80 65 |-1.pass1_$<>"".e|
00038670 64 69 74 25 3e 30 8c f2 73 77 5f 28 65 64 69 74 |dit%>0..sw_(edit|
00038680 25 29 3a f2 63 6c 6f 73 65 57 28 65 64 69 74 25 |%):.closeW(edit%|
00038690 29 0d c2 fb 16 e7 6e 5f 25 3e 2d 31 8c 5a 25 3d |).....n_%>-1.Z%=|
000386a0 a4 6d 61 69 6e 57 5f 0d c3 00 0d f2 75 70 73 74 |.mainW_.....upst|
000386b0 61 6e 64 5f 0d c3 05 05 e1 0d c3 0a 5d dd a4 69 |and_........]..i|
000386c0 6d 5f 28 46 5f 25 2c 74 65 6d 5f 24 29 3a e7 93 |m_(F_%,tem_$):..|
000386d0 2d e0 3c 6d 65 6d 5f 25 8c c8 99 26 34 30 36 43 |-.<mem_%...&406C|
000386e0 31 3a 6d 6f 72 65 6d 65 6d 5f 25 3d 6d 65 6d 5f |1:moremem_%=mem_|
000386f0 25 3a 6d 6f 72 65 6d 65 6d 5f 24 3d 74 65 6d 5f |%:moremem_$=tem_|
00038700 24 3a d9 23 46 5f 25 3a 65 6e 64 5f 25 3d 32 3a |$:.#F_%:end_%=2:|
00038710 3d 31 20 8b 3d 30 0d c3 0f 04 0d c3 14 20 dd a4 |=1 .=0....... ..|
00038720 6d 61 78 6d 65 6d 5f 3a ea 20 41 25 3a 6d 65 6d |maxmem_:. A%:mem|
00038730 38 5f 25 3d 30 3a 41 25 3d 30 0d c3 19 32 e7 6d |8_%=0:A%=0...2.m|
00038740 65 6d 38 5f 25 3c 4d 5f 25 2a 6d 65 6d 31 5f 25 |em8_%<M_%*mem1_%|
00038750 8c 6d 65 6d 38 5f 25 3d 4d 5f 25 2a 6d 65 6d 31 |.mem8_%=M_%*mem1|
00038760 5f 25 3a 41 25 3d 6d 65 6d 31 5f 25 0d c3 1e 3e |_%:A%=mem1_%...>|
00038770 e7 6d 65 6d 38 5f 25 3c 6d 61 78 73 75 70 70 5f |.mem8_%<maxsupp_|
00038780 25 2a 6d 65 6d 32 5f 25 8c 6d 65 6d 38 5f 25 3d |%*mem2_%.mem8_%=|
00038790 6d 61 78 73 75 70 70 5f 25 2a 6d 65 6d 32 5f 25 |maxsupp_%*mem2_%|
000387a0 3a 41 25 3d 6d 65 6d 32 5f 25 0d c3 23 40 e7 6d |:A%=mem2_%..#@.m|
000387b0 65 6d 38 5f 25 3c 43 6d 61 78 73 75 70 70 5f 25 |em8_%<Cmaxsupp_%|
000387c0 2a 6d 65 6d 33 5f 25 8c 6d 65 6d 38 5f 25 3d 43 |*mem3_%.mem8_%=C|
000387d0 6d 61 78 73 75 70 70 5f 25 2a 6d 65 6d 33 5f 25 |maxsupp_%*mem3_%|
000387e0 3a 41 25 3d 6d 65 6d 33 5f 25 0d c3 28 38 e7 6d |:A%=mem3_%..(8.m|
000387f0 65 6d 38 5f 25 3c 6d 61 78 53 5f 25 2a 6d 65 6d |em8_%<maxS_%*mem|
00038800 34 5f 25 8c 6d 65 6d 38 5f 25 3d 6d 61 78 53 5f |4_%.mem8_%=maxS_|
00038810 25 2a 6d 65 6d 34 5f 25 3a 41 25 3d 6d 65 6d 34 |%*mem4_%:A%=mem4|
00038820 5f 25 0d c3 2d 38 e7 6d 65 6d 38 5f 25 3c 6d 61 |_%..-8.mem8_%<ma|
00038830 78 50 5f 25 2a 6d 65 6d 35 5f 25 8c 6d 65 6d 38 |xP_%*mem5_%.mem8|
00038840 5f 25 3d 6d 61 78 50 5f 25 2a 6d 65 6d 35 5f 25 |_%=maxP_%*mem5_%|
00038850 3a 41 25 3d 6d 65 6d 35 5f 25 0d c3 32 38 e7 6d |:A%=mem5_%..28.m|
00038860 65 6d 38 5f 25 3c 6d 61 78 42 5f 25 2a 6d 65 6d |em8_%<maxB_%*mem|
00038870 36 5f 25 8c 6d 65 6d 38 5f 25 3d 6d 61 78 42 5f |6_%.mem8_%=maxB_|
00038880 25 2a 6d 65 6d 36 5f 25 3a 41 25 3d 6d 65 6d 36 |%*mem6_%:A%=mem6|
00038890 5f 25 0d c3 37 66 e7 6d 65 6d 38 5f 25 3c 6d 61 |_%..7f.mem8_%<ma|
000388a0 78 53 5f 25 2a 6d 65 6d 34 5f 25 2b 6d 61 78 50 |xS_%*mem4_%+maxP|
000388b0 5f 25 2a 6d 65 6d 35 5f 25 2b 6d 61 78 42 5f 25 |_%*mem5_%+maxB_%|
000388c0 2a 6d 65 6d 36 5f 25 8c 6d 65 6d 38 5f 25 3d 6d |*mem6_%.mem8_%=m|
000388d0 61 78 53 5f 25 2a 6d 65 6d 34 5f 25 2b 6d 61 78 |axS_%*mem4_%+max|
000388e0 50 5f 25 2a 6d 65 6d 35 5f 25 2b 6d 61 78 42 5f |P_%*mem5_%+maxB_|
000388f0 25 2a 6d 65 6d 36 5f 25 0d c3 3c 07 3d 41 25 0d |%*mem6_%..<.=A%.|
00038900 c3 41 23 dd a4 63 6c 66 5f 28 5a 5f 25 29 3a e7 |.A#..clf_(Z_%):.|
00038910 5a 5f 25 3e 30 8c d9 23 5a 5f 25 3a 3d 30 20 8b |Z_%>0..#Z_%:=0 .|
00038920 3d 30 0d c3 46 14 dd a4 6c 6f 61 64 31 5f 28 74 |=0..F...load1_(t|
00038930 65 6d 70 5f 24 29 0d c3 4b 4d ea 20 41 25 2c 42 |emp_$)..KM. A%,B|
00038940 25 2c 43 25 2c 44 25 2c 45 25 2c 46 25 2c 47 25 |%,C%,D%,E%,F%,G%|
00038950 2c 5a 25 2c 41 5f 25 2c 42 5f 25 2c 43 5f 25 2c |,Z%,A_%,B_%,C_%,|
00038960 44 5f 25 2c 45 5f 25 2c 46 5f 25 2c 47 5f 25 2c |D_%,E_%,F_%,G_%,|
00038970 48 5f 25 2c 49 5f 25 2c 4a 5f 25 2c 4b 5f 25 2c |H_%,I_%,J_%,K_%,|
00038980 4c 5f 25 0d c3 50 07 ea 20 85 0d c3 55 24 ee 20 |L_%..P.. ...U$. |
00038990 85 20 ea 3a f7 20 85 3a 6d 6f 72 65 6d 65 6d 5f |. .:. .:moremem_|
000389a0 25 3d 30 3a 3d a4 63 6c 66 5f 28 46 25 29 0d c3 |%=0:=.clf_(F%)..|
000389b0 5a 08 46 25 3d 30 0d c3 5f 10 46 25 3d ad 28 74 |Z.F%=0.._.F%=.(t|
000389c0 65 6d 70 5f 24 29 0d c3 64 4b e8 23 46 25 2c 42 |emp_$)..dK.#F%,B|
000389d0 25 2c 43 25 2c 44 25 2c 4d 5f 25 2c 6d 61 78 73 |%,C%,D%,M_%,maxs|
000389e0 75 70 70 5f 25 2c 43 6d 61 78 73 75 70 70 5f 25 |upp_%,Cmaxsupp_%|
000389f0 2c 6d 61 78 53 5f 25 2c 6d 61 78 50 5f 25 2c 6d |,maxS_%,maxP_%,m|
00038a00 61 78 42 5f 25 2c 41 5f 25 2c 42 5f 25 2c 43 5f |axB_%,A_%,B_%,C_|
00038a10 25 0d c3 69 44 4e 5f 25 3d a4 6d 61 78 6d 65 6d |%..iDN_%=.maxmem|
00038a20 5f 3a e7 6d 61 78 73 75 70 70 5f 25 3e 43 6d 61 |_:.maxsupp_%>Cma|
00038a30 78 73 75 70 70 5f 25 8c 4e 5f 25 3d 6d 61 78 73 |xsupp_%.N_%=maxs|
00038a40 75 70 70 5f 25 20 8b 4e 5f 25 3d 43 6d 61 78 73 |upp_% .N_%=Cmaxs|
00038a50 75 70 70 5f 25 0d c3 6e 75 6d 6f 72 65 6d 65 6d |upp_%..numoremem|
00038a60 5f 25 3d 4d 5f 25 2a 6d 65 6d 31 5f 25 2b 6d 61 |_%=M_%*mem1_%+ma|
00038a70 78 73 75 70 70 5f 25 2a 6d 65 6d 32 5f 25 2b 43 |xsupp_%*mem2_%+C|
00038a80 6d 61 78 73 75 70 70 5f 25 2a 6d 65 6d 33 5f 25 |maxsupp_%*mem3_%|
00038a90 2b 6d 61 78 53 5f 25 2a 6d 65 6d 34 5f 25 2b 6d |+maxS_%*mem4_%+m|
00038aa0 61 78 50 5f 25 2a 6d 65 6d 35 5f 25 2b 6d 61 78 |axP_%*mem5_%+max|
00038ab0 42 5f 25 2a 6d 65 6d 36 5f 25 2b 4e 5f 25 2a 6d |B_%*mem6_%+N_%*m|
00038ac0 65 6d 37 5f 25 2b a2 23 46 25 0d c3 73 23 c8 99 |em7_%+.#F%..s#..|
00038ad0 26 34 30 30 45 43 2c 2d 31 2c 2d 31 20 b8 20 5a |&400EC,-1,-1 . Z|
00038ae0 31 5f 25 2c 5a 32 5f 25 2c 5a 33 5f 25 0d c3 78 |1_%,Z2_%,Z3_%..x|
00038af0 29 44 5f 25 3d 6d 6f 72 65 6d 65 6d 5f 25 2d 28 |)D_%=moremem_%-(|
00038b00 93 2d e0 29 3a 47 25 3d 44 5f 25 2b 6d 70 61 5f |.-.):G%=D_%+mpa_|
00038b10 25 2d 5a 33 5f 25 0d c3 7d 14 e7 44 5f 25 2b 6d |%-Z3_%..}..D_%+m|
00038b20 70 61 5f 25 3e 5a 33 5f 25 8c 0d c3 82 69 45 5f |pa_%>Z3_%....iE_|
00038b30 25 3d 4d 5f 25 2d 42 25 3a 46 5f 25 3d 6d 61 78 |%=M_%-B%:F_%=max|
00038b40 73 75 70 70 5f 25 2d 43 25 3a 47 5f 25 3d 43 6d |supp_%-C%:G_%=Cm|
00038b50 61 78 73 75 70 70 5f 25 2d 44 25 3a 48 5f 25 3d |axsupp_%-D%:H_%=|
00038b60 6d 61 78 53 5f 25 2d 41 5f 25 3a 49 5f 25 3d 6d |maxS_%-A_%:I_%=m|
00038b70 61 78 50 5f 25 2d 42 5f 25 3a 4a 5f 25 3d 6d 61 |axP_%-B_%:J_%=ma|
00038b80 78 42 5f 25 2d 43 5f 25 3a 72 65 64 75 63 65 5f |xB_%-C_%:reduce_|
00038b90 25 3d 31 0d c3 87 13 f5 3a 4c 5f 25 3d 6d 6f 72 |%=1.....:L_%=mor|
00038ba0 65 6d 65 6d 5f 25 0d c3 8c 10 45 25 3d 45 5f 25 |emem_%....E%=E_%|
00038bb0 3a 4b 5f 25 3d 31 0d c3 91 18 e7 45 25 3c 46 5f |:K_%=1.....E%<F_|
00038bc0 25 8c 45 25 3d 46 5f 25 3a 4b 5f 25 3d 32 0d c3 |%.E%=F_%:K_%=2..|
00038bd0 96 18 e7 45 25 3c 47 5f 25 8c 45 25 3d 47 5f 25 |...E%<G_%.E%=G_%|
00038be0 3a 4b 5f 25 3d 33 0d c3 9b 18 e7 45 25 3c 48 5f |:K_%=3.....E%<H_|
00038bf0 25 8c 45 25 3d 48 5f 25 3a 4b 5f 25 3d 34 0d c3 |%.E%=H_%:K_%=4..|
00038c00 a0 18 e7 45 25 3c 49 5f 25 8c 45 25 3d 49 5f 25 |...E%<I_%.E%=I_%|
00038c10 3a 4b 5f 25 3d 35 0d c3 a5 18 e7 45 25 3c 4a 5f |:K_%=5.....E%<J_|
00038c20 25 8c 45 25 3d 4a 5f 25 3a 4b 5f 25 3d 36 0d c3 |%.E%=J_%:K_%=6..|
00038c30 aa 0f e7 45 25 3c 31 8c 4b 5f 25 3d 30 0d c3 af |...E%<1.K_%=0...|
00038c40 0c c8 8e 20 4b 5f 25 20 ca 0d c3 b4 38 c9 20 31 |... K_% ....8. 1|
00038c50 3a 45 5f 25 2d 3d 31 3a 4d 5f 25 2d 3d 31 3a cf |:E_%-=1:M_%-=1:.|
00038c60 23 46 25 3d 31 35 3a f1 23 46 25 2c 4d 5f 25 3a |#F%=15:.#F%,M_%:|
00038c70 6d 6f 72 65 6d 65 6d 5f 25 2d 3d 6d 65 6d 31 5f |moremem_%-=mem1_|
00038c80 25 0d c3 b9 6c c9 20 32 3a 46 5f 25 2d 3d 31 3a |%...l. 2:F_%-=1:|
00038c90 6d 61 78 73 75 70 70 5f 25 2d 3d 31 3a cf 23 46 |maxsupp_%-=1:.#F|
00038ca0 25 3d 32 30 3a f1 23 46 25 2c 6d 61 78 73 75 70 |%=20:.#F%,maxsup|
00038cb0 70 5f 25 3a 6d 6f 72 65 6d 65 6d 5f 25 2d 3d 6d |p_%:moremem_%-=m|
00038cc0 65 6d 32 5f 25 3a e7 6d 61 78 73 75 70 70 5f 25 |em2_%:.maxsupp_%|
00038cd0 3e 43 6d 61 78 73 75 70 70 5f 25 8c 6d 6f 72 65 |>Cmaxsupp_%.more|
00038ce0 6d 65 6d 5f 25 2d 3d 6d 65 6d 37 5f 25 0d c3 be |mem_%-=mem7_%...|
00038cf0 6e c9 20 33 3a 47 5f 25 2d 3d 31 3a 43 6d 61 78 |n. 3:G_%-=1:Cmax|
00038d00 73 75 70 70 5f 25 2d 3d 31 3a cf 23 46 25 3d 32 |supp_%-=1:.#F%=2|
00038d10 35 3a f1 23 46 25 2c 43 6d 61 78 73 75 70 70 5f |5:.#F%,Cmaxsupp_|
00038d20 25 3a 6d 6f 72 65 6d 65 6d 5f 25 2d 3d 6d 65 6d |%:moremem_%-=mem|
00038d30 33 5f 25 3a e7 43 6d 61 78 73 75 70 70 5f 25 3e |3_%:.Cmaxsupp_%>|
00038d40 6d 61 78 73 75 70 70 5f 25 8c 6d 6f 72 65 6d 65 |maxsupp_%.moreme|
00038d50 6d 5f 25 2d 3d 6d 65 6d 37 5f 25 0d c3 c3 3e c9 |m_%-=mem7_%...>.|
00038d60 20 34 3a 48 5f 25 2d 3d 31 3a 6d 61 78 53 5f 25 | 4:H_%-=1:maxS_%|
00038d70 2d 3d 31 3a cf 23 46 25 3d 33 30 3a f1 23 46 25 |-=1:.#F%=30:.#F%|
00038d80 2c 6d 61 78 53 5f 25 3a 6d 6f 72 65 6d 65 6d 5f |,maxS_%:moremem_|
00038d90 25 2d 3d 6d 65 6d 34 5f 25 0d c3 c8 3e c9 20 35 |%-=mem4_%...>. 5|
00038da0 3a 49 5f 25 2d 3d 31 3a 6d 61 78 50 5f 25 2d 3d |:I_%-=1:maxP_%-=|
00038db0 31 3a cf 23 46 25 3d 33 35 3a f1 23 46 25 2c 6d |1:.#F%=35:.#F%,m|
00038dc0 61 78 50 5f 25 3a 6d 6f 72 65 6d 65 6d 5f 25 2d |axP_%:moremem_%-|
00038dd0 3d 6d 65 6d 35 5f 25 0d c3 cd 3e c9 20 36 3a 4a |=mem5_%...>. 6:J|
00038de0 5f 25 2d 3d 31 3a 6d 61 78 42 5f 25 2d 3d 31 3a |_%-=1:maxB_%-=1:|
00038df0 cf 23 46 25 3d 34 30 3a f1 23 46 25 2c 6d 61 78 |.#F%=40:.#F%,max|
00038e00 42 5f 25 3a 6d 6f 72 65 6d 65 6d 5f 25 2d 3d 6d |B_%:moremem_%-=m|
00038e10 65 6d 36 5f 25 0d c3 d2 05 cb 0d c3 d7 3c 44 5f |em6_%........<D_|
00038e20 25 3d 44 5f 25 3d 6d 6f 72 65 6d 65 6d 5f 25 2d |%=D_%=moremem_%-|
00038e30 28 93 2d e0 29 3a c8 99 26 34 30 36 43 34 2c 28 |(.-.):..&406C4,(|
00038e40 44 5f 25 2b 6d 70 61 5f 25 2d 5a 33 5f 25 29 2f |D_%+mpa_%-Z3_%)/|
00038e50 47 25 2a 31 30 30 0d c3 dc 21 fd 44 5f 25 2b 6d |G%*100...!.D_%+m|
00038e60 70 61 5f 25 3c 5a 33 5f 25 84 4c 5f 25 3d 6d 6f |pa_%<Z3_%.L_%=mo|
00038e70 72 65 6d 65 6d 5f 25 0d c3 e1 19 e7 44 5f 25 3e |remem_%.....D_%>|
00038e80 5a 33 5f 25 8c 6d 6f 72 65 6d 65 6d 5f 25 3d 30 |Z3_%.moremem_%=0|
00038e90 0d c3 e6 05 cd 0d c3 eb 08 d9 23 46 25 0d c3 f0 |..........#F%...|
00038ea0 0e 3d 6d 6f 72 65 6d 65 6d 5f 25 0d c3 f5 04 0d |.=moremem_%.....|
00038eb0 c3 fa 1e dd a4 63 68 65 63 6b 6d 61 78 73 74 31 |.....checkmaxst1|
00038ec0 5f 3a ea 20 41 25 2c 5a 25 3a 3d 31 32 0d c4 04 |_:. A%,Z%:=12...|
00038ed0 1e dd a4 63 68 65 63 6b 6d 61 78 73 75 31 5f 3a |...checkmaxsu1_:|
00038ee0 ea 20 41 25 2c 5a 25 3a 3d 31 30 0d c4 18 1f dd |. A%,Z%:=10.....|
00038ef0 a4 43 63 68 65 63 6b 6d 61 78 73 75 31 5f 3a ea |.Ccheckmaxsu1_:.|
00038f00 20 41 25 2c 5a 25 3a 3d 33 30 0d c4 27 1d dd a4 | A%,Z%:=30..'...|
00038f10 63 68 65 63 6b 6d 61 78 53 31 5f 3a ea 20 41 25 |checkmaxS1_:. A%|
00038f20 2c 5a 25 3a 3d 33 30 0d c4 36 1d dd a4 63 68 65 |,Z%:=30..6...che|
00038f30 63 6b 6d 61 78 50 31 5f 3a ea 20 41 25 2c 5a 25 |ckmaxP1_:. A%,Z%|
00038f40 3a 3d 33 30 0d c4 45 1d dd a4 63 68 65 63 6b 6d |:=30..E...checkm|
00038f50 61 78 42 31 5f 3a ea 20 41 25 2c 5a 25 3a 3d 31 |axB1_:. A%,Z%:=1|
00038f60 30 0d c4 54 04 0d c4 59 46 dd a4 73 77 70 63 5f |0..T...YF..swpc_|
00038f70 28 41 5f 25 29 3a e7 41 5f 25 3e 36 34 80 41 5f |(A_%):.A_%>64.A_|
00038f80 25 3c 39 37 8c 3d 41 5f 25 2b 33 32 20 8b e7 41 |%<97.=A_%+32 ..A|
00038f90 5f 25 3e 39 36 80 41 5f 25 3c 31 32 33 8c 3d 41 |_%>96.A_%<123.=A|
00038fa0 5f 25 2d 33 32 20 8b 3d 41 5f 25 0d c4 5e 04 0d |_%-32 .=A_%..^..|
00038fb0 c4 63 24 dd a4 67 6e 5f 28 41 5f 24 29 3a ea 20 |.c$..gn_(A_$):. |
00038fc0 5a 25 2c 5a 5f 25 3a e3 5a 25 3d 31 b8 a9 28 41 |Z%,Z_%:.Z%=1..(A|
00038fd0 5f 24 29 0d c4 68 33 e7 c1 41 5f 24 2c 5a 25 2c |_$)..h3..A_$,Z%,|
00038fe0 31 29 3e 22 2f 22 80 c1 41 5f 24 2c 5a 25 2c 31 |1)>"/"..A_$,Z%,1|
00038ff0 29 3c 22 3a 22 8c 5a 5f 25 3d 5a 25 3a 5a 25 3d |)<":".Z_%=Z%:Z%=|
00039000 a9 28 41 5f 24 29 0d c4 6d 0a ed 3a 3d 5a 5f 25 |.(A_$)..m..:=Z_%|
00039010 0d c4 72 04 0d c4 77 17 dd a4 75 70 64 61 74 65 |..r...w...update|
00039020 6e 75 6d 5f 28 41 24 2c 4c 25 29 0d c4 7c 17 ea |num_(A$,L%)..|..|
00039030 20 41 25 2c 42 25 2c 5a 25 2c 42 24 2c 43 24 2c | A%,B%,Z%,B$,C$,|
00039040 44 24 0d c4 81 0e e7 41 24 3d 22 22 8c 3d 22 22 |D$.....A$="".=""|
00039050 0d c4 86 12 e3 5a 25 3d a9 28 41 24 29 b8 31 88 |.....Z%=.(A$).1.|
00039060 2d 31 0d c4 8b 2b e7 c1 41 24 2c 5a 25 2c 31 29 |-1...+..A$,Z%,1)|
00039070 3e 22 2f 22 80 c1 41 24 2c 5a 25 2c 31 29 3c 22 |>"/"..A$,Z%,1)<"|
00039080 3a 22 8c 41 25 3d 5a 25 3a 5a 25 3d 31 0d c4 90 |:".A%=Z%:Z%=1...|
00039090 05 ed 0d c4 95 0a e7 41 25 3e 30 8c 0d c4 9a 0f |.......A%>0.....|
000390a0 e3 5a 25 3d 41 25 b8 31 88 2d 31 0d c4 9f 2b e7 |.Z%=A%.1.-1...+.|
000390b0 c1 41 24 2c 5a 25 2c 31 29 3c 22 30 22 84 c1 41 |.A$,Z%,1)<"0"..A|
000390c0 24 2c 5a 25 2c 31 29 3e 22 39 22 8c 42 25 3d 5a |$,Z%,1)>"9".B%=Z|
000390d0 25 3a 5a 25 3d 31 0d c4 a4 05 ed 0d c4 a9 0e 42 |%:Z%=1.........B|
000390e0 24 3d c0 41 24 2c 42 25 29 0d c4 ae 14 44 24 3d |$=.A$,B%)....D$=|
000390f0 c1 41 24 2c 41 25 2b 31 2c 32 35 35 29 0d c4 b3 |.A$,A%+1,255)...|
00039100 1e 43 24 3d c3 28 bb 28 c1 41 24 2c 42 25 2b 31 |.C$=.(.(.A$,B%+1|
00039110 2c 41 25 2d 42 25 29 29 2b 31 29 0d c4 b8 05 cd |,A%-B%))+1).....|
00039120 0d c4 bd 12 3d c0 42 24 2b 43 24 2b 44 24 2c 4c |....=.B$+C$+D$,L|
00039130 25 29 0d c4 c2 15 dd a4 75 70 64 61 74 65 6e 75 |%)......updatenu|
00039140 6d 32 5f 28 41 24 29 0d c4 c7 17 ea 20 41 25 2c |m2_(A$)..... A%,|
00039150 42 25 2c 5a 25 2c 42 24 2c 43 24 2c 44 24 0d c4 |B%,Z%,B$,C$,D$..|
00039160 cc 19 41 25 3d a7 41 24 2c 22 a0 22 29 3a e7 41 |..A%=.A$,"."):.A|
00039170 25 3c 31 8c 3d 22 22 0d c4 d1 16 41 25 2b 3d 31 |%<1.=""....A%+=1|
00039180 3a 42 24 3d c0 41 24 2c 41 25 2d 31 29 0d c4 d6 |:B$=.A$,A%-1)...|
00039190 1b 42 25 3d a9 28 41 24 29 2b 31 3a e3 5a 25 3d |.B%=.(A$)+1:.Z%=|
000391a0 41 25 b8 a9 28 41 24 29 0d c4 db 2f e7 c1 41 24 |A%..(A$).../..A$|
000391b0 2c 5a 25 2c 31 29 3c 22 30 22 84 c1 41 24 2c 5a |,Z%,1)<"0"..A$,Z|
000391c0 25 2c 31 29 3e 22 39 22 8c 42 25 3d 5a 25 3a 5a |%,1)>"9".B%=Z%:Z|
000391d0 25 3d a9 28 41 24 29 0d c4 e0 05 ed 0d c4 e5 1c |%=.(A$).........|
000391e0 43 24 3d c3 28 bb 28 c1 41 24 2c 41 25 2c 42 25 |C$=.(.(.A$,A%,B%|
000391f0 2d 41 25 29 29 2b 31 29 0d c4 ea 12 44 24 3d c1 |-A%))+1)....D$=.|
00039200 41 24 2c 42 25 2c 32 35 35 29 0d c4 ef 0d 3d 42 |A$,B%,255)....=B|
00039210 24 2b 43 24 2b 44 24 0d c4 f4 04 0d c4 f9 31 dd |$+C$+D$.......1.|
00039220 a4 63 61 70 73 5f 28 41 5f 24 29 3a ea 20 48 25 |.caps_(A_$):. H%|
00039230 3a 48 25 3d 74 5f 25 3a 24 74 5f 25 3d 41 5f 24 |:H%=t_%:$t_%=A_$|
00039240 3a d6 6d 31 5f 25 3a 3d 24 74 5f 25 0d c4 fe 04 |:.m1_%:=$t_%....|
00039250 0d c5 03 1b dd a4 73 61 76 65 73 61 6c 65 73 6c |......savesalesl|
00039260 65 64 67 65 72 5f 28 41 5f 25 29 0d c5 08 0c ea |edger_(A_%).....|
00039270 20 61 5f 25 2c 5a 24 0d c5 0d 3c f4 20 41 5f 25 | a_%,Z$...<. A_%|
00039280 3d 31 20 43 61 73 68 20 73 61 6c 65 73 20 41 5f |=1 Cash sales A_|
00039290 25 3d 32 20 49 6e 76 6f 69 63 65 20 41 5f 25 3d |%=2 Invoice A_%=|
000392a0 33 20 52 45 43 45 49 50 54 20 34 3d 50 41 59 4d |3 RECEIPT 4=PAYM|
000392b0 45 4e 54 0d c5 12 14 65 72 72 6f 72 5f 25 3d 31 |ENT....error_%=1|
000392c0 3a 61 5f 25 3d 57 25 0d c5 17 65 e7 41 5f 25 3c |:a_%=W%...e.A_%<|
000392d0 33 3a e7 53 61 6c 65 77 61 72 5f 25 3d 31 8c 5a |3:.Salewar_%=1.Z|
000392e0 24 3d a4 61 6c 65 72 74 28 22 41 62 6f 75 74 20 |$=.alert("About |
000392f0 74 6f 20 53 61 76 65 20 74 6f 20 74 68 65 20 53 |to Save to the S|
00039300 61 6c 65 73 20 4c 65 64 67 65 72 20 4f 4b 3f 22 |ales Ledger OK?"|
00039310 2c 22 22 2c 22 59 45 53 22 2c 22 4e 4f 22 2c 22 |,"","YES","NO","|
00039320 61 72 5f 71 75 65 73 74 22 2c 31 29 0d c5 1c 0a |ar_quest",1)....|
00039330 57 25 3d 61 5f 25 0d c5 21 0d 65 72 72 6f 72 5f |W%=a_%..!.error_|
00039340 25 3d 30 0d c5 26 0f e7 5a 24 3d 22 4e 4f 22 8c |%=0..&..Z$="NO".|
00039350 3d a3 0d c5 2b 1c e7 41 5f 25 3d 31 3a e7 a4 53 |=...+..A_%=1:..S|
00039360 41 6c 65 64 67 65 72 5f 3d a3 20 8c 3d a3 0d c5 |Aledger_=. .=...|
00039370 30 15 e7 41 5f 25 3d 32 8c f2 49 54 6c 65 64 67 |0..A_%=2..ITledg|
00039380 65 72 5f 0d c5 35 1f e7 41 5f 25 3d 33 3a e7 a4 |er_..5..A_%=3:..|
00039390 52 45 6c 65 64 67 65 72 5f 28 30 29 3d a3 20 8c |REledger_(0)=. .|
000393a0 3d a3 0d c5 3a 1f e7 41 5f 25 3d 34 3a e7 a4 50 |=...:..A_%=4:..P|
000393b0 45 6c 65 64 67 65 72 5f 28 30 29 3d a3 20 8c 3d |Eledger_(0)=. .=|
000393c0 a3 0d c5 3f 1c e7 41 5f 25 3d 35 3a e7 a4 42 45 |...?..A_%=5:..BE|
000393d0 6c 65 64 67 65 72 5f 3d a3 20 8c 3d a3 0d c5 44 |ledger_=. .=...D|
000393e0 1d e7 41 5f 25 3c 33 3a e7 73 61 6c 65 64 25 3d |..A_%<3:.saled%=|
000393f0 30 8c f2 53 69 53 6f 72 74 5f 0d c5 49 06 3d b9 |0..SiSort_..I.=.|
00039400 0d c5 4e 04 0d c5 53 14 dd a4 66 69 72 73 74 66 |..N...S...firstf|
00039410 72 65 65 73 61 6c 65 5f 0d c5 58 17 ea 20 41 25 |reesale_..X.. A%|
00039420 2c 42 25 2c 43 25 2c 44 25 2c 45 25 2c 5a 25 0d |,B%,C%,D%,E%,Z%.|
00039430 c5 5d 0c 74 36 5f 25 28 29 3d 30 0d c5 62 0b e3 |.].t6_%()=0..b..|
00039440 44 25 3d 31 b8 36 0d c5 67 1b e3 5a 25 3d 45 25 |D%=1.6..g..Z%=E%|
00039450 b8 6d 61 78 53 5f 25 2a 73 69 74 69 70 5f 25 2d |.maxS_%*sitip_%-|
00039460 31 0d c5 6c 0d 42 25 3d 30 3a 43 25 3d 30 0d c5 |1..l.B%=0:C%=0..|
00039470 71 2d e3 41 25 3d 5a 25 2a 73 69 74 69 66 5f 25 |q-.A%=Z%*sitif_%|
00039480 2b 31 b8 28 5a 25 2a 73 69 74 69 66 5f 25 2b 31 |+1.(Z%*sitif_%+1|
00039490 29 2b 73 69 74 69 66 5f 25 2d 31 0d c5 76 34 e7 |)+sitif_%-1..v4.|
000394a0 53 49 54 65 5f 24 28 41 25 29 3c 3e 22 22 8c 42 |SITe_$(A%)<>"".B|
000394b0 25 3d 31 3a 41 25 3d 28 5a 25 2a 73 69 74 69 66 |%=1:A%=(Z%*sitif|
000394c0 5f 25 2b 31 29 2b 73 69 74 69 66 5f 25 2d 31 0d |_%+1)+sitif_%-1.|
000394d0 c5 7b 05 ed 0d c5 80 25 e7 42 25 3d 30 8c 43 25 |.{.....%.B%=0.C%|
000394e0 3d 5a 25 2b 31 3a 5a 25 3d 6d 61 78 53 5f 25 2a |=Z%+1:Z%=maxS_%*|
000394f0 73 69 74 69 70 5f 25 2d 31 0d c5 85 05 ed 0d c5 |sitip_%-1.......|
00039500 8a 23 e7 42 25 3d 30 8c 74 36 5f 25 28 44 25 29 |.#.B%=0.t6_%(D%)|
00039510 3d 28 43 25 2d 31 29 2a 73 69 74 69 66 5f 25 2b |=(C%-1)*sitif_%+|
00039520 31 0d c5 8f 09 45 25 3d 43 25 0d c5 94 20 e7 42 |1....E%=C%... .B|
00039530 25 3d 31 84 43 25 3d 6d 61 78 53 5f 25 2a 73 69 |%=1.C%=maxS_%*si|
00039540 74 69 70 5f 25 8c 44 25 3d 36 0d c5 99 05 ed 0d |tip_%.D%=6......|
00039550 c5 9e 06 3d a3 0d c5 a3 04 0d c5 a8 0f dd a4 66 |...=...........f|
00039560 72 65 65 73 61 6c 65 5f 0d c5 ad 12 ea 20 41 5f |reesale_..... A_|
00039570 25 2c 42 25 2c 43 25 2c 5a 25 0d c5 b2 0b e3 5a |%,B%,C%,Z%.....Z|
00039580 25 3d 31 b8 36 0d c5 b7 26 e7 49 74 6f 74 5f 25 |%=1.6...&.Itot_%|
00039590 28 5a 25 29 3c 3e 30 84 49 76 61 74 5f 25 28 5a |(Z%)<>0.Ivat_%(Z|
000395a0 25 29 3c 3e 30 8c 42 25 2b 3d 31 0d c5 bc 17 e7 |%)<>0.B%+=1.....|
000395b0 74 36 5f 25 28 5a 25 29 3c 3e 30 8c 41 5f 25 2b |t6_%(Z%)<>0.A_%+|
000395c0 3d 31 0d c5 c1 05 ed 0d c5 c6 0e e7 42 25 3e 41 |=1..........B%>A|
000395d0 5f 25 8c 3d 31 0d c5 cb 06 3d 30 0d c5 d0 04 0d |_%.=1....=0.....|
000395e0 c5 d5 19 dd a4 66 69 72 73 74 66 72 65 65 70 61 |.....firstfreepa|
000395f0 79 6d 5f 28 41 5f 25 29 0d c5 da 11 ea 20 41 25 |ym_(A_%)..... A%|
00039600 2c 42 25 2c 43 25 2c 5a 25 0d c5 df 18 e7 41 5f |,B%,C%,Z%.....A_|
00039610 25 3d 31 8c 41 5f 25 3d 6c 61 73 74 70 6f 73 5f |%=1.A_%=lastpos_|
00039620 25 0d c5 e4 1c e3 5a 25 3d 41 5f 25 b8 6d 61 78 |%.....Z%=A_%.max|
00039630 50 5f 25 2a 73 69 74 69 70 5f 25 2d 31 0d c5 e9 |P_%*sitip_%-1...|
00039640 32 42 25 3d 30 3a e3 41 25 3d 5a 25 2a 73 69 74 |2B%=0:.A%=Z%*sit|
00039650 69 66 5f 25 2b 31 b8 28 5a 25 2a 73 69 74 69 66 |if_%+1.(Z%*sitif|
00039660 5f 25 2b 31 29 2b 73 69 74 69 66 5f 25 2d 31 0d |_%+1)+sitif_%-1.|
00039670 c5 ee 34 e7 50 49 54 65 5f 24 28 41 25 29 3c 3e |..4.PITe_$(A%)<>|
00039680 22 22 8c 42 25 3d 31 3a 41 25 3d 28 5a 25 2a 73 |"".B%=1:A%=(Z%*s|
00039690 69 74 69 66 5f 25 2b 31 29 2b 73 69 74 69 66 5f |itif_%+1)+sitif_|
000396a0 25 2d 31 0d c5 f3 05 ed 0d c5 f8 32 e7 42 25 3d |%-1........2.B%=|
000396b0 30 8c 43 25 3d 5a 25 2b 31 3a 6c 61 73 74 70 6f |0.C%=Z%+1:lastpo|
000396c0 73 5f 25 3d 5a 25 3a 5a 25 3d 6d 61 78 50 5f 25 |s_%=Z%:Z%=maxP_%|
000396d0 2a 73 69 74 69 70 5f 25 2d 31 0d c5 fd 05 ed 0d |*sitip_%-1......|
000396e0 c6 02 1b e7 42 25 3d 31 8c 3d 6d 61 78 50 5f 25 |....B%=1.=maxP_%|
000396f0 2a 73 69 74 69 70 5f 25 2d 31 0d c6 07 07 3d 43 |*sitip_%-1....=C|
00039700 25 0d c6 0c 18 dd a4 66 69 72 73 74 66 72 65 65 |%......firstfree|
00039710 73 61 6c 5f 28 41 5f 25 29 0d c6 11 11 ea 20 41 |sal_(A_%)..... A|
00039720 25 2c 42 25 2c 43 25 2c 5a 25 0d c6 16 19 e7 41 |%,B%,C%,Z%.....A|
00039730 5f 25 3d 31 8c 41 5f 25 3d 6c 61 73 74 70 6f 73 |_%=1.A_%=lastpos|
00039740 31 5f 25 0d c6 1b 1c e3 5a 25 3d 41 5f 25 b8 6d |1_%.....Z%=A_%.m|
00039750 61 78 53 5f 25 2a 73 69 74 69 70 5f 25 2d 31 0d |axS_%*sitip_%-1.|
00039760 c6 20 32 42 25 3d 30 3a e3 41 25 3d 5a 25 2a 73 |. 2B%=0:.A%=Z%*s|
00039770 69 74 69 66 5f 25 2b 31 b8 28 5a 25 2a 73 69 74 |itif_%+1.(Z%*sit|
00039780 69 66 5f 25 2b 31 29 2b 73 69 74 69 66 5f 25 2d |if_%+1)+sitif_%-|
00039790 31 0d c6 25 34 e7 53 49 54 65 5f 24 28 41 25 29 |1..%4.SITe_$(A%)|
000397a0 3c 3e 22 22 8c 42 25 3d 31 3a 41 25 3d 28 5a 25 |<>"".B%=1:A%=(Z%|
000397b0 2a 73 69 74 69 66 5f 25 2b 31 29 2b 73 69 74 69 |*sitif_%+1)+siti|
000397c0 66 5f 25 2d 31 0d c6 2a 05 ed 0d c6 2f 33 e7 42 |f_%-1..*..../3.B|
000397d0 25 3d 30 8c 43 25 3d 5a 25 2b 31 3a 6c 61 73 74 |%=0.C%=Z%+1:last|
000397e0 70 6f 73 31 5f 25 3d 5a 25 3a 5a 25 3d 6d 61 78 |pos1_%=Z%:Z%=max|
000397f0 53 5f 25 2a 73 69 74 69 70 5f 25 2d 31 0d c6 34 |S_%*sitip_%-1..4|
00039800 05 ed 0d c6 39 1b e7 42 25 3d 31 8c 3d 6d 61 78 |....9..B%=1.=max|
00039810 53 5f 25 2a 73 69 74 69 70 5f 25 2d 31 0d c6 3e |S_%*sitip_%-1..>|
00039820 07 3d 43 25 0d c6 43 18 dd a4 66 69 72 73 74 66 |.=C%..C...firstf|
00039830 72 65 65 74 61 6c 5f 28 41 5f 25 29 0d c6 48 11 |reetal_(A_%)..H.|
00039840 ea 20 41 25 2c 42 25 2c 43 25 2c 5a 25 0d c6 4d |. A%,B%,C%,Z%..M|
00039850 19 e7 41 5f 25 3d 31 8c 41 5f 25 3d 6c 61 73 74 |..A_%=1.A_%=last|
00039860 70 6f 73 33 5f 25 0d c6 52 1c e3 5a 25 3d 41 5f |pos3_%..R..Z%=A_|
00039870 25 b8 6d 61 78 54 5f 25 2a 73 69 74 69 70 5f 25 |%.maxT_%*sitip_%|
00039880 2d 31 0d c6 57 32 42 25 3d 30 3a e3 41 25 3d 5a |-1..W2B%=0:.A%=Z|
00039890 25 2a 73 69 74 69 66 5f 25 2b 31 b8 28 5a 25 2a |%*sitif_%+1.(Z%*|
000398a0 73 69 74 69 66 5f 25 2b 31 29 2b 73 69 74 69 66 |sitif_%+1)+sitif|
000398b0 5f 25 2d 31 0d c6 5c 34 e7 54 49 54 65 5f 24 28 |_%-1..\4.TITe_$(|
000398c0 41 25 29 3c 3e 22 22 8c 42 25 3d 31 3a 41 25 3d |A%)<>"".B%=1:A%=|
000398d0 28 5a 25 2a 73 69 74 69 66 5f 25 2b 31 29 2b 73 |(Z%*sitif_%+1)+s|
000398e0 69 74 69 66 5f 25 2d 31 0d c6 61 05 ed 0d c6 66 |itif_%-1..a....f|
000398f0 33 e7 42 25 3d 30 8c 43 25 3d 5a 25 2b 31 3a 6c |3.B%=0.C%=Z%+1:l|
00039900 61 73 74 70 6f 73 33 5f 25 3d 5a 25 3a 5a 25 3d |astpos3_%=Z%:Z%=|
00039910 6d 61 78 54 5f 25 2a 73 69 74 69 70 5f 25 2d 31 |maxT_%*sitip_%-1|
00039920 0d c6 6b 05 ed 0d c6 70 1b e7 42 25 3d 31 8c 3d |..k....p..B%=1.=|
00039930 6d 61 78 54 5f 25 2a 73 69 74 69 70 5f 25 2d 31 |maxT_%*sitip_%-1|
00039940 0d c6 75 07 3d 43 25 0d c6 7a 19 dd a4 66 69 72 |..u.=C%..z...fir|
00039950 73 74 66 72 65 65 62 61 6e 6b 5f 28 41 5f 25 29 |stfreebank_(A_%)|
00039960 0d c6 7f 11 ea 20 41 25 2c 42 25 2c 43 25 2c 5a |..... A%,B%,C%,Z|
00039970 25 0d c6 84 19 e7 41 5f 25 3d 31 8c 41 5f 25 3d |%.....A_%=1.A_%=|
00039980 6c 61 73 74 70 6f 73 32 5f 25 0d c6 89 1c e3 5a |lastpos2_%.....Z|
00039990 25 3d 41 5f 25 b8 6d 61 78 42 5f 25 2a 73 69 74 |%=A_%.maxB_%*sit|
000399a0 69 70 5f 25 2d 31 0d c6 8e 32 42 25 3d 30 3a e3 |ip_%-1...2B%=0:.|
000399b0 41 25 3d 5a 25 2a 62 69 74 69 66 5f 25 2b 31 b8 |A%=Z%*bitif_%+1.|
000399c0 28 5a 25 2a 62 69 74 69 66 5f 25 2b 31 29 2b 62 |(Z%*bitif_%+1)+b|
000399d0 69 74 69 66 5f 25 2d 31 0d c6 93 34 e7 42 49 54 |itif_%-1...4.BIT|
000399e0 65 5f 24 28 41 25 29 3c 3e 22 22 8c 42 25 3d 31 |e_$(A%)<>"".B%=1|
000399f0 3a 41 25 3d 28 5a 25 2a 62 69 74 69 66 5f 25 2b |:A%=(Z%*bitif_%+|
00039a00 31 29 2b 62 69 74 69 66 5f 25 2d 31 0d c6 98 05 |1)+bitif_%-1....|
00039a10 ed 0d c6 9d 33 e7 42 25 3d 30 8c 43 25 3d 5a 25 |....3.B%=0.C%=Z%|
00039a20 2b 31 3a 6c 61 73 74 70 6f 73 32 5f 25 3d 5a 25 |+1:lastpos2_%=Z%|
00039a30 3a 5a 25 3d 6d 61 78 42 5f 25 2a 73 69 74 69 70 |:Z%=maxB_%*sitip|
00039a40 5f 25 2d 31 0d c6 a2 05 ed 0d c6 a7 1b e7 42 25 |_%-1..........B%|
00039a50 3d 31 8c 3d 6d 61 78 42 5f 25 2a 73 69 74 69 70 |=1.=maxB_%*sitip|
00039a60 5f 25 2d 31 0d c6 ac 07 3d 43 25 0d c6 b1 04 0d |_%-1....=C%.....|
00039a70 c6 b6 48 dd f2 49 54 6c 65 64 67 65 72 5f 3a ea |..H..ITledger_:.|
00039a80 20 41 5f 25 2c 43 25 2c 5a 25 2c 5a 5f 25 2c 61 | A_%,C%,Z%,Z_%,a|
00039a90 5f 25 3a 6f 6c 64 64 61 74 61 5f 24 28 31 31 29 |_%:olddata_$(11)|
00039aa0 3d 22 22 3a 6c 61 73 74 70 6f 73 31 5f 25 3d 30 |="":lastpos1_%=0|
00039ab0 3a 41 5f 25 3d 2d 31 0d c6 bb 40 e7 a4 63 68 64 |:A_%=-1...@..chd|
00039ac0 61 74 65 5f 28 24 21 49 54 64 61 31 5f 25 29 3d |ate_($!ITda1_%)=|
00039ad0 22 22 8c 24 21 49 54 64 61 31 5f 25 3d 74 6f 64 |"".$!ITda1_%=tod|
00039ae0 61 79 5f 24 3a f2 72 49 28 69 6e 76 57 25 2c 22 |ay_$:.rI(invW%,"|
00039af0 49 54 64 61 31 22 29 0d c6 c0 2d e3 5a 25 3d 30 |ITda1")...-.Z%=0|
00039b00 b8 39 35 3a e7 76 74 5f 25 28 5a 25 29 3c 3e 30 |.95:.vt_%(Z%)<>0|
00039b10 3a 5a 5f 25 2b 3d 31 3a e7 5a 5f 25 3d 32 8c 5a |:Z_%+=1:.Z_%=2.Z|
00039b20 25 3d 39 35 0d c6 c5 19 e7 41 5f 25 3d 2d 31 3a |%=95.....A_%=-1:|
00039b30 e7 5a 5f 25 3d 31 3a 41 5f 25 3d 5a 25 0d c6 ca |.Z_%=1:A_%=Z%...|
00039b40 17 ed 3a 61 5f 25 3d a4 67 65 74 69 66 6c 61 67 |..:a_%=.getiflag|
00039b50 28 38 35 29 0d c6 cf 0b e7 5a 5f 25 3c 32 8c 0d |(85).....Z_%<2..|
00039b60 c6 d4 0b e3 5a 25 3d 31 b8 36 0d c6 d9 17 e7 5a |....Z%=1.6.....Z|
00039b70 5f 25 3e 31 3a 49 74 6f 74 5f 25 28 5a 25 29 3d |_%>1:Itot_%(Z%)=|
00039b80 30 0d c6 de 31 e7 49 74 6f 74 5f 25 28 5a 25 29 |0...1.Itot_%(Z%)|
00039b90 3c 3e 30 84 49 76 61 74 5f 25 28 5a 25 29 3c 3e |<>0.Ivat_%(Z%)<>|
00039ba0 30 84 5a 25 3d 36 80 43 25 3d 30 80 5a 5f 25 3c |0.Z%=6.C%=0.Z_%<|
00039bb0 32 8c 0d c6 e3 40 e7 69 6e 76 31 31 5f 25 28 30 |2....@.inv11_%(0|
00039bc0 29 3d 2d 31 8c 49 74 6f 74 5f 25 28 5a 25 29 3d |)=-1.Itot_%(Z%)=|
00039bd0 2d 49 74 6f 74 5f 25 28 5a 25 29 3a 49 76 61 74 |-Itot_%(Z%):Ivat|
00039be0 5f 25 28 5a 25 29 3d 2d 49 76 61 74 5f 25 28 5a |_%(Z%)=-Ivat_%(Z|
00039bf0 25 29 0d c6 e8 3a 43 25 2b 3d 31 3a e7 73 61 6c |%)...:C%+=1:.sal|
00039c00 65 64 25 3e 30 8c f2 53 49 54 64 6f 77 6e 5f 28 |ed%>0..SITdown_(|
00039c10 73 69 74 70 5f 25 2d 28 74 36 5f 25 28 43 25 29 |sitp_%-(t6_%(C%)|
00039c20 2f 73 69 74 69 66 5f 25 2d 31 29 29 0d c6 ed d5 |/sitif_%-1))....|
00039c30 53 49 54 65 5f 24 28 74 36 5f 25 28 43 25 29 29 |SITe_$(t6_%(C%))|
00039c40 3d 24 21 49 54 64 61 31 5f 25 3a 53 49 54 65 5f |=$!ITda1_%:SITe_|
00039c50 24 28 74 36 5f 25 28 43 25 29 2b 31 29 3d c2 24 |$(t6_%(C%)+1)=.$|
00039c60 21 49 54 64 61 31 5f 25 2c 37 29 3a 53 49 54 65 |!ITda1_%,7):SITe|
00039c70 5f 24 28 74 36 5f 25 28 43 25 29 2b 32 29 3d 24 |_$(t6_%(C%)+2)=$|
00039c80 21 49 54 73 75 70 70 6c 69 65 72 5f 25 3a 53 49 |!ITsupplier_%:SI|
00039c90 54 65 5f 24 28 74 36 5f 25 28 43 25 29 2b 33 29 |Te_$(t6_%(C%)+3)|
00039ca0 3d 49 54 61 63 63 5f 24 3a 53 49 54 65 5f 24 28 |=ITacc_$:SITe_$(|
00039cb0 74 36 5f 25 28 43 25 29 2b 34 29 3d 49 54 6e 75 |t6_%(C%)+4)=ITnu|
00039cc0 6d 62 5f 24 3a 53 49 54 65 5f 24 28 74 36 5f 25 |mb_$:SITe_$(t6_%|
00039cd0 28 43 25 29 2b 35 29 3d a4 63 6f 6e 76 69 73 5f |(C%)+5)=.convis_|
00039ce0 28 a4 61 64 64 5f 28 49 74 6f 74 5f 25 28 5a 25 |(.add_(Itot_%(Z%|
00039cf0 29 2c 49 76 61 74 5f 25 28 5a 25 29 29 2c 22 22 |),Ivat_%(Z%)),""|
00039d00 29 0d c6 f2 50 53 49 54 65 5f 24 28 74 36 5f 25 |)...PSITe_$(t6_%|
00039d10 28 43 25 29 2b 36 29 3d c0 49 76 61 74 5f 24 28 |(C%)+6)=.Ivat_$(|
00039d20 5a 25 29 2c 31 29 3a 53 49 54 65 5f 24 28 74 36 |Z%),1):SITe_$(t6|
00039d30 5f 25 28 43 25 29 2b 37 29 3d a4 63 6f 6e 76 69 |_%(C%)+7)=.convi|
00039d40 73 5f 28 49 76 61 74 5f 25 28 5a 25 29 2c 22 22 |s_(Ivat_%(Z%),""|
00039d50 29 0d c6 f7 42 e7 61 5f 25 3d 31 8c 53 49 54 65 |)...B.a_%=1.SITe|
00039d60 5f 24 28 74 36 5f 25 28 43 25 29 2b 38 29 3d 53 |_$(t6_%(C%)+8)=S|
00039d70 49 54 65 5f 24 28 74 36 5f 25 28 43 25 29 2b 35 |ITe_$(t6_%(C%)+5|
00039d80 29 3a 6f 6c 64 64 61 74 61 5f 24 28 31 31 29 3d |):olddata_$(11)=|
00039d90 22 52 22 0d c6 fc 62 53 49 54 65 5f 24 28 74 36 |"R"...bSITe_$(t6|
00039da0 5f 25 28 43 25 29 2b 39 29 3d 49 54 68 65 61 64 |_%(C%)+9)=IThead|
00039db0 5f 24 3a 53 49 54 65 5f 24 28 74 36 5f 25 28 43 |_$:SITe_$(t6_%(C|
00039dc0 25 29 2b 31 30 29 3d 49 54 63 6f 6d 6d 5f 24 3a |%)+10)=ITcomm_$:|
00039dd0 f2 73 61 76 65 73 61 6c 65 6c 65 64 67 65 72 32 |.savesaleledger2|
00039de0 5f 28 74 36 5f 25 28 43 25 29 2f 73 69 74 69 66 |_(t6_%(C%)/sitif|
00039df0 5f 25 2c 31 29 0d c7 01 05 cd 0d c7 06 05 ed 0d |_%,1)...........|
00039e00 c7 0b 05 cd 0d c7 10 93 6f 6c 64 64 61 74 61 5f |........olddata_|
00039e10 24 28 30 29 3d 24 21 49 54 64 61 31 5f 25 3a 6f |$(0)=$!ITda1_%:o|
00039e20 6c 64 64 61 74 61 5f 24 28 31 29 3d c2 24 21 49 |lddata_$(1)=.$!I|
00039e30 54 64 61 31 5f 25 2c 37 29 3a 6f 6c 64 64 61 74 |Tda1_%,7):olddat|
00039e40 61 5f 24 28 32 29 3d 24 21 49 54 73 75 70 70 6c |a_$(2)=$!ITsuppl|
00039e50 69 65 72 5f 25 3a 6f 6c 64 64 61 74 61 5f 24 28 |ier_%:olddata_$(|
00039e60 33 29 3d 49 54 61 63 63 5f 24 3a 6f 6c 64 64 61 |3)=ITacc_$:oldda|
00039e70 74 61 5f 24 28 34 29 3d 49 54 6e 75 6d 62 5f 24 |ta_$(4)=ITnumb_$|
00039e80 3a 6f 6c 64 64 61 74 61 5f 24 28 31 30 29 3d 49 |:olddata_$(10)=I|
00039e90 54 63 6f 6d 6d 5f 24 0d c7 15 0b e7 5a 5f 25 3e |Tcomm_$.....Z_%>|
00039ea0 31 8c 0d c7 1a 1a e3 5a 25 3d 30 b8 39 35 3a e7 |1......Z%=0.95:.|
00039eb0 76 74 5f 25 28 5a 25 29 3c 3e 30 8c 0d c7 1f 3a |vt_%(Z%)<>0....:|
00039ec0 e7 69 6e 76 31 31 5f 25 28 30 29 3d 2d 31 8c 76 |.inv11_%(0)=-1.v|
00039ed0 74 5f 25 28 5a 25 29 3d 2d 76 74 5f 25 28 5a 25 |t_%(Z%)=-vt_%(Z%|
00039ee0 29 3a 76 74 31 5f 25 28 5a 25 29 3d 2d 76 74 31 |):vt1_%(Z%)=-vt1|
00039ef0 5f 25 28 5a 25 29 0d c7 24 98 6f 6c 64 64 61 74 |_%(Z%)..$.olddat|
00039f00 61 5f 24 28 35 29 3d a4 63 6f 6e 76 69 73 5f 28 |a_$(5)=.convis_(|
00039f10 a4 61 64 64 5f 28 76 74 5f 25 28 5a 25 29 2c 76 |.add_(vt_%(Z%),v|
00039f20 74 31 5f 25 28 5a 25 29 29 2c 22 22 29 3a 6f 6c |t1_%(Z%)),""):ol|
00039f30 64 64 61 74 61 5f 24 28 37 29 3d a4 63 6f 6e 76 |ddata_$(7)=.conv|
00039f40 69 73 5f 28 76 74 31 5f 25 28 5a 25 29 2c 22 22 |is_(vt1_%(Z%),""|
00039f50 29 3a 6f 6c 64 64 61 74 61 5f 24 28 39 29 3d bd |):olddata_$(9)=.|
00039f60 28 5a 25 2f 38 2b 36 35 29 2b bd 28 5a 25 83 38 |(Z%/8+65)+.(Z%.8|
00039f70 2b 36 35 29 3a 6f 6c 64 64 61 74 61 5f 24 28 36 |+65):olddata_$(6|
00039f80 29 3d c0 76 74 5f 24 28 5a 25 29 2c 31 29 0d c7 |)=.vt_$(Z%),1)..|
00039f90 29 58 e7 61 5f 25 3d 31 8c 6f 6c 64 64 61 74 61 |)X.a_%=1.olddata|
00039fa0 5f 24 28 38 29 3d 6f 6c 64 64 61 74 61 5f 24 28 |_$(8)=olddata_$(|
00039fb0 35 29 3a 6f 6c 64 64 61 74 61 5f 24 28 31 31 29 |5):olddata_$(11)|
00039fc0 3d 22 52 22 20 8b 6f 6c 64 64 61 74 61 5f 24 28 |="R" .olddata_$(|
00039fd0 38 29 3d 22 22 3a 6f 6c 64 64 61 74 61 5f 24 28 |8)="":olddata_$(|
00039fe0 31 31 29 3d 22 22 0d c7 2e 1a e7 a4 52 45 6c 65 |11)=""......REle|
00039ff0 64 67 65 72 5f 28 31 29 3d a3 3a 5a 25 3d 39 35 |dger_(1)=.:Z%=95|
0003a000 0d c7 33 05 cd 0d c7 38 05 ed 0d c7 3d 05 cd 0d |..3....8....=...|
0003a010 c7 42 05 e1 0d c7 47 04 0d c8 14 14 dd a4 52 45 |.B....G.......RE|
0003a020 6c 65 64 67 65 72 5f 28 61 5f 25 29 0d c8 19 0b |ledger_(a_%)....|
0003a030 ea 20 41 25 2c 5a 25 0d c8 1e 55 5a 25 3d a4 66 |. A%,Z%...UZ%=.f|
0003a040 69 72 73 74 66 72 65 65 73 61 6c 5f 28 31 29 3a |irstfreesal_(1):|
0003a050 e7 5a 25 3d 6d 61 78 53 5f 25 2a 73 69 74 69 70 |.Z%=maxS_%*sitip|
0003a060 5f 25 2d 31 8c 65 72 72 6f 72 5f 25 3d 31 3a c8 |_%-1.error_%=1:.|
0003a070 99 26 34 30 36 43 31 3a f2 77 6c 5f 28 32 35 29 |.&406C1:.wl_(25)|
0003a080 3a c8 99 26 34 30 36 43 30 3a 3d a3 0d c8 23 42 |:..&406C0:=...#B|
0003a090 5a 25 3d 28 5a 25 2d 31 29 2a 73 69 74 69 66 5f |Z%=(Z%-1)*sitif_|
0003a0a0 25 2b 31 3a e7 73 61 6c 65 64 25 3e 30 8c f2 53 |%+1:.saled%>0..S|
0003a0b0 49 54 64 6f 77 6e 5f 28 73 69 74 70 5f 25 2d 28 |ITdown_(sitp_%-(|
0003a0c0 5a 25 2f 73 69 74 69 66 5f 25 2d 31 29 29 0d c8 |Z%/sitif_%-1))..|
0003a0d0 28 61 e3 41 25 3d 30 b8 31 30 3a 53 49 54 65 5f |(a.A%=0.10:SITe_|
0003a0e0 24 28 5a 25 2b 41 25 29 3d a4 73 74 72 69 70 5f |$(Z%+A%)=.strip_|
0003a0f0 28 6f 6c 64 64 61 74 61 5f 24 28 41 25 29 29 3a |(olddata_$(A%)):|
0003a100 ed 3a e7 61 5f 25 3d 32 3a 53 49 54 6e 5f 25 28 |.:.a_%=2:SITn_%(|
0003a110 5a 25 2f 73 69 74 69 66 5f 25 2b 31 29 3d 43 53 |Z%/sitif_%+1)=CS|
0003a120 75 4e 75 6d 62 65 72 5f 25 28 43 53 5f 25 29 0d |uNumber_%(CS_%).|
0003a130 c8 2d 25 f2 73 61 76 65 73 61 6c 65 6c 65 64 67 |.-%.savesaleledg|
0003a140 65 72 32 5f 28 5a 25 2f 73 69 74 69 66 5f 25 2c |er2_(Z%/sitif_%,|
0003a150 61 5f 25 29 0d c8 32 06 3d b9 0d c8 37 04 0d c8 |a_%)..2.=...7...|
0003a160 3c 14 dd a4 50 45 6c 65 64 67 65 72 5f 28 61 5f |<...PEledger_(a_|
0003a170 25 29 0d c8 41 0b ea 20 41 25 2c 5a 25 0d c8 46 |%)..A.. A%,Z%..F|
0003a180 37 e7 61 5f 25 3d 32 3a 5a 25 3d a4 66 69 72 73 |7.a_%=2:Z%=.firs|
0003a190 74 66 72 65 65 70 61 79 6d 5f 28 30 29 20 8b 5a |tfreepaym_(0) .Z|
0003a1a0 25 3d a4 66 69 72 73 74 66 72 65 65 70 61 79 6d |%=.firstfreepaym|
0003a1b0 5f 28 31 29 0d c8 48 40 e7 5a 25 3d 6d 61 78 50 |_(1)..H@.Z%=maxP|
0003a1c0 5f 25 2a 73 69 74 69 70 5f 25 2d 31 8c 65 72 72 |_%*sitip_%-1.err|
0003a1d0 6f 72 5f 25 3d 31 3a c8 99 26 34 30 36 43 31 3a |or_%=1:..&406C1:|
0003a1e0 f2 77 6c 5f 28 32 35 29 3a c8 99 26 34 30 36 43 |.wl_(25):..&406C|
0003a1f0 30 3a 3d a3 0d c8 4b 42 5a 25 3d 28 5a 25 2d 31 |0:=...KBZ%=(Z%-1|
0003a200 29 2a 73 69 74 69 66 5f 25 2b 31 3a e7 70 61 6c |)*sitif_%+1:.pal|
0003a210 65 64 25 3e 30 8c f2 50 49 54 64 6f 77 6e 5f 28 |ed%>0..PITdown_(|
0003a220 70 69 74 70 5f 25 2d 28 5a 25 2f 73 69 74 69 66 |pitp_%-(Z%/sitif|
0003a230 5f 25 2d 31 29 29 0d c8 50 5f e3 41 25 3d 30 b8 |_%-1))..P_.A%=0.|
0003a240 31 30 3a 50 49 54 65 5f 24 28 5a 25 2b 41 25 29 |10:PITe_$(Z%+A%)|
0003a250 3d a4 73 74 72 69 70 5f 28 6f 6c 64 64 61 74 61 |=.strip_(olddata|
0003a260 5f 24 28 41 25 29 29 3a ed 3a e7 61 5f 25 3d 32 |_$(A%)):.:.a_%=2|
0003a270 3a 50 49 54 6e 5f 25 28 5a 25 2f 73 69 74 69 66 |:PITn_%(Z%/sitif|
0003a280 5f 25 2b 31 29 3d 53 75 4e 75 6d 62 65 72 5f 25 |_%+1)=SuNumber_%|
0003a290 28 53 5f 25 29 0d c8 55 26 f2 73 61 76 65 70 75 |(S_%)..U&.savepu|
0003a2a0 72 63 68 6c 65 64 67 65 72 32 5f 28 5a 25 2f 73 |rchledger2_(Z%/s|
0003a2b0 69 74 69 66 5f 25 2c 61 5f 25 29 0d c8 5a 06 3d |itif_%,a_%)..Z.=|
0003a2c0 b9 0d c8 5f 04 0d c8 64 6a dd a4 42 45 6c 65 64 |..._...dj..BEled|
0003a2d0 67 65 72 5f 3a ea 20 41 25 2c 5a 25 3a 5a 25 3d |ger_:. A%,Z%:Z%=|
0003a2e0 a4 66 69 72 73 74 66 72 65 65 62 61 6e 6b 5f 28 |.firstfreebank_(|
0003a2f0 31 29 3a e7 5a 25 3d 6d 61 78 42 5f 25 2a 62 69 |1):.Z%=maxB_%*bi|
0003a300 74 69 70 5f 25 2d 31 8c 65 72 72 6f 72 5f 25 3d |tip_%-1.error_%=|
0003a310 31 3a c8 99 26 34 30 36 43 31 3a f2 77 6c 5f 28 |1:..&406C1:.wl_(|
0003a320 32 35 29 3a c8 99 26 34 30 36 43 30 3a 3d a3 0d |25):..&406C0:=..|
0003a330 c8 69 42 5a 25 3d 28 5a 25 2d 31 29 2a 62 69 74 |.iBZ%=(Z%-1)*bit|
0003a340 69 66 5f 25 2b 31 3a e7 62 61 6e 6b 6c 25 3e 30 |if_%+1:.bankl%>0|
0003a350 8c f2 42 49 54 64 6f 77 6e 5f 28 62 69 74 70 5f |..BITdown_(bitp_|
0003a360 25 2d 28 5a 25 2f 62 69 74 69 66 5f 25 2d 31 29 |%-(Z%/bitif_%-1)|
0003a370 29 0d c8 6e 28 e7 6f 6c 64 64 61 74 61 5f 24 28 |)..n(.olddata_$(|
0003a380 31 31 29 3d 22 52 22 8c 6f 6c 64 64 61 74 61 5f |11)="R".olddata_|
0003a390 24 28 31 31 29 3d 22 80 22 0d c8 73 28 e7 6f 6c |$(11)="."..s(.ol|
0003a3a0 64 64 61 74 61 5f 24 28 31 32 29 3d 22 52 22 8c |ddata_$(12)="R".|
0003a3b0 6f 6c 64 64 61 74 61 5f 24 28 31 32 29 3d 22 80 |olddata_$(12)=".|
0003a3c0 22 0d c8 78 d4 42 49 54 65 5f 24 28 5a 25 29 3d |"..x.BITe_$(Z%)=|
0003a3d0 6f 6c 64 64 61 74 61 5f 24 28 30 29 3a 42 49 54 |olddata_$(0):BIT|
0003a3e0 65 5f 24 28 5a 25 2b 31 29 3d 6f 6c 64 64 61 74 |e_$(Z%+1)=olddat|
0003a3f0 61 5f 24 28 34 29 3a 42 49 54 65 5f 24 28 5a 25 |a_$(4):BITe_$(Z%|
0003a400 2b 32 29 3d 6f 6c 64 64 61 74 61 5f 24 28 33 29 |+2)=olddata_$(3)|
0003a410 3a 42 49 54 65 5f 24 28 5a 25 2b 33 29 3d 6f 6c |:BITe_$(Z%+3)=ol|
0003a420 64 64 61 74 61 5f 24 28 31 31 29 3a 42 49 54 65 |ddata_$(11):BITe|
0003a430 5f 24 28 5a 25 2b 34 29 3d 6f 6c 64 64 61 74 61 |_$(Z%+4)=olddata|
0003a440 5f 24 28 35 29 3a 42 49 54 65 5f 24 28 5a 25 2b |_$(5):BITe_$(Z%+|
0003a450 35 29 3d 6f 6c 64 64 61 74 61 5f 24 28 39 29 3a |5)=olddata_$(9):|
0003a460 42 49 54 65 5f 24 28 5a 25 2b 36 29 3d 6f 6c 64 |BITe_$(Z%+6)=old|
0003a470 64 61 74 61 5f 24 28 31 32 29 3a 42 49 54 65 5f |data_$(12):BITe_|
0003a480 24 28 5a 25 2b 37 29 3d 6f 6c 64 64 61 74 61 5f |$(Z%+7)=olddata_|
0003a490 24 28 31 30 29 0d c8 7d 25 f2 73 61 76 65 62 61 |$(10)..}%.saveba|
0003a4a0 6e 6b 6c 65 64 67 65 72 32 5f 28 5a 25 2f 62 69 |nkledger2_(Z%/bi|
0003a4b0 74 69 66 5f 25 29 3a 3d 5a 25 0d c8 82 04 0d c8 |tif_%):=Z%......|
0003a4c0 87 23 dd a4 67 48 5f 3a e7 68 65 61 70 5f 73 69 |.#..gH_:.heap_si|
0003a4d0 7a 65 25 3e 30 8c 3d 68 65 61 70 5f 73 69 7a 65 |ze%>0.=heap_size|
0003a4e0 25 0d c8 8c 44 c8 99 26 35 31 20 b8 20 68 65 61 |%...D..&51 . hea|
0003a4f0 70 5f 70 73 69 7a 65 25 3a c8 99 22 4f 53 5f 47 |p_psize%:.."OS_G|
0003a500 65 74 45 6e 76 22 20 b8 20 2c 74 62 6c 6f 63 6b |etEnv" . ,tblock|
0003a510 5f 25 3a 68 65 61 70 5f 73 69 7a 65 25 3d 30 3a |_%:heap_size%=0:|
0003a520 3d a4 65 48 5f 0d c8 91 04 0d c8 96 60 dd f2 66 |=.eH_.......`..f|
0003a530 48 5f 3a ea 20 73 6c 6f 74 25 3a e7 68 65 61 70 |H_:. slot%:.heap|
0003a540 5f 73 69 7a 65 25 3e 30 3a c8 99 26 34 30 30 45 |_size%>0:..&400E|
0003a550 43 2c 2d 31 2c 2d 31 20 b8 20 73 6c 6f 74 25 3a |C,-1,-1 . slot%:|
0003a560 c8 99 26 34 30 30 45 43 2c 73 6c 6f 74 25 2d 68 |..&400EC,slot%-h|
0003a570 65 61 70 5f 73 69 7a 65 25 2c 2d 31 3a 68 65 61 |eap_size%,-1:hea|
0003a580 70 5f 73 69 7a 65 25 3d 30 0d c8 9b 05 e1 0d c8 |p_size%=0.......|
0003a590 a0 04 0d c8 a5 49 dd a4 65 48 5f 3a ea 20 73 6c |.....I..eH_:. sl|
0003a5a0 6f 74 25 3a c8 99 26 34 30 30 45 43 2c 2d 31 2c |ot%:..&400EC,-1,|
0003a5b0 2d 31 20 b8 20 73 6c 6f 74 25 2c 2c 6d 73 6c 6f |-1 . slot%,,mslo|
0003a5c0 74 5f 25 3a e7 6d 73 6c 6f 74 5f 25 3c 68 65 61 |t_%:.mslot_%<hea|
0003a5d0 70 5f 70 73 69 7a 65 25 8c 3d 30 0d c8 aa 45 c8 |p_psize%.=0...E.|
0003a5e0 99 26 34 30 30 45 43 2c 73 6c 6f 74 25 2b 68 65 |.&400EC,slot%+he|
0003a5f0 61 70 5f 70 73 69 7a 65 25 2c 2d 31 3a 68 65 61 |ap_psize%,-1:hea|
0003a600 70 5f 73 69 7a 65 25 2b 3d 68 65 61 70 5f 70 73 |p_size%+=heap_ps|
0003a610 69 7a 65 25 3a 3d 68 65 61 70 5f 73 69 7a 65 25 |ize%:=heap_size%|
0003a620 0d c8 af c3 dd f2 61 73 31 5f 3a ea 20 6c 5f 25 |......as1_:. l_%|
0003a630 2c 50 25 2c 61 3a e3 6c 5f 25 3d 30 b8 32 88 32 |,P%,a:.l_%=0.2.2|
0003a640 3a 50 25 3d 6d 31 5f 25 3a 5b 4f 50 54 6c 5f 25 |:P%=m1_%:[OPTl_%|
0003a650 3a 53 54 4d 46 44 20 52 31 33 21 2c 7b 52 30 2d |:STMFD R13!,{R0-|
0003a660 52 39 2c 52 31 34 7d 3a 4d 4f 56 20 52 34 2c 23 |R9,R14}:MOV R4,#|
0003a670 30 3a 2e 61 3a 4c 44 52 42 20 52 30 2c 5b 52 37 |0:.a:LDRB R0,[R7|
0003a680 2c 52 34 5d 3a 43 4d 50 20 52 30 2c 23 97 22 61 |,R4]:CMP R0,#."a|
0003a690 22 3a 52 53 42 48 53 53 20 52 31 2c 52 30 2c 23 |":RSBHSS R1,R0,#|
0003a6a0 97 22 7a 22 3a 53 55 42 48 53 20 52 30 2c 52 30 |."z":SUBHS R0,R0|
0003a6b0 2c 23 26 32 30 3a 53 54 52 42 20 52 30 2c 5b 52 |,#&20:STRB R0,[R|
0003a6c0 37 2c 52 34 5d 3a 41 44 44 20 52 34 2c 52 34 2c |7,R4]:ADD R4,R4,|
0003a6d0 23 31 3a 43 4d 50 20 52 30 2c 23 31 33 3a 42 4e |#1:CMP R0,#13:BN|
0003a6e0 45 20 61 0d c8 b4 20 4c 44 4d 46 44 20 52 31 33 |E a... LDMFD R13|
0003a6f0 21 2c 7b 52 30 2d 52 39 2c 52 31 35 7d 3a 5d 3a |!,{R0-R9,R15}:]:|
0003a700 ed 3a e1 0d c8 b9 c6 dd f2 61 73 32 5f 3a ea 20 |.:.......as2_:. |
0003a710 50 25 2c 6c 5f 25 2c 61 2c 62 3a e3 6c 5f 25 3d |P%,l_%,a,b:.l_%=|
0003a720 30 b8 32 88 32 3a 50 25 3d 6d 32 5f 25 3a 5b 4f |0.2.2:P%=m2_%:[O|
0003a730 50 54 20 6c 5f 25 3a 53 54 4d 46 44 20 52 31 33 |PT l_%:STMFD R13|
0003a740 21 2c 7b 52 30 2d 52 39 2c 52 31 34 7d 3a 4d 4f |!,{R0-R9,R14}:MO|
0003a750 56 20 52 39 2c 23 30 3a 2e 61 3a 4c 44 52 42 20 |V R9,#0:.a:LDRB |
0003a760 52 30 2c 5b 52 36 2c 52 39 5d 3a 43 4d 50 20 52 |R0,[R6,R9]:CMP R|
0003a770 30 2c 23 97 22 61 22 3a 52 53 42 48 53 53 20 52 |0,#."a":RSBHSS R|
0003a780 31 2c 52 30 2c 23 97 22 7a 22 3a 53 55 42 48 53 |1,R0,#."z":SUBHS|
0003a790 20 52 30 2c 52 30 2c 23 26 32 30 3a 53 54 52 42 | R0,R0,#&20:STRB|
0003a7a0 20 52 30 2c 5b 52 36 2c 52 39 5d 3a 41 44 44 20 | R0,[R6,R9]:ADD |
0003a7b0 52 39 2c 52 39 2c 23 31 3a 43 4d 50 20 52 30 2c |R9,R9,#1:CMP R0,|
0003a7c0 23 31 33 3a 42 4e 45 20 61 0d c8 be 9c 4d 4f 56 |#13:BNE a....MOV|
0003a7d0 20 52 39 2c 23 30 3a 2e 62 3a 4c 44 52 42 20 52 | R9,#0:.b:LDRB R|
0003a7e0 32 2c 5b 52 37 2c 52 39 5d 3a 43 4d 50 20 52 32 |2,[R7,R9]:CMP R2|
0003a7f0 2c 23 97 22 61 22 3a 52 53 42 48 53 53 20 52 33 |,#."a":RSBHSS R3|
0003a800 2c 52 32 2c 23 97 22 7a 22 3a 53 55 42 48 53 20 |,R2,#."z":SUBHS |
0003a810 52 32 2c 52 32 2c 23 26 32 30 3a 53 54 52 42 20 |R2,R2,#&20:STRB |
0003a820 52 32 2c 5b 52 37 2c 52 39 5d 3a 41 44 44 20 52 |R2,[R7,R9]:ADD R|
0003a830 39 2c 52 39 2c 23 31 3a 43 4d 50 20 52 32 2c 23 |9,R9,#1:CMP R2,#|
0003a840 31 33 3a 42 4e 45 20 62 3a 4c 44 4d 46 44 20 52 |13:BNE b:LDMFD R|
0003a850 31 33 21 2c 7b 52 30 2d 52 39 2c 52 31 35 7d 3a |13!,{R0-R9,R15}:|
0003a860 5d 3a ed 3a e1 0d c8 c3 bd dd f2 61 73 33 5f 3a |]:.:.......as3_:|
0003a870 ea 20 50 25 2c 6c 5f 25 2c 61 3a e3 6c 5f 25 3d |. P%,l_%,a:.l_%=|
0003a880 30 b8 32 88 32 3a 50 25 3d 6d 33 5f 25 3a 5b 4f |0.2.2:P%=m3_%:[O|
0003a890 50 54 20 6c 5f 25 3a 53 54 4d 46 44 20 52 31 33 |PT l_%:STMFD R13|
0003a8a0 21 2c 7b 52 30 2d 52 34 2c 52 31 34 7d 3a 4d 4f |!,{R0-R4,R14}:MO|
0003a8b0 56 20 52 34 2c 23 30 3a 4d 4f 56 20 52 33 2c 23 |V R4,#0:MOV R3,#|
0003a8c0 30 3a 2e 61 3a 4c 44 52 42 20 52 30 2c 5b 52 37 |0:.a:LDRB R0,[R7|
0003a8d0 2c 52 34 5d 3a 43 4d 50 20 52 30 2c 23 97 22 61 |,R4]:CMP R0,#."a|
0003a8e0 22 3a 52 53 42 48 53 53 20 52 31 2c 52 30 2c 23 |":RSBHSS R1,R0,#|
0003a8f0 97 22 7a 22 3a 53 55 42 48 53 20 52 30 2c 52 30 |."z":SUBHS R0,R0|
0003a900 2c 23 26 32 30 3a 43 4d 50 20 52 30 2c 23 36 34 |,#&20:CMP R0,#64|
0003a910 3a 53 54 52 47 54 42 20 52 30 2c 5b 52 37 2c 52 |:STRGTB R0,[R7,R|
0003a920 33 5d 0d c8 c8 6a 41 44 44 47 54 20 52 33 2c 52 |3]...jADDGT R3,R|
0003a930 33 2c 23 31 3a 4d 4f 56 47 54 20 52 30 2c 23 31 |3,#1:MOVGT R0,#1|
0003a940 33 3a 41 44 44 20 52 34 2c 52 34 2c 23 31 3a 43 |3:ADD R4,R4,#1:C|
0003a950 4d 50 20 52 30 2c 23 31 33 3a 42 4e 45 20 61 3a |MP R0,#13:BNE a:|
0003a960 53 54 52 42 20 52 30 2c 5b 52 37 2c 52 33 5d 3a |STRB R0,[R7,R3]:|
0003a970 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 30 2d 52 |LDMFD R13!,{R0-R|
0003a980 34 2c 52 31 35 7d 3a 5d 3a ed 3a e1 0d c8 cd 04 |4,R15}:]:.:.....|
0003a990 0d c8 d2 64 dd f2 69 6e 69 74 3a ea 41 25 2c 41 |...d..init:.A%,A|
0003a9a0 24 2c 42 25 2c 42 24 2c 43 25 2c 43 24 2c 44 25 |$,B%,B$,C%,C$,D%|
0003a9b0 2c 44 24 2c 45 25 2c 50 73 70 72 69 74 65 73 25 |,D$,E%,Psprites%|
0003a9c0 2c 61 5f 24 2c 61 5f 25 3a 5a 24 3d 22 22 3a de |,a_$,a_%:Z$="":.|
0003a9d0 43 68 6f 69 63 65 73 24 28 33 29 3a ee 85 20 f1 |Choices$(3):.. .|
0003a9e0 20 f6 24 2b 22 20 61 74 20 6c 69 6e 65 20 22 2b | .$+" at line "+|
0003a9f0 c3 9e 3a fa 0d c8 d7 1b 42 24 3d 22 3c 4f 62 65 |..:.....B$="<Obe|
0003aa00 79 24 44 69 72 3e 2e 43 68 6f 69 63 65 73 22 0d |y$Dir>.Choices".|
0003aa10 c8 dc a1 41 25 3d 8e 28 42 24 29 3a e8 23 41 25 |...A%=.(B$):.#A%|
0003aa20 2c 4c 65 76 65 6c 24 2c 50 61 73 73 24 2c 44 65 |,Level$,Pass$,De|
0003aa30 62 75 67 25 2c 53 68 6f 77 4e 61 6d 65 25 2c 48 |bug%,ShowName%,H|
0003aa40 65 6c 70 25 2c 4c 61 73 74 24 2c 5a 24 2c 53 61 |elp%,Last$,Z$,Sa|
0003aa50 76 65 43 68 6f 69 63 65 73 25 2c 5a 25 2c 43 68 |veChoices%,Z%,Ch|
0003aa60 6f 69 63 65 73 24 28 30 29 2c 43 68 6f 69 63 65 |oices$(0),Choice|
0003aa70 73 24 28 31 29 2c 43 68 6f 69 63 65 73 24 28 32 |s$(1),Choices$(2|
0003aa80 29 2c 43 68 6f 69 63 65 73 24 28 33 29 2c 49 6e |),Choices$(3),In|
0003aa90 66 6f 5f 24 3a d9 23 41 25 3a 50 61 73 73 24 3d |fo_$:.#A%:Pass$=|
0003aaa0 a4 63 64 53 28 50 61 73 73 24 29 3a 45 25 3d a3 |.cdS(Pass$):E%=.|
0003aab0 0d c8 e1 12 41 24 3d 22 34 30 30 30 2c 30 2c 31 |....A$="4000,0,1|
0003aac0 36 22 0d c8 e6 cd 43 6c 6f 73 65 57 25 3d 33 3a |6"....CloseW%=3:|
0003aad0 50 74 72 4c 65 61 76 65 25 3d 34 3a 50 74 72 45 |PtrLeave%=4:PtrE|
0003aae0 6e 74 65 72 25 3d 35 3a 43 6c 69 63 6b 25 3d 36 |nter%=5:Click%=6|
0003aaf0 3a 4b 65 79 50 72 65 73 73 25 3d 38 3a 4c 6f 73 |:KeyPress%=8:Los|
0003ab00 65 43 61 72 65 74 25 3d 31 31 3a 47 61 69 6e 43 |eCaret%=11:GainC|
0003ab10 61 72 65 74 25 3d 31 32 3a 43 72 65 61 74 65 57 |aret%=12:CreateW|
0003ab20 25 3d 31 39 33 3a 4b 65 79 31 33 25 3d 31 39 34 |%=193:Key13%=194|
0003ab30 3a 57 73 70 61 63 65 25 3d 31 39 35 3a 43 6c 6f |:Wspace%=195:Clo|
0003ab40 73 65 64 57 25 3d 31 39 38 3a 50 6f 70 55 70 57 |sedW%=198:PopUpW|
0003ab50 25 3d 32 35 36 3a 44 6f 54 61 69 6c 25 3d 32 35 |%=256:DoTail%=25|
0003ab60 37 3a 53 74 61 74 69 63 57 25 3d 32 35 38 3a 43 |7:StaticW%=258:C|
0003ab70 68 61 6e 67 65 4d 25 3d 32 35 39 3a 51 75 69 74 |hangeM%=259:Quit|
0003ab80 25 3d 32 36 30 3a 52 61 6d 54 25 3d 32 36 31 0d |%=260:RamT%=261.|
0003ab90 c8 eb a6 49 25 3d a3 3a de 4a 25 36 33 3a 4b 25 |...I%=.:.J%63:K%|
0003aba0 3d a3 3a 4d 25 3d a3 3a 4e 25 3d a3 3a 50 25 3d |=.:M%=.:N%=.:P%=|
0003abb0 a3 3a 52 25 3d a3 3a 54 25 3d a3 3a 55 25 3d a3 |.:R%=.:T%=.:U%=.|
0003abc0 3a 45 24 3d 22 22 3a 46 24 3d 22 22 3a 47 24 3d |:E$="":F$="":G$=|
0003abd0 22 22 3a 48 24 3d 22 22 3a 41 3d 30 3a 42 3d 30 |"":H$="":A=0:B=0|
0003abe0 3a 43 3d 30 3a 44 3d 30 3a 45 3d 30 3a 46 3d 30 |:C=0:D=0:E=0:F=0|
0003abf0 3a 47 3d 30 3a 48 3d 30 3a 64 24 3d 22 22 3a 66 |:G=0:H=0:d$="":f|
0003ac00 24 3d 22 22 3a 7a 24 3d 22 22 3a 41 25 3d 36 36 |$="":z$="":A%=66|
0003ac10 36 33 3a 42 25 3d bb 28 a4 70 53 28 41 24 2c 22 |63:B%=.(.pS(A$,"|
0003ac20 2c 22 29 29 3a e7 42 25 3c 31 32 30 30 8c 42 25 |,")):.B%<1200.B%|
0003ac30 3d 31 32 30 30 0d c8 f0 cb 41 25 2b 3d 42 25 3a |=1200....A%+=B%:|
0003ac40 de 53 25 41 25 2c 53 25 21 31 36 34 20 36 34 3a |.S%A%,S%!164 64:|
0003ac50 42 25 3d 53 25 21 31 36 34 3a 43 25 3d 26 38 30 |B%=S%!164:C%=&80|
0003ac60 44 30 32 3a c8 99 43 25 2c 30 b8 2c 41 25 3a 42 |D02:..C%,0.,A%:B|
0003ac70 25 21 30 3d 41 25 3a c8 99 43 25 2c 31 b8 2c 41 |%!0=A%:..C%,1.,A|
0003ac80 25 3a 42 25 21 34 3d 41 25 3a c8 99 43 25 2c 32 |%:B%!4=A%:..C%,2|
0003ac90 b8 2c 41 25 3a 42 25 21 38 3d 41 25 3a c8 99 43 |.,A%:B%!8=A%:..C|
0003aca0 25 2c 33 b8 2c 41 25 3a 42 25 21 31 32 3d 41 25 |%,3.,A%:B%!12=A%|
0003acb0 3a c8 99 43 25 2c 34 b8 2c 41 25 3a 42 25 21 31 |:..C%,4.,A%:B%!1|
0003acc0 36 3d 41 25 3a c8 99 43 25 2c 35 b8 2c 41 25 3a |6=A%:..C%,5.,A%:|
0003acd0 42 25 21 32 30 3d 41 25 3a c8 99 43 25 2c 38 b8 |B%!20=A%:..C%,8.|
0003ace0 2c 41 25 3a 42 25 21 32 34 3d 41 25 3a c8 99 43 |,A%:B%!24=A%:..C|
0003acf0 25 2c 39 b8 2c 41 25 3a 42 25 21 32 38 3d 41 25 |%,9.,A%:B%!28=A%|
0003ad00 0d c8 f5 40 c8 99 43 25 2c 31 31 b8 2c 41 25 3a |...@..C%,11.,A%:|
0003ad10 42 25 21 33 36 3d 41 25 3a c8 99 43 25 2c 31 32 |B%!36=A%:..C%,12|
0003ad20 b8 2c 41 25 3a 42 25 21 34 30 3d 41 25 3a c8 99 |.,A%:B%!40=A%:..|
0003ad30 43 25 2c 31 34 b8 2c 41 25 3a 21 53 25 3d 41 25 |C%,14.,A%:!S%=A%|
0003ad40 0d c8 fa 95 f2 73 42 77 28 53 25 2b 34 2c 31 36 |.....sBw(S%+4,16|
0003ad50 30 2c 30 29 3a f2 73 42 77 28 53 25 2b 31 36 38 |0,0):.sBw(S%+168|
0003ad60 2c 36 34 39 36 2c 30 29 3a 51 25 3d 53 25 2b 36 |,6496,0):Q%=S%+6|
0003ad70 36 36 34 3a 53 25 21 38 3d 51 25 3a 24 28 53 25 |664:S%!8=Q%:$(S%|
0003ad80 2b 32 30 29 3d 22 5f 22 3a 53 25 21 31 31 32 3d |+20)="_":S%!112=|
0003ad90 53 25 2b 31 35 34 34 3a 53 25 21 31 31 36 3d 53 |S%+1544:S%!116=S|
0003ada0 25 2b 31 38 30 30 3a 53 25 21 31 32 30 3d 53 25 |%+1800:S%!120=S%|
0003adb0 2b 32 30 35 36 3a 4f 25 3d 53 25 2b 32 33 31 32 |+2056:O%=S%+2312|
0003adc0 3a 53 25 21 31 32 34 3d 4f 25 3a 57 25 3d 53 25 |:S%!124=O%:W%=S%|
0003add0 2b 32 35 36 38 0d c8 ff 58 53 25 21 34 34 3d 48 |+2568...XS%!44=H|
0003ade0 49 5f 25 3a c8 99 32 39 2c 30 2c 53 25 21 34 34 |I_%:..29,0,S%!44|
0003adf0 2c 2c 48 4d 25 2d 53 25 21 34 34 3a 53 25 21 34 |,,HM%-S%!44:S%!4|
0003ae00 38 3d b9 3a 44 25 3d bb 28 a4 70 53 28 41 24 2c |8=.:D%=.(.pS(A$,|
0003ae10 22 2c 22 29 29 3a 53 25 21 38 30 3d 44 25 3a e7 |",")):S%!80=D%:.|
0003ae20 44 25 3e 30 8c de 53 25 21 37 36 44 25 0d c9 04 |D%>0..S%!76D%...|
0003ae30 21 53 25 21 31 32 38 3d b9 3a 53 25 21 31 34 38 |!S%!128=.:S%!148|
0003ae40 3d 45 25 3a 53 25 21 31 35 36 3d 31 30 30 0d c9 |=E%:S%!156=100..|
0003ae50 09 8c 53 25 21 31 38 38 3d b9 3a f2 67 4d 69 3a |..S%!188=.:.gMi:|
0003ae60 53 25 21 32 31 32 3d 26 38 30 32 38 43 30 3a 53 |S%!212=&8028C0:S|
0003ae70 25 21 32 31 36 3d b9 3a 53 25 21 32 34 38 3d bb |%!216=.:S%!248=.|
0003ae80 28 a4 70 53 28 41 24 2c 22 2c 22 29 29 2d 32 3a |(.pS(A$,","))-2:|
0003ae90 c8 99 38 31 b8 44 25 3a 53 25 21 32 39 32 3d 44 |..81.D%:S%!292=D|
0003aea0 25 3a 53 25 21 33 32 34 3d b9 3a de 53 25 21 34 |%:S%!324=.:.S%!4|
0003aeb0 32 34 20 33 31 2c 53 25 21 34 39 32 20 33 31 3a |24 31,S%!492 31:|
0003aec0 53 25 21 34 35 36 3d b9 3a 53 25 21 35 35 32 3d |S%!456=.:S%!552=|
0003aed0 b9 3a 53 25 21 35 35 36 3d eb 0d c9 0e ea 42 25 |.:S%!556=.....B%|
0003aee0 3d 53 25 2b 31 30 32 34 3a 61 6e 25 3d 42 25 3a |=S%+1024:an%=B%:|
0003aef0 63 6e 25 3d 42 25 2b 32 34 3a 64 6e 25 3d 42 25 |cn%=B%+24:dn%=B%|
0003af00 2b 33 36 3a 65 6e 25 3d 42 25 2b 34 38 3a 66 6e |+36:en%=B%+48:fn|
0003af10 25 3d 42 25 2b 36 30 3a 6c 6e 25 3d 42 25 2b 31 |%=B%+60:ln%=B%+1|
0003af20 33 32 3a 6d 6e 25 3d 42 25 2b 31 34 34 3a 6e 6e |32:mn%=B%+144:nn|
0003af30 25 3d 42 25 2b 31 35 36 3a 70 6e 25 3d 42 25 2b |%=B%+156:pn%=B%+|
0003af40 31 38 30 3a 72 6e 25 3d 42 25 2b 32 30 34 3a 73 |180:rn%=B%+204:s|
0003af50 6e 25 3d 42 25 2b 32 31 36 3a 77 6e 25 3d 42 25 |n%=B%+216:wn%=B%|
0003af60 2b 32 36 34 3a 24 61 6e 25 3d 22 22 3a 24 63 6e |+264:$an%="":$cn|
0003af70 25 3d 22 22 3a 24 64 6e 25 3d 22 22 3a 24 65 6e |%="":$dn%="":$en|
0003af80 25 3d 22 22 3a 24 66 6e 25 3d 22 22 3a 24 6c 6e |%="":$fn%="":$ln|
0003af90 25 3d 22 22 3a 24 6d 6e 25 3d 22 22 3a 24 6e 6e |%="":$mn%="":$nn|
0003afa0 25 3d 22 22 3a 24 70 6e 25 3d 22 22 3a 24 72 6e |%="":$pn%="":$rn|
0003afb0 25 3d 22 22 3a 24 73 6e 25 3d 22 22 3a 24 77 6e |%="":$sn%="":$wn|
0003afc0 25 3d 22 22 0d c9 13 f7 42 25 3d 53 25 2b 31 33 |%=""....B%=S%+13|
0003afd0 33 36 3a 61 25 3d 42 25 3a 61 30 25 3d 42 25 2b |36:a%=B%:a0%=B%+|
0003afe0 34 3a 62 25 3d 42 25 2b 38 3a 62 30 25 3d 42 25 |4:b%=B%+8:b0%=B%|
0003aff0 2b 31 32 3a 63 25 3d 42 25 2b 31 36 3a 64 25 3d |+12:c%=B%+16:d%=|
0003b000 42 25 2b 32 34 3a 64 30 25 3d 42 25 2b 32 38 3a |B%+24:d0%=B%+28:|
0003b010 65 25 3d 42 25 2b 33 32 3a 65 30 25 3d 42 25 2b |e%=B%+32:e0%=B%+|
0003b020 33 36 3a 66 25 3d 42 25 2b 34 30 3a 66 30 25 3d |36:f%=B%+40:f0%=|
0003b030 42 25 2b 34 34 3a 67 25 3d 42 25 2b 34 38 3a 67 |B%+44:g%=B%+48:g|
0003b040 30 25 3d 42 25 2b 35 32 3a 68 25 3d 42 25 2b 35 |0%=B%+52:h%=B%+5|
0003b050 36 3a 68 30 25 3d 42 25 2b 36 30 3a 69 25 3d 42 |6:h0%=B%+60:i%=B|
0003b060 25 2b 36 34 3a 69 30 25 3d 42 25 2b 36 38 3a 6a |%+64:i0%=B%+68:j|
0003b070 25 3d 42 25 2b 37 32 3a 6a 30 25 3d 42 25 2b 37 |%=B%+72:j0%=B%+7|
0003b080 36 3a 6b 25 3d 42 25 2b 38 30 3a 6b 30 25 3d 42 |6:k%=B%+80:k0%=B|
0003b090 25 2b 38 34 3a 6c 25 3d 42 25 2b 38 38 3a 6c 30 |%+84:l%=B%+88:l0|
0003b0a0 25 3d 42 25 2b 39 32 3a 6d 25 3d 42 25 2b 39 36 |%=B%+92:m%=B%+96|
0003b0b0 3a 6d 30 25 3d 42 25 2b 31 30 30 0d c9 18 b4 6e |:m0%=B%+100....n|
0003b0c0 25 3d 42 25 2b 31 30 34 3a 71 25 3d 42 25 2b 31 |%=B%+104:q%=B%+1|
0003b0d0 32 38 3a 72 25 3d 42 25 2b 31 33 36 3a 72 30 25 |28:r%=B%+136:r0%|
0003b0e0 3d 42 25 2b 31 34 30 3a 73 25 3d 42 25 2b 31 34 |=B%+140:s%=B%+14|
0003b0f0 34 3a 74 25 3d 42 25 2b 31 35 32 3a 74 30 25 3d |4:t%=B%+152:t0%=|
0003b100 42 25 2b 31 35 36 3a 76 25 3d 42 25 2b 31 36 38 |B%+156:v%=B%+168|
0003b110 3a 76 30 25 3d 42 25 2b 31 37 32 3a 77 25 3d 42 |:v0%=B%+172:w%=B|
0003b120 25 2b 31 37 36 3a 77 30 25 3d 42 25 2b 31 38 30 |%+176:w0%=B%+180|
0003b130 3a 78 25 3d 42 25 2b 31 38 34 3a 78 30 25 3d 42 |:x%=B%+184:x0%=B|
0003b140 25 2b 31 38 38 3a 79 25 3d 42 25 2b 31 39 32 3a |%+188:y%=B%+192:|
0003b150 79 30 25 3d 42 25 2b 31 39 36 3a 7a 25 3d 42 25 |y0%=B%+196:z%=B%|
0003b160 2b 32 30 30 3a 7a 30 25 3d 42 25 2b 32 30 34 0d |+200:z0%=B%+204.|
0003b170 c9 1d 68 21 76 30 25 3d 38 35 36 3a 21 77 25 3d |..h!v0%=856:!w%=|
0003b180 57 25 3a 57 25 2b 3d 32 35 36 3a 43 25 3d 30 3a |W%:W%+=256:C%=0:|
0003b190 e3 42 25 3d 21 77 25 2b 31 32 b8 21 77 25 2b 31 |.B%=!w%+12.!w%+1|
0003b1a0 32 2b 31 35 2a 32 35 36 88 32 35 36 3a 21 42 25 |2+15*256.256:!B%|
0003b1b0 3d 2d 32 35 35 3a 42 25 21 32 38 3d b9 3a 42 25 |=-255:B%!28=.:B%|
0003b1c0 21 31 38 34 3d b9 3a 42 25 21 33 36 3d 43 25 3a |!184=.:B%!36=C%:|
0003b1d0 43 25 2b 3d 31 3a ed 0d c9 22 82 de 43 25 28 31 |C%+=1:..."..C%(1|
0003b1e0 2c 36 29 2c 49 25 28 31 36 29 2c 4d 25 28 31 36 |,6),I%(16),M%(16|
0003b1f0 29 2c 4d 24 28 31 36 29 2c 54 24 28 33 31 29 2c |),M$(16),T$(31),|
0003b200 7a 24 28 31 36 29 3a 43 25 28 29 3d 2d 31 3a 43 |z$(16):C%()=-1:C|
0003b210 25 28 30 2c 36 29 3d 30 3a f7 2b 30 3a e3 41 25 |%(0,6)=0:.+0:.A%|
0003b220 3d 30 b8 31 34 3a f3 3f 28 53 25 2b 33 30 30 2b |=0.14:.?(S%+300+|
0003b230 41 25 29 3a ed 3a e3 41 25 3d 30 b8 33 31 3a f3 |A%):.:.A%=0.31:.|
0003b240 54 24 28 41 25 29 3a ed 3a 50 6f 6c 6c 24 3d 22 |T$(A%):.:Poll$="|
0003b250 22 3a 54 6f 6f 6c 25 3d 30 0d c9 27 52 43 24 3d |":Tool%=0..'RC$=|
0003b260 a4 67 53 56 28 22 4f 62 65 79 24 44 69 72 22 29 |.gSV("Obey$Dir")|
0003b270 3a 24 73 6e 25 3d a4 67 4c 6e 28 43 24 29 3a 41 |:$sn%=.gLn(C$):A|
0003b280 70 70 6c 6e 24 3d 43 24 3a c8 99 26 34 30 30 43 |ppln$=C$:..&400C|
0003b290 30 2c 32 30 30 2c 26 34 42 35 33 34 31 35 34 2c |0,200,&4B534154,|
0003b2a0 24 73 6e 25 b8 43 25 2c 21 74 25 0d c9 2c 4f e7 |$sn%.C%,!t%..,O.|
0003b2b0 43 25 3c 32 30 30 8c 85 53 25 21 32 31 32 2b 32 |C%<200..S%!212+2|
0003b2c0 2c 22 59 6f 75 20 6e 65 65 64 20 52 49 53 43 2d |,"You need RISC-|
0003b2d0 4f 53 20 57 69 6d 70 20 76 65 72 73 69 6f 6e 20 |OS Wimp version |
0003b2e0 32 2e 30 20 74 6f 20 72 75 6e 20 74 68 69 73 20 |2.0 to run this |
0003b2f0 70 72 6f 67 72 61 6d 22 3a e0 0d c9 31 0e ee 85 |program":...1...|
0003b300 f2 65 72 72 6f 72 3a e0 0d c9 36 59 f2 73 50 4f |.error:...6Y.sPO|
0003b310 28 31 29 3a 53 25 21 35 36 30 3d 31 3a 41 25 3d |(1):S%!560=1:A%=|
0003b320 53 25 21 35 36 30 3c 3c 33 3a de 53 25 21 36 30 |S%!560<<3:.S%!60|
0003b330 28 41 25 3c 3c 32 29 2b 33 3a de 53 25 21 38 34 |(A%<<2)+3:.S%!84|
0003b340 28 41 25 3c 3c 33 29 2b 37 3a f2 73 42 28 53 25 |(A%<<3)+7:.sB(S%|
0003b350 21 38 34 2c 28 41 25 3c 3c 33 29 2b 38 2c 31 33 |!84,(A%<<3)+8,13|
0003b360 29 0d c9 3b a3 7a 24 3d 22 5f 22 3a 24 28 53 25 |)..;.z$="_":$(S%|
0003b370 21 38 34 29 3d 7a 24 3a 5a 25 3d a4 69 5f 28 41 |!84)=z$:Z%=.i_(A|
0003b380 70 70 6c 6e 24 2c 30 29 3a 53 25 21 31 34 30 3d |ppln$,0):S%!140=|
0003b390 2d 31 3a 53 25 21 31 34 34 3d 2d 31 3a 43 24 3d |-1:S%!144=-1:C$=|
0003b3a0 22 49 63 6f 6e 42 61 72 22 3a 24 28 53 25 2b 39 |"IconBar":$(S%+9|
0003b3b0 36 29 3d 43 24 3a 53 25 21 37 32 3d a4 66 4d 28 |6)=C$:S%!72=.fM(|
0003b3c0 43 24 29 3a 41 25 3d a4 61 52 28 53 25 21 37 32 |C$):A%=.aR(S%!72|
0003b3d0 29 3a 42 25 3d 41 25 2b 34 3a 43 25 3d 30 3a 44 |):B%=A%+4:C%=0:D|
0003b3e0 25 3d 30 3a f5 42 25 2b 3d 32 34 3a 45 25 3d 21 |%=0:.B%+=24:E%=!|
0003b3f0 42 25 3a 43 25 2b 3d 31 3a e7 45 25 80 32 8c 44 |B%:C%+=1:.E%.2.D|
0003b400 25 2b 3d 31 0d c9 40 62 fd 28 45 25 80 31 32 38 |%+=1..@b.(E%.128|
0003b410 29 3e 30 3a 53 25 21 31 30 38 3d 43 25 2a 28 41 |)>0:S%!108=C%*(A|
0003b420 25 21 32 30 2b 41 25 21 32 34 29 2b 41 25 21 32 |%!20+A%!24)+A%!2|
0003b430 34 2b 32 34 2a 44 25 3a 42 24 3d a4 70 53 28 41 |4+24*D%:B$=.pS(A|
0003b440 24 2c 22 2c 22 29 3a e7 42 24 3c 3e 22 22 8c 42 |$,","):.B$<>"".B|
0003b450 24 3d c0 a4 74 6f 55 43 28 42 24 29 2c 31 29 8b |$=..toUC(B$),1).|
0003b460 42 24 3d 22 52 22 0d c9 45 19 e7 42 24 3d 22 4c |B$="R"..E..B$="L|
0003b470 22 8c 21 4f 25 3d 2d 32 8b 21 4f 25 3d 2d 31 0d |".!O%=-2.!O%=-1.|
0003b480 c9 4a 47 53 25 21 33 34 30 3d 21 4f 25 3a 4f 25 |.JGS%!340=!O%:O%|
0003b490 21 34 3d 30 3a 42 24 3d a4 70 53 28 41 24 2c 22 |!4=0:B$=.pS(A$,"|
0003b4a0 2c 22 29 3a 42 24 3d a4 74 6f 4c 43 28 42 24 29 |,"):B$=.toLC(B$)|
0003b4b0 3a e7 42 24 3d 22 22 8c 42 24 3d a4 74 6f 4c 43 |:.B$="".B$=.toLC|
0003b4c0 28 24 73 6e 25 29 0d c9 4f 60 4f 25 21 38 3d 30 |($sn%)..O`O%!8=0|
0003b4d0 3a c8 99 26 34 30 30 45 39 2c 32 39 36 2c 2c 42 |:..&400E9,296,,B|
0003b4e0 24 b8 2c 2c 2c 41 25 2c 42 25 3a 43 25 3d a4 72 |$.,,,A%,B%:C%=.r|
0003b4f0 4d 56 28 42 25 2c 34 29 3a 4f 25 21 31 32 3d 41 |MV(B%,4):O%!12=A|
0003b500 25 3c 3c 43 25 3a 4f 25 21 31 36 3d 36 38 3a 43 |%<<C%:O%!16=68:C|
0003b510 24 3d a4 70 53 28 41 24 2c 22 2c 22 29 3a e7 43 |$=.pS(A$,","):.C|
0003b520 24 3c 3e 22 22 8c 0d c9 54 64 42 24 3d 22 53 22 |$<>""...TdB$="S"|
0003b530 2b 42 24 2b 22 2c 22 2b a4 74 6f 4c 43 28 43 24 |+B$+","+.toLC(C$|
0003b540 29 3a 4f 25 21 32 30 3d 26 31 37 30 31 42 31 31 |):O%!20=&1701B11|
0003b550 42 3a de 4f 25 21 32 34 20 33 3a 24 28 4f 25 21 |B:.O%!24 3:$(O%!|
0003b560 32 34 29 3d 22 22 3a 41 25 3d a9 42 24 3a de 4f |24)="":A%=.B$:.O|
0003b570 25 21 32 38 41 25 3a 24 28 4f 25 21 32 38 29 3d |%!28A%:$(O%!28)=|
0003b580 42 24 3a 4f 25 21 33 32 3d 34 0d c9 59 20 cc 4f |B$:O%!32=4..Y .O|
0003b590 25 21 32 30 3d 26 31 37 30 30 33 30 30 32 3a 24 |%!20=&17003002:$|
0003b5a0 28 4f 25 2b 32 34 29 3d 42 24 0d c9 5e 23 cd 3a |(O%+24)=B$..^#.:|
0003b5b0 c8 99 26 34 30 30 43 32 2c 2c 4f 25 b8 21 67 25 |..&400C2,,O%.!g%|
0003b5c0 3a c8 99 26 34 30 30 44 30 2c 2c 2d 31 0d c9 63 |:..&400D0,,-1..c|
0003b5d0 05 e1 0d c9 68 2d dc 31 2c 32 35 2c 30 2c 32 34 |....h-.1,25,0,24|
0003b5e0 30 2c 32 34 30 2c 32 2c 32 35 2c 30 2c 30 2c 31 |0,240,2,25,0,0,1|
0003b5f0 34 34 2c 33 2c 32 35 2c 32 34 30 2c 30 2c 30 0d |44,3,25,240,0,0.|
0003b600 c9 6d ab dc 22 22 2c 41 6c 65 72 74 2c 42 61 73 |.m.."",Alert,Bas|
0003b610 69 63 2c 45 64 69 74 2c 50 61 69 6e 74 2c 44 72 |ic,Edit,Paint,Dr|
0003b620 61 77 2c 54 65 78 74 75 72 65 2c 44 69 73 70 6c |aw,Texture,Displ|
0003b630 61 79 2c 46 6f 72 6d 2c 44 69 61 6c 6f 67 2c 4d |ay,Form,Dialog,M|
0003b640 65 6e 75 2c 53 63 72 6f 6c 6c 2c 53 70 72 69 74 |enu,Scroll,Sprit|
0003b650 65 2c 41 6e 69 6d 61 74 65 2c 44 61 74 61 50 61 |e,Animate,DataPa|
0003b660 64 2c 4d 75 6c 74 69 50 61 64 2c 54 6f 6f 6c 73 |d,MultiPad,Tools|
0003b670 2c 56 69 65 77 2c 22 22 2c 54 68 72 65 65 44 65 |,View,"",ThreeDe|
0003b680 65 2c 22 22 2c 46 69 6c 6d 2c 22 22 2c 22 22 2c |e,"",Film,"","",|
0003b690 22 22 2c 22 22 2c 22 22 2c 22 22 2c 22 22 2c 22 |"","","","","","|
0003b6a0 22 2c 22 22 2c 41 6d 62 69 67 0d c9 72 04 0d c9 |","",Ambig..r...|
0003b6b0 77 92 dd f2 69 52 65 73 28 41 24 2c 42 31 25 29 |w...iRes(A$,B1%)|
0003b6c0 3a ea 41 25 2c 42 25 2c 42 32 25 2c 42 24 2c 43 |:.A%,B%,B2%,B$,C|
0003b6d0 25 2c 43 24 2c 44 25 2c 44 24 2c 45 25 2c 46 25 |%,C$,D%,D$,E%,F%|
0003b6e0 2c 47 25 2c 48 25 2c 5a 24 3a 45 25 3d 66 6e 25 |,G%,H%,Z$:E%=fn%|
0003b6f0 3a 42 25 3d 30 3a 21 28 53 25 21 36 30 2b 28 42 |:B%=0:!(S%!60+(B|
0003b700 31 25 3c 3c 32 29 29 3d 30 3a 42 32 25 3d 28 42 |1%<<2))=0:B2%=(B|
0003b710 31 25 83 33 32 29 3c 3c 32 37 3a f5 c8 99 31 32 |1%.32)<<27:...12|
0003b720 2c 39 2c 41 24 2c 45 25 2c 31 2c 42 25 2c 31 32 |,9,A$,E%,1,B%,12|
0003b730 b8 2c 2c 2c 2c 42 25 3a e7 42 25 3c 3e 2d 31 8c |.,,,,B%:.B%<>-1.|
0003b740 0d c9 7c 45 44 25 3d 45 25 3a c8 95 3f 44 25 3a |..|ED%=E%:..?D%:|
0003b750 44 25 2b 3d 31 3a ce 3a 3f 44 25 3d 31 33 3a 42 |D%+=1:.:?D%=13:B|
0003b760 24 3d a4 74 6f 4c 43 28 24 45 25 29 3a 43 24 3d |$=.toLC($E%):C$=|
0003b770 41 24 2b 22 2e 22 2b 42 24 3a 44 25 3d a4 67 46 |A$+"."+B$:D%=.gF|
0003b780 6c 28 43 24 29 0d c9 81 0a e7 44 25 3e 30 8c 0d |l(C$).....D%>0..|
0003b790 c9 86 0f 46 25 3d a4 67 46 74 28 43 24 29 0d c9 |...F%=.gFt(C$)..|
0003b7a0 8b 09 c8 8e b9 20 ca 0d c9 90 12 c9 46 25 3d 26 |..... ......F%=&|
0003b7b0 46 46 39 3a c8 8e 42 24 ca 0d c9 95 74 c9 22 73 |FF9:..B$....t."s|
0003b7c0 70 72 69 74 65 73 22 3a 44 25 2b 3d 31 36 3a de |prites":D%+=16:.|
0003b7d0 41 25 44 25 3a 21 41 25 3d 44 25 3a 41 25 21 34 |A%D%:!A%=D%:A%!4|
0003b7e0 3d 30 3a 41 25 21 38 3d 31 36 3a 41 25 21 31 32 |=0:A%!8=16:A%!12|
0003b7f0 3d 31 36 3a c8 99 34 36 2c 32 36 35 2c 41 25 3a |=16:..46,265,A%:|
0003b800 c8 99 38 2c 31 36 2c 43 24 2c 41 25 2b 34 3a 21 |..8,16,C$,A%+4:!|
0003b810 28 53 25 21 36 30 2b 28 42 31 25 3c 3c 32 29 29 |(S%!60+(B1%<<2))|
0003b820 3d 41 25 3a 53 25 21 31 34 34 3d 41 25 0d c9 9a |=A%:S%!144=A%...|
0003b830 18 c9 22 21 73 70 72 69 74 65 73 22 3a 53 25 21 |.."!sprites":S%!|
0003b840 31 34 30 3d b9 0d c9 9f 05 cb 0d c9 a4 30 c9 c0 |140=.........0..|
0003b850 42 24 2c 31 29 3d 22 21 22 2c 46 25 3d 26 46 46 |B$,1)="!",F%=&FF|
0003b860 42 2c 46 25 3d 26 34 30 37 2c 46 25 3e 3d 26 46 |B,F%=&407,F%>=&F|
0003b870 46 46 2c 46 25 3d 26 41 46 46 0d c9 a9 ac c9 46 |FF,F%=&AFF.....F|
0003b880 25 3d 26 34 30 32 3a e7 42 24 3d 22 6d 65 6e 75 |%=&402:.B$="menu|
0003b890 73 22 8c de 41 25 44 25 3a 43 25 3d a4 6c 64 46 |s"..A%D%:C%=.ldF|
0003b8a0 28 43 24 2c 41 25 29 3a 41 25 21 31 32 3d 41 25 |(C$,A%):A%!12=A%|
0003b8b0 21 31 32 84 42 32 25 3a 41 25 21 32 38 3d 53 25 |!12.B2%:A%!28=S%|
0003b8c0 21 35 36 3a 53 25 21 35 36 3d 41 25 3a 44 25 3d |!56:S%!56=A%:D%=|
0003b8d0 43 25 2b 43 25 21 32 30 3a e3 46 25 3d 43 25 2b |C%+C%!20:.F%=C%+|
0003b8e0 35 32 b8 43 25 2b 32 38 2b 32 34 2a 43 25 21 31 |52.C%+28+24*C%!1|
0003b8f0 36 88 32 34 3a 21 46 25 2b 3d 44 25 3a 46 25 21 |6.24:!F%+=D%:F%!|
0003b900 2d 38 3d 46 25 21 2d 38 84 42 32 25 3a 5a 25 3d |-8=F%!-8.B2%:Z%=|
0003b910 a4 69 4d 28 21 46 25 29 3a ed 3a 43 25 21 32 30 |.iM(!F%):.:C%!20|
0003b920 3d 43 25 2b 33 32 0d c9 ae 1b c9 46 25 3d 26 34 |=C%+32.....F%=&4|
0003b930 30 34 3a e7 42 24 3d 22 77 69 6e 64 6f 77 73 22 |04:.B$="windows"|
0003b940 8c 0d c9 b3 b3 de 41 25 44 25 3a 43 25 3d a4 6c |......A%D%:C%=.l|
0003b950 64 46 28 43 24 2c 41 25 29 3a 41 25 21 31 32 3d |dF(C$,A%):A%!12=|
0003b960 41 25 21 31 32 84 42 32 25 3a 41 25 21 32 38 3d |A%!12.B2%:A%!28=|
0003b970 53 25 21 36 34 3a 53 25 21 36 34 3d 41 25 3a 44 |S%!64:S%!64=A%:D|
0003b980 25 3d 43 25 2b 43 25 21 32 30 3a e3 46 25 3d 43 |%=C%+C%!20:.F%=C|
0003b990 25 2b 35 32 b8 43 25 2b 32 38 2b 32 34 2a 43 25 |%+52.C%+28+24*C%|
0003b9a0 21 31 36 88 32 34 3a 21 46 25 2b 3d 44 25 3a 46 |!16.24:!F%+=D%:F|
0003b9b0 25 21 2d 38 3d 46 25 21 2d 38 84 42 32 25 3a 24 |%!-8=F%!-8.B2%:$|
0003b9c0 77 6e 25 3d 24 28 46 25 2d 32 30 29 3a 48 25 3d |wn%=$(F%-20):H%=|
0003b9d0 46 25 21 2d 38 3e 3e 3e 31 36 80 33 31 3a 5a 25 |F%!-8>>>16.31:Z%|
0003b9e0 3d a4 69 57 28 21 46 25 2c 48 25 29 3a e7 48 25 |=.iW(!F%,H%):.H%|
0003b9f0 3d 31 30 8c 0d c9 b8 70 47 25 3d 21 28 21 46 25 |=10....pG%=!(!F%|
0003ba00 2b 33 36 29 3a e7 47 25 3e 30 8c de 41 25 47 25 |+36):.G%>0..A%G%|
0003ba10 2d 31 3a f2 73 42 77 28 41 25 2c 47 25 2c 30 29 |-1:.sBw(A%,G%,0)|
0003ba20 3a 47 25 3d 57 25 3a 57 25 3d 41 25 2d 35 32 3a |:G%=W%:W%=A%-52:|
0003ba30 52 25 3d 31 39 35 3a 5a 25 3d a0 28 22 46 4e 65 |R%=195:Z%=.("FNe|
0003ba40 22 2b 7a 24 29 3a 21 28 21 46 25 2b 31 32 29 3d |"+z$):!(!F%+12)=|
0003ba50 41 25 3a 57 25 3d 47 25 8b 21 28 21 46 25 2b 31 |A%:W%=G%.!(!F%+1|
0003ba60 32 29 3d 30 0d c9 bd 6c 41 25 3d a4 61 52 28 21 |2)=0...lA%=.aR(!|
0003ba70 46 25 29 3a f2 63 42 28 41 25 2c 51 25 2b 34 2c |F%):.cB(A%,Q%+4,|
0003ba80 38 38 2b 28 41 25 21 38 34 3c 3c 35 29 29 3a 52 |88+(A%!84<<5)):R|
0003ba90 25 3d 31 39 33 3a 5a 25 3d a0 28 22 46 4e 65 22 |%=193:Z%=.("FNe"|
0003baa0 2b 7a 24 29 3a c8 99 26 34 30 30 43 31 2c 2c 51 |+z$):..&400C1,,Q|
0003bab0 25 2b 34 b8 21 68 25 3a 24 28 21 46 25 2b 34 29 |%+4.!h%:$(!F%+4)|
0003bac0 3d 22 22 3a 21 28 21 46 25 2b 38 29 3d 21 68 25 |="":!(!F%+8)=!h%|
0003bad0 0d c9 c2 05 cd 0d c9 c7 1a ed 3a 43 25 21 32 30 |..........:C%!20|
0003bae0 3d 43 25 2b 33 32 3a 53 25 21 33 32 3d 43 25 0d |=C%+32:S%!32=C%.|
0003baf0 c9 cc 05 cd 0d c9 d1 05 7f 0d c9 d6 0e e7 42 24 |..............B$|
0003bb00 3d 22 6b 65 79 22 8c 0d c9 db 84 de 41 25 44 25 |="key"......A%D%|
0003bb10 3a 43 25 3d a4 6c 64 46 28 43 24 2c 41 25 29 3a |:C%=.ldF(C$,A%):|
0003bb20 41 25 21 31 32 3d 41 25 21 31 32 84 42 32 25 3a |A%!12=A%!12.B2%:|
0003bb30 41 25 21 32 38 3d 53 25 21 35 32 3a 53 25 21 35 |A%!28=S%!52:S%!5|
0003bb40 32 3d 41 25 3a 44 25 3d 43 25 2b 43 25 21 32 30 |2=A%:D%=C%+C%!20|
0003bb50 3a e3 46 25 3d 43 25 2b 35 32 b8 43 25 2b 32 38 |:.F%=C%+52.C%+28|
0003bb60 2b 32 34 2a 43 25 21 31 36 88 32 34 3a 21 46 25 |+24*C%!16.24:!F%|
0003bb70 2b 3d 44 25 3a 46 25 21 2d 38 3d 46 25 21 2d 38 |+=D%:F%!-8=F%!-8|
0003bb80 84 42 32 25 3a c8 8e 24 43 25 ca 0d c9 e0 18 c9 |.B2%:..$C%......|
0003bb90 22 4b 65 79 22 3a 5a 25 3d a4 69 4b 65 79 28 21 |"Key":Z%=.iKey(!|
0003bba0 46 25 29 0d c9 e5 13 cb 3a ed 3a 43 25 21 32 30 |F%).....:.:C%!20|
0003bbb0 3d 43 25 2b 33 32 0d c9 ea 05 cd 0d c9 ef 05 cb |=C%+32..........|
0003bbc0 0d c9 f4 05 cd 0d c9 f9 0c cd 3a fd 42 25 3d 2d |..........:.B%=-|
0003bbd0 31 0d c9 fe 05 e1 0d ca 03 1e dd a4 69 28 41 24 |1...........i(A$|
0003bbe0 2c 42 25 29 3a f2 69 52 65 73 28 41 24 2c 42 25 |,B%):.iRes(A$,B%|
0003bbf0 29 3a 3d b9 0d ca 08 04 0d ca 0d 37 dd a4 69 4b |):=........7..iK|
0003bc00 65 79 28 41 25 29 3a ea 42 25 2c 43 25 3a e3 42 |ey(A%):.B%,C%:.B|
0003bc10 25 3d 41 25 b8 41 25 2b 26 33 46 46 88 34 3a e7 |%=A%.A%+&3FF.4:.|
0003bc20 21 42 25 3e 35 31 32 8c 21 42 25 2b 3d 41 25 0d |!B%>512.!B%+=A%.|
0003bc30 ca 12 2c ed 3a e3 42 25 3d 41 25 2b 26 36 30 30 |..,.:.B%=A%+&600|
0003bc40 b8 41 25 2b 26 37 46 46 88 34 3a e7 21 42 25 3e |.A%+&7FF.4:.!B%>|
0003bc50 35 31 32 8c 21 42 25 2b 3d 41 25 0d ca 17 17 ed |512.!B%+=A%.....|
0003bc60 3a 4b 25 3d 41 25 3a 53 25 21 32 34 3d 41 25 3a |:K%=A%:S%!24=A%:|
0003bc70 3d a3 0d ca 1c 2d dd a4 69 4d 28 41 25 29 3a ea |=....-..iM(A%):.|
0003bc80 42 25 2c 43 25 2c 44 25 2c 45 25 2c 46 25 2c 47 |B%,C%,D%,E%,F%,G|
0003bc90 24 3a 43 25 3d 21 41 25 3a e7 43 25 3e 30 8c 0d |$:C%=!A%:.C%>0..|
0003bca0 ca 21 45 46 25 3d a4 61 52 28 41 25 29 3a 41 25 |.!EF%=.aR(A%):A%|
0003bcb0 2d 3d 31 32 3a e3 42 25 3d 46 25 2b 32 38 b8 46 |-=12:.B%=F%+28.F|
0003bcc0 25 2b 34 2b 32 34 2a 43 25 88 32 34 3a 41 25 2b |%+4+24*C%.24:A%+|
0003bcd0 3d 31 36 3a 45 25 3d 42 25 21 38 3a e7 45 25 80 |=16:E%=B%!8:.E%.|
0003bce0 32 35 36 8c 0d ca 26 29 42 25 21 31 32 2b 3d 46 |256...&)B%!12+=F|
0003bcf0 25 3a 42 25 21 31 36 2d 3d 46 25 2a 28 42 25 21 |%:B%!16-=F%*(B%!|
0003bd00 31 36 3e 31 29 3a e7 21 42 25 80 34 8c 0d ca 2b |16>1):.!B%.4...+|
0003bd10 1d 47 24 3d 24 41 25 3a e7 a7 47 24 2c 22 5f 22 |.G$=$A%:..G$,"_"|
0003bd20 29 3d 30 8c 47 24 2b 3d 7a 24 0d ca 30 12 f2 63 |)=0.G$+=z$..0..c|
0003bd30 49 56 28 47 24 2c 42 25 2b 31 32 29 0d ca 35 13 |IV(G$,B%+12)..5.|
0003bd40 cd 3a e7 45 25 80 32 8c 42 25 21 31 36 3d 31 0d |.:.E%.2.B%!16=1.|
0003bd50 ca 3a 05 cd 0d ca 3f 05 ed 0d ca 44 08 cd 3a 3d |.:....?....D..:=|
0003bd60 a3 0d ca 49 6e dd a4 69 57 28 41 25 2c 42 31 25 |...In..iW(A%,B1%|
0003bd70 29 3a ea 42 25 2c 43 25 2c 43 24 2c 44 25 2c 45 |):.B%,C%,C$,D%,E|
0003bd80 25 2c 46 25 2c 47 25 2c 47 31 25 2c 48 25 3a 46 |%,F%,G%,G1%,H%:F|
0003bd90 25 3d a4 61 52 28 41 25 29 3a 46 25 21 36 34 3d |%=.aR(A%):F%!64=|
0003bda0 53 25 21 31 34 34 3a 45 25 3d 46 25 21 38 34 3c |S%!144:E%=F%!84<|
0003bdb0 3c 35 3a 44 25 3d 46 25 2b 38 38 2b 45 25 3a 41 |<5:D%=F%+88+E%:A|
0003bdc0 25 21 36 34 3d 30 3a e7 42 31 25 3d 31 30 8c 0d |%!64=0:.B1%=10..|
0003bdd0 ca 4e 18 e7 46 25 21 35 36 80 32 35 36 8c 46 25 |.N..F%!56.256.F%|
0003bde0 21 37 32 2b 3d 44 25 0d ca 53 0a e7 45 25 3e 30 |!72+=D%..S..E%>0|
0003bdf0 8c 0d ca 58 3d e3 43 25 3d 46 25 2b 31 30 34 b8 |...X=.C%=F%+104.|
0003be00 46 25 2b 37 32 2b 45 25 88 33 32 3a e7 21 43 25 |F%+72+E%.32:.!C%|
0003be10 80 32 35 36 8c 43 25 21 34 2b 3d 44 25 3a e7 43 |.256.C%!4+=D%:.C|
0003be20 25 21 38 3e 30 8c 43 25 21 38 2b 3d 44 25 0d ca |%!8>0.C%!8+=D%..|
0003be30 5d 05 ed 0d ca 62 38 cd 3a 45 25 3d 21 41 25 3c |]....b8.:E%=!A%<|
0003be40 3c 34 3a 44 25 3d 46 25 2b 37 32 3a 46 25 3d 31 |<4:D%=F%+72:F%=1|
0003be50 34 3c 3c 31 32 3a 47 25 3d 46 25 2b 28 31 3c 3c |4<<12:G%=F%+(1<<|
0003be60 32 33 29 3a e7 45 25 3e 36 34 8c 0d ca 67 24 e3 |23):.E%>64...g$.|
0003be70 43 25 3d 41 25 2b 38 30 b8 41 25 2b 45 25 88 31 |C%=A%+80.A%+E%.1|
0003be80 36 3a e7 28 21 43 25 80 31 37 29 3d 31 37 8c 0d |6:.(!C%.17)=17..|
0003be90 ca 6c 2a 48 25 3d 44 25 2b 28 28 21 43 25 80 26 |.l*H%=D%+((!C%.&|
0003bea0 46 46 30 30 29 3e 3e 3e 33 29 3a e7 28 21 48 25 |FF00)>>>3):.(!H%|
0003beb0 80 47 25 29 3e 3d 46 25 8c 0d ca 71 33 43 24 3d |.G%)>=F%...q3C$=|
0003bec0 24 28 43 25 2d 31 32 29 3a e7 43 24 3c 3e 22 22 |$(C%-12):.C$<>""|
0003bed0 80 43 24 3c 3e 22 6e 6f 4e 61 6d 65 22 80 43 24 |.C$<>"noName".C$|
0003bee0 3c 3e 22 4e 6f 5f 4e 61 6d 65 22 8c 0d ca 76 16 |<>"No_Name"...v.|
0003bef0 e7 a7 43 24 2c 22 5f 22 29 3d 30 8c 43 24 2b 3d |..C$,"_")=0.C$+=|
0003bf00 7a 24 0d ca 7b 11 f2 63 49 56 28 43 24 2c 48 25 |z$..{..cIV(C$,H%|
0003bf10 2b 34 29 0d ca 80 05 cd 0d ca 85 05 cd 0d ca 8a |+4).............|
0003bf20 14 21 48 25 3d 21 48 25 80 ac 28 31 3c 3c 32 33 |.!H%=!H%..(1<<23|
0003bf30 29 0d ca 8f 07 cd 3a ed 0d ca 94 05 cd 0d ca 99 |).....:.........|
0003bf40 0b cc e7 45 25 3e 30 8c 0d ca 9e 38 cd 3a 45 25 |...E%>0....8.:E%|
0003bf50 3d 21 41 25 3c 3c 34 3a 44 25 3d 46 25 2b 37 32 |=!A%<<4:D%=F%+72|
0003bf60 3a 46 25 3d 31 34 3c 3c 31 32 3a 47 25 3d 46 25 |:F%=14<<12:G%=F%|
0003bf70 2b 28 31 3c 3c 32 33 29 3a e7 45 25 3e 36 34 8c |+(1<<23):.E%>64.|
0003bf80 0d ca a3 54 42 25 3d 30 3a e3 43 25 3d 41 25 2b |...TB%=0:.C%=A%+|
0003bf90 38 30 b8 41 25 2b 45 25 88 31 36 3a e7 28 21 43 |80.A%+E%.16:.(!C|
0003bfa0 25 80 31 37 29 3d 31 37 8c 48 25 3d 44 25 2b 28 |%.17)=17.H%=D%+(|
0003bfb0 28 21 43 25 80 26 46 46 30 30 29 3e 3e 3e 33 29 |(!C%.&FF00)>>>3)|
0003bfc0 3a e7 28 21 48 25 80 47 25 29 3e 3d 46 25 8c 42 |:.(!H%.G%)>=F%.B|
0003bfd0 25 2b 3d 34 0d ca a8 0a ed 3a e7 42 25 8c 0d ca |%+=4.....:.B%...|
0003bfe0 ad 0c e7 42 31 25 3d 31 34 8c 0d ca b2 66 de 43 |...B1%=14....f.C|
0003bff0 25 20 42 25 2a 37 2b 33 3a f2 73 42 28 43 25 2c |% B%*7+3:.sB(C%,|
0003c000 42 25 2a 36 2b 34 2c 2d 31 29 3a 41 25 21 36 34 |B%*6+4,-1):A%!64|
0003c010 3d 43 25 3a 21 43 25 3d 42 25 3a 42 25 2b 3d 43 |=C%:!C%=B%:B%+=C|
0003c020 25 2b 34 3a 47 31 25 3d 30 3a e3 45 25 3d 41 25 |%+4:G1%=0:.E%=A%|
0003c030 2b 38 30 b8 41 25 2b 28 21 41 25 3c 3c 34 29 88 |+80.A%+(!A%<<4).|
0003c040 31 36 3a e7 28 21 45 25 80 31 37 29 3d 31 37 8c |16:.(!E%.17)=17.|
0003c050 0d ca b7 2a 48 25 3d 44 25 2b 28 28 21 45 25 80 |...*H%=D%+((!E%.|
0003c060 26 46 46 30 30 29 3e 3e 3e 33 29 3a e7 28 21 48 |&FF00)>>>3):.(!H|
0003c070 25 80 47 25 29 3e 3d 46 25 8c 0d ca bc 33 43 24 |%.G%)>=F%....3C$|
0003c080 3d 24 28 45 25 2d 31 32 29 3a e7 43 24 3c 3e 22 |=$(E%-12):.C$<>"|
0003c090 22 80 43 24 3c 3e 22 6e 6f 4e 61 6d 65 22 80 43 |".C$<>"noName".C|
0003c0a0 24 3c 3e 22 4e 6f 5f 4e 61 6d 65 22 8c 0d ca c1 |$<>"No_Name"....|
0003c0b0 16 e7 a7 43 24 2c 22 5f 22 29 3d 30 8c 43 24 2b |...C$,"_")=0.C$+|
0003c0c0 3d 7a 24 0d ca c6 8e f2 63 49 56 28 43 24 2c 42 |=z$.....cIV(C$,B|
0003c0d0 25 29 3a 21 42 25 3d 48 25 21 34 3a 21 28 42 25 |%):!B%=H%!4:!(B%|
0003c0e0 2b 21 43 25 29 3d 45 25 2d 31 32 3a 21 28 42 25 |+!C%)=E%-12:!(B%|
0003c0f0 2b 28 21 43 25 3c 3c 31 29 29 3d 48 25 21 31 32 |+(!C%<<1))=H%!12|
0003c100 3a 21 28 42 25 2b 35 2a 21 43 25 29 3d 21 45 25 |:!(B%+5*!C%)=!E%|
0003c110 3e 3e 3e 38 80 26 46 46 3a e7 28 21 48 25 80 26 |>>>8.&FF:.(!H%.&|
0003c120 46 31 30 31 29 3e 3d 26 45 31 30 31 8c 21 28 42 |F101)>=&E101.!(B|
0003c130 25 2b 34 2a 21 43 25 29 3d 47 31 25 3a 47 31 25 |%+4*!C%)=G1%:G1%|
0003c140 2b 3d a4 61 6c 69 67 6e 28 48 25 21 31 32 2b 31 |+=.align(H%!12+1|
0003c150 29 0d ca cb 09 42 25 2b 3d 34 0d ca d0 05 cd 0d |)....B%+=4......|
0003c160 ca d5 16 cd 3a 21 48 25 3d 21 48 25 80 ac 28 31 |....:!H%=!H%..(1|
0003c170 3c 3c 32 33 29 0d ca da 51 cd 3a ed 3a f2 63 42 |<<23)...Q.:.:.cB|
0003c180 28 43 25 2b 21 43 25 2b 34 2c 43 25 2b 34 2c 21 |(C%+!C%+4,C%+4,!|
0003c190 43 25 29 3a 42 25 3d 43 25 2b 34 2a 21 43 25 2b |C%):B%=C%+4*!C%+|
0003c1a0 34 3a e3 45 25 3d 41 25 2b 38 30 b8 41 25 2b 28 |4:.E%=A%+80.A%+(|
0003c1b0 21 41 25 3c 3c 34 29 88 31 36 3a e7 28 21 45 25 |!A%<<4).16:.(!E%|
0003c1c0 80 34 29 3d 34 8c 0d ca df 50 e3 42 25 3d 43 25 |.4)=4....P.B%=C%|
0003c1d0 2b 36 2a 21 43 25 2b 34 b8 43 25 2b 37 2a 21 43 |+6*!C%+4.C%+7*!C|
0003c1e0 25 88 34 3a e7 21 42 25 3d 21 45 25 3e 3e 3e 38 |%.4:.!B%=!E%>>>8|
0003c1f0 80 26 46 46 20 8c 21 28 42 25 2d 28 21 43 25 3c |.&FF .!(B%-(!C%<|
0003c200 3c 31 29 29 3d 45 25 2d 31 32 3a 42 25 3d 43 25 |<1))=E%-12:B%=C%|
0003c210 2b 37 2a 21 43 25 0d ca e4 05 ed 0d ca e9 32 cd |+7*!C%........2.|
0003c220 3a ed 3a e3 42 25 3d 43 25 2b 34 2a 21 43 25 2b |:.:.B%=C%+4*!C%+|
0003c230 34 b8 43 25 2b 35 2a 21 43 25 88 34 3a e7 21 42 |4.C%+5*!C%.4:.!B|
0003c240 25 3c 26 38 30 30 30 8c 21 42 25 3d 30 0d ca ee |%<&8000.!B%=0...|
0003c250 05 ed 0d ca f3 67 cc de 43 25 20 28 42 25 3c 3c |.....g..C% (B%<<|
0003c260 31 29 2b 33 3a f2 73 42 28 43 25 2c 28 42 25 3c |1)+3:.sB(C%,(B%<|
0003c270 3c 31 29 2b 34 2c 2d 31 29 3a 41 25 21 36 34 3d |<1)+4,-1):A%!64=|
0003c280 43 25 3a 21 43 25 3d 42 25 3a 42 25 2b 3d 43 25 |C%:!C%=B%:B%+=C%|
0003c290 2b 34 3a e3 45 25 3d 41 25 2b 38 30 b8 41 25 2b |+4:.E%=A%+80.A%+|
0003c2a0 28 21 41 25 3c 3c 34 29 88 31 36 3a e7 28 21 45 |(!A%<<4).16:.(!E|
0003c2b0 25 80 31 37 29 3d 31 37 8c 0d ca f8 2a 48 25 3d |%.17)=17....*H%=|
0003c2c0 44 25 2b 28 28 21 45 25 80 26 46 46 30 30 29 3e |D%+((!E%.&FF00)>|
0003c2d0 3e 3e 33 29 3a e7 28 21 48 25 80 47 25 29 3e 3d |>>3):.(!H%.G%)>=|
0003c2e0 46 25 8c 0d ca fd 33 43 24 3d 24 28 45 25 2d 31 |F%....3C$=$(E%-1|
0003c2f0 32 29 3a e7 43 24 3c 3e 22 22 80 43 24 3c 3e 22 |2):.C$<>"".C$<>"|
0003c300 6e 6f 4e 61 6d 65 22 80 43 24 3c 3e 22 4e 6f 5f |noName".C$<>"No_|
0003c310 4e 61 6d 65 22 8c 0d cb 02 16 e7 a7 43 24 2c 22 |Name".......C$,"|
0003c320 5f 22 29 3d 30 8c 43 24 2b 3d 7a 24 0d cb 07 1e |_")=0.C$+=z$....|
0003c330 f2 63 49 56 28 43 24 2c 42 25 29 3a 21 42 25 3d |.cIV(C$,B%):!B%=|
0003c340 48 25 21 34 3a 42 25 2b 3d 34 0d cb 0c 05 cd 0d |H%!4:B%+=4......|
0003c350 cb 11 05 cd 0d cb 16 14 21 48 25 3d 21 48 25 80 |........!H%=!H%.|
0003c360 ac 28 31 3c 3c 32 33 29 0d cb 1b 1e cd 3a ed 3a |.(1<<23).....:.:|
0003c370 f2 63 42 28 43 25 2b 21 43 25 2b 34 2c 43 25 2b |.cB(C%+!C%+4,C%+|
0003c380 34 2c 21 43 25 29 0d cb 20 05 cd 0d cb 25 05 cd |4,!C%).. ....%..|
0003c390 0d cb 2a 05 cd 0d cb 2f 08 cd 3a 3d a3 0d cb 34 |..*..../..:=...4|
0003c3a0 39 dd a4 69 4d 73 67 28 41 24 28 29 2c 42 25 29 |9..iMsg(A$(),B%)|
0003c3b0 3a ea 43 25 3a 43 25 3d 30 3a f5 3a 41 24 28 43 |:.C%:C%=0:.:A$(C|
0003c3c0 25 29 3d be 23 42 25 3a 43 25 2b 3d 31 3a fd c5 |%)=.#B%:C%+=1:..|
0003c3d0 23 42 25 3a 3d a3 0d cb 39 04 0d cb 3e 0a dd f2 |#B%:=...9...>...|
0003c3e0 70 6f 6c 6c 0d cb 43 10 f5 f2 70 3a fd 65 6e 64 |poll..C...p:.end|
0003c3f0 5f 25 3e 30 0d cb 48 05 e1 0d cb 4d 1b dd f2 70 |_%>0..H....M...p|
0003c400 3a 41 25 3d 53 25 3a 52 25 3d ba 21 41 25 3a c8 |:A%=S%:R%=.!A%:.|
0003c410 8e 52 25 ca 0d cb 52 59 c9 34 3a 57 25 3d 53 25 |.R%...RY.4:W%=S%|
0003c420 21 31 36 3a 7a 24 3d 24 28 53 25 2b 32 30 29 3a |!16:z$=$(S%+20):|
0003c430 e7 a0 28 22 46 4e 65 22 2b 24 28 53 25 21 38 34 |..("FNe"+$(S%!84|
0003c440 2b 57 25 21 31 36 29 29 3a e7 70 6d 5f 25 3d 30 |+W%!16)):.pm_%=0|
0003c450 3a c8 99 26 34 30 30 45 39 2c 33 36 2c 2c 22 70 |:..&400E9,36,,"p|
0003c460 74 72 5f 64 65 66 61 75 6c 74 22 2c 31 0d cb 57 |tr_default",1..W|
0003c470 46 c9 35 3a 57 25 3d 53 25 21 31 36 3a 7a 24 3d |F.5:W%=S%!16:z$=|
0003c480 24 28 53 25 2b 32 30 29 3a e7 a0 28 22 46 4e 65 |$(S%+20):..("FNe|
0003c490 22 2b 24 28 53 25 21 38 34 2b 57 25 21 31 36 29 |"+$(S%!84+W%!16)|
0003c4a0 29 8c f2 73 50 28 57 25 21 33 32 29 3a 70 6d 5f |)..sP(W%!32):pm_|
0003c4b0 25 3d 30 0d cb 5c 32 c9 36 3a 57 25 3d 53 25 21 |%=0..\2.6:W%=S%!|
0003c4c0 31 36 3a 7a 24 3d 24 28 53 25 2b 32 30 29 3a 58 |16:z$=$(S%+20):X|
0003c4d0 25 3d 21 51 25 3a 59 25 3d 51 25 21 34 3a f2 63 |%=!Q%:Y%=Q%!4:.c|
0003c4e0 3a f2 6d 62 5f 0d cb 61 1e c9 38 3a 57 25 3d 53 |:.mb_..a..8:W%=S|
0003c4f0 25 21 31 36 3a 7a 24 3d 24 28 53 25 2b 32 30 29 |%!16:z$=$(S%+20)|
0003c500 3a f2 6b 0d cb 66 0e c9 39 3a f2 64 4d 28 51 25 |:.k..f..9:.dM(Q%|
0003c510 29 0d cb 6b 25 c9 31 30 3a 57 25 3d 53 25 21 31 |)..k%.10:W%=S%!1|
0003c520 36 3a 7a 24 3d 24 28 53 25 2b 32 30 29 3a f2 73 |6:z$=$(S%+20):.s|
0003c530 63 57 28 57 25 29 0d cb 70 63 c9 31 3a 57 25 3d |cW(W%)..pc.1:W%=|
0003c540 53 25 21 31 36 3a 7a 24 3d 24 28 53 25 2b 32 30 |S%!16:z$=$(S%+20|
0003c550 29 3a e7 24 28 57 25 2b 32 30 29 3d 22 56 69 65 |):.$(W%+20)="Vie|
0003c560 77 22 8c 5a 25 3d a0 28 22 46 4e 22 2b 24 57 25 |w".Z%=.("FN"+$W%|
0003c570 2b 7a 24 29 8b e7 57 25 21 32 31 36 3e 30 8c c8 |+z$)..W%!216>0..|
0003c580 99 26 34 30 30 43 38 2c 2c 51 25 b8 5a 25 3a e7 |.&400C8,,Q%.Z%:.|
0003c590 5a 25 8c f2 64 28 57 25 29 0d cb 75 0d c9 32 3a |Z%..d(W%)..u..2:|
0003c5a0 f2 6f 28 51 25 29 0d cb 7a 27 c9 33 3a 57 25 3d |.o(Q%)..z'.3:W%=|
0003c5b0 53 25 21 31 36 3a 7a 24 3d 24 28 53 25 2b 32 30 |S%!16:z$=$(S%+20|
0003c5c0 29 3a f2 63 6c 6f 73 65 57 28 57 25 29 0d cb 7f |):.closeW(W%)...|
0003c5d0 57 c9 37 3a 58 25 3d 51 25 21 32 30 3a 59 25 3d |W.7:X%=Q%!20:Y%=|
0003c5e0 51 25 21 32 34 3a 70 6d 5f 25 3d 30 3a c8 99 26 |Q%!24:pm_%=0:..&|
0003c5f0 34 30 30 45 39 2c 33 36 2c 2c 22 70 74 72 5f 64 |400E9,36,,"ptr_d|
0003c600 65 66 61 75 6c 74 22 2c 31 3a e7 a0 28 22 46 4e |efault",1:..("FN|
0003c610 22 2b 24 64 6e 25 2b 7a 24 29 8c f2 64 42 3a f2 |"+$dn%+z$)..dB:.|
0003c620 6d 62 31 5f 0d cb 84 15 c9 31 37 2c 31 38 3a f2 |mb1_.....17,18:.|
0003c630 66 69 78 33 5f 3a f2 72 4d 0d cb 89 0b c9 31 39 |fix3_:.rM.....19|
0003c640 3a f2 72 42 0d cb 8e 37 c9 31 31 3a 57 25 3d 53 |:.rB...7.11:W%=S|
0003c650 25 21 31 36 3a 7a 24 3d 24 28 53 25 2b 32 30 29 |%!16:z$=$(S%+20)|
0003c660 3a 5a 25 3d a0 28 22 46 4e 65 22 2b 24 28 53 25 |:Z%=.("FNe"+$(S%|
0003c670 21 38 34 2b 57 25 21 31 36 29 29 0d cb 93 6b c9 |!84+W%!16))...k.|
0003c680 31 32 3a 57 25 3d 53 25 21 31 36 3a 7a 24 3d 24 |12:W%=S%!16:z$=$|
0003c690 28 53 25 2b 32 30 29 3a e7 a0 28 22 46 4e 65 22 |(S%+20):..("FNe"|
0003c6a0 2b 24 28 53 25 21 38 34 2b 57 25 21 31 36 29 29 |+$(S%!84+W%!16))|
0003c6b0 3a e7 57 25 21 31 37 32 3e 30 80 57 25 21 31 37 |:.W%!172>0.W%!17|
0003c6c0 36 3e 30 80 57 25 21 31 38 30 3e 30 8c f2 63 42 |6>0.W%!180>0..cB|
0003c6d0 28 57 25 21 31 37 36 2c 57 25 21 31 37 32 2c 57 |(W%!176,W%!172,W|
0003c6e0 25 21 31 38 30 29 0d cb 98 09 c9 30 3a f2 42 0d |%!180).....0:.B.|
0003c6f0 cb 9d 07 cb 3a e1 0d cb a2 16 dd f2 63 3a e7 28 |....:.......c:.(|
0003c700 21 62 25 80 26 46 46 32 29 3d 30 8c 0d cb a7 0a |!b%.&FF2)=0.....|
0003c710 e7 57 25 3e 30 8c 0d cb ac 22 c8 99 26 34 30 30 |.W%>0...."..&400|
0003c720 44 33 2c 2c 4f 25 3a e7 21 4f 25 3c 3e 21 68 25 |D3,,O%:.!O%<>!h%|
0003c730 8c f2 67 43 28 57 25 29 0d cb b1 0c e7 21 69 25 |..gC(W%).....!i%|
0003c740 3e b9 20 8c 0d cb b6 0b c8 8e 24 72 6e 25 ca 0d |>. .......$rn%..|
0003c750 cb bb 75 c9 22 4d 65 6e 75 22 2c 22 44 69 61 6c |..u."Menu","Dial|
0003c760 6f 67 22 2c 22 53 63 72 6f 6c 6c 22 3a 21 77 30 |og","Scroll":!w0|
0003c770 25 3d 53 25 21 33 32 3a 21 68 30 25 3d 21 28 21 |%=S%!32:!h0%=!(!|
0003c780 77 30 25 2b 31 32 29 3a 53 25 21 33 32 3d 57 25 |w0%+12):S%!32=W%|
0003c790 3a e7 24 72 6e 25 3d 22 4d 65 6e 75 22 80 21 77 |:.$rn%="Menu".!w|
0003c7a0 30 25 3e 30 8c 4e 25 3d 21 28 21 77 30 25 2b 34 |0%>0.N%=!(!w0%+4|
0003c7b0 38 29 8b e7 57 25 21 33 36 80 32 8c 4e 25 3d 57 |8)..W%!36.2.N%=W|
0003c7c0 25 21 34 38 0d cb c0 0b e7 a4 66 49 43 20 8c 0d |%!48......fIC ..|
0003c7d0 cb c5 13 c8 8e 21 69 30 25 3e 3e 3e 31 36 80 36 |.....!i0%>>>16.6|
0003c7e0 33 ca 0d cb ca 11 c9 30 3a e7 24 63 6e 25 3c 3e |3......0:.$cn%<>|
0003c7f0 22 22 8c 0d cb cf 32 e7 a7 24 63 6e 25 2c 22 5f |""....2..$cn%,"_|
0003c800 22 29 8c 5a 25 3d a0 28 22 46 4e 22 2b 24 63 6e |").Z%=.("FN"+$cn|
0003c810 25 29 8b 5a 25 3d a0 28 22 46 4e 22 2b 24 63 6e |%).Z%=.("FN"+$cn|
0003c820 25 2b 7a 24 29 0d cb d4 05 cd 0d cb d9 07 c9 34 |%+z$)..........4|
0003c830 3a 0d cb de 0f c9 35 3a 5a 25 3d a4 6c 69 73 74 |:.....5:Z%=.list|
0003c840 0d cb e3 05 cb 0d cb e8 0c cc 5a 25 3d a4 70 42 |..........Z%=.pB|
0003c850 5f 0d cb ed 05 cd 0d cb f2 28 c9 22 41 6c 65 72 |_........(."Aler|
0003c860 74 22 2c 22 49 6e 70 75 74 22 3a 50 6f 6c 6c 24 |t","Input":Poll$|
0003c870 3d a4 67 49 64 28 21 68 25 2c 21 69 25 29 0d cb |=.gId(!h%,!i%)..|
0003c880 f7 0d 7f 3a 5a 25 3d a4 70 42 5f 0d cb fc 05 cb |...:Z%=.pB_.....|
0003c890 0d cc 01 0c cc 5a 25 3d a4 70 42 5f 0d cc 06 05 |.....Z%=.pB_....|
0003c8a0 cd 0d cc 0b 26 cc e7 21 68 25 3d 2d 32 80 21 69 |....&..!h%=-2.!i|
0003c8b0 25 3d 21 67 25 8c 7a 24 3d 22 5f 22 3a 5a 25 3d |%=!g%.z$="_":Z%=|
0003c8c0 a4 6d 61 69 6e 57 5f 0d cc 10 05 cd 0d cc 15 0c |.mainW_.........|
0003c8d0 cc e7 21 62 25 80 32 8c 0d cc 1a 0a 5a 25 3d a4 |..!b%.2.....Z%=.|
0003c8e0 6f 4d 0d cc 1f 0e cc e7 21 62 25 80 33 33 36 8c |oM......!b%.336.|
0003c8f0 0d cc 24 82 21 64 30 25 3d 21 64 30 25 80 ac 32 |..$.!d0%=!d0%..2|
0003c900 35 35 3a e7 21 69 25 3c 30 8c 24 63 6e 25 3d 22 |55:.!i%<0.$cn%="|
0003c910 22 3a 24 64 6e 25 3d 22 22 3a f2 70 42 64 20 8b |":$dn%="":.pBd .|
0003c920 5a 25 3d a4 66 49 43 3a 5a 25 3d 21 69 30 25 3e |Z%=.fIC:Z%=!i0%>|
0003c930 3e 3e 31 36 80 36 33 3a e7 5a 25 3e 37 80 5a 25 |>>16.63:.Z%>7.Z%|
0003c940 3c 31 31 84 5a 25 3d 37 80 28 28 21 62 25 80 38 |<11.Z%=7.((!b%.8|
0003c950 30 29 3d 36 34 29 8c 24 64 6e 25 3d 24 63 6e 25 |0)=64).$dn%=$cn%|
0003c960 3a 21 64 30 25 3d 21 64 30 25 84 5a 25 3a f2 70 |:!d0%=!d0%.Z%:.p|
0003c970 42 64 0d cc 29 05 cd 0d cc 2e 05 cd 0d cc 33 07 |Bd..).........3.|
0003c980 cd 3a e1 0d cc 38 13 2d 2d 2d 28 42 41 43 4b 47 |.:...8.---(BACKG|
0003c990 52 4f 55 4e 44 29 0d cc 3d 10 dd f2 42 3a ea 41 |ROUND)..=...B:.A|
0003c9a0 25 3a e7 55 25 8c 0d cc 42 4f 53 25 21 33 32 30 |%:.U%...BOS%!320|
0003c9b0 3d a3 3a 41 25 3d 53 25 21 34 38 3a c8 99 36 2c |=.:A%=S%!48:..6,|
0003c9c0 31 37 36 3a c8 95 41 25 3c 3e 2d 31 3a 5a 25 3d |176:..A%<>-1:Z%=|
0003c9d0 a0 28 22 46 4e 62 22 2b 24 28 41 25 21 34 29 29 |.("FNb"+$(A%!4))|
0003c9e0 3a e7 53 25 21 33 32 30 8c 41 25 3d 2d 31 8b 41 |:.S%!320.A%=-1.A|
0003c9f0 25 3d 21 41 25 0d cc 47 20 ce 3a c8 99 36 2c 31 |%=!A%..G .:..6,1|
0003ca00 37 36 2c 2c 32 35 35 b8 2c 41 25 3a 53 25 21 34 |76,,255.,A%:S%!4|
0003ca10 36 38 3d 41 25 0d cc 4c 13 cd 3a e7 55 25 3d 30 |68=A%..L..:.U%=0|
0003ca20 8c f2 73 50 4f 28 31 29 0d cc 51 2f e7 53 25 21 |..sPO(1)..Q/.S%!|
0003ca30 31 32 8c c8 99 36 36 b8 41 25 3a c8 95 41 25 2d |12...66.A%:..A%-|
0003ca40 53 25 21 31 32 3e 30 3a 53 25 21 31 32 2b 3d 53 |S%!12>0:S%!12+=S|
0003ca50 25 21 31 35 36 3a ce 0d cc 56 05 e1 0d cc 5b 1a |%!156:...V....[.|
0003ca60 dd a4 62 3a e7 55 25 80 31 8c c8 99 26 38 30 44 |..b:.U%.1...&80D|
0003ca70 30 43 2c 2c 53 25 0d cc 60 06 3d b9 0d cc 65 62 |0C,,S%..`.=...eb|
0003ca80 dd a4 61 42 67 28 41 24 2c 42 25 2c 43 25 29 3a |..aBg(A$,B%,C%):|
0003ca90 ea 44 25 2c 45 25 2c 46 25 2c 56 25 3a 53 25 21 |.D%,E%,F%,V%:S%!|
0003caa0 33 32 30 3d b9 3a 55 25 3d 55 25 84 28 31 3c 3c |320=.:U%=U%.(1<<|
0003cab0 42 25 83 33 32 29 3a 44 25 3d 53 25 21 34 38 3a |B%.32):D%=S%!48:|
0003cac0 c8 95 44 25 3c 3e 2d 31 80 ac 46 25 3a e7 24 28 |..D%<>-1..F%:.$(|
0003cad0 44 25 21 34 29 3d 41 24 8c 46 25 3d 44 25 0d cc |D%!4)=A$.F%=D%..|
0003cae0 6a 5a 44 25 3d 21 44 25 3a ce 3a e7 46 25 3e 30 |jZD%=!D%:.:.F%>0|
0003caf0 8c 44 25 3d 46 25 21 34 3a 56 25 3d b9 20 8b 44 |.D%=F%!4:V%=. .D|
0003cb00 25 3d a4 67 48 28 31 36 29 3a 24 44 25 3d 41 24 |%=.gH(16):$D%=A$|
0003cb10 3a 44 25 21 38 3d 30 3a 44 25 21 31 32 3d 26 46 |:D%!8=0:D%!12=&F|
0003cb20 46 46 46 46 46 46 3a 56 25 3d a4 61 4c 4c 28 53 |FFFFFF:V%=.aLL(S|
0003cb30 25 2b 34 38 2c 44 25 29 0d cc 6f 08 e7 56 25 8c |%+48,D%)..o..V%.|
0003cb40 0d cc 74 23 44 25 21 38 3d 44 25 21 38 84 28 31 |..t#D%!8=D%!8.(1|
0003cb50 3c 3c 42 25 83 33 32 29 3a e7 43 25 3c 32 8c 43 |<<B%.32):.C%<2.C|
0003cb60 25 3d 32 0d cc 79 0a e7 43 25 3d 32 8c 0d cc 7e |%=2..y..C%=2...~|
0003cb70 15 44 25 21 31 32 3d 43 25 3a f2 73 50 4f 28 43 |.D%!12=C%:.sPO(C|
0003cb80 25 29 0d cc 83 3f cc 45 25 3d 53 25 21 34 38 3a |%)...?.E%=S%!48:|
0003cb90 46 25 3d 26 46 46 46 46 46 46 46 3a c8 95 45 25 |F%=&FFFFFFF:..E%|
0003cba0 3c 3e 2d 31 3a e7 21 28 45 25 21 34 2b 31 32 29 |<>-1:.!(E%!4+12)|
0003cbb0 3c 46 25 8c 46 25 3d 21 28 45 25 21 34 2b 31 32 |<F%.F%=!(E%!4+12|
0003cbc0 29 0d cc 88 1f 45 25 3d 21 45 25 3a ce 3a e7 43 |)....E%=!E%:.:.C|
0003cbd0 25 3c 44 25 21 31 32 8c 44 25 21 31 32 3d 43 25 |%<D%!12.D%!12=C%|
0003cbe0 0d cc 8d 13 e7 43 25 3c 46 25 8c f2 73 50 4f 28 |.....C%<F%..sPO(|
0003cbf0 43 25 29 0d cc 92 05 cd 0d cc 97 09 cd 3a 3d 56 |C%)..........:=V|
0003cc00 25 0d cc 9c 5f dd f2 63 42 67 28 41 24 2c 42 24 |%..._..cBg(A$,B$|
0003cc10 2c 43 25 2c 44 25 29 3a ea 45 25 2c 46 25 3a 45 |,C%,D%):.E%,F%:E|
0003cc20 25 3d 21 77 25 2b 26 46 30 30 3a e3 46 25 3d 21 |%=!w%+&F00:.F%=!|
0003cc30 77 25 b8 45 25 88 32 35 36 3a e7 46 25 21 31 32 |w%.E%.256:.F%!12|
0003cc40 3e b9 20 8c e7 24 46 25 3d 42 24 80 46 25 21 31 |>. ..$F%=B$.F%!1|
0003cc50 32 3c 3e 43 25 8c 46 25 3d 45 25 3a 45 25 3d b9 |2<>C%.F%=E%:E%=.|
0003cc60 0d cc a1 1a ed 3a e7 45 25 3e 30 8c 5a 25 3d a4 |.....:.E%>0.Z%=.|
0003cc70 64 42 67 28 41 24 2c 44 25 29 0d cc a6 05 e1 0d |dBg(A$,D%)......|
0003cc80 cc ab 53 dd a4 64 42 67 28 41 24 2c 42 25 29 3a |..S..dBg(A$,B%):|
0003cc90 ea 44 25 2c 45 25 2c 46 25 2c 56 25 3a 56 25 3d |.D%,E%,F%,V%:V%=|
0003cca0 b9 3a 53 25 21 33 32 30 3d b9 3a 44 25 3d 53 25 |.:S%!320=.:D%=S%|
0003ccb0 21 34 38 3a c8 95 44 25 3c 3e 2d 31 80 ac 46 25 |!48:..D%<>-1..F%|
0003ccc0 3a e7 24 28 44 25 21 34 29 3d 41 24 8c 46 25 3d |:.$(D%!4)=A$.F%=|
0003ccd0 44 25 0d cc b0 13 44 25 3d 21 44 25 3a ce 3a e7 |D%....D%=!D%:.:.|
0003cce0 46 25 3e 30 8c 0d cc b5 55 44 25 3d 46 25 21 34 |F%>0....UD%=F%!4|
0003ccf0 3a 55 25 3d 55 25 80 ac 28 31 3c 3c 42 25 83 33 |:U%=U%..(1<<B%.3|
0003cd00 32 29 3a 44 25 21 38 3d 44 25 21 38 80 ac 28 31 |2):D%!8=D%!8..(1|
0003cd10 3c 3c 42 25 83 33 32 29 3a e7 44 25 21 38 3d 30 |<<B%.32):.D%!8=0|
0003cd20 8c 56 25 3d a4 64 4c 4c 28 53 25 2b 34 38 2c 44 |.V%=.dLL(S%+48,D|
0003cd30 25 29 3a f2 66 48 28 44 25 29 0d cc ba 0a e7 55 |%):.fH(D%).....U|
0003cd40 25 3d 30 8c 0d cc bf 0b f2 73 50 4f 28 30 29 0d |%=0......sPO(0).|
0003cd50 cc c4 3f cc 45 25 3d 53 25 21 34 38 3a 46 25 3d |..?.E%=S%!48:F%=|
0003cd60 26 46 46 46 46 46 46 46 3a c8 95 45 25 3c 3e 2d |&FFFFFFF:..E%<>-|
0003cd70 31 3a e7 21 28 45 25 21 34 2b 31 32 29 3c 46 25 |1:.!(E%!4+12)<F%|
0003cd80 8c 46 25 3d 21 28 45 25 21 34 2b 31 32 29 0d cc |.F%=!(E%!4+12)..|
0003cd90 c9 1b 45 25 3d 21 45 25 3a ce 3a e7 46 25 3e 32 |..E%=!E%:.:.F%>2|
0003cda0 8c f2 73 50 4f 28 46 25 29 0d cc ce 05 cd 0d cc |..sPO(F%).......|
0003cdb0 d3 09 cd 3a 3d 56 25 0d cc d8 0e 2d 2d 2d 28 43 |...:=V%....---(C|
0003cdc0 41 52 45 54 29 0d cc dd 14 dd f2 67 43 28 41 25 |ARET)......gC(A%|
0003cdd0 29 3a e7 41 25 3d 30 8c e1 0d cc e2 0f c8 8e 24 |):.A%=0........$|
0003cde0 28 41 25 2b 32 30 29 ca 0d cc e7 3b c9 22 41 6c |(A%+20)....;."Al|
0003cdf0 65 72 74 22 2c 22 44 69 73 70 6c 61 79 22 3a f2 |ert","Display":.|
0003ce00 67 43 70 3a c8 99 26 34 30 30 44 32 2c 41 25 21 |gCp:..&400D2,A%!|
0003ce10 31 32 2c 2d 31 2c 2c 2c 26 31 30 30 30 30 32 34 |12,-1,,,&1000024|
0003ce20 2c 2d 31 0d cc ec 1f c9 22 49 6e 70 75 74 22 3a |,-1....."Input":|
0003ce30 f2 67 43 70 3a f2 73 43 49 28 41 25 21 31 32 2c |.gCp:.sCI(A%!12,|
0003ce40 34 29 0d cc f1 8a c9 22 44 69 61 6c 6f 67 22 2c |4)....."Dialog",|
0003ce50 22 53 63 72 6f 6c 6c 22 2c 22 56 69 65 77 22 3a |"Scroll","View":|
0003ce60 f2 67 43 70 3a c8 99 26 34 30 30 44 36 2c 41 25 |.gCp:..&400D6,A%|
0003ce70 21 31 32 2c 53 25 21 31 31 36 2c 26 45 30 30 30 |!12,S%!116,&E000|
0003ce80 2c 26 45 30 30 30 3a e7 21 28 53 25 21 31 31 36 |,&E000:.!(S%!116|
0003ce90 29 3c 3e 2d 31 8c f2 73 43 49 28 41 25 21 31 32 |)<>-1..sCI(A%!12|
0003cea0 2c 21 28 53 25 21 31 31 36 29 29 20 8b c8 99 26 |,!(S%!116)) ...&|
0003ceb0 34 30 30 44 32 2c 41 25 21 31 32 2c 2d 31 2c 2c |400D2,A%!12,-1,,|
0003cec0 2c 26 31 30 30 30 30 32 34 2c 2d 31 0d cc f6 07 |,&1000024,-1....|
0003ced0 cb 3a e1 0d cc fb 1b dd f2 66 43 28 41 25 29 3a |.:.......fC(A%):|
0003cee0 c8 99 26 34 30 30 44 33 2c 2c 41 25 3a e1 0d cd |..&400D3,,A%:...|
0003cef0 00 31 dd f2 73 43 49 28 41 25 2c 42 25 29 3a f2 |.1..sCI(A%,B%):.|
0003cf00 70 4b 31 5f 28 31 33 29 3a e7 a4 66 69 78 5f 3a |pK1_(13):..fix_:|
0003cf10 c8 99 26 38 30 44 31 30 2c 2c 41 25 2c 42 25 0d |..&80D10,,A%,B%.|
0003cf20 cd 05 05 e1 0d cd 0a 43 dd f2 67 43 70 3a ea 42 |.......C..gCp:.B|
0003cf30 25 3a c8 99 26 34 30 30 44 33 2c 2c 4a 25 3a e7 |%:..&400D3,,J%:.|
0003cf40 43 25 28 30 2c 36 29 3d 30 8c 42 25 3d 30 3a 43 |C%(0,6)=0.B%=0:C|
0003cf50 25 28 30 2c 36 29 3d 31 8b 42 25 3d 31 3a 43 25 |%(0,6)=1.B%=1:C%|
0003cf60 28 30 2c 36 29 3d 30 0d cd 0f 5b 43 25 28 42 25 |(0,6)=0...[C%(B%|
0003cf70 2c 30 29 3d 21 4a 25 3a 43 25 28 42 25 2c 31 29 |,0)=!J%:C%(B%,1)|
0003cf80 3d 4a 25 21 34 3a 43 25 28 42 25 2c 32 29 3d 4a |=J%!4:C%(B%,2)=J|
0003cf90 25 21 38 3a 43 25 28 42 25 2c 33 29 3d 4a 25 21 |%!8:C%(B%,3)=J%!|
0003cfa0 31 32 3a 43 25 28 42 25 2c 34 29 3d 4a 25 21 31 |12:C%(B%,4)=J%!1|
0003cfb0 36 3a 43 25 28 42 25 2c 35 29 3d 4a 25 21 32 30 |6:C%(B%,5)=J%!20|
0003cfc0 3a e1 0d cd 14 19 dd f2 70 43 70 3a ea 42 25 3a |:.......pCp:.B%:|
0003cfd0 42 25 3d 2d 31 3a c8 8e b9 20 ca 0d cd 19 28 c9 |B%=-1:... ....(.|
0003cfe0 43 25 28 30 2c 36 29 3d 31 3a e7 43 25 28 30 2c |C%(0,6)=1:.C%(0,|
0003cff0 30 29 3e 30 8c 42 25 3d 30 3a 43 25 28 30 2c 36 |0)>0.B%=0:C%(0,6|
0003d000 29 3d 30 0d cd 1e 28 c9 43 25 28 30 2c 36 29 3d |)=0...(.C%(0,6)=|
0003d010 30 3a e7 43 25 28 31 2c 30 29 3e 30 8c 42 25 3d |0:.C%(1,0)>0.B%=|
0003d020 31 3a 43 25 28 30 2c 36 29 3d 31 0d cd 23 0e cb |1:C%(0,6)=1..#..|
0003d030 3a e7 42 25 3d 2d 31 8c e1 0d cd 28 50 c8 99 26 |:.B%=-1....(P..&|
0003d040 36 30 30 44 32 2c 43 25 28 42 25 2c 30 29 2c 43 |600D2,C%(B%,0),C|
0003d050 25 28 42 25 2c 31 29 2c 43 25 28 42 25 2c 32 29 |%(B%,1),C%(B%,2)|
0003d060 2c 43 25 28 42 25 2c 33 29 2c 43 25 28 42 25 2c |,C%(B%,3),C%(B%,|
0003d070 34 29 2c 43 25 28 42 25 2c 35 29 3a 43 25 28 42 |4),C%(B%,5):C%(B|
0003d080 25 2c 30 29 3d 2d 31 3a e1 0d cd 2d 0d 2d 2d 2d |%,0)=-1:...-.---|
0003d090 28 44 52 41 47 29 0d cd 32 5b dd f2 70 42 64 3a |(DRAG)..2[..pBd:|
0003d0a0 ea 41 25 2c 43 25 2c 44 25 2c 56 25 3a 56 25 3d |.A%,C%,D%,V%:V%=|
0003d0b0 a3 3a c8 99 26 34 30 30 43 46 2c 2c 4f 25 3a 58 |.:..&400CF,,O%:X|
0003d0c0 25 3d 21 4f 25 3a 59 25 3d 4f 25 21 34 3a 21 4f |%=!O%:Y%=O%!4:!O|
0003d0d0 25 3d 21 68 25 3a 4f 25 21 34 3d 21 69 25 3a 4f |%=!h%:O%!4=!i%:O|
0003d0e0 25 21 32 34 38 3d 57 25 3a e7 a4 70 42 64 5f 20 |%!248=W%:..pBd_ |
0003d0f0 8c 0d cd 37 1b e7 21 69 25 3e 2d 31 80 28 21 64 |...7..!i%>-1.(!d|
0003d100 30 25 80 26 46 46 30 30 29 3d 30 8c 0d cd 3c 30 |0%.&FF00)=0...<0|
0003d110 51 25 21 32 35 36 3d 21 4f 25 3a c8 99 26 34 30 |Q%!256=!O%:..&40|
0003d120 30 43 43 2c 2c 51 25 2b 32 35 36 3a e7 51 25 21 |0CC,,Q%+256:.Q%!|
0003d130 32 38 38 80 28 31 3c 3c 31 37 29 8c 0d cd 41 68 |288.(1<<17)...Ah|
0003d140 4f 25 21 34 30 3d 51 25 21 32 36 30 2d 51 25 21 |O%!40=Q%!260-Q%!|
0003d150 32 37 36 3a 4f 25 21 34 34 3d 51 25 21 32 37 32 |276:O%!44=Q%!272|
0003d160 2d 51 25 21 32 38 30 3a 41 25 3d 51 25 2b 33 34 |-Q%!280:A%=Q%+34|
0003d170 38 2b 28 21 69 25 3c 3c 35 29 3a 43 25 3d 21 41 |8+(!i%<<5):C%=!A|
0003d180 25 3a 44 25 3d 41 25 21 34 3a e7 a4 62 56 28 57 |%:D%=A%!4:..bV(W|
0003d190 25 2c 43 25 2c 44 25 2c 41 25 21 38 2c 41 25 21 |%,C%,D%,A%!8,A%!|
0003d1a0 31 32 29 8c 0d cd 46 86 56 25 3d b9 3a 51 25 21 |12)...F.V%=.:Q%!|
0003d1b0 38 3d 21 41 25 2b 4f 25 21 34 30 3a 51 25 21 31 |8=!A%+O%!40:Q%!1|
0003d1c0 32 3d 41 25 21 34 2b 4f 25 21 34 34 3a 51 25 21 |2=A%!4+O%!44:Q%!|
0003d1d0 31 36 3d 41 25 21 38 2b 4f 25 21 34 30 3a 51 25 |16=A%!8+O%!40:Q%|
0003d1e0 21 32 30 3d 41 25 21 31 32 2b 4f 25 21 34 34 3a |!20=A%!12+O%!44:|
0003d1f0 51 25 21 32 34 3d 51 25 21 32 36 30 3a 51 25 21 |Q%!24=Q%!260:Q%!|
0003d200 32 38 3d 51 25 21 32 36 34 3a 51 25 21 33 32 3d |28=Q%!264:Q%!32=|
0003d210 51 25 21 32 36 38 3a 51 25 21 33 36 3d 51 25 21 |Q%!268:Q%!36=Q%!|
0003d220 32 37 32 3a c8 8e 21 62 25 ca 0d cd 4b 47 c9 36 |272:..!b%...KG.6|
0003d230 34 3a 4f 25 21 31 32 3d 58 25 3a 4f 25 21 31 36 |4:O%!12=X%:O%!16|
0003d240 3d 59 25 3a f2 63 42 28 41 25 2c 4f 25 2b 36 34 |=Y%:.cB(A%,O%+64|
0003d250 2c 31 36 29 3a f2 63 42 28 41 25 2c 4f 25 2b 31 |,16):.cB(A%,O%+1|
0003d260 31 32 2c 31 36 29 3a c8 8e 21 64 30 25 80 36 33 |12,16):..!d0%.63|
0003d270 ca 0d cd 50 6a c9 37 2c 38 3a 51 25 21 34 3d 35 |...Pj.7,8:Q%!4=5|
0003d280 3a 44 25 3d 53 25 21 34 32 38 3a 43 25 3d 28 28 |:D%=S%!428:C%=((|
0003d290 51 25 21 31 36 80 44 25 29 2d 28 51 25 21 38 80 |Q%!16.D%)-(Q%!8.|
0003d2a0 44 25 29 29 3e 3e 3e 53 25 21 31 39 36 3a 44 25 |D%))>>>S%!196:D%|
0003d2b0 3d 53 25 21 34 33 32 3a 44 25 3d 28 28 51 25 21 |=S%!432:D%=((Q%!|
0003d2c0 32 30 80 44 25 29 2d 28 51 25 21 31 32 80 44 25 |20.D%)-(Q%!12.D%|
0003d2d0 29 29 3e 3e 3e 53 25 21 32 30 30 0d cd 55 3c c9 |))>>>S%!200..U<.|
0003d2e0 39 3a 51 25 21 34 3d 35 3a 51 25 21 32 34 3d 30 |9:Q%!4=5:Q%!24=0|
0003d2f0 3a 51 25 21 32 38 3d 30 3a 51 25 21 33 32 3d 53 |:Q%!28=0:Q%!32=S|
0003d300 25 21 32 30 34 3a 51 25 21 33 36 3d 53 25 21 32 |%!204:Q%!36=S%!2|
0003d310 30 38 3a 56 25 3d b9 0d cd 5a 09 7f 56 25 3d a3 |08:V%=...Z..V%=.|
0003d320 0d cd 5f 05 cb 0d cd 64 24 c9 31 36 3a 21 64 30 |.._....d$.16:!d0|
0003d330 25 3d 21 64 30 25 84 28 31 3c 3c 33 31 29 3a c8 |%=!d0%.(1<<31):.|
0003d340 8e 21 64 30 25 80 36 33 ca 0d cd 69 77 c9 38 3a |.!d0%.63...iw.8:|
0003d350 51 25 21 34 3d 36 3a e7 58 25 3e 28 51 25 21 38 |Q%!4=6:.X%>(Q%!8|
0003d360 2b 51 25 21 31 36 29 81 32 8c 51 25 21 32 34 3d |+Q%!16).2.Q%!24=|
0003d370 28 51 25 21 38 3c 3c 31 29 2d 51 25 21 31 36 2b |(Q%!8<<1)-Q%!16+|
0003d380 31 36 8b 51 25 21 32 34 2b 3d 51 25 21 31 36 2d |16.Q%!24+=Q%!16-|
0003d390 51 25 21 38 3a 51 25 21 33 32 3d 51 25 21 31 36 |Q%!8:Q%!32=Q%!16|
0003d3a0 2d 31 36 3a c8 94 51 25 21 38 2c 51 25 21 31 36 |-16:..Q%!8,Q%!16|
0003d3b0 3a 21 64 30 25 3d 21 64 30 25 84 31 3c 3c 31 36 |:!d0%=!d0%.1<<16|
0003d3c0 0d cd 6e 71 e7 59 25 3e 28 51 25 21 31 32 2b 51 |..nq.Y%>(Q%!12+Q|
0003d3d0 25 21 32 30 29 81 32 8c 51 25 21 32 38 3d 51 25 |%!20).2.Q%!28=Q%|
0003d3e0 21 31 32 2b 31 36 3a 51 25 21 33 36 2d 3d 51 25 |!12+16:Q%!36-=Q%|
0003d3f0 21 32 30 2d 51 25 21 31 32 3a c8 94 51 25 21 31 |!20-Q%!12:..Q%!1|
0003d400 32 2c 51 25 21 32 30 3a 21 64 30 25 3d 21 64 30 |2,Q%!20:!d0%=!d0|
0003d410 25 84 32 3c 3c 31 36 8b 51 25 21 33 36 3d 28 51 |%.2<<16.Q%!36=(Q|
0003d420 25 21 32 30 3c 3c 31 29 2d 51 25 21 31 32 2d 31 |%!20<<1)-Q%!12-1|
0003d430 36 0d cd 73 53 44 25 3d 53 25 21 34 32 38 3a 51 |6..sSD%=S%!428:Q|
0003d440 25 21 32 34 3d 51 25 21 32 34 80 44 25 3a 51 25 |%!24=Q%!24.D%:Q%|
0003d450 21 33 32 3d 51 25 21 33 32 80 44 25 3a 44 25 3d |!32=Q%!32.D%:D%=|
0003d460 53 25 21 34 33 32 3a 51 25 21 32 38 3d 51 25 21 |S%!432:Q%!28=Q%!|
0003d470 32 38 80 44 25 3a 51 25 21 33 36 3d 51 25 21 33 |28.D%:Q%!36=Q%!3|
0003d480 36 80 44 25 0d cd 78 27 e7 28 41 25 21 31 36 80 |6.D%..x'.(A%!16.|
0003d490 26 31 38 33 29 3d 32 35 36 8c 21 64 30 25 3d 21 |&183)=256.!d0%=!|
0003d4a0 64 30 25 84 28 31 3c 3c 32 39 29 0d cd 7d 09 7f |d0%.(1<<29)..}..|
0003d4b0 56 25 3d a3 0d cd 82 05 cb 0d cd 87 09 7f 56 25 |V%=...........V%|
0003d4c0 3d a3 0d cd 8c 05 cb 0d cd 91 18 cc f2 73 63 72 |=............scr|
0003d4d0 6f 6c 6c 42 79 28 57 25 2c 43 25 2c 44 25 29 0d |ollBy(W%,C%,D%).|
0003d4e0 cd 96 05 cd 0d cd 9b 19 cc 51 25 21 32 38 34 3d |.........Q%!284=|
0003d4f0 2d 31 3a f2 6f 28 51 25 2b 32 35 36 29 0d cd a0 |-1:.o(Q%+256)...|
0003d500 05 cd 0d cd a5 09 cc 56 25 3d b9 0d cd aa 49 cd |.......V%=....I.|
0003d510 3a e7 56 25 8c 53 25 21 33 32 38 3d 48 65 6c 70 |:.V%.S%!328=Help|
0003d520 25 3a 48 65 6c 70 25 3d a3 3a c8 99 26 34 30 30 |%:Help%=.:..&400|
0003d530 44 30 2c 2c 51 25 3a e7 21 64 30 25 80 28 31 3c |D0,,Q%:.!d0%.(1<|
0003d540 3c 33 30 29 8c 5a 25 3d a4 61 42 67 28 22 22 2c |<30).Z%=.aBg("",|
0003d550 30 2c 32 29 0d cd af 05 cd 0d cd b4 05 e1 0d cd |0,2)............|
0003d560 b9 0d dd a4 70 42 64 5f 3a 3d b9 0d cd be 43 dd |....pBd_:=....C.|
0003d570 f2 64 42 3a ea 41 25 2c 42 25 2c 43 25 3a f2 63 |.dB:.A%,B%,C%:.c|
0003d580 42 28 51 25 2b 33 34 38 2b 28 4f 25 21 34 3c 3c |B(Q%+348+(O%!4<<|
0003d590 35 29 2c 51 25 2b 31 33 36 2c 33 32 29 3a e7 28 |5),Q%+136,32):.(|
0003d5a0 21 64 30 25 80 26 46 46 30 30 29 3d 30 8c 0d cd |!d0%.&FF00)=0...|
0003d5b0 c3 1e 41 25 3d 51 25 2b 32 35 36 3a e7 28 21 64 |..A%=Q%+256:.(!d|
0003d5c0 30 25 80 31 3c 3c 33 31 29 3d 30 8c 0d cd c8 0e |0%.1<<31)=0.....|
0003d5d0 c8 8e 21 64 30 25 80 36 33 ca 0d cd cd 17 c9 37 |..!d0%.63......7|
0003d5e0 2c 38 3a e7 21 64 30 25 80 28 31 3c 3c 33 30 29 |,8:.!d0%.(1<<30)|
0003d5f0 8c 0d cd d2 86 42 25 3d 58 25 2d 4f 25 21 31 32 |.....B%=X%-O%!12|
0003d600 3a 43 25 3d 53 25 21 34 32 38 3a 21 41 25 3d 28 |:C%=S%!428:!A%=(|
0003d610 4f 25 21 36 34 2b 42 25 29 80 43 25 3a 41 25 21 |O%!64+B%).C%:A%!|
0003d620 38 3d 28 4f 25 21 37 32 2b 42 25 29 80 43 25 3a |8=(O%!72+B%).C%:|
0003d630 42 25 3d 59 25 2d 4f 25 21 31 36 3a 43 25 3d 53 |B%=Y%-O%!16:C%=S|
0003d640 25 21 34 33 32 3a 41 25 21 34 3d 28 4f 25 21 36 |%!432:A%!4=(O%!6|
0003d650 38 2b 42 25 29 80 43 25 3a 41 25 21 31 32 3d 28 |8+B%).C%:A%!12=(|
0003d660 4f 25 21 37 36 2b 42 25 29 80 43 25 3a f2 66 48 |O%!76+B%).C%:.fH|
0003d670 28 4f 25 21 32 38 29 0d cd d7 6c cc 43 25 3d 53 |(O%!28)...l.C%=S|
0003d680 25 21 34 32 38 3a 21 41 25 3d 28 21 51 25 2d 4f |%!428:!A%=(!Q%-O|
0003d690 25 21 34 30 29 80 43 25 3a 41 25 21 38 3d 28 51 |%!40).C%:A%!8=(Q|
0003d6a0 25 21 38 2d 4f 25 21 34 30 29 80 43 25 3a 43 25 |%!8-O%!40).C%:C%|
0003d6b0 3d 53 25 21 34 33 32 3a 41 25 21 34 3d 28 51 25 |=S%!432:A%!4=(Q%|
0003d6c0 21 34 2d 4f 25 21 34 34 29 80 43 25 3a 41 25 21 |!4-O%!44).C%:A%!|
0003d6d0 31 32 3d 28 51 25 21 31 32 2d 4f 25 21 34 34 29 |12=(Q%!12-O%!44)|
0003d6e0 80 43 25 0d cd dc 28 cd 3a 42 25 3d 21 4f 25 3a |.C%...(.:B%=!O%:|
0003d6f0 43 25 3d 4f 25 21 34 3a e7 21 64 30 25 80 28 31 |C%=O%!4:.!d0%.(1|
0003d700 3c 3c 32 39 29 8c f2 64 42 5f 67 0d cd e1 55 f2 |<<29)..dB_g...U.|
0003d710 63 42 28 51 25 2b 31 33 36 2c 51 25 2b 31 37 32 |cB(Q%+136,Q%+172|
0003d720 2c 31 36 29 3a f2 63 42 28 41 25 2c 51 25 2b 31 |,16):.cB(A%,Q%+1|
0003d730 33 36 2c 31 36 29 3a 51 25 21 31 32 38 3d 42 25 |36,16):Q%!128=B%|
0003d740 3a 51 25 21 31 33 32 3d 43 25 3a f2 72 63 49 28 |:Q%!132=C%:.rcI(|
0003d750 51 25 2b 31 32 38 2c 51 25 2b 31 37 32 2c 32 29 |Q%+128,Q%+172,2)|
0003d760 0d cd e6 06 c9 39 0d cd eb 05 cb 0d cd f0 0f cc |.....9..........|
0003d770 c8 8e 21 64 30 25 80 36 33 ca 0d cd f5 85 c9 38 |..!d0%.63......8|
0003d780 3a 43 25 3d 53 25 21 34 32 38 3a 21 41 25 3d 28 |:C%=S%!428:!A%=(|
0003d790 21 51 25 2d 4f 25 21 34 30 29 80 43 25 3a 41 25 |!Q%-O%!40).C%:A%|
0003d7a0 21 38 3d 28 51 25 21 38 2d 4f 25 21 34 30 29 80 |!8=(Q%!8-O%!40).|
0003d7b0 43 25 3a 43 25 3d 53 25 21 34 33 32 3a 41 25 21 |C%:C%=S%!432:A%!|
0003d7c0 34 3d 28 51 25 21 34 2d 4f 25 21 34 34 29 80 43 |4=(Q%!4-O%!44).C|
0003d7d0 25 3a 41 25 21 31 32 3d 28 51 25 21 31 32 2d 4f |%:A%!12=(Q%!12-O|
0003d7e0 25 21 34 34 29 80 43 25 3a e7 21 64 30 25 80 31 |%!44).C%:.!d0%.1|
0003d7f0 3c 3c 31 36 8c c8 94 21 41 25 2c 41 25 21 38 0d |<<16...!A%,A%!8.|
0003d800 cd fa 1c e7 21 64 30 25 80 32 3c 3c 31 36 8c c8 |....!d0%.2<<16..|
0003d810 94 41 25 21 34 2c 41 25 21 31 32 0d cd ff 26 42 |.A%!4,A%!12...&B|
0003d820 25 3d 21 4f 25 3a 43 25 3d 4f 25 21 34 3a e7 21 |%=!O%:C%=O%!4:.!|
0003d830 64 30 25 80 28 31 3c 3c 32 39 29 8c f2 64 42 5f |d0%.(1<<29)..dB_|
0003d840 67 0d ce 04 55 f2 63 42 28 51 25 2b 31 33 36 2c |g...U.cB(Q%+136,|
0003d850 51 25 2b 31 37 32 2c 31 36 29 3a f2 63 42 28 41 |Q%+172,16):.cB(A|
0003d860 25 2c 51 25 2b 31 33 36 2c 31 36 29 3a 51 25 21 |%,Q%+136,16):Q%!|
0003d870 31 32 38 3d 42 25 3a 51 25 21 31 33 32 3d 43 25 |128=B%:Q%!132=C%|
0003d880 3a f2 72 63 49 28 51 25 2b 31 32 38 2c 51 25 2b |:.rcI(Q%+128,Q%+|
0003d890 31 37 32 2c 34 29 0d ce 09 05 cb 0d ce 0e 05 cd |172,4)..........|
0003d8a0 0d ce 13 39 cd 3a 21 64 30 25 3d 30 3a 21 78 25 |...9.:!d0%=0:!x%|
0003d8b0 3d 30 3a 21 79 25 3d 30 3a 48 65 6c 70 25 3d 53 |=0:!y%=0:Help%=S|
0003d8c0 25 21 33 32 38 3a e7 55 25 80 31 8c 5a 25 3d a4 |%!328:.U%.1.Z%=.|
0003d8d0 64 42 67 28 22 22 2c 30 29 0d ce 18 05 e1 0d ce |dBg("",0).......|
0003d8e0 1d 43 dd a4 62 56 28 41 25 2c f8 20 42 25 2c f8 |.C..bV(A%,. B%,.|
0003d8f0 20 43 25 2c 44 25 2c 45 25 29 3a c8 99 26 38 30 | C%,D%,E%):..&80|
0003d900 44 30 44 2c 2c 41 25 2c 42 25 2c 43 25 2c 44 25 |D0D,,A%,B%,C%,D%|
0003d910 2c 45 25 b8 41 25 2c 2c 42 25 2c 43 25 3a 3d 41 |,E%.A%,,B%,C%:=A|
0003d920 25 0d ce 22 16 2d 2d 2d 28 45 56 45 4e 54 20 48 |%..".---(EVENT H|
0003d930 41 4e 44 4c 45 52 29 0d ce 27 0a dd a4 65 3a 3d |ANDLER)..'...e:=|
0003d940 b9 0d ce 2c 0c dd a4 71 32 5f 3a 3d a3 0d ce 31 |...,...q2_:=...1|
0003d950 5f dd a4 62 45 28 41 25 29 3a ea 42 24 2c 43 25 |_..bE(A%):.B$,C%|
0003d960 2c 44 25 2c 45 25 2c 56 25 3a ea 85 3a 43 25 3d |,D%,E%,V%:..:C%=|
0003d970 53 25 21 38 34 3a 44 25 3d 53 25 21 35 36 30 3c |S%!84:D%=S%!560<|
0003d980 3c 33 3a 52 25 3d 41 25 3a e3 45 25 3d 43 25 b8 |<3:R%=A%:.E%=C%.|
0003d990 43 25 2b 44 25 88 38 3a 42 24 3d 24 45 25 3a ee |C%+D%.8:B$=$E%:.|
0003d9a0 85 ea 3a f7 20 85 3a ed 3a 3d 56 25 0d ce 36 29 |..:. .:.:=V%..6)|
0003d9b0 e7 42 24 3c 3e 22 22 8c 56 25 3d a0 28 22 46 4e |.B$<>"".V%=.("FN|
0003d9c0 65 22 2b 42 24 29 3a e7 56 25 3d 30 8c 45 25 3d |e"+B$):.V%=0.E%=|
0003d9d0 43 25 2b 44 25 0d ce 3b 09 ed 3a 3d 56 25 0d ce |C%+D%..;..:=V%..|
0003d9e0 40 0e 2d 2d 2d 28 46 49 4c 45 53 29 0d ce 45 57 |@.---(FILES)..EW|
0003d9f0 dd a4 67 4c 6e 28 41 24 29 3a ea 42 25 3a e7 a7 |..gLn(A$):.B%:..|
0003da00 41 24 2c 22 2e 22 29 3e 30 8c 42 25 3d a9 41 24 |A$,".")>0.B%=.A$|
0003da10 3a c8 95 28 c1 41 24 2c 42 25 2c 31 29 3c 3e 22 |:..(.A$,B%,1)<>"|
0003da20 2e 22 29 80 28 42 25 3e 30 29 3a 42 25 2d 3d 31 |.").(B%>0):B%-=1|
0003da30 3a ce 3a 3d c2 41 24 2c a9 41 24 2d 42 25 29 8b |:.:=.A$,.A$-B%).|
0003da40 3d 41 24 0d ce 4a 3b dd a4 67 46 6c 28 41 24 29 |=A$..J;..gFl(A$)|
0003da50 3a ea 42 25 2c 43 25 2c 56 25 3a c8 99 26 32 30 |:.B%,C%,V%:..&20|
0003da60 30 30 38 2c 31 37 2c 41 24 b8 43 25 2c 2c 2c 2c |008,17,A$.C%,,,,|
0003da70 42 25 3b 56 25 3a e7 56 25 80 31 8c 3d a3 0d ce |B%;V%:.V%.1.=...|
0003da80 4f 09 c8 8e 43 25 ca 0d ce 54 0c c9 31 3a 43 25 |O...C%...T..1:C%|
0003da90 3d 42 25 0d ce 59 0c c9 32 3a 43 25 3d 2d 32 0d |=B%..Y..2:C%=-2.|
0003daa0 ce 5e 0b 7f 3a 43 25 3d 2d 31 0d ce 63 09 cb 3a |.^..:C%=-1..c..:|
0003dab0 3d 43 25 0d ce 68 4a dd a4 6c 64 46 28 41 24 2c |=C%..hJ..ldF(A$,|
0003dac0 42 25 29 3a ea 43 25 2c 56 25 3a c8 99 26 32 30 |B%):.C%,V%:..&20|
0003dad0 30 30 38 2c 31 36 2c 41 24 2c 42 25 b8 43 25 3b |008,16,A$,B%.C%;|
0003dae0 56 25 3a e7 56 25 80 31 8c 5a 25 3d a4 73 79 73 |V%:.V%.1.Z%=.sys|
0003daf0 45 72 72 42 6f 78 28 43 25 29 3a 3d a3 0d ce 6d |ErrBox(C%):=...m|
0003db00 07 3d 42 25 0d ce 72 3a dd a4 67 46 74 28 41 24 |.=B%..r:..gFt(A$|
0003db10 29 3a ea 42 25 2c 43 25 2c 56 25 3a c8 99 26 32 |):.B%,C%,V%:..&2|
0003db20 30 30 30 38 2c 31 37 2c 41 24 b8 43 25 2c 2c 42 |0008,17,A$.C%,,B|
0003db30 25 3b 56 25 3a e7 56 25 80 31 8c 3d 2d 32 0d ce |%;V%:.V%.1.=-2..|
0003db40 77 0e e7 43 25 3c 3e 31 8c 3d 2d 32 0d ce 7c 27 |w..C%<>1.=-2..|'|
0003db50 e7 28 42 25 3e 3e 3e 32 30 29 3d 26 46 46 46 20 |.(B%>>>20)=&FFF |
0003db60 8c 3d 28 42 25 3e 3e 3e 38 29 80 26 46 46 46 20 |.=(B%>>>8).&FFF |
0003db70 8b 3d b9 0d ce 81 1b dd a4 76 46 74 3a e7 53 25 |.=.......vFt:.S%|
0003db80 21 31 36 30 3d 2d 31 8c 3d a4 72 4d 5f 67 0d ce |!160=-1.=.rM_g..|
0003db90 86 19 e7 28 53 25 21 31 37 36 80 28 31 3c 3c 36 |...(S%!176.(1<<6|
0003dba0 29 29 3d 30 8c 3d a3 0d ce 8b 23 ea 41 25 2c 42 |))=0.=....#.A%,B|
0003dbb0 25 2c 43 25 2c 44 25 2c 56 25 3a 41 25 3d 53 25 |%,C%,D%,V%:A%=S%|
0003dbc0 21 38 38 3a e7 41 25 3e 30 8c 0d ce 90 16 f5 43 |!88:.A%>0......C|
0003dbd0 25 3d 41 25 21 38 2a 32 38 3a e7 43 25 3e 30 8c |%=A%!8*28:.C%>0.|
0003dbe0 0d ce 95 38 e3 44 25 3d 41 25 2b 31 36 b8 41 25 |...8.D%=A%+16.A%|
0003dbf0 2b 43 25 88 32 38 3a e7 21 44 25 3d 21 66 30 25 |+C%.28:.!D%=!f0%|
0003dc00 8c 42 25 3d 44 25 3a 53 25 21 39 32 3d 41 25 3a |.B%=D%:S%!92=A%:|
0003dc10 44 25 3d 41 25 2b 43 25 0d ce 9a 05 ed 0d ce 9f |D%=A%+C%........|
0003dc20 6f cd 3a 41 25 3d 21 41 25 3a fd 42 25 84 28 41 |o.:A%=!A%:.B%.(A|
0003dc30 25 3d 30 29 3a e7 42 25 8c 21 76 25 3d 42 25 21 |%=0):.B%.!v%=B%!|
0003dc40 34 3a 53 25 21 32 36 34 3d 42 25 21 38 3a 66 24 |4:S%!264=B%!8:f$|
0003dc50 3d 24 28 53 25 21 38 34 2b 28 21 28 53 25 21 39 |=$(S%!84+(!(S%!9|
0003dc60 32 2b 31 32 29 3e 3e 3e 32 34 29 29 3a 53 25 21 |2+12)>>>24)):S%!|
0003dc70 31 38 30 3d 42 25 21 31 32 3a 24 65 6e 25 3d 24 |180=B%!12:$en%=$|
0003dc80 28 42 25 2b 31 36 29 3a 56 25 3d b9 0d ce a4 09 |(B%+16):V%=.....|
0003dc90 cd 3a 3d 56 25 0d ce a9 0e 2d 2d 2d 28 49 43 4f |.:=V%....---(ICO|
0003dca0 4e 53 29 0d ce ae 27 dd a4 66 69 28 41 25 2c 42 |NS)...'..fi(A%,B|
0003dcb0 24 29 3a c8 99 26 38 30 44 30 46 2c 30 2c 41 25 |$):..&80D0F,0,A%|
0003dcc0 2c 42 24 b8 41 25 3a 3d 41 25 0d ce b3 21 dd a4 |,B$.A%:=A%...!..|
0003dcd0 66 49 43 3a c8 99 26 38 30 44 30 46 2c 31 2c 53 |fIC:..&80D0F,1,S|
0003dce0 25 2c 57 25 b8 5a 25 3a 3d 5a 25 0d ce b8 21 dd |%,W%.Z%:=Z%...!.|
0003dcf0 a4 66 49 4c 3a c8 99 26 38 30 44 30 46 2c 32 2c |.fIL:..&80D0F,2,|
0003dd00 53 25 2c 57 25 b8 5a 25 3a 3d 5a 25 0d ce bd 21 |S%,W%.Z%:=Z%...!|
0003dd10 dd a4 66 49 4d 3a c8 99 26 38 30 44 30 46 2c 33 |..fIM:..&80D0F,3|
0003dd20 2c 53 25 2c 57 25 b8 5a 25 3a 3d 5a 25 0d ce c2 |,S%,W%.Z%:=Z%...|
0003dd30 28 dd a4 67 49 64 28 41 25 2c 42 25 29 3a c8 99 |(..gId(A%,B%):..|
0003dd40 26 38 30 44 30 46 2c 34 2c 41 25 2c 42 25 b8 5a |&80D0F,4,A%,B%.Z|
0003dd50 24 3a 3d 5a 24 0d ce c7 28 dd a4 67 49 76 28 41 |$:=Z$...(..gIv(A|
0003dd60 25 2c 42 25 29 3a c8 99 26 38 30 44 30 46 2c 35 |%,B%):..&80D0F,5|
0003dd70 2c 41 25 2c 42 25 b8 5a 24 3a 3d 5a 24 0d ce cc |,A%,B%.Z$:=Z$...|
0003dd80 29 dd f2 70 49 64 28 41 25 2c 42 24 2c 43 24 29 |)..pId(A%,B$,C$)|
0003dd90 3a c8 99 26 38 30 44 30 46 2c 36 2c 41 25 2c 42 |:..&80D0F,6,A%,B|
0003dda0 24 2c 43 24 3a e1 0d ce d1 2a dd a4 70 49 49 28 |$,C$:....*..pII(|
0003ddb0 41 25 2c 42 25 2c 43 24 29 3a c8 99 26 38 30 44 |A%,B%,C$):..&80D|
0003ddc0 30 46 2c 37 2c 41 25 2c 42 25 2c 43 24 3a 3d b9 |0F,7,A%,B%,C$:=.|
0003ddd0 0d ce d6 7a dd f2 70 49 42 28 41 24 29 3a e7 53 |...z..pIB(A$):.S|
0003dde0 68 6f 77 4e 61 6d 65 25 8c 24 28 53 25 21 33 34 |howName%.$(S%!34|
0003ddf0 34 29 3d c4 31 31 2c 22 20 22 29 3a 21 4a 25 3d |4)=.11," "):!J%=|
0003de00 53 25 21 33 34 30 3a 4a 25 21 34 3d 21 67 25 3a |S%!340:J%!4=!g%:|
0003de10 4a 25 21 38 3d 30 3a 4a 25 21 31 32 3d 30 3a c8 |J%!8=0:J%!12=0:.|
0003de20 99 26 34 30 30 43 44 2c 2c 4a 25 3a 24 28 53 25 |.&400CD,,J%:$(S%|
0003de30 21 33 34 34 29 3d c0 41 24 2c 31 31 29 3a c8 99 |!344)=.A$,11):..|
0003de40 26 34 30 30 43 44 2c 2c 4a 25 0d ce db 05 e1 0d |&400CD,,J%......|
0003de50 ce e0 22 dd f2 72 49 28 41 25 2c 42 24 29 3a c8 |.."..rI(A%,B$):.|
0003de60 99 26 38 30 44 30 46 2c 38 2c 41 25 2c 42 24 3a |.&80D0F,8,A%,B$:|
0003de70 e1 0d ce e5 23 dd f2 72 49 73 28 41 25 2c 42 25 |....#..rIs(A%,B%|
0003de80 29 3a c8 99 26 38 30 44 30 46 2c 39 2c 41 25 2c |):..&80D0F,9,A%,|
0003de90 42 25 3a e1 0d ce ea 23 dd f2 73 49 28 41 25 2c |B%:....#..sI(A%,|
0003dea0 42 24 29 3a c8 99 26 38 30 44 30 46 2c 31 31 2c |B$):..&80D0F,11,|
0003deb0 41 25 2c 42 24 3a e1 0d ce ef 24 dd f2 75 73 49 |A%,B$:....$..usI|
0003dec0 28 41 25 2c 42 24 29 3a c8 99 26 38 30 44 30 46 |(A%,B$):..&80D0F|
0003ded0 2c 31 33 2c 41 25 2c 42 24 3a e1 0d ce f4 26 dd |,13,A%,B$:....&.|
0003dee0 f2 75 73 49 73 28 41 25 29 3a c8 99 26 38 30 44 |.usIs(A%):..&80D|
0003def0 30 46 2c 31 34 2c 41 25 2c 53 25 21 31 31 36 3a |0F,14,A%,S%!116:|
0003df00 e1 0d ce f9 23 dd f2 66 49 28 41 25 2c 42 24 29 |....#..fI(A%,B$)|
0003df10 3a c8 99 26 38 30 44 30 46 2c 31 35 2c 41 25 2c |:..&80D0F,15,A%,|
0003df20 42 24 3a e1 0d ce fe 24 dd f2 75 66 49 28 41 25 |B$:....$..ufI(A%|
0003df30 2c 42 24 29 3a c8 99 26 38 30 44 30 46 2c 31 36 |,B$):..&80D0F,16|
0003df40 2c 41 25 2c 42 24 3a e1 0d cf 03 26 dd f2 75 66 |,A%,B$:....&..uf|
0003df50 49 73 28 41 25 29 3a c8 99 26 38 30 44 30 46 2c |Is(A%):..&80D0F,|
0003df60 31 37 2c 41 25 2c 53 25 21 31 31 36 3a e1 0d cf |17,A%,S%!116:...|
0003df70 08 42 dd a4 67 49 73 28 41 25 2c 42 25 29 3a 21 |.B..gIs(A%,B%):!|
0003df80 4a 25 3d 41 25 3a 4a 25 21 34 3d 42 25 3a c8 99 |J%=A%:J%!4=B%:..|
0003df90 26 34 30 30 43 45 2c 2c 4a 25 3a e7 4a 25 21 32 |&400CE,,J%:.J%!2|
0003dfa0 34 80 28 31 3c 3c 32 31 29 8c 3d b9 20 8b 3d a3 |4.(1<<21).=. .=.|
0003dfb0 0d cf 0d 76 dd f2 70 50 44 28 41 25 2c 44 24 28 |...v..pPD(A%,D$(|
0003dfc0 29 2c 42 25 29 3a ea 43 25 2c 46 25 3a c8 99 26 |),B%):.C%,F%:..&|
0003dfd0 34 30 30 44 36 2c 41 25 21 31 32 2c 51 25 2c 26 |400D6,A%!12,Q%,&|
0003dfe0 46 30 30 30 2c 30 3a 43 25 3d 51 25 3a e7 21 43 |F000,0:C%=Q%:.!C|
0003dff0 25 3e 30 8c 46 25 3d 21 43 25 8b f5 3a 43 25 2b |%>0.F%=!C%..:C%+|
0003e000 3d 34 3a fd 21 43 25 3e 43 25 21 2d 34 2b 31 84 |=4:.!C%>C%!-4+1.|
0003e010 21 43 25 3d 2d 31 3a e7 21 43 25 3c 3e 2d 31 8c |!C%=-1:.!C%<>-1.|
0003e020 46 25 3d 21 43 25 0d cf 12 28 e7 46 25 3e 30 8c |F%=!C%...(.F%>0.|
0003e030 f2 70 49 44 28 41 25 2c 44 24 28 29 2c 42 25 2c |.pID(A%,D$(),B%,|
0003e040 26 46 31 30 31 2c 26 31 30 31 2c 46 25 29 0d cf |&F101,&101,F%)..|
0003e050 17 05 e1 0d cf 1c 37 dd f2 70 46 44 28 41 25 2c |......7..pFD(A%,|
0003e060 46 24 28 29 2c 42 25 29 3a f2 70 49 44 28 41 25 |F$(),B%):.pID(A%|
0003e070 2c 46 24 28 29 2c 42 25 2c 26 45 31 30 31 2c 26 |,F$(),B%,&E101,&|
0003e080 45 31 30 31 2c 2d 31 29 3a e1 0d cf 21 a0 dd f2 |E101,-1):...!...|
0003e090 70 49 44 28 41 25 2c 41 24 28 29 2c 42 25 2c 47 |pID(A%,A$(),B%,G|
0003e0a0 25 2c 48 25 2c 46 25 29 3a ea 41 24 2c 43 25 2c |%,H%,F%):.A$,C%,|
0003e0b0 44 25 2c 45 25 3a c8 99 26 34 30 30 44 36 2c 41 |D%,E%:..&400D6,A|
0003e0c0 25 21 31 32 2c 51 25 2c 47 25 2c 48 25 3a 43 25 |%!12,Q%,G%,H%:C%|
0003e0d0 3d 51 25 3a c8 95 21 43 25 3c 46 25 3a 43 25 2b |=Q%:..!C%<F%:C%+|
0003e0e0 3d 34 3a ce 3a 45 25 3d 2d 31 3a 21 4a 25 3d 41 |=4:.:E%=-1:!J%=A|
0003e0f0 25 21 31 32 3a 44 25 3d de 28 41 24 28 29 29 3a |%!12:D%=.(A$()):|
0003e100 e7 44 25 3d 31 8c 42 25 3d 2d 31 8b e7 44 25 3d |.D%=1.B%=-1..D%=|
0003e110 32 80 28 42 25 3c 30 84 42 25 3e de 28 41 24 28 |2.(B%<0.B%>.(A$(|
0003e120 29 2c 32 29 29 8c 42 25 3d 30 0d cf 26 0b e7 42 |),2)).B%=0..&..B|
0003e130 25 3e 2d 31 8c 0d cf 2b 7a 44 25 3d de 28 41 24 |%>-1...+zD%=.(A$|
0003e140 28 29 2c 32 29 3a c8 95 21 43 25 3c 3e 2d 31 80 |(),2):..!C%<>-1.|
0003e150 45 25 3c 44 25 3a 45 25 2b 3d 31 3a 4a 25 21 34 |E%<D%:E%+=1:J%!4|
0003e160 3d 21 43 25 3a c8 99 26 34 30 30 43 45 2c 2c 4a |=!C%:..&400CE,,J|
0003e170 25 3a 41 24 3d 41 24 28 42 25 2c 45 25 29 3a e7 |%:A$=A$(B%,E%):.|
0003e180 41 24 3c 3e 22 7c 22 8c 24 28 4a 25 21 32 38 29 |A$<>"|".$(J%!28)|
0003e190 3d 41 24 3a 4a 25 21 38 3d 30 3a 4a 25 21 31 32 |=A$:J%!8=0:J%!12|
0003e1a0 3d 30 3a c8 99 26 34 30 30 43 44 2c 2c 4a 25 0d |=0:..&400CD,,J%.|
0003e1b0 cf 30 0b 43 25 2b 3d 34 3a ce 0d cf 35 78 cc 44 |.0.C%+=4:...5x.D|
0003e1c0 25 3d de 28 41 24 28 29 2c 31 29 3a c8 95 21 43 |%=.(A$(),1):..!C|
0003e1d0 25 3c 3e 2d 31 80 45 25 3c 44 25 3a 45 25 2b 3d |%<>-1.E%<D%:E%+=|
0003e1e0 31 3a 4a 25 21 34 3d 21 43 25 3a c8 99 26 34 30 |1:J%!4=!C%:..&40|
0003e1f0 30 43 45 2c 2c 4a 25 3a 41 24 3d 41 24 28 45 25 |0CE,,J%:A$=A$(E%|
0003e200 29 3a e7 41 24 3c 3e 22 7c 22 8c 24 28 4a 25 21 |):.A$<>"|".$(J%!|
0003e210 32 38 29 3d 41 24 3a 4a 25 21 38 3d 30 3a 4a 25 |28)=A$:J%!8=0:J%|
0003e220 21 31 32 3d 30 3a c8 99 26 34 30 30 43 44 2c 2c |!12=0:..&400CD,,|
0003e230 4a 25 0d cf 3a 0b 43 25 2b 3d 34 3a ce 0d cf 3f |J%..:.C%+=4:...?|
0003e240 07 cd 3a e1 0d cf 44 83 dd f2 72 63 49 28 41 25 |..:...D...rcI(A%|
0003e250 2c 42 25 2c 46 25 29 3a ea 43 25 2c 44 25 3a 43 |,B%,F%):.C%,D%:C|
0003e260 25 3d 21 41 25 3a 44 25 3d 26 34 30 30 44 31 3a |%=!A%:D%=&400D1:|
0003e270 c8 99 26 34 30 30 43 34 2c 2c 41 25 3a 41 25 21 |..&400C4,,A%:A%!|
0003e280 34 3d 43 25 3a c8 99 26 34 30 30 43 32 2c 2c 41 |4=C%:..&400C2,,A|
0003e290 25 2b 34 3a e7 46 25 80 31 20 e7 41 25 21 38 3d |%+4:.F%.1 .A%!8=|
0003e2a0 21 42 25 80 41 25 21 31 32 3d 42 25 21 34 80 41 |!B%.A%!12=B%!4.A|
0003e2b0 25 21 31 36 3d 42 25 21 38 80 41 25 21 32 30 3d |%!16=B%!8.A%!20=|
0003e2c0 42 25 21 31 32 8c e1 0d cf 49 09 c8 8e b9 20 ca |B%!12....I.... .|
0003e2d0 0d cf 4e 13 c9 28 46 25 80 32 29 3d 32 3a c8 8e |..N..(F%.2)=2:..|
0003e2e0 b9 20 ca 0d cf 53 4b c9 21 42 25 3e 41 25 21 31 |. ...SK.!B%>A%!1|
0003e2f0 36 84 42 25 21 38 3c 41 25 21 38 84 42 25 21 34 |6.B%!8<A%!8.B%!4|
0003e300 3e 41 25 21 32 30 84 42 25 21 31 32 3c 41 25 21 |>A%!20.B%!12<A%!|
0003e310 31 32 3a c8 99 44 25 2c 43 25 2c 21 42 25 2c 42 |12:..D%,C%,!B%,B|
0003e320 25 21 34 2c 42 25 21 38 2c 42 25 21 31 32 0d cf |%!4,B%!8,B%!12..|
0003e330 58 18 c9 21 42 25 3d 41 25 21 38 80 42 25 21 34 |X..!B%=A%!8.B%!4|
0003e340 3d 41 25 21 31 32 0d cf 5d 56 c9 21 42 25 3d 41 |=A%!12..]V.!B%=A|
0003e350 25 21 38 3a e7 42 25 21 34 3e 41 25 21 31 32 8c |%!8:.B%!4>A%!12.|
0003e360 c8 99 44 25 2c 43 25 2c 41 25 21 38 2c 41 25 21 |..D%,C%,A%!8,A%!|
0003e370 32 30 2c 41 25 21 31 36 2c 42 25 21 31 32 8b c8 |20,A%!16,B%!12..|
0003e380 99 44 25 2c 43 25 2c 41 25 21 38 2c 42 25 21 34 |.D%,C%,A%!8,B%!4|
0003e390 2c 41 25 21 31 36 2c 41 25 21 31 32 0d cf 62 55 |,A%!16,A%!12..bU|
0003e3a0 c9 42 25 21 34 3d 41 25 21 31 32 3a e7 21 42 25 |.B%!4=A%!12:.!B%|
0003e3b0 3e 41 25 21 38 8c c8 99 44 25 2c 43 25 2c 41 25 |>A%!8...D%,C%,A%|
0003e3c0 21 31 36 2c 41 25 21 31 32 2c 42 25 21 38 2c 41 |!16,A%!12,B%!8,A|
0003e3d0 25 21 32 30 8b c8 99 44 25 2c 43 25 2c 21 42 25 |%!20...D%,C%,!B%|
0003e3e0 2c 41 25 21 31 32 2c 41 25 21 38 2c 41 25 21 32 |,A%!12,A%!8,A%!2|
0003e3f0 30 0d cf 67 12 7f 3a e7 41 25 21 31 32 3e 42 25 |0..g..:.A%!12>B%|
0003e400 21 34 8c 0d cf 6c 65 c8 99 44 25 2c 43 25 2c 21 |!4...le..D%,C%,!|
0003e410 42 25 2c 42 25 21 34 2c 42 25 21 38 2c 41 25 21 |B%,B%!4,B%!8,A%!|
0003e420 31 32 3a e7 41 25 21 38 3e 21 42 25 8c c8 99 44 |12:.A%!8>!B%...D|
0003e430 25 2c 43 25 2c 21 42 25 2c 41 25 21 31 32 2c 41 |%,C%,!B%,A%!12,A|
0003e440 25 21 38 2c 42 25 21 31 32 8b c8 99 44 25 2c 43 |%!8,B%!12...D%,C|
0003e450 25 2c 41 25 21 31 36 2c 41 25 21 31 32 2c 42 25 |%,A%!16,A%!12,B%|
0003e460 21 38 2c 41 25 21 32 30 0d cf 71 66 cc c8 99 44 |!8,A%!20..qf...D|
0003e470 25 2c 43 25 2c 21 42 25 2c 41 25 21 32 30 2c 42 |%,C%,!B%,A%!20,B|
0003e480 25 21 38 2c 42 25 21 31 32 3a e7 41 25 21 38 3e |%!8,B%!12:.A%!8>|
0003e490 21 42 25 8c c8 99 44 25 2c 43 25 2c 21 42 25 2c |!B%...D%,C%,!B%,|
0003e4a0 42 25 21 34 2c 41 25 21 38 2c 41 25 21 32 30 8b |B%!4,A%!8,A%!20.|
0003e4b0 c8 99 44 25 2c 43 25 2c 41 25 21 31 36 2c 41 25 |..D%,C%,A%!16,A%|
0003e4c0 21 31 32 2c 42 25 21 38 2c 41 25 21 32 30 0d cf |!12,B%!8,A%!20..|
0003e4d0 76 05 cd 0d cf 7b 24 cb 3a c8 99 44 25 2c 43 25 |v....{$.:..D%,C%|
0003e4e0 2c 41 25 21 38 2c 41 25 21 31 32 2c 41 25 21 31 |,A%!8,A%!12,A%!1|
0003e4f0 36 2c 41 25 21 32 30 0d cf 80 32 c9 28 46 25 80 |6,A%!20...2.(F%.|
0003e500 34 29 3d 34 3a c8 99 44 25 2c 43 25 2c 41 25 21 |4)=4:..D%,C%,A%!|
0003e510 38 2c 41 25 21 31 32 2c 41 25 21 31 36 2c 41 25 |8,A%!12,A%!16,A%|
0003e520 21 32 30 3a c8 8e b9 20 ca 0d cf 85 2f c9 41 25 |!20:... ..../.A%|
0003e530 21 31 36 2d 41 25 21 38 3e 42 25 21 38 2d 21 42 |!16-A%!8>B%!8-!B|
0003e540 25 80 41 25 21 32 30 2d 41 25 21 31 32 3e 42 25 |%.A%!20-A%!12>B%|
0003e550 21 31 32 2d 42 25 21 34 0d cf 8a 74 c9 41 25 21 |!12-B%!4...t.A%!|
0003e560 31 36 2d 41 25 21 38 3c 42 25 21 38 2d 21 42 25 |16-A%!8<B%!8-!B%|
0003e570 80 41 25 21 32 30 2d 41 25 21 31 32 3c 42 25 21 |.A%!20-A%!12<B%!|
0003e580 31 32 2d 42 25 21 34 3a e7 41 25 21 31 32 3d 42 |12-B%!4:.A%!12=B|
0003e590 25 21 34 8c c8 99 44 25 2c 43 25 2c 21 42 25 2c |%!4...D%,C%,!B%,|
0003e5a0 41 25 21 32 30 2c 42 25 21 38 2c 42 25 21 31 32 |A%!20,B%!8,B%!12|
0003e5b0 8b c8 99 44 25 2c 43 25 2c 21 42 25 2c 42 25 21 |...D%,C%,!B%,B%!|
0003e5c0 34 2c 42 25 21 38 2c 41 25 21 31 32 0d cf 8f 49 |4,B%!8,A%!12...I|
0003e5d0 e7 41 25 21 38 3d 21 42 25 8c c8 99 44 25 2c 43 |.A%!8=!B%...D%,C|
0003e5e0 25 2c 41 25 21 31 36 2c 41 25 21 31 32 2c 42 25 |%,A%!16,A%!12,B%|
0003e5f0 21 38 2c 41 25 21 32 30 8b c8 99 44 25 2c 43 25 |!8,A%!20...D%,C%|
0003e600 2c 21 42 25 2c 41 25 21 31 32 2c 41 25 21 38 2c |,!B%,A%!12,A%!8,|
0003e610 41 25 21 32 30 0d cf 94 5c c9 41 25 21 31 36 2d |A%!20...\.A%!16-|
0003e620 41 25 21 38 3c 42 25 21 38 2d 21 42 25 3a e7 41 |A%!8<B%!8-!B%:.A|
0003e630 25 21 38 3d 21 42 25 8c c8 99 44 25 2c 43 25 2c |%!8=!B%...D%,C%,|
0003e640 41 25 21 31 36 2c 42 25 21 34 2c 42 25 21 38 2c |A%!16,B%!4,B%!8,|
0003e650 42 25 21 31 32 8b c8 99 44 25 2c 43 25 2c 21 42 |B%!12...D%,C%,!B|
0003e660 25 2c 42 25 21 34 2c 41 25 21 38 2c 42 25 21 31 |%,B%!4,A%!8,B%!1|
0003e670 32 0d cf 99 4a 7f 3a e7 41 25 21 31 32 3d 42 25 |2...J.:.A%!12=B%|
0003e680 21 34 8c c8 99 44 25 2c 43 25 2c 21 42 25 2c 41 |!4...D%,C%,!B%,A|
0003e690 25 21 32 30 2c 42 25 21 38 2c 42 25 21 31 32 8b |%!20,B%!8,B%!12.|
0003e6a0 c8 99 44 25 2c 43 25 2c 21 42 25 2c 42 25 21 34 |..D%,C%,!B%,B%!4|
0003e6b0 2c 42 25 21 38 2c 41 25 21 31 32 0d cf 9e 05 cb |,B%!8,A%!12.....|
0003e6c0 0d cf a3 40 7f 3a c8 99 44 25 2c 43 25 2c 21 42 |...@.:..D%,C%,!B|
0003e6d0 25 2c 42 25 21 34 2c 42 25 21 38 2c 42 25 21 31 |%,B%!4,B%!8,B%!1|
0003e6e0 32 3a c8 99 44 25 2c 43 25 2c 41 25 21 38 2c 41 |2:..D%,C%,A%!8,A|
0003e6f0 25 21 31 32 2c 41 25 21 31 36 2c 41 25 21 32 30 |%!12,A%!16,A%!20|
0003e700 0d cf a8 07 cb 3a e1 0d cf ad 0d 2d 2d 2d 28 4b |.....:.....---(K|
0003e710 45 59 53 29 0d cf b2 07 dd f2 6b 0d cf b7 0a e7 |EYS)......k.....|
0003e720 57 25 3e 30 8c 0d cf bc 10 4e 25 3d 30 3a c8 8e |W%>0.....N%=0:..|
0003e730 24 72 6e 25 ca 0d cf c1 32 c9 22 44 69 61 6c 6f |$rn%....2."Dialo|
0003e740 67 22 2c 22 53 63 72 6f 6c 6c 22 2c 22 44 61 74 |g","Scroll","Dat|
0003e750 61 50 61 64 22 3a e7 57 25 21 33 36 80 32 8c 4e |aPad":.W%!36.2.N|
0003e760 25 3d 57 25 21 34 38 0d cf c6 0b e7 a4 6b 70 20 |%=W%!48......kp |
0003e770 8c e1 0d cf cb 35 c9 22 4d 65 6e 75 22 3a e7 53 |.....5."Menu":.S|
0003e780 25 21 33 32 3e 30 80 28 21 28 53 25 21 33 32 2b |%!32>0.(!(S%!32+|
0003e790 33 36 29 80 32 29 3e 30 8c 4e 25 3d 21 28 53 25 |36).2)>0.N%=!(S%|
0003e7a0 21 33 32 2b 34 38 29 0d cf d0 0f e7 a4 6b 70 4d |!32+48)......kpM|
0003e7b0 65 6e 75 20 8c e1 0d cf d5 21 c9 22 41 6c 65 72 |enu .....!."Aler|
0003e7c0 74 22 2c 22 49 6e 70 75 74 22 3a e7 a4 6b 70 41 |t","Input":..kpA|
0003e7d0 6c 65 72 74 20 8c e1 0d cf da 0e cb 3a 53 25 21 |lert .......:S%!|
0003e7e0 33 32 3d 57 25 0d cf df 0b cd 3a c8 8e b9 20 ca |32=W%.....:... .|
0003e7f0 0d cf e4 20 c9 28 21 6b 25 3e 4b 25 29 80 28 4b |... .(!k%>K%).(K|
0003e800 25 3e 30 29 3a e7 4d 25 8c 24 63 6e 25 3d 22 22 |%>0):.M%.$cn%=""|
0003e810 0d cf e9 58 e7 21 6b 25 3e 28 4b 25 2b 26 38 30 |...X.!k%>(K%+&80|
0003e820 30 29 84 21 6b 25 3e 28 4b 25 2b 26 33 46 46 29 |0).!k%>(K%+&3FF)|
0003e830 80 21 6b 25 3c 28 4b 25 2b 26 36 30 30 29 8c 24 |.!k%<(K%+&600).$|
0003e840 63 6e 25 3d 24 28 21 6b 25 29 3a 21 69 30 25 3d |cn%=$(!k%):!i0%=|
0003e850 21 28 21 6b 25 2b 31 32 29 8b 24 63 6e 25 3d 22 |!(!k%+12).$cn%="|
0003e860 22 3a 21 69 30 25 3d 30 0d cf ee 13 c8 8e 21 69 |":!i0%=0......!i|
0003e870 30 25 3e 3e 3e 31 36 80 36 33 ca 0d cf f3 11 c9 |0%>>>16.63......|
0003e880 30 3a e7 24 63 6e 25 3c 3e 22 22 8c 0d cf f8 33 |0:.$cn%<>""....3|
0003e890 e7 a7 24 63 6e 25 2c 22 5f 22 29 8c 5a 25 3d a0 |..$cn%,"_").Z%=.|
0003e8a0 28 22 46 4e 22 2b 24 63 6e 25 29 8b 5a 25 3d a0 |("FN"+$cn%).Z%=.|
0003e8b0 28 22 46 4e 22 2b 24 63 6e 25 2b 22 5f 22 29 0d |("FN"+$cn%+"_").|
0003e8c0 cf fd 05 cd 0d d0 02 07 c9 34 3a 0d d0 07 0f c9 |.........4:.....|
0003e8d0 35 3a 5a 25 3d a4 6c 69 73 74 0d d0 0c 05 cb 0d |5:Z%=.list......|
0003e8e0 d0 11 1f c9 21 6b 25 3d 2d 31 3a e7 4d 25 3d 30 |....!k%=-1:.M%=0|
0003e8f0 8c c8 99 26 34 30 30 44 43 2c 21 6b 30 25 0d d0 |...&400DC,!k0%..|
0003e900 16 19 7f 3a e7 4d 25 3d 30 8c c8 99 26 34 30 30 |...:.M%=0...&400|
0003e910 44 43 2c 21 6b 30 25 0d d0 1b 07 cb 3a e1 0d d0 |DC,!k0%.....:...|
0003e920 20 27 dd f2 65 4b 3a ea 41 25 3a f5 41 25 3d a6 | '..eK:.A%:.A%=.|
0003e930 28 2d 31 31 33 29 3a fd 41 25 3d 30 3a 2a 46 58 |(-113):.A%=0:*FX|
0003e940 20 32 31 2c 30 0d d0 25 05 e1 0d d0 2a 28 dd a4 | 21,0..%....*(..|
0003e950 6b 70 3a ea 41 25 2c 42 25 2c 43 25 2c 56 25 3a |kp:.A%,B%,C%,V%:|
0003e960 56 25 3d b9 3a 41 25 3d 21 69 25 3a c8 8e 21 6b |V%=.:A%=!i%:..!k|
0003e970 25 ca 0d d0 2f 32 c9 26 31 38 45 2c 26 31 39 44 |%.../2.&18E,&19D|
0003e980 3a f2 70 4b 31 5f 28 21 6b 25 29 3a e7 a4 66 69 |:.pK1_(!k%):..fi|
0003e990 78 31 5f 20 8c c8 99 26 38 30 44 30 45 2c 2c 41 |x1_ ...&80D0E,,A|
0003e9a0 25 2c 53 25 0d d0 34 33 c9 26 31 38 46 2c 26 31 |%,S%..43.&18F,&1|
0003e9b0 39 43 3a f2 70 4b 31 5f 28 21 6b 25 29 3a e7 a4 |9C:.pK1_(!k%):..|
0003e9c0 66 69 78 31 5f 20 8c c8 99 26 38 30 44 30 45 2c |fix1_ ...&80D0E,|
0003e9d0 31 2c 41 25 2c 53 25 0d d0 39 31 c9 33 38 36 2c |1,A%,S%..91.386,|
0003e9e0 33 38 37 2c 33 38 38 2c 33 38 39 2c 33 39 30 2c |387,388,389,390,|
0003e9f0 33 39 31 2c 33 39 32 2c 33 39 33 2c 34 35 38 2c |391,392,393,458,|
0003ea00 34 35 39 3a 56 25 3d a3 0d d0 3e 2f c9 31 33 3a |459:V%=...>/.13:|
0003ea10 c8 99 26 34 30 30 44 36 2c 21 68 25 2c 51 25 2c |..&400D6,!h%,Q%,|
0003ea20 26 45 30 30 30 2c 26 45 30 30 30 3a e7 21 51 25 |&E000,&E000:.!Q%|
0003ea30 3d 2d 31 8c 3d 56 25 0d d0 43 41 42 25 3d 51 25 |=-1.=V%..CAB%=Q%|
0003ea40 3a c8 95 21 42 25 3c 3e 41 25 3a 42 25 2b 3d 34 |:..!B%<>A%:B%+=4|
0003ea50 3a ce 3a e7 42 25 21 34 3e 2d 31 8c 43 25 3d 42 |:.:.B%!4>-1.C%=B|
0003ea60 25 21 34 3a e7 43 25 3c 3e 41 25 8c f2 73 43 49 |%!4:.C%<>A%..sCI|
0003ea70 28 21 68 25 2c 43 25 29 0d d0 48 0b e7 a4 66 49 |(!h%,C%)..H...fI|
0003ea80 43 20 8c 0d d0 4d 0d e7 24 63 6e 25 3d 22 22 8c |C ...M..$cn%="".|
0003ea90 0d d0 52 19 52 25 3d 31 39 34 3a 5a 25 3d a0 28 |..R.R%=194:Z%=.(|
0003eaa0 22 46 4e 65 22 2b 7a 24 29 0d d0 57 33 cc e7 a7 |"FNe"+z$)..W3...|
0003eab0 24 63 6e 25 2c 22 5f 22 29 8c 5a 25 3d a0 28 22 |$cn%,"_").Z%=.("|
0003eac0 46 4e 22 2b 24 63 6e 25 29 8b 5a 25 3d a0 28 22 |FN"+$cn%).Z%=.("|
0003ead0 46 4e 22 2b 24 63 6e 25 2b 7a 24 29 0d d0 5c 05 |FN"+$cn%+z$)..\.|
0003eae0 cd 0d d0 61 05 cd 0d d0 66 0d 7f 3a 56 25 3d a4 |...a....f..:V%=.|
0003eaf0 70 4b 5f 0d d0 6b 09 cb 3a 3d 56 25 0d d0 70 1d |pK_..k..:=V%..p.|
0003eb00 dd a4 6b 70 41 6c 65 72 74 3a ea 56 25 3a 56 25 |..kpAlert:.V%:V%|
0003eb10 3d b9 3a c8 8e 21 6b 25 ca 0d d0 75 16 c9 31 33 |=.:..!k%...u..13|
0003eb20 2c 32 37 3a 50 6f 6c 6c 24 3d c3 21 6b 30 25 0d |,27:Poll$=.!k0%.|
0003eb30 d0 7a 0a 7f 3a 56 25 3d a3 0d d0 7f 09 cb 3a 3d |.z..:V%=......:=|
0003eb40 56 25 0d d0 84 29 dd a4 6b 70 46 6f 72 6d 3a ea |V%...)..kpForm:.|
0003eb50 41 25 2c 42 25 2c 43 25 3a 56 25 3d b9 3a 41 25 |A%,B%,C%:V%=.:A%|
0003eb60 3d 21 69 25 3a c8 8e 21 6b 25 ca 0d d0 89 1e c9 |=!i%:..!k%......|
0003eb70 26 31 38 45 2c 26 31 39 44 3a c8 99 26 38 30 44 |&18E,&19D:..&80D|
0003eb80 30 45 2c 2c 41 25 2c 53 25 0d d0 8e 1f c9 26 31 |0E,,A%,S%.....&1|
0003eb90 38 46 2c 26 31 39 43 3a c8 99 26 38 30 44 30 45 |8F,&19C:..&80D0E|
0003eba0 2c 31 2c 41 25 2c 53 25 0d d0 93 31 c9 33 38 36 |,1,A%,S%...1.386|
0003ebb0 2c 33 38 37 2c 33 38 38 2c 33 38 39 2c 33 39 30 |,387,388,389,390|
0003ebc0 2c 33 39 31 2c 33 39 32 2c 33 39 33 2c 34 35 38 |,391,392,393,458|
0003ebd0 2c 34 35 39 3a 56 25 3d a3 0d d0 98 6f c9 31 33 |,459:V%=....o.13|
0003ebe0 3a 21 68 30 25 3d 21 68 25 3a c8 99 26 34 30 30 |:!h0%=!h%:..&400|
0003ebf0 44 36 2c 21 68 25 2c 51 25 2c 26 45 30 30 30 2c |D6,!h%,Q%,&E000,|
0003ec00 26 45 30 30 30 3a 42 25 3d 51 25 3a c8 95 21 42 |&E000:B%=Q%:..!B|
0003ec10 25 3c 3e 41 25 3a 42 25 2b 3d 34 3a ce 3a e7 42 |%<>A%:B%+=4:.:.B|
0003ec20 25 21 34 3e 2d 31 8c 56 25 3d a3 3a 43 25 3d 42 |%!4>-1.V%=.:C%=B|
0003ec30 25 21 34 3a e7 43 25 3c 3e 41 25 8c f2 73 43 49 |%!4:.C%<>A%..sCI|
0003ec40 28 21 68 25 2c 43 25 29 0d d0 9d 08 e7 56 25 8c |(!h%,C%).....V%.|
0003ec50 0d d0 a2 0b e7 a4 66 49 43 20 8c 0d d0 a7 0d e7 |......fIC ......|
0003ec60 24 63 6e 25 3d 22 22 8c 0d d0 ac 19 52 25 3d 31 |$cn%="".....R%=1|
0003ec70 39 34 3a 5a 25 3d a0 28 22 46 4e 65 22 2b 7a 24 |94:Z%=.("FNe"+z$|
0003ec80 29 0d d0 b1 33 cc e7 a7 24 63 6e 25 2c 22 5f 22 |)...3...$cn%,"_"|
0003ec90 29 8c 56 25 3d a0 28 22 46 4e 22 2b 24 63 6e 25 |).V%=.("FN"+$cn%|
0003eca0 29 8b 56 25 3d a0 28 22 46 4e 22 2b 24 63 6e 25 |).V%=.("FN"+$cn%|
0003ecb0 2b 7a 24 29 0d d0 b6 05 cd 0d d0 bb 05 cd 0d d0 |+z$)............|
0003ecc0 c0 18 cd 3a e7 56 25 8c f2 6b 57 28 21 68 30 25 |...:.V%..kW(!h0%|
0003ecd0 29 8b 56 25 3d b9 0d d0 c5 0a 7f 3a 56 25 3d b9 |).V%=......:V%=.|
0003ece0 0d d0 ca 09 cb 3a 3d 56 25 0d d0 cf 2c dd a4 6b |.....:=V%...,..k|
0003ecf0 70 4d 65 6e 75 3a ea 41 25 2c 42 25 2c 43 25 2c |pMenu:.A%,B%,C%,|
0003ed00 56 25 3a 56 25 3d b9 3a 41 25 3d 21 69 25 3a c8 |V%:V%=.:A%=!i%:.|
0003ed10 8e 21 6b 25 ca 0d d0 d4 1e c9 26 31 38 45 2c 26 |.!k%......&18E,&|
0003ed20 31 39 44 3a c8 99 26 38 30 44 30 45 2c 2c 41 25 |19D:..&80D0E,,A%|
0003ed30 2c 53 25 0d d0 d9 1f c9 26 31 38 46 2c 26 31 39 |,S%.....&18F,&19|
0003ed40 43 3a c8 99 26 38 30 44 30 45 2c 31 2c 41 25 2c |C:..&80D0E,1,A%,|
0003ed50 53 25 0d d0 de 39 c9 33 38 36 2c 33 38 37 2c 33 |S%...9.386,387,3|
0003ed60 38 38 2c 33 38 39 2c 33 39 30 2c 33 39 31 2c 33 |88,389,390,391,3|
0003ed70 39 32 2c 33 39 33 2c 34 35 38 2c 34 35 39 3a 5a |92,393,458,459:Z|
0003ed80 25 3d a4 64 46 4b 28 21 6b 25 29 0d d0 e3 2f c9 |%=.dFK(!k%).../.|
0003ed90 31 33 3a c8 99 26 34 30 30 44 36 2c 21 68 25 2c |13:..&400D6,!h%,|
0003eda0 51 25 2c 26 45 30 30 30 2c 26 45 30 30 30 3a e7 |Q%,&E000,&E000:.|
0003edb0 21 51 25 3d 2d 31 8c 3d 56 25 0d d0 e8 41 42 25 |!Q%=-1.=V%...AB%|
0003edc0 3d 51 25 3a c8 95 21 42 25 3c 3e 41 25 3a 42 25 |=Q%:..!B%<>A%:B%|
0003edd0 2b 3d 34 3a ce 3a e7 42 25 21 34 3e 2d 31 8c 43 |+=4:.:.B%!4>-1.C|
0003ede0 25 3d 42 25 21 34 3a e7 43 25 3c 3e 41 25 8c f2 |%=B%!4:.C%<>A%..|
0003edf0 73 43 49 28 21 68 25 2c 43 25 29 0d d0 ed 0b e7 |sCI(!h%,C%).....|
0003ee00 a4 66 49 43 20 8c 0d d0 f2 0d e7 24 63 6e 25 3d |.fIC ......$cn%=|
0003ee10 22 22 8c 0d d0 f7 19 52 25 3d 31 39 34 3a 5a 25 |"".....R%=194:Z%|
0003ee20 3d a0 28 22 46 4e 65 22 2b 7a 24 29 0d d0 fc 33 |=.("FNe"+z$)...3|
0003ee30 cc e7 a7 24 63 6e 25 2c 22 5f 22 29 8c 5a 25 3d |...$cn%,"_").Z%=|
0003ee40 a0 28 22 46 4e 22 2b 24 63 6e 25 29 8b 5a 25 3d |.("FN"+$cn%).Z%=|
0003ee50 a0 28 22 46 4e 22 2b 24 63 6e 25 2b 7a 24 29 0d |.("FN"+$cn%+z$).|
0003ee60 d1 01 05 cd 0d d1 06 05 cd 0d d1 0b 0d 7f 3a 56 |..............:V|
0003ee70 25 3d a4 70 4b 5f 0d d1 10 09 cb 3a 3d 56 25 0d |%=.pK_.....:=V%.|
0003ee80 d1 15 12 dd a4 6b 70 56 69 65 77 3a 3d a4 70 4b |.....kpView:=.pK|
0003ee90 5f 0d d1 1a 3d dd a4 64 46 4b 28 41 25 29 3a ea |_...=..dFK(A%):.|
0003eea0 42 25 2c 43 25 2c 44 25 2c 45 25 2c 46 25 2c 56 |B%,C%,D%,E%,F%,V|
0003eeb0 25 3a 56 25 3d a3 3a 42 25 3d 41 25 2d 33 38 35 |%:V%=.:B%=A%-385|
0003eec0 3a e7 42 25 3e 37 32 8c 42 25 2d 3d 36 34 0d d1 |:.B%>72.B%-=64..|
0003eed0 1f 10 e7 42 25 3e 30 80 42 25 3c 31 31 8c 0d d1 |...B%>0.B%<11...|
0003eee0 24 68 21 51 25 3d 21 68 25 3a c8 99 26 34 30 30 |$h!Q%=!h%:..&400|
0003eef0 43 43 2c 2c 51 25 3a 43 25 3d 51 25 2b 31 30 38 |CC,,Q%:C%=Q%+108|
0003ef00 3a 44 25 3d 43 25 2b 28 51 25 21 38 38 3c 3c 35 |:D%=C%+(Q%!88<<5|
0003ef10 29 3a c8 95 43 25 3c 44 25 80 45 25 3c 42 25 3a |):..C%<D%.E%<B%:|
0003ef20 46 25 3d 28 21 43 25 3e 3e 3e 31 32 29 80 31 35 |F%=(!C%>>>12).15|
0003ef30 3a e7 28 46 25 3e 30 29 80 28 46 25 3c 31 32 29 |:.(F%>0).(F%<12)|
0003ef40 8c 45 25 2b 3d 31 0d d1 29 14 43 25 2b 3d 33 32 |.E%+=1..).C%+=32|
0003ef50 3a ce 3a e7 45 25 3d 42 25 8c 0d d1 2e 51 21 69 |:.:.E%=B%....Q!i|
0003ef60 25 3d 28 43 25 2d 31 30 38 2d 51 25 29 81 33 32 |%=(C%-108-Q%).32|
0003ef70 2d 31 3a 21 51 25 3d 21 68 25 3a 51 25 21 34 3d |-1:!Q%=!h%:Q%!4=|
0003ef80 21 69 25 3a 51 25 21 38 3d 31 3c 3c 32 31 3a 51 |!i%:Q%!8=1<<21:Q|
0003ef90 25 21 31 32 3d 30 3a c8 99 26 34 30 30 43 44 2c |%!12=0:..&400CD,|
0003efa0 2c 51 25 3a e7 a4 66 49 43 20 8c 0d d1 33 40 43 |,Q%:..fIC ...3@C|
0003efb0 25 3d 21 69 25 3a 44 25 3d 21 68 25 3a e7 a7 24 |%=!i%:D%=!h%:..$|
0003efc0 63 6e 25 2c 22 5f 22 29 8c 56 25 3d a0 28 22 46 |cn%,"_").V%=.("F|
0003efd0 4e 22 2b 24 63 6e 25 29 8b 56 25 3d a0 28 22 46 |N"+$cn%).V%=.("F|
0003efe0 4e 22 2b 24 63 6e 25 2b 7a 24 29 0d d1 38 32 21 |N"+$cn%+z$)..82!|
0003eff0 51 25 3d 44 25 3a 51 25 21 34 3d 43 25 3a 51 25 |Q%=D%:Q%!4=C%:Q%|
0003f000 21 38 3d 31 3c 3c 32 31 3a 51 25 21 31 32 3d 30 |!8=1<<21:Q%!12=0|
0003f010 3a c8 99 26 36 30 30 43 44 2c 2c 51 25 0d d1 3d |:..&600CD,,Q%..=|
0003f020 05 cd 0d d1 42 05 cd 0d d1 47 09 cd 3a 3d 56 25 |....B....G..:=V%|
0003f030 0d d1 4c 1d dd a4 6b 65 79 3a ea 56 25 3a c8 99 |..L...key:.V%:..|
0003f040 36 2c 31 32 32 b8 2c 56 25 3a 3d 56 25 0d d1 51 |6,122.,V%:=V%..Q|
0003f050 0b 2d 2d 2d 28 c7 93 29 0d d1 56 53 dd a4 6d 65 |.---(..)..VS..me|
0003f060 6e 75 4c 69 73 74 28 41 24 2c 42 24 2c 46 25 2c |nuList(A$,B$,F%,|
0003f070 47 25 29 3a ea 42 25 2c 43 25 2c 44 25 2c 45 25 |G%):.B%,C%,D%,E%|
0003f080 2c 48 25 3a 46 25 3d 21 46 25 3a 42 25 3d 21 46 |,H%:F%=!F%:B%=!F|
0003f090 25 3a ea 85 3a ee 85 ea 3a f7 20 85 3a f2 63 49 |%:..:...:. .:.cI|
0003f0a0 56 28 41 24 2b 22 5f 22 2c 30 29 0d d1 5b 11 43 |V(A$+"_",0)..[.C|
0003f0b0 25 3d a0 28 41 24 2b 22 5f 25 22 29 0d d1 60 0a |%=.(A$+"_%")..`.|
0003f0c0 e7 43 25 3e 30 8c 0d d1 65 23 e7 42 25 3c 3e 21 |.C%>0...e#.B%<>!|
0003f0d0 43 25 8c 43 25 3d a4 65 48 28 43 25 2c 34 30 2a |C%.C%=.eH(C%,40*|
0003f0e0 28 42 25 2d 21 43 25 29 29 0d d1 6a 15 cc 43 25 |(B%-!C%))..j..C%|
0003f0f0 3d a4 67 48 28 36 38 2b 34 30 2a 42 25 29 0d d1 |=.gH(68+40*B%)..|
0003f100 6f 85 cd 3a 44 25 3d 43 25 2b 33 36 2b 28 42 25 |o..:D%=C%+36+(B%|
0003f110 3c 3c 34 29 3a f2 63 49 56 28 41 24 2b 22 5f 22 |<<4):.cIV(A$+"_"|
0003f120 2c 43 25 29 3a 21 43 25 3d 42 25 3a 43 25 21 34 |,C%):!C%=B%:C%!4|
0003f130 3d 44 25 2d 32 30 3a 43 25 21 38 3d 44 25 3a 43 |=D%-20:C%!8=D%:C|
0003f140 25 21 31 32 3d 46 25 2b 31 32 3a 24 6e 6e 25 3d |%!12=F%+12:$nn%=|
0003f150 42 24 3a 45 25 3d a4 72 28 53 25 21 35 36 29 3a |B$:E%=.r(S%!56):|
0003f160 43 25 21 31 36 3d 45 25 3a 42 24 3d 42 24 2b 22 |C%!16=E%:B$=B$+"|
0003f170 5f 25 22 3a 42 25 3d a0 28 42 24 29 3a c8 8e 21 |_%":B%=.(B$):..!|
0003f180 42 25 ca 0d d1 74 1e c9 31 3a f2 63 42 28 42 25 |B%...t..1:.cB(B%|
0003f190 2c 43 25 21 34 2c 37 32 29 3a 43 25 21 32 30 3d |,C%!4,72):C%!20=|
0003f1a0 31 0d d1 79 2c c9 32 3a 43 25 21 34 3d 43 25 21 |1..y,.2:C%!4=C%!|
0003f1b0 34 2d 31 36 3a f2 63 42 28 42 25 2c 43 25 21 34 |4-16:.cB(B%,C%!4|
0003f1c0 2c 31 31 32 29 3a 43 25 21 32 30 3d 32 0d d1 7e |,112):C%!20=2..~|
0003f1d0 0d 7f 3a 43 25 21 32 30 3d 30 0d d1 83 71 cb 3a |..:C%!20=0...q.:|
0003f1e0 42 25 3d a0 28 41 24 2b 22 5f 25 22 29 3a 43 25 |B%=.(A$+"_%"):C%|
0003f1f0 3d 21 42 25 3a 44 25 3d 42 25 21 38 3a 45 25 3d |=!B%:D%=B%!8:E%=|
0003f200 42 25 21 31 32 3a e7 42 25 21 32 30 3d 32 8c 44 |B%!12:.B%!20=2.D|
0003f210 25 21 33 36 3d 44 25 21 33 36 84 32 35 36 3a 44 |%!36=D%!36.256:D|
0003f220 25 21 34 30 3d 21 45 25 3a 44 25 21 34 34 3d 2d |%!40=!E%:D%!44=-|
0003f230 31 3a 44 25 21 34 38 3d 45 25 3f 34 3a 48 25 3d |1:D%!48=E%?4:H%=|
0003f240 45 25 3f 34 3a 44 25 2b 3d 32 34 0d d1 88 81 45 |E%?4:D%+=24....E|
0003f250 25 2b 3d 35 3a 47 25 3d 31 3a 41 25 3d 44 25 21 |%+=5:G%=1:A%=D%!|
0003f260 33 32 3a 46 25 3d 44 25 21 33 36 84 32 35 36 3a |32:F%=D%!36.256:|
0003f270 44 25 2b 3d 32 38 3a c8 95 45 25 3f 34 3e 30 80 |D%+=28:..E%?4>0.|
0003f280 47 25 3c 43 25 3a 21 44 25 3d 30 3a 44 25 21 34 |G%<C%:!D%=0:D%!4|
0003f290 3d 41 25 3a 44 25 21 38 3d 46 25 3a 44 25 21 31 |=A%:D%!8=F%:D%!1|
0003f2a0 32 3d 21 45 25 3a 44 25 21 31 36 3d 2d 31 3a 44 |2=!E%:D%!16=-1:D|
0003f2b0 25 21 32 30 3d 45 25 3f 34 3a e7 44 25 21 32 30 |%!20=E%?4:.D%!20|
0003f2c0 3e 48 25 8c 48 25 3d 44 25 21 32 30 0d d1 8d 53 |>H%.H%=D%!20...S|
0003f2d0 44 25 2b 3d 32 34 3a 45 25 2b 3d 35 3a 47 25 2b |D%+=24:E%+=5:G%+|
0003f2e0 3d 31 3a ce 3a 44 25 21 2d 32 34 3d 31 32 38 3a |=1:.:D%!-24=128:|
0003f2f0 21 28 42 25 21 38 2b 31 36 29 3d 48 25 3c 3c 34 |!(B%!8+16)=H%<<4|
0003f300 3a 45 25 3d 42 25 21 38 2d 34 2d 31 36 2a 47 25 |:E%=B%!8-4-16*G%|
0003f310 3a 42 24 3d 22 22 3a c8 8e 42 25 21 32 30 ca 0d |:B$="":..B%!20..|
0003f320 d1 92 26 c9 31 3a 42 24 3d 24 28 42 25 21 34 2b |..&.1:B$=$(B%!4+|
0003f330 34 29 3a 48 25 3d 21 28 42 25 21 34 2b 31 36 29 |4):H%=!(B%!4+16)|
0003f340 3a 44 25 3d 34 0d d1 97 4b c9 32 3a 42 24 3d 24 |:D%=4...K.2:B$=$|
0003f350 28 42 25 21 34 2b 32 30 29 3a 48 25 3d 21 28 42 |(B%!4+20):H%=!(B|
0003f360 25 21 34 2b 33 32 29 3a 44 25 3d 32 30 3a 24 28 |%!4+32):D%=20:$(|
0003f370 45 25 2b 34 29 3d 24 28 42 25 21 34 2b 34 29 3a |E%+4)=$(B%!4+4):|
0003f380 45 25 21 31 36 3d 21 28 42 25 21 34 2b 31 36 29 |E%!16=!(B%!4+16)|
0003f390 0d d1 9c 47 cb 3a 42 25 21 34 3d 45 25 3a 21 45 |...G.:B%!4=E%:!E|
0003f3a0 25 3d 47 25 3a e3 46 25 3d 45 25 2b 44 25 b8 42 |%=G%:.F%=E%+D%.B|
0003f3b0 25 21 38 2d 31 36 88 31 36 3a 24 46 25 3d 42 24 |%!8-16.16:$F%=B$|
0003f3c0 3a 46 25 21 31 32 3d 48 25 3a ed 3a 3d a4 6f 4c |:F%!12=H%:.:=.oL|
0003f3d0 69 73 74 28 41 24 29 0d d1 a1 3f dd a4 6f 4c 69 |ist(A$)...?..oLi|
0003f3e0 73 74 28 41 24 29 3a ea 42 25 3a 42 25 3d a0 28 |st(A$):.B%:B%=.(|
0003f3f0 41 24 2b 22 5f 25 22 29 3a e7 42 25 3e 30 8c 21 |A$+"_%"):.B%>0.!|
0003f400 28 42 25 21 31 36 2b 32 30 29 3d 42 25 21 34 3a |(B%!16+20)=B%!4:|
0003f410 3d b9 20 8b 3d a3 0d d1 a6 3f dd a4 6c 69 73 74 |=. .=....?..list|
0003f420 3a ea 41 24 2c 42 24 2c 43 25 2c 44 25 2c 45 25 |:.A$,B$,C%,D%,E%|
0003f430 2c 46 25 2c 47 24 3a e7 a7 24 63 6e 25 2c 22 5f |,F%,G$:..$cn%,"_|
0003f440 22 29 8c 41 24 3d 24 63 6e 25 8b 41 24 3d 24 63 |").A$=$cn%.A$=$c|
0003f450 6e 25 2b 7a 24 0d d1 ab 4e 42 24 3d a4 67 49 64 |n%+z$...NB$=.gId|
0003f460 28 21 68 25 2c 21 69 25 29 3a 43 25 3d a0 28 41 |(!h%,!i%):C%=.(A|
0003f470 24 2b 22 25 22 29 3a 45 25 3d 2d 31 3a e3 44 25 |$+"%"):E%=-1:.D%|
0003f480 3d 30 b8 43 25 3a e7 a0 28 41 24 2b 22 24 28 44 |=0.C%:..(A$+"$(D|
0003f490 25 29 22 29 3d 42 24 8c 45 25 3d 44 25 3a 44 25 |%)")=B$.E%=D%:D%|
0003f4a0 3d 43 25 0d d1 b0 0d ed 3a e7 45 25 3e 2d 31 8c |=C%.....:.E%>-1.|
0003f4b0 0d d1 b5 16 e7 21 62 25 80 31 8c 46 25 3d 2d 31 |.....!b%.1.F%=-1|
0003f4c0 8b 46 25 3d 2b 31 0d d1 ba 23 f5 45 25 2b 3d 46 |.F%=+1...#.E%+=F|
0003f4d0 25 3a e7 45 25 3e 43 25 8c 45 25 3d 30 8b e7 45 |%:.E%>C%.E%=0..E|
0003f4e0 25 3c 30 8c 45 25 3d 43 25 0d d1 bf 65 47 24 3d |%<0.E%=C%...eG$=|
0003f4f0 a0 28 41 24 2b 22 24 28 45 25 29 22 29 3a fd 47 |.(A$+"$(E%)"):.G|
0003f500 24 3c 3e 22 22 3a 21 6c 25 3d 45 25 3a e7 a0 28 |$<>"":!l%=E%:..(|
0003f510 22 46 4e 22 2b 41 24 29 20 e7 21 6c 25 3e b9 20 |"FN"+A$) .!l%>. |
0003f520 8c 47 24 3d a0 28 41 24 2b 22 24 28 21 6c 25 29 |.G$=.(A$+"$(!l%)|
0003f530 22 29 3a e7 47 24 3c 3e 42 24 8c 5a 25 3d a4 70 |"):.G$<>B$.Z%=.p|
0003f540 49 49 28 21 68 25 2c 21 69 25 2c 47 24 29 0d d1 |II(!h%,!i%,G$)..|
0003f550 c4 0b cc 21 6c 25 3d 2d 31 0d d1 c9 08 cd 3a 3d |...!l%=-1.....:=|
0003f560 b9 0d d1 ce 3e dd a4 61 4c 4c 28 41 25 2c 42 25 |....>..aLL(A%,B%|
0003f570 29 3a ea 43 25 3a 43 25 3d a4 67 48 28 38 29 3a |):.C%:C%=.gH(8):|
0003f580 e7 43 25 3e 30 8c 21 43 25 3d 21 41 25 3a 43 25 |.C%>0.!C%=!A%:C%|
0003f590 21 34 3d 42 25 3a 21 41 25 3d 43 25 3a 3d b9 0d |!4=B%:!A%=C%:=..|
0003f5a0 d1 d3 06 3d a3 0d d1 d8 5d dd a4 64 4c 4c 28 41 |...=....]..dLL(A|
0003f5b0 25 2c 42 25 29 3a ea 43 25 2c 56 25 3a 43 25 3d |%,B%):.C%,V%:C%=|
0003f5c0 21 41 25 3a c8 95 43 25 3c 3e 2d 31 80 ac 56 25 |!A%:..C%<>-1..V%|
0003f5d0 3a e7 43 25 21 34 3d 42 25 8c 21 41 25 3d 21 43 |:.C%!4=B%.!A%=!C|
0003f5e0 25 3a f2 66 48 28 43 25 29 3a 43 25 3d 2d 31 3a |%:.fH(C%):C%=-1:|
0003f5f0 56 25 3d b9 20 8b 41 25 3d 43 25 3a 43 25 3d 21 |V%=. .A%=C%:C%=!|
0003f600 43 25 0d d1 dd 09 ce 3a 3d 56 25 0d d1 e2 4c dd |C%.....:=V%...L.|
0003f610 a4 72 4c 4c 28 41 25 2c 42 25 2c 44 25 29 3a ea |.rLL(A%,B%,D%):.|
0003f620 43 25 2c 56 25 3a 43 25 3d 21 41 25 3a c8 95 43 |C%,V%:C%=!A%:..C|
0003f630 25 3c 3e 2d 31 80 ac 56 25 3a e7 43 25 21 34 3d |%<>-1..V%:.C%!4=|
0003f640 42 25 8c 43 25 21 34 3d 44 25 3a 56 25 3d b9 20 |B%.C%!4=D%:V%=. |
0003f650 8b 43 25 3d 21 43 25 0d d1 e7 18 ce 3a e7 56 25 |.C%=!C%.....:.V%|
0003f660 3d 30 8c 3d a4 61 4c 4c 28 41 25 2c 44 25 29 0d |=0.=.aLL(A%,D%).|
0003f670 d1 ec 07 3d 56 25 0d d1 f1 2b dd a4 73 4c 4c 28 |...=V%...+..sLL(|
0003f680 f8 20 41 25 29 3a e7 41 25 3e 30 8c 41 25 3d 21 |. A%):.A%>0.A%=!|
0003f690 41 25 3a e7 41 25 3e 30 8c 3d 41 25 21 34 8b 3d |A%:.A%>0.=A%!4.=|
0003f6a0 a3 0d d1 f6 06 3d a3 0d d1 fb 0f 2d 2d 2d 28 4d |.....=.....---(M|
0003f6b0 45 4d 4f 52 59 29 0d d2 00 1a dd a4 61 6c 69 67 |EMORY)......alig|
0003f6c0 6e 28 41 25 29 3a 3d 28 41 25 2b 33 29 80 ac 33 |n(A%):=(A%+3)..3|
0003f6d0 0d d2 05 32 dd f2 63 42 28 41 25 2c 42 25 2c 43 |...2..cB(A%,B%,C|
0003f6e0 25 29 3a 43 25 3d 28 43 25 2b 33 29 3e 3e 32 3a |%):C%=(C%+3)>>2:|
0003f6f0 d6 21 28 53 25 21 31 36 34 29 3a f2 6d 62 32 5f |.!(S%!164):.mb2_|
0003f700 3a e1 0d d2 0a 2f dd f2 6d 42 6c 28 41 25 2c 42 |:..../..mBl(A%,B|
0003f710 25 2c 43 25 29 3a 43 25 3d 28 43 25 2b 33 29 3e |%,C%):C%=(C%+3)>|
0003f720 3e 32 3a d6 21 28 53 25 21 31 36 34 2b 34 29 3a |>2:.!(S%!164+4):|
0003f730 e1 0d d2 0f 36 dd f2 64 42 6c 28 41 25 2c 42 25 |....6..dBl(A%,B%|
0003f740 2c 43 25 29 3a 42 25 2b 3d 41 25 3a 43 25 3d 28 |,C%):B%+=A%:C%=(|
0003f750 43 25 2b 33 29 3e 3e 32 3a d6 21 28 53 25 21 31 |C%+3)>>2:.!(S%!1|
0003f760 36 34 2b 34 29 3a e1 0d d2 14 21 dd f2 73 42 28 |64+4):....!..sB(|
0003f770 41 25 2c 42 25 2c 43 25 29 3a d6 21 28 53 25 21 |A%,B%,C%):.!(S%!|
0003f780 31 36 34 2b 38 29 3a e1 0d d2 19 23 dd f2 73 42 |164+8):....#..sB|
0003f790 77 28 41 25 2c 42 25 2c 43 25 29 3a d6 21 28 53 |w(A%,B%,C%):.!(S|
0003f7a0 25 21 31 36 34 2b 34 30 29 3a e1 0d d2 1e 2f dd |%!164+40):..../.|
0003f7b0 f2 77 42 28 41 25 2c 42 25 2c 43 25 29 3a 43 25 |.wB(A%,B%,C%):C%|
0003f7c0 3d 28 43 25 2b 33 29 3e 3e 32 3a d6 21 28 53 25 |=(C%+3)>>2:.!(S%|
0003f7d0 21 31 36 34 2b 31 32 29 3a e1 0d d2 23 25 dd f2 |!164+12):...#%..|
0003f7e0 61 4d 28 41 25 2c 42 25 2c 43 25 2c 44 25 29 3a |aM(A%,B%,C%,D%):|
0003f7f0 d6 21 28 53 25 21 31 36 34 2b 32 34 29 3a e1 0d |.!(S%!164+24):..|
0003f800 d2 28 21 dd a4 72 43 28 41 25 2c 42 25 2c 43 25 |.(!..rC(A%,B%,C%|
0003f810 29 3a 3d ba 21 28 53 25 21 31 36 34 2b 32 38 29 |):=.!(S%!164+28)|
0003f820 0d d2 2d 15 dd a4 67 48 28 42 25 29 3a e7 42 25 |..-...gH(B%):.B%|
0003f830 3c 31 8c 3d a3 0d d2 32 31 ea 41 25 2c 56 25 3a |<1.=...21.A%,V%:|
0003f840 c8 99 26 32 30 30 31 44 2c 32 2c 53 25 21 34 34 |..&2001D,2,S%!44|
0003f850 2c 2c 42 25 b8 2c 2c 41 25 3b 56 25 3a e7 56 25 |,,B%.,,A%;V%:.V%|
0003f860 80 31 8b 3d 41 25 0d d2 37 34 e7 a4 78 48 70 28 |.1.=A%..74..xHp(|
0003f870 42 25 29 8c c8 99 26 32 30 30 31 44 2c 32 2c 53 |B%)...&2001D,2,S|
0003f880 25 21 34 34 2c 2c 42 25 b8 2c 2c 41 25 3b 56 25 |%!44,,B%.,,A%;V%|
0003f890 3a e7 56 25 80 31 8b 3d 41 25 0d d2 3c 06 3d a3 |:.V%.1.=A%..<.=.|
0003f8a0 0d d2 41 32 dd a4 67 48 73 28 41 25 2c 42 25 29 |..A2..gHs(A%,B%)|
0003f8b0 3a ea 56 25 3a 56 25 3d a4 67 48 28 42 25 29 3a |:.V%:V%=.gH(B%):|
0003f8c0 e7 56 25 3e 30 8c f2 61 57 53 6d 28 41 25 2c 56 |.V%>0..aWSm(A%,V|
0003f8d0 25 29 0d d2 46 07 3d 56 25 0d d2 4b 14 dd f2 66 |%)..F.=V%..K...f|
0003f8e0 48 28 41 25 29 3a e7 41 25 3c 31 8c e1 0d d2 50 |H(A%):.A%<1....P|
0003f8f0 3e ea 42 25 2c 56 25 3a c8 99 26 32 30 30 31 44 |>.B%,V%:..&2001D|
0003f900 2c 33 2c 53 25 21 34 34 2c 41 25 b8 42 25 3b 56 |,3,S%!44,A%.B%;V|
0003f910 25 3a e7 56 25 80 31 8c 5a 25 3d a4 73 79 73 45 |%:.V%.1.Z%=.sysE|
0003f920 72 72 42 6f 78 28 42 25 29 3a e1 0d d2 55 2d c8 |rrBox(B%):...U-.|
0003f930 99 32 39 2c 31 2c 53 25 21 34 34 b8 2c 2c 42 25 |.29,1,S%!44.,,B%|
0003f940 3a f4 20 49 46 42 25 3e 53 25 21 32 39 32 54 48 |:. IFB%>S%!292TH|
0003f950 45 4e 50 52 4f 43 72 48 0d d2 5a 05 e1 0d d2 5f |ENPROCrH..Z...._|
0003f960 be dd f2 72 48 3a ea 41 25 2c 42 25 2c 43 25 2c |...rH:.A%,B%,C%,|
0003f970 56 25 3a c8 99 32 39 2c 31 2c 53 25 21 34 34 b8 |V%:..29,1,S%!44.|
0003f980 2c 2c 2c 41 25 3a f5 3a c8 99 26 32 30 30 31 44 |,,,A%:.:..&2001D|
0003f990 2c 35 2c 53 25 21 34 34 2c 2c 2d 53 25 21 32 39 |,5,S%!44,,-S%!29|
0003f9a0 32 b8 3b 56 25 3a fd 56 25 80 31 3a c8 99 32 39 |2.;V%:.V%.1:..29|
0003f9b0 2c 31 2c 53 25 21 34 34 b8 2c 2c 2c 42 25 3a 41 |,1,S%!44.,,,B%:A|
0003f9c0 25 2d 3d 42 25 3a 42 25 3d 41 25 81 53 25 21 32 |%-=B%:B%=A%.S%!2|
0003f9d0 39 32 3a c8 99 32 39 2c 35 2c 53 25 21 34 34 2c |92:..29,5,S%!44,|
0003f9e0 2c 41 25 83 53 25 21 32 39 32 3a e7 42 25 3e 30 |,A%.S%!292:.B%>0|
0003f9f0 8c c8 99 26 34 30 30 45 43 2c 2d 31 2c 2d 31 b8 |...&400EC,-1,-1.|
0003fa00 43 25 3a c8 99 26 34 30 30 45 43 2c 43 25 2d 53 |C%:..&400EC,C%-S|
0003fa10 25 21 32 39 32 2a 42 25 2c 2d 31 0d d2 64 05 e1 |%!292*B%,-1..d..|
0003fa20 0d d2 69 3f dd a4 65 48 28 43 25 2c 42 25 29 3a |..i?..eH(C%,B%):|
0003fa30 ea 41 25 2c 56 25 3a c8 99 26 32 30 30 31 44 2c |.A%,V%:..&2001D,|
0003fa40 34 2c 53 25 21 34 34 2c 43 25 2c 42 25 b8 2c 2c |4,S%!44,C%,B%.,,|
0003fa50 41 25 3b 56 25 3a e7 56 25 80 31 8b 3d 41 25 0d |A%;V%:.V%.1.=A%.|
0003fa60 d2 6e 46 c8 99 32 39 2c 36 2c 53 25 21 34 34 2c |.nF..29,6,S%!44,|
0003fa70 43 25 b8 2c 2c 2c 41 25 3a 41 25 2b 3d 42 25 3a |C%.,,,A%:A%+=B%:|
0003fa80 e7 a4 78 48 70 28 41 25 29 8c c8 99 32 39 2c 34 |..xHp(A%)...29,4|
0003fa90 2c 53 25 21 34 34 2c 43 25 2c 42 25 b8 2c 2c 43 |,S%!44,C%,B%.,,C|
0003faa0 25 3a 3d 43 25 0d d2 73 06 3d a3 0d d2 78 a0 dd |%:=C%..s.=...x..|
0003fab0 a4 65 48 73 28 41 25 2c 43 25 2c 42 25 29 3a ea |.eHs(A%,C%,B%):.|
0003fac0 56 25 3a e7 43 25 3d 30 8c 3d a4 67 48 73 28 41 |V%:.C%=0.=.gHs(A|
0003fad0 25 2c 42 25 29 8b e7 42 25 3d 30 8c f2 66 48 28 |%,B%)..B%=0..fH(|
0003fae0 43 25 29 3a 5a 25 3d a4 64 4c 4c 28 21 77 25 2b |C%):Z%=.dLL(!w%+|
0003faf0 31 39 36 2b 28 41 25 3c 3c 38 29 2c 43 25 29 8b |196+(A%<<8),C%).|
0003fb00 c8 99 32 39 2c 36 2c 53 25 21 34 34 2c 43 25 b8 |..29,6,S%!44,C%.|
0003fb10 2c 2c 2c 56 25 3a 56 25 3d a4 65 48 28 43 25 2c |,,,V%:V%=.eH(C%,|
0003fb20 42 25 2d 56 25 29 3a e7 56 25 3e 30 8c 5a 25 3d |B%-V%):.V%>0.Z%=|
0003fb30 a4 72 4c 4c 28 21 77 25 2b 31 39 36 2b 28 41 25 |.rLL(!w%+196+(A%|
0003fb40 3c 3c 38 29 2c 43 25 2c 56 25 29 0d d2 7d 07 3d |<<8),C%,V%)..}.=|
0003fb50 56 25 0d d2 82 70 dd a4 78 48 70 28 42 25 29 3a |V%...p..xHp(B%):|
0003fb60 ea 41 25 2c 43 25 2c 56 25 3a c8 99 26 34 30 30 |.A%,C%,V%:..&400|
0003fb70 45 43 2c 2d 31 2c 2d 31 b8 43 25 3a c8 99 26 36 |EC,-1,-1.C%:..&6|
0003fb80 30 30 45 43 2c 43 25 2b 53 25 21 32 39 32 2a 28 |00EC,C%+S%!292*(|
0003fb90 42 25 81 53 25 21 32 39 32 2b 31 29 2c 2d 31 b8 |B%.S%!292+1),-1.|
0003fba0 41 25 3b 56 25 3a e7 56 25 80 31 8b c8 99 32 39 |A%;V%:.V%.1...29|
0003fbb0 2c 35 2c 53 25 21 34 34 2c 2c 41 25 2d 43 25 3a |,5,S%!44,,A%-C%:|
0003fbc0 3d b9 0d d2 87 06 3d a3 0d d2 8c 0e 2d 2d 2d 28 |=.....=.....---(|
0003fbd0 4d 45 4e 55 53 29 0d d2 91 0a dd a4 6d 3a 3d b9 |MENUS)......m:=.|
0003fbe0 0d d2 96 0b dd a4 73 6d 3a 3d b9 0d d2 9b 0c dd |......sm:=......|
0003fbf0 a4 73 6d 61 3a 3d b9 0d d2 a0 2c dd f2 64 4d 28 |.sma:=....,..dM(|
0003fc00 41 25 29 3a ea 42 24 2c 56 25 3a 56 25 3d a3 3a |A%):.B$,V%:V%=.:|
0003fc10 42 24 3d a4 64 6d 28 41 25 29 3a e7 42 24 3c 3e |B$=.dm(A%):.B$<>|
0003fc20 22 22 8c 0d d2 a5 0c c8 8e 21 6a 25 80 33 ca 0d |"".......!j%.3..|
0003fc30 d2 aa 14 c9 31 3a 24 63 6e 25 3d 42 24 3a c8 8e |....1:$cn%=B$:..|
0003fc40 42 24 ca 0d d2 af 1e c9 22 22 2c 22 6e 6f 4e 61 |B$......"","noNa|
0003fc50 6d 65 22 2c 22 4e 6f 5f 4e 61 6d 65 22 3a f2 75 |me","No_Name":.u|
0003fc60 4d 0d d2 b4 23 c9 22 6e 6f 74 59 65 74 41 76 61 |M...#."notYetAva|
0003fc70 69 6c 22 3a 5a 25 3d a4 6e 6f 74 59 65 74 41 76 |il":Z%=.notYetAv|
0003fc80 61 69 6c 5f 0d d2 b9 1b 7f 3a 56 25 3d b9 3a e7 |ail_.....:V%=.:.|
0003fc90 53 25 21 32 31 36 3d 30 8c 56 25 3d a4 61 5f 0d |S%!216=0.V%=.a_.|
0003fca0 d2 be 08 e7 56 25 8c 0d d2 c3 12 c8 8e 21 6a 25 |....V%.......!j%|
0003fcb0 3e 3e 3e 31 36 80 36 33 ca 0d d2 c8 11 c9 30 3a |>>>16.63......0:|
0003fcc0 e7 24 63 6e 25 3c 3e 22 22 8c 0d d2 cd 39 e7 a7 |.$cn%<>""....9..|
0003fcd0 24 63 6e 25 2c 22 5f 22 29 8c 5a 25 3d a0 28 22 |$cn%,"_").Z%=.("|
0003fce0 46 4e 22 2b 24 63 6e 25 29 8b 5a 25 3d a0 28 22 |FN"+$cn%).Z%=.("|
0003fcf0 46 4e 22 2b 24 63 6e 25 2b 7a 24 28 21 64 25 2d |FN"+$cn%+z$(!d%-|
0003fd00 31 29 29 0d d2 d2 05 cd 0d d2 d7 07 c9 34 3a 0d |1))..........4:.|
0003fd10 d2 dc 09 cb 3a f2 75 4d 0d d2 e1 0a cd 3a 56 25 |....:.uM.....:V%|
0003fd20 3d a3 0d d2 e6 05 cb 0d d2 eb 1d c9 33 3a 24 77 |=...........3:$w|
0003fd30 6e 25 3d 42 24 3a 52 25 3d 32 35 38 3a c8 8e 24 |n%=B$:R%=258:..$|
0003fd40 77 6e 25 ca 0d d2 f0 0c 7f 3a 56 25 3d a4 65 5f |wn%......:V%=.e_|
0003fd50 0d d2 f5 1a cb 3a e7 56 25 8c 5a 25 3d a4 77 69 |.....:.V%.Z%=.wi|
0003fd60 6e 64 6f 77 28 24 77 6e 25 29 0d d2 fa 08 56 25 |ndow($wn%)....V%|
0003fd70 3d a3 0d d2 ff 19 c9 30 3a 24 6d 6e 25 3d 42 24 |=......0:$mn%=B$|
0003fd80 3a 56 25 3d a4 66 4d 28 42 24 29 0d d3 04 19 c9 |:V%=.fM(B$).....|
0003fd90 32 3a 24 77 6e 25 3d 42 24 3a 56 25 3d a4 66 57 |2:$wn%=B$:V%=.fW|
0003fda0 28 42 24 29 0d d3 09 0a cb 3a e7 56 25 8c 0d d3 |(B$).....:.V%...|
0003fdb0 0e 20 24 61 6e 25 3d 42 24 3a 42 24 3d 7a 24 3a |. $an%=B$:B$=z$:|
0003fdc0 7a 24 3d 22 5f 22 3a c8 8e 24 61 6e 25 ca 0d d3 |z$="_":..$an%...|
0003fdd0 13 0e 7f 3a 56 25 3d a4 73 6d 61 5f 0d d3 18 3c |...:V%=.sma_...<|
0003fde0 cb 3a e7 56 25 20 e7 53 25 21 31 34 30 3e 30 8c |.:.V% .S%!140>0.|
0003fdf0 5a 25 3d a4 77 53 28 53 25 21 31 34 30 29 3a e7 |Z%=.wS(S%!140):.|
0003fe00 7a 24 3c 3e 22 5f 22 8c 56 25 3d a0 28 22 46 4e |z$<>"_".V%=.("FN|
0003fe10 73 6d 61 22 2b 7a 24 29 0d d3 1d 28 e7 56 25 20 |sma"+z$)...(.V% |
0003fe20 e7 42 24 3c 3e 22 5f 22 80 7a 24 3c 3e 42 24 8c |.B$<>"_".z$<>B$.|
0003fe30 56 25 3d a0 28 22 46 4e 73 6d 61 22 2b 42 24 29 |V%=.("FNsma"+B$)|
0003fe40 0d d3 22 07 f2 75 4d 0d d3 27 05 cd 0d d3 2c 07 |.."..uM..'....,.|
0003fe50 cd 3a e1 0d d3 31 30 dd f2 64 4d 31 28 41 25 29 |.:...10..dM1(A%)|
0003fe60 3a ea 42 24 2c 43 25 2c 56 25 3a 56 25 3d b9 3a |:.B$,C%,V%:V%=.:|
0003fe70 42 24 3d a4 64 6d 28 41 25 29 3a e7 42 24 3c 3e |B$=.dm(A%):.B$<>|
0003fe80 22 22 8c 0d d3 36 0c c8 8e 21 6a 25 80 33 ca 0d |""...6...!j%.3..|
0003fe90 d3 3b 10 c9 32 3a f2 70 57 28 42 24 2c 31 29 0d |.;..2:.pW(B$,1).|
0003fea0 d3 40 84 c9 30 3a 24 6d 6e 25 3d 42 24 3a 21 6d |.@..0:$mn%=B$:!m|
0003feb0 25 3d a4 66 4d 28 42 24 29 3a e7 a0 28 22 46 4e |%=.fM(B$):..("FN|
0003fec0 73 6d 22 2b 7a 24 29 8c 4d 24 28 21 64 25 29 3d |sm"+z$).M$(!d%)=|
0003fed0 24 6d 6e 25 3a 4d 25 28 21 64 25 29 3d 21 6d 25 |$mn%:M%(!d%)=!m%|
0003fee0 3a 7a 24 28 21 64 25 29 3d 7a 24 3a 21 6d 30 25 |:z$(!d%)=z$:!m0%|
0003fef0 3d a4 61 52 28 21 6d 25 29 3a 49 25 28 21 64 25 |=.aR(!m%):I%(!d%|
0003ff00 2d 31 29 21 34 3d 21 6d 30 25 3a c8 99 26 34 30 |-1)!4=!m0%:..&40|
0003ff10 30 45 38 2c 2c 21 6d 30 25 2c 21 78 30 25 2c 21 |0E8,,!m0%,!x0%,!|
0003ff20 79 30 25 0d d3 45 05 cb 0d d3 4a 07 cd 3a e1 0d |y0%..E....J..:..|
0003ff30 d3 4f 8b dd a4 64 6d 28 41 25 29 3a ea 42 25 2c |.O...dm(A%):.B%,|
0003ff40 43 25 3a 42 25 3d 41 25 3a c8 95 21 42 25 3c 3e |C%:B%=A%:..!B%<>|
0003ff50 2d 31 3a 42 25 2b 3d 34 3a ce 3a 49 25 3d 42 25 |-1:B%+=4:.:I%=B%|
0003ff60 21 2d 34 3a 21 64 25 3d 28 42 25 2d 41 25 29 3e |!-4:!d%=(B%-A%)>|
0003ff70 3e 3e 32 3a 42 25 3d 4d 25 28 21 64 25 2d 31 29 |>>2:B%=M%(!d%-1)|
0003ff80 3a 43 25 3d 42 25 2b 34 2b 28 49 25 3c 3c 34 29 |:C%=B%+4+(I%<<4)|
0003ff90 3a 21 6a 25 3d 43 25 21 31 32 3a 49 25 28 21 64 |:!j%=C%!12:I%(!d|
0003ffa0 25 2d 31 29 3d a4 61 52 28 42 25 29 2b 32 38 2b |%-1)=.aR(B%)+28+|
0003ffb0 32 34 2a 49 25 3a 3d 24 43 25 0d d3 54 59 dd a4 |24*I%:=$C%..TY..|
0003ffc0 69 57 4d 3a ea 41 24 2c 56 25 3a 41 24 3d a4 74 |iWM:.A$,V%:A$=.t|
0003ffd0 6f 4c 43 28 24 6d 6e 25 29 3a e7 41 24 3d 22 22 |oLC($mn%):.A$=""|
0003ffe0 84 41 24 3d 22 6e 6f 6d 65 6e 75 22 84 41 24 3d |.A$="nomenu".A$=|
0003fff0 22 6e 6f 6e 61 6d 65 22 84 41 24 3d 22 6e 6f 5f |"noname".A$="no_|
00040000 6d 65 6e 75 22 84 41 24 3d 22 6e 6f 5f 6e 61 6d |menu".A$="no_nam|
00040010 65 22 8c 0d d3 59 1b 57 25 21 34 30 3d 2d 31 3a |e"...Y.W%!40=-1:|
00040020 57 25 21 31 38 38 3d 2d 31 3a 56 25 3d a3 0d d3 |W%!188=-1:V%=...|
00040030 5e 47 cc 57 25 21 34 30 3d a4 66 4d 28 24 6d 6e |^G.W%!40=.fM($mn|
00040040 25 29 3a e7 57 25 21 34 30 3e 30 8c 57 25 21 31 |%):.W%!40>0.W%!1|
00040050 38 38 3d 21 67 30 25 3a 56 25 3d b9 20 8b 57 25 |88=!g0%:V%=. .W%|
00040060 21 34 30 3d 2d 31 3a 57 25 21 31 38 38 3d 2d 31 |!40=-1:W%!188=-1|
00040070 3a 56 25 3d a3 0d d3 63 09 cd 3a 3d 56 25 0d d3 |:V%=...c..:=V%..|
00040080 68 39 dd a4 6f 4d 3a ea 41 25 2c 42 25 3a 41 25 |h9..oM:.A%,B%:A%|
00040090 3d b9 3a 24 6d 6e 25 3d 22 22 3a 53 25 21 31 34 |=.:$mn%="":S%!14|
000400a0 30 3d 21 68 25 3a 53 25 21 31 34 34 3d 21 69 25 |0=!h%:S%!144=!i%|
000400b0 3a e7 4d 25 8c 3d a3 0d d3 6d 0a e7 57 25 3e 30 |:.M%.=...m..W%>0|
000400c0 8c 0d d3 72 09 c8 8e b9 20 ca 0d d3 77 33 c9 21 |...r.... ...w3.!|
000400d0 69 25 3e 2d 31 3a 41 25 3d a4 66 49 4d 3a e7 41 |i%>-1:A%=.fIM:.A|
000400e0 25 3e 30 8c 53 25 21 34 30 3d 57 25 21 31 38 38 |%>0.S%!40=W%!188|
000400f0 3a 41 25 3d a4 66 4d 28 24 6d 6e 25 29 0d d3 7c |:A%=.fM($mn%)..||
00040100 0a e7 41 25 3e 30 8c 0d d3 81 3b ea 43 25 2c 44 |..A%>0....;.C%,D|
00040110 25 3a 21 4a 25 3d 21 68 25 3a 4a 25 21 34 3d 21 |%:!J%=!h%:J%!4=!|
00040120 69 25 3a c8 99 26 34 30 30 43 45 2c 2c 4a 25 3a |i%:..&400CE,,J%:|
00040130 e7 28 4a 25 21 32 34 80 26 31 38 33 29 3d 32 35 |.(J%!24.&183)=25|
00040140 36 8c 0d d3 86 14 43 25 3d 57 25 21 32 31 36 3a |6.....C%=W%!216:|
00040150 e7 43 25 3e 30 8c 0d d3 8b 44 e3 42 25 3d 43 25 |.C%>0....D.B%=C%|
00040160 2b 31 34 38 b8 43 25 2b 28 21 43 25 3c 3c 37 29 |+148.C%+(!C%<<7)|
00040170 88 31 32 38 3a e7 28 21 42 25 3e 3e 3e 32 34 29 |.128:.(!B%>>>24)|
00040180 3d 21 69 25 8c 44 25 3d 21 42 25 3a 42 25 3d 43 |=!i%.D%=!B%:B%=C|
00040190 25 2b 28 21 43 25 3c 3c 37 29 0d d3 90 1b ed 3a |%+(!C%<<7).....:|
000401a0 42 25 3d 30 3a e7 28 44 25 80 32 35 35 29 3d 30 |B%=0:.(D%.255)=0|
000401b0 8c 41 25 3d 30 0d d3 95 05 cd 0d d3 9a 05 cd 0d |.A%=0...........|
000401c0 d3 9f 33 cc 41 25 3d 57 25 21 34 30 3a 24 6d 6e |..3.A%=W%!40:$mn|
000401d0 25 3d 24 28 57 25 2b 31 32 34 29 3a 53 25 21 34 |%=$(W%+124):S%!4|
000401e0 30 3d 57 25 21 31 38 38 3a 53 25 21 31 34 34 3d |0=W%!188:S%!144=|
000401f0 2d 31 0d d3 a4 05 cd 0d d3 a9 3a c9 21 68 25 3e |-1........:.!h%>|
00040200 2d 31 3a 41 25 3d 57 25 21 34 30 3a 24 6d 6e 25 |-1:A%=W%!40:$mn%|
00040210 3d 24 28 57 25 2b 31 32 34 29 3a 53 25 21 34 30 |=$(W%+124):S%!40|
00040220 3d 57 25 21 31 38 38 3a 53 25 21 31 34 34 3d 2d |=W%!188:S%!144=-|
00040230 31 0d d3 ae 40 cb 3a 53 25 21 33 32 3d 57 25 3a |1...@.:S%!32=W%:|
00040240 e7 24 72 6e 25 3c 3e 22 54 6f 6f 6c 73 22 8c 4e |.$rn%<>"Tools".N|
00040250 25 3d 57 25 21 34 38 8b e7 57 25 21 31 30 34 3e |%=W%!48..W%!104>|
00040260 30 8c 4e 25 3d 21 28 57 25 21 31 30 34 2b 34 38 |0.N%=!(W%!104+48|
00040270 29 0d d3 b3 3c cc e7 21 68 25 3d 2d 32 8c 41 25 |)...<..!h%=-2.A%|
00040280 3d 53 25 21 37 32 3a 24 6d 6e 25 3d 24 28 53 25 |=S%!72:$mn%=$(S%|
00040290 2b 39 36 29 3a 53 25 21 33 32 3d 30 3a 53 25 21 |+96):S%!32=0:S%!|
000402a0 34 30 3d 53 25 21 35 36 3a 42 25 3d 31 0d d3 b8 |40=S%!56:B%=1...|
000402b0 0b cd 3a c8 8e 41 25 ca 0d d3 bd 1d c9 30 2c 2d |..:..A%......0,-|
000402c0 31 3a 53 25 21 31 34 30 3d 2d 31 3a 53 25 21 31 |1:S%!140=-1:S%!1|
000402d0 34 34 3d 2d 31 0d d3 c2 bc 7f 3a 21 6d 25 3d 41 |44=-1.....:!m%=A|
000402e0 25 3a 53 25 21 31 37 32 3d 30 3a 21 64 25 3d 30 |%:S%!172=0:!d%=0|
000402f0 3a e7 a0 28 22 46 4e 6d 22 2b 7a 24 29 8c 4d 24 |:..("FNm"+z$).M$|
00040300 28 21 64 25 29 3d 24 6d 6e 25 3a 4d 25 28 21 64 |(!d%)=$mn%:M%(!d|
00040310 25 29 3d 21 6d 25 3a 7a 24 28 21 64 25 29 3d 7a |%)=!m%:z$(!d%)=z|
00040320 24 3a 21 6d 30 25 3d a4 61 52 28 21 6d 25 29 3a |$:!m0%=.aR(!m%):|
00040330 c8 97 21 78 30 25 2c 21 79 30 25 2c 5a 25 3a 21 |..!x0%,!y0%,Z%:!|
00040340 78 30 25 2d 3d 36 34 3a 21 79 30 25 3d 28 53 25 |x0%-=64:!y0%=(S%|
00040350 21 31 30 38 2b 39 36 29 2a 42 25 2d 21 79 30 25 |!108+96)*B%-!y0%|
00040360 2a 28 42 25 3d 30 29 3a 53 25 21 31 34 30 3d 21 |*(B%=0):S%!140=!|
00040370 68 25 3a f2 6d 5f 28 21 6d 30 25 29 3a 8b 53 25 |h%:.m_(!m0%):.S%|
00040380 21 31 34 30 3d 2d 31 3a 53 25 21 31 34 34 3d 2d |!140=-1:S%!144=-|
00040390 31 0d d3 c7 09 cb 3a 3d 41 25 0d d3 cc 53 dd f2 |1.....:=A%...S..|
000403a0 6d 5f 28 41 5f 25 29 3a ea 20 5a 5f 25 3a e7 24 |m_(A_%):. Z_%:.$|
000403b0 6d 6e 25 3d 22 46 6f 6e 74 4c 69 73 74 22 3a 41 |mn%="FontList":A|
000403c0 5f 25 2b 3d 32 38 2b 6d 61 78 66 6f 6e 74 5f 25 |_%+=28+maxfont_%|
000403d0 2a 32 34 3a 5a 5f 25 3d 41 5f 25 3f 30 3a 41 5f |*24:Z_%=A_%?0:A_|
000403e0 25 3f 30 3d 25 31 30 30 30 30 30 30 30 0d d3 d1 |%?0=%10000000...|
000403f0 3f e7 24 6d 6e 25 3d 22 49 6e 76 4c 22 3a 41 5f |?.$mn%="InvL":A_|
00040400 25 2b 3d 32 38 2b 6d 61 78 69 6e 76 6c 5f 25 2a |%+=28+maxinvl_%*|
00040410 32 34 3a 5a 5f 25 3d 41 5f 25 3f 30 3a 41 5f 25 |24:Z_%=A_%?0:A_%|
00040420 3f 30 3d 25 31 30 30 30 30 30 30 30 0d d3 d6 3e |?0=%10000000...>|
00040430 e7 24 6d 6e 25 3d 22 48 65 61 64 4c 69 73 74 53 |.$mn%="HeadListS|
00040440 22 84 24 6d 6e 25 3d 22 48 65 61 64 4c 69 73 74 |".$mn%="HeadList|
00040450 50 22 3a 41 5f 25 2b 3d 32 38 2b 31 31 2a 32 34 |P":A_%+=28+11*24|
00040460 3a 41 5f 25 3f 30 3d 25 31 30 0d d3 db 37 c8 99 |:A_%?0=%10...7..|
00040470 26 34 30 30 44 34 2c 2c 21 6d 30 25 2c 21 78 30 |&400D4,,!m0%,!x0|
00040480 25 2c 21 79 30 25 3a e7 24 6d 6e 25 3d 22 46 6f |%,!y0%:.$mn%="Fo|
00040490 6e 74 4c 69 73 74 22 3a 41 5f 25 3f 30 3d 5a 5f |ntList":A_%?0=Z_|
000404a0 25 0d d3 e0 1a e7 24 6d 6e 25 3d 22 49 6e 76 4c |%.....$mn%="InvL|
000404b0 22 3a 41 5f 25 3f 30 3d 5a 5f 25 0d d3 e5 05 e1 |":A_%?0=Z_%.....|
000404c0 0d d3 ea 24 dd f2 6f 76 72 4d 28 41 24 29 3a 24 |...$..ovrM(A$):$|
000404d0 6d 6e 25 3d 41 24 3a 21 6d 25 3d a4 66 4d 28 41 |mn%=A$:!m%=.fM(A|
000404e0 24 29 3a e1 0d d3 ef 17 dd f2 75 4d 3a e7 ac 4d |$):.......uM:..M|
000404f0 25 80 28 21 62 30 25 80 31 29 8c 0d d3 f4 0b e7 |%.(!b0%.1)......|
00040500 50 25 8c f2 72 50 0d d3 f9 1d 21 6d 30 25 3d a4 |P%..rP....!m0%=.|
00040510 61 52 28 4d 25 28 30 29 29 3a f2 6d 5f 28 21 6d |aR(M%(0)):.m_(!m|
00040520 30 25 29 0d d3 fe 07 cd 3a e1 0d d4 03 38 dd a4 |0%).....:....8..|
00040530 66 4d 49 28 41 24 2c 42 25 29 3a ea 43 25 3a 43 |fMI(A$,B%):.C%:C|
00040540 25 3d a4 66 4d 28 41 24 29 3a c8 99 26 38 30 44 |%=.fM(A$):..&80D|
00040550 30 36 2c 31 2c 2c 42 25 2c 43 25 b8 43 25 3a 3d |06,1,,B%,C%.C%:=|
00040560 43 25 0d d4 08 38 dd a4 66 4d 48 28 41 24 2c 42 |C%...8..fMH(A$,B|
00040570 25 29 3a ea 43 25 3a 43 25 3d a4 66 4d 28 41 24 |%):.C%:C%=.fM(A$|
00040580 29 3a c8 99 26 38 30 44 30 36 2c 33 2c 2c 42 25 |):..&80D06,3,,B%|
00040590 2c 43 25 b8 43 25 3a 3d 43 25 0d d4 0d 3b dd a4 |,C%.C%:=C%...;..|
000405a0 67 4d 49 73 28 41 24 2c 42 25 29 3a ea 43 25 3a |gMIs(A$,B%):.C%:|
000405b0 43 25 3d a4 66 4d 49 28 41 24 2c 42 25 29 3a c8 |C%=.fMI(A$,B%):.|
000405c0 99 26 38 30 44 30 36 2c 34 2c 2c 2c 43 25 b8 43 |.&80D06,4,,,C%.C|
000405d0 25 3a 3d 43 25 0d d4 12 3b dd a4 67 4d 49 74 28 |%:=C%...;..gMIt(|
000405e0 41 24 2c 42 25 29 3a ea 43 25 3a 43 25 3d a4 66 |A$,B%):.C%:C%=.f|
000405f0 4d 49 28 41 24 2c 42 25 29 3a c8 99 26 38 30 44 |MI(A$,B%):..&80D|
00040600 30 36 2c 35 2c 2c 2c 43 25 b8 43 25 3a 3d 43 25 |06,5,,,C%.C%:=C%|
00040610 0d d4 17 5b dd f2 63 4d 49 28 41 24 2c 42 25 2c |...[..cMI(A$,B%,|
00040620 44 25 29 3a ea 43 25 3a 43 25 3d a4 66 4d 49 28 |D%):.C%:C%=.fMI(|
00040630 41 24 2c 42 25 29 3a e7 43 25 3e 30 80 28 43 25 |A$,B%):.C%>0.(C%|
00040640 21 38 80 36 34 29 3d 30 8c 43 25 21 38 3d 43 25 |!8.64)=0.C%!8=C%|
00040650 21 38 80 26 46 46 46 46 46 46 3a 43 25 21 38 3d |!8.&FFFFFF:C%!8=|
00040660 43 25 21 38 84 44 25 3c 3c 32 34 0d d4 1c 05 e1 |C%!8.D%<<24.....|
00040670 0d d4 21 35 dd f2 73 4d 49 28 41 24 2c 42 25 29 |..!5..sMI(A$,B%)|
00040680 3a ea 43 25 3a 43 25 3d a4 66 4d 49 28 41 24 2c |:.C%:C%=.fMI(A$,|
00040690 42 25 29 3a c8 99 26 38 30 44 30 36 2c 37 2c 2c |B%):..&80D06,7,,|
000406a0 2c 43 25 3a e1 0d d4 26 36 dd f2 75 73 4d 49 28 |,C%:...&6..usMI(|
000406b0 41 24 2c 42 25 29 3a ea 43 25 3a 43 25 3d a4 66 |A$,B%):.C%:C%=.f|
000406c0 4d 49 28 41 24 2c 42 25 29 3a c8 99 26 38 30 44 |MI(A$,B%):..&80D|
000406d0 30 36 2c 38 2c 2c 2c 43 25 3a e1 0d d4 2b 2e dd |06,8,,,C%:...+..|
000406e0 f2 73 4d 6e 28 41 24 29 3a ea 43 25 3a 43 25 3d |.sMn(A$):.C%:C%=|
000406f0 a4 66 4d 28 41 24 29 3a c8 99 26 38 30 44 30 36 |.fM(A$):..&80D06|
00040700 2c 39 2c 2c 2c 43 25 3a e1 0d d4 30 30 dd f2 75 |,9,,,C%:...00..u|
00040710 73 4d 6e 28 41 24 29 3a ea 43 25 3a 43 25 3d a4 |sMn(A$):.C%:C%=.|
00040720 66 4d 28 41 24 29 3a c8 99 26 38 30 44 30 36 2c |fM(A$):..&80D06,|
00040730 31 30 2c 2c 2c 43 25 3a e1 0d d4 35 36 dd f2 74 |10,,,C%:...56..t|
00040740 4d 49 28 41 24 2c 42 25 29 3a ea 43 25 3a 43 25 |MI(A$,B%):.C%:C%|
00040750 3d a4 66 4d 49 28 41 24 2c 42 25 29 3a c8 99 26 |=.fMI(A$,B%):..&|
00040760 38 30 44 30 36 2c 31 31 2c 2c 2c 43 25 3a e1 0d |80D06,11,,,C%:..|
00040770 d4 3a 35 dd f2 74 4d 49 78 28 41 24 2c 42 25 29 |.:5..tMIx(A$,B%)|
00040780 3a ea 43 25 3a 43 25 3d a4 66 4d 28 41 24 29 3a |:.C%:C%=.fM(A$):|
00040790 c8 99 26 38 30 44 30 36 2c 31 32 2c 2c 42 25 2c |..&80D06,12,,B%,|
000407a0 43 25 3a e1 0d d4 3f 37 dd f2 75 74 4d 49 28 41 |C%:...?7..utMI(A|
000407b0 24 2c 42 25 29 3a ea 43 25 3a 43 25 3d a4 66 4d |$,B%):.C%:C%=.fM|
000407c0 49 28 41 24 2c 42 25 29 3a c8 99 26 38 30 44 30 |I(A$,B%):..&80D0|
000407d0 36 2c 31 33 2c 2c 2c 43 25 3a e1 0d d4 44 2d dd |6,13,,,C%:...D-.|
000407e0 f2 70 4d 49 28 41 24 2c 42 25 2c 44 24 29 3a ea |.pMI(A$,B%,D$):.|
000407f0 43 25 3a 43 25 3d a4 66 4d 49 28 41 24 2c 42 25 |C%:C%=.fMI(A$,B%|
00040800 29 3a e7 43 25 3e 30 8c 0d d4 49 34 e7 43 25 21 |):.C%>0...I4.C%!|
00040810 38 80 32 35 36 8c 24 28 43 25 21 31 32 29 3d c0 |8.256.$(C%!12)=.|
00040820 44 24 2c 43 25 21 32 30 2d 31 29 8b 24 28 43 25 |D$,C%!20-1).$(C%|
00040830 2b 31 32 29 3d c0 44 24 2c 31 31 29 0d d4 4e 07 |+12)=.D$,11)..N.|
00040840 cd 3a e1 0d d4 53 42 dd a4 67 4d 49 28 41 24 2c |.:...SB..gMI(A$,|
00040850 42 25 29 3a ea 43 25 3a 43 25 3d a4 66 4d 49 28 |B%):.C%:C%=.fMI(|
00040860 41 24 2c 42 25 29 3a c8 99 26 38 30 44 30 36 2c |A$,B%):..&80D06,|
00040870 31 35 2c 2c 2c 43 25 b8 43 25 3a e7 43 25 3e 30 |15,,,C%.C%:.C%>0|
00040880 8c 3d 24 43 25 0d d4 58 34 dd f2 70 4d 54 28 41 |.=$C%..X4..pMT(A|
00040890 24 2c 42 24 29 3a ea 43 25 3a 43 25 3d a4 66 4d |$,B$):.C%:C%=.fM|
000408a0 28 41 24 29 3a c8 99 26 38 30 44 30 36 2c 31 36 |(A$):..&80D06,16|
000408b0 2c 2c 42 24 2c 43 25 3a e1 0d d4 5d 3d dd f2 62 |,,B$,C%:...]=..b|
000408c0 67 4d 49 28 41 24 2c 42 25 2c 44 25 29 3a ea 43 |gMI(A$,B%,D%):.C|
000408d0 25 3a 43 25 3d a4 66 4d 49 28 41 24 2c 42 25 29 |%:C%=.fMI(A$,B%)|
000408e0 3a c8 99 26 38 30 44 30 36 2c 31 37 2c 2c 2c 43 |:..&80D06,17,,,C|
000408f0 25 2c 44 25 3a e1 0d d4 62 3d dd f2 66 67 4d 49 |%,D%:...b=..fgMI|
00040900 28 41 24 2c 42 25 2c 44 25 29 3a ea 43 25 3a 43 |(A$,B%,D%):.C%:C|
00040910 25 3d a4 66 4d 49 28 41 24 2c 42 25 29 3a c8 99 |%=.fMI(A$,B%):..|
00040920 26 38 30 44 30 36 2c 31 38 2c 2c 2c 43 25 2c 44 |&80D06,18,,,C%,D|
00040930 25 3a e1 0d d4 67 36 dd f2 68 4d 49 28 41 24 2c |%:...g6..hMI(A$,|
00040940 42 25 29 3a ea 43 25 3a 43 25 3d a4 66 4d 49 28 |B%):.C%:C%=.fMI(|
00040950 41 24 2c 42 25 29 3a c8 99 26 38 30 44 30 36 2c |A$,B%):..&80D06,|
00040960 31 39 2c 2c 2c 43 25 3a e1 0d d4 6c 37 dd f2 75 |19,,,C%:...l7..u|
00040970 68 4d 49 28 41 24 2c 42 25 29 3a ea 43 25 3a 43 |hMI(A$,B%):.C%:C|
00040980 25 3d a4 66 4d 49 28 41 24 2c 42 25 29 3a c8 99 |%=.fMI(A$,B%):..|
00040990 26 38 30 44 30 36 2c 32 30 2c 2c 2c 43 25 3a e1 |&80D06,20,,,C%:.|
000409a0 0d d4 71 3c dd a4 67 4d 49 68 28 41 24 2c 42 25 |..q<..gMIh(A$,B%|
000409b0 29 3a ea 43 25 3a 43 25 3d a4 66 4d 49 28 41 24 |):.C%:C%=.fMI(A$|
000409c0 2c 42 25 29 3a c8 99 26 38 30 44 30 36 2c 32 31 |,B%):..&80D06,21|
000409d0 2c 2c 2c 43 25 b8 43 25 3a 3d 43 25 0d d4 76 11 |,,,C%.C%:=C%..v.|
000409e0 2d 2d 2d 28 4d 45 53 53 41 47 45 53 29 0d d4 7b |---(MESSAGES)..{|
000409f0 14 dd f2 72 4d 3a c8 8e 21 61 30 25 80 ac 36 33 |...rM:..!a0%..63|
00040a00 ca 0d d4 80 14 c9 26 35 30 30 3a c8 8e 21 61 30 |......&500:..!a0|
00040a10 25 80 36 33 ca 0d d4 85 0e c9 32 3a e7 48 65 6c |%.63......2:.Hel|
00040a20 70 25 8c 0d d4 8a 30 21 68 25 3d 51 25 21 33 32 |p%....0!h%=Q%!32|
00040a30 3a 57 25 3d a4 77 53 28 21 68 25 29 3a e7 57 25 |:W%=.wS(!h%):.W%|
00040a40 3e 30 8c 24 77 6e 25 3d 24 57 25 8b 24 77 6e 25 |>0.$wn%=$W%.$wn%|
00040a50 3d 22 22 0d d4 8f 80 21 69 25 3d 51 25 21 33 36 |=""....!i%=Q%!36|
00040a60 3a 5a 24 3d c0 a0 28 22 46 4e 68 22 2b 7a 24 29 |:Z$=..("FNh"+z$)|
00040a70 2c 32 33 35 29 3a e7 5a 24 3c 3e 22 22 8c 21 51 |,235):.Z$<>"".!Q|
00040a80 25 3d 32 35 36 3a 51 25 21 31 32 3d 21 72 30 25 |%=256:Q%!12=!r0%|
00040a90 3a 51 25 21 31 36 3d 26 35 30 33 3a 24 28 51 25 |:Q%!16=&503:$(Q%|
00040aa0 2b 32 30 29 3d 5a 24 3a 3f 28 51 25 2b 32 30 2b |+20)=Z$:?(Q%+20+|
00040ab0 a9 5a 24 29 3d 30 3a c8 99 26 34 30 30 45 37 2c |.Z$)=0:..&400E7,|
00040ac0 31 37 2c 51 25 2c 21 74 30 25 3a 21 72 25 3d 51 |17,Q%,!t0%:!r%=Q|
00040ad0 25 21 38 0d d4 94 05 cd 0d d4 99 05 cb 0d d4 9e |%!8.............|
00040ae0 1f c9 26 38 30 44 30 30 3a 21 63 25 3d 21 61 30 |..&80D00:!c%=!a0|
00040af0 25 80 36 33 3a c8 8e 21 61 30 25 ca 0d d4 a3 0d |%.63:..!a0%.....|
00040b00 7f 3a 5a 25 3d a4 72 4d 5f 0d d4 a8 05 cb 0d d4 |.:Z%=.rM_.......|
00040b10 ad 16 c9 26 34 30 30 43 30 3a c8 8e 21 61 30 25 |...&400C0:..!a0%|
00040b20 80 36 33 ca 0d d4 b2 28 c9 30 3a 21 78 30 25 3d |.63....(.0:!x0%=|
00040b30 51 25 21 32 34 3a 21 79 30 25 3d 51 25 21 32 38 |Q%!24:!y0%=Q%!28|
00040b40 3a f2 64 4d 31 28 51 25 2b 33 32 29 0d d4 b7 30 |:.dM1(Q%+32)...0|
00040b50 21 68 25 3d 51 25 21 33 32 3a 57 25 3d a4 77 53 |!h%=Q%!32:W%=.wS|
00040b60 28 21 68 25 29 3a e7 57 25 3e 30 8c 24 77 6e 25 |(!h%):.W%>0.$wn%|
00040b70 3d 24 57 25 8b 24 77 6e 25 3d 22 22 0d d4 bc 0d |=$W%.$wn%=""....|
00040b80 c9 31 3a 52 25 3d 32 35 39 0d d4 c1 0d 7f 3a 5a |.1:R%=259.....:Z|
00040b90 25 3d a4 72 4d 5f 0d d4 c6 05 cb 0d d4 cb 0e c9 |%=.rM_..........|
00040ba0 30 3a c8 8e 21 61 30 25 ca 0d d4 d0 0d c9 30 3a |0:..!a0%......0:|
00040bb0 f2 66 69 6e 3a e0 0d d4 d5 1f c9 31 2c 32 2c 33 |.fin:......1,2,3|
00040bc0 2c 34 2c 35 3a 21 66 30 25 3d 51 25 21 34 30 3a |,4,5:!f0%=Q%!40:|
00040bd0 e7 a4 76 46 74 0d d4 da 09 c9 36 2c 37 3a 0d d4 |..vFt.....6,7:..|
00040be0 df 19 c9 38 3a e7 53 25 21 31 39 32 3d 30 8c 53 |...8:.S%!192=0.S|
00040bf0 25 21 31 39 32 3d 32 0d d4 e4 0f 5a 25 3d a4 4d |%!192=2....Z%=.M|
00040c00 79 71 75 69 74 5f 0d d4 e9 21 c9 39 3a e7 a4 72 |yquit_...!.9:..r|
00040c10 4d 5f 20 e7 53 25 21 31 37 36 80 28 31 3c 3c 37 |M_ .S%!176.(1<<7|
00040c20 29 8c f2 63 50 5f 67 0d d4 ee 0d 7f 3a 5a 25 3d |)..cP_g.....:Z%=|
00040c30 a4 72 4d 5f 0d d4 f3 05 cb 0d d4 f8 16 c9 26 38 |.rM_..........&8|
00040c40 30 31 34 30 3a c8 8e 21 61 30 25 80 36 33 ca 0d |0140:..!a0%.63..|
00040c50 d4 fd 2c c9 30 2c 31 2c 34 2c 35 3a 21 66 30 25 |..,.0,1,4,5:!f0%|
00040c60 3d 51 25 21 34 30 3a e7 a4 76 46 74 20 e7 a4 72 |=Q%!40:..vFt ..r|
00040c70 4d 5f 20 5a 25 3d a4 70 74 72 4d 0d d5 02 0d 7f |M_ Z%=.ptrM.....|
00040c80 3a 5a 25 3d a4 72 4d 5f 0d d5 07 05 cb 0d d5 0c |:Z%=.rM_........|
00040c90 0d 7f 3a 5a 25 3d a4 72 4d 5f 0d d5 11 07 cb 3a |..:Z%=.rM_.....:|
00040ca0 e1 0d d5 16 14 dd f2 72 42 3a c8 8e 21 61 30 25 |.......rB:..!a0%|
00040cb0 80 ac 36 33 ca 0d d5 1b 0e c9 30 3a c8 8e 21 61 |..63......0:..!a|
00040cc0 30 25 ca 0d d5 20 33 c9 31 2c 32 2c 33 2c 34 2c |0%... 3.1,2,3,4,|
00040cd0 35 2c 36 2c 37 3a e7 a4 72 42 5f 20 e7 28 53 25 |5,6,7:..rB_ .(S%|
00040ce0 21 31 37 36 80 28 31 3c 3c 36 29 29 3e 30 8c 5a |!176.(1<<6))>0.Z|
00040cf0 25 3d a4 64 74 42 0d d5 25 0d 7f 3a 5a 25 3d a4 |%=.dtB..%..:Z%=.|
00040d00 72 42 5f 0d d5 2a 05 cb 0d d5 2f 16 c9 26 38 30 |rB_..*..../..&80|
00040d10 31 34 30 3a c8 8e 21 61 30 25 80 36 33 ca 0d d5 |140:..!a0%.63...|
00040d20 34 16 c9 30 2c 31 2c 32 2c 35 2c 36 3a e7 a4 72 |4..0,1,2,5,6:..r|
00040d30 42 5f 20 8c 0d d5 39 09 c8 8e b9 20 ca 0d d5 3e |B_ ...9.... ...>|
00040d40 17 c9 53 25 21 31 36 30 3d 2d 31 3a 5a 25 3d a4 |..S%!160=-1:Z%=.|
00040d50 72 42 5f 67 0d d5 43 1e c9 28 53 25 21 31 37 36 |rB_g..C..(S%!176|
00040d60 80 28 31 3c 3c 36 29 29 3e 30 3a 5a 25 3d a4 64 |.(1<<6))>0:Z%=.d|
00040d70 74 42 0d d5 48 0d 7f 3a 5a 25 3d a4 72 42 5f 0d |tB..H..:Z%=.rB_.|
00040d80 d5 4d 05 cb 0d d5 52 05 cd 0d d5 57 0d 7f 3a 5a |.M....R....W..:Z|
00040d90 25 3d a4 72 42 5f 0d d5 5c 05 cb 0d d5 61 1f c9 |%=.rB_..\....a..|
00040da0 26 38 30 44 30 30 3a 21 63 25 3d 21 61 30 25 80 |&80D00:!c%=!a0%.|
00040db0 36 33 3a c8 8e 21 61 30 25 ca 0d d5 66 0d 7f 3a |63:..!a0%...f..:|
00040dc0 5a 25 3d a4 72 42 5f 0d d5 6b 05 cb 0d d5 70 0d |Z%=.rB_..k....p.|
00040dd0 7f 3a 5a 25 3d a4 72 42 5f 0d d5 75 07 cb 3a e1 |.:Z%=.rB_..u..:.|
00040de0 0d d5 7a 0d 2d 2d 2d 28 4d 49 53 43 29 0d d5 7f |..z.---(MISC)...|
00040df0 b5 dd f2 67 4d 69 3a 53 25 21 31 39 36 3d a4 72 |...gMi:S%!196=.r|
00040e00 4d 56 28 2d 31 2c 34 29 3a 53 25 21 32 30 30 3d |MV(-1,4):S%!200=|
00040e10 a4 72 4d 56 28 2d 31 2c 35 29 3a 53 25 21 34 34 |.rMV(-1,5):S%!44|
00040e20 30 3d 31 3c 3c 53 25 21 31 39 36 3a 53 25 21 34 |0=1<<S%!196:S%!4|
00040e30 34 34 3d 31 3c 3c 53 25 21 32 30 30 3a 53 25 21 |44=1<<S%!200:S%!|
00040e40 32 30 34 3d 28 a4 72 4d 56 28 2d 31 2c 31 31 29 |204=(.rMV(-1,11)|
00040e50 2b 31 29 3c 3c 53 25 21 31 39 36 3a 53 25 21 32 |+1)<<S%!196:S%!2|
00040e60 30 38 3d 28 a4 72 4d 56 28 2d 31 2c 31 32 29 2b |08=(.rMV(-1,12)+|
00040e70 31 29 3c 3c 53 25 21 32 30 30 3a 53 25 21 34 32 |1)<<S%!200:S%!42|
00040e80 38 3d ac 28 53 25 21 34 34 30 2d 31 29 3a 53 25 |8=.(S%!440-1):S%|
00040e90 21 34 33 32 3d ac 28 53 25 21 34 34 34 2d 31 29 |!432=.(S%!444-1)|
00040ea0 3a e1 0d d5 84 36 dd a4 67 42 31 28 41 25 29 3a |:....6..gB1(A%):|
00040eb0 ea 42 25 2c 43 25 3a e3 43 25 3d 30 b8 33 31 3a |.B%,C%:.C%=0.31:|
00040ec0 42 25 2b 3d 41 25 80 31 3a 41 25 3d 41 25 3e 3e |B%+=A%.1:A%=A%>>|
00040ed0 3e 31 3a ed 3a 3d 42 25 0d d5 89 13 dd f2 73 50 |>1:.:=B%......sP|
00040ee0 4f 28 41 25 29 3a c8 8e 41 25 ca 0d d5 8e 15 c9 |O(A%):..A%......|
00040ef0 31 3a 53 25 21 34 3d 31 3a 53 25 21 31 32 3d 30 |1:S%!4=1:S%!12=0|
00040f00 0d d5 93 15 c9 32 3a 53 25 21 34 3d 30 3a 53 25 |.....2:S%!4=0:S%|
00040f10 21 31 32 3d 30 0d d5 98 21 7f 3a 53 25 21 34 3d |!12=0...!.:S%!4=|
00040f20 30 3a c8 99 36 36 b8 53 25 21 31 32 3a 53 25 21 |0:..66.S%!12:S%!|
00040f30 31 35 36 3d 41 25 0d d5 9d 07 cb 3a e1 0d d5 a2 |156=A%.....:....|
00040f40 0b dd a4 68 3a 3d 22 22 0d d5 a7 1d dd a4 5f 3a |...h:=""......_:|
00040f50 e7 53 25 21 31 37 36 80 28 31 3c 3c 37 29 8c 3d |.S%!176.(1<<7).=|
00040f60 b9 20 8b 3d a3 0d d5 ac 57 dd a4 74 4c 28 41 25 |. .=....W..tL(A%|
00040f70 29 3a ea 42 24 2c 43 25 3a 43 25 3d b4 41 25 3a |):.B$,C%:C%=.A%:|
00040f80 41 25 3d 94 41 25 3a 42 24 3d c3 28 41 25 81 31 |A%=.A%:B$=.(A%.1|
00040f90 30 30 29 2b 22 2e 22 2b c2 22 30 22 2b c3 28 41 |00)+"."+."0"+.(A|
00040fa0 25 83 31 30 30 29 2c 32 29 3a e7 43 25 3e 3d 30 |%.100),2):.C%>=0|
00040fb0 8c 3d 42 24 8b 3d 22 2d 22 2b 42 24 0d d5 b1 27 |.=B$.="-"+B$...'|
00040fc0 dd a4 66 4c 28 41 24 29 3a ea 42 3a 42 3d 31 30 |..fL(A$):.B:B=10|
00040fd0 30 2a bb 41 24 3a 3d b4 42 2a a8 28 94 42 2b 30 |0*.A$:=.B*.(.B+0|
00040fe0 2e 35 29 0d d5 b6 44 dd a4 61 4c 28 41 25 2c 42 |.5)...D..aL(A%,B|
00040ff0 25 29 3a ea 43 3a 43 3d 41 25 2b 42 25 3a e7 43 |%):.C:C=A%+B%:.C|
00041000 3e 26 37 46 46 46 46 46 46 30 84 43 3c 26 38 30 |>&7FFFFFF0.C<&80|
00041010 30 30 30 30 31 30 8c f2 62 65 65 70 3a 3d 2d 31 |000010..beep:=-1|
00041020 8b 3d 41 25 2b 42 25 0d d5 bb 37 dd a4 6d 4c 28 |.=A%+B%...7..mL(|
00041030 41 25 2c 42 25 29 3a ea 43 3a 43 3d 41 25 2a 42 |A%,B%):.C:C=A%*B|
00041040 25 3a e7 43 3e 26 46 46 46 46 46 46 30 8c f2 62 |%:.C>&FFFFFF0..b|
00041050 65 65 70 3a 3d 2d 31 8b 3d 41 25 2a 42 25 0d d5 |eep:=-1.=A%*B%..|
00041060 c0 26 dd a4 64 4c 28 41 25 2c 42 25 29 3a e7 42 |.&..dL(A%,B%):.B|
00041070 25 3d 30 8c f2 62 65 65 70 3a 3d 2d 31 8b 3d 41 |%=0..beep:=-1.=A|
00041080 25 81 42 25 0d d5 c5 0b dd a4 61 5f 3a 3d b9 0d |%.B%......a_:=..|
00041090 d5 ca 13 dd a4 64 54 68 28 41 25 29 3a 3d c3 7e |.....dTh(A%):=.~|
000410a0 41 25 0d d5 cf 25 dd a4 68 54 64 28 41 24 29 3a |A%...%..hTd(A$):|
000410b0 ea 42 25 3a c8 99 33 33 2c 31 36 2c 41 24 b8 2c |.B%:..33,16,A$.,|
000410c0 2c 42 25 3a 3d 42 25 0d d5 d4 0e 2d 2d 2d 28 c8 |,B%:=B%....---(.|
000410d0 92 45 52 53 29 0d d5 d9 15 dd f2 68 67 4f 6e 3a |.ERS)......hgOn:|
000410e0 c8 99 26 34 30 36 43 30 3a e1 0d d5 de 16 dd f2 |..&406C0:.......|
000410f0 68 67 4f 66 66 3a c8 99 26 34 30 36 43 31 3a e1 |hgOff:..&406C1:.|
00041100 0d d5 e3 18 dd f2 68 67 53 6d 61 73 68 3a c8 99 |......hgSmash:..|
00041110 26 34 30 36 43 32 3a e1 0d d5 e8 1c dd f2 68 67 |&406C2:.......hg|
00041120 50 43 28 41 25 29 3a c8 99 26 34 30 36 43 34 2c |PC(A%):..&406C4,|
00041130 41 25 3a e1 0d d5 ed 1f dd f2 68 67 4c 45 44 28 |A%:.......hgLED(|
00041140 41 25 29 3a c8 99 26 34 30 36 43 35 2c 41 25 80 |A%):..&406C5,A%.|
00041150 33 3a e1 0d d5 f2 3f dd f2 69 50 3a e7 24 70 6e |3:....?..iP:.$pn|
00041160 25 3d 22 22 84 24 70 6e 25 3d 22 53 74 61 6e 64 |%="".$pn%="Stand|
00041170 61 72 64 22 84 24 70 6e 25 3d 22 70 74 72 5f 64 |ard".$pn%="ptr_d|
00041180 65 66 61 75 6c 74 22 8c 57 25 21 33 32 3d 2d 31 |efault".W%!32=-1|
00041190 3a e1 0d d5 f7 2a ea 41 25 3a 24 6e 6e 25 3d 24 |:....*.A%:$nn%=$|
000411a0 70 6e 25 3a 41 25 3d a4 66 50 3a e7 41 25 3e 30 |pn%:A%=.fP:.A%>0|
000411b0 8c 57 25 21 33 32 3d 41 25 21 32 30 0d d5 fc 05 |.W%!32=A%!20....|
000411c0 e1 0d d6 01 47 dd f2 70 50 28 41 24 2c 42 25 29 |....G..pP(A$,B%)|
000411d0 3a e7 42 25 3e 30 8c ea 43 25 3a 43 25 3d 57 25 |:.B%>0..C%:C%=W%|
000411e0 3a 57 25 3d a4 77 53 28 42 25 29 3a 24 70 6e 25 |:W%=.wS(B%):$pn%|
000411f0 3d 41 24 3a f2 69 50 3a f2 73 50 28 57 25 21 33 |=A$:.iP:.sP(W%!3|
00041200 32 29 3a 57 25 3d 43 25 0d d6 06 05 e1 0d d6 0b |2):W%=C%........|
00041210 6f dd f2 73 50 28 41 25 29 3a e7 41 25 3e 30 8c |o..sP(A%):.A%>0.|
00041220 c8 99 26 34 30 30 45 39 2c 33 36 2c 2c 24 41 25 |..&400E9,36,,$A%|
00041230 2c 41 25 21 31 36 2c 41 25 21 32 30 2c 41 25 21 |,A%!16,A%!20,A%!|
00041240 32 34 3a 50 25 3d 41 25 3a e7 41 25 21 31 36 80 |24:P%=A%:.A%!16.|
00041250 33 32 8c c8 99 37 2c 31 32 2c 53 25 2b 33 30 30 |32...7,12,S%+300|
00041260 3a c8 99 37 2c 31 32 2c 53 25 2b 33 30 35 3a c8 |:..7,12,S%+305:.|
00041270 99 37 2c 31 32 2c 53 25 2b 33 31 30 0d d6 10 05 |.7,12,S%+310....|
00041280 e1 0d d6 15 47 dd f2 72 50 3a c8 99 26 34 30 30 |....G..rP:..&400|
00041290 44 38 2c 31 2c 2d 31 3a c8 99 37 2c 31 32 2c 53 |D8,1,-1:..7,12,S|
000412a0 25 2b 33 30 30 3a c8 99 37 2c 31 32 2c 53 25 2b |%+300:..7,12,S%+|
000412b0 33 30 35 3a c8 99 37 2c 31 32 2c 53 25 2b 33 31 |305:..7,12,S%+31|
000412c0 30 3a 50 25 3d 30 3a e1 0d d6 1a 57 dd a4 6d 6f |0:P%=0:....W..mo|
000412d0 75 73 65 3a ea 41 25 2c 56 25 3a c8 99 36 2c 31 |use:.A%,V%:..6,1|
000412e0 32 31 2c 31 33 37 b8 2c 41 25 3a 41 25 3d 2d 34 |21,137.,A%:A%=-4|
000412f0 2a 28 41 25 3d 32 35 35 29 3a c8 99 36 2c 31 32 |*(A%=255):..6,12|
00041300 31 2c 31 33 39 b8 2c 56 25 3a e7 56 25 3d 32 35 |1,139.,V%:.V%=25|
00041310 35 8c 56 25 3d 31 84 41 25 8b 56 25 3d 41 25 0d |5.V%=1.A%.V%=A%.|
00041320 d6 1f 07 3d 56 25 0d d6 24 0b 2d 2d 2d 28 c8 98 |...=V%..$.---(..|
00041330 29 0d d6 29 40 dd f2 66 69 6e 3a 5a 25 3d a4 62 |)..)@..fin:Z%=.b|
00041340 45 28 32 36 30 29 3a f2 68 67 53 6d 61 73 68 3a |E(260):.hgSmash:|
00041350 f2 72 50 3a c8 99 26 34 30 30 44 44 2c 21 74 25 |.rP:..&400DD,!t%|
00041360 2c 26 41 42 35 33 34 31 35 34 3a c8 99 31 37 3a |,&AB534154:..17:|
00041370 e1 0d d6 2e 12 2d 2d 2d 28 52 45 53 4f 55 52 43 |.....---(RESOURC|
00041380 45 53 29 0d d6 33 1b dd a4 61 52 28 41 25 29 3a |ES)..3...aR(A%):|
00041390 3d 41 25 2b 34 2b 28 21 41 25 3c 3c 34 29 0d d6 |=A%+4+(!A%<<4)..|
000413a0 38 48 dd a4 66 4d 28 41 24 29 3a ea 41 25 2c 42 |8H..fM(A$):.A%,B|
000413b0 25 2c 43 25 2c 44 25 3a 41 25 3d 53 25 21 34 32 |%,C%,D%:A%=S%!42|
000413c0 34 3a e7 24 41 25 3d 41 24 8c 7a 24 3d 24 28 41 |4:.$A%=A$.z$=$(A|
000413d0 25 2b 31 32 29 3a 21 66 25 3d 41 25 21 32 38 3a |%+12):!f%=A%!28:|
000413e0 3d 41 25 21 32 34 0d d6 3d 1b 24 6e 6e 25 3d 41 |=A%!24..=.$nn%=A|
000413f0 24 3a 43 25 3d a4 67 55 48 3a e7 43 25 3e 2d 31 |$:C%=.gUH:.C%>-1|
00041400 8c 0d d6 42 4c 41 25 3d 53 25 21 35 36 3a f5 44 |...BLA%=S%!56:.D|
00041410 25 3d 41 25 21 31 32 3e 3e 3e 32 34 3a 42 25 3d |%=A%!12>>>24:B%=|
00041420 41 25 3a 41 25 3d 41 25 21 32 38 3a fd 44 25 3d |A%:A%=A%!28:.D%=|
00041430 43 25 84 41 25 3d 30 3a e7 44 25 3d 43 25 8c 44 |C%.A%=0:.D%=C%.D|
00041440 25 3d a4 72 28 42 25 29 8b 44 25 3d 30 0d d6 47 |%=.r(B%).D%=0..G|
00041450 1d cc 41 25 3d 53 25 21 34 30 3a e7 41 25 3e 30 |..A%=S%!40:.A%>0|
00041460 8c 44 25 3d a4 72 28 41 25 29 0d d6 4c 0a e7 44 |.D%=.r(A%)..L..D|
00041470 25 3c 31 8c 0d d6 51 23 41 25 3d 53 25 21 35 36 |%<1...Q#A%=S%!56|
00041480 3a f5 3a e7 41 25 3c 3e 53 25 21 34 30 8c 44 25 |:.:.A%<>S%!40.D%|
00041490 3d a4 72 28 41 25 29 0d d6 56 15 41 25 3d 41 25 |=.r(A%)..V.A%=A%|
000414a0 21 32 38 3a fd 44 25 84 41 25 3d 30 0d d6 5b 22 |!28:.D%.A%=0..["|
000414b0 cd 3a e7 44 25 3e 30 8c 7a 24 3d 24 28 53 25 21 |.:.D%>0.z$=$(S%!|
000414c0 38 34 2b 28 21 66 25 3e 3e 3e 32 34 29 29 0d d6 |84+(!f%>>>24))..|
000414d0 60 48 cd 3a e7 44 25 3e 30 8c 41 25 3d 53 25 21 |`H.:.D%>0.A%=S%!|
000414e0 34 32 34 3a 24 41 25 3d 41 24 3a 24 28 41 25 2b |424:$A%=A$:$(A%+|
000414f0 31 32 29 3d 7a 24 3a 41 25 21 32 34 3d 44 25 21 |12)=z$:A%!24=D%!|
00041500 32 30 3a 41 25 21 32 38 3d 21 66 25 3a 3d 44 25 |20:A%!28=!f%:=D%|
00041510 21 32 30 8b 3d a3 0d d6 65 25 dd a4 66 50 3a ea |!20.=...e%..fP:.|
00041520 41 25 2c 42 25 2c 43 25 2c 44 25 3a 41 25 3d 53 |A%,B%,C%,D%:A%=S|
00041530 25 21 36 38 3a e7 41 25 3e 30 8c 0d d6 6a 13 43 |%!68:.A%>0...j.C|
00041540 25 3d a4 67 55 48 3a e7 43 25 3e 2d 31 8c 0d d6 |%=.gUH:.C%>-1...|
00041550 6f 43 f5 44 25 3d 41 25 21 31 32 3e 3e 3e 32 34 |oC.D%=A%!12>>>24|
00041560 3a 42 25 3d 41 25 3a 41 25 3d 41 25 21 32 38 3a |:B%=A%:A%=A%!28:|
00041570 fd 44 25 3d 43 25 84 41 25 3d 30 3a e7 44 25 3d |.D%=C%.A%=0:.D%=|
00041580 43 25 8c 44 25 3d a4 72 28 41 25 29 8b 44 25 3d |C%.D%=.r(A%).D%=|
00041590 30 0d d6 74 3e cc f5 44 25 3d a4 72 28 41 25 29 |0..t>..D%=.r(A%)|
000415a0 3a 41 25 3d 41 25 21 32 38 3a fd 44 25 84 41 25 |:A%=A%!28:.D%.A%|
000415b0 3d 30 3a e7 44 25 3e 30 8c 7a 24 3d 24 28 53 25 |=0:.D%>0.z$=$(S%|
000415c0 21 38 34 2b 28 21 66 25 3e 3e 3e 32 34 29 29 0d |!84+(!f%>>>24)).|
000415d0 d6 79 05 cd 0d d6 7e 09 cd 3a 3d 44 25 0d d6 83 |.y....~..:=D%...|
000415e0 3a dd a4 66 57 28 41 24 29 3a ea 41 25 2c 42 25 |:..fW(A$):.A%,B%|
000415f0 2c 43 25 2c 44 25 3a 24 6e 6e 25 3d 41 24 3a 41 |,C%,D%:$nn%=A$:A|
00041600 25 3d 53 25 21 36 34 3a 43 25 3d a4 67 55 48 3a |%=S%!64:C%=.gUH:|
00041610 e7 43 25 3e 2d 31 8c 0d d6 88 43 f5 44 25 3d 41 |.C%>-1....C.D%=A|
00041620 25 21 31 32 3e 3e 3e 32 34 3a 42 25 3d 41 25 3a |%!12>>>24:B%=A%:|
00041630 41 25 3d 41 25 21 32 38 3a fd 44 25 3d 43 25 84 |A%=A%!28:.D%=C%.|
00041640 41 25 3d 30 3a e7 44 25 3d 43 25 8c 44 25 3d a4 |A%=0:.D%=C%.D%=.|
00041650 72 28 42 25 29 8b 44 25 3d 30 0d d6 8d 3e cc f5 |r(B%).D%=0...>..|
00041660 44 25 3d a4 72 28 41 25 29 3a 41 25 3d 41 25 21 |D%=.r(A%):A%=A%!|
00041670 32 38 3a fd 44 25 84 41 25 3d 30 3a e7 44 25 3e |28:.D%.A%=0:.D%>|
00041680 30 8c 7a 24 3d 24 28 53 25 21 38 34 2b 28 21 66 |0.z$=$(S%!84+(!f|
00041690 25 3e 3e 3e 32 34 29 29 0d d6 92 20 cd 3a e7 44 |%>>>24))... .:.D|
000416a0 25 3e 30 8c 24 72 6e 25 3d 54 24 28 21 66 25 3e |%>0.$rn%=T$(!f%>|
000416b0 3e 3e 31 36 80 33 31 29 0d d6 97 07 3d 44 25 0d |>>16.31)....=D%.|
000416c0 d6 9c 28 dd a4 66 52 3a ea 41 25 2c 41 24 2c 42 |..(..fR:.A%,A$,B|
000416d0 25 2c 43 25 2c 44 25 3a 41 25 3d 53 25 21 35 32 |%,C%,D%:A%=S%!52|
000416e0 3a e7 41 25 3e 30 8c 0d d6 a1 1b 41 24 3d 24 72 |:.A%>0.....A$=$r|
000416f0 6e 25 3a 43 25 3d a4 67 55 48 3a e7 43 25 3e 2d |n%:C%=.gUH:.C%>-|
00041700 31 8c 0d d6 a6 26 f5 44 25 3d 41 25 21 31 32 3e |1....&.D%=A%!12>|
00041710 3e 3e 32 34 3a e7 24 41 25 3d 41 24 80 44 25 3d |>>24:.$A%=A$.D%=|
00041720 43 25 8c 42 25 3d 41 25 0d d6 ab 2a 41 25 3d 41 |C%.B%=A%...*A%=A|
00041730 25 21 32 38 3a fd 42 25 84 28 41 25 3d 30 29 3a |%!28:.B%.(A%=0):|
00041740 e7 42 25 8c 44 25 3d a4 72 28 42 25 29 8b 44 25 |.B%.D%=.r(B%).D%|
00041750 3d 30 0d d6 b0 18 cc f5 3a e7 24 41 25 3d 41 24 |=0......:.$A%=A$|
00041760 8c 44 25 3d a4 72 28 41 25 29 0d d6 b5 32 41 25 |.D%=.r(A%)...2A%|
00041770 3d 41 25 21 32 38 3a fd 44 25 84 41 25 3d 30 3a |=A%!28:.D%.A%=0:|
00041780 e7 44 25 3e 30 8c 7a 24 3d 24 28 53 25 21 38 34 |.D%>0.z$=$(S%!84|
00041790 2b 28 21 66 25 3e 3e 3e 32 34 29 29 0d d6 ba 05 |+(!f%>>>24))....|
000417a0 cd 0d d6 bf 09 cd 3a 3d 44 25 0d d6 c4 35 dd a4 |......:=D%...5..|
000417b0 72 52 28 41 24 2c 42 24 29 3a ea 41 25 3a 41 25 |rR(A$,B$):.A%:A%|
000417c0 3d a4 66 4d 28 42 24 29 3a e7 41 25 3e 30 8c f2 |=.fM(B$):.A%>0..|
000417d0 63 49 56 28 42 24 2b 22 5f 25 22 2c 41 25 29 0d |cIV(B$+"_%",A%).|
000417e0 d6 c9 07 3d 41 25 0d d6 ce 63 dd a4 72 28 41 25 |...=A%...c..r(A%|
000417f0 29 3a ea 42 25 2c 43 25 2c 44 25 2c 45 24 3a 43 |):.B%,C%,D%,E$:C|
00041800 25 3d 41 25 2b 33 32 2b 41 25 21 31 36 2a 32 34 |%=A%+32+A%!16*24|
00041810 3a 45 24 3d 24 6e 6e 25 3a e3 42 25 3d 41 25 2b |:E$=$nn%:.B%=A%+|
00041820 33 32 b8 43 25 2d 32 34 88 32 34 3a e7 24 42 25 |32.C%-24.24:.$B%|
00041830 3d 45 24 8c 44 25 3d 42 25 3a 42 25 3d 43 25 3a |=E$.D%=B%:B%=C%:|
00041840 21 66 25 3d 44 25 21 31 32 0d d6 d3 0c ed 3a e7 |!f%=D%!12.....:.|
00041850 44 25 3d 30 8c 0d d6 d8 3b 45 24 2b 3d 7a 24 3a |D%=0....;E$+=z$:|
00041860 e3 42 25 3d 41 25 2b 33 32 b8 43 25 2d 32 34 88 |.B%=A%+32.C%-24.|
00041870 32 34 3a e7 24 42 25 3d 45 24 8c 44 25 3d 42 25 |24:.$B%=E$.D%=B%|
00041880 3a 42 25 3d 43 25 3a 21 66 25 3d 44 25 21 31 32 |:B%=C%:!f%=D%!12|
00041890 0d d6 dd 05 ed 0d d6 e2 09 cd 3a 3d 44 25 0d d6 |..........:=D%..|
000418a0 e7 2d dd a4 67 55 48 3a ea 41 25 2c 42 24 2c 43 |.-..gUH:.A%,B$,C|
000418b0 25 2c 44 25 3a 41 25 3d a7 24 6e 6e 25 2c 22 5f |%,D%:A%=.$nn%,"_|
000418c0 22 29 3a e7 41 25 3d 30 8c 3d b9 0d d6 ec 6a 43 |"):.A%=0.=....jC|
000418d0 25 3d b9 3a 42 24 3d c1 24 6e 6e 25 2c 41 25 29 |%=.:B$=.$nn%,A%)|
000418e0 3a 24 6e 6e 25 3d c0 24 6e 6e 25 2c 41 25 2d 31 |:$nn%=.$nn%,A%-1|
000418f0 29 3a 41 25 3d 53 25 21 38 34 3a 42 25 3d 41 25 |):A%=S%!84:B%=A%|
00041900 2b 28 53 25 21 35 36 30 3c 3c 33 29 3a e3 44 25 |+(S%!560<<3):.D%|
00041910 3d 41 25 b8 42 25 88 38 3a e7 24 44 25 3d 42 24 |=A%.B%.8:.$D%=B$|
00041920 8c 43 25 3d 44 25 2d 41 25 3a 44 25 3d 42 25 3a |.C%=D%-A%:D%=B%:|
00041930 7a 24 3d 42 24 0d d6 f1 05 ed 0d d6 f6 07 3d 43 |z$=B$.........=C|
00041940 25 0d d6 fb 3c dd a4 67 43 52 28 42 24 29 3a ea |%...<..gCR(B$):.|
00041950 41 25 3a 24 72 6e 25 3d 22 43 6f 64 65 22 3a 24 |A%:$rn%="Code":$|
00041960 6e 6e 25 3d 42 24 3a 41 25 3d a4 66 52 3a e7 41 |nn%=B$:A%=.fR:.A|
00041970 25 3e 30 8c 3d 41 25 21 32 30 8b 3d 30 0d d7 00 |%>0.=A%!20.=0...|
00041980 3e dd a4 67 55 52 28 42 24 29 3a ea 41 25 3a 24 |>..gUR(B$):.A%:$|
00041990 72 6e 25 3d 22 43 75 73 74 6f 6d 22 3a 24 6e 6e |rn%="Custom":$nn|
000419a0 25 3d 42 24 3a 41 25 3d a4 66 52 3a e7 41 25 3e |%=B$:A%=.fR:.A%>|
000419b0 30 8c 3d 41 25 21 32 30 8b 3d 30 0d d7 05 0e 2d |0.=A%!20.=0....-|
000419c0 2d 2d 28 53 4c 4f 54 53 29 0d d7 0a 20 dd a4 66 |--(SLOTS)... ..f|
000419d0 57 53 28 41 24 29 3a ea 42 25 2c 43 25 2c 44 25 |WS(A$):.B%,C%,D%|
000419e0 3a e7 41 24 3c 3e 22 22 8c 0d d7 0f 3b 43 25 3d |:.A$<>""....;C%=|
000419f0 21 77 25 2b 26 46 30 30 3a e3 44 25 3d 21 77 25 |!w%+&F00:.D%=!w%|
00041a00 b8 43 25 88 32 35 36 3a e7 44 25 21 31 32 3e b9 |.C%.256:.D%!12>.|
00041a10 20 e7 24 44 25 3d 41 24 8c 42 25 3d 44 25 3a 44 | .$D%=A$.B%=D%:D|
00041a20 25 3d 43 25 0d d7 14 05 ed 0d d7 19 09 cd 3a 3d |%=C%..........:=|
00041a30 42 25 0d d7 1e 23 dd a4 6f 57 53 28 41 24 2c 42 |B%...#..oWS(A$,B|
00041a40 25 29 3a ea 43 25 2c 44 25 2c 45 25 3a e7 41 24 |%):.C%,D%,E%:.A$|
00041a50 3c 3e 22 22 8c 0d d7 23 4b 45 25 3d b9 3a 43 25 |<>""...#KE%=.:C%|
00041a60 3d 21 77 25 2b 26 46 30 30 3a e3 44 25 3d 21 77 |=!w%+&F00:.D%=!w|
00041a70 25 b8 43 25 88 32 35 36 3a e7 44 25 21 31 32 3e |%.C%.256:.D%!12>|
00041a80 b9 20 e7 24 44 25 3d 41 24 20 e7 44 25 21 34 38 |. .$D%=A$ .D%!48|
00041a90 3c 3e 42 25 8c 45 25 3d 44 25 3a 44 25 3d 43 25 |<>B%.E%=D%:D%=C%|
00041aa0 0d d7 28 05 ed 0d d7 2d 09 cd 3a 3d 45 25 0d d7 |..(....-..:=E%..|
00041ab0 32 29 dd a4 77 53 28 41 25 29 3a c8 99 26 38 30 |2)..wS(A%):..&80|
00041ac0 44 30 42 2c 30 2c 41 25 2c 2c 2c 53 25 b8 41 25 |D0B,0,A%,,,S%.A%|
00041ad0 2c 7a 24 3a 3d 41 25 0d d7 37 1a dd a4 67 57 53 |,z$:=A%..7...gWS|
00041ae0 28 41 25 29 3a 3d 21 77 25 2b 28 41 25 3c 3c 38 |(A%):=!w%+(A%<<8|
00041af0 29 0d d7 3c 2f dd f2 61 57 53 6d 28 41 25 2c 42 |)..</..aWSm(A%,B|
00041b00 25 29 3a 5a 25 3d a4 61 4c 4c 28 21 77 25 2b 31 |%):Z%=.aLL(!w%+1|
00041b10 39 36 2b 28 41 25 3c 3c 38 29 2c 42 25 29 3a e1 |96+(A%<<8),B%):.|
00041b20 0d d7 41 2f dd f2 64 57 53 6d 28 41 25 2c 42 25 |..A/..dWSm(A%,B%|
00041b30 29 3a 5a 25 3d a4 64 4c 4c 28 21 77 25 2b 31 39 |):Z%=.dLL(!w%+19|
00041b40 36 2b 28 41 25 3c 3c 38 29 2c 42 25 29 3a e1 0d |6+(A%<<8),B%):..|
00041b50 d7 46 cd dd f2 72 57 53 28 41 25 29 3a ea 42 25 |.F...rWS(A%):.B%|
00041b60 2c 43 25 2c 44 25 3a 41 25 3d a4 77 53 28 41 25 |,C%,D%:A%=.wS(A%|
00041b70 29 3a e7 41 25 3e 30 8c 42 25 3d 41 25 21 31 39 |):.A%>0.B%=A%!19|
00041b80 36 3a f2 73 42 77 28 41 25 2c 32 35 36 2c 30 29 |6:.sBw(A%,256,0)|
00041b90 3a 41 25 21 31 32 3d 2d 32 35 35 3a 41 25 21 34 |:A%!12=-255:A%!4|
00041ba0 38 3d 28 41 25 2d 21 77 25 29 81 32 35 36 3a 44 |8=(A%-!w%).256:D|
00041bb0 25 3d 53 25 21 34 34 3a c8 95 42 25 3c 3e 2d 31 |%=S%!44:..B%<>-1|
00041bc0 3a c8 99 32 39 2c 33 2c 44 25 2c 42 25 21 34 3a |:..29,3,D%,B%!4:|
00041bd0 43 25 3d 42 25 3a 42 25 3d 21 42 25 3a c8 99 32 |C%=B%:B%=!B%:..2|
00041be0 39 2c 33 2c 44 25 2c 43 25 3a ce 3a 41 25 21 31 |9,3,D%,C%:.:A%!1|
00041bf0 39 36 3d 2d 31 3a c8 99 32 39 2c 31 2c 44 25 b8 |96=-1:..29,1,D%.|
00041c00 2c 2c 42 25 3a f4 20 49 46 42 25 3e 53 25 21 32 |,,B%:. IFB%>S%!2|
00041c10 39 32 54 48 45 4e 50 52 4f 43 72 48 0d d7 4b 05 |92THENPROCrH..K.|
00041c20 e1 0d d7 50 0a 2d 2d 2d 28 d4 29 0d d7 55 18 dd |...P.---(.)..U..|
00041c30 f2 73 6f 75 6e 64 28 44 25 29 3a c8 8e 44 25 83 |.sound(D%):..D%.|
00041c40 31 36 ca 0d d7 5a 06 c9 30 0d d7 5f 0c c9 31 3a |16...Z..0.._..1:|
00041c50 f2 62 65 65 70 0d d7 64 12 c9 32 3a d4 31 2c 2d |.beep..d..2:.1,-|
00041c60 35 2c 32 30 30 2c 33 0d d7 69 12 c9 33 3a d4 31 |5,200,3..i..3:.1|
00041c70 2c 2d 31 30 2c 37 35 2c 35 0d d7 6e 12 c9 34 3a |,-10,75,5..n..4:|
00041c80 d4 31 2c 2d 35 2c 32 30 30 2c 37 0d d7 73 1d c9 |.1,-5,200,7..s..|
00041c90 35 3a f2 62 65 65 70 3a f2 70 61 75 73 65 28 33 |5:.beep:.pause(3|
00041ca0 30 29 3a f2 62 65 65 70 0d d7 78 29 c9 36 3a d4 |0):.beep..x).6:.|
00041cb0 31 2c 2d 35 2c 32 30 30 2c 33 3a f2 70 61 75 73 |1,-5,200,3:.paus|
00041cc0 65 28 33 30 29 3a d4 31 2c 2d 35 2c 32 30 30 2c |e(30):.1,-5,200,|
00041cd0 33 0d d7 7d 29 c9 37 3a d4 31 2c 2d 31 30 2c 37 |3..}).7:.1,-10,7|
00041ce0 35 2c 35 3a f2 70 61 75 73 65 28 33 30 29 3a d4 |5,5:.pause(30):.|
00041cf0 31 2c 2d 31 30 2c 37 35 2c 35 0d d7 82 11 7f 3a |1,-10,75,5.....:|
00041d00 f2 73 6f 75 6e 64 5f 28 44 25 29 0d d7 87 05 cb |.sound_(D%).....|
00041d10 0d d7 8c 05 e1 0d d7 91 19 dd f2 62 65 65 70 3a |...........beep:|
00041d20 d4 31 2c 2d 31 30 2c 31 30 30 2c 35 3a e1 0d d7 |.1,-10,100,5:...|
00041d30 96 12 dd f2 73 6f 75 6e 64 5f 28 44 25 29 3a e1 |....sound_(D%):.|
00041d40 0d d7 9b 10 2d 2d 2d 28 53 54 52 49 4e 47 53 29 |....---(STRINGS)|
00041d50 0d d7 a0 35 dd a4 70 61 64 52 28 41 24 2c 42 25 |...5..padR(A$,B%|
00041d60 29 3a 42 25 3d 94 42 25 80 32 35 35 3a 3d c0 a4 |):B%=.B%.255:=..|
00041d70 74 72 6d 4c 28 41 24 29 2b c4 42 25 2c 22 20 22 |trmL(A$)+.B%," "|
00041d80 29 2c 42 25 29 0d d7 a5 35 dd a4 70 61 64 4c 28 |),B%)...5..padL(|
00041d90 41 24 2c 42 25 29 3a 42 25 3d 94 42 25 80 32 35 |A$,B%):B%=.B%.25|
00041da0 35 3a 3d c2 c4 42 25 2c 22 20 22 29 2b a4 74 72 |5:=..B%," ")+.tr|
00041db0 6d 52 28 41 24 29 2c 42 25 29 0d d7 aa 2b dd a4 |mR(A$),B%)...+..|
00041dc0 74 72 6d 4c 28 41 24 29 3a c8 95 c0 41 24 2c 31 |trmL(A$):...A$,1|
00041dd0 29 3d 22 20 22 3a 41 24 3d c1 41 24 2c 32 29 3a |)=" ":A$=.A$,2):|
00041de0 ce 3a 3d 41 24 0d d7 af 29 dd a4 74 72 6d 52 28 |.:=A$...)..trmR(|
00041df0 41 24 29 3a c8 95 c2 41 24 2c 31 29 3d 22 20 22 |A$):...A$,1)=" "|
00041e00 3a 41 24 3d c0 41 24 29 3a ce 3a 3d 41 24 0d d7 |:A$=.A$):.:=A$..|
00041e10 b4 3e dd a4 74 72 6d 53 28 41 24 2c 42 25 29 3a |.>..trmS(A$,B%):|
00041e20 41 24 3d a4 74 72 6d 4c 28 41 24 29 3a 41 24 3d |A$=.trmL(A$):A$=|
00041e30 a4 74 72 6d 52 28 41 24 29 3a e7 42 25 3e 30 8c |.trmR(A$):.B%>0.|
00041e40 3d c0 41 24 2c 42 25 29 8b 3d 41 24 0d d7 b9 2b |=.A$,B%).=A$...+|
00041e50 dd a4 74 72 75 6e 63 28 41 24 2c 42 25 29 3a e7 |..trunc(A$,B%):.|
00041e60 a9 41 24 3e 42 25 8c 41 24 3d 22 2e 2e 2e 22 2b |.A$>B%.A$="..."+|
00041e70 c2 41 24 2c 42 25 29 0d d7 be 07 3d 41 24 0d d7 |.A$,B%)....=A$..|
00041e80 c3 51 dd a4 74 6f 4c 43 28 41 24 29 3a ea 42 25 |.Q..toLC(A$):.B%|
00041e90 2c 43 24 3a e3 42 25 3d 31 b8 a9 28 41 24 29 3a |,C$:.B%=1..(A$):|
00041ea0 43 24 3d c1 41 24 2c 42 25 2c 31 29 3a e7 43 24 |C$=.A$,B%,1):.C$|
00041eb0 3e 22 40 22 80 43 24 3c 22 5b 22 8c c1 41 24 2c |>"@".C$<"["..A$,|
00041ec0 42 25 2c 31 29 3d bd 28 97 43 24 2b 33 32 29 0d |B%,1)=.(.C$+32).|
00041ed0 d7 c8 09 ed 3a 3d 41 24 0d d7 cd 51 dd a4 74 6f |....:=A$...Q..to|
00041ee0 55 43 28 41 24 29 3a ea 42 25 2c 43 24 3a e3 42 |UC(A$):.B%,C$:.B|
00041ef0 25 3d 31 b8 a9 28 41 24 29 3a 43 24 3d c1 41 24 |%=1..(A$):C$=.A$|
00041f00 2c 42 25 2c 31 29 3a e7 43 24 3e 22 60 22 80 43 |,B%,1):.C$>"`".C|
00041f10 24 3c 22 7b 22 8c c1 41 24 2c 42 25 2c 31 29 3d |$<"{"..A$,B%,1)=|
00041f20 bd 28 97 43 24 2d 33 32 29 0d d7 d2 09 ed 3a 3d |.(.C$-32).....:=|
00041f30 41 24 0d d7 d7 27 dd f2 70 43 52 28 41 25 29 3a |A$...'..pCR(A%):|
00041f40 c8 95 3f 41 25 3e 33 31 3a 41 25 2b 3d 31 3a ce |..?A%>31:A%+=1:.|
00041f50 3a 3f 41 25 3d 31 33 3a e1 0d d7 dc 25 dd f2 70 |:?A%=13:....%..p|
00041f60 5a 28 41 25 29 3a c8 95 3f 41 25 3e 33 31 3a 41 |Z(A%):..?A%>31:A|
00041f70 25 2b 3d 31 3a ce 3a 3f 41 25 3d 30 3a e1 0d d7 |%+=1:.:?A%=0:...|
00041f80 e1 4f dd a4 70 53 28 f8 20 41 24 2c 44 24 29 3a |.O..pS(. A$,D$):|
00041f90 ea 56 24 2c 43 25 3a 43 25 3d a7 41 24 2c 44 24 |.V$,C%:C%=.A$,D$|
00041fa0 29 3a e7 43 25 3d 30 8c 56 24 3d 41 24 3a 41 24 |):.C%=0.V$=A$:A$|
00041fb0 3d 22 22 8b 56 24 3d c0 41 24 2c 43 25 2d 31 29 |="".V$=.A$,C%-1)|
00041fc0 3a 41 24 3d c1 41 24 2c 43 25 2b 31 29 0d d7 e6 |:A$=.A$,C%+1)...|
00041fd0 07 3d 56 24 0d d7 eb 6d dd a4 70 56 28 41 24 2c |.=V$...m..pV(A$,|
00041fe0 42 24 29 3a ea 43 24 3a 42 24 3d a4 74 6f 55 43 |B$):.C$:B$=.toUC|
00041ff0 28 c0 42 24 2c 31 29 29 3a 43 24 3d 22 22 3a c8 |(.B$,1)):C$="":.|
00042000 95 41 24 3c 3e 22 22 80 a4 74 6f 55 43 28 c0 43 |.A$<>""..toUC(.C|
00042010 24 2c 31 29 29 3c 3e 42 24 3a 43 24 3d a4 70 53 |$,1))<>B$:C$=.pS|
00042020 28 41 24 2c 22 2c 22 29 3a ce 3a e7 c0 43 24 2c |(A$,","):.:..C$,|
00042030 31 29 3d 42 24 8c 3d c1 43 24 2c 32 29 8b 3d 22 |1)=B$.=.C$,2).="|
00042040 22 0d d7 f0 68 dd a4 61 56 28 41 24 2c 42 24 29 |"...h..aV(A$,B$)|
00042050 3a ea 43 24 2c 44 24 2c 45 24 2c 46 25 3a 44 24 |:.C$,D$,E$,F%:D$|
00042060 3d a4 74 6f 55 43 28 c0 42 24 2c 31 29 29 3a 45 |=.toUC(.B$,1)):E|
00042070 24 3d 22 22 3a c8 95 41 24 3c 3e 22 22 3a 43 24 |$="":..A$<>"":C$|
00042080 3d a4 70 53 28 41 24 2c 22 2c 22 29 3a e7 a4 74 |=.pS(A$,","):..t|
00042090 6f 55 43 28 c0 43 24 2c 31 29 29 3d 44 24 8c 43 |oUC(.C$,1))=D$.C|
000420a0 24 3d 42 24 3a 46 25 3d b9 0d d7 f5 1c 45 24 2b |$=B$:F%=.....E$+|
000420b0 3d 43 24 2b 22 2c 22 3a ce 3a e7 ac 46 25 8c 45 |=C$+",":.:..F%.E|
000420c0 24 2b 3d 42 24 0d d7 fa 15 e7 c2 45 24 29 3d 22 |$+=B$......E$)="|
000420d0 2c 22 8c 45 24 3d c0 45 24 29 0d d7 ff 07 3d 45 |,".E$=.E$)....=E|
000420e0 24 0d d8 04 72 dd a4 64 56 28 41 24 2c 42 24 29 |$...r..dV(A$,B$)|
000420f0 3a ea 43 24 2c 44 24 2c 45 24 3a 44 24 3d a4 74 |:.C$,D$,E$:D$=.t|
00042100 6f 55 43 28 c0 42 24 2c 31 29 29 3a 45 24 3d 22 |oUC(.B$,1)):E$="|
00042110 22 3a c8 95 41 24 3c 3e 22 22 3a 43 24 3d a4 70 |":..A$<>"":C$=.p|
00042120 53 28 41 24 2c 22 2c 22 29 3a e7 a4 74 6f 55 43 |S(A$,","):..toUC|
00042130 28 c0 43 24 2c 31 29 29 3d 44 24 8c 43 24 3d 22 |(.C$,1))=D$.C$="|
00042140 22 3a e7 c2 45 24 29 3d 22 2c 22 8c 45 24 3d c0 |":..E$)=",".E$=.|
00042150 45 24 29 0d d8 09 22 45 24 2b 3d 43 24 2b 22 2c |E$)..."E$+=C$+",|
00042160 22 3a ce 3a e7 c2 45 24 29 3d 22 2c 22 8c 45 24 |":.:..E$)=",".E$|
00042170 3d c0 45 24 29 0d d8 0e 07 3d 45 24 0d d8 13 60 |=.E$)....=E$...`|
00042180 dd a4 67 53 77 28 41 24 2c 42 25 29 3a ea 43 25 |..gSw(A$,B%):.C%|
00042190 3a 43 25 3d 26 37 30 30 30 30 30 30 30 3a c8 99 |:C%=&70000000:..|
000421a0 26 34 30 30 38 41 2c 42 25 3a c8 99 26 34 30 30 |&4008A,B%:..&400|
000421b0 38 35 2c 2c 41 24 2c 43 25 2c 43 25 2c 2d 31 2c |85,,A$,C%,C%,-1,|
000421c0 43 25 b8 2c 2c 43 25 3a c8 99 26 34 30 30 38 38 |C%.,,C%:..&40088|
000421d0 2c 2c 43 25 b8 2c 43 25 3a 3d 43 25 0d d8 18 41 |,,C%.,C%:=C%...A|
000421e0 dd a4 64 47 53 54 28 41 24 29 3a ea 42 25 2c 43 |..dGST(A$):.B%,C|
000421f0 25 3a 42 25 3d 53 25 21 31 32 30 3a c8 99 33 39 |%:B%=S%!120:..39|
00042200 2c 41 24 2c 42 25 2c 32 35 35 b8 2c 2c 43 25 3a |,A$,B%,255.,,C%:|
00042210 42 25 3f 43 25 3d 31 33 3a 3d 24 42 25 0d d8 1d |B%?C%=13:=$B%...|
00042220 5e dd a4 63 64 53 28 41 24 29 3a ea 43 25 2c 44 |^..cdS(A$):.C%,D|
00042230 25 3a 5a 25 3d b3 28 2d 31 2a 97 41 24 29 3a e3 |%:Z%=.(-1*.A$):.|
00042240 43 25 3d 32 b8 a9 28 41 24 29 3a 44 25 3d 97 28 |C%=2..(A$):D%=.(|
00042250 c1 41 24 2c 43 25 2c 31 29 29 82 28 31 32 38 2b |.A$,C%,1)).(128+|
00042260 b3 28 31 32 37 29 29 3a c1 41 24 2c 43 25 2c 31 |.(127)):.A$,C%,1|
00042270 29 3d bd 44 25 3a ed 3a 3d 41 24 0d d8 22 27 dd |)=.D%:.:=A$.."'.|
00042280 a4 76 61 6c 28 41 24 29 3a ea 42 25 3a c8 99 26 |.val(A$):.B%:..&|
00042290 32 30 30 32 31 2c 2c 41 24 b8 2c 2c 42 25 3a 3d |20021,,A$.,,B%:=|
000422a0 42 25 0d d8 27 31 dd a4 74 6f 53 28 41 25 29 3a |B%..'1..toS(A%):|
000422b0 ea 42 24 3a 42 24 3d c4 38 2c 22 30 22 29 3a c8 |.B$:B$=.8,"0"):.|
000422c0 99 32 31 32 2c 41 25 2c 42 24 2c 39 b8 42 24 3a |.212,A%,B$,9.B$:|
000422d0 3d 42 24 0d d8 2c 25 dd a4 74 6f 49 28 41 24 29 |=B$..,%..toI(A$)|
000422e0 3a ea 42 25 3a c8 99 33 33 2c 31 36 2c 41 24 b8 |:.B%:..33,16,A$.|
000422f0 2c 2c 42 25 3a 3d 42 25 0d d8 31 0a 2d 2d 2d 28 |,,B%:=B%..1.---(|
00042300 91 29 0d d8 36 1f dd f2 70 61 75 73 65 28 41 25 |.)..6...pause(A%|
00042310 29 3a 41 25 2b 3d 91 3a f5 fd 41 25 3c 3d 91 3a |):A%+=.:..A%<=.:|
00042320 e1 0d d8 3b 2b dd f2 77 61 69 74 3a d4 31 2c 2d |...;+..wait:.1,-|
00042330 31 30 2c 31 30 30 2c 32 3a f5 fd a6 28 31 30 29 |10,100,2:...(10)|
00042340 3d 2d 31 3a f5 fd a5 3d 33 32 3a e1 0d d8 40 21 |=-1:...=32:...@!|
00042350 dd a4 64 61 74 65 3a ea 41 24 3a 41 24 3d 91 24 |..date:.A$:A$=.$|
00042360 3a 3d a4 70 53 28 41 24 2c 22 2e 22 29 0d d8 45 |:=.pS(A$,".")..E|
00042370 27 dd a4 74 69 6d 65 3a ea 41 24 3a 41 24 3d 91 |'..time:.A$:A$=.|
00042380 24 3a 5a 24 3d a4 70 53 28 41 24 2c 22 2e 22 29 |$:Z$=.pS(A$,".")|
00042390 3a 3d 41 24 0d d8 4a 12 2d 2d 2d 28 56 41 52 49 |:=A$..J.---(VARI|
000423a0 41 42 4c 45 53 29 0d d8 4f 24 dd a4 72 4d 56 28 |ABLES)..O$..rMV(|
000423b0 41 25 2c 42 25 29 3a c8 99 35 33 2c 41 25 2c 42 |A%,B%):..53,A%,B|
000423c0 25 b8 2c 2c 41 25 3a 3d 41 25 0d d8 54 2c dd a4 |%.,,A%:=A%..T,..|
000423d0 72 56 56 28 41 25 29 3a 21 4f 25 3d 41 25 3a 4f |rVV(A%):!O%=A%:O|
000423e0 25 21 34 3d 2d 31 3a c8 99 34 39 2c 4f 25 2c 4f |%!4=-1:..49,O%,O|
000423f0 25 3a 3d 21 4f 25 0d d8 59 43 dd a4 67 53 56 28 |%:=!O%..YC..gSV(|
00042400 41 24 29 3a ea 42 24 3a 42 24 3d c4 32 34 38 2c |A$):.B$:B$=.248,|
00042410 22 20 22 29 3a c8 99 26 32 30 30 32 33 2c 41 24 |" "):..&20023,A$|
00042420 2c 42 24 2c 32 34 38 b8 2c 42 24 3a 3d a4 74 72 |,B$,248.,B$:=.tr|
00042430 6d 53 28 42 24 2c 2d 31 29 0d d8 5e 2d dd a4 78 |mS(B$,-1)..^-..x|
00042440 53 56 28 41 24 29 3a ea 42 25 3a c8 99 26 32 30 |SV(A$):.B%:..&20|
00042450 30 32 33 2c 41 24 2c 2c 2d 31 2c 2c 33 b8 2c 2c |023,A$,,-1,,3.,,|
00042460 42 25 3a 3d 42 25 0d d8 63 3d dd f2 63 49 56 28 |B%:=B%..c=..cIV(|
00042470 41 24 2c 42 25 29 3a ea 41 25 3a 41 24 2b 3d 22 |A$,B%):.A%:A$+="|
00042480 25 22 3a 41 25 3d 53 25 21 31 32 30 3a 24 41 25 |%":A%=S%!120:$A%|
00042490 3d 41 24 3a d6 21 28 53 25 21 31 36 34 2b 31 36 |=A$:.!(S%!164+16|
000424a0 29 3a e1 0d d8 68 10 2d 2d 2d 28 57 49 4e 44 4f |):...h.---(WINDO|
000424b0 57 53 29 0d d8 6d 0a dd a4 77 3a 3d b9 0d d8 72 |WS)..m...w:=...r|
000424c0 55 dd a4 77 69 6e 64 6f 77 28 41 24 29 3a ea 41 |U..window(A$):.A|
000424d0 25 2c 42 25 2c 42 24 2c 43 25 2c 43 24 2c 44 25 |%,B%,B$,C%,C$,D%|
000424e0 2c 45 25 2c 46 25 2c 47 25 2c 48 25 2c 56 25 3a |,E%,F%,G%,H%,V%:|
000424f0 56 25 3d a3 3a ea 85 3a ee 85 ea 3a f7 20 85 3a |V%=.:..:...:. .:|
00042500 53 25 21 31 35 32 3d 32 3a f2 65 72 72 6f 72 3a |S%!152=2:.error:|
00042510 3d a3 0d d8 77 1f 24 77 6e 25 3d 41 24 3a 43 25 |=...w.$wn%=A$:C%|
00042520 3d a4 66 57 28 41 24 29 3a e7 43 25 3d 30 8c 3d |=.fW(A$):.C%=0.=|
00042530 a3 0d d8 7c 39 42 24 3d 24 72 6e 25 3a e7 42 24 |...|9B$=$rn%:.B$|
00042540 3d 22 54 6f 6f 6c 73 22 80 53 25 21 31 34 30 3d |="Tools".S%!140=|
00042550 2d 31 8c 53 25 21 31 34 30 3d 57 25 21 31 32 3a |-1.S%!140=W%!12:|
00042560 53 25 21 31 34 34 3d 21 69 25 0d d8 81 09 c8 8e |S%!144=!i%......|
00042570 b9 20 ca 0d d8 86 1c c9 53 25 21 33 33 36 3e 30 |. ......S%!336>0|
00042580 3a 41 25 3d a4 77 53 28 53 25 21 33 33 36 29 0d |:A%=.wS(S%!336).|
00042590 d8 8b 1f c9 28 21 66 25 3e 3e 3e 31 32 80 31 29 |....(!f%>>>12.1)|
000425a0 3d 30 3a 41 25 3d a4 66 57 53 28 41 24 29 0d d8 |=0:A%=.fWS(A$)..|
000425b0 90 0a 7f 3a 41 25 3d 30 0d d8 95 3b cb 3a e7 41 |...:A%=0...;.:.A|
000425c0 25 3e 30 8c 56 25 3d b9 3a 57 25 3d 41 25 3a 43 |%>0.V%=.:W%=A%:C|
000425d0 24 3d 24 28 53 25 21 38 34 2b 57 25 21 31 36 29 |$=$(S%!84+W%!16)|
000425e0 3a 21 68 25 3d 57 25 21 31 32 3a 4e 25 3d 57 25 |:!h%=W%!12:N%=W%|
000425f0 21 34 38 0d d8 9a 09 e7 ac 56 25 8c 0d d8 9f 4a |!48......V%....J|
00042600 45 25 3d 21 77 25 2b 26 45 30 30 3a 41 25 3d 21 |E%=!w%+&E00:A%=!|
00042610 77 25 2b 32 35 36 3a c8 95 41 25 21 31 32 3c 3e |w%+256:..A%!12<>|
00042620 2d 32 35 35 80 41 25 3c 45 25 3a 41 25 2b 3d 32 |-255.A%<E%:A%+=2|
00042630 35 36 3a ce 3a e7 41 25 21 31 32 3c 3e 2d 32 35 |56:.:.A%!12<>-25|
00042640 35 8c 41 25 3d 30 0d d8 a4 4f e7 41 25 3d 30 8c |5.A%=0...O.A%=0.|
00042650 f2 6d 6f 61 6e 28 22 4e 6f 20 6d 6f 72 65 20 77 |.moan("No more w|
00042660 69 6e 64 6f 77 73 20 61 76 61 69 6c 61 62 6c 65 |indows available|
00042670 2e 20 50 6c 65 61 73 65 20 63 6c 6f 73 65 20 73 |. Please close s|
00042680 6f 6d 65 20 74 6f 20 63 6f 6e 74 69 6e 75 65 2e |ome to continue.|
00042690 22 29 3a 3d a3 0d d8 a9 e2 57 25 3d 41 25 3a 57 |"):=.....W%=A%:W|
000426a0 25 21 31 32 3d b9 3a 4e 25 3d 57 25 21 34 38 3a |%!12=.:N%=W%!48:|
000426b0 24 57 25 3d 24 77 6e 25 3a 21 61 25 3d 43 25 21 |$W%=$wn%:!a%=C%!|
000426c0 32 30 3a 57 25 21 31 36 3d 21 66 25 3e 3e 3e 32 |20:W%!16=!f%>>>2|
000426d0 34 3a 43 24 3d 24 28 53 25 21 38 34 2b 57 25 21 |4:C$=$(S%!84+W%!|
000426e0 31 36 29 3a 24 28 57 25 2b 32 30 29 3d 24 72 6e |16):$(W%+20)=$rn|
000426f0 25 3a 57 25 21 33 36 3d 21 66 25 3a 57 25 21 34 |%:W%!36=!f%:W%!4|
00042700 34 3d 21 61 25 3a 24 70 6e 25 3d 24 28 21 61 25 |4=!a%:$pn%=$(!a%|
00042710 2b 32 30 29 3a f2 69 50 3a 24 6d 6e 25 3d 24 28 |+20):.iP:$mn%=$(|
00042720 21 61 25 2b 34 29 3a 57 25 21 36 30 3d 21 28 21 |!a%+4):W%!60=!(!|
00042730 61 25 2b 34 34 29 3a 57 25 21 36 34 3d 21 28 53 |a%+44):W%!64=!(S|
00042740 25 21 36 30 2b 28 57 25 21 31 36 3e 3e 3e 31 29 |%!60+(W%!16>>>1)|
00042750 29 3a 57 25 21 38 30 3d 33 32 3a 57 25 21 38 34 |):W%!80=32:W%!84|
00042760 3d 33 32 30 3a 57 25 21 38 38 3d 33 32 3a 57 25 |=320:W%!88=32:W%|
00042770 21 39 32 3d 33 32 30 0d d8 ae 1d e7 24 6d 6e 25 |!92=320.....$mn%|
00042780 3d 22 44 65 66 61 75 6c 74 22 8c 24 6d 6e 25 3d |="Default".$mn%=|
00042790 24 77 6e 25 0d d8 b3 59 57 25 21 35 36 3d 21 28 |$wn%...YW%!56=!(|
000427a0 21 61 25 2b 33 36 29 3a 57 25 21 35 32 3d 30 3a |!a%+36):W%!52=0:|
000427b0 e7 57 25 21 35 36 3e 30 8c 57 25 21 35 32 3d a4 |.W%!56>0.W%!52=.|
000427c0 67 48 73 28 57 25 21 34 38 2c 57 25 21 35 36 29 |gHs(W%!48,W%!56)|
000427d0 3a e7 57 25 21 35 32 3e 30 8c f2 73 42 77 28 57 |:.W%!52>0..sBw(W|
000427e0 25 21 35 32 2c 57 25 21 35 36 2c 30 29 0d d8 b8 |%!52,W%!56,0)...|
000427f0 97 52 25 3d 31 39 35 3a 5a 25 3d a0 28 22 46 4e |.R%=195:Z%=.("FN|
00042800 65 22 2b 43 24 29 3a 24 28 57 25 2b 31 32 34 29 |e"+C$):$(W%+124)|
00042810 3d 24 6d 6e 25 3a 5a 25 3d a4 69 57 4d 3a c8 99 |=$mn%:Z%=.iWM:..|
00042820 36 36 b8 41 25 3a 57 25 21 31 33 36 3d 41 25 3a |66.A%:W%!136=A%:|
00042830 24 28 57 25 2b 32 30 30 29 3d 22 22 3a 57 25 21 |$(W%+200)="":W%!|
00042840 31 37 32 3d 21 28 21 61 25 2b 36 34 29 3a e7 57 |172=!(!a%+64):.W|
00042850 25 21 31 37 32 3e 30 8c 57 25 21 31 38 30 3d 21 |%!172>0.W%!180=!|
00042860 28 57 25 21 31 37 32 29 3a 57 25 21 31 37 32 2b |(W%!172):W%!172+|
00042870 3d 34 8b 57 25 21 31 37 36 3d 30 3a 57 25 21 31 |=4.W%!176=0:W%!1|
00042880 38 30 3d 30 0d d8 bd 3d 47 25 3d 43 25 21 31 36 |80=0...=G%=C%!16|
00042890 2d 39 32 2d 28 21 28 21 61 25 29 3c 3c 34 29 3a |-92-(!(!a%)<<4):|
000428a0 43 25 3d a4 61 52 28 21 61 25 29 3a 47 25 2d 3d |C%=.aR(!a%):G%-=|
000428b0 43 25 21 38 34 3c 3c 35 3a e7 47 25 3c 30 8c 3d |C%!84<<5:.G%<0.=|
000428c0 a3 0d d8 c2 2e f2 63 42 28 43 25 2c 51 25 2b 34 |......cB(C%,Q%+4|
000428d0 2c 38 38 2b 28 43 25 21 38 34 3c 3c 35 29 29 3a |,88+(C%!84<<5)):|
000428e0 e7 28 47 25 2b 57 25 21 31 38 30 29 3e 30 8c 0d |.(G%+W%!180)>0..|
000428f0 d8 c7 25 48 25 3d a4 67 48 73 28 57 25 21 34 38 |..%H%=.gHs(W%!48|
00042900 2c 47 25 2b 57 25 21 31 38 30 29 3a e7 48 25 3d |,G%+W%!180):.H%=|
00042910 30 8c 3d a3 0d d8 cc 4b 57 25 21 31 34 34 3d 48 |0.=....KW%!144=H|
00042920 25 3a 57 25 21 31 34 38 3d 47 25 3a 57 25 21 31 |%:W%!148=G%:W%!1|
00042930 37 36 3d 48 25 2b 47 25 3a e7 47 25 3e 30 80 48 |76=H%+G%:.G%>0.H|
00042940 25 3e 30 8c f2 63 42 28 43 25 2b 38 38 2b 28 43 |%>0..cB(C%+88+(C|
00042950 25 21 38 34 3c 3c 35 29 2c 48 25 2c 47 25 29 0d |%!84<<5),H%,G%).|
00042960 d8 d1 0a e7 48 25 3e 30 8c 0d d8 d6 25 e7 51 25 |....H%>0....%.Q%|
00042970 21 36 30 80 32 35 36 8c 51 25 21 37 36 2b 3d 48 |!60.256.Q%!76+=H|
00042980 25 3a 57 25 21 31 34 30 3d 51 25 21 37 36 0d d8 |%:W%!140=Q%!76..|
00042990 db 45 e3 46 25 3d 51 25 2b 31 30 38 b8 51 25 2b |.E.F%=Q%+108.Q%+|
000429a0 37 36 2b 28 43 25 21 38 34 3c 3c 35 29 88 33 32 |76+(C%!84<<5).32|
000429b0 3a e7 21 46 25 80 32 35 36 8c 46 25 21 34 2b 3d |:.!F%.256.F%!4+=|
000429c0 48 25 3a e7 46 25 21 38 3e 30 8c 46 25 21 38 2b |H%:.F%!8>0.F%!8+|
000429d0 3d 48 25 0d d8 e0 5f ed 3a e7 57 25 21 31 37 32 |=H%..._.:.W%!172|
000429e0 3e 30 8c f2 63 42 28 57 25 21 31 37 32 2c 57 25 |>0..cB(W%!172,W%|
000429f0 21 31 37 36 2c 57 25 21 31 38 30 29 3a 57 25 21 |!176,W%!180):W%!|
00042a00 31 37 32 2b 3d 57 25 21 31 38 30 3a e3 46 25 3d |172+=W%!180:.F%=|
00042a10 57 25 21 31 37 36 b8 57 25 21 31 37 36 2b 57 25 |W%!176.W%!176+W%|
00042a20 21 31 38 30 2d 34 88 34 3a 21 46 25 2b 3d 48 25 |!180-4.4:!F%+=H%|
00042a30 3a ed 0d d8 e5 05 cd 0d d8 ea 1f cc 57 25 21 31 |:...........W%!1|
00042a40 34 34 3d 30 3a 57 25 21 31 34 38 3d 30 3a 57 25 |44=0:W%!148=0:W%|
00042a50 21 31 37 36 3d 30 0d d8 ef 43 cd 3a e7 57 25 21 |!176=0...C.:.W%!|
00042a60 33 36 80 32 8c 57 25 21 32 32 30 3d 30 8b e7 21 |36.2.W%!220=0..!|
00042a70 28 53 25 21 33 32 2b 33 36 29 80 32 8c 57 25 21 |(S%!32+36).2.W%!|
00042a80 32 32 30 3d 21 28 53 25 21 33 32 2b 34 38 29 8b |220=!(S%!32+48).|
00042a90 57 25 21 32 32 30 3d 2d 31 0d d8 f4 1e 24 72 6e |W%!220=-1....$rn|
00042aa0 25 3d 24 28 57 25 2b 32 30 29 3a 45 25 3d 30 3a |%=$(W%+20):E%=0:|
00042ab0 c8 8e 24 72 6e 25 ca 0d d8 f9 74 c9 22 44 69 61 |..$rn%....t."Dia|
00042ac0 6c 6f 67 22 2c 22 53 63 72 6f 6c 6c 22 2c 22 54 |log","Scroll","T|
00042ad0 6f 6f 6c 73 22 2c 22 56 69 65 77 22 2c 22 44 61 |ools","View","Da|
00042ae0 74 61 50 61 64 22 3a e3 42 25 3d 31 b8 31 34 3a |taPad":.B%=1.14:|
00042af0 44 25 3d a4 67 57 53 28 42 25 29 3a e7 44 25 21 |D%=.gWS(B%):.D%!|
00042b00 31 32 3e b9 20 8c e7 24 44 25 3d 24 77 6e 25 8c |12>. ..$D%=$wn%.|
00042b10 e7 44 25 21 31 33 36 3e 3d 45 25 8c 45 25 3d 44 |.D%!136>=E%.E%=D|
00042b20 25 21 31 33 36 3a 46 25 3d 44 25 0d d8 fe 4a ed |%!136:F%=D%...J.|
00042b30 3a e7 45 25 3e 30 8c 42 25 3d 46 25 21 31 30 38 |:.E%>0.B%=F%!108|
00042b40 2d 34 38 3a e7 42 25 2d 51 25 21 31 36 2b 51 25 |-48:.B%-Q%!16+Q%|
00042b50 21 38 3e 3d 31 32 38 8c 46 25 3d 51 25 21 31 36 |!8>=128.F%=Q%!16|
00042b60 3a 51 25 21 31 36 3d 42 25 3a 51 25 21 38 2d 3d |:Q%!16=B%:Q%!8-=|
00042b70 46 25 2d 42 25 0d d9 03 2e cb 3a 52 25 3d 31 39 |F%-B%.....:R%=19|
00042b80 33 3a 56 25 3d a0 28 22 46 4e 65 22 2b 43 24 29 |3:V%=.("FNe"+C$)|
00042b90 3a e7 56 25 80 43 24 3c 3e 22 5f 22 8c 56 25 3d |:.V%.C$<>"_".V%=|
00042ba0 a4 65 5f 0d d9 08 19 e7 24 72 6e 25 3d 22 44 61 |.e_.....$rn%="Da|
00042bb0 74 61 50 61 64 22 8c f2 64 50 61 64 0d d9 0d 73 |taPad"..dPad...s|
00042bc0 c8 99 26 34 30 30 43 31 2c 2c 51 25 2b 34 b8 21 |..&400C1,,Q%+4.!|
00042bd0 68 25 3a 57 25 21 31 32 3d 21 68 25 3a 21 51 25 |h%:W%!12=!h%:!Q%|
00042be0 3d 21 68 25 3a 57 25 21 31 30 38 3d 51 25 21 31 |=!h%:W%!108=Q%!1|
00042bf0 36 3a e7 53 25 21 31 37 36 80 28 31 3c 3c 37 29 |6:.S%!176.(1<<7)|
00042c00 8c f2 69 57 47 3a c8 99 26 34 30 30 43 31 2c 2c |..iWG:..&400C1,,|
00042c10 51 25 2b 34 b8 21 68 25 3a c8 99 26 34 30 30 43 |Q%+4.!h%:..&400C|
00042c20 33 2c 2c 51 25 3a 57 25 21 31 32 3d 21 68 25 0d |3,,Q%:W%!12=!h%.|
00042c30 d9 12 1e e7 53 25 21 31 37 36 80 28 31 3c 3c 36 |....S%!176.(1<<6|
00042c40 29 8c f2 70 45 6f 28 57 25 21 34 38 29 0d d9 17 |)..pEo(W%!48)...|
00042c50 0f cd 3a e7 ac 53 25 21 33 33 32 8c 0d d9 1c 5b |..:..S%!332....[|
00042c60 f2 63 42 28 57 25 21 31 37 36 2c 57 25 21 31 37 |.cB(W%!176,W%!17|
00042c70 32 2c 57 25 21 31 38 30 29 3a e7 24 72 6e 25 3d |2,W%!180):.$rn%=|
00042c80 22 54 6f 6f 6c 73 22 8c 43 25 3d 53 25 21 33 32 |"Tools".C%=S%!32|
00042c90 3a e7 43 25 3e 30 8c 57 25 21 31 30 34 3d 43 25 |:.C%>0.W%!104=C%|
00042ca0 3a 43 25 21 31 30 34 3d 53 25 21 31 34 34 3a 4e |:C%!104=S%!144:N|
00042cb0 25 3d 43 25 21 34 38 0d d9 21 30 56 25 3d a0 28 |%=C%!48..!0V%=.(|
00042cc0 22 46 4e 77 22 2b 43 24 29 3a e7 56 25 8c f2 6f |"FNw"+C$):.V%..o|
00042cd0 57 28 57 25 29 3a f2 67 43 28 57 25 29 3a 53 25 |W(W%):.gC(W%):S%|
00042ce0 21 33 38 30 3d 57 25 0d d9 26 09 cd 3a 3d 56 25 |!380=W%..&..:=V%|
00042cf0 0d d9 2b 42 dd f2 6f 57 28 41 25 29 3a 21 4a 25 |..+B..oW(A%):!J%|
00042d00 3d 41 25 21 31 32 3a c8 99 26 34 30 30 43 42 2c |=A%!12:..&400CB,|
00042d10 2c 4a 25 3a 4a 25 21 32 38 3d 2d 31 3a c8 99 26 |,J%:J%!28=-1:..&|
00042d20 34 30 30 43 36 2c 2c 4a 25 3a f2 6f 28 4a 25 29 |400C6,,J%:.o(J%)|
00042d30 3a e1 0d d9 30 1a dd f2 6f 28 41 25 29 3a c8 99 |:...0...o(A%):..|
00042d40 26 34 30 30 43 35 2c 2c 41 25 3a e1 0d d9 35 4e |&400C5,,A%:...5N|
00042d50 dd f2 63 6c 6f 73 65 57 28 41 25 29 3a ea 42 24 |..closeW(A%):.B$|
00042d60 2c 43 25 2c 44 25 2c 45 24 2c 56 25 3a 56 25 3d |,C%,D%,E$,V%:V%=|
00042d70 b9 3a 42 24 3d 24 28 41 25 2b 32 30 29 3a e7 42 |.:B$=$(A%+20):.B|
00042d80 24 3d 22 43 6f 6d 6d 61 6e 64 22 8c c8 99 26 34 |$="Command"...&4|
00042d90 30 30 45 46 2c 21 41 25 3a e1 0d d9 3a 37 45 24 |00EF,!A%:...:7E$|
00042da0 3d 24 28 53 25 21 38 34 2b 41 25 21 31 36 29 3a |=$(S%!84+A%!16):|
00042db0 4e 25 3d 41 25 21 34 38 3a e7 53 25 21 31 37 36 |N%=A%!48:.S%!176|
00042dc0 80 36 34 8c 56 25 3d a4 63 6c 57 5f 66 28 41 25 |.64.V%=.clW_f(A%|
00042dd0 29 0d d9 3f 21 e7 56 25 20 e7 53 25 21 31 37 36 |)..?!.V% .S%!176|
00042de0 80 31 32 38 8c 56 25 3d a4 63 6c 57 5f 67 28 41 |.128.V%=.clW_g(A|
00042df0 25 29 0d d9 44 24 e7 56 25 8c 52 25 3d 33 3a e7 |%)..D$.V%.R%=3:.|
00042e00 a0 28 22 46 4e 65 22 2b 45 24 29 8c f2 6b 57 28 |.("FNe"+E$)..kW(|
00042e10 41 25 21 31 32 29 0d d9 49 1c e7 41 25 21 31 32 |A%!12)..I..A%!12|
00042e20 3d 2d 32 35 35 80 42 24 3c 3e 22 54 6f 6f 6c 73 |=-255.B$<>"Tools|
00042e30 22 8c 0d d9 4e 4a e3 43 25 3d 31 b8 31 34 3a 44 |"...NJ.C%=1.14:D|
00042e40 25 3d a4 67 57 53 28 43 25 29 3a e7 44 25 21 31 |%=.gWS(C%):.D%!1|
00042e50 32 3e b9 20 e7 24 28 44 25 2b 32 30 29 3d 22 54 |2>. .$(D%+20)="T|
00042e60 6f 6f 6c 73 22 20 e7 44 25 21 31 30 34 3d 41 25 |ools" .D%!104=A%|
00042e70 8c f2 63 6c 6f 73 65 57 28 44 25 29 0d d9 53 1b |..closeW(D%)..S.|
00042e80 ed 3a 52 25 3d 31 39 38 3a 5a 25 3d a0 28 22 46 |.:R%=198:Z%=.("F|
00042e90 4e 65 22 2b 45 24 29 0d d9 58 07 cd 3a e1 0d d9 |Ne"+E$)..X..:...|
00042ea0 5d 1e dd f2 6b 57 28 41 25 29 3a f2 63 57 28 41 |]...kW(A%):.cW(A|
00042eb0 25 29 3a f2 64 57 28 41 25 29 3a e1 0d d9 62 13 |%):.dW(A%):...b.|
00042ec0 dd f2 63 57 28 41 25 29 3a e7 41 25 3e 30 8c 0d |..cW(A%):.A%>0..|
00042ed0 d9 67 1d c8 99 26 34 30 30 44 33 2c 2c 51 25 3a |.g...&400D3,,Q%:|
00042ee0 e7 41 25 3d 21 51 25 8c f2 70 43 70 0d d9 6c 17 |.A%=!Q%..pCp..l.|
00042ef0 21 51 25 3d 41 25 3a c8 99 26 34 30 30 43 36 2c |!Q%=A%:..&400C6,|
00042f00 2c 51 25 0d d9 71 07 cd 3a e1 0d d9 76 2f dd f2 |,Q%..q..:...v/..|
00042f10 64 57 28 41 25 29 3a e7 41 25 3e 30 8c 21 51 25 |dW(A%):.A%>0.!Q%|
00042f20 3d 41 25 3a c8 99 26 34 30 30 43 33 2c 2c 51 25 |=A%:..&400C3,,Q%|
00042f30 3a f2 72 57 53 28 41 25 29 0d d9 7b 05 e1 0d d9 |:.rWS(A%)..{....|
00042f40 80 22 dd f2 70 57 28 41 24 2c 42 25 29 3a ea 42 |."..pW(A$,B%):.B|
00042f50 24 2c 43 25 2c 56 25 3a e7 41 24 3c 3e 22 22 8c |$,C%,V%:.A$<>"".|
00042f60 0d d9 85 1d 24 77 6e 25 3d 41 24 3a 43 25 3d a4 |....$wn%=A$:C%=.|
00042f70 66 57 28 41 24 29 3a e7 43 25 3e 30 8c 0d d9 8a |fW(A$):.C%>0....|
00042f80 b9 57 25 3d 21 77 25 3a 24 57 25 3d 41 24 3a 21 |.W%=!w%:$W%=A$:!|
00042f90 66 25 3d 43 25 21 31 32 3a 57 25 21 31 36 3d 21 |f%=C%!12:W%!16=!|
00042fa0 66 25 3e 3e 3e 32 34 3a 21 61 25 3d 43 25 21 32 |f%>>>24:!a%=C%!2|
00042fb0 30 3a 24 28 57 25 2b 32 30 29 3d 22 4d 65 6e 75 |0:$(W%+20)="Menu|
00042fc0 22 3a 57 25 21 34 34 3d 21 61 25 3a 24 70 6e 25 |":W%!44=!a%:$pn%|
00042fd0 3d 24 28 21 61 25 2b 32 30 29 3a f2 69 50 3a 57 |=$(!a%+20):.iP:W|
00042fe0 25 21 33 36 3d 21 66 25 3a 24 6d 6e 25 3d 22 22 |%!36=!f%:$mn%=""|
00042ff0 3a 57 25 21 36 30 3d 21 28 21 61 25 2b 34 34 29 |:W%!60=!(!a%+44)|
00043000 3a 24 28 57 25 2b 31 32 34 29 3d 22 22 3a 57 25 |:$(W%+124)="":W%|
00043010 21 34 30 3d 2d 31 3a 57 25 21 35 32 3d 21 28 21 |!40=-1:W%!52=!(!|
00043020 61 25 2b 31 32 29 3a 57 25 21 35 36 3d 21 28 21 |a%+12):W%!56=!(!|
00043030 61 25 2b 33 36 29 0d d9 8f 4a 57 25 21 31 32 3d |a%+36)...JW%!12=|
00043040 21 28 21 61 25 2b 38 29 3a 21 51 25 3d 57 25 21 |!(!a%+8):!Q%=W%!|
00043050 31 32 3a c8 99 26 34 30 30 43 43 2c 2c 51 25 3a |12:..&400CC,,Q%:|
00043060 e7 51 25 21 36 30 80 32 35 36 8c 57 25 21 31 34 |.Q%!60.256.W%!14|
00043070 30 3d 51 25 21 37 36 8b 57 25 21 31 34 30 3d 30 |0=Q%!76.W%!140=0|
00043080 0d d9 94 2f e7 21 28 53 25 21 33 32 2b 33 36 29 |.../.!(S%!32+36)|
00043090 80 32 8c 57 25 21 32 32 30 3d 21 28 53 25 21 33 |.2.W%!220=!(S%!3|
000430a0 32 2b 34 38 29 8b 57 25 21 32 32 30 3d 2d 31 0d |2+48).W%!220=-1.|
000430b0 d9 99 53 42 24 3d 7a 24 3a 7a 24 3d 22 5f 22 3a |..SB$=z$:z$="_":|
000430c0 52 25 3d 32 35 36 3a 56 25 3d a4 65 5f 3a e7 56 |R%=256:V%=.e_:.V|
000430d0 25 20 e7 53 25 21 31 34 30 3e 30 8c 5a 25 3d a4 |% .S%!140>0.Z%=.|
000430e0 77 53 28 53 25 21 31 34 30 29 3a e7 7a 24 3c 3e |wS(S%!140):.z$<>|
000430f0 22 5f 22 8c 56 25 3d a0 28 22 46 4e 65 22 2b 7a |"_".V%=.("FNe"+z|
00043100 24 29 0d d9 9e 26 e7 56 25 20 e7 42 24 3c 3e 22 |$)...&.V% .B$<>"|
00043110 5f 22 80 7a 24 3c 3e 42 24 8c 56 25 3d a0 28 22 |_".z$<>B$.V%=.("|
00043120 46 4e 65 22 2b 42 24 29 0d d9 a3 45 c8 99 26 34 |FNe"+B$)...E..&4|
00043130 30 30 43 31 2c 2c 51 25 2b 34 b8 43 25 3a c8 99 |00C1,,Q%+4.C%:..|
00043140 26 34 30 30 43 33 2c 2c 51 25 3a 57 25 21 31 32 |&400C3,,Q%:W%!12|
00043150 3d 43 25 3a 21 28 21 61 25 2b 38 29 3d 43 25 3a |=C%:!(!a%+8)=C%:|
00043160 e7 a0 28 22 46 4e 77 22 2b 42 24 29 8c 0d d9 a8 |..("FNw"+B$)....|
00043170 3d e7 42 25 3d 31 8c c8 99 26 34 30 30 45 38 2c |=.B%=1...&400E8,|
00043180 2c 57 25 21 31 32 2c 21 78 30 25 2c 21 79 30 25 |,W%!12,!x0%,!y0%|
00043190 8b c8 99 26 34 30 30 44 34 2c 2c 57 25 21 31 32 |...&400D4,,W%!12|
000431a0 2c 21 78 30 25 2c 21 79 30 25 0d d9 ad 05 cd 0d |,!x0%,!y0%......|
000431b0 d9 b2 05 cd 0d d9 b7 07 cd 3a e1 0d d9 bc 68 dd |.........:....h.|
000431c0 f2 73 63 57 28 41 25 29 3a e7 41 25 3e 30 8c 51 |.scW(A%):.A%>0.Q|
000431d0 25 21 32 30 2b 3d 21 28 41 25 2b 37 36 2b 28 94 |%!20+=!(A%+76+(.|
000431e0 28 51 25 21 33 32 29 3c 3c 32 29 29 2a b4 28 51 |(Q%!32)<<2))*.(Q|
000431f0 25 21 33 32 29 3a 51 25 21 32 34 2b 3d 21 28 41 |%!32):Q%!24+=!(A|
00043200 25 2b 38 34 2b 28 94 28 51 25 21 33 36 29 3c 3c |%+84+(.(Q%!36)<<|
00043210 32 29 29 2a b4 28 51 25 21 33 36 29 3a f2 6f 28 |2))*.(Q%!36):.o(|
00043220 51 25 29 0d d9 c1 05 e1 0d d9 c6 4c dd f2 73 63 |Q%)........L..sc|
00043230 72 6f 6c 6c 42 79 28 41 25 2c 42 25 2c 43 25 29 |rollBy(A%,B%,C%)|
00043240 3a 21 4a 25 3d 41 25 21 31 32 3a c8 99 26 34 30 |:!J%=A%!12:..&40|
00043250 30 43 42 2c 2c 4a 25 3a 4a 25 21 32 30 2b 3d 42 |0CB,,J%:J%!20+=B|
00043260 25 3a 4a 25 21 32 34 2b 3d 43 25 3a f2 6f 28 4a |%:J%!24+=C%:.o(J|
00043270 25 29 3a e1 0d d9 cb 2c dd a4 76 57 28 41 25 29 |%):....,..vW(A%)|
00043280 3a 21 4a 25 3d 41 25 3a c8 99 26 34 30 30 43 42 |:!J%=A%:..&400CB|
00043290 2c 2c 4a 25 3a 3d 4a 25 21 31 32 2d 4a 25 21 34 |,,J%:=J%!12-J%!4|
000432a0 0d d9 d0 2c dd a4 76 48 28 41 25 29 3a 21 4a 25 |...,..vH(A%):!J%|
000432b0 3d 41 25 3a c8 99 26 34 30 30 43 42 2c 2c 4a 25 |=A%:..&400CB,,J%|
000432c0 3a 3d 4a 25 21 31 36 2d 4a 25 21 38 0d d9 d5 28 |:=J%!16-J%!8...(|
000432d0 dd a4 78 4f 66 28 41 25 29 3a 21 4a 25 3d 41 25 |..xOf(A%):!J%=A%|
000432e0 3a c8 99 26 34 30 30 43 42 2c 2c 4a 25 3a 3d 4a |:..&400CB,,J%:=J|
000432f0 25 21 32 30 0d d9 da 28 dd a4 79 4f 66 28 41 25 |%!20...(..yOf(A%|
00043300 29 3a 21 4a 25 3d 41 25 3a c8 99 26 34 30 30 43 |):!J%=A%:..&400C|
00043310 42 2c 2c 4a 25 3a 3d 4a 25 21 32 34 0d d9 df 15 |B,,J%:=J%!24....|
00043320 dd f2 61 63 68 5f 3a 41 64 5f 25 3d 32 39 37 3a |..ach_:Ad_%=297:|
00043330 e1 0d d9 e9 62 dd a4 69 6e 70 75 74 28 41 24 2c |....b..input(A$,|
00043340 42 24 2c 43 24 2c 44 25 2c 45 24 2c 42 25 29 3a |B$,C$,D%,E$,B%):|
00043350 65 31 5f 25 3d 31 3a ea 44 24 2c 46 24 3a 46 24 |e1_%=1:.D$,F$:F$|
00043360 3d a4 79 28 41 24 2c 42 24 2c 43 24 2c 44 24 2c |=.y(A$,B$,C$,D$,|
00043370 45 24 2c 42 25 2c 44 25 2c 22 49 6e 70 75 74 22 |E$,B%,D%,"Input"|
00043380 29 3a e7 50 6f 6c 6c 24 3d 22 32 37 22 8c 46 24 |):.Poll$="27".F$|
00043390 3d 42 24 0d d9 ee 0e 65 31 5f 25 3d 30 3a 3d 46 |=B$....e1_%=0:=F|
000433a0 24 0d d9 f3 68 dd a4 61 6c 65 72 74 28 41 24 2c |$...h..alert(A$,|
000433b0 42 24 2c 43 24 2c 44 24 2c 45 24 2c 42 25 29 3a |B$,C$,D$,E$,B%):|
000433c0 65 31 5f 25 3d 31 3a ea 44 25 2c 46 24 3a 5a 24 |e1_%=1:.D%,F$:Z$|
000433d0 3d a4 79 28 41 24 2c 42 24 2c 43 24 2c 44 24 2c |=.y(A$,B$,C$,D$,|
000433e0 45 24 2c 42 25 2c 44 25 2c 22 41 6c 65 72 74 22 |E$,B%,D%,"Alert"|
000433f0 29 3a 46 24 3d 50 6f 6c 6c 24 3a e7 46 24 3d 22 |):F$=Poll$:.F$="|
00043400 31 33 22 8c 46 24 3d 43 24 0d d9 f8 1f e7 46 24 |13".F$=C$.....F$|
00043410 3d 22 32 37 22 8c 46 24 3d 44 24 3a e7 46 24 3d |="27".F$=D$:.F$=|
00043420 22 22 8c 46 24 3d 43 24 0d d9 fd 0e 65 31 5f 25 |"".F$=C$....e1_%|
00043430 3d 30 3a 3d 46 24 0d da 02 41 dd a4 63 6e 61 5f |=0:=F$...A..cna_|
00043440 28 61 5f 24 29 3a ea 20 46 25 2c 46 24 3a e3 46 |(a_$):. F%,F$:.F|
00043450 25 3d 31 b8 32 30 3a 46 24 3d 46 24 2b bd 28 97 |%=1.20:F$=F$+.(.|
00043460 28 c1 61 5f 24 2c 46 25 2c 31 29 29 2d 31 30 30 |(.a_$,F%,1))-100|
00043470 29 3a ed 3a 3d 46 24 0d da 07 8e dd a4 79 28 41 |):.:=F$......y(A|
00043480 24 2c 42 24 2c 43 24 2c 44 24 2c 45 24 2c 42 25 |$,B$,C$,D$,E$,B%|
00043490 2c 44 25 2c 46 24 29 3a ea 62 57 25 2c 62 48 25 |,D%,F$):.bW%,bH%|
000434a0 2c 43 25 2c 45 25 2c 62 42 25 2c 62 54 25 2c 48 |,C%,E%,bB%,bT%,H|
000434b0 25 2c 42 54 25 2c 62 4c 25 2c 62 52 25 2c 47 25 |%,BT%,bL%,bR%,G%|
000434c0 2c 42 57 25 2c 74 51 25 2c 54 51 25 2c 41 25 2c |,BW%,tQ%,TQ%,A%,|
000434d0 46 25 2c 4d 78 25 2c 4d 79 25 3a 46 25 3d 53 25 |F%,Mx%,My%:F%=S%|
000434e0 21 31 31 36 3a 74 51 25 3d a4 67 48 28 35 32 30 |!116:tQ%=.gH(520|
000434f0 29 3a e7 74 51 25 3d 30 8c 50 6f 6c 6c 24 3d 22 |):.tQ%=0.Poll$="|
00043500 22 3a 3d 22 22 0d da 0c 6d 54 51 25 3d 74 51 25 |":=""...mTQ%=tQ%|
00043510 3a 62 57 25 3d 37 33 36 3a 62 48 25 3d 34 33 32 |:bW%=736:bH%=432|
00043520 3a 62 42 25 3d 32 30 2d 62 48 25 3a 62 54 25 3d |:bB%=20-bH%:bT%=|
00043530 62 42 25 2b 35 36 3a 43 25 3d 35 30 38 3a 45 25 |bB%+56:C%=508:E%|
00043540 3d 33 31 36 3a 48 25 3d 62 54 25 2b 32 30 3a 42 |=316:H%=bT%+20:B|
00043550 54 25 3d 48 25 2b 45 25 3a 62 4c 25 3d 28 62 57 |T%=H%+E%:bL%=(bW|
00043560 25 2d 43 25 29 81 32 3a 62 52 25 3d 62 4c 25 2b |%-C%).2:bR%=bL%+|
00043570 43 25 0d da 11 16 45 24 3d a4 74 6f 4c 43 28 45 |C%....E$=.toLC(E|
00043580 24 29 3a c8 8e 45 24 ca 0d da 16 1c c9 22 61 73 |$):..E$......"as|
00043590 74 65 72 69 73 6b 22 3a 45 24 3d 22 61 72 5f 65 |terisk":E$="ar_e|
000435a0 78 63 6c 22 0d da 1b 1e c9 22 71 75 65 73 74 6d |xcl"....."questm|
000435b0 61 72 6b 22 3a 45 24 3d 22 61 72 5f 71 75 65 73 |ark":E$="ar_ques|
000435c0 74 22 0d da 20 1e c9 22 65 78 63 6c 61 6d 6d 61 |t".. .."exclamma|
000435d0 72 6b 22 3a 45 24 3d 22 61 72 5f 65 78 63 6c 22 |rk":E$="ar_excl"|
000435e0 0d da 25 c3 cb 3a 51 25 21 34 3d 32 37 30 3a 51 |..%..:Q%!4=270:Q|
000435f0 25 21 38 3d 33 31 36 3a 51 25 21 31 32 3d 51 25 |%!8=316:Q%!12=Q%|
00043600 21 34 2b 62 57 25 3a 51 25 21 31 36 3d 51 25 21 |!4+bW%:Q%!16=Q%!|
00043610 38 2b 62 48 25 3a 51 25 21 32 30 3d 30 3a 51 25 |8+bH%:Q%!20=0:Q%|
00043620 21 32 34 3d 30 3a 51 25 21 32 38 3d 2d 31 3a 51 |!24=0:Q%!28=-1:Q|
00043630 25 21 33 32 3d 26 38 34 30 30 30 30 31 30 3a 51 |%!32=&84000010:Q|
00043640 25 3f 33 36 3d 37 3a 51 25 3f 33 37 3d 32 3a 51 |%?36=7:Q%?37=2:Q|
00043650 25 3f 33 38 3d 37 3a 51 25 3f 33 39 3d 31 3a 51 |%?38=7:Q%?39=1:Q|
00043660 25 3f 34 30 3d 33 3a 51 25 3f 34 31 3d 31 3a 51 |%?40=3:Q%?41=1:Q|
00043670 25 3f 34 32 3d 32 3a 51 25 3f 34 33 3d 30 3a 51 |%?42=2:Q%?43=0:Q|
00043680 25 21 34 34 3d 30 3a 51 25 21 34 38 3d 2d 62 48 |%!44=0:Q%!48=-bH|
00043690 25 3a 51 25 21 35 32 3d 62 57 25 3a 51 25 21 35 |%:Q%!52=bW%:Q%!5|
000436a0 36 3d 30 0d da 2a bf 51 25 21 36 30 3d 26 31 33 |6=0..*.Q%!60=&13|
000436b0 44 3a 51 25 21 36 34 3d 26 33 30 30 30 3a 51 25 |D:Q%!64=&3000:Q%|
000436c0 21 36 38 3d 31 3a 51 25 21 37 32 3d 30 3a 24 46 |!68=1:Q%!72=0:$F|
000436d0 25 3d 22 4d 65 73 73 61 67 65 20 66 72 6f 6d 20 |%="Message from |
000436e0 22 2b 24 73 6e 25 2b bd 30 3a 51 25 21 37 36 3d |"+$sn%+.0:Q%!76=|
000436f0 46 25 3a 51 25 21 38 30 3d 2d 31 3a 51 25 21 38 |F%:Q%!80=-1:Q%!8|
00043700 34 3d a9 28 24 46 25 29 2b 31 3a 46 25 2b 3d 34 |4=.($F%)+1:F%+=4|
00043710 30 3a 51 25 21 38 38 3d 31 2d 31 2a 28 28 41 24 |0:Q%!88=1-1*((A$|
00043720 3c 3e 22 22 29 2b 28 42 24 3c 3e 22 22 84 44 25 |<>"")+(B$<>"".D%|
00043730 3e 30 29 2b 28 43 24 3c 3e 22 22 29 2b 28 44 24 |>0)+(C$<>"")+(D$|
00043740 3c 3e 22 22 29 2b 32 2a 28 45 24 3c 3e 22 22 29 |<>"")+2*(E$<>"")|
00043750 29 3a 41 25 3d 51 25 2b 39 32 3a e7 43 24 3d 22 |):A%=Q%+92:.C$="|
00043760 22 8c 0d da 2f 1e e7 44 24 3d 22 22 8c 43 24 3d |".../..D$="".C$=|
00043770 22 4f 4b 22 8b 43 24 3d 44 24 3a 44 24 3d 22 22 |"OK".C$=D$:D$=""|
00043780 0d da 34 2d cd 3a 43 24 3d c0 43 24 2c 31 31 29 |..4-.:C$=.C$,11)|
00043790 3a 47 25 3d 31 36 2a 28 32 2b a9 43 24 29 3a e7 |:G%=16*(2+.C$):.|
000437a0 47 25 3c 31 35 32 8c 47 25 3d 31 35 32 0d da 39 |G%<152.G%=152..9|
000437b0 2e 44 24 3d c0 44 24 2c 31 31 29 3a 42 57 25 3d |.D$=.D$,11):BW%=|
000437c0 31 36 2a 28 32 2b a9 44 24 29 3a e7 42 57 25 3c |16*(2+.D$):.BW%<|
000437d0 31 35 32 8c 42 57 25 3d 31 35 32 0d da 3e 0c e7 |152.BW%=152..>..|
000437e0 44 24 3c 3e 22 22 8c 0d da 43 8b 21 41 25 3d 62 |D$<>""...C.!A%=b|
000437f0 4c 25 2b 28 43 25 81 32 2d 47 25 29 81 32 3a 41 |L%+(C%.2-G%).2:A|
00043800 25 21 34 3d 62 42 25 3a 41 25 21 38 3d 21 41 25 |%!4=bB%:A%!8=!A%|
00043810 2b 47 25 3a 41 25 21 31 32 3d 62 54 25 3a 41 25 |+G%:A%!12=bT%:A%|
00043820 21 31 36 3d 26 31 39 30 32 44 3a 41 25 3f 31 39 |!16=&1902D:A%?19|
00043830 3d 26 43 37 3a 24 28 41 25 2b 32 30 29 3d 43 24 |=&C7:$(A%+20)=C$|
00043840 3a 21 78 25 3d 51 25 21 34 2b 21 41 25 2b 47 25 |:!x%=Q%!4+!A%+G%|
00043850 81 32 3a 21 79 25 3d 51 25 21 38 2b 62 48 25 2b |.2:!y%=Q%!8+bH%+|
00043860 28 62 42 25 2b 62 54 25 29 81 32 3a 41 25 2b 3d |(bB%+bT%).2:A%+=|
00043870 33 32 0d da 48 62 21 41 25 3d 62 57 25 81 32 2b |32..Hb!A%=bW%.2+|
00043880 28 43 25 81 32 2d 42 57 25 29 81 32 3a 41 25 21 |(C%.2-BW%).2:A%!|
00043890 34 3d 62 42 25 3a 41 25 21 38 3d 21 41 25 2b 42 |4=bB%:A%!8=!A%+B|
000438a0 57 25 3a 41 25 21 31 32 3d 62 54 25 3a 41 25 21 |W%:A%!12=bT%:A%!|
000438b0 31 36 3d 26 31 39 30 32 44 3a 41 25 3f 31 39 3d |16=&1902D:A%?19=|
000438c0 37 3a 24 28 41 25 2b 32 30 29 3d 44 24 3a 41 25 |7:$(A%+20)=D$:A%|
000438d0 2b 3d 33 32 0d da 4d 8a cc 21 41 25 3d 62 4c 25 |+=32..M..!A%=bL%|
000438e0 2b 28 43 25 2d 47 25 29 81 32 3a 41 25 21 34 3d |+(C%-G%).2:A%!4=|
000438f0 62 42 25 3a 41 25 21 38 3d 21 41 25 2b 47 25 3a |bB%:A%!8=!A%+G%:|
00043900 41 25 21 31 32 3d 62 54 25 3a 41 25 21 31 36 3d |A%!12=bT%:A%!16=|
00043910 26 31 39 30 32 44 3a 41 25 3f 31 39 3d 26 43 37 |&1902D:A%?19=&C7|
00043920 3a 24 28 41 25 2b 32 30 29 3d 43 24 3a 21 78 25 |:$(A%+20)=C$:!x%|
00043930 3d 51 25 21 34 2b 21 41 25 2b 47 25 81 32 3a 21 |=Q%!4+!A%+G%.2:!|
00043940 79 25 3d 51 25 21 38 2b 62 48 25 2b 28 62 42 25 |y%=Q%!8+bH%+(bB%|
00043950 2b 62 54 25 29 81 32 3a 41 25 2b 3d 33 32 0d da |+bT%).2:A%+=32..|
00043960 52 8b cd 3a e7 45 24 3c 3e 22 22 8c 21 41 25 3d |R..:.E$<>"".!A%=|
00043970 30 3a 41 25 21 34 3d 48 25 3a 41 25 21 38 3d 62 |0:A%!4=H%:A%!8=b|
00043980 4c 25 3a 41 25 21 31 32 3d 42 54 25 3a 41 25 21 |L%:A%!12=BT%:A%!|
00043990 31 36 3d 26 31 41 3a 24 28 41 25 2b 32 30 29 3d |16=&1A:$(A%+20)=|
000439a0 45 24 3a 41 25 2b 3d 33 32 3a 21 41 25 3d 62 52 |E$:A%+=32:!A%=bR|
000439b0 25 3a 41 25 21 34 3d 48 25 3a 41 25 21 38 3d 62 |%:A%!4=H%:A%!8=b|
000439c0 57 25 3a 41 25 21 31 32 3d 42 54 25 3a 41 25 21 |W%:A%!12=BT%:A%!|
000439d0 31 36 3d 26 31 41 3a 24 28 41 25 2b 32 30 29 3d |16=&1A:$(A%+20)=|
000439e0 45 24 3a 41 25 2b 3d 33 32 0d da 57 0b e7 41 24 |E$:A%+=32..W..A$|
000439f0 3d 22 22 8c 0d da 5c 1e e7 42 24 3d 22 22 8c 41 |=""...\..B$="".A|
00043a00 24 3d 22 4f 6b 22 8b 41 24 3d 42 24 3a 42 24 3d |$="Ok".A$=B$:B$=|
00043a10 22 22 0d da 61 0c cd 3a e7 44 25 3d 30 8c 0d da |""..a..:.D%=0...|
00043a20 66 0c e7 42 24 3c 3e 22 22 8c 0d da 6b 87 24 74 |f..B$<>""...k.$t|
00043a30 51 25 3d 41 24 3a 21 41 25 3d 62 4c 25 3a 41 25 |Q%=A$:!A%=bL%:A%|
00043a40 21 34 3d 48 25 2b 45 25 81 32 3a 41 25 21 38 3d |!4=H%+E%.2:A%!8=|
00043a50 62 52 25 3a 41 25 21 31 32 3d 42 54 25 3a 41 25 |bR%:A%!12=BT%:A%|
00043a60 21 31 36 3d 26 31 31 39 3a 41 25 3f 31 39 3d 26 |!16=&119:A%?19=&|
00043a70 31 37 3a 41 25 21 32 30 3d 74 51 25 3a 24 46 25 |17:A%!20=tQ%:$F%|
00043a80 3d 22 4c 34 30 22 3a 41 25 21 32 34 3d 46 25 3a |="L40":A%!24=F%:|
00043a90 46 25 2b 3d 38 3a 41 25 21 32 38 3d a9 41 24 2b |F%+=8:A%!28=.A$+|
00043aa0 31 3a 74 51 25 2b 3d 32 35 36 3a 41 25 2b 3d 33 |1:tQ%+=256:A%+=3|
00043ab0 32 0d da 70 7d 24 74 51 25 3d 42 24 3a 21 41 25 |2..p}$tQ%=B$:!A%|
00043ac0 3d 62 4c 25 3a 41 25 21 34 3d 48 25 3a 41 25 21 |=bL%:A%!4=H%:A%!|
00043ad0 38 3d 62 52 25 3a 41 25 21 31 32 3d 48 25 2b 45 |8=bR%:A%!12=H%+E|
00043ae0 25 81 32 3a 41 25 21 31 36 3d 26 31 31 39 3a 41 |%.2:A%!16=&119:A|
00043af0 25 3f 31 39 3d 26 31 37 3a 41 25 21 32 30 3d 74 |%?19=&17:A%!20=t|
00043b00 51 25 3a 24 46 25 3d 22 4c 34 30 22 3a 41 25 21 |Q%:$F%="L40":A%!|
00043b10 32 34 3d 46 25 3a 46 25 2b 3d 38 3a 41 25 21 32 |24=F%:F%+=8:A%!2|
00043b20 38 3d a9 42 24 2b 31 3a 41 25 2b 3d 33 32 0d da |8=.B$+1:A%+=32..|
00043b30 75 74 cc 24 74 51 25 3d 41 24 3a 21 41 25 3d 62 |ut.$tQ%=A$:!A%=b|
00043b40 4c 25 3a 41 25 21 34 3d 48 25 3a 41 25 21 38 3d |L%:A%!4=H%:A%!8=|
00043b50 62 52 25 3a 41 25 21 31 32 3d 42 54 25 3a 41 25 |bR%:A%!12=BT%:A%|
00043b60 21 31 36 3d 26 31 31 39 3a 41 25 3f 31 39 3d 26 |!16=&119:A%?19=&|
00043b70 31 37 3a 41 25 21 32 30 3d 74 51 25 3a 24 46 25 |17:A%!20=tQ%:$F%|
00043b80 3d 22 4c 34 30 22 3a 41 25 21 32 34 3d 46 25 3a |="L40":A%!24=F%:|
00043b90 41 25 21 32 38 3d a9 41 24 2b 31 3a 41 25 2b 3d |A%!28=.A$+1:A%+=|
00043ba0 33 32 0d da 7a 05 cd 0d da 7f 88 cc 24 74 51 25 |32..z.......$tQ%|
00043bb0 3d 41 24 3a 21 41 25 3d 62 4c 25 3a 41 25 21 34 |=A$:!A%=bL%:A%!4|
00043bc0 3d 48 25 2b 45 25 81 32 3a 41 25 21 38 3d 62 52 |=H%+E%.2:A%!8=bR|
00043bd0 25 3a 41 25 21 31 32 3d 42 54 25 3a 41 25 21 31 |%:A%!12=BT%:A%!1|
00043be0 36 3d 26 31 31 39 3a 41 25 3f 31 39 3d 26 31 37 |6=&119:A%?19=&17|
00043bf0 3a 41 25 21 32 30 3d 74 51 25 3a 24 46 25 3d 22 |:A%!20=tQ%:$F%="|
00043c00 4c 34 30 22 3a 41 25 21 32 34 3d 46 25 3a 46 25 |L40":A%!24=F%:F%|
00043c10 2b 3d 38 3a 41 25 21 32 38 3d a9 41 24 2b 31 3a |+=8:A%!28=.A$+1:|
00043c20 74 51 25 2b 3d 32 35 36 3a 41 25 2b 3d 33 32 0d |tQ%+=256:A%+=32.|
00043c30 da 84 7a 24 74 51 25 3d 42 24 3a 21 41 25 3d 62 |..z$tQ%=B$:!A%=b|
00043c40 4c 25 2b 33 32 3a 41 25 21 34 3d 48 25 2b 35 32 |L%+32:A%!4=H%+52|
00043c50 3a 41 25 21 38 3d 62 52 25 2d 33 32 3a 41 25 21 |:A%!8=bR%-32:A%!|
00043c60 31 32 3d 48 25 2b 31 30 30 3a 41 25 21 31 36 3d |12=H%+100:A%!16=|
00043c70 26 46 31 33 44 3a 41 25 3f 31 39 3d 37 3a 41 25 |&F13D:A%?19=7:A%|
00043c80 21 32 30 3d 74 51 25 3a 24 46 25 3d 22 44 2a 22 |!20=tQ%:$F%="D*"|
00043c90 3a 41 25 21 32 34 3d 46 25 3a 41 25 21 32 38 3d |:A%!24=F%:A%!28=|
00043ca0 44 25 3a 41 25 2b 3d 33 32 0d da 89 c8 cd 3a 21 |D%:A%+=32.....:!|
00043cb0 41 25 3d 62 4c 25 3a 41 25 21 34 3d 48 25 3a 41 |A%=bL%:A%!4=H%:A|
00043cc0 25 21 38 3d 62 52 25 3a 41 25 21 31 32 3d 42 54 |%!8=bR%:A%!12=BT|
00043cd0 25 3a 41 25 21 31 36 3d 34 3a 41 25 3f 31 39 3d |%:A%!16=4:A%?19=|
00043ce0 26 31 37 3a 41 25 3f 32 30 3d 31 33 3a c8 99 26 |&17:A%?20=13:..&|
00043cf0 34 30 30 43 31 2c 2c 51 25 2b 34 b8 21 68 25 3a |400C1,,Q%+4.!h%:|
00043d00 57 25 3d 21 77 25 2b 26 46 30 30 3a 24 57 25 3d |W%=!w%+&F00:$W%=|
00043d10 46 24 3a 57 25 21 31 32 3d 21 68 25 3a 24 28 57 |F$:W%!12=!h%:$(W|
00043d20 25 2b 32 30 29 3d 46 24 3a 24 72 6e 25 3d 46 24 |%+20)=F$:$rn%=F$|
00043d30 3a f2 6f 57 28 57 25 29 3a f2 67 43 28 57 25 29 |:.oW(W%):.gC(W%)|
00043d40 3a f2 72 50 3a c8 97 4d 78 25 2c 4d 79 25 2c 5a |:.rP:..Mx%,My%,Z|
00043d50 25 3a c8 97 b8 21 78 25 2c 21 79 25 3a 21 4f 25 |%:...!x%,!y%:!O%|
00043d60 3d 21 68 25 3a c8 99 26 34 30 30 45 30 2c 2c 4f |=!h%:..&400E0,,O|
00043d70 25 0d da 8e b3 c8 97 c8 93 4f 25 21 34 2c 4f 25 |%........O%!4,O%|
00043d80 21 38 2c 4f 25 21 31 32 2d 4f 25 21 34 2d 53 25 |!8,O%!12-O%!4-S%|
00043d90 21 34 34 30 2c 4f 25 21 31 36 2d 4f 25 21 38 2d |!440,O%!16-O%!8-|
00043da0 53 25 21 34 34 34 3a f2 73 6f 75 6e 64 28 42 25 |S%!444:.sound(B%|
00043db0 80 31 35 29 3a 50 6f 6c 6c 24 3d 22 22 3a 4d 25 |.15):Poll$="":M%|
00043dc0 3d b9 3a 53 25 21 34 38 38 3d b9 3a f5 f2 70 3a |=.:S%!488=.:..p:|
00043dd0 fd 50 6f 6c 6c 24 3c 3e 22 22 3a 53 25 21 34 38 |.Poll$<>"":S%!48|
00043de0 38 3d a3 3a 46 24 3d a4 67 49 64 28 21 68 25 2c |8=.:F$=.gId(!h%,|
00043df0 34 29 3a f2 63 57 28 21 68 25 29 3a 57 25 21 31 |4):.cW(!h%):W%!1|
00043e00 32 3d 2d 32 35 35 3a 21 51 25 3d 21 68 25 3a c8 |2=-255:!Q%=!h%:.|
00043e10 99 26 34 30 30 43 33 2c 2c 51 25 3a f2 66 48 28 |.&400C3,,Q%:.fH(|
00043e20 54 51 25 29 0d da 93 39 c8 97 c8 93 30 2c 30 2c |TQ%)...9....0,0,|
00043e30 53 25 21 32 30 34 2c 53 25 21 32 30 38 3a 4d 25 |S%!204,S%!208:M%|
00043e40 3d a3 3a c8 97 b8 4d 78 25 2c 4d 79 25 3a 21 78 |=.:...Mx%,My%:!x|
00043e50 25 3d 30 3a 21 79 25 3d 30 3a 3d 46 24 0d da 98 |%=0:!y%=0:=F$...|
00043e60 13 2d 2d 2d 28 44 45 42 55 47 20 41 49 44 53 29 |.---(DEBUG AIDS)|
00043e70 0d da 9d 0b dd a4 71 5f 3a 3d a3 0d da a2 31 dd |......q_:=....1.|
00043e80 f2 71 31 5f 3a e7 49 6e 66 6f 5f 24 3c 3e 22 22 |.q1_:.Info_$<>""|
00043e90 8c 54 72 5f 5f 24 28 31 29 3d a4 63 6e 61 5f 28 |.Tr__$(1)=.cna_(|
00043ea0 49 6e 66 6f 5f 24 29 3a e1 20 8b e1 0d da a7 22 |Info_$):. ....."|
00043eb0 dd f2 6d 6f 61 6e 28 41 24 29 3a ea 85 3a ee 85 |..moan(A$):..:..|
00043ec0 ea 3a f7 20 85 3a f2 65 72 72 6f 72 3a e1 0d da |.:. .:.error:...|
00043ed0 ac 10 85 53 25 21 32 31 32 2c 41 24 3a e1 0d da |...S%!212,A$:...|
00043ee0 b1 50 dd f2 65 72 72 6f 72 3a ea 65 72 72 25 2c |.P..error:.err%,|
00043ef0 65 72 72 24 3a c8 99 26 34 30 30 44 30 2c 2c 2d |err$:..&400D0,,-|
00043f00 31 3a 21 28 53 25 21 31 31 36 29 3d 9f 3a c8 97 |1:!(S%!116)=.:..|
00043f10 c8 93 30 2c 30 2c 53 25 21 32 30 34 2c 53 25 21 |..0,0,S%!204,S%!|
00043f20 32 30 38 3a 4d 25 3d a3 3a c8 8e b9 20 ca 0d da |208:M%=.:... ...|
00043f30 b6 16 c9 9f 3d 53 25 21 32 31 32 3a 53 25 21 31 |....=S%!212:S%!1|
00043f40 35 32 3d 33 0d da bb 1a c9 9f 3d 53 25 21 32 31 |52=3......=S%!21|
00043f50 32 2b 32 35 35 3a 53 25 21 31 35 32 3d 30 0d da |2+255:S%!152=0..|
00043f60 c0 0d c9 53 25 21 31 35 32 3d 33 0d da c5 3e c9 |...S%!152=3...>.|
00043f70 28 9f 3e 53 25 21 32 31 32 29 80 28 9f 3c 53 25 |(.>S%!212).(.<S%|
00043f80 21 32 31 32 2b 31 39 32 29 3a 65 72 72 24 3d 22 |!212+192):err$="|
00043f90 41 52 43 48 57 41 59 20 72 65 70 6f 72 74 65 64 |ARCHWAY reported|
00043fa0 20 65 72 72 6f 72 2e 20 22 0d da ca 46 c9 28 9f | error. "...F.(.|
00043fb0 3e 53 25 21 32 31 32 2b 31 39 31 29 80 28 9f 3c |>S%!212+191).(.<|
00043fc0 53 25 21 32 31 32 2b 32 35 35 29 3a 65 72 72 24 |S%!212+255):err$|
00043fd0 3d 22 41 70 70 6c 69 63 61 74 69 6f 6e 20 72 65 |="Application re|
00043fe0 70 6f 72 74 65 64 20 65 72 72 6f 72 2e 20 22 0d |ported error. ".|
00043ff0 da cf 0e 7f 3a 53 25 21 31 35 32 3d 30 0d da d4 |....:S%!152=0...|
00044000 0e cb 3a 65 72 72 24 2b 3d f6 24 0d da d9 0d c8 |..:err$+=.$.....|
00044010 8e 53 25 21 31 35 32 ca 0d da de 45 c9 30 3a 65 |.S%!152....E.0:e|
00044020 72 72 25 3d 32 3a 65 72 72 24 3d c2 65 72 72 24 |rr%=2:err$=.err$|
00044030 2c 32 34 31 29 3a 65 72 72 24 2b 3d 22 20 28 49 |,241):err$+=" (I|
00044040 6e 74 65 72 6e 61 6c 20 63 6f 64 65 20 22 2b c3 |nternal code "+.|
00044050 7e 9f 2b 22 2f 22 2b c3 9e 2b 22 29 22 0d da e3 |~.+"/"+..+")"...|
00044060 0f c9 32 2c 33 3a 65 72 72 25 3d 31 0d da e8 0d |..2,3:err%=1....|
00044070 c9 31 3a 65 72 72 25 3d 33 0d da ed 05 cb 0d da |.1:err%=3.......|
00044080 f2 5a 24 28 53 25 21 31 31 36 2b 34 29 3d 65 72 |.Z$(S%!116+4)=er|
00044090 72 24 2b bd 30 3a 53 25 21 31 35 32 3d 30 3a c8 |r$+.0:S%!152=0:.|
000440a0 99 26 34 30 30 44 46 2c 53 25 21 31 31 36 2c 65 |.&400DF,S%!116,e|
000440b0 72 72 25 2c 24 73 6e 25 b8 2c 65 72 72 25 3a f4 |rr%,$sn%.,err%:.|
000440c0 20 49 46 65 72 72 25 3d 32 54 48 45 4e 50 52 4f | IFerr%=2THENPRO|
000440d0 43 66 69 6e 3a 45 4e 44 0d da f7 05 e1 0d da fc |Cfin:END........|
000440e0 36 dd a4 73 79 73 45 72 72 42 6f 78 28 41 25 29 |6..sysErrBox(A%)|
000440f0 3a c8 99 26 34 30 30 44 30 2c 2c 2d 31 3a c8 99 |:..&400D0,,-1:..|
00044100 26 34 30 30 44 46 2c 41 25 2c 31 2c 24 73 6e 25 |&400DF,A%,1,$sn%|
00044110 3a 3d b9 0d ff |:=...|
00044115 
.