REM 944BASIC '今月のカレンダー2'
D=DATE:DD=D%100:MM=INT(DATE/100)%100
YY=INT(DATE/10000): W=32:W2=W/2
DW=GETWEEK(D-DD+1,0)
X=W*(DW+1)-W2: Y=W: FONT 80
FOR I=1 TO GETMONTH(D)
 IF I=DD THEN COLORFG 128,128,0 ELSE COLORFG 64,64,96:REM 本日の色変更
 IF X>W*7 THEN X=W-W2:Y=Y+W+5:COLORFG 192,64,64:REM 行送り、日曜色変更
 IF I<10 THEN GCURSOR X+2,Y-3 ELSE GCURSOR X-2,Y-3:REM 1桁日付位置調整
 LINE X+W2,Y-W/5,X+W2,Y+W2: LINE X+W2,Y+W2,X-W/5,Y+W2: PRINT I: X=X+W
NEXT I
MM=STRCAT("-  ",YY,'. ',MM,'.  -')
GCURSOR 72,4: PRINT MM
KEYWAIT
END