<TEST> /* DOS版のオート */
G;DATA/1;
DISP OPEN(1,1,80,3);
DISP "; 確定 = [Enter]。 入力終了は「CD」行にカ-ソルを入れ[Enter]";;
$書1: WC;10;H;
$書?: ?;LET X10=ROW;
IF X10=0 THEN GOTO $書ESC;
IF X10=8 THEN GOTO $書2 ELSE GOTO $書?;
$書ESC:ESC;GOTO $書1;
$書2: ESC;
IF LEN([X10,4])=0 THEN GOTO $書ESC;
COL;O;C;%X10;A; CLOSE;STOP;