' *****************************************************************************
' *                     DOORPCH.USR Version 3.8 for Doors                     *
' *                    By Raymond Clements, Clint Labarthe                    *
' *                Terry Shockley, Harold Thomson & Ben Perron                *
' *      Copyright (C), 1987, 1988, 1989, 1990, 1991 All Rights Reserved      *
' *                This logic begins at line number (label) 1.                *
' *                                                                           *
' *         Do NOT under any circumstances modify this INCLUDE file.          *
' *         Any modification will result in an INCORRECT Link and program     *
' *         failure as DOORPCH has already been linked using it.              *
' *****************************************************************************

' Common BLOCK Doorpch shared only with DOORPCH DOOR programs
  COMMON SHARED /DoorPch.Usr/ ALIAS.FIRST$,                   _
                              ALIAS.LAST$,                    _
                              ALIAS.NAME$,                    _
                              ANSI%,                          _
                              ANSI.COLOR%,                    _
                              ANSI.MUSIC%,                    _
                              ARG$,                           _
                              BACKSPACE$,                     _
                              BAUDCONN$,                      _
                              BAUDOPEN$,                      _
                              BBSSYS$,                        _
                              BBSSYS.FILE$,                   _
                              BELL%,                          _
                              BGC%,                           _
                              BIRTH.DATE$,                    _
                              BLINK%,                         _
                              BYTES.DOWNLOADED.THIS.CALL#,    _
                              CALLALARM%,                     _
                              CENTER%,                        _
                              CFG.FILE$,                      _
                              CITY.STATE$,                    _
                              CLRHOME$,                       _
                              COM.PORT%,                      _
                              COMPRTOPN%,                     _
                              CONFERENCE.EXITED.FROM$,        _
                              CONFERENCE.MEMBER$,             _
                              CR$,                            _
                              CRLF$,                          _
                              D.TIME#,                        _
                              DAY%,                           _
                              DEFAULT.BBS.COLOR%,             _
                              DISPLAY%,                       _
                              DISPTIME$,                      _
                              DMIN%,                          _
                              DOOR.SHUTDOWN%,                 _
                              DOORPCH.SCORES%,                _
                              DOWNLOADS#,                     _
                              ERRCNT%,                        _
                              ERREXP%,                        _
                              ERROR.CORRECTING.CONNECTION%,   _
                              ESC$,                           _
                              EVENT.TIME$,                    _
                              EVENT.TIME#,                    _
                              EXPERT$,                        _
                              EXTRA%,                         _
                              EXTRA1$,                        _
                              EXTRA1.NAME$,                   _
                              EXTRA1.NUMERIC%,                _
                              EXTRA2$,                        _
                              EXTRA2.NAME$,                   _
                              EXTRA2.NUMERIC%,                _
                              EXTRA3$,                        _
                              EXTRA3.NAME$,                   _
                              EXTRA3.NUMERIC%,                _
                              FGC%,                           _
                              FILES.DOWNLOADED.TODAY#,        _
                              FIRST$,                         _
                              GAME.FILE$,                     _
                              GEN.DIR$,                       _
                              GRAPHICS%,                      _
                              HANGUP%,                        _
                              HIGH%,                          _
                              HOME$,                          _
                              HOMEPHONE$,                     _
                              HOURS%,                         _
                              HSCR#,                          _
                              HSCR.2DECIMALS%,                _
                              HSCR.DOLLARS%,                  _
                              J.AGE#,                         _
                              J.DAY%,                         _
                              J.MONTH$,                       _
                              J.MONTH%,                       _
                              J.WEEKDAY$,                     _
                              J.WEEKDAY%,                     _
                              J.YEAR%,                        _
                              JULIAN#,                        _
                              LAST$,                          _
                              LAST.DATE.ON$,                  _
                              LAST.DATE.PLAYED$,              _
                              LAST.DIR.DATE$,                 _
                              LF$,                            _
                              LN$,                            _
                              LOCAL.MODE%,                    _
                              LOCAL.MUSIC%,                   _
                              LOCALUSR%,                      _
                              MAIN.DIR$,                      _
                              MAX.DAILY.FILES#,               _
                              MAX.DAILY.K#,                   _
                              MINS.CREDITED%,                 _
                              MINUTES%,                       _
                              MUSIC$,                         _
                              NAME$,                          _
                              NAME.CAPS$,                     _
                              NETWORK%,                       _
                              NO.DISPLAY.OFF%,                _
                              NODE%,                          _
                              NON.GRAPHICS.ANSI%,             _
                              NUM.TIMES.PLAYED%,              _
                              ONCE%,                          _
                              PAGE.LENGTH%,                   _
                              PAGEBELL%,                      _
                              PARAM$,                         _
                              PASSWORD$,                      _
                              PCB.CALLER.FILE$,               _
                              PCB.DAT.FILE$,                  _
                              PCB.USERS.FILE$,                _
                              PLAYER2.NAME$,                  _
                              PLAYER2.EXTRA1$,                _
                              PLAYER2.EXTRA2$,                _
                              PLAYER2.EXTRA3$,                _
                              PLAYER2.GAME.FILE$,             _
                              PLAYER2.HSCR#,                  _
                              PLAYER2.LAST.DATE.PLAYED$,      _
                              PLAYER2.NUM.TIMES.PLAYED%,      _
                              PLAYER2.RUNG%,                  _
                              POINTS.NAME$,                   _
                              PRINT.USING$,                   _
                              PROGB$,                         _
                              PROGNAME$,                      _
                              PROMPT$,                        _
                              PROTOCOL$,                      _
                              R.ELEASE$,                      _
                              RECORD.NUMBER#,                 _
                              RETURNCASE%,                    _
                              RUNG%,                          _
                              SCORES.NAME$,                   _
                              SECONDS%,                       _
                              SECS.LEFT#,                     _
                              SECURITY.LEVEL%,                _
                              SHUTDOWN%,                      _
                              SINCEMID#,                      _
                              SORT%,                          _
                              SPONSOR$,                       _
                              SUBSCRIPTION.DATE$,             _
                              SYMBOL$,                        _
                              SYSFIRST$,                      _
                              SYSLAST$,                       _
                              SYSNAME$,                       _
                              SYSOP%,                         _
                              SYSOP.COMMENT$,                 _
                              TBSN%,                          _
                              TIME.CALLED$,                   _
                              TIME.LAST.CALLED$,              _
                              TIME.ON#,                       _
                              TIMES.ON#,                      _
                              TIMESTART#,                     _
                              TOTAL.DOORS.OPENED#,            _
                              TOTAL.DOWNLOADED.K#,            _
                              TOTAL.MSGS.LEFT#,               _
                              TOTAL.MSGS.READ#,               _
                              TOTAL.UPLOADED.K#,              _
                              UPLOADS#,                       _
                              USE.AT.CODES%,                  _
                              USE.BASIC.COLORS%,              _
                              USER.COMMENT$,                  _
                              USR.KY$,                        _
                              USR.NODE$,                      _
                              WORKPHONE$,                     _
                              XPOS%,                          _
                              YPOS%

' *****************************************************************************
' *  Constants ...                                                            *
' *****************************************************************************

  CONST TRUE    = -1, _
        FALSE   =  0, _      
        YES     =  1, _
        NO      =  0

  CONST BLACK   =  0, _
        RED     =  1, _
        GREEN   =  2, _
        YELLOW  =  3, _
        BLUE    =  4, _
        MAGENTA =  5, _
        CYAN    =  6, _
        WHITE   =  7