home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / os2 / bubba.arj / BUBBADIR.ZIP / IBMMSGS.TPL < prev    next >
Encoding:
Text File  |  1992-03-08  |  565 b   |  50 lines
  1. goto DONE
  2.  
  3. :MESSAGES
  4. output %msg
  5. call MORE
  6. return
  7.  
  8. :PROMPT
  9. set count 5
  10.  
  11. :PROMPT1
  12. input 12 %prompt
  13. if offline goto NOGO
  14. if success goto PROMPT2
  15. reinput %prompt
  16. if success goto PROMPT2
  17. output "\r"
  18. if count goto PROMPT1
  19. goto NOGO
  20.  
  21. :PROMPT2
  22. return
  23.  
  24. :MOREYES
  25. output "y\r"
  26. if offline goto NOGO
  27.  
  28. :MORE
  29. set count 5
  30.  
  31. :MORE1
  32. untilidle 2
  33. reinput "More"
  34. if success goto MOREYES
  35. reinput %prompt
  36. if success goto MOREDONE
  37. output "\r"
  38. if offline goto NOGO
  39. if count goto MORE1
  40. goto NOGO
  41.  
  42. :MOREDONE
  43. return
  44.  
  45. :DONE
  46. exit 0
  47.  
  48. :NOGO
  49. exit 1
  50.