home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l200 / 6.ddi / LIB / GLOBDATA.C < prev    next >
Encoding:
C/C++ Source or Header  |  1986-08-21  |  1.6 KB  |  34 lines
  1. /*  Global Data - used by all (or at least most) MBASIC programs
  2.  
  3.     Copyright (c) 1985 by JMI Software Consultants, Inc.
  4. */
  5. #include "bio.h"
  6. #include "rrd.h"
  7. #include "host.h"
  8.  
  9. GLOBAL INT      arc = 0;                /* Number of command line arguments */
  10. GLOBAL TEXT   **arv = NULL;             /* Pointers to the argumets */
  11. GLOBAL BYTES    base_seg = 0;
  12. GLOBAL BF     **bfiles = NULL;
  13. GLOBAL COUNT    brd_slot = -1;          /* Current Read slot */
  14. GLOBAL COUNT    bwr_slot = -1;          /* Current Write slot */
  15. GLOBAL TEXT     com_file[64] = {0};
  16. GLOBAL INT      err_code = 0;           /* error code != zero */
  17. GLOBAL INT      err_stmt = 0;           /* statement where error occured */
  18. GLOBAL FILE     fd_com = -1;
  19. GLOBAL BOOL     inp_err = NO;
  20. GLOBAL INT      on_error = 0;           /* error trapping enabled */
  21. GLOBAL BOOL     putdata = NO;
  22. GLOBAL RR       rdc = {0};              /* this needs to be filled in by bfinit */
  23. GLOBAL INT      rr_mode   = RR_NORMAL;  /* mode used by da_read */
  24. GLOBAL INT      rr_normal = RR_NORMAL;  /* INPUT statement */
  25. GLOBAL INT      rr_sinput = RR_SINPUT;  /* INPUT; statement */
  26. GLOBAL INT      rr_input  = RR_INPUT;   /* INPUT$ function */
  27. GLOBAL INT      rr_inkey  = RR_INKEY;   /* INKEY$ function */
  28. GLOBAL BOOL     run_flag = NO;
  29. GLOBAL INT      strlpfx = 0;            /* string length prefix */
  30. GLOBAL INT      trap_err = 0;           /* processing an error trap */
  31. GLOBAL INT      trap_line = 0;          /* index to error trapping routine */
  32. GLOBAL WDTH    *wdlist = NULL;
  33. GLOBAL BOOL    rawrite = NO;        /* set if ouput should go to screen */
  34.