home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / SHARED.BAS < prev    next >
BASIC Source File  |  1994-02-01  |  2KB  |  63 lines
  1. $IF NOT %NODBASE
  2. SHARED DBH, DBF, DBS(), dBaseOpen%, RecNum???, NumberOfFields?, RecordBlock$
  3. SHARED NumberOfRecords???, Index$, IndexField$, IndexField?
  4. SHARED Bt.Update.Always%, Act.Keys$
  5. PUBLIC Act.Keys$, BT.Update.Always%
  6.  
  7. SHARED Bt.Update.Always%,Act.Keys$,Bt.File.Num%
  8. SHARED Keys$(),Ptr$(),Stk&(),Itm$(),Dta$()
  9. $ENDIF
  10.  
  11. SHARED DBE()
  12.  
  13. SHARED Row%, Col%, Cur%     ' Store original cursor position and state
  14. PUBLIC ProgLine%, Prog%         ' Current line number and running status
  15. SHARED MaxLine%            ' How many lines in the program
  16. PUBLIC CrLf$                    ' Contains carriage return character
  17. SHARED ARG$(), ArgPtr%          ' Argument stack for parsing statements
  18. SHARED VAR$(), VALUE$()         ' Storage arrays for variables
  19. PUBLIC Literal$(), NextVar%     ' Literal variable name and Next free var #
  20. PUBLIC PROGRAM$(), ORG$         ' Source code array and saved screen image
  21. SHARED Token$,TokenType#,P#,Arg$  ' Used by the CALC function.
  22. SHARED GosubStack%(), GosubPtr% ' Used for GOSUB..RETURN
  23. SHARED ExitFlag%                ' Used by IF and other logic commands
  24. SHARED RepeatFlag%              ' Used by WHILE and UNTIL
  25.  
  26. PUBLIC CommonVar
  27. PUBLIC Rec, Code, Comment, CommentIndex ',CFG
  28. PUBLIC Global$()
  29. PUBLIC item$(), C$()
  30. 'PUBLIC CallStack%()
  31. 'PUBLIC IfStack%()
  32. PUBLIC Erro$
  33. PUBLIC formula$
  34. PUBLIC GP
  35. PUBLIC CharType%, CharCode%, Comline, NextVar%
  36. PUBLIC CrLf$, COMMAND%, Pntr???, UserTime#, Num, PARM$,IXLen%,IXFI$
  37. PUBLIC v, Prompt$, Chaff$, GOD, Port%, Node$, tty, NumberOfFields, dBUFFER
  38. PUBLIC SeqBuffer, CAPSLOCK, BUF, FLEN, Found, more
  39. PUBLIC OldValue$, Typing%, Stepval
  40. PUBLIC upperval, fvar$, subbing, subline%, forpointer%
  41. PUBLIC repeat, loopline%, repeatline, ChatFile%, User%, User$
  42. PUBLIC OLM%, OnLogout%, OnLogout$, StackPointer%, OnError%, OnError$
  43. SHARED csc?, LastPrompt$, IfPointer%, IfState%, Baud$
  44. SHARED VidSave$,Vidx%,Vidy%,VidFlag%,VideoRAM&
  45. PUBLIC PROTO$,Ee,TerminalMode%
  46. 'PUBLIC Query$(),QueryMax%
  47. SHARED ForPointer%
  48. SHARED CONFDIR$
  49. PUBLIC Echo%, IIfState%
  50. SHARED Tracer%
  51. SHARED Allness%,MapFlag%,RestFlag%
  52. SHARED IxPtr&()
  53. $IF NOT %NOTASKS
  54. PUBLIC Task() , TaskProg$(), Taskline(), TaskDepth%, CurrentDepth%
  55. $ENDIF
  56. PUBLIC BUFFY%
  57. PUBLIC Ext$
  58. PUBLIC ErrorMsg%
  59. SHARED Prepping%,VarTableX%,VarTableZ%,Prx%,PrxVer$
  60. PUBLIC GoFlag%
  61. SHARED GenStack$(), GenPointer%()
  62. SHARED Carrier%,Padd%,DIRECT$
  63.