ftp.wwiv.com/ftp.wwiv.com.zip/ftp.wwiv.com/pub/BBS/CHGM0195.ZIP/CHGSETUP.WCX

Wildcat! WCX | 1994-12-06 | 34KB | 1,487 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  34153 bytes  12/30/122  04:16:32pm
'! Code Segment Size  :20807 bytes
'! Data Segment Size  :6436 bytes
'! String Segment Size:13346 bytes
'! Compiled with WCC version 4.01

      Type Type28
        Filler0(1 To 6) As Byte
        s6 As String*70
        Filler76(1 To 14) As Byte
        s90 As String*70
        Filler160(1 To 14) As Byte
        s174 As String*70
        Filler244(1 To 20) As Byte
        w264 As Word
      End Type

      Type Type27
        s0 As String*1
        s1 As String*7
        s8 As String*8
        s16 As String*5
        s21 As String*10
        s31 As String*25
      End Type

      Type Type26
        Filler0(1 To 1) As Byte
        s1 As String*10
      End Type

      Dim t4463 As Time
      Dim d4467 As Date
      Dim s4473 As String*1
      Dim l4474 As Long
      Dim i4478 As Integer
      Dim i4480 As Integer
      Dim i4482 As Integer
      Dim b4484 As Byte
      Dim l4485 As Long
      Dim l4489 As Long
      Dim i4493 As Integer
      Dim s4495 As String*1
      Dim s4496 As String*1
      Dim s4497 As String
      Dim s4501 As String
      Dim s4505 As String
      Dim s4509 As String
      Dim s4513 As String
      Dim s4517 As String
      Dim s4521 As String*1
      Dim s4522 As String*4
      Dim s4526 As String*4
      Dim s4530 As String
      Dim s4534 As String*1
      Dim s4535 As String
      Dim s4539 As String
      Dim s4543 As String
      Dim s4547 As String
      Dim s4551 As String
      Dim s4555 As String
      Dim s4559 As String*1
      Dim s4560 As String*1
      Dim b4561 As Byte
      Dim b4562 As Byte
      Dim b4563 As Byte
      Dim b4564 As Byte
      Dim b4565 As Byte
      Dim b4566 As Byte
      Dim s4569 As String
      Dim s4573 As String
      Dim l4577 As Long
      Dim s4581 As String
      Dim i4585 As Integer
      Dim b4587 As Byte
      Dim s4588 As String*9
      Dim s4597 As String*9
      Dim i4606 As Integer
      Dim i4608 As Integer
      Dim s4610 As String
      Dim i4614 As Integer
      Dim s4616 As String*1
      Dim s4617 As String
      Dim s4621 As String*4
      Dim s4625 As String*4
      Dim s4629(0 To 10) As String
      Dim s4673(0 To 10) As String
      Dim r4717(0 To 10) As Real
      Dim i4783(0 To 10) As Integer
      Dim r4805(0 To 10) As Real
      Dim s4871(0 To 10) As String
      Dim s4915(0 To 10) As String
      Dim s4959(0 To 10) As String
      Dim s5003(0 To 10) As String*1
      Dim s5014(0 To 10) As String
      Dim s5058(0 To 10) As String
      Dim s5102(0 To 10) As String
      Dim s5146(0 To 10) As String
      Dim s5190(0 To 10) As String
      Dim s5234(0 To 10) As String
      Dim s5278(0 To 10) As String
      Dim s5322 As String
      Dim s5326 As String
      Dim b5330 As Byte
      Dim s5331 As String
      Dim s5335 As String
      Dim s5339(0 To 39) As String
      Dim t26_5499 As Type26
      Dim s5786(0 To 25) As String*10
      Dim i6046 As Integer
      Dim s6048 As String*1
      Dim i6049 As Integer
      Dim i6051 As Integer
      Dim i6053 As Integer
      Dim s6055 As String*1
      Dim s6056 As String
      Dim t27_6060 As Type27
      Dim mh6116 As MessageHeader

      Dim l65232_ As Long
      Dim b65236_ As Byte
      Dim l65237_ As Long
      Dim b65241_ As Byte
      Dim l65242_ As Long
      Dim b65246_ As Byte
      Dim l65247_ As Long
      Dim b65251_ As Byte
      Dim l65252_ As Long
      Dim b65256_ As Byte
      Dim l65257_ As Long
      Dim b65261_ As Byte
      Dim l65262_ As Long
      Dim i65266_ As Integer
      Dim l65268_ As Long
      Dim i65272_ As Integer
      Dim l65274_ As Long
      Dim i65278_ As Integer
      Dim l65280_ As Long
      Dim i65284_ As Integer
      Dim l65286_ As Long
      Dim i65290_ As Integer
      Dim l65292_ As Long
      Dim i65296_ As Integer
      Dim l65298_ As Long
      Dim i65302_ As Integer
      Dim l65304_ As Long
      Dim i65308_ As Integer
      Dim l65310_ As Long
      Dim i65314_ As Integer
      Dim l65316_ As Long
      Dim i65320_ As Integer
      Dim l65322_ As Long
      Dim i65326_ As Integer
      Dim l65328_ As Long
      Dim i65332_ As Integer
      Dim l65334_ As Long
      Dim i65338_ As Integer
      Dim l65340_ As Long
      Dim i65344_ As Integer
      Dim l65346_ As Long
      Dim i65350_ As Integer
      Dim l65352_ As Long
      Dim i65356_ As Integer
      Dim l65358_ As Long
      Dim i65362_ As Integer
      Dim l65364_ As Long
      Dim i65368_ As Integer
      Dim l65370_ As Long
      Dim i65374_ As Integer
      Dim l65376_ As Long
      Dim i65380_ As Integer
      Dim l65382_ As Long
      Dim i65386_ As Integer
      Dim l65388_ As Long
      Dim i65392_ As Integer
      Dim l65394_ As Long
      Dim i65398_ As Integer
      Dim l65400_ As Long
      Dim i65404_ As Integer
      Dim l65406_ As Long
      Dim i65410_ As Integer
      Dim l65412_ As Long
      Dim i65416_ As Integer
      Dim l65418_ As Long
      Dim i65422_ As Integer
      Dim l65424_ As Long
      Dim i65428_ As Integer
      Dim l65430_ As Long
      Dim i65434_ As Integer
      Dim l65436_ As Long
      Dim i65440_ As Integer
      Dim l65442_ As Long
      Dim i65446_ As Integer
      Dim l65448_ As Long
      Dim i65452_ As Integer
      Dim l65454_ As Long
      Dim i65458_ As Integer
      Dim l65460_ As Long
      Dim i65464_ As Integer
      Dim l65466_ As Long
      Dim i65470_ As Integer
      Dim l65472_ As Long
      Dim i65476_ As Integer
      Dim l65478_ As Long
      Dim i65482_ As Integer
      Dim l65484_ As Long
      Dim i65488_ As Integer
      Dim l65490_ As Long
      Dim i65494_ As Integer
      Dim l65496_ As Long
      Dim i65500_ As Integer
      Dim l65502_ As Long
      Dim i65506_ As Integer
      Dim l65508_ As Long
      Dim i65512_ As Integer
      Dim l65514_ As Long
      Dim i65518_ As Integer
      Dim l65520_ As Long
      Dim i65524_ As Integer
      Dim l65526_ As Long
      Dim i65530_ As Integer
      Dim s65532_ As String

      s5331 = "TMPCFG." + Str(Node)
      s5335 = Environ("WCHOME") + "\SECLEVEL.DAT"
      s4521 = "y"
      CurrentDate d4467
      SetIdleTimeout 5
      s5339(1) = ";-- Last Changed on " + FormatDate(d4467, "mm/dd/yy") + ":   DO NOT REMOVE THIS LINE --------------------"
      s5339(2) = "Line 1:  Name of BBS"
      s5339(3) = "Line 2:  Charge Master Reg# (9999 if not registered)"
      s5339(4) = "Line 3:  Code assigned to your BBS by Dragon BBS      (CALL THEM to get this)"
      s5339(5) = "Line 4:  Key assigned BY Dragon BBS to activate online check processing "
      s5339(6) = "Line 5:  Conference welcome/reciept messages will be generated in"
      s5339(7) = "Line 6:  Access Level for 'TABS10' code (as defined in MAKEWILD)"
      s5339(8) = "Line 7:  Days to extend expiration date for TABS10 Level"
      s5339(9) = "Line 8:  Access Level for 'TABS25' code (as defined in MAKEWILD)"
      s5339(10) = "Line 9:  Days to extend expiration date for TABS25 Level"
      s5339(11) = "Line 10: Credit Cards to Accept (see below)"
      s5339(12) = "Line 11: Time to add to uses online time when entering door"
      s5339(13) = "Line 12: Use Advanced Checking on Credit Card Numbers (Y or N)"
      s5339(14) = "Line 13: Sales Tax to apply to Charges (0 if none)"
      s5339(15) = "Line 14: Level Name, Cost, Days to add, $ to Add, Auto Upg, Taxable, Short Desc"
      s5339(16) = "              ^--------^--------^----------^-----------^---------------^"
      s5339(17) = "                                     |"
      s5339(18) = "                                     |  (expanded explaination)"
      s5339(19) = "                                     v"
      s5339(20) = "Sec Level  : This is the *exact* level name as defined in MAKEWILD"
      s5339(21) = "Level Cost : Do not include the decimal (eg: $25 will be 2500)"
      s5339(22) = "Days to add: Number of days to add to the expiration date of the member"
      s5339(23) = "$ to add   : $ amt to put in the users 'Acct balance' field in Wildcat"
      s5339(24) = "Auto Upgrad: Should CM automatically upgrade user to this level"
      s5339(25) = "Taxable    : Should Sales Tax be applied to this purchase?"
      s5339(26) = "Short Desc : 65 characters desc will be displayed to the user online"
      s5339(27) = ""
      s5339(28) = "...There can be up to 10 Subscription levels defined, starting on Line 13)"
      s5339(29) = "   The Security level must be the same Name you define in MAKEWILD."
      s5339(30) = ""
      s5339(31) = "Charge Method Codes (Line #10)"
      s5339(32) = "==================="
      s5339(33) = "Line #10 basically tells Charge Master what credit cards to accept. It"
      s5339(34) = "also indicates if TABS or Checks Online! is available as a subscription"
      s5339(35) = "method.  Following are the codes:"
      s5339(36) = "A - American Express        E - JCB"
      s5339(37) = "B - MasterCard              F - TABS"
      s5339(38) = "C - Visa                    G - Diner"
      s5339(39) = "D - Discover"
      If UCase(ParamStr(1)) = "CHECKTABS" Or UCase(ParamStr(1)) = "/CHECKTABS" Then
      Else
 1332   If Exists(ProgPath + "CHGMAST.CFG") Then
          GoSub 2182
        Else
 1363     s4497 = MakeWild.BBSName
          s4501 = "99999"
          s4513 = "0"
          s4517 = "5"
        End If
 1404   If Exists(s5335) Then
          GoSub 4148
        End If
 1423   GoSub 4358
        GoSub 4755
        Do
 1435     GoSub 5034
          s65532_ = UCase(s4495)
          If s65532_ = "A" Then
            GoSub 6785
          Else
 1483       If s65532_ = "B" Then
              GoSub 8113
            Else
 1512         If s65532_ = "C" Then
                GoSub 9121
              Else
 1541           If s65532_ = "D" Then
                  GoSub 9630
                Else
 1570             If s65532_ = "E" Then
                    GoSub 10687
                  Else
 1599               If s65532_ = "F" Then
                      GoSub 11081
                    Else
 1628                 If s65532_ = "G" Then
                        GoSub 13144
                      Else
 1657                   If s65532_ = "H" Then
                          GoSub 13538
                          GoTo 1686
                        End If
                      End If
                    End If
                  End If
                End If
              End If
            End If
          End If
 1686   Loop Until UCase(s4495) = "Q"
        If s4521 = "y" Then
          Print "@07@@NOPAUSE@"
 1757     For i4482 = 5 To 23 Step 1
            Locate i4482, 1
            Print String(79, "▒")
          Next
 1854     Print "@1A@"
          Locate 10, 15
          Print "╔"; String(47, "═"); "╗";
 1919     For i4482 = 11 To 14 Step 1
            Locate i4482, 15
            Print "@1A@║"; Tab(63); "║"
          Next
 2025     Locate 15, 15
          Print "@1A@╚"; String(47, "═"); "╝"
          Locate 11, 27
          Print "@1F@Update Configuration Now?"
          Locate 13, 23
          Print "@3F@ Y@3E@es @1A@ Save"
          Locate 13, 40
          Print "@3F@ N@3E@o @1A@ Don't Save"
          Do
 2108       s4496 = InKey(1213417543)
          Loop Until InStr("YN", UCase(s4496)) > 0
        End If
 2148   If UCase(s4496) = "Y" Then
          GoSub 18354
        End If
 2176   GoTo 19320
 2182   If Exists(ProgPath + "CHGMAST.CFG") Then
          Open ProgPath + "CHGMAST.CFG" For Input As 1
          Input #1, s4573
          Input #1, l4577
          Input #1, s4581
          Input #1, i4585
          Input #1, b4587
          Input #1, s4588
          Input #1, i4606
          Input #1, s4597
          Input #1, i4608
          Input #1, s4610
          Input #1, i4614
          Input #1, s4616
          Input #1, s4617
          i4480 = 0
 2335     Do Until EOF(1) Or Left(s4629(i4480), 1) = ";" Or Left(s4629(i4480), 1) = "-"
            i4480 = i4480 + 1
            Input #1, s4629(i4480)
          Loop
 2481     If i4480 > 1 Then
            i4493 = i4480 - 1
          End If
 2510
 2534     For i4480 = 1 To i4493 Step 1
            b4561 = InStr(s4629(i4480), ",")
            b4562 = InStr(b4561 + 1, s4629(i4480), ",")
            b4563 = InStr(b4562 + 1, s4629(i4480), ",")
            b4564 = InStr(b4563 + 1, s4629(i4480), ",")
            b4565 = InStr(b4564 + 1, s4629(i4480), ",")
            b4566 = InStr(b4565 + 1, s4629(i4480), ",")
            s4673(i4480) = Left(s4629(i4480), b4561 - 1)
            r4717(i4480) = Val(Mid(s4629(i4480), b4561 + 1, b4562 - b4561 - 1))
            i4783(i4480) = Val(Mid(s4629(i4480), b4562 + 1, b4563 - b4562 - 1))
            r4805(i4480) = Val(Mid(s4629(i4480), b4563 + 1, b4564 - b4563 - 1))
            s4871(i4480) = UCase(Mid(s4629(i4480), b4564 + 1, b4565 - b4564 - 1))
            s4959(i4480) = UCase(Mid(s4629(i4480), b4565 + 1, b4566 - b4565 - 1))
            s4915(i4480) = Right(s4629(i4480), Len(s4629(i4480)) - b4566)
            s5014(i4480) = s4673(i4480)
            s5058(i4480) = Str(r4717(i4480))
            s5102(i4480) = Str(i4783(i4480))
            s5146(i4480) = Str(r4805(i4480))
            s5190(i4480) = UCase(s4871(i4480))
            s5278(i4480) = UCase(s4959(i4480))
            s5234(i4480) = s4915(i4480)
          Next
 3915     Close 1
        End If
 3920   s4497 = s4573
        s4501 = Str(l4577)
        s4505 = s4581
        s4509 = Str(i4585)
        s4513 = Str(b4587)
        s4517 = Str(i4614)
        s4543 = s4588
        s4547 = s4597
        s4551 = Str(i4606)
        s4555 = Str(i4608)
        s4535 = s4610
        s6048 = s4616
        s4530 = s4617
        If Exists(ProgPath + "RESTRICT.CFG") Then
          Open ProgPath + "RESTRICT.CFG" For Input As 2
          Input #2, s4621
          Input #2, s4625
          Close 2
        End If
 4123   s4522 = s4621
        s4526 = s4625
        Return
 4148   Open s5335 For Random As 1 Len = 287 '! This value should probably be replaced with a "SizeOf" expression
        i6046 = LOF(1)
 4202   For i4478 = 1 To i6046 Step 1
          If i4478 > 25 Then
            GoTo 4352
          End If
 4273     Get 1, i4478, t26_5499 '! 287 bytes
          s5786(i4478) = t26_5499.s1
        Next
 4352   Close 1
        Return
 4358   s4473 = "N"
        l4474 = 0
 4401   For i4478 = 1 To Len(s4573) Step 1
          l4485 = l4485 + Asc(Mid(s4573, i4478, 1)) * i4478 + Len(s4573) * 3
        Next
 4523   l4485 = l4485 * Len(s4573) * 2 + Asc(Mid(s4573, 1, 1)) - 8
 4599   For i4478 = 1 To Len(MakeWild.RegString) Step 1
          l4474 = l4474 + Val(Mid(MakeWild.RegString, i4478, 1))
        Next
 4708   l4485 = l4485 + l4474
        If l4485 = l4577 Then
          s4473 = "Y"
        End If
 4754   Return
 4755   Print "@CLS@@3F@"
        Locate 1, 1
        Print "╔"; String(77, "═"); "╗"
        Locate 2, 1
        Print "║"; Tab(79); "║"
        Locate 3, 1
        Print "║"; Tab(79); "║"
        Locate 4, 1
        Print "╚"; String(77, "═"); "╝"
        Locate 2, 27
        Print "@34@Charge Master SETUP v1.2"
        Locate 3, 22
        Print "(C) 1994 KeySoft, All Rights Reserved"
        Locate 3, 66
        Print "@3F@"; TimeLeft; " min left"
        If s4473 = "N" Then
          Locate 2, 3
          Print "@BE@UNREGISTERED"
        Else
 4995     Locate 2, 3
          Print "@3E@"; s4573
        End If
 5017   Locate 5, 1
        Print "@0E@"
        Return
 5034   l4489 = Timer
        Print "@07@@NOPAUSE@"
 5073   For i4482 = 5 To 23 Step 1
          Locate i4482, 1
          Print String(79, "▒");
        Next
 5170   Print "@1A@"
        Locate 7, 22
        Print "╔"; String(33, "═"); "╗";
 5235   For i4482 = 8 To 17 Step 1
          Locate i4482, 22
          Print "@1A@║"; Tab(56); "║@07@░░"
        Next
 5341   Locate 18, 22
        Print "@1A@╚"; String(33, "═"); "╝@07@░░"
        Locate 19, 24
        Print String(35, "░")
        Locate 8, 26
        Print "@1F@A@1E@.....General Setup"
        Locate 9, 26
        Print "@1F@B@1E@.....Credit Cards Setup"
        Locate 10, 26
        Print "@1F@C@1E@.....Checks Online! Setup"
        Locate 11, 26
        Print "@1F@D@1E@.....TABS(tm) Setup"
        Locate 12, 26
        Print "@1F@E@1E@.....Edit CHGMAST.CFG file"
        Locate 13, 26
        Print "@1F@F@1E@.....View CHGMAST.TAB file"
        Locate 14, 26
        Print "@1F@G@1E@.....Restrictions"
        Locate 15, 26
        Print "@1F@H@1E@.....Subscription Levels"
        Locate 17, 26
        Print "@1F@Q@1E@.....Quit"
        i4478 = 0
        i4482 = 8
        Locate i4482, 24
        Print "@1C@"; Chr(175)
        Locate i4482, 54
        Print Chr(174)
        Do
 5599     s4495 = InKey(1213417543)
          If s4495 <> "" Then
            s5322 = s4495
            s5326 = s4495
            If s5322 = "P" And Asc(s5326) = 80 Or s5322 = "M" And Asc(s5326) = 77 Then
              i4482 = i4482 + 1
              b5330 = i4482 - 1
              If i4482 = 16 Then
                i4482 = 17
                b5330 = 15
              End If
 5765         If i4482 = 18 Then
                i4482 = 8
                b5330 = 17
              End If
 5794         Locate b5330, 24
              Print "@1C@ "
              Locate b5330, 54
              Print " "
              Locate i4482, 24
              Print "@1C@"; Chr(175)
              Locate i4482, 54
              Print Chr(174)
            End If
 5877       If s5322 = "K" And Asc(s5326) = 75 Then
              i4482 = i4482 - 1
              b5330 = i4482 + 1
              If i4482 = 7 Then
                i4482 = 17
                b5330 = 8
              End If
 5964         If i4482 = 16 Then
                i4482 = 15
                b5330 = 17
              End If
 5993         Locate b5330, 24
              Print "@1C@ "
              Locate b5330, 54
              Print " "
              Locate i4482, 24
              Print "@1C@"; Chr(175)
              Locate i4482, 54
              Print Chr(174)
            End If
          End If
 6076     Locate 20, 30
          Print "@1B@@NOPAUSE@Seconds Idle: "; Str(Timer - l4489);
          i4478 = i4478 + 1
          If i4478 = 150 Then
            Locate 22, 20
            Print "@2F@(c) 1994, Keysoft Inc. & Gerard Johnson"
          End If
 6154     If i4478 = 600 Then
            Locate 22, 20
            Print "@5F@Support Board:  PC-HELP! [phone]"
          End If
 6186     If i4478 = 1100 Then
            Locate 22, 20
            Print "@3F@ AFFORDABLE shareware for the MASSES!  "
          End If
 6218     If i4478 = 1700 Then
            Locate 22, 20
            Print "@4F@Home Board: Top Cat BBS! [phone]"
          End If
 6250     If Timer - l4489 = 60 Or Timer - l4489 = 120 Or Timer - l4489 = 180 Then
            Locate 22, 20
            Print "@9F@@BELL@  Hey, I'm waiting for you.  Wake up!  "
            i4478 = 1701
          End If
 6338     If i4478 > 2100 Then
            i4478 = 0
          End If
 6360     If Asc(s4495) = 13 Then
            If i4482 = 8 Then
              s4495 = "A"
            End If
 6405       If i4482 = 9 Then
              s4495 = "B"
            End If
 6431       If i4482 = 10 Then
              s4495 = "C"
            End If
 6457       If i4482 = 11 Then
              s4495 = "D"
            End If
 6483       If i4482 = 12 Then
              s4495 = "E"
            End If
 6509       If i4482 = 13 Then
              s4495 = "F"
            End If
 6535       If i4482 = 14 Then
              s4495 = "G"
            End If
 6561       If i4482 = 15 Then
              s4495 = "H"
            End If
 6587       If i4482 = 17 Then
              s4495 = "Q"
            End If
          End If
 6613   Loop Until InStr("ABCDEFGHQ", UCase(s4495)) > 0
        Locate i4482, 24
        Print "@1C@ "
        Locate i4482, 54
        Print " "
        i4482 = 8 + Asc(UCase(s4495)) - 65
        If UCase(s4495) = "Q" Then
          i4482 = 17
        End If
 6731   Locate i4482, 24
        Print "@1C@"; Chr(175)
        Locate i4482, 54
        Print Chr(174)
        Delay 1
        Return
 6785   Print "@01@"
 6815   For i4482 = 5 To 23 Step 1
          Locate i4482, 1
          ClrEOL
        Next
 6901   Locate 5, 27
        Print "@0E@[ General Setup Options ]"
        Locate 19, 2
        Print "@0C@This is the name under which your Registration Number was generated. If you"
        Locate 20, 2
        Print "have yet to register this excellent program @07@<shameless plug>,@0C@ then it does"
        Locate 21, 2
        Print "not really matter what goes here."
        Locate 7, 1
        s4497 = InputMask("@0B@Registration Name: @0F@", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s4497, 1213417543)
 7019   For i4482 = 19 To 21 Step 1
          Locate i4482, 1
          ClrEOL
        Next
 7105   Locate 19, 2
        Print "@0C@This is your registration number that will be given to you once you have"
        Locate 20, 2
        Print "actually spent some money and registered the program. Enter 99999 here if"
        Locate 21, 2
        Print "the program is not registered."
        Locate 7, 54
        s4501 = InputMask("@0B@Registration #: @0F@", "9999999", s4501, 1213417543)
 7207   For i4482 = 19 To 21 Step 1
          Locate i4482, 1
          ClrEOL
        Next
 7293   Locate 19, 2
        Print "@0C@As part of its normal process, Charge Master will generate several messages in"
        Locate 20, 2
        Print "Wildcat! If you want these messages to be created in a certain conference, then"
        Locate 21, 2
        Print "enter that conference number here. (Note: User must have write access here)."
        Locate 9, 1
        s4513 = InputMask("@0B@Welcome/Receipt Message Conference#: @0F@", "99999", s4513, 1213417543)
 7395   For i4482 = 19 To 21 Step 1
          Locate i4482, 1
          ClrEOL
        Next
 7481   Locate 19, 2
        Print "@0C@The last thing you want is for a user to run out of time before they complete"
        Locate 20, 2
        Print "the charge. This setting allows you to define how may minutes the program will   "
        Locate 21, 2
        Print "ADD to the users online time as soon as they enter Charge Master."
        Locate 11, 1
        s4517 = InputMask("@0B@Minutes to ADD on entry: @0F@", "99", s4517, 1213417543)
 7583   For i4482 = 19 To 21 Step 1
          Locate i4482, 1
          ClrEOL
        Next
 7669   Locate 19, 2
        Print "@0C@By default, the program will use some basic checking for the validity of a"
        Locate 20, 2
        Print "credit card. If you select Y here, the credit card# is put through an advanced"
        Locate 21, 2
        Print "algorothim routine (moduls 10). Please be aware that unless you actually check"
        Locate 22, 2
        Print "the credit card# against the actual credit card company's database this is not"
        Locate 23, 2
        Print "a 100% foolproof option."
        Locate 11, 40
        If InputYesNo("@0B@Use Advanced Checking (Y/N): @0F@", -1) Then
          s6048 = "Y"
        Else
 7790     s6048 = "M"
        End If
 7801
 7822   For i4482 = 18 To 23 Step 1
          Locate i4482, 1
          ClrEOL
        Next
 7908   Locate 19, 2
        Print "@0C@If the area you do business in requires you to collect sales tax on any"
        Locate 20, 2
        Print "type of sale then you can set up the sales tax rate here.  This % amount will"
        Locate 21, 2
        Print "be used for all transactions.  Please do NOT include the decimal in the amt."
        Locate 22, 2
        Print "Eg: 6.5% tax would be entered as 650"
        Locate 13, 1
        s4530 = InputMask("@0B@Sales Tax (0 if none): @0F@", "XXXX", s4530, 1213417543)
 8026   For i4482 = 19 To 22 Step 1
          Locate i4482, 1
          ClrEOL
        Next
 8112   Return
 8113   Print "@01@"
 8143   For i4482 = 5 To 23 Step 1
          Locate i4482, 1
          ClrEOL
        Next
 8229   Locate 5, 28
        Print "@0E@[ Credit Card Setup ]"
        Do
 8245     Locate 7, 1
          If InStr(UCase(s4535), "A") > 0 Then
            Print "@0E@[A]@0F@.....American Express   @0A@<accepted>"
          Else
 8291       Print "@0E@[A].....@07@American Express             "
          End If
 8300     If InStr(UCase(s4535), "B") > 0 Then
            Print "@0E@[B]@0F@.....MasterCard         @0A@<accepted>"
          Else
 8339       Print "@0E@[B].....@07@MasterCard                   "
          End If
 8348     If InStr(UCase(s4535), "C") > 0 Then
            Print "@0E@[C]@0F@.....Visa               @0A@<accepted>"
          Else
 8387       Print "@0E@[C].....@07@Visa                         "
          End If
 8396     If InStr(UCase(s4535), "D") > 0 Then
            Print "@0E@[D]@0F@.....Discover           @0A@<accepted>"
          Else
 8435       Print "@0E@[D].....@07@Discover                     "
          End If
 8444     If InStr(UCase(s4535), "E") > 0 Then
            Print "@0E@[E]@0F@.....JCB                @0A@<accepted>"
          Else
 8483       Print "@0E@[E].....@07@JCB                          "
          End If
 8492     If InStr(UCase(s4535), "F") > 0 Then
            Print "@0E@[F]@0F@.....TABS               @0A@<accepted>"
          Else
 8531       Print "@0E@[F].....@07@TABS                         "
          End If
 8540     If InStr(UCase(s4535), "G") > 0 Then
            Print "@0E@[G]@0F@.....Diner              @0A@<accepted>"
          Else
 8579       Print "@0E@[G].....@07@Diner                        "
          End If
 8588     Locate 19, 2
          Print "@0C@This is where you inform Charge Master what types of Credit cards can be"
          Locate 20, 2
          Print "accepted in the module.  If the text @02@<accepted>@0C@ appears beside the card then"
          Locate 21, 2
          Print "that card will be accepted. You can toggle the option by selecting the letter"
          Locate 22, 2
          Print "beside the card type and pressing <enter>.  Press Q when done or to exit."
          Do
 8652       Locate 15, 1
            s4534 = InputMask("@0B@Your Selection A,B,C,D,E,F,G or [Q]uit: @0F@", "X", "Q", 1213417543)
          Loop Until InStr("ABCDEFGQ", UCase(s4534)) > 0
          If UCase(s4534) = "Q" Then
            Return
          End If
 8737     If InStr(s4535, UCase(s4534)) = 0 Then
            s4535 = s4535 + UCase(s4534)
          Else
 8787       i4478 = InStr(s4535, UCase(s4534))
            Mid(s4535, i4478, 1) = "."
          End If
 8831     s4539 = ""
 8866     For i4478 = 1 To Len(s4535) Step 1
            If Mid(s4535, i4478, 1) = "." Then
            Else
 8949         s4539 = s4539 + Mid(UCase(s4535), i4478, 1)
            End If
 8976     Next
 8999     s4535 = s4539
        Loop
 9034   For i4482 = 19 To 21 Step 1
          Locate i4482, 1
          ClrEOL
        Next
 9120   Return
 9121   Print "@01@"
 9151   For i4482 = 5 To 23 Step 1
          Locate i4482, 1
          ClrEOL
        Next
 9237   Locate 5, 27
        Print "@0E@[ Checks Online! Setup ]"
        Locate 19, 2
        Print "@0C@*IF* you process your charges thru Dragon Business Services, then the three"
        Locate 20, 2
        Print "character code they assign to you goes here (eg: TOP).  If you do not use this"
        Locate 21, 2
        Print "service, enter NONE here or leave this blank."
        Locate 7, 1
        s4505 = InputMask("@0B@Dragon Business Services Code: @0F@", "XXXX", s4505, 1213417543)
 9355   For i4482 = 19 To 21 Step 1
          Locate i4482, 1
          ClrEOL
        Next
 9441   Locate 19, 2
        Print "@0C@*IF* you process your charges thru Dragon Business Services, AND you accept"
        Locate 20, 2
        Print "'Checks Online!', then enter you numeric code given to you by DBS.  Once again,"
        Locate 21, 2
        Print "if you do not use this service, enter 9999 here."
        Locate 7, 45
        s4509 = InputMask("@0B@DBS Checks Online! Code: @0F@", "99999", s4509, 1213417543)
 9543   For i4482 = 19 To 21 Step 1
          Locate i4482, 1
          ClrEOL
        Next
 9629   Return
 9630   Print "@01@"
 9660   For i4482 = 5 To 23 Step 1
          Locate i4482, 1
          ClrEOL
        Next
 9746   Locate 5, 33
        Print "@0E@[ TABS Setup ]"
        Locate 19, 2
        Print "@0C@If you do not accept TABS codes (or don't know what TABS is then leave"
        Locate 20, 2
        Print "this field blank.  If you do, this is the security level you are going to"
        Locate 21, 2
        Print "assign for a 'TABS10' code.  You can enter the security level manually or"
        Locate 22, 2
        Print "type in a @0?@0C@ to see the first 25 security levels defined in MAKEWILD."
        Locate 7, 1
        ClrEOL
        Locate 7, 1
        s4543 = InputMask("@0B@Level to assign to 'TABS10' code: @0F@", "XXXXXXXXXX", s4543, 1213417543)
 9890   For i4482 = 19 To 22 Step 1
          Locate i4482, 1
          ClrEOL
        Next
        Do
 9976     Locate 19, 2
          Print "@0C@This is the number of days to ADD to the users expiration date.  It"
          Locate 20, 2
          Print "must be zero or a positive number."
          Locate 7, 50
          s4551 = InputMask("@0B@Days to add: @0F@", "999", s4551, 1213417543)
          If (Len(Trim(s4543)) < 1) = 0 Then GoTo 10117
          If (Val(s4551) > 0) = 0 Then GoTo 10117
          Locate 9, 12
          Print "@0C@'Days' field must be blank or 0 if previous field is blank"
          Delay 3
          Locate 9, 12
          ClrEOL
        Loop
