home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / n / newsflash / !BBS / BBS / Scripts / ShortFList < prev    next >
Encoding:
Text File  |  1996-09-16  |  890 b   |  46 lines
  1. {
  2. | Short filelist for NewsFlash
  3. | Alex Howarth (16 September 1996)
  4.  
  5. REPORT "Short File List"
  6. STD CLS 
  7. BFG 2
  8. OPENFILEBASE
  9. READFAREA FILEAREA
  10. IF FILEAREAACCESS AND CANVIEW THEN
  11.   IF FILEAREAFILES THEN
  12.     BATTR 7,4}File#     Filename      Filesize  Short Description  {
  13.     CLL STD NL
  14.     BATTR 7,0
  15.     STARTMORE
  16.     filenum%=firstfile
  17.     REPEAT
  18.       READFILE filenum%
  19.       BFG 7
  20.       FORMATNUM filenum%,0,6 TO filenum
  21.       PRINT filenum 
  22.       BFG 3
  23.       TAB 10 PRINT FILEBASENAME
  24.       BFG 7
  25.       TAB 24 PRINT FILEBASESIZE
  26.       TAB 34
  27.       IF SHORTD>=0 THEN
  28.         BFG 2
  29.         SHOWDESCRIPTION SHORTD
  30.       ELSE
  31.         BFG 1
  32.         PRINT "No description available"
  33.       ENDIF
  34.       NL
  35.       filenum%=nextfile
  36.     UNTIL filenum%=0
  37.   ELSE
  38.     BFG 7 NL}no files found..{NL
  39.   ENDIF
  40. ELSE
  41.   BFG 1 NL}You do not have access to this area{NL
  42. ENDIF
  43. ENDMORE
  44. GOSUB anykey
  45. CLOSEFILEBASE
  46. }