home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
BBS
/
CW_IN_45.ZIP
/
INTELEC.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-09-30
|
25KB
|
1,226 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
;------------------------------------------------------------------------------
Date DATE001
Date DATE002
Date DATE003
Date DATE004
Date DATE005
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer INTEGER010
Integer INTEGER011
Integer INTEGER012
Integer INTEGER013
Integer INTEGER014
Integer INTEGER015
Integer INTEGER016
Integer INTEGER017
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
String STRING039
String STRING040
String STRING041
String STRING042
String STRING043
String STRING044
String STRING045
String STRING046
String STRING047
String STRING048
String STRING049
String STRING050
String STRING051
String STRING052
String STRING053
String STRING054
String STRING055
String STRING056
String STRING057
;------------------------------------------------------------------------------
If (INTEGER011 == 1) Then
INTEGER011 = "CRW"
Beep
Endif
INTEGER012 = 36
STRING047 = PPEPath() + PPEName() + ".CNF"
STRING055 = 58053
STRING053 = "N"
STRING056 = "U" + "n" + "r" + "e" + "g" + "i" + "s" + "t" + "e" + "r" + "e" + "d"
If (PPEName() == "SUBSCRIP") STRING054 = 46554
If (PPEName() == "FONE-VER") STRING054 = 34479
If (PPEName() == "PRO-VOTE") STRING054 = 57877
If (PPEName() == "CONFMENU") STRING054 = 27062
If (PPEName() == "FILEMENU") STRING054 = 14513
If (PPEName() == "MAINMENU") STRING054 = 25781
If (PPEName() == "DOORMENU") STRING054 = 44910
If (PPEName() == "AUTOPOST") STRING054 = 61482
If (PPEName() == "BBSLISTR") STRING054 = 11832
If (PPEName() == "REMINDME") STRING054 = 54925
If (PPEName() == "TIMEZONE") STRING054 = 38318
If (PPEName() == "USERNEWS") STRING054 = 31171
If (PPEName() == "MSGQUEST") STRING054 = 50024
If (PPEName() == "BIRTHDAY") STRING054 = 19645
If (PPEName() == "HOWHEARD") STRING054 = 42868
If (PPEName() == "WELCOMAT") STRING054 = 23034
If (Exist(STRING047)) Then
FOpen 1, STRING047, 0, 0
FGet 1, STRING042
FGet 1, INTEGER015
FGet 1, INTEGER014
FClose 1
Else
Select Case (PPEName())
Case "MAINT"
STRING047 = PPEPath() + "PRO-VOTE.CNF"
Case "CMW"
STRING047 = PPEPath() + "CONFMENU.CNF"
Case "INTELAPP"
STRING047 = PPEPath() + "INTELEC.CNF"
Case Else
PrintLn "@X0CError - Config file not found - Please notify SysOp"
End
Endif
End Select
Tokenize STRING042
GetToken STRING051
GetToken STRING052
If (INTEGER015 == 0) Then
STRING053 = "N"
Goto LABEL003
Else
Goto LABEL001
Endif
:LABEL001
STRING048 = Left(STRING051, 1)
STRING049 = Left(STRING052, 2)
STRING050 = STRING048 + STRING049
If (STRING048 == "A") INTEGER016 = 8408
If (STRING048 == "B") INTEGER016 = 9119
If (STRING048 == "C") INTEGER016 = 6619
If (STRING048 == "D") INTEGER016 = 4820
If (STRING048 == "E") INTEGER016 = 7325
If (STRING048 == "F") INTEGER016 = 2928
If (STRING048 == "G") INTEGER016 = 2031
If (STRING048 == "H") INTEGER016 = 1934
If (STRING048 == "I") INTEGER016 = 5534
If (STRING048 == "J") INTEGER016 = 4737
If (STRING048 == "K") INTEGER016 = 9242
If (STRING048 == "L") INTEGER016 = 3743
If (STRING048 == "M") INTEGER016 = 6546
If (STRING048 == "N") INTEGER016 = 8355
If (STRING048 == "O") INTEGER016 = 2859
If (STRING048 == "P") INTEGER016 = 4660
If (STRING048 == "Q") INTEGER016 = 7463
If (STRING048 == "R") INTEGER016 = 1164
If (STRING048 == "S") INTEGER016 = 6471
If (STRING048 == "T") INTEGER016 = 3973
If (STRING048 == "U") INTEGER016 = 5674
If (STRING048 == "V") INTEGER016 = 5782
If (STRING048 == "W") INTEGER016 = 3885
If (STRING048 == "X") INTEGER016 = 8287
If (STRING048 == "Y") INTEGER016 = 7591
If (STRING048 == "Z") INTEGER016 = 1096
INTEGER013 = S2I(STRING050, INTEGER012) + INTEGER015 + STRING054 + INTEGER016
INTEGER017 = S2I(STRING050, INTEGER012) + INTEGER015 + STRING055 + INTEGER016
If (INTEGER014 == INTEGER013) Goto LABEL002
If (INTEGER014 == INTEGER017) Goto LABEL002
Goto LABEL053
:LABEL002
STRING053 = "Y"
If (Len(INTEGER015) == 1) STRING044 = "000"
If (Len(INTEGER015) == 2) STRING044 = "00"
If (Len(INTEGER015) == 3) STRING044 = "0"
If (Len(INTEGER015) == 4) STRING044 = ""
STRING045 = INTEGER015
STRING046 = STRING044 + STRING045
STRING043 = Space(30 - Len(STRING042))
:LABEL003
STRING057 = "CRW"
FDefIn 1
STRING023 = "4.5 "
If (Exist(PPEPath() + "INTELEC.CNF")) Then
FOpen 1, PPEPath() + "INTELEC.CNF", 0, 0
FGet 1, STRING003
FGet 1, STRING004
FGet 1, STRING010
FGet 1, STRING007
FGet 1, STRING010
FGet 1, STRING014
FGet 1, STRING015
FGet 1, STRING016
FGet 1, STRING017
FGet 1, STRING018
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING019
FClose 1
Else
PrintLn "@X0CError - Config file not found - Please notify SysOp"
End
Endif
GetUser
STRING006 = Left(U_Name(), 17)
DATE001 = Date()
INTEGER007 = Month(DATE001)
STRING040 = INTEGER007
If (Len(STRING040) == 1) Then
STRING040 = "0" + STRING040
Endif
INTEGER008 = Year(DATE001)
STRING039 = String(INTEGER008)
STRING021 = "IN_" + Right(STRING039, 2) + STRING040 + ".ZIP"
STRING022 = "INB_" + Right(STRING039, 2) + STRING040 + ".ZIP"
STRING005 = " Intelec PPE v" + STRING023 + " ■ " + STRING003 + " ■ " + STRING004 + " ■ "
GetToken STRING008
If (STRING008 == "I") STRING009 = "Y"
If (!(STRING008 == "I")) STRING009 = "N"
If (STRING009 == "Y") Goto LABEL004
FOpen 1, STRING014, 0, 0
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING011
FClose 1
DATE002 = Mid(STRING011, 38, 8)
If (DATE001 > DATE002) Goto LABEL025
Goto LABEL005
:LABEL004
FOpen 1, STRING014, 0, 0
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING011
FClose 1
DATE002 = Mid(STRING011, 49, 8)
If (DATE001 > DATE002) Goto LABEL025
:LABEL005
FOpen 1, STRING016, 0, 0
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FClose 1
INTEGER003 = Mid(STRING010, 42, 3)
FOpen 1, STRING015, 0, 0
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FClose 1
INTEGER004 = Mid(STRING010, 47, 3)
WrUNet PcbNode(), UN_Stat(), U_Name(), "Intelec Database - Menu", "", ""
Cls
DispFile PPEPath() + "WELC", 4 + 2 + 1
Color 15
PrintLn STRING005
PrintLn
Wait
:LABEL006
Cls
StartDisp 2
STRING012 = "Q"
INTEGER001 = 0
STRING001 = ""
STRING002 = ""
DispFile PPEPath() + "MAIN", 4 + 2 + 1
PrintLn
InputStr "@X0B Please select Menu Letter ", STRING012, 11, 1, Mask_Alpha(), 8 + 2
If (STRING012 == "A") Then
If (STRING007 == "N") Goto LABEL026
If (STRING009 == "Y") Call PPEPath() + "INTELAPP.PPE I"
If (STRING009 == "N") Call PPEPath() + "INTELAPP.PPE"
Goto LABEL006
Endif
If (STRING012 == "C") Goto LABEL030
If (STRING012 == "D") Goto LABEL029
If (STRING012 == "E") Goto LABEL027
If (STRING012 == "G") Bye
If (STRING012 == "H") Goto LABEL022
If ((STRING012 == "I") && (STRING019 == "N")) Goto LABEL009
If (STRING012 == "I") Goto LABEL010
If (STRING012 == "M") Goto LABEL023
If (STRING012 == "N") STRING002 = "Y"
If (STRING012 == "N") Goto LABEL039
If (STRING012 == "P") Goto LABEL028
If (STRING012 == "Q") Goto LABEL007
If (STRING012 == "R") Goto LABEL008
If (STRING012 == "S") STRING001 = "Y"
If (STRING012 == "S") Goto LABEL039
If (STRING012 == "T") Goto LABEL019
Goto LABEL024
:LABEL007
Cls
DispFile PPEPath() + "BYE", 4 + 2 + 1
End
:LABEL008
WrUNet PcbNode(), UN_Stat(), U_Name(), "Intelec Database - Rules", "", ""
Color 11
Cls
DispFile STRING014, 4 + 2 + 1
Wait
Goto LABEL006
:LABEL009
WrUNet PcbNode(), UN_Stat(), U_Name(), "Intelec - IN Basket File", "", ""
Cls
PrintLn "@X0ESorry @FIRST@, the newsletter is not available on this system."
PrintLn
Wait
Goto LABEL006
:LABEL010
WrUNet PcbNode(), UN_Stat(), U_Name(), "Intelec - IN Basket File", "", ""
Cls
StartDisp 2
STRING012 = "Q"
DispFile PPEPath() + "MAININB", 4 + 2 + 1
PrintLn
DATE005 = FileInf(STRING019 + "CONFSTAT.INB", 2)
If (Month(DATE005) < Month(Date())) Then
PrintLn "@X0BSorry, the IN Basket on this system is too old, please ask SysOp to get the new"
PrintLn "@X0Bfile called @X0F", STRING022, "@X0B. This program will not display an outdated newsletter."
Wait
Goto LABEL006
Endif
InputStr "@X0B Please select Menu Letter ", STRING012, 11, 1, Mask_Alpha(), 8 + 2
Cls
If (STRING012 == "E") Goto LABEL011
If (STRING012 == "A") Goto LABEL012
If (STRING012 == "H") Goto LABEL013
If (STRING012 == "I") Goto LABEL014
If (STRING012 == "C") Goto LABEL015
If (STRING012 == "M") Goto LABEL016
If (STRING012 == "N") Goto LABEL017
If (STRING012 == "B") Goto LABEL018
If (STRING012 == "Q") Goto LABEL006
Goto LABEL024
:LABEL011
WrUNet PcbNode(), UN_Stat(), U_Name(), "IN Basket - Editor Notes", "", ""
STRING020 = STRING019 + "EDITNOTE.INB"
DispFile STRING020, 4 + 2 + 1
PrintLn
Wait
Goto LABEL010
:LABEL012
WrUNet PcbNode(), UN_Stat(), U_Name(), "IN Basket Network News", "", ""
STRING020 = STRING019 + "NEWS_NET.INB"
DispFile STRING020, 4 + 2 + 1
PrintLn
Wait
Goto LABEL010
:LABEL013
WrUNet PcbNode(), UN_Stat(), U_Name(), "IN Basket - NeedMod File", "", ""
STRING020 = STRING019 + "NEWS_MOD.INB"
DispFile STRING020, 4 + 2 + 1
PrintLn
Wait
Goto LABEL010
:LABEL014
WrUNet PcbNode(), UN_Stat(), U_Name(), "IN Basket - Conferences", "", ""
STRING020 = STRING019 + "NEWS_CNF.INB"
DispFile STRING020, 4 + 2 + 1
PrintLn
Wait
Goto LABEL010
:LABEL015
WrUNet PcbNode(), UN_Stat(), U_Name(), "IN Basket - Conf Stats", "", ""
STRING020 = STRING019 + "CONFSTAT.INB"
DispFile STRING020, 4 + 2 + 1
PrintLn
Wait
Goto LABEL010
:LABEL016
WrUNet PcbNode(), UN_Stat(), U_Name(), "IN Basket - Node Stats", "", ""
STRING020 = STRING019 + "NODESTAT.INB"
DispFile STRING020, 4 + 2 + 1
PrintLn
Wait
Goto LABEL010
:LABEL017
WrUNet PcbNode(), UN_Stat(), U_Name(), "IN Basket - Mods Needed", "", ""
STRING020 = STRING019 + "NEEDMODS.INB"
DispFile STRING020, 4 + 2 + 1
PrintLn
Wait
Goto LABEL010
:LABEL018
WrUNet PcbNode(), UN_Stat(), U_Name(), "IN Basket - HiLites File", "", ""
STRING020 = STRING019 + "HI_LITES.INB"
DispFile STRING020, 4 + 2 + 1
PrintLn
Wait
Goto LABEL010
:LABEL019
WrUNet PcbNode(), UN_Stat(), U_Name(), "IN Basket - Random BBS's", "", ""
INTEGER006 = 0
If (AnsiOn()) Goto LABEL020
PrintLn "@CLS@@X0BSorry, ANSI required to operate Random BBS Generator"
PrintLn
Wait
Goto LABEL006
:LABEL020
PrintLn "@CLS@@X0DGive it a few seconds, then press any key to stop totally random scan"
:LABEL021
FOpen 1, STRING016, 0, 0
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
For INTEGER002 = 1 To INTEGER003
If (INTEGER006 == 10) INTEGER006 = 0
INTEGER006 = INTEGER006 + 1
FGet 1, STRING034
FGet 1, STRING035
FGet 1, STRING036
FGet 1, STRING037
FGet 1, STRING038
If (INTEGER006 == 1) STRING041 = "▄ "
If (INTEGER006 == 6) STRING041 = " ▀ "
If (INTEGER006 == 2) STRING041 = " ▄ "
If (INTEGER006 == 7) STRING041 = " ▀ "
If (INTEGER006 == 3) STRING041 = " ▄ "
If (INTEGER006 == 8) STRING041 = " ▀ "
If (INTEGER006 == 4) STRING041 = " ▄ "
If (INTEGER006 == 9) STRING041 = " ▀ "
If (INTEGER006 == 5) STRING041 = " ▄ "
If (INTEGER006 == 10) STRING041 = "▀ "
STRING034 = " @X0B" + Mid(STRING034, 9, 71)
STRING035 = " @X0F" + Mid(STRING035, 9, 71)
STRING036 = " @X0E" + Mid(STRING036, 9, 71)
STRING037 = " @X0A" + Mid(STRING037, 9, 71)
STRING038 = " @X0C" + Mid(STRING038, 9, 71)
AnsiPos 71, 1
Print STRING041
If (KInkey() == "") Then
If (MInkey() == "") Then
Next
FClose 1
Goto LABEL021
Endif
Endif
AnsiPos 71, 1
Print " "
AnsiPos 1, 3
PrintLn STRING034
PrintLn STRING035
PrintLn STRING036
PrintLn STRING037
PrintLn STRING038
PrintLn
FClose 1
Wait
Goto LABEL006
:LABEL022
WrUNet PcbNode(), UN_Stat(), U_Name(), "IN Basket - Conf Changes", "", ""
Color 11
Cls
DispFile STRING017, 4 + 2 + 1
Wait
Goto LABEL006
:LABEL023
WrUNet PcbNode(), UN_Stat(), U_Name(), "IN Basket - Read_Me File", "", ""
Color 11
Cls
DispFile STRING018, 4 + 2 + 1
Wait
Goto LABEL006
:LABEL024
PrintLn
PrintLn "@X0FSorry... you entered an invalid menu letter"
PrintLn
Wait
Goto LABEL006
:LABEL025
Cls
Color 15
PrintLn "Intelec PPE has ABORTED. The database expired on @X0E", DATE002, "@X0F, ask the SysOp"
PrintLn "to install a CURRENT Intelec distribution file, they're available from"
PrintLn "Intelec each month with updated info. We're sorry for the inconvenience."
Stop
:LABEL026
Cls
DispFile PPEPath() + "NOAPP", 4 + 2 + 1
PrintLn
More
Goto LABEL006
:LABEL027
Cls
PrintLn
PrintLn " @X0BThe Intelec Database Expires on @X0F", DATE002
PrintLn
Color 7
Wait
Goto LABEL006
:LABEL028
Cls
DispFile PPEPath() + "MYSTUFF", 4 + 2 + 1
Wait
Goto LABEL006
:LABEL029
WrUNet PcbNode(), UN_Stat(), U_Name(), "Intelec Database File DL", "", ""
Cls
Color 10
PrintLn " If @X0F", STRING021, "@X0A is on this BBS you will be able to download it right now."
PrintLn " If it's @X0Cnot@X0A found on this BBS, please ask SysOp to get it from the @X0FHost@X0A."
PrintLn
Wait
Download STRING021
Goto LABEL006
:LABEL030
StartDisp 2
INTEGER001 = 0
STRING012 = ""
Cls
InputStr "@X0FD@X0B)isplay Conferences @X0FS@X0B)earch Conferences @X0F<Enter>@X0B to Return", STRING012, 11, 1, Mask_Alpha(), 2 + 8 + 128
If (STRING012 == "D") Goto LABEL031
If (STRING012 == "S") Goto LABEL032
Goto LABEL006
:LABEL031
WrUNet PcbNode(), UN_Stat(), U_Name(), "Intelec - Conf Display", "", ""
INTEGER006 = 0
Cls
FOpen 1, STRING015, 0, 0
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
For INTEGER002 = 1 To INTEGER004
FGet 1, STRING024
FGet 1, STRING025
FGet 1, STRING026
FGet 1, STRING027
FGet 1, STRING028
FGet 1, STRING029
FGet 1, STRING030
FGet 1, STRING031
FGet 1, STRING032
FGet 1, STRING033
If (INTEGER006 == 2) INTEGER006 = 0
STRING024 = "@X0A" + STRING024
STRING025 = "@X0F" + STRING025
STRING026 = "@X0F" + STRING026
STRING027 = "@X0F" + STRING027
STRING028 = "@X0F" + STRING028
STRING029 = "@X0A" + STRING029
STRING030 = "@X0B" + STRING030
STRING031 = "@X0B" + STRING031
STRING032 = "@X0B" + STRING032
STRING033 = "@X0B" + STRING033
PrintLn Chr(13), STRING024
PrintLn Chr(13), STRING025
PrintLn Chr(13), STRING026
PrintLn Chr(13), STRING027
PrintLn Chr(13), STRING028
PrintLn Chr(13), STRING029
PrintLn Chr(13), STRING030
PrintLn Chr(13), STRING031
PrintLn Chr(13), STRING032
PrintLn Chr(13), STRING033
INTEGER006 = INTEGER006 + 1
If (INTEGER006 == 2) Then
PrintLn Chr(13), STRING024
STRING013 = "Y"
InputYN "@X0EView next screen (Enter for more)", STRING013, 14
If (STRING013 == "N") Goto LABEL052
Cls
Endif
Next
FClose 1
Wait
Goto LABEL030
:LABEL032
WrUNet PcbNode(), UN_Stat(), U_Name(), "Intelec - Conf Search", "", ""
INTEGER006 = 0
INTEGER001 = 0
Cls
DispFile PPEPath() + "SCHCNF", 4 + 2 + 1
InputStr "Select 1 through 14 or <Enter> to Return ", INTEGER001, 11, 2, Mask_Num(), 2 + 128
If (INTEGER001 > 14) Goto LABEL032
If (INTEGER001 == 1) Goto LABEL035
If (INTEGER001 == 2) Goto LABEL036
If (INTEGER001 == 3) Goto LABEL037
If (INTEGER001 == 4) Goto LABEL038
If (INTEGER001 == 5) Goto LABEL033
If (INTEGER001 == 6) Goto LABEL033
If (INTEGER001 == 7) Goto LABEL033
If (INTEGER001 == 8) Goto LABEL033
If (INTEGER001 == 9) Goto LABEL033
If (INTEGER001 == 10) Goto LABEL033
If (INTEGER001 == 11) Goto LABEL033
If (INTEGER001 == 12) Goto LABEL033
If (INTEGER001 == 13) Goto LABEL033
If (INTEGER001 == 14) Goto LABEL033
Goto LABEL030
:LABEL033
Cls
FOpen 1, STRING015, 0, 0
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
For INTEGER002 = 1 To INTEGER004
FGet 1, STRING024
FGet 1, STRING025
FGet 1, STRING026
FGet 1, STRING027
FGet 1, STRING028
FGet 1, STRING029
FGet 1, STRING030
FGet 1, STRING031
FGet 1, STRING032
FGet 1, STRING033
If (INTEGER001 == 1) Then
If ((((InStr(Upper(STRING025), STRING012) >= 1) || (InStr(Upper(STRING026), STRING012) >= 1)) || (InStr(Upper(STRING027), STRING012) >= 1)) || (InStr(Upper(STRING028), STRING012) >= 1)) Then
Gosub LABEL051
Goto LABEL034
Endif
If ((((InStr(Upper(STRING030), STRING012) >= 1) || (InStr(Upper(STRING031), STRING012) >= 1)) || (InStr(Upper(STRING032), STRING012) >= 1)) || (InStr(Upper(STRING033), STRING012) >= 1)) Gosub LABEL051
Endif
:LABEL034
If (INTEGER001 == 2) Then
If ((InStr(Upper(STRING025), STRING012) >= 1) || (InStr(Upper(STRING027), STRING012) >= 1)) Gosub LABEL051
Endif
If (INTEGER001 == 3) Then
If (Mid(STRING025, 73, 3) == INTEGER010) Gosub LABEL051
Endif
If (INTEGER001 == 4) Then
DATE004 = Mid(STRING026, 68, 8)
If (DATE004 >= DATE003) Gosub LABEL051
Endif
If (INTEGER001 == 5) Then
If (Mid(STRING028, 10, 7) == "Private") Gosub LABEL051
Endif
If (INTEGER001 == 6) Then
If (Mid(STRING026, 8, 14) == "Administrative") Gosub LABEL051
Endif
If (INTEGER001 == 7) Then
If (Mid(STRING028, 20, 3) == "Req") Gosub LABEL051
Endif
If (INTEGER001 == 8) Then
If (Mid(STRING026, 8, 14) == "Author Support") Gosub LABEL051
Endif
If (INTEGER001 == 9) Then
If (Mid(STRING026, 8, 14) == "Issues ") Gosub LABEL051
Endif
If (INTEGER001 == 10) Then
If (Mid(STRING026, 8, 14) == "General ") Gosub LABEL051
Endif
If (INTEGER001 == 11) Then
If (Mid(STRING026, 8, 14) == "Technical ") Gosub LABEL051
Endif
If (INTEGER001 == 12) Then
If (Mid(STRING026, 8, 14) == "Programming ") Gosub LABEL051
Endif
If (INTEGER001 == 13) Then
If (Mid(STRING026, 8, 14) == "Religion ") Gosub LABEL051
Endif
If (INTEGER001 == 14) Then
If (Mid(STRING026, 8, 14) == "Organizational") Gosub LABEL051
Endif
Next
FClose 1
PrintLn
Wait
Goto LABEL032
:LABEL035
STRING012 = ""
PrintLn
InputStr "@X0BWhat text to search for", STRING012, 11, 25, Mask_Alpha() + Mask_Ascii() + Mask_Num(), 2 + 8 + 128
If (STRING012 == "") Goto LABEL030
Goto LABEL033
:LABEL036
STRING012 = ""
PrintLn
InputStr "@X0BWhat moderator or conference name to search for", STRING012, 11, 25, Mask_Alpha() + Mask_Ascii() + Mask_Num(), 2 + 8 + 128
If (STRING012 == "") Goto LABEL030
Goto LABEL033
:LABEL037
INTEGER010 = 0
PrintLn
InputStr "@X0BWhat conference # to search for", INTEGER010, 11, 3, Mask_Num(), 2 + 128
If (INTEGER010 == 0) Goto LABEL030
Goto LABEL033
:LABEL038
INTEGER010 = 0
DATE003 = 0
InputStr "@X0BHow many days back to search", INTEGER010, 11, 3, Mask_Num(), 2 + 128
DATE003 = Date() - INTEGER010
If (INTEGER010 == 0) Goto LABEL030
Goto LABEL033
:LABEL039
WrUNet PcbNode(), UN_Stat(), U_Name(), "Intelec NodeList Search", "", ""
Color 7
:LABEL040
INTEGER009 = 0
INTEGER005 = 0
INTEGER006 = 0
StartDisp 2
Cls
INTEGER001 = 0
DispFile PPEPath() + "SCHHUB", 4 + 2 + 1
InputStr "Select 1 through 8 or <Enter> to Return ", INTEGER001, 11, 1, Mask_Num(), 2 + 128
If (INTEGER001 == 1) Goto LABEL042
If (INTEGER001 == 2) Goto LABEL043
If (INTEGER001 == 3) Goto LABEL044
If (INTEGER001 == 4) Goto LABEL045
If (INTEGER001 == 5) Goto LABEL046
If (INTEGER001 == 6) Goto LABEL047
If (INTEGER001 == 7) Goto LABEL048
If (INTEGER001 == 8) Goto LABEL041
If (INTEGER001 >= 8) Goto LABEL039
Goto LABEL006
:LABEL041
INTEGER006 = 0
Cls
FOpen 1, STRING016, 0, 0
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
For INTEGER002 = 1 To INTEGER003
FGet 1, STRING034
FGet 1, STRING035
FGet 1, STRING036
FGet 1, STRING037
FGet 1, STRING038
If (((STRING002 == "Y") && !(Mid(STRING035, 68, 3) == "USA")) && !(Mid(STRING035, 68, 3) == "Can")) Gosub LABEL050
If ((((STRING001 == "Y") && !(Mid(STRING035, 68, 3) == "USA")) && !(Mid(STRING035, 68, 3) == "Can")) && !(Mid(STRING037, 9, 4) == "Node")) Gosub LABEL049
Next
FClose 1
PrintLn
If (STRING001 == "Y") PrintLn "@X0BTotal @X0FHub@X0B matches found: @X0F", INTEGER009, "@X0B"
If (STRING002 == "Y") PrintLn "@X0BTotal matches found: @X0F", INTEGER009, "@X0B"
PrintLn
Wait
Goto LABEL039
:LABEL042
INTEGER006 = 0
STRING012 = ""
PrintLn
InputStr "@X0BWhat State to search for (2 letter abbrev.)", STRING012, 11, 2, Mask_Alpha(), 2 + 8 + 128
If (STRING012 == "") Goto LABEL040
Cls
FOpen 1, STRING016, 0, 0
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
For INTEGER002 = 1 To INTEGER003
FGet 1, STRING034
FGet 1, STRING035
FGet 1, STRING036
FGet 1, STRING037
FGet 1, STRING038
If ((Mid(STRING035, 65, 2) == STRING012) && (STRING002 == "Y")) Gosub LABEL050
If (((Mid(STRING035, 65, 2) == STRING012) && (STRING001 == "Y")) && !(Mid(STRING037, 9, 14) == "Node ")) Gosub LABEL049
Next
FClose 1
PrintLn
If (STRING001 == "Y") PrintLn "@X0BTotal @X0FHub@X0B matches found: @X0F", INTEGER009, "@X0B"
If (STRING002 == "Y") PrintLn "@X0BTotal matches found: @X0F", INTEGER009, "@X0B"
PrintLn
Wait
Goto LABEL039
:LABEL043
INTEGER006 = 0
INTEGER001 = 0
Cls
DispFile PPEPath() + "SCHNET", 4 + 2 + 1
InputStr "@X0BWhat Net Software to search for", INTEGER001, 11, 2, Mask_Num(), 2 + 128
If (INTEGER001 == 0) Goto LABEL040
If (INTEGER001 == 1) STRING012 = "Rnet "
If (INTEGER001 == 2) STRING012 = "Qnet "
If (INTEGER001 == 3) STRING012 = "Cam-Mail "
If (INTEGER001 == 4) STRING012 = "RoseMail "
If (INTEGER001 == 5) STRING012 = "Tnet "
If (INTEGER001 == 6) STRING012 = "GapNet "
If (INTEGER001 == 7) STRING012 = "BG_QWK "
If (INTEGER001 == 8) STRING012 = "GT_QWK "
If (INTEGER001 == 9) STRING012 = "Jnet "
If (INTEGER001 == 10) STRING012 = "TriNet "
If (INTEGER001 == 11) STRING012 = "QWiKerNet"
If (INTEGER001 == 12) STRING012 = "MK_Net "
If (INTEGER001 == 13) STRING012 = "Synch "
If (INTEGER001 == 14) STRING012 = "Cnet "
If (INTEGER001 == 15) STRING012 = "Valence "
If (INTEGER001 == 16) STRING012 = "FTS "
If (INTEGER001 == 17) STRING012 = "wcECHO "
If (INTEGER001 == 18) STRING012 = "wcGATE "
If (INTEGER001 > 18) Goto LABEL043
Cls
FOpen 1, STRING016, 0, 0
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
For INTEGER002 = 1 To INTEGER003
FGet 1, STRING034
FGet 1, STRING035
FGet 1, STRING036
FGet 1, STRING037
FGet 1, STRING038
If ((Mid(STRING036, 47, 9) == STRING012) && (STRING002 == "Y")) Gosub LABEL050
If (((Mid(STRING036, 47, 9) == STRING012) && (STRING001 == "Y")) && !(Mid(STRING037, 9, 14) == "Node ")) Gosub LABEL049
Next
FClose 1
PrintLn
If (STRING001 == "Y") PrintLn "@X0BTotal @X0FHub@X0B matches found: @X0F", INTEGER009, "@X0B"
If (STRING002 == "Y") PrintLn "@X0BTotal matches found: @X0F", INTEGER009, "@X0B"
PrintLn
STRING012 = ""
Wait
Goto LABEL039
:LABEL044
INTEGER006 = 0
INTEGER001 = 0
PrintLn
InputStr "@X0BWhat Area Code to search for", INTEGER001, 11, 3, Mask_Num(), 2 + 128
If (INTEGER001 == 0) Goto LABEL040
Cls
FOpen 1, STRING016, 0, 0
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
For INTEGER002 = 1 To INTEGER003
FGet 1, STRING034
FGet 1, STRING035
FGet 1, STRING036
FGet 1, STRING037
FGet 1, STRING038
If ((Mid(STRING035, 9, 3) == INTEGER001) && (STRING002 == "Y")) Gosub LABEL050
If (((Mid(STRING035, 9, 3) == INTEGER001) && (STRING001 == "Y")) && !(Mid(STRING037, 9, 14) == "Node ")) Gosub LABEL049
Next
FClose 1
PrintLn
If (STRING001 == "Y") PrintLn "@X0BTotal @X0FHub@X0B matches found: @X0F", INTEGER009, "@X0B"
If (STRING002 == "Y") PrintLn "@X0BTotal matches found: @X0F", INTEGER009, "@X0B"
PrintLn
Wait
Goto LABEL039
:LABEL045
INTEGER006 = 0
INTEGER001 = 0
Cls
DispFile PPEPath() + "SCHBBS", 4 + 2 + 1
InputStr "@X0BWhat BBS Software to search for", INTEGER001, 11, 2, Mask_Num(), 2 + 128
If (INTEGER001 == 0) Goto LABEL006
If (INTEGER001 == 1) STRING012 = "PCBoard "
If (INTEGER001 == 2) STRING012 = "Wildcat "
If (INTEGER001 == 3) STRING012 = "Gap "
If (INTEGER001 == 4) STRING012 = "Spitfire "
If (INTEGER001 == 5) STRING012 = "Auntie "
If (INTEGER001 == 6) STRING012 = "TriBBS "
If (INTEGER001 == 7) STRING012 = "GT Power "
If (INTEGER001 == 8) STRING012 = "Synchronet "
If (INTEGER001 == 9) STRING012 = "Rem. Access "
If (INTEGER001 == 10) STRING012 = "Searchlight "
If (INTEGER001 == 11) STRING012 = "UltraBBS "
If (INTEGER001 == 12) STRING012 = "Maximus "
If (INTEGER001 > 12) Goto LABEL045
Cls
FOpen 1, STRING016, 0, 0
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
For INTEGER002 = 1 To INTEGER003
FGet 1, STRING034
FGet 1, STRING035
FGet 1, STRING036
FGet 1, STRING037
FGet 1, STRING038
If ((Mid(STRING036, 35, 12) == STRING012) && (STRING002 == "Y")) Gosub LABEL050
If (((Mid(STRING036, 35, 12) == STRING012) && (STRING001 == "Y")) && !(Mid(STRING037, 9, 14) == "Node ")) Gosub LABEL049
Next
FClose 1
STRING012 = ""
PrintLn
If (STRING001 == "Y") PrintLn "@X0BTotal @X0FHub@X0B matches found: @X0F", INTEGER009, "@X0B"
If (STRING002 == "Y") PrintLn "@X0BTotal matches found: @X0F", INTEGER009, "@X0B"
PrintLn
Wait
Goto LABEL039
:LABEL046
INTEGER006 = 0
INTEGER001 = 0
Cls
DispFile PPEPath() + "SCHMDM", 4 + 2 + 1
InputStr "@X0BWhat Modem Type to search for", INTEGER001, 11, 1, Mask_Num(), 2 + 128
If (INTEGER001 == 0) Goto LABEL006
If (INTEGER001 == 1) STRING012 = "v.32bis "
If (INTEGER001 == 2) STRING012 = "USR HST "
If (INTEGER001 == 3) STRING012 = "USR D/S 14.4 "
If (INTEGER001 == 4) STRING012 = "USR D/S 16.8 "
If (INTEGER001 == 5) STRING012 = "ZyXel "
If (INTEGER001 == 6) STRING012 = "V.Terbo "
If (INTEGER001 == 7) STRING012 = "V.FC 28.8 "
If (INTEGER001 == 8) STRING012 = "V.34 "
If (INTEGER001 == 9) STRING012 = "Unknown "
If (INTEGER001 > 9) Goto LABEL046
Cls
FOpen 1, STRING016, 0, 0
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
For INTEGER002 = 1 To INTEGER003
FGet 1, STRING034
FGet 1, STRING035
FGet 1, STRING036
FGet 1, STRING037
FGet 1, STRING038
If ((Mid(STRING036, 9, 15) == STRING012) && (STRING002 == "Y")) Gosub LABEL050
If (((Mid(STRING036, 9, 15) == STRING012) && (STRING001 == "Y")) && !(Mid(STRING037, 9, 14) == "Node ")) Gosub LABEL049
Next
FClose 1
INTEGER001 = 0
STRING012 = ""
PrintLn
If (STRING001 == "Y") PrintLn "@X0BTotal @X0FHub@X0B matches found: @X0F", INTEGER009, "@X0B"
If (STRING002 == "Y") PrintLn "@X0BTotal matches found: @X0F", INTEGER009, "@X0B"
PrintLn
Wait
Goto LABEL039
:LABEL047
Color 7
INTEGER006 = 0
INTEGER001 = 0
Cls
DispFile PPEPath() + "SCHLVL", 4 + 2 + 1
InputStr "@X0BWhat Hub Level to search for", INTEGER001, 11, 1, Mask_Num(), 2 + 128
If (INTEGER001 == 0) Goto LABEL039
If (INTEGER001 == 1) STRING012 = "Super Regional"
If (INTEGER001 == 2) STRING012 = "Regional Hub "
If (INTEGER001 == 3) STRING012 = "Local Hub "
If (INTEGER001 > 3) Goto LABEL047
Cls
FOpen 1, STRING016, 0, 0
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
For INTEGER002 = 1 To INTEGER003
FGet 1, STRING034
FGet 1, STRING035
FGet 1, STRING036
FGet 1, STRING037
FGet 1, STRING038
If (Mid(STRING037, 9, 14) == STRING012) Gosub LABEL049
Next
FClose 1
PrintLn
Wait
Goto LABEL047
:LABEL048
INTEGER006 = 0
STRING012 = ""
PrintLn
InputStr "@X0BWhat text to search for", STRING012, 11, 25, Mask_Alpha() + Mask_Ascii() + Mask_Num(), 2 + 8 + 128
If (STRING012 == "") Goto LABEL040
Cls
FOpen 1, STRING016, 0, 0
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
FGet 1, STRING010
For INTEGER002 = 1 To INTEGER003
FGet 1, STRING034
FGet 1, STRING035
FGet 1, STRING036
FGet 1, STRING037
FGet 1, STRING038
If (STRING002 == "Y") Then
If (((InStr(Upper(STRING034), STRING012) || InStr(Upper(STRING035), STRING012)) || InStr(Upper(STRING036), STRING012)) || InStr(Upper(STRING037), STRING012)) Gosub LABEL050
Endif
If (STRING001 == "Y") Then
If (((InStr(Upper(STRING034), STRING012) || InStr(Upper(STRING035), STRING012)) || InStr(Upper(STRING036), STRING012)) || (InStr(Upper(STRING037), STRING012) && !(Mid(STRING037, 9, 14) == "Node "))) Gosub LABEL049
Endif
Next
FClose 1
PrintLn
If (STRING001 == "Y") PrintLn "@X0BTotal @X0FHub@X0B matches found: @X0F", INTEGER009, "@X0B"
If (STRING002 == "Y") PrintLn "@X0BTotal matches found: @X0F", INTEGER009, "@X0B"
PrintLn
Wait
Goto LABEL039
:LABEL049
INTEGER005 = INTEGER005 + 1
INTEGER009 = INTEGER009 + 1
If (INTEGER006 == 4) INTEGER006 = 0
If (INTEGER006 == 0) Cls
INTEGER006 = INTEGER006 + 1
STRING034 = "@X0F" + Mid(STRING034, 9, 71)
STRING035 = "@X0E" + Mid(STRING035, 9, 71)
STRING036 = "@X0A" + Mid(STRING036, 9, 71)
STRING037 = "@X0B" + Mid(STRING037, 9, 71)
STRING038 = "@X0F" + Mid(STRING038, 9, 71)
PrintLn STRING034
PrintLn STRING035
PrintLn STRING036
PrintLn STRING037
PrintLn STRING038
If (INTEGER006 == 4) Then
PrintLn
STRING013 = "Y"
InputYN "@X0EView next screen (Enter for more)", STRING013, 14
If (STRING013 == "N") Goto LABEL052
Cls
Endif
Return
:LABEL050
INTEGER009 = INTEGER009 + 1
If (INTEGER006 == 4) INTEGER006 = 0
If (INTEGER006 == 0) Cls
INTEGER006 = INTEGER006 + 1
STRING034 = "@X0F" + Mid(STRING034, 9, 71)
STRING035 = "@X0E" + Mid(STRING035, 9, 71)
STRING036 = "@X0A" + Mid(STRING036, 9, 71)
STRING037 = "@X0B" + Mid(STRING037, 9, 71)
STRING038 = "@X0F" + Mid(STRING038, 9, 71)
PrintLn STRING034
PrintLn STRING035
PrintLn STRING036
PrintLn STRING037
PrintLn STRING038
If (INTEGER006 == 4) Then
PrintLn
STRING013 = "Y"
InputYN "@X0EView next screen (Enter for more)", STRING013, 14
If (STRING013 == "N") Goto LABEL052
Endif
Return
:LABEL051
If (INTEGER006 == 2) Then
INTEGER006 = 0
Cls
Endif
STRING024 = "@X0A" + STRING024
STRING025 = "@X0F" + STRING025
STRING026 = "@X0F" + STRING026
STRING027 = "@X0F" + STRING027
STRING028 = "@X0F" + STRING028
STRING029 = "@X0A" + STRING029
STRING030 = "@X0B" + STRING030
STRING031 = "@X0B" + STRING031
STRING032 = "@X0B" + STRING032
STRING033 = "@X0B" + STRING033
PrintLn Chr(13), STRING024
PrintLn Chr(13), STRING025
PrintLn Chr(13), STRING026
PrintLn Chr(13), STRING027
PrintLn Chr(13), STRING028
PrintLn Chr(13), STRING029
PrintLn Chr(13), STRING030
PrintLn Chr(13), STRING031
PrintLn Chr(13), STRING032
PrintLn Chr(13), STRING033
INTEGER006 = INTEGER006 + 1
If (INTEGER006 == 2) Then
PrintLn Chr(13), STRING024
STRING013 = "Y"
InputYN "@X0EView next screen (Enter for more)", STRING013, 14
If (STRING013 == "N") Goto LABEL052
Cls
Endif
Return
:LABEL052
FClose 1
PrintLn
If (STRING001 == "Y") Goto LABEL039
If (STRING002 == "Y") Goto LABEL039
Goto LABEL006
:LABEL053
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 4 End
; 37 Cls
; 1 More
; 30 Wait
; 9 Color
; 185 Goto
; 261 Let
; 2 Print
; 111 PrintLn
; 275 If
; 23 DispFile
; 17 FOpen
; 19 FClose
; 174 FGet
; 4 StartDisp
; 1 GetUser
; 16 InputStr
; 4 InputYN
; 30 Gosub
; 3 Return
; 1 Tokenize
; 3 GetToken
; 1 Stop
; 1 Beep
; 2 Call
; 1 Bye
; 19 WrUNet
; 3 AnsiPos
; 1 FDefIn
; 1 Download
;
;
; ■ Functions used :
;
; 189 +
; 2 -
; 268 ==
; 12 <
; 11 <=
; 7 >
; 34 >=
; 58 !
; 44 &&
; 24 ||
; 6 Len(
; 18 Upper()
; 53 Mid()
; 3 Left()
; 2 Right()
; 1 Space()
; 22 Chr()
; 18 InStr()
; 3 Date()
; 20 U_Name()
; 1 Year()
; 3 Month()
; 1 String()
; 7 Mask_Alpha()
; 12 Mask_Num()
; 3 Mask_Ascii()
; 20 PPEPath()
; 19 PcbNode()
; 19 UN_Stat()
; 2 Exist()
; 2 S2I()
; 1 AnsiOn()
; 1 FileInf()
; 20 PPEName()
; 1 KInkey()
; 1 MInkey()
;
;------------------------------------------------------------------------------
;
; Analysis flags : C
;
; C - Call child PPE ■ 3
; This is usually normal, but may be a tricky way to launch some
; sysop-only commands.
; ■ Search for : CALL
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 11 For/Next
; 0 While/EndWhile
; 31 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------