100 gosub 200
110 print "succeeded"
120 stop

200 print "subroutine"
210 return