TP3/shell/tests/fixtures/t117_charfor.pas

program charfor;
var c : char;
begin
  for c := 'A' to 'G' do write(c);
  writeln
end.