1 REM https://sourceforge.net/p/pcbasic/discussion/bugs/thread/326e25d7
100 OPEN "OUTPUT.TXT" FOR OUTPUT AS 2
110 ON ERROR GOTO 200
140 OPEN "DATA.DAT" FOR RANDOM AS #1 LEN=1
145 GET #1, 1
150 INPUT #1, D$
160 PRINT #2,  D$
170 END
200 PRINT#2, "ERROR", ERR, ERL
210 RESUME NEXT

