i2bs|
begin
integer layout, bs;
   layout := format([sndddc_]);
   open(10);
   open(20);
      bs := inbasicsymbol(20);
      outbasicsymbol(10, bs);
      write(10, layout, bs);
      bs := inbasicsymbol(20);
      outbasicsymbol(10, bs);
      write(10, layout, bs);
      bs := inbasicsymbol(20);
      outbasicsymbol(10, bs);
      write(10, layout, bs);
   close(20);
   close(10);
end
|
begin/

|

Output with:
begin/
RAN/EL/000M01S/000M02S  SIZE     73

  160
begin  140
/  161
^L