HPAVC

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

/ HPAVC / HPAVC CD-ROM.iso / pc / PWAPCP01.ZIP / TDLBBS01 / TDLBBS01.ZIP / TDL_BBS.PPE (.txt) < prev next >

Wrap

PCBoard Programming Language Executable | 1995-08-31 | 27.5 KB | 1,343 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 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON ;------------------------------------------------------------------------------ Boolean BOOLEAN001 Boolean BOOLEAN002 Boolean BOOLEAN003 Boolean BOOLEAN004 Boolean BOOLEAN005 Boolean BOOLEAN006 Boolean BOOLEAN007 Integer INTEGER001 Integer INTEGER002 Integer INTEGER003 Integer INTEGER004 Integer INTEGER005 Integer INTEGER006 Integer INTEGER007 String STRING001 String TSTRING002(2) String STRING003 String STRING004 String STRING005 String STRING006 String STRING007 String TSTRING008(4) String STRING009 String TSTRING010(5) String STRING011 String STRING012 String STRING013 String STRING014 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 ;------------------------------------------------------------------------------ TSTRING010(1) = "THE" TSTRING010(2) = "IN" TSTRING010(3) = "A" TSTRING010(4) = "OF" TSTRING010(5) = "BBS" STRING022 = PPEPath() + "TDL_BBS.KEY" STRING023 = PPEPath() + "TDL_BBS.DAT" STRING024 = PPEPath() + "TDL_BBS.TXT" STRING025 = PPEPath() + "" STRING026 = PPEPath() + "TDL_BBS.TMP" INTEGER001 = 419 INTEGER002 = 426 Log "BBS LISTER : Entering", 0 GetUser If (Exist(STRING022)) Goto LABEL001 Goto LABEL002 :LABEL001 STRING032 = "" STRING033 = "" INTEGER006 = "" FOpen 1, PPEPath() + "TDL_BBS.KEY", 0, 2 FGet 1, STRING032 FGet 1, STRING033 FGet 1, INTEGER003 FClose 1 For INTEGER007 = 1 To 103 STRING034 = Mid(STRING032 + STRING033, INTEGER007, 1) INTEGER005 = Asc(STRING034) INTEGER006 = INTEGER006 + INTEGER005 Next INTEGER004 = (INTEGER006 * Len(Strip(STRING032, " "))) * 63 If (INTEGER003 <> INTEGER004) Then PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│ @X0FTDL BBS Lister Version 0.1ß 1995 @X09│" PrintLn "@X01│@X0F┌@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┐@X01│" PrintLn "@X08│@X09│ │@X08│" PrintLn "@X08.@X01│ @X08Registered To:@X0F " + STRING032 + "@POS:78@@X01│@X08." PrintLn "@X08.│ │." PrintLn "@X08·. @X08System Name:@X0F " + STRING033 + "@POS:78@@X08." PrintLn "@X08.│ │." PrintLn "@X08.@X01│ @X08Serial Number:@X0F ", ((INTEGER006 * Len(Strip(STRING032, " "))) * 63) / 27 + "@POS:78@@X01│@X08." PrintLn "@X08│@X09│ │@X08│" PrintLn "@X01│@X0F└@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┘@X01│" PrintLn "@X09│ │" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┘" Delay 120 Else :LABEL002 PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│ @X0FTDL BBS Lister Version 0.1ß 1995 @X09│" PrintLn "@X01│@X0F┌@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┐@X01│" PrintLn "@X08│@X09│ │@X08│" PrintLn "@X08.@X01│ @X08Registered To: @X0E<@X84UNREGISTERED@X0E>@POS:78@@X01│@X08." PrintLn "@X08.│ │." PrintLn "@X08·. @X08System Name:@X0F **** UNKNOWN ****@POS:78@@X08." PrintLn "@X08.│ │." PrintLn "@X08.@X01│ @X08Serial Number:@X0F 000000000@POS:78@@X01│@X08." PrintLn "@X08│@X09│ │@X08│" PrintLn "@X01│@X0F└@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┘@X01│" PrintLn "@X09│ │" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┘" Newlines 2 PrintLn "@X0E Please help your Sysop REGISTER this PPE it's only $10.00@X0F" Delay 250 Goto LABEL003 Endif :LABEL003 Cls Newlines 2 PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│ @X0FTDL BBS Lister Version 0.1ß 1995 @X09│" PrintLn "@X01│@X0F┌@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┐@X01│" PrintLn "@X08│@X09│ │@X08│" PrintLn "@X08.@X01│ @X02{@X0EA@X02}@X03dd A BBS To The List @X02{@X0EV@X02}@X03iew The Current Listing @X01│@X08." PrintLn "@X08.│ @X08│." PrintLn "@X08·. @X02{@X0ED@X02}@X03ownload Current List @X02{@X0EE@X02}@X03dit A Listed BBS System @X08." PrintLn "@X08 . ." PrintLn "@X08 · ·" PrintLn "@X08.@X01│ @X02{@X04Q@X02}@X03uit/Return To System @X01│@X08." PrintLn "@X08│@X09│ │@X08│" PrintLn "@X01│@X0F└@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┘@X01│" PrintLn "@X09│@POS:78@ @X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┘" Newlines 5 :LABEL004 STRING011 = "" STRING011 = Inkey() If (Upper(STRING011) == "A") Goto LABEL005 If (Upper(STRING011) == "V") Goto LABEL025 If (Upper(STRING011) == "D") Goto LABEL035 If (Upper(STRING011) == "E") Goto LABEL039 If (Upper(STRING011) == "Q") Goto LABEL074 Goto LABEL004 :LABEL005 BOOLEAN005 = 0 STRING001 = "" TSTRING002(1) = "" TSTRING002(2) = "" STRING003 = "" STRING004 = "" STRING005 = "" STRING006 = "" STRING007 = "" TSTRING008(1) = "" TSTRING008(2) = "" TSTRING008(3) = "" TSTRING008(4) = "" STRING009 = "" Cls Newline PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│ @X0FTDL BBS Lister @X8CADD A BBS @X0FVersion 0.1ß 1995 @X09│" PrintLn "@X01│@X0F┌@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┐@X01│" PrintLn "@X08│@X09│ @X0FEnter the BBS Name: @X01............................. @X09│" PrintLn "@X08.@X01│ @X0FEnter Sysop's Name: @X01......................... │@X08." PrintLn "@X08.│ @X0FNumber of BBS Nodes: @X01... @X08│." PrintLn "@X08·. @X0FEnter 1st BBS Number: @X08." PrintLn "@X08 . @X0FEnter 2nd BBS Number: @X08." PrintLn "@X08 · @X0FEnter BBS Buad Rate: @X01............... " PrintLn "@X01 @X0FBBS Network Address: @X01.................... " PrintLn "@X01 @X0FEnter BBS Software: @X01.................... " PrintLn "@X01 @X08· ·" PrintLn "@X08 . @X0FEnter A Brief Description Of This BBS: @X08." PrintLn "@X08 @X01························································ " PrintLn "@X01 ························································ " PrintLn "@X08·. @X01························································ @X08.·" PrintLn "@X08.│ @X01························································ @X08│." PrintLn "@X08.@X01│ │@X08." PrintLn "@X08│@X09│ @X0FWho is Allowed To Edit This Entry: @X01......................... @X09│@X08│" PrintLn "@X01│@X0F└@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┘@X01│" PrintLn "@X09│ @X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┘@POFF@" AnsiPos 26, 5 InputStr "_", STRING001, 1, 30, Mask_Ascii(), 2 + 4 + 64 AnsiPos 26, 6 InputStr "_", STRING004, 1, 25, Mask_Ascii(), 2 + 4 + 64 AnsiPos 26, 7 InputStr "_", STRING003, 1, 3, Mask_Num(), 2 + 4 + 64 Gosub LABEL067 TSTRING002(1) = STRING031 Gosub LABEL068 TSTRING002(2) = STRING031 AnsiPos 26, 10 InputStr "_", STRING005, 1, 15, Mask_Ascii(), 2 + 4 + 64 AnsiPos 26, 11 InputStr "_", STRING006, 1, 20, Mask_Ascii(), 2 + 4 + 64 AnsiPos 26, 12 InputStr "_", STRING007, 1, 20, Mask_Ascii(), 2 + 4 + 64 AnsiPos 14, 15 InputStr "_", TSTRING008(1), 1, 55, Mask_Ascii(), 2 + 4 + 64 AnsiPos 14, 16 InputStr "_", TSTRING008(2), 1, 55, Mask_Ascii(), 2 + 4 + 64 AnsiPos 14, 17 InputStr "_", TSTRING008(3), 1, 55, Mask_Ascii(), 2 + 4 + 64 AnsiPos 14, 18 InputStr "_", TSTRING008(4), 1, 55, Mask_Ascii(), 2 + 4 + 64 AnsiPos 39, 20 InputStr "_", STRING009, 1, 25, Mask_Ascii(), 2 + 4 + 64 :LABEL006 Cls Newline PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│ │" PrintLn "@X01│@X0F┌@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┐@X01│" PrintLn "@X08│@X09│ @X02A@X0F} BBS Name :@X0B " + STRING001 + "@POS:78@@X09│@X08│" PrintLn "@X08.@X01│ @X02B@X0F} Sysop :@X0B " + STRING004 + "@POS:78@@X01│@X08." PrintLn "@X08.│ @X02C@X0F} Nodes :@X0B " + STRING003 + "@POS:78@@X08│." PrintLn "@X08·. @X02D@X0F} Phone #1 :@X0B " + TSTRING002(1) + "@POS:78@@X08." PrintLn "@X08 . @X02E@X0F} Phone #2 :@X0B " + TSTRING002(2) + "@POS:78@@X08." PrintLn "@X08 · @X02F@X0F} Baud Rate :@X0B " + STRING005 + "@POS:78@@X08·" PrintLn "@X08 @X02G@X0F} Network :@X0B " + STRING006 + "@POS:78@" PrintLn "@X02 H@X0F} Software :@X0B " + STRING007 + "@POS:78@" PrintLn "@X0F @X08· @X02I@X0F} Desc #1 :@X0B " + TSTRING008(1) + "@POS:78@@X08·" PrintLn "@X08 @X0FDesc #2 :@X0B " + TSTRING008(2) + "@POS:78@" PrintLn "@X08·. @X0FDesc #3 :@X0B " + TSTRING008(3) + "@POS:78@@X08.·" PrintLn "@X08.│ @X0FDesc #4 :@X0B " + TSTRING008(4) + "@POS:78@@X08│." PrintLn "@X08.@X01│ @X02J@X0F}@X01··@X0FEditor :@X0B " + STRING009 + "@POS:78@@X01│@X08." PrintLn "@X08│@X09│ │@X08│" PrintLn "@X01│@X0F└@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┘@X01│" PrintLn "@X09│ @X02S@X0Fave / Quit @X02Letter to Edit @X02Q@X0Fuit / No Save @X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┘" Newline :LABEL007 STRING011 = "" STRING011 = Inkey() If (Upper(STRING011) == "Q") Goto LABEL003 If (Upper(STRING011) == "A") Goto LABEL008 If (Upper(STRING011) == "B") Goto LABEL009 If (Upper(STRING011) == "C") Goto LABEL010 If (Upper(STRING011) == "D") Goto LABEL011 If (Upper(STRING011) == "E") Goto LABEL012 If (Upper(STRING011) == "F") Goto LABEL013 If (Upper(STRING011) == "G") Goto LABEL014 If (Upper(STRING011) == "H") Goto LABEL015 If (Upper(STRING011) == "I") Goto LABEL016 If (Upper(STRING011) == "J") Goto LABEL017 If (Upper(STRING011) == "S") Goto LABEL018 Goto LABEL007 :LABEL008 Cls Newlines 2 PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐@X09│" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X08· Enter The New BBS Name: @POS:78@·" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘@X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘" AnsiPos 28, 6 InputStr "_", STRING001, 1, 30, Mask_Ascii(), 2 + 4 + 64 Goto LABEL006 :LABEL009 Cls Newlines 2 PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐@X09│" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X08· Enter The New Sysop's Name: @POS:78@·" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘@X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘" AnsiPos 32, 6 InputStr "_", STRING004, 1, 25, Mask_Ascii(), 2 + 4 + 64 Goto LABEL006 :LABEL010 Cls Newlines 2 PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐@X09│" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X08· Enter The New Amount Of Nodes: @POS:78@·" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘@X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘" AnsiPos 35, 6 InputStr "_", STRING003, 1, 3, Mask_Num(), 2 + 4 + 64 Goto LABEL006 :LABEL011 Cls Newlines 2 PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐@X09│" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X08· Enter The New Main BBS Number: @POS:78@·" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘@X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘" Gosub LABEL069 TSTRING002(1) = STRING031 Goto LABEL006 :LABEL012 Cls Newlines 2 PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐@X09│" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X08· Enter The New Second BBS Number: @POS:78@·" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘@X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘" Gosub LABEL070 TSTRING002(2) = STRING031 Goto LABEL006 :LABEL013 Cls Newlines 2 PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐@X09│" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X08· Enter The Highest Supported Buad Rate: @POS:78@·" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘@X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘" AnsiPos 43, 6 InputStr "_", STRING005, 1, 15, Mask_Ascii(), 2 + 4 + 64 Goto LABEL006 :LABEL014 Cls Newlines 2 PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐@X09│" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X08· Enter The Network/Network Address: @POS:78@·" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘@X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘" AnsiPos 39, 6 InputStr "_", STRING006, 1, 20, Mask_Ascii(), 2 + 4 + 64 Goto LABEL006 :LABEL015 Cls Newlines 2 PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐@X09│" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X08· Enter The Software Type And Version: @POS:78@·" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘@X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘" AnsiPos 41, 6 InputStr "_", STRING007, 1, 20, Mask_Ascii(), 2 + 4 + 64 Goto LABEL006 :LABEL016 Cls Newlines 2 PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐@X09│" PrintLn "@X08·@X01│ Enter Your New Description: │@X08·" PrintLn "@X08" PrintLn "@X08 ......................................................." PrintLn "@X08 ......................................................." PrintLn "@X08· .......................................................@POS:78@·" PrintLn "@X08·@X01│ @X08.......................................................@POS:78@@X01│@X08·" PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘@X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘" AnsiPos 4, 7 InputStr "_", TSTRING008(1), 1, 55, Mask_Ascii(), 2 + 4 + 64 AnsiPos 4, 8 InputStr "_", TSTRING008(2), 1, 55, Mask_Ascii(), 2 + 4 + 64 AnsiPos 4, 9 InputStr "_", TSTRING008(3), 1, 55, Mask_Ascii(), 2 + 4 + 64 AnsiPos 4, 10 InputStr "_", TSTRING008(4), 1, 55, Mask_Ascii(), 2 + 4 + 64 Goto LABEL006 :LABEL017 Cls Newlines 2 PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐@X09│" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X08· Enter Name Of Person Allowed To Edit Entry: @POS:78@·" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘@X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘" AnsiPos 48, 6 InputStr "_", STRING009, 1, 25, Mask_Ascii(), 2 + 4 + 64 Goto LABEL006 :LABEL018 Cls Newlines 2 PrintLn "@X0FChecking for duplicate entries..." If (Exist(STRING023)) Gosub LABEL019 Goto LABEL022 :LABEL019 BOOLEAN003 = 0 BOOLEAN004 = 0 FOpen 1, STRING023, 0, 2 FSeek 1, 0, 0 :LABEL020 If (Ferr(1)) Goto LABEL021 FRead 1, STRING012, 25 If (Ferr(1)) Goto LABEL021 FRead 1, STRING012, 8 FRead 1, STRING019, 30 FRead 1, STRING012, 25 FRead 1, STRING012, 3 FRead 1, STRING020, 14 FRead 1, STRING021, 14 FRead 1, STRING012, 15 FRead 1, STRING012, 20 FRead 1, STRING012, 20 FRead 1, STRING012, 55 FRead 1, STRING012, 55 FRead 1, STRING012, 55 FRead 1, STRING012, 55 FRead 1, STRING012, 25 If (STRING020 == "") STRING020 = "!@#$%" If (STRING021 == "") STRING021 = "!@#$%" If ((((TSTRING002(1) == STRING020) || (TSTRING002(1) == STRING021)) || (TSTRING002(2) == STRING020)) || (TSTRING002(2) == STRING021)) Then BOOLEAN003 = 1 Else Tokenize STRING019 STRING017 = TokCount() For STRING016 = 1 To STRING017 GetToken STRING012 STRING012 = Upper(STRING012) If (((((STRING012 <> TSTRING010(1)) && (STRING012 <> TSTRING010(2))) && (STRING012 <> TSTRING010(3))) && (STRING012 <> TSTRING010(4))) && (STRING012 <> TSTRING010(5))) Then If (InStr(Upper(STRING001), STRING012) <> 0) Then BOOLEAN004 = 1 Break Endif Endif Next If (BOOLEAN004) Goto LABEL021 Goto LABEL020 Endif :LABEL021 FClose 1 If (BOOLEAN005) BOOLEAN004 = 0 If (BOOLEAN003) Then Newlines 2 PrintLn "@X0EOne of the phone numbers you entered duplicates a number already in the" PrintLn "@X0Edatabase. @X0CYou will not be able to save this entry." Newline Wait Goto LABEL003 Endif If (BOOLEAN004) Then BOOLEAN005 = 1 Newlines 2 PrintLn "@X0EThe BBS name you entered duplicates or partially duplicates a bbs already" PrintLn "in the database. @X0CPlease review your entry before saving!." Newline PrintLn "@X02Your Entry : @X0A" + STRING001 PrintLn "@X03Matching Entry : @X0B" + STRING019 PrintLn "@X04Matching Word : @X0C" + STRING012 Newline Wait Goto LABEL006 Endif Return :LABEL022 Log "BBS LISTER : Saved - " + STRING001, 0 If (Exist(STRING023)) Goto LABEL023 FCreate 1, STRING023, 1, 3 Goto LABEL024 :LABEL023 FOpen 1, STRING023, 1, 2 FSeek 1, 0, 2 :LABEL024 FWrite 1, U_Name(), 25 FWrite 1, String(Date()), 8 FWrite 1, STRING001, 30 FWrite 1, STRING004, 25 FWrite 1, STRING003, 3 FWrite 1, TSTRING002(1), 14 FWrite 1, TSTRING002(2), 14 FWrite 1, STRING005, 15 FWrite 1, STRING006, 20 FWrite 1, STRING007, 20 FWrite 1, TSTRING008(1), 55 FWrite 1, TSTRING008(2), 55 FWrite 1, TSTRING008(3), 55 FWrite 1, TSTRING008(4), 55 FWrite 1, STRING009, 25 FClose 1 Newlines 2 PrintLn "@X0FThe new BBS entry has been saved." Newline Wait Goto LABEL003 :LABEL025 If (Exist(STRING023)) Goto LABEL026 PrintLn "@X0FSorry but there are not any bbses listed at this time." Newline Wait Goto LABEL003 :LABEL026 Cls Newlines 2 PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐@X09│" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X08· Detailed Listing Short Listing Return @POS:78@·" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘@X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘" Newlines 2 :LABEL027 STRING011 = "" STRING011 = Inkey() If (Upper(STRING011) == "D") Goto LABEL031 If (Upper(STRING011) == "S") Goto LABEL028 If (Upper(STRING011) == "R") Goto LABEL003 Goto LABEL027 :LABEL028 Cls PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙ ──@X01──@X09───@X01──@X08── ∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│ @X0FBBS Name Baud Rate Phone Nodes @X09│" PrintLn "@X01│@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ─┬─ ──@X01──@X09─@X01──@X08── ∙ ─┬─· ∙∙ ∙ · ─┬─∙∙──@X01──@X09──@X0F┐@X01│" FOpen 1, STRING023, 0, 0 FSeek 1, 0, 0 :LABEL029 If (Ferr(1)) Goto LABEL030 FRead 1, STRING012, 25 If (Ferr(1)) Goto LABEL030 FRead 1, STRING012, 8 FRead 1, STRING001, 30 FRead 1, STRING004, 25 FRead 1, STRING003, 3 FRead 1, TSTRING002(1), 14 FRead 1, TSTRING002(2), 14 FRead 1, STRING005, 15 FRead 1, STRING006, 20 FRead 1, STRING007, 20 FRead 1, TSTRING008(1), 55 FRead 1, TSTRING008(2), 55 FRead 1, TSTRING008(3), 55 FRead 1, TSTRING008(4), 55 FRead 1, STRING009, 25 PrintLn "@X09││@X02 " + STRING001 + "@POS:33@@X09│ @X02 " + STRING005 + "@POS:51@@X09│ @X02" + TSTRING002(1) + "@POS:68@@X09│ @X02 " + STRING003 + "@POS:77@ @X09││@X0F" Goto LABEL029 :LABEL030 PrintLn "@X01│@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ─┴─ ──@X01──@X09─@X01──@X08── ∙ ─┴─· ∙∙ ∙ · ─┴─∙∙──@X01──@X09──@X0F┘@X01│" PrintLn "@X09│ │" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙ ──@X01──@X09───@X01──@X08── ∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘" FClose 1 Wait Goto LABEL003 :LABEL031 FOpen 1, STRING023, 0, 0 STRING016 = FileInf(STRING023, 4) / INTEGER001 STRING015 = 1 FSeek 1, 0, 0 :LABEL032 If (Ferr(1)) Goto LABEL034 FRead 1, STRING013, 25 FRead 1, STRING014, 8 FRead 1, STRING001, 30 FRead 1, STRING004, 25 FRead 1, STRING003, 3 FRead 1, TSTRING002(1), 14 FRead 1, TSTRING002(2), 14 FRead 1, STRING005, 15 FRead 1, STRING006, 20 FRead 1, STRING007, 20 FRead 1, TSTRING008(1), 55 FRead 1, TSTRING008(2), 55 FRead 1, TSTRING008(3), 55 FRead 1, TSTRING008(4), 55 FRead 1, STRING009, 25 Cls PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│ @X0FTDL BBS Lister @X86DETAILED LISTING @X0FVersion 0.1ß 1995 @X09│" PrintLn "@X01│@X0F┌@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┐@X01│" PrintLn "@X08│@X09│ @X06BBS Name : @X02" + STRING001 + "@POS:78@@X09│@X08│" PrintLn "@X08.@X01│ @X06Sysop : @X02" + STRING004 + "@POS:78@@X01│@X08." PrintLn "@X08.│ @X06Nodes : @X02" + STRING003 + "@POS:78@@X08│." PrintLn "@X08·. @X06Phone #1 : @X02" + TSTRING002(1) + "@POS:78@@X08." PrintLn "@X08 . @X06Phone #2 : @X02" + TSTRING002(2) + "@POS:78@@X08." PrintLn "@X08 · @X06Baud : @X02" + STRING005 + "@POS:78@@X08·" PrintLn "@X08 @X06Network : @X02" + STRING006 + "@POS:78@" PrintLn "@X06 Software : @X02" + STRING007 + "@POS:78@" PrintLn "@X08·. @X06Description : @X02 " + TSTRING008(1) + "@POS:78@@X08.·" PrintLn "@X08.│ @X06: @X02 " + TSTRING008(2) + "@POS:78@@X08│." PrintLn "@X08.@X01│ @X06: @X02 " + TSTRING008(3) + "@POS:78@@X01│@X08." PrintLn "@X08│@X09│ @X06: @X02 " + TSTRING008(4) + "@POS:78@@X09│@X08│" PrintLn "@X01│@X0F└@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┘@X01│" PrintLn "@X09│ @X0E{@X02N@X0E}@X03ext @X0E{@X02P@X0E}@X03revious @X0E{@X04Q@X0E}@X03uit @X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┘" PrintLn "" PrintLn "@X0F @X05Authored by : @X02" + STRING013 + "@POS:45@@X05Date : @X02" + STRING014 + "@POS:71@@X02" + STRING015 + " @X05of @X02" + STRING016 + "@POS:78@@X0F" Newline :LABEL033 STRING011 = "" STRING011 = Inkey() Select Case (Upper(STRING011)) Case "N" If (STRING015 == STRING016) Goto LABEL033 Inc STRING015 Case "P" If (STRING015 < 2) Goto LABEL033 Dec STRING015 FSeek 1, -INTEGER001 * 2, 1 Case Else If (Upper(STRING011) == "Q") Then FClose 1 Goto LABEL003 Endif Goto LABEL033 End Select Goto LABEL032 :LABEL034 FClose 1 Goto LABEL003 :LABEL035 If (Exist(STRING023)) Goto LABEL036 PrintLn "@X0FSorry but there are not any bbses listed at this time." Newline Wait Goto LABEL003 :LABEL036 Log "BBS LISTER : Download BBS List", 0 FOpen 1, STRING023, 0, 0 FSeek 1, 0, 0 FCreate 2, STRING024, 1, 3 :LABEL037 If (Ferr(1)) Goto LABEL038 FRead 1, STRING013, 25 If (Ferr(1)) Goto LABEL038 FRead 1, STRING014, 8 FRead 1, STRING001, 30 FRead 1, STRING004, 25 FRead 1, STRING003, 3 FRead 1, TSTRING002(1), 14 FRead 1, TSTRING002(2), 14 FRead 1, STRING005, 15 FRead 1, STRING006, 20 FRead 1, STRING007, 20 FRead 1, TSTRING008(1), 55 FRead 1, TSTRING008(2), 55 FRead 1, TSTRING008(3), 55 FRead 1, TSTRING008(4), 55 FRead 1, STRING009, 25 FPutLn 2, "══════════════════════════════════════════════════════════════════════════" FPutLn 2, "BBS Name : " + STRING001 FPutLn 2, "Sysop : " + STRING004 FPutLn 2, "Nodes : " + STRING003 FPutLn 2, "Phone #1 : " + TSTRING002(1) FPutLn 2, "Phone #2 : " + TSTRING002(2) FPutLn 2, "Baud : " + STRING005 FPutLn 2, "Software : " + STRING007 FPutLn 2, "Description : " + TSTRING008(1) FPutLn 2, " : " + TSTRING008(2) FPutLn 2, " : " + TSTRING008(3) FPutLn 2, " : " + TSTRING008(4) FPutLn 2, "──────────────────────────────────────────────────────────────────────────" FPutLn 2, "Authored by : " + STRING013 FPutLn 2, "Date : " + STRING014 FPutLn 2, "══════════════════════════════════════════════════════════════════════════" FPutLn 2, "" FPutLn 2, "" Goto LABEL037 :LABEL038 FClose 1 FClose 2 Download "LISTER.TXT" Goto LABEL003 :LABEL039 BOOLEAN001 = 0 BOOLEAN002 = 0 If (Exist(STRING023)) Goto LABEL040 PrintLn "@X0FSorry but there are not any bbses listed at this time." Newline Wait Goto LABEL003 :LABEL040 PrintLn "@X0FSearching for records you are allowed to edit..." STRING025 = PPEPath() + "$EDIT$.0" If (Exist(STRING025)) Then For STRING017 = 1 To 999 If (Exist(PPEPath() + "$EDIT$." + STRING017)) Continue STRING025 = PPEPath() + "$EDIT$." + STRING017 Break Next Endif STRING015 = 0 FOpen 1, STRING023, 0, 0 FSeek 1, 0, 0 FCreate 2, STRING025, 2, 3 :LABEL041 If (Ferr(1)) Goto LABEL042 FRead 1, STRING013, 25 If (Ferr(1)) Goto LABEL042 FRead 1, STRING014, 8 FRead 1, STRING001, 30 FRead 1, STRING004, 25 FRead 1, STRING003, 3 FRead 1, TSTRING002(1), 14 FRead 1, TSTRING002(2), 14 FRead 1, STRING005, 15 FRead 1, STRING006, 20 FRead 1, STRING007, 20 FRead 1, TSTRING008(1), 55 FRead 1, TSTRING008(2), 55 FRead 1, TSTRING008(3), 55 FRead 1, TSTRING008(4), 55 FRead 1, STRING009, 25 Inc STRING015 If (((U_Name() == STRING013) || (U_Name() == Upper(STRING009))) || (U_Sec >= "")) Then FWrite 2, STRING015, 7 FWrite 2, STRING013, 25 FWrite 2, STRING014, 8 FWrite 2, STRING001, 30 FWrite 2, STRING004, 25 FWrite 2, STRING003, 3 FWrite 2, TSTRING002(1), 14 FWrite 2, TSTRING002(2), 14 FWrite 2, STRING005, 15 FWrite 2, STRING006, 20 FWrite 2, STRING007, 20 FWrite 2, TSTRING008(1), 55 FWrite 2, TSTRING008(2), 55 FWrite 2, TSTRING008(3), 55 FWrite 2, TSTRING008(4), 55 FWrite 2, STRING009, 25 Endif Goto LABEL041 :LABEL042 FClose 1 FClose 2 STRING016 = FileInf(STRING025, 4) / INTEGER002 If (STRING016 == 0) Then Delete STRING025 Newline PrintLn "@X0FSorry there are no entries for you to edit." Newline Wait Goto LABEL003 Endif STRING015 = 1 FOpen 2, STRING025, 2, 3 FSeek 2, 0, 0 :LABEL043 If (Ferr(2)) Goto LABEL047 FRead 2, STRING018, 7 FRead 2, STRING013, 25 FRead 2, STRING014, 8 FRead 2, STRING001, 30 FRead 2, STRING004, 25 FRead 2, STRING003, 3 FRead 2, TSTRING002(1), 14 FRead 2, TSTRING002(2), 14 FRead 2, STRING005, 15 FRead 2, STRING006, 20 FRead 2, STRING007, 20 FRead 2, TSTRING008(1), 55 FRead 2, TSTRING008(2), 55 FRead 2, TSTRING008(3), 55 FRead 2, TSTRING008(4), 55 FRead 2, STRING009, 25 :LABEL044 Cls PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│ @X0FTDL BBS Lister @X86EDITOR @X0FVersion 0.1ß 1995 @X09│" PrintLn "@X01│@X0F┌@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┐@X01│" PrintLn "@X08│@X09│ @X06BBS Name : @X02" + STRING001 + "@POS:78@@X09│@X08│" PrintLn "@X08.@X01│ @X06Sysop : @X02" + STRING004 + "@POS:78@@X01│@X08." PrintLn "@X08.│ @X06Nodes : @X02" + STRING003 + "@POS:78@@X08│." PrintLn "@X08·. @X06Phone #1 : @X02" + TSTRING002(1) + "@POS:78@@X08." PrintLn "@X08 . @X06Phone #2 : @X02" + TSTRING002(2) + "@POS:78@@X08." PrintLn "@X08 · @X06Baud : @X02" + STRING005 + "@POS:78@@X08·" PrintLn "@X08 @X06Network : @X02" + STRING006 + "@POS:78@" PrintLn "@X06 Software : @X02" + STRING007 + "@POS:78@" PrintLn "@X08·. @X06Description : @X02 " + TSTRING008(1) + "@POS:78@@X08.·" PrintLn "@X08.│ @X06: @X02 " + TSTRING008(2) + "@POS:78@@X08│." PrintLn "@X08.@X01│ @X06: @X02 " + TSTRING008(3) + "@POS:78@@X01│@X08." PrintLn "@X08│@X09│ @X06: @X02 " + TSTRING008(4) + "@POS:78@@X09│@X08│" PrintLn "@X01│@X0F└@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┘@X01│" PrintLn "@X09│ @X0E{@X02N@X0E}@X03ext @X0E{@X02P@X0E}@X03rev @X0E{@X02E@X0E}@X03dit @X0E{@X02R@X0E}@X03emove @X0E{@X04Q@X0E}@X03uit @POS:78@ @X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┘" PrintLn "" PrintLn "@X0F @X05Authored by : @X02" + STRING013 + "@POS:45@@X05Date : @X02" + STRING014 + "@POS:71@@X02" + STRING015 + " @X05of @X02" + STRING016 + "@POS:78@@X0F" Newline :LABEL045 STRING011 = "" STRING011 = Inkey() Select Case (Upper(STRING011)) Case "N" If (STRING015 == STRING016) Goto LABEL045 Inc STRING015 Case "P" If (STRING015 < 2) Goto LABEL045 Dec STRING015 FSeek 2, -INTEGER002 * 2, 1 Case Else If (Upper(STRING011) == "E") Then Goto LABEL048 Endif If (Upper(STRING011) == "R") Then Goto LABEL061 Endif If (Upper(STRING011) == "Q") Then FClose 2 Gosub LABEL062 Delete STRING025 Goto LABEL003 Endif Goto LABEL045 End Select :LABEL046 Goto LABEL043 :LABEL047 FClose 2 Goto LABEL003 :LABEL048 Cls Newline PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│ │" PrintLn "@X01│@X0F┌@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┐@X01│" PrintLn "@X08│@X09│ @X02A@X0F} BBS Name :@X0B " + STRING001 + "@POS:78@@X09│@X08│" PrintLn "@X08.@X01│ @X02B@X0F} Sysop :@X0B " + STRING004 + "@POS:78@@X01│@X08." PrintLn "@X08.│ @X02C@X0F} Nodes :@X0B " + STRING003 + "@POS:78@@X08│." PrintLn "@X08·. @X02D@X0F} Phone #1 :@X0B " + TSTRING002(1) + "@POS:78@@X08." PrintLn "@X08 . @X02E@X0F} Phone #2 :@X0B " + TSTRING002(2) + "@POS:78@@X08." PrintLn "@X08 · @X02F@X0F} Baud Rate :@X0B " + STRING005 + "@POS:78@@X08·" PrintLn "@X08 @X02G@X0F} Network :@X0B " + STRING006 + "@POS:78@" PrintLn "@X02 H@X0F} Software :@X0B " + STRING007 + "@POS:78@" PrintLn "@X0F @X08· @X02I@X0F} Desc #1 :@X0B " + TSTRING008(1) + "@POS:78@@X08·" PrintLn "@X08 @X0FDesc #2 :@X0B " + TSTRING008(2) + "@POS:78@" PrintLn "@X08·. @X0FDesc #3 :@X0B " + TSTRING008(3) + "@POS:78@@X08.·" PrintLn "@X08.│ @X0FDesc #4 :@X0B " + TSTRING008(4) + "@POS:78@@X08│." PrintLn "@X08.@X01│ @X02J@X0F}@X01··@X0FEditor :@X0B " + STRING009 + "@POS:78@@X01│@X08." PrintLn "@X08│@X09│ │@X08│" PrintLn "@X01│@X0F└@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┘@X01│" PrintLn "@X09│ @X02S@X0Fave / Quit @X02Letter to Edit @X02Q@X0Fuit / No Save @X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · · ∙ ∙∙──@X01──@X09──@X0F┘" Newline :LABEL049 STRING011 = "" STRING011 = Inkey() If (Upper(STRING011) == "Q") Then FSeek 2, -INTEGER002, 1 Goto LABEL046 Endif If (Upper(STRING011) == "A") Goto LABEL050 If (Upper(STRING011) == "B") Goto LABEL051 If (Upper(STRING011) == "C") Goto LABEL052 If (Upper(STRING011) == "D") Goto LABEL053 If (Upper(STRING011) == "E") Goto LABEL054 If (Upper(STRING011) == "F") Goto LABEL055 If (Upper(STRING011) == "G") Goto LABEL056 If (Upper(STRING011) == "H") Goto LABEL057 If (Upper(STRING011) == "I") Goto LABEL058 If (Upper(STRING011) == "J") Goto LABEL059 If (Upper(STRING011) == "S") Goto LABEL060 Goto LABEL049 :LABEL050 Cls Newlines 2 PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐@X09│" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X08· Enter The New BBS Name: @POS:78@·" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘@X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘" AnsiPos 28, 6 InputStr "_", STRING001, 1, 30, Mask_Ascii(), 2 + 4 + 64 Goto LABEL048 :LABEL051 Cls Newlines 2 PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐@X09│" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X08· Enter The New Sysop's Name: @POS:78@·" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘@X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘" AnsiPos 32, 6 InputStr "_", STRING004, 1, 25, Mask_Ascii(), 2 + 4 + 64 Goto LABEL048 :LABEL052 Cls Newlines 2 PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐@X09│" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X08· Enter The New Amount Of Nodes: @POS:78@·" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘@X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘" AnsiPos 35, 6 InputStr "_", STRING003, 1, 3, Mask_Num(), 2 + 4 + 64 Goto LABEL048 :LABEL053 Cls Newlines 2 PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐@X09│" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X08· Enter The New Main BBS Number: @POS:78@·" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘@X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘" Gosub LABEL069 TSTRING002(1) = STRING031 Goto LABEL048 :LABEL054 Cls Newlines 2 PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐@X09│" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X08· Enter The New Second BBS Number: @POS:78@·" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘@X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘" Gosub LABEL070 TSTRING002(2) = STRING031 Goto LABEL048 :LABEL055 Cls Newlines 2 PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐@X09│" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X08· Enter The Highest Supported Buad Rate: @POS:78@·" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘@X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘" AnsiPos 43, 6 InputStr "_", STRING005, 1, 15, Mask_Ascii(), 2 + 4 + 64 Goto LABEL048 :LABEL056 Cls Newlines 2 PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐@X09│" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X08· Enter The Network/Network Address: @POS:78@·" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘@X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘" AnsiPos 39, 6 InputStr "_", STRING006, 1, 20, Mask_Ascii(), 2 + 4 + 64 Goto LABEL048 :LABEL057 Cls Newlines 2 PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐@X09│" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X08· Enter The Software Type And Version: @POS:78@·" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘@X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘" AnsiPos 41, 6 InputStr "_", STRING007, 1, 20, Mask_Ascii(), 2 + 4 + 64 Goto LABEL048 :LABEL058 Cls Newlines 2 PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐@X09│" PrintLn "@X08·@X01│ Enter Your New Description: │@X08·" PrintLn "@X08" PrintLn "@X08 ......................................................." PrintLn "@X08 ......................................................." PrintLn "@X08· .......................................................@POS:78@·" PrintLn "@X08·@X01│ @X08.......................................................@POS:78@@X01│@X08·" PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘@X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘" AnsiPos 4, 7 InputStr "_", TSTRING008(1), 1, 55, Mask_Ascii(), 2 + 4 + 64 AnsiPos 4, 8 InputStr "_", TSTRING008(2), 1, 55, Mask_Ascii(), 2 + 4 + 64 AnsiPos 4, 9 InputStr "_", TSTRING008(3), 1, 55, Mask_Ascii(), 2 + 4 + 64 AnsiPos 4, 10 InputStr "_", TSTRING008(4), 1, 55, Mask_Ascii(), 2 + 4 + 64 Goto LABEL048 :LABEL059 Cls Newlines 2 PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐" PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┐@X09│" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X08· Enter Name Of Person Allowed To Edit Entry: @POS:78@·" PrintLn "@X08·@X01│ │@X08·" PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘@X09│" PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙ · ∙∙ ∙ · ∙ ∙∙──@X01──@X09──@X0F┘" AnsiPos 48, 6 InputStr "_", STRING009, 1, 25, Mask_Ascii(), 2 + 4 + 64 Goto LABEL048 :LABEL060 Log "BBS LISTER : Saved Edit - " + STRING001, 0 BOOLEAN001 = 1 FSeek 2, -INTEGER002, 1 FWrite 2, STRING018, 7 FWrite 2, STRING013, 25 FWrite 2, STRING014, 8 FWrite 2, STRING001, 30 FWrite 2, STRING004, 25 FWrite 2, STRING003, 3 FWrite 2, TSTRING002(1), 14 FWrite 2, TSTRING002(2), 14 FWrite 2, STRING005, 15 FWrite 2, STRING006, 20 FWrite 2, STRING007, 20 FWrite 2, TSTRING008(1), 55 FWrite 2, TSTRING008(2), 55 FWrite 2, TSTRING008(3), 55 FWrite 2, TSTRING008(4), 55 FWrite 2, STRING009, 25 Goto LABEL044 :LABEL061 Log "BBS LISTER : Removed - " + STRING001, 0 BOOLEAN002 = 1 BOOLEAN001 = 1 FSeek 2, -INTEGER002, 1 FWrite 2, STRING018, 7 FWrite 2, "", 25 FWrite 2, "", 8 FWrite 2, "** REMOVED **", 30 FWrite 2, "", 25 FWrite 2, "", 3 FWrite 2, "", 14 FWrite 2, "", 14 FWrite 2, "", 15 FWrite 2, "", 20 FWrite 2, "", 20 FWrite 2, "", 55 FWrite 2, "", 55 FWrite 2, "", 55 FWrite 2, "", 55 FWrite 2, "", 25 STRING013 = "" STRING014 = "" STRING001 = "** REMOVED **" STRING004 = "" STRING003 = "" TSTRING002(1) = "" TSTRING002(2) = "" STRING005 = "" STRING006 = "" STRING007 = "" TSTRING008(1) = "" TSTRING008(2) = "" TSTRING008(3) = "" TSTRING008(4) = "" STRING009 = "" Goto LABEL044 :LABEL062 If (!BOOLEAN001) Return FOpen 1, STRING023, 2, 3 FOpen 2, STRING025, 2, 3 :LABEL063 If (Ferr(2)) Goto LABEL064 FRead 2, STRING018, 7 If (Ferr(2)) Goto LABEL064 FRead 2, STRING013, 25 FRead 2, STRING014, 8 FRead 2, STRING001, 30 FRead 2, STRING004, 25 FRead 2, STRING003, 3 FRead 2, TSTRING002(1), 14 FRead 2, TSTRING002(2), 14 FRead 2, STRING005, 15 FRead 2, STRING006, 20 FRead 2, STRING007, 20 FRead 2, TSTRING008(1), 55 FRead 2, TSTRING008(2), 55 FRead 2, TSTRING008(3), 55 FRead 2, TSTRING008(4), 55 FRead 2, STRING009, 25 FSeek 1, INTEGER001 * (STRING018 - 1), 0 FWrite 1, STRING013, 25 FWrite 1, String(Date()), 8 FWrite 1, STRING001, 30 FWrite 1, STRING004, 25 FWrite 1, STRING003, 3 FWrite 1, TSTRING002(1), 14 FWrite 1, TSTRING002(2), 14 FWrite 1, STRING005, 15 FWrite 1, STRING006, 20 FWrite 1, STRING007, 20 FWrite 1, TSTRING008(1), 55 FWrite 1, TSTRING008(2), 55 FWrite 1, TSTRING008(3), 55 FWrite 1, TSTRING008(4), 55 FWrite 1, STRING009, 25 Goto LABEL063 :LABEL064 FClose 1 FClose 2 If (!BOOLEAN002) Return FOpen 1, STRING023, 0, 3 FCreate 2, STRING026, 2, 3 :LABEL065 If (Ferr(1)) Goto LABEL066 FRead 1, STRING013, 25 If (Ferr(1)) Goto LABEL066 FRead 1, STRING014, 8 FRead 1, STRING001, 30 FRead 1, STRING004, 25 FRead 1, STRING003, 3 FRead 1, TSTRING002(1), 14 FRead 1, TSTRING002(2), 14 FRead 1, STRING005, 15 FRead 1, STRING006, 20 FRead 1, STRING007, 20 FRead 1, TSTRING008(1), 55 FRead 1, TSTRING008(2), 55 FRead 1, TSTRING008(3), 55 FRead 1, TSTRING008(4), 55 FRead 1, STRING009, 25 If (STRING001 <> "** REMOVED **") Then FWrite 2, STRING013, 25 FWrite 2, STRING014, 8 FWrite 2, STRING001, 30 FWrite 2, STRING004, 25 FWrite 2, STRING003, 3 FWrite 2, TSTRING002(1), 14 FWrite 2, TSTRING002(2), 14 FWrite 2, STRING005, 15 FWrite 2, STRING006, 20 FWrite 2, STRING007, 20 FWrite 2, TSTRING008(1), 55 FWrite 2, TSTRING008(2), 55 FWrite 2, TSTRING008(3), 55 FWrite 2, TSTRING008(4), 55 FWrite 2, STRING009, 25 Endif Goto LABEL065 :LABEL066 FClose 1 FClose 2 Delete STRING023 Rename STRING026, STRING023 If (FileInf(STRING023, 4) == 0) Delete STRING023 Return :LABEL067 STRING029 = 0 BOOLEAN006 = 0 BOOLEAN007 = 0 STRING028 = "@X09(@X02" AnsiPos 26, 8 Print STRING028 Goto LABEL071 :LABEL068 STRING029 = 0 BOOLEAN006 = 0 BOOLEAN007 = 0 STRING028 = "@X09(@X02" AnsiPos 26, 9 Print STRING028 Goto LABEL071 :LABEL069 STRING029 = 0 BOOLEAN006 = 0 BOOLEAN007 = 0 STRING028 = "@X09(@X02" AnsiPos 35, 6 Print STRING028 Goto LABEL071 :LABEL070 STRING029 = 0 BOOLEAN006 = 0 BOOLEAN007 = 0 STRING028 = "@X09(@X02" AnsiPos 37, 6 Print STRING028 :LABEL071 STRING027 = "" STRING027 = Inkey() If ((STRING027 == Chr(8)) && (Len(STRING028) > 9)) Then STRING030 = Len(StripAtx(STRING028)) Dec STRING029 STRING028 = Mid(STRING028, 1, Len(STRING028) - 1) If (Len(STRING028) == 21) Then STRING028 = Mid(STRING028, 1, Len(STRING028) - 10) BOOLEAN006 = 0 Goto LABEL072 Endif If (Len(STRING028) == 33) Then STRING028 = Mid(STRING028, 1, Len(STRING028) - 9) BOOLEAN007 = 0 Endif :LABEL072 Backup STRING030 Print " " Backup 20 Print STRING028 Endif If ((((((((((STRING027 == "0") || (STRING027 == "1")) || (STRING027 == "2")) || (STRING027 == "3")) || (STRING027 == "4")) || (STRING027 == "5")) || (STRING027 == "6")) || (STRING027 == "7")) || (STRING027 == "8")) || (STRING027 == "9")) Then If (STRING029 == 10) Goto LABEL071 STRING030 = Len(StripAtx(STRING028)) Inc STRING029 STRING028 = STRING028 + STRING027 Backup STRING030 Print STRING028 Endif If ((STRING029 == 3) && (BOOLEAN006 == 0)) Then STRING030 = Len(StripAtx(STRING028)) BOOLEAN006 = 1 STRING028 = STRING028 + "@X09) @X02" Backup STRING030 Print STRING028 ElseIf ((STRING029 == 6) && (BOOLEAN007 == 0)) Then STRING030 = Len(StripAtx(STRING028)) BOOLEAN007 = 1 STRING028 = STRING028 + "@X09-@X02" Backup STRING030 Print STRING028 Endif If ((STRING027 == Chr(13)) && (Len(STRING028) <> 38)) Then STRING028 = "" Else If ((STRING027 == Chr(13)) && (Len(STRING028) == 38)) Goto LABEL073 Goto LABEL071 Endif :LABEL073 STRING031 = StripAtx(STRING028) PrintLn Return :LABEL074 Log "BBS LISTER : Exiting", 0 ;------------------------------------------------------------------------------ ; ; Usage report (before postprocessing) ; ; ■ Statements used : ; ; 29 Cls ; 8 Wait ; 163 Goto ; 128 Let ; 9 Print ; 318 PrintLn ; 94 If ; 4 FCreate ; 11 FOpen ; 16 FClose ; 3 FGet ; 18 FPutLn ; 1 GetUser ; 4 Delete ; 6 Log ; 33 InputStr ; 8 Gosub ; 5 Return ; 2 Delay ; 4 Inc ; 3 Dec ; 16 Newline ; 29 Newlines ; 1 Tokenize ; 1 GetToken ; 37 AnsiPos ; 5 Backup ; 1 Rename ; 13 FSeek ; 122 FRead ; 93 FWrite ; 1 Download ; ; ; ■ Functions used : ; ; 5 - ; 7 * ; 3 / ; 233 + ; 4 - ; 73 == ; 9 <> ; 5 < ; 3 <= ; 1 > ; 7 >= ; 31 ! ; 15 && ; 17 || ; 14 Len( ; 43 Upper() ; 4 Mid() ; 14 Ferr() ; 3 Chr() ; 1 Asc() ; 1 InStr() ; 2 Date() ; 3 U_Name() ; 5 StripAtx() ; 2 Strip() ; 7 Inkey() ; 2 String() ; 3 Mask_Num() ; 30 Mask_Ascii() ; 9 PPEPath() ; 8 Exist() ; 3 FileInf() ; 1 TokCount() ; ;------------------------------------------------------------------------------ ; ; Analysis flags : No flag ; ;------------------------------------------------------------------------------ ; ; Postprocessing report ; ; 3 For/Next ; 0 While/EndWhile ; 22 If/Then or If/Then/Else ; 2 Select Case ; ;------------------------------------------------------------------------------ ; AEGiS Corp - Break the routines, code against the machines! ;------------------------------------------------------------------------------