CD Shareware Magazine 1997 January/CD_shareware_1-97.iso/DOS/COMUNICA/WVTDLX13.ZIP/WVTDLX.WCX

Wildcat! WCX | 1996-08-23 | 28.4 KB | 1,344 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  29037 bytes  05/14/125  00:13:18pm
'! Code Segment Size  :22544 bytes
'! Data Segment Size  :7498 bytes
'! String Segment Size:6493 bytes
'! Compiled with WCC version ? 019C017B

      Type Type29
        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 Type28
        s0 As String*3
        w3 As Word
        b5 As Byte
        s6 As String*25
        s31 As String*25
        s56 As String*30
        s86 As String*10
        s96 As String*5
        s101 As String*5
        w106 As Word
        s108 As String*5
        b113 As Byte
        b114 As Byte
        w115 As Word
        b117 As Byte
        w118 As Word
        o120 As Boolean
        o121 As Boolean
        b122 As Byte
        b123 As Byte
        b124 As Byte
        o125 As Boolean
        s126 As String*1
        s127 As String*2
      End Type

      Type Type27
        s0 As String*3
        w3 As Word
        s5 As String*25
        s30 As String*25
        s55 As String*30
        s85 As String*10
        s95 As String*5
        s100 As String*5
        w105 As Word
        s107 As String*5
        b112 As Byte
        b113 As Byte
        w114 As Word
        b116 As Byte
        b117 As Byte
        o118 As Boolean
        o119 As Boolean
        s120 As String*1
        o121 As Boolean
        s122 As String*3
      End Type

      Type Type26
        w0 As Word
        s2 As String*25
        s27 As String*25
        s52 As String*30
        d82 As Date
        w84 As Word
        Filler86(1 To 3) As Byte
        s89 As String*1
      End Type

      Dim s4463(0 To 50) As String
      Dim mh4667 As MessageHeader
      Dim sr4987 As SearchRec
      Dim t27_5036 As Type27
      Dim t28_5162 As Type28
      Dim t26_5292 As Type26
      Dim o5382 As Boolean
      Dim s5383 As String
      Dim w5387 As Word
      Dim s5390(0 To 250) As String
      Dim dt6394 As DateTime
      Dim o6400 As Boolean
      Dim s6401(0 To 15) As String
      Dim b6465 As Byte
      Dim l6466 As Long
      Dim s6619(0 To 26) As String
      Dim b6727 As Byte
      Dim b6728 As Byte
      Dim i6729 As Integer
      Dim i6731 As Integer
      Dim s6733 As String
      Dim b6737 As Byte
      Dim b6738 As Byte
      Dim w6739 As Word
      Dim w6741 As Word
      Dim s6743 As String*5
      Dim b6748 As Byte
      Dim s6749 As String
      Dim s6753 As String
      Dim s6757 As String
      Dim s6761 As String
      Dim s6765(0 To 25) As String
      Dim b6869 As Byte
      Dim s6870(0 To 25) As String
      Dim b6974 As Byte
      Dim l6975 As Long
      Dim w6979 As Word
      Dim s6981 As String
      Dim s6985 As String
      Dim s6989 As String
      Dim s6993 As String
      Dim s6997 As String
      Dim s7001 As String
      Dim s7005 As String
      Dim s7009 As String
      Dim s7013 As String
      Dim s7017(0 To 50) As String
      Dim s7221(0 To 50) As String
      Dim w7425 As Word
      Dim w7427 As Word
      Dim s7429 As String
      Dim w7433 As Word
      Dim w7435 As Word
      Dim w7437 As Word
      Dim w7439 As Word
      Dim w7441 As Word
      Dim w7443 As Word
      Dim w7445 As Word
      Dim w7447 As Word
      Dim w7449 As Word
      Dim b7451 As Byte
      Dim s7452 As String
      Dim o7460 As Boolean
      Dim w7461 As Word
      Dim o7463 As Boolean
      Dim b7464 As Byte
      Dim r7465 As Real
      Dim o7475 As Boolean
      Dim o7476 As Boolean
      Dim s7477 As String*1
      Dim b7478 As Byte
      Dim s7479 As String
      Dim s7483 As String
      Dim s7487 As String
      Dim s7491 As String
      Dim b7495 As Byte
      Dim b7496 As Byte
      Dim o7497 As Boolean

      Dim l65441_ As Long
      Dim i65445_ As Integer
      Dim l65447_ As Long
      Dim i65451_ As Integer
      Dim l65453_ As Long
      Dim i65457_ As Integer
      Dim l65459_ As Long
      Dim i65463_ As Integer
      Dim l65465_ As Long
      Dim i65469_ As Integer
      Dim l65471_ As Long
      Dim i65475_ As Integer
      Dim l65477_ As Long
      Dim i65481_ As Integer
      Dim l65483_ As Long
      Dim i65487_ As Integer
      Dim l65489_ As Long
      Dim i65493_ As Integer
      Dim l65495_ As Long
      Dim i65499_ As Integer
      Dim l65501_ As Long
      Dim b65505_ As Byte
      Dim l65506_ As Long
      Dim w65510_ As Word
      Dim l65512_ As Long
      Dim w65516_ As Word
      Dim l65518_ As Long
      Dim i65522_ As Integer
      Dim l65524_ As Long
      Dim i65528_ As Integer
      Dim l65530_ As Long
      Dim i65534_ As Integer

      CurrentDateTime dt6394
      r7465 = Timer
      b7464 = 0
      b6465 = 0
      StatusOpen 5
      StatusWrite Pad(Pad(" Who Visited Today Deluxe v1.3 - (c) 1995-96, KeySoft, Inc", 74) + Str(Timer - r7465) + " sec", 80), 1, 1, 26
      GoSub 266
      If Exists(s6985 + "SKIPNODE." + Str(Node)) Then
        GoTo 20268
      End If
  158 GoSub 4546
      GoSub 4712
      GoSub 5668
      GoSub 10724
      If UCase(s7001) <> "NONE" Then
        GoSub 13226
      End If
  208 If UCase(s7005) <> "NONE" Then
        GoSub 15664
      End If
  234 If UCase(s7009) <> "NONE" Then
        GoSub 18265
      End If
  260 GoTo 20268
  266 StatusWrite " - Initializing WOW settings/workspace", 1213417543, 1213417543, 1213417543
      StatusWrite Pad(Pad(" Who Visited Today Deluxe v1.3 - (c) 1995-96, KeySoft, Inc", 74) + Str(Timer - r7465) + " sec", 80), 1, 1, 26
      GoSub 367
      GoSub 760
      GoSub 944
      GoSub 1357
      GoSub 1221
      Return
  367 If Not Exists(ProgPath + "WVTDLX.CFG") Then
        GoTo 20268
      End If
  394 Open ProgPath + "WVTDLX.CFG" For Input As 1
      Input #1, l6975
      Input #1, s6985
      Input #1, w6979
      Input #1, s6981
      Input #1, s6989
      Input #1, s7013
      Input #1, s6993
      Input #1, s6997
      Input #1, s7001
      Input #1, s7005
      Input #1, s7009
      Input #1, b7478
      Close 1
      l6466 = 0
  549 For i6729 = 1 To Len(MakeWild.BBSName) Step 1
        l6466 = l6466 + Asc(Mid(MakeWild.BBSName, i6729, 1)) * i6729 + 9
      Next
  668 l6466 = l6466 * Len(MakeWild.BBSName) + Asc(Mid(MakeWild.BBSName, Len(MakeWild.BBSName) - 1, 1))
      If l6466 = l6975 Then
        s7477 = "Y"
      End If
  759 Return
  760 If Not Exists(s6985 + "CODES.TXT") Then
        Return
      End If
  783 i6729 = 0
      Open s6985 + "CODES.TXT" For Input As 1
  815 Do Until EOF(1) Or i6729 > 24
        Input #1, s5383
        If Len(Trim(s5383)) > 0 Then
          b6727 = InStr(s5383, "(")
          Inc i6729
          s6619(i6729) = Mid(s5383, b6727 + 1, 4)
        End If
  932 Loop
  938 Close 1
      Return
  944 If Exists(s6985 + "BADNAME.LST") Then
        b6869 = 0
        Open s6985 + "BADNAME.LST" For Input As 1
  996   Do Until EOF(1)
          Input #1, s5383
          If Len(s5383) > 0 Then
            Inc b6869
            s6765(b6869) = UCase(s5383)
          End If
 1071   Loop
 1077   Close 1
      End If
 1082 If Exists(s6985 + "BADFROM.LST") Then
        b6974 = 0
        Open s6985 + "BADFROM.LST" For Input As 1
 1134   Do Until EOF(1)
          Input #1, s5383
          If Len(s5383) > 0 Then
            Inc b6974
            s6870(b6974) = UCase(s5383)
          End If
 1209   Loop
 1215   Close 1
      End If
 1220 Return
 1221 If Exists(s6985 + "REGLEVEL.LST") Then
        Open s6985 + "REGLEVEL.LST" For Input As 1
 1267   Do Until EOF(1)
          Input #1, s5383
          If Len(s5383) > 0 Then
            Inc b6465
            s6401(b6465) = UCase(Trim(s5383))
          End If
 1345   Loop
 1351   Close 1
      End If
 1356 Return
 1357 i6729 = 0
      Open s6985 + "KEYWORDS.LST" For Input As 1
 1389 Do Until EOF(1)
        Input #1, s5383
        s5383 = Trim(s5383)
        If Left(s5383, 2) = ";=" Then
          GoTo 4192
        End If
 1446   Inc i6729
        i6731 = InStr(s5383, ")=")
        s4463(i6729) = Mid(s5383, 9, i6731 - 9)
        s5383 = UCase(s5383)
        If InStr(s5383, "=ADDCREDITS(") > 0 Then
          s7221(i6729) = "ADDCREDITS"
          s7017(i6729) = Mid(s5383, i6731 + 13, Len(s5383) - i6731 + 13)
        Else
 1648     If InStr(s5383, "=INCDLTOT(") > 0 Then
            s7221(i6729) = "INCDLTOT"
            s7017(i6729) = Mid(s5383, i6731 + 11, Len(s5383) - i6731 + 11)
          Else
 1770       If InStr(s5383, "=INCULTOT(") > 0 Then
              s7221(i6729) = "INCULTOT"
              s7017(i6729) = Mid(s5383, i6731 + 11, Len(s5383) - i6731 + 11)
            Else
 1892         If InStr(s5383, "=INCMSGTOT(") > 0 Then
                s7221(i6729) = "INCMSGTOT"
                s7017(i6729) = Mid(s5383, i6731 + 12, Len(s5383) - i6731 + 12)
              Else
 2014           If InStr(s5383, "=INCDOORTOT(") > 0 Then
                  s7221(i6729) = "INCDOORTOT"
                  s7017(i6729) = Mid(s5383, i6731 + 13, Len(s5383) - i6731 + 13)
                Else
 2136             If InStr(s5383, "=ADDMVPPOINTS(") > 0 Then
                    s7221(i6729) = "ADDMVPPOINTS"
                    s7017(i6729) = Mid(s5383, i6731 + 15, Len(s5383) - i6731 + 15)
                  Else
 2258               If InStr(s5383, "=ADDTIME(") > 0 Then
                      s7221(i6729) = "ADDTIME"
                      s7017(i6729) = Mid(s5383, i6731 + 10, Len(s5383) - i6731 + 10)
                    Else
 2380                 If InStr(s5383, "=ADDUSERNAMETOFILE(") > 0 Then
                        s7221(i6729) = "ADDUSERNAMETOFILE"
                        s7017(i6729) = Mid(s5383, i6731 + 20, Len(s5383) - i6731 + 20)
                      Else
 2502                   If InStr(s5383, "=ADDUSERVPHONETOFILE(") > 0 Then
                          s7221(i6729) = "ADDUSERVPHONETOFILE"
                          s7017(i6729) = Mid(s5383, i6731 + 22, Len(s5383) - i6731 + 22)
                        Else
 2624                     If InStr(s5383, "=ADDUSERDPHONETOFILE(") > 0 Then
                            s7221(i6729) = "ADDUSERDPHONETOFILE"
                            s7017(i6729) = Mid(s5383, i6731 + 22, Len(s5383) - i6731 + 22)
                          Else
 2746                       If InStr(s5383, "=ADDUSERINFOTOFILE(") > 0 Then
                              s7221(i6729) = "ADDUSERINFOTOFILE"
                              s7017(i6729) = Mid(s5383, i6731 + 20, Len(s5383) - i6731 + 20)
                            Else
 2868                         If InStr(s5383, "=ATTACHFILE(") > 0 Then
                                s7221(i6729) = "ATTACHFILE"
                                s7017(i6729) = Mid(s5383, i6731 + 13, Len(s5383) - i6731 + 13)
                              Else
 2990                           If InStr(s5383, "=CHANGESECLEVEL(") > 0 Then
                                  s7221(i6729) = "CHANGESECLEVEL"
                                  s7017(i6729) = Mid(s5383, i6731 + 17, Len(s5383) - i6731 + 17)
                                Else
 3112                             If InStr(s5383, "=CHANGESECONDARYLEVEL1(") > 0 Then
                                    s7221(i6729) = "CHANGESECONDARYLEVEL1"
                                    s7017(i6729) = Mid(s5383, i6731 + 24, Len(s5383) - i6731 + 24)
                                  Else
 3234                               If InStr(s5383, "=CHANGESECONDARYLEVEL2(") > 0 Then
                                      s7221(i6729) = "CHANGESECONDARYLEVEL2"
                                      s7017(i6729) = Mid(s5383, i6731 + 24, Len(s5383) - i6731 + 24)
                                    Else
 3356                                 If InStr(s5383, "=RINGBELL(") > 0 Then
                                        s7221(i6729) = "RINGBELL"
                                        s7017(i6729) = Mid(s5383, i6731 + 11, Len(s5383) - i6731 + 11)
                                      Else
 3478                                   If InStr(s5383, "=RUNWCX(") > 0 Then
                                          s7221(i6729) = "RUNWCX"
                                          s7017(i6729) = Mid(s5383, i6731 + 9, Len(s5383) - i6731 + 9)
                                        Else
 3600                                     If InStr(s5383, "=SHELL(") > 0 Then
                                            s7221(i6729) = "SHELL"
                                            s7017(i6729) = Mid(s5383, i6731 + 8, Len(s5383) - i6731 + 8)
                                          Else
 3722                                       If InStr(s5383, "=SENDMSG(") > 0 Then
                                              s7221(i6729) = "SENDMSG"
                                              s7017(i6729) = Mid(s5383, i6731 + 10, Len(s5383) - i6731 + 10)
                                            Else
 3844                                         If InStr(s5383, "=SENDSYSOPMSG(") > 0 Then
                                                s7221(i6729) = "SENDSYSOPMSG"
                                                s7017(i6729) = Mid(s5383, i6731 + 15, Len(s5383) - i6731 + 15)
                                              Else
 3966                                           If InStr(s5383, "=SENDDCMSG(") > 0 Then
                                                  s7221(i6729) = "SENDDCMSG"
                                                  s7017(i6729) = Mid(s5383, i6731 + 12, Len(s5383) - i6731 + 12)
                                                Else
 4088                                             s7221(i6729) = Mid(s5383, i6731 + 2, Len(s5383) - i6731)
                                                End If
                                              End If
                                            End If
                                          End If
                                        End If
                                      End If
                                    End If
                                  End If
                                End If
                              End If
                            End If
                          End If
                        End If
                      End If
                    End If
                  End If
                End If
              End If
            End If
          End If
        End If
 4146   If s7477 <> "Y" Then
          If i6729 = 6 Then
            GoTo 4192
          End If
        End If
 4186 Loop
 4192 w7425 = i6729
      Close 1
      Return
 4208 o6400 = 0
      If Exists(s6985 + "SKIPLEVL.LST") Then
        Open s6985 + "SKIPLEVL.LST" For Input As 4
 4260   Do Until EOF(4)
          Input #4, s5383
          If UCase(Trim(s5383)) = s7452 Then
            o6400 = - 1
          End If
 4309   Loop
 4315   Close 4
      End If
 4320 If Exists(s6985 + "SKIPNAME.LST") Then
        Open s6985 + "SKIPNAME.LST" For Input As 4
 4366   Do Until EOF(4)
          Input #4, s5383
          If UCase(Trim(s5383)) = s6757 Then
            o6400 = - 1
          End If
 4415   Loop
 4421   Close 4
      End If
 4426 Return
 4427 o6400 = 0
      If Exists(s6985 + "SKIPDC.LST") Then
        Open s6985 + "SKIPDC.LST" For Input As 4
 4479   Do Until EOF(4)
          Input #4, s5383
          If UCase(Trim(s5383)) = t26_5292.s2 Then
            o6400 = - 1
          End If
 4534   Loop
 4540   Close 4
      End If
 4545 Return
 4546 ReadBackOpen("ACTIVITY." + Str(Node))
      o5382 = 0
      i6729 = 0
 4575 Do Until ReadBackTOF Or o5382
        s5383 = ReadBackNext
        If Left(s5383, 10) = "----------" Then
          o5382 = - 1
        Else
 4635     If Len(Trim(s5383)) > 0 Then
            Inc i6729
            s5390(i6729) = s5383
          End If
        End If
 4692 Loop
 4698 w5387 = i6729
      ReadBackClose
      Return
 4712 If Mid(s5390(w5387), 3, 1) = ":" Then
        s6749 = Left(s5390(w5387), 5)
        If InStr(s5390(w5387), "on locally,") > 0 Then
          s6743 = s7013
        Else
 4858     If InStr(s5390(w5387), " bps") > 0 Then
            b6727 = InStr(s5390(w5387), " at ")
            b6728 = InStr(s5390(w5387), " bps")
            s6743 = Mid(s5390(w5387), b6727 + 4, b6728 - b6727 + 4)
          End If
        End If
 5047   o7463 = 0
        If InStr(s5390(w5387), "[NEWUSER]") > 0 Then
          t27_5036.o118 = - 1
          t28_5162.o120 = - 1
          o7463 = - 1
        Else
 5139     t27_5036.o118 = 0
        End If
 5149 Else
 5155   dt6394.T.Number = dt6394.T.Number - 10
        s6743 = "n/a"
        s6749 = FormatTime(dt6394.T, "hh:mm")
        CurrentDateTime dt6394
      End If
 5213 If Mid(s5390(1), 3, 1) = ":" Then
        s6753 = Left(s5390(1), 5)
        b6727 = InStr(s5390(1), "Logged:")
        b6728 = InStr(s5390(1), " with ")
        w6739 = Val(Mid(s5390(1), b6727 + 8, b6728 - b6727 + 8))
        If InStr(s5390(1), "Signed off NORMALLY") > 1 Then
          t27_5036.s120 = "N"
        Else
 5493     If InStr(s5390(1), "Off by DROPPING CARRIER") > 1 Then
            t27_5036.s120 = "D"
          Else
 5557       If InStr(s5390(1), "EXCEEDED their time") > 1 Then
              t27_5036.s120 = "E"
            Else
 5621         t27_5036.s120 = "N"
            End If
          End If
        End If
 5636 Else
 5642   s6753 = FormatTime(dt6394.T, "hh:mm")
        w6739 = 0
      End If
 5667 Return
 5668 b6737 = 0
      b6738 = 0
      w6741 = 0
      b6748 = 0
      t27_5036.o121 = 0
 5728 For i6729 = w5387 To 1 Step - 1
 5802   For i6731 = 1 To w7425 Step 1
          If InStr(s5390(i6729), s4463(i6731)) > 0 Then
            GoSub 5973
          End If
 5926   Next
 5949 Next
 5972 Return
 5973 If s7221(i6731) = "ADDCREDITS" Then
        SetUserBillingCredits(CreditsLeft + Val(s7017(i6731)), 1213417543)
      Else
 6065   If s7221(i6731) = "ADDTIME" Then
          User.TimeLeft = User.TimeLeft + Val(s7017(i6731))
        Else
 6165     If s7221(i6731) = "ADDUSERNAMETOFILE" Then
            Open s7017(i6731) For Append As 3
            Print #3, User.Name
            Close 3
          Else
 6275       If s7221(i6731) = "ADDUSERVPHONETOFILE" Then
              Open s7017(i6731) For Append As 3
              Print #3, User.PhoneNumber
              Close 3
            Else
 6385         If s7221(i6731) = "ADDUSERDPHONETOFILE" Then
                Open s7017(i6731) For Append As 3
                Print #3, User.DataNumber
                Close 3
              Else
 6495           If s7221(i6731) = "ATTACHFILE" Then
                  GoSub 9391
                Else
 6548             If s7221(i6731) = "CHANGESECLEVEL" Then
                    User.SecLevel = s7017(i6731)
                  Else
 6633               If s7221(i6731) = "CHANGESECONDARYLEVEL1" Then
                      User.Secondary(1) = s7017(i6731)
                    Else
 6744                 If s7221(i6731) = "CHANGESECONDARYLEVEL2" Then
                        User.Secondary(2) = s7017(i6731)
                      Else
 6855                   If s7221(i6731) = "INCDLTOT" Then
                          b6737 = b6737 + Val(s7017(i6731))
                        Else
 6945                     If s7221(i6731) = "INCULTOT" Then
                            b6738 = b6738 + Val(s7017(i6731))
                          Else
 7035                       If s7221(i6731) = "INCMSGTOT" Then
                              w6741 = w6741 + Val(s7017(i6731))
                            Else
 7125                         If s7221(i6731) = "INCDOORTOT" Then
                                b6748 = b6748 + Val(s7017(i6731))
                              Else
 7215                           If s7221(i6731) = "LOCKUSER" Then
                                  User.UFlags = User.UFlags Or 8
                                Else
 7286                             If s7221(i6731) = "RINGBELL" Then
 7377                               For w7427 = 1 To Val(s7017(i6731)) Step 1
                                      Sound 500, 0.06
                                      Sound 650, 0.06
                                      Sound 800, 0.06
                                      Delay 0.8
                                    Next
 7491                             Else
 7497                               If s7221(i6731) = "SHELL" Then
                                      If Exists(s7017(i6731)) Then
                                        Shell s7017(i6731), ""
                                      End If
 7611                               Else
 7617                                 If s7221(i6731) = "RUNWCX" Then
                                        If Exists(s7017(i6731)) Then
                                          Run s7017(i6731), ""
                                        End If
 7731                                 Else
 7737                                   If s7221(i6731) = "SENDMSG" Then
                                          GoSub 8070
                                        Else
 7790                                     If s7221(i6731) = "SENDSYSOPMSG" Then
                                            GoSub 8343
                                          Else
 7843                                       If s7221(i6731) = "SENDDCMSG" Then
                                              GoSub 8623
                                            Else
 7896                                         If s7221(i6731) = "SENDLOGTOSYSOP" Then
                                                GoSub 9851
                                              Else
 7949                                           If s7221(i6731) = "DONOTSKIPUSER" Then
                                                  t27_5036.o121 = - 1
                                                  t28_5162.o125 = - 1
                                                Else
 8022                                             If s7221(i6731) = "FORMATLOCATION" Then
                                                    GoSub 10235
                                                  End If
                                                End If
                                              End If
                                            End If
                                          End If
                                        End If
                                      End If
                                    End If
                                  End If
                                End If
                              End If
                            End If
                          End If
                        End If
                      End If
                    End If
                  End If
                End If
              End If
            End If
          End If
        End If
      End If
 8069 Return
 8070 s7429 = ""
      mh4667.Flags = 1
      mh4667.From = MakeWild.SysopName
      mh4667.Subject = "Comment"
      mh4667.To = User.Name
      If InStr(UCase(s7017(i6731)), ".IMP") > 0 Then
        s7429 = "<<" + s7017(i6731)
        AddMessage(mh4667, s7429, "", w6979)
      Else
 8260   If Exists(s7017(i6731)) Then
          AddMessage(mh4667, s7017(i6731), "", w6979)
        End If
      End If
 8342 Return
 8343 s7429 = ""
      mh4667.Flags = 1
      mh4667.From = "WVTDLX"
      mh4667.Subject = "Concerning " + User.Name
      mh4667.To = MakeWild.SysopName
      If InStr(UCase(s7017(i6731)), ".IMP") > 0 Then
        s7429 = "<<" + s7017(i6731)
        AddMessage(mh4667, s7429, "", w6979)
      Else
 8540   If Exists(s7017(i6731)) Then
          AddMessage(mh4667, s7017(i6731), "", w6979)
        End If
      End If
 8622 Return
 8623 s6757 = User.Name
      s7452 = User.SecLevel
      If t27_5036.o121 Then
        o6400 = 0
      Else
 8678   GoSub 4208
      End If
 8684 If o6400 Then
        o7475 = - 1
        Return
      End If
 8705 If Exists(s6985 + "SKIPDC.LST") Then
        o7475 = - 1
        Open s6985 + "SKIPDC.LST" For Input As 1
 8760   Do Until EOF(1)
          Input #1, s5383
          If Trim(UCase(s5383)) = User.Name Then
            o7475 = 0
            GoTo 8824
          End If
 8818   Loop
 8824   Close 1
        If o7475 Then
          s7429 = ""
          mh4667.Flags = 1
          mh4667.From = MakeWild.SysopName
          mh4667.Subject = "Drop Carrier"
          mh4667.To = User.Name
          If InStr(UCase(s7017(i6731)), ".IMP") > 0 Then
            s7429 = "<<" + s7017(i6731)
            AddMessage(mh4667, s7429, "", w6979)
          Else
 9030       If Exists(s7017(i6731)) Then
              AddMessage(mh4667, s7017(i6731), "", w6979)
            End If
          End If
        End If
 9112 Else
 9118   s7429 = ""
        mh4667.Flags = 1
        mh4667.From = MakeWild.SysopName
        mh4667.Subject = "Drop Carrier"
        mh4667.To = User.Name
        If InStr(UCase(s7017(i6731)), ".IMP") > 0 Then
          s7429 = "<<" + s7017(i6731)
          AddMessage(mh4667, s7429, "", w6979)
        Else
 9308     If Exists(s7017(i6731)) Then
            AddMessage(mh4667, s7017(i6731), "", w6979)
          End If
        End If
      End If
 9390 Return
 9391 mh4667.Flags = 1
      mh4667.From = MakeWild.SysopName
      mh4667.Subject = "Attachment"
      mh4667.To = User.Name
      If InStr(s7017(i6731), ",") > 0 Then
        s7429 = Left(s7017(i6731), InStr(s7017(i6731), ",") - 1)
        If InStr(UCase(s7429), ".IMP") > 0 Then
          s7429 = "<<" + s7429
        End If
 9617   s7479 = Right(s7017(i6731), Len(s7017(i6731)) - InStr(s7017(i6731), ","))
        If Exists(s7479) Then
          AddMessage(mh4667, s7429, s7479, w6979)
        End If
 9754 Else
 9760   s7429 = "This attachment was sent to you by the Sysop."
        If Exists(s7017(i6731)) Then
          AddMessage(mh4667, s7429, s7017(i6731), w6979)
        End If
      End If
 9850 Return
 9851 s7429 = ""
      mh4667.Flags = 1
      mh4667.From = "WVTDLX"
      mh4667.Subject = "User Activity"
      mh4667.To = MakeWild.SysopName
      Open s6985 + "!Temp!.tmp" For Output As 1
      Print #1, "MATCH FOUND ON:  '"; s4463(i6731); "'"
      Print #1, "ACTION        :  Sent User's Activity to Sysop"
      Print #1, String(76, "=")
