home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / n / newsflash / !BBS / BBS / Scripts / ZipNewFile < prev   
Encoding:
Text File  |  1996-09-17  |  3.1 KB  |  141 lines
  1. {
  2. | Zip new files
  3. | Alex Howarth (04 September 1996)
  4.  
  5. REPORT "ZipNewFiles"
  6.  
  7. OPENFILEBASE
  8. STD NL NL
  9. }Current file area is : {
  10. BFG 6
  11. READFAREA FILEAREA
  12. PRINT FILEAREANAME} (#{PRINT FILEAREA}){NL NL
  13. BFG 7}[{BFG 2}G{BFG 7}]lobal [{BFG 2}L{BFG 7}]ocal : {
  14. GET option,"GL"
  15.  
  16. IF option="G" THEN
  17.   | fa% (0=all areas)
  18.   fa%=0
  19. ELSE
  20.   fa%=FILEAREA
  21. ENDIF
  22.  
  23. totalzipped%=0
  24. zipcode%=0
  25.  
  26. |STARTMORE
  27. NL
  28. BATTR 7,4}File#     Filename      Filesize  Short Description{
  29. CLL STD
  30. NL
  31. REPEAT
  32.   ZIPNEWFILES fa%,zipcode%,50 TO searched%,result%,zipcode%
  33.   totalzipped%=totalzipped%+searched%
  34.   BFG 7 TAB 0}Zipped {BFG 1 PRINT totalzipped% BFG 7} files{CLL
  35.   IF result% THEN
  36.     READFILE result%
  37.     TAB 0 STD CLL BFG 7
  38.     FORMATNUM result%,0,6 TO filenum%
  39.     PRINT filenum%
  40.     BFG 3 TAB 10
  41.     PRINT FILEBASENAME
  42.     BFG 7 TAB 24
  43.     PRINT FILEBASESIZE
  44.     TAB 34
  45.     IF SHORTD>=0 THEN
  46.       BFG 2
  47.       SHOWDESCRIPTION SHORTD
  48.       NL
  49.     ELSE
  50.       BFG 1
  51.       PRINT "No description available"
  52.       NL
  53.     ENDIF
  54.     | download/continue/queue
  55.     BFG 6}<RETURN>{BFG 7}/{BFG 6}N{BFG 7}ext {BFG 6}D{BFG 7}ownload {BFG 6}A{BFG 7}bort : {
  56.     GETr option,"NDA"
  57.     IF option="A" THEN
  58.       CLOSEFILEBASE
  59.       END
  60.     ENDIF
  61.     IF option="D" THEN
  62.       IF FILEAREAACCESS AND CANREAD THEN | probably not needed
  63.         BFG 2}Download{STD
  64.         REPORT "Downloading"
  65.         NL
  66.         BFG 2 PRINT"Z"
  67.         BFG 7 PRINT"modem / "
  68.         BFG 2 PRINT"Y"
  69.         BFG 7 PRINT"modem / "
  70.         BFG 2 PRINT"B"
  71.         BFG 7 PRINT"YmodemB / "
  72.         BFG 2 PRINT"X"
  73.         BFG 7 PRINT"modem / "
  74.         BFG 2 PRINT"1"
  75.         BFG 7 PRINT"Xmodem1K / "
  76.         BFG 2 PRINT"C"
  77.         BFG 7 PRINT"XmodemCRC / "
  78.         BFG 2 PRINT"Q"
  79.         BFG 7 PRINT"ueue / "
  80.         BFG 2 PRINT"A"
  81.         BFG 7 PRINT"bort"
  82.         GET protocol,"ZYBX1CQA"
  83.         IF protocol="Z" THEN
  84.           protocol="Zmodem"
  85.           xfer%=5
  86.         ENDIF
  87.         IF protocol="Y" THEN
  88.           protocol="Ymodem"
  89.           xfer%=3
  90.         ENDIF
  91.         IF protocol="B" THEN
  92.           protocol="YmodemB"
  93.           xfer%=4
  94.         ENDIF
  95.         IF protocol="X" THEN
  96.           protocol="Xmodem"
  97.           xfer%=0
  98.         ENDIF
  99.         IF protocol="1" THEN
  100.           protocol="Xmodem1K"
  101.           xfer%=2
  102.         ENDIF
  103.         IF protocol="C" THEN
  104.           protocol="XmodemCRC"
  105.           xfer%=1
  106.         ENDIF
  107.         IF protocol="A" THEN
  108.           protocol="Abort"
  109.           xfer%=99
  110.         ENDIF
  111.         IF protocol="Q" THEN
  112.           TAGFILE filenum%
  113.           TAB 0 STD CLL
  114.           BFG 3 PRINT FILEBASENAME STD BFG 2} added to queue{
  115.           xfer%=99 | to skip the download
  116.         ENDIF
  117.         IF xfer%<>99 THEN
  118.           NL
  119.           BFG 3 PRINT "1 file for download ("+FILEBASESIZE+" bytes)...."
  120.           NL
  121.           BFG 2
  122.           PRINT "Start your "+protocol+" download now" NL
  123.           BFG 7 NL
  124.           DOWNLOAD filenum%,xfer%
  125.           NL
  126.         ENDIF
  127.       ELSE
  128.         BFG 1
  129.         PRINT "Insufficient user level"
  130.         NL
  131.       ENDIF
  132.     ENDIF
  133.     | 'N' and 'RETURN' are left, lets just leave,..
  134.     BFG 2}Next{STD NL
  135.   ENDIF
  136. UNTIL zipcode%=0
  137. |ENDMORE
  138. CLOSEFILEBASE
  139. NL
  140. GOSUB ANYKEY
  141. }