home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 15 / af015.adf / Canary / Make-Turkey-files < prev    next >
AmigaDOS Script File  |  1978-01-08  |  2KB  |  57 lines
  1. .key drive,dest
  2. .bra {
  3. .ket }
  4. .def drive DF0:
  5. .def dest DF0:
  6.  
  7. echo "Creating Turkey! files list from {drive} TO drive {dest}."
  8.  
  9. resident >NIL: c:list
  10. resident >NIL: c:if
  11. resident >NIL: c:else
  12. resident >NIL: c:endif
  13. resident >NIL: c:ask
  14. resident >NIL: c:echo
  15.  
  16. echo "*nThis operation will overwrite the existing list on {dest}"
  17. ask "Are you sure you want to do this?"
  18. if not warn
  19.    echo "Cancelled: Exiting" 
  20.    skip end
  21. endif
  22.  
  23. if {drive} EQ {dest}
  24.    echo "Insert SOURCE (Workbench1.3) disk into drive {drive}" 
  25.    ask "Press Return when ready"  
  26. endif
  27.  
  28. echo  >RAM:FileList "              Check here vvvvvvv*n"
  29. list >>RAM:FileList {drive}C/#? files nohead dates
  30. list >>RAM:FileList {drive}T/#? files nohead dates
  31. list >>RAM:FileList {drive}DEVS/#? files nohead dates
  32. list >>RAM:FileList {drive}DEVS/clipboards/#? files nohead dates
  33. list >>RAM:FileList {drive}DEVS/keymaps/#? files nohead dates
  34. list >>RAM:FileList {drive}DEVS/printers/#? files nohead dates
  35. list >>RAM:FileList {drive}L/#? files nohead dates
  36. list >>RAM:FileList {drive}LIBS/#? files nohead dates
  37. list >>RAM:FileList {drive}EMPTY/#? files nohead dates
  38. list >>RAM:FileList {drive}SYSTEM/#? files nohead dates
  39. list >>RAM:FileList {drive}UTILITIES/#? files nohead dates
  40. list >>RAM:FileList {drive}FONTS/#? files nohead dates
  41.  
  42. if {drive} EQ {dest}
  43.    echo "Insert DESINATION disk into drive {drive}" 
  44.    ask "Press Return when ready" 
  45. endif
  46.  
  47. copy ram:FileList {dest}Canary/Canary-Files2      
  48.  
  49. lab end
  50. resident >NIL: c:list remove
  51. resident >NIL: c:if remove
  52. resident >NIL: c:else remove
  53. resident >NIL: c:endif remove
  54. resident >NIL: c:ask remove
  55. resident >NIL: c:echo remove
  56.  
  57.