GLOBAL
    DECLARE Counter : INTEGER
ENDGLOBAL
PROCEDURE Increment()
    Counter <- Counter + 1
ENDPROCEDURE
FUNCTION Status RETURNS INTEGER
    RETURN 4294967298 + Counter
ENDFUNCTION