' Test prog 1
DIM INTEGER a=5
PRINT "a =";a
TEST a ''''''''' you forgot the parameter for the SUB

SUB TEST(BYVAL a AS INTEGER)
IF a = 5 THEN
 a = 10
 PRINT "In Sub a =";a
ENDIF
END SUB

PRINT "After Sub a =";a
END