Category : BASIC Source Code
Archive   : IDOOR20.ZIP
Filename : IDOOR.BI

'*************************************************************************
'* This type variable is used for reading in PCBoard user files. Please *
'* read the docs to learn more about this. *
'*************************************************************************

TYPE pcbuser
nname AS STRING * 25
citystate AS STRING * 24
password AS STRING * 12
busphone AS STRING * 13
voicephone AS STRING * 13
lastdateon AS STRING * 6
lastlogon AS STRING * 5
expertmode AS STRING * 1
protocol AS STRING * 1
space AS STRING * 1
dirlookdate AS STRING * 6
seclev AS STRING * 1
numtimeson AS INTEGER
pagelen AS STRING * 1
numuploads AS INTEGER
numdownloads AS INTEGER
dailydownloads AS DOUBLE
usrcomments AS STRING * 30
syscomments AS STRING * 30
timeon AS INTEGER
subscriptionreg AS STRING * 6
subsecuritylevel AS STRING * 1
arealastin AS STRING * 1
bitmapreg AS STRING * 5
bitmapexp AS STRING * 5
bitmapscan AS STRING * 5
bytesdownload AS DOUBLE
bytesupload AS DOUBLE
deleteflg AS STRING * 1
lastreadmsg AS LONG
msgpntrs AS STRING * 156
reserved AS STRING * 15
END TYPE

'*************************************************************************
'* This file must be included in all your modules to access these subs & *
'* functions. Also please read the docs for a better explanation about *
'* the common shared variables. *
'*************************************************************************

DECLARE FUNCTION GetPCBUsers% (directory$, recnum%, tmp AS pcbuser)
DECLARE FUNCTION PutPCBUsers% (directory$, recnum%, tmp AS pcbuser)
DECLARE FUNCTION PopMenu% (Row1%, column1%, Row2%, Column2%, Header$, header2$, BorderType%, TopForeColor%, BottomForeColor%, BackGround%, HeaderColor%, TextColor, HotkeyColor, ScrollBarForeColor, ScrollBarBackColor, Array$())
DECLARE FUNCTION SetArraySize% (Row1%, Col1%, Row2%, Col2%)
DECLARE FUNCTION Isalpha% (ch$)
DECLARE FUNCTION DialogBox% (List$(), Row%, Col%, length%, BoxWidth%, Sort$, Hotkey$, Escape$, BorderType%, TopForeColor%, BottomForeColor%, BackGround%, TextColor%)
DECLARE FUNCTION EXIST2% (filename$)
DECLARE FUNCTION Hitkey$ (Who%)
DECLARE FUNCTION InputData$ (Allowed%, Fore%, Back%, Temp$, Mask$, Hotkey$)
DECLARE FUNCTION Max% (First%, SSecond%)
DECLARE FUNCTION Min% (First%, SSecond%)
DECLARE FUNCTION OpenBinary% (filename$)
DECLARE FUNCTION OpenInput% (filename$)
DECLARE FUNCTION OpenOutPut% (filename$)
DECLARE FUNCTION OpenAppend% (filename$)
DECLARE FUNCTION OpenRandom% (Filename$,flen&)
DECLARE FUNCTION Timer2! ()
DECLARE FUNCTION CheckTermulation ()
DECLARE FUNCTION SendAnsi% (filename$)
DECLARE FUNCTION SendAvatar% (filename$)
DECLARE FUNCTION SendText% (filename$)
DECLARE FUNCTION NetWork ()
DECLARE SUB SplitScreenChat ()
DECLARE SUB TextParse (text$, Array$())
DECLARE SUB LineFeed (number%)
DECLARE SUB BackSpace (number%)
DECLARE SUB ClearLine ()
DECLARE SUB PutAnsiScreen (scrn%(), Row1%, Col1%, Row2%, Col2%, Fast$)
DECLARE SUB Initialize (st$)
DECLARE SUB ExitDoor ()
DECLARE SUB MakeWindow (Row1%, column1%, Row2%, Column2%, Header$, header2$, BorderType%, TopForeColor%, BottomForeColor%, BackGround%, HeaderColor%)
DECLARE SUB SendColorLine (LineNumber%, Column%, TextLine$, Fore%, Back%)
DECLARE SUB ChangeColor (Fore%, Back%)
DECLARE SUB ChangePos (R%, C%)
DECLARE SUB CheckColor (TextLine$)
DECLARE SUB CurSorLeft (number%)
DECLARE SUB CursorDown (number%)
DECLARE SUB CursorUp (number%)
DECLARE SUB CursorRight (number%)
DECLARE SUB Rinstr (st$, st2$, Found%)
DECLARE SUB SendCode (st$)
DECLARE SUB SendLongString (Char$, Amount)
DECLARE SUB SendPlainCode (st$)
DECLARE SUB ClearWindow ()
DECLARE SUB GetAnsiScreen (scrn(), Row1%, Col1%, Row2%, Col2%)
DECLARE SUB SortSt (Array() AS STRING)
DECLARE SUB ANSIMusic (musicst$)
DECLARE SUB EnterKey (st$, Fore%, Back%, Row%, Col%)
DECLARE SUB RestoreCursor ()
DECLARE SUB SaveCursor ()
DECLARE SUB SendPlainLine (Row%, Col, st$, Fore%, Back%)
DECLARE SUB AvatarScrollUp (Row1%, Col1%, Row2%, Col2%, number%)
DECLARE SUB AvatarDelete ()
DECLARE SUB AvatarRepeat (Pattern$, number%)
DECLARE SUB AvatarInit (Row%, Col%, Fore%, Back%, Char%)
DECLARE SUB AvatarClear (Row%, Col%, Fore%, Back%)
DECLARE SUB AvatarInsert ()
DECLARE SUB AvatarScrollDown (Row1%, Col1%, Row2%, Col2%, number%)
DECLARE SUB DTR (x%)
DECLARE SUB SendJustToModem (st$)

'*************************************************************************
'* These are the variables you can access. Not all of the variables can *
'* be changed. Please refer to the IDOOR.DOC for an explanation of each.*
'*************************************************************************

COMMON SHARED Code$(), Subst$()
COMMON SHARED UserLocation$
COMMON SHARED BaudRate$
COMMON SHARED port%
COMMON SHARED BBSName$
COMMON SHARED SysopName$
COMMON SHARED DisplayType%
COMMON SHARED UserName$

COMMON SHARED TimeLeft%
COMMON SHARED SecurityLevel&
COMMON SHARED XPos%
COMMON SHARED YPos%
COMMON SHARED Node%
COMMON SHARED DoorType%
COMMON SHARED DoorDirectory$
COMMON SHARED Dinfo$()
COMMON SHARED LostCarrier%
COMMON SHARED LostCarrierAction%