Radio Shack TRS-80 - 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: