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