Program Sample1;
{
  Sample program to show off KISS15 - a simple compiler for Pascal/2
}
var
  a,b : integer;
begin
  WriteLn('Sample program to demonstrate Power Pascal');
  Write('Sample ASCII String: ');

  for a := 65 to 90 do
    Emit(A);

  WriteLn;
end.

