home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / EDSBK115.ZIP / PPE.ZIP / EDSUTIL.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-09  |  16KB  |  665 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     String   STRING001
  22.     String   STRING002
  23.     String   STRING003
  24.  
  25. ;------------------------------------------------------------------------------
  26.  
  27.     PrintLn 
  28.     PrintLn "@X0FEDSUtil Initializing..."
  29.     BOOLEAN001 = 0
  30.     STRING002 = ""
  31.     STRING003 = 0
  32.     Print "@POFF@"
  33.     RdUNet PcbNode()
  34.     WrUNet PcbNode(), UN_Stat(), UN_Name(), "EDSBack maintenance...", "EDSUtil Main Menu", ""
  35.     GetToken STRING003
  36.     STRING003 = Strip(Upper(STRING003), " ")
  37.     If (STRING003 <> "") Then
  38.         STRING002 = STRING003
  39.         BOOLEAN002 = 1
  40.     Endif
  41.     :LABEL001
  42.     If (BOOLEAN001) Goto LABEL046
  43.     If (BOOLEAN002) Goto LABEL002
  44.     KbdChkOn
  45.     Cls
  46.     PrintLn "                   @X40┌─────────────────────────────────────────@X4C┐@X07"
  47.     PrintLn "                   @X40│             @X4FEDSUtil v1.15               @X4C│@X07"
  48.     PrintLn "                   @X40│ @X4A(@X4BMaintenance Utility for EDSBack v1.15@X4A) @X4C│@X07"
  49.     PrintLn "                   @X40│  @X4ECopyright (@X47c@X4E) 1994 by Eric D. Scales   @X4C│@X07"
  50.     PrintLn "                   @X40└@X4C─────────────────────────────────────────┘@X07"
  51.     PrintLn 
  52.     PrintLn "@X0F@BOARDNAME:80C@"
  53.     PrintLn "         @X10┌──────────────────────────────────────────────────────────────@X19┐@X07"
  54.     PrintLn "         @X10│          @X1F(@X1CC@X1F)@X1Eonfiguration file maintenance                    @X19│@X07"
  55.     PrintLn "         @X10│          @X1F(@X1CS@X1F)@X1Etatistics file maintenance                       @X19│@X07"
  56.     PrintLn "         @X10│          @X1F(@X1CP@X1F)@X1Erompt file maintenance                           @X19│@X07"
  57.     PrintLn "         @X10│          @X1F(@X1CN@X1F)@X1Eumber trash can file maintenance (Used #'s)      @X19│@X07"
  58.     PrintLn "         @X10│          @X1F(@X1CT@X1F)@X1Eimetable file maintenance                        @X19│@X07"
  59.     PrintLn "         @X10│          @X1F(@X1CB@X1F)@X1Ead number file maintenance                       @X19│@X07"
  60.     PrintLn "         @X10│          @X1ESecurity & name trash @X1F(@X1CF@X1F)@X1Eile maintenance            @X19│@X07"
  61.     PrintLn "         @X10│          @X1F(@X1CA@X1F)@X1Ellowed number calling file maintenance           @X19│@X07"
  62.     PrintLn "         @X10│          @X1F(@X1CR@X1F)@X1Eeturn to main                                    @X19│@X07"
  63.     PrintLn "         @X10└@X19──────────────────────────────────────────────────────────────┘@X07"
  64.     PrintLn 
  65.     STRING002 = ""
  66.     InputStr "          (H)elp, Enter command", STRING002, 14, 1, "BbCcTtRrPpSsQqAaNnFfHh", 2 + 4
  67.     Goto LABEL003
  68.     :LABEL002
  69.     BOOLEAN002 = 0
  70.     :LABEL003
  71.     STRING002 = Upper(STRING002)
  72.     Select Case (STRING002)
  73.         Case "R", "Q"
  74.             BOOLEAN001 = 1
  75.             Goto LABEL047
  76.         Case "H"
  77.             Print "@PON@"
  78.             DispFile PPEPath() + "EDSUHLP", 1 + 4
  79.             Print "@POFF@"
  80.             BOOLEAN001 = 0
  81.         Case "C"
  82.             If (Exist(PPEPath() + "EUTMOD4.PPE")) Goto LABEL004
  83.             PrintLn 
  84.             PrintLn "@X0C" + PPEPath() + "EUTMOD4.PPE does not exist!"
  85.             Log PPEPath() + "EUTMOD4.PPE does not exist!", 0
  86.             PrintLn 
  87.             PrintLn "@X0ACould not edit configuration file..."
  88.             Goto LABEL005
  89.             :LABEL004
  90.             PrintLn 
  91.             PrintLn "@X0ALoading configuration maintenance module..."
  92.             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "MODULE 4 - Config File", ""
  93.             Call PPEPath() + "EUTMOD4.PPE"
  94.             :LABEL005
  95.             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "EDSUtil Main Menu", ""
  96.             BOOLEAN001 = 0
  97.         Case "N"
  98.             BOOLEAN001 = 0
  99.             STRING001 = "E"
  100.             PrintLn 
  101.             PrintLn 
  102.             PrintLn "          @X0AE@X0C(@X0FX@X0C)@X0Aport Used # Trash File"
  103.             PrintLn "          @X0AI@X0C(@X0FM@X0C)@X0Aport text file"
  104.             PrintLn "          @X0C(@X0FC@X0C)@X0Aonvert Trash File (To v1.07 format)"
  105.             PrintLn "          @X0C(@X0FI@X0C)@X0Andex Used # Trash File"
  106.             PrintLn "          @X0C(@X0FB@X0C)@X0Auild Used # Trash File"
  107.             PrintLn "          @X0C(@X0FP@X0C)@X0Aack Used # Trash File"
  108.             PrintLn "          @X0C(@X0FE@X0C)@X0Adit Used # Trash File"
  109.             PrintLn 
  110.             InputStr "Enter command", STRING001, 11, 1, "PpEeBbCcIiMmXx", 2 + 4
  111.             STRING001 = Upper(STRING001)
  112.             Select Case (STRING001)
  113.                 Case "P"
  114.                     If (Exist(PPEPath() + "EUTMOD2.PPE")) Then
  115.                         PrintLn 
  116.                         PrintLn "@X0AInitializing already used # trash can editing/packing module..."
  117.                         PrintLn 
  118.                         WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Packing trash file...", ""
  119.                         Tokenize "1"
  120.                         Call PPEPath() + "EUTMOD2.PPE"
  121.                     Else
  122.                         PrintLn 
  123.                         PrintLn "@X0C" + PPEPath() + "EUTMOD2.PPE does not exist!"
  124.                         Log PPEPath() + "EUTMOD2.PPE does not exist!", 0
  125.                         PrintLn 
  126.                         PrintLn "@X0ACould not pack trash can file..."
  127.                     Endif
  128.                 Case "M"
  129.                     If (Exist(PPEPath() + "EUTMOD2.PPE")) Then
  130.                         PrintLn 
  131.                         PrintLn "@X0AInitializing trash can importation module..."
  132.                         PrintLn 
  133.                         WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Importing trash file...", ""
  134.                         Tokenize "6"
  135.                         Call PPEPath() + "EUTMOD2.PPE"
  136.                     Else
  137.                         PrintLn 
  138.                         PrintLn "@X0C" + PPEPath() + "EUTMOD2.PPE does not exist!"
  139.                         Log PPEPath() + "EUTMOD2.PPE does not exist!", 0
  140.                         PrintLn 
  141.                         PrintLn "@X0ACould not import trash can file..."
  142.                     Endif
  143.                 Case "X"
  144.                     If (Exist(PPEPath() + "EUTMOD2.PPE")) Then
  145.                         PrintLn 
  146.                         PrintLn "@X0AInitializing trash can exportation module..."
  147.                         PrintLn 
  148.                         WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Exporting trash file...", ""
  149.                         Tokenize "7"
  150.                         Call PPEPath() + "EUTMOD2.PPE"
  151.                     Else
  152.                         PrintLn 
  153.                         PrintLn "@X0C" + PPEPath() + "EUTMOD2.PPE does not exist!"
  154.                         Log PPEPath() + "EUTMOD2.PPE does not exist!", 0
  155.                         PrintLn 
  156.                         PrintLn "@X0ACould not export trash can file..."
  157.                     Endif
  158.                 Case "I"
  159.                     If (Exist(PPEPath() + "EUTMOD2.PPE")) Then
  160.                         PrintLn 
  161.                         PrintLn "@X0AInitializing trash can indexing module..."
  162.                         PrintLn 
  163.                         WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Indexing trash file...", ""
  164.                         Tokenize "5"
  165.                         Call PPEPath() + "EUTMOD2.PPE"
  166.                     Else
  167.                         PrintLn 
  168.                         PrintLn "@X0C" + PPEPath() + "EUTMOD2.PPE does not exist!"
  169.                         Log PPEPath() + "EUTMOD2.PPE does not exist!", 0
  170.                         PrintLn 
  171.                         PrintLn "@X0ACould not index trash can file..."
  172.                     Endif
  173.                 Case "C"
  174.                     If (Exist(PPEPath() + "EUTMOD2.PPE")) Then
  175.                         PrintLn 
  176.                         PrintLn "@X0AInitializing trash can conversion module..."
  177.                         PrintLn 
  178.                         WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Converting trash file...", ""
  179.                         Tokenize "4"
  180.                         Call PPEPath() + "EUTMOD2.PPE"
  181.                     Else
  182.                         PrintLn 
  183.                         PrintLn "@X0C" + PPEPath() + "EUTMOD2.PPE does not exist!"
  184.                         Log PPEPath() + "EUTMOD2.PPE does not exist!", 0
  185.                         PrintLn 
  186.                         PrintLn "@X0ACould not convert trash can file..."
  187.                     Endif
  188.                 Case "B"
  189.                     PrintLn 
  190.                     PrintLn 
  191.                     STRING001 = "A"
  192.                     PrintLn "@X0AEach user's record will be searched and the already used number trash file"
  193.                     PrintLn "will be rebuilt to your specifications."
  194.                     PrintLn 
  195.                     PrintLn "          @X0C(@X0FB@X0C)@X0Auild new trash file and discard the old one"
  196.                     PrintLn "          @X0C(@X0FA@X0C)@X0Add the new records to an existing trash file"
  197.                     PrintLn "          @X0C(@X0FQ@X0C)@X0Auit back to EDSUtil main."
  198.                     PrintLn 
  199.                     InputStr "Build trash file command", STRING001, 11, 1, "BbAaQq", 2 + 4
  200.                     Newline
  201.                     STRING001 = Upper(STRING001)
  202.                     If (STRING001 <> "Q") Then
  203.                         If (Exist(PPEPath() + "EUTMOD2.PPE")) Then
  204.                             PrintLn 
  205.                             PrintLn "@X0AInitializing trash can editing/packing module (BUILD MODE)..."
  206.                             PrintLn 
  207.                             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Building trash file...", ""
  208.                             Tokenize "3 " + STRING001
  209.                             Call PPEPath() + "EUTMOD2.PPE"
  210.                             Goto LABEL006
  211.                         Endif
  212.                         PrintLn 
  213.                         PrintLn "@X0C" + PPEPath() + "EUTMOD2.PPE does not exist!"
  214.                         Log PPEPath() + "EUTMOD2.PPE does not exist!", 0
  215.                         PrintLn 
  216.                         PrintLn "@X0ACould not build trash can file..."
  217.                     Endif
  218.                     :LABEL006
  219.                     STRING001 = "B"
  220.                 Case "E"
  221.                     If (Exist(PPEPath() + "EUTMOD2.PPE")) Then
  222.                         PrintLn 
  223.                         PrintLn "@X0AInitializing trash can editing/packing module..."
  224.                         PrintLn 
  225.                         WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Editing trash file...", ""
  226.                         Tokenize "2"
  227.                         Call PPEPath() + "EUTMOD2.PPE"
  228.                         Goto LABEL007
  229.                     Endif
  230.                     PrintLn 
  231.                     PrintLn "@X0C" + PPEPath() + "EUTMOD2.PPE does not exist!"
  232.                     Log PPEPath() + "EUTMOD2.PPE does not exist!", 0
  233.                     PrintLn 
  234.                     PrintLn "@X0ACould not edit trash can file..."
  235.             End Select
  236.             :LABEL007
  237.             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "EDSUtil Main Menu", ""
  238.         Case "P"
  239.             STRING001 = PPEPath() + "EDSBTXT."
  240.             PrintLn 
  241.             InputStr "EDSBack prompt path & filename", STRING001, 11, 42, Mask_File(), 2 + 4
  242.             If (Exist(PPEPath() + "EUTMOD1.PPE")) Goto LABEL008
  243.             PrintLn 
  244.             PrintLn "@X0C" + PPEPath() + "EUTMOD1.PPE does not exist!"
  245.             Log PPEPath() + "EUTMOD1.PPE does not exist!", 0
  246.             PrintLn 
  247.             PrintLn "@X0ACould not edit prompt files..."
  248.             Goto LABEL009
  249.             :LABEL008
  250.             PrintLn 
  251.             PrintLn "@X0ALoading prompt maintenance module..."
  252.             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Editing prompts...", ""
  253.             Tokenize Trim(STRING001, " ")
  254.             Call PPEPath() + "EUTMOD1.PPE"
  255.             :LABEL009
  256.             BOOLEAN001 = 0
  257.             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "EDSUtil Main Menu", ""
  258.         Case "S"
  259.             If (Exist(PPEPath() + "EUTMOD3.PPE")) Goto LABEL010
  260.             PrintLn 
  261.             PrintLn "@X0C" + PPEPath() + "EUTMOD3.PPE does not exist!"
  262.             Log PPEPath() + "EUTMOD3.PPE does not exist!", 0
  263.             PrintLn 
  264.             PrintLn "@X0ACould not edit stats file..."
  265.             Goto LABEL011
  266.             :LABEL010
  267.             PrintLn 
  268.             PrintLn "@X0ALoading statistics maintenance module..."
  269.             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Editing Stats...", ""
  270.             Call PPEPath() + "EUTMOD3.PPE"
  271.             :LABEL011
  272.             BOOLEAN001 = 0
  273.             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "EDSUtil Main Menu", ""
  274.         Case "T"
  275.             PrintLn 
  276.             PrintLn 
  277.             PrintLn "          @X0C(@X0FP@X0C)@X0Aack Timetables"
  278.             PrintLn "          @X0C(@X0FE@X0C)@X0Adit Timetables"
  279.             PrintLn 
  280.             STRING001 = "E"
  281.             InputStr "Enter command", STRING001, 11, 1, "PpEe", 2 + 4
  282.             STRING001 = Upper(STRING001)
  283.             If (STRING001 == "P") Then
  284.                 If (Exist(PPEPath() + "EUTMOD5.PPE")) Goto LABEL012
  285.                 PrintLn 
  286.                 PrintLn "@X0C" + PPEPath() + "EUTMOD5.PPE does not exist!"
  287.                 Log PPEPath() + "EUTMOD5.PPE does not exist!", 0
  288.                 PrintLn 
  289.                 PrintLn "@X0ACould not pack timetables..."
  290.                 Goto LABEL013
  291.                 :LABEL012
  292.                 PrintLn 
  293.                 PrintLn "@X0ALoading timetable maintenance module..."
  294.                 WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Packing Timetables...", ""
  295.                 Tokenize "1"
  296.                 Call PPEPath() + "EUTMOD5.PPE"
  297.                 :LABEL013
  298.             Else
  299.                 If (Exist(PPEPath() + "EUTMOD5.PPE")) Goto LABEL014
  300.                 PrintLn 
  301.                 PrintLn "@X0C" + PPEPath() + "EUTMOD5.PPE does not exist!"
  302.                 Log PPEPath() + "EUTMOD5.PPE does not exist!", 0
  303.                 PrintLn 
  304.                 PrintLn "@X0ACould not edit timetables..."
  305.                 Goto LABEL015
  306.                 :LABEL014
  307.                 PrintLn 
  308.                 PrintLn "@X0ALoading timetable maintenance module..."
  309.                 WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Editing Timetables...", ""
  310.                 Tokenize "2"
  311.                 Call PPEPath() + "EUTMOD5.PPE"
  312.             Endif
  313.             :LABEL015
  314.             BOOLEAN001 = 0
  315.             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "EDSUtil Main Menu", ""
  316.         Case "B"
  317.             PrintLn 
  318.             PrintLn 
  319.             PrintLn "          @X0AE@X0C(@X0FX@X0C)@X0Aport Bad Number File"
  320.             PrintLn "          @X0C(@X0FI@X0C)@X0Amport text file"
  321.             PrintLn "          @X0C(@X0FP@X0C)@X0Aack Bad Number File"
  322.             PrintLn "          @X0C(@X0FE@X0C)@X0Adit Bad Number File"
  323.             PrintLn 
  324.             STRING001 = "E"
  325.             InputStr "Enter command", STRING001, 11, 1, "PpEeIiXx", 2 + 4
  326.             STRING001 = Upper(STRING001)
  327.             Select Case (STRING001)
  328.                 Case "P"
  329.                     If (Exist(PPEPath() + "EUTMOD7.PPE")) Goto LABEL016
  330.                     PrintLn 
  331.                     PrintLn "@X0C" + PPEPath() + "EUTMOD7.PPE does not exist!"
  332.                     Log PPEPath() + "EUTMOD7.PPE does not exist!", 0
  333.                     PrintLn 
  334.                     PrintLn "@X0ACould not pack bad number file..."
  335.                     Goto LABEL017
  336.                     :LABEL016
  337.                     PrintLn 
  338.                     PrintLn "@X0ALoading bad number file maintenance module..."
  339.                     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Packing Bad Number File", ""
  340.                     Tokenize "1"
  341.                     Call PPEPath() + "EUTMOD7.PPE"
  342.                     :LABEL017
  343.                 Case "I"
  344.                     If (Exist(PPEPath() + "EUTMOD7.PPE")) Goto LABEL018
  345.                     PrintLn 
  346.                     PrintLn "@X0C" + PPEPath() + "EUTMOD7.PPE does not exist!"
  347.                     Log PPEPath() + "EUTMOD7.PPE does not exist!", 0
  348.                     PrintLn 
  349.                     PrintLn "@X0ACould not import text into bad number file..."
  350.                     Goto LABEL019
  351.                     :LABEL018
  352.                     PrintLn 
  353.                     PrintLn "@X0ALoading bad number file importation module..."
  354.                     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Importing Bad Number File", ""
  355.                     Tokenize "3"
  356.                     Call PPEPath() + "EUTMOD7.PPE"
  357.                     :LABEL019
  358.                 Case "X"
  359.                     If (Exist(PPEPath() + "EUTMOD7.PPE")) Goto LABEL020
  360.                     PrintLn 
  361.                     PrintLn "@X0C" + PPEPath() + "EUTMOD7.PPE does not exist!"
  362.                     Log PPEPath() + "EUTMOD7.PPE does not exist!", 0
  363.                     PrintLn 
  364.                     PrintLn "@X0ACould not export text into bad number file..."
  365.                     Goto LABEL021
  366.                     :LABEL020
  367.                     PrintLn 
  368.                     PrintLn "@X0ALoading bad number file exportation module..."
  369.                     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Exporting Bad Number File", ""
  370.                     Tokenize "4"
  371.                     Call PPEPath() + "EUTMOD7.PPE"
  372.                     :LABEL021
  373.                 Case "E"
  374.                     If (Exist(PPEPath() + "EUTMOD7.PPE")) Goto LABEL022
  375.                     PrintLn 
  376.                     PrintLn "@X0C" + PPEPath() + "EUTMOD7.PPE does not exist!"
  377.                     Log PPEPath() + "EUTMOD7.PPE does not exist!", 0
  378.                     PrintLn 
  379.                     PrintLn "@X0ACould not edit bad number file..."
  380.                     Goto LABEL023
  381.                     :LABEL022
  382.                     PrintLn 
  383.                     PrintLn "@X0ALoading bad number file maintenance module..."
  384.                     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Editing Bad Number File...", ""
  385.                     Tokenize "2"
  386.                     Call PPEPath() + "EUTMOD7.PPE"
  387.             End Select
  388.             :LABEL023
  389.             BOOLEAN001 = 0
  390.             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "EDSUtil Main Menu", ""
  391.         Case "A"
  392.             PrintLn 
  393.             PrintLn 
  394.             PrintLn "          @X0C(@X0FI@X0C)@X0Amport Text File"
  395.             PrintLn "          @X0AE@X0C(@X0FX@X0C)@X0Aport Text File"
  396.             PrintLn "          @X0AEdit @X0C(@X0FD@X0C)@X0Aialing Templates"
  397.             PrintLn "          @X0APack Dialing @X0C(@X0FT@X0C)@X0Aemplates"
  398.             PrintLn "          @X0AI@X0C(@X0FN@X0C)@X0Adex Allowed # Calling File"
  399.             PrintLn "          @X0C(@X0FP@X0C)@X0Aack Allowed # Calling file"
  400.             PrintLn "          @X0C(@X0FE@X0C)@X0Adit Allowed # Calling file"
  401.             PrintLn 
  402.             STRING001 = "E"
  403.             InputStr "Enter command", STRING001, 11, 1, "PpEeIiDdTtXxNn", 2 + 4
  404.             STRING001 = Upper(STRING001)
  405.             Select Case (STRING001)
  406.                 Case "P"
  407.                     If (Exist(PPEPath() + "EUTMOD8.PPE")) Goto LABEL024
  408.                     PrintLn 
  409.                     PrintLn "@X0C" + PPEPath() + "EUTMOD8.PPE does not exist!"
  410.                     Log PPEPath() + "EUTMOD8.PPE does not exist!", 0
  411.                     PrintLn 
  412.                     PrintLn "@X0ACould not pack allowed # calling file..."
  413.                     Goto LABEL025
  414.                     :LABEL024
  415.                     PrintLn 
  416.                     PrintLn "@X0ALoading allowed calling # maintenance module..."
  417.                     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Packing Allowed # Calling File...", ""
  418.                     Tokenize "1"
  419.                     Call PPEPath() + "EUTMOD8.PPE"
  420.                     :LABEL025
  421.                 Case "N"
  422.                     If (Exist(PPEPath() + "EUTMOD8.PPE")) Goto LABEL026
  423.                     PrintLn 
  424.                     PrintLn "@X0C" + PPEPath() + "EUTMOD8.PPE does not exist!"
  425.                     Log PPEPath() + "EUTMOD8.PPE does not exist!", 0
  426.                     PrintLn 
  427.                     PrintLn "@X0ACould not index allowed # calling file..."
  428.                     Goto LABEL027
  429.                     :LABEL026
  430.                     PrintLn 
  431.                     PrintLn "@X0ALoading allowed # calling indexing module..."
  432.                     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Indexing Allowed Calling File", ""
  433.                     Tokenize "5"
  434.                     Call PPEPath() + "EUTMOD8.PPE"
  435.                     :LABEL027
  436.                 Case "T"
  437.                     If (Exist(PPEPath() + "EUTMOD8.PPE")) Goto LABEL028
  438.                     PrintLn 
  439.                     PrintLn "@X0C" + PPEPath() + "EUTMOD8.PPE does not exist!"
  440.                     Log PPEPath() + "EUTMOD8.PPE does not exist!", 0
  441.                     PrintLn 
  442.                     PrintLn "@X0ACould not pack dialing templates..."
  443.                     Goto LABEL029
  444.                     :LABEL028
  445.                     PrintLn 
  446.                     PrintLn "@X0ALoading dialing templates packing module..."
  447.                     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Packing dialing templates", ""
  448.                     Tokenize "6"
  449.                     Call PPEPath() + "EUTMOD8.PPE"
  450.                     :LABEL029
  451.                 Case "D"
  452.                     If (Exist(PPEPath() + "EUTMOD8.PPE")) Goto LABEL030
  453.                     PrintLn 
  454.                     PrintLn "@X0C" + PPEPath() + "EUTMOD8.PPE does not exist!"
  455.                     Log PPEPath() + "EUTMOD8.PPE does not exist!", 0
  456.                     PrintLn 
  457.                     PrintLn "@X0ACould not maintain dialing templates..."
  458.                     Goto LABEL031
  459.                     :LABEL030
  460.                     PrintLn 
  461.                     PrintLn "@X0ALoading dialing templates maintenance module..."
  462.                     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Maintaining Dialing Templates", ""
  463.                     Tokenize "7"
  464.                     Call PPEPath() + "EUTMOD8.PPE"
  465.                     :LABEL031
  466.                 Case "I"
  467.                     If (Exist(PPEPath() + "EUTMOD8.PPE")) Goto LABEL032
  468.                     PrintLn 
  469.                     PrintLn "@X0C" + PPEPath() + "EUTMOD8.PPE does not exist!"
  470.                     Log PPEPath() + "EUTMOD8.PPE does not exist!", 0
  471.                     PrintLn 
  472.                     PrintLn "@X0ACould not import text file..."
  473.                     Goto LABEL033
  474.                     :LABEL032
  475.                     PrintLn 
  476.                     PrintLn "@X0ALoading allowed # calling text importation module..."
  477.                     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Importing Allowed # Calling File...", ""
  478.                     Tokenize "3"
  479.                     Call PPEPath() + "EUTMOD8.PPE"
  480.                     :LABEL033
  481.                 Case "X"
  482.                     If (Exist(PPEPath() + "EUTMOD8.PPE")) Goto LABEL034
  483.                     PrintLn 
  484.                     PrintLn "@X0C" + PPEPath() + "EUTMOD8.PPE does not exist!"
  485.                     Log PPEPath() + "EUTMOD8.PPE does not exist!", 0
  486.                     PrintLn 
  487.                     PrintLn "@X0ACould not export allowed # calling file..."
  488.                     Goto LABEL035
  489.                     :LABEL034
  490.                     PrintLn 
  491.                     PrintLn "@X0ALoading allowed # calling exportation module..."
  492.                     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Exporting Allowed Calling File...", ""
  493.                     Tokenize "4"
  494.                     Call PPEPath() + "EUTMOD8.PPE"
  495.                     :LABEL035
  496.                 Case "E"
  497.                     If (Exist(PPEPath() + "EUTMOD8.PPE")) Goto LABEL036
  498.                     PrintLn 
  499.                     PrintLn "@X0C" + PPEPath() + "EUTMOD8.PPE does not exist!"
  500.                     Log PPEPath() + "EUTMOD8.PPE does not exist!", 0
  501.                     PrintLn 
  502.                     PrintLn "@X0ACould not edit allowed # calling file..."
  503.                     Goto LABEL037
  504.                     :LABEL036
  505.                     PrintLn 
  506.                     PrintLn "@X0ALoading allowed # maintenance module..."
  507.                     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Editing Allowed # Calling File...", ""
  508.                     Tokenize "2"
  509.                     Call PPEPath() + "EUTMOD8.PPE"
  510.             End Select
  511.             :LABEL037
  512.             BOOLEAN001 = 0
  513.             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "EDSUtil Main Menu", ""
  514.         Case "F"
  515.             PrintLn 
  516.             PrintLn 
  517.             PrintLn "          @X0AE@X0C(@X0FX@X0C)@X0Aport Username & Security Trashfiles"
  518.             PrintLn "          @X0C(@X0FI@X0C)@X0Amport text file"
  519.             PrintLn "          @X0C(@X0FP@X0C)@X0Aack Username & Security Trashfiles"
  520.             PrintLn "          @X0C(@X0FE@X0C)@X0Adit Username & Security Trashfiles"
  521.             PrintLn 
  522.             STRING001 = "E"
  523.             InputStr "Enter command", STRING001, 11, 1, "PpEeIiXx", 2 + 4
  524.             STRING001 = Upper(STRING001)
  525.             If (STRING001 == "P") Then
  526.                 If (Exist(PPEPath() + "EUTMOD6.PPE")) Goto LABEL038
  527.                 PrintLn 
  528.                 PrintLn "@X0C" + PPEPath() + "EUTMOD6.PPE does not exist!"
  529.                 Log PPEPath() + "EUTMOD6.PPE does not exist!", 0
  530.                 PrintLn 
  531.                 PrintLn "@X0ACould not pack trashfiles..."
  532.                 Goto LABEL039
  533.                 :LABEL038
  534.                 PrintLn 
  535.                 PrintLn "@X0ALoading name & security trashfiles maintenance module..."
  536.                 WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Packing Trashfiles...", ""
  537.                 Tokenize "1"
  538.                 Call PPEPath() + "EUTMOD6.PPE"
  539.                 :LABEL039
  540.                 Goto LABEL045
  541.             Endif
  542.             If (STRING001 == "I") Then
  543.                 If (Exist(PPEPath() + "EUTMOD6.PPE")) Goto LABEL040
  544.                 PrintLn 
  545.                 PrintLn "@X0C" + PPEPath() + "EUTMOD6.PPE does not exist!"
  546.                 Log PPEPath() + "EUTMOD6.PPE does not exist!", 0
  547.                 PrintLn 
  548.                 PrintLn "@X0ACould not import text into trashfiles..."
  549.                 Goto LABEL041
  550.                 :LABEL040
  551.                 PrintLn 
  552.                 PrintLn "@X0ALoading name & security trashfiles importation module..."
  553.                 WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Importing Trashfiles...", ""
  554.                 Tokenize "3"
  555.                 Call PPEPath() + "EUTMOD6.PPE"
  556.                 :LABEL041
  557.                 Goto LABEL045
  558.             Endif
  559.             If (STRING001 == "X") Then
  560.                 If (Exist(PPEPath() + "EUTMOD6.PPE")) Goto LABEL042
  561.                 PrintLn 
  562.                 PrintLn "@X0C" + PPEPath() + "EUTMOD6.PPE does not exist!"
  563.                 Log PPEPath() + "EUTMOD6.PPE does not exist!", 0
  564.                 PrintLn 
  565.                 PrintLn "@X0ACould not export trashfiles..."
  566.                 Goto LABEL043
  567.                 :LABEL042
  568.                 PrintLn 
  569.                 PrintLn "@X0ALoading name & security trashfiles exportation module..."
  570.                 WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Exporting Trashfiles...", ""
  571.                 Tokenize "4"
  572.                 Call PPEPath() + "EUTMOD6.PPE"
  573.                 :LABEL043
  574.                 Goto LABEL045
  575.             Endif
  576.             If (STRING001 == "E") Then
  577.                 If (Exist(PPEPath() + "EUTMOD6.PPE")) Goto LABEL044
  578.                 PrintLn 
  579.                 PrintLn "@X0C" + PPEPath() + "EUTMOD6.PPE does not exist!"
  580.                 Log PPEPath() + "EUTMOD6.PPE does not exist!", 0
  581.                 PrintLn 
  582.                 PrintLn "@X0ACould not edit trashfiles..."
  583.                 Goto LABEL045
  584.                 :LABEL044
  585.                 PrintLn 
  586.                 PrintLn "@X0ALoading name & security trashfiles maintenance module..."
  587.                 WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Editing Trashfiles...", ""
  588.                 Tokenize "2"
  589.                 Call PPEPath() + "EUTMOD6.PPE"
  590.             Endif
  591.             :LABEL045
  592.             BOOLEAN001 = 0
  593.             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "EDSUtil Main Menu", ""
  594.     End Select
  595.     Goto LABEL001
  596.     :LABEL046
  597.     :LABEL047
  598.     Print "@PON@"
  599.     End
  600.  
  601. ;------------------------------------------------------------------------------
  602. ;
  603. ; Usage report (before postprocessing)
  604. ;
  605. ; ■ Statements used :
  606. ;
  607. ;    1       End
  608. ;    1       Cls
  609. ;    123     Goto 
  610. ;    33      Let 
  611. ;    4       Print 
  612. ;    239     PrintLn 
  613. ;    64      If 
  614. ;    1       DispFile 
  615. ;    27      Log 
  616. ;    8       InputStr 
  617. ;    1       Newline
  618. ;    25      Tokenize 
  619. ;    1       GetToken 
  620. ;    27      Call 
  621. ;    1       KbdChkOn
  622. ;    1       RdUNet 
  623. ;    36      WrUNet 
  624. ;
  625. ;
  626. ; ■ Functions used :
  627. ;
  628. ;    147     +
  629. ;    34      ==
  630. ;    2       <>
  631. ;    64      !
  632. ;    1       ||
  633. ;    8       Upper()
  634. ;    1       Trim()
  635. ;    1       Strip()
  636. ;    1       Mask_File()
  637. ;    110     PPEPath()
  638. ;    37      PcbNode()
  639. ;    36      UN_Stat()
  640. ;    36      UN_Name()
  641. ;    35      UN_City()
  642. ;    27      Exist()
  643. ;
  644. ;------------------------------------------------------------------------------
  645. ;
  646. ; Analysis flags : C
  647. ;
  648. ; C - Call child PPE ■ 3
  649. ;     This is usually normal, but may be a tricky way to launch some
  650. ;     sysop-only commands.
  651. ;     ■ Search for : CALL
  652. ;
  653. ;------------------------------------------------------------------------------
  654. ;
  655. ; Postprocessing report
  656. ;
  657. ;    0       For/Next
  658. ;    0       While/EndWhile
  659. ;    14      If/Then or If/Then/Else
  660. ;    4       Select Case
  661. ;
  662. ;------------------------------------------------------------------------------
  663. ;                 AEGiS Corp - Break the routines, code against the machines!
  664. ;------------------------------------------------------------------------------
  665.