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 / on.bas < prev    next >
BASIC Source File  |  1993-11-09  |  310b  |  15 lines
  1. 10 print "ON.BAS -- Test ON...GOTO Statement"
  2. 20 input "Enter a number 1-5:";n
  3. 30 on n goto 40, 60, 80, 100, 120
  4. 40 print "You entered 1"
  5. 50 goto 140
  6. 60 print "You entered 2"
  7. 70 goto 140
  8. 80 print "You entered 3"
  9. 90 goto 140
  10. 100 print "You entered 4"
  11. 110 goto 140
  12. 120 print "You entered 5"
  13. 130 goto 140
  14. 140 end
  15.