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