7行目 IF B[I]!=0 THEN PRINT B[I] としているなら IF B[I]!=0 THEN IF CSRX+LEN(STR$(I))>48 THEN PRINT PRINT B[I];","; ENDIF としてみて下さい。 数字を表示したときに右端をオーバーする場合は改行するようにしてあります。