Casio FP-200 - Page 90

cNUMBER OF DAYS CALCULATION-------------------
94
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
: II' 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