10046 For w7427 = w5387 To 1 Step - 1
        Print #1, s5390(w7427)
      Next
10152 Print #1, String(76, "=")
      Close 1
      If Exists(s6985 + "!Temp!.tmp") Then
        AddMessage(mh4667, s6985 + "!Temp!.tmp", "", w6979)
        Kill s6985 + "!Temp!.tmp"
      End If
10234 Return
10235 o7497 = -1
      s7491 = Trim(User.State)
      If Len(Trim(User.City)) = 0 Then
        Return
      End If
10288
10324 For b7495 = 1 To Len(Trim(User.City)) Step 1
        If o7497 Then
          If Mid(User.City, b7495, 1) = Chr(32) Then
            s7487 = s7487 + Mid(User.City, b7495, 1)
          Else
10456       s7487 = s7487 + UCase(Mid(User.City, b7495, 1))
            o7497 = 0
          End If
10496   Else
10502     s7487 = s7487 + LCase(Mid(User.City, b7495, 1))
        End If
10536   b7496 = b7495 + 1
        If b7496 > Len(User.City) Then
        Else
10583     If Mid(User.City, b7495, 1) = Chr(32) Then
            o7497 = -1
          End If
        End If
10625 Next
10648 If Len(s7491) > 0 Then
        s7483 = s7487 + ", " + UCase(User.State)
      Else
