Casio FP-200 - Page 93

UTILITY:J
The calendar currently used throughout the world is called the Gregorian calendar,
introduced by Pope Gregory
XI II in October of 1582. Before that, the calendar had
been subject to an
error of one day every 128 years. For this reason, this program is
designed such that it does not accept year data in or before 1582. The Gregorian
calendar
is quite accurate since it eliminates the above-mentioned error by providing
for a leap year of 366 days every fourth year except for century years (which are leap
years only if
they are divisible by 400).
lQ CD[§] rr.J
2
3 Calender (FP-200 & FP-1011PL)
4
5
copyright 1983 A.Kakizono
6
7 1983/6/11
8
9 "*********************************
1(2)0
110 CLEAR 1023:DIM L$(6)
120 L$ <0> ="Su Mo Tu We Th Fr Sa"
130 "
140 CLS:PRINT "* CALENDAR •. FP-200 *"
1816 Bytes
150 INPUT" Printer (Y/N) :",Z$:PSW=0:IF Z$="Y" 0
R
Z$="y" THEN PSW=1 ELSE 200
160 INPUT "Char. size(Q)"'"2): ",CS: IF CS<0 OR CS>2 I
HEN 160
2(2]0
210 PRINT:INPUT "Year :",N:S=Ci'l
220 IF N<1583 THEN 210
230 INPUT "Month :",T: IF T<l OR T>12 THEN 230
240
250 Y=N:Z=T:GOSUB 400:Al=X
260 Y=N:Z=T+l:GOSUB 400:A2=X
270 FOR J= 1 TO 6: L$ (J > =
1111
: NEXT J: GOSUB 500: GOSUB
600
280 IF PSW=l THEN GOSUB 700:PRINT:GOTO 200
290 IF INKEY$="" THEN 290 ELSE PRINT:GOTO 200
400 "
410 IF Z<3 THEN Y=Y-1:Z=Z+12
97