1 'Club 100 Library (415) 939-1246 BBS, 937-5039 Newsletter, 932-8856 Voice 2 'This program prints full-page monthly calendars on screen 3 'Revised 4/5/91 by JOHN RUSSO. 5 E$=CHR$(27) 20 CLS:DIMDN$(7),MN$(12),MS(12) 30 FORCT=1TO7:READDN$(CT):NEXT:DATASun,Mon,Tue,Wed,Thu,Fri,Sat 40 FORCT=1TO12:READMN$(CT),MS(CT) :NEXT:DATAJANUARAY,31,FEBRUARY,28,MARCH,31,APRIL,30,MAY,31,JUNE,30,JULY,31,AUGUS T,31,SEPTEMBER,30,OCTOBER,31,NOVEMBER,30,DECEMBER,31 50 PRINT:PRINTE$"pWHAT ARE THE STARTING MONTH AND YEAR?","PLEASE SEPARATE THEM WITH A COMMA."E$"q":INPUTMM,YY:IFYY<100THENYY=YY+1900 55 IFMM=0ORMM>12THENGOTO50 60 IFYY>32000THENGOTO50 70 IFMM>2THENWD=365*YY+1+31*(MM-1)-INT(.4*MM+2.3)+INT(YY/4)-INT(3/4*INT((YY/100) +1))ELSEWD=365*YY+1+31*(MM-1)+INT((YY-1)/4)-(INT(3/4*INT(((YY-1)/100)+1))) 80 WD=WD-INT(WD/7)*7:IFWD<1THENWD=7 90 DY=MS(MM):IFMM=2ANDYYMOD4=0ANDYYMOD100<>0THENDY=29 100 TT$=MN$(MM)+" "+STR$(YY):SP=(35-LEN(TT$))/2:PRINT:PRINTSPACE$(SP);TT$:PRINT 110 FORDC=1TO7:SP=(9-LEN(DN$(DC)))/2+(DC-1)*5:PRINTTAB(SP);DN$(DC);:NEXT:PRINT 120 SD=2-WD:WK=INT(((MS(MM)+WD-8)/7)+2):FORWD=1TOWK:PRINTSPACE$(LM); 130 FORDC=1TO7:IFSD>=1ANDSD<=DYTHENPRINTUSING"#####";SD;:ELSEPRINT" "; 140 SD=SD+1:NEXT:PRINT:PRINTSPACE$(LM):NEXT 150 PRINTE$"p DO ANOTHER? Y/N "E$"q"; 160 A$=INKEY$ 170 IF A$="Y"THEN CLS:GOTO50 180 IF A$="N"THEN MENU 190 GOTO160