home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
AGSLC20.ZIP
/
AGSLCD.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-12-22
|
5KB
|
323 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
Integer INTEGER041
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
;------------------------------------------------------------------------------
If (Exist(PPEPath() + "AGSLCTMP." + String(PcbNode()))) Then
FOpen 1, PPEPath() + "AGSLCTMP." + String(PcbNode()), 0, 2
FGet 1, STRING002
FGet 1, INTEGER024
FGet 1, INTEGER025
FGet 1, INTEGER027
FGet 1, INTEGER028
FGet 1, INTEGER026
FClose 1
If (STRING002 <> U_Name()) Delete PPEPath() + "AGSLCTMP." + String(PcbNode())
Endif
FOpen 1, PPEPath() + "AGSLC.CFG", 0, 0
FGet 1, STRING001
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
FClose 1
If (Upper(STRING001) == "BLUE") Then
STRING006 = "@X01"
STRING007 = "@X09"
STRING008 = "@X0F"
Endif
If (Upper(STRING001) == "GREEN") Then
STRING006 = "@X02"
STRING007 = "@X0A"
STRING008 = "@X0F"
Endif
If (Upper(STRING001) == "CYAN") Then
STRING006 = "@X03"
STRING007 = "@X0B"
STRING008 = "@X0F"
Endif
If (Upper(STRING001) == "RED") Then
STRING006 = "@X04"
STRING007 = "@X0C"
STRING008 = "@X0F"
Endif
If (Upper(STRING001) == "MAGENTA") Then
STRING006 = "@X05"
STRING007 = "@X0D"
STRING008 = "@X0F"
Endif
If (Upper(STRING001) == "WHITE") Then
STRING006 = "@X08"
STRING007 = "@X07"
STRING008 = "@X0F"
Endif
DispFile PPEPath() + "AGSLC.PCB", 0
FOpen 1, PPEPath() + "AGSLC.DAT", 0, 2
FGet 1, STRING003
FGet 1, INTEGER030
FGet 1, INTEGER031
FGet 1, INTEGER035
FGet 1, INTEGER034
FGet 1, INTEGER033
FGet 1, INTEGER032
FGet 1, INTEGER036
FGet 1, INTEGER037
FGet 1, INTEGER041
FGet 1, INTEGER040
FGet 1, INTEGER039
FGet 1, INTEGER038
Dec INTEGER001
AnsiPos INTEGER008, INTEGER009
STRING005 = String(INTEGER030 + 1)
Gosub LABEL002
Print STRING005
AnsiPos INTEGER010, INTEGER011
STRING005 = String(INTEGER031)
If (U_Logons() == 1) STRING005 = String(INTEGER031 + 1)
Gosub LABEL002
Print STRING005
AnsiPos INTEGER014, INTEGER015
STRING005 = String(INTEGER032)
Gosub LABEL002
STRING004 = STRING005
STRING005 = String(INTEGER033) + "k"
Gosub LABEL002
STRING005 = STRING004 + " @X08[" + STRING005 + "@X08]"
Print STRING005
AnsiPos INTEGER012, INTEGER013
STRING005 = String(INTEGER034)
Gosub LABEL002
STRING004 = STRING005
STRING005 = String(INTEGER035) + "k"
Gosub LABEL002
STRING005 = STRING004 + " @X08[" + STRING005 + "@X08]"
Print STRING005
AnsiPos INTEGER016, INTEGER017
STRING005 = String(INTEGER036)
Gosub LABEL002
Print STRING005
AnsiPos INTEGER018, INTEGER019
STRING005 = String(INTEGER037)
Gosub LABEL002
Print STRING005
AnsiPos INTEGER022, INTEGER023
STRING005 = String(INTEGER038)
Gosub LABEL002
STRING004 = STRING005
STRING005 = String(INTEGER039) + "k"
Gosub LABEL002
STRING005 = STRING004 + " @X08[" + STRING005 + "@X08]"
Print STRING005
AnsiPos INTEGER020, INTEGER021
STRING005 = String(INTEGER040)
Gosub LABEL002
STRING004 = STRING005
STRING005 = String(INTEGER041) + "k"
Gosub LABEL002
STRING005 = STRING004 + " @X08[" + STRING005 + "@X08]"
Print STRING005
For INTEGER029 = 1 To 13
FGet 1, STRING005
Gosub LABEL002
AnsiPos INTEGER002, INTEGER001 + INTEGER029
Print STRING005
FGet 1, STRING005
Gosub LABEL002
AnsiPos INTEGER003, INTEGER001 + INTEGER029
Print STRING005
FGet 1, STRING005
Gosub LABEL002
AnsiPos INTEGER004, INTEGER001 + INTEGER029
Print STRING005
FGet 1, STRING005
Gosub LABEL002
AnsiPos INTEGER005, INTEGER001 + INTEGER029
Print STRING005
FGet 1, STRING005
Gosub LABEL002
AnsiPos INTEGER006, INTEGER001 + INTEGER029
Print STRING005
FGet 1, STRING005
Gosub LABEL002
AnsiPos INTEGER007, INTEGER001 + INTEGER029
Print STRING005
Next
FClose 1
If (Exist("AGSLCTMP." + String(PcbNode()))) Goto LABEL001
FCreate 1, PPEPath() + "AGSLCTMP." + String(PcbNode()), 1, 0
FPutLn 1, U_Name()
FPutLn 1, U_Ful()
FPutLn 1, U_Bul() / 1024
FPutLn 1, U_Fdl()
FPutLn 1, U_Bdl() / 1024
FPutLn 1, Mid(String(Time()), 1, 5)
FClose 1
:LABEL001
AnsiPos 1, 23
Wait
End
:LABEL002
STRING005 = Mid(STRING005, 1, 22)
STRING005 = Replace(STRING005, "0", "o")
STRING005 = Mid(STRING005, 1, 2) + STRING008 + Mid(STRING005, 3, Len(STRING005) - 3)
STRING005 = Mid(STRING005, 1, 1) + STRING007 + Mid(STRING005, 2, Len(STRING005) - 2)
STRING005 = STRING006 + STRING005
STRING005 = Trim(STRING005, " ")
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 1 Wait
; 10 Goto
; 47 Let
; 14 Print
; 11 If
; 1 DispFile
; 1 FCreate
; 3 FOpen
; 4 FClose
; 49 FGet
; 6 FPutLn
; 1 Delete
; 18 Gosub
; 1 Return
; 1 Dec
; 15 AnsiPos
;
;
; ■ Functions used :
;
; 2 /
; 42 +
; 2 -
; 7 ==
; 1 <>
; 1 <
; 1 <=
; 2 >=
; 9 !
; 2 &&
; 1 ||
; 2 Len(
; 6 Upper()
; 6 Mid()
; 1 Trim()
; 1 Time()
; 2 U_Name()
; 1 U_Logons()
; 1 U_Ful()
; 1 U_Fdl()
; 1 U_Bdl()
; 1 U_Bul()
; 1 Replace()
; 19 String()
; 7 PPEPath()
; 5 PcbNode()
; 2 Exist()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 0 While/EndWhile
; 7 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------