home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 04 / comedit / stack.inc < prev   
Encoding:
Text File  |  1988-01-12  |  601 b   |  9 lines
  1. (* ----------------------------------------------------------------------- *)
  2. (*                               STACK.INC                                 *)
  3. (*                     Datenpuffer für Laufzeitstapel                      *)
  4. (* ----------------------------------------------------------------------- *)
  5. VAR   Stack    : ARRAY [1..StackSize] OF BYTE;
  6.       StackTop : BYTE;                           (* die Spitze des Stapels *)
  7. (* ----------------------------------------------------------------------- *)
  8. (*                               STACK.INC                                 *)
  9.