home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / AAKXREF.ZIP / A_LIN_ST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-04-25  |  1.5 KB  |  33 lines
  1. (********************************************************************)
  2. (* THIS PROCEDURE WILL ADD A STRING OF CHARS WITH PRINTABLE LEN     *)
  3. (* INPUT        : Line_Ptr,St,Len                                   *)
  4. (* INPUT/OUTPUT : NONE                                              *)
  5. (* OUTPUT       : UPDATED LINE RECORD                               *)
  6. (* USES         : NO SIDE EFFECTS                                   *)
  7. (* CALLS        : NONE                                              *)
  8. (* ERRORS       : ERROR JUST REPORTED                               *)
  9. (* GLOBAL VARS  : NONE                                              *)
  10. (* SUBJECT      : PRINTER, LINE OF TEXT                             *)
  11. (* DOMAIN       : ARNO A. KARNER                      LEVEL : 000   *)
  12. (********************************************************************)
  13.  
  14. PROCEDURE Add_Line_Str                           ( Lin : Line_Ptr ;
  15.                                                    St  : Work_String ;
  16.                                                    Len : INTEGER ) ;
  17.  
  18. BEGIN (* PROC *)
  19.    WITH Lin^ DO
  20.    BEGIN (* WITH *)
  21.       IF LENGTH ( ST ) + LENGTH ( Line ) < 255
  22.       THEN BEGIN (* SIZE OK *)
  23.               Line := Line + St ;
  24.               CPL := CPL + Len ;
  25.            END
  26.       ELSE BEGIN
  27.               WRITELN ('Error in add line string > 255 ') ;
  28.               WRITELN ( Line ) ;
  29.               WRITELN ( St ) ;
  30.               WRITELN ( Len ) ;
  31.            END ;
  32.    END ; (* WITH *)
  33. END ; (* PROC *)