home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
M2000PWA.ZIP
/
MATRIX.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-04-11
|
32KB
|
1,583 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 2.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Boolean BOOLEAN001
Boolean BOOLEAN002
Boolean BOOLEAN003
Boolean BOOLEAN004
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer TINTEGER010(5)
Integer INTEGER011
Integer INTEGER012
Integer INTEGER013
Integer INTEGER014
Integer INTEGER015
Integer INTEGER016
Integer INTEGER017
Integer INTEGER018
Integer INTEGER019
Integer INTEGER020
Integer INTEGER021
Integer INTEGER022
String TSTRING001(20)
String TSTRING002(9,3)
String TSTRING003(5,4)
String TSTRING004(50,4)
String TSTRING005(6,3)
String TSTRING006(5,50)
String TSTRING007(7)
String TSTRING008(36)
String TSTRING009(28)
String TSTRING010(9)
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 TSTRING024(99)
String STRING025
String STRING026
String STRING027
String STRING028
String STRING029
String STRING030
String STRING031
String STRING032
String STRING033
String STRING034
String STRING035
String TSTRING036(67)
String STRING037
String STRING038
String STRING039
String STRING040
;------------------------------------------------------------------------------
TSTRING001(1) = PPEPath() + "MATRIX.CFG"
TSTRING001(2) = PPEPath() + "FORM.1"
TSTRING001(3) = PPEPath() + "FORM.2"
TSTRING001(4) = PPEPath() + "FORM.3"
TSTRING001(5) = PPEPath() + "FORM.4"
TSTRING001(6) = PPEPath() + "FORM.5"
TSTRING001(7) = PPEPath() + "CONFIG.1"
TSTRING001(8) = PPEPath() + "CONFIG.2"
TSTRING001(9) = PPEPath() + "CONFIG.3"
TSTRING001(10) = PPEPath() + "CONFIG.4"
TSTRING001(11) = PPEPath() + "CONFIG.5"
TSTRING001(12) = PPEPath() + "FORM.SCR"
TSTRING001(13) = PPEPath() + "COMMENT.TMP"
TSTRING001(14) = PPEPath() + "MATRIX.SCR"
TSTRING001(15) = PPEPath() + "TEXT.CFG"
TSTRING001(16) = PPEPath() + "LOGON.SCR"
TSTRING001(17) = PPEPath() + "NEWUSER.SCR"
TSTRING001(18) = PPEPath() + "BLACKLST.SCR"
TSTRING001(19) = PPEPath() + "MATRIX.TMP"
If (Exist(TSTRING001(1)) == 0) Then
PrintLn "@X07Configuration File Missing... (MATRIX.CFG)"
PrintLn "@X07Please report this to the Sysop..."
PrintLn
Print "@X0FWhat is your Full Name"
End
Endif
If (Exist(TSTRING001(14)) == 0) Then
PrintLn "@X07Matrix Display File Missing... (MATRIX.SCR)"
PrintLn "@X07Please report this to the Sysop..."
PrintLn
Print "@X0FWhat is your Full Name"
End
Endif
If (Exist(TSTRING001(15)) == 0) Then
PrintLn "@X07Text Configuration File Missing... (TEXT.CFG)"
PrintLn "@X07Please report this to the Sysop..."
PrintLn
Print "@X0FWhat is your Full Name"
End
Endif
RdUNet PcbNode()
WrUNet PcbNode(), "U", UN_Name(), UN_City(), "User is Logging in using Matrix 2000!", ""
FOpen 15, TSTRING001(15), 0, 0
For INTEGER016 = 1 To 36
FGet 15, TSTRING008(INTEGER016)
Next
FClose 15
FOpen 1, TSTRING001(1), 0, 0
FGet 1, STRING023
FGet 1, STRING022
For INTEGER016 = 1 To 6
For INTEGER017 = 1 To 3
FGet 1, TSTRING005(INTEGER016, INTEGER017)
Next
Next
For INTEGER016 = 1 To 7
FGet 1, TSTRING007(INTEGER016)
Next
For INTEGER016 = 1 To 11
FGet 1, TSTRING009(INTEGER016)
Next
For INTEGER016 = 1 To 7
For INTEGER017 = 1 To 3
FGet 1, TSTRING002(INTEGER016, INTEGER017)
Next
Next
FGet 1, TSTRING002(8, 1)
FGet 1, TSTRING002(8, 2)
FGet 1, TSTRING002(9, 1)
FGet 1, TSTRING002(9, 2)
FGet 1, TSTRING002(9, 3)
For INTEGER016 = 12 To 16
FGet 1, TSTRING009(INTEGER016)
Next
FGet 1, STRING021
FGet 1, STRING020
For INTEGER016 = 1 To 5
For INTEGER017 = 1 To 4
FGet 1, TSTRING003(INTEGER016, INTEGER017)
Next
Next
For INTEGER016 = 17 To 24
FGet 1, TSTRING009(INTEGER016)
Next
For INTEGER016 = 1 To 36
FGet 1, STRING013
Next
FGet 1, STRING028
FGet 1, TSTRING009(25)
FGet 1, TSTRING009(26)
FGet 1, TSTRING009(27)
FClose 1
FOpen 1, TSTRING001(1), 0, 0
For INTEGER016 = 1 To 140
FGet 1, STRING013
Next
FGet 1, STRING033
FGet 1, STRING034
FGet 1, STRING035
FGet 1, INTEGER007
FClose 1
INTEGER022 = ReadLine(PCBDat(), 265)
If (INTEGER022 > TSTRING009(12)) TSTRING009(12) = INTEGER022
Select Case (Upper(TSTRING007(2)))
Case "W"
STRING026 = "@X07"
STRING025 = "@X0F"
Case "B"
STRING026 = "@X01"
STRING025 = "@X09"
Case "G"
STRING026 = "@X02"
STRING025 = "@X0A"
Case "C"
STRING026 = "@X03"
STRING025 = "@X0B"
Case "R"
STRING026 = "@X04"
STRING025 = "@X0C"
Case "P"
STRING026 = "@X05"
STRING025 = "@X0D"
End Select
TSTRING036(1) = ""
TSTRING036(2) = ""
TSTRING036(3) = ""
TSTRING036(4) = ""
TSTRING036(5) = ""
TSTRING036(6) = ""
TSTRING036(7) = ""
TSTRING036(8) = ""
TSTRING036(9) = ""
TSTRING036(10) = ""
TSTRING036(11) = "a"
TSTRING036(12) = "q"
TSTRING036(13) = "z"
TSTRING036(14) = "s"
TSTRING036(15) = "w"
TSTRING036(16) = "x"
TSTRING036(17) = "c"
TSTRING036(18) = "e"
TSTRING036(19) = "d"
TSTRING036(20) = ""
TSTRING036(21) = "v"
TSTRING036(22) = "r"
TSTRING036(23) = "f"
TSTRING036(24) = "g"
TSTRING036(25) = "t"
TSTRING036(26) = "b"
TSTRING036(27) = "h"
TSTRING036(28) = "y"
TSTRING036(29) = "n"
TSTRING036(30) = ""
TSTRING036(31) = "j"
TSTRING036(32) = "u"
TSTRING036(33) = "m"
TSTRING036(34) = "k"
TSTRING036(35) = "i"
TSTRING036(36) = "l"
TSTRING036(37) = "p"
TSTRING036(38) = "o"
TSTRING036(39) = "L"
TSTRING036(40) = ""
TSTRING036(41) = "P"
TSTRING036(42) = "O"
TSTRING036(43) = "K"
TSTRING036(44) = "M"
TSTRING036(45) = "N"
TSTRING036(46) = "J"
TSTRING036(47) = "I"
TSTRING036(48) = "H"
TSTRING036(49) = "B"
TSTRING036(50) = ""
TSTRING036(51) = "U"
TSTRING036(52) = "G"
TSTRING036(53) = "Y"
TSTRING036(54) = "V"
TSTRING036(55) = "F"
TSTRING036(56) = "C"
TSTRING036(57) = "T"
TSTRING036(58) = "D"
TSTRING036(59) = "R"
TSTRING036(50) = ""
TSTRING036(61) = "X"
TSTRING036(62) = "S"
TSTRING036(63) = "E"
TSTRING036(64) = "W"
TSTRING036(65) = "Q"
TSTRING036(66) = "Z"
TSTRING036(67) = "A"
Gosub LABEL071
STRING030 = Upper(TSTRING009(5))
:LABEL001
If (BOOLEAN002) Goto LABEL007
BOOLEAN004 = 0
BOOLEAN002 = 0
Color 15
Cls
DispFile TSTRING001(14), 1
AnsiPos TSTRING005(1, 3), TSTRING005(1, 2)
Print STRING023, TSTRING005(1, 1)
AnsiPos TSTRING005(2, 3), TSTRING005(2, 2)
Print STRING023, TSTRING005(2, 1)
AnsiPos TSTRING005(3, 3), TSTRING005(3, 2)
Print STRING023, TSTRING005(3, 1)
AnsiPos TSTRING005(4, 3), TSTRING005(4, 2)
Print STRING023, TSTRING005(4, 1)
AnsiPos TSTRING005(5, 3), TSTRING005(5, 2)
Print STRING023, TSTRING005(5, 1)
AnsiPos TSTRING005(6, 3), TSTRING005(6, 2)
Print STRING023, TSTRING005(6, 1)
AnsiPos TSTRING005(1, 3), TSTRING005(1, 2)
Print STRING022, TSTRING005(1, 1)
INTEGER013 = 1
:LABEL002
If (BOOLEAN004) Goto LABEL006
STRING027 = Inkey()
If (STRING027 == " ") Then
INTEGER013 = INTEGER013 + 1
If (INTEGER013 == 7) Then
INTEGER013 = 1
AnsiPos TSTRING005(6, 3), TSTRING005(6, 2)
Print STRING023, TSTRING005(6, 1)
AnsiPos TSTRING005(1, 3), TSTRING005(1, 2)
Print STRING022, TSTRING005(1, 1)
Goto LABEL003
Endif
AnsiPos TSTRING005(INTEGER013 - 1, 3), TSTRING005(INTEGER013 - 1, 2)
Print STRING023, TSTRING005(INTEGER013 - 1, 1)
AnsiPos TSTRING005(INTEGER013, 3), TSTRING005(INTEGER013, 2)
Print STRING022, TSTRING005(INTEGER013, 1)
Endif
:LABEL003
If ((STRING027 == "UP") || (STRING027 == "8")) Then
If (INTEGER013 == 1) Then
Goto LABEL004
Endif
INTEGER013 = INTEGER013 - 1
AnsiPos TSTRING005(INTEGER013 + 1, 3), TSTRING005(INTEGER013 + 1, 2)
Print STRING023, TSTRING005(INTEGER013 + 1, 1)
AnsiPos TSTRING005(INTEGER013, 3), TSTRING005(INTEGER013, 2)
Print STRING022, TSTRING005(INTEGER013, 1)
Endif
:LABEL004
If ((STRING027 == "DOWN") || (STRING027 == "2")) Then
If (INTEGER013 == 6) Then
Goto LABEL005
Endif
INTEGER013 = INTEGER013 + 1
AnsiPos TSTRING005(INTEGER013 - 1, 3), TSTRING005(INTEGER013 - 1, 2)
Print STRING023, TSTRING005(INTEGER013 - 1, 1)
AnsiPos TSTRING005(INTEGER013, 3), TSTRING005(INTEGER013, 2)
Print STRING022, TSTRING005(INTEGER013, 1)
Endif
:LABEL005
If (STRING027 == Chr(13)) BOOLEAN004 = 1
Goto LABEL002
:LABEL006
Select Case (INTEGER013)
Case 1
Gosub LABEL048
Case 2
Gosub LABEL008
Case 3
Gosub LABEL064
Case 4
Gosub LABEL059
Case 5
Gosub LABEL052
Case 6
Gosub LABEL067
End Select
BOOLEAN002 = 0
BOOLEAN004 = 0
Goto LABEL001
:LABEL007
End
:LABEL008
Color 15
Cls
If (Left(TSTRING008(31), 1) == "%") Then
STRING014 = TSTRING008(31)
STRING013 = PPEPath() + Right(STRING014, Len(STRING014) - 1)
DispFile STRING013, 1
Else
PrintLn TSTRING008(31)
Endif
PrintLn
If (STRING028 == "1") Then
Goto LABEL009
Endif
AnsiPos 1, GetY()
ClrEol
Print TSTRING008(32)
STRING029 = ""
InputStr " _", STRING029, 15, 30, Mask_Ascii(), 1
If (Upper(STRING029) <> Upper(STRING028)) Return
:LABEL009
AdjTime TSTRING007(6)
Color 15
Cls
If (Left(TSTRING008(21), 1) == "%") Then
STRING014 = TSTRING008(21)
STRING013 = PPEPath() + Right(STRING014, Len(STRING014) - 1)
DispFile STRING013, 1
Else
PrintLn TSTRING008(21)
Endif
PrintLn
More
Color 15
Cls
DispFile TSTRING001(17), 1
If (TSTRING002(1, 3) > 27) TSTRING002(1, 3) = 25
If (TSTRING002(1, 3) < 20) TSTRING002(1, 3) = 25
If (TSTRING002(2, 3) > 13) TSTRING002(1, 3) = 13
If (TSTRING002(2, 3) < 10) TSTRING002(1, 3) = 13
TSTRING002(3, 3) = TSTRING002(2, 3)
If (TSTRING002(4, 3) > 25) TSTRING002(1, 3) = 25
If (TSTRING002(4, 3) < 20) TSTRING002(1, 3) = 25
If (TSTRING002(5, 3) > 14) TSTRING002(1, 3) = 13
If (TSTRING002(5, 3) < 11) TSTRING002(1, 3) = 13
If (TSTRING002(6, 3) > 14) TSTRING002(1, 3) = 13
If (TSTRING002(6, 3) < 11) TSTRING002(1, 3) = 13
If (TSTRING002(7, 3) > 31) TSTRING002(1, 3) = 14
If (TSTRING002(7, 3) < 20) TSTRING002(1, 3) = 14
If (TSTRING002(9, 3) > 50) TSTRING002(1, 3) = 40
If (TSTRING002(9, 3) < 10) TSTRING002(1, 3) = 40
BOOLEAN004 = 0
:LABEL010
If (BOOLEAN004) Goto LABEL011
INTEGER011 = INTEGER011 + 1
AnsiPos TSTRING002(1, 2), TSTRING002(1, 1)
InputStr "_", STRING016, 15, TSTRING002(1, 3), Mask_Alpha() + " ", 0
If (STRING016 <> "") Then
STRING016 = Upper(STRING016)
If (U_RecNum(STRING016) == -1) Then
BOOLEAN004 = 1
Else
AnsiPos 1, TSTRING009(14)
Print TSTRING008(33)
Delay 18
AnsiPos 1, TSTRING009(14)
Print " "
AnsiPos TSTRING002(1, 2), TSTRING002(1, 1)
For INTEGER016 = 1 To Len(STRING016)
Print " "
Next
BOOLEAN004 = 0
STRING016 = ""
Endif
ElseIf (INTEGER011 == TSTRING009(13)) Then
AnsiPos 1, TSTRING009(14)
PrintLn TSTRING008(24)
PrintLn
KbdStuff TSTRING009(15) + Chr(13)
Hangup
DtrOff
Endif
Goto LABEL010
:LABEL011
If (Exist(TSTRING001(18)) == 0) Then
Goto LABEL012
Endif
FOpen 1, TSTRING001(18), 2, 0
For INTEGER016 = 1 To 10000
FGet 1, STRING013
If (Upper(STRING016) == Upper(STRING013)) Then
Color 15
Cls
If (Left(TSTRING008(22), 1) == "%") Then
STRING014 = TSTRING008(22)
STRING013 = PPEPath() + Right(STRING014, Len(STRING014) - 1)
DispFile STRING013, 1
KbdStuff TSTRING009(15) + Chr(13)
Hangup
DtrOff
End
Continue
Endif
PrintLn TSTRING008(22)
KbdStuff TSTRING009(15) + Chr(13)
Hangup
DtrOff
End
Endif
Next
FClose 1
:LABEL012
BOOLEAN004 = 0
BOOLEAN002 = 0
INTEGER011 = 0
:LABEL013
If (BOOLEAN004) Goto LABEL016
:LABEL014
If (BOOLEAN002) Goto LABEL015
INTEGER011 = INTEGER011 + 1
AnsiPos TSTRING002(3, 2), TSTRING002(3, 1)
For INTEGER016 = 1 To TSTRING002(2, 3)
Print " "
Next
AnsiPos TSTRING002(2, 2), TSTRING002(2, 1)
For INTEGER016 = 1 To TSTRING002(2, 3)
Print " "
Next
AnsiPos TSTRING002(2, 2), TSTRING002(2, 1)
InputStr "_", TSTRING010(1), 15, TSTRING002(2, 3), Mask_Ascii(), 1
If (Len(TSTRING010(2)) > 3) BOOLEAN002 = 1
If (TSTRING010(1) <> "") Then
If (Len(TSTRING010(1)) >= TSTRING009(12)) Then
BOOLEAN002 = 1
Endif
If (Len(TSTRING010(1)) < TSTRING009(12)) Then
If (INTEGER011 == TSTRING009(13)) Then
AnsiPos 1, TSTRING009(14)
PrintLn TSTRING008(24)
PrintLn
KbdStuff TSTRING009(15) + Chr(13)
Hangup
DtrOff
Endif
AnsiPos 1, TSTRING009(14)
Print TSTRING008(23)
Delay 18
AnsiPos 1, TSTRING009(14)
Print " "
Endif
Endif
Goto LABEL014
:LABEL015
BOOLEAN002 = 0
AnsiPos TSTRING002(3, 2), TSTRING002(3, 1)
For INTEGER016 = 1 To TSTRING002(3, 3)
Print " "
Next
AnsiPos TSTRING002(3, 2), TSTRING002(3, 1)
InputStr "_", TSTRING010(2), 15, TSTRING002(2, 3), Mask_Ascii(), 1
If (Upper(TSTRING010(1)) == Upper(TSTRING010(2))) BOOLEAN004 = 1
Goto LABEL013
:LABEL016
BOOLEAN004 = 0
INTEGER011 = 0
:LABEL017
If (BOOLEAN004) Goto LABEL018
INTEGER011 = INTEGER011 + 1
AnsiPos TSTRING002(4, 2), TSTRING002(4, 1)
InputStr "_", TSTRING010(4), 15, TSTRING002(4, 3), Mask_Alpha() + " ,.-/", 0
If (TSTRING010(4) <> "") Then
BOOLEAN004 = 1
ElseIf (INTEGER011 == TSTRING009(13)) Then
AnsiPos 1, TSTRING009(14)
PrintLn TSTRING008(24)
PrintLn
KbdStuff TSTRING009(15) + Chr(13)
Hangup
DtrOff
Endif
Goto LABEL017
:LABEL018
For INTEGER016 = 5 To 6
BOOLEAN004 = 0
INTEGER011 = 0
:LABEL019
If (BOOLEAN004) Continue
INTEGER011 = INTEGER011 + 1
AnsiPos TSTRING002(INTEGER016, 2), TSTRING002(INTEGER016, 1)
InputStr "_", TSTRING010(INTEGER016), 15, TSTRING002(INTEGER016, 3), Mask_Num() + "-", 0
If (TSTRING010(INTEGER016) <> "") Then
BOOLEAN004 = 1
ElseIf (INTEGER011 == TSTRING009(13)) Then
AnsiPos 1, TSTRING009(14)
PrintLn TSTRING008(24)
PrintLn
KbdStuff TSTRING009(15) + Chr(13)
Hangup
DtrOff
Endif
Goto LABEL019
Next
BOOLEAN004 = 0
INTEGER011 = 0
:LABEL020
If (BOOLEAN004) Goto LABEL021
INTEGER011 = INTEGER011 + 1
AnsiPos TSTRING002(7, 2), TSTRING002(7, 1)
InputStr "_", TSTRING010(7), 15, TSTRING002(7, 3), Mask_Ascii(), 0
If (TSTRING010(7) <> "") Then
BOOLEAN004 = 1
ElseIf (INTEGER011 == TSTRING009(13)) Then
AnsiPos 1, TSTRING009(14)
PrintLn TSTRING008(24)
PrintLn
KbdStuff TSTRING009(15) + Chr(13)
Hangup
DtrOff
Endif
Goto LABEL020
:LABEL021
AnsiPos TSTRING002(8, 2), TSTRING002(8, 1)
BOOLEAN004 = 0
:LABEL022
If (BOOLEAN004) Goto LABEL023
InputStr "_", TSTRING010(8), 15, 1, "YNyn", 16384
If (TSTRING010(8) <> "") BOOLEAN004 = 1
Goto LABEL022
:LABEL023
BOOLEAN004 = 0
INTEGER011 = 0
:LABEL024
If (BOOLEAN004) Goto LABEL025
INTEGER011 = INTEGER011 + 1
AnsiPos TSTRING002(9, 2), TSTRING002(9, 1)
InputStr "_", TSTRING010(9), 15, TSTRING002(9, 3), Mask_Ascii(), 0
If (TSTRING010(9) <> "") Then
BOOLEAN004 = 1
ElseIf (INTEGER011 == TSTRING009(13)) Then
AnsiPos 1, TSTRING009(14)
PrintLn TSTRING008(24)
PrintLn
KbdStuff TSTRING009(15) + Chr(13)
Hangup
DtrOff
Endif
Goto LABEL024
:LABEL025
AnsiPos 1, TSTRING009(14)
More
If (TSTRING009(16) == 1) Then
Color 15
Cls
STRING017 = ""
For INTEGER016 = 1 To 99
TSTRING024(INTEGER016) = ""
Next
PrintLn
PrintLn TSTRING008(2), " @X0F", TSTRING007(5)
PrintLn TSTRING008(3), " @X0F", STRING016
BOOLEAN004 = 0
INTEGER015 = 0
:LABEL026
If (BOOLEAN004) Goto LABEL028
InputStr TSTRING008(4) + " _", STRING017, 7, 30, Mask_Ascii(), 8
If (STRING017 == "") Then
BOOLEAN004 = 0
INTEGER015 = INTEGER015 + 1
STRING017 = ""
AnsiPos 1, GetY()
ClrEol
Goto LABEL027
Endif
BOOLEAN004 = 1
:LABEL027
Goto LABEL026
:LABEL028
FreshLine
PrintLn
PrintLn STRING026, " ┌───────────────────", STRING025, " ──────── ──── ─ · · ─ ──── ────────", STRING026, " ───────────────────┐"
TSTRING007(1) = RTrim(TSTRING007(1), " ")
If (TSTRING007(1) > 9) Then
PrintLn STRING026, " │ @X0F· @X07Enter Your Message Now @X0F· @X07Maximum ", TSTRING007(1), " Lines @X0F· @X07 ", STRING026, "│"
Goto LABEL029
Endif
PrintLn STRING026, " │ @X0F· @X07Enter Your Message Now @X0F· @X07Maximum ", TSTRING007(1), " Lines @X0F· @X07 ", STRING026, "│"
:LABEL029
PrintLn STRING026, " │ @X0F· @X07(@X0F/S@X07) to Save Message @X0F· @X07(@X0F/A@X07) to Abort Message @X0F· ", STRING026, "│"
PrintLn STRING026, " └───────────────────", STRING025, " ──────── ──── ─ · · ─ ──── ────────", STRING026, " ───────────────────┘"
PrintLn
INTEGER012 = 0
BOOLEAN004 = 0
For INTEGER016 = 1 To 99
TSTRING024(INTEGER016) = ""
Next
:LABEL030
If (BOOLEAN004) Goto LABEL031
INTEGER012 = INTEGER012 + 1
InputStr STRING025 + "» _", TSTRING024(INTEGER012), 7, 76, Mask_Ascii(), 512
FreshLine
If (((INTEGER012 == TSTRING007(1)) || (Upper(TSTRING024(INTEGER012)) == "/S")) || (Upper(TSTRING024(INTEGER012)) == "/A")) Then
If (Upper(TSTRING024(INTEGER012)) == "/A") Then
FreshLine
PrintLn
PrintLn TSTRING008(5)
Delay 18
BOOLEAN004 = 1
Endif
If (Upper(TSTRING024(INTEGER012)) == "/S") Then
FreshLine
PrintLn
PrintLn TSTRING008(6)
Delay 18
INTEGER012 = INTEGER012 - 1
FCreate 1, TSTRING001(13), 1, 0
FOpen 1, TSTRING001(13), 2, 0
If (INTEGER008 == -1) Then
FPutLn 1, "This PPE is Unregistered! Please Register! Only $10"
FPutLn 1, "─────────────────────────────────────────────────────"
FPutLn 1, ""
Endif
For INTEGER017 = 1 To INTEGER012
FPutLn 1, TSTRING024(INTEGER017)
Next
FClose 1
Message TSTRING007(4), TSTRING007(5), STRING016, STRING017, "R", "@X0FComment Send VIA @X09New User Message", 0, 0, TSTRING001(13)
INTEGER018 = INTEGER018 + 1
Delete TSTRING001(13)
BOOLEAN004 = 1
Endif
Endif
Goto LABEL030
Endif
:LABEL031
If (TSTRING009(17) == 1) Then
KeyFlush
:LABEL032
If (BOOLEAN002) Goto LABEL042
BOOLEAN004 = 0
BOOLEAN002 = 0
Color 15
Cls
DispFile TSTRING001(12), 1
AnsiPos TSTRING003(1, 3), TSTRING003(1, 2)
Print STRING021, TSTRING003(1, 1)
AnsiPos TSTRING003(2, 3), TSTRING003(2, 2)
Print STRING021, TSTRING003(2, 1)
AnsiPos TSTRING003(3, 3), TSTRING003(3, 2)
Print STRING021, TSTRING003(3, 1)
AnsiPos TSTRING003(4, 3), TSTRING003(4, 2)
Print STRING021, TSTRING003(4, 1)
AnsiPos TSTRING003(5, 3), TSTRING003(5, 2)
Print STRING021, TSTRING003(5, 1)
AnsiPos TSTRING003(1, 3), TSTRING003(1, 2)
Print STRING020, TSTRING003(1, 1)
INTEGER013 = 1
:LABEL033
If (BOOLEAN004) Goto LABEL038
STRING027 = Inkey()
If (STRING027 == " ") Then
INTEGER013 = INTEGER013 + 1
If (INTEGER013 == 6) Then
INTEGER013 = 1
AnsiPos TSTRING003(5, 3), TSTRING003(5, 2)
Print STRING021, TSTRING003(5, 1)
AnsiPos TSTRING003(1, 3), TSTRING003(1, 2)
Print STRING020, TSTRING003(1, 1)
Goto LABEL034
Endif
AnsiPos TSTRING003(INTEGER013 - 1, 3), TSTRING003(INTEGER013 - 1, 2)
Print STRING021, TSTRING003(INTEGER013 - 1, 1)
AnsiPos TSTRING003(INTEGER013, 3), TSTRING003(INTEGER013, 2)
Print STRING020, TSTRING003(INTEGER013, 1)
Endif
:LABEL034
If ((STRING027 == "UP") || (STRING027 == "8")) Then
If (INTEGER013 == 1) Then
Goto LABEL035
Endif
INTEGER013 = INTEGER013 - 1
AnsiPos TSTRING003(INTEGER013 + 1, 3), TSTRING003(INTEGER013 + 1, 2)
Print STRING021, TSTRING003(INTEGER013 + 1, 1)
AnsiPos TSTRING003(INTEGER013, 3), TSTRING003(INTEGER013, 2)
Print STRING020, TSTRING003(INTEGER013, 1)
Endif
:LABEL035
If ((STRING027 == "DOWN") || (STRING027 == "2")) Then
If (INTEGER013 == 5) Then
Goto LABEL036
Endif
INTEGER013 = INTEGER013 + 1
AnsiPos TSTRING003(INTEGER013 - 1, 3), TSTRING003(INTEGER013 - 1, 2)
Print STRING021, TSTRING003(INTEGER013 - 1, 1)
AnsiPos TSTRING003(INTEGER013, 3), TSTRING003(INTEGER013, 2)
Print STRING020, TSTRING003(INTEGER013, 1)
Endif
:LABEL036
If ((STRING027 == Chr(13)) && (TINTEGER010(INTEGER013) <> 1)) Then
If (TSTRING003(INTEGER013, 4) == 1) BOOLEAN004 = 1
Goto LABEL037
Endif
BOOLEAN004 = 0
:LABEL037
If ((STRING027 == Chr(27)) || (Upper(STRING027) == "Q")) Then
BOOLEAN004 = 1
BOOLEAN002 = 1
BOOLEAN001 = 1
Endif
Goto LABEL033
:LABEL038
If (BOOLEAN002 == 0) Then
Color 15
Cls
Color 7
DispFile TSTRING001(INTEGER013 + 1), 1
FOpen 10, TSTRING001(INTEGER013 + 6), 0, 0
FGet 10, INTEGER014
If (INTEGER014 > 50) INTEGER014 = 50
For INTEGER016 = 1 To INTEGER014
For INTEGER017 = 1 To 4
FGet 10, TSTRING004(INTEGER016, INTEGER017)
Next
Next
FClose 10
For INTEGER016 = 1 To INTEGER014
BOOLEAN003 = 0
:LABEL039
If (BOOLEAN003) Continue
AnsiPos TSTRING004(INTEGER016, 4), TSTRING004(INTEGER016, 3)
If (TSTRING004(INTEGER016, 1) == 1) Then
InputStr "_", TSTRING006(INTEGER013, INTEGER016), 15, TSTRING004(INTEGER016, 2), Mask_Ascii(), 0
Goto LABEL040
Endif
If (TSTRING004(INTEGER016, 1) == 2) Then
InputStr "_", TSTRING006(INTEGER013, INTEGER016), 15, TSTRING004(INTEGER016, 2), Mask_Num() + "-", 0
Goto LABEL040
Endif
If (TSTRING004(INTEGER016, 1) == 3) Then
InputStr "_", TSTRING006(INTEGER013, INTEGER016), 15, TSTRING004(INTEGER016, 2), Mask_Alpha() + " ", 0
Goto LABEL040
Endif
If (TSTRING004(INTEGER016, 1) == 4) Then
InputStr "_", TSTRING006(INTEGER013, INTEGER016), 15, TSTRING004(INTEGER016, 2), Mask_AlNum() + " ", 0
Goto LABEL040
Endif
If (Left(TSTRING004(INTEGER016, 1), 1) == 0) Then
InputStr "_", TSTRING006(INTEGER013, INTEGER016), 15, TSTRING004(INTEGER016, 2), TSTRING004(INTEGER016, 1), 0
Endif
:LABEL040
If (TSTRING006(INTEGER013, INTEGER016) == "") Then
AnsiPos TSTRING004(INTEGER016, 4), TSTRING004(INTEGER016, 3)
For INTEGER017 = 1 To TSTRING004(INTEGER016, 2)
Print " "
Next
BOOLEAN003 = 0
Goto LABEL041
Endif
BOOLEAN003 = 1
:LABEL041
Goto LABEL039
Next
STRING013 = ""
TINTEGER010(INTEGER013) = 1
If ((TINTEGER010(INTEGER013) == 1) && Len((TSTRING003(INTEGER013, 1) > 5))) Then
For INTEGER016 = 1 To Len(TSTRING003(INTEGER013, 1))
If (INTEGER016 == Len(TSTRING003(INTEGER013, 1)) - 1) Then
STRING013 = STRING013 + "√"
Continue
Endif
STRING013 = STRING013 + Mid(TSTRING003(INTEGER013, 1), INTEGER016, 1)
Next
Endif
TSTRING003(INTEGER013, 1) = STRING013
Endif
Goto LABEL032
:LABEL042
If (BOOLEAN001 == 1) Then
STRING032 = Upper(STRING016)
STRING013 = Replace(STRING032, " ", "_")
INTEGER021 = INTEGER021 + 1
STRING011 = PPEPath() + "NUV\" + STRING013 + ".NUV"
STRING012 = PPEPath() + "NUV\" + STRING013 + ".NFO"
FCreate 10, STRING011, 1, 0
FCreate 10, STRING012, 1, 0
FOpen 10, STRING011, 1, 0
FPutLn 10, Upper(STRING016)
FPutLn 10, "0"
FPutLn 10, "0"
FPutLn 10, "0"
FPutLn 10, "0"
FPutLn 10, "0"
FClose 10
FOpen 10, STRING012, 1, 0
FPutLn 10, TINTEGER010(1)
FPutLn 10, TINTEGER010(2)
FPutLn 10, TINTEGER010(3)
FPutLn 10, TINTEGER010(4)
FPutLn 10, TINTEGER010(5)
FPutLn 10, "000-111-000"
If (TINTEGER010(1) == 1) Then
INTEGER009 = ReadLine(TSTRING001(7), 1)
FPutLn 10, INTEGER009
For INTEGER016 = 1 To INTEGER009
FPutLn 10, TSTRING006(1, INTEGER016)
Next
Goto LABEL043
Endif
FPutLn 10, "0"
:LABEL043
FPutLn 10, "000-222-000"
If (TINTEGER010(2) == 1) Then
INTEGER009 = ReadLine(TSTRING001(8), 1)
FPutLn 10, INTEGER009
For INTEGER016 = 1 To INTEGER009
FPutLn 1, TSTRING006(2, INTEGER016)
Next
Goto LABEL044
Endif
FPutLn 10, "0"
:LABEL044
FPutLn 10, "000-333-000"
If (TINTEGER010(3) == 1) Then
INTEGER009 = ReadLine(TSTRING001(9), 1)
FPutLn 10, INTEGER009
For INTEGER016 = 1 To INTEGER009
FPutLn 10, TSTRING006(3, INTEGER016)
Next
Goto LABEL045
Endif
FPutLn 10, "0"
:LABEL045
FPutLn 10, "000-444-000"
If (TINTEGER010(4) == 1) Then
INTEGER009 = ReadLine(TSTRING001(10), 1)
FPutLn 10, INTEGER009
For INTEGER016 = 1 To INTEGER009
FPutLn 10, TSTRING006(4, INTEGER016)
Next
Goto LABEL046
Endif
FPutLn 10, "0"
:LABEL046
FPutLn 10, "000-555-000"
If (TINTEGER010(5) == 1) Then
INTEGER009 = ReadLine(TSTRING001(11), 1)
FPutLn 10, INTEGER009
For INTEGER016 = 1 To INTEGER009
FPutLn 10, TSTRING006(5, INTEGER016)
Next
Goto LABEL047
Endif
FPutLn 10, "0"
:LABEL047
FPutLn 10, "END"
FClose 10
Endif
Endif
Color 15
Cls
PrintLn
PrintLn TSTRING008(29)
PrintLn
More
Color 15
Cls
If (Exist(TSTRING001(19)) == 0) Then
FCreate 1, TSTRING001(19), 1, 0
FOpen 1, TSTRING001(19), 2, 0
FPutLn 1, TSTRING009(15)
FPutLn 1, TSTRING008(27)
FPutLn 1, TSTRING010(9)
FClose 1
Else
Delete TSTRING001(19)
FCreate 1, TSTRING001(19), 1, 0
FOpen 1, TSTRING001(19), 2, 0
FPutLn 1, TSTRING009(15)
FPutLn 1, TSTRING008(27)
FPutLn 1, TSTRING010(9)
FClose 1
Endif
INTEGER020 = 0
For INTEGER016 = 1 To Len(STRING016)
If (Mid(STRING016, INTEGER016, 1) == " ") INTEGER020 = 1
Next
If (INTEGER020 == 1) Then
KbdStuff STRING016 + Chr(13)
Else
KbdStuff STRING016 + Chr(13)
KbdStuff Chr(13)
Endif
KbdStuff Chr(13)
KbdStuff Chr(13)
For INTEGER016 = 1 To 2
KbdStuff TSTRING010(INTEGER016) + Chr(13)
Next
For INTEGER016 = 4 To 8
KbdStuff TSTRING010(INTEGER016) + Chr(13)
Next
If (Psa(1)) Then
KbdStuff Chr(13)
Endif
If (Psa(3)) Then
KbdStuff Chr(13)
KbdStuff Chr(13)
KbdStuff Chr(13)
KbdStuff Chr(13)
KbdStuff Chr(13)
KbdStuff Chr(13)
Endif
If (Psa(4)) Then
KbdStuff "Unknown" + Chr(13)
Endif
KbdStuff "N" + Chr(13)
End
Return
:LABEL048
Color 15
Cls
If (Left(TSTRING008(17), 1) == "%") Then
INTEGER016 = 0
STRING014 = TSTRING008(17)
STRING013 = PPEPath() + Right(STRING014, Len(STRING014) - 1)
DispFile STRING013, 1
Else
PrintLn TSTRING008(17)
Endif
PrintLn
If (STRING030 == "0") Then
Goto LABEL049
Endif
AnsiPos 1, GetY()
ClrEol
Print TSTRING008(18)
STRING031 = ""
InputStr " _", STRING031, 15, 30, Mask_Ascii(), 1
If (Upper(STRING031) <> Upper(STRING030)) Return
:LABEL049
DispFile PPEPath() + TSTRING008(14), 1
DispFile PPEPath() + TSTRING008(15), 1
DispFile PPEPath() + TSTRING008(16), 1
BOOLEAN004 = 0
Color 15
Cls
DispFile TSTRING001(16), 1
AnsiPos TSTRING009(9), TSTRING009(8)
STRING016 = ""
STRING019 = ""
InputStr "_", STRING016, 15, TSTRING002(1, 3), Mask_Ascii(), 0
STRING019 = Upper(STRING016)
If (U_RecNum(STRING019) <> -1) Then
GetAltUser U_RecNum(STRING019)
INTEGER011 = 0
:LABEL050
If (BOOLEAN004) Goto LABEL051
INTEGER011 = INTEGER011 + 1
STRING015 = ""
AnsiPos TSTRING009(11), TSTRING009(10)
InputStr "_", STRING015, 15, TSTRING002(2, 3), Mask_Ascii(), 1
If (Upper(STRING015) == Upper(U_Pwd)) Then
BOOLEAN004 = 1
Else
If (INTEGER011 == TSTRING009(13)) Then
AnsiPos 1, TSTRING009(25)
Print TSTRING008(20)
Delay 18
KbdStuff TSTRING009(15) + Chr(13)
Hangup
DtrOff
End
Endif
AnsiPos 1, TSTRING009(25)
Print TSTRING008(19)
Delay 18
AnsiPos 1, TSTRING009(25)
Print " "
AnsiPos TSTRING009(11), TSTRING009(10)
For INTEGER016 = 1 To Len(STRING015)
Print " "
Next
Endif
Goto LABEL050
:LABEL051
Else
AnsiPos 1, TSTRING009(25)
Print TSTRING008(34)
Delay 18
AnsiPos 1, TSTRING009(25)
Print " "
Return
Endif
If (BOOLEAN004 == 0) Then
Return
Else
INTEGER020 = 0
For INTEGER016 = 1 To Len(STRING016)
If (Mid(STRING016, INTEGER016, 1) == " ") INTEGER020 = 1
Next
If (INTEGER020 == 1) Then
KbdStuff STRING016 + Chr(13)
KbdStuff STRING015 + Chr(13)
Else
KbdStuff STRING016 + Chr(13)
KbdStuff Chr(13)
KbdStuff STRING015 + Chr(13)
Endif
End
Endif
:LABEL052
If (INTEGER018 == TSTRING007(7)) Then
AnsiPos 1, TSTRING009(14)
Print TSTRING008(25)
Delay 18
AnsiPos 1, TSTRING009(14)
Print " "
Return
Else
Color 15
Cls
PrintLn
If (Left(TSTRING008(1), 1) == "%") Then
STRING014 = TSTRING008(1)
STRING013 = PPEPath() + Right(STRING014, Len(STRING014) - 1)
DispFile STRING013, 1
Else
PrintLn TSTRING008(1)
Endif
PrintLn
PrintLn TSTRING008(2), " @X0F", TSTRING007(5)
BOOLEAN004 = 0
INTEGER015 = 0
STRING016 = ""
:LABEL053
If (BOOLEAN004) Goto LABEL054
InputStr TSTRING008(3) + " _", STRING016, 7, 30, Mask_Ascii(), 8
If (TSTRING009(27) == "1") Then
If (U_RecNum(STRING016) == -1) Then
BOOLEAN004 = 0
INTEGER015 = INTEGER015 + 1
STRING016 = ""
AnsiPos 1, GetY()
ClrEol
Else
BOOLEAN004 = 1
Endif
If (INTEGER015 == 3) Return
ElseIf (STRING016 <> "") Then
BOOLEAN004 = 1
Else
AnsiPos 1, GetY()
ClrEol
INTEGER015 = INTEGER015 + 1
Endif
If (INTEGER015 == 3) Return
Goto LABEL053
:LABEL054
If (TSTRING007(3) == 1) Then
FreshLine
BOOLEAN004 = 0
INTEGER015 = 0
:LABEL055
If (BOOLEAN004) Goto LABEL056
STRING017 = ""
InputStr TSTRING008(4) + " _", STRING017, 7, 30, Mask_Ascii(), 8
If (STRING017 == "") Then
BOOLEAN004 = 0
INTEGER015 = INTEGER015 + 1
STRING017 = ""
AnsiPos 1, GetY()
ClrEol
Else
BOOLEAN004 = 1
Endif
If (INTEGER015 == 3) Return
Goto LABEL055
:LABEL056
Else
STRING017 = TSTRING007(3)
Endif
FreshLine
PrintLn
PrintLn STRING026, " ┌───────────────────", STRING025, " ──────── ──── ─ · · ─ ──── ────────", STRING026, " ───────────────────┐"
TSTRING007(1) = RTrim(TSTRING007(1), " ")
If (TSTRING007(1) > 9) Then
PrintLn STRING026, " │ @X0F· @X07Enter Your Message Now @X0F· @X07Maximum ", TSTRING007(1), " Lines @X0F· @X07 ", STRING026, "│"
Else
PrintLn STRING026, " │ @X0F· @X07Enter Your Message Now @X0F· @X07Maximum ", TSTRING007(1), " Lines @X0F· @X07 ", STRING026, "│"
Endif
PrintLn STRING026, " │ @X0F· @X07(@X0F/S@X07) to Save Message @X0F· @X07(@X0F/A@X07) to Abort Message @X0F· ", STRING026, "│"
PrintLn STRING026, " └───────────────────", STRING025, " ──────── ──── ─ · · ─ ──── ────────", STRING026, " ───────────────────┘"
PrintLn
INTEGER012 = 0
BOOLEAN004 = 0
For INTEGER016 = 1 To 99
TSTRING024(INTEGER016) = ""
Next
:LABEL057
If (BOOLEAN004) Goto LABEL058
INTEGER012 = INTEGER012 + 1
InputStr STRING025 + "» _", TSTRING024(INTEGER012), 7, 76, Mask_Ascii(), 512
FreshLine
If (((INTEGER012 == TSTRING007(1)) || (Upper(TSTRING024(INTEGER012)) == "/S")) || (Upper(TSTRING024(INTEGER012)) == "/A")) Then
If (Upper(TSTRING024(INTEGER012)) == "/A") Then
FreshLine
PrintLn
PrintLn TSTRING008(5)
Delay 18
Return
Endif
If (Upper(TSTRING024(INTEGER012)) == "/S") Then
FreshLine
PrintLn
PrintLn TSTRING008(6)
Delay 18
INTEGER012 = INTEGER012 - 1
FCreate 1, TSTRING001(13), 1, 0
FOpen 1, TSTRING001(13), 2, 0
If (INTEGER008 == -1) Then
FPutLn 1, "This PPE is Unregistered! Please Register! Only $10"
FPutLn 1, "─────────────────────────────────────────────────────"
FPutLn 1, ""
Endif
For INTEGER017 = 1 To INTEGER012
FPutLn 1, TSTRING024(INTEGER017)
Next
FClose 1
Message TSTRING007(4), TSTRING007(5), STRING016, STRING017, "R", "@X0FComment Send VIA @X09Matrix Feedback", 0, 0, TSTRING001(13)
INTEGER018 = INTEGER018 + 1
Delete TSTRING001(13)
Return
Endif
Endif
Goto LABEL057
:LABEL058
AdjTime TSTRING009(6)
Return
Endif
:LABEL059
If (INTEGER019 == TSTRING009(1)) Then
AnsiPos 1, TSTRING009(14)
Print TSTRING008(25)
Delay 18
AnsiPos 1, TSTRING009(14)
Print " "
Return
Else
Color 15
Cls
If (Left(TSTRING008(7), 1) == "%") Then
STRING014 = TSTRING008(7)
STRING013 = PPEPath() + Right(STRING014, Len(STRING014) - 1)
DispFile STRING013, 1
PrintLn
Else
PrintLn TSTRING008(7)
Endif
PrintLn
BOOLEAN004 = 0
INTEGER015 = 0
STRING016 = ""
:LABEL060
If (BOOLEAN004) Goto LABEL061
InputStr TSTRING008(9) + " _", STRING016, 7, 30, Mask_Ascii(), 8
If (TSTRING009(27) == "1") Then
If (U_RecNum(STRING016) == -1) Then
BOOLEAN004 = 0
INTEGER015 = INTEGER015 + 1
STRING016 = ""
AnsiPos 1, GetY()
ClrEol
Else
BOOLEAN004 = 1
Endif
ElseIf (STRING016 <> "") Then
BOOLEAN004 = 1
Else
AnsiPos 1, GetY()
ClrEol
INTEGER015 = INTEGER015 + 1
Endif
If (INTEGER015 == 3) Return
Goto LABEL060
:LABEL061
FreshLine
BOOLEAN004 = 0
INTEGER015 = 0
:LABEL062
If (BOOLEAN004) Goto LABEL063
InputStr TSTRING008(8) + " _", STRING018, 7, 30, Mask_Ascii(), 8
If (STRING018 == "") Then
BOOLEAN004 = 0
INTEGER015 = INTEGER015 + 1
STRING018 = ""
AnsiPos 1, GetY()
ClrEol
Else
BOOLEAN004 = 1
Endif
If (INTEGER015 == 3) Return
Goto LABEL062
:LABEL063
FreshLine
PrintLn
SPrintLn TSTRING008(28)
SPrintLn
Print TSTRING008(10)
INTEGER019 = INTEGER019 + 1
For INTEGER016 = 1 To TSTRING009(2)
Print "@BEEP@" + TSTRING008(11)
Delay 18
If (KInkey() == " ") Then
Chat
Return
Endif
Next
PrintLn
PrintLn
PrintLn TSTRING008(12)
Delay 18
Return
Endif
:LABEL064
BOOLEAN004 = 0
Color 15
Cls
DispFile TSTRING001(16), 1
AnsiPos TSTRING009(9), TSTRING009(8)
STRING016 = ""
STRING019 = ""
InputStr "_", STRING016, 15, TSTRING002(1, 3), Mask_Ascii(), 0
STRING019 = Upper(STRING016)
If (U_RecNum(STRING019) <> -1) Then
GetAltUser U_RecNum(STRING019)
INTEGER011 = 0
:LABEL065
If (BOOLEAN004) Goto LABEL066
INTEGER011 = INTEGER011 + 1
STRING015 = ""
AnsiPos TSTRING009(11), TSTRING009(10)
InputStr "_", STRING015, 15, TSTRING002(2, 3), Mask_Ascii(), 1
If (Upper(STRING015) == Upper(U_Pwd)) Then
BOOLEAN004 = 1
Else
If (INTEGER011 == TSTRING009(13)) Then
AnsiPos 1, TSTRING009(25)
Print TSTRING008(20)
Delay 18
KbdStuff TSTRING009(15) + Chr(13)
Hangup
DtrOff
End
Endif
AnsiPos 1, TSTRING009(25)
Print TSTRING008(19)
Delay 18
AnsiPos 1, TSTRING009(25)
Print " "
AnsiPos TSTRING009(11), TSTRING009(10)
For INTEGER016 = 1 To Len(STRING015)
Print " "
Next
Endif
Goto LABEL065
:LABEL066
Else
AnsiPos 1, TSTRING009(25)
Print TSTRING008(34)
Delay 18
AnsiPos 1, TSTRING009(25)
Print " "
Return
Endif
AnsiPos 1, TSTRING009(25)
If (U_Sec >= TSTRING009(26)) Then
PrintLn TSTRING008(35)
PrintLn
PrintLn TSTRING008(18) + " @X0F" + Upper(TSTRING009(5))
PrintLn
More
Else
PrintLn TSTRING008(36)
PrintLn
More
Endif
Return
:LABEL067
If (TSTRING009(4) == "1") Then
AnsiPos 1, TSTRING009(3)
Print TSTRING008(30)
Print " "
BOOLEAN004 = 0
STRING013 = ""
:LABEL068
If (BOOLEAN004) Goto LABEL070
STRING013 = Inkey()
If (Len(STRING013)) Then
If (Upper(STRING013) == "Y") Then
AnsiPos 1, TSTRING009(3)
ClrEol
If (Left(TSTRING008(13), 1) == "%") Then
STRING014 = TSTRING008(13)
STRING013 = PPEPath() + Right(STRING014, Len(STRING014) - 1)
Color 15
Cls
DispFile STRING013, 1
PrintLn
Goto LABEL069
Endif
AnsiPos 1, TSTRING009(3)
PrintLn TSTRING008(13)
:LABEL069
If (OnLocal() && (INTEGER007 == 1)) End
KbdStuff TSTRING009(15) + Chr(13)
Hangup
DtrOff
End
Endif
If (Upper(STRING013) == "N") Then
AnsiPos 1, TSTRING009(3)
ClrEol
BOOLEAN004 = 1
Endif
Endif
Goto LABEL068
:LABEL070
Else
If (Left(TSTRING008(13), 1) == "%") Then
STRING014 = TSTRING008(13)
STRING013 = PPEPath() + Right(STRING014, Len(STRING014) - 1)
Color 15
Cls
DispFile STRING013, 1
PrintLn
Else
AnsiPos 1, TSTRING009(3)
PrintLn TSTRING008(13)
Endif
KbdStuff TSTRING009(15) + Chr(13)
If (OnLocal() && (INTEGER007 == 1)) End
Hangup
DtrOff
End
Endif
Return
:LABEL071
STRING040 = Chr(75) + Chr(114) + Chr(104) + Chr(121) + Chr(112) + Chr(116) + Chr(105) + Chr(99)
Color 7
If (STRING033 == "NONE") Then
PrintLn "@X09Ma@X01tr@X08ix @X0120@X0900 @X07· @X0FCoded by " + STRING040 + " @X07· @X0FU@X0Fn@X0Fr@X0Fe@X0Fg@X0Fi@X0Fs@X0Ft@X0Fe@X0Fr@X0Fe@X0Fd!"
INTEGER008 = -1
Delay 30
Return
Else
INTEGER001 = STRING035
STRING039 = Left(STRING034, 9)
INTEGER003 = STRING039
INTEGER002 = ((INTEGER003 / 3 - 42) * 2 - 2) / 2 + 1
If (((((INTEGER002 == INTEGER001) || (INTEGER002 == INTEGER001 - 1)) || (INTEGER002 == INTEGER001 + 1)) || (INTEGER002 == INTEGER001 + 2)) || (INTEGER002 == INTEGER001 - 2)) Then
INTEGER004 = Len(STRING034)
INTEGER005 = 1
BOOLEAN004 = 0
:LABEL072
If (BOOLEAN004) Goto LABEL073
STRING037 = Mid(STRING034, INTEGER005, 2)
INTEGER006 = STRING037
If (Left(STRING037, 1) == "0") Then
STRING038 = STRING038 + " "
INTEGER005 = INTEGER005 + 1
Else
STRING038 = STRING038 + TSTRING036(INTEGER006)
INTEGER005 = INTEGER005 + 2
Endif
If (INTEGER005 >= Len(STRING034)) BOOLEAN004 = 1
Goto LABEL072
:LABEL073
If (STRING033 == STRING038) Then
PrintLn "@X09Ma@X01tr@X08ix @X0120@X0900 @X07· @X0FCoded by " + STRING040 + " @X07· @X0FR@X0Fe@X0Fg@X0Fi@X0Fs@X0Ft@X0Fe@X0Fr@X0Fe@X0Fd to " + STRING038
ElseIf (STRING033 <> STRING038) Then
PrintLn "@X09Ma@X01tr@X08ix @X0120@X0900 @X07· @X0FCoded by " + STRING040 + " @X07· @X0FError in @X0FR@X0Fe@X0Fg@X0Fi@X0Fs@X0Ft@X0Fr@X0Fa@X0Ft@X0Fi@X0Fo@X0Fn Name!"
INTEGER008 = -1
Endif
Else
PrintLn "@X09Ma@X01tr@X08ix @X0120@X0900 @X07· @X0FCoded by " + STRING040 + " @X07· @X0FError in @X0FR@X0Fe@X0Fg@X0Fi@X0Fs@X0Ft@X0Fr@X0Fa@X0Ft@X0Fi@X0Fo@X0Fn Codes!"
INTEGER008 = -1
Endif
Delay 25
Endif
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 14 End
; 17 Cls
; 11 ClrEol
; 5 More
; 19 Color
; 322 Goto
; 391 Let
; 63 Print
; 81 PrintLn
; 217 If
; 17 DispFile
; 6 FCreate
; 11 FOpen
; 11 FClose
; 30 FGet
; 46 FPutLn
; 12 Hangup
; 3 Delete
; 2 AdjTime
; 26 InputStr
; 7 Gosub
; 22 Return
; 12 DtrOff
; 18 Delay
; 33 KbdStuff
; 1 RdUNet
; 1 WrUNet
; 89 AnsiPos
; 11 FreshLine
; 2 Message
; 1 Chat
; 2 SPrintLn
; 1 KeyFlush
; 2 GetAltUser
;
;
; ■ Functions used :
;
; 10 -
; 1 *
; 2 /
; 173 +
; 29 -
; 124 ==
; 15 <>
; 49 <
; 41 <=
; 13 >
; 85 >=
; 184 !
; 86 &&
; 54 ||
; 28 Len(
; 36 Upper()
; 4 Mid()
; 11 Left()
; 8 Right()
; 44 Chr()
; 2 RTrim()
; 1 Replace()
; 3 Inkey()
; 3 Mask_Alpha()
; 2 Mask_Num()
; 1 Mask_AlNum()
; 18 Mask_Ascii()
; 1 PCBDat()
; 32 PPEPath()
; 2 PcbNode()
; 6 ReadLine()
; 2 OnLocal()
; 1 UN_Name()
; 1 UN_City()
; 5 Exist()
; 9 GetY()
; 3 Psa()
; 1 KInkey()
; 7 U_RecNum()
;
;------------------------------------------------------------------------------
;
; Analysis flags : RABdH
;
; 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
;
; A - Adjust online time remaining ■ 5
; Program modify the amount of online time remaining, this may
; be a way to bypass time limits
; ■ Search for : ADJTIME
;
; B - Brute hangup ■ 1
; Program hangup without notification. This may be a good way to
; disconnect a user, but if used randomly, may be very nasty
; ■ Search for : HANGUP, DTROFF
;
; 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()
;
; H - Read Password or Password History ■ 5
; Program is reading the user's password or last password history
; This may be ok for a password manager, but it is very suspect. Check!
; ■ Search for : U_PWDHIST, U_PWD
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 41 For/Next
; 0 While/EndWhile
; 107 If/Then or If/Then/Else
; 2 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------