home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / 125ADEV.ZIP / AREASEE.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-08-08  |  936 b   |  44 lines
  1. defint a-z
  2.  
  3.     type mareatype
  4.         mname   as string * 60
  5.         sec     as integer
  6.         pvt     as string * 1
  7.         fpvt    as string * 1
  8.         fpub    as string * 1
  9.         nmail   as string * 1
  10.         ignore  as string * 1
  11.         fnet    as string * 1
  12.     end type
  13.  
  14. declare function pdqvali%(st$)
  15. declare function pdqexist%(st$)
  16.  
  17. dim ms as mareatype
  18.  
  19. print "Area Number?"
  20. line input a$
  21. av=pdqvali(a$)
  22.  
  23. msa$="msgareas.bbs"
  24.  
  25. if not pdqexist(msa$) then
  26.     print msa$" File Not Found."
  27.     end 1
  28. end if
  29.  
  30. open msa$ for random shared as 1 len=68
  31. get #1, av, ms
  32. close 1
  33.  
  34. print "Area Name:          "rtrim$(ms.mname)
  35. print "Area Sec Needed:    "str$(ms.sec)
  36. print "Private Allowed?:   "ms.pvt
  37. print "Forced Private?:    "ms.fpvt
  38. print "Forced Public?:     "ms.fpub
  39. print "Netmail Allowed?:   "ms.nmail
  40. print "Ignore Scan Flags?: "ms.ignore
  41. print "Forced Netmail?:    "ms.fnet
  42.  
  43. end 0
  44.