ftp.wwiv.com/ftp.wwiv.com.zip/ftp.wwiv.com/pub/BBS/LISTER26.ZIP/LISTER.WCX

Wildcat! WCX | 1995-01-11 | 2KB | 149 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  1842 bytes  12/30/122  04:11:14pm
'! Code Segment Size  :1187 bytes
'! Data Segment Size  :5232 bytes
'! String Segment Size:655 bytes
'! Compiled with WCC version 4.01

      Declare Sub Sub780
      Declare Sub Sub814

      Dim ur4463 As UserRecord
      Dim s5113 As String*10
      Dim s5123 As String*10
      Dim s5133 As String*10
      Dim s5143 As String*25
      Dim s5168 As String*25
      Dim s5193 As String*25
      Dim s5219 As String*1
      Dim s5220 As String
      Dim i5224 As Integer
      Dim i5226 As Integer
      Dim i5228 As Integer
      Dim i5230 As Integer

      Dim l65530_ As Long
      Dim i65534_ As Integer

      CarrierCheck(-1)
      s5220 = ProgPath + "LISTER.CFG"
      Open s5220 For Input As 1
      Input #1, s5113
      Input #1, s5123
      Input #1, s5133
      Input #1, s5143
      Input #1, s5168
      Input #1, s5193
      Reset
      If User.SecLevel = UCase(s5113) Then
        Sub780
        End
      End If
  171 If User.SecLevel = UCase(s5123) Then
        Sub780
        End
      End If
  205 If User.SecLevel = UCase(s5133) Then
        Sub780
        End
      End If
  239 If User.Name = UCase(s5143) Then
        Sub780
        End
      End If
  273 If User.Name = UCase(s5168) Then
        Sub780
        End
      End If
  307 If User.Name = UCase(s5193) Then
        Sub780
        End
      End If
  341 i5230 = 0
      i5228 = 0
      i5224 = 14
      ActivityLog "-=≡:> User Lister Entered <:≡=-"
      Do
  368   Cls
        Print "@0F@     ┌──────────────────────────@0C@UNREGISTERED@0F@──────────────────────────┐"
        Print "@0F@     │@1F@                      User/Alias Lister 2.6                     @0F@│"
        Print "@0F@     └────────────────────────────────────────────────────────────────┘"
        Print "@0A@        REAL NAME                ALIAS NAME                SEC LEVEL"
        Print "@0A@     ─════════════════════════════════════════════════════════════════─"
        If i5228 = 0 Then
          GetUser(ur4463, "")
          Print Tab(7); "@0B@"; ur4463.Name; Tab(34); "@0E@"; ur4463.Alias; Tab(60); "@0D@"; ur4463.SecLevel
          i5228 = 1
        End If
  530
  554   For i5226 = 1 To i5224 Step 1
          If Not GetNextUser(ur4463, 1213417543) Then
            i5230 = 1
            WaitEnter
            End
          Else
  640       Print Tab(7); "@0B@"; ur4463.Name; Tab(34); "@0E@"; ur4463.Alias; Tab(60); "@0D@"; ur4463.SecLevel
          End If
  721   Next
  744   Sub814
        i5224 = 15
      Loop While i5230 = 0
      End

'! Called 6 times
      Sub Sub780
        ActivityLog "-=≡:> User Lister Access Denied <:≡=-"
        Print
        Print "@0E@Sorry, but you do not have access to this door!"
        WaitEnter
      End Sub

'! Called 1 time
      Sub Sub814
        Dim i65530 As Integer
        Dim i65532 As Integer
        Dim i65534 As Integer

        i65534 = 1
        i65532 = 1
        i65530 = 24
        Do
  844     s5219 = InKey(1213417543)
          If UCase(s5219) = "S" Then
            End
          End If
  881     If Asc(s5219) = 13 Then
            GoTo 1184
          End If
  906     Locate 22, 7
          Print "@0E@Press [@0F@S@0E@]top or [";
          Locate 22, 24
          Print "@0F@" + "enter" + "@0E@] to continue...";
          Locate 22, i65530
          Print "@0F@" + UCase(Mid("enter", i65532, 1));
          If i65534 = 1 Then
            i65532 = i65532 + 1
            i65530 = i65530 + 1
          Else
 1040       i65532 = i65532 - 1
            i65530 = i65530 - 1
          End If
 1068     If i65532 > 5 Then
            i65532 = 4
            i65534 = 2
          End If
 1097     If i65532 < 1 Then
            i65532 = 2
            i65534 = 1
          End If
 1126     If i65530 > 28 Then
            i65530 = 27
          End If
 1148     If i65530 < 24 Then
            i65530 = 25
          End If
 1170     Delay 0.1
        Loop
 1184
      End Sub