test12.b 80 B

123456
  1. 100 gosub 200
  2. 110 print "succeeded"
  3. 120 stop
  4. 200 print "subroutine"
  5. 210 return