# sub pass test.bas

draw -1

top:

input "number",n

gosub add(n)

goto top

end

sub add(n)

a=n+1

print a

return