10117
10138   For i4482 = 19 To 20 Step 1
          Locate i4482, 1
          ClrEOL
        Next
10224   Locate 19, 2
        Print "@0C@If you do not accept TABS codes (or don't know what TABS is then leave"
        Locate 20, 2
        Print "this field blank.  If you do, this is the security level you are going to"
        Locate 21, 2
        Print "assign for a 'TABS25' code.  You can enter the security level manually or"
        Locate 22, 2
        Print "type in a @0?@0C@ to see the first 25 security levels defined in MAKEWILD."
        Locate 9, 1
        ClrEOL
        Locate 9, 1
        s4547 = InputMask("@0B@Level to assign to 'TABS25' code: @0F@", "XXXXXXXXXX", s4547, 1213417543)
10352   For i4482 = 11 To 22 Step 1
          Locate i4482, 1
          ClrEOL
        Next
        Do
10438     Locate 19, 2
          Print "@0C@This is the number of days to ADD to the users expiration date.  It"
          Locate 20, 2
          Print "must be zero or a positive number."
          Locate 9, 50
          s4555 = InputMask("@0B@Days to add: @0F@", "999", s4555, 1213417543)
          If (Len(Trim(s4547)) < 1) = 0 Then GoTo 10579
          If (Val(s4555) > 0) = 0 Then GoTo 10579
          Locate 11, 12
          Print "@0C@'Days' field must be blank or 0 if previous field is blank"
          Delay 3
          Locate 11, 12
          ClrEOL
        Loop
