I have learned something new: how to get a run-time syntax error

[TDarcos]

In the following code

Code: (Select All)

Dim a As Integer

On Error GoTo Error1



Read a

Read b



Print a

Print b

End



Dim As Integer ER, EL

Error1:

ER = Err: EL = _ErrorLine

Resume Quit







Quit:

Print "?Error"; ER; " on line"; EL; "described as "

Print _ErrorMessage$(ER)

End



Data 6

Data 7        ' the number

It will trap with an error 2 on line 5. I discovered something today:
You can't put a comment on a data statement.
Without the comment it works just fine.