SET;;;LET V1=[9,@現在値 ];LET V2=[10,@現在値 ];ESC; LET V3=LEFT$(V1,4);LET V4=MID$(V1,5,2);LET V5=RIGHT$(V1,7); LET V6=LEFT$(V2,2);LET V7=MID$(V2,3,2); LET V8="印刷日時："+V3+"年"+V4+"月"+V5+"日"+V6+"時"+V7+"分"; LET X1=LEN(TITLE$);LET X2=LEN(V8);LET X3=STATUS(1,6)-X1-X2; PRINT TITLE$,SP%X3,V8,LF;L;5;7;N;;;L;;;L;S;7;Y;;; STOP