lang/basic/test/test13.b

   1 100 rem compound goto
   2 110 leti=1:print i
   3 120 on i gosub 130, 140, 150
   4 121 printi"end":stop
   5 130 print "line130":i=i+1:return
   6 140 print "line140":i=i+1:return
   7 150 print "line150":i=i+1:return