home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / n / newsflash / !BBS / BBS / Scripts / Upload < prev    next >
Encoding:
Text File  |  1996-09-16  |  2.1 KB  |  103 lines
  1. {
  2. | File upload script
  3. | Alex Howarth (16 September 1996 (03:01:13))
  4.  
  5. REPORT "File upload"
  6. OPENFILEBASE
  7. READFAREA FILEAREA
  8. STD NL NL
  9. BFG 7}Upload to area.. {BFG 1 PRINT FILEAREANAME} (#{PRINT FILEAREA}){NL
  10. BFG 7}Is this correct [n/{BFG 1}Y{BFG 7}] : {
  11. GETd option,"YN"
  12. IF option="Y" THEN
  13.   NL TAB 0 STD CLL
  14.   BFG 2 PRINT"Z"
  15.   BFG 7 PRINT"modem / "
  16.   BFG 2 PRINT"Y"
  17.   BFG 7 PRINT"modem / "
  18.   BFG 2 PRINT"B"
  19.   BFG 7 PRINT"YmodemB / "
  20.   BFG 2 PRINT"X"
  21.   BFG 7 PRINT"modem / "
  22.   BFG 2 PRINT"1"
  23.   BFG 7 PRINT"Xmodem1K / "
  24.   BFG 2 PRINT"C"
  25.   BFG 7 PRINT"XmodemCRC / "
  26.   BFG 2 PRINT"A"
  27.   BFG 7 PRINT"bort"
  28.   GET protocol,"ZYBX1CA"
  29.   IF protocol="Z" THEN
  30.     protocol="Zmodem"
  31.     xfer%=5
  32.   ENDIF
  33.   IF protocol="Y" THEN
  34.     protocol="Ymodem"
  35.     xfer%=3
  36.   ENDIF
  37.   IF protocol="B" THEN
  38.     protocol="YmodemB"
  39.     xfer%=4
  40.   ENDIF
  41.   IF protocol="X" THEN
  42.     protocol="Xmodem"
  43.     xfer%=0
  44.   ENDIF
  45.   IF protocol="1" THEN
  46.     protocol="Xmodem1K"
  47.     xfer%=2
  48.   ENDIF
  49.   IF protocol="C" THEN
  50.     protocol="XmodemCRC"
  51.     xfer%=1
  52.   ENDIF
  53.   IF protocol="A" THEN
  54.     protocol="Abort"
  55.     xfer%=99
  56.     |END
  57.   ENDIF
  58.   IF xfer%<>99 THEN
  59.     IF xfer%=0 OR xfer%=1 THEN
  60.       NL
  61.       PRINT "Enter filename: "
  62.       INPUT filename
  63.       NL
  64.     ELSE
  65.       filename=""
  66.     ENDIF
  67.     NL
  68.     BFG 2}Start your {PRINT protocol} upload now..{
  69.     BFG 7 NL
  70.     UPLOAD filename,xfer%,filearea,newfilenum%
  71.     IF newfilenum%>0 THEN
  72.       NL
  73.       BFG 7
  74.       PRINT "Saved as file number : #"+newfilenum%
  75.       NL
  76.       PRINT "Enter short description : "
  77.       BATTR 6,4 INPUT temp,55 STD
  78.       SETSHORTDESCRIPTION newfilenum%,temp
  79.       NL
  80.       }Do you want to enter a long description [y/{BFG 1}N{STD}]{
  81.       GETd option,"NY"
  82.       sure%=(option="Y")| weird!!! - see below, makes sense!
  83.       IF sure% THEN
  84.         BFG 1 PRINT "Yes"
  85.         NL
  86.         ATTR 0,4} -- {FG 7}NewsFlash {PRINT NFVERSION} Line Editor {
  87.         FG 0} --{
  88.         CLL STD NL
  89.         WRITEMESSAGE 1,ok%
  90.         IF ok% THEN
  91.           SETLONGDESCRIPTION newfilenum%
  92.         ENDIF
  93.       ELSE
  94.         BFG 1 PRINT "No"
  95.       ENDIF
  96.       NL
  97.     ENDIF
  98.   ENDIF
  99. ENDIF
  100. CLOSEFILEBASE
  101. }
  102.       
  103.