home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
T
/
TBS!NFS2.ZIP
/
NEWFS.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1995-11-17
|
10KB
|
420 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
;------------------------------------------------------------------------------
Boolean BOOLEAN001
Boolean BOOLEAN002
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
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
String STRING018
;------------------------------------------------------------------------------
STRING016 = "N"
BOOLEAN002 = 0
INTEGER007 = CurConf()
If (TokCount() <> 0) BOOLEAN002 = 1
While (TokCount() > 0) Do
STRING016 = STRING016 + " "
STRING016 = STRING016 + GetToken()
EndWhile
If (BOOLEAN002 == 1) Then
KbdStuff STRING016 + Chr(13)
Else
GetUser
FOpen 1, PPEPath() + "NFS.CFG", 0, 0
FGet 1, INTEGER005
FGet 1, INTEGER006
FGet 1, STRING006
FGet 1, STRING007
FGet 1, STRING008
FGet 1, STRING009
FGet 1, STRING010
FGet 1, STRING011
FGet 1, STRING015
FGet 1, INTEGER008
If (STRING006 == "Y") BOOLEAN001 = 1
If (STRING006 == "N") BOOLEAN001 = 0
If ((STRING006 <> "Y") && (STRING006 <> "N")) Then
PrintLn "@X04 FEHLER IN @X09NFS.CFG@X04 !!!"
Sound 400
Delay 5
Sound 0
Delay 15
Else
If ((STRING007 == "Y") || (STRING007 == "y")) Then
Cls
Else
PrintLn
Endif
If (INTEGER008 == 2) Goto LABEL001
If (INTEGER008 == 3) Goto LABEL002
If (INTEGER008 == 4) Goto LABEL003
PrintLn
PrintLn "@X02 scanning New Files since@X08"
PrintLn "@X08 ╔── ─────════════──── ──┴══════════──── ─ ────═════════───══──╗"
PrintLn " ¡ ■@X0F@X40 LAST CALL @X08·■·@X0F @X0BT@X0Foday @X08·■· @X0B5@X0F Days ago @X08·■·@X0F @X0BD@X0Fate @X08·■· @X0BQ@X0Fuit @X08 ¡"
PrintLn " ╚── ──══════───═══────═══ ─═════────═════ ─ ────═══════───══──╝"
Goto LABEL004
:LABEL001
PrintLn "@X03 scan@X0Bnin@X03g Ne@X0Bw Fil@X03es si@X0Bnce"
PrintLn "@X09 ╔── ─────════════───── ─┴══════════──── ─ ───═════════────══──╗"
PrintLn " ¡@X01 ■@X20 LAST CALL @X21@X01·■·@X0F T@X0Boday @X01·■· @X0F5@X0B Days ago @X01·■· @X0FD@X0Bate @X01·■· @X0FQ@X0Buit @X09 ¡"
PrintLn " ╚── ──══════───═══────═══ ─═════────═════ ─ ────═══════───══──╝"
Goto LABEL004
:LABEL002
PrintLn "@X02 sca@X0Annin@X02g Ne@X0Aw Fi@X02les si@X0Ance"
PrintLn "@X0A ╔── ─────════════───── ─┴══════════──── ─ ───═════════────══──╗"
PrintLn " ¡@X07 ■@X1F LAST CALL @X07·■· @X0AT@X02oday @X07·■· @X0A5 @X02Days ago @X07·■· @X0AD@X02ate @X07·■· @X0AQ@X02uit @X0A ¡"
PrintLn " ╚── ──══════───═══────═══ ─═════────═════ ─ ────═══════───══──╝"
Goto LABEL004
:LABEL003
PrintLn "@X05 scan@X0Dning Ne@X05w Fi@X0Dles s@X05in@X0Dce"
PrintLn "@X0D +------------------------^---------------------^^---------------+"
PrintLn " ( @X01 |@X0A LAST CALL@X01 ·|·@X0A T@X02oday @X01·|·@X0A 5@X02 Days ago @X01·|·@X0A D@X02ate @X01·|·@X0A Q@X02uit@X01 |@X0D )"
PrintLn " +----+------------+---------+--------------+--------+-----------+"
:LABEL004
AnsiPos 40, GetY() - 4
Print "@X08coded by [.Magic Walker.]"
AnsiPos 40, GetY()
Delay 3
Print "@X08coded by [@X07.Magic Walker.@X08]"
AnsiPos 40, GetY()
Delay 2
Print "@X08coded by [@X07.@X0FMagic Walker@X07.@X08]"
AnsiPos 40, GetY()
Delay 2
Print "@X08coded by [@X07.@X03Magic Walker@X07.@X08]"
AnsiPos 40, GetY()
Delay 2
Print "@X08coded by [@X07.@X08Magic Walker@X07.@X08]"
AnsiPos 40, GetY()
Delay 2
Print "@X08coded by [@X07.@X08Mc Walker@X07.@X08] "
AnsiPos 40, GetY()
Delay 2
Print "@X08coded by [@X07.@X08McW@X07.@X08] "
For INTEGER003 = 40 To 50
AnsiPos INTEGER003, GetY()
Print " @X08coded by [@X07.@X08McW@X07.@X08]"
Delay 1
Next
PrintLn
KeyFlush
AnsiPos 7, GetY() + 1
INTEGER004 = 0
STRING002 = Left(U_LDir(), 2) + Mid(U_LDir(), 4, 2) + Right(U_LDir(), 2)
STRING003 = Left(Date(), 2) + Mid(Date(), 4, 2) + Right(Date(), 2)
STRING012 = Day(Date() - 5)
STRING013 = Month(Date() - 5)
STRING014 = Right(Date(), 2)
If (STRING012 < 10) STRING012 = "0" + STRING012
If (STRING013 < 10) STRING013 = "0" + STRING013
If (STRING014 < 10) STRING014 = "0" + STRING014
STRING004 = STRING012 + STRING013 + STRING014
INTEGER002 = U_RecNum(U_Name())
INTEGER001 = INTEGER005
ShowOff
Join INTEGER005
PrintLn "@CONFNAME@"
Wait
ShowOn
:LABEL005
STRING001 = Inkey()
If (STRING001 == "RIGHT") Then
INTEGER004 = INTEGER004 + 1
If (INTEGER004 == 5) INTEGER004 = 0
Gosub LABEL006
Endif
If (STRING001 == "LEFT") Then
INTEGER004 = INTEGER004 - 1
If (INTEGER004 == -1) INTEGER004 = 4
Gosub LABEL006
Endif
If (Upper(STRING001) == "Q") Goto LABEL019
If (Upper(STRING001) == "L") Goto LABEL008
If (Upper(STRING001) == "T") Goto LABEL010
If (STRING001 == "5") Goto LABEL012
If (Upper(STRING001) == "D") Then
INTEGER004 = 3
Else
If (STRING001 == Chr(13)) Goto LABEL007
Goto LABEL005
:LABEL006
If ((INTEGER004 == 0) && (INTEGER008 == 1)) Print "@X08■@X0F@X40 LAST CALL @X08·■·@X0F @X0BT@X0Foday @X08·■· @X0B5@X0F Days ago @X08·■·@X0F @X0BD@X0Fate @X08·■· @X0BQ@X0Fuit @X08 ¡"
If ((INTEGER004 == 1) && (INTEGER008 == 1)) Print "@X08■@X0B L@X0FAST CALL @X08·■·@X40 Today @X08·■· @X0B5@X0F Days ago @X08·■·@X0F @X0BD@X0Fate @X08·■· @X0BQ@X0Fuit @X07"
If ((INTEGER004 == 2) && (INTEGER008 == 1)) Print "@X08■@X0B L@X0FAST CALL @X08·■·@X0B T@X0Foday @X08·■·@X40 5 Days ago @X08·■·@X0F @X0BD@X0Fate @X08·■· @X0BQ@X0Fuit @X07"
If ((INTEGER004 == 3) && (INTEGER008 == 1)) Print "@X08■@X0B L@X0FAST CALL @X08·■·@X0B T@X0Foday @X08·■· @X0B5@X0F Days ago @X08·■·@X40 Date @X08·■· @X0BQ@X0Fuit @X07"
If ((INTEGER004 == 4) && (INTEGER008 == 1)) Print "@X08■@X0B L@X0FAST CALL @X08·■·@X0B T@X0Foday @X08·■· @X0B5@X0F Days ago @X08·■·@X0F @X0BD@X0Fate @X08·■·@X40 Quit @X07"
If ((INTEGER004 == 0) && (INTEGER008 == 2)) Print "@X01■@X20 LAST CALL @X21@X01·■·@X0F T@X0Boday @X01·■· @X0F5@X0B Days ago @X01·■· @X0FD@X0Bate @X01·■· @X0FQ@X0Buit @X09 ¡ "
If ((INTEGER004 == 1) && (INTEGER008 == 2)) Print "@X01■@X0F L@X0BAST CALL @X21@X01·■·@X20 Today @X01·■· @X0F5@X0B Days ago @X01·■· @X0FD@X0Bate @X01·■· @X0FQ@X0Buit"
If ((INTEGER004 == 2) && (INTEGER008 == 2)) Print "@X01■@X0F L@X0BAST CALL @X21@X01·■·@X0F T@X0Boday @X01·■·@X20 5 Days ago @X01·■· @X0FD@X0Bate @X01·■· @X0FQ@X0Buit"
If ((INTEGER004 == 3) && (INTEGER008 == 2)) Print "@X01■@X0F L@X0BAST CALL @X21@X01·■·@X0F T@X0Boday @X01·■· @X0F5@X0B Days ago @X01·■·@X20 Date @X01·■· @X0FQ@X0Buit"
If ((INTEGER004 == 4) && (INTEGER008 == 2)) Print "@X01■@X0F L@X0BAST CALL @X21@X01·■·@X0F T@X0Boday @X01·■· @X0F5@X0B Days ago @X01·■· @X0FD@X0Bate @X01·■·@X20 Quit@X07"
If ((INTEGER004 == 0) && (INTEGER008 == 3)) Print "@X07■@X1F LAST CALL @X07·■· @X0AT@X02oday @X07·■· @X0A5 @X02Days ago @X07·■· @X0AD@X02ate @X07·■· @X0AQ@X02uit @X0A ¡"
If ((INTEGER004 == 1) && (INTEGER008 == 3)) Print "@X07■@X0A L@X02AST CALL @X07·■·@X1F Today @X07·■· @X0A5 @X02Days ago @X07·■· @X0AD@X02ate @X07·■· @X0AQ@X02uit"
If ((INTEGER004 == 2) && (INTEGER008 == 3)) Print "@X07■@X0A L@X02AST CALL @X07·■· @X0AT@X02oday @X07·■·@X1F 5 Days ago @X07·■· @X0AD@X02ate @X07·■· @X0AQ@X02uit"
If ((INTEGER004 == 3) && (INTEGER008 == 3)) Print "@X07■ @X0AL@X02AST CALL @X07·■· @X0AT@X02oday @X07·■· @X0A5 @X02Days ago @X07·■·@X1F Date @X07·■· @X0AQ@X02uit"
If ((INTEGER004 == 4) && (INTEGER008 == 3)) Print "@X07■ @X0AL@X02AST CALL @X07·■· @X0AT@X02oday @X07·■· @X0A5 @X02Days ago @X07·■· @X0AD@X02ate @X07·■·@X1F Quit@X07 "
If ((INTEGER004 == 0) && (INTEGER008 == 4)) Print "@X01|@X0A LAST CALL@X01 ·|·@X0A T@X02oday @X01·|·@X0A 5@X02 Days ago @X01·|·@X0A D@X02ate @X01·|·@X0A Q@X02uit @X01|@X0D )"
If ((INTEGER004 == 1) && (INTEGER008 == 4)) Print "@X01|@X0A L@X02AST CALL@X01 ·|·@X0A Today @X01·|·@X0A 5@X02 Days ago @X01·|·@X0A D@X02ate @X01·|·@X0A Q@X02uit @X01|@X0D"
If ((INTEGER004 == 2) && (INTEGER008 == 4)) Print "@X01|@X0A L@X02AST CALL@X01 ·|·@X0A T@X02oday @X01·|·@X0A 5 Days ago @X01·|·@X0A D@X02ate @X01·|·@X0A Q@X02uit @X01|@X0D"
If ((INTEGER004 == 3) && (INTEGER008 == 4)) Print "@X01|@X0A L@X02AST CALL@X01 ·|·@X0A T@X02oday @X01·|·@X0A 5@X02 Days ago @X01·|·@X0A Date @X01·|·@X0A Q@X02uit @X01|@X0D"
If ((INTEGER004 == 4) && (INTEGER008 == 4)) Print "@X01|@X0A L@X02AST CALL@X01 ·|·@X0A T@X02oday @X01·|·@X0A 5@X02 Days ago @X01·|·@X0A D@X02ate @X01·|·@X0A Quit @X01|@X0D "
AnsiPos 7, GetY()
Return
Endif
:LABEL007
If (INTEGER004 == 4) Goto LABEL019
If (INTEGER004 == 0) Goto LABEL008
If (INTEGER004 == 1) Goto LABEL010
If (INTEGER004 == 2) Goto LABEL012
If (INTEGER004 == 3) Then
AnsiPos 2, GetY() + 2
STRING017 = "DDMMYY"
InputStr STRING015, STRING017, 1, 6, "1234567890", 2 + 32
If (STRING017 == "DDMMYY") Goto LABEL019
If (ValDate(STRING017) == 0) Goto LABEL018
STRING005 = Left(STRING017, 2) + Mid(STRING017, 4, 2) + Right(STRING017, 2)
Else
Goto LABEL019
:LABEL008
If (INTEGER001 == INTEGER006 + 1) Goto LABEL019
Gosub LABEL016
If (Upper(STRING008) <> "Y") Goto LABEL009
Cls
Print STRING009 + "scanning Conference :" + STRING010 + "@CONFNAME@ "
Delay 1
Print "."
Delay 1
Print "."
Delay 1
Print "."
Delay 1
Print "."
Delay 2
Print "@X0Fdone"
Delay 3
:LABEL009
Dir "N;S;" + STRING002 + ";A"
Goto LABEL008
:LABEL010
If (INTEGER001 == INTEGER006 + 1) Goto LABEL019
Gosub LABEL016
If (Upper(STRING008) <> "Y") Goto LABEL011
Cls
Print STRING009 + "scanning Conference :" + STRING010 + "@CONFNAME@ "
Delay 1
Print "."
Delay 1
Print "."
Delay 1
Print "."
Delay 1
Print "."
Delay 2
Print "@X0Fdone"
Delay 3
:LABEL011
Dir "N;S;" + STRING003 + ";A"
Goto LABEL010
:LABEL012
If (INTEGER001 == INTEGER006 + 1) Goto LABEL019
Gosub LABEL016
If (Upper(STRING008) <> "Y") Goto LABEL013
Cls
Print STRING009 + "scanning Conference :" + STRING010 + "@CONFNAME@ "
Delay 1
Print "."
Delay 1
Print "."
Delay 1
Print "."
Delay 1
Print "."
Delay 2
Print "@X0Fdone"
Delay 3
:LABEL013
Dir "N;S;" + STRING004 + ";A"
Goto LABEL012
Endif
:LABEL014
If (INTEGER001 == INTEGER006 + 1) Goto LABEL019
Gosub LABEL016
If (Upper(STRING008) <> "Y") Goto LABEL015
Cls
Print STRING009 + "scanning Conference :" + STRING010 + "@CONFNAME@ "
Delay 1
Print "."
Delay 1
Print "."
Delay 1
Print "."
Delay 1
Print "."
Delay 2
Print "@X0Fdone"
Delay 3
:LABEL015
Dir "N;S;" + STRING017 + ";A"
Goto LABEL014
:LABEL016
STRING018 = Inkey()
If (Upper(STRING018) == "A") Goto LABEL019
If (INTEGER001 == INTEGER006) Goto LABEL019
If (ConfReg(INTEGER001) == 0) Goto LABEL017
ShowOff
Join INTEGER001 + ";Q"
ShowOn
INTEGER001 = INTEGER001 + 1
Return
:LABEL017
INTEGER001 = INTEGER001 + 1
If (INTEGER001 == INTEGER006) Goto LABEL019
Goto LABEL016
:LABEL018
AnsiPos 1, GetY()
Print "@X04Wrong Date !"
Delay 3
AnsiPos 1, GetY()
Print "@X0CWrong Date !"
Delay 5
AnsiPos 1, GetY()
Print "@X04Wrong Date !"
Delay 3
AnsiPos 1, GetY()
Print "@X08Wrong Date !"
Delay 3
AnsiPos 1, GetY()
Print " "
Delay 2
Endif
:LABEL019
ShowOff
Join INTEGER007
ShowOn
AnsiPos 1, GetY() + 2
PrintLn STRING011
Endif
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 5 Cls
; 1 Wait
; 52 Goto
; 33 Let
; 57 Print
; 22 PrintLn
; 63 If
; 1 FOpen
; 10 FGet
; 1 GetUser
; 1 InputStr
; 6 Gosub
; 2 Return
; 38 Delay
; 1 KbdStuff
; 3 Join
; 4 Dir
; 17 AnsiPos
; 2 Sound
; 3 ShowOn
; 3 ShowOff
; 1 KeyFlush
;
;
; ■ Functions used :
;
; 1 -
; 48 +
; 4 -
; 73 ==
; 7 <>
; 4 <
; 1 <=
; 1 >
; 2 >=
; 9 !
; 23 &&
; 2 ||
; 9 Upper()
; 3 Mid()
; 3 Left()
; 4 Right()
; 2 Chr()
; 6 Date()
; 1 U_Name()
; 3 U_LDir()
; 1 Month()
; 1 Day()
; 2 Inkey()
; 1 CurConf()
; 1 PPEPath()
; 1 ValDate()
; 1 GetToken()
; 17 GetY()
; 2 TokCount()
; 1 U_RecNum()
; 1 ConfReg()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 1 While/EndWhile
; 7 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------