home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / TAPECM22.ZIP / TAPECMS.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-11-23  |  25KB  |  692 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.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     Integer  INTEGER015
  34.     Integer  INTEGER016
  35.     Integer  INTEGER017
  36.     Integer  INTEGER018
  37.     Integer  INTEGER019
  38.     Integer  INTEGER020
  39.     Integer  INTEGER021
  40.     Integer  TINTEGER022(6)
  41.     String   STRING001
  42.     String   STRING002
  43.     String   STRING003
  44.     String   STRING004
  45.     String   STRING005
  46.     String   STRING006
  47.     String   TSTRING007(15)
  48.     String   TSTRING008(6)
  49.     String   STRING009
  50.     String   STRING010
  51.     String   TSTRING011(10)
  52.     String   STRING012
  53.     String   STRING013
  54.     String   TSTRING014(6)
  55.     String   STRING015
  56.     String   STRING016
  57.     String   TSTRING017(6)
  58.     String   TSTRING018(6)
  59.     String   TSTRING019(6)
  60.     String   TSTRING020(6)
  61.     String   TSTRING021(6)
  62.     String   TSTRING022(6)
  63.     String   STRING023
  64.     String   STRING024
  65.     String   STRING025
  66.     String   TSTRING026(6)
  67.     String   STRING027
  68.     String   STRING028
  69.     String   STRING029
  70.     String   STRING030
  71.     String   STRING031
  72.     String   STRING032
  73.     String   STRING033
  74.     String   STRING034
  75.     String   STRING035
  76.     String   STRING036
  77.     String   STRING037
  78.     String   STRING038
  79.     String   STRING039
  80.     String   STRING040
  81.     String   STRING041
  82.     String   STRING042
  83.     String   STRING043
  84.     String   STRING044
  85.     Time     TIME001
  86.     Time     TIME002
  87.     Time     TIME003
  88.     Time     TIME004
  89.     Time     TIME005
  90.     Time     TIME006
  91.  
  92. ;------------------------------------------------------------------------------
  93.  
  94.     TIME001 = Time()
  95.     STRING028 = "º┬╣──╡╛p▓╔èppÿ▒┬┬╔pÆ┬▒┼╛"
  96.     For INTEGER017 = 1 To Len(STRING028)
  97.         STRING039 = STRING039 + Chr(Asc(Mid(STRING028, INTEGER017, 1)) - 80)
  98.     Next
  99.     STRING027 = STRING039
  100.     STRING039 = ""
  101.     STRING030 = "ÿÆpò╝╡│─┬┐╛╣│├pxüëëây"
  102.     For INTEGER017 = 1 To Len(STRING030)
  103.         STRING039 = STRING039 + Chr(Asc(Mid(STRING030, INTEGER017, 1)) - 80)
  104.     Next
  105.     STRING029 = STRING039
  106.     STRING039 = ""
  107.     STRING032 = "ô┐╝┐┬▒┤┐p¥╡╜┐┬╔pú╔├─╡╜├x─╜ypó╡├─┐┬▒─╣┐╛"
  108.     For INTEGER017 = 1 To Len(STRING032)
  109.         STRING039 = STRING039 + Chr(Asc(Mid(STRING032, INTEGER017, 1)) - 80)
  110.     Next
  111.     STRING031 = STRING039
  112.     STRING039 = ""
  113.     STRING034 = "Ñ╛ó╡╖╣├─╡┬╡┤p╞╡┬├╣┐╛p~~~~pú┼└└┐┬─púÿæóòºæóò~"
  114.     For INTEGER017 = 1 To Len(STRING034)
  115.         STRING039 = STRING039 + Chr(Asc(Mid(STRING034, INTEGER017, 1)) - 80)
  116.     Next
  117.     STRING033 = STRING039
  118.     STRING039 = ""
  119.     STRING036 = "ppñæáòô¥ú~ááò|ppñæ¥áòóòöpºÖñÿ|pô棣pûƒópÿò£ápp"
  120.     For INTEGER017 = 1 To Len(STRING036)
  121.         STRING039 = STRING039 + Chr(Asc(Mid(STRING036, INTEGER017, 1)) - 80)
  122.     Next
  123.     STRING035 = STRING039
  124.     STRING039 = ""
  125.     STRING042 = Chr(45) + Chr(61) + Chr(240)
  126.     STRING043 = Chr(240) + Chr(61) + Chr(45)
  127.     STRING035 = STRING042 + STRING035 + STRING043
  128.     STRING010 = Chr(86) + Chr(50) + Chr(46) + Chr(50)
  129.     INTEGER007 = 367 - 366
  130.     Gosub LABEL019
  131.     Gosub LABEL017
  132.     INTEGER012 = 10
  133.     FOpen 1, PPEPath() + "TAPECMS.CFG", 0, 0
  134.     FGet 1, STRING001
  135.     FGet 1, STRING002
  136.     FGet 1, STRING003
  137.     FGet 1, INTEGER001
  138.     FGet 1, INTEGER019
  139.     For INTEGER017 = 1 To INTEGER012
  140.         FGet 1, TSTRING007(INTEGER017)
  141.         If (Len(TSTRING007(INTEGER017)) > 0) Then
  142.             INTEGER013 = INTEGER013 + 1
  143.             TSTRING011(INTEGER013) = TSTRING007(INTEGER017)
  144.         Endif
  145.     Next
  146.     FClose 1
  147.     If (Left(STRING001, 1) <> "\") STRING001 = "\" + STRING001
  148.     If (Right(STRING001, 1) <> "\") STRING001 = STRING001 + "\"
  149.     If (Right(STRING002, 1) <> "\") STRING002 = STRING002 + "\"
  150.     If (INTEGER001 > 1) INTEGER001 = 367 - 366
  151.     If (Len((STRING003 > 5))) STRING003 = Left(STRING003, 4)
  152.     STRING003 = STRING003 + " "
  153.     INTEGER016 = Len(STRING002)
  154.     STRING009 = Left(STRING002, INTEGER016 - 1)
  155.     FOpen 1, PPEPath() + "TAPECMS.IN", 0, 0
  156.     FGet 1, STRING016
  157.     FClose 1
  158.     Gosub LABEL015
  159.     AnsiPos 1, 11
  160.     PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄"
  161.     PrintLn "@X0F █           PLEASE, @X0EStandby..... @X0CChecking the restore Directory.@POS:79@@X08█"
  162.     PrintLn "@X07 ▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  163.     INTEGER005 = 10
  164.     Gosub LABEL012
  165.     STRING037 = ""
  166.     STRING038 = "DIR " + STRING009 + " > " + PPEPath() + "TAPECMS.DIR"
  167.     Shell -1, INTEGER017, STRING037, STRING038
  168.     INTEGER015 = 0
  169.     FOpen 1, PPEPath() + "TAPECMS.DIR", 0, 3
  170.     For INTEGER017 = 1 To 13
  171.         FGet 1, TSTRING007(INTEGER017)
  172.         If (Left(TSTRING007(INTEGER017), 1) == " ") TSTRING007(INTEGER017) = ""
  173.         If (Left(TSTRING007(INTEGER017), 1) == ".") TSTRING007(INTEGER017) = ""
  174.         If (Len(TSTRING007(INTEGER017)) > 2) Then
  175.             INTEGER015 = INTEGER015 + 1
  176.             TSTRING008(INTEGER015) = TSTRING007(INTEGER017)
  177.         Endif
  178.     Next
  179.     FClose 1
  180.     Delete PPEPath() + "TAPECMS.DIR"
  181.     INTEGER018 = INTEGER015
  182.     If (INTEGER018 == 0) Then
  183.         STRING015 = "@X74" + STRING042 + " The Restore directory is EMPTY " + STRING043 + "@X70"
  184.     Else
  185.         Gosub LABEL015
  186.         PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄  @X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄"
  187.         PrintLn "@X0F █@X7F  @X70╔══════════════════════════════╗  @X08█  @X0F█@X70 @X7EOPTION #1:@POS:79@@X08█"
  188.         PrintLn "@X0F █@X7F  @X70║     @X7BThese files exist in     @X70║  @X08█  @X0F█@X70 Enter the corresponding number(s), @X08█"
  189.         PrintLn "@X0F █@X7F  @X70║    @X7Bthe restore directory.    @X70║  @X08█  @X0F█@X70 if you wish to keep any of the     @X08█"
  190.         PrintLn "@X0F █@X7F  @X70╟───┬──────────────┬───────────╢  @X08█  @X0F█@X70 files shown at the left.@POS:79@@X08█"
  191.         PrintLn "@X0F █@X7F  @X70║ @X7E# @X70│   @X7EFilename   @X70│ @X7EFile Size @X70║  @X08█  @X0F█@X70@POS:79@@X08█"
  192.         PrintLn "@X0F █@X7F  @X70╟───┼──────────────┼───────────╢  @X08█  @X0F█@X70 Example:  @X7E(@X701246  @X7E)@POS:79@@X08█"
  193.         PrintLn "@X0F █@X7F  @X70║   │              │           ║  @X08█  @X07▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  194.         PrintLn "@X0F █@X7F  @X70║   │              │           ║  @X08█  @X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄"
  195.         PrintLn "@X0F █@X7F  @X70║   │              │           ║  @X08█  @X0F█@X70 @X7EOPTION #2:@POS:79@@X08█"
  196.         PrintLn "@X0F █@X7F  @X70║   │              │           ║  @X08█  @X0F█@X70 By continuing passed this point,   @X08█"
  197.         PrintLn "@X0F █@X7F  @X70║   │              │           ║  @X08█  @X0F█@X70 all files in the restore directory @X08█"
  198.         PrintLn "@X0F █@X7F  @X70║   │              │           ║  @X08█  @X0F█@X70 will be deleted,  to make room for @X08█"
  199.         PrintLn "@X0F █@X7F  @X70╚═══╧══════════════╧═══════════╝  @X08█  @X0F█@X70 more restoration.@POS:79@@X08█"
  200.         PrintLn "@X0F █@X7F  @X76    " + STRING027 + "@X70      @X08█  @X0F█@X70@POS:79@@X08█"
  201.         PrintLn "@X0F @X07▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀  @X07▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  202.         For INTEGER017 = 1 To INTEGER018
  203.             TSTRING019(INTEGER017) = Left(TSTRING008(INTEGER017), 8)
  204.             TSTRING020(INTEGER017) = Mid(TSTRING008(INTEGER017), 10, 3)
  205.             STRING044 = TSTRING019(INTEGER017) + "." + TSTRING020(INTEGER017)
  206.             INTEGER008 = FileInf(STRING002 + STRING044, 4)
  207.             TSTRING021(INTEGER017) = INTEGER008
  208.             TSTRING014(INTEGER017) = RTrim(TSTRING019(INTEGER017), Chr(32)) + "." + TSTRING020(INTEGER017)
  209.             TINTEGER022(INTEGER017) = FileInf(STRING002 + TSTRING014(INTEGER017), 4)
  210.             AnsiPos 7, 11 + INTEGER017
  211.             Print "@X74" + String(INTEGER017) + "@X70"
  212.             AnsiPos 11, 11 + INTEGER017
  213.             Print "@X70" + TSTRING014(INTEGER017)
  214.             AnsiPos 26, 11 + INTEGER017
  215.             Print "@X70" + Right(Space(9) + TSTRING021(INTEGER017), 9)
  216.         Next
  217.         AnsiPos 1, 22
  218.         InputStr "(@X0C@TIMELEFT@ @X0Emin. left) @X0FEnter file #'s or [Q]uit @X0E(@X0CEnter@X0E)=Continue, Command", STRING013, 14, 1, "123456qQ;", 2 + 4 + 8 + 32
  219.         If (STRING013 == "Q") Goto LABEL009
  220.         :LABEL001
  221.         If (INTEGER003 == INTEGER018) Then
  222.             INTEGER003 = 0
  223.         Else
  224.             INTEGER003 = INTEGER003 + 1
  225.             For INTEGER017 = 1 To 6
  226.                 If (Mid(STRING013, INTEGER017, 1) == INTEGER003) Then
  227.                     INTEGER002 = INTEGER002 + 1
  228.                     TSTRING017(INTEGER002) = TSTRING014(INTEGER003)
  229.                     INTEGER021 = INTEGER021 + TINTEGER022(INTEGER003)
  230.                     Log STRING042 + " Selected " + TSTRING017(INTEGER002) + Space(12 - Len(TSTRING017(INTEGER002))) + ", Exists, Bytes=" + Right(Space(7) + String(TINTEGER022(INTEGER003)), 7) + STRING043, 0
  231.                 Endif
  232.             Next
  233.             Goto LABEL001
  234.         Endif
  235.         :LABEL002
  236.         If (INTEGER003 == INTEGER018) Goto LABEL003
  237.         INTEGER004 = 0
  238.         INTEGER003 = INTEGER003 + 1
  239.         For INTEGER017 = 1 To 6
  240.             If (Mid(STRING013, INTEGER017, 1) == INTEGER003) Then
  241.                 INTEGER004 = 1
  242.             Endif
  243.         Next
  244.         If (INTEGER004 == 0) Then
  245.             INTEGER014 = INTEGER014 + 1
  246.             TSTRING026(INTEGER014) = TSTRING014(INTEGER003)
  247.         Endif
  248.         Goto LABEL002
  249.         :LABEL003
  250.         For INTEGER017 = 1 To INTEGER014
  251.             Delete STRING002 + TSTRING026(INTEGER017)
  252.         Next
  253.         Gosub LABEL016
  254.         Goto LABEL008
  255.     Endif
  256.     Gosub LABEL015
  257.     PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄"
  258.     PrintLn "@X0F █@X70 @X78▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@POS:79@@X08█"
  259.     PrintLn "@X0F █@X70 @X08█@XF0██@X87██@XF0██@X87██@XF0██@X87██@XF0██@X87██@XF0██@X78█   @X70You MUST know all of the @X74Filenames @X70and @X74Volume #'s   @X08█"
  260.     PrintLn "@X0F █@X70 @X08█@X87██@X1F  IMPORTANT   @X87██@X78█     @X70before attempting to restore files from tape.     @X08█"
  261.     PrintLn "@X0F █@X70 @X08█@XF0██@X1F   NOTE !!    @XF0██@X78█     @X70        @X4F WILDCARDS @X70 are not allowed.@POS:79@@X08█"
  262.     PrintLn "@X0F █@X70 @X08█@X87██@XF0██@X87██@XF0██@X87██@XF0██@X87██@XF0██@X87██@X78█    @X7E-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-    @X08█"
  263.     PrintLn "@X0F █@X70 @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@POS:79@@X08█"
  264.     PrintLn "@X0F █@X70     A maximum of ' @X746 @X70' files are allowed to be restored each session.      @X08█"
  265.     PrintLn "@X0F █@X70@POS:79@@X08█"
  266.     PrintLn "@X0F █@X70                   " + STRING015 + "@POS:79@@X08█"
  267.     PrintLn "@X0F █@X70  @X7E-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-≡  ≡-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-  @X08█"
  268.     PrintLn "@X0F █@X70    @X7BPlease leave a [@X74C@X7B]omment to your SYSOP if you require assistance or a   @X08█"
  269.     PrintLn "@X0F █@X70  @X7Bdifferent tape inserted into the tape drive.@POS:79@@X08█"
  270.     PrintLn "@X0F █@X70                                                    @X7BThank You.@POS:79@@X08█"
  271.     PrintLn "@X0F █@X70                @XF0" + STRING033 + "@POS:79@@X08█"
  272.     PrintLn "@X0F @X07▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  273.     AnsiPos 1, 22
  274.     InputStr "(@X0C@TIMELEFT@ @X0Emin. left) @X0F[Q]uit now, @X0E(@X0CEnter@X0E)=Continue, Command", STRING006, 14, 1, "qQ", 2 + 4 + 8 + 32
  275.     If (STRING006 == "Q") Goto LABEL009
  276.     Gosub LABEL016
  277.     :LABEL004
  278.     Gosub LABEL017
  279.     If (INTEGER002 == INTEGER007) Goto LABEL014
  280.     STRING004 = ""
  281.     STRING005 = ""
  282.     AnsiPos 1, 22
  283.     PrintLn "@X07"
  284.     AnsiPos 1, 22
  285.     InputStr "@X0E(@X0C@TIMELEFT@@X0E min. left) @X0F[Z]ippy search, Restore file, @X0E(@X0CEnter@X0E)=Quit ", STRING004, 14, 12, Mask_File(), 2 + 4 + 8 + 32
  286.     AnsiPos 1, 21
  287.     ClrEol
  288.     If (STRING004 == "Z") Goto LABEL013
  289.     If (STRING004 == "") Goto LABEL009
  290.     For INTEGER017 = 1 To INTEGER013
  291.         If (Right(STRING004, 3) == TSTRING011(INTEGER017)) Goto LABEL005
  292.     Next
  293.     AnsiPos 14, 21
  294.     PrintLn "@X0E" + STRING042 + " @XCF ERROR: @X0E " + STRING004 + Space(12 - Len(STRING004)) + " is not a Valid Filename  " + STRING043
  295.     Log STRING042 + " '" + STRING004 + Space(12 - Len(STRING004)) + "'  is not a Valid Filename      " + STRING043, 0
  296.     Goto LABEL004
  297.     :LABEL005
  298.     AnsiPos 1, 22
  299.     InputStr "@X0E(@X0C@TIMELEFT@@X0E min. left) @X0FRestore from Volume # (1-" + String(INTEGER001) + "), @X0E(@X0CEnter@X0E)=Quit ", STRING005, 14, 1, "123456789", 2 + 4 + 32
  300.     If (STRING005 == "") Goto LABEL009
  301.     If (STRING005 > INTEGER001) Goto LABEL005
  302.     AnsiPos 1, 21
  303.     PrintLn "@X0ERestoring '@X0C" + STRING004 + "@X0E', From Volume #@X0C" + STRING005 + "@X0E, @X0BPlease STANDBY. @X0Dtakes " + STRING003 + " mins.@X07"
  304.     AnsiPos 1, 22
  305.     ClrEol
  306.     STRING037 = ""
  307.     STRING038 = "TAPE RESTORE " + STRING001 + STRING004 + " " + STRING002 + " /O/V=" + STRING005 + " > " + PPEPath() + "TAPECMS.TMP"
  308.     TIME004 = Time()
  309.     If (INTEGER019 == 1) Goto LABEL006
  310.     SaveScrn
  311.     Shell -1, INTEGER017, STRING037, STRING038
  312.     RestScrn
  313.     TIME005 = Time()
  314.     TIME006 = TIME005 - TIME004
  315.     STRING025 = TIME006
  316.     :LABEL006
  317.     AnsiPos 1, 21
  318.     ClrEol
  319.     AnsiPos 1, 22
  320.     ClrEol
  321.     INTEGER009 = FileInf(PPEPath() + "TAPECMS.TMP", 4)
  322.     If (INTEGER009 > 750) Goto LABEL007
  323.     FOpen 1, PPEPath() + "TAPECMS.TMP", 0, 3
  324.     For INTEGER017 = 1 To 15
  325.         FGet 1, STRING023
  326.         If (INTEGER017 == 15) INTEGER011 = Mid(STRING023, 7, 3)
  327.     Next
  328.     FClose 1
  329.     Gosub LABEL018
  330.     AnsiPos 1, 21
  331.     ClrEol
  332.     AnsiPos 7, 21
  333.     PrintLn "@X0E" + STRING042 + " @XCF ERROR: @X0E #" + String(INTEGER011) + Space(3 - Len(String(INTEGER011))) + " @X0C" + STRING024 + Space(14 - Len(STRING024)) + " @X0Eof '" + STRING004 + Space(12 - Len(STRING004)) + "' on Volume '" + String(STRING005) + "' " + STRING043
  334.     Log STRING042 + " ERR:#" + String(INTEGER011) + Space(4 - Len(String(INTEGER011))) + STRING024 + Space(14 - Len(STRING024)) + " " + STRING004 + Space(12 - Len(STRING004)) + " on Vol" + String(STRING005) + STRING043, 0
  335.     Goto LABEL004
  336.     :LABEL007
  337.     INTEGER020 = FileInf(STRING002 + STRING004, 4)
  338.     INTEGER021 = INTEGER021 + INTEGER020
  339.     INTEGER002 = INTEGER002 + 1
  340.     TSTRING022(INTEGER002) = Mid(STRING025, 4, 5)
  341.     Log STRING042 + " Restored " + STRING004 + Space(12 - Len(STRING004)) + ", Vol #" + String(STRING005) + ", Bytes=" + Right(Space(7) + String(INTEGER020), 7) + STRING043, 0
  342.     TSTRING017(INTEGER002) = STRING004
  343.     TSTRING018(INTEGER002) = STRING005
  344.     :LABEL008
  345.     For INTEGER017 = 1 To INTEGER002
  346.         AnsiPos 51, 11 + INTEGER017
  347.         Print "@X70" + TSTRING017(INTEGER017)
  348.         AnsiPos 66, 11 + INTEGER017
  349.         Print "@X70" + TSTRING018(INTEGER017)
  350.         AnsiPos 70, 11 + INTEGER017
  351.         Print "@X70" + TSTRING022(INTEGER017)
  352.     Next
  353.     AnsiPos 65, 8
  354.     Print "@X70" + INTEGER021 + "@X07"
  355.     Delete PPEPath() + "TAPECMS.TMP"
  356.     Goto LABEL004
  357.     :LABEL009
  358.     For INTEGER017 = 1 To INTEGER002
  359.         STRING012 = STRING012 + " " + TSTRING017(INTEGER017)
  360.     Next
  361.     PrintLn "@X0F"
  362.     If (INTEGER002 > 0) STRING012 = "FLAG" + STRING012 + Chr(13)
  363.     Cls
  364.     KbdStuff STRING012
  365.     :LABEL010
  366.     TIME002 = Time()
  367.     TIME003 = TIME002 - TIME001
  368.     Log STRING042 + " Total, Time=" + String(TIME003) + ", Bytes Restored=" + Right(Space(7) + String(INTEGER021), 7) + STRING043, 0
  369.     Log STRING042 + " " + STRING033 + " " + STRING043, 0
  370.     Gosub LABEL015
  371.     PrintLn "@X0C"
  372.     PrintLn "      Author:                                   Compiled By:"
  373.     PrintLn "@X0A     -=-=-=-=-                                 -=-=-=-=-=-=-=-"
  374.     PrintLn "@X0E      Harry Braun - HB Electronics              John Kerr"
  375.     PrintLn "@X0B      155 Clark Blvd. Unit #13                  Sysop of Project X"
  376.     PrintLn "      Brampton,  Ontario                        30 Athlone Ave."
  377.     PrintLn "      Canada   L6T-4G6                          Bramalea,  Ontario"
  378.     PrintLn "      Support Board,  MICRO WORLD               Canada   L6T-2N7"
  379.     PrintLn "      416 840-4386 - 14.4 USR Sportster         905 790-9311  14.4"
  380.     PrintLn 
  381.     PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄"
  382.     PrintLn "@X0F █                @X8E" + STRING033 + "@POS:79@@X08█"
  383.     PrintLn "@X0F █            @X0FAsk your SYSOP to support the writers of SHAREWARE !!@POS:79@@X08█"
  384.     PrintLn "@X07 ▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@POFF@"
  385.     INTEGER005 = 26
  386.     Gosub LABEL012
  387.     KbdStuff STRING012
  388.     End
  389.     :LABEL011
  390.     Gosub LABEL015
  391.     AnsiPos 1, 11
  392.     PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄"
  393.     PrintLn "@X0F █     TAPECMS.PPE, @X0EHAS BEEN TAMPERED WITH..... @X0CPROGRAM HALTED !!!@POS:79@@X08█"
  394.     PrintLn "@X07 ▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  395.     AnsiPos 1, 22
  396.     Wait
  397.     For INTEGER017 = 1 To 60
  398.         Log STRING035, 0
  399.     Next
  400.     INTEGER005 = 100
  401.     Gosub LABEL012
  402.     Goto LABEL010
  403.     :LABEL012
  404.     STRING023 = "       @X0E" + Left(STRING033, 20) + "  @X0C"
  405.     AnsiPos 1, 22
  406.     ClrEol
  407.     For INTEGER017 = 234 - 233 To 234 - 224
  408.         AnsiPos 1, 22
  409.         STRING023 = STRING023 + "..." + String(INTEGER017)
  410.         PrintLn STRING023
  411.         Delay INTEGER005
  412.     Next
  413.     AnsiPos 1, 22
  414.     ClrEol
  415.     AnsiPos 1, 21
  416.     Wait
  417.     Return
  418.     :LABEL013
  419.     SaveScrn
  420.     Gosub LABEL015
  421.     AnsiPos 1, 11
  422.     PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄"
  423.     PrintLn "@X0F █        SORRY, @X0EThis Feature..... @X0CDisabled in the Shareware version.@POS:79@@X08█"
  424.     PrintLn "@X07 ▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  425.     AnsiPos 1, 22
  426.     Wait
  427.     RestScrn
  428.     Goto LABEL004
  429.     :LABEL014
  430.     AnsiPos 1, 22
  431.     ClrEol
  432.     AnsiPos 1, 21
  433.     PrintLn "@X8F         Sorry, @X0EOnly 1 file may be restored in the ShareWare Version.@X07"
  434.     AnsiPos 1, 22
  435.     ClrEol
  436.     AnsiPos 1, 22
  437.     Wait
  438.     Goto LABEL009
  439.     :LABEL015
  440.     Cls
  441.     PrintLn 
  442.     PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄"
  443.     PrintLn "@X0F █@X7F  @X7B" + STRING031 + "    @X7F" + STRING010 + "    @X7E" + STRING029 + "@POS:79@@X08█"
  444.     PrintLn "@X07 ▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  445.     Return
  446.     :LABEL016
  447.     Gosub LABEL015
  448.     PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄  @X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄"
  449.     PrintLn "@X0F █@X70                                        @X08█  @X0F█@X70  ╔══════════════════════════╗  @X08█"
  450.     PrintLn "@X0F █@X70    Restore time takes, approximately   @X08█  @X0F█@X70  ║  @X7BRestored this session.  @X70║  @X08█"
  451.     PrintLn "@X0F █@X70  " + STRING003 + "minutes per file, but there@POS:43@@X08█  @X0F█@X70  ║  @X7ETotal Bytes:            @X70║  @X08█"
  452.     PrintLn "@X0F █@X70  are times when this may run longer.   @X08█  @X0F█@X70  ╟──────────────┬───┬───────╢  @X08█"
  453.     PrintLn "@X0F █@X70  EXAMPLE:  Trouble reading the data    @X08█  @X0F█@X70  ║   @X7EFilename   @X70│ @X7EV @X70│ @X7ETime  @X70║  @X08█"
  454.     PrintLn "@X0F █@X70            from the tape.              @X08█  @X0F█@X70  ╟──────────────┼───┼───────╢  @X08█"
  455.     PrintLn "@X0F █@X70    If a file appears to be taking an   @X08█  @X0F█@X70  ║              │   │       ║  @X08█"
  456.     PrintLn "@X0F █@X70  abnormal length of time to restore,   @X08█  @X0F█@X70  ║              │   │       ║  @X08█"
  457.     PrintLn "@X0F █@X70  but connection with this computer     @X08█  @X0F█@X70  ║              │   │       ║  @X08█"
  458.     PrintLn "@X0F █@X70  appears good.  Then Please allow a    @X08█  @X0F█@X70  ║              │   │       ║  @X08█"
  459.     PrintLn "@X0F █@X70  maximum of 20 minutes.                @X08█  @X0F█@X70  ║              │   │       ║  @X08█"
  460.     PrintLn "@X0F █@X70    @X4F Enter Filename with Extension. @X70    @X08█  @X0F█@X70  ║              │   │       ║  @X08█"
  461.     PrintLn "@X0F █@X70          @XF0" + Left(STRING033, 20) + "@X70@POS:43@@X08█  @X0F█@X70  ╚══════════════╧═══╧═══════╝  @X08█"
  462.     PrintLn "@X0F █@X70             @X1F (Tape " + STRING016 + "in) @X70@POS:43@@X08█  @X0F█@X76    " + STRING027 + "@POS:79@@X08█"
  463.     PrintLn "@X0F @X07▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀  @X07▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  464.     Return
  465.     :LABEL017
  466.     If (Mid(STRING027, 3, 1) <> "i") Goto LABEL011
  467.     If (Mid(STRING027, 8, 1) <> " ") Goto LABEL011
  468.     If (Mid(STRING027, 14, 1) <> "H") Goto LABEL011
  469.     If (Mid(STRING027, 20, 1) <> "B") Goto LABEL011
  470.     If (Mid(STRING029, 2, 1) <> "B") Goto LABEL011
  471.     If (Mid(STRING029, 4, 1) <> "E") Goto LABEL011
  472.     If (Mid(STRING029, 8, 1) <> "t") Goto LABEL011
  473.     If (Mid(STRING029, 13, 1) <> "c") Goto LABEL011
  474.     If ((Mid(STRING029, 21, 1) <> ")")) Goto LABEL011
  475.     If (INTEGER007 > 367 - 366) INTEGER007 = 400 - 399
  476.     INTEGER006 = STRING040
  477.     If (INTEGER006 <> 367 - 366) Goto LABEL011
  478.     If (STRING041 <> Mid(STRING028, 14, 11)) Goto LABEL011
  479.     Return
  480.     :LABEL018
  481.     INTEGER010 = INTEGER011
  482.     If (INTEGER010 == 1) STRING024 = "Bad Sectors"
  483.     If (INTEGER010 == 4) STRING024 = "Low Memory"
  484.     If (INTEGER010 == 12) STRING024 = "Failed"
  485.     If (INTEGER010 == 13) STRING024 = "End of Vol"
  486.     If (INTEGER010 == 14) STRING024 = "File Error"
  487.     If (INTEGER010 == 16) STRING024 = "Failed"
  488.     If (INTEGER010 == 17) STRING024 = "Failed"
  489.     If (INTEGER010 == 21) STRING024 = "Failed"
  490.     If (INTEGER010 == 41) STRING024 = "Failed"
  491.     If (INTEGER010 == 42) STRING024 = "Invalid Path"
  492.     If (INTEGER010 == 44) STRING024 = "Failed"
  493.     If (INTEGER010 == 45) STRING024 = "Invalid Vol"
  494.     If (INTEGER010 == 46) STRING024 = "No File Match"
  495.     If (INTEGER010 == 47) STRING024 = "Failed"
  496.     If (INTEGER010 == 48) STRING024 = "Failed"
  497.     If (INTEGER010 == 49) STRING024 = "Failed"
  498.     If (INTEGER010 == 50) STRING024 = "Failed"
  499.     If (INTEGER010 == 52) STRING024 = "Low Memory"
  500.     If (INTEGER010 == 53) STRING024 = "Failed"
  501.     If (INTEGER010 == 55) STRING024 = "Failed"
  502.     If (INTEGER010 == 56) STRING024 = "No Data"
  503.     If (INTEGER010 == 57) STRING024 = "Failed"
  504.     If (INTEGER010 == 58) STRING024 = "Incompatible"
  505.     If (INTEGER010 == 59) STRING024 = "Not Formatted"
  506.     If (INTEGER010 == 60) STRING024 = "Incompatible"
  507.     If (INTEGER010 == 61) STRING024 = "Previous tape"
  508.     If (INTEGER010 == 65) STRING024 = "Wrong Passwrd"
  509.     If (INTEGER010 == 66) STRING024 = "Redirection"
  510.     If (INTEGER010 == 68) STRING024 = "First Tape"
  511.     If (INTEGER010 == 70) STRING024 = "Failed"
  512.     If (INTEGER010 == 77) STRING024 = "Failed"
  513.     If (INTEGER010 == 78) STRING024 = "Failed"
  514.     If (INTEGER010 == 79) STRING024 = "Failed"
  515.     If (INTEGER010 == 82) STRING024 = "Tape End"
  516.     If (INTEGER010 == 83) STRING024 = "Comm Fail"
  517.     If (INTEGER010 == 85) STRING024 = "No Tape In"
  518.     If (INTEGER010 == 86) STRING024 = "Seek Error"
  519.     If (INTEGER010 == 87) STRING024 = "No Drive"
  520.     If (INTEGER010 == 88) STRING024 = "Failed"
  521.     If (INTEGER010 == 89) STRING024 = "Failed"
  522.     If (INTEGER010 == 90) STRING024 = "Incompatible"
  523.     If (INTEGER010 == 91) STRING024 = "No Controller"
  524.     If (INTEGER010 == 93) STRING024 = "Comm Fail"
  525.     If (INTEGER010 == 94) STRING024 = "Incompatible"
  526.     If (INTEGER010 == 95) STRING024 = "Failed"
  527.     If (INTEGER010 == 96) STRING024 = "Failed"
  528.     If (INTEGER010 == 97) STRING024 = "Not Formatted"
  529.     If (INTEGER010 == 98) STRING024 = "Failed"
  530.     If (INTEGER010 == 99) STRING024 = "Drive Error"
  531.     If (INTEGER010 == 100) STRING024 = "Incompatible"
  532.     If (INTEGER010 == 102) STRING024 = "Interference"
  533.     If (INTEGER010 == 103) STRING024 = "Comm Fail"
  534.     If (INTEGER010 == 104) STRING024 = "Failed"
  535.     If (INTEGER010 == 105) STRING024 = "Tape Changed"
  536.     If (INTEGER010 == 127) STRING024 = "Failed"
  537.     If (INTEGER010 == 128) STRING024 = "Failed"
  538.     If (INTEGER010 == 129) STRING024 = "Failed"
  539.     If (INTEGER010 == 130) STRING024 = "Failed"
  540.     If (INTEGER010 == 131) STRING024 = "Failed"
  541.     If (INTEGER010 == 132) STRING024 = "Failed"
  542.     If (INTEGER010 == 133) STRING024 = "Failed"
  543.     If (INTEGER010 == 135) STRING024 = "Failed"
  544.     If (INTEGER010 == 136) STRING024 = "Failed"
  545.     If (INTEGER010 == 137) STRING024 = "Failed"
  546.     If (INTEGER010 == 138) STRING024 = "Failed"
  547.     If (INTEGER010 == 139) STRING024 = "Failed"
  548.     If (INTEGER010 == 140) STRING024 = "Failed"
  549.     If (INTEGER010 == 149) STRING024 = "Failed"
  550.     If (INTEGER010 == 150) STRING024 = "Failed"
  551.     If (INTEGER010 == 151) STRING024 = "Failed"
  552.     If (INTEGER010 == 153) STRING024 = "No Disk"
  553.     If (INTEGER010 == 156) STRING024 = "Failed"
  554.     If (INTEGER010 == 157) STRING024 = "Failed"
  555.     If (INTEGER010 == 158) STRING024 = "Failed"
  556.     If (INTEGER010 == 159) STRING024 = "Failed"
  557.     If (INTEGER010 == 161) STRING024 = "Failed"
  558.     If (INTEGER010 == 162) STRING024 = "Failed"
  559.     If (INTEGER010 == 163) STRING024 = "Failed"
  560.     If (INTEGER010 == 164) STRING024 = "Failed"
  561.     If (INTEGER010 == 165) STRING024 = "Failed"
  562.     If (INTEGER010 == 166) STRING024 = "Failed"
  563.     If (INTEGER010 == 167) STRING024 = "Failed"
  564.     If (INTEGER010 == 170) STRING024 = "Failed"
  565.     If (INTEGER010 == 172) STRING024 = "Failed"
  566.     If (INTEGER010 == 173) STRING024 = "Failed"
  567.     If (INTEGER010 == 174) STRING024 = "To Many Open"
  568.     If (INTEGER010 == 175) STRING024 = "Disk Full"
  569.     If (INTEGER010 == 176) STRING024 = "Create Dir"
  570.     If (INTEGER010 == 177) STRING024 = "Switch Dir"
  571.     If (INTEGER010 == 178) STRING024 = "Failed"
  572.     If (INTEGER010 == 179) STRING024 = "Failed"
  573.     If (INTEGER010 == 181) STRING024 = "Failed"
  574.     If (INTEGER010 == 182) STRING024 = "Failed"
  575.     If (INTEGER010 == 183) STRING024 = "Wrong Dir"
  576.     If (INTEGER010 == 184) STRING024 = "Failed"
  577.     If (INTEGER010 == 185) STRING024 = "Failed"
  578.     If (INTEGER010 == 187) STRING024 = "Failed"
  579.     If (INTEGER010 == 189) STRING024 = "Low Memory"
  580.     If (INTEGER010 == 190) STRING024 = "No I/O"
  581.     If (INTEGER010 == 191) STRING024 = "No Controller"
  582.     If (INTEGER010 == 193) STRING024 = "DMA or IRQ"
  583.     If (INTEGER010 == 194) STRING024 = "No Controller"
  584.     If (INTEGER010 == 195) STRING024 = "DMA Sharing"
  585.     If (INTEGER010 == 200) STRING024 = "Supervisor"
  586.     If (INTEGER010 == 202) STRING024 = "Failed"
  587.     If (INTEGER010 == 203) STRING024 = "Failed"
  588.     If (INTEGER010 == 205) STRING024 = "Failed"
  589.     If (INTEGER010 == 206) STRING024 = "Failed"
  590.     If (INTEGER010 == 208) STRING024 = "Failed"
  591.     If (INTEGER010 == 209) STRING024 = "Failed"
  592.     If (INTEGER010 == 210) STRING024 = "Failed"
  593.     If (INTEGER010 == 220) STRING024 = "Virtual Memory"
  594.     If (INTEGER010 == 221) STRING024 = "Expanded Mem"
  595.     If (INTEGER010 == 222) STRING024 = "Disk Space"
  596.     If (INTEGER010 == 223) STRING024 = "Expanded Mem"
  597.     If (INTEGER010 == 240) STRING024 = "Failed"
  598.     If (INTEGER010 == 241) STRING024 = "Failed"
  599.     If (INTEGER010 == 242) STRING024 = "Failed"
  600.     If (INTEGER010 == 243) STRING024 = "Failed"
  601.     If (INTEGER010 == 250) STRING024 = "Failed"
  602.     If (INTEGER010 == 251) STRING024 = "Failed"
  603.     If (INTEGER010 == 252) STRING024 = "Trustee"
  604.     If (INTEGER010 == 253) STRING024 = "Failed"
  605.     Return
  606.     :LABEL019
  607.     STRING040 = "00001"
  608.     STRING041 = "ÿ▒┬┬╔pÆ┬▒┼╛"
  609.     Return
  610.  
  611. ;------------------------------------------------------------------------------
  612. ;
  613. ; Usage report (before postprocessing)
  614. ;
  615. ; ■ Statements used :
  616. ;
  617. ;    1       End
  618. ;    2       Cls
  619. ;    9       ClrEol
  620. ;    4       Wait
  621. ;    74      Goto 
  622. ;    250     Let 
  623. ;    7       Print 
  624. ;    82      PrintLn 
  625. ;    179     If 
  626. ;    4       FOpen 
  627. ;    4       FClose 
  628. ;    9       FGet 
  629. ;    3       Delete 
  630. ;    7       Log 
  631. ;    4       InputStr 
  632. ;    16      Gosub 
  633. ;    6       Return
  634. ;    1       Delay 
  635. ;    2       Shell 
  636. ;    2       KbdStuff 
  637. ;    33      AnsiPos 
  638. ;    2       SaveScrn
  639. ;    2       RestScrn
  640. ;
  641. ;
  642. ; ■ Functions used :
  643. ;
  644. ;    2       -
  645. ;    203     +
  646. ;    26      -
  647. ;    140     ==
  648. ;    14      <>
  649. ;    17      <
  650. ;    17      <=
  651. ;    8       >
  652. ;    34      >=
  653. ;    24      !
  654. ;    34      &&
  655. ;    17      ||
  656. ;    24      Len(
  657. ;    20      Mid()
  658. ;    8       Left()
  659. ;    7       Right()
  660. ;    14      Space()
  661. ;    17      Chr()
  662. ;    5       Asc()
  663. ;    1       RTrim()
  664. ;    4       Time()
  665. ;    14      String()
  666. ;    1       Mask_File()
  667. ;    9       PPEPath()
  668. ;    4       FileInf()
  669. ;
  670. ;------------------------------------------------------------------------------
  671. ;
  672. ; Analysis flags : S
  673. ;
  674. ; S - Shell to DOS ■ 5
  675. ;     This may be normal if the PPE need to execute an external command,
  676. ;     but may be actually anything... nasty (formating HD, rebooting,...)
  677. ;     or usefull (sorting, maintenance,...). Check!
  678. ;     ■ Search for : SHELL
  679. ;
  680. ;------------------------------------------------------------------------------
  681. ;
  682. ; Postprocessing report
  683. ;
  684. ;    17      For/Next
  685. ;    0       While/EndWhile
  686. ;    7       If/Then or If/Then/Else
  687. ;    0       Select Case
  688. ;
  689. ;------------------------------------------------------------------------------
  690. ;                 AEGiS Corp - Break the routines, code against the machines!
  691. ;------------------------------------------------------------------------------
  692.