Radio Shack TRS-80 PC-3 Owner's Manual page 259

PROGRAM LIST
20:1NPUT "START YEAR=";
R,"MONTH=";S,"DAY=9;
T
30:1NPUT "END YEAR=";F,
"MONTH=";y,9DAY=";~
50:H=R
60:G=S:I=T
70:GOSUB 500
a0:J=1
100:H=F
110:G=\I:1=~
120:GOSUB 500
130:X=1-J
140:~A1T
: USING PRINT
9DAYS=",X
150:GOTO 30
500:IF G-3)=0 LET G=G+1:
GO TO 520
510:G=G+13:H=H-1
520:I= 1NT (365.25*H)+
INT <30.6*G)+I
530:I=I- INT (H/100)+
INT (H/400)-306-122:
RETURN
600: 9 Z": E"'D
270
MEMORY CONTENTS
A
B
C
D
E
F Year (after calculation)
G
vi
H
vi
I
vi
J
vi
K
L
M
N
a
p
Q
R Start year
S Month of base date
T Day of base date
264
u
V Month of target date
W
Day of ta rget date
X Number of days
Y
Z