1*44115Sbosticmodule main; 2*44115Sbosticimport io; 3*44115Sbostic 4*44115Sbosticvar globalf : io.File; 5*44115Sbostic 6*44115Sbosticprocedure p (var f : io.File); 7*44115Sbosticbegin 8*44115Sbostic f := io.terminal; 9*44115Sbostic io.Writef(f, 'this is a test'); 10*44115Sbostic io.Writef(f, '\n'); 11*44115Sbosticend p; 12*44115Sbostic 13*44115Sbosticbegin 14*44115Sbostic globalf := io.terminal; 15*44115Sbostic p(io.output); 16*44115Sbosticend main. 17