REM 944BASIC '今月のカレンダー1'
D=DATE:DD=D%100: REM 日付取得
W=32: REM 日付の表示間隔
DW=GETWEEK(D-DD+1,0):REM 1日の曜日
X=W*(DW+1)-(W/2): Y=44: FONT 80
FOR I=0 TO 6
 WK=GETWEEK(GETDATE(D-DD+1,7-DW)+I,4)
 GCURSOR W*I+12,20:PRINT WK:REM 曜日
NEXT I
FOR I=1 TO GETMONTH(D)
 IF X>W*7 THEN X=W-W/2:Y=Y+W+5
 GCURSOR X+2,Y-3:PRINT I:X=X+W:REM 日
NEXT I
MM=INT(D/100)%100: YY=INT(D/10000)
MM=STRCAT("-  ",YY,'. ',MM,'.  -')
GCURSOR 72,4: PRINT MM:REM 年月表示
KEYWAIT
END