10579
10600   For i4482 = 19 To 20 Step 1
          Locate i4482, 1
          ClrEOL
        Next
10686   Return
10687   Print "@01@"
10717   For i4482 = 5 To 23 Step 1
          Locate i4482, 1
          ClrEOL
        Next
10803   Locate 5, 28
        Print "@0E@[ Edit CHGMAST.CFG file ]"
        Locate 18, 2
        Print "@0C@If you insist on manually editing the configuration file, then you are in"
        Locate 19, 2
        Print "the right place.  Just remember, if you have made any changes to the settings"
        Locate 20, 2
        Print "and have not exited, those changes haven't been flushed to disk yet! You will"
        Locate 21, 2
        Print "have to exit the setup and get back in for the file to be updated.  Remember"
        Locate 22, 2
        Print "that CHGSETUP reads in the setting on entry, so be aware of any changes you"
        Locate 23, 2
        Print "made while editing the file manually via this option."
        Locate 7, 1
        If InputYesNo("@0B@After reading the help below, do you wish to continue (Y/N): @0F@", 0) Then
          EditFile(ProgPath + "CHGMAST.CFG", 1213417543, "EDIT")
          GoSub 4755
        Else
10973
10994     For i4482 = 18 To 23 Step 1
            Locate i4482, 1
            ClrEOL
          Next
        End If
