home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / BBS-PCBOARD-STUFF / DOD_NS11.ZIP / NFSCAN.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-05-03  |  15KB  |  689 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.     Date     DATE001
  20.     Date     DATE002
  21.     Date     DATE003
  22.     Integer  INTEGER001
  23.     Integer  INTEGER002
  24.     Integer  INTEGER003
  25.     Integer  INTEGER004
  26.     Integer  INTEGER005
  27.     Integer  INTEGER006
  28.     Integer  INTEGER007
  29.     Integer  INTEGER008
  30.     Integer  INTEGER009
  31.     Integer  INTEGER010
  32.     Integer  INTEGER011
  33.     Integer  INTEGER012
  34.     Integer  INTEGER013
  35.     Integer  INTEGER014
  36.     Integer  INTEGER015
  37.     Integer  INTEGER016
  38.     String   STRING001
  39.     String   STRING002
  40.     String   STRING003
  41.     String   STRING004
  42.     String   STRING005
  43.     String   STRING006
  44.     String   TSTRING007(999)
  45.     String   TSTRING008(999)
  46.     String   STRING009
  47.     String   STRING010
  48.     String   STRING011
  49.     String   TSTRING012(999)
  50.     String   STRING013
  51.     String   STRING014
  52.     String   STRING015
  53.     String   STRING016
  54.     String   STRING017
  55.     String   STRING018
  56.     String   STRING019
  57.     String   STRING020
  58.     String   STRING021
  59.     String   STRING022
  60.     String   TSTRING023(999)
  61.     String   STRING024
  62.     String   STRING025
  63.     String   TSTRING026(999)
  64.     String   TSTRING027(999)
  65.  
  66. ;------------------------------------------------------------------------------
  67.  
  68.     STRING013 = PPEPath() + "TEMP.$$$"
  69.     STRING004 = PPEPath() + "NFSCAN.USR"
  70.     STRING001 = "v1.1 "
  71.     INTEGER005 = 1
  72.     INTEGER012 = 1
  73.     INTEGER011 = 1
  74.     DATE002 = Date()
  75.     FOpen 0, GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\PCBOARD.DAT", 2, 0
  76.     For INTEGER001 = 1 To 31
  77.         FGet 0, STRING002
  78.     Next
  79.     FClose 0
  80.     If (FileInf(STRING002, 1) <> 1) Then
  81.         Cls
  82.         PrintLn "@X08NEW F@X0Fi@X08LES SCAN " + STRING001 + " @X08[Co@X07ded @X0Fby Moon Sha@X07dow @X08/DOD]@X07"
  83.         PrintLn "@X0CERROR: CNAMES not found!@X07  :)"
  84.         Log "NFS: not found CNAMES :) " + Time() + " " + Date(), 0
  85.         Newline
  86.         Wait
  87.         End
  88.     Endif
  89.     GetUser
  90.     FOpen 0, STRING002, 2, 0
  91.     For INTEGER009 = 1 To 999
  92.         :LABEL001
  93.         FGet 0, TSTRING007(INTEGER009)
  94.         For INTEGER006 = 1 To 13
  95.             FGet 0, STRING005
  96.         Next
  97.         FGet 0, TSTRING026(INTEGER009)
  98.         FGet 0, TSTRING027(INTEGER009)
  99.         For INTEGER006 = 1 To 14
  100.             FGet 0, STRING005
  101.         Next
  102.         FGet 0, TSTRING008(INTEGER009)
  103.         FGet 0, STRING005
  104.         FGet 0, STRING005
  105.         If (Ferr(0)) Break
  106.         If (ConfReg(INTEGER009 - 1) <> 1) Goto LABEL001
  107.     Next
  108.     FClose 0
  109.     :LABEL002
  110.     For INTEGER001 = 1 To INTEGER009 - 1
  111.         TSTRING012(INTEGER001) = ""
  112.     Next
  113.     STRING014 = ""
  114.     PrintLn "@X0E@CLS@@X0F╒════════════════════════════@X07══@X0F══@X07═@X0F══@X07═══════════════@X08══@X07═══@X08════════@X07═@X08═════════════@X08╕"
  115.     PrintLn "@X0F│ [  Scan  ]  │                    NE@X07W Fi@X08LES S@X07CA@X0FN                        @X08     │"
  116.     PrintLn "@X0F│ [ Config ]  @X07│              @X08·Cod@X08@X07ed b@X0Fy Moon Sha@X07dow @X08/ DOD·                     │"
  117.     PrintLn "@X07│ @X0F[  Quit  ]  @X08│                                                               │"
  118.     PrintLn "╘═════════════════════════════════════════════════════════════════════════════╛"
  119.     AnsiPos 74, 2
  120.     Print STRING001
  121.     Goto LABEL004
  122.     :LABEL003
  123.     STRING003 = Upper(Inkey())
  124.     If (STRING003 == "") Goto LABEL003
  125.     If (Asc(STRING003) == 13) Goto LABEL006
  126.     If (Asc(STRING003) == 85) INTEGER005 = INTEGER005 - 1
  127.     If (Asc(STRING003) == 68) INTEGER005 = INTEGER005 + 1
  128.     If (STRING003 == "A") INTEGER005 = INTEGER005 - 1
  129.     If (STRING003 == "Z") INTEGER005 = INTEGER005 + 1
  130.     If (INTEGER005 > 3) INTEGER005 = 1
  131.     If (INTEGER005 < 1) INTEGER005 = 3
  132.     :LABEL004
  133.     If (INTEGER005 == 1) Then
  134.         Gosub LABEL005
  135.         AnsiPos 4, 2
  136.         Print "@X1F  SCAN  @X07"
  137.         Goto LABEL003
  138.     Endif
  139.     If (INTEGER005 == 2) Then
  140.         Gosub LABEL005
  141.         AnsiPos 4, 3
  142.         Print "@X1F CONFIG @X07"
  143.         Goto LABEL003
  144.     Endif
  145.     If (INTEGER005 == 3) Then
  146.         Gosub LABEL005
  147.         AnsiPos 4, 4
  148.         Print "@X1F  QUIT  @X07"
  149.         Goto LABEL003
  150.     Endif
  151.     :LABEL005
  152.     AnsiPos 3, 2
  153.     Print "@X0F[  Scan  ]"
  154.     AnsiPos 3, 3
  155.     Print "@X0F[ Config ]"
  156.     AnsiPos 3, 4
  157.     Print "@X0F[  Quit  ]"
  158.     Return
  159.     :LABEL006
  160.     FClose 0
  161.     FClose 1
  162.     FClose 2
  163.     FClose 3
  164.     If (INTEGER005 == 1) Then
  165.         If (FileInf(STRING004, 1) <> 1) Then
  166.             INTEGER005 = 2
  167.             Goto LABEL006
  168.         Endif
  169.         AnsiPos 29, 4
  170.         DATE001 = U_LDate()
  171.         InputDate "@X08Da@X07te @X0Fto sea@X07rc@X08h - ", DATE001, "@X07"
  172.         If (DATE001 == "") Goto LABEL004
  173.         FOpen 0, STRING004, 0, 0
  174.         :LABEL007
  175.         FGet 0, STRING009
  176.         If (STRING009 == U_Name()) Then
  177.             FGet 0, STRING009
  178.         Else
  179.             FGet 0, STRING009
  180.             If (Ferr(0)) Then
  181.                 INTEGER005 = 2
  182.                 Goto LABEL006
  183.             Endif
  184.             Goto LABEL007
  185.         Endif
  186.         Cls
  187.         For INTEGER001 = 1 To Len(STRING009)
  188.             INTEGER002 = 0
  189.             STRING015 = Left(STRING009, INTEGER001)
  190.             STRING015 = Right(STRING015, 1)
  191.             If (STRING015 == "N") Continue
  192.             FClose 0
  193.             FClose 1
  194.             FClose 2
  195.             FClose 3
  196.             FOpen 1, TSTRING008(INTEGER001), 0, 0
  197.             FDefIn 1
  198.             FSeek 1, 0, 0
  199.             For INTEGER004 = 1 To 999999999
  200.                 FDRead STRING011, 30
  201.                 If (STRING011 == "") Then
  202.                     INTEGER002 = 0
  203.                     STRING011 = TSTRING026(INTEGER001)
  204.                     STRING022 = TSTRING027(INTEGER001)
  205.                     STRING010 = "Recent upload"
  206.                     Gosub LABEL021
  207.                     Break
  208.                 Endif
  209.                 FDRead STRING022, 30
  210.                 FDRead STRING010, 35
  211.                 FDRead STRING005, 1
  212.                 If (Ferr(1)) Then
  213.                     INTEGER002 = 0
  214.                     STRING011 = TSTRING026(INTEGER001)
  215.                     STRING022 = TSTRING027(INTEGER001) + " "
  216.                     STRING010 = "Recent upload"
  217.                     Gosub LABEL021
  218.                     Break
  219.                 Endif
  220.                 Gosub LABEL021
  221.             Next
  222.         Next
  223.     Else
  224.         If (INTEGER005 == 3) Then
  225.             Cls
  226.             End
  227.         Endif
  228.         If (INTEGER005 == 2) Then
  229.             Cls
  230.             FClose 0
  231.             FClose 1
  232.             FClose 3
  233.             If (FileInf(STRING004, 1) <> 1) Goto LABEL010
  234.             FOpen 0, STRING004, 0, 0
  235.             :LABEL008
  236.             FGet 0, STRING009
  237.             If (STRING009 == U_Name()) Then
  238.                 FGet 0, STRING009
  239.                 Goto LABEL009
  240.             Endif
  241.             FGet 0, STRING009
  242.             If (Ferr(0)) Goto LABEL010
  243.             Goto LABEL008
  244.             :LABEL009
  245.             For INTEGER001 = 1 To INTEGER009 - 1
  246.                 STRING015 = Left(STRING009, INTEGER001)
  247.                 STRING015 = Right(STRING015, 1)
  248.                 If (STRING015 == "N") Then
  249.                     TSTRING012(INTEGER001) = "N"
  250.                     Continue
  251.                 Endif
  252.                 TSTRING012(INTEGER001) = "Y"
  253.             Next
  254.             :LABEL010
  255.             FClose 0
  256.             :LABEL011
  257.             Cls
  258.             PrintLn "@X1F  ■  Select Conference for New Files Scan                                 @X1B" + STRING001 + "@X07"
  259.             PrintLn "@X0F──────────────────────────@X07─@X0F──@X07──@X0F──@X07───@X0F──@X07─@X0F─@X07───────────────────@X08─@X07─@X08──@X07──@X08─────@X07─@X08────────@X08"
  260.             For INTEGER001 = 1 To INTEGER009 - 1
  261.                 If (TSTRING012(INTEGER001) == "Y") Then
  262.                     PrintLn "                            @X0F@X07", INTEGER001, " : @X0F", TSTRING007(INTEGER001)
  263.                     Continue
  264.                 Endif
  265.                 PrintLn "                             @X07", INTEGER001, " : @X07", TSTRING007(INTEGER001)
  266.             Next
  267.             PrintLn "@X0F─[@X07ENTER - Continue@X0F]───────@X07─@X0F──@X07──@X0F──@X07───@X0F──@X07─@X0F─@X07───────────────────@X08─@X07─@X08──@X07──@X08─────@X07─@X08────────@X08"
  268.             STRING019 = ""
  269.             InputStr "@X0F─-", STRING019, "@X0F", 74, "1234567890 ", 32
  270.             If (STRING019 == "") Then
  271.                 For INTEGER001 = 1 To INTEGER009 - 1
  272.                     If (TSTRING012(INTEGER001) == "Y") Then
  273.                         STRING014 = STRING014 + "Y"
  274.                         Continue
  275.                     Endif
  276.                     STRING014 = STRING014 + "N"
  277.                 Next
  278.                 FClose 0
  279.                 FClose 1
  280.                 FOpen 0, STRING004, 2, 0
  281.                 FCreate 1, STRING013, 2, 0
  282.                 For INTEGER001 = 1 To 999999999
  283.                     FGet 0, STRING009
  284.                     If (STRING009 == "") Break
  285.                     If (InStr(STRING009, U_Name()) <> 0) Then
  286.                         FGet 0, STRING009
  287.                         Continue
  288.                     Endif
  289.                     FPutLn 1, STRING009
  290.                     FGet 0, STRING009
  291.                     FPutLn 1, STRING009
  292.                     If (Ferr(0)) Break
  293.                 Next
  294.                 FPutLn 1, U_Name()
  295.                 FPutLn 1, STRING014
  296.                 FClose 0
  297.                 FClose 1
  298.                 Delete STRING004
  299.                 Rename STRING013, STRING004
  300.                 Goto LABEL002
  301.             Endif
  302.             :LABEL012
  303.             INTEGER010 = LTrim(STRING019, " ")
  304.             INTEGER008 = InStr(STRING019, " ")
  305.             If (INTEGER008 == 0) INTEGER010 = STRING019
  306.             STRING019 = Right(STRING019, Len(STRING019) - INTEGER008)
  307.             If (INTEGER010 > INTEGER009 - 1) Goto LABEL013
  308.             If (TSTRING012(INTEGER010) == "Y") Then
  309.                 TSTRING012(INTEGER010) = "N"
  310.                 AnsiPos 1, INTEGER010 + 1
  311.                 Print "                             "
  312.                 Goto LABEL013
  313.             Endif
  314.             TSTRING012(INTEGER010) = "Y"
  315.             :LABEL013
  316.             If (INTEGER008 == 0) Goto LABEL011
  317.             Goto LABEL012
  318.         Endif
  319.         :LABEL014
  320.         STRING003 = Inkey()
  321.         If (STRING003 == "") Goto LABEL014
  322.         If (Asc(STRING003) == 13) Goto LABEL016
  323.         If (Asc(STRING003) == 27) Then
  324.             STRING025 = ScrText(1, 6 + INTEGER007, 13, 0)
  325.             AnsiPos 1, 6 + INTEGER007
  326.             Print STRING025
  327.             INTEGER007 = 0
  328.             STRING020 = ""
  329.             STRING021 = ""
  330.             Return
  331.         Endif
  332.         If (STRING003 == " ") Then
  333.             INTEGER007 = INTEGER007 + 1
  334.         Else
  335.             Goto LABEL014
  336.         Endif
  337.         AnsiPos 1, 5 + INTEGER007
  338.         Print STRING020
  339.         If (INTEGER007 >= 16) Then
  340.             INTEGER007 = 0
  341.             INTEGER016 = 0
  342.         Endif
  343.         :LABEL015
  344.         STRING021 = RTrim(ScrText(1, 6 + INTEGER007, 13, 0), " ")
  345.         STRING017 = RTrim(ScrText(1, 6 + INTEGER007, 32, 0), " ")
  346.         If ((((STRING021 == "             ") || InStr(STRING021, "─────────────")) || (FileInf(Left(STRING022, InStr(STRING022, " ") - 1) + STRING021, 1) <> 1)) || (((InStr(STRING017, "DELETED") <> 0) || (InStr(STRING017, "OFF-LINE") <> 0)) || (InStr(STRING017, "FLAGGED") <> 0))) Then
  347.             INTEGER007 = INTEGER007 + 1
  348.             If (INTEGER007 >= 16) Then
  349.                 INTEGER007 = 0
  350.                 INTEGER016 = INTEGER016 + 1
  351.                 If ((INTEGER013 == 0) || (INTEGER016 == 2)) Then
  352.                     INTEGER016 = 0
  353.                     Return
  354.                 Endif
  355.             Endif
  356.             Goto LABEL015
  357.         Endif
  358.         AnsiPos 1, 6 + INTEGER007
  359.         Print "@X1B" + STRING021 + "@X07"
  360.         INTEGER016 = 0
  361.         INTEGER013 = 1
  362.         STRING020 = STRING021
  363.         Goto LABEL014
  364.         :LABEL016
  365.         STRING025 = ScrText(1, 6 + INTEGER007, 13, 0)
  366.         AnsiPos 1, 6 + INTEGER007
  367.         Print "@X2F  ADD  LIST  @X07"
  368.         AnsiPos 14, 6 + INTEGER007
  369.         Print "    @X02F@X0AIL@X0FE ■ @X0FFL@X0AAGG@X02ED@X07 "
  370.         AnsiPos 33, 6 + INTEGER007
  371.         Print "@X07" + ScrText(33, 6 + INTEGER007, 47, 0)
  372.         Delay 10
  373.         If (InStr(STRING022, " ") == 0) Then
  374.             STRING024 = STRING022
  375.         Else
  376.             STRING024 = Left(STRING022, InStr(STRING022, " ") - 1)
  377.         Endif
  378.         Flag STRING024 + STRING021
  379.         Flag STRING024 + STRING021
  380.         Flag STRING024 + STRING021
  381.         INTEGER011 = INTEGER011 + 1
  382.         AnsiPos 34, 1
  383.         Print "@X0FFl@X07agg@X08ed @X09", INTEGER011 - 1, " @X0Ffi@X07le@X08s@X07"
  384.         TSTRING023(INTEGER011) = STRING021
  385.         AnsiPos 1, 6 + INTEGER007
  386.         Print STRING025
  387.         INTEGER007 = INTEGER007 + 1
  388.         INTEGER016 = 0
  389.         Goto LABEL015
  390.         Return
  391.         :LABEL017
  392.         STRING018 = ""
  393.         AnsiPos 1, 22
  394.         PrintLn "@X0F──────────────────────────@X07─@X0F──@X07──@X0F──@X07───@X0F──@X07─@X0F─@X07───────────────────@X08─@X07─@X08──@X07──@X08─────@X07─@X08────────@X08"
  395.         Print Chr(13) + "@X08                [@X0FESC@X08]@X07-Exit  @X08[@X0FSPACE@X08]@X07-Flag file  @X08[@X0FENTER@X08]@X07-Continue                "
  396.         :LABEL018
  397.         STRING018 = Upper(Inkey())
  398.         If ((((((STRING018 == " ") && (INTEGER013 == 1)) && (FileInf(Left(STRING022, InStr(STRING022, " ") - 1) + Left(STRING017, InStr(STRING017, " ") - 1), 1) == 1)) && (InStr(Left(STRING016, 32), "DELETED") == 0)) && (InStr(Left(STRING016, 32), "FLAGGED") == 0)) && (InStr(Left(STRING016, 32), "OFF-LINE") == 0)) Then
  399.             AnsiPos 1, 22
  400.             PrintLn "@X0F──────────────────────────@X07─@X0F──@X07──@X0F──@X07───@X0F──@X07─@X0F─@X07───────────────────@X08─@X07─@X08──@X07──@X08─────@X07─@X08────────@X08"
  401.             Print Chr(13) + "@X08                [@X0FESC@X08]@X07-Exit  @X08[@X0FSPACE@X08]@X07-Move bar  @X08[@X0FENTER@X08]@X07-Flag file                "
  402.             Gosub LABEL015
  403.             Goto LABEL017
  404.         Endif
  405.         Select Case (STRING018)
  406.             Case Chr(27)
  407.                 Cls
  408.                 If (STRING018 == Chr(13)) Then
  409.                     Cls
  410.                     Return
  411.                 Endif
  412.                 Goto LABEL018
  413.                 :LABEL019
  414.                 STRING018 = ""
  415.                 AnsiPos 1, 22
  416.                 PrintLn "@X0F──────────────────────────@X07─@X0F──@X07──@X0F──@X07───@X0F──@X07─@X0F─@X07───────────────────@X08─@X07─@X08──@X07──@X08─────@X07─@X08────────@X08"
  417.                 Print Chr(13) + "        @X08[@X0FESC@X0F@X08]@X07-Exit  @X08[@X0FN@X08]@X07-Next area  @X08[@X0FSPACE@X08]@X07-Flag file  @X08[@X0FENTER@X08]@X07-Continue         "
  418.                 :LABEL020
  419.                 STRING018 = Upper(Inkey())
  420.                 If (((((((STRING018 == " ") && (INTEGER013 == 1)) && (FileInf(Left(STRING022, InStr(STRING022, " ") - 1) + Left(STRING017, InStr(STRING017, " ") - 1), 1) == 1)) && (InStr(Left(STRING016, 32), "DELETED") == 0)) && (InStr(Left(STRING016, 32), "FLAGGED") == 0)) && (InStr(Left(STRING016, 32), "OFF-LINE") == 0)) || (INTEGER007 >= 16)) Then
  421.                     AnsiPos 1, 22
  422.                     PrintLn "@X0F──────────────────────────@X07─@X0F──@X07──@X0F──@X07───@X0F──@X07─@X0F─@X07───────────────────@X08─@X07─@X08──@X07──@X08─────@X07─@X08────────@X08"
  423.                     Print Chr(13) + "                @X08[@X0FESC@X08]@X07-Exit  @X08[@X0FSPACE@X08]@X07-Move bar  @X08[@X0FENTER@X08]@X07-Flag file                "
  424.                     Gosub LABEL015
  425.                     Goto LABEL019
  426.                 Endif
  427.                 If (STRING018 == "N") Then
  428.                     Goto LABEL026
  429.                 Endif
  430.             Case Chr(27)
  431.                 Cls
  432.             Case Else
  433.                 If ((STRING018 == "Y") || (STRING018 == Chr(13))) Then
  434.                     Cls
  435.                 Else
  436.                     Goto LABEL020
  437.                     :LABEL021
  438.                     INTEGER013 = 0
  439.                     AnsiPos 1, 1
  440.                     PrintLn "@POFF@@X0FCon@X07fere@X08nce :@X07 " + TSTRING007(INTEGER001)
  441.                     PrintLn "    @X0F Ar@X07ea@X08s :@X07 " + STRING010
  442.                     AnsiPos 55, 2
  443.                     Print "@X0FDa@X07t@X08e @X0Ff@X07o@X08r @X0Fsc@X07a@X08n @X0B: @X09", DATE001, "@X07"
  444.                     AnsiPos 55, 1
  445.                     Print "@X8F      ■@X07 @X0FSc@X09anni@X01ng. @X07"
  446.                     INTEGER002 = 0
  447.                     FClose 3
  448.                     FOpen 3, STRING011, 2, 1
  449.                     :LABEL022
  450.                     FGet 3, STRING016
  451.                     :LABEL023
  452.                     If (Ferr(3)) Then
  453.                         FClose 3
  454.                         Goto LABEL026
  455.                     Endif
  456.                     If (Left(STRING016, 1) == " ") Goto LABEL022
  457.                     STRING017 = Left(STRING016, 32)
  458.                     If ((((STRING017 <> "") && (InStr(STRING017, "DELETED") == 0)) && (InStr(STRING017, "FLAGGED") == 0)) && (InStr(STRING017, "OFF-LINE") == 0)) INTEGER013 = 1
  459.                     DATE003 = Left(Right(STRING017, 9), 8)
  460.                     If (((((DATE003 > DATE001) || (DATE003 == DATE001)) || InStr(STRING017, "DELETED")) || InStr(STRING017, "OFF-LINE")) || InStr(STRING017, "FLAGGED")) Then
  461.                         If (INTEGER002 == 0) Then
  462.                             AnsiPos 1, 3
  463.                             PrintLn "@X0F──────────────────────────@X07─@X0F──@X07──@X0F──@X07───@X0F──@X07─@X0F─@X07───────────────────@X08─@X07─@X08──@X07──@X08─────@X07─@X08────────@X08"
  464.                             PrintLn "@X7F▌ @X70Filename @X78▐@X08  @X7F▌ @X70Size @X78▐@X08 @X7F▌ @X70Date  @X78▐@X08 @X7F▌                @X70Description                 @X78▐@X07"
  465.                             PrintLn "@X0F──────────────────────────@X07─@X0F──@X07──@X0F──@X07───@X0F──@X07─@X0F─@X07───────────────────@X08─@X07─@X08──@X07──@X08─────@X07─@X08────────@X08"
  466.                             AnsiPos 1, 6 + INTEGER002
  467.                         Endif
  468.                         INTEGER003 = INTEGER003 + 1
  469.                         If (((FileInf(Left(STRING022, InStr(STRING022, " ") - 1) + Left(STRING017, InStr(STRING017, " ") - 1), 1) <> 1) || InStr(STRING017, "DELETED")) || InStr(STRING017, "OFF-LINE")) Then
  470.                             STRING016 = "@X07" + Left(STRING016, 13) + "    @X04F@X0CIL@X0FE ■ @X0FDE@X0CLET@X04ED@X07 " + Right(STRING016, Len(STRING016) - 32) + "@X07"
  471.                             Goto LABEL024
  472.                         Endif
  473.                         STRING021 = Left(STRING017, InStr(STRING017, " ") - 1)
  474.                         Gosub LABEL028
  475.                         If (INTEGER014 == 1) Then
  476.                             STRING016 = "@X07" + Left(STRING016, 13) + "    @X02F@X0AIL@X0FE ■ @X0FFL@X0AAGG@X02ED@X07 " + Right(STRING016, Len(STRING016) - 32) + "@X07"
  477.                             INTEGER011 = INTEGER011 + 1
  478.                             Goto LABEL024
  479.                         Endif
  480.                         STRING016 = "@X07" + Left(STRING016, 23) + "@X0F" + Right(Left(STRING016, 32), 9) + "@X09" + Right(STRING016, Len(STRING016) - 32) + "@X07"
  481.                         :LABEL024
  482.                         AnsiPos 53, 1
  483.                         Print " "
  484.                         :LABEL025
  485.                         AnsiPos 55, 1
  486.                         Print "@X0FFo@X07un@X08d @X09", INTEGER003, " @X0Fn@X07e@X08w @X0Ffi@X07le@X08s@X07"
  487.                         AnsiPos 34, 1
  488.                         Print "@X0FFl@X07agg@X08ed @X09", INTEGER011 - 1, " @X0Ffi@X07le@X08s@X07"
  489.                         AnsiPos 1, 6 + INTEGER002
  490.                         INTEGER002 = INTEGER002 + 1
  491.                         PrintLn STRING016
  492.                         If (INTEGER002 > 15) Then
  493.                             INTEGER002 = 0
  494.                             Goto LABEL019
  495.                         Endif
  496.                         INTEGER013 = 0
  497.                         AnsiPos 1, 1
  498.                         PrintLn "@POFF@@X0FCon@X07fere@X08nce :@X07 " + TSTRING007(INTEGER001)
  499.                         PrintLn "    @X0F Ar@X07ea@X08s :@X07 " + STRING010
  500.                         PrintLn "@X0F──────────────────────────@X07─@X0F──@X07──@X0F──@X07───@X0F──@X07─@X0F─@X07───────────────────@X08─@X07─@X08──@X07──@X08─────@X07─@X08────────@X08"
  501.                         PrintLn "@X7F▌ @X70Filename @X78▐@X08  @X7F▌ @X70Size @X78▐@X08 @X7F▌ @X70Date  @X78▐@X08 @X7F▌                @X70Description                 @X78▐@X07"
  502.                         PrintLn "@X0F──────────────────────────@X07─@X0F──@X07──@X0F──@X07───@X0F──@X07─@X0F─@X07───────────────────@X08─@X07─@X08──@X07──@X08─────@X07─@X08────────@X08"
  503.                         AnsiPos 55, 2
  504.                         Print "@X0FDa@X07t@X08e @X0Ff@X07o@X08r @X0Fsc@X07a@X08n @X0B: @X09", DATE001, "@X07"
  505.                         AnsiPos 1, 6 + INTEGER002
  506.                     Endif
  507.                     If (Ferr(3)) Then
  508.                         FClose 3
  509.                         Goto LABEL026
  510.                     Endif
  511.                     FGet 3, STRING016
  512.                     If (Left(STRING016, 1) <> " ") Goto LABEL023
  513.                     Goto LABEL025
  514.                 Endif
  515.                 If (Ferr(3)) Then
  516.                     FClose 3
  517.                 Else
  518.                     Goto LABEL022
  519.                 Endif
  520.                 :LABEL026
  521.                 If (INTEGER002 <> 0) Gosub LABEL017
  522.                 Cls
  523.                 INTEGER013 = 0
  524.                 Return
  525.             Endif
  526.     End Select
  527.     Cls
  528.     PrintLn "@X1F▌ ■ STATiSTiC            @X1B Coded by Moon Shadow /DOD     @X1E  NEW FILES SCAN      @X1F▐@X07"
  529.     AnsiPos 74, 1
  530.     Print "@X19" + STRING001
  531.     AnsiPos 1, 2
  532.     PrintLn "@X07──────────────────────────@X07─@X0F──@X07──@X0F──@X07───@X0F──@X07─@X0F─@X07───────────────────@X08─@X07─@X08──@X07──@X08─────@X07─@X08────────@X08"
  533.     PrintLn "@X0F                            @X08 @X07Foun@X0Fd files :@X09", INTEGER003
  534.     PrintLn "@X0F                              @X08@X07Flagg@X0Fed files :@X09", INTEGER011 - 1
  535.     PrintLn "@X0F──────────────────────────@X07─@X0F──@X07──@X0F──@X07───@X0F──@X07─@X0F─@X07───────────────────@X08─@X07─@X08──@X07──@X08─────@X07─@X08────────@X08"
  536.     PrintLn "                             @X0FP@X08ress @X0FA@X08ny @X0FK@X08ey @X0FT@X08o @X0FC@X08ontinue                         "
  537.     Newline
  538.     INTEGER001 = 0
  539.     :LABEL027
  540.     INTEGER001 = INTEGER001 + 1
  541.     If (INTEGER001 == 5) INTEGER001 = 0
  542.     If (INTEGER001 == 1) Then
  543.         AnsiPos 30, 3
  544.         Print "@X0F@X07@X08"
  545.         AnsiPos 31, 4
  546.         Print "@X07@X0F"
  547.     Endif
  548.     If (INTEGER001 == 2) Then
  549.         AnsiPos 30, 3
  550.         Print "@X0F@X07@X08"
  551.         AnsiPos 31, 4
  552.         Print "@X07@X08@X0F"
  553.     Endif
  554.     If (INTEGER001 == 3) Then
  555.         AnsiPos 30, 3
  556.         Print "@X07@X0F@X07"
  557.         AnsiPos 31, 4
  558.         Print "@X0F@X07@X08"
  559.     Endif
  560.     If (INTEGER001 == 4) Then
  561.         AnsiPos 30, 3
  562.         Print "@X08@X07@X0F"
  563.         AnsiPos 31, 4
  564.         Print "@X0F@X07@X08"
  565.     Endif
  566.     If (INTEGER001 == 5) Then
  567.         AnsiPos 30, 3
  568.         Print "@X07@X08"
  569.         AnsiPos 31, 4
  570.         Print "@X07@X0F@X07"
  571.     Endif
  572.     Delay 1
  573.     STRING005 = Inkey()
  574.     If (STRING005 == "") Goto LABEL027
  575.     End
  576.     :LABEL028
  577.     FClose 1
  578.     INTEGER014 = 0
  579.     If (FileInf(GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\FLIST.", 1) <> 1) Return
  580.     FOpen 1, GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\FLIST.", 0, 0
  581.     FDefIn 1
  582.     FSeek 1, 0, 0
  583.     For INTEGER015 = 1 To 999
  584.         FSeek 1, 0, 1
  585.         FDRead STRING006, 66
  586.         FDRead STRING006, 12
  587.         If (STRING006 == STRING021) Then
  588.             INTEGER014 = 1
  589.             Break
  590.         Endif
  591.         FDRead STRING006, 51
  592.         If (Ferr(1)) Break
  593.     Next
  594.     FClose 1
  595.     Return
  596.  
  597. ;------------------------------------------------------------------------------
  598. ;
  599. ; Usage report (before postprocessing)
  600. ;
  601. ; ■ Statements used :
  602. ;
  603. ;    3       End
  604. ;    11      Cls
  605. ;    1       Wait
  606. ;    132     Goto 
  607. ;    116     Let 
  608. ;    37      Print 
  609. ;    33      PrintLn 
  610. ;    88      If 
  611. ;    1       FCreate 
  612. ;    8       FOpen 
  613. ;    24      FClose 
  614. ;    20      FGet 
  615. ;    4       FPutLn 
  616. ;    1       GetUser
  617. ;    1       Delete 
  618. ;    1       Log 
  619. ;    1       InputStr 
  620. ;    1       InputDate 
  621. ;    10      Gosub 
  622. ;    8       Return
  623. ;    2       Delay 
  624. ;    2       Newline
  625. ;    45      AnsiPos 
  626. ;    1       Rename 
  627. ;    3       FSeek 
  628. ;    2       FDefIn 
  629. ;    7       FDRead 
  630. ;    3       Flag 
  631. ;
  632. ;
  633. ; ■ Functions used :
  634. ;
  635. ;    90      +
  636. ;    28      -
  637. ;    66      ==
  638. ;    14      <>
  639. ;    13      <
  640. ;    12      <=
  641. ;    4       >
  642. ;    27      >=
  643. ;    59      !
  644. ;    37      &&
  645. ;    26      ||
  646. ;    6       Len(
  647. ;    3       Upper()
  648. ;    25      Left()
  649. ;    8       Right()
  650. ;    9       Ferr()
  651. ;    8       Chr()
  652. ;    5       Asc()
  653. ;    30      InStr()
  654. ;    1       LTrim()
  655. ;    2       RTrim()
  656. ;    2       Date()
  657. ;    1       Time()
  658. ;    4       U_Name()
  659. ;    1       U_LDate()
  660. ;    5       Inkey()
  661. ;    2       PPEPath()
  662. ;    6       GetEnv()
  663. ;    8       FileInf()
  664. ;    5       ScrText()
  665. ;    1       ConfReg()
  666. ;
  667. ;------------------------------------------------------------------------------
  668. ;
  669. ; Analysis flags : f
  670. ;
  671. ; f - Flag files for download ■ 3
  672. ;     This may be normal if a PPE needs to send some files, but since
  673. ;     this statement allows flagging of any file on the hard disk, you
  674. ;     have to be carefull. Check!
  675. ;     ■ Search for : FLAG
  676. ;
  677. ;------------------------------------------------------------------------------
  678. ;
  679. ; Postprocessing report
  680. ;
  681. ;    12      For/Next
  682. ;    0       While/EndWhile
  683. ;    45      If/Then or If/Then/Else
  684. ;    1       Select Case
  685. ;
  686. ;------------------------------------------------------------------------------
  687. ;                 AEGiS Corp - Break the routines, code against the machines!
  688. ;------------------------------------------------------------------------------
  689.