home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / TJSL10.ZIP / TJSL.WCX (.txt) < prev    next >
Encoding:
Wildcat! WCX  |  1994-12-22  |  2.7 KB  |  114 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  2798 bytes  06/01/125  06:51:18pm
  3. '! Code Segment Size  :1614 bytes
  4. '! Data Segment Size  :12296 bytes
  5. '! String Segment Size:1184 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Dim i4463 As Integer
  9.       Dim ur4487 As UserRecord
  10.       Dim s5161 As String
  11.       Dim l5165 As Long
  12.       Dim s5169 As String
  13.       Dim s5173 As String
  14.       Dim s5274(0 To 500) As String*10
  15.       Dim l10284(0 To 500) As Long
  16.       Dim l12288 As Long
  17.       Dim l12292 As Long
  18.  
  19.       Dim l65504_ As Long
  20.       Dim l65508_ As Long
  21.       Dim l65512_ As Long
  22.       Dim l65516_ As Long
  23.       Dim l65520_ As Long
  24.       Dim l65524_ As Long
  25.       Dim l65528_ As Long
  26.       Dim l65532_ As Long
  27.  
  28.       Cls 
  29.       MorePrompt(0)
  30.       s5173 = ProgPath + "tjsl.cfg"
  31.       If Exists(s5173) Then
  32.         Open s5173 For Input As 1
  33.         Input #1, s5161
  34.         Input #1, s5169
  35.         Close 1
  36.       Else
  37.   119   Print
  38.         Print "Can't Find " + ProgPath + "TJSL.CFG"
  39.         End 
  40.       End If
  41.   143 Locate 1, 5
  42.       Color 15, 0
  43.       Print "Running TJSL v1.00......please wait"
  44.   187 For l12288 = 1 To 500 Step 1
  45.         s5274(l12288) = "EMPTY     "
  46.         l10284(l12288) = 0
  47.       Next
  48.   327 l12292 = 0
  49.       Locate 2, 5
  50.       Color 15, 0
  51.       Print "Gathering security level information....."
  52.       Locate 3, 5
  53.       Color 13, 0
  54.       Print "SCANNING: "
  55.   377 Do While GetNextUser(ur4487, 1213417543)
  56.         l12292 = l12292 + 1
  57.         Color 7, 0
  58.         Locate 3, 16
  59.         i4463 = Int(l12292 / MasterInfo.TotalUsers * 100)
  60.         Print i4463; "%"
  61.         l5165 = 0
  62.   498   For l12288 = 1 To 500 Step 1
  63.           If ur4487.SecLevel = s5274(l12288) Then
  64.             l5165 = 1
  65.             l10284(l12288) = l10284(l12288) + 1
  66.             GoTo 961
  67.           End If
  68.   674   Next
  69.   697   If l5165 = 0 Then
  70.   733     For l12288 = 1 To 500 Step 1
  71.             If s5274(l12288) = "EMPTY     " Then
  72.               s5274(l12288) = ur4487.SecLevel
  73.               l10284(l12288) = l10284(l12288) + 1
  74.               GoTo 961
  75.             End If
  76.   938     Next
  77.         End If
  78.   961 Loop
  79.   967 Color 7, 0
  80.       Print "     Writing output to file....."
  81.       Open s5161 For Output As 1
  82.       Print #1, "@CLS@@0E@@07@@0F@ @BBS@@0E@"
  83.       Print #1, "@0E@ Security Level Breakdowns  "
  84.       Print #1, "@0B@ @0D@──────────────────────────────────────────────────────────────────────────────@07@"
  85.       Close 1
  86.       Open s5169 For Output As 2
  87.       Print #2, "@NOPAUSE@"
  88.       Print #2, "!|1K|*|w04042D1101|1BH80F0200LS050E000B080900000E050000H8|Y00000100"
  89.       Print #2, "!|1U060900000000<>@BBS@<>"
  90.       Print #2, "!|1U068O00000000<>New Callers This Month<>|c0B|W00|=00000001"
  91.       Print #2, "!|P05000W008G0K8G0K0W0K0W|P05GY0WGY8GHI8GHI0WHI0W|S0109|F0D3B0B|FHA3S0B|#|#|#"
  92.       Print #2, "@CLS@@0E@@07@@0F@ @BBS@@0E@"
  93.       Print #2, "@0E@ Security Level Breakdowns  "
  94.       Print #2, "@0B@ @0D@──────────────────────────────────────────────────────────────────────────────@07@"
  95.       Close 2
  96.       Print "     Writing to "; s5161
  97.       Print "     Writing to "; s5169
  98.       Open s5161 For Append As 1
  99.       Open s5169 For Append As 2
  100.  1230 For l12288 = 1 To 500 Step 1
  101.         If s5274(l12288) <> "EMPTY     " Then
  102.           Print #1, "                    @0F@   "; Pad(s5274(l12288), 10); "@0E@  -- Count -> @0F@ "; l10284(l12288)
  103.           Print #2, "                    @0F@   "; Pad(s5274(l12288), 10); "@0E@  -- Count -> @0F@ "; l10284(l12288)
  104.         End If
  105.  1498 Next
  106.  1521 Print #1, "@07@ @0D@──────────────────────────────────────────────────────────────────────────────@07@"
  107.       Print #1, "@02@ TJSL (WCX v1.00) Written by T&J Software "
  108.       Print #2, "@07@ @0D@──────────────────────────────────────────────────────────────────────────────@07@"
  109.       Print #2, "@02@ TJSL (WCX v1.00) Written by T&J Software "
  110.       Close 1
  111.       Close 2
  112.       Color 7, 0
  113.       End 
  114.