home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 15 / af015.adf / Canary / Canary! < prev    next >
Text File  |  1978-01-08  |  2KB  |  72 lines
  1. .Key drive
  2. .bra {
  3. .ket }
  4. .def drive DF0:
  5.  
  6. echo "Canary! *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/makedir ram:Turkey
  24. copy >NIL: sys:c/install ram:Turkey
  25. copy >NIL: sys:c/protect ram:Turkey
  26. copy >NIL: sys:system/format ram:Turkey
  27.  
  28. failat 10
  29.  
  30. echo "*nInsert a BLANK disk to *"baste*" in drive {drive}"
  31. ask "Then press <Return> when ready..."
  32.  
  33. if exists {drive}
  34.  echo "*nThat disk is formatted!!"
  35.  echo "I am about to completely destroy the disk in {drive} called:"
  36.  cd >ram:t{$$}
  37.  cd {drive}
  38.  cd
  39.  cd <ram:t{$$} >nil: ?
  40.  echo "There is no going back and ALL data will be lost"
  41.  ask "*n*e[32mLAST CHANCE:*e[31m Are you really sure you want to go on?"
  42. if not warn
  43.    echo "*nCanary sez: I thought I saw a VIRurghhhh..."
  44.    skip end
  45.  endif
  46. endif
  47.  
  48. echo "*nCanary! is running please wait"
  49.  
  50. format drive {drive} name "CheepCheep" noicons
  51.  
  52. makedir CheepCheep:devs
  53. makedir CheepCheep:devs/keymaps
  54. makedir CheepCheep:devs/printers
  55. makedir CheepCheep:l
  56. makedir CheepCheep:libs
  57. makedir CheepCheep:C
  58. makedir CheepCheep:S
  59. makedir CheepCheep:System
  60. makedir CheepCheep:Empty
  61. makedir CheepCheep:T
  62. makedir CheepCheep:Fonts
  63. makedir CheepCheep:Utilities
  64. copy :Canary/Start-Canary CheepCheep:S/Startup-sequence
  65. protect CheepCheep:S/Startup-sequence +d
  66. copy :Canary/echo CheepCheep:C
  67. copy :Canary/inst CheepCheep:C/Install
  68.  
  69. lab end
  70. echo "*nCanary sez: I thought I saw a VIRurghhhh..."
  71.  
  72.