SHARED command inside SUBs/FUNCTIONs implemented

Demo #7 will support the SHARED statement, not to be confused with the shared in DIM SHARED.

For example:

DIM b(10) AS INTEGER
mysub
PRINT a, b(5), c$

SUB mysub
SHARED a, b() AS INTEGER, c$
a=2
b(5)=3
c$="hello"
END SUB