20 M$=MN$(MN):PRINT CHR$(147);CHR$(5);SPC((40-LEN(M$))/2);M$
25 PRINT SPC(17);YR
30 PRINT:PRINT"   SUN  MON  TUE  WED  THR  FRI  SAT"
40 FOR T=1 TO 6
45 L1$=CHR$(167):L2$=CHR$(175):L3$=CHR$(186)
50 PRINT CHR$(144);:GOSUB200:GOSUB210:GOSUB210:NEXT:GOSUB200
55 R$=CHR$(13):PRINT CHR$(19);R$;R$;R$
60 FOR L=1 TO 6:PRINT" ";L1$:PRINT SPC(36);L1$
70 PRINT SPC(36);L1$:NEXT:PRINT" ";L1$
100 RETURN
200 PRINT"  ";:FOR L=1 TO 7:PRINT L2$;L2$;L2$;L2$;L3$;:NEXT:PRINT:RETURN
210 PRINT" ";:FOR L=1 TO 7:PRINT L1$;"    ";:NEXT:PRINT:RETURN
999 END