Flawless modem terminal
Posted: Fri Aug 17, 2007 4:44 pm
Try this out, tell me what ya think. This baby runs pretty smoothe. No LOC commands either or anything fancy.
CLS
A$ = "COM2:2400,N,8,1,CD0,CS0,DS0,OP0,LF,TB2048,RB2048"
OPEN A$ FOR RANDOM AS #1
COM(2) ON
DO
INPUT "", TALK$
IF TALK$ = "" THEN TALK$ = "AT"
IF TALK$ = "EXIT" THEN EXIT DO
IF TALK$ = "CLS" THEN
CLS
K$ = "AT"
END IF
PRINT #1, TALK$
LOCATE CSRLIN - 1, 1
DO
INPUT #1, MODEM$
PRINT MODEM$
IF MODEM$ = "OK" THEN EXIT DO
IF MODEM$ = "ERROR" THEN EXIT DO
IF MODEM$ = TALK$ THEN
IF LEFT$(TALK$, 2) <> "AT" THEN EXIT DO
END IF
LOOP UNTIL INSTR(MODEM$, "NO")
PRINT CHR$(13)
LOOP
COM(2) OFF
CLOSE #1
CLS
A$ = "COM2:2400,N,8,1,CD0,CS0,DS0,OP0,LF,TB2048,RB2048"
OPEN A$ FOR RANDOM AS #1
COM(2) ON
DO
INPUT "", TALK$
IF TALK$ = "" THEN TALK$ = "AT"
IF TALK$ = "EXIT" THEN EXIT DO
IF TALK$ = "CLS" THEN
CLS
K$ = "AT"
END IF
PRINT #1, TALK$
LOCATE CSRLIN - 1, 1
DO
INPUT #1, MODEM$
PRINT MODEM$
IF MODEM$ = "OK" THEN EXIT DO
IF MODEM$ = "ERROR" THEN EXIT DO
IF MODEM$ = TALK$ THEN
IF LEFT$(TALK$, 2) <> "AT" THEN EXIT DO
END IF
LOOP UNTIL INSTR(MODEM$, "NO")
PRINT CHR$(13)
LOOP
COM(2) OFF
CLOSE #1