按单月在左双月在右输出结果
这个日历程序我想按单月在左双月在右输出结果,我花了好长时间没弄出来,请大家帮帮我PRINT "**************2013***************"
k = 2
t = 1
DO
PRINT "***************"; t; "***************"
PRINT "SUN MON TUE WED THU FRI STA"
i = 1
DO
PRINT TAB(5 * k + 1); i;
k = k + 1
IF k >= 7 THEN
k = 0
END IF
i = i + 1
IF t = 1 OR t = 3 OR t = 5 OR t = 7 OR t = 8 OR t = 10 OR t = 12 THEN
a = 31
ELSE
IF t = 2 THEN
a = 28
ELSE
a = 30
END IF
END IF
LOOP UNTIL i > a
t = t + 1
REM
IF t = 4 OR t = 8 THEN
REM
INPUT x
END IF
REM
PRINT "*********************************"
LOOP UNTIL t > 12
END