a-Series basic compiler
412
Small program to show ON GOSUB. Uses ASCII dump mode to show what happens:
Example:
cab Produkttechnik GmbH & Co KG
a
<ABC>
for number=0 to 6
on number+1 gosub sorry,one,two,three,four,five,sorry
next number
end
label sorry:print "; Sorry, can't convert ",number:return
label one:print "; 1=one":return
label two:print "; 2=two":return
label three:print "; 3=three":return
label four:print "; 4=four":return
label five:print "; 5=five":return
</ABC>
412
412