home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
TKGALORE.ZIP
/
TK-DLED.ZIP
/
DLED.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-04-29
|
2KB
|
87 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.2O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
String STRING001
;------------------------------------------------------------------------------
Print Chr(13) + "@X0BE@X03dit @X0BO@X03ptions, @X1F Continue @X03 Add a File Remove a File List Batch "
INTEGER001 = 1
While (STRING001 <> Chr(13)) Do
STRING001 = ""
While (STRING001 == "") Do
STRING001 = Inkey()
EndWhile
If (STRING001 == "RIGHT") Inc INTEGER001
If (STRING001 == "LEFT") Dec INTEGER001
If (INTEGER001 == 0) INTEGER001 = 4
If (INTEGER001 == 5) INTEGER001 = 1
If (INTEGER001 == 1) Print Chr(13) + "@X0BE@X03dit @X0BO@X03ptions, @X1F Continue @X03 Add a File Remove a File List Batch "
If (INTEGER001 == 2) Print Chr(13) + "@X0BE@X03dit @X0BO@X03ptions, Continue @X1F Add a File @X03 Remove a File List Batch "
If (INTEGER001 == 3) Print Chr(13) + "@X0BE@X03dit @X0BO@X03ptions, Continue Add a File @X1F Remove a File @X03 List Batch "
If (INTEGER001 == 4) Print Chr(13) + "@X0BE@X03dit @X0BO@X03ptions, Continue Add a File Remove a File @X1F List Batch @X07"
EndWhile
PrintLn
If (INTEGER001 == 1) KbdStuff Chr(13)
If (INTEGER001 == 2) KbdStuff "A"
If (INTEGER001 == 3) KbdStuff "R"
If (INTEGER001 == 4) KbdStuff "L"
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 4 Goto
; 5 Let
; 5 Print
; 1 PrintLn
; 14 If
; 1 Inc
; 1 Dec
; 4 KbdStuff
;
;
; ■ Functions used :
;
; 5 +
; 13 ==
; 1 <>
; 2 !
; 7 Chr()
; 1 Inkey()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 2 While/EndWhile
; 0 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------