11080   Return
11081   Print "@01@"
11111   For i4482 = 5 To 23 Step 1
          Locate i4482, 1
          ClrEOL
        Next
11197   Locate 5, 32
        Print "@0E@[ Edit TABS ]"
        s4560 = " "
        If Not Exists(ProgPath + "CHGMAST.TAB") Then
          Locate 10, 10
          Print "@BELL@@9F@ERROR:@0C@  The file "; ProgPath + "CHGMAST.TAB"; " does not exist."
          Locate 11, 18
          Print "@07@(5 second delay)"
          Delay 5
          Return
        End If
        Do
11305     Locate 7, 1
          s6055 = InputMask("@0B@Show [A]ll or just [U]sed codes: @0F@", "X", "", 1213417543)
        Loop Until InStr("AU", UCase(s6055)) > 0
        Open ProgPath + "CHGMAST.TAB" For Random As 3 Len = 56 '! This value should probably be replaced with a "SizeOf" expression
        i6049 = LOF(3)
11426   For i4480 = 1 To i6049 Step 1
          Get 3, i4480, t27_6060 '! 56 bytes
          If t27_6060.s0 = "*" Then
            i6051 = i6051 + 1
          End If
11524   Next
11547   i6053 = 1
        Do
11554     Locate 6, 1
          Print "@03@Total TABS codes: @0D@"; i6049; "@03@   # of codes used: @0D@"; i6051; "    @03@Availability is @0D@"; 100 - 100 * i6051 Div i6049; "%"
          Locate 7, 1
          i4482 = 8
          Print "@1F@Rec#  Code    Level      Used By                   Used On                @0E@"
          i4480 = i6053
          Do
