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