home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 12 / CD_ASCQ_12_0294.iso / vrac / nufilz20.zip / N.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-01-26  |  13KB  |  578 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.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     String   STRING001
  25.     String   STRING002
  26.     String   STRING003
  27.     String   STRING004
  28.     String   TSTRING005(100)
  29.     String   STRING006
  30.     String   STRING007
  31.     String   STRING008
  32.     String   STRING009
  33.     String   STRING010
  34.     String   STRING011
  35.     String   STRING012
  36.     String   STRING013
  37.     String   STRING014
  38.     String   STRING015
  39.     String   STRING016
  40.     String   STRING017
  41.     String   STRING018
  42.     String   STRING019
  43.     String   STRING020
  44.     String   STRING021
  45.     String   STRING022
  46.     String   TSTRING023(20)
  47.     String   STRING024
  48.     String   STRING025
  49.     String   STRING026
  50.     String   STRING027
  51.  
  52. ;------------------------------------------------------------------------------
  53.  
  54.     Cls
  55.     GetToken STRING022
  56.     If (STRING022 == "") Goto LABEL002
  57.     If (Upper(STRING022) == "H") Then
  58.         DispFile PPEPath() + "newfiles.hlp", ""
  59.         Wait
  60.     Else
  61.         Select Case (STRING022)
  62.             Case "1"
  63.                 GetToken STRING022
  64.                 If (STRING022 == "") Then
  65.                     STRING022 = Strip(U_LDir(), "-")
  66.                     KbdStuff "N"
  67.                     End
  68.                 ElseIf (STRING022 <> "") Then
  69.                     STRING010 = STRING022
  70.                     GetToken STRING022
  71.                     If (STRING022 == "") Then
  72.                         KbdStuff "N " + STRING010
  73.                         Goto LABEL001
  74.                     Endif
  75.                     If (STRING022 <> "") Then
  76.                         INTEGER003 = 0
  77.                         While (STRING022 <> "") Do
  78.                             INTEGER003 = INTEGER003 + 1
  79.                             TSTRING023(INTEGER003) = STRING022
  80.                             STRING024 = STRING024 + " " + STRING022
  81.                             GetToken STRING022
  82.                         EndWhile
  83.                         KbdStuff "N " + STRING010 + " " + STRING024
  84.                     Endif
  85.                 Endif
  86.                 :LABEL001
  87.                 GetToken STRING022
  88.                 If (STRING022 == "") Then
  89.                     PrintLn 
  90.                     STRING025 = " @X0EPlease input Directories to Scan@X07"
  91.                 Else
  92.                     STRING025 = " @X06D@X0Eirectories: " + STRING024 + "@X07"
  93.                 Endif
  94.                 PrintLn "      @X0BYou are scanning from: @X0F", STRING010 + "@X07" + STRING025
  95.                 PrintLn 
  96.                 If (STRING022 == "") Then
  97.                     End
  98.                 ElseIf (Upper(STRING022) == "A") Then
  99.                     KbdStuff "A" + Chr(34)
  100.                 ElseIf (STRING022 <> "") Then
  101.                     PrintLn 
  102.                     PrintLn " you got here"
  103.                     PrintLn "      @X0BYou are scanning from:@X0F ", STRING010, "@X0E  Please select directoires to scan@X07"
  104.                     PrintLn 
  105.                     KbdStuff STRING022
  106.                 Endif
  107.                 End
  108.             Case "2"
  109.                 GetToken STRING022
  110.                 If (STRING022 == "") Then
  111.                     STRING010 = Strip(U_LDir(), "-")
  112.                 ElseIf (Len(STRING022) >= 7) Then
  113.                     STRING010 = Strip(STRING022, "-")
  114.                 Else
  115.                     STRING010 = STRING022
  116.                 Endif
  117.                 GetToken STRING022
  118.                 If (STRING022 == "") Then
  119.                     STRING022 = "A"
  120.                 ElseIf (STRING022 <> "") Then
  121.                     While (STRING022 <> "") Do
  122.                         STRING024 = STRING024 + " " + STRING022
  123.                         GetToken STRING022
  124.                     EndWhile
  125.                     PrintLn STRING024
  126.                     STRING004 = STRING024
  127.                 Endif
  128.                 Gosub LABEL023
  129.                 PrintLn 
  130.                 PrintLn "          @X0FYou are @X0Bscanning @X0Ffrom@X0C " + STRING010 + "@X0F with the following @X0Adirectories@X07"
  131.                 PrintLn 
  132.                 Goto LABEL005
  133.                 End
  134.             Case 
  135.                 Gosub LABEL023
  136.                 Gosub LABEL024
  137.                 STRING010 = Strip(STRING022, "-")
  138.                 GetToken STRING022
  139.                 PrintLn "                 @X0FType @X0DN @X0Fat main prompt for @X0Amenu, @X0FN H for @X0Ehelp@X07"
  140.                 PrintLn 
  141.                 If (STRING022 == "") Then
  142.                     PrintLn "                           @X0BScanning @X0Ffrom @X0E" + STRING010 + "@X07"
  143.                     PrintLn 
  144.                 Else
  145.                     While (STRING022 <> "") Do
  146.                         STRING026 = STRING026 + " " + STRING022
  147.                         GetToken STRING022
  148.                     EndWhile
  149.                     STRING022 = STRING026
  150.                     PrintLn "@POS:16@@X0BScanning @X0Ffrom @X0E" + STRING010 + "@X0F Directory(s):@X0A " + STRING022 + "@X07"
  151.                     Delay 50
  152.                 Endif
  153.                 STRING022 = "N " + STRING010 + " " + STRING022
  154.                 KbdStuff STRING022
  155.                 End
  156.             Case Else
  157.                 Goto LABEL002
  158.             Endif
  159.     End Select
  160.     :LABEL002
  161.     STRING021 = ""
  162.     PrintLn 
  163.     PrintLn "              @X0FWould you like to @X0Escan @X0Ffor all the @X0Cnew files @X0Fusing the "
  164.     PrintLn " @X0F             standard PCBoard scan or would you like to @X0Escan @X0Ffor @X0Cnew@X07"
  165.     PrintLn "             @X0C files @X0Fand @X0Ddownload a list @X0Fof new file descriptions.@X07"
  166.     PrintLn 
  167.     PrintLn "        Enter N 1 for regular PCBoard scan followed by date and directories"
  168.     PrintLn "        Enter N 2 for newfiles scan with listing of files and descriptions"
  169.     PrintLn "             Typing N 1 or N 2 at the main prompt will skip this menu"
  170.     PrintLn 
  171.     PrintLn "         @X0F              1. @X0BRegular PCBoard New files scan@X07"
  172.     PrintLn "         @X0F              2. @X0ANew file scan with descriptions@X07"
  173.     PrintLn 
  174.     InputStr "               @X0FChoose one of the above(C/R to abort, @X0EH@X0F)elp)@X07", STRING021, 14, 1, "12HhqQ", 4 + 2 + 8
  175.     Select Case (STRING021)
  176.         Case ""
  177.             End
  178.         Case "1"
  179.             Newlines 2
  180.             KbdStuff "N"
  181.             End
  182.         Case "2"
  183.             Goto LABEL003
  184.         Case "H"
  185.             DispFile PPEPath() + "newfiles.hlp", ""
  186.             Goto LABEL002
  187.         Case Else
  188.     End Select
  189.     :LABEL003
  190.     Gosub LABEL023
  191.     PrintLn 
  192.     Gosub LABEL022
  193.     :LABEL004
  194.     PrintLn 
  195.     STRING007 = ReadLine(PCBDat(), 31)
  196.     STRING008 = ReadLine(STRING007, 16)
  197.     STRING009 = ReadLine(PCBDat(), 27)
  198.     PrintLn " @X0B ┌─────────────────────────────────────────────────────────────────────────┐@X07"
  199.     PrintLn "@X0B  │ @X0FThe @X0Enew @X0Afile @X0Dnames  @X0Fwill automatically be placed in a downloadable list @X0B│@X07"
  200.     PrintLn "@X0B  │ @X0Fcalled @X0CNEWFILZ" + String(PcbNode()) + ".ZIP @X0Fand will be @X0Bflagged for download.                   │@X07"
  201.     PrintLn "@X0B  └─────────────────────────────────────────────────────────────────────────┘@X07"
  202.     PrintLn 
  203.     STRING015 = TempPath() + "flag.lst"
  204.     STRING016 = TempPath() + "newfiles.lst"
  205.     If (Exist(STRING015)) Delete STRING015
  206.     If (Exist(STRING016)) Delete STRING016
  207.     If (STRING010 == "") STRING010 = Strip(U_LDir(), "-")
  208.     If (STRING024 == "") STRING004 = "A"
  209.     InputStr "@X0A    What date to scan from @X0E(C/R for last date on)@X07 ", STRING010, 14, 6, "0123456789-", 2 + 4 + 256
  210.     If (STRING010 == "") Then
  211.         STRING010 = U_LDate()
  212.     Else
  213.         STRING010 = STRING010
  214.     Endif
  215.     STRING012 = ""
  216.     PrintLn 
  217.     PrintLn " @X0A   ╔════════════════════════════════════════════════════════════════════╗@X07"
  218.     PrintLn "@X0A    ║@X07 E@X0Fnter the range of file directories you want to scan for new files.@X0A║@X07"
  219.     PrintLn "@X0A    ║@X07 Y@X0Fou may enter a @X0Esingle @X0Fdirectory, a @X0Erange @X0Fof directories or        @X0A║@X07"
  220.     PrintLn "@X0A    ║ @X0DU @X0Ffor the upload directory or @X0CA @X0Ffor all directories and for all    @X0A║@X07"
  221.     PrintLn "    @X0A║ @X0Fconferences or @X0EQ for Quit                                          @X0A║@X07"
  222.     PrintLn " @X0A   ╚════════════════════════════════════════════════════════════════════╝@X07"
  223.     PrintLn 
  224.     PrintLn "         @X0F@X0BIndividual directories @X0Fshould be separated by a @X0Aspace@X07"
  225.     PrintLn "         @X0ERange of directories @X0Fshould be separated by a @X0Ddash @X0F( - )@X07"
  226.     PrintLn 
  227.     :LABEL005
  228.     PrintLn "           @X0FMain @X0BDirectories - (@X0C A@X0F)ll @X0EQ@X0F)uit @X0Erange @X0For @X0Asingle directory@X0B) @X07"
  229.     InputStr "@X0C   Dir # @X07", STRING004, 12, 55, "0123456789UuAaQq- ", 2 + 8 + 4 + 64
  230.     STRING004 = Upper(STRING004)
  231.     Select Case (STRING004)
  232.         Case "A"
  233.             STRING020 = ReadLine(PCBDat(), 108)
  234.             STRING011 = STRING004
  235.             Goto LABEL006
  236.         Case ""
  237.             Goto LABEL021
  238.         Case "U"
  239.             STRING011 = "U"
  240.             Goto LABEL006
  241.         Case "Q"
  242.             Goto LABEL021
  243.         Case Else
  244.             STRING011 = STRING004
  245.             Goto LABEL006
  246.             Goto LABEL021
  247.     End Select
  248.     PrintLn 
  249.     :LABEL006
  250.     If ((0 < 2) && (STRING004 <> "A")) Then
  251.         Newlines 2
  252.         STRING017 = "N"
  253.         PrintLn "       T@X0Fhe @X07m@X0Fain @X07d@X0Firectories @X07s@X0Fcanned @X07i@X0Fs @X0E(@X0F", STRING004, STRING012, "@X0E)@X07"
  254.         PrintLn 
  255.     ElseIf ((0 > 1) && (STRING004 == "A")) Then
  256.         STRING017 = "Y"
  257.     Endif
  258.     PrintLn "      T@X0Fhe main @X0Afile directories @X07a@X0Fre @X07b@X0Feing @X07s@X0Fcanned @X07f@X0From @X0E(@X0F", STRING010, "@X0E)@X07"
  259.     PrintLn 
  260.     PrintLn "    @X0B┌──────────────────────────────────────────────────────────────────┐@X07"
  261.     PrintLn "    @X0B│ @X0FNow you can scan individual @X0Econferences @X0B(@X0Fall of the directories@X0B) @X0B│@X07"
  262.     PrintLn "   @X0B └──────────────────────────────────────────────────────────────────┘@X07"
  263.     PrintLn 
  264.     PrintLn "   W@X0Fhich @X0EConferences @X07w@X0Fould @X07y@X0Fou @X07l@X0Fike @X07t@X0Fo @X07s@X0Fcan - @X07o@X0Fther @X07t@X0Fhan @X07t@X0Fhe @X07m@X0Fain @X07b@X0Foard@X07"
  265.     InputStr "@X0E   (@X0BC/R @X0Ffor main -@X0B Q@X0F)uit - @X0BA@X0F)ll - or individual numbers@X0E)@X07", STRING018, 11, 30, "0123456789QA ", 2 + 4 + 8 + 64 + 16
  266.     Select Case (STRING018)
  267.         Case ""
  268.             STRING018 = 0
  269.             Gosub LABEL007
  270.             Gosub LABEL008
  271.             Gosub LABEL011
  272.             Goto LABEL015
  273.         Case "Q"
  274.             Goto LABEL021
  275.         Case "A"
  276.             STRING011 = STRING018
  277.             Gosub LABEL007
  278.             Gosub LABEL008
  279.             Gosub LABEL009
  280.             Gosub LABEL011
  281.             Goto LABEL015
  282.         Case Else
  283.             Gosub LABEL007
  284.             Gosub LABEL008
  285.             Gosub LABEL010
  286.             Gosub LABEL011
  287.             Goto LABEL015
  288.     End Select
  289.     :LABEL007
  290.     STRING013 = "N"
  291.     PrintLn 
  292.     InputStr "  @X07 W@X0Fould @X07y@X0Fou @X07l@X0Fike @X07t@X0Fo @X0Aview @X0F@X07t@X0Fhe @X0Bscan process @X0F(@X0Eslower if viewed@X0F)(@X0EQ@X0F)@X0Euit@X07 ", STRING013, 11, 1, "YyNnQq", 2 + 4 + 8 + 64
  293.     If (STRING013 == "N") ShowOff
  294.     If (STRING013 == "Q") Goto LABEL021
  295.     STRING011 = STRING004
  296.     STRING015 = "newfilz" + String(PcbNode())
  297.     STRING016 = ".zip"
  298.     STRING014 = STRING008 + STRING015
  299.     OpenCap TempPath() + "newfile2.lst", INTEGER001
  300.     Return
  301.     :LABEL008
  302.     PrintLn 
  303.     PrintLn "          @X07M@X0Faking @X07N@X0Few @X07F@X0Files @X07L@X0Fist - @X07T@X0Fhis @X07m@X0Fay @X07t@X0Fake a @X07l@X0Fittle @X07t@X0Fime @X07@X07"
  304.     KbdStuff Chr(13)
  305.     Dir "N;" + STRING010 + ";" + STRING011 + ";NS"
  306.     Return
  307.     :LABEL009
  308.     ShowOn
  309.     INTEGER002 = 0
  310.     While (INTEGER002 < 2) Do
  311.         INTEGER002 = INTEGER002 + 1
  312.         Join INTEGER002
  313.         KbdStuff Chr(13)
  314.         Dir "N;" + STRING010 + ";A;NS"
  315.     EndWhile
  316.     Goto LABEL021
  317.     Return
  318.     :LABEL010
  319.     Tokenize STRING018
  320.     While (TokCount() > 0) Do
  321.         STRING018 = GetToken()
  322.         STRING019 = TokenStr()
  323.         Join STRING018
  324.         KbdStuff Chr(13)
  325.         Dir "N;" + STRING010 + ";A;NS"
  326.         Tokenize STRING019
  327.     EndWhile
  328.     Return
  329.     :LABEL011
  330.     CloseCap 
  331.     PrintLn 
  332.     PrintLn "   @X0FCleaning up the scanned list - this takes a little time@X07"
  333.     PrintLn 
  334.     FOpen 1, TempPath() + "newfile2.lst", 0, 0
  335.     FCreate 2, TempPath() + "newfiles.lst", 2, 0
  336.     INTEGER002 = 0
  337.     :LABEL012
  338.     If (Ferr(1)) Goto LABEL014
  339.     INTEGER002 = INTEGER002 + 1
  340.     FGet 1, STRING001
  341.     STRING002 = Left(STRING001, 79)
  342.     If (Left(STRING002, 70) == "             ") Goto LABEL013
  343.     STRING001 = RTrim(STRING002, " ")
  344.     If (Left(STRING001, 6) == "L/Msg.") Goto LABEL013
  345.     If (Left(STRING001, 9) == "High Msg.") Goto LABEL013
  346.     If (Left(STRING001, 12) == "Active Msgs:") Goto LABEL013
  347.     If (Left(STRING001, 8) == "Scanning") Goto LABEL013
  348.     If (Right(STRING001, 6) == "Joined") Goto LABEL013
  349.     If (Right(STRING001, 8) == "missing!") Goto LABEL013
  350.     If (Right(STRING001, 5) == "DizIt") Goto LABEL013
  351.     STRING015 = LTrim(STRING001, " ")
  352.     If (Left(STRING015, 6) == "Making") Goto LABEL013
  353.     TSTRING005(INTEGER002) = STRING001
  354.     FPutLn 2, STRING002
  355.     :LABEL013
  356.     Goto LABEL012
  357.     :LABEL014
  358.     FClose 1
  359.     FClose 2
  360.     ShowOn
  361.     Return
  362.     :LABEL015
  363.     PrintLn 
  364.     PrintLn "         @X0EZipping @X0FFile list and moving to upload directory@X07"
  365.     PrintLn 
  366.     STRING014 = STRING008 + "newfilz" + String(PcbNode())
  367.     PrintLn STRING014
  368.     ShowOff
  369.     Shell 1, INTEGER001, "PKZIP", " -ex " + STRING014 + " " + TempPath() + "NEWFILES.LST"
  370.     PrintLn 
  371.     ShowOn
  372.     STRING004 = "N"
  373.     PrintLn "  @X0F        Would you like to @X0Aflag @X0Fthe @X0Bfile list @X0Fand @X0Aflag @X0Fthe files @X07"
  374.     InputStr "          @X0Ffor @X0Edownload @X0F(up to 40 files) @X0Dautomatically@X07", STRING004, 14, 1, "YyNn", 2 + 4 + 8
  375.     Newlines 2
  376.     If (STRING004 == "Y") Goto LABEL017
  377.     PrintLn 
  378.     PrintLn " @X0AYou can either download the list now or it will be @X0Eflagged @X0Afor later download@X07"
  379.     PrintLn 
  380.     InputStr " @X07W@X0Fould @X07y@X0Fou @X07l@X0Fike @X07t@X0Fo @X07d@X0Fownload @X07t@X0Fhe @X07l@X0Fist @X07n@X0Fow @X07u@X0Fsing @X07Z@X0Fmodem@X07", STRING004, 14, 1, "YyNn", 2 + 4 + 8 + 256
  381.     If (STRING004 == "Y") Goto LABEL016
  382.     STRING015 = "newfilz" + String(PcbNode())
  383.     PrintLn 
  384.     PrintLn "          @X0CPlease @X0Bdont forget to @X0Fdownload@X0E " + STRING015 + ".zip@X0F before logging off.@X07"
  385.     PrintLn 
  386.     Join 0
  387.     KbdStuff "f;flag " + STRING015 + ".ZIP" + Chr(13)
  388.     KbdStuff Chr(13)
  389.     Goto LABEL021
  390.     :LABEL016
  391.     Shell 1, STRING003, "dsz sz " + RTrim(ReadLine(PCBDat(), 52), ":") + " " + STRING008 + "newfiles.zip", ""
  392.     PrintLn 
  393.     Goto LABEL021
  394.     STRING004 = ""
  395.     InputStr " @X0FWould you like to flag the new files for download now@X07", STRING004, 14, 1, "YyNn", 2 + 4 + 8 + 256
  396.     If (STRING004 == "") Goto LABEL021
  397.     If (STRING004 == "Y") Goto LABEL017
  398.     If (STRING004 == "N") Goto LABEL021
  399.     :LABEL017
  400.     Join 0
  401.     PrintLn 
  402.     PrintLn "    Currently @X0Bmaking @X0Fa list of files to @X0Cflag! @X0FPlease be patient@X07"
  403.     PrintLn 
  404.     INTEGER004 = 1
  405.     If (Exist(TempPath() + "flag.lst")) Delete TempPath() + "flag.lst"
  406.     FOpen 1, TempPath() + "newfiles.lst", 0, 0
  407.     FOpen 2, TempPath() + "flag.lst", 2, 0
  408.     INTEGER002 = 0
  409.     INTEGER003 = 0
  410.     :LABEL018
  411.     If (Ferr(1)) Goto LABEL020
  412.     INTEGER002 = INTEGER002 + 1
  413.     INTEGER003 = INTEGER003 + 1
  414.     INTEGER004 = INTEGER004 + 1
  415.     FGet 1, STRING001
  416.     STRING002 = Left(STRING001, 13)
  417.     If (Left(STRING001, 13) == "             ") Goto LABEL019
  418.     If (Left(STRING001, 8) == "Scanning") Goto LABEL019
  419.     TSTRING005(INTEGER002) = STRING002
  420.     STRING002 = Upper(STRING002)
  421.     STRING002 = Strip(STRING002, " ")
  422.     STRING002 = RTrim(STRING002, "P")
  423.     STRING002 = RTrim(STRING002, "I")
  424.     STRING002 = RTrim(STRING002, "Z")
  425.     STRING002 = RTrim(STRING002, ".")
  426.     STRING002 = STRING002 + " "
  427.     Print "."
  428.     FPut 2, STRING002
  429.     :LABEL019
  430.     Goto LABEL018
  431.     :LABEL020
  432.     ShowOn
  433.     INTEGER003 = 0
  434.     For INTEGER003 = 1 To INTEGER002
  435.         STRING006 = STRING006 + TSTRING005(INTEGER003)
  436.     Next
  437.     PrintLn 
  438.     PrintLn "   The @X0BFiles @X0Fwill now be @X0Cflagged @X0Ffor @X0Adownload@X07"
  439.     KbdStuff "flag"
  440.     KbdFile TempPath() + "flag.lst"
  441.     :LABEL021
  442.     If (Exist(TempPath() + "newfiles.lst")) Delete TempPath() + "newfiles.lst"
  443.     If (Exist(TempPath() + "newfile2.lst")) Delete TempPath() + "newfile2.lst"
  444.     If (Exist(TempPath() + "flag.lst")) Delete TempPath() + "flag.lst"
  445.     FClose 1
  446.     FClose 2
  447.     End
  448.     STRING027 = 40 - INTEGER003 / 2
  449.     Return
  450.     :LABEL022
  451.     DATE001 = "03-01-94"
  452.     If (Date() > DATE001) Then
  453.         Beep
  454.         Beep
  455.         PrintLn "@X0F      PPE @X0Btrial period @X0Fhas @X0CEXPIRED@X0F - please tell @X0Esysop @X0Fto register it@X07"
  456.         End
  457.     Endif
  458.     PrintLn "@X0F    This PPE is @X0EUNREGISTERED @X0F- please @X0Cregister @X0Fby " + String(DATE001) + " or it will @X0Dexpire@X07"
  459.     Beep
  460.     Delay 90
  461.     Return
  462.     :LABEL023
  463.     Newlines 1
  464.     PrintLn "                         ░▒▓█ @X0BNEWFILES@X0F.ppe v 2.0 █▓▒░"
  465.     PrintLn 
  466.     PrintLn "                             ░▒▓█ @X07by DM Soft █▓▒░"
  467.     Return
  468.     :LABEL024
  469.     Goto LABEL004
  470.  
  471. ;------------------------------------------------------------------------------
  472. ;
  473. ; Usage report (before postprocessing)
  474. ;
  475. ; ■ Statements used :
  476. ;
  477. ;    9       End
  478. ;    1       Cls
  479. ;    1       Wait
  480. ;    112     Goto 
  481. ;    78      Let 
  482. ;    1       Print 
  483. ;    86      PrintLn 
  484. ;    67      If 
  485. ;    2       DispFile 
  486. ;    1       FCreate 
  487. ;    3       FOpen 
  488. ;    4       FClose 
  489. ;    2       FGet 
  490. ;    1       FPut 
  491. ;    1       FPutLn 
  492. ;    6       Delete 
  493. ;    8       InputStr 
  494. ;    16      Gosub 
  495. ;    8       Return
  496. ;    2       Delay 
  497. ;    4       Newlines 
  498. ;    2       Tokenize 
  499. ;    10      GetToken 
  500. ;    2       Shell 
  501. ;    3       Beep
  502. ;    13      KbdStuff 
  503. ;    4       Join 
  504. ;    3       Dir 
  505. ;    1       KbdFile 
  506. ;    1       OpenCap 
  507. ;    1       CloseCap 
  508. ;    4       ShowOn
  509. ;    2       ShowOff
  510. ;
  511. ;
  512. ; ■ Functions used :
  513. ;
  514. ;    1       /
  515. ;    105     +
  516. ;    1       -
  517. ;    45      ==
  518. ;    8       <>
  519. ;    3       <
  520. ;    1       <=
  521. ;    3       >
  522. ;    4       >=
  523. ;    40      !
  524. ;    4       &&
  525. ;    1       ||
  526. ;    2       Len(
  527. ;    4       Upper()
  528. ;    10      Left()
  529. ;    3       Right()
  530. ;    2       Ferr()
  531. ;    6       Chr()
  532. ;    1       LTrim()
  533. ;    6       RTrim()
  534. ;    1       Date()
  535. ;    1       U_LDate()
  536. ;    3       U_LDir()
  537. ;    6       Strip()
  538. ;    5       String()
  539. ;    4       PCBDat()
  540. ;    2       PPEPath()
  541. ;    4       PcbNode()
  542. ;    5       ReadLine()
  543. ;    1       GetToken()
  544. ;    6       Exist()
  545. ;    1       TokenStr()
  546. ;    17      TempPath()
  547. ;    1       TokCount()
  548. ;
  549. ;------------------------------------------------------------------------------
  550. ;
  551. ; Analysis flags : Sd
  552. ;
  553. ; S - Shell to DOS ■ 5
  554. ;     This may be normal if the PPE need to execute an external command,
  555. ;     but may be actually anything... nasty (formating HD, rebooting,...)
  556. ;     or usefull (sorting, maintenance,...). Check!
  557. ;     ■ Search for : SHELL
  558. ;
  559. ; d - Access PCBOARD.DAT ■ 2
  560. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  561. ;     for many PPE so they can find various informations on the system
  562. ;     (system paths, max number of lines in messages, ...) but it may also
  563. ;     be a way to gather vital informations.
  564. ;     ■ Search for : PCBDAT()
  565. ;
  566. ;------------------------------------------------------------------------------
  567. ;
  568. ; Postprocessing report
  569. ;
  570. ;    1       For/Next
  571. ;    5       While/EndWhile
  572. ;    18      If/Then or If/Then/Else
  573. ;    4       Select Case
  574. ;
  575. ;------------------------------------------------------------------------------
  576. ;                 AEGiS Corp - Break the routines, code against the machines!
  577. ;------------------------------------------------------------------------------
  578.