home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
AGSLC20.ZIP
/
AGSLC.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-12-22
|
4KB
|
257 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
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer INTEGER010
Integer INTEGER011
Integer INTEGER012
Integer INTEGER013
Integer INTEGER014
Integer INTEGER015
Integer INTEGER016
Integer INTEGER017
Integer INTEGER018
Integer INTEGER019
Integer INTEGER020
Integer INTEGER021
Integer INTEGER022
Integer INTEGER023
Integer INTEGER024
Integer INTEGER025
Integer INTEGER026
Integer INTEGER027
Integer INTEGER028
Integer INTEGER029
Integer INTEGER030
Integer INTEGER031
Integer INTEGER032
Integer INTEGER033
Integer INTEGER034
Integer INTEGER035
Integer INTEGER036
Integer INTEGER037
Integer INTEGER038
Integer INTEGER039
Integer INTEGER040
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
;------------------------------------------------------------------------------
FOpen 1, PPEPath() + "AGSLC.CFG", 0, 0
FGet 1, STRING002
FGet 1, INTEGER001
FGet 1, INTEGER002
FGet 1, INTEGER003
FGet 1, INTEGER004
FGet 1, INTEGER005
FGet 1, INTEGER006
FGet 1, INTEGER007
FGet 1, INTEGER008
FGet 1, INTEGER009
FGet 1, INTEGER010
FGet 1, INTEGER011
FGet 1, INTEGER012
FGet 1, INTEGER013
FGet 1, INTEGER014
FGet 1, INTEGER015
FGet 1, INTEGER016
FGet 1, INTEGER017
FGet 1, INTEGER018
FGet 1, INTEGER019
FGet 1, INTEGER022
FGet 1, INTEGER023
FGet 1, INTEGER020
FGet 1, INTEGER021
FGet 1, STRING003
FGet 1, STRING004
FGet 1, STRING005
FGet 1, STRING006
FClose 1
If (Exist(PPEPath() + "AGSLCTMP." + String(PcbNode()))) Then
FOpen 1, PPEPath() + "AGSLCTMP." + String(PcbNode()), 0, 2
FGet 1, STRING001
FGet 1, INTEGER027
FGet 1, INTEGER028
FGet 1, INTEGER026
FGet 1, INTEGER025
FGet 1, STRING008
FClose 1
FOpen 1, PPEPath() + "AGSLC.DAT", 0, 2
FGet 1, STRING009
FGet 1, INTEGER029
FGet 1, INTEGER030
FGet 1, INTEGER034
FGet 1, INTEGER033
FGet 1, INTEGER032
FGet 1, INTEGER031
FGet 1, INTEGER035
FGet 1, INTEGER036
FGet 1, INTEGER040
FGet 1, INTEGER039
FGet 1, INTEGER038
FGet 1, INTEGER037
FClose 1
If (STRING009 <> String(Date())) Then
STRING009 = String(Date())
INTEGER029 = 0
INTEGER030 = 0
INTEGER033 = 0
INTEGER034 = 0
INTEGER031 = 0
INTEGER032 = 0
Endif
If (OnLocal() && (Upper(STRING003) == "N")) Goto LABEL001
INTEGER029 = INTEGER029 + 1
If (U_Logons() == 1) INTEGER030 = INTEGER030 + 1
If (U_Fdl() > INTEGER026) INTEGER033 = INTEGER033 + U_Fdl() - INTEGER026
If (U_Bdl() / 1024 > INTEGER025) INTEGER034 = INTEGER034 + U_Bdl() / 1024 - INTEGER025
If (U_Ful() > INTEGER027) INTEGER031 = INTEGER031 + U_Ful() - INTEGER027
If (U_Bul() / 1024 > INTEGER028) INTEGER032 = INTEGER032 + U_Bul() / 1024 - INTEGER028
If (INTEGER029 > INTEGER035) INTEGER035 = INTEGER029
If (INTEGER030 > INTEGER036) INTEGER036 = INTEGER030
If (INTEGER033 > INTEGER039) INTEGER039 = INTEGER033
If (INTEGER034 > INTEGER040) INTEGER040 = INTEGER034
If (INTEGER031 > INTEGER037) INTEGER037 = INTEGER031
If (INTEGER032 > INTEGER038) INTEGER038 = INTEGER032
FOpen 1, PPEPath() + "AGSLC.DAT", 0, 2
FCreate 2, PPEPath() + "AGSLCDAT." + String(PcbNode()), 1, 3
For INTEGER024 = 1 To 13
FGet 1, STRING007
Next
FPutLn 2, STRING009
FPutLn 2, INTEGER029
FPutLn 2, INTEGER030
FPutLn 2, INTEGER034
FPutLn 2, INTEGER033
FPutLn 2, INTEGER032
FPutLn 2, INTEGER031
FPutLn 2, INTEGER035
FPutLn 2, INTEGER036
FPutLn 2, INTEGER040
FPutLn 2, INTEGER039
FPutLn 2, INTEGER038
FPutLn 2, INTEGER037
GetUser
FPutLn 2, Mixed(U_Name())
FPutLn 2, U_City
If (U_Bdl() / 1024 - INTEGER025 < 100000) FPutLn 2, U_Bdl() / 1024 - INTEGER025
If (U_Bdl() / 1024 - INTEGER025 > 99999) FPutLn 2, "+1ooM"
If (U_Bul() / 1024 - INTEGER028 < 100000) FPutLn 2, U_Bul() / 1024 - INTEGER028
If (U_Bul() / 1024 - INTEGER028 > 99999) FPutLn 2, "+1ooM"
FPutLn 2, STRING008
If (!OnLocal()) FPutLn 2, Carrier()
If (OnLocal()) FPutLn 2, STRING004
For INTEGER024 = 1 To 72
FGet 1, STRING007
FPutLn 2, STRING007
Next
FClose 1
FClose 2
Delete PPEPath() + "AGSLC.DAT"
Rename PPEPath() + "AGSLCDAT." + String(PcbNode()), PPEPath() + "AGSLC.DAT"
Endif
:LABEL001
If (Exist(PPEPath() + "AGSLCTMP." + String(PcbNode()))) Delete PPEPath() + "AGSLCTMP." + String(PcbNode())
If (Upper(STRING005) == "Y") PrintLn STRING006 + String(MinOn())
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 7 Goto
; 23 Let
; 1 PrintLn
; 24 If
; 1 FCreate
; 4 FOpen
; 5 FClose
; 49 FGet
; 23 FPutLn
; 1 GetUser
; 2 Delete
; 1 Rename
;
;
; ■ Functions used :
;
; 10 /
; 26 +
; 10 -
; 3 ==
; 1 <>
; 4 <
; 2 <=
; 12 >
; 4 >=
; 6 !
; 5 &&
; 2 ||
; 2 Upper()
; 2 Date()
; 1 U_Name()
; 1 U_Logons()
; 2 U_Ful()
; 2 U_Fdl()
; 5 U_Bdl()
; 5 U_Bul()
; 9 String()
; 11 PPEPath()
; 6 PcbNode()
; 3 OnLocal()
; 1 MinOn()
; 2 Exist()
; 1 Carrier()
; 1 Mixed()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 2 For/Next
; 0 While/EndWhile
; 2 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------