home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / AAKXREF.ZIP / DELPAGE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-04-25  |  1.1 KB  |  19 lines
  1. (********************************************************************)
  2. (* THIS PROCEDURE WILL DELET THE INPUT PAGE RECORD AND UPDATE PTRS  *)
  3. (* INPUT        : NONE                                              *)
  4. (* INPUT/OUTPUT : First,P,Last                                      *)
  5. (* OUTPUT       : NONE                                              *)
  6. (* USES         : NO SIDE EFFECTS                                   *)
  7. (* CALLS        : NONE                                              *)
  8. (* ERRORS       : NONE                                              *)
  9. (* GLOBAL VARS  : NONE                                              *)
  10. (* SUBJECT      : PRINTER DEL PAGE                                  *)
  11. (* DOMAIN       : ARNO A. KARNER                      LEVEL : 000   *)
  12. (********************************************************************)
  13.  
  14. PROCEDURE Delete_Page ( Var First , P , Last : Page_Ptr ) ;
  15.  
  16. BEGIN (* PROC *)
  17.    IF P^.Prev = NIL THEN First := P^.Next ELSE P^.Prev^.Next := P^.Next ;
  18.    IF P^.Next = NIL THEN Last  := P^.Prev ELSE P^.Next^.Prev := P^.Prev ;
  19. END ; (* PROC *)