home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
TKGALORE.ZIP
/
TK-LAYMA.ZIP
/
LAYMAH.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-05-16
|
4KB
|
155 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
;------------------------------------------------------------------------------
String TSTRING001(10)
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
Byte BYTE001
Byte BYTE002
;------------------------------------------------------------------------------
FOpen 1, PPEPath() + "LAYMAH.DAT", 0, 0
For BYTE001 = 1 To 10
FGet 1, TSTRING001(BYTE001)
Next
FClose 1
:LABEL001
PrintLn "@CLS@@POFF@@X0F @X05____ _______ ___ ___ ______ ______ _______ _______"
PrintLn "@X05 | @X0D:@X05| | ___ @X0D:@X05|\ \/ /|@X0D: @X05| @X0D:@X05| ___ @X0D:@X05| | @X0D:@X05|"
PrintLn "@X05 | |___| . | \. ./ | : | . | . | | |"
PrintLn "@X05 | @X0D.@X05|@X0D. @X05| @X0D.@X05| | | |@X0D. @X05| | @X0D.@X05|@X0D. @X05| @X0D.@X05|@X0D. @X05. |"
PrintLn "@X08.-----------@X05\______/@X08-@X05\__|__/@X08---@X05|__|@X08.--@X05\___|___|___/@X08-@X05\__|__/@X08-@X05\__|__/@X08-----tK----."
PrintLn "@X08| @X04Alias @X08| @X04Real Name @X08| @X04Address @X08| @X04phone number @X08|"
PrintLn "@X08|---------------+------------------+------------------------+-----------------|"
For BYTE001 = 1 To 10
PrintLn TSTRING001(BYTE001)
Next
PrintLn "@X08|---------------^------------------^------------------------^-----------------|"
PrintLn "| @X07Would you like to ad a lamer to the list yes@X07 / @X0Fno @X08|"
PrintLn "|=============================================================================|"
Print "`-----------------------------------------------------------------------------'"
AnsiPos 47, 19
Print "@X07yes / @X0Fno"
BYTE002 = 2
STRING002 = ""
While (STRING002 <> Chr(13)) Do
STRING002 = ""
While (STRING002 == "") Do
STRING002 = Inkey()
EndWhile
If (STRING002 == "RIGHT") BYTE002 = 2
If (STRING002 == "LEFT") BYTE002 = 1
If (BYTE002 == 1) Then
AnsiPos 47, 19
Print "@X0Fyes@X07 / no"
Endif
If (BYTE002 == 2) Then
AnsiPos 47, 19
Print "@X07yes / @X0Fno"
Endif
EndWhile
Cls
If (BYTE002 == 2) Then
FCreate 1, PPEPath() + "LAYMAH.DAT", 1, 3
For BYTE001 = 1 To 10
FPutLn 1, TSTRING001(BYTE001)
Next
FClose 1
End
Endif
PrintLn "@X0B T@X03oxic @X0BK@X03rystal @X0BL@X03amer @X0BL@X03ist @X0BV1@X03.@X0B0"
PrintLn "@X07@X01-------------------------------"
InputStr "@X0DL@X05amers @X0DA@X05lias@X0D: _", STRING003, 7, 13, Mask_Ascii(), 0
PrintLn
InputStr "@X0DL@X05amers @X0DN@X05ame@X0D: _", STRING004, 7, 16, Mask_Ascii(), 0
PrintLn
InputStr "@X0DL@X05amers @X0DA@X05ddres@X0D: _", STRING005, 7, 22, Mask_Ascii(), 0
PrintLn
InputStr "@X0DL@X05amers @X0DP@X05hone Number@X0D: _", STRING006, 7, 15, Mask_Ascii(), 0
BYTE001 = 10
While (BYTE001 <> 0) Do
TSTRING001(BYTE001) = TSTRING001(BYTE001 - 1)
Dec BYTE001
EndWhile
Log "Toxic Krystal Lamer List V1.0", 0
Log STRING003 + " was added.", 0
TSTRING001(1) = "@X08| @X06" + STRING003 + "@POS:17@@X08| @X05" + STRING004 + "@POS:36@@X08| @X03" + STRING005 + "@POS:61@@X08| @X01" + STRING006 + "@POS:79@@X08|"
Goto LABEL001
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 1 Cls
; 16 Goto
; 15 Let
; 4 Print
; 16 PrintLn
; 11 If
; 1 FCreate
; 1 FOpen
; 2 FClose
; 1 FGet
; 1 FPutLn
; 2 Log
; 4 InputStr
; 1 Dec
; 3 AnsiPos
;
;
; ■ Functions used :
;
; 14 +
; 1 -
; 6 ==
; 2 <>
; 3 <
; 3 <=
; 6 >=
; 9 !
; 6 &&
; 3 ||
; 1 Chr()
; 1 Inkey()
; 4 Mask_Ascii()
; 2 PPEPath()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 3 For/Next
; 3 While/EndWhile
; 3 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------