200 PRINT "Print out CALENDAR"
205 PRINT"Full instructions for use are in the MANUAL file on this disc.  Prints onto paper.":PRINT"Preferably lined Quarto, or perhaps A4.  The first question is to find out what day of"
206 PRINT"the week the year starts at.  Press 0 [RETURN] if Monday 1st January, 1 [RETURN] if
207 PRINT"Tuesday etc..
208 PRINT:PRINT"Program by Keith M. Simons":PRINT
210 INPUT "First Day - 0=Mon, 1=Tue, 2=Wed, 3=Thu, 4=Fri, 5=Sat, 6=Sun?",day
220 INPUT "Which year? ",yr
230 DIM b$(12),b%(12),c$(37):RESTORE 240:FOR a=1 TO 12:READ b$(a),b%(a):NEXT
240 DATA January,31,February,28,March,31,April,30,May,31,June,30,July,31,August,31,September,30,October,31,November,30,December,31
250 IF (yr MOD 4)=0 THEN b%(2)=29
252 ssp=25
254 FOR mn=1 TO 12
255 c$(rw)=c$(rw)+SPACE$((21-LEN(b$(mn)))/2)+b$(mn):rw=rw+1
260 c$(rw)=c$(rw)+"Mo:Tu:We:Th:Fr:Sa:Su":rw=rw+1
270 c$(rw)=c$(rw)+SPACE$(day*3):pl=day*3
280 FOR a=1 TO b%(mn)
290 IF pl>6*3 THEN rw=rw+1:pl=0
300 c$(rw)=c$(rw)+DEC$(a,"##")+" ":pl=pl+3
310 NEXT
313 FOR a=ln TO ln+8:WHILE LEN(c$(a))<ssp:c$(a)=c$(a)+" ":WEND:NEXT
314 PRINT ".";
315 'FOR a=ln TO ln+7:c$(a)=c$(a)+SPACE$(LEN(c$(a))-(23*((mn+1) MOD 3))):NEXT
316 IF (mn)MOD 3=0 THEN ln=ln+9:rw=ln:ssp=25:ELSE rw=ln:ssp=ssp+25
320 day=(day+b%(mn))MOD 7
330 NEXT:PRINT
335 LPRINT CHR$(27);"3";CHR$(51);CHR$(27)"M"CHR$(14);SPACE$(15);"CALENDAR -";yr:LPRINT
340 FOR a=0 TO 34:LPRINT SPC(9);c$(a):NEXT:LPRINT CHR$(12);
25000 IF FIND$("M:$$$$$$$$.&&&")<>"" THEN OPTION STOP:PRINT "[Press any key to return to main menu or press (STOP) to stop]":z$=INPUT$(1):RUN "M:$$$$$$$$.&&&":ELSE END
OPTION STOP:PRINT "[Press any k