Casio FP-200 - Page 94

rPERPETUAL CALENDAR-----------------------.
98
420 U=INT(Y/100):V=Y-U*100:X=INT(U/4)-U*2+V+INT<V
/4)+INT<<Z+1>*26/10):X=X-INTCX/7)*7
430 RETURN
500 '
510 A=A2-A1:IF A1<=A2 THEN A=A+28 ELSE A=A+35
!520 B=Al:C=0:IF S=l THEN M$="S"+STR$CN-1925)+CHR$
(242) +STRS CT> +CHR$ (243) ELSE M$=STR$ <N> +". "+STRS <T>
530 B1=A1:B2=A2:I=1:IF 81<>0 THEN FOR J=l TO B1:L
$(I)=l$(I)+" *":NEXT J
540 FOR J=B TO 6:C=C+1:L$CI>=L$CI>+RIGHT$(" "+STR
$CC) ,3):IF A=C THEN 560
550 NEXT J:L$CI>=MID$(L$Cl),2):8=0:I=I+1:GOTO 540
560 IF 82=0 THEN 580
570 FOR J=1 TO 7-B2:L$(I)=l$(I)+" *":NEXT J:L$(I
) =MIO$ ( L $ ( I > , 2 >
580 RETURN
600 '
610 CLS:FOR J=0 TO !:PRINT L$(J);:NEXT J:PRINT ti
<";M$;" > .. ;
620 INIT(0,0) ,l,1:X=159:Yl=I*B+7
630 DRAW (0,7)-<X,7)-(X,Yl)-(0,Y1)-(0,7)
640 RETURN
700 '
710 X=(CS+1)*1.2:Xl=X*9/2:X2=X*51/2:Y1=X/2:Y2=-<X
*2+Y1):Y3=-((I+1)*X*2+Y1):Y1=-Y1
720 LPRINT CHR$(28)+CHR$(37):LPRINT "Otl:LPRINT "J
1": LPRINT t191. 6
11
: LPRINT "U2!"
730 LPR I NT "D
11
; X 1 ;
11
, ti ; Y 1 ;
11
, "; X 2; " , "; Y 1 ;
11
, " ; X 2; ti ,
11
; Y3; ti , " ; X 1 ; " ,
11
; Y3; " , " ; X l ; " , " ; Y 1
740 LPRINT "M";Xl;
11
,";YZ:LF'RINT
11
Ll":LPRINT "D,";
X2;
11
, "; Y2
750 LPRINTI "M0,0":LPRINT
11
S
11
;CS:LPRINT "J2
11
:LPRIN
T "M";X*l0;",0
11
:LPRINT "P
11
;M$
760 FOR J=0 TO I:LPRINT
11
M
11
;X*5;",
11
;--X*2*(J+l):LP
RINT "J3":LPRINT
11
P";LEFT$CL$CJ),2l:LF'RINT
11
J0
11
:LF'R
I NT
II
F'
11
; MI 0$ ( L $ ( J l , 3 l : NEXT J
770 LPRINT
11
H
11
:LPRINT CHR$(28)+CHR$(46):LPRINT CH
Rt, < 27) ;
11
S 1
11
780 RETURN
!DEBUG)
This program permits outputting a calendar on a plotter. If an error occurs with
the P,lotter output, check the routine in lines 700 to 780.