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

Wildcat! WCX | 1994-12-05 | 2KB | 192 lines

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

      Declare Sub Sub781(s65534 As String)
      Declare Function Func1407(s65534 As String) As Integer
      Declare Sub Sub1462(s65534 As String)

      Dim s4463 As String
      Dim s4467 As String
      Dim s4471 As String
      Dim s4475 As String
      Dim b4479 As Byte
      Dim ur4480 As UserRecord
      Dim s5130 As String
      Dim s5134 As String
      Dim i5138 As Integer
      Dim i5140 As Integer
      Dim i5142 As Integer
      Dim i5144 As Integer
      Dim b5146 As Byte

      Dim b65535_ As Byte

      i5140 = 0
      i5142 = 0
      i5144 = 0
      i5138 = -1
      b5146 = 0
   72 Do While Not i5144
        s4463 = ""
        s4467 = ""
        Print "@0E@";
        DisplayPrompt 1344
        Input s5130
        Sub781(s5130)
        If InStr(s4463, "*") = 1 Then
          i5140 = -1
          s4463 = Mid(s4463, 2, 1213417543)
        End If
  181   If InStr(s4463, "!") = 1 Then
          i5142 = -1
          s4463 = Mid(s4463, 2, 1213417543)
        End If
  229   If s4463 <> "" Then
          If Func1407(s4463) Then
            s4471 = s4467
            s4467 = ""
            s5134 = s4463 + " " + s4471
            i5138 = 0
            i5144 = -1
          End If
        End If
  313   If i5138 Then
          b65535_ = b4479
          If b65535_ = 0 Then
            i5144 = 0
          Else
  360       If b65535_ = 1 Then
              Print "@0E@";
              DisplayPrompt 1345
              Input s4467
              s5134 = s4463 + " " + s4467
              i5144 = -1
            Else
  431         If b65535_ = 2 Then
                s5134 = s4463 + " " + s4467
                i5144 = -1
              Else
  481           If b65535_ = 3 Then
                  s5134 = s4463 + " " + s4467 + " " + UCase(s4471)
                  i5144 = -1
                Else
  547             If b65535_ = 4 Then
                    s5134 = s4463 + " " + s4467 + " " + s4471 + " " + UCase(s4475)
                    i5144 = -1
                    GoTo 626
                  End If
                End If
              End If
            End If
          End If
        End If
  626   b5146 = b5146 + 1
        If b5146 = 5 Then
          Print "@0E@";
          DisplayPrompt 1350
          Print
          Print "<<Click>>"
          HangUp
          End
        End If
  685 Loop
  691 If i5140 Then
        s5134 = "*" + s5134
      End If
  717 If i5142 Then
        s5134 = "!" + s5134
      End If
  743 Sub1462(s5134)
      End

'! Called 1 time
      Sub Sub781(s65534 As String)
        Dim b65521 As Byte
        Dim i65522 As Integer
        Dim i65524 As Integer
        Dim i65526 As Integer
        Dim i65528 As Integer
        Dim s65530 As String

        b65521 = 0
        i65528 = -1
        i65526 = 0
        i65524 = 0
        i65522 = 0
        b4479 = 0
  828   Do While b65521 <= Len(s65534)
          b65521 = b65521 + 1
          s65530 = Mid(s65534, b65521, 1)
          If s65530 = " " Or s65530 = ";" Then
            If i65524 = -1 Then
              i65528 = 0
              i65526 = 0
              i65524 = 0
              i65522 = -1
            End If
  956       If i65526 = -1 Then
              i65528 = 0
              i65526 = 0
              i65524 = -1
              i65522 = 0
            End If
  998       If i65528 = -1 Then
              i65528 = 0
              i65526 = -1
              i65524 = 0
              i65522 = 0
            End If
          End If
 1040     Do While b65521 <= Len(s65534) And s65530 = " " Or s65530 = ";"
            b65521 = b65521 + 1
            s65530 = Mid(s65534, b65521, 1)
          Loop
 1128     If b65521 <= Len(s65534) Then
            If i65528 = -1 Then
              s4463 = s4463 + s65530
            End If
 1180       If i65526 = -1 Then
              s4467 = s4467 + s65530
            End If
 1210       If i65524 = -1 Then
              s4471 = s4471 + s65530
            End If
 1240       If i65522 = -1 Then
              s4475 = s4475 + s65530
            End If
          End If
 1270   Loop
 1276   If s4463 <> "" Then
          b4479 = b4479 + 1
        End If
 1307   If s4467 <> "" Then
          b4479 = b4479 + 1
        End If
 1338   If s4471 <> "" Then
          b4479 = b4479 + 1
        End If
 1369   If s4475 <> "" Then
          b4479 = b4479 + 1
        End If
 1400
      End Sub

'! Called 1 time
      Function Func1407(s65534 As String) As Integer
        If GetUser(ur4480, s65534) Then
          Func1407 = -1
        Else
 1448     Func1407 = 0
        End If
 1454
      End Function

'! Called 1 time
      Sub Sub1462(s65534 As String)
        SetLogonName s65534, ""
      End Sub