         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
     PRINT'INFO(64,IOQ'STAT.(13:3) );                          <<*9280>>08950000
     PRINT'INFO(66,IOQ'STAT.(8:5) );                           <<*9280>>08960000
   " DUMP [<REL REC #>] [,<REC COUNT>] [,<A = ASCII>]",CRLF,   <<D9530>>14020000
            ASCII (DBUF(LINEP+COLN),8,PBBUF(COLN*7));          <<D9530>>14575000
            PBBUF (COLN*7+6) := " ";                           <<D9530>>14580000
         PBBUF (55) := " ";                                    <<D9530>>14595000
         MOVE PBBUF (56) := DBBUF (LINEP & ASL(1)), (16);      <<D9530>>14600000
         XREG := 65;                                           <<D9530>>14605000
         WHILE (XREG := XREG+1) < 82 DO                        <<D9530>>14610000
         LEN := IF SHORT THEN 31 ELSE 43;                      <<D9530>>14640000
        WHILE (XREG := XREG + 1) <= (RECLEN & ASL(1)+1) DO     <<D9530>>14685000
    IF NOT NONUM THEN LIO(NUMBUF,30,0);                        <<D9530>>14710000
        PBUF := "  ";  MOVE PBUF(1) := PBUF,(27);              <<D9530>>14715000
        LINEP := -27;                                          <<D9530>>14720000
        WHILE (LINEP := LINEP + 27) < RECLEN DO                <<D9530>>14725000
          ASCII((LINEP & ASL(1)),8,BBUF(3));  <<BYTE NUMBER>>  <<D9530>>14735000
          MOVE PBUF := DBUF(LINEP),(27);                       <<D9530>>14740000
$EDIT VOID=14745                                               <<D9530>>14745000
          LIO(BUF(2),31,0);  <<PRINT IT>>                      <<D9530>>14750000
