home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / 125ADEV.ZIP / USERINFO.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-08-08  |  4.0 KB  |  82 lines
  1. defint a-z
  2.  
  3. TYPE usertype
  4.    lasttime as string * 5                       'format 22:22 (24 hour)
  5.    waiting as string * 1                        'Y=mail waiting, N=no mail
  6.    lockedout as STRING * 1                      'locked out? Y/N
  7.    userlen AS STRING * 1                        'ascii char for length of name
  8.    username AS STRING * 40                      'actual name padded to 40 spcs
  9.    streetlen AS STRING * 1                      'char for length of userstreet
  10.    userstreet AS STRING * 40                    'street padded to 40 spcs
  11.    fromlen AS STRING * 1                        'char for userfrom
  12.    userfrom AS STRING * 40                      'from padded to 40 spcs
  13.    passlen AS STRING * 1                        'char for len of userpass
  14.    userpass AS STRING * 20                      'user password
  15.    phonelen AS STRING * 1                       'char for len of userphone
  16.    userphone AS STRING * 15                     'phone
  17.    worklen AS STRING * 1                        '
  18.    userwork AS STRING * 15                      'alt phone #
  19.    birthlen AS STRING * 1                       'byte/byte/word
  20.    userbirth AS STRING * 9                      'birthday in config: 00-00-00
  21.    lastlen AS STRING * 1                        'julian
  22.    userlast AS STRING * 9                       'last on in config: 00-00-00
  23.    timeleft AS integer                          'time left for today
  24.    timeson AS integer                           'times user called
  25.    useruploads AS integer                       'uploads
  26.    userdownloads AS integer                     'downloads
  27.    firstlen AS STRING * 1                       '
  28.    userfirst AS STRING * 9                      'first logon date
  29.    subscriber AS STRING * 1                     'subscriber? Y/N
  30.    sublen AS STRING * 1                         'char for length of usersubdate
  31.    usersubdate AS STRING * 9                    'sub end date
  32.    lastdownarea AS integer                      'last file area
  33.    lastuploadarea AS integer                    'last upload area(not used now)
  34.    lastmsgarea AS integer                       'last msg area
  35.    usersec AS integer                           'user sec level
  36.    kdownloaded AS integer                       'k downloaded
  37.    kuploaded AS integer                         'kbytes uploaded
  38.    expert AS STRING * 1                         'expert mode?
  39.    graphlen AS STRING * 1                       'char for len of usergraph
  40.    usergraph AS STRING * 15                     'graphics mode
  41.    screenlen AS integer                         'length of user screen
  42.    memolen AS STRING * 1                        'char for len of usermemo
  43.    usermemo AS STRING * 40                      'sysop's memo for user
  44.    baudlen AS STRING * 1                        'char for len of userbaud
  45.    userbaud AS STRING * 10                      'last baudrate user used
  46.    complen AS STRING * 1                        'make one byte
  47.    usercomp AS STRING * 20                      'computer using
  48.    userdropped AS integer                       'drop times
  49.    chattimes AS integer                         'times chat req w/ sysop
  50.    disconnect AS integer                        'times disconnected by sysop
  51.    protnumb AS STRING * 2                       'protocol using
  52.    newlen AS STRING * 1                         'len for newcheck
  53.    newcheck AS STRING * 8                       'last check for new files
  54.    defavail as string * 1                       'avail for multinode chat?
  55.    reserved AS STRING * 39                      'reserved for future use
  56. END TYPE
  57.  
  58. declare function pdqexist%(st$)
  59. declare function pdqvali%(st$)
  60.  
  61. dim us as usertype
  62.  
  63. print "User Record to read?"
  64. line input a$
  65.  
  66. av=pdqvali(a$)
  67.  
  68. userf$="userfile.dat"
  69.  
  70. if not pdqexist(userf$) then print userf$" not found, exiting.":end 1
  71.  
  72. open userf$ for random shared as 1 len=393
  73.  
  74. get #1, av, us
  75. close 1
  76.  
  77. print "User Name:       "left$(us.username,asc(us.userlen))
  78. print "Calling From:    "left$(us.userfrom,asc(us.fromlen))
  79. print "Security Level:  "str$(us.usersec)
  80.  
  81. end 0
  82.