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