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