Radio Shack TRS-80 User Manual page 201

2080
P.
"RATE
OF
"
;R;"
%
FOR
»
,D,"
DAYS, THE
INTEREST
2090 P."AMOUNTS
TO $ "
;
2100 REM
INTEREST
=
<
%
/
YR
)
/
(DAYS/YR)
* DAYS *
PRINCIPAL
2200
I
=
R/100
/
365 *
D
*
P
2300
P.tP."
"
,
"
$ "
,
I
2400 END
3000 REM
*
CREDIT UNION PROGRAM GOES HERE
*
3010
P."THEC.U.
PROGRAM HAS YET
TO BE WRITTEN."
3020 GOS. 10000
s
G.
100
4000 REM
*
MORTGAGE
LOAN PROGRAM GOES HERE*
4010
P."
THE M.L.
PROGRAM HAS YET
TO BE WRITTEN."
4020 GOS
.
10000
:
G
.
100
10000
F.
I=lTO2000sN.
I
:RET.
SAMPLE
ANSWER
TO
EXERCISE
24-1
Changes
in
only
two
lines are required:
60 IF CA=1)
+
(B=l)
+
<c=l) THEN 100
100
P.
"A GATE
IS OPEN. OLD BESSIE
IS
FREE
TO WANDER."
Line
60 reads "If gate
A
is
open
OR
gate
B
is
open
OR
gate
C
is
open, then
GOTO
100."
SAMPLE ANSWER
TO
EXERCISE
24-2:
40 IF
((INT (X/16)
*
16-XlOB)
*
((INT
(
Y/6
)
*
6-Y)O0)THEN
601
Here's one
way
to create uniform
boundaries: