10 CLS 20 SCREEN 2 30 CLS 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 110 PRINT "Dec SUN MON TUE WED THU FRI SAT 2019" 120 A = 0 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 "" 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 23, 15 270 PRINT "" 280 LOCATE 18, 37 290 PRINT "Christmas" 300 LOCATE 23, 4 310 PRINT "" 320 LOCATE 9, 1 330 LOCATE 14, 69 331 PRINT "Winter" 350 FOR W = 1 TO 10000 360 NEXT W 370 SYSTEM