home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / 125ADEV.ZIP / FAREASEE.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-08-08  |  480 b   |  31 lines
  1. defint a-z
  2.  
  3. declare function pdqvali%(st$)
  4.  
  5. faf$="areas\farea1.bbs"
  6.  
  7. open faf$ for input as 1
  8. if err then end 1
  9.  
  10. print "Area Number?"
  11. line input a$
  12. av=pdqvali(a$)
  13.  
  14. for t=1 to av
  15.   if eof(1) then end 1
  16.   line input #1, nm$
  17.   if eof(1) then end 1
  18.   line input #1, secAp$
  19. next
  20.  
  21. comma=instr(secap$,",")
  22.  
  23. sc$=left$(secap$,comma-1)
  24. path$=mid$(secap$,comma+1)
  25.  
  26. print "Area Name:       "nm$
  27. print "Security Needed: "sc$
  28. print "Path:            "path$
  29.  
  30. end 0
  31.