home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / MT_SCN11.ZIP / MT-SCAN.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1993-08-02  |  7KB  |  261 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 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     String   STRING001
  23.     String   STRING002
  24.     String   STRING003
  25.     String   STRING004
  26.     String   STRING005
  27.     String   STRING006
  28.     String   STRING007
  29.     String   STRING008
  30.     String   STRING009
  31.     String   STRING010
  32.     String   STRING011
  33.     String   STRING012
  34.     String   STRING013
  35.     String   STRING014
  36.     String   STRING015
  37.     String   STRING016
  38.     String   STRING017
  39.     String   STRING018
  40.     String   STRING019
  41.     String   STRING020
  42.     String   STRING021
  43.     String   STRING022
  44.     String   STRING023
  45.     String   STRING024
  46.     String   STRING025
  47.     String   STRING026
  48.     String   STRING027
  49.  
  50. ;------------------------------------------------------------------------------
  51.  
  52.     STRING020 = "■+▐è⌡╝ 15ZB+▐rrÜ■K╓N Å+j║}{Ü⌠╓°m°╝▐o+■■,45╝&65542643498469└╜4957895for■84764ramdom768476 count1┌Ö!2121 "
  53.     STRING026 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■341231234K╓N Å+j║}{515134251534Ü⌠╓°m°4123412341234╝▐■,45╝&6554└╜476846785for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠"
  54.     STRING010 = "M"
  55.     STRING021 = "f ea w 8435@#$ f■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■⌠# ö@8689╝94904998└48Q11∞╜74│+L4╝465444454╝445774"
  56.     STRING026 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■"
  57.     STRING011 = "T"
  58.     STRING022 = "dfasdewtmlasfdtq[ dgjqth fgjatghqptr djhtqtqnb dt[qj K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■fv86967067062334653452345asdgfasjg afghjatu e553452626 qt vq vta23452314515gfjh"
  59.     STRING026 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■"
  60.     STRING012 = "-"
  61.     STRING023 = "465441654645327686348464416 K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■41646464654"
  62.     STRING026 = "wxofdfaK╓N fasdÅ+j║ewtqt}{Ü⌠╓°m°euyuuiot╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝"
  63.     STRING013 = "S"
  64.     STRING024 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■o+■o+■"
  65.     STRING014 = "c"
  66.     STRING025 = "7535788K╓N57347 Å864695790+j║}06980687{Ü⌠-969- 789-90- 69078907890╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝"
  67.     STRING015 = "a"
  68.     STRING026 = "K37697╓N -789-Å563767+j║}690 0986-790-8={Ü⌠╓°m2647356745846798649 578°╝▐■06890 869087690,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓373587N 4858467Å+j76967║9868}{37432Ü123434╓°m°╝▐■,45╝"
  69.     STRING026 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■"
  70.     STRING016 = "n"
  71.     STRING027 = "}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°for■o+■⌠#ö@8689╝9╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45876967806-9860for■o+■o+■"
  72.     STRING023 = "465441654645327686348464416 K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■41646464654"
  73.     STRING026 = "K╓}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°r■K╓N Å+j"
  74.     STRING026 = "6554└╜45for■K╓N Å+j║}{}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{■"
  75.     STRING017 = " @X01(@X09v1.1@X01)@X09"
  76.     STRING027 = "╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■o+■"
  77.     STRING027 = "for■o+■⌠#ö@8689╝9╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■o+■"
  78.     STRING026 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■"
  79.     STRING019 = "  ■ "
  80.     STRING026 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■"
  81.     STRING027 = "for■o+■⌠#ö@8689╝9╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■o+■"
  82.     STRING018 = " 08-02-93"
  83.     STRING026 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■"
  84.     STRING027 = "for■o+■⌠#ö@8689╝9╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■o+■"
  85.     If (Exist(PPEPath() + "MT-Scan.CNF") == 0) Then
  86.         PrintLn 
  87.         PrintLn "Error!  File MT-Scan.CNF not found!"
  88.         PrintLn "This file contains all the MT-Scan Commands <as chosen by the"
  89.         PrintLn "sysop> and is needed for MT-Scan to work properly!"
  90.         PrintLn "Please notify SysOp..."
  91.         PrintLn 
  92.         Wait
  93.         End
  94.     Endif
  95.     FOpen 1, PPEPath() + "MT-Scan.CNF", 0, 0
  96.     FGet 1, STRING005
  97.     FGet 1, STRING008
  98.     FGet 1, STRING001
  99.     FGet 1, STRING006
  100.     FGet 1, STRING007
  101.     FGet 1, STRING009
  102.     FClose 1
  103.     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Running program [" + PPEName() + ".PPE]", ""
  104.     Log "Text Scan Summary: (" + PPEName() + ".PPE) " + "at (" + Left(Time(), 5) + ")", 0
  105.     If (STRING009 == "0") Then
  106.         Goto LABEL001
  107.     Endif
  108.     PrintLn 
  109.     Print STRING009 + ""
  110.     Delay 4
  111.     Print " ."
  112.     Delay 4
  113.     Print " ."
  114.     Delay 4
  115.     Print " ."
  116.     Delay 4
  117.     PrintLn 
  118.     :LABEL001
  119.     GetToken STRING004
  120.     If (STRING004 == "") Then
  121.         Cls
  122.         PrintLn "@X09" + STRING010 + STRING011 + STRING012 + STRING013 + STRING014 + STRING015 + STRING016 + STRING017 + STRING018 + STRING019 + STRING008
  123.         PrintLn "@X07"
  124.         If (Exist(PPEPath() + STRING007)) DispFile PPEPath() + STRING007, 4 + 2 + 1
  125.         PrintLn 
  126.         :LABEL002
  127.         INTEGER002 = 0
  128.         INTEGER003 = 0
  129.         STRING003 = ""
  130.         STRING004 = ""
  131.         STRING002 = ""
  132.         If (Exist(PPEPath() + STRING006)) DispFile PPEPath() + STRING006, 4 + 2 + 1
  133.         InputStr STRING001 + "", STRING003, 10, 36, Mask_Ascii(), +8 + 128 + 256
  134.         STRING003 = Upper(STRING003)
  135.         If (STRING003 == "Q") Stop
  136.         If (STRING003 == "H") Goto LABEL006
  137.         If (STRING003 == "I") Goto LABEL005
  138.         If (STRING003 == "") Stop
  139.     Else
  140.         STRING003 = Upper(STRING004)
  141.     Endif
  142.     If (Exist(PPEPath() + "MT-Scan.cnf")) Then
  143.         Log "Scanning " + STRING005 + " for (" + STRING003 + ")", 0
  144.         Newline
  145.         PrintLn "@X04@PON@[@X0CSearching@X04] @X07for (@X0F" + STRING003 + "@X07) [@X0ACTRL-K@X07] Aborts..."
  146.         FOpen 1, STRING005, 0, 0
  147.         :LABEL003
  148.         If (Ferr(1)) Goto LABEL004
  149.         FGet 1, STRING002
  150.         If (STRING002 <> "") Then
  151.             INTEGER002 = INTEGER002 + 1
  152.             STRING002 = Upper(STRING002)
  153.             If (InStr(STRING002, STRING003)) Then
  154.                 INTEGER003 = INTEGER003 + 1
  155.                 INTEGER001 = InStr(STRING002, STRING003)
  156.                 If (INTEGER003 == 1) Newlines 0
  157.                 Print "@X07" + Left(STRING002, INTEGER001 - 1) + "@X0E" + STRING003 + "@X07"
  158.                 PrintLn Mid(STRING002, INTEGER001 + Len(STRING003), Len(STRING002) - INTEGER001 + 2 - Len(STRING003))
  159.             Endif
  160.         Endif
  161.         If (Abort()) FClose 1
  162.         Goto LABEL003
  163.         :LABEL004
  164.         FClose 1
  165.     Else
  166.         Newline
  167.         Log STRING005 + " is missing!", 0
  168.         Print "@X0C(" + STRING005 + ") is missing!"
  169.     Endif
  170.     ResetDisp
  171.     If (INTEGER003 == 0) Newlines 0
  172.     PrintLn "@X0C" + String(INTEGER002) + " entries searched, " + String(INTEGER003) + " matches found."
  173.     Newline
  174.     Wait
  175.     Goto LABEL002
  176.     :LABEL005
  177.     PrintLn 
  178.     If (Exist(PPEPath() + "INFO")) DispFile PPEPath() + "INFO", 4 + 2 + 1
  179.     PrintLn 
  180.     Wait
  181.     Goto LABEL002
  182.     :LABEL006
  183.     PrintLn 
  184.     If (Exist(PPEPath() + "HELP")) DispFile PPEPath() + "HELP", 4 + 2 + 1
  185.     PrintLn 
  186.     Wait
  187.     Goto LABEL002
  188.     End
  189.  
  190. ;------------------------------------------------------------------------------
  191. ;
  192. ; Usage report (before postprocessing)
  193. ;
  194. ; ■ Statements used :
  195. ;
  196. ;    2       End
  197. ;    1       Cls
  198. ;    4       Wait
  199. ;    16      Goto 
  200. ;    44      Let 
  201. ;    6       Print 
  202. ;    18      PrintLn 
  203. ;    18      If 
  204. ;    4       DispFile 
  205. ;    2       FOpen 
  206. ;    3       FClose 
  207. ;    7       FGet 
  208. ;    1       ResetDisp
  209. ;    3       Log 
  210. ;    1       InputStr 
  211. ;    4       Delay 
  212. ;    3       Newline
  213. ;    2       Newlines 
  214. ;    1       GetToken 
  215. ;    2       Stop
  216. ;    1       WrUNet 
  217. ;
  218. ;
  219. ; ■ Functions used :
  220. ;
  221. ;    1       +
  222. ;    62      +
  223. ;    3       -
  224. ;    9       ==
  225. ;    1       <>
  226. ;    7       !
  227. ;    3       Len(
  228. ;    3       Upper()
  229. ;    1       Mid()
  230. ;    2       Left()
  231. ;    1       Ferr()
  232. ;    2       InStr()
  233. ;    1       Abort()
  234. ;    1       Time()
  235. ;    2       String()
  236. ;    1       Mask_Ascii()
  237. ;    11      PPEPath()
  238. ;    1       PcbNode()
  239. ;    1       UN_Stat()
  240. ;    1       UN_Name()
  241. ;    1       UN_City()
  242. ;    6       Exist()
  243. ;    2       PPEName()
  244. ;
  245. ;------------------------------------------------------------------------------
  246. ;
  247. ; Analysis flags : No flag
  248. ;
  249. ;------------------------------------------------------------------------------
  250. ;
  251. ; Postprocessing report
  252. ;
  253. ;    0       For/Next
  254. ;    0       While/EndWhile
  255. ;    6       If/Then or If/Then/Else
  256. ;    0       Select Case
  257. ;
  258. ;------------------------------------------------------------------------------
  259. ;                 AEGiS Corp - Break the routines, code against the machines!
  260. ;------------------------------------------------------------------------------
  261.