home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / TJWHO10.ZIP / WHOON.WCX (.txt) < prev   
Encoding:
Wildcat! WCX  |  1994-12-29  |  1.2 KB  |  57 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  1273 bytes  08/22/124  11:28:24pm
  3. '! Code Segment Size  :685 bytes
  4. '! Data Segment Size  :4691 bytes
  5. '! String Segment Size:588 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Dim s4465 As String
  9.       Dim l4469 As Long
  10.       Dim l4497 As Long
  11.       Dim nir4505 As NodeInfoRecord
  12.  
  13.       Dim l65528_ As Long
  14.       Dim l65532_ As Long
  15.  
  16.       s4465 = ProgPath + "WHOON.cfg"
  17.       If Exists(s4465) Then
  18.         Open s4465 For Input As 1
  19.         Input #1, l4469
  20.         Close 1
  21.       Else
  22.   105   Print
  23.         Print "Can't Find " + ProgPath + "whoon.CFG"
  24.         End 
  25.       End If
  26.   129 Cls 
  27.       Print "@06@Who's Online (WCX) v1.00 by T&J Software (717)325-9481 3 Nodes"
  28.   165 For l4497 = 1 To l4469 Step 1
  29.         GetNodeInfo nir4505, l4497
  30.         Print "@0F@----------------------------------------------------------------------------"
  31.         If nir4505.NodeStatus = 1 Then
  32.           Print "@0A@NODE "; l4497; ":   @0E@Callers Name: @07@Waiting for Call."
  33.         End If
  34.   277   If nir4505.NodeStatus = 0 Then
  35.           Print "@0A@NODE "; l4497; ":   @0E@Callers Name: @0C@Down."
  36.         End If
  37.   318   If nir4505.NodeStatus <> 1 And nir4505.NodeStatus <> 0 And nir4505.BaudRate = 0 Then
  38.           Print "@0A@NODE "; l4497; ":   @0E@Callers Name: @0D@"; nir4505.CallersName; " on LOCALLY "
  39.         End If
  40.   407   If nir4505.NodeStatus <> 1 And nir4505.NodeStatus <> 0 And nir4505.BaudRate <> 0 Then
  41.           Print "@0A@NODE "; l4497; ":   @0E@Callers Name: @0D@"; nir4505.CallersName; " on at "; nir4505.BaudRate
  42.         End If
  43.   507   If nir4505.NodeStatus = 1 Then
  44.           Print "@07@          Calling From: "
  45.         End If
  46.   535   If nir4505.NodeStatus <> 1 And nir4505.NodeStatus <> 0 Then
  47.           Print "@07@          Calling From: "; nir4505.CallerFrom
  48.         End If
  49.   589   If nir4505.NodeStatus = 0 Then
  50.           Print "@07@          Calling From: "
  51.         End If
  52.   616   Print "@07@       Previous Caller: "; nir4505.PrevCaller
  53.       Next
  54.   660 Print "@0F@----------------------------------------------------------------------------"
  55.       Pause 
  56.       End 
  57.