11660       Get 3, i4480, t27_6060 '! 56 bytes
            If i4482 > 19 Then
              GoSub 12541
              If UCase(s4560) = "N" Then
11741           For i4482 = 20 To 8 Step - 1
                  Locate i4482, 1
                  ClrEOL
                Next
11827           i4482 = 8
              End If
11834         If UCase(s4560) = "Q" Then
                Close 3
                Return
              End If
11862         If UCase(s4560) = "P" Then
                i6053 = i6053 - 24
                If i6053 < 1 Then
                  i6053 = 1
                End If
11920
11943           For i4482 = 20 To 8 Step - 1
                  Locate i4482, 1
                  ClrEOL
                Next
12029           i4482 = 8
                GoTo 11554
              End If
            End If
12042       If UCase(s6055) = "A" Then
              Locate i4482, 1
              Print "@03@@NOPAUSE@"; i4480
              Locate i4482, 7
              Print "@0A@"; t27_6060.s1
              Locate i4482, 15
              Print "@0B@"; t27_6060.s21
              If t27_6060.s0 = "*" Then
                Locate i4482, 26
                Print "@0E@"; t27_6060.s31
                Locate i4482, 52
                Print "@0F@"; t27_6060.s8; " at "; t27_6060.s16
              Else
12258           Locate i4482, 26
                Print "@07@<Code Available>"
              End If
