home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / ON < prev    next >
Text File  |  1991-08-28  |  921b  |  49 lines
  1. > watch(off)
  2. > value = 10
  3. > start:
  4. > on (value,L1,L2,L3,L4,L5,L6,L7,L8,L9,L10)
  5. > message ('Invalid numeric for ON command')
  6. > watch(on)
  7. > wait()
  8. > end
  9. > L1:
  10. > message ('Arrived at label 1')
  11. > value = value - 1
  12. > goto start
  13. > L2:
  14. > message ('Arrived at label 2')
  15. > value = value - 1
  16. > goto start
  17. > L3:
  18. > message ('Arrived at label 3')
  19. > value = value - 1
  20. > goto start
  21. > L4:
  22. > message ('Arrived at label 4')
  23. > value = value - 1
  24. > goto start
  25. > L5:
  26. > message ('Arrived at label 5')
  27. > value = value - 1
  28. > goto start
  29. > L6:
  30. > message ('Arrived at label 6')
  31. > value = value - 1
  32. > goto start
  33. > L7:
  34. > message ('Arrived at label 7')
  35. > value = value - 1
  36. > goto start
  37. > L8:
  38. > message ('Arrived at label 8')
  39. > value = value - 1
  40. > goto start
  41. > L9:
  42. > message ('Arrived at label 9')
  43. > value = value - 1
  44. > goto start
  45. > L10:
  46. > message ('Arrived at label 10')
  47. > value = value - 1
  48. > goto start
  49.