home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / EVENTS / CBVW172U.ZIP / CBVVAR.PAS < prev    next >
Pascal/Delphi Source File  |  1993-03-09  |  3KB  |  103 lines
  1. UNIT CBVVAR;    (* contains variables specific to WWIV version *)
  2.  
  3. INTERFACE
  4.  
  5. CONST
  6.  
  7.     _version            = 'WWIV-CBV 1.60 ';
  8.  
  9.     _autoconfigfile     = 'AUTOCFG.CBV';
  10.     _restore            = 'RESTORE.WWV';
  11.     _config             = 'CBVCFG.DAT';
  12.     _user_file          = 'USER.LST';
  13.     _versionflag1       = 1150000150;
  14.     _versionflag2       = 1000150000;
  15.  
  16. TYPE
  17.  
  18.     ConfigRec           = RECORD
  19.       header            : STRING[15];
  20.  
  21.       use_note_field,
  22.       compare_fons,                    (* compare userrec.phone 2 entry?? *)
  23.       update_trash,
  24.       allow_ld,
  25.       allow_out_ld,
  26.       CTS_RTS,
  27.       hangup_after,
  28.       wwiv_421,
  29.       use_callfile,                    (* CANCALL.DAT - ac-pr to only call *)
  30.       direct_write,
  31.       quite_mode,                      (* option requested by Apolloyn *)
  32.       allow_toll        : BOOLEAN;     (* new option *)
  33.  
  34.       retry_attempts,
  35.       delay_time,
  36.       drop_delay,
  37.       min_time,                        (* min time granted for door use *)
  38.       hang_time,                       (* no entry hangup time *)
  39.       max_SL,
  40.  
  41.       LC_SL,                           (* New SL when validated *)
  42.       LC_DSL,                          (* New DSL when validated *)
  43.       LC_exempt,                       (* New Exempt when validated *)
  44.       LD_SL,                           (* New SL when Long-Dist validated *)
  45.       LD_DSL,
  46.       LD_exempt        : BYTE;
  47.  
  48.       IRQLevel,
  49.  
  50.       LC_AR,                           (* ARs when validated *)
  51.       LC_DAR,
  52.       LC_REST,
  53.       LD_AR,
  54.       LD_DAR,
  55.       LD_REST          : WORD;
  56.  
  57.       bbs_areac,
  58.       bbs_prefix,
  59.       bbs_suffix       : STRING[4];
  60.  
  61.       LD_PREFIX        : STRING[20];
  62.  
  63.       dialcommand,                     (* command to dial on modem *)
  64.       hangupcmd        : STRING[30];   (* command to hangup the modem *)
  65.  
  66.       bbsdirectory     : STRING[60];
  67.  
  68.       loc_actsl,                       (* byte location in restore.wwv *)
  69.       userreclen,
  70.       offset_name,
  71.       offset_phone,
  72.       offset_passwd,
  73.       offset_note,
  74.       offset_sl,
  75.       offset_dsl,
  76.       offset_exempt,
  77.       offset_ar,
  78.       offset_dar,
  79.       offset_rest      : WORD;
  80.  
  81.       version1,
  82.       version2,
  83.  
  84.       LastDate,                       (* for checking autocfg *)
  85.  
  86.       LD_WIN_START,
  87.       LD_WIN_STOP      : LONGINT;
  88.  
  89.     END;
  90.  
  91.     ASCIIZ             = ARRAY[0..255] OF CHAR;
  92.  
  93. VAR
  94.    file_buffer         : ARRAY[0..3071] OF CHAR;
  95.    userfile            : FILE;
  96.  
  97.    Config              : ConfigRec;
  98.    ConfigFile          : FILE OF ConfigRec;
  99.  
  100. IMPLEMENTATION
  101.  
  102. END.
  103.