home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PCBOARD
/
URT_MSV1.ZIP
/
MSTATS.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-03-13
|
10KB
|
626 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 INTEGER001
Integer INTEGER002
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
;------------------------------------------------------------------------------
FOpen 1, PPEPath() + "STATS.CNF", 0, 2
FGet 1, STRING001
FGet 1, STRING002
FGet 1, STRING003
FGet 1, STRING004
FClose 1
Cls
DispFile PPEPath() + "STATS.FIL", 1
For INTEGER002 = 1 To 15
Next
AnsiPos 4, 15
PrintLn "@X0F" + STRING001
AnsiPos 4, 17
PrintLn "@X0F" + STRING002
AnsiPos 4, 19
PrintLn "@X0F" + STRING003
AnsiPos 4, 21
PrintLn "@X0F" + STRING004
AnsiPos 4, 5
PrintLn "@X1F FILE STATS @X07"
AnsiPos 32, 3
PrintLn "@X0FFile Statistics"
GetUser
STRING006 = U_Bdl()
STRING007 = U_Fdl()
StartDisp 1
AnsiPos 31, 6
PrintLn " "
AnsiPos 31, 7
PrintLn " "
AnsiPos 31, 8
PrintLn " "
AnsiPos 31, 9
PrintLn " "
AnsiPos 31, 10
PrintLn " "
AnsiPos 31, 11
PrintLn " "
AnsiPos 31, 12
PrintLn " "
AnsiPos 31, 13
PrintLn " "
AnsiPos 31, 14
PrintLn " "
AnsiPos 31, 15
PrintLn " "
AnsiPos 31, 16
PrintLn " "
AnsiPos 31, 17
PrintLn " "
AnsiPos 35, 7
PrintLn "@X0FByte Limit @X08: @X07@BYTELIMIT@"
AnsiPos 35, 8
PrintLn "@X0FByte Ratio @X08: @X07@BYTERATIO@"
AnsiPos 35, 9
PrintLn "@X0FBytes Left @X08: @X07@BYTESLEFT@"
AnsiPos 35, 10
PrintLn "@X0FFile Ratio @X08: @X07@FILERATIO@"
AnsiPos 35, 11
PrintLn "@X0FKb's Left @X08: @X07@KBLEFT@"
AnsiPos 35, 12
PrintLn "@X0FUploaded Bytes @X08: @X07@UPBYTES@"
AnsiPos 35, 13
PrintLn "@X0FUploaded Files @X08: @X07@UPFILES@"
AnsiPos 35, 14
PrintLn "@X0FDownloaded Bytes : @X07" + STRING006
AnsiPos 35, 15
PrintLn "@X0FDownloaded Files : @X07" + STRING007
INTEGER001 = 1
:LABEL001
STRING005 = ""
While (STRING005 <> Chr(13)) Do
:LABEL002
StartDisp 1
STRING005 = ""
STRING005 = Upper(Inkey())
If ((STRING005 == "UP") || (STRING005 == "A")) Then
StartDisp 1
If (INTEGER001 == 1) Then
AnsiPos 4, 5
PrintLn "@X07 File Stats "
AnsiPos 4, 6
PrintLn "@X07 Message Stats "
AnsiPos 4, 7
PrintLn "@X07 Miscellinious "
AnsiPos 4, 8
PrintLn "@X1F Quit @X07"
INTEGER001 = 4
AnsiPos 32, 3
PrintLn " "
AnsiPos 32, 3
PrintLn "@X0FQuit Mental Stats v1.0"
AnsiPos 31, 6
PrintLn " "
AnsiPos 31, 7
PrintLn " "
AnsiPos 31, 8
PrintLn " "
AnsiPos 31, 9
PrintLn " "
AnsiPos 31, 10
PrintLn " "
AnsiPos 31, 11
PrintLn " "
AnsiPos 31, 12
PrintLn " "
AnsiPos 31, 13
PrintLn " "
AnsiPos 31, 14
PrintLn " "
AnsiPos 31, 15
PrintLn " "
AnsiPos 31, 16
PrintLn " "
AnsiPos 31, 17
PrintLn " "
Goto LABEL002
Endif
If (INTEGER001 == 2) Then
AnsiPos 4, 5
PrintLn "@X1F File Stats @X07"
AnsiPos 4, 6
PrintLn "@X07 Message Stats "
AnsiPos 4, 7
PrintLn "@X07 Miscellinious "
AnsiPos 4, 8
PrintLn "@X07 Quit @X07"
INTEGER001 = 1
AnsiPos 32, 3
PrintLn " "
AnsiPos 32, 3
PrintLn "@X0FFile Statistics"
GetUser
STRING006 = U_Bdl()
STRING007 = U_Fdl()
AnsiPos 31, 6
PrintLn " "
AnsiPos 31, 7
PrintLn " "
AnsiPos 31, 8
PrintLn " "
AnsiPos 31, 9
PrintLn " "
AnsiPos 31, 10
PrintLn " "
AnsiPos 31, 11
PrintLn " "
AnsiPos 31, 12
PrintLn " "
AnsiPos 31, 13
PrintLn " "
AnsiPos 31, 14
PrintLn " "
AnsiPos 31, 15
PrintLn " "
AnsiPos 31, 16
PrintLn " "
AnsiPos 31, 17
PrintLn " "
AnsiPos 35, 7
PrintLn "@X0FByte Limit @X08: @X07@BYTELIMIT@"
AnsiPos 35, 8
PrintLn "@X0FByte Ratio @X08: @X07@BYTERATIO@"
AnsiPos 35, 9
PrintLn "@X0FBytes Left @X08: @X07@BYTESLEFT@"
AnsiPos 35, 10
PrintLn "@X0FFile Ratio @X08: @X07@FILERATIO@"
AnsiPos 35, 11
PrintLn "@X0FKb's Left @X08: @X07@KBLEFT@"
AnsiPos 35, 12
PrintLn "@X0FUploaded Bytes @X08: @X07@UPBYTES@"
AnsiPos 35, 13
PrintLn "@X0FUploaded Files @X08: @X07@UPFILES@"
AnsiPos 35, 14
PrintLn "@X0FDownloaded Bytes : @X07" + STRING006
AnsiPos 35, 15
PrintLn "@X0FDownloaded Files : @X07" + STRING007
Goto LABEL002
Endif
If (INTEGER001 == 3) Then
AnsiPos 4, 5
PrintLn "@X07 File Stats "
AnsiPos 4, 6
PrintLn "@X1F Message Stats @X07"
AnsiPos 4, 7
PrintLn "@X07 Miscellinious "
AnsiPos 4, 8
PrintLn "@X07 Quit @X07"
INTEGER001 = 2
AnsiPos 32, 3
PrintLn " "
AnsiPos 32, 3
PrintLn "@X0FMessage Statistics"
GetUser
STRING008 = U_MsgRd()
STRING009 = U_MsgWr()
STRING010 = U_Def79
STRING011 = U_FSE
AnsiPos 31, 6
PrintLn " "
AnsiPos 31, 7
PrintLn " "
AnsiPos 31, 8
PrintLn " "
AnsiPos 31, 9
PrintLn " "
AnsiPos 31, 10
PrintLn " "
AnsiPos 31, 11
PrintLn " "
AnsiPos 31, 12
PrintLn " "
AnsiPos 31, 13
PrintLn " "
AnsiPos 31, 14
PrintLn " "
AnsiPos 31, 15
PrintLn " "
AnsiPos 31, 16
PrintLn " "
AnsiPos 31, 17
PrintLn " "
AnsiPos 37, 8
PrintLn "@X0FTotal Messages Read @X08: @X07" + STRING008
AnsiPos 37, 9
PrintLn "@X0FTotal Messages Written @X08: @X07" + STRING009
AnsiPos 37, 10
PrintLn "@X0FMessage Editor Default Width @X08: @X07" + STRING010
AnsiPos 37, 11
PrintLn "@X0FFull Screen Editor Setting @X08: @X07" + STRING011
Goto LABEL002
Endif
If (INTEGER001 == 4) Then
AnsiPos 4, 5
PrintLn "@X07 File Stats "
AnsiPos 4, 6
PrintLn "@X07 Message Stats "
AnsiPos 4, 7
PrintLn "@X1F Miscellinious @X07"
AnsiPos 4, 8
PrintLn "@X07 Quit @X07"
INTEGER001 = 3
AnsiPos 32, 3
PrintLn " "
AnsiPos 32, 3
PrintLn "@X0FMiscellinious Statistics"
GetUser
STRING012 = U_ExpDate
STRING013 = U_Expert
STRING014 = U_LDate()
STRING015 = U_Logons()
STRING016 = U_LTime()
STRING017 = U_Sec
STRING018 = U_Trans
AnsiPos 31, 6
PrintLn " "
AnsiPos 31, 7
PrintLn " "
AnsiPos 31, 8
PrintLn " "
AnsiPos 31, 9
PrintLn " "
AnsiPos 31, 10
PrintLn " "
AnsiPos 31, 11
PrintLn " "
AnsiPos 31, 12
PrintLn " "
AnsiPos 31, 13
PrintLn " "
AnsiPos 31, 14
PrintLn " "
AnsiPos 31, 15
PrintLn " "
AnsiPos 31, 16
PrintLn " "
AnsiPos 31, 17
PrintLn " "
AnsiPos 33, 7
PrintLn "@X0FSubscritpion Expirey Date @X08: @X07" + STRING012
AnsiPos 33, 8
PrintLn "@X0FExper Toggle @X08: @X07" + STRING013
AnsiPos 33, 9
PrintLn "@X0FLast Date On @X08: @X07" + STRING014
AnsiPos 33, 10
PrintLn "@X0FTotal Logons @X08: @X07" + STRING015
AnsiPos 33, 11
PrintLn "@X0FLast Logon Time @X08: @X07" + STRING016
AnsiPos 33, 12
PrintLn "@X0FSequrity Level @X08: @X07" + STRING017
AnsiPos 33, 13
PrintLn "@X0FDefault Protocol @X08: @X08<@X07" + STRING018 + "@X08>@X07"
Goto LABEL002
Endif
Endif
If ((STRING005 == "DOWN") || (STRING005 == "Z")) Then
StartDisp 1
If (INTEGER001 == 1) Then
AnsiPos 4, 5
PrintLn "@X07 File Stats "
AnsiPos 4, 6
PrintLn "@X1F Message Stats @X07"
AnsiPos 4, 7
PrintLn "@X07 Miscellinious "
AnsiPos 4, 8
PrintLn "@X07 Quit @X07"
INTEGER001 = 2
AnsiPos 32, 3
PrintLn " "
AnsiPos 32, 3
PrintLn "@X0FMessage Statistics"
GetUser
STRING008 = U_MsgRd()
STRING009 = U_MsgWr()
STRING010 = U_Def79
AnsiPos 31, 5
PrintLn " "
AnsiPos 31, 6
PrintLn " "
AnsiPos 31, 7
PrintLn " "
AnsiPos 31, 8
PrintLn " "
AnsiPos 31, 9
PrintLn " "
AnsiPos 31, 10
PrintLn " "
AnsiPos 31, 11
PrintLn " "
AnsiPos 31, 12
PrintLn " "
AnsiPos 31, 13
PrintLn " "
AnsiPos 31, 14
PrintLn " "
AnsiPos 31, 15
PrintLn " "
AnsiPos 31, 16
PrintLn " "
AnsiPos 31, 17
PrintLn " "
AnsiPos 37, 8
PrintLn "@X0FTotal Messages Read @X08: @X07" + STRING008
AnsiPos 37, 9
PrintLn "@X0FTotal Messages Written @X08: @X07" + STRING009
AnsiPos 37, 10
PrintLn "@X0FMessage Editor Default Width @X08: @X07" + STRING010
Goto LABEL002
Endif
If (INTEGER001 == 2) Then
AnsiPos 4, 5
PrintLn "@X07 File Stats @X07"
AnsiPos 4, 6
PrintLn "@X07 Message Stats "
AnsiPos 4, 7
PrintLn "@X1F Miscellinious @X07"
AnsiPos 4, 8
PrintLn "@X07 Quit @X07"
INTEGER001 = 3
AnsiPos 32, 3
PrintLn " "
AnsiPos 32, 3
PrintLn "@X0FMiscellinious Statistics"
GetUser
STRING012 = U_ExpDate
STRING013 = U_Expert
STRING014 = U_LDate()
STRING015 = U_Logons()
STRING016 = U_LTime()
STRING017 = U_Sec
STRING018 = U_Trans
AnsiPos 31, 6
PrintLn " "
AnsiPos 31, 7
PrintLn " "
AnsiPos 31, 8
PrintLn " "
AnsiPos 31, 9
PrintLn " "
AnsiPos 31, 10
PrintLn " "
AnsiPos 31, 11
PrintLn " "
AnsiPos 31, 12
PrintLn " "
AnsiPos 31, 13
PrintLn " "
AnsiPos 31, 14
PrintLn " "
AnsiPos 31, 15
PrintLn " "
AnsiPos 31, 16
PrintLn " "
AnsiPos 31, 17
PrintLn " "
AnsiPos 33, 7
PrintLn "@X0FSubscritpion Expirey Date @X08: @X07" + STRING012
AnsiPos 33, 8
PrintLn "@X0FExper Toggle @X08: @X07" + STRING013
AnsiPos 33, 9
PrintLn "@X0FLast Date On @X08: @X07" + STRING014
AnsiPos 33, 10
PrintLn "@X0FTotal Logons @X08: @X07" + STRING015
AnsiPos 33, 11
PrintLn "@X0FLast Logon Time @X08: @X07" + STRING016
AnsiPos 33, 12
PrintLn "@X0FSequrity Level @X08: @X07" + STRING017
AnsiPos 33, 13
PrintLn "@X0FDefault Protocol @X08: @X08<@X07" + STRING018 + "@X08>@X07"
Goto LABEL002
Endif
If (INTEGER001 == 3) Then
AnsiPos 4, 5
PrintLn "@X07 File Stats "
AnsiPos 4, 6
PrintLn "@X07 Message Stats @X07"
AnsiPos 4, 7
PrintLn "@X07 Miscellinious "
AnsiPos 4, 8
PrintLn "@X1F Quit @X07"
INTEGER001 = 4
AnsiPos 32, 3
PrintLn " "
AnsiPos 32, 3
PrintLn "@X0FQuit Mental Stats v1.0"
AnsiPos 31, 6
PrintLn " "
AnsiPos 31, 7
PrintLn " "
AnsiPos 31, 8
PrintLn " "
AnsiPos 31, 9
PrintLn " "
AnsiPos 31, 10
PrintLn " "
AnsiPos 31, 11
PrintLn " "
AnsiPos 31, 12
PrintLn " "
AnsiPos 31, 13
PrintLn " "
AnsiPos 31, 14
PrintLn " "
AnsiPos 31, 15
PrintLn " "
AnsiPos 31, 16
PrintLn " "
AnsiPos 31, 17
PrintLn " "
Goto LABEL002
Endif
If (INTEGER001 == 4) Then
AnsiPos 4, 5
PrintLn "@X1F File Stats @X07"
AnsiPos 4, 6
PrintLn "@X07 Message Stats "
AnsiPos 4, 7
PrintLn "@X07 Miscellinious @X07"
AnsiPos 4, 8
PrintLn "@X07 Quit @X07"
INTEGER001 = 1
AnsiPos 32, 3
PrintLn " "
AnsiPos 32, 3
PrintLn "@X0FFile Statistics"
GetUser
STRING006 = U_Bdl()
STRING007 = U_Fdl()
AnsiPos 31, 6
PrintLn " "
AnsiPos 31, 7
PrintLn " "
AnsiPos 31, 8
PrintLn " "
AnsiPos 31, 9
PrintLn " "
AnsiPos 31, 10
PrintLn " "
AnsiPos 31, 11
PrintLn " "
AnsiPos 31, 12
PrintLn " "
AnsiPos 31, 13
PrintLn " "
AnsiPos 31, 14
PrintLn " "
AnsiPos 31, 15
PrintLn " "
AnsiPos 31, 16
PrintLn " "
AnsiPos 31, 17
PrintLn " "
AnsiPos 35, 7
PrintLn "@X0FByte Limit @X08: @X07@BYTELIMIT@"
AnsiPos 35, 8
PrintLn "@X0FByte Ratio @X08: @X07@BYTERATIO@"
AnsiPos 35, 9
PrintLn "@X0FBytes Left @X08: @X07@BYTESLEFT@"
AnsiPos 35, 10
PrintLn "@X0FFile Ratio @X08: @X07@FILERATIO@"
AnsiPos 35, 11
PrintLn "@X0FKb's Left @X08: @X07@KBLEFT@"
AnsiPos 35, 12
PrintLn "@X0FUploaded Bytes @X08: @X07@UPBYTES@"
AnsiPos 35, 13
PrintLn "@X0FUploaded Files @X08: @X07@UPFILES@"
AnsiPos 35, 14
PrintLn "@X0FDownloaded Bytes : @X07" + STRING006
AnsiPos 35, 15
PrintLn "@X0FDownloaded Files : @X07" + STRING007
Goto LABEL002
Endif
Endif
EndWhile
If (INTEGER001 == 1) Goto LABEL003
If (INTEGER001 == 2) Goto LABEL004
If (INTEGER001 == 3) Goto LABEL005
If (INTEGER001 == 4) Goto LABEL005
:LABEL003
Goto LABEL001
:LABEL004
Goto LABEL001
:LABEL005
Cls
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 Cls
; 28 Goto
; 41 Let
; 211 PrintLn
; 16 If
; 1 DispFile
; 1 FOpen
; 1 FClose
; 4 FGet
; 4 StartDisp
; 7 GetUser
; 211 AnsiPos
;
;
; ■ Functions used :
;
; 36 +
; 16 ==
; 1 <>
; 1 <
; 1 <=
; 2 >=
; 12 !
; 2 &&
; 3 ||
; 1 Upper()
; 1 Chr()
; 2 U_LDate()
; 2 U_LTime()
; 2 U_Logons()
; 3 U_Fdl()
; 3 U_Bdl()
; 1 Inkey()
; 2 PPEPath()
; 2 U_MsgRd()
; 2 U_MsgWr()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 1 While/EndWhile
; 10 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------