home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 20 / af020.adf / Beginners / makeauto < prev   
Encoding:
AmigaDOS Script File  |  1980-02-25  |  1.0 KB  |  47 lines
  1. .key dummy
  2. .bra {
  3. .ket }
  4. ; This is a patch for the Startup-sequence to create
  5. ; an auto run folder viz WB2
  6. ; It cheats a bit, but it's OK
  7.  
  8. ECHO "Another script from Mastering AmigaDOS Scripts"
  9. ECHO "(c) Mark Smiddy 1991"
  10. ECHO "Reproduced by permission"
  11.  
  12. COPY S:Startup-sequence T:START
  13.  
  14. SEARCH T:START MakeAuto
  15. IF NOT WARN
  16. ECHO "Your Startup-sequence has been modified already!"
  17. ECHO "Sorry, I can't do this TWICE!"
  18. SKIP END
  19. ENDIF
  20.  
  21. IF NOT EXISTS SYS:Auto
  22. ASK "Shall I make an auto folder for you?"
  23. IF WARN
  24. COPY SYS:empty.info SYS:Auto.info
  25. MAKEDIR SYS:Auto
  26. ENDIF
  27.  
  28. echo  >t:auto1 "sb//*n"
  29. echo >>t:auto1 "p;b//; Modified by MakeAuto"
  30. echo >>t:auto1 "f/LoadWB*n"
  31. echo >>t:auto1 "4sb//*n"
  32. echo >>t:auto1 "4p"
  33. echo >>t:auto1 "b//If exists sys:Auto"
  34. echo >>t:auto1 "n;b//LIST >t:Auto SYS:Auto lformat *"RUN >NIL: %s%s*" "
  35. echo >>t:auto1 "n;b//EXECUTE t:auto"
  36. echo >>t:auto1 "n;b//ENDIF"
  37.  
  38. EDIT T:START to T:STARTER WITH t:Auto1
  39. ECHO "I am about to OVERWRITE your Startup-sequence"
  40.  
  41. ASK "Are you sure you want to do this?"
  42. IF WARN
  43.   COPY T:STARTER S:Startup-sequence
  44. ENDIF
  45.  
  46. LAB END
  47.