home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / ALF / ALF_NFS1.ZIP / ALF_NFS1.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1994-08-17  |  8.1 KB  |  402 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.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     String   STRING001
  22.     String   STRING002
  23.     String   STRING003
  24.     String   STRING004
  25.     String   STRING005
  26.     String   STRING006
  27.     String   STRING007
  28.     String   STRING008
  29.     String   STRING009
  30.     String   STRING010
  31.     String   STRING011
  32.     String   STRING012
  33.     String   STRING013
  34.     String   STRING014
  35.     String   STRING015
  36.     String   STRING016
  37.     String   STRING017
  38.     String   STRING018
  39.     String   STRING019
  40.     String   STRING020
  41.     String   STRING021
  42.     String   STRING022
  43.     String   STRING023
  44.     String   STRING024
  45.     String   STRING025
  46.     String   STRING026
  47.     String   STRING027
  48.     String   STRING028
  49.     String   STRING029
  50.     String   STRING030
  51.     String   STRING031
  52.     String   STRING032
  53.     String   STRING033
  54.     String   STRING034
  55.     String   STRING035
  56.     String   STRING036
  57.     String   STRING037
  58.     String   STRING038
  59.     String   STRING039
  60.     String   STRING040
  61.     String   STRING041
  62.     String   STRING042
  63.     String   STRING043
  64.     String   STRING044
  65.     String   STRING045
  66.     String   STRING046
  67.  
  68. ;------------------------------------------------------------------------------
  69.  
  70.     Newline
  71.     Newline
  72.     Newline
  73.     FOpen 19, PPEPath() + "ALF_NFS1.CFG", 0, 0
  74.     FGet 19, STRING031
  75.     FGet 19, STRING032
  76.     FGet 19, STRING033
  77.     FGet 19, STRING034
  78.     FGet 19, STRING035
  79.     FGet 19, STRING036
  80.     FGet 19, STRING037
  81.     FGet 19, STRING038
  82.     FGet 19, STRING039
  83.     FGet 19, STRING040
  84.     FGet 19, STRING041
  85.     FGet 19, STRING042
  86.     FGet 19, STRING043
  87.     FGet 19, STRING044
  88.     FGet 19, STRING045
  89.     FGet 19, STRING046
  90.     FClose 19
  91.     STRING023 = GetX()
  92.     STRING024 = GetY()
  93.     STRING024 = STRING024 - 3
  94.     STRING026 = Time()
  95.     STRING022 = Left(STRING026, 5)
  96.     If (TokCount() <> 0) Then
  97.         STRING013 = TokenStr()
  98.         Tokenize STRING013
  99.         GetToken STRING014
  100.         GetToken STRING015
  101.         If ((((((((STRING014 == "T") || (STRING014 == "t")) || (STRING014 == "Y")) || (STRING014 == "y")) || (STRING014 == "W")) || (STRING014 == "w")) || (STRING014 == "S")) || (STRING014 == "s")) Then
  102.             If ((STRING014 == "T") || (STRING014 == "t")) Then
  103.                 STRING030 = Date()
  104.                 STRING029 = ToDate(STRING030)
  105.                 STRING029 = Strip(STRING029, "-")
  106.                 STRING030 = STRING029
  107.                 KbdStuff "N;" + STRING030 + ";" + STRING015 + Chr(13)
  108.                 End
  109.             Endif
  110.             If ((STRING014 == "Y") || (STRING014 == "y")) Then
  111.                 STRING025 = String(Left(Date(), 2))
  112.                 STRING026 = String(Mid(Date(), 4, 2))
  113.                 STRING027 = String(Right(Date(), 2))
  114.                 STRING021 = STRING026 - 1
  115.                 KbdStuff "N;" + STRING025 + STRING021 + STRING027 + ";" + STRING015 + Chr(13)
  116.                 End
  117.             Endif
  118.         Endif
  119.         KbdStuff "N;" + STRING014 + ";" + STRING015 + Chr(13)
  120.         End
  121.     Endif
  122.     :LABEL001
  123.     STRING013 = String(Left(Date(), 2))
  124.     STRING014 = String(Mid(Date(), 4, 2))
  125.     STRING015 = String(Right(Date(), 2))
  126.     INTEGER001 = Date() - 1
  127.     STRING026 = Time()
  128.     STRING022 = Left(STRING026, 5)
  129.     STRING016 = ToDate(INTEGER001)
  130.     STRING016 = Strip(STRING016, "-")
  131.     STRING017 = STRING016
  132.     STRING006 = Left(STRING017, 2)
  133.     STRING007 = Mid(STRING017, 3, 2)
  134.     STRING008 = Right(STRING017, 2)
  135.     STRING005 = STRING040 + STRING006 + STRING041 + "-" + STRING007 + STRING042 + "-" + STRING008
  136.     INTEGER002 = Date() - 2
  137.     STRING018 = ToDate(INTEGER002)
  138.     STRING018 = Strip(STRING018, "-")
  139.     STRING019 = STRING018
  140.     STRING002 = Left(STRING019, 2)
  141.     STRING003 = Mid(STRING019, 3, 2)
  142.     STRING004 = Right(STRING019, 2)
  143.     STRING001 = STRING040 + STRING002 + STRING041 + "-" + STRING003 + STRING042 + "-" + STRING004
  144.     AnsiPos 1, STRING024
  145.     STRING028 = STRING036 + "Today         "
  146.     PrintLn "@POFF@", STRING031, STRING032, STRING022, " ", STRING033, STRING034, Date(), " ", STRING035, STRING036, STRING028
  147.     PrintLn STRING037
  148.     Print STRING038, "  [", STRING046, Date(), STRING039, "]  ", STRING038, "[", STRING005, STRING039, "]", STRING038, "  [", STRING001, STRING039, "]  ", STRING043, "    "
  149.     :LABEL002
  150.     STRING020 = Inkey()
  151.     If (STRING020 == "RIGHT") Goto LABEL004
  152.     If (STRING020 == "LEFT") Goto LABEL013
  153.     If (STRING020 == "?") Goto LABEL016
  154.     If (STRING020 == Chr(13)) Goto LABEL003
  155.     If (STRING020 == Chr(27)) Goto LABEL015
  156.     If (STRING020 == "") Goto LABEL002
  157.     Goto LABEL002
  158.     :LABEL003
  159.     KbdStuff "N;" + STRING013 + STRING014 + STRING015 + ";A" + Chr(13)
  160.     End
  161.     :LABEL004
  162.     STRING028 = STRING036 + "Yesterday     "
  163.     INTEGER001 = Date() - 1
  164.     STRING015 = ToDate(INTEGER001)
  165.     STRING015 = Strip(STRING015, "-")
  166.     STRING014 = STRING015
  167.     STRING026 = Time()
  168.     STRING022 = Left(STRING026, 5)
  169.     STRING006 = Left(STRING014, 2)
  170.     STRING007 = Mid(STRING014, 3, 2)
  171.     STRING008 = Right(STRING014, 2)
  172.     STRING005 = STRING006 + "-" + STRING007 + "-" + STRING008
  173.     INTEGER002 = Date() - 2
  174.     STRING018 = ToDate(INTEGER002)
  175.     STRING018 = Strip(STRING018, "-")
  176.     STRING019 = STRING018
  177.     STRING002 = Left(STRING019, 2)
  178.     STRING003 = Mid(STRING019, 3, 2)
  179.     STRING004 = Right(STRING019, 2)
  180.     STRING001 = STRING040 + STRING002 + STRING041 + "-" + STRING003 + STRING042 + "-" + STRING004
  181.     STRING010 = String(Left(Date(), 2))
  182.     STRING011 = String(Mid(Date(), 4, 2))
  183.     STRING012 = String(Right(Date(), 2))
  184.     STRING009 = STRING040 + STRING010 + STRING041 + "-" + STRING011 + STRING042 + "-" + STRING012
  185.     AnsiPos 1, STRING024
  186.     PrintLn "@POFF@", STRING031, STRING032, STRING022, " ", STRING033, STRING034, Date(), " ", STRING035, STRING036, STRING028
  187.     PrintLn STRING037
  188.     Print STRING038, "  [", STRING009, STRING039, "]  ", STRING038, "[", STRING046, STRING005, STRING039, "]", STRING038, "  [", STRING001, STRING039, "]  ", STRING043, "    "
  189.     :LABEL005
  190.     STRING020 = Inkey()
  191.     If (STRING020 == "LEFT") Goto LABEL001
  192.     If (STRING020 == "RIGHT") Goto LABEL007
  193.     If (STRING020 == "?") Goto LABEL016
  194.     If (STRING020 == Chr(13)) Goto LABEL006
  195.     If (STRING020 == Chr(27)) Goto LABEL015
  196.     If (STRING020 == "") Goto LABEL005
  197.     Goto LABEL005
  198.     :LABEL006
  199.     KbdStuff "N;" + STRING014 + ";A" + Chr(13)
  200.     End
  201.     :LABEL007
  202.     STRING028 = "@X0FTwo Days Ago    "
  203.     INTEGER001 = Date() - 1
  204.     STRING015 = ToDate(INTEGER001)
  205.     STRING015 = Strip(STRING015, "-")
  206.     STRING014 = STRING015
  207.     STRING026 = Time()
  208.     STRING022 = Left(STRING026, 5)
  209.     STRING006 = Left(STRING014, 2)
  210.     STRING007 = Mid(STRING014, 3, 2)
  211.     STRING008 = Right(STRING014, 2)
  212.     STRING005 = STRING040 + STRING006 + STRING041 + "-" + STRING007 + STRING042 + "-" + STRING008
  213.     INTEGER002 = Date() - 2
  214.     STRING018 = ToDate(INTEGER002)
  215.     STRING018 = Strip(STRING018, "-")
  216.     STRING019 = STRING018
  217.     STRING002 = Left(STRING019, 2)
  218.     STRING003 = Mid(STRING019, 3, 2)
  219.     STRING004 = Right(STRING019, 2)
  220.     STRING001 = STRING002 + "-" + STRING003 + "-" + STRING004
  221.     STRING010 = String(Left(Date(), 2))
  222.     STRING011 = String(Mid(Date(), 4, 2))
  223.     STRING012 = String(Right(Date(), 2))
  224.     STRING009 = STRING040 + STRING010 + STRING041 + "-" + STRING011 + STRING042 + "-" + STRING012
  225.     AnsiPos 1, STRING024
  226.     PrintLn "@POFF@", STRING031, STRING032, STRING022, " ", STRING033, STRING034, Date(), " ", STRING035, STRING036, STRING028
  227.     PrintLn STRING037
  228.     Print STRING038, "  [", STRING009, STRING039, "]  ", STRING038, "[", STRING005, STRING039, "]", STRING038, "  [", STRING046, STRING001, STRING039, "]  ", STRING043, "    "
  229.     :LABEL008
  230.     STRING020 = Inkey()
  231.     If (STRING020 == "LEFT") Goto LABEL004
  232.     If (STRING020 == "RIGHT") Goto LABEL010
  233.     If (STRING020 == "?") Goto LABEL016
  234.     If (STRING020 == Chr(13)) Goto LABEL009
  235.     If (STRING020 == Chr(27)) Goto LABEL015
  236.     If (STRING020 == "") Goto LABEL008
  237.     Goto LABEL008
  238.     :LABEL009
  239.     KbdStuff "N;" + STRING019 + ";A" + Chr(13)
  240.     End
  241.     :LABEL010
  242.     STRING028 = "@X0FOther        "
  243.     INTEGER001 = Date() - 1
  244.     STRING015 = ToDate(INTEGER001)
  245.     STRING015 = Strip(STRING015, "-")
  246.     STRING014 = STRING015
  247.     STRING026 = Time()
  248.     STRING022 = Left(STRING026, 5)
  249.     STRING006 = Left(STRING014, 2)
  250.     STRING007 = Mid(STRING014, 3, 2)
  251.     STRING008 = Right(STRING014, 2)
  252.     STRING005 = STRING040 + STRING006 + STRING041 + "-" + STRING007 + STRING042 + "-" + STRING008
  253.     INTEGER002 = Date() - 2
  254.     STRING018 = ToDate(INTEGER002)
  255.     STRING018 = Strip(STRING018, "-")
  256.     STRING019 = STRING018
  257.     STRING002 = Left(STRING019, 2)
  258.     STRING003 = Mid(STRING019, 3, 2)
  259.     STRING004 = Right(STRING019, 2)
  260.     STRING001 = STRING040 + STRING002 + STRING041 + "-" + STRING003 + STRING042 + "-" + STRING004
  261.     STRING010 = String(Left(Date(), 2))
  262.     STRING011 = String(Mid(Date(), 4, 2))
  263.     STRING012 = String(Right(Date(), 2))
  264.     STRING009 = STRING040 + STRING010 + STRING041 + "-" + STRING011 + STRING042 + "-" + STRING012
  265.     AnsiPos 1, STRING024
  266.     PrintLn "@POFF@", STRING031, STRING032, STRING022, " ", STRING033, STRING034, Date(), " ", STRING035, STRING036, STRING028
  267.     PrintLn STRING037
  268.     Print STRING038, "  [", STRING009, STRING039, "]  ", STRING038, "[", STRING005, STRING039, "]", STRING038, "  [", STRING001, STRING039, "]  ", STRING044, "    "
  269.     :LABEL011
  270.     STRING020 = Inkey()
  271.     If (STRING020 == "LEFT") Goto LABEL007
  272.     If (STRING020 == "?") Goto LABEL016
  273.     If (STRING020 == "RIGHT") Goto LABEL013
  274.     If (STRING020 == Chr(13)) Goto LABEL012
  275.     If (STRING020 == Chr(27)) Goto LABEL015
  276.     If (STRING020 == "") Goto LABEL011
  277.     Goto LABEL011
  278.     :LABEL012
  279.     KbdStuff "F;N" + Chr(13)
  280.     End
  281.     :LABEL013
  282.     STRING028 = "@X0FQuit         "
  283.     INTEGER001 = Date() - 1
  284.     STRING015 = ToDate(INTEGER001)
  285.     STRING015 = Strip(STRING015, "-")
  286.     STRING014 = STRING015
  287.     STRING026 = Time()
  288.     STRING022 = Left(STRING026, 5)
  289.     STRING006 = Left(STRING014, 2)
  290.     STRING007 = Mid(STRING014, 3, 2)
  291.     STRING008 = Right(STRING014, 2)
  292.     STRING005 = STRING040 + STRING006 + STRING041 + "-" + STRING007 + STRING042 + "-" + STRING008
  293.     INTEGER002 = Date() - 2
  294.     STRING018 = ToDate(INTEGER002)
  295.     STRING018 = Strip(STRING018, "-")
  296.     STRING019 = STRING018
  297.     STRING002 = Left(STRING019, 2)
  298.     STRING003 = Mid(STRING019, 3, 2)
  299.     STRING004 = Right(STRING019, 2)
  300.     STRING001 = STRING040 + STRING002 + STRING041 + "-" + STRING003 + STRING042 + "-" + STRING004
  301.     STRING010 = String(Left(Date(), 2))
  302.     STRING011 = String(Mid(Date(), 4, 2))
  303.     STRING012 = String(Right(Date(), 2))
  304.     STRING009 = STRING040 + STRING010 + STRING041 + "-" + STRING011 + STRING042 + "-" + STRING012
  305.     AnsiPos 1, STRING024
  306.     PrintLn "@POFF@", STRING031, STRING032, STRING022, " ", STRING033, STRING034, Date(), " ", STRING035, STRING036, STRING028
  307.     PrintLn STRING037
  308.     Print STRING038, "  [", STRING009, STRING039, "]  ", STRING038, "[", STRING005, STRING039, "]", STRING038, "  [", STRING001, STRING039, "]  ", STRING045, "    "
  309.     :LABEL014
  310.     STRING020 = Inkey()
  311.     If (STRING020 == "LEFT") Goto LABEL010
  312.     If (STRING020 == "?") Goto LABEL016
  313.     If (STRING020 == "RIGHT") Goto LABEL001
  314.     If (STRING020 == Chr(13)) Goto LABEL015
  315.     If (STRING020 == Chr(27)) Goto LABEL015
  316.     If (STRING020 == "") Goto LABEL014
  317.     Goto LABEL014
  318.     :LABEL015
  319.     Newline
  320.     PrintLn "@X08@X0FP@X07P@X08E By Mass Murderer [ALF]"
  321.     End
  322.     :LABEL016
  323.     Cls
  324.     PrintLn "    @X7F┌───────────────────────────────────────────────────────────────────────@X70┐@X0F"
  325.     PrintLn "    @X7F│              ALF New File Scan v1.1ß By Mass Murderer                 @X70│@X0F"
  326.     PrintLn "    @X7F└@X70───────────────────────────────────────────────────────────────────────┘@X0F"
  327.     PrintLn "    @X7F┌───────────────────────────────────────────────────────────────────────@X70┐@X0F"
  328.     PrintLn "    @X7F│  Examples:                                                            @X70│@X0F"
  329.     PrintLn "    @X7F│       N S U  Scan for New Files Since Last Call in Upload Dir         @X70│@X0F"
  330.     PrintLn "    @X7F│       N T U  Scan for New Files Uploaded Since Today in Upload Dir    @X70│@X0F"
  331.     PrintLn "    @X7F│       N Y U  Scan for New Files Uploaded Since Yesterday in Upload Dir@X70│@X0F"
  332.     PrintLn "    @X7F│  N 010194 A  Scan for New Files Uploaded Since Jan 1st 94 in All Dirs @X70│@X0F"
  333.     PrintLn "    @X7F└@X70───────────────────────────────────────────────────────────────────────┘@X0F"
  334.     PrintLn "  "
  335.     PrintLn "  "
  336.     PrintLn "  "
  337.     Goto LABEL001
  338.  
  339. ;------------------------------------------------------------------------------
  340. ;
  341. ; Usage report (before postprocessing)
  342. ;
  343. ; ■ Statements used :
  344. ;
  345. ;    8       End
  346. ;    1       Cls
  347. ;    40      Goto 
  348. ;    133     Let 
  349. ;    5       Print 
  350. ;    24      PrintLn 
  351. ;    34      If 
  352. ;    1       FOpen 
  353. ;    1       FClose 
  354. ;    16      FGet 
  355. ;    4       Newline
  356. ;    1       Tokenize 
  357. ;    2       GetToken 
  358. ;    7       KbdStuff 
  359. ;    5       AnsiPos 
  360. ;
  361. ;
  362. ; ■ Functions used :
  363. ;
  364. ;    121     +
  365. ;    12      -
  366. ;    42      ==
  367. ;    1       <>
  368. ;    4       !
  369. ;    9       ||
  370. ;    16      Mid()
  371. ;    22      Left()
  372. ;    16      Right()
  373. ;    17      Chr()
  374. ;    35      Date()
  375. ;    6       Time()
  376. ;    11      Strip()
  377. ;    5       Inkey()
  378. ;    18      String()
  379. ;    1       PPEPath()
  380. ;    1       TokenStr()
  381. ;    1       GetX()
  382. ;    1       GetY()
  383. ;    1       TokCount()
  384. ;    11      ToDate()
  385. ;
  386. ;------------------------------------------------------------------------------
  387. ;
  388. ; Analysis flags : No flag
  389. ;
  390. ;------------------------------------------------------------------------------
  391. ;
  392. ; Postprocessing report
  393. ;
  394. ;    0       For/Next
  395. ;    0       While/EndWhile
  396. ;    4       If/Then or If/Then/Else
  397. ;    0       Select Case
  398. ;
  399. ;------------------------------------------------------------------------------
  400. ;                 AEGiS Corp - Break the routines, code against the machines!
  401. ;------------------------------------------------------------------------------
  402.