./ I 00569200          $ 569300 100                   01/10/97 15:57:15                                                           
/* 01/10/97 - by: Christian.J.Reichetzeder@AKH-Wien.AC.AT            */                                                   00569400
/*            Permit pipe to start with EndChar and also             */                                                   00569600
/*            correct parsing at the beginning of the specification  */                                                   00569800
/*            Use different pathids for fullscreen stages (it went   */                                                   00569800
/*            unnoticed that PIPEDEMO cons|cons did not work).       */                                                   00569800
./ R 00731960          $ 732950 990                   01/10/97 15:57:15                                                           
  pipe.pipedemo.version = '3.1.6'                                                                                         00732950
./ R 01930000          $ 1934990 4990                 01/10/97 15:57:15                                                           
    '  path' pathid() 'condread', /*   console.                      */                                                   01934990
./ R 03140000          $ 3144990 4990                 01/10/97 15:57:15                                                           
                                                                                                                          03144990
./ R 03370000 03460000 $ 3419990 49990                01/10/97 15:57:15                                                           
  /* some code has moved below                                       */                                                   03419990
./ I 04510000          $ 4514000 4000                 01/10/97 15:57:15                                                           
  /*-----------------------------------------------------------------*/                                                   04514000
  /* We have to take care of the following cases:                    */                                                   04518000
  /*    1) Pipe may start with endchar (this is permitted)           */                                                   04522000
  /*    2) Pipe may start with stagesep and stagesep is re-          */                                                   04526000
  /*       defined                                                   */                                                   04530000
  /*                                                                 */                                                   04534000
  /*-----------------------------------------------------------------*/                                                   04538000
                                                                                                                          04542000
  if left(strip(pipe.pipenum),1) = pipe.endchar.pipenum then do                                                           04546000
     parse var pipe.pipenum (pipe.endchar.pipenum) pipe.pipenum                                                           04550000
  end                                                                                                                     04554000
  else ,                                                                                                                  04558000
   if left(strip(pipe.pipenum),1) = pipe.sep.pipenum then do                                                              04562000
      parse var pipe.pipenum (pipe.sep.pipenum) pipe.pipenum                                                              04566000
   end                                                                                                                    04570000
                                                                                                                          04574000
  if pipe.pipenum = '' then do                                                                                            04578000
     say 'You must enter the pipeline to demo'                                                                            04582000
     exit 40                                                                                                              04586000
  end                                                                                                                     04590000
                                                                                                                          04594000
./ D 16830000                                         01/10/97 15:57:15                                                           
./ R 16920000          $ 16924990 4990                01/10/97 15:57:15                                                           
       '| fullscr console path' pathid() 'noclose' ,                                                                      16924990
./ R 19040000 19050000 $ 19042990 2990                01/10/97 15:57:15                                                           
     left('PIPEDEMO' pipe.pipedemo.version ||,                                                                            19042990
     '-'pipe.version'.'right(pipe.release,2,'0')|| ,                                                                      19045980
       right(pipe.mod+0,2,'0')'('right(pipe.code,2)')',                                                                   19048970
     '('pipe.options.1')' ,                                                                                               19051960
     , fs.scrcols-1)                                                                                                      19054950
./ R 21130000          $ 21134990 4990                01/10/97 15:57:15                                                           
/* Set a pathid for fullscreen                                       */                                                   21134990
./ R 21160000          $ 21160890 890                 01/10/97 15:57:15                                                           
Pathid:                                                                                                                   21160890
                                                                                                                          21161780
Address COMMAND 'PIPE Literal|spec tod c2x 1|spec 5.8|var pathid'                                                         21162670
Return pathid                                                                                                             21163560
                                                                                                                          21164450
/*********************************************************************/                                                   21165340
/* Initialize variables used in building screen displays.            */                                                   21166230
/*********************************************************************/                                                   21167120
                                                                                                                          21168010
fsinit: Procedure expose fs. RC                                                                                           21168900