例外発生行を再度読む

SET #n POINTER SAME を用いて,型の不一致やデータ個数の過不足などで正しく読めなかった行を再度読むことができます。

100 OPEN #1:NAME "A:abc.txt"
110 DO
120    WHEN EXCEPTION IN
130       INPUT #1,IF MISSING THEN EXIT DO: a,s$
140       PRINT a,s$
150    USE
160       SET #1:POINTER SAME
170       LINE INPUT #1:t$
180       PRINT "error",t$
190    END WHEN
200 LOOP
210 END

戻る