int a = 1 'Global variable

openconsole
print
print
print "    Global variable 'a' before sub routine = ",a
print

MySub()

print
print "    Global variable 'a' after sub routine = ",a
print
print
print "    Press any key to end"
print
print
do:until inkey$ <> ""
closeconsole
end

sub MySub()
    int x = 0
    int a = 0 'Local variable

    for x = 1 to 1000
        a ++
    next x

print
print "    Local variable 'a' = ",a
print

endsub