home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / MODEM.PRG < prev    next >
Encoding:
Text File  |  1994-01-12  |  934 b   |  36 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: MODEM.PRG                                            ⌐ª
  3. *⌐ª     Function: ╩╣╙├ Low-Level File ║»╩²═¿╣²╥╗╕÷ MODEM └┤▓ª          ⌐ª
  4. *⌐ª               ╡τ╗░╡─╖╢└².                                          ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK OFF
  7. SET ESCAPE ON
  8.  
  9. STORE "8321111" TO PhoneNo
  10. * ░╤╡τ╗░║┼┬δ┤µ╘┌▒Σ┴┐ PhoneNo ╓╨
  11.  
  12. RUN MODE COM2:2400,N,8,1,P
  13. * ╞⌠╢»═¿╤╢┐┌ COM2
  14.  
  15. handle = FOPEN("COM2",12)
  16. * ╙├╬┤╩╣╙├╡─ FOXPRO ╗║│σ╟°║═┐╔╢┴┐╔╨┤╡─╖╜╩╜┤≥┐¬ COM2
  17.  
  18. IF FERROR() < 0
  19.    WAIT " ╬▐╖¿┤≥┐¬═¿╤╢╜╙┐┌ COM2, ╟δ░┤╚╬╥╗╝ⁿ═╦│÷! " WINDOW
  20.    RETURN
  21. ENDIF
  22.  
  23. =FPUTS(handle,"ATDT"+PhoneNo)
  24. * ┤½╦═╥╗╕÷▓ª║┼├ⁿ┴ε╜°╨╨▓ª║┼
  25.  
  26. WAIT " ╟δ░┤╚╬╥╗╝ⁿ═╦│÷, ╥╘╚í╧√╙δ MODEM ╡─┴¬╜╙ ! " WINDOW
  27.  
  28. * ┤½╦═╥╗╕÷╚í╧√┴¬╜╙╡─╫╓╖√┤«
  29. =FPUTS(handle,"ATZH")
  30.  
  31. * ╣╪▒╒═¿╤╢╜╙┐┌ COM2
  32. =FCLOSE(handle)
  33.  
  34. SET ESCAPE OFF
  35. RETURN
  36.