#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 以上です。