CAB A+ Series - Page 411

411
411
411cab 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>
Small program to show usage of local and static variables.
Uses ASCII dump mode to show what happens:
Example:
a-Series basic compiler