./ R 00727970 00730000 $ 731960 3990                  03/28/96 14:34:30                                                           
  pipe.pipedemo.version = '3.1.5'                                                                                         00727970
  address command 'PIPE (end ? name LEVEL)' ,                                                                             00730000
./ R 00750000 00830000 $ 754990 4990                  03/28/96 14:34:30                                                           
    '| spec 1.1 c2x 1'           ,  /* Convert to printable hex.     */                                                           
    '       2-* 3'               ,  /*                               */                                                           
    '| spec /=PIPE.VERSION=/ 1'  ,  /* Set version,                  */                                                           
    '       1.1 n write'         ,  /*                               */                                                           
    '       /=PIPE.RELEASE=/ 1'  ,  /*   the release,                */                                                           
    '       2.1 n write'         ,  /*                               */                                                           
    '       /=PIPE.MOD=/ 1'      ,  /*   the modification level,     */                                                           
    '       3.1 c2d n write'     ,  /*                               */                                                           
    '       /=PIPE.CODE=/ 1'     ,  /*   and the code level.         */                                                           
    '       4.2 c2x n'           ,  /*                               */                                                           
    '| varload'                  ,  /* Put into individual variables.*/                                                           
    '?query version',/* Get a message that contains the component id */                                                           
    '|find DMS',                      /* Where are we?               */                                                           
    '|count lines',                                                                                                               
    '|var on_dms'                                                                                                                 
./ R 03070000          $ 3074990 4990                 03/28/96 14:34:30                                                           
                        Iam pipe. stream. RC on_dms                                                                       03070000
./ R 08110000          $ 8114990 4990                 03/28/96 14:34:30                                                           
  if on_dms then do                                                                                                       08110000