home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
T
/
TWR-UPLO.ZIP
/
UPLOAD.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1997-07-26
|
5KB
|
296 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.3O (Encryption type II) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
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
String STRING014
String STRING015
String STRING016
String STRING017
;------------------------------------------------------------------------------
:LABEL001
Cls
StartDisp 1
DispFile PPEPath() + "upload.pcb", 1
:LABEL002
STRING001 = "■PRIVATE UPLOAD■"
STRING003 = "■PUBLIC UPLOAD■"
STRING004 = "■PROTOKOLL■"
STRING005 = " Private Upload "
STRING006 = " Public Upload "
STRING007 = " Protokoll "
STRING008 = "■ABORT■"
STRING009 = " Abort "
STRING012 = "■SHOW RULES■"
STRING013 = " Show Rules "
STRING002 = ""
AnsiPos 11, 13
PrintLn "@X04", STRING001, "@X04"
AnsiPos 29, 13
PrintLn "@X09", STRING006, "@X09"
AnsiPos 46, 13
PrintLn "@X09", STRING007, "@X09"
AnsiPos 59, 13
PrintLn "@X09", STRING009, "@X09"
AnsiPos 30, 15
PrintLn "@X09", STRING013, "@X09"
While (STRING002 == "") Do
STRING002 = Inkey()
EndWhile
If (STRING002 == Chr(13)) Goto LABEL007
If (STRING002 == Chr(27)) Goto LABEL011
If (STRING002 == "RIGHT") Goto LABEL003
If (STRING002 == "LEFT") Goto LABEL005
If (STRING002 == "DOWN") Goto LABEL006
If (STRING002 == "UP") Goto LABEL006
Goto LABEL002
:LABEL003
STRING002 = ""
AnsiPos 11, 13
PrintLn "@X09", STRING005, "@X09"
AnsiPos 29, 13
PrintLn "@X04", STRING003, "@X04"
AnsiPos 46, 13
PrintLn "@X09", STRING007, "@X09"
AnsiPos 59, 13
PrintLn "@X09", STRING009, "@X09"
AnsiPos 30, 15
PrintLn "@X09", STRING013, "@X09"
While (STRING002 == "") Do
STRING002 = Inkey()
EndWhile
If (STRING002 == Chr(27)) Goto LABEL011
If (STRING002 == Chr(13)) Goto LABEL008
If (STRING002 == "RIGHT") Goto LABEL004
If (STRING002 == "LEFT") Goto LABEL002
If (STRING002 == "DOWN") Goto LABEL006
If (STRING002 == "UP") Goto LABEL006
Goto LABEL003
:LABEL004
STRING002 = ""
AnsiPos 11, 13
PrintLn "@X09", STRING005, "@X09"
AnsiPos 29, 13
PrintLn "@X09", STRING006, "@X09"
AnsiPos 46, 13
PrintLn "@X04", STRING004, "@X04"
AnsiPos 59, 13
PrintLn "@X09", STRING009, "@X09"
AnsiPos 30, 15
PrintLn "@X09", STRING013, "@X09"
While (STRING002 == "") Do
STRING002 = Inkey()
EndWhile
If (STRING002 == Chr(27)) Goto LABEL011
If (STRING002 == Chr(13)) Goto LABEL009
If (STRING002 == "RIGHT") Goto LABEL005
If (STRING002 == "LEFT") Goto LABEL003
If (STRING002 == "DOWN") Goto LABEL006
If (STRING002 == "UP") Goto LABEL006
Goto LABEL004
:LABEL005
STRING002 = ""
AnsiPos 11, 13
PrintLn "@X09", STRING005, "@X09"
AnsiPos 29, 13
PrintLn "@X09", STRING006, "@X09"
AnsiPos 46, 13
PrintLn "@X09", STRING007, "@X09"
AnsiPos 59, 13
PrintLn "@X04", STRING008, "@X04"
AnsiPos 30, 15
PrintLn "@X09", STRING013, "@X09"
While (STRING002 == "") Do
STRING002 = Inkey()
EndWhile
If (STRING002 == Chr(27)) Goto LABEL011
If (STRING002 == Chr(13)) Goto LABEL011
If (STRING002 == "RIGHT") Goto LABEL002
If (STRING002 == "LEFT") Goto LABEL004
If (STRING002 == "DOWN") Goto LABEL006
If (STRING002 == "UP") Goto LABEL006
Goto LABEL005
:LABEL006
STRING002 = ""
AnsiPos 11, 13
PrintLn "@X09", STRING005, "@X09"
AnsiPos 29, 13
PrintLn "@X09", STRING006, "@X09"
AnsiPos 46, 13
PrintLn "@X09", STRING007, "@X09"
AnsiPos 59, 13
PrintLn "@X09", STRING009, "@X09"
AnsiPos 30, 15
PrintLn "@X04", STRING012, "@X04"
While (STRING002 == "") Do
STRING002 = Inkey()
EndWhile
If (STRING002 == Chr(27)) Goto LABEL006
If (STRING002 == Chr(13)) Goto LABEL010
If (STRING002 == "RIGHT") Goto LABEL005
If (STRING002 == "LEFT") Goto LABEL002
If (STRING002 == "DOWN") Goto LABEL005
If (STRING002 == "UP") Goto LABEL002
Goto LABEL006
:LABEL007
STRING010 = "TwR.ZIP"
STRING011 = "--==■TwR Rules Da World■==--"
KbdStuff "U" + Chr(13) + STRING010 + Chr(13) + "/" + STRING011 + Chr(13) + Chr(13) + Chr(13) + Chr(13)
End
:LABEL008
STRING010 = "TwR.ZIP"
STRING011 = "--==■TwR Rules Da World■==--"
KbdStuff "U" + Chr(13) + STRING010 + Chr(13) + STRING011 + Chr(13) + Chr(13) + Chr(13) + Chr(13)
End
:LABEL009
Cls
Command 0, "T"
Delay 10
PrintLn "@X09New Protokoll Choosen@X09"
Goto LABEL001
:LABEL010
Cls
DispFile PPEPath() + "rules.pcb", 1
FOpen 1, PPEPath() + "upload.rul", 3, 2
FGet 1, STRING012
FGet 1, STRING013
FGet 1, STRING014
FGet 1, STRING015
FGet 1, STRING016
FGet 1, STRING017
FClose 1
AnsiPos 22, 15
PrintLn "@X03", STRING012, "@X03"
AnsiPos 22, 16
PrintLn "@X03", STRING013, "@X03"
AnsiPos 22, 17
PrintLn "@X03", STRING014, "@X03"
AnsiPos 22, 18
PrintLn "@X03", STRING015, "@X03"
AnsiPos 22, 19
PrintLn "@X03", STRING016, "@X03"
AnsiPos 22, 20
PrintLn "@X03", STRING017, "@X03"
Delay 4
PrintLn ""
FreshLine
Wait
Goto LABEL001
:LABEL011
Cls
Delay 4
AnsiPos 30, 3
PrintLn "@X05a@X05"
Delay 4
AnsiPos 30, 3
PrintLn "@X05HaN@X05"
Delay 4
AnsiPos 30, 3
PrintLn "@X05 HaNi@X05"
Delay 4
AnsiPos 30, 3
PrintLn "@X05y HaNiB@X05"
Delay 4
AnsiPos 30, 3
PrintLn "@X05By HaNiBa@X05"
Delay 4
AnsiPos 30, 3
PrintLn "@X05 By HaNiBaL@X05"
Delay 4
AnsiPos 30, 3
PrintLn "@X05e By HaNiBaL^@X05"
Delay 4
AnsiPos 30, 3
PrintLn "@X05ne By HaNiBaL^T@X05"
Delay 4
AnsiPos 30, 3
PrintLn "@X05one By HaNiBaL^Tw@X05"
Delay 4
AnsiPos 30, 3
PrintLn "@X05Done By HaNiBaL^TwR@X05"
Delay 4
AnsiPos 30, 3
PrintLn "@X03Done By HaNiBaL^TwR@X03"
AnsiPos 30, 10
Delay 8
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 3 End
; 4 Cls
; 1 Wait
; 48 Goto
; 24 Let
; 44 PrintLn
; 35 If
; 2 DispFile
; 1 FOpen
; 1 FClose
; 6 FGet
; 1 StartDisp
; 14 Delay
; 2 KbdStuff
; 43 AnsiPos
; 1 FreshLine
; 1 Command
;
;
; ■ Functions used :
;
; 20 +
; 35 ==
; 5 !
; 22 Chr()
; 5 Inkey()
; 3 PPEPath()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 5 While/EndWhile
; 0 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------