Advertisement
jargon

TIMOTHY2

Jun 16th, 2013
370
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 'Timothy.bas
  2. 'Advanced "Timothy" associative array FreeBASIC source code 0x001
  3. '
  4. 'Created December 22nd 2009 - May 6th 2010 by T.R.Keal
  5. 'Modified June 15th 2013 by T.R.Keal
  6. 'Released under the Gnu Public License 2.0
  7. '
  8. 'Please review the Gnu Public License, Thank you.
  9. 'The GPL can be located online at http://www.gnu.org/copyleft/gpl.html
  10.  
  11.  
  12. type TIMOTHY_NODE
  13.     written as byte
  14.     address as unsigned long
  15. end type
  16. type TIMOHTY_CELL
  17.     leaf as TIMOTHY_NODE
  18.     child(0 to 255) as TIMOTHY_NODE
  19.     prior as TIMOTHY_NODE
  20.     latter as TIMOTHY_NODE
  21. end type
  22.  
  23. sub TIMOTHY_CHKTREE(Tree() as TIMOTHY_CELL, address as unsigned long)
  24.     if Tree(Offset).leaf.written then
  25.        
  26.     endif
  27.    
  28. end sub
  29.  
  30. redim Tree(0)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement