
HELP - using Qbasic for modem communication.
Quote:
>Can anybody send me Qbasic code for implementing modem communication?
for a simple term program, use this:
CLS
PRINT "simple term"
(if your modem is on a different com port, change the com statement- also for
example, if you have a 2400, use com1:2400,n,8,1,ds or it is a 300 baud
modem, com1:300,n,8,1 etc...)
OPEN "com1:19200,n,8,1,ds" FOR RANDOM AS #1
rem "con" stands for console which is your screen
OPEN "con" FOR RANDOM AS #2
termstart:
i$ = INKEY$
IF i$ = CHR$(27) THEN END
IF i$ <> "" THEN PRINT #1, i$; DEFINT A-Z
o$ = INPUT$(LOC(1), #1)
PRINT #2, o$;
GOTO termstart
there ya go!