PROGRAM no_pass
LET x = 10             ! local variable name x defined in main program
CALL add_one
PRINT x
END

SUB add_one
    ! variable name x not passed
    LET x = x + 1      ! local variable name defined in subroutine
END SUB