12277         i4482 = i4482 + 1
            Else
12297         If t27_6060.s0 = "*" Then
                Locate i4482, 1
                Print "@03@@NOPAUSE@"; i4480
                Locate i4482, 7
                Print "@0A@"; t27_6060.s1
                Locate i4482, 15
                Print "@0B@"; t27_6060.s21
                Locate i4482, 26
                Print "@0E@"; t27_6060.s31
                Locate i4482, 52
                Print "@0F@"; t27_6060.s8; " at "; t27_6060.s16
                i4482 = i4482 + 1
              End If
            End If
12499       i4480 = i4480 + 1
            i6053 = i4480
          Loop Until i4480 > i6049
12541     If (i4480 > i6049) = 0 Then GoTo 12837
          Do
12559       Locate 21, 1
            ClrEOL
            s4560 = InputMask("@0B@[P]revious, [Q]uit: @0F@", "X", "", 1213417543)
          Loop Until InStr("QP", UCase(s4560)) > 0
          If UCase(s4560) = "Q" Then
            Close 3
          End If
12651     If (UCase(s4560) = "P") = 0 Then GoTo 12831
          i6053 = i6053 - 24
          If i6053 < 1 Then
            i6053 = 1
          End If
12709
12732     For i4482 = 20 To 8 Step - 1
            Locate i4482, 1
            ClrEOL
          Next
12818     i4482 = 8
        Loop
12831   GoTo 12903
        Do
12837     Locate 21, 1
          ClrEOL
          s4560 = InputMask("@0B@[N]ext Page, [P]revious, [Q]uit: @0F@", "X", s4560, 1213417543)
        Loop Until InStr("NQP", UCase(s4560)) > 0
12903   Return
        Do
12904     Locate 22, 1
          s6056 = InputMask("@0C@Enter Rec# to Change or 0 to exit: @0F@", "9999", "", 1213417543)
        Loop Until Val(s6056) = 0 Or Val(s6056) < i6049
        If Val(s6056) = 0 Then
          Locate 22, 1
          ClrEOL
          Return
        End If
12997   Get 3, Val(s6056), t27_6060 '! 56 bytes
        If t27_6060.s0 = "*" Then
          Locate 22, 1
          ClrEOL
          If InputYesNo("Reactivate code (Y/N): ", -1) Then
            t27_6060.s0 = " "
            t27_6060.s31 = "          "
            t27_6060.s8 = "        "
            t27_6060.s16 = "     "
            Put 3, Val(s6056), t27_6060 '! 56 bytes
          End If
        End If
13133   Locate 22, 1
        ClrEOL
        Return
13144   Print "@01@"
13174   For i4482 = 5 To 23 Step 1
          Locate i4482, 1
          ClrEOL
        Next
13260   Locate 5, 32
        Print "@0E@[ Restrictions ]"
        Locate 19, 2
        Print "@0C@You can lock out users from using the door by entering a block out period"
        Locate 20, 2
        Print "start & stop time. All times MUST be entered in 24 hr format.  To prevent any"
        Locate 21, 2
        Print "usage from midnight to 6am, you would enter 0000 as the Start time and 0600"
        Locate 22, 2
        Print "as the Stop time. Leave both fields blank to allow 24 access to this module."
        Locate 7, 1
        Print "BLOCKOUT PERIOD"
        Locate 8, 1
        s4522 = InputMask("@0B@Start time (HHMM): @0F@", "9999", s4522, 1213417543)
        Locate 8, 45
        s4526 = InputMask("@0B@Stop time (HHMM): @0F@", "9999", s4526, 1213417543)
13451   For i4482 = 19 To 22 Step 1
          Locate i4482, 1
          ClrEOL
        Next
13537   Return
13538   Print "@01@"
13568   For i4482 = 5 To 23 Step 1
          Locate i4482, 1
          ClrEOL
        Next
13654   Locate 5, 28
        Print "@0E@[ Subscription Levels ]"
        i4480 = 1
        s4559 = "N"
13688   If i4493 > 0 Then
          Locate 7, 1
          Print "@0C@Record "; i4480; " of "; Str(i4493); " record(s)."
        Else