10701   s7483 = s7487
      End If
10709 User.From = s7483
      Return
10724 CurrentDateTime dt6394
      If FindFirst(s6985 + "SINGLE.LOG", 0, sr4987) = 0 Then
        If dt6394.D.Number > sr4987.Date.Number Then
          StatusWrite " - It's a new day, it's a new log!", 1213417543, 1213417543, 1213417543
          StatusWrite Pad(Pad(" Who Visited Today Deluxe v1.3 - (c) 1995-96, KeySoft, Inc", 74) + Str(Timer - r7465) + " sec", 80), 1, 1, 26
          If Exists(s6985 + "SINGLE.LOG") Then
            Kill s6985 + "SINGLE.LOG"
          End If
10883     If Exists(s6985 + "COMBINED.LOG") Then
            Kill s6985 + "COMBINED.LOG"
          End If
        End If
      End If
10917 Open s6985 + "SINGLE.LOG" For Random As 1 Len = 126 '! This value should probably be replaced with a "SizeOf" expression
      i6729 = LOF(1)
      t27_5036.s0 = "G~J"
      t27_5036.w3 = User.UserId
      t27_5036.s5 = User.Name
      t27_5036.s30 = User.Alias
      t27_5036.s55 = User.From
      t27_5036.s85 = User.SecLevel
      t27_5036.s107 = s6743
      t27_5036.s95 = s6749
      t27_5036.s100 = s6753
      t27_5036.w105 = w6739
      t27_5036.b112 = b6737
      t27_5036.b113 = b6738
      t27_5036.w114 = w6741
      t27_5036.b116 = b6748
      t27_5036.b117 = Node
      t27_5036.o119 = 0
      If b6465 > 0 Then
