home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / TABPPE50.ZIP / INSTALL.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-05-28  |  27KB  |  987 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.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.     String   STRING010
  29.     String   STRING011
  30.     String   STRING012
  31.     String   STRING013
  32.     String   STRING014
  33.     String   STRING015
  34.     String   STRING016
  35.     String   STRING017
  36.     String   STRING018
  37.     String   STRING019
  38.     String   STRING020
  39.     String   STRING021
  40.     String   STRING022
  41.     String   STRING023
  42.     String   STRING024
  43.     String   STRING025
  44.     String   STRING026
  45.     String   STRING027
  46.     String   STRING028
  47.     String   STRING029
  48.     String   STRING030
  49.     String   STRING031
  50.     String   STRING032
  51.     String   STRING033
  52.     String   STRING034
  53.     String   STRING035
  54.     String   STRING036
  55.     String   STRING037
  56.     String   STRING038
  57.     String   STRING039
  58.     String   STRING040
  59.     String   STRING041
  60.     String   STRING042
  61.     String   STRING043
  62.     String   STRING044
  63.     String   STRING045
  64.     String   STRING046
  65.     String   STRING047
  66.     String   STRING048
  67.     String   STRING049
  68.     String   STRING050
  69.     String   STRING051
  70.     String   STRING052
  71.     String   STRING053
  72.  
  73. ;------------------------------------------------------------------------------
  74.  
  75.     STRING012 = PPEPath()
  76.     STRING013 = STRING012 + "WORK.$$$"
  77.     :LABEL001
  78.     If (Exist(STRING012 + "BUSY*.FLG")) Then
  79.         Cls
  80.         PrintLn "@X0CSomeone is currently in the TABS-PPE door,  Configuration is not possible@X07"
  81.         PrintLn "@X0Cat this time.  Please try to configure again after caller has exited.@X07"
  82.     Else
  83.         FCreate 1, STRING012 + "CONFIG.FLG", 2, 3
  84.         FClose 1
  85.         STRING010 = ""
  86.         Cls
  87.         Gosub LABEL017
  88.         PrintLn "@X3E┌────────────────────────────────────────────────────────────────────────────┐@X07"
  89.         PrintLn "@X3E│ @X38TABS-PPE Installation Utility                                             @X3E │@X07"
  90.         PrintLn "@X3E│ @X3FWritten by Ray Sulich                                                     @X3E │@X07"
  91.         PrintLn "@X3E└────────────────────────────────────────────────────────────────────────────┘@X07"
  92.         Newlines 3
  93.         PrintLn "                @X0F@X0EWhich file would you like to configure?"
  94.         PrintLn ""
  95.         PrintLn "                @X0B(@X0E1@X0B) @X0FOptions Configuration File"
  96.         PrintLn "                @X0B(@X0E2@X0B) @X0F$10 Contribution Configuration"
  97.         PrintLn "                @X0B(@X0E3@X0B) @X0F$25 Contribution Configuration"
  98.         PrintLn "                @X0B(@X0EQ@X0B) @X0Fuit"
  99.         Newlines 3
  100.         InputStr "@X0FMake your selection @X0B(@X0E1@X0B), @X0B(@X0E2@X0B), @X0B(@X0E3@X0B) @X0For @X0B(@X0EQ@X0B)@X0Fuit", STRING010, 11, 1, "123Qq", 64 + 2 + 256 + 8
  101.         If (STRING010 == "1") Goto LABEL002
  102.         Select Case (STRING010)
  103.             Case "2"
  104.                 STRING015 = "10"
  105.             Case "3"
  106.                 STRING015 = "25"
  107.             Case Else
  108.                 If (STRING010 == "Q") Goto LABEL018
  109.                 :LABEL002
  110.                 Cls
  111.                 PrintLn "@X0BTABS-PPE Installation Utility"
  112.                 Newlines 2
  113.                 InputStr "@X0FEnter the Name of your options configuration file:  _", STRING001, 11, 12, Mask_Path(), 64 + 256 + 8
  114.                 If (Exist(STRING012 + STRING001)) Goto LABEL003
  115.                 Newlines 2
  116.                 STRING010 = ""
  117.                 InputYN "@X0FThat file does not exist,  Do you want to create it", STRING010, 11
  118.                 If (Upper(STRING010) == NoChar()) Then
  119.                     Goto LABEL001
  120.                 Endif
  121.                 :LABEL003
  122.                 FOpen 1, STRING012 + STRING001, 2, 3
  123.                 If (Ferr(1)) Then
  124.                     Cls
  125.                     Newlines 3
  126.                     PrintLn "@X0FError opening ", STRING001, " @X0C!!!!!@X07"
  127.                     Newlines 3
  128.                     Delay 70
  129.                     Goto LABEL001
  130.                 Endif
  131.                 FGet 1, STRING002
  132.                 FGet 1, STRING003
  133.                 FGet 1, STRING004
  134.                 FGet 1, STRING047
  135.                 FGet 1, STRING006
  136.                 FGet 1, STRING048
  137.                 FGet 1, STRING008
  138.                 FGet 1, STRING009
  139.                 FGet 1, STRING011
  140.                 Cls
  141.                 STRING010 = ""
  142.                 Delete STRING013
  143.                 FCreate 2, STRING013, 1, 3
  144.                 STRING010 = ""
  145.                 PrintLn "@X0BTABS-PPE Installation Utility"
  146.                 Newlines 2
  147.                 PrintLn "@X0E(OLD: ", STRING002, ")"
  148.                 Newlines 2
  149.                 InputText "@X0FEnter your BBS name ", STRING010, 11, 35
  150.                 If (Len(STRING010) <= 1) STRING010 = STRING002
  151.                 Gosub LABEL015
  152.                 Newlines 2
  153.                 PrintLn "@X0E(OLD: ", STRING003, ")"
  154.                 Newlines 3
  155.                 InputText "@X0FEnter your registration number @X0B(@X0Cblank if none@X0B)@X0F ", STRING010, 11, 15
  156.                 Gosub LABEL014
  157.                 :LABEL004
  158.                 Newlines 2
  159.                 PrintLn "@X0E(OLD: ", STRING004, ")"
  160.                 PrintLn "@X0CBlank if not desired"
  161.                 Newlines 2
  162.                 InputYN "@X0FDo you offer a $10 subscription rate @X0B(@X0EY@X0F, or @X0EN@X0B)", STRING010, 11
  163.                 Gosub LABEL013
  164.                 If (STRING010 == "YES") Then
  165.                     Gosub LABEL014
  166.                 Else
  167.                     If (STRING010 == "NO") Then
  168.                         Gosub LABEL014
  169.                         Gosub LABEL016
  170.                         FPutLn 2, "YES"
  171.                         Goto LABEL007
  172.                     Endif
  173.                     Cls
  174.                     Goto LABEL004
  175.                 Endif
  176.                 :LABEL005
  177.                 Cls
  178.                 STRING010 = ""
  179.                 PrintLn "@X0BTABS-PPE Installation Utility"
  180.                 Newlines 2
  181.                 PrintLn "@X0E(OLD: ", STRING047, ")"
  182.                 PrintLn "@X0CPress Enter to retain old setting."
  183.                 Newlines 2
  184.                 InputStr "@X0FWhat is the name of the @X0E$10 @X0Fconfiguration file", STRING005, 11, 12, Mask_File(), 64 + 8
  185.                 If (Len(STRING005) <= 1) STRING005 = STRING047
  186.                 If (Len(STRING005) <= 1) Then
  187.                     Cls
  188.                     Newlines 2
  189.                     PrintLn "@X0FYou must enter a configuration file name,  Please try again"
  190.                     Delay 40
  191.                     Goto LABEL005
  192.                 Endif
  193.                 FPutLn 2, Upper(STRING005)
  194.                 :LABEL006
  195.                 STRING010 = ""
  196.                 Cls
  197.                 PrintLn "@X0BTABS-PPE Installation Utility"
  198.                 Newlines 2
  199.                 PrintLn "@X0E(OLD: ", STRING006, ")"
  200.                 PrintLn "@X0CBlank if not desired"
  201.                 Newlines 2
  202.                 InputYN "@X0FDo you offer a @X0E$25 @X0Fsubscription rate @X0B(@X0EY@X0F, or @X0EN@X0B)@X0F", STRING010, 11
  203.                 Gosub LABEL013
  204.                 If (STRING010 == "YES") Then
  205.                     Gosub LABEL014
  206.                 Else
  207.                     If (Upper(STRING010) == "NO") Then
  208.                         Gosub LABEL014
  209.                         Gosub LABEL016
  210.                         Goto LABEL008
  211.                     Endif
  212.                     Goto LABEL006
  213.                 Endif
  214.                 :LABEL007
  215.                 STRING010 = ""
  216.                 Newlines 2
  217.                 PrintLn "@X0E(OLD: ", STRING048, ")"
  218.                 PrintLn "@X0CPress Enter to retain old setting."
  219.                 Newlines 2
  220.                 InputStr "@X0FWhat is the name of the @X0E$25 @X0Fconfiguration file", STRING007, 11, 12, Mask_File(), 64 + 8
  221.                 If (Len(STRING007) <= 1) STRING007 = STRING048
  222.                 If (Len(STRING007) <= 1) Then
  223.                     Cls
  224.                     Newlines 2
  225.                     PrintLn "@X0FYou must enter a configuration file name,  Please try again"
  226.                     Delay 40
  227.                     Goto LABEL007
  228.                 Endif
  229.                 FPutLn 2, Upper(STRING007)
  230.                 :LABEL008
  231.                 STRING014 = ""
  232.                 If (STRING004 == "NO") Then
  233.                     STRING014 = "NO"
  234.                 Endif
  235.                 If (STRING006 == "NO") Then
  236.                     STRING014 = "NO"
  237.                 Else
  238.                     STRING014 = "YES"
  239.                     STRING010 = ""
  240.                     Cls
  241.                     PrintLn "@X0BTABS-PPE installation Utility"
  242.                     Newlines 2
  243.                     PrintLn "@X0E(OLD: ", STRING008, ")"
  244.                     PrintLn "@X0CPress Enter to retain old setting."
  245.                     Newlines 2
  246.                     InputYN "@X0FDo you wish to use an internal options menu @X0B(@X0EY@X0F, or @X0EN@X0B)", STRING010, 11
  247.                     If (Len(STRING010) < 1) STRING010 = STRING008
  248.                     Gosub LABEL013
  249.                     FPutLn 2, STRING010
  250.                     Newlines 2
  251.                 Endif
  252.                 If (Upper(STRING010) == "YES") Then
  253.                     Gosub LABEL016
  254.                 Else
  255.                     Cls
  256.                     STRING010 = ""
  257.                     Newlines 2
  258.                     PrintLn "@X0E(OLD: ", STRING009, ")"
  259.                     PrintLn "@X0CPress Enter to retain old settings."
  260.                     Newlines 2
  261.                     InputStr "@X0FWhat is the name of your external options menu", STRING010, 11, 12, Mask_File(), 64 + 8
  262.                     If (Len(STRING010) <= 1) STRING010 = STRING009
  263.                     Gosub LABEL014
  264.                 Endif
  265.                 Newlines 2
  266.                 PrintLn "@X0E(OLD: ", STRING011, ")"
  267.                 PrintLn "@X0CPress Enter to retain old setting."
  268.                 Newlines 2
  269.                 InputYN "@X0FDo you wish to allow the caller to download TABS info @X0B(@X0EY@X0F/@X0EN@X0B)", STRING010, 11
  270.                 If (Len(STRING010) < 1) STRING010 = STRING011
  271.                 Gosub LABEL013
  272.                 Gosub LABEL014
  273.                 Cls
  274.                 Newlines 3
  275.                 PrintLn "@X0FThat completes the configuration of the ", STRING001, " file."
  276.                 Newlines 3
  277.                 STRING010 = ""
  278.                 InputYN "Do you wish to save " + STRING001 + " @X0B(@X0EY@X0F/@X0EN@X0B)", STRING010, 15
  279.                 Gosub LABEL013
  280.                 If (STRING010 == "YES") Goto LABEL009
  281.                 If (STRING010 == "NO") Then
  282.                     Newlines 2
  283.                     STRING010 = ""
  284.                     InputYN "Do you wish to start all over @X0B(@X0EY@X0F/@X0EN@X0B)", STRING010, 15
  285.                     Gosub LABEL013
  286.                 Endif
  287.                 If (STRING010 == "YES") Then
  288.                     Gosub LABEL017
  289.                     FClose 1
  290.                     FClose 2
  291.                     Delete STRING013
  292.                     Goto LABEL001
  293.                 Endif
  294.                 If (STRING010 == "NO") Then
  295.                     Newlines 2
  296.                     FClose 1
  297.                     FClose 2
  298.                 Endif
  299.                 Goto LABEL018
  300.                 :LABEL009
  301.                 FClose 1
  302.                 FClose 2
  303.                 Delete STRING012 + STRING001
  304.                 Rename STRING013, STRING012 + STRING001
  305.                 Delete STRING013
  306.                 Goto LABEL001
  307.         End Select
  308.         If (Len(STRING001) > 1) Goto LABEL010
  309.         Cls
  310.         STRING010 = ""
  311.         PrintLn "@X0BTABS-PPE Configuration Utility@X07"
  312.         Newlines 4
  313.         InputStr "@X0FEnter the Name of your Options configuration file", STRING001, 11, 12, Mask_Path(), 64 + 256 + 8
  314.         If (Exist(STRING012 + STRING001)) Goto LABEL010
  315.         Cls
  316.         STRING010 = ""
  317.         Newlines 3
  318.         PrintLn "@X0FThe file name does not exist or is not in the current directory, you must"
  319.         PrintLn "@X0Fcreate/configure the @X0C", STRING001, "@X0Ffile and run this PPE from the TABS"
  320.         PrintLn "@X0For this program can not continue."
  321.         Newlines 3
  322.         FClose 1
  323.         FClose 2
  324.         Delay 70
  325.         Goto LABEL001
  326.         :LABEL010
  327.         FOpen 1, STRING012 + STRING001, 2, 3
  328.         FGet 1, STRING002
  329.         FGet 1, STRING003
  330.         FGet 1, STRING004
  331.         FGet 1, STRING047
  332.         FGet 1, STRING006
  333.         FGet 1, STRING048
  334.         FClose 1
  335.         Delete STRING013
  336.         STRING017 = ""
  337.         STRING010 = ""
  338.         If (STRING015 == "10") Then
  339.             FOpen 1, STRING012 + STRING047, 2, 3
  340.             STRING017 = STRING047
  341.         Endif
  342.         If (STRING015 == "25") Then
  343.             FOpen 1, STRING012 + STRING048, 2, 3
  344.             STRING017 = STRING048
  345.         Endif
  346.         If (Exist(STRING012 + STRING017)) Goto LABEL011
  347.         Cls
  348.         STRING010 = ""
  349.         Newlines 3
  350.         InputYN "" + STRING012 + STRING017 + " doesn't exist.  Create it now @X0B(@X0EY@X0F/@X0EN@X0B)?", STRING010, 11
  351.         Gosub LABEL013
  352.         If (STRING010 == "NO") Then
  353.             Cls
  354.             Newlines 3
  355.             STRING010 = ""
  356.         Endif
  357.         InputYN "@X0FDo you want to start over @X0B(@X0EY@X0F/@X0EN@X0B)", STRING010, 11
  358.         Gosub LABEL013
  359.         If (STRING010 == "NO") Goto LABEL018
  360.         If (STRING010 == "YES") Goto LABEL001
  361.         :LABEL011
  362.         FGet 1, STRING018
  363.         FGet 1, STRING019
  364.         FGet 1, STRING020
  365.         FGet 1, STRING021
  366.         FGet 1, STRING022
  367.         FGet 1, STRING050
  368.         FGet 1, STRING049
  369.         FGet 1, STRING051
  370.         FGet 1, STRING053
  371.         FGet 1, STRING016
  372.         FGet 1, STRING024
  373.         FGet 1, STRING025
  374.         FGet 1, STRING046
  375.         FGet 1, STRING026
  376.         FGet 1, STRING028
  377.         FGet 1, STRING029
  378.         FGet 1, STRING030
  379.         FGet 1, STRING032
  380.         FGet 1, STRING033
  381.         FGet 1, STRING034
  382.         FGet 1, STRING036
  383.         FGet 1, STRING037
  384.         FGet 1, STRING038
  385.         FGet 1, STRING039
  386.         FGet 1, STRING040
  387.         FGet 1, STRING041
  388.         FGet 1, STRING042
  389.         FGet 1, STRING043
  390.         FGet 1, STRING044
  391.         FGet 1, STRING045
  392.         FGet 1, STRING035
  393.         FGet 1, STRING031
  394.         FGet 1, STRING027
  395.         FGet 1, STRING023
  396.         FClose 1
  397.         Delete STRING013
  398.         FCreate 2, STRING013, 2, 3
  399.         STRING010 = ""
  400.         Cls
  401.         STRING010 = ""
  402.         PrintLn "@X0BTABS-PPE Installation Utility"
  403.         Newlines 2
  404.         PrintLn "@X0E(OLD: ", STRING018, ")"
  405.         PrintLn "@X0CPress Enter to retain old setting."
  406.         Newlines 2
  407.         InputText "@X0FPlease enter the Sysop's name:_", STRING010, 11, 48
  408.         If (Len(STRING010) <= 1) STRING010 = STRING018
  409.         Gosub LABEL014
  410.         PrintLn "@X0FDo you wish to use todays date as the day the subscription begins"
  411.         PrintLn "@X0FIf you answer NO to this question, if the contributors account is"
  412.         PrintLn "@X0FNOT expired his subscription will start from that date.  In the "
  413.         PrintLn "@X0FExample below assume the subscription is for 1 year."
  414.         PrintLn ""
  415.         PrintLn "@X0F           Current Expiration Date   Subscription Start   New Expiration Date"
  416.         PrintLn ""
  417.         PrintLn "@X0FAnswer NO          1/1/98                  1/1/98                1/1/99"
  418.         PrintLn ""
  419.         PrintLn "@X0FAnswer YES         1/1/98                  Today              Today + 1yr."
  420.         Newlines 4
  421.         PrintLn "@X0E(OLD: ", STRING019, ")"
  422.         PrintLn "@X0CPress Enter to retain old setting."
  423.         Newlines 2
  424.         InputYN "@X0FUse todays date as the subscription start date @X0B(@X0EY@X0F/@X0EN@X0B)", STRING010, 11
  425.         If (Len(STRING010) < 1) STRING010 = STRING019
  426.         Gosub LABEL013
  427.         Gosub LABEL014
  428.         Newlines 2
  429.         PrintLn "@X0E(OLD: ", STRING020, ")"
  430.         PrintLn "@X0CPress Enter to retain old setting."
  431.         Newlines 2
  432.         PrintLn "@X0FShould the caller to be able to create/flag a receipt of the transaction?"
  433.         InputYN "@X0Fthat he/she may later download @X0B(@X0EY@X0F/@X0EN@X0B)", STRING010, 11
  434.         If (Len(STRING010) < 1) STRING010 = STRING020
  435.         Gosub LABEL013
  436.         If (STRING010 == "NO") Then
  437.             Gosub LABEL014
  438.             Gosub LABEL016
  439.         Else
  440.             If (STRING010 == "YES") Gosub LABEL014
  441.             STRING010 = ""
  442.             Newlines 2
  443.             PrintLn "@X0E(OLD: ", STRING021, ")"
  444.             PrintLn "@X0CPress Enter to retain old setting."
  445.             Newlines 2
  446.             InputStr "@X0FEnter the name of the header for the receipt:  _", STRING010, 11, 12, Mask_File(), 64 + 8
  447.             If (Len(STRING010) <= 1) STRING010 = STRING021
  448.             Gosub LABEL014
  449.         Endif
  450.         Newlines 2
  451.         PrintLn "@X0E(OLD: ", STRING022, ")"
  452.         PrintLn "@X0CPress Enter to retain old setting."
  453.         Newlines 2
  454.         PrintLn "@X0FDo you want to allow the caller to flag TABSINFO.TXT from the billing"
  455.         InputYN "@X0Foptions @X0Fmenu. @X0B(@X0EY@X0F/@X0EN@X0B)", STRING010, 11
  456.         If (Len(STRING010) < 1) STRING010 = STRING022
  457.         Gosub LABEL013
  458.         Gosub LABEL014
  459.         Newlines 2
  460.         STRING010 = ""
  461.         PrintLn "@X0E(OLD: ", STRING050, ")"
  462.         PrintLn "@X0CPress Enter to retain old setting."
  463.         Newlines 2
  464.         PrintLn "@X0FDo you want TABS-PPE to create a bulletin containing the names of the"
  465.         InputYN "@X0Fpersons that have contributed using TABS. @X0B(@X0EY@X0F/@X0EN@X0B)", STRING010, 11
  466.         If (Len(STRING010) < 1) STRING010 = STRING050
  467.         Gosub LABEL013
  468.         If (STRING010 == "NO") Then
  469.             FPutLn 2, "NO"
  470.             FPutLn 2, " "
  471.             FPutLn 2, " "
  472.             FPutLn 2, " "
  473.         Else
  474.             Gosub LABEL014
  475.             PrintLn ""
  476.             STRING010 = ""
  477.             PrintLn ""
  478.             PrintLn "@X0E(OLD: ", STRING049, ")"
  479.             PrintLn "@X0CPress Enter to retain old setting."
  480.             Newlines 2
  481.             PrintLn "@X0FWhat is the filename of the bulletin you would like created"
  482.             InputStr "@X0FFor example: @X0ECONTRIBS.TXT@X0F :  _", STRING010, 11, 45, Mask_File(), 64 + 256 + 8
  483.             If (Len(STRING010) <= 1) STRING010 = STRING049
  484.             Gosub LABEL014
  485.             PrintLn ""
  486.             STRING010 = ""
  487.             PrintLn ""
  488.             PrintLn "@X0E(OLD: ", STRING051, ")"
  489.             PrintLn "@X0CPress Enter to retain old setting."
  490.             Newlines 2
  491.             PrintLn "@X0FWhat is the name of the file you wish to use as the bulletins header"
  492.             InputStr "@X0FFor example: @X0EBULLET.HDR@X0F:  _", STRING010, 11, 12, Mask_File(), 64 + 8
  493.             If (Len(STRING010) <= 1) STRING010 = STRING051
  494.             Gosub LABEL014
  495.             PrintLn ""
  496.             STRING010 = ""
  497.             PrintLn ""
  498.             PrintLn "@X0E(OLD: ", STRING053, ")"
  499.             PrintLn "@X0CPress Enter to retain old setting."
  500.             Newlines 2
  501.             PrintLn "@X0FWhat is the name of the file that contains your list of contributor's."
  502.             PrintLn "@X0FTABS-PPE, will maintain this file but you may add contributors that"
  503.             PrintLn "@X0Fmay have contributed before this option was available, or contributed"
  504.             PrintLn "@X0Fvia another means."
  505.             Newlines 2
  506.             InputStr "For example: @X0ECONTRIBS.LST@X0F:  _", STRING010, 11, 12, Mask_File(), 64 + 8
  507.             If (Len(STRING010) <= 1) STRING010 = STRING053
  508.             Gosub LABEL014
  509.             PrintLn ""
  510.             STRING010 = ""
  511.             PrintLn ""
  512.             PrintLn "@X0E(OLD: ", STRING016, ")"
  513.             PrintLn "@X0CPress Enter to retain old setting."
  514.             Newlines 2
  515.             PrintLn "@X0FWhat is the name of the file you wish to use as the bulletin footer"
  516.             InputStr "For example: @X0EBULLET.FTR@X0F:  _", STRING010, 11, 12, Mask_File(), 64 + 8
  517.             If (Len(STRING010) <= 1) STRING010 = STRING016
  518.             Gosub LABEL014
  519.         Endif
  520.         STRING010 = ""
  521.         Newlines 2
  522.         PrintLn "@X0E(OLD: ", STRING024, ")"
  523.         PrintLn "@X0CPress Enter to retain old setting."
  524.         Newlines 2
  525.         PrintLn "@X0FWhat is the first access level to upgrade to?  All callers who enter"
  526.         InputStr "@X0Fa SID@X0F who are Below this level will be upgraded to this level", STRING010, 11, 12, Mask_Num(), 64 + 8
  527.         If (Len(STRING010) < 1) STRING010 = STRING024
  528.         Gosub LABEL014
  529.         Newlines 2
  530.         PrintLn "@X0E(OLD: ", STRING025, ")"
  531.         PrintLn "@X0CPress Enter to retain old setting."
  532.         Newlines 2
  533.         InputStr "@X0FHow many days do you wish the caller to hold this access level", STRING010, 11, 12, Mask_Num(), 64 + 8
  534.         If (Len(STRING010) < 1) STRING010 = STRING025
  535.         Gosub LABEL014
  536.         Newlines 2
  537.         PrintLn "@X0E(OLD: ", STRING046, ")"
  538.         PrintLn "@X0CPress Enter to retain old setting."
  539.         Newlines 2
  540.         InputStr "@X0FWhat access level should the caller have after his subscription expires", STRING010, 11, 12, Mask_Num(), 64 + 8
  541.         If (Len(STRING010) < 1) STRING010 = STRING046
  542.         Gosub LABEL014
  543.         Newlines 2
  544.         PrintLn "@X0E(OLD: ", STRING026, ")"
  545.         PrintLn "@X0CPress Enter to retain old setting."
  546.         Newlines 2
  547.         PrintLn "@X0FNumber of minutes the caller would get per day at the first upgrade"
  548.         PrintLn "level."
  549.         PrintLn ""
  550.         PrintLn "@X0F@X0ENOTE:  @X0FThis number is for screen display purposes only.  It should"
  551.         InputStr "@X0Fbe entered in minutes:", STRING010, 11, 12, Mask_Num(), 64 + 8
  552.         If (Len(STRING010) < 1) STRING010 = STRING026
  553.         Gosub LABEL014
  554.         Newlines 2
  555.         PrintLn "@X0E(OLD: ", STRING028, ")"
  556.         PrintLn "@X0CPress Enter to retain old setting."
  557.         Newlines 2
  558.         PrintLn "@X0FNumber of download bytes the caller would have available per day"
  559.         PrintLn "@X0Fat the first upgrade level"
  560.         PrintLn ""
  561.         PrintLn "@X0F@X0ENOTE:  @X0FThis number is for screen display purposes only,  and"
  562.         PrintLn "@X0Fshould be entered in bytes. IE, @X0C1,000 @X0Fwould read @X0C1,000 @X0Fbytes per "
  563.         InputStr "@X0Fday @X0Fon the internal screens:", STRING010, 11, 24, "1234567890,.", 64 + 8
  564.         If (Len(STRING010) < 1) STRING010 = STRING028
  565.         Gosub LABEL014
  566.         Newlines 2
  567.         PrintLn "@X0FAll entries with @X0C(OPTIONAL) @X0Fannotated are in fact optional and may"
  568.         PrintLn "@X0Fbe blanks if you decide you do not wish to use that particular option."
  569.         Newlines 2
  570.         PrintLn "@X0E(OLD: ", STRING029, ")"
  571.         PrintLn "@X0CBlank if not desired...."
  572.         Newlines 2
  573.         PrintLn "@X0FWhat is the Second level to upgrade to?  @X0C(OPTIONAL)"
  574.         PrintLn "@X0FIf you enter a number on this line it MUST be larger than the number you"
  575.         PrintLn "@X0Fentered as the first upgrade level.  If you entered 25 for the first access"
  576.         PrintLn "@X0Flevel the number you enter here MUST be 26 or greater.  Any caller who is at"
  577.         PrintLn "@X0Fan access level that is greater than the first upgrade level, but less than"
  578.         PrintLn "@X0Fthe number you enter here will be upgraded to this level. Just press"
  579.         PrintLn "@X0Fenter here if you do not wish to use this option."
  580.         PrintLn ""
  581.         InputStr "@X0FWhat is the second level to upgrade to? @X0C(OPTIONAL)@X0F", STRING010, 11, 12, Mask_Num(), 64 + 8
  582.         If (Len(STRING010) < 1) Then
  583.             FPutLn 2, ""
  584.             FPutLn 2, ""
  585.             FPutLn 2, ""
  586.             FPutLn 2, ""
  587.             FPutLn 2, ""
  588.         Else
  589.             Gosub LABEL014
  590.             Newlines 2
  591.             PrintLn "@X0E(OLD: ", STRING030, ")"
  592.             PrintLn "@X0CPress Enter to retain old setting."
  593.             Newlines 2
  594.             InputStr "@X0FHow many days do you wish the caller to hold this access level?", STRING010, 11, 12, Mask_Num(), 64 + 8
  595.             If (Len(STRING010) < 1) STRING010 = STRING030
  596.             Gosub LABEL014
  597.             Newlines 2
  598.             PrintLn "@X0E(OLD: ", STRING032, ")"
  599.             PrintLn "@X0CPress Enter to retain old setting."
  600.             Newlines 2
  601.             InputStr "@X0FWhat access level should the caller have when his subscription expires", STRING010, 11, 12, Mask_Num(), 64 + 8
  602.             If (Len(STRING010) < 1) STRING010 = STRING032
  603.             Gosub LABEL014
  604.             Newlines 2
  605.             PrintLn "@X0E(OLD: ", STRING033, ")"
  606.             PrintLn "@X0CPress Enter to retain old setting."
  607.             Newlines 2
  608.             PrintLn "@X0FNumber of minutes the caller would get per day at the second upgrade"
  609.             PrintLn "@X0Flevel."
  610.             PrintLn ""
  611.             PrintLn "@X0F@X0CNOTE:  @X0FThis number is for screen display purposes only, and should"
  612.             InputStr "@X0Fbe entered in minutes:", STRING010, 11, 25, Mask_Num(), 64 + 8
  613.             If (Len(STRING010) < 1) STRING010 = STRING033
  614.             Gosub LABEL014
  615.             Newlines 2
  616.             PrintLn "@X0E(OLD: ", STRING034, ")"
  617.             PrintLn "@X0CPress Enter to retain old setting."
  618.             Newlines 2
  619.             PrintLn "@X0FNumber of download bytes the caller would have available per day at the"
  620.             PrintLn "@X0Fsecond upgrade level."
  621.             PrintLn ""
  622.             PrintLn "@X0FNOTE:  This number is for screen display purposes only,  and should"
  623.             PrintLn "be entered in bytes. IE, @X0C1,000 @X0Fwould read @X0C1,000 @X0Fbytes per day on"
  624.             InputStr "@X0Fthe internal screens:", STRING010, 11, 24, "1234567890,.", 64 + 8
  625.             If (Len(STRING010) < 1) STRING010 = STRING034
  626.             Gosub LABEL014
  627.         Endif
  628.         Newlines 2
  629.         PrintLn "@X0E(OLD: ", STRING036, ")"
  630.         PrintLn "@X0CBlank if not desired"
  631.         Newlines 2
  632.         PrintLn "@X0FContributors conference number to join the caller to @X0C(OPTIONAL) @X0Fyou should"
  633.         PrintLn "@X0Fenter a blank here if you do no wish to join the caller to a specific"
  634.         PrintLn "@X0Fconference after the caller subscribes to your system.  If for example"
  635.         PrintLn "@X0Fyou entered a 5 here, the subscriber would be joined to conference 5 with"
  636.         PrintLn "@X0Fthe RXS flags enabled.  @X0CRemember@X0F, enter a blank here if this option is not"
  637.         PrintLn "@X0Fdesired."
  638.         Newlines 2
  639.         InputStr "@X0FContributors conference number to join the caller to @X0C(OPTIONAL)@X0F", STRING010, 15, 12, Mask_Num(), 64 + 8
  640.         If (Len(STRING010) < 1) Then
  641.             Gosub LABEL016
  642.         Else
  643.             Gosub LABEL014
  644.         Endif
  645.         Newlines 2
  646.         PrintLn "@X0E(OLD: ", STRING037, ")"
  647.         PrintLn "@X0CPress Enter to retain old setting.  Enter @X8F0 @X0Cto disable."
  648.         Newlines 2
  649.         PrintLn "@X0FIf the number of SIDS's remaining are equal to or less that this number"
  650.         PrintLn "@X0FTABS-PPE will send you a message stating that you are getting low on "
  651.         InputStr "@X0Fsubscription ID's:", STRING010, 11, 2, Mask_Num(), 64 + 8
  652.         If (Len(STRING010) < 1) STRING010 = STRING037
  653.         Gosub LABEL014
  654.         Newlines 2
  655.         PrintLn "@X0E(OLD: ", STRING038, ")"
  656.         PrintLn "@X0CPress Enter to retain old setting."
  657.         Newlines 2
  658.         PrintLn "@X0FNumber of attempts to give the caller when entering his SID.  If he fails"
  659.         PrintLn "@X0Fto enter a valid SID this many times, he will be sent out of the program."
  660.         PrintLn "@X0FYou may disable this setting by setting it to @X8F0@X0F."
  661.         PrintLn ""
  662.         InputStr "@X0FNumber of tries ", STRING010, 11, 2, Mask_Num(), 64 + 8
  663.         If (Len(STRING010) < 1) STRING010 = STRING038
  664.         Gosub LABEL014
  665.         Newlines 2
  666.         PrintLn "@X0E(OLD: ", STRING039, ")"
  667.         PrintLn "@X0CBlank if no desired"
  668.         Newlines 2
  669.         PrintLn "@X0FSysop's conference number to pass messages to @X0C(OPTIONAL)@X0F."
  670.         PrintLn "@X0FThis program will send messages to the Sysop when:"
  671.         PrintLn ""
  672.         PrintLn "  @X0F1.  An error occurs (will pass errorlevel)"
  673.         PrintLn "@X0F  2.  A caller successfully completes a donation"
  674.         PrintLn "@X0F  3.  When SID's remaining are less than configured amount."
  675.         PrintLn ""
  676.         InputStr "@X0FSysop's conference number @X0C(OPTIONAL)@X0F:  _", STRING010, 15, 12, Mask_Num(), 64 + 8
  677.         If (Len(STRING010) < 1) Then
  678.             Gosub LABEL016
  679.         Else
  680.             Gosub LABEL014
  681.         Endif
  682.         Newlines 2
  683.         PrintLn "@X0E(OLD: ", STRING040, ")"
  684.         PrintLn "@X0CEnter retains old setting"
  685.         Newlines 2
  686.         PrintLn "@X0FWhat is the filename of the file that contains your list of active"
  687.         PrintLn "@X0FSID'S.  One SID (Seven digit number) on each line.  file must reside in"
  688.         PrintLn "@X0Fthe same directory as the TABS.PPE.  If this is the $", STRING015, " configuration"
  689.         PrintLn "@X0Ffile, the file you list here should contain the listing of $", STRING015, " SID's."
  690.         PrintLn ""
  691.         InputStr "@X0FFor example: @X0CSIDS" + STRING015 + ".LST@X0F:  _", STRING010, 11, 45, Mask_Path(), 64 + 256 + 8
  692.         If (Len(STRING010) <= 1) STRING010 = STRING040
  693.         Gosub LABEL014
  694.         Newlines 2
  695.         PrintLn "@X0E(OLD: ", STRING041, ")"
  696.         PrintLn "@X0CEnter retains old setting"
  697.         Newlines 2
  698.         PrintLn "@X0FDo you want TABS-PPE to update the callers notes with information concerning"
  699.         InputYN "@X0Fthe callers donation. @X0B(@X0EY@X0F/@X0EN@X0B)@X0F ", STRING010, 11
  700.         If (Len(STRING010) < 1) STRING010 = STRING041
  701.         Gosub LABEL013
  702.         Gosub LABEL014
  703.         Cls
  704.         PrintLn "@X0BTABS-PPE Installation Utility@X07"
  705.         Newlines 2
  706.         PrintLn "@X0E(OLD: ", STRING042, ")"
  707.         PrintLn "@X0CEnter retains old setting"
  708.         Newlines 2
  709.         PrintLn "@X0FIf you @X0CDO NOT @X0Fwish to promote donations that will not upgrade the callers"
  710.         PrintLn "@X0Faccess level (ie. the caller already has an access level higher than what"
  711.         PrintLn "@X0Fyou have configured.  If you answer YES and have external screens"
  712.         PrintLn "@X0Fenabled the screen that you will later configure called (don't promote"
  713.         PrintLn "@X0Fdonations) will be displayed, instead of the 3rd upgrade screen (that you"
  714.         PrintLn "@X0Fwill configure later.  In either case if the caller still elects to enter a"
  715.         PrintLn "@X0Fsubscription ID this program will accept the donation.  This program will"
  716.         PrintLn "@X0FALWAYS except donations from callers that are at higher access levels than"
  717.         PrintLn "@X0Fconfigured in the First or Second access levels configuration item.  Mostly,"
  718.         PrintLn "@X0Fthis setting really effects the internal screens, as you could do the same"
  719.         PrintLn "@X0Fthing (if you use external screens) by changing the text in the 3rd donations"
  720.         PrintLn "@X0Fscreen setup."
  721.         PrintLn ""
  722.         InputYN "@X0FDo you wish to @X0CNOT @X0Fpromote additional donations ", STRING010, 11
  723.         If (Len(STRING010) < 1) STRING010 = STRING042
  724.         Gosub LABEL013
  725.         If (STRING010 == "NO") STRING052 = "NO"
  726.         Gosub LABEL014
  727.         Cls
  728.         STRING010 = ""
  729.         PrintLn "@X0BTABS-PPE Installation Utility@X07"
  730.         Newlines 2
  731.         PrintLn "@X0E(OLD: ", STRING043, ")"
  732.         PrintLn "@X0CEnter retains old setting"
  733.         Newlines 2
  734.         PrintLn "@X0FWhat is the filename of the screen which explains this specific"
  735.         PrintLn "@X0Fservice the caller chose while at the options display menu or if you"
  736.         PrintLn "@X0Fhaven't configured the program to offer both the $10 and the $25 services"
  737.         PrintLn "@X0Fthis screen will be displayed instead of the options screen as an introduction"
  738.         PrintLn "@X0Fto the service."
  739.         PrintLn ""
  740.         InputStr "@X0FFor example: @X0CINTRO" + STRING015 + "@X0F:  _", STRING010, 11, 45, Mask_File(), 64 + 256 + 8
  741.         If (Len(STRING010) <= 1) STRING010 = STRING043
  742.         Gosub LABEL014
  743.         Cls
  744.         Newlines 2
  745.         PrintLn "@X0E(OLD: ", STRING044, ")"
  746.         PrintLn "@X0CEnter retains old setting"
  747.         Newlines 2
  748.         PrintLn "@X0FDo you wish to use external screens or write your own."
  749.         PrintLn ""
  750.         InputYN "@X0F@X0B(@X0EY@X0B) @X0Ffor external screens, @X0B(@X0EN@X0B) @X0Ffor internal screens", STRING010, 11
  751.         If (Len(STRING010) < 1) STRING010 = STRING044
  752.         Gosub LABEL013
  753.         If (STRING010 == "NO") Then
  754.             Gosub LABEL014
  755.             Gosub LABEL016
  756.             Gosub LABEL016
  757.             Gosub LABEL016
  758.             Gosub LABEL016
  759.             Gosub LABEL016
  760.         Else
  761.             If (STRING010 == "YES") Gosub LABEL014
  762.             Newlines 2
  763.             PrintLn "@X0E(OLD: ", STRING045, ")"
  764.             PrintLn "@X0CEnter retains old setting"
  765.             Newlines 2
  766.             PrintLn "@X0FWhat is the filename of the screen which displays the benefits of"
  767.             PrintLn "@X0Fcontributing for the first time at $", STRING015, " this file must"
  768.             PrintLn "@X0Freside in the same directory as the PPE.  You may have separate"
  769.             PrintLn "@X0Fscreens for different access levels and languages. The display screen"
  770.             PrintLn "@X0Fnaming conventions are exactly the same as PCBoard's.  If you wanted"
  771.             PrintLn "@X0Fa display screen for access level 200 and the base file name for"
  772.             PrintLn "@X0Fthis screen is 1ST", STRING015, " your level 200 screen name would be"
  773.             PrintLn "@X0F1ST", STRING015, "200"
  774.             Newlines 2
  775.             InputStr "@X0FFor example: @X0C1ST" + STRING015 + "@X0F:  _", STRING010, 11, 12, Mask_File(), 64 + 256 + 8
  776.             If (Len(STRING010) <= 1) STRING010 = STRING045
  777.             Gosub LABEL014
  778.             Newlines 2
  779.             PrintLn "@X0E(OLD: ", STRING035, ")"
  780.             PrintLn "@X0CEnter retains old setting"
  781.             Newlines 2
  782.             PrintLn "@X0FWhat is the filename of the screen which displays the benefits of"
  783.             PrintLn "@X0Fcontributing for the second time at $", STRING015, " this file must"
  784.             PrintLn "@X0Freside in the same directory as the PPE.  You may have separate"
  785.             PrintLn "@X0Fscreens for different access levels and languages.  The display screen"
  786.             PrintLn "@X0Fnaming conventions are exactly the same as PCBoard's.  If you wanted"
  787.             PrintLn "@X0Fa display screen for access level 200 and the base file name for"
  788.             PrintLn "@X0Fthis screen is 2ND", STRING015, " your level 200 screen name would be"
  789.             PrintLn "@X0F2ND", STRING015, "200"
  790.             Newlines 2
  791.             InputStr "@X0FFor example: @X0C2ND" + STRING015 + "@X0F:  _", STRING010, 11, 12, Mask_File(), 64 + 256 + 8
  792.             If (Len(STRING010) <= 1) STRING010 = STRING035
  793.             Gosub LABEL014
  794.             Newlines 2
  795.             PrintLn "@X0E(OLD: ", STRING031, ")"
  796.             PrintLn "@X0CEnter retains old setting"
  797.             Newlines 2
  798.             PrintLn "@X0FWhat the filename of the screen which displays the benefits of"
  799.             PrintLn "@X0Fcontributing three or more times at $", STRING015, " this file must reside"
  800.             PrintLn "@X0Fin the same directory as the PPE.  You may have separate screens for"
  801.             PrintLn "@X0Fdifferent access levels and languages. The display screen naming"
  802.             PrintLn "@X0Fconventions are exactly the same as PCBoard's.  If you wanted a "
  803.             PrintLn "@X0Fdisplay screen for access level 200 and the base file name for this"
  804.             PrintLn "@X0Fscreen is 3RD", STRING015, " your 200 screen name would be 2ND", STRING015, "200"
  805.             PrintLn "@X0FThis particular screen will be displayed if you answered NO to the"
  806.             PrintLn "@X0FDo you wish to NOT promote additional donations question earlier."
  807.             PrintLn ""
  808.             InputStr "@X0FFor example: @X0C3RD" + STRING015 + "@X0F:  _", STRING010, 11, 45, Mask_File(), 64 + 256 + 8
  809.             If (Len(STRING010) <= 1) STRING010 = STRING031
  810.             Gosub LABEL014
  811.             Newlines 2
  812.             PrintLn "@X0E(OLD: ", STRING027, ")"
  813.             PrintLn "@X0CEnter retains old setting"
  814.             Newlines 2
  815.             PrintLn "@X0FWhat is the filename of the screen which serves as TABS-PPE's main"
  816.             PrintLn "@X0Fbilling menu.  This file must reside in the same directory as"
  817.             PrintLn "@X0Fthe PPE.  You may have separate screens for different access"
  818.             PrintLn "@X0Flevels and languages.  The display screen naming conventions are"
  819.             PrintLn "@X0Fexactly the same as PCBoard's.  If you wanted a display screen for"
  820.             PrintLn "@X0Faccess level 200 and the base file name for this screen is MEN", STRING015, ""
  821.             PrintLn "@X0Fyour 200 screen name would be MEN", STRING015, "200"
  822.             PrintLn ""
  823.             InputStr "@X0FFor example: @X0CMEN" + STRING015 + "@X0F:  _", STRING010, 11, 45, Mask_File(), 64 + 256 + 8
  824.             If (Len(STRING010) <= 1) STRING010 = STRING027
  825.             Gosub LABEL014
  826.             Cls
  827.             If (STRING052 == "NO") Then
  828.                 Gosub LABEL016
  829.             Else
  830.                 Newlines 2
  831.                 PrintLn "@X0E(OLD: ", STRING023, ")"
  832.                 PrintLn "@X0CEnter to retains old setting."
  833.                 Newlines 2
  834.                 PrintLn "@X0FWhat is the filename of the screen which is displayed to the caller"
  835.                 PrintLn "@X0Fupon their third and subsequent donations screen.  Since you answered"
  836.                 PrintLn "@X0FYES to the Do you wish to NOT promote additional donations question"
  837.                 PrintLn "@X0Fearlier. This screen would normally say something like, at your"
  838.                 PrintLn "@X0Faccess level no further entitlements are granted using this program."
  839.                 PrintLn "@X0FPlease contact your Sysop for information on higher access levels."
  840.                 PrintLn ""
  841.                 InputStr "@X0FFor example: @X0CNOADD" + STRING015 + ":  _", STRING010, 11, 45, Mask_File(), 64 + 256 + 8
  842.                 If (Len(STRING010) <= 1) STRING010 = STRING023
  843.                 Gosub LABEL014
  844.             Endif
  845.         Endif
  846.         Newlines 3
  847.         PrintLn "@X0FThat completes configuration of the @X0C", STRING017, "@X0F file."
  848.         Newlines 2
  849.         STRING010 = ""
  850.         InputYN "Do you wish to save @X0C" + STRING017 + "@X0B (@X0EY@X0F/@X0EN@X0B)@X0F", STRING010, 15
  851.         Gosub LABEL013
  852.         If (STRING010 == "YES") Goto LABEL012
  853.         Select Case (STRING010)
  854.             Case "NO"
  855.                 Newlines 2
  856.                 STRING010 = ""
  857.                 InputYN "Do you wish to start all over @X0B(@X0EY@X0F/@X0EN@X0B)@X0F", STRING010, 15
  858.                 Gosub LABEL013
  859.                 If (STRING010 == "YES") Then
  860.                     FClose 1
  861.                     FClose 2
  862.                     Delete STRING013
  863.                     Goto LABEL001
  864.                 Endif
  865.             Case "NO"
  866.                 Newlines 2
  867.                 FClose 1
  868.                 FClose 2
  869.                 Delete STRING013
  870.         End Select
  871.         Goto LABEL018
  872.         :LABEL012
  873.         STRING010 = ""
  874.         FClose 1
  875.         FClose 2
  876.         Delete STRING012 + STRING017
  877.         Rename STRING013, STRING012 + STRING017
  878.         Delete STRING013
  879.         Goto LABEL001
  880.         :LABEL013
  881.         If (Upper(STRING010) == "YES") STRING010 = "YES"
  882.         If (Upper(STRING010) == YesChar()) STRING010 = "YES"
  883.         If (Upper(STRING010) == "NO") STRING010 = "NO"
  884.         If (Upper(STRING010) == NoChar()) STRING010 = "NO"
  885.         Return
  886.         :LABEL014
  887.         FPutLn 2, Upper(STRING010)
  888.         STRING010 = ""
  889.         Cls
  890.         PrintLn "@X0BTABS-PPE Configuration Utility@X07"
  891.         Newlines 2
  892.         Return
  893.         :LABEL015
  894.         FPutLn 2, STRING010
  895.         STRING010 = ""
  896.         Cls
  897.         PrintLn "@X0BTABS-PPE Configuration Utility@X07"
  898.         Newlines 2
  899.         Return
  900.         :LABEL016
  901.         FPutLn 2, ""
  902.         STRING010 = ""
  903.         Cls
  904.         PrintLn "@X0BTABS-PPE Configuration Utility@X07"
  905.         Newlines 2
  906.         Return
  907.         :LABEL017
  908.         STRING002 = ""
  909.         STRING003 = ""
  910.         STRING004 = ""
  911.         STRING047 = ""
  912.         STRING006 = ""
  913.         STRING048 = ""
  914.         STRING008 = ""
  915.         STRING009 = ""
  916.         STRING011 = ""
  917.         Return
  918.     Endif
  919.     :LABEL018
  920.     FClose 1
  921.     FClose 2
  922.     Delete STRING013
  923.     Delete STRING012 + "CONFIG.FLG"
  924.  
  925. ;------------------------------------------------------------------------------
  926. ;
  927. ; Usage report (before postprocessing)
  928. ;
  929. ; ■ Statements used :
  930. ;
  931. ;    25      Cls
  932. ;    69      Goto 
  933. ;    94      Let 
  934. ;    260     PrintLn 
  935. ;    84      If 
  936. ;    3       FCreate 
  937. ;    4       FOpen 
  938. ;    19      FClose 
  939. ;    49      FGet 
  940. ;    16      FPutLn 
  941. ;    12      Delete 
  942. ;    32      InputStr 
  943. ;    18      InputYN 
  944. ;    75      Gosub 
  945. ;    5       Return
  946. ;    4       Delay 
  947. ;    112     Newlines 
  948. ;    3       InputText 
  949. ;    2       Rename 
  950. ;
  951. ;
  952. ; ■ Functions used :
  953. ;
  954. ;    80      +
  955. ;    36      ==
  956. ;    23      <
  957. ;    19      <=
  958. ;    1       >
  959. ;    31      !
  960. ;    43      Len(
  961. ;    10      Upper()
  962. ;    1       Ferr()
  963. ;    2       NoChar()
  964. ;    1       YesChar()
  965. ;    12      Mask_Num()
  966. ;    14      Mask_File()
  967. ;    3       Mask_Path()
  968. ;    1       PPEPath()
  969. ;    4       Exist()
  970. ;
  971. ;------------------------------------------------------------------------------
  972. ;
  973. ; Analysis flags : No flag
  974. ;
  975. ;------------------------------------------------------------------------------
  976. ;
  977. ; Postprocessing report
  978. ;
  979. ;    0       For/Next
  980. ;    0       While/EndWhile
  981. ;    26      If/Then or If/Then/Else
  982. ;    2       Select Case
  983. ;
  984. ;------------------------------------------------------------------------------
  985. ;                 AEGiS Corp - Break the routines, code against the machines!
  986. ;------------------------------------------------------------------------------
  987.