Home » Archimedes archive » Archimedes World » AW-1994-11-Disc1.adf » Disk1Nov94 » !AWNov94/Goodies/Investor/!Investor/!RunImage
!AWNov94/Goodies/Investor/!Investor/!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 » Archimedes World » AW-1994-11-Disc1.adf » Disk1Nov94 |
| Filename: | !AWNov94/Goodies/Investor/!Investor/!RunImage |
| Read OK: | ✔ |
| File size: | 13B49 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM><Investor$Dir>.!RunImage
20ONERRORPROCaa:END
30_$="1.10 (01-Jul-94)":SYS16TOe$:aa%=INSTR(e$,"""",INSTR(e$,"""")+1):e$=MID$(e$,aa%+1):WHILELEFT$(e$,1)=" ":e$=MID$(e$,2):ENDWHILE:DIMq%1280,ba%256,ca%32,G%1280,da%256,p%32,ea%512,fa%32:SYS8,5,"<Investor$Dir>.Sprites"TO,,,,ga%:DIMha%ga%+4:!ha%=ga%
40SYS8,255,"<Investor$Dir>.Sprites",ha%+4:PROCba:PROCca:PROCda:$q%="TASK":SYS262336,200,!q%,"Investor"TOia%,ja%:SYS530050,ja%:PROCea:PROCfa:PROCga:SYS263872:PROCha:PROCia:PROCja:PROCka:SYS263873:IFe$<>""THENPROCla(0,e$,3)
50ONERRORPROCaa
60REPEAT:SYS262343,0,q%TOka%:SYS530054,ka%,,ja%:CASEka%OF
70WHEN0:IFla%THEN
80IFma%=1THEN
90PROCma(na%):la%=FALSE:na%+=1:IFoa%=pa%ANDna%>qa%THENna%=1:PROCg(43)
100IFna%>qa%THENna%=1:oa%+=1
110IFa%(43)<>0THEN$FNt(43,0)="Ready to print page "+STR$na%+" (Copy "+STR$oa%+")":PROCj(43,0)
120ELSE:FORra%=sa%TOpa%:na%=1:REPEAT:PROCma(na%):$FNt(43,0)="Investor: printing page "+STR$na%+" (Copy "+STR$ra%+")":PROCj(43,0):na%+=1:UNTILna%>qa%:NEXT:PROCg(43):la%=FALSE
130ENDIF
140ENDIF
150WHEN1:PROCr(q%)
160WHEN2:IFq%!16>ta%THENq%!8-=(q%!16-ta%+40):q%!16=ta%-40
170IF(q%!16-q%!8)>ta%OR(q%!12-q%!4)>ua%THENq%!8=40:q%!16=ta%-36:q%!12=ua%-38:q%!4=0
180CASE!q%OF
190WHENa%(16):PROCna
200WHENa%(36):PROCoa
210ENDCASE
220SYS262341,,q%
230WHEN3:PROCpa
240WHEN4:PROCqa
250WHEN5:PROCra(!q%)
260WHEN6:PROCsa(!q%,q%!4,q%!8,q%!12,q%!16)
270WHEN7:PROCta
280WHEN8:PROCua(!q%,q%!4,q%!24)
290WHEN9:PROCva(q%)
300WHEN17,18:PROCwa(q%)
310ENDCASE
320UNTILFALSE:END
330DEFPROCwa(q%):LOCALva%,wa%:va%=q%!4:wa%=q%!8:CASEq%!16OF
340WHEN0:PROCxa
350WHEN1:PROCya(q%)
360WHEN2:PROCza(q%)
370WHEN3,5:PROCAa(q%,q%!16)
380WHEN9,262337:PROCka
390WHEN262336:CASExa%OF
400WHENya%:CASEq%!32OF
410WHEN0:w%=6:PROCf(w%):$FNt(w%,7)=_$
420ENDCASE
430WHENza%:CASEq%!32OF
440WHEN1:CASEq%!36OF
450WHEN0:w%=27:PROCf(w%):Aa%=n%(g%,d%(g%)):l$=STR$(Aa%):IFAa%=0THENl$="<none>"
460IFAa%=1THENl$+=" entry"
470IFAa%>1THENl$+=" entries"
480$FNt(27,5)=FNg(d%(g%)):$FNt(27,2)=l$
490WHEN1:w%=20:PROCf(w%):Ba%=d%(g%)MOD12:$FNt(20,5)=FNg(Ba%)
500WHEN2:w%=8:PROCf(w%):Ca%=d%(g%)MOD12:Da%=d%(g%)MOD12+1:Ea%=d%(g%)DIV12:Fa%=d%(g%)DIV12:IFDa%=12THENDa%=0
510PROCe(8,3+Ga%):PROCH(9):PROCH(10):PROCH(18):PROCH(19)
520ENDCASE
530WHEN2:CASEq%!36OF
540WHEN0:w%=26:PROCf(w%):Ha%=0:Ia%=(d%(g%)DIV12)*12:Ja%=Ia%+11:FORKa%=Ia%TOJa%:IFn%(g%,Ka%)>0THENHa%+=1
550NEXT:m$=STR$(Ha%):IFHa%=0THENm$="<none>"
560IFHa%=1THENm$+=" month used"
570IFHa%>1THENm$+=" months used"
580$FNt(26,5)=FNq(d%(g%)):$FNt(26,2)=m$
590WHEN1:w%=19:PROCf(w%):La%=d%(g%)DIV12:$FNt(19,5)=FNl(La%)
600WHEN2:w%=7:PROCf(w%):Ma%=d%(g%)DIV12:Na%=(d%(g%)DIV12)+1:PROCe(7,3+Oa%):PROCU(9):PROCU(8):IFNa%=3THENNa%=0
610ENDCASE
620WHEN3:CASEq%!36OF
630WHEN0:w%=25:PROCf(w%):PROCBa(e%(g%)+1):PROCCa(a$(g%)):$FNt(25,3)=e$(g%):$FNt(25,2)=d$(g%)
640WHEN3:CASEq%!40OF
650WHEN0:w%=10:PROCf(w%):q=FNt(10,1):$FNt(10,1)=C$:PROCe(10,3+Pa%)
660WHEN1:w%=9:PROCf(w%):PROCV(256):Qa%=0:q=FNt(9,1):$FNt(9,1)=b$(g%)
670ENDCASE
680WHEN7:w%=22:PROCf(w%):Ra%=(d%(g%)MOD12)-1:Sa%=d%(g%)DIV12:IFRa%=-1THENRa%=11:Sa%-=1
690IFSa%=-1THENSa%=2
700PROCW(6):PROCW(9)
710ENDCASE
720WHEN4:CASEq%!36OF
730WHEN0:w%=24:PROCf(w%):IFFNa(Y%,d%(g%),g%)=1THENO$=" unit"ELSEO$=" units"
740$FNt(24,5)=LEFT$(FNb(Y%,d%(g%),g%)):$FNt(24,3)=STR$(FNa(Y%,d%(g%),g%))+O$:IFRIGHT$(FNb(Y%,d%(g%),g%))="1"THENP$="Yes"ELSEP$="No"
750$FNt(24,2)=P$
760WHEN1:D$=RIGHT$(FNb(Y%,d%(g%),g%)):CASEq%!40OF
770WHEN0:@%=0:w%=30:PROCf(w%):$FNt(30,3)=Q$
780WHEN1:@%=0:w%=31:PROCf(w%):$FNt(31,5)=STR$(Ta%):$FNt(31,7)=STR$(Ua%)
790WHEN2:@%=16908810:w%=32:PROCf(w%):$FNt(32,5)=STR$(I):$FNt(32,7)=STR$(D)
800WHEN3:@%=16908810:w%=33:PROCf(w%):$FNt(33,5)=STR$(H):$FNt(33,7)=STR$(E)
810ENDCASE
820ENDCASE
830ENDCASE
840WHENVa%:@%=16908810:CASEq%!32OF
850WHEN0:w%=29:PROCf(w%):@%=0:E$=STR$(l%+1):IFl%=0THENE$+=" entry"ELSEE$+=" entries"
860$FNt(29,3)=E$:@%=16908810:CASEWa%OF
870WHEN0,1,2,3,4:$FNt(29,5)=LEFT$(FNb(Xa%,Ya%,Za%))
880WHEN5:$FNt(29,5)="Current values"
890WHEN6:$FNt(29,5)="Purchase values"
900ENDCASE
910$FNt(29,8)="�"+STR$(u):$FNt(29,10)="�"+STR$(v):$FNt(29,11)="�"+STR$(P)
920ENDCASE
930WHEN_a%:CASEq%!32OF
940WHEN3:w%=42:`a%=1:PROCf(w%):$FNt(42,3)=STR$(U%)
950WHEN6:CASEq%!36OF
960WHEN0:w%=9:PROCf(w%):PROCV(3582):Qa%=3:q=FNt(9,1):$FNt(9,1)=F$
970WHEN1:w%=9:PROCf(w%):PROCV(2815):Qa%=4:q=FNt(9,1):$FNt(9,1)=G$
980ENDCASE
990ENDCASE
1000WHENab%:CASEq%!32OF
1010WHEN1:w%=11:PROCf(w%):q=FNt(11,1):$FNt(11,1)=H$:$FNt(11,6)=STR$(Z%-2):$FNt(11,7)=STR$(Z%-1):$FNt(11,8)=STR$(Z%):IFbb%<3THENPROCe(11,3+bb%)
1020IFbb%=3THENPROCe(11,9)
1030ENDCASE
1040WHENcb%:D$=RIGHT$(FNb(Y%,d%(g%),g%)):CASEq%!32OF
1050WHEN0:@%=0:w%=30:PROCf(w%):$FNt(30,3)=Q$
1060WHEN1:@%=0:w%=31:PROCf(w%):$FNt(31,5)=STR$(Ta%):$FNt(31,7)=STR$(Ua%)
1070WHEN2:@%=16908810:w%=32:PROCf(w%):$FNt(32,5)=STR$(I):$FNt(32,7)=STR$(D)
1080WHEN3:@%=16908810:w%=33:PROCf(w%):$FNt(33,5)=STR$(H):$FNt(33,7)=STR$(E)
1090ENDCASE
1100WHENdb%:CASEq%!32OF
1110WHEN1:w%=42:`a%=0:PROCf(w%):$FNt(42,3)=STR$(eb%)
1120ENDCASE
1130WHENfb%:CASEq%!32OF
1140WHEN0:w%=12:PROCf(w%):$FNt(12,3)=LEFT$($(b%(I%)+36*gb%)):hb%=!(b%(I%)+36*gb%+24):@%=0:IFhb%=-1THEN
1150$FNt(12,5)="<unset>":$FNt(12,9)="<unset>":ib%=-1:jb%=-1
1160ELSE:$FNt(12,5)=FNg(hb%):$FNt(12,9)=FNq(hb%):ib%=hb%MOD12:jb%=hb%DIV12
1170ENDIF
1180@%=16908810:IF!(b%(I%)+36*gb%+28)>0THEN$FNt(12,13)=STR$(!(b%(I%)+36*gb%+28)*0.001)ELSE$FNt(12,13)=""
1190IF!(b%(I%)+36*gb%+32)>0THEN$FNt(12,15)=STR$(!(b%(I%)+36*gb%+32)*0.001)ELSE$FNt(12,15)=""
1200@%=0
1210WHEN3:w%=9:PROCf(w%):PROCV(4095):Qa%=5:q=FNt(9,1):$FNt(9,1)=I$
1220WHEN4:w%=40:@%=0:PROCf(w%):kb%=(d%(g%)MOD12):lb%=d%(g%)DIV12:PROCX(6):PROCX(9)
1230ENDCASE
1240ENDCASE
1250SYS262376,,a%(w%),q%!24,q%!28
1260ENDCASE
1270ENDPROC
1280DEFPROCna:mb%=q%!28:!p%=a%(15):SYS262347,,p%:nb%=p%!24:p%!4=q%!4+22:p%!8=q%!16-408:p%!12=q%!12+598:p%!16=q%!16-28:IFob%THENp%!24=nb%ELSEp%!24=784
1290p%!28=mb%:SYS262341,,p%:ob%=TRUE:q%!28=a%(15):ENDPROC
1300DEFPROCoa:mb%=q%!28:!p%=a%(37):SYS262347,,p%:nb%=p%!24:p%!4=q%!4+22:p%!8=q%!16-700:p%!12=q%!12+598:p%!16=q%!16-392:IFpb%THENp%!24=nb%
1310p%!28=mb%:SYS262341,,p%:pb%=TRUE:q%!28=a%(37):ENDPROC
1320DEFFNh(a%):LOCALb$:WHILE?a%>=32:b$+=CHR$(?a%):a%+=1:ENDWHILE:=b$
1330DEFFNt(n%,i%):!ba%=a%(n%):ba%!4=i%:SYS262350,,ba%:=ba%!28
1340DEFPROCK(n%):IFqb%<>-1ANDa%(n%)<>0THEN!G%=a%(n%):G%!4=qb%:SYS262340,,G%
1350ENDPROC
1360DEFPROCY(rb%,sb%):IFNOTtb%THENENDPROC
1370IFub%>-1THENPROCK(ub%)
1380PROCy(3):G%!0=a%(rb%):G%!4=842:G%!8=-216-(40*sb%):G%!12=972:G%!16=-172-(40*sb%):G%!20=&700F325:$fa%=STR$(H):G%!24=fa%:G%!28=-1:G%!32=10:SYS262338,,G%TOqb%:PROCj(rb%,qb%):@%=0:ENDPROC
1390DEFPROCj(n%,i%):!q%=a%(n%):q%!4=i%:q%!8=0:q%!12=0:SYS262349,,q%:ENDPROC
1400DEFPROCe(n%,i%):!q%=a%(n%):q%!4=i%:q%!8=1<<21:q%!12=1<<21:SYS262349,,q%:ENDPROC
1410DEFPROCC(n%,i%):!q%=a%(n%):q%!4=i%:q%!8=0<<21:q%!12=1<<21:SYS262349,,q%:ENDPROC
1420DEFPROCDa(n%,i%):!q%=a%(n%):q%!4=i%:q%!8=7<<24:q%!12=15<<24:SYS262349,,q%:ENDPROC
1430DEFPROCEa(n%,i%):!q%=a%(n%):q%!4=i%:q%!8=3<<24:q%!12=15<<24:SYS262349,,q%:ENDPROC
1440DEFPROCFa(i%,vb%):!q%=a%(13):q%!4=i%:q%!8=vb%<<28:q%!12=15<<28:SYS262349,,q%:ENDPROC
1450DEFPROCb(n%,i%,b%):q%!8=b%:q%!12=a%(n%):q%!16=i%:SYS530048,,q%:ENDPROC
1460DEFPROCV(wb%):!G%=a%(9):G%!4=2:SYS262350,,G%:$G%!28="file_"+STR$~(wb%)+CHR$(0):G%!8=1:G%!12=13:SYS262349,,G%:ENDPROC
1470DEFFNr(s$):WHILEINSTR(s$,":")>0:s$=MID$(s$,INSTR(s$,":")+1):ENDWHILE:WHILEINSTR(s$,".")>0:s$=MID$(s$,INSTR(s$,".")+1):ENDWHILE:=s$
1480DEFFNB(s$):LOCALxb%:xb%=LEN(s$):WHILEMID$(s$,xb%,1)<>"."ANDxb%>1:xb%-=1:ENDWHILE:=LEFT$(s$,xb%-1)
1490DEFPROCua(yb%,zb%,S%):FORAb%=0TO5:IFyb%=a%(Ab%)THENg%=Ab%
1500NEXT:IFub%>-1THENg%=ub%
1510_%=FALSE:CASEyb%OF
1520WHENa%(0),a%(1),a%(2),a%(3),a%(4),a%(5):PROCh:IFzb%=qb%ANDS%=13THEN
1530_%=TRUE:PROCs(Bb%,Cb%,ub%,VAL($(FNt(ub%,qb%)))):PROCc(Bb%,Cb%,ub%):PROCGa:PROCp:SYS262374,7:PROCN(Bb%,ub%):Db%=Bb%+1:Eb%=Cb%:Fb%=ub%:SYS262374,11:PROCN(Db%,Fb%):PROCHa
1540IFDb%<>n%(Fb%,Eb%)ANDtb%THENPROCY(Fb%,Db%):SYS262354,a%(Fb%),qb%,,,-1,0ELSE!G%=a%(Fb%):G%!4=qb%:SYS262340,,G%:PROCu(0):PROCn(za%)
1550ENDIF
1560WHENa%(42):IFS%=13THEN
1570PROCb(42,5,1):CASE`a%OF
1580WHEN0:IFVAL($(FNt(42,3)))>9THENeb%=VAL($(FNt(42,3))):PROCh:PROCb(42,5,0):PROCIa:_%=TRUEELSEPROCh:PROCb(42,5,0):PROCIa:_%=TRUE
1590WHEN1:IFVAL($(FNt(42,3)))>9THENU%=VAL($(FNt(42,3))):PROCh:PROCb(42,5,0):PROCJa:_%=TRUEELSEPROCh:PROCb(42,5,0):PROCJa:_%=TRUE
1600ENDCASE
1610ENDIF
1620WHENa%(9):IFS%=13THEN
1630PROCb(9,0,1):_%=TRUE:CASEQa%OF
1640WHEN0:PROCKa(FNh(q)):PROCh
1650WHEN3:PROCLa(FNh(q)):PROCh
1660WHEN4:PROCMa(FNh(q)):PROCh
1670WHEN5:PROCNa(FNh(q)):PROCh
1680ENDCASE
1690PROCb(9,0,0)
1700ENDIF
1710WHENa%(10):IFS%=13THENPROCb(10,0,1):PROCOa(FNh(q)):PROCh:PROCb(10,0,0):_%=TRUE
1720WHENa%(11):IFS%=13THENPROCb(11,0,1):PROCPa(FNh(q)):PROCh:PROCb(11,0,0):_%=TRUE
1730WHENa%(21):CASEzb%OF
1740WHEN6:IFS%=13THEN_%=TRUE:SYS262354,a%(21),11,,,-1,0
1750IFS%=398ORS%=399THEN_%=TRUE:SYS262354,a%(21),12,,,-1,0
1760WHEN11:IFS%=13THEN_%=TRUE:SYS262354,a%(21),12,,,-1,0
1770IFS%=398ORS%=399THEN_%=TRUE:SYS262354,a%(21),14,,,-1,0
1780WHEN12:IFS%=13THEN_%=TRUE:SYS262354,a%(21),14,,,-1,0
1790IFS%=398ORS%=399THEN_%=TRUE:SYS262354,a%(21),6,,,-1,0
1800WHEN14:IFS%=13THEN_%=TRUE:PROCb(21,13,1):PROCQa:PROCg(21)
1810IFS%=398ORS%=399THEN_%=TRUE:SYS262354,a%(21),11,,,-1,0
1820ENDCASE
1830WHENa%(30):CASEzb%OF
1840WHEN3:IFS%=13THEN_%=TRUE:PROCb(30,2,1):PROCt(Y%,d%(g%),g%,$(FNt(30,3))+D$):PROCc(Y%,d%(g%),g%):PROCu(0):PROCh:PROCb(30,2,0):PROCp
1850ENDCASE
1860WHENa%(31):CASEzb%OF
1870WHEN5:IFS%=13THEN_%=TRUE:SYS262354,a%(31),7,,,-1,0
1880IFS%=398ORS%=399THEN_%=TRUE:SYS262354,a%(31),7,,,-1,0
1890WHEN7:IFS%=13THEN_%=TRUE:PROCb(31,2,1):PROCz(Y%,d%(g%),g%,VAL($(FNt(31,5)))):PROCc(Y%,d%(g%),g%):PROCu(0):PROCh:PROCb(31,2,0):PROCp
1900IFS%=398ORS%=399THEN_%=TRUE:SYS262354,a%(31),5,,,-1,0
1910ENDCASE
1920WHENa%(32):CASEzb%OF
1930WHEN5:IFS%=13THEN_%=TRUE:SYS262354,a%(32),7,,,-1,0
1940IFS%=398ORS%=399THEN_%=TRUE:SYS262354,a%(32),7,,,-1,0
1950WHEN7:IFS%=13THEN_%=TRUE:PROCb(32,2,1):PROCA(Y%,d%(g%),g%,VAL($(FNt(32,5)))):PROCc(Y%,d%(g%),g%):PROCu(0):PROCh:PROCb(32,2,0):PROCp
1960IFS%=398ORS%=399THEN_%=TRUE:SYS262354,a%(32),5,,,-1,0
1970ENDCASE
1980WHENa%(33):CASEzb%OF
1990WHEN5:IFS%=13THEN_%=TRUE:SYS262354,a%(33),7,,,-1,0
2000IFS%=398ORS%=399THEN_%=TRUE:SYS262354,a%(33),7,,,-1,0
2010WHEN7:IFS%=13THEN_%=TRUE:PROCb(33,2,1):PROCs(Y%,d%(g%),g%,VAL($(FNt(33,5)))):PROCc(Y%,d%(g%),g%):PROCGa:PROCu(0):PROCh:PROCb(33,2,0):PROCp
2020IFS%=398ORS%=399THEN_%=TRUE:SYS262354,a%(33),5,,,-1,0
2030ENDCASE
2040WHENa%(12):CASEzb%OF
2050WHEN13:IFS%=13THEN_%=TRUE:SYS262354,a%(12),15,,,-1,0
2060IFS%=398ORS%=399THEN_%=TRUE:SYS262354,a%(12),15,,,-1,0
2070WHEN15:IFS%=13THEN_%=TRUE:PROCb(12,12,1):PROCRa:PROCh:PROCb(12,12,0)
2080IFS%=398ORS%=399THEN_%=TRUE:SYS262354,a%(12),13,,,-1,0
2090ENDCASE
2100OTHERWISE:SYS262364,S%:IFS%=1ANDBb%>-1THEN
2110_%=TRUE:g%=ub%:SYS262351,,G%:PROCn(cb%):PROCo(cb%,G%!0-64,G%!4)
2120ELSE:_%=TRUE
2130ENDIF
2140IFS%=14THEN_%=TRUE:PROCl(0,21):Gb%=g%
2150IFS%=18ANDBb%>-1THEN_%=TRUE:PROCSa(1):IFxa%=za%THENPROCh
2160ENDCASE
2170IFNOT_%THENSYS262364,S%
2180ENDPROC
2190DEFPROCka:SYS53,-1,4TO,,Hb%:SYS53,-1,11TO,,ua%:ua%=ua%<<Hb%:SYS53,-1,5TO,,Ib%:SYS53,-1,12TO,,ta%:ta%=ta%<<Ib%:SYS262351,,G%:IFJb%PROCra(!G%)
2200g%=Kb%:ENDPROC
2210DEFPROCra(Lb%):FORMb%=0TO5:IFLb%=a%(Mb%)THENPROCTa
2220NEXT:ENDPROC
2230DEFPROCr(q%):SYS262344,,q%TONb%:WHILENb%:PROCUa(q%):CASE!q%OF
2240WHENa%(0):IFn%(0,d%(0))>0PROCL(0,FALSE)
2250WHENa%(1):IFn%(1,d%(1))>0PROCL(1,FALSE)
2260WHENa%(2):IFn%(2,d%(2))>0PROCL(2,FALSE)
2270WHENa%(3):IFn%(3,d%(3))>0PROCL(3,FALSE)
2280WHENa%(4):IFn%(4,d%(4))>0PROCL(4,FALSE)
2290WHENa%(5):IFn%(5,d%(5))>0PROCL(5,FALSE)
2300WHENa%(23):IFn%(Ob%,Pb%)>0THENPROCL(Ob%,TRUE)
2310WHENa%(28):PROCVa
2320WHENa%(37):PROCWa
2330WHENa%(38):PROCXa
2340WHENa%(39):PROCYa
2350WHENa%(41):IFv%(I%)>-1THENPROCZa
2360WHENa%(17):PROC_a
2370ENDCASE
2380SYS530049,,q%:SYS262346,,q%TONb%:ENDWHILE:ENDPROC
2390DEFPROCL(Qb%,Rb%):v%=Qb%:Sb%=FALSE:Tb%=(-(Ub%+20)DIV40)-4:Vb%=(-(Wb%+20)DIV40)-4:IFTb%<0Tb%=0
2400IFVb%<0Vb%=0
2410IFTb%>n%(v%,d%(v%))-1Tb%=n%(v%,d%(v%))-1
2420IFVb%>n%(v%,d%(v%))-1Vb%=n%(v%,d%(v%))-1:Sb%=TRUE
2430aa=0:ba=0:Xb%=0:IFRb%THENYb%=d%(v%):d%(v%)=Pb%ELSEXb%=ABS(Zb%)*56
2440FORa%=Tb%TOVb%:J%=s%(v%,d%(v%))+36*a%:_b%=-1:a$=LEFT$($J%):b%=J%!24:c=J%!28*0.001:d=J%!32*0.001:@%=2314:IFNOTRb%THENPROC`a(7)
2450IF`b%<362THENSYS69,4,j%+12,E%-184-(a%*40):PRINTa$
2460IFac%>366AND`b%<460THENSYS69,4,j%+300,E%-184-(a%*40):PRINTb%
2470PROCy(1):IFac%>(634-16*LEN(STR$(c)))AND`b%<634THENSYS69,4,j%+474,E%-184-(a%*40):PRINTc
2480@%=16908810:IFac%>(814-16*LEN(STR$(b%*c)))AND`b%<814THENSYS69,4,j%+656,E%-184-(a%*40):PRINTb%*c
2490PROCy(2):IFac%>(966-Xb%-16*LEN(STR$(d)))AND`b%<(966+Xb%)THEN
2500SYS69,4,j%+804-Xb%,E%-184-(a%*40):PRINTd;:IFZb%ANDNOTRb%ANDn%(v%,d%(v%))>0THEN
2510@%=16908810:Q=0:PROC`a(4):IFd%(v%)>0ANDn%(v%,d%(v%)-1)>0THEN
2520FORbc%=0TOn%(v%,d%(v%)-1)-1:IFa$=LEFT$($(s%(v%,d%(v%)-1)+36*bc%))THENQ=d-(!(s%(v%,d%(v%)-1)+36*bc%+32)*0.001)
2530NEXT
2540ENDIF
2550J$="":IFQ=0THENJ$="0"
2560IFQ>0THENJ$="+"
2570PRINT"("+J$;Q;")"
2580ENDIF
2590ENDIF
2600IFNOTRb%THENPROC`a(7)
2610@%=16908810:IFac%>(1150-16*LEN(STR$(b%*d)))AND`b%<1150THENSYS69,4,j%+990,E%-184-(a%*40):PRINTb%*d
2620PROCy(3):IFac%>(1302-16*LEN(STR$(b%*(d-c))))AND`b%<1302THENe=b%*(d-c):SYS69,4,j%+1142,E%-184-(a%*40):PRINTe
2630PROCy(4):IFac%>1318AND`b%<1462THEN
2640IFc=0ANDd<>0THENcc%=TRUEELSEcc%=FALSE
2650IFd=0ORb%=0THENf=0
2660IFc=0ANDd=0THENf=0
2670IFc<>0ANDd<>0THENf=((d-c)/c)*100
2680SYS69,4,j%+1302,E%-184-(a%*40):IFNOTcc%THENPRINTfELSEPRINT" HIGH"
2690ENDIF
2700NEXT:SYS262374,7:IFdc%ANDSb%THEN
2710ec%=n%(v%,d%(v%)):fc%=s%(v%,d%(v%)):FORs%=0TOec%-1:aa+=!(fc%+36*s%+28)*!(fc%+36*s%+24)*0.001:ba+=!(fc%+36*s%+32)*!(fc%+36*s%+24)*0.001:NEXT:@%=16908810:SYS69,4,j%+12,E%-184-ec%*40:PRINT"Totals":SYS69,4,j%+656,E%-184-ec%*40:PRINTaa
2720SYS69,4,j%+990,E%-184-ec%*40:PRINTba
2730ENDIF
2740@%=0:IFRb%THENd%(v%)=Yb%
2750ENDPROC
2760DEFPROC`a(gc%):hc%=FALSE:IFic%ANDv%(g%)>-1THEN
2770FORjc%=0TOv%(g%):IFLEFT$($(s%(v%,d%(v%))+36*a%))=LEFT$($(b%(g%)+36*jc%))ANDd%(v%)=!(b%(g%)+36*jc%+24)THENhc%=TRUE
2780NEXT:IFhc%THENgc%=14
2790ENDIF
2800IFRIGHT$($(s%(v%,d%(v%))+36*a%))="1"THENgc%=13
2810IFa%=Y%ANDCb%=d%(v%)ANDub%=v%THENgc%=11
2820IF_b%<>gc%THENSYS262374,gc%
2830_b%=gc%:ENDPROC
2840DEFPROCXa:kc%=(-(Ub%+20)DIV40)-4:lc%=(-(Wb%+20)DIV40)-4:IFkc%<0kc%=0
2850IFlc%<0lc%=0
2860IFkc%>O%kc%=O%
2870IFlc%>O%lc%=O%
2880mc%=FALSE:nc%=FALSE:oc%=FALSE:SYS262374,7:FORk%=kc%TOlc%:J%=pc%+32*k%:b%=!(J%-32):K%=!J%:@%=0:IFK%DIV12=0ANDNOTmc%AND(b%DIV12<>K%DIV12ORk%=0)THENmc%=TRUE:SYS69,4,j%+60,E%-184-(k%*40):PRINTSTR$((Z%-2)+K%DIV12)
2890IFK%DIV12=1ANDNOTnc%AND(b%DIV12<>K%DIV12ORk%=0)THENnc%=TRUE:SYS69,4,j%+60,E%-184-(k%*40):PRINTSTR$((Z%-2)+K%DIV12)
2900IFK%DIV12=2ANDNOToc%AND(b%DIV12<>K%DIV12ORk%=0)THENoc%=TRUE:SYS69,4,j%+60,E%-184-(k%*40):PRINTSTR$((Z%-2)+K%DIV12)
2910SYS69,4,j%+174,E%-184-(k%*40):PRINTFNg(K%):@%=2314:SYS69,4,j%+344,E%-184-(k%*40):PRINTFNv(!(J%+4)*0.01):@%=16908810:SYS69,4,j%+534,E%-184-(k%*40):PRINT!(J%+8)*0.01:SYS69,4,j%+716,E%-184-(k%*40):PRINT!(J%+12)*0.01:SYS69,4,j%+864,E%-184-(k%*40):PRINT!(J%+16)*0.01
2920SYS69,4,j%+1050,E%-184-(k%*40):PRINT!(J%+20)*0.01:SYS69,4,j%+1202,E%-184-(k%*40):PRINT!(J%+24)*0.01:SYS69,4,j%+1362,E%-184-(k%*40):PRINT!(J%+28)*0.01:NEXT:IFlc%=O%ANDqc%THEN
2930SYS262374,2:MOVEj%,E%-224-(O%*40):DRAWj%+1570,E%-224-(O%*40):SYS262374,7:@%=0:MOVEj%+60,E%-248-(O%*40):PRINT"Number Of Units Held":MOVEj%+126,E%-292-(O%*40):PRINT"Highest: ";rc%;" units":MOVEj%+480,E%-292-(O%*40):PRINT"Lowest: ";sc%;" units":MOVEj%+900,E%-292-(O%*40)
2940PRINT"Average: ";tc%;" units":@%=16908810:MOVEj%+60,E%-340-(O%*40):PRINT"Purchase Price (�)":MOVEj%+126,E%-384-(O%*40):PRINT"Highest: �";X:MOVEj%+480,E%-384-(O%*40):PRINT"Lowest: �";Y:MOVEj%+900,E%-384-(O%*40):PRINT"Average: �";R:MOVEj%+60,E%-432-(O%*40):PRINT"Purchase Value (�)"
2950MOVEj%+126,E%-476-(O%*40):PRINT"Highest: �";Z:MOVEj%+480,E%-476-(O%*40):PRINT"Lowest: �";_:MOVEj%+900,E%-476-(O%*40):PRINT"Average: �";S:MOVEj%+60,E%-524-(O%*40):PRINT"Current Price (�)":MOVEj%+126,E%-568-(O%*40):PRINT"Highest: �";`:MOVEj%+480,E%-568-(O%*40):PRINT"Lowest: �";ca
2960MOVEj%+900,E%-568-(O%*40):PRINT"Average: �";T:MOVEj%+60,E%-616-(O%*40):PRINT"Current Value (�)":MOVEj%+126,E%-660-(O%*40):PRINT"Highest: �";da:MOVEj%+480,E%-660-(O%*40):PRINT"Lowest: �";ea:MOVEj%+900,E%-660-(O%*40):PRINT"Average: �";U:MOVEj%+60,E%-708-(O%*40):PRINT"Net Gain (�)"
2970MOVEj%+126,E%-752-(O%*40):PRINT"Highest: �";fa:MOVEj%+480,E%-752-(O%*40):PRINT"Lowest: �";ga:MOVEj%+900,E%-752-(O%*40):PRINT"Average: �";V:MOVEj%+60,E%-800-(O%*40):PRINT"Percentage Gain (%)":MOVEj%+126,E%-844-(O%*40):PRINT"Highest: ";ha;"%":MOVEj%+480,E%-844-(O%*40)
2980PRINT"Lowest: ";ia;"%":MOVEj%+900,E%-844-(O%*40):PRINT"Average: ";W;"%"
2990ENDIF
3000@%=0:ENDPROC
3010DEFPROCVa:kc%=(-(Ub%+20)DIV40)-4:lc%=(-(Wb%+20)DIV40)-4:IFkc%<0kc%=0
3020IFlc%<0lc%=0
3030IFkc%>l%kc%=l%
3040IFlc%>l%lc%=l%
3050mc%=FALSE:nc%=FALSE:oc%=FALSE:CASEWa%OF
3060WHEN0,1,2,3,4:FORi%=kc%TOlc%:J%=uc%+8*i%:b%=!(J%-8):x%=!J%:n=!(J%+4)*0.01:@%=0:IFx%DIV12=0ANDNOTmc%AND(b%DIV12<>x%DIV12ORi%=0)THENmc%=TRUE:SYS69,4,j%+12,E%-184-(i%*40):PRINTSTR$((Z%-2)+x%DIV12)
3070IFx%DIV12=1ANDNOTnc%AND(b%DIV12<>x%DIV12ORi%=0)THENnc%=TRUE:SYS69,4,j%+12,E%-184-(i%*40):PRINTSTR$((Z%-2)+x%DIV12)
3080IFx%DIV12=2ANDNOToc%AND(b%DIV12<>x%DIV12ORi%=0)THENoc%=TRUE:SYS69,4,j%+12,E%-184-(i%*40):PRINTSTR$((Z%-2)+x%DIV12)
3090@%=16908810:SYS69,4,j%+126,E%-184-(i%*40):PRINTFNg(x%):SYS69,4,j%+304,E%-184-(i%*40):PRINTn:NEXT
3100WHEN5,6:FORi%=kc%TOlc%:J%=uc%+8*i%:b%=!(J%-8):x%=!J%:n=!(J%+4)*0.01:@%=0:IFx%DIV12=0ANDNOTmc%AND(b%DIV12<>x%DIV12ORi%=0)THENmc%=TRUE:SYS69,4,j%+12,E%-184-(i%*40):PRINTSTR$((Z%-2)+x%DIV12)
3110IFx%DIV12=1ANDNOTnc%AND(b%DIV12<>x%DIV12ORi%=0)THENnc%=TRUE:SYS69,4,j%+12,E%-184-(i%*40):PRINTSTR$((Z%-2)+x%DIV12)
3120IFx%DIV12=2ANDNOToc%AND(b%DIV12<>x%DIV12ORi%=0)THENoc%=TRUE:SYS69,4,j%+12,E%-184-(i%*40):PRINTSTR$((Z%-2)+x%DIV12)
3130@%=16908810:SYS69,4,j%+126,E%-184-(i%*40):PRINTFNg(x%):SYS69,4,j%+304,E%-184-(i%*40):PRINTn:NEXT
3140ENDCASE
3150@%=0:ENDPROC
3160DEFPROCZa:vc%=(-(Ub%+20)DIV40)-4:wc%=(-(Wb%+20)DIV40)-4:IFvc%<0vc%=0
3170IFwc%<0wc%=0
3180IFvc%>v%(I%)vc%=v%(I%)
3190IFwc%>v%(I%)wc%=v%(I%)
3200SYS262374,7:FORu%=vc%TOwc%:J%=b%(I%)+36*u%:IFu%=gb%THENSYS262374,15
3210xc%=!(J%+24):SYS69,4,j%+12,E%-184-(u%*40):IFu%>0THEN
3220IFLEFT$($J%)=LEFT$($(J%-36))THENPRINT""ELSEPRINTLEFT$($J%)
3230ELSE:PRINTLEFT$($J%)
3240ENDIF
3250@%=0:IFxc%>-1THEN
3260SYS69,4,j%+368,E%-184-(u%*40):PRINTxc%DIV12+Z%-2:SYS69,4,j%+482,E%-184-(u%*40):PRINTFNg(xc%)
3270ENDIF
3280@%=16908810:IF!(J%+28)>0THEN
3290SYS69,4,j%+624,E%-184-(u%*40):PRINT!(J%+28)*0.001
3300ENDIF
3310IF!(J%+32)>0THEN
3320SYS69,4,j%+816,E%-184-(u%*40):PRINT!(J%+32)*0.001
3330ENDIF
3340IF!(J%+28)>0AND!(J%+32)>0THEN
3350SYS69,4,j%+1020,E%-184-(u%*40):PRINT(!(J%+28)-!(J%+32))*0.001
3360ENDIF
3370IFu%=gb%THENSYS262374,7
3380NEXT:IFwc%=v%(I%)ANDv%(I%)>-1THEN
3390ja=0:ka=0:FORyc%=0TOv%(I%):J%=b%(I%)+36*yc%:la=!(J%+28)*0.001:ma=!(J%+32)*0.001:IFla>=0THENja+=la
3400IFma>=0THENka+=ma
3410NEXT:SYS69,4,j%+12,E%-224-(v%(I%)*40):PRINT"Totals":SYS69,4,j%+624,E%-224-(v%(I%)*40):PRINTja:SYS69,4,j%+816,E%-224-(v%(I%)*40):PRINTka:SYS69,4,j%+1020,E%-224-(v%(I%)*40):PRINTja-ka
3420ENDIF
3430@%=0:ENDPROC
3440DEFPROCWa:zc%=-Ub%DIV40:Ac%=-Wb%DIV40:Bc%=(Cc%*12)+Dc%:Ec%=n%(Fc%,Bc%)-1:IFzc%<0zc%=0
3450IFAc%<0Ac%=0
3460IFzc%>Ec%zc%=Ec%
3470IFAc%>Ec%Ac%=Ec%
3480IFEc%=-1THEN
3490SYS69,4,j%+12,E%-8:PRINT"No available stock"
3500ELSE:FORGc%=zc%TOAc%:SYS262374,7:IFHc%?Gc%=1THENSYS262374,11
3510SYS69,4,j%+12,E%-8-(Gc%*40):PRINTLEFT$($(s%(Fc%,Bc%)+36*Gc%)):NEXT
3520ENDIF
3530@%=0:ENDPROC
3540DEFPROCYa:IFIc%=1THENJc%=l%ELSEJc%=O%
3550Kc%=0:Lc%=FNI:IFMc%=1THENNc%=160-Lc%ELSENc%=160
3560Oc%=(`b%-Nc%)DIVLc%:Pc%=(ac%-Nc%)DIVLc%:IFOc%<0Oc%=0
3570IFPc%<0Pc%=0
3580IFOc%>Jc%Oc%=Jc%
3590IFPc%>Jc%Pc%=Jc%
3600Qc%=FNf(120):@%=0:Rc%=FALSE:F=0:CASEIc%OF
3610WHEN1:r%=l%:r=u:i=v:s=P:IFi<0THENSc%=TRUE
3620Tc%=ABS(Wa%=0):Uc%=ABS(Wa%=4):IFu=vTHENa=350/uELSEa=350/(u-(v*ABS(Sc%)))
3630F=!(uc%+8*(Oc%-1)+4)*0.01-(i*ABS(Sc%))
3640WHEN2:r%=O%:r=C:i=G:s=na:IFi<0THENSc%=TRUE
3650Tc%=ABS(Vc%=0):Uc%=ABS(Vc%=4):IFC=GTHENa=350/CELSEa=350/(C-(G*ABS(Sc%)))
3660F=!(pc%+32*(Oc%-1)+Wc%)*0.01-(i*ABS(Sc%))
3670ENDCASE
3680IFMc%=1THENXc%=TRUEELSEXc%=FALSE
3690IFU%<100THENVDU23,17,7,6,FNf(16>>Hb%);FNf(32>>Ib%)|
3700FORi%=Oc%TOPc%:CASEIc%OF
3710WHEN1:J%=uc%+8*i%:x%=!J%:n=!(J%+4)*0.01
3720WHEN2:J%=pc%+32*i%:x%=!J%:n=!(J%+Wc%)*0.01
3730ENDCASE
3740IFSc%THENn-=i
3750CASEMc%OF
3760WHEN0:CASEYc%OF
3770WHEN0:J%=j%+160+(U%*i%):Zc%=n*a:SYS262374,f%(6):SYS69,4,J%,E%-424:SYS69,101,J%+U%,Zc%+E%-424:SYS262374,f%(7):RECTANGLEJ%,E%-424,U%,Zc%:SYS262374,7:SYS69,4,J%+FNf(24),E%-460:PRINTLEFT$(FNg(x%),3):SYS69,4,J%+FNf(16),E%-494:PRINTSTR$((Z%-2)+x%DIV12)
3780WHEN1:IFNOTRc%THEN
3790Rc%=TRUE:SYS262374,f%(12):SYS69,4,j%+160,E%-424:SYS69,4,j%+160+FNf(240),E%-224:SYS69,117,j%+160+FNf(240),760+(E%-424):SYS262374,f%(11):SYS69,4,j%+160,E%-424:SYS69,4,j%+160+FNf(120)+(Qc%*r%),E%-424:SYS69,117,j%+160+FNf(360)+(Qc%*r%),E%-224
3800ENDIF
3810SYS262374,f%(8):SYS69,4,j%+160+(Qc%*i%),E%-424:SYS69,101,j%+160+U%+(Qc%*i%),(n*a)+E%-424:SYS262374,f%(10):SYS69,4,j%+160+(Qc%*i%),E%-420+(n*a):SYS69,4,j%+160+U%+(Qc%*i%),E%-420+(n*a):SYS69,117,j%+160+FNf(124)+(Qc%*i%),E%-400+(n*a):SYS262374,f%(9)
3820SYS69,4,j%+160+U%+(Qc%*i%),E%-424:SYS69,4,j%+160+FNf(124)+(Qc%*i%),E%-400:SYS69,117,j%+160+FNf(124)+(Qc%*i%),E%-400+(n*a):SYS262374,7:SYS69,4,j%+160+FNf(24)+(Qc%*i%),E%-460:PRINTLEFT$(FNg(x%),3):SYS69,4,j%+160+FNf(16)+(Qc%*i%),E%-494
3830PRINTSTR$((Z%-2)+x%DIV12)
3840ENDCASE
3850WHEN1:SYS262374,f%(5):IFi%>0THEN
3860SYS69,4,j%+160+(U%*(i%-1)),E%-424+(F*a):SYS69,5,j%+160+(U%*i%),E%-424+(n*a)
3870ENDIF
3880SYS262374,7:SYS69,4,j%+132+(U%*i%),E%-460:PRINTLEFT$(FNg(x%),3):SYS69,4,j%+124+(U%*i%),E%-494:PRINTSTR$((Z%-2)+x%DIV12):F=n
3890ENDCASE
3900NEXT:VDU23,17,7,6,16>>Hb%;32>>Ib%|
3910_c%=FNf((100+(20*ABS(Rc%)))*(r%+1)-(98*ABS(Xc%))):SYS262374,f%(1):SYS69,4,j%+160,E%-424:SYS69,5,j%+160,E%+20:SYS262374,f%(0):SYS69,4,j%+160,E%-424:SYS69,5,j%+160+_c%,E%-424:j=i*ABS(Sc%):j%+=6:VDU23,6,248,248,248,248,248,248,248,248
3920CASE`c%OF
3930WHENTRUE:ad%=_c%-20:SYS262374,f%(2):SYS69,4,j%+160,E%-424+(r-j)*a:SYS69,21,j%+168+ad%,E%-424+(r-j)*a:SYS262374,f%(4):SYS69,4,j%+160,E%-424+(i-j)*a:SYS69,21,j%+168+ad%,E%-424+(i-j)*a:SYS262374,f%(3):SYS69,4,j%+160,E%-424+(s-j)*a
3940SYS69,21,j%+168+ad%,E%-424+(s-j)*a:j%-=6:@%=16908810:SYS262374,f%(2):IFUc%=1THENSYS69,4,j%+8,E%-412+((r-j)*a):@%=16908808:PRINTr;"%"
3950IFTc%=1THENSYS69,4,j%+16,E%-412+((r-j)*a):@%=8:PRINTFNv(r)
3960IFUc%=0ANDTc%=0THENSYS69,4,j%+132-(16*LEN(STR$(r))),E%-412+((r-j)*a):PRINT"�";r
3970SYS262374,f%(4):IFUc%=1THENSYS69,4,j%+8,E%-412+((i-j)*a):@%=16908808:PRINTi;"%"
3980IFTc%=1THENSYS69,4,j%+16,E%-412+((i-j)*a):@%=8:PRINTFNv(i)
3990IFUc%=0ANDTc%=0THENSYS69,4,j%+132-(16*LEN(STR$(i))),E%-412+((i-j)*a):PRINT"�";i
4000SYS262374,f%(3):IFUc%=1THENSYS69,4,j%+8,E%-412+(s-j)*a:@%=16908808:PRINTs;"%"
4010IFTc%=1THENSYS69,4,j%+16,E%-412+(s-j)*a:@%=8:PRINTFNv(s)
4020IFUc%=0ANDTc%=0THENSYS69,4,j%+132-(16*LEN(STR$(s))),E%-412+(s-j)*a:PRINT"�";s
4030WHENFALSE
4040ENDCASE
4050SYS262374,7:@%=0:ENDPROC
4060DEFFNw(t$):SYS262295,,t$+" "TO,,,bd%:=(bd%*0.0025)
4070DEFFNm(t):SYS262295,,STR$(t)TO,,,bd%:=(bd%*0.0025)
4080DEFPROC_a:LOCALa$,b%,c,d,e,f,g,h:cd%=(-(Ub%+FNz(320))DIVFNz(48)):dd%=(-(Wb%+FNz(320))DIVFNz(48)):oa=0:pa=0:ed%=FALSE:fd%=FALSE:FORgd%=1TOqa%:SYS262273,,"Trinity.Medium.Italic",FNz(320),FNz(320),0,0TOh%:SYS262282,h%:SYS264015,0,-256,0,14:R$=STR$(gd%):hd%=FNw(R$)
4090SYS262278,,R$,16,j%+FNz(1530)-hd%,E%-FNz(2140*gd%-20):NEXT:IFNOTid%THEN
4100SYS262274,h%:FORgd%=1TOqa%:SYS262374,2:LINEj%,E%-FNz(2140*gd%),j%+FNz(1540),E%-FNz(2140*gd%):NEXT
4110ENDIF
4120cd%-=((cd%+9)DIV45)*2:IFcd%<0THENcd%=0:fd%=TRUE
4130IFdd%<0THENdd%=0:fd%=TRUE
4140IFcd%>n%(jd%,kd%)-1THENcd%=n%(jd%,kd%)-1:ed%=TRUE
4150IFdd%>n%(jd%,kd%)-1THENdd%=n%(jd%,kd%)-1:ed%=TRUE
4160IFid%THENcd%=0:dd%=n%(jd%,kd%)-1:ed%=TRUE:fd%=TRUE
4170i%=cd%:dd%+=((dd%+9)DIV45)*4:IFfd%THEN
4180SYS262273,,"Trinity.Bold",FNz(320),FNz(320),0,0TOh%:SYS262282,h%:SYS264015,0,-256,0,14:ld%=FNw(n$):md%=E%-FNz(276):nd%=E%-FNz(232):CASEod%OF
4190WHEN0:SYS262278,,n$,16,j%+FNz(800)-(ld%*0.5),E%-FNz(140)
4200WHEN1:SYS262278,,n$,16,j%+FNz(32),E%-FNz(140)
4210WHEN2:SYS262278,,n$,16,j%+FNz(1500)-ld%,E%-FNz(140)
4220ENDCASE
4230SYS262274,h%:SYS262273,,"Trinity.Bold",FNz(224),FNz(224),0TOh%:SYS262282,h%:SYS264015,0,-256,0,14:SYS262278,,"Stock Name",16,j%+FNz(32),md%:SYS262278,,"Number Of",16,j%+FNz(340),nd%:SYS262278,,"Units Held",16,j%+FNz(342),md%
4240SYS262278,,"Purchase",16,j%+FNz(530),nd%:SYS262278,,"Price (�)",16,j%+FNz(532),md%:SYS262278,,"Purchase",16,j%+FNz(682),nd%:SYS262278,,"Value (�)",16,j%+FNz(684),md%:SYS262278,,"Current",16,j%+FNz(852),nd%:SYS262278,,"Price (�)",16,j%+FNz(854),md%
4250SYS262278,,"Current",16,j%+FNz(1018),nd%:SYS262278,,"Value (�)",16,j%+FNz(1016),md%:SYS262278,,"Net",16,j%+FNz(1234),nd%:SYS262278,,"Gain (�)",16,j%+FNz(1202),md%:SYS262278,,"Percentage",16,j%+FNz(1344),nd%:SYS262278,,"Gain (%)",16,j%+FNz(1364),md%
4260SYS262274,h%
4270ENDIF
4280SYS262273,,h$,FNz(224),FNz(224),0TOh%:SYS262282,h%:SYS264015,0,-256,0,14:REPEAT:CASE(i%+9)MOD45OF
4290WHEN0,1,2,3:i%+=4-((i%+9)MOD45)
4300ENDCASE
4310k%=((i%+9)DIV45)*4:i%-=k%:J%=s%(jd%,kd%)+36*i%:pd%=E%-FNz(340+(48*i%)):a$=LEFT$($J%):b%=!(J%+24):c=!(J%+28)*0.001:d=!(J%+32)*0.001:e=b%*c:f=b%*d:g=f-e:IFe=0THENh=0ELSEh=100*(f-e)/e
4320i%+=k%:@%=0:SYS262278,,a$,16,j%+FNz(32),pd%:SYS262278,,STR$(b%),16,j%+FNz(468)-FNw(STR$(b%)),pd%:@%=16908810:SYS262278,,STR$(c),16,j%+FNz(628)-FNm(c),pd%:SYS262278,,STR$(e),16,j%+FNz(808)-FNm(e),pd%:SYS262278,,STR$(d),16,j%+FNz(952)-FNm(d),pd%
4330SYS262278,,STR$(f),16,j%+FNz(1140)-FNm(f),pd%:SYS262278,,STR$(g),16,j%+FNz(1318)-FNm(g),pd%:SYS262278,,STR$(h),16,j%+FNz(1484)-FNm(h),pd%:i%+=1:UNTILi%>dd%:IFdc%ANDed%THEN
4340FORqd%=0TOn%(jd%,kd%)-1:oa+=FNd(qd%,kd%,jd%)*FNa(qd%,kd%,jd%):pa+=FNc(qd%,kd%,jd%)*FNa(qd%,kd%,jd%):NEXT:SYS262278,,"Totals",16,j%+FNz(32),E%-FNz(388+(48*dd%)):SYS262278,,STR$(oa),16,j%+FNz(808)-FNm(oa),E%-FNz(388+(48*dd%))
4350SYS262278,,STR$(pa),16,j%+FNz(1140)-FNm(pa),E%-FNz(388+(48*dd%))
4360ENDIF
4370SYS262274,h%:@%=0:ENDPROC
4380DEFFNz(l%):=(l%*eb%*0.01)
4390DEFFNf(l%):=(l%*U%/100)
4400DEFPROCy(rd%):CASErd%OF
4410WHEN1:CASEsd%OF
4420WHEN1:@%=16908554
4430WHEN2:@%=16908810
4440WHEN3:@%=16909066
4450ENDCASE
4460WHEN2:CASEtd%OF
4470WHEN1:@%=16908554
4480WHEN2:@%=16908810
4490WHEN3:@%=16909066
4500ENDCASE
4510WHEN3:CASEud%OF
4520WHEN1:@%=16908554
4530WHEN2:@%=16908810
4540WHEN3:@%=16909066
4550ENDCASE
4560WHEN4:CASEvd%OF
4570WHEN1:@%=16908554
4580WHEN2:@%=16908810
4590WHEN3:@%=16909066
4600ENDCASE
4610ENDCASE
4620ENDPROC
4630DEFFNI:CASEMc%OF
4640WHEN0:CASEYc%OF
4650WHEN0:Kc%=U%
4660WHEN1:Kc%=FNf(120)
4670ENDCASE
4680WHEN1:Kc%=U%
4690ENDCASE
4700=Kc%
4710DEFPROCsa(wd%,xd%,b%,yd%,M%):LOCALDb%,wb%,Eb%,Fb%:CASEb%OF
4720WHEN1,4:CASEyd%OF
4730WHENa%(0),a%(1),a%(2),a%(3),a%(4),a%(5):PROCab:zd%=n%(g%,d%(g%)):!q%=a%(g%):SYS262347,,q%:PROCZ(q%):Ad%=((-(xd%-E%)-20)DIV40)-4:IFzd%<=0THENENDPROC
4740IFAd%<0ORAd%>=zd%THENENDPROC
4750Db%=Ad%:Eb%=d%(g%):Fb%=g%:SYS262374,7:IFBb%>-1THEN
4760IFd%(ub%)=Cb%THENPROCN(Bb%,ub%)
4770ENDIF
4780SYS262374,11:PROCN(Db%,Fb%):IFtb%THENPROCY(Fb%,Db%)
4790PROCHa
4800WHENa%(37):!q%=a%(37):SYS262347,,q%:PROCZ(q%):Bd%=((-(xd%-E%)-8)DIV40):IFBd%<0ORBd%>=n%(Fc%,(Cc%*12)+Dc%)THENENDPROC
4810IFn%(Fc%,(Cc%)*12+Dc%)=0THENENDPROC
4820Cd%=Bd%:IFHc%?Cd%=1THENHc%?Cd%=0ELSEHc%?Cd%=1
4830IFNOTDd%ANDEd%>-1ANDCd%<>Ed%THENHc%?Ed%=0:SYS262374,7:PROCbb(Ed%)
4840SYS262374,11:PROCbb(Cd%):Ed%=Cd%
4850WHENa%(41):!q%=a%(41):SYS262347,,q%:PROCZ(q%):Fd%=((-(xd%-E%)-20)DIV40)-4:IFFd%<0ORFd%>=v%(I%)+1THENENDPROC
4860gb%=Fd%:SYS262374,7:IFGd%>-1THENPROC_(Gd%)
4870SYS262374,15:PROC_(gb%):Gd%=gb%
4880WHEN-2:PROCcb:IFHd%=-1THENENDPROC
4890Id%=(80*Hd%)+2:Jd%=68*Hd%:IFa%(Hd%)=0THENd%(Hd%)=FNx(Kd%,Ld%)
4900PROCf(Hd%):!q%=a%(Hd%):SYS262347,,q%:q%!28=-1:IFNOTMd%THENNd%=q%!12-q%!4:Od%=q%!16-q%!8:q%!4=Id%:q%!8=ta%-40-Od%-Jd%:q%!12=q%!4+Nd%:q%!16=q%!8+Od%:q%!20=0:q%!24=0
4910IFe%(Hd%)THENg$=" *"ELSEg$=""
4920PROCv(Hd%,a$(Hd%)+g$,0):PROC`(Hd%):SYS262341,,q%:PROCI(Hd%)
4930WHENa%(18):CASEM%OF
4940WHEN7:PROCn(Pd%):PROCo(Pd%,wd%-64,xd%)
4950WHEN8:PROCb(18,8,1):PROCn(Pd%):PROCo(Pd%,wd%-64,xd%):PROCb(18,8,0)
4960WHEN10:PROCn(Qd%):PROCo(Qd%,wd%-64,xd%)
4970WHEN11:PROCb(18,11,1):PROCn(Qd%):PROCo(Qd%,wd%-64,xd%):PROCb(18,11,0)
4980WHEN12:Rd%=NOTRd%
4990WHEN13:Sd%=NOTSd%
5000WHEN14:Td%=NOTTd%
5010WHEN15:Ud%=NOTUd%
5020WHEN17,18,19:IF(b%AND1)>0ANDVd%=(M%-16)THENPROCe(18,M%)ELSEVd%=(M%-16)
5030WHEN21,22,23:IF(b%AND1)>0ANDWd%=(M%-20)THENPROCe(18,M%)ELSEWd%=(M%-20)
5040WHEN25,26,27:IF(b%AND1)>0ANDXd%=(M%-24)THENPROCe(18,M%)ELSEXd%=(M%-24)
5050WHEN29,30,31:IF(b%AND1)>0ANDYd%=(M%-28)THENPROCe(18,M%)ELSEYd%=(M%-28)
5060WHEN32:PROCb(18,32,1):IF(b%AND1)<=0THENPROCdb:PROCg(18)ELSEPROCb(18,32,0):PROCdb
5070WHEN33:PROCb(18,33,1):PROCeb:PROCfb:IF(b%AND1)<=0THENPROCg(18)ELSEPROCb(18,33,0)
5080WHEN34:PROCb(18,34,1):IF(b%AND1)<=0THENPROCeb:PROCg(18)ELSEPROCb(18,34,0):PROCeb
5090ENDCASE
5100WHENa%(43):CASEM%OF
5110WHEN2:PROCb(43,2,1):PROCb(43,2,0):la%=TRUE:$FNt(43,0)="Investor: printing page "+STR$na%+" (Copy "+STR$oa%+")":PROCj(43,0)
5120WHEN3:PROCb(43,3,1):PROCg(43):la%=FALSE
5130ENDCASE
5140WHENa%(15):CASEM%OF
5150WHEN3:IF(b%AND1)>0ANDZd%=0THENPROCe(15,3)ELSEZd%=0:PROCgb
5160WHEN7:IF(b%AND1)>0ANDZd%=1THENPROCe(15,7)ELSEZd%=1:PROCgb
5170WHEN22:IF(b%AND1)>0ANDod%=0THENPROCe(15,22)ELSEod%=0
5180WHEN25:IF(b%AND1)>0ANDod%=1THENPROCe(15,25)ELSEod%=1
5190WHEN28:IF(b%AND1)>0ANDod%=2THENPROCe(15,28)ELSEod%=2
5200WHEN11,13:IF_d%THENPROChb:PROCib(12)
5210WHEN15,17:IF_d%THENPROChb:PROCib(16)
5220WHEN35:IF`d%=0THEN`d%=1ELSE`d%=0
5230ENDCASE
5240WHENa%(42):CASEM%OF
5250WHEN5:PROCb(42,5,1):CASE`a%OF
5260WHEN0:IFVAL($(FNt(42,3)))>9THENeb%=VAL($(FNt(42,3)))
5270PROCh:PROCb(42,5,0):PROCIa
5280WHEN1:IFVAL($(FNt(42,3)))>9THENU%=VAL($(FNt(42,3)))
5290PROCh:PROCb(42,5,0):PROCJa
5300ENDCASE
5310ENDCASE
5320WHENa%(16):CASEM%OF
5330WHEN0:PROCb(16,0,1):CASEZd%OF
5340WHEN0:kd%=d%(jd%)
5350WHEN1:kd%=(12*ae%)+be%
5360ENDCASE
5370PROCjb:PROCb(16,0,0)
5380WHEN1:PROCb(16,1,1):IF(b%AND1)<=0THENPROCg(16)ELSEPROCb(16,1,0)
5390ENDCASE
5400WHENa%(19):CASEM%OF
5410WHEN3,6:PROCkb:PROClb
5420WHEN2:PROCb(19,2,1):PROCmb:PROCb(19,2,0)
5430ENDCASE
5440WHENa%(20):CASEM%OF
5450WHEN3,6:PROCnb:PROCob
5460WHEN2:PROCb(20,2,1):PROCmb:PROCb(20,2,0)
5470ENDCASE
5480WHENa%(8):CASEM%OF
5490WHEN3:IF(b%AND1)>0ANDGa%=0THENPROCe(8,3)ELSEGa%=0
5500WHEN4:IF(b%AND1)>0ANDGa%=1THENPROCe(8,4)ELSEGa%=1
5510WHEN5:IF(b%AND1)>0ANDGa%=2THENPROCe(8,5)ELSEGa%=2
5520WHEN6,14:PROCpb:PROCH(9)
5530WHEN7,8:PROCpb:PROCH(10)
5540WHEN20,23:PROCpb:PROCH(18)
5550WHEN22,24:PROCpb:PROCH(19)
5560WHEN13:PROCb(8,13,1):PROCR(1,Ga%,-1,Ea%,Ca%,Fa%,Da%,g%,g%):PROCn(za%):PROCh:PROCb(8,13,0)
5570ENDCASE
5580WHENa%(7):CASEM%OF
5590WHEN3:IF(b%AND1)>0ANDOa%=0THENPROCe(7,3)ELSEOa%=0
5600WHEN4:IF(b%AND1)>0ANDOa%=1THENPROCe(7,4)ELSEOa%=1
5610WHEN5:IF(b%AND1)>0ANDOa%=2THENPROCe(7,5)ELSEOa%=2
5620WHEN6,14:PROCqb:PROCU(9)
5630WHEN11,10:PROCqb:PROCU(8)
5640WHEN13:PROCb(7,13,1):PROCR(2,Oa%,-1,Ma%,0,Na%,0,g%,g%):PROCn(za%):PROCh:PROCb(7,13,0)
5650ENDCASE
5660WHENa%(9):CASEM%OF
5670WHEN0:PROCb(9,0,1):CASEQa%OF
5680WHEN0:PROCKa(FNh(q)):PROCh
5690WHEN3:PROCLa(FNh(q)):PROCh
5700WHEN4:PROCMa(FNh(q)):PROCh
5710WHEN5:PROCNa(FNh(q)):PROCh
5720ENDCASE
5730PROCb(9,0,0)
5740ENDCASE
5750WHENa%(10):CASEM%OF
5760WHEN0:PROCb(10,0,1):PROCOa(FNh(q)):IF(b%AND1)<=0THENPROCh
5770PROCb(10,0,0)
5780WHEN3:IF(b%AND1)>0ANDPa%=0THENPROCe(10,3)ELSEPa%=0
5790WHEN4:IF(b%AND1)>0ANDPa%=1THENPROCe(10,4)ELSEPa%=1
5800WHEN5:IF(b%AND1)>0ANDPa%=2THENPROCe(10,5)ELSEPa%=2
5810ENDCASE
5820WHENa%(11):CASEM%OF
5830WHEN0:PROCb(11,0,1):PROCPa(FNh(q)):IF(b%AND1)<=0THENPROCh
5840PROCb(11,0,0)
5850WHEN3:IF(b%AND1)>0ANDbb%=0THENPROCe(11,3)ELSEbb%=0
5860WHEN4:IF(b%AND1)>0ANDbb%=1THENPROCe(11,4)ELSEbb%=1
5870WHEN5:IF(b%AND1)>0ANDbb%=2THENPROCe(11,5)ELSEbb%=2
5880WHEN9:IF(b%AND1)>0ANDbb%=3THENPROCe(11,9)ELSEbb%=3
5890ENDCASE
5900WHENa%(21):CASEM%OF
5910WHEN8:PROCb(21,8,1):IF(b%AND1)<=0THENPROCg(21)ELSEPROCb(21,8,0):PROCrb:PROCsb(a%(21))
5920WHEN13:PROCb(21,13,1):PROCQa:IF(b%AND1)<=0THENPROCg(21)ELSEPROCsb(a%(21))
5930PROCb(21,13,0)
5940ENDCASE
5950WHENa%(35):CASEM%OF
5960WHEN13:IF(b%AND1)>0ANDce%=0THENPROCe(35,13)ELSEce%=0
5970WHEN16:IF(b%AND1)>0ANDce%=1THENPROCe(35,16)ELSEce%=1
5980WHEN5:IF(b%AND1)>0ANDce%=2THENPROCe(35,5)ELSEce%=2
5990WHEN22:IF(b%AND1)>0ANDde%=0THENPROCe(35,22)ELSEde%=0
6000WHEN23:IF(b%AND1)>0ANDde%=1THENPROCe(35,23)ELSEde%=1
6010WHEN31,33:PROCtb:PROCJ(32)
6020WHEN39,37:PROCtb:PROCJ(38)
6030WHEN24,20:PROCtb:PROCJ(18)
6040WHEN6,14:PROCtb:PROCJ(9)
6050WHEN35:PROCb(35,35,1):PROCR(2,ce%,de%,ee%,0,fe%,0,ge%,he%):IF(b%AND1)<=0THENPROCg(35)
6060PROCb(35,35,0)
6070WHEN27:PROCb(35,27,1):PROCg(35)
6080ENDCASE
6090WHENa%(34):CASEM%OF
6100WHEN13:IF(b%AND1)>0ANDie%=0THENPROCe(34,13)ELSEie%=0
6110WHEN29:IF(b%AND1)>0ANDie%=1THENPROCe(34,29)ELSEie%=1
6120WHEN5:IF(b%AND1)>0ANDie%=2THENPROCe(34,5)ELSEie%=2
6130WHEN41:IF(b%AND1)>0ANDje%=0THENPROCe(34,41)ELSEje%=0
6140WHEN44:IF(b%AND1)>0ANDje%=1THENPROCe(34,44)ELSEje%=1
6150WHEN31,33:PROCO:PROCw(32)
6160WHEN39,37:PROCO:PROCw(38)
6170WHEN24,20:PROCO:PROCw(18)
6180WHEN6,14:PROCO:PROCw(9)
6190WHEN23,19:PROCO:PROCw(22)
6200WHEN43,42:PROCO:PROCw(10)
6210WHEN28:PROCb(34,28,1):PROCR(1,ie%,je%,ke%,le%,me%,ne%,oe%,pe%):IF(b%AND1)<=0THENPROCg(34)
6220PROCb(34,28,0)
6230WHEN46:PROCb(34,46,1):PROCg(34)
6240ENDCASE
6250WHENa%(36):CASEM%OF
6260WHEN13:IF(b%AND1)>0ANDqe%=0THENPROCe(36,13)ELSEqe%=0
6270WHEN5:IF(b%AND1)>0ANDqe%=1THENPROCe(36,5)ELSEqe%=1
6280WHEN29:IF(b%AND1)>0ANDqe%=2THENPROCe(36,29)ELSEqe%=2
6290WHEN41:IF(b%AND1)>0ANDre%=0THENPROCe(36,41)ELSEre%=0
6300WHEN44:IF(b%AND1)>0ANDre%=1THENPROCe(36,44)ELSEre%=1
6310WHEN48:Dd%=NOTDd%:IFNOTDd%THENPROCub
6320WHEN31,33:PROCP:PROCx(32)
6330WHEN39,37:PROCP:PROCx(38)
6340WHEN24,20:PROCP:PROCx(18)
6350WHEN6,14:PROCP:PROCx(9)
6360WHEN23,19:PROCP:PROCx(22)
6370WHEN43,42:PROCP:PROCx(10)
6380WHEN28:PROCb(36,28,1):PROCR(3,qe%,re%,Cc%,Dc%,se%,te%,Fc%,ue%):ve%=Dd%:IF(b%AND1)<=0THENPROCg(36)
6390PROCb(36,28,0)
6400WHEN35:PROCb(36,35,1):Dd%=ve%:PROCg(36)
6410ENDCASE
6420WHENa%(30):CASEM%OF
6430WHEN2:PROCb(30,2,1):PROCt(Y%,d%(g%),g%,$(FNt(30,3))+D$):PROCc(Y%,d%(g%),g%):PROCu(0):PROCh:PROCp:PROCb(30,2,0)
6440ENDCASE
6450WHENa%(31):CASEM%OF
6460WHEN2:PROCb(31,2,1):PROCz(Y%,d%(g%),g%,VAL($(FNt(31,5)))):PROCc(Y%,d%(g%),g%):PROCu(0):PROCh:PROCp:PROCb(31,2,0)
6470WHEN3,6:PROCvb:PROCwb(5)
6480WHEN8,9:PROCvb:PROCwb(7)
6490ENDCASE
6500WHENa%(32):CASEM%OF
6510WHEN2:PROCb(32,2,1):PROCA(Y%,d%(g%),g%,VAL($(FNt(32,5)))):PROCc(Y%,d%(g%),g%):PROCu(0):PROCh:PROCp:PROCb(32,2,0)
6520WHEN3,6:PROCxb:PROCyb(5)
6530WHEN8,9:PROCxb:PROCyb(7)
6540ENDCASE
6550WHENa%(33):CASEM%OF
6560WHEN2:PROCb(33,2,1):PROCs(Y%,d%(g%),g%,VAL($(FNt(33,5)))):PROCc(Y%,d%(g%),g%):PROCGa:PROCu(0):PROCh:PROCp:PROCb(33,2,0)
6570WHEN3,6:PROCzb:PROCAb(5)
6580WHEN8,9:PROCzb:PROCAb(7)
6590ENDCASE
6600WHENa%(14):CASEM%OF
6610WHEN0:PROCb(14,0,1):CASEwe%OF
6620WHEN0:PROCBb:xe%=TRUE
6630WHEN1:PROCh:PROCB(3,g%):xe%=TRUE
6640WHEN2:PROCh:PROCCb:xe%=TRUE
6650WHEN3:PROCh:PROCDb
6660ENDCASE
6670PROCb(14,0,0)
6680WHEN2:PROCb(14,2,1):PROCh:PROCb(14,2,0)
6690ENDCASE
6700WHENa%(22):CASEM%OF
6710WHEN1:PROCb(22,1,1):Ob%=g%:PROCf(23):PROCv(23,"New view: "+a$(g%),1):$FNt(23,0)=FNg(Ra%)+" "+FNl(Sa%):Pb%=FNJ(Sa%)+Ra%:IFn%(Ob%,Pb%)>6THENPROCi(23,214+(40*n%(Ob%,Pb%)),1510,0,0)ELSEPROCi(23,456,1510,0,0)
6720PROCl(1,23):IF(b%AND1)<=0THENPROCh
6730PROCb(22,1,0)
6740WHEN5,7:PROCEb:PROCW(6)
6750WHEN8,10:PROCEb:PROCW(9)
6760ENDCASE
6770WHENa%(40):CASEM%OF
6780WHEN1:PROCb(40,1,1):PROCFb((lb%)*12+kb%):PROCh:PROCb(40,1,0)
6790WHEN5,7:PROCGb:PROCX(6)
6800WHEN8,10:PROCGb:PROCX(9)
6810ENDCASE
6820WHENa%(12):CASEM%OF
6830WHEN6,7:PROCHb:PROCIb(5)
6840WHEN10,8:PROCHb:PROCIb(9)
6850WHEN12:PROCb(12,12,1):PROCRa:PROCh:IF(b%AND1)<=0THENPROCh
6860PROCb(12,12,0)
6870ENDCASE
6880WHENa%(13):CASEM%OF
6890WHEN15,16,17,18,19,20,21,22,23,24,25,26,27:PROCJb(M%-15,-1,0)
6900WHEN54,55,56,57,58,59,60,61,62,63,64,65,66:PROCJb(M%-54,1,1)
6910WHEN68:PROCb(13,68,1):PROCKb:PROCLb:IF(b%AND1)<=0THENPROCg(13)
6920PROCb(13,68,0)
6930WHEN69:PROCb(13,69,1):PROCMb:PROCLb:IF(b%AND1)<=0THENPROCg(13)
6940PROCb(13,69,0):IFa%(39)<>0THEN!q%=a%(39):PROCr(q%)
6950WHEN67:PROCb(13,67,1):PROCNb:PROCLb:IF(b%AND1)<=0THENPROCg(13)
6960PROCb(13,67,0):IFa%(39)<>0THEN!q%=a%(39):PROCr(q%)
6970ENDCASE
6980ENDCASE
6990WHEN2:xe%=TRUE:CASEyd%OF
7000WHEN-2:PROCOb:PROCn(ya%):PROCo(ya%,wd%-64,364)
7010WHENa%(0),a%(1),a%(2),a%(3),a%(4),a%(5):PROCab:Kb%=g%:PROCqa:PROCPb:PROCn(za%):PROCo(za%,wd%-64,xd%)
7020WHENa%(28):PROCn(Va%):PROCo(Va%,wd%-64,xd%)
7030WHENa%(39):PROCn(_a%):PROCo(_a%,wd%-64,xd%)
7040WHENa%(38):PROCn(ab%):PROCo(ab%,wd%-64,xd%)
7050WHENa%(41):PROCn(fb%):PROCo(fb%,wd%-64,xd%)
7060WHENa%(17):PROCo(db%,wd%-64,xd%)
7070WHENa%(18):CASEM%OF
7080WHEN7:PROCn(Pd%):PROCo(Pd%,wd%-64,xd%)
7090WHEN8:PROCb(18,8,1):PROCn(Pd%):PROCo(Pd%,wd%-64,xd%):PROCb(18,8,0)
7100WHEN10:PROCn(Qd%):PROCo(Qd%,wd%-64,xd%)
7110WHEN11:PROCb(18,11,1):PROCn(Qd%):PROCo(Qd%,wd%-64,xd%):PROCb(18,11,0)
7120ENDCASE
7130ENDCASE
7140WHEN16,64:CASEyd%OF
7150WHENa%(9):IFM%=2THENye%=Qa%:PROCQb(9)
7160WHENa%(10):IFM%=2THENye%=1:PROCQb(10)
7170WHENa%(11):IFM%=2THENye%=2:PROCQb(11)
7180ENDCASE
7190ENDCASE
7200ENDPROC
7210DEFPROCHa:Cb%=Eb%:ub%=Fb%:Bb%=Db%:ENDPROC
7220DEFPROCmb:d%(g%)=(La%*12)+Ba%:PROCI(g%):IFg%=ub%ANDd%(g%)<>Cb%THENPROCK(g%)
7230!q%=a%(g%):PROC`(g%):PROCr(q%):IFg%=ub%ANDd%(g%)=Cb%THENPROCY(g%,Bb%)
7240PROCh:ENDPROC
7250DEFPROC`(w%):$FNt(w%,0)=FNg(d%(w%))+" "+FNq(d%(w%)):ENDPROC
7260DEFPROCab:FORAb%=0TO5:IFyd%=a%(Ab%)THENg%=Ab%
7270NEXT:ENDPROC
7280DEFPROCPb:PROCRb(ze%,0,a$(g%)):PROCRb(Ae%,0,a$(g%)):ENDPROC
7290DEFPROCBa(Be%):CASEBe%OF
7300WHEN0:$FNt(25,6)="Yes"
7310WHEN1:$FNt(25,6)="No"
7320ENDCASE
7330ENDPROC
7340DEFPROCCa(`$):$FNt(25,5)=`$:ENDPROC
7350DEFPROCh:SYS262356,,-1:xa%=-1:ENDPROC
7360DEFPROCha:DIMV%12415,Ce%8575:De%=V%:Ee%=0:Fe%=0:Ge%=FNe("Open",11):PROCa("<untitled>",0):PROCa("<untitled>",0):PROCa("<untitled>",0):PROCa("<untitled>",0):PROCa("<untitled>",0):PROCa("<untitled>",128):Pd%=FNe("Month",14):PROCa("January",0):PROCa("February",0)
7370PROCa("March",0):PROCa("April",0):PROCa("May",0):PROCa("June",0):PROCa("July",0):PROCa("August",0):PROCa("September",0):PROCa("October",0):PROCa("November",0):PROCa("December",2):PROCa("Current month",128):Qd%=FNe("Year",13):PROCa(STR$(Z%-2),0):PROCa(STR$(Z%-1),0)
7380PROCa(STR$(Z%),2):PROCa("Current year",128):ya%=FNe("Investor",15):PROCa("Info|",10):PROCa("Create",0):PROCa("Open portfolio",0):PROCa("Choices...",2):PROCa("Quit",128):He%=FNe("Create",12):PROCa("Portfolio~",132):PROCk(ya%,1,He%):PROCk(ya%,2,Ge%)
7390za%=FNe("Investor",15):PROCa("Display",0):PROCa("Month",0):PROCa("Year",2):PROCa("Portfolio",0):PROCa("Selected stock",0):PROCa("New stock...",2):PROCa("Transfer data",2):PROCa("Dividends",128):Ie%=FNe("Display",20):PROCa("Unsorted",0):PROCa("Sort by name",0)
7400PROCa("Sort by gain",0):PROCa("Sort by value",0):PROCa("Sort by price",0):PROCa("Sort by fluctuation",2):PROCa("Sort options",128):PROCk(za%,0,Ie%):Je%=FNe("Sort",10):PROCa("Local",0):PROCa("Global",0):PROCa("Universal",128):PROCk(Ie%,6,Je%):Ke%=FNe("Month",12)
7410PROCa("Info|",10):PROCa("Set|",8):PROCa("Copy|",8):PROCa("Clear month",128):PROCk(za%,1,Ke%):Le%=FNe("Year",11):PROCa("Info|",10):PROCa("Set|",8):PROCa("Copy|",8):PROCa("Clear year",128):PROCk(za%,2,Le%):Me%=FNe("Portfolio",11):PROCa("Info|",10):PROCa("Copy",0):PROCa("Rename",0)
7420PROCa("Save",0):PROCa("Clear",2):PROCa("Delete",2):PROCa("Format",0):PROCa("New view|",10):PROCa("Print...",128):PROCk(za%,3,Me%):Ae%=FNe("Copy",12):PROCa("<untitled>~",132):ze%=FNe("Rename",12):PROCa("<untitled>~",132):Ne%=FNe("Save",15):PROCa("Save as text|",8)
7430PROCa("Save portfolio|",136):Oe%=FNe("Format",15):PROCa("Current value",0):PROCa("Purchase value",128):PROCk(Me%,1,Ae%):PROCk(Me%,2,ze%):PROCk(Me%,3,Ne%):PROCk(Me%,6,Oe%):Pe%=FNe("Stock",20):PROCa("Info|",8):PROCa("Alter",0):PROCa("Format view",0):PROCa("Remove",0)
7440PROCa("Clear selection",2):PROCa("Show performance...",128):PROCk(za%,4,Pe%):Qe%=FNe("Alter",15):PROCa("Stock name|",8):PROCa("Units held|",8):PROCa("Purchase price|",8):PROCa("Current price|",136):Re%=FNe("Format view",16):PROCa("Units held",0)
7450PROCa("Current price",0):PROCa("Current value",0):PROCa("Net gain",0):PROCa("Percentage gain",128):PROCk(Pe%,1,Qe%):PROCk(Pe%,2,Re%):Se%=FNe("Transfer",20):PROCa("Year...",0):PROCa("Month...",0):PROCa("Individual stock...",128):PROCk(za%,6,Se%)
7460Te%=FNe("Dividends",20):PROCa("Show list...",0):PROCa("Highlight dividends",128):PROCk(za%,7,Te%):Va%=FNe("Investor",17):PROCa("Info|",8):PROCa("Display",2):PROCa("Show as graphics",128):Ue%=FNe("Display",12):PROCa("Year",0):PROCa("All entries",128)
7470Ve%=FNe("Year",5):PROCa(STR$(Z%-2),0):PROCa(STR$(Z%-1),0):PROCa(STR$(Z%),128):PROCk(Va%,1,Ue%):PROCk(Ue%,0,Ve%):_a%=FNe("Investor",15):PROCa("Chart",0):PROCa("Graph",2):PROCa("Truncate",0):PROCa("Scale view|",10):PROCa("Show extents",0):PROCa("Set colours...",2):PROCa("Save",128)
7480We%=FNe("Chart",9):PROCa("2D Chart",0):PROCa("3D Chart",128):Xe%=FNe("Save",18):PROCa("Save as CSV file|",8):PROCa("Save as draw file|",136):PROCk(_a%,0,We%):PROCk(_a%,6,Xe%):fb%=FNe("Investor",16):PROCa("Set values|",8):PROCa("Clear selection",2)
7490PROCa("Clear dividends",0):PROCa("Save as text|",10):PROCa("Base upon month|",136):ab%=FNe("Investor",16):PROCa("Plot",0):PROCa("Save history|",10):PROCa("Show statistics",128):Ye%=FNe("Plot",16):PROCa("Units held",0):PROCa("Current price",0):PROCa("Current value",0)
7500PROCa("Net gain",0):PROCa("Percentage gain",128):PROCk(ab%,0,Ye%):db%=FNe("Investor",11):PROCa("Text font",0):PROCa("Scale view|",10):PROCa("Print",128):cb%=FNe("Alter",15):PROCa("Stock name|",8):PROCa("Units held|",8):PROCa("Purchase price|",8)
7510PROCa("Current price|",136):Ze%=FNe("Text font",11):_e%=0:S$="":`e%=-1:REPEAT:SYS262289,,ea%,_e%,-1TO,,_e%:f$=$ea%:IFINSTR(f$,".")=0THENf$+=".(Regular)"
7520o$=LEFT$(f$,INSTR(f$,".")-1):K$=MID$(f$,INSTR(f$,".")+1):IFo$=S$THEN
7530c$(`e%)+=K$+","
7540ELSE:`e%+=1:c$(`e%)=o$+","+K$+",":S$=o$:PROCa(o$,0)
7550ENDIF
7560UNTIL_e%=-1:af%=LEN(K$):bf%=LEN(c$(`e%)):c$(`e%)=MID$(c$(`e%),0,bf%-af%-1):a%=V%+Ee%:a%!-24=(a%!-24)OR128:PROCk(db%,0,Ze%):FORcf%=0TO`e%:df%=INSTR(c$(cf%),","):z%=FNe(LEFT$(c$(cf%),df%-1),20):ef%=0:WHILEINSTR(c$(cf%),",",df%+1)>0:ff%=df%+1:df%=INSTR(c$(cf%),",",df%+1)
7570L$=MID$(c$(cf%),ff%,df%-ff%):IFLEN(L$)>ef%THENef%=LEN(L$)
7580PROCa(L$,0):ENDWHILE:a%=gf%:a%!16=(ef%+1)*16:a%=V%+Ee%:a%!-24=(a%!-24)OR128:PROCk(Ze%,cf%,z%):NEXT:ENDPROC
7590DEFFNe(t$,w%):LOCALa%:gf%=V%+Ee%:a%=V%+Ee%:$a%=t$:a%?12=7:a%?13=2:a%?14=7:a%?15=0:a%!16=w%*16:a%!20=44:a%!24=0:Ee%+=28:=a%
7600DEFPROCa(i$,f%):LOCALa%,hf%:a%=V%+Ee%:hf%=-1:a%!0=f%:a%!4=-1:a%!8=&7000021:CASERIGHT$(i$)OF
7610WHEN"|":i$=LEFT$(i$):a%!4=32767
7620WHEN"~":i$=LEFT$(i$):hf%=11
7630ENDCASE
7640IFLEN(i$)>11THENhf%=LEN(i$)+1
7650IFhf%>-1THEN
7660a%!8+=256:$(Ce%+Fe%)=i$:a%!12=Ce%+Fe%:Fe%+=LEN(i$)+1:$(Ce%+Fe%)="":a%!16=Ce%+Fe%:Fe%+=1:a%!20=hf%
7670ELSE:$(a%+12)=i$
7680ENDIF
7690Ee%+=24:ENDPROC
7700DEFPROCk(m%,i%,p%):m%!(28+24*i%+4)=p%:ENDPROC
7710DEFPROCn(m%):if%=-1:CASEm%OF
7720WHENza%:PROCm(Ie%,jf%,0):PROCm(Ie%,kf%,1):PROCm(Je%,lf%,0):PROCm(Je%,mf%,1):PROCm(Te%,1,ic%):IFCb%=d%(g%)ANDub%=g%THENPROCM(za%,4,Bb%>-1)ELSEPROCM(za%,4,0)
7730WHEN_a%:PROCm(_a%,2,Sc%):PROCm(_a%,4,`c%):PROCm(_a%,nf%,0):PROCm(_a%,Mc%,1):PROCm(We%,of%,0):PROCm(We%,Yc%,1)
7740WHENfb%:PROCM(fb%,0,gb%>-1):PROCM(fb%,1,gb%>-1):PROCM(fb%,2,v%(g%)>-1):PROCM(fb%,3,v%(g%)>-1)
7750WHENya%:@%=0:FORo%=0TO5:IFa$(o%)<>STR$(N%)THEN
7760if%+=1:PROCm(Ge%,if%,c%(o%))
7770ENDIF
7780NEXT:PROCM(ya%,2,if%>-1)
7790WHENab%:PROCm(ab%,2,qc%)
7800WHENVa%:PROCm(Ue%,pf%,0):PROCm(Ue%,qf%,1):PROCm(Ve%,rf%,0):PROCm(Ve%,sf%,1)
7810WHENPd%:PROCm(Pd%,tf%,1)
7820WHENQd%:PROCm(Qd%,uf%,1)
7830ENDCASE
7840ENDPROC
7850DEFPROCM(a%,i%,c%):a%=a%+36+24*i%:IFc%THEN!a%=!a%AND-4194305ELSE!a%=!a%OR4194304
7860ENDPROC
7870DEFPROCm(a%,i%,c%):a%=a%+28+24*i%:IFc%THEN!a%=!a%OR1ELSE!a%=!a%AND-2
7880ENDPROC
7890DEFPROCo(m%,x%,y%):vf%=x%:wf%=y%:xa%=m%:SYS262356,,m%,x%,y%:ENDPROC
7900DEFPROCOb:Ee%=0:Fe%=0:V%=De%:Ge%=FNe("Open",11):FORxf%=0TO5:IFa$(xf%)<>STR$(N%)THENPROCa(a$(xf%),0)
7910NEXT:a%=V%+Ee%:a%!-24=(a%!-24)OR128:ENDPROC
7920DEFPROCRb(yf%,zf%,s$):$(!(yf%+28+24*zf%+12))=s$:ENDPROC
7930DEFFNs(yf%,zf%):=FNh(!(yf%+28+24*zf%+12))
7940DEFPROCia:!ca%=-1:ca%!4=0:ca%!8=0:ca%!12=68:ca%!16=68:ca%!20=12290:$(ca%+24)="!investor":SYS262338,,ca%:ENDPROC
7950DEFPROCva(V%):LOCALAf%,i%:SYS262351,,G%:Af%=(((G%!8)AND1)>0):CASExa%OF
7960WHENya%:CASE!V%OF
7970WHEN1:CASEV%!4OF
7980WHEN0:Bf%=FNy:IFBf%=6THENPROCq("No portfolios available."):ENDPROC
7990h%(Bf%)=TRUE:a$(Bf%)=FNs(He%,0):PROCv(Bf%,a$(Bf%),0):c%(Bf%)=1:PROCl(0,Bf%):PROCOb
8000ENDCASE
8010WHEN2:CASEV%!4OF
8020WHEN0,1,2,3,4,5:PROCSb(FNK(V%!4))
8030ENDCASE
8040WHEN3:IFa%(18)=0THEN
8050PROCl(0,18):$FNt(18,7)=FNC(Ld%):$FNt(18,10)=FND(Kd%):IFdc%PROCe(18,12)
8060IFZb%PROCe(18,13)
8070IFCf%PROCe(18,14)
8080IFtb%PROCe(18,15)
8090PROCe(18,16+sd%):PROCe(18,20+td%):PROCe(18,24+ud%):PROCe(18,28+vd%)
8100ELSE:PROCl(0,18)
8110ENDIF
8120WHEN4:PROCTb
8130ENDCASE
8140WHENza%:CASE!V%OF
8150WHEN0:CASEV%!4OF
8160WHEN0:jf%=kf%:kf%=0:PROCD
8170WHEN1:jf%=kf%:kf%=1:PROCD
8180WHEN2:jf%=kf%:kf%=2:PROCD
8190WHEN3:jf%=kf%:kf%=3:PROCD
8200WHEN4:jf%=kf%:kf%=4:PROCD
8210WHEN5:jf%=kf%:kf%=5:PROCD
8220WHEN6:CASEV%!8OF
8230WHEN0:lf%=mf%:mf%=0
8240WHEN1:lf%=mf%:mf%=1
8250WHEN2:lf%=mf%:mf%=2
8260ENDCASE
8270ENDCASE
8280WHEN1:CASEV%!4OF
8290WHEN3:PROCB(1,g%)
8300ENDCASE
8310WHEN2:CASEV%!4OF
8320WHEN3:PROCB(2,g%)
8330ENDCASE
8340WHEN3:CASEV%!4OF
8350WHEN1:CASEV%!8OF
8360WHEN0:PROCUb
8370ENDCASE
8380WHEN2:CASEV%!8OF
8390WHEN0:PROCVb
8400ENDCASE
8410WHEN4:PROCWb
8420WHEN5:PROCXb
8430WHEN6:CASEV%!8OF
8440WHEN0:PROCYb(5)
8450WHEN1:PROCYb(6)
8460ENDCASE
8470WHEN8:PROCZb
8480ENDCASE
8490WHEN4:CASEV%!4OF
8500WHEN2:CASEV%!8OF
8510WHEN0,1,2,3,4:PROCYb(V%!8)
8520ENDCASE
8530WHEN3:PROCSa(1)
8540WHEN4:PROCu(0)
8550WHEN5:PROC_b(Y%)
8560ENDCASE
8570WHEN5:PROCl(0,21):Gb%=g%
8580WHEN6:CASEV%!4OF
8590WHEN0:PROCf(35):CASEce%OF
8600WHEN0:PROCe(35,13)
8610WHEN1:PROCe(35,16)
8620WHEN2:PROCe(35,5)
8630ENDCASE
8640CASEde%OF
8650WHEN0:PROCe(35,22)
8660WHEN1:PROCe(35,23)
8670ENDCASE
8680ge%=g%:ge%=FNj(ge%):he%=g%+1:he%=FNj(he%):ee%=d%(g%)DIV12:fe%=(d%(g%)DIV12)+1:PROC`b:PROCJ(32):PROCJ(38):PROCJ(18):PROCJ(9):PROCl(1,35)
8690WHEN1:PROCf(34):CASEie%OF
8700WHEN0:PROCe(34,13)
8710WHEN1:PROCe(34,29)
8720WHEN2:PROCe(34,5)
8730ENDCASE
8740CASEje%OF
8750WHEN0:PROCe(34,41)
8760WHEN1:PROCe(34,44)
8770ENDCASE
8780oe%=g%:oe%=FNj(oe%):pe%=g%+1:pe%=FNj(pe%):le%=d%(g%)MOD12:ne%=(d%(g%)MOD12)+1:ke%=d%(g%)DIV12:me%=(d%(g%)DIV12):PROCac:PROCw(32):PROCw(38):PROCw(18):PROCw(9):PROCw(22):PROCw(10):PROCl(1,34)
8790WHEN2:IFa%(36)=0THEN
8800PROCf(36):Dd%=ve%:IFa%(37)=0THENDf%=FALSEELSEDf%=TRUE
8810PROCf(37):CASEqe%OF
8820WHEN0:PROCe(36,13)
8830WHEN1:PROCe(36,5)
8840WHEN2:PROCe(36,29)
8850ENDCASE
8860CASEre%OF
8870WHEN0:PROCe(36,41)
8880WHEN1:PROCe(36,44)
8890ENDCASE
8900IFDd%PROCe(36,48)ELSEPROCC(36,48)
8910Fc%=g%:Fc%=FNj(Fc%):ue%=g%+1:ue%=FNj(ue%):Dc%=d%(g%)MOD12:te%=(d%(g%)MOD12)+1:Cc%=d%(g%)DIV12:se%=(d%(g%)DIV12):Ef%=n%(Fc%,(Cc%)*12+Dc%)-1:PROCbc:PROCx(32):PROCx(38):PROCx(18):PROCx(9):PROCx(22):PROCx(10):PROCl(1,36):IFNOTDf%THEN
8920IFEf%>-1THENPROCcc
8930IFEf%>6THENPROCi(37,40+40*Ef%,380,0,0)ELSEPROCi(37,308,380,0,0)
8940ENDIF
8950!q%=a%(36):SYS262347,,q%:PROCoa:Df%=TRUE
8960ELSE:PROCl(0,36):PROCoa
8970ENDIF
8980ENDCASE
8990WHEN7:CASEV%!4OF
9000WHEN0:PROCf(41):Ff%=g%:$FNt(41,0)=a$(Ff%):PROCj(41,0):I%=g%:!q%=a%(41):PROCr(q%):IFv%(I%)>5THENPROCi(41,254+(40*v%(I%)),1236,0,0)ELSEPROCi(41,454,1236,0,0)
9010PROCl(1,41)
9020WHEN1:IFic%THENic%=FALSE:PROCdcELSEic%=TRUE:PROCdc
9030ENDCASE
9040ENDCASE
9050WHENVa%:CASE!V%OF
9060WHEN1:CASEV%!4OF
9070WHEN0:pf%=qf%:qf%=0:CASEV%!8OF
9080WHEN0:rf%=sf%:sf%=0
9090WHEN1:rf%=sf%:sf%=1
9100WHEN2:rf%=sf%:sf%=2
9110ENDCASE
9120PROCec(Wa%):l%-=1:IFl%=-1THEN
9130PROCg(28):xe%=FALSE
9140ELSE:IFl%>14THENPROCi(28,214+(40*l%),500,0,0)ELSEPROCi(28,776,500,0,0)
9150!q%=a%(28):PROCr(q%):IFa%(39)<>0ANDIc%=1THEN!q%=a%(39):PROCr(q%):PROCi(39,564,310+(FNn*l%+FNo),0,0)
9160ENDIF
9170WHEN1:pf%=qf%:qf%=1:PROCec(Wa%):l%-=1:IFl%=-1THEN
9180PROCg(28):xe%=FALSE
9190ELSE:IFl%>14THENPROCi(28,214+(40*l%),500,0,0)ELSEPROCi(28,776,500,0,0)
9200!q%=a%(28):PROCr(q%):IFa%(39)<>0ANDIc%=1THEN!q%=a%(39):PROCr(q%):PROCi(39,564,310+(FNn*l%+FNo),0,0)
9210ENDIF
9220ENDCASE
9230WHEN2:Ic%=1:IFFNETHEN
9240PROCv(39,LEFT$(FNb(Xa%,Ya%,Za%))+" Share History: "+FNu,1):PROCl(0,39):!q%=a%(39):PROCr(q%):PROCi(39,564,310+(FNn*l%+FNo),0,0)
9250ELSE:PROCq("Investor cannot plot this data.")
9260ENDIF
9270ENDCASE
9280WHEN_a%:CASE!V%OF
9290WHEN0:nf%=Mc%:Mc%=0:CASEV%!4OF
9300WHEN0:of%=Yc%:Yc%=0
9310WHEN1:of%=Yc%:Yc%=1
9320ENDCASE
9330PROCfc(Ic%)
9340WHEN1:nf%=Mc%:Mc%=1:PROCfc(Ic%)
9350WHEN2:IFSc%THENSc%=FALSE:!q%=a%(39):PROCr(q%)ELSESc%=TRUE:!q%=a%(39):PROCr(q%)
9360WHEN4:IF`c%THEN`c%=FALSE:!q%=a%(39):PROCr(q%)ELSE`c%=TRUE:!q%=a%(39):PROCr(q%)
9370WHEN5:PROCf(13):PROCLb:PROCl(1,13)
9380ENDCASE
9390WHENab%:CASE!V%OF
9400WHEN0:CASEV%!4OF
9410WHEN0,1,2,3,4:Ic%=2:PROCgc(V%!4)
9420ENDCASE
9430WHEN2:IFNOTqc%THENqc%=TRUEELSEqc%=FALSE
9440!q%=a%(38):PROCr(q%):IFO%>6ORqc%THENPROCi(38,214+(40*O%)+(664*ABS(qc%)),1570,48,0)ELSEPROCi(38,456,1570,48,0)
9450ENDCASE
9460WHENfb%:CASE!V%OF
9470WHEN1:gb%=-1:PROC_(Gd%):Gd%=-1
9480WHEN2:v%(I%)=-1:PROCE(b%(I%)):gb%=-1:Gd%=-1:!q%=a%(41):PROCr(q%):PROCi(41,454,1236,0,0)
9490ENDCASE
9500WHENdb%:CASE!V%OF
9510WHEN0:CASETRUEOF
9520WHENV%!8>-1:h$=FNA(db%):Gf%=INSTR(h$,"."):h$=FNL(MID$(h$,Gf%+1,LEN(h$))):!q%=a%(17):PROCr(q%)
9530ENDCASE
9540WHEN2:PROChc
9550ENDCASE
9560WHENPd%:CASE!V%OF
9570WHEN0,1,2,3,4,5,6,7,8,9,10,11,12:PROCm(Pd%,tf%,0):tf%=!V%:$FNt(18,7)=FNA(Pd%):PROCj(18,7)
9580ENDCASE
9590WHENQd%:CASE!V%OF
9600WHEN0,1,2,3:PROCm(Qd%,uf%,0):uf%=!V%:$FNt(18,10)=FNA(Qd%):PROCj(18,10)
9610ENDCASE
9620ENDCASE
9630IFAf%ANDxe%PROCn(xa%):PROCo(xa%,vf%,wf%)
9640ENDPROC
9650DEFPROCCb:IFjd%=g%THENPROCg(15):PROCg(16):PROCg(17)
9660xe%=FALSE:PROCB(4,g%):PROCg(g%):@%=0:c%(g%)=0:e%(g%)=FALSE:h%(g%)=FALSE:i%(g%)=456:a$(g%)=STR$(N%):b$(g%)="Portfolio":e$(g%)=LEFT$(TIME$,15):d$(g%)="0 bytes":ENDPROC
9670DEFPROCdc:LOCALHf%:FORHf%=0TO5:IFc%(Hf%)=1THEN!q%=a%(Hf%):PROCr(q%)
9680NEXT:ENDPROC
9690DEFPROCSa(If%):LOCALJf%:PROCp:FORJf%=Y%TOn%(g%,d%(g%))-1:IFJf%=n%(g%,d%(g%))-1THEN
9700PROCt(Jf%,d%(g%),g%,""):PROCz(Jf%,d%(g%),g%,0):PROCA(Jf%,d%(g%),g%,0):PROCs(Jf%,d%(g%),g%,0)
9710ELSE:PROCt(Jf%,d%(g%),g%,FNb(Jf%+1,d%(g%),g%)):PROCz(Jf%,d%(g%),g%,FNa(Jf%+1,d%(g%),g%)):PROCA(Jf%,d%(g%),g%,FNd(Jf%+1,d%(g%),g%)):PROCs(Jf%,d%(g%),g%,FNc(Jf%+1,d%(g%),g%))
9720ENDIF
9730NEXT:n%(g%,d%(g%))-=1:IFIf%=1THEN
9740IFg%=ub%ANDd%(g%)=Cb%THENPROCK(g%)
9750IFg%=jd%ANDkd%=d%(g%)THENPROCjb
9760!q%=a%(g%):PROCu(1):PROCr(q%)
9770ENDIF
9780ENDPROC
9790DEFPROCu(Kf%):IFKf%=0THEN
9800IFtb%THENPROCK(ub%)
9810PROCN(Bb%,ub%)
9820ENDIF
9830Bb%=-1:Y%=-1:Lf%=-1:Mf%=-1:ub%=-1:Cb%=-1:ENDPROC
9840DEFPROCB(Nf%,Of%):SYS263872:CASENf%OF
9850WHEN1:Pf%=d%(Of%):Qf%=d%(Of%)
9860WHEN2:Pf%=(d%(Of%)DIV12)*12:Qf%=Pf%+11
9870WHEN3,4:Pf%=0:Qf%=35
9880ENDCASE
9890FORRf%=Pf%TOQf%:IFub%=Of%ANDCb%=Rf%THENPROCu(1):PROCK(Of%)
9900FORSf%=0TOn%(Of%,Rf%):PROCE(s%(Of%,Rf%)):NEXTSf%:n%(Of%,Rf%)=0:IFNf%<>4ANDOf%=jd%ANDkd%=Rf%THENPROCjb
9910NEXTRf%:IFa%(Of%)<>0THENPROCI(Of%)
9920SYS263873:IFNf%<>4THENPROCp
9930ENDPROC
9940DEFPROCR(Tf%,Uf%,Vf%,Wf%,Xf%,Yf%,Zf%,_f%,F%):IFVf%=0AND_f%=F%AND(Wf%*12)+Xf%=(Yf%*12)+Zf%THENPROCq("Source and target months are the same."):ENDPROC
9950SYS263872:CASETf%OF
9960WHEN1:`f%=(Wf%*12)+Xf%:H%=(Yf%*12)+Zf%:IFUf%=0THENag%=0:n%(F%,H%)=n%(_f%,`f%):bg%=TRUE
9970IFUf%=1THENag%=n%(F%,H%):n%(F%,H%)+=n%(_f%,`f%):bg%=TRUE
9980IFUf%=2THEN
9990ag%=0:n%(F%,H%)+=n%(_f%,`f%):cg%=n%(_f%,`f%):bg%=FALSE:s%(F%,H%)=FNk(s%(F%,H%),36*cg%,T%):IFNOTT%THENn%(F%,H%)-=n%(_f%,`f%):ENDPROC
10000FORdg%=n%(F%,H%)-(cg%+1)TO0STEP-1:PROCt(dg%+cg%,H%,F%,LEFT$(FNb(dg%,H%,F%))+"0"):PROCz(dg%+cg%,H%,F%,FNa(dg%,H%,F%)):PROCA(dg%+cg%,H%,F%,FNd(dg%,H%,F%)):PROCs(dg%+cg%,H%,F%,FNc(dg%,H%,F%)):NEXT
10010ENDIF
10020FOReg%=0TOn%(_f%,`f%)-1:IFbg%THENs%(F%,H%)=FNk(s%(F%,H%),36,T%)
10030IFNOTT%THENENDPROC
10040PROCt(eg%+ag%,H%,F%,LEFT$(FNb(eg%,`f%,_f%))+"0"):PROCz(eg%+ag%,H%,F%,FNa(eg%,`f%,_f%)):PROCA(eg%+ag%,H%,F%,FNd(eg%,`f%,_f%)):PROCs(eg%+ag%,H%,F%,FNc(eg%,`f%,_f%)):NEXT:IFh%(F%)ANDd%(F%)=H%ANDn%(F%,H%)>0THEN!q%=a%(F%):PROCr(q%)
10050WHEN2:`f%=Wf%*12:H%=Yf%*12:FOR`%=0TO11:IFUf%=0THENag%=0:n%(F%,H%+`%)=n%(_f%,`f%+`%):fg%=TRUE
10060IFUf%=1THENag%=n%(F%,H%+`%):n%(F%,H%+`%)+=n%(_f%,`f%+`%):fg%=TRUE
10070IFUf%=2THEN
10080ag%=0:n%(F%,H%+`%)+=n%(_f%,`f%+`%):cg%=n%(_f%,`f%+`%):fg%=FALSE:s%(F%,H%+`%)=FNk(s%(F%,H%+`%),36*cg%,T%):IFNOTT%THENn%(F%,H%+`%)-=n%(_f%,`f%+`%):ENDPROC
10090FORdg%=n%(F%,H%+`%)-(cg%+1)TO0STEP-1:PROCt(dg%+cg%,H%+`%,F%,LEFT$(FNb(dg%,H%+`%,F%))+"0"):PROCz(dg%+cg%,H%+`%,F%,FNa(dg%,H%+`%,F%)):PROCA(dg%+cg%,H%+`%,F%,FNd(dg%,H%+`%,F%)):PROCs(dg%+cg%,H%+`%,F%,FNc(dg%,H%+`%,F%)):NEXT
10100ENDIF
10110FOReg%=0TOn%(_f%,`f%+`%)-1:IFfg%THENs%(F%,H%+`%)=FNk(s%(F%,H%+`%),36,T%)
10120IFNOTT%THENENDPROC
10130PROCt(eg%+ag%,H%+`%,F%,LEFT$(FNb(eg%,`f%+`%,_f%))+"0"):PROCz(eg%+ag%,H%+`%,F%,FNa(eg%,`f%+`%,_f%)):PROCA(eg%+ag%,H%+`%,F%,FNd(eg%,`f%+`%,_f%)):PROCs(eg%+ag%,H%+`%,F%,FNc(eg%,`f%+`%,_f%)):NEXT
10140IFh%(F%)ANDd%(F%)=H%+`%ANDn%(F%,H%+`%)>0THEN!q%=a%(F%):PROCr(q%)
10150NEXT`%
10160WHEN3:gg%=0:FORhg%=0TOEf%:gg%+=Hc%?hg%:NEXT:`f%=(Wf%*12)+Xf%:H%=(Yf%*12)+Zf%:IFUf%=0THENag%=0:n%(F%,H%)=gg%:bg%=TRUE
10170IFUf%=1THENag%=n%(F%,H%):n%(F%,H%)+=gg%:bg%=TRUE
10180IFUf%=2THEN
10190ag%=0:n%(F%,H%)+=gg%:cg%=gg%:bg%=FALSE:s%(F%,H%)=FNk(s%(F%,H%),36*cg%,T%):IFNOTT%THENn%(F%,H%)-=gg%:ENDPROC
10200FORdg%=n%(F%,H%)-(cg%+1)TO0STEP-1:PROCt(dg%+cg%,H%,F%,LEFT$(FNb(dg%,H%,F%))+"0"):PROCz(dg%+cg%,H%,F%,FNa(dg%,H%,F%)):PROCA(dg%+cg%,H%,F%,FNd(dg%,H%,F%)):PROCs(dg%+cg%,H%,F%,FNc(dg%,H%,F%)):NEXT
10210ENDIF
10220ig%=0:FOReg%=0TOn%(_f%,`f%)-1:IFbg%ANDHc%?eg%=1THENs%(F%,H%)=FNk(s%(F%,H%),36,T%)
10230IFNOTT%THENENDPROC
10240CASEHc%?eg%OF
10250WHEN1:PROCt(ig%+ag%,H%,F%,LEFT$(FNb(eg%,`f%,_f%))+"0"):PROCz(ig%+ag%,H%,F%,FNa(eg%,`f%,_f%)):PROCA(ig%+ag%,H%,F%,FNd(eg%,`f%,_f%)):PROCs(ig%+ag%,H%,F%,FNc(eg%,`f%,_f%)):ig%+=1
10260ENDCASE
10270NEXT:IFh%(F%)ANDd%(F%)=H%ANDn%(F%,H%)>0THEN!q%=a%(F%):PROCr(q%)
10280ENDCASE
10290CASEVf%OF
10300WHEN0:CASETf%OF
10310WHEN1:IFh%(_f%)THENPROCB(1,_f%)
10320WHEN2:IFh%(_f%)THENPROCB(2,_f%)
10330WHEN3:jg%=Y%:kg%=g%:lg%=0:FORmg%=0TOn%(_f%,`f%)-1:IFHc%?mg%=1THEN
10340Y%=mg%-lg%:g%=_f%:lg%+=1:PROCSa(0)
10350ENDIF
10360NEXT:Y%=jg%:g%=kg%
10370ENDCASE
10380ENDCASE
10390SYS263873:Ad%=g%:g%=F%:IFh%(F%)THEN
10400PROCp:PROCD:IFa%(g%)<>0THENPROCI(g%)
10410ENDIF
10420g%=Ad%:ENDPROC
10430DEFPROCVb:IFFNs(ze%,0)=""THENPROCq("Bad portfolio name."):PROCh:ENDPROC
10440p$=FNs(ze%,0):IFb$(g%)<>""ANDINSTR(b$(g%),".")>0THENb$(g%)=FNB(b$(g%))+"."+p$ELSEb$(g%)=p$
10450a$(g%)=p$:PROCp:PROCic(g%):PROCRb(ze%,0,p$):ENDPROC
10460DEFPROCUb:IFFNs(Ae%,0)=""THENPROCq("Bad portfolio name."):PROCh:ENDPROC
10470SYS263872:q$=FNs(Ae%,0):ng%=FNy:IFng%=6THENPROCq("No portfolios available."):ENDPROC
10480FORog%=0TO35:FORpg%=0TOn%(g%,og%):n%(ng%,og%)=n%(g%,og%):s%(ng%,og%)=FNk(s%(ng%,og%),36,T%):IFNOTT%THENENDPROC
10490PROCt(pg%,og%,ng%,LEFT$(FNb(pg%,og%,g%))+"0"):PROCz(pg%,og%,ng%,FNa(pg%,og%,g%)):PROCA(pg%,og%,ng%,FNd(pg%,og%,g%)):PROCs(pg%,og%,ng%,FNc(pg%,og%,g%)):NEXT:NEXT:IFv%(g%)>-1THEN
10500v%(ng%)=v%(g%):FORqg%=0TOv%(g%):b%(ng%)=FNk(b%(ng%),36,T%):IFNOTT%THENENDPROC
10510$(b%(ng%)+36*qg%)=$(b%(g%)+36*qg%):!(b%(ng%)+36*qg%+24)=!(b%(g%)+36*qg%+24):!(b%(ng%)+36*qg%+28)=!(b%(g%)+36*qg%+28):!(b%(ng%)+36*qg%+32)=!(b%(g%)+36*qg%+32):NEXT
10520ENDIF
10530d%(ng%)=d%(g%):d$(ng%)=d$(g%):e%(ng%)=FALSE:a$(ng%)=q$:c%(ng%)=1:e$(ng%)=LEFT$(TIME$,15):b$(ng%)=q$:IFa%(ng%)=0THENPROCl(0,ng%)
10540PROCI(ng%):PROCv(ng%,q$,1):PROCRb(Ae%,0,q$):PROCic(ng%):IFNOTh%(ng%)THENh%(ng%)=TRUE
10550SYS263873:ENDPROC
10560DEFPROCaa:LOCALrg%:@%=0:SYS262352,,-1:!da%=ERR:r$=REPORT$:IFERR=20ORERR=18THENr$="Arithmetic overflow."
10570IFERR=385THENr$="Not enough memory, or not within *desktop world.":sg%=1ELSEsg%=3
10580IFERR=1491THENr$="No printer driver installed, please load a printer driver application suitable for use with your printer.":sg%=1
10590$(da%+4)=r$+CHR$(0):SYS262367,da%,sg%,"Investor"TO,rg%:IFrg%=2PROCBb
10600ENDPROC
10610DEFPROCq(aa$):@%=0:SYS262352,,-1:!da%=0:$(da%+4)=aa$+CHR$(0):SYS262367,da%,1,"Investor":ENDPROC
10620DEFPROCba:DIMtg%32:FORqa=0TO2STEP2:P%=tg%:[OPT qa:.ra:ldr3,[0]:ldr4,[1]:str4,[0],#4:str3,[1],#4:add2,2,#4:cmp2,#36:bne ra:mov pc,14:]:ENDPROC
10630DEFPROCBb:$q%="TASK":SYS6,106,1:SYS530051,ja%:SYS262365,ja%,!q%:END
10640ENDPROC
10650DEFPROCya(q%):q%!36=-1:q%!16=2:q%!12=q%!8:!q%=60:SYS262375,17,q%,q%!4:ENDPROC
10660DEFPROCza(q%):CASEye%OF
10670WHEN0:PROCKa(FNh(q%+44)):q%!40=256:b$(g%)=FNh(q%+44)
10680WHEN1:PROCOa(FNh(q%+44)):q%!40=4095:C$=FNh(q%+44)
10690WHEN2:PROCPa(FNh(q%+44)):q%!40=4095:H$=FNh(q%+44)
10700WHEN3:PROCLa(FNh(q%+44)):q%!40=3582:F$=FNh(q%+44)
10710WHEN4:PROCMa(FNh(q%+44)):q%!40=2815:G$=FNh(q%+44)
10720WHEN5:PROCNa(FNh(q%+44)):q%!40=4095:I$=FNh(q%+44)
10730ENDCASE
10740SYS262351,,q%:q%!20=q%!12:q%!24=q%!16:q%!28=!q%:!q%=44:IF(q%!8AND1)<=0THENPROCh
10750ENDPROC
10760DEFPROCta:ug%=FALSE:SYS262351,,q%:q%!32=q%!4:q%!28=!q%:q%!24=q%!16:q%!20=q%!12:q%!16=1:q%!12=0:q%!36=1:q%!40=256:$(q%+44)=FNr(FNh(q))+CHR$(0):!q%=60:SYS262375,17,q%,q%!20:ENDPROC
10770DEFPROCQb(n%):LOCALvg%,wg%,xg%:!q%=a%(n%):SYS262347,,q%:xg%=q%!16-q%!8:vg%=q%!4:wg%=q%!8:q%!4=2:SYS262350,,q%:q%!8+=vg%:q%!12+=wg%+xg%:q%!16+=vg%:q%!20+=wg%+xg%:q%!24=0:q%!28=0:q%!32=&7FFFFFFF:q%!36=&7FFFFFFF:!q%=0:q%!4=5:ug%=TRUE:SYS262352,,q%:ENDPROC
10780DEFFNp(ba$):IFINSTR(ba$,".")=0THENPROCq("To save, drag the icon to a directory viewer."):=FALSE
10790=TRUE
10800DEFPROCKa(j$):IFNOT(FNp(j$))THENENDPROC
10810SYS263872:T$=LEFT$(TIME$,15):e$(g%)=T$:a$(g%)=FNr(j$):L%=OPENOUT(j$):PRINT#L%,Z%:PRINT#L%,T$:FORyg%=0TO35:PRINT#L%,n%(g%,yg%):NEXT:FORzg%=0TO35:IFn%(g%,zg%)>0THEN
10820FORAg%=0TOn%(g%,zg%)-1:U$=LEFT$(FNb(Ag%,zg%,g%)):PROCt(Ag%,zg%,g%,U$+"0"):PRINT#L%,U$:PRINT#L%,FNa(Ag%,zg%,g%):PRINT#L%,FNd(Ag%,zg%,g%):PRINT#L%,FNc(Ag%,zg%,g%):NEXT
10830ENDIF
10840NEXT:PRINT#L%,v%(g%):IFv%(g%)>-1THEN
10850FORBg%=0TOv%(g%):M$=$(b%(g%)+36*Bg%):PRINT#L%,M$:PRINT#L%,!(b%(g%)+36*Bg%+24):sa=!(b%(g%)+36*Bg%+28)*0.001:ta=!(b%(g%)+36*Bg%+32)*0.001:PRINT#L%,sa:PRINT#L%,ta:NEXT
10860ENDIF
10870CLOSE#L%:OSCLI("SETTYPE "+j$+" 100"):SYS8,5,j$TO,,,,Cg%:SYS263873:d$(g%)=STR$(Cg%)+" bytes":b$(g%)=j$:e%(g%)=FALSE:PROCjc:ENDPROC
10880DEFPROCOa(u$):IFNOT(FNp(u$))THENENDPROC
10890SYS263872:MOVE50000,0:OSCLI("SPOOL "+u$):CASEPa%OF
10900WHEN0:Dg%=d%(g%):Eg%=d%(g%)
10910WHEN1:Dg%=(d%(g%)DIV12)*12:Eg%=((d%(g%)DIV12)*12)+11
10920WHEN2:Dg%=0:Eg%=35
10930ENDCASE
10940FORFg%=Dg%TOEg%:IFn%(g%,Fg%)<>0THEN
10950ua=0:va=0:@%=0:PRINT"Portfolio: ";a$(g%);CHR$(10);:PRINT"Month: ";FNg(Fg%);CHR$(10);:PRINT"Year: ";FNq(Fg%);CHR$(10);:PRINTCHR$(10);:PRINT" NUMBER OF PURCHASE PURCHASE CURRENT CURRENT NET PERCENT.";CHR$(10);
10960PRINT"STOCK NAME UNITS HELD PRICE(�) VALUE(�) PRICE(�) VALUE(�) GAIN(�) GAIN(%)";CHR$(10);:PRINTCHR$(10);:FORGg%=0TOn%(g%,Fg%)-1:@%=0:PRINTLEFT$(FNb(Gg%,Fg%,g%));SPC(26-LEN(FNb(Gg%,Fg%,g%))-LEN(STR$(FNa(Gg%,Fg%,g%))));:PRINTFNa(Gg%,Fg%,g%);:PROCy(1):PRINTFNd(Gg%,Fg%,g%);:@%=16908810
10970PRINTFNd(Gg%,Fg%,g%)*FNa(Gg%,Fg%,g%);SPC(8-LENSTR$(FNc(Gg%,Fg%,g%)));:ua+=FNd(Gg%,Fg%,g%)*FNa(Gg%,Fg%,g%):PROCy(2):PRINTSTR$(FNc(Gg%,Fg%,g%));:@%=16908810:PRINTFNc(Gg%,Fg%,g%)*FNa(Gg%,Fg%,g%);:va+=FNc(Gg%,Fg%,g%)*FNa(Gg%,Fg%,g%):PROCy(3)
10980e=(FNc(Gg%,Fg%,g%))*FNa(Gg%,Fg%,g%)-(FNd(Gg%,Fg%,g%)*FNa(Gg%,Fg%,g%)):PRINTSPC(9-LENSTR$(e));STR$(e);:PROCy(4):IF(FNd(Gg%,Fg%,g%)*FNa(Gg%,Fg%,g%))=0THENf=0ELSEf=(e/(FNd(Gg%,Fg%,g%)*FNa(Gg%,Fg%,g%)))*100
10990PRINTSPC(8-LENSTR$(f));STR$(f);CHR$(10);:NEXTGg%:IFdc%THEN
11000@%=16908810:PRINT"Totals";SPC(39-LENSTR$(ua));ua;SPC(18-LENSTR$(va));va;CHR$(10);
11010ENDIF
11020IFPa%>0THENPRINTCHR$(10);:PRINTCHR$(10);
11030ENDIF
11040NEXTFg%:OSCLI("SPOOL"):OSCLI("SETTYPE "+u$+" FFF"):C$=u$:SYS263873:@%=0:ENDPROC
11050DEFPROCPa(v$):IFNOT(FNp(v$))THENENDPROC
11060SYS263872:MOVE50000,0:OSCLI("SPOOL "+v$):PRINT"Share Entry History: ";LEFT$(FNb(Hg%,Ig%,Q%));CHR$(10);:PRINTCHR$(10);:PRINT" NUMBER OF PURCHASE PURCHASE CURRENT CURRENT NET PERCENTAGE";CHR$(10);
11070PRINT"YEAR MONTH UNITS HELD PRICE(�) VALUE(�) PRICE(�) VALUE(�) GAIN(�) GAIN(%)";CHR$(10);:Jg%=-1:wa=FALSE:xa=FALSE:ya=FALSE:za=1000:Aa=0:Ba=0:CASEbb%OF
11080WHEN0:Kg%=0:Lg%=11
11090WHEN1:Kg%=12:Lg%=23
11100WHEN2:Kg%=24:Lg%=35
11110WHEN3:Kg%=0:Lg%=35
11120ENDCASE
11130FORK%=Kg%TOLg%:FORW%=0TOn%(Q%,K%):Ca=TRUE:Da=TRUE:Ea=TRUE:IFLEFT$(FNb(Hg%,Ig%,Q%))=LEFT$(FNb(W%,K%,Q%))THEN
11140PRINTCHR$(10);:Jg%+=1:IFFNc(W%,K%,Q%)>AaTHENAa=FNc(W%,K%,Q%)
11150IFFNc(W%,K%,Q%)<zaTHENza=FNc(W%,K%,Q%)
11160Ba+=FNc(W%,K%,Q%):@%=0:IFK%DIV12=0ANDNOTwaTHENwa=TRUE:PRINTSTR$((Z%-2)+K%DIV12);:Ca=FALSE
11170IFK%DIV12=1ANDNOTxaTHENxa=TRUE:PRINTSTR$((Z%-2)+K%DIV12);:Da=FALSE
11180IFK%DIV12=2ANDNOTyaTHENya=TRUE:PRINTSTR$((Z%-2)+K%DIV12);:Ea=FALSE
11190IFCaANDDaANDEaTHENPRINT" ";
11200PRINT" ";FNg(K%);SPC(11-LEN(FNg(K%)));:@%=7:PRINTFNa(W%,K%,Q%);" ";:@%=16908808:PRINTFNd(W%,K%,Q%);:PRINT" ";FNa(W%,K%,Q%)*FNd(W%,K%,Q%);:PRINTFNc(W%,K%,Q%);:PRINT" ";FNa(W%,K%,Q%)*FNc(W%,K%,Q%);
11210PRINT(FNa(W%,K%,Q%)*FNc(W%,K%,Q%))-(FNa(W%,K%,Q%)*FNd(W%,K%,Q%));" ";:IF(FNa(W%,K%,Q%)*FNd(W%,K%,Q%))=0THEN
11220PRINT0
11230ELSE:PRINT((FNa(W%,K%,Q%)*FNc(W%,K%,Q%))-(FNa(W%,K%,Q%)*FNd(W%,K%,Q%)))/(FNa(W%,K%,Q%)*FNd(W%,K%,Q%))*100;
11240ENDIF
11250ELSE:IFLEFT$(FNb(Hg%,Ig%,Q%))=LEFT$(FNb(W%,K%,Q%))THENJg%+=1
11260ENDIF
11270NEXT:NEXT:@%=0:OSCLI("SPOOL"):OSCLI("SETTYPE "+v$+" FFF"):H$=v$:SYS263873:ENDPROC
11280DEFPROCLa(w$):IFNOT(FNp(w$))THENENDPROC
11290SYS263872:C%=OPENOUT(w$):IFIc%=1THENMg%=l%ELSEMg%=O%
11300FORi%=0TOMg%:@%=0:CASEIc%OF
11310WHEN1:x%=!(uc%+8*i%):n=!(uc%+8*i%+4)*0.01
11320WHEN2:x%=!(pc%+32*i%):n=!(pc%+32*i%+Wc%)*0.01
11330ENDCASE
11340ca$=FNg(x%)+" "+FNq(x%):@%=16908810:BPUT#C%,""""+ca$+""""+","+STR$(n):NEXT:CLOSE#C%:OSCLI("SETTYPE "+w$+" DFE"):F$=w$:SYS263873:@%=0:ENDPROC
11350DEFPROCMa(x$):IFNOT(FNp(x$))THENENDPROC
11360SYS263872:D%=OPENOUT(x$):PROCkc:CLOSE#D%:OSCLI("SETTYPE "+x$+" AFF"):G$=x$:SYS263873:ENDPROC
11370DEFPROCkc:k=256:PROCd(&77617244):PROCd(201):PROCd(0):PROClc("Investor"):PROCd(0):PROCd(0):PROCd(1280*k):PROCd(1280*k):j%=0:E%=564:@%=0:Rc%=FALSE:F=0:Qc%=FNf(120):CASEIc%OF
11380WHEN1:r%=l%:r=u:i=v:s=P:Tc%=ABS(Wa%=0):Uc%=ABS(Wa%=4):IFu-v=0THENa=350/uELSEa=350/(u-(v*ABS(Sc%)))
11390F=!(uc%+8*(Oc%-1)+4)*0.01-(i*ABS(Sc%))
11400WHEN2:r%=O%:r=C:i=G:s=na:Tc%=ABS(Vc%=0):Uc%=ABS(Vc%=4):IFC-G=0THENa=350/CELSEa=350/(C-(G*ABS(Sc%)))
11410F=!(pc%+32*(Oc%-1)+Wc%)*0.01-(i*ABS(Sc%))
11420ENDCASE
11430IFMc%=1THENXc%=TRUEELSEXc%=FALSE
11440FORi%=0TOr%:CASEIc%OF
11450WHEN1:x%=!(uc%+8*i%):n=!(uc%+8*i%+4)*0.01
11460WHEN2:x%=!(pc%+32*i%):n=!(pc%+32*i%+Wc%)*0.01
11470ENDCASE
11480IFSc%THENn-=i
11490IFn<0THENn=0
11500CASEMc%OF
11510WHEN0:CASEYc%OF
11520WHEN0:PROCmc(j%+160+U%*0.5+(U%*i%),E%-424,j%+160+U%*0.5+(U%*i%),(n*a)+E%-424,FNi(6),0,U%):PROCF(j%+160+(U%*i%),E%-424,j%+160+(U%*i%),(n*a)+E%-424,FNi(7),0)
11530PROCF(j%+160+(U%*i%),(n*a)+E%-424,j%+160+(U%*(i%+1)),(n*a)+E%-424,FNi(7),0):PROCF(j%+160+(U%*(i%+1)),E%-424,j%+160+(U%*(i%+1)),(n*a)+E%-424,FNi(7),0):PROCG(LEFT$(FNg(x%),3),j%+160+FNf(24)+(U%*i%),E%-460,0)
11540PROCG(STR$((Z%-2)+x%DIV12),j%+160+FNf(16)+(U%*i%),E%-494,0)
11550WHEN1:IFNOTRc%THEN
11560Rc%=TRUE:PROCnc(j%+160,E%-424,j%+160+FNf(240),E%-224,j%+160+FNf(240),E%-424+600,j%+160,E%-24,FNi(12),FNi(12))
11570PROCnc(j%+160,E%-424,j%+160+FNf(240),E%-224,j%+160+FNf(360)+(Qc%*r%),E%-224,j%+160+FNf(120)+(Qc%*r%),E%-424,FNi(11),FNi(11))
11580ENDIF
11590PROCmc(j%+160+U%*0.5+(Qc%*i%),E%-424,j%+160+U%*0.5+(Qc%*i%),(n*a)+E%-424,FNi(8),0,U%)
11600PROCnc(j%+160+(Qc%*i%),E%-424+(n*a),j%+160+U%+(Qc%*i%),E%-424+(n*a),j%+160+FNf(124)+(Qc%*i%),E%-400+(n*a),j%+160+FNf(24)+(Qc%*i%),E%-400+(n*a),FNi(10),FNi(10))
11610PROCnc(j%+160+U%+(Qc%*i%),E%-424,j%+160+FNf(124)+(Qc%*i%),E%-400,j%+160+FNf(124)+(Qc%*i%),E%-400+(n*a),j%+160+U%+(Qc%*i%),E%-424+(n*a),FNi(9),FNi(9)):PROCG(LEFT$(FNg(x%),3),j%+160+FNf(24)+(Qc%*i%),E%-460,0)
11620PROCG(STR$((Z%-2)+x%DIV12),j%+160+FNf(16)+(Qc%*i%),E%-494,0)
11630ENDCASE
11640WHEN1:IFi%>0THEN
11650PROCF(j%+160+(U%*(i%-1)),E%-424+(F*a),j%+160+(U%*i%),(n*a)+E%-424,FNi(5),0)
11660ENDIF
11670PROCG(LEFT$(FNg(x%),3),j%+132+(U%*i%),E%-460,0):PROCG(STR$((Z%-2)+x%DIV12),j%+124+(U%*i%),E%-494,0):F=n
11680ENDCASE
11690NEXT:_c%=FNf((100+(20*ABS(Rc%)))*(r%+1)-(98*ABS(Xc%))):PROCF(j%+160,E%-424,j%+160,E%+20,FNi(1),0):PROCF(j%+160,E%-424,j%+160+_c%,E%-424,FNi(0),0):j=v*ABS(Sc%):j%+=6:CASE`c%OF
11700WHENTRUE:ad%=_c%-20:PROCF(j%+160,E%-424+(r-j)*a,j%+168+ad%,E%-424+(r-j)*a,FNi(2),0):PROCF(j%+160,E%-424+(i-j)*a,j%+168+ad%,E%-424+(i-j)*a,FNi(4),0)
11710PROCF(j%+160,E%-424+(s-j)*a,j%+168+ad%,E%-424+(s-j)*a,FNi(3),0):j%-=6:@%=16908810:PROCG("�"+STR$(r),j%+132-(16*LEN(STR$(r))),E%-412+(r-j)*a,FNi(2)):PROCG("�"+STR$(i),j%+132-(16*LEN(STR$(i))),E%-412+(i-j)*a,FNi(4))
11720PROCG("�"+STR$(s),j%+132-(16*LEN(STR$(s))),E%-412+(s-j)*a,FNi(3))
11730WHENFALSE
11740ENDCASE
11750SYS262374,7:@%=0:ENDPROC
11760DEFPROCF(o,p,m,l,Ng%,Og%):o=o*k:m=m*k:p=p*k:l=l*k:PROCd(2):PROCd(68):IFm<oTHENw=mELSEw=o
11770IFl<pTHENz=lELSEz=p
11780IFo>mTHENA=oELSEA=m
11790IFp>lTHENB=pELSEB=l
11800PROCd(w):PROCd(z):PROCd(A):PROCd(B):PROCd(Og%):PROCd(Ng%):PROCd(0):PROCd(0):PROCd(2):PROCd(o):PROCd(p):PROCd(8):PROCd(m):PROCd(l):PROCd(0):ENDPROC
11810DEFPROCmc(o,p,m,l,Ng%,Og%,Lc%):o=o*k:m=m*k:p=p*k:l=l*k:PROCd(2):PROCd(68):IFm<oTHENw=mELSEw=o
11820IFl<pTHENz=lELSEz=p
11830IFo>mTHENA=oELSEA=m
11840IFp>lTHENB=pELSEB=l
11850PROCd(w):PROCd(z):PROCd(A):PROCd(B):PROCd(Og%):PROCd(Ng%):PROCd(Lc%*k):PROCd(0):PROCd(2):PROCd(o):PROCd(p):PROCd(8):PROCd(m):PROCd(l):PROCd(0):ENDPROC
11860DEFPROCG(c$,x,y,Ng%):IF(LEN(c$)MOD4)=0THENc$+=" "
11870IF(LEN(c$)MOD4)=1THENc$+=" "
11880IF(LEN(c$)MOD4)=2THENc$+=" "
11890c$+=CHR$0:Fa=LEN(c$)DIV4:Fa=(Fa+1)*4:x=x*k:y-=32:y=y*k:PROCd(1):PROCd(48+Fa):PROCd(x):PROCd(y):PROCd(x+LEN(c$)*40*k):PROCd(y+40*k):PROCd(Ng%):PROCd(-256):PROCd(0):PROCd(16*k):PROCd(32*k):PROCd(x):PROCd(y):PROCoc(c$):PROCpc:ENDPROC
11900DEFPROCnc(o,p,m,l,J,K,L,M,Ng%,Og%):o=o*k:m=m*k:p=p*k:l=l*k:J=J*k:L=L*k:K=K*k:M=M*k:PROCd(2):PROCd(104):w=o:A=o:z=p:B=l:IFm<wTHENw=m
11910IFJ<wTHENw=J
11920IFL<wTHENw=L
11930IFm>ATHENA=m
11940IFJ>ATHENA=J
11950IFL>ATHENA=L
11960IFl<zTHENz=l
11970IFK<zTHENz=K
11980IFM<zTHENz=M
11990IFl>BTHENB=l
12000IFK>BTHENB=K
12010IFM>BTHENB=M
12020PROCd(w):PROCd(z):PROCd(A):PROCd(B):PROCd(Og%):PROCd(Ng%):PROCd(0):PROCd(0):PROCd(2):PROCd(o):PROCd(p):PROCd(8):PROCd(m):PROCd(l):PROCd(8):PROCd(J):PROCd(K):PROCd(8):PROCd(L):PROCd(M):PROCd(8):PROCd(o):PROCd(p):PROCd(0):ENDPROC
12030DEFPROCd(A%):BPUT#D%,A%AND255:BPUT#D%,(A%>>>8)AND255:BPUT#D%,(A%>>>16)AND255:BPUT#D%,(A%>>>24)AND255:ENDPROC
12040DEFPROClc(A$):LOCALA%:A$=A$+STRING$(12," "):FORA%=1TO12:BPUT#D%,ASC(MID$(A$,A%,1)):NEXT:ENDPROC
12050DEFPROCoc(A$):LOCALA%:FORA%=1TOLEN(A$):BPUT#D%,ASC(MID$(A$,A%,1)):NEXT:ENDPROC
12060DEFPROCpc:WHILEPTR#D%AND3:BPUT#D%,0:ENDWHILE:ENDPROC
12070DEFPROCNa(y$):IFNOT(FNp(y$))THENENDPROC
12080MOVE50000,0:OSCLI("SPOOL "+y$):PRINT"Portfolio Dividends: ";a$(I%);CHR$(10);:PRINTCHR$(10);:PRINT" DIVIDEND TAX NET";CHR$(10);
12090PRINT"STOCK NAME YEAR MONTH AMOUNT (�) CREDIT (�) DIVIDEND (�)";CHR$(10);CHR$(10);:FORu%=0TOv%(I%):xc%=!(b%(I%)+36*u%+24):z$=LEFT$($(b%(I%)+36*u%)):IFu%>0THEN
12100IFz$=LEFT$($(b%(I%)+36*(u%-1)))THENz$=""
12110ENDIF
12120PRINTz$;:@%=0:IFxc%>-1THEN
12130PRINTSPC(25-LEN(z$));xc%DIV12+Z%-2;" ";FNg(xc%);SPC(10-LEN(FNg(xc%)));SPC(1);
12140ENDIF
12150@%=16908807:IF!(b%(I%)+36*u%+28)>0THEN
12160PRINT!(b%(I%)+36*u%+28)*0.001;SPC(6);
12170ENDIF
12180IF!(b%(I%)+36*u%+32)>0THEN
12190PRINT!(b%(I%)+36*u%+32)*0.001;SPC(7);
12200ENDIF
12210IF!(b%(I%)+36*u%+28)>0AND!(b%(I%)+36*u%+32)>0THEN
12220PRINT(!(b%(I%)+36*u%+28)*0.001)-(!(b%(I%)+36*u%+32)*0.001);
12230ENDIF
12240PRINTCHR$(10);:NEXT:@%=0:OSCLI("SPOOL"):OSCLI("SETTYPE "+y$+" FFF"):I$=y$:ENDPROC
12250DEFPROCAa(q%,Pg%):IFq%!12=0ANDq%!40=256THEN
12260!q%=20:q%!12=wa%:q%!16=4:SYS262375,17,q%,va%:PROCla(q%!20,FNh(q%+44),Pg%)
12270ENDIF
12280ENDPROC
12290DEFPROCla(Qg%,da$,Pg%):Rg%=FALSE:B$=da$:R%=Qg%:FORAb%=0TO5:IFa%(Ab%)=R%ANDa%(Ab%)<>0THENR%=Ab%
12300NEXT:IFR%<0ORR%>5ORPg%=5THENR%=FNy
12310IFR%=6THEN
12320PROCq("No portfolios available."):ENDPROC
12330ELSE:IFe%(R%)THENPROCS(3,"This portfolio contains unsaved data: are you sure you want to load the portfolio and overwrite the current portfolio?","Load"):ENDPROC
12340ENDIF
12350PROCDb:ENDPROC
12360DEFPROCqc:CLOSE#L%:PROCq("Error whilst loading portfolio file."):PROCB(4,R%):ENDPROC
12370DEFPROCDb:LOCALV$,Sg%,Ga,Ha:LOCALERROR:ONERRORLOCAL:PROCqc:ENDPROC
12380SYS263872:SYS8,5,B$TO,,,,Cg%:PROCab:L%=OPENIN(B$):INPUT#L%,Tg%:IFTg%<>Z%THENRg%=TRUE
12390INPUT#L%,e$(R%):FORyg%=0TO35:INPUT#L%,n%(R%,yg%):NEXT:FORUg%=0TO35:s%(R%,Ug%)=FNk(s%(R%,Ug%),36*n%(R%,Ug%)+36,T%):IFNOTT%THENPROCB(4,R%):ENDPROC
12400IFn%(R%,Ug%)>0THEN
12410FORBg%=0TOn%(R%,Ug%)-1:INPUT#L%,V$:$(s%(R%,Ug%)+36*Bg%)=V$+"0":INPUT#L%,Sg%:!(s%(R%,Ug%)+36*Bg%+24)=Sg%:INPUT#L%,Ga:!(s%(R%,Ug%)+36*Bg%+28)=Ga*1000:INPUT#L%,Ha:!(s%(R%,Ug%)+36*Bg%+32)=Ha*1000:NEXT
12420ENDIF
12430NEXT:INPUT#L%,v%(R%):IFv%(R%)>-1THEN
12440FORqg%=0TOv%(R%):b%(R%)=FNk(b%(R%),36,T%):IFNOTT%THENPROCB(4,R%):ENDPROC
12450INPUT#L%,M$:INPUT#L%,Vg%:INPUT#L%,sa:INPUT#L%,ta:$(b%(R%)+36*qg%)=M$:!(b%(R%)+36*qg%+24)=Vg%:!(b%(R%)+36*qg%+28)=sa*1000:!(b%(R%)+36*qg%+32)=ta*1000:NEXT
12460ENDIF
12470CLOSE#L%:IFRg%THENPROCrc(Z%-Tg%)
12480SYS263873:h%(R%)=TRUE:b$(R%)=B$:IFc%(R%)=0THENPROCl(0,R%):c%(R%)=1
12490e%(R%)=FALSE:d$(R%)=STR$(Cg%)+" bytes":a$(R%)=FNr(B$):PROCv(R%,a$(R%),1):i%(R%)=176+(n%(R%,d%(R%))*40):IFi%(R%)<456THENi%(R%)=456
12500IFa%(37)<>0THEN!q%=a%(37):PROCr(q%)
12510PROC`(R%):PROCI(R%):PROCD:PROCic(R%):ENDPROC
12520DEFPROCrc(Wg%):ENDPROC
12530DEFPROCf(w%):IFa%(w%)<>0:ENDPROC
12540SYS262337,,j%(w%)TOa%(w%):ENDPROC
12550DEFPROCg(n%):IFa%(n%)=0THENENDPROC
12560!G%=a%(n%):SYS262339,,G%:IFn%<6THENc%(n%)=0:PROCsc(n%):IFGb%=n%THENPROCg(21)
12570CASEn%OF
12580WHEN16:ob%=FALSE:PROCg(15)
12590WHEN17:eb%=100:PROCg(43)
12600WHEN21:Gb%=-1
12610WHEN28:qf%=1:pf%=0:sf%=1:rf%=0:PROCE(uc%):Za%=-1:IFIc%=1THENPROCg(39)
12620WHEN36:pb%=FALSE:PROCg(37)
12630WHEN38:PROCE(pc%):Q%=-1:IFIc%=2THENPROCg(39)
12640WHEN39:Ic%=0:U%=100
12650ENDCASE
12660a%(n%)=0:ENDPROC
12670DEFPROCpa:FORLb%=0TO42:IF!q%=a%(Lb%)THEN
12680a%(Lb%)=0:SYS262339,,q%:CASELb%OF
12690WHEN16:ob%=FALSE:PROCg(15)
12700WHEN17:PROCg(17):eb%=100:PROCg(43)
12710WHEN21:Gb%=-1
12720WHEN28:qf%=1:pf%=0:sf%=1:rf%=0:PROCE(uc%):Za%=-1:IFIc%=1THENPROCg(39)
12730WHEN36:pb%=FALSE:PROCg(37)
12740WHEN38:PROCE(pc%):Q%=-1:IFIc%=2THENPROCg(39)
12750WHEN39:Ic%=0:U%=100
12760ENDCASE
12770IFLb%<6THENPROCtc(Lb%)
12780ENDIF
12790NEXT:ENDPROC
12800DEFPROCtc(w%):SYS262351,,G%:IFG%!8=1ANDb$(w%)<>""ANDINSTR(b$(w%),".")>0THENOSCLI("FILER_OPENDIR "+FNB(b$(w%)))
12810c%(w%)=0:PROCsc(w%):IFw%=jd%THENPROCg(17):PROCg(15):PROCg(16):jd%=-1
12820IFGb%=w%THENPROCg(21)
12830ENDPROC
12840DEFPROCsc(Wg%):IFub%=Wg%THENBb%=-1:Y%=-1:Lf%=-1:Mf%=-1
12850c%(Wg%)=0:Md%=FALSE:ENDPROC
12860DEFPROCUa(q%):PROCZ(q%):`b%=q%!28-j%:Wb%=q%!32-E%:ac%=q%!36-j%:Ub%=q%!40-E%:ENDPROC
12870DEFPROCZ(q%):j%=q%!4-q%!20:E%=q%!16-q%!24:ENDPROC
12880DEFPROCN(sb%,Xg%):LOCALy%:Y%=sb%:Q$=LEFT$(FNb(Y%,d%(g%),g%)):Ta%=FNa(Y%,d%(g%),g%):I=FNd(Y%,d%(g%),g%):H=FNc(Y%,d%(g%),g%):!q%=a%(Xg%):!G%=!q%:SYS262348,,G%:IFtb%THEN
12890y%=G%!56-12-(sb%+4)*40:SYS262353,!G%,G%!44,y%-44,G%!52,y%
12900ELSE:y%=G%!56-20-(sb%+4)*40:SYS262353,!G%,G%!44,y%-32,G%!52,y%
12910ENDIF
12920ENDPROC
12930DEFPROCbb(Yg%):LOCALy%:!G%=a%(37):SYS262348,,G%:y%=G%!56-4-Yg%*40:SYS262353,!G%,G%!44,y%-32,G%!52,y%:ENDPROC
12940DEFPROC_(Zg%):LOCALy%:!G%=a%(41):SYS262348,,G%:y%=G%!56-20-(Zg%+4)*40:SYS262353,!G%,G%!44,y%-32,G%!52,y%:ENDPROC
12950DEFPROCub:IFn%(Fc%,(Cc%*12)+Dc%)>0THEN
12960FORk%=0TOn%(Fc%,(Cc%*12)+Dc%)-1:IFHc%?k%=1THENHc%?k%=0:PROCbb(k%)
12970NEXT
12980ENDIF
12990ENDPROC
13000DEFPROCga:DIM_g%29439,`g%15409:ah%=_g%:bh%=`g%:ch%=`g%+15409:SYS262361,,"<Investor$Dir>.Templates":w%=0:WHILEw%<44:$da%=STR$(w%):SYS262363,,ah%,bh%,ch%,-1,da%,0TO,,bh%:j%(w%)=ah%:ah%+=88+32*(ah%!84):IFw%<>9THENj%(w%)!64=ha%
13010k%(0,w%)=j%(w%)!0:k%(1,w%)=j%(w%)!4:w%+=1:ENDWHILE:SYS262362:ENDPROC
13020DEFPROCca:Id%=0:Jd%=0:Y%=-1:Mf%=-1:ob%=FALSE:Pa%=0:bb%=0:Oa%=0:Md%=FALSE:qf%=1:pf%=0:sf%=1:rf%=0:_d%=FALSE:Zd%=0:od%=0:Ga%=0:`d%=0:ce%=0:ve%=TRUE:de%=0:ie%=0:je%=0:qe%=0:re%=0:kf%=0:jf%=0:ge%=0:he%=0:oe%=0:ma%=0
13030pe%=0:Fc%=0:ue%=0:eb%=100:qb%=-1:lf%=0:mf%=0:tb%=FALSE:Dd%=FALSE:U%=100:pb%=FALSE:Sc%=FALSE:`c%=TRUE:ic%=FALSE:ug%=FALSE:id%=FALSE:nf%=1:Wa%=-1:Ic%=0:ng%=0:Xa%=0:Ya%=0:Cb%=-1:of%=1:ub%=-1:Yc%=0:Za%=0:jd%=-1:Mc%=0:Gb%=-1
13040xe%=TRUE:Cd%=-1:Ed%=-1:Bb%=-1:yd%=0:xa%=-1:v=0:u=0:D=0.01:E=0.01:Jb%=TRUE:Ua%=10:kd%=-1:G$="DrawFile":P=0:g%=0:uc%=-1:pc%=-1:Kb%=0:qc%=FALSE:C$="TextFile":H$="History":F$="CSVFile":dh%=-1
13050Hc%=-1:gb%=-1:Gd%=-1:N%=&572A1FBD:I$="Dividends":Za%=-1:Q%=-1:h$="Trinity.Medium":la%=FALSE:M%=-1:va%=-1:wa%=-1:T%=FALSE:v%=-1:ENDPROC
13060DEFPROCda:DIMs%(5,35),n%(5,35),d%(5),a$(5),e%(5),i%(5),c%(5),e$(5),d$(5),b$(5),h%(5),b%(5),f%(12),g%(12),a%(43),j%(43),v%(5),c$(256),k%(1,43):@%=0:FORk%=0TO5
13070v%(k%)=-1:b%(k%)=-1:c%(k%)=0:e%(k%)=FALSE:h%(k%)=FALSE:i%(k%)=456:a$(k%)=STR$(N%):b$(k%)="Portfolio":e$(k%)=LEFT$(TIME$,15):d$(k%)="0 bytes":NEXT:ENDPROC
13080DEFPROCIa:PROCi(17,21.4*qa%*eb%,15.4*eb%,0,0):!q%=a%(17):PROCr(q%):ENDPROC
13090DEFPROCJa:CASEIc%OF
13100WHEN1:PROCi(39,564,310+(FNn*l%+FNo),0,0)
13110WHEN2:PROCi(39,564,310+(FNn*O%+FNo),0,0)
13120ENDCASE
13130!q%=a%(39):PROCr(q%):ENDPROC
13140DEFPROCi(w%,eh%,Lc%,fh%,gh%):!q%=fh%:q%!4=-eh%:q%!8=Lc%:q%!12=gh%:SYS262359,a%(w%),q%:PROCl(1,w%):ENDPROC
13150DEFPROCuc(n%,hh%):!q%=0:q%!4=-hh%:q%!8=1510:q%!12=0:SYS262359,a%(n%),q%:ENDPROC
13160DEFPROCI(ih%):IFn%(ih%,d%(ih%))<7THEN
13170i%(ih%)=456
13180ELSE:i%(ih%)=214+(n%(ih%,d%(ih%))*40)
13190ENDIF
13200PROCuc(ih%,i%(ih%)):ENDPROC
13210DEFPROCv(n%,N$,o%):IFa%(n%)=0THENPROCf(n%)
13220IFWa%>4ANDn%=39ANDIc%=1THEN
13230CASEWa%OF
13240WHEN5:N$="'"+a$(Za%)+"' Total Current Value History: "+FNu
13250WHEN6:N$="'"+a$(Za%)+"' Total Purchase Value History: "+FNu
13260ENDCASE
13270ENDIF
13280!G%=a%(n%):SYS262348,,G%:$(G%!76)=N$:IFo%=1THEN
13290SYS262342,,G%:SYS262341,,G%
13300ENDIF
13310ENDPROC
13320DEFPROCea:jh%=HIMEM:kh%=8*1024:SYS262380,-1,-1TOlh%:SYS262380,lh%+kh%,-1:SYS29,0,jh%,,kh%:ENDPROC
13330DEFFNM(mh%):LOCALdf%,T%,nh%,oh%:nh%=FALSE:REPEAT:SYS29,1,jh%TO,,oh%:IFoh%>=mh%THEN
13340SYS29,2,jh%,,mh%TO,,df%:T%=TRUE
13350ELSE:nh%=FNF
13360ENDIF
13370UNTILT%ORnh%:IFnh%THENph%=FALSE:PROCq("Investor is unable to claim any more memory. To free some memory, either quit other applications or reallocate.")
13380=df%
13390DEFFNk(df%,mh%,RETURNph%):LOCALT%,nh%,qh%:ph%=TRUE:IFdf%<=0THEN=FNM(mh%)
13400nh%=FALSE:REPEAT:SYS131101,4,jh%,df%,mh%TO,,qh%;T%:T%=((T%AND1)=0):IFNOTT%THENnh%=FNF
13410UNTILT%ORnh%:IFnh%THENph%=FALSE:PROCq("Investor is unable to claim any more memory. To free some memory, either quit other applications or reallocate.")
13420=qh%
13430DEFFNF:LOCALnh%,rh%:SYS393452,lh%+kh%+8*1024,-1TOrh%;nh%:nh%=((nh%AND1)=1):IFrh%=lh%+kh%THENnh%=TRUE
13440IFNOTnh%THEN
13450kh%+=8*1024:SYS29,5,jh%,,8*1024
13460ENDIF
13470=nh%
13480DEFPROCE(RETURNdf%):IFdf%>0THENSYS29,3,jh%,df%
13490df%=0:ENDPROC
13500DEFPROCFb(d%):v%(I%)=n%(Ff%,d%)-1:FORi%=0TOv%(I%):b%(I%)=FNk(b%(I%),36,T%):IFNOTT%THENENDPROC
13510$(b%(I%)+36*i%)=$(s%(Ff%,d%)+36*i%):!(b%(I%)+36*i%+24)=-1:!(b%(I%)+36*i%+28)=-1:!(b%(I%)+36*i%+32)=-1:NEXT:!q%=a%(41):PROCr(q%):IFv%(I%)>5THENPROCi(41,254+(40*v%(I%)),1236,0,0)
13520ENDPROC
13530DEFPROCYb(sh%):Wa%=sh%:Za%=g%:Ya%=d%(g%):Xa%=Y%:PROCf(28):PROCec(sh%):IFl%>0THEN
13540l%-=1:PROCv(28,"Formatted view: "+a$(g%),1):IFWa%<5THEN$FNt(28,0)=LEFT$(FNb(Xa%,Ya%,Za%))ELSE$FNt(28,0)=a$(g%)
13550IFl%>14THENPROCi(28,214+(40*l%),500,0,0)ELSEPROCi(28,776,500,0,0)
13560IFa%(39)<>0THENPROCfc(Ic%)
13570ENDIF
13580ENDPROC
13590DEFPROCec(t%):SYS263872:n=0:l%=0:v=999999:u=-999999:Ia=0:CASEWa%OF
13600WHEN0:$FNt(28,3)="NUMBER OF":$FNt(28,4)="UNITS HELD"
13610WHEN1:$FNt(28,3)="CURRENT":$FNt(28,4)="PRICE (�)"
13620WHEN2:$FNt(28,3)="CURRENT":$FNt(28,4)="VALUE (�)"
13630WHEN3:$FNt(28,3)="NET":$FNt(28,4)="GAIN (�)"
13640WHEN4:$FNt(28,3)="PERCENTAGE":$FNt(28,4)="GAIN (%)"
13650WHEN5:$FNt(28,3)="CURRENT":$FNt(28,4)="VALUE (�)"
13660WHEN6:$FNt(28,3)="PURCHASE":$FNt(28,4)="VALUE (�)"
13670ENDCASE
13680CASEqf%OF
13690WHEN0:CASEsf%OF
13700WHEN0:th%=0:uh%=11
13710WHEN1:th%=12:uh%=23
13720WHEN2:th%=24:uh%=35
13730ENDCASE
13740WHEN1:th%=0:uh%=35
13750ENDCASE
13760CASEt%OF
13770WHEN0,1,2,3,4:FORx%=th%TOuh%:FORz%=0TOn%(Za%,x%)-1:IFLEFT$(FNb(Xa%,Ya%,Za%))=LEFT$(FNb(z%,x%,Za%))THEN
13780uc%=FNk(uc%,8,T%):J%=uc%+8*l%:IFNOTT%THENENDPROC
13790!J%=x%:CASEt%OF
13800WHEN0:n=FNa(z%,x%,Za%)
13810WHEN1:n=FNc(z%,x%,Za%)
13820WHEN2:n=FNa(z%,x%,Za%)*FNc(z%,x%,Za%)
13830WHEN3:n=(FNa(z%,x%,Za%)*FNc(z%,x%,Za%))-(FNa(z%,x%,Za%)*FNd(z%,x%,Za%))
13840WHEN4:IFFNd(z%,x%,Za%)=0THENn=0ELSEn=(FNc(z%,x%,Za%)-FNd(z%,x%,Za%))/(FNd(z%,x%,Za%))*100
13850ENDCASE
13860!(J%+4)=n*100:IFn>uTHENu=n
13870IFn<vTHENv=n
13880Ia+=n:l%+=1
13890ENDIF
13900NEXT:NEXT
13910WHEN5,6:FORx%=th%TOuh%:n=0:IFn%(Za%,x%)<>0THEN
13920FORz%=0TOn%(Za%,x%)-1:IFWa%=5THENn+=FNc(z%,x%,Za%)*FNa(z%,x%,Za%)ELSEn+=FNd(z%,x%,Za%)*FNa(z%,x%,Za%)
13930NEXTz%:uc%=FNk(uc%,8,T%):J%=uc%+8*l%:IFNOTT%THENENDPROC
13940!(J%)=x%:!(J%+4)=n*100:IFn>uTHENu=n
13950IFn<vTHENv=n
13960Ia+=n:l%+=1
13970ENDIF
13980NEXT
13990ENDCASE
14000IFl%=0THEN
14010PROCq("No information found.")
14020ELSE:P=Ia/l%
14030ENDIF
14040@%=0:SYS263873:ENDPROC
14050DEFPROC_b(vh%):PROCf(38):PROCv(38,"Share Entry History: "+a$(g%),1):$FNt(38,0)=LEFT$(FNb(vh%,d%(g%),g%)):PROCvc(vh%,d%(g%),g%):PROCl(1,38):!q%=a%(38):PROCr(q%):IFO%>6ORqc%THENPROCi(38,214+(40*O%)+(664*ABS(qc%)),1570,48,0)ELSEPROCi(38,456,1570,48,0)
14060ENDPROC
14070DEFPROCvc(wh%,xh%,yh%):SYS263872:O%=0:Hg%=wh%:Ig%=xh%:Q%=yh%:sc%=99999999:rc%=-999999999:tc%=0:Y=99999999:X=-999999999:R=0:_=99999999:Z=-999999999:S=0:ca=99999999:`=-999999999:T=0:ea=99999999:da=-999999999:U=0:ga=99999999:fa=-999999999:V=0
14080ia=99999999:ha=-999999999:W=0:FORK%=0TO35:FORW%=0TOn%(Q%,K%):IFLEFT$(FNb(Hg%,Ig%,Q%))=LEFT$(FNb(W%,K%,Q%))THEN
14090pc%=FNk(pc%,32,T%):J%=pc%+32*O%:IFNOTT%THENENDPROC
14100!(J%)=K%:zh%=FNa(W%,K%,Q%):!(J%+4)=zh%*100:IFzh%<sc%THENsc%=zh%
14110IFzh%>rc%THENrc%=zh%
14120tc%+=zh%:b=FNd(W%,K%,Q%):!(J%+8)=b*100:IFb<YTHENY=b
14130IFb>XTHENX=b
14140R+=b:b=FNa(W%,K%,Q%)*FNd(W%,K%,Q%):!(J%+12)=b*100:IFb<_THEN_=b
14150IFb>ZTHENZ=b
14160S+=b:b=FNc(W%,K%,Q%):!(J%+16)=b*100:IFb<caTHENca=b
14170IFb>`THEN`=b
14180T+=b:b=FNc(W%,K%,Q%)*FNa(W%,K%,Q%):!(J%+20)=b*100:IFb<eaTHENea=b
14190IFb>daTHENda=b
14200U+=b:b=FNa(W%,K%,Q%)*(FNc(W%,K%,Q%)-FNd(W%,K%,Q%)):!(J%+24)=b*100:IFb<gaTHENga=b
14210IFb>faTHENfa=b
14220V+=b:IFFNd(W%,K%,Q%)=0THENN=0ELSEN=(FNc(W%,K%,Q%)-FNd(W%,K%,Q%))/(FNd(W%,K%,Q%))*10000
14230!(J%+28)=N:IFN*0.01<iaTHENia=N*0.01
14240IFN*0.01>haTHENha=N*0.01
14250W+=N*0.01:O%+=1
14260ENDIF
14270NEXT:NEXT:tc%=tc%/O%:R=R/O%:S=S/O%:T=T/O%:U=U/O%:V=V/O%:W=W/O%:O%-=1:@%=0:SYS263873:ENDPROC
14280DEFPROCgc(Ah%):Vc%=Ah%:CASEVc%OF
14290WHEN0:Wc%=4
14300WHEN1:Wc%=16
14310WHEN2:Wc%=20
14320WHEN3:Wc%=24
14330WHEN4:Wc%=28
14340ENDCASE
14350G=999999999:C=-999999999:Ja=0:FORi%=0TOO%:O=!(pc%+32*i%+Wc%)*0.01:IFO>CTHENC=O
14360IFO<GTHENG=O
14370Ja+=O:NEXT:na=Ja/(O%+1):IFFNETHEN
14380PROCfc(Ic%)
14390ELSE:PROCq("Investor cannot plot this data."):IFa%(39)>0THENPROCg(39)
14400ENDIF
14410ENDPROC
14420DEFPROCfc(Bh%):CASEBh%OF
14430WHEN1:PROCv(39,LEFT$(FNb(Xa%,Ya%,Za%))+" Share History: "+FNu,1):PROCi(39,564,310+(FNn*l%+FNo),0,0)
14440WHEN2:PROCv(39,LEFT$(FNb(Hg%,Ig%,Q%))+" Share History: "+FNu,1):PROCi(39,564,310+(FNn*O%+FNo),0,0)
14450ENDCASE
14460!q%=a%(39):PROCr(q%):ENDPROC
14470DEFPROCcb:IFc%(0)=0THENc%(0)=1:Hd%=0:PROCQ(0):ENDPROC
14480IFc%(1)=0THENc%(1)=1:Hd%=1:PROCQ(1):ENDPROC
14490IFc%(2)=0THENc%(2)=1:Hd%=2:PROCQ(2):ENDPROC
14500IFc%(3)=0THENc%(3)=1:Hd%=3:PROCQ(3):ENDPROC
14510IFc%(4)=0THENc%(4)=1:Hd%=4:PROCQ(4):ENDPROC
14520IFc%(5)=0THENc%(5)=1:Hd%=5:PROCQ(5):ENDPROC
14530Md%=TRUE:Hd%=-1:ENDPROC
14540DEFPROCQ(Ch%):@%=0:IFa$(Ch%)=STR$(N%)THENa$(Ch%)="<untitled>"
14550ENDPROC
14560DEFPROCl(d%,n%):IFn%<6ANDd%=0THENd%(n%)=FNx(Kd%,Ld%)
14570IFd%=0PROCf(n%)
14580!q%=a%(n%):SYS262347,,q%:IFn%<6ANDd%=0THEN
14590Dh%=q%!12-q%!4:Eh%=q%!16-q%!8:q%!4=(80*n%)+2:q%!8=ta%-40-Eh%-68*n%:q%!12=q%!4+Dh%:q%!16=q%!8+Eh%:q%!20=0:q%!24=0:q%!28=-1:PROC`(n%):IFe%(n%)THENg$=" *"ELSEg$=""
14600PROCv(n%,a$(n%)+g$,0)
14610ELSE:IFn%<>15ANDn%<>37THEN
14620Eh%=q%!16-q%!8:q%!4=k%(0,n%):q%!8=ta%-(1020-k%(1,n%)):q%!16=q%!8+Eh%:IFq%!16>ta%THENq%!8-=(q%!16-ta%+40):q%!16=ta%-40
14630ENDIF
14640ENDIF
14650IFq%!32AND65536THENq%!28=-1
14660SYS262341,,q%:ENDPROC
14670DEFPROCD:Fh%=FALSE:IFkf%=0THENENDPROC
14680SYS263872:CASEmf%OF
14690WHEN0:Gh%=g%:Hh%=g%:Ih%=d%(g%):Jh%=d%(g%)
14700WHEN1:Gh%=g%:Hh%=g%:Ih%=0:Jh%=35
14710WHEN2:Gh%=0:Hh%=5:Ih%=0:Jh%=35
14720ENDCASE
14730FORn%=Gh%TOHh%:FORo%=Ih%TOJh%:IFub%=n%ANDCb%=o%THENKh%=n%:Lh%=o%:Fh%=TRUE:W$=LEFT$($(s%(n%,o%)+36*Y%)):ea$=RIGHT$($(s%(n%,o%)+36*Y%)):$(s%(n%,o%)+36*Y%)=W$+"2":PROCK(n%)
14740CASEkf%OF
14750WHEN1:IFn%(n%,o%)>1THENPROCwc(0,n%(n%,o%)-1)
14760WHEN2:IFn%(n%,o%)>1THENPROCxc(0,n%(n%,o%)-1)
14770WHEN3:IFn%(n%,o%)>1THENPROCyc(0,n%(n%,o%)-1)
14780WHEN4:IFn%(n%,o%)>1THENPROCzc(0,n%(n%,o%)-1)
14790WHEN5:IFn%(n%,o%)>1THENPROCAc(0,n%(n%,o%)-1)
14800ENDCASE
14810NEXT:IFFh%THENPROCBc
14820IFa%(n%)<>0ANDNOTFh%THEN!q%=a%(n%):PROCr(q%)
14830NEXT:SYS263873:ENDPROC
14840DEFPROCBc:FORMh%=0TOn%(Kh%,Lh%)-1:IFRIGHT$($(s%(Kh%,Lh%)+36*Mh%))="2"THENY%=Mh%:$(s%(Kh%,Lh%)+36*Mh%)=W$+ea$:Eb%=Lh%:Fb%=Kh%:Db%=Mh%:PROCY(Kh%,Mh%):PROCHa
14850NEXT:IFa%(n%)>0THEN!q%=a%(n%):PROCr(q%)
14860ENDPROC
14870DEFPROCwc(kc%,lc%):FORNh%=kc%TOlc%:Oh%=Nh%:FORPh%=Nh%TOlc%:IF($(s%(n%,o%)+36*Ph%))<($(s%(n%,o%)+36*Oh%))Oh%=Ph%
14880NEXT:PROCT(Nh%,Oh%):NEXT:ENDPROC
14890DEFPROCyc(kc%,lc%):FORNh%=kc%TOlc%:Oh%=Nh%:FORPh%=Nh%TOlc%:IF!(s%(n%,o%)+36*Ph%+32)*!(s%(n%,o%)+36*Ph%+24)>!(s%(n%,o%)+36*Oh%+32)*!(s%(n%,o%)+36*Oh%+24)Oh%=Ph%
14900NEXT:PROCT(Nh%,Oh%):NEXT:ENDPROC
14910DEFPROCzc(kc%,lc%):FORNh%=kc%TOlc%:Oh%=Nh%:FORPh%=Nh%TOlc%:IF!(s%(n%,o%)+36*Ph%+32)>!(s%(n%,o%)+36*Oh%+32)Oh%=Ph%
14920NEXT:PROCT(Nh%,Oh%):NEXT:ENDPROC
14930DEFPROCxc(kc%,lc%):dh%=FNk(dh%,4*n%(n%,o%),T%):IFNOTT%THENENDPROC
14940FORyg%=0TOn%(n%,o%)-1:Ka=!(s%(n%,o%)+36*yg%+28):IFKa=0THENdh%!(4*yg%)=!(s%(n%,o%)+36*yg%+32)*10000ELSEdh%!(4*yg%)=100000*(!(s%(n%,o%)+36*yg%+32)-!(s%(n%,o%)+36*yg%+28))/(Ka)
14950NEXT:FORNh%=kc%TOlc%:Oh%=Nh%:FORPh%=Nh%TOlc%:IFdh%!(4*Ph%)>dh%!(4*Oh%)Oh%=Ph%
14960NEXT:xb%=dh%!(4*Nh%):dh%!(4*Nh%)=dh%!(4*Oh%):dh%!(4*Oh%)=xb%:PROCT(Nh%,Oh%):NEXT:PROCE(dh%):dh%=-1:ENDPROC
14970DEFPROCAc(kc%,lc%):IFo%=0ORn%(n%,o%-1)=0THENENDPROC
14980dh%=FNk(dh%,4*n%(n%,o%),T%):IFNOTT%THENENDPROC
14990FORyg%=0TOn%(n%,o%)-1:dh%!(4*yg%)=0:FORzg%=0TOn%(n%,o%-1)-1:IFLEFT$($(s%(n%,o%)+36*yg%))=LEFT$($(s%(n%,o%-1)+36*zg%))THENdh%!(4*yg%)=(!(s%(n%,o%)+36*yg%+32)-!(s%(n%,o%-1)+36*zg%+32))*1000
15000NEXT:NEXT:FORNh%=kc%TOlc%:Oh%=Nh%:FORPh%=Nh%TOlc%:IFdh%!(4*Ph%)>dh%!(4*Oh%)Oh%=Ph%
15010NEXT:xb%=dh%!(4*Nh%):dh%!(4*Nh%)=dh%!(4*Oh%):dh%!(4*Oh%)=xb%:PROCT(Nh%,Oh%):NEXT:PROCE(dh%):dh%=-1:ENDPROC
15020DEFPROCT(a%,b%):A%=s%(n%,o%)+36*a%:B%=s%(n%,o%)+36*b%:C%=0:CALLra:ENDPROC
15030DEFPROCjb:qa%=1:IFn%(jd%,kd%)>35THENqa%+=(n%(jd%,kd%)+4)DIV40
15040Qh%=VAL($(FNt(15,40))):n$=$(FNt(15,21)):IFn%(jd%,kd%)>0THEN
15050IFa%(17)<>0THENPROCi(17,21.4*qa%*eb%,15.4*eb%,0,0):!q%=a%(17):PROCr(q%)ELSEPROCl(0,17):PROCi(17,21.4*qa%*eb%,15.4*eb%,0,0)
15060ELSE:PROCq("Nothing to print."):PROCg(17)
15070ENDIF
15080ENDPROC
15090DEFPROCja:SYS131080,5,"<Investor$Dir>.!Choices"TORh%:CASERh%OF
15100WHEN0:PROCCc
15110WHEN1:PROCDc
15120ENDCASE
15130Sh%=Kd%:Th%=Ld%:IFKd%=3THENKd%=2
15140IFLd%=12THENLd%=Uh%
15150PROCEc:Kd%=Sh%:Ld%=Th%:uf%=Kd%:tf%=Ld%:Rd%=dc%:Sd%=Zb%:Td%=Cf%:Ud%=tb%:Vd%=sd%:Wd%=td%:Xd%=ud%:Yd%=vd%:ENDPROC
15160DEFPROCCc:Kd%=0:Ld%=0:dc%=TRUE:Zb%=FALSE:Cf%=FALSE:tb%=FALSE:sd%=2:td%=2:ud%=2:vd%=2:PROCMb:ENDPROC
15170DEFPROCMb:FORyg%=0TO5:g%(yg%)=7:NEXT:g%(6)=11:g%(7)=7:g%(8)=15:g%(9)=8:g%(10)=12:g%(11)=10:g%(12)=13:PROCNb:ENDPROC
15180DEFPROCNb:FORyg%=0TO12:f%(yg%)=g%(yg%):NEXT:ENDPROC
15190DEFPROCLb:FORyg%=0TO12:PROCFc(yg%):NEXT:ENDPROC
15200DEFPROCKb:FORyg%=0TO12:g%(yg%)=f%(yg%):NEXT:ENDPROC
15210DEFPROCDc:X%=OPENUP("<Investor$Dir>.!Choices"):INPUT#X%,Kd%,Ld%:INPUT#X%,dc%,Zb%,Cf%,tb%:INPUT#X%,sd%,td%,ud%,vd%:FORyg%=0TO12:INPUT#X%,f%(yg%):NEXT:CLOSE#X%:PROCKb:ENDPROC
15220DEFPROCfb:X%=OPENOUT("<Investor$Dir>.!Choices"):PRINT#X%,Kd%,Ld%:PRINT#X%,dc%,Zb%,Cf%,tb%:PRINT#X%,sd%,td%,ud%,vd%:FORyg%=0TO12:PRINT#X%,f%(yg%):NEXT:CLOSE#X%:OSCLI("SETTYPE <Investor$Dir>.!Choices FFF"):ENDPROC
15230DEFPROCeb:Kd%=uf%:Ld%=tf%:dc%=Rd%:Zb%=Sd%:Cf%=Td%:tb%=Ud%:sd%=Vd%:td%=Wd%:ud%=Xd%:vd%=Yd%:IFNOTtb%ANDub%<>-1THENPROCK(ub%)
15240PROCdc:ENDPROC
15250DEFPROCdb:uf%=Kd%:tf%=Ld%:$FNt(18,7)=FNC(Ld%):PROCj(18,7):$FNt(18,10)=FND(Kd%):PROCj(18,10):IFRd%ANDNOTdc%THENPROCC(18,12):Rd%=FALSE
15260IFNOTRd%ANDdc%THENPROCe(18,12):Rd%=TRUE
15270IFSd%ANDNOTZb%THENPROCC(18,13):Sd%=FALSE
15280IFNOTSd%ANDZb%THENPROCe(18,13):Sd%=TRUE
15290IFTd%ANDNOTCf%THENPROCC(18,14):Td%=FALSE
15300IFNOTTd%ANDCf%THENPROCe(18,14):Td%=TRUE
15310IFUd%ANDNOTtb%THENPROCC(18,15):Ud%=FALSE
15320IFNOTUd%ANDtb%THENPROCe(18,15):Ud%=TRUE
15330IFsd%<>Vd%THENPROCC(18,16+Vd%):PROCe(18,16+sd%):Vd%=sd%
15340IFtd%<>Wd%THENPROCC(18,20+Wd%):PROCe(18,20+td%):Wd%=td%
15350IFud%<>Xd%THENPROCC(18,24+Xd%):PROCe(18,24+ud%):Xd%=ud%
15360IFvd%<>Yd%THENPROCC(18,28+Yd%):PROCe(18,28+vd%):Yd%=vd%
15370ENDPROC
15380DEFPROCsb(Vh%):!q%=Vh%:SYS262354,,q%:ENDPROC
15390DEFPROCgb:IFZd%=1THEN_d%=TRUE:PROCDa(15,10):PROCDa(15,14)ELSE_d%=FALSE:PROCEa(15,10):PROCEa(15,14)
15400ENDPROC
15410DEFPROCEc:La%=Kd%:Ba%=Ld%:Ca%=Ld%:Ea%=Kd%:Da%=Ld%:Fa%=Kd%:Ma%=Kd%:Na%=Kd%:ee%=Kd%:fe%=Kd%:le%=Ld%:ne%=Ld%:ke%=Kd%:me%=Kd%:Dc%=Ld%:te%=Ld%:Cc%=Kd%:se%=Kd%:be%=Ld%:ae%=Kd%:ENDPROC
15420DEFPROCtb:IF(b%AND4)=0THENWh%=1ELSEWh%=-1
15430CASEM%OF
15440WHEN31:ge%+=Wh%:ge%=FNj(ge%)
15450WHEN33:ge%-=Wh%:ge%=FNj(ge%)
15460WHEN39:he%+=Wh%:he%=FNj(he%)
15470WHEN37:he%-=Wh%:he%=FNj(he%)
15480WHEN24:ee%+=Wh%
15490WHEN20:ee%-=Wh%
15500WHEN6:fe%+=Wh%
15510WHEN14:fe%-=Wh%
15520ENDCASE
15530PROC`b:ENDPROC
15540DEFPROC`b:IFge%=-1THENge%+=6
15550IFge%=6THENge%-=6
15560IFhe%=-1THENhe%+=6
15570IFhe%=6THENhe%-=6
15580IFee%=-1THENee%+=3
15590IFee%=3THENee%-=3
15600IFfe%=-1THENfe%+=3
15610IFfe%=3THENfe%-=3
15620ENDPROC
15630DEFPROCJ(Xh%):CASEXh%OF
15640WHEN32:$FNt(35,32)=a$(ge%)
15650WHEN38:$FNt(35,38)=a$(he%)
15660WHEN18:$FNt(35,18)=FNl(ee%)
15670WHEN9:$FNt(35,9)=FNl(fe%)
15680ENDCASE
15690PROCj(35,Xh%):ENDPROC
15700DEFPROCO:IF(b%AND4)=0THENYh%=1ELSEYh%=-1
15710CASEM%OF
15720WHEN31:oe%+=Yh%:oe%=FNj(oe%)
15730WHEN33:oe%-=Yh%:oe%=FNj(oe%)
15740WHEN39:pe%+=Yh%:pe%=FNj(pe%)
15750WHEN37:pe%-=Yh%:pe%=FNj(pe%)
15760WHEN24:le%+=Yh%
15770WHEN20:le%-=Yh%
15780WHEN6:ne%+=Yh%
15790WHEN14:ne%-=Yh%
15800WHEN23:ke%+=Yh%
15810WHEN19:ke%-=Yh%
15820WHEN43:me%+=Yh%
15830WHEN42:me%-=Yh%
15840ENDCASE
15850PROCac:ENDPROC
15860DEFPROCac:IFoe%=-1THENoe%+=6
15870IFoe%=6THENoe%-=6
15880IFpe%=-1THENpe%+=6
15890IFpe%=6THENpe%-=6
15900IFle%=-1THENle%+=12
15910IFle%=12THENle%-=12
15920IFne%=-1THENne%+=12
15930IFne%=12THENne%-=12
15940IFke%=-1THENke%+=3
15950IFke%=3THENke%-=3
15960IFme%=-1THENme%+=3
15970IFme%=3THENme%-=3
15980ENDPROC
15990DEFPROCw(Zh%):CASEZh%OF
16000WHEN32:$FNt(34,32)=a$(oe%)
16010WHEN38:$FNt(34,38)=a$(pe%)
16020WHEN18:$FNt(34,18)=FNg(le%)
16030WHEN9:$FNt(34,9)=FNg(ne%)
16040WHEN22:$FNt(34,22)=FNl(ke%)
16050WHEN10:$FNt(34,10)=FNl(me%)
16060ENDCASE
16070PROCj(34,Zh%):ENDPROC
16080DEFPROCP:IF(b%AND4)=0THEN_h%=1ELSE_h%=-1
16090CASEM%OF
16100WHEN31:Fc%+=_h%:Fc%=FNj(Fc%)
16110WHEN33:Fc%-=_h%:Fc%=FNj(Fc%)
16120WHEN39:ue%+=_h%:ue%=FNj(ue%)
16130WHEN37:ue%-=_h%:ue%=FNj(ue%)
16140WHEN24:Dc%+=_h%
16150WHEN20:Dc%-=_h%
16160WHEN6:te%+=_h%
16170WHEN14:te%-=_h%
16180WHEN23:Cc%+=_h%
16190WHEN19:Cc%-=_h%
16200WHEN43:se%+=_h%
16210WHEN42:se%-=_h%
16220ENDCASE
16230PROCbc:ENDPROC
16240DEFPROCbc:IFFc%=-1THENFc%+=6
16250IFFc%=6THENFc%-=6
16260IFue%=-1THENue%+=6
16270IFue%=6THENue%-=6
16280IFDc%=-1THENDc%+=12
16290IFDc%=12THENDc%-=12
16300IFte%=-1THENte%+=12
16310IFte%=12THENte%-=12
16320IFCc%=-1THENCc%+=3
16330IFCc%=3THENCc%-=3
16340IFse%=-1THENse%+=3
16350IFse%=3THENse%-=3
16360ENDPROC
16370DEFPROCx(`h%):CASE`h%OF
16380WHEN32:$FNt(36,32)=a$(Fc%):PROCGc:!q%=a%(37):PROCr(q%):IFDf%THEN
16390IFEf%>6THENPROCi(37,40+40*Ef%,380,0,0)ELSEPROCi(37,308,380,0,0)
16400ENDIF
16410WHEN38:$FNt(36,38)=a$(ue%)
16420WHEN18:$FNt(36,18)=FNg(Dc%):PROCGc:!q%=a%(37):PROCr(q%):IFDf%THEN
16430IFEf%>6THENPROCi(37,40+40*Ef%,380,0,0)ELSEPROCi(37,308,380,0,0)
16440ENDIF
16450WHEN9:$FNt(36,9)=FNg(te%)
16460WHEN22:$FNt(36,22)=FNl(Cc%):PROCGc:!q%=a%(37):PROCr(q%):IFDf%THEN
16470IFEf%>6THENPROCi(37,40+40*Ef%,380,0,0)ELSEPROCi(37,308,380,0,0)
16480ENDIF
16490WHEN10:$FNt(36,10)=FNl(se%)
16500ENDCASE
16510PROCj(36,`h%):ENDPROC
16520DEFPROCGc:Ef%=n%(Fc%,(Cc%*12)+Dc%)-1:IFEf%>-1THENPROCcc
16530ENDPROC
16540DEFPROCpb:IF(b%AND4)=0THENai%=1ELSEai%=-1
16550CASEM%OF
16560WHEN6:Ca%+=ai%
16570WHEN14:Ca%-=ai%
16580WHEN7:Ea%+=ai%
16590WHEN8:Ea%-=ai%
16600WHEN20:Da%+=ai%
16610WHEN23:Da%-=ai%
16620WHEN22:Fa%+=ai%
16630WHEN24:Fa%-=ai%
16640ENDCASE
16650PROCHc:ENDPROC
16660DEFPROCHc:IFCa%=-1THENCa%+=12
16670IFCa%=12THENCa%-=12
16680IFEa%=-1THENEa%+=3
16690IFEa%=3THENEa%-=3
16700IFDa%=-1THENDa%+=12
16710IFDa%=12THENDa%-=12
16720IFFa%=-1THENFa%+=3
16730IFFa%=3THENFa%-=3
16740ENDPROC
16750DEFPROCH(bi%):CASEbi%OF
16760WHEN9:$FNt(8,9)=FNg(Ca%)
16770WHEN10:$FNt(8,10)=FNl(Ea%)
16780WHEN18:$FNt(8,18)=FNg(Da%)
16790WHEN19:$FNt(8,19)=FNl(Fa%)
16800ENDCASE
16810PROCj(8,bi%):ENDPROC
16820DEFPROCqb:IF(b%AND4)=0THENci%=1ELSEci%=-1
16830CASEM%OF
16840WHEN6:Ma%+=ci%
16850WHEN14:Ma%-=ci%
16860WHEN11:Na%+=ci%
16870WHEN10:Na%-=ci%
16880ENDCASE
16890PROCIc:ENDPROC
16900DEFPROCIc:IFMa%=3THENMa%-=3
16910IFMa%=-1THENMa%+=3
16920IFNa%=3THENNa%-=3
16930IFNa%=-1THENNa%+=3
16940ENDPROC
16950DEFPROCU(di%):CASEdi%OF
16960WHEN9:$FNt(7,9)=FNl(Ma%)
16970WHEN8:$FNt(7,8)=FNl(Na%)
16980ENDCASE
16990PROCj(7,di%):ENDPROC
17000DEFPROCnb:IF(b%AND4)=0THENei%=1ELSEei%=-1
17010CASEM%OF
17020WHEN3:Ba%+=ei%
17030WHEN6:Ba%-=ei%
17040ENDCASE
17050PROCJc:ENDPROC
17060DEFPROCJc:IFBa%=-1THENBa%+=12
17070IFBa%=12THENBa%-=12
17080ENDPROC
17090DEFPROCob:$FNt(20,5)=FNg(Ba%):PROCj(20,5):ENDPROC
17100DEFPROCkb:IF(b%AND4)=0THENfi%=1ELSEfi%=-1
17110CASEM%OF
17120WHEN3:La%+=fi%
17130WHEN6:La%-=fi%
17140ENDCASE
17150PROCKc:ENDPROC
17160DEFPROCKc:IFLa%=-1THENLa%+=3
17170IFLa%=3THENLa%-=3
17180ENDPROC
17190DEFPROClb:$FNt(19,5)=FNl(La%):PROCj(19,5):ENDPROC
17200DEFPROChb:IF(b%AND4)=0gi%=1ELSEgi%=-1
17210CASEM%OF
17220WHEN11:be%+=gi%
17230WHEN13:be%-=gi%
17240WHEN15:ae%+=gi%
17250WHEN17:ae%-=gi%
17260ENDCASE
17270PROCLc:ENDPROC
17280DEFPROCLc:IFbe%=-1THENbe%+=12
17290IFbe%=12THENbe%-=12
17300IFae%=-1THENae%+=3
17310IFae%=3THENae%-=3
17320ENDPROC
17330DEFPROCib(hi%):CASEhi%OF
17340WHEN12:$FNt(15,12)=FNg(be%)
17350WHEN16:$FNt(15,16)=FNl(ae%)
17360ENDCASE
17370PROCj(15,hi%):ENDPROC
17380DEFPROCJb(ii%,ji%,c%):IF(b%AND4)=0ANDji%=1ANDc%=1THENji%=-1
17390IF(b%AND4)=0ANDji%=-1ANDc%=0THENji%=1
17400g%(ii%)+=ji%:IFg%(ii%)=16THENg%(ii%)=0
17410IFg%(ii%)=-1THENg%(ii%)=15
17420PROCFc(ii%):ENDPROC
17430DEFPROCFc(n%):$FNt(13,28+n%)=STR$(g%(n%)):PROCj(13,28+n%):PROCFa(41+n%,g%(n%)):ENDPROC
17440DEFPROCvb:IF(b%AND4)=0THENki%=10ELSEki%=-10
17450CASEM%OF
17460WHEN8:Ua%=VAL($(FNt(31,7)))-ki%
17470WHEN9:Ua%=VAL($(FNt(31,7)))+ki%
17480WHEN3:Ua%=VAL($(FNt(31,7))):IF(b%AND4)=0THENTa%=VAL($(FNt(31,5)))+Ua%ELSETa%=VAL($(FNt(31,5)))-Ua%
17490WHEN6:Ua%=VAL($(FNt(31,7))):IF(b%AND4)=0THENTa%=VAL($(FNt(31,5)))-Ua%ELSETa%=VAL($(FNt(31,5)))+Ua%
17500ENDCASE
17510ENDPROC
17520DEFPROCwb(li%):@%=0:CASEli%OF
17530WHEN5:$FNt(31,5)=STR$(Ta%)
17540WHEN7:$FNt(31,7)=STR$(Ua%)
17550ENDCASE
17560PROCj(31,li%):ENDPROC
17570DEFPROCxb:IF(b%AND4)=0THENLa=0.01ELSELa=-0.01
17580CASEM%OF
17590WHEN8:D=VAL($(FNt(32,7)))-La
17600WHEN9:D=VAL($(FNt(32,7)))+La
17610WHEN3:D=VAL($(FNt(32,7))):IF(b%AND4)=0THENI=VAL($(FNt(32,5)))+DELSEI=VAL($(FNt(32,5)))-D
17620WHEN6:D=VAL($(FNt(32,7))):IF(b%AND4)=0THENI=VAL($(FNt(32,5)))-DELSEI=VAL($(FNt(32,5)))+D
17630ENDCASE
17640ENDPROC
17650DEFPROCyb(mi%):PROCy(2):CASEmi%OF
17660WHEN5:$FNt(32,5)=STR$(I)
17670WHEN7:$FNt(32,7)=STR$(D)
17680ENDCASE
17690PROCj(32,mi%):@%=0:ENDPROC
17700DEFPROCzb:IF(b%AND4)=0THENMa=0.01ELSEMa=-0.01
17710CASEM%OF
17720WHEN8:E=VAL($(FNt(33,7)))-Ma
17730WHEN9:E=VAL($(FNt(33,7)))+Ma
17740WHEN3:E=VAL($(FNt(33,7))):IF(b%AND4)=0THENH=VAL($(FNt(33,5)))+EELSEH=VAL($(FNt(33,5)))-E
17750WHEN6:E=VAL($(FNt(33,7))):IF(b%AND4)=0THENH=VAL($(FNt(33,5)))-EELSEH=VAL($(FNt(33,5)))+E
17760ENDCASE
17770ENDPROC
17780DEFPROCAb(ni%):PROCy(3):CASEni%OF
17790WHEN5:$FNt(33,5)=STR$(H)
17800WHEN7:$FNt(33,7)=STR$(E)
17810ENDCASE
17820PROCj(33,ni%):@%=0:ENDPROC
17830DEFPROCEb:IF(b%AND4)=0THENoi%=1ELSEoi%=-1
17840CASEM%OF
17850WHEN5:Ra%+=oi%
17860WHEN7:Ra%-=oi%
17870WHEN8:Sa%+=oi%
17880WHEN10:Sa%-=oi%
17890ENDCASE
17900PROCMc:ENDPROC
17910DEFPROCMc:IFRa%=-1THENRa%+=12
17920IFRa%=12THENRa%-=12
17930IFSa%=-1THENSa%+=3
17940IFSa%=3THENSa%-=3
17950ENDPROC
17960DEFPROCW(pi%):CASEpi%OF
17970WHEN6:$FNt(22,6)=FNg(Ra%)
17980WHEN9:$FNt(22,9)=FNl(Sa%)
17990ENDCASE
18000PROCj(22,pi%):ENDPROC
18010DEFPROCGb:IF(b%AND4)=0THENqi%=1ELSEqi%=-1
18020CASEM%OF
18030WHEN5:kb%+=qi%
18040WHEN7:kb%-=qi%
18050WHEN8:lb%+=qi%
18060WHEN10:lb%-=qi%
18070ENDCASE
18080PROCNc:ENDPROC
18090DEFPROCNc:IFkb%=-1THENkb%+=12
18100IFkb%=12THENkb%-=12
18110IFlb%=-1THENlb%+=3
18120IFlb%=3THENlb%-=3
18130ENDPROC
18140DEFPROCX(ri%):CASEri%OF
18150WHEN6:$FNt(40,6)=FNg(kb%)
18160WHEN9:$FNt(40,9)=FNl(lb%)
18170ENDCASE
18180PROCj(40,ri%):ENDPROC
18190DEFPROCHb:IF(b%AND4)=0THENsi%=1ELSEsi%=-1
18200CASEM%OF
18210WHEN6:ib%+=si%
18220WHEN7:ib%-=si%
18230WHEN10:jb%+=si%
18240WHEN8:jb%-=si%
18250ENDCASE
18260PROCOc:ENDPROC
18270DEFPROCOc:IFib%=-1THENib%+=12
18280IFib%=-2THENib%+=13
18290IFib%=12THENib%-=12
18300IFjb%=-1THENjb%+=3
18310IFjb%=-2THENjb%+=4
18320IFjb%=3THENjb%-=3
18330ENDPROC
18340DEFPROCIb(ti%):CASEti%OF
18350WHEN5:$FNt(12,5)=FNg(ib%)
18360WHEN9:$FNt(12,9)=FNl(jb%)
18370ENDCASE
18380PROCj(12,ti%):ENDPROC
18390DEFPROCfa:!q%=1:SYS7,14,q%:Uh%=VAL(STR$~(q%?1))-1:Z%=VAL(MID$(TIME$,12,4)):ENDPROC
18400DEFFNK(r%):@%=0:t%=r%:FORi%=0TO5:IFa$(i%)<>STR$(N%)THEN
18410t%-=1:IFt%=-1THEN=i%
18420ENDIF
18430NEXT:=0
18440DEFPROCSb(e%):IFc%(e%)=1THENc%(e%)=0:PROCg(e%)ELSEd%(e%)=FNx(Kd%,Ld%):c%(e%)=1:PROCf(e%):PROCl(0,e%):PROCI(e%)
18450ENDPROC
18460DEFPROCrb:$FNt(21,6)="":$FNt(21,11)="":$FNt(21,12)="":$FNt(21,14)="":q%!0=a%(21):q%!4=6:SYS262354,,q%:PROCj(21,6):PROCj(21,11):PROCj(21,12):PROCj(21,14):ENDPROC
18470DEFPROCQa:IF($(FNt(21,6)))=""THENPROCq("Bad stock name."):ENDPROC
18480ui%=g%:g%=Gb%:PROCp:vi%=n%(g%,d%(g%)):s%(g%,d%(g%))=FNk(s%(g%,d%(g%)),36,T%):IFNOTT%THENENDPROC
18490$(s%(g%,d%(g%))+36*vi%)=($(FNt(21,6)))+"0":!(s%(g%,d%(g%))+36*vi%+24)=VAL($(FNt(21,11))):!(s%(g%,d%(g%))+36*vi%+28)=VAL($(FNt(21,12)))*1000:!(s%(g%,d%(g%))+36*vi%+32)=VAL($(FNt(21,14)))*1000:n%(g%,d%(g%))+=1:!q%=a%(g%):h%(g%)=TRUE:PROCI(g%):PROCD
18500IFkf%=0THEN
18510FORAb%=0TO5:IFa%(Ab%)<>0!q%=a%(Ab%):PROCr(q%)
18520NEXT
18530ENDIF
18540IFa%(37)<>0!q%=a%(37):PROCr(q%)
18550g%=ui%:ENDPROC
18560DEFPROCp:e%(g%)=TRUE:PROCjc:ENDPROC
18570DEFPROCjc:IFe%(g%)THENg$=" *"ELSEg$=""
18580IFa%(g%)<>0THENPROCv(g%,a$(g%)+g$,1)
18590ENDPROC
18600DEFPROCic(wi%):IFwi%=oe%ANDa%(34)<>0THEN$FNt(34,32)=a$(oe%):PROCj(34,32)
18610IFwi%=pe%ANDa%(34)<>0THEN$FNt(34,38)=a$(pe%):PROCj(34,38)
18620IFwi%=ge%ANDa%(35)<>0THEN$FNt(35,32)=a$(ge%):PROCj(35,32)
18630IFwi%=he%ANDa%(35)<>0THEN$FNt(35,38)=a$(he%):PROCj(35,38)
18640IFwi%=Fc%ANDa%(36)<>0THEN$FNt(36,32)=a$(Fc%):PROCj(36,32)
18650IFwi%=ue%ANDa%(36)<>0THEN$FNt(36,38)=a$(ue%):PROCj(36,38)
18660ENDPROC
18670DEFPROCc(a%,b%,c%):PROCt(a%,b%,c%,LEFT$(FNb(a%,b%,c%))+"1"):ENDPROC
18680DEFPROCRa:IFjb%*12+ib%<>!(b%(I%)+36*gb%+24)AND!(b%(I%)+36*gb%+24)<>-1THEN
18690SYS263872:b%(I%)=FNk(b%(I%),36,T%):IFNOTT%THENENDPROC
18700FORxi%=v%(I%)TOgb%+1STEP-1:$(b%(I%)+36*xi%+36)=$(b%(I%)+36*xi%):!(b%(I%)+36*xi%+60)=!(b%(I%)+36*xi%+24):!(b%(I%)+36*xi%+64)=!(b%(I%)+36*xi%+28):!(b%(I%)+36*xi%+68)=!(b%(I%)+36*xi%+32):NEXT:$(b%(I%)+36*gb%+36)=$(b%(I%)+36*gb%)
18710!(b%(I%)+36*gb%+60)=jb%*12+ib%:!(b%(I%)+36*gb%+64)=VAL($FNt(12,13))*1000:!(b%(I%)+36*gb%+68)=VAL($FNt(12,15))*1000:v%(I%)+=1:!q%=a%(41):PROCr(q%):IFv%(I%)>5THENPROCi(41,254+(40*v%(I%)),1236,0,0)
18720SYS263873
18730ELSE:!(b%(I%)+36*gb%+24)=jb%*12+ib%:!(b%(I%)+36*gb%+28)=VAL($FNt(12,13))*1000:!(b%(I%)+36*gb%+32)=VAL($FNt(12,15))*1000:PROC_(gb%)
18740ENDIF
18750ENDPROC
18760DEFPROCGa:LOCALyi%,zi%,Ai%:yi%=Y%:zi%=d%(g%):Ai%=g%:IFCf%THEN
18770LOCALBi%,X$:Bi%=d%(g%):X$=LEFT$(FNb(yi%,zi%,Ai%)):FORCi%=0TO5:FORDi%=0TOn%(Ci%,Bi%)
18780IFLEFT$(FNb(Di%,Bi%,Ci%))=X$THENPROCs(Di%,Bi%,Ci%,FNc(yi%,zi%,Ai%)):PROCc(Di%,Bi%,Ci%):PROCPc:PROCQc(Ci%)
18790NEXT:NEXT
18800ENDIF
18810IFZa%>-1ANDa%(28)>0THEN
18820IFZa%=Ai%ANDLEFT$(FNb(Xa%,Ya%,Za%))=LEFT$(FNb(yi%,zi%,Ai%))THENPROCec(Wa%):PROCRc:!q%=a%(28):PROCr(q%):PROCSc(1)
18830ENDIF
18840IFQ%>-1ANDa%(38)>0THEN
18850IFQ%=Ai%ANDLEFT$(FNb(Hg%,Ig%,Q%))=LEFT$(FNb(yi%,zi%,Ai%))THENPROCvc(Hg%,Ig%,Q%):!q%=a%(38):PROCr(q%):PROCSc(2)
18860ENDIF
18870ENDPROC
18880DEFPROCSc(c%):IFc%=Ic%ANDa%(39)<>0THEN!q%=a%(39):PROCr(q%)
18890ENDPROC
18900DEFPROCRc:IFl%>0THENl%-=1
18910ENDPROC
18920DEFPROCQc(Ei%):IFa%(Ei%)<>0THEN
18930Fi%=g%:g%=Ei%:PROCp:g%=Fi%
18940ELSE:e%(Ei%)=TRUE
18950ENDIF
18960ENDPROC
18970DEFPROCPc:IFc%(Ci%)=1ANDd%(Ci%)=d%(g%)THENPROCN(Di%,Ci%)
18980ENDPROC
18990DEFFNg(Gi%):CASEGi%MOD12OF
19000WHEN0:="January"
19010WHEN1:="February"
19020WHEN2:="March"
19030WHEN3:="April"
19040WHEN4:="May"
19050WHEN5:="June"
19060WHEN6:="July"
19070WHEN7:="August"
19080WHEN8:="September"
19090WHEN9:="October"
19100WHEN10:="November"
19110WHEN11:="December"
19120ENDCASE
19130=""
19140DEFFNl(Gi%):CASEGi%MOD3OF
19150WHEN0:=STR$(Z%-2)
19160WHEN1:=STR$(Z%-1)
19170WHEN2:=STR$(Z%)
19180ENDCASE
19190=""
19200DEFFNC(Gi%):CASEGi%OF
19210WHEN0:="January"
19220WHEN1:="February"
19230WHEN2:="March"
19240WHEN3:="April"
19250WHEN4:="May"
19260WHEN5:="June"
19270WHEN6:="July"
19280WHEN7:="August"
19290WHEN8:="September"
19300WHEN9:="October"
19310WHEN10:="November"
19320WHEN11:="December"
19330WHEN12:="Current month"
19340ENDCASE
19350=""
19360DEFFND(Gi%):CASEGi%OF
19370WHEN0:=STR$(Z%-2)
19380WHEN1:=STR$(Z%-1)
19390WHEN2:=STR$(Z%)
19400WHEN3:="Current year"
19410ENDCASE
19420=""
19430DEFFNq(Gi%):CASEGi%DIV12OF
19440WHEN0:=STR$(Z%-2)
19450WHEN1:=STR$(Z%-1)
19460WHEN2:=STR$(Z%)
19470ENDCASE
19480=""
19490DEFFNJ(Gi%):CASEGi%MOD3OF
19500WHEN0:=0
19510WHEN1:=12
19520WHEN2:=24
19530ENDCASE
19540=0
19550DEFFNx(y%,m%):IFy%=3THENy%-=1
19560IFm%=12THENHi%=(y%*12)+Uh%ELSEHi%=(y%*12)+m%
19570=Hi%
19580DEFFNE:Ii%=TRUE:CASEIc%OF
19590WHEN1:IFu=vANDu=0THENIi%=FALSE
19600WHEN2:IFC=GANDC=0THENIi%=FALSE
19610ENDCASE
19620=Ii%
19630DEFFNu:CASEMc%OF
19640WHEN0:CASEYc%OF
19650WHEN0:="2D Chart"
19660WHEN1:="3D Chart"
19670ENDCASE
19680WHEN1:="Graph"
19690ENDCASE
19700=""
19710DEFFNn:CASEMc%OF
19720WHEN0:CASEYc%OF
19730WHEN0:=U%
19740WHEN1:=FNf(120)
19750ENDCASE
19760WHEN1:=U%
19770ENDCASE
19780=0
19790DEFFNo:CASEMc%OF
19800WHEN0:CASEYc%OF
19810WHEN0:=0
19820WHEN1:=FNf(226)
19830ENDCASE
19840WHEN1:=0
19850ENDCASE
19860=0
19870DEFFNy:FORJi%=0TO5:IFNOTh%(Ji%)THEN=Ji%
19880NEXT:=6
19890DEFFNi(Ch%):CASEf%(Ch%)OF
19900WHEN0:=-256
19910WHEN1:=&DDDDDD00
19920WHEN2:=&BBBBBB00
19930WHEN3:=&99999900
19940WHEN4:=&77777700
19950WHEN5:=&55555500
19960WHEN6:=858993408
19970WHEN7:=0
19980WHEN8:=&99440000
19990WHEN9:=&EEEE00
20000WHEN10:=&CC0000
20010WHEN11:=56576
20020WHEN12:=&BBEEEE00
20030WHEN13:=8934656
20040WHEN14:=&BBFF00
20050WHEN15:=-4521984
20060ENDCASE
20070=0
20080DEFFNA(yf%):SYS262357,,yf%,q%,STRING$(200," ")TO,,,a$:=a$
20090DEFFNv(Na):=INT(Na+0.5)
20100DEFFNj(k%):IFk%=6THENk%=0
20110IFk%=-1THENk%=5
20120IFa$(k%)=STR$(N%)THENHi%=FNj(k%+1)ELSEHi%=k%
20130=Hi%
20140DEFFNL(k$):IFFNr(k$)="(Regular)"THENY$=MID$(k$,0,LEN(k$)-LEN(FNr(k$))-1)ELSEY$=k$
20150=Y$
20160DEFPROCqa:SYS6,106,1:Jb%=FALSE:ENDPROC
20170DEFPROCTa:SYS262377,36,1,"ptr_stock",2,15,6,0,0:Jb%=TRUE:ENDPROC
20180DEFPROCcc:PROCE(Hc%):Hc%=FNk(Hc%,Ef%+1,T%):IFNOTT%THENENDPROC
20190FORi%=0TOEf%:Hc%?i%=0:NEXT:ENDPROC
20200DEFPROCTb:Ki%=e%(0)+e%(1)+e%(2)+e%(3)+e%(4)+e%(5):IFKi%<0THENPROCS(0,"Investor contains unsaved data: are you sure you want to quit?","Quit")ELSEPROCBb
20210ENDPROC
20220DEFPROCxa:Ki%=e%(0)+e%(1)+e%(2)+e%(3)+e%(4)+e%(5):IFKi%<0THEN
20230!q%=20:q%!12=wa%:SYS262375,19,q%:PROCS(0,"Investor contains unsaved data: are you sure you want to quit?","Quit")
20240ELSE:PROCBb
20250ENDIF
20260ENDPROC
20270DEFPROCWb:IFe%(g%)<0THEN
20280PROCS(1,"The current portfolio contains unsaved data: are you sure you want to clear the current portfolio?","Clear")
20290ELSE:PROCB(3,g%)
20300ENDIF
20310ENDPROC
20320DEFPROCXb:IFe%(g%)<0THEN
20330PROCS(2,"The current portfolio contains unsaved data: are you sure you want to delete the current portfolio?","Delete")
20340ELSE:PROCCb
20350ENDIF
20360ENDPROC
20370DEFPROCS(Li%,fa$,ga$):xe%=FALSE:we%=Li%:PROCf(14):$FNt(14,1)=fa$:$FNt(14,0)=ga$:SYS262356,,a%(14),ua%*0.5-369,ta%*0.5+134:ENDPROC
20380DEFPROCTc:PROCh:xe%=FALSE:PROCf(43):!G%=a%(43):$FNt(43,0)="Investor: printing page 1 (Copy 1)":SYS262347,,G%:G%!4=0.5*(ua%-FNG):G%!8=0.5*(ta%-FNH):G%!12=G%!4+FNG:G%!16=G%!8+FNH:IFG%!32AND65536THENG%!28=-1
20390SYS262341,,G%:ENDPROC
20400DEFFNG:!q%=a%(43):SYS262347,,q%:=(q%!12-q%!4)
20410DEFFNH:!q%=a%(43):SYS262347,,q%:=(q%!16-q%!8)
20420DEFPROCZb:SYS524608TO,,,,Z$:jd%=g%:IFa%(16)=0THEN
20430PROCl(0,16):PROCf(15):CASEZd%OF
20440WHEN0:PROCe(15,3):PROCgb
20450WHEN1:PROCe(15,7):PROCgb
20460ENDCASE
20470be%=d%(g%)MOD12:ae%=d%(g%)DIV12:PROCib(12):PROCib(16):PROCe(15,22+(3*od%)):$FNt(15,34)=FNN:!q%=a%(16):SYS262347,,q%:PROCna
20480ELSE:PROCl(0,16):PROCna
20490ENDIF
20500ENDPROC
20510DEFFNN:SYS524608TO,,,,Z$:=Z$
20520DEFPROCUc(ha$,Mi%,Ni%):SYS524617,Mi%:SYS524613,Ni%:CLOSE#Mi%:SYS263873:$(da%+4)=ha$+CHR$(0):SYS262367,da%,1,"Investor"TO,rg%:eb%=Oi%:la%=FALSE:id%=FALSE:ENDPROC
20530DEFPROCVc(Lc%,Pi%):LOCALx%,y%:!q%=a%(17):PROCUa(q%):j%=0:E%=0:Qi%=0:Ri%=100:Si%=100:Ti%=0:sa%=1:pa%=Qh%:SYS524611TO,,,Ui%,Vi%,Wi%,Xi%:x%=Wi%-Ui%:Ui%+=x%*(Qi%*0.01):Wi%=Ui%+x%*(Ri%*0.01):Oa=((Wi%-Ui%)*0.0025)/Lc%:y%=Xi%-Vi%
20540Xi%-=y%*(Ti%*0.01):Vi%=Xi%-y%*(Si%*0.01):Pa=((Xi%-Vi%)*0.0025)/Pi%:ENDPROC
20550DEFPROChc:LOCALLb%,Lc%,Pi%:Lb%=a%(17):na%=1:ma%=`d%:oa%=1:Lc%=1540:Pi%=2140:la%=TRUE:PROCTc:PROCVc(Lc%,Pi%):ENDPROC
20560DEFPROCma(Yi%):LOCALq%,Nb%,Ni%,Lb%:LOCALERROR:!q%=a%(17):PROCUa(q%):j%=0:E%=0:id%=TRUE:ed%=TRUE:SYS263872:Mi%=OPENOUT("printer:"):SYS524613,Mi%,"Investor"TONi%:ONERRORLOCAL:PROCUc(REPORT$,Mi%,Ni%):na%=1000:ENDPROC
20570q%=FNO(17):q%!44=0:q%!48=-(2140*Yi%):q%!52=1540:q%!56=2140:q%!60=Oa*(1<<16):q%!64=0:q%!68=0:q%!72=Pa*(1<<16):q%!76=Ui%:q%!80=Vi%:SYS524619,!q%,q%+44,q%+60,q%+76,-1:SYS524620,1,q%+4,0,0TONb%,,Lb%:WHILENb%:q%!20=q%!4:q%!24=q%!16
20580q%!28=q%!4:q%!32=q%!8:q%!36=q%!12:q%!40=q%!16:Oi%=eb%:eb%=100:PROC_a:eb%=Oi%:SYS524621,,q%+4TONb%,,Lb%:ENDWHILE:SYS524616,Mi%:SYS524613,Ni%:CLOSE#Mi%:id%=FALSE:SYS263873:ENDPROC
20590DEFFNO(n%):!G%=a%(n%):SYS262348,,G%:=G%
20600DEFFNb(a%,b%,c%):=$(s%(c%,b%)+36*a%)
20610DEFFNa(a%,b%,c%):=!(s%(c%,b%)+36*a%+24)
20620DEFFNd(a%,b%,c%):=!(s%(c%,b%)+36*a%+28)*0.001
20630DEFFNc(a%,b%,c%):=!(s%(c%,b%)+36*a%+32)*0.001
20640DEFPROCt(a%,b%,c%,d$):$(s%(c%,b%)+36*a%)=d$:ENDPROC
20650DEFPROCz(a%,b%,c%,d%):!(s%(c%,b%)+36*a%+24)=d%:ENDPROC
20660DEFPROCA(a%,b%,c%,d):!(s%(c%,b%)+36*a%+28)=d*1000:ENDPROC
20670DEFPROCs(a%,b%,c%,d):!(s%(c%,b%)+36*a%+32)=d*1000:ENDPROC
�><Investor$Dir>.!RunImage
��aa:�
�_$="1.10 (01-Jul-94)":ș16�e$:aa%=�e$,"""",�e$,"""")+1):e$=�e$,aa%+1):ȕ�e$,1)=" ":e$=�e$,2):�:�q%1280,ba%256,ca%32,G%1280,da%256,p%32,ea%512,fa%32:ș8,5,"<Investor$Dir>.Sprites"�,,,,ga%:�ha%ga%+4:!ha%=ga%
(�ș8,255,"<Investor$Dir>.Sprites",ha%+4:�ba:�ca:�da:$q%="TASK":ș262336,200,!q%,"Investor"�ia%,ja%:ș530050,ja%:�ea:�fa:�ga:ș263872:�ha:�ia:�ja:�ka:ș263873:�e$<>""��la(0,e$,3)
2 ��aa
<0�:ș262343,0,q%�ka%:ș530054,ka%,,ja%:Ȏka%�
F �0:�la%�
P �ma%=1�
Z7�ma(na%):la%=�:na%+=1:�oa%=pa%�na%>qa%�na%=1:�g(43)
d�na%>qa%�na%=1:oa%+=1
nP�a%(43)<>0�$�t(43,0)="Ready to print page "+�na%+" (Copy "+�oa%+")":�j(43,0)
x��:�ra%=sa%�pa%:na%=1:�:�ma(na%):$�t(43,0)="Investor: printing page "+�na%+" (Copy "+�ra%+")":�j(43,0):na%+=1:�na%>qa%:�:�g(43):la%=�
��
��
�
�1:�r(q%)
�3�2:�q%!16>ta%�q%!8-=(q%!16-ta%+40):q%!16=ta%-40
�O�(q%!16-q%!8)>ta%�(q%!12-q%!4)>ua%�q%!8=40:q%!16=ta%-36:q%!12=ua%-38:q%!4=0
�
Ȏ!q%�
��a%(16):�na
��a%(36):�oa
��
�ș262341,,q%
�
�3:�pa
�
�4:�qa
��5:�ra(!q%)
%�6:�sa(!q%,q%!4,q%!8,q%!12,q%!16)
�7:�ta
�8:�ua(!q%,q%!4,q%!24)
"�9:�va(q%)
,�17,18:�wa(q%)
6�
@��:�
J0��wa(q%):�va%,wa%:va%=q%!4:wa%=q%!8:Ȏq%!16�
T
�0:�xa
^�1:�ya(q%)
h�2:�za(q%)
r�3,5:�Aa(q%,q%!16)
|�9,262337:�ka
��262336:Ȏxa%�
��ya%:Ȏq%!32�
� �0:w%=6:�f(w%):$�t(w%,7)=_$
��
��za%:Ȏq%!32�
��1:Ȏq%!36�
�B�0:w%=27:�f(w%):Aa%=n%(g%,d%(g%)):l$=�(Aa%):�Aa%=0�l$="<none>"
��Aa%=1�l$+=" entry"
��Aa%>1�l$+=" entries"
�%$�t(27,5)=�g(d%(g%)):$�t(27,2)=l$
�3�1:w%=20:�f(w%):Ba%=d%(g%)�12:$�t(20,5)=�g(Ba%)
�Z�2:w%=8:�f(w%):Ca%=d%(g%)�12:Da%=d%(g%)�12+1:Ea%=d%(g%)�12:Fa%=d%(g%)�12:�Da%=12�Da%=0
�*�e(8,3+Ga%):�H(9):�H(10):�H(18):�H(19)
�
�2:Ȏq%!36�
Y�0:w%=26:�f(w%):Ha%=0:Ia%=(d%(g%)�12)*12:Ja%=Ia%+11:�Ka%=Ia%�Ja%:�n%(g%,Ka%)>0�Ha%+=1
&"�:m$=�(Ha%):�Ha%=0�m$="<none>"
0 �Ha%=1�m$+=" month used"
: �Ha%>1�m$+=" months used"
D%$�t(26,5)=�q(d%(g%)):$�t(26,2)=m$
N3�1:w%=19:�f(w%):La%=d%(g%)�12:$�t(19,5)=�l(La%)
XW�2:w%=7:�f(w%):Ma%=d%(g%)�12:Na%=(d%(g%)�12)+1:�e(7,3+Oa%):�U(9):�U(8):�Na%=3�Na%=0
b�
l�3:Ȏq%!36�
vO�0:w%=25:�f(w%):�Ba(e%(g%)+1):�Ca(a$(g%)):$�t(25,3)=e$(g%):$�t(25,2)=d$(g%)
��3:Ȏq%!40�
�8�0:w%=10:�f(w%):q=�t(10,1):$�t(10,1)=C$:�e(10,3+Pa%)
�:�1:w%=9:�f(w%):�V(256):Qa%=0:q=�t(9,1):$�t(9,1)=b$(g%)
��
�I�7:w%=22:�f(w%):Ra%=(d%(g%)�12)-1:Sa%=d%(g%)�12:�Ra%=-1�Ra%=11:Sa%-=1
��Sa%=-1�Sa%=2
��W(6):�W(9)
��
��4:Ȏq%!36�
�>�0:w%=24:�f(w%):�a(Y%,d%(g%),g%)=1�O$=" unit"�O$=" units"
�j$�t(24,5)=��b(Y%,d%(g%),g%)):$�t(24,3)=�(�a(Y%,d%(g%),g%))+O$:�¤b(Y%,d%(g%),g%))="1"�P$="Yes"�P$="No"
�$�t(24,2)=P$
�%�1:D$=¤b(Y%,d%(g%),g%)):Ȏq%!40�
%�0:@%=0:w%=30:�f(w%):$�t(30,3)=Q$
:�1:@%=0:w%=31:�f(w%):$�t(31,5)=�(Ta%):$�t(31,7)=�(Ua%)
=�2:@%=16908810:w%=32:�f(w%):$�t(32,5)=�(I):$�t(32,7)=�(D)
=�3:@%=16908810:w%=33:�f(w%):$�t(33,5)=�(H):$�t(33,7)=�(E)
*�
4�
>�
H �Va%:@%=16908810:Ȏq%!32�
RE�0:w%=29:�f(w%):@%=0:E$=�(l%+1):�l%=0�E$+=" entry"�E$+=" entries"
\#$�t(29,3)=E$:@%=16908810:ȎWa%�
f*�0,1,2,3,4:$�t(29,5)=��b(Xa%,Ya%,Za%))
p!�5:$�t(29,5)="Current values"
z"�6:$�t(29,5)="Purchase values"
��
�>$�t(29,8)="�"+�(u):$�t(29,10)="�"+�(v):$�t(29,11)="�"+�(P)
��
��_a%:Ȏq%!32�
�)�3:w%=42:`a%=1:�f(w%):$�t(42,3)=�(U%)
��6:Ȏq%!36�
�7�0:w%=9:�f(w%):�V(3582):Qa%=3:q=�t(9,1):$�t(9,1)=F$
�7�1:w%=9:�f(w%):�V(2815):Qa%=4:q=�t(9,1):$�t(9,1)=G$
��
��
��ab%:Ȏq%!32�
�s�1:w%=11:�f(w%):q=�t(11,1):$�t(11,1)=H$:$�t(11,6)=�(Z%-2):$�t(11,7)=�(Z%-1):$�t(11,8)=�(Z%):�bb%<3��e(11,3+bb%)
��bb%=3��e(11,9)
�
'�cb%:D$=¤b(Y%,d%(g%),g%)):Ȏq%!32�
%�0:@%=0:w%=30:�f(w%):$�t(30,3)=Q$
$:�1:@%=0:w%=31:�f(w%):$�t(31,5)=�(Ta%):$�t(31,7)=�(Ua%)
.=�2:@%=16908810:w%=32:�f(w%):$�t(32,5)=�(I):$�t(32,7)=�(D)
8=�3:@%=16908810:w%=33:�f(w%):$�t(33,5)=�(H):$�t(33,7)=�(E)
B�
L�db%:Ȏq%!32�
V*�1:w%=42:`a%=0:�f(w%):$�t(42,3)=�(eb%)
`�
j�fb%:Ȏq%!32�
tV�0:w%=12:�f(w%):$�t(12,3)=�$(b%(I%)+36*gb%)):hb%=!(b%(I%)+36*gb%+24):@%=0:�hb%=-1�
~9$�t(12,5)="<unset>":$�t(12,9)="<unset>":ib%=-1:jb%=-1
�?�:$�t(12,5)=�g(hb%):$�t(12,9)=�q(hb%):ib%=hb%�12:jb%=hb%�12
��
�\@%=16908810:�!(b%(I%)+36*gb%+28)>0�$�t(12,13)=�(!(b%(I%)+36*gb%+28)*0.001)�$�t(12,13)=""
�P�!(b%(I%)+36*gb%+32)>0�$�t(12,15)=�(!(b%(I%)+36*gb%+32)*0.001)�$�t(12,15)=""
�@%=0
�7�3:w%=9:�f(w%):�V(4095):Qa%=5:q=�t(9,1):$�t(9,1)=I$
�B�4:w%=40:@%=0:�f(w%):kb%=(d%(g%)�12):lb%=d%(g%)�12:�X(6):�X(9)
��
��
� ș262376,,a%(w%),q%!24,q%!28
��
��
���na:mb%=q%!28:!p%=a%(15):ș262347,,p%:nb%=p%!24:p%!4=q%!4+22:p%!8=q%!16-408:p%!12=q%!12+598:p%!16=q%!16-28:�ob%�p%!24=nb%�p%!24=784
/p%!28=mb%:ș262341,,p%:ob%=�:q%!28=a%(15):�
��oa:mb%=q%!28:!p%=a%(37):ș262347,,p%:nb%=p%!24:p%!4=q%!4+22:p%!8=q%!16-700:p%!12=q%!12+598:p%!16=q%!16-392:�pb%�p%!24=nb%
/p%!28=mb%:ș262341,,p%:pb%=�:q%!28=a%(37):�
(0ݤh(a%):�b$:ȕ?a%>=32:b$+=�(?a%):a%+=1:�:=b$
29ݤt(n%,i%):!ba%=a%(n%):ba%!4=i%:ș262350,,ba%:=ba%!28
<?��K(n%):�qb%<>-1�a%(n%)<>0�!G%=a%(n%):G%!4=qb%:ș262340,,G%
F�
P��Y(rb%,sb%):�tb%��
Z�ub%>-1��K(ub%)
d��y(3):G%!0=a%(rb%):G%!4=842:G%!8=-216-(40*sb%):G%!12=972:G%!16=-172-(40*sb%):G%!20=&700F325:$fa%=�(H):G%!24=fa%:G%!28=-1:G%!32=10:ș262338,,G%�qb%:�j(rb%,qb%):@%=0:�
n?��j(n%,i%):!q%=a%(n%):q%!4=i%:q%!8=0:q%!12=0:ș262349,,q%:�
xG��e(n%,i%):!q%=a%(n%):q%!4=i%:q%!8=1<<21:q%!12=1<<21:ș262349,,q%:�
�G��C(n%,i%):!q%=a%(n%):q%!4=i%:q%!8=0<<21:q%!12=1<<21:ș262349,,q%:�
�I��Da(n%,i%):!q%=a%(n%):q%!4=i%:q%!8=7<<24:q%!12=15<<24:ș262349,,q%:�
�I��Ea(n%,i%):!q%=a%(n%):q%!4=i%:q%!8=3<<24:q%!12=15<<24:ș262349,,q%:�
�L��Fa(i%,vb%):!q%=a%(13):q%!4=i%:q%!8=vb%<<28:q%!12=15<<28:ș262349,,q%:�
�>��b(n%,i%,b%):q%!8=b%:q%!12=a%(n%):q%!16=i%:ș530048,,q%:�
�e��V(wb%):!G%=a%(9):G%!4=2:ș262350,,G%:$G%!28="file_"+�~(wb%)+�(0):G%!8=1:G%!12=13:ș262349,,G%:�
�Sݤr(s$):ȕ�s$,":")>0:s$=�s$,�s$,":")+1):�:ȕ�s$,".")>0:s$=�s$,�s$,".")+1):�:=s$
�GݤB(s$):�xb%:xb%=�(s$):ȕ�s$,xb%,1)<>"."�xb%>1:xb%-=1:�:=�s$,xb%-1)
�1��ua(yb%,zb%,S%):�Ab%=0�5:�yb%=a%(Ab%)�g%=Ab%
��:�ub%>-1�g%=ub%
�_%=�:Ȏyb%�
�;�a%(0),a%(1),a%(2),a%(3),a%(4),a%(5):�h:�zb%=qb%�S%=13�
��_%=�:�s(Bb%,Cb%,ub%,�($(�t(ub%,qb%)))):�c(Bb%,Cb%,ub%):�Ga:�p:ș262374,7:�N(Bb%,ub%):Db%=Bb%+1:Eb%=Cb%:Fb%=ub%:ș262374,11:�N(Db%,Fb%):�Ha
q�Db%<>n%(Fb%,Eb%)�tb%��Y(Fb%,Db%):ș262354,a%(Fb%),qb%,,,-1,0�!G%=a%(Fb%):G%!4=qb%:ș262340,,G%:�u(0):�n(za%)
�
�a%(42):�S%=13�
"�b(42,5,1):Ȏ`a%�
,Y�0:�($(�t(42,3)))>9�eb%=�($(�t(42,3))):�h:�b(42,5,0):�Ia:_%=���h:�b(42,5,0):�Ia:_%=�
6X�1:�($(�t(42,3)))>9�U%=�($(�t(42,3))):�h:�b(42,5,0):�Ja:_%=���h:�b(42,5,0):�Ja:_%=�
@�
J�
T�a%(9):�S%=13�
^�b(9,0,1):_%=�:ȎQa%�
h�0:�Ka(�h(q)):�h
r�3:�La(�h(q)):�h
|�4:�Ma(�h(q)):�h
��5:�Na(�h(q)):�h
��
�
�b(9,0,0)
��
�;�a%(10):�S%=13��b(10,0,1):�Oa(�h(q)):�h:�b(10,0,0):_%=�
�;�a%(11):�S%=13��b(11,0,1):�Pa(�h(q)):�h:�b(11,0,0):_%=�
��a%(21):Ȏzb%�
�,�6:�S%=13�_%=�:ș262354,a%(21),11,,,-1,0
�1�S%=398�S%=399�_%=�:ș262354,a%(21),12,,,-1,0
�-�11:�S%=13�_%=�:ș262354,a%(21),12,,,-1,0
�1�S%=398�S%=399�_%=�:ș262354,a%(21),14,,,-1,0
�-�12:�S%=13�_%=�:ș262354,a%(21),14,,,-1,0
�0�S%=398�S%=399�_%=�:ș262354,a%(21),6,,,-1,0
*�14:�S%=13�_%=�:�b(21,13,1):�Qa:�g(21)
1�S%=398�S%=399�_%=�:ș262354,a%(21),11,,,-1,0
�
&�a%(30):Ȏzb%�
0e�3:�S%=13�_%=�:�b(30,2,1):�t(Y%,d%(g%),g%,$(�t(30,3))+D$):�c(Y%,d%(g%),g%):�u(0):�h:�b(30,2,0):�p
:�
D�a%(31):Ȏzb%�
N+�5:�S%=13�_%=�:ș262354,a%(31),7,,,-1,0
X0�S%=398�S%=399�_%=�:ș262354,a%(31),7,,,-1,0
be�7:�S%=13�_%=�:�b(31,2,1):�z(Y%,d%(g%),g%,�($(�t(31,5)))):�c(Y%,d%(g%),g%):�u(0):�h:�b(31,2,0):�p
l0�S%=398�S%=399�_%=�:ș262354,a%(31),5,,,-1,0
v�
��a%(32):Ȏzb%�
�+�5:�S%=13�_%=�:ș262354,a%(32),7,,,-1,0
�0�S%=398�S%=399�_%=�:ș262354,a%(32),7,,,-1,0
�e�7:�S%=13�_%=�:�b(32,2,1):�A(Y%,d%(g%),g%,�($(�t(32,5)))):�c(Y%,d%(g%),g%):�u(0):�h:�b(32,2,0):�p
�0�S%=398�S%=399�_%=�:ș262354,a%(32),5,,,-1,0
��
��a%(33):Ȏzb%�
�+�5:�S%=13�_%=�:ș262354,a%(33),7,,,-1,0
�0�S%=398�S%=399�_%=�:ș262354,a%(33),7,,,-1,0
�i�7:�S%=13�_%=�:�b(33,2,1):�s(Y%,d%(g%),g%,�($(�t(33,5)))):�c(Y%,d%(g%),g%):�Ga:�u(0):�h:�b(33,2,0):�p
�0�S%=398�S%=399�_%=�:ș262354,a%(33),5,,,-1,0
��
��a%(12):Ȏzb%�
-�13:�S%=13�_%=�:ș262354,a%(12),15,,,-1,0
1�S%=398�S%=399�_%=�:ș262354,a%(12),15,,,-1,0
2�15:�S%=13�_%=�:�b(12,12,1):�Ra:�h:�b(12,12,0)
1�S%=398�S%=399�_%=�:ș262354,a%(12),13,,,-1,0
*�
4 :ș262364,S%:�S%=1�Bb%>-1�
>9_%=�:g%=ub%:ș262351,,G%:�n(cb%):�o(cb%,G%!0-64,G%!4)
H
�:_%=�
R�
\ �S%=14�_%=�:�l(0,21):Gb%=g%
f)�S%=18�Bb%>-1�_%=�:�Sa(1):�xa%=za%��h
p�
z�_%�ș262364,S%
��
�~��ka:ș53,-1,4�,,Hb%:ș53,-1,11�,,ua%:ua%=ua%<<Hb%:ș53,-1,5�,,Ib%:ș53,-1,12�,,ta%:ta%=ta%<<Ib%:ș262351,,G%:�Jb%�ra(!G%)
� g%=Kb%:�
�'��ra(Lb%):�Mb%=0�5:�Lb%=a%(Mb%)��Ta
��:�
�1��r(q%):ș262344,,q%�Nb%:ȕNb%:�Ua(q%):Ȏ!q%�
� �a%(0):�n%(0,d%(0))>0�L(0,�)
� �a%(1):�n%(1,d%(1))>0�L(1,�)
� �a%(2):�n%(2,d%(2))>0�L(2,�)
� �a%(3):�n%(3,d%(3))>0�L(3,�)
� �a%(4):�n%(4,d%(4))>0�L(4,�)
� �a%(5):�n%(5,d%(5))>0�L(5,�)
�$�a%(23):�n%(Ob%,Pb%)>0��L(Ob%,�)
�a%(28):�Va
�a%(37):�Wa
�a%(38):�Xa
$�a%(39):�Ya
.�a%(41):�v%(I%)>-1��Za
8�a%(17):�_a
B�
L%ș530049,,q%:ș262346,,q%�Nb%:�:�
VS��L(Qb%,Rb%):v%=Qb%:Sb%=�:Tb%=(-(Ub%+20)�40)-4:Vb%=(-(Wb%+20)�40)-4:�Tb%<0Tb%=0
`�Vb%<0Vb%=0
j+�Tb%>n%(v%,d%(v%))-1Tb%=n%(v%,d%(v%))-1
t1�Vb%>n%(v%,d%(v%))-1Vb%=n%(v%,d%(v%))-1:Sb%=�
~<aa=0:ba=0:Xb%=0:�Rb%�Yb%=d%(v%):d%(v%)=Pb%�Xb%=�(Zb%)*56
�p�a%=Tb%�Vb%:J%=s%(v%,d%(v%))+36*a%:_b%=-1:a$=�$J%):b%=J%!24:c=J%!28*0.001:d=J%!32*0.001:@%=2314:�Rb%��`a(7)
�,�`b%<362�ș69,4,j%+12,E%-184-(a%*40):�a$
�5�ac%>366�`b%<460�ș69,4,j%+300,E%-184-(a%*40):�b%
�G�y(1):�ac%>(634-16*�(�(c)))�`b%<634�ș69,4,j%+474,E%-184-(a%*40):�c
�S@%=16908810:�ac%>(814-16*�(�(b%*c)))�`b%<814�ș69,4,j%+656,E%-184-(a%*40):�b%*c
�2�y(2):�ac%>(966-Xb%-16*�(�(d)))�`b%<(966+Xb%)�
�Cș69,4,j%+804-Xb%,E%-184-(a%*40):�d;:�Zb%��Rb%�n%(v%,d%(v%))>0�
�7@%=16908810:Q=0:�`a(4):�d%(v%)>0�n%(v%,d%(v%)-1)>0�
�e�bc%=0�n%(v%,d%(v%)-1)-1:�a$=�$(s%(v%,d%(v%)-1)+36*bc%))�Q=d-(!(s%(v%,d%(v%)-1)+36*bc%+32)*0.001)
��
��
�J$="":�Q=0�J$="0"
�Q>0�J$="+"
�"("+J$;Q;")"
�
�
(�Rb%��`a(7)
2U@%=16908810:�ac%>(1150-16*�(�(b%*d)))�`b%<1150�ș69,4,j%+990,E%-184-(a%*40):�b%*d
<\�y(3):�ac%>(1302-16*�(�(b%*(d-c))))�`b%<1302�e=b%*(d-c):ș69,4,j%+1142,E%-184-(a%*40):�e
F �y(4):�ac%>1318�`b%<1462�
P�c=0�d<>0�cc%=��cc%=�
Z�d=0�b%=0�f=0
d�c=0�d=0�f=0
n �c<>0�d<>0�f=((d-c)/c)*100
x8ș69,4,j%+1302,E%-184-(a%*40):�cc%��f��" HIGH"
��
��:ș262374,7:�dc%�Sb%�
��ec%=n%(v%,d%(v%)):fc%=s%(v%,d%(v%)):�s%=0�ec%-1:aa+=!(fc%+36*s%+28)*!(fc%+36*s%+24)*0.001:ba+=!(fc%+36*s%+32)*!(fc%+36*s%+24)*0.001:�:@%=16908810:ș69,4,j%+12,E%-184-ec%*40:�"Totals":ș69,4,j%+656,E%-184-ec%*40:�aa
�#ș69,4,j%+990,E%-184-ec%*40:�ba
��
�@%=0:�Rb%�d%(v%)=Yb%
��
�#��`a(gc%):hc%=�:�ic%�v%(g%)>-1�
�_�jc%=0�v%(g%):�$(s%(v%,d%(v%))+36*a%))=�$(b%(g%)+36*jc%))�d%(v%)=!(b%(g%)+36*jc%+24)�hc%=�
��:�hc%�gc%=14
��
�(��$(s%(v%,d%(v%))+36*a%))="1"�gc%=13
�#�a%=Y%�Cb%=d%(v%)�ub%=v%�gc%=11
�_b%<>gc%�ș262374,gc%
_b%=gc%:�
>��Xa:kc%=(-(Ub%+20)�40)-4:lc%=(-(Wb%+20)�40)-4:�kc%<0kc%=0
"�lc%<0lc%=0
,�kc%>O%kc%=O%
6�lc%>O%lc%=O%
@�mc%=�:nc%=�:oc%=�:ș262374,7:�k%=kc%�lc%:J%=pc%+32*k%:b%=!(J%-32):K%=!J%:@%=0:�K%�12=0��mc%�(b%�12<>K%�12�k%=0)�mc%=�:ș69,4,j%+60,E%-184-(k%*40):��((Z%-2)+K%�12)
JX�K%�12=1��nc%�(b%�12<>K%�12�k%=0)�nc%=�:ș69,4,j%+60,E%-184-(k%*40):��((Z%-2)+K%�12)
TX�K%�12=2��oc%�(b%�12<>K%�12�k%=0)�oc%=�:ș69,4,j%+60,E%-184-(k%*40):��((Z%-2)+K%�12)
^�ș69,4,j%+174,E%-184-(k%*40):�g(K%):@%=2314:ș69,4,j%+344,E%-184-(k%*40):�v(!(J%+4)*0.01):@%=16908810:ș69,4,j%+534,E%-184-(k%*40):�!(J%+8)*0.01:ș69,4,j%+716,E%-184-(k%*40):�!(J%+12)*0.01:ș69,4,j%+864,E%-184-(k%*40):�!(J%+16)*0.01
h�ș69,4,j%+1050,E%-184-(k%*40):�!(J%+20)*0.01:ș69,4,j%+1202,E%-184-(k%*40):�!(J%+24)*0.01:ș69,4,j%+1362,E%-184-(k%*40):�!(J%+28)*0.01:�:�lc%=O%�qc%�
r�ș262374,2:�j%,E%-224-(O%*40):�j%+1570,E%-224-(O%*40):ș262374,7:@%=0:�j%+60,E%-248-(O%*40):�"Number Of Units Held":�j%+126,E%-292-(O%*40):�"Highest: ";rc%;" units":�j%+480,E%-292-(O%*40):�"Lowest: ";sc%;" units":�j%+900,E%-292-(O%*40)
|��"Average: ";tc%;" units":@%=16908810:�j%+60,E%-340-(O%*40):�"Purchase Price (�)":�j%+126,E%-384-(O%*40):�"Highest: �";X:�j%+480,E%-384-(O%*40):�"Lowest: �";Y:�j%+900,E%-384-(O%*40):�"Average: �";R:�j%+60,E%-432-(O%*40):�"Purchase Value (�)"
���j%+126,E%-476-(O%*40):�"Highest: �";Z:�j%+480,E%-476-(O%*40):�"Lowest: �";_:�j%+900,E%-476-(O%*40):�"Average: �";S:�j%+60,E%-524-(O%*40):�"Current Price (�)":�j%+126,E%-568-(O%*40):�"Highest: �";`:�j%+480,E%-568-(O%*40):�"Lowest: �";ca
���j%+900,E%-568-(O%*40):�"Average: �";T:�j%+60,E%-616-(O%*40):�"Current Value (�)":�j%+126,E%-660-(O%*40):�"Highest: �";da:�j%+480,E%-660-(O%*40):�"Lowest: �";ea:�j%+900,E%-660-(O%*40):�"Average: �";U:�j%+60,E%-708-(O%*40):�"Net Gain (�)"
���j%+126,E%-752-(O%*40):�"Highest: �";fa:�j%+480,E%-752-(O%*40):�"Lowest: �";ga:�j%+900,E%-752-(O%*40):�"Average: �";V:�j%+60,E%-800-(O%*40):�"Percentage Gain (%)":�j%+126,E%-844-(O%*40):�"Highest: ";ha;"%":�j%+480,E%-844-(O%*40)
�@�"Lowest: ";ia;"%":�j%+900,E%-844-(O%*40):�"Average: ";W;"%"
��
�
@%=0:�
�>��Va:kc%=(-(Ub%+20)�40)-4:lc%=(-(Wb%+20)�40)-4:�kc%<0kc%=0
��lc%<0lc%=0
��kc%>l%kc%=l%
��lc%>l%lc%=l%
� mc%=�:nc%=�:oc%=�:ȎWa%�
��0,1,2,3,4:�i%=kc%�lc%:J%=uc%+8*i%:b%=!(J%-8):x%=!J%:n=!(J%+4)*0.01:@%=0:�x%�12=0��mc%�(b%�12<>x%�12�i%=0)�mc%=�:ș69,4,j%+12,E%-184-(i%*40):��((Z%-2)+x%�12)
�X�x%�12=1��nc%�(b%�12<>x%�12�i%=0)�nc%=�:ș69,4,j%+12,E%-184-(i%*40):��((Z%-2)+x%�12)
X�x%�12=2��oc%�(b%�12<>x%�12�i%=0)�oc%=�:ș69,4,j%+12,E%-184-(i%*40):��((Z%-2)+x%�12)
V@%=16908810:ș69,4,j%+126,E%-184-(i%*40):�g(x%):ș69,4,j%+304,E%-184-(i%*40):�n:�
��5,6:�i%=kc%�lc%:J%=uc%+8*i%:b%=!(J%-8):x%=!J%:n=!(J%+4)*0.01:@%=0:�x%�12=0��mc%�(b%�12<>x%�12�i%=0)�mc%=�:ș69,4,j%+12,E%-184-(i%*40):��((Z%-2)+x%�12)
&X�x%�12=1��nc%�(b%�12<>x%�12�i%=0)�nc%=�:ș69,4,j%+12,E%-184-(i%*40):��((Z%-2)+x%�12)
0X�x%�12=2��oc%�(b%�12<>x%�12�i%=0)�oc%=�:ș69,4,j%+12,E%-184-(i%*40):��((Z%-2)+x%�12)
:V@%=16908810:ș69,4,j%+126,E%-184-(i%*40):�g(x%):ș69,4,j%+304,E%-184-(i%*40):�n:�
D�
N
@%=0:�
X>��Za:vc%=(-(Ub%+20)�40)-4:wc%=(-(Wb%+20)�40)-4:�vc%<0vc%=0
b�wc%<0wc%=0
l�vc%>v%(I%)vc%=v%(I%)
v�wc%>v%(I%)wc%=v%(I%)
�>ș262374,7:�u%=vc%�wc%:J%=b%(I%)+36*u%:�u%=gb%�ș262374,15
�3xc%=!(J%+24):ș69,4,j%+12,E%-184-(u%*40):�u%>0�
� �$J%)=�$(J%-36))��""��$J%)
� �:�$J%)
��
�@%=0:�xc%>-1�
�Sș69,4,j%+368,E%-184-(u%*40):�xc%�12+Z%-2:ș69,4,j%+482,E%-184-(u%*40):�g(xc%)
��
� @%=16908810:�!(J%+28)>0�
�0ș69,4,j%+624,E%-184-(u%*40):�!(J%+28)*0.001
��
��!(J%+32)>0�
�0ș69,4,j%+816,E%-184-(u%*40):�!(J%+32)*0.001
�
�!(J%+28)>0�!(J%+32)>0�
<ș69,4,j%+1020,E%-184-(u%*40):�(!(J%+28)-!(J%+32))*0.001
�
*�u%=gb%�ș262374,7
4 �:�wc%=v%(I%)�v%(I%)>-1�
>^ja=0:ka=0:�yc%=0�v%(I%):J%=b%(I%)+36*yc%:la=!(J%+28)*0.001:ma=!(J%+32)*0.001:�la>=0�ja+=la
H�ma>=0�ka+=ma
R��:ș69,4,j%+12,E%-224-(v%(I%)*40):�"Totals":ș69,4,j%+624,E%-224-(v%(I%)*40):�ja:ș69,4,j%+816,E%-224-(v%(I%)*40):�ka:ș69,4,j%+1020,E%-224-(v%(I%)*40):�ja-ka
\�
f
@%=0:�
pO��Wa:zc%=-Ub%�40:Ac%=-Wb%�40:Bc%=(Cc%*12)+Dc%:Ec%=n%(Fc%,Bc%)-1:�zc%<0zc%=0
z�Ac%<0Ac%=0
��zc%>Ec%zc%=Ec%
��Ac%>Ec%Ac%=Ec%
� �Ec%=-1�
�+ș69,4,j%+12,E%-8:�"No available stock"
�4�:�Gc%=zc%�Ac%:ș262374,7:�Hc%?Gc%=1�ș262374,11
�9ș69,4,j%+12,E%-8-(Gc%*40):�$(s%(Fc%,Bc%)+36*Gc%)):�
��
�
@%=0:�
� ��Ya:�Ic%=1�Jc%=l%�Jc%=O%
�+Kc%=0:Lc%=�I:�Mc%=1�Nc%=160-Lc%�Nc%=160
�3Oc%=(`b%-Nc%)�Lc%:Pc%=(ac%-Nc%)�Lc%:�Oc%<0Oc%=0
��Pc%<0Pc%=0
��Oc%>Jc%Oc%=Jc%
�Pc%>Jc%Pc%=Jc%
%Qc%=�f(120):@%=0:Rc%=�:F=0:ȎIc%�
#�1:r%=l%:r=u:i=v:s=P:�i<0�Sc%=�
$?Tc%=�(Wa%=0):Uc%=�(Wa%=4):�u=v�a=350/u�a=350/(u-(v*�(Sc%)))
.(F=!(uc%+8*(Oc%-1)+4)*0.01-(i*�(Sc%))
8$�2:r%=O%:r=C:i=G:s=na:�i<0�Sc%=�
B?Tc%=�(Vc%=0):Uc%=�(Vc%=4):�C=G�a=350/C�a=350/(C-(G*�(Sc%)))
L+F=!(pc%+32*(Oc%-1)+Wc%)*0.01-(i*�(Sc%))
V�
`�Mc%=1�Xc%=��Xc%=�
j/�U%<100��23,17,7,6,�f(16>>Hb%);�f(32>>Ib%)|
t�i%=Oc%�Pc%:ȎIc%�
~(�1:J%=uc%+8*i%:x%=!J%:n=!(J%+4)*0.01
�+�2:J%=pc%+32*i%:x%=!J%:n=!(J%+Wc%)*0.01
��
�
�Sc%�n-=i
�
ȎMc%�
�
�0:ȎYc%�
���0:J%=j%+160+(U%*i%):Zc%=n*a:ș262374,f%(6):ș69,4,J%,E%-424:ș69,101,J%+U%,Zc%+E%-424:ș262374,f%(7):ȓJ%,E%-424,U%,Zc%:ș262374,7:ș69,4,J%+�f(24),E%-460:�g(x%),3):ș69,4,J%+�f(16),E%-494:��((Z%-2)+x%�12)
�
�1:�Rc%�
��Rc%=�:ș262374,f%(12):ș69,4,j%+160,E%-424:ș69,4,j%+160+�f(240),E%-224:ș69,117,j%+160+�f(240),760+(E%-424):ș262374,f%(11):ș69,4,j%+160,E%-424:ș69,4,j%+160+�f(120)+(Qc%*r%),E%-424:ș69,117,j%+160+�f(360)+(Qc%*r%),E%-224
��
��ș262374,f%(8):ș69,4,j%+160+(Qc%*i%),E%-424:ș69,101,j%+160+U%+(Qc%*i%),(n*a)+E%-424:ș262374,f%(10):ș69,4,j%+160+(Qc%*i%),E%-420+(n*a):ș69,4,j%+160+U%+(Qc%*i%),E%-420+(n*a):ș69,117,j%+160+�f(124)+(Qc%*i%),E%-400+(n*a):ș262374,f%(9)
��ș69,4,j%+160+U%+(Qc%*i%),E%-424:ș69,4,j%+160+�f(124)+(Qc%*i%),E%-400:ș69,117,j%+160+�f(124)+(Qc%*i%),E%-400+(n*a):ș262374,7:ș69,4,j%+160+�f(24)+(Qc%*i%),E%-460:�g(x%),3):ș69,4,j%+160+�f(16)+(Qc%*i%),E%-494
���((Z%-2)+x%�12)
�
�1:ș262374,f%(5):�i%>0�
Mș69,4,j%+160+(U%*(i%-1)),E%-424+(F*a):ș69,5,j%+160+(U%*i%),E%-424+(n*a)
�
(iș262374,7:ș69,4,j%+132+(U%*i%),E%-460:�g(x%),3):ș69,4,j%+124+(U%*i%),E%-494:��((Z%-2)+x%�12):F=n
2�
<!�:�23,17,7,6,16>>Hb%;32>>Ib%|
F�_c%=�f((100+(20*�(Rc%)))*(r%+1)-(98*�(Xc%))):ș262374,f%(1):ș69,4,j%+160,E%-424:ș69,5,j%+160,E%+20:ș262374,f%(0):ș69,4,j%+160,E%-424:ș69,5,j%+160+_c%,E%-424:j=i*�(Sc%):j%+=6:�23,6,248,248,248,248,248,248,248,248
P
Ȏ`c%�
Z�ɹ:ad%=_c%-20:ș262374,f%(2):ș69,4,j%+160,E%-424+(r-j)*a:ș69,21,j%+168+ad%,E%-424+(r-j)*a:ș262374,f%(4):ș69,4,j%+160,E%-424+(i-j)*a:ș69,21,j%+168+ad%,E%-424+(i-j)*a:ș262374,f%(3):ș69,4,j%+160,E%-424+(s-j)*a
d}ș69,21,j%+168+ad%,E%-424+(s-j)*a:j%-=6:@%=16908810:ș262374,f%(2):�Uc%=1�ș69,4,j%+8,E%-412+((r-j)*a):@%=16908808:�r;"%"
n4�Tc%=1�ș69,4,j%+16,E%-412+((r-j)*a):@%=8:�v(r)
xC�Uc%=0�Tc%=0�ș69,4,j%+132-(16*�(�(r))),E%-412+((r-j)*a):�"�";r
�Iș262374,f%(4):�Uc%=1�ș69,4,j%+8,E%-412+((i-j)*a):@%=16908808:�i;"%"
�4�Tc%=1�ș69,4,j%+16,E%-412+((i-j)*a):@%=8:�v(i)
�C�Uc%=0�Tc%=0�ș69,4,j%+132-(16*�(�(i))),E%-412+((i-j)*a):�"�";i
�Gș262374,f%(3):�Uc%=1�ș69,4,j%+8,E%-412+(s-j)*a:@%=16908808:�s;"%"
�2�Tc%=1�ș69,4,j%+16,E%-412+(s-j)*a:@%=8:�v(s)
�A�Uc%=0�Tc%=0�ș69,4,j%+132-(16*�(�(s))),E%-412+(s-j)*a:�"�";s
�ɣ
��
�ș262374,7:@%=0:�
�1ݤw(t$):ș262295,,t$+" "�,,,bd%:=(bd%*0.0025)
�.ݤm(t):ș262295,,�(t)�,,,bd%:=(bd%*0.0025)
����_a:�a$,b%,c,d,e,f,g,h:cd%=(-(Ub%+�z(320))��z(48)):dd%=(-(Wb%+�z(320))��z(48)):oa=0:pa=0:ed%=�:fd%=�:�gd%=1�qa%:ș262273,,"Trinity.Medium.Italic",�z(320),�z(320),0,0�h%:ș262282,h%:ș264015,0,-256,0,14:R$=�(gd%):hd%=�w(R$)
�?ș262278,,R$,16,j%+�z(1530)-hd%,E%-�z(2140*gd%-20):�:�id%�
Wș262274,h%:�gd%=1�qa%:ș262374,2:�j%,E%-�z(2140*gd%),j%+�z(1540),E%-�z(2140*gd%):�
�
*cd%-=((cd%+9)�45)*2:�cd%<0�cd%=0:fd%=�
"�dd%<0�dd%=0:fd%=�
,.�cd%>n%(jd%,kd%)-1�cd%=n%(jd%,kd%)-1:ed%=�
6.�dd%>n%(jd%,kd%)-1�dd%=n%(jd%,kd%)-1:ed%=�
@,�id%�cd%=0:dd%=n%(jd%,kd%)-1:ed%=�:fd%=�
J$i%=cd%:dd%+=((dd%+9)�45)*4:�fd%�
T�ș262273,,"Trinity.Bold",�z(320),�z(320),0,0�h%:ș262282,h%:ș264015,0,-256,0,14:ld%=�w(n$):md%=E%-�z(276):nd%=E%-�z(232):Ȏod%�
^6�0:ș262278,,n$,16,j%+�z(800)-(ld%*0.5),E%-�z(140)
h+�1:ș262278,,n$,16,j%+�z(32),E%-�z(140)
r1�2:ș262278,,n$,16,j%+�z(1500)-ld%,E%-�z(140)
|�
��ș262274,h%:ș262273,,"Trinity.Bold",�z(224),�z(224),0�h%:ș262282,h%:ș264015,0,-256,0,14:ș262278,,"Stock Name",16,j%+�z(32),md%:ș262278,,"Number Of",16,j%+�z(340),nd%:ș262278,,"Units Held",16,j%+�z(342),md%
��ș262278,,"Purchase",16,j%+�z(530),nd%:ș262278,,"Price (�)",16,j%+�z(532),md%:ș262278,,"Purchase",16,j%+�z(682),nd%:ș262278,,"Value (�)",16,j%+�z(684),md%:ș262278,,"Current",16,j%+�z(852),nd%:ș262278,,"Price (�)",16,j%+�z(854),md%
��ș262278,,"Current",16,j%+�z(1018),nd%:ș262278,,"Value (�)",16,j%+�z(1016),md%:ș262278,,"Net",16,j%+�z(1234),nd%:ș262278,,"Gain (�)",16,j%+�z(1202),md%:ș262278,,"Percentage",16,j%+�z(1344),nd%:ș262278,,"Gain (%)",16,j%+�z(1364),md%
�ș262274,h%
��
�Uș262273,,h$,�z(224),�z(224),0�h%:ș262282,h%:ș264015,0,-256,0,14:�:Ȏ(i%+9)�45�
� �0,1,2,3:i%+=4-((i%+9)�45)
��
֩k%=((i%+9)�45)*4:i%-=k%:J%=s%(jd%,kd%)+36*i%:pd%=E%-�z(340+(48*i%)):a$=�$J%):b%=!(J%+24):c=!(J%+28)*0.001:d=!(J%+32)*0.001:e=b%*c:f=b%*d:g=f-e:�e=0�h=0�h=100*(f-e)/e
��i%+=k%:@%=0:ș262278,,a$,16,j%+�z(32),pd%:ș262278,,�(b%),16,j%+�z(468)-�w(�(b%)),pd%:@%=16908810:ș262278,,�(c),16,j%+�z(628)-�m(c),pd%:ș262278,,�(e),16,j%+�z(808)-�m(e),pd%:ș262278,,�(d),16,j%+�z(952)-�m(d),pd%
�ș262278,,�(f),16,j%+�z(1140)-�m(f),pd%:ș262278,,�(g),16,j%+�z(1318)-�m(g),pd%:ș262278,,�(h),16,j%+�z(1484)-�m(h),pd%:i%+=1:�i%>dd%:�dc%�ed%�
���qd%=0�n%(jd%,kd%)-1:oa+=�d(qd%,kd%,jd%)*�a(qd%,kd%,jd%):pa+=�c(qd%,kd%,jd%)*�a(qd%,kd%,jd%):�:ș262278,,"Totals",16,j%+�z(32),E%-�z(388+(48*dd%)):ș262278,,�(oa),16,j%+�z(808)-�m(oa),E%-�z(388+(48*dd%))
�=ș262278,,�(pa),16,j%+�z(1140)-�m(pa),E%-�z(388+(48*dd%))
�
ș262274,h%:@%=0:�
ݤz(l%):=(l%*eb%*0.01)
&ݤf(l%):=(l%*U%/100)
0��y(rd%):Ȏrd%�
:
�1:Ȏsd%�
D�1:@%=16908554
N�2:@%=16908810
X�3:@%=16909066
b�
l
�2:Ȏtd%�
v�1:@%=16908554
��2:@%=16908810
��3:@%=16909066
��
�
�3:Ȏud%�
��1:@%=16908554
��2:@%=16908810
��3:@%=16909066
��
�
�4:Ȏvd%�
��1:@%=16908554
��2:@%=16908810
��3:@%=16909066
��
�
�
ݤI:ȎMc%�
�0:ȎYc%�
*
�0:Kc%=U%
4�1:Kc%=�f(120)
>�
H
�1:Kc%=U%
R�
\=Kc%
f2��sa(wd%,xd%,b%,yd%,M%):�Db%,wb%,Eb%,Fb%:Ȏb%�
p�1,4:Ȏyd%�
z��a%(0),a%(1),a%(2),a%(3),a%(4),a%(5):�ab:zd%=n%(g%,d%(g%)):!q%=a%(g%):ș262347,,q%:�Z(q%):Ad%=((-(xd%-E%)-20)�40)-4:�zd%<=0��
��Ad%<0�Ad%>=zd%��
�1Db%=Ad%:Eb%=d%(g%):Fb%=g%:ș262374,7:�Bb%>-1�
� �d%(ub%)=Cb%��N(Bb%,ub%)
��
�,ș262374,11:�N(Db%,Fb%):�tb%��Y(Fb%,Db%)
��Ha
�d�a%(37):!q%=a%(37):ș262347,,q%:�Z(q%):Bd%=((-(xd%-E%)-8)�40):�Bd%<0�Bd%>=n%(Fc%,(Cc%*12)+Dc%)��
� �n%(Fc%,(Cc%)*12+Dc%)=0��
�*Cd%=Bd%:�Hc%?Cd%=1�Hc%?Cd%=0�Hc%?Cd%=1
�7�Dd%�Ed%>-1�Cd%<>Ed%�Hc%?Ed%=0:ș262374,7:�bb(Ed%)
� ș262374,11:�bb(Cd%):Ed%=Cd%
�[�a%(41):!q%=a%(41):ș262347,,q%:�Z(q%):Fd%=((-(xd%-E%)-20)�40)-4:�Fd%<0�Fd%>=v%(I%)+1��
�&gb%=Fd%:ș262374,7:�Gd%>-1��_(Gd%)
ș262374,15:�_(gb%):Gd%=gb%
�-2:�cb:�Hd%=-1��
<Id%=(80*Hd%)+2:Jd%=68*Hd%:�a%(Hd%)=0�d%(Hd%)=�x(Kd%,Ld%)
$��f(Hd%):!q%=a%(Hd%):ș262347,,q%:q%!28=-1:�Md%�Nd%=q%!12-q%!4:Od%=q%!16-q%!8:q%!4=Id%:q%!8=ta%-40-Od%-Jd%:q%!12=q%!4+Nd%:q%!16=q%!8+Od%:q%!20=0:q%!24=0
.�e%(Hd%)�g$=" *"�g$=""
85�v(Hd%,a$(Hd%)+g$,0):�`(Hd%):ș262341,,q%:�I(Hd%)
B�a%(18):ȎM%�
L!�7:�n(Pd%):�o(Pd%,wd%-64,xd%)
V7�8:�b(18,8,1):�n(Pd%):�o(Pd%,wd%-64,xd%):�b(18,8,0)
`"�10:�n(Qd%):�o(Qd%,wd%-64,xd%)
j:�11:�b(18,11,1):�n(Qd%):�o(Qd%,wd%-64,xd%):�b(18,11,0)
t�12:Rd%=�Rd%
~�13:Sd%=�Sd%
��14:Td%=�Td%
��15:Ud%=�Ud%
�9�17,18,19:�(b%�1)>0�Vd%=(M%-16)��e(18,M%)�Vd%=(M%-16)
�9�21,22,23:�(b%�1)>0�Wd%=(M%-20)��e(18,M%)�Wd%=(M%-20)
�9�25,26,27:�(b%�1)>0�Xd%=(M%-24)��e(18,M%)�Xd%=(M%-24)
�9�29,30,31:�(b%�1)>0�Yd%=(M%-28)��e(18,M%)�Yd%=(M%-28)
�9�32:�b(18,32,1):�(b%�1)<=0��db:�g(18)��b(18,32,0):�db
�9�33:�b(18,33,1):�eb:�fb:�(b%�1)<=0��g(18)��b(18,33,0)
�9�34:�b(18,34,1):�(b%�1)<=0��eb:�g(18)��b(18,34,0):�eb
��
��a%(43):ȎM%�
�h�2:�b(43,2,1):�b(43,2,0):la%=�:$�t(43,0)="Investor: printing page "+�na%+" (Copy "+�oa%+")":�j(43,0)
�3:�b(43,3,1):�g(43):la%=�
�
�a%(15):ȎM%�
)�3:�(b%�1)>0�Zd%=0��e(15,3)�Zd%=0:�gb
()�7:�(b%�1)>0�Zd%=1��e(15,7)�Zd%=1:�gb
2'�22:�(b%�1)>0�od%=0��e(15,22)�od%=0
<'�25:�(b%�1)>0�od%=1��e(15,25)�od%=1
F'�28:�(b%�1)>0�od%=2��e(15,28)�od%=2
P�11,13:�_d%��hb:�ib(12)
Z�15,17:�_d%��hb:�ib(16)
d�35:�`d%=0�`d%=1�`d%=0
n�
x�a%(42):ȎM%�
��5:�b(42,5,1):Ȏ`a%�
�+�0:�($(�t(42,3)))>9�eb%=�($(�t(42,3)))
��h:�b(42,5,0):�Ia
�*�1:�($(�t(42,3)))>9�U%=�($(�t(42,3)))
��h:�b(42,5,0):�Ja
��
��
��a%(16):ȎM%�
��0:�b(16,0,1):ȎZd%�
��0:kd%=d%(jd%)
��1:kd%=(12*ae%)+be%
��
��jb:�b(16,0,0)
.�1:�b(16,1,1):�(b%�1)<=0��g(16)��b(16,1,0)
�
�a%(19):ȎM%�
"�3,6:�kb:�lb
, �2:�b(19,2,1):�mb:�b(19,2,0)
6�
@�a%(20):ȎM%�
J�3,6:�nb:�ob
T �2:�b(20,2,1):�mb:�b(20,2,0)
^�
h�a%(8):ȎM%�
r$�3:�(b%�1)>0�Ga%=0��e(8,3)�Ga%=0
|$�4:�(b%�1)>0�Ga%=1��e(8,4)�Ga%=1
�$�5:�(b%�1)>0�Ga%=2��e(8,5)�Ga%=2
��6,14:�pb:�H(9)
��7,8:�pb:�H(10)
��20,23:�pb:�H(18)
��22,24:�pb:�H(19)
�K�13:�b(8,13,1):�R(1,Ga%,-1,Ea%,Ca%,Fa%,Da%,g%,g%):�n(za%):�h:�b(8,13,0)
��
��a%(7):ȎM%�
�$�3:�(b%�1)>0�Oa%=0��e(7,3)�Oa%=0
�$�4:�(b%�1)>0�Oa%=1��e(7,4)�Oa%=1
�$�5:�(b%�1)>0�Oa%=2��e(7,5)�Oa%=2
��6,14:�qb:�U(9)
��11,10:�qb:�U(8)
G�13:�b(7,13,1):�R(2,Oa%,-1,Ma%,0,Na%,0,g%,g%):�n(za%):�h:�b(7,13,0)
�
�a%(9):ȎM%�
&�0:�b(9,0,1):ȎQa%�
0�0:�Ka(�h(q)):�h
:�3:�La(�h(q)):�h
D�4:�Ma(�h(q)):�h
N�5:�Na(�h(q)):�h
X�
b
�b(9,0,0)
l�
v�a%(10):ȎM%�
�*�0:�b(10,0,1):�Oa(�h(q)):�(b%�1)<=0��h
��b(10,0,0)
�%�3:�(b%�1)>0�Pa%=0��e(10,3)�Pa%=0
�%�4:�(b%�1)>0�Pa%=1��e(10,4)�Pa%=1
�%�5:�(b%�1)>0�Pa%=2��e(10,5)�Pa%=2
��
��a%(11):ȎM%�
�*�0:�b(11,0,1):�Pa(�h(q)):�(b%�1)<=0��h
��b(11,0,0)
�%�3:�(b%�1)>0�bb%=0��e(11,3)�bb%=0
�%�4:�(b%�1)>0�bb%=1��e(11,4)�bb%=1
�%�5:�(b%�1)>0�bb%=2��e(11,5)�bb%=2
�%�9:�(b%�1)>0�bb%=3��e(11,9)�bb%=3
�
�a%(21):ȎM%�
>�8:�b(21,8,1):�(b%�1)<=0��g(21)��b(21,8,0):�rb:�sb(a%(21))
5�13:�b(21,13,1):�Qa:�(b%�1)<=0��g(21)��sb(a%(21))
*�b(21,13,0)
4�
>�a%(35):ȎM%�
H'�13:�(b%�1)>0�ce%=0��e(35,13)�ce%=0
R'�16:�(b%�1)>0�ce%=1��e(35,16)�ce%=1
\%�5:�(b%�1)>0�ce%=2��e(35,5)�ce%=2
f'�22:�(b%�1)>0�de%=0��e(35,22)�de%=0
p'�23:�(b%�1)>0�de%=1��e(35,23)�de%=1
z�31,33:�tb:�J(32)
��39,37:�tb:�J(38)
��24,20:�tb:�J(18)
��6,14:�tb:�J(9)
�G�35:�b(35,35,1):�R(2,ce%,de%,ee%,0,fe%,0,ge%,he%):�(b%�1)<=0��g(35)
��b(35,35,0)
��27:�b(35,27,1):�g(35)
��
��a%(34):ȎM%�
�'�13:�(b%�1)>0�ie%=0��e(34,13)�ie%=0
�'�29:�(b%�1)>0�ie%=1��e(34,29)�ie%=1
�%�5:�(b%�1)>0�ie%=2��e(34,5)�ie%=2
�'�41:�(b%�1)>0�je%=0��e(34,41)�je%=0
�'�44:�(b%�1)>0�je%=1��e(34,44)�je%=1
�31,33:�O:�w(32)
�39,37:�O:�w(38)
�24,20:�O:�w(18)
$�6,14:�O:�w(9)
.�23,19:�O:�w(22)
8�43,42:�O:�w(10)
BK�28:�b(34,28,1):�R(1,ie%,je%,ke%,le%,me%,ne%,oe%,pe%):�(b%�1)<=0��g(34)
L�b(34,28,0)
V�46:�b(34,46,1):�g(34)
`�
j�a%(36):ȎM%�
t'�13:�(b%�1)>0�qe%=0��e(36,13)�qe%=0
~%�5:�(b%�1)>0�qe%=1��e(36,5)�qe%=1
�'�29:�(b%�1)>0�qe%=2��e(36,29)�qe%=2
�'�41:�(b%�1)>0�re%=0��e(36,41)�re%=0
�'�44:�(b%�1)>0�re%=1��e(36,44)�re%=1
��48:Dd%=�Dd%:�Dd%��ub
��31,33:�P:�x(32)
��39,37:�P:�x(38)
��24,20:�P:�x(18)
��6,14:�P:�x(9)
��23,19:�P:�x(22)
��43,42:�P:�x(10)
�S�28:�b(36,28,1):�R(3,qe%,re%,Cc%,Dc%,se%,te%,Fc%,ue%):ve%=Dd%:�(b%�1)<=0��g(36)
��b(36,28,0)
"�35:�b(36,35,1):Dd%=ve%:�g(36)
�
�a%(30):ȎM%�
Y�2:�b(30,2,1):�t(Y%,d%(g%),g%,$(�t(30,3))+D$):�c(Y%,d%(g%),g%):�u(0):�h:�p:�b(30,2,0)
(�
2�a%(31):ȎM%�
<Y�2:�b(31,2,1):�z(Y%,d%(g%),g%,�($(�t(31,5)))):�c(Y%,d%(g%),g%):�u(0):�h:�p:�b(31,2,0)
F�3,6:�vb:�wb(5)
P�8,9:�vb:�wb(7)
Z�
d�a%(32):ȎM%�
nY�2:�b(32,2,1):�A(Y%,d%(g%),g%,�($(�t(32,5)))):�c(Y%,d%(g%),g%):�u(0):�h:�p:�b(32,2,0)
x�3,6:�xb:�yb(5)
��8,9:�xb:�yb(7)
��
��a%(33):ȎM%�
�]�2:�b(33,2,1):�s(Y%,d%(g%),g%,�($(�t(33,5)))):�c(Y%,d%(g%),g%):�Ga:�u(0):�h:�p:�b(33,2,0)
��3,6:�zb:�Ab(5)
��8,9:�zb:�Ab(7)
��
��a%(14):ȎM%�
��0:�b(14,0,1):Ȏwe%�
��0:�Bb:xe%=�
��1:�h:�B(3,g%):xe%=�
��2:�h:�Cb:xe%=�
�
�3:�h:�Db
�
�b(14,0,0)
�2:�b(14,2,1):�h:�b(14,2,0)
"�
,�a%(22):ȎM%�
6��1:�b(22,1,1):Ob%=g%:�f(23):�v(23,"New view: "+a$(g%),1):$�t(23,0)=�g(Ra%)+" "+�l(Sa%):Pb%=�J(Sa%)+Ra%:�n%(Ob%,Pb%)>6��i(23,214+(40*n%(Ob%,Pb%)),1510,0,0)��i(23,456,1510,0,0)
@�l(1,23):�(b%�1)<=0��h
J�b(22,1,0)
T�5,7:�Eb:�W(6)
^�8,10:�Eb:�W(9)
h�
r�a%(40):ȎM%�
|1�1:�b(40,1,1):�Fb((lb%)*12+kb%):�h:�b(40,1,0)
��5,7:�Gb:�X(6)
��8,10:�Gb:�X(9)
��
��a%(12):ȎM%�
��6,7:�Hb:�Ib(5)
��10,8:�Hb:�Ib(9)
�(�12:�b(12,12,1):�Ra:�h:�(b%�1)<=0��h
��b(12,12,0)
��
��a%(13):ȎM%�
�;�15,16,17,18,19,20,21,22,23,24,25,26,27:�Jb(M%-15,-1,0)
�:�54,55,56,57,58,59,60,61,62,63,64,65,66:�Jb(M%-54,1,1)
�-�68:�b(13,68,1):�Kb:�Lb:�(b%�1)<=0��g(13)
�b(13,68,0)
-�69:�b(13,69,1):�Mb:�Lb:�(b%�1)<=0��g(13)
,�b(13,69,0):�a%(39)<>0�!q%=a%(39):�r(q%)
&-�67:�b(13,67,1):�Nb:�Lb:�(b%�1)<=0��g(13)
0,�b(13,67,0):�a%(39)<>0�!q%=a%(39):�r(q%)
:�
D�
N�2:xe%=�:Ȏyd%�
X&�-2:�Ob:�n(ya%):�o(ya%,wd%-64,364)
bV�a%(0),a%(1),a%(2),a%(3),a%(4),a%(5):�ab:Kb%=g%:�qa:�Pb:�n(za%):�o(za%,wd%-64,xd%)
l&�a%(28):�n(Va%):�o(Va%,wd%-64,xd%)
v&�a%(39):�n(_a%):�o(_a%,wd%-64,xd%)
�&�a%(38):�n(ab%):�o(ab%,wd%-64,xd%)
�&�a%(41):�n(fb%):�o(fb%,wd%-64,xd%)
� �a%(17):�o(db%,wd%-64,xd%)
��a%(18):ȎM%�
�!�7:�n(Pd%):�o(Pd%,wd%-64,xd%)
�7�8:�b(18,8,1):�n(Pd%):�o(Pd%,wd%-64,xd%):�b(18,8,0)
�"�10:�n(Qd%):�o(Qd%,wd%-64,xd%)
�:�11:�b(18,11,1):�n(Qd%):�o(Qd%,wd%-64,xd%):�b(18,11,0)
��
��
��16,64:Ȏyd%�
� �a%(9):�M%=2�ye%=Qa%:�Qb(9)
� �a%(10):�M%=2�ye%=1:�Qb(10)
�a%(11):�M%=2�ye%=2:�Qb(11)
�
�
�
*"��Ha:Cb%=Eb%:ub%=Fb%:Bb%=Db%:�
4>��mb:d%(g%)=(La%*12)+Ba%:�I(g%):�g%=ub%�d%(g%)<>Cb%��K(g%)
>:!q%=a%(g%):�`(g%):�r(q%):�g%=ub%�d%(g%)=Cb%��Y(g%,Bb%)
H�h:�
R1��`(w%):$�t(w%,0)=�g(d%(w%))+" "+�q(d%(w%)):�
\%��ab:�Ab%=0�5:�yd%=a%(Ab%)�g%=Ab%
f�:�
p.��Pb:�Rb(ze%,0,a$(g%)):�Rb(Ae%,0,a$(g%)):�
z��Ba(Be%):ȎBe%�
��0:$�t(25,6)="Yes"
��1:$�t(25,6)="No"
��
��
���Ca(`$):$�t(25,5)=`$:�
� ��h:ș262356,,-1:xa%=-1:�
����ha:�V%12415,Ce%8575:De%=V%:Ee%=0:Fe%=0:Ge%=�e("Open",11):�a("<untitled>",0):�a("<untitled>",0):�a("<untitled>",0):�a("<untitled>",0):�a("<untitled>",0):�a("<untitled>",128):Pd%=�e("Month",14):�a("January",0):�a("February",0)
���a("March",0):�a("April",0):�a("May",0):�a("June",0):�a("July",0):�a("August",0):�a("September",0):�a("October",0):�a("November",0):�a("December",2):�a("Current month",128):Qd%=�e("Year",13):�a(�(Z%-2),0):�a(�(Z%-1),0)
���a(�(Z%),2):�a("Current year",128):ya%=�e("Investor",15):�a("Info|",10):�a("Create",0):�a("Open portfolio",0):�a("Choices...",2):�a("Quit",128):He%=�e("Create",12):�a("Portfolio~",132):�k(ya%,1,He%):�k(ya%,2,Ge%)
��za%=�e("Investor",15):�a("Display",0):�a("Month",0):�a("Year",2):�a("Portfolio",0):�a("Selected stock",0):�a("New stock...",2):�a("Transfer data",2):�a("Dividends",128):Ie%=�e("Display",20):�a("Unsorted",0):�a("Sort by name",0)
���a("Sort by gain",0):�a("Sort by value",0):�a("Sort by price",0):�a("Sort by fluctuation",2):�a("Sort options",128):�k(za%,0,Ie%):Je%=�e("Sort",10):�a("Local",0):�a("Global",0):�a("Universal",128):�k(Ie%,6,Je%):Ke%=�e("Month",12)
���a("Info|",10):�a("Set|",8):�a("Copy|",8):�a("Clear month",128):�k(za%,1,Ke%):Le%=�e("Year",11):�a("Info|",10):�a("Set|",8):�a("Copy|",8):�a("Clear year",128):�k(za%,2,Le%):Me%=�e("Portfolio",11):�a("Info|",10):�a("Copy",0):�a("Rename",0)
���a("Save",0):�a("Clear",2):�a("Delete",2):�a("Format",0):�a("New view|",10):�a("Print...",128):�k(za%,3,Me%):Ae%=�e("Copy",12):�a("<untitled>~",132):ze%=�e("Rename",12):�a("<untitled>~",132):Ne%=�e("Save",15):�a("Save as text|",8)
��a("Save portfolio|",136):Oe%=�e("Format",15):�a("Current value",0):�a("Purchase value",128):�k(Me%,1,Ae%):�k(Me%,2,ze%):�k(Me%,3,Ne%):�k(Me%,6,Oe%):Pe%=�e("Stock",20):�a("Info|",8):�a("Alter",0):�a("Format view",0):�a("Remove",0)
��a("Clear selection",2):�a("Show performance...",128):�k(za%,4,Pe%):Qe%=�e("Alter",15):�a("Stock name|",8):�a("Units held|",8):�a("Purchase price|",8):�a("Current price|",136):Re%=�e("Format view",16):�a("Units held",0)
��a("Current price",0):�a("Current value",0):�a("Net gain",0):�a("Percentage gain",128):�k(Pe%,1,Qe%):�k(Pe%,2,Re%):Se%=�e("Transfer",20):�a("Year...",0):�a("Month...",0):�a("Individual stock...",128):�k(za%,6,Se%)
$�Te%=�e("Dividends",20):�a("Show list...",0):�a("Highlight dividends",128):�k(za%,7,Te%):Va%=�e("Investor",17):�a("Info|",8):�a("Display",2):�a("Show as graphics",128):Ue%=�e("Display",12):�a("Year",0):�a("All entries",128)
.�Ve%=�e("Year",5):�a(�(Z%-2),0):�a(�(Z%-1),0):�a(�(Z%),128):�k(Va%,1,Ue%):�k(Ue%,0,Ve%):_a%=�e("Investor",15):�a("Chart",0):�a("Graph",2):�a("Truncate",0):�a("Scale view|",10):�a("Show extents",0):�a("Set colours...",2):�a("Save",128)
8�We%=�e("Chart",9):�a("2D Chart",0):�a("3D Chart",128):Xe%=�e("Save",18):�a("Save as CSV file|",8):�a("Save as draw file|",136):�k(_a%,0,We%):�k(_a%,6,Xe%):fb%=�e("Investor",16):�a("Set values|",8):�a("Clear selection",2)
B��a("Clear dividends",0):�a("Save as text|",10):�a("Base upon month|",136):ab%=�e("Investor",16):�a("Plot",0):�a("Save history|",10):�a("Show statistics",128):Ye%=�e("Plot",16):�a("Units held",0):�a("Current price",0):�a("Current value",0)
L��a("Net gain",0):�a("Percentage gain",128):�k(ab%,0,Ye%):db%=�e("Investor",11):�a("Text font",0):�a("Scale view|",10):�a("Print",128):cb%=�e("Alter",15):�a("Stock name|",8):�a("Units held|",8):�a("Purchase price|",8)
V��a("Current price|",136):Ze%=�e("Text font",11):_e%=0:S$="":`e%=-1:�:ș262289,,ea%,_e%,-1�,,_e%:f$=$ea%:�f$,".")=0�f$+=".(Regular)"
`1o$=�f$,�f$,".")-1):K$=�f$,�f$,".")+1):�o$=S$�
jc$(`e%)+=K$+","
t1�:`e%+=1:c$(`e%)=o$+","+K$+",":S$=o$:�a(o$,0)
~�
��_e%=-1:af%=�(K$):bf%=�(c$(`e%)):c$(`e%)=�c$(`e%),0,bf%-af%-1):a%=V%+Ee%:a%!-24=(a%!-24)�128:�k(db%,0,Ze%):�cf%=0�`e%:df%=�c$(cf%),","):z%=�e(�c$(cf%),df%-1),20):ef%=0:ȕ�c$(cf%),",",df%+1)>0:ff%=df%+1:df%=�c$(cf%),",",df%+1)
�1L$=�c$(cf%),ff%,df%-ff%):�(L$)>ef%�ef%=�(L$)
�W�a(L$,0):�:a%=gf%:a%!16=(ef%+1)*16:a%=V%+Ee%:a%!-24=(a%!-24)�128:�k(Ze%,cf%,z%):�:�
�wݤe(t$,w%):�a%:gf%=V%+Ee%:a%=V%+Ee%:$a%=t$:a%?12=7:a%?13=2:a%?14=7:a%?15=0:a%!16=w%*16:a%!20=44:a%!24=0:Ee%+=28:=a%
�M��a(i$,f%):�a%,hf%:a%=V%+Ee%:hf%=-1:a%!0=f%:a%!4=-1:a%!8=&7000021:Ȏ�i$)�
��"|":i$=�i$):a%!4=32767
��"~":i$=�i$):hf%=11
��
��(i$)>11�hf%=�(i$)+1
� �hf%>-1�
�ca%!8+=256:$(Ce%+Fe%)=i$:a%!12=Ce%+Fe%:Fe%+=�(i$)+1:$(Ce%+Fe%)="":a%!16=Ce%+Fe%:Fe%+=1:a%!20=hf%
��:$(a%+12)=i$
�
Ee%+=24:�
&��k(m%,i%,p%):m%!(28+24*i%+4)=p%:�
��n(m%):if%=-1:Ȏm%�
(~�za%:�m(Ie%,jf%,0):�m(Ie%,kf%,1):�m(Je%,lf%,0):�m(Je%,mf%,1):�m(Te%,1,ic%):�Cb%=d%(g%)�ub%=g%��M(za%,4,Bb%>-1)��M(za%,4,0)
2\�_a%:�m(_a%,2,Sc%):�m(_a%,4,`c%):�m(_a%,nf%,0):�m(_a%,Mc%,1):�m(We%,of%,0):�m(We%,Yc%,1)
<R�fb%:�M(fb%,0,gb%>-1):�M(fb%,1,gb%>-1):�M(fb%,2,v%(g%)>-1):�M(fb%,3,v%(g%)>-1)
F%�ya%:@%=0:�o%=0�5:�a$(o%)<>�(N%)�
P if%+=1:�m(Ge%,if%,c%(o%))
Z�
d�:�M(ya%,2,if%>-1)
n�ab%:�m(ab%,2,qc%)
x@�Va%:�m(Ue%,pf%,0):�m(Ue%,qf%,1):�m(Ve%,rf%,0):�m(Ve%,sf%,1)
��Pd%:�m(Pd%,tf%,1)
��Qd%:�m(Qd%,uf%,1)
��
��
�E��M(a%,i%,c%):a%=a%+36+24*i%:�c%�!a%=!a%�-4194305�!a%=!a%�4194304
��
�9��m(a%,i%,c%):a%=a%+28+24*i%:�c%�!a%=!a%�1�!a%=!a%�-2
��
�;��o(m%,x%,y%):vf%=x%:wf%=y%:xa%=m%:ș262356,,m%,x%,y%:�
�T��Ob:Ee%=0:Fe%=0:V%=De%:Ge%=�e("Open",11):�xf%=0�5:�a$(xf%)<>�(N%)��a(a$(xf%),0)
�%�:a%=V%+Ee%:a%!-24=(a%!-24)�128:�
�0��Rb(yf%,zf%,s$):$(!(yf%+28+24*zf%+12))=s$:�
�)ݤs(yf%,zf%):=�h(!(yf%+28+24*zf%+12))
g��ia:!ca%=-1:ca%!4=0:ca%!8=0:ca%!12=68:ca%!16=68:ca%!20=12290:$(ca%+24)="!investor":ș262338,,ca%:�
;��va(V%):�Af%,i%:ș262351,,G%:Af%=(((G%!8)�1)>0):Ȏxa%�
�ya%:Ȏ!V%�
"�1:ȎV%!4�
,5�0:Bf%=�y:�Bf%=6��q("No portfolios available."):�
6Ih%(Bf%)=�:a$(Bf%)=�s(He%,0):�v(Bf%,a$(Bf%),0):c%(Bf%)=1:�l(0,Bf%):�Ob
@�
J�2:ȎV%!4�
T �0,1,2,3,4,5:�Sb(�K(V%!4))
^�
h�3:�a%(18)=0�
r?�l(0,18):$�t(18,7)=�C(Ld%):$�t(18,10)=�D(Kd%):�dc%�e(18,12)
|�Zb%�e(18,13)
��Cf%�e(18,14)
��tb%�e(18,15)
�;�e(18,16+sd%):�e(18,20+td%):�e(18,24+ud%):�e(18,28+vd%)
��:�l(0,18)
��
�
�4:�Tb
��
��za%:Ȏ!V%�
��0:ȎV%!4�
��0:jf%=kf%:kf%=0:�D
��1:jf%=kf%:kf%=1:�D
��2:jf%=kf%:kf%=2:�D
��3:jf%=kf%:kf%=3:�D
�4:jf%=kf%:kf%=4:�D
�5:jf%=kf%:kf%=5:�D
�6:ȎV%!8�
&�0:lf%=mf%:mf%=0
0�1:lf%=mf%:mf%=1
:�2:lf%=mf%:mf%=2
D�
N�
X�1:ȎV%!4�
b�3:�B(1,g%)
l�
v�2:ȎV%!4�
��3:�B(2,g%)
��
��3:ȎV%!4�
��1:ȎV%!8�
�
�0:�Ub
��
��2:ȎV%!8�
�
�0:�Vb
��
�
�4:�Wb
�
�5:�Xb
��6:ȎV%!8�
�
�0:�Yb(5)
!
�1:�Yb(6)
! �
!
�8:�Zb
! �
!*�4:ȎV%!4�
!4�2:ȎV%!8�
!>�0,1,2,3,4:�Yb(V%!8)
!H�
!R
�3:�Sa(1)
!\ �4:�u(0)
!f�5:�_b(Y%)
!p�
!z�5:�l(0,21):Gb%=g%
!��6:ȎV%!4�
!��0:�f(35):Ȏce%�
!��0:�e(35,13)
!��1:�e(35,16)
!��2:�e(35,5)
!��
!�
Ȏde%�
!��0:�e(35,22)
!��1:�e(35,23)
!��
!�sge%=g%:ge%=�j(ge%):he%=g%+1:he%=�j(he%):ee%=d%(g%)�12:fe%=(d%(g%)�12)+1:�`b:�J(32):�J(38):�J(18):�J(9):�l(1,35)
!��1:�f(34):Ȏie%�
!��0:�e(34,13)
"�1:�e(34,29)
"�2:�e(34,5)
"�
"$
Ȏje%�
".�0:�e(34,41)
"8�1:�e(34,44)
"B�
"L�oe%=g%:oe%=�j(oe%):pe%=g%+1:pe%=�j(pe%):le%=d%(g%)�12:ne%=(d%(g%)�12)+1:ke%=d%(g%)�12:me%=(d%(g%)�12):�ac:�w(32):�w(38):�w(18):�w(9):�w(22):�w(10):�l(1,34)
"V�2:�a%(36)=0�
"`(�f(36):Dd%=ve%:�a%(37)=0�Df%=��Df%=�
"j�f(37):Ȏqe%�
"t�0:�e(36,13)
"~�1:�e(36,5)
"��2:�e(36,29)
"��
"�
Ȏre%�
"��0:�e(36,41)
"��1:�e(36,44)
"��
"��Dd%�e(36,48)��C(36,48)
"�Fc%=g%:Fc%=�j(Fc%):ue%=g%+1:ue%=�j(ue%):Dc%=d%(g%)�12:te%=(d%(g%)�12)+1:Cc%=d%(g%)�12:se%=(d%(g%)�12):Ef%=n%(Fc%,(Cc%)*12+Dc%)-1:�bc:�x(32):�x(38):�x(18):�x(9):�x(22):�x(10):�l(1,36):�Df%�
"��Ef%>-1��cc
"�6�Ef%>6��i(37,40+40*Ef%,380,0,0)��i(37,308,380,0,0)
"��
"�%!q%=a%(36):ș262347,,q%:�oa:Df%=�
# �:�l(0,36):�oa
#
�
#�
# �7:ȎV%!4�
#(��0:�f(41):Ff%=g%:$�t(41,0)=a$(Ff%):�j(41,0):I%=g%:!q%=a%(41):�r(q%):�v%(I%)>5��i(41,254+(40*v%(I%)),1236,0,0)��i(41,454,1236,0,0)
#2 �l(1,41)
#< �1:�ic%�ic%=�:�dc�ic%=�:�dc
#F�
#P�
#Z�Va%:Ȏ!V%�
#d�1:ȎV%!4�
#n �0:pf%=qf%:qf%=0:ȎV%!8�
#x�0:rf%=sf%:sf%=0
#��1:rf%=sf%:sf%=1
#��2:rf%=sf%:sf%=2
#��
#��ec(Wa%):l%-=1:�l%=-1�
#��g(28):xe%=�
#�:�:�l%>14��i(28,214+(40*l%),500,0,0)��i(28,776,500,0,0)
#�V!q%=a%(28):�r(q%):�a%(39)<>0�Ic%=1�!q%=a%(39):�r(q%):�i(39,564,310+(�n*l%+�o),0,0)
#��
#�+�1:pf%=qf%:qf%=1:�ec(Wa%):l%-=1:�l%=-1�
#��g(28):xe%=�
#�:�:�l%>14��i(28,214+(40*l%),500,0,0)��i(28,776,500,0,0)
#�V!q%=a%(28):�r(q%):�a%(39)<>0�Ic%=1�!q%=a%(39):�r(q%):�i(39,564,310+(�n*l%+�o),0,0)
#��
$�
$�2:Ic%=1:�E�
$m�v(39,��b(Xa%,Ya%,Za%))+" Share History: "+�u,1):�l(0,39):!q%=a%(39):�r(q%):�i(39,564,310+(�n*l%+�o),0,0)
$"+�:�q("Investor cannot plot this data.")
$,�
$6�
$@�_a%:Ȏ!V%�
$J �0:nf%=Mc%:Mc%=0:ȎV%!4�
$T�0:of%=Yc%:Yc%=0
$^�1:of%=Yc%:Yc%=1
$h�
$r �fc(Ic%)
$| �1:nf%=Mc%:Mc%=1:�fc(Ic%)
$�;�2:�Sc%�Sc%=�:!q%=a%(39):�r(q%)�Sc%=�:!q%=a%(39):�r(q%)
$�;�4:�`c%�`c%=�:!q%=a%(39):�r(q%)�`c%=�:!q%=a%(39):�r(q%)
$��5:�f(13):�Lb:�l(1,13)
$��
$��ab%:Ȏ!V%�
$��0:ȎV%!4�
$� �0,1,2,3,4:Ic%=2:�gc(V%!4)
$��
$��2:�qc%�qc%=��qc%=�
$�^!q%=a%(38):�r(q%):�O%>6�qc%��i(38,214+(40*O%)+(664*�(qc%)),1570,48,0)��i(38,456,1570,48,0)
$��
$��fb%:Ȏ!V%�
$� �1:gb%=-1:�_(Gd%):Gd%=-1
%O�2:v%(I%)=-1:�E(b%(I%)):gb%=-1:Gd%=-1:!q%=a%(41):�r(q%):�i(41,454,1236,0,0)
%�
% �db%:Ȏ!V%�
%& �0:Ȏ��
%0N�V%!8>-1:h$=�A(db%):Gf%=�h$,"."):h$=�L(�h$,Gf%+1,�(h$))):!q%=a%(17):�r(q%)
%:�
%D
�2:�hc
%N�
%X�Pd%:Ȏ!V%�
%bR�0,1,2,3,4,5,6,7,8,9,10,11,12:�m(Pd%,tf%,0):tf%=!V%:$�t(18,7)=�A(Pd%):�j(18,7)
%l�
%v�Qd%:Ȏ!V%�
%�?�0,1,2,3:�m(Qd%,uf%,0):uf%=!V%:$�t(18,10)=�A(Qd%):�j(18,10)
%��
%��
%�#�Af%�xe%�n(xa%):�o(xa%,vf%,wf%)
%��
%�%��Cb:�jd%=g%��g(15):�g(16):�g(17)
%��xe%=�:�B(4,g%):�g(g%):@%=0:c%(g%)=0:e%(g%)=�:h%(g%)=�:i%(g%)=456:a$(g%)=�(N%):b$(g%)="Portfolio":e$(g%)=��$,15):d$(g%)="0 bytes":�
%�4��dc:�Hf%:�Hf%=0�5:�c%(Hf%)=1�!q%=a%(Hf%):�r(q%)
%��:�
%�C��Sa(If%):�Jf%:�p:�Jf%=Y%�n%(g%,d%(g%))-1:�Jf%=n%(g%,d%(g%))-1�
%�T�t(Jf%,d%(g%),g%,""):�z(Jf%,d%(g%),g%,0):�A(Jf%,d%(g%),g%,0):�s(Jf%,d%(g%),g%,0)
%��:�t(Jf%,d%(g%),g%,�b(Jf%+1,d%(g%),g%)):�z(Jf%,d%(g%),g%,�a(Jf%+1,d%(g%),g%)):�A(Jf%,d%(g%),g%,�d(Jf%+1,d%(g%),g%)):�s(Jf%,d%(g%),g%,�c(Jf%+1,d%(g%),g%))
%��
& �:n%(g%,d%(g%))-=1:�If%=1�
& �g%=ub%�d%(g%)=Cb%��K(g%)
&�g%=jd%�kd%=d%(g%)��jb
& !q%=a%(g%):�u(1):�r(q%)
&*�
&4�
&>��u(Kf%):�Kf%=0�
&H�tb%��K(ub%)
&R�N(Bb%,ub%)
&\�
&f.Bb%=-1:Y%=-1:Lf%=-1:Mf%=-1:ub%=-1:Cb%=-1:�
&p ��B(Nf%,Of%):ș263872:ȎNf%�
&z �1:Pf%=d%(Of%):Qf%=d%(Of%)
&�%�2:Pf%=(d%(Of%)�12)*12:Qf%=Pf%+11
&��3,4:Pf%=0:Qf%=35
&��
&�/�Rf%=Pf%�Qf%:�ub%=Of%�Cb%=Rf%��u(1):�K(Of%)
&�U�Sf%=0�n%(Of%,Rf%):�E(s%(Of%,Rf%)):�Sf%:n%(Of%,Rf%)=0:�Nf%<>4�Of%=jd%�kd%=Rf%��jb
&� �Rf%:�a%(Of%)<>0��I(Of%)
&�ș263873:�Nf%<>4��p
&��
&Ԃ��R(Tf%,Uf%,Vf%,Wf%,Xf%,Yf%,Zf%,_f%,F%):�Vf%=0�_f%=F%�(Wf%*12)+Xf%=(Yf%*12)+Zf%��q("Source and target months are the same."):�
&�ș263872:ȎTf%�
&�P�1:`f%=(Wf%*12)+Xf%:H%=(Yf%*12)+Zf%:�Uf%=0�ag%=0:n%(F%,H%)=n%(_f%,`f%):bg%=�
&�5�Uf%=1�ag%=n%(F%,H%):n%(F%,H%)+=n%(_f%,`f%):bg%=�
&� �Uf%=2�
'vag%=0:n%(F%,H%)+=n%(_f%,`f%):cg%=n%(_f%,`f%):bg%=�:s%(F%,H%)=�k(s%(F%,H%),36*cg%,T%):�T%�n%(F%,H%)-=n%(_f%,`f%):�
'��dg%=n%(F%,H%)-(cg%+1)�0�-1:�t(dg%+cg%,H%,F%,��b(dg%,H%,F%))+"0"):�z(dg%+cg%,H%,F%,�a(dg%,H%,F%)):�A(dg%+cg%,H%,F%,�d(dg%,H%,F%)):�s(dg%+cg%,H%,F%,�c(dg%,H%,F%)):�
'�
'$;�eg%=0�n%(_f%,`f%)-1:�bg%�s%(F%,H%)=�k(s%(F%,H%),36,T%)
'.
�T%��
'8��t(eg%+ag%,H%,F%,��b(eg%,`f%,_f%))+"0"):�z(eg%+ag%,H%,F%,�a(eg%,`f%,_f%)):�A(eg%+ag%,H%,F%,�d(eg%,`f%,_f%)):�s(eg%+ag%,H%,F%,�c(eg%,`f%,_f%)):�:�h%(F%)�d%(F%)=H%�n%(F%,H%)>0�!q%=a%(F%):�r(q%)
'BS�2:`f%=Wf%*12:H%=Yf%*12:�`%=0�11:�Uf%=0�ag%=0:n%(F%,H%+`%)=n%(_f%,`f%+`%):fg%=�
'L>�Uf%=1�ag%=n%(F%,H%+`%):n%(F%,H%+`%)+=n%(_f%,`f%+`%):fg%=�
'V �Uf%=2�
'`�ag%=0:n%(F%,H%+`%)+=n%(_f%,`f%+`%):cg%=n%(_f%,`f%+`%):fg%=�:s%(F%,H%+`%)=�k(s%(F%,H%+`%),36*cg%,T%):�T%�n%(F%,H%+`%)-=n%(_f%,`f%+`%):�
'j��dg%=n%(F%,H%+`%)-(cg%+1)�0�-1:�t(dg%+cg%,H%+`%,F%,��b(dg%,H%+`%,F%))+"0"):�z(dg%+cg%,H%+`%,F%,�a(dg%,H%+`%,F%)):�A(dg%+cg%,H%+`%,F%,�d(dg%,H%+`%,F%)):�s(dg%+cg%,H%+`%,F%,�c(dg%,H%+`%,F%)):�
't�
'~D�eg%=0�n%(_f%,`f%+`%)-1:�fg%�s%(F%,H%+`%)=�k(s%(F%,H%+`%),36,T%)
'�
�T%��
'���t(eg%+ag%,H%+`%,F%,��b(eg%,`f%+`%,_f%))+"0"):�z(eg%+ag%,H%+`%,F%,�a(eg%,`f%+`%,_f%)):�A(eg%+ag%,H%+`%,F%,�d(eg%,`f%+`%,_f%)):�s(eg%+ag%,H%+`%,F%,�c(eg%,`f%+`%,_f%)):�
'�9�h%(F%)�d%(F%)=H%+`%�n%(F%,H%+`%)>0�!q%=a%(F%):�r(q%)
'��`%
'�h�3:gg%=0:�hg%=0�Ef%:gg%+=Hc%?hg%:�:`f%=(Wf%*12)+Xf%:H%=(Yf%*12)+Zf%:�Uf%=0�ag%=0:n%(F%,H%)=gg%:bg%=�
'�-�Uf%=1�ag%=n%(F%,H%):n%(F%,H%)+=gg%:bg%=�
'� �Uf%=2�
'�^ag%=0:n%(F%,H%)+=gg%:cg%=gg%:bg%=�:s%(F%,H%)=�k(s%(F%,H%),36*cg%,T%):�T%�n%(F%,H%)-=gg%:�
'ا�dg%=n%(F%,H%)-(cg%+1)�0�-1:�t(dg%+cg%,H%,F%,��b(dg%,H%,F%))+"0"):�z(dg%+cg%,H%,F%,�a(dg%,H%,F%)):�A(dg%+cg%,H%,F%,�d(dg%,H%,F%)):�s(dg%+cg%,H%,F%,�c(dg%,H%,F%)):�
'��
'�Kig%=0:�eg%=0�n%(_f%,`f%)-1:�bg%�Hc%?eg%=1�s%(F%,H%)=�k(s%(F%,H%),36,T%)
'�
�T%��
( ȎHc%?eg%�
(
��1:�t(ig%+ag%,H%,F%,��b(eg%,`f%,_f%))+"0"):�z(ig%+ag%,H%,F%,�a(eg%,`f%,_f%)):�A(ig%+ag%,H%,F%,�d(eg%,`f%,_f%)):�s(ig%+ag%,H%,F%,�c(eg%,`f%,_f%)):ig%+=1
(�
( 5�:�h%(F%)�d%(F%)=H%�n%(F%,H%)>0�!q%=a%(F%):�r(q%)
((�
(2
ȎVf%�
(<
�0:ȎTf%�
(F�1:�h%(_f%)��B(1,_f%)
(P�2:�h%(_f%)��B(2,_f%)
(Z;�3:jg%=Y%:kg%=g%:lg%=0:�mg%=0�n%(_f%,`f%)-1:�Hc%?mg%=1�
(d#Y%=mg%-lg%:g%=_f%:lg%+=1:�Sa(0)
(n�
(x�:Y%=jg%:g%=kg%
(��
(��
(�"ș263873:Ad%=g%:g%=F%:�h%(F%)�
(��p:�D:�a%(g%)<>0��I(g%)
(��
(� g%=Ad%:�
(�5��Vb:�s(ze%,0)=""��q("Bad portfolio name."):�h:�
(�Np$=�s(ze%,0):�b$(g%)<>""��b$(g%),".")>0�b$(g%)=�B(b$(g%))+"."+p$�b$(g%)=p$
(�(a$(g%)=p$:�p:�ic(g%):�Rb(ze%,0,p$):�
(�5��Ub:�s(Ae%,0)=""��q("Bad portfolio name."):�h:�
(�Hș263872:q$=�s(Ae%,0):ng%=�y:�ng%=6��q("No portfolios available."):�
(�_�og%=0�35:�pg%=0�n%(g%,og%):n%(ng%,og%)=n%(g%,og%):s%(ng%,og%)=�k(s%(ng%,og%),36,T%):�T%��
(���t(pg%,og%,ng%,��b(pg%,og%,g%))+"0"):�z(pg%,og%,ng%,�a(pg%,og%,g%)):�A(pg%,og%,ng%,�d(pg%,og%,g%)):�s(pg%,og%,ng%,�c(pg%,og%,g%)):�:�:�v%(g%)>-1�
)Av%(ng%)=v%(g%):�qg%=0�v%(g%):b%(ng%)=�k(b%(ng%),36,T%):�T%��
)�$(b%(ng%)+36*qg%)=$(b%(g%)+36*qg%):!(b%(ng%)+36*qg%+24)=!(b%(g%)+36*qg%+24):!(b%(ng%)+36*qg%+28)=!(b%(g%)+36*qg%+28):!(b%(ng%)+36*qg%+32)=!(b%(g%)+36*qg%+32):�
)�
)"pd%(ng%)=d%(g%):d$(ng%)=d$(g%):e%(ng%)=�:a$(ng%)=q$:c%(ng%)=1:e$(ng%)=��$,15):b$(ng%)=q$:�a%(ng%)=0��l(0,ng%)
),C�I(ng%):�v(ng%,q$,1):�Rb(Ae%,0,q$):�ic(ng%):�h%(ng%)�h%(ng%)=�
)6ș263873:�
)@Q��aa:�rg%:@%=0:ș262352,,-1:!da%=�:r$=�$:�=20��=18�r$="Arithmetic overflow."
)JL�=385�r$="Not enough memory, or not within *desktop world.":sg%=1�sg%=3
)T��=1491�r$="No printer driver installed, please load a printer driver application suitable for use with your printer.":sg%=1
)^?$(da%+4)=r$+�(0):ș262367,da%,sg%,"Investor"�,rg%:�rg%=2�Bb
)h�
)rS��q(aa$):@%=0:ș262352,,-1:!da%=0:$(da%+4)=aa$+�(0):ș262367,da%,1,"Investor":�
)|~��ba:�tg%32:�qa=0�2�2:P%=tg%:[OPT qa:.ra:ldr3,[0]:ldr4,[1]:str4,[0],#4:str3,[1],#4:add2,2,#4:cmp2,#36:bne ra:mov pc,14:]:�
)�=��Bb:$q%="TASK":ș6,106,1:ș530051,ja%:ș262365,ja%,!q%:�
)��
)�E��ya(q%):q%!36=-1:q%!16=2:q%!12=q%!8:!q%=60:ș262375,17,q%,q%!4:�
)���za(q%):Ȏye%�
)�0�0:�Ka(�h(q%+44)):q%!40=256:b$(g%)=�h(q%+44)
)�-�1:�Oa(�h(q%+44)):q%!40=4095:C$=�h(q%+44)
)�-�2:�Pa(�h(q%+44)):q%!40=4095:H$=�h(q%+44)
)�-�3:�La(�h(q%+44)):q%!40=3582:F$=�h(q%+44)
)�-�4:�Ma(�h(q%+44)):q%!40=2815:G$=�h(q%+44)
)�-�5:�Na(�h(q%+44)):q%!40=4095:I$=�h(q%+44)
)��
)�Iș262351,,q%:q%!20=q%!12:q%!24=q%!16:q%!28=!q%:!q%=44:�(q%!8�1)<=0��h
)��
*���ta:ug%=�:ș262351,,q%:q%!32=q%!4:q%!28=!q%:q%!24=q%!16:q%!20=q%!12:q%!16=1:q%!12=0:q%!36=1:q%!40=256:$(q%+44)=�r(�h(q))+�(0):!q%=60:ș262375,17,q%,q%!20:�
*���Qb(n%):�vg%,wg%,xg%:!q%=a%(n%):ș262347,,q%:xg%=q%!16-q%!8:vg%=q%!4:wg%=q%!8:q%!4=2:ș262350,,q%:q%!8+=vg%:q%!12+=wg%+xg%:q%!16+=vg%:q%!20+=wg%+xg%:q%!24=0:q%!28=0:q%!32=&7FFFFFFF:q%!36=&7FFFFFFF:!q%=0:q%!4=5:ug%=�:ș262352,,q%:�
* Pݤp(ba$):�ba$,".")=0��q("To save, drag the icon to a directory viewer."):=�
*&=�
*0��Ka(j$):�(�p(j$))��
*:}ș263872:T$=��$,15):e$(g%)=T$:a$(g%)=�r(j$):L%=�(j$):�#L%,Z%:�#L%,T$:�yg%=0�35:�#L%,n%(g%,yg%):�:�zg%=0�35:�n%(g%,zg%)>0�
*D��Ag%=0�n%(g%,zg%)-1:U$=��b(Ag%,zg%,g%)):�t(Ag%,zg%,g%,U$+"0"):�#L%,U$:�#L%,�a(Ag%,zg%,g%):�#L%,�d(Ag%,zg%,g%):�#L%,�c(Ag%,zg%,g%):�
*N�
*X �:�#L%,v%(g%):�v%(g%)>-1�
*b��Bg%=0�v%(g%):M$=$(b%(g%)+36*Bg%):�#L%,M$:�#L%,!(b%(g%)+36*Bg%+24):sa=!(b%(g%)+36*Bg%+28)*0.001:ta=!(b%(g%)+36*Bg%+32)*0.001:�#L%,sa:�#L%,ta:�
*l�
*vj�#L%:�("SETTYPE "+j$+" 100"):ș8,5,j$�,,,,Cg%:ș263873:d$(g%)=�(Cg%)+" bytes":b$(g%)=j$:e%(g%)=�:�jc:�
*���Oa(u$):�(�p(u$))��
*�+ș263872:�50000,0:�("SPOOL "+u$):ȎPa%�
*� �0:Dg%=d%(g%):Eg%=d%(g%)
*�1�1:Dg%=(d%(g%)�12)*12:Eg%=((d%(g%)�12)*12)+11
*��2:Dg%=0:Eg%=35
*��
*� �Fg%=Dg%�Eg%:�n%(g%,Fg%)<>0�
*��ua=0:va=0:@%=0:�"Portfolio: ";a$(g%);�(10);:�"Month: ";�g(Fg%);�(10);:�"Year: ";�q(Fg%);�(10);:�(10);:�" NUMBER OF PURCHASE PURCHASE CURRENT CURRENT NET PERCENT.";�(10);
*���"STOCK NAME UNITS HELD PRICE(�) VALUE(�) PRICE(�) VALUE(�) GAIN(�) GAIN(%)";�(10);:�(10);:�Gg%=0�n%(g%,Fg%)-1:@%=0:�b(Gg%,Fg%,g%));�(26-�(�b(Gg%,Fg%,g%))-�(�(�a(Gg%,Fg%,g%))));:�a(Gg%,Fg%,g%);:�y(1):�d(Gg%,Fg%,g%);:@%=16908810
*���d(Gg%,Fg%,g%)*�a(Gg%,Fg%,g%);�(8-��(�c(Gg%,Fg%,g%)));:ua+=�d(Gg%,Fg%,g%)*�a(Gg%,Fg%,g%):�y(2):��(�c(Gg%,Fg%,g%));:@%=16908810:�c(Gg%,Fg%,g%)*�a(Gg%,Fg%,g%);:va+=�c(Gg%,Fg%,g%)*�a(Gg%,Fg%,g%):�y(3)
*�e=(�c(Gg%,Fg%,g%))*�a(Gg%,Fg%,g%)-(�d(Gg%,Fg%,g%)*�a(Gg%,Fg%,g%)):�(9-��(e));�(e);:�y(4):�(�d(Gg%,Fg%,g%)*�a(Gg%,Fg%,g%))=0�f=0�f=(e/(�d(Gg%,Fg%,g%)*�a(Gg%,Fg%,g%)))*100
*�&�(8-��(f));�(f);�(10);:�Gg%:�dc%�
*�@@%=16908810:�"Totals";�(39-��(ua));ua;�(18-��(va));va;�(10);
+�
+ �Pa%>0��(10);:�(10);
+�
+ A�Fg%:�("SPOOL"):�("SETTYPE "+u$+" FFF"):C$=u$:ș263873:@%=0:�
+*��Pa(v$):�(�p(v$))��
+4�ș263872:�50000,0:�("SPOOL "+v$):�"Share Entry History: ";��b(Hg%,Ig%,Q%));�(10);:�(10);:�" NUMBER OF PURCHASE PURCHASE CURRENT CURRENT NET PERCENTAGE";�(10);
+>��"YEAR MONTH UNITS HELD PRICE(�) VALUE(�) PRICE(�) VALUE(�) GAIN(�) GAIN(%)";�(10);:Jg%=-1:wa=�:xa=�:ya=�:za=1000:Aa=0:Ba=0:Ȏbb%�
+H�0:Kg%=0:Lg%=11
+R�1:Kg%=12:Lg%=23
+\�2:Kg%=24:Lg%=35
+f�3:Kg%=0:Lg%=35
+p�
+zP�K%=Kg%�Lg%:�W%=0�n%(Q%,K%):Ca=�:Da=�:Ea=�:�b(Hg%,Ig%,Q%))=��b(W%,K%,Q%))�
+�3�(10);:Jg%+=1:�c(W%,K%,Q%)>Aa�Aa=�c(W%,K%,Q%)
+�$�c(W%,K%,Q%)<za�za=�c(W%,K%,Q%)
+�BBa+=�c(W%,K%,Q%):@%=0:�K%�12=0��wa�wa=�:��((Z%-2)+K%�12);:Ca=�
+�,�K%�12=1��xa�xa=�:��((Z%-2)+K%�12);:Da=�
+�,�K%�12=2��ya�ya=�:��((Z%-2)+K%�12);:Ea=�
+��Ca�Da�Ea��" ";
+���" ";�g(K%);�(11-�(�g(K%)));:@%=7:�a(W%,K%,Q%);" ";:@%=16908808:�d(W%,K%,Q%);:�" ";�a(W%,K%,Q%)*�d(W%,K%,Q%);:�c(W%,K%,Q%);:�" ";�a(W%,K%,Q%)*�c(W%,K%,Q%);
+�a�(�a(W%,K%,Q%)*�c(W%,K%,Q%))-(�a(W%,K%,Q%)*�d(W%,K%,Q%));" ";:�(�a(W%,K%,Q%)*�d(W%,K%,Q%))=0�
+��0
+�a�:�((�a(W%,K%,Q%)*�c(W%,K%,Q%))-(�a(W%,K%,Q%)*�d(W%,K%,Q%)))/(�a(W%,K%,Q%)*�d(W%,K%,Q%))*100;
+��
+�-�:�b(Hg%,Ig%,Q%))=��b(W%,K%,Q%))�Jg%+=1
+��
,@�:�:@%=0:�("SPOOL"):�("SETTYPE "+v$+" FFF"):H$=v$:ș263873:�
,��La(w$):�(�p(w$))��
,*ș263872:C%=�(w$):�Ic%=1�Mg%=l%�Mg%=O%
,$�i%=0�Mg%:@%=0:ȎIc%�
,.*�1:x%=!(uc%+8*i%):n=!(uc%+8*i%+4)*0.01
,8.�2:x%=!(pc%+32*i%):n=!(pc%+32*i%+Wc%)*0.01
,B�
,Lvca$=�g(x%)+" "+�q(x%):@%=16908810:�#C%,""""+ca$+""""+","+�(n):�:�#C%:�("SETTYPE "+w$+" DFE"):F$=w$:ș263873:@%=0:�
,V��Ma(x$):�(�p(x$))��
,`Gș263872:D%=�(x$):�kc:�#D%:�("SETTYPE "+x$+" AFF"):G$=x$:ș263873:�
,j���kc:k=256:�d(&77617244):�d(201):�d(0):�lc("Investor"):�d(0):�d(0):�d(1280*k):�d(1280*k):j%=0:E%=564:@%=0:Rc%=�:F=0:Qc%=�f(120):ȎIc%�
,tV�1:r%=l%:r=u:i=v:s=P:Tc%=�(Wa%=0):Uc%=�(Wa%=4):�u-v=0�a=350/u�a=350/(u-(v*�(Sc%)))
,~(F=!(uc%+8*(Oc%-1)+4)*0.01-(i*�(Sc%))
,�W�2:r%=O%:r=C:i=G:s=na:Tc%=�(Vc%=0):Uc%=�(Vc%=4):�C-G=0�a=350/C�a=350/(C-(G*�(Sc%)))
,�+F=!(pc%+32*(Oc%-1)+Wc%)*0.01-(i*�(Sc%))
,��
,��Mc%=1�Xc%=��Xc%=�
,��i%=0�r%:ȎIc%�
,�*�1:x%=!(uc%+8*i%):n=!(uc%+8*i%+4)*0.01
,�.�2:x%=!(pc%+32*i%):n=!(pc%+32*i%+Wc%)*0.01
,��
,�
�Sc%�n-=i
,� �n<0�n=0
,�
ȎMc%�
,�
�0:ȎYc%�
- ��0:�mc(j%+160+U%*0.5+(U%*i%),E%-424,j%+160+U%*0.5+(U%*i%),(n*a)+E%-424,�i(6),0,U%):�F(j%+160+(U%*i%),E%-424,j%+160+(U%*i%),(n*a)+E%-424,�i(7),0)
-
��F(j%+160+(U%*i%),(n*a)+E%-424,j%+160+(U%*(i%+1)),(n*a)+E%-424,�i(7),0):�F(j%+160+(U%*(i%+1)),E%-424,j%+160+(U%*(i%+1)),(n*a)+E%-424,�i(7),0):�G(��g(x%),3),j%+160+�f(24)+(U%*i%),E%-460,0)
-6�G(�((Z%-2)+x%�12),j%+160+�f(16)+(U%*i%),E%-494,0)
-
�1:�Rc%�
-(gRc%=�:�nc(j%+160,E%-424,j%+160+�f(240),E%-224,j%+160+�f(240),E%-424+600,j%+160,E%-24,�i(12),�i(12))
-2x�nc(j%+160,E%-424,j%+160+�f(240),E%-224,j%+160+�f(360)+(Qc%*r%),E%-224,j%+160+�f(120)+(Qc%*r%),E%-424,�i(11),�i(11))
-<�
-FU�mc(j%+160+U%*0.5+(Qc%*i%),E%-424,j%+160+U%*0.5+(Qc%*i%),(n*a)+E%-424,�i(8),0,U%)
-P��nc(j%+160+(Qc%*i%),E%-424+(n*a),j%+160+U%+(Qc%*i%),E%-424+(n*a),j%+160+�f(124)+(Qc%*i%),E%-400+(n*a),j%+160+�f(24)+(Qc%*i%),E%-400+(n*a),�i(10),�i(10))
-Z��nc(j%+160+U%+(Qc%*i%),E%-424,j%+160+�f(124)+(Qc%*i%),E%-400,j%+160+�f(124)+(Qc%*i%),E%-400+(n*a),j%+160+U%+(Qc%*i%),E%-424+(n*a),�i(9),�i(9)):�G(��g(x%),3),j%+160+�f(24)+(Qc%*i%),E%-460,0)
-d7�G(�((Z%-2)+x%�12),j%+160+�f(16)+(Qc%*i%),E%-494,0)
-n�
-x
�1:�i%>0�
-�K�F(j%+160+(U%*(i%-1)),E%-424+(F*a),j%+160+(U%*i%),(n*a)+E%-424,�i(5),0)
-��
-�Z�G(��g(x%),3),j%+132+(U%*i%),E%-460,0):�G(�((Z%-2)+x%�12),j%+124+(U%*i%),E%-494,0):F=n
-��
-���:_c%=�f((100+(20*�(Rc%)))*(r%+1)-(98*�(Xc%))):�F(j%+160,E%-424,j%+160,E%+20,�i(1),0):�F(j%+160,E%-424,j%+160+_c%,E%-424,�i(0),0):j=v*�(Sc%):j%+=6:Ȏ`c%�
-��ɹ:ad%=_c%-20:�F(j%+160,E%-424+(r-j)*a,j%+168+ad%,E%-424+(r-j)*a,�i(2),0):�F(j%+160,E%-424+(i-j)*a,j%+168+ad%,E%-424+(i-j)*a,�i(4),0)
-���F(j%+160,E%-424+(s-j)*a,j%+168+ad%,E%-424+(s-j)*a,�i(3),0):j%-=6:@%=16908810:�G("�"+�(r),j%+132-(16*�(�(r))),E%-412+(r-j)*a,�i(2)):�G("�"+�(i),j%+132-(16*�(�(i))),E%-412+(i-j)*a,�i(4))
-�9�G("�"+�(s),j%+132-(16*�(�(s))),E%-412+(s-j)*a,�i(3))
-�ɣ
-��
-�ș262374,7:@%=0:�
-�J��F(o,p,m,l,Ng%,Og%):o=o*k:m=m*k:p=p*k:l=l*k:�d(2):�d(68):�m<o�w=m�w=o
-��l<p�z=l�z=p
.�o>m�A=o�A=m
.�p>l�B=p�B=l
.c�d(w):�d(z):�d(A):�d(B):�d(Og%):�d(Ng%):�d(0):�d(0):�d(2):�d(o):�d(p):�d(8):�d(m):�d(l):�d(0):�
."O��mc(o,p,m,l,Ng%,Og%,Lc%):o=o*k:m=m*k:p=p*k:l=l*k:�d(2):�d(68):�m<o�w=m�w=o
.,�l<p�z=l�z=p
.6�o>m�A=o�A=m
.@�p>l�B=p�B=l
.Jg�d(w):�d(z):�d(A):�d(B):�d(Og%):�d(Ng%):�d(Lc%*k):�d(0):�d(2):�d(o):�d(p):�d(8):�d(m):�d(l):�d(0):�
.T*��G(c$,x,y,Ng%):�(�(c$)�4)=0�c$+=" "
.^�(�(c$)�4)=1�c$+=" "
.h�(�(c$)�4)=2�c$+=" "
.r�c$+=�0:Fa=�(c$)�4:Fa=(Fa+1)*4:x=x*k:y-=32:y=y*k:�d(1):�d(48+Fa):�d(x):�d(y):�d(x+�(c$)*40*k):�d(y+40*k):�d(Ng%):�d(-256):�d(0):�d(16*k):�d(32*k):�d(x):�d(y):�oc(c$):�pc:�
.|x��nc(o,p,m,l,J,K,L,M,Ng%,Og%):o=o*k:m=m*k:p=p*k:l=l*k:J=J*k:L=L*k:K=K*k:M=M*k:�d(2):�d(104):w=o:A=o:z=p:B=l:�m<w�w=m
.� �J<w�w=J
.� �L<w�w=L
.� �m>A�A=m
.� �J>A�A=J
.� �L>A�A=L
.� �l<z�z=l
.� �K<z�z=K
.� �M<z�z=M
.� �l>B�B=l
.� �K>B�B=K
.� �M>B�B=M
.��d(w):�d(z):�d(A):�d(B):�d(Og%):�d(Ng%):�d(0):�d(0):�d(2):�d(o):�d(p):�d(8):�d(m):�d(l):�d(8):�d(J):�d(K):�d(8):�d(L):�d(M):�d(8):�d(o):�d(p):�d(0):�
.�Q��d(A%):�#D%,A%�255:�#D%,(A%>>>8)�255:�#D%,(A%>>>16)�255:�#D%,(A%>>>24)�255:�
/>��lc(A$):�A%:A$=A$+�12," "):�A%=1�12:�#D%,�(�A$,A%,1)):�:�
/2��oc(A$):�A%:�A%=1��(A$):�#D%,�(�A$,A%,1)):�:�
/ ��pc:ȕ�#D%�3:�#D%,0:�:�
/&��Na(y$):�(�p(y$))��
/0��50000,0:�("SPOOL "+y$):�"Portfolio Dividends: ";a$(I%);�(10);:�(10);:�" DIVIDEND TAX NET";�(10);
/:��"STOCK NAME YEAR MONTH AMOUNT (�) CREDIT (�) DIVIDEND (�)";�(10);�(10);:�u%=0�v%(I%):xc%=!(b%(I%)+36*u%+24):z$=�$(b%(I%)+36*u%)):�u%>0�
/D#�z$=�$(b%(I%)+36*(u%-1)))�z$=""
/N�
/X�z$;:@%=0:�xc%>-1�
/bA�(25-�(z$));xc%�12+Z%-2;" ";�g(xc%);�(10-�(�g(xc%)));�(1);
/l�
/v&@%=16908807:�!(b%(I%)+36*u%+28)>0�
/�#�!(b%(I%)+36*u%+28)*0.001;�(6);
/��
/��!(b%(I%)+36*u%+32)>0�
/�#�!(b%(I%)+36*u%+32)*0.001;�(7);
/��
/�/�!(b%(I%)+36*u%+28)>0�!(b%(I%)+36*u%+32)>0�
/�;�(!(b%(I%)+36*u%+28)*0.001)-(!(b%(I%)+36*u%+32)*0.001);
/��
/�=�(10);:�:@%=0:�("SPOOL"):�("SETTYPE "+y$+" FFF"):I$=y$:�
/�$��Aa(q%,Pg%):�q%!12=0�q%!40=256�
/�H!q%=20:q%!12=wa%:q%!16=4:ș262375,17,q%,va%:�la(q%!20,�h(q%+44),Pg%)
/��
/��
0P��la(Qg%,da$,Pg%):Rg%=�:B$=da$:R%=Qg%:�Ab%=0�5:�a%(Ab%)=R%�a%(Ab%)<>0�R%=Ab%
0 �:�R%<0�R%>5�Pg%=5�R%=�y
0
�R%=6�
0 $�q("No portfolios available."):�
0*��:�e%(R%)��S(3,"This portfolio contains unsaved data: are you sure you want to load the portfolio and overwrite the current portfolio?","Load"):�
04�
0> �Db:�
0HC��qc:�#L%:�q("Error whilst loading portfolio file."):�B(4,R%):�
0R#��Db:�V$,Sg%,Ga,Ha:�:��:�qc:�
0\Bș263872:ș8,5,B$�,,,,Cg%:�ab:L%=�(B$):�#L%,Tg%:�Tg%<>Z%�Rg%=�
0fs�#L%,e$(R%):�yg%=0�35:�#L%,n%(R%,yg%):�:�Ug%=0�35:s%(R%,Ug%)=�k(s%(R%,Ug%),36*n%(R%,Ug%)+36,T%):�T%��B(4,R%):�
0p�n%(R%,Ug%)>0�
0z��Bg%=0�n%(R%,Ug%)-1:�#L%,V$:$(s%(R%,Ug%)+36*Bg%)=V$+"0":�#L%,Sg%:!(s%(R%,Ug%)+36*Bg%+24)=Sg%:�#L%,Ga:!(s%(R%,Ug%)+36*Bg%+28)=Ga*1000:�#L%,Ha:!(s%(R%,Ug%)+36*Bg%+32)=Ha*1000:�
0��
0� �:�#L%,v%(R%):�v%(R%)>-1�
0�9�qg%=0�v%(R%):b%(R%)=�k(b%(R%),36,T%):�T%��B(4,R%):�
0���#L%,M$:�#L%,Vg%:�#L%,sa:�#L%,ta:$(b%(R%)+36*qg%)=M$:!(b%(R%)+36*qg%+24)=Vg%:!(b%(R%)+36*qg%+28)=sa*1000:!(b%(R%)+36*qg%+32)=ta*1000:�
0��
0��#L%:�Rg%��rc(Z%-Tg%)
0�;ș263873:h%(R%)=�:b$(R%)=B$:�c%(R%)=0��l(0,R%):c%(R%)=1
0�ve%(R%)=�:d$(R%)=�(Cg%)+" bytes":a$(R%)=�r(B$):�v(R%,a$(R%),1):i%(R%)=176+(n%(R%,d%(R%))*40):�i%(R%)<456�i%(R%)=456
0� �a%(37)<>0�!q%=a%(37):�r(q%)
0� �`(R%):�I(R%):�D:�ic(R%):�
0���rc(Wg%):�
0���f(w%):�a%(w%)<>0:�
0� ș262337,,j%(w%)�a%(w%):�
1��g(n%):�a%(n%)=0��
1A!G%=a%(n%):ș262339,,G%:�n%<6�c%(n%)=0:�sc(n%):�Gb%=n%��g(21)
1 Ȏn%�
1$�16:ob%=�:�g(15)
1.�17:eb%=100:�g(43)
18�21:Gb%=-1
1B<�28:qf%=1:pf%=0:sf%=1:rf%=0:�E(uc%):Za%=-1:�Ic%=1��g(39)
1L�36:pb%=�:�g(37)
1V#�38:�E(pc%):Q%=-1:�Ic%=2��g(39)
1`�39:Ic%=0:U%=100
1j�
1ta%(n%)=0:�
1~ ��pa:�Lb%=0�42:�!q%=a%(Lb%)�
1�!a%(Lb%)=0:ș262339,,q%:ȎLb%�
1��16:ob%=�:�g(15)
1� �17:�g(17):eb%=100:�g(43)
1��21:Gb%=-1
1�<�28:qf%=1:pf%=0:sf%=1:rf%=0:�E(uc%):Za%=-1:�Ic%=1��g(39)
1��36:pb%=�:�g(37)
1�#�38:�E(pc%):Q%=-1:�Ic%=2��g(39)
1��39:Ic%=0:U%=100
1��
1��Lb%<6��tc(Lb%)
1��
1��:�
2 Z��tc(w%):ș262351,,G%:�G%!8=1�b$(w%)<>""��b$(w%),".")>0��("FILER_OPENDIR "+�B(b$(w%)))
2
8c%(w%)=0:�sc(w%):�w%=jd%��g(17):�g(15):�g(16):jd%=-1
2�Gb%=w%��g(21)
2 �
2(1��sc(Wg%):�ub%=Wg%�Bb%=-1:Y%=-1:Lf%=-1:Mf%=-1
22c%(Wg%)=0:Md%=�:�
2<I��Ua(q%):�Z(q%):`b%=q%!28-j%:Wb%=q%!32-E%:ac%=q%!36-j%:Ub%=q%!40-E%:�
2F*��Z(q%):j%=q%!4-q%!20:E%=q%!16-q%!24:�
2P���N(sb%,Xg%):�y%:Y%=sb%:Q$=��b(Y%,d%(g%),g%)):Ta%=�a(Y%,d%(g%),g%):I=�d(Y%,d%(g%),g%):H=�c(Y%,d%(g%),g%):!q%=a%(Xg%):!G%=!q%:ș262348,,G%:�tb%�
2Z<y%=G%!56-12-(sb%+4)*40:ș262353,!G%,G%!44,y%-44,G%!52,y%
2d>�:y%=G%!56-20-(sb%+4)*40:ș262353,!G%,G%!44,y%-32,G%!52,y%
2n�
2x�
2�_��bb(Yg%):�y%:!G%=a%(37):ș262348,,G%:y%=G%!56-4-Yg%*40:ș262353,!G%,G%!44,y%-32,G%!52,y%:�
2�c��_(Zg%):�y%:!G%=a%(41):ș262348,,G%:y%=G%!56-20-(Zg%+4)*40:ș262353,!G%,G%!44,y%-32,G%!52,y%:�
2�!��ub:�n%(Fc%,(Cc%*12)+Dc%)>0�
2�;�k%=0�n%(Fc%,(Cc%*12)+Dc%)-1:�Hc%?k%=1�Hc%?k%=0:�bb(k%)
2��
2��
2��
2����ga:�_g%29439,`g%15409:ah%=_g%:bh%=`g%:ch%=`g%+15409:ș262361,,"<Investor$Dir>.Templates":w%=0:ȕw%<44:$da%=�(w%):ș262363,,ah%,bh%,ch%,-1,da%,0�,,bh%:j%(w%)=ah%:ah%+=88+32*(ah%!84):�w%<>9�j%(w%)!64=ha%
2�:k%(0,w%)=j%(w%)!0:k%(1,w%)=j%(w%)!4:w%+=1:�:ș262362:�
2����ca:Id%=0:Jd%=0:Y%=-1:Mf%=-1:ob%=�:Pa%=0:bb%=0:Oa%=0:Md%=�:qf%=1:pf%=0:sf%=1:rf%=0:_d%=�:Zd%=0:od%=0:Ga%=0:`d%=0:ce%=0:ve%=�:de%=0:ie%=0:je%=0:qe%=0:re%=0:kf%=0:jf%=0:ge%=0:he%=0:oe%=0:ma%=0
2�pe%=0:Fc%=0:ue%=0:eb%=100:qb%=-1:lf%=0:mf%=0:tb%=�:Dd%=�:U%=100:pb%=�:Sc%=�:`c%=�:ic%=�:ug%=�:id%=�:nf%=1:Wa%=-1:Ic%=0:ng%=0:Xa%=0:Ya%=0:Cb%=-1:of%=1:ub%=-1:Yc%=0:Za%=0:jd%=-1:Mc%=0:Gb%=-1
2�xe%=�:Cd%=-1:Ed%=-1:Bb%=-1:yd%=0:xa%=-1:v=0:u=0:D=0.01:E=0.01:Jb%=�:Ua%=10:kd%=-1:G$="DrawFile":P=0:g%=0:uc%=-1:pc%=-1:Kb%=0:qc%=�:C$="TextFile":H$="History":F$="CSVFile":dh%=-1
2�|Hc%=-1:gb%=-1:Gd%=-1:N%=&572A1FBD:I$="Dividends":Za%=-1:Q%=-1:h$="Trinity.Medium":la%=�:M%=-1:va%=-1:wa%=-1:T%=�:v%=-1:�
3���da:�s%(5,35),n%(5,35),d%(5),a$(5),e%(5),i%(5),c%(5),e$(5),d$(5),b$(5),h%(5),b%(5),f%(12),g%(12),a%(43),j%(43),v%(5),c$(256),k%(1,43):@%=0:�k%=0�5
3�v%(k%)=-1:b%(k%)=-1:c%(k%)=0:e%(k%)=�:h%(k%)=�:i%(k%)=456:a$(k%)=�(N%):b$(k%)="Portfolio":e$(k%)=��$,15):d$(k%)="0 bytes":�:�
3=��Ia:�i(17,21.4*qa%*eb%,15.4*eb%,0,0):!q%=a%(17):�r(q%):�
3"��Ja:ȎIc%�
3,$�1:�i(39,564,310+(�n*l%+�o),0,0)
36$�2:�i(39,564,310+(�n*O%+�o),0,0)
3@�
3J!q%=a%(39):�r(q%):�
3T^��i(w%,eh%,Lc%,fh%,gh%):!q%=fh%:q%!4=-eh%:q%!8=Lc%:q%!12=gh%:ș262359,a%(w%),q%:�l(1,w%):�
3^G��uc(n%,hh%):!q%=0:q%!4=-hh%:q%!8=1510:q%!12=0:ș262359,a%(n%),q%:�
3h ��I(ih%):�n%(ih%,d%(ih%))<7�
3ri%(ih%)=456
3|&�:i%(ih%)=214+(n%(ih%,d%(ih%))*40)
3��
3��uc(ih%,i%(ih%)):�
3�"��v(n%,N$,o%):�a%(n%)=0��f(n%)
3��Wa%>4�n%=39�Ic%=1�
3�
ȎWa%�
3�:�5:N$="'"+a$(Za%)+"' Total Current Value History: "+�u
3�;�6:N$="'"+a$(Za%)+"' Total Purchase Value History: "+�u
3��
3��
3�.!G%=a%(n%):ș262348,,G%:$(G%!76)=N$:�o%=1�
3� ș262342,,G%:ș262341,,G%
3��
3��
4R��ea:jh%=�:kh%=8*1024:ș262380,-1,-1�lh%:ș262380,lh%+kh%,-1:ș29,0,jh%,,kh%:�
4@ݤM(mh%):�df%,T%,nh%,oh%:nh%=�:�:ș29,1,jh%�,,oh%:�oh%>=mh%�
4 ș29,2,jh%,,mh%�,,df%:T%=�
4& �:nh%=�F
40�
4:��T%�nh%:�nh%�ph%=�:�q("Investor is unable to claim any more memory. To free some memory, either quit other applications or reallocate.")
4D=df%
4N8ݤk(df%,mh%,�ph%):�T%,nh%,qh%:ph%=�:�df%<=0�=�M(mh%)
4XEnh%=�:�:ș131101,4,jh%,df%,mh%�,,qh%;T%:T%=((T%�1)=0):�T%�nh%=�F
4b��T%�nh%:�nh%�ph%=�:�q("Investor is unable to claim any more memory. To free some memory, either quit other applications or reallocate.")
4l=qh%
4vVݤF:�nh%,rh%:ș393452,lh%+kh%+8*1024,-1�rh%;nh%:nh%=((nh%�1)=1):�rh%=lh%+kh%�nh%=�
4�
�nh%�
4�"kh%+=8*1024:ș29,5,jh%,,8*1024
4��
4�=nh%
4�#��E(�df%):�df%>0�ș29,3,jh%,df%
4� df%=0:�
4�L��Fb(d%):v%(I%)=n%(Ff%,d%)-1:�i%=0�v%(I%):b%(I%)=�k(b%(I%),36,T%):�T%��
4Ƨ$(b%(I%)+36*i%)=$(s%(Ff%,d%)+36*i%):!(b%(I%)+36*i%+24)=-1:!(b%(I%)+36*i%+28)=-1:!(b%(I%)+36*i%+32)=-1:�:!q%=a%(41):�r(q%):�v%(I%)>5��i(41,254+(40*v%(I%)),1236,0,0)
4��
4�E��Yb(sh%):Wa%=sh%:Za%=g%:Ya%=d%(g%):Xa%=Y%:�f(28):�ec(sh%):�l%>0�
4�`l%-=1:�v(28,"Formatted view: "+a$(g%),1):�Wa%<5�$�t(28,0)=��b(Xa%,Ya%,Za%))�$�t(28,0)=a$(g%)
4�8�l%>14��i(28,214+(40*l%),500,0,0)��i(28,776,500,0,0)
4��a%(39)<>0��fc(Ic%)
5�
5 �
5=��ec(t%):ș263872:n=0:l%=0:v=999999:u=-999999:Ia=0:ȎWa%�
5 3�0:$�t(28,3)="NUMBER OF":$�t(28,4)="UNITS HELD"
5*0�1:$�t(28,3)="CURRENT":$�t(28,4)="PRICE (�)"
540�2:$�t(28,3)="CURRENT":$�t(28,4)="VALUE (�)"
5>+�3:$�t(28,3)="NET":$�t(28,4)="GAIN (�)"
5H2�4:$�t(28,3)="PERCENTAGE":$�t(28,4)="GAIN (%)"
5R0�5:$�t(28,3)="CURRENT":$�t(28,4)="VALUE (�)"
5\1�6:$�t(28,3)="PURCHASE":$�t(28,4)="VALUE (�)"
5f�
5p
Ȏqf%�
5z
�0:Ȏsf%�
5��0:th%=0:uh%=11
5��1:th%=12:uh%=23
5��2:th%=24:uh%=35
5��
5��1:th%=0:uh%=35
5��
5� Ȏt%�
5�Q�0,1,2,3,4:�x%=th%�uh%:�z%=0�n%(Za%,x%)-1:�b(Xa%,Ya%,Za%))=��b(z%,x%,Za%))�
5�'uc%=�k(uc%,8,T%):J%=uc%+8*l%:�T%��
5�!J%=x%:Ȏt%�
5��0:n=�a(z%,x%,Za%)
5��1:n=�c(z%,x%,Za%)
5�$�2:n=�a(z%,x%,Za%)*�c(z%,x%,Za%)
6D�3:n=(�a(z%,x%,Za%)*�c(z%,x%,Za%))-(�a(z%,x%,Za%)*�d(z%,x%,Za%))
6O�4:�d(z%,x%,Za%)=0�n=0�n=(�c(z%,x%,Za%)-�d(z%,x%,Za%))/(�d(z%,x%,Za%))*100
6�
6$!(J%+4)=n*100:�n>u�u=n
6. �n<v�v=n
68Ia+=n:l%+=1
6B�
6L�:�
6V(�5,6:�x%=th%�uh%:n=0:�n%(Za%,x%)<>0�
6`[�z%=0�n%(Za%,x%)-1:�Wa%=5�n+=�c(z%,x%,Za%)*�a(z%,x%,Za%)�n+=�d(z%,x%,Za%)*�a(z%,x%,Za%)
6j+�z%:uc%=�k(uc%,8,T%):J%=uc%+8*l%:�T%��
6t#!(J%)=x%:!(J%+4)=n*100:�n>u�u=n
6~ �n<v�v=n
6�Ia+=n:l%+=1
6��
6��
6��
6�
�l%=0�
6� �q("No information found.")
6�
�:P=Ia/l%
6��
6�@%=0:ș263873:�
6����_b(vh%):�f(38):�v(38,"Share Entry History: "+a$(g%),1):$�t(38,0)=��b(vh%,d%(g%),g%)):�vc(vh%,d%(g%),g%):�l(1,38):!q%=a%(38):�r(q%):�O%>6�qc%��i(38,214+(40*O%)+(664*�(qc%)),1570,48,0)��i(38,456,1570,48,0)
6��
6����vc(wh%,xh%,yh%):ș263872:O%=0:Hg%=wh%:Ig%=xh%:Q%=yh%:sc%=99999999:rc%=-999999999:tc%=0:Y=99999999:X=-999999999:R=0:_=99999999:Z=-999999999:S=0:ca=99999999:`=-999999999:T=0:ea=99999999:da=-999999999:U=0:ga=99999999:fa=-999999999:V=0
7 \ia=99999999:ha=-999999999:W=0:�K%=0�35:�W%=0�n%(Q%,K%):�b(Hg%,Ig%,Q%))=��b(W%,K%,Q%))�
7
)pc%=�k(pc%,32,T%):J%=pc%+32*O%:�T%��
7>!(J%)=K%:zh%=�a(W%,K%,Q%):!(J%+4)=zh%*100:�zh%<sc%�sc%=zh%
7 �zh%>rc%�rc%=zh%
7(2tc%+=zh%:b=�d(W%,K%,Q%):!(J%+8)=b*100:�b<Y�Y=b
72 �b>X�X=b
7<<R+=b:b=�a(W%,K%,Q%)*�d(W%,K%,Q%):!(J%+12)=b*100:�b<_�_=b
7F �b>Z�Z=b
7P1S+=b:b=�c(W%,K%,Q%):!(J%+16)=b*100:�b<ca�ca=b
7Z �b>`�`=b
7d>T+=b:b=�c(W%,K%,Q%)*�a(W%,K%,Q%):!(J%+20)=b*100:�b<ea�ea=b
7n�b>da�da=b
7xMU+=b:b=�a(W%,K%,Q%)*(�c(W%,K%,Q%)-�d(W%,K%,Q%)):!(J%+24)=b*100:�b<ga�ga=b
7��b>fa�fa=b
7�OV+=b:�d(W%,K%,Q%)=0�N=0�N=(�c(W%,K%,Q%)-�d(W%,K%,Q%))/(�d(W%,K%,Q%))*10000
7�#!(J%+28)=N:�N*0.01<ia�ia=N*0.01
7��N*0.01>ha�ha=N*0.01
7�W+=N*0.01:O%+=1
7��
7�R�:�:tc%=tc%/O%:R=R/O%:S=S/O%:T=T/O%:U=U/O%:V=V/O%:W=W/O%:O%-=1:@%=0:ș263873:�
7� ��gc(Ah%):Vc%=Ah%:ȎVc%�
7� �0:Wc%=4
7�
�1:Wc%=16
7�
�2:Wc%=20
7�
�3:Wc%=24
7�
�4:Wc%=28
8�
8KG=999999999:C=-999999999:Ja=0:�i%=0�O%:O=!(pc%+32*i%+Wc%)*0.01:�O>C�C=O
8 �O<G�G=O
8" Ja+=O:�:na=Ja/(O%+1):�E�
8, �fc(Ic%)
86<�:�q("Investor cannot plot this data."):�a%(39)>0��g(39)
8@�
8J�
8T��fc(Bh%):ȎBh%�
8^U�1:�v(39,��b(Xa%,Ya%,Za%))+" Share History: "+�u,1):�i(39,564,310+(�n*l%+�o),0,0)
8hT�2:�v(39,��b(Hg%,Ig%,Q%))+" Share History: "+�u,1):�i(39,564,310+(�n*O%+�o),0,0)
8r�
8|!q%=a%(39):�r(q%):�
8�'��cb:�c%(0)=0�c%(0)=1:Hd%=0:�Q(0):�
8�"�c%(1)=0�c%(1)=1:Hd%=1:�Q(1):�
8�"�c%(2)=0�c%(2)=1:Hd%=2:�Q(2):�
8�"�c%(3)=0�c%(3)=1:Hd%=3:�Q(3):�
8�"�c%(4)=0�c%(4)=1:Hd%=4:�Q(4):�
8�"�c%(5)=0�c%(5)=1:Hd%=5:�Q(5):�
8�Md%=�:Hd%=-1:�
8�5��Q(Ch%):@%=0:�a$(Ch%)=�(N%)�a$(Ch%)="<untitled>"
8��
8�,��l(d%,n%):�n%<6�d%=0�d%(n%)=�x(Kd%,Ld%)
8��d%=0�f(n%)
8�'!q%=a%(n%):ș262347,,q%:�n%<6�d%=0�
8��Dh%=q%!12-q%!4:Eh%=q%!16-q%!8:q%!4=(80*n%)+2:q%!8=ta%-40-Eh%-68*n%:q%!12=q%!4+Dh%:q%!16=q%!8+Eh%:q%!20=0:q%!24=0:q%!28=-1:�`(n%):�e%(n%)�g$=" *"�g$=""
9�v(n%,a$(n%)+g$,0)
9�:�n%<>15�n%<>37�
9 uEh%=q%!16-q%!8:q%!4=k%(0,n%):q%!8=ta%-(1020-k%(1,n%)):q%!16=q%!8+Eh%:�q%!16>ta%�q%!8-=(q%!16-ta%+40):q%!16=ta%-40
9&�
90�
9:�q%!32�65536�q%!28=-1
9Dș262341,,q%:�
9N��D:Fh%=�:�kf%=0��
9Xș263872:Ȏmf%�
9b*�0:Gh%=g%:Hh%=g%:Ih%=d%(g%):Jh%=d%(g%)
9l!�1:Gh%=g%:Hh%=g%:Ih%=0:Jh%=35
9v �2:Gh%=0:Hh%=5:Ih%=0:Jh%=35
9��
9���n%=Gh%�Hh%:�o%=Ih%�Jh%:�ub%=n%�Cb%=o%�Kh%=n%:Lh%=o%:Fh%=�:W$=�$(s%(n%,o%)+36*Y%)):ea$=�$(s%(n%,o%)+36*Y%)):$(s%(n%,o%)+36*Y%)=W$+"2":�K(n%)
9�
Ȏkf%�
9�&�1:�n%(n%,o%)>1��wc(0,n%(n%,o%)-1)
9�&�2:�n%(n%,o%)>1��xc(0,n%(n%,o%)-1)
9�&�3:�n%(n%,o%)>1��yc(0,n%(n%,o%)-1)
9�&�4:�n%(n%,o%)>1��zc(0,n%(n%,o%)-1)
9�&�5:�n%(n%,o%)>1��Ac(0,n%(n%,o%)-1)
9��
9��:�Fh%��Bc
9�%�a%(n%)<>0��Fh%�!q%=a%(n%):�r(q%)
9��:ș263873:�
9����Bc:�Mh%=0�n%(Kh%,Lh%)-1:��$(s%(Kh%,Lh%)+36*Mh%))="2"�Y%=Mh%:$(s%(Kh%,Lh%)+36*Mh%)=W$+ea$:Eb%=Lh%:Fb%=Kh%:Db%=Mh%:�Y(Kh%,Mh%):�Ha
:!�:�a%(n%)>0�!q%=a%(n%):�r(q%)
: �
:g��wc(kc%,lc%):�Nh%=kc%�lc%:Oh%=Nh%:�Ph%=Nh%�lc%:�($(s%(n%,o%)+36*Ph%))<($(s%(n%,o%)+36*Oh%))Oh%=Ph%
: �:�T(Nh%,Oh%):�:�
:*���yc(kc%,lc%):�Nh%=kc%�lc%:Oh%=Nh%:�Ph%=Nh%�lc%:�!(s%(n%,o%)+36*Ph%+32)*!(s%(n%,o%)+36*Ph%+24)>!(s%(n%,o%)+36*Oh%+32)*!(s%(n%,o%)+36*Oh%+24)Oh%=Ph%
:4�:�T(Nh%,Oh%):�:�
:>i��zc(kc%,lc%):�Nh%=kc%�lc%:Oh%=Nh%:�Ph%=Nh%�lc%:�!(s%(n%,o%)+36*Ph%+32)>!(s%(n%,o%)+36*Oh%+32)Oh%=Ph%
:H�:�T(Nh%,Oh%):�:�
:R3��xc(kc%,lc%):dh%=�k(dh%,4*n%(n%,o%),T%):�T%��
:\��yg%=0�n%(n%,o%)-1:Ka=!(s%(n%,o%)+36*yg%+28):�Ka=0�dh%!(4*yg%)=!(s%(n%,o%)+36*yg%+32)*10000�dh%!(4*yg%)=100000*(!(s%(n%,o%)+36*yg%+32)-!(s%(n%,o%)+36*yg%+28))/(Ka)
:fG�:�Nh%=kc%�lc%:Oh%=Nh%:�Ph%=Nh%�lc%:�dh%!(4*Ph%)>dh%!(4*Oh%)Oh%=Ph%
:p\�:xb%=dh%!(4*Nh%):dh%!(4*Nh%)=dh%!(4*Oh%):dh%!(4*Oh%)=xb%:�T(Nh%,Oh%):�:�E(dh%):dh%=-1:�
:z'��Ac(kc%,lc%):�o%=0�n%(n%,o%-1)=0��
:�%dh%=�k(dh%,4*n%(n%,o%),T%):�T%��
:���yg%=0�n%(n%,o%)-1:dh%!(4*yg%)=0:�zg%=0�n%(n%,o%-1)-1:�$(s%(n%,o%)+36*yg%))=�$(s%(n%,o%-1)+36*zg%))�dh%!(4*yg%)=(!(s%(n%,o%)+36*yg%+32)-!(s%(n%,o%-1)+36*zg%+32))*1000
:�I�:�:�Nh%=kc%�lc%:Oh%=Nh%:�Ph%=Nh%�lc%:�dh%!(4*Ph%)>dh%!(4*Oh%)Oh%=Ph%
:�\�:xb%=dh%!(4*Nh%):dh%!(4*Nh%)=dh%!(4*Oh%):dh%!(4*Oh%)=xb%:�T(Nh%,Oh%):�:�E(dh%):dh%=-1:�
:�?��T(a%,b%):A%=s%(n%,o%)+36*a%:B%=s%(n%,o%)+36*b%:C%=0:�ra:�
:�6��jb:qa%=1:�n%(jd%,kd%)>35�qa%+=(n%(jd%,kd%)+4)�40
:�7Qh%=�($(�t(15,40))):n$=$(�t(15,21)):�n%(jd%,kd%)>0�
:�k�a%(17)<>0��i(17,21.4*qa%*eb%,15.4*eb%,0,0):!q%=a%(17):�r(q%)��l(0,17):�i(17,21.4*qa%*eb%,15.4*eb%,0,0)
:�$�:�q("Nothing to print."):�g(17)
:��
:��
:�8��ja:ș131080,5,"<Investor$Dir>.!Choices"�Rh%:ȎRh%�
:�
�0:�Cc
;
�1:�Dc
;�
; Sh%=Kd%:Th%=Ld%:�Kd%=3�Kd%=2
;$�Ld%=12�Ld%=Uh%
;.i�Ec:Kd%=Sh%:Ld%=Th%:uf%=Kd%:tf%=Ld%:Rd%=dc%:Sd%=Zb%:Td%=Cf%:Ud%=tb%:Vd%=sd%:Wd%=td%:Xd%=ud%:Yd%=vd%:�
;8J��Cc:Kd%=0:Ld%=0:dc%=�:Zb%=�:Cf%=�:tb%=�:sd%=2:td%=2:ud%=2:vd%=2:�Mb:�
;Bc��Mb:�yg%=0�5:g%(yg%)=7:�:g%(6)=11:g%(7)=7:g%(8)=15:g%(9)=8:g%(10)=12:g%(11)=10:g%(12)=13:�Nb:�
;L&��Nb:�yg%=0�12:f%(yg%)=g%(yg%):�:�
;V ��Lb:�yg%=0�12:�Fc(yg%):�:�
;`&��Kb:�yg%=0�12:g%(yg%)=f%(yg%):�:�
;j���Dc:X%=�("<Investor$Dir>.!Choices"):�#X%,Kd%,Ld%:�#X%,dc%,Zb%,Cf%,tb%:�#X%,sd%,td%,ud%,vd%:�yg%=0�12:�#X%,f%(yg%):�:�#X%:�Kb:�
;t���fb:X%=�("<Investor$Dir>.!Choices"):�#X%,Kd%,Ld%:�#X%,dc%,Zb%,Cf%,tb%:�#X%,sd%,td%,ud%,vd%:�yg%=0�12:�#X%,f%(yg%):�:�#X%:�("SETTYPE <Investor$Dir>.!Choices FFF"):�
;~n��eb:Kd%=uf%:Ld%=tf%:dc%=Rd%:Zb%=Sd%:Cf%=Td%:tb%=Ud%:sd%=Vd%:td%=Wd%:ud%=Xd%:vd%=Yd%:�tb%�ub%<>-1��K(ub%)
;� �dc:�
;�j��db:uf%=Kd%:tf%=Ld%:$�t(18,7)=�C(Ld%):�j(18,7):$�t(18,10)=�D(Kd%):�j(18,10):�Rd%��dc%��C(18,12):Rd%=�
;� �Rd%�dc%��e(18,12):Rd%=�
;� �Sd%��Zb%��C(18,13):Sd%=�
;� �Sd%�Zb%��e(18,13):Sd%=�
;� �Td%��Cf%��C(18,14):Td%=�
;� �Td%�Cf%��e(18,14):Td%=�
;� �Ud%��tb%��C(18,15):Ud%=�
;� �Ud%�tb%��e(18,15):Ud%=�
;�1�sd%<>Vd%��C(18,16+Vd%):�e(18,16+sd%):Vd%=sd%
;�1�td%<>Wd%��C(18,20+Wd%):�e(18,20+td%):Wd%=td%
;�1�ud%<>Xd%��C(18,24+Xd%):�e(18,24+ud%):Xd%=ud%
< 1�vd%<>Yd%��C(18,28+Yd%):�e(18,28+vd%):Yd%=vd%
<
�
<$��sb(Vh%):!q%=Vh%:ș262354,,q%:�
< G��gb:�Zd%=1�_d%=�:�Da(15,10):�Da(15,14)�_d%=�:�Ea(15,10):�Ea(15,14)
<(�
<2���Ec:La%=Kd%:Ba%=Ld%:Ca%=Ld%:Ea%=Kd%:Da%=Ld%:Fa%=Kd%:Ma%=Kd%:Na%=Kd%:ee%=Kd%:fe%=Kd%:le%=Ld%:ne%=Ld%:ke%=Kd%:me%=Kd%:Dc%=Ld%:te%=Ld%:Cc%=Kd%:se%=Kd%:be%=Ld%:ae%=Kd%:�
<< ��tb:�(b%�4)=0�Wh%=1�Wh%=-1
<F ȎM%�
<P �31:ge%+=Wh%:ge%=�j(ge%)
<Z �33:ge%-=Wh%:ge%=�j(ge%)
<d �39:he%+=Wh%:he%=�j(he%)
<n �37:he%-=Wh%:he%=�j(he%)
<x�24:ee%+=Wh%
<��20:ee%-=Wh%
<��6:fe%+=Wh%
<��14:fe%-=Wh%
<��
<� �`b:�
<���`b:�ge%=-1�ge%+=6
<��ge%=6�ge%-=6
<��he%=-1�he%+=6
<��he%=6�he%-=6
<��ee%=-1�ee%+=3
<��ee%=3�ee%-=3
<��fe%=-1�fe%+=3
<��fe%=3�fe%-=3
=�
=��J(Xh%):ȎXh%�
=�32:$�t(35,32)=a$(ge%)
="�38:$�t(35,38)=a$(he%)
=,�18:$�t(35,18)=�l(ee%)
=6�9:$�t(35,9)=�l(fe%)
=@�
=J�j(35,Xh%):�
=T ��O:�(b%�4)=0�Yh%=1�Yh%=-1
=^ ȎM%�
=h �31:oe%+=Yh%:oe%=�j(oe%)
=r �33:oe%-=Yh%:oe%=�j(oe%)
=| �39:pe%+=Yh%:pe%=�j(pe%)
=� �37:pe%-=Yh%:pe%=�j(pe%)
=��24:le%+=Yh%
=��20:le%-=Yh%
=��6:ne%+=Yh%
=��14:ne%-=Yh%
=��23:ke%+=Yh%
=��19:ke%-=Yh%
=��43:me%+=Yh%
=��42:me%-=Yh%
=��
=� �ac:�
=���ac:�oe%=-1�oe%+=6
=��oe%=6�oe%-=6
>�pe%=-1�pe%+=6
>�pe%=6�pe%-=6
> �le%=-1�le%+=12
>&�le%=12�le%-=12
>0�ne%=-1�ne%+=12
>:�ne%=12�ne%-=12
>D�ke%=-1�ke%+=3
>N�ke%=3�ke%-=3
>X�me%=-1�me%+=3
>b�me%=3�me%-=3
>l�
>v��w(Zh%):ȎZh%�
>��32:$�t(34,32)=a$(oe%)
>��38:$�t(34,38)=a$(pe%)
>��18:$�t(34,18)=�g(le%)
>��9:$�t(34,9)=�g(ne%)
>��22:$�t(34,22)=�l(ke%)
>��10:$�t(34,10)=�l(me%)
>��
>��j(34,Zh%):�
>� ��P:�(b%�4)=0�_h%=1�_h%=-1
>� ȎM%�
>� �31:Fc%+=_h%:Fc%=�j(Fc%)
>� �33:Fc%-=_h%:Fc%=�j(Fc%)
>� �39:ue%+=_h%:ue%=�j(ue%)
? �37:ue%-=_h%:ue%=�j(ue%)
? �24:Dc%+=_h%
?�20:Dc%-=_h%
? �6:te%+=_h%
?*�14:te%-=_h%
?4�23:Cc%+=_h%
?>�19:Cc%-=_h%
?H�43:se%+=_h%
?R�42:se%-=_h%
?\�
?f �bc:�
?p��bc:�Fc%=-1�Fc%+=6
?z�Fc%=6�Fc%-=6
?��ue%=-1�ue%+=6
?��ue%=6�ue%-=6
?��Dc%=-1�Dc%+=12
?��Dc%=12�Dc%-=12
?��te%=-1�te%+=12
?��te%=12�te%-=12
?��Cc%=-1�Cc%+=3
?��Cc%=3�Cc%-=3
?��se%=-1�se%+=3
?��se%=3�se%-=3
?��
?���x(`h%):Ȏ`h%�
?�6�32:$�t(36,32)=a$(Fc%):�Gc:!q%=a%(37):�r(q%):�Df%�
@6�Ef%>6��i(37,40+40*Ef%,380,0,0)��i(37,308,380,0,0)
@�
@�38:$�t(36,38)=a$(ue%)
@$6�18:$�t(36,18)=�g(Dc%):�Gc:!q%=a%(37):�r(q%):�Df%�
@.6�Ef%>6��i(37,40+40*Ef%,380,0,0)��i(37,308,380,0,0)
@8�
@B�9:$�t(36,9)=�g(te%)
@L6�22:$�t(36,22)=�l(Cc%):�Gc:!q%=a%(37):�r(q%):�Df%�
@V6�Ef%>6��i(37,40+40*Ef%,380,0,0)��i(37,308,380,0,0)
@`�
@j�10:$�t(36,10)=�l(se%)
@t�
@~�j(36,`h%):�
@�/��Gc:Ef%=n%(Fc%,(Cc%*12)+Dc%)-1:�Ef%>-1��cc
@��
@� ��pb:�(b%�4)=0�ai%=1�ai%=-1
@� ȎM%�
@��6:Ca%+=ai%
@��14:Ca%-=ai%
@��7:Ea%+=ai%
@��8:Ea%-=ai%
@��20:Da%+=ai%
@��23:Da%-=ai%
@��22:Fa%+=ai%
@��24:Fa%-=ai%
A �
A
�Hc:�
A��Hc:�Ca%=-1�Ca%+=12
A �Ca%=12�Ca%-=12
A(�Ea%=-1�Ea%+=3
A2�Ea%=3�Ea%-=3
A<�Da%=-1�Da%+=12
AF�Da%=12�Da%-=12
AP�Fa%=-1�Fa%+=3
AZ�Fa%=3�Fa%-=3
Ad�
An��H(bi%):Ȏbi%�
Ax�9:$�t(8,9)=�g(Ca%)
A��10:$�t(8,10)=�l(Ea%)
A��18:$�t(8,18)=�g(Da%)
A��19:$�t(8,19)=�l(Fa%)
A��
A��j(8,bi%):�
A� ��qb:�(b%�4)=0�ci%=1�ci%=-1
A� ȎM%�
A��6:Ma%+=ci%
A��14:Ma%-=ci%
A��11:Na%+=ci%
A��10:Na%-=ci%
A��
A� �Ic:�
B��Ic:�Ma%=3�Ma%-=3
B�Ma%=-1�Ma%+=3
B�Na%=3�Na%-=3
B"�Na%=-1�Na%+=3
B,�
B6��U(di%):Ȏdi%�
B@�9:$�t(7,9)=�l(Ma%)
BJ�8:$�t(7,8)=�l(Na%)
BT�
B^�j(7,di%):�
Bh ��nb:�(b%�4)=0�ei%=1�ei%=-1
Br ȎM%�
B|�3:Ba%+=ei%
B��6:Ba%-=ei%
B��
B� �Jc:�
B���Jc:�Ba%=-1�Ba%+=12
B��Ba%=12�Ba%-=12
B��
B�%��ob:$�t(20,5)=�g(Ba%):�j(20,5):�
B� ��kb:�(b%�4)=0�fi%=1�fi%=-1
B� ȎM%�
B��3:La%+=fi%
B��6:La%-=fi%
B��
B� �Kc:�
C��Kc:�La%=-1�La%+=3
C�La%=3�La%-=3
C �
C&%��lb:$�t(19,5)=�l(La%):�j(19,5):�
C0 ��hb:�(b%�4)=0gi%=1�gi%=-1
C: ȎM%�
CD�11:be%+=gi%
CN�13:be%-=gi%
CX�15:ae%+=gi%
Cb�17:ae%-=gi%
Cl�
Cv �Lc:�
C���Lc:�be%=-1�be%+=12
C��be%=12�be%-=12
C��ae%=-1�ae%+=3
C��ae%=3�ae%-=3
C��
C���ib(hi%):Ȏhi%�
C��12:$�t(15,12)=�g(be%)
C��16:$�t(15,16)=�l(ae%)
C��
C��j(15,hi%):�
C�0��Jb(ii%,ji%,c%):�(b%�4)=0�ji%=1�c%=1�ji%=-1
C� �(b%�4)=0�ji%=-1�c%=0�ji%=1
C�&g%(ii%)+=ji%:�g%(ii%)=16�g%(ii%)=0
D�g%(ii%)=-1�g%(ii%)=15
D �Fc(ii%):�
DE��Fc(n%):$�t(13,28+n%)=�(g%(n%)):�j(13,28+n%):�Fa(41+n%,g%(n%)):�
D !��vb:�(b%�4)=0�ki%=10�ki%=-10
D* ȎM%�
D4 �8:Ua%=�($(�t(31,7)))-ki%
D> �9:Ua%=�($(�t(31,7)))+ki%
DHQ�3:Ua%=�($(�t(31,7))):�(b%�4)=0�Ta%=�($(�t(31,5)))+Ua%�Ta%=�($(�t(31,5)))-Ua%
DRQ�6:Ua%=�($(�t(31,7))):�(b%�4)=0�Ta%=�($(�t(31,5)))-Ua%�Ta%=�($(�t(31,5)))+Ua%
D\�
Df�
Dp��wb(li%):@%=0:Ȏli%�
Dz�5:$�t(31,5)=�(Ta%)
D��7:$�t(31,7)=�(Ua%)
D��
D��j(31,li%):�
D�#��xb:�(b%�4)=0�La=0.01�La=-0.01
D� ȎM%�
D��8:D=�($(�t(32,7)))-La
D��9:D=�($(�t(32,7)))+La
D�G�3:D=�($(�t(32,7))):�(b%�4)=0�I=�($(�t(32,5)))+D�I=�($(�t(32,5)))-D
D�G�6:D=�($(�t(32,7))):�(b%�4)=0�I=�($(�t(32,5)))-D�I=�($(�t(32,5)))+D
D��
D��
D���yb(mi%):�y(2):Ȏmi%�
D��5:$�t(32,5)=�(I)
E�7:$�t(32,7)=�(D)
E�
E�j(32,mi%):@%=0:�
E$#��zb:�(b%�4)=0�Ma=0.01�Ma=-0.01
E. ȎM%�
E8�8:E=�($(�t(33,7)))-Ma
EB�9:E=�($(�t(33,7)))+Ma
ELG�3:E=�($(�t(33,7))):�(b%�4)=0�H=�($(�t(33,5)))+E�H=�($(�t(33,5)))-E
EVG�6:E=�($(�t(33,7))):�(b%�4)=0�H=�($(�t(33,5)))-E�H=�($(�t(33,5)))+E
E`�
Ej�
Et��Ab(ni%):�y(3):Ȏni%�
E~�5:$�t(33,5)=�(H)
E��7:$�t(33,7)=�(E)
E��
E��j(33,ni%):@%=0:�
E� ��Eb:�(b%�4)=0�oi%=1�oi%=-1
E� ȎM%�
E��5:Ra%+=oi%
E��7:Ra%-=oi%
E��8:Sa%+=oi%
E��10:Sa%-=oi%
E��
E� �Mc:�
E���Mc:�Ra%=-1�Ra%+=12
F �Ra%=12�Ra%-=12
F
�Sa%=-1�Sa%+=3
F�Sa%=3�Sa%-=3
F �
F(��W(pi%):Ȏpi%�
F2�6:$�t(22,6)=�g(Ra%)
F<�9:$�t(22,9)=�l(Sa%)
FF�
FP�j(22,pi%):�
FZ ��Gb:�(b%�4)=0�qi%=1�qi%=-1
Fd ȎM%�
Fn�5:kb%+=qi%
Fx�7:kb%-=qi%
F��8:lb%+=qi%
F��10:lb%-=qi%
F��
F� �Nc:�
F���Nc:�kb%=-1�kb%+=12
F��kb%=12�kb%-=12
F��lb%=-1�lb%+=3
F��lb%=3�lb%-=3
F��
F���X(ri%):Ȏri%�
F��6:$�t(40,6)=�g(kb%)
F��9:$�t(40,9)=�l(lb%)
F��
G�j(40,ri%):�
G ��Hb:�(b%�4)=0�si%=1�si%=-1
G ȎM%�
G"�6:ib%+=si%
G,�7:ib%-=si%
G6�10:jb%+=si%
G@�8:jb%-=si%
GJ�
GT �Oc:�
G^��Oc:�ib%=-1�ib%+=12
Gh�ib%=-2�ib%+=13
Gr�ib%=12�ib%-=12
G|�jb%=-1�jb%+=3
G��jb%=-2�jb%+=4
G��jb%=3�jb%-=3
G��
G���Ib(ti%):Ȏti%�
G��5:$�t(12,5)=�g(ib%)
G��9:$�t(12,9)=�l(jb%)
G��
G��j(12,ti%):�
G�<��fa:!q%=1:ș7,14,q%:Uh%=�(�~(q%?1))-1:Z%=�(��$,12,4)):�
G�.ݤK(r%):@%=0:t%=r%:�i%=0�5:�a$(i%)<>�(N%)�
G�t%-=1:�t%=-1�=i%
G��
G��:=0
HY��Sb(e%):�c%(e%)=1�c%(e%)=0:�g(e%)�d%(e%)=�x(Kd%,Ld%):c%(e%)=1:�f(e%):�l(0,e%):�I(e%)
H�
H ���rb:$�t(21,6)="":$�t(21,11)="":$�t(21,12)="":$�t(21,14)="":q%!0=a%(21):q%!4=6:ș262354,,q%:�j(21,6):�j(21,11):�j(21,12):�j(21,14):�
H&2��Qa:�($(�t(21,6)))=""��q("Bad stock name."):�
H0Sui%=g%:g%=Gb%:�p:vi%=n%(g%,d%(g%)):s%(g%,d%(g%))=�k(s%(g%,d%(g%)),36,T%):�T%��
H:�$(s%(g%,d%(g%))+36*vi%)=($(�t(21,6)))+"0":!(s%(g%,d%(g%))+36*vi%+24)=�($(�t(21,11))):!(s%(g%,d%(g%))+36*vi%+28)=�($(�t(21,12)))*1000:!(s%(g%,d%(g%))+36*vi%+32)=�($(�t(21,14)))*1000:n%(g%,d%(g%))+=1:!q%=a%(g%):h%(g%)=�:�I(g%):�D
HD �kf%=0�
HN*�Ab%=0�5:�a%(Ab%)<>0!q%=a%(Ab%):�r(q%)
HX�
Hb�
Hl �a%(37)<>0!q%=a%(37):�r(q%)
Hv g%=ui%:�
H���p:e%(g%)=�:�jc:�
H� ��jc:�e%(g%)�g$=" *"�g$=""
H�!�a%(g%)<>0��v(g%,a$(g%)+g$,1)
H��
H�=��ic(wi%):�wi%=oe%�a%(34)<>0�$�t(34,32)=a$(oe%):�j(34,32)
H�3�wi%=pe%�a%(34)<>0�$�t(34,38)=a$(pe%):�j(34,38)
H�3�wi%=ge%�a%(35)<>0�$�t(35,32)=a$(ge%):�j(35,32)
H�3�wi%=he%�a%(35)<>0�$�t(35,38)=a$(he%):�j(35,38)
H�3�wi%=Fc%�a%(36)<>0�$�t(36,32)=a$(Fc%):�j(36,32)
H�3�wi%=ue%�a%(36)<>0�$�t(36,38)=a$(ue%):�j(36,38)
H��
H�3��c(a%,b%,c%):�t(a%,b%,c%,��b(a%,b%,c%))+"1"):�
H�B��Ra:�jb%*12+ib%<>!(b%(I%)+36*gb%+24)�!(b%(I%)+36*gb%+24)<>-1�
I+ș263872:b%(I%)=�k(b%(I%),36,T%):�T%��
I ��xi%=v%(I%)�gb%+1�-1:$(b%(I%)+36*xi%+36)=$(b%(I%)+36*xi%):!(b%(I%)+36*xi%+60)=!(b%(I%)+36*xi%+24):!(b%(I%)+36*xi%+64)=!(b%(I%)+36*xi%+28):!(b%(I%)+36*xi%+68)=!(b%(I%)+36*xi%+32):�:$(b%(I%)+36*gb%+36)=$(b%(I%)+36*gb%)
I�!(b%(I%)+36*gb%+60)=jb%*12+ib%:!(b%(I%)+36*gb%+64)=�($�t(12,13))*1000:!(b%(I%)+36*gb%+68)=�($�t(12,15))*1000:v%(I%)+=1:!q%=a%(41):�r(q%):�v%(I%)>5��i(41,254+(40*v%(I%)),1236,0,0)
I ș263873
I*z�:!(b%(I%)+36*gb%+24)=jb%*12+ib%:!(b%(I%)+36*gb%+28)=�($�t(12,13))*1000:!(b%(I%)+36*gb%+32)=�($�t(12,15))*1000:�_(gb%)
I4�
I>�
IH4��Ga:�yi%,zi%,Ai%:yi%=Y%:zi%=d%(g%):Ai%=g%:�Cf%�
IRG�Bi%,X$:Bi%=d%(g%):X$=��b(yi%,zi%,Ai%)):�Ci%=0�5:�Di%=0�n%(Ci%,Bi%)
I\V�b(Di%,Bi%,Ci%))=X$��s(Di%,Bi%,Ci%,�c(yi%,zi%,Ai%)):�c(Di%,Bi%,Ci%):�Pc:�Qc(Ci%)
If�:�
Ip�
Iz�Za%>-1�a%(28)>0�
I�V�Za%=Ai%���b(Xa%,Ya%,Za%))=��b(yi%,zi%,Ai%))��ec(Wa%):�Rc:!q%=a%(28):�r(q%):�Sc(1)
I��
I��Q%>-1�a%(38)>0�
I�W�Q%=Ai%���b(Hg%,Ig%,Q%))=��b(yi%,zi%,Ai%))��vc(Hg%,Ig%,Q%):!q%=a%(38):�r(q%):�Sc(2)
I��
I��
I�0��Sc(c%):�c%=Ic%�a%(39)<>0�!q%=a%(39):�r(q%)
I��
I���Rc:�l%>0�l%-=1
I��
I���Qc(Ei%):�a%(Ei%)<>0�
I�Fi%=g%:g%=Ei%:�p:g%=Fi%
I��:e%(Ei%)=�
J�
J�
J.��Pc:�c%(Ci%)=1�d%(Ci%)=d%(g%)��N(Di%,Ci%)
J$�
J.ݤg(Gi%):ȎGi%�12�
J8�0:="January"
JB�1:="February"
JL�2:="March"
JV�3:="April"
J`
�4:="May"
Jj�5:="June"
Jt�6:="July"
J~�7:="August"
J��8:="September"
J��9:="October"
J��10:="November"
J��11:="December"
J��
J�=""
J�ݤl(Gi%):ȎGi%�3�
J��0:=�(Z%-2)
J��1:=�(Z%-1)
J�
�2:=�(Z%)
J��
J�=""
K ݤC(Gi%):ȎGi%�
K
�0:="January"
K�1:="February"
K �2:="March"
K(�3:="April"
K2
�4:="May"
K<�5:="June"
KF�6:="July"
KP�7:="August"
KZ�8:="September"
Kd�9:="October"
Kn�10:="November"
Kx�11:="December"
K��12:="Current month"
K��
K�=""
K�ݤD(Gi%):ȎGi%�
K��0:=�(Z%-2)
K��1:=�(Z%-1)
K�
�2:=�(Z%)
K��3:="Current year"
K��
K�=""
K�ݤq(Gi%):ȎGi%�12�
K��0:=�(Z%-2)
K��1:=�(Z%-1)
L
�2:=�(Z%)
L�
L=""
L"ݤJ(Gi%):ȎGi%�3�
L, �0:=0
L6
�1:=12
L@
�2:=24
LJ�
LT=0
L^ݤx(y%,m%):�y%=3�y%-=1
Lh)�m%=12�Hi%=(y%*12)+Uh%�Hi%=(y%*12)+m%
Lr=Hi%
L|ݤE:Ii%=�:ȎIc%�
L��1:�u=v�u=0�Ii%=�
L��2:�C=G�C=0�Ii%=�
L��
L�=Ii%
L�ݤu:ȎMc%�
L�
�0:ȎYc%�
L��0:="2D Chart"
L��1:="3D Chart"
L��
L��1:="Graph"
L��
L�=""
L�ݤn:ȎMc%�
M
�0:ȎYc%�
M
�0:=U%
M �1:=�f(120)
M&�
M0
�1:=U%
M:�
MD=0
MNݤo:ȎMc%�
MX
�0:ȎYc%�
Mb �0:=0
Ml�1:=�f(226)
Mv�
M� �1:=0
M��
M�=0
M� ݤy:�Ji%=0�5:�h%(Ji%)�=Ji%
M��:=6
M�ݤi(Ch%):Ȏf%(Ch%)�
M� �0:=-256
M��1:=&DDDDDD00
M��2:=&BBBBBB00
M��3:=&99999900
M��4:=&77777700
M��5:=&55555500
M��6:=858993408
N �7:=0
N �8:=&99440000
N�9:=&EEEE00
N �10:=&CC0000
N*�11:=56576
N4�12:=&BBEEEE00
N>�13:=8934656
NH�14:=&BBFF00
NR�15:=-4521984
N\�
Nf=0
Np1ݤA(yf%):ș262357,,yf%,q%,�200," ")�,,,a$:=a$
Nzݤv(Na):=�(Na+0.5)
N�ݤj(k%):�k%=6�k%=0
N��k%=-1�k%=5
N�%�a$(k%)=�(N%)�Hi%=�j(k%+1)�Hi%=k%
N�=Hi%
N�AݤL(k$):�r(k$)="(Regular)"�Y$=�k$,0,�(k$)-�(�r(k$))-1)�Y$=k$
N�=Y$
N���qa:ș6,106,1:Jb%=�:�
N�5��Ta:ș262377,36,1,"ptr_stock",2,15,6,0,0:Jb%=�:�
N�,��cc:�E(Hc%):Hc%=�k(Hc%,Ef%+1,T%):�T%��
N��i%=0�Ef%:Hc%?i%=0:�:�
N���Tb:Ki%=e%(0)+e%(1)+e%(2)+e%(3)+e%(4)+e%(5):�Ki%<0��S(0,"Investor contains unsaved data: are you sure you want to quit?","Quit")��Bb
N��
N�8��xa:Ki%=e%(0)+e%(1)+e%(2)+e%(3)+e%(4)+e%(5):�Ki%<0�
Oq!q%=20:q%!12=wa%:ș262375,19,q%:�S(0,"Investor contains unsaved data: are you sure you want to quit?","Quit")
O �:�Bb
O�
O$�
O.��Wb:�e%(g%)<0�
O8v�S(1,"The current portfolio contains unsaved data: are you sure you want to clear the current portfolio?","Clear")
OB�:�B(3,g%)
OL�
OV�
O`��Xb:�e%(g%)<0�
Ojx�S(2,"The current portfolio contains unsaved data: are you sure you want to delete the current portfolio?","Delete")
Ot �:�Cb
O~�
O��
O�p��S(Li%,fa$,ga$):xe%=�:we%=Li%:�f(14):$�t(14,1)=fa$:$�t(14,0)=ga$:ș262356,,a%(14),ua%*0.5-369,ta%*0.5+134:�
O����Tc:�h:xe%=�:�f(43):!G%=a%(43):$�t(43,0)="Investor: printing page 1 (Copy 1)":ș262347,,G%:G%!4=0.5*(ua%-�G):G%!8=0.5*(ta%-�H):G%!12=G%!4+�G:G%!16=G%!8+�H:�G%!32�65536�G%!28=-1
O�ș262341,,G%:�
O�-ݤG:!q%=a%(43):ș262347,,q%:=(q%!12-q%!4)
O�-ݤH:!q%=a%(43):ș262347,,q%:=(q%!16-q%!8)
O�*��Zb:ș524608�,,,,Z$:jd%=g%:�a%(16)=0�
O��l(0,16):�f(15):ȎZd%�
O��0:�e(15,3):�gb
O��1:�e(15,7):�gb
O��
O�kbe%=d%(g%)�12:ae%=d%(g%)�12:�ib(12):�ib(16):�e(15,22+(3*od%)):$�t(15,34)=�N:!q%=a%(16):ș262347,,q%:�na
P �:�l(0,16):�na
P
�
P�
P ݤN:ș524608�,,,,Z$:=Z$
P(���Uc(ha$,Mi%,Ni%):ș524617,Mi%:ș524613,Ni%:�#Mi%:ș263873:$(da%+4)=ha$+�(0):ș262367,da%,1,"Investor"�,rg%:eb%=Oi%:la%=�:id%=�:�
P2���Vc(Lc%,Pi%):�x%,y%:!q%=a%(17):�Ua(q%):j%=0:E%=0:Qi%=0:Ri%=100:Si%=100:Ti%=0:sa%=1:pa%=Qh%:ș524611�,,,Ui%,Vi%,Wi%,Xi%:x%=Wi%-Ui%:Ui%+=x%*(Qi%*0.01):Wi%=Ui%+x%*(Ri%*0.01):Oa=((Wi%-Ui%)*0.0025)/Lc%:y%=Xi%-Vi%
P<HXi%-=y%*(Ti%*0.01):Vi%=Xi%-y%*(Si%*0.01):Pa=((Xi%-Vi%)*0.0025)/Pi%:�
PF_��hc:�Lb%,Lc%,Pi%:Lb%=a%(17):na%=1:ma%=`d%:oa%=1:Lc%=1540:Pi%=2140:la%=�:�Tc:�Vc(Lc%,Pi%):�
PP���ma(Yi%):�q%,Nb%,Ni%,Lb%:�:!q%=a%(17):�Ua(q%):j%=0:E%=0:id%=�:ed%=�:ș263872:Mi%=�("printer:"):ș524613,Mi%,"Investor"�Ni%:��:�Uc(�$,Mi%,Ni%):na%=1000:�
PZ�q%=�O(17):q%!44=0:q%!48=-(2140*Yi%):q%!52=1540:q%!56=2140:q%!60=Oa*(1<<16):q%!64=0:q%!68=0:q%!72=Pa*(1<<16):q%!76=Ui%:q%!80=Vi%:ș524619,!q%,q%+44,q%+60,q%+76,-1:ș524620,1,q%+4,0,0�Nb%,,Lb%:ȕNb%:q%!20=q%!4:q%!24=q%!16
Pd�q%!28=q%!4:q%!32=q%!8:q%!36=q%!12:q%!40=q%!16:Oi%=eb%:eb%=100:�_a:eb%=Oi%:ș524621,,q%+4�Nb%,,Lb%:�:ș524616,Mi%:ș524613,Ni%:�#Mi%:id%=�:ș263873:�
Pn'ݤO(n%):!G%=a%(n%):ș262348,,G%:=G%
Px%ݤb(a%,b%,c%):=$(s%(c%,b%)+36*a%)
P�(ݤa(a%,b%,c%):=!(s%(c%,b%)+36*a%+24)
P�.ݤd(a%,b%,c%):=!(s%(c%,b%)+36*a%+28)*0.001
P�.ݤc(a%,b%,c%):=!(s%(c%,b%)+36*a%+32)*0.001
P�,��t(a%,b%,c%,d$):$(s%(c%,b%)+36*a%)=d$:�
P�/��z(a%,b%,c%,d%):!(s%(c%,b%)+36*a%+24)=d%:�
P�2��A(a%,b%,c%,d):!(s%(c%,b%)+36*a%+28)=d*1000:�
P�2��s(a%,b%,c%,d):!(s%(c%,b%)+36*a%+32)=d*1000:�
� 00000000 0d 00 0a 1e f4 3e 3c 49 6e 76 65 73 74 6f 72 24 |.....><Investor$|
00000010 44 69 72 3e 2e 21 52 75 6e 49 6d 61 67 65 0d 00 |Dir>.!RunImage..|
00000020 14 0b ee 85 f2 61 61 3a e0 0d 00 1e d1 5f 24 3d |.....aa:....._$=|
00000030 22 31 2e 31 30 20 28 30 31 2d 4a 75 6c 2d 39 34 |"1.10 (01-Jul-94|
00000040 29 22 3a c8 99 31 36 b8 65 24 3a 61 61 25 3d a7 |)":..16.e$:aa%=.|
00000050 65 24 2c 22 22 22 22 2c a7 65 24 2c 22 22 22 22 |e$,"""",.e$,""""|
00000060 29 2b 31 29 3a 65 24 3d c1 65 24 2c 61 61 25 2b |)+1):e$=.e$,aa%+|
00000070 31 29 3a c8 95 c0 65 24 2c 31 29 3d 22 20 22 3a |1):...e$,1)=" ":|
00000080 65 24 3d c1 65 24 2c 32 29 3a ce 3a de 71 25 31 |e$=.e$,2):.:.q%1|
00000090 32 38 30 2c 62 61 25 32 35 36 2c 63 61 25 33 32 |280,ba%256,ca%32|
000000a0 2c 47 25 31 32 38 30 2c 64 61 25 32 35 36 2c 70 |,G%1280,da%256,p|
000000b0 25 33 32 2c 65 61 25 35 31 32 2c 66 61 25 33 32 |%32,ea%512,fa%32|
000000c0 3a c8 99 38 2c 35 2c 22 3c 49 6e 76 65 73 74 6f |:..8,5,"<Investo|
000000d0 72 24 44 69 72 3e 2e 53 70 72 69 74 65 73 22 b8 |r$Dir>.Sprites".|
000000e0 2c 2c 2c 2c 67 61 25 3a de 68 61 25 67 61 25 2b |,,,,ga%:.ha%ga%+|
000000f0 34 3a 21 68 61 25 3d 67 61 25 0d 00 28 b4 c8 99 |4:!ha%=ga%..(...|
00000100 38 2c 32 35 35 2c 22 3c 49 6e 76 65 73 74 6f 72 |8,255,"<Investor|
00000110 24 44 69 72 3e 2e 53 70 72 69 74 65 73 22 2c 68 |$Dir>.Sprites",h|
00000120 61 25 2b 34 3a f2 62 61 3a f2 63 61 3a f2 64 61 |a%+4:.ba:.ca:.da|
00000130 3a 24 71 25 3d 22 54 41 53 4b 22 3a c8 99 32 36 |:$q%="TASK":..26|
00000140 32 33 33 36 2c 32 30 30 2c 21 71 25 2c 22 49 6e |2336,200,!q%,"In|
00000150 76 65 73 74 6f 72 22 b8 69 61 25 2c 6a 61 25 3a |vestor".ia%,ja%:|
00000160 c8 99 35 33 30 30 35 30 2c 6a 61 25 3a f2 65 61 |..530050,ja%:.ea|
00000170 3a f2 66 61 3a f2 67 61 3a c8 99 32 36 33 38 37 |:.fa:.ga:..26387|
00000180 32 3a f2 68 61 3a f2 69 61 3a f2 6a 61 3a f2 6b |2:.ha:.ia:.ja:.k|
00000190 61 3a c8 99 32 36 33 38 37 33 3a e7 65 24 3c 3e |a:..263873:.e$<>|
000001a0 22 22 8c f2 6c 61 28 30 2c 65 24 2c 33 29 0d 00 |""..la(0,e$,3)..|
000001b0 32 09 ee 85 f2 61 61 0d 00 3c 30 f5 3a c8 99 32 |2....aa..<0.:..2|
000001c0 36 32 33 34 33 2c 30 2c 71 25 b8 6b 61 25 3a c8 |62343,0,q%.ka%:.|
000001d0 99 35 33 30 30 35 34 2c 6b 61 25 2c 2c 6a 61 25 |.530054,ka%,,ja%|
000001e0 3a c8 8e 6b 61 25 ca 0d 00 46 0c c9 30 3a e7 6c |:..ka%...F..0:.l|
000001f0 61 25 8c 0d 00 50 0b e7 6d 61 25 3d 31 8c 0d 00 |a%...P..ma%=1...|
00000200 5a 37 f2 6d 61 28 6e 61 25 29 3a 6c 61 25 3d a3 |Z7.ma(na%):la%=.|
00000210 3a 6e 61 25 2b 3d 31 3a e7 6f 61 25 3d 70 61 25 |:na%+=1:.oa%=pa%|
00000220 80 6e 61 25 3e 71 61 25 8c 6e 61 25 3d 31 3a f2 |.na%>qa%.na%=1:.|
00000230 67 28 34 33 29 0d 00 64 19 e7 6e 61 25 3e 71 61 |g(43)..d..na%>qa|
00000240 25 8c 6e 61 25 3d 31 3a 6f 61 25 2b 3d 31 0d 00 |%.na%=1:oa%+=1..|
00000250 6e 50 e7 61 25 28 34 33 29 3c 3e 30 8c 24 a4 74 |nP.a%(43)<>0.$.t|
00000260 28 34 33 2c 30 29 3d 22 52 65 61 64 79 20 74 6f |(43,0)="Ready to|
00000270 20 70 72 69 6e 74 20 70 61 67 65 20 22 2b c3 6e | print page "+.n|
00000280 61 25 2b 22 20 28 43 6f 70 79 20 22 2b c3 6f 61 |a%+" (Copy "+.oa|
00000290 25 2b 22 29 22 3a f2 6a 28 34 33 2c 30 29 0d 00 |%+")":.j(43,0)..|
000002a0 78 88 cc 3a e3 72 61 25 3d 73 61 25 b8 70 61 25 |x..:.ra%=sa%.pa%|
000002b0 3a 6e 61 25 3d 31 3a f5 3a f2 6d 61 28 6e 61 25 |:na%=1:.:.ma(na%|
000002c0 29 3a 24 a4 74 28 34 33 2c 30 29 3d 22 49 6e 76 |):$.t(43,0)="Inv|
000002d0 65 73 74 6f 72 3a 20 70 72 69 6e 74 69 6e 67 20 |estor: printing |
000002e0 70 61 67 65 20 22 2b c3 6e 61 25 2b 22 20 28 43 |page "+.na%+" (C|
000002f0 6f 70 79 20 22 2b c3 72 61 25 2b 22 29 22 3a f2 |opy "+.ra%+")":.|
00000300 6a 28 34 33 2c 30 29 3a 6e 61 25 2b 3d 31 3a fd |j(43,0):na%+=1:.|
00000310 6e 61 25 3e 71 61 25 3a ed 3a f2 67 28 34 33 29 |na%>qa%:.:.g(43)|
00000320 3a 6c 61 25 3d a3 0d 00 82 05 cd 0d 00 8c 05 cd |:la%=...........|
00000330 0d 00 96 0d c9 31 3a f2 72 28 71 25 29 0d 00 a0 |.....1:.r(q%)...|
00000340 33 c9 32 3a e7 71 25 21 31 36 3e 74 61 25 8c 71 |3.2:.q%!16>ta%.q|
00000350 25 21 38 2d 3d 28 71 25 21 31 36 2d 74 61 25 2b |%!8-=(q%!16-ta%+|
00000360 34 30 29 3a 71 25 21 31 36 3d 74 61 25 2d 34 30 |40):q%!16=ta%-40|
00000370 0d 00 aa 4f e7 28 71 25 21 31 36 2d 71 25 21 38 |...O.(q%!16-q%!8|
00000380 29 3e 74 61 25 84 28 71 25 21 31 32 2d 71 25 21 |)>ta%.(q%!12-q%!|
00000390 34 29 3e 75 61 25 8c 71 25 21 38 3d 34 30 3a 71 |4)>ua%.q%!8=40:q|
000003a0 25 21 31 36 3d 74 61 25 2d 33 36 3a 71 25 21 31 |%!16=ta%-36:q%!1|
000003b0 32 3d 75 61 25 2d 33 38 3a 71 25 21 34 3d 30 0d |2=ua%-38:q%!4=0.|
000003c0 00 b4 0a c8 8e 21 71 25 ca 0d 00 be 0f c9 61 25 |.....!q%......a%|
000003d0 28 31 36 29 3a f2 6e 61 0d 00 c8 0f c9 61 25 28 |(16):.na.....a%(|
000003e0 33 36 29 3a f2 6f 61 0d 00 d2 05 cb 0d 00 dc 10 |36):.oa.........|
000003f0 c8 99 32 36 32 33 34 31 2c 2c 71 25 0d 00 e6 0a |..262341,,q%....|
00000400 c9 33 3a f2 70 61 0d 00 f0 0a c9 34 3a f2 71 61 |.3:.pa.....4:.qa|
00000410 0d 00 fa 0f c9 35 3a f2 72 61 28 21 71 25 29 0d |.....5:.ra(!q%).|
00000420 01 04 25 c9 36 3a f2 73 61 28 21 71 25 2c 71 25 |..%.6:.sa(!q%,q%|
00000430 21 34 2c 71 25 21 38 2c 71 25 21 31 32 2c 71 25 |!4,q%!8,q%!12,q%|
00000440 21 31 36 29 0d 01 0e 0a c9 37 3a f2 74 61 0d 01 |!16).....7:.ta..|
00000450 18 1a c9 38 3a f2 75 61 28 21 71 25 2c 71 25 21 |...8:.ua(!q%,q%!|
00000460 34 2c 71 25 21 32 34 29 0d 01 22 0e c9 39 3a f2 |4,q%!24).."..9:.|
00000470 76 61 28 71 25 29 0d 01 2c 12 c9 31 37 2c 31 38 |va(q%)..,..17,18|
00000480 3a f2 77 61 28 71 25 29 0d 01 36 05 cb 0d 01 40 |:.wa(q%)..6....@|
00000490 08 fd a3 3a e0 0d 01 4a 30 dd f2 77 61 28 71 25 |...:...J0..wa(q%|
000004a0 29 3a ea 76 61 25 2c 77 61 25 3a 76 61 25 3d 71 |):.va%,wa%:va%=q|
000004b0 25 21 34 3a 77 61 25 3d 71 25 21 38 3a c8 8e 71 |%!4:wa%=q%!8:..q|
000004c0 25 21 31 36 ca 0d 01 54 0a c9 30 3a f2 78 61 0d |%!16...T..0:.xa.|
000004d0 01 5e 0e c9 31 3a f2 79 61 28 71 25 29 0d 01 68 |.^..1:.ya(q%)..h|
000004e0 0e c9 32 3a f2 7a 61 28 71 25 29 0d 01 72 16 c9 |..2:.za(q%)..r..|
000004f0 33 2c 35 3a f2 41 61 28 71 25 2c 71 25 21 31 36 |3,5:.Aa(q%,q%!16|
00000500 29 0d 01 7c 11 c9 39 2c 32 36 32 33 33 37 3a f2 |)..|..9,262337:.|
00000510 6b 61 0d 01 86 12 c9 32 36 32 33 33 36 3a c8 8e |ka.....262336:..|
00000520 78 61 25 ca 0d 01 90 11 c9 79 61 25 3a c8 8e 71 |xa%......ya%:..q|
00000530 25 21 33 32 ca 0d 01 9a 1f c9 30 3a 77 25 3d 36 |%!32......0:w%=6|
00000540 3a f2 66 28 77 25 29 3a 24 a4 74 28 77 25 2c 37 |:.f(w%):$.t(w%,7|
00000550 29 3d 5f 24 0d 01 a4 05 cb 0d 01 ae 11 c9 7a 61 |)=_$..........za|
00000560 25 3a c8 8e 71 25 21 33 32 ca 0d 01 b8 0f c9 31 |%:..q%!32......1|
00000570 3a c8 8e 71 25 21 33 36 ca 0d 01 c2 42 c9 30 3a |:..q%!36....B.0:|
00000580 77 25 3d 32 37 3a f2 66 28 77 25 29 3a 41 61 25 |w%=27:.f(w%):Aa%|
00000590 3d 6e 25 28 67 25 2c 64 25 28 67 25 29 29 3a 6c |=n%(g%,d%(g%)):l|
000005a0 24 3d c3 28 41 61 25 29 3a e7 41 61 25 3d 30 8c |$=.(Aa%):.Aa%=0.|
000005b0 6c 24 3d 22 3c 6e 6f 6e 65 3e 22 0d 01 cc 17 e7 |l$="<none>".....|
000005c0 41 61 25 3d 31 8c 6c 24 2b 3d 22 20 65 6e 74 72 |Aa%=1.l$+=" entr|
000005d0 79 22 0d 01 d6 19 e7 41 61 25 3e 31 8c 6c 24 2b |y".....Aa%>1.l$+|
000005e0 3d 22 20 65 6e 74 72 69 65 73 22 0d 01 e0 25 24 |=" entries"...%$|
000005f0 a4 74 28 32 37 2c 35 29 3d a4 67 28 64 25 28 67 |.t(27,5)=.g(d%(g|
00000600 25 29 29 3a 24 a4 74 28 32 37 2c 32 29 3d 6c 24 |%)):$.t(27,2)=l$|
00000610 0d 01 ea 33 c9 31 3a 77 25 3d 32 30 3a f2 66 28 |...3.1:w%=20:.f(|
00000620 77 25 29 3a 42 61 25 3d 64 25 28 67 25 29 83 31 |w%):Ba%=d%(g%).1|
00000630 32 3a 24 a4 74 28 32 30 2c 35 29 3d a4 67 28 42 |2:$.t(20,5)=.g(B|
00000640 61 25 29 0d 01 f4 5a c9 32 3a 77 25 3d 38 3a f2 |a%)...Z.2:w%=8:.|
00000650 66 28 77 25 29 3a 43 61 25 3d 64 25 28 67 25 29 |f(w%):Ca%=d%(g%)|
00000660 83 31 32 3a 44 61 25 3d 64 25 28 67 25 29 83 31 |.12:Da%=d%(g%).1|
00000670 32 2b 31 3a 45 61 25 3d 64 25 28 67 25 29 81 31 |2+1:Ea%=d%(g%).1|
00000680 32 3a 46 61 25 3d 64 25 28 67 25 29 81 31 32 3a |2:Fa%=d%(g%).12:|
00000690 e7 44 61 25 3d 31 32 8c 44 61 25 3d 30 0d 01 fe |.Da%=12.Da%=0...|
000006a0 2a f2 65 28 38 2c 33 2b 47 61 25 29 3a f2 48 28 |*.e(8,3+Ga%):.H(|
000006b0 39 29 3a f2 48 28 31 30 29 3a f2 48 28 31 38 29 |9):.H(10):.H(18)|
000006c0 3a f2 48 28 31 39 29 0d 02 08 05 cb 0d 02 12 0f |:.H(19).........|
000006d0 c9 32 3a c8 8e 71 25 21 33 36 ca 0d 02 1c 59 c9 |.2:..q%!36....Y.|
000006e0 30 3a 77 25 3d 32 36 3a f2 66 28 77 25 29 3a 48 |0:w%=26:.f(w%):H|
000006f0 61 25 3d 30 3a 49 61 25 3d 28 64 25 28 67 25 29 |a%=0:Ia%=(d%(g%)|
00000700 81 31 32 29 2a 31 32 3a 4a 61 25 3d 49 61 25 2b |.12)*12:Ja%=Ia%+|
00000710 31 31 3a e3 4b 61 25 3d 49 61 25 b8 4a 61 25 3a |11:.Ka%=Ia%.Ja%:|
00000720 e7 6e 25 28 67 25 2c 4b 61 25 29 3e 30 8c 48 61 |.n%(g%,Ka%)>0.Ha|
00000730 25 2b 3d 31 0d 02 26 22 ed 3a 6d 24 3d c3 28 48 |%+=1..&".:m$=.(H|
00000740 61 25 29 3a e7 48 61 25 3d 30 8c 6d 24 3d 22 3c |a%):.Ha%=0.m$="<|
00000750 6e 6f 6e 65 3e 22 0d 02 30 1c e7 48 61 25 3d 31 |none>"..0..Ha%=1|
00000760 8c 6d 24 2b 3d 22 20 6d 6f 6e 74 68 20 75 73 65 |.m$+=" month use|
00000770 64 22 0d 02 3a 1d e7 48 61 25 3e 31 8c 6d 24 2b |d"..:..Ha%>1.m$+|
00000780 3d 22 20 6d 6f 6e 74 68 73 20 75 73 65 64 22 0d |=" months used".|
00000790 02 44 25 24 a4 74 28 32 36 2c 35 29 3d a4 71 28 |.D%$.t(26,5)=.q(|
000007a0 64 25 28 67 25 29 29 3a 24 a4 74 28 32 36 2c 32 |d%(g%)):$.t(26,2|
000007b0 29 3d 6d 24 0d 02 4e 33 c9 31 3a 77 25 3d 31 39 |)=m$..N3.1:w%=19|
000007c0 3a f2 66 28 77 25 29 3a 4c 61 25 3d 64 25 28 67 |:.f(w%):La%=d%(g|
000007d0 25 29 81 31 32 3a 24 a4 74 28 31 39 2c 35 29 3d |%).12:$.t(19,5)=|
000007e0 a4 6c 28 4c 61 25 29 0d 02 58 57 c9 32 3a 77 25 |.l(La%)..XW.2:w%|
000007f0 3d 37 3a f2 66 28 77 25 29 3a 4d 61 25 3d 64 25 |=7:.f(w%):Ma%=d%|
00000800 28 67 25 29 81 31 32 3a 4e 61 25 3d 28 64 25 28 |(g%).12:Na%=(d%(|
00000810 67 25 29 81 31 32 29 2b 31 3a f2 65 28 37 2c 33 |g%).12)+1:.e(7,3|
00000820 2b 4f 61 25 29 3a f2 55 28 39 29 3a f2 55 28 38 |+Oa%):.U(9):.U(8|
00000830 29 3a e7 4e 61 25 3d 33 8c 4e 61 25 3d 30 0d 02 |):.Na%=3.Na%=0..|
00000840 62 05 cb 0d 02 6c 0f c9 33 3a c8 8e 71 25 21 33 |b....l..3:..q%!3|
00000850 36 ca 0d 02 76 4f c9 30 3a 77 25 3d 32 35 3a f2 |6...vO.0:w%=25:.|
00000860 66 28 77 25 29 3a f2 42 61 28 65 25 28 67 25 29 |f(w%):.Ba(e%(g%)|
00000870 2b 31 29 3a f2 43 61 28 61 24 28 67 25 29 29 3a |+1):.Ca(a$(g%)):|
00000880 24 a4 74 28 32 35 2c 33 29 3d 65 24 28 67 25 29 |$.t(25,3)=e$(g%)|
00000890 3a 24 a4 74 28 32 35 2c 32 29 3d 64 24 28 67 25 |:$.t(25,2)=d$(g%|
000008a0 29 0d 02 80 0f c9 33 3a c8 8e 71 25 21 34 30 ca |).....3:..q%!40.|
000008b0 0d 02 8a 38 c9 30 3a 77 25 3d 31 30 3a f2 66 28 |...8.0:w%=10:.f(|
000008c0 77 25 29 3a 71 3d a4 74 28 31 30 2c 31 29 3a 24 |w%):q=.t(10,1):$|
000008d0 a4 74 28 31 30 2c 31 29 3d 43 24 3a f2 65 28 31 |.t(10,1)=C$:.e(1|
000008e0 30 2c 33 2b 50 61 25 29 0d 02 94 3a c9 31 3a 77 |0,3+Pa%)...:.1:w|
000008f0 25 3d 39 3a f2 66 28 77 25 29 3a f2 56 28 32 35 |%=9:.f(w%):.V(25|
00000900 36 29 3a 51 61 25 3d 30 3a 71 3d a4 74 28 39 2c |6):Qa%=0:q=.t(9,|
00000910 31 29 3a 24 a4 74 28 39 2c 31 29 3d 62 24 28 67 |1):$.t(9,1)=b$(g|
00000920 25 29 0d 02 9e 05 cb 0d 02 a8 49 c9 37 3a 77 25 |%)........I.7:w%|
00000930 3d 32 32 3a f2 66 28 77 25 29 3a 52 61 25 3d 28 |=22:.f(w%):Ra%=(|
00000940 64 25 28 67 25 29 83 31 32 29 2d 31 3a 53 61 25 |d%(g%).12)-1:Sa%|
00000950 3d 64 25 28 67 25 29 81 31 32 3a e7 52 61 25 3d |=d%(g%).12:.Ra%=|
00000960 2d 31 8c 52 61 25 3d 31 31 3a 53 61 25 2d 3d 31 |-1.Ra%=11:Sa%-=1|
00000970 0d 02 b2 11 e7 53 61 25 3d 2d 31 8c 53 61 25 3d |.....Sa%=-1.Sa%=|
00000980 32 0d 02 bc 0f f2 57 28 36 29 3a f2 57 28 39 29 |2.....W(6):.W(9)|
00000990 0d 02 c6 05 cb 0d 02 d0 0f c9 34 3a c8 8e 71 25 |..........4:..q%|
000009a0 21 33 36 ca 0d 02 da 3e c9 30 3a 77 25 3d 32 34 |!36....>.0:w%=24|
000009b0 3a f2 66 28 77 25 29 3a e7 a4 61 28 59 25 2c 64 |:.f(w%):..a(Y%,d|
000009c0 25 28 67 25 29 2c 67 25 29 3d 31 8c 4f 24 3d 22 |%(g%),g%)=1.O$="|
000009d0 20 75 6e 69 74 22 8b 4f 24 3d 22 20 75 6e 69 74 | unit".O$=" unit|
000009e0 73 22 0d 02 e4 6a 24 a4 74 28 32 34 2c 35 29 3d |s"...j$.t(24,5)=|
000009f0 c0 a4 62 28 59 25 2c 64 25 28 67 25 29 2c 67 25 |..b(Y%,d%(g%),g%|
00000a00 29 29 3a 24 a4 74 28 32 34 2c 33 29 3d c3 28 a4 |)):$.t(24,3)=.(.|
00000a10 61 28 59 25 2c 64 25 28 67 25 29 2c 67 25 29 29 |a(Y%,d%(g%),g%))|
00000a20 2b 4f 24 3a e7 c2 a4 62 28 59 25 2c 64 25 28 67 |+O$:...b(Y%,d%(g|
00000a30 25 29 2c 67 25 29 29 3d 22 31 22 8c 50 24 3d 22 |%),g%))="1".P$="|
00000a40 59 65 73 22 8b 50 24 3d 22 4e 6f 22 0d 02 ee 10 |Yes".P$="No"....|
00000a50 24 a4 74 28 32 34 2c 32 29 3d 50 24 0d 02 f8 25 |$.t(24,2)=P$...%|
00000a60 c9 31 3a 44 24 3d c2 a4 62 28 59 25 2c 64 25 28 |.1:D$=..b(Y%,d%(|
00000a70 67 25 29 2c 67 25 29 29 3a c8 8e 71 25 21 34 30 |g%),g%)):..q%!40|
00000a80 ca 0d 03 02 25 c9 30 3a 40 25 3d 30 3a 77 25 3d |....%.0:@%=0:w%=|
00000a90 33 30 3a f2 66 28 77 25 29 3a 24 a4 74 28 33 30 |30:.f(w%):$.t(30|
00000aa0 2c 33 29 3d 51 24 0d 03 0c 3a c9 31 3a 40 25 3d |,3)=Q$...:.1:@%=|
00000ab0 30 3a 77 25 3d 33 31 3a f2 66 28 77 25 29 3a 24 |0:w%=31:.f(w%):$|
00000ac0 a4 74 28 33 31 2c 35 29 3d c3 28 54 61 25 29 3a |.t(31,5)=.(Ta%):|
00000ad0 24 a4 74 28 33 31 2c 37 29 3d c3 28 55 61 25 29 |$.t(31,7)=.(Ua%)|
00000ae0 0d 03 16 3d c9 32 3a 40 25 3d 31 36 39 30 38 38 |...=.2:@%=169088|
00000af0 31 30 3a 77 25 3d 33 32 3a f2 66 28 77 25 29 3a |10:w%=32:.f(w%):|
00000b00 24 a4 74 28 33 32 2c 35 29 3d c3 28 49 29 3a 24 |$.t(32,5)=.(I):$|
00000b10 a4 74 28 33 32 2c 37 29 3d c3 28 44 29 0d 03 20 |.t(32,7)=.(D).. |
00000b20 3d c9 33 3a 40 25 3d 31 36 39 30 38 38 31 30 3a |=.3:@%=16908810:|
00000b30 77 25 3d 33 33 3a f2 66 28 77 25 29 3a 24 a4 74 |w%=33:.f(w%):$.t|
00000b40 28 33 33 2c 35 29 3d c3 28 48 29 3a 24 a4 74 28 |(33,5)=.(H):$.t(|
00000b50 33 33 2c 37 29 3d c3 28 45 29 0d 03 2a 05 cb 0d |33,7)=.(E)..*...|
00000b60 03 34 05 cb 0d 03 3e 05 cb 0d 03 48 1d c9 56 61 |.4....>....H..Va|
00000b70 25 3a 40 25 3d 31 36 39 30 38 38 31 30 3a c8 8e |%:@%=16908810:..|
00000b80 71 25 21 33 32 ca 0d 03 52 45 c9 30 3a 77 25 3d |q%!32...RE.0:w%=|
00000b90 32 39 3a f2 66 28 77 25 29 3a 40 25 3d 30 3a 45 |29:.f(w%):@%=0:E|
00000ba0 24 3d c3 28 6c 25 2b 31 29 3a e7 6c 25 3d 30 8c |$=.(l%+1):.l%=0.|
00000bb0 45 24 2b 3d 22 20 65 6e 74 72 79 22 8b 45 24 2b |E$+=" entry".E$+|
00000bc0 3d 22 20 65 6e 74 72 69 65 73 22 0d 03 5c 23 24 |=" entries"..\#$|
00000bd0 a4 74 28 32 39 2c 33 29 3d 45 24 3a 40 25 3d 31 |.t(29,3)=E$:@%=1|
00000be0 36 39 30 38 38 31 30 3a c8 8e 57 61 25 ca 0d 03 |6908810:..Wa%...|
00000bf0 66 2a c9 30 2c 31 2c 32 2c 33 2c 34 3a 24 a4 74 |f*.0,1,2,3,4:$.t|
00000c00 28 32 39 2c 35 29 3d c0 a4 62 28 58 61 25 2c 59 |(29,5)=..b(Xa%,Y|
00000c10 61 25 2c 5a 61 25 29 29 0d 03 70 21 c9 35 3a 24 |a%,Za%))..p!.5:$|
00000c20 a4 74 28 32 39 2c 35 29 3d 22 43 75 72 72 65 6e |.t(29,5)="Curren|
00000c30 74 20 76 61 6c 75 65 73 22 0d 03 7a 22 c9 36 3a |t values"..z".6:|
00000c40 24 a4 74 28 32 39 2c 35 29 3d 22 50 75 72 63 68 |$.t(29,5)="Purch|
00000c50 61 73 65 20 76 61 6c 75 65 73 22 0d 03 84 05 cb |ase values".....|
00000c60 0d 03 8e 3e 24 a4 74 28 32 39 2c 38 29 3d 22 a3 |...>$.t(29,8)=".|
00000c70 22 2b c3 28 75 29 3a 24 a4 74 28 32 39 2c 31 30 |"+.(u):$.t(29,10|
00000c80 29 3d 22 a3 22 2b c3 28 76 29 3a 24 a4 74 28 32 |)="."+.(v):$.t(2|
00000c90 39 2c 31 31 29 3d 22 a3 22 2b c3 28 50 29 0d 03 |9,11)="."+.(P)..|
00000ca0 98 05 cb 0d 03 a2 11 c9 5f 61 25 3a c8 8e 71 25 |........_a%:..q%|
00000cb0 21 33 32 ca 0d 03 ac 29 c9 33 3a 77 25 3d 34 32 |!32....).3:w%=42|
00000cc0 3a 60 61 25 3d 31 3a f2 66 28 77 25 29 3a 24 a4 |:`a%=1:.f(w%):$.|
00000cd0 74 28 34 32 2c 33 29 3d c3 28 55 25 29 0d 03 b6 |t(42,3)=.(U%)...|
00000ce0 0f c9 36 3a c8 8e 71 25 21 33 36 ca 0d 03 c0 37 |..6:..q%!36....7|
00000cf0 c9 30 3a 77 25 3d 39 3a f2 66 28 77 25 29 3a f2 |.0:w%=9:.f(w%):.|
00000d00 56 28 33 35 38 32 29 3a 51 61 25 3d 33 3a 71 3d |V(3582):Qa%=3:q=|
00000d10 a4 74 28 39 2c 31 29 3a 24 a4 74 28 39 2c 31 29 |.t(9,1):$.t(9,1)|
00000d20 3d 46 24 0d 03 ca 37 c9 31 3a 77 25 3d 39 3a f2 |=F$...7.1:w%=9:.|
00000d30 66 28 77 25 29 3a f2 56 28 32 38 31 35 29 3a 51 |f(w%):.V(2815):Q|
00000d40 61 25 3d 34 3a 71 3d a4 74 28 39 2c 31 29 3a 24 |a%=4:q=.t(9,1):$|
00000d50 a4 74 28 39 2c 31 29 3d 47 24 0d 03 d4 05 cb 0d |.t(9,1)=G$......|
00000d60 03 de 05 cb 0d 03 e8 11 c9 61 62 25 3a c8 8e 71 |.........ab%:..q|
00000d70 25 21 33 32 ca 0d 03 f2 73 c9 31 3a 77 25 3d 31 |%!32....s.1:w%=1|
00000d80 31 3a f2 66 28 77 25 29 3a 71 3d a4 74 28 31 31 |1:.f(w%):q=.t(11|
00000d90 2c 31 29 3a 24 a4 74 28 31 31 2c 31 29 3d 48 24 |,1):$.t(11,1)=H$|
00000da0 3a 24 a4 74 28 31 31 2c 36 29 3d c3 28 5a 25 2d |:$.t(11,6)=.(Z%-|
00000db0 32 29 3a 24 a4 74 28 31 31 2c 37 29 3d c3 28 5a |2):$.t(11,7)=.(Z|
00000dc0 25 2d 31 29 3a 24 a4 74 28 31 31 2c 38 29 3d c3 |%-1):$.t(11,8)=.|
00000dd0 28 5a 25 29 3a e7 62 62 25 3c 33 8c f2 65 28 31 |(Z%):.bb%<3..e(1|
00000de0 31 2c 33 2b 62 62 25 29 0d 03 fc 13 e7 62 62 25 |1,3+bb%).....bb%|
00000df0 3d 33 8c f2 65 28 31 31 2c 39 29 0d 04 06 05 cb |=3..e(11,9).....|
00000e00 0d 04 10 27 c9 63 62 25 3a 44 24 3d c2 a4 62 28 |...'.cb%:D$=..b(|
00000e10 59 25 2c 64 25 28 67 25 29 2c 67 25 29 29 3a c8 |Y%,d%(g%),g%)):.|
00000e20 8e 71 25 21 33 32 ca 0d 04 1a 25 c9 30 3a 40 25 |.q%!32....%.0:@%|
00000e30 3d 30 3a 77 25 3d 33 30 3a f2 66 28 77 25 29 3a |=0:w%=30:.f(w%):|
00000e40 24 a4 74 28 33 30 2c 33 29 3d 51 24 0d 04 24 3a |$.t(30,3)=Q$..$:|
00000e50 c9 31 3a 40 25 3d 30 3a 77 25 3d 33 31 3a f2 66 |.1:@%=0:w%=31:.f|
00000e60 28 77 25 29 3a 24 a4 74 28 33 31 2c 35 29 3d c3 |(w%):$.t(31,5)=.|
00000e70 28 54 61 25 29 3a 24 a4 74 28 33 31 2c 37 29 3d |(Ta%):$.t(31,7)=|
00000e80 c3 28 55 61 25 29 0d 04 2e 3d c9 32 3a 40 25 3d |.(Ua%)...=.2:@%=|
00000e90 31 36 39 30 38 38 31 30 3a 77 25 3d 33 32 3a f2 |16908810:w%=32:.|
00000ea0 66 28 77 25 29 3a 24 a4 74 28 33 32 2c 35 29 3d |f(w%):$.t(32,5)=|
00000eb0 c3 28 49 29 3a 24 a4 74 28 33 32 2c 37 29 3d c3 |.(I):$.t(32,7)=.|
00000ec0 28 44 29 0d 04 38 3d c9 33 3a 40 25 3d 31 36 39 |(D)..8=.3:@%=169|
00000ed0 30 38 38 31 30 3a 77 25 3d 33 33 3a f2 66 28 77 |08810:w%=33:.f(w|
00000ee0 25 29 3a 24 a4 74 28 33 33 2c 35 29 3d c3 28 48 |%):$.t(33,5)=.(H|
00000ef0 29 3a 24 a4 74 28 33 33 2c 37 29 3d c3 28 45 29 |):$.t(33,7)=.(E)|
00000f00 0d 04 42 05 cb 0d 04 4c 11 c9 64 62 25 3a c8 8e |..B....L..db%:..|
00000f10 71 25 21 33 32 ca 0d 04 56 2a c9 31 3a 77 25 3d |q%!32...V*.1:w%=|
00000f20 34 32 3a 60 61 25 3d 30 3a f2 66 28 77 25 29 3a |42:`a%=0:.f(w%):|
00000f30 24 a4 74 28 34 32 2c 33 29 3d c3 28 65 62 25 29 |$.t(42,3)=.(eb%)|
00000f40 0d 04 60 05 cb 0d 04 6a 11 c9 66 62 25 3a c8 8e |..`....j..fb%:..|
00000f50 71 25 21 33 32 ca 0d 04 74 56 c9 30 3a 77 25 3d |q%!32...tV.0:w%=|
00000f60 31 32 3a f2 66 28 77 25 29 3a 24 a4 74 28 31 32 |12:.f(w%):$.t(12|
00000f70 2c 33 29 3d c0 24 28 62 25 28 49 25 29 2b 33 36 |,3)=.$(b%(I%)+36|
00000f80 2a 67 62 25 29 29 3a 68 62 25 3d 21 28 62 25 28 |*gb%)):hb%=!(b%(|
00000f90 49 25 29 2b 33 36 2a 67 62 25 2b 32 34 29 3a 40 |I%)+36*gb%+24):@|
00000fa0 25 3d 30 3a e7 68 62 25 3d 2d 31 8c 0d 04 7e 39 |%=0:.hb%=-1...~9|
00000fb0 24 a4 74 28 31 32 2c 35 29 3d 22 3c 75 6e 73 65 |$.t(12,5)="<unse|
00000fc0 74 3e 22 3a 24 a4 74 28 31 32 2c 39 29 3d 22 3c |t>":$.t(12,9)="<|
00000fd0 75 6e 73 65 74 3e 22 3a 69 62 25 3d 2d 31 3a 6a |unset>":ib%=-1:j|
00000fe0 62 25 3d 2d 31 0d 04 88 3f cc 3a 24 a4 74 28 31 |b%=-1...?.:$.t(1|
00000ff0 32 2c 35 29 3d a4 67 28 68 62 25 29 3a 24 a4 74 |2,5)=.g(hb%):$.t|
00001000 28 31 32 2c 39 29 3d a4 71 28 68 62 25 29 3a 69 |(12,9)=.q(hb%):i|
00001010 62 25 3d 68 62 25 83 31 32 3a 6a 62 25 3d 68 62 |b%=hb%.12:jb%=hb|
00001020 25 81 31 32 0d 04 92 05 cd 0d 04 9c 5c 40 25 3d |%.12........\@%=|
00001030 31 36 39 30 38 38 31 30 3a e7 21 28 62 25 28 49 |16908810:.!(b%(I|
00001040 25 29 2b 33 36 2a 67 62 25 2b 32 38 29 3e 30 8c |%)+36*gb%+28)>0.|
00001050 24 a4 74 28 31 32 2c 31 33 29 3d c3 28 21 28 62 |$.t(12,13)=.(!(b|
00001060 25 28 49 25 29 2b 33 36 2a 67 62 25 2b 32 38 29 |%(I%)+36*gb%+28)|
00001070 2a 30 2e 30 30 31 29 8b 24 a4 74 28 31 32 2c 31 |*0.001).$.t(12,1|
00001080 33 29 3d 22 22 0d 04 a6 50 e7 21 28 62 25 28 49 |3)=""...P.!(b%(I|
00001090 25 29 2b 33 36 2a 67 62 25 2b 33 32 29 3e 30 8c |%)+36*gb%+32)>0.|
000010a0 24 a4 74 28 31 32 2c 31 35 29 3d c3 28 21 28 62 |$.t(12,15)=.(!(b|
000010b0 25 28 49 25 29 2b 33 36 2a 67 62 25 2b 33 32 29 |%(I%)+36*gb%+32)|
000010c0 2a 30 2e 30 30 31 29 8b 24 a4 74 28 31 32 2c 31 |*0.001).$.t(12,1|
000010d0 35 29 3d 22 22 0d 04 b0 08 40 25 3d 30 0d 04 ba |5)=""....@%=0...|
000010e0 37 c9 33 3a 77 25 3d 39 3a f2 66 28 77 25 29 3a |7.3:w%=9:.f(w%):|
000010f0 f2 56 28 34 30 39 35 29 3a 51 61 25 3d 35 3a 71 |.V(4095):Qa%=5:q|
00001100 3d a4 74 28 39 2c 31 29 3a 24 a4 74 28 39 2c 31 |=.t(9,1):$.t(9,1|
00001110 29 3d 49 24 0d 04 c4 42 c9 34 3a 77 25 3d 34 30 |)=I$...B.4:w%=40|
00001120 3a 40 25 3d 30 3a f2 66 28 77 25 29 3a 6b 62 25 |:@%=0:.f(w%):kb%|
00001130 3d 28 64 25 28 67 25 29 83 31 32 29 3a 6c 62 25 |=(d%(g%).12):lb%|
00001140 3d 64 25 28 67 25 29 81 31 32 3a f2 58 28 36 29 |=d%(g%).12:.X(6)|
00001150 3a f2 58 28 39 29 0d 04 ce 05 cb 0d 04 d8 05 cb |:.X(9)..........|
00001160 0d 04 e2 20 c8 99 32 36 32 33 37 36 2c 2c 61 25 |... ..262376,,a%|
00001170 28 77 25 29 2c 71 25 21 32 34 2c 71 25 21 32 38 |(w%),q%!24,q%!28|
00001180 0d 04 ec 05 cb 0d 04 f6 05 e1 0d 05 00 88 dd f2 |................|
00001190 6e 61 3a 6d 62 25 3d 71 25 21 32 38 3a 21 70 25 |na:mb%=q%!28:!p%|
000011a0 3d 61 25 28 31 35 29 3a c8 99 32 36 32 33 34 37 |=a%(15):..262347|
000011b0 2c 2c 70 25 3a 6e 62 25 3d 70 25 21 32 34 3a 70 |,,p%:nb%=p%!24:p|
000011c0 25 21 34 3d 71 25 21 34 2b 32 32 3a 70 25 21 38 |%!4=q%!4+22:p%!8|
000011d0 3d 71 25 21 31 36 2d 34 30 38 3a 70 25 21 31 32 |=q%!16-408:p%!12|
000011e0 3d 71 25 21 31 32 2b 35 39 38 3a 70 25 21 31 36 |=q%!12+598:p%!16|
000011f0 3d 71 25 21 31 36 2d 32 38 3a e7 6f 62 25 8c 70 |=q%!16-28:.ob%.p|
00001200 25 21 32 34 3d 6e 62 25 8b 70 25 21 32 34 3d 37 |%!24=nb%.p%!24=7|
00001210 38 34 0d 05 0a 2f 70 25 21 32 38 3d 6d 62 25 3a |84.../p%!28=mb%:|
00001220 c8 99 32 36 32 33 34 31 2c 2c 70 25 3a 6f 62 25 |..262341,,p%:ob%|
00001230 3d b9 3a 71 25 21 32 38 3d 61 25 28 31 35 29 3a |=.:q%!28=a%(15):|
00001240 e1 0d 05 14 7f dd f2 6f 61 3a 6d 62 25 3d 71 25 |.......oa:mb%=q%|
00001250 21 32 38 3a 21 70 25 3d 61 25 28 33 37 29 3a c8 |!28:!p%=a%(37):.|
00001260 99 32 36 32 33 34 37 2c 2c 70 25 3a 6e 62 25 3d |.262347,,p%:nb%=|
00001270 70 25 21 32 34 3a 70 25 21 34 3d 71 25 21 34 2b |p%!24:p%!4=q%!4+|
00001280 32 32 3a 70 25 21 38 3d 71 25 21 31 36 2d 37 30 |22:p%!8=q%!16-70|
00001290 30 3a 70 25 21 31 32 3d 71 25 21 31 32 2b 35 39 |0:p%!12=q%!12+59|
000012a0 38 3a 70 25 21 31 36 3d 71 25 21 31 36 2d 33 39 |8:p%!16=q%!16-39|
000012b0 32 3a e7 70 62 25 8c 70 25 21 32 34 3d 6e 62 25 |2:.pb%.p%!24=nb%|
000012c0 0d 05 1e 2f 70 25 21 32 38 3d 6d 62 25 3a c8 99 |.../p%!28=mb%:..|
000012d0 32 36 32 33 34 31 2c 2c 70 25 3a 70 62 25 3d b9 |262341,,p%:pb%=.|
000012e0 3a 71 25 21 32 38 3d 61 25 28 33 37 29 3a e1 0d |:q%!28=a%(37):..|
000012f0 05 28 30 dd a4 68 28 61 25 29 3a ea 62 24 3a c8 |.(0..h(a%):.b$:.|
00001300 95 3f 61 25 3e 3d 33 32 3a 62 24 2b 3d bd 28 3f |.?a%>=32:b$+=.(?|
00001310 61 25 29 3a 61 25 2b 3d 31 3a ce 3a 3d 62 24 0d |a%):a%+=1:.:=b$.|
00001320 05 32 39 dd a4 74 28 6e 25 2c 69 25 29 3a 21 62 |.29..t(n%,i%):!b|
00001330 61 25 3d 61 25 28 6e 25 29 3a 62 61 25 21 34 3d |a%=a%(n%):ba%!4=|
00001340 69 25 3a c8 99 32 36 32 33 35 30 2c 2c 62 61 25 |i%:..262350,,ba%|
00001350 3a 3d 62 61 25 21 32 38 0d 05 3c 3f dd f2 4b 28 |:=ba%!28..<?..K(|
00001360 6e 25 29 3a e7 71 62 25 3c 3e 2d 31 80 61 25 28 |n%):.qb%<>-1.a%(|
00001370 6e 25 29 3c 3e 30 8c 21 47 25 3d 61 25 28 6e 25 |n%)<>0.!G%=a%(n%|
00001380 29 3a 47 25 21 34 3d 71 62 25 3a c8 99 32 36 32 |):G%!4=qb%:..262|
00001390 33 34 30 2c 2c 47 25 0d 05 46 05 e1 0d 05 50 18 |340,,G%..F....P.|
000013a0 dd f2 59 28 72 62 25 2c 73 62 25 29 3a e7 ac 74 |..Y(rb%,sb%):..t|
000013b0 62 25 8c e1 0d 05 5a 13 e7 75 62 25 3e 2d 31 8c |b%....Z..ub%>-1.|
000013c0 f2 4b 28 75 62 25 29 0d 05 64 a9 f2 79 28 33 29 |.K(ub%)..d..y(3)|
000013d0 3a 47 25 21 30 3d 61 25 28 72 62 25 29 3a 47 25 |:G%!0=a%(rb%):G%|
000013e0 21 34 3d 38 34 32 3a 47 25 21 38 3d 2d 32 31 36 |!4=842:G%!8=-216|
000013f0 2d 28 34 30 2a 73 62 25 29 3a 47 25 21 31 32 3d |-(40*sb%):G%!12=|
00001400 39 37 32 3a 47 25 21 31 36 3d 2d 31 37 32 2d 28 |972:G%!16=-172-(|
00001410 34 30 2a 73 62 25 29 3a 47 25 21 32 30 3d 26 37 |40*sb%):G%!20=&7|
00001420 30 30 46 33 32 35 3a 24 66 61 25 3d c3 28 48 29 |00F325:$fa%=.(H)|
00001430 3a 47 25 21 32 34 3d 66 61 25 3a 47 25 21 32 38 |:G%!24=fa%:G%!28|
00001440 3d 2d 31 3a 47 25 21 33 32 3d 31 30 3a c8 99 32 |=-1:G%!32=10:..2|
00001450 36 32 33 33 38 2c 2c 47 25 b8 71 62 25 3a f2 6a |62338,,G%.qb%:.j|
00001460 28 72 62 25 2c 71 62 25 29 3a 40 25 3d 30 3a e1 |(rb%,qb%):@%=0:.|
00001470 0d 05 6e 3f dd f2 6a 28 6e 25 2c 69 25 29 3a 21 |..n?..j(n%,i%):!|
00001480 71 25 3d 61 25 28 6e 25 29 3a 71 25 21 34 3d 69 |q%=a%(n%):q%!4=i|
00001490 25 3a 71 25 21 38 3d 30 3a 71 25 21 31 32 3d 30 |%:q%!8=0:q%!12=0|
000014a0 3a c8 99 32 36 32 33 34 39 2c 2c 71 25 3a e1 0d |:..262349,,q%:..|
000014b0 05 78 47 dd f2 65 28 6e 25 2c 69 25 29 3a 21 71 |.xG..e(n%,i%):!q|
000014c0 25 3d 61 25 28 6e 25 29 3a 71 25 21 34 3d 69 25 |%=a%(n%):q%!4=i%|
000014d0 3a 71 25 21 38 3d 31 3c 3c 32 31 3a 71 25 21 31 |:q%!8=1<<21:q%!1|
000014e0 32 3d 31 3c 3c 32 31 3a c8 99 32 36 32 33 34 39 |2=1<<21:..262349|
000014f0 2c 2c 71 25 3a e1 0d 05 82 47 dd f2 43 28 6e 25 |,,q%:....G..C(n%|
00001500 2c 69 25 29 3a 21 71 25 3d 61 25 28 6e 25 29 3a |,i%):!q%=a%(n%):|
00001510 71 25 21 34 3d 69 25 3a 71 25 21 38 3d 30 3c 3c |q%!4=i%:q%!8=0<<|
00001520 32 31 3a 71 25 21 31 32 3d 31 3c 3c 32 31 3a c8 |21:q%!12=1<<21:.|
00001530 99 32 36 32 33 34 39 2c 2c 71 25 3a e1 0d 05 8c |.262349,,q%:....|
00001540 49 dd f2 44 61 28 6e 25 2c 69 25 29 3a 21 71 25 |I..Da(n%,i%):!q%|
00001550 3d 61 25 28 6e 25 29 3a 71 25 21 34 3d 69 25 3a |=a%(n%):q%!4=i%:|
00001560 71 25 21 38 3d 37 3c 3c 32 34 3a 71 25 21 31 32 |q%!8=7<<24:q%!12|
00001570 3d 31 35 3c 3c 32 34 3a c8 99 32 36 32 33 34 39 |=15<<24:..262349|
00001580 2c 2c 71 25 3a e1 0d 05 96 49 dd f2 45 61 28 6e |,,q%:....I..Ea(n|
00001590 25 2c 69 25 29 3a 21 71 25 3d 61 25 28 6e 25 29 |%,i%):!q%=a%(n%)|
000015a0 3a 71 25 21 34 3d 69 25 3a 71 25 21 38 3d 33 3c |:q%!4=i%:q%!8=3<|
000015b0 3c 32 34 3a 71 25 21 31 32 3d 31 35 3c 3c 32 34 |<24:q%!12=15<<24|
000015c0 3a c8 99 32 36 32 33 34 39 2c 2c 71 25 3a e1 0d |:..262349,,q%:..|
000015d0 05 a0 4c dd f2 46 61 28 69 25 2c 76 62 25 29 3a |..L..Fa(i%,vb%):|
000015e0 21 71 25 3d 61 25 28 31 33 29 3a 71 25 21 34 3d |!q%=a%(13):q%!4=|
000015f0 69 25 3a 71 25 21 38 3d 76 62 25 3c 3c 32 38 3a |i%:q%!8=vb%<<28:|
00001600 71 25 21 31 32 3d 31 35 3c 3c 32 38 3a c8 99 32 |q%!12=15<<28:..2|
00001610 36 32 33 34 39 2c 2c 71 25 3a e1 0d 05 aa 3e dd |62349,,q%:....>.|
00001620 f2 62 28 6e 25 2c 69 25 2c 62 25 29 3a 71 25 21 |.b(n%,i%,b%):q%!|
00001630 38 3d 62 25 3a 71 25 21 31 32 3d 61 25 28 6e 25 |8=b%:q%!12=a%(n%|
00001640 29 3a 71 25 21 31 36 3d 69 25 3a c8 99 35 33 30 |):q%!16=i%:..530|
00001650 30 34 38 2c 2c 71 25 3a e1 0d 05 b4 65 dd f2 56 |048,,q%:....e..V|
00001660 28 77 62 25 29 3a 21 47 25 3d 61 25 28 39 29 3a |(wb%):!G%=a%(9):|
00001670 47 25 21 34 3d 32 3a c8 99 32 36 32 33 35 30 2c |G%!4=2:..262350,|
00001680 2c 47 25 3a 24 47 25 21 32 38 3d 22 66 69 6c 65 |,G%:$G%!28="file|
00001690 5f 22 2b c3 7e 28 77 62 25 29 2b bd 28 30 29 3a |_"+.~(wb%)+.(0):|
000016a0 47 25 21 38 3d 31 3a 47 25 21 31 32 3d 31 33 3a |G%!8=1:G%!12=13:|
000016b0 c8 99 32 36 32 33 34 39 2c 2c 47 25 3a e1 0d 05 |..262349,,G%:...|
000016c0 be 53 dd a4 72 28 73 24 29 3a c8 95 a7 73 24 2c |.S..r(s$):...s$,|
000016d0 22 3a 22 29 3e 30 3a 73 24 3d c1 73 24 2c a7 73 |":")>0:s$=.s$,.s|
000016e0 24 2c 22 3a 22 29 2b 31 29 3a ce 3a c8 95 a7 73 |$,":")+1):.:...s|
000016f0 24 2c 22 2e 22 29 3e 30 3a 73 24 3d c1 73 24 2c |$,".")>0:s$=.s$,|
00001700 a7 73 24 2c 22 2e 22 29 2b 31 29 3a ce 3a 3d 73 |.s$,".")+1):.:=s|
00001710 24 0d 05 c8 47 dd a4 42 28 73 24 29 3a ea 78 62 |$...G..B(s$):.xb|
00001720 25 3a 78 62 25 3d a9 28 73 24 29 3a c8 95 c1 73 |%:xb%=.(s$):...s|
00001730 24 2c 78 62 25 2c 31 29 3c 3e 22 2e 22 80 78 62 |$,xb%,1)<>".".xb|
00001740 25 3e 31 3a 78 62 25 2d 3d 31 3a ce 3a 3d c0 73 |%>1:xb%-=1:.:=.s|
00001750 24 2c 78 62 25 2d 31 29 0d 05 d2 31 dd f2 75 61 |$,xb%-1)...1..ua|
00001760 28 79 62 25 2c 7a 62 25 2c 53 25 29 3a e3 41 62 |(yb%,zb%,S%):.Ab|
00001770 25 3d 30 b8 35 3a e7 79 62 25 3d 61 25 28 41 62 |%=0.5:.yb%=a%(Ab|
00001780 25 29 8c 67 25 3d 41 62 25 0d 05 dc 14 ed 3a e7 |%).g%=Ab%.....:.|
00001790 75 62 25 3e 2d 31 8c 67 25 3d 75 62 25 0d 05 e6 |ub%>-1.g%=ub%...|
000017a0 0f 5f 25 3d a3 3a c8 8e 79 62 25 ca 0d 05 f0 3b |._%=.:..yb%....;|
000017b0 c9 61 25 28 30 29 2c 61 25 28 31 29 2c 61 25 28 |.a%(0),a%(1),a%(|
000017c0 32 29 2c 61 25 28 33 29 2c 61 25 28 34 29 2c 61 |2),a%(3),a%(4),a|
000017d0 25 28 35 29 3a f2 68 3a e7 7a 62 25 3d 71 62 25 |%(5):.h:.zb%=qb%|
000017e0 80 53 25 3d 31 33 8c 0d 05 fa 8e 5f 25 3d b9 3a |.S%=13....._%=.:|
000017f0 f2 73 28 42 62 25 2c 43 62 25 2c 75 62 25 2c bb |.s(Bb%,Cb%,ub%,.|
00001800 28 24 28 a4 74 28 75 62 25 2c 71 62 25 29 29 29 |($(.t(ub%,qb%)))|
00001810 29 3a f2 63 28 42 62 25 2c 43 62 25 2c 75 62 25 |):.c(Bb%,Cb%,ub%|
00001820 29 3a f2 47 61 3a f2 70 3a c8 99 32 36 32 33 37 |):.Ga:.p:..26237|
00001830 34 2c 37 3a f2 4e 28 42 62 25 2c 75 62 25 29 3a |4,7:.N(Bb%,ub%):|
00001840 44 62 25 3d 42 62 25 2b 31 3a 45 62 25 3d 43 62 |Db%=Bb%+1:Eb%=Cb|
00001850 25 3a 46 62 25 3d 75 62 25 3a c8 99 32 36 32 33 |%:Fb%=ub%:..2623|
00001860 37 34 2c 31 31 3a f2 4e 28 44 62 25 2c 46 62 25 |74,11:.N(Db%,Fb%|
00001870 29 3a f2 48 61 0d 06 04 71 e7 44 62 25 3c 3e 6e |):.Ha...q.Db%<>n|
00001880 25 28 46 62 25 2c 45 62 25 29 80 74 62 25 8c f2 |%(Fb%,Eb%).tb%..|
00001890 59 28 46 62 25 2c 44 62 25 29 3a c8 99 32 36 32 |Y(Fb%,Db%):..262|
000018a0 33 35 34 2c 61 25 28 46 62 25 29 2c 71 62 25 2c |354,a%(Fb%),qb%,|
000018b0 2c 2c 2d 31 2c 30 8b 21 47 25 3d 61 25 28 46 62 |,,-1,0.!G%=a%(Fb|
000018c0 25 29 3a 47 25 21 34 3d 71 62 25 3a c8 99 32 36 |%):G%!4=qb%:..26|
000018d0 32 33 34 30 2c 2c 47 25 3a f2 75 28 30 29 3a f2 |2340,,G%:.u(0):.|
000018e0 6e 28 7a 61 25 29 0d 06 0e 05 cd 0d 06 18 13 c9 |n(za%)..........|
000018f0 61 25 28 34 32 29 3a e7 53 25 3d 31 33 8c 0d 06 |a%(42):.S%=13...|
00001900 22 15 f2 62 28 34 32 2c 35 2c 31 29 3a c8 8e 60 |"..b(42,5,1):..`|
00001910 61 25 ca 0d 06 2c 59 c9 30 3a e7 bb 28 24 28 a4 |a%...,Y.0:..($(.|
00001920 74 28 34 32 2c 33 29 29 29 3e 39 8c 65 62 25 3d |t(42,3)))>9.eb%=|
00001930 bb 28 24 28 a4 74 28 34 32 2c 33 29 29 29 3a f2 |.($(.t(42,3))):.|
00001940 68 3a f2 62 28 34 32 2c 35 2c 30 29 3a f2 49 61 |h:.b(42,5,0):.Ia|
00001950 3a 5f 25 3d b9 8b f2 68 3a f2 62 28 34 32 2c 35 |:_%=...h:.b(42,5|
00001960 2c 30 29 3a f2 49 61 3a 5f 25 3d b9 0d 06 36 58 |,0):.Ia:_%=...6X|
00001970 c9 31 3a e7 bb 28 24 28 a4 74 28 34 32 2c 33 29 |.1:..($(.t(42,3)|
00001980 29 29 3e 39 8c 55 25 3d bb 28 24 28 a4 74 28 34 |))>9.U%=.($(.t(4|
00001990 32 2c 33 29 29 29 3a f2 68 3a f2 62 28 34 32 2c |2,3))):.h:.b(42,|
000019a0 35 2c 30 29 3a f2 4a 61 3a 5f 25 3d b9 8b f2 68 |5,0):.Ja:_%=...h|
000019b0 3a f2 62 28 34 32 2c 35 2c 30 29 3a f2 4a 61 3a |:.b(42,5,0):.Ja:|
000019c0 5f 25 3d b9 0d 06 40 05 cb 0d 06 4a 05 cd 0d 06 |_%=...@....J....|
000019d0 54 12 c9 61 25 28 39 29 3a e7 53 25 3d 31 33 8c |T..a%(9):.S%=13.|
000019e0 0d 06 5e 19 f2 62 28 39 2c 30 2c 31 29 3a 5f 25 |..^..b(9,0,1):_%|
000019f0 3d b9 3a c8 8e 51 61 25 ca 0d 06 68 14 c9 30 3a |=.:..Qa%...h..0:|
00001a00 f2 4b 61 28 a4 68 28 71 29 29 3a f2 68 0d 06 72 |.Ka(.h(q)):.h..r|
00001a10 14 c9 33 3a f2 4c 61 28 a4 68 28 71 29 29 3a f2 |..3:.La(.h(q)):.|
00001a20 68 0d 06 7c 14 c9 34 3a f2 4d 61 28 a4 68 28 71 |h..|..4:.Ma(.h(q|
00001a30 29 29 3a f2 68 0d 06 86 14 c9 35 3a f2 4e 61 28 |)):.h.....5:.Na(|
00001a40 a4 68 28 71 29 29 3a f2 68 0d 06 90 05 cb 0d 06 |.h(q)):.h.......|
00001a50 9a 0d f2 62 28 39 2c 30 2c 30 29 0d 06 a4 05 cd |...b(9,0,0).....|
00001a60 0d 06 ae 3b c9 61 25 28 31 30 29 3a e7 53 25 3d |...;.a%(10):.S%=|
00001a70 31 33 8c f2 62 28 31 30 2c 30 2c 31 29 3a f2 4f |13..b(10,0,1):.O|
00001a80 61 28 a4 68 28 71 29 29 3a f2 68 3a f2 62 28 31 |a(.h(q)):.h:.b(1|
00001a90 30 2c 30 2c 30 29 3a 5f 25 3d b9 0d 06 b8 3b c9 |0,0,0):_%=....;.|
00001aa0 61 25 28 31 31 29 3a e7 53 25 3d 31 33 8c f2 62 |a%(11):.S%=13..b|
00001ab0 28 31 31 2c 30 2c 31 29 3a f2 50 61 28 a4 68 28 |(11,0,1):.Pa(.h(|
00001ac0 71 29 29 3a f2 68 3a f2 62 28 31 31 2c 30 2c 30 |q)):.h:.b(11,0,0|
00001ad0 29 3a 5f 25 3d b9 0d 06 c2 12 c9 61 25 28 32 31 |):_%=......a%(21|
00001ae0 29 3a c8 8e 7a 62 25 ca 0d 06 cc 2c c9 36 3a e7 |):..zb%....,.6:.|
00001af0 53 25 3d 31 33 8c 5f 25 3d b9 3a c8 99 32 36 32 |S%=13._%=.:..262|
00001b00 33 35 34 2c 61 25 28 32 31 29 2c 31 31 2c 2c 2c |354,a%(21),11,,,|
00001b10 2d 31 2c 30 0d 06 d6 31 e7 53 25 3d 33 39 38 84 |-1,0...1.S%=398.|
00001b20 53 25 3d 33 39 39 8c 5f 25 3d b9 3a c8 99 32 36 |S%=399._%=.:..26|
00001b30 32 33 35 34 2c 61 25 28 32 31 29 2c 31 32 2c 2c |2354,a%(21),12,,|
00001b40 2c 2d 31 2c 30 0d 06 e0 2d c9 31 31 3a e7 53 25 |,-1,0...-.11:.S%|
00001b50 3d 31 33 8c 5f 25 3d b9 3a c8 99 32 36 32 33 35 |=13._%=.:..26235|
00001b60 34 2c 61 25 28 32 31 29 2c 31 32 2c 2c 2c 2d 31 |4,a%(21),12,,,-1|
00001b70 2c 30 0d 06 ea 31 e7 53 25 3d 33 39 38 84 53 25 |,0...1.S%=398.S%|
00001b80 3d 33 39 39 8c 5f 25 3d b9 3a c8 99 32 36 32 33 |=399._%=.:..2623|
00001b90 35 34 2c 61 25 28 32 31 29 2c 31 34 2c 2c 2c 2d |54,a%(21),14,,,-|
00001ba0 31 2c 30 0d 06 f4 2d c9 31 32 3a e7 53 25 3d 31 |1,0...-.12:.S%=1|
00001bb0 33 8c 5f 25 3d b9 3a c8 99 32 36 32 33 35 34 2c |3._%=.:..262354,|
00001bc0 61 25 28 32 31 29 2c 31 34 2c 2c 2c 2d 31 2c 30 |a%(21),14,,,-1,0|
00001bd0 0d 06 fe 30 e7 53 25 3d 33 39 38 84 53 25 3d 33 |...0.S%=398.S%=3|
00001be0 39 39 8c 5f 25 3d b9 3a c8 99 32 36 32 33 35 34 |99._%=.:..262354|
00001bf0 2c 61 25 28 32 31 29 2c 36 2c 2c 2c 2d 31 2c 30 |,a%(21),6,,,-1,0|
00001c00 0d 07 08 2a c9 31 34 3a e7 53 25 3d 31 33 8c 5f |...*.14:.S%=13._|
00001c10 25 3d b9 3a f2 62 28 32 31 2c 31 33 2c 31 29 3a |%=.:.b(21,13,1):|
00001c20 f2 51 61 3a f2 67 28 32 31 29 0d 07 12 31 e7 53 |.Qa:.g(21)...1.S|
00001c30 25 3d 33 39 38 84 53 25 3d 33 39 39 8c 5f 25 3d |%=398.S%=399._%=|
00001c40 b9 3a c8 99 32 36 32 33 35 34 2c 61 25 28 32 31 |.:..262354,a%(21|
00001c50 29 2c 31 31 2c 2c 2c 2d 31 2c 30 0d 07 1c 05 cb |),11,,,-1,0.....|
00001c60 0d 07 26 12 c9 61 25 28 33 30 29 3a c8 8e 7a 62 |..&..a%(30):..zb|
00001c70 25 ca 0d 07 30 65 c9 33 3a e7 53 25 3d 31 33 8c |%...0e.3:.S%=13.|
00001c80 5f 25 3d b9 3a f2 62 28 33 30 2c 32 2c 31 29 3a |_%=.:.b(30,2,1):|
00001c90 f2 74 28 59 25 2c 64 25 28 67 25 29 2c 67 25 2c |.t(Y%,d%(g%),g%,|
00001ca0 24 28 a4 74 28 33 30 2c 33 29 29 2b 44 24 29 3a |$(.t(30,3))+D$):|
00001cb0 f2 63 28 59 25 2c 64 25 28 67 25 29 2c 67 25 29 |.c(Y%,d%(g%),g%)|
00001cc0 3a f2 75 28 30 29 3a f2 68 3a f2 62 28 33 30 2c |:.u(0):.h:.b(30,|
00001cd0 32 2c 30 29 3a f2 70 0d 07 3a 05 cb 0d 07 44 12 |2,0):.p..:....D.|
00001ce0 c9 61 25 28 33 31 29 3a c8 8e 7a 62 25 ca 0d 07 |.a%(31):..zb%...|
00001cf0 4e 2b c9 35 3a e7 53 25 3d 31 33 8c 5f 25 3d b9 |N+.5:.S%=13._%=.|
00001d00 3a c8 99 32 36 32 33 35 34 2c 61 25 28 33 31 29 |:..262354,a%(31)|
00001d10 2c 37 2c 2c 2c 2d 31 2c 30 0d 07 58 30 e7 53 25 |,7,,,-1,0..X0.S%|
00001d20 3d 33 39 38 84 53 25 3d 33 39 39 8c 5f 25 3d b9 |=398.S%=399._%=.|
00001d30 3a c8 99 32 36 32 33 35 34 2c 61 25 28 33 31 29 |:..262354,a%(31)|
00001d40 2c 37 2c 2c 2c 2d 31 2c 30 0d 07 62 65 c9 37 3a |,7,,,-1,0..be.7:|
00001d50 e7 53 25 3d 31 33 8c 5f 25 3d b9 3a f2 62 28 33 |.S%=13._%=.:.b(3|
00001d60 31 2c 32 2c 31 29 3a f2 7a 28 59 25 2c 64 25 28 |1,2,1):.z(Y%,d%(|
00001d70 67 25 29 2c 67 25 2c bb 28 24 28 a4 74 28 33 31 |g%),g%,.($(.t(31|
00001d80 2c 35 29 29 29 29 3a f2 63 28 59 25 2c 64 25 28 |,5)))):.c(Y%,d%(|
00001d90 67 25 29 2c 67 25 29 3a f2 75 28 30 29 3a f2 68 |g%),g%):.u(0):.h|
00001da0 3a f2 62 28 33 31 2c 32 2c 30 29 3a f2 70 0d 07 |:.b(31,2,0):.p..|
00001db0 6c 30 e7 53 25 3d 33 39 38 84 53 25 3d 33 39 39 |l0.S%=398.S%=399|
00001dc0 8c 5f 25 3d b9 3a c8 99 32 36 32 33 35 34 2c 61 |._%=.:..262354,a|
00001dd0 25 28 33 31 29 2c 35 2c 2c 2c 2d 31 2c 30 0d 07 |%(31),5,,,-1,0..|
00001de0 76 05 cb 0d 07 80 12 c9 61 25 28 33 32 29 3a c8 |v.......a%(32):.|
00001df0 8e 7a 62 25 ca 0d 07 8a 2b c9 35 3a e7 53 25 3d |.zb%....+.5:.S%=|
00001e00 31 33 8c 5f 25 3d b9 3a c8 99 32 36 32 33 35 34 |13._%=.:..262354|
00001e10 2c 61 25 28 33 32 29 2c 37 2c 2c 2c 2d 31 2c 30 |,a%(32),7,,,-1,0|
00001e20 0d 07 94 30 e7 53 25 3d 33 39 38 84 53 25 3d 33 |...0.S%=398.S%=3|
00001e30 39 39 8c 5f 25 3d b9 3a c8 99 32 36 32 33 35 34 |99._%=.:..262354|
00001e40 2c 61 25 28 33 32 29 2c 37 2c 2c 2c 2d 31 2c 30 |,a%(32),7,,,-1,0|
00001e50 0d 07 9e 65 c9 37 3a e7 53 25 3d 31 33 8c 5f 25 |...e.7:.S%=13._%|
00001e60 3d b9 3a f2 62 28 33 32 2c 32 2c 31 29 3a f2 41 |=.:.b(32,2,1):.A|
00001e70 28 59 25 2c 64 25 28 67 25 29 2c 67 25 2c bb 28 |(Y%,d%(g%),g%,.(|
00001e80 24 28 a4 74 28 33 32 2c 35 29 29 29 29 3a f2 63 |$(.t(32,5)))):.c|
00001e90 28 59 25 2c 64 25 28 67 25 29 2c 67 25 29 3a f2 |(Y%,d%(g%),g%):.|
00001ea0 75 28 30 29 3a f2 68 3a f2 62 28 33 32 2c 32 2c |u(0):.h:.b(32,2,|
00001eb0 30 29 3a f2 70 0d 07 a8 30 e7 53 25 3d 33 39 38 |0):.p...0.S%=398|
00001ec0 84 53 25 3d 33 39 39 8c 5f 25 3d b9 3a c8 99 32 |.S%=399._%=.:..2|
00001ed0 36 32 33 35 34 2c 61 25 28 33 32 29 2c 35 2c 2c |62354,a%(32),5,,|
00001ee0 2c 2d 31 2c 30 0d 07 b2 05 cb 0d 07 bc 12 c9 61 |,-1,0..........a|
00001ef0 25 28 33 33 29 3a c8 8e 7a 62 25 ca 0d 07 c6 2b |%(33):..zb%....+|
00001f00 c9 35 3a e7 53 25 3d 31 33 8c 5f 25 3d b9 3a c8 |.5:.S%=13._%=.:.|
00001f10 99 32 36 32 33 35 34 2c 61 25 28 33 33 29 2c 37 |.262354,a%(33),7|
00001f20 2c 2c 2c 2d 31 2c 30 0d 07 d0 30 e7 53 25 3d 33 |,,,-1,0...0.S%=3|
00001f30 39 38 84 53 25 3d 33 39 39 8c 5f 25 3d b9 3a c8 |98.S%=399._%=.:.|
00001f40 99 32 36 32 33 35 34 2c 61 25 28 33 33 29 2c 37 |.262354,a%(33),7|
00001f50 2c 2c 2c 2d 31 2c 30 0d 07 da 69 c9 37 3a e7 53 |,,,-1,0...i.7:.S|
00001f60 25 3d 31 33 8c 5f 25 3d b9 3a f2 62 28 33 33 2c |%=13._%=.:.b(33,|
00001f70 32 2c 31 29 3a f2 73 28 59 25 2c 64 25 28 67 25 |2,1):.s(Y%,d%(g%|
00001f80 29 2c 67 25 2c bb 28 24 28 a4 74 28 33 33 2c 35 |),g%,.($(.t(33,5|
00001f90 29 29 29 29 3a f2 63 28 59 25 2c 64 25 28 67 25 |)))):.c(Y%,d%(g%|
00001fa0 29 2c 67 25 29 3a f2 47 61 3a f2 75 28 30 29 3a |),g%):.Ga:.u(0):|
00001fb0 f2 68 3a f2 62 28 33 33 2c 32 2c 30 29 3a f2 70 |.h:.b(33,2,0):.p|
00001fc0 0d 07 e4 30 e7 53 25 3d 33 39 38 84 53 25 3d 33 |...0.S%=398.S%=3|
00001fd0 39 39 8c 5f 25 3d b9 3a c8 99 32 36 32 33 35 34 |99._%=.:..262354|
00001fe0 2c 61 25 28 33 33 29 2c 35 2c 2c 2c 2d 31 2c 30 |,a%(33),5,,,-1,0|
00001ff0 0d 07 ee 05 cb 0d 07 f8 12 c9 61 25 28 31 32 29 |..........a%(12)|
00002000 3a c8 8e 7a 62 25 ca 0d 08 02 2d c9 31 33 3a e7 |:..zb%....-.13:.|
00002010 53 25 3d 31 33 8c 5f 25 3d b9 3a c8 99 32 36 32 |S%=13._%=.:..262|
00002020 33 35 34 2c 61 25 28 31 32 29 2c 31 35 2c 2c 2c |354,a%(12),15,,,|
00002030 2d 31 2c 30 0d 08 0c 31 e7 53 25 3d 33 39 38 84 |-1,0...1.S%=398.|
00002040 53 25 3d 33 39 39 8c 5f 25 3d b9 3a c8 99 32 36 |S%=399._%=.:..26|
00002050 32 33 35 34 2c 61 25 28 31 32 29 2c 31 35 2c 2c |2354,a%(12),15,,|
00002060 2c 2d 31 2c 30 0d 08 16 32 c9 31 35 3a e7 53 25 |,-1,0...2.15:.S%|
00002070 3d 31 33 8c 5f 25 3d b9 3a f2 62 28 31 32 2c 31 |=13._%=.:.b(12,1|
00002080 32 2c 31 29 3a f2 52 61 3a f2 68 3a f2 62 28 31 |2,1):.Ra:.h:.b(1|
00002090 32 2c 31 32 2c 30 29 0d 08 20 31 e7 53 25 3d 33 |2,12,0).. 1.S%=3|
000020a0 39 38 84 53 25 3d 33 39 39 8c 5f 25 3d b9 3a c8 |98.S%=399._%=.:.|
000020b0 99 32 36 32 33 35 34 2c 61 25 28 31 32 29 2c 31 |.262354,a%(12),1|
000020c0 33 2c 2c 2c 2d 31 2c 30 0d 08 2a 05 cb 0d 08 34 |3,,,-1,0..*....4|
000020d0 1f 7f 3a c8 99 32 36 32 33 36 34 2c 53 25 3a e7 |..:..262364,S%:.|
000020e0 53 25 3d 31 80 42 62 25 3e 2d 31 8c 0d 08 3e 39 |S%=1.Bb%>-1...>9|
000020f0 5f 25 3d b9 3a 67 25 3d 75 62 25 3a c8 99 32 36 |_%=.:g%=ub%:..26|
00002100 32 33 35 31 2c 2c 47 25 3a f2 6e 28 63 62 25 29 |2351,,G%:.n(cb%)|
00002110 3a f2 6f 28 63 62 25 2c 47 25 21 30 2d 36 34 2c |:.o(cb%,G%!0-64,|
00002120 47 25 21 34 29 0d 08 48 0a cc 3a 5f 25 3d b9 0d |G%!4)..H..:_%=..|
00002130 08 52 05 cd 0d 08 5c 1f e7 53 25 3d 31 34 8c 5f |.R....\..S%=14._|
00002140 25 3d b9 3a f2 6c 28 30 2c 32 31 29 3a 47 62 25 |%=.:.l(0,21):Gb%|
00002150 3d 67 25 0d 08 66 29 e7 53 25 3d 31 38 80 42 62 |=g%..f).S%=18.Bb|
00002160 25 3e 2d 31 8c 5f 25 3d b9 3a f2 53 61 28 31 29 |%>-1._%=.:.Sa(1)|
00002170 3a e7 78 61 25 3d 7a 61 25 8c f2 68 0d 08 70 05 |:.xa%=za%..h..p.|
00002180 cb 0d 08 7a 14 e7 ac 5f 25 8c c8 99 32 36 32 33 |...z..._%...2623|
00002190 36 34 2c 53 25 0d 08 84 05 e1 0d 08 8e 7e dd f2 |64,S%........~..|
000021a0 6b 61 3a c8 99 35 33 2c 2d 31 2c 34 b8 2c 2c 48 |ka:..53,-1,4.,,H|
000021b0 62 25 3a c8 99 35 33 2c 2d 31 2c 31 31 b8 2c 2c |b%:..53,-1,11.,,|
000021c0 75 61 25 3a 75 61 25 3d 75 61 25 3c 3c 48 62 25 |ua%:ua%=ua%<<Hb%|
000021d0 3a c8 99 35 33 2c 2d 31 2c 35 b8 2c 2c 49 62 25 |:..53,-1,5.,,Ib%|
000021e0 3a c8 99 35 33 2c 2d 31 2c 31 32 b8 2c 2c 74 61 |:..53,-1,12.,,ta|
000021f0 25 3a 74 61 25 3d 74 61 25 3c 3c 49 62 25 3a c8 |%:ta%=ta%<<Ib%:.|
00002200 99 32 36 32 33 35 31 2c 2c 47 25 3a e7 4a 62 25 |.262351,,G%:.Jb%|
00002210 f2 72 61 28 21 47 25 29 0d 08 98 0c 67 25 3d 4b |.ra(!G%)....g%=K|
00002220 62 25 3a e1 0d 08 a2 27 dd f2 72 61 28 4c 62 25 |b%:....'..ra(Lb%|
00002230 29 3a e3 4d 62 25 3d 30 b8 35 3a e7 4c 62 25 3d |):.Mb%=0.5:.Lb%=|
00002240 61 25 28 4d 62 25 29 8c f2 54 61 0d 08 ac 07 ed |a%(Mb%)..Ta.....|
00002250 3a e1 0d 08 b6 31 dd f2 72 28 71 25 29 3a c8 99 |:....1..r(q%):..|
00002260 32 36 32 33 34 34 2c 2c 71 25 b8 4e 62 25 3a c8 |262344,,q%.Nb%:.|
00002270 95 4e 62 25 3a f2 55 61 28 71 25 29 3a c8 8e 21 |.Nb%:.Ua(q%):..!|
00002280 71 25 ca 0d 08 c0 20 c9 61 25 28 30 29 3a e7 6e |q%.... .a%(0):.n|
00002290 25 28 30 2c 64 25 28 30 29 29 3e 30 f2 4c 28 30 |%(0,d%(0))>0.L(0|
000022a0 2c a3 29 0d 08 ca 20 c9 61 25 28 31 29 3a e7 6e |,.)... .a%(1):.n|
000022b0 25 28 31 2c 64 25 28 31 29 29 3e 30 f2 4c 28 31 |%(1,d%(1))>0.L(1|
000022c0 2c a3 29 0d 08 d4 20 c9 61 25 28 32 29 3a e7 6e |,.)... .a%(2):.n|
000022d0 25 28 32 2c 64 25 28 32 29 29 3e 30 f2 4c 28 32 |%(2,d%(2))>0.L(2|
000022e0 2c a3 29 0d 08 de 20 c9 61 25 28 33 29 3a e7 6e |,.)... .a%(3):.n|
000022f0 25 28 33 2c 64 25 28 33 29 29 3e 30 f2 4c 28 33 |%(3,d%(3))>0.L(3|
00002300 2c a3 29 0d 08 e8 20 c9 61 25 28 34 29 3a e7 6e |,.)... .a%(4):.n|
00002310 25 28 34 2c 64 25 28 34 29 29 3e 30 f2 4c 28 34 |%(4,d%(4))>0.L(4|
00002320 2c a3 29 0d 08 f2 20 c9 61 25 28 35 29 3a e7 6e |,.)... .a%(5):.n|
00002330 25 28 35 2c 64 25 28 35 29 29 3e 30 f2 4c 28 35 |%(5,d%(5))>0.L(5|
00002340 2c a3 29 0d 08 fc 24 c9 61 25 28 32 33 29 3a e7 |,.)...$.a%(23):.|
00002350 6e 25 28 4f 62 25 2c 50 62 25 29 3e 30 8c f2 4c |n%(Ob%,Pb%)>0..L|
00002360 28 4f 62 25 2c b9 29 0d 09 06 0f c9 61 25 28 32 |(Ob%,.).....a%(2|
00002370 38 29 3a f2 56 61 0d 09 10 0f c9 61 25 28 33 37 |8):.Va.....a%(37|
00002380 29 3a f2 57 61 0d 09 1a 0f c9 61 25 28 33 38 29 |):.Wa.....a%(38)|
00002390 3a f2 58 61 0d 09 24 0f c9 61 25 28 33 39 29 3a |:.Xa..$..a%(39):|
000023a0 f2 59 61 0d 09 2e 1a c9 61 25 28 34 31 29 3a e7 |.Ya.....a%(41):.|
000023b0 76 25 28 49 25 29 3e 2d 31 8c f2 5a 61 0d 09 38 |v%(I%)>-1..Za..8|
000023c0 0f c9 61 25 28 31 37 29 3a f2 5f 61 0d 09 42 05 |..a%(17):._a..B.|
000023d0 cb 0d 09 4c 25 c8 99 35 33 30 30 34 39 2c 2c 71 |...L%..530049,,q|
000023e0 25 3a c8 99 32 36 32 33 34 36 2c 2c 71 25 b8 4e |%:..262346,,q%.N|
000023f0 62 25 3a ce 3a e1 0d 09 56 53 dd f2 4c 28 51 62 |b%:.:...VS..L(Qb|
00002400 25 2c 52 62 25 29 3a 76 25 3d 51 62 25 3a 53 62 |%,Rb%):v%=Qb%:Sb|
00002410 25 3d a3 3a 54 62 25 3d 28 2d 28 55 62 25 2b 32 |%=.:Tb%=(-(Ub%+2|
00002420 30 29 81 34 30 29 2d 34 3a 56 62 25 3d 28 2d 28 |0).40)-4:Vb%=(-(|
00002430 57 62 25 2b 32 30 29 81 34 30 29 2d 34 3a e7 54 |Wb%+20).40)-4:.T|
00002440 62 25 3c 30 54 62 25 3d 30 0d 09 60 0f e7 56 62 |b%<0Tb%=0..`..Vb|
00002450 25 3c 30 56 62 25 3d 30 0d 09 6a 2b e7 54 62 25 |%<0Vb%=0..j+.Tb%|
00002460 3e 6e 25 28 76 25 2c 64 25 28 76 25 29 29 2d 31 |>n%(v%,d%(v%))-1|
00002470 54 62 25 3d 6e 25 28 76 25 2c 64 25 28 76 25 29 |Tb%=n%(v%,d%(v%)|
00002480 29 2d 31 0d 09 74 31 e7 56 62 25 3e 6e 25 28 76 |)-1..t1.Vb%>n%(v|
00002490 25 2c 64 25 28 76 25 29 29 2d 31 56 62 25 3d 6e |%,d%(v%))-1Vb%=n|
000024a0 25 28 76 25 2c 64 25 28 76 25 29 29 2d 31 3a 53 |%(v%,d%(v%))-1:S|
000024b0 62 25 3d b9 0d 09 7e 3c 61 61 3d 30 3a 62 61 3d |b%=...~<aa=0:ba=|
000024c0 30 3a 58 62 25 3d 30 3a e7 52 62 25 8c 59 62 25 |0:Xb%=0:.Rb%.Yb%|
000024d0 3d 64 25 28 76 25 29 3a 64 25 28 76 25 29 3d 50 |=d%(v%):d%(v%)=P|
000024e0 62 25 8b 58 62 25 3d 94 28 5a 62 25 29 2a 35 36 |b%.Xb%=.(Zb%)*56|
000024f0 0d 09 88 70 e3 61 25 3d 54 62 25 b8 56 62 25 3a |...p.a%=Tb%.Vb%:|
00002500 4a 25 3d 73 25 28 76 25 2c 64 25 28 76 25 29 29 |J%=s%(v%,d%(v%))|
00002510 2b 33 36 2a 61 25 3a 5f 62 25 3d 2d 31 3a 61 24 |+36*a%:_b%=-1:a$|
00002520 3d c0 24 4a 25 29 3a 62 25 3d 4a 25 21 32 34 3a |=.$J%):b%=J%!24:|
00002530 63 3d 4a 25 21 32 38 2a 30 2e 30 30 31 3a 64 3d |c=J%!28*0.001:d=|
00002540 4a 25 21 33 32 2a 30 2e 30 30 31 3a 40 25 3d 32 |J%!32*0.001:@%=2|
00002550 33 31 34 3a e7 ac 52 62 25 8c f2 60 61 28 37 29 |314:..Rb%..`a(7)|
00002560 0d 09 92 2c e7 60 62 25 3c 33 36 32 8c c8 99 36 |...,.`b%<362...6|
00002570 39 2c 34 2c 6a 25 2b 31 32 2c 45 25 2d 31 38 34 |9,4,j%+12,E%-184|
00002580 2d 28 61 25 2a 34 30 29 3a f1 61 24 0d 09 9c 35 |-(a%*40):.a$...5|
00002590 e7 61 63 25 3e 33 36 36 80 60 62 25 3c 34 36 30 |.ac%>366.`b%<460|
000025a0 8c c8 99 36 39 2c 34 2c 6a 25 2b 33 30 30 2c 45 |...69,4,j%+300,E|
000025b0 25 2d 31 38 34 2d 28 61 25 2a 34 30 29 3a f1 62 |%-184-(a%*40):.b|
000025c0 25 0d 09 a6 47 f2 79 28 31 29 3a e7 61 63 25 3e |%...G.y(1):.ac%>|
000025d0 28 36 33 34 2d 31 36 2a a9 28 c3 28 63 29 29 29 |(634-16*.(.(c)))|
000025e0 80 60 62 25 3c 36 33 34 8c c8 99 36 39 2c 34 2c |.`b%<634...69,4,|
000025f0 6a 25 2b 34 37 34 2c 45 25 2d 31 38 34 2d 28 61 |j%+474,E%-184-(a|
00002600 25 2a 34 30 29 3a f1 63 0d 09 b0 53 40 25 3d 31 |%*40):.c...S@%=1|
00002610 36 39 30 38 38 31 30 3a e7 61 63 25 3e 28 38 31 |6908810:.ac%>(81|
00002620 34 2d 31 36 2a a9 28 c3 28 62 25 2a 63 29 29 29 |4-16*.(.(b%*c)))|
00002630 80 60 62 25 3c 38 31 34 8c c8 99 36 39 2c 34 2c |.`b%<814...69,4,|
00002640 6a 25 2b 36 35 36 2c 45 25 2d 31 38 34 2d 28 61 |j%+656,E%-184-(a|
00002650 25 2a 34 30 29 3a f1 62 25 2a 63 0d 09 ba 32 f2 |%*40):.b%*c...2.|
00002660 79 28 32 29 3a e7 61 63 25 3e 28 39 36 36 2d 58 |y(2):.ac%>(966-X|
00002670 62 25 2d 31 36 2a a9 28 c3 28 64 29 29 29 80 60 |b%-16*.(.(d))).`|
00002680 62 25 3c 28 39 36 36 2b 58 62 25 29 8c 0d 09 c4 |b%<(966+Xb%)....|
00002690 43 c8 99 36 39 2c 34 2c 6a 25 2b 38 30 34 2d 58 |C..69,4,j%+804-X|
000026a0 62 25 2c 45 25 2d 31 38 34 2d 28 61 25 2a 34 30 |b%,E%-184-(a%*40|
000026b0 29 3a f1 64 3b 3a e7 5a 62 25 80 ac 52 62 25 80 |):.d;:.Zb%..Rb%.|
000026c0 6e 25 28 76 25 2c 64 25 28 76 25 29 29 3e 30 8c |n%(v%,d%(v%))>0.|
000026d0 0d 09 ce 37 40 25 3d 31 36 39 30 38 38 31 30 3a |...7@%=16908810:|
000026e0 51 3d 30 3a f2 60 61 28 34 29 3a e7 64 25 28 76 |Q=0:.`a(4):.d%(v|
000026f0 25 29 3e 30 80 6e 25 28 76 25 2c 64 25 28 76 25 |%)>0.n%(v%,d%(v%|
00002700 29 2d 31 29 3e 30 8c 0d 09 d8 65 e3 62 63 25 3d |)-1)>0....e.bc%=|
00002710 30 b8 6e 25 28 76 25 2c 64 25 28 76 25 29 2d 31 |0.n%(v%,d%(v%)-1|
00002720 29 2d 31 3a e7 61 24 3d c0 24 28 73 25 28 76 25 |)-1:.a$=.$(s%(v%|
00002730 2c 64 25 28 76 25 29 2d 31 29 2b 33 36 2a 62 63 |,d%(v%)-1)+36*bc|
00002740 25 29 29 8c 51 3d 64 2d 28 21 28 73 25 28 76 25 |%)).Q=d-(!(s%(v%|
00002750 2c 64 25 28 76 25 29 2d 31 29 2b 33 36 2a 62 63 |,d%(v%)-1)+36*bc|
00002760 25 2b 33 32 29 2a 30 2e 30 30 31 29 0d 09 e2 05 |%+32)*0.001)....|
00002770 ed 0d 09 ec 05 cd 0d 09 f6 15 4a 24 3d 22 22 3a |..........J$="":|
00002780 e7 51 3d 30 8c 4a 24 3d 22 30 22 0d 0a 00 0f e7 |.Q=0.J$="0".....|
00002790 51 3e 30 8c 4a 24 3d 22 2b 22 0d 0a 0a 11 f1 22 |Q>0.J$="+"....."|
000027a0 28 22 2b 4a 24 3b 51 3b 22 29 22 0d 0a 14 05 cd |("+J$;Q;")".....|
000027b0 0d 0a 1e 05 cd 0d 0a 28 10 e7 ac 52 62 25 8c f2 |.......(...Rb%..|
000027c0 60 61 28 37 29 0d 0a 32 55 40 25 3d 31 36 39 30 |`a(7)..2U@%=1690|
000027d0 38 38 31 30 3a e7 61 63 25 3e 28 31 31 35 30 2d |8810:.ac%>(1150-|
000027e0 31 36 2a a9 28 c3 28 62 25 2a 64 29 29 29 80 60 |16*.(.(b%*d))).`|
000027f0 62 25 3c 31 31 35 30 8c c8 99 36 39 2c 34 2c 6a |b%<1150...69,4,j|
00002800 25 2b 39 39 30 2c 45 25 2d 31 38 34 2d 28 61 25 |%+990,E%-184-(a%|
00002810 2a 34 30 29 3a f1 62 25 2a 64 0d 0a 3c 5c f2 79 |*40):.b%*d..<\.y|
00002820 28 33 29 3a e7 61 63 25 3e 28 31 33 30 32 2d 31 |(3):.ac%>(1302-1|
00002830 36 2a a9 28 c3 28 62 25 2a 28 64 2d 63 29 29 29 |6*.(.(b%*(d-c)))|
00002840 29 80 60 62 25 3c 31 33 30 32 8c 65 3d 62 25 2a |).`b%<1302.e=b%*|
00002850 28 64 2d 63 29 3a c8 99 36 39 2c 34 2c 6a 25 2b |(d-c):..69,4,j%+|
00002860 31 31 34 32 2c 45 25 2d 31 38 34 2d 28 61 25 2a |1142,E%-184-(a%*|
00002870 34 30 29 3a f1 65 0d 0a 46 1d f2 79 28 34 29 3a |40):.e..F..y(4):|
00002880 e7 61 63 25 3e 31 33 31 38 80 60 62 25 3c 31 34 |.ac%>1318.`b%<14|
00002890 36 32 8c 0d 0a 50 19 e7 63 3d 30 80 64 3c 3e 30 |62...P..c=0.d<>0|
000028a0 8c 63 63 25 3d b9 8b 63 63 25 3d a3 0d 0a 5a 11 |.cc%=..cc%=...Z.|
000028b0 e7 64 3d 30 84 62 25 3d 30 8c 66 3d 30 0d 0a 64 |.d=0.b%=0.f=0..d|
000028c0 10 e7 63 3d 30 80 64 3d 30 8c 66 3d 30 0d 0a 6e |..c=0.d=0.f=0..n|
000028d0 1e e7 63 3c 3e 30 80 64 3c 3e 30 8c 66 3d 28 28 |..c<>0.d<>0.f=((|
000028e0 64 2d 63 29 2f 63 29 2a 31 30 30 0d 0a 78 38 c8 |d-c)/c)*100..x8.|
000028f0 99 36 39 2c 34 2c 6a 25 2b 31 33 30 32 2c 45 25 |.69,4,j%+1302,E%|
00002900 2d 31 38 34 2d 28 61 25 2a 34 30 29 3a e7 ac 63 |-184-(a%*40):..c|
00002910 63 25 8c f1 66 8b f1 22 20 20 20 20 20 20 48 49 |c%..f.." HI|
00002920 47 48 22 0d 0a 82 05 cd 0d 0a 8c 1a ed 3a c8 99 |GH"..........:..|
00002930 32 36 32 33 37 34 2c 37 3a e7 64 63 25 80 53 62 |262374,7:.dc%.Sb|
00002940 25 8c 0d 0a 96 da 65 63 25 3d 6e 25 28 76 25 2c |%.....ec%=n%(v%,|
00002950 64 25 28 76 25 29 29 3a 66 63 25 3d 73 25 28 76 |d%(v%)):fc%=s%(v|
00002960 25 2c 64 25 28 76 25 29 29 3a e3 73 25 3d 30 b8 |%,d%(v%)):.s%=0.|
00002970 65 63 25 2d 31 3a 61 61 2b 3d 21 28 66 63 25 2b |ec%-1:aa+=!(fc%+|
00002980 33 36 2a 73 25 2b 32 38 29 2a 21 28 66 63 25 2b |36*s%+28)*!(fc%+|
00002990 33 36 2a 73 25 2b 32 34 29 2a 30 2e 30 30 31 3a |36*s%+24)*0.001:|
000029a0 62 61 2b 3d 21 28 66 63 25 2b 33 36 2a 73 25 2b |ba+=!(fc%+36*s%+|
000029b0 33 32 29 2a 21 28 66 63 25 2b 33 36 2a 73 25 2b |32)*!(fc%+36*s%+|
000029c0 32 34 29 2a 30 2e 30 30 31 3a ed 3a 40 25 3d 31 |24)*0.001:.:@%=1|
000029d0 36 39 30 38 38 31 30 3a c8 99 36 39 2c 34 2c 6a |6908810:..69,4,j|
000029e0 25 2b 31 32 2c 45 25 2d 31 38 34 2d 65 63 25 2a |%+12,E%-184-ec%*|
000029f0 34 30 3a f1 22 54 6f 74 61 6c 73 22 3a c8 99 36 |40:."Totals":..6|
00002a00 39 2c 34 2c 6a 25 2b 36 35 36 2c 45 25 2d 31 38 |9,4,j%+656,E%-18|
00002a10 34 2d 65 63 25 2a 34 30 3a f1 61 61 0d 0a a0 23 |4-ec%*40:.aa...#|
00002a20 c8 99 36 39 2c 34 2c 6a 25 2b 39 39 30 2c 45 25 |..69,4,j%+990,E%|
00002a30 2d 31 38 34 2d 65 63 25 2a 34 30 3a f1 62 61 0d |-184-ec%*40:.ba.|
00002a40 0a aa 05 cd 0d 0a b4 18 40 25 3d 30 3a e7 52 62 |........@%=0:.Rb|
00002a50 25 8c 64 25 28 76 25 29 3d 59 62 25 0d 0a be 05 |%.d%(v%)=Yb%....|
00002a60 e1 0d 0a c8 23 dd f2 60 61 28 67 63 25 29 3a 68 |....#..`a(gc%):h|
00002a70 63 25 3d a3 3a e7 69 63 25 80 76 25 28 67 25 29 |c%=.:.ic%.v%(g%)|
00002a80 3e 2d 31 8c 0d 0a d2 5f e3 6a 63 25 3d 30 b8 76 |>-1...._.jc%=0.v|
00002a90 25 28 67 25 29 3a e7 c0 24 28 73 25 28 76 25 2c |%(g%):..$(s%(v%,|
00002aa0 64 25 28 76 25 29 29 2b 33 36 2a 61 25 29 29 3d |d%(v%))+36*a%))=|
00002ab0 c0 24 28 62 25 28 67 25 29 2b 33 36 2a 6a 63 25 |.$(b%(g%)+36*jc%|
00002ac0 29 29 80 64 25 28 76 25 29 3d 21 28 62 25 28 67 |)).d%(v%)=!(b%(g|
00002ad0 25 29 2b 33 36 2a 6a 63 25 2b 32 34 29 8c 68 63 |%)+36*jc%+24).hc|
00002ae0 25 3d b9 0d 0a dc 11 ed 3a e7 68 63 25 8c 67 63 |%=......:.hc%.gc|
00002af0 25 3d 31 34 0d 0a e6 05 cd 0d 0a f0 28 e7 c2 24 |%=14........(..$|
00002b00 28 73 25 28 76 25 2c 64 25 28 76 25 29 29 2b 33 |(s%(v%,d%(v%))+3|
00002b10 36 2a 61 25 29 29 3d 22 31 22 8c 67 63 25 3d 31 |6*a%))="1".gc%=1|
00002b20 33 0d 0a fa 23 e7 61 25 3d 59 25 80 43 62 25 3d |3...#.a%=Y%.Cb%=|
00002b30 64 25 28 76 25 29 80 75 62 25 3d 76 25 8c 67 63 |d%(v%).ub%=v%.gc|
00002b40 25 3d 31 31 0d 0b 04 1a e7 5f 62 25 3c 3e 67 63 |%=11....._b%<>gc|
00002b50 25 8c c8 99 32 36 32 33 37 34 2c 67 63 25 0d 0b |%...262374,gc%..|
00002b60 0e 0d 5f 62 25 3d 67 63 25 3a e1 0d 0b 18 3e dd |.._b%=gc%:....>.|
00002b70 f2 58 61 3a 6b 63 25 3d 28 2d 28 55 62 25 2b 32 |.Xa:kc%=(-(Ub%+2|
00002b80 30 29 81 34 30 29 2d 34 3a 6c 63 25 3d 28 2d 28 |0).40)-4:lc%=(-(|
00002b90 57 62 25 2b 32 30 29 81 34 30 29 2d 34 3a e7 6b |Wb%+20).40)-4:.k|
00002ba0 63 25 3c 30 6b 63 25 3d 30 0d 0b 22 0f e7 6c 63 |c%<0kc%=0.."..lc|
00002bb0 25 3c 30 6c 63 25 3d 30 0d 0b 2c 11 e7 6b 63 25 |%<0lc%=0..,..kc%|
00002bc0 3e 4f 25 6b 63 25 3d 4f 25 0d 0b 36 11 e7 6c 63 |>O%kc%=O%..6..lc|
00002bd0 25 3e 4f 25 6c 63 25 3d 4f 25 0d 0b 40 a6 6d 63 |%>O%lc%=O%..@.mc|
00002be0 25 3d a3 3a 6e 63 25 3d a3 3a 6f 63 25 3d a3 3a |%=.:nc%=.:oc%=.:|
00002bf0 c8 99 32 36 32 33 37 34 2c 37 3a e3 6b 25 3d 6b |..262374,7:.k%=k|
00002c00 63 25 b8 6c 63 25 3a 4a 25 3d 70 63 25 2b 33 32 |c%.lc%:J%=pc%+32|
00002c10 2a 6b 25 3a 62 25 3d 21 28 4a 25 2d 33 32 29 3a |*k%:b%=!(J%-32):|
00002c20 4b 25 3d 21 4a 25 3a 40 25 3d 30 3a e7 4b 25 81 |K%=!J%:@%=0:.K%.|
00002c30 31 32 3d 30 80 ac 6d 63 25 80 28 62 25 81 31 32 |12=0..mc%.(b%.12|
00002c40 3c 3e 4b 25 81 31 32 84 6b 25 3d 30 29 8c 6d 63 |<>K%.12.k%=0).mc|
00002c50 25 3d b9 3a c8 99 36 39 2c 34 2c 6a 25 2b 36 30 |%=.:..69,4,j%+60|
00002c60 2c 45 25 2d 31 38 34 2d 28 6b 25 2a 34 30 29 3a |,E%-184-(k%*40):|
00002c70 f1 c3 28 28 5a 25 2d 32 29 2b 4b 25 81 31 32 29 |..((Z%-2)+K%.12)|
00002c80 0d 0b 4a 58 e7 4b 25 81 31 32 3d 31 80 ac 6e 63 |..JX.K%.12=1..nc|
00002c90 25 80 28 62 25 81 31 32 3c 3e 4b 25 81 31 32 84 |%.(b%.12<>K%.12.|
00002ca0 6b 25 3d 30 29 8c 6e 63 25 3d b9 3a c8 99 36 39 |k%=0).nc%=.:..69|
00002cb0 2c 34 2c 6a 25 2b 36 30 2c 45 25 2d 31 38 34 2d |,4,j%+60,E%-184-|
00002cc0 28 6b 25 2a 34 30 29 3a f1 c3 28 28 5a 25 2d 32 |(k%*40):..((Z%-2|
00002cd0 29 2b 4b 25 81 31 32 29 0d 0b 54 58 e7 4b 25 81 |)+K%.12)..TX.K%.|
00002ce0 31 32 3d 32 80 ac 6f 63 25 80 28 62 25 81 31 32 |12=2..oc%.(b%.12|
00002cf0 3c 3e 4b 25 81 31 32 84 6b 25 3d 30 29 8c 6f 63 |<>K%.12.k%=0).oc|
00002d00 25 3d b9 3a c8 99 36 39 2c 34 2c 6a 25 2b 36 30 |%=.:..69,4,j%+60|
00002d10 2c 45 25 2d 31 38 34 2d 28 6b 25 2a 34 30 29 3a |,E%-184-(k%*40):|
00002d20 f1 c3 28 28 5a 25 2d 32 29 2b 4b 25 81 31 32 29 |..((Z%-2)+K%.12)|
00002d30 0d 0b 5e ee c8 99 36 39 2c 34 2c 6a 25 2b 31 37 |..^...69,4,j%+17|
00002d40 34 2c 45 25 2d 31 38 34 2d 28 6b 25 2a 34 30 29 |4,E%-184-(k%*40)|
00002d50 3a f1 a4 67 28 4b 25 29 3a 40 25 3d 32 33 31 34 |:..g(K%):@%=2314|
00002d60 3a c8 99 36 39 2c 34 2c 6a 25 2b 33 34 34 2c 45 |:..69,4,j%+344,E|
00002d70 25 2d 31 38 34 2d 28 6b 25 2a 34 30 29 3a f1 a4 |%-184-(k%*40):..|
00002d80 76 28 21 28 4a 25 2b 34 29 2a 30 2e 30 31 29 3a |v(!(J%+4)*0.01):|
00002d90 40 25 3d 31 36 39 30 38 38 31 30 3a c8 99 36 39 |@%=16908810:..69|
00002da0 2c 34 2c 6a 25 2b 35 33 34 2c 45 25 2d 31 38 34 |,4,j%+534,E%-184|
00002db0 2d 28 6b 25 2a 34 30 29 3a f1 21 28 4a 25 2b 38 |-(k%*40):.!(J%+8|
00002dc0 29 2a 30 2e 30 31 3a c8 99 36 39 2c 34 2c 6a 25 |)*0.01:..69,4,j%|
00002dd0 2b 37 31 36 2c 45 25 2d 31 38 34 2d 28 6b 25 2a |+716,E%-184-(k%*|
00002de0 34 30 29 3a f1 21 28 4a 25 2b 31 32 29 2a 30 2e |40):.!(J%+12)*0.|
00002df0 30 31 3a c8 99 36 39 2c 34 2c 6a 25 2b 38 36 34 |01:..69,4,j%+864|
00002e00 2c 45 25 2d 31 38 34 2d 28 6b 25 2a 34 30 29 3a |,E%-184-(k%*40):|
00002e10 f1 21 28 4a 25 2b 31 36 29 2a 30 2e 30 31 0d 0b |.!(J%+16)*0.01..|
00002e20 68 99 c8 99 36 39 2c 34 2c 6a 25 2b 31 30 35 30 |h...69,4,j%+1050|
00002e30 2c 45 25 2d 31 38 34 2d 28 6b 25 2a 34 30 29 3a |,E%-184-(k%*40):|
00002e40 f1 21 28 4a 25 2b 32 30 29 2a 30 2e 30 31 3a c8 |.!(J%+20)*0.01:.|
00002e50 99 36 39 2c 34 2c 6a 25 2b 31 32 30 32 2c 45 25 |.69,4,j%+1202,E%|
00002e60 2d 31 38 34 2d 28 6b 25 2a 34 30 29 3a f1 21 28 |-184-(k%*40):.!(|
00002e70 4a 25 2b 32 34 29 2a 30 2e 30 31 3a c8 99 36 39 |J%+24)*0.01:..69|
00002e80 2c 34 2c 6a 25 2b 31 33 36 32 2c 45 25 2d 31 38 |,4,j%+1362,E%-18|
00002e90 34 2d 28 6b 25 2a 34 30 29 3a f1 21 28 4a 25 2b |4-(k%*40):.!(J%+|
00002ea0 32 38 29 2a 30 2e 30 31 3a ed 3a e7 6c 63 25 3d |28)*0.01:.:.lc%=|
00002eb0 4f 25 80 71 63 25 8c 0d 0b 72 ef c8 99 32 36 32 |O%.qc%...r...262|
00002ec0 33 37 34 2c 32 3a ec 6a 25 2c 45 25 2d 32 32 34 |374,2:.j%,E%-224|
00002ed0 2d 28 4f 25 2a 34 30 29 3a df 6a 25 2b 31 35 37 |-(O%*40):.j%+157|
00002ee0 30 2c 45 25 2d 32 32 34 2d 28 4f 25 2a 34 30 29 |0,E%-224-(O%*40)|
00002ef0 3a c8 99 32 36 32 33 37 34 2c 37 3a 40 25 3d 30 |:..262374,7:@%=0|
00002f00 3a ec 6a 25 2b 36 30 2c 45 25 2d 32 34 38 2d 28 |:.j%+60,E%-248-(|
00002f10 4f 25 2a 34 30 29 3a f1 22 4e 75 6d 62 65 72 20 |O%*40):."Number |
00002f20 4f 66 20 55 6e 69 74 73 20 48 65 6c 64 22 3a ec |Of Units Held":.|
00002f30 6a 25 2b 31 32 36 2c 45 25 2d 32 39 32 2d 28 4f |j%+126,E%-292-(O|
00002f40 25 2a 34 30 29 3a f1 22 48 69 67 68 65 73 74 3a |%*40):."Highest:|
00002f50 20 22 3b 72 63 25 3b 22 20 75 6e 69 74 73 22 3a | ";rc%;" units":|
00002f60 ec 6a 25 2b 34 38 30 2c 45 25 2d 32 39 32 2d 28 |.j%+480,E%-292-(|
00002f70 4f 25 2a 34 30 29 3a f1 22 4c 6f 77 65 73 74 3a |O%*40):."Lowest:|
00002f80 20 22 3b 73 63 25 3b 22 20 75 6e 69 74 73 22 3a | ";sc%;" units":|
00002f90 ec 6a 25 2b 39 30 30 2c 45 25 2d 32 39 32 2d 28 |.j%+900,E%-292-(|
00002fa0 4f 25 2a 34 30 29 0d 0b 7c f5 f1 22 41 76 65 72 |O%*40)..|.."Aver|
00002fb0 61 67 65 3a 20 22 3b 74 63 25 3b 22 20 75 6e 69 |age: ";tc%;" uni|
00002fc0 74 73 22 3a 40 25 3d 31 36 39 30 38 38 31 30 3a |ts":@%=16908810:|
00002fd0 ec 6a 25 2b 36 30 2c 45 25 2d 33 34 30 2d 28 4f |.j%+60,E%-340-(O|
00002fe0 25 2a 34 30 29 3a f1 22 50 75 72 63 68 61 73 65 |%*40):."Purchase|
00002ff0 20 50 72 69 63 65 20 28 a3 29 22 3a ec 6a 25 2b | Price (.)":.j%+|
00003000 31 32 36 2c 45 25 2d 33 38 34 2d 28 4f 25 2a 34 |126,E%-384-(O%*4|
00003010 30 29 3a f1 22 48 69 67 68 65 73 74 3a 20 a3 22 |0):."Highest: ."|
00003020 3b 58 3a ec 6a 25 2b 34 38 30 2c 45 25 2d 33 38 |;X:.j%+480,E%-38|
00003030 34 2d 28 4f 25 2a 34 30 29 3a f1 22 4c 6f 77 65 |4-(O%*40):."Lowe|
00003040 73 74 3a 20 a3 22 3b 59 3a ec 6a 25 2b 39 30 30 |st: .";Y:.j%+900|
00003050 2c 45 25 2d 33 38 34 2d 28 4f 25 2a 34 30 29 3a |,E%-384-(O%*40):|
00003060 f1 22 41 76 65 72 61 67 65 3a 20 a3 22 3b 52 3a |."Average: .";R:|
00003070 ec 6a 25 2b 36 30 2c 45 25 2d 34 33 32 2d 28 4f |.j%+60,E%-432-(O|
00003080 25 2a 34 30 29 3a f1 22 50 75 72 63 68 61 73 65 |%*40):."Purchase|
00003090 20 56 61 6c 75 65 20 28 a3 29 22 0d 0b 86 f0 ec | Value (.)".....|
000030a0 6a 25 2b 31 32 36 2c 45 25 2d 34 37 36 2d 28 4f |j%+126,E%-476-(O|
000030b0 25 2a 34 30 29 3a f1 22 48 69 67 68 65 73 74 3a |%*40):."Highest:|
000030c0 20 a3 22 3b 5a 3a ec 6a 25 2b 34 38 30 2c 45 25 | .";Z:.j%+480,E%|
000030d0 2d 34 37 36 2d 28 4f 25 2a 34 30 29 3a f1 22 4c |-476-(O%*40):."L|
000030e0 6f 77 65 73 74 3a 20 a3 22 3b 5f 3a ec 6a 25 2b |owest: .";_:.j%+|
000030f0 39 30 30 2c 45 25 2d 34 37 36 2d 28 4f 25 2a 34 |900,E%-476-(O%*4|
00003100 30 29 3a f1 22 41 76 65 72 61 67 65 3a 20 a3 22 |0):."Average: ."|
00003110 3b 53 3a ec 6a 25 2b 36 30 2c 45 25 2d 35 32 34 |;S:.j%+60,E%-524|
00003120 2d 28 4f 25 2a 34 30 29 3a f1 22 43 75 72 72 65 |-(O%*40):."Curre|
00003130 6e 74 20 50 72 69 63 65 20 28 a3 29 22 3a ec 6a |nt Price (.)":.j|
00003140 25 2b 31 32 36 2c 45 25 2d 35 36 38 2d 28 4f 25 |%+126,E%-568-(O%|
00003150 2a 34 30 29 3a f1 22 48 69 67 68 65 73 74 3a 20 |*40):."Highest: |
00003160 a3 22 3b 60 3a ec 6a 25 2b 34 38 30 2c 45 25 2d |.";`:.j%+480,E%-|
00003170 35 36 38 2d 28 4f 25 2a 34 30 29 3a f1 22 4c 6f |568-(O%*40):."Lo|
00003180 77 65 73 74 3a 20 a3 22 3b 63 61 0d 0b 90 f1 ec |west: .";ca.....|
00003190 6a 25 2b 39 30 30 2c 45 25 2d 35 36 38 2d 28 4f |j%+900,E%-568-(O|
000031a0 25 2a 34 30 29 3a f1 22 41 76 65 72 61 67 65 3a |%*40):."Average:|
000031b0 20 a3 22 3b 54 3a ec 6a 25 2b 36 30 2c 45 25 2d | .";T:.j%+60,E%-|
000031c0 36 31 36 2d 28 4f 25 2a 34 30 29 3a f1 22 43 75 |616-(O%*40):."Cu|
000031d0 72 72 65 6e 74 20 56 61 6c 75 65 20 28 a3 29 22 |rrent Value (.)"|
000031e0 3a ec 6a 25 2b 31 32 36 2c 45 25 2d 36 36 30 2d |:.j%+126,E%-660-|
000031f0 28 4f 25 2a 34 30 29 3a f1 22 48 69 67 68 65 73 |(O%*40):."Highes|
00003200 74 3a 20 a3 22 3b 64 61 3a ec 6a 25 2b 34 38 30 |t: .";da:.j%+480|
00003210 2c 45 25 2d 36 36 30 2d 28 4f 25 2a 34 30 29 3a |,E%-660-(O%*40):|
00003220 f1 22 4c 6f 77 65 73 74 3a 20 a3 22 3b 65 61 3a |."Lowest: .";ea:|
00003230 ec 6a 25 2b 39 30 30 2c 45 25 2d 36 36 30 2d 28 |.j%+900,E%-660-(|
00003240 4f 25 2a 34 30 29 3a f1 22 41 76 65 72 61 67 65 |O%*40):."Average|
00003250 3a 20 a3 22 3b 55 3a ec 6a 25 2b 36 30 2c 45 25 |: .";U:.j%+60,E%|
00003260 2d 37 30 38 2d 28 4f 25 2a 34 30 29 3a f1 22 4e |-708-(O%*40):."N|
00003270 65 74 20 47 61 69 6e 20 28 a3 29 22 0d 0b 9a e8 |et Gain (.)"....|
00003280 ec 6a 25 2b 31 32 36 2c 45 25 2d 37 35 32 2d 28 |.j%+126,E%-752-(|
00003290 4f 25 2a 34 30 29 3a f1 22 48 69 67 68 65 73 74 |O%*40):."Highest|
000032a0 3a 20 a3 22 3b 66 61 3a ec 6a 25 2b 34 38 30 2c |: .";fa:.j%+480,|
000032b0 45 25 2d 37 35 32 2d 28 4f 25 2a 34 30 29 3a f1 |E%-752-(O%*40):.|
000032c0 22 4c 6f 77 65 73 74 3a 20 a3 22 3b 67 61 3a ec |"Lowest: .";ga:.|
000032d0 6a 25 2b 39 30 30 2c 45 25 2d 37 35 32 2d 28 4f |j%+900,E%-752-(O|
000032e0 25 2a 34 30 29 3a f1 22 41 76 65 72 61 67 65 3a |%*40):."Average:|
000032f0 20 a3 22 3b 56 3a ec 6a 25 2b 36 30 2c 45 25 2d | .";V:.j%+60,E%-|
00003300 38 30 30 2d 28 4f 25 2a 34 30 29 3a f1 22 50 65 |800-(O%*40):."Pe|
00003310 72 63 65 6e 74 61 67 65 20 47 61 69 6e 20 28 25 |rcentage Gain (%|
00003320 29 22 3a ec 6a 25 2b 31 32 36 2c 45 25 2d 38 34 |)":.j%+126,E%-84|
00003330 34 2d 28 4f 25 2a 34 30 29 3a f1 22 48 69 67 68 |4-(O%*40):."High|
00003340 65 73 74 3a 20 22 3b 68 61 3b 22 25 22 3a ec 6a |est: ";ha;"%":.j|
00003350 25 2b 34 38 30 2c 45 25 2d 38 34 34 2d 28 4f 25 |%+480,E%-844-(O%|
00003360 2a 34 30 29 0d 0b a4 40 f1 22 4c 6f 77 65 73 74 |*40)...@."Lowest|
00003370 3a 20 22 3b 69 61 3b 22 25 22 3a ec 6a 25 2b 39 |: ";ia;"%":.j%+9|
00003380 30 30 2c 45 25 2d 38 34 34 2d 28 4f 25 2a 34 30 |00,E%-844-(O%*40|
00003390 29 3a f1 22 41 76 65 72 61 67 65 3a 20 22 3b 57 |):."Average: ";W|
000033a0 3b 22 25 22 0d 0b ae 05 cd 0d 0b b8 0a 40 25 3d |;"%".........@%=|
000033b0 30 3a e1 0d 0b c2 3e dd f2 56 61 3a 6b 63 25 3d |0:....>..Va:kc%=|
000033c0 28 2d 28 55 62 25 2b 32 30 29 81 34 30 29 2d 34 |(-(Ub%+20).40)-4|
000033d0 3a 6c 63 25 3d 28 2d 28 57 62 25 2b 32 30 29 81 |:lc%=(-(Wb%+20).|
000033e0 34 30 29 2d 34 3a e7 6b 63 25 3c 30 6b 63 25 3d |40)-4:.kc%<0kc%=|
000033f0 30 0d 0b cc 0f e7 6c 63 25 3c 30 6c 63 25 3d 30 |0.....lc%<0lc%=0|
00003400 0d 0b d6 11 e7 6b 63 25 3e 6c 25 6b 63 25 3d 6c |.....kc%>l%kc%=l|
00003410 25 0d 0b e0 11 e7 6c 63 25 3e 6c 25 6c 63 25 3d |%.....lc%>l%lc%=|
00003420 6c 25 0d 0b ea 1c 6d 63 25 3d a3 3a 6e 63 25 3d |l%....mc%=.:nc%=|
00003430 a3 3a 6f 63 25 3d a3 3a c8 8e 57 61 25 ca 0d 0b |.:oc%=.:..Wa%...|
00003440 f4 a1 c9 30 2c 31 2c 32 2c 33 2c 34 3a e3 69 25 |...0,1,2,3,4:.i%|
00003450 3d 6b 63 25 b8 6c 63 25 3a 4a 25 3d 75 63 25 2b |=kc%.lc%:J%=uc%+|
00003460 38 2a 69 25 3a 62 25 3d 21 28 4a 25 2d 38 29 3a |8*i%:b%=!(J%-8):|
00003470 78 25 3d 21 4a 25 3a 6e 3d 21 28 4a 25 2b 34 29 |x%=!J%:n=!(J%+4)|
00003480 2a 30 2e 30 31 3a 40 25 3d 30 3a e7 78 25 81 31 |*0.01:@%=0:.x%.1|
00003490 32 3d 30 80 ac 6d 63 25 80 28 62 25 81 31 32 3c |2=0..mc%.(b%.12<|
000034a0 3e 78 25 81 31 32 84 69 25 3d 30 29 8c 6d 63 25 |>x%.12.i%=0).mc%|
000034b0 3d b9 3a c8 99 36 39 2c 34 2c 6a 25 2b 31 32 2c |=.:..69,4,j%+12,|
000034c0 45 25 2d 31 38 34 2d 28 69 25 2a 34 30 29 3a f1 |E%-184-(i%*40):.|
000034d0 c3 28 28 5a 25 2d 32 29 2b 78 25 81 31 32 29 0d |.((Z%-2)+x%.12).|
000034e0 0b fe 58 e7 78 25 81 31 32 3d 31 80 ac 6e 63 25 |..X.x%.12=1..nc%|
000034f0 80 28 62 25 81 31 32 3c 3e 78 25 81 31 32 84 69 |.(b%.12<>x%.12.i|
00003500 25 3d 30 29 8c 6e 63 25 3d b9 3a c8 99 36 39 2c |%=0).nc%=.:..69,|
00003510 34 2c 6a 25 2b 31 32 2c 45 25 2d 31 38 34 2d 28 |4,j%+12,E%-184-(|
00003520 69 25 2a 34 30 29 3a f1 c3 28 28 5a 25 2d 32 29 |i%*40):..((Z%-2)|
00003530 2b 78 25 81 31 32 29 0d 0c 08 58 e7 78 25 81 31 |+x%.12)...X.x%.1|
00003540 32 3d 32 80 ac 6f 63 25 80 28 62 25 81 31 32 3c |2=2..oc%.(b%.12<|
00003550 3e 78 25 81 31 32 84 69 25 3d 30 29 8c 6f 63 25 |>x%.12.i%=0).oc%|
00003560 3d b9 3a c8 99 36 39 2c 34 2c 6a 25 2b 31 32 2c |=.:..69,4,j%+12,|
00003570 45 25 2d 31 38 34 2d 28 69 25 2a 34 30 29 3a f1 |E%-184-(i%*40):.|
00003580 c3 28 28 5a 25 2d 32 29 2b 78 25 81 31 32 29 0d |.((Z%-2)+x%.12).|
00003590 0c 12 56 40 25 3d 31 36 39 30 38 38 31 30 3a c8 |..V@%=16908810:.|
000035a0 99 36 39 2c 34 2c 6a 25 2b 31 32 36 2c 45 25 2d |.69,4,j%+126,E%-|
000035b0 31 38 34 2d 28 69 25 2a 34 30 29 3a f1 a4 67 28 |184-(i%*40):..g(|
000035c0 78 25 29 3a c8 99 36 39 2c 34 2c 6a 25 2b 33 30 |x%):..69,4,j%+30|
000035d0 34 2c 45 25 2d 31 38 34 2d 28 69 25 2a 34 30 29 |4,E%-184-(i%*40)|
000035e0 3a f1 6e 3a ed 0d 0c 1c 9b c9 35 2c 36 3a e3 69 |:.n:......5,6:.i|
000035f0 25 3d 6b 63 25 b8 6c 63 25 3a 4a 25 3d 75 63 25 |%=kc%.lc%:J%=uc%|
00003600 2b 38 2a 69 25 3a 62 25 3d 21 28 4a 25 2d 38 29 |+8*i%:b%=!(J%-8)|
00003610 3a 78 25 3d 21 4a 25 3a 6e 3d 21 28 4a 25 2b 34 |:x%=!J%:n=!(J%+4|
00003620 29 2a 30 2e 30 31 3a 40 25 3d 30 3a e7 78 25 81 |)*0.01:@%=0:.x%.|
00003630 31 32 3d 30 80 ac 6d 63 25 80 28 62 25 81 31 32 |12=0..mc%.(b%.12|
00003640 3c 3e 78 25 81 31 32 84 69 25 3d 30 29 8c 6d 63 |<>x%.12.i%=0).mc|
00003650 25 3d b9 3a c8 99 36 39 2c 34 2c 6a 25 2b 31 32 |%=.:..69,4,j%+12|
00003660 2c 45 25 2d 31 38 34 2d 28 69 25 2a 34 30 29 3a |,E%-184-(i%*40):|
00003670 f1 c3 28 28 5a 25 2d 32 29 2b 78 25 81 31 32 29 |..((Z%-2)+x%.12)|
00003680 0d 0c 26 58 e7 78 25 81 31 32 3d 31 80 ac 6e 63 |..&X.x%.12=1..nc|
00003690 25 80 28 62 25 81 31 32 3c 3e 78 25 81 31 32 84 |%.(b%.12<>x%.12.|
000036a0 69 25 3d 30 29 8c 6e 63 25 3d b9 3a c8 99 36 39 |i%=0).nc%=.:..69|
000036b0 2c 34 2c 6a 25 2b 31 32 2c 45 25 2d 31 38 34 2d |,4,j%+12,E%-184-|
000036c0 28 69 25 2a 34 30 29 3a f1 c3 28 28 5a 25 2d 32 |(i%*40):..((Z%-2|
000036d0 29 2b 78 25 81 31 32 29 0d 0c 30 58 e7 78 25 81 |)+x%.12)..0X.x%.|
000036e0 31 32 3d 32 80 ac 6f 63 25 80 28 62 25 81 31 32 |12=2..oc%.(b%.12|
000036f0 3c 3e 78 25 81 31 32 84 69 25 3d 30 29 8c 6f 63 |<>x%.12.i%=0).oc|
00003700 25 3d b9 3a c8 99 36 39 2c 34 2c 6a 25 2b 31 32 |%=.:..69,4,j%+12|
00003710 2c 45 25 2d 31 38 34 2d 28 69 25 2a 34 30 29 3a |,E%-184-(i%*40):|
00003720 f1 c3 28 28 5a 25 2d 32 29 2b 78 25 81 31 32 29 |..((Z%-2)+x%.12)|
00003730 0d 0c 3a 56 40 25 3d 31 36 39 30 38 38 31 30 3a |..:V@%=16908810:|
00003740 c8 99 36 39 2c 34 2c 6a 25 2b 31 32 36 2c 45 25 |..69,4,j%+126,E%|
00003750 2d 31 38 34 2d 28 69 25 2a 34 30 29 3a f1 a4 67 |-184-(i%*40):..g|
00003760 28 78 25 29 3a c8 99 36 39 2c 34 2c 6a 25 2b 33 |(x%):..69,4,j%+3|
00003770 30 34 2c 45 25 2d 31 38 34 2d 28 69 25 2a 34 30 |04,E%-184-(i%*40|
00003780 29 3a f1 6e 3a ed 0d 0c 44 05 cb 0d 0c 4e 0a 40 |):.n:...D....N.@|
00003790 25 3d 30 3a e1 0d 0c 58 3e dd f2 5a 61 3a 76 63 |%=0:...X>..Za:vc|
000037a0 25 3d 28 2d 28 55 62 25 2b 32 30 29 81 34 30 29 |%=(-(Ub%+20).40)|
000037b0 2d 34 3a 77 63 25 3d 28 2d 28 57 62 25 2b 32 30 |-4:wc%=(-(Wb%+20|
000037c0 29 81 34 30 29 2d 34 3a e7 76 63 25 3c 30 76 63 |).40)-4:.vc%<0vc|
000037d0 25 3d 30 0d 0c 62 0f e7 77 63 25 3c 30 77 63 25 |%=0..b..wc%<0wc%|
000037e0 3d 30 0d 0c 6c 19 e7 76 63 25 3e 76 25 28 49 25 |=0..l..vc%>v%(I%|
000037f0 29 76 63 25 3d 76 25 28 49 25 29 0d 0c 76 19 e7 |)vc%=v%(I%)..v..|
00003800 77 63 25 3e 76 25 28 49 25 29 77 63 25 3d 76 25 |wc%>v%(I%)wc%=v%|
00003810 28 49 25 29 0d 0c 80 3e c8 99 32 36 32 33 37 34 |(I%)...>..262374|
00003820 2c 37 3a e3 75 25 3d 76 63 25 b8 77 63 25 3a 4a |,7:.u%=vc%.wc%:J|
00003830 25 3d 62 25 28 49 25 29 2b 33 36 2a 75 25 3a e7 |%=b%(I%)+36*u%:.|
00003840 75 25 3d 67 62 25 8c c8 99 32 36 32 33 37 34 2c |u%=gb%...262374,|
00003850 31 35 0d 0c 8a 33 78 63 25 3d 21 28 4a 25 2b 32 |15...3xc%=!(J%+2|
00003860 34 29 3a c8 99 36 39 2c 34 2c 6a 25 2b 31 32 2c |4):..69,4,j%+12,|
00003870 45 25 2d 31 38 34 2d 28 75 25 2a 34 30 29 3a e7 |E%-184-(u%*40):.|
00003880 75 25 3e 30 8c 0d 0c 94 20 e7 c0 24 4a 25 29 3d |u%>0.... ..$J%)=|
00003890 c0 24 28 4a 25 2d 33 36 29 29 8c f1 22 22 8b f1 |.$(J%-36))..""..|
000038a0 c0 24 4a 25 29 0d 0c 9e 0c cc 3a f1 c0 24 4a 25 |.$J%).....:..$J%|
000038b0 29 0d 0c a8 05 cd 0d 0c b2 11 40 25 3d 30 3a e7 |).........@%=0:.|
000038c0 78 63 25 3e 2d 31 8c 0d 0c bc 53 c8 99 36 39 2c |xc%>-1....S..69,|
000038d0 34 2c 6a 25 2b 33 36 38 2c 45 25 2d 31 38 34 2d |4,j%+368,E%-184-|
000038e0 28 75 25 2a 34 30 29 3a f1 78 63 25 81 31 32 2b |(u%*40):.xc%.12+|
000038f0 5a 25 2d 32 3a c8 99 36 39 2c 34 2c 6a 25 2b 34 |Z%-2:..69,4,j%+4|
00003900 38 32 2c 45 25 2d 31 38 34 2d 28 75 25 2a 34 30 |82,E%-184-(u%*40|
00003910 29 3a f1 a4 67 28 78 63 25 29 0d 0c c6 05 cd 0d |):..g(xc%)......|
00003920 0c d0 1c 40 25 3d 31 36 39 30 38 38 31 30 3a e7 |...@%=16908810:.|
00003930 21 28 4a 25 2b 32 38 29 3e 30 8c 0d 0c da 30 c8 |!(J%+28)>0....0.|
00003940 99 36 39 2c 34 2c 6a 25 2b 36 32 34 2c 45 25 2d |.69,4,j%+624,E%-|
00003950 31 38 34 2d 28 75 25 2a 34 30 29 3a f1 21 28 4a |184-(u%*40):.!(J|
00003960 25 2b 32 38 29 2a 30 2e 30 30 31 0d 0c e4 05 cd |%+28)*0.001.....|
00003970 0d 0c ee 10 e7 21 28 4a 25 2b 33 32 29 3e 30 8c |.....!(J%+32)>0.|
00003980 0d 0c f8 30 c8 99 36 39 2c 34 2c 6a 25 2b 38 31 |...0..69,4,j%+81|
00003990 36 2c 45 25 2d 31 38 34 2d 28 75 25 2a 34 30 29 |6,E%-184-(u%*40)|
000039a0 3a f1 21 28 4a 25 2b 33 32 29 2a 30 2e 30 30 31 |:.!(J%+32)*0.001|
000039b0 0d 0d 02 05 cd 0d 0d 0c 1b e7 21 28 4a 25 2b 32 |..........!(J%+2|
000039c0 38 29 3e 30 80 21 28 4a 25 2b 33 32 29 3e 30 8c |8)>0.!(J%+32)>0.|
000039d0 0d 0d 16 3c c8 99 36 39 2c 34 2c 6a 25 2b 31 30 |...<..69,4,j%+10|
000039e0 32 30 2c 45 25 2d 31 38 34 2d 28 75 25 2a 34 30 |20,E%-184-(u%*40|
000039f0 29 3a f1 28 21 28 4a 25 2b 32 38 29 2d 21 28 4a |):.(!(J%+28)-!(J|
00003a00 25 2b 33 32 29 29 2a 30 2e 30 30 31 0d 0d 20 05 |%+32))*0.001.. .|
00003a10 cd 0d 0d 2a 16 e7 75 25 3d 67 62 25 8c c8 99 32 |...*..u%=gb%...2|
00003a20 36 32 33 37 34 2c 37 0d 0d 34 1c ed 3a e7 77 63 |62374,7..4..:.wc|
00003a30 25 3d 76 25 28 49 25 29 80 76 25 28 49 25 29 3e |%=v%(I%).v%(I%)>|
00003a40 2d 31 8c 0d 0d 3e 5e 6a 61 3d 30 3a 6b 61 3d 30 |-1...>^ja=0:ka=0|
00003a50 3a e3 79 63 25 3d 30 b8 76 25 28 49 25 29 3a 4a |:.yc%=0.v%(I%):J|
00003a60 25 3d 62 25 28 49 25 29 2b 33 36 2a 79 63 25 3a |%=b%(I%)+36*yc%:|
00003a70 6c 61 3d 21 28 4a 25 2b 32 38 29 2a 30 2e 30 30 |la=!(J%+28)*0.00|
00003a80 31 3a 6d 61 3d 21 28 4a 25 2b 33 32 29 2a 30 2e |1:ma=!(J%+32)*0.|
00003a90 30 30 31 3a e7 6c 61 3e 3d 30 8c 6a 61 2b 3d 6c |001:.la>=0.ja+=l|
00003aa0 61 0d 0d 48 11 e7 6d 61 3e 3d 30 8c 6b 61 2b 3d |a..H..ma>=0.ka+=|
00003ab0 6d 61 0d 0d 52 a2 ed 3a c8 99 36 39 2c 34 2c 6a |ma..R..:..69,4,j|
00003ac0 25 2b 31 32 2c 45 25 2d 32 32 34 2d 28 76 25 28 |%+12,E%-224-(v%(|
00003ad0 49 25 29 2a 34 30 29 3a f1 22 54 6f 74 61 6c 73 |I%)*40):."Totals|
00003ae0 22 3a c8 99 36 39 2c 34 2c 6a 25 2b 36 32 34 2c |":..69,4,j%+624,|
00003af0 45 25 2d 32 32 34 2d 28 76 25 28 49 25 29 2a 34 |E%-224-(v%(I%)*4|
00003b00 30 29 3a f1 6a 61 3a c8 99 36 39 2c 34 2c 6a 25 |0):.ja:..69,4,j%|
00003b10 2b 38 31 36 2c 45 25 2d 32 32 34 2d 28 76 25 28 |+816,E%-224-(v%(|
00003b20 49 25 29 2a 34 30 29 3a f1 6b 61 3a c8 99 36 39 |I%)*40):.ka:..69|
00003b30 2c 34 2c 6a 25 2b 31 30 32 30 2c 45 25 2d 32 32 |,4,j%+1020,E%-22|
00003b40 34 2d 28 76 25 28 49 25 29 2a 34 30 29 3a f1 6a |4-(v%(I%)*40):.j|
00003b50 61 2d 6b 61 0d 0d 5c 05 cd 0d 0d 66 0a 40 25 3d |a-ka..\....f.@%=|
00003b60 30 3a e1 0d 0d 70 4f dd f2 57 61 3a 7a 63 25 3d |0:...pO..Wa:zc%=|
00003b70 2d 55 62 25 81 34 30 3a 41 63 25 3d 2d 57 62 25 |-Ub%.40:Ac%=-Wb%|
00003b80 81 34 30 3a 42 63 25 3d 28 43 63 25 2a 31 32 29 |.40:Bc%=(Cc%*12)|
00003b90 2b 44 63 25 3a 45 63 25 3d 6e 25 28 46 63 25 2c |+Dc%:Ec%=n%(Fc%,|
00003ba0 42 63 25 29 2d 31 3a e7 7a 63 25 3c 30 7a 63 25 |Bc%)-1:.zc%<0zc%|
00003bb0 3d 30 0d 0d 7a 0f e7 41 63 25 3c 30 41 63 25 3d |=0..z..Ac%<0Ac%=|
00003bc0 30 0d 0d 84 13 e7 7a 63 25 3e 45 63 25 7a 63 25 |0.....zc%>Ec%zc%|
00003bd0 3d 45 63 25 0d 0d 8e 13 e7 41 63 25 3e 45 63 25 |=Ec%.....Ac%>Ec%|
00003be0 41 63 25 3d 45 63 25 0d 0d 98 0c e7 45 63 25 3d |Ac%=Ec%.....Ec%=|
00003bf0 2d 31 8c 0d 0d a2 2b c8 99 36 39 2c 34 2c 6a 25 |-1....+..69,4,j%|
00003c00 2b 31 32 2c 45 25 2d 38 3a f1 22 4e 6f 20 61 76 |+12,E%-8:."No av|
00003c10 61 69 6c 61 62 6c 65 20 73 74 6f 63 6b 22 0d 0d |ailable stock"..|
00003c20 ac 34 cc 3a e3 47 63 25 3d 7a 63 25 b8 41 63 25 |.4.:.Gc%=zc%.Ac%|
00003c30 3a c8 99 32 36 32 33 37 34 2c 37 3a e7 48 63 25 |:..262374,7:.Hc%|
00003c40 3f 47 63 25 3d 31 8c c8 99 32 36 32 33 37 34 2c |?Gc%=1...262374,|
00003c50 31 31 0d 0d b6 39 c8 99 36 39 2c 34 2c 6a 25 2b |11...9..69,4,j%+|
00003c60 31 32 2c 45 25 2d 38 2d 28 47 63 25 2a 34 30 29 |12,E%-8-(Gc%*40)|
00003c70 3a f1 c0 24 28 73 25 28 46 63 25 2c 42 63 25 29 |:..$(s%(Fc%,Bc%)|
00003c80 2b 33 36 2a 47 63 25 29 29 3a ed 0d 0d c0 05 cd |+36*Gc%)):......|
00003c90 0d 0d ca 0a 40 25 3d 30 3a e1 0d 0d d4 1d dd f2 |....@%=0:.......|
00003ca0 59 61 3a e7 49 63 25 3d 31 8c 4a 63 25 3d 6c 25 |Ya:.Ic%=1.Jc%=l%|
00003cb0 8b 4a 63 25 3d 4f 25 0d 0d de 2b 4b 63 25 3d 30 |.Jc%=O%...+Kc%=0|
00003cc0 3a 4c 63 25 3d a4 49 3a e7 4d 63 25 3d 31 8c 4e |:Lc%=.I:.Mc%=1.N|
00003cd0 63 25 3d 31 36 30 2d 4c 63 25 8b 4e 63 25 3d 31 |c%=160-Lc%.Nc%=1|
00003ce0 36 30 0d 0d e8 33 4f 63 25 3d 28 60 62 25 2d 4e |60...3Oc%=(`b%-N|
00003cf0 63 25 29 81 4c 63 25 3a 50 63 25 3d 28 61 63 25 |c%).Lc%:Pc%=(ac%|
00003d00 2d 4e 63 25 29 81 4c 63 25 3a e7 4f 63 25 3c 30 |-Nc%).Lc%:.Oc%<0|
00003d10 4f 63 25 3d 30 0d 0d f2 0f e7 50 63 25 3c 30 50 |Oc%=0.....Pc%<0P|
00003d20 63 25 3d 30 0d 0d fc 13 e7 4f 63 25 3e 4a 63 25 |c%=0.....Oc%>Jc%|
00003d30 4f 63 25 3d 4a 63 25 0d 0e 06 13 e7 50 63 25 3e |Oc%=Jc%.....Pc%>|
00003d40 4a 63 25 50 63 25 3d 4a 63 25 0d 0e 10 25 51 63 |Jc%Pc%=Jc%...%Qc|
00003d50 25 3d a4 66 28 31 32 30 29 3a 40 25 3d 30 3a 52 |%=.f(120):@%=0:R|
00003d60 63 25 3d a3 3a 46 3d 30 3a c8 8e 49 63 25 ca 0d |c%=.:F=0:..Ic%..|
00003d70 0e 1a 23 c9 31 3a 72 25 3d 6c 25 3a 72 3d 75 3a |..#.1:r%=l%:r=u:|
00003d80 69 3d 76 3a 73 3d 50 3a e7 69 3c 30 8c 53 63 25 |i=v:s=P:.i<0.Sc%|
00003d90 3d b9 0d 0e 24 3f 54 63 25 3d 94 28 57 61 25 3d |=...$?Tc%=.(Wa%=|
00003da0 30 29 3a 55 63 25 3d 94 28 57 61 25 3d 34 29 3a |0):Uc%=.(Wa%=4):|
00003db0 e7 75 3d 76 8c 61 3d 33 35 30 2f 75 8b 61 3d 33 |.u=v.a=350/u.a=3|
00003dc0 35 30 2f 28 75 2d 28 76 2a 94 28 53 63 25 29 29 |50/(u-(v*.(Sc%))|
00003dd0 29 0d 0e 2e 28 46 3d 21 28 75 63 25 2b 38 2a 28 |)...(F=!(uc%+8*(|
00003de0 4f 63 25 2d 31 29 2b 34 29 2a 30 2e 30 31 2d 28 |Oc%-1)+4)*0.01-(|
00003df0 69 2a 94 28 53 63 25 29 29 0d 0e 38 24 c9 32 3a |i*.(Sc%))..8$.2:|
00003e00 72 25 3d 4f 25 3a 72 3d 43 3a 69 3d 47 3a 73 3d |r%=O%:r=C:i=G:s=|
00003e10 6e 61 3a e7 69 3c 30 8c 53 63 25 3d b9 0d 0e 42 |na:.i<0.Sc%=...B|
00003e20 3f 54 63 25 3d 94 28 56 63 25 3d 30 29 3a 55 63 |?Tc%=.(Vc%=0):Uc|
00003e30 25 3d 94 28 56 63 25 3d 34 29 3a e7 43 3d 47 8c |%=.(Vc%=4):.C=G.|
00003e40 61 3d 33 35 30 2f 43 8b 61 3d 33 35 30 2f 28 43 |a=350/C.a=350/(C|
00003e50 2d 28 47 2a 94 28 53 63 25 29 29 29 0d 0e 4c 2b |-(G*.(Sc%)))..L+|
00003e60 46 3d 21 28 70 63 25 2b 33 32 2a 28 4f 63 25 2d |F=!(pc%+32*(Oc%-|
00003e70 31 29 2b 57 63 25 29 2a 30 2e 30 31 2d 28 69 2a |1)+Wc%)*0.01-(i*|
00003e80 94 28 53 63 25 29 29 0d 0e 56 05 cb 0d 0e 60 16 |.(Sc%))..V....`.|
00003e90 e7 4d 63 25 3d 31 8c 58 63 25 3d b9 8b 58 63 25 |.Mc%=1.Xc%=..Xc%|
00003ea0 3d a3 0d 0e 6a 2f e7 55 25 3c 31 30 30 8c ef 32 |=...j/.U%<100..2|
00003eb0 33 2c 31 37 2c 37 2c 36 2c a4 66 28 31 36 3e 3e |3,17,7,6,.f(16>>|
00003ec0 48 62 25 29 3b a4 66 28 33 32 3e 3e 49 62 25 29 |Hb%);.f(32>>Ib%)|
00003ed0 7c 0d 0e 74 16 e3 69 25 3d 4f 63 25 b8 50 63 25 ||..t..i%=Oc%.Pc%|
00003ee0 3a c8 8e 49 63 25 ca 0d 0e 7e 28 c9 31 3a 4a 25 |:..Ic%...~(.1:J%|
00003ef0 3d 75 63 25 2b 38 2a 69 25 3a 78 25 3d 21 4a 25 |=uc%+8*i%:x%=!J%|
00003f00 3a 6e 3d 21 28 4a 25 2b 34 29 2a 30 2e 30 31 0d |:n=!(J%+4)*0.01.|
00003f10 0e 88 2b c9 32 3a 4a 25 3d 70 63 25 2b 33 32 2a |..+.2:J%=pc%+32*|
00003f20 69 25 3a 78 25 3d 21 4a 25 3a 6e 3d 21 28 4a 25 |i%:x%=!J%:n=!(J%|
00003f30 2b 57 63 25 29 2a 30 2e 30 31 0d 0e 92 05 cb 0d |+Wc%)*0.01......|
00003f40 0e 9c 0d e7 53 63 25 8c 6e 2d 3d 69 0d 0e a6 0a |....Sc%.n-=i....|
00003f50 c8 8e 4d 63 25 ca 0d 0e b0 0d c9 30 3a c8 8e 59 |..Mc%......0:..Y|
00003f60 63 25 ca 0d 0e ba d4 c9 30 3a 4a 25 3d 6a 25 2b |c%......0:J%=j%+|
00003f70 31 36 30 2b 28 55 25 2a 69 25 29 3a 5a 63 25 3d |160+(U%*i%):Zc%=|
00003f80 6e 2a 61 3a c8 99 32 36 32 33 37 34 2c 66 25 28 |n*a:..262374,f%(|
00003f90 36 29 3a c8 99 36 39 2c 34 2c 4a 25 2c 45 25 2d |6):..69,4,J%,E%-|
00003fa0 34 32 34 3a c8 99 36 39 2c 31 30 31 2c 4a 25 2b |424:..69,101,J%+|
00003fb0 55 25 2c 5a 63 25 2b 45 25 2d 34 32 34 3a c8 99 |U%,Zc%+E%-424:..|
00003fc0 32 36 32 33 37 34 2c 66 25 28 37 29 3a c8 93 4a |262374,f%(7):..J|
00003fd0 25 2c 45 25 2d 34 32 34 2c 55 25 2c 5a 63 25 3a |%,E%-424,U%,Zc%:|
00003fe0 c8 99 32 36 32 33 37 34 2c 37 3a c8 99 36 39 2c |..262374,7:..69,|
00003ff0 34 2c 4a 25 2b a4 66 28 32 34 29 2c 45 25 2d 34 |4,J%+.f(24),E%-4|
00004000 36 30 3a f1 c0 a4 67 28 78 25 29 2c 33 29 3a c8 |60:...g(x%),3):.|
00004010 99 36 39 2c 34 2c 4a 25 2b a4 66 28 31 36 29 2c |.69,4,J%+.f(16),|
00004020 45 25 2d 34 39 34 3a f1 c3 28 28 5a 25 2d 32 29 |E%-494:..((Z%-2)|
00004030 2b 78 25 81 31 32 29 0d 0e c4 0d c9 31 3a e7 ac |+x%.12).....1:..|
00004040 52 63 25 8c 0d 0e ce e3 52 63 25 3d b9 3a c8 99 |Rc%.....Rc%=.:..|
00004050 32 36 32 33 37 34 2c 66 25 28 31 32 29 3a c8 99 |262374,f%(12):..|
00004060 36 39 2c 34 2c 6a 25 2b 31 36 30 2c 45 25 2d 34 |69,4,j%+160,E%-4|
00004070 32 34 3a c8 99 36 39 2c 34 2c 6a 25 2b 31 36 30 |24:..69,4,j%+160|
00004080 2b a4 66 28 32 34 30 29 2c 45 25 2d 32 32 34 3a |+.f(240),E%-224:|
00004090 c8 99 36 39 2c 31 31 37 2c 6a 25 2b 31 36 30 2b |..69,117,j%+160+|
000040a0 a4 66 28 32 34 30 29 2c 37 36 30 2b 28 45 25 2d |.f(240),760+(E%-|
000040b0 34 32 34 29 3a c8 99 32 36 32 33 37 34 2c 66 25 |424):..262374,f%|
000040c0 28 31 31 29 3a c8 99 36 39 2c 34 2c 6a 25 2b 31 |(11):..69,4,j%+1|
000040d0 36 30 2c 45 25 2d 34 32 34 3a c8 99 36 39 2c 34 |60,E%-424:..69,4|
000040e0 2c 6a 25 2b 31 36 30 2b a4 66 28 31 32 30 29 2b |,j%+160+.f(120)+|
000040f0 28 51 63 25 2a 72 25 29 2c 45 25 2d 34 32 34 3a |(Qc%*r%),E%-424:|
00004100 c8 99 36 39 2c 31 31 37 2c 6a 25 2b 31 36 30 2b |..69,117,j%+160+|
00004110 a4 66 28 33 36 30 29 2b 28 51 63 25 2a 72 25 29 |.f(360)+(Qc%*r%)|
00004120 2c 45 25 2d 32 32 34 0d 0e d8 05 cd 0d 0e e2 f1 |,E%-224.........|
00004130 c8 99 32 36 32 33 37 34 2c 66 25 28 38 29 3a c8 |..262374,f%(8):.|
00004140 99 36 39 2c 34 2c 6a 25 2b 31 36 30 2b 28 51 63 |.69,4,j%+160+(Qc|
00004150 25 2a 69 25 29 2c 45 25 2d 34 32 34 3a c8 99 36 |%*i%),E%-424:..6|
00004160 39 2c 31 30 31 2c 6a 25 2b 31 36 30 2b 55 25 2b |9,101,j%+160+U%+|
00004170 28 51 63 25 2a 69 25 29 2c 28 6e 2a 61 29 2b 45 |(Qc%*i%),(n*a)+E|
00004180 25 2d 34 32 34 3a c8 99 32 36 32 33 37 34 2c 66 |%-424:..262374,f|
00004190 25 28 31 30 29 3a c8 99 36 39 2c 34 2c 6a 25 2b |%(10):..69,4,j%+|
000041a0 31 36 30 2b 28 51 63 25 2a 69 25 29 2c 45 25 2d |160+(Qc%*i%),E%-|
000041b0 34 32 30 2b 28 6e 2a 61 29 3a c8 99 36 39 2c 34 |420+(n*a):..69,4|
000041c0 2c 6a 25 2b 31 36 30 2b 55 25 2b 28 51 63 25 2a |,j%+160+U%+(Qc%*|
000041d0 69 25 29 2c 45 25 2d 34 32 30 2b 28 6e 2a 61 29 |i%),E%-420+(n*a)|
000041e0 3a c8 99 36 39 2c 31 31 37 2c 6a 25 2b 31 36 30 |:..69,117,j%+160|
000041f0 2b a4 66 28 31 32 34 29 2b 28 51 63 25 2a 69 25 |+.f(124)+(Qc%*i%|
00004200 29 2c 45 25 2d 34 30 30 2b 28 6e 2a 61 29 3a c8 |),E%-400+(n*a):.|
00004210 99 32 36 32 33 37 34 2c 66 25 28 39 29 0d 0e ec |.262374,f%(9)...|
00004220 d9 c8 99 36 39 2c 34 2c 6a 25 2b 31 36 30 2b 55 |...69,4,j%+160+U|
00004230 25 2b 28 51 63 25 2a 69 25 29 2c 45 25 2d 34 32 |%+(Qc%*i%),E%-42|
00004240 34 3a c8 99 36 39 2c 34 2c 6a 25 2b 31 36 30 2b |4:..69,4,j%+160+|
00004250 a4 66 28 31 32 34 29 2b 28 51 63 25 2a 69 25 29 |.f(124)+(Qc%*i%)|
00004260 2c 45 25 2d 34 30 30 3a c8 99 36 39 2c 31 31 37 |,E%-400:..69,117|
00004270 2c 6a 25 2b 31 36 30 2b a4 66 28 31 32 34 29 2b |,j%+160+.f(124)+|
00004280 28 51 63 25 2a 69 25 29 2c 45 25 2d 34 30 30 2b |(Qc%*i%),E%-400+|
00004290 28 6e 2a 61 29 3a c8 99 32 36 32 33 37 34 2c 37 |(n*a):..262374,7|
000042a0 3a c8 99 36 39 2c 34 2c 6a 25 2b 31 36 30 2b a4 |:..69,4,j%+160+.|
000042b0 66 28 32 34 29 2b 28 51 63 25 2a 69 25 29 2c 45 |f(24)+(Qc%*i%),E|
000042c0 25 2d 34 36 30 3a f1 c0 a4 67 28 78 25 29 2c 33 |%-460:...g(x%),3|
000042d0 29 3a c8 99 36 39 2c 34 2c 6a 25 2b 31 36 30 2b |):..69,4,j%+160+|
000042e0 a4 66 28 31 36 29 2b 28 51 63 25 2a 69 25 29 2c |.f(16)+(Qc%*i%),|
000042f0 45 25 2d 34 39 34 0d 0e f6 14 f1 c3 28 28 5a 25 |E%-494......((Z%|
00004300 2d 32 29 2b 78 25 81 31 32 29 0d 0f 00 05 cb 0d |-2)+x%.12)......|
00004310 0f 0a 1c c9 31 3a c8 99 32 36 32 33 37 34 2c 66 |....1:..262374,f|
00004320 25 28 35 29 3a e7 69 25 3e 30 8c 0d 0f 14 4d c8 |%(5):.i%>0....M.|
00004330 99 36 39 2c 34 2c 6a 25 2b 31 36 30 2b 28 55 25 |.69,4,j%+160+(U%|
00004340 2a 28 69 25 2d 31 29 29 2c 45 25 2d 34 32 34 2b |*(i%-1)),E%-424+|
00004350 28 46 2a 61 29 3a c8 99 36 39 2c 35 2c 6a 25 2b |(F*a):..69,5,j%+|
00004360 31 36 30 2b 28 55 25 2a 69 25 29 2c 45 25 2d 34 |160+(U%*i%),E%-4|
00004370 32 34 2b 28 6e 2a 61 29 0d 0f 1e 05 cd 0d 0f 28 |24+(n*a).......(|
00004380 69 c8 99 32 36 32 33 37 34 2c 37 3a c8 99 36 39 |i..262374,7:..69|
00004390 2c 34 2c 6a 25 2b 31 33 32 2b 28 55 25 2a 69 25 |,4,j%+132+(U%*i%|
000043a0 29 2c 45 25 2d 34 36 30 3a f1 c0 a4 67 28 78 25 |),E%-460:...g(x%|
000043b0 29 2c 33 29 3a c8 99 36 39 2c 34 2c 6a 25 2b 31 |),3):..69,4,j%+1|
000043c0 32 34 2b 28 55 25 2a 69 25 29 2c 45 25 2d 34 39 |24+(U%*i%),E%-49|
000043d0 34 3a f1 c3 28 28 5a 25 2d 32 29 2b 78 25 81 31 |4:..((Z%-2)+x%.1|
000043e0 32 29 3a 46 3d 6e 0d 0f 32 05 cb 0d 0f 3c 21 ed |2):F=n..2....<!.|
000043f0 3a ef 32 33 2c 31 37 2c 37 2c 36 2c 31 36 3e 3e |:.23,17,7,6,16>>|
00004400 48 62 25 3b 33 32 3e 3e 49 62 25 7c 0d 0f 46 dc |Hb%;32>>Ib%|..F.|
00004410 5f 63 25 3d a4 66 28 28 31 30 30 2b 28 32 30 2a |_c%=.f((100+(20*|
00004420 94 28 52 63 25 29 29 29 2a 28 72 25 2b 31 29 2d |.(Rc%)))*(r%+1)-|
00004430 28 39 38 2a 94 28 58 63 25 29 29 29 3a c8 99 32 |(98*.(Xc%))):..2|
00004440 36 32 33 37 34 2c 66 25 28 31 29 3a c8 99 36 39 |62374,f%(1):..69|
00004450 2c 34 2c 6a 25 2b 31 36 30 2c 45 25 2d 34 32 34 |,4,j%+160,E%-424|
00004460 3a c8 99 36 39 2c 35 2c 6a 25 2b 31 36 30 2c 45 |:..69,5,j%+160,E|
00004470 25 2b 32 30 3a c8 99 32 36 32 33 37 34 2c 66 25 |%+20:..262374,f%|
00004480 28 30 29 3a c8 99 36 39 2c 34 2c 6a 25 2b 31 36 |(0):..69,4,j%+16|
00004490 30 2c 45 25 2d 34 32 34 3a c8 99 36 39 2c 35 2c |0,E%-424:..69,5,|
000044a0 6a 25 2b 31 36 30 2b 5f 63 25 2c 45 25 2d 34 32 |j%+160+_c%,E%-42|
000044b0 34 3a 6a 3d 69 2a 94 28 53 63 25 29 3a 6a 25 2b |4:j=i*.(Sc%):j%+|
000044c0 3d 36 3a ef 32 33 2c 36 2c 32 34 38 2c 32 34 38 |=6:.23,6,248,248|
000044d0 2c 32 34 38 2c 32 34 38 2c 32 34 38 2c 32 34 38 |,248,248,248,248|
000044e0 2c 32 34 38 2c 32 34 38 0d 0f 50 0a c8 8e 60 63 |,248,248..P...`c|
000044f0 25 ca 0d 0f 5a d9 c9 b9 3a 61 64 25 3d 5f 63 25 |%...Z...:ad%=_c%|
00004500 2d 32 30 3a c8 99 32 36 32 33 37 34 2c 66 25 28 |-20:..262374,f%(|
00004510 32 29 3a c8 99 36 39 2c 34 2c 6a 25 2b 31 36 30 |2):..69,4,j%+160|
00004520 2c 45 25 2d 34 32 34 2b 28 72 2d 6a 29 2a 61 3a |,E%-424+(r-j)*a:|
00004530 c8 99 36 39 2c 32 31 2c 6a 25 2b 31 36 38 2b 61 |..69,21,j%+168+a|
00004540 64 25 2c 45 25 2d 34 32 34 2b 28 72 2d 6a 29 2a |d%,E%-424+(r-j)*|
00004550 61 3a c8 99 32 36 32 33 37 34 2c 66 25 28 34 29 |a:..262374,f%(4)|
00004560 3a c8 99 36 39 2c 34 2c 6a 25 2b 31 36 30 2c 45 |:..69,4,j%+160,E|
00004570 25 2d 34 32 34 2b 28 69 2d 6a 29 2a 61 3a c8 99 |%-424+(i-j)*a:..|
00004580 36 39 2c 32 31 2c 6a 25 2b 31 36 38 2b 61 64 25 |69,21,j%+168+ad%|
00004590 2c 45 25 2d 34 32 34 2b 28 69 2d 6a 29 2a 61 3a |,E%-424+(i-j)*a:|
000045a0 c8 99 32 36 32 33 37 34 2c 66 25 28 33 29 3a c8 |..262374,f%(3):.|
000045b0 99 36 39 2c 34 2c 6a 25 2b 31 36 30 2c 45 25 2d |.69,4,j%+160,E%-|
000045c0 34 32 34 2b 28 73 2d 6a 29 2a 61 0d 0f 64 7d c8 |424+(s-j)*a..d}.|
000045d0 99 36 39 2c 32 31 2c 6a 25 2b 31 36 38 2b 61 64 |.69,21,j%+168+ad|
000045e0 25 2c 45 25 2d 34 32 34 2b 28 73 2d 6a 29 2a 61 |%,E%-424+(s-j)*a|
000045f0 3a 6a 25 2d 3d 36 3a 40 25 3d 31 36 39 30 38 38 |:j%-=6:@%=169088|
00004600 31 30 3a c8 99 32 36 32 33 37 34 2c 66 25 28 32 |10:..262374,f%(2|
00004610 29 3a e7 55 63 25 3d 31 8c c8 99 36 39 2c 34 2c |):.Uc%=1...69,4,|
00004620 6a 25 2b 38 2c 45 25 2d 34 31 32 2b 28 28 72 2d |j%+8,E%-412+((r-|
00004630 6a 29 2a 61 29 3a 40 25 3d 31 36 39 30 38 38 30 |j)*a):@%=1690880|
00004640 38 3a f1 72 3b 22 25 22 0d 0f 6e 34 e7 54 63 25 |8:.r;"%"..n4.Tc%|
00004650 3d 31 8c c8 99 36 39 2c 34 2c 6a 25 2b 31 36 2c |=1...69,4,j%+16,|
00004660 45 25 2d 34 31 32 2b 28 28 72 2d 6a 29 2a 61 29 |E%-412+((r-j)*a)|
00004670 3a 40 25 3d 38 3a f1 a4 76 28 72 29 0d 0f 78 43 |:@%=8:..v(r)..xC|
00004680 e7 55 63 25 3d 30 80 54 63 25 3d 30 8c c8 99 36 |.Uc%=0.Tc%=0...6|
00004690 39 2c 34 2c 6a 25 2b 31 33 32 2d 28 31 36 2a a9 |9,4,j%+132-(16*.|
000046a0 28 c3 28 72 29 29 29 2c 45 25 2d 34 31 32 2b 28 |(.(r))),E%-412+(|
000046b0 28 72 2d 6a 29 2a 61 29 3a f1 22 a3 22 3b 72 0d |(r-j)*a):.".";r.|
000046c0 0f 82 49 c8 99 32 36 32 33 37 34 2c 66 25 28 34 |..I..262374,f%(4|
000046d0 29 3a e7 55 63 25 3d 31 8c c8 99 36 39 2c 34 2c |):.Uc%=1...69,4,|
000046e0 6a 25 2b 38 2c 45 25 2d 34 31 32 2b 28 28 69 2d |j%+8,E%-412+((i-|
000046f0 6a 29 2a 61 29 3a 40 25 3d 31 36 39 30 38 38 30 |j)*a):@%=1690880|
00004700 38 3a f1 69 3b 22 25 22 0d 0f 8c 34 e7 54 63 25 |8:.i;"%"...4.Tc%|
00004710 3d 31 8c c8 99 36 39 2c 34 2c 6a 25 2b 31 36 2c |=1...69,4,j%+16,|
00004720 45 25 2d 34 31 32 2b 28 28 69 2d 6a 29 2a 61 29 |E%-412+((i-j)*a)|
00004730 3a 40 25 3d 38 3a f1 a4 76 28 69 29 0d 0f 96 43 |:@%=8:..v(i)...C|
00004740 e7 55 63 25 3d 30 80 54 63 25 3d 30 8c c8 99 36 |.Uc%=0.Tc%=0...6|
00004750 39 2c 34 2c 6a 25 2b 31 33 32 2d 28 31 36 2a a9 |9,4,j%+132-(16*.|
00004760 28 c3 28 69 29 29 29 2c 45 25 2d 34 31 32 2b 28 |(.(i))),E%-412+(|
00004770 28 69 2d 6a 29 2a 61 29 3a f1 22 a3 22 3b 69 0d |(i-j)*a):.".";i.|
00004780 0f a0 47 c8 99 32 36 32 33 37 34 2c 66 25 28 33 |..G..262374,f%(3|
00004790 29 3a e7 55 63 25 3d 31 8c c8 99 36 39 2c 34 2c |):.Uc%=1...69,4,|
000047a0 6a 25 2b 38 2c 45 25 2d 34 31 32 2b 28 73 2d 6a |j%+8,E%-412+(s-j|
000047b0 29 2a 61 3a 40 25 3d 31 36 39 30 38 38 30 38 3a |)*a:@%=16908808:|
000047c0 f1 73 3b 22 25 22 0d 0f aa 32 e7 54 63 25 3d 31 |.s;"%"...2.Tc%=1|
000047d0 8c c8 99 36 39 2c 34 2c 6a 25 2b 31 36 2c 45 25 |...69,4,j%+16,E%|
000047e0 2d 34 31 32 2b 28 73 2d 6a 29 2a 61 3a 40 25 3d |-412+(s-j)*a:@%=|
000047f0 38 3a f1 a4 76 28 73 29 0d 0f b4 41 e7 55 63 25 |8:..v(s)...A.Uc%|
00004800 3d 30 80 54 63 25 3d 30 8c c8 99 36 39 2c 34 2c |=0.Tc%=0...69,4,|
00004810 6a 25 2b 31 33 32 2d 28 31 36 2a a9 28 c3 28 73 |j%+132-(16*.(.(s|
00004820 29 29 29 2c 45 25 2d 34 31 32 2b 28 73 2d 6a 29 |))),E%-412+(s-j)|
00004830 2a 61 3a f1 22 a3 22 3b 73 0d 0f be 06 c9 a3 0d |*a:.".";s.......|
00004840 0f c8 05 cb 0d 0f d2 15 c8 99 32 36 32 33 37 34 |..........262374|
00004850 2c 37 3a 40 25 3d 30 3a e1 0d 0f dc 31 dd a4 77 |,7:@%=0:....1..w|
00004860 28 74 24 29 3a c8 99 32 36 32 32 39 35 2c 2c 74 |(t$):..262295,,t|
00004870 24 2b 22 20 22 b8 2c 2c 2c 62 64 25 3a 3d 28 62 |$+" ".,,,bd%:=(b|
00004880 64 25 2a 30 2e 30 30 32 35 29 0d 0f e6 2e dd a4 |d%*0.0025)......|
00004890 6d 28 74 29 3a c8 99 32 36 32 32 39 35 2c 2c c3 |m(t):..262295,,.|
000048a0 28 74 29 b8 2c 2c 2c 62 64 25 3a 3d 28 62 64 25 |(t).,,,bd%:=(bd%|
000048b0 2a 30 2e 30 30 32 35 29 0d 0f f0 e3 dd f2 5f 61 |*0.0025)......_a|
000048c0 3a ea 61 24 2c 62 25 2c 63 2c 64 2c 65 2c 66 2c |:.a$,b%,c,d,e,f,|
000048d0 67 2c 68 3a 63 64 25 3d 28 2d 28 55 62 25 2b a4 |g,h:cd%=(-(Ub%+.|
000048e0 7a 28 33 32 30 29 29 81 a4 7a 28 34 38 29 29 3a |z(320))..z(48)):|
000048f0 64 64 25 3d 28 2d 28 57 62 25 2b a4 7a 28 33 32 |dd%=(-(Wb%+.z(32|
00004900 30 29 29 81 a4 7a 28 34 38 29 29 3a 6f 61 3d 30 |0))..z(48)):oa=0|
00004910 3a 70 61 3d 30 3a 65 64 25 3d a3 3a 66 64 25 3d |:pa=0:ed%=.:fd%=|
00004920 a3 3a e3 67 64 25 3d 31 b8 71 61 25 3a c8 99 32 |.:.gd%=1.qa%:..2|
00004930 36 32 32 37 33 2c 2c 22 54 72 69 6e 69 74 79 2e |62273,,"Trinity.|
00004940 4d 65 64 69 75 6d 2e 49 74 61 6c 69 63 22 2c a4 |Medium.Italic",.|
00004950 7a 28 33 32 30 29 2c a4 7a 28 33 32 30 29 2c 30 |z(320),.z(320),0|
00004960 2c 30 b8 68 25 3a c8 99 32 36 32 32 38 32 2c 68 |,0.h%:..262282,h|
00004970 25 3a c8 99 32 36 34 30 31 35 2c 30 2c 2d 32 35 |%:..264015,0,-25|
00004980 36 2c 30 2c 31 34 3a 52 24 3d c3 28 67 64 25 29 |6,0,14:R$=.(gd%)|
00004990 3a 68 64 25 3d a4 77 28 52 24 29 0d 0f fa 3f c8 |:hd%=.w(R$)...?.|
000049a0 99 32 36 32 32 37 38 2c 2c 52 24 2c 31 36 2c 6a |.262278,,R$,16,j|
000049b0 25 2b a4 7a 28 31 35 33 30 29 2d 68 64 25 2c 45 |%+.z(1530)-hd%,E|
000049c0 25 2d a4 7a 28 32 31 34 30 2a 67 64 25 2d 32 30 |%-.z(2140*gd%-20|
000049d0 29 3a ed 3a e7 ac 69 64 25 8c 0d 10 04 57 c8 99 |):.:..id%....W..|
000049e0 32 36 32 32 37 34 2c 68 25 3a e3 67 64 25 3d 31 |262274,h%:.gd%=1|
000049f0 b8 71 61 25 3a c8 99 32 36 32 33 37 34 2c 32 3a |.qa%:..262374,2:|
00004a00 86 6a 25 2c 45 25 2d a4 7a 28 32 31 34 30 2a 67 |.j%,E%-.z(2140*g|
00004a10 64 25 29 2c 6a 25 2b a4 7a 28 31 35 34 30 29 2c |d%),j%+.z(1540),|
00004a20 45 25 2d a4 7a 28 32 31 34 30 2a 67 64 25 29 3a |E%-.z(2140*gd%):|
00004a30 ed 0d 10 0e 05 cd 0d 10 18 2a 63 64 25 2d 3d 28 |.........*cd%-=(|
00004a40 28 63 64 25 2b 39 29 81 34 35 29 2a 32 3a e7 63 |(cd%+9).45)*2:.c|
00004a50 64 25 3c 30 8c 63 64 25 3d 30 3a 66 64 25 3d b9 |d%<0.cd%=0:fd%=.|
00004a60 0d 10 22 16 e7 64 64 25 3c 30 8c 64 64 25 3d 30 |.."..dd%<0.dd%=0|
00004a70 3a 66 64 25 3d b9 0d 10 2c 2e e7 63 64 25 3e 6e |:fd%=...,..cd%>n|
00004a80 25 28 6a 64 25 2c 6b 64 25 29 2d 31 8c 63 64 25 |%(jd%,kd%)-1.cd%|
00004a90 3d 6e 25 28 6a 64 25 2c 6b 64 25 29 2d 31 3a 65 |=n%(jd%,kd%)-1:e|
00004aa0 64 25 3d b9 0d 10 36 2e e7 64 64 25 3e 6e 25 28 |d%=...6..dd%>n%(|
00004ab0 6a 64 25 2c 6b 64 25 29 2d 31 8c 64 64 25 3d 6e |jd%,kd%)-1.dd%=n|
00004ac0 25 28 6a 64 25 2c 6b 64 25 29 2d 31 3a 65 64 25 |%(jd%,kd%)-1:ed%|
00004ad0 3d b9 0d 10 40 2c e7 69 64 25 8c 63 64 25 3d 30 |=...@,.id%.cd%=0|
00004ae0 3a 64 64 25 3d 6e 25 28 6a 64 25 2c 6b 64 25 29 |:dd%=n%(jd%,kd%)|
00004af0 2d 31 3a 65 64 25 3d b9 3a 66 64 25 3d b9 0d 10 |-1:ed%=.:fd%=...|
00004b00 4a 24 69 25 3d 63 64 25 3a 64 64 25 2b 3d 28 28 |J$i%=cd%:dd%+=((|
00004b10 64 64 25 2b 39 29 81 34 35 29 2a 34 3a e7 66 64 |dd%+9).45)*4:.fd|
00004b20 25 8c 0d 10 54 84 c8 99 32 36 32 32 37 33 2c 2c |%...T...262273,,|
00004b30 22 54 72 69 6e 69 74 79 2e 42 6f 6c 64 22 2c a4 |"Trinity.Bold",.|
00004b40 7a 28 33 32 30 29 2c a4 7a 28 33 32 30 29 2c 30 |z(320),.z(320),0|
00004b50 2c 30 b8 68 25 3a c8 99 32 36 32 32 38 32 2c 68 |,0.h%:..262282,h|
00004b60 25 3a c8 99 32 36 34 30 31 35 2c 30 2c 2d 32 35 |%:..264015,0,-25|
00004b70 36 2c 30 2c 31 34 3a 6c 64 25 3d a4 77 28 6e 24 |6,0,14:ld%=.w(n$|
00004b80 29 3a 6d 64 25 3d 45 25 2d a4 7a 28 32 37 36 29 |):md%=E%-.z(276)|
00004b90 3a 6e 64 25 3d 45 25 2d a4 7a 28 32 33 32 29 3a |:nd%=E%-.z(232):|
00004ba0 c8 8e 6f 64 25 ca 0d 10 5e 36 c9 30 3a c8 99 32 |..od%...^6.0:..2|
00004bb0 36 32 32 37 38 2c 2c 6e 24 2c 31 36 2c 6a 25 2b |62278,,n$,16,j%+|
00004bc0 a4 7a 28 38 30 30 29 2d 28 6c 64 25 2a 30 2e 35 |.z(800)-(ld%*0.5|
00004bd0 29 2c 45 25 2d a4 7a 28 31 34 30 29 0d 10 68 2b |),E%-.z(140)..h+|
00004be0 c9 31 3a c8 99 32 36 32 32 37 38 2c 2c 6e 24 2c |.1:..262278,,n$,|
00004bf0 31 36 2c 6a 25 2b a4 7a 28 33 32 29 2c 45 25 2d |16,j%+.z(32),E%-|
00004c00 a4 7a 28 31 34 30 29 0d 10 72 31 c9 32 3a c8 99 |.z(140)..r1.2:..|
00004c10 32 36 32 32 37 38 2c 2c 6e 24 2c 31 36 2c 6a 25 |262278,,n$,16,j%|
00004c20 2b a4 7a 28 31 35 30 30 29 2d 6c 64 25 2c 45 25 |+.z(1500)-ld%,E%|
00004c30 2d a4 7a 28 31 34 30 29 0d 10 7c 05 cb 0d 10 86 |-.z(140)..|.....|
00004c40 d7 c8 99 32 36 32 32 37 34 2c 68 25 3a c8 99 32 |...262274,h%:..2|
00004c50 36 32 32 37 33 2c 2c 22 54 72 69 6e 69 74 79 2e |62273,,"Trinity.|
00004c60 42 6f 6c 64 22 2c a4 7a 28 32 32 34 29 2c a4 7a |Bold",.z(224),.z|
00004c70 28 32 32 34 29 2c 30 b8 68 25 3a c8 99 32 36 32 |(224),0.h%:..262|
00004c80 32 38 32 2c 68 25 3a c8 99 32 36 34 30 31 35 2c |282,h%:..264015,|
00004c90 30 2c 2d 32 35 36 2c 30 2c 31 34 3a c8 99 32 36 |0,-256,0,14:..26|
00004ca0 32 32 37 38 2c 2c 22 53 74 6f 63 6b 20 4e 61 6d |2278,,"Stock Nam|
00004cb0 65 22 2c 31 36 2c 6a 25 2b a4 7a 28 33 32 29 2c |e",16,j%+.z(32),|
00004cc0 6d 64 25 3a c8 99 32 36 32 32 37 38 2c 2c 22 4e |md%:..262278,,"N|
00004cd0 75 6d 62 65 72 20 4f 66 22 2c 31 36 2c 6a 25 2b |umber Of",16,j%+|
00004ce0 a4 7a 28 33 34 30 29 2c 6e 64 25 3a c8 99 32 36 |.z(340),nd%:..26|
00004cf0 32 32 37 38 2c 2c 22 55 6e 69 74 73 20 48 65 6c |2278,,"Units Hel|
00004d00 64 22 2c 31 36 2c 6a 25 2b a4 7a 28 33 34 32 29 |d",16,j%+.z(342)|
00004d10 2c 6d 64 25 0d 10 90 ef c8 99 32 36 32 32 37 38 |,md%......262278|
00004d20 2c 2c 22 50 75 72 63 68 61 73 65 22 2c 31 36 2c |,,"Purchase",16,|
00004d30 6a 25 2b a4 7a 28 35 33 30 29 2c 6e 64 25 3a c8 |j%+.z(530),nd%:.|
00004d40 99 32 36 32 32 37 38 2c 2c 22 50 72 69 63 65 20 |.262278,,"Price |
00004d50 28 a3 29 22 2c 31 36 2c 6a 25 2b a4 7a 28 35 33 |(.)",16,j%+.z(53|
00004d60 32 29 2c 6d 64 25 3a c8 99 32 36 32 32 37 38 2c |2),md%:..262278,|
00004d70 2c 22 50 75 72 63 68 61 73 65 22 2c 31 36 2c 6a |,"Purchase",16,j|
00004d80 25 2b a4 7a 28 36 38 32 29 2c 6e 64 25 3a c8 99 |%+.z(682),nd%:..|
00004d90 32 36 32 32 37 38 2c 2c 22 56 61 6c 75 65 20 28 |262278,,"Value (|
00004da0 a3 29 22 2c 31 36 2c 6a 25 2b a4 7a 28 36 38 34 |.)",16,j%+.z(684|
00004db0 29 2c 6d 64 25 3a c8 99 32 36 32 32 37 38 2c 2c |),md%:..262278,,|
00004dc0 22 43 75 72 72 65 6e 74 22 2c 31 36 2c 6a 25 2b |"Current",16,j%+|
00004dd0 a4 7a 28 38 35 32 29 2c 6e 64 25 3a c8 99 32 36 |.z(852),nd%:..26|
00004de0 32 32 37 38 2c 2c 22 50 72 69 63 65 20 28 a3 29 |2278,,"Price (.)|
00004df0 22 2c 31 36 2c 6a 25 2b a4 7a 28 38 35 34 29 2c |",16,j%+.z(854),|
00004e00 6d 64 25 0d 10 9a f0 c8 99 32 36 32 32 37 38 2c |md%......262278,|
00004e10 2c 22 43 75 72 72 65 6e 74 22 2c 31 36 2c 6a 25 |,"Current",16,j%|
00004e20 2b a4 7a 28 31 30 31 38 29 2c 6e 64 25 3a c8 99 |+.z(1018),nd%:..|
00004e30 32 36 32 32 37 38 2c 2c 22 56 61 6c 75 65 20 28 |262278,,"Value (|
00004e40 a3 29 22 2c 31 36 2c 6a 25 2b a4 7a 28 31 30 31 |.)",16,j%+.z(101|
00004e50 36 29 2c 6d 64 25 3a c8 99 32 36 32 32 37 38 2c |6),md%:..262278,|
00004e60 2c 22 4e 65 74 22 2c 31 36 2c 6a 25 2b a4 7a 28 |,"Net",16,j%+.z(|
00004e70 31 32 33 34 29 2c 6e 64 25 3a c8 99 32 36 32 32 |1234),nd%:..2622|
00004e80 37 38 2c 2c 22 47 61 69 6e 20 28 a3 29 22 2c 31 |78,,"Gain (.)",1|
00004e90 36 2c 6a 25 2b a4 7a 28 31 32 30 32 29 2c 6d 64 |6,j%+.z(1202),md|
00004ea0 25 3a c8 99 32 36 32 32 37 38 2c 2c 22 50 65 72 |%:..262278,,"Per|
00004eb0 63 65 6e 74 61 67 65 22 2c 31 36 2c 6a 25 2b a4 |centage",16,j%+.|
00004ec0 7a 28 31 33 34 34 29 2c 6e 64 25 3a c8 99 32 36 |z(1344),nd%:..26|
00004ed0 32 32 37 38 2c 2c 22 47 61 69 6e 20 28 25 29 22 |2278,,"Gain (%)"|
00004ee0 2c 31 36 2c 6a 25 2b a4 7a 28 31 33 36 34 29 2c |,16,j%+.z(1364),|
00004ef0 6d 64 25 0d 10 a4 0f c8 99 32 36 32 32 37 34 2c |md%......262274,|
00004f00 68 25 0d 10 ae 05 cd 0d 10 b8 55 c8 99 32 36 32 |h%........U..262|
00004f10 32 37 33 2c 2c 68 24 2c a4 7a 28 32 32 34 29 2c |273,,h$,.z(224),|
00004f20 a4 7a 28 32 32 34 29 2c 30 b8 68 25 3a c8 99 32 |.z(224),0.h%:..2|
00004f30 36 32 32 38 32 2c 68 25 3a c8 99 32 36 34 30 31 |62282,h%:..26401|
00004f40 35 2c 30 2c 2d 32 35 36 2c 30 2c 31 34 3a f5 3a |5,0,-256,0,14:.:|
00004f50 c8 8e 28 69 25 2b 39 29 83 34 35 ca 0d 10 c2 1e |..(i%+9).45.....|
00004f60 c9 30 2c 31 2c 32 2c 33 3a 69 25 2b 3d 34 2d 28 |.0,1,2,3:i%+=4-(|
00004f70 28 69 25 2b 39 29 83 34 35 29 0d 10 cc 05 cb 0d |(i%+9).45)......|
00004f80 10 d6 a9 6b 25 3d 28 28 69 25 2b 39 29 81 34 35 |...k%=((i%+9).45|
00004f90 29 2a 34 3a 69 25 2d 3d 6b 25 3a 4a 25 3d 73 25 |)*4:i%-=k%:J%=s%|
00004fa0 28 6a 64 25 2c 6b 64 25 29 2b 33 36 2a 69 25 3a |(jd%,kd%)+36*i%:|
00004fb0 70 64 25 3d 45 25 2d a4 7a 28 33 34 30 2b 28 34 |pd%=E%-.z(340+(4|
00004fc0 38 2a 69 25 29 29 3a 61 24 3d c0 24 4a 25 29 3a |8*i%)):a$=.$J%):|
00004fd0 62 25 3d 21 28 4a 25 2b 32 34 29 3a 63 3d 21 28 |b%=!(J%+24):c=!(|
00004fe0 4a 25 2b 32 38 29 2a 30 2e 30 30 31 3a 64 3d 21 |J%+28)*0.001:d=!|
00004ff0 28 4a 25 2b 33 32 29 2a 30 2e 30 30 31 3a 65 3d |(J%+32)*0.001:e=|
00005000 62 25 2a 63 3a 66 3d 62 25 2a 64 3a 67 3d 66 2d |b%*c:f=b%*d:g=f-|
00005010 65 3a e7 65 3d 30 8c 68 3d 30 8b 68 3d 31 30 30 |e:.e=0.h=0.h=100|
00005020 2a 28 66 2d 65 29 2f 65 0d 10 e0 da 69 25 2b 3d |*(f-e)/e....i%+=|
00005030 6b 25 3a 40 25 3d 30 3a c8 99 32 36 32 32 37 38 |k%:@%=0:..262278|
00005040 2c 2c 61 24 2c 31 36 2c 6a 25 2b a4 7a 28 33 32 |,,a$,16,j%+.z(32|
00005050 29 2c 70 64 25 3a c8 99 32 36 32 32 37 38 2c 2c |),pd%:..262278,,|
00005060 c3 28 62 25 29 2c 31 36 2c 6a 25 2b a4 7a 28 34 |.(b%),16,j%+.z(4|
00005070 36 38 29 2d a4 77 28 c3 28 62 25 29 29 2c 70 64 |68)-.w(.(b%)),pd|
00005080 25 3a 40 25 3d 31 36 39 30 38 38 31 30 3a c8 99 |%:@%=16908810:..|
00005090 32 36 32 32 37 38 2c 2c c3 28 63 29 2c 31 36 2c |262278,,.(c),16,|
000050a0 6a 25 2b a4 7a 28 36 32 38 29 2d a4 6d 28 63 29 |j%+.z(628)-.m(c)|
000050b0 2c 70 64 25 3a c8 99 32 36 32 32 37 38 2c 2c c3 |,pd%:..262278,,.|
000050c0 28 65 29 2c 31 36 2c 6a 25 2b a4 7a 28 38 30 38 |(e),16,j%+.z(808|
000050d0 29 2d a4 6d 28 65 29 2c 70 64 25 3a c8 99 32 36 |)-.m(e),pd%:..26|
000050e0 32 32 37 38 2c 2c c3 28 64 29 2c 31 36 2c 6a 25 |2278,,.(d),16,j%|
000050f0 2b a4 7a 28 39 35 32 29 2d a4 6d 28 64 29 2c 70 |+.z(952)-.m(d),p|
00005100 64 25 0d 10 ea 93 c8 99 32 36 32 32 37 38 2c 2c |d%......262278,,|
00005110 c3 28 66 29 2c 31 36 2c 6a 25 2b a4 7a 28 31 31 |.(f),16,j%+.z(11|
00005120 34 30 29 2d a4 6d 28 66 29 2c 70 64 25 3a c8 99 |40)-.m(f),pd%:..|
00005130 32 36 32 32 37 38 2c 2c c3 28 67 29 2c 31 36 2c |262278,,.(g),16,|
00005140 6a 25 2b a4 7a 28 31 33 31 38 29 2d a4 6d 28 67 |j%+.z(1318)-.m(g|
00005150 29 2c 70 64 25 3a c8 99 32 36 32 32 37 38 2c 2c |),pd%:..262278,,|
00005160 c3 28 68 29 2c 31 36 2c 6a 25 2b a4 7a 28 31 34 |.(h),16,j%+.z(14|
00005170 38 34 29 2d a4 6d 28 68 29 2c 70 64 25 3a 69 25 |84)-.m(h),pd%:i%|
00005180 2b 3d 31 3a fd 69 25 3e 64 64 25 3a e7 64 63 25 |+=1:.i%>dd%:.dc%|
00005190 80 65 64 25 8c 0d 10 f4 cf e3 71 64 25 3d 30 b8 |.ed%......qd%=0.|
000051a0 6e 25 28 6a 64 25 2c 6b 64 25 29 2d 31 3a 6f 61 |n%(jd%,kd%)-1:oa|
000051b0 2b 3d a4 64 28 71 64 25 2c 6b 64 25 2c 6a 64 25 |+=.d(qd%,kd%,jd%|
000051c0 29 2a a4 61 28 71 64 25 2c 6b 64 25 2c 6a 64 25 |)*.a(qd%,kd%,jd%|
000051d0 29 3a 70 61 2b 3d a4 63 28 71 64 25 2c 6b 64 25 |):pa+=.c(qd%,kd%|
000051e0 2c 6a 64 25 29 2a a4 61 28 71 64 25 2c 6b 64 25 |,jd%)*.a(qd%,kd%|
000051f0 2c 6a 64 25 29 3a ed 3a c8 99 32 36 32 32 37 38 |,jd%):.:..262278|
00005200 2c 2c 22 54 6f 74 61 6c 73 22 2c 31 36 2c 6a 25 |,,"Totals",16,j%|
00005210 2b a4 7a 28 33 32 29 2c 45 25 2d a4 7a 28 33 38 |+.z(32),E%-.z(38|
00005220 38 2b 28 34 38 2a 64 64 25 29 29 3a c8 99 32 36 |8+(48*dd%)):..26|
00005230 32 32 37 38 2c 2c c3 28 6f 61 29 2c 31 36 2c 6a |2278,,.(oa),16,j|
00005240 25 2b a4 7a 28 38 30 38 29 2d a4 6d 28 6f 61 29 |%+.z(808)-.m(oa)|
00005250 2c 45 25 2d a4 7a 28 33 38 38 2b 28 34 38 2a 64 |,E%-.z(388+(48*d|
00005260 64 25 29 29 0d 10 fe 3d c8 99 32 36 32 32 37 38 |d%))...=..262278|
00005270 2c 2c c3 28 70 61 29 2c 31 36 2c 6a 25 2b a4 7a |,,.(pa),16,j%+.z|
00005280 28 31 31 34 30 29 2d a4 6d 28 70 61 29 2c 45 25 |(1140)-.m(pa),E%|
00005290 2d a4 7a 28 33 38 38 2b 28 34 38 2a 64 64 25 29 |-.z(388+(48*dd%)|
000052a0 29 0d 11 08 05 cd 0d 11 12 16 c8 99 32 36 32 32 |)...........2622|
000052b0 37 34 2c 68 25 3a 40 25 3d 30 3a e1 0d 11 1c 1a |74,h%:@%=0:.....|
000052c0 dd a4 7a 28 6c 25 29 3a 3d 28 6c 25 2a 65 62 25 |..z(l%):=(l%*eb%|
000052d0 2a 30 2e 30 31 29 0d 11 26 18 dd a4 66 28 6c 25 |*0.01)..&...f(l%|
000052e0 29 3a 3d 28 6c 25 2a 55 25 2f 31 30 30 29 0d 11 |):=(l%*U%/100)..|
000052f0 30 13 dd f2 79 28 72 64 25 29 3a c8 8e 72 64 25 |0...y(rd%):..rd%|
00005300 ca 0d 11 3a 0d c9 31 3a c8 8e 73 64 25 ca 0d 11 |...:..1:..sd%...|
00005310 44 12 c9 31 3a 40 25 3d 31 36 39 30 38 35 35 34 |D..1:@%=16908554|
00005320 0d 11 4e 12 c9 32 3a 40 25 3d 31 36 39 30 38 38 |..N..2:@%=169088|
00005330 31 30 0d 11 58 12 c9 33 3a 40 25 3d 31 36 39 30 |10..X..3:@%=1690|
00005340 39 30 36 36 0d 11 62 05 cb 0d 11 6c 0d c9 32 3a |9066..b....l..2:|
00005350 c8 8e 74 64 25 ca 0d 11 76 12 c9 31 3a 40 25 3d |..td%...v..1:@%=|
00005360 31 36 39 30 38 35 35 34 0d 11 80 12 c9 32 3a 40 |16908554.....2:@|
00005370 25 3d 31 36 39 30 38 38 31 30 0d 11 8a 12 c9 33 |%=16908810.....3|
00005380 3a 40 25 3d 31 36 39 30 39 30 36 36 0d 11 94 05 |:@%=16909066....|
00005390 cb 0d 11 9e 0d c9 33 3a c8 8e 75 64 25 ca 0d 11 |......3:..ud%...|
000053a0 a8 12 c9 31 3a 40 25 3d 31 36 39 30 38 35 35 34 |...1:@%=16908554|
000053b0 0d 11 b2 12 c9 32 3a 40 25 3d 31 36 39 30 38 38 |.....2:@%=169088|
000053c0 31 30 0d 11 bc 12 c9 33 3a 40 25 3d 31 36 39 30 |10.....3:@%=1690|
000053d0 39 30 36 36 0d 11 c6 05 cb 0d 11 d0 0d c9 34 3a |9066..........4:|
000053e0 c8 8e 76 64 25 ca 0d 11 da 12 c9 31 3a 40 25 3d |..vd%......1:@%=|
000053f0 31 36 39 30 38 35 35 34 0d 11 e4 12 c9 32 3a 40 |16908554.....2:@|
00005400 25 3d 31 36 39 30 38 38 31 30 0d 11 ee 12 c9 33 |%=16908810.....3|
00005410 3a 40 25 3d 31 36 39 30 39 30 36 36 0d 11 f8 05 |:@%=16909066....|
00005420 cb 0d 12 02 05 cb 0d 12 0c 05 e1 0d 12 16 0e dd |................|
00005430 a4 49 3a c8 8e 4d 63 25 ca 0d 12 20 0d c9 30 3a |.I:..Mc%... ..0:|
00005440 c8 8e 59 63 25 ca 0d 12 2a 0d c9 30 3a 4b 63 25 |..Yc%...*..0:Kc%|
00005450 3d 55 25 0d 12 34 12 c9 31 3a 4b 63 25 3d a4 66 |=U%..4..1:Kc%=.f|
00005460 28 31 32 30 29 0d 12 3e 05 cb 0d 12 48 0d c9 31 |(120)..>....H..1|
00005470 3a 4b 63 25 3d 55 25 0d 12 52 05 cb 0d 12 5c 08 |:Kc%=U%..R....\.|
00005480 3d 4b 63 25 0d 12 66 32 dd f2 73 61 28 77 64 25 |=Kc%..f2..sa(wd%|
00005490 2c 78 64 25 2c 62 25 2c 79 64 25 2c 4d 25 29 3a |,xd%,b%,yd%,M%):|
000054a0 ea 44 62 25 2c 77 62 25 2c 45 62 25 2c 46 62 25 |.Db%,wb%,Eb%,Fb%|
000054b0 3a c8 8e 62 25 ca 0d 12 70 0f c9 31 2c 34 3a c8 |:..b%...p..1,4:.|
000054c0 8e 79 64 25 ca 0d 12 7a 81 c9 61 25 28 30 29 2c |.yd%...z..a%(0),|
000054d0 61 25 28 31 29 2c 61 25 28 32 29 2c 61 25 28 33 |a%(1),a%(2),a%(3|
000054e0 29 2c 61 25 28 34 29 2c 61 25 28 35 29 3a f2 61 |),a%(4),a%(5):.a|
000054f0 62 3a 7a 64 25 3d 6e 25 28 67 25 2c 64 25 28 67 |b:zd%=n%(g%,d%(g|
00005500 25 29 29 3a 21 71 25 3d 61 25 28 67 25 29 3a c8 |%)):!q%=a%(g%):.|
00005510 99 32 36 32 33 34 37 2c 2c 71 25 3a f2 5a 28 71 |.262347,,q%:.Z(q|
00005520 25 29 3a 41 64 25 3d 28 28 2d 28 78 64 25 2d 45 |%):Ad%=((-(xd%-E|
00005530 25 29 2d 32 30 29 81 34 30 29 2d 34 3a e7 7a 64 |%)-20).40)-4:.zd|
00005540 25 3c 3d 30 8c e1 0d 12 84 15 e7 41 64 25 3c 30 |%<=0.......Ad%<0|
00005550 84 41 64 25 3e 3d 7a 64 25 8c e1 0d 12 8e 31 44 |.Ad%>=zd%.....1D|
00005560 62 25 3d 41 64 25 3a 45 62 25 3d 64 25 28 67 25 |b%=Ad%:Eb%=d%(g%|
00005570 29 3a 46 62 25 3d 67 25 3a c8 99 32 36 32 33 37 |):Fb%=g%:..26237|
00005580 34 2c 37 3a e7 42 62 25 3e 2d 31 8c 0d 12 98 1c |4,7:.Bb%>-1.....|
00005590 e7 64 25 28 75 62 25 29 3d 43 62 25 8c f2 4e 28 |.d%(ub%)=Cb%..N(|
000055a0 42 62 25 2c 75 62 25 29 0d 12 a2 05 cd 0d 12 ac |Bb%,ub%)........|
000055b0 2c c8 99 32 36 32 33 37 34 2c 31 31 3a f2 4e 28 |,..262374,11:.N(|
000055c0 44 62 25 2c 46 62 25 29 3a e7 74 62 25 8c f2 59 |Db%,Fb%):.tb%..Y|
000055d0 28 46 62 25 2c 44 62 25 29 0d 12 b6 07 f2 48 61 |(Fb%,Db%).....Ha|
000055e0 0d 12 c0 64 c9 61 25 28 33 37 29 3a 21 71 25 3d |...d.a%(37):!q%=|
000055f0 61 25 28 33 37 29 3a c8 99 32 36 32 33 34 37 2c |a%(37):..262347,|
00005600 2c 71 25 3a f2 5a 28 71 25 29 3a 42 64 25 3d 28 |,q%:.Z(q%):Bd%=(|
00005610 28 2d 28 78 64 25 2d 45 25 29 2d 38 29 81 34 30 |(-(xd%-E%)-8).40|
00005620 29 3a e7 42 64 25 3c 30 84 42 64 25 3e 3d 6e 25 |):.Bd%<0.Bd%>=n%|
00005630 28 46 63 25 2c 28 43 63 25 2a 31 32 29 2b 44 63 |(Fc%,(Cc%*12)+Dc|
00005640 25 29 8c e1 0d 12 ca 1d e7 6e 25 28 46 63 25 2c |%).......n%(Fc%,|
00005650 28 43 63 25 29 2a 31 32 2b 44 63 25 29 3d 30 8c |(Cc%)*12+Dc%)=0.|
00005660 e1 0d 12 d4 2a 43 64 25 3d 42 64 25 3a e7 48 63 |....*Cd%=Bd%:.Hc|
00005670 25 3f 43 64 25 3d 31 8c 48 63 25 3f 43 64 25 3d |%?Cd%=1.Hc%?Cd%=|
00005680 30 8b 48 63 25 3f 43 64 25 3d 31 0d 12 de 37 e7 |0.Hc%?Cd%=1...7.|
00005690 ac 44 64 25 80 45 64 25 3e 2d 31 80 43 64 25 3c |.Dd%.Ed%>-1.Cd%<|
000056a0 3e 45 64 25 8c 48 63 25 3f 45 64 25 3d 30 3a c8 |>Ed%.Hc%?Ed%=0:.|
000056b0 99 32 36 32 33 37 34 2c 37 3a f2 62 62 28 45 64 |.262374,7:.bb(Ed|
000056c0 25 29 0d 12 e8 20 c8 99 32 36 32 33 37 34 2c 31 |%)... ..262374,1|
000056d0 31 3a f2 62 62 28 43 64 25 29 3a 45 64 25 3d 43 |1:.bb(Cd%):Ed%=C|
000056e0 64 25 0d 12 f2 5b c9 61 25 28 34 31 29 3a 21 71 |d%...[.a%(41):!q|
000056f0 25 3d 61 25 28 34 31 29 3a c8 99 32 36 32 33 34 |%=a%(41):..26234|
00005700 37 2c 2c 71 25 3a f2 5a 28 71 25 29 3a 46 64 25 |7,,q%:.Z(q%):Fd%|
00005710 3d 28 28 2d 28 78 64 25 2d 45 25 29 2d 32 30 29 |=((-(xd%-E%)-20)|
00005720 81 34 30 29 2d 34 3a e7 46 64 25 3c 30 84 46 64 |.40)-4:.Fd%<0.Fd|
00005730 25 3e 3d 76 25 28 49 25 29 2b 31 8c e1 0d 12 fc |%>=v%(I%)+1.....|
00005740 26 67 62 25 3d 46 64 25 3a c8 99 32 36 32 33 37 |&gb%=Fd%:..26237|
00005750 34 2c 37 3a e7 47 64 25 3e 2d 31 8c f2 5f 28 47 |4,7:.Gd%>-1.._(G|
00005760 64 25 29 0d 13 06 1f c8 99 32 36 32 33 37 34 2c |d%)......262374,|
00005770 31 35 3a f2 5f 28 67 62 25 29 3a 47 64 25 3d 67 |15:._(gb%):Gd%=g|
00005780 62 25 0d 13 10 15 c9 2d 32 3a f2 63 62 3a e7 48 |b%.....-2:.cb:.H|
00005790 64 25 3d 2d 31 8c e1 0d 13 1a 3c 49 64 25 3d 28 |d%=-1.....<Id%=(|
000057a0 38 30 2a 48 64 25 29 2b 32 3a 4a 64 25 3d 36 38 |80*Hd%)+2:Jd%=68|
000057b0 2a 48 64 25 3a e7 61 25 28 48 64 25 29 3d 30 8c |*Hd%:.a%(Hd%)=0.|
000057c0 64 25 28 48 64 25 29 3d a4 78 28 4b 64 25 2c 4c |d%(Hd%)=.x(Kd%,L|
000057d0 64 25 29 0d 13 24 9c f2 66 28 48 64 25 29 3a 21 |d%)..$..f(Hd%):!|
000057e0 71 25 3d 61 25 28 48 64 25 29 3a c8 99 32 36 32 |q%=a%(Hd%):..262|
000057f0 33 34 37 2c 2c 71 25 3a 71 25 21 32 38 3d 2d 31 |347,,q%:q%!28=-1|
00005800 3a e7 ac 4d 64 25 8c 4e 64 25 3d 71 25 21 31 32 |:..Md%.Nd%=q%!12|
00005810 2d 71 25 21 34 3a 4f 64 25 3d 71 25 21 31 36 2d |-q%!4:Od%=q%!16-|
00005820 71 25 21 38 3a 71 25 21 34 3d 49 64 25 3a 71 25 |q%!8:q%!4=Id%:q%|
00005830 21 38 3d 74 61 25 2d 34 30 2d 4f 64 25 2d 4a 64 |!8=ta%-40-Od%-Jd|
00005840 25 3a 71 25 21 31 32 3d 71 25 21 34 2b 4e 64 25 |%:q%!12=q%!4+Nd%|
00005850 3a 71 25 21 31 36 3d 71 25 21 38 2b 4f 64 25 3a |:q%!16=q%!8+Od%:|
00005860 71 25 21 32 30 3d 30 3a 71 25 21 32 34 3d 30 0d |q%!20=0:q%!24=0.|
00005870 13 2e 1a e7 65 25 28 48 64 25 29 8c 67 24 3d 22 |....e%(Hd%).g$="|
00005880 20 2a 22 8b 67 24 3d 22 22 0d 13 38 35 f2 76 28 | *".g$=""..85.v(|
00005890 48 64 25 2c 61 24 28 48 64 25 29 2b 67 24 2c 30 |Hd%,a$(Hd%)+g$,0|
000058a0 29 3a f2 60 28 48 64 25 29 3a c8 99 32 36 32 33 |):.`(Hd%):..2623|
000058b0 34 31 2c 2c 71 25 3a f2 49 28 48 64 25 29 0d 13 |41,,q%:.I(Hd%)..|
000058c0 42 11 c9 61 25 28 31 38 29 3a c8 8e 4d 25 ca 0d |B..a%(18):..M%..|
000058d0 13 4c 21 c9 37 3a f2 6e 28 50 64 25 29 3a f2 6f |.L!.7:.n(Pd%):.o|
000058e0 28 50 64 25 2c 77 64 25 2d 36 34 2c 78 64 25 29 |(Pd%,wd%-64,xd%)|
000058f0 0d 13 56 37 c9 38 3a f2 62 28 31 38 2c 38 2c 31 |..V7.8:.b(18,8,1|
00005900 29 3a f2 6e 28 50 64 25 29 3a f2 6f 28 50 64 25 |):.n(Pd%):.o(Pd%|
00005910 2c 77 64 25 2d 36 34 2c 78 64 25 29 3a f2 62 28 |,wd%-64,xd%):.b(|
00005920 31 38 2c 38 2c 30 29 0d 13 60 22 c9 31 30 3a f2 |18,8,0)..`".10:.|
00005930 6e 28 51 64 25 29 3a f2 6f 28 51 64 25 2c 77 64 |n(Qd%):.o(Qd%,wd|
00005940 25 2d 36 34 2c 78 64 25 29 0d 13 6a 3a c9 31 31 |%-64,xd%)..j:.11|
00005950 3a f2 62 28 31 38 2c 31 31 2c 31 29 3a f2 6e 28 |:.b(18,11,1):.n(|
00005960 51 64 25 29 3a f2 6f 28 51 64 25 2c 77 64 25 2d |Qd%):.o(Qd%,wd%-|
00005970 36 34 2c 78 64 25 29 3a f2 62 28 31 38 2c 31 31 |64,xd%):.b(18,11|
00005980 2c 30 29 0d 13 74 10 c9 31 32 3a 52 64 25 3d ac |,0)..t..12:Rd%=.|
00005990 52 64 25 0d 13 7e 10 c9 31 33 3a 53 64 25 3d ac |Rd%..~..13:Sd%=.|
000059a0 53 64 25 0d 13 88 10 c9 31 34 3a 54 64 25 3d ac |Sd%.....14:Td%=.|
000059b0 54 64 25 0d 13 92 10 c9 31 35 3a 55 64 25 3d ac |Td%.....15:Ud%=.|
000059c0 55 64 25 0d 13 9c 39 c9 31 37 2c 31 38 2c 31 39 |Ud%...9.17,18,19|
000059d0 3a e7 28 62 25 80 31 29 3e 30 80 56 64 25 3d 28 |:.(b%.1)>0.Vd%=(|
000059e0 4d 25 2d 31 36 29 8c f2 65 28 31 38 2c 4d 25 29 |M%-16)..e(18,M%)|
000059f0 8b 56 64 25 3d 28 4d 25 2d 31 36 29 0d 13 a6 39 |.Vd%=(M%-16)...9|
00005a00 c9 32 31 2c 32 32 2c 32 33 3a e7 28 62 25 80 31 |.21,22,23:.(b%.1|
00005a10 29 3e 30 80 57 64 25 3d 28 4d 25 2d 32 30 29 8c |)>0.Wd%=(M%-20).|
00005a20 f2 65 28 31 38 2c 4d 25 29 8b 57 64 25 3d 28 4d |.e(18,M%).Wd%=(M|
00005a30 25 2d 32 30 29 0d 13 b0 39 c9 32 35 2c 32 36 2c |%-20)...9.25,26,|
00005a40 32 37 3a e7 28 62 25 80 31 29 3e 30 80 58 64 25 |27:.(b%.1)>0.Xd%|
00005a50 3d 28 4d 25 2d 32 34 29 8c f2 65 28 31 38 2c 4d |=(M%-24)..e(18,M|
00005a60 25 29 8b 58 64 25 3d 28 4d 25 2d 32 34 29 0d 13 |%).Xd%=(M%-24)..|
00005a70 ba 39 c9 32 39 2c 33 30 2c 33 31 3a e7 28 62 25 |.9.29,30,31:.(b%|
00005a80 80 31 29 3e 30 80 59 64 25 3d 28 4d 25 2d 32 38 |.1)>0.Yd%=(M%-28|
00005a90 29 8c f2 65 28 31 38 2c 4d 25 29 8b 59 64 25 3d |)..e(18,M%).Yd%=|
00005aa0 28 4d 25 2d 32 38 29 0d 13 c4 39 c9 33 32 3a f2 |(M%-28)...9.32:.|
00005ab0 62 28 31 38 2c 33 32 2c 31 29 3a e7 28 62 25 80 |b(18,32,1):.(b%.|
00005ac0 31 29 3c 3d 30 8c f2 64 62 3a f2 67 28 31 38 29 |1)<=0..db:.g(18)|
00005ad0 8b f2 62 28 31 38 2c 33 32 2c 30 29 3a f2 64 62 |..b(18,32,0):.db|
00005ae0 0d 13 ce 39 c9 33 33 3a f2 62 28 31 38 2c 33 33 |...9.33:.b(18,33|
00005af0 2c 31 29 3a f2 65 62 3a f2 66 62 3a e7 28 62 25 |,1):.eb:.fb:.(b%|
00005b00 80 31 29 3c 3d 30 8c f2 67 28 31 38 29 8b f2 62 |.1)<=0..g(18)..b|
00005b10 28 31 38 2c 33 33 2c 30 29 0d 13 d8 39 c9 33 34 |(18,33,0)...9.34|
00005b20 3a f2 62 28 31 38 2c 33 34 2c 31 29 3a e7 28 62 |:.b(18,34,1):.(b|
00005b30 25 80 31 29 3c 3d 30 8c f2 65 62 3a f2 67 28 31 |%.1)<=0..eb:.g(1|
00005b40 38 29 8b f2 62 28 31 38 2c 33 34 2c 30 29 3a f2 |8)..b(18,34,0):.|
00005b50 65 62 0d 13 e2 05 cb 0d 13 ec 11 c9 61 25 28 34 |eb..........a%(4|
00005b60 33 29 3a c8 8e 4d 25 ca 0d 13 f6 68 c9 32 3a f2 |3):..M%....h.2:.|
00005b70 62 28 34 33 2c 32 2c 31 29 3a f2 62 28 34 33 2c |b(43,2,1):.b(43,|
00005b80 32 2c 30 29 3a 6c 61 25 3d b9 3a 24 a4 74 28 34 |2,0):la%=.:$.t(4|
00005b90 33 2c 30 29 3d 22 49 6e 76 65 73 74 6f 72 3a 20 |3,0)="Investor: |
00005ba0 70 72 69 6e 74 69 6e 67 20 70 61 67 65 20 22 2b |printing page "+|
00005bb0 c3 6e 61 25 2b 22 20 28 43 6f 70 79 20 22 2b c3 |.na%+" (Copy "+.|
00005bc0 6f 61 25 2b 22 29 22 3a f2 6a 28 34 33 2c 30 29 |oa%+")":.j(43,0)|
00005bd0 0d 14 00 1e c9 33 3a f2 62 28 34 33 2c 33 2c 31 |.....3:.b(43,3,1|
00005be0 29 3a f2 67 28 34 33 29 3a 6c 61 25 3d a3 0d 14 |):.g(43):la%=...|
00005bf0 0a 05 cb 0d 14 14 11 c9 61 25 28 31 35 29 3a c8 |........a%(15):.|
00005c00 8e 4d 25 ca 0d 14 1e 29 c9 33 3a e7 28 62 25 80 |.M%....).3:.(b%.|
00005c10 31 29 3e 30 80 5a 64 25 3d 30 8c f2 65 28 31 35 |1)>0.Zd%=0..e(15|
00005c20 2c 33 29 8b 5a 64 25 3d 30 3a f2 67 62 0d 14 28 |,3).Zd%=0:.gb..(|
00005c30 29 c9 37 3a e7 28 62 25 80 31 29 3e 30 80 5a 64 |).7:.(b%.1)>0.Zd|
00005c40 25 3d 31 8c f2 65 28 31 35 2c 37 29 8b 5a 64 25 |%=1..e(15,7).Zd%|
00005c50 3d 31 3a f2 67 62 0d 14 32 27 c9 32 32 3a e7 28 |=1:.gb..2'.22:.(|
00005c60 62 25 80 31 29 3e 30 80 6f 64 25 3d 30 8c f2 65 |b%.1)>0.od%=0..e|
00005c70 28 31 35 2c 32 32 29 8b 6f 64 25 3d 30 0d 14 3c |(15,22).od%=0..<|
00005c80 27 c9 32 35 3a e7 28 62 25 80 31 29 3e 30 80 6f |'.25:.(b%.1)>0.o|
00005c90 64 25 3d 31 8c f2 65 28 31 35 2c 32 35 29 8b 6f |d%=1..e(15,25).o|
00005ca0 64 25 3d 31 0d 14 46 27 c9 32 38 3a e7 28 62 25 |d%=1..F'.28:.(b%|
00005cb0 80 31 29 3e 30 80 6f 64 25 3d 32 8c f2 65 28 31 |.1)>0.od%=2..e(1|
00005cc0 35 2c 32 38 29 8b 6f 64 25 3d 32 0d 14 50 1b c9 |5,28).od%=2..P..|
00005cd0 31 31 2c 31 33 3a e7 5f 64 25 8c f2 68 62 3a f2 |11,13:._d%..hb:.|
00005ce0 69 62 28 31 32 29 0d 14 5a 1b c9 31 35 2c 31 37 |ib(12)..Z..15,17|
00005cf0 3a e7 5f 64 25 8c f2 68 62 3a f2 69 62 28 31 36 |:._d%..hb:.ib(16|
00005d00 29 0d 14 64 1a c9 33 35 3a e7 60 64 25 3d 30 8c |)..d..35:.`d%=0.|
00005d10 60 64 25 3d 31 8b 60 64 25 3d 30 0d 14 6e 05 cb |`d%=1.`d%=0..n..|
00005d20 0d 14 78 11 c9 61 25 28 34 32 29 3a c8 8e 4d 25 |..x..a%(42):..M%|
00005d30 ca 0d 14 82 18 c9 35 3a f2 62 28 34 32 2c 35 2c |......5:.b(42,5,|
00005d40 31 29 3a c8 8e 60 61 25 ca 0d 14 8c 2b c9 30 3a |1):..`a%....+.0:|
00005d50 e7 bb 28 24 28 a4 74 28 34 32 2c 33 29 29 29 3e |..($(.t(42,3)))>|
00005d60 39 8c 65 62 25 3d bb 28 24 28 a4 74 28 34 32 2c |9.eb%=.($(.t(42,|
00005d70 33 29 29 29 0d 14 96 15 f2 68 3a f2 62 28 34 32 |3))).....h:.b(42|
00005d80 2c 35 2c 30 29 3a f2 49 61 0d 14 a0 2a c9 31 3a |,5,0):.Ia...*.1:|
00005d90 e7 bb 28 24 28 a4 74 28 34 32 2c 33 29 29 29 3e |..($(.t(42,3)))>|
00005da0 39 8c 55 25 3d bb 28 24 28 a4 74 28 34 32 2c 33 |9.U%=.($(.t(42,3|
00005db0 29 29 29 0d 14 aa 15 f2 68 3a f2 62 28 34 32 2c |))).....h:.b(42,|
00005dc0 35 2c 30 29 3a f2 4a 61 0d 14 b4 05 cb 0d 14 be |5,0):.Ja........|
00005dd0 05 cb 0d 14 c8 11 c9 61 25 28 31 36 29 3a c8 8e |.......a%(16):..|
00005de0 4d 25 ca 0d 14 d2 18 c9 30 3a f2 62 28 31 36 2c |M%......0:.b(16,|
00005df0 30 2c 31 29 3a c8 8e 5a 64 25 ca 0d 14 dc 12 c9 |0,1):..Zd%......|
00005e00 30 3a 6b 64 25 3d 64 25 28 6a 64 25 29 0d 14 e6 |0:kd%=d%(jd%)...|
00005e10 17 c9 31 3a 6b 64 25 3d 28 31 32 2a 61 65 25 29 |..1:kd%=(12*ae%)|
00005e20 2b 62 65 25 0d 14 f0 05 cb 0d 14 fa 12 f2 6a 62 |+be%..........jb|
00005e30 3a f2 62 28 31 36 2c 30 2c 30 29 0d 15 04 2e c9 |:.b(16,0,0).....|
00005e40 31 3a f2 62 28 31 36 2c 31 2c 31 29 3a e7 28 62 |1:.b(16,1,1):.(b|
00005e50 25 80 31 29 3c 3d 30 8c f2 67 28 31 36 29 8b f2 |%.1)<=0..g(16)..|
00005e60 62 28 31 36 2c 31 2c 30 29 0d 15 0e 05 cb 0d 15 |b(16,1,0).......|
00005e70 18 11 c9 61 25 28 31 39 29 3a c8 8e 4d 25 ca 0d |...a%(19):..M%..|
00005e80 15 22 10 c9 33 2c 36 3a f2 6b 62 3a f2 6c 62 0d |."..3,6:.kb:.lb.|
00005e90 15 2c 20 c9 32 3a f2 62 28 31 39 2c 32 2c 31 29 |., .2:.b(19,2,1)|
00005ea0 3a f2 6d 62 3a f2 62 28 31 39 2c 32 2c 30 29 0d |:.mb:.b(19,2,0).|
00005eb0 15 36 05 cb 0d 15 40 11 c9 61 25 28 32 30 29 3a |.6....@..a%(20):|
00005ec0 c8 8e 4d 25 ca 0d 15 4a 10 c9 33 2c 36 3a f2 6e |..M%...J..3,6:.n|
00005ed0 62 3a f2 6f 62 0d 15 54 20 c9 32 3a f2 62 28 32 |b:.ob..T .2:.b(2|
00005ee0 30 2c 32 2c 31 29 3a f2 6d 62 3a f2 62 28 32 30 |0,2,1):.mb:.b(20|
00005ef0 2c 32 2c 30 29 0d 15 5e 05 cb 0d 15 68 10 c9 61 |,2,0)..^....h..a|
00005f00 25 28 38 29 3a c8 8e 4d 25 ca 0d 15 72 24 c9 33 |%(8):..M%...r$.3|
00005f10 3a e7 28 62 25 80 31 29 3e 30 80 47 61 25 3d 30 |:.(b%.1)>0.Ga%=0|
00005f20 8c f2 65 28 38 2c 33 29 8b 47 61 25 3d 30 0d 15 |..e(8,3).Ga%=0..|
00005f30 7c 24 c9 34 3a e7 28 62 25 80 31 29 3e 30 80 47 ||$.4:.(b%.1)>0.G|
00005f40 61 25 3d 31 8c f2 65 28 38 2c 34 29 8b 47 61 25 |a%=1..e(8,4).Ga%|
00005f50 3d 31 0d 15 86 24 c9 35 3a e7 28 62 25 80 31 29 |=1...$.5:.(b%.1)|
00005f60 3e 30 80 47 61 25 3d 32 8c f2 65 28 38 2c 35 29 |>0.Ga%=2..e(8,5)|
00005f70 8b 47 61 25 3d 32 0d 15 90 13 c9 36 2c 31 34 3a |.Ga%=2.....6,14:|
00005f80 f2 70 62 3a f2 48 28 39 29 0d 15 9a 13 c9 37 2c |.pb:.H(9).....7,|
00005f90 38 3a f2 70 62 3a f2 48 28 31 30 29 0d 15 a4 15 |8:.pb:.H(10)....|
00005fa0 c9 32 30 2c 32 33 3a f2 70 62 3a f2 48 28 31 38 |.20,23:.pb:.H(18|
00005fb0 29 0d 15 ae 15 c9 32 32 2c 32 34 3a f2 70 62 3a |).....22,24:.pb:|
00005fc0 f2 48 28 31 39 29 0d 15 b8 4b c9 31 33 3a f2 62 |.H(19)...K.13:.b|
00005fd0 28 38 2c 31 33 2c 31 29 3a f2 52 28 31 2c 47 61 |(8,13,1):.R(1,Ga|
00005fe0 25 2c 2d 31 2c 45 61 25 2c 43 61 25 2c 46 61 25 |%,-1,Ea%,Ca%,Fa%|
00005ff0 2c 44 61 25 2c 67 25 2c 67 25 29 3a f2 6e 28 7a |,Da%,g%,g%):.n(z|
00006000 61 25 29 3a f2 68 3a f2 62 28 38 2c 31 33 2c 30 |a%):.h:.b(8,13,0|
00006010 29 0d 15 c2 05 cb 0d 15 cc 10 c9 61 25 28 37 29 |)..........a%(7)|
00006020 3a c8 8e 4d 25 ca 0d 15 d6 24 c9 33 3a e7 28 62 |:..M%....$.3:.(b|
00006030 25 80 31 29 3e 30 80 4f 61 25 3d 30 8c f2 65 28 |%.1)>0.Oa%=0..e(|
00006040 37 2c 33 29 8b 4f 61 25 3d 30 0d 15 e0 24 c9 34 |7,3).Oa%=0...$.4|
00006050 3a e7 28 62 25 80 31 29 3e 30 80 4f 61 25 3d 31 |:.(b%.1)>0.Oa%=1|
00006060 8c f2 65 28 37 2c 34 29 8b 4f 61 25 3d 31 0d 15 |..e(7,4).Oa%=1..|
00006070 ea 24 c9 35 3a e7 28 62 25 80 31 29 3e 30 80 4f |.$.5:.(b%.1)>0.O|
00006080 61 25 3d 32 8c f2 65 28 37 2c 35 29 8b 4f 61 25 |a%=2..e(7,5).Oa%|
00006090 3d 32 0d 15 f4 13 c9 36 2c 31 34 3a f2 71 62 3a |=2.....6,14:.qb:|
000060a0 f2 55 28 39 29 0d 15 fe 14 c9 31 31 2c 31 30 3a |.U(9).....11,10:|
000060b0 f2 71 62 3a f2 55 28 38 29 0d 16 08 47 c9 31 33 |.qb:.U(8)...G.13|
000060c0 3a f2 62 28 37 2c 31 33 2c 31 29 3a f2 52 28 32 |:.b(7,13,1):.R(2|
000060d0 2c 4f 61 25 2c 2d 31 2c 4d 61 25 2c 30 2c 4e 61 |,Oa%,-1,Ma%,0,Na|
000060e0 25 2c 30 2c 67 25 2c 67 25 29 3a f2 6e 28 7a 61 |%,0,g%,g%):.n(za|
000060f0 25 29 3a f2 68 3a f2 62 28 37 2c 31 33 2c 30 29 |%):.h:.b(7,13,0)|
00006100 0d 16 12 05 cb 0d 16 1c 10 c9 61 25 28 39 29 3a |..........a%(9):|
00006110 c8 8e 4d 25 ca 0d 16 26 17 c9 30 3a f2 62 28 39 |..M%...&..0:.b(9|
00006120 2c 30 2c 31 29 3a c8 8e 51 61 25 ca 0d 16 30 14 |,0,1):..Qa%...0.|
00006130 c9 30 3a f2 4b 61 28 a4 68 28 71 29 29 3a f2 68 |.0:.Ka(.h(q)):.h|
00006140 0d 16 3a 14 c9 33 3a f2 4c 61 28 a4 68 28 71 29 |..:..3:.La(.h(q)|
00006150 29 3a f2 68 0d 16 44 14 c9 34 3a f2 4d 61 28 a4 |):.h..D..4:.Ma(.|
00006160 68 28 71 29 29 3a f2 68 0d 16 4e 14 c9 35 3a f2 |h(q)):.h..N..5:.|
00006170 4e 61 28 a4 68 28 71 29 29 3a f2 68 0d 16 58 05 |Na(.h(q)):.h..X.|
00006180 cb 0d 16 62 0d f2 62 28 39 2c 30 2c 30 29 0d 16 |...b..b(9,0,0)..|
00006190 6c 05 cb 0d 16 76 11 c9 61 25 28 31 30 29 3a c8 |l....v..a%(10):.|
000061a0 8e 4d 25 ca 0d 16 80 2a c9 30 3a f2 62 28 31 30 |.M%....*.0:.b(10|
000061b0 2c 30 2c 31 29 3a f2 4f 61 28 a4 68 28 71 29 29 |,0,1):.Oa(.h(q))|
000061c0 3a e7 28 62 25 80 31 29 3c 3d 30 8c f2 68 0d 16 |:.(b%.1)<=0..h..|
000061d0 8a 0e f2 62 28 31 30 2c 30 2c 30 29 0d 16 94 25 |...b(10,0,0)...%|
000061e0 c9 33 3a e7 28 62 25 80 31 29 3e 30 80 50 61 25 |.3:.(b%.1)>0.Pa%|
000061f0 3d 30 8c f2 65 28 31 30 2c 33 29 8b 50 61 25 3d |=0..e(10,3).Pa%=|
00006200 30 0d 16 9e 25 c9 34 3a e7 28 62 25 80 31 29 3e |0...%.4:.(b%.1)>|
00006210 30 80 50 61 25 3d 31 8c f2 65 28 31 30 2c 34 29 |0.Pa%=1..e(10,4)|
00006220 8b 50 61 25 3d 31 0d 16 a8 25 c9 35 3a e7 28 62 |.Pa%=1...%.5:.(b|
00006230 25 80 31 29 3e 30 80 50 61 25 3d 32 8c f2 65 28 |%.1)>0.Pa%=2..e(|
00006240 31 30 2c 35 29 8b 50 61 25 3d 32 0d 16 b2 05 cb |10,5).Pa%=2.....|
00006250 0d 16 bc 11 c9 61 25 28 31 31 29 3a c8 8e 4d 25 |.....a%(11):..M%|
00006260 ca 0d 16 c6 2a c9 30 3a f2 62 28 31 31 2c 30 2c |....*.0:.b(11,0,|
00006270 31 29 3a f2 50 61 28 a4 68 28 71 29 29 3a e7 28 |1):.Pa(.h(q)):.(|
00006280 62 25 80 31 29 3c 3d 30 8c f2 68 0d 16 d0 0e f2 |b%.1)<=0..h.....|
00006290 62 28 31 31 2c 30 2c 30 29 0d 16 da 25 c9 33 3a |b(11,0,0)...%.3:|
000062a0 e7 28 62 25 80 31 29 3e 30 80 62 62 25 3d 30 8c |.(b%.1)>0.bb%=0.|
000062b0 f2 65 28 31 31 2c 33 29 8b 62 62 25 3d 30 0d 16 |.e(11,3).bb%=0..|
000062c0 e4 25 c9 34 3a e7 28 62 25 80 31 29 3e 30 80 62 |.%.4:.(b%.1)>0.b|
000062d0 62 25 3d 31 8c f2 65 28 31 31 2c 34 29 8b 62 62 |b%=1..e(11,4).bb|
000062e0 25 3d 31 0d 16 ee 25 c9 35 3a e7 28 62 25 80 31 |%=1...%.5:.(b%.1|
000062f0 29 3e 30 80 62 62 25 3d 32 8c f2 65 28 31 31 2c |)>0.bb%=2..e(11,|
00006300 35 29 8b 62 62 25 3d 32 0d 16 f8 25 c9 39 3a e7 |5).bb%=2...%.9:.|
00006310 28 62 25 80 31 29 3e 30 80 62 62 25 3d 33 8c f2 |(b%.1)>0.bb%=3..|
00006320 65 28 31 31 2c 39 29 8b 62 62 25 3d 33 0d 17 02 |e(11,9).bb%=3...|
00006330 05 cb 0d 17 0c 11 c9 61 25 28 32 31 29 3a c8 8e |.......a%(21):..|
00006340 4d 25 ca 0d 17 16 3e c9 38 3a f2 62 28 32 31 2c |M%....>.8:.b(21,|
00006350 38 2c 31 29 3a e7 28 62 25 80 31 29 3c 3d 30 8c |8,1):.(b%.1)<=0.|
00006360 f2 67 28 32 31 29 8b f2 62 28 32 31 2c 38 2c 30 |.g(21)..b(21,8,0|
00006370 29 3a f2 72 62 3a f2 73 62 28 61 25 28 32 31 29 |):.rb:.sb(a%(21)|
00006380 29 0d 17 20 35 c9 31 33 3a f2 62 28 32 31 2c 31 |).. 5.13:.b(21,1|
00006390 33 2c 31 29 3a f2 51 61 3a e7 28 62 25 80 31 29 |3,1):.Qa:.(b%.1)|
000063a0 3c 3d 30 8c f2 67 28 32 31 29 8b f2 73 62 28 61 |<=0..g(21)..sb(a|
000063b0 25 28 32 31 29 29 0d 17 2a 0f f2 62 28 32 31 2c |%(21))..*..b(21,|
000063c0 31 33 2c 30 29 0d 17 34 05 cb 0d 17 3e 11 c9 61 |13,0)..4....>..a|
000063d0 25 28 33 35 29 3a c8 8e 4d 25 ca 0d 17 48 27 c9 |%(35):..M%...H'.|
000063e0 31 33 3a e7 28 62 25 80 31 29 3e 30 80 63 65 25 |13:.(b%.1)>0.ce%|
000063f0 3d 30 8c f2 65 28 33 35 2c 31 33 29 8b 63 65 25 |=0..e(35,13).ce%|
00006400 3d 30 0d 17 52 27 c9 31 36 3a e7 28 62 25 80 31 |=0..R'.16:.(b%.1|
00006410 29 3e 30 80 63 65 25 3d 31 8c f2 65 28 33 35 2c |)>0.ce%=1..e(35,|
00006420 31 36 29 8b 63 65 25 3d 31 0d 17 5c 25 c9 35 3a |16).ce%=1..\%.5:|
00006430 e7 28 62 25 80 31 29 3e 30 80 63 65 25 3d 32 8c |.(b%.1)>0.ce%=2.|
00006440 f2 65 28 33 35 2c 35 29 8b 63 65 25 3d 32 0d 17 |.e(35,5).ce%=2..|
00006450 66 27 c9 32 32 3a e7 28 62 25 80 31 29 3e 30 80 |f'.22:.(b%.1)>0.|
00006460 64 65 25 3d 30 8c f2 65 28 33 35 2c 32 32 29 8b |de%=0..e(35,22).|
00006470 64 65 25 3d 30 0d 17 70 27 c9 32 33 3a e7 28 62 |de%=0..p'.23:.(b|
00006480 25 80 31 29 3e 30 80 64 65 25 3d 31 8c f2 65 28 |%.1)>0.de%=1..e(|
00006490 33 35 2c 32 33 29 8b 64 65 25 3d 31 0d 17 7a 15 |35,23).de%=1..z.|
000064a0 c9 33 31 2c 33 33 3a f2 74 62 3a f2 4a 28 33 32 |.31,33:.tb:.J(32|
000064b0 29 0d 17 84 15 c9 33 39 2c 33 37 3a f2 74 62 3a |).....39,37:.tb:|
000064c0 f2 4a 28 33 38 29 0d 17 8e 15 c9 32 34 2c 32 30 |.J(38).....24,20|
000064d0 3a f2 74 62 3a f2 4a 28 31 38 29 0d 17 98 13 c9 |:.tb:.J(18).....|
000064e0 36 2c 31 34 3a f2 74 62 3a f2 4a 28 39 29 0d 17 |6,14:.tb:.J(9)..|
000064f0 a2 47 c9 33 35 3a f2 62 28 33 35 2c 33 35 2c 31 |.G.35:.b(35,35,1|
00006500 29 3a f2 52 28 32 2c 63 65 25 2c 64 65 25 2c 65 |):.R(2,ce%,de%,e|
00006510 65 25 2c 30 2c 66 65 25 2c 30 2c 67 65 25 2c 68 |e%,0,fe%,0,ge%,h|
00006520 65 25 29 3a e7 28 62 25 80 31 29 3c 3d 30 8c f2 |e%):.(b%.1)<=0..|
00006530 67 28 33 35 29 0d 17 ac 0f f2 62 28 33 35 2c 33 |g(35).....b(35,3|
00006540 35 2c 30 29 0d 17 b6 1a c9 32 37 3a f2 62 28 33 |5,0).....27:.b(3|
00006550 35 2c 32 37 2c 31 29 3a f2 67 28 33 35 29 0d 17 |5,27,1):.g(35)..|
00006560 c0 05 cb 0d 17 ca 11 c9 61 25 28 33 34 29 3a c8 |........a%(34):.|
00006570 8e 4d 25 ca 0d 17 d4 27 c9 31 33 3a e7 28 62 25 |.M%....'.13:.(b%|
00006580 80 31 29 3e 30 80 69 65 25 3d 30 8c f2 65 28 33 |.1)>0.ie%=0..e(3|
00006590 34 2c 31 33 29 8b 69 65 25 3d 30 0d 17 de 27 c9 |4,13).ie%=0...'.|
000065a0 32 39 3a e7 28 62 25 80 31 29 3e 30 80 69 65 25 |29:.(b%.1)>0.ie%|
000065b0 3d 31 8c f2 65 28 33 34 2c 32 39 29 8b 69 65 25 |=1..e(34,29).ie%|
000065c0 3d 31 0d 17 e8 25 c9 35 3a e7 28 62 25 80 31 29 |=1...%.5:.(b%.1)|
000065d0 3e 30 80 69 65 25 3d 32 8c f2 65 28 33 34 2c 35 |>0.ie%=2..e(34,5|
000065e0 29 8b 69 65 25 3d 32 0d 17 f2 27 c9 34 31 3a e7 |).ie%=2...'.41:.|
000065f0 28 62 25 80 31 29 3e 30 80 6a 65 25 3d 30 8c f2 |(b%.1)>0.je%=0..|
00006600 65 28 33 34 2c 34 31 29 8b 6a 65 25 3d 30 0d 17 |e(34,41).je%=0..|
00006610 fc 27 c9 34 34 3a e7 28 62 25 80 31 29 3e 30 80 |.'.44:.(b%.1)>0.|
00006620 6a 65 25 3d 31 8c f2 65 28 33 34 2c 34 34 29 8b |je%=1..e(34,44).|
00006630 6a 65 25 3d 31 0d 18 06 14 c9 33 31 2c 33 33 3a |je%=1.....31,33:|
00006640 f2 4f 3a f2 77 28 33 32 29 0d 18 10 14 c9 33 39 |.O:.w(32).....39|
00006650 2c 33 37 3a f2 4f 3a f2 77 28 33 38 29 0d 18 1a |,37:.O:.w(38)...|
00006660 14 c9 32 34 2c 32 30 3a f2 4f 3a f2 77 28 31 38 |..24,20:.O:.w(18|
00006670 29 0d 18 24 12 c9 36 2c 31 34 3a f2 4f 3a f2 77 |)..$..6,14:.O:.w|
00006680 28 39 29 0d 18 2e 14 c9 32 33 2c 31 39 3a f2 4f |(9).....23,19:.O|
00006690 3a f2 77 28 32 32 29 0d 18 38 14 c9 34 33 2c 34 |:.w(22)..8..43,4|
000066a0 32 3a f2 4f 3a f2 77 28 31 30 29 0d 18 42 4b c9 |2:.O:.w(10)..BK.|
000066b0 32 38 3a f2 62 28 33 34 2c 32 38 2c 31 29 3a f2 |28:.b(34,28,1):.|
000066c0 52 28 31 2c 69 65 25 2c 6a 65 25 2c 6b 65 25 2c |R(1,ie%,je%,ke%,|
000066d0 6c 65 25 2c 6d 65 25 2c 6e 65 25 2c 6f 65 25 2c |le%,me%,ne%,oe%,|
000066e0 70 65 25 29 3a e7 28 62 25 80 31 29 3c 3d 30 8c |pe%):.(b%.1)<=0.|
000066f0 f2 67 28 33 34 29 0d 18 4c 0f f2 62 28 33 34 2c |.g(34)..L..b(34,|
00006700 32 38 2c 30 29 0d 18 56 1a c9 34 36 3a f2 62 28 |28,0)..V..46:.b(|
00006710 33 34 2c 34 36 2c 31 29 3a f2 67 28 33 34 29 0d |34,46,1):.g(34).|
00006720 18 60 05 cb 0d 18 6a 11 c9 61 25 28 33 36 29 3a |.`....j..a%(36):|
00006730 c8 8e 4d 25 ca 0d 18 74 27 c9 31 33 3a e7 28 62 |..M%...t'.13:.(b|
00006740 25 80 31 29 3e 30 80 71 65 25 3d 30 8c f2 65 28 |%.1)>0.qe%=0..e(|
00006750 33 36 2c 31 33 29 8b 71 65 25 3d 30 0d 18 7e 25 |36,13).qe%=0..~%|
00006760 c9 35 3a e7 28 62 25 80 31 29 3e 30 80 71 65 25 |.5:.(b%.1)>0.qe%|
00006770 3d 31 8c f2 65 28 33 36 2c 35 29 8b 71 65 25 3d |=1..e(36,5).qe%=|
00006780 31 0d 18 88 27 c9 32 39 3a e7 28 62 25 80 31 29 |1...'.29:.(b%.1)|
00006790 3e 30 80 71 65 25 3d 32 8c f2 65 28 33 36 2c 32 |>0.qe%=2..e(36,2|
000067a0 39 29 8b 71 65 25 3d 32 0d 18 92 27 c9 34 31 3a |9).qe%=2...'.41:|
000067b0 e7 28 62 25 80 31 29 3e 30 80 72 65 25 3d 30 8c |.(b%.1)>0.re%=0.|
000067c0 f2 65 28 33 36 2c 34 31 29 8b 72 65 25 3d 30 0d |.e(36,41).re%=0.|
000067d0 18 9c 27 c9 34 34 3a e7 28 62 25 80 31 29 3e 30 |..'.44:.(b%.1)>0|
000067e0 80 72 65 25 3d 31 8c f2 65 28 33 36 2c 34 34 29 |.re%=1..e(36,44)|
000067f0 8b 72 65 25 3d 31 0d 18 a6 1a c9 34 38 3a 44 64 |.re%=1.....48:Dd|
00006800 25 3d ac 44 64 25 3a e7 ac 44 64 25 8c f2 75 62 |%=.Dd%:..Dd%..ub|
00006810 0d 18 b0 14 c9 33 31 2c 33 33 3a f2 50 3a f2 78 |.....31,33:.P:.x|
00006820 28 33 32 29 0d 18 ba 14 c9 33 39 2c 33 37 3a f2 |(32).....39,37:.|
00006830 50 3a f2 78 28 33 38 29 0d 18 c4 14 c9 32 34 2c |P:.x(38).....24,|
00006840 32 30 3a f2 50 3a f2 78 28 31 38 29 0d 18 ce 12 |20:.P:.x(18)....|
00006850 c9 36 2c 31 34 3a f2 50 3a f2 78 28 39 29 0d 18 |.6,14:.P:.x(9)..|
00006860 d8 14 c9 32 33 2c 31 39 3a f2 50 3a f2 78 28 32 |...23,19:.P:.x(2|
00006870 32 29 0d 18 e2 14 c9 34 33 2c 34 32 3a f2 50 3a |2).....43,42:.P:|
00006880 f2 78 28 31 30 29 0d 18 ec 53 c9 32 38 3a f2 62 |.x(10)...S.28:.b|
00006890 28 33 36 2c 32 38 2c 31 29 3a f2 52 28 33 2c 71 |(36,28,1):.R(3,q|
000068a0 65 25 2c 72 65 25 2c 43 63 25 2c 44 63 25 2c 73 |e%,re%,Cc%,Dc%,s|
000068b0 65 25 2c 74 65 25 2c 46 63 25 2c 75 65 25 29 3a |e%,te%,Fc%,ue%):|
000068c0 76 65 25 3d 44 64 25 3a e7 28 62 25 80 31 29 3c |ve%=Dd%:.(b%.1)<|
000068d0 3d 30 8c f2 67 28 33 36 29 0d 18 f6 0f f2 62 28 |=0..g(36).....b(|
000068e0 33 36 2c 32 38 2c 30 29 0d 19 00 22 c9 33 35 3a |36,28,0)...".35:|
000068f0 f2 62 28 33 36 2c 33 35 2c 31 29 3a 44 64 25 3d |.b(36,35,1):Dd%=|
00006900 76 65 25 3a f2 67 28 33 36 29 0d 19 0a 05 cb 0d |ve%:.g(36)......|
00006910 19 14 11 c9 61 25 28 33 30 29 3a c8 8e 4d 25 ca |....a%(30):..M%.|
00006920 0d 19 1e 59 c9 32 3a f2 62 28 33 30 2c 32 2c 31 |...Y.2:.b(30,2,1|
00006930 29 3a f2 74 28 59 25 2c 64 25 28 67 25 29 2c 67 |):.t(Y%,d%(g%),g|
00006940 25 2c 24 28 a4 74 28 33 30 2c 33 29 29 2b 44 24 |%,$(.t(30,3))+D$|
00006950 29 3a f2 63 28 59 25 2c 64 25 28 67 25 29 2c 67 |):.c(Y%,d%(g%),g|
00006960 25 29 3a f2 75 28 30 29 3a f2 68 3a f2 70 3a f2 |%):.u(0):.h:.p:.|
00006970 62 28 33 30 2c 32 2c 30 29 0d 19 28 05 cb 0d 19 |b(30,2,0)..(....|
00006980 32 11 c9 61 25 28 33 31 29 3a c8 8e 4d 25 ca 0d |2..a%(31):..M%..|
00006990 19 3c 59 c9 32 3a f2 62 28 33 31 2c 32 2c 31 29 |.<Y.2:.b(31,2,1)|
000069a0 3a f2 7a 28 59 25 2c 64 25 28 67 25 29 2c 67 25 |:.z(Y%,d%(g%),g%|
000069b0 2c bb 28 24 28 a4 74 28 33 31 2c 35 29 29 29 29 |,.($(.t(31,5))))|
000069c0 3a f2 63 28 59 25 2c 64 25 28 67 25 29 2c 67 25 |:.c(Y%,d%(g%),g%|
000069d0 29 3a f2 75 28 30 29 3a f2 68 3a f2 70 3a f2 62 |):.u(0):.h:.p:.b|
000069e0 28 33 31 2c 32 2c 30 29 0d 19 46 13 c9 33 2c 36 |(31,2,0)..F..3,6|
000069f0 3a f2 76 62 3a f2 77 62 28 35 29 0d 19 50 13 c9 |:.vb:.wb(5)..P..|
00006a00 38 2c 39 3a f2 76 62 3a f2 77 62 28 37 29 0d 19 |8,9:.vb:.wb(7)..|
00006a10 5a 05 cb 0d 19 64 11 c9 61 25 28 33 32 29 3a c8 |Z....d..a%(32):.|
00006a20 8e 4d 25 ca 0d 19 6e 59 c9 32 3a f2 62 28 33 32 |.M%...nY.2:.b(32|
00006a30 2c 32 2c 31 29 3a f2 41 28 59 25 2c 64 25 28 67 |,2,1):.A(Y%,d%(g|
00006a40 25 29 2c 67 25 2c bb 28 24 28 a4 74 28 33 32 2c |%),g%,.($(.t(32,|
00006a50 35 29 29 29 29 3a f2 63 28 59 25 2c 64 25 28 67 |5)))):.c(Y%,d%(g|
00006a60 25 29 2c 67 25 29 3a f2 75 28 30 29 3a f2 68 3a |%),g%):.u(0):.h:|
00006a70 f2 70 3a f2 62 28 33 32 2c 32 2c 30 29 0d 19 78 |.p:.b(32,2,0)..x|
00006a80 13 c9 33 2c 36 3a f2 78 62 3a f2 79 62 28 35 29 |..3,6:.xb:.yb(5)|
00006a90 0d 19 82 13 c9 38 2c 39 3a f2 78 62 3a f2 79 62 |.....8,9:.xb:.yb|
00006aa0 28 37 29 0d 19 8c 05 cb 0d 19 96 11 c9 61 25 28 |(7)..........a%(|
00006ab0 33 33 29 3a c8 8e 4d 25 ca 0d 19 a0 5d c9 32 3a |33):..M%....].2:|
00006ac0 f2 62 28 33 33 2c 32 2c 31 29 3a f2 73 28 59 25 |.b(33,2,1):.s(Y%|
00006ad0 2c 64 25 28 67 25 29 2c 67 25 2c bb 28 24 28 a4 |,d%(g%),g%,.($(.|
00006ae0 74 28 33 33 2c 35 29 29 29 29 3a f2 63 28 59 25 |t(33,5)))):.c(Y%|
00006af0 2c 64 25 28 67 25 29 2c 67 25 29 3a f2 47 61 3a |,d%(g%),g%):.Ga:|
00006b00 f2 75 28 30 29 3a f2 68 3a f2 70 3a f2 62 28 33 |.u(0):.h:.p:.b(3|
00006b10 33 2c 32 2c 30 29 0d 19 aa 13 c9 33 2c 36 3a f2 |3,2,0).....3,6:.|
00006b20 7a 62 3a f2 41 62 28 35 29 0d 19 b4 13 c9 38 2c |zb:.Ab(5).....8,|
00006b30 39 3a f2 7a 62 3a f2 41 62 28 37 29 0d 19 be 05 |9:.zb:.Ab(7)....|
00006b40 cb 0d 19 c8 11 c9 61 25 28 31 34 29 3a c8 8e 4d |......a%(14):..M|
00006b50 25 ca 0d 19 d2 18 c9 30 3a f2 62 28 31 34 2c 30 |%......0:.b(14,0|
00006b60 2c 31 29 3a c8 8e 77 65 25 ca 0d 19 dc 10 c9 30 |,1):..we%......0|
00006b70 3a f2 42 62 3a 78 65 25 3d b9 0d 19 e6 18 c9 31 |:.Bb:xe%=......1|
00006b80 3a f2 68 3a f2 42 28 33 2c 67 25 29 3a 78 65 25 |:.h:.B(3,g%):xe%|
00006b90 3d b9 0d 19 f0 13 c9 32 3a f2 68 3a f2 43 62 3a |=......2:.h:.Cb:|
00006ba0 78 65 25 3d b9 0d 19 fa 0d c9 33 3a f2 68 3a f2 |xe%=......3:.h:.|
00006bb0 44 62 0d 1a 04 05 cb 0d 1a 0e 0e f2 62 28 31 34 |Db..........b(14|
00006bc0 2c 30 2c 30 29 0d 1a 18 1f c9 32 3a f2 62 28 31 |,0,0).....2:.b(1|
00006bd0 34 2c 32 2c 31 29 3a f2 68 3a f2 62 28 31 34 2c |4,2,1):.h:.b(14,|
00006be0 32 2c 30 29 0d 1a 22 05 cb 0d 1a 2c 11 c9 61 25 |2,0).."....,..a%|
00006bf0 28 32 32 29 3a c8 8e 4d 25 ca 0d 1a 36 b2 c9 31 |(22):..M%...6..1|
00006c00 3a f2 62 28 32 32 2c 31 2c 31 29 3a 4f 62 25 3d |:.b(22,1,1):Ob%=|
00006c10 67 25 3a f2 66 28 32 33 29 3a f2 76 28 32 33 2c |g%:.f(23):.v(23,|
00006c20 22 4e 65 77 20 76 69 65 77 3a 20 22 2b 61 24 28 |"New view: "+a$(|
00006c30 67 25 29 2c 31 29 3a 24 a4 74 28 32 33 2c 30 29 |g%),1):$.t(23,0)|
00006c40 3d a4 67 28 52 61 25 29 2b 22 20 22 2b a4 6c 28 |=.g(Ra%)+" "+.l(|
00006c50 53 61 25 29 3a 50 62 25 3d a4 4a 28 53 61 25 29 |Sa%):Pb%=.J(Sa%)|
00006c60 2b 52 61 25 3a e7 6e 25 28 4f 62 25 2c 50 62 25 |+Ra%:.n%(Ob%,Pb%|
00006c70 29 3e 36 8c f2 69 28 32 33 2c 32 31 34 2b 28 34 |)>6..i(23,214+(4|
00006c80 30 2a 6e 25 28 4f 62 25 2c 50 62 25 29 29 2c 31 |0*n%(Ob%,Pb%)),1|
00006c90 35 31 30 2c 30 2c 30 29 8b f2 69 28 32 33 2c 34 |510,0,0)..i(23,4|
00006ca0 35 36 2c 31 35 31 30 2c 30 2c 30 29 0d 1a 40 1a |56,1510,0,0)..@.|
00006cb0 f2 6c 28 31 2c 32 33 29 3a e7 28 62 25 80 31 29 |.l(1,23):.(b%.1)|
00006cc0 3c 3d 30 8c f2 68 0d 1a 4a 0e f2 62 28 32 32 2c |<=0..h..J..b(22,|
00006cd0 31 2c 30 29 0d 1a 54 12 c9 35 2c 37 3a f2 45 62 |1,0)..T..5,7:.Eb|
00006ce0 3a f2 57 28 36 29 0d 1a 5e 13 c9 38 2c 31 30 3a |:.W(6)..^..8,10:|
00006cf0 f2 45 62 3a f2 57 28 39 29 0d 1a 68 05 cb 0d 1a |.Eb:.W(9)..h....|
00006d00 72 11 c9 61 25 28 34 30 29 3a c8 8e 4d 25 ca 0d |r..a%(40):..M%..|
00006d10 1a 7c 31 c9 31 3a f2 62 28 34 30 2c 31 2c 31 29 |.|1.1:.b(40,1,1)|
00006d20 3a f2 46 62 28 28 6c 62 25 29 2a 31 32 2b 6b 62 |:.Fb((lb%)*12+kb|
00006d30 25 29 3a f2 68 3a f2 62 28 34 30 2c 31 2c 30 29 |%):.h:.b(40,1,0)|
00006d40 0d 1a 86 12 c9 35 2c 37 3a f2 47 62 3a f2 58 28 |.....5,7:.Gb:.X(|
00006d50 36 29 0d 1a 90 13 c9 38 2c 31 30 3a f2 47 62 3a |6).....8,10:.Gb:|
00006d60 f2 58 28 39 29 0d 1a 9a 05 cb 0d 1a a4 11 c9 61 |.X(9)..........a|
00006d70 25 28 31 32 29 3a c8 8e 4d 25 ca 0d 1a ae 13 c9 |%(12):..M%......|
00006d80 36 2c 37 3a f2 48 62 3a f2 49 62 28 35 29 0d 1a |6,7:.Hb:.Ib(5)..|
00006d90 b8 14 c9 31 30 2c 38 3a f2 48 62 3a f2 49 62 28 |...10,8:.Hb:.Ib(|
00006da0 39 29 0d 1a c2 28 c9 31 32 3a f2 62 28 31 32 2c |9)...(.12:.b(12,|
00006db0 31 32 2c 31 29 3a f2 52 61 3a f2 68 3a e7 28 62 |12,1):.Ra:.h:.(b|
00006dc0 25 80 31 29 3c 3d 30 8c f2 68 0d 1a cc 0f f2 62 |%.1)<=0..h.....b|
00006dd0 28 31 32 2c 31 32 2c 30 29 0d 1a d6 05 cb 0d 1a |(12,12,0).......|
00006de0 e0 11 c9 61 25 28 31 33 29 3a c8 8e 4d 25 ca 0d |...a%(13):..M%..|
00006df0 1a ea 3b c9 31 35 2c 31 36 2c 31 37 2c 31 38 2c |..;.15,16,17,18,|
00006e00 31 39 2c 32 30 2c 32 31 2c 32 32 2c 32 33 2c 32 |19,20,21,22,23,2|
00006e10 34 2c 32 35 2c 32 36 2c 32 37 3a f2 4a 62 28 4d |4,25,26,27:.Jb(M|
00006e20 25 2d 31 35 2c 2d 31 2c 30 29 0d 1a f4 3a c9 35 |%-15,-1,0)...:.5|
00006e30 34 2c 35 35 2c 35 36 2c 35 37 2c 35 38 2c 35 39 |4,55,56,57,58,59|
00006e40 2c 36 30 2c 36 31 2c 36 32 2c 36 33 2c 36 34 2c |,60,61,62,63,64,|
00006e50 36 35 2c 36 36 3a f2 4a 62 28 4d 25 2d 35 34 2c |65,66:.Jb(M%-54,|
00006e60 31 2c 31 29 0d 1a fe 2d c9 36 38 3a f2 62 28 31 |1,1)...-.68:.b(1|
00006e70 33 2c 36 38 2c 31 29 3a f2 4b 62 3a f2 4c 62 3a |3,68,1):.Kb:.Lb:|
00006e80 e7 28 62 25 80 31 29 3c 3d 30 8c f2 67 28 31 33 |.(b%.1)<=0..g(13|
00006e90 29 0d 1b 08 0f f2 62 28 31 33 2c 36 38 2c 30 29 |).....b(13,68,0)|
00006ea0 0d 1b 12 2d c9 36 39 3a f2 62 28 31 33 2c 36 39 |...-.69:.b(13,69|
00006eb0 2c 31 29 3a f2 4d 62 3a f2 4c 62 3a e7 28 62 25 |,1):.Mb:.Lb:.(b%|
00006ec0 80 31 29 3c 3d 30 8c f2 67 28 31 33 29 0d 1b 1c |.1)<=0..g(13)...|
00006ed0 2c f2 62 28 31 33 2c 36 39 2c 30 29 3a e7 61 25 |,.b(13,69,0):.a%|
00006ee0 28 33 39 29 3c 3e 30 8c 21 71 25 3d 61 25 28 33 |(39)<>0.!q%=a%(3|
00006ef0 39 29 3a f2 72 28 71 25 29 0d 1b 26 2d c9 36 37 |9):.r(q%)..&-.67|
00006f00 3a f2 62 28 31 33 2c 36 37 2c 31 29 3a f2 4e 62 |:.b(13,67,1):.Nb|
00006f10 3a f2 4c 62 3a e7 28 62 25 80 31 29 3c 3d 30 8c |:.Lb:.(b%.1)<=0.|
00006f20 f2 67 28 31 33 29 0d 1b 30 2c f2 62 28 31 33 2c |.g(13)..0,.b(13,|
00006f30 36 37 2c 30 29 3a e7 61 25 28 33 39 29 3c 3e 30 |67,0):.a%(39)<>0|
00006f40 8c 21 71 25 3d 61 25 28 33 39 29 3a f2 72 28 71 |.!q%=a%(39):.r(q|
00006f50 25 29 0d 1b 3a 05 cb 0d 1b 44 05 cb 0d 1b 4e 13 |%)..:....D....N.|
00006f60 c9 32 3a 78 65 25 3d b9 3a c8 8e 79 64 25 ca 0d |.2:xe%=.:..yd%..|
00006f70 1b 58 26 c9 2d 32 3a f2 4f 62 3a f2 6e 28 79 61 |.X&.-2:.Ob:.n(ya|
00006f80 25 29 3a f2 6f 28 79 61 25 2c 77 64 25 2d 36 34 |%):.o(ya%,wd%-64|
00006f90 2c 33 36 34 29 0d 1b 62 56 c9 61 25 28 30 29 2c |,364)..bV.a%(0),|
00006fa0 61 25 28 31 29 2c 61 25 28 32 29 2c 61 25 28 33 |a%(1),a%(2),a%(3|
00006fb0 29 2c 61 25 28 34 29 2c 61 25 28 35 29 3a f2 61 |),a%(4),a%(5):.a|
00006fc0 62 3a 4b 62 25 3d 67 25 3a f2 71 61 3a f2 50 62 |b:Kb%=g%:.qa:.Pb|
00006fd0 3a f2 6e 28 7a 61 25 29 3a f2 6f 28 7a 61 25 2c |:.n(za%):.o(za%,|
00006fe0 77 64 25 2d 36 34 2c 78 64 25 29 0d 1b 6c 26 c9 |wd%-64,xd%)..l&.|
00006ff0 61 25 28 32 38 29 3a f2 6e 28 56 61 25 29 3a f2 |a%(28):.n(Va%):.|
00007000 6f 28 56 61 25 2c 77 64 25 2d 36 34 2c 78 64 25 |o(Va%,wd%-64,xd%|
00007010 29 0d 1b 76 26 c9 61 25 28 33 39 29 3a f2 6e 28 |)..v&.a%(39):.n(|
00007020 5f 61 25 29 3a f2 6f 28 5f 61 25 2c 77 64 25 2d |_a%):.o(_a%,wd%-|
00007030 36 34 2c 78 64 25 29 0d 1b 80 26 c9 61 25 28 33 |64,xd%)...&.a%(3|
00007040 38 29 3a f2 6e 28 61 62 25 29 3a f2 6f 28 61 62 |8):.n(ab%):.o(ab|
00007050 25 2c 77 64 25 2d 36 34 2c 78 64 25 29 0d 1b 8a |%,wd%-64,xd%)...|
00007060 26 c9 61 25 28 34 31 29 3a f2 6e 28 66 62 25 29 |&.a%(41):.n(fb%)|
00007070 3a f2 6f 28 66 62 25 2c 77 64 25 2d 36 34 2c 78 |:.o(fb%,wd%-64,x|
00007080 64 25 29 0d 1b 94 1e c9 61 25 28 31 37 29 3a f2 |d%).....a%(17):.|
00007090 6f 28 64 62 25 2c 77 64 25 2d 36 34 2c 78 64 25 |o(db%,wd%-64,xd%|
000070a0 29 0d 1b 9e 11 c9 61 25 28 31 38 29 3a c8 8e 4d |).....a%(18):..M|
000070b0 25 ca 0d 1b a8 21 c9 37 3a f2 6e 28 50 64 25 29 |%....!.7:.n(Pd%)|
000070c0 3a f2 6f 28 50 64 25 2c 77 64 25 2d 36 34 2c 78 |:.o(Pd%,wd%-64,x|
000070d0 64 25 29 0d 1b b2 37 c9 38 3a f2 62 28 31 38 2c |d%)...7.8:.b(18,|
000070e0 38 2c 31 29 3a f2 6e 28 50 64 25 29 3a f2 6f 28 |8,1):.n(Pd%):.o(|
000070f0 50 64 25 2c 77 64 25 2d 36 34 2c 78 64 25 29 3a |Pd%,wd%-64,xd%):|
00007100 f2 62 28 31 38 2c 38 2c 30 29 0d 1b bc 22 c9 31 |.b(18,8,0)...".1|
00007110 30 3a f2 6e 28 51 64 25 29 3a f2 6f 28 51 64 25 |0:.n(Qd%):.o(Qd%|
00007120 2c 77 64 25 2d 36 34 2c 78 64 25 29 0d 1b c6 3a |,wd%-64,xd%)...:|
00007130 c9 31 31 3a f2 62 28 31 38 2c 31 31 2c 31 29 3a |.11:.b(18,11,1):|
00007140 f2 6e 28 51 64 25 29 3a f2 6f 28 51 64 25 2c 77 |.n(Qd%):.o(Qd%,w|
00007150 64 25 2d 36 34 2c 78 64 25 29 3a f2 62 28 31 38 |d%-64,xd%):.b(18|
00007160 2c 31 31 2c 30 29 0d 1b d0 05 cb 0d 1b da 05 cb |,11,0)..........|
00007170 0d 1b e4 11 c9 31 36 2c 36 34 3a c8 8e 79 64 25 |.....16,64:..yd%|
00007180 ca 0d 1b ee 1f c9 61 25 28 39 29 3a e7 4d 25 3d |......a%(9):.M%=|
00007190 32 8c 79 65 25 3d 51 61 25 3a f2 51 62 28 39 29 |2.ye%=Qa%:.Qb(9)|
000071a0 0d 1b f8 1f c9 61 25 28 31 30 29 3a e7 4d 25 3d |.....a%(10):.M%=|
000071b0 32 8c 79 65 25 3d 31 3a f2 51 62 28 31 30 29 0d |2.ye%=1:.Qb(10).|
000071c0 1c 02 1f c9 61 25 28 31 31 29 3a e7 4d 25 3d 32 |....a%(11):.M%=2|
000071d0 8c 79 65 25 3d 32 3a f2 51 62 28 31 31 29 0d 1c |.ye%=2:.Qb(11)..|
000071e0 0c 05 cb 0d 1c 16 05 cb 0d 1c 20 05 e1 0d 1c 2a |.......... ....*|
000071f0 22 dd f2 48 61 3a 43 62 25 3d 45 62 25 3a 75 62 |"..Ha:Cb%=Eb%:ub|
00007200 25 3d 46 62 25 3a 42 62 25 3d 44 62 25 3a e1 0d |%=Fb%:Bb%=Db%:..|
00007210 1c 34 3e dd f2 6d 62 3a 64 25 28 67 25 29 3d 28 |.4>..mb:d%(g%)=(|
00007220 4c 61 25 2a 31 32 29 2b 42 61 25 3a f2 49 28 67 |La%*12)+Ba%:.I(g|
00007230 25 29 3a e7 67 25 3d 75 62 25 80 64 25 28 67 25 |%):.g%=ub%.d%(g%|
00007240 29 3c 3e 43 62 25 8c f2 4b 28 67 25 29 0d 1c 3e |)<>Cb%..K(g%)..>|
00007250 3a 21 71 25 3d 61 25 28 67 25 29 3a f2 60 28 67 |:!q%=a%(g%):.`(g|
00007260 25 29 3a f2 72 28 71 25 29 3a e7 67 25 3d 75 62 |%):.r(q%):.g%=ub|
00007270 25 80 64 25 28 67 25 29 3d 43 62 25 8c f2 59 28 |%.d%(g%)=Cb%..Y(|
00007280 67 25 2c 42 62 25 29 0d 1c 48 08 f2 68 3a e1 0d |g%,Bb%)..H..h:..|
00007290 1c 52 31 dd f2 60 28 77 25 29 3a 24 a4 74 28 77 |.R1..`(w%):$.t(w|
000072a0 25 2c 30 29 3d a4 67 28 64 25 28 77 25 29 29 2b |%,0)=.g(d%(w%))+|
000072b0 22 20 22 2b a4 71 28 64 25 28 77 25 29 29 3a e1 |" "+.q(d%(w%)):.|
000072c0 0d 1c 5c 25 dd f2 61 62 3a e3 41 62 25 3d 30 b8 |..\%..ab:.Ab%=0.|
000072d0 35 3a e7 79 64 25 3d 61 25 28 41 62 25 29 8c 67 |5:.yd%=a%(Ab%).g|
000072e0 25 3d 41 62 25 0d 1c 66 07 ed 3a e1 0d 1c 70 2e |%=Ab%..f..:...p.|
000072f0 dd f2 50 62 3a f2 52 62 28 7a 65 25 2c 30 2c 61 |..Pb:.Rb(ze%,0,a|
00007300 24 28 67 25 29 29 3a f2 52 62 28 41 65 25 2c 30 |$(g%)):.Rb(Ae%,0|
00007310 2c 61 24 28 67 25 29 29 3a e1 0d 1c 7a 14 dd f2 |,a$(g%)):...z...|
00007320 42 61 28 42 65 25 29 3a c8 8e 42 65 25 ca 0d 1c |Ba(Be%):..Be%...|
00007330 84 16 c9 30 3a 24 a4 74 28 32 35 2c 36 29 3d 22 |...0:$.t(25,6)="|
00007340 59 65 73 22 0d 1c 8e 15 c9 31 3a 24 a4 74 28 32 |Yes".....1:$.t(2|
00007350 35 2c 36 29 3d 22 4e 6f 22 0d 1c 98 05 cb 0d 1c |5,6)="No".......|
00007360 a2 05 e1 0d 1c ac 1b dd f2 43 61 28 60 24 29 3a |.........Ca(`$):|
00007370 24 a4 74 28 32 35 2c 35 29 3d 60 24 3a e1 0d 1c |$.t(25,5)=`$:...|
00007380 b6 1d dd f2 68 3a c8 99 32 36 32 33 35 36 2c 2c |....h:..262356,,|
00007390 2d 31 3a 78 61 25 3d 2d 31 3a e1 0d 1c c0 e6 dd |-1:xa%=-1:......|
000073a0 f2 68 61 3a de 56 25 31 32 34 31 35 2c 43 65 25 |.ha:.V%12415,Ce%|
000073b0 38 35 37 35 3a 44 65 25 3d 56 25 3a 45 65 25 3d |8575:De%=V%:Ee%=|
000073c0 30 3a 46 65 25 3d 30 3a 47 65 25 3d a4 65 28 22 |0:Fe%=0:Ge%=.e("|
000073d0 4f 70 65 6e 22 2c 31 31 29 3a f2 61 28 22 3c 75 |Open",11):.a("<u|
000073e0 6e 74 69 74 6c 65 64 3e 22 2c 30 29 3a f2 61 28 |ntitled>",0):.a(|
000073f0 22 3c 75 6e 74 69 74 6c 65 64 3e 22 2c 30 29 3a |"<untitled>",0):|
00007400 f2 61 28 22 3c 75 6e 74 69 74 6c 65 64 3e 22 2c |.a("<untitled>",|
00007410 30 29 3a f2 61 28 22 3c 75 6e 74 69 74 6c 65 64 |0):.a("<untitled|
00007420 3e 22 2c 30 29 3a f2 61 28 22 3c 75 6e 74 69 74 |>",0):.a("<untit|
00007430 6c 65 64 3e 22 2c 30 29 3a f2 61 28 22 3c 75 6e |led>",0):.a("<un|
00007440 74 69 74 6c 65 64 3e 22 2c 31 32 38 29 3a 50 64 |titled>",128):Pd|
00007450 25 3d a4 65 28 22 4d 6f 6e 74 68 22 2c 31 34 29 |%=.e("Month",14)|
00007460 3a f2 61 28 22 4a 61 6e 75 61 72 79 22 2c 30 29 |:.a("January",0)|
00007470 3a f2 61 28 22 46 65 62 72 75 61 72 79 22 2c 30 |:.a("February",0|
00007480 29 0d 1c ca de f2 61 28 22 4d 61 72 63 68 22 2c |).....a("March",|
00007490 30 29 3a f2 61 28 22 41 70 72 69 6c 22 2c 30 29 |0):.a("April",0)|
000074a0 3a f2 61 28 22 4d 61 79 22 2c 30 29 3a f2 61 28 |:.a("May",0):.a(|
000074b0 22 4a 75 6e 65 22 2c 30 29 3a f2 61 28 22 4a 75 |"June",0):.a("Ju|
000074c0 6c 79 22 2c 30 29 3a f2 61 28 22 41 75 67 75 73 |ly",0):.a("Augus|
000074d0 74 22 2c 30 29 3a f2 61 28 22 53 65 70 74 65 6d |t",0):.a("Septem|
000074e0 62 65 72 22 2c 30 29 3a f2 61 28 22 4f 63 74 6f |ber",0):.a("Octo|
000074f0 62 65 72 22 2c 30 29 3a f2 61 28 22 4e 6f 76 65 |ber",0):.a("Nove|
00007500 6d 62 65 72 22 2c 30 29 3a f2 61 28 22 44 65 63 |mber",0):.a("Dec|
00007510 65 6d 62 65 72 22 2c 32 29 3a f2 61 28 22 43 75 |ember",2):.a("Cu|
00007520 72 72 65 6e 74 20 6d 6f 6e 74 68 22 2c 31 32 38 |rrent month",128|
00007530 29 3a 51 64 25 3d a4 65 28 22 59 65 61 72 22 2c |):Qd%=.e("Year",|
00007540 31 33 29 3a f2 61 28 c3 28 5a 25 2d 32 29 2c 30 |13):.a(.(Z%-2),0|
00007550 29 3a f2 61 28 c3 28 5a 25 2d 31 29 2c 30 29 0d |):.a(.(Z%-1),0).|
00007560 1c d4 d8 f2 61 28 c3 28 5a 25 29 2c 32 29 3a f2 |....a(.(Z%),2):.|
00007570 61 28 22 43 75 72 72 65 6e 74 20 79 65 61 72 22 |a("Current year"|
00007580 2c 31 32 38 29 3a 79 61 25 3d a4 65 28 22 49 6e |,128):ya%=.e("In|
00007590 76 65 73 74 6f 72 22 2c 31 35 29 3a f2 61 28 22 |vestor",15):.a("|
000075a0 49 6e 66 6f 7c 22 2c 31 30 29 3a f2 61 28 22 43 |Info|",10):.a("C|
000075b0 72 65 61 74 65 22 2c 30 29 3a f2 61 28 22 4f 70 |reate",0):.a("Op|
000075c0 65 6e 20 70 6f 72 74 66 6f 6c 69 6f 22 2c 30 29 |en portfolio",0)|
000075d0 3a f2 61 28 22 43 68 6f 69 63 65 73 2e 2e 2e 22 |:.a("Choices..."|
000075e0 2c 32 29 3a f2 61 28 22 51 75 69 74 22 2c 31 32 |,2):.a("Quit",12|
000075f0 38 29 3a 48 65 25 3d a4 65 28 22 43 72 65 61 74 |8):He%=.e("Creat|
00007600 65 22 2c 31 32 29 3a f2 61 28 22 50 6f 72 74 66 |e",12):.a("Portf|
00007610 6f 6c 69 6f 7e 22 2c 31 33 32 29 3a f2 6b 28 79 |olio~",132):.k(y|
00007620 61 25 2c 31 2c 48 65 25 29 3a f2 6b 28 79 61 25 |a%,1,He%):.k(ya%|
00007630 2c 32 2c 47 65 25 29 0d 1c de e7 7a 61 25 3d a4 |,2,Ge%)....za%=.|
00007640 65 28 22 49 6e 76 65 73 74 6f 72 22 2c 31 35 29 |e("Investor",15)|
00007650 3a f2 61 28 22 44 69 73 70 6c 61 79 22 2c 30 29 |:.a("Display",0)|
00007660 3a f2 61 28 22 4d 6f 6e 74 68 22 2c 30 29 3a f2 |:.a("Month",0):.|
00007670 61 28 22 59 65 61 72 22 2c 32 29 3a f2 61 28 22 |a("Year",2):.a("|
00007680 50 6f 72 74 66 6f 6c 69 6f 22 2c 30 29 3a f2 61 |Portfolio",0):.a|
00007690 28 22 53 65 6c 65 63 74 65 64 20 73 74 6f 63 6b |("Selected stock|
000076a0 22 2c 30 29 3a f2 61 28 22 4e 65 77 20 73 74 6f |",0):.a("New sto|
000076b0 63 6b 2e 2e 2e 22 2c 32 29 3a f2 61 28 22 54 72 |ck...",2):.a("Tr|
000076c0 61 6e 73 66 65 72 20 64 61 74 61 22 2c 32 29 3a |ansfer data",2):|
000076d0 f2 61 28 22 44 69 76 69 64 65 6e 64 73 22 2c 31 |.a("Dividends",1|
000076e0 32 38 29 3a 49 65 25 3d a4 65 28 22 44 69 73 70 |28):Ie%=.e("Disp|
000076f0 6c 61 79 22 2c 32 30 29 3a f2 61 28 22 55 6e 73 |lay",20):.a("Uns|
00007700 6f 72 74 65 64 22 2c 30 29 3a f2 61 28 22 53 6f |orted",0):.a("So|
00007710 72 74 20 62 79 20 6e 61 6d 65 22 2c 30 29 0d 1c |rt by name",0)..|
00007720 e8 e9 f2 61 28 22 53 6f 72 74 20 62 79 20 67 61 |...a("Sort by ga|
00007730 69 6e 22 2c 30 29 3a f2 61 28 22 53 6f 72 74 20 |in",0):.a("Sort |
00007740 62 79 20 76 61 6c 75 65 22 2c 30 29 3a f2 61 28 |by value",0):.a(|
00007750 22 53 6f 72 74 20 62 79 20 70 72 69 63 65 22 2c |"Sort by price",|
00007760 30 29 3a f2 61 28 22 53 6f 72 74 20 62 79 20 66 |0):.a("Sort by f|
00007770 6c 75 63 74 75 61 74 69 6f 6e 22 2c 32 29 3a f2 |luctuation",2):.|
00007780 61 28 22 53 6f 72 74 20 6f 70 74 69 6f 6e 73 22 |a("Sort options"|
00007790 2c 31 32 38 29 3a f2 6b 28 7a 61 25 2c 30 2c 49 |,128):.k(za%,0,I|
000077a0 65 25 29 3a 4a 65 25 3d a4 65 28 22 53 6f 72 74 |e%):Je%=.e("Sort|
000077b0 22 2c 31 30 29 3a f2 61 28 22 4c 6f 63 61 6c 22 |",10):.a("Local"|
000077c0 2c 30 29 3a f2 61 28 22 47 6c 6f 62 61 6c 22 2c |,0):.a("Global",|
000077d0 30 29 3a f2 61 28 22 55 6e 69 76 65 72 73 61 6c |0):.a("Universal|
000077e0 22 2c 31 32 38 29 3a f2 6b 28 49 65 25 2c 36 2c |",128):.k(Ie%,6,|
000077f0 4a 65 25 29 3a 4b 65 25 3d a4 65 28 22 4d 6f 6e |Je%):Ke%=.e("Mon|
00007800 74 68 22 2c 31 32 29 0d 1c f2 f2 f2 61 28 22 49 |th",12).....a("I|
00007810 6e 66 6f 7c 22 2c 31 30 29 3a f2 61 28 22 53 65 |nfo|",10):.a("Se|
00007820 74 7c 22 2c 38 29 3a f2 61 28 22 43 6f 70 79 7c |t|",8):.a("Copy||
00007830 22 2c 38 29 3a f2 61 28 22 43 6c 65 61 72 20 6d |",8):.a("Clear m|
00007840 6f 6e 74 68 22 2c 31 32 38 29 3a f2 6b 28 7a 61 |onth",128):.k(za|
00007850 25 2c 31 2c 4b 65 25 29 3a 4c 65 25 3d a4 65 28 |%,1,Ke%):Le%=.e(|
00007860 22 59 65 61 72 22 2c 31 31 29 3a f2 61 28 22 49 |"Year",11):.a("I|
00007870 6e 66 6f 7c 22 2c 31 30 29 3a f2 61 28 22 53 65 |nfo|",10):.a("Se|
00007880 74 7c 22 2c 38 29 3a f2 61 28 22 43 6f 70 79 7c |t|",8):.a("Copy||
00007890 22 2c 38 29 3a f2 61 28 22 43 6c 65 61 72 20 79 |",8):.a("Clear y|
000078a0 65 61 72 22 2c 31 32 38 29 3a f2 6b 28 7a 61 25 |ear",128):.k(za%|
000078b0 2c 32 2c 4c 65 25 29 3a 4d 65 25 3d a4 65 28 22 |,2,Le%):Me%=.e("|
000078c0 50 6f 72 74 66 6f 6c 69 6f 22 2c 31 31 29 3a f2 |Portfolio",11):.|
000078d0 61 28 22 49 6e 66 6f 7c 22 2c 31 30 29 3a f2 61 |a("Info|",10):.a|
000078e0 28 22 43 6f 70 79 22 2c 30 29 3a f2 61 28 22 52 |("Copy",0):.a("R|
000078f0 65 6e 61 6d 65 22 2c 30 29 0d 1c fc ea f2 61 28 |ename",0).....a(|
00007900 22 53 61 76 65 22 2c 30 29 3a f2 61 28 22 43 6c |"Save",0):.a("Cl|
00007910 65 61 72 22 2c 32 29 3a f2 61 28 22 44 65 6c 65 |ear",2):.a("Dele|
00007920 74 65 22 2c 32 29 3a f2 61 28 22 46 6f 72 6d 61 |te",2):.a("Forma|
00007930 74 22 2c 30 29 3a f2 61 28 22 4e 65 77 20 76 69 |t",0):.a("New vi|
00007940 65 77 7c 22 2c 31 30 29 3a f2 61 28 22 50 72 69 |ew|",10):.a("Pri|
00007950 6e 74 2e 2e 2e 22 2c 31 32 38 29 3a f2 6b 28 7a |nt...",128):.k(z|
00007960 61 25 2c 33 2c 4d 65 25 29 3a 41 65 25 3d a4 65 |a%,3,Me%):Ae%=.e|
00007970 28 22 43 6f 70 79 22 2c 31 32 29 3a f2 61 28 22 |("Copy",12):.a("|
00007980 3c 75 6e 74 69 74 6c 65 64 3e 7e 22 2c 31 33 32 |<untitled>~",132|
00007990 29 3a 7a 65 25 3d a4 65 28 22 52 65 6e 61 6d 65 |):ze%=.e("Rename|
000079a0 22 2c 31 32 29 3a f2 61 28 22 3c 75 6e 74 69 74 |",12):.a("<untit|
000079b0 6c 65 64 3e 7e 22 2c 31 33 32 29 3a 4e 65 25 3d |led>~",132):Ne%=|
000079c0 a4 65 28 22 53 61 76 65 22 2c 31 35 29 3a f2 61 |.e("Save",15):.a|
000079d0 28 22 53 61 76 65 20 61 73 20 74 65 78 74 7c 22 |("Save as text|"|
000079e0 2c 38 29 0d 1d 06 ea f2 61 28 22 53 61 76 65 20 |,8).....a("Save |
000079f0 70 6f 72 74 66 6f 6c 69 6f 7c 22 2c 31 33 36 29 |portfolio|",136)|
00007a00 3a 4f 65 25 3d a4 65 28 22 46 6f 72 6d 61 74 22 |:Oe%=.e("Format"|
00007a10 2c 31 35 29 3a f2 61 28 22 43 75 72 72 65 6e 74 |,15):.a("Current|
00007a20 20 76 61 6c 75 65 22 2c 30 29 3a f2 61 28 22 50 | value",0):.a("P|
00007a30 75 72 63 68 61 73 65 20 76 61 6c 75 65 22 2c 31 |urchase value",1|
00007a40 32 38 29 3a f2 6b 28 4d 65 25 2c 31 2c 41 65 25 |28):.k(Me%,1,Ae%|
00007a50 29 3a f2 6b 28 4d 65 25 2c 32 2c 7a 65 25 29 3a |):.k(Me%,2,ze%):|
00007a60 f2 6b 28 4d 65 25 2c 33 2c 4e 65 25 29 3a f2 6b |.k(Me%,3,Ne%):.k|
00007a70 28 4d 65 25 2c 36 2c 4f 65 25 29 3a 50 65 25 3d |(Me%,6,Oe%):Pe%=|
00007a80 a4 65 28 22 53 74 6f 63 6b 22 2c 32 30 29 3a f2 |.e("Stock",20):.|
00007a90 61 28 22 49 6e 66 6f 7c 22 2c 38 29 3a f2 61 28 |a("Info|",8):.a(|
00007aa0 22 41 6c 74 65 72 22 2c 30 29 3a f2 61 28 22 46 |"Alter",0):.a("F|
00007ab0 6f 72 6d 61 74 20 76 69 65 77 22 2c 30 29 3a f2 |ormat view",0):.|
00007ac0 61 28 22 52 65 6d 6f 76 65 22 2c 30 29 0d 1d 10 |a("Remove",0)...|
00007ad0 df f2 61 28 22 43 6c 65 61 72 20 73 65 6c 65 63 |..a("Clear selec|
00007ae0 74 69 6f 6e 22 2c 32 29 3a f2 61 28 22 53 68 6f |tion",2):.a("Sho|
00007af0 77 20 70 65 72 66 6f 72 6d 61 6e 63 65 2e 2e 2e |w performance...|
00007b00 22 2c 31 32 38 29 3a f2 6b 28 7a 61 25 2c 34 2c |",128):.k(za%,4,|
00007b10 50 65 25 29 3a 51 65 25 3d a4 65 28 22 41 6c 74 |Pe%):Qe%=.e("Alt|
00007b20 65 72 22 2c 31 35 29 3a f2 61 28 22 53 74 6f 63 |er",15):.a("Stoc|
00007b30 6b 20 6e 61 6d 65 7c 22 2c 38 29 3a f2 61 28 22 |k name|",8):.a("|
00007b40 55 6e 69 74 73 20 68 65 6c 64 7c 22 2c 38 29 3a |Units held|",8):|
00007b50 f2 61 28 22 50 75 72 63 68 61 73 65 20 70 72 69 |.a("Purchase pri|
00007b60 63 65 7c 22 2c 38 29 3a f2 61 28 22 43 75 72 72 |ce|",8):.a("Curr|
00007b70 65 6e 74 20 70 72 69 63 65 7c 22 2c 31 33 36 29 |ent price|",136)|
00007b80 3a 52 65 25 3d a4 65 28 22 46 6f 72 6d 61 74 20 |:Re%=.e("Format |
00007b90 76 69 65 77 22 2c 31 36 29 3a f2 61 28 22 55 6e |view",16):.a("Un|
00007ba0 69 74 73 20 68 65 6c 64 22 2c 30 29 0d 1d 1a d9 |its held",0)....|
00007bb0 f2 61 28 22 43 75 72 72 65 6e 74 20 70 72 69 63 |.a("Current pric|
00007bc0 65 22 2c 30 29 3a f2 61 28 22 43 75 72 72 65 6e |e",0):.a("Curren|
00007bd0 74 20 76 61 6c 75 65 22 2c 30 29 3a f2 61 28 22 |t value",0):.a("|
00007be0 4e 65 74 20 67 61 69 6e 22 2c 30 29 3a f2 61 28 |Net gain",0):.a(|
00007bf0 22 50 65 72 63 65 6e 74 61 67 65 20 67 61 69 6e |"Percentage gain|
00007c00 22 2c 31 32 38 29 3a f2 6b 28 50 65 25 2c 31 2c |",128):.k(Pe%,1,|
00007c10 51 65 25 29 3a f2 6b 28 50 65 25 2c 32 2c 52 65 |Qe%):.k(Pe%,2,Re|
00007c20 25 29 3a 53 65 25 3d a4 65 28 22 54 72 61 6e 73 |%):Se%=.e("Trans|
00007c30 66 65 72 22 2c 32 30 29 3a f2 61 28 22 59 65 61 |fer",20):.a("Yea|
00007c40 72 2e 2e 2e 22 2c 30 29 3a f2 61 28 22 4d 6f 6e |r...",0):.a("Mon|
00007c50 74 68 2e 2e 2e 22 2c 30 29 3a f2 61 28 22 49 6e |th...",0):.a("In|
00007c60 64 69 76 69 64 75 61 6c 20 73 74 6f 63 6b 2e 2e |dividual stock..|
00007c70 2e 22 2c 31 32 38 29 3a f2 6b 28 7a 61 25 2c 36 |.",128):.k(za%,6|
00007c80 2c 53 65 25 29 0d 1d 24 e2 54 65 25 3d a4 65 28 |,Se%)..$.Te%=.e(|
00007c90 22 44 69 76 69 64 65 6e 64 73 22 2c 32 30 29 3a |"Dividends",20):|
00007ca0 f2 61 28 22 53 68 6f 77 20 6c 69 73 74 2e 2e 2e |.a("Show list...|
00007cb0 22 2c 30 29 3a f2 61 28 22 48 69 67 68 6c 69 67 |",0):.a("Highlig|
00007cc0 68 74 20 64 69 76 69 64 65 6e 64 73 22 2c 31 32 |ht dividends",12|
00007cd0 38 29 3a f2 6b 28 7a 61 25 2c 37 2c 54 65 25 29 |8):.k(za%,7,Te%)|
00007ce0 3a 56 61 25 3d a4 65 28 22 49 6e 76 65 73 74 6f |:Va%=.e("Investo|
00007cf0 72 22 2c 31 37 29 3a f2 61 28 22 49 6e 66 6f 7c |r",17):.a("Info||
00007d00 22 2c 38 29 3a f2 61 28 22 44 69 73 70 6c 61 79 |",8):.a("Display|
00007d10 22 2c 32 29 3a f2 61 28 22 53 68 6f 77 20 61 73 |",2):.a("Show as|
00007d20 20 67 72 61 70 68 69 63 73 22 2c 31 32 38 29 3a | graphics",128):|
00007d30 55 65 25 3d a4 65 28 22 44 69 73 70 6c 61 79 22 |Ue%=.e("Display"|
00007d40 2c 31 32 29 3a f2 61 28 22 59 65 61 72 22 2c 30 |,12):.a("Year",0|
00007d50 29 3a f2 61 28 22 41 6c 6c 20 65 6e 74 72 69 65 |):.a("All entrie|
00007d60 73 22 2c 31 32 38 29 0d 1d 2e ed 56 65 25 3d a4 |s",128)....Ve%=.|
00007d70 65 28 22 59 65 61 72 22 2c 35 29 3a f2 61 28 c3 |e("Year",5):.a(.|
00007d80 28 5a 25 2d 32 29 2c 30 29 3a f2 61 28 c3 28 5a |(Z%-2),0):.a(.(Z|
00007d90 25 2d 31 29 2c 30 29 3a f2 61 28 c3 28 5a 25 29 |%-1),0):.a(.(Z%)|
00007da0 2c 31 32 38 29 3a f2 6b 28 56 61 25 2c 31 2c 55 |,128):.k(Va%,1,U|
00007db0 65 25 29 3a f2 6b 28 55 65 25 2c 30 2c 56 65 25 |e%):.k(Ue%,0,Ve%|
00007dc0 29 3a 5f 61 25 3d a4 65 28 22 49 6e 76 65 73 74 |):_a%=.e("Invest|
00007dd0 6f 72 22 2c 31 35 29 3a f2 61 28 22 43 68 61 72 |or",15):.a("Char|
00007de0 74 22 2c 30 29 3a f2 61 28 22 47 72 61 70 68 22 |t",0):.a("Graph"|
00007df0 2c 32 29 3a f2 61 28 22 54 72 75 6e 63 61 74 65 |,2):.a("Truncate|
00007e00 22 2c 30 29 3a f2 61 28 22 53 63 61 6c 65 20 76 |",0):.a("Scale v|
00007e10 69 65 77 7c 22 2c 31 30 29 3a f2 61 28 22 53 68 |iew|",10):.a("Sh|
00007e20 6f 77 20 65 78 74 65 6e 74 73 22 2c 30 29 3a f2 |ow extents",0):.|
00007e30 61 28 22 53 65 74 20 63 6f 6c 6f 75 72 73 2e 2e |a("Set colours..|
00007e40 2e 22 2c 32 29 3a f2 61 28 22 53 61 76 65 22 2c |.",2):.a("Save",|
00007e50 31 32 38 29 0d 1d 38 e0 57 65 25 3d a4 65 28 22 |128)..8.We%=.e("|
00007e60 43 68 61 72 74 22 2c 39 29 3a f2 61 28 22 32 44 |Chart",9):.a("2D|
00007e70 20 43 68 61 72 74 22 2c 30 29 3a f2 61 28 22 33 | Chart",0):.a("3|
00007e80 44 20 43 68 61 72 74 22 2c 31 32 38 29 3a 58 65 |D Chart",128):Xe|
00007e90 25 3d a4 65 28 22 53 61 76 65 22 2c 31 38 29 3a |%=.e("Save",18):|
00007ea0 f2 61 28 22 53 61 76 65 20 61 73 20 43 53 56 20 |.a("Save as CSV |
00007eb0 66 69 6c 65 7c 22 2c 38 29 3a f2 61 28 22 53 61 |file|",8):.a("Sa|
00007ec0 76 65 20 61 73 20 64 72 61 77 20 66 69 6c 65 7c |ve as draw file||
00007ed0 22 2c 31 33 36 29 3a f2 6b 28 5f 61 25 2c 30 2c |",136):.k(_a%,0,|
00007ee0 57 65 25 29 3a f2 6b 28 5f 61 25 2c 36 2c 58 65 |We%):.k(_a%,6,Xe|
00007ef0 25 29 3a 66 62 25 3d a4 65 28 22 49 6e 76 65 73 |%):fb%=.e("Inves|
00007f00 74 6f 72 22 2c 31 36 29 3a f2 61 28 22 53 65 74 |tor",16):.a("Set|
00007f10 20 76 61 6c 75 65 73 7c 22 2c 38 29 3a f2 61 28 | values|",8):.a(|
00007f20 22 43 6c 65 61 72 20 73 65 6c 65 63 74 69 6f 6e |"Clear selection|
00007f30 22 2c 32 29 0d 1d 42 f2 f2 61 28 22 43 6c 65 61 |",2)..B..a("Clea|
00007f40 72 20 64 69 76 69 64 65 6e 64 73 22 2c 30 29 3a |r dividends",0):|
00007f50 f2 61 28 22 53 61 76 65 20 61 73 20 74 65 78 74 |.a("Save as text|
00007f60 7c 22 2c 31 30 29 3a f2 61 28 22 42 61 73 65 20 ||",10):.a("Base |
00007f70 75 70 6f 6e 20 6d 6f 6e 74 68 7c 22 2c 31 33 36 |upon month|",136|
00007f80 29 3a 61 62 25 3d a4 65 28 22 49 6e 76 65 73 74 |):ab%=.e("Invest|
00007f90 6f 72 22 2c 31 36 29 3a f2 61 28 22 50 6c 6f 74 |or",16):.a("Plot|
00007fa0 22 2c 30 29 3a f2 61 28 22 53 61 76 65 20 68 69 |",0):.a("Save hi|
00007fb0 73 74 6f 72 79 7c 22 2c 31 30 29 3a f2 61 28 22 |story|",10):.a("|
00007fc0 53 68 6f 77 20 73 74 61 74 69 73 74 69 63 73 22 |Show statistics"|
00007fd0 2c 31 32 38 29 3a 59 65 25 3d a4 65 28 22 50 6c |,128):Ye%=.e("Pl|
00007fe0 6f 74 22 2c 31 36 29 3a f2 61 28 22 55 6e 69 74 |ot",16):.a("Unit|
00007ff0 73 20 68 65 6c 64 22 2c 30 29 3a f2 61 28 22 43 |s held",0):.a("C|
00008000 75 72 72 65 6e 74 20 70 72 69 63 65 22 2c 30 29 |urrent price",0)|
00008010 3a f2 61 28 22 43 75 72 72 65 6e 74 20 76 61 6c |:.a("Current val|
00008020 75 65 22 2c 30 29 0d 1d 4c dc f2 61 28 22 4e 65 |ue",0)..L..a("Ne|
00008030 74 20 67 61 69 6e 22 2c 30 29 3a f2 61 28 22 50 |t gain",0):.a("P|
00008040 65 72 63 65 6e 74 61 67 65 20 67 61 69 6e 22 2c |ercentage gain",|
00008050 31 32 38 29 3a f2 6b 28 61 62 25 2c 30 2c 59 65 |128):.k(ab%,0,Ye|
00008060 25 29 3a 64 62 25 3d a4 65 28 22 49 6e 76 65 73 |%):db%=.e("Inves|
00008070 74 6f 72 22 2c 31 31 29 3a f2 61 28 22 54 65 78 |tor",11):.a("Tex|
00008080 74 20 66 6f 6e 74 22 2c 30 29 3a f2 61 28 22 53 |t font",0):.a("S|
00008090 63 61 6c 65 20 76 69 65 77 7c 22 2c 31 30 29 3a |cale view|",10):|
000080a0 f2 61 28 22 50 72 69 6e 74 22 2c 31 32 38 29 3a |.a("Print",128):|
000080b0 63 62 25 3d a4 65 28 22 41 6c 74 65 72 22 2c 31 |cb%=.e("Alter",1|
000080c0 35 29 3a f2 61 28 22 53 74 6f 63 6b 20 6e 61 6d |5):.a("Stock nam|
000080d0 65 7c 22 2c 38 29 3a f2 61 28 22 55 6e 69 74 73 |e|",8):.a("Units|
000080e0 20 68 65 6c 64 7c 22 2c 38 29 3a f2 61 28 22 50 | held|",8):.a("P|
000080f0 75 72 63 68 61 73 65 20 70 72 69 63 65 7c 22 2c |urchase price|",|
00008100 38 29 0d 1d 56 88 f2 61 28 22 43 75 72 72 65 6e |8)..V..a("Curren|
00008110 74 20 70 72 69 63 65 7c 22 2c 31 33 36 29 3a 5a |t price|",136):Z|
00008120 65 25 3d a4 65 28 22 54 65 78 74 20 66 6f 6e 74 |e%=.e("Text font|
00008130 22 2c 31 31 29 3a 5f 65 25 3d 30 3a 53 24 3d 22 |",11):_e%=0:S$="|
00008140 22 3a 60 65 25 3d 2d 31 3a f5 3a c8 99 32 36 32 |":`e%=-1:.:..262|
00008150 32 38 39 2c 2c 65 61 25 2c 5f 65 25 2c 2d 31 b8 |289,,ea%,_e%,-1.|
00008160 2c 2c 5f 65 25 3a 66 24 3d 24 65 61 25 3a e7 a7 |,,_e%:f$=$ea%:..|
00008170 66 24 2c 22 2e 22 29 3d 30 8c 66 24 2b 3d 22 2e |f$,".")=0.f$+=".|
00008180 28 52 65 67 75 6c 61 72 29 22 0d 1d 60 31 6f 24 |(Regular)"..`1o$|
00008190 3d c0 66 24 2c a7 66 24 2c 22 2e 22 29 2d 31 29 |=.f$,.f$,".")-1)|
000081a0 3a 4b 24 3d c1 66 24 2c a7 66 24 2c 22 2e 22 29 |:K$=.f$,.f$,".")|
000081b0 2b 31 29 3a e7 6f 24 3d 53 24 8c 0d 1d 6a 13 63 |+1):.o$=S$...j.c|
000081c0 24 28 60 65 25 29 2b 3d 4b 24 2b 22 2c 22 0d 1d |$(`e%)+=K$+","..|
000081d0 74 31 cc 3a 60 65 25 2b 3d 31 3a 63 24 28 60 65 |t1.:`e%+=1:c$(`e|
000081e0 25 29 3d 6f 24 2b 22 2c 22 2b 4b 24 2b 22 2c 22 |%)=o$+","+K$+","|
000081f0 3a 53 24 3d 6f 24 3a f2 61 28 6f 24 2c 30 29 0d |:S$=o$:.a(o$,0).|
00008200 1d 7e 05 cd 0d 1d 88 e5 fd 5f 65 25 3d 2d 31 3a |.~......._e%=-1:|
00008210 61 66 25 3d a9 28 4b 24 29 3a 62 66 25 3d a9 28 |af%=.(K$):bf%=.(|
00008220 63 24 28 60 65 25 29 29 3a 63 24 28 60 65 25 29 |c$(`e%)):c$(`e%)|
00008230 3d c1 63 24 28 60 65 25 29 2c 30 2c 62 66 25 2d |=.c$(`e%),0,bf%-|
00008240 61 66 25 2d 31 29 3a 61 25 3d 56 25 2b 45 65 25 |af%-1):a%=V%+Ee%|
00008250 3a 61 25 21 2d 32 34 3d 28 61 25 21 2d 32 34 29 |:a%!-24=(a%!-24)|
00008260 84 31 32 38 3a f2 6b 28 64 62 25 2c 30 2c 5a 65 |.128:.k(db%,0,Ze|
00008270 25 29 3a e3 63 66 25 3d 30 b8 60 65 25 3a 64 66 |%):.cf%=0.`e%:df|
00008280 25 3d a7 63 24 28 63 66 25 29 2c 22 2c 22 29 3a |%=.c$(cf%),","):|
00008290 7a 25 3d a4 65 28 c0 63 24 28 63 66 25 29 2c 64 |z%=.e(.c$(cf%),d|
000082a0 66 25 2d 31 29 2c 32 30 29 3a 65 66 25 3d 30 3a |f%-1),20):ef%=0:|
000082b0 c8 95 a7 63 24 28 63 66 25 29 2c 22 2c 22 2c 64 |...c$(cf%),",",d|
000082c0 66 25 2b 31 29 3e 30 3a 66 66 25 3d 64 66 25 2b |f%+1)>0:ff%=df%+|
000082d0 31 3a 64 66 25 3d a7 63 24 28 63 66 25 29 2c 22 |1:df%=.c$(cf%),"|
000082e0 2c 22 2c 64 66 25 2b 31 29 0d 1d 92 31 4c 24 3d |,",df%+1)...1L$=|
000082f0 c1 63 24 28 63 66 25 29 2c 66 66 25 2c 64 66 25 |.c$(cf%),ff%,df%|
00008300 2d 66 66 25 29 3a e7 a9 28 4c 24 29 3e 65 66 25 |-ff%):..(L$)>ef%|
00008310 8c 65 66 25 3d a9 28 4c 24 29 0d 1d 9c 57 f2 61 |.ef%=.(L$)...W.a|
00008320 28 4c 24 2c 30 29 3a ce 3a 61 25 3d 67 66 25 3a |(L$,0):.:a%=gf%:|
00008330 61 25 21 31 36 3d 28 65 66 25 2b 31 29 2a 31 36 |a%!16=(ef%+1)*16|
00008340 3a 61 25 3d 56 25 2b 45 65 25 3a 61 25 21 2d 32 |:a%=V%+Ee%:a%!-2|
00008350 34 3d 28 61 25 21 2d 32 34 29 84 31 32 38 3a f2 |4=(a%!-24).128:.|
00008360 6b 28 5a 65 25 2c 63 66 25 2c 7a 25 29 3a ed 3a |k(Ze%,cf%,z%):.:|
00008370 e1 0d 1d a6 77 dd a4 65 28 74 24 2c 77 25 29 3a |....w..e(t$,w%):|
00008380 ea 61 25 3a 67 66 25 3d 56 25 2b 45 65 25 3a 61 |.a%:gf%=V%+Ee%:a|
00008390 25 3d 56 25 2b 45 65 25 3a 24 61 25 3d 74 24 3a |%=V%+Ee%:$a%=t$:|
000083a0 61 25 3f 31 32 3d 37 3a 61 25 3f 31 33 3d 32 3a |a%?12=7:a%?13=2:|
000083b0 61 25 3f 31 34 3d 37 3a 61 25 3f 31 35 3d 30 3a |a%?14=7:a%?15=0:|
000083c0 61 25 21 31 36 3d 77 25 2a 31 36 3a 61 25 21 32 |a%!16=w%*16:a%!2|
000083d0 30 3d 34 34 3a 61 25 21 32 34 3d 30 3a 45 65 25 |0=44:a%!24=0:Ee%|
000083e0 2b 3d 32 38 3a 3d 61 25 0d 1d b0 4d dd f2 61 28 |+=28:=a%...M..a(|
000083f0 69 24 2c 66 25 29 3a ea 61 25 2c 68 66 25 3a 61 |i$,f%):.a%,hf%:a|
00008400 25 3d 56 25 2b 45 65 25 3a 68 66 25 3d 2d 31 3a |%=V%+Ee%:hf%=-1:|
00008410 61 25 21 30 3d 66 25 3a 61 25 21 34 3d 2d 31 3a |a%!0=f%:a%!4=-1:|
00008420 61 25 21 38 3d 26 37 30 30 30 30 32 31 3a c8 8e |a%!8=&7000021:..|
00008430 c2 69 24 29 ca 0d 1d ba 1b c9 22 7c 22 3a 69 24 |.i$)......"|":i$|
00008440 3d c0 69 24 29 3a 61 25 21 34 3d 33 32 37 36 37 |=.i$):a%!4=32767|
00008450 0d 1d c4 17 c9 22 7e 22 3a 69 24 3d c0 69 24 29 |....."~":i$=.i$)|
00008460 3a 68 66 25 3d 31 31 0d 1d ce 05 cb 0d 1d d8 19 |:hf%=11.........|
00008470 e7 a9 28 69 24 29 3e 31 31 8c 68 66 25 3d a9 28 |..(i$)>11.hf%=.(|
00008480 69 24 29 2b 31 0d 1d e2 0c e7 68 66 25 3e 2d 31 |i$)+1.....hf%>-1|
00008490 8c 0d 1d ec 63 61 25 21 38 2b 3d 32 35 36 3a 24 |....ca%!8+=256:$|
000084a0 28 43 65 25 2b 46 65 25 29 3d 69 24 3a 61 25 21 |(Ce%+Fe%)=i$:a%!|
000084b0 31 32 3d 43 65 25 2b 46 65 25 3a 46 65 25 2b 3d |12=Ce%+Fe%:Fe%+=|
000084c0 a9 28 69 24 29 2b 31 3a 24 28 43 65 25 2b 46 65 |.(i$)+1:$(Ce%+Fe|
000084d0 25 29 3d 22 22 3a 61 25 21 31 36 3d 43 65 25 2b |%)="":a%!16=Ce%+|
000084e0 46 65 25 3a 46 65 25 2b 3d 31 3a 61 25 21 32 30 |Fe%:Fe%+=1:a%!20|
000084f0 3d 68 66 25 0d 1d f6 11 cc 3a 24 28 61 25 2b 31 |=hf%.....:$(a%+1|
00008500 32 29 3d 69 24 0d 1e 00 05 cd 0d 1e 0a 0d 45 65 |2)=i$.........Ee|
00008510 25 2b 3d 32 34 3a e1 0d 1e 14 26 dd f2 6b 28 6d |%+=24:....&..k(m|
00008520 25 2c 69 25 2c 70 25 29 3a 6d 25 21 28 32 38 2b |%,i%,p%):m%!(28+|
00008530 32 34 2a 69 25 2b 34 29 3d 70 25 3a e1 0d 1e 1e |24*i%+4)=p%:....|
00008540 18 dd f2 6e 28 6d 25 29 3a 69 66 25 3d 2d 31 3a |...n(m%):if%=-1:|
00008550 c8 8e 6d 25 ca 0d 1e 28 7e c9 7a 61 25 3a f2 6d |..m%...(~.za%:.m|
00008560 28 49 65 25 2c 6a 66 25 2c 30 29 3a f2 6d 28 49 |(Ie%,jf%,0):.m(I|
00008570 65 25 2c 6b 66 25 2c 31 29 3a f2 6d 28 4a 65 25 |e%,kf%,1):.m(Je%|
00008580 2c 6c 66 25 2c 30 29 3a f2 6d 28 4a 65 25 2c 6d |,lf%,0):.m(Je%,m|
00008590 66 25 2c 31 29 3a f2 6d 28 54 65 25 2c 31 2c 69 |f%,1):.m(Te%,1,i|
000085a0 63 25 29 3a e7 43 62 25 3d 64 25 28 67 25 29 80 |c%):.Cb%=d%(g%).|
000085b0 75 62 25 3d 67 25 8c f2 4d 28 7a 61 25 2c 34 2c |ub%=g%..M(za%,4,|
000085c0 42 62 25 3e 2d 31 29 8b f2 4d 28 7a 61 25 2c 34 |Bb%>-1)..M(za%,4|
000085d0 2c 30 29 0d 1e 32 5c c9 5f 61 25 3a f2 6d 28 5f |,0)..2\._a%:.m(_|
000085e0 61 25 2c 32 2c 53 63 25 29 3a f2 6d 28 5f 61 25 |a%,2,Sc%):.m(_a%|
000085f0 2c 34 2c 60 63 25 29 3a f2 6d 28 5f 61 25 2c 6e |,4,`c%):.m(_a%,n|
00008600 66 25 2c 30 29 3a f2 6d 28 5f 61 25 2c 4d 63 25 |f%,0):.m(_a%,Mc%|
00008610 2c 31 29 3a f2 6d 28 57 65 25 2c 6f 66 25 2c 30 |,1):.m(We%,of%,0|
00008620 29 3a f2 6d 28 57 65 25 2c 59 63 25 2c 31 29 0d |):.m(We%,Yc%,1).|
00008630 1e 3c 52 c9 66 62 25 3a f2 4d 28 66 62 25 2c 30 |.<R.fb%:.M(fb%,0|
00008640 2c 67 62 25 3e 2d 31 29 3a f2 4d 28 66 62 25 2c |,gb%>-1):.M(fb%,|
00008650 31 2c 67 62 25 3e 2d 31 29 3a f2 4d 28 66 62 25 |1,gb%>-1):.M(fb%|
00008660 2c 32 2c 76 25 28 67 25 29 3e 2d 31 29 3a f2 4d |,2,v%(g%)>-1):.M|
00008670 28 66 62 25 2c 33 2c 76 25 28 67 25 29 3e 2d 31 |(fb%,3,v%(g%)>-1|
00008680 29 0d 1e 46 25 c9 79 61 25 3a 40 25 3d 30 3a e3 |)..F%.ya%:@%=0:.|
00008690 6f 25 3d 30 b8 35 3a e7 61 24 28 6f 25 29 3c 3e |o%=0.5:.a$(o%)<>|
000086a0 c3 28 4e 25 29 8c 0d 1e 50 1d 69 66 25 2b 3d 31 |.(N%)...P.if%+=1|
000086b0 3a f2 6d 28 47 65 25 2c 69 66 25 2c 63 25 28 6f |:.m(Ge%,if%,c%(o|
000086c0 25 29 29 0d 1e 5a 05 cd 0d 1e 64 16 ed 3a f2 4d |%))..Z....d..:.M|
000086d0 28 79 61 25 2c 32 2c 69 66 25 3e 2d 31 29 0d 1e |(ya%,2,if%>-1)..|
000086e0 6e 16 c9 61 62 25 3a f2 6d 28 61 62 25 2c 32 2c |n..ab%:.m(ab%,2,|
000086f0 71 63 25 29 0d 1e 78 40 c9 56 61 25 3a f2 6d 28 |qc%)..x@.Va%:.m(|
00008700 55 65 25 2c 70 66 25 2c 30 29 3a f2 6d 28 55 65 |Ue%,pf%,0):.m(Ue|
00008710 25 2c 71 66 25 2c 31 29 3a f2 6d 28 56 65 25 2c |%,qf%,1):.m(Ve%,|
00008720 72 66 25 2c 30 29 3a f2 6d 28 56 65 25 2c 73 66 |rf%,0):.m(Ve%,sf|
00008730 25 2c 31 29 0d 1e 82 16 c9 50 64 25 3a f2 6d 28 |%,1).....Pd%:.m(|
00008740 50 64 25 2c 74 66 25 2c 31 29 0d 1e 8c 16 c9 51 |Pd%,tf%,1).....Q|
00008750 64 25 3a f2 6d 28 51 64 25 2c 75 66 25 2c 31 29 |d%:.m(Qd%,uf%,1)|
00008760 0d 1e 96 05 cb 0d 1e a0 05 e1 0d 1e aa 45 dd f2 |.............E..|
00008770 4d 28 61 25 2c 69 25 2c 63 25 29 3a 61 25 3d 61 |M(a%,i%,c%):a%=a|
00008780 25 2b 33 36 2b 32 34 2a 69 25 3a e7 63 25 8c 21 |%+36+24*i%:.c%.!|
00008790 61 25 3d 21 61 25 80 2d 34 31 39 34 33 30 35 8b |a%=!a%.-4194305.|
000087a0 21 61 25 3d 21 61 25 84 34 31 39 34 33 30 34 0d |!a%=!a%.4194304.|
000087b0 1e b4 05 e1 0d 1e be 39 dd f2 6d 28 61 25 2c 69 |.......9..m(a%,i|
000087c0 25 2c 63 25 29 3a 61 25 3d 61 25 2b 32 38 2b 32 |%,c%):a%=a%+28+2|
000087d0 34 2a 69 25 3a e7 63 25 8c 21 61 25 3d 21 61 25 |4*i%:.c%.!a%=!a%|
000087e0 84 31 8b 21 61 25 3d 21 61 25 80 2d 32 0d 1e c8 |.1.!a%=!a%.-2...|
000087f0 05 e1 0d 1e d2 3b dd f2 6f 28 6d 25 2c 78 25 2c |.....;..o(m%,x%,|
00008800 79 25 29 3a 76 66 25 3d 78 25 3a 77 66 25 3d 79 |y%):vf%=x%:wf%=y|
00008810 25 3a 78 61 25 3d 6d 25 3a c8 99 32 36 32 33 35 |%:xa%=m%:..26235|
00008820 36 2c 2c 6d 25 2c 78 25 2c 79 25 3a e1 0d 1e dc |6,,m%,x%,y%:....|
00008830 54 dd f2 4f 62 3a 45 65 25 3d 30 3a 46 65 25 3d |T..Ob:Ee%=0:Fe%=|
00008840 30 3a 56 25 3d 44 65 25 3a 47 65 25 3d a4 65 28 |0:V%=De%:Ge%=.e(|
00008850 22 4f 70 65 6e 22 2c 31 31 29 3a e3 78 66 25 3d |"Open",11):.xf%=|
00008860 30 b8 35 3a e7 61 24 28 78 66 25 29 3c 3e c3 28 |0.5:.a$(xf%)<>.(|
00008870 4e 25 29 8c f2 61 28 61 24 28 78 66 25 29 2c 30 |N%)..a(a$(xf%),0|
00008880 29 0d 1e e6 25 ed 3a 61 25 3d 56 25 2b 45 65 25 |)...%.:a%=V%+Ee%|
00008890 3a 61 25 21 2d 32 34 3d 28 61 25 21 2d 32 34 29 |:a%!-24=(a%!-24)|
000088a0 84 31 32 38 3a e1 0d 1e f0 30 dd f2 52 62 28 79 |.128:....0..Rb(y|
000088b0 66 25 2c 7a 66 25 2c 73 24 29 3a 24 28 21 28 79 |f%,zf%,s$):$(!(y|
000088c0 66 25 2b 32 38 2b 32 34 2a 7a 66 25 2b 31 32 29 |f%+28+24*zf%+12)|
000088d0 29 3d 73 24 3a e1 0d 1e fa 29 dd a4 73 28 79 66 |)=s$:....)..s(yf|
000088e0 25 2c 7a 66 25 29 3a 3d a4 68 28 21 28 79 66 25 |%,zf%):=.h(!(yf%|
000088f0 2b 32 38 2b 32 34 2a 7a 66 25 2b 31 32 29 29 0d |+28+24*zf%+12)).|
00008900 1f 04 67 dd f2 69 61 3a 21 63 61 25 3d 2d 31 3a |..g..ia:!ca%=-1:|
00008910 63 61 25 21 34 3d 30 3a 63 61 25 21 38 3d 30 3a |ca%!4=0:ca%!8=0:|
00008920 63 61 25 21 31 32 3d 36 38 3a 63 61 25 21 31 36 |ca%!12=68:ca%!16|
00008930 3d 36 38 3a 63 61 25 21 32 30 3d 31 32 32 39 30 |=68:ca%!20=12290|
00008940 3a 24 28 63 61 25 2b 32 34 29 3d 22 21 69 6e 76 |:$(ca%+24)="!inv|
00008950 65 73 74 6f 72 22 3a c8 99 32 36 32 33 33 38 2c |estor":..262338,|
00008960 2c 63 61 25 3a e1 0d 1f 0e 3b dd f2 76 61 28 56 |,ca%:....;..va(V|
00008970 25 29 3a ea 41 66 25 2c 69 25 3a c8 99 32 36 32 |%):.Af%,i%:..262|
00008980 33 35 31 2c 2c 47 25 3a 41 66 25 3d 28 28 28 47 |351,,G%:Af%=(((G|
00008990 25 21 38 29 80 31 29 3e 30 29 3a c8 8e 78 61 25 |%!8).1)>0):..xa%|
000089a0 ca 0d 1f 18 0f c9 79 61 25 3a c8 8e 21 56 25 ca |......ya%:..!V%.|
000089b0 0d 1f 22 0e c9 31 3a c8 8e 56 25 21 34 ca 0d 1f |.."..1:..V%!4...|
000089c0 2c 35 c9 30 3a 42 66 25 3d a4 79 3a e7 42 66 25 |,5.0:Bf%=.y:.Bf%|
000089d0 3d 36 8c f2 71 28 22 4e 6f 20 70 6f 72 74 66 6f |=6..q("No portfo|
000089e0 6c 69 6f 73 20 61 76 61 69 6c 61 62 6c 65 2e 22 |lios available."|
000089f0 29 3a e1 0d 1f 36 49 68 25 28 42 66 25 29 3d b9 |):...6Ih%(Bf%)=.|
00008a00 3a 61 24 28 42 66 25 29 3d a4 73 28 48 65 25 2c |:a$(Bf%)=.s(He%,|
00008a10 30 29 3a f2 76 28 42 66 25 2c 61 24 28 42 66 25 |0):.v(Bf%,a$(Bf%|
00008a20 29 2c 30 29 3a 63 25 28 42 66 25 29 3d 31 3a f2 |),0):c%(Bf%)=1:.|
00008a30 6c 28 30 2c 42 66 25 29 3a f2 4f 62 0d 1f 40 05 |l(0,Bf%):.Ob..@.|
00008a40 cb 0d 1f 4a 0e c9 32 3a c8 8e 56 25 21 34 ca 0d |...J..2:..V%!4..|
00008a50 1f 54 1e c9 30 2c 31 2c 32 2c 33 2c 34 2c 35 3a |.T..0,1,2,3,4,5:|
00008a60 f2 53 62 28 a4 4b 28 56 25 21 34 29 29 0d 1f 5e |.Sb(.K(V%!4))..^|
00008a70 05 cb 0d 1f 68 11 c9 33 3a e7 61 25 28 31 38 29 |....h..3:.a%(18)|
00008a80 3d 30 8c 0d 1f 72 3f f2 6c 28 30 2c 31 38 29 3a |=0...r?.l(0,18):|
00008a90 24 a4 74 28 31 38 2c 37 29 3d a4 43 28 4c 64 25 |$.t(18,7)=.C(Ld%|
00008aa0 29 3a 24 a4 74 28 31 38 2c 31 30 29 3d a4 44 28 |):$.t(18,10)=.D(|
00008ab0 4b 64 25 29 3a e7 64 63 25 f2 65 28 31 38 2c 31 |Kd%):.dc%.e(18,1|
00008ac0 32 29 0d 1f 7c 11 e7 5a 62 25 f2 65 28 31 38 2c |2)..|..Zb%.e(18,|
00008ad0 31 33 29 0d 1f 86 11 e7 43 66 25 f2 65 28 31 38 |13).....Cf%.e(18|
00008ae0 2c 31 34 29 0d 1f 90 11 e7 74 62 25 f2 65 28 31 |,14).....tb%.e(1|
00008af0 38 2c 31 35 29 0d 1f 9a 3b f2 65 28 31 38 2c 31 |8,15)...;.e(18,1|
00008b00 36 2b 73 64 25 29 3a f2 65 28 31 38 2c 32 30 2b |6+sd%):.e(18,20+|
00008b10 74 64 25 29 3a f2 65 28 31 38 2c 32 34 2b 75 64 |td%):.e(18,24+ud|
00008b20 25 29 3a f2 65 28 31 38 2c 32 38 2b 76 64 25 29 |%):.e(18,28+vd%)|
00008b30 0d 1f a4 0e cc 3a f2 6c 28 30 2c 31 38 29 0d 1f |.....:.l(0,18)..|
00008b40 ae 05 cd 0d 1f b8 0a c9 34 3a f2 54 62 0d 1f c2 |........4:.Tb...|
00008b50 05 cb 0d 1f cc 0f c9 7a 61 25 3a c8 8e 21 56 25 |.......za%:..!V%|
00008b60 ca 0d 1f d6 0e c9 30 3a c8 8e 56 25 21 34 ca 0d |......0:..V%!4..|
00008b70 1f e0 17 c9 30 3a 6a 66 25 3d 6b 66 25 3a 6b 66 |....0:jf%=kf%:kf|
00008b80 25 3d 30 3a f2 44 0d 1f ea 17 c9 31 3a 6a 66 25 |%=0:.D.....1:jf%|
00008b90 3d 6b 66 25 3a 6b 66 25 3d 31 3a f2 44 0d 1f f4 |=kf%:kf%=1:.D...|
00008ba0 17 c9 32 3a 6a 66 25 3d 6b 66 25 3a 6b 66 25 3d |..2:jf%=kf%:kf%=|
00008bb0 32 3a f2 44 0d 1f fe 17 c9 33 3a 6a 66 25 3d 6b |2:.D.....3:jf%=k|
00008bc0 66 25 3a 6b 66 25 3d 33 3a f2 44 0d 20 08 17 c9 |f%:kf%=3:.D. ...|
00008bd0 34 3a 6a 66 25 3d 6b 66 25 3a 6b 66 25 3d 34 3a |4:jf%=kf%:kf%=4:|
00008be0 f2 44 0d 20 12 17 c9 35 3a 6a 66 25 3d 6b 66 25 |.D. ...5:jf%=kf%|
00008bf0 3a 6b 66 25 3d 35 3a f2 44 0d 20 1c 0e c9 36 3a |:kf%=5:.D. ...6:|
00008c00 c8 8e 56 25 21 38 ca 0d 20 26 14 c9 30 3a 6c 66 |..V%!8.. &..0:lf|
00008c10 25 3d 6d 66 25 3a 6d 66 25 3d 30 0d 20 30 14 c9 |%=mf%:mf%=0. 0..|
00008c20 31 3a 6c 66 25 3d 6d 66 25 3a 6d 66 25 3d 31 0d |1:lf%=mf%:mf%=1.|
00008c30 20 3a 14 c9 32 3a 6c 66 25 3d 6d 66 25 3a 6d 66 | :..2:lf%=mf%:mf|
00008c40 25 3d 32 0d 20 44 05 cb 0d 20 4e 05 cb 0d 20 58 |%=2. D... N... X|
00008c50 0e c9 31 3a c8 8e 56 25 21 34 ca 0d 20 62 0f c9 |..1:..V%!4.. b..|
00008c60 33 3a f2 42 28 31 2c 67 25 29 0d 20 6c 05 cb 0d |3:.B(1,g%). l...|
00008c70 20 76 0e c9 32 3a c8 8e 56 25 21 34 ca 0d 20 80 | v..2:..V%!4.. .|
00008c80 0f c9 33 3a f2 42 28 32 2c 67 25 29 0d 20 8a 05 |..3:.B(2,g%). ..|
00008c90 cb 0d 20 94 0e c9 33 3a c8 8e 56 25 21 34 ca 0d |.. ...3:..V%!4..|
00008ca0 20 9e 0e c9 31 3a c8 8e 56 25 21 38 ca 0d 20 a8 | ...1:..V%!8.. .|
00008cb0 0a c9 30 3a f2 55 62 0d 20 b2 05 cb 0d 20 bc 0e |..0:.Ub. .... ..|
00008cc0 c9 32 3a c8 8e 56 25 21 38 ca 0d 20 c6 0a c9 30 |.2:..V%!8.. ...0|
00008cd0 3a f2 56 62 0d 20 d0 05 cb 0d 20 da 0a c9 34 3a |:.Vb. .... ...4:|
00008ce0 f2 57 62 0d 20 e4 0a c9 35 3a f2 58 62 0d 20 ee |.Wb. ...5:.Xb. .|
00008cf0 0e c9 36 3a c8 8e 56 25 21 38 ca 0d 20 f8 0d c9 |..6:..V%!8.. ...|
00008d00 30 3a f2 59 62 28 35 29 0d 21 02 0d c9 31 3a f2 |0:.Yb(5).!...1:.|
00008d10 59 62 28 36 29 0d 21 0c 05 cb 0d 21 16 0a c9 38 |Yb(6).!....!...8|
00008d20 3a f2 5a 62 0d 21 20 05 cb 0d 21 2a 0e c9 34 3a |:.Zb.! ...!*..4:|
00008d30 c8 8e 56 25 21 34 ca 0d 21 34 0e c9 32 3a c8 8e |..V%!4..!4..2:..|
00008d40 56 25 21 38 ca 0d 21 3e 18 c9 30 2c 31 2c 32 2c |V%!8..!>..0,1,2,|
00008d50 33 2c 34 3a f2 59 62 28 56 25 21 38 29 0d 21 48 |3,4:.Yb(V%!8).!H|
00008d60 05 cb 0d 21 52 0d c9 33 3a f2 53 61 28 31 29 0d |...!R..3:.Sa(1).|
00008d70 21 5c 0c c9 34 3a f2 75 28 30 29 0d 21 66 0e c9 |!\..4:.u(0).!f..|
00008d80 35 3a f2 5f 62 28 59 25 29 0d 21 70 05 cb 0d 21 |5:._b(Y%).!p...!|
00008d90 7a 16 c9 35 3a f2 6c 28 30 2c 32 31 29 3a 47 62 |z..5:.l(0,21):Gb|
00008da0 25 3d 67 25 0d 21 84 0e c9 36 3a c8 8e 56 25 21 |%=g%.!...6:..V%!|
00008db0 34 ca 0d 21 8e 14 c9 30 3a f2 66 28 33 35 29 3a |4..!...0:.f(35):|
00008dc0 c8 8e 63 65 25 ca 0d 21 98 10 c9 30 3a f2 65 28 |..ce%..!...0:.e(|
00008dd0 33 35 2c 31 33 29 0d 21 a2 10 c9 31 3a f2 65 28 |35,13).!...1:.e(|
00008de0 33 35 2c 31 36 29 0d 21 ac 0f c9 32 3a f2 65 28 |35,16).!...2:.e(|
00008df0 33 35 2c 35 29 0d 21 b6 05 cb 0d 21 c0 0a c8 8e |35,5).!....!....|
00008e00 64 65 25 ca 0d 21 ca 10 c9 30 3a f2 65 28 33 35 |de%..!...0:.e(35|
00008e10 2c 32 32 29 0d 21 d4 10 c9 31 3a f2 65 28 33 35 |,22).!...1:.e(35|
00008e20 2c 32 33 29 0d 21 de 05 cb 0d 21 e8 73 67 65 25 |,23).!....!.sge%|
00008e30 3d 67 25 3a 67 65 25 3d a4 6a 28 67 65 25 29 3a |=g%:ge%=.j(ge%):|
00008e40 68 65 25 3d 67 25 2b 31 3a 68 65 25 3d a4 6a 28 |he%=g%+1:he%=.j(|
00008e50 68 65 25 29 3a 65 65 25 3d 64 25 28 67 25 29 81 |he%):ee%=d%(g%).|
00008e60 31 32 3a 66 65 25 3d 28 64 25 28 67 25 29 81 31 |12:fe%=(d%(g%).1|
00008e70 32 29 2b 31 3a f2 60 62 3a f2 4a 28 33 32 29 3a |2)+1:.`b:.J(32):|
00008e80 f2 4a 28 33 38 29 3a f2 4a 28 31 38 29 3a f2 4a |.J(38):.J(18):.J|
00008e90 28 39 29 3a f2 6c 28 31 2c 33 35 29 0d 21 f2 14 |(9):.l(1,35).!..|
00008ea0 c9 31 3a f2 66 28 33 34 29 3a c8 8e 69 65 25 ca |.1:.f(34):..ie%.|
00008eb0 0d 21 fc 10 c9 30 3a f2 65 28 33 34 2c 31 33 29 |.!...0:.e(34,13)|
00008ec0 0d 22 06 10 c9 31 3a f2 65 28 33 34 2c 32 39 29 |."...1:.e(34,29)|
00008ed0 0d 22 10 0f c9 32 3a f2 65 28 33 34 2c 35 29 0d |."...2:.e(34,5).|
00008ee0 22 1a 05 cb 0d 22 24 0a c8 8e 6a 65 25 ca 0d 22 |"...."$...je%.."|
00008ef0 2e 10 c9 30 3a f2 65 28 33 34 2c 34 31 29 0d 22 |...0:.e(34,41)."|
00008f00 38 10 c9 31 3a f2 65 28 33 34 2c 34 34 29 0d 22 |8..1:.e(34,44)."|
00008f10 42 05 cb 0d 22 4c 9f 6f 65 25 3d 67 25 3a 6f 65 |B..."L.oe%=g%:oe|
00008f20 25 3d a4 6a 28 6f 65 25 29 3a 70 65 25 3d 67 25 |%=.j(oe%):pe%=g%|
00008f30 2b 31 3a 70 65 25 3d a4 6a 28 70 65 25 29 3a 6c |+1:pe%=.j(pe%):l|
00008f40 65 25 3d 64 25 28 67 25 29 83 31 32 3a 6e 65 25 |e%=d%(g%).12:ne%|
00008f50 3d 28 64 25 28 67 25 29 83 31 32 29 2b 31 3a 6b |=(d%(g%).12)+1:k|
00008f60 65 25 3d 64 25 28 67 25 29 81 31 32 3a 6d 65 25 |e%=d%(g%).12:me%|
00008f70 3d 28 64 25 28 67 25 29 81 31 32 29 3a f2 61 63 |=(d%(g%).12):.ac|
00008f80 3a f2 77 28 33 32 29 3a f2 77 28 33 38 29 3a f2 |:.w(32):.w(38):.|
00008f90 77 28 31 38 29 3a f2 77 28 39 29 3a f2 77 28 32 |w(18):.w(9):.w(2|
00008fa0 32 29 3a f2 77 28 31 30 29 3a f2 6c 28 31 2c 33 |2):.w(10):.l(1,3|
00008fb0 34 29 0d 22 56 11 c9 32 3a e7 61 25 28 33 36 29 |4)."V..2:.a%(36)|
00008fc0 3d 30 8c 0d 22 60 28 f2 66 28 33 36 29 3a 44 64 |=0.."`(.f(36):Dd|
00008fd0 25 3d 76 65 25 3a e7 61 25 28 33 37 29 3d 30 8c |%=ve%:.a%(37)=0.|
00008fe0 44 66 25 3d a3 8b 44 66 25 3d b9 0d 22 6a 11 f2 |Df%=..Df%=.."j..|
00008ff0 66 28 33 37 29 3a c8 8e 71 65 25 ca 0d 22 74 10 |f(37):..qe%.."t.|
00009000 c9 30 3a f2 65 28 33 36 2c 31 33 29 0d 22 7e 0f |.0:.e(36,13)."~.|
00009010 c9 31 3a f2 65 28 33 36 2c 35 29 0d 22 88 10 c9 |.1:.e(36,5)."...|
00009020 32 3a f2 65 28 33 36 2c 32 39 29 0d 22 92 05 cb |2:.e(36,29)."...|
00009030 0d 22 9c 0a c8 8e 72 65 25 ca 0d 22 a6 10 c9 30 |."....re%.."...0|
00009040 3a f2 65 28 33 36 2c 34 31 29 0d 22 b0 10 c9 31 |:.e(36,41)."...1|
00009050 3a f2 65 28 33 36 2c 34 34 29 0d 22 ba 05 cb 0d |:.e(36,44)."....|
00009060 22 c4 1b e7 44 64 25 f2 65 28 33 36 2c 34 38 29 |"...Dd%.e(36,48)|
00009070 8b f2 43 28 33 36 2c 34 38 29 0d 22 ce c1 46 63 |..C(36,48)."..Fc|
00009080 25 3d 67 25 3a 46 63 25 3d a4 6a 28 46 63 25 29 |%=g%:Fc%=.j(Fc%)|
00009090 3a 75 65 25 3d 67 25 2b 31 3a 75 65 25 3d a4 6a |:ue%=g%+1:ue%=.j|
000090a0 28 75 65 25 29 3a 44 63 25 3d 64 25 28 67 25 29 |(ue%):Dc%=d%(g%)|
000090b0 83 31 32 3a 74 65 25 3d 28 64 25 28 67 25 29 83 |.12:te%=(d%(g%).|
000090c0 31 32 29 2b 31 3a 43 63 25 3d 64 25 28 67 25 29 |12)+1:Cc%=d%(g%)|
000090d0 81 31 32 3a 73 65 25 3d 28 64 25 28 67 25 29 81 |.12:se%=(d%(g%).|
000090e0 31 32 29 3a 45 66 25 3d 6e 25 28 46 63 25 2c 28 |12):Ef%=n%(Fc%,(|
000090f0 43 63 25 29 2a 31 32 2b 44 63 25 29 2d 31 3a f2 |Cc%)*12+Dc%)-1:.|
00009100 62 63 3a f2 78 28 33 32 29 3a f2 78 28 33 38 29 |bc:.x(32):.x(38)|
00009110 3a f2 78 28 31 38 29 3a f2 78 28 39 29 3a f2 78 |:.x(18):.x(9):.x|
00009120 28 32 32 29 3a f2 78 28 31 30 29 3a f2 6c 28 31 |(22):.x(10):.l(1|
00009130 2c 33 36 29 3a e7 ac 44 66 25 8c 0d 22 d8 0f e7 |,36):..Df%.."...|
00009140 45 66 25 3e 2d 31 8c f2 63 63 0d 22 e2 36 e7 45 |Ef%>-1..cc.".6.E|
00009150 66 25 3e 36 8c f2 69 28 33 37 2c 34 30 2b 34 30 |f%>6..i(37,40+40|
00009160 2a 45 66 25 2c 33 38 30 2c 30 2c 30 29 8b f2 69 |*Ef%,380,0,0)..i|
00009170 28 33 37 2c 33 30 38 2c 33 38 30 2c 30 2c 30 29 |(37,308,380,0,0)|
00009180 0d 22 ec 05 cd 0d 22 f6 25 21 71 25 3d 61 25 28 |."....".%!q%=a%(|
00009190 33 36 29 3a c8 99 32 36 32 33 34 37 2c 2c 71 25 |36):..262347,,q%|
000091a0 3a f2 6f 61 3a 44 66 25 3d b9 0d 23 00 12 cc 3a |:.oa:Df%=..#...:|
000091b0 f2 6c 28 30 2c 33 36 29 3a f2 6f 61 0d 23 0a 05 |.l(0,36):.oa.#..|
000091c0 cd 0d 23 14 05 cb 0d 23 1e 0e c9 37 3a c8 8e 56 |..#....#...7:..V|
000091d0 25 21 34 ca 0d 23 28 85 c9 30 3a f2 66 28 34 31 |%!4..#(..0:.f(41|
000091e0 29 3a 46 66 25 3d 67 25 3a 24 a4 74 28 34 31 2c |):Ff%=g%:$.t(41,|
000091f0 30 29 3d 61 24 28 46 66 25 29 3a f2 6a 28 34 31 |0)=a$(Ff%):.j(41|
00009200 2c 30 29 3a 49 25 3d 67 25 3a 21 71 25 3d 61 25 |,0):I%=g%:!q%=a%|
00009210 28 34 31 29 3a f2 72 28 71 25 29 3a e7 76 25 28 |(41):.r(q%):.v%(|
00009220 49 25 29 3e 35 8c f2 69 28 34 31 2c 32 35 34 2b |I%)>5..i(41,254+|
00009230 28 34 30 2a 76 25 28 49 25 29 29 2c 31 32 33 36 |(40*v%(I%)),1236|
00009240 2c 30 2c 30 29 8b f2 69 28 34 31 2c 34 35 34 2c |,0,0)..i(41,454,|
00009250 31 32 33 36 2c 30 2c 30 29 0d 23 32 0c f2 6c 28 |1236,0,0).#2..l(|
00009260 31 2c 34 31 29 0d 23 3c 1f c9 31 3a e7 69 63 25 |1,41).#<..1:.ic%|
00009270 8c 69 63 25 3d a3 3a f2 64 63 8b 69 63 25 3d b9 |.ic%=.:.dc.ic%=.|
00009280 3a f2 64 63 0d 23 46 05 cb 0d 23 50 05 cb 0d 23 |:.dc.#F...#P...#|
00009290 5a 0f c9 56 61 25 3a c8 8e 21 56 25 ca 0d 23 64 |Z..Va%:..!V%..#d|
000092a0 0e c9 31 3a c8 8e 56 25 21 34 ca 0d 23 6e 1c c9 |..1:..V%!4..#n..|
000092b0 30 3a 70 66 25 3d 71 66 25 3a 71 66 25 3d 30 3a |0:pf%=qf%:qf%=0:|
000092c0 c8 8e 56 25 21 38 ca 0d 23 78 14 c9 30 3a 72 66 |..V%!8..#x..0:rf|
000092d0 25 3d 73 66 25 3a 73 66 25 3d 30 0d 23 82 14 c9 |%=sf%:sf%=0.#...|
000092e0 31 3a 72 66 25 3d 73 66 25 3a 73 66 25 3d 31 0d |1:rf%=sf%:sf%=1.|
000092f0 23 8c 14 c9 32 3a 72 66 25 3d 73 66 25 3a 73 66 |#...2:rf%=sf%:sf|
00009300 25 3d 32 0d 23 96 05 cb 0d 23 a0 1a f2 65 63 28 |%=2.#....#...ec(|
00009310 57 61 25 29 3a 6c 25 2d 3d 31 3a e7 6c 25 3d 2d |Wa%):l%-=1:.l%=-|
00009320 31 8c 0d 23 aa 10 f2 67 28 32 38 29 3a 78 65 25 |1..#...g(28):xe%|
00009330 3d a3 0d 23 b4 3a cc 3a e7 6c 25 3e 31 34 8c f2 |=..#.:.:.l%>14..|
00009340 69 28 32 38 2c 32 31 34 2b 28 34 30 2a 6c 25 29 |i(28,214+(40*l%)|
00009350 2c 35 30 30 2c 30 2c 30 29 8b f2 69 28 32 38 2c |,500,0,0)..i(28,|
00009360 37 37 36 2c 35 30 30 2c 30 2c 30 29 0d 23 be 56 |776,500,0,0).#.V|
00009370 21 71 25 3d 61 25 28 32 38 29 3a f2 72 28 71 25 |!q%=a%(28):.r(q%|
00009380 29 3a e7 61 25 28 33 39 29 3c 3e 30 80 49 63 25 |):.a%(39)<>0.Ic%|
00009390 3d 31 8c 21 71 25 3d 61 25 28 33 39 29 3a f2 72 |=1.!q%=a%(39):.r|
000093a0 28 71 25 29 3a f2 69 28 33 39 2c 35 36 34 2c 33 |(q%):.i(39,564,3|
000093b0 31 30 2b 28 a4 6e 2a 6c 25 2b a4 6f 29 2c 30 2c |10+(.n*l%+.o),0,|
000093c0 30 29 0d 23 c8 05 cd 0d 23 d2 2b c9 31 3a 70 66 |0).#....#.+.1:pf|
000093d0 25 3d 71 66 25 3a 71 66 25 3d 31 3a f2 65 63 28 |%=qf%:qf%=1:.ec(|
000093e0 57 61 25 29 3a 6c 25 2d 3d 31 3a e7 6c 25 3d 2d |Wa%):l%-=1:.l%=-|
000093f0 31 8c 0d 23 dc 10 f2 67 28 32 38 29 3a 78 65 25 |1..#...g(28):xe%|
00009400 3d a3 0d 23 e6 3a cc 3a e7 6c 25 3e 31 34 8c f2 |=..#.:.:.l%>14..|
00009410 69 28 32 38 2c 32 31 34 2b 28 34 30 2a 6c 25 29 |i(28,214+(40*l%)|
00009420 2c 35 30 30 2c 30 2c 30 29 8b f2 69 28 32 38 2c |,500,0,0)..i(28,|
00009430 37 37 36 2c 35 30 30 2c 30 2c 30 29 0d 23 f0 56 |776,500,0,0).#.V|
00009440 21 71 25 3d 61 25 28 32 38 29 3a f2 72 28 71 25 |!q%=a%(28):.r(q%|
00009450 29 3a e7 61 25 28 33 39 29 3c 3e 30 80 49 63 25 |):.a%(39)<>0.Ic%|
00009460 3d 31 8c 21 71 25 3d 61 25 28 33 39 29 3a f2 72 |=1.!q%=a%(39):.r|
00009470 28 71 25 29 3a f2 69 28 33 39 2c 35 36 34 2c 33 |(q%):.i(39,564,3|
00009480 31 30 2b 28 a4 6e 2a 6c 25 2b a4 6f 29 2c 30 2c |10+(.n*l%+.o),0,|
00009490 30 29 0d 23 fa 05 cd 0d 24 04 05 cb 0d 24 0e 11 |0).#....$....$..|
000094a0 c9 32 3a 49 63 25 3d 31 3a e7 a4 45 8c 0d 24 18 |.2:Ic%=1:..E..$.|
000094b0 6d f2 76 28 33 39 2c c0 a4 62 28 58 61 25 2c 59 |m.v(39,..b(Xa%,Y|
000094c0 61 25 2c 5a 61 25 29 29 2b 22 20 53 68 61 72 65 |a%,Za%))+" Share|
000094d0 20 48 69 73 74 6f 72 79 3a 20 22 2b a4 75 2c 31 | History: "+.u,1|
000094e0 29 3a f2 6c 28 30 2c 33 39 29 3a 21 71 25 3d 61 |):.l(0,39):!q%=a|
000094f0 25 28 33 39 29 3a f2 72 28 71 25 29 3a f2 69 28 |%(39):.r(q%):.i(|
00009500 33 39 2c 35 36 34 2c 33 31 30 2b 28 a4 6e 2a 6c |39,564,310+(.n*l|
00009510 25 2b a4 6f 29 2c 30 2c 30 29 0d 24 22 2b cc 3a |%+.o),0,0).$"+.:|
00009520 f2 71 28 22 49 6e 76 65 73 74 6f 72 20 63 61 6e |.q("Investor can|
00009530 6e 6f 74 20 70 6c 6f 74 20 74 68 69 73 20 64 61 |not plot this da|
00009540 74 61 2e 22 29 0d 24 2c 05 cd 0d 24 36 05 cb 0d |ta.").$,...$6...|
00009550 24 40 0f c9 5f 61 25 3a c8 8e 21 56 25 ca 0d 24 |$@.._a%:..!V%..$|
00009560 4a 1c c9 30 3a 6e 66 25 3d 4d 63 25 3a 4d 63 25 |J..0:nf%=Mc%:Mc%|
00009570 3d 30 3a c8 8e 56 25 21 34 ca 0d 24 54 14 c9 30 |=0:..V%!4..$T..0|
00009580 3a 6f 66 25 3d 59 63 25 3a 59 63 25 3d 30 0d 24 |:of%=Yc%:Yc%=0.$|
00009590 5e 14 c9 31 3a 6f 66 25 3d 59 63 25 3a 59 63 25 |^..1:of%=Yc%:Yc%|
000095a0 3d 31 0d 24 68 05 cb 0d 24 72 0c f2 66 63 28 49 |=1.$h...$r..fc(I|
000095b0 63 25 29 0d 24 7c 1d c9 31 3a 6e 66 25 3d 4d 63 |c%).$|..1:nf%=Mc|
000095c0 25 3a 4d 63 25 3d 31 3a f2 66 63 28 49 63 25 29 |%:Mc%=1:.fc(Ic%)|
000095d0 0d 24 86 3b c9 32 3a e7 53 63 25 8c 53 63 25 3d |.$.;.2:.Sc%.Sc%=|
000095e0 a3 3a 21 71 25 3d 61 25 28 33 39 29 3a f2 72 28 |.:!q%=a%(39):.r(|
000095f0 71 25 29 8b 53 63 25 3d b9 3a 21 71 25 3d 61 25 |q%).Sc%=.:!q%=a%|
00009600 28 33 39 29 3a f2 72 28 71 25 29 0d 24 90 3b c9 |(39):.r(q%).$.;.|
00009610 34 3a e7 60 63 25 8c 60 63 25 3d a3 3a 21 71 25 |4:.`c%.`c%=.:!q%|
00009620 3d 61 25 28 33 39 29 3a f2 72 28 71 25 29 8b 60 |=a%(39):.r(q%).`|
00009630 63 25 3d b9 3a 21 71 25 3d 61 25 28 33 39 29 3a |c%=.:!q%=a%(39):|
00009640 f2 72 28 71 25 29 0d 24 9a 1a c9 35 3a f2 66 28 |.r(q%).$...5:.f(|
00009650 31 33 29 3a f2 4c 62 3a f2 6c 28 31 2c 31 33 29 |13):.Lb:.l(1,13)|
00009660 0d 24 a4 05 cb 0d 24 ae 0f c9 61 62 25 3a c8 8e |.$....$...ab%:..|
00009670 21 56 25 ca 0d 24 b8 0e c9 30 3a c8 8e 56 25 21 |!V%..$...0:..V%!|
00009680 34 ca 0d 24 c2 1e c9 30 2c 31 2c 32 2c 33 2c 34 |4..$...0,1,2,3,4|
00009690 3a 49 63 25 3d 32 3a f2 67 63 28 56 25 21 34 29 |:Ic%=2:.gc(V%!4)|
000096a0 0d 24 cc 05 cb 0d 24 d6 18 c9 32 3a e7 ac 71 63 |.$....$...2:..qc|
000096b0 25 8c 71 63 25 3d b9 8b 71 63 25 3d a3 0d 24 e0 |%.qc%=..qc%=..$.|
000096c0 5e 21 71 25 3d 61 25 28 33 38 29 3a f2 72 28 71 |^!q%=a%(38):.r(q|
000096d0 25 29 3a e7 4f 25 3e 36 84 71 63 25 8c f2 69 28 |%):.O%>6.qc%..i(|
000096e0 33 38 2c 32 31 34 2b 28 34 30 2a 4f 25 29 2b 28 |38,214+(40*O%)+(|
000096f0 36 36 34 2a 94 28 71 63 25 29 29 2c 31 35 37 30 |664*.(qc%)),1570|
00009700 2c 34 38 2c 30 29 8b f2 69 28 33 38 2c 34 35 36 |,48,0)..i(38,456|
00009710 2c 31 35 37 30 2c 34 38 2c 30 29 0d 24 ea 05 cb |,1570,48,0).$...|
00009720 0d 24 f4 0f c9 66 62 25 3a c8 8e 21 56 25 ca 0d |.$...fb%:..!V%..|
00009730 24 fe 1c c9 31 3a 67 62 25 3d 2d 31 3a f2 5f 28 |$...1:gb%=-1:._(|
00009740 47 64 25 29 3a 47 64 25 3d 2d 31 0d 25 08 4f c9 |Gd%):Gd%=-1.%.O.|
00009750 32 3a 76 25 28 49 25 29 3d 2d 31 3a f2 45 28 62 |2:v%(I%)=-1:.E(b|
00009760 25 28 49 25 29 29 3a 67 62 25 3d 2d 31 3a 47 64 |%(I%)):gb%=-1:Gd|
00009770 25 3d 2d 31 3a 21 71 25 3d 61 25 28 34 31 29 3a |%=-1:!q%=a%(41):|
00009780 f2 72 28 71 25 29 3a f2 69 28 34 31 2c 34 35 34 |.r(q%):.i(41,454|
00009790 2c 31 32 33 36 2c 30 2c 30 29 0d 25 12 05 cb 0d |,1236,0,0).%....|
000097a0 25 1c 0f c9 64 62 25 3a c8 8e 21 56 25 ca 0d 25 |%...db%:..!V%..%|
000097b0 26 0b c9 30 3a c8 8e b9 ca 0d 25 30 4e c9 56 25 |&..0:.....%0N.V%|
000097c0 21 38 3e 2d 31 3a 68 24 3d a4 41 28 64 62 25 29 |!8>-1:h$=.A(db%)|
000097d0 3a 47 66 25 3d a7 68 24 2c 22 2e 22 29 3a 68 24 |:Gf%=.h$,"."):h$|
000097e0 3d a4 4c 28 c1 68 24 2c 47 66 25 2b 31 2c a9 28 |=.L(.h$,Gf%+1,.(|
000097f0 68 24 29 29 29 3a 21 71 25 3d 61 25 28 31 37 29 |h$))):!q%=a%(17)|
00009800 3a f2 72 28 71 25 29 0d 25 3a 05 cb 0d 25 44 0a |:.r(q%).%:...%D.|
00009810 c9 32 3a f2 68 63 0d 25 4e 05 cb 0d 25 58 0f c9 |.2:.hc.%N...%X..|
00009820 50 64 25 3a c8 8e 21 56 25 ca 0d 25 62 52 c9 30 |Pd%:..!V%..%bR.0|
00009830 2c 31 2c 32 2c 33 2c 34 2c 35 2c 36 2c 37 2c 38 |,1,2,3,4,5,6,7,8|
00009840 2c 39 2c 31 30 2c 31 31 2c 31 32 3a f2 6d 28 50 |,9,10,11,12:.m(P|
00009850 64 25 2c 74 66 25 2c 30 29 3a 74 66 25 3d 21 56 |d%,tf%,0):tf%=!V|
00009860 25 3a 24 a4 74 28 31 38 2c 37 29 3d a4 41 28 50 |%:$.t(18,7)=.A(P|
00009870 64 25 29 3a f2 6a 28 31 38 2c 37 29 0d 25 6c 05 |d%):.j(18,7).%l.|
00009880 cb 0d 25 76 0f c9 51 64 25 3a c8 8e 21 56 25 ca |..%v..Qd%:..!V%.|
00009890 0d 25 80 3f c9 30 2c 31 2c 32 2c 33 3a f2 6d 28 |.%.?.0,1,2,3:.m(|
000098a0 51 64 25 2c 75 66 25 2c 30 29 3a 75 66 25 3d 21 |Qd%,uf%,0):uf%=!|
000098b0 56 25 3a 24 a4 74 28 31 38 2c 31 30 29 3d a4 41 |V%:$.t(18,10)=.A|
000098c0 28 51 64 25 29 3a f2 6a 28 31 38 2c 31 30 29 0d |(Qd%):.j(18,10).|
000098d0 25 8a 05 cb 0d 25 94 05 cb 0d 25 9e 23 e7 41 66 |%....%....%.#.Af|
000098e0 25 80 78 65 25 f2 6e 28 78 61 25 29 3a f2 6f 28 |%.xe%.n(xa%):.o(|
000098f0 78 61 25 2c 76 66 25 2c 77 66 25 29 0d 25 a8 05 |xa%,vf%,wf%).%..|
00009900 e1 0d 25 b2 25 dd f2 43 62 3a e7 6a 64 25 3d 67 |..%.%..Cb:.jd%=g|
00009910 25 8c f2 67 28 31 35 29 3a f2 67 28 31 36 29 3a |%..g(15):.g(16):|
00009920 f2 67 28 31 37 29 0d 25 bc 86 78 65 25 3d a3 3a |.g(17).%..xe%=.:|
00009930 f2 42 28 34 2c 67 25 29 3a f2 67 28 67 25 29 3a |.B(4,g%):.g(g%):|
00009940 40 25 3d 30 3a 63 25 28 67 25 29 3d 30 3a 65 25 |@%=0:c%(g%)=0:e%|
00009950 28 67 25 29 3d a3 3a 68 25 28 67 25 29 3d a3 3a |(g%)=.:h%(g%)=.:|
00009960 69 25 28 67 25 29 3d 34 35 36 3a 61 24 28 67 25 |i%(g%)=456:a$(g%|
00009970 29 3d c3 28 4e 25 29 3a 62 24 28 67 25 29 3d 22 |)=.(N%):b$(g%)="|
00009980 50 6f 72 74 66 6f 6c 69 6f 22 3a 65 24 28 67 25 |Portfolio":e$(g%|
00009990 29 3d c0 91 24 2c 31 35 29 3a 64 24 28 67 25 29 |)=..$,15):d$(g%)|
000099a0 3d 22 30 20 62 79 74 65 73 22 3a e1 0d 25 c6 34 |="0 bytes":..%.4|
000099b0 dd f2 64 63 3a ea 48 66 25 3a e3 48 66 25 3d 30 |..dc:.Hf%:.Hf%=0|
000099c0 b8 35 3a e7 63 25 28 48 66 25 29 3d 31 8c 21 71 |.5:.c%(Hf%)=1.!q|
000099d0 25 3d 61 25 28 48 66 25 29 3a f2 72 28 71 25 29 |%=a%(Hf%):.r(q%)|
000099e0 0d 25 d0 07 ed 3a e1 0d 25 da 43 dd f2 53 61 28 |.%...:..%.C..Sa(|
000099f0 49 66 25 29 3a ea 4a 66 25 3a f2 70 3a e3 4a 66 |If%):.Jf%:.p:.Jf|
00009a00 25 3d 59 25 b8 6e 25 28 67 25 2c 64 25 28 67 25 |%=Y%.n%(g%,d%(g%|
00009a10 29 29 2d 31 3a e7 4a 66 25 3d 6e 25 28 67 25 2c |))-1:.Jf%=n%(g%,|
00009a20 64 25 28 67 25 29 29 2d 31 8c 0d 25 e4 54 f2 74 |d%(g%))-1..%.T.t|
00009a30 28 4a 66 25 2c 64 25 28 67 25 29 2c 67 25 2c 22 |(Jf%,d%(g%),g%,"|
00009a40 22 29 3a f2 7a 28 4a 66 25 2c 64 25 28 67 25 29 |"):.z(Jf%,d%(g%)|
00009a50 2c 67 25 2c 30 29 3a f2 41 28 4a 66 25 2c 64 25 |,g%,0):.A(Jf%,d%|
00009a60 28 67 25 29 2c 67 25 2c 30 29 3a f2 73 28 4a 66 |(g%),g%,0):.s(Jf|
00009a70 25 2c 64 25 28 67 25 29 2c 67 25 2c 30 29 0d 25 |%,d%(g%),g%,0).%|
00009a80 ee 9d cc 3a f2 74 28 4a 66 25 2c 64 25 28 67 25 |...:.t(Jf%,d%(g%|
00009a90 29 2c 67 25 2c a4 62 28 4a 66 25 2b 31 2c 64 25 |),g%,.b(Jf%+1,d%|
00009aa0 28 67 25 29 2c 67 25 29 29 3a f2 7a 28 4a 66 25 |(g%),g%)):.z(Jf%|
00009ab0 2c 64 25 28 67 25 29 2c 67 25 2c a4 61 28 4a 66 |,d%(g%),g%,.a(Jf|
00009ac0 25 2b 31 2c 64 25 28 67 25 29 2c 67 25 29 29 3a |%+1,d%(g%),g%)):|
00009ad0 f2 41 28 4a 66 25 2c 64 25 28 67 25 29 2c 67 25 |.A(Jf%,d%(g%),g%|
00009ae0 2c a4 64 28 4a 66 25 2b 31 2c 64 25 28 67 25 29 |,.d(Jf%+1,d%(g%)|
00009af0 2c 67 25 29 29 3a f2 73 28 4a 66 25 2c 64 25 28 |,g%)):.s(Jf%,d%(|
00009b00 67 25 29 2c 67 25 2c a4 63 28 4a 66 25 2b 31 2c |g%),g%,.c(Jf%+1,|
00009b10 64 25 28 67 25 29 2c 67 25 29 29 0d 25 f8 05 cd |d%(g%),g%)).%...|
00009b20 0d 26 02 1e ed 3a 6e 25 28 67 25 2c 64 25 28 67 |.&...:n%(g%,d%(g|
00009b30 25 29 29 2d 3d 31 3a e7 49 66 25 3d 31 8c 0d 26 |%))-=1:.If%=1..&|
00009b40 0c 1d e7 67 25 3d 75 62 25 80 64 25 28 67 25 29 |...g%=ub%.d%(g%)|
00009b50 3d 43 62 25 8c f2 4b 28 67 25 29 0d 26 16 1a e7 |=Cb%..K(g%).&...|
00009b60 67 25 3d 6a 64 25 80 6b 64 25 3d 64 25 28 67 25 |g%=jd%.kd%=d%(g%|
00009b70 29 8c f2 6a 62 0d 26 20 1b 21 71 25 3d 61 25 28 |)..jb.& .!q%=a%(|
00009b80 67 25 29 3a f2 75 28 31 29 3a f2 72 28 71 25 29 |g%):.u(1):.r(q%)|
00009b90 0d 26 2a 05 cd 0d 26 34 05 e1 0d 26 3e 14 dd f2 |.&*...&4...&>...|
00009ba0 75 28 4b 66 25 29 3a e7 4b 66 25 3d 30 8c 0d 26 |u(Kf%):.Kf%=0..&|
00009bb0 48 10 e7 74 62 25 8c f2 4b 28 75 62 25 29 0d 26 |H..tb%..K(ub%).&|
00009bc0 52 0f f2 4e 28 42 62 25 2c 75 62 25 29 0d 26 5c |R..N(Bb%,ub%).&\|
00009bd0 05 cd 0d 26 66 2e 42 62 25 3d 2d 31 3a 59 25 3d |...&f.Bb%=-1:Y%=|
00009be0 2d 31 3a 4c 66 25 3d 2d 31 3a 4d 66 25 3d 2d 31 |-1:Lf%=-1:Mf%=-1|
00009bf0 3a 75 62 25 3d 2d 31 3a 43 62 25 3d 2d 31 3a e1 |:ub%=-1:Cb%=-1:.|
00009c00 0d 26 70 20 dd f2 42 28 4e 66 25 2c 4f 66 25 29 |.&p ..B(Nf%,Of%)|
00009c10 3a c8 99 32 36 33 38 37 32 3a c8 8e 4e 66 25 ca |:..263872:..Nf%.|
00009c20 0d 26 7a 1e c9 31 3a 50 66 25 3d 64 25 28 4f 66 |.&z..1:Pf%=d%(Of|
00009c30 25 29 3a 51 66 25 3d 64 25 28 4f 66 25 29 0d 26 |%):Qf%=d%(Of%).&|
00009c40 84 25 c9 32 3a 50 66 25 3d 28 64 25 28 4f 66 25 |.%.2:Pf%=(d%(Of%|
00009c50 29 81 31 32 29 2a 31 32 3a 51 66 25 3d 50 66 25 |).12)*12:Qf%=Pf%|
00009c60 2b 31 31 0d 26 8e 15 c9 33 2c 34 3a 50 66 25 3d |+11.&...3,4:Pf%=|
00009c70 30 3a 51 66 25 3d 33 35 0d 26 98 05 cb 0d 26 a2 |0:Qf%=35.&....&.|
00009c80 2f e3 52 66 25 3d 50 66 25 b8 51 66 25 3a e7 75 |/.Rf%=Pf%.Qf%:.u|
00009c90 62 25 3d 4f 66 25 80 43 62 25 3d 52 66 25 8c f2 |b%=Of%.Cb%=Rf%..|
00009ca0 75 28 31 29 3a f2 4b 28 4f 66 25 29 0d 26 ac 55 |u(1):.K(Of%).&.U|
00009cb0 e3 53 66 25 3d 30 b8 6e 25 28 4f 66 25 2c 52 66 |.Sf%=0.n%(Of%,Rf|
00009cc0 25 29 3a f2 45 28 73 25 28 4f 66 25 2c 52 66 25 |%):.E(s%(Of%,Rf%|
00009cd0 29 29 3a ed 53 66 25 3a 6e 25 28 4f 66 25 2c 52 |)):.Sf%:n%(Of%,R|
00009ce0 66 25 29 3d 30 3a e7 4e 66 25 3c 3e 34 80 4f 66 |f%)=0:.Nf%<>4.Of|
00009cf0 25 3d 6a 64 25 80 6b 64 25 3d 52 66 25 8c f2 6a |%=jd%.kd%=Rf%..j|
00009d00 62 0d 26 b6 1c ed 52 66 25 3a e7 61 25 28 4f 66 |b.&...Rf%:.a%(Of|
00009d10 25 29 3c 3e 30 8c f2 49 28 4f 66 25 29 0d 26 c0 |%)<>0..I(Of%).&.|
00009d20 17 c8 99 32 36 33 38 37 33 3a e7 4e 66 25 3c 3e |...263873:.Nf%<>|
00009d30 34 8c f2 70 0d 26 ca 05 e1 0d 26 d4 82 dd f2 52 |4..p.&....&....R|
00009d40 28 54 66 25 2c 55 66 25 2c 56 66 25 2c 57 66 25 |(Tf%,Uf%,Vf%,Wf%|
00009d50 2c 58 66 25 2c 59 66 25 2c 5a 66 25 2c 5f 66 25 |,Xf%,Yf%,Zf%,_f%|
00009d60 2c 46 25 29 3a e7 56 66 25 3d 30 80 5f 66 25 3d |,F%):.Vf%=0._f%=|
00009d70 46 25 80 28 57 66 25 2a 31 32 29 2b 58 66 25 3d |F%.(Wf%*12)+Xf%=|
00009d80 28 59 66 25 2a 31 32 29 2b 5a 66 25 8c f2 71 28 |(Yf%*12)+Zf%..q(|
00009d90 22 53 6f 75 72 63 65 20 61 6e 64 20 74 61 72 67 |"Source and targ|
00009da0 65 74 20 6d 6f 6e 74 68 73 20 61 72 65 20 74 68 |et months are th|
00009db0 65 20 73 61 6d 65 2e 22 29 3a e1 0d 26 de 13 c8 |e same."):..&...|
00009dc0 99 32 36 33 38 37 32 3a c8 8e 54 66 25 ca 0d 26 |.263872:..Tf%..&|
00009dd0 e8 50 c9 31 3a 60 66 25 3d 28 57 66 25 2a 31 32 |.P.1:`f%=(Wf%*12|
00009de0 29 2b 58 66 25 3a 48 25 3d 28 59 66 25 2a 31 32 |)+Xf%:H%=(Yf%*12|
00009df0 29 2b 5a 66 25 3a e7 55 66 25 3d 30 8c 61 67 25 |)+Zf%:.Uf%=0.ag%|
00009e00 3d 30 3a 6e 25 28 46 25 2c 48 25 29 3d 6e 25 28 |=0:n%(F%,H%)=n%(|
00009e10 5f 66 25 2c 60 66 25 29 3a 62 67 25 3d b9 0d 26 |_f%,`f%):bg%=..&|
00009e20 f2 35 e7 55 66 25 3d 31 8c 61 67 25 3d 6e 25 28 |.5.Uf%=1.ag%=n%(|
00009e30 46 25 2c 48 25 29 3a 6e 25 28 46 25 2c 48 25 29 |F%,H%):n%(F%,H%)|
00009e40 2b 3d 6e 25 28 5f 66 25 2c 60 66 25 29 3a 62 67 |+=n%(_f%,`f%):bg|
00009e50 25 3d b9 0d 26 fc 0b e7 55 66 25 3d 32 8c 0d 27 |%=..&...Uf%=2..'|
00009e60 06 76 61 67 25 3d 30 3a 6e 25 28 46 25 2c 48 25 |.vag%=0:n%(F%,H%|
00009e70 29 2b 3d 6e 25 28 5f 66 25 2c 60 66 25 29 3a 63 |)+=n%(_f%,`f%):c|
00009e80 67 25 3d 6e 25 28 5f 66 25 2c 60 66 25 29 3a 62 |g%=n%(_f%,`f%):b|
00009e90 67 25 3d a3 3a 73 25 28 46 25 2c 48 25 29 3d a4 |g%=.:s%(F%,H%)=.|
00009ea0 6b 28 73 25 28 46 25 2c 48 25 29 2c 33 36 2a 63 |k(s%(F%,H%),36*c|
00009eb0 67 25 2c 54 25 29 3a e7 ac 54 25 8c 6e 25 28 46 |g%,T%):..T%.n%(F|
00009ec0 25 2c 48 25 29 2d 3d 6e 25 28 5f 66 25 2c 60 66 |%,H%)-=n%(_f%,`f|
00009ed0 25 29 3a e1 0d 27 10 a7 e3 64 67 25 3d 6e 25 28 |%):..'...dg%=n%(|
00009ee0 46 25 2c 48 25 29 2d 28 63 67 25 2b 31 29 b8 30 |F%,H%)-(cg%+1).0|
00009ef0 88 2d 31 3a f2 74 28 64 67 25 2b 63 67 25 2c 48 |.-1:.t(dg%+cg%,H|
00009f00 25 2c 46 25 2c c0 a4 62 28 64 67 25 2c 48 25 2c |%,F%,..b(dg%,H%,|
00009f10 46 25 29 29 2b 22 30 22 29 3a f2 7a 28 64 67 25 |F%))+"0"):.z(dg%|
00009f20 2b 63 67 25 2c 48 25 2c 46 25 2c a4 61 28 64 67 |+cg%,H%,F%,.a(dg|
00009f30 25 2c 48 25 2c 46 25 29 29 3a f2 41 28 64 67 25 |%,H%,F%)):.A(dg%|
00009f40 2b 63 67 25 2c 48 25 2c 46 25 2c a4 64 28 64 67 |+cg%,H%,F%,.d(dg|
00009f50 25 2c 48 25 2c 46 25 29 29 3a f2 73 28 64 67 25 |%,H%,F%)):.s(dg%|
00009f60 2b 63 67 25 2c 48 25 2c 46 25 2c a4 63 28 64 67 |+cg%,H%,F%,.c(dg|
00009f70 25 2c 48 25 2c 46 25 29 29 3a ed 0d 27 1a 05 cd |%,H%,F%)):..'...|
00009f80 0d 27 24 3b e3 65 67 25 3d 30 b8 6e 25 28 5f 66 |.'$;.eg%=0.n%(_f|
00009f90 25 2c 60 66 25 29 2d 31 3a e7 62 67 25 8c 73 25 |%,`f%)-1:.bg%.s%|
00009fa0 28 46 25 2c 48 25 29 3d a4 6b 28 73 25 28 46 25 |(F%,H%)=.k(s%(F%|
00009fb0 2c 48 25 29 2c 33 36 2c 54 25 29 0d 27 2e 0a e7 |,H%),36,T%).'...|
00009fc0 ac 54 25 8c e1 0d 27 38 c3 f2 74 28 65 67 25 2b |.T%...'8..t(eg%+|
00009fd0 61 67 25 2c 48 25 2c 46 25 2c c0 a4 62 28 65 67 |ag%,H%,F%,..b(eg|
00009fe0 25 2c 60 66 25 2c 5f 66 25 29 29 2b 22 30 22 29 |%,`f%,_f%))+"0")|
00009ff0 3a f2 7a 28 65 67 25 2b 61 67 25 2c 48 25 2c 46 |:.z(eg%+ag%,H%,F|
0000a000 25 2c a4 61 28 65 67 25 2c 60 66 25 2c 5f 66 25 |%,.a(eg%,`f%,_f%|
0000a010 29 29 3a f2 41 28 65 67 25 2b 61 67 25 2c 48 25 |)):.A(eg%+ag%,H%|
0000a020 2c 46 25 2c a4 64 28 65 67 25 2c 60 66 25 2c 5f |,F%,.d(eg%,`f%,_|
0000a030 66 25 29 29 3a f2 73 28 65 67 25 2b 61 67 25 2c |f%)):.s(eg%+ag%,|
0000a040 48 25 2c 46 25 2c a4 63 28 65 67 25 2c 60 66 25 |H%,F%,.c(eg%,`f%|
0000a050 2c 5f 66 25 29 29 3a ed 3a e7 68 25 28 46 25 29 |,_f%)):.:.h%(F%)|
0000a060 80 64 25 28 46 25 29 3d 48 25 80 6e 25 28 46 25 |.d%(F%)=H%.n%(F%|
0000a070 2c 48 25 29 3e 30 8c 21 71 25 3d 61 25 28 46 25 |,H%)>0.!q%=a%(F%|
0000a080 29 3a f2 72 28 71 25 29 0d 27 42 53 c9 32 3a 60 |):.r(q%).'BS.2:`|
0000a090 66 25 3d 57 66 25 2a 31 32 3a 48 25 3d 59 66 25 |f%=Wf%*12:H%=Yf%|
0000a0a0 2a 31 32 3a e3 60 25 3d 30 b8 31 31 3a e7 55 66 |*12:.`%=0.11:.Uf|
0000a0b0 25 3d 30 8c 61 67 25 3d 30 3a 6e 25 28 46 25 2c |%=0.ag%=0:n%(F%,|
0000a0c0 48 25 2b 60 25 29 3d 6e 25 28 5f 66 25 2c 60 66 |H%+`%)=n%(_f%,`f|
0000a0d0 25 2b 60 25 29 3a 66 67 25 3d b9 0d 27 4c 3e e7 |%+`%):fg%=..'L>.|
0000a0e0 55 66 25 3d 31 8c 61 67 25 3d 6e 25 28 46 25 2c |Uf%=1.ag%=n%(F%,|
0000a0f0 48 25 2b 60 25 29 3a 6e 25 28 46 25 2c 48 25 2b |H%+`%):n%(F%,H%+|
0000a100 60 25 29 2b 3d 6e 25 28 5f 66 25 2c 60 66 25 2b |`%)+=n%(_f%,`f%+|
0000a110 60 25 29 3a 66 67 25 3d b9 0d 27 56 0b e7 55 66 |`%):fg%=..'V..Uf|
0000a120 25 3d 32 8c 0d 27 60 8b 61 67 25 3d 30 3a 6e 25 |%=2..'`.ag%=0:n%|
0000a130 28 46 25 2c 48 25 2b 60 25 29 2b 3d 6e 25 28 5f |(F%,H%+`%)+=n%(_|
0000a140 66 25 2c 60 66 25 2b 60 25 29 3a 63 67 25 3d 6e |f%,`f%+`%):cg%=n|
0000a150 25 28 5f 66 25 2c 60 66 25 2b 60 25 29 3a 66 67 |%(_f%,`f%+`%):fg|
0000a160 25 3d a3 3a 73 25 28 46 25 2c 48 25 2b 60 25 29 |%=.:s%(F%,H%+`%)|
0000a170 3d a4 6b 28 73 25 28 46 25 2c 48 25 2b 60 25 29 |=.k(s%(F%,H%+`%)|
0000a180 2c 33 36 2a 63 67 25 2c 54 25 29 3a e7 ac 54 25 |,36*cg%,T%):..T%|
0000a190 8c 6e 25 28 46 25 2c 48 25 2b 60 25 29 2d 3d 6e |.n%(F%,H%+`%)-=n|
0000a1a0 25 28 5f 66 25 2c 60 66 25 2b 60 25 29 3a e1 0d |%(_f%,`f%+`%):..|
0000a1b0 27 6a c2 e3 64 67 25 3d 6e 25 28 46 25 2c 48 25 |'j..dg%=n%(F%,H%|
0000a1c0 2b 60 25 29 2d 28 63 67 25 2b 31 29 b8 30 88 2d |+`%)-(cg%+1).0.-|
0000a1d0 31 3a f2 74 28 64 67 25 2b 63 67 25 2c 48 25 2b |1:.t(dg%+cg%,H%+|
0000a1e0 60 25 2c 46 25 2c c0 a4 62 28 64 67 25 2c 48 25 |`%,F%,..b(dg%,H%|
0000a1f0 2b 60 25 2c 46 25 29 29 2b 22 30 22 29 3a f2 7a |+`%,F%))+"0"):.z|
0000a200 28 64 67 25 2b 63 67 25 2c 48 25 2b 60 25 2c 46 |(dg%+cg%,H%+`%,F|
0000a210 25 2c a4 61 28 64 67 25 2c 48 25 2b 60 25 2c 46 |%,.a(dg%,H%+`%,F|
0000a220 25 29 29 3a f2 41 28 64 67 25 2b 63 67 25 2c 48 |%)):.A(dg%+cg%,H|
0000a230 25 2b 60 25 2c 46 25 2c a4 64 28 64 67 25 2c 48 |%+`%,F%,.d(dg%,H|
0000a240 25 2b 60 25 2c 46 25 29 29 3a f2 73 28 64 67 25 |%+`%,F%)):.s(dg%|
0000a250 2b 63 67 25 2c 48 25 2b 60 25 2c 46 25 2c a4 63 |+cg%,H%+`%,F%,.c|
0000a260 28 64 67 25 2c 48 25 2b 60 25 2c 46 25 29 29 3a |(dg%,H%+`%,F%)):|
0000a270 ed 0d 27 74 05 cd 0d 27 7e 44 e3 65 67 25 3d 30 |..'t...'~D.eg%=0|
0000a280 b8 6e 25 28 5f 66 25 2c 60 66 25 2b 60 25 29 2d |.n%(_f%,`f%+`%)-|
0000a290 31 3a e7 66 67 25 8c 73 25 28 46 25 2c 48 25 2b |1:.fg%.s%(F%,H%+|
0000a2a0 60 25 29 3d a4 6b 28 73 25 28 46 25 2c 48 25 2b |`%)=.k(s%(F%,H%+|
0000a2b0 60 25 29 2c 33 36 2c 54 25 29 0d 27 88 0a e7 ac |`%),36,T%).'....|
0000a2c0 54 25 8c e1 0d 27 92 ab f2 74 28 65 67 25 2b 61 |T%...'...t(eg%+a|
0000a2d0 67 25 2c 48 25 2b 60 25 2c 46 25 2c c0 a4 62 28 |g%,H%+`%,F%,..b(|
0000a2e0 65 67 25 2c 60 66 25 2b 60 25 2c 5f 66 25 29 29 |eg%,`f%+`%,_f%))|
0000a2f0 2b 22 30 22 29 3a f2 7a 28 65 67 25 2b 61 67 25 |+"0"):.z(eg%+ag%|
0000a300 2c 48 25 2b 60 25 2c 46 25 2c a4 61 28 65 67 25 |,H%+`%,F%,.a(eg%|
0000a310 2c 60 66 25 2b 60 25 2c 5f 66 25 29 29 3a f2 41 |,`f%+`%,_f%)):.A|
0000a320 28 65 67 25 2b 61 67 25 2c 48 25 2b 60 25 2c 46 |(eg%+ag%,H%+`%,F|
0000a330 25 2c a4 64 28 65 67 25 2c 60 66 25 2b 60 25 2c |%,.d(eg%,`f%+`%,|
0000a340 5f 66 25 29 29 3a f2 73 28 65 67 25 2b 61 67 25 |_f%)):.s(eg%+ag%|
0000a350 2c 48 25 2b 60 25 2c 46 25 2c a4 63 28 65 67 25 |,H%+`%,F%,.c(eg%|
0000a360 2c 60 66 25 2b 60 25 2c 5f 66 25 29 29 3a ed 0d |,`f%+`%,_f%)):..|
0000a370 27 9c 39 e7 68 25 28 46 25 29 80 64 25 28 46 25 |'.9.h%(F%).d%(F%|
0000a380 29 3d 48 25 2b 60 25 80 6e 25 28 46 25 2c 48 25 |)=H%+`%.n%(F%,H%|
0000a390 2b 60 25 29 3e 30 8c 21 71 25 3d 61 25 28 46 25 |+`%)>0.!q%=a%(F%|
0000a3a0 29 3a f2 72 28 71 25 29 0d 27 a6 07 ed 60 25 0d |):.r(q%).'...`%.|
0000a3b0 27 b0 68 c9 33 3a 67 67 25 3d 30 3a e3 68 67 25 |'.h.3:gg%=0:.hg%|
0000a3c0 3d 30 b8 45 66 25 3a 67 67 25 2b 3d 48 63 25 3f |=0.Ef%:gg%+=Hc%?|
0000a3d0 68 67 25 3a ed 3a 60 66 25 3d 28 57 66 25 2a 31 |hg%:.:`f%=(Wf%*1|
0000a3e0 32 29 2b 58 66 25 3a 48 25 3d 28 59 66 25 2a 31 |2)+Xf%:H%=(Yf%*1|
0000a3f0 32 29 2b 5a 66 25 3a e7 55 66 25 3d 30 8c 61 67 |2)+Zf%:.Uf%=0.ag|
0000a400 25 3d 30 3a 6e 25 28 46 25 2c 48 25 29 3d 67 67 |%=0:n%(F%,H%)=gg|
0000a410 25 3a 62 67 25 3d b9 0d 27 ba 2d e7 55 66 25 3d |%:bg%=..'.-.Uf%=|
0000a420 31 8c 61 67 25 3d 6e 25 28 46 25 2c 48 25 29 3a |1.ag%=n%(F%,H%):|
0000a430 6e 25 28 46 25 2c 48 25 29 2b 3d 67 67 25 3a 62 |n%(F%,H%)+=gg%:b|
0000a440 67 25 3d b9 0d 27 c4 0b e7 55 66 25 3d 32 8c 0d |g%=..'...Uf%=2..|
0000a450 27 ce 5e 61 67 25 3d 30 3a 6e 25 28 46 25 2c 48 |'.^ag%=0:n%(F%,H|
0000a460 25 29 2b 3d 67 67 25 3a 63 67 25 3d 67 67 25 3a |%)+=gg%:cg%=gg%:|
0000a470 62 67 25 3d a3 3a 73 25 28 46 25 2c 48 25 29 3d |bg%=.:s%(F%,H%)=|
0000a480 a4 6b 28 73 25 28 46 25 2c 48 25 29 2c 33 36 2a |.k(s%(F%,H%),36*|
0000a490 63 67 25 2c 54 25 29 3a e7 ac 54 25 8c 6e 25 28 |cg%,T%):..T%.n%(|
0000a4a0 46 25 2c 48 25 29 2d 3d 67 67 25 3a e1 0d 27 d8 |F%,H%)-=gg%:..'.|
0000a4b0 a7 e3 64 67 25 3d 6e 25 28 46 25 2c 48 25 29 2d |..dg%=n%(F%,H%)-|
0000a4c0 28 63 67 25 2b 31 29 b8 30 88 2d 31 3a f2 74 28 |(cg%+1).0.-1:.t(|
0000a4d0 64 67 25 2b 63 67 25 2c 48 25 2c 46 25 2c c0 a4 |dg%+cg%,H%,F%,..|
0000a4e0 62 28 64 67 25 2c 48 25 2c 46 25 29 29 2b 22 30 |b(dg%,H%,F%))+"0|
0000a4f0 22 29 3a f2 7a 28 64 67 25 2b 63 67 25 2c 48 25 |"):.z(dg%+cg%,H%|
0000a500 2c 46 25 2c a4 61 28 64 67 25 2c 48 25 2c 46 25 |,F%,.a(dg%,H%,F%|
0000a510 29 29 3a f2 41 28 64 67 25 2b 63 67 25 2c 48 25 |)):.A(dg%+cg%,H%|
0000a520 2c 46 25 2c a4 64 28 64 67 25 2c 48 25 2c 46 25 |,F%,.d(dg%,H%,F%|
0000a530 29 29 3a f2 73 28 64 67 25 2b 63 67 25 2c 48 25 |)):.s(dg%+cg%,H%|
0000a540 2c 46 25 2c a4 63 28 64 67 25 2c 48 25 2c 46 25 |,F%,.c(dg%,H%,F%|
0000a550 29 29 3a ed 0d 27 e2 05 cd 0d 27 ec 4b 69 67 25 |)):..'....'.Kig%|
0000a560 3d 30 3a e3 65 67 25 3d 30 b8 6e 25 28 5f 66 25 |=0:.eg%=0.n%(_f%|
0000a570 2c 60 66 25 29 2d 31 3a e7 62 67 25 80 48 63 25 |,`f%)-1:.bg%.Hc%|
0000a580 3f 65 67 25 3d 31 8c 73 25 28 46 25 2c 48 25 29 |?eg%=1.s%(F%,H%)|
0000a590 3d a4 6b 28 73 25 28 46 25 2c 48 25 29 2c 33 36 |=.k(s%(F%,H%),36|
0000a5a0 2c 54 25 29 0d 27 f6 0a e7 ac 54 25 8c e1 0d 28 |,T%).'....T%...(|
0000a5b0 00 0e c8 8e 48 63 25 3f 65 67 25 ca 0d 28 0a 9b |....Hc%?eg%..(..|
0000a5c0 c9 31 3a f2 74 28 69 67 25 2b 61 67 25 2c 48 25 |.1:.t(ig%+ag%,H%|
0000a5d0 2c 46 25 2c c0 a4 62 28 65 67 25 2c 60 66 25 2c |,F%,..b(eg%,`f%,|
0000a5e0 5f 66 25 29 29 2b 22 30 22 29 3a f2 7a 28 69 67 |_f%))+"0"):.z(ig|
0000a5f0 25 2b 61 67 25 2c 48 25 2c 46 25 2c a4 61 28 65 |%+ag%,H%,F%,.a(e|
0000a600 67 25 2c 60 66 25 2c 5f 66 25 29 29 3a f2 41 28 |g%,`f%,_f%)):.A(|
0000a610 69 67 25 2b 61 67 25 2c 48 25 2c 46 25 2c a4 64 |ig%+ag%,H%,F%,.d|
0000a620 28 65 67 25 2c 60 66 25 2c 5f 66 25 29 29 3a f2 |(eg%,`f%,_f%)):.|
0000a630 73 28 69 67 25 2b 61 67 25 2c 48 25 2c 46 25 2c |s(ig%+ag%,H%,F%,|
0000a640 a4 63 28 65 67 25 2c 60 66 25 2c 5f 66 25 29 29 |.c(eg%,`f%,_f%))|
0000a650 3a 69 67 25 2b 3d 31 0d 28 14 05 cb 0d 28 1e 35 |:ig%+=1.(....(.5|
0000a660 ed 3a e7 68 25 28 46 25 29 80 64 25 28 46 25 29 |.:.h%(F%).d%(F%)|
0000a670 3d 48 25 80 6e 25 28 46 25 2c 48 25 29 3e 30 8c |=H%.n%(F%,H%)>0.|
0000a680 21 71 25 3d 61 25 28 46 25 29 3a f2 72 28 71 25 |!q%=a%(F%):.r(q%|
0000a690 29 0d 28 28 05 cb 0d 28 32 0a c8 8e 56 66 25 ca |).((...(2...Vf%.|
0000a6a0 0d 28 3c 0d c9 30 3a c8 8e 54 66 25 ca 0d 28 46 |.(<..0:..Tf%..(F|
0000a6b0 19 c9 31 3a e7 68 25 28 5f 66 25 29 8c f2 42 28 |..1:.h%(_f%)..B(|
0000a6c0 31 2c 5f 66 25 29 0d 28 50 19 c9 32 3a e7 68 25 |1,_f%).(P..2:.h%|
0000a6d0 28 5f 66 25 29 8c f2 42 28 32 2c 5f 66 25 29 0d |(_f%)..B(2,_f%).|
0000a6e0 28 5a 3b c9 33 3a 6a 67 25 3d 59 25 3a 6b 67 25 |(Z;.3:jg%=Y%:kg%|
0000a6f0 3d 67 25 3a 6c 67 25 3d 30 3a e3 6d 67 25 3d 30 |=g%:lg%=0:.mg%=0|
0000a700 b8 6e 25 28 5f 66 25 2c 60 66 25 29 2d 31 3a e7 |.n%(_f%,`f%)-1:.|
0000a710 48 63 25 3f 6d 67 25 3d 31 8c 0d 28 64 23 59 25 |Hc%?mg%=1..(d#Y%|
0000a720 3d 6d 67 25 2d 6c 67 25 3a 67 25 3d 5f 66 25 3a |=mg%-lg%:g%=_f%:|
0000a730 6c 67 25 2b 3d 31 3a f2 53 61 28 30 29 0d 28 6e |lg%+=1:.Sa(0).(n|
0000a740 05 cd 0d 28 78 13 ed 3a 59 25 3d 6a 67 25 3a 67 |...(x..:Y%=jg%:g|
0000a750 25 3d 6b 67 25 0d 28 82 05 cb 0d 28 8c 05 cb 0d |%=kg%.(....(....|
0000a760 28 96 22 c8 99 32 36 33 38 37 33 3a 41 64 25 3d |(."..263873:Ad%=|
0000a770 67 25 3a 67 25 3d 46 25 3a e7 68 25 28 46 25 29 |g%:g%=F%:.h%(F%)|
0000a780 8c 0d 28 a0 1b f2 70 3a f2 44 3a e7 61 25 28 67 |..(...p:.D:.a%(g|
0000a790 25 29 3c 3e 30 8c f2 49 28 67 25 29 0d 28 aa 05 |%)<>0..I(g%).(..|
0000a7a0 cd 0d 28 b4 0c 67 25 3d 41 64 25 3a e1 0d 28 be |..(..g%=Ad%:..(.|
0000a7b0 35 dd f2 56 62 3a e7 a4 73 28 7a 65 25 2c 30 29 |5..Vb:..s(ze%,0)|
0000a7c0 3d 22 22 8c f2 71 28 22 42 61 64 20 70 6f 72 74 |=""..q("Bad port|
0000a7d0 66 6f 6c 69 6f 20 6e 61 6d 65 2e 22 29 3a f2 68 |folio name."):.h|
0000a7e0 3a e1 0d 28 c8 4e 70 24 3d a4 73 28 7a 65 25 2c |:..(.Np$=.s(ze%,|
0000a7f0 30 29 3a e7 62 24 28 67 25 29 3c 3e 22 22 80 a7 |0):.b$(g%)<>""..|
0000a800 62 24 28 67 25 29 2c 22 2e 22 29 3e 30 8c 62 24 |b$(g%),".")>0.b$|
0000a810 28 67 25 29 3d a4 42 28 62 24 28 67 25 29 29 2b |(g%)=.B(b$(g%))+|
0000a820 22 2e 22 2b 70 24 8b 62 24 28 67 25 29 3d 70 24 |"."+p$.b$(g%)=p$|
0000a830 0d 28 d2 28 61 24 28 67 25 29 3d 70 24 3a f2 70 |.(.(a$(g%)=p$:.p|
0000a840 3a f2 69 63 28 67 25 29 3a f2 52 62 28 7a 65 25 |:.ic(g%):.Rb(ze%|
0000a850 2c 30 2c 70 24 29 3a e1 0d 28 dc 35 dd f2 55 62 |,0,p$):..(.5..Ub|
0000a860 3a e7 a4 73 28 41 65 25 2c 30 29 3d 22 22 8c f2 |:..s(Ae%,0)=""..|
0000a870 71 28 22 42 61 64 20 70 6f 72 74 66 6f 6c 69 6f |q("Bad portfolio|
0000a880 20 6e 61 6d 65 2e 22 29 3a f2 68 3a e1 0d 28 e6 | name."):.h:..(.|
0000a890 48 c8 99 32 36 33 38 37 32 3a 71 24 3d a4 73 28 |H..263872:q$=.s(|
0000a8a0 41 65 25 2c 30 29 3a 6e 67 25 3d a4 79 3a e7 6e |Ae%,0):ng%=.y:.n|
0000a8b0 67 25 3d 36 8c f2 71 28 22 4e 6f 20 70 6f 72 74 |g%=6..q("No port|
0000a8c0 66 6f 6c 69 6f 73 20 61 76 61 69 6c 61 62 6c 65 |folios available|
0000a8d0 2e 22 29 3a e1 0d 28 f0 5f e3 6f 67 25 3d 30 b8 |."):..(._.og%=0.|
0000a8e0 33 35 3a e3 70 67 25 3d 30 b8 6e 25 28 67 25 2c |35:.pg%=0.n%(g%,|
0000a8f0 6f 67 25 29 3a 6e 25 28 6e 67 25 2c 6f 67 25 29 |og%):n%(ng%,og%)|
0000a900 3d 6e 25 28 67 25 2c 6f 67 25 29 3a 73 25 28 6e |=n%(g%,og%):s%(n|
0000a910 67 25 2c 6f 67 25 29 3d a4 6b 28 73 25 28 6e 67 |g%,og%)=.k(s%(ng|
0000a920 25 2c 6f 67 25 29 2c 33 36 2c 54 25 29 3a e7 ac |%,og%),36,T%):..|
0000a930 54 25 8c e1 0d 28 fa 95 f2 74 28 70 67 25 2c 6f |T%...(...t(pg%,o|
0000a940 67 25 2c 6e 67 25 2c c0 a4 62 28 70 67 25 2c 6f |g%,ng%,..b(pg%,o|
0000a950 67 25 2c 67 25 29 29 2b 22 30 22 29 3a f2 7a 28 |g%,g%))+"0"):.z(|
0000a960 70 67 25 2c 6f 67 25 2c 6e 67 25 2c a4 61 28 70 |pg%,og%,ng%,.a(p|
0000a970 67 25 2c 6f 67 25 2c 67 25 29 29 3a f2 41 28 70 |g%,og%,g%)):.A(p|
0000a980 67 25 2c 6f 67 25 2c 6e 67 25 2c a4 64 28 70 67 |g%,og%,ng%,.d(pg|
0000a990 25 2c 6f 67 25 2c 67 25 29 29 3a f2 73 28 70 67 |%,og%,g%)):.s(pg|
0000a9a0 25 2c 6f 67 25 2c 6e 67 25 2c a4 63 28 70 67 25 |%,og%,ng%,.c(pg%|
0000a9b0 2c 6f 67 25 2c 67 25 29 29 3a ed 3a ed 3a e7 76 |,og%,g%)):.:.:.v|
0000a9c0 25 28 67 25 29 3e 2d 31 8c 0d 29 04 41 76 25 28 |%(g%)>-1..).Av%(|
0000a9d0 6e 67 25 29 3d 76 25 28 67 25 29 3a e3 71 67 25 |ng%)=v%(g%):.qg%|
0000a9e0 3d 30 b8 76 25 28 67 25 29 3a 62 25 28 6e 67 25 |=0.v%(g%):b%(ng%|
0000a9f0 29 3d a4 6b 28 62 25 28 6e 67 25 29 2c 33 36 2c |)=.k(b%(ng%),36,|
0000aa00 54 25 29 3a e7 ac 54 25 8c e1 0d 29 0e a3 24 28 |T%):..T%...)..$(|
0000aa10 62 25 28 6e 67 25 29 2b 33 36 2a 71 67 25 29 3d |b%(ng%)+36*qg%)=|
0000aa20 24 28 62 25 28 67 25 29 2b 33 36 2a 71 67 25 29 |$(b%(g%)+36*qg%)|
0000aa30 3a 21 28 62 25 28 6e 67 25 29 2b 33 36 2a 71 67 |:!(b%(ng%)+36*qg|
0000aa40 25 2b 32 34 29 3d 21 28 62 25 28 67 25 29 2b 33 |%+24)=!(b%(g%)+3|
0000aa50 36 2a 71 67 25 2b 32 34 29 3a 21 28 62 25 28 6e |6*qg%+24):!(b%(n|
0000aa60 67 25 29 2b 33 36 2a 71 67 25 2b 32 38 29 3d 21 |g%)+36*qg%+28)=!|
0000aa70 28 62 25 28 67 25 29 2b 33 36 2a 71 67 25 2b 32 |(b%(g%)+36*qg%+2|
0000aa80 38 29 3a 21 28 62 25 28 6e 67 25 29 2b 33 36 2a |8):!(b%(ng%)+36*|
0000aa90 71 67 25 2b 33 32 29 3d 21 28 62 25 28 67 25 29 |qg%+32)=!(b%(g%)|
0000aaa0 2b 33 36 2a 71 67 25 2b 33 32 29 3a ed 0d 29 18 |+36*qg%+32):..).|
0000aab0 05 cd 0d 29 22 70 64 25 28 6e 67 25 29 3d 64 25 |...)"pd%(ng%)=d%|
0000aac0 28 67 25 29 3a 64 24 28 6e 67 25 29 3d 64 24 28 |(g%):d$(ng%)=d$(|
0000aad0 67 25 29 3a 65 25 28 6e 67 25 29 3d a3 3a 61 24 |g%):e%(ng%)=.:a$|
0000aae0 28 6e 67 25 29 3d 71 24 3a 63 25 28 6e 67 25 29 |(ng%)=q$:c%(ng%)|
0000aaf0 3d 31 3a 65 24 28 6e 67 25 29 3d c0 91 24 2c 31 |=1:e$(ng%)=..$,1|
0000ab00 35 29 3a 62 24 28 6e 67 25 29 3d 71 24 3a e7 61 |5):b$(ng%)=q$:.a|
0000ab10 25 28 6e 67 25 29 3d 30 8c f2 6c 28 30 2c 6e 67 |%(ng%)=0..l(0,ng|
0000ab20 25 29 0d 29 2c 43 f2 49 28 6e 67 25 29 3a f2 76 |%).),C.I(ng%):.v|
0000ab30 28 6e 67 25 2c 71 24 2c 31 29 3a f2 52 62 28 41 |(ng%,q$,1):.Rb(A|
0000ab40 65 25 2c 30 2c 71 24 29 3a f2 69 63 28 6e 67 25 |e%,0,q$):.ic(ng%|
0000ab50 29 3a e7 ac 68 25 28 6e 67 25 29 8c 68 25 28 6e |):..h%(ng%).h%(n|
0000ab60 67 25 29 3d b9 0d 29 36 0e c8 99 32 36 33 38 37 |g%)=..)6...26387|
0000ab70 33 3a e1 0d 29 40 51 dd f2 61 61 3a ea 72 67 25 |3:..)@Q..aa:.rg%|
0000ab80 3a 40 25 3d 30 3a c8 99 32 36 32 33 35 32 2c 2c |:@%=0:..262352,,|
0000ab90 2d 31 3a 21 64 61 25 3d 9f 3a 72 24 3d f6 24 3a |-1:!da%=.:r$=.$:|
0000aba0 e7 9f 3d 32 30 84 9f 3d 31 38 8c 72 24 3d 22 41 |..=20..=18.r$="A|
0000abb0 72 69 74 68 6d 65 74 69 63 20 6f 76 65 72 66 6c |rithmetic overfl|
0000abc0 6f 77 2e 22 0d 29 4a 4c e7 9f 3d 33 38 35 8c 72 |ow.".)JL..=385.r|
0000abd0 24 3d 22 4e 6f 74 20 65 6e 6f 75 67 68 20 6d 65 |$="Not enough me|
0000abe0 6d 6f 72 79 2c 20 6f 72 20 6e 6f 74 20 77 69 74 |mory, or not wit|
0000abf0 68 69 6e 20 2a 64 65 73 6b 74 6f 70 20 77 6f 72 |hin *desktop wor|
0000ac00 6c 64 2e 22 3a 73 67 25 3d 31 8b 73 67 25 3d 33 |ld.":sg%=1.sg%=3|
0000ac10 0d 29 54 80 e7 9f 3d 31 34 39 31 8c 72 24 3d 22 |.)T...=1491.r$="|
0000ac20 4e 6f 20 70 72 69 6e 74 65 72 20 64 72 69 76 65 |No printer drive|
0000ac30 72 20 69 6e 73 74 61 6c 6c 65 64 2c 20 70 6c 65 |r installed, ple|
0000ac40 61 73 65 20 6c 6f 61 64 20 61 20 70 72 69 6e 74 |ase load a print|
0000ac50 65 72 20 64 72 69 76 65 72 20 61 70 70 6c 69 63 |er driver applic|
0000ac60 61 74 69 6f 6e 20 73 75 69 74 61 62 6c 65 20 66 |ation suitable f|
0000ac70 6f 72 20 75 73 65 20 77 69 74 68 20 79 6f 75 72 |or use with your|
0000ac80 20 70 72 69 6e 74 65 72 2e 22 3a 73 67 25 3d 31 | printer.":sg%=1|
0000ac90 0d 29 5e 3f 24 28 64 61 25 2b 34 29 3d 72 24 2b |.)^?$(da%+4)=r$+|
0000aca0 bd 28 30 29 3a c8 99 32 36 32 33 36 37 2c 64 61 |.(0):..262367,da|
0000acb0 25 2c 73 67 25 2c 22 49 6e 76 65 73 74 6f 72 22 |%,sg%,"Investor"|
0000acc0 b8 2c 72 67 25 3a e7 72 67 25 3d 32 f2 42 62 0d |.,rg%:.rg%=2.Bb.|
0000acd0 29 68 05 e1 0d 29 72 53 dd f2 71 28 61 61 24 29 |)h...)rS..q(aa$)|
0000ace0 3a 40 25 3d 30 3a c8 99 32 36 32 33 35 32 2c 2c |:@%=0:..262352,,|
0000acf0 2d 31 3a 21 64 61 25 3d 30 3a 24 28 64 61 25 2b |-1:!da%=0:$(da%+|
0000ad00 34 29 3d 61 61 24 2b bd 28 30 29 3a c8 99 32 36 |4)=aa$+.(0):..26|
0000ad10 32 33 36 37 2c 64 61 25 2c 31 2c 22 49 6e 76 65 |2367,da%,1,"Inve|
0000ad20 73 74 6f 72 22 3a e1 0d 29 7c 7e dd f2 62 61 3a |stor":..)|~..ba:|
0000ad30 de 74 67 25 33 32 3a e3 71 61 3d 30 b8 32 88 32 |.tg%32:.qa=0.2.2|
0000ad40 3a 50 25 3d 74 67 25 3a 5b 4f 50 54 20 71 61 3a |:P%=tg%:[OPT qa:|
0000ad50 2e 72 61 3a 6c 64 72 33 2c 5b 30 5d 3a 6c 64 72 |.ra:ldr3,[0]:ldr|
0000ad60 34 2c 5b 31 5d 3a 73 74 72 34 2c 5b 30 5d 2c 23 |4,[1]:str4,[0],#|
0000ad70 34 3a 73 74 72 33 2c 5b 31 5d 2c 23 34 3a 61 64 |4:str3,[1],#4:ad|
0000ad80 64 32 2c 32 2c 23 34 3a 63 6d 70 32 2c 23 33 36 |d2,2,#4:cmp2,#36|
0000ad90 3a 62 6e 65 20 72 61 3a 6d 6f 76 20 70 63 2c 31 |:bne ra:mov pc,1|
0000ada0 34 3a 5d 3a e1 0d 29 86 3d dd f2 42 62 3a 24 71 |4:]:..).=..Bb:$q|
0000adb0 25 3d 22 54 41 53 4b 22 3a c8 99 36 2c 31 30 36 |%="TASK":..6,106|
0000adc0 2c 31 3a c8 99 35 33 30 30 35 31 2c 6a 61 25 3a |,1:..530051,ja%:|
0000add0 c8 99 32 36 32 33 36 35 2c 6a 61 25 2c 21 71 25 |..262365,ja%,!q%|
0000ade0 3a e0 0d 29 90 05 e1 0d 29 9a 45 dd f2 79 61 28 |:..)....).E..ya(|
0000adf0 71 25 29 3a 71 25 21 33 36 3d 2d 31 3a 71 25 21 |q%):q%!36=-1:q%!|
0000ae00 31 36 3d 32 3a 71 25 21 31 32 3d 71 25 21 38 3a |16=2:q%!12=q%!8:|
0000ae10 21 71 25 3d 36 30 3a c8 99 32 36 32 33 37 35 2c |!q%=60:..262375,|
0000ae20 31 37 2c 71 25 2c 71 25 21 34 3a e1 0d 29 a4 13 |17,q%,q%!4:..)..|
0000ae30 dd f2 7a 61 28 71 25 29 3a c8 8e 79 65 25 ca 0d |..za(q%):..ye%..|
0000ae40 29 ae 30 c9 30 3a f2 4b 61 28 a4 68 28 71 25 2b |).0.0:.Ka(.h(q%+|
0000ae50 34 34 29 29 3a 71 25 21 34 30 3d 32 35 36 3a 62 |44)):q%!40=256:b|
0000ae60 24 28 67 25 29 3d a4 68 28 71 25 2b 34 34 29 0d |$(g%)=.h(q%+44).|
0000ae70 29 b8 2d c9 31 3a f2 4f 61 28 a4 68 28 71 25 2b |).-.1:.Oa(.h(q%+|
0000ae80 34 34 29 29 3a 71 25 21 34 30 3d 34 30 39 35 3a |44)):q%!40=4095:|
0000ae90 43 24 3d a4 68 28 71 25 2b 34 34 29 0d 29 c2 2d |C$=.h(q%+44).).-|
0000aea0 c9 32 3a f2 50 61 28 a4 68 28 71 25 2b 34 34 29 |.2:.Pa(.h(q%+44)|
0000aeb0 29 3a 71 25 21 34 30 3d 34 30 39 35 3a 48 24 3d |):q%!40=4095:H$=|
0000aec0 a4 68 28 71 25 2b 34 34 29 0d 29 cc 2d c9 33 3a |.h(q%+44).).-.3:|
0000aed0 f2 4c 61 28 a4 68 28 71 25 2b 34 34 29 29 3a 71 |.La(.h(q%+44)):q|
0000aee0 25 21 34 30 3d 33 35 38 32 3a 46 24 3d a4 68 28 |%!40=3582:F$=.h(|
0000aef0 71 25 2b 34 34 29 0d 29 d6 2d c9 34 3a f2 4d 61 |q%+44).).-.4:.Ma|
0000af00 28 a4 68 28 71 25 2b 34 34 29 29 3a 71 25 21 34 |(.h(q%+44)):q%!4|
0000af10 30 3d 32 38 31 35 3a 47 24 3d a4 68 28 71 25 2b |0=2815:G$=.h(q%+|
0000af20 34 34 29 0d 29 e0 2d c9 35 3a f2 4e 61 28 a4 68 |44).).-.5:.Na(.h|
0000af30 28 71 25 2b 34 34 29 29 3a 71 25 21 34 30 3d 34 |(q%+44)):q%!40=4|
0000af40 30 39 35 3a 49 24 3d a4 68 28 71 25 2b 34 34 29 |095:I$=.h(q%+44)|
0000af50 0d 29 ea 05 cb 0d 29 f4 49 c8 99 32 36 32 33 35 |.)....).I..26235|
0000af60 31 2c 2c 71 25 3a 71 25 21 32 30 3d 71 25 21 31 |1,,q%:q%!20=q%!1|
0000af70 32 3a 71 25 21 32 34 3d 71 25 21 31 36 3a 71 25 |2:q%!24=q%!16:q%|
0000af80 21 32 38 3d 21 71 25 3a 21 71 25 3d 34 34 3a e7 |!28=!q%:!q%=44:.|
0000af90 28 71 25 21 38 80 31 29 3c 3d 30 8c f2 68 0d 29 |(q%!8.1)<=0..h.)|
0000afa0 fe 05 e1 0d 2a 08 a0 dd f2 74 61 3a 75 67 25 3d |....*....ta:ug%=|
0000afb0 a3 3a c8 99 32 36 32 33 35 31 2c 2c 71 25 3a 71 |.:..262351,,q%:q|
0000afc0 25 21 33 32 3d 71 25 21 34 3a 71 25 21 32 38 3d |%!32=q%!4:q%!28=|
0000afd0 21 71 25 3a 71 25 21 32 34 3d 71 25 21 31 36 3a |!q%:q%!24=q%!16:|
0000afe0 71 25 21 32 30 3d 71 25 21 31 32 3a 71 25 21 31 |q%!20=q%!12:q%!1|
0000aff0 36 3d 31 3a 71 25 21 31 32 3d 30 3a 71 25 21 33 |6=1:q%!12=0:q%!3|
0000b000 36 3d 31 3a 71 25 21 34 30 3d 32 35 36 3a 24 28 |6=1:q%!40=256:$(|
0000b010 71 25 2b 34 34 29 3d a4 72 28 a4 68 28 71 29 29 |q%+44)=.r(.h(q))|
0000b020 2b bd 28 30 29 3a 21 71 25 3d 36 30 3a c8 99 32 |+.(0):!q%=60:..2|
0000b030 36 32 33 37 35 2c 31 37 2c 71 25 2c 71 25 21 32 |62375,17,q%,q%!2|
0000b040 30 3a e1 0d 2a 12 eb dd f2 51 62 28 6e 25 29 3a |0:..*....Qb(n%):|
0000b050 ea 76 67 25 2c 77 67 25 2c 78 67 25 3a 21 71 25 |.vg%,wg%,xg%:!q%|
0000b060 3d 61 25 28 6e 25 29 3a c8 99 32 36 32 33 34 37 |=a%(n%):..262347|
0000b070 2c 2c 71 25 3a 78 67 25 3d 71 25 21 31 36 2d 71 |,,q%:xg%=q%!16-q|
0000b080 25 21 38 3a 76 67 25 3d 71 25 21 34 3a 77 67 25 |%!8:vg%=q%!4:wg%|
0000b090 3d 71 25 21 38 3a 71 25 21 34 3d 32 3a c8 99 32 |=q%!8:q%!4=2:..2|
0000b0a0 36 32 33 35 30 2c 2c 71 25 3a 71 25 21 38 2b 3d |62350,,q%:q%!8+=|
0000b0b0 76 67 25 3a 71 25 21 31 32 2b 3d 77 67 25 2b 78 |vg%:q%!12+=wg%+x|
0000b0c0 67 25 3a 71 25 21 31 36 2b 3d 76 67 25 3a 71 25 |g%:q%!16+=vg%:q%|
0000b0d0 21 32 30 2b 3d 77 67 25 2b 78 67 25 3a 71 25 21 |!20+=wg%+xg%:q%!|
0000b0e0 32 34 3d 30 3a 71 25 21 32 38 3d 30 3a 71 25 21 |24=0:q%!28=0:q%!|
0000b0f0 33 32 3d 26 37 46 46 46 46 46 46 46 3a 71 25 21 |32=&7FFFFFFF:q%!|
0000b100 33 36 3d 26 37 46 46 46 46 46 46 46 3a 21 71 25 |36=&7FFFFFFF:!q%|
0000b110 3d 30 3a 71 25 21 34 3d 35 3a 75 67 25 3d b9 3a |=0:q%!4=5:ug%=.:|
0000b120 c8 99 32 36 32 33 35 32 2c 2c 71 25 3a e1 0d 2a |..262352,,q%:..*|
0000b130 1c 50 dd a4 70 28 62 61 24 29 3a e7 a7 62 61 24 |.P..p(ba$):..ba$|
0000b140 2c 22 2e 22 29 3d 30 8c f2 71 28 22 54 6f 20 73 |,".")=0..q("To s|
0000b150 61 76 65 2c 20 64 72 61 67 20 74 68 65 20 69 63 |ave, drag the ic|
0000b160 6f 6e 20 74 6f 20 61 20 64 69 72 65 63 74 6f 72 |on to a director|
0000b170 79 20 76 69 65 77 65 72 2e 22 29 3a 3d a3 0d 2a |y viewer."):=..*|
0000b180 26 06 3d b9 0d 2a 30 19 dd f2 4b 61 28 6a 24 29 |&.=..*0...Ka(j$)|
0000b190 3a e7 ac 28 a4 70 28 6a 24 29 29 8c e1 0d 2a 3a |:..(.p(j$))...*:|
0000b1a0 7d c8 99 32 36 33 38 37 32 3a 54 24 3d c0 91 24 |}..263872:T$=..$|
0000b1b0 2c 31 35 29 3a 65 24 28 67 25 29 3d 54 24 3a 61 |,15):e$(g%)=T$:a|
0000b1c0 24 28 67 25 29 3d a4 72 28 6a 24 29 3a 4c 25 3d |$(g%)=.r(j$):L%=|
0000b1d0 ae 28 6a 24 29 3a f1 23 4c 25 2c 5a 25 3a f1 23 |.(j$):.#L%,Z%:.#|
0000b1e0 4c 25 2c 54 24 3a e3 79 67 25 3d 30 b8 33 35 3a |L%,T$:.yg%=0.35:|
0000b1f0 f1 23 4c 25 2c 6e 25 28 67 25 2c 79 67 25 29 3a |.#L%,n%(g%,yg%):|
0000b200 ed 3a e3 7a 67 25 3d 30 b8 33 35 3a e7 6e 25 28 |.:.zg%=0.35:.n%(|
0000b210 67 25 2c 7a 67 25 29 3e 30 8c 0d 2a 44 87 e3 41 |g%,zg%)>0..*D..A|
0000b220 67 25 3d 30 b8 6e 25 28 67 25 2c 7a 67 25 29 2d |g%=0.n%(g%,zg%)-|
0000b230 31 3a 55 24 3d c0 a4 62 28 41 67 25 2c 7a 67 25 |1:U$=..b(Ag%,zg%|
0000b240 2c 67 25 29 29 3a f2 74 28 41 67 25 2c 7a 67 25 |,g%)):.t(Ag%,zg%|
0000b250 2c 67 25 2c 55 24 2b 22 30 22 29 3a f1 23 4c 25 |,g%,U$+"0"):.#L%|
0000b260 2c 55 24 3a f1 23 4c 25 2c a4 61 28 41 67 25 2c |,U$:.#L%,.a(Ag%,|
0000b270 7a 67 25 2c 67 25 29 3a f1 23 4c 25 2c a4 64 28 |zg%,g%):.#L%,.d(|
0000b280 41 67 25 2c 7a 67 25 2c 67 25 29 3a f1 23 4c 25 |Ag%,zg%,g%):.#L%|
0000b290 2c a4 63 28 41 67 25 2c 7a 67 25 2c 67 25 29 3a |,.c(Ag%,zg%,g%):|
0000b2a0 ed 0d 2a 4e 05 cd 0d 2a 58 1d ed 3a f1 23 4c 25 |..*N...*X..:.#L%|
0000b2b0 2c 76 25 28 67 25 29 3a e7 76 25 28 67 25 29 3e |,v%(g%):.v%(g%)>|
0000b2c0 2d 31 8c 0d 2a 62 92 e3 42 67 25 3d 30 b8 76 25 |-1..*b..Bg%=0.v%|
0000b2d0 28 67 25 29 3a 4d 24 3d 24 28 62 25 28 67 25 29 |(g%):M$=$(b%(g%)|
0000b2e0 2b 33 36 2a 42 67 25 29 3a f1 23 4c 25 2c 4d 24 |+36*Bg%):.#L%,M$|
0000b2f0 3a f1 23 4c 25 2c 21 28 62 25 28 67 25 29 2b 33 |:.#L%,!(b%(g%)+3|
0000b300 36 2a 42 67 25 2b 32 34 29 3a 73 61 3d 21 28 62 |6*Bg%+24):sa=!(b|
0000b310 25 28 67 25 29 2b 33 36 2a 42 67 25 2b 32 38 29 |%(g%)+36*Bg%+28)|
0000b320 2a 30 2e 30 30 31 3a 74 61 3d 21 28 62 25 28 67 |*0.001:ta=!(b%(g|
0000b330 25 29 2b 33 36 2a 42 67 25 2b 33 32 29 2a 30 2e |%)+36*Bg%+32)*0.|
0000b340 30 30 31 3a f1 23 4c 25 2c 73 61 3a f1 23 4c 25 |001:.#L%,sa:.#L%|
0000b350 2c 74 61 3a ed 0d 2a 6c 05 cd 0d 2a 76 6a d9 23 |,ta:..*l...*vj.#|
0000b360 4c 25 3a ff 28 22 53 45 54 54 59 50 45 20 22 2b |L%:.("SETTYPE "+|
0000b370 6a 24 2b 22 20 31 30 30 22 29 3a c8 99 38 2c 35 |j$+" 100"):..8,5|
0000b380 2c 6a 24 b8 2c 2c 2c 2c 43 67 25 3a c8 99 32 36 |,j$.,,,,Cg%:..26|
0000b390 33 38 37 33 3a 64 24 28 67 25 29 3d c3 28 43 67 |3873:d$(g%)=.(Cg|
0000b3a0 25 29 2b 22 20 62 79 74 65 73 22 3a 62 24 28 67 |%)+" bytes":b$(g|
0000b3b0 25 29 3d 6a 24 3a 65 25 28 67 25 29 3d a3 3a f2 |%)=j$:e%(g%)=.:.|
0000b3c0 6a 63 3a e1 0d 2a 80 19 dd f2 4f 61 28 75 24 29 |jc:..*....Oa(u$)|
0000b3d0 3a e7 ac 28 a4 70 28 75 24 29 29 8c e1 0d 2a 8a |:..(.p(u$))...*.|
0000b3e0 2b c8 99 32 36 33 38 37 32 3a ec 35 30 30 30 30 |+..263872:.50000|
0000b3f0 2c 30 3a ff 28 22 53 50 4f 4f 4c 20 22 2b 75 24 |,0:.("SPOOL "+u$|
0000b400 29 3a c8 8e 50 61 25 ca 0d 2a 94 1c c9 30 3a 44 |):..Pa%..*...0:D|
0000b410 67 25 3d 64 25 28 67 25 29 3a 45 67 25 3d 64 25 |g%=d%(g%):Eg%=d%|
0000b420 28 67 25 29 0d 2a 9e 31 c9 31 3a 44 67 25 3d 28 |(g%).*.1.1:Dg%=(|
0000b430 64 25 28 67 25 29 81 31 32 29 2a 31 32 3a 45 67 |d%(g%).12)*12:Eg|
0000b440 25 3d 28 28 64 25 28 67 25 29 81 31 32 29 2a 31 |%=((d%(g%).12)*1|
0000b450 32 29 2b 31 31 0d 2a a8 13 c9 32 3a 44 67 25 3d |2)+11.*...2:Dg%=|
0000b460 30 3a 45 67 25 3d 33 35 0d 2a b2 05 cb 0d 2a bc |0:Eg%=35.*....*.|
0000b470 20 e3 46 67 25 3d 44 67 25 b8 45 67 25 3a e7 6e | .Fg%=Dg%.Eg%:.n|
0000b480 25 28 67 25 2c 46 67 25 29 3c 3e 30 8c 0d 2a c6 |%(g%,Fg%)<>0..*.|
0000b490 c5 75 61 3d 30 3a 76 61 3d 30 3a 40 25 3d 30 3a |.ua=0:va=0:@%=0:|
0000b4a0 f1 22 50 6f 72 74 66 6f 6c 69 6f 3a 20 22 3b 61 |."Portfolio: ";a|
0000b4b0 24 28 67 25 29 3b bd 28 31 30 29 3b 3a f1 22 4d |$(g%);.(10);:."M|
0000b4c0 6f 6e 74 68 3a 20 22 3b a4 67 28 46 67 25 29 3b |onth: ";.g(Fg%);|
0000b4d0 bd 28 31 30 29 3b 3a f1 22 59 65 61 72 3a 20 22 |.(10);:."Year: "|
0000b4e0 3b a4 71 28 46 67 25 29 3b bd 28 31 30 29 3b 3a |;.q(Fg%);.(10);:|
0000b4f0 f1 bd 28 31 30 29 3b 3a f1 22 20 20 20 20 20 20 |..(10);:." |
0000b500 20 20 20 20 20 20 20 20 20 20 20 20 4e 55 4d 42 | NUMB|
0000b510 45 52 20 4f 46 20 20 50 55 52 43 48 41 53 45 20 |ER OF PURCHASE |
0000b520 50 55 52 43 48 41 53 45 20 43 55 52 52 45 4e 54 |PURCHASE CURRENT|
0000b530 20 20 43 55 52 52 45 4e 54 20 20 20 20 4e 45 54 | CURRENT NET|
0000b540 20 20 50 45 52 43 45 4e 54 2e 22 3b bd 28 31 30 | PERCENT.";.(10|
0000b550 29 3b 0d 2a d0 f3 f1 22 53 54 4f 43 4b 20 4e 41 |);.*..."STOCK NA|
0000b560 4d 45 20 20 20 20 20 20 20 20 55 4e 49 54 53 20 |ME UNITS |
0000b570 48 45 4c 44 20 50 52 49 43 45 28 a3 29 20 56 41 |HELD PRICE(.) VA|
0000b580 4c 55 45 28 a3 29 20 50 52 49 43 45 28 a3 29 20 |LUE(.) PRICE(.) |
0000b590 56 41 4c 55 45 28 a3 29 20 47 41 49 4e 28 a3 29 |VALUE(.) GAIN(.)|
0000b5a0 20 47 41 49 4e 28 25 29 22 3b bd 28 31 30 29 3b | GAIN(%)";.(10);|
0000b5b0 3a f1 bd 28 31 30 29 3b 3a e3 47 67 25 3d 30 b8 |:..(10);:.Gg%=0.|
0000b5c0 6e 25 28 67 25 2c 46 67 25 29 2d 31 3a 40 25 3d |n%(g%,Fg%)-1:@%=|
0000b5d0 30 3a f1 c0 a4 62 28 47 67 25 2c 46 67 25 2c 67 |0:...b(Gg%,Fg%,g|
0000b5e0 25 29 29 3b 89 28 32 36 2d a9 28 a4 62 28 47 67 |%));.(26-.(.b(Gg|
0000b5f0 25 2c 46 67 25 2c 67 25 29 29 2d a9 28 c3 28 a4 |%,Fg%,g%))-.(.(.|
0000b600 61 28 47 67 25 2c 46 67 25 2c 67 25 29 29 29 29 |a(Gg%,Fg%,g%))))|
0000b610 3b 3a f1 a4 61 28 47 67 25 2c 46 67 25 2c 67 25 |;:..a(Gg%,Fg%,g%|
0000b620 29 3b 3a f2 79 28 31 29 3a f1 a4 64 28 47 67 25 |);:.y(1):..d(Gg%|
0000b630 2c 46 67 25 2c 67 25 29 3b 3a 40 25 3d 31 36 39 |,Fg%,g%);:@%=169|
0000b640 30 38 38 31 30 0d 2a da cb f1 a4 64 28 47 67 25 |08810.*....d(Gg%|
0000b650 2c 46 67 25 2c 67 25 29 2a a4 61 28 47 67 25 2c |,Fg%,g%)*.a(Gg%,|
0000b660 46 67 25 2c 67 25 29 3b 89 28 38 2d a9 c3 28 a4 |Fg%,g%);.(8-..(.|
0000b670 63 28 47 67 25 2c 46 67 25 2c 67 25 29 29 29 3b |c(Gg%,Fg%,g%)));|
0000b680 3a 75 61 2b 3d a4 64 28 47 67 25 2c 46 67 25 2c |:ua+=.d(Gg%,Fg%,|
0000b690 67 25 29 2a a4 61 28 47 67 25 2c 46 67 25 2c 67 |g%)*.a(Gg%,Fg%,g|
0000b6a0 25 29 3a f2 79 28 32 29 3a f1 c3 28 a4 63 28 47 |%):.y(2):..(.c(G|
0000b6b0 67 25 2c 46 67 25 2c 67 25 29 29 3b 3a 40 25 3d |g%,Fg%,g%));:@%=|
0000b6c0 31 36 39 30 38 38 31 30 3a f1 a4 63 28 47 67 25 |16908810:..c(Gg%|
0000b6d0 2c 46 67 25 2c 67 25 29 2a a4 61 28 47 67 25 2c |,Fg%,g%)*.a(Gg%,|
0000b6e0 46 67 25 2c 67 25 29 3b 3a 76 61 2b 3d a4 63 28 |Fg%,g%);:va+=.c(|
0000b6f0 47 67 25 2c 46 67 25 2c 67 25 29 2a a4 61 28 47 |Gg%,Fg%,g%)*.a(G|
0000b700 67 25 2c 46 67 25 2c 67 25 29 3a f2 79 28 33 29 |g%,Fg%,g%):.y(3)|
0000b710 0d 2a e4 ae 65 3d 28 a4 63 28 47 67 25 2c 46 67 |.*..e=(.c(Gg%,Fg|
0000b720 25 2c 67 25 29 29 2a a4 61 28 47 67 25 2c 46 67 |%,g%))*.a(Gg%,Fg|
0000b730 25 2c 67 25 29 2d 28 a4 64 28 47 67 25 2c 46 67 |%,g%)-(.d(Gg%,Fg|
0000b740 25 2c 67 25 29 2a a4 61 28 47 67 25 2c 46 67 25 |%,g%)*.a(Gg%,Fg%|
0000b750 2c 67 25 29 29 3a f1 89 28 39 2d a9 c3 28 65 29 |,g%)):..(9-..(e)|
0000b760 29 3b c3 28 65 29 3b 3a f2 79 28 34 29 3a e7 28 |);.(e);:.y(4):.(|
0000b770 a4 64 28 47 67 25 2c 46 67 25 2c 67 25 29 2a a4 |.d(Gg%,Fg%,g%)*.|
0000b780 61 28 47 67 25 2c 46 67 25 2c 67 25 29 29 3d 30 |a(Gg%,Fg%,g%))=0|
0000b790 8c 66 3d 30 8b 66 3d 28 65 2f 28 a4 64 28 47 67 |.f=0.f=(e/(.d(Gg|
0000b7a0 25 2c 46 67 25 2c 67 25 29 2a a4 61 28 47 67 25 |%,Fg%,g%)*.a(Gg%|
0000b7b0 2c 46 67 25 2c 67 25 29 29 29 2a 31 30 30 0d 2a |,Fg%,g%)))*100.*|
0000b7c0 ee 26 f1 89 28 38 2d a9 c3 28 66 29 29 3b c3 28 |.&..(8-..(f));.(|
0000b7d0 66 29 3b bd 28 31 30 29 3b 3a ed 47 67 25 3a e7 |f);.(10);:.Gg%:.|
0000b7e0 64 63 25 8c 0d 2a f8 40 40 25 3d 31 36 39 30 38 |dc%..*.@@%=16908|
0000b7f0 38 31 30 3a f1 22 54 6f 74 61 6c 73 22 3b 89 28 |810:."Totals";.(|
0000b800 33 39 2d a9 c3 28 75 61 29 29 3b 75 61 3b 89 28 |39-..(ua));ua;.(|
0000b810 31 38 2d a9 c3 28 76 61 29 29 3b 76 61 3b bd 28 |18-..(va));va;.(|
0000b820 31 30 29 3b 0d 2b 02 05 cd 0d 2b 0c 1a e7 50 61 |10);.+....+...Pa|
0000b830 25 3e 30 8c f1 bd 28 31 30 29 3b 3a f1 bd 28 31 |%>0...(10);:..(1|
0000b840 30 29 3b 0d 2b 16 05 cd 0d 2b 20 41 ed 46 67 25 |0);.+....+ A.Fg%|
0000b850 3a ff 28 22 53 50 4f 4f 4c 22 29 3a ff 28 22 53 |:.("SPOOL"):.("S|
0000b860 45 54 54 59 50 45 20 22 2b 75 24 2b 22 20 46 46 |ETTYPE "+u$+" FF|
0000b870 46 22 29 3a 43 24 3d 75 24 3a c8 99 32 36 33 38 |F"):C$=u$:..2638|
0000b880 37 33 3a 40 25 3d 30 3a e1 0d 2b 2a 19 dd f2 50 |73:@%=0:..+*...P|
0000b890 61 28 76 24 29 3a e7 ac 28 a4 70 28 76 24 29 29 |a(v$):..(.p(v$))|
0000b8a0 8c e1 0d 2b 34 b8 c8 99 32 36 33 38 37 32 3a ec |...+4...263872:.|
0000b8b0 35 30 30 30 30 2c 30 3a ff 28 22 53 50 4f 4f 4c |50000,0:.("SPOOL|
0000b8c0 20 22 2b 76 24 29 3a f1 22 53 68 61 72 65 20 45 | "+v$):."Share E|
0000b8d0 6e 74 72 79 20 48 69 73 74 6f 72 79 3a 20 22 3b |ntry History: ";|
0000b8e0 c0 a4 62 28 48 67 25 2c 49 67 25 2c 51 25 29 29 |..b(Hg%,Ig%,Q%))|
0000b8f0 3b bd 28 31 30 29 3b 3a f1 bd 28 31 30 29 3b 3a |;.(10);:..(10);:|
0000b900 f1 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
0000b910 20 20 4e 55 4d 42 45 52 20 4f 46 20 20 50 55 52 | NUMBER OF PUR|
0000b920 43 48 41 53 45 20 50 55 52 43 48 41 53 45 20 43 |CHASE PURCHASE C|
0000b930 55 52 52 45 4e 54 20 20 43 55 52 52 45 4e 54 20 |URRENT CURRENT |
0000b940 20 20 20 4e 45 54 20 20 50 45 52 43 45 4e 54 41 | NET PERCENTA|
0000b950 47 45 22 3b bd 28 31 30 29 3b 0d 2b 3e 8c f1 22 |GE";.(10);.+>.."|
0000b960 59 45 41 52 20 20 4d 4f 4e 54 48 20 20 20 20 20 |YEAR MONTH |
0000b970 55 4e 49 54 53 20 48 45 4c 44 20 50 52 49 43 45 |UNITS HELD PRICE|
0000b980 28 a3 29 20 56 41 4c 55 45 28 a3 29 20 50 52 49 |(.) VALUE(.) PRI|
0000b990 43 45 28 a3 29 20 56 41 4c 55 45 28 a3 29 20 47 |CE(.) VALUE(.) G|
0000b9a0 41 49 4e 28 a3 29 20 20 47 41 49 4e 28 25 29 22 |AIN(.) GAIN(%)"|
0000b9b0 3b bd 28 31 30 29 3b 3a 4a 67 25 3d 2d 31 3a 77 |;.(10);:Jg%=-1:w|
0000b9c0 61 3d a3 3a 78 61 3d a3 3a 79 61 3d a3 3a 7a 61 |a=.:xa=.:ya=.:za|
0000b9d0 3d 31 30 30 30 3a 41 61 3d 30 3a 42 61 3d 30 3a |=1000:Aa=0:Ba=0:|
0000b9e0 c8 8e 62 62 25 ca 0d 2b 48 13 c9 30 3a 4b 67 25 |..bb%..+H..0:Kg%|
0000b9f0 3d 30 3a 4c 67 25 3d 31 31 0d 2b 52 14 c9 31 3a |=0:Lg%=11.+R..1:|
0000ba00 4b 67 25 3d 31 32 3a 4c 67 25 3d 32 33 0d 2b 5c |Kg%=12:Lg%=23.+\|
0000ba10 14 c9 32 3a 4b 67 25 3d 32 34 3a 4c 67 25 3d 33 |..2:Kg%=24:Lg%=3|
0000ba20 35 0d 2b 66 13 c9 33 3a 4b 67 25 3d 30 3a 4c 67 |5.+f..3:Kg%=0:Lg|
0000ba30 25 3d 33 35 0d 2b 70 05 cb 0d 2b 7a 50 e3 4b 25 |%=35.+p...+zP.K%|
0000ba40 3d 4b 67 25 b8 4c 67 25 3a e3 57 25 3d 30 b8 6e |=Kg%.Lg%:.W%=0.n|
0000ba50 25 28 51 25 2c 4b 25 29 3a 43 61 3d b9 3a 44 61 |%(Q%,K%):Ca=.:Da|
0000ba60 3d b9 3a 45 61 3d b9 3a e7 c0 a4 62 28 48 67 25 |=.:Ea=.:...b(Hg%|
0000ba70 2c 49 67 25 2c 51 25 29 29 3d c0 a4 62 28 57 25 |,Ig%,Q%))=..b(W%|
0000ba80 2c 4b 25 2c 51 25 29 29 8c 0d 2b 84 33 f1 bd 28 |,K%,Q%))..+.3..(|
0000ba90 31 30 29 3b 3a 4a 67 25 2b 3d 31 3a e7 a4 63 28 |10);:Jg%+=1:..c(|
0000baa0 57 25 2c 4b 25 2c 51 25 29 3e 41 61 8c 41 61 3d |W%,K%,Q%)>Aa.Aa=|
0000bab0 a4 63 28 57 25 2c 4b 25 2c 51 25 29 0d 2b 8e 24 |.c(W%,K%,Q%).+.$|
0000bac0 e7 a4 63 28 57 25 2c 4b 25 2c 51 25 29 3c 7a 61 |..c(W%,K%,Q%)<za|
0000bad0 8c 7a 61 3d a4 63 28 57 25 2c 4b 25 2c 51 25 29 |.za=.c(W%,K%,Q%)|
0000bae0 0d 2b 98 42 42 61 2b 3d a4 63 28 57 25 2c 4b 25 |.+.BBa+=.c(W%,K%|
0000baf0 2c 51 25 29 3a 40 25 3d 30 3a e7 4b 25 81 31 32 |,Q%):@%=0:.K%.12|
0000bb00 3d 30 80 ac 77 61 8c 77 61 3d b9 3a f1 c3 28 28 |=0..wa.wa=.:..((|
0000bb10 5a 25 2d 32 29 2b 4b 25 81 31 32 29 3b 3a 43 61 |Z%-2)+K%.12);:Ca|
0000bb20 3d a3 0d 2b a2 2c e7 4b 25 81 31 32 3d 31 80 ac |=..+.,.K%.12=1..|
0000bb30 78 61 8c 78 61 3d b9 3a f1 c3 28 28 5a 25 2d 32 |xa.xa=.:..((Z%-2|
0000bb40 29 2b 4b 25 81 31 32 29 3b 3a 44 61 3d a3 0d 2b |)+K%.12);:Da=..+|
0000bb50 ac 2c e7 4b 25 81 31 32 3d 32 80 ac 79 61 8c 79 |.,.K%.12=2..ya.y|
0000bb60 61 3d b9 3a f1 c3 28 28 5a 25 2d 32 29 2b 4b 25 |a=.:..((Z%-2)+K%|
0000bb70 81 31 32 29 3b 3a 45 61 3d a3 0d 2b b6 16 e7 43 |.12);:Ea=..+...C|
0000bb80 61 80 44 61 80 45 61 8c f1 22 20 20 20 20 22 3b |a.Da.Ea.." ";|
0000bb90 0d 2b c0 a9 f1 22 20 20 22 3b a4 67 28 4b 25 29 |.+..." ";.g(K%)|
0000bba0 3b 89 28 31 31 2d a9 28 a4 67 28 4b 25 29 29 29 |;.(11-.(.g(K%)))|
0000bbb0 3b 3a 40 25 3d 37 3a f1 a4 61 28 57 25 2c 4b 25 |;:@%=7:..a(W%,K%|
0000bbc0 2c 51 25 29 3b 22 20 20 22 3b 3a 40 25 3d 31 36 |,Q%);" ";:@%=16|
0000bbd0 39 30 38 38 30 38 3a f1 a4 64 28 57 25 2c 4b 25 |908808:..d(W%,K%|
0000bbe0 2c 51 25 29 3b 3a f1 22 20 20 20 20 22 3b a4 61 |,Q%);:." ";.a|
0000bbf0 28 57 25 2c 4b 25 2c 51 25 29 2a a4 64 28 57 25 |(W%,K%,Q%)*.d(W%|
0000bc00 2c 4b 25 2c 51 25 29 3b 3a f1 a4 63 28 57 25 2c |,K%,Q%);:..c(W%,|
0000bc10 4b 25 2c 51 25 29 3b 3a f1 22 20 20 20 22 3b a4 |K%,Q%);:." ";.|
0000bc20 61 28 57 25 2c 4b 25 2c 51 25 29 2a a4 63 28 57 |a(W%,K%,Q%)*.c(W|
0000bc30 25 2c 4b 25 2c 51 25 29 3b 0d 2b ca 61 f1 28 a4 |%,K%,Q%);.+.a.(.|
0000bc40 61 28 57 25 2c 4b 25 2c 51 25 29 2a a4 63 28 57 |a(W%,K%,Q%)*.c(W|
0000bc50 25 2c 4b 25 2c 51 25 29 29 2d 28 a4 61 28 57 25 |%,K%,Q%))-(.a(W%|
0000bc60 2c 4b 25 2c 51 25 29 2a a4 64 28 57 25 2c 4b 25 |,K%,Q%)*.d(W%,K%|
0000bc70 2c 51 25 29 29 3b 22 20 22 3b 3a e7 28 a4 61 28 |,Q%));" ";:.(.a(|
0000bc80 57 25 2c 4b 25 2c 51 25 29 2a a4 64 28 57 25 2c |W%,K%,Q%)*.d(W%,|
0000bc90 4b 25 2c 51 25 29 29 3d 30 8c 0d 2b d4 06 f1 30 |K%,Q%))=0..+...0|
0000bca0 0d 2b de 61 cc 3a f1 28 28 a4 61 28 57 25 2c 4b |.+.a.:.((.a(W%,K|
0000bcb0 25 2c 51 25 29 2a a4 63 28 57 25 2c 4b 25 2c 51 |%,Q%)*.c(W%,K%,Q|
0000bcc0 25 29 29 2d 28 a4 61 28 57 25 2c 4b 25 2c 51 25 |%))-(.a(W%,K%,Q%|
0000bcd0 29 2a a4 64 28 57 25 2c 4b 25 2c 51 25 29 29 29 |)*.d(W%,K%,Q%)))|
0000bce0 2f 28 a4 61 28 57 25 2c 4b 25 2c 51 25 29 2a a4 |/(.a(W%,K%,Q%)*.|
0000bcf0 64 28 57 25 2c 4b 25 2c 51 25 29 29 2a 31 30 30 |d(W%,K%,Q%))*100|
0000bd00 3b 0d 2b e8 05 cd 0d 2b f2 2d cc 3a e7 c0 a4 62 |;.+....+.-.:...b|
0000bd10 28 48 67 25 2c 49 67 25 2c 51 25 29 29 3d c0 a4 |(Hg%,Ig%,Q%))=..|
0000bd20 62 28 57 25 2c 4b 25 2c 51 25 29 29 8c 4a 67 25 |b(W%,K%,Q%)).Jg%|
0000bd30 2b 3d 31 0d 2b fc 05 cd 0d 2c 06 40 ed 3a ed 3a |+=1.+....,.@.:.:|
0000bd40 40 25 3d 30 3a ff 28 22 53 50 4f 4f 4c 22 29 3a |@%=0:.("SPOOL"):|
0000bd50 ff 28 22 53 45 54 54 59 50 45 20 22 2b 76 24 2b |.("SETTYPE "+v$+|
0000bd60 22 20 46 46 46 22 29 3a 48 24 3d 76 24 3a c8 99 |" FFF"):H$=v$:..|
0000bd70 32 36 33 38 37 33 3a e1 0d 2c 10 19 dd f2 4c 61 |263873:..,....La|
0000bd80 28 77 24 29 3a e7 ac 28 a4 70 28 77 24 29 29 8c |(w$):..(.p(w$)).|
0000bd90 e1 0d 2c 1a 2a c8 99 32 36 33 38 37 32 3a 43 25 |..,.*..263872:C%|
0000bda0 3d ae 28 77 24 29 3a e7 49 63 25 3d 31 8c 4d 67 |=.(w$):.Ic%=1.Mg|
0000bdb0 25 3d 6c 25 8b 4d 67 25 3d 4f 25 0d 2c 24 19 e3 |%=l%.Mg%=O%.,$..|
0000bdc0 69 25 3d 30 b8 4d 67 25 3a 40 25 3d 30 3a c8 8e |i%=0.Mg%:@%=0:..|
0000bdd0 49 63 25 ca 0d 2c 2e 2a c9 31 3a 78 25 3d 21 28 |Ic%..,.*.1:x%=!(|
0000bde0 75 63 25 2b 38 2a 69 25 29 3a 6e 3d 21 28 75 63 |uc%+8*i%):n=!(uc|
0000bdf0 25 2b 38 2a 69 25 2b 34 29 2a 30 2e 30 31 0d 2c |%+8*i%+4)*0.01.,|
0000be00 38 2e c9 32 3a 78 25 3d 21 28 70 63 25 2b 33 32 |8..2:x%=!(pc%+32|
0000be10 2a 69 25 29 3a 6e 3d 21 28 70 63 25 2b 33 32 2a |*i%):n=!(pc%+32*|
0000be20 69 25 2b 57 63 25 29 2a 30 2e 30 31 0d 2c 42 05 |i%+Wc%)*0.01.,B.|
0000be30 cb 0d 2c 4c 76 63 61 24 3d a4 67 28 78 25 29 2b |..,Lvca$=.g(x%)+|
0000be40 22 20 22 2b a4 71 28 78 25 29 3a 40 25 3d 31 36 |" "+.q(x%):@%=16|
0000be50 39 30 38 38 31 30 3a d5 23 43 25 2c 22 22 22 22 |908810:.#C%,""""|
0000be60 2b 63 61 24 2b 22 22 22 22 2b 22 2c 22 2b c3 28 |+ca$+""""+","+.(|
0000be70 6e 29 3a ed 3a d9 23 43 25 3a ff 28 22 53 45 54 |n):.:.#C%:.("SET|
0000be80 54 59 50 45 20 22 2b 77 24 2b 22 20 44 46 45 22 |TYPE "+w$+" DFE"|
0000be90 29 3a 46 24 3d 77 24 3a c8 99 32 36 33 38 37 33 |):F$=w$:..263873|
0000bea0 3a 40 25 3d 30 3a e1 0d 2c 56 19 dd f2 4d 61 28 |:@%=0:..,V...Ma(|
0000beb0 78 24 29 3a e7 ac 28 a4 70 28 78 24 29 29 8c e1 |x$):..(.p(x$))..|
0000bec0 0d 2c 60 47 c8 99 32 36 33 38 37 32 3a 44 25 3d |.,`G..263872:D%=|
0000bed0 ae 28 78 24 29 3a f2 6b 63 3a d9 23 44 25 3a ff |.(x$):.kc:.#D%:.|
0000bee0 28 22 53 45 54 54 59 50 45 20 22 2b 78 24 2b 22 |("SETTYPE "+x$+"|
0000bef0 20 41 46 46 22 29 3a 47 24 3d 78 24 3a c8 99 32 | AFF"):G$=x$:..2|
0000bf00 36 33 38 37 33 3a e1 0d 2c 6a 8a dd f2 6b 63 3a |63873:..,j...kc:|
0000bf10 6b 3d 32 35 36 3a f2 64 28 26 37 37 36 31 37 32 |k=256:.d(&776172|
0000bf20 34 34 29 3a f2 64 28 32 30 31 29 3a f2 64 28 30 |44):.d(201):.d(0|
0000bf30 29 3a f2 6c 63 28 22 49 6e 76 65 73 74 6f 72 22 |):.lc("Investor"|
0000bf40 29 3a f2 64 28 30 29 3a f2 64 28 30 29 3a f2 64 |):.d(0):.d(0):.d|
0000bf50 28 31 32 38 30 2a 6b 29 3a f2 64 28 31 32 38 30 |(1280*k):.d(1280|
0000bf60 2a 6b 29 3a 6a 25 3d 30 3a 45 25 3d 35 36 34 3a |*k):j%=0:E%=564:|
0000bf70 40 25 3d 30 3a 52 63 25 3d a3 3a 46 3d 30 3a 51 |@%=0:Rc%=.:F=0:Q|
0000bf80 63 25 3d a4 66 28 31 32 30 29 3a c8 8e 49 63 25 |c%=.f(120):..Ic%|
0000bf90 ca 0d 2c 74 56 c9 31 3a 72 25 3d 6c 25 3a 72 3d |..,tV.1:r%=l%:r=|
0000bfa0 75 3a 69 3d 76 3a 73 3d 50 3a 54 63 25 3d 94 28 |u:i=v:s=P:Tc%=.(|
0000bfb0 57 61 25 3d 30 29 3a 55 63 25 3d 94 28 57 61 25 |Wa%=0):Uc%=.(Wa%|
0000bfc0 3d 34 29 3a e7 75 2d 76 3d 30 8c 61 3d 33 35 30 |=4):.u-v=0.a=350|
0000bfd0 2f 75 8b 61 3d 33 35 30 2f 28 75 2d 28 76 2a 94 |/u.a=350/(u-(v*.|
0000bfe0 28 53 63 25 29 29 29 0d 2c 7e 28 46 3d 21 28 75 |(Sc%))).,~(F=!(u|
0000bff0 63 25 2b 38 2a 28 4f 63 25 2d 31 29 2b 34 29 2a |c%+8*(Oc%-1)+4)*|
0000c000 30 2e 30 31 2d 28 69 2a 94 28 53 63 25 29 29 0d |0.01-(i*.(Sc%)).|
0000c010 2c 88 57 c9 32 3a 72 25 3d 4f 25 3a 72 3d 43 3a |,.W.2:r%=O%:r=C:|
0000c020 69 3d 47 3a 73 3d 6e 61 3a 54 63 25 3d 94 28 56 |i=G:s=na:Tc%=.(V|
0000c030 63 25 3d 30 29 3a 55 63 25 3d 94 28 56 63 25 3d |c%=0):Uc%=.(Vc%=|
0000c040 34 29 3a e7 43 2d 47 3d 30 8c 61 3d 33 35 30 2f |4):.C-G=0.a=350/|
0000c050 43 8b 61 3d 33 35 30 2f 28 43 2d 28 47 2a 94 28 |C.a=350/(C-(G*.(|
0000c060 53 63 25 29 29 29 0d 2c 92 2b 46 3d 21 28 70 63 |Sc%))).,.+F=!(pc|
0000c070 25 2b 33 32 2a 28 4f 63 25 2d 31 29 2b 57 63 25 |%+32*(Oc%-1)+Wc%|
0000c080 29 2a 30 2e 30 31 2d 28 69 2a 94 28 53 63 25 29 |)*0.01-(i*.(Sc%)|
0000c090 29 0d 2c 9c 05 cb 0d 2c a6 16 e7 4d 63 25 3d 31 |).,....,...Mc%=1|
0000c0a0 8c 58 63 25 3d b9 8b 58 63 25 3d a3 0d 2c b0 13 |.Xc%=..Xc%=..,..|
0000c0b0 e3 69 25 3d 30 b8 72 25 3a c8 8e 49 63 25 ca 0d |.i%=0.r%:..Ic%..|
0000c0c0 2c ba 2a c9 31 3a 78 25 3d 21 28 75 63 25 2b 38 |,.*.1:x%=!(uc%+8|
0000c0d0 2a 69 25 29 3a 6e 3d 21 28 75 63 25 2b 38 2a 69 |*i%):n=!(uc%+8*i|
0000c0e0 25 2b 34 29 2a 30 2e 30 31 0d 2c c4 2e c9 32 3a |%+4)*0.01.,...2:|
0000c0f0 78 25 3d 21 28 70 63 25 2b 33 32 2a 69 25 29 3a |x%=!(pc%+32*i%):|
0000c100 6e 3d 21 28 70 63 25 2b 33 32 2a 69 25 2b 57 63 |n=!(pc%+32*i%+Wc|
0000c110 25 29 2a 30 2e 30 31 0d 2c ce 05 cb 0d 2c d8 0d |%)*0.01.,....,..|
0000c120 e7 53 63 25 8c 6e 2d 3d 69 0d 2c e2 0c e7 6e 3c |.Sc%.n-=i.,...n<|
0000c130 30 8c 6e 3d 30 0d 2c ec 0a c8 8e 4d 63 25 ca 0d |0.n=0.,....Mc%..|
0000c140 2c f6 0d c9 30 3a c8 8e 59 63 25 ca 0d 2d 00 94 |,...0:..Yc%..-..|
0000c150 c9 30 3a f2 6d 63 28 6a 25 2b 31 36 30 2b 55 25 |.0:.mc(j%+160+U%|
0000c160 2a 30 2e 35 2b 28 55 25 2a 69 25 29 2c 45 25 2d |*0.5+(U%*i%),E%-|
0000c170 34 32 34 2c 6a 25 2b 31 36 30 2b 55 25 2a 30 2e |424,j%+160+U%*0.|
0000c180 35 2b 28 55 25 2a 69 25 29 2c 28 6e 2a 61 29 2b |5+(U%*i%),(n*a)+|
0000c190 45 25 2d 34 32 34 2c a4 69 28 36 29 2c 30 2c 55 |E%-424,.i(6),0,U|
0000c1a0 25 29 3a f2 46 28 6a 25 2b 31 36 30 2b 28 55 25 |%):.F(j%+160+(U%|
0000c1b0 2a 69 25 29 2c 45 25 2d 34 32 34 2c 6a 25 2b 31 |*i%),E%-424,j%+1|
0000c1c0 36 30 2b 28 55 25 2a 69 25 29 2c 28 6e 2a 61 29 |60+(U%*i%),(n*a)|
0000c1d0 2b 45 25 2d 34 32 34 2c a4 69 28 37 29 2c 30 29 |+E%-424,.i(7),0)|
0000c1e0 0d 2d 0a bf f2 46 28 6a 25 2b 31 36 30 2b 28 55 |.-...F(j%+160+(U|
0000c1f0 25 2a 69 25 29 2c 28 6e 2a 61 29 2b 45 25 2d 34 |%*i%),(n*a)+E%-4|
0000c200 32 34 2c 6a 25 2b 31 36 30 2b 28 55 25 2a 28 69 |24,j%+160+(U%*(i|
0000c210 25 2b 31 29 29 2c 28 6e 2a 61 29 2b 45 25 2d 34 |%+1)),(n*a)+E%-4|
0000c220 32 34 2c a4 69 28 37 29 2c 30 29 3a f2 46 28 6a |24,.i(7),0):.F(j|
0000c230 25 2b 31 36 30 2b 28 55 25 2a 28 69 25 2b 31 29 |%+160+(U%*(i%+1)|
0000c240 29 2c 45 25 2d 34 32 34 2c 6a 25 2b 31 36 30 2b |),E%-424,j%+160+|
0000c250 28 55 25 2a 28 69 25 2b 31 29 29 2c 28 6e 2a 61 |(U%*(i%+1)),(n*a|
0000c260 29 2b 45 25 2d 34 32 34 2c a4 69 28 37 29 2c 30 |)+E%-424,.i(7),0|
0000c270 29 3a f2 47 28 c0 a4 67 28 78 25 29 2c 33 29 2c |):.G(..g(x%),3),|
0000c280 6a 25 2b 31 36 30 2b a4 66 28 32 34 29 2b 28 55 |j%+160+.f(24)+(U|
0000c290 25 2a 69 25 29 2c 45 25 2d 34 36 30 2c 30 29 0d |%*i%),E%-460,0).|
0000c2a0 2d 14 36 f2 47 28 c3 28 28 5a 25 2d 32 29 2b 78 |-.6.G(.((Z%-2)+x|
0000c2b0 25 81 31 32 29 2c 6a 25 2b 31 36 30 2b a4 66 28 |%.12),j%+160+.f(|
0000c2c0 31 36 29 2b 28 55 25 2a 69 25 29 2c 45 25 2d 34 |16)+(U%*i%),E%-4|
0000c2d0 39 34 2c 30 29 0d 2d 1e 0d c9 31 3a e7 ac 52 63 |94,0).-...1:..Rc|
0000c2e0 25 8c 0d 2d 28 67 52 63 25 3d b9 3a f2 6e 63 28 |%..-(gRc%=.:.nc(|
0000c2f0 6a 25 2b 31 36 30 2c 45 25 2d 34 32 34 2c 6a 25 |j%+160,E%-424,j%|
0000c300 2b 31 36 30 2b a4 66 28 32 34 30 29 2c 45 25 2d |+160+.f(240),E%-|
0000c310 32 32 34 2c 6a 25 2b 31 36 30 2b a4 66 28 32 34 |224,j%+160+.f(24|
0000c320 30 29 2c 45 25 2d 34 32 34 2b 36 30 30 2c 6a 25 |0),E%-424+600,j%|
0000c330 2b 31 36 30 2c 45 25 2d 32 34 2c a4 69 28 31 32 |+160,E%-24,.i(12|
0000c340 29 2c a4 69 28 31 32 29 29 0d 2d 32 78 f2 6e 63 |),.i(12)).-2x.nc|
0000c350 28 6a 25 2b 31 36 30 2c 45 25 2d 34 32 34 2c 6a |(j%+160,E%-424,j|
0000c360 25 2b 31 36 30 2b a4 66 28 32 34 30 29 2c 45 25 |%+160+.f(240),E%|
0000c370 2d 32 32 34 2c 6a 25 2b 31 36 30 2b a4 66 28 33 |-224,j%+160+.f(3|
0000c380 36 30 29 2b 28 51 63 25 2a 72 25 29 2c 45 25 2d |60)+(Qc%*r%),E%-|
0000c390 32 32 34 2c 6a 25 2b 31 36 30 2b a4 66 28 31 32 |224,j%+160+.f(12|
0000c3a0 30 29 2b 28 51 63 25 2a 72 25 29 2c 45 25 2d 34 |0)+(Qc%*r%),E%-4|
0000c3b0 32 34 2c a4 69 28 31 31 29 2c a4 69 28 31 31 29 |24,.i(11),.i(11)|
0000c3c0 29 0d 2d 3c 05 cd 0d 2d 46 55 f2 6d 63 28 6a 25 |).-<...-FU.mc(j%|
0000c3d0 2b 31 36 30 2b 55 25 2a 30 2e 35 2b 28 51 63 25 |+160+U%*0.5+(Qc%|
0000c3e0 2a 69 25 29 2c 45 25 2d 34 32 34 2c 6a 25 2b 31 |*i%),E%-424,j%+1|
0000c3f0 36 30 2b 55 25 2a 30 2e 35 2b 28 51 63 25 2a 69 |60+U%*0.5+(Qc%*i|
0000c400 25 29 2c 28 6e 2a 61 29 2b 45 25 2d 34 32 34 2c |%),(n*a)+E%-424,|
0000c410 a4 69 28 38 29 2c 30 2c 55 25 29 0d 2d 50 9c f2 |.i(8),0,U%).-P..|
0000c420 6e 63 28 6a 25 2b 31 36 30 2b 28 51 63 25 2a 69 |nc(j%+160+(Qc%*i|
0000c430 25 29 2c 45 25 2d 34 32 34 2b 28 6e 2a 61 29 2c |%),E%-424+(n*a),|
0000c440 6a 25 2b 31 36 30 2b 55 25 2b 28 51 63 25 2a 69 |j%+160+U%+(Qc%*i|
0000c450 25 29 2c 45 25 2d 34 32 34 2b 28 6e 2a 61 29 2c |%),E%-424+(n*a),|
0000c460 6a 25 2b 31 36 30 2b a4 66 28 31 32 34 29 2b 28 |j%+160+.f(124)+(|
0000c470 51 63 25 2a 69 25 29 2c 45 25 2d 34 30 30 2b 28 |Qc%*i%),E%-400+(|
0000c480 6e 2a 61 29 2c 6a 25 2b 31 36 30 2b a4 66 28 32 |n*a),j%+160+.f(2|
0000c490 34 29 2b 28 51 63 25 2a 69 25 29 2c 45 25 2d 34 |4)+(Qc%*i%),E%-4|
0000c4a0 30 30 2b 28 6e 2a 61 29 2c a4 69 28 31 30 29 2c |00+(n*a),.i(10),|
0000c4b0 a4 69 28 31 30 29 29 0d 2d 5a c1 f2 6e 63 28 6a |.i(10)).-Z..nc(j|
0000c4c0 25 2b 31 36 30 2b 55 25 2b 28 51 63 25 2a 69 25 |%+160+U%+(Qc%*i%|
0000c4d0 29 2c 45 25 2d 34 32 34 2c 6a 25 2b 31 36 30 2b |),E%-424,j%+160+|
0000c4e0 a4 66 28 31 32 34 29 2b 28 51 63 25 2a 69 25 29 |.f(124)+(Qc%*i%)|
0000c4f0 2c 45 25 2d 34 30 30 2c 6a 25 2b 31 36 30 2b a4 |,E%-400,j%+160+.|
0000c500 66 28 31 32 34 29 2b 28 51 63 25 2a 69 25 29 2c |f(124)+(Qc%*i%),|
0000c510 45 25 2d 34 30 30 2b 28 6e 2a 61 29 2c 6a 25 2b |E%-400+(n*a),j%+|
0000c520 31 36 30 2b 55 25 2b 28 51 63 25 2a 69 25 29 2c |160+U%+(Qc%*i%),|
0000c530 45 25 2d 34 32 34 2b 28 6e 2a 61 29 2c a4 69 28 |E%-424+(n*a),.i(|
0000c540 39 29 2c a4 69 28 39 29 29 3a f2 47 28 c0 a4 67 |9),.i(9)):.G(..g|
0000c550 28 78 25 29 2c 33 29 2c 6a 25 2b 31 36 30 2b a4 |(x%),3),j%+160+.|
0000c560 66 28 32 34 29 2b 28 51 63 25 2a 69 25 29 2c 45 |f(24)+(Qc%*i%),E|
0000c570 25 2d 34 36 30 2c 30 29 0d 2d 64 37 f2 47 28 c3 |%-460,0).-d7.G(.|
0000c580 28 28 5a 25 2d 32 29 2b 78 25 81 31 32 29 2c 6a |((Z%-2)+x%.12),j|
0000c590 25 2b 31 36 30 2b a4 66 28 31 36 29 2b 28 51 63 |%+160+.f(16)+(Qc|
0000c5a0 25 2a 69 25 29 2c 45 25 2d 34 39 34 2c 30 29 0d |%*i%),E%-494,0).|
0000c5b0 2d 6e 05 cb 0d 2d 78 0d c9 31 3a e7 69 25 3e 30 |-n...-x..1:.i%>0|
0000c5c0 8c 0d 2d 82 4b f2 46 28 6a 25 2b 31 36 30 2b 28 |..-.K.F(j%+160+(|
0000c5d0 55 25 2a 28 69 25 2d 31 29 29 2c 45 25 2d 34 32 |U%*(i%-1)),E%-42|
0000c5e0 34 2b 28 46 2a 61 29 2c 6a 25 2b 31 36 30 2b 28 |4+(F*a),j%+160+(|
0000c5f0 55 25 2a 69 25 29 2c 28 6e 2a 61 29 2b 45 25 2d |U%*i%),(n*a)+E%-|
0000c600 34 32 34 2c a4 69 28 35 29 2c 30 29 0d 2d 8c 05 |424,.i(5),0).-..|
0000c610 cd 0d 2d 96 5a f2 47 28 c0 a4 67 28 78 25 29 2c |..-.Z.G(..g(x%),|
0000c620 33 29 2c 6a 25 2b 31 33 32 2b 28 55 25 2a 69 25 |3),j%+132+(U%*i%|
0000c630 29 2c 45 25 2d 34 36 30 2c 30 29 3a f2 47 28 c3 |),E%-460,0):.G(.|
0000c640 28 28 5a 25 2d 32 29 2b 78 25 81 31 32 29 2c 6a |((Z%-2)+x%.12),j|
0000c650 25 2b 31 32 34 2b 28 55 25 2a 69 25 29 2c 45 25 |%+124+(U%*i%),E%|
0000c660 2d 34 39 34 2c 30 29 3a 46 3d 6e 0d 2d a0 05 cb |-494,0):F=n.-...|
0000c670 0d 2d aa 9d ed 3a 5f 63 25 3d a4 66 28 28 31 30 |.-...:_c%=.f((10|
0000c680 30 2b 28 32 30 2a 94 28 52 63 25 29 29 29 2a 28 |0+(20*.(Rc%)))*(|
0000c690 72 25 2b 31 29 2d 28 39 38 2a 94 28 58 63 25 29 |r%+1)-(98*.(Xc%)|
0000c6a0 29 29 3a f2 46 28 6a 25 2b 31 36 30 2c 45 25 2d |)):.F(j%+160,E%-|
0000c6b0 34 32 34 2c 6a 25 2b 31 36 30 2c 45 25 2b 32 30 |424,j%+160,E%+20|
0000c6c0 2c a4 69 28 31 29 2c 30 29 3a f2 46 28 6a 25 2b |,.i(1),0):.F(j%+|
0000c6d0 31 36 30 2c 45 25 2d 34 32 34 2c 6a 25 2b 31 36 |160,E%-424,j%+16|
0000c6e0 30 2b 5f 63 25 2c 45 25 2d 34 32 34 2c a4 69 28 |0+_c%,E%-424,.i(|
0000c6f0 30 29 2c 30 29 3a 6a 3d 76 2a 94 28 53 63 25 29 |0),0):j=v*.(Sc%)|
0000c700 3a 6a 25 2b 3d 36 3a c8 8e 60 63 25 ca 0d 2d b4 |:j%+=6:..`c%..-.|
0000c710 89 c9 b9 3a 61 64 25 3d 5f 63 25 2d 32 30 3a f2 |...:ad%=_c%-20:.|
0000c720 46 28 6a 25 2b 31 36 30 2c 45 25 2d 34 32 34 2b |F(j%+160,E%-424+|
0000c730 28 72 2d 6a 29 2a 61 2c 6a 25 2b 31 36 38 2b 61 |(r-j)*a,j%+168+a|
0000c740 64 25 2c 45 25 2d 34 32 34 2b 28 72 2d 6a 29 2a |d%,E%-424+(r-j)*|
0000c750 61 2c a4 69 28 32 29 2c 30 29 3a f2 46 28 6a 25 |a,.i(2),0):.F(j%|
0000c760 2b 31 36 30 2c 45 25 2d 34 32 34 2b 28 69 2d 6a |+160,E%-424+(i-j|
0000c770 29 2a 61 2c 6a 25 2b 31 36 38 2b 61 64 25 2c 45 |)*a,j%+168+ad%,E|
0000c780 25 2d 34 32 34 2b 28 69 2d 6a 29 2a 61 2c a4 69 |%-424+(i-j)*a,.i|
0000c790 28 34 29 2c 30 29 0d 2d be bd f2 46 28 6a 25 2b |(4),0).-...F(j%+|
0000c7a0 31 36 30 2c 45 25 2d 34 32 34 2b 28 73 2d 6a 29 |160,E%-424+(s-j)|
0000c7b0 2a 61 2c 6a 25 2b 31 36 38 2b 61 64 25 2c 45 25 |*a,j%+168+ad%,E%|
0000c7c0 2d 34 32 34 2b 28 73 2d 6a 29 2a 61 2c a4 69 28 |-424+(s-j)*a,.i(|
0000c7d0 33 29 2c 30 29 3a 6a 25 2d 3d 36 3a 40 25 3d 31 |3),0):j%-=6:@%=1|
0000c7e0 36 39 30 38 38 31 30 3a f2 47 28 22 a3 22 2b c3 |6908810:.G("."+.|
0000c7f0 28 72 29 2c 6a 25 2b 31 33 32 2d 28 31 36 2a a9 |(r),j%+132-(16*.|
0000c800 28 c3 28 72 29 29 29 2c 45 25 2d 34 31 32 2b 28 |(.(r))),E%-412+(|
0000c810 72 2d 6a 29 2a 61 2c a4 69 28 32 29 29 3a f2 47 |r-j)*a,.i(2)):.G|
0000c820 28 22 a3 22 2b c3 28 69 29 2c 6a 25 2b 31 33 32 |("."+.(i),j%+132|
0000c830 2d 28 31 36 2a a9 28 c3 28 69 29 29 29 2c 45 25 |-(16*.(.(i))),E%|
0000c840 2d 34 31 32 2b 28 69 2d 6a 29 2a 61 2c a4 69 28 |-412+(i-j)*a,.i(|
0000c850 34 29 29 0d 2d c8 39 f2 47 28 22 a3 22 2b c3 28 |4)).-.9.G("."+.(|
0000c860 73 29 2c 6a 25 2b 31 33 32 2d 28 31 36 2a a9 28 |s),j%+132-(16*.(|
0000c870 c3 28 73 29 29 29 2c 45 25 2d 34 31 32 2b 28 73 |.(s))),E%-412+(s|
0000c880 2d 6a 29 2a 61 2c a4 69 28 33 29 29 0d 2d d2 06 |-j)*a,.i(3)).-..|
0000c890 c9 a3 0d 2d dc 05 cb 0d 2d e6 15 c8 99 32 36 32 |...-....-....262|
0000c8a0 33 37 34 2c 37 3a 40 25 3d 30 3a e1 0d 2d f0 4a |374,7:@%=0:..-.J|
0000c8b0 dd f2 46 28 6f 2c 70 2c 6d 2c 6c 2c 4e 67 25 2c |..F(o,p,m,l,Ng%,|
0000c8c0 4f 67 25 29 3a 6f 3d 6f 2a 6b 3a 6d 3d 6d 2a 6b |Og%):o=o*k:m=m*k|
0000c8d0 3a 70 3d 70 2a 6b 3a 6c 3d 6c 2a 6b 3a f2 64 28 |:p=p*k:l=l*k:.d(|
0000c8e0 32 29 3a f2 64 28 36 38 29 3a e7 6d 3c 6f 8c 77 |2):.d(68):.m<o.w|
0000c8f0 3d 6d 8b 77 3d 6f 0d 2d fa 10 e7 6c 3c 70 8c 7a |=m.w=o.-...l<p.z|
0000c900 3d 6c 8b 7a 3d 70 0d 2e 04 10 e7 6f 3e 6d 8c 41 |=l.z=p.....o>m.A|
0000c910 3d 6f 8b 41 3d 6d 0d 2e 0e 10 e7 70 3e 6c 8c 42 |=o.A=m.....p>l.B|
0000c920 3d 70 8b 42 3d 6c 0d 2e 18 63 f2 64 28 77 29 3a |=p.B=l...c.d(w):|
0000c930 f2 64 28 7a 29 3a f2 64 28 41 29 3a f2 64 28 42 |.d(z):.d(A):.d(B|
0000c940 29 3a f2 64 28 4f 67 25 29 3a f2 64 28 4e 67 25 |):.d(Og%):.d(Ng%|
0000c950 29 3a f2 64 28 30 29 3a f2 64 28 30 29 3a f2 64 |):.d(0):.d(0):.d|
0000c960 28 32 29 3a f2 64 28 6f 29 3a f2 64 28 70 29 3a |(2):.d(o):.d(p):|
0000c970 f2 64 28 38 29 3a f2 64 28 6d 29 3a f2 64 28 6c |.d(8):.d(m):.d(l|
0000c980 29 3a f2 64 28 30 29 3a e1 0d 2e 22 4f dd f2 6d |):.d(0):..."O..m|
0000c990 63 28 6f 2c 70 2c 6d 2c 6c 2c 4e 67 25 2c 4f 67 |c(o,p,m,l,Ng%,Og|
0000c9a0 25 2c 4c 63 25 29 3a 6f 3d 6f 2a 6b 3a 6d 3d 6d |%,Lc%):o=o*k:m=m|
0000c9b0 2a 6b 3a 70 3d 70 2a 6b 3a 6c 3d 6c 2a 6b 3a f2 |*k:p=p*k:l=l*k:.|
0000c9c0 64 28 32 29 3a f2 64 28 36 38 29 3a e7 6d 3c 6f |d(2):.d(68):.m<o|
0000c9d0 8c 77 3d 6d 8b 77 3d 6f 0d 2e 2c 10 e7 6c 3c 70 |.w=m.w=o..,..l<p|
0000c9e0 8c 7a 3d 6c 8b 7a 3d 70 0d 2e 36 10 e7 6f 3e 6d |.z=l.z=p..6..o>m|
0000c9f0 8c 41 3d 6f 8b 41 3d 6d 0d 2e 40 10 e7 70 3e 6c |.A=o.A=m..@..p>l|
0000ca00 8c 42 3d 70 8b 42 3d 6c 0d 2e 4a 67 f2 64 28 77 |.B=p.B=l..Jg.d(w|
0000ca10 29 3a f2 64 28 7a 29 3a f2 64 28 41 29 3a f2 64 |):.d(z):.d(A):.d|
0000ca20 28 42 29 3a f2 64 28 4f 67 25 29 3a f2 64 28 4e |(B):.d(Og%):.d(N|
0000ca30 67 25 29 3a f2 64 28 4c 63 25 2a 6b 29 3a f2 64 |g%):.d(Lc%*k):.d|
0000ca40 28 30 29 3a f2 64 28 32 29 3a f2 64 28 6f 29 3a |(0):.d(2):.d(o):|
0000ca50 f2 64 28 70 29 3a f2 64 28 38 29 3a f2 64 28 6d |.d(p):.d(8):.d(m|
0000ca60 29 3a f2 64 28 6c 29 3a f2 64 28 30 29 3a e1 0d |):.d(l):.d(0):..|
0000ca70 2e 54 2a dd f2 47 28 63 24 2c 78 2c 79 2c 4e 67 |.T*..G(c$,x,y,Ng|
0000ca80 25 29 3a e7 28 a9 28 63 24 29 83 34 29 3d 30 8c |%):.(.(c$).4)=0.|
0000ca90 63 24 2b 3d 22 20 20 20 22 0d 2e 5e 19 e7 28 a9 |c$+=" "..^..(.|
0000caa0 28 63 24 29 83 34 29 3d 31 8c 63 24 2b 3d 22 20 |(c$).4)=1.c$+=" |
0000cab0 20 22 0d 2e 68 18 e7 28 a9 28 63 24 29 83 34 29 | "..h..(.(c$).4)|
0000cac0 3d 32 8c 63 24 2b 3d 22 20 22 0d 2e 72 ae 63 24 |=2.c$+=" "..r.c$|
0000cad0 2b 3d bd 30 3a 46 61 3d a9 28 63 24 29 81 34 3a |+=.0:Fa=.(c$).4:|
0000cae0 46 61 3d 28 46 61 2b 31 29 2a 34 3a 78 3d 78 2a |Fa=(Fa+1)*4:x=x*|
0000caf0 6b 3a 79 2d 3d 33 32 3a 79 3d 79 2a 6b 3a f2 64 |k:y-=32:y=y*k:.d|
0000cb00 28 31 29 3a f2 64 28 34 38 2b 46 61 29 3a f2 64 |(1):.d(48+Fa):.d|
0000cb10 28 78 29 3a f2 64 28 79 29 3a f2 64 28 78 2b a9 |(x):.d(y):.d(x+.|
0000cb20 28 63 24 29 2a 34 30 2a 6b 29 3a f2 64 28 79 2b |(c$)*40*k):.d(y+|
0000cb30 34 30 2a 6b 29 3a f2 64 28 4e 67 25 29 3a f2 64 |40*k):.d(Ng%):.d|
0000cb40 28 2d 32 35 36 29 3a f2 64 28 30 29 3a f2 64 28 |(-256):.d(0):.d(|
0000cb50 31 36 2a 6b 29 3a f2 64 28 33 32 2a 6b 29 3a f2 |16*k):.d(32*k):.|
0000cb60 64 28 78 29 3a f2 64 28 79 29 3a f2 6f 63 28 63 |d(x):.d(y):.oc(c|
0000cb70 24 29 3a f2 70 63 3a e1 0d 2e 7c 78 dd f2 6e 63 |$):.pc:...|x..nc|
0000cb80 28 6f 2c 70 2c 6d 2c 6c 2c 4a 2c 4b 2c 4c 2c 4d |(o,p,m,l,J,K,L,M|
0000cb90 2c 4e 67 25 2c 4f 67 25 29 3a 6f 3d 6f 2a 6b 3a |,Ng%,Og%):o=o*k:|
0000cba0 6d 3d 6d 2a 6b 3a 70 3d 70 2a 6b 3a 6c 3d 6c 2a |m=m*k:p=p*k:l=l*|
0000cbb0 6b 3a 4a 3d 4a 2a 6b 3a 4c 3d 4c 2a 6b 3a 4b 3d |k:J=J*k:L=L*k:K=|
0000cbc0 4b 2a 6b 3a 4d 3d 4d 2a 6b 3a f2 64 28 32 29 3a |K*k:M=M*k:.d(2):|
0000cbd0 f2 64 28 31 30 34 29 3a 77 3d 6f 3a 41 3d 6f 3a |.d(104):w=o:A=o:|
0000cbe0 7a 3d 70 3a 42 3d 6c 3a e7 6d 3c 77 8c 77 3d 6d |z=p:B=l:.m<w.w=m|
0000cbf0 0d 2e 86 0c e7 4a 3c 77 8c 77 3d 4a 0d 2e 90 0c |.....J<w.w=J....|
0000cc00 e7 4c 3c 77 8c 77 3d 4c 0d 2e 9a 0c e7 6d 3e 41 |.L<w.w=L.....m>A|
0000cc10 8c 41 3d 6d 0d 2e a4 0c e7 4a 3e 41 8c 41 3d 4a |.A=m.....J>A.A=J|
0000cc20 0d 2e ae 0c e7 4c 3e 41 8c 41 3d 4c 0d 2e b8 0c |.....L>A.A=L....|
0000cc30 e7 6c 3c 7a 8c 7a 3d 6c 0d 2e c2 0c e7 4b 3c 7a |.l<z.z=l.....K<z|
0000cc40 8c 7a 3d 4b 0d 2e cc 0c e7 4d 3c 7a 8c 7a 3d 4d |.z=K.....M<z.z=M|
0000cc50 0d 2e d6 0c e7 6c 3e 42 8c 42 3d 6c 0d 2e e0 0c |.....l>B.B=l....|
0000cc60 e7 4b 3e 42 8c 42 3d 4b 0d 2e ea 0c e7 4d 3e 42 |.K>B.B=K.....M>B|
0000cc70 8c 42 3d 4d 0d 2e f4 99 f2 64 28 77 29 3a f2 64 |.B=M.....d(w):.d|
0000cc80 28 7a 29 3a f2 64 28 41 29 3a f2 64 28 42 29 3a |(z):.d(A):.d(B):|
0000cc90 f2 64 28 4f 67 25 29 3a f2 64 28 4e 67 25 29 3a |.d(Og%):.d(Ng%):|
0000cca0 f2 64 28 30 29 3a f2 64 28 30 29 3a f2 64 28 32 |.d(0):.d(0):.d(2|
0000ccb0 29 3a f2 64 28 6f 29 3a f2 64 28 70 29 3a f2 64 |):.d(o):.d(p):.d|
0000ccc0 28 38 29 3a f2 64 28 6d 29 3a f2 64 28 6c 29 3a |(8):.d(m):.d(l):|
0000ccd0 f2 64 28 38 29 3a f2 64 28 4a 29 3a f2 64 28 4b |.d(8):.d(J):.d(K|
0000cce0 29 3a f2 64 28 38 29 3a f2 64 28 4c 29 3a f2 64 |):.d(8):.d(L):.d|
0000ccf0 28 4d 29 3a f2 64 28 38 29 3a f2 64 28 6f 29 3a |(M):.d(8):.d(o):|
0000cd00 f2 64 28 70 29 3a f2 64 28 30 29 3a e1 0d 2e fe |.d(p):.d(0):....|
0000cd10 51 dd f2 64 28 41 25 29 3a d5 23 44 25 2c 41 25 |Q..d(A%):.#D%,A%|
0000cd20 80 32 35 35 3a d5 23 44 25 2c 28 41 25 3e 3e 3e |.255:.#D%,(A%>>>|
0000cd30 38 29 80 32 35 35 3a d5 23 44 25 2c 28 41 25 3e |8).255:.#D%,(A%>|
0000cd40 3e 3e 31 36 29 80 32 35 35 3a d5 23 44 25 2c 28 |>>16).255:.#D%,(|
0000cd50 41 25 3e 3e 3e 32 34 29 80 32 35 35 3a e1 0d 2f |A%>>>24).255:../|
0000cd60 08 3e dd f2 6c 63 28 41 24 29 3a ea 41 25 3a 41 |.>..lc(A$):.A%:A|
0000cd70 24 3d 41 24 2b c4 31 32 2c 22 20 22 29 3a e3 41 |$=A$+.12," "):.A|
0000cd80 25 3d 31 b8 31 32 3a d5 23 44 25 2c 97 28 c1 41 |%=1.12:.#D%,.(.A|
0000cd90 24 2c 41 25 2c 31 29 29 3a ed 3a e1 0d 2f 12 32 |$,A%,1)):.:../.2|
0000cda0 dd f2 6f 63 28 41 24 29 3a ea 41 25 3a e3 41 25 |..oc(A$):.A%:.A%|
0000cdb0 3d 31 b8 a9 28 41 24 29 3a d5 23 44 25 2c 97 28 |=1..(A$):.#D%,.(|
0000cdc0 c1 41 24 2c 41 25 2c 31 29 29 3a ed 3a e1 0d 2f |.A$,A%,1)):.:../|
0000cdd0 1c 1c dd f2 70 63 3a c8 95 8f 23 44 25 80 33 3a |....pc:...#D%.3:|
0000cde0 d5 23 44 25 2c 30 3a ce 3a e1 0d 2f 26 19 dd f2 |.#D%,0:.:../&...|
0000cdf0 4e 61 28 79 24 29 3a e7 ac 28 a4 70 28 79 24 29 |Na(y$):..(.p(y$)|
0000ce00 29 8c e1 0d 2f 30 a0 ec 35 30 30 30 30 2c 30 3a |).../0..50000,0:|
0000ce10 ff 28 22 53 50 4f 4f 4c 20 22 2b 79 24 29 3a f1 |.("SPOOL "+y$):.|
0000ce20 22 50 6f 72 74 66 6f 6c 69 6f 20 44 69 76 69 64 |"Portfolio Divid|
0000ce30 65 6e 64 73 3a 20 22 3b 61 24 28 49 25 29 3b bd |ends: ";a$(I%);.|
0000ce40 28 31 30 29 3b 3a f1 bd 28 31 30 29 3b 3a f1 22 |(10);:..(10);:."|
0000ce50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
0000ce70 20 20 20 20 20 20 20 20 20 20 20 44 49 56 49 44 | DIVID|
0000ce80 45 4e 44 20 20 20 20 20 20 20 54 41 58 20 20 20 |END TAX |
0000ce90 20 20 20 20 20 20 20 20 4e 45 54 22 3b bd 28 31 | NET";.(1|
0000cea0 30 29 3b 0d 2f 3a a4 f1 22 53 54 4f 43 4b 20 4e |0);./:.."STOCK N|
0000ceb0 41 4d 45 20 20 20 20 20 20 20 20 20 20 20 20 20 |AME |
0000cec0 20 20 59 45 41 52 20 20 20 4d 4f 4e 54 48 20 20 | YEAR MONTH |
0000ced0 20 20 20 41 4d 4f 55 4e 54 20 28 a3 29 20 20 20 | AMOUNT (.) |
0000cee0 43 52 45 44 49 54 20 28 a3 29 20 20 20 44 49 56 |CREDIT (.) DIV|
0000cef0 49 44 45 4e 44 20 28 a3 29 22 3b bd 28 31 30 29 |IDEND (.)";.(10)|
0000cf00 3b bd 28 31 30 29 3b 3a e3 75 25 3d 30 b8 76 25 |;.(10);:.u%=0.v%|
0000cf10 28 49 25 29 3a 78 63 25 3d 21 28 62 25 28 49 25 |(I%):xc%=!(b%(I%|
0000cf20 29 2b 33 36 2a 75 25 2b 32 34 29 3a 7a 24 3d c0 |)+36*u%+24):z$=.|
0000cf30 24 28 62 25 28 49 25 29 2b 33 36 2a 75 25 29 29 |$(b%(I%)+36*u%))|
0000cf40 3a e7 75 25 3e 30 8c 0d 2f 44 23 e7 7a 24 3d c0 |:.u%>0../D#.z$=.|
0000cf50 24 28 62 25 28 49 25 29 2b 33 36 2a 28 75 25 2d |$(b%(I%)+36*(u%-|
0000cf60 31 29 29 29 8c 7a 24 3d 22 22 0d 2f 4e 05 cd 0d |1))).z$=""./N...|
0000cf70 2f 58 16 f1 7a 24 3b 3a 40 25 3d 30 3a e7 78 63 |/X..z$;:@%=0:.xc|
0000cf80 25 3e 2d 31 8c 0d 2f 62 41 f1 89 28 32 35 2d a9 |%>-1../bA..(25-.|
0000cf90 28 7a 24 29 29 3b 78 63 25 81 31 32 2b 5a 25 2d |(z$));xc%.12+Z%-|
0000cfa0 32 3b 22 20 20 20 22 3b a4 67 28 78 63 25 29 3b |2;" ";.g(xc%);|
0000cfb0 89 28 31 30 2d a9 28 a4 67 28 78 63 25 29 29 29 |.(10-.(.g(xc%)))|
0000cfc0 3b 89 28 31 29 3b 0d 2f 6c 05 cd 0d 2f 76 26 40 |;.(1);./l.../v&@|
0000cfd0 25 3d 31 36 39 30 38 38 30 37 3a e7 21 28 62 25 |%=16908807:.!(b%|
0000cfe0 28 49 25 29 2b 33 36 2a 75 25 2b 32 38 29 3e 30 |(I%)+36*u%+28)>0|
0000cff0 8c 0d 2f 80 23 f1 21 28 62 25 28 49 25 29 2b 33 |../.#.!(b%(I%)+3|
0000d000 36 2a 75 25 2b 32 38 29 2a 30 2e 30 30 31 3b 89 |6*u%+28)*0.001;.|
0000d010 28 36 29 3b 0d 2f 8a 05 cd 0d 2f 94 1a e7 21 28 |(6);./..../...!(|
0000d020 62 25 28 49 25 29 2b 33 36 2a 75 25 2b 33 32 29 |b%(I%)+36*u%+32)|
0000d030 3e 30 8c 0d 2f 9e 23 f1 21 28 62 25 28 49 25 29 |>0../.#.!(b%(I%)|
0000d040 2b 33 36 2a 75 25 2b 33 32 29 2a 30 2e 30 30 31 |+36*u%+32)*0.001|
0000d050 3b 89 28 37 29 3b 0d 2f a8 05 cd 0d 2f b2 2f e7 |;.(7);./...././.|
0000d060 21 28 62 25 28 49 25 29 2b 33 36 2a 75 25 2b 32 |!(b%(I%)+36*u%+2|
0000d070 38 29 3e 30 80 21 28 62 25 28 49 25 29 2b 33 36 |8)>0.!(b%(I%)+36|
0000d080 2a 75 25 2b 33 32 29 3e 30 8c 0d 2f bc 3b f1 28 |*u%+32)>0../.;.(|
0000d090 21 28 62 25 28 49 25 29 2b 33 36 2a 75 25 2b 32 |!(b%(I%)+36*u%+2|
0000d0a0 38 29 2a 30 2e 30 30 31 29 2d 28 21 28 62 25 28 |8)*0.001)-(!(b%(|
0000d0b0 49 25 29 2b 33 36 2a 75 25 2b 33 32 29 2a 30 2e |I%)+36*u%+32)*0.|
0000d0c0 30 30 31 29 3b 0d 2f c6 05 cd 0d 2f d0 3d f1 bd |001);./..../.=..|
0000d0d0 28 31 30 29 3b 3a ed 3a 40 25 3d 30 3a ff 28 22 |(10);:.:@%=0:.("|
0000d0e0 53 50 4f 4f 4c 22 29 3a ff 28 22 53 45 54 54 59 |SPOOL"):.("SETTY|
0000d0f0 50 45 20 22 2b 79 24 2b 22 20 46 46 46 22 29 3a |PE "+y$+" FFF"):|
0000d100 49 24 3d 79 24 3a e1 0d 2f da 24 dd f2 41 61 28 |I$=y$:../.$..Aa(|
0000d110 71 25 2c 50 67 25 29 3a e7 71 25 21 31 32 3d 30 |q%,Pg%):.q%!12=0|
0000d120 80 71 25 21 34 30 3d 32 35 36 8c 0d 2f e4 48 21 |.q%!40=256../.H!|
0000d130 71 25 3d 32 30 3a 71 25 21 31 32 3d 77 61 25 3a |q%=20:q%!12=wa%:|
0000d140 71 25 21 31 36 3d 34 3a c8 99 32 36 32 33 37 35 |q%!16=4:..262375|
0000d150 2c 31 37 2c 71 25 2c 76 61 25 3a f2 6c 61 28 71 |,17,q%,va%:.la(q|
0000d160 25 21 32 30 2c a4 68 28 71 25 2b 34 34 29 2c 50 |%!20,.h(q%+44),P|
0000d170 67 25 29 0d 2f ee 05 cd 0d 2f f8 05 e1 0d 30 02 |g%)./..../....0.|
0000d180 50 dd f2 6c 61 28 51 67 25 2c 64 61 24 2c 50 67 |P..la(Qg%,da$,Pg|
0000d190 25 29 3a 52 67 25 3d a3 3a 42 24 3d 64 61 24 3a |%):Rg%=.:B$=da$:|
0000d1a0 52 25 3d 51 67 25 3a e3 41 62 25 3d 30 b8 35 3a |R%=Qg%:.Ab%=0.5:|
0000d1b0 e7 61 25 28 41 62 25 29 3d 52 25 80 61 25 28 41 |.a%(Ab%)=R%.a%(A|
0000d1c0 62 25 29 3c 3e 30 8c 52 25 3d 41 62 25 0d 30 0c |b%)<>0.R%=Ab%.0.|
0000d1d0 1c ed 3a e7 52 25 3c 30 84 52 25 3e 35 84 50 67 |..:.R%<0.R%>5.Pg|
0000d1e0 25 3d 35 8c 52 25 3d a4 79 0d 30 16 0a e7 52 25 |%=5.R%=.y.0...R%|
0000d1f0 3d 36 8c 0d 30 20 24 f2 71 28 22 4e 6f 20 70 6f |=6..0 $.q("No po|
0000d200 72 74 66 6f 6c 69 6f 73 20 61 76 61 69 6c 61 62 |rtfolios availab|
0000d210 6c 65 2e 22 29 3a e1 0d 30 2a 95 cc 3a e7 65 25 |le."):..0*..:.e%|
0000d220 28 52 25 29 8c f2 53 28 33 2c 22 54 68 69 73 20 |(R%)..S(3,"This |
0000d230 70 6f 72 74 66 6f 6c 69 6f 20 63 6f 6e 74 61 69 |portfolio contai|
0000d240 6e 73 20 75 6e 73 61 76 65 64 20 64 61 74 61 3a |ns unsaved data:|
0000d250 20 61 72 65 20 79 6f 75 20 73 75 72 65 20 79 6f | are you sure yo|
0000d260 75 20 77 61 6e 74 20 74 6f 20 6c 6f 61 64 20 74 |u want to load t|
0000d270 68 65 20 70 6f 72 74 66 6f 6c 69 6f 20 61 6e 64 |he portfolio and|
0000d280 20 6f 76 65 72 77 72 69 74 65 20 74 68 65 20 63 | overwrite the c|
0000d290 75 72 72 65 6e 74 20 70 6f 72 74 66 6f 6c 69 6f |urrent portfolio|
0000d2a0 3f 22 2c 22 4c 6f 61 64 22 29 3a e1 0d 30 34 05 |?","Load"):..04.|
0000d2b0 cd 0d 30 3e 09 f2 44 62 3a e1 0d 30 48 43 dd f2 |..0>..Db:..0HC..|
0000d2c0 71 63 3a d9 23 4c 25 3a f2 71 28 22 45 72 72 6f |qc:.#L%:.q("Erro|
0000d2d0 72 20 77 68 69 6c 73 74 20 6c 6f 61 64 69 6e 67 |r whilst loading|
0000d2e0 20 70 6f 72 74 66 6f 6c 69 6f 20 66 69 6c 65 2e | portfolio file.|
0000d2f0 22 29 3a f2 42 28 34 2c 52 25 29 3a e1 0d 30 52 |"):.B(4,R%):..0R|
0000d300 23 dd f2 44 62 3a ea 56 24 2c 53 67 25 2c 47 61 |#..Db:.V$,Sg%,Ga|
0000d310 2c 48 61 3a ea 85 3a ee 85 ea 3a f2 71 63 3a e1 |,Ha:..:...:.qc:.|
0000d320 0d 30 5c 42 c8 99 32 36 33 38 37 32 3a c8 99 38 |.0\B..263872:..8|
0000d330 2c 35 2c 42 24 b8 2c 2c 2c 2c 43 67 25 3a f2 61 |,5,B$.,,,,Cg%:.a|
0000d340 62 3a 4c 25 3d 8e 28 42 24 29 3a e8 23 4c 25 2c |b:L%=.(B$):.#L%,|
0000d350 54 67 25 3a e7 54 67 25 3c 3e 5a 25 8c 52 67 25 |Tg%:.Tg%<>Z%.Rg%|
0000d360 3d b9 0d 30 66 73 e8 23 4c 25 2c 65 24 28 52 25 |=..0fs.#L%,e$(R%|
0000d370 29 3a e3 79 67 25 3d 30 b8 33 35 3a e8 23 4c 25 |):.yg%=0.35:.#L%|
0000d380 2c 6e 25 28 52 25 2c 79 67 25 29 3a ed 3a e3 55 |,n%(R%,yg%):.:.U|
0000d390 67 25 3d 30 b8 33 35 3a 73 25 28 52 25 2c 55 67 |g%=0.35:s%(R%,Ug|
0000d3a0 25 29 3d a4 6b 28 73 25 28 52 25 2c 55 67 25 29 |%)=.k(s%(R%,Ug%)|
0000d3b0 2c 33 36 2a 6e 25 28 52 25 2c 55 67 25 29 2b 33 |,36*n%(R%,Ug%)+3|
0000d3c0 36 2c 54 25 29 3a e7 ac 54 25 8c f2 42 28 34 2c |6,T%):..T%..B(4,|
0000d3d0 52 25 29 3a e1 0d 30 70 12 e7 6e 25 28 52 25 2c |R%):..0p..n%(R%,|
0000d3e0 55 67 25 29 3e 30 8c 0d 30 7a b2 e3 42 67 25 3d |Ug%)>0..0z..Bg%=|
0000d3f0 30 b8 6e 25 28 52 25 2c 55 67 25 29 2d 31 3a e8 |0.n%(R%,Ug%)-1:.|
0000d400 23 4c 25 2c 56 24 3a 24 28 73 25 28 52 25 2c 55 |#L%,V$:$(s%(R%,U|
0000d410 67 25 29 2b 33 36 2a 42 67 25 29 3d 56 24 2b 22 |g%)+36*Bg%)=V$+"|
0000d420 30 22 3a e8 23 4c 25 2c 53 67 25 3a 21 28 73 25 |0":.#L%,Sg%:!(s%|
0000d430 28 52 25 2c 55 67 25 29 2b 33 36 2a 42 67 25 2b |(R%,Ug%)+36*Bg%+|
0000d440 32 34 29 3d 53 67 25 3a e8 23 4c 25 2c 47 61 3a |24)=Sg%:.#L%,Ga:|
0000d450 21 28 73 25 28 52 25 2c 55 67 25 29 2b 33 36 2a |!(s%(R%,Ug%)+36*|
0000d460 42 67 25 2b 32 38 29 3d 47 61 2a 31 30 30 30 3a |Bg%+28)=Ga*1000:|
0000d470 e8 23 4c 25 2c 48 61 3a 21 28 73 25 28 52 25 2c |.#L%,Ha:!(s%(R%,|
0000d480 55 67 25 29 2b 33 36 2a 42 67 25 2b 33 32 29 3d |Ug%)+36*Bg%+32)=|
0000d490 48 61 2a 31 30 30 30 3a ed 0d 30 84 05 cd 0d 30 |Ha*1000:..0....0|
0000d4a0 8e 1d ed 3a e8 23 4c 25 2c 76 25 28 52 25 29 3a |...:.#L%,v%(R%):|
0000d4b0 e7 76 25 28 52 25 29 3e 2d 31 8c 0d 30 98 39 e3 |.v%(R%)>-1..0.9.|
0000d4c0 71 67 25 3d 30 b8 76 25 28 52 25 29 3a 62 25 28 |qg%=0.v%(R%):b%(|
0000d4d0 52 25 29 3d a4 6b 28 62 25 28 52 25 29 2c 33 36 |R%)=.k(b%(R%),36|
0000d4e0 2c 54 25 29 3a e7 ac 54 25 8c f2 42 28 34 2c 52 |,T%):..T%..B(4,R|
0000d4f0 25 29 3a e1 0d 30 a2 8a e8 23 4c 25 2c 4d 24 3a |%):..0...#L%,M$:|
0000d500 e8 23 4c 25 2c 56 67 25 3a e8 23 4c 25 2c 73 61 |.#L%,Vg%:.#L%,sa|
0000d510 3a e8 23 4c 25 2c 74 61 3a 24 28 62 25 28 52 25 |:.#L%,ta:$(b%(R%|
0000d520 29 2b 33 36 2a 71 67 25 29 3d 4d 24 3a 21 28 62 |)+36*qg%)=M$:!(b|
0000d530 25 28 52 25 29 2b 33 36 2a 71 67 25 2b 32 34 29 |%(R%)+36*qg%+24)|
0000d540 3d 56 67 25 3a 21 28 62 25 28 52 25 29 2b 33 36 |=Vg%:!(b%(R%)+36|
0000d550 2a 71 67 25 2b 32 38 29 3d 73 61 2a 31 30 30 30 |*qg%+28)=sa*1000|
0000d560 3a 21 28 62 25 28 52 25 29 2b 33 36 2a 71 67 25 |:!(b%(R%)+36*qg%|
0000d570 2b 33 32 29 3d 74 61 2a 31 30 30 30 3a ed 0d 30 |+32)=ta*1000:..0|
0000d580 ac 05 cd 0d 30 b6 19 d9 23 4c 25 3a e7 52 67 25 |....0...#L%:.Rg%|
0000d590 8c f2 72 63 28 5a 25 2d 54 67 25 29 0d 30 c0 3b |..rc(Z%-Tg%).0.;|
0000d5a0 c8 99 32 36 33 38 37 33 3a 68 25 28 52 25 29 3d |..263873:h%(R%)=|
0000d5b0 b9 3a 62 24 28 52 25 29 3d 42 24 3a e7 63 25 28 |.:b$(R%)=B$:.c%(|
0000d5c0 52 25 29 3d 30 8c f2 6c 28 30 2c 52 25 29 3a 63 |R%)=0..l(0,R%):c|
0000d5d0 25 28 52 25 29 3d 31 0d 30 ca 76 65 25 28 52 25 |%(R%)=1.0.ve%(R%|
0000d5e0 29 3d a3 3a 64 24 28 52 25 29 3d c3 28 43 67 25 |)=.:d$(R%)=.(Cg%|
0000d5f0 29 2b 22 20 62 79 74 65 73 22 3a 61 24 28 52 25 |)+" bytes":a$(R%|
0000d600 29 3d a4 72 28 42 24 29 3a f2 76 28 52 25 2c 61 |)=.r(B$):.v(R%,a|
0000d610 24 28 52 25 29 2c 31 29 3a 69 25 28 52 25 29 3d |$(R%),1):i%(R%)=|
0000d620 31 37 36 2b 28 6e 25 28 52 25 2c 64 25 28 52 25 |176+(n%(R%,d%(R%|
0000d630 29 29 2a 34 30 29 3a e7 69 25 28 52 25 29 3c 34 |))*40):.i%(R%)<4|
0000d640 35 36 8c 69 25 28 52 25 29 3d 34 35 36 0d 30 d4 |56.i%(R%)=456.0.|
0000d650 20 e7 61 25 28 33 37 29 3c 3e 30 8c 21 71 25 3d | .a%(37)<>0.!q%=|
0000d660 61 25 28 33 37 29 3a f2 72 28 71 25 29 0d 30 de |a%(37):.r(q%).0.|
0000d670 1e f2 60 28 52 25 29 3a f2 49 28 52 25 29 3a f2 |..`(R%):.I(R%):.|
0000d680 44 3a f2 69 63 28 52 25 29 3a e1 0d 30 e8 0f dd |D:.ic(R%):..0...|
0000d690 f2 72 63 28 57 67 25 29 3a e1 0d 30 f2 18 dd f2 |.rc(Wg%):..0....|
0000d6a0 66 28 77 25 29 3a e7 61 25 28 77 25 29 3c 3e 30 |f(w%):.a%(w%)<>0|
0000d6b0 3a e1 0d 30 fc 1d c8 99 32 36 32 33 33 37 2c 2c |:..0....262337,,|
0000d6c0 6a 25 28 77 25 29 b8 61 25 28 77 25 29 3a e1 0d |j%(w%).a%(w%):..|
0000d6d0 31 06 17 dd f2 67 28 6e 25 29 3a e7 61 25 28 6e |1....g(n%):.a%(n|
0000d6e0 25 29 3d 30 8c e1 0d 31 10 41 21 47 25 3d 61 25 |%)=0...1.A!G%=a%|
0000d6f0 28 6e 25 29 3a c8 99 32 36 32 33 33 39 2c 2c 47 |(n%):..262339,,G|
0000d700 25 3a e7 6e 25 3c 36 8c 63 25 28 6e 25 29 3d 30 |%:.n%<6.c%(n%)=0|
0000d710 3a f2 73 63 28 6e 25 29 3a e7 47 62 25 3d 6e 25 |:.sc(n%):.Gb%=n%|
0000d720 8c f2 67 28 32 31 29 0d 31 1a 09 c8 8e 6e 25 ca |..g(21).1....n%.|
0000d730 0d 31 24 14 c9 31 36 3a 6f 62 25 3d a3 3a f2 67 |.1$..16:ob%=.:.g|
0000d740 28 31 35 29 0d 31 2e 16 c9 31 37 3a 65 62 25 3d |(15).1...17:eb%=|
0000d750 31 30 30 3a f2 67 28 34 33 29 0d 31 38 0e c9 32 |100:.g(43).18..2|
0000d760 31 3a 47 62 25 3d 2d 31 0d 31 42 3c c9 32 38 3a |1:Gb%=-1.1B<.28:|
0000d770 71 66 25 3d 31 3a 70 66 25 3d 30 3a 73 66 25 3d |qf%=1:pf%=0:sf%=|
0000d780 31 3a 72 66 25 3d 30 3a f2 45 28 75 63 25 29 3a |1:rf%=0:.E(uc%):|
0000d790 5a 61 25 3d 2d 31 3a e7 49 63 25 3d 31 8c f2 67 |Za%=-1:.Ic%=1..g|
0000d7a0 28 33 39 29 0d 31 4c 14 c9 33 36 3a 70 62 25 3d |(39).1L..36:pb%=|
0000d7b0 a3 3a f2 67 28 33 37 29 0d 31 56 23 c9 33 38 3a |.:.g(37).1V#.38:|
0000d7c0 f2 45 28 70 63 25 29 3a 51 25 3d 2d 31 3a e7 49 |.E(pc%):Q%=-1:.I|
0000d7d0 63 25 3d 32 8c f2 67 28 33 39 29 0d 31 60 14 c9 |c%=2..g(39).1`..|
0000d7e0 33 39 3a 49 63 25 3d 30 3a 55 25 3d 31 30 30 0d |39:Ic%=0:U%=100.|
0000d7f0 31 6a 05 cb 0d 31 74 0e 61 25 28 6e 25 29 3d 30 |1j...1t.a%(n%)=0|
0000d800 3a e1 0d 31 7e 20 dd f2 70 61 3a e3 4c 62 25 3d |:..1~ ..pa:.Lb%=|
0000d810 30 b8 34 32 3a e7 21 71 25 3d 61 25 28 4c 62 25 |0.42:.!q%=a%(Lb%|
0000d820 29 8c 0d 31 88 21 61 25 28 4c 62 25 29 3d 30 3a |)..1.!a%(Lb%)=0:|
0000d830 c8 99 32 36 32 33 33 39 2c 2c 71 25 3a c8 8e 4c |..262339,,q%:..L|
0000d840 62 25 ca 0d 31 92 14 c9 31 36 3a 6f 62 25 3d a3 |b%..1...16:ob%=.|
0000d850 3a f2 67 28 31 35 29 0d 31 9c 1d c9 31 37 3a f2 |:.g(15).1...17:.|
0000d860 67 28 31 37 29 3a 65 62 25 3d 31 30 30 3a f2 67 |g(17):eb%=100:.g|
0000d870 28 34 33 29 0d 31 a6 0e c9 32 31 3a 47 62 25 3d |(43).1...21:Gb%=|
0000d880 2d 31 0d 31 b0 3c c9 32 38 3a 71 66 25 3d 31 3a |-1.1.<.28:qf%=1:|
0000d890 70 66 25 3d 30 3a 73 66 25 3d 31 3a 72 66 25 3d |pf%=0:sf%=1:rf%=|
0000d8a0 30 3a f2 45 28 75 63 25 29 3a 5a 61 25 3d 2d 31 |0:.E(uc%):Za%=-1|
0000d8b0 3a e7 49 63 25 3d 31 8c f2 67 28 33 39 29 0d 31 |:.Ic%=1..g(39).1|
0000d8c0 ba 14 c9 33 36 3a 70 62 25 3d a3 3a f2 67 28 33 |...36:pb%=.:.g(3|
0000d8d0 37 29 0d 31 c4 23 c9 33 38 3a f2 45 28 70 63 25 |7).1.#.38:.E(pc%|
0000d8e0 29 3a 51 25 3d 2d 31 3a e7 49 63 25 3d 32 8c f2 |):Q%=-1:.Ic%=2..|
0000d8f0 67 28 33 39 29 0d 31 ce 14 c9 33 39 3a 49 63 25 |g(39).1...39:Ic%|
0000d900 3d 30 3a 55 25 3d 31 30 30 0d 31 d8 05 cb 0d 31 |=0:U%=100.1....1|
0000d910 e2 13 e7 4c 62 25 3c 36 8c f2 74 63 28 4c 62 25 |...Lb%<6..tc(Lb%|
0000d920 29 0d 31 ec 05 cd 0d 31 f6 07 ed 3a e1 0d 32 00 |).1....1...:..2.|
0000d930 5a dd f2 74 63 28 77 25 29 3a c8 99 32 36 32 33 |Z..tc(w%):..2623|
0000d940 35 31 2c 2c 47 25 3a e7 47 25 21 38 3d 31 80 62 |51,,G%:.G%!8=1.b|
0000d950 24 28 77 25 29 3c 3e 22 22 80 a7 62 24 28 77 25 |$(w%)<>""..b$(w%|
0000d960 29 2c 22 2e 22 29 3e 30 8c ff 28 22 46 49 4c 45 |),".")>0..("FILE|
0000d970 52 5f 4f 50 45 4e 44 49 52 20 22 2b a4 42 28 62 |R_OPENDIR "+.B(b|
0000d980 24 28 77 25 29 29 29 0d 32 0a 38 63 25 28 77 25 |$(w%))).2.8c%(w%|
0000d990 29 3d 30 3a f2 73 63 28 77 25 29 3a e7 77 25 3d |)=0:.sc(w%):.w%=|
0000d9a0 6a 64 25 8c f2 67 28 31 37 29 3a f2 67 28 31 35 |jd%..g(17):.g(15|
0000d9b0 29 3a f2 67 28 31 36 29 3a 6a 64 25 3d 2d 31 0d |):.g(16):jd%=-1.|
0000d9c0 32 14 12 e7 47 62 25 3d 77 25 8c f2 67 28 32 31 |2...Gb%=w%..g(21|
0000d9d0 29 0d 32 1e 05 e1 0d 32 28 31 dd f2 73 63 28 57 |).2....2(1..sc(W|
0000d9e0 67 25 29 3a e7 75 62 25 3d 57 67 25 8c 42 62 25 |g%):.ub%=Wg%.Bb%|
0000d9f0 3d 2d 31 3a 59 25 3d 2d 31 3a 4c 66 25 3d 2d 31 |=-1:Y%=-1:Lf%=-1|
0000da00 3a 4d 66 25 3d 2d 31 0d 32 32 15 63 25 28 57 67 |:Mf%=-1.22.c%(Wg|
0000da10 25 29 3d 30 3a 4d 64 25 3d a3 3a e1 0d 32 3c 49 |%)=0:Md%=.:..2<I|
0000da20 dd f2 55 61 28 71 25 29 3a f2 5a 28 71 25 29 3a |..Ua(q%):.Z(q%):|
0000da30 60 62 25 3d 71 25 21 32 38 2d 6a 25 3a 57 62 25 |`b%=q%!28-j%:Wb%|
0000da40 3d 71 25 21 33 32 2d 45 25 3a 61 63 25 3d 71 25 |=q%!32-E%:ac%=q%|
0000da50 21 33 36 2d 6a 25 3a 55 62 25 3d 71 25 21 34 30 |!36-j%:Ub%=q%!40|
0000da60 2d 45 25 3a e1 0d 32 46 2a dd f2 5a 28 71 25 29 |-E%:..2F*..Z(q%)|
0000da70 3a 6a 25 3d 71 25 21 34 2d 71 25 21 32 30 3a 45 |:j%=q%!4-q%!20:E|
0000da80 25 3d 71 25 21 31 36 2d 71 25 21 32 34 3a e1 0d |%=q%!16-q%!24:..|
0000da90 32 50 93 dd f2 4e 28 73 62 25 2c 58 67 25 29 3a |2P...N(sb%,Xg%):|
0000daa0 ea 79 25 3a 59 25 3d 73 62 25 3a 51 24 3d c0 a4 |.y%:Y%=sb%:Q$=..|
0000dab0 62 28 59 25 2c 64 25 28 67 25 29 2c 67 25 29 29 |b(Y%,d%(g%),g%))|
0000dac0 3a 54 61 25 3d a4 61 28 59 25 2c 64 25 28 67 25 |:Ta%=.a(Y%,d%(g%|
0000dad0 29 2c 67 25 29 3a 49 3d a4 64 28 59 25 2c 64 25 |),g%):I=.d(Y%,d%|
0000dae0 28 67 25 29 2c 67 25 29 3a 48 3d a4 63 28 59 25 |(g%),g%):H=.c(Y%|
0000daf0 2c 64 25 28 67 25 29 2c 67 25 29 3a 21 71 25 3d |,d%(g%),g%):!q%=|
0000db00 61 25 28 58 67 25 29 3a 21 47 25 3d 21 71 25 3a |a%(Xg%):!G%=!q%:|
0000db10 c8 99 32 36 32 33 34 38 2c 2c 47 25 3a e7 74 62 |..262348,,G%:.tb|
0000db20 25 8c 0d 32 5a 3c 79 25 3d 47 25 21 35 36 2d 31 |%..2Z<y%=G%!56-1|
0000db30 32 2d 28 73 62 25 2b 34 29 2a 34 30 3a c8 99 32 |2-(sb%+4)*40:..2|
0000db40 36 32 33 35 33 2c 21 47 25 2c 47 25 21 34 34 2c |62353,!G%,G%!44,|
0000db50 79 25 2d 34 34 2c 47 25 21 35 32 2c 79 25 0d 32 |y%-44,G%!52,y%.2|
0000db60 64 3e cc 3a 79 25 3d 47 25 21 35 36 2d 32 30 2d |d>.:y%=G%!56-20-|
0000db70 28 73 62 25 2b 34 29 2a 34 30 3a c8 99 32 36 32 |(sb%+4)*40:..262|
0000db80 33 35 33 2c 21 47 25 2c 47 25 21 34 34 2c 79 25 |353,!G%,G%!44,y%|
0000db90 2d 33 32 2c 47 25 21 35 32 2c 79 25 0d 32 6e 05 |-32,G%!52,y%.2n.|
0000dba0 cd 0d 32 78 05 e1 0d 32 82 5f dd f2 62 62 28 59 |..2x...2._..bb(Y|
0000dbb0 67 25 29 3a ea 79 25 3a 21 47 25 3d 61 25 28 33 |g%):.y%:!G%=a%(3|
0000dbc0 37 29 3a c8 99 32 36 32 33 34 38 2c 2c 47 25 3a |7):..262348,,G%:|
0000dbd0 79 25 3d 47 25 21 35 36 2d 34 2d 59 67 25 2a 34 |y%=G%!56-4-Yg%*4|
0000dbe0 30 3a c8 99 32 36 32 33 35 33 2c 21 47 25 2c 47 |0:..262353,!G%,G|
0000dbf0 25 21 34 34 2c 79 25 2d 33 32 2c 47 25 21 35 32 |%!44,y%-32,G%!52|
0000dc00 2c 79 25 3a e1 0d 32 8c 63 dd f2 5f 28 5a 67 25 |,y%:..2.c.._(Zg%|
0000dc10 29 3a ea 79 25 3a 21 47 25 3d 61 25 28 34 31 29 |):.y%:!G%=a%(41)|
0000dc20 3a c8 99 32 36 32 33 34 38 2c 2c 47 25 3a 79 25 |:..262348,,G%:y%|
0000dc30 3d 47 25 21 35 36 2d 32 30 2d 28 5a 67 25 2b 34 |=G%!56-20-(Zg%+4|
0000dc40 29 2a 34 30 3a c8 99 32 36 32 33 35 33 2c 21 47 |)*40:..262353,!G|
0000dc50 25 2c 47 25 21 34 34 2c 79 25 2d 33 32 2c 47 25 |%,G%!44,y%-32,G%|
0000dc60 21 35 32 2c 79 25 3a e1 0d 32 96 21 dd f2 75 62 |!52,y%:..2.!..ub|
0000dc70 3a e7 6e 25 28 46 63 25 2c 28 43 63 25 2a 31 32 |:.n%(Fc%,(Cc%*12|
0000dc80 29 2b 44 63 25 29 3e 30 8c 0d 32 a0 3b e3 6b 25 |)+Dc%)>0..2.;.k%|
0000dc90 3d 30 b8 6e 25 28 46 63 25 2c 28 43 63 25 2a 31 |=0.n%(Fc%,(Cc%*1|
0000dca0 32 29 2b 44 63 25 29 2d 31 3a e7 48 63 25 3f 6b |2)+Dc%)-1:.Hc%?k|
0000dcb0 25 3d 31 8c 48 63 25 3f 6b 25 3d 30 3a f2 62 62 |%=1.Hc%?k%=0:.bb|
0000dcc0 28 6b 25 29 0d 32 aa 05 ed 0d 32 b4 05 cd 0d 32 |(k%).2....2....2|
0000dcd0 be 05 e1 0d 32 c8 cf dd f2 67 61 3a de 5f 67 25 |....2....ga:._g%|
0000dce0 32 39 34 33 39 2c 60 67 25 31 35 34 30 39 3a 61 |29439,`g%15409:a|
0000dcf0 68 25 3d 5f 67 25 3a 62 68 25 3d 60 67 25 3a 63 |h%=_g%:bh%=`g%:c|
0000dd00 68 25 3d 60 67 25 2b 31 35 34 30 39 3a c8 99 32 |h%=`g%+15409:..2|
0000dd10 36 32 33 36 31 2c 2c 22 3c 49 6e 76 65 73 74 6f |62361,,"<Investo|
0000dd20 72 24 44 69 72 3e 2e 54 65 6d 70 6c 61 74 65 73 |r$Dir>.Templates|
0000dd30 22 3a 77 25 3d 30 3a c8 95 77 25 3c 34 34 3a 24 |":w%=0:..w%<44:$|
0000dd40 64 61 25 3d c3 28 77 25 29 3a c8 99 32 36 32 33 |da%=.(w%):..2623|
0000dd50 36 33 2c 2c 61 68 25 2c 62 68 25 2c 63 68 25 2c |63,,ah%,bh%,ch%,|
0000dd60 2d 31 2c 64 61 25 2c 30 b8 2c 2c 62 68 25 3a 6a |-1,da%,0.,,bh%:j|
0000dd70 25 28 77 25 29 3d 61 68 25 3a 61 68 25 2b 3d 38 |%(w%)=ah%:ah%+=8|
0000dd80 38 2b 33 32 2a 28 61 68 25 21 38 34 29 3a e7 77 |8+32*(ah%!84):.w|
0000dd90 25 3c 3e 39 8c 6a 25 28 77 25 29 21 36 34 3d 68 |%<>9.j%(w%)!64=h|
0000dda0 61 25 0d 32 d2 3a 6b 25 28 30 2c 77 25 29 3d 6a |a%.2.:k%(0,w%)=j|
0000ddb0 25 28 77 25 29 21 30 3a 6b 25 28 31 2c 77 25 29 |%(w%)!0:k%(1,w%)|
0000ddc0 3d 6a 25 28 77 25 29 21 34 3a 77 25 2b 3d 31 3a |=j%(w%)!4:w%+=1:|
0000ddd0 ce 3a c8 99 32 36 32 33 36 32 3a e1 0d 32 dc c3 |.:..262362:..2..|
0000dde0 dd f2 63 61 3a 49 64 25 3d 30 3a 4a 64 25 3d 30 |..ca:Id%=0:Jd%=0|
0000ddf0 3a 59 25 3d 2d 31 3a 4d 66 25 3d 2d 31 3a 6f 62 |:Y%=-1:Mf%=-1:ob|
0000de00 25 3d a3 3a 50 61 25 3d 30 3a 62 62 25 3d 30 3a |%=.:Pa%=0:bb%=0:|
0000de10 4f 61 25 3d 30 3a 4d 64 25 3d a3 3a 71 66 25 3d |Oa%=0:Md%=.:qf%=|
0000de20 31 3a 70 66 25 3d 30 3a 73 66 25 3d 31 3a 72 66 |1:pf%=0:sf%=1:rf|
0000de30 25 3d 30 3a 5f 64 25 3d a3 3a 5a 64 25 3d 30 3a |%=0:_d%=.:Zd%=0:|
0000de40 6f 64 25 3d 30 3a 47 61 25 3d 30 3a 60 64 25 3d |od%=0:Ga%=0:`d%=|
0000de50 30 3a 63 65 25 3d 30 3a 76 65 25 3d b9 3a 64 65 |0:ce%=0:ve%=.:de|
0000de60 25 3d 30 3a 69 65 25 3d 30 3a 6a 65 25 3d 30 3a |%=0:ie%=0:je%=0:|
0000de70 71 65 25 3d 30 3a 72 65 25 3d 30 3a 6b 66 25 3d |qe%=0:re%=0:kf%=|
0000de80 30 3a 6a 66 25 3d 30 3a 67 65 25 3d 30 3a 68 65 |0:jf%=0:ge%=0:he|
0000de90 25 3d 30 3a 6f 65 25 3d 30 3a 6d 61 25 3d 30 0d |%=0:oe%=0:ma%=0.|
0000dea0 32 e6 c0 70 65 25 3d 30 3a 46 63 25 3d 30 3a 75 |2..pe%=0:Fc%=0:u|
0000deb0 65 25 3d 30 3a 65 62 25 3d 31 30 30 3a 71 62 25 |e%=0:eb%=100:qb%|
0000dec0 3d 2d 31 3a 6c 66 25 3d 30 3a 6d 66 25 3d 30 3a |=-1:lf%=0:mf%=0:|
0000ded0 74 62 25 3d a3 3a 44 64 25 3d a3 3a 55 25 3d 31 |tb%=.:Dd%=.:U%=1|
0000dee0 30 30 3a 70 62 25 3d a3 3a 53 63 25 3d a3 3a 60 |00:pb%=.:Sc%=.:`|
0000def0 63 25 3d b9 3a 69 63 25 3d a3 3a 75 67 25 3d a3 |c%=.:ic%=.:ug%=.|
0000df00 3a 69 64 25 3d a3 3a 6e 66 25 3d 31 3a 57 61 25 |:id%=.:nf%=1:Wa%|
0000df10 3d 2d 31 3a 49 63 25 3d 30 3a 6e 67 25 3d 30 3a |=-1:Ic%=0:ng%=0:|
0000df20 58 61 25 3d 30 3a 59 61 25 3d 30 3a 43 62 25 3d |Xa%=0:Ya%=0:Cb%=|
0000df30 2d 31 3a 6f 66 25 3d 31 3a 75 62 25 3d 2d 31 3a |-1:of%=1:ub%=-1:|
0000df40 59 63 25 3d 30 3a 5a 61 25 3d 30 3a 6a 64 25 3d |Yc%=0:Za%=0:jd%=|
0000df50 2d 31 3a 4d 63 25 3d 30 3a 47 62 25 3d 2d 31 0d |-1:Mc%=0:Gb%=-1.|
0000df60 32 f0 b5 78 65 25 3d b9 3a 43 64 25 3d 2d 31 3a |2..xe%=.:Cd%=-1:|
0000df70 45 64 25 3d 2d 31 3a 42 62 25 3d 2d 31 3a 79 64 |Ed%=-1:Bb%=-1:yd|
0000df80 25 3d 30 3a 78 61 25 3d 2d 31 3a 76 3d 30 3a 75 |%=0:xa%=-1:v=0:u|
0000df90 3d 30 3a 44 3d 30 2e 30 31 3a 45 3d 30 2e 30 31 |=0:D=0.01:E=0.01|
0000dfa0 3a 4a 62 25 3d b9 3a 55 61 25 3d 31 30 3a 6b 64 |:Jb%=.:Ua%=10:kd|
0000dfb0 25 3d 2d 31 3a 47 24 3d 22 44 72 61 77 46 69 6c |%=-1:G$="DrawFil|
0000dfc0 65 22 3a 50 3d 30 3a 67 25 3d 30 3a 75 63 25 3d |e":P=0:g%=0:uc%=|
0000dfd0 2d 31 3a 70 63 25 3d 2d 31 3a 4b 62 25 3d 30 3a |-1:pc%=-1:Kb%=0:|
0000dfe0 71 63 25 3d a3 3a 43 24 3d 22 54 65 78 74 46 69 |qc%=.:C$="TextFi|
0000dff0 6c 65 22 3a 48 24 3d 22 48 69 73 74 6f 72 79 22 |le":H$="History"|
0000e000 3a 46 24 3d 22 43 53 56 46 69 6c 65 22 3a 64 68 |:F$="CSVFile":dh|
0000e010 25 3d 2d 31 0d 32 fa 7c 48 63 25 3d 2d 31 3a 67 |%=-1.2.|Hc%=-1:g|
0000e020 62 25 3d 2d 31 3a 47 64 25 3d 2d 31 3a 4e 25 3d |b%=-1:Gd%=-1:N%=|
0000e030 26 35 37 32 41 31 46 42 44 3a 49 24 3d 22 44 69 |&572A1FBD:I$="Di|
0000e040 76 69 64 65 6e 64 73 22 3a 5a 61 25 3d 2d 31 3a |vidends":Za%=-1:|
0000e050 51 25 3d 2d 31 3a 68 24 3d 22 54 72 69 6e 69 74 |Q%=-1:h$="Trinit|
0000e060 79 2e 4d 65 64 69 75 6d 22 3a 6c 61 25 3d a3 3a |y.Medium":la%=.:|
0000e070 4d 25 3d 2d 31 3a 76 61 25 3d 2d 31 3a 77 61 25 |M%=-1:va%=-1:wa%|
0000e080 3d 2d 31 3a 54 25 3d a3 3a 76 25 3d 2d 31 3a e1 |=-1:T%=.:v%=-1:.|
0000e090 0d 33 04 97 dd f2 64 61 3a de 73 25 28 35 2c 33 |.3....da:.s%(5,3|
0000e0a0 35 29 2c 6e 25 28 35 2c 33 35 29 2c 64 25 28 35 |5),n%(5,35),d%(5|
0000e0b0 29 2c 61 24 28 35 29 2c 65 25 28 35 29 2c 69 25 |),a$(5),e%(5),i%|
0000e0c0 28 35 29 2c 63 25 28 35 29 2c 65 24 28 35 29 2c |(5),c%(5),e$(5),|
0000e0d0 64 24 28 35 29 2c 62 24 28 35 29 2c 68 25 28 35 |d$(5),b$(5),h%(5|
0000e0e0 29 2c 62 25 28 35 29 2c 66 25 28 31 32 29 2c 67 |),b%(5),f%(12),g|
0000e0f0 25 28 31 32 29 2c 61 25 28 34 33 29 2c 6a 25 28 |%(12),a%(43),j%(|
0000e100 34 33 29 2c 76 25 28 35 29 2c 63 24 28 32 35 36 |43),v%(5),c$(256|
0000e110 29 2c 6b 25 28 31 2c 34 33 29 3a 40 25 3d 30 3a |),k%(1,43):@%=0:|
0000e120 e3 6b 25 3d 30 b8 35 0d 33 0e 81 76 25 28 6b 25 |.k%=0.5.3..v%(k%|
0000e130 29 3d 2d 31 3a 62 25 28 6b 25 29 3d 2d 31 3a 63 |)=-1:b%(k%)=-1:c|
0000e140 25 28 6b 25 29 3d 30 3a 65 25 28 6b 25 29 3d a3 |%(k%)=0:e%(k%)=.|
0000e150 3a 68 25 28 6b 25 29 3d a3 3a 69 25 28 6b 25 29 |:h%(k%)=.:i%(k%)|
0000e160 3d 34 35 36 3a 61 24 28 6b 25 29 3d c3 28 4e 25 |=456:a$(k%)=.(N%|
0000e170 29 3a 62 24 28 6b 25 29 3d 22 50 6f 72 74 66 6f |):b$(k%)="Portfo|
0000e180 6c 69 6f 22 3a 65 24 28 6b 25 29 3d c0 91 24 2c |lio":e$(k%)=..$,|
0000e190 31 35 29 3a 64 24 28 6b 25 29 3d 22 30 20 62 79 |15):d$(k%)="0 by|
0000e1a0 74 65 73 22 3a ed 3a e1 0d 33 18 3d dd f2 49 61 |tes":.:..3.=..Ia|
0000e1b0 3a f2 69 28 31 37 2c 32 31 2e 34 2a 71 61 25 2a |:.i(17,21.4*qa%*|
0000e1c0 65 62 25 2c 31 35 2e 34 2a 65 62 25 2c 30 2c 30 |eb%,15.4*eb%,0,0|
0000e1d0 29 3a 21 71 25 3d 61 25 28 31 37 29 3a f2 72 28 |):!q%=a%(17):.r(|
0000e1e0 71 25 29 3a e1 0d 33 22 0f dd f2 4a 61 3a c8 8e |q%):..3"...Ja:..|
0000e1f0 49 63 25 ca 0d 33 2c 24 c9 31 3a f2 69 28 33 39 |Ic%..3,$.1:.i(39|
0000e200 2c 35 36 34 2c 33 31 30 2b 28 a4 6e 2a 6c 25 2b |,564,310+(.n*l%+|
0000e210 a4 6f 29 2c 30 2c 30 29 0d 33 36 24 c9 32 3a f2 |.o),0,0).36$.2:.|
0000e220 69 28 33 39 2c 35 36 34 2c 33 31 30 2b 28 a4 6e |i(39,564,310+(.n|
0000e230 2a 4f 25 2b a4 6f 29 2c 30 2c 30 29 0d 33 40 05 |*O%+.o),0,0).3@.|
0000e240 cb 0d 33 4a 17 21 71 25 3d 61 25 28 33 39 29 3a |..3J.!q%=a%(39):|
0000e250 f2 72 28 71 25 29 3a e1 0d 33 54 5e dd f2 69 28 |.r(q%):..3T^..i(|
0000e260 77 25 2c 65 68 25 2c 4c 63 25 2c 66 68 25 2c 67 |w%,eh%,Lc%,fh%,g|
0000e270 68 25 29 3a 21 71 25 3d 66 68 25 3a 71 25 21 34 |h%):!q%=fh%:q%!4|
0000e280 3d 2d 65 68 25 3a 71 25 21 38 3d 4c 63 25 3a 71 |=-eh%:q%!8=Lc%:q|
0000e290 25 21 31 32 3d 67 68 25 3a c8 99 32 36 32 33 35 |%!12=gh%:..26235|
0000e2a0 39 2c 61 25 28 77 25 29 2c 71 25 3a f2 6c 28 31 |9,a%(w%),q%:.l(1|
0000e2b0 2c 77 25 29 3a e1 0d 33 5e 47 dd f2 75 63 28 6e |,w%):..3^G..uc(n|
0000e2c0 25 2c 68 68 25 29 3a 21 71 25 3d 30 3a 71 25 21 |%,hh%):!q%=0:q%!|
0000e2d0 34 3d 2d 68 68 25 3a 71 25 21 38 3d 31 35 31 30 |4=-hh%:q%!8=1510|
0000e2e0 3a 71 25 21 31 32 3d 30 3a c8 99 32 36 32 33 35 |:q%!12=0:..26235|
0000e2f0 39 2c 61 25 28 6e 25 29 2c 71 25 3a e1 0d 33 68 |9,a%(n%),q%:..3h|
0000e300 20 dd f2 49 28 69 68 25 29 3a e7 6e 25 28 69 68 | ..I(ih%):.n%(ih|
0000e310 25 2c 64 25 28 69 68 25 29 29 3c 37 8c 0d 33 72 |%,d%(ih%))<7..3r|
0000e320 0f 69 25 28 69 68 25 29 3d 34 35 36 0d 33 7c 26 |.i%(ih%)=456.3|&|
0000e330 cc 3a 69 25 28 69 68 25 29 3d 32 31 34 2b 28 6e |.:i%(ih%)=214+(n|
0000e340 25 28 69 68 25 2c 64 25 28 69 68 25 29 29 2a 34 |%(ih%,d%(ih%))*4|
0000e350 30 29 0d 33 86 05 cd 0d 33 90 16 f2 75 63 28 69 |0).3....3...uc(i|
0000e360 68 25 2c 69 25 28 69 68 25 29 29 3a e1 0d 33 9a |h%,i%(ih%)):..3.|
0000e370 22 dd f2 76 28 6e 25 2c 4e 24 2c 6f 25 29 3a e7 |"..v(n%,N$,o%):.|
0000e380 61 25 28 6e 25 29 3d 30 8c f2 66 28 6e 25 29 0d |a%(n%)=0..f(n%).|
0000e390 33 a4 17 e7 57 61 25 3e 34 80 6e 25 3d 33 39 80 |3...Wa%>4.n%=39.|
0000e3a0 49 63 25 3d 31 8c 0d 33 ae 0a c8 8e 57 61 25 ca |Ic%=1..3....Wa%.|
0000e3b0 0d 33 b8 3a c9 35 3a 4e 24 3d 22 27 22 2b 61 24 |.3.:.5:N$="'"+a$|
0000e3c0 28 5a 61 25 29 2b 22 27 20 54 6f 74 61 6c 20 43 |(Za%)+"' Total C|
0000e3d0 75 72 72 65 6e 74 20 56 61 6c 75 65 20 48 69 73 |urrent Value His|
0000e3e0 74 6f 72 79 3a 20 22 2b a4 75 0d 33 c2 3b c9 36 |tory: "+.u.3.;.6|
0000e3f0 3a 4e 24 3d 22 27 22 2b 61 24 28 5a 61 25 29 2b |:N$="'"+a$(Za%)+|
0000e400 22 27 20 54 6f 74 61 6c 20 50 75 72 63 68 61 73 |"' Total Purchas|
0000e410 65 20 56 61 6c 75 65 20 48 69 73 74 6f 72 79 3a |e Value History:|
0000e420 20 22 2b a4 75 0d 33 cc 05 cb 0d 33 d6 05 cd 0d | "+.u.3....3....|
0000e430 33 e0 2e 21 47 25 3d 61 25 28 6e 25 29 3a c8 99 |3..!G%=a%(n%):..|
0000e440 32 36 32 33 34 38 2c 2c 47 25 3a 24 28 47 25 21 |262348,,G%:$(G%!|
0000e450 37 36 29 3d 4e 24 3a e7 6f 25 3d 31 8c 0d 33 ea |76)=N$:.o%=1..3.|
0000e460 1d c8 99 32 36 32 33 34 32 2c 2c 47 25 3a c8 99 |...262342,,G%:..|
0000e470 32 36 32 33 34 31 2c 2c 47 25 0d 33 f4 05 cd 0d |262341,,G%.3....|
0000e480 33 fe 05 e1 0d 34 08 52 dd f2 65 61 3a 6a 68 25 |3....4.R..ea:jh%|
0000e490 3d 93 3a 6b 68 25 3d 38 2a 31 30 32 34 3a c8 99 |=.:kh%=8*1024:..|
0000e4a0 32 36 32 33 38 30 2c 2d 31 2c 2d 31 b8 6c 68 25 |262380,-1,-1.lh%|
0000e4b0 3a c8 99 32 36 32 33 38 30 2c 6c 68 25 2b 6b 68 |:..262380,lh%+kh|
0000e4c0 25 2c 2d 31 3a c8 99 32 39 2c 30 2c 6a 68 25 2c |%,-1:..29,0,jh%,|
0000e4d0 2c 6b 68 25 3a e1 0d 34 12 40 dd a4 4d 28 6d 68 |,kh%:..4.@..M(mh|
0000e4e0 25 29 3a ea 64 66 25 2c 54 25 2c 6e 68 25 2c 6f |%):.df%,T%,nh%,o|
0000e4f0 68 25 3a 6e 68 25 3d a3 3a f5 3a c8 99 32 39 2c |h%:nh%=.:.:..29,|
0000e500 31 2c 6a 68 25 b8 2c 2c 6f 68 25 3a e7 6f 68 25 |1,jh%.,,oh%:.oh%|
0000e510 3e 3d 6d 68 25 8c 0d 34 1c 1e c8 99 32 39 2c 32 |>=mh%..4....29,2|
0000e520 2c 6a 68 25 2c 2c 6d 68 25 b8 2c 2c 64 66 25 3a |,jh%,,mh%.,,df%:|
0000e530 54 25 3d b9 0d 34 26 0c cc 3a 6e 68 25 3d a4 46 |T%=..4&..:nh%=.F|
0000e540 0d 34 30 05 cd 0d 34 3a 8c fd 54 25 84 6e 68 25 |.40...4:..T%.nh%|
0000e550 3a e7 6e 68 25 8c 70 68 25 3d a3 3a f2 71 28 22 |:.nh%.ph%=.:.q("|
0000e560 49 6e 76 65 73 74 6f 72 20 69 73 20 75 6e 61 62 |Investor is unab|
0000e570 6c 65 20 74 6f 20 63 6c 61 69 6d 20 61 6e 79 20 |le to claim any |
0000e580 6d 6f 72 65 20 6d 65 6d 6f 72 79 2e 20 54 6f 20 |more memory. To |
0000e590 66 72 65 65 20 73 6f 6d 65 20 6d 65 6d 6f 72 79 |free some memory|
0000e5a0 2c 20 65 69 74 68 65 72 20 71 75 69 74 20 6f 74 |, either quit ot|
0000e5b0 68 65 72 20 61 70 70 6c 69 63 61 74 69 6f 6e 73 |her applications|
0000e5c0 20 6f 72 20 72 65 61 6c 6c 6f 63 61 74 65 2e 22 | or reallocate."|
0000e5d0 29 0d 34 44 08 3d 64 66 25 0d 34 4e 38 dd a4 6b |).4D.=df%.4N8..k|
0000e5e0 28 64 66 25 2c 6d 68 25 2c f8 70 68 25 29 3a ea |(df%,mh%,.ph%):.|
0000e5f0 54 25 2c 6e 68 25 2c 71 68 25 3a 70 68 25 3d b9 |T%,nh%,qh%:ph%=.|
0000e600 3a e7 64 66 25 3c 3d 30 8c 3d a4 4d 28 6d 68 25 |:.df%<=0.=.M(mh%|
0000e610 29 0d 34 58 45 6e 68 25 3d a3 3a f5 3a c8 99 31 |).4XEnh%=.:.:..1|
0000e620 33 31 31 30 31 2c 34 2c 6a 68 25 2c 64 66 25 2c |31101,4,jh%,df%,|
0000e630 6d 68 25 b8 2c 2c 71 68 25 3b 54 25 3a 54 25 3d |mh%.,,qh%;T%:T%=|
0000e640 28 28 54 25 80 31 29 3d 30 29 3a e7 ac 54 25 8c |((T%.1)=0):..T%.|
0000e650 6e 68 25 3d a4 46 0d 34 62 8c fd 54 25 84 6e 68 |nh%=.F.4b..T%.nh|
0000e660 25 3a e7 6e 68 25 8c 70 68 25 3d a3 3a f2 71 28 |%:.nh%.ph%=.:.q(|
0000e670 22 49 6e 76 65 73 74 6f 72 20 69 73 20 75 6e 61 |"Investor is una|
0000e680 62 6c 65 20 74 6f 20 63 6c 61 69 6d 20 61 6e 79 |ble to claim any|
0000e690 20 6d 6f 72 65 20 6d 65 6d 6f 72 79 2e 20 54 6f | more memory. To|
0000e6a0 20 66 72 65 65 20 73 6f 6d 65 20 6d 65 6d 6f 72 | free some memor|
0000e6b0 79 2c 20 65 69 74 68 65 72 20 71 75 69 74 20 6f |y, either quit o|
0000e6c0 74 68 65 72 20 61 70 70 6c 69 63 61 74 69 6f 6e |ther application|
0000e6d0 73 20 6f 72 20 72 65 61 6c 6c 6f 63 61 74 65 2e |s or reallocate.|
0000e6e0 22 29 0d 34 6c 08 3d 71 68 25 0d 34 76 56 dd a4 |").4l.=qh%.4vV..|
0000e6f0 46 3a ea 6e 68 25 2c 72 68 25 3a c8 99 33 39 33 |F:.nh%,rh%:..393|
0000e700 34 35 32 2c 6c 68 25 2b 6b 68 25 2b 38 2a 31 30 |452,lh%+kh%+8*10|
0000e710 32 34 2c 2d 31 b8 72 68 25 3b 6e 68 25 3a 6e 68 |24,-1.rh%;nh%:nh|
0000e720 25 3d 28 28 6e 68 25 80 31 29 3d 31 29 3a e7 72 |%=((nh%.1)=1):.r|
0000e730 68 25 3d 6c 68 25 2b 6b 68 25 8c 6e 68 25 3d b9 |h%=lh%+kh%.nh%=.|
0000e740 0d 34 80 0a e7 ac 6e 68 25 8c 0d 34 8a 22 6b 68 |.4....nh%..4."kh|
0000e750 25 2b 3d 38 2a 31 30 32 34 3a c8 99 32 39 2c 35 |%+=8*1024:..29,5|
0000e760 2c 6a 68 25 2c 2c 38 2a 31 30 32 34 0d 34 94 05 |,jh%,,8*1024.4..|
0000e770 cd 0d 34 9e 08 3d 6e 68 25 0d 34 a8 23 dd f2 45 |..4..=nh%.4.#..E|
0000e780 28 f8 64 66 25 29 3a e7 64 66 25 3e 30 8c c8 99 |(.df%):.df%>0...|
0000e790 32 39 2c 33 2c 6a 68 25 2c 64 66 25 0d 34 b2 0b |29,3,jh%,df%.4..|
0000e7a0 64 66 25 3d 30 3a e1 0d 34 bc 4c dd f2 46 62 28 |df%=0:..4.L..Fb(|
0000e7b0 64 25 29 3a 76 25 28 49 25 29 3d 6e 25 28 46 66 |d%):v%(I%)=n%(Ff|
0000e7c0 25 2c 64 25 29 2d 31 3a e3 69 25 3d 30 b8 76 25 |%,d%)-1:.i%=0.v%|
0000e7d0 28 49 25 29 3a 62 25 28 49 25 29 3d a4 6b 28 62 |(I%):b%(I%)=.k(b|
0000e7e0 25 28 49 25 29 2c 33 36 2c 54 25 29 3a e7 ac 54 |%(I%),36,T%):..T|
0000e7f0 25 8c e1 0d 34 c6 a7 24 28 62 25 28 49 25 29 2b |%...4..$(b%(I%)+|
0000e800 33 36 2a 69 25 29 3d 24 28 73 25 28 46 66 25 2c |36*i%)=$(s%(Ff%,|
0000e810 64 25 29 2b 33 36 2a 69 25 29 3a 21 28 62 25 28 |d%)+36*i%):!(b%(|
0000e820 49 25 29 2b 33 36 2a 69 25 2b 32 34 29 3d 2d 31 |I%)+36*i%+24)=-1|
0000e830 3a 21 28 62 25 28 49 25 29 2b 33 36 2a 69 25 2b |:!(b%(I%)+36*i%+|
0000e840 32 38 29 3d 2d 31 3a 21 28 62 25 28 49 25 29 2b |28)=-1:!(b%(I%)+|
0000e850 33 36 2a 69 25 2b 33 32 29 3d 2d 31 3a ed 3a 21 |36*i%+32)=-1:.:!|
0000e860 71 25 3d 61 25 28 34 31 29 3a f2 72 28 71 25 29 |q%=a%(41):.r(q%)|
0000e870 3a e7 76 25 28 49 25 29 3e 35 8c f2 69 28 34 31 |:.v%(I%)>5..i(41|
0000e880 2c 32 35 34 2b 28 34 30 2a 76 25 28 49 25 29 29 |,254+(40*v%(I%))|
0000e890 2c 31 32 33 36 2c 30 2c 30 29 0d 34 d0 05 e1 0d |,1236,0,0).4....|
0000e8a0 34 da 45 dd f2 59 62 28 73 68 25 29 3a 57 61 25 |4.E..Yb(sh%):Wa%|
0000e8b0 3d 73 68 25 3a 5a 61 25 3d 67 25 3a 59 61 25 3d |=sh%:Za%=g%:Ya%=|
0000e8c0 64 25 28 67 25 29 3a 58 61 25 3d 59 25 3a f2 66 |d%(g%):Xa%=Y%:.f|
0000e8d0 28 32 38 29 3a f2 65 63 28 73 68 25 29 3a e7 6c |(28):.ec(sh%):.l|
0000e8e0 25 3e 30 8c 0d 34 e4 60 6c 25 2d 3d 31 3a f2 76 |%>0..4.`l%-=1:.v|
0000e8f0 28 32 38 2c 22 46 6f 72 6d 61 74 74 65 64 20 76 |(28,"Formatted v|
0000e900 69 65 77 3a 20 22 2b 61 24 28 67 25 29 2c 31 29 |iew: "+a$(g%),1)|
0000e910 3a e7 57 61 25 3c 35 8c 24 a4 74 28 32 38 2c 30 |:.Wa%<5.$.t(28,0|
0000e920 29 3d c0 a4 62 28 58 61 25 2c 59 61 25 2c 5a 61 |)=..b(Xa%,Ya%,Za|
0000e930 25 29 29 8b 24 a4 74 28 32 38 2c 30 29 3d 61 24 |%)).$.t(28,0)=a$|
0000e940 28 67 25 29 0d 34 ee 38 e7 6c 25 3e 31 34 8c f2 |(g%).4.8.l%>14..|
0000e950 69 28 32 38 2c 32 31 34 2b 28 34 30 2a 6c 25 29 |i(28,214+(40*l%)|
0000e960 2c 35 30 30 2c 30 2c 30 29 8b f2 69 28 32 38 2c |,500,0,0)..i(28,|
0000e970 37 37 36 2c 35 30 30 2c 30 2c 30 29 0d 34 f8 17 |776,500,0,0).4..|
0000e980 e7 61 25 28 33 39 29 3c 3e 30 8c f2 66 63 28 49 |.a%(39)<>0..fc(I|
0000e990 63 25 29 0d 35 02 05 cd 0d 35 0c 05 e1 0d 35 16 |c%).5....5....5.|
0000e9a0 3d dd f2 65 63 28 74 25 29 3a c8 99 32 36 33 38 |=..ec(t%):..2638|
0000e9b0 37 32 3a 6e 3d 30 3a 6c 25 3d 30 3a 76 3d 39 39 |72:n=0:l%=0:v=99|
0000e9c0 39 39 39 39 3a 75 3d 2d 39 39 39 39 39 39 3a 49 |9999:u=-999999:I|
0000e9d0 61 3d 30 3a c8 8e 57 61 25 ca 0d 35 20 33 c9 30 |a=0:..Wa%..5 3.0|
0000e9e0 3a 24 a4 74 28 32 38 2c 33 29 3d 22 4e 55 4d 42 |:$.t(28,3)="NUMB|
0000e9f0 45 52 20 4f 46 22 3a 24 a4 74 28 32 38 2c 34 29 |ER OF":$.t(28,4)|
0000ea00 3d 22 55 4e 49 54 53 20 48 45 4c 44 22 0d 35 2a |="UNITS HELD".5*|
0000ea10 30 c9 31 3a 24 a4 74 28 32 38 2c 33 29 3d 22 43 |0.1:$.t(28,3)="C|
0000ea20 55 52 52 45 4e 54 22 3a 24 a4 74 28 32 38 2c 34 |URRENT":$.t(28,4|
0000ea30 29 3d 22 50 52 49 43 45 20 28 a3 29 22 0d 35 34 |)="PRICE (.)".54|
0000ea40 30 c9 32 3a 24 a4 74 28 32 38 2c 33 29 3d 22 43 |0.2:$.t(28,3)="C|
0000ea50 55 52 52 45 4e 54 22 3a 24 a4 74 28 32 38 2c 34 |URRENT":$.t(28,4|
0000ea60 29 3d 22 56 41 4c 55 45 20 28 a3 29 22 0d 35 3e |)="VALUE (.)".5>|
0000ea70 2b c9 33 3a 24 a4 74 28 32 38 2c 33 29 3d 22 4e |+.3:$.t(28,3)="N|
0000ea80 45 54 22 3a 24 a4 74 28 32 38 2c 34 29 3d 22 47 |ET":$.t(28,4)="G|
0000ea90 41 49 4e 20 28 a3 29 22 0d 35 48 32 c9 34 3a 24 |AIN (.)".5H2.4:$|
0000eaa0 a4 74 28 32 38 2c 33 29 3d 22 50 45 52 43 45 4e |.t(28,3)="PERCEN|
0000eab0 54 41 47 45 22 3a 24 a4 74 28 32 38 2c 34 29 3d |TAGE":$.t(28,4)=|
0000eac0 22 47 41 49 4e 20 28 25 29 22 0d 35 52 30 c9 35 |"GAIN (%)".5R0.5|
0000ead0 3a 24 a4 74 28 32 38 2c 33 29 3d 22 43 55 52 52 |:$.t(28,3)="CURR|
0000eae0 45 4e 54 22 3a 24 a4 74 28 32 38 2c 34 29 3d 22 |ENT":$.t(28,4)="|
0000eaf0 56 41 4c 55 45 20 28 a3 29 22 0d 35 5c 31 c9 36 |VALUE (.)".5\1.6|
0000eb00 3a 24 a4 74 28 32 38 2c 33 29 3d 22 50 55 52 43 |:$.t(28,3)="PURC|
0000eb10 48 41 53 45 22 3a 24 a4 74 28 32 38 2c 34 29 3d |HASE":$.t(28,4)=|
0000eb20 22 56 41 4c 55 45 20 28 a3 29 22 0d 35 66 05 cb |"VALUE (.)".5f..|
0000eb30 0d 35 70 0a c8 8e 71 66 25 ca 0d 35 7a 0d c9 30 |.5p...qf%..5z..0|
0000eb40 3a c8 8e 73 66 25 ca 0d 35 84 13 c9 30 3a 74 68 |:..sf%..5...0:th|
0000eb50 25 3d 30 3a 75 68 25 3d 31 31 0d 35 8e 14 c9 31 |%=0:uh%=11.5...1|
0000eb60 3a 74 68 25 3d 31 32 3a 75 68 25 3d 32 33 0d 35 |:th%=12:uh%=23.5|
0000eb70 98 14 c9 32 3a 74 68 25 3d 32 34 3a 75 68 25 3d |...2:th%=24:uh%=|
0000eb80 33 35 0d 35 a2 05 cb 0d 35 ac 13 c9 31 3a 74 68 |35.5....5...1:th|
0000eb90 25 3d 30 3a 75 68 25 3d 33 35 0d 35 b6 05 cb 0d |%=0:uh%=35.5....|
0000eba0 35 c0 09 c8 8e 74 25 ca 0d 35 ca 51 c9 30 2c 31 |5....t%..5.Q.0,1|
0000ebb0 2c 32 2c 33 2c 34 3a e3 78 25 3d 74 68 25 b8 75 |,2,3,4:.x%=th%.u|
0000ebc0 68 25 3a e3 7a 25 3d 30 b8 6e 25 28 5a 61 25 2c |h%:.z%=0.n%(Za%,|
0000ebd0 78 25 29 2d 31 3a e7 c0 a4 62 28 58 61 25 2c 59 |x%)-1:...b(Xa%,Y|
0000ebe0 61 25 2c 5a 61 25 29 29 3d c0 a4 62 28 7a 25 2c |a%,Za%))=..b(z%,|
0000ebf0 78 25 2c 5a 61 25 29 29 8c 0d 35 d4 27 75 63 25 |x%,Za%))..5.'uc%|
0000ec00 3d a4 6b 28 75 63 25 2c 38 2c 54 25 29 3a 4a 25 |=.k(uc%,8,T%):J%|
0000ec10 3d 75 63 25 2b 38 2a 6c 25 3a e7 ac 54 25 8c e1 |=uc%+8*l%:..T%..|
0000ec20 0d 35 de 10 21 4a 25 3d 78 25 3a c8 8e 74 25 ca |.5..!J%=x%:..t%.|
0000ec30 0d 35 e8 16 c9 30 3a 6e 3d a4 61 28 7a 25 2c 78 |.5...0:n=.a(z%,x|
0000ec40 25 2c 5a 61 25 29 0d 35 f2 16 c9 31 3a 6e 3d a4 |%,Za%).5...1:n=.|
0000ec50 63 28 7a 25 2c 78 25 2c 5a 61 25 29 0d 35 fc 24 |c(z%,x%,Za%).5.$|
0000ec60 c9 32 3a 6e 3d a4 61 28 7a 25 2c 78 25 2c 5a 61 |.2:n=.a(z%,x%,Za|
0000ec70 25 29 2a a4 63 28 7a 25 2c 78 25 2c 5a 61 25 29 |%)*.c(z%,x%,Za%)|
0000ec80 0d 36 06 44 c9 33 3a 6e 3d 28 a4 61 28 7a 25 2c |.6.D.3:n=(.a(z%,|
0000ec90 78 25 2c 5a 61 25 29 2a a4 63 28 7a 25 2c 78 25 |x%,Za%)*.c(z%,x%|
0000eca0 2c 5a 61 25 29 29 2d 28 a4 61 28 7a 25 2c 78 25 |,Za%))-(.a(z%,x%|
0000ecb0 2c 5a 61 25 29 2a a4 64 28 7a 25 2c 78 25 2c 5a |,Za%)*.d(z%,x%,Z|
0000ecc0 61 25 29 29 0d 36 10 4f c9 34 3a e7 a4 64 28 7a |a%)).6.O.4:..d(z|
0000ecd0 25 2c 78 25 2c 5a 61 25 29 3d 30 8c 6e 3d 30 8b |%,x%,Za%)=0.n=0.|
0000ece0 6e 3d 28 a4 63 28 7a 25 2c 78 25 2c 5a 61 25 29 |n=(.c(z%,x%,Za%)|
0000ecf0 2d a4 64 28 7a 25 2c 78 25 2c 5a 61 25 29 29 2f |-.d(z%,x%,Za%))/|
0000ed00 28 a4 64 28 7a 25 2c 78 25 2c 5a 61 25 29 29 2a |(.d(z%,x%,Za%))*|
0000ed10 31 30 30 0d 36 1a 05 cb 0d 36 24 1a 21 28 4a 25 |100.6....6$.!(J%|
0000ed20 2b 34 29 3d 6e 2a 31 30 30 3a e7 6e 3e 75 8c 75 |+4)=n*100:.n>u.u|
0000ed30 3d 6e 0d 36 2e 0c e7 6e 3c 76 8c 76 3d 6e 0d 36 |=n.6...n<v.v=n.6|
0000ed40 38 0f 49 61 2b 3d 6e 3a 6c 25 2b 3d 31 0d 36 42 |8.Ia+=n:l%+=1.6B|
0000ed50 05 cd 0d 36 4c 07 ed 3a ed 0d 36 56 28 c9 35 2c |...6L..:..6V(.5,|
0000ed60 36 3a e3 78 25 3d 74 68 25 b8 75 68 25 3a 6e 3d |6:.x%=th%.uh%:n=|
0000ed70 30 3a e7 6e 25 28 5a 61 25 2c 78 25 29 3c 3e 30 |0:.n%(Za%,x%)<>0|
0000ed80 8c 0d 36 60 5b e3 7a 25 3d 30 b8 6e 25 28 5a 61 |..6`[.z%=0.n%(Za|
0000ed90 25 2c 78 25 29 2d 31 3a e7 57 61 25 3d 35 8c 6e |%,x%)-1:.Wa%=5.n|
0000eda0 2b 3d a4 63 28 7a 25 2c 78 25 2c 5a 61 25 29 2a |+=.c(z%,x%,Za%)*|
0000edb0 a4 61 28 7a 25 2c 78 25 2c 5a 61 25 29 8b 6e 2b |.a(z%,x%,Za%).n+|
0000edc0 3d a4 64 28 7a 25 2c 78 25 2c 5a 61 25 29 2a a4 |=.d(z%,x%,Za%)*.|
0000edd0 61 28 7a 25 2c 78 25 2c 5a 61 25 29 0d 36 6a 2b |a(z%,x%,Za%).6j+|
0000ede0 ed 7a 25 3a 75 63 25 3d a4 6b 28 75 63 25 2c 38 |.z%:uc%=.k(uc%,8|
0000edf0 2c 54 25 29 3a 4a 25 3d 75 63 25 2b 38 2a 6c 25 |,T%):J%=uc%+8*l%|
0000ee00 3a e7 ac 54 25 8c e1 0d 36 74 23 21 28 4a 25 29 |:..T%...6t#!(J%)|
0000ee10 3d 78 25 3a 21 28 4a 25 2b 34 29 3d 6e 2a 31 30 |=x%:!(J%+4)=n*10|
0000ee20 30 3a e7 6e 3e 75 8c 75 3d 6e 0d 36 7e 0c e7 6e |0:.n>u.u=n.6~..n|
0000ee30 3c 76 8c 76 3d 6e 0d 36 88 0f 49 61 2b 3d 6e 3a |<v.v=n.6..Ia+=n:|
0000ee40 6c 25 2b 3d 31 0d 36 92 05 cd 0d 36 9c 05 ed 0d |l%+=1.6....6....|
0000ee50 36 a6 05 cb 0d 36 b0 0a e7 6c 25 3d 30 8c 0d 36 |6....6...l%=0..6|
0000ee60 ba 1f f2 71 28 22 4e 6f 20 69 6e 66 6f 72 6d 61 |...q("No informa|
0000ee70 74 69 6f 6e 20 66 6f 75 6e 64 2e 22 29 0d 36 c4 |tion found.").6.|
0000ee80 0d cc 3a 50 3d 49 61 2f 6c 25 0d 36 ce 05 cd 0d |..:P=Ia/l%.6....|
0000ee90 36 d8 13 40 25 3d 30 3a c8 99 32 36 33 38 37 33 |6..@%=0:..263873|
0000eea0 3a e1 0d 36 e2 d1 dd f2 5f 62 28 76 68 25 29 3a |:..6...._b(vh%):|
0000eeb0 f2 66 28 33 38 29 3a f2 76 28 33 38 2c 22 53 68 |.f(38):.v(38,"Sh|
0000eec0 61 72 65 20 45 6e 74 72 79 20 48 69 73 74 6f 72 |are Entry Histor|
0000eed0 79 3a 20 22 2b 61 24 28 67 25 29 2c 31 29 3a 24 |y: "+a$(g%),1):$|
0000eee0 a4 74 28 33 38 2c 30 29 3d c0 a4 62 28 76 68 25 |.t(38,0)=..b(vh%|
0000eef0 2c 64 25 28 67 25 29 2c 67 25 29 29 3a f2 76 63 |,d%(g%),g%)):.vc|
0000ef00 28 76 68 25 2c 64 25 28 67 25 29 2c 67 25 29 3a |(vh%,d%(g%),g%):|
0000ef10 f2 6c 28 31 2c 33 38 29 3a 21 71 25 3d 61 25 28 |.l(1,38):!q%=a%(|
0000ef20 33 38 29 3a f2 72 28 71 25 29 3a e7 4f 25 3e 36 |38):.r(q%):.O%>6|
0000ef30 84 71 63 25 8c f2 69 28 33 38 2c 32 31 34 2b 28 |.qc%..i(38,214+(|
0000ef40 34 30 2a 4f 25 29 2b 28 36 36 34 2a 94 28 71 63 |40*O%)+(664*.(qc|
0000ef50 25 29 29 2c 31 35 37 30 2c 34 38 2c 30 29 8b f2 |%)),1570,48,0)..|
0000ef60 69 28 33 38 2c 34 35 36 2c 31 35 37 30 2c 34 38 |i(38,456,1570,48|
0000ef70 2c 30 29 0d 36 ec 05 e1 0d 36 f6 ed dd f2 76 63 |,0).6....6....vc|
0000ef80 28 77 68 25 2c 78 68 25 2c 79 68 25 29 3a c8 99 |(wh%,xh%,yh%):..|
0000ef90 32 36 33 38 37 32 3a 4f 25 3d 30 3a 48 67 25 3d |263872:O%=0:Hg%=|
0000efa0 77 68 25 3a 49 67 25 3d 78 68 25 3a 51 25 3d 79 |wh%:Ig%=xh%:Q%=y|
0000efb0 68 25 3a 73 63 25 3d 39 39 39 39 39 39 39 39 3a |h%:sc%=99999999:|
0000efc0 72 63 25 3d 2d 39 39 39 39 39 39 39 39 39 3a 74 |rc%=-999999999:t|
0000efd0 63 25 3d 30 3a 59 3d 39 39 39 39 39 39 39 39 3a |c%=0:Y=99999999:|
0000efe0 58 3d 2d 39 39 39 39 39 39 39 39 39 3a 52 3d 30 |X=-999999999:R=0|
0000eff0 3a 5f 3d 39 39 39 39 39 39 39 39 3a 5a 3d 2d 39 |:_=99999999:Z=-9|
0000f000 39 39 39 39 39 39 39 39 3a 53 3d 30 3a 63 61 3d |99999999:S=0:ca=|
0000f010 39 39 39 39 39 39 39 39 3a 60 3d 2d 39 39 39 39 |99999999:`=-9999|
0000f020 39 39 39 39 39 3a 54 3d 30 3a 65 61 3d 39 39 39 |99999:T=0:ea=999|
0000f030 39 39 39 39 39 3a 64 61 3d 2d 39 39 39 39 39 39 |99999:da=-999999|
0000f040 39 39 39 3a 55 3d 30 3a 67 61 3d 39 39 39 39 39 |999:U=0:ga=99999|
0000f050 39 39 39 3a 66 61 3d 2d 39 39 39 39 39 39 39 39 |999:fa=-99999999|
0000f060 39 3a 56 3d 30 0d 37 00 5c 69 61 3d 39 39 39 39 |9:V=0.7.\ia=9999|
0000f070 39 39 39 39 3a 68 61 3d 2d 39 39 39 39 39 39 39 |9999:ha=-9999999|
0000f080 39 39 3a 57 3d 30 3a e3 4b 25 3d 30 b8 33 35 3a |99:W=0:.K%=0.35:|
0000f090 e3 57 25 3d 30 b8 6e 25 28 51 25 2c 4b 25 29 3a |.W%=0.n%(Q%,K%):|
0000f0a0 e7 c0 a4 62 28 48 67 25 2c 49 67 25 2c 51 25 29 |...b(Hg%,Ig%,Q%)|
0000f0b0 29 3d c0 a4 62 28 57 25 2c 4b 25 2c 51 25 29 29 |)=..b(W%,K%,Q%))|
0000f0c0 8c 0d 37 0a 29 70 63 25 3d a4 6b 28 70 63 25 2c |..7.)pc%=.k(pc%,|
0000f0d0 33 32 2c 54 25 29 3a 4a 25 3d 70 63 25 2b 33 32 |32,T%):J%=pc%+32|
0000f0e0 2a 4f 25 3a e7 ac 54 25 8c e1 0d 37 14 3e 21 28 |*O%:..T%...7.>!(|
0000f0f0 4a 25 29 3d 4b 25 3a 7a 68 25 3d a4 61 28 57 25 |J%)=K%:zh%=.a(W%|
0000f100 2c 4b 25 2c 51 25 29 3a 21 28 4a 25 2b 34 29 3d |,K%,Q%):!(J%+4)=|
0000f110 7a 68 25 2a 31 30 30 3a e7 7a 68 25 3c 73 63 25 |zh%*100:.zh%<sc%|
0000f120 8c 73 63 25 3d 7a 68 25 0d 37 1e 14 e7 7a 68 25 |.sc%=zh%.7...zh%|
0000f130 3e 72 63 25 8c 72 63 25 3d 7a 68 25 0d 37 28 32 |>rc%.rc%=zh%.7(2|
0000f140 74 63 25 2b 3d 7a 68 25 3a 62 3d a4 64 28 57 25 |tc%+=zh%:b=.d(W%|
0000f150 2c 4b 25 2c 51 25 29 3a 21 28 4a 25 2b 38 29 3d |,K%,Q%):!(J%+8)=|
0000f160 62 2a 31 30 30 3a e7 62 3c 59 8c 59 3d 62 0d 37 |b*100:.b<Y.Y=b.7|
0000f170 32 0c e7 62 3e 58 8c 58 3d 62 0d 37 3c 3c 52 2b |2..b>X.X=b.7<<R+|
0000f180 3d 62 3a 62 3d a4 61 28 57 25 2c 4b 25 2c 51 25 |=b:b=.a(W%,K%,Q%|
0000f190 29 2a a4 64 28 57 25 2c 4b 25 2c 51 25 29 3a 21 |)*.d(W%,K%,Q%):!|
0000f1a0 28 4a 25 2b 31 32 29 3d 62 2a 31 30 30 3a e7 62 |(J%+12)=b*100:.b|
0000f1b0 3c 5f 8c 5f 3d 62 0d 37 46 0c e7 62 3e 5a 8c 5a |<_._=b.7F..b>Z.Z|
0000f1c0 3d 62 0d 37 50 31 53 2b 3d 62 3a 62 3d a4 63 28 |=b.7P1S+=b:b=.c(|
0000f1d0 57 25 2c 4b 25 2c 51 25 29 3a 21 28 4a 25 2b 31 |W%,K%,Q%):!(J%+1|
0000f1e0 36 29 3d 62 2a 31 30 30 3a e7 62 3c 63 61 8c 63 |6)=b*100:.b<ca.c|
0000f1f0 61 3d 62 0d 37 5a 0c e7 62 3e 60 8c 60 3d 62 0d |a=b.7Z..b>`.`=b.|
0000f200 37 64 3e 54 2b 3d 62 3a 62 3d a4 63 28 57 25 2c |7d>T+=b:b=.c(W%,|
0000f210 4b 25 2c 51 25 29 2a a4 61 28 57 25 2c 4b 25 2c |K%,Q%)*.a(W%,K%,|
0000f220 51 25 29 3a 21 28 4a 25 2b 32 30 29 3d 62 2a 31 |Q%):!(J%+20)=b*1|
0000f230 30 30 3a e7 62 3c 65 61 8c 65 61 3d 62 0d 37 6e |00:.b<ea.ea=b.7n|
0000f240 0e e7 62 3e 64 61 8c 64 61 3d 62 0d 37 78 4d 55 |..b>da.da=b.7xMU|
0000f250 2b 3d 62 3a 62 3d a4 61 28 57 25 2c 4b 25 2c 51 |+=b:b=.a(W%,K%,Q|
0000f260 25 29 2a 28 a4 63 28 57 25 2c 4b 25 2c 51 25 29 |%)*(.c(W%,K%,Q%)|
0000f270 2d a4 64 28 57 25 2c 4b 25 2c 51 25 29 29 3a 21 |-.d(W%,K%,Q%)):!|
0000f280 28 4a 25 2b 32 34 29 3d 62 2a 31 30 30 3a e7 62 |(J%+24)=b*100:.b|
0000f290 3c 67 61 8c 67 61 3d 62 0d 37 82 0e e7 62 3e 66 |<ga.ga=b.7...b>f|
0000f2a0 61 8c 66 61 3d 62 0d 37 8c 4f 56 2b 3d 62 3a e7 |a.fa=b.7.OV+=b:.|
0000f2b0 a4 64 28 57 25 2c 4b 25 2c 51 25 29 3d 30 8c 4e |.d(W%,K%,Q%)=0.N|
0000f2c0 3d 30 8b 4e 3d 28 a4 63 28 57 25 2c 4b 25 2c 51 |=0.N=(.c(W%,K%,Q|
0000f2d0 25 29 2d a4 64 28 57 25 2c 4b 25 2c 51 25 29 29 |%)-.d(W%,K%,Q%))|
0000f2e0 2f 28 a4 64 28 57 25 2c 4b 25 2c 51 25 29 29 2a |/(.d(W%,K%,Q%))*|
0000f2f0 31 30 30 30 30 0d 37 96 23 21 28 4a 25 2b 32 38 |10000.7.#!(J%+28|
0000f300 29 3d 4e 3a e7 4e 2a 30 2e 30 31 3c 69 61 8c 69 |)=N:.N*0.01<ia.i|
0000f310 61 3d 4e 2a 30 2e 30 31 0d 37 a0 18 e7 4e 2a 30 |a=N*0.01.7...N*0|
0000f320 2e 30 31 3e 68 61 8c 68 61 3d 4e 2a 30 2e 30 31 |.01>ha.ha=N*0.01|
0000f330 0d 37 aa 13 57 2b 3d 4e 2a 30 2e 30 31 3a 4f 25 |.7..W+=N*0.01:O%|
0000f340 2b 3d 31 0d 37 b4 05 cd 0d 37 be 52 ed 3a ed 3a |+=1.7....7.R.:.:|
0000f350 74 63 25 3d 74 63 25 2f 4f 25 3a 52 3d 52 2f 4f |tc%=tc%/O%:R=R/O|
0000f360 25 3a 53 3d 53 2f 4f 25 3a 54 3d 54 2f 4f 25 3a |%:S=S/O%:T=T/O%:|
0000f370 55 3d 55 2f 4f 25 3a 56 3d 56 2f 4f 25 3a 57 3d |U=U/O%:V=V/O%:W=|
0000f380 57 2f 4f 25 3a 4f 25 2d 3d 31 3a 40 25 3d 30 3a |W/O%:O%-=1:@%=0:|
0000f390 c8 99 32 36 33 38 37 33 3a e1 0d 37 c8 1c dd f2 |..263873:..7....|
0000f3a0 67 63 28 41 68 25 29 3a 56 63 25 3d 41 68 25 3a |gc(Ah%):Vc%=Ah%:|
0000f3b0 c8 8e 56 63 25 ca 0d 37 d2 0c c9 30 3a 57 63 25 |..Vc%..7...0:Wc%|
0000f3c0 3d 34 0d 37 dc 0d c9 31 3a 57 63 25 3d 31 36 0d |=4.7...1:Wc%=16.|
0000f3d0 37 e6 0d c9 32 3a 57 63 25 3d 32 30 0d 37 f0 0d |7...2:Wc%=20.7..|
0000f3e0 c9 33 3a 57 63 25 3d 32 34 0d 37 fa 0d c9 34 3a |.3:Wc%=24.7...4:|
0000f3f0 57 63 25 3d 32 38 0d 38 04 05 cb 0d 38 0e 4b 47 |Wc%=28.8....8.KG|
0000f400 3d 39 39 39 39 39 39 39 39 39 3a 43 3d 2d 39 39 |=999999999:C=-99|
0000f410 39 39 39 39 39 39 39 3a 4a 61 3d 30 3a e3 69 25 |9999999:Ja=0:.i%|
0000f420 3d 30 b8 4f 25 3a 4f 3d 21 28 70 63 25 2b 33 32 |=0.O%:O=!(pc%+32|
0000f430 2a 69 25 2b 57 63 25 29 2a 30 2e 30 31 3a e7 4f |*i%+Wc%)*0.01:.O|
0000f440 3e 43 8c 43 3d 4f 0d 38 18 0c e7 4f 3c 47 8c 47 |>C.C=O.8...O<G.G|
0000f450 3d 4f 0d 38 22 1d 4a 61 2b 3d 4f 3a ed 3a 6e 61 |=O.8".Ja+=O:.:na|
0000f460 3d 4a 61 2f 28 4f 25 2b 31 29 3a e7 a4 45 8c 0d |=Ja/(O%+1):..E..|
0000f470 38 2c 0c f2 66 63 28 49 63 25 29 0d 38 36 3c cc |8,..fc(Ic%).86<.|
0000f480 3a f2 71 28 22 49 6e 76 65 73 74 6f 72 20 63 61 |:.q("Investor ca|
0000f490 6e 6e 6f 74 20 70 6c 6f 74 20 74 68 69 73 20 64 |nnot plot this d|
0000f4a0 61 74 61 2e 22 29 3a e7 61 25 28 33 39 29 3e 30 |ata."):.a%(39)>0|
0000f4b0 8c f2 67 28 33 39 29 0d 38 40 05 cd 0d 38 4a 05 |..g(39).8@...8J.|
0000f4c0 e1 0d 38 54 14 dd f2 66 63 28 42 68 25 29 3a c8 |..8T...fc(Bh%):.|
0000f4d0 8e 42 68 25 ca 0d 38 5e 55 c9 31 3a f2 76 28 33 |.Bh%..8^U.1:.v(3|
0000f4e0 39 2c c0 a4 62 28 58 61 25 2c 59 61 25 2c 5a 61 |9,..b(Xa%,Ya%,Za|
0000f4f0 25 29 29 2b 22 20 53 68 61 72 65 20 48 69 73 74 |%))+" Share Hist|
0000f500 6f 72 79 3a 20 22 2b a4 75 2c 31 29 3a f2 69 28 |ory: "+.u,1):.i(|
0000f510 33 39 2c 35 36 34 2c 33 31 30 2b 28 a4 6e 2a 6c |39,564,310+(.n*l|
0000f520 25 2b a4 6f 29 2c 30 2c 30 29 0d 38 68 54 c9 32 |%+.o),0,0).8hT.2|
0000f530 3a f2 76 28 33 39 2c c0 a4 62 28 48 67 25 2c 49 |:.v(39,..b(Hg%,I|
0000f540 67 25 2c 51 25 29 29 2b 22 20 53 68 61 72 65 20 |g%,Q%))+" Share |
0000f550 48 69 73 74 6f 72 79 3a 20 22 2b a4 75 2c 31 29 |History: "+.u,1)|
0000f560 3a f2 69 28 33 39 2c 35 36 34 2c 33 31 30 2b 28 |:.i(39,564,310+(|
0000f570 a4 6e 2a 4f 25 2b a4 6f 29 2c 30 2c 30 29 0d 38 |.n*O%+.o),0,0).8|
0000f580 72 05 cb 0d 38 7c 17 21 71 25 3d 61 25 28 33 39 |r...8|.!q%=a%(39|
0000f590 29 3a f2 72 28 71 25 29 3a e1 0d 38 86 27 dd f2 |):.r(q%):..8.'..|
0000f5a0 63 62 3a e7 63 25 28 30 29 3d 30 8c 63 25 28 30 |cb:.c%(0)=0.c%(0|
0000f5b0 29 3d 31 3a 48 64 25 3d 30 3a f2 51 28 30 29 3a |)=1:Hd%=0:.Q(0):|
0000f5c0 e1 0d 38 90 22 e7 63 25 28 31 29 3d 30 8c 63 25 |..8.".c%(1)=0.c%|
0000f5d0 28 31 29 3d 31 3a 48 64 25 3d 31 3a f2 51 28 31 |(1)=1:Hd%=1:.Q(1|
0000f5e0 29 3a e1 0d 38 9a 22 e7 63 25 28 32 29 3d 30 8c |):..8.".c%(2)=0.|
0000f5f0 63 25 28 32 29 3d 31 3a 48 64 25 3d 32 3a f2 51 |c%(2)=1:Hd%=2:.Q|
0000f600 28 32 29 3a e1 0d 38 a4 22 e7 63 25 28 33 29 3d |(2):..8.".c%(3)=|
0000f610 30 8c 63 25 28 33 29 3d 31 3a 48 64 25 3d 33 3a |0.c%(3)=1:Hd%=3:|
0000f620 f2 51 28 33 29 3a e1 0d 38 ae 22 e7 63 25 28 34 |.Q(3):..8.".c%(4|
0000f630 29 3d 30 8c 63 25 28 34 29 3d 31 3a 48 64 25 3d |)=0.c%(4)=1:Hd%=|
0000f640 34 3a f2 51 28 34 29 3a e1 0d 38 b8 22 e7 63 25 |4:.Q(4):..8.".c%|
0000f650 28 35 29 3d 30 8c 63 25 28 35 29 3d 31 3a 48 64 |(5)=0.c%(5)=1:Hd|
0000f660 25 3d 35 3a f2 51 28 35 29 3a e1 0d 38 c2 12 4d |%=5:.Q(5):..8..M|
0000f670 64 25 3d b9 3a 48 64 25 3d 2d 31 3a e1 0d 38 cc |d%=.:Hd%=-1:..8.|
0000f680 35 dd f2 51 28 43 68 25 29 3a 40 25 3d 30 3a e7 |5..Q(Ch%):@%=0:.|
0000f690 61 24 28 43 68 25 29 3d c3 28 4e 25 29 8c 61 24 |a$(Ch%)=.(N%).a$|
0000f6a0 28 43 68 25 29 3d 22 3c 75 6e 74 69 74 6c 65 64 |(Ch%)="<untitled|
0000f6b0 3e 22 0d 38 d6 05 e1 0d 38 e0 2c dd f2 6c 28 64 |>".8....8.,..l(d|
0000f6c0 25 2c 6e 25 29 3a e7 6e 25 3c 36 80 64 25 3d 30 |%,n%):.n%<6.d%=0|
0000f6d0 8c 64 25 28 6e 25 29 3d a4 78 28 4b 64 25 2c 4c |.d%(n%)=.x(Kd%,L|
0000f6e0 64 25 29 0d 38 ea 0f e7 64 25 3d 30 f2 66 28 6e |d%).8...d%=0.f(n|
0000f6f0 25 29 0d 38 f4 27 21 71 25 3d 61 25 28 6e 25 29 |%).8.'!q%=a%(n%)|
0000f700 3a c8 99 32 36 32 33 34 37 2c 2c 71 25 3a e7 6e |:..262347,,q%:.n|
0000f710 25 3c 36 80 64 25 3d 30 8c 0d 38 fe 9a 44 68 25 |%<6.d%=0..8..Dh%|
0000f720 3d 71 25 21 31 32 2d 71 25 21 34 3a 45 68 25 3d |=q%!12-q%!4:Eh%=|
0000f730 71 25 21 31 36 2d 71 25 21 38 3a 71 25 21 34 3d |q%!16-q%!8:q%!4=|
0000f740 28 38 30 2a 6e 25 29 2b 32 3a 71 25 21 38 3d 74 |(80*n%)+2:q%!8=t|
0000f750 61 25 2d 34 30 2d 45 68 25 2d 36 38 2a 6e 25 3a |a%-40-Eh%-68*n%:|
0000f760 71 25 21 31 32 3d 71 25 21 34 2b 44 68 25 3a 71 |q%!12=q%!4+Dh%:q|
0000f770 25 21 31 36 3d 71 25 21 38 2b 45 68 25 3a 71 25 |%!16=q%!8+Eh%:q%|
0000f780 21 32 30 3d 30 3a 71 25 21 32 34 3d 30 3a 71 25 |!20=0:q%!24=0:q%|
0000f790 21 32 38 3d 2d 31 3a f2 60 28 6e 25 29 3a e7 65 |!28=-1:.`(n%):.e|
0000f7a0 25 28 6e 25 29 8c 67 24 3d 22 20 2a 22 8b 67 24 |%(n%).g$=" *".g$|
0000f7b0 3d 22 22 0d 39 08 16 f2 76 28 6e 25 2c 61 24 28 |="".9...v(n%,a$(|
0000f7c0 6e 25 29 2b 67 24 2c 30 29 0d 39 12 15 cc 3a e7 |n%)+g$,0).9...:.|
0000f7d0 6e 25 3c 3e 31 35 80 6e 25 3c 3e 33 37 8c 0d 39 |n%<>15.n%<>37..9|
0000f7e0 1c 75 45 68 25 3d 71 25 21 31 36 2d 71 25 21 38 |.uEh%=q%!16-q%!8|
0000f7f0 3a 71 25 21 34 3d 6b 25 28 30 2c 6e 25 29 3a 71 |:q%!4=k%(0,n%):q|
0000f800 25 21 38 3d 74 61 25 2d 28 31 30 32 30 2d 6b 25 |%!8=ta%-(1020-k%|
0000f810 28 31 2c 6e 25 29 29 3a 71 25 21 31 36 3d 71 25 |(1,n%)):q%!16=q%|
0000f820 21 38 2b 45 68 25 3a e7 71 25 21 31 36 3e 74 61 |!8+Eh%:.q%!16>ta|
0000f830 25 8c 71 25 21 38 2d 3d 28 71 25 21 31 36 2d 74 |%.q%!8-=(q%!16-t|
0000f840 61 25 2b 34 30 29 3a 71 25 21 31 36 3d 74 61 25 |a%+40):q%!16=ta%|
0000f850 2d 34 30 0d 39 26 05 cd 0d 39 30 05 cd 0d 39 3a |-40.9&...90...9:|
0000f860 19 e7 71 25 21 33 32 80 36 35 35 33 36 8c 71 25 |..q%!32.65536.q%|
0000f870 21 32 38 3d 2d 31 0d 39 44 12 c8 99 32 36 32 33 |!28=-1.9D...2623|
0000f880 34 31 2c 2c 71 25 3a e1 0d 39 4e 16 dd f2 44 3a |41,,q%:..9N...D:|
0000f890 46 68 25 3d a3 3a e7 6b 66 25 3d 30 8c e1 0d 39 |Fh%=.:.kf%=0...9|
0000f8a0 58 13 c8 99 32 36 33 38 37 32 3a c8 8e 6d 66 25 |X...263872:..mf%|
0000f8b0 ca 0d 39 62 2a c9 30 3a 47 68 25 3d 67 25 3a 48 |..9b*.0:Gh%=g%:H|
0000f8c0 68 25 3d 67 25 3a 49 68 25 3d 64 25 28 67 25 29 |h%=g%:Ih%=d%(g%)|
0000f8d0 3a 4a 68 25 3d 64 25 28 67 25 29 0d 39 6c 21 c9 |:Jh%=d%(g%).9l!.|
0000f8e0 31 3a 47 68 25 3d 67 25 3a 48 68 25 3d 67 25 3a |1:Gh%=g%:Hh%=g%:|
0000f8f0 49 68 25 3d 30 3a 4a 68 25 3d 33 35 0d 39 76 1f |Ih%=0:Jh%=35.9v.|
0000f900 c9 32 3a 47 68 25 3d 30 3a 48 68 25 3d 35 3a 49 |.2:Gh%=0:Hh%=5:I|
0000f910 68 25 3d 30 3a 4a 68 25 3d 33 35 0d 39 80 05 cb |h%=0:Jh%=35.9...|
0000f920 0d 39 8a 90 e3 6e 25 3d 47 68 25 b8 48 68 25 3a |.9...n%=Gh%.Hh%:|
0000f930 e3 6f 25 3d 49 68 25 b8 4a 68 25 3a e7 75 62 25 |.o%=Ih%.Jh%:.ub%|
0000f940 3d 6e 25 80 43 62 25 3d 6f 25 8c 4b 68 25 3d 6e |=n%.Cb%=o%.Kh%=n|
0000f950 25 3a 4c 68 25 3d 6f 25 3a 46 68 25 3d b9 3a 57 |%:Lh%=o%:Fh%=.:W|
0000f960 24 3d c0 24 28 73 25 28 6e 25 2c 6f 25 29 2b 33 |$=.$(s%(n%,o%)+3|
0000f970 36 2a 59 25 29 29 3a 65 61 24 3d c2 24 28 73 25 |6*Y%)):ea$=.$(s%|
0000f980 28 6e 25 2c 6f 25 29 2b 33 36 2a 59 25 29 29 3a |(n%,o%)+36*Y%)):|
0000f990 24 28 73 25 28 6e 25 2c 6f 25 29 2b 33 36 2a 59 |$(s%(n%,o%)+36*Y|
0000f9a0 25 29 3d 57 24 2b 22 32 22 3a f2 4b 28 6e 25 29 |%)=W$+"2":.K(n%)|
0000f9b0 0d 39 94 0a c8 8e 6b 66 25 ca 0d 39 9e 26 c9 31 |.9....kf%..9.&.1|
0000f9c0 3a e7 6e 25 28 6e 25 2c 6f 25 29 3e 31 8c f2 77 |:.n%(n%,o%)>1..w|
0000f9d0 63 28 30 2c 6e 25 28 6e 25 2c 6f 25 29 2d 31 29 |c(0,n%(n%,o%)-1)|
0000f9e0 0d 39 a8 26 c9 32 3a e7 6e 25 28 6e 25 2c 6f 25 |.9.&.2:.n%(n%,o%|
0000f9f0 29 3e 31 8c f2 78 63 28 30 2c 6e 25 28 6e 25 2c |)>1..xc(0,n%(n%,|
0000fa00 6f 25 29 2d 31 29 0d 39 b2 26 c9 33 3a e7 6e 25 |o%)-1).9.&.3:.n%|
0000fa10 28 6e 25 2c 6f 25 29 3e 31 8c f2 79 63 28 30 2c |(n%,o%)>1..yc(0,|
0000fa20 6e 25 28 6e 25 2c 6f 25 29 2d 31 29 0d 39 bc 26 |n%(n%,o%)-1).9.&|
0000fa30 c9 34 3a e7 6e 25 28 6e 25 2c 6f 25 29 3e 31 8c |.4:.n%(n%,o%)>1.|
0000fa40 f2 7a 63 28 30 2c 6e 25 28 6e 25 2c 6f 25 29 2d |.zc(0,n%(n%,o%)-|
0000fa50 31 29 0d 39 c6 26 c9 35 3a e7 6e 25 28 6e 25 2c |1).9.&.5:.n%(n%,|
0000fa60 6f 25 29 3e 31 8c f2 41 63 28 30 2c 6e 25 28 6e |o%)>1..Ac(0,n%(n|
0000fa70 25 2c 6f 25 29 2d 31 29 0d 39 d0 05 cb 0d 39 da |%,o%)-1).9....9.|
0000fa80 0e ed 3a e7 46 68 25 8c f2 42 63 0d 39 e4 25 e7 |..:.Fh%..Bc.9.%.|
0000fa90 61 25 28 6e 25 29 3c 3e 30 80 ac 46 68 25 8c 21 |a%(n%)<>0..Fh%.!|
0000faa0 71 25 3d 61 25 28 6e 25 29 3a f2 72 28 71 25 29 |q%=a%(n%):.r(q%)|
0000fab0 0d 39 ee 10 ed 3a c8 99 32 36 33 38 37 33 3a e1 |.9...:..263873:.|
0000fac0 0d 39 f8 86 dd f2 42 63 3a e3 4d 68 25 3d 30 b8 |.9....Bc:.Mh%=0.|
0000fad0 6e 25 28 4b 68 25 2c 4c 68 25 29 2d 31 3a e7 c2 |n%(Kh%,Lh%)-1:..|
0000fae0 24 28 73 25 28 4b 68 25 2c 4c 68 25 29 2b 33 36 |$(s%(Kh%,Lh%)+36|
0000faf0 2a 4d 68 25 29 29 3d 22 32 22 8c 59 25 3d 4d 68 |*Mh%))="2".Y%=Mh|
0000fb00 25 3a 24 28 73 25 28 4b 68 25 2c 4c 68 25 29 2b |%:$(s%(Kh%,Lh%)+|
0000fb10 33 36 2a 4d 68 25 29 3d 57 24 2b 65 61 24 3a 45 |36*Mh%)=W$+ea$:E|
0000fb20 62 25 3d 4c 68 25 3a 46 62 25 3d 4b 68 25 3a 44 |b%=Lh%:Fb%=Kh%:D|
0000fb30 62 25 3d 4d 68 25 3a f2 59 28 4b 68 25 2c 4d 68 |b%=Mh%:.Y(Kh%,Mh|
0000fb40 25 29 3a f2 48 61 0d 3a 02 21 ed 3a e7 61 25 28 |%):.Ha.:.!.:.a%(|
0000fb50 6e 25 29 3e 30 8c 21 71 25 3d 61 25 28 6e 25 29 |n%)>0.!q%=a%(n%)|
0000fb60 3a f2 72 28 71 25 29 0d 3a 0c 05 e1 0d 3a 16 67 |:.r(q%).:....:.g|
0000fb70 dd f2 77 63 28 6b 63 25 2c 6c 63 25 29 3a e3 4e |..wc(kc%,lc%):.N|
0000fb80 68 25 3d 6b 63 25 b8 6c 63 25 3a 4f 68 25 3d 4e |h%=kc%.lc%:Oh%=N|
0000fb90 68 25 3a e3 50 68 25 3d 4e 68 25 b8 6c 63 25 3a |h%:.Ph%=Nh%.lc%:|
0000fba0 e7 28 24 28 73 25 28 6e 25 2c 6f 25 29 2b 33 36 |.($(s%(n%,o%)+36|
0000fbb0 2a 50 68 25 29 29 3c 28 24 28 73 25 28 6e 25 2c |*Ph%))<($(s%(n%,|
0000fbc0 6f 25 29 2b 33 36 2a 4f 68 25 29 29 4f 68 25 3d |o%)+36*Oh%))Oh%=|
0000fbd0 50 68 25 0d 3a 20 15 ed 3a f2 54 28 4e 68 25 2c |Ph%.: ..:.T(Nh%,|
0000fbe0 4f 68 25 29 3a ed 3a e1 0d 3a 2a 97 dd f2 79 63 |Oh%):.:..:*...yc|
0000fbf0 28 6b 63 25 2c 6c 63 25 29 3a e3 4e 68 25 3d 6b |(kc%,lc%):.Nh%=k|
0000fc00 63 25 b8 6c 63 25 3a 4f 68 25 3d 4e 68 25 3a e3 |c%.lc%:Oh%=Nh%:.|
0000fc10 50 68 25 3d 4e 68 25 b8 6c 63 25 3a e7 21 28 73 |Ph%=Nh%.lc%:.!(s|
0000fc20 25 28 6e 25 2c 6f 25 29 2b 33 36 2a 50 68 25 2b |%(n%,o%)+36*Ph%+|
0000fc30 33 32 29 2a 21 28 73 25 28 6e 25 2c 6f 25 29 2b |32)*!(s%(n%,o%)+|
0000fc40 33 36 2a 50 68 25 2b 32 34 29 3e 21 28 73 25 28 |36*Ph%+24)>!(s%(|
0000fc50 6e 25 2c 6f 25 29 2b 33 36 2a 4f 68 25 2b 33 32 |n%,o%)+36*Oh%+32|
0000fc60 29 2a 21 28 73 25 28 6e 25 2c 6f 25 29 2b 33 36 |)*!(s%(n%,o%)+36|
0000fc70 2a 4f 68 25 2b 32 34 29 4f 68 25 3d 50 68 25 0d |*Oh%+24)Oh%=Ph%.|
0000fc80 3a 34 15 ed 3a f2 54 28 4e 68 25 2c 4f 68 25 29 |:4..:.T(Nh%,Oh%)|
0000fc90 3a ed 3a e1 0d 3a 3e 69 dd f2 7a 63 28 6b 63 25 |:.:..:>i..zc(kc%|
0000fca0 2c 6c 63 25 29 3a e3 4e 68 25 3d 6b 63 25 b8 6c |,lc%):.Nh%=kc%.l|
0000fcb0 63 25 3a 4f 68 25 3d 4e 68 25 3a e3 50 68 25 3d |c%:Oh%=Nh%:.Ph%=|
0000fcc0 4e 68 25 b8 6c 63 25 3a e7 21 28 73 25 28 6e 25 |Nh%.lc%:.!(s%(n%|
0000fcd0 2c 6f 25 29 2b 33 36 2a 50 68 25 2b 33 32 29 3e |,o%)+36*Ph%+32)>|
0000fce0 21 28 73 25 28 6e 25 2c 6f 25 29 2b 33 36 2a 4f |!(s%(n%,o%)+36*O|
0000fcf0 68 25 2b 33 32 29 4f 68 25 3d 50 68 25 0d 3a 48 |h%+32)Oh%=Ph%.:H|
0000fd00 15 ed 3a f2 54 28 4e 68 25 2c 4f 68 25 29 3a ed |..:.T(Nh%,Oh%):.|
0000fd10 3a e1 0d 3a 52 33 dd f2 78 63 28 6b 63 25 2c 6c |:..:R3..xc(kc%,l|
0000fd20 63 25 29 3a 64 68 25 3d a4 6b 28 64 68 25 2c 34 |c%):dh%=.k(dh%,4|
0000fd30 2a 6e 25 28 6e 25 2c 6f 25 29 2c 54 25 29 3a e7 |*n%(n%,o%),T%):.|
0000fd40 ac 54 25 8c e1 0d 3a 5c a7 e3 79 67 25 3d 30 b8 |.T%...:\..yg%=0.|
0000fd50 6e 25 28 6e 25 2c 6f 25 29 2d 31 3a 4b 61 3d 21 |n%(n%,o%)-1:Ka=!|
0000fd60 28 73 25 28 6e 25 2c 6f 25 29 2b 33 36 2a 79 67 |(s%(n%,o%)+36*yg|
0000fd70 25 2b 32 38 29 3a e7 4b 61 3d 30 8c 64 68 25 21 |%+28):.Ka=0.dh%!|
0000fd80 28 34 2a 79 67 25 29 3d 21 28 73 25 28 6e 25 2c |(4*yg%)=!(s%(n%,|
0000fd90 6f 25 29 2b 33 36 2a 79 67 25 2b 33 32 29 2a 31 |o%)+36*yg%+32)*1|
0000fda0 30 30 30 30 8b 64 68 25 21 28 34 2a 79 67 25 29 |0000.dh%!(4*yg%)|
0000fdb0 3d 31 30 30 30 30 30 2a 28 21 28 73 25 28 6e 25 |=100000*(!(s%(n%|
0000fdc0 2c 6f 25 29 2b 33 36 2a 79 67 25 2b 33 32 29 2d |,o%)+36*yg%+32)-|
0000fdd0 21 28 73 25 28 6e 25 2c 6f 25 29 2b 33 36 2a 79 |!(s%(n%,o%)+36*y|
0000fde0 67 25 2b 32 38 29 29 2f 28 4b 61 29 0d 3a 66 47 |g%+28))/(Ka).:fG|
0000fdf0 ed 3a e3 4e 68 25 3d 6b 63 25 b8 6c 63 25 3a 4f |.:.Nh%=kc%.lc%:O|
0000fe00 68 25 3d 4e 68 25 3a e3 50 68 25 3d 4e 68 25 b8 |h%=Nh%:.Ph%=Nh%.|
0000fe10 6c 63 25 3a e7 64 68 25 21 28 34 2a 50 68 25 29 |lc%:.dh%!(4*Ph%)|
0000fe20 3e 64 68 25 21 28 34 2a 4f 68 25 29 4f 68 25 3d |>dh%!(4*Oh%)Oh%=|
0000fe30 50 68 25 0d 3a 70 5c ed 3a 78 62 25 3d 64 68 25 |Ph%.:p\.:xb%=dh%|
0000fe40 21 28 34 2a 4e 68 25 29 3a 64 68 25 21 28 34 2a |!(4*Nh%):dh%!(4*|
0000fe50 4e 68 25 29 3d 64 68 25 21 28 34 2a 4f 68 25 29 |Nh%)=dh%!(4*Oh%)|
0000fe60 3a 64 68 25 21 28 34 2a 4f 68 25 29 3d 78 62 25 |:dh%!(4*Oh%)=xb%|
0000fe70 3a f2 54 28 4e 68 25 2c 4f 68 25 29 3a ed 3a f2 |:.T(Nh%,Oh%):.:.|
0000fe80 45 28 64 68 25 29 3a 64 68 25 3d 2d 31 3a e1 0d |E(dh%):dh%=-1:..|
0000fe90 3a 7a 27 dd f2 41 63 28 6b 63 25 2c 6c 63 25 29 |:z'..Ac(kc%,lc%)|
0000fea0 3a e7 6f 25 3d 30 84 6e 25 28 6e 25 2c 6f 25 2d |:.o%=0.n%(n%,o%-|
0000feb0 31 29 3d 30 8c e1 0d 3a 84 25 64 68 25 3d a4 6b |1)=0...:.%dh%=.k|
0000fec0 28 64 68 25 2c 34 2a 6e 25 28 6e 25 2c 6f 25 29 |(dh%,4*n%(n%,o%)|
0000fed0 2c 54 25 29 3a e7 ac 54 25 8c e1 0d 3a 8e ab e3 |,T%):..T%...:...|
0000fee0 79 67 25 3d 30 b8 6e 25 28 6e 25 2c 6f 25 29 2d |yg%=0.n%(n%,o%)-|
0000fef0 31 3a 64 68 25 21 28 34 2a 79 67 25 29 3d 30 3a |1:dh%!(4*yg%)=0:|
0000ff00 e3 7a 67 25 3d 30 b8 6e 25 28 6e 25 2c 6f 25 2d |.zg%=0.n%(n%,o%-|
0000ff10 31 29 2d 31 3a e7 c0 24 28 73 25 28 6e 25 2c 6f |1)-1:..$(s%(n%,o|
0000ff20 25 29 2b 33 36 2a 79 67 25 29 29 3d c0 24 28 73 |%)+36*yg%))=.$(s|
0000ff30 25 28 6e 25 2c 6f 25 2d 31 29 2b 33 36 2a 7a 67 |%(n%,o%-1)+36*zg|
0000ff40 25 29 29 8c 64 68 25 21 28 34 2a 79 67 25 29 3d |%)).dh%!(4*yg%)=|
0000ff50 28 21 28 73 25 28 6e 25 2c 6f 25 29 2b 33 36 2a |(!(s%(n%,o%)+36*|
0000ff60 79 67 25 2b 33 32 29 2d 21 28 73 25 28 6e 25 2c |yg%+32)-!(s%(n%,|
0000ff70 6f 25 2d 31 29 2b 33 36 2a 7a 67 25 2b 33 32 29 |o%-1)+36*zg%+32)|
0000ff80 29 2a 31 30 30 30 0d 3a 98 49 ed 3a ed 3a e3 4e |)*1000.:.I.:.:.N|
0000ff90 68 25 3d 6b 63 25 b8 6c 63 25 3a 4f 68 25 3d 4e |h%=kc%.lc%:Oh%=N|
0000ffa0 68 25 3a e3 50 68 25 3d 4e 68 25 b8 6c 63 25 3a |h%:.Ph%=Nh%.lc%:|
0000ffb0 e7 64 68 25 21 28 34 2a 50 68 25 29 3e 64 68 25 |.dh%!(4*Ph%)>dh%|
0000ffc0 21 28 34 2a 4f 68 25 29 4f 68 25 3d 50 68 25 0d |!(4*Oh%)Oh%=Ph%.|
0000ffd0 3a a2 5c ed 3a 78 62 25 3d 64 68 25 21 28 34 2a |:.\.:xb%=dh%!(4*|
0000ffe0 4e 68 25 29 3a 64 68 25 21 28 34 2a 4e 68 25 29 |Nh%):dh%!(4*Nh%)|
0000fff0 3d 64 68 25 21 28 34 2a 4f 68 25 29 3a 64 68 25 |=dh%!(4*Oh%):dh%|
00010000 21 28 34 2a 4f 68 25 29 3d 78 62 25 3a f2 54 28 |!(4*Oh%)=xb%:.T(|
00010010 4e 68 25 2c 4f 68 25 29 3a ed 3a f2 45 28 64 68 |Nh%,Oh%):.:.E(dh|
00010020 25 29 3a 64 68 25 3d 2d 31 3a e1 0d 3a ac 3f dd |%):dh%=-1:..:.?.|
00010030 f2 54 28 61 25 2c 62 25 29 3a 41 25 3d 73 25 28 |.T(a%,b%):A%=s%(|
00010040 6e 25 2c 6f 25 29 2b 33 36 2a 61 25 3a 42 25 3d |n%,o%)+36*a%:B%=|
00010050 73 25 28 6e 25 2c 6f 25 29 2b 33 36 2a 62 25 3a |s%(n%,o%)+36*b%:|
00010060 43 25 3d 30 3a d6 72 61 3a e1 0d 3a b6 36 dd f2 |C%=0:.ra:..:.6..|
00010070 6a 62 3a 71 61 25 3d 31 3a e7 6e 25 28 6a 64 25 |jb:qa%=1:.n%(jd%|
00010080 2c 6b 64 25 29 3e 33 35 8c 71 61 25 2b 3d 28 6e |,kd%)>35.qa%+=(n|
00010090 25 28 6a 64 25 2c 6b 64 25 29 2b 34 29 81 34 30 |%(jd%,kd%)+4).40|
000100a0 0d 3a c0 37 51 68 25 3d bb 28 24 28 a4 74 28 31 |.:.7Qh%=.($(.t(1|
000100b0 35 2c 34 30 29 29 29 3a 6e 24 3d 24 28 a4 74 28 |5,40))):n$=$(.t(|
000100c0 31 35 2c 32 31 29 29 3a e7 6e 25 28 6a 64 25 2c |15,21)):.n%(jd%,|
000100d0 6b 64 25 29 3e 30 8c 0d 3a ca 6b e7 61 25 28 31 |kd%)>0..:.k.a%(1|
000100e0 37 29 3c 3e 30 8c f2 69 28 31 37 2c 32 31 2e 34 |7)<>0..i(17,21.4|
000100f0 2a 71 61 25 2a 65 62 25 2c 31 35 2e 34 2a 65 62 |*qa%*eb%,15.4*eb|
00010100 25 2c 30 2c 30 29 3a 21 71 25 3d 61 25 28 31 37 |%,0,0):!q%=a%(17|
00010110 29 3a f2 72 28 71 25 29 8b f2 6c 28 30 2c 31 37 |):.r(q%)..l(0,17|
00010120 29 3a f2 69 28 31 37 2c 32 31 2e 34 2a 71 61 25 |):.i(17,21.4*qa%|
00010130 2a 65 62 25 2c 31 35 2e 34 2a 65 62 25 2c 30 2c |*eb%,15.4*eb%,0,|
00010140 30 29 0d 3a d4 24 cc 3a f2 71 28 22 4e 6f 74 68 |0).:.$.:.q("Noth|
00010150 69 6e 67 20 74 6f 20 70 72 69 6e 74 2e 22 29 3a |ing to print."):|
00010160 f2 67 28 31 37 29 0d 3a de 05 cd 0d 3a e8 05 e1 |.g(17).:....:...|
00010170 0d 3a f2 38 dd f2 6a 61 3a c8 99 31 33 31 30 38 |.:.8..ja:..13108|
00010180 30 2c 35 2c 22 3c 49 6e 76 65 73 74 6f 72 24 44 |0,5,"<Investor$D|
00010190 69 72 3e 2e 21 43 68 6f 69 63 65 73 22 b8 52 68 |ir>.!Choices".Rh|
000101a0 25 3a c8 8e 52 68 25 ca 0d 3a fc 0a c9 30 3a f2 |%:..Rh%..:...0:.|
000101b0 43 63 0d 3b 06 0a c9 31 3a f2 44 63 0d 3b 10 05 |Cc.;...1:.Dc.;..|
000101c0 cb 0d 3b 1a 20 53 68 25 3d 4b 64 25 3a 54 68 25 |..;. Sh%=Kd%:Th%|
000101d0 3d 4c 64 25 3a e7 4b 64 25 3d 33 8c 4b 64 25 3d |=Ld%:.Kd%=3.Kd%=|
000101e0 32 0d 3b 24 13 e7 4c 64 25 3d 31 32 8c 4c 64 25 |2.;$..Ld%=12.Ld%|
000101f0 3d 55 68 25 0d 3b 2e 69 f2 45 63 3a 4b 64 25 3d |=Uh%.;.i.Ec:Kd%=|
00010200 53 68 25 3a 4c 64 25 3d 54 68 25 3a 75 66 25 3d |Sh%:Ld%=Th%:uf%=|
00010210 4b 64 25 3a 74 66 25 3d 4c 64 25 3a 52 64 25 3d |Kd%:tf%=Ld%:Rd%=|
00010220 64 63 25 3a 53 64 25 3d 5a 62 25 3a 54 64 25 3d |dc%:Sd%=Zb%:Td%=|
00010230 43 66 25 3a 55 64 25 3d 74 62 25 3a 56 64 25 3d |Cf%:Ud%=tb%:Vd%=|
00010240 73 64 25 3a 57 64 25 3d 74 64 25 3a 58 64 25 3d |sd%:Wd%=td%:Xd%=|
00010250 75 64 25 3a 59 64 25 3d 76 64 25 3a e1 0d 3b 38 |ud%:Yd%=vd%:..;8|
00010260 4a dd f2 43 63 3a 4b 64 25 3d 30 3a 4c 64 25 3d |J..Cc:Kd%=0:Ld%=|
00010270 30 3a 64 63 25 3d b9 3a 5a 62 25 3d a3 3a 43 66 |0:dc%=.:Zb%=.:Cf|
00010280 25 3d a3 3a 74 62 25 3d a3 3a 73 64 25 3d 32 3a |%=.:tb%=.:sd%=2:|
00010290 74 64 25 3d 32 3a 75 64 25 3d 32 3a 76 64 25 3d |td%=2:ud%=2:vd%=|
000102a0 32 3a f2 4d 62 3a e1 0d 3b 42 63 dd f2 4d 62 3a |2:.Mb:..;Bc..Mb:|
000102b0 e3 79 67 25 3d 30 b8 35 3a 67 25 28 79 67 25 29 |.yg%=0.5:g%(yg%)|
000102c0 3d 37 3a ed 3a 67 25 28 36 29 3d 31 31 3a 67 25 |=7:.:g%(6)=11:g%|
000102d0 28 37 29 3d 37 3a 67 25 28 38 29 3d 31 35 3a 67 |(7)=7:g%(8)=15:g|
000102e0 25 28 39 29 3d 38 3a 67 25 28 31 30 29 3d 31 32 |%(9)=8:g%(10)=12|
000102f0 3a 67 25 28 31 31 29 3d 31 30 3a 67 25 28 31 32 |:g%(11)=10:g%(12|
00010300 29 3d 31 33 3a f2 4e 62 3a e1 0d 3b 4c 26 dd f2 |)=13:.Nb:..;L&..|
00010310 4e 62 3a e3 79 67 25 3d 30 b8 31 32 3a 66 25 28 |Nb:.yg%=0.12:f%(|
00010320 79 67 25 29 3d 67 25 28 79 67 25 29 3a ed 3a e1 |yg%)=g%(yg%):.:.|
00010330 0d 3b 56 1f dd f2 4c 62 3a e3 79 67 25 3d 30 b8 |.;V...Lb:.yg%=0.|
00010340 31 32 3a f2 46 63 28 79 67 25 29 3a ed 3a e1 0d |12:.Fc(yg%):.:..|
00010350 3b 60 26 dd f2 4b 62 3a e3 79 67 25 3d 30 b8 31 |;`&..Kb:.yg%=0.1|
00010360 32 3a 67 25 28 79 67 25 29 3d 66 25 28 79 67 25 |2:g%(yg%)=f%(yg%|
00010370 29 3a ed 3a e1 0d 3b 6a 83 dd f2 44 63 3a 58 25 |):.:..;j...Dc:X%|
00010380 3d ad 28 22 3c 49 6e 76 65 73 74 6f 72 24 44 69 |=.("<Investor$Di|
00010390 72 3e 2e 21 43 68 6f 69 63 65 73 22 29 3a e8 23 |r>.!Choices"):.#|
000103a0 58 25 2c 4b 64 25 2c 4c 64 25 3a e8 23 58 25 2c |X%,Kd%,Ld%:.#X%,|
000103b0 64 63 25 2c 5a 62 25 2c 43 66 25 2c 74 62 25 3a |dc%,Zb%,Cf%,tb%:|
000103c0 e8 23 58 25 2c 73 64 25 2c 74 64 25 2c 75 64 25 |.#X%,sd%,td%,ud%|
000103d0 2c 76 64 25 3a e3 79 67 25 3d 30 b8 31 32 3a e8 |,vd%:.yg%=0.12:.|
000103e0 23 58 25 2c 66 25 28 79 67 25 29 3a ed 3a d9 23 |#X%,f%(yg%):.:.#|
000103f0 58 25 3a f2 4b 62 3a e1 0d 3b 74 a8 dd f2 66 62 |X%:.Kb:..;t...fb|
00010400 3a 58 25 3d ae 28 22 3c 49 6e 76 65 73 74 6f 72 |:X%=.("<Investor|
00010410 24 44 69 72 3e 2e 21 43 68 6f 69 63 65 73 22 29 |$Dir>.!Choices")|
00010420 3a f1 23 58 25 2c 4b 64 25 2c 4c 64 25 3a f1 23 |:.#X%,Kd%,Ld%:.#|
00010430 58 25 2c 64 63 25 2c 5a 62 25 2c 43 66 25 2c 74 |X%,dc%,Zb%,Cf%,t|
00010440 62 25 3a f1 23 58 25 2c 73 64 25 2c 74 64 25 2c |b%:.#X%,sd%,td%,|
00010450 75 64 25 2c 76 64 25 3a e3 79 67 25 3d 30 b8 31 |ud%,vd%:.yg%=0.1|
00010460 32 3a f1 23 58 25 2c 66 25 28 79 67 25 29 3a ed |2:.#X%,f%(yg%):.|
00010470 3a d9 23 58 25 3a ff 28 22 53 45 54 54 59 50 45 |:.#X%:.("SETTYPE|
00010480 20 3c 49 6e 76 65 73 74 6f 72 24 44 69 72 3e 2e | <Investor$Dir>.|
00010490 21 43 68 6f 69 63 65 73 20 46 46 46 22 29 3a e1 |!Choices FFF"):.|
000104a0 0d 3b 7e 6e dd f2 65 62 3a 4b 64 25 3d 75 66 25 |.;~n..eb:Kd%=uf%|
000104b0 3a 4c 64 25 3d 74 66 25 3a 64 63 25 3d 52 64 25 |:Ld%=tf%:dc%=Rd%|
000104c0 3a 5a 62 25 3d 53 64 25 3a 43 66 25 3d 54 64 25 |:Zb%=Sd%:Cf%=Td%|
000104d0 3a 74 62 25 3d 55 64 25 3a 73 64 25 3d 56 64 25 |:tb%=Ud%:sd%=Vd%|
000104e0 3a 74 64 25 3d 57 64 25 3a 75 64 25 3d 58 64 25 |:td%=Wd%:ud%=Xd%|
000104f0 3a 76 64 25 3d 59 64 25 3a e7 ac 74 62 25 80 75 |:vd%=Yd%:..tb%.u|
00010500 62 25 3c 3e 2d 31 8c f2 4b 28 75 62 25 29 0d 3b |b%<>-1..K(ub%).;|
00010510 88 09 f2 64 63 3a e1 0d 3b 92 6a dd f2 64 62 3a |...dc:..;.j..db:|
00010520 75 66 25 3d 4b 64 25 3a 74 66 25 3d 4c 64 25 3a |uf%=Kd%:tf%=Ld%:|
00010530 24 a4 74 28 31 38 2c 37 29 3d a4 43 28 4c 64 25 |$.t(18,7)=.C(Ld%|
00010540 29 3a f2 6a 28 31 38 2c 37 29 3a 24 a4 74 28 31 |):.j(18,7):$.t(1|
00010550 38 2c 31 30 29 3d a4 44 28 4b 64 25 29 3a f2 6a |8,10)=.D(Kd%):.j|
00010560 28 31 38 2c 31 30 29 3a e7 52 64 25 80 ac 64 63 |(18,10):.Rd%..dc|
00010570 25 8c f2 43 28 31 38 2c 31 32 29 3a 52 64 25 3d |%..C(18,12):Rd%=|
00010580 a3 0d 3b 9c 1d e7 ac 52 64 25 80 64 63 25 8c f2 |..;....Rd%.dc%..|
00010590 65 28 31 38 2c 31 32 29 3a 52 64 25 3d b9 0d 3b |e(18,12):Rd%=..;|
000105a0 a6 1d e7 53 64 25 80 ac 5a 62 25 8c f2 43 28 31 |...Sd%..Zb%..C(1|
000105b0 38 2c 31 33 29 3a 53 64 25 3d a3 0d 3b b0 1d e7 |8,13):Sd%=..;...|
000105c0 ac 53 64 25 80 5a 62 25 8c f2 65 28 31 38 2c 31 |.Sd%.Zb%..e(18,1|
000105d0 33 29 3a 53 64 25 3d b9 0d 3b ba 1d e7 54 64 25 |3):Sd%=..;...Td%|
000105e0 80 ac 43 66 25 8c f2 43 28 31 38 2c 31 34 29 3a |..Cf%..C(18,14):|
000105f0 54 64 25 3d a3 0d 3b c4 1d e7 ac 54 64 25 80 43 |Td%=..;....Td%.C|
00010600 66 25 8c f2 65 28 31 38 2c 31 34 29 3a 54 64 25 |f%..e(18,14):Td%|
00010610 3d b9 0d 3b ce 1d e7 55 64 25 80 ac 74 62 25 8c |=..;...Ud%..tb%.|
00010620 f2 43 28 31 38 2c 31 35 29 3a 55 64 25 3d a3 0d |.C(18,15):Ud%=..|
00010630 3b d8 1d e7 ac 55 64 25 80 74 62 25 8c f2 65 28 |;....Ud%.tb%..e(|
00010640 31 38 2c 31 35 29 3a 55 64 25 3d b9 0d 3b e2 31 |18,15):Ud%=..;.1|
00010650 e7 73 64 25 3c 3e 56 64 25 8c f2 43 28 31 38 2c |.sd%<>Vd%..C(18,|
00010660 31 36 2b 56 64 25 29 3a f2 65 28 31 38 2c 31 36 |16+Vd%):.e(18,16|
00010670 2b 73 64 25 29 3a 56 64 25 3d 73 64 25 0d 3b ec |+sd%):Vd%=sd%.;.|
00010680 31 e7 74 64 25 3c 3e 57 64 25 8c f2 43 28 31 38 |1.td%<>Wd%..C(18|
00010690 2c 32 30 2b 57 64 25 29 3a f2 65 28 31 38 2c 32 |,20+Wd%):.e(18,2|
000106a0 30 2b 74 64 25 29 3a 57 64 25 3d 74 64 25 0d 3b |0+td%):Wd%=td%.;|
000106b0 f6 31 e7 75 64 25 3c 3e 58 64 25 8c f2 43 28 31 |.1.ud%<>Xd%..C(1|
000106c0 38 2c 32 34 2b 58 64 25 29 3a f2 65 28 31 38 2c |8,24+Xd%):.e(18,|
000106d0 32 34 2b 75 64 25 29 3a 58 64 25 3d 75 64 25 0d |24+ud%):Xd%=ud%.|
000106e0 3c 00 31 e7 76 64 25 3c 3e 59 64 25 8c f2 43 28 |<.1.vd%<>Yd%..C(|
000106f0 31 38 2c 32 38 2b 59 64 25 29 3a f2 65 28 31 38 |18,28+Yd%):.e(18|
00010700 2c 32 38 2b 76 64 25 29 3a 59 64 25 3d 76 64 25 |,28+vd%):Yd%=vd%|
00010710 0d 3c 0a 05 e1 0d 3c 14 24 dd f2 73 62 28 56 68 |.<....<.$..sb(Vh|
00010720 25 29 3a 21 71 25 3d 56 68 25 3a c8 99 32 36 32 |%):!q%=Vh%:..262|
00010730 33 35 34 2c 2c 71 25 3a e1 0d 3c 1e 47 dd f2 67 |354,,q%:..<.G..g|
00010740 62 3a e7 5a 64 25 3d 31 8c 5f 64 25 3d b9 3a f2 |b:.Zd%=1._d%=.:.|
00010750 44 61 28 31 35 2c 31 30 29 3a f2 44 61 28 31 35 |Da(15,10):.Da(15|
00010760 2c 31 34 29 8b 5f 64 25 3d a3 3a f2 45 61 28 31 |,14)._d%=.:.Ea(1|
00010770 35 2c 31 30 29 3a f2 45 61 28 31 35 2c 31 34 29 |5,10):.Ea(15,14)|
00010780 0d 3c 28 05 e1 0d 3c 32 aa dd f2 45 63 3a 4c 61 |.<(...<2...Ec:La|
00010790 25 3d 4b 64 25 3a 42 61 25 3d 4c 64 25 3a 43 61 |%=Kd%:Ba%=Ld%:Ca|
000107a0 25 3d 4c 64 25 3a 45 61 25 3d 4b 64 25 3a 44 61 |%=Ld%:Ea%=Kd%:Da|
000107b0 25 3d 4c 64 25 3a 46 61 25 3d 4b 64 25 3a 4d 61 |%=Ld%:Fa%=Kd%:Ma|
000107c0 25 3d 4b 64 25 3a 4e 61 25 3d 4b 64 25 3a 65 65 |%=Kd%:Na%=Kd%:ee|
000107d0 25 3d 4b 64 25 3a 66 65 25 3d 4b 64 25 3a 6c 65 |%=Kd%:fe%=Kd%:le|
000107e0 25 3d 4c 64 25 3a 6e 65 25 3d 4c 64 25 3a 6b 65 |%=Ld%:ne%=Ld%:ke|
000107f0 25 3d 4b 64 25 3a 6d 65 25 3d 4b 64 25 3a 44 63 |%=Kd%:me%=Kd%:Dc|
00010800 25 3d 4c 64 25 3a 74 65 25 3d 4c 64 25 3a 43 63 |%=Ld%:te%=Ld%:Cc|
00010810 25 3d 4b 64 25 3a 73 65 25 3d 4b 64 25 3a 62 65 |%=Kd%:se%=Kd%:be|
00010820 25 3d 4c 64 25 3a 61 65 25 3d 4b 64 25 3a e1 0d |%=Ld%:ae%=Kd%:..|
00010830 3c 3c 1f dd f2 74 62 3a e7 28 62 25 80 34 29 3d |<<...tb:.(b%.4)=|
00010840 30 8c 57 68 25 3d 31 8b 57 68 25 3d 2d 31 0d 3c |0.Wh%=1.Wh%=-1.<|
00010850 46 09 c8 8e 4d 25 ca 0d 3c 50 1c c9 33 31 3a 67 |F...M%..<P..31:g|
00010860 65 25 2b 3d 57 68 25 3a 67 65 25 3d a4 6a 28 67 |e%+=Wh%:ge%=.j(g|
00010870 65 25 29 0d 3c 5a 1c c9 33 33 3a 67 65 25 2d 3d |e%).<Z..33:ge%-=|
00010880 57 68 25 3a 67 65 25 3d a4 6a 28 67 65 25 29 0d |Wh%:ge%=.j(ge%).|
00010890 3c 64 1c c9 33 39 3a 68 65 25 2b 3d 57 68 25 3a |<d..39:he%+=Wh%:|
000108a0 68 65 25 3d a4 6a 28 68 65 25 29 0d 3c 6e 1c c9 |he%=.j(he%).<n..|
000108b0 33 37 3a 68 65 25 2d 3d 57 68 25 3a 68 65 25 3d |37:he%-=Wh%:he%=|
000108c0 a4 6a 28 68 65 25 29 0d 3c 78 10 c9 32 34 3a 65 |.j(he%).<x..24:e|
000108d0 65 25 2b 3d 57 68 25 0d 3c 82 10 c9 32 30 3a 65 |e%+=Wh%.<...20:e|
000108e0 65 25 2d 3d 57 68 25 0d 3c 8c 0f c9 36 3a 66 65 |e%-=Wh%.<...6:fe|
000108f0 25 2b 3d 57 68 25 0d 3c 96 10 c9 31 34 3a 66 65 |%+=Wh%.<...14:fe|
00010900 25 2d 3d 57 68 25 0d 3c a0 05 cb 0d 3c aa 09 f2 |%-=Wh%.<....<...|
00010910 60 62 3a e1 0d 3c b4 17 dd f2 60 62 3a e7 67 65 |`b:..<....`b:.ge|
00010920 25 3d 2d 31 8c 67 65 25 2b 3d 36 0d 3c be 11 e7 |%=-1.ge%+=6.<...|
00010930 67 65 25 3d 36 8c 67 65 25 2d 3d 36 0d 3c c8 12 |ge%=6.ge%-=6.<..|
00010940 e7 68 65 25 3d 2d 31 8c 68 65 25 2b 3d 36 0d 3c |.he%=-1.he%+=6.<|
00010950 d2 11 e7 68 65 25 3d 36 8c 68 65 25 2d 3d 36 0d |...he%=6.he%-=6.|
00010960 3c dc 12 e7 65 65 25 3d 2d 31 8c 65 65 25 2b 3d |<...ee%=-1.ee%+=|
00010970 33 0d 3c e6 11 e7 65 65 25 3d 33 8c 65 65 25 2d |3.<...ee%=3.ee%-|
00010980 3d 33 0d 3c f0 12 e7 66 65 25 3d 2d 31 8c 66 65 |=3.<...fe%=-1.fe|
00010990 25 2b 3d 33 0d 3c fa 11 e7 66 65 25 3d 33 8c 66 |%+=3.<...fe%=3.f|
000109a0 65 25 2d 3d 33 0d 3d 04 05 e1 0d 3d 0e 13 dd f2 |e%-=3.=....=....|
000109b0 4a 28 58 68 25 29 3a c8 8e 58 68 25 ca 0d 3d 18 |J(Xh%):..Xh%..=.|
000109c0 1a c9 33 32 3a 24 a4 74 28 33 35 2c 33 32 29 3d |..32:$.t(35,32)=|
000109d0 61 24 28 67 65 25 29 0d 3d 22 1a c9 33 38 3a 24 |a$(ge%).="..38:$|
000109e0 a4 74 28 33 35 2c 33 38 29 3d 61 24 28 68 65 25 |.t(35,38)=a$(he%|
000109f0 29 0d 3d 2c 1a c9 31 38 3a 24 a4 74 28 33 35 2c |).=,..18:$.t(35,|
00010a00 31 38 29 3d a4 6c 28 65 65 25 29 0d 3d 36 18 c9 |18)=.l(ee%).=6..|
00010a10 39 3a 24 a4 74 28 33 35 2c 39 29 3d a4 6c 28 66 |9:$.t(35,9)=.l(f|
00010a20 65 25 29 0d 3d 40 05 cb 0d 3d 4a 10 f2 6a 28 33 |e%).=@...=J..j(3|
00010a30 35 2c 58 68 25 29 3a e1 0d 3d 54 1e dd f2 4f 3a |5,Xh%):..=T...O:|
00010a40 e7 28 62 25 80 34 29 3d 30 8c 59 68 25 3d 31 8b |.(b%.4)=0.Yh%=1.|
00010a50 59 68 25 3d 2d 31 0d 3d 5e 09 c8 8e 4d 25 ca 0d |Yh%=-1.=^...M%..|
00010a60 3d 68 1c c9 33 31 3a 6f 65 25 2b 3d 59 68 25 3a |=h..31:oe%+=Yh%:|
00010a70 6f 65 25 3d a4 6a 28 6f 65 25 29 0d 3d 72 1c c9 |oe%=.j(oe%).=r..|
00010a80 33 33 3a 6f 65 25 2d 3d 59 68 25 3a 6f 65 25 3d |33:oe%-=Yh%:oe%=|
00010a90 a4 6a 28 6f 65 25 29 0d 3d 7c 1c c9 33 39 3a 70 |.j(oe%).=|..39:p|
00010aa0 65 25 2b 3d 59 68 25 3a 70 65 25 3d a4 6a 28 70 |e%+=Yh%:pe%=.j(p|
00010ab0 65 25 29 0d 3d 86 1c c9 33 37 3a 70 65 25 2d 3d |e%).=...37:pe%-=|
00010ac0 59 68 25 3a 70 65 25 3d a4 6a 28 70 65 25 29 0d |Yh%:pe%=.j(pe%).|
00010ad0 3d 90 10 c9 32 34 3a 6c 65 25 2b 3d 59 68 25 0d |=...24:le%+=Yh%.|
00010ae0 3d 9a 10 c9 32 30 3a 6c 65 25 2d 3d 59 68 25 0d |=...20:le%-=Yh%.|
00010af0 3d a4 0f c9 36 3a 6e 65 25 2b 3d 59 68 25 0d 3d |=...6:ne%+=Yh%.=|
00010b00 ae 10 c9 31 34 3a 6e 65 25 2d 3d 59 68 25 0d 3d |...14:ne%-=Yh%.=|
00010b10 b8 10 c9 32 33 3a 6b 65 25 2b 3d 59 68 25 0d 3d |...23:ke%+=Yh%.=|
00010b20 c2 10 c9 31 39 3a 6b 65 25 2d 3d 59 68 25 0d 3d |...19:ke%-=Yh%.=|
00010b30 cc 10 c9 34 33 3a 6d 65 25 2b 3d 59 68 25 0d 3d |...43:me%+=Yh%.=|
00010b40 d6 10 c9 34 32 3a 6d 65 25 2d 3d 59 68 25 0d 3d |...42:me%-=Yh%.=|
00010b50 e0 05 cb 0d 3d ea 09 f2 61 63 3a e1 0d 3d f4 17 |....=...ac:..=..|
00010b60 dd f2 61 63 3a e7 6f 65 25 3d 2d 31 8c 6f 65 25 |..ac:.oe%=-1.oe%|
00010b70 2b 3d 36 0d 3d fe 11 e7 6f 65 25 3d 36 8c 6f 65 |+=6.=...oe%=6.oe|
00010b80 25 2d 3d 36 0d 3e 08 12 e7 70 65 25 3d 2d 31 8c |%-=6.>...pe%=-1.|
00010b90 70 65 25 2b 3d 36 0d 3e 12 11 e7 70 65 25 3d 36 |pe%+=6.>...pe%=6|
00010ba0 8c 70 65 25 2d 3d 36 0d 3e 1c 13 e7 6c 65 25 3d |.pe%-=6.>...le%=|
00010bb0 2d 31 8c 6c 65 25 2b 3d 31 32 0d 3e 26 13 e7 6c |-1.le%+=12.>&..l|
00010bc0 65 25 3d 31 32 8c 6c 65 25 2d 3d 31 32 0d 3e 30 |e%=12.le%-=12.>0|
00010bd0 13 e7 6e 65 25 3d 2d 31 8c 6e 65 25 2b 3d 31 32 |..ne%=-1.ne%+=12|
00010be0 0d 3e 3a 13 e7 6e 65 25 3d 31 32 8c 6e 65 25 2d |.>:..ne%=12.ne%-|
00010bf0 3d 31 32 0d 3e 44 12 e7 6b 65 25 3d 2d 31 8c 6b |=12.>D..ke%=-1.k|
00010c00 65 25 2b 3d 33 0d 3e 4e 11 e7 6b 65 25 3d 33 8c |e%+=3.>N..ke%=3.|
00010c10 6b 65 25 2d 3d 33 0d 3e 58 12 e7 6d 65 25 3d 2d |ke%-=3.>X..me%=-|
00010c20 31 8c 6d 65 25 2b 3d 33 0d 3e 62 11 e7 6d 65 25 |1.me%+=3.>b..me%|
00010c30 3d 33 8c 6d 65 25 2d 3d 33 0d 3e 6c 05 e1 0d 3e |=3.me%-=3.>l...>|
00010c40 76 13 dd f2 77 28 5a 68 25 29 3a c8 8e 5a 68 25 |v...w(Zh%):..Zh%|
00010c50 ca 0d 3e 80 1a c9 33 32 3a 24 a4 74 28 33 34 2c |..>...32:$.t(34,|
00010c60 33 32 29 3d 61 24 28 6f 65 25 29 0d 3e 8a 1a c9 |32)=a$(oe%).>...|
00010c70 33 38 3a 24 a4 74 28 33 34 2c 33 38 29 3d 61 24 |38:$.t(34,38)=a$|
00010c80 28 70 65 25 29 0d 3e 94 1a c9 31 38 3a 24 a4 74 |(pe%).>...18:$.t|
00010c90 28 33 34 2c 31 38 29 3d a4 67 28 6c 65 25 29 0d |(34,18)=.g(le%).|
00010ca0 3e 9e 18 c9 39 3a 24 a4 74 28 33 34 2c 39 29 3d |>...9:$.t(34,9)=|
00010cb0 a4 67 28 6e 65 25 29 0d 3e a8 1a c9 32 32 3a 24 |.g(ne%).>...22:$|
00010cc0 a4 74 28 33 34 2c 32 32 29 3d a4 6c 28 6b 65 25 |.t(34,22)=.l(ke%|
00010cd0 29 0d 3e b2 1a c9 31 30 3a 24 a4 74 28 33 34 2c |).>...10:$.t(34,|
00010ce0 31 30 29 3d a4 6c 28 6d 65 25 29 0d 3e bc 05 cb |10)=.l(me%).>...|
00010cf0 0d 3e c6 10 f2 6a 28 33 34 2c 5a 68 25 29 3a e1 |.>...j(34,Zh%):.|
00010d00 0d 3e d0 1e dd f2 50 3a e7 28 62 25 80 34 29 3d |.>....P:.(b%.4)=|
00010d10 30 8c 5f 68 25 3d 31 8b 5f 68 25 3d 2d 31 0d 3e |0._h%=1._h%=-1.>|
00010d20 da 09 c8 8e 4d 25 ca 0d 3e e4 1c c9 33 31 3a 46 |....M%..>...31:F|
00010d30 63 25 2b 3d 5f 68 25 3a 46 63 25 3d a4 6a 28 46 |c%+=_h%:Fc%=.j(F|
00010d40 63 25 29 0d 3e ee 1c c9 33 33 3a 46 63 25 2d 3d |c%).>...33:Fc%-=|
00010d50 5f 68 25 3a 46 63 25 3d a4 6a 28 46 63 25 29 0d |_h%:Fc%=.j(Fc%).|
00010d60 3e f8 1c c9 33 39 3a 75 65 25 2b 3d 5f 68 25 3a |>...39:ue%+=_h%:|
00010d70 75 65 25 3d a4 6a 28 75 65 25 29 0d 3f 02 1c c9 |ue%=.j(ue%).?...|
00010d80 33 37 3a 75 65 25 2d 3d 5f 68 25 3a 75 65 25 3d |37:ue%-=_h%:ue%=|
00010d90 a4 6a 28 75 65 25 29 0d 3f 0c 10 c9 32 34 3a 44 |.j(ue%).?...24:D|
00010da0 63 25 2b 3d 5f 68 25 0d 3f 16 10 c9 32 30 3a 44 |c%+=_h%.?...20:D|
00010db0 63 25 2d 3d 5f 68 25 0d 3f 20 0f c9 36 3a 74 65 |c%-=_h%.? ..6:te|
00010dc0 25 2b 3d 5f 68 25 0d 3f 2a 10 c9 31 34 3a 74 65 |%+=_h%.?*..14:te|
00010dd0 25 2d 3d 5f 68 25 0d 3f 34 10 c9 32 33 3a 43 63 |%-=_h%.?4..23:Cc|
00010de0 25 2b 3d 5f 68 25 0d 3f 3e 10 c9 31 39 3a 43 63 |%+=_h%.?>..19:Cc|
00010df0 25 2d 3d 5f 68 25 0d 3f 48 10 c9 34 33 3a 73 65 |%-=_h%.?H..43:se|
00010e00 25 2b 3d 5f 68 25 0d 3f 52 10 c9 34 32 3a 73 65 |%+=_h%.?R..42:se|
00010e10 25 2d 3d 5f 68 25 0d 3f 5c 05 cb 0d 3f 66 09 f2 |%-=_h%.?\...?f..|
00010e20 62 63 3a e1 0d 3f 70 17 dd f2 62 63 3a e7 46 63 |bc:..?p...bc:.Fc|
00010e30 25 3d 2d 31 8c 46 63 25 2b 3d 36 0d 3f 7a 11 e7 |%=-1.Fc%+=6.?z..|
00010e40 46 63 25 3d 36 8c 46 63 25 2d 3d 36 0d 3f 84 12 |Fc%=6.Fc%-=6.?..|
00010e50 e7 75 65 25 3d 2d 31 8c 75 65 25 2b 3d 36 0d 3f |.ue%=-1.ue%+=6.?|
00010e60 8e 11 e7 75 65 25 3d 36 8c 75 65 25 2d 3d 36 0d |...ue%=6.ue%-=6.|
00010e70 3f 98 13 e7 44 63 25 3d 2d 31 8c 44 63 25 2b 3d |?...Dc%=-1.Dc%+=|
00010e80 31 32 0d 3f a2 13 e7 44 63 25 3d 31 32 8c 44 63 |12.?...Dc%=12.Dc|
00010e90 25 2d 3d 31 32 0d 3f ac 13 e7 74 65 25 3d 2d 31 |%-=12.?...te%=-1|
00010ea0 8c 74 65 25 2b 3d 31 32 0d 3f b6 13 e7 74 65 25 |.te%+=12.?...te%|
00010eb0 3d 31 32 8c 74 65 25 2d 3d 31 32 0d 3f c0 12 e7 |=12.te%-=12.?...|
00010ec0 43 63 25 3d 2d 31 8c 43 63 25 2b 3d 33 0d 3f ca |Cc%=-1.Cc%+=3.?.|
00010ed0 11 e7 43 63 25 3d 33 8c 43 63 25 2d 3d 33 0d 3f |..Cc%=3.Cc%-=3.?|
00010ee0 d4 12 e7 73 65 25 3d 2d 31 8c 73 65 25 2b 3d 33 |...se%=-1.se%+=3|
00010ef0 0d 3f de 11 e7 73 65 25 3d 33 8c 73 65 25 2d 3d |.?...se%=3.se%-=|
00010f00 33 0d 3f e8 05 e1 0d 3f f2 13 dd f2 78 28 60 68 |3.?....?....x(`h|
00010f10 25 29 3a c8 8e 60 68 25 ca 0d 3f fc 36 c9 33 32 |%):..`h%..?.6.32|
00010f20 3a 24 a4 74 28 33 36 2c 33 32 29 3d 61 24 28 46 |:$.t(36,32)=a$(F|
00010f30 63 25 29 3a f2 47 63 3a 21 71 25 3d 61 25 28 33 |c%):.Gc:!q%=a%(3|
00010f40 37 29 3a f2 72 28 71 25 29 3a e7 44 66 25 8c 0d |7):.r(q%):.Df%..|
00010f50 40 06 36 e7 45 66 25 3e 36 8c f2 69 28 33 37 2c |@.6.Ef%>6..i(37,|
00010f60 34 30 2b 34 30 2a 45 66 25 2c 33 38 30 2c 30 2c |40+40*Ef%,380,0,|
00010f70 30 29 8b f2 69 28 33 37 2c 33 30 38 2c 33 38 30 |0)..i(37,308,380|
00010f80 2c 30 2c 30 29 0d 40 10 05 cd 0d 40 1a 1a c9 33 |,0,0).@....@...3|
00010f90 38 3a 24 a4 74 28 33 36 2c 33 38 29 3d 61 24 28 |8:$.t(36,38)=a$(|
00010fa0 75 65 25 29 0d 40 24 36 c9 31 38 3a 24 a4 74 28 |ue%).@$6.18:$.t(|
00010fb0 33 36 2c 31 38 29 3d a4 67 28 44 63 25 29 3a f2 |36,18)=.g(Dc%):.|
00010fc0 47 63 3a 21 71 25 3d 61 25 28 33 37 29 3a f2 72 |Gc:!q%=a%(37):.r|
00010fd0 28 71 25 29 3a e7 44 66 25 8c 0d 40 2e 36 e7 45 |(q%):.Df%..@.6.E|
00010fe0 66 25 3e 36 8c f2 69 28 33 37 2c 34 30 2b 34 30 |f%>6..i(37,40+40|
00010ff0 2a 45 66 25 2c 33 38 30 2c 30 2c 30 29 8b f2 69 |*Ef%,380,0,0)..i|
00011000 28 33 37 2c 33 30 38 2c 33 38 30 2c 30 2c 30 29 |(37,308,380,0,0)|
00011010 0d 40 38 05 cd 0d 40 42 18 c9 39 3a 24 a4 74 28 |.@8...@B..9:$.t(|
00011020 33 36 2c 39 29 3d a4 67 28 74 65 25 29 0d 40 4c |36,9)=.g(te%).@L|
00011030 36 c9 32 32 3a 24 a4 74 28 33 36 2c 32 32 29 3d |6.22:$.t(36,22)=|
00011040 a4 6c 28 43 63 25 29 3a f2 47 63 3a 21 71 25 3d |.l(Cc%):.Gc:!q%=|
00011050 61 25 28 33 37 29 3a f2 72 28 71 25 29 3a e7 44 |a%(37):.r(q%):.D|
00011060 66 25 8c 0d 40 56 36 e7 45 66 25 3e 36 8c f2 69 |f%..@V6.Ef%>6..i|
00011070 28 33 37 2c 34 30 2b 34 30 2a 45 66 25 2c 33 38 |(37,40+40*Ef%,38|
00011080 30 2c 30 2c 30 29 8b f2 69 28 33 37 2c 33 30 38 |0,0,0)..i(37,308|
00011090 2c 33 38 30 2c 30 2c 30 29 0d 40 60 05 cd 0d 40 |,380,0,0).@`...@|
000110a0 6a 1a c9 31 30 3a 24 a4 74 28 33 36 2c 31 30 29 |j..10:$.t(36,10)|
000110b0 3d a4 6c 28 73 65 25 29 0d 40 74 05 cb 0d 40 7e |=.l(se%).@t...@~|
000110c0 10 f2 6a 28 33 36 2c 60 68 25 29 3a e1 0d 40 88 |..j(36,`h%):..@.|
000110d0 2f dd f2 47 63 3a 45 66 25 3d 6e 25 28 46 63 25 |/..Gc:Ef%=n%(Fc%|
000110e0 2c 28 43 63 25 2a 31 32 29 2b 44 63 25 29 2d 31 |,(Cc%*12)+Dc%)-1|
000110f0 3a e7 45 66 25 3e 2d 31 8c f2 63 63 0d 40 92 05 |:.Ef%>-1..cc.@..|
00011100 e1 0d 40 9c 1f dd f2 70 62 3a e7 28 62 25 80 34 |..@....pb:.(b%.4|
00011110 29 3d 30 8c 61 69 25 3d 31 8b 61 69 25 3d 2d 31 |)=0.ai%=1.ai%=-1|
00011120 0d 40 a6 09 c8 8e 4d 25 ca 0d 40 b0 0f c9 36 3a |.@....M%..@...6:|
00011130 43 61 25 2b 3d 61 69 25 0d 40 ba 10 c9 31 34 3a |Ca%+=ai%.@...14:|
00011140 43 61 25 2d 3d 61 69 25 0d 40 c4 0f c9 37 3a 45 |Ca%-=ai%.@...7:E|
00011150 61 25 2b 3d 61 69 25 0d 40 ce 0f c9 38 3a 45 61 |a%+=ai%.@...8:Ea|
00011160 25 2d 3d 61 69 25 0d 40 d8 10 c9 32 30 3a 44 61 |%-=ai%.@...20:Da|
00011170 25 2b 3d 61 69 25 0d 40 e2 10 c9 32 33 3a 44 61 |%+=ai%.@...23:Da|
00011180 25 2d 3d 61 69 25 0d 40 ec 10 c9 32 32 3a 46 61 |%-=ai%.@...22:Fa|
00011190 25 2b 3d 61 69 25 0d 40 f6 10 c9 32 34 3a 46 61 |%+=ai%.@...24:Fa|
000111a0 25 2d 3d 61 69 25 0d 41 00 05 cb 0d 41 0a 09 f2 |%-=ai%.A....A...|
000111b0 48 63 3a e1 0d 41 14 18 dd f2 48 63 3a e7 43 61 |Hc:..A....Hc:.Ca|
000111c0 25 3d 2d 31 8c 43 61 25 2b 3d 31 32 0d 41 1e 13 |%=-1.Ca%+=12.A..|
000111d0 e7 43 61 25 3d 31 32 8c 43 61 25 2d 3d 31 32 0d |.Ca%=12.Ca%-=12.|
000111e0 41 28 12 e7 45 61 25 3d 2d 31 8c 45 61 25 2b 3d |A(..Ea%=-1.Ea%+=|
000111f0 33 0d 41 32 11 e7 45 61 25 3d 33 8c 45 61 25 2d |3.A2..Ea%=3.Ea%-|
00011200 3d 33 0d 41 3c 13 e7 44 61 25 3d 2d 31 8c 44 61 |=3.A<..Da%=-1.Da|
00011210 25 2b 3d 31 32 0d 41 46 13 e7 44 61 25 3d 31 32 |%+=12.AF..Da%=12|
00011220 8c 44 61 25 2d 3d 31 32 0d 41 50 12 e7 46 61 25 |.Da%-=12.AP..Fa%|
00011230 3d 2d 31 8c 46 61 25 2b 3d 33 0d 41 5a 11 e7 46 |=-1.Fa%+=3.AZ..F|
00011240 61 25 3d 33 8c 46 61 25 2d 3d 33 0d 41 64 05 e1 |a%=3.Fa%-=3.Ad..|
00011250 0d 41 6e 13 dd f2 48 28 62 69 25 29 3a c8 8e 62 |.An...H(bi%):..b|
00011260 69 25 ca 0d 41 78 17 c9 39 3a 24 a4 74 28 38 2c |i%..Ax..9:$.t(8,|
00011270 39 29 3d a4 67 28 43 61 25 29 0d 41 82 19 c9 31 |9)=.g(Ca%).A...1|
00011280 30 3a 24 a4 74 28 38 2c 31 30 29 3d a4 6c 28 45 |0:$.t(8,10)=.l(E|
00011290 61 25 29 0d 41 8c 19 c9 31 38 3a 24 a4 74 28 38 |a%).A...18:$.t(8|
000112a0 2c 31 38 29 3d a4 67 28 44 61 25 29 0d 41 96 19 |,18)=.g(Da%).A..|
000112b0 c9 31 39 3a 24 a4 74 28 38 2c 31 39 29 3d a4 6c |.19:$.t(8,19)=.l|
000112c0 28 46 61 25 29 0d 41 a0 05 cb 0d 41 aa 0f f2 6a |(Fa%).A....A...j|
000112d0 28 38 2c 62 69 25 29 3a e1 0d 41 b4 1f dd f2 71 |(8,bi%):..A....q|
000112e0 62 3a e7 28 62 25 80 34 29 3d 30 8c 63 69 25 3d |b:.(b%.4)=0.ci%=|
000112f0 31 8b 63 69 25 3d 2d 31 0d 41 be 09 c8 8e 4d 25 |1.ci%=-1.A....M%|
00011300 ca 0d 41 c8 0f c9 36 3a 4d 61 25 2b 3d 63 69 25 |..A...6:Ma%+=ci%|
00011310 0d 41 d2 10 c9 31 34 3a 4d 61 25 2d 3d 63 69 25 |.A...14:Ma%-=ci%|
00011320 0d 41 dc 10 c9 31 31 3a 4e 61 25 2b 3d 63 69 25 |.A...11:Na%+=ci%|
00011330 0d 41 e6 10 c9 31 30 3a 4e 61 25 2d 3d 63 69 25 |.A...10:Na%-=ci%|
00011340 0d 41 f0 05 cb 0d 41 fa 09 f2 49 63 3a e1 0d 42 |.A....A...Ic:..B|
00011350 04 16 dd f2 49 63 3a e7 4d 61 25 3d 33 8c 4d 61 |....Ic:.Ma%=3.Ma|
00011360 25 2d 3d 33 0d 42 0e 12 e7 4d 61 25 3d 2d 31 8c |%-=3.B...Ma%=-1.|
00011370 4d 61 25 2b 3d 33 0d 42 18 11 e7 4e 61 25 3d 33 |Ma%+=3.B...Na%=3|
00011380 8c 4e 61 25 2d 3d 33 0d 42 22 12 e7 4e 61 25 3d |.Na%-=3.B"..Na%=|
00011390 2d 31 8c 4e 61 25 2b 3d 33 0d 42 2c 05 e1 0d 42 |-1.Na%+=3.B,...B|
000113a0 36 13 dd f2 55 28 64 69 25 29 3a c8 8e 64 69 25 |6...U(di%):..di%|
000113b0 ca 0d 42 40 17 c9 39 3a 24 a4 74 28 37 2c 39 29 |..B@..9:$.t(7,9)|
000113c0 3d a4 6c 28 4d 61 25 29 0d 42 4a 17 c9 38 3a 24 |=.l(Ma%).BJ..8:$|
000113d0 a4 74 28 37 2c 38 29 3d a4 6c 28 4e 61 25 29 0d |.t(7,8)=.l(Na%).|
000113e0 42 54 05 cb 0d 42 5e 0f f2 6a 28 37 2c 64 69 25 |BT...B^..j(7,di%|
000113f0 29 3a e1 0d 42 68 1f dd f2 6e 62 3a e7 28 62 25 |):..Bh...nb:.(b%|
00011400 80 34 29 3d 30 8c 65 69 25 3d 31 8b 65 69 25 3d |.4)=0.ei%=1.ei%=|
00011410 2d 31 0d 42 72 09 c8 8e 4d 25 ca 0d 42 7c 0f c9 |-1.Br...M%..B|..|
00011420 33 3a 42 61 25 2b 3d 65 69 25 0d 42 86 0f c9 36 |3:Ba%+=ei%.B...6|
00011430 3a 42 61 25 2d 3d 65 69 25 0d 42 90 05 cb 0d 42 |:Ba%-=ei%.B....B|
00011440 9a 09 f2 4a 63 3a e1 0d 42 a4 18 dd f2 4a 63 3a |...Jc:..B....Jc:|
00011450 e7 42 61 25 3d 2d 31 8c 42 61 25 2b 3d 31 32 0d |.Ba%=-1.Ba%+=12.|
00011460 42 ae 13 e7 42 61 25 3d 31 32 8c 42 61 25 2d 3d |B...Ba%=12.Ba%-=|
00011470 31 32 0d 42 b8 05 e1 0d 42 c2 25 dd f2 6f 62 3a |12.B....B.%..ob:|
00011480 24 a4 74 28 32 30 2c 35 29 3d a4 67 28 42 61 25 |$.t(20,5)=.g(Ba%|
00011490 29 3a f2 6a 28 32 30 2c 35 29 3a e1 0d 42 cc 1f |):.j(20,5):..B..|
000114a0 dd f2 6b 62 3a e7 28 62 25 80 34 29 3d 30 8c 66 |..kb:.(b%.4)=0.f|
000114b0 69 25 3d 31 8b 66 69 25 3d 2d 31 0d 42 d6 09 c8 |i%=1.fi%=-1.B...|
000114c0 8e 4d 25 ca 0d 42 e0 0f c9 33 3a 4c 61 25 2b 3d |.M%..B...3:La%+=|
000114d0 66 69 25 0d 42 ea 0f c9 36 3a 4c 61 25 2d 3d 66 |fi%.B...6:La%-=f|
000114e0 69 25 0d 42 f4 05 cb 0d 42 fe 09 f2 4b 63 3a e1 |i%.B....B...Kc:.|
000114f0 0d 43 08 17 dd f2 4b 63 3a e7 4c 61 25 3d 2d 31 |.C....Kc:.La%=-1|
00011500 8c 4c 61 25 2b 3d 33 0d 43 12 11 e7 4c 61 25 3d |.La%+=3.C...La%=|
00011510 33 8c 4c 61 25 2d 3d 33 0d 43 1c 05 e1 0d 43 26 |3.La%-=3.C....C&|
00011520 25 dd f2 6c 62 3a 24 a4 74 28 31 39 2c 35 29 3d |%..lb:$.t(19,5)=|
00011530 a4 6c 28 4c 61 25 29 3a f2 6a 28 31 39 2c 35 29 |.l(La%):.j(19,5)|
00011540 3a e1 0d 43 30 1e dd f2 68 62 3a e7 28 62 25 80 |:..C0...hb:.(b%.|
00011550 34 29 3d 30 67 69 25 3d 31 8b 67 69 25 3d 2d 31 |4)=0gi%=1.gi%=-1|
00011560 0d 43 3a 09 c8 8e 4d 25 ca 0d 43 44 10 c9 31 31 |.C:...M%..CD..11|
00011570 3a 62 65 25 2b 3d 67 69 25 0d 43 4e 10 c9 31 33 |:be%+=gi%.CN..13|
00011580 3a 62 65 25 2d 3d 67 69 25 0d 43 58 10 c9 31 35 |:be%-=gi%.CX..15|
00011590 3a 61 65 25 2b 3d 67 69 25 0d 43 62 10 c9 31 37 |:ae%+=gi%.Cb..17|
000115a0 3a 61 65 25 2d 3d 67 69 25 0d 43 6c 05 cb 0d 43 |:ae%-=gi%.Cl...C|
000115b0 76 09 f2 4c 63 3a e1 0d 43 80 18 dd f2 4c 63 3a |v..Lc:..C....Lc:|
000115c0 e7 62 65 25 3d 2d 31 8c 62 65 25 2b 3d 31 32 0d |.be%=-1.be%+=12.|
000115d0 43 8a 13 e7 62 65 25 3d 31 32 8c 62 65 25 2d 3d |C...be%=12.be%-=|
000115e0 31 32 0d 43 94 12 e7 61 65 25 3d 2d 31 8c 61 65 |12.C...ae%=-1.ae|
000115f0 25 2b 3d 33 0d 43 9e 11 e7 61 65 25 3d 33 8c 61 |%+=3.C...ae%=3.a|
00011600 65 25 2d 3d 33 0d 43 a8 05 e1 0d 43 b2 14 dd f2 |e%-=3.C....C....|
00011610 69 62 28 68 69 25 29 3a c8 8e 68 69 25 ca 0d 43 |ib(hi%):..hi%..C|
00011620 bc 1a c9 31 32 3a 24 a4 74 28 31 35 2c 31 32 29 |...12:$.t(15,12)|
00011630 3d a4 67 28 62 65 25 29 0d 43 c6 1a c9 31 36 3a |=.g(be%).C...16:|
00011640 24 a4 74 28 31 35 2c 31 36 29 3d a4 6c 28 61 65 |$.t(15,16)=.l(ae|
00011650 25 29 0d 43 d0 05 cb 0d 43 da 10 f2 6a 28 31 35 |%).C....C...j(15|
00011660 2c 68 69 25 29 3a e1 0d 43 e4 30 dd f2 4a 62 28 |,hi%):..C.0..Jb(|
00011670 69 69 25 2c 6a 69 25 2c 63 25 29 3a e7 28 62 25 |ii%,ji%,c%):.(b%|
00011680 80 34 29 3d 30 80 6a 69 25 3d 31 80 63 25 3d 31 |.4)=0.ji%=1.c%=1|
00011690 8c 6a 69 25 3d 2d 31 0d 43 ee 1f e7 28 62 25 80 |.ji%=-1.C...(b%.|
000116a0 34 29 3d 30 80 6a 69 25 3d 2d 31 80 63 25 3d 30 |4)=0.ji%=-1.c%=0|
000116b0 8c 6a 69 25 3d 31 0d 43 f8 26 67 25 28 69 69 25 |.ji%=1.C.&g%(ii%|
000116c0 29 2b 3d 6a 69 25 3a e7 67 25 28 69 69 25 29 3d |)+=ji%:.g%(ii%)=|
000116d0 31 36 8c 67 25 28 69 69 25 29 3d 30 0d 44 02 1a |16.g%(ii%)=0.D..|
000116e0 e7 67 25 28 69 69 25 29 3d 2d 31 8c 67 25 28 69 |.g%(ii%)=-1.g%(i|
000116f0 69 25 29 3d 31 35 0d 44 0c 0e f2 46 63 28 69 69 |i%)=15.D...Fc(ii|
00011700 25 29 3a e1 0d 44 16 45 dd f2 46 63 28 6e 25 29 |%):..D.E..Fc(n%)|
00011710 3a 24 a4 74 28 31 33 2c 32 38 2b 6e 25 29 3d c3 |:$.t(13,28+n%)=.|
00011720 28 67 25 28 6e 25 29 29 3a f2 6a 28 31 33 2c 32 |(g%(n%)):.j(13,2|
00011730 38 2b 6e 25 29 3a f2 46 61 28 34 31 2b 6e 25 2c |8+n%):.Fa(41+n%,|
00011740 67 25 28 6e 25 29 29 3a e1 0d 44 20 21 dd f2 76 |g%(n%)):..D !..v|
00011750 62 3a e7 28 62 25 80 34 29 3d 30 8c 6b 69 25 3d |b:.(b%.4)=0.ki%=|
00011760 31 30 8b 6b 69 25 3d 2d 31 30 0d 44 2a 09 c8 8e |10.ki%=-10.D*...|
00011770 4d 25 ca 0d 44 34 1d c9 38 3a 55 61 25 3d bb 28 |M%..D4..8:Ua%=.(|
00011780 24 28 a4 74 28 33 31 2c 37 29 29 29 2d 6b 69 25 |$(.t(31,7)))-ki%|
00011790 0d 44 3e 1d c9 39 3a 55 61 25 3d bb 28 24 28 a4 |.D>..9:Ua%=.($(.|
000117a0 74 28 33 31 2c 37 29 29 29 2b 6b 69 25 0d 44 48 |t(31,7)))+ki%.DH|
000117b0 51 c9 33 3a 55 61 25 3d bb 28 24 28 a4 74 28 33 |Q.3:Ua%=.($(.t(3|
000117c0 31 2c 37 29 29 29 3a e7 28 62 25 80 34 29 3d 30 |1,7))):.(b%.4)=0|
000117d0 8c 54 61 25 3d bb 28 24 28 a4 74 28 33 31 2c 35 |.Ta%=.($(.t(31,5|
000117e0 29 29 29 2b 55 61 25 8b 54 61 25 3d bb 28 24 28 |)))+Ua%.Ta%=.($(|
000117f0 a4 74 28 33 31 2c 35 29 29 29 2d 55 61 25 0d 44 |.t(31,5)))-Ua%.D|
00011800 52 51 c9 36 3a 55 61 25 3d bb 28 24 28 a4 74 28 |RQ.6:Ua%=.($(.t(|
00011810 33 31 2c 37 29 29 29 3a e7 28 62 25 80 34 29 3d |31,7))):.(b%.4)=|
00011820 30 8c 54 61 25 3d bb 28 24 28 a4 74 28 33 31 2c |0.Ta%=.($(.t(31,|
00011830 35 29 29 29 2d 55 61 25 8b 54 61 25 3d bb 28 24 |5)))-Ua%.Ta%=.($|
00011840 28 a4 74 28 33 31 2c 35 29 29 29 2b 55 61 25 0d |(.t(31,5)))+Ua%.|
00011850 44 5c 05 cb 0d 44 66 05 e1 0d 44 70 19 dd f2 77 |D\...Df...Dp...w|
00011860 62 28 6c 69 25 29 3a 40 25 3d 30 3a c8 8e 6c 69 |b(li%):@%=0:..li|
00011870 25 ca 0d 44 7a 17 c9 35 3a 24 a4 74 28 33 31 2c |%..Dz..5:$.t(31,|
00011880 35 29 3d c3 28 54 61 25 29 0d 44 84 17 c9 37 3a |5)=.(Ta%).D...7:|
00011890 24 a4 74 28 33 31 2c 37 29 3d c3 28 55 61 25 29 |$.t(31,7)=.(Ua%)|
000118a0 0d 44 8e 05 cb 0d 44 98 10 f2 6a 28 33 31 2c 6c |.D....D...j(31,l|
000118b0 69 25 29 3a e1 0d 44 a2 23 dd f2 78 62 3a e7 28 |i%):..D.#..xb:.(|
000118c0 62 25 80 34 29 3d 30 8c 4c 61 3d 30 2e 30 31 8b |b%.4)=0.La=0.01.|
000118d0 4c 61 3d 2d 30 2e 30 31 0d 44 ac 09 c8 8e 4d 25 |La=-0.01.D....M%|
000118e0 ca 0d 44 b6 1a c9 38 3a 44 3d bb 28 24 28 a4 74 |..D...8:D=.($(.t|
000118f0 28 33 32 2c 37 29 29 29 2d 4c 61 0d 44 c0 1a c9 |(32,7)))-La.D...|
00011900 39 3a 44 3d bb 28 24 28 a4 74 28 33 32 2c 37 29 |9:D=.($(.t(32,7)|
00011910 29 29 2b 4c 61 0d 44 ca 47 c9 33 3a 44 3d bb 28 |))+La.D.G.3:D=.(|
00011920 24 28 a4 74 28 33 32 2c 37 29 29 29 3a e7 28 62 |$(.t(32,7))):.(b|
00011930 25 80 34 29 3d 30 8c 49 3d bb 28 24 28 a4 74 28 |%.4)=0.I=.($(.t(|
00011940 33 32 2c 35 29 29 29 2b 44 8b 49 3d bb 28 24 28 |32,5)))+D.I=.($(|
00011950 a4 74 28 33 32 2c 35 29 29 29 2d 44 0d 44 d4 47 |.t(32,5)))-D.D.G|
00011960 c9 36 3a 44 3d bb 28 24 28 a4 74 28 33 32 2c 37 |.6:D=.($(.t(32,7|
00011970 29 29 29 3a e7 28 62 25 80 34 29 3d 30 8c 49 3d |))):.(b%.4)=0.I=|
00011980 bb 28 24 28 a4 74 28 33 32 2c 35 29 29 29 2d 44 |.($(.t(32,5)))-D|
00011990 8b 49 3d bb 28 24 28 a4 74 28 33 32 2c 35 29 29 |.I=.($(.t(32,5))|
000119a0 29 2b 44 0d 44 de 05 cb 0d 44 e8 05 e1 0d 44 f2 |)+D.D....D....D.|
000119b0 1a dd f2 79 62 28 6d 69 25 29 3a f2 79 28 32 29 |...yb(mi%):.y(2)|
000119c0 3a c8 8e 6d 69 25 ca 0d 44 fc 15 c9 35 3a 24 a4 |:..mi%..D...5:$.|
000119d0 74 28 33 32 2c 35 29 3d c3 28 49 29 0d 45 06 15 |t(32,5)=.(I).E..|
000119e0 c9 37 3a 24 a4 74 28 33 32 2c 37 29 3d c3 28 44 |.7:$.t(32,7)=.(D|
000119f0 29 0d 45 10 05 cb 0d 45 1a 15 f2 6a 28 33 32 2c |).E....E...j(32,|
00011a00 6d 69 25 29 3a 40 25 3d 30 3a e1 0d 45 24 23 dd |mi%):@%=0:..E$#.|
00011a10 f2 7a 62 3a e7 28 62 25 80 34 29 3d 30 8c 4d 61 |.zb:.(b%.4)=0.Ma|
00011a20 3d 30 2e 30 31 8b 4d 61 3d 2d 30 2e 30 31 0d 45 |=0.01.Ma=-0.01.E|
00011a30 2e 09 c8 8e 4d 25 ca 0d 45 38 1a c9 38 3a 45 3d |....M%..E8..8:E=|
00011a40 bb 28 24 28 a4 74 28 33 33 2c 37 29 29 29 2d 4d |.($(.t(33,7)))-M|
00011a50 61 0d 45 42 1a c9 39 3a 45 3d bb 28 24 28 a4 74 |a.EB..9:E=.($(.t|
00011a60 28 33 33 2c 37 29 29 29 2b 4d 61 0d 45 4c 47 c9 |(33,7)))+Ma.ELG.|
00011a70 33 3a 45 3d bb 28 24 28 a4 74 28 33 33 2c 37 29 |3:E=.($(.t(33,7)|
00011a80 29 29 3a e7 28 62 25 80 34 29 3d 30 8c 48 3d bb |)):.(b%.4)=0.H=.|
00011a90 28 24 28 a4 74 28 33 33 2c 35 29 29 29 2b 45 8b |($(.t(33,5)))+E.|
00011aa0 48 3d bb 28 24 28 a4 74 28 33 33 2c 35 29 29 29 |H=.($(.t(33,5)))|
00011ab0 2d 45 0d 45 56 47 c9 36 3a 45 3d bb 28 24 28 a4 |-E.EVG.6:E=.($(.|
00011ac0 74 28 33 33 2c 37 29 29 29 3a e7 28 62 25 80 34 |t(33,7))):.(b%.4|
00011ad0 29 3d 30 8c 48 3d bb 28 24 28 a4 74 28 33 33 2c |)=0.H=.($(.t(33,|
00011ae0 35 29 29 29 2d 45 8b 48 3d bb 28 24 28 a4 74 28 |5)))-E.H=.($(.t(|
00011af0 33 33 2c 35 29 29 29 2b 45 0d 45 60 05 cb 0d 45 |33,5)))+E.E`...E|
00011b00 6a 05 e1 0d 45 74 1a dd f2 41 62 28 6e 69 25 29 |j...Et...Ab(ni%)|
00011b10 3a f2 79 28 33 29 3a c8 8e 6e 69 25 ca 0d 45 7e |:.y(3):..ni%..E~|
00011b20 15 c9 35 3a 24 a4 74 28 33 33 2c 35 29 3d c3 28 |..5:$.t(33,5)=.(|
00011b30 48 29 0d 45 88 15 c9 37 3a 24 a4 74 28 33 33 2c |H).E...7:$.t(33,|
00011b40 37 29 3d c3 28 45 29 0d 45 92 05 cb 0d 45 9c 15 |7)=.(E).E....E..|
00011b50 f2 6a 28 33 33 2c 6e 69 25 29 3a 40 25 3d 30 3a |.j(33,ni%):@%=0:|
00011b60 e1 0d 45 a6 1f dd f2 45 62 3a e7 28 62 25 80 34 |..E....Eb:.(b%.4|
00011b70 29 3d 30 8c 6f 69 25 3d 31 8b 6f 69 25 3d 2d 31 |)=0.oi%=1.oi%=-1|
00011b80 0d 45 b0 09 c8 8e 4d 25 ca 0d 45 ba 0f c9 35 3a |.E....M%..E...5:|
00011b90 52 61 25 2b 3d 6f 69 25 0d 45 c4 0f c9 37 3a 52 |Ra%+=oi%.E...7:R|
00011ba0 61 25 2d 3d 6f 69 25 0d 45 ce 0f c9 38 3a 53 61 |a%-=oi%.E...8:Sa|
00011bb0 25 2b 3d 6f 69 25 0d 45 d8 10 c9 31 30 3a 53 61 |%+=oi%.E...10:Sa|
00011bc0 25 2d 3d 6f 69 25 0d 45 e2 05 cb 0d 45 ec 09 f2 |%-=oi%.E....E...|
00011bd0 4d 63 3a e1 0d 45 f6 18 dd f2 4d 63 3a e7 52 61 |Mc:..E....Mc:.Ra|
00011be0 25 3d 2d 31 8c 52 61 25 2b 3d 31 32 0d 46 00 13 |%=-1.Ra%+=12.F..|
00011bf0 e7 52 61 25 3d 31 32 8c 52 61 25 2d 3d 31 32 0d |.Ra%=12.Ra%-=12.|
00011c00 46 0a 12 e7 53 61 25 3d 2d 31 8c 53 61 25 2b 3d |F...Sa%=-1.Sa%+=|
00011c10 33 0d 46 14 11 e7 53 61 25 3d 33 8c 53 61 25 2d |3.F...Sa%=3.Sa%-|
00011c20 3d 33 0d 46 1e 05 e1 0d 46 28 13 dd f2 57 28 70 |=3.F....F(...W(p|
00011c30 69 25 29 3a c8 8e 70 69 25 ca 0d 46 32 18 c9 36 |i%):..pi%..F2..6|
00011c40 3a 24 a4 74 28 32 32 2c 36 29 3d a4 67 28 52 61 |:$.t(22,6)=.g(Ra|
00011c50 25 29 0d 46 3c 18 c9 39 3a 24 a4 74 28 32 32 2c |%).F<..9:$.t(22,|
00011c60 39 29 3d a4 6c 28 53 61 25 29 0d 46 46 05 cb 0d |9)=.l(Sa%).FF...|
00011c70 46 50 10 f2 6a 28 32 32 2c 70 69 25 29 3a e1 0d |FP..j(22,pi%):..|
00011c80 46 5a 1f dd f2 47 62 3a e7 28 62 25 80 34 29 3d |FZ...Gb:.(b%.4)=|
00011c90 30 8c 71 69 25 3d 31 8b 71 69 25 3d 2d 31 0d 46 |0.qi%=1.qi%=-1.F|
00011ca0 64 09 c8 8e 4d 25 ca 0d 46 6e 0f c9 35 3a 6b 62 |d...M%..Fn..5:kb|
00011cb0 25 2b 3d 71 69 25 0d 46 78 0f c9 37 3a 6b 62 25 |%+=qi%.Fx..7:kb%|
00011cc0 2d 3d 71 69 25 0d 46 82 0f c9 38 3a 6c 62 25 2b |-=qi%.F...8:lb%+|
00011cd0 3d 71 69 25 0d 46 8c 10 c9 31 30 3a 6c 62 25 2d |=qi%.F...10:lb%-|
00011ce0 3d 71 69 25 0d 46 96 05 cb 0d 46 a0 09 f2 4e 63 |=qi%.F....F...Nc|
00011cf0 3a e1 0d 46 aa 18 dd f2 4e 63 3a e7 6b 62 25 3d |:..F....Nc:.kb%=|
00011d00 2d 31 8c 6b 62 25 2b 3d 31 32 0d 46 b4 13 e7 6b |-1.kb%+=12.F...k|
00011d10 62 25 3d 31 32 8c 6b 62 25 2d 3d 31 32 0d 46 be |b%=12.kb%-=12.F.|
00011d20 12 e7 6c 62 25 3d 2d 31 8c 6c 62 25 2b 3d 33 0d |..lb%=-1.lb%+=3.|
00011d30 46 c8 11 e7 6c 62 25 3d 33 8c 6c 62 25 2d 3d 33 |F...lb%=3.lb%-=3|
00011d40 0d 46 d2 05 e1 0d 46 dc 13 dd f2 58 28 72 69 25 |.F....F....X(ri%|
00011d50 29 3a c8 8e 72 69 25 ca 0d 46 e6 18 c9 36 3a 24 |):..ri%..F...6:$|
00011d60 a4 74 28 34 30 2c 36 29 3d a4 67 28 6b 62 25 29 |.t(40,6)=.g(kb%)|
00011d70 0d 46 f0 18 c9 39 3a 24 a4 74 28 34 30 2c 39 29 |.F...9:$.t(40,9)|
00011d80 3d a4 6c 28 6c 62 25 29 0d 46 fa 05 cb 0d 47 04 |=.l(lb%).F....G.|
00011d90 10 f2 6a 28 34 30 2c 72 69 25 29 3a e1 0d 47 0e |..j(40,ri%):..G.|
00011da0 1f dd f2 48 62 3a e7 28 62 25 80 34 29 3d 30 8c |...Hb:.(b%.4)=0.|
00011db0 73 69 25 3d 31 8b 73 69 25 3d 2d 31 0d 47 18 09 |si%=1.si%=-1.G..|
00011dc0 c8 8e 4d 25 ca 0d 47 22 0f c9 36 3a 69 62 25 2b |..M%..G"..6:ib%+|
00011dd0 3d 73 69 25 0d 47 2c 0f c9 37 3a 69 62 25 2d 3d |=si%.G,..7:ib%-=|
00011de0 73 69 25 0d 47 36 10 c9 31 30 3a 6a 62 25 2b 3d |si%.G6..10:jb%+=|
00011df0 73 69 25 0d 47 40 0f c9 38 3a 6a 62 25 2d 3d 73 |si%.G@..8:jb%-=s|
00011e00 69 25 0d 47 4a 05 cb 0d 47 54 09 f2 4f 63 3a e1 |i%.GJ...GT..Oc:.|
00011e10 0d 47 5e 18 dd f2 4f 63 3a e7 69 62 25 3d 2d 31 |.G^...Oc:.ib%=-1|
00011e20 8c 69 62 25 2b 3d 31 32 0d 47 68 13 e7 69 62 25 |.ib%+=12.Gh..ib%|
00011e30 3d 2d 32 8c 69 62 25 2b 3d 31 33 0d 47 72 13 e7 |=-2.ib%+=13.Gr..|
00011e40 69 62 25 3d 31 32 8c 69 62 25 2d 3d 31 32 0d 47 |ib%=12.ib%-=12.G|
00011e50 7c 12 e7 6a 62 25 3d 2d 31 8c 6a 62 25 2b 3d 33 ||..jb%=-1.jb%+=3|
00011e60 0d 47 86 12 e7 6a 62 25 3d 2d 32 8c 6a 62 25 2b |.G...jb%=-2.jb%+|
00011e70 3d 34 0d 47 90 11 e7 6a 62 25 3d 33 8c 6a 62 25 |=4.G...jb%=3.jb%|
00011e80 2d 3d 33 0d 47 9a 05 e1 0d 47 a4 14 dd f2 49 62 |-=3.G....G....Ib|
00011e90 28 74 69 25 29 3a c8 8e 74 69 25 ca 0d 47 ae 18 |(ti%):..ti%..G..|
00011ea0 c9 35 3a 24 a4 74 28 31 32 2c 35 29 3d a4 67 28 |.5:$.t(12,5)=.g(|
00011eb0 69 62 25 29 0d 47 b8 18 c9 39 3a 24 a4 74 28 31 |ib%).G...9:$.t(1|
00011ec0 32 2c 39 29 3d a4 6c 28 6a 62 25 29 0d 47 c2 05 |2,9)=.l(jb%).G..|
00011ed0 cb 0d 47 cc 10 f2 6a 28 31 32 2c 74 69 25 29 3a |..G...j(12,ti%):|
00011ee0 e1 0d 47 d6 3c dd f2 66 61 3a 21 71 25 3d 31 3a |..G.<..fa:!q%=1:|
00011ef0 c8 99 37 2c 31 34 2c 71 25 3a 55 68 25 3d bb 28 |..7,14,q%:Uh%=.(|
00011f00 c3 7e 28 71 25 3f 31 29 29 2d 31 3a 5a 25 3d bb |.~(q%?1))-1:Z%=.|
00011f10 28 c1 91 24 2c 31 32 2c 34 29 29 3a e1 0d 47 e0 |(..$,12,4)):..G.|
00011f20 2e dd a4 4b 28 72 25 29 3a 40 25 3d 30 3a 74 25 |...K(r%):@%=0:t%|
00011f30 3d 72 25 3a e3 69 25 3d 30 b8 35 3a e7 61 24 28 |=r%:.i%=0.5:.a$(|
00011f40 69 25 29 3c 3e c3 28 4e 25 29 8c 0d 47 ea 14 74 |i%)<>.(N%)..G..t|
00011f50 25 2d 3d 31 3a e7 74 25 3d 2d 31 8c 3d 69 25 0d |%-=1:.t%=-1.=i%.|
00011f60 47 f4 05 cd 0d 47 fe 08 ed 3a 3d 30 0d 48 08 59 |G....G...:=0.H.Y|
00011f70 dd f2 53 62 28 65 25 29 3a e7 63 25 28 65 25 29 |..Sb(e%):.c%(e%)|
00011f80 3d 31 8c 63 25 28 65 25 29 3d 30 3a f2 67 28 65 |=1.c%(e%)=0:.g(e|
00011f90 25 29 8b 64 25 28 65 25 29 3d a4 78 28 4b 64 25 |%).d%(e%)=.x(Kd%|
00011fa0 2c 4c 64 25 29 3a 63 25 28 65 25 29 3d 31 3a f2 |,Ld%):c%(e%)=1:.|
00011fb0 66 28 65 25 29 3a f2 6c 28 30 2c 65 25 29 3a f2 |f(e%):.l(0,e%):.|
00011fc0 49 28 65 25 29 0d 48 12 05 e1 0d 48 1c 88 dd f2 |I(e%).H....H....|
00011fd0 72 62 3a 24 a4 74 28 32 31 2c 36 29 3d 22 22 3a |rb:$.t(21,6)="":|
00011fe0 24 a4 74 28 32 31 2c 31 31 29 3d 22 22 3a 24 a4 |$.t(21,11)="":$.|
00011ff0 74 28 32 31 2c 31 32 29 3d 22 22 3a 24 a4 74 28 |t(21,12)="":$.t(|
00012000 32 31 2c 31 34 29 3d 22 22 3a 71 25 21 30 3d 61 |21,14)="":q%!0=a|
00012010 25 28 32 31 29 3a 71 25 21 34 3d 36 3a c8 99 32 |%(21):q%!4=6:..2|
00012020 36 32 33 35 34 2c 2c 71 25 3a f2 6a 28 32 31 2c |62354,,q%:.j(21,|
00012030 36 29 3a f2 6a 28 32 31 2c 31 31 29 3a f2 6a 28 |6):.j(21,11):.j(|
00012040 32 31 2c 31 32 29 3a f2 6a 28 32 31 2c 31 34 29 |21,12):.j(21,14)|
00012050 3a e1 0d 48 26 32 dd f2 51 61 3a e7 28 24 28 a4 |:..H&2..Qa:.($(.|
00012060 74 28 32 31 2c 36 29 29 29 3d 22 22 8c f2 71 28 |t(21,6)))=""..q(|
00012070 22 42 61 64 20 73 74 6f 63 6b 20 6e 61 6d 65 2e |"Bad stock name.|
00012080 22 29 3a e1 0d 48 30 53 75 69 25 3d 67 25 3a 67 |"):..H0Sui%=g%:g|
00012090 25 3d 47 62 25 3a f2 70 3a 76 69 25 3d 6e 25 28 |%=Gb%:.p:vi%=n%(|
000120a0 67 25 2c 64 25 28 67 25 29 29 3a 73 25 28 67 25 |g%,d%(g%)):s%(g%|
000120b0 2c 64 25 28 67 25 29 29 3d a4 6b 28 73 25 28 67 |,d%(g%))=.k(s%(g|
000120c0 25 2c 64 25 28 67 25 29 29 2c 33 36 2c 54 25 29 |%,d%(g%)),36,T%)|
000120d0 3a e7 ac 54 25 8c e1 0d 48 3a e7 24 28 73 25 28 |:..T%...H:.$(s%(|
000120e0 67 25 2c 64 25 28 67 25 29 29 2b 33 36 2a 76 69 |g%,d%(g%))+36*vi|
000120f0 25 29 3d 28 24 28 a4 74 28 32 31 2c 36 29 29 29 |%)=($(.t(21,6)))|
00012100 2b 22 30 22 3a 21 28 73 25 28 67 25 2c 64 25 28 |+"0":!(s%(g%,d%(|
00012110 67 25 29 29 2b 33 36 2a 76 69 25 2b 32 34 29 3d |g%))+36*vi%+24)=|
00012120 bb 28 24 28 a4 74 28 32 31 2c 31 31 29 29 29 3a |.($(.t(21,11))):|
00012130 21 28 73 25 28 67 25 2c 64 25 28 67 25 29 29 2b |!(s%(g%,d%(g%))+|
00012140 33 36 2a 76 69 25 2b 32 38 29 3d bb 28 24 28 a4 |36*vi%+28)=.($(.|
00012150 74 28 32 31 2c 31 32 29 29 29 2a 31 30 30 30 3a |t(21,12)))*1000:|
00012160 21 28 73 25 28 67 25 2c 64 25 28 67 25 29 29 2b |!(s%(g%,d%(g%))+|
00012170 33 36 2a 76 69 25 2b 33 32 29 3d bb 28 24 28 a4 |36*vi%+32)=.($(.|
00012180 74 28 32 31 2c 31 34 29 29 29 2a 31 30 30 30 3a |t(21,14)))*1000:|
00012190 6e 25 28 67 25 2c 64 25 28 67 25 29 29 2b 3d 31 |n%(g%,d%(g%))+=1|
000121a0 3a 21 71 25 3d 61 25 28 67 25 29 3a 68 25 28 67 |:!q%=a%(g%):h%(g|
000121b0 25 29 3d b9 3a f2 49 28 67 25 29 3a f2 44 0d 48 |%)=.:.I(g%):.D.H|
000121c0 44 0b e7 6b 66 25 3d 30 8c 0d 48 4e 2a e3 41 62 |D..kf%=0..HN*.Ab|
000121d0 25 3d 30 b8 35 3a e7 61 25 28 41 62 25 29 3c 3e |%=0.5:.a%(Ab%)<>|
000121e0 30 21 71 25 3d 61 25 28 41 62 25 29 3a f2 72 28 |0!q%=a%(Ab%):.r(|
000121f0 71 25 29 0d 48 58 05 ed 0d 48 62 05 cd 0d 48 6c |q%).HX...Hb...Hl|
00012200 1f e7 61 25 28 33 37 29 3c 3e 30 21 71 25 3d 61 |..a%(37)<>0!q%=a|
00012210 25 28 33 37 29 3a f2 72 28 71 25 29 0d 48 76 0c |%(37):.r(q%).Hv.|
00012220 67 25 3d 75 69 25 3a e1 0d 48 80 16 dd f2 70 3a |g%=ui%:..H....p:|
00012230 65 25 28 67 25 29 3d b9 3a f2 6a 63 3a e1 0d 48 |e%(g%)=.:.jc:..H|
00012240 8a 1e dd f2 6a 63 3a e7 65 25 28 67 25 29 8c 67 |....jc:.e%(g%).g|
00012250 24 3d 22 20 2a 22 8b 67 24 3d 22 22 0d 48 94 21 |$=" *".g$="".H.!|
00012260 e7 61 25 28 67 25 29 3c 3e 30 8c f2 76 28 67 25 |.a%(g%)<>0..v(g%|
00012270 2c 61 24 28 67 25 29 2b 67 24 2c 31 29 0d 48 9e |,a$(g%)+g$,1).H.|
00012280 05 e1 0d 48 a8 3d dd f2 69 63 28 77 69 25 29 3a |...H.=..ic(wi%):|
00012290 e7 77 69 25 3d 6f 65 25 80 61 25 28 33 34 29 3c |.wi%=oe%.a%(34)<|
000122a0 3e 30 8c 24 a4 74 28 33 34 2c 33 32 29 3d 61 24 |>0.$.t(34,32)=a$|
000122b0 28 6f 65 25 29 3a f2 6a 28 33 34 2c 33 32 29 0d |(oe%):.j(34,32).|
000122c0 48 b2 33 e7 77 69 25 3d 70 65 25 80 61 25 28 33 |H.3.wi%=pe%.a%(3|
000122d0 34 29 3c 3e 30 8c 24 a4 74 28 33 34 2c 33 38 29 |4)<>0.$.t(34,38)|
000122e0 3d 61 24 28 70 65 25 29 3a f2 6a 28 33 34 2c 33 |=a$(pe%):.j(34,3|
000122f0 38 29 0d 48 bc 33 e7 77 69 25 3d 67 65 25 80 61 |8).H.3.wi%=ge%.a|
00012300 25 28 33 35 29 3c 3e 30 8c 24 a4 74 28 33 35 2c |%(35)<>0.$.t(35,|
00012310 33 32 29 3d 61 24 28 67 65 25 29 3a f2 6a 28 33 |32)=a$(ge%):.j(3|
00012320 35 2c 33 32 29 0d 48 c6 33 e7 77 69 25 3d 68 65 |5,32).H.3.wi%=he|
00012330 25 80 61 25 28 33 35 29 3c 3e 30 8c 24 a4 74 28 |%.a%(35)<>0.$.t(|
00012340 33 35 2c 33 38 29 3d 61 24 28 68 65 25 29 3a f2 |35,38)=a$(he%):.|
00012350 6a 28 33 35 2c 33 38 29 0d 48 d0 33 e7 77 69 25 |j(35,38).H.3.wi%|
00012360 3d 46 63 25 80 61 25 28 33 36 29 3c 3e 30 8c 24 |=Fc%.a%(36)<>0.$|
00012370 a4 74 28 33 36 2c 33 32 29 3d 61 24 28 46 63 25 |.t(36,32)=a$(Fc%|
00012380 29 3a f2 6a 28 33 36 2c 33 32 29 0d 48 da 33 e7 |):.j(36,32).H.3.|
00012390 77 69 25 3d 75 65 25 80 61 25 28 33 36 29 3c 3e |wi%=ue%.a%(36)<>|
000123a0 30 8c 24 a4 74 28 33 36 2c 33 38 29 3d 61 24 28 |0.$.t(36,38)=a$(|
000123b0 75 65 25 29 3a f2 6a 28 33 36 2c 33 38 29 0d 48 |ue%):.j(36,38).H|
000123c0 e4 05 e1 0d 48 ee 33 dd f2 63 28 61 25 2c 62 25 |....H.3..c(a%,b%|
000123d0 2c 63 25 29 3a f2 74 28 61 25 2c 62 25 2c 63 25 |,c%):.t(a%,b%,c%|
000123e0 2c c0 a4 62 28 61 25 2c 62 25 2c 63 25 29 29 2b |,..b(a%,b%,c%))+|
000123f0 22 31 22 29 3a e1 0d 48 f8 42 dd f2 52 61 3a e7 |"1"):..H.B..Ra:.|
00012400 6a 62 25 2a 31 32 2b 69 62 25 3c 3e 21 28 62 25 |jb%*12+ib%<>!(b%|
00012410 28 49 25 29 2b 33 36 2a 67 62 25 2b 32 34 29 80 |(I%)+36*gb%+24).|
00012420 21 28 62 25 28 49 25 29 2b 33 36 2a 67 62 25 2b |!(b%(I%)+36*gb%+|
00012430 32 34 29 3c 3e 2d 31 8c 0d 49 02 2b c8 99 32 36 |24)<>-1..I.+..26|
00012440 33 38 37 32 3a 62 25 28 49 25 29 3d a4 6b 28 62 |3872:b%(I%)=.k(b|
00012450 25 28 49 25 29 2c 33 36 2c 54 25 29 3a e7 ac 54 |%(I%),36,T%):..T|
00012460 25 8c e1 0d 49 0c dc e3 78 69 25 3d 76 25 28 49 |%...I...xi%=v%(I|
00012470 25 29 b8 67 62 25 2b 31 88 2d 31 3a 24 28 62 25 |%).gb%+1.-1:$(b%|
00012480 28 49 25 29 2b 33 36 2a 78 69 25 2b 33 36 29 3d |(I%)+36*xi%+36)=|
00012490 24 28 62 25 28 49 25 29 2b 33 36 2a 78 69 25 29 |$(b%(I%)+36*xi%)|
000124a0 3a 21 28 62 25 28 49 25 29 2b 33 36 2a 78 69 25 |:!(b%(I%)+36*xi%|
000124b0 2b 36 30 29 3d 21 28 62 25 28 49 25 29 2b 33 36 |+60)=!(b%(I%)+36|
000124c0 2a 78 69 25 2b 32 34 29 3a 21 28 62 25 28 49 25 |*xi%+24):!(b%(I%|
000124d0 29 2b 33 36 2a 78 69 25 2b 36 34 29 3d 21 28 62 |)+36*xi%+64)=!(b|
000124e0 25 28 49 25 29 2b 33 36 2a 78 69 25 2b 32 38 29 |%(I%)+36*xi%+28)|
000124f0 3a 21 28 62 25 28 49 25 29 2b 33 36 2a 78 69 25 |:!(b%(I%)+36*xi%|
00012500 2b 36 38 29 3d 21 28 62 25 28 49 25 29 2b 33 36 |+68)=!(b%(I%)+36|
00012510 2a 78 69 25 2b 33 32 29 3a ed 3a 24 28 62 25 28 |*xi%+32):.:$(b%(|
00012520 49 25 29 2b 33 36 2a 67 62 25 2b 33 36 29 3d 24 |I%)+36*gb%+36)=$|
00012530 28 62 25 28 49 25 29 2b 33 36 2a 67 62 25 29 0d |(b%(I%)+36*gb%).|
00012540 49 16 b6 21 28 62 25 28 49 25 29 2b 33 36 2a 67 |I..!(b%(I%)+36*g|
00012550 62 25 2b 36 30 29 3d 6a 62 25 2a 31 32 2b 69 62 |b%+60)=jb%*12+ib|
00012560 25 3a 21 28 62 25 28 49 25 29 2b 33 36 2a 67 62 |%:!(b%(I%)+36*gb|
00012570 25 2b 36 34 29 3d bb 28 24 a4 74 28 31 32 2c 31 |%+64)=.($.t(12,1|
00012580 33 29 29 2a 31 30 30 30 3a 21 28 62 25 28 49 25 |3))*1000:!(b%(I%|
00012590 29 2b 33 36 2a 67 62 25 2b 36 38 29 3d bb 28 24 |)+36*gb%+68)=.($|
000125a0 a4 74 28 31 32 2c 31 35 29 29 2a 31 30 30 30 3a |.t(12,15))*1000:|
000125b0 76 25 28 49 25 29 2b 3d 31 3a 21 71 25 3d 61 25 |v%(I%)+=1:!q%=a%|
000125c0 28 34 31 29 3a f2 72 28 71 25 29 3a e7 76 25 28 |(41):.r(q%):.v%(|
000125d0 49 25 29 3e 35 8c f2 69 28 34 31 2c 32 35 34 2b |I%)>5..i(41,254+|
000125e0 28 34 30 2a 76 25 28 49 25 29 29 2c 31 32 33 36 |(40*v%(I%)),1236|
000125f0 2c 30 2c 30 29 0d 49 20 0c c8 99 32 36 33 38 37 |,0,0).I ...26387|
00012600 33 0d 49 2a 7a cc 3a 21 28 62 25 28 49 25 29 2b |3.I*z.:!(b%(I%)+|
00012610 33 36 2a 67 62 25 2b 32 34 29 3d 6a 62 25 2a 31 |36*gb%+24)=jb%*1|
00012620 32 2b 69 62 25 3a 21 28 62 25 28 49 25 29 2b 33 |2+ib%:!(b%(I%)+3|
00012630 36 2a 67 62 25 2b 32 38 29 3d bb 28 24 a4 74 28 |6*gb%+28)=.($.t(|
00012640 31 32 2c 31 33 29 29 2a 31 30 30 30 3a 21 28 62 |12,13))*1000:!(b|
00012650 25 28 49 25 29 2b 33 36 2a 67 62 25 2b 33 32 29 |%(I%)+36*gb%+32)|
00012660 3d bb 28 24 a4 74 28 31 32 2c 31 35 29 29 2a 31 |=.($.t(12,15))*1|
00012670 30 30 30 3a f2 5f 28 67 62 25 29 0d 49 34 05 cd |000:._(gb%).I4..|
00012680 0d 49 3e 05 e1 0d 49 48 34 dd f2 47 61 3a ea 79 |.I>...IH4..Ga:.y|
00012690 69 25 2c 7a 69 25 2c 41 69 25 3a 79 69 25 3d 59 |i%,zi%,Ai%:yi%=Y|
000126a0 25 3a 7a 69 25 3d 64 25 28 67 25 29 3a 41 69 25 |%:zi%=d%(g%):Ai%|
000126b0 3d 67 25 3a e7 43 66 25 8c 0d 49 52 47 ea 42 69 |=g%:.Cf%..IRG.Bi|
000126c0 25 2c 58 24 3a 42 69 25 3d 64 25 28 67 25 29 3a |%,X$:Bi%=d%(g%):|
000126d0 58 24 3d c0 a4 62 28 79 69 25 2c 7a 69 25 2c 41 |X$=..b(yi%,zi%,A|
000126e0 69 25 29 29 3a e3 43 69 25 3d 30 b8 35 3a e3 44 |i%)):.Ci%=0.5:.D|
000126f0 69 25 3d 30 b8 6e 25 28 43 69 25 2c 42 69 25 29 |i%=0.n%(Ci%,Bi%)|
00012700 0d 49 5c 56 e7 c0 a4 62 28 44 69 25 2c 42 69 25 |.I\V...b(Di%,Bi%|
00012710 2c 43 69 25 29 29 3d 58 24 8c f2 73 28 44 69 25 |,Ci%))=X$..s(Di%|
00012720 2c 42 69 25 2c 43 69 25 2c a4 63 28 79 69 25 2c |,Bi%,Ci%,.c(yi%,|
00012730 7a 69 25 2c 41 69 25 29 29 3a f2 63 28 44 69 25 |zi%,Ai%)):.c(Di%|
00012740 2c 42 69 25 2c 43 69 25 29 3a f2 50 63 3a f2 51 |,Bi%,Ci%):.Pc:.Q|
00012750 63 28 43 69 25 29 0d 49 66 07 ed 3a ed 0d 49 70 |c(Ci%).If..:..Ip|
00012760 05 cd 0d 49 7a 15 e7 5a 61 25 3e 2d 31 80 61 25 |...Iz..Za%>-1.a%|
00012770 28 32 38 29 3e 30 8c 0d 49 84 56 e7 5a 61 25 3d |(28)>0..I.V.Za%=|
00012780 41 69 25 80 c0 a4 62 28 58 61 25 2c 59 61 25 2c |Ai%...b(Xa%,Ya%,|
00012790 5a 61 25 29 29 3d c0 a4 62 28 79 69 25 2c 7a 69 |Za%))=..b(yi%,zi|
000127a0 25 2c 41 69 25 29 29 8c f2 65 63 28 57 61 25 29 |%,Ai%))..ec(Wa%)|
000127b0 3a f2 52 63 3a 21 71 25 3d 61 25 28 32 38 29 3a |:.Rc:!q%=a%(28):|
000127c0 f2 72 28 71 25 29 3a f2 53 63 28 31 29 0d 49 8e |.r(q%):.Sc(1).I.|
000127d0 05 cd 0d 49 98 14 e7 51 25 3e 2d 31 80 61 25 28 |...I...Q%>-1.a%(|
000127e0 33 38 29 3e 30 8c 0d 49 a2 57 e7 51 25 3d 41 69 |38)>0..I.W.Q%=Ai|
000127f0 25 80 c0 a4 62 28 48 67 25 2c 49 67 25 2c 51 25 |%...b(Hg%,Ig%,Q%|
00012800 29 29 3d c0 a4 62 28 79 69 25 2c 7a 69 25 2c 41 |))=..b(yi%,zi%,A|
00012810 69 25 29 29 8c f2 76 63 28 48 67 25 2c 49 67 25 |i%))..vc(Hg%,Ig%|
00012820 2c 51 25 29 3a 21 71 25 3d 61 25 28 33 38 29 3a |,Q%):!q%=a%(38):|
00012830 f2 72 28 71 25 29 3a f2 53 63 28 32 29 0d 49 ac |.r(q%):.Sc(2).I.|
00012840 05 cd 0d 49 b6 05 e1 0d 49 c0 30 dd f2 53 63 28 |...I....I.0..Sc(|
00012850 63 25 29 3a e7 63 25 3d 49 63 25 80 61 25 28 33 |c%):.c%=Ic%.a%(3|
00012860 39 29 3c 3e 30 8c 21 71 25 3d 61 25 28 33 39 29 |9)<>0.!q%=a%(39)|
00012870 3a f2 72 28 71 25 29 0d 49 ca 05 e1 0d 49 d4 14 |:.r(q%).I....I..|
00012880 dd f2 52 63 3a e7 6c 25 3e 30 8c 6c 25 2d 3d 31 |..Rc:.l%>0.l%-=1|
00012890 0d 49 de 05 e1 0d 49 e8 1a dd f2 51 63 28 45 69 |.I....I....Qc(Ei|
000128a0 25 29 3a e7 61 25 28 45 69 25 29 3c 3e 30 8c 0d |%):.a%(Ei%)<>0..|
000128b0 49 f2 1b 46 69 25 3d 67 25 3a 67 25 3d 45 69 25 |I..Fi%=g%:g%=Ei%|
000128c0 3a f2 70 3a 67 25 3d 46 69 25 0d 49 fc 0f cc 3a |:.p:g%=Fi%.I...:|
000128d0 65 25 28 45 69 25 29 3d b9 0d 4a 06 05 cd 0d 4a |e%(Ei%)=..J....J|
000128e0 10 05 e1 0d 4a 1a 2e dd f2 50 63 3a e7 63 25 28 |....J....Pc:.c%(|
000128f0 43 69 25 29 3d 31 80 64 25 28 43 69 25 29 3d 64 |Ci%)=1.d%(Ci%)=d|
00012900 25 28 67 25 29 8c f2 4e 28 44 69 25 2c 43 69 25 |%(g%)..N(Di%,Ci%|
00012910 29 0d 4a 24 05 e1 0d 4a 2e 16 dd a4 67 28 47 69 |).J$...J....g(Gi|
00012920 25 29 3a c8 8e 47 69 25 83 31 32 ca 0d 4a 38 11 |%):..Gi%.12..J8.|
00012930 c9 30 3a 3d 22 4a 61 6e 75 61 72 79 22 0d 4a 42 |.0:="January".JB|
00012940 12 c9 31 3a 3d 22 46 65 62 72 75 61 72 79 22 0d |..1:="February".|
00012950 4a 4c 0f c9 32 3a 3d 22 4d 61 72 63 68 22 0d 4a |JL..2:="March".J|
00012960 56 0f c9 33 3a 3d 22 41 70 72 69 6c 22 0d 4a 60 |V..3:="April".J`|
00012970 0d c9 34 3a 3d 22 4d 61 79 22 0d 4a 6a 0e c9 35 |..4:="May".Jj..5|
00012980 3a 3d 22 4a 75 6e 65 22 0d 4a 74 0e c9 36 3a 3d |:="June".Jt..6:=|
00012990 22 4a 75 6c 79 22 0d 4a 7e 10 c9 37 3a 3d 22 41 |"July".J~..7:="A|
000129a0 75 67 75 73 74 22 0d 4a 88 13 c9 38 3a 3d 22 53 |ugust".J...8:="S|
000129b0 65 70 74 65 6d 62 65 72 22 0d 4a 92 11 c9 39 3a |eptember".J...9:|
000129c0 3d 22 4f 63 74 6f 62 65 72 22 0d 4a 9c 13 c9 31 |="October".J...1|
000129d0 30 3a 3d 22 4e 6f 76 65 6d 62 65 72 22 0d 4a a6 |0:="November".J.|
000129e0 13 c9 31 31 3a 3d 22 44 65 63 65 6d 62 65 72 22 |..11:="December"|
000129f0 0d 4a b0 05 cb 0d 4a ba 07 3d 22 22 0d 4a c4 15 |.J....J..="".J..|
00012a00 dd a4 6c 28 47 69 25 29 3a c8 8e 47 69 25 83 33 |..l(Gi%):..Gi%.3|
00012a10 ca 0d 4a ce 0f c9 30 3a 3d c3 28 5a 25 2d 32 29 |..J...0:=.(Z%-2)|
00012a20 0d 4a d8 0f c9 31 3a 3d c3 28 5a 25 2d 31 29 0d |.J...1:=.(Z%-1).|
00012a30 4a e2 0d c9 32 3a 3d c3 28 5a 25 29 0d 4a ec 05 |J...2:=.(Z%).J..|
00012a40 cb 0d 4a f6 07 3d 22 22 0d 4b 00 13 dd a4 43 28 |..J..="".K....C(|
00012a50 47 69 25 29 3a c8 8e 47 69 25 ca 0d 4b 0a 11 c9 |Gi%):..Gi%..K...|
00012a60 30 3a 3d 22 4a 61 6e 75 61 72 79 22 0d 4b 14 12 |0:="January".K..|
00012a70 c9 31 3a 3d 22 46 65 62 72 75 61 72 79 22 0d 4b |.1:="February".K|
00012a80 1e 0f c9 32 3a 3d 22 4d 61 72 63 68 22 0d 4b 28 |...2:="March".K(|
00012a90 0f c9 33 3a 3d 22 41 70 72 69 6c 22 0d 4b 32 0d |..3:="April".K2.|
00012aa0 c9 34 3a 3d 22 4d 61 79 22 0d 4b 3c 0e c9 35 3a |.4:="May".K<..5:|
00012ab0 3d 22 4a 75 6e 65 22 0d 4b 46 0e c9 36 3a 3d 22 |="June".KF..6:="|
00012ac0 4a 75 6c 79 22 0d 4b 50 10 c9 37 3a 3d 22 41 75 |July".KP..7:="Au|
00012ad0 67 75 73 74 22 0d 4b 5a 13 c9 38 3a 3d 22 53 65 |gust".KZ..8:="Se|
00012ae0 70 74 65 6d 62 65 72 22 0d 4b 64 11 c9 39 3a 3d |ptember".Kd..9:=|
00012af0 22 4f 63 74 6f 62 65 72 22 0d 4b 6e 13 c9 31 30 |"October".Kn..10|
00012b00 3a 3d 22 4e 6f 76 65 6d 62 65 72 22 0d 4b 78 13 |:="November".Kx.|
00012b10 c9 31 31 3a 3d 22 44 65 63 65 6d 62 65 72 22 0d |.11:="December".|
00012b20 4b 82 18 c9 31 32 3a 3d 22 43 75 72 72 65 6e 74 |K...12:="Current|
00012b30 20 6d 6f 6e 74 68 22 0d 4b 8c 05 cb 0d 4b 96 07 | month".K....K..|
00012b40 3d 22 22 0d 4b a0 13 dd a4 44 28 47 69 25 29 3a |="".K....D(Gi%):|
00012b50 c8 8e 47 69 25 ca 0d 4b aa 0f c9 30 3a 3d c3 28 |..Gi%..K...0:=.(|
00012b60 5a 25 2d 32 29 0d 4b b4 0f c9 31 3a 3d c3 28 5a |Z%-2).K...1:=.(Z|
00012b70 25 2d 31 29 0d 4b be 0d c9 32 3a 3d c3 28 5a 25 |%-1).K...2:=.(Z%|
00012b80 29 0d 4b c8 16 c9 33 3a 3d 22 43 75 72 72 65 6e |).K...3:="Curren|
00012b90 74 20 79 65 61 72 22 0d 4b d2 05 cb 0d 4b dc 07 |t year".K....K..|
00012ba0 3d 22 22 0d 4b e6 16 dd a4 71 28 47 69 25 29 3a |="".K....q(Gi%):|
00012bb0 c8 8e 47 69 25 81 31 32 ca 0d 4b f0 0f c9 30 3a |..Gi%.12..K...0:|
00012bc0 3d c3 28 5a 25 2d 32 29 0d 4b fa 0f c9 31 3a 3d |=.(Z%-2).K...1:=|
00012bd0 c3 28 5a 25 2d 31 29 0d 4c 04 0d c9 32 3a 3d c3 |.(Z%-1).L...2:=.|
00012be0 28 5a 25 29 0d 4c 0e 05 cb 0d 4c 18 07 3d 22 22 |(Z%).L....L..=""|
00012bf0 0d 4c 22 15 dd a4 4a 28 47 69 25 29 3a c8 8e 47 |.L"...J(Gi%):..G|
00012c00 69 25 83 33 ca 0d 4c 2c 09 c9 30 3a 3d 30 0d 4c |i%.3..L,..0:=0.L|
00012c10 36 0a c9 31 3a 3d 31 32 0d 4c 40 0a c9 32 3a 3d |6..1:=12.L@..2:=|
00012c20 32 34 0d 4c 4a 05 cb 0d 4c 54 06 3d 30 0d 4c 5e |24.LJ...LT.=0.L^|
00012c30 1a dd a4 78 28 79 25 2c 6d 25 29 3a e7 79 25 3d |...x(y%,m%):.y%=|
00012c40 33 8c 79 25 2d 3d 31 0d 4c 68 29 e7 6d 25 3d 31 |3.y%-=1.Lh).m%=1|
00012c50 32 8c 48 69 25 3d 28 79 25 2a 31 32 29 2b 55 68 |2.Hi%=(y%*12)+Uh|
00012c60 25 8b 48 69 25 3d 28 79 25 2a 31 32 29 2b 6d 25 |%.Hi%=(y%*12)+m%|
00012c70 0d 4c 72 08 3d 48 69 25 0d 4c 7c 14 dd a4 45 3a |.Lr.=Hi%.L|...E:|
00012c80 49 69 25 3d b9 3a c8 8e 49 63 25 ca 0d 4c 86 15 |Ii%=.:..Ic%..L..|
00012c90 c9 31 3a e7 75 3d 76 80 75 3d 30 8c 49 69 25 3d |.1:.u=v.u=0.Ii%=|
00012ca0 a3 0d 4c 90 15 c9 32 3a e7 43 3d 47 80 43 3d 30 |..L...2:.C=G.C=0|
00012cb0 8c 49 69 25 3d a3 0d 4c 9a 05 cb 0d 4c a4 08 3d |.Ii%=..L....L..=|
00012cc0 49 69 25 0d 4c ae 0e dd a4 75 3a c8 8e 4d 63 25 |Ii%.L....u:..Mc%|
00012cd0 ca 0d 4c b8 0d c9 30 3a c8 8e 59 63 25 ca 0d 4c |..L...0:..Yc%..L|
00012ce0 c2 12 c9 30 3a 3d 22 32 44 20 43 68 61 72 74 22 |...0:="2D Chart"|
00012cf0 0d 4c cc 12 c9 31 3a 3d 22 33 44 20 43 68 61 72 |.L...1:="3D Char|
00012d00 74 22 0d 4c d6 05 cb 0d 4c e0 0f c9 31 3a 3d 22 |t".L....L...1:="|
00012d10 47 72 61 70 68 22 0d 4c ea 05 cb 0d 4c f4 07 3d |Graph".L....L..=|
00012d20 22 22 0d 4c fe 0e dd a4 6e 3a c8 8e 4d 63 25 ca |"".L....n:..Mc%.|
00012d30 0d 4d 08 0d c9 30 3a c8 8e 59 63 25 ca 0d 4d 12 |.M...0:..Yc%..M.|
00012d40 0a c9 30 3a 3d 55 25 0d 4d 1c 0f c9 31 3a 3d a4 |..0:=U%.M...1:=.|
00012d50 66 28 31 32 30 29 0d 4d 26 05 cb 0d 4d 30 0a c9 |f(120).M&...M0..|
00012d60 31 3a 3d 55 25 0d 4d 3a 05 cb 0d 4d 44 06 3d 30 |1:=U%.M:...MD.=0|
00012d70 0d 4d 4e 0e dd a4 6f 3a c8 8e 4d 63 25 ca 0d 4d |.MN...o:..Mc%..M|
00012d80 58 0d c9 30 3a c8 8e 59 63 25 ca 0d 4d 62 09 c9 |X..0:..Yc%..Mb..|
00012d90 30 3a 3d 30 0d 4d 6c 0f c9 31 3a 3d a4 66 28 32 |0:=0.Ml..1:=.f(2|
00012da0 32 36 29 0d 4d 76 05 cb 0d 4d 80 09 c9 31 3a 3d |26).Mv...M...1:=|
00012db0 30 0d 4d 8a 05 cb 0d 4d 94 06 3d 30 0d 4d 9e 1f |0.M....M..=0.M..|
00012dc0 dd a4 79 3a e3 4a 69 25 3d 30 b8 35 3a e7 ac 68 |..y:.Ji%=0.5:..h|
00012dd0 25 28 4a 69 25 29 8c 3d 4a 69 25 0d 4d a8 08 ed |%(Ji%).=Ji%.M...|
00012de0 3a 3d 36 0d 4d b2 17 dd a4 69 28 43 68 25 29 3a |:=6.M....i(Ch%):|
00012df0 c8 8e 66 25 28 43 68 25 29 ca 0d 4d bc 0c c9 30 |..f%(Ch%)..M...0|
00012e00 3a 3d 2d 32 35 36 0d 4d c6 11 c9 31 3a 3d 26 44 |:=-256.M...1:=&D|
00012e10 44 44 44 44 44 30 30 0d 4d d0 11 c9 32 3a 3d 26 |DDDDD00.M...2:=&|
00012e20 42 42 42 42 42 42 30 30 0d 4d da 11 c9 33 3a 3d |BBBBBB00.M...3:=|
00012e30 26 39 39 39 39 39 39 30 30 0d 4d e4 11 c9 34 3a |&99999900.M...4:|
00012e40 3d 26 37 37 37 37 37 37 30 30 0d 4d ee 11 c9 35 |=&77777700.M...5|
00012e50 3a 3d 26 35 35 35 35 35 35 30 30 0d 4d f8 11 c9 |:=&55555500.M...|
00012e60 36 3a 3d 38 35 38 39 39 33 34 30 38 0d 4e 02 09 |6:=858993408.N..|
00012e70 c9 37 3a 3d 30 0d 4e 0c 11 c9 38 3a 3d 26 39 39 |.7:=0.N...8:=&99|
00012e80 34 34 30 30 30 30 0d 4e 16 0f c9 39 3a 3d 26 45 |440000.N...9:=&E|
00012e90 45 45 45 30 30 0d 4e 20 10 c9 31 30 3a 3d 26 43 |EEE00.N ..10:=&C|
00012ea0 43 30 30 30 30 0d 4e 2a 0e c9 31 31 3a 3d 35 36 |C0000.N*..11:=56|
00012eb0 35 37 36 0d 4e 34 12 c9 31 32 3a 3d 26 42 42 45 |576.N4..12:=&BBE|
00012ec0 45 45 45 30 30 0d 4e 3e 10 c9 31 33 3a 3d 38 39 |EEE00.N>..13:=89|
00012ed0 33 34 36 35 36 0d 4e 48 10 c9 31 34 3a 3d 26 42 |34656.NH..14:=&B|
00012ee0 42 46 46 30 30 0d 4e 52 11 c9 31 35 3a 3d 2d 34 |BFF00.NR..15:=-4|
00012ef0 35 32 31 39 38 34 0d 4e 5c 05 cb 0d 4e 66 06 3d |521984.N\...Nf.=|
00012f00 30 0d 4e 70 31 dd a4 41 28 79 66 25 29 3a c8 99 |0.Np1..A(yf%):..|
00012f10 32 36 32 33 35 37 2c 2c 79 66 25 2c 71 25 2c c4 |262357,,yf%,q%,.|
00012f20 32 30 30 2c 22 20 22 29 b8 2c 2c 2c 61 24 3a 3d |200," ").,,,a$:=|
00012f30 61 24 0d 4e 7a 16 dd a4 76 28 4e 61 29 3a 3d a8 |a$.Nz...v(Na):=.|
00012f40 28 4e 61 2b 30 2e 35 29 0d 4e 84 16 dd a4 6a 28 |(Na+0.5).N....j(|
00012f50 6b 25 29 3a e7 6b 25 3d 36 8c 6b 25 3d 30 0d 4e |k%):.k%=6.k%=0.N|
00012f60 8e 0f e7 6b 25 3d 2d 31 8c 6b 25 3d 35 0d 4e 98 |...k%=-1.k%=5.N.|
00012f70 25 e7 61 24 28 6b 25 29 3d c3 28 4e 25 29 8c 48 |%.a$(k%)=.(N%).H|
00012f80 69 25 3d a4 6a 28 6b 25 2b 31 29 8b 48 69 25 3d |i%=.j(k%+1).Hi%=|
00012f90 6b 25 0d 4e a2 08 3d 48 69 25 0d 4e ac 41 dd a4 |k%.N..=Hi%.N.A..|
00012fa0 4c 28 6b 24 29 3a e7 a4 72 28 6b 24 29 3d 22 28 |L(k$):..r(k$)="(|
00012fb0 52 65 67 75 6c 61 72 29 22 8c 59 24 3d c1 6b 24 |Regular)".Y$=.k$|
00012fc0 2c 30 2c a9 28 6b 24 29 2d a9 28 a4 72 28 6b 24 |,0,.(k$)-.(.r(k$|
00012fd0 29 29 2d 31 29 8b 59 24 3d 6b 24 0d 4e b6 07 3d |))-1).Y$=k$.N..=|
00012fe0 59 24 0d 4e c0 1a dd f2 71 61 3a c8 99 36 2c 31 |Y$.N....qa:..6,1|
00012ff0 30 36 2c 31 3a 4a 62 25 3d a3 3a e1 0d 4e ca 35 |06,1:Jb%=.:..N.5|
00013000 dd f2 54 61 3a c8 99 32 36 32 33 37 37 2c 33 36 |..Ta:..262377,36|
00013010 2c 31 2c 22 70 74 72 5f 73 74 6f 63 6b 22 2c 32 |,1,"ptr_stock",2|
00013020 2c 31 35 2c 36 2c 30 2c 30 3a 4a 62 25 3d b9 3a |,15,6,0,0:Jb%=.:|
00013030 e1 0d 4e d4 2c dd f2 63 63 3a f2 45 28 48 63 25 |..N.,..cc:.E(Hc%|
00013040 29 3a 48 63 25 3d a4 6b 28 48 63 25 2c 45 66 25 |):Hc%=.k(Hc%,Ef%|
00013050 2b 31 2c 54 25 29 3a e7 ac 54 25 8c e1 0d 4e de |+1,T%):..T%...N.|
00013060 1a e3 69 25 3d 30 b8 45 66 25 3a 48 63 25 3f 69 |..i%=0.Ef%:Hc%?i|
00013070 25 3d 30 3a ed 3a e1 0d 4e e8 89 dd f2 54 62 3a |%=0:.:..N....Tb:|
00013080 4b 69 25 3d 65 25 28 30 29 2b 65 25 28 31 29 2b |Ki%=e%(0)+e%(1)+|
00013090 65 25 28 32 29 2b 65 25 28 33 29 2b 65 25 28 34 |e%(2)+e%(3)+e%(4|
000130a0 29 2b 65 25 28 35 29 3a e7 4b 69 25 3c 30 8c f2 |)+e%(5):.Ki%<0..|
000130b0 53 28 30 2c 22 49 6e 76 65 73 74 6f 72 20 63 6f |S(0,"Investor co|
000130c0 6e 74 61 69 6e 73 20 75 6e 73 61 76 65 64 20 64 |ntains unsaved d|
000130d0 61 74 61 3a 20 61 72 65 20 79 6f 75 20 73 75 72 |ata: are you sur|
000130e0 65 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 71 75 |e you want to qu|
000130f0 69 74 3f 22 2c 22 51 75 69 74 22 29 8b f2 42 62 |it?","Quit")..Bb|
00013100 0d 4e f2 05 e1 0d 4e fc 38 dd f2 78 61 3a 4b 69 |.N....N.8..xa:Ki|
00013110 25 3d 65 25 28 30 29 2b 65 25 28 31 29 2b 65 25 |%=e%(0)+e%(1)+e%|
00013120 28 32 29 2b 65 25 28 33 29 2b 65 25 28 34 29 2b |(2)+e%(3)+e%(4)+|
00013130 65 25 28 35 29 3a e7 4b 69 25 3c 30 8c 0d 4f 06 |e%(5):.Ki%<0..O.|
00013140 71 21 71 25 3d 32 30 3a 71 25 21 31 32 3d 77 61 |q!q%=20:q%!12=wa|
00013150 25 3a c8 99 32 36 32 33 37 35 2c 31 39 2c 71 25 |%:..262375,19,q%|
00013160 3a f2 53 28 30 2c 22 49 6e 76 65 73 74 6f 72 20 |:.S(0,"Investor |
00013170 63 6f 6e 74 61 69 6e 73 20 75 6e 73 61 76 65 64 |contains unsaved|
00013180 20 64 61 74 61 3a 20 61 72 65 20 79 6f 75 20 73 | data: are you s|
00013190 75 72 65 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 |ure you want to |
000131a0 71 75 69 74 3f 22 2c 22 51 75 69 74 22 29 0d 4f |quit?","Quit").O|
000131b0 10 09 cc 3a f2 42 62 0d 4f 1a 05 cd 0d 4f 24 05 |...:.Bb.O....O$.|
000131c0 e1 0d 4f 2e 13 dd f2 57 62 3a e7 65 25 28 67 25 |..O....Wb:.e%(g%|
000131d0 29 3c 30 8c 0d 4f 38 76 f2 53 28 31 2c 22 54 68 |)<0..O8v.S(1,"Th|
000131e0 65 20 63 75 72 72 65 6e 74 20 70 6f 72 74 66 6f |e current portfo|
000131f0 6c 69 6f 20 63 6f 6e 74 61 69 6e 73 20 75 6e 73 |lio contains uns|
00013200 61 76 65 64 20 64 61 74 61 3a 20 61 72 65 20 79 |aved data: are y|
00013210 6f 75 20 73 75 72 65 20 79 6f 75 20 77 61 6e 74 |ou sure you want|
00013220 20 74 6f 20 63 6c 65 61 72 20 74 68 65 20 63 75 | to clear the cu|
00013230 72 72 65 6e 74 20 70 6f 72 74 66 6f 6c 69 6f 3f |rrent portfolio?|
00013240 22 2c 22 43 6c 65 61 72 22 29 0d 4f 42 0e cc 3a |","Clear").OB..:|
00013250 f2 42 28 33 2c 67 25 29 0d 4f 4c 05 cd 0d 4f 56 |.B(3,g%).OL...OV|
00013260 05 e1 0d 4f 60 13 dd f2 58 62 3a e7 65 25 28 67 |...O`...Xb:.e%(g|
00013270 25 29 3c 30 8c 0d 4f 6a 78 f2 53 28 32 2c 22 54 |%)<0..Ojx.S(2,"T|
00013280 68 65 20 63 75 72 72 65 6e 74 20 70 6f 72 74 66 |he current portf|
00013290 6f 6c 69 6f 20 63 6f 6e 74 61 69 6e 73 20 75 6e |olio contains un|
000132a0 73 61 76 65 64 20 64 61 74 61 3a 20 61 72 65 20 |saved data: are |
000132b0 79 6f 75 20 73 75 72 65 20 79 6f 75 20 77 61 6e |you sure you wan|
000132c0 74 20 74 6f 20 64 65 6c 65 74 65 20 74 68 65 20 |t to delete the |
000132d0 63 75 72 72 65 6e 74 20 70 6f 72 74 66 6f 6c 69 |current portfoli|
000132e0 6f 3f 22 2c 22 44 65 6c 65 74 65 22 29 0d 4f 74 |o?","Delete").Ot|
000132f0 09 cc 3a f2 43 62 0d 4f 7e 05 cd 0d 4f 88 05 e1 |..:.Cb.O~...O...|
00013300 0d 4f 92 70 dd f2 53 28 4c 69 25 2c 66 61 24 2c |.O.p..S(Li%,fa$,|
00013310 67 61 24 29 3a 78 65 25 3d a3 3a 77 65 25 3d 4c |ga$):xe%=.:we%=L|
00013320 69 25 3a f2 66 28 31 34 29 3a 24 a4 74 28 31 34 |i%:.f(14):$.t(14|
00013330 2c 31 29 3d 66 61 24 3a 24 a4 74 28 31 34 2c 30 |,1)=fa$:$.t(14,0|
00013340 29 3d 67 61 24 3a c8 99 32 36 32 33 35 36 2c 2c |)=ga$:..262356,,|
00013350 61 25 28 31 34 29 2c 75 61 25 2a 30 2e 35 2d 33 |a%(14),ua%*0.5-3|
00013360 36 39 2c 74 61 25 2a 30 2e 35 2b 31 33 34 3a e1 |69,ta%*0.5+134:.|
00013370 0d 4f 9c b5 dd f2 54 63 3a f2 68 3a 78 65 25 3d |.O....Tc:.h:xe%=|
00013380 a3 3a f2 66 28 34 33 29 3a 21 47 25 3d 61 25 28 |.:.f(43):!G%=a%(|
00013390 34 33 29 3a 24 a4 74 28 34 33 2c 30 29 3d 22 49 |43):$.t(43,0)="I|
000133a0 6e 76 65 73 74 6f 72 3a 20 70 72 69 6e 74 69 6e |nvestor: printin|
000133b0 67 20 70 61 67 65 20 31 20 28 43 6f 70 79 20 31 |g page 1 (Copy 1|
000133c0 29 22 3a c8 99 32 36 32 33 34 37 2c 2c 47 25 3a |)":..262347,,G%:|
000133d0 47 25 21 34 3d 30 2e 35 2a 28 75 61 25 2d a4 47 |G%!4=0.5*(ua%-.G|
000133e0 29 3a 47 25 21 38 3d 30 2e 35 2a 28 74 61 25 2d |):G%!8=0.5*(ta%-|
000133f0 a4 48 29 3a 47 25 21 31 32 3d 47 25 21 34 2b a4 |.H):G%!12=G%!4+.|
00013400 47 3a 47 25 21 31 36 3d 47 25 21 38 2b a4 48 3a |G:G%!16=G%!8+.H:|
00013410 e7 47 25 21 33 32 80 36 35 35 33 36 8c 47 25 21 |.G%!32.65536.G%!|
00013420 32 38 3d 2d 31 0d 4f a6 12 c8 99 32 36 32 33 34 |28=-1.O....26234|
00013430 31 2c 2c 47 25 3a e1 0d 4f b0 2d dd a4 47 3a 21 |1,,G%:..O.-..G:!|
00013440 71 25 3d 61 25 28 34 33 29 3a c8 99 32 36 32 33 |q%=a%(43):..2623|
00013450 34 37 2c 2c 71 25 3a 3d 28 71 25 21 31 32 2d 71 |47,,q%:=(q%!12-q|
00013460 25 21 34 29 0d 4f ba 2d dd a4 48 3a 21 71 25 3d |%!4).O.-..H:!q%=|
00013470 61 25 28 34 33 29 3a c8 99 32 36 32 33 34 37 2c |a%(43):..262347,|
00013480 2c 71 25 3a 3d 28 71 25 21 31 36 2d 71 25 21 38 |,q%:=(q%!16-q%!8|
00013490 29 0d 4f c4 2a dd f2 5a 62 3a c8 99 35 32 34 36 |).O.*..Zb:..5246|
000134a0 30 38 b8 2c 2c 2c 2c 5a 24 3a 6a 64 25 3d 67 25 |08.,,,,Z$:jd%=g%|
000134b0 3a e7 61 25 28 31 36 29 3d 30 8c 0d 4f ce 1a f2 |:.a%(16)=0..O...|
000134c0 6c 28 30 2c 31 36 29 3a f2 66 28 31 35 29 3a c8 |l(0,16):.f(15):.|
000134d0 8e 5a 64 25 ca 0d 4f d8 13 c9 30 3a f2 65 28 31 |.Zd%..O...0:.e(1|
000134e0 35 2c 33 29 3a f2 67 62 0d 4f e2 13 c9 31 3a f2 |5,3):.gb.O...1:.|
000134f0 65 28 31 35 2c 37 29 3a f2 67 62 0d 4f ec 05 cb |e(15,7):.gb.O...|
00013500 0d 4f f6 6b 62 65 25 3d 64 25 28 67 25 29 83 31 |.O.kbe%=d%(g%).1|
00013510 32 3a 61 65 25 3d 64 25 28 67 25 29 81 31 32 3a |2:ae%=d%(g%).12:|
00013520 f2 69 62 28 31 32 29 3a f2 69 62 28 31 36 29 3a |.ib(12):.ib(16):|
00013530 f2 65 28 31 35 2c 32 32 2b 28 33 2a 6f 64 25 29 |.e(15,22+(3*od%)|
00013540 29 3a 24 a4 74 28 31 35 2c 33 34 29 3d a4 4e 3a |):$.t(15,34)=.N:|
00013550 21 71 25 3d 61 25 28 31 36 29 3a c8 99 32 36 32 |!q%=a%(16):..262|
00013560 33 34 37 2c 2c 71 25 3a f2 6e 61 0d 50 00 12 cc |347,,q%:.na.P...|
00013570 3a f2 6c 28 30 2c 31 36 29 3a f2 6e 61 0d 50 0a |:.l(0,16):.na.P.|
00013580 05 cd 0d 50 14 05 e1 0d 50 1e 1b dd a4 4e 3a c8 |...P....P....N:.|
00013590 99 35 32 34 36 30 38 b8 2c 2c 2c 2c 5a 24 3a 3d |.524608.,,,,Z$:=|
000135a0 5a 24 0d 50 28 85 dd f2 55 63 28 68 61 24 2c 4d |Z$.P(...Uc(ha$,M|
000135b0 69 25 2c 4e 69 25 29 3a c8 99 35 32 34 36 31 37 |i%,Ni%):..524617|
000135c0 2c 4d 69 25 3a c8 99 35 32 34 36 31 33 2c 4e 69 |,Mi%:..524613,Ni|
000135d0 25 3a d9 23 4d 69 25 3a c8 99 32 36 33 38 37 33 |%:.#Mi%:..263873|
000135e0 3a 24 28 64 61 25 2b 34 29 3d 68 61 24 2b bd 28 |:$(da%+4)=ha$+.(|
000135f0 30 29 3a c8 99 32 36 32 33 36 37 2c 64 61 25 2c |0):..262367,da%,|
00013600 31 2c 22 49 6e 76 65 73 74 6f 72 22 b8 2c 72 67 |1,"Investor".,rg|
00013610 25 3a 65 62 25 3d 4f 69 25 3a 6c 61 25 3d a3 3a |%:eb%=Oi%:la%=.:|
00013620 69 64 25 3d a3 3a e1 0d 50 32 d4 dd f2 56 63 28 |id%=.:..P2...Vc(|
00013630 4c 63 25 2c 50 69 25 29 3a ea 78 25 2c 79 25 3a |Lc%,Pi%):.x%,y%:|
00013640 21 71 25 3d 61 25 28 31 37 29 3a f2 55 61 28 71 |!q%=a%(17):.Ua(q|
00013650 25 29 3a 6a 25 3d 30 3a 45 25 3d 30 3a 51 69 25 |%):j%=0:E%=0:Qi%|
00013660 3d 30 3a 52 69 25 3d 31 30 30 3a 53 69 25 3d 31 |=0:Ri%=100:Si%=1|
00013670 30 30 3a 54 69 25 3d 30 3a 73 61 25 3d 31 3a 70 |00:Ti%=0:sa%=1:p|
00013680 61 25 3d 51 68 25 3a c8 99 35 32 34 36 31 31 b8 |a%=Qh%:..524611.|
00013690 2c 2c 2c 55 69 25 2c 56 69 25 2c 57 69 25 2c 58 |,,,Ui%,Vi%,Wi%,X|
000136a0 69 25 3a 78 25 3d 57 69 25 2d 55 69 25 3a 55 69 |i%:x%=Wi%-Ui%:Ui|
000136b0 25 2b 3d 78 25 2a 28 51 69 25 2a 30 2e 30 31 29 |%+=x%*(Qi%*0.01)|
000136c0 3a 57 69 25 3d 55 69 25 2b 78 25 2a 28 52 69 25 |:Wi%=Ui%+x%*(Ri%|
000136d0 2a 30 2e 30 31 29 3a 4f 61 3d 28 28 57 69 25 2d |*0.01):Oa=((Wi%-|
000136e0 55 69 25 29 2a 30 2e 30 30 32 35 29 2f 4c 63 25 |Ui%)*0.0025)/Lc%|
000136f0 3a 79 25 3d 58 69 25 2d 56 69 25 0d 50 3c 48 58 |:y%=Xi%-Vi%.P<HX|
00013700 69 25 2d 3d 79 25 2a 28 54 69 25 2a 30 2e 30 31 |i%-=y%*(Ti%*0.01|
00013710 29 3a 56 69 25 3d 58 69 25 2d 79 25 2a 28 53 69 |):Vi%=Xi%-y%*(Si|
00013720 25 2a 30 2e 30 31 29 3a 50 61 3d 28 28 58 69 25 |%*0.01):Pa=((Xi%|
00013730 2d 56 69 25 29 2a 30 2e 30 30 32 35 29 2f 50 69 |-Vi%)*0.0025)/Pi|
00013740 25 3a e1 0d 50 46 5f dd f2 68 63 3a ea 4c 62 25 |%:..PF_..hc:.Lb%|
00013750 2c 4c 63 25 2c 50 69 25 3a 4c 62 25 3d 61 25 28 |,Lc%,Pi%:Lb%=a%(|
00013760 31 37 29 3a 6e 61 25 3d 31 3a 6d 61 25 3d 60 64 |17):na%=1:ma%=`d|
00013770 25 3a 6f 61 25 3d 31 3a 4c 63 25 3d 31 35 34 30 |%:oa%=1:Lc%=1540|
00013780 3a 50 69 25 3d 32 31 34 30 3a 6c 61 25 3d b9 3a |:Pi%=2140:la%=.:|
00013790 f2 54 63 3a f2 56 63 28 4c 63 25 2c 50 69 25 29 |.Tc:.Vc(Lc%,Pi%)|
000137a0 3a e1 0d 50 50 9f dd f2 6d 61 28 59 69 25 29 3a |:..PP...ma(Yi%):|
000137b0 ea 71 25 2c 4e 62 25 2c 4e 69 25 2c 4c 62 25 3a |.q%,Nb%,Ni%,Lb%:|
000137c0 ea 85 3a 21 71 25 3d 61 25 28 31 37 29 3a f2 55 |..:!q%=a%(17):.U|
000137d0 61 28 71 25 29 3a 6a 25 3d 30 3a 45 25 3d 30 3a |a(q%):j%=0:E%=0:|
000137e0 69 64 25 3d b9 3a 65 64 25 3d b9 3a c8 99 32 36 |id%=.:ed%=.:..26|
000137f0 33 38 37 32 3a 4d 69 25 3d ae 28 22 70 72 69 6e |3872:Mi%=.("prin|
00013800 74 65 72 3a 22 29 3a c8 99 35 32 34 36 31 33 2c |ter:"):..524613,|
00013810 4d 69 25 2c 22 49 6e 76 65 73 74 6f 72 22 b8 4e |Mi%,"Investor".N|
00013820 69 25 3a ee 85 ea 3a f2 55 63 28 f6 24 2c 4d 69 |i%:...:.Uc(.$,Mi|
00013830 25 2c 4e 69 25 29 3a 6e 61 25 3d 31 30 30 30 3a |%,Ni%):na%=1000:|
00013840 e1 0d 50 5a df 71 25 3d a4 4f 28 31 37 29 3a 71 |..PZ.q%=.O(17):q|
00013850 25 21 34 34 3d 30 3a 71 25 21 34 38 3d 2d 28 32 |%!44=0:q%!48=-(2|
00013860 31 34 30 2a 59 69 25 29 3a 71 25 21 35 32 3d 31 |140*Yi%):q%!52=1|
00013870 35 34 30 3a 71 25 21 35 36 3d 32 31 34 30 3a 71 |540:q%!56=2140:q|
00013880 25 21 36 30 3d 4f 61 2a 28 31 3c 3c 31 36 29 3a |%!60=Oa*(1<<16):|
00013890 71 25 21 36 34 3d 30 3a 71 25 21 36 38 3d 30 3a |q%!64=0:q%!68=0:|
000138a0 71 25 21 37 32 3d 50 61 2a 28 31 3c 3c 31 36 29 |q%!72=Pa*(1<<16)|
000138b0 3a 71 25 21 37 36 3d 55 69 25 3a 71 25 21 38 30 |:q%!76=Ui%:q%!80|
000138c0 3d 56 69 25 3a c8 99 35 32 34 36 31 39 2c 21 71 |=Vi%:..524619,!q|
000138d0 25 2c 71 25 2b 34 34 2c 71 25 2b 36 30 2c 71 25 |%,q%+44,q%+60,q%|
000138e0 2b 37 36 2c 2d 31 3a c8 99 35 32 34 36 32 30 2c |+76,-1:..524620,|
000138f0 31 2c 71 25 2b 34 2c 30 2c 30 b8 4e 62 25 2c 2c |1,q%+4,0,0.Nb%,,|
00013900 4c 62 25 3a c8 95 4e 62 25 3a 71 25 21 32 30 3d |Lb%:..Nb%:q%!20=|
00013910 71 25 21 34 3a 71 25 21 32 34 3d 71 25 21 31 36 |q%!4:q%!24=q%!16|
00013920 0d 50 64 98 71 25 21 32 38 3d 71 25 21 34 3a 71 |.Pd.q%!28=q%!4:q|
00013930 25 21 33 32 3d 71 25 21 38 3a 71 25 21 33 36 3d |%!32=q%!8:q%!36=|
00013940 71 25 21 31 32 3a 71 25 21 34 30 3d 71 25 21 31 |q%!12:q%!40=q%!1|
00013950 36 3a 4f 69 25 3d 65 62 25 3a 65 62 25 3d 31 30 |6:Oi%=eb%:eb%=10|
00013960 30 3a f2 5f 61 3a 65 62 25 3d 4f 69 25 3a c8 99 |0:._a:eb%=Oi%:..|
00013970 35 32 34 36 32 31 2c 2c 71 25 2b 34 b8 4e 62 25 |524621,,q%+4.Nb%|
00013980 2c 2c 4c 62 25 3a ce 3a c8 99 35 32 34 36 31 36 |,,Lb%:.:..524616|
00013990 2c 4d 69 25 3a c8 99 35 32 34 36 31 33 2c 4e 69 |,Mi%:..524613,Ni|
000139a0 25 3a d9 23 4d 69 25 3a 69 64 25 3d a3 3a c8 99 |%:.#Mi%:id%=.:..|
000139b0 32 36 33 38 37 33 3a e1 0d 50 6e 27 dd a4 4f 28 |263873:..Pn'..O(|
000139c0 6e 25 29 3a 21 47 25 3d 61 25 28 6e 25 29 3a c8 |n%):!G%=a%(n%):.|
000139d0 99 32 36 32 33 34 38 2c 2c 47 25 3a 3d 47 25 0d |.262348,,G%:=G%.|
000139e0 50 78 25 dd a4 62 28 61 25 2c 62 25 2c 63 25 29 |Px%..b(a%,b%,c%)|
000139f0 3a 3d 24 28 73 25 28 63 25 2c 62 25 29 2b 33 36 |:=$(s%(c%,b%)+36|
00013a00 2a 61 25 29 0d 50 82 28 dd a4 61 28 61 25 2c 62 |*a%).P.(..a(a%,b|
00013a10 25 2c 63 25 29 3a 3d 21 28 73 25 28 63 25 2c 62 |%,c%):=!(s%(c%,b|
00013a20 25 29 2b 33 36 2a 61 25 2b 32 34 29 0d 50 8c 2e |%)+36*a%+24).P..|
00013a30 dd a4 64 28 61 25 2c 62 25 2c 63 25 29 3a 3d 21 |..d(a%,b%,c%):=!|
00013a40 28 73 25 28 63 25 2c 62 25 29 2b 33 36 2a 61 25 |(s%(c%,b%)+36*a%|
00013a50 2b 32 38 29 2a 30 2e 30 30 31 0d 50 96 2e dd a4 |+28)*0.001.P....|
00013a60 63 28 61 25 2c 62 25 2c 63 25 29 3a 3d 21 28 73 |c(a%,b%,c%):=!(s|
00013a70 25 28 63 25 2c 62 25 29 2b 33 36 2a 61 25 2b 33 |%(c%,b%)+36*a%+3|
00013a80 32 29 2a 30 2e 30 30 31 0d 50 a0 2c dd f2 74 28 |2)*0.001.P.,..t(|
00013a90 61 25 2c 62 25 2c 63 25 2c 64 24 29 3a 24 28 73 |a%,b%,c%,d$):$(s|
00013aa0 25 28 63 25 2c 62 25 29 2b 33 36 2a 61 25 29 3d |%(c%,b%)+36*a%)=|
00013ab0 64 24 3a e1 0d 50 aa 2f dd f2 7a 28 61 25 2c 62 |d$:..P./..z(a%,b|
00013ac0 25 2c 63 25 2c 64 25 29 3a 21 28 73 25 28 63 25 |%,c%,d%):!(s%(c%|
00013ad0 2c 62 25 29 2b 33 36 2a 61 25 2b 32 34 29 3d 64 |,b%)+36*a%+24)=d|
00013ae0 25 3a e1 0d 50 b4 32 dd f2 41 28 61 25 2c 62 25 |%:..P.2..A(a%,b%|
00013af0 2c 63 25 2c 64 29 3a 21 28 73 25 28 63 25 2c 62 |,c%,d):!(s%(c%,b|
00013b00 25 29 2b 33 36 2a 61 25 2b 32 38 29 3d 64 2a 31 |%)+36*a%+28)=d*1|
00013b10 30 30 30 3a e1 0d 50 be 32 dd f2 73 28 61 25 2c |000:..P.2..s(a%,|
00013b20 62 25 2c 63 25 2c 64 29 3a 21 28 73 25 28 63 25 |b%,c%,d):!(s%(c%|
00013b30 2c 62 25 29 2b 33 36 2a 61 25 2b 33 32 29 3d 64 |,b%)+36*a%+32)=d|
00013b40 2a 31 30 30 30 3a e1 0d ff |*1000:...|
00013b49 
.