Beijing Paradise BBS Backup

home *** CD-ROM | disk | FTP | other *** search

/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / CDOR0811.ZIP / SOURCE.ZIP / RBBSSUB6.BAS < prev next >

Wrap

BASIC Source File | 1993-08-11 | 202.2 KB | 2,537 lines

' $segment ' DD091303 ' $linesize:132 ' DD090203 ' $title: 'RBBSSUB6.BAS 17.4' ' DD090203 ' ' DD090203 ' Subroutine Line Function of Subroutine ' DD090203 ' Name Number ' DD090203 ' ' DD090203 ' $INCLUDE: 'RBBS-VAR.BAS' ' DD090203 ' ' DD091303 100 SUB DoorSys STATIC ' DD091701 CALL TimeRemain (MinsRemaining) 'ER 06/05/92 Close 2 ' DD091701 OPEN "O", 2, ZNodeWorkDrvPath$ + "DOOR.SYS" 'ER 05/31/92 IF ZLocalUser THEN _ ' DD092302/DOORSYS PRINT #2, "COM0:" _ ' DD092302/DOORSYS ELSE PRINT #2, ZComPort$ + CHR$(58) '(1) ' DD092302/DOORSYS PRINT #2, ZCBaud$ '(2) 'ER 05/30/92 ZPosition% = INSTR(ZBaudParity$, "N,") 'ER 06/17/92 PRINT #2, MID$(ZBaudParity$, ZPosition% + 2, 1) '(3) 'ER 06/17/92 PRINT #2, ZNodeFileID$ '(4) 'ER 05/30/92 PRINT #2, ZTalkToModemAt$ '(5) ' DD092302/DOORSYS IF ZSnoop = -1 THEN _ '(6) ' DD092302/DOORSYS PRINT #2, CHR$(89) _ ' DD021301 ELSE PRINT #2, CHR$(78) ' DD021301 IF ZPrinter = -1 THEN _ '(7) 'ER 05/30/92 PRINT #2, CHR$(89) _ ' DD021301 ELSE PRINT #2, CHR$(78) ' DD021301 IF ZSysopAvail = -1 OR ZSysopAnnoy = -1 THEN _ '(8) 'ER 06/05/92 PRINT #2, CHR$(89) _ 'ER 06/05/92 ELSE PRINT #2, CHR$(78) ' DD021301 IF ZSysopAvail = -1 OR ZSysopAnnoy = -1 THEN _ '(9) 'ER 06/05/92 PRINT #2, CHR$(89) _ ' DD021301 ELSE PRINT #2, CHR$(78) ' DD021301 IF ZGlobalSysop THEN _ '(10) 'ER 05/30/92 PRINT #2, ZSysopFirstName$ + SPACE$(1) + ZSysopLastName$ _ ' DD021301 ELSE PRINT #2, OrigFirstName$ + SPACE$(1) + ZLastName$ ' DD021301 PRINT #2, ZCityState$ '(11) ' DD092302/DOORSYS PRINT #2, "" 'Home Phone '(12) ' DD092302/DOORSYS PRINT #2, "" 'Data Phone '(13) ' DD092302/DOORSYS PRINT #2, ZPswdSave$ '(14) 'ER 05/30/92 ZZ$ = STR$(ZUserSecLevel) 'RT070192 CALL Trim(ZZ$) 'RT070192 PRINT #2, ZZ$ '(15) 'RT070192 ZZ$ = STR$(ZTimesLoggedOn) 'RT070192 CALL Trim(ZZ$) 'RT070192 PRINT #2, ZZ$ '(16) 'RT070192 PRINT #2, MID$(ZLastDateTimeOn$, 1, 2) + CHR$(47) + _ ' DD021301 MID$(ZLastDateTimeOn$, 4 ,2) + CHR$(47) + _ ' DD021301 MID$(ZLastDateTimeOn$, 7 ,2) 'ER 06/05/92 CALL TimeRemain (MinsRemaining) ' DD020901 CALL CheckInt (ZDoorTime$) ' DD020901 IF ZErrCode = 0 AND ZTestedIntValue > 0 THEN _ ' DD020901 IF MinsRemaining > ZTestedIntValue THEN _ ' DD020901 MinsRemaining = ZTestedIntValue ' DD020901 ZZ$ = STR$(INT(MinsRemaining) * 60) ' DD020901 CALL Trim(ZZ$) 'RT070192 PRINT #2, ZZ$ '(18) 'RT070192 PRINT #2,INT(MinsRemaining) '(19) ' DD020901 IF ZWasGR = 4 THEN ' DD071702 PRINT #2, "RIP" '(20) ' DD071702 ELSEIF ZWasGR = 2 OR ZWasGR = 3 THEN ' DD071702 PRINT #2, "GR" ' DD071702 ELSE ' DD071702 PRINT #2, "NG" ' DD071702 END IF ' DD071702 ZZ$ = STR$(ZPageLength) 'RT070192 CALL Trim(ZZ$) 'RT070192 PRINT #2, ZZ$ '(21) 'RT070192 IF ZExpertUser THEN _ '(22) ' DD092302/DOORSYS PRINT #2, CHR$(89) _ ' DD021301 ELSE PRINT #2, CHR$(78) ' DD021301 PRINT #2, "" 'Conferences registered in '(23) ' DD092302/DOORSYS ZZ$ = ZConfName$ ' DD092302/DOORSYS CALL Trim (ZZ$) ' DD092302/DOORSYS PRINT #2, ZZ$ '(24) ' DD092302/DOORSYS PRINT #2, ZExpirationDate$ '(25) ' DD092302/DOORSYS ZZ$ = STR$(ZUserFileIndex) 'RT070192 CALL Trim(ZZ$) 'RT070192 PRINT #2, ZZ$ '(26) 'RT070192 PRINT #2, ZUserXferDefault$ '(27) ' DD092302/DOORSYS IF ZUplds = 0 THEN _ ' DD021403 PRINT #2, CHR$(49) _ ' DD021301 ELSE _ ' DD021403 ZZ$ = STR$(ZUplds) : _ ' DD021403 CALL Trim(ZZ$) : _ ' DD021403 PRINT #2, ZZ$ '(28) ' DD021403 ZZ$ = STR$(ZDnlds) 'RT070192 CALL Trim(ZZ$) 'RT070192 PRINT #2, ZZ$ '(29) 'RT070192 ZZ$ = STR$(ZBytesToday!) 'RT070192 CALL Trim(ZZ$) 'RT070192 PRINT #2, ZZ$ '(30) 'RT070192 IF ZByteMethod = 3 THEN _ ' DD092302/DOORSYS Today# = ZRatioRestrict# - ZBytesToday! - ZNumDnldBytes! : _' DD092302/DOORSYS ZZ$ = STR$(Today#) : _ ' DD092302/DOORSYS CALL Trim(ZZ$) : _ ' DD092302/DOORSYS PRINT #2, ZZ$ _ ' DD092302/DOORSYS ELSE PRINT #2, "" ' DD092302/DOORSYS PRINT #2, "" 'Callers birthday mm/dd/yy '(32) ' DD092302/DOORSYS CALL BreakFileName (ZMainUserFile$,Drive$,filename$,extension$,ZFalse) ' DD092302/DOORSYS PRINT #2, Drive$ '(33) ' DD092302/DOORSYS PRINT #2, "" 'Path to GEN Directory '(34) ' DD092302/DOORSYS PRINT #2, ZSysopFirstName$ '(35) ' DD092302/DOORSYS PRINT #2, ZActiveUserName$ '(36) ' DD092302/DOORSYS PRINT #2, "" 'Event Time (hh:mm) '(37) ' DD092302/DOORSYS IF ZReliableMode = -1 THEN _ '(38) 'ER 06/17/92 PRINT #2, CHR$(89) _ ' DD021301 ELSE PRINT #2, CHR$(78) ' DD021301 PRINT #2, "" 'ANSI Supported but caller is NG (Y,N)'(39) 'ER 06/09/92 IF ZShareIt THEN _ '(40) ' DD092302/DOORSYS PRINT #2, CHR$(89) _ ' DD021301 ELSE PRINT #2, CHR$(78) ' DD021301 PRINT #2, "" 'BBS Default color (1-15) '(41) 'ER 06/09/92 ZZ$ = STR$(ASC(ZBankTime$)) 'RT070192 CALL Trim(ZZ$) 'RT070192 PRINT #2, ZZ$ '(42) 'RT070192 CALL UnPackDIRDate (ZListNewDate$, ZZ$,CHR$(47)) '(43) ' DD062606 PRINT #2, ZZ$ ' DD092302/DOORSYS PRINT #2, LEFT$(ZTimeLoggedOn$, 5) '(44) 'ER 06/05/92 PRINT #2, RIGHT$(ZLastDateTimeOnSave$, 5) '(45) 'ER 06/05/92 PRINT #2, "" 'Max daily files limit '(46) ' DD092302/DOORSYS ZZ$ = STR$(ZDLToday!) 'RT070192 CALL Trim(ZZ$) 'RT070192 PRINT #2, ZZ$ '(47) 'RT070192 ZZ$ = STR$(ZULBytes!/1000) 'RT070192 CALL Trim(ZZ$) 'RT070192 PRINT #2, ZZ$ '(48) 'RT070192 ZZ$ = STR$(ZDLBytes!/1000) 'RT070192 CALL Trim(ZZ$) 'RT070192 PRINT #2, ZZ$ '(49) 'RT070192 PRINT #2, "RBBS-PC is the Best!" '(50) 'ER 06/05/92 PRINT #2, "" 'Total Doors opened '(51) ' DD092302/DOORSYS PRINT #2, "" 'Total Messages left '(52) ' DD092302/DOORSYS CLOSE 2 ' DD091701/DOORSYS END SUB 'ER 06/17/92 ' ' DD121702 200 SUB PCBoardSys STATIC ' DD121702 ' ' DD121702 CALL TimeRemain (MinsRemaining) ' DD121702 CLOSE 2 ' DD121702 OPEN ZNodeWorkDrvPath$ + "PCBOARD.SYS" FOR RANDOM AS #2 LEN = 128' DD121702 FIELD #2, 128 AS CONTENTS$ ' DD121702 Template$ = STRING$(128,32) ' DD121702 IF ZSnoop THEN _ ' DD121702 MID$(Template$,1,2) = "-1" _ ' DD121702 ELSE MID$(Template$,1,2) = " 0" ' DD121702 IF ZPrinter THEN _ ' DD121702 MID$(Template$,3,2) = "-1" _ ' DD121702 ELSE MID$(Template$,3,2) = " 0" ' DD121702 IF ZSysopAvail THEN _ ' DD121702 MID$(Template$,5,2) = "-1" _ ' DD121702 ELSE MID$(Template$,5,2) = " 0" ' DD121702 MID$(Template$,7,2) = " 0" ' DD121702 IF ZSysop THEN _ ' DD121702 MID$(Template$,9,1) = CHR$(88) _ ' DD021301 ELSE MID$(Template$,9,1) = CHR$(78) ' DD021301 IF ZReliableMode THEN _ ' DD121702 MID$(Template$,10,2) = "-1" _ ' DD121702 ELSE MID$(Template$,10,2) = " 0" ' DD121702 ZZ$ = CHR$(78) ' DD021301 IF ZWasGR > 1 THEN _ ' DD121702 ZZ$ = CHR$(89) ' DD021301 IF INSTR(ZBaudParity$, ",7") THEN _ ' DD121702 ZZ$ = CHR$(55) ' DD021301 MID$(Template$,12,1) = ZZ$ ' DD121702 IF ZAvailableForChat THEN _ ' DD121702 MID$(Template$,13,1) = CHR$(65) _ ' DD021301 ELSE MID$(Template$,13,1) = CHR$(85) ' DD021301 MID$(Template$,14,5) = RIGHT$(ZTalkToModemAt$,5) ' DD121702 IF ZLocalUser THEN _ ' DD121702 MID$(Template$,19,5) = "local" _ ' DD121702 ELSE MID$(Template$,19,5) = RIGHT$(ZCBaud$,5) ' DD121702 LSET temp$ = MKI$(VAL(ZUserRecord$)) ' DD121702 MID$(Template$,24,2) = temp$ ' DD121702 MID$(Template$,26,15) = LEFT$(OrigFirstName$,15) ' DD121702 MID$(Template$,41,12) = LEFT$(ZPswdSave$,12) ' DD121702 MID$(Template$,53,2) = MKI$(ZStartTime) ' DD121702 MID$(Template$,55,2) = MKI$(ZElapsedTime) ' DD121702 MID$(Template$,57,5) = LEFT$(ZTimeLoggedOn$,5) ' DD121702 MID$(Template$,62,2) = MKI$(ZTempTimeAllowed) ' DD121702 IF ZGlobalSysop THEN _ ' DD121702 UserName$ = ZSysopFirstName$ + SPACE$(1) + ZSysopLastName$ _ ' DD021301 ELSE UserName$ = OrigFirstName$ + SPACE$(1) + ZLastName$ ' DD021301 MID$(Template$,85,25) = LEFT$(UserName$,25) ' DD121702 CALL TimeRemain (MinsRemaining) ' DD020901 CALL CheckInt (ZDoorTime$) ' DD020901 IF ZErrCode = 0 AND ZTestedIntValue > 0 THEN _ ' DD020901 IF MinsRemaining > ZTestedIntValue THEN _ ' DD020901 MinsRemaining = ZTestedIntValue ' DD020901 pcboardtime = INT(MinsRemaining) ' DD121702 IF pcboardtime > 99 THEN _ ' DD121702 pcboardtime = 99 ' DD121702 min$ = SPACE$(2) ' DD021301 LSET min$ = MKI$(pcboardtime) ' DD121702 MID$(Template$,110,2) = min$ ' DD121702 ZZ$ = ZNodeID$ ' DD121702 CALL Trim (ZNodeID$) ' DD121702 MID$(Template$,112,1) = LEFT$(ZNodeID$,1) ' DD121702 MID$(Template$,126,1) = MID$(ZComPort$,4,1) ' DD121702 LSET CONTENTS$ = Template$ ' DD121702 PUT 2,1 ' DD121702 CLOSE #2 ' DD121702 END SUB ' DD121702 ' ' DD121702 ' * UnPackDIRDate - takes ZListNewDate$ and converts to readable text' DD062606 ' ' DD062606 600 SUB UnPackDIRDate (SourceStr$, OutStr$, DateSeparator$) ' DD062606 OutStr$ = RIGHT$(STR$(ASC(MID$(SourceStr$,2))),2) + _ ' MM ' DD062606 DateSeparator$ + _ ' DD062606 RIGHT$(STR$(ASC(MID$(SourceStr$,3))),2) + _ ' DD ' DD062606 DateSeparator$ + _ ' DD062606 RIGHT$(STR$(ASC(SourceStr$)),2) ' YY ' DD062606 IF MID$(OutStr$,1,1) = SPACE$(1) THEN ' DD062606 MID$(OutStr$,1,1) = CHR$(48) ' DD062606 END IF ' DD062606 IF MID$(OutStr$,4,1) = SPACE$(1) THEN ' DD062606 MID$(OutStr$,4,1) = CHR$(48) ' DD062606 END IF ' DD062606 IF MID$(OutStr$,7,1) = SPACE$(1) THEN ' DD062606 MID$(OutStr$,7,1) = CHR$(48) ' DD062606 END IF ' DD062606 END SUB ' DD062606 ' ' DD062904 ' * set default toggle options for all new users ' DD062904 ' ' DD062904 759 SUB SetToggles ' DD062904 ZNulls = ZFalse ' DD062904 ZUpperCase = ZFalse ' DD062904 ZPageLength = ZPageLengthDef ' DD062904 ZRightMargin = 74 ' DD062904 ZReadNewMail = ZTrue ' DD070102 ZReselectAll = ZFalse ' DD070103 ZMorePromptLF = ZFalse ' DD070104 ZReselectGraphics = ZFalse ' DD070105 END SUB ' DD062904 ' ' DD062903 ' * NewUserToggles - select various toggle options for new users ' DD062903 ' ' DD062903 760 SUB NewUserToggles ' DD062903 ' ' DD063002 DoYouWant$ = "Do you want " ' DD063002 CALL SkipLine (1) ' DD063002 CALL QuickTPut1 (ZFGB$ + ZBG1$ + _ ' DD063002 "Please select your preferences " + _ ' DD063002 "for the following options" + _ ' DD063002 ZEmphasizeOff$) ' DD063002 CALL QuickTPut1 (ZFGB$ + ZBG1$ + _ ' DD063002 "Recommended settings can be " + _ ' DD063002 "selected by pressing ENTER " + _ ' DD063002 ZEmphasizeOff$) ' DD063002 ' ' DD062903 ' Selection of ANSIEd ' DD062903 ' ' DD062903 ZOutTxt$ = ZFG2$ + "Use the " + ZFGE$ + "FULL SCREEN " + _ ' DD062903 ZFG2$ + "Editor for entering messages" ' DD062903 GOSUB 765 ' DD062903 ZFullScreenEditor = NOT ZNo ' DD062903 CALL Toggle (-1) ' DD062903 ' ' DD070102 ' * Read All New Mail ' DD070102 ' ' DD070102 IF NOT ZSkipMailCheck THEN ' DD070102 ZOutTxt$ = ZFG2$ + "Read All " + ZFGE$ + _ ' DD070102 "NEW MAIL " + ZFG2$ + "at logon" ' DD070102 GOSUB 765 ' DD070102 ZReadNewMail = NOT ZNo ' DD070102 CALL Toggle (-14) ' DD070102 END IF ' DD070102 ' ' DD063002 ' ' DD062903 ' * Review New Bulletins ' DD062903 ' ' DD062903 ZOutTxt$ = ZFG2$ + "Review All " + ZFGE$ + "BULLETINS " + _ ' DD062903 ZFG2$ + "at Logon" ' DD062903 GOSUB 765 ' DD062903 ZCheckBulletLogon = NOT ZNo ' DD062903 CALL Toggle (-2) ' DD062903 ' ' DD062903 ' * Check new files ' DD062903 ' ' DD062903 IF ZNewFilesCheck THEN ' DD062903 ZOutTxt$ = ZFG2$ + "Always Check for " + ZFGE$ + _ ' DD062903 ZFGE$ + "NEW FILES " + ZFG2$ + "at Logon" ' DD062903 GOSUB 765 ' DD062903 ZSkipFilesLogon = ZNo ' DD062903 CALL Toggle (-4) ' DD062903 END IF ' DD062903 ' ' DD062903 ' * Extended DIR Listing ' DD062903 ' ' DD062903 ZOutTxt$ = ZFG2$ + DoYouWant$ + ZFGE$ + _ ' DD062903 "EXTENDED " + ZFG2$ + "directory " + _ ' DD062903 "listings when listing files" ' DD062903 GOSUB 765 ' DD062903 ZExtendedOff = ZNo ' DD062903 CALL Toggle (-12) ' DD062903 ' ' DD062903 ' * Case Change ' DD062903 ' ' DD062903 IF ZWasGR < 1 AND ZHiLiteOff THEN ' DD062903 ZOutTxt$ = ZFG2$ + DoYouWant$ + ZFGE$ + "UPPER CASE " + _ ' DD062903 ZFG2$ + "only" + _ ' DD062903 ZEmphasizeOff$ + ZNoPrompt$ ' DD062903 GOSUB 768 ' DD062903 ZUpperCase = ZYes ' DD062903 CALL Toggle (-3) ' DD062903 END IF ' DD062903 ' ' DD062903 ' * Prompt Bell ' DD062903 ' ' DD062903 CALL PutCom (ZBellRinger$) ' DD062903 ZOutTxt$ = ZFG2$ + DoYouWant$ + "the " + ZFGE$ + _ ' DD062903 "PROMPT BELL " + ZFG2$ + "at every Prompt" + _ ' DD062903 ZEmphasizeOff$ + ZNoPrompt$ ' DD062903 GOSUB 768 ' DD062903 ZPromptBell = ZYes ' DD062903 CALL Toggle (-10) ' DD062903 ' ' DD070402 ' * ANSI Music ' DD070402 ' ' DD070402 IF ZWasGR > 1 THEN ' DD070402 ZOutTxt$ = ZFG2$ + DoYouWant$ + ZFGE$ + _ ' DD070402 "ANSI Music" + ZEmphasizeOff$ + ZNoPrompt$ ' DD070402 GOSUB 768 ' DD070402 ZANSIMusic = ZYes ' DD070402 CALL Toggle (-15) ' DD070402 END IF ' DD070402 ' ' DD062903 ' * Lines Per Page ' DD062903 ' ' DD062903 IF ZWasGR <> 4 THEN ' DD062903 CALL LinesPerPage ' DD062903 END IF ' DD062903 ' ' DD070104 ' * More Prompt LF ' DD070104 ' ' DD070104 ZOutTxt$ = ZFG2$ + DoYouWant$ + ZFGE$ + _ ' DD070104 "MORE PROMPTS " + ZFG2$ + "erased" ' DD070104 GOSUB 765 ' DD070104 ZMorePromptLF = ZNo ' DD070104 CALL Toggle (-13) ' DD070104 ' ' DD062903 ' * Internode Chat Availability ' DD062903 ' ' DD062903 ZOutTxt$ = ZFG2$ + DoYouWant$ + "to be " + ZFGE$ + _ ' DD062903 "AVAILABLE " + ZFG2$ + "for InterNode Chat" ' DD062903 GOSUB 765 ' DD062903 ZAvailableForChat = NOT ZNo ' DD062903 CALL Toggle (-11) ' DD062903 ' ' DD062903 ' * Select TurboKeys ' DD062903 ' ' DD062903 IF ZWasGR <> 4 THEN ' DD062903 CALL SelectTurboKeys ' DD062903 END IF ' DD062903 ' ' DD062903 EXIT SUB ' DD062903 ' ' DD062903 765 ZOutTxt$ = ZOutTxt$ + ZEmphasizeOff$ + ZYesPrompt$ ' DD062903 768 ZTurboKey = -ZTurboKeyUser ' DD062903 CALL SkipLine (1) ' DD062903 ZSubparm = 1 ' DD062903 CALL TGet ' DD062903 IF ZSubParm < 0 THEN ' DD062903 EXIT SUB ' DD062903 END IF ' DD062903 RETURN ' DD062903 END SUB ' DD062903 ' ' DD030103 770 SUB SelectTurboKeys ' DD062904 CALL SkipLine (1) ' DD062904 CALL QuickTPut (ZFG2$ + "Do you want " + ZFGE$ + _ ' DD080302 "TURBOKEYS" + ZFG2$ + "?" + ZCRLf$ + _ ' DD062904 "(ONE Character Commands without needing to press " + _ ' DD062904 ZEmphasizeOn$ + "[ENTER]" + ZEmphasizeOff$ + ZFG2$ + ")",0) ' DD080302 ZOutTxt$ = ZYesPrompt$ ' DD080302 ZSubParm = 1 ' DD080302 CALL TGet ' DD062904 IF ZSubParm < 0 THEN ' DD062904 EXIT SUB ' DD062904 END IF ' DD062904 ZTurboKeyUser = NOT ZNo ' DD062904 CALL Toggle (-8) ' DD062904 END SUB ' DD062904 ' ' DD030103 780 SUB LinesPerPage ' DD062903 CALL SkipLine (1) ' DD062903 CALL QuickTPut1 (ZFG2$ + "Please Select " + _ ' DD030103 ZFGE$ + "Lines Per Page " + _ ' DD030103 ZFG2$ + "for Display" + ZEmphasizeOff$) ' DD030103 CALL ChangeInt (ZTrue,"Lines Per Page",ZPageLength,1,255) ' DD030103 IF ZWasQ <> 0 THEN ' DD030103 ZPageLength = ZTestedIntValue ' DD030103 END IF ' DD030103 END SUB ' DD030103 ' ' DD011601 815 SUB DisplayWelcome STATIC ' DD011601 ZStopInterrupts = NOT ZWelcomeInterruptable ' DD011601 ZBypassTimeCheck = ZTrue ' DD011601 ZFileName$ = ZWelcomeFile$ + ".LST" ' DD011601 CALL FindItX (ZFileName$,18) ' DD051401 IF ZOK THEN ' DD011601 CLOSE 18 ' DD051401 CALL OpenWork (18, ZFileName$) ' DD051401 WHILE NOT EOF(18) ' DD051401 CALL ReadDir (18,1) ' DD051401 ZFileName$ = ZOutTxt$ ' DD011601 ZStopInterrupts = NOT ZWelcomeInterruptable ' DD011601 ZBypassTimeCheck = ZTrue ' DD011601 ZDisplayAsUnit = ZTrue ' DD011601 GOSUB 816 ' DD011601 WEND ' DD011601 CLOSE 18 ' DD051401 ELSE ' DD011601 ZFileName$ = ZWelcomeFile$ ' DD011601 ZDisplayAsUnit = ZTrue ' DD011601 GOSUB 816 ' DD011601 END IF ' DD011601 ZDisplayAsUnit = ZFalse ' DD011601 EXIT SUB ' DD011601 816 CALL Graphic (ZFileName$) ' DD011601 CALL BufFile (ZFileName$,WasX) ' DD011601 CALL Carrier ' DD011601 IF ZSubParm = -1 THEN _ ' DD011601 EXIT SUB ' DD011601 RETURN ' DD011601 END SUB ' DD011601 ' ' DD031203 820 SUB SayGoodby ' DD031203 ' ' DD031203 CALL BreakFileName (ZEpilog$,Pre$,Body$,Ext$,ZFalse) ' DD031203 ZFileName$ = Pre$ + Body$ + ".LST" ' DD031203 CALL FindIt (ZFileName$) ' DD011601 IF ZOK THEN ' DD011601 CALL OpenWork (7, ZFileName$) ' DD011601 WHILE NOT EOF(7) ' DD011601 CALL ReadDir (7,1) ' DD011601 ZFileName$ = ZOutTxt$ ' DD011601 ZStopInterrupts = NOT ZWelcomeInterruptable ' DD011601 ZBypassTimeCheck = ZTrue ' DD011601 ZDisplayAsUnit = ZTrue ' DD011601 CALL Graphic (ZFileName$) ' DD011601 CALL BufFile (ZFileName$,WasX) ' DD011601 CALL Carrier ' DD011601 IF ZSubParm = -1 THEN _ ' DD011601 EXIT SUB ' DD011601 WEND ' DD011601 IF NOT ZLocalUser THEN ' DD051801 CALL DelayTime (9 + ZBPS) ' DD051801 END IF ' DD051801 CLOSE 7 ' DD011601 END IF ' DD031203 END SUB ' DD031203 ' ' DD091701 ' **** S - COMMAND FROM UTILITY MENU (STATISTICS) *** ' DD090203 ' ' DD090203 SUB ShowStatistics (HighestMsgRecord,CurUserCount,MaxMsgs) STATIC ' DD090401 1000 CALL SkipLine (1) ' DD031302 ZFileName$ = ZWelcomeFileDrvPath$ + "LGSTATS" ' DD040801 CALL Graphic (ZFileName$) ' DD040801 CALL BufFile (ZFileName$,WasX) ' DD040801 IF (NOT ZSysop) AND (ZUserSecLevel < ZSecKillAny) THEN _ ' DD040801 CALL SmartPause : _ ' DD091205 EXIT SUB ' DD090201 CALL QuickTPut1 (ZFGD$ + "Free Stack Space" + _ ' DD080201 ZFGB$ + STRING$(13,46) + ZFGD$ + _ ' DD090605 (STR$(CINT(FRE(-2))) + " bytes")) ' DD090605 CALL QuickTPut1 (ZFG9$ + "Free Temporary String Space" + _ ' DD080201 ZFGB$ + STRING$(2,46) + ZFG9$ + _ ' DD090605 STR$(FRE("A")) + " bytes") ' DD090605 CALL QuickTPut1 (ZFG2$ + "Free Common String Space" + _ ' DD090402 ZFGB$ + STRING$(5,46) + ZFG2$ + _ ' DD090605 STR$(FRE(ZWasZ$)) + " bytes") ' DD090605 CALL QuickTPut1 (ZFG6$ + "Free Local String Space" + _ ' DD090402 ZFGB$ + STRING$(6,46) + ZFG6$ + _ ' DD090605 STR$(FRE(WasZ$)) + " bytes") ' DD090605 CALL QuickTPut1 (ZFGC$ + "Free Far String Space" + _ ' DD090402 ZFGB$ + STRING$(8,46) + ZFGC$ + _ ' DD090605 STR$(FRE(-1)) + " bytes") ' DD090605 UserWork = (ZHighestUserRecord * .95) + 1 ' DD090203 IF ZMsgsCanGrow THEN _ ' DD090203 ZWasY$ = " open" _ ' DD090203 ELSE ZWasY$ = STR$(HighestMsgRecord + 1 - ZMaxNodes - ZNextMsgRec)' DD090203 CALL QuickTPut1 (ZFGE$ + "USERS" + ZFGB$ + STRING$(24,46) + _ ' DD091303 ZFGE$ + " used" + ZFGB$ + _ ' DD091303 STR$(CurUserCount - 1) + ZFGE$ + " avl" + _ ' DD091303 ZFGB$ + STR$(UserWork - CurUserCount)) ' DD091303 IF ZActiveMessages = 0 THEN _ ' DD040706 msgtemp$ = " (Not Loaded)" _ ' DD031301 ELSE msgtemp$ = " used" + ZFGB$ + STR$(ZActiveMessages) + _ ' DD040706 ZFG5$ + " avl" + ZFGB$ + ZFGB$ + _ ' DD031301 STR$(MaxMsgs - ZActiveMessages) ' DD040706 CALL QuickTPut1 (ZFG5$ + "MSGS" + ZFGB$ + STRING$(25,46) + _ ' DD091303 ZFG5$ + msgtemp$) ' DD091303 CALL QuickTPut1 (ZFG4$ + "MSG REC" + ZFGB$ + STRING$(22,46) + _ ' DD091303 ZFG4$ + " used" + ZFGB$ + _ ' DD091303 STR$(ZNextMsgRec - 1) + ZFG4$ + " avl" + _ ' DD091303 ZFGB$ + ZWasY$ + ZEmphasizeOff$) ' DD091303 CALL SmartPause ' DD091204 END SUB ' DD090203 ' ' DD012201 1235 SUB SysopNextMsg STATIC ' DD040602 IF ZuserSecLevel >= ZSysopSecLevel THEN ' DD040602 ZSysopNext = ZFalse ' DD040602 EXIT SUB ' DD040602 END IF ' DD040602 ZFileName$ = ZWelcomeFileDrvPath$ + "SYSNEXT" ' DD040602 CALL Graphic (ZFileName$) ' DD040602 CALL BufFile (ZFileName$,WasX) ' DD040602 END SUB ' DD040602 ' ' DD041802 1240 SUB LogOffPlease STATIC ' DD041802 ZFileName$ = ZWelcomeFileDrvPath$ + "LOGOFF" ' DD041802 CALL Graphic (ZFileName$) ' DD041802 CALL BufFile (ZFileName$,WasX) ' DD041802 END SUB ' DD041802 ' ' DD090901 1750 SUB InitialMenus STATIC ' DD090901 ' ' DD051002 1751 IF ZExpertUser THEN ' DD051002 CALL SkipLine (1) ' DD051002 GOTO 1756 ' DD051002 END IF ' DD051002 1755 ZFileName$ = ZWelcomeFileDrvPath$ + "INFOSCR" ' DD051002 CALL Graphic (ZFileName$) ' DD051002 CALL BufFile (ZFileName$,WasX) ' DD051002 1756 ZOutTxt$ = ZFGE$ + ZConfName$ + + ZFG2$ + CHR$(58) + _ ' DD051002 ZEmphasizeOff$ ' DD051002 ZSubParm = 4 ' DD051002 CALL TPut ' DD051002 CALL DispTimeRemain (MinsRemaining) ' DD051002 DO ' DD051002 ZOutTxt$ = ZFGF$ + "SCREEN " + ZFG2$ + _ ' DD051002 "command" + ZEmphasizeOff$ ' DD051002 IF ZCmndsInPrompt THEN ' NW062702 IF ZExpertUser THEN ' DD062803 ZOutTxt$ = ZOutTxt$ + " (?,P,W,O,Y,N,H,[Q])" ' DD062803 ELSE ' DD062803 ZOutTxt$ = ZOutTxt$ + " (?,P)relog,W)elcome," + _ ' DD062803 "O)nline,Y)ours," + _ ' DD062803 "N)ewUser,H)elp,[Q]uit)" ' DD062803 END IF ' DD062803 END IF ' NW062702 ZTurboKey = -ZTurboKeyUser ' DD051002 ZSubParm = 1 ' DD051002 CALL TGet ' DD051002 IF ZSubParm < 0 THEN _ ' DD051002 EXIT SUB ' DD051002 CALL AllCaps (ZUserIn$) ' DD051002 LOOP UNTIL ZWasQ = 0 OR INSTR("?PWOYNHQ",ZUserIn$) <> 0 ' DD051002 WasMplX = INSTR("?PWOYNHQ",ZUserIn$) ' Mpl090201 IF ZUserIn$ = "" THEN _ ' Mpl090201 GOTO 1767 ' DD090201 ON WasMplX GOTO 1755,1761,1762,1763,1764,1765,1755,1767 ' DD051002 1761 ZFileName$ = ZPreLog$ ' DD090201 GOTO 1766 ' DD090201 1762 Hold = ZWelcomeInterruptable ' DD011601 ZWelcomeInterruptable = ZTrue ' DD011601 CALL DisplayWelcome ' DD011601 ZWelcomeInterruptable = Hold ' DD011601 GOTO 1751 ' DD051002 1763 ZFileName$ = ZNewsFileName$ ' DD090201 GOTO 1766 ' DD090201 1764 ZFileName$ = ZWelcomeFileDrvPath$ + _ 'Pe 07/19/92 ZNodeId$ + _ ' DD041803 "LG" + _ ' Mpl090201 STR$(ZUserSecLevel) + _ ' DD040603 ".DEF" 'Pe 06/01/92 CALL Remove (ZFileName$,SPACE$(1)) ' DD040603 CALL FindIt (ZFileName$) ' DD041803 IF NOT ZOK THEN ' DD041803 ZFileName$ = ZWelcomeFileDrvPath$ + _ ' DD041803 "LG" + _ ' DD041803 STR$(ZUserSecLevel) + _ ' DD041803 ".DEF" ' DD041803 CALL Remove (ZFileName$,SPACE$(1)) ' DD041803 END IF ' DD041803 GOTO 1766 ' DD090201 1765 ZFileName$ = ZNewUserFile$ ' DD090201 1766 GOSUB 1790 ' DD090201 CALL AskMore ("",ZTrue,ZFalse,WasX,ZTrue) ' DD090201 GOTO 1751 ' DD051002 1767 ZFileSysParm = 1 ' DD090201 EXIT SUB ' DD090201 1790 CALL FindIt (ZFileName$) ' DD021301 IF NOT ZOK THEN _ ' DD021301 CALL SkipLine (1) : _ ' DD031302 CALL QuickTPut (ZFGF$ + ZBG5$ + _ ' DD031302 " Review Screen Not Found " + _ ' DD021301 ZEmphasizeOff$,2) : _ ' DD021301 RETURN ' DD021301 CALL Graphic (ZFileName$) ' DD090901 CALL BufFile (ZFileName$,WasX) ' DD090901 CALL Carrier ' DD090901 IF ZSubParm = -1 THEN _ ' DD090901 EXIT SUB ' DD090901 RETURN ' DD090901 END SUB ' DD090901 ' ' DD091303 SUB SmartPause STATIC ' DD091303 ' ' DD091303 1800 IF NOT ZExpertUser THEN ' DD050102 CALL SKipLine (1) ' DD050102 IF ZNonStop THEN ' DD050102 ZOneStop = ZTrue ' DD050102 ZNonStop = ZFalse ' DD050102 END IF ' DD050102 CALL AskMore ("",ZTrue,ZFalse,WasX,ZTrue) ' DD090803 END IF ' DD050102 END SUB ' DD091303 ' ' DD090901 SUB GetLastCaller STATIC ' DD090901 ' ' DD090901 2000 ZLastCaller$ = SPACE$(1) ' DD021301 ZActiveMessageFile$ = ZOrigMsgFile$ ' DD090901 CALL OpenMsg ' DD090901 FIELD 1, 128 AS ZMsgRec$ ' DD090901 GET 1,ZNodeRecIndex ' DD090901 IF MID$(ZMsgRec$,55,2) = "-1" AND NOT ZSysop THEN _ ' DD090901 ZLastCaller$ = "SysOp" _ ' DD090901 ELSE _ ' DD090901 ZLastCaller$ = MID$(ZMsgRec$,1,26) ' DD090901 CALL Trim (ZLastCaller$) ' DD090901 END SUB ' DD090901 ' ' DD021301 3000 SUB SetupTransferInfo STATIC ' DD021301 ' ' DD021301 Temp$ = STR$(ZUserSecLevel) ' DD091001 CALL Trim (Temp$) ' DD091001 ZOutTxt$ = ZCRLf$ + ZFGE$ + Temp$ + SPACE$(1) + ZFG2$ + _ ' DD021301 ZOrigUserName$ + SPACE$(1) + ZFGB$ + ZWasCI$ + _ ' DD021301 ZFG2$ + " At " + ZFGE$ + ZCBaud$ + _ ' DD021301 ZFG2$ + " Baud" + ZEmphasizeOff$ + ZCRLf$ ' DD021301 IF ZTransferFunction = 1 THEN ' DD021301 ZOutTxt$ = ZOutTxt$ + ZFGA$ + "Downloading" ' DD021301 IF ZBlockSize > 0 THEN ' DD021301 ZOutTxt$ = ZOutTxt$ + _ ' DD021301 ZFGE$ + STR$(CINT(ZBytesInFile#/ZBlockSize)) + _ ' DD021301 ZFG2$ + " blocks " ' DD021301 END IF ' DD021301 ZOutTxt$ = ZOutTxt$ + _ ' DD021301 ZFGE$ + STR$(ZBytesInFile#) + ZFG2$ + " bytes" + ZCrLf$ ' DD021301 ZOutTxt$ = ZOutTxt$ + _ ' DD021301 ZFGB$ + "Estimated Transfer Time:" + _ ' DD021301 ZFGD$ + STR$(INT(ZBlocksInFile# / 60)) : _ ' DD021301 ZoutTxt$ = ZOutTxt$ + ZFG3$ + " min," + ZFGD$ + _ ' DD021301 STR$(INT(ZBlocksInFile# - _ ' DD021301 (INT(ZBlocksInFile# / 60) * 60))) + _ ' DD021301 ZFG3$ + " sec" + ZFG7$ + ZCRLf$ ' DD021301 ELSE ZOutTxt$ = ZOutTxt$ + ZFGA$ + "Uploading file" + _ ' DD021301 " At " + ZFGE$ + ZCBaud$ + " Baud" + _ ' DD021301 ZCRLf$ + ZEmphasizeOff$ ' DD021301 END IF ' DD021301 END SUB ' DD021301 ' ' DD032501 ' Create a TOSS log file for MsgToss to Scan Echo Conferences ' DD032501 ' ' DD032501 3400 SUB TossLog STATIC ' DD032502 IF ZRBBSName$ = ZOrigRBBSName$ THEN _ ' DD032502 EXIT SUB ' DD032502 TossFile$ = "TOSS" + ZNodeFileID$ + ".LOG" ' DD032502 CALL FindIt (TossFile$) ' DD032502 IF NOT ZOK THEN _ 'LK 033191 GOTO 3407 ' Mpl032501 CALL OpenWork (2,TossFile$) ' DD032502 Found = ZFalse ' Mpl032501 GOSUB 3408 ' Mpl032501 IF Found THEN _ ' Mpl032501 EXIT SUB ' DD032502 GOTO 3409 ' Mpl032501 3407 CALL OpenOutW (TossFile$) ' DD032502 PRINT #2, ZRBBSName$ ' DD032502 CLOSE 2 ' Mpl032501 EXIT SUB ' DD032502 3408 IF EOF(2) THEN _ ' Mpl032501 RETURN ' Mpl032501 INPUT #2,TossList$ ' Mpl032501 IF ZRBBSName$ <> TossList$ THEN _ ' DD032502 GOTO 3408 ' Mpl032501 Found = ZTrue ' Mpl032501 RETURN ' Mpl032501 3409 CALL OpenWorkA (2,TossFile$) ' DD040601 CALL PrintWorkA (2,ZRBBSName$) ' DD040601 CLOSE 2 ' Mpl032501 END SUB ' DD032502 ' ' DD090802 ' ***** Print A Message to a file or printer ' DD090802 ' ' DD090802 SUB PrintMsg(OutNum$,OutFrom$,OutTo$,OutRe$,OutRec,OutNumRecs) STATIC ' DD090802 4615 IF ZSysop = ZTrue THEN ' RS090802 ZOutTxt$ = "Output to What File " + ZPressEnter$ ' DD090802 ZSubParm = 1 ' DD090802 CALL TGet ' DD090802 IF ZUserIn$ = "" THEN _ ' DD090802 EXIT SUB ' DD090802 ToPrint$ = ZUserIn$ ' DD080902 CALL AllCaps (ToPrint$) ' DD090802 IF INSTR("CON:AUX:NUL:COM1:COM2:SCRN:" + _ ' DD090802 "KYBD:CONS:CLOCK$:",ToPrint$) THEN _ ' DD090802 CALL QuickTPut1 ("Bad Filename!") : _ ' DD090802 GOTO 4615 ' DD090802 CALL OpenWorkA(2,ToPrint$) ' DD042604 IF NOT ZOk THEN _ ' DD090802 CALL QuickTPut1 ("Could Not Open " + ToPrint$) : _ ' DD090802 EXIT SUB ' DD090802 PRINT#2,OutNum$ ' RS090802 PRINT#2,"In Conference: " + ZConfName$ ' RS090802 PRINT#2,string$(25,CHR$(45)) ' DD021301 PRINT#2,OutFrom$ ' RS090802 PRINT#2,OutTo$ ' RS090802 PRINT#2,OutRe$ ' RS090802 PRINT#2,string$(80,CHR$(45)) ' DD021301 PLineCt = 7 ' RS090802 POut$ = "" ' RS090802 FOR PrintLoop = OutRec + 1 TO OutRec + OutNumRecs - 1 ' RS090802 GET 1,PrintLoop ' RS090802 FOR Loop1 = 1 TO LEN(ZMsgRec$) ' RS090802 IF MID$(ZMsgRec$,Loop1,1) <> CHR$(227) THEN ' RS090802 POut$ = POut$ + MID$(ZMsgRec$,Loop1,1) ' RS090802 ELSE ' RS090802 PRINT#2,POut$ ' RS090802 POut$ = "" ' RS090802 PLineCt = PLineCt + 1 ' RS090802 IF PLineCt > ZMaxMsgLines THEN ' DD111201 PRINT#2,CHR$(12) ' RS090802 PLineCt = 7 ' RS090802 PRINT#2,OutNum$+", Message Continued" ' RS090802 PRINT#2,"In Conference: " + ZConfName$ ' RS090802 PRINT#2,string$(25,CHR$(45)) ' DD021301 PRINT#2,OutFrom$ ' RS090802 PRINT#2,OutTo$ ' RS090802 PRINT#2,OutRe$ ' RS090802 PRINT#2,string$(80,CHR$(45)) ' DD021301 ENDIF ' RS090802 ENDIF ' RS090802 NEXT Loop1 ' RS090802 NEXT PrintLoop ' RS090802 PRINT#2,CHR$(10) ' RS090802 CLOSE #2 ' RS090802 ENDIF ' RS090802 END SUB ' RS090802 ' ' DD091701 SUB InitSysopChat STATIC ' DD091701 ' ' DD091701 4700 IF NOT ZSysopAvail OR ZNeverCanPage THEN _ ' DD070601 ZOutTxt$ = "Sorry, " + _ ' DD091301 ZSysopFirstName$ + _ ' DD091301 " is not available now" : _ ' DD091301 CALL QuickTPut1(ZOutTxt$) : _ ' DD091303 GOTO 4755 ' DD091701 CALL QuickTPut1 (ZFGF$ + ZBG1$ + "Chat with SysOp" + _ ' DD062304 ZEmphasizeOff$) ' DD082302 WasJJ = VAL(MID$(TIME$,1,2))*100 + VAL(MID$(TIME$,4,2)) ' DD091701 IF (WasJJ > ZStartOfficeHours AND WasJJ < ZEndOfficeHours) OR ZSysopAnnoy THEN _' DD091701 GOTO 4710 ' DD091701 GOTO 4750 ' DD062304 ZOutTxt$ = "SysOp in from" + _ ' DD062304 STR$(ZStartOfficeHours) + _ ' DD091701 " to" + _ ' DD091701 STR$(ZEndOfficeHours) + CHR$(44) ' DD021301 CALL QuickTPut1(ZOutTxt$) ' DD091303 GOTO 4755 ' DD091701 4710 ZOutTxt$ = "Page " + _ ' DD091701 ZSysopFirstName$ + _ ' DD091701 CHR$(63) + ZNoPrompt$ ' DD021301 CALL SkipLine (1) ' DD091701 ZTurboKey = -ZTurboKeyUser ' DD062304 ZSubParm = 1 ' DD062304 CALL TGet ' DD062304 IF NOT ZYes THEN _ ' DD091701 EXIT SUB ' DD091303 ZMenuSysopPages = ZMenuSysopPages + 1 ' DD122603/MENU0 PageCount = 0 ' DD091701 SoundStr$ = "O3T200MBMLA64L32C64D64E64" ' DD070402 CALL QuickTPut ("Paging " + ZSysopFirstName$,0) ' DD062304 PageTimeStart! = TIMER ' DD091701 TempSnoop = ZSnoop ' DD091701 ZSnoop = ZTrue ' DD091701 CALL Line25 ' DD091701 4730 CALL DelayTime (1) ' DD091701 PageCount = PageCount + 1 ' DD062304 IF INKEY$ = ZEscape$ THEN _ ' DD091701 GOTO 4765 ' DD091701 ZSubParm = 4 ' DD062304 CALL QuickTPut (SPACE$(2) + CHR$(46),0) ' DD021301 IF ZANSIMusic THEN ' DD070402 FOR TelephoneRing = 1 TO 15 STEP 1 ' DD070402 CALL PutCom ("MB" + SoundStr$ + CHR$(14)) ' DD070402 NEXT TelephoneRing ' DD070402 ELSE ' DD070402 CALL PutCom(ZBellRinger$) ' DD070402 END IF ' DD070402 IF INSTR(ZPagingPtrSupport$,CHR$(7)) THEN ' DD070402 LPRINT ZBellRinger$; ' DD070402 ELSE ' DD010207 FOR TelephoneRing = 1 TO 15 STEP 1 ' DD071401 CALL RBBSPlay (SoundStr$) ' DD070402 NEXT TelephoneRing ' DD071401 END IF ' DD010207 CALL Carrier ' DD062304 IF ZSubParm = -1 THEN ' DD062304 EXIT SUB ' DD062304 END IF ' DD062304 CALL DelayTime (2) ' DD071401 CALL CheckTime (PageTimeStart!, PageTimeNow!, 2) ' DD091701 IF PageTimeNow! < 15 THEN GOTO 4730 ' DD080601 ZSnoop = TempSnoop ' DD091701 ZOutTxt$ = "" ' DD071401 4750 IF (WasJJ > ZStartOfficeHours AND WasJJ < ZEndOfficeHours) OR _ ' DD080601 ZSysopAnnoy THEN _ ' DD080601 CALL SkipLine (1) : _ ' DD031302 CALL QuickTPut1 (ZFGB$ + ZSysopFirstName$ + _ ' DD031302 ZFG5$ + " not responding!" + ZEmphasizeOff$) ' DD071401 4755 CALL QuickTPut1 (ZFG3$ + "Leave a msg or comment" + ZEmphasizeOff$)' DD080601 PagedFileName$ = ZWelcomeFileDrvPath$ + "PAGED.MNU" ' DD062603 CALL Graphic (PagedFileName$) ' DD091502 Call BufFile (PagedFileName$,WasX) ' DD080601 ZPageStatus$ = "PG!" ' DD091701 CALL UpdtCalr ("Operator paged " + LEFT$(TIME$,5),2) ' DD091701 EXIT SUB ' DD091701 4765 CALL UpdtCalr ("Paged & chatted with Sysop",1) ' DD091701 ZPageStatus$ = "" ' DD091701 ZSysopGreeting$ = "SysOp in! " + ZFirstName$ + _ ' DD062801/ANSICHAT ", this is " + ZSysopFirstName$ + ", go ahead!" ' DD062801/ANSICHAT IF ZCanANSIChat = ZTrue THEN ' DD062304 CALL ResetGraphics ' DD062304 CALL ANSIChat ' DD062801/ANSICHAT ELSE ' DD062801/ANSICHAT CALL SkipLine (1) ' DD062801/ANSICHAT CALL QuickTPut1 (ZFGE$ + ZSysopGreeting$ + ZEmphasizeOff$) ' DD062801/ANSICHAT CALL SysopChat ' DD062801/ANSICHAT END IF ' DD062801/ANSICHAT END SUB ' DD091701 ' ' DD090203 ' ***** R - COMMAND FROM UTILITY MENU (REVIEW PROFILE) **** ' DD090203 ' ' DD090203 SUB ReviewProfile STATIC ' DD090203 5400 CALL SkipLine (1) ' DD052302 ZFileName$ = ZWelcomeFileDrvPath$ + "PROFILE" ' DD052302 CALL Graphic (ZFileName$) ' DD052302 CALL BufFile (ZFileName$,WasX) ' DD052302 CALL SmartPause ' DD091204 END SUB ' DD090203 ' ' DD090901/MENU0 6000 SUB GetMenu0Info STATIC ' DD090901/MENU0 ' ' DD090901/MENU0 6001 CALL OpenWork (2,"MENU0-" + ZNodeFileID$ + ".DEF") ' DD090901/MENU0 IF ZErrCode = 52 THEN _ ' DD090901/MENU0 CALL MakeMenu0Info : _ ' DD090901/MENU0 GOTO 6001 ' DD090901/MENU0 CALL ReadDir (2,1) ' DD090901/MENU0 CALL Trim (ZOutTxt$) ' DD090901/MENU0 ZMenuTimer! = VAL(ZOutTxt$) ' DD092103/MENU0 IF ZMenuTimer! > TIMER THEN _ ' DD092103/MENU0 CALL MakeMenu0Info : _ ' DD090901/MENU0 EXIT SUB ' DD090901/MENU0 ZMenuTimer! = TIMER ' DD092103/MENU0 CALL ReadDir (2,1) ' DD090901/MENU0 ZMenuNewUpld = VAL(ZOutTxt$) ' DD090901/MENU0 CALL ReadDir (2,1) ' DD090901/MENU0 ZMenuNewUsers = VAL(ZOutTxt$) ' DD090901/MENU0 CALL ReadDIr (2,1) ' DD090901/MENU0 ZMenuNewCalls = VAL(ZOutTxt$) ' DD090901/MENU0 CALL ReadDir (2,1) ' DD090901/MENU0 ZMenuNewSysop = VAL(ZOutTxt$) ' DD090901/MENU0 CALL ReadDir (2,1) ' DD090901/MENU0 ZMenuDownloads = VAL(ZOutTxt$) ' DD090901/MENU0 CALL ReadDir (2,1) ' DD090901/MENU0 ZMenuSysopPages = VAL(ZOutTxt$) ' DD090901/MENU0 CALL ReadDir (2,1) ' DD090901/MENU0 ZMenuCarriers = VAL(ZOutTxt$) ' DD090901/MENU0 CALL ReadDir (2,1) ' DD090901/MENU0 ZMenuDoors = VAL(ZOutTxt$) ' DD090901/MENU0 CALL ReadDir (2,1) ' DD090901/MENU0 ZMenuNewMsgs = VAL(ZOutTxt$) ' DD090901/MENU0 CLOSE 2 ' DD090901/MENU0 END SUB ' DD090901/MENU0 ' ' DD090901/MENU0 6100 SUB PutMenu0Info STATIC ' DD090901/MENU0 ' ' DD090901/MENU0 CALL OpenOutW ("MENU0-" + ZNodeFileID$ + ".DEF") ' DD090901/MENU0 CALL PrintWorkA (2,STR$(ZMenuTimer!)) ' DD040601/MENU0 CALL PrintWorkA (2,STR$(ZMenuNewUpld)) ' DD040601/MENU0 CALL PrintWorkA (2,STR$(ZMenuNewUsers)) ' DD040601/MENU0 CALL PrintWorkA (2,STR$(ZMenuNewCalls)) ' DD040601/MENU0 CALL PrintWorkA (2,STR$(ZMenuNewSysop)) ' DD040601/MENU0 CALL PrintWorkA (2,STR$(ZMenuDownloads)) ' DD040601/MENU0 CALL PrintWorkA (2,STR$(ZMenuSysopPages)) ' DD040601/MENU0 CALL PrintWorkA (2,STR$(ZMenuCarriers)) ' DD040601/MENU0 CALL PrintWorkA (2,STR$(ZMenuDoors)) ' DD040601/MENU0 CALL PrintWorkA (2,STR$(ZMenuNewMsgs)) ' DD040601/MENU0 CLOSE 2 ' DD090901/MENU0 END SUB ' DD090901/MENU0 ' ' DD090901/MENU0 6200 SUB MakeMenu0Info STATIC ' DD090901/MENU0 ' ' DD090901/MENU0 ZMenuTimer! = 0 ' DD092304/MENU0 ZMenuNewUpld = 0 ' DD092304/MENU0 ZMenuNewUsers = 0 ' DD092304/MENU0 ZMenuNewCalls = 0 ' DD092304/MENU0 ZMenuNewSysop = 0 ' DD092304/MENU0 ZMenuDownloads = 0 ' DD092304/MENU0 ZMenuSysopPages = 0 ' DD092304/MENU0 ZMenuCarriers = 0 ' DD092304/MENU0 ZMenuDoors = 0 ' DD092304/MENU0 ZMenuNewMsgs = 0 ' DD092304/MENU0 CALL OpenOutW ("MENU0-" + ZNodeFileID$ + ".DEF") ' DD090901/MENU0 CALL PrintWorkA (2,CHR$(48)) ' DD040601 CALL PrintWorkA (2,CHR$(48)) ' DD040601 CALL PrintWorkA (2,CHR$(48)) ' DD040601 CALL PrintWorkA (2,CHR$(48)) ' DD040601 CALL PrintWorkA (2,CHR$(48)) ' DD040601 CALL PrintWorkA (2,CHR$(48)) ' DD040601 CALL PrintWorkA (2,CHR$(48)) ' DD040601 CALL PrintWorkA (2,CHR$(48)) ' DD040601 CALL PrintWorkA (2,CHR$(48)) ' DD040601 CALL PrintWorkA (2,CHR$(48)) ' DD040601 CLOSE 2 ' DD090901/MENU0 END SUB ' DD090901/MENU0 ' ' DD091101 ' $SUBTITLE: 'ReadDoorSys - Reads a DOOR.SYS drop file' ' DD091101 ' $PAGE ' DD091101 ' ' DD091101 ' SUBPROGRAM NAME -- ReadDoorSys ' DD091101 ' ' DD091101 ' INPUT PARAMETERS -- PARAMETER MEANING ' DD091101 ' ' DD091101 ' ' DD091101 ' OUTPUT PARAMETERS -- ZUserSecLevel ' DD091101 ' ZUplds ' DD091101 ' ZDnlds ' DD091101 ' ZBytesToday! ' DD091101 ' ZBankTime$ ' DD091101 ' ZDLToday! ' DD091101 ' ZULBytes! ' DD091101 ' ZDLBytes! ' DD091101 ' ' DD091101 ' SUBPROGRAM PURPOSE -- Reads a DOOR.SYS drop file ' DD091101 ' ' DD091101 ' SecurityLevel (15), Total Uploads (28), Total Downloads (29), ' DD091101 ' Daily Download "K" Total (30) Time Credits (42), Files DL today (47),' DD091101 ' Total "K" Uploaded (48), and Total "K" DL (49) can be modified by a ' DD091101 ' Door, so let RBBS read back in the values! ' DD091101 ' ' DD091101 9000 SUB ReadDoorSys STATIC ' DD091101 ' ' DD091101 CALL OpenWork (2,ZNodeWorkDrvPath$+"DOOR.SYS") ' DD091101 IF ZErrCode = 52 THEN _ ' DD091101 EXIT SUB ' DD091101 FOR I = 1 TO 15 ' DD012702 CALL ReadDir (2,1) ' DD091101 NEXT I ' DD091101 OldVal = ZUserSecLevel ' DD012702 ZUserSecLevel = VAL (ZOutTxt$) ' DD091101 IF OldVal <> ZUserSecLevel THEN _ ' DD012702 CALL UpdtCalr ("Door set Security Level From" + _ ' DD012702 STR$(OldVal) +" to" + STR$(ZUserSecLevel),2) : _ ' DD012702 ZAdjustedSecurity = ZTrue : _ ' DD012702 ZUserSecSave = ZUserSecLevel : _ ' DD012702 IF (NOT ZConfMode) AND (NOT ZSubBoard) THEN _ ' DD012702 ZOrigSec = ZUserSecLevel ' DD012702 MID$(ZUserRecord$,47,2) = MKI$(VAL(ZOutTxt$)) ' sec. level (15)' DD012702 FOR I = 16 TO 28 ' DD012702 CALL ReadDir (2,1) ' DD091101 NEXT I ' DD091101 ZZ$ = ZOutTxt$ ' DD012702 CALL Trim (ZZ$) ' DD012702 MID$(ZUserRecord$,125,2) = MKI$(VAL(ZZ$)) 'total uploads (28)' DD012702 CALL ReadDir (2,1) ' DD091101 ZZ$ = ZOutTxt$ ' DD012702 CALL Trim (ZZ$) ' DD012702 MID$(ZUserRecord$,123,2) = MKI$(VAL(ZZ$)) 'total downloads (29)' DD012702 CALL ReadDir (2,1) ' DD012702 ZZ$ = ZOutTxt$ ' DD012702 CALL Trim (ZZ$) ' DD012702 MID$(ZUserRecord$,94,4) = MKS$(VAL(ZZ$)) 'bytes dnld today (30)' DD012702 FOR I = 31 TO 42 ' DD012702 CALL ReadDir (2,1) ' DD091101 NEXT I ' DD091101 ZZ$ = ZOutTxt$ ' DD012702 CALL Trim (ZZ$) ' DD012702 MID$(ZUserRecord$,89,1) = CHR$(VAL(ZZ$)) ' banked time (42)' DD012702 FOR I = 43 TO 47 ' DD012702 CALL ReadDir (2,1) ' DD091101 NEXT I ' DD091101 ZZ$ = ZOutTxt$ ' DD012702 CALL Trim (ZZ$) ' DD012702 MID$(ZUserRecord$,90,4) = MKS$(VAL(ZZ$)) ' files dl today (47)' DD012702 CALL ReadDir (2,1) ' DD012702 ZZ$ = ZOutTxt$ ' DD012702 CALL Trim (ZZ$) ' DD012702 MID$(ZUserRecord$,102,4) = MKS$(VAL(ZZ$)*1000)' total kbytes uploaded (48)' DD012702 CALL ReadDir (2,1) ' DD012702 ZZ$ = ZOutTxt$ ' DD012702 CALL Trim (ZZ$) ' DD012702 MID$(ZUserRecord$,98,4) = MKS$(VAL(ZZ$)*1000) ' total kbytes downloaded (49)' DD012702 CLOSE 2 ' DD091101 END SUB ' DD091101 ' ' DD011201 SUB UserEd (EditFromRead,TempHashValue$,UserRecordHold$,RegDateHold$,UserSecLevelSave,WasTu) STATIC ' PE012301 ' ' PE012301 10000 ZStopInterrupts = ZTrue ' DD062304 WasI = 1 ' PE012301 ScanUsers = ZFalse ' PE012301 IF EditFromRead = 1 THEN GOTO 11341 ' PE012301 ZOutTxt$ = "A)dd, L)st, P)rt, M)od, S)can users" ' PE012301 GOSUB 12930 ' PE012301 IF ZWasQ = 0 THEN _ ' DD062304 IF EditFromRead > 0 THEN _ ' PE012301 GOTO 11325 _ ' PE012301 ELSE _ ' PE012301 ZUserFileIndex = WasTU : _ ' PE012301 GOTO 20093 ' PE012301 WasQQ = 0 ' PE012301 ZWasZ$ = LEFT$(ZUserIn$(ZAnsIndex),1) ' PE012301 CALL AllCaps (ZWasZ$) ' PE012301 IF ZWasZ$ = CHR$(65) THEN _ 'A ' DD021301 GOTO 12300 _ ' PE012301 ELSE IF ZWasZ$ = CHR$(77) THEN _ 'M ' DD021301 ZStopInterrupts = ZTrue _ ' PE012301 ELSE IF ZWasZ$ = CHR$(80) THEN _ 'P ' DD021301 WasQQ = ZTrue _ ' PE012301 ELSE IF ZWasZ$ = CHR$(83) THEN _ 'S ' DD021301 ScanUsers = ZTrue : _ ' PE012301 ZStopInterrupts = ZTrue _ ' PE012301 ELSE IF ZWasZ$ <> CHR$(76) THEN _ 'L ' DD021301 GOTO 10000 ' DD062304 CALL OpenUser (ZHighestUserRecord) ' DD062304 GOSUB 26100 ' DD062304 IF UCASE$(LEFT$(ZUserLocation$,1)) = "C" THEN _ ' DD062304 TempCity$ = "C)" + RIGHT$(ZUserLocation$,LEN(ZUserLocation$)-1) _ ' DD062304 ELSE TempCity$ = "C)" + ZUserLocation$ ' DD082903 WasZ = 1 ' PE012301 IF ScanUsers THEN _ ' PE012301 ZOutTxt$ = "Scan for N)ame, P)wd, " + TempCity$ + ", L)evel" + _ ' DD083002 LEFT$(", H)ash id",-9*(ZStartHash > 1 AND ZLenHash > 0)) : _' PE012301 GOSUB 12930 : _ ' PE012301 ZOutTxt$ = "" : _ ' PE012301 ScanFunction$ = LEFT$(ZUserIn$(1),1) : _ ' PE012301 CALL AllCaps (ScanFunction$) : _ ' PE012301 ZCR = 0 : _ ' PE012301 GOSUB 12979 : _ ' PE012301 GOSUB 12966 : _ ' PE012301 GOTO 12962 ' PE012301 10010 FOR WasJ = WasZ TO ZHighestUserRecord ' DD062304 GET 5,WasJ ' PE012301 10015 CALL DispUserRec (WasQQ) ' DD062304 IF NOT ZOK THEN _ ' PE012301 GOTO 11310 ' PE012301 IF ZRet <> 0 THEN _ ' PE012301 GOTO 11330 ' PE012301 IF NOT ZStopInterrupts THEN _ ' DD062304 GOTO 11310 ' PE012301 11110 ZOutTxt$ = "1)Delete 2)Find 3)Menu 4)Print 5)Quit 6)User#" ' DD062202 GOSUB 12930 ' PE012301 IF NOT ScanUsers AND ZWasQ = 0 THEN _ ' PE012301 GOTO 11310 ' PE012301 11115 ZWasZ$ = LEFT$(ZUserIn$(ZAnsIndex),1) ' PE012301 CALL AllCaps (ZWasZ$) ' PE012301 WasX = INSTR("123456ABCDEFGHIJKLMNOPQRSTUVWXYZ!@#$%&*()<>[]",ZWasZ$) ' DD070601 IF ZWasZ$ = "" AND ScanUsers THEN _ ' PE012301 GOTO 12965 ' PE012301 ON WasX GOTO 11130, 11340, 11330, 11220, 11320, 11127, _ ' DD070601 11190, 11390, 11160, 11470, 11437, 11425, _ ' DD070601 11426, 11420, 11423, 11490, 11435, 11446, _ ' DD070601 11448, 11452, 11424, 11400, 11431, 11427, _ ' DD070905 11432, 11433, 11445, 11436, 11434, 11428, _ ' DD070601 11429, 11444, 11430, 11438, 11439, 11440, _ ' DD070601 11441, 11442, 11443, 11449, 11447, 11450, _ ' DD070601 11451, 11453, 11454 ' DD070906 GOTO 11110 ' PE012301 11125 WasZ = VAL(ZUserIn$) ' PE012301 IF WasZ < 1 OR WasZ > ZHighestUserRecord THEN _ ' PE012301 GOTO 11127 ' PE012301 GOTO 10010 ' DD062304 11127 ZOutTxt$ = "What record #" ' PE012301 GOSUB 12932 ' PE012301 GOTO 11125 ' PE012301 ' ' PE012301 ' * D - COMMAND FROM 5- USER MAINTENANCE OPTIONS (DELETE USER) ' PE012301 ' ' PE012301 11130 ZOutTxt$ = "Delete user?" + ZNoPrompt$ ' DD060101 GOSUB 12995 ' PE012301 IF ZYes THEN _ ' PE012301 LSET ZUserName$ = CHR$(0) + _ ' PE012301 "deleted user" : _ ' PE012301 LSET ZSecLevel$ = MKI$(ZMinLogonSec - 1) : _ ' PE012301 LSET ZLastDateTimeOn$ = "01-01-80" + _ ' PE012301 SPACE$(1) + _ ' DD021301 ZTimeLoggedOn$ ' PE012301 GOTO 11290 ' PE012301 ' ' PE012301 ' * N - COMMAND FROM 5- USER MAINTENANCE OPTIONS (CHANGE USER PASSWORD)' PE012301 ' ' PE012301 11160 GOSUB 12800 ' PE012301 GOTO 11290 ' PE012301 ' ' PE012301 ' * P - COMMAND FROM 5- USER MAINTENANCE OPTIONS (PRINT USER FILE) ' PE012301 ' ' PE012301 11185 CALL QuickTPut1 (ZUserLocation$ + " now " + ZWasCI$) ' PE012301 WasA1$ = "Enter new " ' PE012301 RETURN ' PE012301 11190 ' *** C - COMMAND FROM 5 - CHANGE CITY/STATE *** ' PE012301 CityStateSave$ = ZWasCI$ ' PE012301 ZWasCI$ = ZCityState$ ' PE012301 CALL Trim (ZWasCI$) ' PE012301 GOSUB 11185 ' PE012301 GOSUB 12960 ' PE012301 ZWasCI$ = CityStateSave$ ' PE012301 GOTO 11290 ' PE012301 11220 WasQQ = NOT WasQQ ' PE012301 GOTO 10015 ' DD062304 11290 ZUserFileIndex = LOC(5) ' PE012301 GOSUB 12989 ' PE012301 GOSUB 26000 ' DD062304 GOSUB 12991 ' PE012301 ZUserFileIndex = 0 ' PE012301 GOTO 10015 ' DD062304 11310 IF ScanUsers THEN _ ' PE012301 GOTO 12965 ' PE012301 11311 NEXT ' PE012301 ' ' PE012301 ' * Q - COMMAND FROM 5- USER MAINTENANCE OPTIONS (QUIT TO MAIN MENU)' PE012301 ' ' PE012301 11320 ZUserFileIndex = WasTU ' PE012301 LSET ZUserRecord$ = UserRecordHold$ ' PE012301 ZRegDate$ = RegDateHold$ ' PE012301 IF EditFromRead > 0 THEN _ ' PE012301 GOTO 11325 ' PE012301 EXIT SUB ' PE012301 11325 ZReply = ZFalse ' PE012301 JustReplied = ZTrue ' PE012301 QuotedReply = ZTrue ' PE012301 EditFromRead = 0 ' PE012301 CALL GetMsgAttr ' PE012301 DontPrint = ZTrue ' PE012301 ZUserIn$ = CHR$(61) '= ' DD021301 EditFromRead = 3 ' PE012301 EXIT SUB ' PE012301 ' ' PE012301 ' * M - COMMAND FROM 5- USER MAINTENANCE OPTIONS (MAIN USER MAINT. MENU)' PE012301 ' ' PE012301 11330 CLOSE 2 ' PE012301 IF EditFromRead > 0 THEN _ ' PE012301 EditFromRead = 2 ' PE012301 GOTO 10000 ' DD062304 ' ' PE012301 ' * F - COMMAND FROM 5- USER MAINTENANCE OPTIONS (FIND USER) ' PE012301 ' ' PE012301 11340 ZOutTxt$ = ZPromptHash$ + _ ' PE012301 " to find" ' PE012301 CALL SkipLine (1) ' PE012301 ZParseOff = ZTrue ' PE012301 GOSUB 12932 ' PE012301 IF ZWasQ = 0 THEN _ ' PE012301 GOTO 11340 ' PE012301 TempHashValue$ = ZUserIn$ ' PE012301 11341 IF LEN(TempHashValue$) < 3 OR LEN(TempHashValue$) > ZLenHash THEN _' PE012301 GOTO 11340 ' PE012301 CALL AllCaps (TempHashValue$) ' PE012301 IF ZStartIndiv < 1 THEN _ ' PE012301 GOTO 11345 ' PE012301 11342 ZOutTxt$ = ZPromptIndiv$ + _ ' PE012301 " to find" ' PE012301 GOSUB 12995 ' PE012301 IF ZWasQ = 0 THEN _ ' PE012301 GOTO 11342 ' PE012301 TempIndivValue$ = ZUserIn$ ' PE012301 IF LEN(TempIndivValue$) > ZLenIndiv THEN _ ' PE012301 GOTO 11342 ' PE012301 CALL AllCaps (TempIndivValue$) ' PE012301 11345 GOSUB 12600 ' PE012301 GOSUB 12990 ' PE012301 GOSUB 12987 ' PE012301 ZUserFileIndex = 0 ' PE012301 IF Found THEN _ ' PE012301 GOTO 10015 ' DD062304 11380 ZOutTxt$ = TempHashValue$ + _ ' PE012301 SPACE$(1) + _ ' DD021301 TempIndivValue$ + _ ' PE012301 " not found" ' PE012301 GOSUB 12977 ' PE012301 GOTO 11310 ' PE012301 ' ' PE012301 ' * S - COMMAND FROM 5- USER MAINTENANCE OPTIONS (CHANGE USER SECURITY)' PE012301 ' ' PE012301 11390 GOSUB 11395 ' PE012301 LSET ZSecLevel$ = MKI$(WasOF) ' PE012301 GOTO 11290 ' PE012301 11395 ZOutTxt$ = "New sec level" + ZPressEnterExpert$ ' DD062304 GOSUB 12932 ' PE012301 ZWasZ$ = ZUserIn$(ZAnsIndex) ' PE012301 WasOF = VAL(ZWasZ$) ' PE012301 IF WasOF > ZUserSecLevel THEN _ ' PE012301 WasOF = ZUserSecLevel ' PE012301 RETURN ' PE012301 ' ' PE012301 ' * R - COMMAND FROM 5- USER MAINTENANCE OPTIONS (SET USER GRAPHICS)' DD062202 ' ' PE012301 11400 Temp = ASC(MID$(ZUserOption$,6,1)) ' DD062202 CALL ChangeInt (ZTrue,"Graphics Color",Temp,30,99) ' DD062202 IF ZWasQ <> 0 THEN ' DD062202 LSET ZUserOption$ = LEFT$(ZUserOption$,5) + _ ' DD062202 CHR$(ZTestedIntValue) + _ ' DD062202 MID$(ZUserOption$,7) ' DD062202 END IF ' DD062202 GOTO 11290 ' DD062202 11420 ' * T - COMMAND FROM 5 - TIME USED ' PE012301 Temp = CVI (ZElapsedTime$) ' PE012301 CALL ChangeInt (ZTrue,"Time Used",Temp,-21900,2000) ' PE012301 IF ZWasQ <> 0 THEN _ ' PE012301 LSET ZElapsedTime$ = MKI$(ZTestedIntValue) ' PE012301 GOTO 11290 ' PE012301 11423 ' * B - COMMAND FROM 5 - BANKED TIME ' PE012301 Temp = ASC(ZBankTime$) ' PE012301 CALL ChangeInt (ZTrue,"Banked Time",Temp,0,255) ' PE012301 IF ZWasQ <> 0 THEN _ ' PE012301 LSET ZBankTime$ = CHR$(ZTestedIntValue) ' PE012301 GOTO 11290 ' PE012301 11424 ' * ! - COMMAND FROM 5 - DROPPED CARRIERS ' DD091401/DROP Temp = ASC(ZDropTimes$) ' DD091401/DROP CALL ChangeInt (ZTrue,"Dropped Carriers",Temp,0,255) ' DD091401/DROP IF ZWasQ <> 0 THEN _ ' DD091401/DROP LSET ZDropTimes$ = CHR$(ZTestedIntValue) ' DD091401/DROP GOTO 11290 ' DD091401/DROP ' ' DD062202 ' * Date/Time last on ' DD062202 ' ' DD062202 11425 ZOutTxt$ = "Enter Last Date/Time on (DD-MM-YY HH:MM)" ' DD062202 GOSUB 12932 ' DD062202 IF ZWasQ = 0 THEN ' DD062202 GOTO 10015 ' DD062304 END IF ' DD062202 LSET ZLastDateTimeOn$ = ZUserIn$(ZAnsIndex) + _ ' DD062202 " " + ZUserIn$(ZLastIndex) ' DD062202 ZLastIndex = 1 ' DD070602 GOTO 11290 ' DD062202 ' ' DD062202 ' * Times On ' DD062202 ' ' DD062202 11426 Temp = CVI(MID$(ZUserOption$,1,2)) ' DD062202 CALL ChangeInt (ZTrue,"Times Logged On",Temp,1,32767) ' DD062202 IF ZWasQ <> 0 THEN ' DD062202 LSET ZUserOption$ = MKI$(ZTestedIntValue) + MID$(ZUserOption$,3) ' DD062202 END IF ' DD062202 GOTO 11290 ' DD062202 ' ' DD062202 ' * ANSIEd ' DD062202 ' ' DD062202 11427 ZWasA = CVI(MID$(ZUserOption$,9,2)) ' DD062202 ZWasA = ZWasA XOR 128 ' DD062202 LSET ZUserOption$ = LEFT$(ZUserOption$,8) + _ ' DD062202 MKI$ (ZWasA) + _ ' DD062202 MID$(ZUserOption$,11) ' DD062202 GOTO 11290 ' DD062202 ' ' DD062202 ' * Protocol ' DD062202 ' ' DD062202 11428 ZOutTxt$ = "Enter Protocol" ' DD062202 GOSUB 12932 ' DD062202 IF ZWasQ <> 0 THEN ' DD062202 LSET ZUserOption$ = LEFT$(ZUserOption$,4) + _ ' DD062202 UCASE$(LEFT$(ZUserIn$(ZAnsIndex),1)) + _' DD062202 MID$(ZUserOption$,6) ' DD062202 END IF ' DD062202 GOTO 11290 ' DD062202 ' ' DD062202 ' * Skip New Files ' DD062202 ' ' DD062202 11429 ZWasA = CVI(MID$(ZUserOption$,9,2)) ' DD062202 ZWasA = ZWasA XOR 64 ' DD062202 LSET ZUserOption$ = LEFT$(ZUserOption$,8) + _ ' DD062202 MKI$(ZWasA) + _ ' DD062202 MID$(ZUserOption$,11) ' DD062202 GOTO 11290 ' DD062202 ' ' DD062202 ' * Check New Bulletins ' DD062202 ' ' DD062202 11430 ZWasA = CVI(MID$(ZUserOption$,9,2)) ' DD062202 ZWasA = ZWasA XOR 32 ' DD062202 LSET ZUserOption$ = LEFT$(ZUserOption$,8) + _ ' DD062202 MKI$(ZWasA) + _ ' DD062202 MID$(ZUserOption$,11) ' DD062202 GOTO 11290 ' DD062202 ' ' DD062202 ' * HighLighting ' DD062202 ' ' DD062202 11431 ZWasA = CVI(MID$(ZUserOption$,9,2)) ' DD062202 ZWasA = ZWasA XOR 1024 ' DD062202 LSET ZUserOption$ = LEFT$(ZUserOption$,8) + _ ' DD062202 MKI$(ZWasA) + _ ' DD062202 MID$(ZUserOption$,11) ' DD062202 GOTO 11290 ' DD062202 ' ' DD062202 ' * Page Length ' DD062202 ' ' DD062202 11432 Temp = ASC(MID$(ZUserOption$,13,1)) ' DD062202 CALL ChangeInt (ZTrue,"Page Length",Temp,0,255) ' DD062202 IF ZWasQ <> 0 THEN ' DD062202 LSET ZUserOption$ = LEFT$(ZUserOption$,12) + _ ' DD062202 CHR$(ZTestedIntValue) + _ ' DD062202 MID$(ZUserOption$,14) ' DD062202 END IF ' DD062202 GOTO 11290 ' DD062202 ' ' DD062202 ' * Right Margin ' DD062202 ' ' DD062202 11433 Temp = ASC(MID$(ZUserOption$,7,1)) ' DD063002 CALL ChangeInt (ZTrue,"Right Margin",Temp,1,74) ' DD062202 IF ZWasQ <> 0 THEN ' DD062202 LSET ZUserOption$ = LEFT$(ZUserOption$,6) + _ ' DD062202 CHR$(ZTestedIntValue) + _ ' DD063002 MID$(ZUserOption$,8) ' DD063001 END IF ' DD062202 GOTO 11290 ' DD062202 ' ' DD062202 ' * Mail Waiting ' DD062202 ' ' DD062202 11434 ZWasA = CVI(MID$(ZUserOption$,9,2)) ' DD062202 ZWasA = ZWasA XOR 512 ' DD062202 LSET ZUserOption$ = LEFT$(ZUserOption$,8) + _ ' DD062202 MKI$(ZWasA) + _ ' DD062202 MID$(ZUserOption$,11) ' DD062202 GOTO 11290 ' DD062202 ' ' DD062202 ' * Answered Questionaire ' DD062202 ' ' DD062202 11435 ZWasA = CVI(MID$(ZUserOption$,9,2)) ' DD062202 ZWasA = ZWasA XOR 256 ' DD062202 LSET ZUserOption$ = LEFT$(ZUserOption$,8) + _ ' DD062202 MKI$(ZWasA) + _ ' DD062202 MID$(ZUserOption$,11) ' DD062202 GOTO 11290 ' DD062202 ' ' DD062202 ' * Last Message Read ' DD062202 ' ' DD062202 11436 Temp = CVI(MID$(ZUserOption$,3,2)) ' DD062202 CALL ChangeInt (ZTrue,"Last Msg Read",Temp,0,ZHighMsgNumber) ' DD062202 IF ZWasQ <> 0 THEN ' DD062202 LSET ZUserOption$ = LEFT$(ZUserOption$,2) + _ ' DD062202 MKI$(ZTestedIntValue) + _ ' DD062202 MID$(ZUserOption$,5) ' DD062202 END IF ' DD062202 GOTO 11290 ' DD062202 ' ' DD062202 ' * Last DIR Date ' DD062202 ' ' DD062202 11437 ZOutTxt$ = "Enter Last DIR Date (MM-DD-YY)" ' DD062606 GOSUB 12932 ' DD062202 IF ZWasQ = 0 THEN ' DD062202 GOTO 10015 ' DD062304 END IF ' DD062202 IF LEN(ZUserIn$(ZAnsIndex)) < 8 THEN ' DD062202 GOTO 11437 ' DD062202 END IF ' DD062202 LSET ZListNewDate$ = CHR$(VAL(MID$(ZUserIn$(ZAnsIndex),7,2))) + _ ' DD062202 CHR$(VAL(MID$(ZUserIn$(ZAnsIndex),1,2))) + _ ' DD062202 CHR$(VAL(MID$(ZUserIn$(ZAnsIndex),4,2))) ' DD062202 GOTO 11290 ' DD062202 ' ' DD062202 ' * Expert User ' DD062202 ' ' DD062202 11438 ZWasA = CVI(MID$(ZUserOption$,9,2)) ' DD062202 ZWasA = ZWasA XOR 2 ' DD062202 LSET ZUserOption$ = LEFT$(ZUserOption$,8) + _ ' DD062202 MKI$(ZWasA) + _ ' DD062202 MID$(ZUserOption$,11) ' DD062202 GOTO 11290 ' DD062202 ' ' DD062202 ' * Prompt Bell ' DD062202 ' ' DD062202 11439 ZWasA = CVI(MID$(ZUserOption$,9,2)) ' DD062202 ZWasA = ZWasA XOR 1 ' DD062202 LSET ZUserOption$ = LEFT$(ZUserOption$,8) + _ ' DD062202 MKI$(ZWasA) + _ ' DD062202 MID$(ZUserOption$,11) ' DD062202 GOTO 11290 ' DD062202 ' ' DD062202 ' * Nulls ' DD062202 ' ' DD062202 11440 ZWasA = CVI(MID$(ZUserOption$,9,2)) ' DD062202 ZWasA = ZWasA XOR 4 ' DD062202 LSET ZUserOption$ = LEFT$(ZUserOption$,8) + _ ' DD062202 MKI$(ZWasA) + _ ' DD062202 MID$(ZUserOption$,11) ' DD062202 GOTO 11290 ' DD062202 ' ' DD062202 ' * Upper Case ' DD062202 ' ' DD062202 11441 ZWasA = CVI(MID$(ZUserOption$,9,2)) ' DD062202 ZWasA = ZWasA XOR 8 ' DD062202 LSET ZUserOption$ = LEFT$(ZUserOption$,8) + _ ' DD062202 MKI$(ZWasA) + _ ' DD062202 MID$(ZUserOption$,11) ' DD062202 GOTO 11290 ' DD062202 ' ' DD062202 ' * Line Feeds ' DD062202 ' ' DD062202 11442 ZWasA = CVI(MID$(ZUserOption$,9,2)) ' DD062202 ZWasA = ZWasA XOR 16 ' DD062202 LSET ZUserOption$ = LEFT$(ZUserOption$,8) + _ ' DD062202 MKI$(ZWasA) + _ ' DD062202 MID$(ZUserOption$,11) ' DD062202 GOTO 11290 ' DD062202 ' ' DD062202 ' * TurboKeys ' DD062202 ' ' DD062202 11443 ZWasA = CVI(MID$(ZUserOption$,9,2)) ' DD062202 ZWasA = ZWasA XOR 2048 ' DD062202 LSET ZUserOption$ = LEFT$(ZUserOption$,8) + _ ' DD062202 MKI$(ZWasA) + _ ' DD062202 MID$(ZUserOption$,11) ' DD062202 GOTO 11290 ' DD062202 ' ' DD062202 ' * Personal Upload Waiting ' DD062202 ' ' DD062202 11444 ZWasA = CVI(MID$(ZUserOption$,9,2)) ' DD062202 ZWasA = ZWasA XOR 4096 ' DD062202 LSET ZUserOption$ = LEFT$(ZUserOption$,8) + _ ' DD062202 MKI$(ZWasA) + _ ' DD062202 MID$(ZUserOption$,11) ' DD062202 GOTO 11290 ' DD062202 ' ' DD070102 ' * Read All New Mail ' DD070102 ' ' DD070102 11445 ZWasA = ASC(MID$(ZUserOption$,8,1)) ' DD070102 ZWasA = ZWasA XOR 1 ' DD070102 LSET ZUserOption$ = LEFT$(ZUserOption$,7) + _ ' DD070102 CHR$(ZWasA) + _ ' DD070102 MID$(ZUserOption$,9) ' DD070102 GOTO 11290 ' DD070102 ' ' DD070103 ' * Reselect All ' DD070103 ' ' DD070103 11446 ZWasA = ASC(MID$(ZUserOption$,8,1)) ' DD070103 ZWasA = ZWasA XOR 2 ' DD070103 LSET ZUserOption$ = LEFT$(ZUserOption$,7) + _ ' DD070103 CHR$(ZWasA) + _ ' DD070103 MID$(ZUserOption$,9) ' DD070103 GOTO 11290 ' DD070103 ' ' DD070102 ' * More Prompt LF ' DD070102 ' ' DD070102 11447 ZWasA = ASC(MID$(ZUserOption$,8,1)) ' DD070102 ZWasA = ZWasA XOR 4 ' DD070102 LSET ZUserOption$ = LEFT$(ZUserOption$,7) + _ ' DD070102 CHR$(ZWasA) + _ ' DD070102 MID$(ZUserOption$,9) ' DD070102 GOTO 11290 ' DD070102 ' ' DD070105 ' * Reselect Graphics ' DD070105 ' ' DD070105 11448 ZWasA = ASC(MID$(ZUserOption$,8,1)) ' DD070105 ZWasA = ZWasA XOR 8 ' DD070105 LSET ZUserOption$ = LEFT$(ZUserOption$,7) + _ ' DD070105 CHR$(ZWasA) + _ ' DD070105 MID$(ZUserOption$,9) ' DD070105 GOTO 11290 ' DD070105 ' ' DD070402 ' * ANSI Music ' DD070402 ' ' DD070402 11449 ZWasA = ASC(MID$(ZUserOption$,8,1)) ' DD070402 ZWasA = ZWasA XOR 16 ' DD070402 LSET ZUserOption$ = LEFT$(ZUserOption$,7) + _ ' DD070402 CHR$(ZWasA) + _ ' DD070402 MID$(ZUserOption$,9) ' DD070402 GOTO 11290 ' DD070402 ' ' DD070904 ' * Echoer ' DD070904 ' ' DD070904 11450 ZOutTxt$ = "Change ECHO to R)BBS, C)aller's software" + _ ' DD070907 MID$(", I)ntermediate host",1,-20 * (ZHostEchoOn$ <> "")) + _ ' DD070907 ZPressEnterExpert$ ' DD070907 ZTurboKey = -ZTurboKeyUser ' DD070907 CALL PopCmdStack ' DD070907 IF ZWasQ = 0 THEN _ ' DD070907 GOTO 11290 ' DD070907 ZWasZ$ = LEFT$(ZUserIn$(ZAnsIndex),1) ' DD070907 CALL AllCaps (ZWasZ$) ' DD070907 IF INSTR("ICR",ZWasZ$) <> 0 THEN _ ' DD070907 LSET ZUserOption$ = LEFT$(ZUserOption$,13) + _ ' DD070907 ZWasZ$ ' DD070904 GOTO 11290 ' DD070904 ' ' DD070601 ' * Never Can Page ' DD070601 ' ' DD070601 11451 ZWasA = ASC(MID$(ZUserOption$,8,1)) ' DD070601 ZWasA = ZWasA XOR 32 ' DD070601 LSET ZUserOption$ = LEFT$(ZUserOption$,7) + _ ' DD070601 CHR$(ZWasA) + _ ' DD070601 MID$(ZUserOption$,9) ' DD070601 GOTO 11290 ' DD070601 ' ' DD070905 ' * Reselect Protocol ' DD070905 ' ' DD070905 11452 ZWasA = ASC(MID$(ZUserOption$,8,1)) ' DD070905 ZWasA = ZWasA XOR 64 ' DD070905 LSET ZUserOption$ = LEFT$(ZUserOption$,7) + _ ' DD070905 CHR$(ZWasA) + _ ' DD070905 MID$(ZUserOption$,9) ' DD070905 GOTO 11290 ' DD070905 ' ' DD070906 ' * Extended Files ' DD070906 ' ' DD070906 11453 ZWasA = CVI(MID$(ZUserOption$,9,2)) ' DD071902 ZWasA = ZWasA XOR 16384 ' DD071902 LSET ZUserOption$ = LEFT$(ZUserOption$,8) + _ ' DD071902 MKI$(ZWasA) + _ ' DD071902 MID$(ZUserOption$,11) ' DD071902 GOTO 11290 ' DD071902 ' ' DD070906 ' * Global Twit ' DD070906 ' ' DD070906 11454 ZWasA = ASC(MID$(ZUserOption$,8,1)) ' DD070906 ZWasA = ZWasA XOR 128 ' DD070906 LSET ZUserOption$ = LEFT$(ZUserOption$,7) + _ ' DD070906 CHR$(ZWasA) + _ ' DD070906 MID$(ZUserOption$,9) ' DD070906 GOTO 11290 ' DD070906 ' ' PE012301 ' * $ - COMMAND FROM 5 - USER MAINTENANCE (CHANGE REGISTRATION DATE)' PE012301 ' ' PE012301 11470 ZOutTxt$ = "Enter new registration date (MM-DD-YY)" ' DD070601 GOSUB 12932 ' PE012301 IF ZWasQ = 0 THEN _ ' PE012301 GOTO 10015 ' DD062304 11475 WorkDate$ = ZUserIn$(ZAnsIndex) ' DD070601 IF LEN(WorkDate$) < 8 THEN _ ' PE012301 GOTO 11470 ' DD070601 CALL ResetRegDate (WorkDate$) ' PE012301 IF NOT ZOK THEN _ ' PE012301 GOTO 11470 ' DD070601 LSET ZUserOption$ = LEFT$(ZUserOption$,10) + _ ' PE012301 ZRegDate$ + _ ' PE012301 MID$(ZUserOption$,13) ' PE012301 CALL SetRegDisplay ' PE012301 ZRegDate$ = RegDateHold$ ' PE012301 GOTO 11290 ' PE012301 ' ' PE012301 ' * X - COMMAND FROM 5 - USER MAINTENANCE (CHANGE XFER COUNTERS) * ' PE012301 ' ' PE012301 11490 CALL CmndSysOpXfer ' PE012301 GOTO 11290 ' PE012301 ' ' PE012301 ' * A - COMMAND FROM 5- USER MAINTENANCE OPTIONS (ADD USER) ' PE012301 ' ' PE012301 12300 WasA1$ = "" ' PE012301 Attempts = 0 ' PE012301 FirstNameSave$ = ZFirstName$ ' PE012301 LastNameSave$ = ZLastName$ ' PE012301 ActiveUserNameSave$ = ZActiveUserName$ ' PE012301 CityStateSave$ = ZWasCI$ ' PE012301 HashValueSave$ = HashValue$ ' PE012301 IndivValueSave$ = ZIndivValue$ ' PE012301 GOSUB 12500 ' PE012301 GOSUB 12840 ' PE012301 GOSUB 12850 ' PE012301 GOSUB 12598 ' PE012301 IF ZUserFileIndex = 0 THEN _ ' PE012301 GOSUB 12984 : _ ' PE012301 GOTO 12330 ' PE012301 IF Found THEN _ ' PE012301 WasD$ = "User already exists" : _ ' PE012301 CALL LPrnt(WasD$,1) : _ ' PE012301 GOSUB 12984 : _ ' PE012301 GOTO 12330 ' PE012301 12310 GOSUB 12630 ' PE012301 GOSUB 12800 ' PE012301 GOSUB 11395 ' PE012301 ZTempSecLevel = WasOF ' PE012301 CALL SetNewUserDef ' PE012301 LSET ZLastDateTimeOn$ = ZCurDate$ + _ ' PE012301 SPACE$(1) + _ ' DD021301 ZTimeLoggedOn$ ' PE012301 LSET ZListNewDate$ = CHR$(91) + CHR$(1) + CHR$(1) ' DD081001 TempDate$ = DATE$ ' DD081001 WorkDate$ = LEFT$(TempDate$,6) + RIGHT$(TempDate$,2) ' DD081001 CALL ResetRegDate (WorkDate$) ' DD081001 LSET ZUserOption$ = LEFT$(ZUserOption$,10) + _ ' DD081001 ZRegDate$ + _ ' DD081001 MID$(ZUserOption$,13) ' DD081001 LSET ZUserOption$ = LEFT$(ZUserOption$,13) + ZDefaultEchoer$ ' DD081001 LSET ZUserOption$ = LEFT$(ZUserOption$,12) + _ ' DD081001 CHR$(23) + _ ' DD081001 MID$(ZUserOption$,14) ' DD081001 LSET ZUserOption$ = LEFT$(ZUserOption$,6) + _ ' DD081001 CHR$(72) + _ ' DD081001 MID$(ZUserOption$,8) ' DD081001 LSET ZUserOption$ = LEFT$(ZUserOption$,7) + CHR$(1) + _ ' DD081001 MID$(ZUserOption$,9) ' DD081001 LSET ZUserOption$ = LEFT$(ZUserOption$,8) + MKI$(9264) + _ ' DD081001 MID$(ZUserOption$,11) ' DD081001 GOSUB 12960 ' PE012301 CALL AllCaps (ZUserIn$) ' PE012301 LSET ZCityState$ = ZUserIn$ ' PE012301 LSET ZElapsedTime$ = MKI$(0) ' PE012301 IF ZStartHash > 1 THEN _ ' PE012301 MID$(ZUserRecord$,ZStartHash,ZLenHash) = HashValue$ ' PE012301 IF ZStartIndiv > 1 THEN _ ' PE012301 MID$(ZUserRecord$,ZStartIndiv,ZLenIndiv) = ZIndivValue$ ' PE012301 GOSUB 26000 ' DD062304 12320 GOSUB 12991 ' PE012301 12330 ZUserSecLevel = UserSecLevelSave ' PE012301 ZFirstName$ = FirstNameSave$ ' PE012301 ZLastName$ = LastNameSave$ ' PE012301 ZActiveUserName$ = ActiveUserNameSave$ ' PE012301 ZWasCI$ = CityStateSave$ ' PE012301 HashValue$ = HashValueSave$ ' PE012301 ZIndivValue$ = IndivValueSave$ ' PE012301 ZUserFileIndex = WasTU ' PE012301 LSET ZUserRecord$ = UserRecordHold$ ' PE012301 GOTO 10000 ' DD062304 ' ' PE012301 ' * GET USER First AND Last NAMES ' PE012301 ' ' PE012301 12500 IF Attempts > 5 THEN _ ' PE012301 ZFF = ZTrue : _ ' PE012301 RETURN ' PE012301 12510 Attempts = Attempts + 1 ' DD062304 ZOutTxt$ = WasA1$ + _ ' PE012301 ZFirstNamePrompt$ ' PE012301 CALL SkipLine (1) ' PE012301 ZLogonActive = ZTrue ' PE012301 GOSUB 12555 ' PE012301 IF ZWasQ = 0 THEN _ ' PE012301 GOTO 12500 ' PE012301 ZLogonActive = ZFalse ' PE012301 CALL Trim (ZWasZ$) ' PE012301 ZFirstName$ = ZWasZ$ ' PE012301 12530 ZOutTxt$ = WasA1$ + _ ' PE012301 ZLastNamePrompt$ ' PE012301 ZParseOff = ZTrue ' PE012301 GOSUB 12555 ' PE012301 IF ZWasQ = 0 THEN _ ' PE012301 GOTO 12500 ' PE012301 12540 CALL Trim (ZWasZ$) ' PE012301 ZLastName$ = ZWasZ$ ' PE012301 IF LEN(ZLastName$) < 2 THEN _ ' PE012301 IF LEN(ZFirstName$) > 2 THEN _ ' PE012301 GOTO 12500 ' PE012301 IF (LEN(ZFirstName$) + LEN(ZLastName$)) > 30 THEN _ ' PE012301 GOTO 12500 ' PE012301 IF UserSecLevelSave < ZSysopSecLevel THEN _ ' PE012301 IF (LEN(ZFirstName$) < 2 OR LEN(ZLastName$) < 2) THEN _ ' PE012301 GOTO 12500 _ ' PE012301 ELSE IF LEFT$(ZFirstName$,1)=SPACE$(1) OR LEFT$(ZLastName$,1)=SPACE$(1) THEN _' DD021301 GOTO 12500 ' PE012301 12550 ZActiveUserName$ = MID$(ZFirstName$ + SPACE$(1) + ZLastName$,1,31) ' DD021301 ZWasZ$ = ZFirstName$ ' PE012301 RETURN ' PE012301 ' ' PE012301 ' * CHECK FOR NAMES NOT ALLOWED ' PE012301 ' ' PE012301 12555 GOSUB 12932 ' PE012301 IF ZWasQ = 0 THEN _ ' PE012301 RETURN ' PE012301 12556 ZWasZ$ = ZUserIn$(ZAnsIndex) ' PE012301 12557 CALL AllCaps (ZWasZ$) ' PE012301 CALL RemNonAlf (ZWasZ$,31,91) ' PE012301 RETURN ' PE012301 ' ' PE012301 ' * COMMON SEARCH USER FILE ROUTINE ' PE012301 ' ' PE012301 12598 TempHashValue$ = HashValue$ ' PE012301 TempIndivValue$ = ZIndivValue$ ' PE012301 12600 GOSUB 25000 ' DD062304 GOSUB 12988 ' PE012301 12605 CALL OpenUser (ZHighestUserRecord) ' PE012301 GOSUB 26100 ' DD062304 CALL FindUser (TempHashValue$,TempIndivValue$,ZStartHash,ZLenHash,_' PE012301 ZStartIndiv,ZLenIndiv,ZHighestUserRecord,Found,_' PE012301 ZUserFileIndex,ZWasSL) ' PE012301 IF Found THEN _ ' PE012301 RETURN ' PE012301 IF CurUserCount < (ZHighestUserRecord-1)*.95 THEN _ ' PE012301 RETURN ' PE012301 ZOutTxt$ = "No room for new users in " + ZConfName$ ' PE012301 CALL UpdtCalr (ZOutTxt$,2) ' PE012301 IF ZActiveUserFile$ <> ZMainUserFile$ THEN _ ' PE012301 ZUserFileIndex = 0 : _ ' PE012301 RETURN ' PE012301 IF ZRememberNewUsers AND NOT ZSurviveNoUserRoom THEN _ ' PE012301 GOTO 12975 ' PE012301 ZUserFileIndex = 0 ' PE012301 IF ZSurviveNoUserRoom THEN _ ' PE012301 ZRememberNewUsers = ZFalse ' PE012301 RETURN ' PE012301 ' ' PE012301 ' * AUGMENT USER COUNT, LOCK 4 REC BLOCK IN USER, UNLOCK FILES ' PE012301 ' ' PE012301 12630 GOSUB 23000 ' PE012301 CurUserCount = CurUserCount + (ZWasSL = 0) * ZRememberNewUsers ' PE012301 12632 GOSUB 24000 ' PE012301 GOSUB 12985 ' PE012301 IF ZRememberNewUsers THEN _ ' PE012301 GOSUB 12989 ' PE012301 GOSUB 12990 ' PE012301 RETURN ' PE012301 ' ' PE012301 ' * GET PASSWORD FROM NEWUSER ' PE012301 ' ' PE012301 12800 CALL NewPassword ("Password",ZFalse) ' DD062304 IF ZSubParm < 0 THEN _ ' PE012301 exit sub ' PE012301 IF UserSecLevelSave < ZSysopSecLevel THEN _ ' PE012301 IF ZUserIn$ = SPACE$(LEN(ZUserIn$)) THEN _ ' PE012301 GOTO 12800 ' PE012301 LSET ZPswd$ = ZWasZ$ ' PE012301 RETURN ' PE012301 ' ' PE012301 ' * GET HASH VALUE FOR CURRENT USER TO LOOK UP IN THE USER'S FILE ' PE012301 ' ' PE012301 12840 IF ZStartHash = 1 THEN _ ' PE012301 HashValue$ = ZActiveUserName$ : _ ' PE012301 RETURN ' PE012301 WasX$ = WasA1$ + _ ' PE012301 ZPromptHash$ ' PE012301 CALL UntilRight (WasX$,HashValue$,2,ZLenHash) ' PE012301 RETURN ' PE012301 ' ' PE012301 ' * GET FIELD TO INDIVIDUATE ONE USER FROM ANOTHER (NAME FIELD IS DEFAULT)' PE012301 ' ' PE012301 12850 IF ZStartIndiv < 1 OR ZLenIndiv < 1 THEN _ ' PE012301 RETURN ' PE012301 IF ZStartIndiv = 1 THEN _ ' PE012301 ZIndivValue$ = ZActiveUserName$ : _ ' PE012301 RETURN ' PE012301 IF ZExitToDoors THEN _ ' PE012301 RETURN ' PE012301 WasX$ = WasA1$ + _ ' PE012301 ZPromptIndiv$ ' PE012301 CALL UntilRight (WasX$,ZIndivValue$,2,ZLenIndiv) ' PE012301 RETURN ' PE012301 12930 ZTurboKey = -ZTurboKeyUser ' PE012301 12932 CALL PopCmdStack ' PE012301 GOTO 12997 ' PE012301 ' ' PE012301 ' * GET CITY AND STATE ' PE012301 ' ' PE012301 12960 ZOutTxt$ = WasA1$ + ZUserLocation$ + ZPressEnterExpert$ ' DD062304 ZParseOff = ZTrue ' PE012301 GOSUB 12932 ' PE012301 IF ZWasQ = 0 THEN _ ' DD062304 RETURN ' DD062304 CALL AllCaps (ZUserIn$) ' PE012301 LSET ZCityState$ = ZUserIn$ ' PE012301 ZWasCI$ = ZUserIn$ ' PE012301 RETURN ' PE012301 ' ' PE012301 ' * S - COMMAND FROM 5 - USER MAINTENANCE OPTIONS (SCAN USERS) ' PE012301 ' ' PE012301 12962 WasX = 0 ' PE012301 ZFF = ZFalse ' PE012301 ZMacroMin = 99 ' PE012301 ZOutTxt$ = "String to search" ' PE012301 GOSUB 12998 ' PE012301 IF ZWasQ = 0 THEN _ ' PE012301 GOTO 10000 ' DD062304 CALL AllCaps (ZUserIn$) ' PE012301 WasWK$ = ZUserIn$ ' PE012301 IF ScanFunction$ = CHR$(76) THEN _ 'L ' DD021301 WasWK$ = CHR$(44) + _ ' DD021301 STR$(VAL(WasWK$)) + _ ' PE012301 CHR$(44) ' DD021301 12963 GET 5,WasI ' PE012301 GOSUB 12966 ' PE012301 WasX = INSTR(ScanField$,WasWK$) ' PE012301 IF WasX > 0 THEN _ ' PE012301 GOTO 10015 ' DD062304 12965 WasI = WasI + 1 ' PE012301 IF WasI > ZHighestUserRecord THEN _ ' PE012301 LSET ZUserRecord$ = UserRecordHold$ : _ ' PE012301 GOTO 10000 ' DD062304 WasX = 0 ' PE012301 GOTO 12963 ' PE012301 12966 ZFF = INSTR("NCPLH",ScanFunction$) ' PE012301 12967 ON ZFF GOTO 12968,12969,12970,12972,12971 ' PE012301 GOTO 10000 ' DD062304 ' ' PE012301 ' * N - COMMAND FROM 5 - USER MAINTENANCE SCAN FUNCTION (SEARCH FOR NAME)' PE012301 ' ' PE012301 12968 ScanField$ = ZUserName$ ' PE012301 RETURN ' PE012301 ' ' PE012301 ' * C - COMMAND FROM 5 - USER MAINTENANCE SCAN FUNCTION (SEARCH FOR CITY/ST)' PE012301 ' ' PE012301 12969 ScanField$ = ZCityState$ ' PE012301 RETURN ' PE012301 ' ' PE012301 ' * P - COMMAND FROM 5 - USER MAINTENANCE SCAN FUNCTION (SEARCH FOR PASSWORD)' PE012301 ' ' PE012301 12970 ScanField$ = ZPswd$ ' PE012301 RETURN ' PE012301 ' ' PE012301 ' * H - COMMAND FROM 5 - USER MAINTENANCE SCAN FUNCTION (SEARCH FOR HASH ID)' PE012301 ' ' PE012301 12971 IF ZStartHash > 0 AND ZLenHash > 0 THEN _ ' PE012301 ScanField$ = MID$(ZUserRecord$,ZStartHash,ZLenHash) ' PE012301 RETURN ' PE012301 ' ' PE012301 ' * L - COMMAND FROM 5 - USER MAINTENANCE SCAN FUNCTION (SEARCH FOR LEVEL)' PE012301 ' ' PE012301 12972 ScanField$ = CHR$(44) + _ ' DD021301 STR$(CVI(ZSecLevel$)) + _ ' PE012301 CHR$(44) ' DD021301 RETURN ' PE012301 ' ' PE012301 ' * CALLS INTO SEPARATELY COMPILED SUBROUTINES (RBBS-SUB) ' PE012301 ' ' PE012301 ' ' PE012301 ' * STANDARD ENTRY FOR RBBS-PC'S COMMON TERMINAL OUTPUT ROUTINE ' PE012301 ' ' PE012301 12975 ZSubParm = 1 ' PE012301 GOTO 12981 ' PE012301 12976 ZSubParm = 2 ' PE012301 GOTO 12981 ' PE012301 12977 ZSubParm = 3 ' PE012301 GOTO 12981 ' PE012301 12978 ZSubParm = 4 ' no cr/lf ' PE012301 GOTO 12981 ' PE012301 12979 ZSubParm = 5 ' cr/lf ' PE012301 GOTO 12981 ' PE012301 12980 ZSubParm = 6 ' PE012301 12981 CALL TPut ' PE012301 12983 IF ZSubParm < 0 THEN _ ' PE012301 EXIT SUB ' PE012301 IF ZSubParm = 8 THEN _ ' PE012301 GOSUB 12995 ' PE012301 RETURN ' PE012301 ' ' PE012301 ' * STANDARD ENTRY FOR RBBS-PC'S FILE LOCKING WHEN RUNNING MULTIPLE RBBS-PC'S' PE012301 ' ' PE012301 12984 ZSubParm = 1 ' LOCK USERS & MESSAGES ' PE012301 GOTO 12994 ' PE012301 12985 ZSubParm = 2 ' UNLOCK MESSAGES AND FLUSH ' PE012301 Flushed = ZTrue ' PE012301 GOTO 12994 ' PE012301 12986 ZSubParm = 3 ' LOCK MESSAGES ' PE012301 GOTO 12994 ' PE012301 12987 ZSubParm = 4 ' UNLOCK MESSAGES ' PE012301 GOTO 12994 ' PE012301 12988 ZSubParm = 5 ' LOCK USERS ' PE012301 GOTO 12994 ' PE012301 12989 ZSubParm = 6 ' LOCK USER BLOCK ' PE012301 GOTO 12994 ' PE012301 12990 ZSubParm = 7 ' UNLOCK USERS ' PE012301 GOTO 12994 ' PE012301 12991 ZSubParm = 8 ' UNLOCK USER BLOCK ' PE012301 GOTO 12994 ' PE012301 12994 CALL FileLock ' PE012301 IF Flushed THEN _ ' PE012301 FIELD 1,128 AS ZMsgRec$ : _ ' PE012301 Flushed = ZFalse ' PE012301 IF ZSubParm = -1 THEN _ ' PE012301 ZSubParm = -9 : _ ' PE012301 CALL FindFKey : _ ' PE012301 EXIT SUB ' PE012301 RETURN ' PE012301 ' ' PE012301 ' * STANDARD ENTRY FOR RBBS-PC'S COMMON TERMINAL INPUT ROUTINE ' PE012301 ' ' PE012301 12995 GOSUB 12997 ' PE012301 ZSubParm = 1 ' PE012301 12996 CALL TGet ' PE012301 12997 IF ZSubParm < 0 THEN _ ' PE012301 EXIT SUB ' PE012301 RETURN ' PE012301 12998 ZOutTxt$ = ZOutTxt$ + _ ' PE012301 ZPressEnterExpert$ ' DD062304 GOTO 12995 ' PE012301 12999 ZTurboKey = -ZTurboKeyUser ' PE012301 GOTO 12995 ' PE012301 ' ' PE012301 ' * C/R - COMMAND FROM 5 - USER MAINTENANCE SCAN FUNCTION (QUIT TO MAIN MENU)' PE012301 ' ' PE012301 20093 LSET ZUserRecord$ = UserRecordHold$ ' PE012301 GOSUB 26200 ' DD062304 EXIT SUB ' PE012301 ' ' PE012301 ' * GET MESSAGE HEADER RECORD DATA ' PE012301 ' ' PE012301 23000 GET 1,1 ' PE012301 ZHighMsgNumber = VAL(LEFT$(ZMsgRec$,8)) ' DD040707 AutoAddSec = CVI(MID$(ZMsgRec$,9,2)) ' PE012301 ZCallsToDate! = VAL(MID$(ZMsgRec$,11,10)) ' DD040705 ZMsgSecCats$ = LEFT$(CHR$(85),-(MID$(ZMsgRec$,21,1) <> CHR$(47))) + _ ' DD021301 LEFT$(CHR$(82),-(MID$(ZMsgRec$,22,1) <> CHR$(47))) + _ ' DD021301 LEFT$(CHR$(80),-(MID$(ZMsgRec$,23,1) <> CHR$(47))) + CHR$(69) ' DD021301 IF ZUserSecLevel >= ZSecKillAny THEN _ ' PE012301 ZMsgSecCats$ = "URPE" ' PE012301 IF ZMsgSecCats$ = CHR$(69) THEN _ ' DD021301 ZMsgSecCats$ = "UE" ' PE012301 CurUserCount = VAL(MID$(ZMsgRec$,57,5)) ' PE012301 FirstMsgRecord = VAL(MID$(ZMsgRec$,68,7)) ' PE012301 ZNextMsgRec = VAL(MID$(ZMsgRec$,75,7)) ' PE012301 HighestMsgRecord = VAL(MID$(ZMsgRec$,82,7)) ' PE012301 IF ZActiveMessageFile$ = ZOrigMsgFile$ THEN _ ' PE012301 ZMaxNodes = VAL(MID$(ZMsgRec$,127)) ' PE012301 RETURN ' PE012301 ' ' PE012301 ' * UPDATE MESSAGE HEADER RECORD DATA ' PE012301 ' ' PE012301 24000 MID$(ZMsgRec$,1,8) = STR$(ZHighMsgNumber) ' DD040707 MID$(ZMsgRec$,11,10) = STR$(ZCallsToDate!) ' DD040705 MID$(ZMsgRec$,57,5) = STR$(CurUserCount) ' PE012301 MID$(ZMsgRec$,68,7) = STR$(FirstMsgRecord) ' PE012301 MID$(ZMsgRec$,75,7) = STR$(ZNextMsgRec) ' PE012301 MID$(ZMsgRec$,82,7) = STR$(HighestMsgRecord) ' PE012301 PUT 1,1 ' PE012301 RETURN ' PE012301 ' ' PE012301 25000 GOSUB 12986 ' DD062304 GOSUB 25200 ' DD062304 GOSUB 23000 ' PE012301 RETURN ' PE012301 ' ' PE012301 ' **** RESTORE A MESSAGE BASE *** ' PE012301 ' ' PE012301 25100 GOSUB 25200 ' DD062304 GOSUB 23000 ' PE012301 RETURN ' PE012301 ' ' PE012301 ' ***** OPEN AND SETUP MESSAGE BASE ***** ' PE012301 ' ' PE012301 25200 CALL OpenMsg ' DD062304 IF ZErrCode = 64 THEN _ ' PE012301 ZErrCode = 0 : _ ' PE012301 GOTO 25300 ' DD062304 FIELD 1, 128 AS ZMsgRec$ ' PE012301 RETURN ' PE012301 ' ' PE012301 ' **** JOIN M)AIN *** ' PE012301 ' ' PE012301 25300 IF ZConfName$ <> "MAIN" THEN _ ' DD062304 CALL SkipLine (1) : _ ' DD031302 CALL QuickTPut1 (ZFG2$ + "Rejoining " + ZFGB$ + _ ' DD031302 OrigMsgName$ + ZEmphasizeOff$) ' DD082302 ZActiveUserName$ = ZOrigUserNameDgs$ 'Dgs-ALias ZFirstName$ = OrigFirstName$ 'Dgs-ALias CALL DeLink (ZConfName$) ' PE012301 ConfFileName$ = OrigMsgName$ ' PE012301 ZNewsFileName$ = OrigNewsFileName$ ' PE012301 ZTurboLogon = ZTrue ' PE012301 ZMarkedMsgs$ = "" ' PE012301 ZMarkedFiles$ = "" 'Pe 04/18/92 ' PE012301 ZWasQ = 0 ' PE012301 ZNewUser = ZFalse ' PE012301 ZInConfMenu = ZTrue ' PE012301 IF ZActiveUserName$ = "SYSOP" THEN _ ' PE012301 ZActiveUserName$ = ZSecretName$ : _ ' PE012301 CALL Trim (ZActiveUserName$) ' PE012301 ZConfigFileName$ = ZOrigCnfg$ ' PE012301 CALL ReadDef (ZConfigFileName$) ' PE012301 IF ZOrigMsgFile$ <> ZActiveMessageFile$ THEN _ ' PE012301 ZActiveMessageFile$ = ZOrigMsgFile$ : _ ' PE012301 GOSUB 25100 ' DD062304 IF ZOrigUserFile$ <> ZActiveUserFile$ THEN _ ' PE012301 GOSUB 25600 : _ ' DD062304 ZActiveUserFile$ = ZOrigUserFile$ : _ ' PE012301 ZActiveUserName$ = ZOrigUserName$ : _ ' PE012301 GOSUB 12598 : _ ' PE012301 GOSUB 12990 : _ ' PE012301 IF Found THEN _ ' PE012301 GOSUB 26200 : _ ' DD062304 ZMainUserFileIndex = ZUserFileIndex : _ ' PE012301 CALL SetPrompt : _ ' PE012301 CALL XferType (2,ZTrue) _ ' PE012301 ELSE ZUserFileIndex = 0 : _ ' PE012301 ZMainUserFileIndex = 0 ' PE012301 CALL UpdtCalr (ZActiveUserName$ +" Exited " + ZConfName$,3) 'Pe 11/07/91 ZConfName$ = "MAIN" ' PE012301 ConfNameSave$ = ZConfName$ ' PE012301 IF ZCurPUI$ = "" OR ZSubBoard THEN _ ' PE012301 ZCurPUI$ = ZMainPUI$ ' PE012301 CALL FindIt (ZCurPUI$) ' PE012301 ZCustomPUI = ZOK ' PE012301 IF NOT ZOK THEN _ ' PE012301 ZCurPUI$ = "" ' PE012301 ZPrevPUI$ = "" ' PE012301 ZUplds = ZGlobalUplds ' PE012301 ZDnlds = ZGlobalDnlds ' PE012301 ZDLToday! = ZGlobalDLToday! ' PE012301 ZBytesToday! = ZGlobalBytesToday! ' PE012301 ZDLBytes! = ZGlobalDLBytes! ' PE012301 ZULBytes! = ZGlobalULBytes! ' PE012301 ZBankTime = ZGlobalBankTime ' PE012301 ZConfMode = ZFalse ' DD062304 BoardCheckDate$ = ZLastDateTimeOn$ ' PE012301 ZSubBoard = ZTrue ' PE012301 GOSUB 12987 ' PE012301 IF ((ZUserSecLevel < ZAutoUpgradeSec) AND ZSubBoard) OR _ ' DD062304 ((ZUserSecLevel < OrigUpgradeSec) AND NOT ZSubBoard) THEN _ ' PE012301 IF ZUserSecLevel <> ZOrigSec THEN _ ' PE012301 ZUserSecLevel = ZOrigSec : _ ' PE012301 LSET ZSecLevel$ = MKI$(ZUserSecLevel) ' PE012301 RETURN ' PE012301 ' ' PE012301 ' ***** UPDATE CURRENT USERS RECORD **** ' PE012301 ' ' PE012301 25600 IF ZUserFileIndex < 1 THEN _ ' DD062304 RETURN ' PE012301 IF ZAdjustedSecurity AND NOT ZSysop THEN _ ' PE012301 LSET ZSecLevel$ = MKI$(ZUserSecLevel) : _ ' PE012301 ZUserSecSave = ZUserSecLevel ' PE012301 IF ZSubBoard THEN _ 'Dgs-ALias ZActiveUserName$ = ZOrigUserNameDgs$ : _ 'Dgs-ALias ZFirstName$ = OrigFirstName$ 'Dgs-ALias CALL UpdateU (ZFalse) ' PE012301 RETURN ' PE012301 ' ' PE012301 ' * WRITE A RECORD TO THE RBBS-PC "USER" FILE ' PE012301 ' ' PE012301 26000 IF ZUserFileIndex > 0 AND ZUserFileIndex < 32768 THEN _ ' DD062304 PUT 5,ZUserFileIndex ' PE012301 RETURN ' PE012301 ' ' PE012301 ' * DEFINE USER FILE RECORD VARIABLES TO COMPENSATE FOR THE BUG IN QUICKBASIC' PE012301 ' * THAT REQUIRES A FIELD STATMENT TO BE EXECUTED WITHIN EACH SEPARATELY' PE012301 ' * COMPILED PROGRAM -- EVEN THOUGH A FIELD STATEMENT WAS EXECUTED WHEN THE' PE012301 ' * FILE WAS OPENED IN ANOTHER SEPERATELY COMPILED SUBROUTINE ' PE012301 ' ' PE012301 26100 FIELD 5,31 AS ZUserName$, _ ' DD060304 15 AS ZPswd$, _ ' PE012301 2 AS ZSecLevel$, _ ' PE012301 14 AS ZUserOption$, _ ' PE012301 24 AS ZCityState$, _ ' PE012301 1 AS MachineType$, _ ' DD091401/DROP 1 AS ZDropTimes$, _ ' DD091401/DROP 1 AS ZBankTime$,_ ' PE012301 4 AS ZTodayDl$, _ ' PE012301 4 AS ZTodayBytes$, _ ' PE012301 4 AS ZDlBytes$, _ ' PE012301 4 AS ZULBytes$, _ ' PE012301 14 AS ZLastDateTimeOn$, _ ' PE012301 3 AS ZListNewDate$, _ ' PE012301 2 AS ZUserDnlds$, _ ' PE012301 2 AS ZUserUplds$, _ ' PE012301 2 AS ZElapsedTime$ ' PE012301 FIELD 5,128 AS ZUserRecord$ ' PE012301 RETURN ' PE012301 ' ' PE012301 ' * GET USER DEFAULTS ' PE012301 ' ' PE012301 26200 GOSUB 26100 ' DD060304 CALL SetSysOp ' PE012301 CALL SetUserPref ' PE012301 RETURN ' PE012301 END SUB ' PE012301 ' ' PE012301 42850 SUB ChangeEchoToggle ' DD070904 CALL ReportEcho ' DD011201 42851 ZOutTxt$ = "Change to R)BBS, C)aller's software" + _ ' DD011201 MID$(", I)ntermediate host",1,-20 * (ZHostEchoOn$ <> "")) + _' DD011201 ZPressEnterExpert$ ' DD011201 ZTurboKey = -ZTurboKeyUser ' DD011201 CALL PopCmdStack ' DD011201 IF ZSubParm < 0 THEN _ ' DD011201 EXIT SUB ' DD011201 IF ZWasQ = 0 THEN _ ' DD011201 EXIT SUB ' DD011201 42852 ZWasZ$ = LEFT$(ZUserIn$(ZAnsIndex),1) ' DD011201 CALL AllCaps (ZWasZ$) ' DD011201 IF INSTR("ICR",ZWasZ$) = 0 THEN _ ' DD011201 GOTO 42851 ' DD011201 ZEchoer$ = ZWasZ$ ' DD011201 CALL SetEcho (ZEchoer$) ' DD011201 CALL ReportEcho ' DD011201 END SUB ' DD011201 ' ' DD011201 43000 SUB SetGraphicsWanted STATIC ' DD011201 ' ' DD011201 ZPrevPUI$ = "" 'ANSIEd GOSUB 43005 ' DD011201 GOTO 43022 ' DD011201 43005 CALL AskGraphics ' DD011201 IF ZSubParm = -1 THEN _ ' DD011201 EXIT SUB ' DD011201 IF ZWasQ = 0 THEN _ ' DD011201 RETURN ' DD011201 43020 ZOutTxt$ = "Text Graphics: " + _ ' DD011201 MID$("None Mono Color AvatarRIP ",ZWasGR * 6 + 1,6) ' DD061301 ZSubParm = 5 ' DD011201 CALL TPut ' DD011201 RETURN ' DD011201 43022 ZPrevPUI$ = "" 'ANSIEd IF ZEmphasizeOnDef$ = "" THEN _ ' DD011201 RETURN ' DD011201 IF ZNewUser THEN _ ' DD011201 ZEmphasizeOn$ = ZEmphasizeOnDef$ : _ ' DD083003 ZEmphasizeOff$ = ZEmphasizeOffDef$ ' DD083003 IF ZWasGR < 2 THEN ' DD051901 ZOutTxt$ = "Do you want colorized prompts" ' DD051901 IF ZWasGR > 1 THEN ' DD051901 ZOutTxt$ = ZOutTxt$ + ZYesPrompt$ ' DD051901 ELSE ' DD051901 ZOutTxt$ = ZOutTxt$ + ZNoPrompt$ ' DD051901 END IF ' DD051901 ZSubParm = 1 ' DD051901 CALL TGet ' DD051901 ZHiLiteOff = ZYes ' DD051901 ELSE ' DD051901 ZHiLiteOff = ZTrue ' DD051901 END IF ' DD051901 CALL Toggle(5) ' DD011201 CALL SetGraphic (ZWasGR) ' DD062304 IF NOT ZNewUser THEN ' DD062304 CALL DefaultU ' DD062304 END IF ' DD062304 END SUB ' DD011201 ' ' DD070105 ' * make all users reselect graphics if set in CONFIG ' DD070105 ' ' DD070105 45500 SUB ReselectGraphics ' DD070105 UserMode = ZExpertUser ' DD070105 ZExpertUser = ZFalse ' DD070105 CALL SetGraphicsDefaults ' DD070105 CALL QuickTPut (ZCRLf$ + ZFG2$ + _ ' DD070105 "You must re-select your " + _ ' DD070105 ZFGB$ + "GRAPHICS " + ZFG2$ + _ ' DD070105 "preferences!" + ZEmphasizeOff$,2) ' DD070105 CALL SetGraphicsWanted ' DD070105 ZExpertUser = UserMode ' DD070105 IF ZSubParm < 0 THEN ' DD070105 EXIT SUB ' DD070105 END IF ' DD070105 IF ZWasQ = 0 THEN ' DD070105 CALL SetGraphic (ZWasGR) ' DD070105 END IF ' DD070105 ZReselectGraphics = ZFalse ' DD070105 CALL DefaultU ' DD070105 END SUB ' DD070105 ' ' DD070105 45510 SUB SetGraphicsDefaults ' DD070105 IF ZCanANSIChat THEN ' DD070105 ZWasGR = 2 ' DD070105 ZUserTextColor = 37 ' DD070105 ZBoldText$ = "1" ' DD070105 ZHiLiteOff = ZFalse ' DD070105 ELSE ' DD070105 ZWasGR = 0 ' DD070105 ZUserTextColor = 37 ' DD070105 ZBoldText$ = "0" ' DD070105 ZHiLiteOff = ZTrue ' DD070105 END IF ' DD070105 IF ZRIPGraphics THEN ' DD070105 ZWasGR = 4 ' DD070105 END IF ' DD070105 END SUB ' DD070105 ' ' DD070105 45600 SUB ReselectAll ' DD070103 CALL QuickTPut (ZCRLf$ + ZFG2$ + "You must re-select " + _ ' DD070103 ZFGB$ + "ALL " + ZFG2$ + "preferences!" + _ ' DD070103 ZEmphasizeOff$,2) ' DD070103 CALL SetToggles ' DD070103 GOSUB 45610 ' DD070103 CALL SetGraphicsDefaults ' DD070103 GOSUB 45610 ' DD070103 CALL SetGraphicsWanted ' DD070103 GOSUB 45610 ' DD070103 CALL SetGraphic (ZWasGR) ' DD070103 GOSUB 45610 ' DD070103 ZOutTxt$ = ZFGE$ + "Default " ' DD070103 CALL XferType (3,ZExpertUser) ' DD070103 GOSUB 45610 ' DD070103 ZUserXferDefault$ = ZWasFT$ ' DD070103 CALL NewUserToggles ' DD070103 GOSUB 45610 ' DD070103 ZReselectAll = ZFalse ' DD070103 ZReselectGraphics = ZFalse ' DD071102 ZReselectProto = ZFalse ' DD071102 GOSUB 45610 ' DD071102 CALL DefaultU ' DD070103 EXIT SUB ' DD070103 45610 IF ZSubParm < 0 THEN ' DD070103 EXIT SUB ' DD070103 ELSE ' DD070103 RETURN ' DD070103 END IF ' DD070103 END SUB ' DD070103 ' ' DD091501/PSWD 59934 SUB SetANSIColors ' DD070203 ' ' DD070203 ZDR1$ = ZDR1Def$ : _ 'filename ' DD070203 ZDR2$ = ZDR2Def$ : _ 'filesize ' DD070203 ZDR3$ = ZDR3Def$ : _ 'filedate ' DD070203 ZDR4$ = ZDR4Def$ : _ 'main description ' DD070203 ZDR5$ = ZDR5Def$ : _ 'extended desc. ' DD070203 ZDR6$ = ZDR6Def$ : _ 'reserved for DL Time ' DD070203 ZDR7$ = ZDR7Def$ : _ 'reserved for X DL ' DD070203 ZFG1$ = ZEscape$ + "[0;34m" : _ 'Blue ' DD070203 ZFG2$ = ZEscape$ + "[0;32m" : _ 'Green ' DD070203 ZFG3$ = ZEscape$ + "[0;36m" : _ 'Cyan ' DD070203 ZFG4$ = ZEscape$ + "[0;31m" : _ 'Red ' DD070203 ZFG5$ = ZEscape$ + "[0;35m" : _ 'Magenta ' DD061303/COLR ZFG6$ = ZEscape$ + "[0;33m" : _ 'Brown ' DD061303/COLR ZFG7$ = ZEscape$ + "[0;37m" : _ 'White ' DD061303/COLR ZFG8$ = ZEscape$ + "[1;30m" : _ 'Grey ' DD061303/COLR ZFG9$ = ZEscape$ + "[1;34m" : _ 'Brt Blue ' DD061303/COLR ZFGA$ = ZEscape$ + "[1;32m" : _ 'Brt Green ' DD061303/COLR ZFGB$ = ZEscape$ + "[1;36m" : _ 'Brt Cyan ' DD061303/COLR ZFGC$ = ZEscape$ + "[1;31m" : _ 'Brt Red ' DD061303/COLR ZFGD$ = ZEscape$ + "[1;35m" : _ 'Brt Magenta ' DD061303/COLR ZFGE$ = ZEscape$ + "[1;33m" : _ 'Yellow ' DD061303/COLR ZFGF$ = ZEscape$ + "[1;37m" : _ 'Brt White ' DD061303/COLR ZBG0$ = ZEscape$ + "[40m" : _ 'Blk BackGround ' DD081801/BGCOLOR ZBG1$ = ZEscape$ + "[44m" : _ 'Blue BackGround ' DD081801/BGCOLOR ZBG2$ = ZEscape$ + "[42m" : _ 'Grn BackGround ' DD081801/BGCOLOR ZBG3$ = ZEscape$ + "[46m" : _ 'Cyan BackGround ' DD081801/BGCOLOR ZBG4$ = ZEscape$ + "[41m" : _ 'Red BackGround ' DD081801/BGCOLOR ZBG5$ = ZEscape$ + "[45m" : _ 'Mag BackGround ' DD081801/BGCOLOR ZBG6$ = ZEscape$ + "[43m" : _ 'Brn BackGround ' DD081801/BGCOLOR ZBG7$ = ZEscape$ + "[47m" 'Wht BackGround ' DD081801/BGCOLOR END SUB ' DD070203 ' ' DD070203 60000 SUB ExpiredPswd STATIC ' DD091501/PSWD ' ' DD091501/PSWD IF ZPswdChngReqTime = 0 THEN _ ' DD091501/PSWD EXIT SUB ' DD091501/PSWD IF ZTimesLoggedOn MOD ZPswdChngReqTime <> 0 THEN _ ' DD091501/PSWD EXIT SUB ' DD091501/PSWD 60010 CALL SkipLine (1) ' DD091501/PSWD ZFileName$ = ZHelpPath$ + "PASSWORD" + ZHelpExtension$ ' DD041002 CALL BufFile (ZFileName$,WasX) ' DD041002 CALL QuickTPut1 ("Password has expired!") ' DD091501/PSWD Prompt$ = "Enter a new Password" ' DD091501/PSWD CALL NewPassword (Prompt$,ZTrue) ' DD091501/PSWD CALL AllCaps (ZOldPassword$) ' DD091501/PSWD IF ZWasZ$ = ZOldPassword$ THEN _ ' DD091501/PSWD CALL SkipLine (1) : _ ' DD091501/PSWD CALL QuickTPut ("You cannot reuse your old Password!",2) : _ ' DD091501/PSWD GOTO 60010 ' DD091501/PSWD ZOutTxt$ = "Re-enter your New Password" ' DD091501/PSWD ZHidden = ZTrue ' DD091501/PSWD ZSubParm = 1 ' DD091501/PSWD CALL TGet ' DD091501/PSWD CALL AllCaps (ZUserIn$) ' DD091501/PSWD IF ZWasZ$ <> ZUserIn$ THEN _ ' DD091501/PSWD ZOutTxt$ = "Passwords do not match" : _ ' DD091501/PSWD ZSubParm = 1 : _ ' DD091501/PSWD CALL TPut : _ ' DD091501/PSWD GOTO 60010 ' DD091501/PSWD CALL UpdtCalr ("Expired Password! " + Time$,2) ' DD091501/PSWD ZSubParm = 6 ' DD091501/PSWD CALL FileLock ' DD091501/PSWD CALL OpenUser (HighestUserRecord) ' DD091501/PSWD GET 5,ZUserFileIndex ' DD091501/PSWD CALL AllCaps (ZUserIn$) ' DD091501/PSWD LSET ZPswd$ = ZUserIn$ ' DD091501/PSWD IF ZUserFileIndex > 0 AND ZUserFileIndex < 32768 THEN _ ' DD091501/PSWD PUT 5,ZUserFileIndex ' DD091501/PSWD ZSubParm = 8 ' DD091501/PSWD CALL FileLock ' DD091501/PSWD ZOutTxt$ = "Password Changed." ' DD091501/PSWD ZStopInterrupts = ZTrue ' DD091501/PSWD ZSubParm = 1 ' DD091501/PSWD CALL TPut ' DD091501/PSWD CALL SkipLine (1) ' DD091501/PSWD CALL UpdtCalr ("New Password " + ZUserIn$(1),2) ' DD091501/PSWD CALL SmartPause ' DD091501/PSWD END SUB ' DD091501/PSWD ' ' DD070402 ' * ANSIMusic ' DD070402 ' ' DD070402 63630 SUB SetANSIMusic ' DD070402 IF ZANSIMusic AND NOT ZLocalUser THEN ' DD070402 ZBellRinger$ = "MBO3T200MBMLA64L32C64D64E64" + CHR$(14) ' DD070402 ELSE ' DD070402 ZBellRinger$ = CHR$(7) ' DD070402 END IF ' DD070402 END SUB ' DD070402 ' ' DD012602 SUB DropCarrier STATIC ' DD091401/DROP ' ' DD091401/DROP 70000 IF ZDropCarSecChng = 0 THEN _ ' DD091401/DROP EXIT SUB ' DD091401/DROP IF ZDropTimes > ZDropCarSecChng THEN _ ' DD091401/DROP ZDropTimes = ZDropCarSecChng - 1 ' DD091401/DROP IF ZDropChange = ZFalse THEN ' DD091401/DROP ZDropTimes = ZDropTimes + 1 ' DD091401/DROP CALL UpdtCalr ("Dropped Carriers set to " + _ ' DD030802 STR$(ZDropTimes),1) ' DD030802 IF ZDropTimes MOD ZDropCarSecChng <> 0 THEN ' DD091401/DROP ZGlobalDropTimes = ZDropTimes ' DD091401/DROP ZDropChange = ZTrue ' DD091401/DROP EXIT SUB ' DD091401/DROP END IF ' DD091401/DROP ZUserSecLevel = ZUserSecLevel - ZDropIncrement ' DD091401/DROP ZSubParm = 6 ' DD091401/DROP CALL FileLock ' DD091401/DROP CALL OpenUser (HighestUserRecord) ' DD091401/DROP GET 5,ZUserFileIndex ' DD091401/DROP LSET ZSecLevel$ = MKI$(ZUserSecLevel) ' DD091401/DROP IF ZUserFileIndex > 0 AND ZUserFileIndex < 32768 THEN _ ' DD091401/DROP PUT 5,ZUserFileIndex ' DD091401/DROP ZSubParm = 8 ' DD091401/DROP CALL FileLock ' DD091401/DROP ZDropChange = ZTrue ' DD091401/DROP CALL UpdtCalr ("Security reset for Dropped Carriers!",2) ' DD091401/DROP ZDropTimes = 0 ' DD091401/DROP ZGlobalDropTimes = ZDropTimes ' DD091401/DROP ZSubParm = -1 ' DD091401/DROP END IF ' DD091401/DROP END SUB ' DD091401/DROP ' ' DD090202 ' $SUBTITLE: 'ANSISysop5 --- ANSI driven sysop's key 5' ' DD090202 ' ' DD090202 ' $PAGE ' DD090202 ' ' DD090202 80000 SUB ANSISysop5 (ToPrint) STATIC ' DD090202 ' ' DD090202 ZOk = ZFalse ' DD090202 WasX$ = MID$(ZUserRecord$,ZStartHash,ZLenHash) ' DD090202 IF ASC(WasX$) = 0 OR LEFT$(WasX$,3) = SPACE$(3) THEN _ ' DD021301 EXIT SUB ' DD090202 WasOF = CVI(ZSecLevel$) ' DD090202 IF WasOF > ZUserSecLevel THEN _ ' DD090202 IF NOT ZGlobalSysop THEN _ ' DD090202 EXIT SUB ' DD090202 SysMenu$ = ZWelcomeFileDrvPath$ + "SYSOP5.MNU" ' DD062202 CALL Graphic (SysMenu$) ' DD062202 ZLinesPrinted = 0 ' DD122901 ZNonStop = ZTrue ' DD063002 CALL BufFile (SysMenu$,WasX) ' DD062202 ZStopInterrupts = ZTrue ' DD122901 TempUserOptions = CVI(MID$(ZUserOption$,9,2)) ' DD091103 TempExtendedUserOptions = ASC(MID$(ZUserOption$,8,1)) ' DD063002 ZOutTxt$ = ZFGF$ + ZBG2$ ' DD070104 IF WasOF < ZMinLogonSec THEN _ ' DD090202 ZOutTxt$ = ZFGE$ + ZBG4$ _ ' DD070104 ELSE IF WasOF >= ZSysopSecLevel THEN _ ' DD090202 ZOutTxt$ = ZFGF$ + ZBG1$ ' DD070104 Temp$ = LEFT$(ZUserName$,24) ' DD070103 CALL Trim (Temp$) ' DD070103 CALL ANSIPut (2,20) ' DD090202 CALL QuickTPut (ZOutTxt$ + Temp$ + ZFGB$ + ZBG7$,0) 'name ' DD070909 Temp$ = RIGHT$(SPACE$(5) + STR$(LOC(5)),4) ' DD021301 CALL Trim (Temp$) ' DD090202 CALL ANSIPut (2,71) ' DD090202 CALL QuickTPut (Temp$,0) ' Record #' DD090202 CALL ANSIPut (3,20) ' DD090202 CALL QuickTPut (ZCityState$,0) ' City/State' DD090202 Temp$ = RIGHT$(SPACE$(6) + STR$(WasOF),6) ' DD021301 CALL Trim (Temp$) ' DD090202 CALL ANSIPut (4,20) ' DD090202 CALL QuickTPut (Temp$,0) ' Security Level' DD090202 Temp$ = FNYesNo$(-((TempExtendedUserOptions AND 1) > 0)) ' DD070102 CALL ANSIPut (4,71) ' DD070102 CALL QuickTPut (Temp$,0) 'ZReadNewMail ' DD070102 CALL ANSIPut (5,20) ' DD090202 CALL QuickTPut (ZPswd$,0) ' Password' DD090202 Temp$ = STR$(CVI(MID$(ZUserOption$,3,2))) ' DD090902 CALL Trim (Temp$) ' DD091103 CALL ANSIPut (5,71) ' DD063002 CALL QuickTPut (Temp$,0) ' Highest Msg # ' DD090202 IF ZRestrictByDate THEN _ ' DD090202 CALL SetRegDisplay : _ ' DD090202 CALL ANSIPut (6,20) : _ ' DD090202 CALL QuickTPut (ZRegDisplayDate$,0) ' Subscription date' DD090202 Temp$ = FNYesNo$(-((TempUserOptions AND 512) > 0)) ' DD091103 CALL ANSIPut (6,71) ' DD063002 CALL QuickTPut (Temp$,0) ' Mail Waiting ' DD090202 CALL UnPackDIRDate (ZListNewDate$, Temp$, CHR$(45)) ' DD062606 CALL ANSIPut (7,20) ' DD063002 CALL QuickTPut (Temp$,0) ' Last DIR Date ' DD090202 Temp$ = MID$(ZUserOption$,5,1) ' DD090902 IF Temp$ = SPACE$(1) THEN Temp$ = CHR$(78) ' DD021301 CALL ANSIPut (7,71) ' DD063002 CALL QuickTPut (Temp$,0) 'ZUserXferDefault$ - Protocol ' DD090202 CALL ANSIPut (8,20) ' DD090202 CALL QuickTPut (ZLastDateTimeOn$,0) ' Last date on' DD090202 Temp$ = FNYesNo$(-((TempUserOptions AND 64) > 0)) ' DD062202 CALL ANSIPut (8,71) ' DD063002 CALL QuickTPut (Temp$,0) ' Skip New Files ' DD062202 Temp$ = RIGHT$(SPACE$(5) + STR$(CVI(MID$(ZUserOption$,1,2))),5)' DD021301 CALL Trim (Temp$) ' DD090202 CALL ANSIPut (9,20) ' DD090202 CALL QuickTPut (Temp$,0) ' Times on' DD090202 Temp$ = FNYesNo$(-((TempUserOptions AND 4096) > 0)) ' DD090902 CALL ANSIPut (9,71) ' DD063002 CALL QuickTPut (Temp$,0) 'ZFileWaiting - Per. Upld ' DD090202 Temp$ = STR$(CVI(ZElapsedTime$)) ' DD090202 CALL Trim (Temp$) ' DD090202 CALL ANSIPut (10,20) ' DD090202 CALL QuickTPut (Temp$,0) ' Time used' DD090202 Temp$ = FNYesNo$(-((TempUserOptions AND 32) > 0)) ' DD062202 CALL ANSIPut (10,71) ' DD063002 CALL QuickTPut (Temp$,0) ' Check New Bulls ' DD062202 Temp$ = RIGHT$(SPACE$(5) + STR$(ASC(ZBankTime$)),5) ' DD021301 CALL Trim (Temp$) ' DD090202 CALL ANSIPut (11,20) ' DD090202 CALL QuickTPut (Temp$,0) ' Banked Time' DD090202 Temp$ = FNYesNo$(-((TempUserOptions AND 2) > 0)) ' DD090902 CALL ANSIPut (11,71) ' DD063002 CALL QuickTPut (Temp$,0) 'ZExpertUser - Expert ' DD090202 Temp$ = RIGHT$(SPACE$(5) + STR$(CVI(ZUserDnlds$)),5) ' DD021301 CALL Trim (Temp$) ' DD090202 CALL ANSIPut (12,20) ' DD090202 CALL QuickTPut (Temp$,0) ' Total Files DL' DD090202 Temp$ = FNYesNo$(-((TempUserOptions AND 1) > 0)) ' DD090902 CALL ANSIPut (12,71) ' DD063002 CALL QuickTPut (Temp$,0) 'ZPromptBell - Prompt Bell ' DD090202 Temp$ = RIGHT$(SPACE$(5) + STR$(CVI(ZUserUplds$)),5) ' DD021301 CALL Trim (Temp$) ' DD090202 CALL ANSIPut (13,20) ' DD090202 CALL QuickTPut (Temp$,0) ' Total Files UL' DD090202 Temp$ = FNYesNo$(-((TempUserOptions AND 4) > 0)) ' DD090902 CALL ANSIPut (13,71) ' DD063002 CALL QuickTPut (Temp$,0) 'ZNulls - Nulls ' DD090202 Temp$ = STR$(CVS(ZDlBytes$)) ' DD090202 CALL Trim (Temp$) ' DD090202 CALL ANSIPut (14,20) ' DD090202 CALL QuickTPut (Temp$,0) ' Total Bytes DL' DD090202 Temp$ = FNYesNo$(-((TempUserOptions AND 8) > 0)) ' DD090902 CALL ANSIPut (14,71) ' DD063002 CALL QuickTPut (Temp$,0) 'ZUpperCase - Upper Case ' DD090202 Temp$ = STR$(CVS(ZULBytes$)) ' DD090202 CALL Trim (Temp$) ' DD090202 CALL ANSIPut (15,20) ' DD090202 CALL QuickTPut (Temp$,0) ' Total Bytes UL' DD090202 Temp$ = FNYesNo$(-((TempUserOptions AND 16) > 0)) ' DD090902 CALL ANSIPut (15,71) ' DD063002 CALL QuickTPut (Temp$,0) 'ZLineFeeds Line Feeds ' DD090202 Temp$ = STR$(CVS(ZTodayDl$)) ' DD090202 CALL Trim (Temp$) ' DD090202 CALL ANSIPut (16,20) ' DD090202 CALL QuickTPut (Temp$,0) ' Todays DL Files' DD090202 Temp$ = FNYesNo$(-((TempUserOptions AND 2048) > 0)) ' DD090902 CALL ANSIPut (16,71) ' DD063002 CALL QuickTPut (Temp$,0) 'ZTurboKeyUser - TurboKey ' DD090202 Temp$ = STR$(CVS(ZTodayBytes$)) ' DD090202 CALL Trim (Temp$) ' DD090202 CALL ANSIPut (17,20) ' DD090202 CALL QuickTPut (Temp$,0) ' Todays DL Bytes' DD090202 Temp$ = FNYesNo$(-((TempExtendedUserOptions AND 16) > 0)) ' DD070402 CALL AnsiPut (17,71) ' DD070402 CALL QuickTPut (Temp$,0) 'ZANSIMusic ' DD070402 Temp$ = FNYesNo$(-((TempUserOptions AND 256) > 0)) ' DD090902 CALL ANSIPut (18,20) ' DD063002 CALL QuickTPut (Temp$,0) 'ZReqQuesAnswered - Ans. Questionaire' DD090202 WasX = ASC(MID$(ZUserOption$,6,1)) ' DD050501 TempZBoldText$ = FNYesNo$(VAL(CHR$(48 - (WasX > 64)))) ' DD061301 Temp$ = STR$(WasX) ' DD050501 CALL Trim (Temp$) ' DD091103 CALL ANSIPut (18,45) ' DD063002 CALL QuickTPut (Temp$,0) 'color number ' DD050501 Temp$ = FNYesNo$(-(((NOT TempExtendedUserOptions) AND 4) > 0)) ' DD070104 CALL ANSIPut (18,71) ' DD070104 CALL QuickTPut (Temp$,0) 'ZMorePromptLF ' DD070104 Temp$ = FNYesNo$(-((TempExtendedUserOptions AND 2) > 0)) ' DD070103 CALL ANSIPut (19,20) ' DD070103 CALL QuickTPut (Temp$,0) 'ZReselectAll ' DD070103 Temp$ = FNYesNo$(-((TempUserOptions AND 1024) > 0)) ' DD062202 CALL ANSIPut (19,45) ' DD063002 CALL QuickTPut (Temp$,0) 'Highlighting ' DD062202 CALL ANSIPut (19,71) ' DD070904 CALL QuickTPut (MID$(ZUserOption$,14),0) 'Echo Preference ' DD070905 Temp$ = FNYesNo$(-((TempExtendedUserOptions AND 8) > 0)) ' DD070105 CALL AnsiPut (20,20) ' DD070105 CALL QuickTPut (Temp$,0) 'ZReselectGraphics ' DD070105 Temp$ = FNYesNo$(-((TempUserOptions AND 128) > 0)) ' DD090902 CALL ANSIPut (20,45) ' DD090202 CALL QuickTPut (Temp$,0) 'FullScreenEditor - ANSIEd ' DD090202 Temp$ = FNYesNo$(-((TempExtendedUserOptions AND 32) > 0)) ' DD070601 CALL AnsiPut (20,71) ' DD070601 CALL QuickTPut (Temp$,0) 'ZNeverCanPage ' DD070601 Temp$ = FNYesNo$(-((TempExtendedUserOptions AND 64) > 0)) ' DD070905 CALL ANSIPut (21,20) ' DD070905 CALL QuickTPut (temp$,0) 'ZReselectProto ' DD070905 Temp$ = STR$(ASC(MID$(ZUserOption$,13,1))) ' DD090902 CALL Trim (Temp$) ' DD091103 CALL ANSIPut (21,45) ' DD063002 CALL QuickTPut (Temp$,0) ' Page Length ' DD090202 Temp$ = FNYesNo$(-((TempUserOptions AND 16384) > 0)) ' DD071902 CALL ANSIPut (21,71) ' DD071902 CALL QuickTPut (Temp$,0) ' Extended Off ' DD071902 Temp$ = STR$(ASC(ZDropTimes$)) ' DD091402 CALL Trim (Temp$) ' DD091402 CALL ANSIPut(22,20) ' DD091402 CALL QuickTPut (Temp$,0) ' Carrier Drops ' DD091402 Temp$ = STR$(ASC(MID$(ZUserOption$,7,1))) ' DD063002 CALL Trim (Temp$) ' DD091103 CALL ANSIPut (22,45) ' DD063002 CALL QuickTPut (Temp$,0) ' Right Margin ' DD090202 Temp$ = FNYesNo$(-((TempExtendedUserOptions AND 128) > 0)) ' DD070906 CALL ANSIPut (22,71) ' DD070906 CALL QuickTPut (Temp$,0) 'Twit ' DD070906 CALL ANSIPut (24,1) ' DD090202 CALL QuickTPut (ZEmphasizeOff$,0) ' DD090202 ZOk = ZTrue ' DD090202 END SUB ' DD090202 ' ' DD090202 80100 SUB ANSIPut (ANSIRow,ANSICol) ' DD090202 ' ' DD090202 CALL QuickTPut (CHR$(27) + CHR$(91) + MID$(STR$(ANSIRow),2) + CHR$(59) + _ ' DD021301 MID$(STR$(ANSICol),2) + CHR$(72),0) ' DD021301 END SUB ' DD090202 ' ' DD090202 80200 SUB UploadMessage ' DD090202 ' ' DD090202 IF ZSysop THEN _ ' DD090201 EXIT SUB ' DD090201 CALL BreakFileName (ZMainMsgFile$,Drive$,FileName$,ZWasY$,ZFalse)' DD122701 IF RIGHT$(FileName$,1) = CHR$(77) THEN _ ' DD021301 FileName$ = LEFT$(FileName$,LEN(FileName$)-1) ' DD122701 ZFileName$ = ZHelpPath$ + FileName$ + "U" + ZHelpExtension$ ' DD041003 CALL Findit(ZFileName$) ' DD122701 IF ZOK THEN _ ' DD122701 GOTO 80220 ' DD122701 ZFileName$ = ZHelpPath$ + "UPMSG" + ZHelpExtension$ ' DD062304 80220 CALL Graphic (ZFileName$) ' BH072201 ZNonStop = ZTrue ' BH071901 CALL BufFile (ZFileName$, ZWasX) ' BH071901 END SUB ' DD090202 ' ' DD062301 ' * Reset Graphics if RIP active ' DD062301 ' ' DD062301 80300 SUB ResetGraphics STATIC ' DD062301 IF ZWasGR = 4 THEN ' DD062301 CALL PutCom (ZRIPGraphicsReset$) ' DD071001 END IF ' DD062301 END SUB ' DD062301 ' ' DD071703 ' * New Mail Waiting ' DD071703 ' ' DD071703 80400 SUB MailWait ' DD071703 IF ZMailWaiting THEN ' DD070802 ZFileName$ = ZHelpPath$ + "MAIL" + ZHelpExtension$ ' DD071703 CALL Graphic (ZFileName$) ' DD071703 CALL BufFile (ZFileName$, WasX) ' DD071703 IF NOT ZOK THEN ' DD071703 CALL QuickTPut (ZCRLf$ + ZFGF$ + ZBG1$ + _ ' DD070802 "You have new Mail!" + _ ' DD070802 ZEmphasizeOff$,2+ZTurboLogon) ' DD070802 END IF ' DD071703 END IF ' DD070802 END SUB ' DD070802