Old Modem Program - Printable Version

Code: (Select All)
Cls

Print "Simple Qbasic communications program."

Print "What COM port does your modem use?"

Input ">", port$

baud$ = "9600" '9600 should work fine with most modems. If you have

'an older one use 2400.

'Open up that com port.

Open "COM" + port$ + ":" + baud$ + ",N,8,1,RB2048,TB2048" For Random As #1



Print "OPTIONS:"

Print "1-Dial up to another computer"

Print "2-Wait for a call"

Print "3-Quit"

Do

    a = Val(InKey$)

Loop Until a >= 1 And a <= 3

If a = 3 Then Close: System

If a = 2 Then GoTo waitfor



Print "Number to call?"

Input ">", number$

Print #1, "ATDT" + number$ 'Tell the modem to dial the number.

GoTo chat



waitfor:

Print #1, "ATS0=1" 'Tell modem to connect after 1 ring.



'When a modem connects it returns "CONNECT ####"

'The next hunk of code waits until the modem connects before moving on



a$ = ""

Do

    If Loc(1) Then a$ = a$ + Input$(1, 1) 'if anything in modem add it to a$

Loop Until InStr(a$, "CONNECT") 'Wait until modem have connected.



chat:

'If you where waiting for a call, a lot of ASCII characters will be printed

'on the screen. Don't worry, that's just the computers getting in sync and

'talking. You also will not see what you type.



Cls

Print "You are now ready to chat, press ESC to quit."

Do

    t$ = InKey$

    If Len(t$) Then Print #1, t$ 'if you typed something send it to the modem

    'this will be send by the modem to the other

    'computer

    If Loc(1) Then r$ = Input$(1, 1) 'if the is something to get, get it and save

    'it as r$

    If Len(r$) Then Print r$; 'if r$ <> "" then print it. the ";" means a

    'line is not started

Loop Until t$ = Chr$(27) 'keep doing this until ESC is pressed

Print #1, "ATZ" 'tell the modem to hang up

Close 'close the open com statement