Beijing Paradise BBS Backup

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

/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / MT_MTX12.ZIP / MATRIX.PPE (.txt) < prev next >

Wrap

PCBoard Programming Language Executable | 1993-08-19 | 44.4 KB | 2,218 lines

;------------------------------------------------------------------------------ ; .ss. ; `²²' ; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs. ; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,. ; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b. ; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$ ; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²' ; .sS²°$$$²²°"' d²°' ; .$$² .$$' ; $$$.,d$$' ; `²S$$S²' ;------------------------------------------------------------------------------ ; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96 ;------------------------------------------------------------------------------ ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON ;------------------------------------------------------------------------------ Boolean BOOLEAN001 Boolean BOOLEAN002 Date DATE001 Integer INTEGER001 Integer INTEGER002 Integer INTEGER003 Integer INTEGER004 Integer INTEGER005 Integer INTEGER006 Integer INTEGER007 Integer INTEGER008 Integer INTEGER009 Integer INTEGER010 Integer INTEGER011 Integer INTEGER012 Integer INTEGER013 Integer INTEGER014 Integer INTEGER015 Integer INTEGER016 String STRING001 String STRING002 String STRING003 String STRING004 String STRING005 String STRING006 String STRING007 String STRING008 String STRING009 String STRING010 String STRING011 String STRING012 String STRING013 String TSTRING014(100) String STRING015 String STRING016 String STRING017 String STRING018 String STRING019 String STRING020 String STRING021 String STRING022 String STRING023 String STRING024 String STRING025 String STRING026 String STRING027 String STRING028 String STRING029 String STRING030 String STRING031 String STRING032 String STRING033 String STRING034 String STRING035 String STRING036 String STRING037 String STRING038 String STRING039 String STRING040 String STRING041 String STRING042 String STRING043 String STRING044 String STRING045 String STRING046 String STRING047 String STRING048 String STRING049 String STRING050 String STRING051 String STRING052 String STRING053 String STRING054 String STRING055 String STRING056 String STRING057 String STRING058 String STRING059 String STRING060 String STRING061 String STRING062 String STRING063 String STRING064 String STRING065 String STRING066 String STRING067 String STRING068 String STRING069 String STRING070 String STRING071 String STRING072 String STRING073 String STRING074 String STRING075 String STRING076 String STRING077 String STRING078 String STRING079 String STRING080 String STRING081 String STRING082 String STRING083 String STRING084 String STRING085 String STRING086 String STRING087 String STRING088 String STRING089 String STRING090 String STRING091 String STRING092 String STRING093 String STRING094 String STRING095 String STRING096 String STRING097 String STRING098 String STRING099 String STRING100 String STRING101 String STRING102 String STRING103 String STRING104 String STRING105 String STRING106 String STRING107 String STRING108 String STRING109 String STRING110 String STRING111 String STRING112 String STRING113 String STRING114 String STRING115 String STRING116 String STRING117 String STRING118 String STRING119 String STRING120 String STRING121 String STRING122 String STRING123 String STRING124 String STRING125 String STRING126 String STRING127 String STRING128 String STRING129 String STRING130 String STRING131 String STRING132 String STRING133 String STRING134 String STRING135 String STRING136 String STRING137 String STRING138 String STRING139 String STRING140 String STRING141 String STRING142 String STRING143 String STRING144 String STRING145 String STRING146 String STRING147 String STRING148 String STRING149 String STRING150 String STRING151 String STRING152 String STRING153 String STRING154 String STRING155 String STRING156 String STRING157 String STRING158 String STRING159 String STRING160 String STRING161 String STRING162 String STRING163 String STRING164 String STRING165 String STRING166 String STRING167 String STRING168 String STRING169 String STRING170 String STRING171 String STRING172 String STRING173 String STRING174 String STRING175 String STRING176 String STRING177 String STRING178 String STRING179 String STRING180 String STRING181 String STRING182 String STRING183 String STRING184 String STRING185 String STRING186 String STRING187 String STRING188 String STRING189 String STRING190 String STRING191 String STRING192 String STRING193 String STRING194 String STRING195 String STRING196 String STRING197 String STRING198 String STRING199 String STRING200 String STRING201 String STRING202 String STRING203 String STRING204 String STRING205 String STRING206 String STRING207 String STRING208 String STRING209 String STRING210 String STRING211 String STRING212 String STRING213 String STRING214 String STRING215 String STRING216 String STRING217 String STRING218 Time TIME001 Time TIME002 Time TIME003 Time TIME004 ;------------------------------------------------------------------------------ STRING020 = "" STRING004 = String(U_Name()) If (STRING004 == "") Then STRING004 = "NOT AVAILABLE" Endif If (OnLocal()) Then FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, "************************************************************************" FPutLn 1, Date(), " (", Time(), ") Matrix Connect (LOCAL) (", PcbNode(), ") (", GrafMode(), ") Name: (", STRING004, ")" FClose 1 Else FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, "************************************************************************" FPutLn 1, Date(), " (", Time(), ") Matrix Connect (", Carrier(), ") (", PcbNode(), ") (", GrafMode(), ") Name: (", STRING004, ")" FClose 1 Endif If (Exist(PPEPath() + "MATRIX.CNF") == 0) Then PrintLn PrintLn "Error! File MATRIX.CNF not found!" PrintLn "This File includes all Matrix Paramaters and is required" PrintLn "for MT-Matrix (Pre-Login-Shell for PCBoard) to work!" PrintLn "Please notify SysOp..." FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " ERROR! MATRIX.CNF File Not Found... Matrix Aborted!" FClose 1 PrintLn Wait End Endif FOpen 1, PPEPath() + "MATRIX.CNF", 0, 0 FGet 1, STRING022 FGet 1, STRING023 FGet 1, STRING024 FGet 1, STRING025 FGet 1, STRING026 FGet 1, STRING027 FGet 1, STRING028 FGet 1, STRING029 FGet 1, STRING030 FGet 1, STRING031 FGet 1, STRING032 FGet 1, STRING033 FGet 1, STRING034 FGet 1, STRING035 FGet 1, STRING036 FGet 1, STRING037 FGet 1, STRING038 FGet 1, STRING039 FGet 1, STRING040 FGet 1, STRING041 FGet 1, STRING042 FGet 1, STRING043 FGet 1, STRING044 FGet 1, STRING045 FClose 1 If (Exist(PPEPath() + "COMMANDS.CNF") == 0) Then PrintLn PrintLn "Error! File COMMANDS.CNF not found!" PrintLn "This file contains all the Matrix Commands <as chosen by the" PrintLn "sysop> and is needed for MT-Matrix to work properly!" PrintLn "Please notify SysOp..." FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " ERROR! COMMANDS.CNF file NOT FOUND... Matrix Aborted!" FClose 1 PrintLn Wait End Endif FOpen 2, PPEPath() + "COMMANDS.CNF", 0, 0 FGet 2, STRING047 FGet 2, STRING048 FGet 2, STRING049 FGet 2, STRING050 FGet 2, STRING051 FGet 2, STRING052 FGet 2, STRING053 FGet 2, STRING054 FGet 2, STRING055 FGet 2, STRING056 FGet 2, STRING057 FGet 2, STRING058 FGet 2, STRING059 FGet 2, STRING060 FGet 2, STRING061 FGet 2, STRING062 FGet 2, STRING063 FGet 2, STRING064 FGet 2, STRING065 FGet 2, STRING066 FGet 2, STRING067 FGet 2, STRING068 FGet 2, STRING069 FClose 2 If (Exist(PPEPath() + "PROMPTS.CNF") == 0) Then PrintLn PrintLn "Error! File PROMPTS.CNF not found!" PrintLn "This file contains all the Matrix Prompts <as chosen by the" PrintLn "sysop> and is needed for MT-Matrix to work properly!" PrintLn "Please notify SysOp..." FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " ERROR! PROMPTS.CNF File NOT FOUND... Matrix Aborted!" FClose 1 PrintLn Wait End Endif FOpen 3, PPEPath() + "PROMPTS.CNF", 0, 0 FGet 3, STRING070 FGet 3, STRING071 FGet 3, STRING072 FGet 3, STRING073 FGet 3, STRING074 FGet 3, STRING075 FGet 3, STRING076 FGet 3, STRING077 FGet 3, STRING078 FGet 3, STRING079 FGet 3, STRING080 FGet 3, STRING081 FGet 3, STRING082 FGet 3, STRING083 FGet 3, STRING084 FGet 3, STRING085 FGet 3, STRING086 FGet 3, STRING087 FGet 3, STRING088 FGet 3, STRING089 FGet 3, STRING090 FGet 3, STRING091 FGet 3, STRING092 FGet 3, STRING093 FGet 3, STRING094 FGet 3, STRING095 FGet 3, STRING096 FGet 3, STRING097 FGet 3, STRING098 FGet 3, STRING099 FGet 3, STRING100 FGet 3, STRING101 FGet 3, STRING102 FGet 3, STRING103 FGet 3, STRING104 FGet 3, STRING105 FGet 3, STRING106 FGet 3, STRING107 FGet 3, STRING108 FGet 3, STRING109 FGet 3, STRING110 FGet 3, STRING111 FGet 3, STRING112 FGet 3, STRING113 FGet 3, STRING114 FGet 3, STRING115 FGet 3, STRING116 FGet 3, STRING117 FGet 3, STRING118 FGet 3, STRING119 FGet 3, STRING120 FGet 3, STRING121 FGet 3, STRING122 FGet 3, STRING123 FGet 3, STRING124 FGet 3, STRING125 FGet 3, STRING126 FGet 3, STRING127 FGet 3, STRING128 FGet 3, STRING129 FGet 3, STRING130 FGet 3, STRING131 FGet 3, STRING132 FGet 3, STRING133 FGet 3, STRING134 FGet 3, STRING135 FGet 3, STRING136 FGet 3, STRING137 FGet 3, STRING138 FGet 3, STRING139 FGet 3, STRING140 FGet 3, STRING141 FGet 3, STRING142 FGet 3, STRING143 FGet 3, STRING144 FGet 3, STRING145 FGet 3, STRING146 FGet 3, STRING147 FGet 3, STRING148 FGet 3, STRING149 FGet 3, STRING150 FGet 3, STRING151 FGet 3, STRING152 FGet 3, STRING153 FGet 3, STRING154 FGet 3, STRING155 FGet 3, STRING156 FGet 3, STRING157 FGet 3, STRING158 FGet 3, STRING159 FGet 3, STRING160 FGet 3, STRING161 FGet 3, STRING162 FClose 3 If (Exist(PPEPath() + "PPE.CNF") == 0) Then PrintLn PrintLn "Error! File PPE.CNF not found!" PrintLn "This file contains all the Matrix External PPE commands" PrintLn "and configurations parameters for any EXTERNAL PPE files" PrintLn "you might want to run, and is reqired for MT-Matrix Extra" PrintLn "PPE properly to work properly! Please notify SysOp..." FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " ERROR! PPE.CNF File NOT FOUND... Matrix Aborted!" FClose 1 PrintLn Wait End Endif FOpen 4, PPEPath() + "PPE.CNF", 0, 0 FGet 4, STRING163 FGet 4, STRING173 FGet 4, STRING164 FGet 4, STRING174 FGet 4, STRING165 FGet 4, STRING175 FGet 4, STRING166 FGet 4, STRING176 FGet 4, STRING167 FGet 4, STRING177 FGet 4, STRING168 FGet 4, STRING178 FGet 4, STRING169 FGet 4, STRING179 FGet 4, STRING170 FGet 4, STRING180 FGet 4, STRING171 FGet 4, STRING181 FGet 4, STRING172 FGet 4, STRING182 FClose 4 If (Exist(PPEPath() + "DRIVES.CNF") == 0) Then PrintLn PrintLn "Error! File DRIVES.CNF not found!" PrintLn "This file contains all the Matrix-(Simulated) Drives Letters" PrintLn "configurations parameters and is reqired for MT-Matrix Extra" PrintLn "Simulated Drives to work properly! Please notify SysOp..." FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " ERROR! DRIVES.CNF File NOT FOUND... Matrix Aborted!" FClose 1 PrintLn Wait End Endif FOpen 4, PPEPath() + "DRIVES.CNF", 0, 0 FGet 4, STRING183 FGet 4, STRING184 FGet 4, STRING185 FGet 4, STRING186 FClose 4 STRING046 = STRING044 - 1 INTEGER012 = STRING026 AdjTime INTEGER012 If (STRING026 == 0) Then Goto LABEL001 Endif FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " (", INTEGER012, " mins added) at Matrix Login" FClose 1 :LABEL001 If (STRING038 == "1") Then PrintLn "@X07@PON@" Print "@X07" + STRING070 Delay 3 Print " ." Delay 3 Print " ." Delay 3 Print " ." Delay 2 PrintLn "@CLREOL@" Endif :LABEL002 If (STRING025 == "1") Then Cls Endif PrintLn STRING187 = "■+▐è⌡╝15ZB+▐rrÜ■K╓N Å+j║}{Ü⌠╓°m°╝▐o+■■,45╝&65542643498469└╜4957895for■84764ramdom768476 count1┌Ö!2121" STRING193 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■341231234K╓N Å+j║}{515134251534Ü⌠╓°m°4123412341234╝▐■,45╝&6554└╜476846785for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠" STRING195 = "M" STRING188 = "f ea w 8435@#$ f■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■⌠#ö@8689╝94904998└48Q11∞╜74│+L4╝465444454╝445774" STRING193 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■" STRING196 = "T" STRING189 = "dfasdewtmlasfdtq[ dgjqth fgjatghqptr djhtqtqnb dt[qj K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■fv86967067062334653452345asdgfasjg afghjatu e553452626 qt vq vta23452314515gfjh" STRING193 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■" STRING197 = "-" STRING190 = "465441654645327686348464416 K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■41646464654" STRING193 = "wxofdfaK╓N fasdÅ+j║ewtqt}{Ü⌠╓°m°euyuuiot╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝" STRING198 = "M" STRING191 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■o+■o+■" STRING199 = "a" STRING192 = "7535788K╓N57347 Å864695790+j║}06980687{Ü⌠-969-899069078907890╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝" STRING200 = "t" STRING193 = "K37697╓N -789-Å563767+j║}690 0986-790-8={Ü⌠╓°m2647356745846798649 578°╝▐■06890 869087690,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓373587N 4858467Å+j76967║9868}{37432Ü123434╓°m°╝▐■,45╝" STRING193 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■" STRING201 = "r" STRING194 = "}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°for■o+■⌠#ö@8689╝9╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45876967806-9860for■o+■o+■" STRING202 = "i" STRING190 = "465441654645327686348464416 K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■41646464654" STRING203 = "x" STRING193 = "K╓}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°r■K╓N Å+j" STRING193 = "6554└╜45for■K╓N Å+j║}{}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{■" STRING204 = " (v1.20) /Standard" STRING194 = "╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■o+■" STRING194 = "for■o+■⌠#ö@8689╝9╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■o+■" STRING193 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■" STRING205 = " ■ " STRING193 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■" STRING194 = "for■o+■⌠#ö@8689╝9╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■o+■" STRING206 = "08-18-93" STRING193 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■" STRING194 = "for■o+■⌠#ö@8689╝9╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■o+■" PrintLn STRING040 + STRING195 + STRING196 + STRING197 + STRING198 + STRING199 + STRING200 + STRING201 + STRING202 + STRING203 + STRING204 + STRING205 + STRING206 + "" If (Exist(PPEPath() + "LOGIN")) Then PrintLn DispFile PPEPath() + "LOGIN", 4 + 2 + 1 Endif PrintLn If (STRING039 == "1") Then PrintLn "@POFF@" If (Exist(PPEPath() + "MENU")) DispFile PPEPath() + "MENU", 4 + 2 + 1 PrintLn "@PON@" Endif :LABEL003 STRING017 = "" InputStr "@X07" + STRING029 + " _", STRING017, 15, 110, "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~!@#$%^&*()_+|`1234567890-=<>?/\;':., ", 2 + 4 + 8 + 64 If (STRING017 == "") Goto LABEL003 If (STRING017 == STRING047) Goto LABEL033 If (STRING017 == STRING048) Goto LABEL033 If (STRING017 == STRING049) Goto LABEL031 If (STRING017 == STRING050) Goto LABEL094 If (STRING017 == STRING051) Goto LABEL093 If (STRING017 == STRING052) Goto LABEL048 If (STRING017 == STRING053) Goto LABEL041 If (STRING017 == STRING054) Goto LABEL057 If (STRING017 == STRING055) Goto LABEL061 If (STRING017 == STRING056) Goto LABEL065 If (STRING017 == STRING057) Goto LABEL065 If (STRING017 == STRING058) Goto LABEL074 If (STRING017 == STRING059) Goto LABEL037 If (STRING017 == STRING060) Goto LABEL092 If (STRING017 == STRING061) Goto LABEL002 If (STRING017 == STRING062) Goto LABEL030 If (STRING017 == STRING063) Goto LABEL091 If (STRING017 == STRING064) Goto LABEL089 If (STRING017 == STRING065) Goto LABEL089 If (STRING017 == STRING066) Goto LABEL097 If (STRING017 == STRING067) Goto LABEL018 If (STRING017 == STRING068) Goto LABEL024 If (STRING017 == STRING069) Goto LABEL017 If (Upper(STRING017) == STRING030) Goto LABEL031 If (Lower(STRING017) == STRING030) Goto LABEL031 If (Upper(STRING017) == STRING183) Goto LABEL016 If (Lower(STRING017) == STRING183) Goto LABEL016 If (Upper(STRING017) == "CD " + STRING183) Goto LABEL016 If (Lower(STRING017) == "CD " + STRING183) Goto LABEL016 If (Upper(STRING017) == "CD D: " + STRING183) Goto LABEL016 If (Lower(STRING017) == "CD D: " + STRING183) Goto LABEL016 If (Upper(STRING017) == "CD D:" + STRING183) Goto LABEL016 If (Lower(STRING017) == "CD D:" + STRING183) Goto LABEL016 If (Upper(STRING017) == STRING043) Goto LABEL032 If (Lower(STRING017) == STRING043) Goto LABEL032 If (Upper(STRING017) == "CD " + STRING043) Goto LABEL032 If (Lower(STRING017) == "CD " + STRING043) Goto LABEL032 If (Upper(STRING017) == "CD C: " + STRING043) Goto LABEL032 If (Lower(STRING017) == "CD C: " + STRING043) Goto LABEL032 If (Upper(STRING017) == "CD C:" + STRING043) Goto LABEL032 If (Lower(STRING017) == "CD C:" + STRING043) Goto LABEL032 If (Upper(STRING017) == "DIR " + STRING043) Goto LABEL094 If (Lower(STRING017) == "DIR " + STRING043) Goto LABEL094 If (Upper(STRING017) == "DIR " + STRING183) Goto LABEL015 If (Lower(STRING017) == "DIR " + STRING183) Goto LABEL015 If (STRING017 == "FEEDBAK") Gosub LABEL048 If (STRING017 == "COMMENT") Gosub LABEL048 If (STRING017 == "FORMAT C:") Gosub LABEL093 If (STRING017 == "FORMAT D:") Gosub LABEL093 If (STRING017 == "EXIT") Gosub LABEL090 If (STRING017 == "TYPE MATRIX.NFO") Gosub LABEL092 If (STRING017 == "LOGOFF.EXE") Gosub LABEL089 If (STRING017 == "HANGUP") Gosub LABEL089 If (STRING017 == "DIR /P") Gosub LABEL094 If (STRING017 == "DIR") Gosub LABEL094 If (STRING017 == "DIR C:") Gosub LABEL094 If (STRING017 == "DIR C") Gosub LABEL094 If (STRING017 == "DIR C: /P") Gosub LABEL094 If (STRING017 == "DIR C: /W") Gosub LABEL095 If (STRING017 == "DIR C /P") Gosub LABEL094 If (STRING017 == "DIR C /W") Gosub LABEL095 If (STRING017 == "DIR /W") Gosub LABEL095 If (STRING017 == "DIR/P") Gosub LABEL094 If (STRING017 == "DIR/W") Gosub LABEL095 If (STRING017 == "DIR D:") Gosub LABEL015 If (STRING017 == "DIR D") Gosub LABEL015 If (STRING017 == "DIR D: /P") Gosub LABEL015 If (STRING017 == "DIR D:/W") Gosub LABEL015 If (STRING017 == "CD \") Gosub LABEL098 If (STRING017 == "COPY") Gosub LABEL098 If (STRING017 == "CD \") Gosub LABEL098 If (STRING017 == "CD\") Gosub LABEL098 If (STRING017 == "CD..") Gosub LABEL098 If (STRING017 == "CD ..") Gosub LABEL098 If (STRING017 == "CD") Gosub LABEL098 If (STRING017 == "DEL") Gosub LABEL098 If (STRING017 == "DELETE") Gosub LABEL098 If (STRING017 == "ERASE") Gosub LABEL098 If (STRING017 == "ERASE.EXE") Gosub LABEL098 If (STRING017 == "DELETE") Gosub LABEL098 If (STRING017 == "RUN ") Gosub LABEL098 If (STRING017 == "RUN") Gosub LABEL099 If (STRING017 == "TYPE") Gosub LABEL099 If (STRING017 == "DELETE.EXE") Gosub LABEL098 If (STRING017 == "DEL *.*") Gosub LABEL098 If (STRING017 == "DEL *") Gosub LABEL098 If (STRING017 == "VERSION") Gosub LABEL029 If (STRING017 == "VER") Gosub LABEL029 If (STRING017 == "A:") Gosub LABEL096 If (STRING017 == "B:") Gosub LABEL096 If (STRING017 == "C:") Gosub LABEL003 If (STRING017 == "D:") Gosub LABEL096 If (STRING017 == "E:") Gosub LABEL096 If (STRING017 == "F:") Gosub LABEL096 If (STRING017 == "G:") Gosub LABEL096 If (STRING017 == "H:") Gosub LABEL096 If (STRING017 == "I:") Gosub LABEL096 If (STRING017 == "K:") Gosub LABEL096 If (STRING017 == "L:") Gosub LABEL096 If (STRING017 == "M:") Gosub LABEL096 If (STRING017 == "N:") Gosub LABEL096 If (STRING017 == "O:") Gosub LABEL096 If (STRING017 == "REGIE") Gosub LABEL004 If (STRING017 == "REGISTER") Gosub LABEL004 If (STRING017 == "LICENSE") Gosub LABEL004 If (STRING017 == STRING163) Goto LABEL005 If (STRING017 == STRING164) Goto LABEL006 If (STRING017 == STRING165) Goto LABEL007 If (STRING017 == STRING166) Goto LABEL008 If (STRING017 == STRING167) Goto LABEL009 If (STRING017 == STRING168) Goto LABEL010 If (STRING017 == STRING169) Goto LABEL011 If (STRING017 == STRING170) Goto LABEL012 If (STRING017 == STRING171) Goto LABEL013 If (STRING017 == STRING172) Goto LABEL014 Goto LABEL100 :LABEL004 STRING187 = "■+▐è⌡╝15ZB+▐rrÜ■K╓N Å+j║}{Ü⌠╓°m°╝▐o+■■,45╝&65542643498469└╜4957895for■84764ramdom768476 count1┌Ö!2121" STRING193 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■341231234K╓N Å+j║}{515134251534Ü⌠╓°m°4123412341234╝▐■,45╝&6554└╜476846785for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠" STRING207 = "Un" STRING188 = "f ea w 8435@#$ f■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■⌠#ö@8689╝94904998└48Q11∞╜74│+L4╝465444454╝445774" STRING193 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■" STRING189 = "dfasdewtmlasfdtq[ dgjqth fgjatghqptr djhtqtqnb dt[qj K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■fv86967067062334653452345asdgfasjg afghjatu e553452626 qt vq vta23452314515gfjh" STRING193 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■" STRING208 = "re" STRING190 = "465441654645327686348464416 K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■41646464654" STRING193 = "wxofdfaK╓N fasdÅ+j║ewtqt}{Ü⌠╓°m°euyuuiot╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝" STRING191 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■o+■o+■" STRING192 = "7535788K╓N57347 Å864695790+j║}06980687{Ü⌠-969-899069078907890╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝" STRING209 = "gis" STRING193 = "K37697╓N -789-Å563767+j║}690 0986-790-8={Ü⌠╓°m2647356745846798649 578°╝▐■06890 869087690,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓373587N 4858467Å+j76967║9868}{37432Ü123434╓°m°╝▐■,45╝" STRING193 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■" STRING194 = "}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°for■o+■⌠#ö@8689╝9╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45876967806-9860for■o+■o+■" STRING210 = "t" STRING190 = "465441654645327686348464416 K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■41646464654" STRING193 = "K╓}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°r■K╓N Å+j" STRING193 = "6554└╜45for■K╓N Å+j║}{}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{■" STRING211 = "e" STRING194 = "╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■o+■" STRING194 = "for■o+■⌠#ö@8689╝9╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■o+■" STRING212 = "re" STRING193 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■" STRING193 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■" STRING194 = "for■o+■⌠#ö@8689╝9╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■o+■" STRING213 = "d" STRING193 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■" STRING194 = "for■o+■⌠#ö@8689╝9╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■o+■" PrintLn PrintLn STRING040 + "MT-Matrix (v1.20) /Standard ■ 08-18-93" PrintLn STRING040 + "Registered to: @X0F" + STRING207 + STRING208 + STRING209 + STRING210 + STRING211 + STRING212 + STRING213 + " BBS@X07" PrintLn "@X07" Goto LABEL003 :LABEL005 Call STRING173 + STRING163 + ".PPE" PrintLn Goto LABEL003 :LABEL006 Call STRING174 + STRING164 + ".PPE" PrintLn Goto LABEL003 :LABEL007 Call STRING175 + STRING165 + ".PPE" PrintLn Goto LABEL003 :LABEL008 Call STRING176 + STRING166 + ".PPE" PrintLn Goto LABEL003 :LABEL009 Call STRING177 + STRING167 + ".PPE" PrintLn Goto LABEL003 :LABEL010 Call STRING178 + STRING168 + ".PPE" PrintLn Goto LABEL003 :LABEL011 Call STRING179 + STRING169 + ".PPE" PrintLn Goto LABEL003 :LABEL012 Call STRING180 + STRING170 + ".PPE" PrintLn Goto LABEL003 :LABEL013 Call STRING181 + STRING171 + ".PPE" PrintLn Goto LABEL003 :LABEL014 Call STRING182 + STRING172 + ".PPE" PrintLn Goto LABEL003 :LABEL015 PrintLn "@POFF@@X07" If (Exist(PPEPath() + "MENU-D")) DispFile PPEPath() + "MENU-D", 4 + 2 + 1 PrintLn "@PON@@X07" Goto LABEL003 Goto LABEL003 :LABEL016 Call PPEPath() + "DRIVE-D.PPE" Goto LABEL003 :LABEL017 Call PPEPath() + "MATRIX.OVR" Goto LABEL003 :LABEL018 Cls PrintLn STRING040 + STRING023 + " ■ CHECK Matrix Mail@X07" INTEGER002 = 0 INTEGER003 = 0 STRING002 = "" STRING001 = "" STRING003 = "TO: " If (Exist(PPEPath() + "CHKMAIL")) Then PrintLn DispFile PPEPath() + "CHKMAIL", 4 + 2 + 1 Endif PrintLn STRING004 = "" InputStr "@X07" + STRING071 + "", STRING004, 14, 20, "ABCDEFGHIJKLMNOPQRSTUVWXYZ :;'abcdefghijklmnopqrstuvwxyz1234567890-=\!@#$%^&*()_+|~/.,<>?", 8 + 4 + 2 Newlines 1 If ((STRING004 == "") || (Len(STRING004) <= STRING046)) Goto LABEL023 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " (", STRING017, ") Cmd - Searching for Mail to: (", STRING004, ") at: (", Time(), ")" FClose 1 STRING002 = Upper(STRING002) STRING002 = STRING003 + STRING004 If (Exist(PPEPath() + "PUBLIC.MSG")) Then PrintLn PrintLn "@X02(@X0ACTRL-K@X02) @X0Aor @X02(@X0ACTRL-X@X02) @X0AAborts, @X02(@X0ACTRL-S@X02) @X0ASuspends..." PrintLn PrintLn "@X07[@X0FScanning@X07] @X07for PUBLIC Mail Addressed to: (@X0F" + STRING004 + "@X07)" Delay 10 FOpen 1, PPEPath() + "PUBLIC.MSG", 0, 0 :LABEL019 If (Ferr(1)) Goto LABEL020 FGet 1, STRING001 If (STRING001 <> "") Then INTEGER002 = INTEGER002 + 1 STRING001 = Upper(STRING001) If (InStr(STRING001, STRING002)) Then INTEGER003 = INTEGER003 + 1 INTEGER001 = InStr(STRING001, STRING002) If (INTEGER003 == 1) Newlines 1 Endif Endif If (Abort()) FClose 1 Goto LABEL019 :LABEL020 FClose 1 Goto LABEL021 Endif :LABEL021 If (INTEGER003 == 0) Goto LABEL022 ResetDisp PrintLn "@X08▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07" PrintLn "@X71 · PUBLIC Matrix Mail Found! · @X07" PrintLn "@X0F▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07" PrintLn PrintLn "@X07(@X0E" + String(INTEGER003) + "@X07) Message(s) addressed to: (@X0E" + STRING004 + "@X07) have been found" PrintLn PrintLn "@X07Use the Matrix READ command to View PUBLIC Mail Messages!" PrintLn FClose 1 Goto LABEL003 :LABEL022 ResetDisp PrintLn PrintLn "@X0CNO Matrix @X04[@X0CPUBLIC@X04] @X0CMsgs addressed to: (@X0F" + STRING004 + "@X0C) were found!@X07" PrintLn FClose 1 Goto LABEL003 :LABEL023 Newlines 1 PrintLn "Mail Check Aborted! Insuficient or Invalid Info Provided..." FClose 1 Newlines 1 Goto LABEL003 :LABEL024 Cls PrintLn STRING040 + "MT-Matrix ■ CHECK Matrix Sysop Feedback Mail@X07" INTEGER002 = 0 INTEGER003 = 0 STRING002 = "" STRING001 = "" STRING003 = "TO: " FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " (CHECKSYS) Cmd used by Caller Name: (", STRING004, ") at: (", Time(), ")" FClose 1 STRING002 = Upper(STRING002) STRING002 = Upper(STRING003) + Upper(STRING024) If (Exist(PPEPath() + "SYSOP.MSG")) Then PrintLn PrintLn "@X07[@X0FScanning@X07] @X07SYSOP.MSG File for Feedback to: (@X0F" + STRING024 + "@X07)" PrintLn PrintLn "@X02(@X0ACTRL-K@X02) @X0Aor @X02(@X0ACTRL-X@X02) @X0AAborts, @X02(@X0ACTRL-S@X02) @X0ASuspends..." Delay 10 FOpen 1, PPEPath() + "SYSOP.MSG", 0, 0 :LABEL025 If (Ferr(1)) Goto LABEL026 FGet 1, STRING001 If (STRING001 <> "") Then INTEGER002 = INTEGER002 + 1 STRING001 = Upper(STRING001) If (InStr(STRING001, STRING002)) Then INTEGER003 = INTEGER003 + 1 INTEGER001 = InStr(STRING001, STRING002) If (INTEGER003 == 1) Newlines 1 Endif Endif If (Abort()) FClose 1 Goto LABEL025 :LABEL026 FClose 1 Goto LABEL027 Endif :LABEL027 If (INTEGER003 == 0) Goto LABEL028 ResetDisp PrintLn "@X08▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07" PrintLn "@X71 · SYSOP FEEDBACK left at Matrix Found! · @X07" PrintLn "@X0F▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07" PrintLn PrintLn "@X07(@X0E" + String(INTEGER003) + "@X07) Message(s) addressed to: (@X0E" + STRING024 + "@X07) have been found" PrintLn PrintLn "@X07Use the Matrix READSYS command to View the SYSOP Feedback Msg File." PrintLn FClose 1 Goto LABEL003 :LABEL028 ResetDisp PrintLn "@X0CNO Feedback Msgs addressed to: (@X0F" + STRING024 + "@X0C) were found!@X07" PrintLn FClose 1 Goto LABEL003 :LABEL029 PrintLn PrintLn STRING040 + "MT-Matrix (v1.20) /Standard ■ 08-18-93" PrintLn Goto LABEL003 PrintLn PrintLn "@X07Matrix Command (" + STRING017 + ") is currently disabled" PrintLn Goto LABEL003 :LABEL030 Cls PrintLn STRING040 + STRING023 + " ■ NEWS for @SYSDATE@@X07" If (Exist(PPEPath() + "NEWS")) Then PrintLn DispFile PPEPath() + "NEWS", 4 + 2 + 1 Endif PrintLn FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 If (STRING004 == "") Then STRING004 = "NOT AVAILABLE" Endif FPutLn 1, " (", STRING017, ") Command used by Caller Name: (", STRING004, ") at: (", Time(), ")" FClose 1 Goto LABEL003 :LABEL031 Cls PrintLn STRING040 + STRING023 + " ■ Turbo Connect@X07" PrintLn PrintLn "@X07" + STRING084 + "@X07" PrintLn Goto LABEL102 :LABEL032 PrintLn Goto LABEL003 :LABEL033 Cls PrintLn STRING040 + STRING023 + " ■ System Loader@X07" PrintLn If (STRING030 == "0") Then Delay 15 PrintLn "@X07" + STRING078 + "@X07" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " System Loader Feature is currently NOT Password Protected" FClose 1 Else PrintLn "@X07" + STRING079 + "@X07" PrintLn INTEGER008 = 1 STRING009 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz -_!./,'1234567890" INTEGER009 = 0 :LABEL034 STRING010 = "" InputStr "@X07" + STRING077, STRING010, 14, Len(STRING030) + 3, Mask_Ascii(), 2 + 1 + 8 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Matrix System Loader Password (", STRING010, ") was used" FClose 1 Inc INTEGER009 If (Upper(STRING010) == STRING030) Goto LABEL036 If (Lower(STRING010) == STRING030) Goto LABEL036 If (INTEGER009 == INTEGER008 + 1) Goto LABEL035 Newlines 1 PrintLn "@X07" + STRING080 + "@X07" Newlines 1 Goto LABEL034 :LABEL035 Newlines 1 PrintLn "@X07" + STRING080 + "@X07" Newlines 1 PrintLn "@X07" + STRING081 + "@X07" PrintLn "@X07" + STRING082 + "@X07" Newlines 1 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Caller failed System Password verification" FClose 1 Goto LABEL003 :LABEL036 Newlines 2 PrintLn "@X07" + STRING083 + "@X07" Endif FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " System Loader Password Correct after (", INTEGER009, ") tries" FClose 1 Goto LABEL108 :LABEL037 Cls STRING004 = "" PrintLn STRING040 + STRING023 + " ■ Check System [Password]@X07" If (Exist(PPEPath() + "CHECK")) Then PrintLn DispFile PPEPath() + "CHECK", 4 + 2 + 1 Endif PrintLn InputStr "@X07" + STRING071 + "", STRING004, 14, 25, "ABCDEFGHIJKLMNOPQRSTUVWXYZ :;'abcdefghijklmnopqrstuvwxyz1234567890-=\!@#$%^&*()_+|~/.,<>?", 8 + 4 + 2 Newlines 1 If ((STRING004 == "") || (Len(STRING004) <= STRING046)) Goto LABEL038 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 If (STRING004 == "") Then STRING004 = "NOT AVAILABLE" Endif FPutLn 1, " (", STRING017, ") Cmd used by Caller Name: (", STRING004, ") at: (", Time(), ")" FClose 1 INTEGER011 = U_RecNum(STRING004) PrintLn Print "@X07" + STRING076 Delay 2 Print " ." Delay 2 Print " ." Delay 2 Print " . " Delay 0 If (INTEGER011 == -1) Then Goto LABEL039 Endif Goto LABEL040 :LABEL038 PrintLn "@X07" PrintLn "@X07" + STRING085 + "@X07" Newlines 1 Goto LABEL003 :LABEL039 Print "@X07" + STRING086 + "@X07" Delay 4 Newlines 2 PrintLn "Information for: (@X0F" + STRING004 + "@X07) Not Found!" STRING005 = "Y" Newlines 1 InputYN "@X07" + STRING087, STRING005, 14 Newlines 2 If (STRING005 <> YesChar()) Then Gosub LABEL003 Endif Goto LABEL089 :LABEL040 Print "@X07" + STRING088 + "@X07" Delay 3 Newlines 2 If (STRING030 == "0") Then PrintLn "@X07" + STRING089 + "@X07" Newlines 1 STRING005 = "" InputYN "@X07" + STRING090, STRING005, 14 Newlines 2 If (STRING005 <> YesChar()) Then Gosub LABEL003 Endif Else PrintLn "@X07" + STRING091 + " @X07", STRING030 Newlines 1 PrintLn "@X07" + STRING092 + "@X07" Newlines 1 STRING005 = "" InputYN "@X07" + STRING090, STRING005, 14 Newlines 2 If (STRING005 <> YesChar()) Then Gosub LABEL003 Endif Goto LABEL105 :LABEL041 INTEGER013 = STRING028 AdjTime INTEGER013 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " (", INTEGER013, " mins added) to PUBLIC POST cmd -> [CONFIGURED IN MATRIX.CNF]" FClose 1 Cls PrintLn STRING040 + STRING023 + " ■ Post a PUBLIC Message@X07" STRING004 = "" STRING018 = "ALL" STRING012 = "" If (Exist(PPEPath() + "POST")) Then PrintLn DispFile PPEPath() + "POST", 4 + 2 + 1 Endif PrintLn InputText "@X07" + STRING093, STRING004, 14, 30 If ((STRING004 == "") || (Len(STRING004) <= STRING046)) Goto LABEL043 PrintLn InputText "@X07" + STRING094, STRING018, 14, 30 If ((STRING018 == "") || (Len(STRING018) <= 1)) Goto LABEL044 PrintLn InputText "@X07" + STRING095, STRING012, 14, 30 If ((STRING012 == "") || (Len(STRING012) <= 1)) Goto LABEL043 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 If (STRING004 == "") Then STRING004 = "NOT AVAILABLE" Endif FPutLn 1, " (", STRING017, ") Command used by Caller Name: (", STRING004, ") at: (", Time(), ")" FClose 1 PrintLn PrintLn PrintLn " Enter Text - (Enter) Alone Ends - 72 chars per line - (", STRING041, " lines Max)" PrintLn "@X07 " + STRING074 INTEGER010 = STRING041 For INTEGER010 = 1 To STRING041 TSTRING014(INTEGER010) = "" InputStr String(INTEGER010), TSTRING014(INTEGER010), 15, 72, Mask_Ascii(), 4096 + 512 + 64 If ((TSTRING014(INTEGER010) == "") || (Len(TSTRING014(INTEGER010)) <= 1)) Break If ((TSTRING014(INTEGER010) == "/s") || (Len(TSTRING014(INTEGER010)) <= 1)) Goto LABEL045 If ((TSTRING014(INTEGER010) == "/") || (Len(TSTRING014(INTEGER010)) <= 1)) Break If ((TSTRING014(INTEGER010) == "/a") || (Len(TSTRING014(INTEGER010)) <= 1)) Goto LABEL042 Next STRING005 = "N" PrintLn InputYN "@X07" + STRING096, STRING005, 14 If (STRING005 <> YesChar()) Goto LABEL042 PrintLn "@X07" Goto LABEL045 :LABEL042 PrintLn PrintLn PrintLn "Public Msg Post Aborted..." PrintLn "PUBLIC MAIL Addressed to: " + STRING018 + " was NOT saved" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Public Msg Addressed to: (", STRING018, ") was Aborted" FClose 1 PrintLn Goto LABEL055 :LABEL043 PrintLn PrintLn PrintLn "@X07" + STRING097 + "@X07" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Public Msg Entry Aborted... Insuficient info provided" FClose 1 PrintLn Goto LABEL046 :LABEL044 PrintLn PrintLn PrintLn "@X07" + STRING098 + "@X07" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Public Msg Entry ABORTED... MSG TO, Name not provided" FClose 1 PrintLn Goto LABEL046 :LABEL045 PrintLn PrintLn "@X07" + STRING099 + " @X07", STRING018 Delay 15 FAppend 1, PPEPath() + "PUBLIC.MSG", 1, 2 STRING013 = "" FPutLn 1, "@MORE@@CLS@" FPutLn 1, "Date: ", Date(), " (", Time(), ")" FPutLn 1, " To: " + Upper(STRING018) FPutLn 1, "From: " + Upper(STRING004) FPutLn 1, "Subj: " + Upper(STRING012) FPutLn 1, "Host: MT-Matrix (v1.20) /Standard Status: PUBLIC MAIL" FPutLn 1, " " For INTEGER010 = 1 To 100 FPutLn 1, "", TSTRING014(INTEGER010) If ((TSTRING014(INTEGER010) == "/") || (Len(TSTRING014(INTEGER010)) <= 1)) Goto LABEL047 If ((TSTRING014(INTEGER010) == "/s") || (Len(TSTRING014(INTEGER010)) <= 1)) Goto LABEL047 If ((TSTRING014(INTEGER010) == "/a") || (Len(TSTRING014(INTEGER010)) <= 1)) Goto LABEL042 If ((TSTRING014(INTEGER010) == "") || (Len(TSTRING014(INTEGER010)) <= 1)) Goto LABEL047 Next FClose 1 :LABEL046 Goto LABEL003 :LABEL047 FClose 1 PrintLn PrintLn "@X07" + STRING100 + "@X07" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Public Msg Addressed to: (", STRING018, ") was SAVED" FClose 1 PrintLn Goto LABEL003 :LABEL048 INTEGER014 = STRING027 AdjTime INTEGER014 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 If (STRING004 == "") Then STRING004 = "NOT AVAILABLE" Endif FPutLn 1, " (", STRING017, ") Command used by Caller Name: (", STRING004, ") at: (", Time(), ")" FClose 1 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " (", INTEGER014, " mins added) to FEEDBACK cmd -> [CONFIGURED IN MATRIX.CNF]" FClose 1 Cls PrintLn STRING040 + STRING023 + " ■ FeedBack to The Sysops@X07" STRING004 = "" STRING012 = "" If (Exist(PPEPath() + "FEEDBAK")) Then PrintLn DispFile PPEPath() + "FEEDBAK", 4 + 2 + 1 Endif PrintLn InputText "@X07" + STRING093, STRING004, 14, 30 If ((STRING004 == "") || (Len(STRING004) <= STRING046)) Goto LABEL050 PrintLn Print "@X07" + STRING094 + "? @X08(@X0F" + STRING024 Print "@POS:46@@X08)@X07" PrintLn InputText "@X07" + STRING095, STRING012, 14, 30 If ((STRING012 == "") || (Len(STRING012) <= 1)) Goto LABEL050 PrintLn PrintLn PrintLn " Enter Text - (Enter) Alone Ends - 72 chars per line - (", STRING041, " lines Max)" PrintLn "@X07 " + STRING074 INTEGER010 = STRING041 For INTEGER010 = 1 To STRING041 TSTRING014(INTEGER010) = "" InputStr String(INTEGER010), TSTRING014(INTEGER010), 15, 72, Mask_Ascii(), 4096 + 512 + 64 If ((TSTRING014(INTEGER010) == "") || (Len(TSTRING014(INTEGER010)) <= 1)) Break If ((TSTRING014(INTEGER010) == "/s") || (Len(TSTRING014(INTEGER010)) <= 1)) Goto LABEL051 If ((TSTRING014(INTEGER010) == "/") || (Len(TSTRING014(INTEGER010)) <= 1)) Break If ((TSTRING014(INTEGER010) == "/a") || (Len(TSTRING014(INTEGER010)) <= 1)) Goto LABEL049 Next STRING005 = "Y" PrintLn InputYN "@X07" + STRING101, STRING005, 14 If (STRING005 <> YesChar()) Goto LABEL049 PrintLn "@X07" Goto LABEL051 :LABEL049 PrintLn PrintLn PrintLn "You have Aborted Feedback mail..." PrintLn "Feedback Mail to " + STRING024 + " was NOT saved" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Caller (", STRING004, ") Aborted FEEDBACK" FClose 1 PrintLn Goto LABEL055 :LABEL050 PrintLn PrintLn PrintLn "@X07" + STRING102 + "@X07" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Caller (", STRING004, ") - FEEDBACK aborted... Insuficient info provided" FClose 1 PrintLn Goto LABEL055 :LABEL051 PrintLn PrintLn "@X07" + STRING103 + "@X07" If (STRING045 == "PCBOARD") Goto LABEL052 Goto LABEL054 :LABEL052 FAppend 1, PPEPath() + "TEMP.MSG", 1, 2 FPutLn 1, "@X85· @X05[@X0DMatrix Feedback Msg@X05]@X07 ■ Left on: ", Date(), " at (", Time(), ")" FPutLn 1, " " For INTEGER010 = 1 To 100 FPutLn 1, "", TSTRING014(INTEGER010) If ((TSTRING014(INTEGER010) == "/") || (Len(TSTRING014(INTEGER010)) <= 1)) Goto LABEL053 If ((TSTRING014(INTEGER010) == "/s") || (Len(TSTRING014(INTEGER010)) <= 1)) Goto LABEL053 If ((TSTRING014(INTEGER010) == "/a") || (Len(TSTRING014(INTEGER010)) <= 1)) Goto LABEL049 If ((TSTRING014(INTEGER010) == "") || (Len(TSTRING014(INTEGER010)) <= 1)) Goto LABEL053 If ((TSTRING014(INTEGER010) == "") || (Len(TSTRING014(INTEGER010)) <= 1)) Goto LABEL053 Next FClose 1 :LABEL053 FClose 1 STRING214 = "SYSOP" STRING215 = Upper(STRING004) STRING216 = Upper(STRING012) STRING217 = "R" DATE001 = 0 BOOLEAN001 = 0 BOOLEAN002 = 0 STRING218 = PPEPath() + "TEMP.MSG" Message 0, STRING214, STRING215, STRING216, STRING217, DATE001, BOOLEAN001, BOOLEAN002, STRING218 Goto LABEL056 :LABEL054 Delay 15 FAppend 1, PPEPath() + "SYSOP.MSG", 1, 2 STRING013 = "" FPutLn 1, "@MORE@@CLS@" FPutLn 1, "Date: ", Date(), " (", Time(), ")" FPutLn 1, " To: " + STRING024 FPutLn 1, "From: " + Upper(STRING004) FPutLn 1, "Subj: " + Upper(STRING012) FPutLn 1, "Host: MT-Matrix (v1.20) /Standard Status: PRIVATE MAIL" FPutLn 1, " " For INTEGER010 = 1 To 100 FPutLn 1, "", TSTRING014(INTEGER010) If ((TSTRING014(INTEGER010) == "/") || (Len(TSTRING014(INTEGER010)) <= 1)) Goto LABEL056 If ((TSTRING014(INTEGER010) == "/s") || (Len(TSTRING014(INTEGER010)) <= 1)) Goto LABEL056 If ((TSTRING014(INTEGER010) == "/a") || (Len(TSTRING014(INTEGER010)) <= 1)) Goto LABEL049 If ((TSTRING014(INTEGER010) == "") || (Len(TSTRING014(INTEGER010)) <= 1)) Goto LABEL056 If ((TSTRING014(INTEGER010) == "") || (Len(TSTRING014(INTEGER010)) <= 1)) Goto LABEL056 Next FClose 1 :LABEL055 Goto LABEL003 :LABEL056 FClose 1 Delete PPEPath() + "TEMP.MSG" PrintLn PrintLn "@X07" + STRING104 + "@X07" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Caller (", STRING004, ") - Leaves FEEDBACK Msg at Matrix" FPutLn 1, " FEEDBACK Msg Topic: (", STRING012, ")" FClose 1 PrintLn Goto LABEL003 :LABEL057 Cls FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 If (STRING004 == "") Then STRING004 = "NOT AVAILABLE" Endif FPutLn 1, " (", STRING017, ") Command used by Caller Name: (", STRING004, ") at: (", Time(), ")" FClose 1 PrintLn STRING040 + STRING023 + " ■ Public Mail Read [All Callers]@X07" If (Exist(PPEPath() + "READ")) Then PrintLn DispFile PPEPath() + "READ", 4 + 2 + 1 Endif PrintLn If (STRING033 == "0") Then Delay 3 PrintLn "@X07" + STRING105 + "@X07" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Read Public Mail is Currently NOT password Protected!" FClose 1 Else INTEGER008 = 1 STRING009 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz -_!./,'1234567890" INTEGER009 = 0 :LABEL058 STRING016 = "" InputStr "@X07" + STRING106, STRING016, 10, Len(STRING033) + 3, STRING009, 1 + 2 Inc INTEGER009 If (Upper(STRING016) == STRING033) Goto LABEL060 If (Lower(STRING016) == STRING033) Goto LABEL060 If (INTEGER009 == INTEGER008 + 1) Goto LABEL059 PrintLn "@X07" PrintLn "@X07" + STRING107 + "@X07" PrintLn Goto LABEL058 :LABEL059 PrintLn "" PrintLn "@X07" + STRING107 + "@X07" PrintLn PrintLn "@X07" + STRING108 + "@X07" Delay 5 PrintLn "" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 If (STRING004 == "") Then STRING004 = "NOT AVAILABLE" Endif FPutLn 1, " Public Mail Read Password (", STRING016, " was used" FClose 1 Goto LABEL003 :LABEL060 PrintLn Delay 5 PrintLn "@X07" + STRING109 + "@X07" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Public Mail Read (Password) entered correct on attempt #: (", INTEGER009, ")" FClose 1 Endif PrintLn PrintLn "@X07" + STRING110 + "@X07" PrintLn If (Exist(PPEPath() + "PUBLIC.MSG") == 0) Then Delay 3 PrintLn " - Sorry no Messages found in Matrix PUBLIC MAIL" PrintLn " - (PUBLIC MAIL) Message File is Currently <EMPTY>" Delay 15 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " No Public Msgs found... PUBLIC.MSG file is currently <EMPTY>" FClose 1 PrintLn Goto LABEL003 Endif Delay 5 If (Exist(PPEPath() + "PUBLIC.MSG")) DispFile PPEPath() + "PUBLIC.MSG", 4 + 2 + 1 PrintLn "@POFF@" PrintLn "@X07" + STRING111 + "@X07" Newlines 1 InputStr "@X07" + STRING161, STRING019, 14, 0, STRING020, +32 If (STRING019 == "") Goto LABEL003 :LABEL061 Cls FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 If (STRING004 == "") Then STRING004 = "NOT AVAILABLE" Endif FPutLn 1, " (", STRING017, ") Command used by Caller Name: (", STRING004, ") at: (", Time(), ")" FClose 1 PrintLn STRING040 + STRING023 + " ■ Read Feedback [SysOps Only]@X07" If (Exist(PPEPath() + "READSYS")) Then PrintLn DispFile PPEPath() + "READSYS", 4 + 2 + 1 Endif PrintLn If (STRING032 == "0") Then Delay 15 PrintLn "@X07" + STRING112 + "@X07" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Read SYSOP FEEDBACK Mail is Currently NOT password Protected!" FClose 1 Else INTEGER008 = 1 STRING009 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz -_!./,'1234567890" INTEGER009 = 0 :LABEL062 STRING015 = "" InputStr "@X07" + STRING113, STRING015, 10, Len(STRING032) + 3, STRING009, 1 + 2 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Read SYSOP FEEDBACK Password (", STRING015, ") was used!" FClose 1 Inc INTEGER009 If (Upper(STRING015) == STRING032) Goto LABEL064 If (Lower(STRING015) == STRING032) Goto LABEL064 If (INTEGER009 == INTEGER008 + 1) Goto LABEL063 PrintLn "@X07" PrintLn "@X07" + STRING114 + "@X07" PrintLn Goto LABEL062 :LABEL063 PrintLn "" PrintLn "@X07" + STRING114 + "@X07" PrintLn PrintLn "@X07" + STRING115 + "@X07" Delay 15 PrintLn "" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Luzer failed Sysop Mail Read Password Verification" FClose 1 Goto LABEL003 :LABEL064 PrintLn Delay 10 PrintLn "@X07" + STRING116 + "@X07" Endif PrintLn PrintLn "@X07" + STRING117 + "@X07" PrintLn FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Read SYSOP FEEDBACK Password entered correct on attempt #: (", INTEGER009, ")" FClose 1 If (Exist(PPEPath() + "SYSOP.MSG") == 0) Then Delay 15 PrintLn " - Sorry no Messages found in SYSOP FEEDBACK" PrintLn " - (SYSOP.MSG) Feedback Message File is Currently <EMPTY>" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " No SYSOP FEEDBACK Msgs found... SYSOP.MSG file is currently <EMPTY>" FClose 1 Delay 15 PrintLn InputStr "@X07" + STRING161, STRING019, 14, 0, STRING020, +32 If (STRING019 == "") Goto LABEL003 Endif Delay 15 If (Exist(PPEPath() + "SYSOP.MSG")) DispFile PPEPath() + "SYSOP.MSG", 4 + 2 + 1 PrintLn "@POFF@" PrintLn "@X07" + STRING118 + "@X07" PrintLn InputStr "@X07" + STRING161, STRING019, 14, 0, STRING020, +32 If (STRING019 == "") Goto LABEL003 :LABEL065 Cls PrintLn STRING040 + STRING023 + " ■ Call the Sysop / Chat@X07" TIME002 = Time() TIME003 = ReadLine(PCBDat(), 189) TIME004 = ReadLine(PCBDat(), 190) If ((TIME002 >= TIME003) && (TIME002 <= TIME004)) Goto LABEL066 PrintLn PrintLn "@X07" + STRING119 + "@X07" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Caller attempted to PAGE Sysop during OFF-Hour Period" FClose 1 Goto LABEL101 :LABEL066 If (STRING035 == "0") Then Delay 5 PrintLn PrintLn "@X07" + STRING119 + "@X07" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Matrix PAGE command is DISABLED" FClose 1 Else If (PageStat()) Then Delay 5 PrintLn PrintLn "You have already paged the SysOps!" PrintLn "If there was no answer then it's because the SysOps are not available!" PrintLn "You should instead leave FEEDBACK to the Sysops!" Else STRING004 = "" STRING006 = "" If (Exist(PPEPath() + "PAGE")) Then PrintLn DispFile PPEPath() + "PAGE", 4 + 2 + 1 Endif PrintLn InputText STRING071, STRING004, 14, 20 If ((STRING004 == "") || (Len(STRING004) <= STRING046)) Goto LABEL070 PrintLn InputText "@X07" + STRING120, STRING006, 14, 30 If ((STRING006 == "") || (Len(STRING006) <= 1)) Goto LABEL070 If (STRING004 <> "") Gosub LABEL067 If (STRING006 <> "") Gosub LABEL067 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " (", STRING004, ") PAGED Sysop at: (", Time(), ")" FPutLn 1, " Reason given to page: (", STRING006, ")" FClose 1 TIME001 = Time() PrintLn "@X07" PrintLn "" Print "@X07[@X0EPaging " + STRING024 + "@X07]" Newline Print "@X07Page ends in (@X0F" + STRING036 + " secs@X07) [@X0ACtrl-K@X07]=Aborts " While (TIME001 + STRING036 > Time()) Do INTEGER007 = Abort() If (INTEGER007) Goto LABEL071 STRING008 = KInkey() If (STRING008 == Chr(32)) Goto LABEL069 INTEGER004 = INTEGER004 + 1 If (INTEGER004 % STRING037 == 0) Then Print "@X0F." Sound 1100 Delay 3 Sound 1500 Delay 3 Sound 1200 Delay 3 Sound 0 Endif EndWhile If (PageStat() == 0) PageOn Goto LABEL068 End :LABEL067 INTEGER005 = GetX() INTEGER006 = GetY() AnsiPos 1, 1 Color 47 SPrintLn "┌────────────────────────────────────────────────────────────────────────┐ " SPrintLn "│ [SysOp] - Press (SPACE) to acknowledge Page, (ESC) when finished. │ " SPrintLn "└────────────────────────────────────────────────────────────────────────┘ " Color DefColor() AnsiPos INTEGER005, INTEGER006 Return :LABEL068 Newlines 2 PrintLn "@X07" + STRING075 Goto LABEL072 :LABEL069 Chat Goto LABEL073 :LABEL070 PrintLn PrintLn PrintLn "@X07" + STRING121 + "@X07" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Sysop Page Aborted... Insuficient Info provided" FClose 1 ResetDisp If (PageStat() == 0) PageOn PageOff PrintLn Goto LABEL003 :LABEL071 ResetDisp PageOff Newlines 2 PrintLn "@X07" + STRING122 + "@X07" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Sysop Page Aborted at callers Request" FClose 1 PrintLn Goto LABEL073 :LABEL072 Goto LABEL101 :LABEL073 Goto LABEL003 :LABEL074 STRING011 = "" STRING004 = "" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 If (STRING004 == "") Then STRING004 = "NOT AVAILABLE" Endif FPutLn 1, " (", STRING017, ") Command used by Caller Name: (", STRING004, ") at: (", Time(), ")" FClose 1 STRING004 = "" Cls PrintLn STRING040 + STRING023 + " ■ New Caller Application@X07" If (Exist(PPEPath() + "APPLY")) Then PrintLn DispFile PPEPath() + "APPLY", 4 + 2 + 1 Endif PrintLn If (STRING031 == "0") Then Delay 15 PrintLn "@X07" + STRING123 + "@X07" PrintLn FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " New Caller PASSWORD is Currently DISABLED" FClose 1 PrintLn "@X07" + STRING124 + "@X07" PrintLn Else InputStr "@X07" + STRING071 + "", STRING004, 14, 25, "ABCDEFGHIJKLMNOPQRSTUVWXYZ :;'abcdefghijklmnopqrstuvwxyz1234567890-=\!@#$%^&*()_+|~/.,<>?", 8 + 4 + 2 Newlines 1 If ((STRING004 == "") || (Len(STRING004) <= STRING046)) Goto LABEL075 STRING007 = YesChar() PrintLn InputStr "@X07" + STRING004 + ": @X07" + STRING072, STRING007, 14, 1, "", 16384 + 2 + 8 Newlines 1 If (STRING007 == NoChar()) Then PrintLn PrintLn "@X07" + STRING073 PrintLn FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Apply Automatically ABORTED -> Improper Name used: (", STRING004, ")" FClose 1 Goto LABEL003 Endif INTEGER011 = U_RecNum(STRING004) PrintLn Print "@X07" + STRING076 Delay 2 Print " ." Delay 2 Print " ." Delay 2 Print " . " Delay 1 If (INTEGER011 == -1) Then Goto LABEL077 Endif Goto LABEL076 :LABEL075 PrintLn PrintLn "@X07" + STRING125 + "@X07" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Apply Aborted... Insuficient Info provided" FClose 1 PrintLn Goto LABEL003 :LABEL076 Print "@X0FDONE!@X07" PrintLn PrintLn PrintLn "@X07" + STRING126 + "@X07" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Apply Aborted... User Name (", STRING004, ") Already exists in Users Listing" FClose 1 PrintLn Goto LABEL003 :LABEL077 Print "@X0FDONE!@X07" Newlines 2 PrintLn "@X07" + STRING127 + "@X07" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " (", STRING004, ") Not found in Users Listing" FClose 1 PrintLn Print "@X07" + STRING128 Delay 5 Print " ." Delay 5 Print " ." Delay 5 Print " ." Delay 5 PrintLn If (Exist(PPEPath() + STRING042) > 0) Then PrintLn "@X07Apply VIP File not found" Else FOpen 1, STRING042, 0, 0 FGet 1, INTEGER015 INTEGER016 = Random(20) For INTEGER016 = 1 To INTEGER015 FGet 1, STRING021 If (STRING004 == Upper(STRING021)) Goto LABEL078 If (STRING004 == Lower(STRING021)) Goto LABEL078 Next Newlines 1 PrintLn "@X07" + STRING129 + "@X07" FClose 1 Goto LABEL079 :LABEL078 Newlines 1 FClose 1 PrintLn "@X07" + STRING130 + "@X07" Delay 6 If (Exist(PPEPath() + "NEWVIP")) Then PrintLn DispFile PPEPath() + "NEWVIP", 4 + 2 + 1 PrintLn InputStr "@X07" + STRING161, STRING019, 14, 0, STRING020, +32 If (STRING019 == "") Cls Endif Goto LABEL086 Endif :LABEL079 INTEGER008 = 1 STRING009 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz -_!./,'1234567890" INTEGER009 = 0 :LABEL080 PrintLn STRING011 = "" InputStr "@X07" + STRING131, STRING011, 10, Len(STRING031) + 3, STRING009, 1 + 2 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " New User Password (", STRING011, ") was used" FClose 1 Inc INTEGER009 If (Upper(STRING011) == STRING031) Goto LABEL082 If (Lower(STRING011) == STRING031) Goto LABEL082 If (INTEGER009 == INTEGER008 + 1) Goto LABEL081 PrintLn "@X07" PrintLn "@X07" + STRING132 + "@X07" Goto LABEL080 :LABEL081 Newlines 1 PrintLn "@X07" + STRING132 + "@X07" Newlines 1 PrintLn "@X07" + STRING133 + "@X07" Newlines 1 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Caller failed New User Password Verification" FClose 1 Goto LABEL003 :LABEL082 Newlines 2 PrintLn "@X07" + STRING134 + "@X07" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " System LOADER Password entered Correct on Attempt #: (", INTEGER009, ")" FClose 1 Goto LABEL086 Endif InputStr "@X07" + STRING071 + "", STRING004, 14, 25, "ABCDEFGHIJKLMNOPQRSTUVWXYZ :;'abcdefghijklmnopqrstuvwxyz1234567890-=\!@#$%^&*()_+|~/.,<>?", 8 + 4 + 2 Newlines 1 If ((STRING004 == "") || (Len(STRING004) <= STRING046)) Goto LABEL083 STRING007 = YesChar() PrintLn InputStr "@X07" + STRING004 + ": @X07" + STRING072, STRING007, 14, 1, "", 16384 + 2 + 8 Newlines 1 If (STRING007 == NoChar()) Then PrintLn PrintLn "@X07" + STRING073 PrintLn FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Apply Automatically ABORTED -> Improper Name used: (", STRING004, ")" FClose 1 Goto LABEL003 Endif INTEGER011 = U_RecNum(STRING004) PrintLn Print "@X07" + STRING076 Delay 2 Print " ." Delay 2 Print " ." Delay 2 Print " . " Delay 1 If (INTEGER011 == -1) Then Goto LABEL085 Endif Goto LABEL084 :LABEL083 PrintLn PrintLn "@X07" + STRING135 + "@X07" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Apply Aborted... Insuficient Info provided" FClose 1 PrintLn Goto LABEL003 :LABEL084 Print "@X0FDONE!@X07" PrintLn PrintLn PrintLn "@X07" + STRING136 + "@X07" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Apply Aborted... User Name (", STRING004, ") Already exists in Users Listing" FClose 1 PrintLn Goto LABEL003 :LABEL085 Print "@X0FDONE!@X07" PrintLn PrintLn "@X07" + STRING137 + "@X07" Delay 5 :LABEL086 If (Exist(PPEPath() + "NEWUSER")) Then PrintLn DispFile PPEPath() + "NEWUSER", 4 + 2 + 1 PrintLn InputStr "@X07" + STRING161, STRING019, 14, 0, STRING020, +32 If (STRING019 == "") Goto LABEL087 Endif PrintLn InputStr "@X07" + STRING161, STRING019, 14, 0, STRING020, +32 If (STRING019 == "") Goto LABEL087 :LABEL087 PrintLn "@X07" + STRING138 + "@X07" Delay 25 KbdChkOn FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Caller (", STRING004, ") exits Matrix to PCBoard as a NEW USER" FClose 1 If (STRING026 == 0) Then Goto LABEL088 Endif FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " (", INTEGER012, " mins DEDUCTED) at Matrix Exit" FClose 1 :LABEL088 KbdChkOn KbdStuff STRING004 + Chr(13) End :LABEL089 PrintLn "" PrintLn "@X07" + STRING139 + "@X07" FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Matrix Log-Off Completed properly (Hang-Up)" FClose 1 Hangup :LABEL090 Cls FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 If (STRING004 == "") Then STRING004 = "NOT AVAILABLE" Endif FPutLn 1, " (", STRING017, ") Command used by Caller Name: (", STRING004, ") at: (", Time(), ")" FClose 1 PrintLn STRING040 + "MT-Matrix (v1.20) /Standard ■ 08-18-93" PrintLn STRING040 + "Copyright (c) 1993 Modern Technology (tm)" PrintLn Goto LABEL003 :LABEL091 Cls FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 If (STRING004 == "") Then STRING004 = "NOT AVAILABLE" Endif FPutLn 1, " (", STRING017, ") Command used by Caller Name: (", STRING004, ") at: (", Time(), ")" FClose 1 PrintLn "@PON@" + STRING040 + STRING023 + " ■ Help@X07" If (Exist(PPEPath() + "HELP")) Then PrintLn DispFile PPEPath() + "HELP", 4 + 2 + 1 PrintLn Goto LABEL003 Endif PrintLn PrintLn "@X07" + STRING140 + "@X07" PrintLn Goto LABEL003 :LABEL092 PrintLn "@PON@" Cls FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 If (STRING004 == "") Then STRING004 = "NOT AVAILABLE" Endif FPutLn 1, " (", STRING017, ") Command used by Caller Name: (", STRING004, ") at: (", Time(), ")" FClose 1 PrintLn STRING040 + STRING023 + " ■ Info@X07" If (Exist(PPEPath() + "INFO")) Then PrintLn DispFile PPEPath() + "INFO", 4 + 2 + 1 PrintLn Goto LABEL003 Endif PrintLn PrintLn "@X07" + STRING141 + "@X07" PrintLn Goto LABEL003 :LABEL093 If (Exist(PPEPath() + "FORMAT")) Then PrintLn DispFile PPEPath() + "FORMAT", 4 + 2 + 1 Endif PrintLn FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 If (STRING004 == "") Then STRING004 = "NOT AVAILABLE" Endif FPutLn 1, " (", STRING017, ") Com used by: (", STRING004, ") at: (", Time(), ")" FClose 1 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Matrix Hung up on Caller... Luzer used the Format Command!" FClose 1 Hangup :LABEL094 PrintLn "@POFF@@X07" If (Exist(PPEPath() + "MENU")) DispFile PPEPath() + "MENU", 4 + 2 + 1 PrintLn "@PON@@X07" Goto LABEL003 :LABEL095 If (Exist(PPEPath() + "MENUW")) Then PrintLn "@POFF@@X07" DispFile PPEPath() + "MENUW", 4 + 2 + 1 Endif PrintLn "@POFF@@X07" If (Exist(PPEPath() + "MENU")) DispFile PPEPath() + "MENU", 4 + 2 + 1 PrintLn "@PON@@X07" Goto LABEL003 :LABEL096 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 If (STRING004 == "") Then STRING004 = "NOT AVAILABLE" Endif FPutLn 1, " (", STRING017, ") Command used by Caller Name: (", STRING004, ") at: (", Time(), ")" FClose 1 PrintLn "@X07" + STRING142 + "@X07" PrintLn Goto LABEL003 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 If (STRING004 == "") Then STRING004 = "NOT AVAILABLE" Endif FPutLn 1, " (", STRING017, ") Com used by: (", STRING004, ") at: (", Time(), ")" FClose 1 PrintLn Goto LABEL003 :LABEL097 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 If (STRING004 == "") Then STRING004 = "NOT AVAILABLE" Endif FPutLn 1, " (", STRING017, ") Command used by Caller Name: (", STRING004, ") at: (", Time(), ")" FClose 1 Cls Goto LABEL003 :LABEL098 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 If (STRING004 == "") Then STRING004 = "NOT AVAILABLE" Endif FPutLn 1, " (", STRING017, ") Command used by Caller Name: (", STRING004, ") at: (", Time(), ")" FClose 1 PrintLn "@X07" + STRING143 + "@X07" PrintLn Goto LABEL003 :LABEL099 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 If (STRING004 == "") Then STRING004 = "NOT AVAILABLE" Endif FPutLn 1, " (", STRING017, ") Command used by Caller Name: (", STRING004, ") at: (", Time(), ")" FClose 1 PrintLn "@X07" + STRING144 + "@X07" PrintLn Goto LABEL003 :LABEL100 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 If (STRING004 == "") Then STRING004 = "NOT AVAILABLE" Endif FPutLn 1, " Invalid Command: (", STRING017, ") used by: (", STRING004, ")" FClose 1 Delay 5 PrintLn "@X07" + STRING145 + "@X07" PrintLn Goto LABEL003 Endif STRING005 = "Y" PrintLn InputYN "@X07" + STRING146, STRING005, 14 PrintLn "@X07" PrintLn If (STRING005 <> YesChar()) Then Gosub LABEL003 Endif PrintLn Goto LABEL048 Endif :LABEL101 PrintLn STRING005 = "Y" InputYN "@X07" + STRING146, STRING005, 14 PrintLn PrintLn If (STRING005 <> YesChar()) Then Gosub LABEL003 Endif PrintLn Goto LABEL048 :LABEL102 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 If (STRING004 == "") Then STRING004 = "NOT AVAILABLE" Endif FPutLn 1, " (", STRING017, ") Command used by Caller Name: (", STRING004, ") at: (", Time(), ")" FClose 1 PrintLn "@X07" + STRING147 + "@X07" Delay 3 If (Exist(PPEPath() + "WELCOME")) Then PrintLn DispFile PPEPath() + "WELCOME", 4 + 2 + 1 KbdChkOn FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " (", STRING004, ") exits to PCBoard via Turbo Login Command at: (", Time(), ")" FClose 1 Goto LABEL103 Endif :LABEL103 If (STRING026 == 0) Then Goto LABEL104 Endif INTEGER012 = STRING026 AdjTime -STRING026 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " (", INTEGER012, " mins DEDUCTED) at Matrix Exit" FClose 1 :LABEL104 KbdChkOn End Endif :LABEL105 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " (", STRING004, ") Exits Matrix to PCBoard via (", STRING017, ") at: (", Time(), ")" FClose 1 PrintLn "@X07" + STRING138 + "@X07" Delay 3 If (Exist(PPEPath() + "WELCOME")) Then PrintLn DispFile PPEPath() + "WELCOME", 4 + 2 + 1 Goto LABEL106 Endif :LABEL106 If (STRING026 == 0) Then Goto LABEL107 Endif INTEGER012 = STRING026 AdjTime -STRING026 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " (", INTEGER012, " mins DEDUCTED) at Matrix Exit" FClose 1 :LABEL107 KbdChkOn KbdStuff STRING004 + Chr(13) End :LABEL108 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " Caller Exits Matrix to PCBoard at: (", Time(), ")" FClose 1 PrintLn PrintLn "@X07" + STRING138 + "@X07" If (Exist(PPEPath() + "WELCOME")) Then PrintLn DispFile PPEPath() + "WELCOME", 4 + 2 + 1 KbdChkOn Goto LABEL109 Endif :LABEL109 If (STRING026 == 0) Then Goto LABEL110 Endif INTEGER012 = STRING026 AdjTime -STRING026 FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2 FPutLn 1, " (", INTEGER012, " mins DEDUCTED) at Matrix Exit" FClose 1 :LABEL110 KbdChkOn End ;------------------------------------------------------------------------------ ; ; Usage report (before postprocessing) ; ; ■ Statements used : ; ; 10 End ; 18 Cls ; 5 Wait ; 2 Color ; 326 Goto ; 193 Let ; 31 Print ; 343 PrintLn ; 280 If ; 25 DispFile ; 8 FOpen ; 79 FAppend ; 98 FClose ; 168 FGet ; 99 FPutLn ; 6 ResetDisp ; 2 Hangup ; 1 Delete ; 6 AdjTime ; 19 InputStr ; 7 InputYN ; 67 Gosub ; 1 Return ; 51 Delay ; 4 Inc ; 1 Newline ; 36 Newlines ; 7 InputText ; 2 KbdStuff ; 12 Call ; 7 KbdChkOn ; 2 AnsiPos ; 1 Message ; 4 Sound ; 1 Chat ; 3 SPrintLn ; 2 PageOn ; 2 PageOff ; ; ; ■ Functions used : ; ; 6 + ; 6 - ; 1 % ; 704 + ; 1 - ; 224 == ; 11 <> ; 6 < ; 40 <= ; 2 > ; 13 >= ; 89 ! ; 13 && ; 39 || ; 37 Len( ; 16 Lower() ; 29 Upper() ; 2 Ferr() ; 3 Chr() ; 4 InStr() ; 3 Abort() ; 1 Random() ; 5 Date() ; 31 Time() ; 1 U_Name() ; 2 NoChar() ; 9 YesChar() ; 81 String() ; 3 Mask_Ascii() ; 2 PCBDat() ; 150 PPEPath() ; 78 PcbNode() ; 2 ReadLine() ; 1 OnLocal() ; 35 Exist() ; 1 Carrier() ; 1 GetX() ; 1 GetY() ; 1 DefColor() ; 2 GrafMode() ; 1 KInkey() ; 3 U_RecNum() ; 3 PageStat() ; ;------------------------------------------------------------------------------ ; ; Analysis flags : ABCd ; ; A - Adjust online time remaining ■ 5 ; Program modify the amount of online time remaining, this may ; be a way to bypass time limits ; ■ Search for : ADJTIME ; ; B - Brute hangup ■ 1 ; Program hangup without notification. This may be a good way to ; disconnect a user, but if used randomly, may be very nasty ; ■ Search for : HANGUP, DTROFF ; ; C - Call child PPE ■ 3 ; This is usually normal, but may be a tricky way to launch some ; sysop-only commands. ; ■ Search for : CALL ; ; d - Access PCBOARD.DAT ■ 2 ; Program gets the full pathname to PCBOARD.DAT, this may be usefull ; for many PPE so they can find various informations on the system ; (system paths, max number of lines in messages, ...) but it may also ; be a way to gather vital informations. ; ■ Search for : PCBDAT() ; ;------------------------------------------------------------------------------ ; ; Postprocessing report ; ; 6 For/Next ; 1 While/EndWhile ; 80 If/Then or If/Then/Else ; 0 Select Case ; ;------------------------------------------------------------------------------ ; AEGiS Corp - Break the routines, code against the machines! ;------------------------------------------------------------------------------