home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_2_94 / vbdos / pointer2.bas < prev   
BASIC Source File  |  1994-04-09  |  665b  |  34 lines
  1. REM Pointer.Bas, nur Änderung
  2.  
  3. SUB Liste1_Dispose (BYVAL Pointer AS INTEGER)
  4.  
  5.    DIM Grenze AS INTEGER
  6.    SHARED Empty AS INTEGER
  7.  
  8.    IF Empty THEN
  9.       Liste1(Empty).Prev = Pointer
  10.    END IF
  11.    Liste1(Pointer).Prev = 0
  12.    Liste1(Pointer).Next = Empty
  13.    Empty = Pointer
  14.  
  15. END SUB
  16.  
  17. SUB Liste1_New (Pointer AS INTEGER)
  18.  
  19.    SHARED Empty AS INTEGER
  20.    
  21.    IF Empty THEN
  22.       Pointer = Empty
  23.       Empty = Liste1(Empty).Next
  24.       Liste1(Pointer).Next = 0
  25.       Liste1(Pointer).Prev = 0
  26.       Liste1(Empty).Prev = 0
  27.    ELSE
  28.       Pointer = UBOUND(Liste1) + 1
  29.       REDIM PRESERVE Liste1(0 TO Pointer) AS Liste1_Typ
  30.    END IF
  31.  
  32. END SUB
  33.  
  34.