4.3BSD-Tahoe/usr/src/ucb/dbx/tests/pc/assign.p

program assign (input, output);

var a : array [1..100] of char;
begin
    a := 'blah';
    write(output, a);
end.