内海さん・佐藤浩一郎さん・早瀬さん、回答有り難うございました。
6月号の回答のツマミグイをして、この程度でどうだろうか? という回答を作りました。
実行（印刷）結果は次の図のようになります。いろんな方法がありますから、自分で分かりやすい方法を選べばよいと思います。
1 <日時印刷>
2 $日付: LET Z01=DATENUM(TODAY); /* TODAYの日付連番 */
3 LET X11=YEAR(Z01);
4 LET X12=MONTH(Z01);
5 LET X13=DAY(Z01);
6 LET V01=NUM$(X11)+"年"+NUM$(X12)+"月"+NUM$(X13)+"日";
7 $時間: LET Z02=TIMENUM(NOW); /* NOWの時間連番 */
8 LET X21=HOUR(Z02);
9 LET X22=MINUTE(Z02);
10 LET V02=NUM$(X21)+"時"+NUM$(X22)+"分";
11 $日時: LET V03="印刷日時:"+V01+V02;
12 LET X03=LEN(V03); /* 印刷日時の桁数 */
13 $表桁: LET X05=STATUS(1,6); /* 表の使用桁数 */
14 $左余白: LET X07=X05-X03;
15 $印刷1: PRINT TITLE$,LF;
16 IF X07<=0 THEN GOTO $印刷3;
17 $印刷2: PRINT SP%X07;
18 $印刷3: PRINT V03,LF;
19 $印刷4: FOR X09=1 TO E;
20 PRINT L%X09,LF;
21 NEXT;
22 PRT;FF; /* Windowsプリンタの場合 */
23 $END: STOP;
□
