home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / os2 / bubba.arj / BUBBADIR.ZIP / IBMOFF.TPL < prev    next >
Encoding:
Text File  |  1992-03-08  |  293 b   |  24 lines
  1. set count 5
  2. onlinetest "on"
  3.  
  4. :MAIN1
  5. input 5 "execute"
  6. if offline goto NOGO
  7. if success goto GOODBYE
  8. reinput "execute"
  9. if success goto GOODBYE
  10. if count goto MAIN1
  11. goto NOGO
  12.  
  13. :GOODBYE
  14. output "g\r"
  15. output "\r"
  16.  
  17. :DONE
  18. onlinetest "off"
  19. output @TERMSTRING
  20. exit 0
  21.  
  22. :NOGO
  23. exit 1
  24.