home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / os2 / bubba.arj / BUBBADIR.ZIP / CISOFF.TPL < prev    next >
Encoding:
Text File  |  1992-02-13  |  489 b   |  37 lines
  1. onlinetest "on"
  2. output "\r"
  3. set count 5
  4.  
  5. :MAIN1
  6. input 10 "Forum"
  7. if offline goto NOGO
  8. if success goto GOODBYE
  9. reinput "Forum"
  10. if success goto GOODBYE
  11. if count goto MAIN1
  12. goto DONE
  13.  
  14. :GOODBYE
  15. output "off\r"
  16. set count 5
  17.  
  18. :BAGOUT
  19. input 10 "Host Name"
  20. if offline goto NOGO
  21. if success goto HANGUP
  22. reinput "Host Name"
  23. if success goto HANGUP
  24. if count goto BAGOUT
  25. goto DONE
  26.  
  27. :HANGUP
  28. output "OFF\r"
  29.  
  30. :DONE
  31. onlinetest "off"
  32. output @TERMSTRING
  33. exit 0
  34.  
  35. :NOGO
  36. exit 1
  37.