home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
PWANK082.ZIP
/
MAIN.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1995-04-09
|
47KB
|
3,296 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Boolean BOOLEAN001
Boolean BOOLEAN002
Boolean BOOLEAN003
Boolean BOOLEAN004
Boolean BOOLEAN005
Boolean BOOLEAN006
Boolean BOOLEAN007
Boolean BOOLEAN008
Boolean BOOLEAN009
Boolean BOOLEAN010
Boolean BOOLEAN011
Boolean BOOLEAN012
Boolean BOOLEAN013
Boolean BOOLEAN014
Boolean BOOLEAN015
Boolean BOOLEAN016
Boolean BOOLEAN017
Boolean BOOLEAN018
Boolean BOOLEAN019
Boolean BOOLEAN020
Boolean BOOLEAN021
Boolean BOOLEAN022
Boolean BOOLEAN023
Boolean BOOLEAN024
Boolean BOOLEAN025
Boolean BOOLEAN026
Boolean BOOLEAN027
Boolean BOOLEAN028
Boolean BOOLEAN029
Boolean BOOLEAN030
Boolean BOOLEAN031
Boolean BOOLEAN032
Boolean BOOLEAN033
Boolean BOOLEAN034
Boolean BOOLEAN035
Boolean BOOLEAN036
Boolean BOOLEAN037
Boolean BOOLEAN038
Boolean BOOLEAN039
Boolean BOOLEAN040
Boolean BOOLEAN041
Boolean BOOLEAN042
Boolean BOOLEAN043
Boolean BOOLEAN044
Boolean BOOLEAN045
Boolean BOOLEAN046
Boolean BOOLEAN047
Boolean BOOLEAN048
Date DATE001
Date DATE002
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
Integer INTEGER018
Integer INTEGER019
Integer INTEGER020
Integer INTEGER021
Integer INTEGER022
Integer INTEGER023
Integer INTEGER024
Integer INTEGER025
Integer INTEGER026
Integer INTEGER027
Integer INTEGER028
Integer INTEGER029
Integer INTEGER030
Integer INTEGER031
Integer INTEGER032
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String TSTRING011(5)
String TSTRING012(60)
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 TSTRING030(3)
String STRING031
String STRING032
String STRING033
String STRING034
String STRING035
String TSTRING036(10)
String TSTRING037(10)
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 TSTRING050(15)
String TSTRING051(15)
String STRING052
String STRING053
String STRING054
String STRING055
String STRING056
String STRING057
String STRING058
String STRING059
String STRING060
String STRING061
String TSTRING062(60)
String STRING063
String STRING064
String STRING065
String STRING066
String TSTRING067(8)
String STRING068
String STRING069
String STRING070
String STRING071
Time TIME001
Time TIME002
Int INT001
Int INT002
Int INT003
Int INT004
Int INT005
Int INT006
Int INT007
Int INT008
Int INT009
Int INT010
Int INT011
Int INT012
Int TINT013(10)
Int TINT014(10)
Int INT015
Int INT016
Int INT017
Int INT018
Int INT019
Int INT020
Int INT021
Int INT022
Int INT023
Int INT024
Int INT025
Int INT026
BigStr TBIGSTR001(8)
Double DOUBLE001
INT001 = String(PCBMac("@NUMDIR@"))
STRING008 = ReadLine(PCBDat(), 46)
STRING013 = ReadLine(PCBDat(), 33)
STRING018 = PPEPath() + "graph\text"
STRING015 = PPEPath() + "nuke.cfg"
STRING031 = PPEPath() + "work\cmd" + String(PcbNode())
STRING032 = PPEPath() + "work\rest" + String(PcbNode())
If (Exist(STRING031)) Delete STRING031
TSTRING030(0) = ReadLine(STRING018, 15)
TSTRING030(1) = ReadLine(STRING018, 16)
TSTRING030(2) = ReadLine(STRING018, 17)
TSTRING030(3) = ReadLine(STRING018, 18)
STRING003 = ReadLine(STRING018, 6)
STRING005 = ReadLine(STRING018, 7)
STRING006 = ReadLine(STRING018, 8)
STRING007 = ReadLine(STRING018, 9)
Log "BlackCat NUKE started at (" + String(Time()) + ")", 0
FreshLine
PrintLn "@X07Nuke v@X0F0.82 @X07(@X0FC@X07) BlackCat 1995"
If (GetToken() == "RESTORE") Then
BOOLEAN033 = 1
Endif
STRING025 = ReadLine(STRING015, 1)
If (Upper(STRING025) == "N") Then
BOOLEAN034 = 0
Else
BOOLEAN034 = 1
Endif
Tokenize ReadLine(STRING015, 2)
INT005 = GetToken()
INT006 = GetToken()
STRING026 = ReadLine(STRING015, 3)
STRING027 = Upper(ReadLine(STRING015, 4))
STRING033 = ReadLine(STRING015, 6)
If (Upper(ReadLine(STRING015, 7)) == "YES") Then
BOOLEAN035 = 1
Else
BOOLEAN035 = 0
Endif
Gosub LABEL146
INTEGER009 = ReadLine(STRING015, 10)
If (Upper(ReadLine(STRING015, 11)) == "YES") Then
BOOLEAN036 = 1
Else
BOOLEAN036 = 0
Endif
If (Upper(ReadLine(STRING015, 12)) == "YES") Then
BOOLEAN032 = 1
STRING019 = ReadLine(STRING015, 13)
Else
BOOLEAN032 = 0
Endif
Tokenize ReadLine(STRING015, 14)
If (GetToken() == "YES") Then
BOOLEAN015 = 1
Else
BOOLEAN015 = 0
Endif
If (GetToken() == "YES") Then
BOOLEAN016 = 1
Else
BOOLEAN016 = 0
Endif
If (GetToken() == "YES") Then
INT003 = 2
Else
INT003 = 1
Endif
STRING021 = GetToken()
Select Case (STRING021)
Case "X"
GetUser
If (U_Expert) Then
BOOLEAN037 = 1
Else
BOOLEAN037 = 0
Endif
Case "A"
BOOLEAN037 = 1
Case Else
BOOLEAN037 = 0
End Select
If (GetToken() == "YES") Then
BOOLEAN011 = 1
Endif
If (GetToken() == "YES") Then
BOOLEAN012 = 1
Endif
If (GetToken() == "YES") Then
BOOLEAN013 = 1
Endif
If (GetToken() == "YES") Then
BOOLEAN017 = 1
Endif
STRING034 = PPEPath() + "work\bcnk" + String(CurConf()) + "." + String(PcbNode())
If (Exist(STRING034)) Then
If (Upper(ReadLine(STRING034, 1)) <> Upper(U_Name())) Then
FClose -1
Delete STRING034
Endif
Endif
BOOLEAN038 = 0
INT011 = 1
Goto LABEL005
:LABEL001
DefColor
Print STRING005
INT015 = GetX()
INT016 = GetY()
For INT012 = 1 To INT009
TINT013(INT012) = GetX()
TINT014(INT012) = GetY()
Print TSTRING036(INT012)
If (INT008 == 1) Then
If (INT012 == INT009) Then
Print STRING007
Else
Print STRING006
Endif
Else
AnsiPos INT015, GetY() + 1
Endif
TSTRING037(INT012) = Left(Strip(StripAtx(TSTRING036(INT012)), " "), 1)
Next
INT010 = INT011
Gosub LABEL004
Print STRING003, StripAtx(TSTRING036(INT010))
:LABEL002
STRING004 = Inkey()
Select Case (STRING004)
Case Chr(13)
DefColor
Return
Case "RIGHT", "DOWN", "."
Gosub LABEL004
Print TSTRING036(INT010)
If (INT010 == INT009) Then
INT010 = 1
Else
Inc INT010
Endif
Gosub LABEL004
Print STRING003, StripAtx(TSTRING036(INT010))
Case "LEFT", "UP", ","
Gosub LABEL004
Print TSTRING036(INT010)
If (INT010 == 1) Then
INT010 = INT009
Else
Dec INT010
Endif
Gosub LABEL004
Print STRING003, StripAtx(TSTRING036(INT010))
Case "END"
Gosub LABEL004
Print TSTRING036(INT010)
INT010 = INT009
Gosub LABEL004
Print STRING003, StripAtx(TSTRING036(INT010))
Case "HOME"
Gosub LABEL004
Print TSTRING036(INT010)
INT010 = 1
Gosub LABEL004
Print STRING003, StripAtx(TSTRING036(INT010))
Case "?"
If (BOOLEAN029) Then
SaveScrn
STRING014 = PPEPath() + "help\"
If (INT010 == 1) Then
DispFile STRING014 + "nuke", 0
Goto LABEL003
Endif
If (INT010 == 2) Then
DispFile STRING014 + "award", 0
Goto LABEL003
Endif
If (INT010 == 3) Then
DispFile STRING014 + "delete", 0
Goto LABEL003
Endif
If (INT010 == 4) Then
DispFile STRING014 + "skip", 0
Goto LABEL003
Endif
If (INT010 == 5) Then
DispFile STRING014 + "edit", 0
Goto LABEL003
Endif
If (INT010 == 6) Then
DispFile STRING014 + "free", 0
Goto LABEL003
Endif
If (INT010 == 7) Then
DispFile STRING014 + "comment", 0
Goto LABEL003
Endif
If (INT010 == 8) Then
DispFile STRING014 + "quit", 0
Endif
:LABEL003
Wait
RestScrn
Endif
Case ""
For INT012 = 1 To INT009
If (Upper(STRING004) == Upper(TSTRING037(INT012))) Then
Gosub LABEL004
Print TSTRING036(INT010)
INT010 = INT012
Gosub LABEL004
Print STRING003, StripAtx(TSTRING036(INT010))
KbdStuff Chr(13)
Endif
Next
End Select
Goto LABEL002
:LABEL004
INT017 = GetX()
If (INT017 > TINT013(INT010)) Then
Backup INT017 - TINT013(INT010)
ElseIf (INT017 < TINT013(INT010)) Then
Forward TINT013(INT010) - INT017
Endif
Return
:LABEL005
If (Exist(STRING044)) Then
PrintLn "@X0CSorry, but the nuker is being run on another node, try again later.."
End
Endif
STRING044 = PPEPath() + "running"
FCreate 1, STRING044, 1, 3
FClose 1
Gosub LABEL155
Gosub LABEL031
Gosub LABEL029
End
:LABEL006
Gosub LABEL054
If (BOOLEAN006) Then
STRING002 = ""
InputStr "@X07Enter wildcard (enter=abort)@X0C: _", STRING002, 1, 12, Mask_Pwd(), 8
If (STRING002 == "") Return
Endif
If (BOOLEAN040) Then
BOOLEAN040 = 0
Return
Endif
Gosub LABEL032
If (BOOLEAN006) Then
STRING039 = ReadLine(PPEPath() + "work\tblst", 1)
STRING040 = STRING035 + "\" + STRING039
Endif
If (BOOLEAN042) Goto LABEL007
FreshLine
If (BOOLEAN014) Then
BOOLEAN018 = 0
BOOLEAN040 = 0
Return
Endif
Print ReadLine(STRING018, 95)
Gosub LABEL068
If (INT010 == 2) Then
BOOLEAN018 = 0
BOOLEAN040 = 0
Return
Endif
Goto LABEL006
:LABEL007
Gosub LABEL078
Gosub LABEL079
If (BOOLEAN022) Goto LABEL008
STRING029 = "NONAME"
:LABEL008
Gosub LABEL061
If (BOOLEAN028) Then
If (BOOLEAN004) Goto LABEL009
FreshLine
PrintLn ReadLine(STRING018, 109)
BOOLEAN028 = 0
Goto LABEL008
:LABEL009
Gosub LABEL153
Gosub LABEL023
If (BOOLEAN040) Then
FreshLine
Newline
BOOLEAN028 = 0
BOOLEAN040 = 0
Goto LABEL008
Endif
If (BOOLEAN014) Then
Copy PPEPath() + "work\tblst", PPEPath() + "work\tbbyte"
Endif
Gosub LABEL026
Gosub LABEL035
Gosub LABEL021
BOOLEAN028 = 0
Wait
If (BOOLEAN014) Return
Endif
If (BOOLEAN021) Then
BOOLEAN021 = 0
Goto LABEL006
Endif
If (BOOLEAN025) Then
If (BOOLEAN003) Goto LABEL010
FreshLine
PrintLn ReadLine(STRING018, 110)
BOOLEAN025 = 0
Goto LABEL008
:LABEL010
Gosub LABEL153
Gosub LABEL147
If (BOOLEAN026) Then
BOOLEAN025 = 0
BOOLEAN026 = 0
FreshLine
Newline
Goto LABEL008
Endif
If (BOOLEAN014) Then
Copy PPEPath() + "work\tblst", PPEPath() + "work\tbbyte"
Endif
Gosub LABEL026
Gosub LABEL035
BOOLEAN025 = 0
Gosub LABEL022
Wait
If (BOOLEAN014) Return
Goto LABEL006
Endif
If (BOOLEAN023) Then
If (BOOLEAN002) Goto LABEL011
FreshLine
PrintLn ReadLine(STRING018, 111)
BOOLEAN023 = 0
Goto LABEL008
:LABEL011
Gosub LABEL153
Gosub LABEL115
If (BOOLEAN024) Then
BOOLEAN023 = 0
Newline
Goto LABEL008
Endif
Gosub LABEL026
Gosub LABEL035
Gosub LABEL020
BOOLEAN023 = 0
Wait
If (BOOLEAN014) Return
Goto LABEL006
Endif
If (BOOLEAN040) Then
BOOLEAN040 = 0
Return
Endif
If (BOOLEAN039) Goto LABEL012
Goto LABEL006
:LABEL012
If (BOOLEAN001) Goto LABEL013
FreshLine
PrintLn ReadLine(STRING018, 112)
BOOLEAN039 = 0
Goto LABEL008
:LABEL013
If (BOOLEAN042) Goto LABEL014
Goto LABEL006
:LABEL014
Gosub LABEL153
Gosub LABEL023
If (BOOLEAN040) Then
BOOLEAN040 = 0
Goto LABEL008
Endif
Gosub LABEL119
If (BOOLEAN040) Then
BOOLEAN040 = 0
Goto LABEL008
Endif
Gosub LABEL026
Gosub LABEL123
Gosub LABEL035
Gosub LABEL091
Gosub LABEL015
If (BOOLEAN014) Return
Goto LABEL006
Return
:LABEL015
If (BOOLEAN014) Then
STRING021 = PPEPath() + "work\tbbyte"
INTEGER001 = 1
Tokenize ReadLine(STRING021, INTEGER001)
STRING022 = GetToken()
INTEGER002 = GetToken()
Gosub LABEL131
FAppend 3, PPEPath() + "nuke.log", 1, 0
If (BOOLEAN036) Then
STRING023 = PPEPath() + "nukelst"
If (Exist(STRING023)) Goto LABEL016
FCreate 1, STRING023, 1, 0
Goto LABEL017
:LABEL016
FAppend 1, STRING023, 1, 0
Endif
:LABEL017
While (STRING022 <> "") Do
STRING024 = Left(STRING022, 12) + " " + Left(STRING029, 20) + " " + "NUKE " + " " + Left(U_Name(), 20) + " " + Left(INTEGER002, 15)
FPutLn 3, STRING024
Inc INTEGER001
If (BOOLEAN036) Then
FPutLn 1, Upper(STRING029) + "," + String(INTEGER002) + "," + "1"
Endif
Tokenize ReadLine(STRING021, INTEGER001)
STRING022 = GetToken()
INTEGER002 = GetToken()
EndWhile
FClose 3
If (BOOLEAN036) FClose 1
Return
Endif
STRING024 = Left(STRING039, 12) + " " + Left(STRING029, 20) + " " + "NUKE " + " " + Left(U_Name(), 20) + " " + Left(INTEGER006, 15)
Gosub LABEL133
If (BOOLEAN036) Then
STRING021 = PPEPath() + "nukelst"
If (Exist(STRING021)) Goto LABEL018
FCreate 1, STRING021, 1, 0
FPutLn 1, Upper(STRING029) + "," + String(INTEGER006) + "," + "1"
Goto LABEL019
:LABEL018
FAppend 1, STRING021, 1, 0
FPutLn 1, Upper(STRING029) + "," + String(INTEGER006) + "," + "1"
:LABEL019
FClose 1
Endif
Return
:LABEL020
If (BOOLEAN014) Then
STRING021 = PPEPath() + "work\tblst"
INTEGER001 = 1
Tokenize ReadLine(STRING021, INTEGER001)
STRING022 = GetToken()
INTEGER002 = GetToken()
Gosub LABEL131
FAppend 3, PPEPath() + "nuke.log", 1, 0
While (STRING022 <> "") Do
STRING024 = Left(STRING022, 12) + " " + Left(STRING029, 20) + " " + "AWARD" + " " + Left(U_Name(), 20) + " " + Left(INTEGER006, 15)
FPutLn 3, STRING024
Inc INTEGER001
Tokenize ReadLine(STRING021, INTEGER001)
STRING022 = GetToken()
INTEGER002 = GetToken()
EndWhile
FClose 3
Return
Endif
STRING024 = Left(STRING039, 12) + " " + Left(STRING029, 20) + " " + "AWARD" + " " + Left(U_Name(), 20) + " " + Left(INTEGER006, 15)
Gosub LABEL133
Return
:LABEL021
If (BOOLEAN014) Then
STRING021 = PPEPath() + "work\tblst"
INTEGER001 = 1
Tokenize ReadLine(STRING021, INTEGER001)
STRING022 = GetToken()
INTEGER002 = GetToken()
Gosub LABEL131
FAppend 3, PPEPath() + "nuke.log", 1, 0
While (STRING022 <> "") Do
STRING024 = Left(STRING022, 12) + " " + Left(STRING029, 20) + " " + "CMT " + " " + Left(U_Name(), 20) + " " + Left("N/A", 15)
FPutLn 3, STRING024
Inc INTEGER001
Tokenize ReadLine(STRING021, INTEGER001)
STRING022 = GetToken()
EndWhile
FClose 3
Return
Endif
STRING024 = Left(STRING039, 12) + " " + Left(STRING029, 20) + " " + "CMT " + " " + Left(U_Name(), 20) + " " + Left("N/A", 15)
Gosub LABEL133
Return
:LABEL022
If (BOOLEAN014) Then
STRING021 = PPEPath() + "work\tblst"
INTEGER001 = 1
Tokenize ReadLine(STRING021, INTEGER001)
STRING022 = GetToken()
INTEGER002 = GetToken()
Gosub LABEL131
FAppend 3, PPEPath() + "nuke.log", 1, 0
While (STRING022 <> "") Do
STRING024 = Left(STRING022, 12) + " " + Left(STRING029, 20) + " " + "FREE " + " " + Left(U_Name(), 20) + " " + Left("N/A", 15)
FPutLn 3, STRING024
Inc INTEGER001
Tokenize ReadLine(STRING021, INTEGER001)
STRING022 = GetToken()
INTEGER002 = GetToken()
EndWhile
FClose 3
Return
Endif
STRING024 = Left(STRING039, 12) + " " + Left(STRING029, 20) + " " + "FREE " + " " + Left(U_Name(), 20) + " " + Left("N/A", 15)
Gosub LABEL133
Return
:LABEL023
TSTRING011(1) = ""
BOOLEAN040 = 0
If (BOOLEAN039) Then
STRING045 = PPEPath() + "nuke.cmt"
ElseIf (BOOLEAN023) Then
STRING045 = PPEPath() + "award.cmt"
ElseIf (BOOLEAN028) Then
STRING045 = PPEPath() + "comment.cmt"
Endif
INT019 = ReadLine(STRING045, 1)
:LABEL024
DefColor
Cls
DispFile PPEPath() + "graph\cmthdr", 1 + 4
FreshLine
STRING021 = ReadLine(STRING015, 5)
For INTEGER012 = 1 To INT019
PrintLn ReplaceStr(ReplaceStr(STRING021, "@NR@", String(INTEGER012)), "@CMT@", ReadLine(STRING045, INTEGER012 + 1))
Next
PrintLn ReplaceStr(ReplaceStr(STRING021, "@NR@", Left(String(INT019 + 1), 2)), "@CMT@", ReadLine(STRING018, 19))
DispFile PPEPath() + "graph\cmtftr", 1 + 4
FreshLine
STRING038 = ""
InputStr ReplaceStr(ReadLine(STRING018, 20), "%FILE%", Upper(STRING039)) + "_", STRING038, 1, 15, "0123456789 ", 8
FreshLine
Newline
STRING038 = LTrim(STRING038, " ")
Select Case (STRING038)
Case ""
BOOLEAN040 = 1
Return
Case String(INT019 + 1)
STRING038 = ""
Gosub LABEL025
If (BOOLEAN030) Then
PrintLn ReadLine(STRING018, 21)
Delay 30
Goto LABEL024
Endif
Case Else
Tokenize STRING038
If (TokCount() > 5) Then
PrintLn "@X0CToo many comments selected, MAX 5"
Delay 30
Goto LABEL024
Endif
STRING021 = GetToken()
INTEGER001 = 1
INTEGER011 = 0
While (STRING021 <> "") Do
If ((STRING021 > INT019) || (STRING038 < 1)) Then
PrintLn "@X0CInvalid comment entered!!"
Delay 30
Goto LABEL024
Else
TSTRING011(INTEGER001) = ReadLine(STRING045, STRING021 + 1)
If (BOOLEAN012) Then
INT004 = Len(TSTRING011(INTEGER001))
If (INT004 < 44) Then
INT004 = (44 - INT004) / 2
TSTRING011(INTEGER001) = Space(INT004) + TSTRING011(INTEGER001)
Endif
Endif
Endif
Inc INTEGER001
STRING021 = GetToken()
EndWhile
INTEGER011 = INTEGER001 - 1
End Select
Return
:LABEL025
TSTRING011(1) = ""
BOOLEAN030 = 0
FreshLine
DispFile PPEPath() + "graph\owncmt", 0
For INTEGER012 = 1 To 5
STRING038 = ""
Print ReplaceStr(ReadLine(STRING018, 108), "%NR%", String(INTEGER012))
InputStr "_", STRING038, 1, 40, Mask_Pwd(), 2
If ((STRING038 == "") && (INTEGER012 == 1)) Then
BOOLEAN030 = 1
Return
ElseIf (STRING038 == "") Then
INTEGER011 = INTEGER012 - 1
Return
Else
TSTRING011(INTEGER012) = STRING038
Endif
FreshLine
Next
Return
:LABEL026
FClose -1
BOOLEAN043 = 1
PrintLn "@X07Writing description message"
BOOLEAN044 = 1
If (BOOLEAN008 && BOOLEAN009) BOOLEAN044 = 0
If (BOOLEAN023) Then
FOpen 3, PPEPath() + "graph\award.msg", 0, 0
STRING047 = ReadLine(STRING018, 33)
ElseIf (BOOLEAN025) Then
FOpen 3, PPEPath() + "graph\free.msg", 0, 0
STRING047 = ReadLine(STRING018, 105)
ElseIf (BOOLEAN028) Then
FOpen 3, PPEPath() + "graph\comment.msg", 0, 0
STRING047 = ReadLine(STRING018, 106)
Else
FOpen 3, PPEPath() + "graph\nuke.msg", 0, 0
STRING047 = ReadLine(STRING018, 107)
Endif
If (BOOLEAN012) STRING047 = ""
FCreate 1, PPEPath() + "work\nkname", 1, 0
INTEGER001 = 1
If (BOOLEAN014) Then
FOpen 4, PPEPath() + "work\replst", 0, 0
If (Ferr(4)) Then
PrintLn "@X0CERROR OPENING WORK\REPLST"
Wait
End
Endif
FreshLine
FOpen 5, STRING042, 0, 0
Tokenize ReadLine(PPEPath() + "work\tbbyte", 1)
STRING021 = GetToken()
STRING021 = GetToken()
Endif
STRING046 = ""
FGet 3, STRING046
:LABEL027
If (!BOOLEAN015 && !BOOLEAN013) Then
For INTEGER012 = 1 To INTEGER011
If (BOOLEAN043) Then
FPutLn 1, " " + STRING047 + TSTRING011(INTEGER012)
BOOLEAN043 = 0
Continue
Endif
FPutLn 1, Space(31) + "|" + " " + STRING047 + TSTRING011(INTEGER012)
Next
Endif
If (BOOLEAN013) Then
Gosub LABEL157
Endif
While (!Ferr(3) && (STRING046 <> "")) Do
If (BOOLEAN044) Then
STRING046 = ReplaceStr(STRING046, "@NUKER@", Mixed(U_Name()))
Else
STRING046 = ReplaceStr(STRING046, "@NUKER@", "(Anonymous)")
Endif
STRING046 = ReplaceStr(STRING046, "@NALIAS@", Mixed(U_Alias))
STRING046 = ReplaceStr(STRING046, "@NUSER@", Mixed(STRING029))
If (BOOLEAN014) Then
STRING046 = ReplaceStr(STRING046, "@BNUKED@", String(STRING021))
Else
STRING046 = ReplaceStr(STRING046, "@BNUKED@", String(INTEGER006))
Endif
If (INTEGER005 == 0) Then
STRING046 = ReplaceStr(STRING046, "@FACTOR@", "N/A")
Else
STRING046 = ReplaceStr(STRING046, "@FACTOR@", String(INTEGER005))
Endif
If (BOOLEAN017) Then
INT004 = Len(STRING046)
If (INT004 < 44) Then
INT004 = (44 - INT004) / 2
STRING046 = Space(INT004) + STRING046
Endif
Endif
If (BOOLEAN043) Then
FPutLn 1, " " + STRING046
BOOLEAN043 = 0
Else
FPutLn 1, Space(31) + "|" + " " + STRING046
Endif
FGet 3, STRING046
EndWhile
If (BOOLEAN015 && !BOOLEAN013) Then
For INTEGER012 = 1 To INTEGER011
If (BOOLEAN043) Then
FPutLn 1, " " + STRING047 + TSTRING011(INTEGER012)
BOOLEAN043 = 0
Continue
Endif
FPutLn 1, Space(31) + "|" + " " + STRING047 + TSTRING011(INTEGER012)
Next
Endif
If (BOOLEAN039 && !BOOLEAN016) Goto LABEL028
If (BOOLEAN013) Goto LABEL028
Gosub LABEL157
:LABEL028
If (BOOLEAN013) Then
For INTEGER012 = 1 To INTEGER011
If (BOOLEAN043) Then
FPutLn 1, " " + STRING047 + TSTRING011(INTEGER012)
BOOLEAN043 = 0
Continue
Endif
FPutLn 1, Space(31) + "|" + " " + STRING047 + TSTRING011(INTEGER012)
Next
Endif
If (BOOLEAN014) Then
FPutLn 1, "/EOFDESC"
Frewind 3
FGet 3, STRING046
BOOLEAN043 = 1
Inc INTEGER001
STRING021 = ReadLine(PPEPath() + "work\tbbyte", INTEGER001)
If (STRING021 <> "") Then
Tokenize STRING021
STRING021 = GetToken()
STRING021 = GetToken()
Goto LABEL027
Endif
Endif
FClose 1
FClose 3
FClose 4
FClose 5
PrintLn "@X07Description message written"
Return
:LABEL029
BOOLEAN014 = 0
BOOLEAN006 = 0
FClose -1
If (BOOLEAN037) Then
:LABEL030
DispFile PPEPath() + "graph\xmenu", 0
STRING038 = ""
FreshLine
Print " @X07Your Selection @X08[■]"
Backup 2
While (1) Do
While ((STRING038 == "")) STRING038 = Upper(Inkey())
If (InStr("NTWZLSDEHQ", STRING038) && (Len(STRING038) == 1)) Then
Print "@X08", STRING038
Break
Continue
Endif
STRING038 = ""
EndWhile
If (STRING038 == "") Goto LABEL030
If (STRING038 == "N") INTEGER014 = 1
If (STRING038 == "T") INTEGER014 = 2
If (STRING038 == "W") INTEGER014 = 3
If (STRING038 == "Z") INTEGER014 = 4
If (STRING038 == "L") INTEGER014 = 5
If (STRING038 == "S") INTEGER014 = 6
If (STRING038 == "D") INTEGER014 = 7
If (STRING038 == "E") INTEGER014 = 8
If (STRING038 == "H") INTEGER014 = 9
If (STRING038 == "Q") INTEGER014 = 10
Else
DispFile PPEPath() + "graph\menu", 1 + 4
Tokenize PPEPath() + "lb.cfg" + " " + String(1)
Gosub LABEL046
Endif
Select Case (INTEGER014)
Case 1
DefColor
Cls
Gosub LABEL006
BOOLEAN018 = 0
BOOLEAN040 = 0
Case 2
DefColor
Cls
BOOLEAN014 = 1
Gosub LABEL006
BOOLEAN018 = 0
BOOLEAN040 = 0
Case 3
DefColor
Cls
BOOLEAN014 = 1
BOOLEAN006 = 1
Gosub LABEL006
BOOLEAN018 = 0
BOOLEAN040 = 0
Case 4
Gosub LABEL075
Case 5
Gosub LABEL076
Case 6
Gosub LABEL077
Case 7
Gosub LABEL108
Case 8
Gosub LABEL109
Case 9
Call PPEPath() + "HELP\HELP.PPE"
Case 10
End
BOOLEAN014 = 0
End Select
Goto LABEL029
Return
AnsiPos 1, 23
STRING038 = ""
InputStr "@X07Please enter file to nuke: ", STRING038, 1, 12, Mask_Pwd(), 8
AnsiPos 1, 23
ClrEol
FreshLine
If (STRING038 == "") Then
End
Endif
STRING039 = STRING038
Return
:LABEL031
STRING041 = ReadLine(PCBDat(), 31) + ".@@@"
FOpen 1, STRING041, 0, 0
FRead 1, INT018, 2
FSeek 1, CurConf() * INT018 + 2 + 156, 0
FRead 1, STRING042, 29
FRead 1, STRING035, 26
STRING009 = STRING042
STRING010 = STRING035
FreshLine
FClose 1
Return
:LABEL032
FreshLine
BOOLEAN042 = 0
Newline
If (BOOLEAN006) Then
Print ReplaceStr(ReadLine(STRING018, 1), "%FILE%", Upper(STRING002))
Else
Print ReplaceStr(ReadLine(STRING018, 1), "%FILE%", Upper(STRING039))
Endif
If (OnLocal()) SaveScrn
If (BOOLEAN011) Then
Gosub LABEL156
If (BOOLEAN010) Then
STRING021 = "find2.exe"
Else
STRING021 = "findnuke.exe"
Endif
Else
STRING021 = "findnuke.exe"
Endif
If (BOOLEAN006) Then
Shell 0, BOOLEAN041, PPEPath() + STRING021, Upper(STRING002) + " " + Upper(STRING042) + " " + PPEPath() + " " + "WILD"
ElseIf (BOOLEAN014) Then
Shell 0, BOOLEAN041, PPEPath() + STRING021, Upper(STRING039) + " " + Upper(STRING042) + " " + PPEPath() + " " + "YES"
Else
Shell 0, BOOLEAN041, PPEPath() + STRING021, Upper(STRING039) + " " + Upper(STRING042) + " " + PPEPath() + " " + "NO"
Endif
If (OnLocal()) RestScrn
If (BOOLEAN041) Then
PrintLn ReadLine(STRING018, 44)
If (BOOLEAN006) Then
PrintLn "@X0CNo files matching your wildcard entry were found"
STRING002 = ""
InputStr "@X07Enter wildcard (enter=abort)@X0C: _", STRING002, 1, 12, Mask_Pwd(), 8
If (STRING002 == "") Return
Goto LABEL032
Goto LABEL033
Endif
If (BOOLEAN014) Then
PrintLn "@X0CCouldn't find a file in the turbo batch entry.."
PrintLn "@X0CPlease make sure the files are sequentially tagged."
PrintLn "@X0Cand all in the same DIR file!!!"
Wait
Endif
:LABEL033
Return
Endif
PrintLn "@X0CFOUND!"
If (BOOLEAN014) Then
Copy PPEPath() + "work\nkname", PPEPath() + "work\replst"
Endif
If (BOOLEAN006) Then
DefColor
Cls
StartDisp 2
DispFile PPEPath() + "graph\turbomsg", 0
FreshLine
PrintLn "@X07Matching files found@X08:"
INTEGER012 = 1
STRING022 = PPEPath() + "work\tblst"
STRING021 = ReadLine(STRING022, INTEGER012)
INTEGER001 = 1
Print "@X0F"
While (STRING021 <> "") Do
Print Left(STRING021, 13)
If (INTEGER001 % 5 == 0) Newline
Inc INTEGER001
Inc INTEGER012
STRING021 = ReadLine(STRING022, INTEGER012)
If (Abort()) Break
EndWhile
If (Abort()) ResetDisp
FClose -1
StartDisp 1
FreshLine
Print "@X07WildCard CMD@X08? @X07"
Gosub LABEL070
FreshLine
If (INT010 == 1) Then
Goto LABEL034
Endif
Select Case (INT010)
Case 2
Goto LABEL148
Wait
Return
Case 3
STRING002 = ""
InputStr "@X07Enter wildcard (Enter=abort)@X0C: _", STRING002, 1, 12, Mask_Pwd(), 8
If (STRING002 == "") Return
Goto LABEL032
Case 4
Return
End Select
:LABEL034
Else
If (BOOLEAN014) Then
FreshLine
PrintLn "@X0CAll files in the turbo batch were found!!"
Wait
Endif
Endif
INTEGER015 = ReadLine(PPEPath() + "work\nkname", 1)
INTEGER016 = ReadLine(PPEPath() + "work\nkname", 2)
BOOLEAN042 = 1
Return
:LABEL035
BOOLEAN042 = 0
FreshLine
Print ReplaceStr(ReadLine(STRING018, 34), "%UPLOAD%", Upper(STRING042))
If (OnLocal()) SaveScrn
If (BOOLEAN014) Then
Shell 0, BOOLEAN041, PPEPath() + "replace.exe", String(INTEGER015) + " " + Upper(STRING042) + " " + PPEPath() + " " + String(INTEGER016) + " " + "YES"
Else
Shell 0, BOOLEAN041, PPEPath() + "replace.exe", String(INTEGER015) + " " + Upper(STRING042) + " " + PPEPath() + " " + String(INTEGER016) + " " + "NO"
Endif
If (OnLocal()) RestScrn
If (BOOLEAN041) Then
PrintLn ReplaceStr(ReplaceStr(ReadLine(STRING018, 38), "%UPLOAD%", Upper(STRING042)), "%FILE%", Upper(STRING039))
Wait
Return
Endif
PrintLn ReadLine(STRING018, 26)
:LABEL036
Print ReplaceStr(ReadLine(STRING018, 35), "%UPLOAD%", Upper(STRING042))
FClose -1
Delete STRING042
If (Exist(STRING042)) Then
FreshLine
PrintLn ReplaceStr(ReadLine(STRING018, 39), "%UPLOAD%", Upper(STRING042))
Print ReadLine(STRING018, 40)
Gosub LABEL068
FreshLine
If (INT010 == 1) Then
Goto LABEL036
Goto LABEL037
Endif
Return
Endif
:LABEL037
PrintLn ReadLine(STRING018, 26)
If (BOOLEAN035) Then
:LABEL038
Print ReplaceStr(ReadLine(STRING018, 36), "%UPLOAD%", Upper(STRING042))
Copy Upper(STRING042) + ".NUK", Upper(STRING042)
If (!Exist(STRING042) || (FileInf(STRING042, 4) <> FileInf(STRING042 + ".nuk", 4))) Then
FreshLine
PrintLn ReadLine(STRING018, 41)
Print ReadLine(STRING018, 40)
Gosub LABEL068
FreshLine
If (INT010 == 1) Then
Goto LABEL038
Goto LABEL039
Endif
Return
:LABEL039
Return
Endif
PrintLn ReadLine(STRING018, 26)
Else
:LABEL040
Print ReplaceStr(ReadLine(STRING018, 37), "%UPLOAD%", Upper(STRING042))
Rename Upper(STRING042) + ".nuk", Upper(STRING042)
If (Exist(STRING042)) Goto LABEL041
FreshLine
PrintLn ReadLine(STRING018, 42)
Print ReadLine(STRING018, 40)
Gosub LABEL068
FreshLine
If (INT010 == 1) Then
Goto LABEL040
Else
Return
Endif
Return
:LABEL041
PrintLn ReadLine(STRING018, 26)
Endif
If (BOOLEAN014) Then
If (BOOLEAN006) Goto LABEL042
FClose -1
FreshLine
Print ReadLine(STRING018, 120)
Delete STRING034
PrintLn ReadLine(STRING018, 26)
Return
:LABEL042
Else
Gosub LABEL043
Endif
Return
:LABEL043
FreshLine
Print ReplaceStr(ReadLine(STRING018, 43), "%FILE%", Upper(STRING039))
FClose -1
FOpen 1, STRING034, 0, 0
FCreate 2, PPEPath() + "bctp" + String(PcbNode()), 1, 0
:LABEL044
If (Ferr(1)) Goto LABEL045
FGet 1, STRING021
Tokenize STRING021
If (Upper(((GetToken() <> Upper(STRING039)) && (STRING021 <> "")))) Then
FPutLn 2, STRING021
Endif
Goto LABEL044
:LABEL045
If (INTEGER013 >= 2) Dec INTEGER013
FClose 1
FClose 2
Delete STRING034
Rename PPEPath() + "bctp" + String(PcbNode()), STRING034
Print ReadLine(STRING018, 26)
Return
STRING052 = PPEPath() + "POS" + String(PcbNode())
Goto LABEL053
:LABEL046
STRING049 = PPEPath()
STRING048 = GetToken()
STRING059 = GetToken()
If (STRING059 <> "") Then
INTEGER020 = STRING059
Else
INTEGER020 = 1
Endif
If (STRING048 == "") Then
PrintLn "No configuration parameter given"
Wait
End
Endif
If (Exist(STRING048)) Goto LABEL047
If (Exist(STRING049 + STRING048)) Then
STRING048 = STRING049 + STRING048
Else
PrintLn "Cannot find configuration ", STRING048
Wait
End
Endif
:LABEL047
If (AnsiOn()) Goto LABEL048
PrintLn
PrintLn "No ansi capability, exiting lightbar kit"
End
:LABEL048
Tokenize ReadLine(STRING048, 1)
INTEGER021 = GetToken()
STRING058 = GetToken()
BOOLEAN047 = 0
BOOLEAN046 = 0
If (INTEGER021 > 15) Then
Redim TSTRING050, INTEGER021
Redim TSTRING051, INTEGER021
Endif
INTEGER014 = 1
STRING055 = Chr(13)
STRING056 = Chr(27)
BOOLEAN045 = IsNonStop()
StartDisp 1
INTEGER014 = INTEGER020
INTEGER024 = INTEGER021
DefColor
DefColor
INTEGER025 = 3
For INTEGER012 = 1 To INTEGER021
Tokenize ReadLine(STRING048, INTEGER012 + 1)
INTEGER022 = GetToken()
STRING057 = GetToken()
If (STRING057 == "C") Then
INTEGER023 = GetY()
Else
INTEGER023 = STRING057
Endif
INTEGER019 = GetToken()
TSTRING050(INTEGER012) = ScrText(INTEGER022, INTEGER023, INTEGER019, 1)
TSTRING051(INTEGER012) = GetToken()
INTEGER025 = INTEGER025 + 3
Next
INTEGER028 = 1
INTEGER027 = 1 + INTEGER021 - 1
Gosub LABEL052
Print STRING058, StripAtx(TSTRING050(INTEGER014))
:LABEL049
STRING053 = Inkey()
Select Case (STRING053)
Case "UP", "LEFT", ","
Gosub LABEL052
Print TSTRING050(INTEGER014)
If (INTEGER014 == 1) Then
INTEGER014 = INTEGER024
Else
INTEGER014 = INTEGER014 - 1
Endif
Gosub LABEL052
Print STRING058, StripAtx(TSTRING050(INTEGER014))
Goto LABEL049
Case "DOWN", "RIGHT", "."
Gosub LABEL052
Print TSTRING050(INTEGER014)
If (INTEGER014 == INTEGER024) Then
INTEGER014 = 1
Else
INTEGER014 = INTEGER014 + 1
Endif
Gosub LABEL052
Print STRING058, StripAtx(TSTRING050(INTEGER014))
Goto LABEL049
Case "?"
Tokenize ReadLine(STRING048, INTEGER014 + 1)
INTEGER022 = GetX()
INTEGER023 = GetY()
STRING057 = GetToken()
STRING057 = GetToken()
STRING057 = GetToken()
STRING057 = GetToken()
STRING057 = ""
STRING057 = GetToken()
If (STRING057 == "NOHLP") Goto LABEL049
If (STRING057 <> "") Then
STRING054 = STRING057
If (Exist(STRING054)) Then
Goto LABEL050
Goto LABEL050
Endif
If (Exist(HelpPath() + "hlp" + STRING054)) Then
STRING054 = HelpPath() + "hlp" + STRING054
Goto LABEL050
Goto LABEL050
Endif
If (Exist(STRING049 + STRING054)) Then
STRING054 = STRING049 + STRING054
Goto LABEL050
Endif
Endif
:LABEL050
AnsiPos 1, 23
SaveScrn
StartDisp 2
DefColor
Cls
DispFile STRING054, 1 + 4
Wait
StartDisp 1
RestScrn
AnsiPos INTEGER022, INTEGER023
Goto LABEL049
Case STRING055
INTEGER012 = INTEGER014
INTEGER022 = GetX()
INTEGER023 = GetY()
Gosub LABEL052
Print TSTRING050(INTEGER014)
Goto LABEL051
Return
Goto LABEL049
Case "HOME"
Gosub LABEL052
Print TSTRING050(INTEGER014)
INTEGER014 = INTEGER028
Gosub LABEL052
Print STRING058, StripAtx(TSTRING050(INTEGER014))
Goto LABEL049
Case "END"
Gosub LABEL052
Print TSTRING050(INTEGER014)
INTEGER014 = INTEGER027
Gosub LABEL052
Print STRING058, StripAtx(TSTRING050(INTEGER014))
Goto LABEL049
Case STRING056
If (!BOOLEAN046) Goto LABEL049
DefColor
If (BOOLEAN047) Then
DefColor
Cls
Endif
If (!BOOLEAN045) StartDisp 2
End
Case ""
INTEGER025 = (INTEGER014 + 1) * 3
INTEGER026 = INTEGER025 - 3
For INTEGER012 = 1 To INTEGER024
If (Upper(TSTRING051(INTEGER012)) == Upper(STRING053)) Then
Gosub LABEL052
Print TSTRING050(INTEGER014)
INTEGER014 = INTEGER012
Gosub LABEL052
Print STRING058, StripAtx(TSTRING050(INTEGER014))
Goto LABEL051
Endif
Next
Goto LABEL049
For INTEGER012 = INTEGER014 To INTEGER024
If (Upper(Left(StripAtx(TSTRING050(INTEGER012)), 1)) == Upper(STRING053)) Then
Gosub LABEL052
Print TSTRING050(INTEGER014)
INTEGER014 = INTEGER012
Goto LABEL051
Endif
INTEGER025 = INTEGER025 + 3
Next
INTEGER025 = INTEGER028 * 3
For INTEGER012 = 1 To INTEGER014 - 1
If (Upper(Left(StripAtx(TSTRING050(INTEGER012)), 1)) == Upper(STRING053)) Then
Gosub LABEL052
Print TSTRING050(INTEGER014)
INTEGER014 = INTEGER012
Goto LABEL051
Endif
INTEGER025 = INTEGER025 + 3
Next
Goto LABEL049
End Select
Goto LABEL049
:LABEL051
DefColor
Return
Return
:LABEL052
Tokenize ReadLine(STRING048, INTEGER014 + 1)
INTEGER022 = GetToken()
STRING057 = GetToken()
If (STRING057 == "C") Then
INTEGER023 = GetY()
Else
INTEGER023 = STRING057
Endif
AnsiPos INTEGER022, INTEGER023
Return
:LABEL053
DispFile PPEPath() + "graph\menu", 0
Tokenize PPEPath() + "lb3.cfg"
Gosub LABEL046
:LABEL054
If (BOOLEAN006) Then
FreshLine
STRING038 = "U"
INT002 = 0
STRING038 = "U"
InputStr "@X07Enter wildcard Dir (@X0C1-@NUMDIR@, U@X07)", STRING038, 7, Len(String(INT001)), Mask_Num() + "U", 8 + 2
FreshLine
If (STRING038 == "") STRING038 = "U"
If ((ToInteger(STRING038) >= 1) && ToInteger((STRING038 <= INT001))) Then
INT020 = ToInteger(STRING038)
Goto LABEL055
Endif
If (STRING038 == "U") Then
INT020 = INT001
Endif
:LABEL055
Gosub LABEL059
STRING040 = STRING035 + "\" + STRING039
Return
Endif
If (BOOLEAN018) Goto LABEL057
BOOLEAN018 = 1
If (Exist(STRING034)) Goto LABEL056
FreshLine
PrintLn ReadLine(STRING018, 45)
Wait
BOOLEAN040 = 1
BOOLEAN018 = 0
Return
:LABEL056
INTEGER013 = 2
Tokenize ReadLine(STRING034, INTEGER013)
STRING039 = GetToken()
INT020 = GetToken()
If (STRING039 == "") Then
FreshLine
PrintLn ReadLine(STRING018, 45)
Wait
BOOLEAN040 = 1
BOOLEAN018 = 0
Return
Endif
Gosub LABEL059
STRING040 = STRING035 + "\" + STRING039
If (BOOLEAN014) Then
FreshLine
DispFile PPEPath() + "graph\turbomsg", 0
Gosub LABEL058
Endif
Return
:LABEL057
Inc INTEGER013
Tokenize ReadLine(STRING034, INTEGER013)
STRING039 = GetToken()
If (STRING039 == "") Then
BOOLEAN040 = 1
BOOLEAN018 = 0
Return
Endif
INT020 = GetToken()
Gosub LABEL059
If (BOOLEAN014) Then
Gosub LABEL058
Endif
STRING040 = STRING035 + "\" + STRING039
Return
Return
:LABEL058
PrintLn "@X07Writing turbo list"
INT021 = INTEGER013 + 1
FCreate 1, PPEPath() + "work\tblst", 1, 0
FPutLn 1, STRING039
STRING060 = ReadLine(STRING034, INT021)
While (STRING060 <> "") Do
Tokenize STRING060
FPutLn 1, GetToken()
Inc INT021
STRING060 = ReadLine(STRING034, INT021)
EndWhile
FClose 1
Return
:LABEL059
If (INT020 == INT001) Then
STRING042 = STRING009
STRING035 = STRING010
Return
Endif
If (INT002 == INT020) Return
FOpen 1, STRING041, 0, 0
FSeek 1, CurConf() * INT018 + 2 + 482, 0
FRead 1, STRING061, 33
FClose 1
If (Exist(STRING061)) Goto LABEL060
STRING042 = STRING009
STRING035 = STRING010
Return
:LABEL060
INT002 = INT020
FOpen 1, STRING061, 0, 0
FSeek 1, 96 * (INT020 - 1), 0
If (Ferr(1)) Then
STRING042 = STRING009
STRING035 = STRING010
Else
FRead 1, STRING042, 30
FRead 1, STRING035, 30
STRING042 = RTrim(STRING042, " ")
STRING035 = RTrim(STRING035, " ")
Endif
FClose 1
Return
:LABEL061
BOOLEAN021 = 0
BOOLEAN023 = 0
BOOLEAN039 = 0
BOOLEAN025 = 0
BOOLEAN028 = 0
:LABEL062
FreshLine
Print ReplaceStr(ReadLine(STRING018, 3), "%FILE%", Upper(STRING039))
Gosub LABEL073
Select Case (INT010)
Case 1
BOOLEAN039 = 1
Case 2
BOOLEAN023 = 1
Case 3
If (BOOLEAN014) Then
FreshLine
PrintLn ReadLine(STRING018, 118)
Goto LABEL062
Endif
BOOLEAN021 = 1
Gosub LABEL043
Case 4
If (BOOLEAN014) Then
FreshLine
PrintLn ReadLine(STRING018, 118)
Goto LABEL062
Endif
BOOLEAN039 = 0
Case 5
Gosub LABEL063
Goto LABEL061
BOOLEAN039 = 0
Case 6
BOOLEAN025 = 1
Case 7
BOOLEAN028 = 1
Case 8
BOOLEAN018 = 0
BOOLEAN040 = 1
End Select
FreshLine
Return
:LABEL063
For INTEGER012 = 1 To INTEGER007
TSTRING062(INTEGER012) = TSTRING012(INTEGER012)
Next
INTEGER029 = INTEGER007
INT024 = 1
BOOLEAN027 = 0
:LABEL064
Gosub LABEL142
FreshLine
Newline
:LABEL065
Backup 80
ClrEol
Gosub LABEL067
Select Case (INT010)
Case 1
Gosub LABEL139
Case 2
Gosub LABEL140
Case 3
Gosub LABEL141
Case 4
If (BOOLEAN027) Then
FreshLine
Print ReadLine(STRING018, 96)
Gosub LABEL068
If (INT010 == 1) Then
INTEGER007 = INTEGER029
For INTEGER012 = 1 To INTEGER029
TSTRING012(INTEGER012) = TSTRING062(INTEGER012)
Next
FreshLine
PrintLn ReadLine(STRING018, 98)
Endif
FreshLine
Endif
Return
Case 5
Select Case (INT024)
Case 1
If (INTEGER007 > 20) Then
Inc INT024
Goto LABEL064
Else
Backup 80
ClrEol
Print ReadLine(STRING018, 97)
Delay 25
Endif
Case 2
If (INTEGER007 > 40) Then
Inc INT024
Goto LABEL064
Else
Backup 80
ClrEol
Print ReadLine(STRING018, 97)
Delay 25
Endif
Case Else
Backup 80
ClrEol
Print ReadLine(STRING018, 97)
Delay 25
End Select
Case 6
If (INT024 > 1) Then
Dec INT024
Goto LABEL064
Goto LABEL066
Endif
Backup 80
ClrEol
Print ReadLine(STRING018, 99)
Delay 25
End Select
:LABEL066
Goto LABEL065
Return
:LABEL067
INT008 = 1
INT009 = 6
TSTRING036(1) = ReadLine(STRING018, 82)
TSTRING036(2) = ReadLine(STRING018, 83)
TSTRING036(3) = ReadLine(STRING018, 84)
TSTRING036(4) = ReadLine(STRING018, 85)
TSTRING036(5) = ReadLine(STRING018, 86)
TSTRING036(6) = ReadLine(STRING018, 87)
Goto LABEL001
:LABEL068
INT008 = 1
INT009 = 2
TSTRING036(1) = ReadLine(STRING018, 4)
TSTRING036(2) = ReadLine(STRING018, 5)
Gosub LABEL001
Return
:LABEL069
INT008 = 1
INT009 = 2
TSTRING036(2) = ReadLine(STRING018, 4)
TSTRING036(1) = ReadLine(STRING018, 5)
Gosub LABEL001
Return
:LABEL070
INT008 = 1
INT009 = 4
TSTRING036(1) = "@X0FT@X07urboNuke"
TSTRING036(2) = "@X0FA@X07ddToBatch"
TSTRING036(3) = "@X0FN@X07ewWildcard"
TSTRING036(4) = "@X0FQ@X07uit"
Gosub LABEL001
Return
INT008 = 1
INT009 = 3
INT011 = INT003
TSTRING036(1) = ReadLine(STRING018, 5)
TSTRING036(2) = ReadLine(STRING018, 4)
TSTRING036(3) = ReadLine(STRING018, 117)
Gosub LABEL001
INT011 = 1
Return
:LABEL071
INT008 = 1
INT009 = 3
TSTRING036(1) = ReadLine(STRING018, 102)
TSTRING036(2) = ReadLine(STRING018, 104)
TSTRING036(3) = ReadLine(STRING018, 103)
Goto LABEL001
:LABEL072
INT008 = 1
INT009 = 4
TSTRING036(1) = ReadLine(STRING018, 101)
TSTRING036(2) = ReadLine(STRING018, 102)
TSTRING036(3) = ReadLine(STRING018, 103)
TSTRING036(4) = ReadLine(STRING018, 104)
Goto LABEL001
:LABEL073
INT008 = 1
INT009 = 8
TSTRING036(1) = ReadLine(STRING018, 10)
TSTRING036(2) = ReadLine(STRING018, 11)
TSTRING036(3) = ReadLine(STRING018, 12)
TSTRING036(4) = ReadLine(STRING018, 13)
TSTRING036(8) = ReadLine(STRING018, 14)
TSTRING036(5) = ReadLine(STRING018, 79)
TSTRING036(6) = ReadLine(STRING018, 80)
TSTRING036(7) = ReadLine(STRING018, 81)
BOOLEAN029 = 1
Gosub LABEL001
BOOLEAN029 = 0
Return
:LABEL074
STRING038 = ""
If (BOOLEAN001) Then
STRING038 = "1"
Else
STRING038 = "0"
Endif
If (BOOLEAN002) Then
STRING038 = STRING038 + " 1"
Else
STRING038 = STRING038 + " 0"
Endif
If (BOOLEAN003) Then
STRING038 = STRING038 + " 1"
Else
STRING038 = STRING038 + " 0"
Endif
If (BOOLEAN004) Then
STRING038 = STRING038 + " 1"
Else
STRING038 = STRING038 + " 0"
Endif
If (BOOLEAN005) Then
STRING038 = STRING038 + " 1"
Else
STRING038 = STRING038 + " 0"
Endif
If (BOOLEAN008) Then
STRING038 = STRING038 + " 1"
Else
STRING038 = STRING038 + " 0"
Endif
Return
:LABEL075
DefColor
Cls
Gosub LABEL074
FCreate 1, STRING031, 1, 0
FPutLn 1, "Z"
FPutLn 1, STRING038
FClose 1
End
Return
:LABEL076
Gosub LABEL074
DefColor
Cls
FCreate 1, STRING031, 1, 0
FPutLn 1, "L"
FPutLn 1, STRING038
FClose 1
End
Return
:LABEL077
Gosub LABEL074
DefColor
Cls
FCreate 1, STRING031, 1, 0
FPutLn 1, "N"
FPutLn 1, STRING038
FClose 1
End
Return
:LABEL078
StartDisp 2
FreshLine
DispFile PPEPath() + "graph\deschdr", 1 + 4
FClose -1
FOpen 1, STRING042, 0, 0
If (Ferr(1)) Then
PrintLn "Breaking off, ferr failed 2, report to sysop please"
Wait
Endif
FSeek 1, INTEGER015 - 32, 0
If (Ferr(1)) Then
Endif
FGet 1, TSTRING012(1)
If (Ferr(1)) Then
PrintLn "Breaking off, ferr failed 1, report to sysop please"
Wait
Endif
Print TSTRING030(0), Left(TSTRING012(1), 12)
Print TSTRING030(1), Mid(TSTRING012(1), 13, 19)
PrintLn TSTRING030(2), Mid(TSTRING012(1), 33, Len(TSTRING012(1)) - 32)
INTEGER012 = 2
While (1) Do
FGet 1, TSTRING012(INTEGER012)
If (Ferr(1)) Then
Break
Endif
If ((Left(TSTRING012(INTEGER012), 1) <> " ") && (Left(TSTRING012(INTEGER012), 1) <> " ")) Break
Print Space(31)
PrintLn TSTRING030(3), Mid(TSTRING012(INTEGER012), 33, Len(TSTRING012(INTEGER012)) - 32)
If (INTEGER012 == 60) Break
Inc INTEGER012
EndWhile
If (INTEGER012 > 0) Then
INTEGER007 = INTEGER012 - 1
Else
INTEGER007 = 0
Endif
If (Abort()) Then
ResetDisp
Endif
StartDisp 1
INT025 = INTEGER012 - 1
FClose 1
Return
:LABEL079
STRING028 = ""
BOOLEAN022 = 0
Select Case (STRING027)
Case "NOSTR"
For INTEGER012 = INT025 To 1 Step -1
STRING021 = Mid(TSTRING012(INTEGER012), INT005, INT006)
STRING021 = RTrim(STRING021, " ")
If (STRING021 <> "") Then
STRING028 = Mid(TSTRING012(INTEGER012), INT005, INT006)
Break
Endif
Next
Case "B"
For INTEGER012 = INT025 To 1 Step -1
If (InStr(Upper(TSTRING012(INTEGER012)), Upper(STRING026))) Then
STRING028 = Mid(TSTRING012(INTEGER012), INT005, INT006)
Break
Endif
Next
Case "T"
For INTEGER012 = 1 To INT025
If (InStr(Upper(TSTRING012(INTEGER012)), Upper(STRING026))) Then
STRING028 = Mid(TSTRING012(INTEGER012), INT005, INT006)
Break
Endif
Next
End Select
FreshLine
If (STRING028 == "") Then
:LABEL080
STRING038 = ""
FreshLine
Print "@X07No name found, enter manual name? "
Gosub LABEL071
If (INT010 == 1) Then
:LABEL081
FreshLine
Print ReadLine(STRING018, 46)
InputStr "_", STRING038, 1, 30, Mask_Pwd(), 8
FreshLine
If (STRING038 == "") Then
Goto LABEL080
Goto LABEL082
Endif
STRING029 = Upper(STRING038)
INTEGER004 = U_RecNum(STRING029)
If (INTEGER004 == -1) Then
FreshLine
PrintLn ReadLine(STRING018, 47)
Goto LABEL081
Endif
PrintLn ReplaceStr(ReadLine(STRING018, 48), "%NAME%", Upper(STRING029))
BOOLEAN022 = 1
Return
:LABEL082
Goto LABEL083
Endif
If (INT010 == 2) Then
BOOLEAN022 = 0
Return
Goto LABEL083
Endif
If (INT010 == 3) Then
Gosub LABEL090
If (BOOLEAN031) Then
STRING029 = ReadLine(PPEPath() + "work\nkname", 1)
PrintLn "@X07User name (@X0C", Upper(STRING029), "@X07) found in DOWNLOAD.TXT"
INTEGER004 = U_RecNum(STRING029)
If (INTEGER004 == -1) Then
FreshLine
Goto LABEL080
Endif
BOOLEAN022 = 1
Return
Goto LABEL083
Endif
Goto LABEL080
Endif
Endif
:LABEL083
STRING028 = LTrim(STRING028, " ")
STRING028 = Upper(RTrim(STRING028, " "))
If (BOOLEAN034) Then
BOOLEAN048 = 0
INTEGER012 = 2
STRING063 = ReadLine(STRING025, INTEGER012)
While (STRING063 <> "") Do
If (Upper(STRING063) == STRING028) Then
STRING029 = ReadLine(STRING025, INTEGER012 - 1)
BOOLEAN048 = 1
Break
Endif
Inc INTEGER012
Inc INTEGER012
STRING063 = ReadLine(STRING025, INTEGER012)
EndWhile
If (BOOLEAN048) Goto LABEL084
FreshLine
PrintLn ReplaceStr(ReadLine(STRING018, 51), "%NAME%", Upper(STRING028))
STRING029 = Upper(STRING028)
:LABEL084
Else
STRING029 = StripAtx(STRING028)
Endif
:LABEL085
FreshLine
Print ReplaceStr(ReadLine(STRING018, 2), "%NAME%", Upper(STRING029))
Gosub LABEL072
FreshLine
Select Case (INT010)
Case 4
BOOLEAN022 = 0
Return
Case 2
:LABEL086
STRING038 = ""
Print ReadLine(STRING018, 49)
InputStr "_", STRING038, 1, 30, Mask_Pwd(), 8
FreshLine
If (STRING038 == "") Then
Goto LABEL085
Else
STRING029 = Upper(STRING038)
INTEGER004 = U_RecNum(STRING029)
If (INTEGER004 == -1) Then
FreshLine
PrintLn ReadLine(STRING018, 47)
Goto LABEL086
Endif
PrintLn ReplaceStr(ReadLine(STRING018, 48), "%NAME%", Upper(STRING029))
BOOLEAN022 = 1
Return
Endif
Case 3
Gosub LABEL090
If (BOOLEAN031) Then
STRING029 = ReadLine(PPEPath() + "work\nkname", 1)
PrintLn "@X07User name (@X0C", Upper(STRING029), "@X07) found in DOWNLOAD.TXT"
Goto LABEL085
Goto LABEL087
Endif
BOOLEAN022 = 0
Goto LABEL085
End Select
:LABEL087
INTEGER004 = U_RecNum(Upper(STRING029))
If (INTEGER004 == -1) Then
FreshLine
PrintLn ReadLine(STRING018, 50)
Goto LABEL085
:LABEL088
FreshLine
STRING038 = ""
Print ReadLine(STRING018, 49)
InputStr "_", STRING038, 1, 30, Mask_Pwd(), 8
FreshLine
If (STRING038 == "") Then
BOOLEAN022 = 0
Return
Goto LABEL089
Endif
STRING029 = Upper(STRING038)
INTEGER004 = U_RecNum(STRING029)
If (INTEGER004 == -1) Then
FreshLine
PrintLn ReadLine(STRING018, 47)
Goto LABEL088
Endif
PrintLn ReplaceStr(ReadLine(STRING018, 48), "%NAME%", Upper(STRING029))
BOOLEAN022 = 1
Return
Endif
:LABEL089
BOOLEAN022 = 1
Return
:LABEL090
BOOLEAN031 = 0
FreshLine
PrintLn "@X07Searching download.txt for file (@X0C", Upper(STRING039), "@X07), please wait..."
If (OnLocal()) SaveScrn
Shell 0, BOOLEAN041, PPEPath() + "search.exe", Upper(STRING039) + " " + STRING008 + " " + PPEPath()
If (OnLocal()) RestScrn
If (BOOLEAN041) Then
PrintLn "Couldn't find file (@X0C" + Upper(STRING039) + "@X07) in DOWNLOAD.TXT"
Return
Endif
BOOLEAN031 = 1
Return
:LABEL091
FClose -1
FreshLine
If (Exist(STRING040)) Goto LABEL092
BOOLEAN020 = 1
Goto LABEL093
:LABEL092
BOOLEAN020 = 0
:LABEL093
FreshLine
Newline
If (BOOLEAN005) Goto LABEL094
DispFile PPEPath() + "graph\delmenu2", 1 + 4
Goto LABEL095
:LABEL094
DispFile PPEPath() + "graph\delmenu", 1 + 4
:LABEL095
STRING038 = ""
InputStr ReadLine(STRING018, 22) + "_", STRING038, 1, 1, "12345", 8
FreshLine
If (STRING038 == "") Then
Goto LABEL093
Endif
FreshLine
Select Case (STRING038)
Case "1"
If (BOOLEAN020) Then
If (!BOOLEAN014) PrintLn ReplaceStr(ReadLine(STRING018, 23), "%FILE%", Upper(STRING040))
Endif
If (BOOLEAN014) Then
Gosub LABEL104
Return
Else
:LABEL096
Print ReplaceStr(ReplaceStr(ReadLine(STRING018, 24), "%FILE%", Upper(STRING040)), "%OFFLINE%", Upper(STRING033))
Rename Upper(STRING040), Upper(STRING033) + "\" + Upper(STRING039)
If (Exist(STRING040)) Then
Copy Upper(STRING040), Upper(STRING033) + "\" + Upper(STRING039)
Delete STRING040
Endif
If (Exist(STRING040)) Then
FreshLine
PrintLn ReplaceStr(ReplaceStr(ReadLine(STRING018, 25), "%FILE%", Upper(STRING040)), "%OFFLINE%", Upper(STRING033))
Gosub LABEL114
If (BOOLEAN019) Goto LABEL096
Return
Endif
Endif
PrintLn ReadLine(STRING018, 26)
Case "2"
If (BOOLEAN005) Goto LABEL097
FreshLine
PrintLn ReadLine(STRING018, 28)
Wait
Goto LABEL093
:LABEL097
If (BOOLEAN014) Then
Gosub LABEL106
Return
Else
:LABEL098
Delete STRING040
If (Exist(STRING040)) Then
FreshLine
PrintLn ReplaceStr(ReadLine(STRING018, 29), "%FILE%", Upper(STRING040))
Gosub LABEL114
If (BOOLEAN019) Goto LABEL098
Return
Endif
FreshLine
PrintLn ReplaceStr(ReadLine(STRING018, 30), "%FILE%", Upper(STRING040))
Endif
Case "3"
If (BOOLEAN020) Then
If (!BOOLEAN014) PrintLn ReplaceStr(ReadLine(STRING018, 23), "%FILE%", Upper(STRING040))
Endif
If (BOOLEAN014) Then
Gosub LABEL104
Gosub LABEL102
Return
Endif
:LABEL099
Print ReplaceStr(ReplaceStr(ReadLine(STRING018, 24), "%FILE%", Upper(STRING040)), "%OFFLINE%", Upper(STRING033))
Rename Upper(STRING040), Upper(STRING033) + "\" + Upper(STRING039)
If (Exist(STRING040)) Then
Copy Upper(STRING040), Upper(STRING033) + "\" + Upper(STRING039)
Delete STRING040
Endif
If (Exist(STRING040)) Then
FreshLine
Print ReplaceStr(ReplaceStr(ReadLine(STRING018, 25), "%FILE%", Upper(STRING040)), "%OFFLINE%", Upper(STRING033))
Gosub LABEL114
If (BOOLEAN019) Goto LABEL099
Return
Endif
PrintLn ReadLine(STRING018, 26)
:LABEL100
If (BOOLEAN032) Then
STRING020 = STRING019 + "\\" + STRING039
Else
STRING020 = STRING040
Endif
FCreate 1, STRING020, 1, 0
FClose 1
If (!Exist(STRING020) || (FileInf(STRING020, 4) <> 0)) Then
PrintLn ReplaceStr(ReadLine(STRING018, 31), "%FILE%", Upper(STRING020))
Gosub LABEL114
If (BOOLEAN019) Goto LABEL100
Return
Endif
PrintLn ReplaceStr(ReadLine(STRING018, 52), "%FILE%", Upper(STRING020))
Case "4"
If (BOOLEAN005) Goto LABEL101
FreshLine
PrintLn ReadLine(STRING018, 28)
Wait
Goto LABEL093
:LABEL101
If (BOOLEAN032) Then
STRING020 = STRING019 + "\\" + STRING039
Else
STRING020 = STRING040
Endif
FreshLine
FClose -1
If (BOOLEAN014) Then
Gosub LABEL102
Return
Endif
Delete STRING040
FCreate 1, STRING020, 1, 0
FClose 0
If (!Exist(STRING020) || (FileInf(STRING020, 4) <> 0)) Then
PrintLn ReplaceStr(ReadLine(STRING018, 31), "%FILE%", Upper(STRING020))
Gosub LABEL114
If (BOOLEAN019) Goto LABEL101
Return
Endif
PrintLn ReplaceStr(ReadLine(STRING018, 52), "%FILE%", Upper(STRING020))
Case "5"
FreshLine
PrintLn ReadLine(STRING018, 32)
End Select
Return
:LABEL102
FOpen 1, PPEPath() + "work\tblst", 0, 0
FGet 1, STRING021
While (STRING021 <> "") Do
If (BOOLEAN032) Then
STRING022 = STRING019 + "\" + STRING021
Else
STRING022 = STRING035 + "\" + STRING021
Endif
:LABEL103
FCreate 2, STRING022, 1, 0
FClose 2
If (!Exist(STRING022) || (FileInf(STRING022, 4) <> 0)) Then
PrintLn ReplaceStr(ReadLine(STRING018, 31), "%FILE%", Upper(STRING022))
Gosub LABEL114
If (BOOLEAN019) Goto LABEL103
FClose 1
Return
Endif
PrintLn ReplaceStr(ReadLine(STRING018, 52), "%FILE%", Upper(STRING022))
FGet 1, STRING021
EndWhile
FClose 1
Return
:LABEL104
FOpen 1, PPEPath() + "work\tblst", 0, 0
FGet 1, STRING021
While (STRING021 <> "") Do
STRING022 = STRING035 + STRING021
:LABEL105
FreshLine
Print ReplaceStr(ReplaceStr(ReadLine(STRING018, 24), "%FILE%", Upper(STRING022)), "%OFFLINE%", Upper(STRING033))
Rename Upper(STRING022), Upper(STRING033) + "\" + STRING021
If (Exist(STRING022)) Then
Copy Upper(STRING022), Upper(STRING033) + "\" + Upper(STRING021)
Delete Upper(STRING022)
Endif
If (Exist(STRING022)) Then
FreshLine
PrintLn ReplaceStr(ReplaceStr(ReadLine(STRING018, 25), "%FILE%", Upper(STRING022)), "%OFFLINE%", Upper(STRING033))
Gosub LABEL114
If (BOOLEAN019) Goto LABEL105
FClose 1
Return
Endif
PrintLn ReadLine(STRING018, 26)
FGet 1, STRING021
EndWhile
FClose 1
Return
:LABEL106
FOpen 1, PPEPath() + "work\tblst", 0, 0
FGet 1, STRING021
While (STRING021 <> "") Do
STRING022 = STRING035 + STRING021
:LABEL107
Delete STRING022
If (Exist(STRING022)) Then
FreshLine
PrintLn ReplaceStr(ReadLine(STRING018, 29), "%FILE%", Upper(STRING022))
Gosub LABEL114
If (BOOLEAN019) Goto LABEL107
Return
Endif
FreshLine
PrintLn ReplaceStr(ReadLine(STRING018, 30), "%FILE%", Upper(STRING022))
FGet 1, STRING021
EndWhile
FClose 1
Return
:LABEL108
DefColor
Cls
If (Exist(STRING034)) Then
Print ReadLine(STRING018, 53)
Gosub LABEL068
If (INT010 == 1) Then
FClose -1
FreshLine
Print ReadLine(STRING018, 54)
PrintLn ReadLine(STRING018, 26)
PrintLn
Wait
Delete Upper(STRING034)
Else
Return
Endif
Else
PrintLn ReadLine(STRING018, 55)
Wait
Endif
FreshLine
Return
:LABEL109
DefColor
Cls
PrintLn ReadLine(STRING018, 56)
INTEGER012 = 2
STRING021 = ReadLine(STRING034, INTEGER012)
Print "@X0B"
StartDisp 2
While (STRING021 <> "") Do
Tokenize STRING021
Print Left(GetToken(), 12), " "
STRING021 = ReadLine(STRING034, INTEGER012 + 2)
STRING021 = ReadLine(STRING034, INTEGER012 + 1)
If (STRING021 == "") Break
Tokenize STRING021
Print Left(GetToken(), 12), " "
STRING021 = ReadLine(STRING034, INTEGER012 + 2)
If (STRING021 == "") Break
Tokenize STRING021
Print Left(GetToken(), 12), " "
STRING021 = ReadLine(STRING034, INTEGER012 + 3)
If (STRING021 == "") Break
Tokenize STRING021
Print Left(GetToken(), 12), " "
STRING021 = ReadLine(STRING034, INTEGER012 + 4)
If (STRING021 == "") Break
Tokenize STRING021
Print Left(GetToken(), 12), " "
INTEGER012 = INTEGER012 + 5
STRING021 = ReadLine(STRING034, INTEGER012)
FreshLine
If (Abort()) Then
ResetDisp
Break
Endif
EndWhile
FreshLine
StartDisp 1
INT026 = INT001
:LABEL110
Backup 80
ClrEol
Print ReplaceStr(ReadLine(STRING018, 57), "%DIR%", INT026)
Gosub LABEL113
FClose -1
Select Case (INT010)
Case 1
STRING038 = ""
Backup 80
ClrEol
InputStr ReadLine(STRING018, 58), STRING038, 1, 12, Mask_File(), 8
If (STRING038 == "") Goto LABEL110
If (Exist(STRING034)) Goto LABEL111
FCreate 1, STRING034, 1, 0
FPutLn 1, Upper(U_Name())
FPutLn 1, STRING038 + " " + String(INT001)
FClose 1
Goto LABEL112
:LABEL111
FAppend 1, STRING034, 1, 0
FPutLn 1, STRING038 + " " + String(INT001)
FClose 1
:LABEL112
Case 2
STRING038 = ""
Backup 80
ClrEol
InputStr ReadLine(STRING018, 59), STRING038, 1, 12, Mask_File(), 8
If (STRING038 == "") Goto LABEL110
STRING039 = STRING038
Gosub LABEL043
Case 3
STRING038 = ""
Backup 80
ClrEol
INT002 = 0
STRING038 = "U"
InputStr "@X07Enter directory (@X0C1-@NUMDIR@, U@X07)", STRING038, 7, Len(String(INT001)), Mask_Num() + "U", 8 + 2
If ((ToInteger(STRING038) >= 1) && ToInteger((STRING038 <= INT001))) Then
INT026 = ToInteger(STRING038)
ElseIf (STRING038 == "U") Then
INT026 = INT001
Endif
Goto LABEL110
Case Else
Return
End Select
Goto LABEL109
:LABEL113
INT008 = 1
INT009 = 4
TSTRING036(1) = ReadLine(STRING018, 60)
TSTRING036(2) = ReadLine(STRING018, 61)
TSTRING036(3) = "@X0FC@X07hangeDir"
TSTRING036(4) = ReadLine(STRING018, 62)
Goto LABEL001
Return
:LABEL114
FreshLine
Print ReadLine(STRING018, 40)
Gosub LABEL068
FreshLine
If (INT010 == 1) Then
BOOLEAN019 = 1
Else
BOOLEAN019 = 0
Endif
Return
:LABEL115
BOOLEAN024 = 0
INTEGER005 = 0
BOOLEAN007 = 0
INTEGER006 = 0
If (BOOLEAN022) Goto LABEL116
PrintLn ReadLine(STRING018, 63)
BOOLEAN024 = 1
Return
:LABEL116
FreshLine
STRING016 = ""
Newline
Gosub LABEL023
If (BOOLEAN040) Then
BOOLEAN040 = 0
INTEGER006 = 0
BOOLEAN024 = 1
Return
Endif
FreshLine
If (TSTRING011(1) == "") Then
FreshLine
INTEGER006 = 0
BOOLEAN024 = 1
Return
Endif
FreshLine
INTEGER004 = U_RecNum(Upper(STRING029))
If (INTEGER004 == -1) Then
FreshLine
PrintLn ReadLine(STRING018, 69)
Wait
BOOLEAN024 = 1
INTEGER005 = 0
INTEGER006 = 0
Return
Endif
GetAltUser INTEGER004
INTEGER003 = FileInf(STRING040, 4)
Gosub LABEL134
FreshLine
BOOLEAN007 = 0
If (INTEGER003 <= 0) Then
PrintLn ReadLine(STRING018, 65)
STRING038 = ""
FreshLine
InputStr ReadLine(STRING018, 66) + "_", STRING038, 1, 9, Mask_Num(), 8
FreshLine
If (STRING038 == "") Then
INTEGER006 = 0
BOOLEAN024 = 1
GetUser
Return
Endif
INTEGER006 = ToInteger(STRING038)
BOOLEAN007 = 1
INTEGER005 = 0
Endif
If (BOOLEAN007) Goto LABEL117
STRING038 = ""
InputStr ReadLine(STRING018, 68) + "_", STRING038, 1, 3, Mask_Num(), 8
FreshLine
If ((STRING038 == "") || (ToInteger(STRING038) < 0)) Then
INTEGER006 = 0
BOOLEAN024 = 1
GetUser
Return
Endif
INTEGER005 = STRING038
INTEGER006 = ToInteger(STRING038) * INTEGER003
:LABEL117
INTEGER010 = U_Bul()
If (BOOLEAN014) Then
Gosub LABEL118
Endif
If (U_Bul() + INTEGER006 > 0) Then
STRING038 = String(U_Bul() + INTEGER006)
Gosub LABEL137
Endif
GetAltUser INTEGER004
If (INTEGER010 == U_Bul()) Then
PrintLn ReadLine(STRING018, 100)
Else
PrintLn ReplaceStr(ReadLine(STRING018, 70), "%SIZE%", String(INTEGER006))
PrintLn ReplaceStr(ReadLine(STRING018, 67), "%SIZE%", String(U_Bul()))
Endif
GetUser
FreshLine
Gosub LABEL127
Return
:LABEL118
INTEGER030 = INTEGER006
INTEGER001 = 1
STRING021 = ReadLine(PPEPath() + "work\tblst", INTEGER001)
FCreate 1, PPEPath() + "work\tbbyte", 1, 0
FreshLine
While (STRING021 <> "") Do
If (BOOLEAN007) Then
INTEGER002 = INTEGER030
Else
INTEGER002 = FileInf(STRING035 + STRING021, 4) * INTEGER005
Endif
If (INTEGER001 <> 1) Then
If (BOOLEAN022) Then
PrintLn "@X07Adding nuke bytes for (", Upper(STRING021), ")"
INTEGER006 = INTEGER006 + INTEGER002
Endif
Endif
FPutLn 1, STRING021 + " " + String(INTEGER002)
Inc INTEGER001
STRING021 = ReadLine(PPEPath() + "work\tblst", INTEGER001)
EndWhile
FClose 1
Return
:LABEL119
BOOLEAN007 = 0
INTEGER005 = 0
INTEGER006 = 0
If (BOOLEAN022) Goto LABEL120
PrintLn ReadLine(STRING018, 71)
Print ReadLine(STRING018, 113)
Gosub LABEL068
FreshLine
If (INT010 == 2) Then
BOOLEAN040 = 1
Endif
INTEGER005 = 0
INTEGER006 = 0
If (BOOLEAN014) Gosub LABEL118
Return
:LABEL120
FreshLine
INTEGER004 = U_RecNum(Upper(STRING029))
If (INTEGER004 == -1) Then
FreshLine
PrintLn ReadLine(STRING018, 72)
Print ReadLine(STRING018, 113)
Gosub LABEL068
FreshLine
If (INT010 == 2) Then
BOOLEAN040 = 1
Goto LABEL121
Endif
Gosub LABEL118
:LABEL121
INTEGER005 = 0
INTEGER006 = 0
Return
Endif
GetAltUser INTEGER004
INTEGER003 = FileInf(STRING040, 4)
Gosub LABEL134
FreshLine
BOOLEAN007 = 0
If (INTEGER003 <= 0) Then
PrintLn ReadLine(STRING018, 65)
FreshLine
STRING038 = ""
InputStr ReadLine(STRING018, 74) + "_", STRING038, 1, 9, Mask_Num(), 8
FreshLine
If (STRING038 == "") Then
INTEGER006 = 0
GetUser
BOOLEAN040 = 1
Return
Endif
INTEGER006 = ToInteger(STRING038)
BOOLEAN007 = 1
INTEGER005 = 0
Endif
If (BOOLEAN007) Goto LABEL122
FreshLine
STRING038 = ""
InputStr ReadLine(STRING018, 27) + "_", STRING038, 1, 3, Mask_Num(), 8
FreshLine
If (STRING038 <> "") Then
INTEGER005 = STRING038
Else
INTEGER006 = 0
INTEGER005 = 0
BOOLEAN040 = 1
GetUser
Return
Endif
INTEGER006 = ToInteger(STRING038) * INTEGER003
:LABEL122
INTEGER010 = U_Bul()
If (BOOLEAN014) Then
Gosub LABEL118
Endif
If (U_Bul() - INTEGER006 > 0) Then
STRING038 = String(U_Bul() - INTEGER006)
Gosub LABEL137
Else
STRING038 = 0
Gosub LABEL137
Endif
GetAltUser INTEGER004
If (INTEGER010 == U_Bul()) Then
PrintLn ReadLine(STRING018, 100)
Else
PrintLn ReplaceStr(ReadLine(STRING018, 73), "%SIZE%", String(INTEGER006))
PrintLn ReplaceStr(ReadLine(STRING018, 67), "%SIZE%", String(U_Bul()))
Endif
GetUser
FreshLine
Return
:LABEL123
FreshLine
If (BOOLEAN022) Goto LABEL124
PrintLn ReadLine(STRING018, 75)
Return
:LABEL124
If (BOOLEAN014) Then
STRING017 = PPEPath() + "graph\tbnuke"
Else
STRING017 = PPEPath() + "graph\msgnuke"
Endif
STRING021 = PPEPath() + "bcms" + String(PcbNode())
FOpen 1, STRING017, 0, 0
FCreate 2, STRING021, 1, 0
If (BOOLEAN014) Then
FPutLn 2, ReadLine(STRING018, 121)
FPutLn 2, ""
STRING001 = ReadLine(PPEPath() + "work\tbbyte", 1)
INTEGER001 = 1
STRING023 = ReadLine(STRING018, 123)
While (STRING001 <> "") Do
Tokenize STRING001
STRING022 = GetToken()
FPutLn 2, ReplaceStr(ReplaceStr(STRING023, "@NFILE@", STRING022), "@NUKEBYTES@", GetToken())
Inc INTEGER001
STRING001 = ReadLine(PPEPath() + "work\tbbyte", INTEGER001)
EndWhile
Endif
:LABEL125
If (Ferr(1)) Goto LABEL126
FGet 1, STRING022
STRING022 = ReplaceStr(STRING022, "@NUKEE@", Mixed(STRING029))
STRING022 = ReplaceStr(STRING022, "@NUKER@", Mixed(U_Name()))
STRING022 = ReplaceStr(STRING022, "@NALIAS@", Mixed(U_Alias))
STRING022 = ReplaceStr(STRING022, "@NUKEBYTES@", INTEGER006)
STRING022 = ReplaceStr(STRING022, "@NFILE@", STRING039)
If (InStr(STRING022, "@REASON@")) Then
For INT007 = 1 To INTEGER011
FPutLn 2, ReplaceStr(STRING022, "@REASON@", Mixed(TSTRING011(INT007)))
Next
Else
FPutLn 2, STRING022
Endif
Goto LABEL125
:LABEL126
FClose 1
FClose 2
FReAltUser
Message 0, Upper(STRING029), Upper(U_Name()), "@X7CNUKED!!", "R", 0, 0, 0, STRING021
PrintLn ReplaceStr(ReadLine(STRING018, 76), "%NAME%", Upper(STRING029))
FClose -1
Delete STRING021
Return
:LABEL127
FreshLine
If (BOOLEAN022) Goto LABEL128
PrintLn ReadLine(STRING018, 77)
Return
:LABEL128
STRING017 = PPEPath() + "graph\msgaward"
If (BOOLEAN014) STRING017 = PPEPath() + "graph\tbaward"
STRING021 = PPEPath() + "bcms" + String(PcbNode())
FOpen 1, STRING017, 0, 0
FCreate 2, STRING021, 1, 0
If (BOOLEAN014) Then
FPutLn 2, ReadLine(STRING018, 122)
FPutLn 2, ""
STRING001 = ReadLine(PPEPath() + "work\tbbyte", 1)
INTEGER001 = 1
STRING023 = ReadLine(STRING018, 124)
While (STRING001 <> "") Do
Tokenize STRING001
STRING022 = GetToken()
FPutLn 2, ReplaceStr(ReplaceStr(STRING023, "@NFILE@", STRING022), "@NUKEBYTES@", GetToken())
Inc INTEGER001
STRING001 = ReadLine(PPEPath() + "work\tbbyte", INTEGER001)
EndWhile
Endif
:LABEL129
If (Ferr(1)) Goto LABEL130
FGet 1, STRING022
STRING022 = ReplaceStr(STRING022, "@NUKEE@", Mixed(STRING029))
STRING022 = ReplaceStr(STRING022, "@NUKER@", Mixed(U_Name()))
STRING022 = ReplaceStr(STRING022, "@NALIAS@", Mixed(U_Alias))
STRING022 = ReplaceStr(STRING022, "@NUKEBYTES@", INTEGER006)
STRING022 = ReplaceStr(STRING022, "@NFILE@", STRING039)
If (InStr(STRING022, "@REASON@")) Then
For INT007 = 1 To INTEGER011
FPutLn 2, ReplaceStr(STRING022, "@REASON@", Mixed(TSTRING011(INT007)))
Next
Else
FPutLn 2, STRING022
Endif
Goto LABEL129
:LABEL130
FClose 1
FClose 2
FReAltUser
Message 0, Upper(STRING029), Upper(U_Name()), "@X7CAWARD!!", "R", 0, 0, 0, STRING021
PrintLn ReplaceStr(ReadLine(STRING018, 78), "%NAME%", Upper(STRING029))
FClose -1
Delete STRING021
Return
:LABEL131
If (Exist(PPEPath() + "nuke.log")) Goto LABEL132
FCreate 3, PPEPath() + "nuke.log", 1, 0
FPutLn 3, "File From Type Nuker Bytes"
FPutLn 3, "──────────────────────────────────────────────────────────────────"
FClose 3
:LABEL132
Return
:LABEL133
Gosub LABEL131
FAppend 3, PPEPath() + "nuke.log", 1, 0
FPutLn 3, STRING024
FClose 3
Return
:LABEL134
FOpen 1, PPEPath() + "graph\credhdr", 0, 0
FGet 1, STRING022
:LABEL135
If (Ferr(1)) Goto LABEL136
STRING022 = ReplaceStr(STRING022, "%FILE%", Upper(STRING039))
STRING022 = ReplaceStr(STRING022, "%BYTES%", String(INTEGER003))
STRING022 = ReplaceStr(STRING022, "%USER%", String(U_Name()))
STRING022 = ReplaceStr(STRING022, "%BUL%", String(U_Bul()))
STRING022 = ReplaceStr(STRING022, "%BDL%", String(U_Bdl()))
PrintLn STRING022
FGet 1, STRING022
Goto LABEL135
:LABEL136
FClose 1
Return
:LABEL137
STRING068 = ReadLine(PCBDat(), 29)
STRING064 = U_Bul()
STRING064 = STRING038
STRING069 = STRING038
If (STRING069 <> "") Goto LABEL138
PrintLn "No input"
End
:LABEL138
DOUBLE001 = STRING069
If (DOUBLE001 < -999999999) DOUBLE001 = -999999999
If (DOUBLE001 > DOUBLE001) DOUBLE001 = DOUBLE001
STRING064 = DOUBLE001
STRING065 = "0"
If (DOUBLE001 < 0) Then
STRING065 = "1"
DOUBLE001 = -DOUBLE001
Endif
STRING066 = I2S(DOUBLE001, 2)
INTEGER031 = Len(STRING066) - 1 + 129
TBIGSTR001(8) = Chr(INTEGER031)
STRING066 = Left(Right(STRING066, Len(STRING066) - 1) + "00000000000000000000000000000000000000000000000000000000000000000", 55)
TSTRING067(7) = STRING065 + Left(STRING066, 7)
STRING066 = Right(STRING066, Len(STRING066) - 7)
For INTEGER032 = -6 To -1
TSTRING067(-INTEGER032) = Left(STRING066, 8)
STRING066 = Right(STRING066, Len(STRING066) - 8)
Next
For INTEGER032 = 1 To 7
TBIGSTR001(INTEGER032) = Chr(S2I(TSTRING067(INTEGER032), 2))
Next
FOpen 4, STRING068, 2, 0
FSeek 4, (U_RecNum(U_Name()) - 1) * 400 + 216, 0
For INTEGER032 = 1 To 8
FWrite 4, TBIGSTR001(INTEGER032), 1
Next
FClose 4
Return
:LABEL139
Backup 80
ClrEol
If (INTEGER029 >= 60) Then
Print ReadLine(STRING018, 90)
Delay 25
Return
Endif
STRING038 = ""
Print ReplaceStr(ReplaceStr(ReadLine(STRING018, 91), "%FROM%", String(INT022 - 1)), "%TO%", String(INT023 - 1))
InputStr "", STRING038, 7, 2, Mask_Num(), 8 + 2
If (STRING038 == "") Return
If ((ToInteger(STRING038) < INT022 - 1) || (ToInteger(STRING038) > INT023 - 1)) Goto LABEL139
INTEGER012 = INTEGER029
While (((-1 < 0) && (INTEGER012 >= ToInteger(STRING038) + 1)) || ((-1 >= 0) && (INTEGER012 <= ToInteger(STRING038) + 1))) Do
TSTRING062(INTEGER012 + 1) = TSTRING062(INTEGER012)
INTEGER012 = INTEGER012 + -1
EndWhile
Inc INTEGER029
TSTRING062(ToInteger(STRING038) + 1) = ""
Gosub LABEL142
FreshLine
Newline
INTEGER008 = GetY()
If ((STRING038 + 1) % 20 == 0) Then
AnsiPos 5, 20
Else
AnsiPos 5, (ToInteger(STRING038) + 1) % 20
Endif
STRING021 = ""
InputStr "_", STRING021, 1, 45, Mask_Pwd(), 0
TSTRING062(ToInteger(STRING038) + 1) = Space(31) + "| " + STRING021
AnsiPos 1, INTEGER008
BOOLEAN027 = 1
Return
:LABEL140
Backup 80
ClrEol
STRING038 = ""
Print ReplaceStr(ReplaceStr(ReadLine(STRING018, 92), "%FROM%", String(INT022)), "%TO%", String(INT023))
InputStr "", STRING038, 7, 2, Mask_Num(), 8 + 2
If (STRING038 == "") Return
If ((ToInteger(STRING038) < INT022) || (ToInteger(STRING038) > INT023)) Goto LABEL141
Dec INTEGER029
For INTEGER012 = STRING038 To INTEGER029
TSTRING062(INTEGER012) = TSTRING062(INTEGER012 + 1)
Next
Gosub LABEL142
FreshLine
Newline
BOOLEAN027 = 1
Return
:LABEL141
Backup 80
ClrEol
STRING038 = ""
Print ReplaceStr(ReplaceStr(ReadLine(STRING018, 93), "%FROM%", String(INT022)), "%TO%", String(INT023))
InputStr "", STRING038, 7, 2, Mask_Num(), 8 + 2
If (STRING038 == "") Return
If ((ToInteger(STRING038) < INT022) || (ToInteger(STRING038) > INT023)) Goto LABEL141
TSTRING062(ToInteger(STRING038)) = ""
Backup 80
ClrEol
INTEGER008 = GetY()
If ((STRING038 + 1) % 20 == 0) Then
AnsiPos 5, 20
Else
AnsiPos 5, ToInteger(STRING038) % 20
Endif
ClrEol
STRING021 = ""
InputStr "_", STRING021, 1, 45, Mask_Pwd(), 0
TSTRING062(ToInteger(STRING038)) = Space(31) + "| " + STRING021
AnsiPos 1, INTEGER008
BOOLEAN027 = 1
Return
:LABEL142
Select Case (INT024)
Case 1
INT022 = 1
If (INTEGER029 >= 20) Then
INT023 = 20
Else
INT023 = INTEGER029
Endif
Case 2
If (INTEGER029 > 20) Then
INT022 = 21
If (INTEGER029 >= 40) Then
INT023 = 40
Goto LABEL143
Endif
INT023 = INTEGER029
Endif
:LABEL143
Case 3
Case 40
INT022 = 41
If (INTEGER029 >= 60) Then
INT023 = 60
Goto LABEL144
Endif
INT023 = INTEGER029
End Select
:LABEL144
DefColor
Cls
STRING070 = ReadLine(STRING018, 94)
For INTEGER012 = INT022 To INT023
If (INTEGER012 == 1) Then
Print STRING070, "1 ", TSTRING030(3), ":" + Mid(TSTRING062(1), 33, Len(TSTRING062(1)) - 30)
Else
If (INTEGER012 == INT022) Then
Goto LABEL145
Endif
Newline
Endif
:LABEL145
If (INTEGER012 <> 1) Print STRING070, Left(String(INTEGER012), 2) , TSTRING030(3) , ":" + Mid(TSTRING062(INTEGER012), 33, Len(TSTRING062(INTEGER012)) - 30)
Next
Return
:LABEL146
Print "@X07Checking access, please wait..."
If (BOOLEAN033) Then
FreshLine
Tokenize ReadLine(STRING032, 1)
If (GetToken() == "1") BOOLEAN001 = 1
If (GetToken() == "1") BOOLEAN002 = 1
If (GetToken() == "1") BOOLEAN003 = 1
If (GetToken() == "1") BOOLEAN004 = 1
If (GetToken() == "1") BOOLEAN005 = 1
If (GetToken() == "1") BOOLEAN008 = 1
PrintLn "@X07Previous access restored successfully"
FClose -1
Delete STRING032
Return
Endif
If (Upper(ReadLine(STRING015, 9)) == "NO") Then
Tokenize ReadLine(STRING015, 8)
If (CurSec() >= GetToken()) BOOLEAN001 = 1
If (CurSec() >= GetToken()) BOOLEAN002 = 1
If (CurSec() >= GetToken()) BOOLEAN003 = 1
If (CurSec() >= GetToken()) BOOLEAN004 = 1
If (CurSec() >= GetToken()) BOOLEAN005 = 1
If (CurSec() >= GetToken()) BOOLEAN008 = 1
PrintLn "@X0CDONE!"
Return
Endif
STRING021 = PPEPath() + "users.cfg"
STRING022 = Upper(ReadLine(STRING021, 1))
INTEGER012 = 1
While (STRING022 <> "") Do
If (STRING022 == Upper(U_Name())) Then
Tokenize ReadLine(STRING021, INTEGER012 + 1)
If (GetToken() == "YES") BOOLEAN001 = 1
If (GetToken() == "YES") BOOLEAN002 = 1
If (GetToken() == "YES") BOOLEAN003 = 1
If (GetToken() == "YES") BOOLEAN004 = 1
If (GetToken() == "YES") BOOLEAN005 = 1
If (GetToken() == "YES") BOOLEAN008 = 1
PrintLn "@X0CDONE!"
Return
Endif
Inc INTEGER012
Inc INTEGER012
STRING022 = Upper(ReadLine(STRING021, INTEGER012))
EndWhile
FreshLine
DispFile PPEPath() + "graph\noaxx", 0
Wait
End
Return
:LABEL147
FreshLine
BOOLEAN026 = 0
If (BOOLEAN014) Then
Print ReadLine(STRING018, 119)
Else
Print ReadLine(STRING018, 88)
Endif
Gosub LABEL068
If (INT010 == 2) Then
BOOLEAN026 = 1
Return
Endif
FreshLine
STRING016 = ""
STRING038 = ""
Gosub LABEL025
If (BOOLEAN030) Then
BOOLEAN026 = 1
Return
Endif
FClose -1
FAppend 1, STRING013, 1, 0
If (BOOLEAN014) Then
STRING021 = PPEPath() + "work\tblst"
INTEGER001 = 1
STRING022 = ReadLine(STRING021, INTEGER001)
While (STRING022 <> "") Do
FPutLn 1, Upper(STRING035) + "," + Upper(STRING022) + "," + String(INTEGER009) + "," + "FREE" + "," + "1"
Inc INTEGER001
STRING022 = ReadLine(STRING021, INTEGER001)
EndWhile
Else
FPutLn 1, Upper(STRING035) + "," + Upper(STRING039) + "," + String(INTEGER009) + "," + "FREE" + "," + "1"
Endif
FClose 1
Return
:LABEL148
FClose -1
Print "@X0DAdding files to batch, please wait..."
If (Exist(STRING034)) Goto LABEL149
FCreate 1, STRING034, 1, 0
FPutLn 1, Upper(U_Name())
Goto LABEL150
:LABEL149
FAppend 1, STRING034, 1, 0
:LABEL150
FOpen 2, PPEPath() + "work\tblst", 0, 0
FGet 2, STRING071
:LABEL151
If (Ferr(2)) Goto LABEL152
FPutLn 1, STRING071 + " " + String(INT020)
FGet 2, STRING071
Goto LABEL151
:LABEL152
FClose 2
FClose 1
PrintLn "@X0CDONE!"
Wait
Return
Return
:LABEL153
If (BOOLEAN008) Then
BOOLEAN009 = 0
FreshLine
Print "@X07Stay anonymous@X0C? "
Gosub LABEL069
If (INT010 == 1) Then
BOOLEAN009 = 0
Goto LABEL154
Endif
BOOLEAN009 = 1
:LABEL154
FreshLine
Endif
Return
:LABEL155
If (!Exist(PPEPath() + "nukerec.dat")) Return
FreshLine
Print "@X07Pending nuke recommendations found, view them now@X0C? "
Gosub LABEL068
If (INT010 == 1) Then
DefColor
Cls
StartDisp 2
FOpen 1, PPEPath() + "nukerec.dat", 0, 0
FreshLine
PrintLn "@X08****************************@X07*********************@X0F*************************"
While (1) Do
FGet 1, STRING038
If (Ferr(1)) Break
PrintLn "@X0C User: @X0F", STRING038
FGet 1, STRING038
If (Ferr(1)) Break
PrintLn "@X0CFile(s): @X07", STRING038
FGet 1, STRING038
If (Ferr(1)) Break
PrintLn "@X0CComment: @X09", STRING038
PrintLn "@X08****************************@X07*********************@X0F*************************"
If (Abort()) Then
ResetDisp
Break
Endif
EndWhile
FClose 1
StartDisp 1
Newline
Print "@X07Delete Recommendation file? @X0C"
Gosub LABEL068
If (INT010 == 1) Delete PPEPath() + "nukerec.dat"
FreshLine
Return
Else
FreshLine
Return
Endif
Return
:LABEL156
BOOLEAN010 = 0
STRING043 = STRING042 + ".idx"
BOOLEAN010 = 0
If (Exist(STRING043)) Then
BOOLEAN010 = 1
DATE001 = FileInf(STRING042, 2)
TIME001 = FileInf(STRING042, 3)
DATE002 = FileInf(STRING043, 2)
TIME002 = FileInf(STRING043, 3)
If (DATE001 == DATE002) Then
If (ToInteger(TIME001) > ToInteger(TIME002)) Then
BOOLEAN010 = 0
Endif
ElseIf (DATE001 > DATE002) Then
BOOLEAN010 = 0
Endif
Else
BOOLEAN010 = 0
Endif
Return
:LABEL157
If (BOOLEAN014) Then
FreshLine
FGet 4, INTEGER017
FGet 4, INTEGER018
FSeek 5, INTEGER017 - 32, 0
FGet 5, TSTRING012(1)
INTEGER012 = 2
While (1) Do
FGet 5, TSTRING012(INTEGER012)
If (Ferr(5)) Break
If ((Left(TSTRING012(INTEGER012), 1) <> " ") && (Left(TSTRING012(INTEGER012), 1) <> " ")) Break
If (INTEGER012 == 60) Break
Inc INTEGER012
EndWhile
If (INTEGER012 > 0) Then
INTEGER007 = INTEGER012 - 1
Goto LABEL158
Endif
INTEGER007 = 0
Endif
:LABEL158
If (BOOLEAN043) Then
FPutLn 1, Mid(TSTRING012(1), 33, Len(TSTRING012(1)) - 32)
BOOLEAN043 = 0
Else
FPut 1, Space(31) + "|"
FPutLn 1, Mid(TSTRING012(1), 33, Len(TSTRING012(1)) - 32)
Endif
For INTEGER012 = 2 To INTEGER007
FPutLn 1, TSTRING012(INTEGER012)
Next
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 14 End
; 14 Cls
; 15 ClrEol
; 23 Wait
; 743 Goto
; 726 Let
; 91 Print
; 109 PrintLn
; 501 If
; 21 DispFile
; 18 FCreate
; 20 FOpen
; 10 FAppend
; 61 FClose
; 25 FGet
; 1 FPut
; 49 FPutLn
; 4 ResetDisp
; 12 StartDisp
; 7 GetUser
; 20 DefColor
; 16 Delete
; 1 Log
; 23 InputStr
; 149 Gosub
; 149 Return
; 8 Delay
; 24 Inc
; 4 Dec
; 13 Newline
; 33 Tokenize
; 6 Shell
; 1 KbdStuff
; 1 Call
; 12 AnsiPos
; 15 Backup
; 1 Forward
; 119 FreshLine
; 2 Message
; 5 SaveScrn
; 5 RestScrn
; 5 Rename
; 1 Frewind
; 6 FSeek
; 6 FRead
; 1 FWrite
; 2 Redim
; 7 Copy
; 4 GetAltUser
; 2 FReAltUser
;
;
; ■ Functions used :
;
; 40 -
; 9 *
; 2 /
; 5 %
; 425 +
; 35 -
; 200 ==
; 39 <>
; 35 <
; 29 <=
; 19 >
; 63 >=
; 420 !
; 62 &&
; 42 ||
; 15 Len(
; 129 Upper()
; 11 Mid()
; 51 Left()
; 3 Right()
; 10 Space()
; 16 Ferr()
; 6 Chr()
; 5 InStr()
; 5 Abort()
; 2 LTrim()
; 4 RTrim()
; 1 Time()
; 19 U_Name()
; 1 U_Bdl()
; 12 U_Bul()
; 16 StripAtx()
; 1 Strip()
; 3 Inkey()
; 51 String()
; 10 Mask_Pwd()
; 9 Mask_Num()
; 2 Mask_File()
; 3 CurConf()
; 4 PCBDat()
; 98 PPEPath()
; 8 PcbNode()
; 233 ReadLine()
; 6 OnLocal()
; 6 CurSec()
; 80 GetToken()
; 33 Exist()
; 1 I2S()
; 1 S2I()
; 1 AnsiOn()
; 5 GetX()
; 9 GetY()
; 12 FileInf()
; 2 HelpPath()
; 1 TokCount()
; 8 U_RecNum()
; 1 ScrText()
; 88 ReplaceStr()
; 27 ToInteger()
; 11 Mixed()
; 1 IsNonStop()
; 1 PCBMac()
;
;------------------------------------------------------------------------------
;
; Analysis flags : RSCd
;
; R - Read user ■ 5
; User records are read, this may signify that someone wants to get
; various informations about a user (for example his password), but
; this may also be normal for a program accessing user records (for
; example a User Editor)
; ■ Search for : GETALTUSER
;
; S - Shell to DOS ■ 5
; This may be normal if the PPE need to execute an external command,
; but may be actually anything... nasty (formating HD, rebooting,...)
; or usefull (sorting, maintenance,...). Check!
; ■ Search for : SHELL
;
; C - Call child PPE ■ 3
; This is usually normal, but may be a tricky way to launch some
; sysop-only commands.
; ■ Search for : CALL
;
; d - Access PCBOARD.DAT ■ 2
; Program gets the full pathname to PCBOARD.DAT, this may be usefull
; for many PPE so they can find various informations on the system
; (system paths, max number of lines in messages, ...) but it may also
; be a way to gather vital informations.
; ■ Search for : PCBDAT()
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 24 For/Next
; 23 While/EndWhile
; 256 If/Then or If/Then/Else
; 14 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------