もっといい方法がありそうだが… これで多分動きます。 DEF newPrint text$,posX DIM i FOR i=0 TO LEN(text$)-1 IF CSRX<posX THEN LOCATE posX, IF CSRX==50 THEN LOCATE posX,CSRY+1 ?text$[i]; NEXT END