home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 15 / af015.adf / Canary / Turkey! < prev    next >
Text File  |  1978-01-08  |  2KB  |  72 lines
  1. .Key drive
  2. .bra {
  3. .ket }
  4. .def drive DF0:
  5.  
  6. echo "Turkey! *n By Mark Smiddy (for Amiga Format)*n"
  7. echo "Produces disks for viruses to kill!*n"
  8. echo "Copying system files - please wait"
  9.  
  10. failat 21
  11. makedir >NIL: ram:Turkey
  12. path ram:Turkey add
  13. copy >NIL: sys:c/copy ram:Turkey
  14. copy >NIL: sys:c/echo ram:Turkey
  15. copy >NIL: sys:c/cd ram:Turkey
  16. copy >NIL: sys:c/if ram:Turkey
  17. copy >NIL: sys:c/else ram:Turkey
  18. copy >NIL: sys:c/endif ram:Turkey
  19. copy >NIL: sys:c/ask ram:Turkey
  20. copy >NIL: sys:c/quit ram:Turkey
  21. copy >NIL: sys:c/skip ram:Turkey
  22. copy >NIL: sys:c/lab ram:Turkey
  23. copy >NIL: sys:c/protect ram:Turkey
  24. copy >NIL: sys:system/diskcopy ram:Turkey
  25. failat 10
  26.  
  27. echo "*nInsert a BLANK disk to *"baste*" in cooker {drive}"
  28. ask "Then press <Return> when ready..."
  29.  
  30. if exists {drive}
  31.  echo "*nThat disk is formatted!!"
  32.  echo "I am about to roast the juicey disk in {drive} called: *e[33m" noline
  33.  cd >ram:t{$$}
  34.  cd {drive}
  35.  cd
  36.  cd <ram:t{$$} >nil: ?
  37.  echo "*e[31mThere is no going back and ALL data will be lost"
  38.  ask "*n*e[32mLAST CHANCE:*e[31m Are you really sure you want to go on?"
  39.  if not warn
  40.    skip end
  41.  endif
  42. endif
  43.  
  44.  
  45. echo "*nTurkey! is running please wait"
  46.  
  47. if "{drive}" EQ "df0:"
  48. echo "Insert a CLEAN (preferably original) Workbench 1.3 disk in df0:"
  49. ask "Press <Return> when ready..."
  50. echo "Insert Turkey disk in df0: when prompted for DESTINATION."
  51. echo "Insert Workbench disk in df0: if prompted for SOURCE."
  52. diskcopy from df0: to df0: name "GobbleGobble"
  53. else
  54. echo "Insert a CLEAN (preferably original) Workbench 1.3 disk in df0:"
  55. echo "Insert a the Turkey disk in drive {drive}"
  56. ask "Press <Return> when ready..."
  57. echo "Starting diskcopy operation..."
  58. diskcopy <nil: >nil: from df0: to {drive} name "GobbleGobble"
  59. endif
  60.  
  61. echo "Now copying files"
  62.  
  63. copy :Canary/CanaryStartup2 GobbleGobble:S/Startup-sequence
  64. copy :Canary/echo GobbleGobble:C
  65. copy :Canary/inst GobbleGobble:C/Install
  66.  
  67. lab end
  68. echo "*nTurkey sez: I thought I saw a VIR*e[3murghhhh...*e[0m"
  69. delete >nil: ram:Turkey/#? 
  70.  
  71.  
  72.