11237   For i6731 = 1 To b6465 Step 1
          If s6401(i6731) = t27_5036.s85 Then
            t27_5036.o119 = - 1
          End If
11346   Next
      End If
11369 t27_5036.s122 = ""
      Put 1, i6729 + 1, t27_5036 '! 126 bytes
      t28_5162.w118 = i6729 + 1
      Close 1
      StatusWrite " - Processing " + User.Name + " [Call #" + Str(t28_5162.w118) + "]", 1213417543, 1213417543, 1213417543
      StatusWrite Pad(Pad(" Who Visited Today Deluxe v1.3 - (c) 1995-96, KeySoft, Inc", 74) + Str(Timer - r7465) + " sec", 80), 1, 1, 26
      CurrentDateTime dt6394
      Open s6985 + "COMBINED.LOG" For Random As 1 Len = 130 '! This value should probably be replaced with a "SizeOf" expression
      w7427 = LOF(1)
      o7460 = 0
11608 For i6729 = 1 To w7427 Step 1
        Get 1, i6729, t28_5162 '! 130 bytes
        If t28_5162.w3 = User.UserId Then
          o7460 = - 1
          Inc t28_5162.b5
          t28_5162.s56 = User.From
          t28_5162.s86 = User.SecLevel
          t28_5162.s31 = User.Alias
          t28_5162.w106 = t28_5162.w106 + w6739
          t28_5162.b113 = t28_5162.b113 + b6737
          t28_5162.b114 = t28_5162.b114 + b6738
          t28_5162.w115 = t28_5162.w115 + w6741
          t28_5162.b117 = t28_5162.b117 + b6748
          t28_5162.s96 = s6749
          t28_5162.s101 = s6753
          t28_5162.s108 = s6743
          t28_5162.o121 = t27_5036.o119
          If t27_5036.o121 Then
            t28_5162.o125 = - 1
          End If
