home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / MSI_LC0.ZIP / LOGON.WCX (.txt) < prev    next >
Wildcat! WCX  |  1995-01-09  |  2KB  |  71 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  1832 bytes  12/30/122  04:13:10pm
  3. '! Code Segment Size  :585 bytes
  4. '! Data Segment Size  :4513 bytes
  5. '! String Segment Size:1247 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Dim i4463 As Integer
  9.       Dim s4465 As String
  10.       Dim s4469 As String
  11.       Dim i4473 As Integer
  12.       Dim s4475 As String
  13.       Dim s4479 As String
  14.       Dim dt4491 As DateTime
  15.       Dim s4497 As String
  16.       Dim s4501 As String
  17.       Dim s4509 As String
  18.  
  19.       If BaudRate >= 0 Then
  20.         s4479 = Str(BaudRate)
  21.       End If
  22.    62 If BaudRate = 0 Then
  23.         s4479 = "LOCAL"
  24.       End If
  25.    83 i4463 = Node
  26.       s4475 = Pad(s4479, 5)
  27.       s4465 = Pad(User.Name, 19)
  28.       s4469 = Pad(User.From, 19)
  29.       i4473 = User.TimesOn
  30.       CurrentDateTime dt4491
  31.       Open "msi_lc.cfg" For Input As 2
  32.       Input #2, s4497
  33.       Close 2
  34.       Open s4497 For Append As 3
  35.       Color 15, 0
  36.       Print #3, "     "; s4475;
  37.       Print #3, "@09@    ";
  38.       Print #3, FormatTime(dt4491.T, "Hh:MM:Ss");
  39.       Print #3, "@01@   "; i4463;
  40.       Print #3, "@0F@     "; s4465;
  41.       Print #3, "@04@"; s4469;
  42.       Print #3, "@03@ "; i4473
  43.       Close 3
  44.       Print "@CLS@@07@"
  45.       Print "@0F@   @09@┌@01@───────────────────────────@09@┬@01@───────────────@09@┬@01@────────────────────────────@09@┐"
  46.       Print "@09@   @01@│ @0D@Today's Callers List @05@v@0D@1@05@.@0D@0 @01@│ @8C@UNREGISTERED! @01@│ @0D@Mystik Software@05@, @0D@Inc@05@. 1994 @01@│"
  47.       Print "@01@   @09@└┬@01@─────────@09@┬@01@─────────@09@┬@01@─────@09@┬┴@01@───────────────@09@┴@01@─@09@┬@01@──────────────────@09@┬@01@──────@09@┬┘"
  48.       Print "@09@    @01@│@04@B@0C@aud     @01@│@04@T@0C@ime     @01@│@04@N@0C@ode @01@│@04@C@0C@aller            @01@│@04@F@0C@rom              @01@│@04@C@0C@alls @01@│"
  49.       Print "@01@    @09@└@01@─────────@09@┴@01@─────────@09@┴@01@─────@09@┴@01@──────────────────@09@┴@01@──────────────────@09@┴@01@──────@09@┘@07@"
  50.       s4501 = "lclist.BBS"
  51.       DisplayHelp s4501
  52.       Print "@0F@   @01@┌───────────────────────────┬───────────────┬────────────────────────────┐"
  53.       Print "@01@   │ @09@Today's Callers List @0B@v@09@1@0B@.@09@0 @01@│ @8C@UNREGISTERED! @01@│ @09@Mystik Software@0B@, @09@Inc@0B@. @09@1994 @01@│"
  54.       Print "@01@   └───────────────────────────┴───────────────┴────────────────────────────┘"
  55.       Print "@01@                     @8D@Please Remind your SysOp to REGISTER!@07@"
  56.       Print "@09@                         10 Second UNREGISTERED Delay"
  57.       Delay 10
  58.       WaitEnter 
  59.       CheckMailAtLogon 
  60.       HelloFiles 
  61.       CheckNewsletter 
  62.       CheckBulletins 
  63.       Open "msilogon.cfg" For Input As 5
  64.       Input #5, s4497
  65.       Close 5
  66.       s4509 = s4497
  67.       If Exists(s4509) Then
  68.         Chain s4509, ""
  69.       End If
  70.   540 End 
  71.