传值与传引用
PRINT mymax(12, 111)
x1 = 55x2 = 66
myswap
PRINT x1
FUNCTION mymax (x, y)
IF x > y THEN
mymax = x
ELSE
mymax = y
END IF
END FUNCTION
SUB myswap
SHARED x1, x2
temp = x1
x1 = x2
x2 = temp
END SUB
FOR i = 1 TO 10
PRINT nowvalue
NEXT i
FUNCTION nowvalue
STATIC x
x = x * x MOD 198 + 1999
nowvalue = x
END FUNCTION