11994     If t27_5036.s120 = "D" Then
            Inc t28_5162.b122
          Else
12033       If t27_5036.s120 = "E" Then
              Inc t28_5162.b124
            Else
12072         Inc t28_5162.b123
            End If
          End If
12082     t28_5162.s126 = t27_5036.s120
          Put 1, i6729, t28_5162 '! 130 bytes
          GoTo 12146
        End If
12123 Next
12146 If Not o7460 Then
        t28_5162.s0 = "G~J"
        t28_5162.w3 = User.UserId
        t28_5162.b5 = 0
        t28_5162.s6 = User.Name
        t28_5162.s31 = User.Alias
        t28_5162.s56 = User.From
        t28_5162.s86 = User.SecLevel
        t28_5162.w106 = 0
        t28_5162.b113 = 0
        t28_5162.b114 = 0
        t28_5162.s108 = ""
        t28_5162.w115 = 0
        t28_5162.b117 = 0
        t28_5162.b122 = 0
        t28_5162.b123 = 0
        t28_5162.b124 = 0
        t28_5162.o125 = t27_5036.o121
        t28_5162.s127 = ""
        Inc t28_5162.b5
        If o7463 Then
          t28_5162.o120 = - 1
        Else
12447     t28_5162.o120 = 0
        End If
12457   t28_5162.w106 = t28_5162.w106 + w6739
        t28_5162.b113 = t28_5162.b113 + b6737
        t28_5162.b114 = t28_5162.b114 + b6738
        t28_5162.w115 = t28_5162.w115 + w6741
        t28_5162.b117 = t28_5162.b117 + b6748
        t28_5162.s96 = s6749
        t28_5162.s101 = s6753
        t28_5162.s108 = s6743
        If t27_5036.s120 = "D" Then
          Inc t28_5162.b122
        Else
12665     If t27_5036.s120 = "E" Then
            Inc t28_5162.b124
          Else
12704       Inc t28_5162.b123
          End If
        End If
12714   t28_5162.o121 = t27_5036.o119
        t28_5162.s126 = t27_5036.s120
        Put 1, w7427 + 1, t28_5162 '! 130 bytes
      End If
