Advertisement
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.
Advertisement
