home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / os2 / bubba.arj / BUBBADIR.ZIP / CISAREA.TPL < prev    next >
Encoding:
Text File  |  1992-02-13  |  463 b   |  36 lines
  1. onlinetest "on"
  2.  
  3. output @FORUM
  4. set %prompt "Forum !"
  5. call PROMPT
  6. log session @TEMPLOG
  7. output "OPT;EDI EDIT;PAU N;S\r"
  8. call PROMPT
  9. output "NAM;1;M\r"
  10. untilidle 5
  11. close session
  12. if offline goto NOGO
  13. goto DONE
  14.  
  15. :PROMPT
  16. set count 5
  17.  
  18. :PROMPT1
  19. input 20 %prompt
  20. if offline goto NOGO
  21. if success goto PROMPT2
  22. reinput %prompt
  23. if success goto PROMPT2
  24. output "\r"
  25. if count goto PROMPT1
  26. goto DONE
  27.  
  28. :PROMPT2
  29. return
  30.  
  31. :DONE
  32. exit 0
  33.  
  34. :NOGO
  35. exit 1
  36.