test13.b 190 B

1234567
  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