home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / QBASIC / TERMINAL.BAS < prev   
Encoding:
BASIC Source File  |  1997-06-13  |  264 b   |  14 lines
  1. REM Kommando-Terminal
  2. OPEN "COM2:9600,N,8,2,CS,DS" FOR RANDOM AS #1
  3.  
  4. Kommando:
  5.   INPUT A
  6.   IF A > 255 THEN GOTO Ende
  7.   PRINT #1, CHR$(A);
  8.   FOR n = 1 TO 1000: NEXT n
  9.   IF LOC(1) > 0 THEN PRINT "    "; ASC(INPUT$(1, #1))
  10.   GOTO Kommando
  11. Ende:
  12. CLOSE 1
  13.  
  14.