Advertisement
rPERPETUAL C A L E N D A R - - - - - - - - - - - - - - - - - - - - - - - .
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.
Advertisement
