home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
BBS
/
CYBRFY24.ZIP
/
FORWC401.ZIP
/
CYBERFY.WCX
(
.txt
)
< prev
Wrap
Wildcat! WCX
|
1995-06-09
|
30KB
|
1,636 lines
'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx 30486 bytes 12/30/122 05:09:38pm
'! Code Segment Size :13576 bytes
'! Data Segment Size :6209 bytes
'! String Segment Size:16910 bytes
'! Compiled with WCC version 4.01
Type Type27
Filler0(1 To 6) As Byte
s6 As String*70
Filler76(1 To 14) As Byte
s90 As String*70
Filler160(1 To 14) As Byte
s174 As String*70
Filler244(1 To 20) As Byte
w264 As Word
End Type
Type Type26
Filler0(1 To 6) As Byte
s6 As String*70
Filler76(1 To 14) As Byte
s90 As String*70
Filler160(1 To 14) As Byte
s174 As String*70
Filler244(1 To 20) As Byte
w264 As Word
End Type
Declare Function Func13266(mh65534 As MessageHeader) As Integer
Declare Function Func13421(mh65534 As MessageHeader) As Integer
Dim s4463 As String
Dim s4467 As String
Dim s4471 As String
Dim i4475 As Integer
Dim s4477 As String
Dim s4481 As String*3
Dim i4484 As Integer
Dim s4486 As String
Dim s4490 As String
Dim s4494 As String
Dim s4498 As String
Dim s4502 As String
Dim s4506 As String
Dim s4510 As String
Dim s4514 As String
Dim s4518 As String
Dim s4522 As String
Dim s4526 As String
Dim s4530 As String
Dim s4534 As String
Dim s4538 As String
Dim s4542 As String
Dim s4546 As String
Dim s4550 As String
Dim s4554 As String
Dim s4558 As String
Dim s4562 As String
Dim i4566 As Integer
Dim i4568 As Integer
Dim i4570 As Integer
Dim s4572 As String
Dim s4576 As String
Dim s4580 As String
Dim s4584 As String
Dim s4588 As String
Dim s4592 As String
Dim s4596 As String
Dim i4600 As Integer
Dim i4602 As Integer
Dim s4604 As String
Dim s4608 As String
Dim i4612 As Integer
Dim s4614 As String
Dim s4618 As String*1
Dim s4619 As String
Dim i4623 As Integer
Dim w4625 As Word
Dim i4627 As Integer
Dim s4629 As String
Dim s4633 As String
Dim s4637 As String
Dim s4641 As String
Dim s4645 As String
Dim s4649 As String
Dim s4653 As String
Dim s4657 As String
Dim s4661 As String
Dim s4665 As String
Dim s4669 As String
Dim s4673 As String
Dim s4677 As String
Dim s4681 As String
Dim t4685 As Time
Dim d4689 As Date
Dim s4691 As String
Dim i4695 As Integer
Dim s4697 As String
Dim ur4701 As UserRecord
Dim s5353 As String
Dim s5357 As String
Dim s5371 As String
Dim s5375 As String
Dim s5379 As String
Dim i5383 As Integer
Dim i5385 As Integer
Dim s5411 As String
Dim s5415 As String
Dim s5419 As String
Dim i5423 As Integer
Dim s5425 As String
Dim s5429 As String
Dim s5433 As String
Dim i5445 As Integer
Dim s5447 As String
Dim s5451 As String
Dim s5455 As String
Dim i5459 As Integer
Dim s5461 As String
Dim w5465 As Word
Dim s5467 As String
Dim s5471 As String
Dim i5475 As Integer
Dim s5477 As String
Dim i5481 As Integer
Dim s5483 As String
Dim s5487 As String
Dim s5491 As String
Dim s5495 As String
Dim i5499 As Integer
Dim i5501 As Integer
Dim mh5503 As MessageHeader
Dim s5823 As String
Dim s5827 As String
Dim i5831 As Integer
Dim i5833 As Integer
Dim i5835 As Integer
Dim i5837 As Integer
Dim i5839 As Integer
Dim i5841 As Integer
Dim i5843 As Integer
Dim i5845 As Integer
Dim i5847 As Integer
Dim s5849 As String
Dim s5857 As String
Dim i5861 As Integer
Dim s5863 As String
Dim s5867 As String
Dim s5871 As String
Dim s5875 As String
Dim s5879 As String
Dim mh5883 As MessageHeader
Dim s6203 As String
Dim i6207 As Integer
Dim l65530_ As Long
Dim i65534_ As Integer
Open "CBVPATH.DAT" For Output As 1
Print #1, ProgPath
Close 1
s4471 = ProgPath + "CYBERFY.CFG"
If Exists(s4471) Then
i4475 = 0
Else
112 i4475 = -1
End If
120 s4477 = ProgPath + "CBCONFIG.WCX"
If i4475 = -1 Then
If Exists(s4477) And User.Name = MakeWild.SysopName Then
Run s4477, ""
End
Else
206 Print "@0E@You must run CBVCONFIG.WCX before running the main program."
WaitEnter
End
End If
End If
219 If Not Exists("CBVGOSEC.DAT") Then
Else
241 Open "CBVGOSEC.DAT" For Input As 1
Input #1, s4463
Input #1, s4467
Close 1
If User.SecLevel = s4463 Then
Else
308 If User.SecLevel = s4467 Then
Else
336 GoTo 12894
End If
End If
342 GoSub 354
GoTo 1180
354 s4481 = "2.4"
If Not Exists("CBVPATH.DAT") Then
If Exists("CYBERFY.WCX") Then
s4486 = ""
Else
410 If Exists("VERIFIER\CYBERFY.WCX") Then
s4486 = "VERIFIER\"
Else
439 If Exists("CYBER\CYBERFY.WCX") Then
s4486 = "CYBER\"
Else
468 If Exists("CBV\CYBERFY.WCX") Then
s4486 = "CBV\"
Else
497 If Exists("CYBERFY\CYBERFY.WCX") Then
s4486 = "CYBERFY\"
Else
526 Open "ERROR.LOG" For Append As 1
Print #1, "";
Print #1, String(79, "─")
Print #1, "Error running Cyberfier! CBVPATH.DAT not found in wildcat! home directory."
Print #1, "You need to run the sysop config program for Cyberfier to set path."
Close 1
GoTo 12894
End If
End If
End If
End If
End If
602 Open "CBVPATH.DAT" For Output As 1
Print #1, s4486
Close 1
GoTo 680
Else
648 Open "CBVPATH.DAT" For Input As 1
Input #1, s4486
Close 1
End If
680 If Right(s4486, 1) <> "\" Then
s4486 = s4486 + "\"
Open "CBVPATH.DAT" For Output As 1
Print #1, s4486
Close 1
End If
751 s4490 = MakeWild.BBSName
s4494 = MakeWild.SysopName
s4614 = s4486 + "CYBERFY.CFG"
Open s4614 For Input As 1
Input #1, s4498
Input #1, s4502
Input #1, s4510
Input #1, s4514
Input #1, s4522
Input #1, s4526
Input #1, s4534
Input #1, s4538
Input #1, s4546
Input #1, s4550
Input #1, s4558
Input #1, s4562
Input #1, i4568
Input #1, i4570
Input #1, s4572
Input #1, s4576
Input #1, s4580
Input #1, s4584
Input #1, s4588
Input #1, s4592
Input #1, s4596
Input #1, i4600
Input #1, i4602
Input #1, s4604
Input #1, s4608
Input #1, i4612
Close 1
If User.SecLevel = s4498 Then
s4506 = s4510
s4518 = s4522
s4530 = s4534
s4542 = s4546
s4554 = s4558
i4566 = i4568
End If
1077 If User.SecLevel = s4502 Then
s4506 = s4514
s4518 = s4526
s4530 = s4538
s4542 = s4550
s4554 = s4562
i4566 = i4570
End If
1149 s4619 = s4486 + "CYBERLOG."
s4619 = s4619 + Str(Node)
1180 If RIPDetected Then
w4625 = 1
i4623 = 1
End If
1203 If ANSIDetected Then
w4625 = 0
i4623 = 1
End If
1225 If Not Exists("VERIFIER.KEY") Then
i4627 = 0
Else
1253 Open "VERIFIER.KEY" For Input As 5
Input #5, s4629
s4633 = Right(s4629, 2)
GoSub 1610
s4637 = s4633
Input #5, s4629
s4633 = Right(s4629, 2)
GoSub 1610
s4641 = s4633
Input #5, s4629
s4633 = Right(s4629, 2)
GoSub 1610
s4645 = s4633
Input #5, s4629
s4633 = Right(s4629, 2)
GoSub 1610
s4649 = s4633
Close 5
s4494 = UCase(MakeWild.SysopName)
s4657 = Right(s4494, 2)
s4653 = Right(s4657, 1)
s4657 = Left(s4657, 1)
s4665 = Left(s4494, 2)
s4661 = Left(s4665, 1)
s4665 = Right(s4665, 1)
If s4661 <> s4637 Then
Else
1531 If s4665 <> s4641 Then
Else
1553 If s4657 <> s4645 Then
Else
1575 If s4653 <> s4649 Then
Else
1597 i4627 = 1
GoTo 2358
1610 If s4633 = "36" Then
s4633 = "A"
Return
End If
1637 If s4633 = "35" Then
s4633 = "B"
Return
End If
1664 If s4633 = "34" Then
s4633 = "C"
Return
End If
1691 If s4633 = "33" Then
s4633 = "D"
Return
End If
1718 If s4633 = "32" Then
s4633 = "E"
Return
End If
1745 If s4633 = "31" Then
s4633 = "F"
Return
End If
1772 If s4633 = "30" Then
s4633 = "G"
Return
End If
1799 If s4633 = "29" Then
s4633 = "H"
Return
End If
1826 If s4633 = "28" Then
s4633 = "I"
Return
End If
1853 If s4633 = "27" Then
s4633 = "J"
Return
End If
1880 If s4633 = "26" Then
s4633 = "K"
Return
End If
1907 If s4633 = "25" Then
s4633 = "L"
Return
End If
1934 If s4633 = "24" Then
s4633 = "M"
Return
End If
1961 If s4633 = "23" Then
s4633 = "N"
Return
End If
1988 If s4633 = "22" Then
s4633 = "O"
Return
End If
2015 If s4633 = "21" Then
s4633 = "P"
Return
End If
2042 If s4633 = "20" Then
s4633 = "Q"
Return
End If
2069 If s4633 = "19" Then
s4633 = "R"
Return
End If
2096 If s4633 = "18" Then
s4633 = "S"
Return
End If
2123 If s4633 = "17" Then
s4633 = "T"
Return
End If
2150 If s4633 = "16" Then
s4633 = "U"
Return
End If
2177 If s4633 = "15" Then
s4633 = "V"
Return
End If
2204 If s4633 = "14" Then
s4633 = "W"
Return
End If
2231 If s4633 = "13" Then
s4633 = "X"
Return
End If
2258 If s4633 = "12" Then
s4633 = "Y"
Return
End If
2285 If s4633 = "11" Then
s4633 = "Z"
Return
End If
End If
End If
End If
End If
2312 Del "VERIFIER.KEY"
i4627 = 0
Beep
Beep
Print ""
Print " @0C@INVALID REGISTRATION KEY!!!@0E@";
Delay 3
End If
2358 CurrentDate d4689
CurrentTime t4685
s4669 = FormatDate(d4689, "mm/dd/yy")
s4681 = FormatTime(t4685, "hh:mm")
If Not Exists("THEDATE.DAT") Then
Open "THEDATE.DAT" For Output As 1
Print #1, s4669
Close 1
End If
2450 Open "THEDATE.DAT" For Input As 1
Input #1, s4673
Close 1
If s4669 > s4673 Then
Open "THEDATE.DAT" For Output As 1
Print #1, s4669
Close 1
s4677 = s4486 + "CBVTODAY.USR"
Del s4677
End If
2554 Open s4619 For Append As 1
Print #1, "@07@";
Print #1, String(79, "─")
Print #1, "@0F@";
Print #1, User.Name;
Print #1, "@0B@ used the Cyberfier at @0F@";
Print #1, s4681;
Print #1, "@0B@ on @0F@";
Print #1, s4669
Close 1
If RIPDetected Then
If Not DisplayFile("CBVCLEAR") Then
DisplayFile("POSTRIP")
End If
End If
2700 Cls
If i4627 = 1 Then
i4695 = 79 - Len(s4490)
i4695 = Int(i4695) / 2
s4691 = " @3B@█@3A@"
Do
2766 s4691 = s4691 + " "
Loop Until AtLen(s4691) = i4695
s4691 = s4691 + "@3F@"
s4691 = s4691 + s4490
s4691 = s4691 + "@3F@"
Do
2845 s4691 = s4691 + " "
Loop Until AtLen(s4691) = 64
s4691 = s4691 + "@31@█@0F@"
Else
2898 s4691 = " @3B@█@3F@ This copy of Cyberfier is unregistered @31@█@0F@"
End If
2907 Print ""
Print ""
Print ""
Print " @3B@█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@31@█@0F@"
Print " @3B@█ @31@█@0F@"
Print " @3B@█@3F@ CYBERFIER! Version "; s4481; " @31@█@0F@"
Print " @3B@█ @31@█@0F@"
Print " @3B@█════════════════════════════════════════════════@31@█@0F@"
Print " @3B@█@3E@ Developed by Crazy Larry's Online Art @31@█@0F@"
Print " @3B@█════════════════════════════════════════════════@31@█@0F@"
Print " @3B@█ @31@█@0F@"
Print " @3B@█@3A@ Registered to: @31@█@0F@"
Print s4691
Print " @3B@█ @31@█@0F@"
Print " @3B@█@31@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█@0F@";
Delay 3
Cls
DisplayFile("CBVINTRO")
Do
Do
Do
Do
Do
Do
3076 Do While DisplayStopped
Loop
3091 If Not DisplayFile("CBVMENU") Then
If RIPDetected Then
If Not DisplayFile("CBVCLEAR") Then
DisplayFile("POSTRIP")
End If
End If
3141 Print "@CLS@@0F@@NOPAUSE@@NOSTOP@"
Print " @3B@█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@0F@"
Print " @3B@█ @09@ @10@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@3B@█ @0F@"
Print " @3B@█ @09@ @19@ ┌───@10@┐@19@┌@10@┐@19@ ┌@10@┐@19@┌───@10@┐@19@ ┌───@10@┐@19@┌────@10@┐@19@┌───@10@┐@19@┌@10@┐@19@┌───@10@┐@19@┌────@10@┐@19@ @10@ @3B@█ @0F@"
Print " @3B@█ @09@ @19@ │@10@┌──┘@19@│@10@│@1F@ @19@│@10@│@19@│@10@┌─@19@┐@10@│@1F@ @19@│@10@┌──┘@19@│@10@┌──@19@┐@10@│@19@│@10@┌──┘@19@│@10@│@19@│@10@┌──┘@19@│@10@┌──@19@┐@10@│@1F@ @10@ @3B@█ @0F@"
Print " @3B@█ @09@ @19@ │@10@│ @1F@ @19@│@10@└@19@──┘@10@│@19@│@10@└@19@─┘@10@└┐@19@│@10@└@19@─@10@┐ @19@│@10@└@19@──┘@10@│@19@│@10@└@19@─@10@┐ @19@│@10@│@19@│@10@└@19@─@10@┐ @19@│@10@└@19@──┘@10@│@1F@ @10@ @3B@█ @0F@"
Print " @3B@█ @09@ @19@ │@10@│ @1F@ @19@└@10@─┐┌─┘@19@│@10@┌──┐│@19@│@10@┌─┘ @19@│@10@┌─┐┌┘@19@│@10@┌─┘ @19@│@10@│@19@│@10@┌─┘ @19@│@10@┌─┐┌┘@1F@ @10@ @3B@█ @0F@"
Print " @3B@█ @09@ @19@ │@10@└@19@──@10@┐@1F@ @19@│@10@│ @19@│@10@└@19@──┘@10@│@19@│@10@└@19@──@10@┐@19@│@10@│@1F@ @19@│@10@└┐@19@│@10@│ @19@│@10@│@19@│@10@└@19@──@10@┐@19@│@10@│@1F@ @19@│@10@└┐@1F@ @3B@█ @0F@"
Print " @3B@█ @09@ @19@ └@10@───┘@1F@ @19@└@10@┘ @19@└@10@────┘@19@└@10@───┘@19@└@10@┘@1F@ @19@└@10@─┘@19@└@10@┘ @19@└@10@┘@19@└@10@───┘@19@└@10@┘@1F@ @19@└@10@─┘@1F@ @3B@█ @0F@"
Print " @3B@█ @09@ @13@ Complete callback verification system @3B@█ @0F@"
Print " @3B@█ @09@ @10@ @3B@█ @0F@"
Print " @3B@█ @09@ @10@ ┌───@19@┐ @10@┌──────────────────────────────────@19@┐@10@ @3B@█ @0F@"
Print " @3B@█ @09@ @10@ │@1F@ C @19@│ @10@│@1B@ Use the call back verifier @19@│@10@ @3B@█ @0F@"
Print " @3B@█ @09@ @10@ │@1F@ A @19@│ @10@│@1B@ Abort callback, comment to sysop @19@│@10@ @3B@█ @0F@"
Print " @3B@█ @09@ @10@ │@1F@ G @19@│ @10@│@1B@ Goodbye/Log off @19@│@10@ @3B@█ @0F@"
Print " @3B@█ @09@ @10@ │@1F@ H @19@│ @10@│@1B@ Help with Call back verifier @19@│@10@ @3B@█ @0F@"
Print " @3B@█ @09@ @10@ └@19@───┘ @10@└@19@──────────────────────────────────┘@10@ @3B@█ @0F@"
Print " @3B@█ @09@ @10@ @3B@█ @0F@"
Print " @3B@█ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @07@"
End If
3312 Print ""
Print "@0A@ What would you like to do @0F@@FIRST@?@07@ >> @0E@";
Do
3330 s4618 = UCase(InKey(1213417543))
Loop Until s4618 > ""
If (s4618 = "G") = 0 Then GoTo 3500
If RIPDetected Then
DisplayFile("CBVCLEAR")
Print ""
Print ""
Print ""
End If
3430 Print ""
If InputYesNo("@0C@ Are you sure you want to log off? @0E@", 1213417543) Then
i4484 = 0
GoSub 10713
DisplayFile("GOODBYE")
Goodbye 1213417543
End
GoTo 3500
End If
3494 Loop
3500 If s4618 = "A" Then
GoTo 3670
End If
3525 If (s4618 = "H") = 0 Then GoTo 3556
GoTo 3887
Loop
3556 If s4618 = "C" Then
Cls
GoTo 4111
End If
3584 If (s4618 = "S") = 0 Then GoTo 3664
If (s4494 = User.Name) = 0 Then GoTo 3658
s4697 = s4486 + "CBCONFIG.WCX"
Run s4697, ""
Loop
3658 Loop
3664 Loop
3670 Do While DisplayStopped
Loop
3685 If Not DisplayFile("CBVSKIP") Then
If Not DisplayFile("CBVCLEAR") Then
DisplayFile("POSTRIP")
End If
3726 Print "@CLS@"
Print ""
Print ""
Print ""
Print ""
Print "@0B@ You have chosen to skip the call back verification. This"
Print " means that you will not be given full access to the system."
Print " If there is a reason why using the verifier is not possible,"
Print " please explain in a message to the SysOp, ";
Print s4494;
Print "."
Print ""
End If
3833 i4484 = 3
GoSub 10713
WaitEnter
Join 0
If Not DisplayFile("CBVCLEAR") Then
DisplayFile("POSTRIP")
End If
3878 Comment
GoTo 12629
3887 If Not DisplayFile("CBVHELP") Then
If Not DisplayFile("CBVCLEAR") Then
DisplayFile("POSTRIP")
End If
3928 Cls
Print ""
Print " @0A@ Help with Callback options: "
Print ""
Print " @1E@ USE CYBERFIER CALL BACK @0B@"
Print " This option will run the callback verifier, during"
Print " this proccess, you will be given step by step instructions"
Print " on what to do to successfully complete verfication."
Print ""
Print " @1E@ ABORT CALLBACK VERIFIER @0B@"
Print " This option will allow you to leave a message for the "
Print " System operator. It is recommended that you use this option"
Print " only if for some reason calling you back is not convenient."
Print " If you select this option, your access to the BBS will be"
Print " very limited."
Print ""
Print " @1E@ GOODBYE / LOG OFF @0B@"
Print " Simply stated, this option will immediately log you off"
Print " the BBS, without using the verifier."
Print ""
End If
4102 WaitEnter
Loop
4111 If RIPDetected Then
If Not DisplayFile("CBVCLEAR") Then
DisplayFile("POSTRIP")
End If
End If
4145 s5379 = Right(User.PhoneNumber, 2)
If Left(s5379, 1) = "-" Then
GoSub 5032
End If
4192 If Len(Trim(User.PhoneNumber)) < 8 Then
GoTo 4683
End If
4224 Cls
Print ""
Print ""
Print ""
Print ""
Print ""
Print "@0B@ Call you back now at @0F@";
Print User.PhoneNumber;
If InputYesNo("@0B@ ? @0E@", 1213417543) Then
Cls
Print "@07@Working.";
s5357 = User.PhoneNumber
Print "@07@.";
s5371 = s5357
Print "@07@.";
Else
Do
4372 If User.DataNumber > "" Then
Print ""
Print "@0B@ Call you back now at @0F@";
Print User.DataNumber;
If InputYesNo("@0B@ ? @0E@", 1213417543) Then
Print "@07@Working.";
s5357 = User.DataNumber
Print "@07@.";
s5371 = s5357
Print "@07@.";
GoTo 5205
End If
End If
4501 If User.FAXNumber > "" Then
Print ""
Print "@0B@ Call you back now at @0F@";
Print User.FAXNumber;
If InputYesNo("@0B@ ? @0E@", 1213417543) Then
Print "@07@Working.";
s5357 = User.FAXNumber
Print "@07@.";
s5371 = s5357
Print "@07@.";
GoTo 5205
End If
End If
4630 GoTo 4683
s5379 = Right(User.PhoneNumber, 2)
If Left(s5379, 1) = "-" Then
GoSub 5032
End If
4683 Cls
Locate 12, 1
s5375 = InputMask("@0B@Enter the number you can be reached at now@0F@ >>@0E@ ", " 999-999-9999 ", "", 1213417543)
GoTo 4726
4726 Print ""
Print ""
Print "@0B@ You entered @0F@"; s5375; "@0B@,";
If InputYesNo("@0B@ is that correct? @0E@", 1213417543) Then
If s5375 = User.PhoneNumber Then
GoTo 4224
End If
4813 If Len(Trim(User.PhoneNumber)) < 8 Then
User.PhoneNumber = s5375
End If
4853 User.DataNumber = s5375
s5371 = s5375
If Exists("BADPHONE.LST") Then
Open "BADPHONE.LST" For Input As 1
4909 Do While Not EOF(1)
Input #1, s5353
If s5375 = s5353 Then
Close 1
Print ""
Print " @0C@Sorry, that number is not valid on this system, try another"
Print ""
WaitEnter
Cls
GoTo 4372
End If
4989 Loop
4995 Close 1
GoTo 5205
End If
5006 GoTo 5018
End If
5012 Loop
5018 s5371 = s5375
GoTo 6234
Do
5032 Cls
Print ""
Print ""
Print "@0C@ According to our records, you entered your phone number"
Print " Incorrectly when you filled out the questionnaire. Seems"
Print " you had forgotten to include your area code.@0B@"
Print ""
Print ""
s5357 = InputMask("@0B@Enter the number you can be reached at now@0F@ >>@0E@ ", " 999-999-9999 ", "", 1213417543)
Print ""
Print ""
Print " You entered "; s5357; ",";
If InputYesNo(" is that correct? ", 1213417543) Then
User.PhoneNumber = s5357
Return
End If
5199 Loop
End If
5205 Print "@07@.";
Print "@07@.";
If UCase(s4554) = "YES" Then
GoTo 5270
Else
5255 GoTo 6234
End If
5261 Print "@07@.";
5270 If UCase(User.Title) = "NEW USER" Then
Else
5303 i5383 = Int(MasterInfo.TotalUsers / 59) + 1
CarrierCheck(0)
Cls
If i4623 = 1 Then
Locate 5, 1
Print "@07@ @1F@█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█@07@"
Print "@07@ @1F@█ @1E@CYBERFIER!@1F@ v"; s4481; " █@07@"
Print "@07@ @1F@█───────────────────────────────────────────────────────────────────█@07@"
Print "@07@ @1F@█@1A@ Now searching user database for possible duplications @1F@█@0E@"
Print "@0E@ @1F@█ █@07@"
Print "@07@ @1F@█ 0% 25% 50% 75% 100% █@07@"
Print "@07@ @1F@█@19@ ┌─┴─────────────┴──────────────┴──────────────┴──────────────┴─@10@┐@1B@ @1F@█@07@"
Print "@07@ @1F@█@19@ │@1B@ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ @10@│@1B@ @1F@█@07@"
Print "@07@ @1F@█@19@ └@10@──────────────────────────────────────────────────────────────┘@1B@ @1F@█@0E@"
Print "@0E@ @1F@█ █@0E@"
Print "@0E@ @1F@█ This process may take a few minutes, please be patient. █@0E@"
Print "@0E@ @1F@█ █@07@"
Print "@07@ @1F@█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█@0E@"
Locate 12, 10
Print "@1B@";
Else
5516 Print ""
Print "@NOPAUSE@@NOSTOP@@0A@Checking for duplicate users "
Print ""
Print "@0C@This process may take a while, so please be patient..."
Print ""
End If
5561 GetUser(ur4701, "")
Do
5573 If User.Name = ur4701.Name Then
Else
5607 If s5371 = ur4701.PhoneNumber Then
s5353 = ur4701.PhoneNumber
GoTo 5949
End If
5649 If s5371 = ur4701.FAXNumber Then
s5353 = ur4701.FAXNumber
GoTo 5949
End If
5691 If s5371 = ur4701.DataNumber Then
s5353 = ur4701.DataNumber
GoTo 5949
End If
End If
5733 If i4623 = 1 Then
i5385 = i5385 + 1
If i5385 = i5383 Then
Print "@NOSTOP@@1B@▓";
i5385 = 0
End If
End If
5795 Loop Until Not GetNextUser(ur4701, 1213417543)
User.Title = "New User"
If i4623 = 1 Then
Locate 12, 10
Print "@1B@▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓ "
Locate 15, 1
Print "@0E@ @1F@█@1E@ No duplications found, thank you for your patience! @1F@█@07@"
Locate 20, 1
Else
5890 Locate 12, 1
Print "@0A@"
Print ""
Print "@0B@Passed Duplicate user check! "
Print ""
End If
5933 CarrierCheck(-1)
WaitEnter
GoTo 6234
5949 Locate 12, 1
Print "@0C@@BELL@"
s5353 = " " + s5353
s5353 = ur4701.Name + s5353
i4484 = 2
GoSub 10713
Print "@0E@"
Cls
If Not DisplayFile("CBVDUPE") Then
Print ""
Print ""
Print ""
Print "@0C@ Another user with the same phone number has been spotted in our"
Print " records. Since this is considered a violation of BBS policy here,"
Print " you will not be granted access. If there is a justifiable reason"
Print " for this duplication, please explain in the following message to"
Print " the sysop, "; s4494; ". Thank you."
Print ""
Print ""
Print ""
End If
6153 CarrierCheck(-1)
WaitEnter
Comment
If RIPDetected Then
If Not DisplayFile("CBVCLEAR") Then
DisplayFile("POSTRIP")
End If
End If
6200 Cls
Locate 12, 32
Print "@0C@ACCESS DENIED!"
Locate 20, 1
Goodbye 1213417543
End If
6234 Reset
i5423 = 0
s5451 = s4486 + "PREFIX.LST"
If Left(s5371, 3) <> s4588 Then
Else
6285 s5419 = s5371
s5447 = Right(s5371, 8)
s5371 = s5447
If Len(s5371) > 8 Then
s5455 = Right(s5371, 8)
s5415 = Left(s5455, 3)
Else
6363 s5415 = Left(s5371, 3)
End If
6376 If Not Exists(s5451) Then
GoTo 6610
End If
6397 Open s5451 For Input As 6
6416 Do While Not EOF(6)
Input #6, s5411
If s5415 = s5411 Then
Close 6
If s4596 = "HANGUP" Then
i5423 = 1
End If
6481 GoTo 6610
End If
6487 Loop
6493 Close 6
GoTo 6504
End If
6504 Cls
Print ""
Print ""
Print ""
Print "@0B@ Our records indicate that you are calling long distance,"
If InputYesNo("@0B@ is that Correct? @0E@", 1213417543) Then
GoTo 9384
End If
6568 If Len(s5371) > 8 Then
i5445 = 0
Else
6597 i5445 = 1
End If
6604 GoTo 6610
6610 Cls
If Not DisplayFile("CBVINSTR") Then
Print ""
Print "@0F@ @4E@ C A L L B A C K V E R I F I C A T I O N I N S T R U C T I O N S @0E@"
Print ""
Print ""
Print " @07@You are about to be called at the number that you have specified."
Print " When you see the @0F@NO CARRIER@07@ message on your screen, you will have"
Print " about ";
Print i4602;
Print " seconds to prepare your system to answer to phone. To do this,"
Print " simply wait until you hear the phone ring, and then type the command:"
Print " @0F@ATA@07@ and press ENTER. This will tell your modem to answer the phone"
Print " and connect once again to @BBS@."
Print ""
Print " When you have re-connected, You will be asked to enter your First and"
Print " Last Name, and then your password. If you enter this information "
Print " correctly, you will be verified, and your access level will be raised!"
Print ""
End If
6782 WaitEnter
If RIPDetected Then
If Not DisplayFile("CBVCLEAR") Then
DisplayFile("POSTRIP")
End If
End If
6819 Cls
If Local Then
Locate 12, 1
Print " @0B@Local mode detected, Call-back will not be performed";
Locate 20, 1
WaitEnter
Else
6863 Cls
Print "@0E@We hope to make you a member of @0F@@BBS@@0E@!"
Print ""
Print "@0A@When you see the @0F@NO CARRIER@0A@ appear on your terminal, "
Print "enter @0F@ATZ@07@ (return)@0A@. Then, when you hear your phone ring,"
Print "enter @0F@ATA@07@ (return)@0A@ to answer with your modem."
Print ""
Print "@0E@Now disconnecting..."
Print ""
End If
6938 w5465 = 0
If Not Local Then
CarrierCheck(0)
HangUp
Do
6963 s5467 = InKey(1213417543)
Loop Until s5467 = ""
End If
6992 If Local Then
GoTo 8572
End If
7007 GoSub 7019
GoTo 7398
7019 Cls
Locate 4, 1
Print "@07@ @1F@╔════════════════════════════════════════════════════════╗@07@"
Print "@07@ @1F@║ @1E@Cyberfier! ver. "; s4481; " Callback verfication in progress@1F@ ║@07@"
Print "@07@ @1F@╠════════════════════════════════════════════════════════╣@07@"
Print "@07@ @1F@║@1A@ Users Name@1E@: @1F@║@07@"
Print "@07@ @1F@║@1A@ Address Line 1@1E@: @1F@║@07@"
Print "@07@ @1F@║@1A@ Address Line 2@1E@: @1F@║@07@"
Print "@07@ @1F@║@1A@ City, State@1E@: @1F@║@07@"
Print "@07@ @1F@║@1A@ Voice Number@1E@: @1F@║@07@"
Print "@07@ @1F@║@1A@ Data/BBS Number@1E@: @1F@║@07@"
Print "@07@ @1F@║@1A@ Fax Number@1E@: @1F@║@07@"
Print "@07@ @1F@║@1A@ Security Level@1E@: @1F@║@07@"
Print "@07@ @1F@╠════════════════════════════════════════════════════════╣@07@"
Print "@07@ @1F@║@1A@ Last Modem Command@1E@: @1F@║@07@"
Print "@07@ @1F@║@1A@ Retries@1E@: @1A@ of @1F@"; i4612; " @1F@║@07@"
Print "@07@ @1F@║@1A@ Time Remaining@1E@: @1F@║@07@"
Print "@07@ @1F@╠════════════════════════════════════════════════════════╣@07@"
Print "@07@ @1F@║@1B@ Press @1F@!@1B@ to abort this callback @1F@║@07@"
Print "@07@ @1F@╚════════════════════════════════════════════════════════╝@07@"
Locate 7, 35
Print "@1F@@USER@";
Locate 8, 35
Print "@1F@"; User.Address1;
Locate 9, 35
Print "@1F@"; User.Address2;
Locate 10, 35
Print "@1F@@CITY@, @STATE@";
Locate 11, 35
Print "@1F@@PHONE@";
Locate 12, 35
Print "@1F@@DATA@";
Locate 13, 35
Print "@1F@"; User.FAXNumber;
Locate 14, 35
Print "@1F@"; User.SecLevel;
Return
7398 If i5459 > i4612 Then
GoTo 10425
End If
7422 If i5459 > 0 Then
Else
7442 If i4600 > 0 Then
Locate 18, 35
Print "@1F@Pausing "; i4600; " seconds before dialing@0F@";
Delay i4600
Else
7501 Locate 18, 35
Print "@1F@Pausing 5 seconds before dialing@0F@";
Delay 5
End If
7525 Locate 18, 35
Print "@1F@ ";
End If
Do
7541 i5459 = i5459 + 1
If i5459 > i4612 Then
Else
7579 Locate 17, 35
Print "@1F@"; i5459;
Locate 16, 35
Print "@1F@ ";
Locate 16, 35
Print "@1F@+++";
Send "+++" + Chr(13)
Delay 1.5
Locate 16, 35
Print "@1F@ ";
Locate 16, 35
Print "@1F@ATZ0";
Send "ATZ0" + Chr(13)
Delay 1.5
Locate 16, 35
Print "@1F@ ";
Locate 16, 35
Print "@1F@ATH1";
Send "ATH1" + Chr(13)
Delay 1.5
Locate 16, 35
Print "@1F@ ";
Locate 16, 35
Print "@1F@ATM0";
Send "ATM0" + Chr(13)
Delay 1.5
If Trim(s4608) > "" Then
Locate 16, 35
Print "@1F@ ";
Locate 16, 35
Print "@1F@"; Trim(s4608)
s5471 = Trim(s4608) + Chr(13)
Send s5471
Delay 1.5
End If
7916 If s4604 > "" Then
Locate 16, 35
Print "@1F@ ";
Locate 16, 35
Print "@1F@"; s4604;
s5461 = s4604
Else
7985 s5461 = "ATDT"
End If
7994 s5461 = s5461 + s5371
s5461 = s5461 + Chr(13)
Locate 16, 35
Print "@1F@ ";
Locate 16, 35
Print "@1F@ATH0";
Send "ATH0" + Chr(13)
Delay 1.5
Send s5461
s5461 = "@1F@" + s5461
Locate 16, 35
Print s5461
If i4602 > 0 Then
i5475 = i4602
Else
8145 i5475 = 45
End If
8152
8173 For i5481 = 1 To 10 Step 1
Do
8223 s5425 = InKey(1213417543)
Loop Until s5425 = ""
Next
Do
8275 s5477 = InKey(1213417543)
If s5477 = "!" Then
Print "@0F@ "
GoTo 9835
End If
8319 Locate 18, 35
Print "@1F@ ";
Locate 18, 35
Print i5475;
Delay 1
i5475 = i5475 - 1
If i5475 = 0 Then
GoTo 10425
End If
8393 Loop Until Carrier = -1
CarrierCheck(-1)
If Not Local Then
Cls
Do
8428 Cls
Print "@00@"
s5487 = InKey(1213417543)
Loop Until Left(s5487, 1) = "C" Or Left(s5487, 1) = "R"
End If
8492 Cls
If Left(s5487, 1) = "C" Then
Print "C";
End If
8526 If Left(s5487, 1) = "R" Then
Print "R";
End If
8557 Input s5491
Print "@CLS@@0E@"
Do
Do
8572 If Left(s5487, 4) = "RING" Then
GoTo 8945
End If
8600 If RIPDetected Then
If Not DisplayFile("CBVCLEAR") Then
DisplayFile("POSTRIP")
End If
End If
8634 Cls
Print ""
Print ""
Print ""
Print " @2A@ ╒═══════════════════════════════════════════════════════════════════@20@╕ @0F@"
Print " @2A@ │ @2F@C A L L B A C K V E R I F I C A T I O N I N P R O G R E S S @20@│ @0F@"
Print " @2A@ ╘@20@═══════════════════════════════════════════════════════════════════╛ @0E@"
Print ""
Print ""
Print "@07@ Welcome back! You are almost verified! This is the final stage! "
Do
8718 Print ""
s5429 = InputMask(" @0B@Enter your @0F@FIRST@0B@ Name: @0E@", "XXXXXXXXXXXXXXX", "", 1213417543)
Print ""
If (Trim(s5429) = "") = 0 Then GoTo 8789
Loop
8789 s5429 = s5429 + " "
s5433 = InputMask(" @0B@Enter your @0F@LAST@0B@ Name: @0E@", "XXXXXXXXXXXXXXX", "", 1213417543)
s5495 = UCase(s5429) + UCase(s5433)
Print ""
Print ""
Print "@07@ You entered@0F@ ";
Print s5495;
If InputYesNo("@07@, is that correct? @0E@", 1213417543) Then
GoTo 8917
End If
8911 Loop
8917 If (Trim(s5495) <> Trim(User.Name)) = 0 Then GoTo 9099
8945 Cls
Print ""
Print ""
Print ""
Print ""
Print ""
Print ""
Print ""
Print ""
Print ""
Print " @0C@THIS SYSTEM IS CONDUCTING A CALL-BACK VERIFICATION"
Print ""
Print " @0F@ Please call back in 5 minutes";
Delay 3
If (Local) = 0 Then GoTo 9079
Loop
9079 CarrierCheck(0)
HangUp
GoSub 7019
GoTo 7398
Do
9099 i5499 = i5499 + 1
Locate 18, 1
s5483 = InputMask(" @0B@Please enter your Password: @0E@", "XXXXXXXXXXXXXX", "", 1)
Print "@0E@"
If (UCase(s5483) <> User.Password) = 0 Then GoTo 9268
If i5499 = 3 Then
GoTo 9274
End If
9199 i5499 = i5499 + 1
Locate 22, 1
Print "@0F@ @1F@ W R O N G A N S W E R ! @0E@";
Beep
Beep
Beep
Delay 2
Locate 22, 1
Print " "
Loop
9268 GoTo 9984
9274 Cls
Print ""
Print ""
Print ""
Print ""
Print ""
Print "@0C@ Although it seems odd that you would forget your password so soon, "
Print " this means that we cannot grant you full access to the system. If you need"
Print " to be reminded of your password, please leave a note for the sysop."
Print ""
i4484 = 6
GoSub 10713
Join 0
Comment
GoTo 12629
9384 If s4592 = "AUTO" Then
User.SecLevel = s4530
If Not DisplayFile("CBVLONG") Then
Cls
Print ""
Print ""
Print ""
Print ""
Print ""
Print ""
Print "@0B@"
Print " Since you are calling long distance,"
Print " we will grant you instant access to the system."
Print " Thank you for calling, and we hope you"
Print " find everything you are looking for!"
Print ""
End If
9542 WaitEnter
i4484 = 5
GoSub 10713
GoTo 10554
End If
9564 If s4592 = "COMMENT" Then
Cls
If Not DisplayFile("CBVLONG") Then
Print ""
Print ""
Print ""
Print ""
Print ""
Print ""
Print "@0B@"
Print " Since you are calling long-distance, we will be unable"
Print " to properly verify you. If you need to, you may give any adiitional"
Print " information about yourself in the following message to the SysOp."
Print " Your access will be granted after we have reviewed your account."
Print ""
Print ""
End If
9717 i4484 = 5
GoSub 10713
WaitEnter
Comment
If RIPDetected Then
If Not DisplayFile("CBVCLEAR") Then
DisplayFile("POSTRIP")
End If
End If
9770 GoSub 11652
GoTo 10554
End If
9782 If s4592 = "HANGUP" Then
i5423 = 1
s5419 = s5371
s5419 = "1-" + s5419
GoTo 6610
End If
9835 Cls
Locate 11, 15
Print "@8F@SysOp aborting call @07@-@0D@Callers security level is unchanged"
Locate 13, 19
Print "@07@Writing to cyberfier log, and updating statistics..."
Send "ATZ0" + Chr(13)
Delay 1
Send "ATH1" + Chr(13)
Delay 1
Send "ATM0" + Chr(13)
Delay 1
Print "@0F@"
Delay 1
i4484 = 7
GoSub 10713
CarrierCheck(-1)
Goodbye 1213417543
9984 Cls
If Not DisplayFile("CBVPASS") Then
i5501 = 79 - Len(s4490)
i5501 = Int(i5501) / 2
Print ""
Print ""
Print ""
Print ""
Print " @2A@ ╒═══════════════════════════════════@20@╕ @0E@"
Print " @2A@ │ @2F@C O N G R A T U L A T I O N S ! ! @20@│ @0E@"
Print " @2A@ ╘@20@═══════════════════════════════════╛ @0E@"
Print ""
Print "@0B@"
Print " you have passed the call-back verifier,"
Print ""
Print " and you are now an official member of"
Print ""
Print String(i5501, " ");
Print "@0F@@BBS@"
Print ""
Print ""
End If
10203 If Not Exists(s5451) Then
Open s4619 For Append As 7
Print #7,
Print #7, " @0F@* @0C@PREFIX.LST was not available, please create one before@0F@"
Print #7, " @0C@continuing to use Cyberfier! (See CYBERFY.DOC for instructions)@0F@"
Close 7
Open s5451 For Output As 9
Print #9, ""
Close 9
End If
10299 i4484 = 1
GoSub 10713
If i5445 = 1 Then
Open s5451 For Append As 9
Print #9, s5415
Close 9
End If
10360 If i5423 = 1 Then
Print ""
Print "@0E@ Please call us back to use your full access!"
Print ""
Goodbye 1213417543
End If
10410 WaitEnter
GoSub 11652
GoTo 10554
End If
10425 If i5459 > i4612 Then
Locate 1, 1
Print "@0E@ "
Locate 1, 1
Print "@0E@@CLS@@NOPAUSE@@NOSTOP@"
Locate 11, 10
Print "@0C@Unable to reach @USER@ after 3 tries...@0F@ "
i4484 = 4
GoSub 10713
Delay 1
CarrierCheck(-1)
Goodbye 1213417543
GoTo 10554
End If
10533 Send "ATH1" + Chr(13)
Loop
10554 If i4627 = 0 Then
Else
10574 If Local Then
Print ""
If InputYesNo(" Local logon detected, Would you like to write a test message? ", 1213417543) Then
GoTo 10629
GoTo 10629
End If
10623 Else
10629 If UCase(s4572) = "YES" Then
If Func13266(mh5503) Then
s5823 = "<<VERIFIED.IMP"
End If
10673 If s5823 > "" Then
AddMessage(mh5503, s5823, "", 0)
End If
End If
End If
End If
10707 GoTo 12629
10713 s5827 = s4486 + "CBVSTATS.DAT"
If Not Exists(s5827) Then
GoTo 10851
Else
10755 Open s5827 For Input As 5
Input #5, i5831
Input #5, i5833
Input #5, i5835
Input #5, i5837
Input #5, i5839
Input #5, i5841
Input #5, i5843
Input #5, i5845
Input #5, i5847
Close 5
End If
10851 Open s4619 For Append As 1
If i4484 = 7 Then
Print #1, " @0F@* @0B@SysOp aborted call back process"
i5847 = i5847 + 1
End If
10909 If i4484 = 6 Then
User.SecLevel = s4518
Print #1, " @0F@* @0C@Unable to correctly enter thier password!"
i5839 = i5839 + 1
i5833 = i5833 + 1
End If
10976 If i4484 = 5 Then
User.Title = ""
User.SecLevel = s4530
Print #1, " @0F@* @0B@Caller using a long-distance number: ";
Print #1, User.PhoneNumber;
Print #1, ", ";
Print #1, User.DataNumber
i5835 = i5835 + 1
GoSub 11715
End If
11091 If i4484 = 4 Then
User.SecLevel = s4518
Print #1, " @0F@* @0C@Unable to be verified at @0F@";
Print #1, s5371;
Print #1, "@0C@ after 3 attempts@07@"
i5841 = i5841 + 1
GoSub 12415
End If
11169 If i4484 = 3 Then
Print #1, " @0F@* @0B@Skipped verification"
i5843 = i5843 + 1
GoSub 12415
End If
11214 If i4484 = 2 Then
User.SecLevel = s4542
Print #1, " @0F@* @0C@Failed duplicate user check!@0F@"
Print #1, " @0F@* @0B@Duplication: @0E@";
Print #1, s5353
GoSub 12415
i5837 = i5837 + 1
End If
11292 If i4484 = 1 Then
User.Title = ""
AddTime i4566
User.SecLevel = s4506
Print #1, " @0F@* @0B@Passed Cyberfier!"
If i5445 = 1 Then
Print #1, " @0F@* @0B@New prefix added to PREFIX.LST: @0F@";
Print #1, s5415
i5845 = i5845 + 1
End If
11403 i5833 = i5833 + 1
GoSub 11715
End If
11423 If i4484 = 0 Then
Print #1, " @0F@* @0C@User hung up before verification@0F@"
i5843 = i5843 + 1
End If
11461 Print #1, " @0F@* @0B@Current security level: @0F@";
Print #1, User.SecLevel
Close 1
i5831 = i5831 + 1
Open s5827 For Output As 5
Print #5, i5831
Print #5, i5833
Print #5, i5835
Print #5, i5837
Print #5, i5839
Print #5, i5841
Print #5, i5843
Print #5, i5845
Print #5, i5847
Close 5
If i4484 = 1 Or i4484 = 5 Then
GoSub 11716
End If
11651 Return
11652 s5857 = Left(s4486, Len(s4486) - 1)
s5849 = s4486 + "VERIFIED.BAT"
If Exists(s5849) Then
Shell "VERIFIED", s5857
End If
11714 Return
11715 Return
11716 If User.Name = UCase(MakeWild.SysopName) Then
Return
End If
11748 If s4584 > "" Then
i5861 = 79 - Len(s4490)
i5861 = Int(i5861) / 2
s5863 = s4486 + "CBVTODAY.USR"
s5867 = User.City
s5867 = s5867 + ", "
s5867 = s5867 + User.State
Open s5863 For Append As 1
Print #1, User.Name
Print #1, s5867
Print #1, s4681
Close 1
Open s4584 For Output As 1
Open s5863 For Input As 2
Print #1, "@CLS@"
Print #1, String(i5861, " ");
Print #1, "@BBS@"
Print #1, " @0B@presents "
Print #1, " @0A@Todays new users!@0F@ "
Print #1, " "; s4669
Print #1, ""
Print #1, "@19@ ┌───────────────────────────────────────────────────────────────────────────@10@┐ @0F@"
Print #1, "@19@ │@1F@ Users Name Calling From Time of Call @10@│ @0F@"
Print #1, "@19@ └@10@───────────────────────────────────────────────────────────────────────────┘ @0F@"
Print #1, "@10@ ┌───────────────────────────────────────────────────────────────────────────@19@┐ @0F@"
Do
12089 Input #2, s5871
Input #2, s5867
Input #2, s5875
If s5871 = "" Then
GoTo 12332
End If
12133 s5879 = "@10@ │ @1A@" + s5871
Do
12148 s5879 = s5879 + " "
Loop Until AtLen(s5879) = 35
s5879 = s5879 + "@1B@"
s5879 = s5879 + s5867
Do
12209 s5879 = s5879 + " "
Loop Until AtLen(s5879) = 68
s5879 = s5879 + "@1F@"
s5879 = s5879 + s5875
Do
12270 s5879 = s5879 + " "
Loop Until AtLen(s5879) = 77
s5879 = s5879 + "@19@│ @0F@"
Print #1, s5879
Loop
12332 Close 2
Print #1, "@10@ └@19@───────────────────────────────────────────────────────────────────────────┘ @0F@"
Print #1, "@19@ ┌───────────────────────────────────────────────────────────────────────────@10@┐ @0F@"
Print #1, "@19@ │ @1F@CYBERFIER! @17@version ";
Print #1, s4481;
Print #1, " @1B@From Crazy Larry's Online Art! @10@│ @0F@"
Print #1, "@19@ └@10@───────────────────────────────────────────────────────────────────────────┘ @0F@"
Print #1, "@PAUSE@"
Close 1
End If
12413 Return
Return
12415 If UCase(s4576) <> "YES" Then
Return
End If
12436 Join 0
If Func13421(mh5883) Then
If i4484 = 2 Then
s6203 = "Duplicate user found: @0F@"
s6203 = s6203 + s5353
s6203 = s6203 + "@0E@"
End If
12508 If i4484 = 3 Then
s6203 = User.Name
s6203 = s6203 + " skipped verification!"
End If
12552 If i4484 = 4 Then
s6203 = "Unable to call user back at "
s6203 = s6203 + s5371
End If
End If
12590 If s6203 > "" Then
AddMessage(mh5883, s6203, "", 1213417543)
End If
12628 Return
12629 Cls
If Not DisplayFile("CBVEXIT") Then
If RIPDetected Then
If Not DisplayFile("CBVCLEAR") Then
DisplayFile("POSTRIP")
End If
End If
12682 i6207 = 79 - Len(s4490)
i6207 = Int(i6207) / 2
Print ""
Print ""
Print ""
Print ""
Print ""
Print ""
Print ""
Print ""
Print "@0B@ Thank you for using @0F@CYBERFIER@0B@!"
Print ""
Print ""
Print "@0A@ We now return you to"
Print ""
Print String(i6207, " ");
Print "@0F@@BBS@"
Print ""
Print ""
Print ""
End If
12891 WaitEnter
End If
12894
'! Called 1 time
Function Func13266(mh65534 As MessageHeader) As Integer
Dim w65530 As Word
Func13266 = 0
mh65534.To = User.Name
mh65534.From = s4494
mh65534.Flags = 1
mh65534.Subject = "Welcome!"
w65530 = Trim(mh65534.From + mh65534.To + mh65534.Subject) > ""
Func13266 = -1
End Function
'! Called 1 time
Function Func13421(mh65534 As MessageHeader) As Integer
Dim w65530 As Word
Func13421 = 0
mh65534.From = User.Name
mh65534.To = s4494
mh65534.Flags = 1
mh65534.Subject = "Verification Failure"
w65530 = Trim(mh65534.From + mh65534.To + mh65534.Subject) > ""
Func13421 = -1
End Function