<DATEP>
ACCEPT "印刷対象？",V01;
G/F;%V01/1;LET X01=H;LET V02=L%X01;LET X02=LEN(V02);S;
O;XXX;%(X02-1);;;;ESC;
LET V03="印刷日時 : "
LET V04=LEFT$(NUM$(TODAY),4)+"年";
LET V05=NUM$(VAL(MID$(NUM$(TODAY),5,2)))+"月";
LET V06=NUM$(VAL(RIGHT$(NUM$(TODAY),7)))+"日";
LET V07=NUM$(VAL(LEFT$(NUM$(NOW),2)))+"時";
LET V08=NUM$(VAL(MID$(NUM$(NOW),3,2)))+"分";
LET V09=V03+V04+V05+V06+V07+V08;
LET [H,H]=V09;S;CPR;SH;1;
STOP;