| To HD install:
| 1. Copy !FireBall and !FireBall2 to HD
| 2. Replace the contents of !FireBall.!Run and !FireBall2.!Run with:
|  ADFBootFloppy F1059201
IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::FireballII.$.!Fireball2
SetEval fb$run 0
IfThere <Obey$Dir>.FireBall THEN SetEval fb$run 1
|        Joystick (FireBall)
|        B1            - Release ball
| Space  B2/B8 (Start) - Start game
IF fb$run THEN ADFJoystickKeys J1 B2=95 B8=95
IF fb$run THEN ADFJoystickMouse J1 S=B1
| Keys   Joystick  (FireBall II)
| Z         - Left
| X         - Right
| C         - Double speed
| V      B1 - Release ball
| B      B3 - Move ball left
| N      B2 - Move ball right
| Space  B1 - Start game
IF fb$run=0 THEN ADFJoystickMouse J1 40% S=B1 M=B3 A=B2
HideCommandWindow
Set Fireball$Dir <Obey$Dir>
IF fb$run THEN RMAFree 8 ELSE RMAFree 272
IF fb$run THEN SpriteFree 24 ELSE SpriteFree 32
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory 13 160 ELSE ScreenSize 160
IF fb$run AND ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS Arthur
IF fb$run THEN WimpSlot -min 64K -max 64K ELSE WimpSlot -min 304K -max 304K
IF ADFFS$OSVersion>=&50000 THEN GOARM3JIT 0
BASIC -quit <Fireball$Dir>.FBpointer
RUN <Fireball$Dir>.FBfont

IF fb$run THEN LOAD <Fireball$Dir>.FBsoundtrk 7000
IF fb$run THEN SLOAD <Fireball$Dir>.FBsprites
IF fb$run THEN RMLoad <Fireball$Dir>.FBsound
IF fb$run THEN LOAD <Fireball$Dir>.FBmc C000
IF fb$run THEN ADFCRC C000 EC00 28CCC95B FBmc
| Redirect Arthur softFont to RISC OS 3.11 location
IF fb$run AND ADFFS$OSVersion<&35000 THEN MEMA E7CC E3A00C36
| Sync to VSync
IF fb$run THEN MEMA C838 E3A00013 >C84C E1A00000 >C85C E1A00000
| Bugfix: Page Zero access
IF fb$run THEN MEMA D87C C5849000
IF fb$run THEN Set Alias$CH. ChannelVoice %%*0
IF fb$run THEN Set Alias$SCH. SChoose %%*0
IF fb$run THEN BASIC -quit <Fireball$Dir>.FireBall

IF fb$run=0 THEN RMLoad <Fireball$Dir>.FBdisplay
IF fb$run=0 THEN picture <Fireball$Dir>.FBloadscrn
IF fb$run=0 THEN RMKill ScreenCompress
IF fb$run=0 THEN ADFPause 100
IF fb$run=0 THEN RMLoad <Fireball$Dir>.Samples.BassRM
IF fb$run=0 THEN RMLoad <Fireball$Dir>.Samples.ChordRM
IF fb$run=0 THEN RMLoad <Fireball$Dir>.Samples.PipeRM
IF fb$run=0 THEN RMLoad <Fireball$Dir>.Samples.SynthRM
IF fb$run=0 THEN RMLoad <Fireball$Dir>.Samples.CeasedRM
IF fb$run=0 THEN RMLoad <Fireball$Dir>.Samples.ErasureRM
IF fb$run=0 THEN RMLoad <Fireball$Dir>.Samples.LaughRM
IF fb$run=0 THEN RMLoad <Fireball$Dir>.Samples.RelaxRM
IF fb$run=0 THEN RMLoad <Fireball$Dir>.Samples.ParadiseRM
IF fb$run=0 THEN SLoad <Fireball$Dir>.FBsprites
IF fb$run=0 THEN Echo <21>
IF fb$run=0 THEN KEY 0 225FOR Z%=10000*A% TO 10000*(A%+1) STEP 4:samples!Z%=0:NEXT|M490QUIT|MRUN|M
IF fb$run=0 THEN FX 225,1
IF fb$run=0 THEN FX 21,0
IF fb$run=0 THEN FX 138,0,128
IF fb$run=0 THEN BASIC -load "<Fireball$Dir>.FBsound"
| Don't change the mouse position
IF fb$run=0 THEN LOAD <Fireball$Dir>.FBcode 10A00
IF fb$run=0 THEN ADFCRC 10A00 272B8 EE539FBA FBcode
IF fb$run=0 THEN MEMA 110F0 E1A00000 >112FC E1A00000 >11570 E1A00000 >115E0 E1A00000 >128E8 E1A00000 >130B0 E1A00000
IF fb$run=0 THEN KEY 0 110|M940MOUSE RECTANGLE 64,0,672,1023:MOUSE TO 400,512|MRUN|F|M
IF fb$run=0 THEN FX 138,0,128
IF fb$run=0 THEN BASIC -load "<Fireball$Dir>.FBdesigner"
ADFJoystickKeys
ADFJoystickMouse
IF ADFFS$OSVersion>=&50000 THEN GOARM3JIT
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory
IF fb$run AND ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS
UnSet Alias$CH.
UnSet Alias$SCH.
UnSet Fireball$Dir
UnSet fb$run