HPAVC

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

/ HPAVC / HPAVC CD-ROM.iso / pc / PWAPCP01.ZIP / TDLBBS01 / TDLBBS01.ZIP / TDL_BBS.PPX < prev

Wrap

Text File | 1995-08-31 | 63.1 KB | 1,338 lines

String STRING001 String TABLESTRING002(2) String STRING003 String STRING004 String STRING005 String STRING006 String STRING007 String TABLESTRING008(4) String STRING009 String TABLESTRING010(5) String STRING011 String STRING012 String STRING013 String STRING014 String STRING015 String STRING016 String STRING017 String STRING018 String STRING019 String STRING020 String STRING021 Integer INTEGER001 Integer INTEGER002 Integer INTEGER003 Integer INTEGER004 Integer INTEGER005 Integer INTEGER006 Integer INTEGER007 Boolean BOOLEAN001 Boolean BOOLEAN002 Boolean BOOLEAN003 Boolean BOOLEAN004 Boolean BOOLEAN005 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 Boolean BOOLEAN006 Boolean BOOLEAN007 ;------------------------------------------------------------------------------ TABLESTRING010(1) = "THE" TABLESTRING010(2) = "IN" TABLESTRING010(3) = "A" TABLESTRING010(4) = "OF" TABLESTRING010(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 LABEL000 Goto LABEL001 :LABEL000 STRING032 = "" STRING033 = "" INTEGER006 = "" FOpen 1, PpePath() + "TDL_BBS.KEY", 0, 2 FGet 1, STRING032 FGet 1, STRING033 FGet 1, INTEGER003 FClose 1 INTEGER007 = 1 :LABEL003 If (!(((1 < 0) && (INTEGER007 >= 103)) || ((1 >= 0) && (INTEGER007 <= 103)))) Goto LABEL002 STRING034 = Mid(STRING032 + STRING033, INTEGER007, 1) INTEGER005 = Asc(STRING034) INTEGER006 = INTEGER006 + INTEGER005 INTEGER007 = INTEGER007 + 1 Goto LABEL003 :LABEL002 INTEGER004 = (INTEGER006 * Len(Strip(STRING032, " "))) * 63 If (!(INTEGER003 <> INTEGER004)) Goto LABEL001 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 Goto LABEL004 :LABEL001 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 LABEL004 :LABEL004 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 :LABEL010 STRING011 = "" STRING011 = Inkey() If ((Upper(STRING011) == "A")) Goto LABEL005 If ((Upper(STRING011) == "V")) Goto LABEL006 If ((Upper(STRING011) == "D")) Goto LABEL007 If ((Upper(STRING011) == "E")) Goto LABEL008 If ((Upper(STRING011) == "Q")) Goto LABEL009 Goto LABEL010 :LABEL005 BOOLEAN005 = 0 STRING001 = "" TABLESTRING002(1) = "" TABLESTRING002(2) = "" STRING003 = "" STRING004 = "" STRING005 = "" STRING006 = "" STRING007 = "" TABLESTRING008(1) = "" TABLESTRING008(2) = "" TABLESTRING008(3) = "" TABLESTRING008(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 LABEL011 TABLESTRING002(1) = STRING031 Gosub LABEL012 TABLESTRING002(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 "_", TABLESTRING008(1), 1, 55, Mask_Ascii(), 2 + 4 + 64 AnsiPos 14, 16 InputStr "_", TABLESTRING008(2), 1, 55, Mask_Ascii(), 2 + 4 + 64 AnsiPos 14, 17 InputStr "_", TABLESTRING008(3), 1, 55, Mask_Ascii(), 2 + 4 + 64 AnsiPos 14, 18 InputStr "_", TABLESTRING008(4), 1, 55, Mask_Ascii(), 2 + 4 + 64 AnsiPos 39, 20 InputStr "_", STRING009, 1, 25, Mask_Ascii(), 2 + 4 + 64 :LABEL025 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 " + TABLESTRING002(1) + "@POS:78@@X08." PrintLn "@X08 . @X02E@X0F} Phone #2 :@X0B " + TABLESTRING002(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 " + TABLESTRING008(1) + "@POS:78@@X08·" PrintLn "@X08 @X0FDesc #2 :@X0B " + TABLESTRING008(2) + "@POS:78@" PrintLn "@X08·. @X0FDesc #3 :@X0B " + TABLESTRING008(3) + "@POS:78@@X08.·" PrintLn "@X08.│ @X0FDesc #4 :@X0B " + TABLESTRING008(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 :LABEL024 STRING011 = "" STRING011 = Inkey() If ((Upper(STRING011) == "Q")) Goto LABEL004 If ((Upper(STRING011) == "A")) Goto LABEL013 If ((Upper(STRING011) == "B")) Goto LABEL014 If ((Upper(STRING011) == "C")) Goto LABEL015 If ((Upper(STRING011) == "D")) Goto LABEL016 If ((Upper(STRING011) == "E")) Goto LABEL017 If ((Upper(STRING011) == "F")) Goto LABEL018 If ((Upper(STRING011) == "G")) Goto LABEL019 If ((Upper(STRING011) == "H")) Goto LABEL020 If ((Upper(STRING011) == "I")) Goto LABEL021 If ((Upper(STRING011) == "J")) Goto LABEL022 If ((Upper(STRING011) == "S")) Goto LABEL023 Goto LABEL024 :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 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 LABEL025 :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 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 LABEL025 :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 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 LABEL025 :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│ │@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 LABEL026 TABLESTRING002(1) = STRING031 Goto LABEL025 :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 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 LABEL027 TABLESTRING002(2) = STRING031 Goto LABEL025 :LABEL018 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 LABEL025 :LABEL019 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 LABEL025 :LABEL020 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 LABEL025 :LABEL021 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 "_", TABLESTRING008(1), 1, 55, Mask_Ascii(), 2 + 4 + 64 AnsiPos 4, 8 InputStr "_", TABLESTRING008(2), 1, 55, Mask_Ascii(), 2 + 4 + 64 AnsiPos 4, 9 InputStr "_", TABLESTRING008(3), 1, 55, Mask_Ascii(), 2 + 4 + 64 AnsiPos 4, 10 InputStr "_", TABLESTRING008(4), 1, 55, Mask_Ascii(), 2 + 4 + 64 Goto LABEL025 :LABEL022 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 LABEL025 :LABEL023 Cls Newlines 2 PrintLn "@X0FChecking for duplicate entries..." If (Exist(STRING023)) Gosub LABEL028 Goto LABEL029 :LABEL028 BOOLEAN003 = 0 BOOLEAN004 = 0 FOpen 1, STRING023, 0, 2 FSeek 1, 0, 0 :LABEL035 If (Ferr(1)) Goto LABEL030 FRead 1, STRING012, 25 If (Ferr(1)) Goto LABEL030 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 (!((((TABLESTRING002(1) == STRING020) || (TABLESTRING002(1) == STRING021)) || (TABLESTRING002(2) == STRING020)) || (TABLESTRING002(2) == STRING021))) Goto LABEL031 BOOLEAN003 = 1 Goto LABEL030 :LABEL031 Tokenize STRING019 STRING017 = TokCount() STRING016 = 1 :LABEL034 If (!(((1 < 0) && (STRING016 >= STRING017)) || ((1 >= 0) && (STRING016 <= STRING017)))) Goto LABEL032 GetToken STRING012 STRING012 = Upper(STRING012) If (!(((((STRING012 <> TABLESTRING010(1)) && (STRING012 <> TABLESTRING010(2))) && (STRING012 <> TABLESTRING010(3))) && (STRING012 <> TABLESTRING010(4))) && (STRING012 <> TABLESTRING010(5)))) Goto LABEL033 If (!(InStr(Upper(STRING001), STRING012) <> 0)) Goto LABEL033 BOOLEAN004 = 1 Goto LABEL032 :LABEL033 STRING016 = STRING016 + 1 Goto LABEL034 :LABEL032 If (BOOLEAN004) Goto LABEL030 Goto LABEL035 :LABEL030 FClose 1 If (BOOLEAN005) BOOLEAN004 = 0 If (!BOOLEAN003) Goto LABEL036 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 LABEL004 :LABEL036 If (!BOOLEAN004) Goto LABEL037 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 LABEL025 :LABEL037 Return :LABEL029 Log "BBS LISTER : Saved - " + STRING001, 0 If (Exist(STRING023)) Goto LABEL038 FCreate 1, STRING023, 1, 3 Goto LABEL039 :LABEL038 FOpen 1, STRING023, 1, 2 FSeek 1, 0, 2 :LABEL039 FWrite 1, U_Name(), 25 FWrite 1, String(Date()), 8 FWrite 1, STRING001, 30 FWrite 1, STRING004, 25 FWrite 1, STRING003, 3 FWrite 1, TABLESTRING002(1), 14 FWrite 1, TABLESTRING002(2), 14 FWrite 1, STRING005, 15 FWrite 1, STRING006, 20 FWrite 1, STRING007, 20 FWrite 1, TABLESTRING008(1), 55 FWrite 1, TABLESTRING008(2), 55 FWrite 1, TABLESTRING008(3), 55 FWrite 1, TABLESTRING008(4), 55 FWrite 1, STRING009, 25 FClose 1 Newlines 2 PrintLn "@X0FThe new BBS entry has been saved." Newline Wait Goto LABEL004 :LABEL006 If (Exist(STRING023)) Goto LABEL040 PrintLn "@X0FSorry but there are not any bbses listed at this time." Newline Wait Goto LABEL004 :LABEL040 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 :LABEL043 STRING011 = "" STRING011 = Inkey() If ((Upper(STRING011) == "D")) Goto LABEL041 If ((Upper(STRING011) == "S")) Goto LABEL042 If ((Upper(STRING011) == "R")) Goto LABEL004 Goto LABEL043 :LABEL042 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 :LABEL045 If (Ferr(1)) Goto LABEL044 FRead 1, STRING012, 25 If (Ferr(1)) Goto LABEL044 FRead 1, STRING012, 8 FRead 1, STRING001, 30 FRead 1, STRING004, 25 FRead 1, STRING003, 3 FRead 1, TABLESTRING002(1), 14 FRead 1, TABLESTRING002(2), 14 FRead 1, STRING005, 15 FRead 1, STRING006, 20 FRead 1, STRING007, 20 FRead 1, TABLESTRING008(1), 55 FRead 1, TABLESTRING008(2), 55 FRead 1, TABLESTRING008(3), 55 FRead 1, TABLESTRING008(4), 55 FRead 1, STRING009, 25 PrintLn "@X09││@X02 " + STRING001 + "@POS:33@@X09│ @X02 " + STRING005 + "@POS:51@@X09│ @X02" + TABLESTRING002(1) + "@POS:68@@X09│ @X02 " + STRING003 + "@POS:77@ @X09││@X0F" Goto LABEL045 :LABEL044 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 LABEL004 :LABEL041 FOpen 1, STRING023, 0, 0 STRING016 = FileInf(STRING023, 4) / INTEGER001 STRING015 = 1 FSeek 1, 0, 0 :LABEL052 If (Ferr(1)) Goto LABEL046 FRead 1, STRING013, 25 FRead 1, STRING014, 8 FRead 1, STRING001, 30 FRead 1, STRING004, 25 FRead 1, STRING003, 3 FRead 1, TABLESTRING002(1), 14 FRead 1, TABLESTRING002(2), 14 FRead 1, STRING005, 15 FRead 1, STRING006, 20 FRead 1, STRING007, 20 FRead 1, TABLESTRING008(1), 55 FRead 1, TABLESTRING008(2), 55 FRead 1, TABLESTRING008(3), 55 FRead 1, TABLESTRING008(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" + TABLESTRING002(1) + "@POS:78@@X08." PrintLn "@X08 . @X06Phone #2 : @X02" + TABLESTRING002(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 " + TABLESTRING008(1) + "@POS:78@@X08.·" PrintLn "@X08.│ @X06: @X02 " + TABLESTRING008(2) + "@POS:78@@X08│." PrintLn "@X08.@X01│ @X06: @X02 " + TABLESTRING008(3) + "@POS:78@@X01│@X08." PrintLn "@X08│@X09│ @X06: @X02 " + TABLESTRING008(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 :LABEL048 STRING011 = "" STRING011 = Inkey() If (!(Upper(STRING011) == "N")) Goto LABEL047 If ((STRING015 == STRING016)) Goto LABEL048 Inc STRING015 Goto LABEL049 :LABEL047 If (!(Upper(STRING011) == "P")) Goto LABEL050 If ((STRING015 < 2)) Goto LABEL048 Dec STRING015 FSeek 1, -INTEGER001 * 2, 1 Goto LABEL049 :LABEL050 If (!(Upper(STRING011) == "Q")) Goto LABEL051 FClose 1 Goto LABEL004 :LABEL051 Goto LABEL048 :LABEL049 Goto LABEL052 :LABEL046 FClose 1 Goto LABEL004 :LABEL007 If (Exist(STRING023)) Goto LABEL053 PrintLn "@X0FSorry but there are not any bbses listed at this time." Newline Wait Goto LABEL004 :LABEL053 Log "BBS LISTER : Download BBS List", 0 FOpen 1, STRING023, 0, 0 FSeek 1, 0, 0 FCreate 2, STRING024, 1, 3 :LABEL055 If (Ferr(1)) Goto LABEL054 FRead 1, STRING013, 25 If (Ferr(1)) Goto LABEL054 FRead 1, STRING014, 8 FRead 1, STRING001, 30 FRead 1, STRING004, 25 FRead 1, STRING003, 3 FRead 1, TABLESTRING002(1), 14 FRead 1, TABLESTRING002(2), 14 FRead 1, STRING005, 15 FRead 1, STRING006, 20 FRead 1, STRING007, 20 FRead 1, TABLESTRING008(1), 55 FRead 1, TABLESTRING008(2), 55 FRead 1, TABLESTRING008(3), 55 FRead 1, TABLESTRING008(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 : " + TABLESTRING002(1) FPutLn 2, "Phone #2 : " + TABLESTRING002(2) FPutLn 2, "Baud : " + STRING005 FPutLn 2, "Software : " + STRING007 FPutLn 2, "Description : " + TABLESTRING008(1) FPutLn 2, " : " + TABLESTRING008(2) FPutLn 2, " : " + TABLESTRING008(3) FPutLn 2, " : " + TABLESTRING008(4) FPutLn 2, "──────────────────────────────────────────────────────────────────────────" FPutLn 2, "Authored by : " + STRING013 FPutLn 2, "Date : " + STRING014 FPutLn 2, "══════════════════════════════════════════════════════════════════════════" FPutLn 2, "" FPutLn 2, "" Goto LABEL055 :LABEL054 FClose 1 FClose 2 Download "LISTER.TXT" Goto LABEL004 :LABEL008 BOOLEAN001 = 0 BOOLEAN002 = 0 If (Exist(STRING023)) Goto LABEL056 PrintLn "@X0FSorry but there are not any bbses listed at this time." Newline Wait Goto LABEL004 :LABEL056 PrintLn "@X0FSearching for records you are allowed to edit..." STRING025 = PpePath() + "$EDIT$.0" If (!Exist(STRING025)) Goto LABEL057 STRING017 = 1 :LABEL059 If (!(((1 < 0) && (STRING017 >= 999)) || ((1 >= 0) && (STRING017 <= 999)))) Goto LABEL057 If (Exist(PpePath() + "$EDIT$." + STRING017)) Goto LABEL058 STRING025 = PpePath() + "$EDIT$." + STRING017 Goto LABEL057 :LABEL058 STRING017 = STRING017 + 1 Goto LABEL059 :LABEL057 STRING015 = 0 FOpen 1, STRING023, 0, 0 FSeek 1, 0, 0 FCreate 2, STRING025, 2, 3 :LABEL062 If (Ferr(1)) Goto LABEL060 FRead 1, STRING013, 25 If (Ferr(1)) Goto LABEL060 FRead 1, STRING014, 8 FRead 1, STRING001, 30 FRead 1, STRING004, 25 FRead 1, STRING003, 3 FRead 1, TABLESTRING002(1), 14 FRead 1, TABLESTRING002(2), 14 FRead 1, STRING005, 15 FRead 1, STRING006, 20 FRead 1, STRING007, 20 FRead 1, TABLESTRING008(1), 55 FRead 1, TABLESTRING008(2), 55 FRead 1, TABLESTRING008(3), 55 FRead 1, TABLESTRING008(4), 55 FRead 1, STRING009, 25 Inc STRING015 If (!(((U_Name() == STRING013) || (U_Name() == Upper(STRING009))) || (U_SEC >= ""))) Goto LABEL061 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, TABLESTRING002(1), 14 FWrite 2, TABLESTRING002(2), 14 FWrite 2, STRING005, 15 FWrite 2, STRING006, 20 FWrite 2, STRING007, 20 FWrite 2, TABLESTRING008(1), 55 FWrite 2, TABLESTRING008(2), 55 FWrite 2, TABLESTRING008(3), 55 FWrite 2, TABLESTRING008(4), 55 FWrite 2, STRING009, 25 :LABEL061 Goto LABEL062 :LABEL060 FClose 1 FClose 2 STRING016 = FileInf(STRING025, 4) / INTEGER002 If (!(STRING016 == 0)) Goto LABEL063 Delete STRING025 Newline PrintLn "@X0FSorry there are no entries for you to edit." Newline Wait Goto LABEL004 :LABEL063 STRING015 = 1 FOpen 2, STRING025, 2, 3 FSeek 2, 0, 0 :LABEL075 If (Ferr(2)) Goto LABEL064 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, TABLESTRING002(1), 14 FRead 2, TABLESTRING002(2), 14 FRead 2, STRING005, 15 FRead 2, STRING006, 20 FRead 2, STRING007, 20 FRead 2, TABLESTRING008(1), 55 FRead 2, TABLESTRING008(2), 55 FRead 2, TABLESTRING008(3), 55 FRead 2, TABLESTRING008(4), 55 FRead 2, STRING009, 25 :LABEL090 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" + TABLESTRING002(1) + "@POS:78@@X08." PrintLn "@X08 . @X06Phone #2 : @X02" + TABLESTRING002(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 " + TABLESTRING008(1) + "@POS:78@@X08.·" PrintLn "@X08.│ @X06: @X02 " + TABLESTRING008(2) + "@POS:78@@X08│." PrintLn "@X08.@X01│ @X06: @X02 " + TABLESTRING008(3) + "@POS:78@@X01│@X08." PrintLn "@X08│@X09│ @X06: @X02 " + TABLESTRING008(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 :LABEL066 STRING011 = "" STRING011 = Inkey() If (!(Upper(STRING011) == "N")) Goto LABEL065 If ((STRING015 == STRING016)) Goto LABEL066 Inc STRING015 Goto LABEL067 :LABEL065 If (!(Upper(STRING011) == "P")) Goto LABEL068 If ((STRING015 < 2)) Goto LABEL066 Dec STRING015 FSeek 2, -INTEGER002 * 2, 1 Goto LABEL067 :LABEL068 If (!(Upper(STRING011) == "E")) Goto LABEL069 Goto LABEL070 :LABEL069 If (!(Upper(STRING011) == "R")) Goto LABEL071 Goto LABEL072 :LABEL071 If (!(Upper(STRING011) == "Q")) Goto LABEL073 FClose 2 Gosub LABEL074 Delete STRING025 Goto LABEL004 :LABEL073 Goto LABEL066 :LABEL067 Goto LABEL075 :LABEL064 FClose 2 Goto LABEL004 :LABEL070 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 " + TABLESTRING002(1) + "@POS:78@@X08." PrintLn "@X08 . @X02E@X0F} Phone #2 :@X0B " + TABLESTRING002(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 " + TABLESTRING008(1) + "@POS:78@@X08·" PrintLn "@X08 @X0FDesc #2 :@X0B " + TABLESTRING008(2) + "@POS:78@" PrintLn "@X08·. @X0FDesc #3 :@X0B " + TABLESTRING008(3) + "@POS:78@@X08.·" PrintLn "@X08.│ @X0FDesc #4 :@X0B " + TABLESTRING008(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 :LABEL088 STRING011 = "" STRING011 = Inkey() If (!(Upper(STRING011) == "Q")) Goto LABEL076 FSeek 2, -INTEGER002, 1 Goto LABEL067 :LABEL076 If ((Upper(STRING011) == "A")) Goto LABEL077 If ((Upper(STRING011) == "B")) Goto LABEL078 If ((Upper(STRING011) == "C")) Goto LABEL079 If ((Upper(STRING011) == "D")) Goto LABEL080 If ((Upper(STRING011) == "E")) Goto LABEL081 If ((Upper(STRING011) == "F")) Goto LABEL082 If ((Upper(STRING011) == "G")) Goto LABEL083 If ((Upper(STRING011) == "H")) Goto LABEL084 If ((Upper(STRING011) == "I")) Goto LABEL085 If ((Upper(STRING011) == "J")) Goto LABEL086 If ((Upper(STRING011) == "S")) Goto LABEL087 Goto LABEL088 :LABEL077 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 LABEL070 :LABEL078 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 LABEL070 :LABEL079 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 LABEL070 :LABEL080 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 LABEL026 TABLESTRING002(1) = STRING031 Goto LABEL070 :LABEL081 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 LABEL027 TABLESTRING002(2) = STRING031 Goto LABEL070 :LABEL082 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 LABEL070 :LABEL083 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 LABEL070 :LABEL084 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 LABEL070 :LABEL085 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 "_", TABLESTRING008(1), 1, 55, Mask_Ascii(), 2 + 4 + 64 AnsiPos 4, 8 InputStr "_", TABLESTRING008(2), 1, 55, Mask_Ascii(), 2 + 4 + 64 AnsiPos 4, 9 InputStr "_", TABLESTRING008(3), 1, 55, Mask_Ascii(), 2 + 4 + 64 AnsiPos 4, 10 InputStr "_", TABLESTRING008(4), 1, 55, Mask_Ascii(), 2 + 4 + 64 Goto LABEL070 :LABEL086 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 LABEL070 :LABEL087 Goto LABEL089 :LABEL089 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, TABLESTRING002(1), 14 FWrite 2, TABLESTRING002(2), 14 FWrite 2, STRING005, 15 FWrite 2, STRING006, 20 FWrite 2, STRING007, 20 FWrite 2, TABLESTRING008(1), 55 FWrite 2, TABLESTRING008(2), 55 FWrite 2, TABLESTRING008(3), 55 FWrite 2, TABLESTRING008(4), 55 FWrite 2, STRING009, 25 Goto LABEL090 :LABEL072 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 = "" TABLESTRING002(1) = "" TABLESTRING002(2) = "" STRING005 = "" STRING006 = "" STRING007 = "" TABLESTRING008(1) = "" TABLESTRING008(2) = "" TABLESTRING008(3) = "" TABLESTRING008(4) = "" STRING009 = "" Goto LABEL090 :LABEL074 If (!BOOLEAN001) Return FOpen 1, STRING023, 2, 3 FOpen 2, STRING025, 2, 3 :LABEL092 If (Ferr(2)) Goto LABEL091 FRead 2, STRING018, 7 If (Ferr(2)) Goto LABEL091 FRead 2, STRING013, 25 FRead 2, STRING014, 8 FRead 2, STRING001, 30 FRead 2, STRING004, 25 FRead 2, STRING003, 3 FRead 2, TABLESTRING002(1), 14 FRead 2, TABLESTRING002(2), 14 FRead 2, STRING005, 15 FRead 2, STRING006, 20 FRead 2, STRING007, 20 FRead 2, TABLESTRING008(1), 55 FRead 2, TABLESTRING008(2), 55 FRead 2, TABLESTRING008(3), 55 FRead 2, TABLESTRING008(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, TABLESTRING002(1), 14 FWrite 1, TABLESTRING002(2), 14 FWrite 1, STRING005, 15 FWrite 1, STRING006, 20 FWrite 1, STRING007, 20 FWrite 1, TABLESTRING008(1), 55 FWrite 1, TABLESTRING008(2), 55 FWrite 1, TABLESTRING008(3), 55 FWrite 1, TABLESTRING008(4), 55 FWrite 1, STRING009, 25 Goto LABEL092 :LABEL091 FClose 1 FClose 2 If (!BOOLEAN002) Return FOpen 1, STRING023, 0, 3 FCreate 2, STRING026, 2, 3 :LABEL095 If (Ferr(1)) Goto LABEL093 FRead 1, STRING013, 25 If (Ferr(1)) Goto LABEL093 FRead 1, STRING014, 8 FRead 1, STRING001, 30 FRead 1, STRING004, 25 FRead 1, STRING003, 3 FRead 1, TABLESTRING002(1), 14 FRead 1, TABLESTRING002(2), 14 FRead 1, STRING005, 15 FRead 1, STRING006, 20 FRead 1, STRING007, 20 FRead 1, TABLESTRING008(1), 55 FRead 1, TABLESTRING008(2), 55 FRead 1, TABLESTRING008(3), 55 FRead 1, TABLESTRING008(4), 55 FRead 1, STRING009, 25 If (!(STRING001 <> "** REMOVED **")) Goto LABEL094 FWrite 2, STRING013, 25 FWrite 2, STRING014, 8 FWrite 2, STRING001, 30 FWrite 2, STRING004, 25 FWrite 2, STRING003, 3 FWrite 2, TABLESTRING002(1), 14 FWrite 2, TABLESTRING002(2), 14 FWrite 2, STRING005, 15 FWrite 2, STRING006, 20 FWrite 2, STRING007, 20 FWrite 2, TABLESTRING008(1), 55 FWrite 2, TABLESTRING008(2), 55 FWrite 2, TABLESTRING008(3), 55 FWrite 2, TABLESTRING008(4), 55 FWrite 2, STRING009, 25 :LABEL094 Goto LABEL095 :LABEL093 FClose 1 FClose 2 Delete STRING023 Rename STRING026, STRING023 If ((FileInf(STRING023, 4) == 0)) Delete STRING023 Return :LABEL011 STRING029 = 0 BOOLEAN006 = 0 BOOLEAN007 = 0 STRING028 = "@X09(@X02" AnsiPos 26, 8 Print STRING028 Goto LABEL096 :LABEL012 STRING029 = 0 BOOLEAN006 = 0 BOOLEAN007 = 0 STRING028 = "@X09(@X02" AnsiPos 26, 9 Print STRING028 Goto LABEL096 :LABEL026 STRING029 = 0 BOOLEAN006 = 0 BOOLEAN007 = 0 STRING028 = "@X09(@X02" AnsiPos 35, 6 Print STRING028 Goto LABEL096 :LABEL027 STRING029 = 0 BOOLEAN006 = 0 BOOLEAN007 = 0 STRING028 = "@X09(@X02" AnsiPos 37, 6 Print STRING028 Goto LABEL096 :LABEL096 STRING027 = "" STRING027 = Inkey() If (!((STRING027 == Chr(8)) && (Len(STRING028) > 9))) Goto LABEL097 STRING030 = Len(StripAtx(STRING028)) Dec STRING029 STRING028 = Mid(STRING028, 1, Len(STRING028) - 1) If (!(Len(STRING028) == 21)) Goto LABEL098 STRING028 = Mid(STRING028, 1, Len(STRING028) - 10) BOOLEAN006 = 0 Goto LABEL099 :LABEL098 If (!(Len(STRING028) == 33)) Goto LABEL099 STRING028 = Mid(STRING028, 1, Len(STRING028) - 9) BOOLEAN007 = 0 :LABEL099 Backup STRING030 Print " " Backup 20 Print STRING028 :LABEL097 If (!((((((((((STRING027 == "0") || (STRING027 == "1")) || (STRING027 == "2")) || (STRING027 == "3")) || (STRING027 == "4")) || (STRING027 == "5")) || (STRING027 == "6")) || (STRING027 == "7")) || (STRING027 == "8")) || (STRING027 == "9"))) Goto LABEL100 If ((STRING029 == 10)) Goto LABEL096 STRING030 = Len(StripAtx(STRING028)) Inc STRING029 STRING028 = STRING028 + STRING027 Backup STRING030 Print STRING028 :LABEL100 If (!((STRING029 == 3) && (BOOLEAN006 == 0))) Goto LABEL101 STRING030 = Len(StripAtx(STRING028)) BOOLEAN006 = 1 STRING028 = STRING028 + "@X09) @X02" Backup STRING030 Print STRING028 Goto LABEL102 :LABEL101 If (!((STRING029 == 6) && (BOOLEAN007 == 0))) Goto LABEL102 STRING030 = Len(StripAtx(STRING028)) BOOLEAN007 = 1 STRING028 = STRING028 + "@X09-@X02" Backup STRING030 Print STRING028 :LABEL102 If (!((STRING027 == Chr(13)) && (Len(STRING028) <> 38))) Goto LABEL103 STRING028 = "" Goto LABEL104 :LABEL103 If (((STRING027 == Chr(13)) && (Len(STRING028) == 38))) Goto LABEL104 Goto LABEL096 :LABEL104 STRING031 = StripAtx(STRING028) PrintLn Return :LABEL009 Log "BBS LISTER : Exiting", 0 ;------------------------------------------------------------------------------ ; ; 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 >= ; 44 ! ; 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() ; ;------------------------------------------------------------------------------ ; (C)1995 AEGiS CoRP - Main Code by Lone Runner - Parts by The doC ;------------------------------------------------------------------------------ ; ___________ _______________________ _____________ ;[=======\ \====/ / /_____ / /=======] ; ::::::::\ ______ \::/ \_____ / _______ /______)/ \_______ /:::::::: ; ::kL!:::_\/ _/ \/ ___)__\/ \ \/ \_________ \/::::::::: ; ::::::::\ __ \_ \ \_ \_ \_ \_ / \_:::::::: ;[=========\_____/______/__________/___________/_________/__________/========] ; ; C O R P ;------------------------------------------------------------------------------ ; Dedicated to pure anarchists all around the world... ;------------------------------------------------------------------------------