home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
T
/
TRANS.ZIP
/
TRANS.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-09-08
|
6KB
|
354 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
;------------------------------------------------------------------------------
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
;------------------------------------------------------------------------------
Cls
AnsiPos 1, 1
PrintLn "@X0FT@X07RANS-@X0FO@X07-@X0FF@X07LASH - @X0FV1.1b"
AnsiPos 60, 1
PrintLn "@X0Fd@X07one @X0Fb@X07y: -@X04M@X0CO@X0EN@X0FS@X0ET@X0CE@X04R@X07-"
If (Exist(PPEPath() + PPEName() + ".ANS")) DispFile PPEPath() + PPEName() + ".ANS", 1
STRING002 = Chr(13)
STRING008 = TokenStr()
STRING012 = 0
If (PcbNode() == 0) Then
If (FileInf(GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\FLIST.", 1)) STRING012 = 1
Else
If (FileInf(GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\FLIST." + String(PcbNode()), 1)) STRING012 = 1
Endif
If (STRING012 == 1) Then
If (Exist(PPEPath() + "FLAGDL.ANS")) DispFile PPEPath() + "FLAGDL.ANS", 1
STRING010 = "THERE ARE FILES FLAGGED FOR DOWNLOAD!"
STRING009 = 21
STRING011 = 0
Newline
STRING007 = GetY()
:LABEL001
If (STRING009 == 58) Goto LABEL002
Inc STRING009
Inc STRING011
AnsiPos STRING009, STRING007
Print "@X0F■"
Delay 1
Print Chr(8)
Print "@X8C" + Mid(STRING010, STRING011, 1)
Goto LABEL001
:LABEL002
Beep
Newlines 2
STRING007 = GetY()
AnsiPos 1, STRING007
Print "@X1FABORT UPLOAD@X07 ─ @X0FU@X09PLOAD AND LOOSE FLAGGED FILES @X07─ @X0FD@X09OWNLOAD FIRST"
STRING014 = 1
:LABEL003
AnsiPos 1, STRING007
:LABEL004
STRING013 = ""
STRING013 = Upper(Inkey())
If (STRING013 == STRING002) Goto LABEL015
If (STRING013 <> "") Goto LABEL005
Goto LABEL004
:LABEL005
If (STRING013 == "LEFT") Then
If (STRING014 == 1) Goto LABEL011
If (STRING014 == 2) Goto LABEL007
Goto LABEL009
Endif
If (STRING013 == "RIGHT") Then
If (STRING014 == 1) Goto LABEL008
If (STRING014 == 2) Goto LABEL010
Goto LABEL006
Endif
If (STRING013 == "A") Goto LABEL012
If (STRING013 == "U") Goto LABEL013
If (STRING013 == "D") Goto LABEL014
Goto LABEL004
:LABEL006
AnsiPos 1, STRING007
Print "@X1FABORT UPLOAD"
AnsiPos 49, STRING007
Print "@X0FD@X09OWNLOAD FIRST"
STRING014 = 1
Goto LABEL003
:LABEL007
AnsiPos 1, STRING007
Print "@X1FABORT UPLOAD"
AnsiPos 16, STRING007
Print "@X0FU@X09PLOAD AND LOOSE FLAGGED FILES"
STRING014 = 1
Goto LABEL003
:LABEL008
AnsiPos 16, STRING007
Print "@X1FUPLOAD AND LOOSE FLAGGED FILES"
AnsiPos 1, STRING007
Print "@X0FA@X09BORT UPLOAD"
STRING014 = 2
Goto LABEL003
:LABEL009
AnsiPos 16, STRING007
Print "@X1FUPLOAD AND LOOSE FLAGGED FILES"
AnsiPos 49, STRING007
Print "@X0FD@X09OWNLOAD FIRST"
STRING014 = 2
Goto LABEL003
:LABEL010
AnsiPos 49, STRING007
Print "@X1FDOWNLOAD FIRST"
AnsiPos 16, STRING007
Print "@X0FU@X09PLOAD AND LOOSE FLAGGED FILES"
STRING014 = 3
Goto LABEL003
:LABEL011
AnsiPos 49, STRING007
Print "@X1FDOWNLOAD FIRST"
AnsiPos 1, STRING007
Print "@X0FA@X09BORT UPLOAD"
STRING014 = 3
Goto LABEL003
:LABEL012
Print "@X9FABORT UPLOAD@X07 ─ @X0FU@X09PLOAD AND LOOSE FLAGGED FILES @X07─ @X0FD@X09OWNLOAD FIRST"
DefColor
Newline
End
:LABEL013
Print "@X0FA@X09BORT UPLOAD@X07 ─ @X9FUPLOAD AND LOOSE FLAGGED FILES@X07 ─ @X0FD@X09OWNLOAD FIRST"
DefColor
Newline
Goto LABEL016
:LABEL014
Print "@X0FA@X09BORT UPLOAD @X07─ @X0FU@X09PLOAD AND LOOSE FLAGGED FILES @X07─ @X9FDOWNLOAD FIRST"
DefColor
Newline
KbdStuff "D" + STRING002 + STRING002 + STRING002
End
:LABEL015
If (STRING014 == 1) Goto LABEL012
If (STRING014 == 2) Goto LABEL013
If (STRING014 == 3) Goto LABEL014
Endif
:LABEL016
For STRING004 = Goto To 7
STRING003 = String(Random(9))
STRING001 = STRING001 + STRING003
Next
STRING001 = STRING001 + ".ZIP"
Newline
STRING007 = GetY()
AnsiPos 1, STRING007
Print "@X0FE@X07NTER @X0FA D@X07ESCRIPTION @X0FO@X07F @X0FT@X07HE @X0FF@X07ILE@X0F(@X07S@X0F) @X0E[@X0FY@X07/@X0FN@X0E] [@X0FENTER@X0E]@X07=@X0FNo@X07?"
AnsiPos 54, STRING007
:LABEL017
STRING005 = ""
STRING005 = Inkey()
If (Lower((STRING005 == "y"))) Goto LABEL018
If ((STRING005 == STRING002) || (Lower(STRING005) == "n")) Goto LABEL032
Goto LABEL017
:LABEL018
Newlines 2
STRING001 = ""
STRING015 = "1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-_!"
STRING003 = Chr(8)
STRING009 = 0
STRING008 = ""
STRING007 = GetY()
AnsiPos 1, STRING007
Print "@X0FE@X07nter @X0Ft@X07he @X0FF@X07ilename @X0Ft@X07o @X0FU@X07pload @X0E[@X0FENTER@X0E]@X07=@X0Fnone@X07?"
AnsiPos 44, STRING007
:LABEL019
STRING005 = ""
STRING005 = Inkey()
If (STRING005 == STRING002) Goto LABEL020
If (STRING005 == STRING003) Goto LABEL023
If (STRING005 == Chr(27)) Goto LABEL021
If ((STRING005 == ".") && (STRING009 > 0)) Goto LABEL024
If (STRING005 <> "") Goto LABEL022
Goto LABEL019
:LABEL020
If (STRING009 == 0) End
Goto LABEL032
:LABEL021
STRING004 = 0
STRING009 = 0
STRING001 = ""
AnsiPos 44, STRING007
Print " "
AnsiPos 44, STRING007
Goto LABEL019
:LABEL022
If (InStr(STRING015, STRING005) == 0) Goto LABEL019
Inc STRING009
STRING001 = STRING001 + STRING005
Print STRING005
If (STRING009 == 8) Goto LABEL024
Goto LABEL019
:LABEL023
If (STRING009 == 0) Goto LABEL019
Dec STRING009
Print STRING003 + " " + STRING003
STRING001 = Left(STRING001, Len(STRING001) - 1)
Goto LABEL019
:LABEL024
STRING004 = 0
STRING001 = STRING001 + "."
Print "."
:LABEL025
STRING005 = ""
STRING005 = Inkey()
If (STRING005 == STRING002) Goto LABEL029
If (STRING005 == STRING003) Goto LABEL027
If (STRING005 == Chr(27)) Goto LABEL021
If (STRING005 == ".") Goto LABEL025
If (STRING005 <> "") Goto LABEL026
Goto LABEL025
:LABEL026
If (STRING004 == 3) Goto LABEL025
If (InStr(STRING015, STRING005) == 0) Goto LABEL025
Inc STRING004
STRING001 = STRING001 + STRING005
Print STRING005
Goto LABEL025
:LABEL027
If (STRING004 == 0) Goto LABEL028
Dec STRING004
Print STRING003 + " " + STRING003
STRING001 = Left(STRING001, Len(STRING001) - 1)
Goto LABEL025
:LABEL028
Print STRING003 + " " + STRING003 + STRING003 + " " + STRING003
STRING001 = Left(STRING001, Len(STRING001) - 2)
Dec STRING009
Goto LABEL019
:LABEL029
Newlines 2
STRING007 = GetY()
AnsiPos 1, STRING007
Print "@X0FU@X07se @X0EFILE_ID.DIZ @X0Fa@X07s @X0FD@X07escription @X0E[@X0FY@X07/@X0FN@X0E] [@X0FENTER@X0E]@X07=@X0FY@X07?"
AnsiPos 49, STRING007
:LABEL030
STRING005 = ""
STRING005 = Inkey()
If ((STRING005 == STRING002) || (Lower(STRING005) == "y")) Goto LABEL032
If (Lower(STRING005) == "n") Goto LABEL031
Goto LABEL030
:LABEL031
Newline
If (STRING012 == 0) KbdStuff "UB" + STRING002 + STRING001 + STRING002
If (STRING012 == 1) KbdStuff "UB" + STRING002 + "Y" + STRING002 + STRING001 + STRING002
End
:LABEL032
STRING006 = "FILE_ID.DIZ WILL BE USED IF FOUND IN FILE" + STRING002 + STRING002 + STRING002
Newline
If (STRING012 == 0) KbdStuff "UB" + STRING002 + STRING001 + STRING002 + STRING006
If (STRING012 == 1) KbdStuff "UB" + STRING002 + "Y" + STRING002 + STRING001 + STRING002 + STRING006
End
Newline
If (STRING012 == 0) KbdStuff "UB" + STRING002 + STRING008
If (STRING012 == 1) KbdStuff "UB" + STRING002 + "Y" + STRING002 + STRING008
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 6 End
; 1 Cls
; 64 Goto
; 49 Let
; 29 Print
; 2 PrintLn
; 50 If
; 2 DispFile
; 3 DefColor
; 1 Delay
; 5 Inc
; 3 Dec
; 8 Newline
; 3 Newlines
; 1 Beep
; 7 KbdStuff
; 25 AnsiPos
;
;
; ■ Functions used :
;
; 56 +
; 3 -
; 43 ==
; 4 <>
; 1 <
; 1 <=
; 1 >
; 2 >=
; 5 !
; 3 &&
; 3 ||
; 3 Len(
; 4 Lower()
; 1 Upper()
; 1 Mid()
; 3 Left()
; 5 Chr()
; 2 InStr()
; 1 Random()
; 5 Inkey()
; 2 String()
; 4 PPEPath()
; 2 PcbNode()
; 4 GetEnv()
; 2 Exist()
; 1 TokenStr()
; 5 GetY()
; 2 FileInf()
; 2 PPEName()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 0 While/EndWhile
; 4 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------