1REM Exile Mapper
    2REM by James Bonfield
    3REM (c) The Micro User
   10ON ERROR MODE7:REPORT:PRINT" at line ";ERL:END 
   20FORPASS=0TO2STEP2
   30P%=&1100
   40[OPTPASS
   50.begin
  700LDX #hacker MOD 256
  710LDY #hacker DIV 256
  720JSR &FFF7
  810LDX #0
  820.mvloop
  830LDA &1300,X:STA &3381,X
  840INX
  850CPX #&58:BNE mvloop
  860JMP &3381
  870.hacker EQUS "*L. EXILEL1"+CHR$&0D
  880]
  890NEXT
  900FOR PASS=0 TO 2 STEP 2
  910P%=&3381
  920[OPT PASS
  930JSR &3052
  940JMPstart
  950.draw
  960JSR&30EA
  970JSR&3180 
  980.x
  990LDA #&9B:STA &18
 1000.y
 1010LDA #&3B:STA &1A
 1020JSR&2352
 1030JSR&1FBE
 1040JSR&2645
 1050RTS
 1060.start
 1070JSR draw
 1080.loop
 1090JSR &FFE0
 1100PHA
 1110LDA#15:LDX #0:JSR &FFF4
 1120PLA
 1130CMP #90
 1140BEQ left
 1150CMP #88
 1160BEQ right
 1170CMP #58
 1180BEQ up
 1190CMP #47
 1200BEQ down
 1210JMP loop
 1220.right
 1230INC x+1
 1240JMP start
 1250.left
 1260DEC x+1
 1270JMP start
 1280.up
 1290DEC y+1
 1300JMP start
 1310.down
 1320INC y+1
 1330JMP start
 1340]
 1350NEXT
 1360FOR I=&3381 TO P% STEP 4:!(I-&3381+&1300)=!I:NEXT
 1370MODE 7:PRINT TAB(5,10)CHR$131;"PLEASE INSERT EXILE DISC"
 1380X=GET
 1390CALLexile_cheat
>