Advertisement
UTILITY:J
e calendar currently used throughout the world is called the Gregorian calendar,
roduced by Pope Gregory XI II in October of 1582. Before that, the calendar had
en subject to an error of one day every 128 years. For this reason, this program is
signed such that it does not accept year data in or before 1582. The Gregorian
endar is quite accurate since it eliminates the above-mentioned error by providing
a leap year of 366 days every fourth year except for century years (which are leap
ars 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
Advertisement
