UTILITYJ
83121
IF
D<l
OR
D>X
THEN
78121
840
RETURN
850
·----------
Nomber
of
days
calculation
860
LJ:::Y-1
870
N=U*365+INT(U/4)-INT(U/1121121l+INT(U/412!0)+D
88121
RESTORE
1080
890
FOR
I=l
TO
M:READ X:N=N+X:NEXT I
900
IF
Y
MOD
4)121
ORY
MOD
112J0=12J
ANDY
MOD
400)0
T
HEN
920
910
IF
M>2
THEN
N=N+l
920
U=N
MOD
7
930
RETURN
940
·==========
Year
950
Y=Y+SW:AN=AN-365*SW:RETURN
96121
·==========
970
GE$=SG$:Y=SY:Z$=STR$(Y)
980
Z1$="From"+Z$+STR$(SM)+"th-month":Z2$=STR$(SD
)+"th-day
"+Y0$(SU)
990
RETURN
1000
'==========
112110
T$="*Days
calculation*"
1020
Tl$=="":FOR
I=l
TO
37:T2$=T2$+"-":NEXT
I:
1030
FOR
I=0
TO
6:READ
Y0$(l):NEXT
I
1040
RETURN
1050
1060
DATA
Sunday,
Monday,
Tues;ddy,
Wt->d11r,,,day,
Tl1ursdccty
,
Fr·
i
day,
Satur·day
1070
'
1080
DATA
0,31,28,31,30,31,30,31,31,30,31,30
t_QEBUG I
The
data
in line
1610
indicates
the
number
of
days
in
each
of
the
twelve
months.
The
adjustment
for
leap
years
is
made
by
lines
580,
1120,
1150
to
1160.
95
To Next Page
Loading...
