home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CLIPB52.ZIP / WEBER.ZIP / PPGET.PRG < prev   
Encoding:
Text File  |  1990-06-01  |  953 b   |  28 lines
  1. /*
  2.  
  3.    FILE:    PPGET.PRG
  4.  
  5.    PURPOSE: The routines in PPGET.PRG allow for the use of pushing
  6.             and popping the GETLIST object in order to be able
  7.             save and restore get objects.
  8.  
  9.    NOTES:   PPGET.PRG must be compiled with the /n compiler switch
  10.  
  11. */
  12.  
  13. static GETSTACK := {},;       && static array to hold saved gets
  14.        GetSCount := 0         && static variable to hold get counter
  15. *........................................................................
  16. proc __PushGet          && pushes get objects on the GETSTACK
  17. *........................................................................
  18. ++GetSCount
  19. aadd(GETSTACK,GetList)
  20. clear gets
  21. return
  22. *.......................................................................
  23. proc __PopGet          && pops get objects off the GETSTACK
  24. *........................................................................
  25. GetList = GETSTACK[GetSCount]
  26. --GetSCount
  27. return
  28.