DECLARE FUNCTION FileExist (File.Name.Check$)
DECLARE FUNCTION DayOfWeek ()
DECLARE SUB ErrorLevelSet (Error.Level%)
DECLARE SUB BeepSpeaker ()
DECLARE SUB DoorBusy ()
DECLARE SUB TimeCredit (TS!)
DECLARE SUB ExitPCB14 ()
DECLARE SUB ExitPCB12 ()
DECLARE SUB GetChar ()
DECLARE SUB InitPCB12 ()
DECLARE SUB SetSpeed ()
DECLARE SUB InitPCB14 ()
DECLARE SUB Translate (FORE, BACK, T$)
DECLARE SUB BackSpaceOver ()
DECLARE SUB ScriptCMD ()
DECLARE SUB WaitASec (How.Long.To.Wait)
DECLARE SUB ScrClr (AWD$, ClrNu)
DECLARE SUB NL (Number.Of.L)
DECLARE SUB Center (WD$)
DECLARE SUB ScrUpdate ()
DECLARE SUB Send (WD$, SendBell, SendEnter, ClrNu)
DECLARE SUB Incomm (WD$, SendEnter, GetSingle, ClrNu)
DECLARE SUB ExitDoor ()
DECLARE SUB ClrScrn ()
DECLARE SUB ColorEasy (WD$, FORE, SendEnter)
DECLARE SUB InitDoor ()
DECLARE SUB Parser (Searchfor$, Searchin$, ParArray$(), ErrCode)
DECLARE SUB ReadUsers (ErrCode)
DECLARE SUB Sorter (ParArray$(), HowManyToSort)
DECLARE SUB WriteUsers (ErrCode)
DECLARE SUB ViewFile (FILENAME$, ChkIt, MoreP, ExitP)
DECLARE SUB AllTrun (WD$)
DECLARE SUB GetTime (Hours, Minutes, Seconds, SinceMid#)
DECLARE SUB NameCase (WD$)
DECLARE SUB TimeConvert (Hours, Minutes, NT$)
DECLARE SUB ChkComm (Anyc)
DECLARE SUB ChkKeyboard (Anyc, ARG$)
DECLARE SUB SysopPage ()
DECLARE SUB Coder1 (ARG$, PS2$)
DECLARE SUB Coder2 (ARG$, PS2$)
DECLARE SUB ReverseBits (ARG$)
DECLARE SUB ReverseChars (ARG$)
DECLARE FUNCTION RandNum (Low, High)
DECLARE SUB MoveCursor (X, Y)
DECLARE SUB Windows (ULR, ULC, LRR, LRC, FORE, BACK, TFORE, TBACK, BORDER, SHADOW, TEXT$())
DECLARE SUB HighScores (Score, PROGHIGH$)
DECLARE SUB MenuManager (MENU$(), CenterIt, TextClr, How.Many.Bars, Select$, Slct, Barnumber)
DECLARE SUB ANSIMusic (Music$, Music)
COMMON SHARED WD$, AWD$, ARG$, SYSDPATH$, BBSNAME$, SYSOPNM$, CallName$, BAUD&, TIMELEFT, COMMPORT$, PROGNAME$, RELEASE$, FIRST$, Last$, ANSI, SOSL$, TWE$, Y1, Y2, Y3, Y4, Y5, Y6, Y7, TML, I1$, I2$, O1$, O2$, OUT.OF.TIME, Yes, No
COMMON SHARED MSR, Clr.Array$(), Exit.Dor.1$, Exit.Dor.2$, USERF$, USERL$, Time.Left, Caps, CommOnly, I3$, Page.Bell, Caller.Alarm, Sysop.Next, Hang.Up, User.Record, NETWORK, TABLE$, Display.Toggle, Printer.Toggle, BusyFlag, UserFile$
COMMON SHARED City.State$, PassWord$, Business.Phone$, Voice.Phone$, Last.Date.On$, Last.Logon.Time$, Expert.Mode$, Protocol.Type$, Last.Dir.Date$, Security.Level$, Times.On$, Page.Length$, Uploads$, Parity, Filter, BusyFile$
COMMON SHARED Downloads$, Daily.Download.Bytes$, User.Comment$, Sysop.Comment$, Elasped.Time$, Subcription.Reg$, Subcription.Expire$, Area.Last.In$, Area.Reg$, Expired.Area$, User.Msg.To.Scan$, TimeCred, SysFirst$, SysLast$
COMMON SHARED Total.Download.Bytes$, Total.Upload.Bytes$, Delete.Flag$, Last.Read$(), Last.Clr.Used, NTH1$, NTH2$, NTH3$, EchoKey, No.Enter.Send, Exit.Dor.Clr1, Exit.Dor.Clr2, ClrNu, Hotkey, File.Missing$, PCBVersion, BBSType$, Area.From$
COMMON SHARED Black, Blue, Green, Cyan, Red, Magenta, Brown, White, Gray, HiBlue, HiGreen, HiCyan, HiRed, HiMagenta, Yellow, HiWhite, NODE, Tabspace, Sysop, Blink$, NORMAL$, Underline$, BlinkText, UnderlineText, Not.Around$, Param$

'
'
'          Door Source  - Copyrighted 1988,1989 - Written by Todd Miller
'          Version 2.2  - Computer City, USA
'
'     ALL OR ANY MODIFCATIONS TO THIS PART OF DOOR SOURCE OR ANY OTHER
'     PART OF DOOR SOURCE WILL RESULT IN MAJOR UNCORRECTABLE BUGS!
'
  
   DIM Last.Read$(40)
   CALL InitDoor

'                   Door Source 2.2 init completed!