表記のAUTOを作成してみました。入川さんの意図がどこにあるのか。まさにPIPS的な考えならその目的に合っていると思います。約2時間を要しました。
<枠外日付>/*表の枠の上に印刷日時を印刷*/
/*年月日を求める*/
let Z1=TODAY; /*現在年月日=西暦 20020512*/
LET V1=NUM$(Z1); /*ＺからV関数へ変換*/
LET V2=LEFT$(V1,4);/*西暦の年 2002を求める*/
LET Z1=VAL(V2); /*計算のためＺ関数へ*/
LET Z1=Z1-1988; /*西暦から平成に変換=年*/
LET V2=NUM$(Z1); /*平成の年*/
LET V3=KMID$(V1,5,2);/*西暦の総ケタ数8のうち左から5ケタから2ケタを求める=月*/
LET Z3=VAL(V3); /*０１月を １月へ*/
LET V3=NUM$(Z3);
LET V4=RIGHT$(V1,7);/*西暦の総ケタ数8のうち左から7ケタから2ケタを求める=日*/
LET Z4=VAL(V4); /*０１日を１日へ*/
LET V4=NUM$(Z4);
LET V20="印刷日時";LET V21=":";LET V12="平成";LET V13="年";LET V14="月";LET V15="日";
LET V5=V20+V21+V12+V2+V13+V3+V14+V4+V15;/*合成*/
/*時刻を求める*/
LET Z2=NOW;LET V15=NUM$(Z2);/*230130=23時1分30秒*/
LET V15=LEFT$(V15,2);/*6ケタのうち 23時部分を求める*/
LET Z15=VAL(V15) ;
LET V15=NUM$(Z15);
LET V16=KMID$(V15,3,2);/*分を求める*/
LET Z16=VAL(V16) ;
LET V16=NUM$(Z16);
LET V17="時";LET V18="分";
LET V19=V15+V17+V16+V18;
LET V20=V5+V19;
G;1; /*書き込むページを出す*/
NF;J;A; /*表の列を１列にしてしまう*/
MT;LET [T,1]=V20;ESC; /*表の最下行に 印刷日時を書き込む*/
S;G;*; /*書き込んだ画面をサブ画面へ退避*/
CPR;ST;1; /*先ほどの書き込み画面を呼び出し表の枠の上に書き込み*/
STOP;
□
