home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / n / newsflash / !BBS / BBS / Scripts / AreaChange next >
Encoding:
Text File  |  1996-09-16  |  1.2 KB  |  57 lines
  1. {
  2. | Displays a list of accessable file areas
  3. | Allows user to change current area
  4. | Alex Howarth 1996
  5.  
  6. STD CLS
  7. LOCATE 0,0
  8. BATTR 3,4 TAB 0}#{TAB 4}File area name{TAB 40}#{TAB 44}File area name{
  9. CLL STD NL NL
  10.  
  11. OPENFILEBASE
  12. STARTMORE
  13.  
  14. zarni%=0
  15. currentarea%=1
  16. totalaccesssize%=0
  17. REPEAT
  18.   READFAREA currentarea%
  19.   IF FILEAREAACCESS AND CANKNOW AND ((FILEAREABASES AND CURRENTFILEBASE)<>0) THEN
  20.     FORMATNUM currentarea%,0,3 TO formatedarea
  21.     TAB zarni%    BFG 7 PRINT formatedarea
  22.     TAB zarni%+4  BFG 2 PRINT FILEAREANAME
  23.     zarni%=zarni%+40
  24.     IF zarni%>40 LET zarni%=0 NL
  25.     totalaccesssize%=totalaccesssize%+FILEAREASIZE
  26.   ENDIF
  27.   currentarea%=currentarea%+1
  28. UNTIL currentarea%>FILEAREAS
  29. ENDMORE
  30. NL
  31. BATTR 3,4
  32. PRINT "Total size ["
  33. BFG 7 PRINT totalaccesssize%/1024+"KB"
  34. BFG 3 PRINT "]" 
  35. CLL NL
  36. PRINT "Current    ["
  37. READFAREA FILEAREA
  38. BFG 7 PRINT FILEAREANAME+" (#"+FILEAREA+")"
  39. BFG 3 PRINT "]"
  40. CLL STD NL NL
  41. BFG 3 PRINT "(" 
  42. BFG 7 PRINT "RETURN" 
  43. BFG 3 PRINT ") aborts, choose ["
  44. here%=xpos
  45. BFG 3 PRINT "   ]"
  46. STD BATTR 7,0
  47. TAB here%
  48. BFG 4
  49. INPUT fa%,3
  50. IF (fa%>0) AND (fa%<=FILEAREAS) THEN
  51.   READFAREA fa%
  52.   IF FILEAREAACCESS AND (CANVIEW OR CANWRITE OR CANREAD OR CANKNOW) AND ((FILEAREABASES AND CURRENTFILEBASE)<>0) THEN
  53.     FILEAREA=fa%
  54.   ENDIF
  55. ENDIF
  56. CLOSEFILEBASE
  57. }