home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / AAKXREF.ZIP / N_LINE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-04-25  |  1.4 KB  |  31 lines
  1. (********************************************************************)
  2. (* THIS PROCEDURE WILL CREATE AND INITIALIZE LINE RECORD            *)
  3. (* INPUT        : NONE                                              *)
  4. (* INPUT/OUTPUT : Line                                              *)
  5. (* OUTPUT       : NONE                                              *)
  6. (* USES         : NO SIDE EFFECTS                                   *)
  7. (* CALLS        : Memory                                            *)
  8. (* ERRORS       : OUT OF MEMORY, PROGRAM HALTED                     *)
  9. (* GLOBAL VARS  : NONE                                              *)
  10. (* SUBJECT      : PRINTER , NEW LINE RECORD                         *)
  11. (* DOMAIN       : ARNO A. KARNER                      LEVEL : 001   *)
  12. (********************************************************************)
  13.  
  14. PROCEDURE New_Line_Ptr                        ( VAR Lin : Line_Ptr ) ;
  15.  
  16. BEGIN (* PROC *)
  17.    IF Memory > Min_Memory
  18.    THEN BEGIN (* ENOUGH MEMORY *)
  19.            NEW ( Lin ) ;
  20.            WITH Lin^ DO
  21.            BEGIN (* INIT PAGE *)
  22.               Next  := NIL ;
  23.               CPL := 0 ;
  24.               Line  := '' ;
  25.            END ; (* FIRST PAGE *)
  26.         END   (* ENOUGH MEMORY *)
  27.    ELSE BEGIN (* OUT OF MEMORY *)
  28.            WRITELN ( 'Error out of memory. Program aborted.') ;
  29.            HALT ;
  30.         END ; (* OUT OF MEMORY *)
  31. END ; (* PROC *)