ioch|
begin
integer layout, ch1, ch2, i;
   layout := format([sndddc_]);
   open(30);

   for i := 10, 17 do
   begin
      open(i);
      writetext(30, [opened*channel_]);
      write(30, layout, i);
   end;
   open(20);
   loop:
      ch1 := charin(20);
      for i := 10, 17 do
      begin
         charout(i, ch1);
         write(i, layout, ch1);
         if  ch1 = 61  then
            goto exit;
      end;
    goto loop;

exit:
   close(20);
   for i := 10, 17 do
      close(i);
end|
CASE NORMAL
&?!%'$~/
01234567
89º;+-.
@ABCDEFG
HIJKLMNO
PQRSTUVW
XYZ{}12Ø

case shift
&?!%'$~:
^[]<>=×÷
()£;±*,
@abcdefg
hijklmno
pqrstuvw
xyz{}12Ø
|