home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
T
/
THTMT224.ZIP
/
NUV.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-02-06
|
14KB
|
674 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
Date DATE001
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
String STRING020
String STRING021
String STRING022
String STRING023
String STRING024
String STRING025
String STRING026
String STRING027
String STRING028
String STRING029
String STRING030
String STRING031
String STRING032
String STRING033
String STRING034
String STRING035
String STRING036
String STRING037
String STRING038
String STRING039
String STRING040
String STRING041
String STRING042
String STRING043
String STRING044
String STRING045
String STRING046
String STRING047
String STRING048
String STRING049
String STRING050
String STRING051
String STRING052
String STRING053
String STRING054
String STRING055
String STRING056
String STRING057
;------------------------------------------------------------------------------
FDefIn 1
STRING054 = Chr(50) + Chr(64) + Chr(88) + Chr(49) + Chr(66) + Chr(46) + Chr(64) + Chr(88) + Chr(49) + Chr(70) + Chr(49) + Chr(57)
STRING044 = Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(60) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(85) + Chr(110) + Chr(82) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101) + Chr(100) + Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(62) + Chr(62) + Chr(62)
STRING008 = Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(78) + Chr(101) + Chr(119) + " " + Chr(85) + Chr(115) + Chr(101) + Chr(114) + " " + Chr(86) + Chr(111) + Chr(116) + Chr(105) + Chr(110) + Chr(103) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(118) + Chr(64) + Chr(88) + Chr(49) + Chr(70) + STRING054 + Chr(64) + Chr(88) + Chr(57) + Chr(66) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(70) + Chr(114) + Chr(111) + Chr(109) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(77) + Chr(97) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + " " + Chr(66) + Chr(101) + Chr(116) + Chr(97) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(66) + Chr(64) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(62) + Chr(62) + Chr(64) + Chr(88) + Chr(48) + Chr(55)
DATE001 = Chr(48) + Chr(50) + "-" + Chr(50) + Chr(54) + "-" + Chr(57) + Chr(52)
STRING041 = Upper(ReadLine(PCBDat(), 2))
STRING042 = Upper(ReadLine(PCBDat(), 94))
For STRING057 = 0 To 64
STRING041 = Strip(STRING041, Chr(STRING057))
STRING042 = Strip(STRING042, Chr(STRING057))
Next
For STRING057 = 85 To 96
STRING041 = Strip(STRING041, Chr(STRING057))
STRING042 = Strip(STRING042, Chr(STRING057))
Next
For STRING057 = 117 To 255
STRING041 = Strip(STRING041, Chr(STRING057))
STRING042 = Strip(STRING042, Chr(STRING057))
Next
INTEGER005 = Len(STRING041)
If (INTEGER005 < 2) STRING041 = "uv"
STRING041 = Right(STRING041, 2)
INTEGER006 = Len(STRING042)
If (INTEGER006 < 2) STRING042 = "uv"
STRING042 = Right(STRING042, 2)
STRING043 = STRING041 + STRING042 + "VU"
GetUser
FOpen 1, PPEPath() + PPEName() + ".cnf", 0, 0
FDGet STRING036
FDGet STRING034
FDGet STRING028
FDGet STRING029
FDGet STRING030
FDGet STRING045
FDGet STRING046
FDGet STRING050
FDGet STRING049
FDGet STRING047
FDGet STRING048
FDGet STRING051
FDGet STRING052
FDGet STRING053
FDGet STRING055
FDGet STRING056
FClose 1
If (STRING034 > CurSec()) Goto LABEL035
If (Exist(PPEPath() + "apps\waiting.app")) Then
If (STRING008 <> Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(78) + Chr(101) + Chr(119) + " " + Chr(85) + Chr(115) + Chr(101) + Chr(114) + " " + Chr(86) + Chr(111) + Chr(116) + Chr(105) + Chr(110) + Chr(103) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(118) + Chr(64) + Chr(88) + Chr(49) + Chr(70) + STRING054 + Chr(64) + Chr(88) + Chr(57) + Chr(66) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(70) + Chr(114) + Chr(111) + Chr(109) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(77) + Chr(97) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + " " + Chr(66) + Chr(101) + Chr(116) + Chr(97) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(66) + Chr(64) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(62) + Chr(62) + Chr(64) + Chr(88) + Chr(48) + Chr(55)) Then
Delete PPEPath() + PPEName() + Chr(46) + Chr(112) + Chr(112) + Chr(101)
Goto LABEL035
Endif
STRING031 = STRING050
STRING031 = Upper(STRING031)
Cls
FOpen 1, PPEPath() + "apps\waiting.app", 0, 0
INTEGER003 = 0
:LABEL001
If (Ferr(1)) Goto LABEL002
FGet 1, STRING006
If (STRING006 == "") Goto LABEL003
Inc INTEGER003
Goto LABEL001
:LABEL002
FClose 1
:LABEL003
FClose 1
If ((INTEGER003 == 0) && (STRING036 == S2I(STRING043, 34))) Then
Goto LABEL035
Endif
If ((STRING055 == YesChar()) && (STRING036 == S2I(STRING043, 34))) Goto LABEL004
AnsiPos 12, 3
PrintLn STRING008
If (Exist(PPEPath() + PPEName() + ".pcb")) DispFile PPEPath() + PPEName() + ".PCB", 4 + 2
Newline
InputYN STRING053, STRING031, " "
If (STRING031 == NoChar()) Goto LABEL035
:LABEL004
DefColor
STRING001 = 7
FClose 2
FClose 1
FOpen 1, PPEPath() + "apps\waiting.app", 0, 0
INTEGER003 = 0
:LABEL005
If (Ferr(1)) Goto LABEL010
STRING009 = ""
FDGet STRING006
If (STRING006 == "") Goto LABEL017
Tokenize STRING006
If (TokCount() == 3) Then
GetToken STRING025
GetToken STRING026
GetToken STRING032
STRING025 = Left(STRING025, 3)
STRING026 = Right(STRING032, 4)
STRING025 = Strip(STRING025, " ")
STRING025 = Strip(STRING025, ".")
STRING026 = Strip(STRING026, " ")
STRING026 = Strip(STRING026, ".")
Goto LABEL006
Endif
If (TokCount() == 2) Then
GetToken STRING025
GetToken STRING026
STRING025 = Left(STRING025, 3)
STRING026 = Right(STRING026, 4)
STRING025 = Strip(STRING025, " ")
STRING025 = Strip(STRING025, ".")
STRING026 = Strip(STRING026, " ")
STRING026 = Strip(STRING026, ".")
Goto LABEL006
Endif
If (TokCount() == 1) Then
GetToken STRING025
GetToken STRING026
STRING025 = Strip(STRING025, ".")
STRING025 = Strip(STRING025, " ")
STRING026 = Strip(STRING026, ".")
STRING026 = Strip(STRING026, " ")
STRING025 = Left(STRING025, 3)
Goto LABEL006
Endif
:LABEL006
STRING035 = ReadLine(PPEPath() + "apps\" + STRING025 + "_" + STRING026 + ".GRP", 1)
If (Exist(PPEPath() + "apps\" + STRING025 + "_" + STRING026 + ".vot")) Goto LABEL007
FCreate 3, PPEPath() + "apps\" + STRING025 + "_" + STRING026 + ".vot", 1, 0
FClose 3
:LABEL007
Gosub LABEL013
If (!Exist(PPEPath() + "apps\" + STRING025 + "_" + STRING026 + ".1")) STRING009 = YesChar()
If (STRING006 == U_Name()) STRING009 = YesChar()
If (STRING009 == "") Then
Inc STRING001
Inc INTEGER003
If (INTEGER003 == 1) Gosub LABEL011
If (INTEGER003 <= 13) Then
Gosub LABEL012
Goto LABEL008
Endif
Dec INTEGER003
Dec STRING001
:LABEL008
FClose 2
Goto LABEL009
Endif
FClose 2
:LABEL009
Goto LABEL005
:LABEL010
Goto LABEL017
:LABEL011
StartDisp 1
Cls
AnsiPos 6, 1
PrintLn "@POS:18@" + STRING008
AnsiPos 9, 2
PrintLn STRING051
AnsiPos 35, 3
PrintLn STRING052
AnsiPos 6, 4
PrintLn "@POS:13@" + STRING048 + "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
AnsiPos 6, 5
PrintLn "@POS:13@" + STRING048 + "█" + STRING047 + " UserName/Handle Location/Group " + STRING048 + "█"
AnsiPos 6, 6
PrintLn "@POS:13@" + STRING048 + "█" + STRING047 + "─────────────────────────────┬─────────────────────────────" + STRING048 + "█"
AnsiPos 6, 7
PrintLn "@POS:13@" + STRING048 + "█" + STRING047 + " │ " + STRING048 + "█"
Return
:LABEL012
AnsiPos 6, STRING001
PrintLn "@POS:13@" + STRING048 + "█" + STRING047 + " " + STRING006 + "@POS:43@│ " + STRING035 + "@POS:73@" + STRING048 + "█"
Return
:LABEL013
STRING017 = 0
STRING018 = 0
STRING015 = ReadLine(PPEPath() + "check.cnf", 2)
STRING016 = ReadLine(PPEPath() + "check.cnf", 3)
FOpen 2, PPEPath() + "apps\" + STRING025 + "_" + STRING026 + ".vot", 0, 0
:LABEL014
If (Ferr(2)) Goto LABEL015
FGet 2, STRING019
If (STRING019 == " ") Goto LABEL016
Tokenize STRING019
If (TokCount() == 4) Then
GetToken STRING020
GetToken STRING021
GetToken STRING022
GetToken STRING023
If (STRING023 == "Y") Inc STRING017
If (STRING023 == "N") Inc STRING018
If (((U_Name() == STRING020 + " " + STRING021 + " " + STRING022) || (STRING017 >= STRING015)) || (STRING018 >= STRING016)) Then
STRING009 = YesChar()
FClose 2
Return
Endif
Endif
If (TokCount() == 3) Then
GetToken STRING020
GetToken STRING021
GetToken STRING023
If (STRING023 == "Y") Inc STRING017
If (STRING023 == "N") Inc STRING018
If (((U_Name() == STRING020 + " " + STRING021) || (STRING017 >= STRING015)) || (STRING018 >= STRING016)) Then
STRING009 = YesChar()
FClose 2
Endif
Endif
If (TokCount() == 2) Then
GetToken STRING020
GetToken STRING023
If (STRING023 == "Y") Inc STRING017
If (STRING023 == "N") Inc STRING018
If (((U_Name() == STRING020) || (STRING017 >= STRING015)) || (STRING018 >= STRING016)) Then
STRING009 = YesChar()
FClose 2
Endif
Endif
Goto LABEL014
:LABEL015
Return
:LABEL016
Return
:LABEL017
If ((INTEGER003 == 0) && (STRING036 == S2I(STRING043, 34))) Then
Goto LABEL035
Endif
If ((INTEGER003 == 0) && (STRING036 <> S2I(STRING043, 34))) Then
Gosub LABEL011
Endif
Inc STRING001
AnsiPos 6, STRING001
PrintLn "@POS:13@" + STRING048 + "█" + STRING047 + " Quit New User Voting. │ " + STRING048 + "█"
Inc STRING001
AnsiPos 6, STRING001
PrintLn "@POS:13@" + STRING048 + "▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
FClose 1
If (STRING036 == S2I(STRING043, 34)) Goto LABEL018
If (STRING044 <> Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(60) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(85) + Chr(110) + Chr(82) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101) + Chr(100) + Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(62) + Chr(62) + Chr(62)) Then
Delete PPEPath() + PPEName() + Chr(46) + Chr(112) + Chr(112) + Chr(101)
PrintLn "@X8FYou tried to HACK this PPE Registration is Cheap"
Goto LABEL035
Endif
If (Date() >= DATE001) Then
PrintLn "@X8FThis PPE has Expired!!!"
Goto LABEL035
Endif
AnsiPos 48, 7
Print STRING044
:LABEL018
Inc STRING001
AnsiPos 6, STRING001
STRING033 = ""
STRING027 = GetY()
STRING001 = STRING027 - 2
KbdStuff Chr(32)
:LABEL019
If (BOOLEAN001) Goto LABEL022
STRING010 = Inkey()
If (STRING010 == Chr(13)) Then
STRING002 = RTrim(ScrText(18, STRING001 + 1, 25, 0), " ")
If (STRING002 <> "Quit New User Voting.") Then
STRING013 = STRING002
Goto LABEL023
Endif
If (((STRING002 == "Quit New User Voting.") && (STRING055 <> NoChar())) && (STRING036 == S2I(STRING043, 34))) Then
DefColor
Cls
AnsiPos 10, 3
PrintLn STRING056
Newline
Wait
Goto LABEL004
Goto LABEL020
Endif
Goto LABEL035
:LABEL020
If (STRING002 == "Quit New User Voting.") Then
Goto LABEL035
Endif
Endif
If (((((((((STRING010 == Chr(32)) || (STRING010 == "UP")) || (STRING010 == "DOWN")) || (STRING010 == "LEFT")) || (STRING010 == "RIGHT")) || (STRING010 == "A")) || (STRING010 == "a")) || (STRING010 == "Z")) || (STRING010 == "z")) Then
AnsiPos 18, STRING001
If (STRING003 == STRING027 - 2) Then
Print STRING033
AnsiPos 18, STRING001
Goto LABEL021
Endif
AnsiPos 18, STRING001 + 1
Print STRING033
:LABEL021
If (STRING001 == 7) STRING001 = STRING001 + INTEGER003 + 1
AnsiPos 18, STRING001
STRING033 = ScrText(18, STRING001, 25, 1)
Print STRING049 + RTrim(ScrText(18, STRING001, 25, 0), " ")
Dec STRING001
Endif
Goto LABEL019
:LABEL022
:LABEL023
STRING012 = 1
STRING011 = 6
Inc STRING001
Tokenize STRING013
If (TokCount() == 3) Then
GetToken STRING003
GetToken STRING004
GetToken STRING005
STRING003 = Strip(STRING003, " ")
STRING004 = Strip(STRING004, " ")
STRING003 = Strip(STRING003, ".")
STRING004 = Strip(STRING004, ".")
STRING003 = Left(STRING003, 3)
STRING004 = Right(STRING005, 4)
Endif
If (TokCount() == 2) Then
GetToken STRING003
GetToken STRING004
STRING003 = Strip(STRING003, " ")
STRING004 = Strip(STRING004, " ")
STRING003 = Strip(STRING003, ".")
STRING004 = Strip(STRING004, ".")
STRING003 = Left(STRING003, 3)
STRING004 = Right(STRING004, 4)
Endif
If (TokCount() == 1) Then
GetToken STRING003
GetToken STRING004
STRING003 = Strip(STRING003, " ")
STRING004 = Strip(STRING004, " ")
STRING003 = Strip(STRING003, ".")
STRING004 = Strip(STRING004, ".")
STRING003 = Left(STRING003, 3)
STRING004 = Right(STRING004, 4)
Endif
FOpen 1, PPEPath() + "tht-info.cfg", 0, 0
FGet 1, STRING037
INTEGER004 = STRING037
FClose 1
STRING039 = 0
DefColor
Cls
AnsiPos 2, 3
PrintLn "@X0EUse Cursor Keys to move the @X74HighLighted Bar@X0E or @X0C""@X09A@X0C""@X0F,@X0C ""@X09Z@X0C""@X0E or @X0FSpaceBar@X0
AnsiPos 24, 4
PrintLn STRING048 + "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07"
AnsiPos 24, 5
PrintLn STRING048 + "█" + STRING047 + " " + STRING048 + "█@X07"
For STRING040 = 1 To STRING037
If ((STRING045 == STRING040) && (U_Sec < STRING046)) Then
Goto LABEL024
Goto LABEL024
Endif
If (Exist(PPEPath() + "apps\" + STRING003 + "_" + STRING004 + "." + STRING040)) Then
AnsiPos 24, STRING011
PrintLn STRING048 + "█" + STRING047 + " View Users InfoForm " + STRING012 + " " + STRING048 + "█@X07"
Inc STRING011
Inc STRING039
Endif
:LABEL024
Inc STRING012
Next
STRING037 = STRING039
AnsiPos 24, STRING011
PrintLn STRING048 + "█" + STRING047 + " Quit Infoform Viewing " + STRING048 + "█@X07"
Inc STRING011
AnsiPos 24, STRING011
PrintLn STRING048 + "▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
STRING027 = GetY()
INTEGER002 = 6
STRING033 = ""
KbdStuff Chr(32)
If (STRING039 == 1) KbdStuff Chr(13)
:LABEL025
If (BOOLEAN001) Goto LABEL027
STRING010 = Inkey()
If (STRING010 == Chr(13)) Then
STRING038 = Left(ScrText(27, INTEGER002 + 1, 21, 0), 1)
STRING038 = STRING038 + Right(ScrText(27, INTEGER002 + 1, 21, 0), 1)
STRING038 = Right(STRING038, 1)
Goto LABEL027
Endif
If (((((((((STRING010 == Chr(32)) || (STRING010 == "UP")) || (STRING010 == "DOWN")) || (STRING010 == "LEFT")) || (STRING010 == "RIGHT")) || (STRING010 == "z")) || (STRING010 == "Z")) || (STRING010 == "a")) || (STRING010 == "A")) Then
AnsiPos 27, STRING003
If (INTEGER002 == STRING027 - STRING039 + 1) Then
Print STRING033
Goto LABEL026
Endif
AnsiPos 27, INTEGER002 + 1
Print STRING033
:LABEL026
AnsiPos 27, INTEGER002
If (INTEGER002 == 5) INTEGER002 = INTEGER002 + STRING039 + 1
AnsiPos 27, INTEGER002
STRING033 = ScrText(27, INTEGER002, 21, 1) + "@X08"
AnsiPos 27, INTEGER002
Print STRING049 + ScrText(27, INTEGER002, 21, 0) + "@X08"
Dec INTEGER002
Endif
Goto LABEL025
:LABEL027
If (STRING038 == "g") Goto LABEL004
Cls
StartDisp 1
DispFile PPEPath() + "tht-info." + STRING038, 0
FOpen 1, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + "." + STRING038, 0, 0
FDGet STRING019
FDGet STRING019
FDGet STRING019
FDGet STRING019
FDGet STRING019
FDGet STRING019
FClose 2
FOpen 2, PPEPath() + "infocfg." + STRING038, 0, 0
FGet 2, STRING007
FGet 2, STRING007
:LABEL028
If (Ferr(1)) Goto LABEL029
FGet 2, STRING007
Tokenize STRING007
GetToken INTEGER001
GetToken INTEGER002
FDGet STRING024
AnsiPos INTEGER001, INTEGER002
PrintLn STRING024
Goto LABEL028
:LABEL029
FClose 1
FClose 2
:LABEL030
AnsiPos 6, 23
InputStr "@X0EVoting is either ""Y""es or ""N""o or ""U""ndecided _", STRING002, "", 1, "YNU", 4 + 2 + 8
If (STRING002 == "") Then
Goto LABEL030
Endif
If (STRING002 <> "U") Goto LABEL031
If (STRING002 == "U") Then
Goto LABEL032
Endif
:LABEL031
FClose 1
FAppend 1, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vot", 2, 0
FPutLn 1, U_Name() + " " + STRING002
FClose 1
:LABEL032
Cls
AnsiPos 6, 3
If (Exist(PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".cmt")) Goto LABEL033
PrintLn STRING029
FreshLine
Wait
Goto LABEL034
:LABEL033
AnsiPos 6, 4
InputYN STRING028, STRING031, ""
If (STRING031 == YesChar()) Then
FreshLine
DispFile PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".cmt", 0
Endif
FreshLine
Wait
:LABEL034
If ((STRING002 == "U") && (STRING039 > 1)) Goto LABEL023
If ((STRING002 == "U") && (STRING039 == 1)) Goto LABEL004
Cls
AnsiPos 6, 5
STRING031 = ""
InputYN STRING030, STRING031, ""
If (STRING031 == YesChar()) Then
AnsiPos 6, 6
STRING002 = ""
InputStr "@X0C>_", STRING002, "", 58, Mask_Ascii(), 4 + 2
If (STRING002 == "") Goto LABEL004
FAppend 1, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".cmt", 1, 0
FPutLn 1, "@X0C" + U_Name() + "@X09 >@X0F " + STRING002
Endif
FClose 1
Goto LABEL004
Endif
:LABEL035
BOOLEAN001 = 1
DefColor
STRING014 = "Do Not HEX-Edit This PPE, You will be Sorry"
Cls
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 8 Cls
; 3 Wait
; 96 Goto
; 104 Let
; 7 Print
; 22 PrintLn
; 75 If
; 3 DispFile
; 1 FCreate
; 7 FOpen
; 2 FAppend
; 19 FClose
; 6 FGet
; 2 FPutLn
; 2 StartDisp
; 1 GetUser
; 4 DefColor
; 2 Delete
; 2 InputStr
; 3 InputYN
; 4 Gosub
; 5 Return
; 17 Inc
; 4 Dec
; 2 Newline
; 4 Tokenize
; 25 GetToken
; 3 KbdStuff
; 35 AnsiPos
; 3 FreshLine
; 1 FDefIn
; 24 FDGet
;
;
; ■ Functions used :
;
; 429 +
; 3 -
; 71 ==
; 6 <>
; 7 <
; 5 <=
; 2 >
; 15 >=
; 50 !
; 17 &&
; 26 ||
; 2 Len(
; 3 Upper()
; 7 Left()
; 9 Right()
; 4 Ferr()
; 259 Chr()
; 2 RTrim()
; 1 Date()
; 6 U_Name()
; 2 NoChar()
; 8 YesChar()
; 30 Strip()
; 2 Inkey()
; 1 Mask_Ascii()
; 2 PCBDat()
; 24 PPEPath()
; 5 ReadLine()
; 1 CurSec()
; 6 Exist()
; 6 S2I()
; 2 GetY()
; 5 PPEName()
; 9 TokCount()
; 7 ScrText()
;
;------------------------------------------------------------------------------
;
; Analysis flags : d
;
; 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
;
; 4 For/Next
; 0 While/EndWhile
; 36 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------