home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
CP-AD#1.ZIP
/
ANSI.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1997-02-22
|
4KB
|
376 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 3.3O (Encryption type II) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Boolean BOOLEAN001
Boolean BOOLEAN002
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
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
;------------------------------------------------------------------------------
GetToken INTEGER001
FOpen 1, PPEPath() + "ANSI.CNF", 2, 0
FGet 1, INTEGER007
FGet 1, INTEGER008
FGet 1, INTEGER002
FGet 1, INTEGER003
FGet 1, INTEGER004
FGet 1, INTEGER005
FGet 1, STRING018
FGet 1, STRING019
FGet 1, STRING020
FGet 1, STRING021
FGet 1, INTEGER006
FGet 1, STRING001
FGet 1, STRING002
FGet 1, STRING016
FGet 1, STRING003
FGet 1, STRING004
FGet 1, STRING017
FGet 1, STRING006
FGet 1, STRING007
FGet 1, STRING005
FGet 1, STRING010
FGet 1, STRING008
FGet 1, STRING009
FGet 1, STRING012
FGet 1, STRING011
FGet 1, STRING013
FGet 1, STRING014
FGet 1, STRING022
FGet 1, STRING015
FGet 1, STRING024
FGet 1, STRING025
FGet 1, STRING023
FClose 1
Cls
DispFile PPEPath() + "ANSI.PCB", 0
If (OnLocal()) Then
BOOLEAN001 = 1
BOOLEAN002 = 1
Endif
If (AnsiOn()) Then
BOOLEAN001 = 1
Endif
AnsiPos STRING006, STRING007
PrintLn STRING005
AnsiPos INTEGER002, INTEGER003
Print STRING001
AnsiPos STRING024, STRING025
Print STRING023 + "#" + "@NODE@"
AnsiPos INTEGER007, INTEGER008
PrintLn "@X07:: @X08Detector by: cp^xPs@X07 ::"
AnsiPos INTEGER004, INTEGER005
Print STRING002
Delay 1
AnsiPos INTEGER004, INTEGER005
Print STRING016
Delay INTEGER006
AnsiPos INTEGER002 + 1, INTEGER005
Print STRING002
Delay 1
AnsiPos INTEGER002 + 1, INTEGER005
Print STRING016
Delay INTEGER006
AnsiPos INTEGER002 + 2, INTEGER005
Print STRING002
Delay 1
AnsiPos INTEGER002 + 2, INTEGER005
Print STRING016
Delay INTEGER006
AnsiPos INTEGER002 + 3, INTEGER005
Print STRING002
Delay 1
AnsiPos INTEGER002 + 3, INTEGER005
Print STRING016
Delay INTEGER006
AnsiPos INTEGER002 + 4, INTEGER005
Print STRING002
Delay 1
AnsiPos INTEGER002 + 4, INTEGER005
Print STRING016
Delay INTEGER006
AnsiPos INTEGER002 + 5, INTEGER005
Print STRING002
Delay 1
AnsiPos INTEGER002 + 5, INTEGER005
Print STRING016
Delay INTEGER006
AnsiPos INTEGER002 + 6, INTEGER005
Print STRING002
Delay 1
AnsiPos INTEGER002 + 6, INTEGER005
Print STRING016
Delay INTEGER006
AnsiPos INTEGER002 + 7, INTEGER005
Print STRING002
Delay 1
AnsiPos INTEGER002 + 7, INTEGER005
Print STRING016
Delay INTEGER006
AnsiPos INTEGER002 + 8, INTEGER005
Print STRING002
Delay 1
AnsiPos INTEGER002 + 8, INTEGER005
Print STRING016
Delay INTEGER006
AnsiPos INTEGER002 + 9, INTEGER005
Print STRING002
Delay 1
AnsiPos INTEGER002 + 9, INTEGER005
Print STRING016
Delay INTEGER006
AnsiPos INTEGER002 + 10, INTEGER005
Print STRING002
Delay 1
AnsiPos INTEGER002 + 10, INTEGER005
Print STRING016
Delay INTEGER006
AnsiPos INTEGER002 + 11, INTEGER005
Print STRING002
Delay 1
AnsiPos INTEGER002 + 11, INTEGER005
Print STRING016
Delay INTEGER006
AnsiPos INTEGER002 + 12, INTEGER005
Print STRING002
Delay 1
AnsiPos INTEGER002 + 12, INTEGER005
Print STRING016
Delay INTEGER006
AnsiPos INTEGER002 + 13, INTEGER005
Print STRING002
Delay 1
AnsiPos INTEGER002 + 13, INTEGER005
Print STRING016
Delay INTEGER006
AnsiPos INTEGER002 + 14, INTEGER005
Print STRING002
Delay 1
AnsiPos INTEGER002 + 14, INTEGER005
Print STRING016
Delay INTEGER006
AnsiPos INTEGER002 + 15, INTEGER005
Print STRING002
Delay 1
AnsiPos INTEGER002 + 15, INTEGER005
Print STRING016
AnsiPos STRING008, STRING009
If (BOOLEAN001) Then
PrintLn STRING010
Else
PrintLn "None"
Endif
AnsiPos 55, 14
AnsiPos STRING006, STRING007
PrintLn " "
AnsiPos STRING006, STRING007
PrintLn STRING012
AnsiPos STRING018, STRING019
Print STRING003
AnsiPos INTEGER007, INTEGER008
PrintLn "@X07:: @X08Detector by: cp^xPs@X07 ::"
AnsiPos STRING020, STRING021
Print STRING004
Delay 1
AnsiPos STRING020, STRING021
Print STRING017
Delay INTEGER006
AnsiPos STRING018 + 1, STRING021
Print STRING004
Delay 1
AnsiPos STRING018 + 1, STRING021
Print STRING017
Delay INTEGER006
AnsiPos STRING018 + 2, STRING021
Print STRING004
Delay 1
AnsiPos STRING018 + 2, STRING021
Print STRING017
Delay INTEGER006
AnsiPos STRING018 + 3, STRING021
Print STRING004
Delay 1
AnsiPos STRING018 + 3, STRING021
Print STRING017
Delay INTEGER006
AnsiPos STRING018 + 4, STRING021
Print STRING004
Delay 1
AnsiPos STRING018 + 4, STRING021
Print STRING017
Delay INTEGER006
AnsiPos STRING018 + 5, STRING021
Print STRING004
Delay 1
AnsiPos STRING018 + 5, STRING021
Print STRING017
Delay INTEGER006
AnsiPos STRING018 + 6, STRING021
Print STRING004
Delay 1
AnsiPos STRING018 + 6, STRING021
Print STRING017
Delay INTEGER006
AnsiPos STRING018 + 7, STRING021
Print STRING004
Delay 1
AnsiPos STRING018 + 7, STRING021
Print STRING017
Delay INTEGER006
AnsiPos STRING018 + 8, STRING021
Print STRING004
Delay 1
AnsiPos STRING018 + 8, STRING021
Print STRING017
Delay INTEGER006
AnsiPos STRING018 + 9, STRING021
Print STRING004
Delay 1
AnsiPos STRING018 + 9, STRING021
Print STRING017
Delay INTEGER006
AnsiPos STRING018 + 10, STRING021
Print STRING004
Delay 1
AnsiPos STRING018 + 10, STRING021
Print STRING017
Delay INTEGER006
AnsiPos STRING018 + 11, STRING021
Print STRING004
Delay 1
AnsiPos STRING018 + 11, STRING021
Print STRING017
Delay INTEGER006
AnsiPos STRING018 + 12, STRING021
Print STRING004
Delay 1
AnsiPos STRING018 + 12, STRING021
Print STRING017
Delay INTEGER006
AnsiPos STRING018 + 13, STRING021
Print STRING004
Delay 1
AnsiPos STRING018 + 13, STRING021
Print STRING017
Delay INTEGER006
AnsiPos STRING018 + 14, STRING021
Print STRING004
Delay 1
AnsiPos STRING018 + 14, STRING021
Print STRING017
Delay INTEGER006
AnsiPos STRING018 + 15, STRING021
Print STRING004
Delay 1
AnsiPos STRING018 + 15, STRING021
Print STRING017
AnsiPos STRING013, STRING014
If (BOOLEAN002) Then
PrintLn STRING022
Else
PrintLn STRING011 + "@CARRIER@"
Endif
AnsiPos STRING006, STRING007
PrintLn " "
AnsiPos STRING006, STRING007
PrintLn STRING015
AnsiPos 32, 23
Print "@WAIT@"
EndProc
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 Cls
; 6 Goto
; 3 Let
; 68 Print
; 11 PrintLn
; 4 If
; 1 DispFile
; 1 FOpen
; 1 FClose
; 32 FGet
; 62 Delay
; 1 GetToken
; 78 AnsiPos
; 1 EndProc
;
;
; ■ Functions used :
;
; 65 +
; 4 !
; 2 PPEPath()
; 1 OnLocal()
; 1 AnsiOn()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 4 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------