comment A13;

procedure charout(device, ch); value device, ch;
        integer device, ch;
  kdf9 12/9/8/0;
        {device}; JS12P295; {ch};
    JS11P295;
    JS15P295;
   exit;
  algol;

procedure outbasicsymbol(device, bs); value device, bs;
        integer device, bs;
  kdf9 12/9/8/0;
        {device}; JS12P295; {bs};
    JS14P295;
    JS16P295;
   exit;
  algol;

integer procedure charin(device); value device;
        integer device;
  kdf9 12/9/8/0;
        {device}; JS3P295;
    JS5P295;
    JS7P295;
   exit;
  algol;

integer procedure inbasicsymbol(device); value device;
        integer device;
  kdf9 12/9/8/0;
        {device}; JS4P295;
    JS6P295;
    JS8P295;
   exit;
  algol;