home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / S2-GOOD.ZIP / DOTHIS.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-05-22  |  2KB  |  147 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.     String   STRING010
  29.     String   STRING011
  30.     String   TSTRING012(2)
  31.     String   STRING013
  32.  
  33. ;------------------------------------------------------------------------------
  34.  
  35.     If (!Exist(PPEPath() + "shit")) End ; PPLC BUG!
  36.     STRING013 = TokenStr()
  37.     Tokenize STRING013
  38.     GetToken TSTRING012(1)
  39.     FOpen 1, PPEPath() + "goodbye.cfg", 2, 0
  40.     FGet 1, STRING001
  41.     FGet 1, STRING002
  42.     FGet 1, STRING003
  43.     FGet 1, STRING004
  44.     FGet 1, STRING005
  45.     FGet 1, STRING006
  46.     FGet 1, STRING007
  47.     FGet 1, STRING008
  48.     FGet 1, STRING009
  49.     FGet 1, STRING010
  50.     FGet 1, STRING011
  51.     FClose 1
  52.     If (Upper(TSTRING012(1)) == "/PASS") Goto LABEL001
  53.     If (Upper(TSTRING012(1)) == "/DOWN") Goto LABEL002
  54.     If (Upper(TSTRING012(1)) == "/UP") Goto LABEL003
  55.     If (Upper(TSTRING012(1)) == "/SYS") Goto LABEL004
  56.     If (Upper(TSTRING012(1)) == "/CARR") Goto LABEL005
  57.     If (Upper(TSTRING012(1)) == "/TIME") Goto LABEL006
  58.     :LABEL001
  59.     FCreate 1, PPEPath() + "list", 2, 0
  60.     FPutLn 1, STRING006
  61.     FClose 1
  62.     End
  63.     :LABEL002
  64.     FCreate 1, PPEPath() + "list", 2, 0
  65.     FPutLn 1, STRING007
  66.     FClose 1
  67.     KbdStuff "H"
  68.     End
  69.     :LABEL003
  70.     FCreate 1, PPEPath() + "list", 2, 0
  71.     FPutLn 1, STRING008
  72.     FClose 1
  73.     KbdStuff "H"
  74.     End
  75.     :LABEL004
  76.     FCreate 1, PPEPath() + "list", 2, 0
  77.     FPutLn 1, STRING009
  78.     FClose 1
  79.     End
  80.     :LABEL005
  81.     FCreate 1, PPEPath() + "list", 2, 0
  82.     FPutLn 1, STRING010
  83.     FClose 1
  84.     End
  85.     :LABEL006
  86.     FCreate 1, PPEPath() + "list", 2, 0
  87.     FPutLn 1, STRING011
  88.     FClose 1
  89.     End
  90.  
  91. ;------------------------------------------------------------------------------
  92. ;
  93. ; Usage report (before postprocessing)
  94. ;
  95. ; ■ Statements used :
  96. ;
  97. ;    7       End
  98. ;    6       Goto 
  99. ;    1       Let 
  100. ;    7       If 
  101. ;    6       FCreate 
  102. ;    1       FOpen 
  103. ;    7       FClose 
  104. ;    11      FGet 
  105. ;    6       FPutLn 
  106. ;    1       Tokenize 
  107. ;    1       GetToken 
  108. ;    2       KbdStuff 
  109. ;
  110. ;
  111. ; ■ Functions used :
  112. ;
  113. ;    8       +
  114. ;    6       ==
  115. ;    25      !
  116. ;    6       Upper()
  117. ;    8       PPEPath()
  118. ;    1       Exist()
  119. ;    1       TokenStr()
  120. ;
  121. ;------------------------------------------------------------------------------
  122. ;
  123. ; Analysis flags : No flag
  124. ;
  125. ;
  126. ;------------------------------------------------------------------------------
  127. ;
  128. ;     One or more PPLC bugs were found, this is not a PPLX error, but PPLX is  
  129. ;     reporting the error ;)  Some statements  like VAR = !!!!10, VAR = !0*!0  
  130. ;     or similar things are not handled  correctly by PPLC, some may use this  
  131. ;     to  avoid a  correct decompilation...  This doesn't mean that there  is  
  132. ;     actually an error, but the probability of error is high...               
  133. ;     ■ Search for : PPLC BUG
  134. ;
  135. ;------------------------------------------------------------------------------
  136. ;
  137. ; Postprocessing report
  138. ;
  139. ;    0       For/Next
  140. ;    0       While/EndWhile
  141. ;    0       If/Then or If/Then/Else
  142. ;    0       Select Case
  143. ;
  144. ;------------------------------------------------------------------------------
  145. ;                 AEGiS Corp - Break the routines, code against the machines!
  146. ;------------------------------------------------------------------------------
  147.