home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / scrg / savwrt.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-08-28  |  896 b   |  25 lines
  1. Program SaveOutput(SimpleIdeaForCapturingOutputInTextForm);
  2.  
  3. var  s :string[255];
  4. Procedure SaveWrite(ch :char);          {   Turbo will see this procedure     }
  5. Begin                                   { as the user device,  "USR:".        }
  6.    s := s + ch;
  7. End;
  8.  
  9. var  i : integer;
  10. Begin
  11.    ClrScr;
  12.    s := '';                             { Initialize s to empty string        }
  13.    UsrOutPtr := ofs(SaveWrite);         { Deja vu a la Turbo Graphix Toolbox  }
  14.    Write(Usr,ln(1.5*sqrt(arctan(36*pi/180))):10:6); { Write to s via USR file }
  15.  
  16.    For i:= 1 to 199 do Write(s);        { Output is in s, now write s back    }
  17.    Delay(1000);                         {    via the default CON file         }
  18.    Write('is in s':9,#7);
  19. End.
  20.  
  21. { Glen Simpson     }
  22. { 7321 Inwood #1   }
  23. { Dallas, Tx 75209 }
  24.  
  25.