Return to files.mod CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb / dbx / tests / mod

BSD 4.3

module main;
import io;

var globalf : io.File;

procedure p (var f : io.File);
begin
    f := io.terminal;
    io.Writef(f, 'this is a test');
    io.Writef(f, '\n');
end p;

begin
    globalf := io.terminal;
    p(io.output);
end main.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.