ftp.wwiv.com

home *** CD-ROM | disk | FTP | other *** search

/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / CYBRFY24.ZIP / FORWC410.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.10 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