home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / n / newsflash / !BBS / BBS / Scripts / BaseChange < prev    next >
Encoding:
Text File  |  1996-09-16  |  1.0 KB  |  52 lines
  1. {
  2. | Displays a list of accessable file bases
  3. | Allows user to change current file base
  4. | Alex Howarth 1996
  5.  
  6. STD CLS
  7. LOCATE 0,0
  8. BATTR 3,4 TAB 0}#{TAB 4}File base name{TAB 40}#{TAB 44}File base name{
  9. CLL STD
  10. NL NL
  11.  
  12. OPENFILEBASE
  13. STARTMORE
  14.  
  15. zarni%=0
  16. currentbase%=1
  17. REPEAT
  18.   READFILEBASE currentbase%
  19.   IF (FILEBASEACCESS AND CANKNOW) AND (FILEBASETITLE<>"") THEN
  20.     FORMATNUM currentbase%,0,3 TO formatedbase
  21.     TAB zarni%    BFG 7 PRINT formatedbase
  22.     TAB zarni%+4  BFG 2 PRINT FILEBASETITLE
  23.     zarni%=zarni%+40
  24.     IF zarni%>40 LET zarni%=0 NL
  25.   ENDIF
  26.   currentbase%=currentbase%+1
  27. UNTIL currentbase%>32
  28. ENDMORE
  29. NL
  30. BFG 3
  31. PRINT "Current    ["
  32. READFILEBASE FILEBASE
  33. BFG 7 PRINT FILEBASETITLE+" (#"+FILEBASE+")"
  34. BFG 3 PRINT "]"
  35. NL NL
  36. BFG 3 PRINT "(" 
  37. BFG 7 PRINT "RETURN" 
  38. BFG 3 PRINT ") aborts, choose ["
  39. here%=xpos
  40. BFG 3 PRINT "   ]"
  41. STD BATTR 7,0
  42. TAB here%
  43. BFG 4
  44. INPUT fb%,3
  45. IF (fb%>0) AND (fb%<=32) THEN
  46.   READFILEBASE fb%
  47.   IF FILEBASEACCESS AND (CANVIEW OR CANWRITE) AND (FILEBASETITLE<>"") THEN
  48.     FILEBASE=fb%
  49.   ENDIF
  50. ENDIF
  51. CLOSEFILEBASE
  52. }