Program SaveOutput(SimpleIdeaForCapturingOutputInTextForm);

var  s :string[255];
Procedure SaveWrite(ch :char);          {   Turbo will see this procedure     }
Begin                                   { as the user device,  "USR:".        }
   s := s + ch;
End;

var  i : integer;
Begin
   ClrScr;
   s := '';                             { Initialize s to empty string        }
   UsrOutPtr := ofs(SaveWrite);         { Deja vu a la Turbo Graphix Toolbox  }
   Write(Usr,ln(1.5*sqrt(arctan(36*pi/180))):10:6); { Write to s via USR file }

   For i:= 1 to 199 do Write(s);        { Output is in s, now write s back    }
   Delay(1000);                         {    via the default CON file         }
   Write('is in s':9,#7);
End.

{ Glen Simpson     }
{ 7321 Inwood #1   }
{ Dallas, Tx 75209 }

                                                                           