Advertisement
cNUMBER OF DAYS C A L C U L A T I O N - - - - - - - - - - - - - - - - - - -
420 INPUT "Days
: ", IN
430 NS=SN+IN:Y~INTCNS/365)
440 M=l:0=0:GOSUB 850:AN=NS-N
450 IF AN>365 THEN SW=1:GOSUB 940
460 IF AN<1 THEN SW=-1:GOSUB 940
470 IF Y MOD 4>0 ORY MOO 100=0 ANDY MOD 400)0 T
HEN SW=0 ELSE SW=1
480 I=0:RESTORE 1080
490 READ X:IF AN<=X THEN 530
500 IF I=l AND SW=l THEN X=X+l
510 AN=AN-X:I=I+l:GOTO 490
520
530 GY=Y:GM=I:GD=AN:GU=-NS MOD 7
540 GOSUB 960
550 23$=STR$(ABS<IN>>
560 IF IN>0 THEN 2$="days after" ELSE 2$="days
be
fore"
570 23$=23$+2$
580 GE$=SG$:Y=GY:Z$=STR$(Y)
590 Z4$=" on "+Z$+STR$(GM)+"th-month":Z5$=STR$(GD
)+"th-day "+YO$(GU)
600 IF PSW=0 THEN 630
610 LPRINT 21$;Z2$:LPRINT 23$
620 LPRINT T2$:LPRINT 24$;Z5$:GOTO 180
630 CLS:PRINT ZlS:LOCATE 2,1:PRINT 22$
640 LOCATE 3,3:PRINT Z3$:LOCATE 0,5:PRINT Z4$:LOC
ATE 2,6:PRINT Z5$
650 IF INKEY$="" THEN 650 ELSE GOTO
180
660 ·---------- Start Year,Month,Day
670 PRINT "Start Year,Month,Day"-
680 GOSUB 760:SY=Y:SM=M:SD=D
690
700
710
720
730
740
750
760
770
780
790
800
810
820
GOSU~ 850:SN=N:SU=U
RETURN
·---------~ End
Year/Month/Day
PRINT :PRINT"End
Year,Month,Day"
GOSUB 770:EY=Y:EM=M:ED=D
GOSUB 850:EN=N:EU=U
RETURN
---------- Input Year,Month,Day
Z=Ql
INPUT
II
Y=Y+B(Zl
:
I I '
y' M' D
IF
Y<1583
OR M<l OR M>12 THEN 780
IF M=12 THEN
X=31:G □ t □
830
RESTORE 1080: FOR I:::: 1 TO M+ 1 :
f~EAD
X:
Nf~
X T I
Advertisement
