100 XX=1
200 FOR XX=1 TO 25
300 PRINT
400 NEXT XX
500 PRINT"        *********************************"
600 PRINT
700 PRINT"          WHERE APPLICABLE ENTER ALL"
800 PRINT"          FIGURES IN PER PERIOD AMOUNTS"
900 PRINT
1000 PRINT"        *********************************"
1010 XX=1
1011 FOR XX=1 TO 6
1012 PRINT
1013 NEXT XX
1100 XX=1
1200 FOR XX=1 TO 2500
1300 NEXT XX
1400 XX=1
1500 FOR XX=1 TO 25
1600 PRINT
1700 NEXT XX
1800 PRINT"FINANCIAL MATHEMATICAL PROBLEMS AVAILIABLE:"
1900 PRINT
2000 PRINT
2100 PRINT"PRESENT VALUE (1)"
2200 PRINT"PRESENT VALUE OF AN CONSTANT ANNUITY (2)"
2300 PRINT"FUTURE VALUE (3)"
2400 PRINT"FUTURE VALUE OF AN CONSTANT ANNUTIY (4)"
2500 PRINT"SINKING FUND FACTOR (5)"
2600 PRINT"INSTALLMENT TO AMORTIZE (6)"
2700 REM CODE ENTRY AND GOTO STATEMENTS
2800 PRINT
2900 INPUT "ENTER PROBLEM NUMBER";A
3000 XX=1
3100 FOR XX=1 TO 25
3200 PRINT
3300 NEXT XX
3400 IF A=1 GOTO 4000
3500 IF A=2 GOTO 6900
3600 IF A=3 GOTO 10100
3700 IF A=4 GOTO 13000
3800 IF A=5 GOTO 16200
3900 IF A=6 GOTO 19700
4000 PRINT"PRESENT VALUE"
4100 PRINT
4200 INPUT"WHAT IS THE FUTURE VALUE";FV
4300 INPUT"HOW MANY PERIODS";N
4400 INPUT"WHAT IS THE INTEREST RATE";P
4500 K=P/100
4600 PV=1/(1+K)^N*FV
4700 PRINT
4800 PRINT"THE PRESENT VALUE IS";PV
4900 PRINT
5000 PRINT
5100 PRINT"WOULD YOU LIKE A HARDCOPY ?"
5200 INPUT"     YES (1)     NO (2)";XA
5300 IF XA=1 GOTO 23400
5400 PRINT
5500 PRINT
5600 PRINT"DO YOU HAVE ANOTHER PRESENT VALUE PROBLEM ?"
5700 INPUT"     YES (1)     NO (2)     ";B
5800 XX=1
5900 FOR XX=1 TO 25
6000 PRINT
6100 NEXT XX
6200 IF B=1 GOTO 4000
6300 PRINT
6400 PRINT
6500 PRINT"DO YOU HAVE ANY OTHER TYPE OF FINANCIAL PROBLEM ?"
6600 INPUT"     YES (1)     NO (2)     ";C
6700 IF C=1 GOTO 1400
6800 GOTO 30400
6900 PRINT"PRESENT VALUE OF AN CONSTANT ANNUITY"
7000 PRINT
7100 INPUT"WHAT IS THE AMOUNT OF THE PAYMENTS";D
7200 INPUT"HOW MANY PERIODS";E
7300 INPUT"WHAT IS THE INTEREST RATE";F
7400 G=F/100
7500 Z=(1+G)^E
7600 Y=1-(1/Z)
7700 X=Y/G
7800 H=X*D
7900 PRINT
8000 PRINT"THE PRESENT VALUE IS"H
8100 PRINT
8200 PRINT
8300 PRINT"WOULD YOU LIKE A HARDCOPY ?"
8400 INPUT"     YES (1)     NO (2)";XB
8500 IF XB=1 GOTO 24600
8600 PRINT
8700 PRINT
8800 PRINT"DO YOU HAVE ANOTHER PRESENT VALUE OF A CONSTANT ANNUITY ?"
8900 INPUT"     YES (1)     NO (2)     ";I
9000 XX=1
9100 FOR XX=1 TO 25
9200 PRINT
9300 NEXT XX
9400 IF I=1 GOTO 6900
9500 PRINT
9600 PRINT
9700 PRINT"DO YOU HAVE ANY OTHER FINANCIAL PROBLEM"
9800 INPUT"     YES (1)     NO (2)     ";J
9900 IF J=1 GOTO 1400
10000 GOTO 30400
10100 PRINT"FUTURE VALUE"
10200 PRINT
10300 INPUT"WHAT IS THE PRESENT VALUE";L
10400 INPUT"HOW MANY PERIODS";M
10500 INPUT"WHAT IS THE INTEREST RATE";O
10600 R=O/100
10700 Q=(1+R)^M*L
10800 PRINT
10900 PRINT"THE FUTURE VALUE IS"Q
11000 PRINT
11100 PRINT
11200 PRINT"WOULD YOU LIKE A HARDCOPY ?"
11300 INPUT"     YES (1)     NO (2)";XC
11400 IF XC=1 GOTO 25800
11500 PRINT
11600 PRINT
11700 PRINT"DO YOU HAVE ANOTHER FUTURE VALUE PROBLEM ?"
11800 INPUT"     YES (1)     NO (2)     ";S
11900 XX=1
12000 FOR XX=1 TO 25
12100 PRINT
12200 NEXT XX
12300 IF S=1 GOTO 10100
12400 PRINT
12500 PRINT
12600 PRINT"DO YOU HAVE ANY OTHER FINANCIAL PROBLEM ?"
12700 INPUT"     YES (1)     NO (2)     ";T
12800 IF T=1 GOTO 1400
12900 GOTO 30400
13000 PRINT"FUTURE VALUE OF AN CONSTANT ANNUITY"
13100 PRINT
13200 INPUT"HOW MUCH IS THE PAYMENT";U
13300 INPUT"HOW MANY PERIODS";V
13400 INPUT"WHAT IS THE INTEREST RATE";W
13500 AA=W/100
13600 AE=(1+AA)^V
13700 AF=AE-1
13800 AG=AF/AA
13900 AB=AG*U
14000 PRINT
14100 PRINT"THE FUTURE VALUE IS"AB
14200 PRINT
14300 PRINT
14400 PRINT"WOULD YOU LIKE A HARDCOPY ?"
14500 INPUT"     YES (1)     NO (2)";XD
14600 IF XD=1 GOTO 27000
14700 PRINT
14800 PRINT
14900 PRINT"DO YOU HAVE ANOTHER FUTURE VALUE OF AN ANNUITY PROBLEM ?"
15000 INPUT"     YES (1)     NO (2)     ";AC
15100 XX=1
15200 FOR XX=1 TO 25
15300 PRINT
15400 NEXT XX
15500 IF AC=1 GOTO 13000
15600 PRINT
15700 PRINT
15800 PRINT"DO YOU HAVE ANY OTHER FINANCIAL PROBLEM"
15900 INPUT"     YES (1)     NO (2)     ";AD
16000 IF AD=1 GOTO 1400
16100 GOTO 30400
16200 PRINT"SINKING FUND FACTOR"
16300 PRINT
16400 REM THIS IS THE INVERSE OF THE FUTURE VALUE
16500 REM OF $1.00/PERIOD.  HOW MUCH TO SET ASIDE
16600 REM TO HAVE A SUM AT THE END OF A PERIOD.
16700 INPUT"WHAT IS THE AMOUNT YOU NEED IN THE FUTURE";AG
16800 INPUT"IN HOW MANY PERIODS DO YOU NEED THE MONEY";AH
16900 INPUT"WHAT IS THE INTEREST RATE PER PERIOD";AI
17000 AJ=AI/100
17100 AK=(1+AJ)^AH
17200 AL=AK-1
17300 AM=AL*(1+AJ)
17400 AN=(AJ/AM)*AG
17500 PRINT
17600 PRINT"SINKING FUND PER PERIOD IS"AN
17700 PRINT
17800 PRINT
17900 PRINT"WOULD YOU LIKE A HARDCOPY ?"
18000 INPUT"     YES (1)     NO (2)";XE
18100 IF XE=1 GOTO 28200
18200 PRINT
18300 PRINT
18400 PRINT"DO YOU HAVE ANOTHER SINKING FUND PROBLEM ?"
18500 INPUT"     YES (1)     NO (2)     ";AO
18600 XX=1
18700 FOR XX=1 TO 25
18800 PRINT
18900 NEXT XX
19000 IF AO=1 GOTO 16200
19100 PRINT
19200 PRINT
19300 PRINT"DO YOU HAVE ANY OTHER FINANCIAL PROBLEM ?"
19400 INPUT"     YES (1)     NO (2)     ";AP
19500 IF AP=1 GOTO 1400
19600 GOTO 30400
19700 PRINT"INSTALLMENT TO AMORTIZE"
19800 PRINT
19900 REM THIS IS THE INVERSE OF THE PV OF $1/PERIOD
20000 REM IT IS CONVENIENT WHEN COMPUTING THE EQUAL
20100 REM PERIODIC PAYMENTS TO ARMORTIZE A LOAN.
20200 INPUT"WHAT IS THE AMOUNT OF THE LOAN";AQ
20300 INPUT"WHAT IS THE MATURITY OF THE LOAN (IN PERIODS)";AR
20400 INPUT"WHAT IS THE INTEREST RATE PER PERIOD";AS
20500 AT=AS/100
20600 PRINT
20700 PRINT
20800 AU=(1+AT)^AR
20900 BA=1-(1/AU)
21000 BB=AT/BA
21100 AX=BB*AQ
21200 PRINT
21300 PRINT"THE MONTHLY PAYMENTS ARE"AX
21400 PRINT
21500 PRINT
21600 PRINT"WOULD YOU LIKE A HARDCOPY ?"
21700 INPUT"     YES (1)     NO (2)";XF
21800 IF XF=1 GOTO 29300
21900 PRINT
22000 PRINT
22100 PRINT"DO YOU HAVE ANOTHER INSTALLMENT LOAN PROBLEM"
22200 INPUT"     YES (1)     NO (2)     ";AY
22300 XX=1
22400 FOR XX=1 TO 25
22500 PRINT
22600 NEXT XX
22700 IF AY=1 GOTO 19700
22800 PRINT
22900 PRINT
23000 PRINT"DO YOU HAVE ANY OTHER FINANCIAL PROBLEM"
23100 INPUT"     YES (1)     NO (2)     ";AZ
23200 IF AZ=1 GOTO 1400
23300 GOTO 30400
23400 REM PRINTOUT FOR PRESENT VALUE PROBLEMS
23500 LPRINT"PRESENT VALUE"
23600 LPRINT""
23700 LPRINT"WHAT IS THE FUTURE VALUE";FV
23800 LPRINT"HOW MANY PERIODS";N
23900 LPRINT"WHAT IS THE INTEREST RATE";P
24000 LPRINT ""
24100 LPRINT"THE PRESENT VALUE IS";PV
24200 LPRINT""
24300 LPRINT""
24400 LPRINT""
24500 GOTO 5400
24600 REM PRINTOUT FOR THE PV OF A CONSTANT ANNUITY
24700 LPRINT"PRESENT VALUE OF AN CONSTANT ANNUITY"
24800 LPRINT""
24900 LPRINT"WHAT IS THE AMOUNT OF THE PAYMENTS";D
25000 LPRINT"HOW MANY PERIODS";E
25100 LPRINT"WHAT IS THE INTEREST RATE";F
25200 LPRINT""
25300 LPRINT"THE PRESENT VALUE IS"H
25400 LPRINT""
25500 LPRINT""
25600 LPRINT""
25700 GOTO 8600
25800 REM PRINTOUT OF A FV
25900 LPRINT"FUTURE VALUE"
26000 LPRINT""
26100 LPRINT"WHAT IS THE PRESENT VALUE";L
26200 LPRINT"HOW MANY PERIODS";M
26300 LPRINT"WHAT IS THE INTEREST RATE";O
26400 LPRINT""
26500 LPRINT"THE FUTURE VALUE IS";Q
26600 LPRINT""
26700 LPRINT""
26800 LPRINT""
26900 GOTO 11500
27000 REM PRINTOUT OF A FV OF A K ANNUITY
27100 LPRINT"FUTURE VALUE OF AN CONSTANT ANNUITY"
27200 LPRINT""
27300 LPRINT"HOW MUCH IS THE PAYMENT";U
27400 LPRINT"HOW MANY PERIODS";V
27500 LPRINT"WHAT IS THE INTEREST RATE";W
27600 LPRINT""
27700 LPRINT"THE FUTURE VALUE IS";AB
27800 LPRINT""
27900 LPRINT""
28000 LPRINT""
28100 GOTO 14700
28200 REM PRINTOUT OF SINKING FUND 
28300 LPRINT"SINKING FUND FACTOR"
28400 LPRINT""
28500 LPRINT"WHAT IS THE AMOUNT OF MONEY NEEDED IN THE FUTURE";AG
28600 LPRINT"IN HOW MANY PERIODS DO YOU NEED THE MONEY";AH
28700 LPRINT"WHAT IS THE INTEREST RATE";AI
28800 LPRINT""
28900 LPRINT"SINKING FUND PER PERIOD IS";AN
29000 LPRINT""
29100 LPRINT""
29200 GOTO 18200
29300 REM INSTALLMENT TO AMORTIZE
29400 LPRINT"INSTALLMENT TO AMORTIZE"
29500 LPRINT""
29600 LPRINT"WHAT IS THE AMOUNT OF THE LOAN";AQ
29700 LPRINT"WHAT IS THE MATURITY OF THE LOAN (IN PERIODS)";AR
29800 LPRINT"WHAT IS THE INTEREST RATE";AS
29900 LPRINT""
30000 LPRINT"THE MONTHLY PAYMENTS ARE";AX
30100 LPRINT""
30200 LPRINT""
30300 LPRINT""
30400 XX=1
30500 FOR XX=1 TO 25
30600 PRINT
30700 NEXT XX
30800 PRINT "COPYRIGHT INFORMATION:"
30900 PRINT
31000 PRINT "THIS PROGRAM CARRIES A COPYRIGHT NOTICE"
31100 PRINT
31200 PRINT "I DO NOT AUTHORIZE ANY"
31300 PRINT "  * PROFIT MAKING
31400 PRINT "  * RESALE
31500 PRINT "  * COMMERCIAL USE
31600 PRINT
31700 PRINT
31800 PRINT "I DO GRANT LICENSE FOR PERSONAL USE"
31900 PRINT "TO ALL OSBORNE OWNERS . . . . "
32000 PRINT
32100 PRINT
32200 PRINT"                    J. EDDIE HILLARD"
32300 PRINT"                    2809 FRONTIER DRIVE"
32400 PRINT"                    RAPID CITY,  SD  57702"
32500 XX=1
32600 FOR XX=1 TO 5999
32700 NEXT XX
32800 XX=1
32900 FOR XX=1 TO 25
33000 PRINT
33100 NEXT XX
33200 PRINT "UNLESS A ^C IS ENTERED IN"
33300 PRINT "LESS THAN 10 SECONDS YOU"
33400 PRINT "WILL BE RETURNED TO YOUR SYSTEM"
33500 XX=1
33600 FOR XX=1 TO 9
33700 PRINT
33800 NEXT XX
33900 XX=1
34000 FOR XX=1 TO 5999
34100 NEXT XX
34200 SYSTEM

33500 XX=1
33600 FOR XX=1 TO 9
33700 PRINT
33800 NEXT XX
33900 