SUB Give_Error (a$)
    Error_Happened = 1
    Error_Message = a$
END SUB