home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
T
/
TRAZSN10.ZIP
/
ZSCAN.PPE
(
.txt
)
< prev
Wrap
PCBoard Programming Language Executable
|
1995-02-13
|
3KB
|
170 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.O1 (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
String STRING001
String STRING002
String TSTRING003(2)
String TSTRING004(2000)
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String TSTRING013(40)
String STRING014
;------------------------------------------------------------------------------
STRING001 = "VkZScan"
STRING002 = "1.00"
FOpen 1, PPEPath() + "zscan.cfg", 0, 2
For INTEGER001 = 1 To 2
FGet 1, TSTRING003(INTEGER001)
Next
FGet 1, STRING012
FGet 1, STRING011
FClose 1
INTEGER003 = 0
STRING014 = TokenStr()
Tokenize STRING014
INTEGER004 = TokCount()
For INTEGER001 = 1 To INTEGER004
TSTRING013(INTEGER001) = Upper(GetToken())
Next
If (TSTRING013(1) == "/AREAS") Goto LABEL001
INTEGER005 = "@NUMDIR@"
If (INTEGER004 > 0) Then
If (((TSTRING013(INTEGER004) == "A") || (TSTRING013(INTEGER004) == "U")) || (Left(TSTRING013(INTEGER004), 1) > 0)) Then
INTEGER004 = INTEGER004 - 1
STRING008 = TSTRING013(INTEGER004 + 1)
Endif
For INTEGER001 = 1 To INTEGER004
STRING007 = STRING007 + TSTRING013(INTEGER001)
STRING007 = STRING007 + "|"
Next
STRING007 = RTrim(STRING007, "|")
Else
DispFile PPEPath() + "zscan.pcb", 1
While (STRING005 <> "ExitThisNow") Do
INTEGER003 = INTEGER003 + 1
STRING006 = ReplaceStr(TSTRING003(1), "%PATNUM", INTEGER003)
InputStr STRING006 + "_", STRING005, 15, 50, Mask_Ascii() + Mask_Num(), 256 + 8
If (STRING005 == "") Break
TSTRING004(INTEGER003) = STRING005
STRING005 = ""
EndWhile
If (TSTRING004(1) == "") Goto LABEL002
INTEGER002 = INTEGER003
For INTEGER001 = 1 To INTEGER002
STRING007 = STRING007 + TSTRING004(INTEGER001)
STRING007 = STRING007 + "|"
Next
STRING007 = RTrim(STRING007, "|")
STRING007 = LTrim(STRING007, "|")
:LABEL001
Print TSTRING003(2)
STRING010 = GetX()
STRING009 = GetY()
Print STRING011 + STRING012
AnsiPos STRING010, STRING009
InputStr "_", STRING008, 15, 10, Mask_Num() + "AUau", 256 + 8
If (STRING008 == "") STRING008 = STRING012
If (TSTRING013(1) == "/AREAS") Then
KbdStuff STRING008
End
Endif
Endif
:LABEL002
If (STRING007 <> "") KbdStuff "z;" + STRING007 + ";" + STRING008
PrintLn "@X02.:. @X05" + STRING001 + " @X02.:. @X04v" + STRING002 + " @X05-/- @X03REGiSTERED VERSiON @X05-\- @X08[@X03Vk!@X08] @X02(@X03TRA@X02/@X03PPE@X02)"
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 17 Goto
; 32 Let
; 2 Print
; 1 PrintLn
; 13 If
; 1 DispFile
; 1 FOpen
; 1 FClose
; 3 FGet
; 2 InputStr
; 1 Tokenize
; 2 KbdStuff
; 1 AnsiPos
;
;
; ■ Functions used :
;
; 25 +
; 1 -
; 7 ==
; 2 <>
; 4 <
; 4 <=
; 2 >
; 8 >=
; 8 !
; 8 &&
; 6 ||
; 1 Upper()
; 1 Left()
; 1 LTrim()
; 2 RTrim()
; 2 Mask_Num()
; 1 Mask_Ascii()
; 2 PPEPath()
; 1 GetToken()
; 1 TokenStr()
; 1 GetX()
; 1 GetY()
; 1 TokCount()
; 1 ReplaceStr()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 4 For/Next
; 1 While/EndWhile
; 3 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------