home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / TRAZSN10.ZIP / ZSCAN.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1995-02-13  |  3KB  |  170 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.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     String   STRING001
  25.     String   STRING002
  26.     String   TSTRING003(2)
  27.     String   TSTRING004(2000)
  28.     String   STRING005
  29.     String   STRING006
  30.     String   STRING007
  31.     String   STRING008
  32.     String   STRING009
  33.     String   STRING010
  34.     String   STRING011
  35.     String   STRING012
  36.     String   TSTRING013(40)
  37.     String   STRING014
  38.  
  39. ;------------------------------------------------------------------------------
  40.  
  41.     STRING001 = "VkZScan"
  42.     STRING002 = "1.00"
  43.     FOpen 1, PPEPath() + "zscan.cfg", 0, 2
  44.     For INTEGER001 = 1 To 2
  45.         FGet 1, TSTRING003(INTEGER001)
  46.     Next
  47.     FGet 1, STRING012
  48.     FGet 1, STRING011
  49.     FClose 1
  50.     INTEGER003 = 0
  51.     STRING014 = TokenStr()
  52.     Tokenize STRING014
  53.     INTEGER004 = TokCount()
  54.     For INTEGER001 = 1 To INTEGER004
  55.         TSTRING013(INTEGER001) = Upper(GetToken())
  56.     Next
  57.     If (TSTRING013(1) == "/AREAS") Goto LABEL001
  58.     INTEGER005 = "@NUMDIR@"
  59.     If (INTEGER004 > 0) Then
  60.         If (((TSTRING013(INTEGER004) == "A") || (TSTRING013(INTEGER004) == "U")) || (Left(TSTRING013(INTEGER004), 1) > 0)) Then
  61.             INTEGER004 = INTEGER004 - 1
  62.             STRING008 = TSTRING013(INTEGER004 + 1)
  63.         Endif
  64.         For INTEGER001 = 1 To INTEGER004
  65.             STRING007 = STRING007 + TSTRING013(INTEGER001)
  66.             STRING007 = STRING007 + "|"
  67.         Next
  68.         STRING007 = RTrim(STRING007, "|")
  69.     Else
  70.         DispFile PPEPath() + "zscan.pcb", 1
  71.         While (STRING005 <> "ExitThisNow") Do
  72.             INTEGER003 = INTEGER003 + 1
  73.             STRING006 = ReplaceStr(TSTRING003(1), "%PATNUM", INTEGER003)
  74.             InputStr STRING006 + "_", STRING005, 15, 50, Mask_Ascii() + Mask_Num(), 256 + 8
  75.             If (STRING005 == "") Break
  76.             TSTRING004(INTEGER003) = STRING005
  77.             STRING005 = ""
  78.         EndWhile
  79.         If (TSTRING004(1) == "") Goto LABEL002
  80.         INTEGER002 = INTEGER003
  81.         For INTEGER001 = 1 To INTEGER002
  82.             STRING007 = STRING007 + TSTRING004(INTEGER001)
  83.             STRING007 = STRING007 + "|"
  84.         Next
  85.         STRING007 = RTrim(STRING007, "|")
  86.         STRING007 = LTrim(STRING007, "|")
  87.         :LABEL001
  88.         Print TSTRING003(2)
  89.         STRING010 = GetX()
  90.         STRING009 = GetY()
  91.         Print STRING011 + STRING012
  92.         AnsiPos STRING010, STRING009
  93.         InputStr "_", STRING008, 15, 10, Mask_Num() + "AUau", 256 + 8
  94.         If (STRING008 == "") STRING008 = STRING012
  95.         If (TSTRING013(1) == "/AREAS") Then
  96.             KbdStuff STRING008
  97.             End
  98.         Endif
  99.     Endif
  100.     :LABEL002
  101.     If (STRING007 <> "") KbdStuff "z;" + STRING007 + ";" + STRING008
  102.     PrintLn "@X02.:. @X05" + STRING001 + " @X02.:. @X04v" + STRING002 + " @X05-/- @X03REGiSTERED VERSiON @X05-\- @X08[@X03Vk!@X08] @X02(@X03TRA@X02/@X03PPE@X02)"
  103.     End
  104.  
  105. ;------------------------------------------------------------------------------
  106. ;
  107. ; Usage report (before postprocessing)
  108. ;
  109. ; ■ Statements used :
  110. ;
  111. ;    2       End
  112. ;    17      Goto 
  113. ;    32      Let 
  114. ;    2       Print 
  115. ;    1       PrintLn 
  116. ;    13      If 
  117. ;    1       DispFile 
  118. ;    1       FOpen 
  119. ;    1       FClose 
  120. ;    3       FGet 
  121. ;    2       InputStr 
  122. ;    1       Tokenize 
  123. ;    2       KbdStuff 
  124. ;    1       AnsiPos 
  125. ;
  126. ;
  127. ; ■ Functions used :
  128. ;
  129. ;    25      +
  130. ;    1       -
  131. ;    7       ==
  132. ;    2       <>
  133. ;    4       <
  134. ;    4       <=
  135. ;    2       >
  136. ;    8       >=
  137. ;    8       !
  138. ;    8       &&
  139. ;    6       ||
  140. ;    1       Upper()
  141. ;    1       Left()
  142. ;    1       LTrim()
  143. ;    2       RTrim()
  144. ;    2       Mask_Num()
  145. ;    1       Mask_Ascii()
  146. ;    2       PPEPath()
  147. ;    1       GetToken()
  148. ;    1       TokenStr()
  149. ;    1       GetX()
  150. ;    1       GetY()
  151. ;    1       TokCount()
  152. ;    1       ReplaceStr()
  153. ;
  154. ;------------------------------------------------------------------------------
  155. ;
  156. ; Analysis flags : No flag
  157. ;
  158. ;------------------------------------------------------------------------------
  159. ;
  160. ; Postprocessing report
  161. ;
  162. ;    4       For/Next
  163. ;    1       While/EndWhile
  164. ;    3       If/Then or If/Then/Else
  165. ;    0       Select Case
  166. ;
  167. ;------------------------------------------------------------------------------
  168. ;                 AEGiS Corp - Break the routines, code against the machines!
  169. ;------------------------------------------------------------------------------
  170.