COM Example
10 COM A$[20],Number
20 COM /Test/B$[40],Counter
30 A$="Hello"
40 B$="World"
50 Number=7
60 Counter=78
70 CLEAR SCREEN
80 PRINT "In main"
90 PRINT "A$=";A$,"Number=";Number
100 PRINT "B$=";B$,"Counter=";Counter
110 Subit
111 PRINT
120 PRINT "If SUB and MAIN variables are equal, then test passes."
150 END
160 SUB Subit
170 COM A$,Number
180 COM /Test/B$,Counter
181 PRINT
190 PRINT "In SUB"
200 PRINT "A$=";A$,"Number=";Number
210 PRINT "B$=";B$,"Counter=";Counter
220 Number=2
230 SUBEND
