home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
T
/
TGX!UL1.ZIP
/
UPLOAD.PPE
(
.txt
)
< prev
Wrap
PCBoard Programming Language Executable
|
1995-08-07
|
4KB
|
292 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
;------------------------------------------------------------------------------
Declare Procedure PROC001()
;------------------------------------------------------------------------------
PROC001()
End
;------------------------------------------------------------------------------
Procedure PROC001()
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
Integer INTEGER005
Integer INTEGER006
String STRING019
String STRING020
String STRING021
String STRING022
String STRING023
String STRING024
String STRING025
GetUser
INTEGER002 = CurSec()
INTEGER003 = ReadLine(PPEPath() + "upload.cfg", 1)
INTEGER004 = ReadLine(PPEPath() + "upload.cfg", 2)
STRING001 = ReadLine(PPEPath() + "upload.cfg", 3)
STRING002 = ReadLine(PPEPath() + "upload.cfg", 4)
STRING014 = ReadLine(PPEPath() + "upload.cfg", 5)
STRING015 = ReadLine(PPEPath() + "upload.cfg", 6)
STRING016 = ReadLine(PPEPath() + "upload.cfg", 7)
STRING017 = ReadLine(PPEPath() + "upload.cfg", 8)
STRING003 = ReadLine(PPEPath() + "upload.cfg", 9)
STRING018 = ReadLine(PPEPath() + "upload.cfg", 10)
INTEGER005 = ReadLine(PPEPath() + "upload.cfg", 11)
INTEGER006 = ReadLine(PPEPath() + "upload.cfg", 12)
STRING020 = ReadLine(PPEPath() + "upload.cfg", 13)
STRING021 = ReadLine(PPEPath() + "upload.cfg", 14)
STRING022 = ReadLine(PPEPath() + "upload.cfg", 15)
STRING019 = ReadLine(PPEPath() + "upload.cfg", 16)
STRING004 = STRING001 + STRING014
STRING005 = STRING001 + STRING015
STRING007 = STRING001 + STRING016
STRING006 = STRING001 + STRING017
STRING008 = STRING002 + STRING014
STRING009 = STRING002 + STRING015
STRING011 = STRING002 + STRING016
STRING010 = STRING002 + STRING017
Cls
If (STRING018 == "NO") Goto LABEL005
DispFile PPEPath() + "rules.pcb", 4 + 2 + 1
STRING023 = STRING021 + " " + STRING022 + "[YES]" + STRING021 + " [NO]"
STRING024 = STRING021 + " " + STRING021 + "[YES] " + STRING022 + "[NO]"
If (STRING019 == "YES") Goto LABEL001
If (STRING019 == "NO") Goto LABEL003
:LABEL001
AnsiPos INTEGER005, INTEGER006
Print STRING021 + STRING020 + STRING023
:LABEL002
STRING025 = Inkey()
If (STRING025 == "RIGHT") Goto LABEL003
If (STRING025 == "LEFT") Goto LABEL003
If (STRING025 == Chr(13)) Goto LABEL005
Goto LABEL002
:LABEL003
AnsiPos INTEGER005, INTEGER006
Print STRING021 + STRING020 + STRING024
:LABEL004
STRING025 = Inkey()
If (STRING025 == "RIGHT") Goto LABEL001
If (STRING025 == "LEFT") Goto LABEL001
If (STRING025 == Chr(13)) Goto LABEL019
Goto LABEL004
:LABEL005
Print "@X0F"
Cls
DispFile PPEPath() + "upload.pcb", 4 + 2 + 1
AnsiPos 58, 23
Print STRING001 + "CoDeD By: NaiLeZ [TgX]"
:LABEL006
AnsiPos INTEGER003, INTEGER004
Print STRING008
AnsiPos INTEGER003, INTEGER004 + 1
Print STRING005
AnsiPos INTEGER003, INTEGER004 + 2
Print STRING007
AnsiPos INTEGER003, INTEGER004 + 3
Print STRING006
:LABEL007
STRING012 = Inkey()
If (STRING012 == "DOWN") Goto LABEL009
If (STRING012 == "UP") Goto LABEL013
If (STRING012 == Chr(13)) Goto LABEL015
If (STRING012 == "LEFT") Then
:LABEL008
STRING013 = Inkey()
If (STRING013 == "END") Then
U_Sec = 80
PutUser
Endif
If (STRING013 == "HOME") Then
U_Sec = INTEGER002
PutUser
Endif
If (STRING013 == "DOWN") Goto LABEL009
If (STRING013 == "UP") Goto LABEL013
Goto LABEL008
Endif
Goto LABEL007
:LABEL009
AnsiPos INTEGER003, INTEGER004
Print STRING004
AnsiPos INTEGER003, INTEGER004 + 1
Print STRING009
AnsiPos INTEGER003, INTEGER004 + 2
Print STRING007
AnsiPos INTEGER003, INTEGER004 + 3
Print STRING006
AnsiPos 58, 23
Print STRING001 + "CoDeD By: NaiLeZ [TgX]"
:LABEL010
STRING012 = Inkey()
If (STRING012 == "UP") Goto LABEL006
If (STRING012 == "DOWN") Goto LABEL011
If (STRING012 == Chr(13)) Goto LABEL016
Goto LABEL010
:LABEL011
AnsiPos INTEGER003, INTEGER004
Print STRING004
AnsiPos INTEGER003, INTEGER004 + 1
Print STRING005
AnsiPos INTEGER003, INTEGER004 + 2
Print STRING011
AnsiPos INTEGER003, INTEGER004 + 3
Print STRING006
:LABEL012
STRING012 = Inkey()
If (STRING012 == "UP") Goto LABEL009
If (STRING012 == "DOWN") Goto LABEL013
If (STRING012 == Chr(13)) Goto LABEL017
Goto LABEL012
:LABEL013
AnsiPos INTEGER003, INTEGER004
Print STRING004
AnsiPos INTEGER003, INTEGER004 + 1
Print STRING005
AnsiPos INTEGER003, INTEGER004 + 2
Print STRING007
AnsiPos INTEGER003, INTEGER004 + 3
Print STRING010
:LABEL014
STRING012 = Inkey()
If (STRING012 == "UP") Goto LABEL011
If (STRING012 == "DOWN") Goto LABEL006
If (STRING012 == Chr(13)) Goto LABEL018
Goto LABEL014
:LABEL015
Print "@X0F"
Cls
KbdStuff "u" + Chr(13)
KbdStuff "FILENAME.EXP" + Chr(13)
KbdStuff "FILE_ID.DIZ INSIDE"
KbdStuff Chr(13)
KbdStuff Chr(13) + Chr(13)
End
:LABEL016
Print "@X0F"
Cls
KbdStuff "u" + Chr(13)
KbdStuff "FILENAME.EXP"
KbdStuff Chr(13)
KbdStuff "/FILE_ID.DIZ INSIDE"
KbdStuff Chr(13)
KbdStuff Chr(13) + Chr(13)
End
:LABEL017
Print "@X0F"
Cls
Call STRING003
Goto LABEL005
:LABEL018
Print "@X0F"
Cls
KbdStuff Chr(13) + Chr(13)
KbdStuff "menu" + Chr(13)
End
:LABEL019
Print "@X0F"
Cls
KbdStuff "menu" + Chr(13)
End
EndProc
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 5 End
; 7 Cls
; 34 Goto
; 36 Let
; 26 Print
; 26 If
; 2 DispFile
; 1 GetUser
; 2 PutUser
; 14 KbdStuff
; 1 Call
; 20 AnsiPos
; 1 EndProc
;
;
; ■ Functions used :
;
; 66 +
; 26 ==
; 3 !
; 20 Chr()
; 7 Inkey()
; 18 PPEPath()
; 16 ReadLine()
; 1 CurSec()
;
;------------------------------------------------------------------------------
;
; Analysis flags : WC
;
; W - Write user ■ 5
; Program writes a user record. Although this may be normal for a
; User Editor, it may also be a way to modify an account level.
; ■ Search for : PUTUSER
;
; C - Call child PPE ■ 3
; This is usually normal, but may be a tricky way to launch some
; sysop-only commands.
; ■ Search for : CALL
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 3 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------