home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 8
/
CDASC08.ISO
/
VRAC
/
CW_PPP10.ZIP
/
BBSLISTR.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1993-09-09
|
27KB
|
935 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer INTEGER010
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String 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
String STRING035
String STRING036
String STRING037
String STRING038
;------------------------------------------------------------------------------
STRING032 = "1.3 "
INTEGER003 = 36
INTEGER006 = 48239
STRING038 = PPEPath() + "BBSLISTR.LST"
STRING037 = "@X0D*******************************************************************************"
If (Exist(PPEPath() + "BBSLISTR.CNF")) Then
FOpen 1, PPEPath() + "BBSLISTR.CNF", 0, 0
FGet 1, STRING006
FGet 1, INTEGER007
FGet 1, INTEGER005
FGet 1, INTEGER009
FClose 1
Else
PrintLn "@X0CError - Config file not found - Please notify SysOp"
End
Endif
Tokenize STRING006
GetToken STRING015
GetToken STRING016
If (INTEGER007 == 0) Then
STRING017 = "N"
Goto LABEL002
Else
Goto LABEL001
Endif
Cls
PrintLn
PrintLn
PrintLn " @X50┌──────────────────────────────@X5D┐@X0D"
PrintLn " @X50│ @X5ABBS Lister v", STRING032, " @X5D│@X0D"
PrintLn " @X50│ @X5D│@X0D"
If (STRING017 == "N") Then
PrintLn " @X50│ @X51UNREGISTERED @X5D│@X07"
PrintLn " @X50│ @X5D│@X0D"
PrintLn " @X50│ @X5BRegistration is only $10 @X5D│@X07"
PrintLn " @X50│@X5BPlease help support shareware.@X5D│@X07"
PrintLn " @X50└@X5D──────────────────────────────┘@X07"
Beep
Delay 125
Else
PrintLn " @X50│ @X5BReg # ", STRING010, " @POS:55@@X5D│@X07"
PrintLn " @X50│@X5B", STRING007, STRING006, "@POS:55@@X5D│@X07"
PrintLn " @X50└@X5D──────────────────────────────┘@X07"
PrintLn
Wait
Endif
Bye
:LABEL001
STRING012 = Left(STRING015, 1)
STRING013 = Left(STRING016, 2)
STRING014 = STRING012 + STRING013
If (STRING012 == "A") INTEGER008 = 1934
If (STRING012 == "B") INTEGER008 = 2859
If (STRING012 == "C") INTEGER008 = 3743
If (STRING012 == "D") INTEGER008 = 4660
If (STRING012 == "E") INTEGER008 = 5534
If (STRING012 == "F") INTEGER008 = 6471
If (STRING012 == "G") INTEGER008 = 7325
If (STRING012 == "H") INTEGER008 = 8287
If (STRING012 == "I") INTEGER008 = 9119
If (STRING012 == "J") INTEGER008 = 1096
If (STRING012 == "K") INTEGER008 = 2928
If (STRING012 == "L") INTEGER008 = 3885
If (STRING012 == "M") INTEGER008 = 4737
If (STRING012 == "N") INTEGER008 = 5674
If (STRING012 == "O") INTEGER008 = 6546
If (STRING012 == "P") INTEGER008 = 7463
If (STRING012 == "Q") INTEGER008 = 8355
If (STRING012 == "R") INTEGER008 = 9242
If (STRING012 == "S") INTEGER008 = 1164
If (STRING012 == "T") INTEGER008 = 2031
If (STRING012 == "U") INTEGER008 = 3973
If (STRING012 == "V") INTEGER008 = 4820
If (STRING012 == "W") INTEGER008 = 5782
If (STRING012 == "X") INTEGER008 = 6619
If (STRING012 == "Y") INTEGER008 = 7591
If (STRING012 == "Z") INTEGER008 = 8408
INTEGER004 = S2I(STRING014, INTEGER003) + INTEGER007 + INTEGER006 + INTEGER008
If (INTEGER005 == INTEGER004) Then
If (Len(INTEGER007) == 1) STRING008 = "000"
If (Len(INTEGER007) == 2) STRING008 = "00"
If (Len(INTEGER007) == 3) STRING008 = "0"
If (Len(INTEGER007) == 4) STRING008 = ""
STRING009 = INTEGER007
STRING010 = STRING008 + STRING009
If (Len(STRING006) == 30) STRING007 = ""
If (Len(STRING006) == 29) STRING007 = ""
If (Len(STRING006) == 28) STRING007 = " "
If (Len(STRING006) == 27) STRING007 = " "
If (Len(STRING006) == 26) STRING007 = " "
If (Len(STRING006) == 25) STRING007 = " "
If (Len(STRING006) == 24) STRING007 = " "
If (Len(STRING006) == 23) STRING007 = " "
If (Len(STRING006) == 22) STRING007 = " "
If (Len(STRING006) == 21) STRING007 = " "
If (Len(STRING006) == 20) STRING007 = " "
If (Len(STRING006) == 19) STRING007 = " "
If (Len(STRING006) == 18) STRING007 = " "
If (Len(STRING006) == 17) STRING007 = " "
If (Len(STRING006) == 16) STRING007 = " "
If (Len(STRING006) == 15) STRING007 = " "
If (Len(STRING006) == 14) STRING007 = " "
If (Len(STRING006) == 13) STRING007 = " "
If (Len(STRING006) == 12) STRING007 = " "
If (Len(STRING006) == 11) STRING007 = " "
If (Len(STRING006) == 10) STRING007 = " "
If (Len(STRING006) == 9) STRING007 = " "
If (Len(STRING006) == 8) STRING007 = " "
If (Len(STRING006) == 7) STRING007 = " "
If (Len(STRING006) == 6) STRING007 = " "
If (Len(STRING006) == 5) STRING007 = " "
:LABEL002
Cls
PrintLn
PrintLn
PrintLn " @X50┌──────────────────────────────@X5D┐@X0D"
PrintLn " @X50│ @X5ABBS Lister v", STRING032, " @X5D│@X0D"
PrintLn " @X50│ @X5D│@X0D"
If (STRING017 == "N") Then
PrintLn " @X50│ @X51UNREGISTERED @X5D│@X07"
PrintLn " @X50│ @X5D│@X0D"
PrintLn " @X50│ @X5BRegistration is only $10 @X5D│@X07"
PrintLn " @X50│@X5BPlease help support shareware.@X5D│@X07"
PrintLn " @X50└@X5D──────────────────────────────┘@X07"
Beep
Delay 125
Goto LABEL003
Endif
PrintLn " @X50│ @X5BReg # ", STRING010, " @POS:55@@X5D│@X07"
PrintLn " @X50│@X5B", STRING007, STRING006, "@POS:55@@X5D│@X07"
PrintLn " @X50└@X5D──────────────────────────────┘@X07"
PrintLn
Wait
:LABEL003
StartDisp 2
STRING011 = ""
Cls
PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
PrintLn " @X5D│ @X50│@X07"
PrintLn " @X5D│ @X51BBS Lister - Main Menu @X50│@X07"
PrintLn " @X5D│ @X50│@X07"
PrintLn " @X5D│ @X51A @X5FAdd To List @X51S @X5FSearch List @X51G @X5FGoodbye @X50│@X07"
PrintLn " @X5D│ @X50│@X07"
PrintLn " @X5D│ @X51V @X5FView List @X51Q @X5FQuit To BBS @X50│@X07"
PrintLn " @X5D│ @X50│@X07"
PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
InputStr "Select: ", STRING011, 11, 1, Mask_Ascii(), 2 + 128 + 8
If (STRING011 == "A") Goto LABEL024
If (STRING011 == "V") Goto LABEL004
If (STRING011 == "S") Goto LABEL005
If (STRING011 == "Q") Goto LABEL031
If (STRING011 == "G") Goto LABEL033
If (STRING011 == "") Goto LABEL031
Goto LABEL003
:LABEL004
Gosub LABEL036
DispFile STRING038, 1
Wait
Goto LABEL003
:LABEL005
StartDisp 2
Cls
INTEGER001 = 0
PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
PrintLn " @X5D│ @X51Search Criteria @X50│@X07"
PrintLn " @X5D│ @X511 @X5FBy State @X514 @X5FBy BBS Type @X517 @X5FBy Meg Size @X50│@X07"
PrintLn " @X5D│ @X512 @X5FBy Country @X515 @X5FBy Modem Type @X518 @X5FBy # of Nodes @X50│@X07"
PrintLn " @X5D│ @X513 @X5FBy Area Code @X516 @X5FBy Access Policy @X519 @X5FBy Text String @X50│@X07"
PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
InputStr "Select: ", INTEGER001, 11, 1, Mask_Num(), 2 + 128
If (INTEGER001 == 1) Goto LABEL006
If (INTEGER001 == 2) Goto LABEL008
If (INTEGER001 == 3) Goto LABEL010
If (INTEGER001 == 4) Goto LABEL012
If (INTEGER001 == 5) Goto LABEL014
If (INTEGER001 == 6) Goto LABEL016
If (INTEGER001 == 7) Goto LABEL018
If (INTEGER001 == 8) Goto LABEL020
If (INTEGER001 == 9) Goto LABEL022
Goto LABEL003
:LABEL006
STRING001 = ""
InputStr "2 Letter State Code to search for", STRING001, 11, 2, Mask_Alpha(), 2 + 128 + 8
If (STRING001 == "") Goto LABEL005
Cls
Gosub LABEL036
INTEGER010 = 0
If (Exist(PPEPath() + "BBSLISTR.LST")) Then
FOpen 1, PPEPath() + "BBSLISTR.LST", 0, 0
For INTEGER002 = 1 To INTEGER009
FGet 1, STRING035
FGet 1, STRING036
If (Mid(STRING035, 71, 2) == STRING001) Gosub LABEL037
Next
FClose 1
Goto LABEL007
Endif
PrintLn "Sorry, no BBS List found"
:LABEL007
PrintLn
PrintLn "@X0BThere were @X0F", INTEGER010, " @X0B", Chr(34), STRING001, " State", Chr(34), " matches found in @X0F", INTEGER009, "@X0B entries."
PrintLn
Wait
STRING001 = ""
Goto LABEL005
:LABEL008
STRING002 = ""
InputStr "3 Letter Country Code to search for", STRING002, 11, 3, Mask_Alpha(), 2 + 128 + 8
If (STRING002 == "") Goto LABEL005
Cls
Gosub LABEL036
INTEGER010 = 0
If (Exist(PPEPath() + "BBSLISTR.LST")) Then
FOpen 1, PPEPath() + "BBSLISTR.LST", 0, 0
For INTEGER002 = 1 To INTEGER009
FGet 1, STRING035
FGet 1, STRING036
If (Mid(STRING035, 88, 3) == STRING002) Gosub LABEL037
Next
FClose 1
Goto LABEL009
Endif
PrintLn "Sorry, no BBS List found"
:LABEL009
PrintLn
PrintLn "@X0BThere were @X0F", INTEGER010, " @X0B", Chr(34), STRING002, Chr(34), " matches found in @X0F", INTEGER009, "@X0B entries."
PrintLn
Wait
STRING002 = ""
Goto LABEL005
:LABEL010
STRING003 = ""
InputStr "3 Number Area Code to search for", STRING003, 11, 3, Mask_Num(), 2 + 128
If (STRING003 == "") Goto LABEL005
Cls
Gosub LABEL036
INTEGER010 = 0
If (Exist(PPEPath() + "BBSLISTR.LST")) Then
FOpen 1, PPEPath() + "BBSLISTR.LST", 0, 0
For INTEGER002 = 1 To INTEGER009
FGet 1, STRING035
FGet 1, STRING036
If (Mid(STRING035, 40, 3) == STRING003) Gosub LABEL037
Next
FClose 1
Goto LABEL011
Endif
PrintLn "Sorry, no BBS List found"
:LABEL011
PrintLn
PrintLn "@X0BThere were @X0F", INTEGER010, " @X0B", Chr(34), STRING003, " Area Code", Chr(34), " matches found in @X0F", INTEGER009, "@X0B entries."
PrintLn
Wait
STRING003 = ""
Goto LABEL005
:LABEL012
INTEGER001 = 0
Cls
PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
PrintLn " @X5D│ @X511 @X5FPCBoard @X516 @X5FTriBBS @X5111 @X5FPowerBBS @X50│@X07"
PrintLn " @X5D│ @X512 @X5FWildcat @X517 @X5FMajorBBS @X5112 @X5FSearchlt @X50│@X07"
PrintLn " @X5D│ @X513 @X5FGAP @X518 @X5FUltraBBS @X5113 @X5FWWIV @X50│@X07"
PrintLn " @X5D│ @X514 @X5FSpitfire @X519 @X5FRBBS @X5114 @X5FRenegade @X50│@X07"
PrintLn " @X5D│ @X515 @X5FAuntie @X5110 @X5FQBBS @X50│@X07"
PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
InputStr "@X0BSelect the number of BBS type to search for 0 to Abort", INTEGER001, 11, 2, Mask_Num(), 2
If (INTEGER001 == 0) Goto LABEL005
If (INTEGER001 == 1) STRING034 = "PCBoard "
If (INTEGER001 == 2) STRING034 = "Wildcat "
If (INTEGER001 == 3) STRING034 = "GAP "
If (INTEGER001 == 4) STRING034 = "Spitfire"
If (INTEGER001 == 5) STRING034 = "Auntie "
If (INTEGER001 == 6) STRING034 = "TriBBS "
If (INTEGER001 == 7) STRING034 = "MajorBBS"
If (INTEGER001 == 8) STRING034 = "UltraBBS"
If (INTEGER001 == 9) STRING034 = "RBBS "
If (INTEGER001 == 10) STRING034 = "QBBS "
If (INTEGER001 == 11) STRING034 = "PowerBBS"
If (INTEGER001 == 12) STRING034 = "Searchlt"
If (INTEGER001 == 13) STRING034 = "WWIV "
If (INTEGER001 == 14) STRING034 = "Renegade"
If (INTEGER001 > 14) Goto LABEL035
Cls
Gosub LABEL036
INTEGER010 = 0
If (Exist(PPEPath() + "BBSLISTR.LST")) Then
FOpen 1, PPEPath() + "BBSLISTR.LST", 0, 0
For INTEGER002 = 1 To INTEGER009
FGet 1, STRING035
FGet 1, STRING036
If (Upper((Mid(STRING035, 5, 8) == STRING034))) Gosub LABEL037
Next
FClose 1
Goto LABEL013
Endif
PrintLn "Sorry, no BBS List found"
:LABEL013
If (STRING034 == "PCBoard ") STRING034 = "PCBoard"
If (STRING034 == "Wildcat ") STRING034 = "Wildcat"
If (STRING034 == "GAP ") STRING034 = "GAP"
If (STRING034 == "Spitfire") STRING034 = "Spitfire"
If (STRING034 == "Auntie ") STRING034 = "Auntie"
If (STRING034 == "TriBBS ") STRING034 = "TriBBS"
If (STRING034 == "MajorBBS") STRING034 = "MajorBBS"
If (STRING034 == "UltraBBS") STRING034 = "UltraBBS"
If (STRING034 == "RBBS ") STRING034 = "RBBS"
If (STRING034 == "QBBS ") STRING034 = "QBBS"
If (STRING034 == "PowerBBS") STRING034 = "PowerBBS"
If (STRING034 == "Searchlt") STRING034 = "Searchlt"
If (STRING034 == "WWIV ") STRING034 = "WWIV"
If (STRING034 == "Renegade") STRING034 = "Renegade"
PrintLn
PrintLn "@X0BThere were @X0F", INTEGER010, " @X0B", Chr(34), STRING034, " BBS", Chr(34), " matches found in @X0F", INTEGER009, "@X0B entries."
PrintLn
Wait
STRING034 = ""
Goto LABEL005
:LABEL014
INTEGER001 = 0
Cls
PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
PrintLn " @X5D│ @X511) @X5Fv.32bis @X512) @X5FUSR HST @X513) @X5FD/S 14.4 @X514) @X5FD/S 16.8 @X515) @X5FZyXel @X50│@X07"
PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
InputStr "Select # of modem type to search for or 0 to Abort", INTEGER001, 11, 1, Mask_Num(), 2 + 128
If (INTEGER001 == "") Goto LABEL005
If (INTEGER001 == 0) Goto LABEL005
If (INTEGER001 == 1) STRING031 = "v.32bis "
If (INTEGER001 == 2) STRING031 = "USR HST "
If (INTEGER001 == 3) STRING031 = "D/S 14.4"
If (INTEGER001 == 4) STRING031 = "D/S 16.8"
If (INTEGER001 == 5) STRING031 = "ZyXel "
If (INTEGER001 > 5) Goto LABEL035
Cls
Gosub LABEL036
INTEGER010 = 0
If (Exist(PPEPath() + "BBSLISTR.LST")) Then
FOpen 1, PPEPath() + "BBSLISTR.LST", 0, 0
For INTEGER002 = 1 To INTEGER009
FGet 1, STRING035
FGet 1, STRING036
If (Mid(STRING035, 57, 8) == STRING031) Gosub LABEL037
Next
FClose 1
Goto LABEL015
Endif
PrintLn "Sorry, no BBS List found"
:LABEL015
If (STRING031 == "v.32bis ") STRING031 = "v.32bis"
If (STRING031 == "USR HST ") STRING031 = "USR HST"
If (STRING031 == "D/S 14.4") STRING031 = "D/S 14.4"
If (STRING031 == "D/S 16.8") STRING031 = "D/S 16.8"
If (STRING031 == "ZyXel ") STRING031 = "ZyXel"
PrintLn
PrintLn "@X0BThere were @X0F", INTEGER010, " @X0B", Chr(34), STRING031, " Modem Type", Chr(34), " matches found in @X0F", INTEGER009, "@X0B entries."
PrintLn
Wait
STRING031 = ""
Goto LABEL005
:LABEL016
INTEGER001 = 0
Cls
PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
PrintLn " @X5D│ @X511) @X5F($) Pay Only @X512) @X5F(R) Ratios @X513) @X5F(N) No Ratios @X50│@X07"
PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
InputStr "@X0BWhat Access Policy to search for", INTEGER001, 11, 1, Mask_Num(), 2 + 128
If (INTEGER001 == 1) STRING004 = "$"
If (INTEGER001 == 2) STRING004 = "R"
If (INTEGER001 == 3) STRING004 = "N"
If (INTEGER001 > 3) Goto LABEL035
If (INTEGER001 == "") Goto LABEL005
If (INTEGER001 == 0) Goto LABEL005
Cls
Gosub LABEL036
INTEGER010 = 0
If (Exist(PPEPath() + "BBSLISTR.LST")) Then
FOpen 1, PPEPath() + "BBSLISTR.LST", 0, 0
For INTEGER002 = 1 To INTEGER009
FGet 1, STRING035
FGet 1, STRING036
If (Mid(STRING035, 96, 1) == STRING004) Gosub LABEL037
Next
FClose 1
Goto LABEL017
Endif
PrintLn "Sorry, no BBS List found"
:LABEL017
If (STRING004 == "$") STRING004 = "Pay Only"
If (STRING004 == "R") STRING004 = "Ratio"
If (STRING004 == "N") STRING004 = "Non-Ratio"
PrintLn
PrintLn "@X0BThere were @X0F", INTEGER010, " @X0B", Chr(34), STRING004, " Type BBS", Chr(34), " matches found in @X0F", INTEGER009, "@X0B entries."
PrintLn
Wait
STRING004 = ""
INTEGER001 = 0
Goto LABEL005
:LABEL018
INTEGER001 = 0
Cls
PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
PrintLn " @X5D│ @X51Meg Size on BBS @X50│@X07"
PrintLn " @X5D│ @X5FOur list will show Meg Size in -how many 100 Megs-. In other words, if @X50│@X07"
PrintLn " @X5D│ @X5Fyou're looking for 300 Megs, enter 3. If you're looking for 1.2 Gig or @X50│@X07"
PrintLn " @X5D│ @X5Fhigher then enter a 12, and so on. @X50│@X07"
PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
InputStr "@X0BWhat Meg Size (or higher) to search for", INTEGER001, 11, 3, Mask_Num(), 2 + 128
If (INTEGER001 == "") Goto LABEL005
If (INTEGER001 == 0) Goto LABEL005
Cls
Gosub LABEL036
INTEGER010 = 0
If (Exist(PPEPath() + "BBSLISTR.LST")) Then
FOpen 1, PPEPath() + "BBSLISTR.LST", 0, 0
For INTEGER002 = 1 To INTEGER009
FGet 1, STRING035
FGet 1, STRING036
If (Mid(STRING035, 102, 3) >= INTEGER001) Gosub LABEL037
Next
FClose 1
Goto LABEL019
Endif
PrintLn "Sorry, no BBS List found"
:LABEL019
PrintLn
PrintLn "@X0BThere were @X0F", INTEGER010, " @X0B", Chr(34), INTEGER001, " X 100 Mb (or higher) BBS", Chr(34), " matches found in @X0F", INTEGER009, "@X0B entries."
PrintLn
Wait
INTEGER001 = 0
Goto LABEL005
:LABEL020
INTEGER001 = 0
Cls
InputStr "@X0BNow many nodes (or higher) to search for", INTEGER001, 11, 2, Mask_Num(), 2 + 128
If (INTEGER001 == "") Goto LABEL005
If (INTEGER001 == 0) Goto LABEL005
Cls
Gosub LABEL036
INTEGER010 = 0
If (Exist(PPEPath() + "BBSLISTR.LST")) Then
FOpen 1, PPEPath() + "BBSLISTR.LST", 0, 0
For INTEGER002 = 1 To INTEGER009
FGet 1, STRING035
FGet 1, STRING036
If (Mid(STRING035, 114, 2) >= INTEGER001) Gosub LABEL037
Next
FClose 1
Goto LABEL021
Endif
PrintLn "Sorry, no BBS List found"
:LABEL021
PrintLn
PrintLn "@X0BThere were @X0F", INTEGER010, " @X0B", Chr(34), INTEGER001, " Nodes (or higher) BBS", Chr(34), " matches found in @X0F", INTEGER009, "@X0B entries."
PrintLn
Wait
INTEGER001 = 0
Goto LABEL005
:LABEL022
STRING005 = ""
InputStr "@X0BText to search for", STRING005, 11, 25, Mask_Alpha() + Mask_Ascii() + Mask_Num(), 2 + 128 + 8
If (STRING005 == "") Goto LABEL005
Cls
Gosub LABEL036
INTEGER010 = 0
If (Exist(PPEPath() + "BBSLISTR.LST")) Then
FOpen 1, PPEPath() + "BBSLISTR.LST", 0, 0
For INTEGER002 = 1 To INTEGER009
FGet 1, STRING035
FGet 1, STRING036
If ((InStr(Upper(STRING035), STRING005) >= 1) || (InStr(Upper(STRING036), STRING005) >= 1)) Gosub LABEL037
Next
FClose 1
Goto LABEL023
Endif
PrintLn "Sorry, no BBS List found"
:LABEL023
PrintLn
PrintLn "@X0BThere were @X0F", INTEGER010, " @X0B", Chr(34), STRING005, Chr(34), " matches found in @X0F", INTEGER009, "@X0B entries."
PrintLn
Wait
INTEGER001 = 0
Goto LABEL005
:LABEL024
INTEGER001 = 0
Cls
PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
PrintLn " @X5D│ @X511 @X5FPCBoard @X516 @X5FTriBBS @X5111 @X5FPowerBBS @X50│@X07"
PrintLn " @X5D│ @X512 @X5FWildcat @X517 @X5FMajorBBS @X5112 @X5FSearchlt @X50│@X07"
PrintLn " @X5D│ @X513 @X5FGAP @X518 @X5FUltraBBS @X5113 @X5FWWIV @X50│@X07"
PrintLn " @X5D│ @X514 @X5FSpitfire @X519 @X5FRBBS @X5114 @X5FRenegade @X50│@X07"
PrintLn " @X5D│ @X515 @X5FAuntie @X5110 @X5FQBBS @X5115 @X5FOther @X50│@X07"
PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
InputStr "@X0BSelect the number of your BBS or 0 to Abort", INTEGER001, 11, 2, Mask_Num(), 2
If (INTEGER001 == 0) Goto LABEL003
If (INTEGER001 == 1) STRING034 = "PCBoard "
If (INTEGER001 == 2) STRING034 = "Wildcat "
If (INTEGER001 == 3) STRING034 = "GAP "
If (INTEGER001 == 4) STRING034 = "Spitfire"
If (INTEGER001 == 5) STRING034 = "Auntie "
If (INTEGER001 == 6) STRING034 = "TriBBS "
If (INTEGER001 == 7) STRING034 = "MajorBBS"
If (INTEGER001 == 8) STRING034 = "UltraBBS"
If (INTEGER001 == 9) STRING034 = "RBBS "
If (INTEGER001 == 10) STRING034 = "QBBS "
If (INTEGER001 == 11) STRING034 = "PowerBBS"
If (INTEGER001 == 12) STRING034 = "Searchlt"
If (INTEGER001 == 13) STRING034 = "WWIV "
If (INTEGER001 == 14) STRING034 = "Renegade"
If (INTEGER001 == 15) STRING034 = " "
If (INTEGER001 == 15) Goto LABEL025
If (INTEGER001 > 15) Goto LABEL035
Goto LABEL026
:LABEL025
STRING034 = ""
InputStr "What BBS software is it (8 char abbreviation)", STRING034, 11, 8, Mask_Alpha() + Mask_Ascii(), 2 + 128
If (STRING034 == "") Goto LABEL003
STRING034 = STRING034 + " "
:LABEL026
Cls
InputStr "@X0BWhat is the name of your BBS (17 chars only)", STRING023, 11, 17, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2
If (STRING023 == "") Goto LABEL003
If (Len(STRING023) == 1) Goto LABEL003
If (Len(STRING023) == 2) STRING024 = " "
If (Len(STRING023) == 3) STRING024 = " "
If (Len(STRING023) == 4) STRING024 = " "
If (Len(STRING023) == 5) STRING024 = " "
If (Len(STRING023) == 6) STRING024 = " "
If (Len(STRING023) == 7) STRING024 = " "
If (Len(STRING023) == 8) STRING024 = " "
If (Len(STRING023) == 9) STRING024 = " "
If (Len(STRING023) == 10) STRING024 = " "
If (Len(STRING023) == 11) STRING024 = " "
If (Len(STRING023) == 12) STRING024 = " "
If (Len(STRING023) == 13) STRING024 = " "
If (Len(STRING023) == 14) STRING024 = " "
If (Len(STRING023) == 15) STRING024 = " "
If (Len(STRING023) == 16) STRING024 = " "
If (Len(STRING023) == 17) STRING024 = ""
STRING029 = " - - "
InputStr "@X0BWhat is your BBS's phone no (xxx-xxx-xxxx format)", STRING029, 11, 12, Mask_Num() + "-", 2 + 128 + 1024
If (Len(STRING029) == 10) STRING030 = " "
If (Len(STRING029) == 11) STRING030 = " "
If (Len(STRING029) == 12) STRING030 = ""
If (Len(STRING029) < 10) Goto LABEL003
INTEGER001 = 0
Cls
PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
PrintLn " @X5D│ @X511) @X5Fv.32bis @X512) @X5FUSR HST @X513) @X5FD/S 14.4 @X514) @X5FD/S 16.8 @X515) @X5FZyXel @X516) @X5FOthers @X50│@X07"
PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
PrintLn " @X0EWhat modem is on your BBS phone number: @X0F", STRING029, "@X0B"
InputStr "Select 1, 2, 3, 4, 5, 6 or 0 to Abort", INTEGER001, 11, 1, Mask_Num(), 2 + 128
If (INTEGER001 == "") Goto LABEL003
If (INTEGER001 == 0) Goto LABEL003
If (INTEGER001 == 1) STRING031 = "v.32bis "
If (INTEGER001 == 2) STRING031 = "USR HST "
If (INTEGER001 == 3) STRING031 = "D/S 14.4"
If (INTEGER001 == 4) STRING031 = "D/S 16.8"
If (INTEGER001 == 5) STRING031 = "ZyXel "
If (INTEGER001 == 6) STRING031 = "-Other- "
If (INTEGER001 > 6) Goto LABEL035
Cls
Color 11
InputStr "What city is the BBS in ", STRING025, 11, 12, Mask_Alpha() + Mask_Ascii(), 2 + 128
If (STRING025 == "") Goto LABEL003
If (Len(STRING025) == 1) Goto LABEL003
If (Len(STRING025) == 2) Goto LABEL003
If (Len(STRING025) == 3) STRING026 = " "
If (Len(STRING025) == 4) STRING026 = " "
If (Len(STRING025) == 5) STRING026 = " "
If (Len(STRING025) == 6) STRING026 = " "
If (Len(STRING025) == 7) STRING026 = " "
If (Len(STRING025) == 8) STRING026 = " "
If (Len(STRING025) == 9) STRING026 = " "
If (Len(STRING025) == 10) STRING026 = " "
If (Len(STRING025) == 11) STRING026 = " "
If (Len(STRING025) == 12) STRING026 = " "
Cls
InputStr "What ST/Prov is the BBS in (2/3 char abbreviation)", STRING027, 11, 3, Mask_Alpha() + Mask_Ascii(), 8 + 2 + 128
If (STRING027 == "") Goto LABEL003
If (Len(STRING027) == 1) Goto LABEL003
If (Len(STRING027) == 2) STRING028 = " "
If (Len(STRING027) == 3) STRING028 = " "
Cls
INTEGER001 = 0
PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
PrintLn " @X5D│ @X511 @X5FAustralia@X51.......... 12 @X5FIreland@X51........... 23 @X5FPortugal@X51.......... @X50│@X07"
PrintLn " @X5D│ @X512 @X5FAustria@X51............ 13 @X5FIsrael@X51............ 24 @X5FRussia@X51............ @X50│@X07"
PrintLn " @X5D│ @X513 @X5FBelgium@X51............ 14 @X5FItaly@X51............. 25 @X5FSaudi Arabia@X51...... @X50│@X07"
PrintLn " @X5D│ @X514 @X5ECanada@X51............. 15 @X5FJapan@X51............. 26 @X5FScotland@X51.......... @X50│@X07"
PrintLn " @X5D│ @X515 @X5FDenmark@X51............ 16 @X5FKuwait@X51............ 27 @X5FSingapore@X51......... @X50│@X07"
PrintLn " @X5D│ @X516 @X5FEgypt@X51.............. 17 @X5FMalaysia@X51.......... 28 @X5FSpain@X51............. @X50│@X07"
PrintLn " @X5D│ @X517 @X5EEngland@X51............ 18 @X5FMexico@X51............ 29 @X5FSweden@X51............ @X50│@X07"
PrintLn " @X5D│ @X518 @X5FFrance@X51............. 19 @X5FNorway@X51............ 30 @X5FSwitzerland@X51....... @X50│@X07"
PrintLn " @X5D│ @X519 @X5FGermany@X51............ 20 @X5FNew Zealand@X51....... 31 @X5FTaiwan@X51............ @X50│@X07"
PrintLn " @X5D│ @X5110 @X5FHolland@X51............ 21 @X5FPhilappines@X51....... 32 @X5EUnited States@X51..... @X50│@X07"
PrintLn " @X5D│ @X5111 @X5FIndia@X51.............. 22 @X5FPoland@X51............ 33 @X5FOther@X51............. @X50│@X07"
PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
InputStr "Select # representing the country the BBS in or 0 to Abort", INTEGER001, 11, 2, Mask_Num(), 2 + 128
If (INTEGER001 == 0) Goto LABEL003
If (INTEGER001 == 1) STRING033 = "AUS"
If (INTEGER001 == 2) STRING033 = "AST"
If (INTEGER001 == 3) STRING033 = "BEL"
If (INTEGER001 == 4) STRING033 = "CAN"
If (INTEGER001 == 5) STRING033 = "DEN"
If (INTEGER001 == 6) STRING033 = "EGY"
If (INTEGER001 == 7) STRING033 = "ENG"
If (INTEGER001 == 8) STRING033 = "FRA"
If (INTEGER001 == 9) STRING033 = "GER"
If (INTEGER001 == 10) STRING033 = "HOL"
If (INTEGER001 == 11) STRING033 = "IND"
If (INTEGER001 == 12) STRING033 = "IRE"
If (INTEGER001 == 13) STRING033 = "ISR"
If (INTEGER001 == 14) STRING033 = "ITA"
If (INTEGER001 == 15) STRING033 = "JPN"
If (INTEGER001 == 16) STRING033 = "KUW"
If (INTEGER001 == 17) STRING033 = "MAL"
If (INTEGER001 == 18) STRING033 = "MEX"
If (INTEGER001 == 19) STRING033 = "NOR"
If (INTEGER001 == 20) STRING033 = "NZE"
If (INTEGER001 == 21) STRING033 = "PHI"
If (INTEGER001 == 22) STRING033 = "POL"
If (INTEGER001 == 23) STRING033 = "POR"
If (INTEGER001 == 24) STRING033 = "RUS"
If (INTEGER001 == 25) STRING033 = "SAU"
If (INTEGER001 == 26) STRING033 = "SCO"
If (INTEGER001 == 27) STRING033 = "SIN"
If (INTEGER001 == 28) STRING033 = "SPA"
If (INTEGER001 == 29) STRING033 = "SWE"
If (INTEGER001 == 30) STRING033 = "SWI"
If (INTEGER001 == 31) STRING033 = "TAI"
If (INTEGER001 == 32) STRING033 = "USA"
If (INTEGER001 == 33) STRING033 = " "
If (INTEGER001 == 33) Goto LABEL027
If (INTEGER001 > 33) Goto LABEL035
Goto LABEL028
:LABEL027
STRING033 = ""
InputStr "What country is the BBS in (3 char abbreviation)", STRING033, 11, 3, Mask_Alpha() + Mask_Ascii(), 8 + 2 + 128
If (STRING033 == "") Goto LABEL003
:LABEL028
INTEGER001 = 0
Cls
PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
PrintLn " @X5D│ @X511) @X5F($) Pay Only @X512) @X5F(R) Ratios @X513) @X5F(N) No Ratios @X50│@X07"
PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
PrintLn " @X0EWhat access policy is the BBS"
InputStr "Select 1, 2, 3 or 0 to Abort", INTEGER001, 11, 1, Mask_Num(), 2 + 128
If (INTEGER001 == "") Goto LABEL003
If (INTEGER001 == 0) Goto LABEL003
If (INTEGER001 == 1) STRING018 = "$"
If (INTEGER001 == 2) STRING018 = "R"
If (INTEGER001 == 3) STRING018 = "N"
If (INTEGER001 > 3) Goto LABEL035
STRING019 = ""
Cls
PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
PrintLn " @X5D│ @X51Meg Size on BBS @X50│@X07"
PrintLn " @X5D│ @X5FOur list will show Meg Size in -how many 100 Megs-. In other words, if @X50│@X07"
PrintLn " @X5D│ @X5Fyou have 300 megs on your board, enter a 3. If you have 1.2 Gig, enter @X50│@X07"
PrintLn " @X5D│ @X5F12, if you have 5 Gigs, enter 50, 10 Gigs is 100 and so on. @X50│@X07"
PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
InputStr " How many 100 Meg increments on your BBS", STRING019, 11, 3, Mask_Num(), 2 + 128
If (STRING019 == "") Goto LABEL003
If (Len(STRING019) == 1) STRING020 = " "
If (Len(STRING019) == 2) STRING020 = " "
If (Len(STRING019) == 3) STRING020 = ""
STRING021 = ""
Cls
InputStr "How many nodes on your BBS (if over 99 enter 99)", STRING021, 11, 2, Mask_Num(), 2 + 128
If (STRING021 == "") Goto LABEL003
If (Len(STRING021) == 1) STRING022 = " "
If (Len(STRING021) == 2) STRING022 = ""
STRING036 = ""
Cls
PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
PrintLn " @X5D│ @X51Secondary Line @X50│@X07"
PrintLn " @X5D│ @X5FYou now have a second line (up to 75 characters) to add other features @X50│@X07"
PrintLn " @X5D│ @X5Fof your BBS to this list (such as CD-Roms, networks on your board, how @X50│@X07"
PrintLn " @X5D│ @X5Fmany nodes, other modems supported, etc). Take advantage of this one! @X50│@X07"
PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
InputStr "@X0B", STRING036, 11, 75, Mask_Ascii() + Mask_Alpha() + Mask_Num(), 2 + 128
If (STRING036 == "") STRING036 = " "
STRING036 = "@X07" + STRING036
Cls
Gosub LABEL036
STRING011 = ""
PrintLn STRING037
PrintLn "@X0B", STRING034, "@X0F ", STRING023, STRING024, "@X0E ", STRING029, STRING030, "@X0F ", STRING031, " @X0A ", STRING027, STRING028, STRING025, STRING026, STRING033, "@X0D ", STRING018, " ", "@X0F", STRING020, STRING019, "@X0C/@X0F", STRING022, STRING021
PrintLn STRING036
PrintLn STRING037
PrintLn
InputStr "@X0FIs the above BBS info correct (Y/N)", STRING011, 11, 1, Mask_Alpha(), 8 + 2
If (STRING011 == "Y") Goto LABEL029
Goto LABEL003
:LABEL029
FAppend 1, STRING038, 2, 3
FPutLn 1, "@X0B", STRING034, "@X0F ", STRING023, STRING024, "@X0E ", STRING029, STRING030, "@X0F ", STRING031, " @X0A ", STRING027, STRING028, STRING025, STRING026, STRING033, "@X0D ", STRING018, " ", "@X0F", STRING020, STRING019, "@X0C/@X0F", STRING022, STRING021
FPutLn 1, STRING036
FClose 1
If (Exist(PPEPath() + "BBSLISTR.CNF")) Then
INTEGER009 = INTEGER009 + 1
FOpen 1, PPEPath() + "BBSLISTR.CNF", 1, 0
FPutLn 1, STRING006
FPutLn 1, INTEGER007
FPutLn 1, INTEGER005
FPutLn 1, INTEGER009
FClose 1
Goto LABEL030
Endif
PrintLn "@X0CError - Config file not found - Please notify SysOp"
End
:LABEL030
PrintLn
PrintLn "@X0BYour BBS Information has been added to our list - Thank you, @FIRST@"
PrintLn
Wait
Goto LABEL003
:LABEL031
Cls
PrintLn
PrintLn
PrintLn " @X50┌──────────────────────────────@X5D┐@X0D"
PrintLn " @X50│ @X5ABBS Lister v", STRING032, " @X5D│@X0D"
PrintLn " @X50│ @X5D│@X0D"
If (STRING017 == "N") Then
PrintLn " @X50│ @X51UNREGISTERED @X5D│@X07"
PrintLn " @X50│ @X5D│@X0D"
PrintLn " @X50│ @X5BRegistration is only $10 @X5D│@X07"
PrintLn " @X50│@X5BPlease help support shareware.@X5D│@X07"
PrintLn " @X50└@X5D──────────────────────────────┘@X07"
Beep
Delay 125
Goto LABEL032
Endif
PrintLn " @X50│ @X5BReg # ", STRING010, " @POS:55@@X5D│@X07"
PrintLn " @X50│@X5B", STRING007, STRING006, "@POS:55@@X5D│@X07"
PrintLn " @X50└@X5D──────────────────────────────┘@X07"
PrintLn
Wait
:LABEL032
End
:LABEL033
Cls
PrintLn
PrintLn
PrintLn " @X50┌──────────────────────────────@X5D┐@X0D"
PrintLn " @X50│ @X5ABBS Lister v", STRING032, " @X5D│@X0D"
PrintLn " @X50│ @X5D│@X0D"
If (STRING017 == "N") Then
PrintLn " @X50│ @X51UNREGISTERED @X5D│@X07"
PrintLn " @X50│ @X5D│@X0D"
PrintLn " @X50│ @X5BRegistration is only $10 @X5D│@X07"
PrintLn " @X50│@X5BPlease help support shareware.@X5D│@X07"
PrintLn " @X50└@X5D──────────────────────────────┘@X07"
Beep
Delay 125
Goto LABEL034
Endif
PrintLn " @X50│ @X5BReg # ", STRING010, " @POS:55@@X5D│@X07"
PrintLn " @X50│@X5B", STRING007, STRING006, "@POS:55@@X5D│@X07"
PrintLn " @X50└@X5D──────────────────────────────┘@X07"
PrintLn
Wait
:LABEL034
Bye
:LABEL035
PrintLn
PrintLn "@X0FSorry... you entered an invalid number"
PrintLn
Wait
Goto LABEL003
Endif
Cls
PrintLn
PrintLn " @X50┌──────────────────────────────@X5D┐@X07"
PrintLn " @X50│ @X5BBBS Lister v1.0 @X5D│@X07"
PrintLn " @X50│ @X5D│@X07"
PrintLn " @X50│ @X5BAborting Operation @X5D│@X07"
PrintLn " @X50│ @X5D│@X07"
PrintLn " @X50│ @X5BInvalid Registration Code! @X5D│@X07"
PrintLn " @X50└@X5D──────────────────────────────┘@X07"
Beep
Delay 182
End
:LABEL036
Cls
PrintLn "@X5BBBS S/W @X5FBBS Name @X5EBBS Phone # @X5FModem @X5AST City Ctry @X5FMb@X5C/@X5FNode"
Return
:LABEL037
PrintLn Chr(13), STRING035
PrintLn Chr(13), STRING036
PrintLn Chr(13), STRING037
INTEGER010 = INTEGER010 + 1
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 4 End
; 33 Cls
; 16 Wait
; 1 Color
; 126 Goto
; 269 Let
; 191 PrintLn
; 285 If
; 1 DispFile
; 11 FOpen
; 1 FAppend
; 12 FClose
; 22 FGet
; 6 FPutLn
; 2 StartDisp
; 25 InputStr
; 20 Gosub
; 2 Return
; 5 Delay
; 1 Tokenize
; 2 GetToken
; 5 Beep
; 2 Bye
;
;
; ■ Functions used :
;
; 81 +
; 254 ==
; 10 <
; 9 <=
; 7 >
; 22 >=
; 26 !
; 18 &&
; 10 ||
; 71 Len(
; 3 Upper()
; 8 Mid()
; 2 Left()
; 21 Chr()
; 2 InStr()
; 10 Mask_Alpha()
; 17 Mask_Num()
; 8 Mask_Ascii()
; 23 PPEPath()
; 11 Exist()
; 1 S2I()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 9 For/Next
; 0 While/EndWhile
; 17 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------