home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
FSUL20.ZIP
/
UPLOAD.PPE
(
.txt
)
< prev
Wrap
PCBoard Programming Language Executable
|
1993-09-22
|
4KB
|
152 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 1.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
String STRING001
String STRING002
String STRING003
String TSTRING004(9)
;------------------------------------------------------------------------------
:LABEL001
Cls
Print "@X08PWA-FSUL v2.0"
PrintLn "DC
╒═
════
═══════════════════════════════════════════╕"
PrintLn "C
│
░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ Uploading ░░░░
│"
PrintLn "C
╞
════════════════════════════════════════════════
╡"
PrintLn "C
│
Filename:
[C]C
│"
PrintLn "C
╘══════════════════════════════════════════
═════
═╛"
AnsiPos 28, 4
STRING001 = ""
InputStr "_", STRING001, 9, 12, Mask_File(), 8
If (((Len(STRING001) < 1) || (STRING001 == "A")) || (STRING001 == "G")) Goto LABEL008
FOpen 1, GetToken(), 0, 0
:LABEL002
If (Ferr(1)) Goto LABEL003
FGet 1, STRING002
If (Exist(STRING002 + STRING001) || Exist(STRING002 + STRING001 + ".ZIP")) Goto LABEL004
Goto LABEL002
:LABEL003
FClose 1
Goto LABEL005
:LABEL004
AnsiPos 1, 17
PrintLn "@X0CFile already exists here, try again!"
Wait
Goto LABEL001
:LABEL005
AnsiPos 1, 6
InputYN "@X09Does this file contain a FILE_ID.DIZ? @X0A[@X0FNo@X0A] : _", STRING003, 9
If ((STRING003 == "Y") || (STRING003 == "y")) Goto LABEL006
AnsiPos 1, 6
PrintLn " ╒═
════════
═══════════════════════════════════════╕"
PrintLn "C
│
1>C
│"
PrintLn "C
│
2>C
│"
PrintLn "C
│
3>C
│"
PrintLn "C│
4>C
│"
PrintLn "C│
5>C
│"
PrintLn "C│
6>C
│"
PrintLn "C│
7>C
│"
PrintLn "C
│
8>C
│"
PrintLn "C
│
9>C
│"
PrintLn "C
╘═════════════════════════════════════════
══════
═╛
"
For INTEGER001 = 1 To 9
AnsiPos 18, 6 + INTEGER001
InputStr "_", TSTRING004(INTEGER001), 8, 45, Mask_Ascii(), 512
If (Len(TSTRING004(1)) <= 6) TSTRING004(1) = TSTRING004(1) + " ."
If (Len(TSTRING004(INTEGER001)) < 1) Goto LABEL007
Next
AnsiPos 1, 17
Goto LABEL007
:LABEL006
INTEGER001 = 2
TSTRING004(1) = "<*> Archive Contains FILE_ID.DIZ <*>"
:LABEL007
If (INTEGER001 == 1) KbdStuff STRING001 + Chr(13) + TSTRING004(1)
If (INTEGER001 == 2) KbdStuff STRING001 + Chr(13) + TSTRING004(1) + Chr(13) + TSTRING004(2)
If (INTEGER001 == 3) KbdStuff STRING001 + Chr(13) + TSTRING004(1) + Chr(13) + TSTRING004(2) + Chr(13) + TSTRING004(3)
If (INTEGER001 == 4) KbdStuff STRING001 + Chr(13) + TSTRING004(1) + Chr(13) + TSTRING004(2) + Chr(13) + TSTRING004(3) + Chr(13) + TSTRING004(4)
If (INTEGER001 == 5) KbdStuff STRING001 + Chr(13) + TSTRING004(1) + Chr(13) + TSTRING004(2) + Chr(13) + TSTRING004(3) + Chr(13) + TSTRING004(4) + Chr(13) + TSTRING004(5)
If (INTEGER001 == 6) KbdStuff STRING001 + Chr(13) + TSTRING004(1) + Chr(13) + TSTRING004(2) + Chr(13) + TSTRING004(3) + Chr(13) + TSTRING004(4) + Chr(13) + TSTRING004(5) + Chr(13) + TSTRING004(6)
If (INTEGER001 == 7) KbdStuff STRING001 + Chr(13) + TSTRING004(1) + Chr(13) + TSTRING004(2) + Chr(13) + TSTRING004(3) + Chr(13) + TSTRING004(4) + Chr(13) + TSTRING004(5) + Chr(13) + TSTRING004(6) + Chr(13) + TSTRING004(7)
If (INTEGER001 == 8) KbdStuff STRING001 + Chr(13) + TSTRING004(1) + Chr(13) + TSTRING004(2) + Chr(13) + TSTRING004(3) + Chr(13) + TSTRING004(4) + Chr(13) + TSTRING004(5) + Chr(13) + TSTRING004(6) + Chr(13) + TSTRING004(7) + Chr(13) + TSTRING004(8)
If (INTEGER001 == 9) KbdStuff STRING001 + Chr(13) + TSTRING004(1) + Chr(13) + TSTRING004(2) + Chr(13) + TSTRING004(3) + Chr(13) + TSTRING004(4) + Chr(13) + TSTRING004(5) + Chr(13) + TSTRING004(6) + Chr(13) + TSTRING004(7) + Chr(13) + TSTRING004(8) + Chr(13) + TSTRING004(9)
:LABEL008
AnsiPos 1, 17
KbdStuff Chr(13)
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 1 Cls
; 1 Wait
; 12 Goto
; 6 Let
; 1 Print
; 17 PrintLn
; 16 If
; 1 FOpen
; 1 FClose
; 1 FGet
; 2 InputStr
; 1 InputYN
; 10 KbdStuff
; 7 AnsiPos
;
;
; ■ Functions used :
;
; 96 +
; 13 ==
; 3 <
; 2 <=
; 2 >=
; 2 !
; 2 &&
; 5 ||
; 3 Len(
; 1 Ferr()
; 46 Chr()
; 1 Mask_File()
; 1 Mask_Ascii()
; 1 GetToken()
; 2 Exist()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 0 While/EndWhile
; 0 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------