Bug fix for when reading raw exernal text files with sequencial input mode "I" about pcbasic

[robhagemans]

Hi, apologies for the late response. I'm not sure I understand the issue you're reporting correctly as the program pasted is incomplete and doesn't run (AL should be defined; there needs to be a DEFSTR A for the first line to be syntactically correct, which implies AO is also a string, is that intended? line 6510 is undefined). Could you please include a working test case, including the outcome you see and the outcome you would have expected to see instead?

[robhagemans]

OK, I think this is what is meant:

test program

10 DEFSTR A
20 AL="TEST_SEQ.DAT"
65 OPEN "I",3,AL:O=1
66 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

outcome in PC-BASIC
Type Mismatch in 66

outcome in GW-BASIC
no error

The issue is that the INPUT implementation ignores the DEFSTR and tries to read AO as Single instead of Integer.
Thanks for the proposed code fix which resolves the issue, I'll include.