home *** CD-ROM | disk | FTP | other *** search
- *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
- *⌐ª Program: MODEM.PRG ⌐ª
- *⌐ª Function: ╩╣╙├ Low-Level File ║»╩²═¿╣²╥╗╕÷ MODEM └┤▓ª ⌐ª
- *⌐ª ╡τ╗░╡─╖╢└². ⌐ª
- *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
- SET TALK OFF
- SET ESCAPE ON
-
- STORE "8321111" TO PhoneNo
- * ░╤╡τ╗░║┼┬δ┤µ╘┌▒Σ┴┐ PhoneNo ╓╨
-
- RUN MODE COM2:2400,N,8,1,P
- * ╞⌠╢»═¿╤╢┐┌ COM2
-
- handle = FOPEN("COM2",12)
- * ╙├╬┤╩╣╙├╡─ FOXPRO ╗║│σ╟°║═┐╔╢┴┐╔╨┤╡─╖╜╩╜┤≥┐¬ COM2
-
- IF FERROR() < 0
- WAIT " ╬▐╖¿┤≥┐¬═¿╤╢╜╙┐┌ COM2, ╟δ░┤╚╬╥╗╝ⁿ═╦│÷! " WINDOW
- RETURN
- ENDIF
-
- =FPUTS(handle,"ATDT"+PhoneNo)
- * ┤½╦═╥╗╕÷▓ª║┼├ⁿ┴ε╜°╨╨▓ª║┼
-
- WAIT " ╟δ░┤╚╬╥╗╝ⁿ═╦│÷, ╥╘╚í╧√╙δ MODEM ╡─┴¬╜╙ ! " WINDOW
-
- * ┤½╦═╥╗╕÷╚í╧√┴¬╜╙╡─╫╓╖√┤«
- =FPUTS(handle,"ATZH")
-
- * ╣╪▒╒═¿╤╢╜╙┐┌ COM2
- =FCLOSE(handle)
-
- SET ESCAPE OFF
- RETURN