home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1990 / 01 / atdt.bat next >
DOS Batch File  |  1989-11-27  |  2KB  |  65 lines
  1. ATDT.BAT
  2.  
  3.  
  4. @ECHO OFF
  5. IF "%1"=="?" GOTO FIRSTIME
  6. IF %1!==! GOTO LIST
  7. IF %2!==! GOTO SEARCH
  8. IF EXIST NUMBER.BAT GOTO DIAL
  9. ECHO %0 %1 %2 %3 %4 %5 %6 %7 %8 %9 >UP.DAT
  10. COPY C:\PHONE\BB.LST+UP.DAT C:\PHONE\BB.LST >NUL
  11. DEL UP.DAT
  12. ECHO .
  13. ECHO (%1 %2 %3 %4 %5 %6 %7 %8 %9 --ADDED)
  14. ECHO .
  15. GOTO DONE
  16. :FIRSTIME
  17. CLS
  18. ECHO --------------------[ B L A C K   B O O K   H E L P ]--------------------
  19. ECHO .
  20. ECHO ENTER NEW NUMBERS  : BB 9-999-999-9999 Last, First Street City St Zip
  21. ECHO FIND\DIAL NUMBERS  : BB (Any character string)
  22. ECHO  DELETE   NUMBERS  : XB (Any character string)
  23. ECHO   LIST    NUMBERS  : BB
  24. ECHO .
  25. ECHO -------------------------------------------------------------------------
  26. GOTO DONE
  27. :LIST
  28. IF NOT EXIST C:\PHONE\BB.LST GOTO FIRSTIME
  29. CLS
  30. ECHO -------------------------[ B L A C K   B O O K ]-------------------------
  31. TYPE C:\PHONE\BB.LST | MORE
  32. ECHO .
  33. ECHO -------------------------------------------------------------------------
  34. GOTO DONE
  35. :SEARCH
  36. CLS
  37. IF NOT EXIST C:\PHONE\BB.LST GOTO FIRSTIME
  38. FIND "%1" C:\PHONE\BB.LST | FIND /V "BB">NUMBER.BAT
  39. ECHO -------------------------[ B L A C K   B O O K ]-------------------------
  40. TYPE NUMBER.BAT
  41. ECHO .
  42. ECHO -------------------- TYPE CONTROL-C TO ABORT DIALING --------------------
  43. ECHO .
  44. ECHO To Dial %1, Pick up the phone and
  45. PAUSE
  46. NUMBER
  47. :DIAL
  48. CLS
  49. ECHO %0%1,,,,Z>COM1
  50. CLS
  51. ECHO .
  52. ECHO ------- DIALING %1 -------
  53. ECHO .
  54. ECHO Once the modem makes the connection, press
  55. ECHO any key to hang it up and connect the phone.
  56. PAUSE >NUL
  57. ECHO ATZ>COM1
  58. :DONE
  59. ECHO .
  60. IF EXIST NUMBER.BAT DEL NUMBER.BAT
  61.  
  62.  
  63.  
  64.  
  65.