         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
           OLD'DCOUNT,                                         <<l9266>>19116000
            OLD'DCOUNT := 0D;                                  <<l9266>>20051000
            << -------------------------------------------- >> <<l9266>>20061000
            << This fix was added in to ensure that dcount  >> <<l9266>>20062000
            << would not alternate on the same positive and >> <<l9266>>20063000
            << negative count, thus infinitely looping...   >> <<l9266>>20064000
            << -------------------------------------------- >> <<l9266>>20064100
                                                               <<l9266>>20064200
               IF \OLD'DCOUNT\ = \DCOUNT\ AND DCOUNT <> 0D     <<l9266>>20064300
                  THEN DCOUNT := IF DCOUNT > 0D                <<l9266>>20064400
                                    THEN DCOUNT - 1D           <<l9266>>20064500
                                    ELSE DCOUNT + 1D;          <<l9266>>20064600
               OLD'DCOUNT := DCOUNT;                           <<l9266>>20064700
         IF SPOOLER THEN                                       <<09555>>28451000
            BEGIN   << Spooler, not :STREAM, tell console.  >> <<09555>>28452000
            GENMSG (8, ERRNUM,,,,,,,0);                        <<09555>>28453000
            GENMSG (1, 228, %11000, DEVICE, DEVFILEID,,,,0);   <<09555>>28454000
            END     << Spooler, not :STREAM, tell console.  >> <<09555>>28454100
         ELSE                                                  <<09555>>28454200
            BEGIN   << :STREAM, tell $STDLIST.              >> <<09555>>28454300
            GENMSG (8, ERRNUM);                                <<09555>>28455000
            STREAMERROR (STRMSPFLECLOSEERR, FALSE);            <<09555>>28460000
            END;    << :STREAM, tell $STDLIST.              >> <<09555>>28461000
