home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format 20
/
af020.adf
/
Beginners
/
makeauto
< prev
next >
Wrap
AmigaDOS Script File
|
1980-02-24
|
1KB
|
47 lines
.key dummy
.bra {
.ket }
; This is a patch for the Startup-sequence to create
; an auto run folder viz WB2
; It cheats a bit, but it's OK
ECHO "Another script from Mastering AmigaDOS Scripts"
ECHO "(c) Mark Smiddy 1991"
ECHO "Reproduced by permission"
COPY S:Startup-sequence T:START
SEARCH T:START MakeAuto
IF NOT WARN
ECHO "Your Startup-sequence has been modified already!"
ECHO "Sorry, I can't do this TWICE!"
SKIP END
ENDIF
IF NOT EXISTS SYS:Auto
ASK "Shall I make an auto folder for you?"
IF WARN
COPY SYS:empty.info SYS:Auto.info
MAKEDIR SYS:Auto
ENDIF
echo >t:auto1 "sb//*n"
echo >>t:auto1 "p;b//; Modified by MakeAuto"
echo >>t:auto1 "f/LoadWB*n"
echo >>t:auto1 "4sb//*n"
echo >>t:auto1 "4p"
echo >>t:auto1 "b//If exists sys:Auto"
echo >>t:auto1 "n;b//LIST >t:Auto SYS:Auto lformat *"RUN >NIL: %s%s*" "
echo >>t:auto1 "n;b//EXECUTE t:auto"
echo >>t:auto1 "n;b//ENDIF"
EDIT T:START to T:STARTER WITH t:Auto1
ECHO "I am about to OVERWRITE your Startup-sequence"
ASK "Are you sure you want to do this?"
IF WARN
COPY T:STARTER S:Startup-sequence
ENDIF
LAB END