12771 Close 1
      If t27_5036.s120 <> "D" Then
        Return
      End If
12800 s6757 = t27_5036.s5
      s7452 = t27_5036.s85
      If t27_5036.o121 Then
        o6400 = 0
      Else
12855   GoSub 4208
      End If
12861 If o6400 Then
        Return
      End If
12873 Open s6985 + "DROPS.LOG" For Random As 1 Len = 90 '! This value should probably be replaced with a "SizeOf" expression
      w7427 = LOF(1)
      o7476 = 0
12939 For i6729 = 1 To w7427 Step 1
        Get 1, i6729, t26_5292 '! 90 bytes
        If t26_5292.w0 = User.UserId Then
          o7476 = - 1
          Inc t26_5292.w84
          Put 1, i6729, t26_5292 '! 90 bytes
          GoTo 13089
        End If
13066 Next
13089 If Not o7476 Then
        t26_5292.w0 = User.UserId
        t26_5292.s2 = User.Name
        t26_5292.s27 = User.Alias
        t26_5292.s52 = User.From
        t26_5292.w84 = 1
        t26_5292.d82 = dt6394.D '! 2 bytes
        Put 1, LOF(1) + 1, t26_5292 '! 90 bytes
      End If
13220 Close 1
      Return
13226 StatusWrite " - Creating Single display", 1213417543, 1213417543, 1213417543
      StatusWrite Pad(Pad(" Who Visited Today Deluxe v1.3 - (c) 1995-96, KeySoft, Inc", 74) + Str(Timer - r7465) + " sec", 80), 1, 1, 26
      w7435 = 0
      w7437 = 0
      w7439 = 0
      w7441 = 0
      w7443 = 0
      w7433 = 0
      w7445 = 0
      w7449 = 0
      w7447 = 0
      b7451 = 0
      Open s7001 For Output As 1
      If s7477 = "Y" Then
        If Exists(Trim(s6993)) Then
          Open Trim(s6993) For Input As 2
13432     Do Until EOF(2)
            Input #2, s5383
            Print #1, s5383
          Loop
13465     Close 2
          Print #1, "@07@@0F@                    @0D@╔════════════════════════════════╗"
        Else
13486     Print #1, "@CLS@@07@@0F@                    @0D@╔════════════════════════════════╗"
        End If
13496 Else
13502   Print #1, "@CLS@@07@@0F@                    @0D@╔════════════════════════════════╗"
      End If
13512 Print #1, "@0F@                    @0D@║ @0A@Who Visited Today Deluxe v1.3 @0D@ ║@07@"
      Print #1, "@0F@                    @0D@╚═════════Detailed Listing═══════╝    @0F@N@07@ew, @0F@R@07@egistered─────┐"
      Print #1, "@0A@ @07@┌─Node                     User Left: @0F@N@07@ormally, @0F@E@07@xceeded time, @0F@D@07@rop Carr────┐│"
      If UCase(s6989) = "TIMEOFF" Then
        Print #1, "@0E@ @4F@" + Chr(25) + " User               All the way from   TimeOff Min  Baud  DLs ULs MSG DRs  " + Chr(25) + Chr(25) + "@07@"
      Else
13578   Print #1, "@0E@ @4F@" + Chr(25) + " User               All the way from    TimeOn Min  Baud  DLs ULs MSG DRs  " + Chr(25) + Chr(25) + "@07@"
      End If
13588 Open s6985 + "SINGLE.LOG" For Random As 2 Len = 126 '! This value should probably be replaced with a "SizeOf" expression
13638 For i6729 = 1 To LOF(2) Step 1
        Get 2, i6729, t27_5036 '! 126 bytes
        s6757 = t27_5036.s5
        s7452 = t27_5036.s85
        If t27_5036.o121 Then
          o6400 = 0
        Else
13758     GoSub 4208
        End If
13764   If Not o6400 Then
          s6757 = ""
          s7452 = ""
          If t27_5036.o118 Then
            s6733 = s6619(20) + "N"
            Inc b7451
          Else
13858       If t27_5036.o119 Then
              s6733 = s6619(21) + "R"
            Else
13915         s6733 = ""
            End If
          End If
13924     If UCase(Trim(s6981)) = "ALIAS" Then
            s6757 = s6619(2) + t27_5036.s30
            If Len(Trim(s6757)) = 4 Then
              s6757 = s6619(2) + "(Alias not set)"
            End If
14044     Else
14050       s6757 = s6619(1) + t27_5036.s5
          End If
14091     GoSub 19828
          If UCase(s6989) = "TIMEOFF" Then
            s6761 = t27_5036.s100
          Else
14137       s6761 = t27_5036.s95
          End If
14151     s6619(0) = s6619(22)
          If t27_5036.s120 = "N" Then
            Inc w7445
          Else
14235       If t27_5036.s120 = "D" Then
              Inc w7447
              s6619(0) = s6619(23)
            Else
14319         If t27_5036.s120 = "E" Then
                Inc w7449
                s6619(0) = s6619(24)
              End If
            End If
          End If
14397     Print #1, s6619(8); FormatNumber(t27_5036.b117, "##"); " "; Pad(Left(s6757, 22), 22); " "; s6619(4); Pad(Left(t27_5036.s55, 20), 20); " "; s6619(6); Pad(s6761, 6); s6619(9); FormatNumber(t27_5036.w105, "###"); "  "; s6619(7); Pad(t27_5036.s107, 5); " "; s6619(13); FormatNumber(t27_5036.b112, "###"); " " + s6619(12); FormatNumber(t27_5036.b113, "###"); "  "; s6619(14); FormatNumber(t27_5036.w114, "##"); "  " + s6619(15); FormatNumber(t27_5036.b116, "##"); "  "; s6619(0); Pad(t27_5036.s120, 1); s6733
          w7435 = w7435 + t27_5036.b112
          w7437 = w7437 + t27_5036.b113
          w7443 = w7443 + t27_5036.w105
          w7439 = w7439 + t27_5036.w114
          w7441 = w7441 + t27_5036.b116
          Inc w7433
        End If
15046 Next
15069 If w7433 = 0 Then
        Print #1, ""
        Print #1, Tab(23); "@0C@No caller information available yet."
        Print #1, ""
      End If
15122 Print #1, "@04@╔══════════════════════════≡@0F@ SUMMARY for "; FormatDate(dt6394.D, "mm/dd/yy"); " @04@≡═══════════════════════════╗"
      Print #1, "║@0A@"; Tab(8); "Tot Calls: "; FormatNumber(w7433, "####"); Tab(29); "@04@│@0A@  DLs   ULs   MSGs   DOORs  @04@│@0A@  Drop Carriers : "; FormatNumber(w7447, "####"); "  @04@║"
      Print #1, "║@0A@"; Tab(8); "Sys Usage: "; FormatNumber(w7443, "####"); " @02@mins @04@│@0A@ "; FormatNumber(w7435, "####"); "  "; FormatNumber(w7437, "####"); "   "; FormatNumber(w7439, "####"); "    "; FormatNumber(w7441, "####"); "  @04@│@0A@  Normal Logoffs: "; FormatNumber(w7445, "####"); "  @04@║"
      Print #1, "║@0A@"; Tab(8); "New Users: "; FormatNumber(b7451, "####"); Tab(29); "@04@│@0A@ "; Tab(66); "@04@│@0A@  Exceeded Time : "; FormatNumber(w7449, "####"); "  @04@║"
      If s7477 = "Y" Then
        Print #1, "╚═══════════════════════════════════════════════════════════@08@(C) 94-96 KeySoft@04@═╝"
      Else
