誤） FOR I=0 TO LEN(MES$)-1:CH=ASC(MID$(MES$,I,1):GOSUB @DSPCHR:NEXT:RETURN 正） FOR I=0 TO LEN(MES$)-1:CH=ASC(MID$(MES$,I,1)):GOSUB @DSPCHR:NEXT:RETURN かっことじが1つ抜けていました^^;;;