1 2 3 4
// BYREF is procedure-only. FUNCTION Bad(BYREF X : INTEGER) RETURNS INTEGER RETURN X ENDFUNCTION