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 >
Wrap
Wildcat! WCX
|
1995-01-09
|
2KB
|
71 lines
'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx 1832 bytes 12/30/122 04:13:10pm
'! Code Segment Size :585 bytes
'! Data Segment Size :4513 bytes
'! String Segment Size:1247 bytes
'! Compiled with WCC version 4.01
Dim i4463 As Integer
Dim s4465 As String
Dim s4469 As String
Dim i4473 As Integer
Dim s4475 As String
Dim s4479 As String
Dim dt4491 As DateTime
Dim s4497 As String
Dim s4501 As String
Dim s4509 As String
If BaudRate >= 0 Then
s4479 = Str(BaudRate)
End If
62 If BaudRate = 0 Then
s4479 = "LOCAL"
End If
83 i4463 = Node
s4475 = Pad(s4479, 5)
s4465 = Pad(User.Name, 19)
s4469 = Pad(User.From, 19)
i4473 = User.TimesOn
CurrentDateTime dt4491
Open "msi_lc.cfg" For Input As 2
Input #2, s4497
Close 2
Open s4497 For Append As 3
Color 15, 0
Print #3, " "; s4475;
Print #3, "@09@ ";
Print #3, FormatTime(dt4491.T, "Hh:MM:Ss");
Print #3, "@01@ "; i4463;
Print #3, "@0F@ "; s4465;
Print #3, "@04@"; s4469;
Print #3, "@03@ "; i4473
Close 3
Print "@CLS@@07@"
Print "@0F@ @09@┌@01@───────────────────────────@09@┬@01@───────────────@09@┬@01@────────────────────────────@09@┐"
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@│"
Print "@01@ @09@└┬@01@─────────@09@┬@01@─────────@09@┬@01@─────@09@┬┴@01@───────────────@09@┴@01@─@09@┬@01@──────────────────@09@┬@01@──────@09@┬┘"
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@│"
Print "@01@ @09@└@01@─────────@09@┴@01@─────────@09@┴@01@─────@09@┴@01@──────────────────@09@┴@01@──────────────────@09@┴@01@──────@09@┘@07@"
s4501 = "lclist.BBS"
DisplayHelp s4501
Print "@0F@ @01@┌───────────────────────────┬───────────────┬────────────────────────────┐"
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@│"
Print "@01@ └───────────────────────────┴───────────────┴────────────────────────────┘"
Print "@01@ @8D@Please Remind your SysOp to REGISTER!@07@"
Print "@09@ 10 Second UNREGISTERED Delay"
Delay 10
WaitEnter
CheckMailAtLogon
HelloFiles
CheckNewsletter
CheckBulletins
Open "msilogon.cfg" For Input As 5
Input #5, s4497
Close 5
s4509 = s4497
If Exists(s4509) Then
Chain s4509, ""
End If
540 End