DIM BUF[0] LOAD "TXT:ファイル名",MES$ FOR I=0 TO LEN(MES$)-1 PUSH BUF,ASC(MID$(MES$,I,1)) NEXT SAVE "DAT:ファイル名",BUF こういうことでいいのかなぁ？