15519   Print #1, "╚════════════════════════════@84@ Unregistered Copy @04@════════════@08@(C) 94-96 KeySoft@04@═╝"
      End If
15529 If s7477 = "Y" Then
        If Exists(Trim(s6997)) Then
          Open s6997 For Input As 3
15583     Do Until EOF(3)
            Input #3, s5383
            Print #1, s5383
          Loop
15616     Close 3
        Else
15627     Print #1, "@PAUSE@"
        End If
15637 Else
15643   Print #1, "@PAUSE@"
      End If
15653 Close 1
      Close 2
      Return
15664 w7435 = 0
      w7437 = 0
      w7439 = 0
      w7441 = 0
      w7443 = 0
      w7433 = 0
      w7445 = 0
      w7449 = 0
      w7447 = 0
      b7451 = 0
      Open s7005 For Output As 1
      If s7477 = "Y" Then
        If Exists(Trim(s6993)) Then
          Open s6993 For Input As 2
15797     Do Until EOF(2)
            Input #2, s5383
            Print #1, s5383
          Loop
15830     Close 2
          Print #1, "@07@@0F@                    @0D@╔════════════════════════════════╗"
        Else
15851     Print #1, "@CLS@@07@@0F@                    @0D@╔════════════════════════════════╗"
        End If
15861 Else
15867   Print #1, "@CLS@@07@@0F@                    @0D@╔════════════════════════════════╗"
      End If
15877 Print #1, "@0F@                    @0D@║ @0A@Who Visited Today Deluxe v1.3 @0D@ ║@07@"
      Print #1, "@0F@                    @0D@╚══════Consolidated Listing══════╝    @0F@N@07@ew, @0F@R@07@egistered─────┐"
      Print #1, "@0A@ @07@┌─# of Calls               Last Logoff: @0F@N@07@ormal, @0F@E@07@xceeded time, @0F@D@07@rop Carr────┐│"
      If UCase(s6989) = "TIMEOFF" Then
        Print #1, "@4F@ " + Chr(25) + " User               All the way from   TimeOff Min  Baud  DLs ULs MSG DRs  " + Chr(25) + Chr(25) + "@07@"
      Else
15943   Print #1, "@4F@ " + Chr(25) + " User               All the way from    TimeOn Min  Baud  DLs ULs MSG DRs  " + Chr(25) + Chr(25) + "@07@"
      End If
15953 Open s6985 + "COMBINED.LOG" For Random As 2 Len = 130 '! This value should probably be replaced with a "SizeOf" expression
      w7461 = LOF(2)
      If w7461 > 1 Then
        GoSub 19320
      End If
16010 StatusWrite " - Creating Double display", 1213417543, 1213417543, 1213417543
      StatusWrite Pad(Pad(" Who Visited Today Deluxe v1.3 - (c) 1995-96, KeySoft, Inc", 74) + Str(Timer - r7465) + " sec", 80), 1, 1, 26
16104 For i6729 = 1 To w7461 Step 1
        If w7461 > 1 Then
          i6731 = SortNext
        Else
16183     i6731 = 1
        End If
16190   If i6731 <> - 1 Then
          Get 2, i6731, t28_5162 '! 130 bytes
          If t28_5162.s0 = "G~J" Then
            s6757 = t28_5162.s6
            s7452 = t28_5162.s86
            If t28_5162.o125 Then
              o6400 = 0
            Else
16296         GoSub 4208
            End If
16302       If Not o6400 Then
              s6757 = ""
              s7452 = ""
              If t28_5162.o120 Then
                s6733 = s6619(20) + "N"
                Inc b7451
              Else
16396           If t28_5162.o121 Then
                  s6733 = s6619(21) + "R"
                Else
16453             s6733 = ""
                End If
              End If
16462         If t28_5162.s126 = "N" Then
                s6619(0) = s6619(22)
              Else
16540           If t28_5162.s126 = "D" Then
                  s6619(0) = s6619(23)
                Else
16618             If t28_5162.s126 = "E" Then
                    s6619(0) = s6619(24)
                  End If
                End If
              End If
16690         If UCase(Trim(s6981)) = "ALIAS" Then
                s6757 = s6619(2) + t28_5162.s31
                If Len(Trim(s6757)) = 4 Then
                  s6757 = s6619(2) + "(Alias not set)"
                End If
16810         Else
16816           s6757 = s6619(1) + t28_5162.s6
              End If
16857         GoSub 19828
              If UCase(s6989) = "TIMEOFF" Then
                s6761 = t28_5162.s101
              Else
16903           s6761 = t28_5162.s96
              End If
16917         Print #1, s6619(25); FormatNumber(t28_5162.b5, "##"); " "; Pad(Left(s6757, 22), 22); " "; s6619(4); Pad(Left(t28_5162.s56, 20), 20); " "; s6619(6); Pad(s6761, 6); s6619(9); FormatNumber(t28_5162.w106, "###"); "  "; s6619(7); Pad(t28_5162.s108, 5); " "; s6619(13); FormatNumber(t28_5162.b113, "###"); " " + s6619(12); FormatNumber(t28_5162.b114, "###"); "  "; s6619(14); FormatNumber(t28_5162.w115, "##"); "  " + s6619(15); FormatNumber(t28_5162.b117, "##"); "  "; s6619(0); Pad(t28_5162.s126, 1); s6733
              w7435 = w7435 + t28_5162.b113
              w7437 = w7437 + t28_5162.b114
              w7443 = w7443 + t28_5162.w106
              w7439 = w7439 + t28_5162.w115
              w7441 = w7441 + t28_5162.b117
              w7433 = w7433 + t28_5162.b5
              w7447 = w7447 + t28_5162.b122
              w7445 = w7445 + t28_5162.b123
              w7449 = w7449 + t28_5162.b124
            End If
          End If
        End If
17644 Next
17667 If w7433 = 0 Then
        Print #1, ""
        Print #1, Tab(23); "@0C@No caller information available yet."
        Print #1, ""
      End If
