{AssignCr.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the AssignCrt procedure.}

  uses WinCrt;

 var
   MyScreenFile: Text;

 begin
   AssignCRT(MyScreenFile);
   Rewrite(MyScreenFile);
   Writeln(MyScreenFile,'The file variable MyScreenFile is associated with
    the screen.');
   Close(MyScreenFile);
 end.