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