home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 31 / CDASC_31_1996_juillet_aout.iso / vrac / jagbye.zip / BYECFG.WCX (.txt) next >
Wildcat! WCX  |  1996-03-17  |  26KB  |  693 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  26078 bytes  01/29/123  11:01:10pm
  3. '! Code Segment Size  :6302 bytes
  4. '! Data Segment Size  :4891 bytes
  5. '! String Segment Size:19776 bytes
  6. '! Compiled with WCC version ? 019C017B
  7.  
  8.       Type Type26
  9.         s0(0 To 14) As String*25
  10.       End Type
  11.  
  12.       Declare Function Func736 As Integer
  13.       Declare Function Func4859 As Integer
  14.       Declare Sub Sub5139(t26_65534 As Type26, i65532 As Integer, i65530 As Integer, i65528 As Integer)
  15.       Declare Sub Sub6257
  16.  
  17.       Dim s4463 As String
  18.       Dim s4467 As String*1
  19.       Dim s4468 As String
  20.       Dim s4472 As String
  21.       Dim s4476 As String
  22.       Dim s4480 As String
  23.       Dim s4484 As String
  24.       Dim s4488 As String
  25.       Dim s4492 As String*1
  26.       Dim s4493 As String
  27.       Dim s4497 As String
  28.       Dim i4501 As Integer
  29.       Dim s4503 As String*1
  30.       Dim s4504 As String*1
  31.       Dim s4505(0 To 14) As String*25
  32.       Dim s4880 As String
  33.       Dim i4884 As Integer
  34.       Dim o4886 As Boolean
  35.       Dim i4887 As Integer
  36.       Dim i4889 As Integer
  37.  
  38.       Dim i65526_ As Integer '! Temporary
  39.       Dim i65528_ As Integer '! Temporary
  40.       Dim l65530_ As Long
  41.       Dim i65534_ As Integer
  42.  
  43.       CarrierCheck(-1)
  44.       i4889 = 3
  45.       s4505(1) = "Configure JAGBYE"
  46.       s4505(2) = "Reconfigure JAGBYE"
  47.       s4505(3) = "Quit"
  48.   174 For i4887 = 1 To i4889 Step 1
  49.         s4505(0) = s4505(0) + Chr(i4887 + 64)
  50.         s4505(i4887) = Chr(i4887 + 64) + ". " + s4505(i4887)
  51.         s4505(i4887) = Left(s4505(i4887) + Space(24), 24)
  52.       Next
  53.   466
  54.       Sub5139(s4505, (6), (28), i4889)
  55.       MorePrompt(0)
  56.       Locate 8, 28
  57.       If o4886 Then
  58.         Print ""
  59.       Else
  60.   546   s4880 = Mid(s4505(i4884), 3, 1213417543)
  61.       End If
  62.   590 s4880 = Trim(s4880)
  63.       If s4880 = "Configure JAGBYE" Then
  64.         Func736
  65.       End If
  66.   625 If s4880 = "Reconfigure JAGBYE" Then
  67.         Func4859
  68.       End If
  69.   649 If s4880 = "Quit" Then
  70.         End 
  71.       End If
  72.   667 Locate 21, 1
  73.       Print
  74.       Print "@0E@Hit any key to exit BYECFG..."
  75.       Sub6257
  76.       End 
  77.  
  78. '! Called 2 times
  79.       Function Func736 As Integer
  80.         s4468 = ProgPath + "JAGBYE.CFG"
  81.         If Exists(s4468) Then
  82.           Func736 = 0
  83.           Do
  84.   778       Locate 15, 1
  85.             Print "@07@@NOPAUSE@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  86.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  87.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  88.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  89.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  90.             Locate 6, 1
  91.             Print "@07@@NOPAUSE@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  92.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@1A@╒════════════════════════════════════════════╕@07@"
  93.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@1A@│     @1F@  A Valid JAGBYE.CFG was found!!!  @1A@    │@08@▒▒@07@"
  94.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@1A@│@1F@ @1D@Would you like to reconfigure JAGBYE.CFG?@1F@  @1A@│@08@▒▒@07@"
  95.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@1A@│@1F@                      @0E@  @1F@                    @1A@│@08@▒▒@07@"
  96.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@1A@╘════════════════════════════════════════════╛@08@▒▒@07@"
  97.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@07@"
  98.             Locate 10, 40
  99.             s4492 = InputMask("@0E@", "X", "", 1213417543)
  100.             If s4492 = "" Then
  101.               Delay 0.3
  102.               Locate 14, 1
  103.               Print "@07@@NOPAUSE@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@4E@╒═════════════════════════════════════════╕@07@▒"
  104.               Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@4E@│@4A@ @4F@  @4A@  @4F@You must either answer @4A@Y@4E@ @4F@or @4A@N@4F@ !!  @4A@ @4E@ │@08@▒▒@07@▒"
  105.               Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@4E@╘═════════════════════════════════════════╛@08@▒▒@07@▒▒▒"
  106.               Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@07@▒▒▒▒@1E@"
  107.               Locate 21, 1
  108.               Delay 0.4
  109.               WaitEnter 
  110.               Delay 0.2
  111.               Locate 22, 1
  112.               Print "                              "
  113.               Locate 14, 1
  114.               Print "@07@@NOPAUSE@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  115.               Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  116.               Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  117.               Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  118.             End If
  119.  1091     Loop Until s4492 > ""
  120.           s4492 = UCase(s4492)
  121.           If s4492 = "Y" Then
  122.             Func4859
  123.           Else
  124.  1157       If s4492 = "N" Then
  125.               Delay 0.17
  126.               Locate 15, 1
  127.               Print "@07@@NOPAUSE@▒▒▒▒▒▒▒▒@6E@╒════════════════════════════════════════════════════════════════╕@07@▒▒"
  128.               Print "@07@▒▒▒▒▒▒▒▒@6E@│    @6F@Please read JAGBYE.DOC before you attempt setup, Thanks!@6E@    │@08@▒▒@07@"
  129.               Print "@07@▒▒▒▒▒▒▒▒@6E@╘════════════════════════════════════════════════════════════════╛@08@▒▒@07@"
  130.               Print "@07@▒▒▒▒▒▒▒▒▒▒@08@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@07@"
  131.               Locate 21, 1
  132.               Delay 0.4
  133.               WaitEnter 
  134.               End 
  135.             Else
  136.  1252         Locate 15, 1
  137.               Print "@07@@NOPAUSE@▒▒▒▒▒▒▒▒@4E@╒════════════════════════════════════════════════════════════════╕@07@▒▒"
  138.               Print "@07@▒▒▒▒▒▒▒▒@4E@│  @4F@You must answer either @4A@Y@4F@ or @4A@N@4F@ , @4B@SETUP TERMINATED@4F@, TRY AGAIN! @4E@ │@08@▒▒@07@"
  139.               Print "@07@▒▒▒▒▒▒▒▒@4E@╘════════════════════════════════════════════════════════════════╛@08@▒▒@07@"
  140.               Print "@07@▒▒▒▒▒▒▒▒▒▒@08@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@07@"
  141.               Locate 21, 1
  142.               Delay 0.2
  143.               WaitEnter 
  144.               End 
  145.             End If
  146.           End If
  147.  1314   Else
  148.  1320     Locate 15, 1
  149.           Print "@07@@NOPAUSE@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  150.           Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  151.           Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  152.           Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  153.           Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  154.           Do
  155.  1372       Locate 4, 1
  156.             Print "@07@@NOPAUSE@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  157.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  158.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  159.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  160.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  161.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  162.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  163.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  164.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  165.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  166.             Locate 6, 1
  167.             Print "@07@@NOPAUSE@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@6F@╒════════════════════════════════════════════╕@07@▒▒"
  168.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@6F@│@6E@   Would you like to continue with Setup?@6F@ @6E@  @6F@│@08@▒▒@07@"
  169.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@6F@│@6E@                      @0E@  @6E@                   @6F@ │@08@▒▒@07@"
  170.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@6F@╘════════════════════════════════════════════╛@08@▒▒@07@"
  171.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@07@"
  172.             Locate 8, 42
  173.             s4467 = InputMask("@0E@", "X", "", 1213417543)
  174.             If s4467 = "" Then
  175.               Delay 0.3
  176.               Locate 14, 1
  177.               Print "@07@@NOPAUSE@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@4E@╒═════════════════════════════════════════╕@07@▒"
  178.               Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@4E@│@4A@ @4F@  @4A@  @4F@You must either answer @4A@Y@4E@ @4F@or @4A@N@4F@ !!  @4A@ @4E@ │@08@▒▒@07@▒"
  179.               Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@4E@╘═════════════════════════════════════════╛@08@▒▒@07@▒▒▒"
  180.               Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@07@▒▒▒▒@1E@"
  181.               Locate 21, 1
  182.               Delay 0.4
  183.               WaitEnter 
  184.               Delay 0.2
  185.               Locate 22, 1
  186.               Print "                              "
  187.               Locate 14, 1
  188.               Print "@07@@NOPAUSE@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  189.               Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  190.               Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  191.               Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  192.             End If
  193.  1712     Loop Until s4467 > ""
  194.           s4467 = UCase(s4467)
  195.           If s4467 = "Y" Then
  196.             Locate 13, 1
  197.             Print "@07@@NOPAUSE@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@5F@╒════════════════════════╕@07@"
  198.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@5F@│@5E@  Well, here we go....  @5F@│@08@▒▒@07@"
  199.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@5F@╘════════════════════════╛@08@▒▒@07@"
  200.             Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@07@"
  201.             Locate 21, 1
  202.             WaitEnter 
  203.           Else
  204.  1824       If s4467 = "N" Then
  205.               Delay 0.17
  206.               Locate 15, 1
  207.               Print "@07@@NOPAUSE@▒▒▒▒▒▒▒▒@6E@╒════════════════════════════════════════════════════════════════╕@07@▒▒"
  208.               Print "@07@▒▒▒▒▒▒▒▒@6E@│    @6F@Please read JAGBYE.DOC before you attempt setup, Thanks!@6E@    │@08@▒▒@07@"
  209.               Print "@07@▒▒▒▒▒▒▒▒@6E@╘════════════════════════════════════════════════════════════════╛@08@▒▒@07@"
  210.               Print "@07@▒▒▒▒▒▒▒▒▒▒@08@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@07@"
  211.               Locate 21, 1
  212.               Delay 0.4
  213.               WaitEnter 
  214.               End 
  215.             Else
  216.  1919         Locate 15, 1
  217.               Print "@07@@NOPAUSE@▒▒▒▒▒▒▒▒@4E@╒════════════════════════════════════════════════════════════════╕@07@▒▒"
  218.               Print "@07@▒▒▒▒▒▒▒▒@4E@│  @4F@You must answer either @4A@Y@4F@ or @4A@N@4F@ , @4B@SETUP TERMINATED@4F@, TRY AGAIN! @4E@ │@08@▒▒@07@"
  219.               Print "@07@▒▒▒▒▒▒▒▒@4E@╘════════════════════════════════════════════════════════════════╛@08@▒▒@07@"
  220.               Print "@07@▒▒▒▒▒▒▒▒▒▒@08@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@07@"
  221.               Locate 21, 1
  222.               Delay 0.2
  223.               WaitEnter 
  224.               End 
  225.             End If
  226.           End If
  227.  1981     Locate 4, 3
  228.           Print "@NOPAUSE@@7F@╒══════════════════════════════════════════════════════════════════════════╕@07@▒@7F@"
  229.           Locate 5, 3
  230.           Print "@7F@│@71@ @6E@ Enter Registration Number (@6F@or 0 if Unregistered@6E@):@78@▄ █@0E@                @78@█ @7F@  @70@│@08@▒@7F@"
  231.           Locate 6, 3
  232.           Print "@7F@│@71@  @78@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@71@                @7F@ @78@  @7F@   @70@│@08@▒@7F@"
  233.           Locate 7, 3
  234.           Print "@7F@│@71@ @5E@  Enter the @5F@FULL@5E@ path to your wcCode @5F@Pager@5E@ (or type -@5F@NONE@5E@-) below:     @78@▄@7F@ @70@│@08@▒@7F@"
  235.           Locate 8, 3
  236.           Print "@7F@│@71@ @7F@ @78@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@7F@ @70@│@08@▒@7F@"
  237.           Locate 9, 3
  238.           Print "@7F@│@71@  @7F@                    @78@█@0E@                               @08@█@7F@   @71@          @7F@ @71@ @78@  @7F@  @70@│@08@▒@7F@"
  239.           Locate 10, 3
  240.           Print "@7F@│                                                                          @70@│@08@▒@7F@"
  241.           Locate 11, 3
  242.           Print "@7F@│@71@ @1E@  Enter the @1F@FULL@1E@ path to your wcCode @1F@Comment Utility@1E@ (or type -@1F@NONE@1E@-): @78@▄@7F@ @70@│@08@▒@7F@"
  243.           Locate 12, 3
  244.           Print "@7F@│@71@ @7F@ @78@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@7F@ @70@│@08@▒@7F@"
  245.           Locate 13, 3
  246.           Print "@7F@│@71@  @7F@                    @78@█@0E@                               @08@█@7F@   @71@          @7F@ @71@ @78@  @7F@  @70@│@08@▒@7F@"
  247.           Locate 14, 3
  248.           Print "@7F@│                                                                          @70@│@08@▒@7F@"
  249.           Locate 15, 3
  250.           Print "@7F@│@71@ @4E@  Enter the @4F@FULL@4E@ path to your wcCode @4F@Time Bank@4E@ (or type -@4F@NONE@4E@-) below: @78@▄@7F@ @70@│@08@▒@7F@"
  251.           Locate 16, 3
  252.           Print "@7F@│@71@ @7F@ @78@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@7F@ @70@│@08@▒@7F@"
  253.           Locate 17, 3
  254.           Print "@7F@│@71@  @7F@                    @78@█@0E@                               @08@█@7F@   @71@          @7F@ @71@ @78@  @7F@  @70@│@08@▒@7F@"
  255.           Locate 18, 3
  256.           Print "@7F@│                                                                          @70@│@08@▒@7F@"
  257.           Locate 19, 3
  258.           Print "@7F@│ @2F@  Enter @2E@Conference #@2F@ for private Sysop messages & comments: @78@▄@7F@ @78@█@0E@     @08@█@7F@    @70@│@08@▒@7F@"
  259.           Locate 20, 3
  260.           Print "@7F@╘@70@══@78@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@70@════════════╛@08@▒@07@"
  261.           Locate 22, 1
  262.           Print "                              "
  263.           Do
  264.  2269       Locate 5, 58
  265.             s4463 = InputMask("@0E@", "99999999999999", "", 1213417543)
  266.             If s4463 = "" Then
  267.               Locate 19, 14
  268.               Print "@NOPAUSE@@4E@  You MUST enter Registration # or 0 if Unregistered!!  @70@"
  269.               Locate 20, 14
  270.               Print "@70@═@08@════════════════════════════════════════════════════════@0E@"
  271.               Locate 21, 1
  272.               Delay 0.4
  273.               WaitEnter 
  274.               Delay 0.2
  275.               Locate 22, 1
  276.               Print "                              "
  277.               Locate 19, 3
  278.               Print "@7F@│ @2F@  Enter @2E@Conference #@2F@ for private Sysop messages & comments: @78@▄@7F@ @78@█@0E@     @08@█@7F@    @70@│@08@▒@7F@"
  279.               Locate 20, 3
  280.               Print "@7F@╘@70@══@78@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@70@════════════╛@08@▒@07@"
  281.             End If
  282.  2426     Loop Until s4463 > ""
  283.           s4463 = Trim(s4463)
  284.           Open ProgPath + "JAGBYE.KEY" For Append As 1
  285.           Print #1, s4463
  286.           Close 1
  287.           Do
  288.  2493       Locate 9, 27
  289.             s4476 = InputMask("@0E@", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  290.             If s4476 = "" Then
  291.               Locate 19, 14
  292.               Print "@NOPAUSE@@4E@  You MUST enter FULL PATH to wcCode Pager (or -NONE-)!  @70@"
  293.               Locate 20, 14
  294.               Print "@70@═@08@═════════════════════════════════════════════════════════@0E@"
  295.               Locate 21, 1
  296.               Delay 0.4
  297.               WaitEnter 
  298.               Delay 0.2
  299.               Locate 22, 1
  300.               Print "                              "
  301.               Locate 19, 3
  302.               Print "@7F@│ @2F@  Enter @2E@Conference #@2F@ for private Sysop messages & comments: @78@▄@7F@ @78@█@0E@     @08@█@7F@    @70@│@08@▒@7F@"
  303.               Locate 20, 3
  304.               Print "@7F@╘@70@══@78@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@70@════════════╛@08@▒@07@"
  305.             End If
  306.  2650     Loop Until s4476 > ""
  307.           s4476 = Trim(UCase(s4476))
  308.           Open ProgPath + "JAGBYE.CFG" For Append As 1
  309.           Print #1, s4476
  310.           Close 1
  311.           Do
  312.  2720       Locate 13, 27
  313.             s4480 = InputMask("@0E@", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  314.             If s4480 = "" Then
  315.               Locate 19, 13
  316.               Print "@NOPAUSE@@4E@  You MUST enter FULL PATH to Comment Utility (or -NONE-)!  @70@"
  317.               Locate 20, 13
  318.               Print "@70@═@08@════════════════════════════════════════════════════════════@0E@"
  319.               Locate 21, 1
  320.               Delay 0.4
  321.               WaitEnter 
  322.               Delay 0.2
  323.               Locate 22, 1
  324.               Print "                              "
  325.               Locate 19, 3
  326.               Print "@7F@│ @2F@  Enter @2E@Conference #@2F@ for private Sysop messages & comments: @78@▄@7F@ @78@█@0E@     @08@█@7F@    @70@│@08@▒@7F@"
  327.               Locate 20, 3
  328.               Print "@7F@╘@70@══@78@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@70@════════════╛@08@▒@07@"
  329.             End If
  330.  2877     Loop Until s4480 > ""
  331.           s4480 = Trim(UCase(s4480))
  332.           Open ProgPath + "JAGBYE.CFG" For Append As 1
  333.           Print #1, s4480
  334.           Close 1
  335.           Do
  336.  2947       Locate 17, 27
  337.             s4484 = InputMask("@0E@", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  338.             If s4484 = "" Then
  339.               Locate 19, 13
  340.               Print "@NOPAUSE@@4E@  You MUST enter FULL PATH to wcCode Time Bank (or -NONE-)!  @70@"
  341.               Locate 20, 13
  342.               Print "@70@═@08@═════════════════════════════════════════════════════════════@0E@"
  343.               Locate 21, 1
  344.               Delay 0.4
  345.               WaitEnter 
  346.               Delay 0.2
  347.               Locate 22, 1
  348.               Print "                              "
  349.               Locate 19, 3
  350.               Print "@7F@│ @2F@  Enter @2E@Conference #@2F@ for private Sysop messages & comments: @78@▄@7F@ @78@█@0E@     @08@█@7F@    @70@│@08@▒@7F@"
  351.               Locate 20, 3
  352.               Print "@7F@╘@70@══@78@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@70@════════════╛@08@▒@07@"
  353.             End If
  354.  3104     Loop Until s4484 > ""
  355.           s4484 = Trim(UCase(s4484))
  356.           Open ProgPath + "JAGBYE.CFG" For Append As 1
  357.           Print #1, s4484
  358.           Close 1
  359.           Do
  360.  3174       Locate 19, 68
  361.             s4488 = InputMask("@0E@", "999", "", 1213417543)
  362.             If s4488 = "" Then
  363.               Locate 19, 16
  364.               Print "@NOPAUSE@@4E@  You MUST enter Conference # for Sysop messages!!  @70@"
  365.               Locate 20, 16
  366.               Print "@70@═@08@════════════════════════════════════════════════════@0E@"
  367.               Locate 21, 1
  368.               Delay 0.4
  369.               WaitEnter 
  370.               Delay 0.2
  371.               Locate 22, 1
  372.               Print "                              "
  373.               Locate 19, 3
  374.               Print "@7F@│ @2F@  Enter @2E@Conference #@2F@ for private Sysop messages & comments: @78@▄@7F@ @78@█@0E@     @08@█@7F@    @70@│@08@▒@7F@"
  375.               Locate 20, 3
  376.               Print "@7F@╘@70@══@78@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@70@════════════╛@08@▒@07@"
  377.             End If
  378.  3331     Loop Until s4488 > ""
  379.           s4488 = Trim(s4488)
  380.           Open ProgPath + "JAGBYE.CFG" For Append As 1
  381.           Print #1, s4488
  382.           Close 1
  383.           Locate 4, 3
  384.           Print "@NOPAUSE@@7F@╒══════════════════════════════════════════════════════════════════════════╕@07@▒@7F@"
  385.           Locate 5, 3
  386.           Print "@7F@│@71@ @7F@                                                                         @70@│@08@▒@7F@"
  387.           Locate 6, 3
  388.           Print "@7F@│@71@ @7F@                                                                         @70@│@08@▒@7F@"
  389.           Locate 7, 3
  390.           Print "@7F@│@71@ @7F@                                                                         @70@│@08@▒@7F@"
  391.           Locate 8, 3
  392.           Print "@7F@│@71@ @7F@  @1E@ Enter the @1F@NAME@1E@ of your BBS: @78@▄@7F@  @08@█@0E@                           @08@█@7F@          @70@│@08@▒@7F@"
  393.           Locate 9, 3
  394.           Print "@7F@│@71@ @7F@   @78@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@7F@                                         @70@│@08@▒@7F@"
  395.           Locate 10, 3
  396.           Print "@7F@│                                                                          @70@│@08@▒@7F@"
  397.           Locate 11, 3
  398.           Print "@7F@│                                                                    @70@      │@08@▒@7F@"
  399.           Locate 12, 3
  400.           Print "@7F@│                                                                    @70@      │@08@▒@7F@"
  401.           Locate 13, 3
  402.           Print "@7F@│                                                                    @70@      │@08@▒@7F@"
  403.           Locate 14, 3
  404.           Print "@7F@│                                                                    @70@      │@08@▒@7F@"
  405.           Locate 15, 3
  406.           Print "@7F@│                                                                    @70@      │@08@▒@7F@"
  407.           Locate 16, 3
  408.           Print "@7F@│                                                                    @70@      │@08@▒@7F@"
  409.           Locate 17, 3
  410.           Print "@7F@│                                                                    @70@      │@08@▒@7F@"
  411.           Locate 18, 3
  412.           Print "@7F@│                                                                    @70@      │@08@▒@7F@"
  413.           Locate 19, 3
  414.           Print "@7F@│                                                                    @70@      │@08@▒@7F@"
  415.           Locate 20, 3
  416.           Print "@7F@╘@70@══════════════════════════════════════════════════════════════════════════╛@08@▒@7F@"
  417.           Do
  418.  3670       Locate 8, 40
  419.             s4493 = InputMask("@0E@", "XXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  420.             If s4493 = "" Then
  421.               Locate 19, 22
  422.               Print "@NOPAUSE@@4E@  You MUST enter the NAME of your BBS!  @70@"
  423.               Locate 20, 22
  424.               Print "@70@═@08@════════════════════════════════════════@0E@"
  425.               Locate 21, 1
  426.               Delay 0.4
  427.               WaitEnter 
  428.               Delay 0.2
  429.               Locate 22, 1
  430.               Print "                              "
  431.               Locate 19, 3
  432.               Print "@7F@│                                                                    @70@      │@08@▒@7F@"
  433.               Locate 20, 3
  434.               Print "@7F@╘@70@══════════════════════════════════════════════════════════════════════════╛@08@▒@7F@"
  435.             End If
  436.  3827     Loop Until s4493 > ""
  437.           s4493 = Trim(s4493)
  438.           Open ProgPath + "JAGBYE.CFG" For Append As 1
  439.           Print #1, s4493
  440.           Close 1
  441.           Locate 6, 3
  442.           Print "@NOPAUSE@@7F@│@71@ @7F@                     @06@░▒▓@6E@                         @06@▓▒░@78@▄@7F@"
  443.           Locate 7, 3
  444.           Print "│@71@ @7F@                      @78@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@7F@"
  445.           Locate 10, 3
  446.           Print "@NOPAUSE@@7F@│@1F@╒════════════════════════════════════════════════════════════════════════╕@70@│@7F@"
  447.           Locate 11, 3
  448.           Print "@7F@│@1F@│@1E@  The top of the @1F@JAGBYE@1E@ screen shows this display.  We will center your@18@ │@08@│@7F@"
  449.           Locate 12, 3
  450.           Print "@7F@│@1F@│@1E@  @1F@BBS NAME@1E@ here!  If you have a short@1D@ @1E@name choose around @1F@35@1E@ or a long  @18@ │@08@│@7F@"
  451.           Locate 13, 3
  452.           Print "@7F@│@1F@│@1E@  name choose @1F@30@1E@.  If your BBS Name is too long it will look @1F@sloppy@1E@!    @18@│@08@│@7F@"
  453.           Locate 14, 3
  454.           Print "@7F@│@1F@│@1E@              @1D@(Note: VALID Starting Column Numbers are 29-40)     @1E@    @18@ @1D@ @18@│@08@│@7F@"
  455.           Locate 15, 3
  456.           Print "@7F@│@1F@│@1E@             Enter the Starting Column number for your BBS Name:      @18@ @1D@ @18@│@08@│@7F@"
  457.           Locate 16, 3
  458.           Print "@7F@│@1F@│@1E@                                   @09@█@0E@ @09@ @0E@ @09@ █@1E@                             @18@ @1D@ @18@│@08@│@7F@"
  459.           Locate 17, 3
  460.           Print "@7F@│@1F@│@1E@                                                                      @18@ @1D@ @18@│@08@│@7F@"
  461.           Locate 18, 3
  462.           Print "@7F@│@1F@│@1E@                                                                      @18@ @1D@ @18@│@08@│@7F@"
  463.           Locate 19, 3
  464.           Print "@7F@│@1F@╘@18@════════════════════════════════════════════════════════════════════════╛@08@│@7F@"
  465.           Locate 20, 3
  466.           Print "@7F@╘@70@═@08@═════════════════════════════════════════════════════════════════════════╛@0E@"
  467.           Do
  468.             Do
  469.  4102         Locate 16, 41
  470.               s4497 = InputMask("@0E@", "99", "", 1213417543)
  471.               s4497 = Trim(s4497)
  472.               i4501 = Abs(Val(s4497))
  473.             Loop Until i4501 > 28 And i4501 < 41
  474.             Locate 6, 3
  475.             Print "@NOPAUSE@@7F@│@71@ @7F@                     @06@░▒▓@6E@                         @06@▓▒░@78@▄@7F@"
  476.             Locate 6, i4501
  477.             Print "@6E@"; s4493
  478.             Locate 17, 21
  479.             Print "@NOPAUSE@@1E@Do you like the way your BBS Name looks @1F@(Y/n)@1E@:"
  480.             Locate 18, 40
  481.             Print "@09@█@0E@  @09@ █@1E@"
  482.             Locate 18, 41
  483.             s4503 = InputMask("@0E@", "Y", "", 1213417543)
  484.             s4503 = UCase(s4503)
  485.           Loop Until s4503 = "Y"
  486.           Open ProgPath + "JAGBYE.CFG" For Append As 1
  487.           Print #1, i4501
  488.           Close 1
  489.           Locate 8, 3
  490.           Print "@NOPAUSE@@7F@│@71@ @7F@                                                                         @70@│@08@▒@7F@"
  491.           Locate 9, 3
  492.           Print "@7F@│@71@ @7F@                                                                         @70@│@08@▒@7F@"
  493.           Locate 10, 3
  494.           Print "@7F@│     @5F@╓───────────────────────────────────────────────────────────────╖@78@▄@7F@   @70@│@08@▒@7F@"
  495.           Locate 11, 3
  496.           Print "@7F@│     @5F@║@5E@  @5F@JAGBYE@5E@ gives you the @5F@OPTION@5E@ of checking for marked files for @50@║@08@█@70@   │@08@▒@7F@"
  497.           Locate 12, 3
  498.           Print "@7F@│     @5F@║@5E@  download and allowing the user to download them or logging   @50@║@08@█@70@   │@08@▒@7F@"
  499.           Locate 13, 3
  500.           Print "@7F@│     @5F@║@5E@  off your users fast by going directly to the Goodbye Menu no @50@║@08@█@70@   │@08@▒@7F@"
  501.           Locate 14, 3
  502.           Print "@7F@│     @5F@║@5E@  matter if they have marked files or not!                     @50@║@08@█@70@   │@08@▒@7F@"
  503.           Locate 15, 3
  504.           Print "@7F@│     @5F@║@5E@                                                               @50@║@08@█@70@   │@08@▒@7F@"
  505.           Locate 16, 3
  506.           Print "@7F@│     @5F@║@5E@  @5F@Do you want JAGBYE to check for marked files?@5E@  @08@█   █@5E@         @50@║@08@█@70@   │@08@▒@7F@"
  507.           Locate 17, 3
  508.           Print "@7F@│     @5F@╙@50@───────────────────────────────────────────────────────────────╜@08@█@70@   │@08@▒@7F@"
  509.           Locate 18, 3
  510.           Print "@7F@│      @78@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@70@   │@08@▒@7F@"
  511.           Locate 19, 3
  512.           Print "@7F@│                                                                    @70@      │@08@▒@7F@"
  513.           Locate 20, 3
  514.           Print "@7F@╘@70@══════════════════════════════════════════════════════════════════════════╛@08@▒@0E@"
  515.           Do
  516.  4579       Locate 16, 60
  517.             s4504 = InputMask("@0E@", "Y", "", 1213417543)
  518.             If s4504 = "" Then
  519.               Locate 19, 22
  520.               Print "@NOPAUSE@@4E@  You MUST answer either Y or N!  @70@"
  521.               Locate 20, 22
  522.               Print "@70@═@08@════════════════════════════════════@0E@"
  523.               Locate 21, 1
  524.               Delay 0.4
  525.               WaitEnter 
  526.               Delay 0.2
  527.               Locate 22, 1
  528.               Print "                              "
  529.               Locate 19, 3
  530.               Print "@7F@│                                                                    @70@      │@08@▒@7F@"
  531.               Locate 20, 3
  532.               Print "@7F@╘@70@══════════════════════════════════════════════════════════════════════════╛@08@▒@7F@"
  533.             End If
  534.  4740     Loop Until s4504 > ""
  535.           s4504 = Trim(UCase(s4504))
  536.           Open ProgPath + "JAGBYE.CFG" For Append As 1
  537.           Print #1, s4504
  538.           Close 1
  539.           Delay 0.99
  540.           Locate 21, 1
  541.           Print "@01@░░░░░░░░░▒▒▒▒▒▒▒▓▓▓▓▓▓▓████@07@@1E@  CONFIGURATION COMPLETE!!@01@████▓▓▓▓▓▓▓▒▒▒▒▒▒▒░░░░░░░░@07@"
  542.           Print "       "
  543.         End If
  544.  4851
  545.       End Function
  546.  
  547. '! Called 2 times
  548.       Function Func4859 As Integer
  549.         s4468 = ProgPath + "JAGBYE.CFG"
  550.         s4472 = ProgPath + "JAGBYE.KEY"
  551.         If Exists(s4468) Then
  552.           Del s4468
  553.           Locate 15, 1
  554.           Print "@07@@NOPAUSE@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  555.           Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  556.           Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  557.           Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  558.           Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  559.         Else
  560.  4974     Locate 15, 1
  561.           Print "@07@@NOPAUSE@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  562.           Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  563.           Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  564.           Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  565.           Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  566.           Locate 16, 1
  567.           Print "@NOPAUSE@@07@▒▒▒▒▒▒▒▒@4F@╒═══════════════════════════════════════════════════════════╕@07@▒▒▒▒▒"
  568.           Print "@07@▒▒▒▒▒▒▒▒@4F@│ @4E@         You haven't created JAGBYE.CFG yet!!            @4F@ │@08@▒▒@07@"
  569.           Print "@07@▒▒▒▒▒▒▒▒@4F@╘═══════════════════════════════════════════════════════════╛@08@▒▒@07@▒▒▒▒"
  570.           Print "@07@▒▒▒▒▒▒▒▒▒▒@08@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@07@▒▒▒▒"
  571.           Locate 22, 1
  572.           Print "                              "
  573.           Delay 0.2
  574.           Locate 21, 1
  575.           WaitEnter 
  576.           End 
  577.         End If
  578.  5104   If Exists(s4472) Then
  579.           Del s4472
  580.         End If
  581.  5124   Func736
  582.       End Function
  583.  
  584. '! Called 1 time
  585.       Sub Sub5139(t26_65534 As Type26, i65532 As Integer, i65530 As Integer, i65528 As Integer)
  586.         Dim l65512 As Long
  587.         Dim i65516 As Integer
  588.         Dim i65518 As Integer
  589.         Dim i65520 As Integer
  590.         Dim i65522 As Integer
  591.         Dim s65524 As String
  592.  
  593.         Cls 
  594.         Print "@NOPAUSE@@1E@@1F@╒═════════════════════════════════════════════════════════════════════════════╕"
  595.         Print "@1F@│@1E@                          JAGBYE Configuration Utility                       @18@│"
  596.         Print "@1F@╘@18@═════════════════════════════════════════════════════════════════════════════╛@07@"
  597.         Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  598.         Print "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  599.         Print "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  600.         Print "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  601.         Print "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  602.         Print "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  603.         Print "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  604.         Print "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  605.         Print "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  606.         Print "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  607.         Print "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  608.         Print "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  609.         Print "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  610.         Print "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  611.         Print "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  612.         Print "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  613.         Print "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@1E@"
  614.         Print "@1E@                     (c) 1996 Chris Jagger Creative Services                   @07@"
  615.         Locate 6, 24
  616.         Print "@1A@╒══════════════════════════════╕@07@"
  617.         Locate 7, 24
  618.         Print "@1A@│                              │@08@▒▒@07@"
  619.         Locate 8, 24
  620.         Print "@1A@│                              │@08@▒▒@07@"
  621.         Locate 9, 24
  622.         Print "@1A@│                              │@08@▒▒@07@"
  623.         Locate 10, 24
  624.         Print "@1A@╘══════════════════════════════╛@08@▒▒@07@"
  625.         Locate 11, 26
  626.         Print "@08@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@07@"
  627.         Locate 15, 1
  628.         Print "@07@@NOPAUSE@▒▒▒▒▒▒▒▒▒▒▒▒▒▒@1E@╒═════════════════════════════════════════════════╕@07@▒▒▒▒▒▒▒▒▒"
  629.         Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒@1E@│  @1F@  Please use the TAB key to make your choice @1E@  │@08@▒▒@07@▒▒▒▒▒▒▒"
  630.         Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒@1E@│  @1F@           or press ESC to exit...           @1E@  │@08@▒▒@07@▒▒▒▒▒▒▒"
  631.         Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒@1E@╘═════════════════════════════════════════════════╛@08@▒▒@07@▒▒▒▒▒▒▒"
  632.         Print "@07@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@07@▒▒▒▒▒▒▒"
  633.         o4886 = 0
  634.         i4884 = 1
  635.  5527   For i4887 = 1 To i65528 Step 1
  636.           Locate i65532 + i4887, i65530
  637.           Color 14, 1
  638.           Print Left(t26_65534(i4887).s0 + "@1A@   │@08@▒▒@07@", 1);
  639.           Color 15, 1
  640.           Print Mid(t26_65534(i4887).s0 + "@1A@   │@08@▒▒@07@", 2, 1213417543);
  641.         Next
  642.         Do
  643.  5739     Color 15, 2
  644.           i65518 = i65532 + i4884
  645.           Locate i65518, i65530
  646.           Print t26_65534(i4884).s0 + "@1A@   │@08@▒▒@07@";
  647.           Do
  648.  5823       s65524 = InKey(1213417543)
  649.           Loop While s65524 = ""
  650.           i65522 = i4884
  651.           If Len(s65524) < 2 Then
  652.             If s65524 = Chr(9) Then
  653.               i4884 = i4884 + 1
  654.             End If
  655.  5910       If s65524 = Chr(13) Then
  656.               GoTo 6244
  657.             End If
  658.  5933       If s65524 = Chr(27) Then
  659.               o4886 = -1
  660.               GoTo 6244
  661.             End If
  662.  5964       s65524 = UCase(s65524)
  663.             i65520 = InStr(t26_65534(0).s0, s65524)
  664.             If i65520 > 0 Then
  665.               i4884 = i65520
  666.             End If
  667.           End If
  668.  6039     If i4884 > i65528 Then
  669.             i4884 = 1
  670.           End If
  671.  6066     If i4884 < 1 Then
  672.             i4884 = i65528
  673.           End If
  674.  6093     If i4884 <> i65522 Then
  675.             Locate i65532 + i65522, i65530
  676.             Color 14, 1
  677.             Print Left(t26_65534(i65522).s0, 1);
  678.             Color 15, 1
  679.             Print Mid(t26_65534(i65522).s0, 2, 1213417543);
  680.           End If
  681.  6236   Loop While 1
  682.  6244   Color 7, 0
  683.       End Sub
  684.  
  685. '! Called 1 time
  686.       Sub Sub6257
  687.         Dim s65535 As String*1
  688.  
  689.         Do
  690.  6266     s65535 = InKey(1213417543)
  691.         Loop Until s65535 <> ""
  692.       End Sub
  693.