home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / 125ADEV.ZIP / WHO.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-08-08  |  959 b   |  51 lines
  1. defint a-z
  2.  
  3.     type whotype
  4.         avail           as string * 1
  5.         username        as string * 40
  6.         userfrom        as string * 40
  7.         userbaud        as string * 10
  8.         activity        as string * 40
  9.     end type
  10.  
  11. declare function pdqvali%(st$)
  12. declare function pdqexist%(st$)
  13.  
  14. dim who as whotype
  15.  
  16.  
  17. st$="node1.inf"
  18.  
  19. if not pdqexist(st$) then st$="node2.inf"
  20.  
  21. if not pdqexist(st$) then
  22.    print "Multinode version is not set up.  Exiting."
  23.    end 1
  24. end if
  25.  
  26. open st$ for input as 1
  27. for t=1 to 71
  28.   line input #1, multip$
  29. next
  30. close 1
  31.  
  32. whofile$=multip$+"whoison.dat"
  33.  
  34. print "Node to view?"
  35. line input n$
  36. nv=pdqvali(n$)
  37.  
  38. open whofile$ for random shared as 1 len=131
  39.  
  40. get #1,nv,who
  41.  
  42. close 1
  43.  
  44. print "Availability:    ";who.avail
  45. print "User:            ";who.username
  46. print "From:            ";who.userfrom
  47. print "Activity:        ";who.activity
  48. print "Baud:            ";who.userbaud
  49.  
  50. end 0
  51.