こんなのをプログラムの最初に入れれば、どうでしょうか。 IF WIDTH()==8 THEN W=50 ELSE W=25 P$="":Y=CSRY-1 C=CHKCHR(0,Y) IF C==ASC("[") THEN I=1:C=CHKCHR(1,Y) WHILE C!=ASC("]")&&I<W INC P$,CHR$(C):INC I C=CHKCHR(I,Y) WEND ELSEIF C==ASC("O") THEN ELSE 'ERROR ENDIF INC P$,"/"