home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
T
/
TSTATS2.ZIP
/
STATS.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-02-18
|
7KB
|
167 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
;------------------------------------------------------------------------------
String STRING001
;------------------------------------------------------------------------------
:LABEL001
DispFile PPEPath() + "FIRST", 2 + 1 + 4
Newline
PrintLn "@POS:25@@X0C┌@X01██████████████████████████████@X0C┐"
PrintLn "@POS:25@@X0C│@X01███@X0C┐ @X04[@X0CP@X04] @X0Bφ @X03Private Stats@POS:52@@X0C┌@X01███@X0C│"
PrintLn "@POS:25@@X0C│@X01███@X0C│@POS:52@@X0C│@X01███@X0C│"
PrintLn "@POS:25@@X0C│@X01███@X0C│ @X04[@X0CF@X04] @X0Bφ @X03File Stats@POS:52@@X0C│@X01███@X0C│"
PrintLn "@POS:25@@X0C│@X01███@X0C│ @X0C│@X01███@X0C│"
PrintLn "@POS:25@@X0C│@X01███@X0C│ @X04[@X0CM@X04] @X0Bφ @X03Message Stats@POS:52@@X0C│@X01███@X0C│"
PrintLn "@POS:25@@X0C│@X01███@X0C│@POS:52@@X0C│@X01███@X0C│"
PrintLn "@POS:25@@X0C│@X01███@X0C┘ @X04[@X0CQ@X04] @X0Bφ @X03Quit to BBS@POS:52@@X0C└@X01███@X0C│"
PrintLn "@POS:25@@X0C│@X01██████████████████████████████@X0C┘"
InputText "@POS:25@@X0C└───@X04> @X0FYour Choice", STRING001, 14, 1
Select Case (STRING001)
Case "Q"
Goto LABEL005
Case "q"
Goto LABEL005
Case ""
Goto LABEL005
Case "P"
Goto LABEL002
Case "F"
Goto LABEL003
Case "M"
Goto LABEL004
:LABEL002
Cls
Newline
PrintLn "@X19 ┌[ @X13T@X1BS @X1CStats @X1Fv2.0 @X19]───────────[ @X1CPrivate @X14Stats @X13[@X1FP@X13] @X19]────────@POS:60@@X10┐ "
PrintLn "@X19 └@X10─────────────────────────────────────────────────────────┘ "
Newline
PrintLn "@X19 ┌─────────────────────────────────────────────────────────@X10┐ "
PrintLn "@X19 │@POS:60@@X10│ "
PrintLn "@X19 │@X13 U@X1Bs@X13e@X1Br @X13N@X1Ba@X13m@X1Be @X1A┌@X12─@X1A┐ @X1F@USER@@POS:60@@X10│ "
PrintLn "@X19 │@X13 A@X1Bc@X13c@X1Be@X13s@X1Bs @X13L@X1Be@X13v@X1Be@X13l @X12│@X1C■@X12│ @X1F@SECURITY@@POS:60@@X10│ "
PrintLn "@X19 │@X13 H@X1Bo@X13m@X1Be @X13P@X1Bh@X13o@X1Bn@X13e @X1B# @X1A│@X1C·@X1A│ @X1F@HOMEPHONE@@POS:60@@X10│ "
PrintLn "@X19 │@X13 @X1BD@X13a@X1Bt@X13a @X1BP@X13h@X1Bo@X13n@X1Be @X13# @X12│@X1C■@X12│ @X1F@DATAPHONE@@POS:60@@X10│ "
PrintLn "@X19 │@X13 L@X1Bi@X13v@X1Bi@X13n@X1Bg @X13i@X1Bn @X1A│@X1C·@X1A│ @X1F@CITY@@POS:60@@X10│ "
PrintLn "@X19 │@X13 @X1BB@X13a@X1Bu@X13d @X1BR@X13a@X1Bt@X13e @X12│@X1C■@X12│ @X1F@BPS@@POS:60@@X10│ "
PrintLn "@X19 │@X13 L@X1Ba@X13s@X1Bt @X13d@X1Ba@X13t@X1Be @X13o@X1Bn @X1A│@X1C·@X1A│ @X1F@LASTDATEON@@POS:60@@X10│ "
PrintLn "@X19 │@X13 M@X1Bi@X13n@X1Bu@X13t@X1Be@X13s @X1BL@X13e@X1Bf@X13t @X12│@X1C■@X12│ @X1F@MINLEFT@@X13 (min. left)@POS:60@@X10│ "
PrintLn "@X19 │@X13 @X1B#@X13# @X1BT@X13i@X1Bm@X13e@X1Bs @X13o@X1Bn @X1A│@X1C·@X1A│ @X1F@NUMTIMESON@@POS:60@@X10│ "
PrintLn "@X19 │@X13 D@X1Be@X13f@X1Ba@X13u@X1Bl@X13t @X1BP@X13r@X1Bo@X13t@X1Bo@X13c@X1Bo@X13l @X12└@X1A─@X12┘ @X1F@PRODESC@@POS:60@@X10│ "
PrintLn "@X19 │@POS:60@@X10│ "
PrintLn "@X19 │ @X1CL@X14a@X1Cs@X14t @X1Cu@X14s@X1Ce@X14r @X1Co@X14n @X1CB@X14B@X1CS @X1A■@X1E·@X1A■ @X1F@LASTCALLERSYSTEM@@X10@POS:60@│ "
PrintLn "@X19 └@X10─────────────────────────────────────────────────────────@X10┘ "
Newline
Wait
Goto LABEL001
Stop
:LABEL003
Cls
PrintLn "@X19 ┌[ @X13T@X1BS @X1CStats @X1Fv2.0 @X19]───────────[ @X1CFile @X14Stats @X13[@X1FF@X13] @X19]───────────@POS:60@@X10┐ "
PrintLn "@X19 └@X10─────────────────────────────────────────────────────────┘ "
Newline
PrintLn "@X19 ┌────────────────────────────────────────────────────────@X10┐ "
PrintLn "@X19 │@POS:59@@X10│ "
PrintLn "@X19 │@X1B D@X13e@X1Bf@X13a@X1Bu@X13l@X1Bt @X13P@X1Br@X13o@X1Bt@X13o@X1Bc@X13o@X1Bl @X1A┌@X12─@X1A┐ @X1F@PRODESC@@POS:59@@X10│ "
PrintLn "@X19 │@X1B D@X13o@X1Bw@X13n@X1Bl@X13o@X1Ba@X13d@X1Be@X13d @X1BB@X13y@X1Bt@X13e@X1Bs @X12│@X1C■@X12│ @X1F@DLBYTES@@X13 (D/Led Bytes)@POS:59@@X10│ "
PrintLn "@X19 │@X1B D@X13o@X1Bw@X13n@X1Bl@X13o@X1Ba@X13d@X1Be@X13d@X1B F@X13i@X1Bl@X13e@X1Bs @X1A│@X1C·@X1A│ @X1F@DLFILES@@X13 (D/Led Files)@POS:59@@X10│ "
PrintLn "@X19 │@X1B U@X13p@X1Bl@X13o@X1Ba@X13d@X1Be@X13d @X1BB@X13y@X1Bt@X13e@X1Bs @X12│@X1C■@X12│ @X1F@UPBYTES@@X13 (U/Led Bytes)@POS:59@@X10│ "
PrintLn "@X19 │@X1B U@X13p@X1Bl@X13o@X1Ba@X13d@X1Be@X13d@X1B F@X13i@X1Bl@X13e@X1Bs @X1A│@X1C·@X1A│ @X1F@UPFILES@@X13 (U/Led Files)@POS:59@@X10│ "
PrintLn "@X19 │@X1B F@X13i@X1Bl@X13e @X1BR@X13a@X1Bt@X13i@X1Bo (DL/UL) @X12│@X1C■@X12│ @X1F@FILERATIO@@POS:59@@X10│ "
PrintLn "@X19 │@X1B B@X13y@X1Bt@X13e @X1BR@X13a@X1Bt@X13i@X1Bo (DL/UL) @X1A│@X1C·@X1A│ @X1F@BYTERATIO@@POS:59@@X10│ "
PrintLn "@X19 │@X1B D@X13o@X1Bw@X13n@X1Bl@X13o@X1Ba@X13d@X1Be@X13d @X1BT@X13o@X1Bd@X13a@X1By @X12│@X1C■@X12│ @X1F@DAYBYTES@@POS:59@@X10│ "
PrintLn "@X19 │@X1B D@X13/@X1BL@X13 B@X1By@X13t@X1Be@X13s @X1Bl@X13e@X1Bf@X13t @X1A└@X12─@X1A┘ @X1F@BYTESLEFT@@POS:59@@X10│ "
PrintLn "@X19 │@POS:59@@X10│ "
PrintLn "@X19 │ @X1CM@X14i@X1Cn@X14u@X1Ct@X14e@X1Cs @X14L@X1Ce@X1Cf@X14t @X1Ct@X14o@X1Cd@X14a@X1Cy @X1A■@X1E·@X1A■ @X1F@MINLEFT@ @X13(minutes)@POS:59@@X10│ "
PrintLn "@X19 └@X10────────────────────────────────────────────────────────┘ "
Newline
Wait
Goto LABEL001
Stop
:LABEL004
Cls
PrintLn "@X19 ┌[ @X13T@X1BS @X1CStats @X1Fv2.0 @X19]─────────[ @X1CMessage @X14Stats @X13[@X1FP@X13] @X19]────────@X10┐ "
PrintLn "@X19 └@X10───────────────────────────────────────────────────────┘ "
Newline
PrintLn "@X19 ┌────────────────────────────────────────────────────────@X10┐ "
PrintLn "@X19 │@POS:59@@X10│ "
PrintLn "@X19 │@X1B I@X13n @X1Bc@X13o@X1Bn@X13f@X1Be@X13r@X1Be@X13n@X1Bc@X13e @X1B# @X1A┌@X12─@X1A┐ @X1F@INCONF@@POS:59@@X10│ "
PrintLn "@X19 │@X1BS@X13t@X1Bo@X13p@X1Bp@X13e@X1Bd@X13 R@X1Be@X13a@X1Bd@X13i@X1Bn@X13g@X1B M@X13e@X1Bs@X13s@X1Ba@X13g@X1Be @X13# @X12│@X12@X1C·@X12│ @X1F@CURMSGNUM@@POS:59@@X10│ "
PrintLn "@X19 │@X1B H@X13i@X1Bg@X13h@X1B M@X13s@X1Bg@X13. @X1Bi@X13n @X13C@X1Bo@X13n@X1Bf@X13. @X1B# @X1A│@X12@X1C■@X1A│ @X1F@HIGHMSGNUM@@X13 (Highest Message)@POS:59@@X10│ "
PrintLn "@X19 │@X1B L@X13o@X1Bw@X13 M@X1Bs@X13g@X1B. @X1Bi@X13n @X1BC@X13o@X1Bn@X13f@X1B. @X13# @X12│@X12@X1C·@X12│ @X1F@LOWMSGNUM@@X13 (Lowest Message)@POS:59@@X10│ "
PrintLn "@X19 │@X1B W@X13r@X1Bi@X13t@X1Bt@X13e@X1Bn @X13M@X1Be@X13s@X1Bs@X13a@X1Bg@X13e@X1Bs@X13 # @X1A│@X12@X1C■@X1A│ @X1F@MSGLEFT@@X13 (Messages YOU wrote)@POS:59@@X10│ "
PrintLn "@X19 │@X1B #@X13# @X1BM@X13e@X1Bs@X13s@X1Ba@X13g@X1Be@X13s @X1BR@X13e@X1Ba@X13d @X12└@X1A─@X12┘ @X1F@MSGREAD@@X13 (Messages YOU read)@POS:59@@X10│ "
PrintLn "@X19 └@X10────────────────────────────────────────────────────────@X10┘ "
Newline
Wait
Goto LABEL001
Stop
:LABEL005
Cls
Newline
Newline
PrintLn "@POS:25@@X0C┌─[ @X0FCoded By: @X03T@X0BS@X0C/@X03The@X0B Smasher @X0C]─@X04┐"
PrintLn "@POS:25@@X0C└@X04──────────────────────────────┘"
Stop
End Select
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 4 Cls
; 3 Wait
; 20 Goto
; 55 PrintLn
; 6 If
; 1 DispFile
; 10 Newline
; 4 Stop
; 1 InputText
;
;
; ■ Functions used :
;
; 3 +
; 6 ==
; 6 !
; 3 Upper()
; 1 PPEPath()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 0 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------