NetBSD/share/doc/ps1/04.pascal/mism.p

6 lines
105 B
OpenEdge ABL

program mismatch(output)
begin
writeln('***');
{ The next line is the last line in the file }
writeln