10  REM *** LIRECOM2.BAS pour QBASIC / (c) Pierre COL, Septembre 2000 ***
20  REM ci-dessous, remplacez 'com2' par 'com1' si necessaire :
30  OPEN "com2:1200,e,7,1" FOR INPUT AS #1
40  CLS
50  PRINT : PRINT "Pour quitter le programme, faites [Ctrl]+[Pause]..."
60  WHILE (1)
70   N$ = INPUT$(1, #1)
80   IF (ASC(N$) = 10) OR (ASC(N$) > 31) THEN PRINT N$;
90  WEND
100 END