4.4BSD/usr/src/old/dbx/tests/pc/assign.p

program assign (input, output);

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