The World of Computer Software/World_Of_Computer_Software-02-386-Vol-2of3.iso/a/ansi_bas.zip/ANSITERM.BAS

BASIC Source File | 1993-02-20 | 391b | 24 lines

OPEN "com2:2400,N,8,1" FOR RANDOM AS 55 LEN = 256
OPEN "cons:" FOR OUTPUT AS 1
PRINT #1, CHR$(27) + "[2J";
KEY(1) ON
ON KEY(1) GOSUB key1hit
ON ERROR GOTO overflow
done = 0
DO
 IF NOT EOF(55) THEN
  t$ = INPUT$(LOC(55), #55)
  PRINT #1, t$;
 END IF
 i$ = INKEY$
 IF i$ <> "" THEN PRINT #55, i$;
LOOP UNTIL done
CLOSE
END
key1hit:
 done = -1
 RETURN
overflow:
 RESUME