10 ' test for issue #218
20 ' TYPE MISMATCH on file read after DEFSTR
30 OPEN "ERRORS.TXT" FOR OUTPUT AS 1
40 ON ERROR GOTO 10000
110 DEFSTR A
120 AL="TEST_SEQ.DAT"
165 OPEN "I",3,AL:O=1
166 IF EOF(3) THEN CLOSE 3:O=O-1:RETURN ELSE INPUT #3,O(O),O1(O),AO(O):O=O+1:GOTO 6510
6510 REM
9999 END
10000 PRINT#1, ERR, ERL
10010 RESUME NEXT

