t_ptr.mod 50 B

12345
  1. MODULE T;
  2. VAR i : INTEGER;
  3. BEGIN
  4. i^ := 1
  5. END T.