home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
TKGALORE.ZIP
/
TK-NUP.ZIP
/
NUP.PPE
(
.txt
)
< prev
Wrap
PCBoard Programming Language Executable
|
1996-03-29
|
2KB
|
119 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.1O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Boolean BOOLEAN001
Integer INTEGER001
String STRING001
String STRING002
String STRING003
String STRING004
;------------------------------------------------------------------------------
STRING002 = ReadLine(PPEPath() + "NUP.CFG", 1)
STRING003 = ReadLine(PPEPath() + "NUP.CFG", 2)
INTEGER001 = ReadLine(PPEPath() + "NUP.CFG", 3)
STRING004 = ReadLine(PPEPath() + "NUP.CFG", 4)
Cls
DispFile PPEPath() + "NUP.PCB", 0
AnsiPos 1, GetY()
Print "@CLREOL@" + STRING002
While (1) Do
STRING001 = ""
STRING001 = Inkey()
If ((STRING001 == "LEFT") || (STRING001 == "4")) Then
AnsiPos 1, GetY()
Print "@CLREOL@" + STRING002
BOOLEAN001 = 0
Endif
If ((STRING001 == "RIGHT") || (STRING001 == "6")) Then
AnsiPos 1, GetY()
Print "@CLREOL@" + STRING003
BOOLEAN001 = 1
Endif
If (STRING001 == Chr(13)) Break
EndWhile
If (BOOLEAN001 == 0) End
GetUser
PrintLn
If (U_Sec < INTEGER001) Then
Print "@X0FSorru dude you do not have the aXs needed to see it :("
End
Endif
FAppend 1, PPEPath() + "NUP.LOG", 0, 0
FPutLn 1, "User: " + U_Name() + " Date: " + String(Date()) + " Time: " + String(Time())
FClose 1
Cls
PrintLn "@X02The NUP is: " + STRING004
Print "@PAUSE@"
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 2 Cls
; 6 Goto
; 8 Let
; 5 Print
; 2 PrintLn
; 6 If
; 1 DispFile
; 1 FAppend
; 1 FClose
; 1 FPutLn
; 1 GetUser
; 3 AnsiPos
;
;
; ■ Functions used :
;
; 15 +
; 6 ==
; 1 <
; 4 !
; 2 ||
; 1 Chr()
; 1 Date()
; 1 Time()
; 1 U_Name()
; 1 Inkey()
; 2 String()
; 6 PPEPath()
; 4 ReadLine()
; 3 GetY()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 1 While/EndWhile
; 3 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------