Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'Timothy.bas
- 'Advanced "Timothy" associative array FreeBASIC source code 0x001
- '
- 'Created December 22nd 2009 - May 6th 2010 by T.R.Keal
- 'Modified June 15th 2013 by T.R.Keal
- 'Released under the Gnu Public License 2.0
- '
- 'Please review the Gnu Public License, Thank you.
- 'The GPL can be located online at http://www.gnu.org/copyleft/gpl.html
- type TIMOTHY_NODE
- written as byte
- address as unsigned long
- end type
- type TIMOHTY_CELL
- leaf as TIMOTHY_NODE
- child(0 to 255) as TIMOTHY_NODE
- prior as TIMOTHY_NODE
- latter as TIMOTHY_NODE
- end type
- sub TIMOTHY_CHKTREE(Tree() as TIMOTHY_CELL, address as unsigned long)
- if Tree(Offset).leaf.written then
- endif
- end sub
- redim Tree(0)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement