IF A = 2 THEN
CRT "SOME TEXT"
END
WRITE THE.RECORD ON THE.FILE,THE.KEY ELSE
ERR.MESS = "Could not write"
GOSUB EXITERR
RETURN
END
WRITE THE.RECORD ON THE.FILE,THE.KEY ELSE
ERR.MESS = "Could not write"
GOSUB EXITERR
RETURN
END
IF A = 2 THEN
CRT "SOME TEXT"
END
WRITE THE.RECORD ON THE.FILE,THE.KEY ELSE
ERR.MESS = "Could not write"
GOSUB EXITERR
RETURN
END
WRITE THE.RECORD ON THE.FILE,THE.KEY ELSE
ERR.MESS = "Could not write"
GOSUB EXITERR
RETURN
END