10 CLS
20 OPEN"RAM:ROM.DO"FOR OUTPUT AS 1
30 OPEN"LPT:ROM.DO"FOR OUTPUT AS 2
40 OPEN"LCD:ROM.DO"FOR OUTPUT AS 3
50 FOR LC=128 TO 609
60 PK=PEEK(LC)
70 IF PK>127 THEN NV=PK-128 ELSE NV=PK
80 FOR DV=1 TO 3
90 IF PK>127 THEN PRINT#DV," ";
100 PRINT#DV,CHR$(NV);
110 NEXT DV,LC
120 CLOSE