13755     Locate 7, 1
          Print "@0C@No levels defined yet:"
        End If
13771   Locate 9, 1
        Print "@0B@  Level Name: @0F@"; s5014(i4480);
        ClrEOL
        If s5003(i4480) = "*" Then
          Locate 9, 30
          Print "@4F@Marked for Delete"
        End If
13875   Locate 10, 1
        Print "@0B@      Amount: @0F@"; FormatNumber(Val(s5058(i4480)), "$####.##");
        ClrEOL
        Locate 11, 1
        Print "@0B@ Days to add: @0F@"; s5102(i4480);
        ClrEOL
        If Val(s5102(i4480)) = 365 Then
          Locate 11, 22
          Print "@07@(1 year) "
        End If
14042   If Val(s5102(i4480)) = 180 Then
          Locate 11, 22
          Print "@07@(6 months)"
        End If
14099   If Val(s5102(i4480)) = 90 Then
          Locate 11, 22
          Print "@07@(3 months)"
        End If
14156   If Val(s5102(i4480)) = 30 Then
          Locate 11, 22
          Print "@07@(1 month)"
        End If
14213   Locate 12, 1
        Print "@0B@    $ to add: @0F@"; FormatNumber(Val(s5146(i4480)), "$####.##");
        ClrEOL
        Locate 13, 1
        Print "@0B@Auto Upgrade: @0F@"; s5190(i4480);
        ClrEOL
        Locate 13, 30
        Print "@0B@Taxable ?: @0F@"; s5278(i4480);
        ClrEOL
        Locate 14, 1
        Print "@0B@ Description: @0F@"; s5234(i4480);
        ClrEOL
        Do
          Do
            Do
              Do
14420           Locate 16, 1
                s4559 = InputMask("@0C@[A]dd, [C]hange, [D]elete, [N]ext, [P]revious or [Q]uit: @0F@", "X", s4559, 1213417543)
              Loop Until InStr("ACDNPQ", UCase(s4559)) > 0
              s4559 = UCase(s4559)
              If s4559 = "N" Then
                i4480 = i4480 + 1
                If i4480 > i4493 Then
                  i4480 = 1
                End If
14556           GoTo 13688
              End If
14562         If s4559 = "P" Then
                i4480 = i4480 - 1
                If i4480 < 1 Then
                  i4480 = i4493
                End If
14620           GoTo 13688
              End If
14626         If (s4559 = "A" And i4493 = 10) = 0 Then GoTo 14696
              Locate 17, 1
              Print "ADD not possible, no more open slots - Max 10"
              Delay 3
              Locate 17, 1
              ClrEOL
            Loop
14696       If s4559 = "D" And i4493 > 0 Then
              If s5003(i4480) = "*" Then
                s5003(i4480) = " "
              Else
14801           s5003(i4480) = "*"
              End If
14832         GoTo 13688
            End If
14838       If s4559 = "A" And i4493 < 10 Then
              i4493 = i4493 + 1
              i4480 = i4493
              GoSub 15111
              If Len(Trim(s5014(i4480))) = 0 Then
                i4493 = i4493 - 1
                i4480 = i4493
              End If
            End If
14965       If (s4559 = "C" And i4493 > 0) = 0 Then GoTo 15085
            If (s5003(i4480) = "*") = 0 Then GoTo 15079
            Locate 17, 1
            Print "Change not possible, on a record marked for Delete - Undelete first!"
            Delay 3
            Locate 17, 1
            ClrEOL
          Loop
          GoTo 15085
15079     GoSub 15111
15085     If s4559 = "Q" Then
            Return
          End If
15105   Loop
15111   Locate 20, 2
        Print "@0C@This is the name of the purchase/subscription level you want to set up. If"
        Locate 21, 2
        Print "this is a subscription level, and you want CM to automatically upgrade the"
        Locate 22, 2
        Print "users access, then this must be a valid security level defined in MAKEWILD."
        Locate 23, 2
        Print "If you are adding a new record, leave this field blank to abort the add."
        Locate 18, 1
        ClrEOL
        s5014(i4480) = UCase(InputMask("@0B@Level Name: @0F@", "XXXXXXXXXX", s5014(i4480), 1213417543))
15283   For i4482 = 20 To 23 Step 1
          Locate i4482, 1
          ClrEOL
        Next
15369   If Len(Trim(s5014(i4480))) = 0 And s4559 = "A" Then
          Locate 18, 1
          ClrEOL
          Return
        End If
15438   Locate 9, 1
        Print "@0B@  Level Name: @0F@"; s5014(i4480);
        ClrEOL
        Locate 20, 2
        Print "@0C@This is the purchase price.  DO NOT include the decimal point, but DO"
        Locate 21, 2
        Print "include the decimal places.  For example, if the purchase price is $25.00,"
        Locate 22, 2
        Print "you would enter 2500 here."
        Locate 18, 1
        ClrEOL
        s5058(i4480) = InputMask("@0B@Amount: @0F@", "99999", s5058(i4480), 1213417543)
15640   For i4482 = 20 To 22 Step 1
          Locate i4482, 1
          ClrEOL
        Next
15726   Locate 10, 1
        Print "@0B@      Amount: @0F@"; FormatNumber(Val(s5058(i4480)), "$####.##");
        ClrEOL
        Locate 20, 2
        Print "@0C@If you are defining a subscription level, then this field lets CM know how"
        Locate 21, 2
        Print "many days are in the subscription period. This number will be added to the "
        Locate 22, 2
        Print "users expiration date.  For example, 6 months would be entered as 180."
        Locate 18, 1
        ClrEOL
        s5102(i4480) = InputMask("@0B@Days to add: @0F@", "999", s5102(i4480), 1213417543)
15939   For i4482 = 20 To 22 Step 1
          Locate i4482, 1
          ClrEOL
        Next
16025   If Len(s5102(i4480)) < 1 Or Val(s5102(i4480)) < 1 Then
          s5102(i4480) = "0"
        End If
16136   Locate 11, 1
        Print "@0B@ Days to add: @0F@"; s5102(i4480);
        ClrEOL
        If Val(s5102(i4480)) = 365 Then
          Locate 11, 22
          Print "@07@(1 year) "
        End If
16243   If Val(s5102(i4480)) = 180 Then
          Locate 11, 22
          Print "@07@(6 months)"
        End If
16300   If Val(s5102(i4480)) = 90 Then
          Locate 11, 22
          Print "@07@(3 months)"
        End If
16357   If Val(s5102(i4480)) = 30 Then
          Locate 11, 22
          Print "@07@(1 month)"
        End If
16414   Locate 20, 2
        Print "@0C@If you wish to fill the users 'Acct Balance' field in Wildcat, then"
        Locate 21, 2
        Print "put the amount here.  DO NOT include the decimal point but DO include the"
        Locate 22, 2
        Print "decimal places.  For example, $25.50 would be 2500."
        Locate 18, 1
        ClrEOL
        s5146(i4480) = InputMask("@0B@$ to add: @0F@", "99999", s5146(i4480), 1213417543)
16567   For i4482 = 20 To 22 Step 1
          Locate i4482, 1
          ClrEOL
        Next
