10 PRINT "Print out DIARY - DIARY.BAS"
11 PRINT:PRINT"Instructions for recommended paper size etc are in the MANUAL file.  Programmers may
12 PRINT"like to alter this program to type on the paper size they use in their own ring bound
13 PRINT"folder":PRINT:PRINT"by Keith M. Simons"
14 PRINT:PRINT "Quarto paper recommended.  Press [RETURN] after each input":PRINT
20 DATA Mon,Tues,Wed,Thurs,Fri,Sat,Sun
30 FOR a=0 TO 6:READ a$(a):NEXT
40 INPUT "First Day - 0=Mon, 1=Tue, 2=Wed, 3=Thu, 4=Fri, 5=Sat, 6=Sun?",a
50 INPUT "Which Month? ",a$ 
60 INPUT "How many days in month? ",aa
70 LPRINT CHR$(27);"3";CHR$(51);SPC(20);CHR$(15);CHR$(14)"DIARY - ";a$:LPRINT CHR$(27)"M"
80 FOR aaa=1 TO aa
90 LPRINT SPC(10);USING "##"; aaa;:LPRINT " "a$(a):a=(a+1)MOD 7
100 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 key to return to main menu or pr