PROCEDURE Store* (VAR W: Files.Rider; T: Text);
VAR p, q: Piece;
R: Files.Rider;
off, rlen, pos: LONGINT;
N, n: INTEGER;
ch: CHAR;
Оберон. Почитаешь о модуле - также, ключевые слова в верхнем регистре? Это просто такой дизайн, или действительно требования старых языков (Basic например)?