testgosub.wb 420 B

12345678910111213141516171819
  1. 100 'gosubとローカル変数のテスト
  2. 200 a=1
  3. 210 gosub 1000
  4. 220 if a <> 1 then print "220でエラー"
  5. 300 print "main return"
  6. 900 end
  7. 1000 'sub1
  8. 1010 print "sub1"
  9. 1100 a=123
  10. 1200 if a <> 123 then print "1200でエラー"
  11. 1300 gosub 2000
  12. 1400 if a <> 123 then print "1400でエラー"
  13. 1450 print "sub1 return"
  14. 1500 return
  15. 2000 'sub2
  16. 2010 print "sub2"
  17. 2100 a=321
  18. 2200 if a <> 321 then print "2200でエラー"
  19. 2500 return