include "ConsoleWindow"

dim as Str255 a

open "UNIX", 1,"cal 1969"
  do
    line input #1, a
    print a
  until eof(1)
close 1