The Pier Shareware 6/The_Pier_Shareware_Number_6_(The_Pier_Exchange)_(1995).iso/005/wildpack.zip/SYSPAGE.WCX

Wildcat! WCX | 1994-12-05 | 4KB | 380 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  4212 bytes  02/01/123  06:46:18am
'! Code Segment Size  :3624 bytes
'! Data Segment Size  :5787 bytes
'! String Segment Size:588 bytes
'! Compiled with WCC version 4.01

      Type Type27
        s0 As String*50
        Filler50(1 To 122) As Byte
        s172 As String*60
        s232 As String*10
      End Type

      Type Type26
        Filler0(1 To 1) As Byte
        s1 As String*1
        i2 As Integer
      End Type

      Declare Function Func600 As Boolean
      Declare Function Func1827 As String
      Declare Sub Sub1866(s65534 As String, s65532 As String, s65530 As String)
      Declare Function Func2237(s65534 As String, s65532 As String) As Boolean
      Declare Sub Sub2416(s65534 As String, s65532 As String)
      Declare Sub Sub2613(i65534 As Integer, i65532 As Integer, i65530 As Integer, i65528 As Integer)
      Declare Function Func2881(s65534 As String) As Boolean
      Declare Function Func3112 As String
      Declare Sub Sub3322(s65534 As String)
      Declare Sub Sub3472

      Dim t26_4463(1 To 260) As Type26
      Dim t27_5503 As Type27
      Dim o5745 As Boolean
      Dim s5746 As String
      Dim o5750 As Boolean
      Dim s5751 As String
      Dim s5755 As String
      Dim s5759 As String
      Dim s5763 As String
      Dim s5767 As String
      Dim s5771 As String
      Dim s5775 As String
      Dim s5779 As String
      Dim s5783 As String

      Dim s65528_ As String '! Temporary
      Dim s65532_ As String '! Temporary

      o5745 = Func600
      s5779 = ProgPath + "syspage.ini"
      If o5745 = 0 Then
        s5763 = "0001"
        s5767 = "2359"
        s5746 = "TVS"
      Else
  112   Open s5779 For Input As 1
  131   Do While Not EOF(1)
          s5755 = ""
          s5759 = ""
          s5783 = Func1827
          If s5783 <> "" Then
            Sub1866(s5783, s5755, s5759)
            If UCase(s5755) = "STARTTIME" Then
              s5763 = s5759
            End If
  232       If UCase(s5755) = "ENDTIME" Then
              s5767 = s5759
            End If
  260       If UCase(s5755) = "PASSWORD" Then
              s5746 = s5759
            End If
  288       If UCase(s5755) = "ABUSERFILE" Then
              s5771 = s5759
            End If
  316       If UCase(s5755) = "ABUSERDISP" Then
              s5775 = s5759
            End If
          End If
  344   Loop
  350   Close 1
      End If
  355 o5750 = Func2237(s5763, s5767)
      If o5750 = -1 Then
        If o5745 = -1 Then
          Sub2416((ProgPath + s5771), (ProgPath + "disp\" + s5775))
        End If
  467   s5751 = Func3112
        Sub3322(s5751)
      Else
  492   If Func2881(s5746) = -1 Then
          s5751 = Func3112
          Sub3322(s5751)
        Else
  537     DisplayFile("PAGED")
          Comment
        End If
      End If
  549 Sub3472
      End

'! Called 1 time
      Function Func600 As Boolean
        Dim l65476 As Long
        Dim i65480 As Integer
        Dim l65482 As Long
        Dim i65486 As Integer
        Dim l65488 As Long
        Dim i65492 As Integer
        Dim b65494 As Byte
        Dim o65495 As Boolean
        Dim s65496(1 To 3) As String
        Dim s65508 As String
        Dim s65512 As String*1
        Dim i65513 As Integer
        Dim i65515 As Integer
        Dim s65517 As String
        Dim s65521 As String
        Dim i65525 As Integer
        Dim i65527 As Integer
        Dim i65529 As Integer
        Dim s65531 As String

        s65531 = ProgPath + "tvs.key"
        i65529 = 69
        s65521 = Chr(255)
        s65512 = Chr(0)
        i65515 = 0
        b65494 = 0
        s65508 = ProgPath + "tvs.cfg"
        o65495 = 0
        Func600 = 0
        If Not Exists(s65531) Then
          Func600 = 0
        Else
  714     If Not Exists(s65508) Then
            Func600 = 0
          Else
  741       Open s65531 For Random As 1 Len = 4 '! This value should probably be replaced with a "SizeOf" expression
  782       For i65515 = 1 To 260 Step 1
              Get 1, i65515, t26_4463(i65515) '! 4 bytes
            Next
  900       i65527 = i65529
            i65515 = 0
            i65513 = 1
  923       Do While t26_4463(i65527).s1 <> s65521 And i65515 < 255
              If t26_4463(i65527).s1 = s65512 Then
                If i65513 = 1 Then
                  t27_5503.s0 = s65517
                End If
 1065           If i65513 = 7 Then
                  t27_5503.s172 = s65517
                End If
 1094           s65517 = ""
                i65513 = i65513 + 1
              End If
 1117         s65517 = s65517 + t26_4463(i65527).s1
              i65525 = t26_4463(i65527).i2
              i65527 = i65525
              i65515 = i65515 + 1
            Loop
 1241       t27_5503.s232 = s65517
            Close 1
            If s65517 = "" Then
              Func600 = 0
            Else
 1289         Open s65508 For Input As 2
 1329         For i65527 = 1 To 3 Step 1
                Input #2, s65496(i65527)
              Next
 1438
 1459         For i65515 = 1 To 3 Step 1
                If InStr(UCase(t27_5503.s0), UCase(s65496(i65515))) > 0 Then
                  b65494 = b65494 + 1
                End If
 1580           If InStr(UCase(t27_5503.s172), UCase(s65496(i65515))) > 0 Then
                  b65494 = b65494 + 1
                End If
 1655           If InStr(UCase(s65496(i65515)), UCase(t27_5503.s232)) > 0 Then
                  b65494 = b65494 + 1
                End If
 1730         Next
 1753         If b65494 = 3 Then
                o65495 = -1
              End If
 1776         Close 2
              Func600 = o65495
            End If
          End If
        End If
 1791
      End Function

'! Called 1 time
      Function Func1827 As String
        Dim s65528 As String

        Input #1, s65528
        Func1827 = s65528
      End Function

'! Called 1 time
      Sub Sub1866(s65534 As String, s65532 As String, s65530 As String)
        Dim s65513 As String
        Dim s65517 As String
        Dim i65521 As Integer
        Dim i65523 As Integer
        Dim b65525 As Byte
        Dim s65526 As String

        i65523 = -1
        i65521 = 0
        b65525 = 0
 1895   Do While b65525 <= Len(s65534)
          b65525 = b65525 + 1
          s65526 = Mid(s65534, b65525, 1)
          If s65526 = " " Then
            If i65521 = -1 Then
              i65523 = 0
              i65521 = 0
            End If
 1996       If i65523 = -1 Then
              i65523 = 0
              i65521 = -1
            End If
          End If
 2026     Do While b65525 <= Len(s65534) And s65526 = " " Or s65526 = "="
            b65525 = b65525 + 1
            s65526 = Mid(s65534, b65525, 1)
          Loop
 2114     If b65525 <= Len(s65534) Then
            If i65523 = -1 Then
              s65517 = s65517 + s65526
            End If
 2166       If i65521 = -1 Then
              s65513 = s65513 + s65526
            End If
          End If
 2196   Loop
 2202   s65532 = s65517
        s65530 = s65513
      End Sub

'! Called 1 time
      Function Func2237(s65534 As String, s65532 As String) As Boolean
        Dim s65498 As String
        Dim t65502 As Time
        Dim s65510 As String
        Dim s65518 As String
        Dim s65526 As String
        Dim o65530 As Boolean

        o65530 = 0
        CurrentTime t65502
        s65498 = FormatTime(t65502, "HH:MM")
        s65526 = Mid(s65498, 1, 2)
        s65518 = Mid(s65534, 1, 2)
        s65510 = Mid(s65532, 1, 2)
        If Val(s65518) <= Val(s65526) And Val(s65526) <= Val(s65510) Then
          o65530 = -1
        End If
 2370   Func2237 = o65530
      End Function

'! Called 1 time
      Sub Sub2416(s65534 As String, s65532 As String)
        Dim s65528 As String

        Open s65534 For Input As 2
 2446   Do While Not EOF(2)
          Input #2, s65528
          If s65528 <> "" Then
            If UCase(s65528) = User.Name Then
              If RIPDetected Then
                DisplayTextFile(s65532 + ".RIP")
              Else
 2540           If ANSIDetected Then
                  DisplayTextFile(s65532 + ".SCR")
                Else
 2572             DisplayTextFile(s65532 + ".BBS")
                End If
              End If
 2589         Close 2
              End
            End If
          End If
 2595   Loop
 2601   Close 2
      End Sub

'! Called 5 times
      Sub Sub2613(i65534 As Integer, i65532 As Integer, i65530 As Integer, i65528 As Integer)
        Dim l65516 As Long
        Dim i65520 As Integer
        Dim s65522 As String
        Dim i65526 As Integer

        Locate i65530 + 1, i65528 + 1
        s65522 = String(i65534 - 2, "═")
        Print "╔"; s65522; "╗"
 2722   For i65526 = 1 To i65532 - 2 Step 1
          MoveRight i65528
          Print "║"; String(i65534 - 2, " "); "║"
        Next
 2842   MoveRight i65528
        Print "╚"; s65522; "╝"
      End Sub

'! Called 1 time
      Function Func2881(s65534 As String) As Boolean
        Dim i65521 As Integer '! Temporary
        Dim i65523 As Integer '! Temporary
        Dim i65525 As Integer '! Temporary
        Dim i65527 As Integer '! Temporary
        Dim s65529 As String

        Cls
        Print "@0C@";
        Sub2613((50), (3), (10), (15))
        Locate 12, 17
        s65529 = InputMask("@0E@What is the emergency password?? ", "XXXXXXXXXXXXX", "", 1213417543)
        Sub2613((50), (3), (10), (15))
        If UCase(s65529) = UCase(s65534) Then
          Func2881 = -1
        End If
 3100
      End Function

'! Called 2 times
      Function Func3112 As String
        Dim i65520 As Integer '! Temporary
        Dim i65522 As Integer '! Temporary
        Dim i65524 As Integer '! Temporary
        Dim i65526 As Integer '! Temporary
        Dim s65528 As String

        Cls
        Print "@0C@";
        Sub2613((50), (3), (10), (15))
        Locate 12, 17
        s65528 = InputMask("@0E@What is reason for paging?? ", "XXXXXXXXXXXXXXXXXX", "", 1213417543)
        Sub2613((50), (3), (10), (15))
        Func3112 = s65528
      End Function

'! Called 2 times
      Sub Sub3322(s65534 As String)
        Dim i65526 As Integer '! Temporary
        Dim i65528 As Integer '! Temporary
        Dim i65530 As Integer '! Temporary
        Dim i65532 As Integer '! Temporary

        Cls
        Print "@0C@";
        Sub2613((50), (3), (10), (15))
        Locate 12, 40 - Len(s65534) / 2
        Print "@0E@"; UCase(s65534)
        Locate 15, 1
        PageSysop
      End Sub

'! Called 1 time
      Sub Sub3472
        If o5745 = 0 Then
          t27_5503.s0 = "@8C@<UNREGISTERED>"
          t27_5503.s172 = "@8C@<UNREGISTERED>"
        End If
 3521   Cls
        Print "@0B@SysPage:@0E@ Super Sysop Paging Utility version 1.0.401"
        Print
        Print "@0E@Brought to you by @09@TVS Software."
        Print "@0E@Compiled on: 3\12.1994  @08@(December 3, 1994)"
        Print
        Print "@0E@This Software is Registered to: "
        Print Tab(26); "@0E@SysOp:@0A@ "; t27_5503.s0
        Print Tab(26); "  @0E@BBS:@0A@ "; t27_5503.s172
        Print
        WaitEnter
      End Sub