PROCEDURE Change(BYVAL Text : STRING, BYREF Value : INTEGER)
ENDPROCEDURE
CALL Change(
    LEFT("text", 2),
    1)