home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
TR-XTRB2.ZIP
/
XTURBO.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1997-01-01
|
5KB
|
201 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
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
;------------------------------------------------------------------------------
If (!Exist(PPEPath() + "xturbo.pcb")) FCreate 4, PPEPath() + "xturbo.pcb", 2, 0
FPutLn 4, "@X08---------------@X07 @X08---@X07 @X08--@X07 "
FPutLn 4, " @X0BT@X03urbo@X0B L@X03ogon@X07 "
FPutLn 4, "@X08-----------------@X07 @X08------@X07 "
FPutLn 4, " "
FPutLn 4, " @X0Fa."
FPutLn 4, " @X0Fb."
FPutLn 4, " "
FPutLn 4, "@X08------------ -------- ------@X07 "
FPutLn 4, "@X3Fi@X03nput@X0D @X3Fc@X03hoice@X08:@X07 @X88_@X07 "
FPutLn 4, "@X08---------------------@X07 @X08---@X07 @X08 ---@X07 "
FPutLn 4, ""
FClose 4
If (Exist(PPEPath() + "xturbo.cfg")) Delete PPEPath() + "xturbo.cfg"
FCreate 3, PPEPath() + "xturbo.cfg", 2, 0
FPutLn 3, "30"
FPutLn 3, "6 5"
FPutLn 3, "6 6"
FPutLn 3, "YES"
FPutLn 3, "@X3B"
FPutLn 3, "@X08"
FPutLn 3, ""
FPutLn 3, "--- (XTurbo Version 2.o2 configuration file!) -------------------------------"
FPutLn 3, " Line One : The minimum security level to run the program. Users with access"
FPutLn 3, " levels higher than this number will go straight into displaying"
FPutLn 3, " the file Xpert.TXT."
FPutLn 3, " Line Two : The x/y co-ordinates of the `no turbo login'"
FPutLn 3, " Line Three: The x/y co-ordinates of the `yes turbo login'"
FPutLn 3, " Line Four : If `YES' the ppe will see if the user has the expert mode on."
FPutLn 3, " If he/she does, it will go straight into displaying the file"
FPutLn 3, " Xpert.TXT"
FPutLn 3, " Line Five : The PCB colour code for the selected litebar"
FPutLn 3, " Line Six : The PCB colour code for the non-selected litebar"
FPutLn 3, ""
FClose 3
If (!Exist(PPEPath() + "xturbo.cfg")) Log "@X0CERROR! XTURBO.PPE COULDNT FIND XTURBO.CFG!", 1
End
GetUser
STRING003 = ReadLine(PPEPath() + "xturbo.CFG", 1)
INTEGER001 = STRING003
STRING005 = ReadLine(PPEPath() + "xturbo.cfg", 2)
Tokenize STRING005
INTEGER002 = GetToken()
INTEGER003 = GetToken()
STRING006 = ReadLine(PPEPath() + "xturbo.cfg", 3)
Tokenize STRING006
INTEGER004 = GetToken()
INTEGER005 = GetToken()
STRING007 = ReadLine(PPEPath() + "xturbo.cfg", 4)
While ((Upper(STRING007) == "YES")) GetUser
If (U_Expert) Goto LABEL006
STRING008 = ReadLine(PPEPath() + "xturbo.cfg", 5)
STRING009 = ReadLine(PPEPath() + "xturbo.cfg", 6)
STRING001 = " No turbo login! "
STRING002 = " Yes turbo login! "
Print "@CLS@@POFF@"
DispFile PPEPath() + "xturbo.PCB", 1
:LABEL001
AnsiPos INTEGER002, INTEGER003
Print Upper(STRING008) + STRING001
AnsiPos INTEGER004, INTEGER005
Print Upper(STRING009) + STRING002
Color 0
Print " "
Backup 1
:LABEL002
STRING004 = ""
While ((STRING004 == "")) STRING004 = Inkey()
If ((Upper(STRING004) == "DOWN") || (STRING004 == "2")) Goto LABEL003
If ((Upper(STRING004) == "UP") || (STRING004 == "8")) Goto LABEL003
If (STRING004 == Chr(13)) Goto LABEL005
If (Upper(STRING004) == "A") Goto LABEL007
If (Upper(STRING004) == "B") Goto LABEL008
Goto LABEL002
:LABEL003
AnsiPos INTEGER002, INTEGER003
Print STRING009 + STRING001
AnsiPos INTEGER004, INTEGER005
Print STRING008 + STRING002
Color 0
Print " "
Backup 1
:LABEL004
STRING004 = ""
While ((STRING004 == "")) STRING004 = Inkey()
If ((Upper(STRING004) == "DOWN") || (STRING004 == "2")) Goto LABEL001
If ((Upper(STRING004) == "UP") || (STRING004 == "8")) Goto LABEL001
If (STRING004 == Chr(13)) Goto LABEL006
If (Upper(STRING004) == "A") Goto LABEL005
If (Upper(STRING004) == "B") Goto LABEL006
Goto LABEL004
:LABEL005
Print "@PON@@CLS@"
If (Exist(PPEPath() + "logon.txt")) DispFile PPEPath() + "LOGON.TXT", 1
End
:LABEL006
Print "@PON@@CLS@"
If (Exist(PPEPath() + "xpert.txt")) DispFile PPEPath() + "XPERT.TXT", 1
End
:LABEL007
AnsiPos 15, 9
Print "@X0Fa"
Delay 5
Goto LABEL005
:LABEL008
AnsiPos 15, 9
Print "@X0Fb"
Delay 5
Goto LABEL006
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 3 End
; 2 Color
; 17 Goto
; 17 Let
; 11 Print
; 19 If
; 3 DispFile
; 2 FCreate
; 2 FClose
; 30 FPutLn
; 2 GetUser
; 1 Delete
; 1 Log
; 2 Delay
; 2 Tokenize
; 6 AnsiPos
; 2 Backup
;
;
; ■ Functions used :
;
; 21 +
; 17 ==
; 2 !
; 4 ||
; 11 Upper()
; 2 Chr()
; 2 Inkey()
; 17 PPEPath()
; 6 ReadLine()
; 4 GetToken()
; 5 Exist()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 0 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------