xiuos/Ubiquitous/Nuttx/apps/examples/bastest/tests/test20.bas

 10 gosub 20
 20 gosub 30
 30 procb
 40 def proca
 50   print "hi"
 60   stop
 70 end proc
 80 def procb
 90   proca
100 end proc