LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)*'gto.tables%(280):"GTO.RUNTIME":INIT' ON ERR GOTO 20000v'BBA&=-1:BBI$=" ":BBL&=0:BCD%=10:BCFS=0.0:BCJ$="":BCM$=" ":BCP%=22:BDB%=BCP%-2:BDD%=BCD%+6:BDFS=0 ' 80"*"' "*",78X,"*"' 3#.,$$15&.##,6#.### ' 34"="$' "N * !+GTO.RUNTIMEU * !CREPTFILE Z * ^9WORKFILE [T * +PLIST\E * : DISKNAME.DAT]AAGAIN.ON.SALE.2u' (AVG.CALC - ) !%HELLO  ) !*LOAN.AMORT $# ) !!)LOAN.SALE 7! ) !*(LOAN.RPT I  * !.QUIT S >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LUMBER OF DATA POINTS = ",11#)' " TOTAL AMOUNT = ",$$10&.##+' "WEIGHTED AVERAGE RATE = ",11#.###,4/ ' 19A,20A' 19A,$$10&.##' 19A,11#.### 'mSG$(15)#'mSG$(0)="DISPLAY THE WORK FILE"!'mSG$(1)="CLEAR THE WORK FILE" 'mSG$(2)="AD > FOR SCREEN, P FOR PRINTER ";BEE$'BEE$)=0G:_0'#2,".PRINTER"'#2 '12)'"'#8,0;BGIS,BGMS,BHA$,BHDS,BHH& 'BKOS=0'ž#810236'BKOS=BKOS+1'#8,BKOS+1;BLC&,BLKS'BLC&<0G:6'BLC&)=0BKKS=1G:4'BLC&'"AVG.CALC"''' 'BKCS=0 '10208 '=1:=24*'"SPACE TO CONTINUE - RETURN TO QUIT";'BKCS=0G:i 5'BKCS=1'BGAS=1G:]1:ەG:54 'BKCS=1'()=13BKCS=2'''''=23:=1:BKGS=0:BKKS=06'"INPUT 1BJP$=BEE$,BJN%-1)#'BJP$=BJP$+BEE$+"00",BJN%+1,2)'BFF&=BJP$)'''''BGES10162,10185,10194''''()-3010194,10166,10173''' '=1:=23'"VOLUME NOT 'ŝ); 'G: 7'BJJS=BEE$)'BJJS=0G: 7'BJJS>1G:Z 2'BEE$="":G:q 3'BEE$=BEE$,BJJS-1) '=-1'2'BELS=BEE$))'BJJS=BEE$):BJN%=BEE$,"."):BJP' 'BEE$=""'=-1:BJFS=50:=48:"->"; 'BJBS=0 '10129'BJBS=0G:B 5'BEHS=BEE$):BJBS=0 '=+1:=1''=13G: 9''(=>48<=57)=45=46G: 5'=8G: 8'BDJS=1G: 5 '7) 'G: 7'BEE$=BEE$+ŝ)BIFS,BIJS,BINS:œ10561 v'G:6 w'BGAS=1x'#9,0;BCJ$,BCJ$,10.,30.,.25Dy'#9,1;BCJ$,BCJ$,-1.,BBL&,BCFS,BBL&,BCJ$,BCJ$,BBL&,BCFS,BBL&,BCFS z'BGES=3{'|'}'~' '10115'BJBS=0G:2 'BJBS=0' 'BJBS=1 'BEB$=ŝ)'''0#8,"WORKFILE"k'ž#810095"l'#8,0;BGIS,BGMS,BHA$,BHDS,BHH& m'œ10561 n'G:~6(o'#8,0;0.0,0.0,BBI$,0.0,BBL&,BBA&,0.0p'BGES=1:œ10158q'BGES>0"REPTFILE",,94 r'BGES=2:œ10158s'BGES>0#9,"REPTFILE"t'ž#910104+u'#9,0;BHP$,BIC$,=BDD% S'G:9T'=7U'=BDB%:"->"; V'10061W'X'Y'Z' ['BFD%=-7\']'^'_'`'fini:"HELLO"a'b'c'd'BFN$="REPTFILE" e'BGAS=1f'BGES=1:œ10158g'BGES>0"WORKFILE",,14 h'œ10561i'BGES=2:œ10158j'BGES>G'=7H'=BDB%:"->";I'BFD%<0G:7GJ'BFD%+110211,10244,10249,10273,10059,10328,10338,10524,10059,10077 K'BFD%=-1 L'G:4M'=BDB%:" ";N'()=11G:6O'()=13G:>3P'()=3fini:!Q'=+1:>BDD%G:8:ەG:9R'=-1:<714<9'"CALCULATE AVERAGES AND MAINTAIN GAIN/LOSS REPORT DATA":'10003;; ;'=4:=13><'"UP/DOWN ARROW TO MOVE POINTER - RETURN TO SELECT OPTION"='>'?' @'=+1A'BDNS=0BCD%-1#B'=+1:=BCP%:mSG$(BDNS);:BDNSC'D'E' F'10061========"-''mSG$(9)="QUIT - RETURN TO TOP LEVEL MENU"(')'*' +'GS:z,'-'.'(/'BDJS=1:BDNS=0:BEB$="":BEE$="":BEHS=00'BELS=0:BEPS=0:BFD%=-1 1'BFF&=02'3'4'5':10003;; 6'BDNS=120:10004;;:BDNS7'10003;; 8'=2:=D DATA POINTS"'!'mSG$(3)="DELETE/CHANGE DATA POINTS"5"'mSG$(4)="======================================="##'mSG$(5)="CLEAR THE REPORT FILE""$'mSG$(6)="EDIT THE REPORT FILE"%%'mSG$(7)="REPORT FILE MAINTENANCE"5&'mSG$(8)="===============================>0G:60-'BKKS=1:"............":BKGS=BKGS+1:G:4 '10005;BKOS,-2,BLC&),BLKS'BKKS=0:BKGS=BKGS+17'BEE$)=0BKGS>10(BKGS/10-BKGS/10))=0GS:'BEB$="Q"BEB$="q"G:]1'=27G:]1 'G:4 '10006; '10005;BGIS,-2,BHH&),BGMS'BEE$)>0G:41 'GS: (G:]1(#0(#2 (G:]1(((((#8,0;0.0,0.0,BBI$,BBL&,0.0,BBA&,0.0 (G:]1 ( ( ( (" (#8,0;BGIS,BGMS,BHA$,BHDS,BHH&(10007;BGIS(10008;-2,BHH&)(10009;BGMS (GS=1('(10012;"PERCENT SOLD = ",BOMS(BDJS>0GS:(BEHS>0BOMS=BELS:CBGS=1((CBK&=100*BOMS)(BPA&=(BOE&*CBK&)/10000,(10011;"NET AMOUNT = ",-2,BPA&)('(10010;"DELIVERY DATE = ",BPI$(BDJS>0BDJS=1:S>0GS:(BEHS>0BNN$=BEE$,14)('(10012;"RATE = ",BOAS(BDJS>0BDJS=2:GS:(BELS<07):G:R2(BEHS>0BOAS=BELS:CBGS=1(,(10011;"GROSS AMOUNT = ",-2,BOE&)(BDJS>0GS:(BEHS>0BOE&=BFF&:CBPSH(#9,BEPS;BHP$,BNN$,BOAS,BOE&,BOMS,BPA&,BPI$,BPL$,BPO&,CAGS,CAK&,CBCS(BOAS<0G:w!6 (=9:=1 (CBGS=0('(10010;"CMTMNT NUMBER = ",BHP$(BDJS>0GS:(BEHS>0BHP$=BEE$,4)('(10010;"BUYER NAME = ",BNN$(BDJ= ",BIJS(BDJS>0GS:(BEHS>0BIJS=BELS('(10012;"SERVICE RATE (%) = ",BINS(BDJS>0GS:(BEHS>0BINS=BELS((BDJS=0G:50(BDJS=0:#9,0;BIC$,BNK$,BIFS,BIJS,BINS:G:9(BEPS=BEPS+1 (=7:=1("LINE NUMBER = ",BE0GS:}(BEHS>0BIC$=BEE$,20)~('(10010;"EFFECTIVE DATE = ",BNK$(BDJS>0GS:(BEHS>0BNK$=BEE$,14)('(10012;"LIFE (YRS) = ",BIFS(BDJS>0BDJS=2:GS:(BEHS>0BIFS=BELS('(10012;"TERM (YRS) ,0;BIC$,BNK$ r(BGAS=1 s(G:9 t(#9,0;BCJ$,BCJ$,10.,30.,.250Du(#9,1;BCJ$,BCJ$,-1.,BBL&,BCFS,BBL&,BCJ$,BCJ$,BBL&,BCFS,BBL&,BCFSv(ž#910500w(BEPS=0:BDJS=0"x(#9,0;BIC$,BNK$,BIFS,BIJS,BINSy(z('{(10010;"REPORT NAME = ",BIC$|(BDJS>CFS a(G:]1b(c(d(e(f(BFN$="REPTFILE"1g("ENTER FILENAME (DEFAULTS TO REPTFILE)",BEE$h(BEE$)=0G:2 i(BFN$=BEE$j(#9 k(BGAS=0l(BGES=1:œ10158m(BGES>0BFN$,,94n(BGES=2:œ10158o(BGES>0#9,BFN$p(ž#910356q(#9MS,BHA$V(#8:#8,"WORKFILE" W(G:]1X(Y(BGAS=0G:]1Z( [(=23:=1/\("DESTROY THE CONTENTS OF ",BFN$," - Y/N "; ](GS:^(BEB$<>"Y"G:]1 _(#9,0;BCJ$,BCJ$,10.,30.,.250D`(#9,1;BCJ$,BCJ$,-1.,BBL&,BCFS,BBL&,BCJ$,BCJ$,BBL&,BCFS,BBL&,B+1:=1,I(BNGS=2:BEPS=2:"COMPRESSING WORKFILE .";J(#8,BEPS;BLC&,BLKS K(".";L(BLC&<>0G:}9M(BEPS=BEPS+1 N(G:14O(#8,BNGS;BLC&,BLKS P("^";Q(BLC&<0G:4R(BNGS=BNGS+1:BEPS=BEPS+1 S(G:14T(#8,0;BGIS,BGMS,BHA$U(#8,0;BNGS-2,BG>(BMK&=0.:BNCS=0.:BLOS=1+?(BHDS=BHDS-(BLC&)*BLKS)+(BMK&)*BNCS)@(BHH&=BHH&-BLC&+BMK&A(BGMS=BHDS/BHH&)B(#8,BMGS+1;BMK&,BNCS"C(#8,0;BGIS,BGMS,BBI$,BHDS,BHH&D(=+1:"CONTINUE? Y/N " E(GS:F(BEB$="Y"G:w7G(BLOS=0G:]1 H(=,$$10&.##,20X,/,12X," RATE = ",11#.###,2/3(10290;-2,BLC&),BLKS4(BMCS<0G:9 5(BDJS=26("ENTER NEW AMOUNT ":GS: 7(BMK&=BFF&8("ENTER NEW RATE ":GS: 9(BNCS=BELS :(G:3;(=+1:" DELETE? Y/N " <(GS:=(BEB$<>"Y"G:8TE ";BMCS +(=7:=1,(BMGS=BMCS)-(BMGS>0BMGS<=BGISG:i7&.(7),"INVALID LINE NUMBER":G:2/(#8,BMGS+1;BLC&,BLKSD0(" " 1(=7:=1Y2( "CURRENT DATA IS .....",/,12X,"AMOUNT = "*BLKS)(BGMS=BHDS/BHH&)"(#8,0;BGIS,BGMS,BBI$,BHDS,BHH&(#8,BGIS+1;BLC&,BLKS (G:2!("(#( $(BLOS=0"%(#8,0;BGIS,BGMS,BHA$,BHDS,BHH&&('(10007;BGIS((10008;-2,BHH&))(10009;BGMS3*("ENTER LINE NUMBER (+)CHANGE (-)DELEBDJS=20("ENTER AMOUNT (NEG AMT TERMINATES) ":GS: (BLC&=BFF&(BLC&>0G:4(#8,BGIS+2;BBA&,0.(#8:#8,"WORKFILE" (G:]10(" ENTER INTEREST RATE ":GS: (BLKS=BELS(BGIS=BGIS+1(BHH&=BHH&+BLC&(BHDS=BHDS+(BLC&)GS:"(BEHS>0BPI$=BEE$,6):CBGS=1('(10010;"FUNDING DATE = ",BPL$(BDJS>0GS:"(BEHS>0BPL$=BEE$,6):CBGS=1(,(10011;"TOTAL FEES = ",-2,BPO&)(BDJS>0BDJS=2:GS:(BEHS>0BPO&=BFF&:CBGS=1 (BPO&<20BPO&=BPA&*BFF&/100('(10012;"BREAK EVEN RATE = ",CAGS(-(10011;"GAIN OR (-)LOSS = ",-2,CAK&)('(10012;"DELIVERED YIELD = ",CBCS(BDJS>0GS:(BEHS>0CBCS=BELS:CBGS=1(!(CBGS=1CAGS=0:CAK&=0:CBGS=0(BDJS=0G: œ1050KNPROGS%=5:MSGHPOS%=22:PTRHPOS%=MSGHPOS%-2:MAXVPOS%=2*NPROGS%+4:FLAG%=-1 80"*" "*",78X,"*"dMSG$(15),NAME$(15)2iMSG$(0)="CALCULATE AVERAGE/UPDATE REPORT FILE"nNAME$(0)="AVG.CALC"-pMSG$(1)="GENERATE LOANS GAIN/LOSS REPORT"O CHANGE",BEE$9)BEE$)=010529 :)œ10559$;)CCG$=BEE$:"ENTER NEW NAME",BEE$<)BEE$)=010529=)CCG$,BEE$ >)10529 ?)10547@)rA)=24:=1:7);31);:=1:18);"Error #";;" in Line #";;". Press RETURN to continue..";17);:CCJ$:104BEB$="R"BEB$="r"10548 ))10529*)+),) -)=+1(.)"ENTER NAME OF FILE TO DELETE",BEE$/)BEE$)=010529 0)œ10547 1)BEE$ 2)1052933):"INVALID FILE NAME or FILE IS IN USE":105304)5)6) 7)=+1$8)"ENTER FILENAME TO CHANGE",BEE$9)BEE$)=0G:o'9 :)œ10559$;)CCG$=BEE$:"ENTER NEW NAME",BEE$<)BEE$)=0G:o'9=)CCG$,BEE$ >)G:o'9 ?)G:(7@)rA)=24:=1:7);31);:=1:18);"Error #";;" in Line #";;". Press RETURN to continue..";17);:CCJ$:G:8()BEB$="R"BEB$="r"G:(8 ))G:o'9*)+),) -)=+1(.)"ENTER NAME OF FILE TO DELETE",BEE$/)BEE$)=0G:o'9 0)œ10547 1)BEE$ 2)G:o'933):"INVALID FILE NAME or FILE IS IN USE":G:t'04)5)6) 7)=+1$8)"ENTER FILENAME T)BOE&=BHH&)CBK&=100*BOMS))BPA&=(BOE&*CBK&)/10000 )G:!3))))BGAS=1#9:BGAS=0 )#8!)") #)=+1D$)"RETURN = QUIT R = RENAME A FILE D = DELETE A FILE" %)GS:&)=13G:54')BEB$="D"BEB$="d"G:)(BL&,BCJ$,BCJ$,BBL&,BCFS,BBL&,BCFS (G:5()) )BDJS=1 )G:\0))) )BEPS=0 )G:6 ) )#9 )#9,BFN$ )G:]1 ))) )BEPS=0 )BDJS=1 )G:0)))")#8,0;BGIS,BGMS,BHA$,BHDS,BHH& )CBCS=BGMS ,BEPS+1;BHP$,BNN$,BOAS,BOE&,BOMS,BPA&,BPI$,BPL$,BPO&,CAGS,CAK&,CBCS(BEPS=CCCSG:%2(BEPS=BEPS-1(BEPS=0G:$6H(#9,BEPS;BHP$,BNN$,BOAS,BOE&,BOMS,BPA&,BPI$,BPL$,BPO&,CAGS,CAK&,CBCS (G:$6 (BDJS=1J(#9,BEPS+1;BCJ$,BCJ$,BCFS,BBL&,BCFS,B#9,BEPS;BHP$,BNN$,BOAS,BOE&,BOMS,BPA&,BPI$,BPL$,BPO&,CAGS,CAK&,CBCS(BEPS=BEPS+1(BOAS<>-1G:#4 (BEPS=CCCS (G:6((((BEPS=BEPS+1H(#9,BEPS;BHP$,BNN$,BOAS,BOE&,BOMS,BPA&,BPI$,BPL$,BPO&,CAGS,CAK&,CBCS(BOAS<>-1G:$3J(#9G:p&5(BEB$="D"BEB$="d"G:#1(BEB$="A"BEB$="a"G:}$0(BEB$="C"BEB$="c"G:*&5(BEB$="H"BEB$="h"G:&9(BEB$="W"BEB$="w"G:&5(((J(#9,BEPS+1;BHP$,BNN$,BOAS,BOE&,BOMS,BPA&,BPI$,BPL$,BPO&,CAGS,CAK&,CBCSH(=1("LINE NUMBER = ",BEPS; (=7:=20&("<-- THIS IS LAST ENTRY IN FILE"; (BDFS=1( (=23:=1U("RETURN=CONTINUE | C=CHANGE | A=ADD | D=DELETE | H=HEADING | W=WT AVG | Q=QUIT"; (GS: (CCCS=BEPS(=13G:5(BEB$="Q"BEB$="q"Y"9 (BDJS=0 (BEHS=0H(#9,BEPS;BHP$,BNN$,BOAS,BOE&,BOMS,BPA&,BPI$,BPL$,BPO&,CAGS,CAK&,CBCS(BEPS=BEPS-1 (G:1(((BDFS=0G:!3 (BDFS=0 (BEPS=06(=7:=16:" "; (G:5(BEPS=BEPS-1 (=7:rNAME$(1)="LOAN.RPT"$xMSG$(2)="GAIN/LOSS ON LOAN SALE"zNAME$(2)="LOAN.SALE",|MSG$(3)="LOAN AMORTIZATION CALCULATIONS"~NAME$(3)="LOAN.AMORT"!MSG$(4)="QUIT - EXIT PROGRAM"NAME$(4)="QUIT" :10;;X"* G A I N O N S A L !" "M'vALUE(8)=0N'pTYPE%(8)=2 O'G:z 2P'Q'R' S'=1:=1T'10002;;U'10006;BBE$;V'10002;;W'BBPS>0G:6 X'"*";Y'=06MZ'"UP/DOWN ARROW TO MOVE POINTER/ENTER DATA - RETURN TO STORE DATA VALUE";['" *";\''vALUE(5)=12C'pTYPE%(5)=30D'mSG$(6)="PRINT AMORTIZATION SCHEDULE "E'vALUE(6)=0F'pTYPE%(6)=30G'mSG$(7)="PRINTER SETUP (nnn1nnn2...nnn6) "H'vALUE(7)=0I'lint$(7)="027064"J'BCK$=27)+64)K'pTYPE%(7)=50L'mSG$(8)=" "8'vALUE(2)=09'lINT&(2)=0:'pTYPE%(2)=40;'mSG$(3)="INTEREST RATE (%/YR) "<'vALUE(3)=0='pTYPE%(3)=20>'mSG$(4)="TERM OF LOAN (YRS) "?'vALUE(4)=30@'pTYPE%(4)=30A'mSG$(5)="NUMBER OF PAYMENTS PER YEAR "B,".CONSOLE"0''mSG$(0)="PERFORM CALCULATIONS/QUIT PROGRAM "('vALUE(0)=0)'*'+','-'.'/'0'1'2'03'mSG$(1)="LOAN AMOUNT "4'vALUE(1)=05'lINT&(1)=06'pTYPE%(1)=407'mSG$(2)="PAYMENT T CALCULATE - PLEASE CHECK DATA VALUES"B 'eRRMSG$(3)="YEAR OR NUMBER OF FIRST PAYMENT PERIOD IS INVALID":!'BBE$=" LOAN AMORTIZATION PARAMETERS "#"'BBH%=17:BBJ%=BBH%-2:BBL%=BBA%+6!#'BBN%=-1:BBPS=0:BCD%=0:BCF$="" $'BCI%=49%'&'#1#%&'()*+,-./012345,16R,15X,"*" J'mSG$(16),vALUE(16),pTYPE%(16),vMSG$(5),eRRMSG$(3),lINT&(16),lint$(16)'BBA%=7:BBC%=13A'eRRMSG$(0)="PLEASE ZERO ONE PARAMETER OR INPUT STARTING YEAR"@'eRRMSG$(1)="ONLY ONE PARAMETER CAN BE ZERO FOR CALCULATIONS"<'eRRMSG$(2)="CANNO*'gto.tables%(252):"GTO.RUNTIME":INIT 'œ10456 ' 80"*" ' 80" "' "*",78X,"*"' 2X,"ERROR: ",70A' "*",15X,48A,15X,"*""' "*",15X,32A,$$12&.##,15X,"*""' "*",15X,32A,-11#.###,15X,"*"' "*",15X,32A,-15#,15X,"*"' "*",15X,32A% ===============================FLAG%=(-6)/2w=24:=1:7);31);:=1:18);"Error #";;" in Line #";;". Press RETURN to continue..";17);:g$:flag%=-1:500TRHPOS%:" ";(()=11900*()=131000/()=197()=229!4=+2:>MAXVPOS%910:ۺ920=-2:<6=MAXVPOS%920=6=PTRHPOS%:"->"; 800% ===============================% ==== RUN THE SELECTED PROG ====I=0NPROGS%-1!v=+2:=MSGHPOS%:MSG$(I);:I+===================================== + ==== MOVE PTR FOR MENU SELECTION ====+ ===================================== 800=6=PTRHPOS%:"->";!FLAG%<0760:NAME$(FLAG%) =PE b y P a i r S o f t w a r e *"; 10;;I=118:20;;:I 10;; 0=4:=13ED"UP/DOWN ARROW TO MOVE POINTER - RETURN TO SELECT PROGRAM":=-1N ====================X ==== PRINT MENU ====b ====================l10004;;]'=6^'BCN%=1BBA%/_'pTYPE%(BCN%)10080,10082,10084,10086,10088$`'10007;mSG$(BCN%),vALUE(BCN%); a'G:19$b'10008;mSG$(BCN%),vALUE(BCN%); c'G:19$d'10009;mSG$(BCN%),vALUE(BCN%); e'G:19)f'10007;mSG$(BCN%),-2,lINT&(BCN%)); g'G:19$h'10010;msg$(BCN%),lint$(BCN%); i'BCN%j'BBPS=010006;mSG$(0);k'BBPS>010004;;:G:5l'BCN%=20m'10004;; n'BCN%o'10002;; p'GS:q'Cr'=22:=1:29);:=23:=2:"Enter data -> ";18);" ";17);:s0,10324P(,Q(lINT&(1)=lINT&(2)*1.e10)/1.e10*BFCS)R(vALUE(1)=vALUE(2)/BFCS S(G:5T(U(vALUE(2)=vALUE(1)*BFCS,V(lINT&(2)=lINT&(1)*1.e10*BFCS)/1.e10) W(G:5X(Y(Z( [(BFKS=BFOS0\(BEE%=5BEKS=(vALUE(3)*vALUE(4))/(100*BGCS)]D(BDOS=BDOS+1 E(BEC%0F(BDOS=1BEE%10315,10315,10356,10363,10363G(BDOS=0G:a2:BCP%=1H(vALUE(6)>0G:1 I(BEGS=0 J(G:5 5K( L(BEKS=vALUE(3)/(vALUE(5)*100)%M(BEOS=(1+BEKS)^(vALUE(4)*vALUE(5))N(BFCS=BEKS*BEOS/(BEOS-1)O(BEE%1032G:Z8#-(10009;mSG$(BCN%),vALUE(BCN%) .(G:Z8(/(10007;mSG$(BCN%),-2,lINT&(BCN%)) 0(BCN% 1(10004; 2(10002;3(4(5(6(7(8(9(:(;(<(=(>(?( @(BDOS=0A(BEC%=15B(vALUE(BEC%)<>0G: 9 C(BEE%=BEC% (BBPS=0 (G:6((fini:"HELLO" (!("( #(10002;$(10006;BBE$ %(10002; &(10004;'(BCN%=1BBA%)((pTYPE%(BCN%)10281,10283,10285,10287#)(10007;mSG$(BCN%),vALUE(BCN%) *(G:Z8#+(10008;mSG$(BCN%),vALUE(BCN%) ,(";(()=13G:9 (()=8G:J3 (=+14 (>BDM%=2 (G:n5 (-18<2=BDM%:G:n5 (=-18 ("->"; (10246(((BBN%=1+(-4)/16(('(BBN%10263,10266,10271,10457,10457 (GS: (G: 3( (BBPS=1 (GS:  "'vMSG$(4)=" " 'G:6''''=22'BCN%=04'=16*BCN%+4'vMSG$(BCN%); 'BCN%''''' 'BBN%=-1 'GS:2 (10246(=2(=22 ("->";(BBN%<0G:4:ەG:2( (=-2 (" :3'''' 'BBPS=1'#2,".PRINTER"'#2 'GS:*'10),10)'#2''''' 'BDK%=3'BDM%=(BDK%-1)*16+2'vMSG$(0)="INPUT "'vMSG$(1)="PRINT "'vMSG$(2)="QUIT "'vMSG$(3)=" :G:I6 'BDF%>1BDH$=BCF$,BDF%-1)#'BDH$=BDH$+BCF$+"00",BDF%+1,2)'lINT&(BBN%)=BDH$) 'BCF$="" 'BCN%=BBN% 'BBN%=+1 'GS: '=BBN%-1 'GS: '=BBN%:BBN%=-1'>BBL%G: 5 '10129 'G: 7''' 'BBN%=-1 'GDBS:=15::ەGS::=BDBS:=15'BBN%<>BBA%+1G:I8 '" "; 'G:8%'ptype%(BBN%)=5lint$(BBN%)=BCF$0'BBN%=7GS: :BDF%=07);:=-1:G:`7'vALUE(BBN%)=BCF$)'BBN%>2G:`7'BDF%=BCF$,"."):BDH$="""'BDF%=0BDH$=BCF$+"00"CD%=BCD%-1:BCD%>0G:2 3'BCD%=0:BCF$="":G:G 4'BCF$=BCF$,BCD%)$'=-1:48<=57)(=45)(=46)G: 6'()=8G: 1'7);:G:z 6''BCD%=15G: 4'BCD%=BCD%+1'BCF$=BCF$+ŝ)'ŝ);:G:z 6''B'()=13G: 0: '()=3 'G:! 0'=BBJ%:" ";!'=+1:>BBL%G: 9:ەG: 0'=BBJ%:" ";'=-1:<6=BBL% 'G: 0'=6'=BBJ%:"->"; 'BCD%=0 'BCF$="" 'BDBS=0'BDBS=BBC%=22:=1:29);:ەGS::BBJ%=15'=BDBS:'G:+ 3$'10010;msg$(BCN%),lint$(BCN%);'''' '=23:=1'10005;eRRMSG$(BCP%); 'G:m5'' 'GS:4' 'BBN%=-1 '10129'=6'=BBJ%:"->";'BBN%<0G: 8:ەG: 4'()=10G:) 4:'()=11G:[ 6:'t'u'v'=1:=BCN%+5/w'pTYPE%(BCN%)10104,10106,10108,10110,10112$x'10007;mSG$(BCN%),vALUE(BCN%); y'G:+ 3$z'10008;mSG$(BCN%),vALUE(BCN%); {'G:+ 3$|'10009;mSG$(BCN%),vALUE(BCN%); }'G:+ 3)~'10007;mSG$(BCN%),-2,lINT&(BCN%)); (BEOS=(1+BEKS)^BGCS ^(BFOS=BGGS-BEKS*BEOS/(BEOS-1)_(BFOS)1G:4 e(BGOS=BEKSf(BEKS=BEKS*1.1 g(G:8 h(BDOS=BEKS4i(BEKS=BEKS-.5*(BFKS+BFOS)*(BEKS-BGOS)/(BFOS-BFKS) j(BGOS=BDOS k(G:8l(BGKS>1G:o2 m(BGOS=BGCSn(BGCS=BGCS*1.1 o(G:8 p(BDOS=BGCS4q(BGCS=BGCS-.5*(BFKS+BFOS)*(BGCS-BGOS)/(BFOS-BFKS) r(BGOS=BDOS s(G:8t(u(BGGS=vALUE(2)/vALUE(1)v(BGCS=vALUE(4)*vALUE(5689:;<=>?@ABCDEFG15X,"*"/' "*",15X,32A,$$15&," (",4#.###,"%)",3X,"*"'6'mSG$(16),vALUE(16),pTYPE%(16),vMSG$(5),eRRMSG$(2)''eRRMSG$(0)="" 'eRRMSG$(1)=""!'eRRMSG$(2)="""'#';$'BBA$=" GAIN OR LOSS ON SALE OF LOANS "%'&'BBD%=9:BB*'gto.tables%(225):"GTO.RUNTIME":INIT 'œ10427 ' 80"*" ' 80" "' "*",78X,"*"' 2X,"ERROR: ",70A' "*",15X,48A,15X,"*"' "*",15X,32A,$$15&,15X,"*""' "*",15X,32A,-11#.###,15X,"*"' "*",15X,32A,-15#,15X,"*"' "*",15X,48"-",0XHPx0 Xp (!@!"###$$8$`$$$%%(%P%x%%%&@&''(h(*0++,,`,-./000X12233505!(BOOS=lint$(BBN%),BOKS,3))(BOOS>255BDF%=0:G:U!5(BCK$=BCK$+BOOS)((r(=24:=1:7);31);:=1:18);"Error #";;" in Line #";;". Press RETURN to continue..";17);:BPC$:G:z 2INT&(1)),vALUE(3),vALUE(4),vALUE(5)(#210388,BLO&)(#210388;((BLGS=BIGS)10443(BJGS=BJGS+1 (BLKS (10410(#2;12):#2(=22:=1:31);:10263((=27):G:L 3 (10445((A(lint$(BBN%))/3<>lint$(BBN%))/3)BDF%=0:G:U!5:BDF%=1(BCK$="":BOKS=1183(BLO&=BLO&+BNK&(BMO&=BMO&+BHK&(BKO&=BKO&+BHK&(BKG&=BKG&+BOC&(BJO&=BJO&+BNK&^(#210387;BLGS,BNGS,-2,BHK&),-2,BKO&),-2,BOC&),-2,BNK&),-2,BHC&),-2,BKG&),-2,BJO&) (BNGS (BJKS=1(#210388;,(#210389;-2,BMO&),-2,BMG&),-2;:#210388;(BLKS=1BJCS (BLO&=0 (BMG&=0 (BMO&=0(#210383;(#210384;BJGS(#210388;(BNGS=BJKSBIKS((BLGS=BIGS)10436(BLGS=BLGS+1$(BNK&=BHC&*1.e10*BICS)/1.e10)(BOC&=BHK&-BNK&(BHC&=BHC&-BOC&(BMG&=BMG&+BOC& 5 (BJO&=0 (BKG&=0 (BKO&=0 (BLGS=0'(#2,".PRINTER":#2;BCK$:10445D(=22:=1:29);:=22:=1:"Printing. Press ESCAPE to abort..";((#2"A";12)(#210388;7(#210390;-2,lINT&(1)),vALUE(3),vALUE(4),vALUE(5)(#210388(BHC&=lINT&(1)(BHK&=lINT&(2) (BICS=vALUE(3)/(vALUE(5)*100)(BIGS=vALUE(4)*vALUE(5)(BIKS=vALUE(5) (BIOS=60(BJCS=BIOS/(BIKS+7)(BJGS=vALUE(6))$(BJKS=100*(vALUE(6)-BJGS+.001))((BJKS<1)BJKS=1((BJKS<=BIKS)G:3(BCP%=3:G:5 4#( 1X,"----"?( 5#,4X,3#,12&.##,14&.##,14&.##,14&.##,14&.##,14&.##,14&.##( 130"=" -( "ANNUAL TOTAL",12&.##,17X,14&.##,14&.##q( "LOAN AMOUNT = ",$$14&.##,8X,"INTEREST RATE = ",3#.###,8X,"TERM OF LOAN = ",4#,8X,"PAYMENTS PER YEAR = ",4#G:5( (BCN%=BEE% (GS: ( (G:m5(((D( " PAYMENT DATE",24X,"TOTAL",47X,"LOAN",11X,"TOTAL",13X,"TOTAL"w( " NUMBER ",4#,7X,"PAYMENT",9X,"PAYMENTS",8X,"PRINCIPAL",9X,"INTEREST",10X,"BALANCE",8X,"PRINCIPAL",9X,"INTEREST"() w(BEKS=.01 x(GS:y(vALUE(3)=BEKS*vALUE(5)*100 z(G:5{(|(BGGS=vALUE(2)/vALUE(1))}(BEE%=4BEKS=vALUE(3)/(vALUE(5)*100) ~(BGCS=1 (GS:((BEE%-3)10369,10372((vALUE(4)=BGCS/vALUE(5) (G:5((vALUE(5)=BGCS/vALUE(4) (F%=15#''BBH%=17:BBJ%=BBH%-2:BBL%=BBD%+6!('BBN%=-1:BBPS=0:BCD%=0:BCF$="" )'BCI%=49*'+'#1,".CONSOLE"0,'mSG$(0)="PERFORM CALCULATIONS/QUIT PROGRAM "-'vALUE(0)=0.'/'0'1'2'3'4'5'6'07'mSG$(1)="READ AVERAGE FROM FILE 100*vALUE(7)/vALUE(2):BCKS=0 'BDC%=BBN% 'BBN%=+1 'GS: '=BBN%-1 'GS: '=BBN%:BBN%=-1'>BBL%G:v 5 '10149 'G: 7''' 'BBN%=-1 'G:7'''' 'BBPS=1'#2,".PRINTER"'#2 'GS:'N%)=BCF$) 'BCF$=""-'BBN%=2BBN%=3vALUE(1)=0:BDC%=1:GS: 'BBN%=1G:7'BBN%<>6G:8'vALUE(9)=vALUE(6) 'BDC%=9 'GS: '=11 'G:0'BBN%<>7G:00'vALUE(7)<20vALUE(7)=vALUE(2)*vALUE(7)/1004'vALUE(2)<>0BCKS=G: 3'BCD%=0:BCF$="":G:54'BCF$=BCF$,BCD%)'=-1:BBD%+1G:8 '" "; 'G:1#'BCF$)>0vALUE(BB''B'BEKS=:(BEKS=BBF%)(BEKS=6)7);:G:x7:ۚ=23:" ";:=-1+'(=>48<=57)(=45)(=46)G: 6'()=8G: 1'7);:G:]6''BCD%=15G: 4'BCD%=BCD%+1'BCF$=BCF$+ŝ)'ŝ);:G:]6''BCD%=BCD%-1:BCD%>0 'G: 0'=BBJ%:" ";!'=+1:>BBL%G:n 9:ەG:u 0'=BBJ%:" ";'=-1:<6=BBL% 'G:u 0'=6'=BBJ%:"->"; 'BCD%=0 'BCF$="" 'BEKS=0'BEKS=BBF%=22:=1:29);:ەGS: :BBJ%=15'=BEKS:=BBJ%+2 '10149'''' '=23:=1'10005;eRRMSG$(BEI%); 'G:5''' ':BDA%=1 'GS:''' 'BBN%=-1 '10149'=6'=BBJ%:"->";'BBN%<0G: 8:ەG:4'()=10G: 4:'()=11G:= 6:'()=13G:0: '()=3'''=1:=BDC%+5)'pTYPE%(BDC%)10122,10124,10126,10128$'10007;mSG$(BDC%),vALUE(BDC%); 'G: 9$'10008;mSG$(BDC%),vALUE(BDC%); 'G: 9$'10009;mSG$(BDC%),vALUE(BDC%); 'G: 9)'10011;mSG$(BDC%),vALUE(BDC%),BCKS;''PON RATE",BDMS;{'10011;"PRICE",BEAS,BEES;|'BBPS>010004;;:G: 3}'>20G: 3~'BDC%=20'10004;; 'BDC%'10002;;'(BBPS=0)(BDA%=1)GS: 'C'=22:=1:29);:=23:=2:"Enter data -> ";18);" ";17);:'*q'(BBPS=0)(BDA%=1)10006;mSG$(0);r'BDA%=1G:- 8s'10010;;$t'10007;"GAIN or (-)LOSS",BDES;"u'10007;"LESS FEE",-vALUE(7);)v'10007;"NET GAIN or (-) LOSS",BDIS;w'BDA%>2G:6x'10004;; y'G: 7+z'10008;"BREAK-EVEN COU0004;;g'BDC%=BCO%BBD%)h'pTYPE%(BDC%)10089,10091,10093,10095$i'10007;mSG$(BDC%),vALUE(BDC%); j'G:6$k'10008;mSG$(BDC%),vALUE(BDC%); l'G:6$m'10009;mSG$(BDC%),vALUE(BDC%); n'G:6)o'10011;mSG$(BDC%),vALUE(BDC%),BCKS; p'BDC%'Y' Z'=1:=1 ['BCO%=1\'(BBPS=0)(BDA%=1)G:D8 ]'BCO%=2^'10002;;_'10006;BBA$;`'10002;;a'(BBPS>0)(BDA%>1)G:6 b'"*";c'=12Bd'"UP/DOWN ARROW TO MOVE POINTER - RETURN TO STORE DATA VALUE";e'" *";f'1=00M'mSG$(8)="SERVICE FEE (%) "N'vALUE(8)=.25O'pTYPE%(8)=20P'mSG$(9)="REINVESTMENT RATE (%) "Q'vALUE(9)=0R'pTYPE%(9)=21S'mSG$(10)=" "T'vALUE(10)=0U'pTYPE%(10)=2 V'G:F 9W'XB'pTYPE%(4)=30C'mSG$(5)="LIFE OF LOAN (MONTHS) "D'vALUE(5)=144E'pTYPE%(5)=30F'mSG$(6)="YIELD TO INVESTOR (%) "G'vALUE(6)=0H'pTYPE%(6)=20I'mSG$(7)="FEE "J'vALUE(7)=0K'pTYPE%(7)=4 L'BCKS "8'vALUE(1)=09'pTYPE%(1)=30:'mSG$(2)="AMOUNT SOLD ";'vALUE(2)=0<'pTYPE%(2)=10='mSG$(3)="COUPON RATE (%) ">'vALUE(3)=0?'pTYPE%(3)=20@'mSG$(4)="TERM OF LOAN (MONTHS) "A'vALUE(4)=36012),12)'#2''''' (œ10249(#8,"WORKFILE""(#8,0;BEOS,BEOS,BFC$,BFFS,BFJ&(BFFS=BFJ&/100)(vALUE(1)=1:BDC%=1:GS: (vALUE(2)=BFFS:BDC%=2:GS: (vALUE(3)=BEOS:BDC%=3:GS: (#8:GS: (G:0 ( ( ( (=23:=1- ("DATA NOT AVAILABLE PLEASE CORRECT AND"; (GS:  (=23:=1I(" "; (=24:=1I(" ";(BGBS10241,10139344`5 566`67`8 89;P<=?@@@ACDF@FGPH`IIJPMPNO@OOP0PTWPXpYY[\] ^0^`pbcPdeghiiPiijkkm0mnppqP:BEES=0:10420(BEES=100*BEAS/vALUE(2)(=24:30);:œ10427 (10071 (10275((BDMS=BGNS*1200 (BDA%=3 (10421r(=24:=1:7);31);:=1:18);"Error #";;" in Line #";;". Press RETURN to continue..";17);:BIF$:1013910386(BKKS)<.510423 (BLGS=BKKS (BLKS=(BKKS-BLCS)/(BGNS-BKOS) (BLCS=BKKS (BKOS=BGNS(BGNS=BKOS-BLGS/BLKS (10386((( (BDIS=BKKS(BDES=BDIS+vALUE(7)(BEAS=value(2)+BDESN(œ=24:=1:"Divison by zero error. Press any key...";:BIF$:BEES=0:G:'0(BEES=100*BEAS/vALUE(2)(=24:30);:œ10427 (GS: (G:5((BDMS=BGNS*1200 (BDA%=3 (G:@1r(=24:=1:7);31);:=1:18);"Error #";;" in Line #";;". Press RETURN to continue..";17);:BIF$:G:F 910386(BKKS)<.5G:T3 (BLGS=BKKS (BLKS=(BKKS-BLCS)/(BGNS-BKOS) (BLCS=BKKS (BKOS=BGNS(BGNS=BKOS-BLGS/BLKS (G:O6((( (BDIS=BKKS(BDES=BDIS+vALUE(7)(BEAS=value(2)+BDESN(œ=24:=1:"Divison by zero error. Press any key...";:BIF$y key...";:BIF$:BJCS=0:G:44(BJCS=BJCS+BKGS/BIOS(=24:30);:œ10427(BIOS=BIOS*BHFS (BJKS(BKKS=-(vALUE(7)+BJCS)(BIM%=1G:5 (BIM%=1 (G:w2((BKOS=BGNS:BLCS=BKKS*(BKKS<0BGNS=BGNS*1.02:BGNS=BGNS*.98 (G:O6()*BGNS*BIBS/(BIBS-1)(=24:30);:œ10427 (BIM%=0 (BDA%=2((("(BIOS=BHFS:BJCS=0:BJGS=vALUE(2)(BJKS=1BHNS(BJOS=BGNS*BJGS(BKCS=BHBS*BJGS(BKGS=BKCS-BJOS(BJGS=BJGS-BIIS+BJOSN(œ=24:=1:"Divison by zero error. Press an(((((((BGNS=vALUE(3)/1200!(BHBS=(vALUE(6)+vALUE(8))/1200(BHFS=1+vALUE(9)/1200(BHJS=vALUE(4)(BHNS=vALUE(5)(BIBS=(1+BGNS)^BHJSN(œ=24:=1:"Divison by zero error. Press any key...";:BIF$:BIIS=0:G:0$(BIIS=vALUE(210007;"GAIN or (-)LOSS",BDES!s(10007;"LESS FEE",-vALUE(7)(t(10007;"NET GAIN or (-) LOSS",BDISu(BDA%>2G:0 v(10004; w(G:1*x(10008;"BREAK-EVEN COUPON RATE",BDMSy(10011;"PRICE",BEAS,BEES z(10004; {(10002;|(}(~TYPE%(BDC%)10344,10346,10348,10350#h(10007;mSG$(BDC%),vALUE(BDC%) i(G:1#j(10008;mSG$(BDC%),vALUE(BDC%) k(G:1#l(10009;mSG$(BDC%),vALUE(BDC%) m(G:1(n(10011;mSG$(BDC%),vALUE(BDC%),BCKS o(BDC%p(BDA%=1G:2 q(10010;#r('R(BBN%10323,10326,10331,10332,10428S(=23:=1:31); T(G:F 9U( V(BBPS=1 W(GS: X(BBPS=0 Y(G:6Z([(fini:"HELLO"\( ](BDA%=3 ^(G:1_(`(a( b(10002;c(10006;BBA$ d(10002; e(10004;f(BDC%=2BBD%)g(p10306=(=2>(=22 ?("->";@(BBN%<0G:4:ەG:2A( B(=-2 C(" ";D(()=13G:9E(()=8G:3 F(=+14G(>BGH%=2 H(G:5 I(BGJS=-18J(BGJS<2=BGH%:ۙ=BGJS K("->"; L(10306M(N(O(BBN%=1+(-4)/16P(Q( "((vMSG$(1)="PRINT ")(vMSG$(2)="QUIT "*(vMSG$(3)="BREAK-EVEN "+(vMSG$(4)=" " ,(G:6-(.(/(0(=221(BDC%=042(=16*BDC%+43(vMSG$(BDC%); 4(BDC%5(6(7(8(9( :(BBN%=-1 ;(GS: <( (G:F 9((( (BGBS=0 (10270 (=24:=1*("SPACE TO CONTINUE - RETURN TO QUIT";(BGBS=0G:d8(BGBS=1 (BGBS=1(=13BGBS=2 (=27"hello"!("(#($( %(BGF%=4&(BGH%=(BGF%-1)*16+2'(vMSG$(0)="INPUT *'gto.tables%(270):"GTO.RUNTIME":INIT3' 9X,37X,"GAINS AND LOSSES ON DELIVERIES",/L' 9X,14X,20R," AS OF ",14A,4X,3#," YEARS AT ",#.3#," SERVICING",/n' 9X,"CMTMNT BUYER",16X,"GROSS PERC NET DELVRY FUNDNG TOTAL B1.02:BLMS=BLMS*.98 'G: 1'BPGS)<1.G: 4 'CACS=BPGS 'CAGS=(BPGS-BPOS)/(BLMS-BPKS) 'BPOS=BPGS 'BPKS=BLMS'BLMS=BPKS-CACS/CAGS 'G: 1''''BKI&=100*BPGS) 'G: 6''''BKES=BLMS*1200 'BBES=1''S=BLMS*BOCS'BOOS=BMAS*BOCS'BPCS=BOOS-BOKS'BOCS=BOCS-BNES+BOKS'BNOS=BNOS+BPCS/BNKS'BNKS=BNKS*BMES 'BOGS'BPGS=-((0.01*BJM&))+BNOS)''BNI%=1G: 1 'BNI%=1 'G: 8''''BPKS=BLMS:BPOS=BPGS*'BPGS<0BLMS=BLMS* 'BLIS=BHOS'BLMS=BLAS/1200'BMAS=(BHOS+BCJS)/1200'BMES=1+BLIS/1200'BMIS=BCBS*12'BMMS=BCFS*12'BNAS=(1+BLMS)^BMMS('BNES=0.01*BIO&)*BLMS*BNAS/(BNAS-1) 'BNI%=0'''&'BNKS=BMES:BNOS=0:BOCS=0.01*BIO&)'BOGS=1BMIS'BOK,16A,6#";"ERROR ",," IN LINE NUMBER ", u'G:B 3v'10010;BDBS.w'"SPACE TO START AGAIN -- RETURN TO QUIT" x'BLES=0 y'10109z'BLES=0G: 6{'BLES=1G:66 |'G:2 }'BLES=1~'=13BLES=2''''''' 'BBES=2d'BEJS=BDNS/BFJ&)e'BENS=100*BFJ&)/BFB&) f'10005;9g'10008;-2,BFB&),BENS,-2,BFJ&),-2,BGB&),-2,BGJ&)h'10009;BEBS,BEFS,BEJSi'j'k' l'#1:#0m'#9n'fini:"HELLO"o'p'q'r'#0s'BBES10100,101028t'"3/,6A,3#,BLASU'BDFS=BDFS+BIO&)*BHOSV'BDJS=BDJS+BIO&)*BKESW'BDNS=BDNS+BIO&)*BLASX'BFJ&=BFJ&+BIO&Y'BFB&=BFB&+BIC&Z'BGB&=BGB&+BJM&['BGJ&=BGJ&+BKI&\'BHES=BHES+1 ]'G:2^'_'`'a'BDBS=1G:06b'BEBS=BDFS/BFJ&)c'BEFS=BDJS/BFJ&)#9,BDBS;BHI$,BHL$,BHOS,BIC&,BIKS,BIO&,BJG$,BJJ$,BJM&,BKES,BKI&,BLASQ'BHOS<0G:8 R'GS: \S'10006;BHI$,BHL$,BHOS,-2,BIC&),BIKS,-2,BIO&),BJG$,BJJ$,-2,BJM&),BKES,-2,BKI&),BLASHT'#9,BDBS;BHI$,BHL$,BHOS,BIC&,BIKS,BIO&,BJG$,BJJ$,BJM&,BKES,BKI&1;BHB$<'#1='ž#910078 >'œ10095?'@'A'B'BCNS=BCNS+1C'BCNS>112)D'10007;BCNS E'10001; F'10002;BBL$,BBO$,BCBS,BCJS G'10003; H'10004; I'10005; J'BHES=10K'L'M'N'BHES>BBASG:&7O'BDBS=BDBS+1HP'9,BBI$",'#9,0;BBL$,BBO$,BCBS,BCFS,BCJS -'G:h2-.':"FILE NAMED ",BBI$," IS NOT AVAILABLE" /'G:T10'1'2' 3'BCNS=0 4'BDBS=05'BDFS=0:BDJS=0:BDNS=06'BEBS=0:BEFS=0:BEJS=0:BENS=0 7'BFB&=0 8'BFJ&=0 9'BGB&=0 :'BGJ&=0;'#1,".PRINTER":#IN THE FILE" 'œ10180' 'BBAS=54 'BBES=1' '!'"' #'GS: $'%'I&'"ENTER NAME OF REPORT FILE (='REPTFILE', Q='QUIT') -- ";BBI$''BBI$="Q"BBI$="q"G:('BBI$)=0BBI$="REPTFILE" )'œ10030*'ž#910030 +'#X,"Page",2#,24X," T A X D E F E R R E D I N V E S T M E N T S ",/B' 9X,"* REPORT TOTALS *",8X,10&,2X,3#.#,1X,10&,17X,9&,9X,9&9' 9X,"* WEIGHTED AVERAGE *",3#.3#,57X,2#.3#,12X,2#.3#L' "UNABLE TO COMPUTE RESULTS FOR DATA IN LINE NUMBER ",3#," HJKLMNOPQR-EVEN GAIN OR DELVRD"w' 9X,"NUMBER NAME RATE AMOUNT SOLD AMOUNT DATE DATE FEES RATE (-)LOSS YIELD"' 9X,108"-"[' 9X,5R,2X,13A,1X,2#.3#,2X,9&,2X,3#.#,2X,9&,2X,6A,2X,6A,2X,-7&,2X,2#.3#,2X,-7&,2X,2#.3#L' 9'I'=12:=1:"Use printer setup string (format nnn1nn2...nn6)? -> ";CAK$+'CAK$)/3<>CAK$)/3)7);:G: 1'BHB$="":CANS=1183'CBBS=CAK$,CANS,3))$'CBBS<0CBBS>2557);:G: 1'BHB$=BHB$+CBBS)'''r'=24:=1:7);31);:=1:18);"Error #";;" in Line #";;". Press RETURN to continue..";17);:CBF$:G:66OS=BPGS 'BPKS=BLMS'BLMS=BPKS-CACS/CAGS '10131''''BKI&=100*BPGS) '10146''''BKES=BLMS*1200 'BBES=1''ȩ ȩtHsH`*** G ***qoShBhC 5 5 CHBH`Hʊe9he: Hm:hJ`潠`*** GS ***NLKIHGEdhh 89H:iɂ8H:HLHMHH HH`6=i>i> ȥii8 LȩȩV68  HH``n#" B?L*** fini ***hsht6=i>i> ȱii8 L*** var *** ` a ɅL8A 8A 8Ae ) J Ɇ>e=e>ɂ)`L*** init ***hhȱiȱiTVWXYGA3/1.06REMO, VAR  :BKK$:BKK$&\N"YESyesYes",BKK$)20065:20005RaN:"Renumbering file : ";BJF$;" from 10000 step 1":"...creating file : ";BDH$2fNRESEQNCE(@BJF$,@BDH$,%BKC%,%BKE%,%BKG%,%BKI%)kN:"Renumber complete"N0u :u3000DuBEI%=030090NuBEI%="'I'=12:=1:"Use printer setup string (format nnn1nn2...nn6)? -> ";CAK$+'CAK$)/3<>CAK$)/3)7);:10171'BHB$="":CANS=1183'CBBS=CAK$,CANS,3))$'CBBS<0CBBS>2557);:10171'BHB$=BHB$+CBBS)'''r'=24:=1:7);31);:=1:18);"Error #";;" in Line #";;". Press RETURN to continue..";17);:CBF$:10016OS=BPGS 'BPKS=BLMS'BLMS=BPKS-CACS/CAGS '10131''''BKI&=100*BPGS) '10146''''BKES=BLMS*1200 'BBES=1'''I'=12:=1:"Use printer setup string (format nnn1nn2...nn6)? -> ";CAK$+'CAK$)/3<>CAK$)/3)7);:10171'BHB$="":CANS=1183'CBBS=CAK$,CANS,3))$'CBBS<0CBBS>2557);:10171'BHB$=BHB$+CBBS)'''r'=24:=1:ZXWVUTS#"!  xt-RELOCST VAR VAR JMPADDR .RELOCST ]XCST JMPADDR DDR MOVE254 INIT INIT FINI FINI JMPADDR MOVE254 VE254 GAIN ON SALE OPEN#1 AS OUTPUT,".PRINTER" OUTPUT#1 LIST PRINT#1;CHR$(12) CLOSE END @U}! O/@Àp ^P!! !!   !! !!  !! !!  1 TEMP2 2  GETCH 5RETURN BG G DOJMP TEMP1 @TEMP2 AGETCH  RETURN GS GS DOJMP JMP TEMP1