home *** CD-ROM | disk | FTP | other *** search
- defint a-z
-
- type mareatype
- mname as string * 60
- sec as integer
- pvt as string * 1
- fpvt as string * 1
- fpub as string * 1
- nmail as string * 1
- ignore as string * 1
- fnet as string * 1
- end type
-
- declare function pdqvali%(st$)
- declare function pdqexist%(st$)
-
- dim ms as mareatype
-
- print "Area Number?"
- line input a$
- av=pdqvali(a$)
-
- msa$="msgareas.bbs"
-
- if not pdqexist(msa$) then
- print msa$" File Not Found."
- end 1
- end if
-
- open msa$ for random shared as 1 len=68
- get #1, av, ms
- close 1
-
- print "Area Name: "rtrim$(ms.mname)
- print "Area Sec Needed: "str$(ms.sec)
- print "Private Allowed?: "ms.pvt
- print "Forced Private?: "ms.fpvt
- print "Forced Public?: "ms.fpub
- print "Netmail Allowed?: "ms.nmail
- print "Ignore Scan Flags?: "ms.ignore
- print "Forced Netmail?: "ms.fnet
-
- end 0
-