home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR3 / EDSFIX.ZIP / EUTMOD4.PPE (.txt) next >
PCBoard Programming Language Executable  |  1994-01-30  |  36KB  |  1,497 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.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Boolean  BOOLEAN005
  24.     Boolean  BOOLEAN006
  25.     Boolean  BOOLEAN007
  26.     Boolean  TBOOLEAN008(4)
  27.     Boolean  TBOOLEAN009(3)
  28.     Boolean  BOOLEAN010
  29.     Boolean  BOOLEAN011
  30.     Boolean  BOOLEAN012
  31.     Boolean  BOOLEAN013
  32.     Boolean  BOOLEAN014
  33.     Integer  INTEGER001
  34.     Integer  INTEGER002
  35.     Integer  INTEGER003
  36.     Integer  INTEGER004
  37.     Integer  INTEGER005
  38.     Integer  INTEGER006
  39.     Integer  INTEGER007
  40.     Integer  INTEGER008
  41.     String   STRING001
  42.     String   STRING002
  43.     String   STRING003
  44.     String   STRING004
  45.     String   STRING005
  46.     String   STRING006
  47.     String   STRING007
  48.     String   STRING008
  49.     String   STRING009
  50.     String   STRING010
  51.     String   TSTRING011(11)
  52.     Byte     BYTE001
  53.     Byte     BYTE002
  54.     Byte     BYTE003
  55.     Byte     BYTE004
  56.     Byte     BYTE005
  57.     Byte     BYTE006
  58.     Byte     BYTE007
  59.     Byte     BYTE008
  60.     Byte     BYTE009
  61.     Byte     BYTE010
  62.     Byte     TBYTE011(1)
  63.     Byte     BYTE012
  64.     Byte     BYTE013
  65.     Byte     BYTE014
  66.     Word     WORD001
  67.     Word     WORD002
  68.     Word     WORD003
  69.     Word     WORD004
  70.     Word     WORD005
  71.     Word     WORD006
  72.  
  73. ;------------------------------------------------------------------------------
  74.  
  75.     Gosub LABEL001
  76.     Goto LABEL027
  77.     :LABEL001
  78.     BOOLEAN004 = 1
  79.     If (Exist(PPEPath() + "EDSBACK.XXX")) Then
  80.         FOpen 2, PPEPath() + "EDSBACK.XXX", 2, 2
  81.         If (Ferr(2)) Then
  82.             BOOLEAN004 = 1
  83.         Else
  84.             BOOLEAN004 = 0
  85.         Endif
  86.         If (BOOLEAN004) Then
  87.             PrintLn 
  88.             PrintLn "@X0CEDSBACK.XXX is currently in use by another copy of EDSUTIL or EDSBACK..."
  89.             PrintLn "@X0APlease shut down all other nodes and run EDSUTIL again..."
  90.             PrintLn 
  91.             FClose 2
  92.             Return
  93.         Endif
  94.     Else
  95.         FCreate 2, PPEPath() + "EDSBACK.XXX", 2, 2
  96.         If (Ferr(2)) Then
  97.             BOOLEAN004 = 1
  98.         Else
  99.             BOOLEAN004 = 0
  100.         Endif
  101.         If (BOOLEAN004) Then
  102.             PrintLn 
  103.             PrintLn "@X0CEDSBACK.XXX is currently in use by another copy of EDSUTIL or EDSBACK..."
  104.             PrintLn "@X0APlease shut down all other nodes and run EDSUTIL again..."
  105.             PrintLn 
  106.             FClose 2
  107.             Return
  108.         Endif
  109.         Gosub LABEL026
  110.         PrintLn 
  111.         PrintLn "@X0CCreating EDSBACK.XXX Binary Configuration File..."
  112.         Log "NEW EDSBack Configurations file created...", 0
  113.         FWrite 2, "EDSBack v1.14 Configuration File      " + Chr(13) + Chr(10) + Chr(32) + Chr(26) + Chr(0), 43
  114.         FWrite 2, STRING001, 3
  115.         FWrite 2, BOOLEAN002, 1
  116.         FWrite 2, STRING005, 25
  117.         FWrite 2, INTEGER002, 4
  118.         FWrite 2, STRING008, 30
  119.         FWrite 2, STRING006, 30
  120.         FWrite 2, STRING007, 30
  121.         FWrite 2, BYTE001, 1
  122.         FWrite 2, WORD001, 2
  123.         FWrite 2, BOOLEAN003, 1
  124.         FWrite 2, INTEGER003, 4
  125.         FWrite 2, STRING009, 75
  126.         FWrite 2, WORD002, 2
  127.         FWrite 2, STRING010, 30
  128.         FWrite 2, BYTE013, 1
  129.         FWrite 2, TBYTE011(0), 1
  130.         FWrite 2, TBYTE011(1), 1
  131.         For INTEGER004 = 0 To 11
  132.             FWrite 2, TSTRING011(INTEGER004), 75
  133.         Next
  134.         FWrite 2, BYTE002, 1
  135.         FWrite 2, BYTE003, 1
  136.         FWrite 2, BYTE009, 1
  137.         FWrite 2, BYTE010, 1
  138.         FWrite 2, BYTE005, 1
  139.         FWrite 2, BYTE006, 1
  140.         FWrite 2, INTEGER005, 4
  141.         FWrite 2, INTEGER006, 4
  142.         FWrite 2, BYTE007, 1
  143.         For INTEGER004 = 0 To 4
  144.             FWrite 2, TBOOLEAN008(INTEGER004), 1
  145.         Next
  146.         FWrite 2, BYTE008, 1
  147.         For INTEGER004 = 0 To 3
  148.             FWrite 2, TBOOLEAN009(INTEGER004), 1
  149.         Next
  150.         FWrite 2, WORD003, 2
  151.         FWrite 2, BYTE012, 1
  152.         FWrite 2, BOOLEAN007, 1
  153.         FWrite 2, BOOLEAN010, 1
  154.         FWrite 2, BOOLEAN011, 1
  155.         FWrite 2, WORD004, 2
  156.         FWrite 2, BYTE004, 1
  157.         FWrite 2, BOOLEAN012, 1
  158.         FWrite 2, INTEGER007, 4
  159.         FWrite 2, INTEGER008, 4
  160.         FWrite 2, WORD005, 2
  161.         FWrite 2, BOOLEAN013, 1
  162.         FWrite 2, BOOLEAN014, 1
  163.         FWrite 2, BYTE014, 1
  164.         FWrite 2, WORD006, 2
  165.         FWrite 2, Space(1013), 1013
  166.     Endif
  167.     BOOLEAN001 = 0
  168.     :LABEL002
  169.     If (BOOLEAN001) Goto LABEL025
  170.     STRING003 = ""
  171.     PrintLn 
  172.     PrintLn "          @X0F(@X0AT@X0F)@X0Eoggles"
  173.     PrintLn "          @X0F(@X0AS@X0F)@X0Eettings"
  174.     PrintLn "          @X0F(@X0AF@X0F)@X0Eile Paths"
  175.     PrintLn "          @X0F(@X0AR@X0F)@X0Eegistration Information"
  176.     PrintLn 
  177.     PrintLn "          @X0F(@X0AQ@X0F)@X0Euit to EDSUtil Main"
  178.     PrintLn 
  179.     InputStr "Configuration command", STRING003, 11, 1, "TtSsFfRrQqCcv", 2 + 4
  180.     STRING003 = Upper(STRING003)
  181.     Newline
  182.     Select Case (STRING003)
  183.         Case "T"
  184.             INTEGER001 = 1
  185.             BOOLEAN005 = 0
  186.             BOOLEAN006 = 1
  187.             :LABEL003
  188.             If (BOOLEAN005) Goto LABEL018
  189.             If (BOOLEAN006) Then
  190.                 PrintLn 
  191.                 PrintLn "@X0AReading Toggles..."
  192.                 FSeek 2, 46, 0
  193.                 FRead 2, BOOLEAN002, 1
  194.                 FSeek 2, 122, 1
  195.                 FRead 2, BOOLEAN003, 1
  196.                 FSeek 2, 112, 1
  197.                 FRead 2, TBYTE011(0), 1
  198.                 FRead 2, TBYTE011(1), 1
  199.                 FSeek 2, 904, 1
  200.                 FRead 2, BYTE005, 1
  201.                 FRead 2, BYTE006, 1
  202.                 FSeek 2, 8, 1
  203.                 FRead 2, BYTE007, 1
  204.                 For INTEGER004 = 0 To 4
  205.                     FRead 2, TBOOLEAN008(INTEGER004), 1
  206.                 Next
  207.                 FSeek 2, 1, 1
  208.                 For INTEGER004 = 0 To 3
  209.                     FRead 2, TBOOLEAN009(INTEGER004), 1
  210.                 Next
  211.                 FSeek 2, 2, 1
  212.                 FRead 2, BYTE012, 1
  213.                 FRead 2, BOOLEAN007, 1
  214.                 FRead 2, BOOLEAN010, 1
  215.                 FRead 2, BOOLEAN011, 1
  216.                 FSeek 2, 3, 1
  217.                 FRead 2, BOOLEAN012, 1
  218.                 FSeek 2, 10, 1
  219.                 FRead 2, BOOLEAN013, 1
  220.                 FRead 2, BOOLEAN014, 1
  221.             Endif
  222.             Cls
  223.             Select Case (INTEGER001)
  224.                 Case 1
  225.                     PrintLn "@X0FEDSUtil Configuration Toggles  @X0A(Screen #1 of 2)"
  226.                     PrintLn "@X0E────────────────────────────────────────────────────"
  227.                     PrintLn 
  228.                     Print "@X0F (@X091@X0F) @X0AAllow International CallBacks..: @X0B"
  229.                     If (BOOLEAN002) Then
  230.                         PrintLn "Yes"
  231.                     Else
  232.                         PrintLn "No "
  233.                     Endif
  234.                     Print "@X0F (@X092@X0F) @X0AUser's time adjustment.........: @X0B"
  235.                     If (BOOLEAN003) Then
  236.                         PrintLn "Add Time    "
  237.                     Else
  238.                         PrintLn "Replace Time"
  239.                     Endif
  240.                     Print "@X0F (@X093@X0F) @X0AMessage type to send to SysOp..: @X0B"
  241.                     Select Case (BYTE005)
  242.                         Case 1
  243.                             PrintLn "Internal"
  244.                         Case 2
  245.                             PrintLn "External"
  246.                         Case Else
  247.                             PrintLn "None    "
  248.                     End Select
  249.                     Print "@X0F (@X094@X0F) @X0AMessage type to send to User...: @X0B"
  250.                     Select Case (BYTE006)
  251.                         Case 1
  252.                             PrintLn "Internal"
  253.                         Case 2
  254.                             PrintLn "External"
  255.                         Case Else
  256.                             PrintLn "None    "
  257.                     End Select
  258.                     Print "@X0F (@X095@X0F) @X0AComment to use (Date/Phone)....: @X0B"
  259.                     Select Case (BYTE007)
  260.                         Case 0
  261.                             PrintLn "None   "
  262.                         Case 1
  263.                             PrintLn "Date   "
  264.                         Case 2
  265.                             PrintLn "Phone #"
  266.                         Case 3
  267.                             PrintLn "Both   "
  268.                     End Select
  269.                     Print "@X0F (@X096@X0F) @X0ACheck user's name..............: @X0B"
  270.                     If (TBOOLEAN008(0)) Then
  271.                         PrintLn "Yes"
  272.                     Else
  273.                         PrintLn "No "
  274.                     Endif
  275.                     Print "@X0F (@X097@X0F) @X0ACheck user's password..........: @X0B"
  276.                     If (TBOOLEAN008(1)) Then
  277.                         PrintLn "Yes"
  278.                     Else
  279.                         PrintLn "No "
  280.                     Endif
  281.                     Print "@X0F (@X098@X0F) @X0ACheck user's verify string.....: @X0B"
  282.                     If (TBOOLEAN008(2)) Then
  283.                         PrintLn "Yes"
  284.                     Else
  285.                         PrintLn "No "
  286.                     Endif
  287.                     Print "@X0F (@X099@X0F) @X0ACheck user's city..............: @X0B"
  288.                     If (TBOOLEAN008(3)) Then
  289.                         PrintLn "Yes"
  290.                     Else
  291.                         PrintLn "No "
  292.                     Endif
  293.                     Print "@X0F(@X0910@X0F) @X0AUpgrade local callers..........: @X0B"
  294.                     If (BOOLEAN007) Then
  295.                         PrintLn "Yes"
  296.                     Else
  297.                         PrintLn "No "
  298.                     Endif
  299.                     Print "@X0F(@X0911@X0F) @X0AUpdate user's data phone #.....: @X0B"
  300.                     If (BOOLEAN012) Then
  301.                         PrintLn "Yes"
  302.                     Else
  303.                         PrintLn "No "
  304.                     Endif
  305.                 Case 2
  306.                     PrintLn "@X0FEDSUtil Configuration Toggles  @X0A(Screen #2 of 2)"
  307.                     PrintLn "@X0E────────────────────────────────────────────────────"
  308.                     PrintLn 
  309.                     Print "@X0F(@X0912@X0F) @X0AVerify user's city.............: @X0B"
  310.                     If (TBOOLEAN008(4)) Then
  311.                         PrintLn "Yes"
  312.                         Goto LABEL004
  313.                     Endif
  314.                     PrintLn "No "
  315.                     :LABEL004
  316.                     Print "@X0F(@X0913@X0F) @X0AAllow user to use logoff cmnd..: @X0B"
  317.                     If (TBOOLEAN009(0)) Then
  318.                         PrintLn "Yes"
  319.                         Goto LABEL005
  320.                     Endif
  321.                     PrintLn "No "
  322.                     :LABEL005
  323.                     Print "@X0F(@X0914@X0F) @X0AAllow user to return to main...: @X0B"
  324.                     If (TBOOLEAN009(1)) Then
  325.                         PrintLn "Yes"
  326.                         Goto LABEL006
  327.                     Endif
  328.                     PrintLn "No "
  329.                     :LABEL006
  330.                     Print "@X0F(@X0915@X0F) @X0AAllow multiple callbacks.......: @X0B"
  331.                     If (TBOOLEAN009(2)) Then
  332.                         PrintLn "Yes"
  333.                         Goto LABEL007
  334.                     Endif
  335.                     PrintLn "No "
  336.                     :LABEL007
  337.                     Print "@X0F(@X0916@X0F) @X0AAllow trash file display.......: @X0B"
  338.                     If (TBOOLEAN009(3)) Then
  339.                         PrintLn "Yes"
  340.                         Goto LABEL008
  341.                     Endif
  342.                     PrintLn "No "
  343.                     :LABEL008
  344.                     Print "@X0F(@X0917@X0F) @X0APlace to put date comment......: @X0B"
  345.                     If (TBYTE011(0) == 0) Then
  346.                         PrintLn "None                  "
  347.                         Goto LABEL009
  348.                     Endif
  349.                     If (TBYTE011(0) == 1) Then
  350.                         PrintLn "User Record Comment #1"
  351.                         Goto LABEL009
  352.                     Endif
  353.                     If (TBYTE011(0) == 2) Then
  354.                         PrintLn "User Record Comment #2"
  355.                         Goto LABEL009
  356.                     Endif
  357.                     If (TBYTE011(0) == 10) Then
  358.                         PrintLn "Notes PSA #1          "
  359.                         Goto LABEL009
  360.                     Endif
  361.                     If (TBYTE011(0) == 20) Then
  362.                         PrintLn "Notes PSA #2          "
  363.                         Goto LABEL009
  364.                     Endif
  365.                     If (TBYTE011(0) == 30) Then
  366.                         PrintLn "Notes PSA #3          "
  367.                         Goto LABEL009
  368.                     Endif
  369.                     If (TBYTE011(0) == 40) Then
  370.                         PrintLn "Notes PSA #4          "
  371.                         Goto LABEL009
  372.                     Endif
  373.                     If (TBYTE011(0) == 50) Then
  374.                         PrintLn "Notes PSA #5          "
  375.                     Endif
  376.                     :LABEL009
  377.                     Print "@X0F(@X0918@X0F) @X0APlace to put phone comment.....: @X0B"
  378.                     If (TBYTE011(1) == 0) Then
  379.                         PrintLn "None                  "
  380.                         Goto LABEL010
  381.                     Endif
  382.                     If (TBYTE011(1) == 1) Then
  383.                         PrintLn "User Record Comment #1"
  384.                         Goto LABEL010
  385.                     Endif
  386.                     If (TBYTE011(1) == 2) Then
  387.                         PrintLn "User Record Comment #2"
  388.                         Goto LABEL010
  389.                     Endif
  390.                     If (TBYTE011(1) == 10) Then
  391.                         PrintLn "Notes PSA #1          "
  392.                         Goto LABEL010
  393.                     Endif
  394.                     If (TBYTE011(1) == 20) Then
  395.                         PrintLn "Notes PSA #2          "
  396.                         Goto LABEL010
  397.                     Endif
  398.                     If (TBYTE011(1) == 30) Then
  399.                         PrintLn "Notes PSA #3          "
  400.                         Goto LABEL010
  401.                     Endif
  402.                     If (TBYTE011(1) == 40) Then
  403.                         PrintLn "Notes PSA #4          "
  404.                         Goto LABEL010
  405.                     Endif
  406.                     If (TBYTE011(1) == 50) Then
  407.                         PrintLn "Notes PSA #5          "
  408.                     Endif
  409.                     :LABEL010
  410.                     Print "@X0F(@X0919@X0F) @X0AFiletype to execute at the end.: @X0B"
  411.                     If (BYTE012 == 0) Then
  412.                         PrintLn "None          "
  413.                         Goto LABEL011
  414.                     Endif
  415.                     If (BYTE012 == 1) Then
  416.                         PrintLn "PPE file      "
  417.                         Goto LABEL011
  418.                     Endif
  419.                     If (BYTE012 == 2) Then
  420.                         PrintLn "DOS batch file"
  421.                     Endif
  422.                     :LABEL011
  423.                     Print "@X0F(@X0920@X0F) @X0ADo not allow broadcast messages: @X0B"
  424.                     If (BOOLEAN010) Then
  425.                         PrintLn "Yes"
  426.                         Goto LABEL012
  427.                     Endif
  428.                     PrintLn "No "
  429.                     :LABEL012
  430.                     Print "@X0F(@X0921@X0F) @X0AHangup on bad numbers..........: @X0B"
  431.                     If (BOOLEAN011) Then
  432.                         PrintLn "Yes"
  433.                         Goto LABEL013
  434.                     Endif
  435.                     PrintLn "No "
  436.                     :LABEL013
  437.                     Print "@X0F(@X0922@X0F) @X0AImmediately start download.....: @X0B"
  438.                     If (BOOLEAN013) Then
  439.                         PrintLn "Yes"
  440.                         Goto LABEL014
  441.                     Endif
  442.                     PrintLn "No "
  443.                     :LABEL014
  444.                     Print "@X0F(@X0923@X0F) @X0ACheck Caller-ID string.........: @X0B"
  445.                     If (BOOLEAN014) Then
  446.                         PrintLn "Yes"
  447.                         Goto LABEL015
  448.                     Endif
  449.                     PrintLn "No "
  450.             End Select
  451.             :LABEL015
  452.             PrintLn 
  453.             STRING004 = ""
  454.             InputStr "(Q)uit, (H)elp, Rotate (P)age, Configuration toggles command", STRING004, 15, 2, "1234567890QqHhPp", 2 + 4
  455.             STRING004 = Upper(Strip(STRING004, " "))
  456.             Newline
  457.             Select Case (STRING004)
  458.                 Case "Q"
  459.                     BOOLEAN005 = 1
  460.                     BOOLEAN006 = 0
  461.                 Case "H"
  462.                     Cls
  463.                     Print "@PON@"
  464.                     DispFile PPEPath() + "EDSCT", 1 + 4
  465.                     Print "@POFF@"
  466.                     BOOLEAN005 = 0
  467.                     BOOLEAN006 = 0
  468.                 Case "P"
  469.                     If (INTEGER001 == 1) Then
  470.                         INTEGER001 = 2
  471.                     Else
  472.                         INTEGER001 = 1
  473.                     Endif
  474.                     BOOLEAN005 = 0
  475.                     BOOLEAN006 = 1
  476.                 Case "1"
  477.                     If (BOOLEAN002) Then
  478.                         BOOLEAN002 = 0
  479.                     Else
  480.                         BOOLEAN002 = 1
  481.                     Endif
  482.                     FSeek 2, 46, 0
  483.                     FWrite 2, BOOLEAN002, 1
  484.                     BOOLEAN005 = 0
  485.                     BOOLEAN006 = 1
  486.                 Case "2"
  487.                     STRING002 = ""
  488.                     InputStr "@X0B(@X0FA@X0B)@X0Cdd or @X0B(@X0FR@X0B)@X0Ceplace time", STRING002, 12, 1, "AaRr", 2 + 4
  489.                     STRING002 = Upper(STRING002)
  490.                     If (STRING002 == "A") Then
  491.                         BOOLEAN003 = 1
  492.                     Else
  493.                         BOOLEAN003 = 0
  494.                     Endif
  495.                     FSeek 2, 169, 0
  496.                     FWrite 2, BOOLEAN003, 1
  497.                     BOOLEAN005 = 0
  498.                     BOOLEAN006 = 1
  499.                 Case "3"
  500.                     STRING002 = ""
  501.                     InputStr "@X0CSend sysop @X0B(@X0FI@X0B)@X0Cnternal, @X0B(@X0FE@X0B)@X0Cxternal, @X0B(@X0FN@X0B)@X0Co message", STRING002, 12, 1, "IiEeNn", 2 + 4
  502.                     STRING002 = Upper(STRING002)
  503.                     Select Case (STRING002)
  504.                         Case "N"
  505.                             BYTE005 = 0
  506.                         Case "I"
  507.                             BYTE005 = 1
  508.                         Case "E"
  509.                             BYTE005 = 2
  510.                     End Select
  511.                     FSeek 2, 1188, 0
  512.                     FWrite 2, BYTE005, 1
  513.                     BOOLEAN005 = 0
  514.                     BOOLEAN006 = 1
  515.                 Case "4"
  516.                     STRING002 = ""
  517.                     InputStr "@X0CSend user @X0B(@X0FI@X0B)@X0Cnternal, @X0B(@X0FE@X0B)@X0Cxternal, @X0B(@X0FN@X0B)@X0Co message", STRING002, 12, 1, "IiEeNn", 2 + 4
  518.                     STRING002 = Upper(STRING002)
  519.                     Select Case (STRING002)
  520.                         Case "N"
  521.                             BYTE006 = 0
  522.                         Case "I"
  523.                             BYTE006 = 1
  524.                         Case "E"
  525.                             BYTE006 = 2
  526.                     End Select
  527.                     FSeek 2, 1189, 0
  528.                     FWrite 2, BYTE006, 1
  529.                     BOOLEAN005 = 0
  530.                     BOOLEAN006 = 1
  531.                 Case "5"
  532.                     STRING002 = ""
  533.                     InputStr "@X0CUse @X0B(@X0FN@X0B)@X0Co, @X0B(@X0FD@X0B)@X0Cate, @X0B(@X0FP@X0B)@X0Chone, @X0B(@X0FB@X0B)@X0Coth comment type", STRING002, 12, 1, "NnDdPpBb", 2 + 4
  534.                     STRING002 = Upper(STRING002)
  535.                     Select Case (STRING002)
  536.                         Case "N"
  537.                             BYTE007 = 0
  538.                         Case "D"
  539.                             BYTE007 = 1
  540.                         Case "P"
  541.                             BYTE007 = 2
  542.                         Case "B"
  543.                             BYTE007 = 3
  544.                     End Select
  545.                     FSeek 2, 1198, 0
  546.                     FWrite 2, BYTE007, 1
  547.                     BOOLEAN005 = 0
  548.                     BOOLEAN006 = 1
  549.                 Case "6"
  550.                     If (TBOOLEAN008(0)) Then
  551.                         STRING002 = YesChar()
  552.                     Else
  553.                         STRING002 = NoChar()
  554.                     Endif
  555.                     InputYN "Check user's name upon callback", STRING002, 12
  556.                     If (STRING002 == YesChar()) Then
  557.                         TBOOLEAN008(0) = 1
  558.                     Else
  559.                         TBOOLEAN008(0) = 0
  560.                     Endif
  561.                     FSeek 2, 1199, 0
  562.                     FWrite 2, TBOOLEAN008(0), 1
  563.                     BOOLEAN005 = 0
  564.                     BOOLEAN006 = 1
  565.                 Case "7"
  566.                     If (TBOOLEAN008(1)) Then
  567.                         STRING002 = YesChar()
  568.                     Else
  569.                         STRING002 = NoChar()
  570.                     Endif
  571.                     InputYN "Check user's password upon callback", STRING002, 12
  572.                     If (STRING002 == YesChar()) Then
  573.                         TBOOLEAN008(1) = 1
  574.                     Else
  575.                         TBOOLEAN008(1) = 0
  576.                     Endif
  577.                     FSeek 2, 1200, 0
  578.                     FWrite 2, TBOOLEAN008(1), 1
  579.                     BOOLEAN005 = 0
  580.                     BOOLEAN006 = 1
  581.                 Case "8"
  582.                     If (TBOOLEAN008(2)) Then
  583.                         STRING002 = YesChar()
  584.                     Else
  585.                         STRING002 = NoChar()
  586.                     Endif
  587.                     InputYN "Check user's verification string upon callback", STRING002, 12
  588.                     If (STRING002 == YesChar()) Then
  589.                         TBOOLEAN008(2) = 1
  590.                     Else
  591.                         TBOOLEAN008(2) = 0
  592.                     Endif
  593.                     FSeek 2, 1201, 0
  594.                     FWrite 2, TBOOLEAN008(2), 1
  595.                     BOOLEAN005 = 0
  596.                     BOOLEAN006 = 1
  597.                 Case "9"
  598.                     If (TBOOLEAN008(3)) Then
  599.                         STRING002 = YesChar()
  600.                     Else
  601.                         STRING002 = NoChar()
  602.                     Endif
  603.                     InputYN "Check user's city (calling from) upon callback", STRING002, 12
  604.                     If (STRING002 == YesChar()) Then
  605.                         TBOOLEAN008(3) = 1
  606.                     Else
  607.                         TBOOLEAN008(3) = 0
  608.                     Endif
  609.                     FSeek 2, 1202, 0
  610.                     FWrite 2, TBOOLEAN008(3), 1
  611.                     BOOLEAN005 = 0
  612.                     BOOLEAN006 = 1
  613.                 Case "10"
  614.                     If (BOOLEAN007) Then
  615.                         STRING002 = YesChar()
  616.                     Else
  617.                         STRING002 = NoChar()
  618.                     Endif
  619.                     InputYN "Upgrade local callers", STRING002, 10
  620.                     Newline
  621.                     If (Upper(STRING002) == YesChar()) Then
  622.                         BOOLEAN007 = 1
  623.                     Else
  624.                         BOOLEAN007 = 0
  625.                     Endif
  626.                     FSeek 2, 1212, 0
  627.                     FWrite 2, BOOLEAN007, 1
  628.                     BOOLEAN005 = 0
  629.                     BOOLEAN006 = 1
  630.                 Case "11"
  631.                     If (BOOLEAN012) Then
  632.                         STRING002 = YesChar()
  633.                     Else
  634.                         STRING002 = NoChar()
  635.                     Endif
  636.                     InputYN "Update user's data phone # after successful callback", STRING002, 10
  637.                     Newline
  638.                     If (Upper(STRING002) == YesChar()) Then
  639.                         BOOLEAN012 = 1
  640.                     Else
  641.                         BOOLEAN012 = 0
  642.                     Endif
  643.                     FSeek 2, 1218, 0
  644.                     FWrite 2, BOOLEAN012, 1
  645.                     BOOLEAN005 = 0
  646.                     BOOLEAN006 = 1
  647.                 Case "12"
  648.                     If (TBOOLEAN008(4)) Then
  649.                         STRING002 = YesChar()
  650.                     Else
  651.                         STRING002 = NoChar()
  652.                     Endif
  653.                     InputYN "Verify user's name & city upon callback (for large user databases)", STRING002, 12
  654.                     If (STRING002 == YesChar()) Then
  655.                         TBOOLEAN008(4) = 1
  656.                     Else
  657.                         TBOOLEAN008(4) = 0
  658.                     Endif
  659.                     FSeek 2, 1203, 0
  660.                     FWrite 2, TBOOLEAN008(4), 1
  661.                     BOOLEAN005 = 0
  662.                     BOOLEAN006 = 1
  663.                 Case "13"
  664.                     If (TBOOLEAN009(0)) Then
  665.                         STRING002 = YesChar()
  666.                     Else
  667.                         STRING002 = NoChar()
  668.                     Endif
  669.                     InputYN "Allow user to logoff from within EDSBack", STRING002, 12
  670.                     If (STRING002 == YesChar()) Then
  671.                         TBOOLEAN009(0) = 1
  672.                     Else
  673.                         TBOOLEAN009(0) = 0
  674.                     Endif
  675.                     FSeek 2, 1205, 0
  676.                     FWrite 2, TBOOLEAN009(0), 1
  677.                     BOOLEAN005 = 0
  678.                     BOOLEAN006 = 1
  679.                 Case "14"
  680.                     If (TBOOLEAN009(1)) Then
  681.                         STRING002 = YesChar()
  682.                     Else
  683.                         STRING002 = NoChar()
  684.                     Endif
  685.                     InputYN "Allow user to return to BBS without callback", STRING002, 12
  686.                     If (STRING002 == YesChar()) Then
  687.                         TBOOLEAN009(1) = 1
  688.                     Else
  689.                         TBOOLEAN009(1) = 0
  690.                     Endif
  691.                     FSeek 2, 1206, 0
  692.                     FWrite 2, TBOOLEAN009(1), 1
  693.                     BOOLEAN005 = 0
  694.                     BOOLEAN006 = 1
  695.                 Case "15"
  696.                     If (TBOOLEAN009(2)) Then
  697.                         STRING002 = YesChar()
  698.                     Else
  699.                         STRING002 = NoChar()
  700.                     Endif
  701.                     InputYN "Allow multiple callbacks (callbacks to the same number more than once)", STRING002, 12
  702.                     If (STRING002 == YesChar()) Then
  703.                         TBOOLEAN009(2) = 1
  704.                     Else
  705.                         TBOOLEAN009(2) = 0
  706.                     Endif
  707.                     FSeek 2, 1207, 0
  708.                     FWrite 2, TBOOLEAN009(2), 1
  709.                     BOOLEAN005 = 0
  710.                     BOOLEAN006 = 1
  711.                 Case "16"
  712.                     If (TBOOLEAN009(3)) Then
  713.                         STRING002 = YesChar()
  714.                     Else
  715.                         STRING002 = NoChar()
  716.                     Endif
  717.                     InputYN "Display trash can file information upon successful # search", STRING002, 12
  718.                     If (STRING002 == YesChar()) Then
  719.                         TBOOLEAN009(3) = 1
  720.                     Else
  721.                         TBOOLEAN009(3) = 0
  722.                     Endif
  723.                     FSeek 2, 1208, 0
  724.                     FWrite 2, TBOOLEAN009(3), 1
  725.                     BOOLEAN005 = 0
  726.                     BOOLEAN006 = 1
  727.                 Case "17"
  728.                     STRING002 = ""
  729.                     PrintLn "@X0B(@X0E1@X0B) @X0FUser record comment #1   @X0B(@X0E2@X0B) @X0FUser record comment #2"
  730.                     PrintLn "@X0B(@X0E3@X0B) @X0FNotes PSA #1  @X0B(@X0E4@X0B) @X0FNotes PSA #2 @X0B(@X0E5@X0B) @X0F Notes PSA #3"
  731.                     PrintLn "@X0B(@X0E6@X0B) @X0FNotes PSA #4  @X0B(@X0E7@X0B) @X0FNotes PSA #5"
  732.                     PrintLn 
  733.                     If (!Psa(6)) PrintLn "@X0ANOTES PSA NOT DETECTED!!  PLEASE INSTALL IF USING COMMENTS WITH IT!"
  734.                     InputStr "Enter location for date comment", STRING002, 15, 1, "1234567", 2 + 4
  735.                     STRING002 = Upper(Strip(STRING002, " "))
  736.                     Select Case (STRING002)
  737.                         Case "1"
  738.                             TBYTE011(0) = 1
  739.                         Case "2"
  740.                             TBYTE011(0) = 2
  741.                         Case "3"
  742.                             TBYTE011(0) = 10
  743.                         Case "4"
  744.                             TBYTE011(0) = 20
  745.                         Case "5"
  746.                             TBYTE011(0) = 30
  747.                         Case "6"
  748.                             TBYTE011(0) = 40
  749.                         Case "7"
  750.                             TBYTE011(0) = 50
  751.                     End Select
  752.                     FSeek 2, 282, 0
  753.                     FWrite 2, TBYTE011(0), 1
  754.                     BOOLEAN005 = 0
  755.                     BOOLEAN006 = 1
  756.                 Case "18"
  757.                     STRING002 = ""
  758.                     PrintLn "@X0B(@X0E1@X0B) @X0FUser record comment #1   @X0B(@X0E2@X0B) @X0FUser record comment #2"
  759.                     PrintLn "@X0B(@X0E3@X0B) @X0FNotes PSA #1  @X0B(@X0E4@X0B) @X0FNotes PSA #2 @X0B(@X0E5@X0B) @X0F Notes PSA #3"
  760.                     PrintLn "@X0B(@X0E6@X0B) @X0FNotes PSA #4  @X0B(@X0E7@X0B) @X0FNotes PSA #5"
  761.                     PrintLn 
  762.                     If (!Psa(6)) PrintLn "@X0ANOTES PSA NOT DETECTED!!  PLEASE INSTALL IF USING COMMENTS WITH IT!"
  763.                     InputStr "Enter location for phone comment", STRING002, 15, 1, "1234567", 2 + 4
  764.                     STRING002 = Upper(Strip(STRING002, " "))
  765.                     Select Case (STRING002)
  766.                         Case "1"
  767.                             TBYTE011(1) = 1
  768.                         Case "2"
  769.                             TBYTE011(1) = 2
  770.                         Case "3"
  771.                             TBYTE011(1) = 10
  772.                         Case "4"
  773.                             TBYTE011(1) = 20
  774.                         Case "5"
  775.                             TBYTE011(1) = 30
  776.                         Case "6"
  777.                             TBYTE011(1) = 40
  778.                         Case "7"
  779.                             TBYTE011(1) = 50
  780.                     End Select
  781.                     FSeek 2, 283, 0
  782.                     FWrite 2, TBYTE011(1), 1
  783.                     BOOLEAN005 = 0
  784.                     BOOLEAN006 = 1
  785.                 Case "19"
  786.                     STRING002 = ""
  787.                     InputStr "@X0F(@X0AP@X0F)@X0Bpe file, @X0F(@X0AB@X0F)@X0Batch file, @X0F(@X0AN@X0F)@X0Bone", STRING002, 11, 1, "PpBbNn", 2 + 4
  788.                     STRING002 = Upper(STRING002)
  789.                     Select Case (STRING002)
  790.                         Case "N"
  791.                             BYTE012 = 0
  792.                         Case "P"
  793.                             BYTE012 = 1
  794.                         Case "B"
  795.                             BYTE012 = 2
  796.                     End Select
  797.                     FSeek 2, 1211, 0
  798.                     FWrite 2, BYTE012, 1
  799.                     BOOLEAN005 = 0
  800.                     BOOLEAN006 = 1
  801.                 Case "20"
  802.                     If (BOOLEAN010) Then
  803.                         STRING002 = YesChar()
  804.                     Else
  805.                         STRING002 = NoChar()
  806.                     Endif
  807.                     InputYN "Allow user to receive broadcast messages while in EDSBack", STRING002, 10
  808.                     Newline
  809.                     If (Upper(STRING002) == YesChar()) Then
  810.                         BOOLEAN010 = 1
  811.                     Else
  812.                         BOOLEAN010 = 0
  813.                     Endif
  814.                     FSeek 2, 1213, 0
  815.                     FWrite 2, BOOLEAN010, 1
  816.                     BOOLEAN005 = 0
  817.                     BOOLEAN006 = 1
  818.                 Case "21"
  819.                     If (BOOLEAN011) Then
  820.                         STRING002 = YesChar()
  821.                     Else
  822.                         STRING002 = NoChar()
  823.                     Endif
  824.                     InputYN "Hangup on user if # is found in Bad Numbers File", STRING002, 10
  825.                     Newline
  826.                     If (Upper(STRING002) == YesChar()) Then
  827.                         BOOLEAN011 = 1
  828.                     Else
  829.                         BOOLEAN011 = 0
  830.                     Endif
  831.                     FSeek 2, 1214, 0
  832.                     FWrite 2, BOOLEAN011, 1
  833.                     BOOLEAN005 = 0
  834.                     BOOLEAN006 = 1
  835.                 Case "22"
  836.                     If (BOOLEAN013) Then
  837.                         STRING002 = YesChar()
  838.                     Else
  839.                         STRING002 = NoChar()
  840.                     Endif
  841.                     InputYN "Start download process after files are flagged for download", STRING002, 10
  842.                     Newline
  843.                     If (Upper(STRING002) == YesChar()) Then
  844.                         BOOLEAN013 = 1
  845.                     Else
  846.                         BOOLEAN013 = 0
  847.                     Endif
  848.                     FSeek 2, 1229, 0
  849.                     FWrite 2, BOOLEAN013, 1
  850.                     BOOLEAN005 = 0
  851.                     BOOLEAN006 = 1
  852.                 Case "23"
  853.                     If (BOOLEAN014) Then
  854.                         STRING002 = YesChar()
  855.                         Goto LABEL016
  856.                     Endif
  857.                     STRING002 = NoChar()
  858.                     :LABEL016
  859.                     InputYN "Check Caller-ID string and automatically upgrade user if a match is found", STRING002, 10
  860.                     Newline
  861.                     If (Upper(STRING002) == YesChar()) Then
  862.                         BOOLEAN014 = 1
  863.                         Goto LABEL017
  864.                     Endif
  865.                     BOOLEAN014 = 0
  866.                     :LABEL017
  867.                     FSeek 2, 1230, 0
  868.                     FWrite 2, BOOLEAN014, 1
  869.                     BOOLEAN005 = 0
  870.                     BOOLEAN006 = 1
  871.             End Select
  872.             Goto LABEL003
  873.             :LABEL018
  874.         Case "S"
  875.             INTEGER001 = 1
  876.             BOOLEAN005 = 0
  877.             BOOLEAN006 = 1
  878.             :LABEL019
  879.             If (BOOLEAN005) Goto LABEL020
  880.             If (BOOLEAN006) Then
  881.                 PrintLn 
  882.                 PrintLn "@X0AReading configuration settings..."
  883.                 FSeek 2, 43, 0
  884.                 FRead 2, STRING001, 3
  885.                 FSeek 2, 30, 1
  886.                 FRead 2, STRING008, 30
  887.                 FRead 2, STRING006, 30
  888.                 FRead 2, STRING007, 30
  889.                 FRead 2, BYTE001, 1
  890.                 FRead 2, WORD001, 2
  891.                 FSeek 2, 1, 1
  892.                 FRead 2, INTEGER003, 4
  893.                 FRead 2, STRING009, 75
  894.                 FRead 2, WORD002, 2
  895.                 FRead 2, STRING010, 30
  896.                 FRead 2, BYTE013, 1
  897.                 FSeek 2, 902, 1
  898.                 FRead 2, BYTE002, 1
  899.                 FRead 2, BYTE003, 1
  900.                 FRead 2, BYTE009, 1
  901.                 FRead 2, BYTE010, 1
  902.                 FSeek 2, 16, 1
  903.                 FRead 2, BYTE008, 1
  904.                 FSeek 2, 4, 1
  905.                 FRead 2, WORD003, 2
  906.                 FSeek 2, 4, 1
  907.                 FRead 2, WORD004, 2
  908.                 FRead 2, BYTE004, 1
  909.                 FSeek 2, 1, 1
  910.                 FRead 2, INTEGER007, 4
  911.                 FRead 2, INTEGER008, 4
  912.                 FRead 2, WORD005, 2
  913.                 FSeek 2, 2, 1
  914.                 FRead 2, BYTE014, 1
  915.                 FRead 2, WORD006, 2
  916.             Endif
  917.             Cls
  918.             Select Case (INTEGER001)
  919.                 Case 1
  920.                     PrintLn "@X0FEDSUtil Configuration Settings  @X0A(Screen #1 of 2)"
  921.                     PrintLn "@X0E────────────────────────────────────────────────────"
  922.                     PrintLn 
  923.                     PrintLn "@X0F (@X091@X0F) @X0AModem dialstring.................: @X0B" + Trim(STRING008, " ")
  924.                     PrintLn "@X0F (@X092@X0F) @X0ANumber dialing prefix............: @X0B" + Trim(STRING006, " ")
  925.                     PrintLn "@X0F (@X093@X0F) @X0ANumber dialing suffix............: @X0B" + Trim(STRING007, " ")
  926.                     PrintLn "@X0F (@X094@X0F) @X0AMaximum # of redial attempts.....: @X0B" + String(BYTE001)
  927.                     PrintLn "@X0F (@X095@X0F) @X0AMaximum ticks to wait for connect: @X0B" + String(WORD001)
  928.                     PrintLn "@X0F (@X096@X0F) @X0AAmount of time to adjust.........: @X0B" + String(INTEGER003)
  929.                     PrintLn "@X0F (@X097@X0F) @X0AModem init string before callback: @X0C(See Below)@X0B"
  930.                     PrintLn Space(6) + Trim(STRING009, " ")
  931.                     PrintLn "@X0F (@X098@X0F) @X0AMaximum ticks to wait for hangup.: @X0B" + String(WORD002)
  932.                     PrintLn "@X0F (@X099@X0F) @X0ALong Distance access string......: @X0B" + Trim(STRING010, " ")
  933.                     PrintLn "@X0F(@X0910@X0F) @X0AMinimum # of digits to dial......: @X0B" + String(BYTE004)
  934.                     PrintLn "@X0F(@X0911@X0F) @X0ADefault Exp. Lvl. if no callback.: @X0B" + String(BYTE014)
  935.                     PrintLn "@X0F(@X0912@X0F) @X0ADefault days till expire (no cal): @X0B" + String(WORD006)
  936.                 Case 2
  937.                     PrintLn "@X0FEDSUtil Configuration Settings  @X0A(Screen #2 of 2)"
  938.                     PrintLn "@X0E────────────────────────────────────────────────────"
  939.                     PrintLn 
  940.                     PrintLn "@X0F(@X0913@X0F) @X0ADefault Sec. level if no callback: @X0B" + String(BYTE013)
  941.                     PrintLn "@X0F(@X0914@X0F) @X0AMaximum # name input tries.......: @X0B" + String(BYTE002)
  942.                     PrintLn "@X0F(@X0915@X0F) @X0AMaximum # password input tries...: @X0B" + String(BYTE003)
  943.                     PrintLn "@X0F(@X0916@X0F) @X0AMaximum # verify input tries.....: @X0B" + String(BYTE009)
  944.                     PrintLn "@X0F(@X0917@X0F) @X0AMaximum # city input tries.......: @X0B" + String(BYTE010)
  945.                     PrintLn "@X0F(@X0918@X0F) @X0AMaximum # hangup attempts........: @X0B" + String(BYTE008)
  946.                     PrintLn "@X0F(@X0919@X0F) @X0ATime to delay after connection...: @X0B" + String(WORD003)
  947.                     PrintLn "@X0F(@X0920@X0F) @X0AYour BBS line's areacode.........: @X0B" + Trim(STRING001, " ")
  948.                     PrintLn "@X0F(@X0921@X0F) @X0ANumber of minutes to add on entry: @X0B" + String(WORD004)
  949.                     PrintLn "@X0F(@X0922@X0F) @X0ADaily download bytes to add......: @X0B" + String(INTEGER007)
  950.                     PrintLn "@X0F(@X0923@X0F) @X0ATotal download bytes to add......: @X0B" + String(INTEGER008)
  951.                     PrintLn "@X0F(@X0924@X0F) @X0ATotal files to add...............: @X0B" + String(WORD005)
  952.             End Select
  953.             PrintLn 
  954.             STRING004 = ""
  955.             InputStr "(Q)uit, (H)elp, Rotate (P)age, Configuration settings command", STRING004, 15, 2, "1234567890QHqhPp", 2 + 4
  956.             STRING004 = Upper(Trim(STRING004, " "))
  957.             Newline
  958.             Select Case (STRING004)
  959.                 Case "Q"
  960.                     BOOLEAN005 = 1
  961.                     BOOLEAN006 = 0
  962.                 Case "H"
  963.                     Cls
  964.                     Print "@PON@"
  965.                     DispFile PPEPath() + "EDSCS", 1 + 4
  966.                     Print "@POFF@"
  967.                     BOOLEAN005 = 0
  968.                     BOOLEAN006 = 0
  969.                 Case "P"
  970.                     If (INTEGER001 == 1) Then
  971.                         INTEGER001 = 2
  972.                     Else
  973.                         INTEGER001 = 1
  974.                     Endif
  975.                     BOOLEAN005 = 0
  976.                     BOOLEAN006 = 1
  977.                 Case "1"
  978.                     InputStr "Your modem dialing string", STRING008, 12, 30, Mask_Ascii(), 2 + 4
  979.                     FSeek 2, 76, 0
  980.                     FWrite 2, STRING008, 30
  981.                     BOOLEAN005 = 0
  982.                     BOOLEAN006 = 1
  983.                 Case "2"
  984.                     InputStr "Modem dialing prefix (PBX Line)", STRING006, 12, 30, Mask_Ascii(), 2 + 4
  985.                     FSeek 2, 106, 0
  986.                     FWrite 2, STRING006, 30
  987.                     BOOLEAN005 = 0
  988.                     BOOLEAN006 = 1
  989.                 Case "3"
  990.                     InputStr "Modem dialing suffix (after number)", STRING007, 12, 30, Mask_Ascii(), 2 + 4
  991.                     FSeek 2, 136, 0
  992.                     FWrite 2, STRING007, 30
  993.                     BOOLEAN005 = 0
  994.                     BOOLEAN006 = 1
  995.                 Case "4"
  996.                     InputInt "Maximum # of redial attempts", BYTE001, 12
  997.                     FSeek 2, 166, 0
  998.                     FWrite 2, BYTE001, 1
  999.                     BOOLEAN005 = 0
  1000.                     BOOLEAN006 = 1
  1001.                 Case "5"
  1002.                     PrintLn "@X0B(18.2 Ticks = 1 Second)"
  1003.                     InputInt "Maximum # ticks to wait for connection", WORD001, 12
  1004.                     FSeek 2, 167, 0
  1005.                     FWrite 2, WORD001, 2
  1006.                     BOOLEAN005 = 0
  1007.                     BOOLEAN006 = 1
  1008.                 Case "6"
  1009.                     InputInt "Amount of time to adjust", INTEGER003, 12
  1010.                     FSeek 2, 170, 0
  1011.                     FWrite 2, INTEGER003, 4
  1012.                     BOOLEAN005 = 0
  1013.                     BOOLEAN006 = 1
  1014.                 Case "7"
  1015.                     PrintLn "@X0FModem Initialization String Before Callback @X0B(Enter below)"
  1016.                     InputStr "", STRING009, 12, 75, Mask_Ascii(), 2 + 4 + 8
  1017.                     FSeek 2, 174, 0
  1018.                     FWrite 2, STRING009, 75
  1019.                     BOOLEAN005 = 0
  1020.                     BOOLEAN006 = 1
  1021.                 Case "8"
  1022.                     PrintLn "@X0B(18.2 Ticks = 1 Second)"
  1023.                     InputInt "Maximum # ticks to wait for hangup", WORD002, 12
  1024.                     FSeek 2, 249, 0
  1025.                     FWrite 2, WORD002, 2
  1026.                     BOOLEAN005 = 0
  1027.                     BOOLEAN006 = 1
  1028.                 Case "9"
  1029.                     InputStr "Long distance access string", STRING010, 12, 30, Mask_Ascii(), 2 + 4
  1030.                     FSeek 2, 251, 0
  1031.                     FWrite 2, STRING010, 30
  1032.                     BOOLEAN005 = 0
  1033.                     BOOLEAN006 = 1
  1034.                 Case "10"
  1035.                     InputInt "Minimum amount of digits allowed in dialing string for callback", BYTE004, 12
  1036.                     FSeek 2, 1217, 0
  1037.                     FWrite 2, BYTE004, 1
  1038.                     BOOLEAN005 = 0
  1039.                     BOOLEAN006 = 1
  1040.                 Case "11"
  1041.                     InputInt "Default exp. sec. level if no callback occurs", BYTE014, 12
  1042.                     FSeek 2, 1231, 0
  1043.                     FWrite 2, BYTE014, 1
  1044.                     BOOLEAN005 = 0
  1045.                     BOOLEAN006 = 1
  1046.                 Case "12"
  1047.                     InputInt "Default # days to add to verification date if no callback occurs", WORD006, 12
  1048.                     FSeek 2, 1232, 0
  1049.                     FWrite 2, WORD006, 2
  1050.                     BOOLEAN005 = 0
  1051.                     BOOLEAN006 = 1
  1052.                 Case "13"
  1053.                     InputInt "Default sec. level if no callback occurs", BYTE013, 12
  1054.                     FSeek 2, 281, 0
  1055.                     FWrite 2, BYTE013, 1
  1056.                     BOOLEAN005 = 0
  1057.                     BOOLEAN006 = 1
  1058.                 Case "14"
  1059.                     InputInt "Maximum number of name tries", BYTE002, 12
  1060.                     FSeek 2, 1184, 0
  1061.                     FWrite 2, BYTE002, 1
  1062.                     BOOLEAN005 = 0
  1063.                     BOOLEAN006 = 1
  1064.                 Case "15"
  1065.                     InputInt "Maximum number of password tries", BYTE002, 12
  1066.                     FSeek 2, 1185, 0
  1067.                     FWrite 2, BYTE003, 1
  1068.                     BOOLEAN005 = 0
  1069.                     BOOLEAN006 = 1
  1070.                 Case "16"
  1071.                     InputInt "Maximum number of verification string tries", BYTE002, 12
  1072.                     FSeek 2, 1186, 0
  1073.                     FWrite 2, BYTE009, 1
  1074.                     BOOLEAN005 = 0
  1075.                     BOOLEAN006 = 1
  1076.                 Case "17"
  1077.                     InputInt "Enter maximum number of city tries", BYTE002, 12
  1078.                     FSeek 2, 1187, 0
  1079.                     FWrite 2, BYTE010, 1
  1080.                     BOOLEAN005 = 0
  1081.                     BOOLEAN006 = 1
  1082.                 Case "18"
  1083.                     InputInt "Maximum # of hangup attempts", BYTE008, 12
  1084.                     FSeek 2, 1204, 0
  1085.                     FWrite 2, BYTE008, 1
  1086.                     BOOLEAN005 = 0
  1087.                     BOOLEAN006 = 1
  1088.                 Case "19"
  1089.                     PrintLn "@X0B(18.2 Ticks = 1 Second)"
  1090.                     InputInt "Number of ticks to delay after connection", WORD003, 12
  1091.                     FSeek 2, 1209, 0
  1092.                     FWrite 2, WORD003, 2
  1093.                     BOOLEAN005 = 0
  1094.                     BOOLEAN006 = 1
  1095.                 Case "20"
  1096.                     InputStr "Your BBS Line's areacode", STRING001, 12, 3, Mask_Num(), 2 + 4
  1097.                     FSeek 2, 43, 0
  1098.                     FWrite 2, STRING001, 3
  1099.                     BOOLEAN005 = 0
  1100.                     BOOLEAN006 = 1
  1101.                 Case "21"
  1102.                     InputInt "Number of minutes to add to user's time upon entry of EDSBack", WORD004, 10
  1103.                     FSeek 2, 1215, 0
  1104.                     FWrite 2, WORD004, 2
  1105.                     BOOLEAN005 = 0
  1106.                     BOOLEAN006 = 1
  1107.                 Case "22"
  1108.                     InputInt "Number of bytes to add to user's daily download bytes after verified", INTEGER007, 12
  1109.                     FSeek 2, 1219, 0
  1110.                     FWrite 2, INTEGER007, 4
  1111.                     BOOLEAN005 = 0
  1112.                     BOOLEAN006 = 1
  1113.                 Case "23"
  1114.                     InputInt "Number of bytes to add to user's total download bytes after verified", INTEGER008, 12
  1115.                     FSeek 2, 1223, 0
  1116.                     FWrite 2, INTEGER008, 4
  1117.                     BOOLEAN005 = 0
  1118.                     BOOLEAN006 = 1
  1119.                 Case "24"
  1120.                     InputInt "Number of files to add to user's total download files after verified", WORD005, 12
  1121.                     FSeek 2, 1227, 0
  1122.                     FWrite 2, WORD005, 2
  1123.                     BOOLEAN005 = 0
  1124.                     BOOLEAN006 = 1
  1125.             End Select
  1126.             Goto LABEL019
  1127.             :LABEL020
  1128.         Case "F"
  1129.             INTEGER001 = 1
  1130.             BOOLEAN005 = 0
  1131.             BOOLEAN006 = 1
  1132.             :LABEL021
  1133.             If (BOOLEAN005) Goto LABEL022
  1134.             If (BOOLEAN006) Then
  1135.                 PrintLn 
  1136.                 PrintLn "@X0AReading configuration paths..."
  1137.                 FSeek 2, 284, 0
  1138.                 For INTEGER004 = 0 To 11
  1139.                     FRead 2, TSTRING011(INTEGER004), 75
  1140.                 Next
  1141.             Endif
  1142.             Cls
  1143.             Select Case (INTEGER001)
  1144.                 Case 1
  1145.                     PrintLn "@X0FEDSUtil Configuration Paths  @X0A(Screen #1 of 2)"
  1146.                     PrintLn "@X0E────────────────────────────────────────────────────"
  1147.                     PrintLn "@X0F (@X091@X0F) @X0ATrash can file.............@X0C(See Below):"
  1148.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(0), " ") + "@X0E)"
  1149.                     PrintLn "@X0F (@X092@X0F) @X0AAllowed # calling file.....@X0C(See Below):"
  1150.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(1), " ") + "@X0E)"
  1151.                     PrintLn "@X0F (@X093@X0F) @X0AUser name trash file.......@X0C(See Below):"
  1152.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(2), " ") + "@X0E)"
  1153.                     PrintLn "@X0F (@X094@X0F) @X0ABad numbers file...........@X0C(See Below):"
  1154.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(3), " ") + "@X0E)"
  1155.                     PrintLn "@X0F (@X095@X0F) @X0ASysop message file.........@X0C(See Below):"
  1156.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(4), " ") + "@X0E)"
  1157.                     PrintLn "@X0F (@X096@X0F) @X0AUser message file..........@X0C(See Below):"
  1158.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(5), " ") + "@X0E)"
  1159.                 Case 2
  1160.                     PrintLn "@X0FEDSUtil Configuration Paths  @X0A(Screen #2 of 2)"
  1161.                     PrintLn "@X0E────────────────────────────────────────────────────"
  1162.                     PrintLn "@X0F (@X097@X0F) @X0ANumbers menu file..................@X0C(See Below):"
  1163.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(6), " ") + "@X0E)"
  1164.                     PrintLn "@X0F (@X098@X0F) @X0AHelp file..........................@X0C(See Below):"
  1165.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(7), " ") + "@X0E)"
  1166.                     PrintLn "@X0F (@X099@X0F) @X0ALocking timetable..................@X0C(See Below):"
  1167.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(8), " ") + "@X0E)"
  1168.                     PrintLn "@X0F(@X0910@X0F) @X0ASecurity trash file................@X0C(See Below):"
  1169.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(9), " ") + "@X0E)"
  1170.                     PrintLn "@X0F(@X0911@X0F) @X0AFile to flag for user..............@X0C(See Below):"
  1171.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(10), " ") + "@X0E)"
  1172.                     PrintLn "@X0F(@X0912@X0F) @X0AFile to execute upon verification..@X0C(See Below):"
  1173.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(11), " ") + "@X0E)"
  1174.             End Select
  1175.             PrintLn 
  1176.             STRING004 = ""
  1177.             InputStr "(Q)uit, (H)elp, Rotate (P)age, Configuration file paths command", STRING004, 15, 2, "1234567890QHqhPp", 2 + 4
  1178.             STRING004 = Upper(Strip(STRING004, " "))
  1179.             Newline
  1180.             Select Case (STRING004)
  1181.                 Case "Q"
  1182.                     BOOLEAN005 = 1
  1183.                     BOOLEAN006 = 0
  1184.                 Case "H"
  1185.                     Cls
  1186.                     Print "@PON@"
  1187.                     DispFile PPEPath() + "EDSCP", 1 + 4
  1188.                     Print "@POFF@"
  1189.                     BOOLEAN005 = 0
  1190.                     BOOLEAN006 = 0
  1191.                 Case "P"
  1192.                     If (INTEGER001 == 1) Then
  1193.                         INTEGER001 = 2
  1194.                     Else
  1195.                         INTEGER001 = 1
  1196.                     Endif
  1197.                     BOOLEAN005 = 0
  1198.                     BOOLEAN006 = 0
  1199.                 Case "1"
  1200.                     PrintLn "@X0FAlready used numbers trash can path & filename  @X0B(Enter below)"
  1201.                     InputStr "", TSTRING011(0), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1202.                     FSeek 2, 284, 0
  1203.                     FWrite 2, TSTRING011(0), 75
  1204.                     BOOLEAN005 = 0
  1205.                     BOOLEAN006 = 1
  1206.                 Case "2"
  1207.                     PrintLn "@X0FAllowed numbers to call path & filename  @X0B(Enter Below)"
  1208.                     InputStr "", TSTRING011(1), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1209.                     FSeek 2, 359, 0
  1210.                     FWrite 2, TSTRING011(1), 75
  1211.                     BOOLEAN005 = 0
  1212.                     BOOLEAN006 = 1
  1213.                 Case "3"
  1214.                     PrintLn "@X0FUser names trash can path & filename  @X0B(Enter Below)"
  1215.                     InputStr "", TSTRING011(2), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1216.                     FSeek 2, 434, 0
  1217.                     FWrite 2, TSTRING011(2), 75
  1218.                     BOOLEAN005 = 0
  1219.                     BOOLEAN006 = 1
  1220.                 Case "4"
  1221.                     PrintLn "@X0FBad # templates path & filename  @X0B(Enter Below)"
  1222.                     InputStr "", TSTRING011(3), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1223.                     FSeek 2, 509, 0
  1224.                     FWrite 2, TSTRING011(3), 75
  1225.                     BOOLEAN005 = 0
  1226.                     BOOLEAN006 = 1
  1227.                 Case "5"
  1228.                     PrintLn "@X0FMessage to send to SysOp path & filename  @X0B(Enter Below)"
  1229.                     InputStr "", TSTRING011(4), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1230.                     FSeek 2, 584, 0
  1231.                     FWrite 2, TSTRING011(4), 75
  1232.                     BOOLEAN005 = 0
  1233.                     BOOLEAN006 = 1
  1234.                 Case "6"
  1235.                     PrintLn "@X0FMessage to send to user path & filename  @X0B(Enter Below)"
  1236.                     InputStr "", TSTRING011(5), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1237.                     FSeek 2, 659, 0
  1238.                     FWrite 2, TSTRING011(5), 75
  1239.                     BOOLEAN005 = 0
  1240.                     BOOLEAN006 = 1
  1241.                 Case "7"
  1242.                     PrintLn "@X0FNumber selection menu path & filename  @X0B(Enter Below)"
  1243.                     InputStr "", TSTRING011(6), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1244.                     FSeek 2, 734, 0
  1245.                     FWrite 2, TSTRING011(6), 75
  1246.                     BOOLEAN005 = 0
  1247.                     BOOLEAN006 = 1
  1248.                 Case "8"
  1249.                     PrintLn "@X0FUsers help file path & filename  @X0B(Enter Below)"
  1250.                     InputStr "", TSTRING011(7), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1251.                     FSeek 2, 809, 0
  1252.                     FWrite 2, TSTRING011(7), 75
  1253.                     BOOLEAN005 = 0
  1254.                     BOOLEAN006 = 1
  1255.                 Case "9"
  1256.                     PrintLn "@X0FEDSBack locking timetable path & filename  @X0B(Enter Below)"
  1257.                     InputStr "", TSTRING011(8), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1258.                     FSeek 2, 884, 0
  1259.                     FWrite 2, TSTRING011(8), 75
  1260.                     BOOLEAN005 = 0
  1261.                     BOOLEAN006 = 1
  1262.                 Case "10"
  1263.                     PrintLn "@X0FSecurity level trash can path & filename  @X0B(Enter Below)"
  1264.                     InputStr "", TSTRING011(9), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1265.                     FSeek 2, 959, 0
  1266.                     FWrite 2, TSTRING011(9), 75
  1267.                     BOOLEAN005 = 0
  1268.                     BOOLEAN006 = 1
  1269.                 Case "11"
  1270.                     PrintLn "@X0FPath & filename to flag upon successful verification  @X0B(Enter Below)"
  1271.                     InputStr "", TSTRING011(10), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1272.                     FSeek 2, 1034, 0
  1273.                     FWrite 2, TSTRING011(10), 75
  1274.                     BOOLEAN005 = 0
  1275.                     BOOLEAN006 = 1
  1276.                 Case "12"
  1277.                     PrintLn "@X0FFile to execute upon successful verification  @X0B(Enter Below)"
  1278.                     InputStr "", TSTRING011(11), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1279.                     FSeek 2, 1109, 0
  1280.                     FWrite 2, TSTRING011(11), 75
  1281.                     BOOLEAN005 = 0
  1282.                     BOOLEAN006 = 1
  1283.             End Select
  1284.             Goto LABEL021
  1285.             :LABEL022
  1286.         Case "R"
  1287.             BOOLEAN005 = 0
  1288.             BOOLEAN006 = 1
  1289.             :LABEL023
  1290.             If (BOOLEAN005) Goto LABEL024
  1291.             If (BOOLEAN006) Then
  1292.                 PrintLn 
  1293.                 PrintLn "@X0AReading registration information..."
  1294.                 FSeek 2, 47, 0
  1295.                 FRead 2, STRING005, 25
  1296.                 FRead 2, INTEGER002, 4
  1297.                 FSeek 2, 1114, 1
  1298.                 FRead 2, INTEGER005, 4
  1299.                 FRead 2, INTEGER006, 4
  1300.             Endif
  1301.             Cls
  1302.             PrintLn "@X0FEDSUtil Registration Information  @X0A(Screen #1 of 1)"
  1303.             PrintLn "@X0E────────────────────────────────────────────────────"
  1304.             PrintLn 
  1305.             PrintLn "@X0F (@X091@X0F) @X0ASysOp Name............: @X0B" + STRING005
  1306.             PrintLn "@X0F (@X092@X0F) @X0ARegistration #........: @X0B" + String(INTEGER002)
  1307.             PrintLn "@X0F (@X093@X0F) @X0ADate + Time Registered: @X0B" + String(INTEGER005)
  1308.             PrintLn "@X0F (@X094@X0F) @X0AVersion Registered....: @X0B" + String(INTEGER006)
  1309.             PrintLn 
  1310.             STRING004 = ""
  1311.             InputStr "(Q)uit, (H)elp, Registration information command", STRING004, 15, 1, "1234QHqh", 2 + 4
  1312.             STRING004 = Upper(STRING004)
  1313.             Newline
  1314.             Select Case (STRING004)
  1315.                 Case "Q"
  1316.                     BOOLEAN005 = 1
  1317.                     BOOLEAN006 = 0
  1318.                 Case "H"
  1319.                     Cls
  1320.                     Print "@PON@"
  1321.                     DispFile PPEPath() + "EDSCR", 1 + 4
  1322.                     Print "@POFF@"
  1323.                     BOOLEAN005 = 0
  1324.                     BOOLEAN006 = 0
  1325.                 Case "1"
  1326.                     InputStr "SysOp Name", STRING005, 12, 25, Mask_Ascii(), 2 + 4
  1327.                     FSeek 2, 47, 0
  1328.                     FWrite 2, STRING005, 25
  1329.                     BOOLEAN005 = 0
  1330.                     BOOLEAN006 = 1
  1331.                 Case "2"
  1332.                     InputInt "Registration #", INTEGER002, 12
  1333.                     FSeek 2, 72, 0
  1334.                     FWrite 2, INTEGER002, 4
  1335.                     BOOLEAN005 = 0
  1336.                     BOOLEAN006 = 1
  1337.                 Case "3"
  1338.                     InputInt "Date + Time Registered", INTEGER005, 12
  1339.                     FSeek 2, 1190, 0
  1340.                     FWrite 2, INTEGER005, 4
  1341.                     BOOLEAN005 = 0
  1342.                     BOOLEAN006 = 1
  1343.                 Case "4"
  1344.                     InputInt "Version Registered", INTEGER006, 12
  1345.                     FSeek 2, 1194, 0
  1346.                     FWrite 2, INTEGER006, 4
  1347.                     BOOLEAN005 = 0
  1348.                     BOOLEAN006 = 1
  1349.             End Select
  1350.             Goto LABEL023
  1351.             :LABEL024
  1352.         Case "Q"
  1353.             BOOLEAN001 = 1
  1354.     End Select
  1355.     Goto LABEL002
  1356.     :LABEL025
  1357.     FClose 2
  1358.     Return
  1359.     :LABEL026
  1360.     TSTRING011(0) = PPEPath() + "TRASH.BIN"
  1361.     TSTRING011(1) = PPEPath() + "EDSALLOW.CAL"
  1362.     TSTRING011(2) = PPEPath() + "EDSBKBAD.USR"
  1363.     TSTRING011(3) = PPEPath() + "EDSBAD.NUM"
  1364.     TSTRING011(4) = PPEPath() + "SYSOP.MSG"
  1365.     TSTRING011(5) = PPEPath() + "USER.MSG"
  1366.     TSTRING011(6) = PPEPath() + "EDSNMNU."
  1367.     TSTRING011(7) = PPEPath() + "EDSBHLP."
  1368.     TSTRING011(8) = PPEPath() + "EDSTABLE.LOK"
  1369.     TSTRING011(9) = PPEPath() + "EDSBKBAD.SEC"
  1370.     TSTRING011(10) = ""
  1371.     TSTRING011(11) = ""
  1372.     STRING009 = ""
  1373.     STRING001 = ""
  1374.     STRING005 = ""
  1375.     STRING006 = ""
  1376.     STRING007 = ""
  1377.     STRING008 = "ATDT"
  1378.     STRING010 = "1"
  1379.     TBYTE011(0) = 0
  1380.     TBYTE011(1) = 0
  1381.     BYTE007 = 0
  1382.     BOOLEAN002 = 0
  1383.     BOOLEAN003 = 1
  1384.     WORD002 = 182
  1385.     INTEGER002 = 0
  1386.     INTEGER003 = 0
  1387.     BYTE001 = 3
  1388.     WORD001 = 910
  1389.     BYTE013 = 0
  1390.     BYTE002 = 3
  1391.     BYTE003 = 3
  1392.     BYTE009 = 3
  1393.     BYTE010 = 3
  1394.     BYTE005 = 1
  1395.     BYTE006 = 1
  1396.     TBOOLEAN008(0) = 1
  1397.     TBOOLEAN008(1) = 1
  1398.     TBOOLEAN008(2) = 0
  1399.     TBOOLEAN008(3) = 0
  1400.     TBOOLEAN008(4) = 0
  1401.     BYTE008 = 3
  1402.     TBOOLEAN009(0) = 1
  1403.     TBOOLEAN009(1) = 1
  1404.     TBOOLEAN009(2) = 0
  1405.     TBOOLEAN009(3) = 1
  1406.     WORD003 = 18
  1407.     BYTE012 = 0
  1408.     BOOLEAN007 = 0
  1409.     BOOLEAN010 = 0
  1410.     BOOLEAN011 = 1
  1411.     WORD004 = 4
  1412.     BYTE004 = 10
  1413.     BOOLEAN012 = 1
  1414.     INTEGER007 = 0
  1415.     INTEGER008 = 0
  1416.     WORD005 = 0
  1417.     BOOLEAN013 = 1
  1418.     BOOLEAN014 = 0
  1419.     BYTE014 = 0
  1420.     WORD006 = 0
  1421.     Return
  1422.     :LABEL027
  1423.     End
  1424.  
  1425. ;------------------------------------------------------------------------------
  1426. ;
  1427. ; Usage report (before postprocessing)
  1428. ;
  1429. ; ■ Statements used :
  1430. ;
  1431. ;    1       End
  1432. ;    8       Cls
  1433. ;    399     Goto 
  1434. ;    360     Let 
  1435. ;    31      Print 
  1436. ;    191     PrintLn 
  1437. ;    213     If 
  1438. ;    4       DispFile 
  1439. ;    1       FCreate 
  1440. ;    1       FOpen 
  1441. ;    3       FClose 
  1442. ;    1       Log 
  1443. ;    31      InputStr 
  1444. ;    15      InputYN 
  1445. ;    21      InputInt 
  1446. ;    2       Gosub 
  1447. ;    4       Return
  1448. ;    11      Newline
  1449. ;    84      FSeek 
  1450. ;    45      FRead 
  1451. ;    110     FWrite 
  1452. ;
  1453. ;
  1454. ; ■ Functions used :
  1455. ;
  1456. ;    128     +
  1457. ;    158     ==
  1458. ;    6       <
  1459. ;    6       <=
  1460. ;    12      >=
  1461. ;    213     !
  1462. ;    12      &&
  1463. ;    6       ||
  1464. ;    18      Upper()
  1465. ;    2       Space()
  1466. ;    2       Ferr()
  1467. ;    5       Chr()
  1468. ;    19      Trim()
  1469. ;    15      NoChar()
  1470. ;    30      YesChar()
  1471. ;    4       Strip()
  1472. ;    21      String()
  1473. ;    1       Mask_Num()
  1474. ;    12      Mask_File()
  1475. ;    12      Mask_Path()
  1476. ;    6       Mask_Ascii()
  1477. ;    17      PPEPath()
  1478. ;    1       Exist()
  1479. ;    2       Psa()
  1480. ;
  1481. ;------------------------------------------------------------------------------
  1482. ;
  1483. ; Analysis flags : No flag
  1484. ;
  1485. ;------------------------------------------------------------------------------
  1486. ;
  1487. ; Postprocessing report
  1488. ;
  1489. ;    6       For/Next
  1490. ;    0       While/EndWhile
  1491. ;    80      If/Then or If/Then/Else
  1492. ;    17      Select Case
  1493. ;
  1494. ;------------------------------------------------------------------------------
  1495. ;                 AEGiS Corp - Break the routines, code against the machines!
  1496. ;------------------------------------------------------------------------------
  1497.