get "NLIBHDR"

static $( whcnt=0 $)

let start() be
$( let c = rdch()

   until c=endstreamch do
   $( wrh(trn(c))
      c := rdch()
   $)

   unless (whcnt&1)=0 do wrh(#x20)

$)


and wrh(c) be
$( if whcnt>30 do
   $( whcnt := 0
      newline()
   $)

   writehex(c, 2)
   whcnt := whcnt + 1

$)


and trn(c) = c=21 -> #xa,
  c!table
   /* EBCDIC 00-07 */  #000, #001, #002, #003,    0, #011,    0, #177,
   /* EBCDIC 08-0F */     0,    0,    0, #013, #014, #015, #016, #017,
   /* EBCDIC 10-17 */  #020, #021, #022, #023,    0,    0, #010,    0,
   /* EBCDIC 18-1F */  #030, #031,    0,    0, #034, #035, #036, #037,
   /* EBCDIC 20-27 */     0,    0,    0,    0,    0, #012, #027, #033,
   /* EBCDIC 28-2F */     0,    0,    0,    0,    0, #005, #006, #007,
   /* EBCDIC 30-37 */     0,    0, #026,    0,    0,    0,    0, #004,
   /* EBCDIC 38-3F */     0,    0,    0,    0, #024, #025,    0, #032,
   /* EBCDIC 40-47 */  #040,    0,    0,    0,    0,    0,    0,    0,
   /* EBCDIC 48-4F */     0,    0,    0, #056, #074, #050, #053, #174,
   /* EBCDIC 50-57 */  #046,    0,    0,    0,    0,    0,    0,    0,
   /* EBCDIC 58-5F */     0,    0, #041, #044, #052, #051, #073, #176,
   /* EBCDIC 60-67 */  #055, #057,    0,    0,    0,    0,    0,    0,
   /* EBCDIC 68-6F */     0,    0,    0, #054, #045, #137, #076, #077,
   /* EBCDIC 70-77 */     0, #136,    0,    0,    0,    0,    0,    0,
   /* EBCDIC 78-7F */     0, #140, #072, #043, #100, #047, #075, #042,
   /* EBCDIC 80-87 */     0, #141, #142, #143, #144, #145, #146, #147,
   /* EBCDIC 88-8F */  #150, #151,    0, #173,    0,    0,    0,    0,
   /* EBCDIC 90-97 */     0, #152, #153, #154, #155, #156, #157, #160,
   /* EBCDIC 98-9F */  #161, #162,    0, #175,    0,    0,    0,    0,
   /* EBCDIC A0-A7 */     0,    0, #163, #164, #165, #166, #167, #170,
   /* EBCDIC A8-AF */  #171, #172,    0,    0,    0, #133,    0,    0,
   /* EBCDIC B0-B7 */     0,    0,    0,    0,    0,    0,    0,    0,
   /* EBCDIC B8-BF */     0,    0,    0,    0,    0, #135,    0,    0,
   /* EBCDIC C0-C7 */     0, #101, #102, #103, #104, #105, #106, #107,
   /* EBCDIC C8-CF */  #110, #111,    0,    0,    0,    0,    0,    0,
   /* EBCDIC D0-D7 */     0, #112, #113, #114, #115, #116, #117, #120,
   /* EBCDIC D8-DF */  #121, #122,    0,    0,    0,    0,    0,    0,
   /* EBCDIC E0-E7 */  #134,    0, #123, #124, #125, #126, #127, #130,
   /* EBCDIC E8-EF */  #131, #132,    0,    0,    0,    0,    0,    0,
   /* EBCDIC F0-F7 */  #060, #061, #062, #063, #064, #065, #066, #067,
   /* EBCDIC F8-FF */  #070, #071,    0,    0,    0,    0,    0, #134