home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / PRG / bwbasic-2.10.sit / bwbasic-2.10 / bwbtest / ongosub.bas < prev    next >
BASIC Source File  |  1993-11-09  |  326b  |  16 lines
  1. 10 print "ONGOSUB.BAS -- Test ON..GOSUB Statement"
  2. 20 input "Enter a number 1-5";n
  3. 30 on n gosub 60, 80, 100, 120, 140
  4. 40 print "The End"
  5. 50 end
  6. 60 print "You entered 1"
  7. 70 return
  8. 80 print "You entered 2"
  9. 90 return
  10. 100 print "You entered 3"
  11. 110 return
  12. 120 print "You entered 4"
  13. 130 return
  14. 140 print "You entered 5"
  15. 150 return
  16.