Pete's QBASIC Site

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

So... what does it do?