home *** CD-ROM | disk | FTP | other *** search
/ Mega Top 1 / os2_top1.zip / os2_top1 / APPS / DATACOM / TERM / LW2_HACK / LW_HACK.SCR < prev   
Text File  |  1993-10-15  |  842b  |  45 lines
  1. **  Clear Screen
  2. ClrScr
  3.  
  4. ** Set up variables
  5. Int Log
  6. Int Yes
  7. Int Nope1
  8. Int Nope2
  9. Int Nope3
  10. ** set this variable to the number you wish to start checking from
  11. Int Counter=733-2285
  12.  
  13. ** set up events to track
  14. Event Yes Online Found
  15. Event Nope1 Find "NO CARRIER" ClearLine
  16. Event Nope2 Find "BUSY" ClearLine
  17. Event Nope3 Find "VOICE" ClearLine
  18.  
  19. ** dial the number in Counter
  20. :DoDial
  21. ClrScr
  22. Disp "Looking for modem at: " Counter \n \n
  23. Send "ATDT*67," Counter \n
  24. wait 38
  25.  
  26. ** Clear the line (hangup)
  27. :ClearLine
  28. Hangup
  29. Wait 3
  30. Inc Counter,1
  31. Goto DoDial
  32.  
  33. ** Write to a log file, the number where a connect occurred
  34. :Found
  35. Open "TM.LOG", Log
  36. Write Log, "Carrier found at (416)" Counter \n
  37. Close Log
  38. Goto ClearLine
  39.  
  40. ** Routine to exit script
  41. :CleanUpScript
  42. Disp "ESC pressed, HACK terminated." \n \n
  43. Hangup
  44. Halt
  45.