10 DATABRKBPLJSRBMIRTIBVCRTSBVSbraBCCLDYBCSCPYBNECPXBEQ,@OCO@O@OOOAOAOAO

   20 DATAORAORAANDANDEOREORADCADCSTASTALDALDACMPCMPSBCSBC,HIHIHIHIHIHIHIHI

   30 DATA@@@ora@@@and@@@eor@@@adc@@@staLDXlda@@@cmp@@@sbc,@J@J@J@J@JAJ@J@J

   40 DATA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@,@@@@@@@@@@@@@@@@

   50 DATAtsbtrbBITbit@@@@@@stzstzSTYSTYLDYLDYCPY@@@CPX@@@,BBBDBDBDBDBDBDBD

   60 DATAORAORAANDANDEOREORADCADCSTASTALDALDACMPCMPSBCSBC,BDBDBDBDBDBDBDBD

   70 DATAASLASLROLROLLSRLSRRORRORSTXSTXLDXLDXDECDECINCINC,BDBDBDBDBFBFBDBD

   80 DATA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@,@@@@@@@@@@@@@@@@

   90 DATAPHPCLCPLPSECPHACLIPLASEIDEYTYATAYCLVINYCLDINXSED,@@@@@@@@@@@@@@@@

  100 DATAORAORAANDANDEOREORADCADCbitSTALDALDACMPCMPSBCSBC,AGAGAGAGAGAGAGAG

  110 DATAASLinaROLdeaLSRphyRORplyTXATXSTAXTSXDEXphxNOPplx,N@N@N@N@@@@@@@@@

  120 DATA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@,@@@@@@@@@@@@@@@@

  130 DATAtsbtrbBITbitJMP@@@JMPjmpSTYstzLDYLDYCPY@@@CPX@@@,CCCECEKLCCCECECE

  140 DATAORAORAANDANDEOREORADCADCSTASTALDALDACMPCMPSBCSBC,CECECECECECECECE

  150 DATAASLASLROLROLLSRLSRRORRORSTXstzLDXLDXDECDECINCINC,CECECECECECGCECE

  160 DATA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@,@@@@@@@@@@@@@@@@

  170 REM @="":A=#:B=&1:C=&2:D=&1,X:E=&2,X:F=&1,Y:G=&2,Y:H=(&1,X):I=(&1),Y:J=(&1),K=(&2),L=(&2,X),M=(&2),Y,N=Acc,O=Brh

  180 MODE4:ONERRORGOTO420

  190 PRINT'SPC10"Electron 6502 Editor"

  200 OSCLI"FX21,0":PRINT'SPC6"Insert Disc And Press Space";:REPEAT

  210 UNTILGET=32:CLEAR:CLOSE#0:z$="BASIC":z%=OPENINz$

  220 i%=&8000:INPUT'"Location:&"z$'

  230 j%=EVAL("&"+z$)AND&3FFF:PTR#z%=j%

  240 VDU14:REPEAT:PROCcvt(0):UNTIL0

  250 END

  260 DEFFNh(n%,h%)=RIGHT$("0000000"+STR$~n%,h%)

  270 DEFFNb1=FNh(BGET#z%,2)

  280 DEFFNb2:LOCALh%:=FNh(BGET#z%+BGET#z%*256,4)

  290 DEFFNb0:LOCALh%:h%=BGET#z%:h%=h%+256*(h%>=&80):=FNh(PTR#z%+i%+h%,4)

  300 DEFPROCcvt(n%):IFn%THENENDPROC

  310 PRINT~(i%+PTR#z%AND&FFFF)" ";:g%=BGET#z%:RESTORE(g%MOD16*10+10)

  320 READi$,j$:g%=g%DIV16:i$=MID$(i$,g%*3+1,3):g%=ASCMID$(j$,g%+1,1)-64:IFi$="@@@"THENPTR#z%=PTR#z%-1:i$="EQUB&"+FNb1:IFg%<>0THENi$=i$+":Nop"

  330 IFg%=1THENi$=i$+"#&"+FNb1:ELSEIFg%=2THENi$=i$+"&"+FNb1

  340 IFg%=3THENi$=i$+"&"+FNb2:ELSE:IFg%=4THENi$=i$+"&"+FNb1+",X"

  350 IFg%=5THENi$=i$+"&"+FNb2+",X"ELSEIFg%=6THENi$=i$+"&"+FNb1+",Y"

  360 IFg%=7THENi$=i$+"&"+FNb2+",Y"ELSEIFg%=8THENi$=i$+"(&"+FNb1+",X)"

  370 IFg%=9THENi$=i$+"(&"+FNb1+"),Y"ELSEIFg%=10THENi$=i$+"(&"+FNb1+")"

  380 IFg%=11THENi$=i$+"(&"+FNb2+")"ELSEIFg%=12THENi$=i$+"(&"+FNb2+",X)"

  390 IFg%=13THENi$=i$+"("+FNb2+"),Y"ELSEIFg%=14THENi$=i$+"A"

  400 IFg%=15THENi$=i$+"&"+FNb0

  410 PRINTi$:ENDPROC

  420 REPORT:PRINT;" at line ";ERL

  430 END

  440 DEFPROCcde:FORQ%=0TO2STEP2:P%=&900:[OPTQ%

  450   .adr%LDA&601:STA&4B:LDA&602:STA&4C:LDY#0:LDA&604:STA(&4B),Y:INY:LDA&605:STA(&4B),Y:INY:LDA#&FF:STA(&4B),Y:INY:STA(&4B),Y:RTS

  460 ]:NEXT

  470 z=0:z%=0:CALLadr%,z%,z

  480 p%=&AA72:REPEATp%=p%+1

  490   FORq%=1TOp%?TRUE

  500     ?z%=?p%:z%!1=p%!1

  510     PRINT~p%" ";z

  520   p%=p%+5:NEXT

  530 UNTILFALSE