home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / robot-pd / 12003.ZIP / 12003B.DSK / transfer.bas (.txt) < prev   
Locomotive BASIC  |  1997-12-26  |  3KB  |  49 lines
  1. BACKUP  BAS
  2.  BACK-UP ENHANCE FONTS
  3.  Geoff Short 1992
  4.  Better Late Than Never
  5. Geoff's    Backup    Copy    Maker
  6. Insert ORIGINAL into Drive B:
  7. Insert TRANSFER into Drive A:"
  8. "There is no space on the transfer disk"
  9. "There are no files on the original disk."
  10. "There are other files on the original disk apart from fonts."
  11. )"ORIGINAL"
  12. )"TRANSFER"
  13. )"BACKUP"
  14.   COPYING FROM ORIGINAL TO TRANSFER..."
  15. ".typ",
  16. ".typ",
  17. ,"  INSERT BACKUP DISK INTO DRIVE B: AND PRESS ANY KEY"
  18.   COPYING FROM TRANSFER TO BACKUP..."
  19. ".typ",
  20. ".typ",
  21. ,"b:"
  22. ".bak"
  23. ".typ"
  24.   INSERT ORIGINAL DISK INTO DRIVE B: AND PRESS ANY KEY"
  25. "ALL DONE!"
  26.  Establish free space
  27. ,"GRS.GRS"
  28.  read files
  29. ,"b:*.typ"
  30.  anykey
  31. Press any key"
  32.  screen update
  33.  stop error
  34. "ERROR ";
  35. A"in line";
  36.  resume
  37.  pause
  38. "ERROR";
  39.  INTRO
  40. The    Backup    Program
  41. This    program    is    for    users    who    keep    all    their    fonts    on    a    disk    in    Drive    B    and
  42. wish    to    make    copies    of    them    all    for    security    or    to    pass    on    PD."
  43. You    need    the    original    disk    with    the    fonts    you    want    to    copy,    another,    similar
  44. disk    to    copy    onto,    and    a    disk    in    Drive    A    for    transfer    purposes.    This    disk    must        have    at    least    15K    free    on    it,    and    the    more    free    space,    the    less    effort    is"
  45. "required.    The    destination    disk    does    not    have    to    be    empty,    but    should    have
  46. enough    free    space    for    the    fonts    to    be    copied.    Any    fonts    already    on    the    disk
  47. will    be    updated    and    the    .BAK    version    erased."
  48. FINE-18 $$$
  49.