(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED "14-Sep-94 18:23:24" ("compiled on " |{DSK}lispusers>READEBCDIC.;1|) "28-Jul-94 17:28:46" |bcompl'd| |in| "Medley 25-Aug-94 ..." |dated| "25-Aug-94 10:02:49") (FILECREATED " 9-Nov-89 15:32:46" {ICE}LISP>LYRIC>READEBCDIC.\;1 1847 |changes| |to:| (VARS READEBCDICCOMS) (FNS READEBCDIC)) READEBCDIC :D8 (P 11 CHAR P 10 I P 8 OUTSTREAM P 7 INSTREAM P 6 NUMBERS P 5 UCASE P 4 LCASE P 3 SPCHARS P 2 TRLIST P 1 TRTAB P 0 COL I 2 ADDCR I 1 OUTFILE I 0 INFILE) jnhoj Yo[o\o]o^KLMN Zlj OOLJl@ OW@gg _Agg _O FO O hIOd Ok__IOO Ok_O_IO O HkXlPjBO (235 TERPRI 213 PRIN1 206 ELT 182 SETA 159 SETA 154 CHARACTER 143 CLOSEF 136 CLOSEF 127 EOFP 118 OPENSTREAM 100 OPENSTREAM 57 UNPACK 52 CONCAT 18 ARRAY) (113 NEW 108 OUTPUT 95 OLD 90 INPUT) ( 42 "0123456789" 36 "ABCDEFGHI JKLMNOPQR STUVWXYZ " 30 "abcdefghi jklmnopqr stuvwxyz " 24 " .<(+|& !$*);~ / ,%_>? :#@'=\" " 12 " ") (PRETTYCOMPRINT READEBCDICCOMS) (RPAQQ READEBCDICCOMS ((FNS READEBCDIC))) NIL