home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / n / newsflash / !BBS / BBS / Scripts / Download < prev    next >
Encoding:
Text File  |  1996-09-16  |  1.3 KB  |  77 lines
  1. {
  2. | Download script for NewsFlash
  3. | Alex Howarth (05 August 1996)
  4.  
  5. REPORT "Download"
  6. NL NL TAB 0 STD CLL
  7. BFG 2 PRINT"Z"
  8. BFG 7 PRINT"modem / "
  9. BFG 2 PRINT"Y"
  10. BFG 7 PRINT"modem / "
  11. BFG 2 PRINT"B"
  12. BFG 7 PRINT"YmodemB / "
  13. BFG 2 PRINT"X"
  14. BFG 7 PRINT"modem / "
  15. BFG 2 PRINT"1"
  16. BFG 7 PRINT"Xmodem1K / "
  17. BFG 2 PRINT"C"
  18. BFG 7 PRINT"XmodemCRC / "
  19. BFG 2 PRINT"Q"
  20. BFG 7 PRINT"ueue / "
  21. BFG 2 PRINT"A"
  22. BFG 7 PRINT"bort"
  23. GET protocol,"ZYBX1CQA"
  24. IF protocol="Z" THEN
  25.   protocol="Zmodem"
  26.   xfer%=5
  27. ENDIF
  28. IF protocol="Y" THEN
  29.   protocol="Ymodem"
  30.   xfer%=3
  31. ENDIF
  32. IF protocol="B" THEN
  33.   protocol="YmodemB"
  34.   xfer%=4
  35. ENDIF
  36. IF protocol="X" THEN
  37.   protocol="Xmodem"
  38.   xfer%=0
  39. ENDIF
  40. IF protocol="1" THEN
  41.   protocol="Xmodem1K"
  42.   xfer%=2
  43. ENDIF
  44. IF protocol="C" THEN
  45.   protocol="XmodemCRC"
  46.   xfer%=1
  47. ENDIF
  48. IF protocol="A" THEN
  49.   protocol="Abort"
  50.   xfer%=99
  51.   END
  52. ENDIF
  53. IF protocol="Q" THEN
  54.   xfer%=50
  55. ENDIF
  56. NL NL
  57. PRINT "File numbers must have a # prefix (eg #001234)" NL
  58. BFG 3
  59. NL
  60. PRINT "Enter filename/#number : "
  61. ATTR 3,4 INPUTc filename,10
  62. OPENFILEBASE
  63. FINDFILE filenum% FROM filearea,filename
  64. IF xfer%=50 THEN
  65.   TAGFILE filenum%
  66.   NL PRINT "File "+filename+" queued"
  67. ELSE
  68.   STD NL NL
  69.   BFG 7
  70.   PRINT "Sending file "+filename NL
  71.   PRINT "Start your "+protocol+" transfer now..." NL
  72.   DOWNLOAD filenum%,xfer%
  73.   NL
  74. ENDIF
  75. CLOSEFILEBASE
  76. }
  77.