home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / os2 / bubba.arj / BUBBADIR.ZIP / FERNMSGS.TPL < prev    next >
Encoding:
Text File  |  1992-02-17  |  324 b   |  30 lines
  1. goto DONE
  2.  
  3. :MESSAGES
  4. output %msg
  5. untilidle 3
  6. if offline goto NOGO
  7. return
  8.  
  9. :PROMPT
  10. set count 5
  11.  
  12. :PROMPT1
  13. input 12 %prompt
  14. if offline goto NOGO
  15. if success goto PROMPT2
  16. reinput %prompt
  17. if success goto PROMPT2
  18. output "\r"
  19. if count goto PROMPT1
  20. goto DONE
  21.  
  22. :PROMPT2
  23. return
  24.  
  25. :DONE
  26. exit 0
  27.  
  28. :NOGO
  29. exit 1
  30.