home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / AAKXREF.ZIP / PRNTOUT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-07-08  |  1.4 KB  |  28 lines
  1. (********************************************************************)
  2. (* THIS PROCEDURE WILL OUTPUT THE STRING OF TEXT TO THE DESIRED DEV *)
  3. (* INPUT        : Output_Device,S                                   *)
  4. (* INPUT/OUTPUT : NONE                                              *)
  5. (* OUTPUT       : NONE                                              *)
  6. (* USES         : NO SIDE EFFECTS                                   *)
  7. (* CALLS        : NONE                                              *)
  8. (* ERRORS       : I/O POSS BUT NOT CHECK                            *)
  9. (* GLOBAL VARS  : NONE                                              *)
  10. (* SUBJECT      : STRINGS,OUTPUT                                    *)
  11. (* DOMAIN       : ARNO A. KARNER                      LEVEL : 000   *)
  12. (********************************************************************)
  13.  
  14. PROCEDURE Print_Out                  ( Output_Device : Output_Type ;
  15.                                        S             : Work_String ) ;
  16.  
  17. BEGIN (* OUTPUT LINE OF LISTING *)
  18.    CASE Output_Device OF
  19.       CRT        : WRITELN ( CON , S ) ;
  20.       Printer    : IF ( POS ( Form_Feed , S ) = 0 )
  21.                    THEN WRITELN ( LST , S )
  22.                    ELSE WRITE   ( LST , S ) ;
  23.       Disk       : WRITELN ( Outf , S ) ;
  24.       Odd_Pages  : WRITELN ( OddF , S ) ;
  25.       Even_Pages : WRITELN ( EveF , S ) ;
  26.       Null       : ;
  27.    END ; (* CASE *)
  28. END ; (* OUTPUT LINE OF LISTING *)