1 <PRTDATE>
2 SET;;;LET V1=[9,@現在値 ];LET V2=[10,@現在値 ];ESC;
3 LET V3=LEFT$(V1,4);LET V4=MID$(V1,5,2);LET V5=RIGHT$(V1,7);
4 LET V6=LEFT$(V2,2);LET V7=MID$(V2,3,2);
5 LET V8="印刷日時："+V3+"年"+V4+"月"+V5+"日"+V6+"時"+V7+"分";
6 LET X1=LEN(TITLE$);LET X2=LEN(V8);LET X3=STATUS(1,6)-X1-X2;
7 PRINT TITLE$,SP%X3,V8,LF;L;5;7;N;;;L;;;L;S;7;Y;;;
8 STOP
プログラムの説明
2行 SET指令で設定表を表示させ、現在の日付、時刻をV1、V2に格納。
3，4行 V1、V2から年、月、日、時、分をV3からV7に格納。
5行 V8に"印刷日時："から、日付、時刻の分までを格納。
6行 現在の使用桁数からタイトルのバイト数、V8のバイト数を差し引いたバイト数を
X3(スペース部分)に格納。
7行 PRINT文でタイトル、SP、V8を印字、L;S;でページタイトル印刷をNとして、印刷。
印刷結果
□
