home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / BTINI.INC < prev    next >
Text File  |  1993-12-07  |  2KB  |  32 lines
  1.  
  2. '+----------------------------------------------------------------------+
  3. '|                                                                      |
  4. '|   This source code was adapted from original source code written     |
  5. '|   by Joe Vest and subsequently modified by Ray Yates and Erik        |
  6. '|   Olson (and, perhaps others).  This source is being developed and   |
  7. '|   adapted for private use.  Although the original source provided    |
  8. '|   by Joe Vest was disseminated without copyright, the source         |
  9. '|   presented here is the copyrighted property of Paul Propst, with    |
  10. '|   all rights reserved.  As of this date, the source included here    |
  11. '|   represents a copyrighted "work in progress".                       |
  12. '|                                                                      |
  13. '|   CopyRight 1993 by Paul Propst                                      |
  14. '|   BVX1DX      BTINI.INC                                              |
  15. '|                                                                      |
  16. '|                                                                      |
  17. '|    December 12 1993                                                  |
  18. '+----------------------------------------------------------------------+
  19.  
  20.  
  21. PUBLIC Act.Keys$, BT.Update.Always%
  22. %FALSE = 0
  23. %TRUE = -1
  24. %dbIndex = -1
  25. %Bt.Max.Half.Node =  25
  26. %Bt.Max.Node = %Bt.Max.Half.Node * 2
  27.  
  28. SHARED Bt.Update.Always%,Act.Keys$,Bt.File.Num%
  29. SHARED Keys$(),Ptr$(),Stk&(),Itm$(),Dta$()
  30. GGG% = %Bt.Max.Node + 1
  31. DIM Keys$(0:ggg%),Ptr$(0:ggg%),Stk&(0:30,0:1),Itm$(0:ggg%),Dta$(0:ggg%)
  32.