Radio Shack TRS-80 User Manual page 200

100
CLS
1
10
P
.
sP.
120
P.
"ENTER
THE NUMBER OF ONE OF THE
FOLLOWING INVESTMENTS"
130 P.
140
P."
1
-
CERTIFICATE OF
DEPOSIT"
150
P."
2
-
BANK SAVINGS
ACCOUNT"
160
P."
3
-
CREDIT UNION"
170
p."
4
-
MORTGAGE LOAN"
180
P.:IN." INVESTMENT"
(F
190 ON
F
GOTO
1000,2000,3000,4000
200 GOTO 100:
REM USED
IF
NUMBER NOT BETWEEN
1
AND
4
1000 REM
*
CERTIFICATE
OF
DEPOSIT PROGRAM GOES HERE
*
1010
P.
"THE
CD.
PROGRAM HAS YET TO BE
WRITTEN."
1020 GOS
.
10000
:
G
.
100
2000 REM *
BANK SAVINGS ACCOUNT PROGRAM
*
2010 CLS:P.
iP.
"THIS ROUTINE CALCULATES
SIMPLE INTEREST
ON"
2020
P." DOLLARS
HELD
IN
DEPOSIT
FOR
A
SPECIFIED
PERIOD"
2030
P."USINGA
SPECIFIED PERCENTAGE OF
INTEREST .".
P
.
2040
P.
J
IN.
"HOW LARGE IS
THE
DEPOSIT (IN
DOLLARS)"
jP
2050
IN.
"HOW LONG
WILL YOU
LEAVE IT IN (IN
DAYS)"
;D
2060
IN.
"WHAT
INTEREST RATE
DO YOU
EXPECT (IN X) " ;R
2070 CLSsP.
:P. iP.
"FOR
A
STARTING PRINCIPAL
OF
S" ;P;"AT A"
198