| To install to HD:
| 1. "Boot Floppy" with disc 1 inserted.  No further changes are required
Set Obey$Dir ADFS::Emotions1.$.!EmtInstll
HideCommandWindow
| Allow us to bugfix the BASIC installer
LOAD <Obey$Dir>.!RunImage 8000
ADFCRC 8000 BAE0 D93747C1 !RunImage
MEMA BAC4 64616F6C
Set noGEK 1
IF ADFFS$OSVersion>=&50000 THEN GOARM3JIT 0
| Bugfix: Don't try to dismount the current filesystem
KEY 0 GO 8000|M480PROCZ_(V_%,0,H_$):PROCZ_(V_%,6,H_$):PROCZ_(V_%,1,G_$):PROCa_(X_%,2,0):PROCb_(V_%,1,-1):c_=TRUE:PROCd_:QUIT|M1420|M1570 DEFPROCo_:PROCY_(X_%,7):L_+=1:IFL_>A_%THENn_%=TRUE:OSCLI"Unset noGEK":ENDPROC|M7870OSCLI"Set GEKDir "+G_$|MRUN|F|M
ECHO <21>
FX 225,1
FX 138,0,128
GOS
IF ADFFS$OSVersion>=&50000 THEN GOARM3JIT
COPY ADFFS:obey.F1013103 <GEKDir>.Emotions.!Emotions.!Run F~C~V~N
| Bugfix: code uses "Choices:" instead of "<Choices$Dir>"
IF "<noGEK>" = "" THEN Set OChoices$Path <Choices$Path>
IF "<noGEK>" = "" THEN Set Choices$Path <Choices$Dir>.
IF "<noGEK>" = "" THEN Set GEKonfigI$Dir ADFS::0.$.GEKonfig
IF "<noGEK>" = "" THEN BASIC -quit <GEKonfigI$Dir>.!Runimage
IF "<noGEK>" = "" THEN Set Choices$Path <OChoices$Path>
IF "<noGEK>" = "" THEN Unset OChoices$Path
IF "<noGEK>" = "" THEN Unset GEKonfigI$Dir
Unset noGEK
Unset GEKDir