home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / DIAMOND / CKDIZ130.ZIP / PCB151.ZIP / FAILED.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1994-11-30  |  11.5 KB  |  346 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 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     String   STRING001
  23.     String   STRING002
  24.     String   TSTRING003(35)
  25.     String   STRING004
  26.     String   STRING005
  27.     String   STRING006
  28.     String   STRING007
  29.     String   STRING008
  30.     String   STRING009
  31.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     Print "@X07"
  35.     Cls
  36.     STRING001 = Chr(13)
  37.     TSTRING003(1) = "@X08"
  38.     TSTRING003(2) = "@X08"
  39.     TSTRING003(3) = "@X08"
  40.     TSTRING003(4) = "@X08"
  41.     TSTRING003(5) = "@X08"
  42.     TSTRING003(6) = "@X08"
  43.     TSTRING003(7) = "@X08"
  44.     TSTRING003(8) = "@X08"
  45.     TSTRING003(9) = "@X08"
  46.     TSTRING003(10) = "@X08"
  47.     TSTRING003(11) = "@X08"
  48.     TSTRING003(12) = "@X08"
  49.     TSTRING003(13) = "@X08"
  50.     TSTRING003(14) = "@X08"
  51.     TSTRING003(15) = "@X08"
  52.     TSTRING003(16) = "@X07"
  53.     TSTRING003(17) = "@X0F"
  54.     TSTRING003(18) = "@X0F"
  55.     TSTRING003(19) = "@X0F"
  56.     TSTRING003(20) = "@X07"
  57.     TSTRING003(21) = "@X08"
  58.     TSTRING003(22) = "@X08"
  59.     TSTRING003(23) = "@X08"
  60.     TSTRING003(24) = "@X08"
  61.     TSTRING003(25) = "@X08"
  62.     TSTRING003(26) = "@X08"
  63.     TSTRING003(27) = "@X08"
  64.     TSTRING003(28) = "@X08"
  65.     TSTRING003(29) = "@X08"
  66.     TSTRING003(30) = "@X08"
  67.     TSTRING003(31) = "@X08"
  68.     TSTRING003(32) = "@X08"
  69.     TSTRING003(33) = "@X08"
  70.     TSTRING003(34) = "@X08"
  71.     TSTRING003(35) = "@X08"
  72.     If (Exist("CHECKDIZ.MSG")) Delete "CHECKDIZ.MSG"
  73.     STRING006 = Date()
  74.     FOpen 1, "FAILED", 2, 0
  75.     FGet 1, STRING005
  76.     FGet 1, STRING007
  77.     FGet 1, STRING008
  78.     FGet 1, STRING009
  79.     FClose 1
  80.     If (STRING005 == "VIRUS") Then
  81.         PrintLn "@X0F -─@X07-@X08─-────────-─@X07-@X0F─@X07-@X08─-─────────────────────────────────────────────────────-─@X07-@X0F─-"
  82.         Newline
  83.         Print "@X0F @X5D▒█@X0F    @X5D░@X0F ▀ @X5D▒▓@X0D▀@X0F▀▀@X0D▀@X05▄ @X5D▒█@X0F    @X5D░@X0F @X05▄@X5D▓@X0D▀@X0F▀▀@X0D▀@X05▀   @X5D▒▓@X0D▀@X0F▀▀@X0D▀ @X05▄@X5D▓@X0D▀@X0F▀▀@X5D▀@X0D▄ @X5D▒█@X0F    @X5D░@X0F @X05▄@X5D▓@X0D▀@X0F"
  84.         PrintLn "▀▀@X0D▀▄ @X5D▒▓@X0D▀@X0F▀▀@X5D▀@X0D▄   @X5D░@X07"
  85.         Print "@X0F @X5D░▒@X0F    @X5D▒@X0F @X5D░@X0F @X5D░▒@X0F @X08▀@X05▀@X0D▀▄ @X5D░▒@X0F    @X5D▒@X0F @X05▀@X0D▀@X05▀@X08▀@X05▀@X5D█@X0D▄   @X5D░▒@X0D▀@X05▀@X08▀  @X5D░▒@X0F    @X5D▓@X0F @X5D░▒@X0F    @X5D▒@X0F @X5D░▒@X0F    "
  86.         PrintLn "@X5D▓@X0F @X5D░▒@X0F    @X5D▓@X0F   @X5D▒@X07"
  87.         Print "@X0F @X05█@X5D░@X0F    @X5D▓@X0F @X5D▒@X0F @X5F @X5D░@X0F    @X5D▓@X0F @X5F @X5D░@X0F    @X5D▓@X0F      @X5D▒░@X0F   @X5F @X5D░@X0F     @X5F @X5D░@X0F    @X5D▒@X0F @X5F @X5D░@X0F    @X5D▓@X0F @X5F @X5D░@X0F"
  88.         PrintLn "    @X5D▒@X0F @X5F @X5D░@X0F    @X5D▒@X0F   @X5D▒@X07"
  89.         PrintLn "@X08 @X58░ @X08▄   @X5D█@X0F @X5D▒@X0F @X58░ @X0F    @X5D▒@X0F @X58░ @X0F    @X5D█@X0F      @X5D░ @X0F   @X58░ @X0F     @X58░ @X0F    @X5D▓@X0F @X58░ @X0F    @X5D█@X0F @X58░ @X0F    @X5D░@X0F @X58░ @X0F    @X5D▓@X0F   @X5D░@X07"
  90.         Print "@X0F  @X05▀@X58░▀@X0D▄@X0F▄▀ @X5D░@X0F @X58▒░@X0F    @X5D░@X0F @X08▀@X58░▀@X05▄@X0D▄@X0F▄@X7F▀@X0F @X05▄@X0D▄@X0F▄▄@X7D▄@X5D @X05▀   @X58▒░@X0F     @X08▀@X58░▀@X05▄@X0D▄@X0F▄@X7F▀@X0F @X08▀@X58░▀@X05▄@X0D▄@X0F▄@X7F▀@X0F @X58▒░@X0F"
  91.         PrintLn "    @X5D @X0F @X08█@X58░▀@X05▄@X0D▄@X0F▄@X7F▀@X0F   ▄"
  92.         Newline
  93.         PrintLn "@X0F -─@X07-@X08─-────────────-─@X07-@X0F─@X07-@X08─-─────────────────────────────────────────────────-─@X07-@X0F─-"
  94.         PrintLn "@X0F     TH@X07E F@X08iLE @X0F@OPTEXT@@POS:27@ @X08YOU UPLOADED JUST BEFORE FAiLED THE ViRUS T@X07EST @X0F!"
  95.         PrintLn "@X0F -─@X07-@X08─-──────-─@X05-@X0D─@X05-@X08─-────────────────────────-─@X07-@X0F─@X07-@X08─-────────────────────────-─@X07-@X0F─-"
  96.         PrintLn "@X0F       TH@X07iS@X08 MEANS THAT THE FiLE CONTAiNS A ViRUS AND SHOULD BE DELE@X07TED@X08 @X0F!"
  97.         PrintLn "@X0F   Si@X07MPL@X08Y TEST @X0F@OPTEXT@@POS:28@ @X08WiTH ANY NEW ViRUS SCANNER AND AMUSE YOURSEL@X07F .@X0F.."
  98.         PrintLn "@X0F   iF@X08 @X0F@OPTEXT@@POS:19@ @X08iS AN ARCHiVE AND YOU DiDN'T DECOMPACT THE FiLE TO TE@X07ST @X0FiT"
  99.         PrintLn "@X0F     YO@X07U@X08 @X07D@X08ON'T HAVE TO PANiC - BUT iF YOU DiD SO , YOU SHOULDST iMMEDi@X07ATE@X0FLY"
  100.         PrintLn "@X0F                 LE@X07AVE@X08 THE BBS FOR (PERHAPS) REMOViNG THE @X07ViR@X0FUS"
  101.         PrintLn "@X0F -─@X07-@X08─-───────────────────-─@X07-@X0F─@X07-@X08─-─────────-─@X05-@X0D─@X05-@X08─-──────────────────────────-─@X07-@X0F─-@X07"
  102.         Newline
  103.         If ((CDOn() == 0) && (OnLocal() == 0)) Then
  104.             FCreate 1, "CHECKDIZ.MSG", 2, 0
  105.             FPutLn 1, "! WARNING !"
  106.             FPutLn 1, ""
  107.             FPutLn 1, "The file " + STRING008 + " you've uploaded on " + STRING006 + " failed the virus test!"
  108.             FPutLn 1, "This means that your credits of " + STRING009 + " bytes are lost."
  109.             FPutLn 1, "Now that you know that " + STRING008 + " has a virus you should be carefull"
  110.             FPutLn 1, "of virusinfections and try to kill your virus!"
  111.             FPutLn 1, ""
  112.             FPutLn 1, "This is an automated message by " + STRING007 + ". So, please don't blame"
  113.             FPutLn 1, "the Sysop nor do reply to this message. Simply (K)ill and forget it ..."
  114.             FClose 1
  115.             Message CurConf(), "", STRING007, "Virus Test failed on " + STRING008, "R", 0, 0, 0, "CHECKDIZ.MSG"
  116.         Endif
  117.     Endif
  118.     If (STRING005 == "FAILED") Then
  119.         PrintLn "@X0F -─@X07-@X08─-────────-─@X07-@X0F─@X07-@X08─-─────────────────────────────────────────────────────-─@X07-@X0F─-"
  120.         Newline
  121.         Print "@X0F @X5D▒▓@X0D▀@X0F▀▀@X0D▀ @X0F▀ @X5D▒█@X0F      @X05▄@X5D▓@X0D▀@X0F▀▀@X0D▀@X05▄    @X5D▒▓@X0D▀@X0F▀▀@X5D▀@X0D▄ @X05▄@X5D▓@X0D▀@X0F▀▀@X0D▀@X05▄ @X5D▒▓@X0D▀@X0F▀▀@X0D▀ @X05▄@X5D▓@X0D▀@X0F▀▀@X0D▀@X05▄ "
  122.         PrintLn "▄@X5D▓@X7D▀@X0F▀▀@X0D▀  @X05▄@X5D▓@X7D▀@X0F▀▀@X0D▀@X05▀   @X5D░@X07"
  123.         PrintLn "@X0F @X5D░▒@X0D▀@X05▀@X08▀  @X5D░@X0F @X5D░▒@X0F      @X5D░▒@X0F @X08▀@X05▀▀     @X5D░▒@X0F    @X5D▓@X0F @X5D░▒@X0F @X08▀@X05▀▀  @X5D░▒@X0D▀@X05▀@X08▀  @X5D░▒@X0F @X08▀@X05▀▀  @X5D░▒@X0F      @X5D░▒@X0D        @X5D▒@X07"
  124.         PrintLn "@X0F @X05█@X5D░@X0F     @X5D▒@X0F @X5F @X5D░@X0F      @X5F @X5D░@X0F         @X5F @X5D░@X0F    @X5D▒@X0F @X5F @X5D░@X0F      @X5F @X5D░@X0F     @X5F @X5D░@X0F      @X5F @X5D░@X0F      @X5F @X5D░@X0D        @X5D▒@X07"
  125.         PrintLn "@X0F @X58░ @X0F     @X5D▒@X0F @X58░ @X0F      @X58░ @X0F         @X58░ @X0F    @X5D▓@X0F @X58░ @X0F      @X58░ @X0F     @X58░ @X0F      @X58░ @X0F      @X58░ @X0D        @X5D░@X07"
  126.         Print "@X0F @X58▒░@X0F     @X5D░@X0F @X08▀@X58░▀@X0D▄@X0F▄@X0D▄@X05▄ @X08▀@X58░▀@X05▄@X0D▄@X0F▄@X0D▄    @X08█@X58░▀@X05▄@X0D▄@X0F▄@X7F▀@X0F @X08▀@X58░▀@X05▄@X0D▄@X0F▄@X0D▄ @X58▒░@X0F     @X08▀@X58░▀@X05▄@X0D▄@X0F"
  127.         PrintLn "▄@X0D▄ @X08▀@X58░▀@X0D▄@X0F▄▄@X0D▄ @X58▒░@X0D        @X0F▄"
  128.         Newline
  129.         PrintLn "@X0F -─@X07-@X08─-────────────-─@X07-@X0F─@X07-@X08─-─────────────────────────────────────────────────-─@X07-@X0F─-"
  130.         PrintLn "@X0F       TH@X07E F@X08iLE @X0F@OPTEXT@ @X08YOU UPLOADED JUST BEFORE FAiLED THE CRC T@X07EST @X0F!"
  131.         PrintLn "@X0F -─@X07-@X08─-──────-─@X05-@X0D─@X05-@X08─-────────────────────────-─@X07-@X0F─@X07-@X08─-────────────────────────-─@X07-@X0F─-"
  132.         PrintLn "@X0F     TH@X07iS @X08MEANS THAT THE FiLE OR ONE OF iT'S EMBEDED ARCHiVES iS DAMA@X07GED@X08 @X0F!"
  133.         PrintLn "@X0F       TH@X07iS @X08DAMAGE TO THE ARCHiEVE COULD'VE HAPPENED DURiNG THE UPL@X07OAD @X0F."
  134.         PrintLn "@X0F      IF@X08 @X07YO@X08U HAD MANY ERRORS DURiNG THE TRANSFER iT MAY BE THE REASO@X07N F@X0FOR"
  135.         PrintLn "@X0F       TH@X07E F@X08AiLED TEST - OTHERWHiSE SiMPLY EXTRACT @X0F@OPTEXT@ @X08AND iF @X07EXi@X0FST"
  136.         PrintLn "@X0F       iT@X07S E@X08MBEDDED ARCHiVES TO CHECK OUT iF YOUR FiLE WAS DAMAGED B@X07EFO@X0FRE"
  137.         PrintLn "@X0F       YO@X07U U@X08PLOADED iT TO THiS BOARD ... iF iT'S NOT DAMAGED YOU MA@X07Y T@X0FRY"
  138.         PrintLn "@X0F                     TO @X07UP@X08LOAD THE FiLE @X0F@OPTEXT@ @X08AGAi@X07N .@X0F.."
  139.         PrintLn "@X0F -─@X07-@X08─-───────────────────-─@X07-@X0F─@X07-@X08─-─────────-─@X05-@X0D─@X05-@X08─-──────────────────────────-─@X07-@X0F─-@X07"
  140.         Newline
  141.         If ((CDOn() == 0) && (OnLocal() == 0)) Then
  142.             FCreate 1, "CHECKDIZ.MSG", 2, 0
  143.             FPutLn 1, "! WARNING !"
  144.             FPutLn 1, ""
  145.             FPutLn 1, "The file " + STRING008 + " you've uploaded on " + STRING006 + " failed the CRC test!"
  146.             FPutLn 1, "This means that your credits of " + STRING009 + " bytes are lost."
  147.             FPutLn 1, "Please check the file for errors - If it seems to be ok try the upload"
  148.             FPutLn 1, "again. If you get errors during your upload you may ask your Sysop"
  149.             FPutLn 1, "what to do ... Maybee you simply should turn on your X/ON-X/OFF or/and"
  150.             FPutLn 1, "your CTS/RTS switches in your terminal Program ?"
  151.             FPutLn 1, ""
  152.             FPutLn 1, "This is an automated message by " + STRING007 + ". So, please don't blame"
  153.             FPutLn 1, "the Sysop nor do reply to this message. Simply (K)ill and forget it ..."
  154.             FClose 1
  155.             Message CurConf(), "", STRING007, "CRC Test failed on " + STRING008, "R", 0, 0, 0, "CHECKDIZ.MSG"
  156.         Endif
  157.     Endif
  158.     If (Exist("CHECKDIZ.MSG")) Delete "CHECKDIZ.MSG"
  159.     If (Exist("FAILED")) Delete "FAILED"
  160.     KeyFlush
  161.     If ((CDOn() == 1) || (OnLocal() == 1)) Then
  162.         Backup 80
  163.         If (GrafMode() == "R") Then
  164.             MouseReg 1, 1, 1, 80, 25, 8, 16, 0, 0, STRING001
  165.             MPrint "!|#" + Chr(13) + Chr(10)
  166.         Endif
  167.         If (LangExt() == ".AMI") Then
  168.             STRING002 = "@X07_.oO0@X0E-PRESS ANY KEY TO CONTiNUE-@X070Oo._"
  169.             INTEGER001 = Len(StripAtx(STRING002))
  170.             Print STRING002
  171.             For INTEGER002 = 1 To 80
  172.                 Delay 1
  173.                 If (Inkey() <> "") Goto LABEL004
  174.             Next
  175.             INTEGER002 = 0
  176.             Backup 80
  177.             Goto LABEL003
  178.         Endif
  179.         Print "@X0F            @X0D-@X05─@X08─@X07-─@X0F──@X07─-@X08─@X05─@X0D- @X0F! @X08PRESS ANY KEY TO CONTiNUE @X0F¡ @X0D-@X05─@X08─@X07-─@X0F──@X07─-@X08─@X05─@X0D-@X07"
  180.         If ((GrafMode() == "A") || (GrafMode() == "N")) Goto LABEL002
  181.         FOpen 2, "PCBOARD.SYS", 0, 0
  182.         FSeek 2, 18, 1
  183.         FRead 2, STRING004, 5
  184.         FClose 2
  185.         Backup 40
  186.         If (Upper(STRING004) == "LOCAL") Goto LABEL001
  187.         If (Strip(STRING004, " ") < 4800) Goto LABEL002
  188.         For INTEGER002 = 1 To 80
  189.             Delay 1
  190.             If (Inkey() <> "") Goto LABEL004
  191.         Next
  192.         INTEGER002 = 1
  193.         :LABEL001
  194.         Print TSTRING003(INTEGER002 + 0) + "P"
  195.         Print TSTRING003(INTEGER002 + 0) + "R"
  196.         Print TSTRING003(INTEGER002 + 1) + "E"
  197.         Print TSTRING003(INTEGER002 + 1) + "S"
  198.         Print TSTRING003(INTEGER002 + 2) + "S"
  199.         Print TSTRING003(INTEGER002 + 2) + " "
  200.         Print TSTRING003(INTEGER002 + 3) + "A"
  201.         Print TSTRING003(INTEGER002 + 3) + "N"
  202.         Print TSTRING003(INTEGER002 + 4) + "Y"
  203.         Print TSTRING003(INTEGER002 + 4) + " "
  204.         Print TSTRING003(INTEGER002 + 5) + "K"
  205.         Print TSTRING003(INTEGER002 + 5) + "E"
  206.         Print TSTRING003(INTEGER002 + 6) + "Y"
  207.         Print TSTRING003(INTEGER002 + 6) + " "
  208.         Print TSTRING003(INTEGER002 + 7) + "T"
  209.         Print TSTRING003(INTEGER002 + 7) + "O"
  210.         Print TSTRING003(INTEGER002 + 8) + " "
  211.         Print TSTRING003(INTEGER002 + 8) + "C"
  212.         Print TSTRING003(INTEGER002 + 9) + "O"
  213.         Print TSTRING003(INTEGER002 + 9) + "N"
  214.         Print TSTRING003(INTEGER002 + 10) + "T"
  215.         Print TSTRING003(INTEGER002 + 10) + "i"
  216.         Print TSTRING003(INTEGER002 + 11) + "N"
  217.         Print TSTRING003(INTEGER002 + 11) + "U"
  218.         Print TSTRING003(INTEGER002 + 12) + "E"
  219.         Backup 25
  220.         If (BOOLEAN001 == 0) Inc INTEGER002
  221.         If (BOOLEAN001 == 1) Dec INTEGER002
  222.         If (Inkey() <> "") Goto LABEL004
  223.         If (INTEGER002 == 23) Then
  224.             BOOLEAN001 = 1
  225.             Delay 10
  226.         Endif
  227.         If (INTEGER002 == 1) Then
  228.             BOOLEAN001 = 0
  229.             Delay 10
  230.         Endif
  231.         Delay 3
  232.         Goto LABEL001
  233.         :LABEL002
  234.         Delay 1
  235.         If (Inkey() <> "") Goto LABEL004
  236.         Goto LABEL002
  237.         :LABEL003
  238.         If (INTEGER002 > 79 - INTEGER001) BOOLEAN001 = 1
  239.         If (INTEGER002 < 3) BOOLEAN001 = 0
  240.         If (BOOLEAN001 == 1) Then
  241.             Dec INTEGER002
  242.             Backup INTEGER001 + 1
  243.         Endif
  244.         If (BOOLEAN001 == 0) Then
  245.             Inc INTEGER002
  246.             Backup INTEGER001 - 1
  247.         Endif
  248.         Print STRING002
  249.         Delay 4
  250.         If (Inkey() <> "") Goto LABEL004
  251.         Goto LABEL003
  252.         :LABEL004
  253.         Print "@X07"
  254.         Backup 80
  255.         ClrEol
  256.         If (GrafMode() == "R") Then
  257.             MouseReg 1, 1, 1, 80, 25, 8, 16, 0, 0, ""
  258.             MPrint "!|#" + Chr(13) + Chr(10)
  259.         Endif
  260.         KbdStuff Chr(13)
  261.     Endif
  262.     End
  263.  
  264. ;------------------------------------------------------------------------------
  265. ;
  266. ; Usage report (before postprocessing)
  267. ;
  268. ; ■ Statements used :
  269. ;
  270. ;    1       End
  271. ;    1       Cls
  272. ;    1       ClrEol
  273. ;    28      Goto 
  274. ;    49      Let 
  275. ;    36      Print 
  276. ;    32      PrintLn 
  277. ;    29      If 
  278. ;    2       FCreate 
  279. ;    2       FOpen 
  280. ;    4       FClose 
  281. ;    4       FGet 
  282. ;    20      FPutLn 
  283. ;    3       Delete 
  284. ;    7       Delay 
  285. ;    2       Inc 
  286. ;    2       Dec 
  287. ;    6       Newline
  288. ;    1       KbdStuff 
  289. ;    7       Backup 
  290. ;    2       Message 
  291. ;    2       MPrint 
  292. ;    1       FSeek 
  293. ;    1       FRead 
  294. ;    1       KeyFlush
  295. ;    2       MouseReg 
  296. ;
  297. ;
  298. ; ■ Functions used :
  299. ;
  300. ;    77      +
  301. ;    2       -
  302. ;    20      ==
  303. ;    5       <>
  304. ;    4       <
  305. ;    2       <=
  306. ;    1       >
  307. ;    4       >=
  308. ;    14      !
  309. ;    6       &&
  310. ;    4       ||
  311. ;    1       Len(
  312. ;    1       Upper()
  313. ;    6       Chr()
  314. ;    1       Date()
  315. ;    1       StripAtx()
  316. ;    1       Strip()
  317. ;    5       Inkey()
  318. ;    2       CurConf()
  319. ;    3       OnLocal()
  320. ;    3       Exist()
  321. ;    3       CDOn()
  322. ;    1       LangExt()
  323. ;    4       GrafMode()
  324. ;
  325. ;------------------------------------------------------------------------------
  326. ;
  327. ; Analysis flags : M
  328. ;
  329. ; M - Send text to modem only ■ 4
  330. ;     Some informations are sent only to the modem, not to the local
  331. ;     screen, this is a well known way to make stealth backdoors, Check!
  332. ;     ■ Search for : SENDMODEM, MPRINT, MPRINTLN
  333. ;
  334. ;------------------------------------------------------------------------------
  335. ;
  336. ; Postprocessing report
  337. ;
  338. ;    2       For/Next
  339. ;    0       While/EndWhile
  340. ;    12      If/Then or If/Then/Else
  341. ;    0       Select Case
  342. ;
  343. ;------------------------------------------------------------------------------
  344. ;                 AEGiS Corp - Break the routines, code against the machines!
  345. ;------------------------------------------------------------------------------
  346.