home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
AGSUOL10.ZIP
/
AGSUOL.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-10-01
|
7KB
|
291 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
;------------------------------------------------------------------------------
Boolean BOOLEAN001
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer TINTEGER008(6)
Integer TINTEGER009(3)
String STRING001
String STRING002
String STRING003
String STRING004
String TSTRING005(15)
String TSTRING006(15)
String TSTRING007(3)
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
;------------------------------------------------------------------------------
STRING002 = "AcaDe v1.02"
STRING003 = "/┤EGiS Corp Anti-Decompilation Engine. (C)1994 By Lone Runner/AGS"
TINTEGER009(1) = 1
TINTEGER009(2) = 9
TINTEGER009(3) = 15
INTEGER003 = 0
INTEGER004 = 0
RdUNet PcbNode()
WrUNet PcbNode(), "Q", UN_Name(), UN_City(), "USiNG AGS UNReAL 1LiNeR", " "
STRING004 = "■ ALE v2.O ■ AEGiS LightBar Engine ■ By Number Six / AGS ■"
FOpen 1, PPEPath() + "AGSUOL.CFG", 0, 0
FGet 1, STRING011
FGet 1, STRING008
FGet 1, STRING009
FGet 1, TSTRING007(0)
FGet 1, TSTRING007(1)
FGet 1, TSTRING007(2)
For INTEGER005 = 0 To 5
FGet 1, TINTEGER008(INTEGER005)
Next
FClose 1
DispFile PPEPath() + "AGSUOLMN.PCB", 0
FOpen 1, PPEPath() + "AGSUOL.DAT", 0, 2
For INTEGER005 = 1 To 15
FGet 1, TSTRING005(INTEGER005)
FGet 1, TSTRING006(INTEGER005)
Next
Gosub LABEL003
FClose 1
Gosub LABEL002
:LABEL001
STRING010 = Inkey()
If (((STRING010 == "LEFT") || (STRING010 == "4")) && (INTEGER003 > 0)) Then
INTEGER004 = INTEGER003
Dec INTEGER003
Gosub LABEL002
Endif
If (((STRING010 == "RIGHT") || (STRING010 == "6")) && (INTEGER003 < 2)) Then
INTEGER004 = INTEGER003
Inc INTEGER003
Gosub LABEL002
Endif
If (STRING010 <> Chr(13)) Goto LABEL001
Print "@POFF@"
If (INTEGER003 == 0) Then
Color 7
End
Endif
If (INTEGER003 == 1) Goto LABEL006
If (INTEGER003 == 2) Then
Gosub LABEL004
Gosub LABEL005
AnsiPos 1, 23
Wait
Gosub LABEL004
Gosub LABEL003
Endif
Goto LABEL001
:LABEL002
AnsiPos TINTEGER008(INTEGER004 * 2 + 1), TINTEGER008(INTEGER004 * 2)
Print STRING009
Print TSTRING007(INTEGER004)
AnsiPos TINTEGER008(INTEGER003 * 2 + 1), TINTEGER008(INTEGER003 * 2)
Print STRING008
Print TSTRING007(INTEGER003)
Return
:LABEL003
For INTEGER005 = 1 To 15
INTEGER002 = 40
INTEGER001 = INTEGER002 - Len(StripAtx(TSTRING005(INTEGER005))) / 2
AnsiPos INTEGER001 - 1, 3 + INTEGER005
Print STRING009 + "[" + STRING011 + TSTRING005(INTEGER005) + STRING009 + "]"
Next
Return
:LABEL004
Color 7
For INTEGER005 = 1 To 15
AnsiPos 3, 3 + INTEGER005
Print Space(75)
Next
Return
:LABEL005
For INTEGER005 = 1 To 15
INTEGER002 = 40
INTEGER001 = INTEGER002 - Len(StripAtx(TSTRING006(INTEGER005))) / 2
AnsiPos INTEGER001 - 1, 3 + INTEGER005
Print STRING009 + "[" + STRING011 + TSTRING006(INTEGER005) + STRING009 + "]"
Next
Return
:LABEL006
Print "@POFF@"
AnsiPos 1, 19
PrintLn "@X0F┌@X09┴@X01── ─── ─ ── ── ── ─── ─── ── ───── ─── ─ ── ─── ─── ─@X09┴@X0F┐"
PrintLn "@X09│ │"
PrintLn "@X0F└@X09─@X01── ─── ─── ──── ─── ─ ─── ───── ─────── ────────── ── ──── ─ ── ─@X09─@X0F┘"
INTEGER007 = 73
BOOLEAN001 = 0
AnsiPos 3, 20
Gosub LABEL007
If (STRING013 <> "") Then
FOpen 1, PPEPath() + "AGSUOL.DAT", 1, 3
For INTEGER005 = 2 To 15
FPutLn 1, TSTRING005(INTEGER005)
FPutLn 1, TSTRING006(INTEGER005)
Next
GetUser
FPutLn 1, STRING013
FPutLn 1, "@X09■ @X01" + Mixed(U_Name()) + "@X09 ■ @X01" + U_City + "@X09 ■ @X01" + String(Date()) + "@X09 ■ @X01" + String(Time()) + "@X09 ■"
FClose 1
Endif
Print "@POFF@"
AnsiPos 1, 19
PrintLn "@X0F┌@X09┴@X01── ─── ─ ── ── ── ─── ─── ── ───── ─── ─ ── ─── ─── ─@X09┴@X0F┐"
PrintLn "@X09│ @X01T@X09H@X0FaNK YoU FoR USiNG ThE UNReaL ONeLiNeR v1.o1 │"
PrintLn "@X0F└@X09─@X01── ─── ─── ──── ─── ─ ─── ───── ─────── ────────── ── ──── ─ ── ─@X09─@X0F┘"
End
:LABEL007
INTEGER006 = 0
Gosub LABEL011
STRING012 = ""
STRING013 = ""
:LABEL008
STRING012 = Inkey()
If (STRING012 == "") Then
Goto LABEL008
Endif
If (Len(STRING012) > 1) Goto LABEL008
If (STRING012 == Chr(13)) Goto LABEL010
If ((STRING012 <> Chr(8)) && (STRING012 <> Chr(13))) Then
If (INTEGER006 < INTEGER007) Then
If (BOOLEAN001) Goto LABEL009
If (STRING012 <> Chr(9)) Then
STRING013 = STRING013 + STRING012
Inc INTEGER006
Gosub LABEL011
If ("" == "") Print STRING012
If ("" == "DOTS") Print "·"
Endif
:LABEL009
If (BOOLEAN001) Then
If (STRING012 <> Chr(9)) Then
STRING013 = STRING013 + STRING012
Inc INTEGER006
Gosub LABEL011
If ("" == "") Print STRING012
If ("" == "DOTS") Print "·"
Endif
Endif
Endif
Endif
If ((STRING012 == Chr(8)) && (INTEGER006 > 0)) Then
STRING013 = Mid(STRING013, 1, INTEGER006 - 1)
Dec INTEGER006
Backup 1
Print " "
Backup 1
Endif
Goto LABEL008
:LABEL010
Return
:LABEL011
If (Mid(STRING013, INTEGER006 - 3, 1) == " ") Color TINTEGER009(3)
If (Mid(STRING013, INTEGER006 - 2, 1) == " ") Color TINTEGER009(2)
If (Mid(STRING013, INTEGER006 - 1, 1) == " ") Color TINTEGER009(1)
If (INTEGER006 == 1) Color TINTEGER009(1)
If (INTEGER006 == 2) Color TINTEGER009(2)
If (INTEGER006 == 3) Color TINTEGER009(3)
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 1 Wait
; 8 Color
; 32 Goto
; 37 Let
; 15 Print
; 6 PrintLn
; 33 If
; 1 DispFile
; 3 FOpen
; 3 FClose
; 9 FGet
; 4 FPutLn
; 1 GetUser
; 12 Gosub
; 6 Return
; 3 Inc
; 2 Dec
; 1 RdUNet
; 1 WrUNet
; 9 AnsiPos
; 2 Backup
;
;
; ■ Functions used :
;
; 4 *
; 2 /
; 191 +
; 8 -
; 20 ==
; 6 <>
; 8 <
; 6 <=
; 3 >
; 12 >=
; 19 !
; 16 &&
; 8 ||
; 3 Len(
; 4 Mid()
; 1 Space()
; 132 Chr()
; 1 Date()
; 1 Time()
; 1 U_Name()
; 2 StripAtx()
; 2 Inkey()
; 2 String()
; 4 PPEPath()
; 2 PcbNode()
; 1 UN_Name()
; 1 UN_City()
; 1 Mixed()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 6 For/Next
; 0 While/EndWhile
; 12 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------