100 REM PROGRAM TO COMPUTE CASH VALUE AT CURRENT INTEREST RATE
105 REM This plan computes ledger statements for universal life
107 REM by FRED N. BUSH [72327,200]
110 DIM H$(1):DIM AGE(400),M$(5)
120 POKE 709,1:POKE 710,119:? "}"
130 GRAPHICS 2+16:POSITION 1,6:PRINT #6;"CASH STATEMENT OF      POLICY":FOR X=1 TO 2000:NEXT X
140 GRAPHICS 0:POKE 709,1:POKE 710,119:? "}"
150 ? "WHAT IS POLICY NUMBER"
160 INPUT POLNUM
170 ? "STATEMENT IS FOR MONTH OF"
180 INPUT M$
190 GOSUB 740:GOTO 230
200 ? "CHANGE ANY INPUT"
210 INPUT H$:IF H$="Y" THEN 230
220 IF H$="N" THEN GOSUB 810:GOSUB 490:GOTO 400
230 PRINT "WHAT IS PRIOR MONTH VALUE"
240 INPUT PRIMON
250 ? "WHAT IS YEAR"
260 INPUT YR
270 PRINT "WHAT IS CURRENT INSURANCE AMOUNT"
280 INPUT CURRINS
290 DB=CURRINS
300 ? "WHAT IS AGE OF INSURED?"
305 ? "ADD 100 IF M/S"
306 ? "ADD 200 IF F/NS"
307 ? "ADD 300 IF F/S"
310 INPUT AGE:PREM=AGE(AGE)
320 ? "WHAT IS RATING?":? "IN DECIMAL FORM"
330 INPUT RATING
340 GOSUB 870
350 ? "WHAT IS CURRENT INTEREST RATE IN %"
360 INPUT I
370 PRINT "WHAT IS AMOUNT PAID DURING PRIOR MONTH"
380 INPUT AMTPD
390 GOSUB 490
400 PRINT "ANOTHER MONTH?"
410 INPUT H$
420 IF H$="N" THEN 480
430 IF H$="Y" THEN 440
440 ? "WHAT IS NEXT MONTH"
450 INPUT M$
460 GOTO 200
470 IF H$<>"N" THEN 400
480 END 
490 NET=0.925*AMTPD
500 IF YR=1 THEN 900
510 MINT=(((PRIMON+NET-1000)*I/1200)+3.2737)-COST*I/1200:GOSUB 920
520 Y=MINT
530 Z=INT(MINT*100)
540 Y=Z/100
550 MINT=Y
560 IF PRIMON<1000 THEN GOSUB 880
570 COST=(((CURRINS/1.0032737-PRIMON)/1000)*COI)
580 Y=COST
590 Z=INT(Y*100)
600 Y=Z/100
610 COST=Y
620 ADMIN=0.075*AMTPD
630 CV=PRIMON+NET+MINT-COST
640 REM ROUNDOFF CV VALUE DEC. PT.
650 Y=CV
660 Z=INT(Y*100)
670 Y=Z/100
680 PRINT Y
690 PRINT CV
700 PRINT " ";M$;," ";AMTPD;," ";NET;," ";MINT;," ";COST;," ";Y
710 LPRINT " ";M$;," ";AMTPD;," ";NET;," ";MINT;," ";COST;," ";Y
720 LPRINT 
730 RETURN 
740 LPRINT CHR$(27);CHR$(66);CHR$(2)
750 LPRINT "          CASH STATEMENT OF POLICY# ";POLNUM
760 LPRINT :LPRINT :LPRINT :LPRINT 
770 LPRINT "MO/YR","AMT PD","NET AMT","MONTHLY INT","INSUR COST","CASH VALUE"
780 LPRINT "                                       "
790 GOSUB 820
800 RETURN 
810 PRIMON=CV:RETURN 
820 RESTORE 970
830 FOR I=0 TO 399:READ A:AGE(I)=A:NEXT I
840 ? "DO YOU WISH A PRINTOUT?"
850 INPUT H$:IF H$<>"N" THEN FOR I=0 TO 99:LPRINT I,AGE(I);"  ";:NEXT I
860 RETURN 
870 COI=RATING*PREM:RETURN 
880 MINT=(PRIMON+NET-COST)*3.2737E-03
890 RETURN 
900 NET=0.925*AMTPD-(35+(0.09*(CURRINS/1000)))
910 GOTO 510
920 Y=NET
930 Z=INT(Y*100)
940 Y=Z/100
950 NET=Y
960 RETURN 
970 DATA 0.3594,0.13215,0.11302,0.10402,0.09952,0.09615,0.0939,0.09165,0.08996,0.08883
980 DATA 0.08827,0.08883,0.09221,0.09727,0.10458,0.11246,0.12033,0.12765,0.13383,0.13721
990 DATA 0.13721,0.13552,0.13383,0.13327,0.13215,0.13158,0.13046,0.13102,0.13327,0.13608
1000 DATA 0.13890,0.14058,0.14227,0.14452,0.1479,0.1524,0.15915,0.16702,0.17715,0.1884
1010 DATA 0.20133,0.21483,0.22946,0.24633,0.26490,0.28515,0.30765,0.33352,0.36446,0.39933
1020 DATA 0.43702,0.47415,0.51352,0.55683,0.60746,0.66708,0.73458,0.80658,0.88196,0.95958
1030 DATA 1.04171,1.13115,1.23296,1.34883,1.47652,1.6149,1.76227,1.91640,2.07333,2.23421
1040 DATA 2.4159,2.62852,2.86083,3.11283,3.39183,3.70065,4.03983,4.41165,4.81383,5.23458
1050 DATA 5.66490,6.11546,6.59977,7.13415,7.73208,8.38852,9.10571,9.87746,10.6194,11.22521
1060 DATA 11.69433,12.11058,12.66633,13.5399,14.60471,15.47546,16.17577,16.91715,17.67427,18.4449
1070 DATA 0.35940,0.13215,0.11302,0.10402,0.09952,0.09615,0.0939,0.09165,0.08996,0.08883
1080 DATA 0.08827,0.08883,0.09221,0.09727,0.10458,0.11246,0.12033,0.12765,0.13383,0.13721
1090 DATA 0.13721,0.15377,0.15627,0.15836,0.16002,0.16211,0.16461,0.16752,0.17127,0.17544
1100 DATA 0.18003,0.18503,0.19045,0.19671,0.20462,0.21463,0.22671,0.24213,0.26088,0.28256
1110 DATA 0.30716,0.33384,0.3626,0.39386,0.42806,0.466,0.5081,0.55482,0.60653,0.66366
1120 DATA 0.72664,0.79505,0.86931,0.95025,1.0383,1.13470,1.24073,1.35719,1.48455,1.62403
1130 DATA 1.7765,1.94238,2.12333,2.32107,2.53768,2.77608,3.03928,3.32978,3.64685,3.98676
1140 DATA 4.345,4.71692,5.09967,5.4976,5.92258,6.38757,6.90619,7.49028,8.143,8.857
1150 DATA 9.62445,10.43681,11.28617,12.12113,13.0963,14.06747,15.09034,16.17587,17.34343,18.62108
1160 DATA 20.0458,21.66244,23.5259,25.69963,28.33894,30.88008,32.28071,33.76346,35.27771,36.81896
1170 DATA 0.31046,0.12540,0.10683,0.10008,0.09615,0.09333,0.09052,0.08827,0.08658,0.08546
1180 DATA 0.08546,0.08602,0.08658,0.08827,0.09052,0.09108,0.09502,0.10008,0.10627,0.11246
1190 DATA 0.11921,0.1254,0.12933,0.13158,0.13215,0.13158,0.13102,0.1299,0.12877,0.12821
1200 DATA 0.1299,0.13271,0.13552,0.13721,0.13721,0.13777,0.14002,0.1434,0.1479,0.15408
1210 DATA 0.1614,0.1704,0.18108,0.19402,0.20808,0.22383,0.24127,0.26040,0.28065,0.30202
1220 DATA 0.32621,0.35433,0.3864,0.42127,0.4584,0.49777,0.54108,0.58946,0.64402,0.70533
1230 DATA 0.77227,0.84483,0.9219,1.00346,1.09121,1.18740,1.29371,1.41071,1.53840,1.67565
1240 DATA 1.8219,1.97265,2.12902,2.30846,2.51771,2.74946,3.00427,3.28215,3.58083,3.90371
1250 DATA 4.25246,4.62765,5.03377,5.47421,5.96021,6.48727,7.05202,7.65671,8.28502,8.9499
1260 DATA 9.6474,10.27908,10.79096,11.26571,11.77027,12.38227,13.12421,13.83858,14.52258,15.22796
1270 DATA 0.31046,0.1254,0.10683,0.10008,0.09615,0.09333,0.09052,0.08827,0.08658,0.08546
1280 DATA 0.08546,0.08602,0.08658,0.08827,0.09052,0.09108,0.09502,0.10008,0.10627,0.11246
1290 DATA 0.11921,0.14294,0.1471,0.15086,0.15377,0.15627,0.15836,0.16002,0.16211,0.16461
1300 DATA 0.16752,0.17127,0.17544,0.18003,0.18503,0.19045,0.19671,0.20462,0.21463,0.22671
1310 DATA 0.24213,0.26088,0.28256,0.30716,0.33384,0.36260,0.39386,0.42806,0.466,0.5081
1320 DATA 0.55482,0.60653,0.66366,0.72664,0.79505,0.86931,0.95025,1.0383,1.1347,1.24073
1330 DATA 1.35719,1.48455,1.62403,1.7765,1.94238,2.12333,2.32107,2.53768,2.77608,3.03928
1340 DATA 3.32978,3.64685,3.98676,4.345,4.71692,5.09967,5.4976,5.92258,6.38757,6.90619
1350 DATA 7.49028,8.143,8.857,9.62445,10.43681,11.28617,12.17113,13.0963,14.06747,15.09034
1360 DATA 16.17587,17.34343,18.62108,20.0458,21.66244,23.5259,25.69963,27.60633,28.97433,30.38508