'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';