home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / CPAGE0.ZIP / CPKEY.WCX (.txt) < prev    next >
Wildcat! WCX  |  1995-01-05  |  874b  |  57 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  874 bytes  12/30/122  04:17:12pm
  3. '! Code Segment Size  :617 bytes
  4. '! Data Segment Size  :4493 bytes
  5. '! String Segment Size:257 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Dim i4463 As Integer
  9.       Dim s4465(0 To 6) As String
  10.  
  11.       Dim l65530_ As Long
  12.       Dim i65534_ As Integer
  13.  
  14.       Open "cpage.cfg" For Input As 1
  15.    81 For i4463 = 1 To 6 Step 1
  16.         Input #1, s4465(i4463)
  17.       Next
  18.   185 Reset 
  19.       If s4465(2) = MakeWild.BBSName Then
  20.       Else
  21.   237   Print " Line 2 in CPAGE.CFG does not Match Makewild "
  22.       End If
  23.   246 If s4465(3) = MakeWild.SysopName Then
  24.       Else
  25.   295   Print " Line 3 in CPAGE.CFG does not match Makewild "
  26.         Delay 5
  27.       End If
  28.   312 If "86-0001" = MakeWild.RegString Then
  29.         GoTo 364
  30.       Else
  31.   348   Print " This is a 30 Day Evaluation Copy "
  32.         GoTo 568
  33.         End 
  34.       End If
  35.   364 If s4465(5) = "M5TLS3D04591E27R" Then
  36.         GoTo 429
  37.       Else
  38.   414   Print "Line 5 of your CPAGE.CFG does not match your key"
  39.         GoTo 568
  40.       End If
  41.   429 If s4465(2) = MakeWild.BBSName Then
  42.         GoTo 490
  43.       Else
  44.   484   GoTo 568
  45.       End If
  46.   490 If s4465(3) = MakeWild.SysopName Then
  47.         GoTo 551
  48.       Else
  49.   545   GoTo 568
  50.       End If
  51.   551 Locate 9, 17
  52.       Print "@0D@@BBS@"
  53.       End 
  54.   568 Locate 9, 17
  55.       Print "@8E@*@8C@UNREGISTERED@8E@*"
  56.       End 
  57.