	
:                 SNOOPYCALENDAR
:    *****************************************5
:    * DOWNLOADED FROM C.A.M.S., CHICAGO IL. *j
(:    *****************************************r
2:
<:CONVERTED FOR B20 COMPUTER BY:
F:Charlie Brown, Central T.S.C
P M9(,T)
ZDEFAULTPTR$  [SPL]
dn ();PF: ()x:::[       This program prints a calendar for the year that you index.              ENTER 0 FOR THE YEAR TO EXIT THIS PROGRAM.::       Calendar for year: ;Y1 Y1           Print to (Default = ; DEFAULTPTR$). ; PRINTER$i (PRINTER$)    PRINTER$DEFAULTPTR$ : DEFAULTPTR$  PRINTER$ERC  DEFLPRINT(PRINTER$) ERC     Working .....;YOY1Y2Y1S1(Y2(Y2))   : S1	
Y1Y1(Y2)S1
Y2Y1
,Y2(Y2)A
6D1Y1Y2: D1    JJ
@D1U
JA$*^
TNFh
^ n
hy
r *;
|A$ 
N 
 
  ;YO;
N 
 
A$*
N
 
  
NF
   
W1W2D9' ,4D9S1>0 ,H:D9RD ,\ND9fX ,pbD9zl ,vD9 ,D9 ,D9 ,D9 ,D9 ,D9 ,D9 , W1W2  8*A$*A4NFK> UH  _R i\ tfA$*}pNFz     A$*NF     A$*NF ERC  DEFLPRINT([NUL])3 ERC    = dK W  W$ * ;h. D7W1  W2s8 .;BNM9(W,D7)L N  j :   ;N;V  ; tj    ;t ((D7)((D7)))   :  D7W2   * ; D7 * W+W1W18W2W2>G Y$R *;]A$ eNo y Y$;N
  *;N( 2 Y$< Y$;FNP Z *;dNn x Y$ Y$;N  *$ *;,NL   S  M  T  W  T  F  S ;VNNf N  q *;{  * A$;NN N   : ,D6 W  @ D7W1  W2J .;T DD9   :  D  |'^ D7D1  h : |6hM9(W,D7)@r O|M9(W,D7)DYDDc  Dc   : D1D7DcM9(W,D7) D7 WW1W2W2W2  JANUARY ,FEBRUARY ,  MARCH  ,  APRIL  2    MAY   ,  JUNE   ,  JULY   , AUGUST  h SEPTEMBER, OCTOBER ,NOVEMBER ,DECEMBER n SYSTEM ERROR CODE IS ;ERC  RETURN
1540 D=1
1550 FOR W=1 TO 6
1560 FOR D7=W1 TO W2
1570 PRINT .;
1580 IF D>D9 THEN 1650 ELSE IF D>1 THEN 1620
1590 IF D7<D1 THEN 1600 ELSE 1620
1600 M9(W,D7)=0
1610 GOTO 1680
1620 M9(W,D7)=D
1630 D=D+1
1640 GOTO 1680
1650 IF D=99 THEN 1670 ELSE D1=D7+7
1