16653   If Len(s5146(i4480)) < 1 Or Val(s5146(i4480)) < 0 Then
          s5146(i4480) = "0"
        End If
16763   Locate 12, 1
        Print "@0B@    $ to add: @0F@"; FormatNumber(Val(s5146(i4480)), "$####.##");
        ClrEOL
        Locate 20, 2
        Print "@0C@If this is a subscription level, you have the luxury of having CM upgrade"
        Locate 21, 2
        Print "the users security level automatically.  Valid choices here are only Y and N."
        Do
16855     Locate 18, 1
          ClrEOL
          s5190(i4480) = UCase(InputMask("@0B@Auto Upgrade: @0F@", "X", s5190(i4480), 1213417543))
        Loop Until InStr("YN", UCase(s5190(i4480))) > 0
17011   For i4482 = 20 To 21 Step 1
          Locate i4482, 1
          ClrEOL
        Next
17097   Locate 13, 1
        Print "@0B@Auto Upgrade: @0F@"; s5190(i4480)
        Locate 20, 2
        Print "@0C@A 'Y' in this field determines if Charge Master will figure in the sales"
        Locate 21, 2
        Print "tax into this purchase. Valid choices here are only Y and N."
        Do
17175     Locate 18, 1
          ClrEOL
          s5278(i4480) = UCase(InputMask("@0B@Apply Tax?: @0F@", "X", s5278(i4480), 1213417543))
        Loop Until InStr("YN", UCase(s5278(i4480))) > 0
17331   For i4482 = 20 To 21 Step 1
          Locate i4482, 1
          ClrEOL
        Next
17417   Locate 13, 25
        Print "@0B@Taxable ?: @0F@"; s5278(i4480);
        ClrEOL
        Locate 20, 2
        Print "@0C@This is a short description that will be shown to the user for this level."
        Locate 18, 1
        ClrEOL
        s5234(i4480) = InputMask("@0B@Description: @0F@", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s5234(i4480), 1213417543)
        Locate 14, 1
        Print "@0B@ Description: @0F@"; s5234(i4480);
        ClrEOL
        Locate 18, 1
        ClrEOL
        Locate 20, 1
        ClrEOL
        If i4493 > 0 Then
          Locate 7, 1
          Print "@0C@Record "; i4480; " of "; Str(i4493); " record(s)."
        Else
17702     Locate 7, 1
          Print "@0C@No levels defined yet:"
        End If
17718   Return
      End If
17719 CurrentTime t4463
      ActivityLog "wcCODE program:  Charge Master Setup run with CHECKTABS parameter at " + FormatTime(t4463, "hh:mm")
      Print "@CLS@@0A@Charge Master Setup v1.2 @0F@- (c) 1994, KeySoft Inc. & Gerard Johnson"
      Print "@07@(Running in unattended mode with the CHECKTABS parameter)"
      Print
      Print "@0A@√@0B@  Searching for CHGMAST.TAB"
      If Not Exists(ProgPath + "CHGMAST.TAB") Then
        Print "   @0C@- File Not Found"
        ActivityLog "wcCODE program:  Charge Master Setup cannot find CHGMAST.TAB!"
        ActivityLog "wcCODE program:  Charge Master Setup abnormal termination at " + FormatTime(t4463, "hh:mm")
        End
      Else
17841   Print "   @0D@- File Found    "
      End If
17850 Print "@0A@√@0B@  Checking CHGMAST.TAB for capcaity"
      Open ProgPath + "CHGMAST.TAB" For Random As 1 Len = 56 '! This value should probably be replaced with a "SizeOf" expression
      i6049 = LOF(1)
17918 For i4480 = 1 To i6049 Step 1
        Get 1, i4480, t27_6060 '! 56 bytes
        If t27_6060.s0 = "*" Then
          i6051 = i6051 + 1
        End If
18016 Next
18039 Close 1
      Print "@0D@   Capacity of CHGMAST.TAB file -- @0E@TOTAL CODES USED: " + Str(i6051) + "  /  FREE: " + Str(i6049 - i6051)
      ActivityLog "Capacity of CHGMAST.TAB file -- TOTAL CODES USED: " + Str(i6051) + "  /  FREE: " + Str(i6049 - i6051)
      Print "@0A@√@0B@  Activity logged to node log file"
      If i6049 - i6051 < 6 Then
        Print "@0A@√@0B@  Generating @0C@'TABS codes LOW!' @0B@message to sysop"
        mh6116.From = "Charge Master Setup"
        mh6116.To = MakeWild.SysopName
        mh6116.Flags = 1
        mh6116.Subject = "TABS codes LOW!"
        s4569 = "On closer inspection of CHGMAST.TAB file, Charge Master has determined " + "that you are running low on available TABS codes.  Out of @0A@" + Str(i6049) + "@0E@ codes, you only have @0C@" + Str(i6049 - i6051) + "@0E@ codes available."
        AddMessage(mh6116, s4569, "", 1213417543)
      Else
18315   Print "@0A@√@0B@  Levels fine - no message generated"
      End If
18324 ActivityLog "wcCODE program:  Charge Master Setup normal termination at " + FormatTime(t4463, "hh:mm")
      Delay 10
      End
18354 Open ProgPath + s5331 For Output As 1
      Print #1, s4497
      Print #1, s4501
      Print #1, s4505
      Print #1, s4509
      Print #1, s4513
      Print #1, UCase(s4543)
      Print #1, s4551
      Print #1, UCase(s4547)
      Print #1, s4555
      Print #1, s4535
      Print #1, s4517
      Print #1, s6048
      Print #1, s4530
18527 For i4480 = 1 To i4493 Step 1
        s5058(i4480) = Str(Val(s5058(i4480)) * 100 / 100)
        s5146(i4480) = Str(Val(s5146(i4480)) * 100 / 100)
        s4629(i4480) = s5014(i4480) + "," + s5058(i4480) + "," + s5102(i4480) + "," + s5146(i4480) + "," + s5190(i4480) + "," + s5278(i4480) + "," + s5234(i4480)
        If s5003(i4480) <> "*" Then
          Print #1, s4629(i4480)
        End If
19077 Next
19100
19121 For i4478 = 1 To 39 Step 1
        Print #1, s5339(i4478)
      Next
19227 Close 1
      Kill ProgPath + "CHGMAST.CFG"
      Name ProgPath + s5331 As ProgPath + "CHGMAST.CFG"
      Open ProgPath + "RESTRICT.CFG" For Output As 1
      Print #1, s4522
      Print #1, s4526
      Close 1
      Return
19320 Print "@07@"
19350 For b4484 = 14 To 67 Step 1
        Locate 10, b4484
        Print "▒"
      Next
19442
19465 For b4484 = 67 To 14 Step - 1
        Locate 11, b4484
        Print "▒"
      Next
19557
19578 For b4484 = 14 To 67 Step 1
        Locate 12, b4484
        Print "▒"
      Next
19670
19693 For b4484 = 67 To 14 Step - 1
        Locate 13, b4484
        Print "▒"
      Next
19785
19806 For b4484 = 14 To 67 Step 1
        Locate 14, b4484
        Print "▒"
      Next
19898
19921 For b4484 = 67 To 11 Step - 1
        Locate 15, b4484
        Print "▒"
      Next
20013 Color 0, 0
      End