home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / 125ADEV.ZIP / USERCONF.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-08-08  |  787 b   |  34 lines
  1. defint a-z
  2.  
  3. type highmesstype
  4.     highread as long                            'high read number
  5.     highscan as long                            'high scan number
  6.     selected as string * 1                      'area selected? (Y/N)
  7.     mailwaiting as string * 1                   'mail waiting? (ignored if
  8. end type                                        '               netmail area)
  9.  
  10. declare function pdqvali%(st$)
  11.  
  12. dim usr as highmesstype
  13.  
  14. userf$="messages\1.usr"
  15.  
  16. print "User record number to check?"
  17. line input a$
  18.  
  19. av=pdqvali(a$)
  20.  
  21.  
  22. open userf$ for random shared as 1 len=10
  23. if err then end 1
  24.  
  25. get #1, av, usr
  26.  
  27. close 1
  28.  
  29. print "High Read:       "str$(usr.highread)
  30. print "Selected?:       "usr.selected
  31. print "Mail Waiting?:   "usr.mailwaiting
  32.  
  33. end 0
  34.