27. Disc relocate
    ~~~~~~~~~~~~~
This routine, sometimes referred to rather confusingly as a 'downloader',
enables programs to be run which are normally too large for use with a DFS
fitted. It switches off the DFS with *TAPE, and shifts the whole program down
to &E00 before running it. The screen output is temporarily inhibited with
VDU21 during relocation, and reactivated afterwards with |F (VDU6), to give a
tidy appearance. For debugging, the VDU21 may be omitted initially, as it
also inhibits useful error messages! The routine will relocate BASIC
programs, including those containing assembler. If there is also 'hidden'
data and/or machine code, then it is easiest to alter the TOP in line 1 to
HIMEM, although this makes the routine rather slower. Spaces are shown for
clarity only, line 1 is split at a convenient point for the same reason.

  0 IF PAGE=&E00 THEN 10
  1 VDU21:*KEY9 *TAPE|M FOR I%=0 TO TOP-PAGE STEP 4:
    I%!&E00=I%!PAGE:NEXT|M PAGE=&E00|M NEW|M OLD|M RUN|F|M
  2 *FX138,0,137
  3 END : REM Most Important!
 10 REM Start of your Program.