Listing of file='2B' on disk='vmedia/glbr_22.wvd.zip'
# Sector 446, program filename = '2B' 0010 INPUT "ENTER SETTLEMENT DATE IN THE FORM MMDDYY",S 0020 INPUT "ENTER COUPON (%)",C 0030 INPUT "ENTER MATURITY DATE IN THE FORM MMDDYY",M 0040 INPUT "ENTER YIELD",Y 0050 INPUT "ENTER INCREMENT VALUE",I 0060 PRINT HEX(03) 0070 PRINT " YIELD TO $ PRICE TO" 0080 PRINT " MATURITY MATURITY" 0090 I1=5*I : Y=Y-I1 0100 S1=INT(S/10000) : S2=INT((S-S1*10000)/100) : S3=S-(S1*10000)-(S2*100) 0110 M1=INT(M/10000) : M2=INT((M-M1*10000)/100) : M3=M-M1*10000-M2*100 0120 IF M3>S3THEN 130 : M3=M3+100 0130 D=360*(M3-S3)+30*(M1-S1)+M2-S2 0140 FOR K=1TO 11 0150 R=100 : G=D : GOSUB 200 : P1=P 0160 PRINTUSING 170,K,Y,P1 0170 % ## ###.### ####.### ###.### ####.### 0180 Y=Y+I : NEXT K 0190 PRINT HEX(0C0C); : STOP 0200 IF Y<>CTHEN 210 : P=100 : RETURN 0210 IF G>=14491THEN 230 0220 T1=G/30-INT(G/30) : N=INT(G/30)/6 : T=N-INT(N) : N=INT(N) : GOTO 240 0230 N=INT(G/180) : T=0 : T1=G/180-N 0240 GOSUB 300 : A=F1 0250 IF G<=14490THEN 260 : N=N+1 : GOTO 270 0260 T=T+1/6 0270 GOSUB 300 0280 P=INT((A+T1*(F1-A))*1000+.5)/1000 0290 RETURN 0300 F1=C*(T-1)/2+(R+(100*C/Y)*((Y/200+1)^(N+1)-1))/((Y/200+1)^(N+T)) 0310 F1=INT(F1*1000)/1000 0320 RETURN