a-Series basic compiler
411
Small program to show usage of local and static variables.
Uses ASCII dump mode to show what happens:
Example:
cab Produkttechnik GmbH & Co KG
a
<ABC>
for a=1 to 4:stars():next a
sub stars()
static a$
local b$
a$=a$+"*"
b$=b$+"*"
print "; ",a$," ",b$
end sub
</ABC>
411
411