#11 Article 81 Posted at 1987/02/06 20:28:13 by Sysopポリアンナ (MAP001) [PRG.CHA]

Subject: Re: 下のローダー /79

こんにちは。Sysopのポリアンナです。
 チャイさんのプログラム(Article#79)では、CR($0D)と
LF($0A)をキャンセルしていらっしゃらないようなので、まともに動かない
ようです。
 次のようなルーチンにしたら動きましたので、御参考にしてください。

変更点:
 (1) : 140行 , 150行 を削除する。
 (2) : 次のリストをつけ加える。

140 A$=INPUT$(1,1)
141 IF ASC(A$)<&H30 THEN 140
142 A%=ASC(A$)-&H30
143 FOR I=0 TO 5
144 A$=INPUT$(1,1)
145 IF ASC(A$)<&H20 THEN 144
146 C(I)=ASC(A$)-&H20
147 NEXT

以上です。