10 CLS
20 SCREEN 2
30 CLS
35 LOCATE 25, 1
36 PRINT "PRESS ANY KEY TO CONTINUE"
40 LINE (0, 8)-(637, 199), 3, B
50 FOR UU = 8 TO 200 STEP 39
60 LINE (0, UU)-(637, UU)
70 NEXT UU
80 FOR UU = 0 TO 600 STEP 90
90 LINE (UU, 8)-(UU, 199)
100 NEXT UU
105 LOCATE 1, 1
110 PRINT "Aug   SUN       MON        TUE        WED       THU        FRI        SAT 2009"
120 A = -6
130 FOR UU = 3 TO 26 STEP 4.8
140 FOR U = .3 TO 7.3 STEP 1.14
150 LOCATE UU, U * 9.7
160 A = A + 1
170 IF A <> VAL(MID$(DATE$, 4, 2)) THEN GOTO 210
180 LOCATE UU, (U * 9.7) + 4
190 PRINT "Today"
200 LOCATE UU, U * 9.7
210 IF A < 1 THEN GOTO 240
220 IF A > 31 THEN GOTO 240
230 PRINT A
240 NEXT U
250 NEXT UU
260 LOCATE 4, 36
270 PRINT ""
280 LOCATE 14, 69
290 PRINT ""
300 LOCATE 4, 58
310 PRINT ""
320 LOCATE 23, 4
325 PRINT "30"
326 LOCATE 23, 15
327 PRINT "31"
330 WHILE INKEY$ = "": WEND
350 SYSTEM