home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / programme.bas / qbasic / output.bas < prev    next >
Encoding:
BASIC Source File  |  1997-06-13  |  173 b   |  10 lines
  1. OPEN "COM2:9600,N,8,2,CS,DS" FOR RANDOM AS #1
  2. DO
  3.   FOR N = 0 TO 255
  4.      PRINT #1, CHR$(N);
  5.      PRINT ASC(INPUT$(1, #1))
  6.   NEXT N
  7. LOOP UNTIL INKEY$ <> ""
  8. CLOSE 1
  9.  
  10.