I just have to share my excitement about VFP 8 with everyone ;-) It took me all of 3 minutes to create a working First-In-Last-Out stack using VFP 8. I can already tell that I'm going to hate having to go back to VFP 7 (as much as I like it) because of all the features in VFP 8. The VFP 8 team did a great job with this release.
BTW - here's the code:
DEFINE CLASS kaFILOStack AS Collection
nMaxDepth = 20
FUNCTION Push(tuItem)
IF This.Count = This.nMaxDepth
This.Remove(1)
ENDIF
This.Add(tuItem)
ENDFUNC
FUNCTION Pop()
LOCAL luItem
luItem = .NULL.
IF This.Count > 0
luItem = This.Item(This.Count)
This.Remove(This.Count)
ENDIF
RETURN luItem
ENDFUNC
ENDDEFINE