'===========================================================================
' Subject: TERMINAL PROGRAM                  Date: 12-10-99 (07:18)       
' Author:  Paul Malcher                      Code: QB, QBasic, PDS        
' Origin:  kake26@yahoo.com                Packet: MODEM.ABC
'===========================================================================
10 CLS
intm:
ON ERROR GOTO nopen
OPEN "COM1:9600,N,8,1,ASC,CS1000" FOR RANDOM AS #1
PRINT #1, "++++"
int$ = "AT V0"
intz$ = "AT&F&H0&C3%&C1S9"
PRINT #1, int$
INPUT #1, r
IF r = 0 THEN PRINT "MAIN INT:OK" ELSE GOTO oops
PRINT #1, intz$
INPUT #1, r
IF r = 0 THEN PRINT "MODEM INT:OK" ELSE GOTO oops
PRINT #1, "O0"
INPUT #1, r
IF r = 0 THEN PRINT "DATA MODE INT:OK" ELSE GOTO oops
SLEEP (1)
main:
CLS
INPUT "Number to dail:", a$
IF a$ = "" THEN END
IF a$ = "c" THEN GOTO dirc
IF a$ <> "" THEN GOTO dailer ELSE END
ender:
B$ = "ath"
PRINT #1, B$
PRINT "Thank you for using basic terminal."
CLOSE #1
END
oops:
PRINT "ERROR INTING MODEM!"
END
dailer:
go$ = "atdt" + a$
PRINT go$
PRINT #1, go$
GOTO commander
nopen:
PRINT "I can't open the COM port it is either in use or the COM software is crazy."
PRINT "This program must be run in dos mode."
SLEEP (1)
END
commander:
DO
INPUT #1, r
IF r = 1 THEN PRINT "CONNECT": PRINT "GOOD": SLEEP (1): GOTO cm
IF r = 12 THEN PRINT "CONNECT 9600": SLEEP (1): GOTO cm
IF r = 2 THEN PRINT "RING": END: PRINT #1, "ath": SLEEP (1): CLOSE #1: GOTO intm
IF r = 3 THEN PRINT "NO CARRIER": END: PRINT #1, "ath": SLEEP (1): CLOSE #1: GOTO intm
IF r = 4 THEN PRINT "ERROR": END: PRINT #1, "ath": SLEEP (1): CLOSE #1: GOTO intm
IF r = 6 THEN PRINT "NO DAILTONE": PRINT #1, "ath": SLEEP (1): CLOSE #1: GOTO intm
IF r = 7 THEN PRINT "BUSY": END: PRINT #1, "ath": SLEEP (1): CLOSE #1: GOTO intm
LOOP
cm:
DO
INPUT "COMMAND:", c$
PRINT #1, c$
IF c$ = "q" THEN GOTO ender
IF c$ = "t" THEN GOTO tester
LOOP
tester:
t = 0
PRINT #1, "L% Q%"
DO
INPUT #1, i
PRINT i
IF i > 0 THEN t = t + 1
IF t = 2 THEN GOTO cm
LOOP
dirc:
DO
CLS
INPUT "Command:", dir$
IF dir$ = "q" THEN GOTO ender
PRINT #1, dir$
LOOP