DECLARE SUB BOX.IT (TROW%, LCOL%, BROW%, RCOL%, BOXTYPE%, BOXFG%, BOXBG%, FILLFG%, FILLBG%, FILLCHAR%, SHADOW%, TITLE$)
DECLARE SUB CLRSCRN ()
DECLARE SUB DE.LAY (SEC%)
DECLARE SUB DETECT.ANSI ()
DECLARE SUB DIS.PLAY (MSG$, FGC%, BGC%, BLINK%, BELL%, XPOS%, YPOS%, NL%, CENTER%, CAPS%)
DECLARE SUB ENTER ()
DECLARE SUB EXIT.DOOR (YN$)
DECLARE SUB INITIALIZE ()
DECLARE SUB IN.PUT (RLEN%)
DECLARE SUB LINES (SROW%, SCOL%, LENGTH%, DIR$, ENDS%, MID%, EFG%, EBG%, MFG%, MBG%)
DECLARE SUB MAKE.BLT (HI.SCORE#)
DECLARE SUB MORE ()
DECLARE SUB MUSIC (TUNE$)
DECLARE SUB OUT.PUT (LF%)
DECLARE SUB SEND (MSG$)
DECLARE SUB SHOW.BLT ()
DECLARE SUB STATUSLINE ()
DECLARE FUNCTION EXISTS% ALIAS "QEXIST" (FileName AS STRING)

COMMON SHARED BAUDCONN$                 'Connect rate of caller or "LOCAL"
COMMON SHARED BAUDOPEN$                 'Port opening BPS
COMMON SHARED BBSSYS$                   'Name of the BBS
COMMON SHARED CALLALARM%                'Caller alarm status.     -1=ON, 0=OFF
COMMON SHARED CITY$                     'Caller's city and state
COMMON SHARED COMPORT%                  'COM port number
COMMON SHARED CONFREG$                  'Conferences registered in
COMMON SHARED DISPLAY%                  'Local display status.    -1=ON, 0=OFF
COMMON SHARED DOWNLOADS%                'Number of downloads made
COMMON SHARED ECC%                      'Error corrected connect.  1=YES, 0=NO
COMMON SHARED EXENAME$                  'Name of .EXE (Programmer supplied)
COMMON SHARED EXPERT$                   'Expert mode - "Y" or "N"
COMMON SHARED EXPIRE$                   'Caller's expiration date
COMMON SHARED GRAPHICS%                 'Graphics mode status.    -1=ON, 0=OFF
COMMON SHARED HPHONE$                   'Caller's home phone number
COMMON SHARED LASTON$                   'Date caller last logged on (MM-DD-YY)
COMMON SHARED LASTSCAN$                 'Date of last directory/new files scan
COMMON SHARED LEVEL%                    'Caller's security level
COMMON SHARED LOCALUSR%                 '-1 = LOCAL mode, 0 = Online
COMMON SHARED LOGONHRS$                 'Time caller logged on in HH:MM format
COMMON SHARED LOGONMINS%                'Time caller logged on in minutes
COMMON SHARED NAME$                     'Caller's full name
COMMON SHARED NETWORK%                  '1 = BBS is networked, 0 = no network
COMMON SHARED NODENUM%                  'Node number
COMMON SHARED OWNER$                    'Name DoorFrame is registered to.
COMMON SHARED PASSWORD$                 'Password of caller
COMMON SHARED PAGEBELL%                 'Page bell status.        -1=ON, 0=OFF
COMMON SHARED PAGELEN%                  'Caller's page length
COMMON SHARED PCBOARD%                  '1 = PCBoard, 0 = non-PCBoard
COMMON SHARED PRINTER%                  'Printer status.          -1=ON, 0=OFF
COMMON SHARED PROGNAME$                 'Name of DOOR (Programmer supplied)
COMMON SHARED RESPONSE$                 'Returned after a CALL to IN.PUT
COMMON SHARED SERIAL$                   'DoorFrame serial # (if registered)
COMMON SHARED SYSLOC$                   'Location of PCBOARD.SYS or DOOR.SYS
COMMON SHARED SYSOP%                    '1 = SYSOP is using DOOR, 0 otherwise
COMMON SHARED SYSOPFIRST$               'Sysop's first name
COMMON SHARED SYSOPLAST$                'Sysop's last name
COMMON SHARED SYSOPNAME$                'Sysop's first and last names
COMMON SHARED TIMEALWD%                 'Minutes caller is allowed
COMMON SHARED TIMELEFT%                 'Time caller has left in minutes
COMMON SHARED TIMENOW%                  'Current time in minutes
COMMON SHARED TIMESON%                  'Number of times on system
COMMON SHARED TIMEUSED%                 'Time used so far today in minutes
COMMON SHARED UPLOADS%                  'Number of uploads made
COMMON SHARED USERCOMMENT$              'User maintained comment
COMMON SHARED USERNUM%                  'Record number of caller
COMMON SHARED VERSION$                  'DOOR version # (Programmer supplied)
COMMON SHARED WPHONE$                   'Caller's work phone number

'PCBoard specific
COMMON SHARED CHATSTATUS$               'Chat mode status. "U" or "A"
COMMON SHARED CALLERSLOC$               'Location of CALLERSx log
COMMON SHARED CNAMESLOC$                'Location of CNAMES
COMMON SHARED PCBDAT$                   'Location of PCBOARD.DAT
COMMON SHARED USERSLOC$                 'Location of USERS file
COMMON SHARED FIRST$                    'Caller's first name
COMMON SHARED SYSOPFLAG$                '" ", "N"=Sysop Next, "X"=Exit to DOS

'DOOR.SYS specific
COMMON SHARED ALIAS$                    'Caller's alias/handle
COMMON SHARED ANSISUPPORT$              'Caller supports ANSI but in NG mode
COMMON SHARED BBSCOLOR%                 'BBS default color code (1-15)
COMMON SHARED BIRTHDATE$                'Caller's date of birth
COMMON SHARED DAILY.BYTES.ALWD#         'Daily download max. K limit
COMMON SHARED DOORS.OPENED%             'Number of Doors he has opened
COMMON SHARED EVENT$                    'Event time (hh:mm)
COMMON SHARED MINSCREDIT%               'Time credits in minutes
COMMON SHARED PARITY%                   'Parity (word length?) (7 or 8)
COMMON SHARED PATHGEN$                  'Path to the GEN directory
COMMON SHARED PATHMAIN$                 'Path to the MAIN directory
COMMON SHARED PROTOCOL$                 'Caller's default protocol (Z, X, etc)
COMMON SHARED TIMELASTCALL$             'Time of last call (hh:mm)
COMMON SHARED MAX.FILES%                'Maximum daily files available
COMMON SHARED MSGS.LEFT%                'Total messages left
COMMON SHARED NUM.DL.TODAY%             'Files downloaded so far today
COMMON SHARED TOTAL.BYTES.TODAY#        'Daily download K total
COMMON SHARED TOTAL.KB.DL#              'Total K bytes downloaded
COMMON SHARED TOTAL.KB.UL#              'Total K bytes uploaded

CONST BLACK = 0, BLUE = 1, GREEN = 2, CYAN = 3, RED = 4, MAGENTA = 5
CONST YELLOW = 6, WHITE = 7, GRAY = 8, LBLUE = 9, LGREEN = 10, LCYAN = 11
CONST LRED = 12, LMAGENTA = 13, LYELLOW = 14, LWHITE = 15