Radio Shack TRS-80 User Manual page 187

75
REM*CONVERT WEEKLY
INCOME INTO DAILY*
80
D=W/5
100
PRINT
Y
,
M, W ,D
110
NEXT
Y
SAMPLE RUN FOR
11-3:
YEAR
SALARY RATE CHART
MONTH
WEEK
DAY
5000
41
6
.667 96
.
1538
19
.2308
6000
500 115. 385
23 .0769
7000
583. 333 134 .615
26 .9231
ETC,
SAMPLE
ANSWER FOR
EXERCISE
114:
10 R =
.01
20
D =
1
30 T = .01
35
CLS
40
PRINT "DAY
"
,
"DAILY
"
,
"TOTAL
"
50
PRINT "
ft"
,
"RATE "
."EARNED"
60
PRINT
70
PRINT D.R.T
80 IF R > 1E6
END
90
R = R
*
2
185