home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
T
/
THTMSG11.ZIP
/
THT-MSG.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-09-02
|
4KB
|
265 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
;------------------------------------------------------------------------------
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
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
;------------------------------------------------------------------------------
If (STRING001 == "T") Then
Goto LABEL001
Else
Goto LABEL002
Endif
:LABEL001
If (!(STRING001 == STRING002)) Stop ; PPLC BUG!
:LABEL002
INTEGER002 = GetY()
FDefIn 1
FOpen 1, PPEPath() + PPEName() + ".cnf", 0, 0
FDGet STRING009
FDGet STRING015
FDGet STRING010
FDGet STRING016
FDGet STRING011
FDGet STRING017
FDGet STRING012
FDGet STRING018
FDGet STRING013
FDGet STRING019
FDGet STRING014
FDGet STRING020
FDGet STRING021
FDGet STRING022
FDGet STRING023
FDGet STRING024
FDGet STRING025
FDGet STRING034
FDGet STRING035
FDGet STRING036
FDGet STRING037
FDGet STRING038
FDGet STRING039
FDGet STRING040
FDGet STRING041
FDGet STRING042
FDGet STRING033
FClose 1
GetUser
U_Cls = 1
U_PageLen = 22
PutUser
If (Exist(PPEPath() + PPEName() + ".hdr")) STRING032 = ReadLine(PPEPath() + PPEName() + ".hdr", 1)
FClose -1
If (Left(STRING032, 2) <> "@X") STRING032 = "@X10"
STRING031 = Left(STRING032, 4) + I2S(29, 36) + I2S(17, 36) + I2S(29, 36) + "-" + "Msg " + "v" + "1.10"
STRING008 = ScrText(1, 0, 5, 0)
STRING001 = ScrText(6, 1, 23, 0)
STRING007 = ScrText(44, 1, 32, 0)
STRING002 = ScrText(6, 2, 31, 0)
STRING030 = ScrText(1, 2, 6, 0)
STRING003 = ScrText(6, 3, 31, 0)
STRING004 = ScrText(6, 4, 47, 0)
STRING005 = ScrText(6, 5, 30, 0)
STRING026 = ScrText(37, 5, 7, 0)
STRING027 = ScrText(44, 5, 35, 0)
STRING006 = ScrText(6, 6, 25, 0)
STRING028 = ScrText(34, 6, 10, 0)
STRING029 = ScrText(44, 6, 35, 0)
If (U_LongHDR == 1) Then
If (!(STRING008 == "Date:")) Stop
AnsiPos 1, 1
If (Exist(PPEPath() + PPEName() + ".hdr")) DispFile PPEPath() + PPEName() + ".hdr", 0
AnsiPos 63, 1
Print STRING031
Tokenize STRING034
Gosub LABEL003
Print STRING009 + "Date" + Left(STRING009, 3) + "F:" + STRING015 + RTrim(STRING001, " ")
Tokenize STRING035
Gosub LABEL003
Print STRING021 + RTrim(STRING007, " ")
Tokenize STRING036
Gosub LABEL003
Print STRING010 + " To" + Left(STRING010, 3) + "F:" + STRING016 + RTrim(STRING002, " ")
Tokenize STRING037
Gosub LABEL003
Print STRING011 + "From" + Left(STRING011, 3) + "F:" + STRING017 + RTrim(STRING003, " ")
Tokenize STRING038
Gosub LABEL003
Print STRING012 + "Subj" + Left(STRING012, 3) + "F:" + STRING018 + STRING004
Tokenize STRING039
Gosub LABEL003
Print STRING022 + "Status" + Left(STRING022, 3) + "F:" + STRING023 + RTrim(STRING027, " ")
Tokenize STRING040
Gosub LABEL003
Print STRING013 + "Read" + Left(STRING013, 3) + "F:" + STRING019 + RTrim(STRING005, " ")
Tokenize STRING041
Gosub LABEL003
Print STRING024 + "Read Type" + Left(STRING024, 3) + "F:" + STRING025 + RTrim(STRING029, " ")
Tokenize STRING042
Gosub LABEL003
Print STRING014 + "Conf" + Left(STRING014, 3) + "F:" + STRING020 + RTrim(STRING006, " ")
AnsiPos 1, INTEGER002
Else
AnsiPos 1, 1
If (Exist(PPEPath() + PPEName() + "s.hdr")) DispFile PPEPath() + PPEName() + "s.hdr", 0
AnsiPos 63, 5
Print STRING031
Tokenize STRING034
Gosub LABEL003
Print STRING009 + "Date" + Left(STRING009, 3) + "F:" + STRING015 + RTrim(STRING001, " ")
Tokenize STRING035
Gosub LABEL003
Print STRING009 + RTrim(STRING007, " ")
Tokenize STRING036
Gosub LABEL003
Print STRING010 + " To" + Left(STRING010, 3) + "F:" + STRING016 + RTrim(STRING002, " ")
Tokenize STRING038
Gosub LABEL003
Print STRING011 + "From" + Left(STRING011, 3) + "F:" + STRING017 + RTrim(STRING003, " ")
Tokenize STRING033
Gosub LABEL003
AnsiPos INTEGER003 - 5, INTEGER004
Print STRING012 + "Subj" + Left(STRING012, 3) + "F:" + STRING018 + Left(STRING004, 34)
AnsiPos 1, INTEGER002
Endif
Stop
:LABEL003
GetToken INTEGER003
GetToken INTEGER004
AnsiPos INTEGER003, INTEGER004
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 6 Goto
; 19 Let
; 16 Print
; 8 If
; 2 DispFile
; 1 FOpen
; 2 FClose
; 1 GetUser
; 1 PutUser
; 14 Gosub
; 1 Return
; 14 Tokenize
; 2 GetToken
; 3 Stop
; 8 AnsiPos
; 1 FDefIn
; 27 FDGet
;
;
; ■ Functions used :
;
; 1 -
; 83 +
; 1 -
; 4 ==
; 1 <>
; 5 !
; 15 Left()
; 12 RTrim()
; 7 PPEPath()
; 1 ReadLine()
; 3 Exist()
; 3 I2S()
; 1 GetY()
; 7 PPEName()
; 13 ScrText()
;
;------------------------------------------------------------------------------
;
; Analysis flags : W
;
; W - Write user ■ 5
; Program writes a user record. Although this may be normal for a
; User Editor, it may also be a way to modify an account level.
; ■ Search for : PUTUSER
;
;
;------------------------------------------------------------------------------
;
; One or more PPLC bugs were found, this is not a PPLX error, but PPLX is
; reporting the error ;) Some statements like VAR = !!!!10, VAR = !0*!0
; or similar things are not handled correctly by PPLC, some may use this
; to avoid a correct decompilation... This doesn't mean that there is
; actually an error, but the probability of error is high...
; ■ Search for : PPLC BUG
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 2 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------