DECLARE SUB XSquare ()
DIM SHARED x AS INTEGER

CLS

x = 5

PRINT "x ="; x

XSquare

SUB XSquare
PRINT "The Square Of"; x; "Is:"; x
END SUB