<日時印刷>
$日付:   LET Z01=DATENUM(TODAY);            /* TODAYの日付連番 */
         LET X11=YEAR(Z01);
         LET X12=MONTH(Z01);
         LET X13=DAY(Z01);
         LET V01=NUM$(X11)+"年"+NUM$(X12)+"月"+NUM$(X13)+"日";
$時間:   LET Z02=TIMENUM(NOW);                /* NOWの時間連番 */
         LET X21=HOUR(Z02);
         LET X22=MINUTE(Z02);
         LET V02=NUM$(X21)+"時"+NUM$(X22)+"分";
$日時:   LET V03="印刷日時:"+V01+V02;
         LET X03=LEN(V03);                   /* 印刷日時の桁数 */
$表桁:   LET X05=STATUS(1,6);                  /* 表の使用桁数 */
$左余白: LET X07=X05-X03;
$印刷1:  PRINT TITLE$,LF;
            IF X07<=0 THEN GOTO $印刷3;
$印刷2:  PRINT SP%X07;
$印刷3:  PRINT V03,LF;
$印刷4:  FOR X09=1 TO E;
            PRINT L%X09,LF;
         NEXT;
         PRT;FF;                      /* Windowsプリンタの場合 */
$END:    STOP;