Category : BBS Programs+Doors
Archive   : RFIX0312.ZIP
Filename : RVAR0312.BAS

' $SUBTITLE: 'Arrays passed between various components of RBBS-PC'
' $PAGE
DEFINT A-Z
'
' The following static arrays are passed between the various subroutines
' within RBBS-PC.
'
DIM ZHelp$(9) ' Help file names
DIM ZWasLG$(12) ' Holds message strings
DIM ZMenu$(7) ' Menu file names
DIM ZSubDir$(99) ' Download Sub-Dirs
' $SUBTITLE: 'Variables passed between various components of RBBS-PC'
' $PAGE
'
' The following variables are passed between the various and
' seperately compiled subroutines used by RBBS-PC.
'
COMMON SHARED _
ZAbort, _
ZAckChar$, _
ZAcknowledge$, _
ZActiveBulletins, _
ZActiveFMSDir$, _
ZActiveMenu$, _
ZActiveMessage$, _
ZActiveMessageFile$, _
ZActiveUserFile$, _
ZActiveUserName$, _
ZAddDirSecurity, _
ZAdjustedSecurity, _
ZAdvanceProtoWrite, _
ZAllOpts$, _
ZAllowCallerTurbo, _
ZAllwaysStrewTo$, _
ZAltdirExtension$, _
ZAnsIndex, _
ZAnsMenu$, _
ZArcWork$, _
ZAskExtendedDesc, _
ZAskID, _
ZAttemptsAllowed, _
ZAutoDownDesired, _
ZAutoDownInProgress, _
ZAutoDownVerified, _
ZAutoDownYes, _
ZAutoLogoff!, _
ZAutoLogoffReq, _
ZAutoPageDef$, _
ZAutoUpgradeSec, _
ZBackArrow$, _
ZBackSpace$, _
ZBankTime, _
ZBankTime$, _
ZBatchProto, _
ZBatchTransfer, _
ZBaudParity$, _
ZBaudRateDivisor, _
ZBaudRates$, _
ZBaudTest!, _
ZBegFile, _
ZBegLibrary, _
ZBegMain, _
ZBegUtil, _
ZBellRinger$, _
ZBG, _
ZBlk, _
ZBlocksInFile#, _
ZBlockSize, _
ZBoldText$, _
ZBorder, _
ZBPS, _
ZBufferSize, _
ZBulletinMenu$, _
ZBulletinPrefix$, _
ZBulletinSave$, _
ZBulletinsOptional, _
ZBypassMsgs, _
ZBypassTimeCheck, _
ZByteMethod, _
ZBytesInFile#, _
ZBytesToday!, _
ZCallersFile$, _
ZCallersFileIndex!, _
ZCallersFilePrefix$, _
ZCallersLst$, _
ZCallersRecord$, _
ZCancel$, _
ZCanDnldFromUp, _
ZCarriageReturn$, _
ZCategoryCode$(1), _
ZCategoryDesc$(1), _
ZCategoryName$(1), _
ZCBaud$, _
ZCBPS, _
ZChainedDir$, _
ZChatAvail, _
ZCheckBulletLogon, _
ZCheckSum, _
ZCityState$, _
ZCmdPrompt$, _
ZCmdsBetweenRings, _
ZCmdTransfer$, _
ZCmndsInPrompt, _
ZCmntsAsMsgs, _
ZCmntsFile$, _
ZColorReset$, _
ZCommPortStack$, _
ZComPort$, _
ZComPort, _
ZCompressedExt$, _
ZComProgram, _
ZComputerType, _
ZConcatFIles, _
ZConfigFileName$, _
ZConfMailList$, _
ZConfMenu$, _
ZConfMode, _
ZConfName$, _
ZCopyrightSecs, _
ZCR, _
ZCrLf$, _
ZCurDate$, _
ZCurDef$, _
ZCurDirPath$, _
ZCurPUI$, _
ZCursorLine, _
ZCursorRow, _
ZCustomPUI, _
ZDateOrderedFMS, _
ZDaysInRegPeriod, _
ZDaysToWarn, _
ZDebug, _
ZDefaultCatCode$, _
ZDefaultEchoer$, _
ZDefaultExtension$, _
ZDefaultLineACK$, _
ZDefaultSecLevel, _
ZDefaultXfer$, _
ZDelay!, _
ZDeletedMsg$, _
ZDeleteInvalid, _
ZDenyAccess, _
ZDirCatFile$, _
ZDirExtension$, _
ZDirFile$, _
ZDirPath$, _
ZDirPrefix$, _
ZDirPrompt$, _
ZDiskForDos$, _
ZDiskFullGoOffline, _
ZDisplayAsUnit, _
ZDistantTGet, _
ZDistriHelp$, _
ZDistriPath$, _
ZDLBytes!, _
ZDlBytes$, _
ZDLToday!, _
ZDnldDrives$, _
ZDnldRecord$, _
ZDnlds, _
ZDoorDisplay$, _
ZDooredTo$, _
ZDoorsAvail, _
ZDoorsDef$, _
ZDoorSkipsPswd, _
ZDoorsTermType, _
ZDoorTime$, _
ZDosANSI, _
ZDosVersion, _
ZDotFlag, _
ZDownFiles, _
ZDownTemplate$, _
ZDR1$, _
ZDR2$, _
ZDR3$, _
ZDR4$, _
ZDTRDropDelay, _
ZDumbModem, _
ZDwnIndex, _
ZEchoer$, _
ZEightBit, _
ZElapsedTime$, _
ZElapsedTime, _
ZEmphasizeOff$, _
ZEmphasizeOffDef$, _
ZEmphasizeOn$, _
ZEmphasizeOnDef$, _
ZEnableCC, _
ZEndOfficeHours, _
ZEndTime, _
ZEndTransmission$, _
ZEnforceRatios, _
ZEOL, _
ZEpilog$, _
ZErrCode, _
ZEscape$, _
ZEscapeInsecure, _
ZExitToDoors, _
ZExpectActiveModem, _
ZExpertUser, _
ZExpirationDate$, _
ZExpiredSec, _
ZExtendedLogging, _
ZExtendedOff, _
ZExtraDnldTime, _
ZF10Key, _
ZF1Key, _
ZF7Msg$, _
ZFailureParm, _
ZFailureString$, _
ZFakeXRpt, _
ZFalse, _
ZFastFileList$, _
ZFastFileLocator$, _
ZFastFileSearch, _
ZFastTabs$, _
ZFF, _
ZFG, _
ZFG1$, _
ZFG1Def$, _
ZFG2$, _
ZFG2Def$, _
ZFG3$, _
ZFG3Def$, _
ZFG4$, _
ZFG4Def$, _
ZFileCmd$, _
ZFileLocation$, _
ZFileName$, _
ZFileNameHold$, _
ZFileOpts$, _
ZFileSecFile$, _
ZFileSysParm, _
ZFileWaiting, _
ZFirstName$, _
ZFirstNameEnd, _
ZFirstNamePrompt$, _
ZFLen, _
ZFlowControl, _
ZFMSDirectory$, _
ZFMSDoor, _
ZFMSFileLength, _
ZForceKeyboard, _
ZFossil, _
ZFreeDnld, _
ZFreeSpace$, _
ZFreeSpaceUpldFile$, _
ZFunctionKey
COMMON SHARED _
ZGetExtDesc, _
ZGlobalBankTime, _
ZGlobalBytesToday!, _
ZGlobalCmnds$, _
ZGlobalDLBytes!, _
ZGlobalDLToday!, _
ZGlobalDnlds, _
ZGlobalRead, _
ZGlobalsSet, _
ZGlobalSysop, _
ZGlobalULBytes!, _
ZGlobalUplds, _
ZGSRAra$(1), _
ZHaltOnError, _
ZHasDoored, _
ZHasPrivDoor, _
ZHelp$(), _
ZHelpExtension$, _
ZHelpPath$, _
ZHidden, _
ZHighestUserRecord, _
ZHiLiteOff, _
ZHomeConf$, _
ZHostEchoOff$, _
ZHostEchoOn$, _
ZHourMinToDropToDos, _
ZInConfMenu, _
ZIndivValue$, _
ZInitialCredit#, _
ZInternalEquiv$, _
ZInternalProt$, _
ZInterrupOn$, _
ZInvalidFileOpts$, _
ZInvalidLibraryOpts$, _
ZInvalidMainOpts$, _
ZInvalidOpts$, _
ZInvalidSysOpts$, _
ZInvalidUtilOpts$, _
ZJumpLast$, _
ZJumpSearching, _
ZJumpSupported, _
ZJumpTo$, _
ZKeepInitBaud, _
ZKeepTimeCredits, _
ZKermitExeFile$, _
ZKermitSupport, _
ZKeyboardStack$, _
ZKeyPressed$, _
ZKeyPressed, _
ZKillMessage, _
ZLastCommand$, _
ZLastDateTimeOn$, _
ZLastDateTimeOnSave$, _
ZLastIndex, _
ZLastMsgRead, _
ZLastName$, _
ZLastNameEnd, _
ZLastNamePrompt$, _
ZLastSmartColor$, _
ZLenHash, _
ZLenIndiv, _
ZLibArcPath$, _
ZLibArcProgram$, _
ZLibCmds$, _
ZLibDir$, _
ZLibDirExtension$, _
ZLibDirPath$, _
ZLibDiskChar$, _
ZLibDrive$, _
ZLibMaxDir, _
ZLibMaxDisk, _
ZLibMaxSubdir, _
ZLibNodeID$, _
ZLibOpts$, _
ZLibSubdirPrefix$, _
ZLibType, _
ZLibWorkDiskPath$, _
ZLimitMinsPerSession, _
ZLimitSearchToFMS, _
ZLine25$, _
ZLine25Hold$, _
ZLineCntlReg, _
ZLineEditChk$, _
ZLineFeed$, _
ZLineFeeds, _
ZLineMes$, _
ZLinesInMsg, _
ZLinesInMsgSave, _
ZLinesPrinted, _
ZLineStatusReg, _
ZLinkedConf$, _
ZListDir, _
ZListIndex, _
ZListNewDate$, _
ZListOnly, _
ZLocalBksp$, _
ZLocalUser, _
ZLocalUserMode, _
ZLockDrive, _
ZLockFileName$, _
ZLockStatus$, _
ZLogonActive, _
ZLogonErrorIndex, _
ZLogonMailLevel$, _
ZLSB
COMMON SHARED _
ZMacroActive, _
ZMacroDrvPath$, _
ZMacroEcho, _
ZMacroExtension$, _
ZMacroMin, _
ZMacroSave, _
ZMacroTemplate$, _
ZMailWaiting, _
ZMainCmds$, _
ZMainDirExtension$, _
ZMainFMSDir$, _
ZMainMsgBackup$, _
ZMainMsgFile$, _
ZMainOpts$, _
ZMainPUI$, _
ZMainUserFile$, _
ZMainUserFileIndex, _
ZMarkedFiles$, _
ZMarkedMsgs$, _
ZMasterDirName$, _
ZMaxBank, _
ZMaxBankTimeDef, _
ZMaxCarrierWait, _
ZMaxDescLen, _
ZMaxExtendedLines, _
ZMaxMsgLines, _
ZMaxMsgLinesDef, _
ZMaxNodes, _
ZMaxPerDay,_
ZMaxPerDayDef,_
ZMaxPswdChanges, _
ZMaxRegSec, _
ZMaxViolations, _
ZMaxWorkVar, _
ZMenu$(), _
ZMenuIndex, _
ZMenusCanPause, _
ZMinLogonSec, _
ZMinNewCallerBaud, _
ZMinOldCallerBaud, _
ZMinSecForTempPswd, _
ZMinSecPersUpld, _
ZMinSecToView, _
ZMinsInDoors, _
ZMinsPerSession, _
ZMinsPerSessionDef, _
ZMLCom, _
ZModemAnswerCmd$, _
ZModemCmdDelayTime, _
ZModemCntlReg, _
ZModemCountRingsCmd$, _
ZModemGoOffHookCmd$, _
ZModemInitBaud$, _
ZModemInitCmd$, _
ZModemInitWaitTime, _
ZModemOffHook, _
ZModemResetCmd$, _
ZModemStatusReg, _
ZMorePrompt$, _
ZMSB, _
ZMsgDim, _
ZMsgDimIndex, _
ZMsgDimIndexSave, _
ZMsgFileLock, _
ZMsgHeader$, _
ZMsgPswd, _
ZMsgPtr(2), _
ZMsgRec$, _
ZMsgReminder, _
ZMsgSecCats$, _
ZMsgsCanGrow, _
ZMultiLinkPresent, _
ZMusic, _
ZNAK$, _
ZNetBaud$, _
ZNetMail$, _
ZNetReliable$, _
ZNetTime$, _
ZNetworkType, _
ZNewFilesCheck, _
ZNewMsgs, _
ZNewPrivateMsgsSec, _
ZNewPublicMsgsSec, _
ZNewsFileName$, _
ZNewUser, _
ZNewUserFile$, _
ZNewUserMargins, _
ZNewUserQuestionnaire$, _
ZNewUserSetsDefaults, _
ZNextMsgRec, _
ZNo, _
ZNoAdvance, _
ZNodeFileID$, _
ZNodeID$, _
ZNodeRecIndex, _
ZNodeWorkDrvPath$, _
ZNodeWorkFile$, _
ZNoDoorProtect, _
ZNonStop, _
ZNonStopSave, _
ZNoQuoting, _
ZNotCTS, _
ZNul$, _
ZNulls, _
ZNumCategories, _
ZNumDnldBytes!, _
ZNumHeaders, _
ZOK, _
ZOldDate$, _
ZOmitMainDir$, _
ZOneStop, _
ZOptionEnd$, _
ZOptSec(1), _
ZOrigCallers$, _
ZOrigCnfg$, _
ZOrigCommands$, _
ZOrigDateTimeOn$, _
ZOrigMsgFile$, _
ZOrigSec, _
ZOrigSysopFN$, _
ZOrigSysopLN$, _
ZOrigTimeLoggedOn$, _
ZOrigUserFile$, _
ZOrigUserFileIndex, _
ZOrigUserName$, _
ZOutTxt$(1), _
ZOutTxt$, _
ZOverWriteSecLevel, _
ZPageLength, _
ZPageLengthDef, _
ZPageStatus$, _
ZPagingPtrSupport$, _
ZParseOff, _
ZPersonalBegin, _
ZPersonalConcat, _
ZPersonalDir$, _
ZPersonalDnld, _
ZPersonalDrvPath$, _
ZPersonalLen, _
ZPersonalProtocol$, _
ZPossibleMacro, _
ZPreLog$, _
ZPressEnter$, _
ZPressEnterExpert$, _
ZPressEnterNovice$, _
ZPrevBase$, _
ZPrevCaller$, _
ZPrevPrefix$, _
ZPrevPUI$, _
ZPrinter, _
ZPrivateDoor, _
ZPrivateReadSec, _
ZPromptBell, _
ZPromptBellDef, _
ZPromptHash$, _
ZPromptIndiv$, _
ZProtoDef$, _
ZProtoMacro$, _
ZProtoMethod$, _
ZProtoPrompt$, _
ZPswd$, _
ZPswdFailed, _
ZPswdFile$, _
ZPswdSave$, _
ZPublicReadSec, _
ZQuesPath$, _
ZQuestAborted, _
ZQuestChainStarted, _
ZQuitList$, _
ZQuitPromptExpert$, _
ZQuitPromptNovice$
COMMON SHARED _
ZRatioRestrict#, _
ZRBBSBat$, _
ZRBBSName$, _
ZRCTTYBat$, _
ZRecycleToDos, _
ZRecycleWait, _
ZRedirectIOMethod, _
ZRegDate$, _
ZRegDaysRemaining, _
ZRegDisplayDate$, _
ZRegProgram$, _
ZReliableMode, _
ZRememberNewUsers, _
ZRemindFileXfers, _
ZRemindProfile, _
ZRemoteEcho, _
ZRemoteSysop, _
ZReply, _
ZReq8Bit, _
ZReqQues$, _
ZReqQuesAnswered, _
ZRequiredRings, _
ZRequireNonASCII, _
ZRestrictByDate, _
ZRestrictValidCmds, _
ZRet, _
ZRetERL, _
ZReturnLineFeed$, _
ZRightMargin, _
ZRTS$, _
ZScreenOutMsg$, _
ZSearchingAll, _
ZSecChangeMsg, _
ZSecExemptFromEpilog, _
ZSecKillAny, _
ZSecLevel$, _
ZSecretName$, _
ZSecsPerSession!, _
ZSecsUsedSession!, _
ZSection$, _
ZSectionOpts$, _
ZSectionPrompt$, _
ZSecVioHelp$, _
ZSemiOnly, _
ZSessionHour, _
ZSessionMin, _
ZSessionSec, _
ZShareIt, _
ZShowSection, _
ZSizeOfStack, _
ZSkipFilesLogon, _
ZSLCategorizeUplds, _
ZSleepDisconnect, _
ZSmartTable$, _
ZSmartTextCode$, _
ZSmartTextCode, _
ZSnoop, _
ZSpeedFactor!, _
ZStackC, _
ZStartHash, _
ZStartIndiv, _
ZStartOfficeHours, _
ZStartOfHeader$, _
ZStartTime, _
ZStopInterrupts, _
ZStoreParseAt, _
ZSubBoard, _
ZSubDir$(), _
ZSubDirCount, _
ZSubDirIndex, _
ZSubParm, _
ZSubSection, _
ZSurviveNoUserRoom, _
ZSuspendAutoLogoff, _
ZSwitchBack, _
ZSysop, _
ZSysopAnnoy, _
ZSysopAvail, _
ZSysopCmds$, _
ZSysopComment, _
ZSysopFirstName$, _
ZSysopFullName$, _
ZSysopLastName$, _
ZSysopMenuSecLevel, _
ZSysopMsg, _
ZSysopNext, _
ZSysopPswd1$, _
ZSysopPswd2$, _
ZSysopSecLevel, _
ZSystemOpts$, _
ZTalkAll, _
ZTalkToModemAt$, _
ZTempExpiredSec, _
ZTempMaxBank, _
ZTempMaxPerDay, _
ZTempPassword$, _
ZTempRegPeriod, _
ZTempSecLevel, _
ZTempTimeAllowed, _
ZTempTimeLock, _
ZTestANSITime, _
ZTestedIntValue, _
ZTestParity, _
ZTime$, _
ZTimeCredits!, _
ZTimeLock, _
ZTimeLockSet, _
ZTimeLoggedOn$, _
ZTimesLoggedOn, _
ZTimeToDropToDos!, _
ZTodayBytes$, _
ZTodayDl$, _
ZTodayRegDD, _
ZTodayRegMM, _
ZTodayRegYY, _
ZToggleOnly, _
ZTransferFunction, _
ZTransferOption$, _
ZTrashcanFile$, _
ZTrue, _
ZTurboKey, _
ZTurboKeyUser, _
ZTurboRBBS, _
ZTurnPrinterOff, _
ZULBytes!, _
ZULBytes$, _
ZUnitCount, _
ZUpcatHelp$, _
ZUpInc, _
ZUpldDir$, _
ZUpldDirCheck$, _
ZUpldDoor$, _
ZUpldDriveFile$, _
ZUpldPath$, _
ZUpldRec$, _
ZUplds, _
ZUpldSubdir$, _
ZUpldTimeFactor!, _
ZUpldToSubdir, _
ZUpperCase, _
ZUpTemplate$, _
ZUseBASICWrites, _
ZUseDeviceDriver$, _
ZUseExternalXmodem, _
ZUseExternalYmodem, _
ZUserBlockLock, _
ZUserDnlds$, _
ZUserFileIndex, _
ZUserFileLock, _
ZUserGraphicDefault$, _
ZUserIn$(1), _
ZUserIn$, _
ZUserLocation$, _
ZUserLogonTime!, _
ZUserName$, _
ZUserOption$, _
ZUserRecord$, _
ZUserRegDD, _
ZUserRegMM, _
ZUserRegYY, _
ZUserSecLevel, _
ZUserSecSave, _
ZUserTextColor, _
ZUserUplds$, _
ZUserXferDefault$, _
ZUseTPut, _
ZUtilCmds$, _
ZUtilOpts$, _
ZVerifyHigh$, _
ZVerifying, _
ZVerifyList$, _
ZVerifyLow$, _
ZVerifyNumeric, _
ZVersionID$, _
ZViolation$, _
ZViolationsThisSession, _
ZVoiceType, _
ZWaitBeforeDisconnect, _
ZWaitExpired, _
ZWasA, _
ZWasB, _
ZWasC, _
ZWasCC, _
ZWasCI$, _
ZWasCL, _
ZWasCM, _
ZWasCN$, _
ZWasDF$, _
ZWasDF, _
ZWasEL, _
ZWasEN$, _
ZWasFT$, _
ZWasGR, _
ZWasHH, _
ZWasLG$(), _
ZWasLM$, _
ZWasN$, _
ZWasNG$, _
ZWasQ!, _
ZWasQ, _
ZWasS, _
ZWasSL, _
ZWasSQ, _
ZWasY$, _
ZWasZ$, _
ZWelcomeFile$, _
ZWelcomeFileDrvPath$, _
ZWelcomeInterruptable, _
ZWorkAra$(1), _
ZWrapCallersFile$, _
ZWriteBufDef, _
ZXferSupport, _
ZXOff$, _
ZXOffEd, _
ZXOn$, _
ZXOnXOff, _
ZYes
' $SUBTITLE: 'Functions common to all components of RBBS-PC'
' $PAGE
'
' The following functions may be used by any routine in RBBS-PC
'
' FNOffOn$ returns "Off" if switch is 0, and returns "On" if
' switch is non-zero.

DEF FNOffOn$ (Switch) = MID$("OffOn", 1 - 3 * (Switch <> 0), 3)