DECLARE SUB ReportErr (ErrorNumber AS INTEGER)
DECLARE SUB FatalErr (ErrString AS STRING)
DECLARE SUB Warning (w AS STRING)

COMMON SHARED /SrcInfo/ SrcLineNo AS INTEGER  'current line no in source file
COMMON SHARED /SrcInfo/ CurSrcFile AS STRING 'current source file
COMMON SHARED /SrcInfo/ SrcLine AS STRING    'current instruction

