Lisa Pascal: Printing text from a program

Here is an example illustrating printing from a Pascal program:

program Print__Output;
var OutFile: text;

begin
Rewrite (OutFile, '-printer'); {Declare the printer as a file named OutFile}
Writeln (OutFile, 'This is a test.') {Output goes to the printer}
Close (Outfile) {Close the file "printer"}
end. {Print_Output}