home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / os2 / bubba.arj / BUBBADIR.ZIP / CISMSGC.TPL < prev    next >
Encoding:
Text File  |  1992-02-17  |  302 b   |  29 lines
  1. goto DONE
  2.  
  3. :MESSAGES
  4. output %msg
  5. untilidle 3
  6. return
  7.  
  8. :PROMPT
  9. set count 5
  10.  
  11. :PROMPT1
  12. input 20 %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 DONE
  20.  
  21. :PROMPT2
  22. return
  23.  
  24. :DONE
  25. exit 0
  26.  
  27. :NOGO
  28. exit 1
  29.