CAB A+ Series Programming Manual page 413

a-Series basic compiler
413
Small program to show READ,DATA and RESTORE. Use ASCII dump mode to show what
happens:
Example:
cab Produkttechnik GmbH & Co KG
a
<ABC>
restore names
read maxnum
dim names$(maxnum)
for a=1 to maxnum:read names$(a):next a
for number=0 to 10
if (number>=1 and number<=maxnum) then
print „; „,number,"=",names$(number)
else
print „; Sorry, can't convert „,number
endif
next number
error „Program finished"
label names
data 9,"one","two","three","four","five","six"
data „seven","eight","nine"
</ABC>
413
413