home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
T
/
THTZP100.ZIP
/
ZIPPY.PPE
(
.txt
)
< prev
Wrap
PCBoard Programming Language Executable
|
1995-01-04
|
1KB
|
123 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
;------------------------------------------------------------------------------
Integer INTEGER001
String STRING001
String STRING002
String STRING003
String STRING004
;------------------------------------------------------------------------------
STRING001 = ReadLine(PPEPath() + PPEName() + ".cnf", 1)
FClose -1
STRING003 = TokenStr()
If (!"0") STRING002 = STRING003 ; PPLC BUG!
STRING002 = ReplaceStr(STRING002, "&", " & ")
STRING002 = ReplaceStr(STRING002, "|", " | ")
STRING002 = ReplaceStr(STRING002, "!", " ! ")
STRING002 = ReplaceStr(STRING002, "(", " ( ")
STRING002 = ReplaceStr(STRING002, ")", " ) ")
Tokenize STRING002
For INTEGER001 = 1 To TokCount()
GetToken STRING004
Next
If (Len(STRING004) == 1) Then
If ((((((((((((STRING004 == "A") || (STRING004 == "U")) || (STRING004 == "0")) || (STRING004 == "1")) || (STRING004 == "2")) || (STRING004 == "3")) || (STRING004 == "4")) || (STRING004 == "5")) || (STRING004 == "6")) || (STRING004 == "7")) || (STRING004 == "8")) || (STRING004 == "9")) STRING002 = STRING002 + Chr(13)
Endif
If (STRING002 <> "") Then
Goto LABEL001
Endif
If (Exist(PPEPath() + PPEName() + ".pcb")) DispFile PPEPath() + PPEName() + ".pcb", 0
InputStr STRING001, STRING002, "", 45, Mask_Ascii(), 0
If (STRING002 == "") Stop
If (STRING002 <> "") Then
:LABEL001
Newline
KbdStuff "Z " + STRING002
Endif
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 6 Goto
; 11 Let
; 8 If
; 1 DispFile
; 1 FClose
; 1 InputStr
; 1 Newline
; 1 Tokenize
; 1 GetToken
; 1 Stop
; 1 KbdStuff
;
;
; ■ Functions used :
;
; 1 -
; 9 +
; 15 ==
; 2 <>
; 1 <
; 1 <=
; 2 >=
; 7 !
; 2 &&
; 12 ||
; 1 Len(
; 1 Chr()
; 1 Mask_Ascii()
; 3 PPEPath()
; 1 ReadLine()
; 1 Exist()
; 1 TokenStr()
; 3 PPEName()
; 2 TokCount()
; 5 ReplaceStr()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;
;------------------------------------------------------------------------------
;
; One or more PPLC bugs were found, this is not a PPLX error, but PPLX is
; reporting the error ;) Some statements like VAR = !!!!10, VAR = !0*!0
; or similar things are not handled correctly by PPLC, some may use this
; to avoid a correct decompilation... This doesn't mean that there is
; actually an error, but the probability of error is high...
; ■ Search for : PPLC BUG
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 0 While/EndWhile
; 3 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------