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