17720 Print #1, "@04@╔══════════════════════════≡@0F@ SUMMARY for "; FormatDate(dt6394.D, "mm/dd/yy"); " @04@≡═══════════════════════════╗"
      Print #1, "║@0A@"; Tab(8); "Tot Calls: "; FormatNumber(w7433, "####"); Tab(29); "@04@│@0A@  DLs   ULs   MSGs   DOORs  @04@│@0A@  Drop Carriers : "; FormatNumber(w7447, "####"); "  @04@║"
      Print #1, "║@0A@"; Tab(8); "Sys Usage: "; FormatNumber(w7443, "####"); " @02@mins @04@│@0A@ "; FormatNumber(w7435, "####"); "  "; FormatNumber(w7437, "####"); "   "; FormatNumber(w7439, "####"); "    "; FormatNumber(w7441, "####"); "  @04@│@0A@  Normal Logoffs: "; FormatNumber(w7445, "####"); "  @04@║"
      Print #1, "║@0A@"; Tab(8); "New Users: "; FormatNumber(b7451, "####"); Tab(29); "@04@│@0A@ "; Tab(66); "@04@│@0A@  Exceeded Time : "; FormatNumber(w7449, "####"); "  @04@║"
      If s7477 = "Y" Then
        Print #1, "╚═══════════════════════════════════════════════════════════@08@(C) 94-96 KeySoft@04@═╝"
      Else
18117   Print #1, "╚════════════════════════════@84@ Unregistered Copy @04@════════════@08@(C) 94-96 KeySoft@04@═╝"
      End If
18127 If s7477 = "Y" Then
        If Exists(Trim(s6997)) Then
          Open Trim(s6997) For Input As 3
18184     Do Until EOF(3)
            Input #3, s5383
            Print #1, s5383
          Loop
18217     Close 3
        Else
18228     Print #1, "@PAUSE@"
        End If
18238 Else
18244   Print #1, "@PAUSE@"
      End If
18254 Close 1
      Close 2
      Return
18265 w7433 = 0
      Open s7009 For Output As 1
      If Exists(s6985 + "DROP.HDR") Then
        Open s6985 + "DROP.HDR" For Input As 2
18336   Do Until EOF(2)
          Input #2, s5383
          Print #1, s5383
        Loop
18369   Close 2
      Else
18380   Print #1, "@CLS@@07@@0F@                      @0D@╔════════════════════════════════╗"
        Print #1, "@0F@                      @0D@║ @0A@Who Visited Today Deluxe v1.3 @0D@ ║@07@"
        Print #1, "@0F@                      @0D@╚════════════════════════════════╝@0F@"
        Print #1, Tab(34); "@0C@DROP CARRIERS"
      End If
18429 Print #1, " @4F@    User                  Calling From                        Times Dropped @07@ "
      Open s6985 + "DROPS.LOG" For Random As 2 Len = 90 '! This value should probably be replaced with a "SizeOf" expression
      w7461 = LOF(2)
      If w7461 > 1 Then
        GoSub 19622
      End If
18496 StatusWrite " - Creating Drop Carrier display", 1213417543, 1213417543, 1213417543
      StatusWrite Pad(Pad(" Who Visited Today Deluxe v1.3 - (c) 1995-96, KeySoft, Inc", 74) + Str(Timer - r7465) + " sec", 80), 1, 1, 26
18590 For i6729 = 1 To w7461 Step 1
        i6731 = SortPrev
        If i6731 <> - 1 Or w7461 = 1 Then
          If w7461 = 1 Then
            i6731 = 1
          End If
18698     Get 2, i6731, t26_5292 '! 90 bytes
          If t26_5292.w84 > b7478 And t26_5292.s89 <> "D" Then
            s6757 = t26_5292.s2
            GoSub 4427
            If Not o6400 Then
              If UCase(Trim(s6981)) = "ALIAS" Then
                s6757 = s6619(2) + t26_5292.s27
                If Len(Trim(s6757)) = 4 Then
                  s6757 = s6619(2) + "(Alias not set)"
                End If
18907         Else
18913           s6757 = s6619(1) + t26_5292.s2
              End If
18954         Print #1, Tab(6); Pad(Left(s6757, 25), 26); s6619(4); Pad(Left(t26_5292.s52, 25), 30); s6619(23); "@0F@"; "           "; FormatNumber(t26_5292.w84, "##")
              Inc w7433
              If w7433 = 10 Then
                GoTo 19141
              End If
            End If
          End If
        End If
19118 Next
19141 If w7433 = 0 Then
        Print #1, ""
        Print #1, Tab(20); "@8E@WOW! @0F@- No one dropped carrier yet"
        Print #1, ""
        Print #1, "@04@ "; String(76, "─")
      Else
19222   Get 2, 1, t26_5292 '! 90 bytes
        Print #1, "@04@ "; String(23, "─"); " Tracking Drops Since "; FormatDate(t26_5292.d82, "mm/dd/yy"); " "; String(22, "─")
      End If
19299 Print #1, "@PAUSE@"
      Close 1
      Close 2
      Return
19320 StatusWrite " - Sorting calls for Combined display", 1213417543, 1213417543, 1213417543
      StatusWrite Pad(Pad(" Who Visited Today Deluxe v1.3 - (c) 1995-96, KeySoft, Inc", 74) + Str(Timer - r7465) + " sec", 80), 1, 1, 26
      SortStart
19417 For i6729 = 1 To w7461 Step 1
        Get 2, i6729, t28_5162 '! 130 bytes
        If UCase(s6989) = "TIMEOFF" Then
          s6761 = Trim(Left(t28_5162.s101, 2) + Right(t28_5162.s101, 2))
        Else
19547     s6761 = Trim(Left(t28_5162.s96, 2) + Right(t28_5162.s96, 2))
        End If
19586   SortAdd s6761, i6729
      Next
19621 Return
19622 StatusWrite " - Sorting calls for Drop Carrier display", 1213417543, 1213417543, 1213417543
      StatusWrite Pad(Pad(" Who Visited Today Deluxe v1.3 - (c) 1995-96, KeySoft, Inc", 74) + Str(Timer - r7465) + " sec", 80), 1, 1, 26
      SortStart
19719 For i6729 = 1 To w7461 Step 1
        Get 2, i6729, t26_5292 '! 90 bytes
        SortAdd Str(t26_5292.w84), i6729
      Next
19827 Return
19828 If b6869 > 0 Then
19866   For i6731 = 1 To b6869 Step 1
          If InStr(UCase(s6757), s6765(i6731)) > 0 Then
            s6757 = "@07@n/a"
          End If
19972   Next
      End If
19995 If b6974 > 0 Then
20033   For i6731 = 1 To b6974 Step 1
          If InStr(UCase(t27_5036.s55), s6870(i6731)) > 0 Then
            t27_5036.s55 = "n/a"
          End If
20151   Next
      End If
20174 Return
      Catch 10
        StatusWrite " ! Non Fatal error: Display file 'in use', skipping creation", 1213417543, 1213417543, 1213417543
        StatusWrite Pad(Pad(" Who Visited Today Deluxe v1.3 - (c) 1995-96, KeySoft, Inc", 74) + Str(Timer - r7465) + " sec", 80), 1, 1, 26
        Delay 1
20268   Reset
        StatusClose
        If (Exists("LOGOUT1.WCX")) = 0 Then GoTo 20301
        Chain "LOGOUT1.WCX", ""
20301   End
      GoTo 20308
20308