Home » Archimedes archive » Zipped Apps » 6502em » !6502Em/!RunImage

!6502Em/!RunImage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Zipped Apps » 6502em
Filename: !6502Em/!RunImage
Read OK:
File size: 889D bytes
Load address: 0000
Exec address: 0000
File contents
    1REM>!RunImage
    2REMProduced by BasCompress v1.69 (04 Aug 1995)
    3REM > !RunImage
    4REM 6502Em (desktop frontend for binaries)
    5REM (c) Michael and Anne Borcherds, 1995
    6REM LOCK ROMRAM,memory,roms,osword7F_drive%,osword72_drive%,paging%
    7e$="2.10 (24th November 1996)":ONERRORSYS&600DD:SYS&600DF,"    Fatal internal error "+STR$ERL+": "+REPORT$,1,"6502Em":QUIT
    8osword7F_drive%=1:osword72_drive%=0:paging%=TRUE:B_%=HIMEM:HIMEM=HIMEM-96*&400:!HIMEM=0:SYS35,"6502Em$SaveScreen",HIMEM,&FFTO,B$:IFLEFT$(B$,3)="Yes"THEN
    9U=HIMEM:My=FALSE
   10ELSE:HIMEM=HIMEM+96*&400:U=0:My=FALSE
   11ENDIF:HIMEM=HIMEM-(64+64)*&400:memory=HIMEM+64*&400:IFmemory<>&A0000THENERROR0,"6502Em initialisation: Fatal memory error"
   12Q=memory-512:HIMEM=HIMEM-17*16*&400:roms=HIMEM:HIMEM=HIMEM-&A0*&400:X=HIMEM:U%=&4000:Ry%=&BBC
   13REM volume between 0 and 127
   14PROCRy:PROCIy:PROCXy:PROCU:PROCey:PROCK:END
   15DEFPROCxy(H$):LOCALSy%,Fy%,oy%,Z_%,M_%:DIMt 256,f 256:SYS&400E9,40,,H$TO,,,Sy%,Fy%,,oy%:SYS53,oy%,4TO,,Z_%:Sy%=Sy%<<Z_%:SYS53,oy%,5TO,,M_%:Fy%=Fy%<<M_%:!Z%=-1:Z%!4=0:Z%!8=-16:Z%!&C=Z%!4+Sy%:Z%!16=20+Fy%:Z%!20=&1700310B:!(Z%+24)=t:!(Z%+28)=f:$t=H$:$f="S"+H$
   16!(Z%+32)=256:SYS&400C2,,Z%TO!Z%:Zy=!Z%:ENDPROC
   17DEFPROCHy(H$):$f="S"+H$:$t=H$:Z!0=-2:Z!4=Zy:Z!8=&800080:Z!&C=&800080:SYS&400CD,,Z:Z!8=0:Z!&C=&800080:SYS&400CD,,Z:ENDPROC
   18DEFPROCRy:DIMk 4:$k="TASK":SYS&400C0,&C8,!k,"6502Em"TOey%,j%:DIMZ%256,R_%256,ry%300,my%&C8,ky%800,ay%&C8,ay 20:DIMK_%50,T_%&C,I_%&C,J 40:DIM`y &C*4,Z 256:PROCY(HIMEM,B_%):PROCxy("OS�1.2"):PROCfy:PROCby:IFey%>299THEN
   19SYS6,&A1,&8CTO,,F_%:D_%=-(F_%AND1):IFD_%=TRUETHENSYS&400D9,,"<6502Em$Res>.Template3D"ELSESYS&400D9,,"<6502Em$Res>.Templates"
   20SYS&400DB,,-1,,,-1,"info"TO,A%,B%:SYS&400DB,,-1,,,-1,"xfer_send"TO,C%,D%:SYS&400DB,,-1,,,-1,"xfer_send2"TO,E%,F%:SYS&400DB,,-1,,,-1,"config"TO,G%,H%
   21ELSE:SYS&400D9,,"<6502Em$Res>.Templates":A%=700:B%=300:C%=400:D%=350:E%=C%:F%=D%:G%=&7D0:H%=&7D0
   22ENDIF:DIMAy A%,Ry B%,L C%+4,v D%,H E%+4,c F%:DIMg G%,u H%+4:SYS&400DB,,Ay,Ry,Ry+B%,-1,"info":SYS&400DB,,L,v,v+D%,-1,"xfer_send":SYS&400DB,,H,c,c+F%,-1,"xfer_send2":SYS&400DB,,g,u,u+H%,-1,"config":SYS&400DA:SYS&400C1,,LTOA%:d%=A%:SYS&400C1,,HTOA%:g%=A%
   23SYS&400C1,,gTOA%:m%=A%:zy%=FALSE:SYS&400C1,,AyTOA%:dy%=A%:!Z=dy%:Z!4=9:SYS&400CE,,Z:$(Z!28)=e$+CHR$0:!Z=dy%:Z!4=&B:SYS&400CE,,Z:OSCLI"Load <6502Em$Res>.SerialNo "+STR$~(Z!28):ENDPROC
   24DEFPROCey:SYS16TOA$:IFRIGHT$(A$,1)=" "THEN
   25I%=0:REPEATI%+=1:UNTILMID$(A$,LENA$-I%,1)<>" ":A$=LEFT$(A$,LENA$-I%)
   26ENDIF:IFRIGHT$(A$,1)=CHR$34THENA$=LEFT$(A$,LENA$-1)
   27IFLEFT$(A$,1)=CHR$34THENA$=RIGHT$(A$,LENA$-1)
   28I%=0:REPEATI%+=1:UNTILMID$(A$,LENA$-I%,1)=" "ORI%=LENA$:A$=RIGHT$(A$,I%):IFFNZ(MID$(A$,LENA$-9,&A))<>".!RUNIMAGE"THENPROCV(A$):PROCP
   29ENDPROC
   30DEFPROCK:ONERRORIFFNG(REPORT$,ERR<>1)=2THENPROCX
   31REPEAT:ly%=6195:SYS&400C7,ly%,Z%TOA_%:CASEA_%OF
   32WHEN2:SYS&400C5,,Z%:IF!Z%=m%THENzy%=TRUE
   33WHEN3:SYS&400C6,,Z%:IF!Z%=m%THENzy%=FALSE
   34WHEN6:PROCvy
   35WHEN7:PROCPy
   36WHEN8:PROCyy
   37WHEN9:PROCDy
   38WHEN17,18:PROCzy
   39ENDCASE:UNTILFALSE:ENDPROC
   40DEFPROCzy:CASEZ%!16OF
   41WHEN0:PROCX
   42WHEN2:IFZ%!&C=J_%THEN
   43SYS70,Z%+44TOA$:IFA$="<Wimp$Scrap>"THEN
   44SYS&20023,"Wimp$Scrap",,-1TO,,A%:IFA%=0THENSYS&400DF,"    Scrap file not set",1,"6502Em":ENDPROC
   45ENDIF:IFTy%THEN
   46PROC_(A$):!Z=g%
   47ELSE:PROCa(A$):!Z=d%
   48ENDIF:IFLEFT$(A$,6)<>"<Wimp$"THEN
   49Z!4=1:SYS&400CE,,Z:$(Z!28)=A$
   50ENDIF:Z%!16=3:Z%!&C=Z%!8:SYS&400E7,17,Z%,Z%!4
   51ENDIF
   52WHEN3:SYS70,Z%+44TOA$:CASEZ%!40OF
   53WHEN&B22:PROCFy(A$)
   54WHENRy%:PROCV(A$)
   55WHEN&FFB,&FFE:PROCN(A$):PROCP
   56ENDCASE
   57WHEN5:CASEZ%!40OF
   58WHENRy%:Z%!16=4:Z%!&C=Z%!8:SYS&400E7,17,Z%,Z%!20:SYS70,Z%+44TOA$:PROCV(A$):PROCP
   59OTHERWISE:IFNOTINKEY-1THEN
   60SYS70,Z%+44TOA$:Z$=A$:SYS8,5,Z$TOWy%,,e%,o%,x%:IFWy%=2ANDLEFT$(RIGHT$(Z$,LENZ$-LENFNS(Z$)-1),1)<>"!"THENENDPROC
   61IFWy%=2THENZ$=A$+".!Run":SYS8,5,Z$TOWy%,,e%,o%,x%:IF(e%AND&FFF00)=&BBC00THENZ%!16=4:Z%!&C=Z%!8:SYS&400E7,17,Z%,Z%!20:PROCV(Z$):PROCP:ENDPROC
   62IFWy%=0THENZ$=A$+"."+RIGHT$(A$,LENA$-LENFNS(A$)-2):SYS8,5,Z$TOWy%,,e%,o%,x%
   63IF((e%>>>16)=0OR(e%>>>16)=&FFFFOR(e%>>>16)=&FF)AND(e%AND&FFFF)<&8000ANDWy%=1THEN
   64Z%!16=4:Z%!&C=Z%!8:SYS&400E7,17,Z%,Z%!20:PROCN(Z$):PROCP
   65ENDIF
   66ENDIF
   67ENDCASE
   68WHEN&400C1
   69ENDCASE:ENDPROC
   70DEFPROCyy:CASE!Z%OF
   71WHENm%:IFZ%!24=&DANDZ%!4=16THEN
   72SYS&400CE,,Z%:PROCG(VAL$(Z%!28))
   73ELSE:SYS&400DC,Z%!24
   74ENDIF
   75WHENd%,g%:IFZ%!4=1ANDZ%!24=&DTHEN
   76!Z=!Z%:Z!4=1:SYS&400CE,,Z:IF!Z%=d%THENPROCa($(Z!28))ELSEPROC_($(Z!28))
   77SYS&400D4,-1
   78ELSE:SYS&400DC,Z%!24
   79ENDIF
   80ENDCASE:ENDPROC
   81DEFPROCvy:k%=Z%!0:p%=Z%!4:n%=Z%!8:b%=Z%!&C:Uy%=Z%!16:IFb%=m%THENPROCwy:ENDPROC
   82IFb%=-2THEN
   83IFn%=2THENPROCJ(ry%,k%-64,96+7*44)
   84IFn%=1THEN
   85PROCm
   86ENDIF:IFn%=4THEN
   87IFINKEY-1ORINKEY-2THENPROCI
   88PROCP
   89ENDIF
   90ENDIF:IFUy%=3AND(b%=d%ORb%=g%)THENSYS&400D4,-1
   91IF(b%=d%ORb%=g%)ANDUy%=2AND(n%=1ORn%=4)THEN
   92!Z=b%:Z!4=1:SYS&400CE,,Z:IFb%=d%THENPROCa($(Z!28))ELSEPROC_($(Z!28))
   93IFn%<>1THENSYS&400D4,-1
   94ENDIF:IFb%=d%ANDUy%=0THEN
   95Ty%=FALSE:!L=d%:SYS&400CC,,L:!Z=d%:Z!4=0:SYS&400CE,,Z:J!0=0:J!8=L!4+Z!8:J!&C=L!16+Z!&C:J!16=L!4+Z!16:J!20=L!16+Z!20:SYS6,&A1,28TO,,vy%:IFey%>299AND(vy%AND2)=2THEN
   96J!4=7:Jy%=TRUE
   97ELSE:J!4=5:Jy%=FALSE
   98ENDIF:J!24=-&64:J!28=-&64:J!32=&7530:J!36=&7530:IFJy%THENSYS&42400,&C5,1,"file_BBC",J+8ELSESYS&400D0,,J
   99ENDIF:IFb%=g%ANDUy%=0THEN
  100Ty%=TRUE:!H=g%:SYS&400CC,,H:!Z=g%:Z!4=0:SYS&400CE,,Z:J!0=0:J!8=H!4+Z!8:J!&C=H!16+Z!&C:J!16=H!4+Z!16:J!20=H!16+Z!20:SYS6,&A1,28TO,,vy%:IFey%>299AND(vy%AND2)=2THEN
  101J!4=7:Jy%=TRUE
  102ELSE:J!4=5:Jy%=FALSE
  103ENDIF:J!24=-&64:J!28=-&64:J!32=&7530:J!36=&7530:IFJy%THENSYS&42400,&C5,1,"file_FF9",J+8ELSESYS&400D0,,J
  104ENDIF:ENDPROC
  105DEFPROCKy:LOCALP%:PROCB(ry%,"6502Em",LEN"Single Task "*16+&C):PROCF(0,dy%,&7000001,"Info"):PROCF(0,ky%,&7000001,"ROMs"):PROCF(0,my%,&7000001,"Misc"):PROCF(0,d%,&7000001,"Save"):IFU=0THEN
  106PROCF(0,g%,&7000001OR(2^22),"Sprite")
  107ELSE:PROCF(0,g%,&7000001OR-(2^22)*(U!4=0),"Sprite")
  108ENDIF:PROCF(0,-1,&7000001,"Config..."):PROCF(&80,-1,&7000001,"Quit"):Z!0=0:Z!4=0:Z!8=0:SYS35,"6502Em$Keymap",Z,&FFTO,B$:Ky%=FNH(B$):IFh%<>0THEN
  109PROCB(Vy%,"Keymap",&C*16+&C):FORI%=1TOh%:PROCF(-&80*(I%=h%)-(Ky%=I%),-1,&7000001,S$(I%)):NEXT
  110ENDIF:IFv%<>0THEN
  111PROCB(qy%,"Patches",&C*16+&C):FORI%=1TOv%:PROCF(-2*(I%=v%),-1,&7000001,M$(I%)):NEXT:PROCF(&80,-1,&7000001,"(none)")
  112ENDIF:PROCB(wy%,"Speed",6*16+&C):FORI%=0TOAy%:PROCF(-&80*(I%=Ay%),-1,&7000001,F$(I%)):NEXT:PROCB(ky%,"Protected?",&C*16+&C):FORI%=&FTO0STEP-1:PROCF(-(?(ROMRAM+I%)<>0)-&80*(I%=0),-1,&7000001,FNQ(I%)):NEXT:PROCB(my%,"Misc",LEN"Disable Tape "*16+&C):PROCF(0,-1,&7000001,"Read CSD")
  113PROCF(0,-1,&7000001,"Reset"):IFa%=0ORa%=4THEN
  114PROCF(0,-1,&7000001,"Disable Tape")
  115ELSE:PROCF(0,-1,&7000001OR2^22,"Disable Tape")
  116ENDIF:PROCF(&80,-1,&7000001,"No Joystick"):PROCB(ay%,"Machine",LEN"Master 128 "*16+&C):PROCF(0,-1,&7000001OR-(2^22)*(Z%(0)=0),A$(0)):PROCF(0,-1,&7000001OR-(2^22)*(Z%(1)=0),A$(1)):PROCF(0,-1,&7000001OR-(2^22)*(Z%(2)=0),A$(2)):PROCF(0,-1,&7000001OR-(2^22)*(Z%(3)=0),A$(3))
  117PROCF(&80,-1,&7000001OR-(2^22)*(Z%(4)=0),A$(4)):ENDPROC
  118DEFPROCB(A%,Q$,G%):P%=A%:$P%=Q$+CHR$&D:P%?&C=7:P%?&D=2:P%?&E=7:P%?&F=0:P%!16=G%:P%!20=44:P%!24=0:P%+=28:ENDPROC
  119DEFPROCF(A%,B%,C%,S$):P%!0=A%:P%!4=B%:P%!8=C%:$(P%+&C)=S$+CHR$&D:P%+=24:ENDPROC
  120DEFPROCDy:CASEny%OF
  121WHENry%:PROCOy
  122WHENay%:IF!Z%<>-1AND!Z%<>a%THENa%=!Z%:PROCU
  123WHENVy%:IF!Z%<>-1THENPROCR(S$(!Z%+1))
  124WHENqy%:IF!Z%>=v%THEN
  125y%=0:PROCW(&E,"(none)")
  126ELSE:IFy%<>!Z%+1THENy%=!Z%+1:PROCO
  127ENDIF
  128WHENwy%:PROCG(VAL(LEFT$(F$(!Z%),LENF$(!Z%)-1)))
  129ENDCASE:SYS&400CF,,Z%:IF(Z%!8AND1)>0THENPROCJ(ny%,0,0)
  130ENDPROC
  131DEFPROCOy:CASE!Z%OF
  132WHEN0
  133WHEN5:PROCm
  134WHEN1:IFZ%!4>-1THEN
  135S%=&F-(Z%!4AND&F):IFFNN(S%)OR?(ROMRAM+S%)=2THEN
  136IF?(ROMRAM+S%)=2THEN?(ROMRAM+S%)=0ELSE?(ROMRAM+S%)=1-?(ROMRAM+S%)
  137ELSE:?(ROMRAM+S%)=2
  138ENDIF
  139ENDIF
  140WHEN2:IFZ%!4>-1THEN
  141CASEZ%!4OF
  142WHEN0:PROCI
  143WHEN1:PROCD(2)
  144WHEN2:PROCw
  145WHEN3:by%=FALSE
  146ENDCASE
  147ENDIF
  148WHEN3
  149WHEN4
  150OTHERWISEPROCX
  151ENDCASE:ENDPROC
  152DEFPROCPy:IFJy%THENSYS&42401
  153X$="":IFTy%THEN!J=g%ELSE!J=d%
  154J!4=1:SYS&400CE,,J:P%=J!28-1:REPEATP%+=1:IF?P%<>&DTHENX$=X$+CHR$?P%
  155IF?P%=46OR?P%=58THENX$=""
  156UNTIL?P%=&D:SYS&400CF,,Z%:IFZ%!&C<>d%ANDZ%!&C<>g%THENSYS&400D4,-1
  157Z%!20=Z%!&C:Z%!24=Z%!16:Z%!28=Z%!0:Z%!32=Z%!4:IFTy%=FALSETHEN
  158Z%!36=65667:Z%!40=Ry%
  159ELSE:Z%!36=80*&400:Z%!40=&FF9
  160ENDIF:Z%!&C=0:Z%!16=1:$(Z%+44)=X$+CHR$0:Z%!0=(48+LENX$)AND508:SYS&600E7,17,Z%,Z%!20,Z%!24:J_%=Z%!8:ENDPROC
  161DEFFNS(A$):LOCALI%:I%=LENA$+1:REPEATI%-=1:UNTILMID$(A$,I%,1)=".":=LEFT$(A$,I%-1)
  162DEFPROCSy:ONERROROFF
  163IFFNG(REPORT$,TRUE)THENPROCXELSEPROCK
  164ENDPROC
  165DEFPROCMy(M%):LOCALERROR:ONERRORLOCALPROCSy
  166IFj%<>0THENSYS&2000D,0,j%
  167SYS&600E3,M%:SYS&6C48B:IFgy%=TRUETHENPROCq
  168IFFNG(REPORT$,TRUE)THENPROCXELSEPROCK
  169ENDPROC
  170DEFFNG(x$,E%):LOCALA%:IFE%THEN
  171SYS&600DF,"    Internal error "+STR$ERL+": "+x$,3,"6502Em"TO,A%
  172ELSESYS&600DF,"    "+x$,1,"6502Em"TO,A%
  173ENDIF:=A%
  174DEFFNL:SYS&C,6,,Z:Z?(Z?1+2)=&D:=$(Z+2)
  175DEFPROCI:LOCALERROR:ONERRORLOCAL:RESTOREERROR:W$="ADFS:":F$="":M$="$":P$="":SYS&600DF,"    Error in reading current directory: "+REPORT$,1,"6502Em":ENDPROC
  176FORI%=0TO1:SYS9TOpy%:SYS41,33,py%,STRING$(20," "),20TO,,W$:IFW$<>""THENW$=W$+":":I%=1ELSEOSCLI"DIR <6502Em$Dir>.^"
  177NEXT:SYS&C,5,,Z:Z?(?Z+1)=&D:F$=$(Z+1):IFF$=CHR$34+"Unset"+CHR$34THENF$=""ELSEF$=":"+F$+"."
  178M$=FNL:IFM$<>"$"THEN
  179REPEAT:SYS41,0,"^":s$=FNL:M$=s$+"."+M$:UNTILs$="$":IFRIGHT$(M$,7)=CHR$34+"Unset"+CHR$34THENM$="$"
  180SYS41,0,M$
  181ENDIF:P$="":ENDPROC
  182DEFPROCIy:!&97000=-&5F5F5F60:!&97004=-&5F5F5F60:!&97008=-&5F5F5F60:!&9700C=-&5F5F5F60:by%=TRUE:DIMA%(7):DIMJ$(&7C),P$(&78),C$(3,&D):RESTORE:FORI%=0TO3:FORJ%=&DTO0STEP-1:READC$(I%,J%):NEXT:NEXT:FORI%=0TO7:FORJ%=0TO&C:READJ$(I%*16+J%):NEXT:NEXT:FORI%=0TO&78:READP$(I%):NEXT:PROCYy:PROCny("<6502Em$Res>.ElkKeys")
  183SYS&4C486:DIMA$(4),Z%(4),Z$(4):xy%=FALSE:_=FALSE:Iy%=0:A$(0)="BBC B":Z$(0)="OS�1.2":A$(1)="Master 128":Z$(1)="OS�3.2":A$(2)="   MOS 3.5":Z$(2)="OS�3.5":A$(3)="Compact":Z$(3)="OS�5.1":A$(4)="Electron":Z$(4)="OS�1.0":A=OPENIN"<6502Em$RomPath>Electron"
  184IFA<>0THENCLOSE#A:Z%(4)=TRUEELSEZ%(4)=FALSE
  185A=OPENIN"<6502Em$RomPath>OS1,2":IFA<>0THENCLOSE#A:Z%(0)=TRUEELSEZ%(0)=FALSE
  186IFZ%(0)=FALSETHENIy%=1
  187A=OPENIN"<6502Em$RomPath>M128.OS3,2":IFA<>0THENCLOSE#A:Z%(1)=TRUEELSEZ%(1)=FALSE
  188IFZ%(0)=FALSEANDZ%(1)=FALSETHENIy%=2
  189A=OPENIN"<6502Em$RomPath>M128.OS3,5":IFA<>0THENCLOSE#A:Z%(2)=TRUEELSEZ%(2)=FALSE
  190IFZ%(0)=FALSEANDZ%(1)=FALSEANDZ%(2)=FALSETHENIy%=3
  191A=OPENIN"<6502Em$RomPath>Compact.OS5,1":IFA<>0THENCLOSE#A:Z%(3)=TRUEELSEZ%(3)=FALSE
  192IFZ%(0)=FALSEANDZ%(1)=FALSEANDZ%(2)=FALSEANDZ%(3)=FALSETHENERROR0,"No ROMs found - please run !Rip65Host"
  193DIMM%(63):PROCcy:DIMS%(&FF):PROChy:q$="":cy%=0:Ny%=-1:PROCI:Y$=W$:_$=F$:a$=M$:K$=P$:PROCty:PROCuy:IFYTHENOSCLI"IconSprites <6502Em$Res>.file_xxx"
  194*FX229,1
  195y%=0:ENDPROC
  196DEFPROCC:?(ROMRAM+_%)=0:_%=(_%-1)AND&F:ENDPROC
  197DEFPROCsy(S%):LOCALI%:?(ROMRAM+S%)=2:FORI%=0TO&FFSTEP16:I%!(roms+U%*S%)=0:NEXT:ENDPROC
  198DEFPROCM(d$,R%):LOCALQ%:IFa%=4AND(_%=9OR_%=8)THEN_%=7
  199S%=_%:_%=(_%-1)AND&F:SYS&D,78,d$,"6502Em$ROMPath"TOQ%:SYS&C,3,Q%,roms+U%*S%,&4000:CLOSE#Q%:?(ROMRAM+S%)=R%:ENDPROC
  200DEFPROCVy:LOCALS%:FORS%=0TO&F:?(ROMRAM+S%)=2:NEXT:ENDPROC
  201DEFFNQ(S%):IF?(ROMRAM+S%)=2THEN="Empty"
  202LOCALT$,I%:I%=roms?(U%*S%+7):IFFNN(S%)THEN
  203FORI%=0TO&B:T$=T$+CHR$roms?(U%*S%+9+I%):IFroms?(U%*S%+&B)=0THENI%=&B
  204NEXT
  205ELSE:T$="RAM "+STR$~S%
  206ENDIF:=T$
  207DEFFNN(S%):LOCALI%:I%=roms?(U%*S%+7):IFroms?(U%*S%+I%+1)=40ANDroms?(U%*S%+I%+2)=67ANDroms?(U%*S%+I%+3)=41THEN=TRUEELSE=FALSE
  208=0
  209DEFPROCD(A%):IF_THENENDPROC
  210IFA%>=2THENPROCY(memory,memory+&8000)
  211IFA%>=1THEN
  212?Vy=&80:?b=&80:?o=2:?Dy=0:?p=0:!j=&F0<<24:!y=&F0<<24:!m=&F0<<24:!i=&F0<<24:OSCLI"LOAD <6502Em$Res>.SHEILA "+STR$~Q
  213ENDIF:?Wy=34:Q!&C0=&7070B7AB:PROCc:?a=0:PROCh:?P=4:Q?32=2:!N=(memory?&FFFC+(memory?&FFFD<<8))<<16:ENDPROC
  214DEFPROCP:LOCALERROR:SYS&20039,,"ImageDFS_Version"TO;S:IF(SAND1)=0THEND=TRUEELSED=FALSE
  215IFDSYS"ImageDFS_EnteringEmulator"
  216*FX9
  217s=MODE:?e=&FF:SYS&406C2:PROCv:SYS&4C48A,s:ONERRORLOCALPROCMy(s)
  218!z=((a%<>4)AND(y%>0)AND1)+(by%AND2)+(`%AND4)+(By%AND8)+(NOTu%AND16):!h=q*&1E8480/5000:VDU23,16,1,&FE|:SYS6,&CA,0,&FFTO,Sy:SYS6,&F7,0,&FFTO,Uy:SYS6,&F7,&FF,0:SYS6,&6A,&81:MOUSECOLOUR3,&FF,&FF,&FF:SYS6,&CA,memory?602AND16,&EF:SYS6,&76:j%=OPENINV$:?Hy=j%:REPEAT:IFNy%>=0cy%=Ny%
  219IFsy%THENPROCz(&FFE0,I)ELSEPROCz(&FFE0,35)
  220?Cy=1+Dy%:?Jy=1+Zy%:PROCc:A%=roms:D%=memory:SYS&600FA,0:Py%=USR(X+!By):SYS&600FA,1:PROCh:*FX15
  221CASEPy%OF
  222WHEN&B:IFINKEY-2THEN
  223IFj%<>0THENPTR#j%=FNR(0,PTR#j%-350)
  224ELSE:IFINKEY-1THENl%+=5ELSEl%-=5
  225IFl%>&7FTHENl%=&7F
  226IFl%<0THENl%=0
  227PROCq:PROCv
  228ENDIF
  229WHEN&A:CLS:?e=&FF
  230WHEN66:PRINT~!N:A=GET
  231WHEN&F:IFINKEY-3THENPROCD(2)ELSEPROCD(0)
  232WHEN3:IFFNX(!N>>>16)=3AND(!N>>>16)<&C000THEN
  233CASEFNX((!N>>>16)+1)OF
  234WHEN0:PROCk
  235WHEN1:PROCu
  236WHEN2:PROCf
  237WHEN3:PROCs
  238WHEN4:PROCj
  239WHEN5:PROCt
  240WHEN6:PROCn
  241WHEN64:PROCg
  242WHEN65:PROCUy
  243WHEN&80:PROCay
  244WHEN&81:PROCGy
  245WHEN&82:PROCqy
  246WHEN&83:PROCCy
  247WHEN&D0:PROCdy
  248WHEN&D1:PROCo
  249WHEN&D2:PROCWy
  250WHEN&D3:PROCp
  251WHEN&D5:PROCNy:F?3=0:PROCA
  252WHEN&D6:PROCTy
  253WHEN&FF:Py%=&C:PROCA
  254ENDCASE
  255ELSE:CASE(!N>>>16)OF
  256WHEN&FFF1,&E7EB:PROCg
  257WHEN&FFE0:PROCry
  258WHEN&FFD7:PROCj
  259WHEN&FFD4:PROCs
  260WHEN&FFDD:PROCn
  261WHEN&FFDA:PROCt
  262WHEN&FFD1:PROCf
  263WHEN&FFCE:PROCu
  264WHEN&F1B1,&F0E8:PROCk
  265ENDCASE
  266ENDIF
  267WHEN7:G=(C?3)<<8:G+=W?3:G+=memory:FORI%=0TO7:A%(I%)=G!(9+I%*4):IF(G?4AND(1<<I%))<>0THENA%(I%)=FNA(A%(I%))
  268NEXT:Cy%=G?0:Cy%+=(G?1)<<8:Cy%+=(G?2)<<16:IFDTHEN
  269CASECy%OF
  270WHEN&61140:B=G!9:CASEmemory?BOF
  271WHEN0,1,2,3
  272WHEN33:memory?B=0
  273WHEN75:memory?B=1
  274WHEN&E0:memory?B=2
  275WHEN&EA:memory?B=3
  276OTHERWISE:PRINT"Drive ";memory?B;"  "
  277ENDCASE:IFmemory?(B+6)=&80THENmemory?(B+6)=83
  278IFmemory?(B+6)=&A0THENmemory?(B+6)=75
  279IFmemory?(B+&B)<>0THENmemory?(B+9)=memory?(B+9)+1
  280memory?(B+9)=(memory?(B+9)AND31)OR32:IFmemory?(B+6)<>&81THENSYS"XImageDFS_OSWORD7F",,BMOD256,BDIV256,memoryTOA%(0);S
  281WHEN&61141
  282WHEN&61142
  283WHEN&61143
  284OTHERWISE:SYS(Cy%OR2^17),A%(0),A%(1),A%(2),A%(3),A%(4),A%(5),A%(6),A%(7)TOA%(0),A%(1),A%(2),A%(3),A%(4),A%(5),A%(6),A%(7);S
  285ENDCASE
  286ELSE:SYS(Cy%OR2^17),A%(0),A%(1),A%(2),A%(3),A%(4),A%(5),A%(6),A%(7)TOA%(0),A%(1),A%(2),A%(3),A%(4),A%(5),A%(6),A%(7);S
  287ENDIF:IFG?3<>0THEN
  288FORI%=0TOG?3-1:IF(G?5AND(1<<I%))<>0THENA%(I%)=A%(I%)-memory
  289G!(9+I%*4)=A%(I%):NEXT
  290ENDIF:IF(SAND1)<>0AND(Cy%AND2^17)=0THEN
  291A%=A%(0):PROCS
  292ELSE:IF(SAND1)<>0ANDG?8<>0THEN
  293O=G?6:O+=(G?7)<<8:O+=memory:J%=FALSE:O?0=0:FORI%=0TOG?8-2:O?(I%+1)=A%(0)?I%:IFO?I%=0THENJ%=TRUE
  294NEXT:IFJ%=FALSETHENO?(G?8-1)=0
  295ENDIF:!N=!N+(1<<16):?P=?PAND99:IF(SAND1)<>0THEN?P=?POR64
  296IF(SAND2)<>0THEN?P=?POR1
  297IF(SAND4)<>0THEN?P=?POR2
  298IF(SAND8)<>0THEN?P=?POR&80
  299ENDIF
  300WHEN&C
  301OTHERWISE
  302ENDCASE:UNTILPy%=&C:IFj%<>0THENSYS&2000D,0,j%
  303SYS6,&CA,Sy:SYS6,&F7,Uy:SYS6,&6A,1:*Set Key$11 "<6502Em$Key11>"
  304*Set Key$12 "<6502Em$Key12>"
  305SYS&4C48B:PROCq:IFU<>0THEN
  306U!0=80*&400+256:U!8=16:SYS&2002E,256+9,U:SYS&2002E,256+16,U,"BBCScreen",1,0,0,&4FF,&3FF
  307ENDIF:SYS&400E3,s:*FX15,0
  308IFDSYS"ImageDFS_LeavingEmulator"
  309ENDPROC
  310DEFFNR(A%,B%):IFA%>B%THEN=A%ELSE=B%
  311=0
  312DEFPROCty:F=memory-256+0:F=memory-256+0:W=memory-256+4:C=memory-256+8:P=memory-256+&C:R=memory-256+16:N=memory-256+20:j=memory-256+32:y=memory-256+40:m=memory-256+48:i=memory-256+56:xy=memory-256+64:wy=memory-256+76:Vy=memory-256+77:_y=memory-256+78
  313b=memory-256+79:iy=memory-256+96:Cy=memory-256+92:V=memory-256+96:Jy=memory-256+&A4:ROMRAM=memory-256+&64:z=memory-256+&B0:!z=0:e=memory-256+&B2:Wy=memory-256+&B3:Hy=memory-256+&75:vy=memory-256+&B4:a=memory-256+&AC:p=memory-256+&BC:o=memory-256+&BD
  314Dy=memory-256+&BE:fy=memory-256+&BF:h=memory-256+&C4:P%=X:[OPT2:.ey:&0:.ry:&0:.cy:&0:.zy:&0:.jy:&0:.qy:&0:.By:&0:.dy:&0:.sy:&0:.Fy:&0:.ty:&0:.by:&0:.yy:&0:.Oy:&0:.hy:&0:.ly:&0:.Yy:&0:.oy:&0:.uy &0:.gy &0:.py &0:.ny &0:.my &0:.Py &0:]:ENDPROC
  315DEFPROCA:R?3=R?3+1:N?2=memory?(256+R?3):R?3=R?3+1:N?3=memory?(256+R?3):!N=!N+(1<<16):ENDPROC
  316DEFPROCn:M=memory+W?3+(C?3)*256:CASEF?3OF
  317WHEN0:c%=F?3:C$=FNW($(FNA(M!0AND&FFFF))):W%=M!2:w%=M!6:s%=FNA((M!&AAND&FFFF)):q%=FNA((M!&EAND&FFFF)):SYS&20008,c%,C$,W%,w%,s%,q%TOA%;S:IF(SAND1)=0THENPROCAELSEPROCS
  318WHEN5:C$=$(FNA(M!0AND&FFFF)):SYS&20008,&D,FNF(C$),,,FNC(C$)TOA%,,W%,w%,s%,q%;S:IF(SAND1)=1THEN
  319PROCS
  320ELSE:F?3=A%:M!2=W%:M!6=w%:M!&A=s%:M!&E=q%:PROCA
  321ENDIF
  322WHEN6:C$=$(FNA(M!0AND&FFFF)):SYS&20008,6,FNW(C$)TOA%,,W%,w%,s%,q%;S:IF(SAND1)=1THEN
  323PROCS
  324ELSE:F?3=A%:M!2=W%:M!6=w%:M!&A=s%:M!&E=q%:PROCA
  325ENDIF
  326WHEN&FF:c%=F?3:C$=$(FNA(M!0AND&FFFF)):W%=FNA(M!2AND&FFFF):IF(M!2AND-65536)=-&20000THENW%-=77824
  327w%=M?6:IFw%<>0THENSYS&20008,&D,FNF(C$),,,FNC(C$)TO,,W%:w%=0:W%=FNA(W%AND&FFFF)
  328SYS&20008,&D,FNF(C$),,,FNC(C$)TO,,,,x%:IFW%+x%>memory+&8000ANDW%<memory+&8000THEN
  329x%=memory+&7FFF-W%:SYS&2000D,77,FNF(C$),FNC(C$)TOA%;S:IF(SAND1)=0THENSYS&2000C,4,A%,W%,x%:SYS&2000D,0,A%:PROCAELSEPROCS
  330ELSE:SYS&20008,&C,FNF(C$),W%,0,FNC(C$)TOA%,,W%,w%,s%,q%;S:F?3=A%:M!2=W%:M!6=w%:M!&A=s%:M!&E=q%:IF(SAND1)=0THENPROCAELSEPROCS
  331ENDIF:F?3=1
  332OTHERWISE:PRINT"OSFILE ";F?3:A=GET
  333ENDCASE:ENDPROC
  334DEFPROCS:LOCALA$:A$="":FORI%=0TO&FD:memory?(258+I%)=A%?(I%+4):IFA%?(I%+4)=0THENI%=&FD
  335NEXT:memory?256=0:memory?257=?A%:!N=256<<16:ENDPROC
  336DEFPROCZ(A%,A$):A$=A$+CHR$0:FORI%=0TOLENA$-1:memory?(258+I%)=ASCMID$(A$,I%+1,1):NEXT:memory?256=0:memory?257=A%:!N=256<<16:ENDPROC
  337DEFFNK(A%,B%)IFA%<B%THEN=A%ELSE=B%
  338=0
  339DEFPROCf:f%=memory+W?3+(C?3<<8):Py%=?f%:W%=f%!1:w%=f%!5:s%=f%!9:IFF?3=9THEN
  340SYS&2000C,F?3,W$+F$+M$+P$,FNA(W%AND&FFFF),Py%,s%,w%,0TOA%,,,w%,s%;S:IF(SAND1)=0THEN
  341?f%=w%:f%!9=s%:IF(SAND2)=0THEN?P=(?PAND&FE)ELSE?P=?POR1
  342PROCA
  343ELSE:PROCS
  344ENDIF
  345ELSE:SYS41,&B,W$:SYS41,0,F$+M$+P$:IF(F?3=3ORF?3=4)ANDW%<&8000ANDW%+s%>&8000THENs%=&8000-W%
  346SYS&2000C,F?3,Py%,FNA(W%AND&FFFF),w%,s%TOA%,,W%,w%,s%;S:SYS41,19:IF(SAND1)=0THEN
  347f%!1=W%-memory:f%!5=w%:f%!9=s%:IF(SAND2)=0THEN?P=(?PAND&FE)ELSE?P=?POR1
  348PROCA
  349ELSE:PROCS
  350ENDIF
  351ENDIF:ENDPROC
  352DEFPROCt:CASEF?3OF
  353WHEN0:IFC?3<>0THEN
  354SYS&20009,F?3,C?3TOA%,,L%;S:IF(SAND1)=0THENmemory!(W?3)=L%:PROCAELSEPROCS
  355ELSE:F?3=4:PROCA
  356ENDIF
  357WHEN1:SYS&20009,F?3,C?3,memory!(W?3)TOA%;S:IF(SAND1)=0THENPROCAELSEPROCS
  358WHEN2:SYS&20009,F?3,C?3TOA%,,L%;S:IF(SAND1)=0THENmemory!(W?3)=L%:PROCAELSEPROCS
  359WHEN&FF:SYS&20009,F?3,C?3TOA%;S:IF(SAND1)=0THENPROCAELSEPROCS
  360OTHERWISEPROCA
  361ENDCASE:ENDPROC
  362DEFFNZ(A$):LOCALI%,Q$:FORI%=1TOLENA$:IFMID$(A$,I%,1)>="a"ANDMID$(A$,I%,1)<="z"THENQ$=Q$+CHR$(ASCMID$(A$,I%,1)-32)ELSEQ$=Q$+MID$(A$,I%,1)
  363NEXT:=Q$
  364DEFPROCX:ONERROROFF
  365SYS&6C487TOA%:IFA%=0THENSYS&2001E,4,"6502Support"
  366SYS&400DD:END:ENDPROC
  367DEFPROCa(Z$):IFINSTR(Z$,".")=0ANDINSTR(Z$,":")=0ANDLEFT$(Z$,6)<>"<Wimp$"THENSYS&400DF,"    To save, drag the file icon to a directory viewer":ENDPROC
  368LOCALA,I%:x%=66048 -&8000:!Z=d%:Z!4=4:SYS&400CE,,Z:IF(Z!24AND2^21)<>0THENx%=66048 -&4000
  369!Z=d%:Z!4=5:SYS&400CE,,Z:IF(Z!24AND2^21)<>0THENx%=66048
  370A=OPENOUTZ$:BPUT#A,"BBC Snapshot101":SYS&C,2,A,memory-512,x%:CLOSE#A:OSCLI"SetType "+Z$+" "+STR$~Ry%:ENDPROC
  371DEFPROCV(N$):LOCALz%,I%,yy%,R$,M%,z$:z%=OPENIN(N$):I$=GET$#z%:IFEXT#z%=0THENI$="BBC Script"
  372IFLEFT$(I$,64)=STRING$(48,CHR$0)+"!BBC tape file!"+CHR$0THENI$="BBC Tapefile"
  373CASEI$OF
  374WHEN"BBC Tapefile":CLOSE#z%:V$=N$
  375WHEN"BBC Script":LOCALERROR:ONERRORLOCAL:RESTOREERROR:SYS&600DF,"    Error in script: "+REPORT$,3,"6502Em"TO,A%:IFA%=2THENPROCXELSEPROCK
  376By%=FALSE:IFEOF#z%THEN
  377A$=""
  378ELSE:A$=FNZ(GET$#z%)
  379ENDIF:REPEAT:Q$=LEFT$(A$,INSTR(A$," ")-1):yy%=TRUE:CASEQ$OF
  380WHEN"PALETTE":IFINSTR(A$,"ON")THENZy%=TRUEELSEZy%=FALSE
  381WHEN"CURSOR":IFINSTR(A$,"ON")THEN`%=TRUEELSE`%=FALSE
  382WHEN"EXACTSPEED":IFINSTR(A$,"ON")THENPROCG(&64)ELSEPROCG(&2710)
  383WHEN"SOUND":IFINSTR(A$,"ON")THENu%=TRUEELSEu%=FALSE
  384WHEN"DISABLETAPE":PROCw
  385WHEN"SCROLLHACK":By%=TRUE
  386WHEN"KEYMAP":X$=RIGHT$(A$,LENA$-INSTR(A$," ")):PROCR(X$)
  387WHEN"PATCH":IFv%<>0THEN
  388y%=0:FORI%=1TOv%:z$=RIGHT$(A$,LENM$(I%)):PROCy(z$):IFFNZ(M$(I%))=z$THEN
  389y%=I%:PROCO
  390ENDIF:NEXT
  391ENDIF
  392WHEN"SPEED":PROCG(VALRIGHT$(A$,LENA$-6))
  393WHEN"INDEXFILE":L$=RIGHT$(A$,LENA$-&A):T%=OPENIN(FNS(N$)+"."+L$):IFT%<>0THENCLOSE#T%:q$=FNS(N$)+"."+L$:cy%=0ELSEERROR1,"Index File "+L$+" not found"
  394WHEN"TAPEFILE":L$=RIGHT$(A$,LENA$-9):T%=OPENIN(FNS(N$)+"."+L$):IFT%<>0THENCLOSE#T%:V$=FNS(N$)+"."+L$ELSEERROR1,"Tape File "+L$+" not found"
  395WHEN"LOADROM":U$=RIGHT$(A$,LENA$-8):IFINSTR(U$,":")=0THEN
  396PROCM(FNS(N$)+"."+U$,1)
  397ELSE:PROCM(U$,1)
  398ENDIF
  399WHEN"LOADRAM":U$=RIGHT$(A$,LENA$-8):IFINSTR(U$,":")=0THEN
  400PROCM(FNS(N$)+"."+U$,0)
  401ELSE:PROCM(U$,1)
  402ENDIF
  403WHEN"KILLROM":U$=RIGHT$(A$,LENA$-8):FORI%=0TO&F:IFLEFT$(FNZ(FNQ(I%)),LENU$)=U$THENPROCsy(I%)
  404NEXT
  405WHEN"MACHINE":R$=RIGHT$(A$,LENA$-8):PROCy(R$):CASER$OF
  406WHEN"BBC","BBCB","BBC B":M%=0
  407WHEN"MASTER","MASTER128","MASTER 128":M%=1
  408WHEN"OS3.5","OS 3.5","OS3,5","OS 3.5":M%=2
  409WHEN"COMPACT","MASTER COMPACT":M%=3
  410WHEN"ELECTRON","ELK":M%=4
  411OTHERWISE:CLOSE#z%:ERROR1,"Unknown machine '"+R$+"'"
  412ENDCASE:IFM%<>a%THENa%=M%:PROCU
  413OTHERWISE:yy%=FALSE
  414ENDCASE:IFyy%THEN
  415IFEOF#z%THEN
  416A$=""
  417ELSE:A$=FNZ(GET$#z%)
  418ENDIF
  419ENDIF:UNTILFNM("PATCH")ANDFNM("PALETTE")ANDFNM("MACHINE")ANDFNM("INDEXFILE")ANDFNM("TAPEFILE")ANDFNM("KEYMAP")ANDFNM("CURSOR")ANDFNM("EXACTSPEED")ANDFNM("DISABLETAPE")ANDFNM("LOADROM")ANDFNM("LOADRAM")ANDFNM("KILLROM")ANDFNM("SOUND")ANDFNM("SCROLLHACK")ANDFNM("SPEED"):CLOSE#z%:IFA$=""THEN
  420A$=FNS(N$):PROCN(A$+"."+RIGHT$(A$,LENA$-LENFNS(A$)-2))
  421ELSE:IFLEFT$(A$,5)="CHAIN"ORLEFT$(A$,1)="*"ORINSTR(A$," ")>0THEN
  422D$=A$+CHR$&D:PROCD(2):Oy%=0:r=I:I=3:PROCd(FNS(N$)+".JUNK")
  423ELSE:PROCN(FNS(N$)+"."+A$)
  424ENDIF
  425ENDIF
  426WHEN"BBC Snapshot   ":IFEXT#z%=65808THEN
  427SYS&C,4,z%,memory-256,65792:PTR#z%=65808-512:SYS&C,4,z%,Q,256
  428ELSE:SYS&C,4,z%,memory-256,EXT#z%-272:SYS&C,4,z%,Q,256
  429ENDIF:CLOSE#z%
  430WHEN"BBC Snapshot101":SYS&C,4,z%,memory-512,EXT#z%-16:CLOSE#z%
  431OTHERWISE:CLOSE#z%:PROCM(A$,1)
  432ENDCASE:ENDPROC
  433DEFFNM(Q$):IFINSTR(A$,Q$)=0THEN=TRUEELSE=FALSE
  434=0
  435DEFPROCN(Z$):xy%=FALSE:PROCd(Z$):FORI%=1TOLENZ$:IFMID$(Z$,LENZ$-I%,1)="."ORMID$(Z$,LENZ$-I%,1)=":"THENL%=I%:I%=LENZ$
  436NEXT:A$=RIGHT$(Z$,L%):SYS8,5,Z$TOH_%,,_y%,uy%,x%:e%=_y%AND&FFFF:o%=uy%AND&FFFF:IFH_%=0THENo%=&FFFF
  437D$="*/"+A$+CHR$&D:IFo%=&801FORo%=&8023ORo%=&802BORo%=&80E7THEND$="PAGE=&"+STR$~e%+CHR$&D+"CHAIN"+CHR$34+A$+CHR$34+CHR$&D
  438IF(_y%AND&FFF00)=&FFB00THEND$="CHAIN"+CHR$34+A$+CHR$34+CHR$&D
  439IFo%=&FFFFOR(_y%AND&FFF00)=&FFE00OR(_y%=0ANDuy%=0)THEND$="*EXEC "+A$+CHR$&D:IFa%=0THEND$="PAGE=&1900"+CHR$&D+"NEW"+CHR$&D+D$
  440PROCD(2):Oy%=0:r=I:I=3:ENDPROC
  441DEFPROCry:Oy%+=1:F?3=ASCMID$(D$,Oy%,1):PROCA:IFOy%=LEND$THENI=r:PROCz(&FFE0,I)
  442ENDPROC
  443DEFPROCd(Z$):SYS39,Z$,Z,&FFTO,Z$:W$=LEFT$(Z$,INSTR(Z$,":")):Z$=RIGHT$(Z$,LENZ$-LENW$):IFLEFT$(Z$,1)=":"THEN
  444F$=LEFT$(Z$,INSTR(Z$,".")):Z$=RIGHT$(Z$,LENZ$-LENF$)
  445ELSE:F$=""
  446ENDIF:M$=FNS(Z$):P$="":IFMID$(M$,LENM$-1,1)="."THENP$=RIGHT$(M$,2):M$=LEFT$(M$,LENM$-2)
  447ENDPROC
  448DEFFNB(A$):IFA$>="0"ANDA$<="9"THEN=TRUEELSE=FALSE
  449=0
  450DEFFNF(Z$):IFLEFT$(Z$,1)=":"ANDFNB(MID$(Z$,2,1))ANDMID$(Z$,3,1)="."THENZ$=RIGHT$(Z$,LENZ$-3)
  451IFINSTR(Z$,":")THEN=Z$
  452IFLEFT$(Z$,1)=CHR$34ANDRIGHT$(Z$,1)=CHR$34THENZ$=MID$(Z$,2,LENZ$-2)
  453IF(Z$=""ORINSTR(Z$,"|"))ANDq$<>""THEN
  454A=OPENINq$:PTR#A=cy%:Z$=GET$#A:Ny%=PTR#A:IFNy%=EXT#ATHENNy%=0
  455CLOSE#A
  456ENDIF:IFMID$(Z$,2,1)="."THEN
  457IFLEFT$(Z$,1)="$"THEN=RIGHT$(Z$,LENZ$-2)
  458=Z$
  459ELSE:=Z$
  460ENDIF:=""
  461DEFFNC(Z$):IFLEFT$(Z$,1)=":"ANDFNB(MID$(Z$,2,1))ANDMID$(Z$,3,1)="."THENZ$=RIGHT$(Z$,LENZ$-3)
  462IFINSTR(Z$,":")THEN=""
  463IFMID$(Z$,2,1)="."THEN
  464=W$+F$+M$+"."
  465ELSE:=W$+F$+M$+P$+"."
  466ENDIF:=""
  467DEFFNW(Z$):IFLEFT$(Z$,1)=":"ANDFNB(MID$(Z$,2,1))ANDMID$(Z$,3,1)="."THENZ$=RIGHT$(Z$,LENZ$-3)
  468IFINSTR(Z$,":")THEN=Z$
  469IFLEFT$(Z$,1)=CHR$34ANDRIGHT$(Z$,1)=CHR$34THENZ$=MID$(Z$,2,LENZ$-2)
  470IFMID$(Z$,2,1)="."THEN
  471IFLEFT$(Z$,1)="$"THEN=M$+"."+RIGHT$(Z$,LENZ$-2)
  472=W$+F$+M$+"."+Z$
  473ELSE:=W$+F$+M$+P$+"."+Z$
  474ENDIF:=""
  475DEFFNI(Z$):LOCALI%:REPEATI%+=1:UNTILMID$(Z$,I%,1)<>"*"ANDMID$(Z$,I%,1)<>" ":=RIGHT$(Z$,LENZ$-I%+1)
  476DEFPROCy(RETURNG$):WHILELEFT$(G$,1)=" ":G$=MID$(G$,2):ENDWHILE:WHILERIGHT$(G$,1)=" ":G$=LEFT$(G$,LENG$-1):ENDWHILE:ENDPROC
  477DEFPROCx(RETURNG$):WHILELEFT$(G$,1)=" "ORLEFT$(G$,1)="*":G$=MID$(G$,2):ENDWHILE:WHILERIGHT$(G$,1)=" "ORRIGHT$(G$,1)="*":G$=LEFT$(G$,LENG$-1):ENDWHILE:ENDPROC
  478DEFPROCBy(S$):Y$=W$:_$=F$:a$=M$:K$=P$:LOCALI%:REPEATI%+=1:UNTILMID$(S$,I%,1)<>" ":S$=RIGHT$(S$,LENS$-I%+1):IFINSTR(S$," ")THEN
  479S$=LEFT$(S$,INSTR(S$," ")-1)
  480ELSE:IFLENS$=4ANDLEFT$(FNZ(S$),3)="DIR"THENS$=RIGHT$(S$,1)
  481ENDIF:IFS$="^"THEN
  482IFP$<>""THENP$="":PROCA:ENDPROC
  483IFINSTR(M$,".")=0THENM$="$":PROCA:ENDPROC
  484I%=LENM$:REPEATI%-=1:UNTILMID$(M$,I%,1)=".":M$=LEFT$(M$,I%-1):PROCA:ENDPROC
  485ENDIF:IFS$="$"ORLENS$=0THENP$="":PROCA:ENDPROC
  486IFLENS$=1THEN
  487SYS&20008,&D,S$,,,W$+F$+M$+"."TOA%;S:IF(SAND1)<>0THENPROCS:ENDPROC
  488IF(A%AND2)=0ANDLENS$=1THENP$="":PROCA:ENDPROC
  489IF(A%AND2)=0THENPROCZ(&D6,"Directory '"+S$+"' not found")ELSEP$="."+S$:PROCA
  490ENDPROC
  491ENDIF:IFINSTR(S$,":")>1THEN
  492IFRIGHT$(S$,1)<>":"THENSYS&20008,17,S$TOA%;S:IF(SAND1)<>0THENPROCS:ENDPROC
  493SYS41,&B,S$TO,w$,E%:IFE%<>-1THENSYS41,19:W$=LEFT$(S$,LENS$-LENw$):S$=w$ELSEPROCZ(&F8,"No such filing system"):ENDPROC
  494M$="":P$="":F$="":IFLEFT$(S$,1)<>":"THENM$="$"
  495ENDIF:IFLEFT$(S$,1)=":"THEN
  496I%=0:F$="":REPEATI%+=1:F$=F$+MID$(S$,I%,1):UNTILMID$(S$,I%+1,1)="."ORI%=LENS$:IFI%=LENS$THENS$=""ELSES$=RIGHT$(S$,LENS$-LENF$-1)
  497M$="":P$=""
  498ENDIF:IFLEFT$(S$,1)="$"ANDLENS$>2THENM$="$":P$="":S$=RIGHT$(S$,LENS$-2)
  499IFF$<>""ANDRIGHT$(F$,1)<>"."ANDM$<>""THENF$=F$+"."
  500SYS&20008,&D,S$,,,W$+F$+M$+P$+"."TOA%;S:IFF$<>""ANDRIGHT$(F$,1)<>"."THENF$=F$+"."
  501IF(SAND1)<>0THENPROCi:PROCS:ENDPROC
  502IF(A%AND2)=0THEN
  503PROCi:PROCZ(&D6,"Directory '"+S$+"' not found")
  504ELSE:IFS$<>""THEN
  505IFM$<>""THENM$=M$+P$+"."+S$:P$=""ELSEM$=S$
  506ENDIF:PROCA
  507ENDIF:IFM$=""THENM$="$"
  508ENDPROC
  509DEFPROCNy:SWAPW$,Y$:SWAPF$,_$:SWAPM$,a$:SWAPP$,K$:ENDPROC
  510DEFPROCi:W$=Y$:F$=_$:M$=a$:P$=K$:ENDPROC
  511DEFPROCk:CASEF?3OF
  512WHEN1:SYS&20009,5,W?3TOA%,,W?3;S:IF(SAND1)=0THENPROCAELSEPROCS
  513IFW?3<>0THENW?3=&FF
  514WHEN3:M=FNA(W?3+((C?3)<<8)):C$=FNI($M):SYS&2000D,77,FNF(C$),FNC(C$)TOA;S:A%=A:IFA=0OR(SAND1)<>0THEN
  515IFLEFT$(FNZ(C$),4)="DIR "OR(LEFT$(FNZ(C$),3)="DIR"ANDLENC$=4)THEN
  516PROCBy(RIGHT$(C$,LENC$-4))
  517ELSE:IFQy%THEN
  518SYS&20005,C$TOA%;S:IF(SAND1)=0THENPROCAELSEPROCS
  519ELSE:PROCZ(&FE,"Bad Command")
  520ENDIF
  521ENDIF
  522ELSE:CLOSE#A:C$=FNW(C$):SYS8,5,C$TO,,W%,w%:W%=FNA(W%AND&FFFF):SYS8,&FF,C$,W%,0:!N=w%<<16
  523ENDIF
  524WHEN2,4:M=FNA(W?3+((C?3)<<8)):C$=$M:SYS&20008,&D,FNF(C$),,,FNC(C$)TOA%,,W%,w%,x%;q%:W%=FNA(W%AND&FFFF):IFW%+x%>memory+&8000ANDW%<memory+&8000THENx%=memory+&8000-W%
  525SYS&2000D,77,FNF(C$),FNC(C$)TOA%;q%:IF(q%AND1)=0THENSYS&2000C,4,A%,W%,x%:SYS&2000D,0,A%
  526IF(q%AND1)=0THEN!N=w%<<16ELSEPROCS
  527WHEN5:PROCA
  528WHEN0,6,8:PROCA
  529WHEN9,&A,&B:PROCA
  530OTHERWISEPRINT"OSFSC ";F?3:A=GET
  531ENDCASE:ENDPROC
  532DEFPROCu:M=FNA(W?3+(C?3)*256):IFF?3=0THEN
  533SYS&2000D,0,C?3TOA%;S:A%=0:S=0
  534ELSE:SYS&2000D,(F?3)OR1,FNF($M),FNC($M)TOA%;S
  535ENDIF:IF(SAND1)=0THENF?3=A%:PROCAELSEPROCS
  536ENDPROC
  537DEFPROCj:SYS&2000A,F?3,C?3TOA%;F%:IF(SAND1)=0THEN
  538F?3=A%:?P=?PAND&FE:IF(F%AND2)<>0THEN?P+=1
  539PROCA
  540ELSE:PROCS
  541ENDIF:ENDPROC
  542DEFPROCs:SYS&2000B,F?3,C?3TOA%;S:IF(SAND1)=0THENPROCAELSEPROCS
  543ENDPROC
  544DEFPROC_(Z$):IFINSTR(Z$,".")=0ANDINSTR(Z$,":")=0ANDLEFT$(Z$,6)<>"<Wimp$"THENSYS&400DF,"    To save, drag the file icon to a directory viewer":ENDPROC
  545SYS46,256+&C,U,Z$:ENDPROC
  546DEFFNH(A$):LOCALI%:FORI%=1TOh%:IFFNZ(S$(I%))=FNZ(A$)THEN=I%
  547NEXT:=0
  548DEFPROCR(A$):LOCALI%:O$="Default":IFFNZ(A$)="RISCPC"ORFNZ(A$)="ARCHIMEDES"THEN
  549A$="Default"
  550ENDIF:OSCLI"Set 6502Em$Keymap "+A$:PROCW(&C,A$):FORI%=1TOh%:IFFNZ(S$(I%))=FNZ(A$)THENO$=A$:Ky%=I%:I%=&3E8
  551NEXT:PROCAy("<6502Em$Dir>.Keymaps."+O$):ENDPROC
  552DEFPROCYy:LOCALt%,N%:Ky%=0:h%=0:REPEAT:SYS&C,9,"<6502Em$Dir>.Keymaps",Z%,&64,t%,256,0TO,,,N%,t%:h%+=N%:UNTILt%=-1:IFh%=0THENVy%=-1:ENDPROC
  553DIMS$(h%),Vy%32+24*h%:t%=0:FORN%=1TOh%:SYS&C,9,"<6502Em$Dir>.Keymaps",Z%,1,t%,256,0TO,,,,t%:S$(N%)=FND(Z%):NEXT:ENDPROC
  554DEFPROCby:LOCALI%:A=OPENIN"<6502Em$Res>.SpeedMenu":Ay%=-1:REPEATAy%+=1:A$=GET$#A:UNTILEOF#AORA$="":IFA$=""THENAy%-=1
  555PTR#A=0:DIMF$(Ay%),wy%32+24* (Ay%+3):FORI%=0TOAy%:F$(I%)=GET$#A:NEXT:CLOSE#A:ENDPROC
  556DEFPROCfy:LOCALt%,N%:y%=0:v%=0:REPEAT:SYS&C,9,"<6502Em$Dir>.Patches",Z%,&64,t%,256,0TO,,,N%,t%:v%+=N%:UNTILt%=-1:IFv%=0THENqy%=-1:ENDPROC
  557DIMM$(v%),qy%32+24* (v%+2):t%=0:FORN%=1TOv%:SYS&C,9,"<6502Em$Dir>.Patches",Z%,1,t%,256,0TO,,,,t%:M$(N%)=FND(Z%):NEXT:ENDPROC
  558DEFFND(A%):LOCALA$,I%:REPEAT:A$=A$+CHR$(A%?I%):I%+=1:UNTILA%?I%=0:=A$
  559DEFPROCO:OSCLI"Load <6502Em$Dir>.Patches."+M$(y%)+" "+STR$~(X+!Py):?z=?zOR1:PROCW(&E,M$(y%)):ENDPROC
  560DEFFNJ(A%):?Z=1:SYS7,&E,Z:=Z?A%
  561DEFPROCay:CASEW?3AND63OF
  562WHEN0:C?3=FNJ(6)
  563WHEN1:C?3=1
  564WHEN2:C?3=FNJ(5)
  565WHEN3:C?3=1
  566WHEN4:C?3=FNJ(4)
  567WHEN5:C?3=1
  568WHEN6:C?3=FNJ(3)
  569WHEN7:C?3=FNJ(2)
  570WHEN8:C?3=FNJ(1)
  571WHEN9:C?3=FNJ(0)
  572WHEN&A:C?3=32
  573WHEN&B:C?3=2
  574WHEN&C:C?3=0
  575WHEN&D:C?3=0
  576OTHERWISEC?3=M%(W?3AND63)
  577ENDCASE:F?3=C?3:PROCA:ENDPROC
  578DEFPROCqy:C?3=S%(W?3):F?3=C?3:PROCA:ENDPROC
  579DEFPROCGy:M%(W?3AND63)=C?3:PROCA:IF(W?3AND63)>&DTHEN
  580A=OPENUP"<6502Em$Res>.CMOS":PTR#A=W?3AND63:BPUT#A,C?3:CLOSE#A
  581ENDIF:ENDPROC
  582DEFPROCCy:S%(W?3)=C?3:PROCA:A=OPENUP"<6502Em$Res>.EEPROM":PTR#A=W?3:BPUT#A,C?3:CLOSE#A:ENDPROC
  583DEFPROCcy:LOCALA,I%:A=OPENIN"<6502Em$Res>.CMOS":FORI%=0TO63:M%(I%)=BGET#A:NEXT:CLOSE#A:ENDPROC
  584DEFPROChy:LOCALA,I%:A=OPENIN"<6502Em$Res>.EEPROM":FORI%=0TO&FF:S%(I%)=BGET#A:NEXT:CLOSE#A:ENDPROC
  585DEFPROCH(J$):OSCLI"LOAD <6502Em$Dir>."+J$+" "+STR$~X:CALLX+!Fy:PROCJy:IFy%<>0THENPROCO
  586ENDPROC
  587DEFPROCgy:PROCH("CodeM"):OSCLI"LOAD <6502Em$Dir>.ROMS.M128.OS3,2 "+STR$~(memory+&C000):OSCLI"LOAD <6502Em$Dir>.ROMS.M128.OS3,2 "+STR$~(roms+U%*16):OSCLI"LOAD <6502Em$Res>.SHEILA "+STR$~Q:_%=&F:PROCM("M128.Terminal",1):?(roms+U%*&F+6327)=3:?(roms+U%*&F+6328)=&80
  588?(roms+U%*&F+6372)=3:?(roms+U%*&F+6373)=&81:PROCM("M128.View",1):PROCM("VDFS",1):PROCM("M128.BASICIV84",1):PROCM("M128.Edit1,00",1):PROCM("M128.ViewSheet",1):PROCM("M128.DFS2,24",1):PROCC:PROCC:PROCC:PROCC:PROCC:ENDPROC
  589DEFPROCjy:PROCH("CodeM"):OSCLI"LOAD <6502Em$Dir>.ROMS.M128.OS3,5 "+STR$~(memory+&C000):OSCLI"LOAD <6502Em$Dir>.ROMS.M128.OS3,5 "+STR$~(roms+U%*16):OSCLI"LOAD <6502Em$Res>.SHEILA "+STR$~Q:_%=&F:PROCM("M128.Terminal35",1):?(roms+U%*&F+5795)=3:?(roms+U%*&F+5796)=&80
  590?(roms+U%*&F+5840)=3:?(roms+U%*&F+5841)=&81:PROCM("M128.ViewB3,3",1):PROCM("VDFS",1):PROCM("M128.BASIC4r32",1):PROCM("M128.Edit1,50r",1):PROCM("M128.ViewSh1,01",1):PROCM("M128.DFS2,45",1):PROCC:PROCC:PROCC:PROCC:PROCC:ENDPROC
  591DEFPROC_y:PROCH("CodeM"):OSCLI"LOAD <6502Em$Dir>.ROMS.Compact.OS5,1 "+STR$~(memory+&C000):OSCLI"LOAD <6502Em$Dir>.ROMS.Compact.OS5,1 "+STR$~(roms+&4000*16):OSCLI"LOAD <6502Em$Res>.SHEILA "+STR$~Q:_%=&F:PROCM("Compact.Utils",1):?(roms+U%*&F+&9E3A -&8000)=3
  592?(roms+U%*&F+&9E3B -&8000)=&82:?(roms+U%*&F+&9F3A -&8000)=3:?(roms+U%*&F+&9F3B -&8000)=&83:PROCM("Compact.BASICIV86",1):PROCM("VDFS",1):_%=7:PROCC:PROCC:PROCC:PROCC:ENDPROC
  593DEFPROCLy:PROCH("CodeE"):OSCLI"LOAD <6502Em$Dir>.ROMS.ELECTRON "+STR$~(memory+&C000):_%=&F:PROCM("BASICII",1):PROCM("VDFS",1):ENDPROC
  594DEFPROCZy:PROCH("Code"):?a=0:OSCLI"LOAD <6502Em$Dir>.ROMS.OS1,2 "+STR$~(memory+&C000):OSCLI"LOAD <6502Em$Res>.SHEILA "+STR$~Q:_%=&F:PROCM("BASICII",1):PROCM("VDFS",1):PROCC:ENDPROC
  595DEFPROCU:PROCY(roms,roms+16*U%):PROCY(memory-512,memory+64*&400):PROCVy:IFa%>4THENa%=0
  596PROCW(&A,A$(a%)):CASEa%OF
  597WHEN1:IFZ%(1)=0THENa%+=1:PROCU:ENDPROC
  598PROCgy
  599WHEN2:IFZ%(2)=0THENa%+=1:PROCU:ENDPROC
  600PROCjy
  601WHEN3:IFZ%(3)=0THENa%+=1:PROCU:ENDPROC
  602PROC_y
  603WHEN4:PROCLy
  604OTHERWISEPROCZy
  605ENDCASE:I=memory?&FFE0:PROCHy(Z$(a%)):PROCD(1):ENDPROC
  606DEFPROCr:V$="<6502Em$Dir>.^.Tape-In":Zy%=TRUE:sy%=TRUE:Dy%=TRUE:`%=FALSE:Qy%=FALSE:a%=Iy%:u%=TRUE:By%=FALSE:Y=FALSE:l%=&7F:PROCR("Default"):PROCG(&64):ENDPROC
  607DEFPROCQy:A=OPENOUT"<6502Em$Res>.Options":PRINT#A,Zy%:PRINT#A,sy%:PRINT#A,Dy%:PRINT#A,`%:PRINT#A,Qy%:PRINT#A,0:PRINT#A,a%:PRINT#A,u%:PRINT#A,Y:PRINT#A,l%:PRINT#A,O$:PRINT#A,q:CLOSE#A:ENDPROC
  608DEFPROCuy:V$="<6502Em$Dir>.^.Tape-In":A=OPENIN"<6502Em$Res>.Options":IFA=0THENPROCr:ENDPROC
  609INPUT#A,Zy%:INPUT#A,sy%:INPUT#A,Dy%:INPUT#A,`%:INPUT#A,Qy%:INPUT#A,V_%:INPUT#A,a%:INPUT#A,u%:By%=FALSE:INPUT#A,Y:INPUT#A,l%:INPUT#A,X$:PROCR(X$):INPUT#A,q:CLOSE#A:ENDPROC
  610DEFPROCL(A%,B%,C%):P%=Z:[OPT2:.d:SUBS2,2,#4:LDR3,[0,2]:LDR4,[1,2]:STR3,[1,2]:STR4,[0,2]:BNE d:MOVpc,&E:]:CALLd:ENDPROC
  611DEFPROCY(S%,E%):P%=Z:[OPT2:&S%:&E%:.Iy:MOV0,#0:LDR1,Z:LDR2,Z+4:.l:STR0,[1],#4:CMP1,2:BNE l:MOVpc,&E:]:CALLIy:ENDPROC
  612DEFPROCUy:PROCA:ENDPROC
  613DEFPROCg:LOCALM,Gy%,ty%,fy%,`y%,w,i%:M=memory?&F0:M+=memory?&F1<<8:M=FNA(M):CASEmemory?&EFOF
  614WHEN&7F:IFDTHEN
  615SYS"XImageDFS_OSWORD7F",,memory?&F0,memory?&F1,memory:F?3=0
  616ELSE:i%=M?0:fy%=FNA(M!1AND&FFFF):`y%=M?7:Gy%=M?8:ty%=(M?9)AND31:w=((M?9)>>5)+7:Z?0=w:Z?1=&A:Z?2=1:Z?3=1:Z!4=0:Z!8=0:Z!&C=1<<29:Z!16=&64000:Z!20=0:Z!24=0:Z!28=0:SYS&60240,,1+(Z<<6),(`y%*&A+Gy%)*2^w+(osword7F_drive%<<29),fy%,ty%*2^wTOA%;S:IF(SAND1)=0THENM?&A=0ELSEM?&A=A%
  617F?3=0
  618ENDIF
  619WHEN&72:IFM?5=8THEN
  620Gy%=M?8:Gy%+=M?7<<8:Gy%+=(M?6AND31)<<16:ty%=M?9:fy%=FNA(M!1AND&FFFF):SYS&60240,,1,Gy%*256+(osword72_drive%<<29),fy%,ty%*256TOA%;S:IF(SAND1)=0THEN?M=0ELSE?M=A%
  621F?3=0
  622ENDIF
  623OTHERWISE
  624ENDCASE:PROCA:ENDPROC
  625DEFPROCQ(RETURNA$,RETURNQ$):LOCALI%:WHILELEFT$(A$,1)=" ":A$=RIGHT$(A$,LENA$-1):ENDWHILE:FORI%=2TOLENA$:IFMID$(A$,I%,1)="+"THENA$=LEFT$(A$,I%-1)+" "+RIGHT$(A$,1+LENA$-I%):I%=&FF
  626NEXT:I%=INSTR(A$," "):Q$=LEFT$(A$,I%-1):A$=RIGHT$(A$,LENA$-I%):ENDPROC
  627DEFPROCmy(RETURNA$,RETURNQ$):LOCALI%:WHILELEFT$(A$,1)=" ":A$=RIGHT$(A$,LENA$-1):ENDWHILE:I%=INSTR(A$," "):Q$=LEFT$(A$,I%-1):A$=RIGHT$(A$,LENA$-I%):ENDPROC
  628DEFPROCT(RETURNA$,RETURNQ$):LOCALI%,J%:WHILE(LEFT$(A$,1)=" "ORLEFT$(A$,1)="."):A$=RIGHT$(A$,LENA$-1):ENDWHILE:I%=INSTR(A$," "):J%=INSTR(A$,"."):IFJ%>0AND(J%<I%ORI%=0)THENI%=J%
  629Q$=LEFT$(A$,I%-1):A$=RIGHT$(A$,LENA$-I%):ENDPROC
  630DEFPROCo:LOCALA$,J$,M,I%,J%:M=memory?&F2:M+=(memory?&F3)<<8:M=FNA(M):M+=C?3:J$=$M:PROCQ(J$,A$):IFLENA$>4THENPROCZ(0,"Bad Address"):ENDPROC
  631FORI%=1TOLENA$:J%=ASCMID$(A$,I%,1):IF(J%<48ORJ%>57)AND(J%<65ORJ%>70)THENPROCZ(0,"Bad Address"):ENDPROC
  632NEXT:Xy%=EVAL("&"+A$):IFXy%>&8000THENPROCZ(0,"Bad Address"):ENDPROC
  633PROCQ(J$,A$):IFLEFT$(A$,1)="+"THENLy%=Xy%:A$=RIGHT$(A$,LENA$-1)ELSELy%=0
  634IFLENA$>4THENPROCZ(0,"Bad Address"):ENDPROC
  635FORI%=1TOLENA$:J%=ASCMID$(A$,I%,1):IF(J%<48ORJ%>57)AND(J%<65ORJ%>70)THENPROCZ(0,"Bad Address"):ENDPROC
  636NEXT:Ly%+=EVAL("&"+A$):IFLy%<Xy%ORLy%>&8000THENPROCZ(0,"Bad Address"):ENDPROC
  637PROCQ(J$,A$):IFLENA$<>4THENPROCZ(0,"Bad Address"):ENDPROC
  638FORI%=1TOLENA$:J%=ASCMID$(A$,I%,1):IF(J%<48ORJ%>57)AND(J%<65ORJ%>70)THENPROCZ(0,"Bad Address"):ENDPROC
  639NEXT:Hy%=EVAL("&"+A$):IFHy%<&8000ORHy%>&BFFFTHENPROCZ(0,"Bad Address"):ENDPROC
  640PROCQ(J$,A$):CASELENA$OF
  641WHEN1:A%=ASCA$:IFA%>=87ANDA%<=90THENA%=A%-87+52
  642IFA%>64ANDA%<71THENA%-=7
  643_%=A%-48:IF_%>&FOR_%<0THENPROCZ(0,"Bad Socket"):ENDPROC
  644WHEN2:IFLEFT$(A$,1)<"0"ORLEFT$(A$,1)>"9"ORRIGHT$(A$,1)<"0"ORRIGHT$(A$,1)>"9"THENPROCZ(0,"Bad Socket"):ENDPROC
  645_%=VALA$:IF_%>&FOR_%<0THENPROCZ(0,"Bad Socket"):ENDPROC
  646OTHERWISE:PROCZ(0,"Bad Socket"):ENDPROC
  647ENDCASE:FORI%=0TOFNK(Ly%-Xy%,&BFFF-Hy%)STEP4:!(roms+U%*_%+I%+Hy%-&8000)=Xy%!(memory+I%):NEXT:ROMRAM?_%=0:F?3=0:PROCA:ENDPROC
  648DEFPROCTy:LOCALA$,J$,M,i%:M=memory?&F2:M+=(memory?&F3)<<8:M=FNA(M):J$=$M:PROCx(J$):IFLEFT$(FNZ(J$),5)="MOUNT"THENJ$="MOUNT "+RIGHT$(J$,LENJ$-5)
  649PROCT(J$,N$):PROCT(J$,A$):i%=VALA$:SYS&40242TOD%,F%,H%:IFA$=""THENF?3=0:PROCA:ENDPROC
  650IFi%<F%OR(i%>3ANDi%<H%+4)THEN
  651W$="ADFS:":F$=":"+STR$i%+".":M$="$":P$="":F?3=0:PROCA
  652ELSE:PROCZ(0,"Bad drive "+A$):ENDPROC
  653ENDIF:ENDPROC
  654DEFPROCWy:LOCALA$,J$,M,i%:M=memory?&F2:M+=(memory?&F3)<<8:M=FNA(M):J$=$M:PROCx(J$):IFLEFT$(FNZ(J$),5)="DRIVE"THENJ$="DRIVE "+RIGHT$(J$,LENJ$-5)
  655PROCT(J$,N$):PROCT(J$,A$):i%=VALJ$:CASEJ$OF
  656WHEN"0","1","2","3":IFDTHEN
  657IFxy%THEN
  658M$=LEFT$(M$,INSTR(M$,"DFSSide2")-2)
  659ELSE:SYS"ImageDFS_DFSToADFSDrive",i%TOX_%:W$="ADFS:":F$=":"+STR$X_%+".":M$="$"
  660ENDIF
  661ELSE:M$=LEFT$(M$,INSTR(M$,"DFSSide2")-2)
  662ENDIF:P$="":IFi%=2ORi%=3THEN
  663SYS8,5,W$+F$+M$+".DFSSide2"TOA:IFA<>0M$=M$+".DFSSide2"
  664ENDIF
  665WHEN"R","r":PROCI
  666OTHERWISE:PROCZ(0,"Bad Drive "+J$):ENDPROC
  667ENDCASE:F?3=0:PROCA:ENDPROC
  668DEFPROCdy:LOCALA$,J$,M,I%,J%:M=memory?&F2:M+=(memory?&F3)<<8:M=FNA(M):M+=C?3:J$=$M:PROCmy(J$,N$):PROCQ(J$,A$):IFLENA$<>4THENPROCZ(0,"Bad Address"):ENDPROC
  669FORI%=1TOLENA$:J%=ASCMID$(A$,I%,1):IF(J%<48ORJ%>57)AND(J%<65ORJ%>70)THENPROCZ(0,"Bad Address"):ENDPROC
  670NEXT:e%=EVAL("&"+A$):IFe%<&8000ORe%>&BFFFTHENPROCZ(0,"Bad Address"):ENDPROC
  671PROCQ(J$,A$):IFRIGHT$(A$,1)="Q"THENA$=LEFT$(A$,LENA$-1)
  672CASELENA$OF
  673WHEN1:A%=ASCA$:IFA%>=87ANDA%<=90THENA%=A%-87+52
  674IFA%>64ANDA%<71THENA%-=7
  675_%=A%-48:IF_%>&FOR_%<0THENPROCZ(0,"Bad Socket"):ENDPROC
  676WHEN2:IFLEFT$(A$,1)<"0"ORLEFT$(A$,1)>"9"ORRIGHT$(A$,1)<"0"ORRIGHT$(A$,1)>"9"THENPROCZ(0,"Bad Socket"):ENDPROC
  677_%=VALA$:IF_%>&FOR_%<0THENPROCZ(0,"Bad Socket"):ENDPROC
  678OTHERWISE:PROCZ(0,"Bad Socket"):ENDPROC
  679ENDCASE:SYS&2000D,64+&D,FNF(N$),FNC(N$)TOA%;S:IF(SAND1)<>0THENPROCS:ENDPROC
  680H%=A%:SYS&2000C,4,A%,e%-&8000+roms+U%*_%,&C000-e%TOA%;S:IF(SAND1)<>0THENPROCS:ENDPROC
  681?(ROMRAM+_%)=0:SYS&2000D,0,H%TOA%;S:IF(SAND1)<>0THENPROCS:ENDPROC
  682F?3=0:PROCA:ENDPROC
  683DEFPROCny(Z$):LOCALA,B$,K%,A$:SYS&4C491TOK:FORI%=0TO&3FFSTEP4:K!I%=&FF:NEXT:A=OPENINZ$:IFA=0THENERROR0,Z$+" not found"
  684REPEAT:B$=FNP:IFLEFT$(B$,1)="#"THEN
  685PROCe:IFINSTR(B$,"RiscPC")ANDINKEY-256<&A5THENB$=""
  686ELSE:IFB$<>""THEN
  687S%=FNV(B$):REPEAT:A$=FNP:IFA$<>""THEN
  688K%=FNU(A$):K!(K%*4)=S%
  689ENDIF:UNTILA$=""
  690ENDIF
  691ENDIF:UNTILB$=""OREOF#A:CLOSE#A:ENDPROC
  692DEFPROCAy(Z$):LOCALA,B$,K%,A$,hy%:SYS&4C489TOK:FORI%=0TO&FF+256:K?I%=&FF:NEXT:A=OPENINZ$:IFA=0THENERROR0,Z$+" not found"
  693REPEAT:B$=FNP:IFLEFT$(B$,1)="#"THEN
  694PROCe:IFINSTR(B$,"RiscPC")ANDINKEY-256<&A5THENB$=""
  695ELSE:IFB$<>""THEN
  696IFLEFT$(B$,1)="s"ANDLENB$>1THENhy%=TRUE:B$=RIGHT$(B$,LENB$-1)ELSEhy%=FALSE
  697S%=FNT(B$):REPEAT:A$=FNP:IFA$<>""THEN
  698K%=FNU(A$):IFhy%=FALSETHENK?K%=S%
  699K?(K%+256)=S%
  700ENDIF:UNTILA$=""
  701ENDIF
  702ENDIF:UNTILB$=""OREOF#A:CLOSE#A:ENDPROC
  703DEFFNP:LOCALI%,A$:REPEATI%=BGET#A:UNTILI%>32ORI%=&A:IFI%=&ATHEN=""
  704A$=CHR$I%:REPEATI%=BGET#A:A$=A$+CHR$I%:UNTILI%<33:PTR#A=PTR#A-1:=LEFT$(A$,LENA$-1)
  705DEFPROCe:LOCALI%:REPEATI%=BGET#A:UNTILI%=&A:ENDPROC
  706DEFFNV(A$):LOCALI%,J%,K%:FORI%=0TO3:FORJ%=0TO&D:IFC$(I%,J%)=A$THENK%=(I%<<8)+J%:I%=4:J%=&E
  707NEXT:NEXT:=K%
  708DEFFNT(A$):LOCALI%,J%:FORI%=0TO&7C:IFJ$(I%)=A$THENJ%=I%:I%=&80
  709NEXT:=J%
  710DEFFNU(A$):LOCALI%,J%:FORI%=0TO&78:IFP$(I%)=A$THENJ%=I%:I%=&68
  711NEXT:=J%
  712DATA Escape,1,2,3,4,5,6,7,8,9,0,-,Left,Right
  713DATA CapsLock,Q,W,E,R,T,Y,U,I,O,P,Up,Down,Copy
  714DATA Ctrl,A,S,D,F,G,H,J,K,L,;,:,Return,""
  715DATA Shift,Z,X,C,V,B,N,M,",",.,/,"",Delete,Space
  716DATA Shift,Ctrl,bit7,bit6,bit5,bit4,bit3,bit2,bit1,bit0,"","",""
  717DATA Q,3,4,5,f4,8,f7,-,^,Left,K6,K7,""
  718DATA f0,W,E,T,7,I,9,0,_,Down,K8,K9,""
  719DATA 1,2,D,R,6,U,O,P,[,Up,K+,K-,KReturn
  720DATA CapsLock,A,X,F,Y,J,K,@,:,Return,K/,KDelete,"K."
  721DATA ShiftLock,S,C,G,H,N,L,;,],Delete,K#,K*,"K,"
  722DATA Tab,Z,Space,V,B,M,",",".",/,Copy,K0,K1,K3
  723DATA Escape,f1,f2,f3,f5,f6,f8,f9,\,Right,K4,K5,K2
  724DATA Escape,f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,"",Print,"",""
  725DATA `,1,2,3,4,5,6,7,8,9,0,-,=,FALSE,<-|,Insert,Home,PageUp,NumLock,K/,K*,K#,Tab,Q,W,E,R,T,Y,U,I,O,P,[,],\,Delete,Copy,PageDown,K7,K8,K9,K-,LCtrl,A,S,D,F,G,H,J,K,L,;,',Return,K4,K5,K6,K+
  726DATA LShift,,Z,X,C,V,B,N,M,",",.,/,RShift,Up,K1,K2,K3,CapsLock,LAlt,Space,RAlt,RCtrl,Left,Down,Right,K0,K.,Enter
  727DATA "","","","","","","","","","","","","","","",""
  728DATA # : REM Risc PC key #~
  729DEFPROCc:IFpaging%=FALSEORa%=0ORa%=4THENENDPROC
  730!&97000=-&5F5F5F60:!&97004=-&5F5F5F60:!&97008=-&5F5F5F60:!&9700C=-&5F5F5F60:PROCL(&A8000,roms+(?VAND&F)*U%,U%):?&97008=68+(?VAND&F)*4:?&97009=68+(?VAND&F)*4:?&9700A=68+(?VAND&F)*4:?&9700B=68+(?VAND&F)*4:IF(?aAND8)<>0THEN?&9700C=&89:?&9700D=&89:PROCL(&AC000,&95000,8192)
  731IF(?VAND&80)<>0THEN?&97008=&89:PROCL(&A8000,&9D000,4096)
  732ENDPROC
  733DEFPROCh:IFpaging%=FALSEORa%=0ORa%=4THENENDPROC
  734IF(?VAND&80)<>0THENPROCL(&A8000,&9D000,4096)
  735IF(?aAND8)<>0THENPROCL(&AC000,&95000,8192)
  736PROCL(&A8000,roms+(?VAND&F)*U%,U%):ENDPROC
  737DEFFNX(A%)=?FNA(A%)
  738DEFFNA(A%)=memory+A%
  739DEFPROCz(A%,V%):memory?A%=V%:ENDPROC
  740DEFPROCw:IFa%>0ANDa%<4THENENDPROC
  741Yy%=memory?&FFB7+(memory?&FFB8<<8):Yy%=FNA(Yy%):f%=Yy%?30+(Yy%?31<<8):T=roms+U%*16 -&C000:memory?f%=3:T?f%=3:memory?&FFCE=3:T?&FFCE=3:memory?&FFD1=3:T?&FFD1=3:memory?&FFD4=3:T?&FFD4=3:memory?&FFD7=3:T?&FFD7=3:memory?&FFDA=3:T?&FFDA=3:memory?&FFDD=3
  742T?&FFDD=3:ENDPROC
  743DEFPROCp:PROCA:IFa%<>0THENENDPROC
  744A=OPENIN(W$+F$+M$+P$+".!Boot"):IFA<>0THENCLOSE#A:_=TRUE:PROCN(W$+F$+M$+P$+".!Boot"):_=FALSE:ENDPROC
  745A=OPENIN(W$+F$+M$+P$+".!Run"):IFA<>0THENCLOSE#A:_=TRUE:PROCV(W$+F$+M$+P$+".!Run"):_=FALSE:ENDPROC
  746PROCZ(&D6,"File not found"):ENDPROC
  747DEFPROCJ(S_%,X%,Y%):PROCKy:SYS&400D4,,S_%,X%,Y%:ny%=S_%:ENDPROC
  748DEFPROCwy:Z%!0=m%:CASEUy%OF
  749WHEN1:Z%!4=1:SYS&400CE,,Z%:Dy%=((Z%!24AND2^21)<>0)
  750WHEN2:Z%!4=2:SYS&400CE,,Z%:Zy%=((Z%!24AND2^21)<>0)
  751WHEN3:Z%!4=3:SYS&400CE,,Z%:`%=((Z%!24AND2^21)<>0)
  752WHEN4:Z%!4=4:SYS&400CE,,Z%:Qy%=((Z%!24AND2^21)<>0)
  753WHEN5:Z%!4=5:SYS&400CE,,Z%:By%=((Z%!24AND2^21)<>0)
  754WHEN6:Z%!4=6:SYS&400CE,,Z%:Y=((Z%!24AND2^21)<>0):IFYTHENOSCLI"IconSprites <6502Em$Res>.file_xxx"ELSEOSCLI"IconSprites <6502Em$Res>.no_xxx"
  755WHEN7:Z%!4=7:SYS&400CE,,Z%:u%=((Z%!24AND2^21)<>0)
  756WHEN&A:IFn%=2THENPROCJ(ay%,k%-64,p%)
  757WHEN&B:PROCJ(ay%,k%-64,p%)
  758WHEN&C:IFn%=2PROCJ(Vy%,k%-64,p%)
  759WHEN&D:PROCJ(Vy%,k%-64,p%)
  760WHEN&E:IFn%=2PROCJ(qy%,k%-64,p%)
  761WHEN&F:PROCJ(qy%,k%-64,p%)
  762WHEN16:IFn%=2PROCJ(wy%,k%-64,p%)
  763WHEN17:PROCJ(wy%,k%-64,p%)
  764WHEN20:PROCr:PROCb
  765WHEN21:PROCQy
  766WHEN22:!Z%=m%:SYS&400C6,,Z%
  767ENDCASE:ENDPROC
  768DEFPROCb:!Z%=m%:Z%!&C=2^21:Z%!4=1:Z%!8=-2^21*(Dy%<>0):SYS&400CD,,Z%:Z%!4=2:Z%!8=-2^21*(Zy%<>0):SYS&400CD,,Z%:Z%!4=3:Z%!8=-2^21*(`%<>0):SYS&400CD,,Z%:Z%!4=4:Z%!8=-2^21*(Qy%<>0):SYS&400CD,,Z%:Z%!4=5:Z%!8=-2^21*(By%<>0):SYS&400CD,,Z%
  769Z%!4=6:Z%!8=-2^21*(Y<>0):SYS&400CD,,Z%:Z%!4=7:Z%!8=-2^21*(u%<>0):SYS&400CD,,Z%:PROCW(16,STR$q+"%"):Z!0=0:Z!4=0:Z!8=0:SYS35,"6502Em$Keymap",Z,&FFTO,B$:Ky%=FNH(B$):PROCW(&C,B$):ENDPROC
  770DEFPROCW(N%,A$):Z%!0=m%:Z%!4=N%:SYS&400CE,,Z%:$(Z%!28)=A$+CHR$0:Z%!8=0:Z%!&C=0:SYS&400CD,,Z%:ENDPROC
  771DEFPROCG(ky):q=ky:PROCW(16,STR$q+"%"):ENDPROC
  772DEFPROCFy(A$):SYS&20039,,"ImageDFS_Version"TO;S:IF(SAND1)=0THEND=TRUEELSED=FALSE
  773IFD=FALSETHENPROC`("ImageDFS (available from WSS) must be loaded to access this file"):ENDPROC
  774xy%=TRUE:PROCN(A$+".!BOOT"):PROCP:ENDPROC
  775DEFPROC`(A$):SYS&400DF,"    "+A$,25,"6502Em":ENDPROC
  776DEFPROCm:PROCb:Z%!0=m%:SYS&400CB,,Z%:IFzy%=FALSETHEN
  777SYS53,-1,4TO,,N_%:SYS53,-1,5TO,,W_%:SYS53,-1,&BTO,,C_%:SYS53,-1,&CTO,,P_%:Sy%=Z%!&C-Z%!4:Fy%=Z%!16-Z%!8:Z%!4=((C_%<<N_%)-Sy%)/2:Z%!8=((P_%<<W_%)-Fy%)/2:Z%!&C=Z%!4+Sy%:Z%!16=Z%!8+Fy%
  778ENDIF:Z%!28=-1:SYS&400C5,,Z%:ENDPROC
28661DEFPROCl:Q_%=&A:L_%=(1<<Q_%):ENDPROC
28662DEFPROCXy:LOCALF,q%:PROCl:DIMjy% (4*L_%):DIMiy%64:DIMMy%512:DIMG_%&80:FORq%=0TO&3FF:?(jy%+q%)=q%*&A:NEXT:SYS&40180,&7FTOx:FORq%=0TO&7F:SYS&4C48E,q%,A%:F=SIN((q%/&80)*PI):IFF<>0THENF=F^0.2
28663SYS&40181,&7FFFFFFF*FTOF:?(My%+q%)=F:?(My%+&80+q%)=F+1:NEXT:FORq%=0TO63:?(My%+256+q%)=?(My%+q%*(8/4)):NEXT:FORq%=0TO&BF:?(My%+272+q%)=?(My%+&80+q%*(8/&C)):NEXT:SYS&40180,x:r%=X+!(X+22*4):!(r%+0)=jy%:!(r%+4)=iy%:!(r%+8)=My%:!(r%+&C)=G_%+64:r%+=16:ENDPROC
28664DEFPROCJy:r%=X+!(X+22*4):!(r%+0)=jy%:!(r%+4)=iy%:!(r%+8)=My%:!(r%+&C)=G_%+64:r%+=16:ENDPROC
28665DEFPROCv:IFNOTu%THENgy%=FALSE:ENDPROC
28666LOCALq%,c%:SYS&40183,r%,0TO,U_%:SYS&40140,4,&D0,48,0,0TOXy,Ny,Ty,Ly,Gy:SYS&40185,1,1TO,Qy:SYS&40185,2,1TO,Ky:SYS&40185,3,1TO,`:SYS&40185,4,1TO,n:SYS&4018A,1,"6502Emulator":SYS&4018A,2,"6502Emulator":SYS&4018A,3,"6502Emulator":SYS&4018A,4,"6502Emulator":SYS&40180,l%TOx
28667FORq%=0TO&F:c%=q%+(q%<<4):c%=c%+(c%<<8):c%=c%+(c%<<16):SYS&40181,(c%>>>1)TOc%:?(iy%+q%)=c%:NEXT:SOUND1,-1,1,&FF:SOUND2,-1,1,&FF:SOUND3,-1,1,&FF:SOUND4,-1,1,&FF:gy%=TRUE:ENDPROC
28668DEFPROCq:IFNOTu%THENENDPROC
28669SYS&40180,x:SYS&40140,Xy,Ny,Ty,Ly,Gy:SYS&40185,1,Qy:SYS&40185,2,Ky:SYS&40185,3,`:SYS&40185,4,n:SYS&40184,0,U_%:gy%=FALSE:ENDPROC
�>!RunImage
0�Produced by BasCompress v1.69 (04 Aug 1995)
� > !RunImage
,� 6502Em (desktop frontend for binaries)
*� (c) Michael and Anne Borcherds, 1995
E� LOCK ROMRAM,memory,roms,osword7F_drive%,osword72_drive%,paging%
ke$="2.10 (24th November 1996)":�ș&600DD:ș&600DF,"    Fatal internal error "+Þ+": "+�$,1,"6502Em":Ș
zosword7F_drive%=1:osword72_drive%=0:paging%=�:B_%=�:�=�-96*&400:!�=0:ș35,"6502Em$SaveScreen",�,&FF�,B$:�B$,3)="Yes"�
	U=�:My=�

�:�=�+96*&400:U=0:My=�
f�:�=�-(64+64)*&400:memory=�+64*&400:�memory<>&A0000��0,"6502Em initialisation: Fatal memory error"
IQ=memory-512:�=�-17*16*&400:roms=�:�=�-&A0*&400:X=�:U%=&4000:Ry%=&BBC

� volume between 0 and 127
�Ry:�Iy:�Xy:�U:�ey:�K:�
���xy(H$):�Sy%,Fy%,oy%,Z_%,M_%:�t 256,f 256:ș&400E9,40,,H$�,,,Sy%,Fy%,,oy%:ș53,oy%,4�,,Z_%:Sy%=Sy%<<Z_%:ș53,oy%,5�,,M_%:Fy%=Fy%<<M_%:!Z%=-1:Z%!4=0:Z%!8=-16:Z%!&C=Z%!4+Sy%:Z%!16=20+Fy%:Z%!20=&1700310B:!(Z%+24)=t:!(Z%+28)=f:$t=H$:$f="S"+H$
*!(Z%+32)=256:ș&400C2,,Z%�!Z%:Zy=!Z%:�
p��Hy(H$):$f="S"+H$:$t=H$:Z!0=-2:Z!4=Zy:Z!8=&800080:Z!&C=&800080:ș&400CD,,Z:Z!8=0:Z!&C=&800080:ș&400CD,,Z:�
���Ry:�k 4:$k="TASK":ș&400C0,&C8,!k,"6502Em"�ey%,j%:�Z%256,R_%256,ry%300,my%&C8,ky%800,ay%&C8,ay 20:�K_%50,T_%&C,I_%&C,J 40:�`y &C*4,Z 256:�Y(�,B_%):�xy("OS�1.2"):�fy:�by:�ey%>299�
pș6,&A1,&8C�,,F_%:D_%=-(F_%�1):�D_%=��ș&400D9,,"<6502Em$Res>.Template3D"�ș&400D9,,"<6502Em$Res>.Templates"
�ș&400DB,,-1,,,-1,"info"�,A%,B%:ș&400DB,,-1,,,-1,"xfer_send"�,C%,D%:ș&400DB,,-1,,,-1,"xfer_send2"�,E%,F%:ș&400DB,,-1,,,-1,"config"�,G%,H%
`�:ș&400D9,,"<6502Em$Res>.Templates":A%=700:B%=300:C%=400:D%=350:E%=C%:F%=D%:G%=&7D0:H%=&7D0
��:�Ay A%,Ry B%,L C%+4,v D%,H E%+4,c F%:�g G%,u H%+4:ș&400DB,,Ay,Ry,Ry+B%,-1,"info":ș&400DB,,L,v,v+D%,-1,"xfer_send":ș&400DB,,H,c,c+F%,-1,"xfer_send2":ș&400DB,,g,u,u+H%,-1,"config":ș&400DA:ș&400C1,,L�A%:d%=A%:ș&400C1,,H�A%:g%=A%
�ș&400C1,,g�A%:m%=A%:zy%=�:ș&400C1,,Ay�A%:dy%=A%:!Z=dy%:Z!4=9:ș&400CE,,Z:$(Z!28)=e$+�0:!Z=dy%:Z!4=&B:ș&400CE,,Z:�"Load <6502Em$Res>.SerialNo "+�~(Z!28):�
��ey:ș16�A$:��A$,1)=" "�
2I%=0:�I%+=1:��A$,�A$-I%,1)<>" ":A$=�A$,�A$-I%)
�:��A$,1)=�34�A$=�A$,�A$-1)
�A$,1)=�34�A$=�A$,�A$-1)
_I%=0:�I%+=1:��A$,�A$-I%,1)=" "�I%=�A$:A$=�A$,I%):�Z(�A$,�A$-9,&A))<>".!RUNIMAGE"��V(A$):�P
�
��K:��G(�$,�<>1)=2��X
)�:ly%=6195:ș&400C7,ly%,Z%�A_%:ȎA_%�
 !�2:ș&400C5,,Z%:�!Z%=m%�zy%=�
!!�3:ș&400C6,,Z%:�!Z%=m%�zy%=�
"
�6:�vy
#
�7:�Py
$
�8:�yy
%
�9:�Dy
&�17,18:�zy
'
�:��:�
(��zy:ȎZ%!16�
)	�0:�X
*�2:�Z%!&C=J_%�
+%ș70,Z%+44�A$:�A$="<Wimp$Scrap>"�
,Wș&20023,"Wimp$Scrap",,-1�,,A%:�A%=0�ș&400DF,"    Scrap file not set",1,"6502Em":�
-�:�Ty%�
.�_(A$):!Z=g%
/�:�a(A$):!Z=d%
0�:�A$,6)<>"<Wimp$"�
1 Z!4=1:ș&400CE,,Z:$(Z!28)=A$
2,�:Z%!16=3:Z%!&C=Z%!8:ș&400E7,17,Z%,Z%!4
3�
4�3:ș70,Z%+44�A$:ȎZ%!40�
5�&B22:�Fy(A$)
6�Ry%:�V(A$)
7�&FFB,&FFE:�N(A$):�P
8�
9�5:ȎZ%!40�
:H�Ry%:Z%!16=4:Z%!&C=Z%!8:ș&400E7,17,Z%,Z%!20:ș70,Z%+44�A$:�V(A$):�P
;:符-1�
<Sș70,Z%+44�A$:Z$=A$:ș8,5,Z$�Wy%,,e%,o%,x%:�Wy%=2���Z$,�Z$-��S(Z$)-1),1)<>"!"��
=w�Wy%=2�Z$=A$+".!Run":ș8,5,Z$�Wy%,,e%,o%,x%:�(e%�&FFF00)=&BBC00�Z%!16=4:Z%!&C=Z%!8:ș&400E7,17,Z%,Z%!20:�V(Z$):�P:�
>>�Wy%=0�Z$=A$+"."+�A$,�A$-��S(A$)-2):ș8,5,Z$�Wy%,,e%,o%,x%
?H�((e%>>>16)=0�(e%>>>16)=&FFFF�(e%>>>16)=&FF)�(e%�&FFFF)<&8000�Wy%=1�
@5Z%!16=4:Z%!&C=Z%!8:ș&400E7,17,Z%,Z%!20:�N(Z$):�P
A�
B�
C�
D�&400C1
E�:�
F��yy:Ȏ!Z%�
G�m%:�Z%!24=&D�Z%!4=16�
Hș&400CE,,Z%:�G(�$(Z%!28))
I�:ș&400DC,Z%!24
J�
K�d%,g%:�Z%!4=1�Z%!24=&D�
L<!Z=!Z%:Z!4=1:ș&400CE,,Z:�!Z%=d%��a($(Z!28))��_($(Z!28))
Mș&400D4,-1
N�:ș&400DC,Z%!24
O�
P�:�
Q@��vy:k%=Z%!0:p%=Z%!4:n%=Z%!8:b%=Z%!&C:Uy%=Z%!16:�b%=m%��wy:�
R�b%=-2�
S�n%=2��J(ry%,k%-64,96+7*44)
T
�n%=1�
U�m
V�:�n%=4�
W�-1��-2��I
X�P
Y�
Z&�:�Uy%=3�(b%=d%�b%=g%)�ș&400D4,-1
[%�(b%=d%�b%=g%)�Uy%=2�(n%=1�n%=4)�
\:!Z=b%:Z!4=1:ș&400CE,,Z:�b%=d%��a($(Z!28))��_($(Z!28))
]�n%<>1�ș&400D4,-1
^�:�b%=d%�Uy%=0�
_�Ty%=�:!L=d%:ș&400CC,,L:!Z=d%:Z!4=0:ș&400CE,,Z:J!0=0:J!8=L!4+Z!8:J!&C=L!16+Z!&C:J!16=L!4+Z!16:J!20=L!16+Z!20:ș6,&A1,28�,,vy%:�ey%>299�(vy%�2)=2�
`J!4=7:Jy%=�
a�:J!4=5:Jy%=�
b^�:J!24=-&64:J!28=-&64:J!32=&7530:J!36=&7530:�Jy%�ș&42400,&C5,1,"file_BBC",J+8�ș&400D0,,J
c�:�b%=g%�Uy%=0�
d�Ty%=�:!H=g%:ș&400CC,,H:!Z=g%:Z!4=0:ș&400CE,,Z:J!0=0:J!8=H!4+Z!8:J!&C=H!16+Z!&C:J!16=H!4+Z!16:J!20=H!16+Z!20:ș6,&A1,28�,,vy%:�ey%>299�(vy%�2)=2�
eJ!4=7:Jy%=�
f�:J!4=5:Jy%=�
g^�:J!24=-&64:J!28=-&64:J!32=&7530:J!36=&7530:�Jy%�ș&42400,&C5,1,"file_FF9",J+8�ș&400D0,,J
h�:�
i���Ky:�P%:�B(ry%,"6502Em",�"Single Task "*16+&C):�F(0,dy%,&7000001,"Info"):�F(0,ky%,&7000001,"ROMs"):�F(0,my%,&7000001,"Misc"):�F(0,d%,&7000001,"Save"):�U=0�
j%�F(0,g%,&7000001�(2^22),"Sprite")
k0�:�F(0,g%,&7000001�-(2^22)*(U!4=0),"Sprite")
l��:�F(0,-1,&7000001,"Config..."):�F(&80,-1,&7000001,"Quit"):Z!0=0:Z!4=0:Z!8=0:ș35,"6502Em$Keymap",Z,&FF�,B$:Ky%=�H(B$):�h%<>0�
mU�B(Vy%,"Keymap",&C*16+&C):�I%=1�h%:�F(-&80*(I%=h%)-(Ky%=I%),-1,&7000001,S$(I%)):�
n
�:�v%<>0�
oh�B(qy%,"Patches",&C*16+&C):�I%=1�v%:�F(-2*(I%=v%),-1,&7000001,M$(I%)):�:�F(&80,-1,&7000001,"(none)")
p��:�B(wy%,"Speed",6*16+&C):�I%=0�Ay%:�F(-&80*(I%=Ay%),-1,&7000001,F$(I%)):�:�B(ky%,"Protected?",&C*16+&C):�I%=&F�0�-1:�F(-(?(ROMRAM+I%)<>0)-&80*(I%=0),-1,&7000001,�Q(I%)):�:�B(my%,"Misc",�"Disable Tape "*16+&C):�F(0,-1,&7000001,"Read CSD")
q)�F(0,-1,&7000001,"Reset"):�a%=0�a%=4�
r$�F(0,-1,&7000001,"Disable Tape")
s+�:�F(0,-1,&7000001�2^22,"Disable Tape")
t��:�F(&80,-1,&7000001,"No Joystick"):�B(ay%,"Machine",�"Master 128 "*16+&C):�F(0,-1,&7000001�-(2^22)*(Z%(0)=0),A$(0)):�F(0,-1,&7000001�-(2^22)*(Z%(1)=0),A$(1)):�F(0,-1,&7000001�-(2^22)*(Z%(2)=0),A$(2)):�F(0,-1,&7000001�-(2^22)*(Z%(3)=0),A$(3))
u1�F(&80,-1,&7000001�-(2^22)*(Z%(4)=0),A$(4)):�
ve��B(A%,Q$,G%):P%=A%:$P%=Q$+�&D:P%?&C=7:P%?&D=2:P%?&E=7:P%?&F=0:P%!16=G%:P%!20=44:P%!24=0:P%+=28:�
wE��F(A%,B%,C%,S$):P%!0=A%:P%!4=B%:P%!8=C%:$(P%+&C)=S$+�&D:P%+=24:�
x��Dy:Ȏny%�
y�ry%:�Oy
z#�ay%:�!Z%<>-1�!Z%<>a%�a%=!Z%:�U
{�Vy%:�!Z%<>-1��R(S$(!Z%+1))
|�qy%:�!Z%>=v%�
}y%=0:�W(&E,"(none)")
~�:�y%<>!Z%+1�y%=!Z%+1:�O
�
�$�wy%:�G(�(�F$(!Z%),�F$(!Z%)-1)))
�*�:ș&400CF,,Z%:�(Z%!8�1)>0��J(ny%,0,0)
��
���Oy:Ȏ!Z%�
��0
�	�5:�m
��1:�Z%!4>-1�
�+S%=&F-(Z%!4�&F):�N(S%)�?(ROMRAM+S%)=2�
�>�?(ROMRAM+S%)=2�?(ROMRAM+S%)=0�?(ROMRAM+S%)=1-?(ROMRAM+S%)
��:?(ROMRAM+S%)=2
��
��
��2:�Z%!4>-1�
�ȎZ%!4�
�	�0:�I
��1:�D(2)
�	�2:�w
��3:by%=�
��
��
��3
��4
��X
��:�
���Py:�Jy%�ș&42401
�X$="":�Ty%�!J=g%�!J=d%
�:J!4=1:ș&400CE,,J:P%=J!28-1:�P%+=1:�?P%<>&D�X$=X$+�?P%
��?P%=46�?P%=58�X$=""
�9�?P%=&D:ș&400CF,,Z%:�Z%!&C<>d%�Z%!&C<>g%�ș&400D4,-1
�9Z%!20=Z%!&C:Z%!24=Z%!16:Z%!28=Z%!0:Z%!32=Z%!4:�Ty%=��
�Z%!36=65667:Z%!40=Ry%
��:Z%!36=80*&400:Z%!40=&FF9
�\�:Z%!&C=0:Z%!16=1:$(Z%+44)=X$+�0:Z%!0=(48+�X$)�508:ș&600E7,17,Z%,Z%!20,Z%!24:J_%=Z%!8:�
�9ݤS(A$):�I%:I%=�A$+1:�I%-=1:��A$,I%,1)=".":=�A$,I%-1)
���Sy:
��G(�$,�)��X��K
��
���My(M%):�:���Sy
��j%<>0�ș&2000D,0,j%
�"ș&600E3,M%:ș&6C48B:�gy%=���q
��G(�$,�)��X��K
��
�ݤG(x$,E%):�A%:�E%�
�<ș&600DF,"    Internal error "+Þ+": "+x$,3,"6502Em"�,A%
�&�ș&600DF,"    "+x$,1,"6502Em"�,A%
�	�:=A%
�&ݤL:ș&C,6,,Z:Z?(Z?1+2)=&D:=$(Z+2)
�s��I:�:��:��:W$="ADFS:":F$="":M$="$":P$="":ș&600DF,"    Error in reading current directory: "+�$,1,"6502Em":�
�]�I%=0�1:ș9�py%:ș41,33,py%,�20," "),20�,,W$:�W$<>""�W$=W$+":":I%=1��"DIR <6502Em$Dir>.^"
�M�:ș&C,5,,Z:Z?(?Z+1)=&D:F$=$(Z+1):�F$=�34+"Unset"+�34�F$=""�F$=":"+F$+"."
�M$=�L:�M$<>"$"�
�J�:ș41,0,"^":s$=�L:M$=s$+"."+M$:�s$="$":��M$,7)=�34+"Unset"+�34�M$="$"
�
ș41,0,M$
�
�:P$="":�
����Iy:!&97000=-&5F5F5F60:!&97004=-&5F5F5F60:!&97008=-&5F5F5F60:!&9700C=-&5F5F5F60:by%=�:�A%(7):�J$(&7C),P$(&78),C$(3,&D):�:�I%=0�3:�J%=&D�0�-1:�C$(I%,J%):�:�:�I%=0�7:�J%=0�&C:�J$(I%*16+J%):�:�:�I%=0�&78:�P$(I%):�:�Yy:�ny("<6502Em$Res>.ElkKeys")
��ș&4C486:�A$(4),Z%(4),Z$(4):xy%=�:_=�:Iy%=0:A$(0)="BBC B":Z$(0)="OS�1.2":A$(1)="Master 128":Z$(1)="OS�3.2":A$(2)="   MOS 3.5":Z$(2)="OS�3.5":A$(3)="Compact":Z$(3)="OS�5.1":A$(4)="Electron":Z$(4)="OS�1.0":A=�"<6502Em$RomPath>Electron"
��A<>0��#A:Z%(4)=��Z%(4)=�
�8A=�"<6502Em$RomPath>OS1,2":�A<>0��#A:Z%(0)=��Z%(0)=�
��Z%(0)=��Iy%=1
�=A=�"<6502Em$RomPath>M128.OS3,2":�A<>0��#A:Z%(1)=��Z%(1)=�
��Z%(0)=��Z%(1)=��Iy%=2
�=A=�"<6502Em$RomPath>M128.OS3,5":�A<>0��#A:Z%(2)=��Z%(2)=�
�"�Z%(0)=��Z%(1)=��Z%(2)=��Iy%=3
�@A=�"<6502Em$RomPath>Compact.OS5,1":�A<>0��#A:Z%(3)=��Z%(3)=�
�O�Z%(0)=��Z%(1)=��Z%(2)=��Z%(3)=���0,"No ROMs found - please run !Rip65Host"
�z�M%(63):�cy:�S%(&FF):�hy:q$="":cy%=0:Ny%=-1:�I:Y$=W$:_$=F$:a$=M$:K$=P$:�ty:�uy:�Y��"IconSprites <6502Em$Res>.file_xxx"
�*FX229,1
�
y%=0:�
�%��C:?(ROMRAM+_%)=0:_%=(_%-1)�&F:�
�B��sy(S%):�I%:?(ROMRAM+S%)=2:�I%=0�&FF�16:I%!(roms+U%*S%)=0:�:�
�)��M(d$,R%):�Q%:�a%=4�(_%=9�_%=8)�_%=7
�gS%=_%:_%=(_%-1)�&F:ș&D,78,d$,"6502Em$ROMPath"�Q%:ș&C,3,Q%,roms+U%*S%,&4000:�#Q%:?(ROMRAM+S%)=R%:�
�(��Vy:�S%:�S%=0�&F:?(ROMRAM+S%)=2:�:�
�$ݤQ(S%):�?(ROMRAM+S%)=2�="Empty"
�%�T$,I%:I%=roms?(U%*S%+7):�N(S%)�
�>�I%=0�&B:T$=T$+�roms?(U%*S%+9+I%):�roms?(U%*S%+&B)=0�I%=&B
��
��:T$="RAM "+�~S%
�	�:=T$
�gݤN(S%):�I%:I%=roms?(U%*S%+7):�roms?(U%*S%+I%+1)=40�roms?(U%*S%+I%+2)=67�roms?(U%*S%+I%+3)=41�=��=�
�=0
���D(A%):�_��
�"�A%>=2��Y(memory,memory+&8000)
��A%>=1�
�o?Vy=&80:?b=&80:?o=2:?Dy=0:?p=0:!j=&F0<<24:!y=&F0<<24:!m=&F0<<24:!i=&F0<<24:�"LOAD <6502Em$Res>.SHEILA "+�~Q
�]�:?Wy=34:Q!&C0=&7070B7AB:�c:?a=0:�h:?P=4:Q?32=2:!N=(memory?&FFFC+(memory?&FFFD<<8))<<16:�
�;��P:�:ș&20039,,"ImageDFS_Version"�;S:�(S�1)=0�D=��D=�
�#�Dș"ImageDFS_EnteringEmulator"
�*FX9
�/s=�:?e=&FF:ș&406C2:�v:ș&4C48A,s:���My(s)
��!z=((a%<>4)�(y%>0)�1)+(by%�2)+(`%�4)+(By%�8)+(�u%�16):!h=q*&1E8480/5000:�23,16,1,&FE|:ș6,&CA,0,&FF�,Sy:ș6,&F7,0,&FF�,Uy:ș6,&F7,&FF,0:ș6,&6A,&81:ȗ�3,&FF,&FF,&FF:ș6,&CA,memory?602�16,&EF:ș6,&76:j%=�V$:?Hy=j%:�:�Ny%>=0cy%=Ny%
�!�sy%��z(&FFE0,I)��z(&FFE0,35)
�X?Cy=1+Dy%:?Jy=1+Zy%:�c:A%=roms:D%=memory:ș&600FA,0:Py%=�(X+!By):ș&600FA,1:�h:*FX15
�
ȎPy%�
�
�&B:�-2�
��j%<>0��#j%=�R(0,�#j%-350)
��:�-1�l%+=5�l%-=5
��l%>&7F�l%=&7F
��l%<0�l%=0
�	�q:�v
��
��&A:�:?e=&FF
��66:�~!N:A=�
��&F:�-3��D(2)��D(0)
�&�3:�X(!N>>>16)=3�(!N>>>16)<&C000�
�Ȏ�X((!N>>>16)+1)�
�	�0:�k
�	�1:�u
�	�2:�f
�	�3:�s
�	�4:�j
�	�5:�t
�	�6:�n
�
�64:�g
��65:�Uy
��&80:�ay
��&81:�Gy
��&82:�qy
��&83:�Cy
��&D0:�dy
��&D1:�o
��&D2:�Wy
��&D3:�p
��&D5:�Ny:F?3=0:�A
��&D6:�Ty
��&FF:Py%=&C:�A
��
��:Ȏ(!N>>>16)�
�&FFF1,&E7EB:�g
�&FFE0:�ry

�&FFD7:�j

�&FFD4:�s

�&FFDD:�n

�&FFDA:�t

�&FFD1:�f

�&FFCE:�u
�&F1B1,&F0E8:�k
	�

�
`�7:G=(C?3)<<8:G+=W?3:G+=memory:�I%=0�7:A%(I%)=G!(9+I%*4):�(G?4�(1<<I%))<>0�A%(I%)=�A(A%(I%))
.�:Cy%=G?0:Cy%+=(G?1)<<8:Cy%+=(G?2)<<16:�D�

ȎCy%�
�&61140:B=G!9:Ȏmemory?B�
�0,1,2,3
�33:memory?B=0
�75:memory?B=1
�&E0:memory?B=2
�&EA:memory?B=3
:�"Drive ";memory?B;"  "
'�:�memory?(B+6)=&80�memory?(B+6)=83
%�memory?(B+6)=&A0�memory?(B+6)=75
1�memory?(B+&B)<>0�memory?(B+9)=memory?(B+9)+1
kmemory?(B+9)=(memory?(B+9)�31)�32:�memory?(B+6)<>&81�ș"XImageDFS_OSWORD7F",,B�256,B�256,memory�A%(0);S
�&61141
�&61142
�&61143
t:ș(Cy%�2^17),A%(0),A%(1),A%(2),A%(3),A%(4),A%(5),A%(6),A%(7)�A%(0),A%(1),A%(2),A%(3),A%(4),A%(5),A%(6),A%(7);S
�
t�:ș(Cy%�2^17),A%(0),A%(1),A%(2),A%(3),A%(4),A%(5),A%(6),A%(7)�A%(0),A%(1),A%(2),A%(3),A%(4),A%(5),A%(6),A%(7);S
�:�G?3<>0�
 6�I%=0�G?3-1:�(G?5�(1<<I%))<>0�A%(I%)=A%(I%)-memory
!G!(9+I%*4)=A%(I%):�
"�:�(S�1)<>0�(Cy%�2^17)=0�
#A%=A%(0):�S
$�:�(S�1)<>0�G?8<>0�
%UO=G?6:O+=(G?7)<<8:O+=memory:J%=�:O?0=0:�I%=0�G?8-2:O?(I%+1)=A%(0)?I%:�O?I%=0�J%=�
&�:�J%=��O?(G?8-1)=0
'/�:!N=!N+(1<<16):?P=?P�99:�(S�1)<>0�?P=?P�64
(�(S�2)<>0�?P=?P�1
)�(S�4)<>0�?P=?P�2
*�(S�8)<>0�?P=?P�&80
+�
,�&C
-
."�:�Py%=&C:�j%<>0�ș&2000D,0,j%
/@ș6,&CA,Sy:ș6,&F7,Uy:ș6,&6A,1:*Set Key$11 "<6502Em$Key11>"
0 *Set Key$12 "<6502Em$Key12>"
1ș&4C48B:�q:�U<>0�
2YU!0=80*&400+256:U!8=16:ș&2002E,256+9,U:ș&2002E,256+16,U,"BBCScreen",1,0,0,&4FF,&3FF
3�:ș&400E3,s:*FX15,0
4"�Dș"ImageDFS_LeavingEmulator"
5�
6ݤR(A%,B%):�A%>B%�=A%�=B%
7=0
8���ty:F=memory-256+0:F=memory-256+0:W=memory-256+4:C=memory-256+8:P=memory-256+&C:R=memory-256+16:N=memory-256+20:j=memory-256+32:y=memory-256+40:m=memory-256+48:i=memory-256+56:xy=memory-256+64:wy=memory-256+76:Vy=memory-256+77:_y=memory-256+78
9�b=memory-256+79:iy=memory-256+96:Cy=memory-256+92:V=memory-256+96:Jy=memory-256+&A4:ROMRAM=memory-256+&64:z=memory-256+&B0:!z=0:e=memory-256+&B2:Wy=memory-256+&B3:Hy=memory-256+&75:vy=memory-256+&B4:a=memory-256+&AC:p=memory-256+&BC:o=memory-256+&BD
:�Dy=memory-256+&BE:fy=memory-256+&BF:h=memory-256+&C4:P%=X:[OPT2:.ey:&0:.ry:&0:.cy:&0:.zy:&0:.jy:&0:.qy:&0:.By:&0:.dy:&0:.sy:&0:.Fy:&0:.ty:&0:.by:&0:.yy:&0:.Oy:&0:.hy:&0:.ly:&0:.Yy:&0:.oy:&0:.uy &0:.gy &0:.py &0:.ny &0:.my &0:.Py &0:]:�
;U��A:R?3=R?3+1:N?2=memory?(256+R?3):R?3=R?3+1:N?3=memory?(256+R?3):!N=!N+(1<<16):�
<%��n:M=memory+W?3+(C?3)*256:ȎF?3�
=��0:c%=F?3:C$=�W($(�A(M!0�&FFFF))):W%=M!2:w%=M!6:s%=�A((M!&A�&FFFF)):q%=�A((M!&E�&FFFF)):ș&20008,c%,C$,W%,w%,s%,q%�A%;S:�(S�1)=0��A��S
>R�5:C$=$(�A(M!0�&FFFF)):ș&20008,&D,�F(C$),,,�C(C$)�A%,,W%,w%,s%,q%;S:�(S�1)=1�
?�S
@-�:F?3=A%:M!2=W%:M!6=w%:M!&A=s%:M!&E=q%:�A
A�
BH�6:C$=$(�A(M!0�&FFFF)):ș&20008,6,�W(C$)�A%,,W%,w%,s%,q%;S:�(S�1)=1�
C�S
D-�:F?3=A%:M!2=W%:M!6=w%:M!&A=s%:M!&E=q%:�A
E�
FT�&FF:c%=F?3:C$=$(�A(M!0�&FFFF)):W%=�A(M!2�&FFFF):�(M!2�-65536)=-&20000�W%-=77824
GGw%=M?6:�w%<>0�ș&20008,&D,�F(C$),,,�C(C$)�,,W%:w%=0:W%=�A(W%�&FFFF)
HKș&20008,&D,�F(C$),,,�C(C$)�,,,,x%:�W%+x%>memory+&8000�W%<memory+&8000�
Ifx%=memory+&7FFF-W%:ș&2000D,77,�F(C$),�C(C$)�A%;S:�(S�1)=0�ș&2000C,4,A%,W%,x%:ș&2000D,0,A%:�A��S
Jj�:ș&20008,&C,�F(C$),W%,0,�C(C$)�A%,,W%,w%,s%,q%;S:F?3=A%:M!2=W%:M!6=w%:M!&A=s%:M!&E=q%:�(S�1)=0��A��S
K�:F?3=1
L:�"OSFILE ";F?3:A=�
M�:�
NI��S:�A$:A$="":�I%=0�&FD:memory?(258+I%)=A%?(I%+4):�A%?(I%+4)=0�I%=&FD
O.�:memory?256=0:memory?257=?A%:!N=256<<16:�
Pj��Z(A%,A$):A$=A$+�0:�I%=0��A$-1:memory?(258+I%)=��A$,I%+1,1):�:memory?256=0:memory?257=A%:!N=256<<16:�
QݤK(A%,B%)�A%<B%�=A%�=B%
R=0
SF��f:f%=memory+W?3+(C?3<<8):Py%=?f%:W%=f%!1:w%=f%!5:s%=f%!9:�F?3=9�
TLș&2000C,F?3,W$+F$+M$+P$,�A(W%�&FFFF),Py%,s%,w%,0�A%,,,w%,s%;S:�(S�1)=0�
U/?f%=w%:f%!9=s%:�(S�2)=0�?P=(?P�&FE)�?P=?P�1
V�A
W�:�S
X�
YP�:ș41,&B,W$:ș41,0,F$+M$+P$:�(F?3=3�F?3=4)�W%<&8000�W%+s%>&8000�s%=&8000-W%
ZHș&2000C,F?3,Py%,�A(W%�&FFFF),w%,s%�A%,,W%,w%,s%;S:ș41,19:�(S�1)=0�
[?f%!1=W%-memory:f%!5=w%:f%!9=s%:�(S�2)=0�?P=(?P�&FE)�?P=?P�1
\�A
]�:�S
^�
_�:�
`��t:ȎF?3�
a�0:�C?3<>0�
b<ș&20009,F?3,C?3�A%,,L%;S:�(S�1)=0�memory!(W?3)=L%:�A��S
c�:F?3=4:�A
d�
e8�1:ș&20009,F?3,C?3,memory!(W?3)�A%;S:�(S�1)=0��A��S
f?�2:ș&20009,F?3,C?3�A%,,L%;S:�(S�1)=0�memory!(W?3)=L%:�A��S
g-�&FF:ș&20009,F?3,C?3�A%;S:�(S�1)=0��A��S
h�A
i�:�
jbݤZ(A$):�I%,Q$:�I%=1��A$:�A$,I%,1)>="a"��A$,I%,1)<="z"�Q$=Q$+�(��A$,I%,1)-32)�Q$=Q$+�A$,I%,1)
k	�:=Q$
l��X:
m.ș&6C487�A%:�A%=0�ș&2001E,4,"6502Support"
nș&400DD:�:�
ov��a(Z$):�Z$,".")=0��Z$,":")=0��Z$,6)<>"<Wimp$"�ș&400DF,"    To save, drag the file icon to a directory viewer":�
pQ�A,I%:x%=66048 -&8000:!Z=d%:Z!4=4:ș&400CE,,Z:�(Z!24�2^21)<>0�x%=66048 -&4000
q4!Z=d%:Z!4=5:ș&400CE,,Z:�(Z!24�2^21)<>0�x%=66048
rUA=�Z$:�#A,"BBC Snapshot101":ș&C,2,A,memory-512,x%:�#A:�"SetType "+Z$+" "+�~Ry%:�
sH��V(N$):�z%,I%,yy%,R$,M%,z$:z%=�(N$):I$=�#z%:�#z%=0�I$="BBC Script"
t;�I$,64)=�48,�0)+"!BBC tape file!"+�0�I$="BBC Tapefile"
u	ȎI$�
v�"BBC Tapefile":�#z%:V$=N$
wZ�"BBC Script":�:��:��:ș&600DF,"    Error in script: "+�$,3,"6502Em"�,A%:�A%=2��X��K
xBy%=�:��#z%�
y	A$=""
z�:A$=�Z(�#z%)
{&�:�:Q$=�A$,�A$," ")-1):yy%=�:ȎQ$�
|%�"PALETTE":�A$,"ON")�Zy%=��Zy%=�
}"�"CURSOR":�A$,"ON")�`%=��`%=�
~.�"EXACTSPEED":�A$,"ON")��G(&64)��G(&2710)
!�"SOUND":�A$,"ON")�u%=��u%=�
��"DISABLETAPE":�w
��"SCROLLHACK":By%=�
�)�"KEYMAP":X$=�A$,�A$-�A$," ")):�R(X$)
��"PATCH":�v%<>0�
�8y%=0:�I%=1�v%:z$=�A$,�M$(I%)):�y(z$):�Z(M$(I%))=z$�
�y%=I%:�O
��:�
��
��"SPEED":�G(��A$,�A$-6))
�w�"INDEXFILE":L$=�A$,�A$-&A):T%=�(�S(N$)+"."+L$):�T%<>0��#T%:q$=�S(N$)+"."+L$:cy%=0��1,"Index File "+L$+" not found"
�n�"TAPEFILE":L$=�A$,�A$-9):T%=�(�S(N$)+"."+L$):�T%<>0��#T%:V$=�S(N$)+"."+L$��1,"Tape File "+L$+" not found"
�)�"LOADROM":U$=�A$,�A$-8):�U$,":")=0�
��M(�S(N$)+"."+U$,1)
��:�M(U$,1)
��
�)�"LOADRAM":U$=�A$,�A$-8):�U$,":")=0�
��M(�S(N$)+"."+U$,0)
��:�M(U$,1)
��
�B�"KILLROM":U$=�A$,�A$-8):�I%=0�&F:�Z(�Q(I%)),�U$)=U$��sy(I%)
��
�)�"MACHINE":R$=�A$,�A$-8):�y(R$):ȎR$�
��"BBC","BBCB","BBC B":M%=0
�+�"MASTER","MASTER128","MASTER 128":M%=1
�+�"OS3.5","OS 3.5","OS3,5","OS 3.5":M%=2
�$�"COMPACT","MASTER COMPACT":M%=3
��"ELECTRON","ELK":M%=4
�(:�#z%:�1,"Unknown machine '"+R$+"'"
��:�M%<>a%�a%=M%:�U
�:yy%=�
��:�yy%�
�
��#z%�
�	A$=""
��:A$=�Z(�#z%)
��
���:��M("PATCH")��M("PALETTE")��M("MACHINE")��M("INDEXFILE")��M("TAPEFILE")��M("KEYMAP")��M("CURSOR")��M("EXACTSPEED")��M("DISABLETAPE")��M("LOADROM")��M("LOADRAM")��M("KILLROM")��M("SOUND")��M("SCROLLHACK")��M("SPEED"):�#z%:�A$=""�
�+A$=�S(N$):�N(A$+"."+�A$,�A$-��S(A$)-2))
�,�:�A$,5)="CHAIN"��A$,1)="*"��A$," ")>0�
�4D$=A$+�&D:�D(2):Oy%=0:r=I:I=3:�d(�S(N$)+".JUNK")
��:�N(�S(N$)+"."+A$)
��
��
�#�"BBC Snapshot   ":�#z%=65808�
�=ș&C,4,z%,memory-256,65792:�#z%=65808-512:ș&C,4,z%,Q,256
�3�:ș&C,4,z%,memory-256,�#z%-272:ș&C,4,z%,Q,256
�
�:�#z%
�8�"BBC Snapshot101":ș&C,4,z%,memory-512,�#z%-16:�#z%
�:�#z%:�M(A$,1)
��:�
�ݤM(Q$):�A$,Q$)=0�=��=�
�=0
�T��N(Z$):xy%=�:�d(Z$):�I%=1��Z$:�Z$,�Z$-I%,1)="."��Z$,�Z$-I%,1)=":"�L%=I%:I%=�Z$
�S�:A$=�Z$,L%):ș8,5,Z$�H_%,,_y%,uy%,x%:e%=_y%�&FFFF:o%=uy%�&FFFF:�H_%=0�o%=&FFFF
�cD$="*/"+A$+�&D:�o%=&801F�o%=&8023�o%=&802B�o%=&80E7�D$="PAGE=&"+�~e%+�&D+"CHAIN"+�34+A$+�34+�&D
�2�(_y%�&FFF00)=&FFB00�D$="CHAIN"+�34+A$+�34+�&D
�i�o%=&FFFF�(_y%�&FFF00)=&FFE00�(_y%=0�uy%=0)�D$="*EXEC "+A$+�&D:�a%=0�D$="PAGE=&1900"+�&D+"NEW"+�&D+D$
��D(2):Oy%=0:r=I:I=3:�
�;��ry:Oy%+=1:F?3=��D$,Oy%,1):�A:�Oy%=�D$�I=r:�z(&FFE0,I)
��
�K��d(Z$):ș39,Z$,Z,&FF�,Z$:W$=�Z$,�Z$,":")):Z$=�Z$,�Z$-�W$):�Z$,1)=":"�
�$F$=�Z$,�Z$,".")):Z$=�Z$,�Z$-�F$)
��:F$=""
�?�:M$=�S(Z$):P$="":�M$,�M$-1,1)="."�P$=�M$,2):M$=�M$,�M$-2)
��
�"ݤB(A$):�A$>="0"�A$<="9"�=��=�
�=0
�?ݤF(Z$):�Z$,1)=":"��B(�Z$,2,1))��Z$,3,1)="."�Z$=�Z$,�Z$-3)
��Z$,":")�=Z$
�*�Z$,1)=�34��Z$,1)=�34�Z$=�Z$,2,�Z$-2)
��(Z$=""��Z$,"|"))�q$<>""�
�/A=�q$:�#A=cy%:Z$=�#A:Ny%=�#A:�Ny%=�#A�Ny%=0
��#A
��:�Z$,2,1)="."�
��Z$,1)="$"�=�Z$,�Z$-2)
�=Z$
�	�:=Z$
�	�:=""
�?ݤC(Z$):�Z$,1)=":"��B(�Z$,2,1))��Z$,3,1)="."�Z$=�Z$,�Z$-3)
��Z$,":")�=""
��Z$,2,1)="."�
�=W$+F$+M$+"."
��:=W$+F$+M$+P$+"."
�	�:=""
�?ݤW(Z$):�Z$,1)=":"��B(�Z$,2,1))��Z$,3,1)="."�Z$=�Z$,�Z$-3)
��Z$,":")�=Z$
�*�Z$,1)=�34��Z$,1)=�34�Z$=�Z$,2,�Z$-2)
��Z$,2,1)="."�
�"�Z$,1)="$"�=M$+"."+�Z$,�Z$-2)
�=W$+F$+M$+"."+Z$
��:=W$+F$+M$+P$+"."+Z$
�	�:=""
�DݤI(Z$):�I%:�I%+=1:��Z$,I%,1)<>"*"��Z$,I%,1)<>" ":=�Z$,�Z$-I%+1)
�D��y(�G$):ȕ�G$,1)=" ":G$=�G$,2):�:ȕ�G$,1)=" ":G$=�G$,�G$-1):�:�
�Z��x(�G$):ȕ�G$,1)=" "��G$,1)="*":G$=�G$,2):�:ȕ�G$,1)=" "��G$,1)="*":G$=�G$,�G$-1):�:�
�[��By(S$):Y$=W$:_$=F$:a$=M$:K$=P$:�I%:�I%+=1:��S$,I%,1)<>" ":S$=�S$,�S$-I%+1):�S$," ")�
�S$=�S$,�S$," ")-1)
�'�:�S$=4���Z(S$),3)="DIR"�S$=�S$,1)
��:�S$="^"�
��P$<>""�P$="":�A:�
��M$,".")=0�M$="$":�A:�
�2I%=�M$:�I%-=1:��M$,I%,1)=".":M$=�M$,I%-1):�A:�
��:�S$="$"��S$=0�P$="":�A:�
��S$=1�
�5ș&20008,&D,S$,,,W$+F$+M$+"."�A%;S:�(S�1)<>0��S:�
��(A%�2)=0��S$=1�P$="":�A:�
�A�(A%�2)=0��Z(&D6,"Directory '"+S$+"' not found")�P$="."+S$:�A
��
��:�S$,":")>1�
�3��S$,1)<>":"�ș&20008,17,S$�A%;S:�(S�1)<>0��S:�
�]ș41,&B,S$�,w$,E%:�E%<>-1�ș41,19:W$=�S$,�S$-�w$):S$=w$��Z(&F8,"No such filing system"):�
�)M$="":P$="":F$="":�S$,1)<>":"�M$="$"
��:�S$,1)=":"�
�]I%=0:F$="":�I%+=1:F$=F$+�S$,I%,1):��S$,I%+1,1)="."�I%=�S$:�I%=�S$�S$=""�S$=�S$,�S$-�F$-1)
�M$="":P$=""
�2�:�S$,1)="$"��S$>2�M$="$":P$="":S$=�S$,�S$-2)
�(�F$<>""��F$,1)<>"."�M$<>""�F$=F$+"."
�Gș&20008,&D,S$,,,W$+F$+M$+P$+"."�A%;S:�F$<>""��F$,1)<>"."�F$=F$+"."
��(S�1)<>0��i:�S:�
��(A%�2)=0�
�-�i:�Z(&D6,"Directory '"+S$+"' not found")
��:�S$<>""�
�'�M$<>""�M$=M$+P$+"."+S$:P$=""�M$=S$
��:�A
��:�M$=""�M$="$"
��
�*��Ny:ȔW$,Y$:ȔF$,_$:ȔM$,a$:ȔP$,K$:�
�!��i:W$=Y$:F$=_$:M$=a$:P$=K$:�
���k:ȎF?3�
.�1:ș&20009,5,W?3�A%,,W?3;S:�(S�1)=0��A��S
�W?3<>0�W?3=&FF
W�3:M=�A(W?3+((C?3)<<8)):C$=�I($M):ș&2000D,77,�F(C$),�C(C$)�A;S:A%=A:�A=0�(S�1)<>0�
0�Z(C$),4)="DIR "�(��Z(C$),3)="DIR"��C$=4)�
�By(�C$,�C$-4))
�:�Qy%�
#ș&20005,C$�A%;S:�(S�1)=0��A��S
�:�Z(&FE,"Bad Command")
�
	�

N�:�#A:C$=�W(C$):ș8,5,C$�,,W%,w%:W%=�A(W%�&FFFF):ș8,&FF,C$,W%,0:!N=w%<<16
�
��2,4:M=�A(W?3+((C?3)<<8)):C$=$M:ș&20008,&D,�F(C$),,,�C(C$)�A%,,W%,w%,x%;q%:W%=�A(W%�&FFFF):�W%+x%>memory+&8000�W%<memory+&8000�x%=memory+&8000-W%

Oș&2000D,77,�F(C$),�C(C$)�A%;q%:�(q%�1)=0�ș&2000C,4,A%,W%,x%:ș&2000D,0,A%
�(q%�1)=0�!N=w%<<16��S
	�5:�A

�0,6,8:�A
�9,&A,&B:�A
�"OSFSC ";F?3:A=�
�:�
#��u:M=�A(W?3+(C?3)*256):�F?3=0�
 ș&2000D,0,C?3�A%;S:A%=0:S=0
)�:ș&2000D,(F?3)�1,�F($M),�C($M)�A%;S
�:�(S�1)=0�F?3=A%:�A��S
�
(��j:ș&2000A,F?3,C?3�A%;F%:�(S�1)=0�
%F?3=A%:?P=?P�&FE:�(F%�2)<>0�?P+=1
�A
�:�S
�:�
,��s:ș&2000B,F?3,C?3�A%;S:�(S�1)=0��A��S
�
 v��_(Z$):�Z$,".")=0��Z$,":")=0��Z$,6)<>"<Wimp$"�ș&400DF,"    To save, drag the file icon to a directory viewer":�
!ș46,256+&C,U,Z$:�
"/ݤH(A$):�I%:�I%=1�h%:�Z(S$(I%))=�Z(A$)�=I%
#�:=0
$B��R(A$):�I%:O$="Default":�Z(A$)="RISCPC"��Z(A$)="ARCHIMEDES"�
%A$="Default"
&Y�:�"Set 6502Em$Keymap "+A$:�W(&C,A$):�I%=1�h%:�Z(S$(I%))=�Z(A$)�O$=A$:Ky%=I%:I%=&3E8
''�:�Ay("<6502Em$Dir>.Keymaps."+O$):�
(p��Yy:�t%,N%:Ky%=0:h%=0:�:ș&C,9,"<6502Em$Dir>.Keymaps",Z%,&64,t%,256,0�,,,N%,t%:h%+=N%:�t%=-1:�h%=0�Vy%=-1:�
)j�S$(h%),Vy%32+24*h%:t%=0:�N%=1�h%:ș&C,9,"<6502Em$Dir>.Keymaps",Z%,1,t%,256,0�,,,,t%:S$(N%)=�D(Z%):�:�
*W��by:�I%:A=�"<6502Em$Res>.SpeedMenu":Ay%=-1:�Ay%+=1:A$=�#A:��#A�A$="":�A$=""�Ay%-=1
+A�#A=0:�F$(Ay%),wy%32+24* (Ay%+3):�I%=0�Ay%:F$(I%)=�#A:�:�#A:�
,o��fy:�t%,N%:y%=0:v%=0:�:ș&C,9,"<6502Em$Dir>.Patches",Z%,&64,t%,256,0�,,,N%,t%:v%+=N%:�t%=-1:�v%=0�qy%=-1:�
-o�M$(v%),qy%32+24* (v%+2):t%=0:�N%=1�v%:ș&C,9,"<6502Em$Dir>.Patches",Z%,1,t%,256,0�,,,,t%:M$(N%)=�D(Z%):�:�
.6ݤD(A%):�A$,I%:�:A$=A$+�(A%?I%):I%+=1:�A%?I%=0:=A$
/R��O:�"Load <6502Em$Dir>.Patches."+M$(y%)+" "+�~(X+!Py):?z=?z�1:�W(&E,M$(y%)):�
0ݤJ(A%):?Z=1:ș7,&E,Z:=Z?A%
1��ay:ȎW?3�63�
2�0:C?3=�J(6)
3�1:C?3=1
4�2:C?3=�J(5)
5�3:C?3=1
6�4:C?3=�J(4)
7�5:C?3=1
8�6:C?3=�J(3)
9�7:C?3=�J(2)
:�8:C?3=�J(1)
;�9:C?3=�J(0)
<�&A:C?3=32
=
�&B:C?3=2
>
�&C:C?3=0
?
�&D:C?3=0
@C?3=M%(W?3�63)
A�:F?3=C?3:�A:�
B!��qy:C?3=S%(W?3):F?3=C?3:�A:�
C(��Gy:M%(W?3�63)=C?3:�A:�(W?3�63)>&D�
D1A=�"<6502Em$Res>.CMOS":�#A=W?3�63:�#A,C?3:�#A
E�:�
FF��Cy:S%(W?3)=C?3:�A:A=�"<6502Em$Res>.EEPROM":�#A=W?3:�#A,C?3:�#A:�
GA��cy:�A,I%:A=�"<6502Em$Res>.CMOS":�I%=0�63:M%(I%)=�#A:�:�#A:�
HD��hy:�A,I%:A=�"<6502Em$Res>.EEPROM":�I%=0�&FF:S%(I%)=�#A:�:�#A:�
IA��H(J$):�"LOAD <6502Em$Dir>."+J$+" "+�~X:�X+!Fy:�Jy:�y%<>0��O
J�
K���gy:�H("CodeM"):�"LOAD <6502Em$Dir>.ROMS.M128.OS3,2 "+�~(memory+&C000):�"LOAD <6502Em$Dir>.ROMS.M128.OS3,2 "+�~(roms+U%*16):�"LOAD <6502Em$Res>.SHEILA "+�~Q:_%=&F:�M("M128.Terminal",1):?(roms+U%*&F+6327)=3:?(roms+U%*&F+6328)=&80
L�?(roms+U%*&F+6372)=3:?(roms+U%*&F+6373)=&81:�M("M128.View",1):�M("VDFS",1):�M("M128.BASICIV84",1):�M("M128.Edit1,00",1):�M("M128.ViewSheet",1):�M("M128.DFS2,24",1):�C:�C:�C:�C:�C:�
M���jy:�H("CodeM"):�"LOAD <6502Em$Dir>.ROMS.M128.OS3,5 "+�~(memory+&C000):�"LOAD <6502Em$Dir>.ROMS.M128.OS3,5 "+�~(roms+U%*16):�"LOAD <6502Em$Res>.SHEILA "+�~Q:_%=&F:�M("M128.Terminal35",1):?(roms+U%*&F+5795)=3:?(roms+U%*&F+5796)=&80
N�?(roms+U%*&F+5840)=3:?(roms+U%*&F+5841)=&81:�M("M128.ViewB3,3",1):�M("VDFS",1):�M("M128.BASIC4r32",1):�M("M128.Edit1,50r",1):�M("M128.ViewSh1,01",1):�M("M128.DFS2,45",1):�C:�C:�C:�C:�C:�
O���_y:�H("CodeM"):�"LOAD <6502Em$Dir>.ROMS.Compact.OS5,1 "+�~(memory+&C000):�"LOAD <6502Em$Dir>.ROMS.Compact.OS5,1 "+�~(roms+&4000*16):�"LOAD <6502Em$Res>.SHEILA "+�~Q:_%=&F:�M("Compact.Utils",1):?(roms+U%*&F+&9E3A -&8000)=3
P�?(roms+U%*&F+&9E3B -&8000)=&82:?(roms+U%*&F+&9F3A -&8000)=3:?(roms+U%*&F+&9F3B -&8000)=&83:�M("Compact.BASICIV86",1):�M("VDFS",1):_%=7:�C:�C:�C:�C:�
Qn��Ly:�H("CodeE"):�"LOAD <6502Em$Dir>.ROMS.ELECTRON "+�~(memory+&C000):_%=&F:�M("BASICII",1):�M("VDFS",1):�
R���Zy:�H("Code"):?a=0:�"LOAD <6502Em$Dir>.ROMS.OS1,2 "+�~(memory+&C000):�"LOAD <6502Em$Res>.SHEILA "+�~Q:_%=&F:�M("BASICII",1):�M("VDFS",1):�C:�
SH��U:�Y(roms,roms+16*U%):�Y(memory-512,memory+64*&400):�Vy:�a%>4�a%=0
T�W(&A,A$(a%)):Ȏa%�
U�1:�Z%(1)=0�a%+=1:�U:�
V�gy
W�2:�Z%(2)=0�a%+=1:�U:�
X�jy
Y�3:�Z%(3)=0�a%+=1:�U:�
Z�_y
[
�4:�Ly
\�Zy
](�:I=memory?&FFE0:�Hy(Z$(a%)):�D(1):�
^u��r:V$="<6502Em$Dir>.^.Tape-In":Zy%=�:sy%=�:Dy%=�:`%=�:Qy%=�:a%=Iy%:u%=�:By%=�:Y=�:l%=&7F:�R("Default"):�G(&64):�
_}��Qy:A=�"<6502Em$Res>.Options":�#A,Zy%:�#A,sy%:�#A,Dy%:�#A,`%:�#A,Qy%:�#A,0:�#A,a%:�#A,u%:�#A,Y:�#A,l%:�#A,O$:�#A,q:�#A:�
`H��uy:V$="<6502Em$Dir>.^.Tape-In":A=�"<6502Em$Res>.Options":�A=0��r:�
am�#A,Zy%:�#A,sy%:�#A,Dy%:�#A,`%:�#A,Qy%:�#A,V_%:�#A,a%:�#A,u%:By%=�:�#A,Y:�#A,l%:�#A,X$:�R(X$):�#A,q:�#A:�
bl��L(A%,B%,C%):P%=Z:[OPT2:.d:SUBS2,2,#4:LDR3,[0,2]:LDR4,[1,2]:STR3,[1,2]:STR4,[0,2]:BNE d:MOVpc,&E:]:�d:�
cj��Y(S%,E%):P%=Z:[OPT2:&S%:&E%:.Iy:MOV0,#0:LDR1,Z:LDR2,Z+4:.l:STR0,[1],#4:CMP1,2:BNE l:MOVpc,&E:]:�Iy:�
d
��Uy:�A:�
eS��g:�M,Gy%,ty%,fy%,`y%,w,i%:M=memory?&F0:M+=memory?&F1<<8:M=�A(M):Ȏmemory?&EF�
f�&7F:�D�
g>ș"XImageDFS_OSWORD7F",,memory?&F0,memory?&F1,memory:F?3=0
h��:i%=M?0:fy%=�A(M!1�&FFFF):`y%=M?7:Gy%=M?8:ty%=(M?9)�31:w=((M?9)>>5)+7:Z?0=w:Z?1=&A:Z?2=1:Z?3=1:Z!4=0:Z!8=0:Z!&C=1<<29:Z!16=&64000:Z!20=0:Z!24=0:Z!28=0:ș&60240,,1+(Z<<6),(`y%*&A+Gy%)*2^w+(osword7F_drive%<<29),fy%,ty%*2^w�A%;S:�(S�1)=0�M?&A=0�M?&A=A%
i	F?3=0
j�
k�&72:�M?5=8�
l�Gy%=M?8:Gy%+=M?7<<8:Gy%+=(M?6�31)<<16:ty%=M?9:fy%=�A(M!1�&FFFF):ș&60240,,1,Gy%*256+(osword72_drive%<<29),fy%,ty%*256�A%;S:�(S�1)=0�?M=0�?M=A%
m	F?3=0
n�
o
p
�:�A:�
qp��Q(�A$,�Q$):�I%:ȕ�A$,1)=" ":A$=�A$,�A$-1):�:�I%=2��A$:�A$,I%,1)="+"�A$=�A$,I%-1)+" "+�A$,1+�A$-I%):I%=&FF
r/�:I%=�A$," "):Q$=�A$,I%-1):A$=�A$,�A$-I%):�
s\��my(�A$,�Q$):�I%:ȕ�A$,1)=" ":A$=�A$,�A$-1):�:I%=�A$," "):Q$=�A$,I%-1):A$=�A$,�A$-I%):�
tr��T(�A$,�Q$):�I%,J%:ȕ(�A$,1)=" "��A$,1)="."):A$=�A$,�A$-1):�:I%=�A$," "):J%=�A$,"."):�J%>0�(J%<I%�I%=0)�I%=J%
u!Q$=�A$,I%-1):A$=�A$,�A$-I%):�
vr��o:�A$,J$,M,I%,J%:M=memory?&F2:M+=(memory?&F3)<<8:M=�A(M):M+=C?3:J$=$M:�Q(J$,A$):�A$>4��Z(0,"Bad Address"):�
wN�I%=1��A$:J%=��A$,I%,1):�(J%<48�J%>57)�(J%<65�J%>70)��Z(0,"Bad Address"):�
x4�:Xy%=�("&"+A$):�Xy%>&8000��Z(0,"Bad Address"):�
y5�Q(J$,A$):�A$,1)="+"�Ly%=Xy%:A$=�A$,�A$-1)�Ly%=0
z �A$>4��Z(0,"Bad Address"):�
{N�I%=1��A$:J%=��A$,I%,1):�(J%<48�J%>57)�(J%<65�J%>70)��Z(0,"Bad Address"):�
|=�:Ly%+=�("&"+A$):�Ly%<Xy%�Ly%>&8000��Z(0,"Bad Address"):�
}+�Q(J$,A$):�A$<>4��Z(0,"Bad Address"):�
~N�I%=1��A$:J%=��A$,I%,1):�(J%<48�J%>57)�(J%<65�J%>70)��Z(0,"Bad Address"):�
>�:Hy%=�("&"+A$):�Hy%<&8000�Hy%>&BFFF��Z(0,"Bad Address"):�
��Q(J$,A$):Ȏ�A$�
�(�1:A%=�A$:�A%>=87�A%<=90�A%=A%-87+52
��A%>64�A%<71�A%-=7
�-_%=A%-48:�_%>&F�_%<0��Z(0,"Bad Socket"):�
�H�2:�A$,1)<"0"��A$,1)>"9"��A$,1)<"0"��A$,1)>"9"��Z(0,"Bad Socket"):�
�+_%=�A$:�_%>&F�_%<0��Z(0,"Bad Socket"):�
�:�Z(0,"Bad Socket"):�
�g�:�I%=0��K(Ly%-Xy%,&BFFF-Hy%)�4:!(roms+U%*_%+I%+Hy%-&8000)=Xy%!(memory+I%):�:ROMRAM?_%=0:F?3=0:�A:�
�t��Ty:�A$,J$,M,i%:M=memory?&F2:M+=(memory?&F3)<<8:M=�A(M):J$=$M:�x(J$):�Z(J$),5)="MOUNT"�J$="MOUNT "+�J$,�J$-5)
�B�T(J$,N$):�T(J$,A$):i%=�A$:ș&40242�D%,F%,H%:�A$=""�F?3=0:�A:�
��i%<F%�(i%>3�i%<H%+4)�
�3W$="ADFS:":F$=":"+�i%+".":M$="$":P$="":F?3=0:�A
��:�Z(0,"Bad drive "+A$):�
��:�
�t��Wy:�A$,J$,M,i%:M=memory?&F2:M+=(memory?&F3)<<8:M=�A(M):J$=$M:�x(J$):�Z(J$),5)="DRIVE"�J$="DRIVE "+�J$,�J$-5)
�$�T(J$,N$):�T(J$,A$):i%=�J$:ȎJ$�
��"0","1","2","3":�D�
�	�xy%�
�M$=�M$,�M$,"DFSSide2")-2)
�J�:ș"ImageDFS_DFSToADFSDrive",i%�X_%:W$="ADFS:":F$=":"+�X_%+".":M$="$"
��
��:M$=�M$,�M$,"DFSSide2")-2)
��:P$="":�i%=2�i%=3�
�7ș8,5,W$+F$+M$+".DFSSide2"�A:�A<>0M$=M$+".DFSSide2"
��
��"R","r":�I
�:�Z(0,"Bad Drive "+J$):�
��:F?3=0:�A:�
���dy:�A$,J$,M,I%,J%:M=memory?&F2:M+=(memory?&F3)<<8:M=�A(M):M+=C?3:J$=$M:�my(J$,N$):�Q(J$,A$):�A$<>4��Z(0,"Bad Address"):�
�N�I%=1��A$:J%=��A$,I%,1):�(J%<48�J%>57)�(J%<65�J%>70)��Z(0,"Bad Address"):�
�;�:e%=�("&"+A$):�e%<&8000�e%>&BFFF��Z(0,"Bad Address"):�
�'�Q(J$,A$):��A$,1)="Q"�A$=�A$,�A$-1)
�
Ȏ�A$�
�(�1:A%=�A$:�A%>=87�A%<=90�A%=A%-87+52
��A%>64�A%<71�A%-=7
�-_%=A%-48:�_%>&F�_%<0��Z(0,"Bad Socket"):�
�H�2:�A$,1)<"0"��A$,1)>"9"��A$,1)<"0"��A$,1)>"9"��Z(0,"Bad Socket"):�
�+_%=�A$:�_%>&F�_%<0��Z(0,"Bad Socket"):�
�:�Z(0,"Bad Socket"):�
�6�:ș&2000D,64+&D,�F(N$),�C(N$)�A%;S:�(S�1)<>0��S:�
�HH%=A%:ș&2000C,4,A%,e%-&8000+roms+U%*_%,&C000-e%�A%;S:�(S�1)<>0��S:�
�4?(ROMRAM+_%)=0:ș&2000D,0,H%�A%;S:�(S�1)<>0��S:�
�F?3=0:�A:�
�Y��ny(Z$):�A,B$,K%,A$:ș&4C491�K:�I%=0�&3FF�4:K!I%=&FF:�:A=�Z$:�A=0��0,Z$+" not found"
��:B$=�P:�B$,1)="#"�
�%�e:�B$,"RiscPC")��-256<&A5�B$=""
��:�B$<>""�
�S%=�V(B$):�:A$=�P:�A$<>""�
�K%=�U(A$):K!(K%*4)=S%
��:�A$=""
��
��:�B$=""��#A:�#A:�
�^��Ay(Z$):�A,B$,K%,A$,hy%:ș&4C489�K:�I%=0�&FF+256:K?I%=&FF:�:A=�Z$:�A=0��0,Z$+" not found"
��:B$=�P:�B$,1)="#"�
�%�e:�B$,"RiscPC")��-256<&A5�B$=""
��:�B$<>""�
�/�B$,1)="s"��B$>1�hy%=�:B$=�B$,�B$-1)�hy%=�
�S%=�T(B$):�:A$=�P:�A$<>""�
�K%=�U(A$):�hy%=��K?K%=S%
�K?(K%+256)=S%
��:�A$=""
��
��:�B$=""��#A:�#A:�
�.ݤP:�I%,A$:�I%=�#A:�I%>32�I%=&A:�I%=&A�=""
�9A$=�I%:�I%=�#A:A$=A$+�I%:�I%<33:�#A=�#A-1:=�A$,�A$-1)
���e:�I%:�I%=�#A:�I%=&A:�
�MݤV(A$):�I%,J%,K%:�I%=0�3:�J%=0�&D:�C$(I%,J%)=A$�K%=(I%<<8)+J%:I%=4:J%=&E
��:�:=K%
�4ݤT(A$):�I%,J%:�I%=0�&7C:�J$(I%)=A$�J%=I%:I%=&80
�	�:=J%
�4ݤU(A$):�I%,J%:�I%=0�&78:�P$(I%)=A$�J%=I%:I%=&68
�	�:=J%
�-� Escape,1,2,3,4,5,6,7,8,9,0,-,Left,Right
�/� CapsLock,Q,W,E,R,T,Y,U,I,O,P,Up,Down,Copy
�*� Ctrl,A,S,D,F,G,H,J,K,L,;,:,Return,""
�1� Shift,Z,X,C,V,B,N,M,",",.,/,"",Delete,Space
�A� Shift,Ctrl,bit7,bit6,bit5,bit4,bit3,bit2,bit1,bit0,"","",""
�'� Q,3,4,5,f4,8,f7,-,^,Left,K6,K7,""
�&� f0,W,E,T,7,I,9,0,_,Down,K8,K9,""
�(� 1,2,D,R,6,U,O,P,[,Up,K+,K-,KReturn
�5� CapsLock,A,X,F,Y,J,K,@,:,Return,K/,KDelete,"K."
�1� ShiftLock,S,C,G,H,N,L,;,],Delete,K#,K*,"K,"
�/� Tab,Z,Space,V,B,M,",",".",/,Copy,K0,K1,K3
�2� Escape,f1,f2,f3,f5,f6,f8,f9,\,Right,K4,K5,K2
�>� Escape,f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,"",Print,"",""
շ� `,1,2,3,4,5,6,7,8,9,0,-,=,�,<-|,Insert,Home,PageUp,NumLock,K/,K*,K#,Tab,Q,W,E,R,T,Y,U,I,O,P,[,],\,Delete,Copy,PageDown,K7,K8,K9,K-,LCtrl,A,S,D,F,G,H,J,K,L,;,',Return,K4,K5,K6,K+
�q� LShift,,Z,X,C,V,B,N,M,",",.,/,RShift,Up,K1,K2,K3,CapsLock,LAlt,Space,RAlt,RCtrl,Left,Down,Right,K0,K.,Enter
�5� "","","","","","","","","","","","","","","",""
�� # : REM Risc PC key #~
���c:�paging%=��a%=0�a%=4��
�!&97000=-&5F5F5F60:!&97004=-&5F5F5F60:!&97008=-&5F5F5F60:!&9700C=-&5F5F5F60:�L(&A8000,roms+(?V�&F)*U%,U%):?&97008=68+(?V�&F)*4:?&97009=68+(?V�&F)*4:?&9700A=68+(?V�&F)*4:?&9700B=68+(?V�&F)*4:�(?a�8)<>0�?&9700C=&89:?&9700D=&89:�L(&AC000,&95000,8192)
�3�(?V�&80)<>0�?&97008=&89:�L(&A8000,&9D000,4096)
��
���h:�paging%=��a%=0�a%=4��
�'�(?V�&80)<>0��L(&A8000,&9D000,4096)
�%�(?a�8)<>0��L(&AC000,&95000,8192)
�#�L(&A8000,roms+(?V�&F)*U%,U%):�
�ݤX(A%)=?�A(A%)
�ݤA(A%)=memory+A%
���z(A%,V%):memory?A%=V%:�
���w:�a%>0�a%<4��
�Yy%=memory?&FFB7+(memory?&FFB8<<8):Yy%=�A(Yy%):f%=Yy%?30+(Yy%?31<<8):T=roms+U%*16 -&C000:memory?f%=3:T?f%=3:memory?&FFCE=3:T?&FFCE=3:memory?&FFD1=3:T?&FFD1=3:memory?&FFD4=3:T?&FFD4=3:memory?&FFD7=3:T?&FFD7=3:memory?&FFDA=3:T?&FFDA=3:memory?&FFDD=3
�T?&FFDD=3:�
���p:�A:�a%<>0��
�JA=�(W$+F$+M$+P$+".!Boot"):�A<>0��#A:_=�:�N(W$+F$+M$+P$+".!Boot"):_=�:�
�HA=�(W$+F$+M$+P$+".!Run"):�A<>0��#A:_=�:�V(W$+F$+M$+P$+".!Run"):_=�:�
��Z(&D6,"File not found"):�
�4��J(S_%,X%,Y%):�Ky:ș&400D4,,S_%,X%,Y%:ny%=S_%:�
���wy:Z%!0=m%:ȎUy%�
�0�1:Z%!4=1:ș&400CE,,Z%:Dy%=((Z%!24�2^21)<>0)
�0�2:Z%!4=2:ș&400CE,,Z%:Zy%=((Z%!24�2^21)<>0)
�/�3:Z%!4=3:ș&400CE,,Z%:`%=((Z%!24�2^21)<>0)
�0�4:Z%!4=4:ș&400CE,,Z%:Qy%=((Z%!24�2^21)<>0)
�0�5:Z%!4=5:ș&400CE,,Z%:By%=((Z%!24�2^21)<>0)
�y�6:Z%!4=6:ș&400CE,,Z%:Y=((Z%!24�2^21)<>0):�Y��"IconSprites <6502Em$Res>.file_xxx"��"IconSprites <6502Em$Res>.no_xxx"
�/�7:Z%!4=7:ș&400CE,,Z%:u%=((Z%!24�2^21)<>0)
��&A:�n%=2��J(ay%,k%-64,p%)
��&B:�J(ay%,k%-64,p%)
��&C:�n%=2�J(Vy%,k%-64,p%)
��&D:�J(Vy%,k%-64,p%)
��&E:�n%=2�J(qy%,k%-64,p%)
��&F:�J(qy%,k%-64,p%)
��16:�n%=2�J(wy%,k%-64,p%)
��17:�J(wy%,k%-64,p%)
�
�20:�r:�b
��21:�Qy
��22:!Z%=m%:ș&400C6,,Z%
��:�
���b:!Z%=m%:Z%!&C=2^21:Z%!4=1:Z%!8=-2^21*(Dy%<>0):ș&400CD,,Z%:Z%!4=2:Z%!8=-2^21*(Zy%<>0):ș&400CD,,Z%:Z%!4=3:Z%!8=-2^21*(`%<>0):ș&400CD,,Z%:Z%!4=4:Z%!8=-2^21*(Qy%<>0):ș&400CD,,Z%:Z%!4=5:Z%!8=-2^21*(By%<>0):ș&400CD,,Z%
�Z%!4=6:Z%!8=-2^21*(Y<>0):ș&400CD,,Z%:Z%!4=7:Z%!8=-2^21*(u%<>0):ș&400CD,,Z%:�W(16,�q+"%"):Z!0=0:Z!4=0:Z!8=0:ș35,"6502Em$Keymap",Z,&FF�,B$:Ky%=�H(B$):�W(&C,B$):�
X��W(N%,A$):Z%!0=m%:Z%!4=N%:ș&400CE,,Z%:$(Z%!28)=A$+�0:Z%!8=0:Z%!&C=0:ș&400CD,,Z%:�
 ��G(ky):q=ky:�W(16,�q+"%"):�
=��Fy(A$):ș&20039,,"ImageDFS_Version"�;S:�(S�1)=0�D=��D=�
Q�D=���`("ImageDFS (available from WSS) must be loaded to access this file"):�
xy%=�:�N(A$+".!BOOT"):�P:�
,��`(A$):ș&400DF,"    "+A$,25,"6502Em":�
'��m:�b:Z%!0=m%:ș&400CB,,Z%:�zy%=��
	�ș53,-1,4�,,N_%:ș53,-1,5�,,W_%:ș53,-1,&B�,,C_%:ș53,-1,&C�,,P_%:Sy%=Z%!&C-Z%!4:Fy%=Z%!16-Z%!8:Z%!4=((C_%<<N_%)-Sy%)/2:Z%!8=((P_%<<W_%)-Fy%)/2:Z%!&C=Z%!4+Sy%:Z%!16=Z%!8+Fy%

�:Z%!28=-1:ș&400C5,,Z%:�
o���l:Q_%=&A:L_%=(1<<Q_%):�
o����Xy:�F,q%:�l:�jy% (4*L_%):�iy%64:�My%512:�G_%&80:�q%=0�&3FF:?(jy%+q%)=q%*&A:�:ș&40180,&7F�x:�q%=0�&7F:ș&4C48E,q%,A%:F=�((q%/&80)*�):�F<>0�F=F^0.2
o��ș&40181,&7FFFFFFF*F�F:?(My%+q%)=F:?(My%+&80+q%)=F+1:�:�q%=0�63:?(My%+256+q%)=?(My%+q%*(8/4)):�:�q%=0�&BF:?(My%+272+q%)=?(My%+&80+q%*(8/&C)):�:ș&40180,x:r%=X+!(X+22*4):!(r%+0)=jy%:!(r%+4)=iy%:!(r%+8)=My%:!(r%+&C)=G_%+64:r%+=16:�
o�T��Jy:r%=X+!(X+22*4):!(r%+0)=jy%:!(r%+4)=iy%:!(r%+8)=My%:!(r%+&C)=G_%+64:r%+=16:�
o���v:�u%�gy%=�:�
o���q%,c%:ș&40183,r%,0�,U_%:ș&40140,4,&D0,48,0,0�Xy,Ny,Ty,Ly,Gy:ș&40185,1,1�,Qy:ș&40185,2,1�,Ky:ș&40185,3,1�,`:ș&40185,4,1�,n:ș&4018A,1,"6502Emulator":ș&4018A,2,"6502Emulator":ș&4018A,3,"6502Emulator":ș&4018A,4,"6502Emulator":ș&40180,l%�x
o���q%=0�&F:c%=q%+(q%<<4):c%=c%+(c%<<8):c%=c%+(c%<<16):ș&40181,(c%>>>1)�c%:?(iy%+q%)=c%:�:�1,-1,1,&FF:�2,-1,1,&FF:�3,-1,1,&FF:�4,-1,1,&FF:gy%=�:�
o���q:�u%��
o�sș&40180,x:ș&40140,Xy,Ny,Ty,Ly,Gy:ș&40185,1,Qy:ș&40185,2,Ky:ș&40185,3,`:ș&40185,4,n:ș&40184,0,U_%:gy%=�:�
�
00000000  0d 00 01 0f f4 3e 21 52  75 6e 49 6d 61 67 65 0d  |.....>!RunImage.|
00000010  00 02 30 f4 50 72 6f 64  75 63 65 64 20 62 79 20  |..0.Produced by |
00000020  42 61 73 43 6f 6d 70 72  65 73 73 20 76 31 2e 36  |BasCompress v1.6|
00000030  39 20 28 30 34 20 41 75  67 20 31 39 39 35 29 0d  |9 (04 Aug 1995).|
00000040  00 03 11 f4 20 3e 20 21  52 75 6e 49 6d 61 67 65  |.... > !RunImage|
00000050  0d 00 04 2c f4 20 36 35  30 32 45 6d 20 28 64 65  |...,. 6502Em (de|
00000060  73 6b 74 6f 70 20 66 72  6f 6e 74 65 6e 64 20 66  |sktop frontend f|
00000070  6f 72 20 62 69 6e 61 72  69 65 73 29 0d 00 05 2a  |or binaries)...*|
00000080  f4 20 28 63 29 20 4d 69  63 68 61 65 6c 20 61 6e  |. (c) Michael an|
00000090  64 20 41 6e 6e 65 20 42  6f 72 63 68 65 72 64 73  |d Anne Borcherds|
000000a0  2c 20 31 39 39 35 0d 00  06 45 f4 20 4c 4f 43 4b  |, 1995...E. LOCK|
000000b0  20 52 4f 4d 52 41 4d 2c  6d 65 6d 6f 72 79 2c 72  | ROMRAM,memory,r|
000000c0  6f 6d 73 2c 6f 73 77 6f  72 64 37 46 5f 64 72 69  |oms,osword7F_dri|
000000d0  76 65 25 2c 6f 73 77 6f  72 64 37 32 5f 64 72 69  |ve%,osword72_dri|
000000e0  76 65 25 2c 70 61 67 69  6e 67 25 0d 00 07 6b 65  |ve%,paging%...ke|
000000f0  24 3d 22 32 2e 31 30 20  28 32 34 74 68 20 4e 6f  |$="2.10 (24th No|
00000100  76 65 6d 62 65 72 20 31  39 39 36 29 22 3a ee 85  |vember 1996)":..|
00000110  c8 99 26 36 30 30 44 44  3a c8 99 26 36 30 30 44  |..&600DD:..&600D|
00000120  46 2c 22 20 20 20 20 46  61 74 61 6c 20 69 6e 74  |F,"    Fatal int|
00000130  65 72 6e 61 6c 20 65 72  72 6f 72 20 22 2b c3 9e  |ernal error "+..|
00000140  2b 22 3a 20 22 2b f6 24  2c 31 2c 22 36 35 30 32  |+": "+.$,1,"6502|
00000150  45 6d 22 3a c8 98 0d 00  08 7a 6f 73 77 6f 72 64  |Em":.....zosword|
00000160  37 46 5f 64 72 69 76 65  25 3d 31 3a 6f 73 77 6f  |7F_drive%=1:oswo|
00000170  72 64 37 32 5f 64 72 69  76 65 25 3d 30 3a 70 61  |rd72_drive%=0:pa|
00000180  67 69 6e 67 25 3d b9 3a  42 5f 25 3d 93 3a d3 3d  |ging%=.:B_%=.:.=|
00000190  93 2d 39 36 2a 26 34 30  30 3a 21 93 3d 30 3a c8  |.-96*&400:!.=0:.|
000001a0  99 33 35 2c 22 36 35 30  32 45 6d 24 53 61 76 65  |.35,"6502Em$Save|
000001b0  53 63 72 65 65 6e 22 2c  93 2c 26 46 46 b8 2c 42  |Screen",.,&FF.,B|
000001c0  24 3a e7 c0 42 24 2c 33  29 3d 22 59 65 73 22 8c  |$:..B$,3)="Yes".|
000001d0  0d 00 09 0c 55 3d 93 3a  4d 79 3d a3 0d 00 0a 1a  |....U=.:My=.....|
000001e0  cc 3a d3 3d 93 2b 39 36  2a 26 34 30 30 3a 55 3d  |.:.=.+96*&400:U=|
000001f0  30 3a 4d 79 3d a3 0d 00  0b 66 cd 3a d3 3d 93 2d  |0:My=....f.:.=.-|
00000200  28 36 34 2b 36 34 29 2a  26 34 30 30 3a 6d 65 6d  |(64+64)*&400:mem|
00000210  6f 72 79 3d 93 2b 36 34  2a 26 34 30 30 3a e7 6d  |ory=.+64*&400:.m|
00000220  65 6d 6f 72 79 3c 3e 26  41 30 30 30 30 8c 85 30  |emory<>&A0000..0|
00000230  2c 22 36 35 30 32 45 6d  20 69 6e 69 74 69 61 6c  |,"6502Em initial|
00000240  69 73 61 74 69 6f 6e 3a  20 46 61 74 61 6c 20 6d  |isation: Fatal m|
00000250  65 6d 6f 72 79 20 65 72  72 6f 72 22 0d 00 0c 49  |emory error"...I|
00000260  51 3d 6d 65 6d 6f 72 79  2d 35 31 32 3a d3 3d 93  |Q=memory-512:.=.|
00000270  2d 31 37 2a 31 36 2a 26  34 30 30 3a 72 6f 6d 73  |-17*16*&400:roms|
00000280  3d 93 3a d3 3d 93 2d 26  41 30 2a 26 34 30 30 3a  |=.:.=.-&A0*&400:|
00000290  58 3d 93 3a 55 25 3d 26  34 30 30 30 3a 52 79 25  |X=.:U%=&4000:Ry%|
000002a0  3d 26 42 42 43 0d 00 0d  1e f4 20 76 6f 6c 75 6d  |=&BBC..... volum|
000002b0  65 20 62 65 74 77 65 65  6e 20 30 20 61 6e 64 20  |e between 0 and |
000002c0  31 32 37 0d 00 0e 1b f2  52 79 3a f2 49 79 3a f2  |127.....Ry:.Iy:.|
000002d0  58 79 3a f2 55 3a f2 65  79 3a f2 4b 3a e0 0d 00  |Xy:.U:.ey:.K:...|
000002e0  0f f3 dd f2 78 79 28 48  24 29 3a ea 53 79 25 2c  |....xy(H$):.Sy%,|
000002f0  46 79 25 2c 6f 79 25 2c  5a 5f 25 2c 4d 5f 25 3a  |Fy%,oy%,Z_%,M_%:|
00000300  de 74 20 32 35 36 2c 66  20 32 35 36 3a c8 99 26  |.t 256,f 256:..&|
00000310  34 30 30 45 39 2c 34 30  2c 2c 48 24 b8 2c 2c 2c  |400E9,40,,H$.,,,|
00000320  53 79 25 2c 46 79 25 2c  2c 6f 79 25 3a c8 99 35  |Sy%,Fy%,,oy%:..5|
00000330  33 2c 6f 79 25 2c 34 b8  2c 2c 5a 5f 25 3a 53 79  |3,oy%,4.,,Z_%:Sy|
00000340  25 3d 53 79 25 3c 3c 5a  5f 25 3a c8 99 35 33 2c  |%=Sy%<<Z_%:..53,|
00000350  6f 79 25 2c 35 b8 2c 2c  4d 5f 25 3a 46 79 25 3d  |oy%,5.,,M_%:Fy%=|
00000360  46 79 25 3c 3c 4d 5f 25  3a 21 5a 25 3d 2d 31 3a  |Fy%<<M_%:!Z%=-1:|
00000370  5a 25 21 34 3d 30 3a 5a  25 21 38 3d 2d 31 36 3a  |Z%!4=0:Z%!8=-16:|
00000380  5a 25 21 26 43 3d 5a 25  21 34 2b 53 79 25 3a 5a  |Z%!&C=Z%!4+Sy%:Z|
00000390  25 21 31 36 3d 32 30 2b  46 79 25 3a 5a 25 21 32  |%!16=20+Fy%:Z%!2|
000003a0  30 3d 26 31 37 30 30 33  31 30 42 3a 21 28 5a 25  |0=&1700310B:!(Z%|
000003b0  2b 32 34 29 3d 74 3a 21  28 5a 25 2b 32 38 29 3d  |+24)=t:!(Z%+28)=|
000003c0  66 3a 24 74 3d 48 24 3a  24 66 3d 22 53 22 2b 48  |f:$t=H$:$f="S"+H|
000003d0  24 0d 00 10 2a 21 28 5a  25 2b 33 32 29 3d 32 35  |$...*!(Z%+32)=25|
000003e0  36 3a c8 99 26 34 30 30  43 32 2c 2c 5a 25 b8 21  |6:..&400C2,,Z%.!|
000003f0  5a 25 3a 5a 79 3d 21 5a  25 3a e1 0d 00 11 70 dd  |Z%:Zy=!Z%:....p.|
00000400  f2 48 79 28 48 24 29 3a  24 66 3d 22 53 22 2b 48  |.Hy(H$):$f="S"+H|
00000410  24 3a 24 74 3d 48 24 3a  5a 21 30 3d 2d 32 3a 5a  |$:$t=H$:Z!0=-2:Z|
00000420  21 34 3d 5a 79 3a 5a 21  38 3d 26 38 30 30 30 38  |!4=Zy:Z!8=&80008|
00000430  30 3a 5a 21 26 43 3d 26  38 30 30 30 38 30 3a c8  |0:Z!&C=&800080:.|
00000440  99 26 34 30 30 43 44 2c  2c 5a 3a 5a 21 38 3d 30  |.&400CD,,Z:Z!8=0|
00000450  3a 5a 21 26 43 3d 26 38  30 30 30 38 30 3a c8 99  |:Z!&C=&800080:..|
00000460  26 34 30 30 43 44 2c 2c  5a 3a e1 0d 00 12 b8 dd  |&400CD,,Z:......|
00000470  f2 52 79 3a de 6b 20 34  3a 24 6b 3d 22 54 41 53  |.Ry:.k 4:$k="TAS|
00000480  4b 22 3a c8 99 26 34 30  30 43 30 2c 26 43 38 2c  |K":..&400C0,&C8,|
00000490  21 6b 2c 22 36 35 30 32  45 6d 22 b8 65 79 25 2c  |!k,"6502Em".ey%,|
000004a0  6a 25 3a de 5a 25 32 35  36 2c 52 5f 25 32 35 36  |j%:.Z%256,R_%256|
000004b0  2c 72 79 25 33 30 30 2c  6d 79 25 26 43 38 2c 6b  |,ry%300,my%&C8,k|
000004c0  79 25 38 30 30 2c 61 79  25 26 43 38 2c 61 79 20  |y%800,ay%&C8,ay |
000004d0  32 30 3a de 4b 5f 25 35  30 2c 54 5f 25 26 43 2c  |20:.K_%50,T_%&C,|
000004e0  49 5f 25 26 43 2c 4a 20  34 30 3a de 60 79 20 26  |I_%&C,J 40:.`y &|
000004f0  43 2a 34 2c 5a 20 32 35  36 3a f2 59 28 93 2c 42  |C*4,Z 256:.Y(.,B|
00000500  5f 25 29 3a f2 78 79 28  22 4f 53 a0 31 2e 32 22  |_%):.xy("OS.1.2"|
00000510  29 3a f2 66 79 3a f2 62  79 3a e7 65 79 25 3e 32  |):.fy:.by:.ey%>2|
00000520  39 39 8c 0d 00 13 70 c8  99 36 2c 26 41 31 2c 26  |99....p..6,&A1,&|
00000530  38 43 b8 2c 2c 46 5f 25  3a 44 5f 25 3d 2d 28 46  |8C.,,F_%:D_%=-(F|
00000540  5f 25 80 31 29 3a e7 44  5f 25 3d b9 8c c8 99 26  |_%.1):.D_%=....&|
00000550  34 30 30 44 39 2c 2c 22  3c 36 35 30 32 45 6d 24  |400D9,,"<6502Em$|
00000560  52 65 73 3e 2e 54 65 6d  70 6c 61 74 65 33 44 22  |Res>.Template3D"|
00000570  8b c8 99 26 34 30 30 44  39 2c 2c 22 3c 36 35 30  |...&400D9,,"<650|
00000580  32 45 6d 24 52 65 73 3e  2e 54 65 6d 70 6c 61 74  |2Em$Res>.Templat|
00000590  65 73 22 0d 00 14 90 c8  99 26 34 30 30 44 42 2c  |es"......&400DB,|
000005a0  2c 2d 31 2c 2c 2c 2d 31  2c 22 69 6e 66 6f 22 b8  |,-1,,,-1,"info".|
000005b0  2c 41 25 2c 42 25 3a c8  99 26 34 30 30 44 42 2c  |,A%,B%:..&400DB,|
000005c0  2c 2d 31 2c 2c 2c 2d 31  2c 22 78 66 65 72 5f 73  |,-1,,,-1,"xfer_s|
000005d0  65 6e 64 22 b8 2c 43 25  2c 44 25 3a c8 99 26 34  |end".,C%,D%:..&4|
000005e0  30 30 44 42 2c 2c 2d 31  2c 2c 2c 2d 31 2c 22 78  |00DB,,-1,,,-1,"x|
000005f0  66 65 72 5f 73 65 6e 64  32 22 b8 2c 45 25 2c 46  |fer_send2".,E%,F|
00000600  25 3a c8 99 26 34 30 30  44 42 2c 2c 2d 31 2c 2c  |%:..&400DB,,-1,,|
00000610  2c 2d 31 2c 22 63 6f 6e  66 69 67 22 b8 2c 47 25  |,-1,"config".,G%|
00000620  2c 48 25 0d 00 15 60 cc  3a c8 99 26 34 30 30 44  |,H%...`.:..&400D|
00000630  39 2c 2c 22 3c 36 35 30  32 45 6d 24 52 65 73 3e  |9,,"<6502Em$Res>|
00000640  2e 54 65 6d 70 6c 61 74  65 73 22 3a 41 25 3d 37  |.Templates":A%=7|
00000650  30 30 3a 42 25 3d 33 30  30 3a 43 25 3d 34 30 30  |00:B%=300:C%=400|
00000660  3a 44 25 3d 33 35 30 3a  45 25 3d 43 25 3a 46 25  |:D%=350:E%=C%:F%|
00000670  3d 44 25 3a 47 25 3d 26  37 44 30 3a 48 25 3d 26  |=D%:G%=&7D0:H%=&|
00000680  37 44 30 0d 00 16 ee cd  3a de 41 79 20 41 25 2c  |7D0.....:.Ay A%,|
00000690  52 79 20 42 25 2c 4c 20  43 25 2b 34 2c 76 20 44  |Ry B%,L C%+4,v D|
000006a0  25 2c 48 20 45 25 2b 34  2c 63 20 46 25 3a de 67  |%,H E%+4,c F%:.g|
000006b0  20 47 25 2c 75 20 48 25  2b 34 3a c8 99 26 34 30  | G%,u H%+4:..&40|
000006c0  30 44 42 2c 2c 41 79 2c  52 79 2c 52 79 2b 42 25  |0DB,,Ay,Ry,Ry+B%|
000006d0  2c 2d 31 2c 22 69 6e 66  6f 22 3a c8 99 26 34 30  |,-1,"info":..&40|
000006e0  30 44 42 2c 2c 4c 2c 76  2c 76 2b 44 25 2c 2d 31  |0DB,,L,v,v+D%,-1|
000006f0  2c 22 78 66 65 72 5f 73  65 6e 64 22 3a c8 99 26  |,"xfer_send":..&|
00000700  34 30 30 44 42 2c 2c 48  2c 63 2c 63 2b 46 25 2c  |400DB,,H,c,c+F%,|
00000710  2d 31 2c 22 78 66 65 72  5f 73 65 6e 64 32 22 3a  |-1,"xfer_send2":|
00000720  c8 99 26 34 30 30 44 42  2c 2c 67 2c 75 2c 75 2b  |..&400DB,,g,u,u+|
00000730  48 25 2c 2d 31 2c 22 63  6f 6e 66 69 67 22 3a c8  |H%,-1,"config":.|
00000740  99 26 34 30 30 44 41 3a  c8 99 26 34 30 30 43 31  |.&400DA:..&400C1|
00000750  2c 2c 4c b8 41 25 3a 64  25 3d 41 25 3a c8 99 26  |,,L.A%:d%=A%:..&|
00000760  34 30 30 43 31 2c 2c 48  b8 41 25 3a 67 25 3d 41  |400C1,,H.A%:g%=A|
00000770  25 0d 00 17 a0 c8 99 26  34 30 30 43 31 2c 2c 67  |%......&400C1,,g|
00000780  b8 41 25 3a 6d 25 3d 41  25 3a 7a 79 25 3d a3 3a  |.A%:m%=A%:zy%=.:|
00000790  c8 99 26 34 30 30 43 31  2c 2c 41 79 b8 41 25 3a  |..&400C1,,Ay.A%:|
000007a0  64 79 25 3d 41 25 3a 21  5a 3d 64 79 25 3a 5a 21  |dy%=A%:!Z=dy%:Z!|
000007b0  34 3d 39 3a c8 99 26 34  30 30 43 45 2c 2c 5a 3a  |4=9:..&400CE,,Z:|
000007c0  24 28 5a 21 32 38 29 3d  65 24 2b bd 30 3a 21 5a  |$(Z!28)=e$+.0:!Z|
000007d0  3d 64 79 25 3a 5a 21 34  3d 26 42 3a c8 99 26 34  |=dy%:Z!4=&B:..&4|
000007e0  30 30 43 45 2c 2c 5a 3a  ff 22 4c 6f 61 64 20 3c  |00CE,,Z:."Load <|
000007f0  36 35 30 32 45 6d 24 52  65 73 3e 2e 53 65 72 69  |6502Em$Res>.Seri|
00000800  61 6c 4e 6f 20 22 2b c3  7e 28 5a 21 32 38 29 3a  |alNo "+.~(Z!28):|
00000810  e1 0d 00 18 1d dd f2 65  79 3a c8 99 31 36 b8 41  |.......ey:..16.A|
00000820  24 3a e7 c2 41 24 2c 31  29 3d 22 20 22 8c 0d 00  |$:..A$,1)=" "...|
00000830  19 32 49 25 3d 30 3a f5  49 25 2b 3d 31 3a fd c1  |.2I%=0:.I%+=1:..|
00000840  41 24 2c a9 41 24 2d 49  25 2c 31 29 3c 3e 22 20  |A$,.A$-I%,1)<>" |
00000850  22 3a 41 24 3d c0 41 24  2c a9 41 24 2d 49 25 29  |":A$=.A$,.A$-I%)|
00000860  0d 00 1a 1f cd 3a e7 c2  41 24 2c 31 29 3d bd 33  |.....:..A$,1)=.3|
00000870  34 8c 41 24 3d c0 41 24  2c a9 41 24 2d 31 29 0d  |4.A$=.A$,.A$-1).|
00000880  00 1b 1d e7 c0 41 24 2c  31 29 3d bd 33 34 8c 41  |.....A$,1)=.34.A|
00000890  24 3d c2 41 24 2c a9 41  24 2d 31 29 0d 00 1c 5f  |$=.A$,.A$-1)..._|
000008a0  49 25 3d 30 3a f5 49 25  2b 3d 31 3a fd c1 41 24  |I%=0:.I%+=1:..A$|
000008b0  2c a9 41 24 2d 49 25 2c  31 29 3d 22 20 22 84 49  |,.A$-I%,1)=" ".I|
000008c0  25 3d a9 41 24 3a 41 24  3d c2 41 24 2c 49 25 29  |%=.A$:A$=.A$,I%)|
000008d0  3a e7 a4 5a 28 c1 41 24  2c a9 41 24 2d 39 2c 26  |:..Z(.A$,.A$-9,&|
000008e0  41 29 29 3c 3e 22 2e 21  52 55 4e 49 4d 41 47 45  |A))<>".!RUNIMAGE|
000008f0  22 8c f2 56 28 41 24 29  3a f2 50 0d 00 1d 05 e1  |"..V(A$):.P.....|
00000900  0d 00 1e 1b dd f2 4b 3a  ee 85 e7 a4 47 28 f6 24  |......K:....G(.$|
00000910  2c 9f 3c 3e 31 29 3d 32  8c f2 58 0d 00 1f 29 f5  |,.<>1)=2..X...).|
00000920  3a 6c 79 25 3d 36 31 39  35 3a c8 99 26 34 30 30  |:ly%=6195:..&400|
00000930  43 37 2c 6c 79 25 2c 5a  25 b8 41 5f 25 3a c8 8e  |C7,ly%,Z%.A_%:..|
00000940  41 5f 25 ca 0d 00 20 21  c9 32 3a c8 99 26 34 30  |A_%... !.2:..&40|
00000950  30 43 35 2c 2c 5a 25 3a  e7 21 5a 25 3d 6d 25 8c  |0C5,,Z%:.!Z%=m%.|
00000960  7a 79 25 3d b9 0d 00 21  21 c9 33 3a c8 99 26 34  |zy%=...!!.3:..&4|
00000970  30 30 43 36 2c 2c 5a 25  3a e7 21 5a 25 3d 6d 25  |00C6,,Z%:.!Z%=m%|
00000980  8c 7a 79 25 3d a3 0d 00  22 0a c9 36 3a f2 76 79  |.zy%=..."..6:.vy|
00000990  0d 00 23 0a c9 37 3a f2  50 79 0d 00 24 0a c9 38  |..#..7:.Py..$..8|
000009a0  3a f2 79 79 0d 00 25 0a  c9 39 3a f2 44 79 0d 00  |:.yy..%..9:.Dy..|
000009b0  26 0e c9 31 37 2c 31 38  3a f2 7a 79 0d 00 27 0a  |&..17,18:.zy..'.|
000009c0  cb 3a fd a3 3a e1 0d 00  28 11 dd f2 7a 79 3a c8  |.:..:...(...zy:.|
000009d0  8e 5a 25 21 31 36 ca 0d  00 29 09 c9 30 3a f2 58  |.Z%!16...)..0:.X|
000009e0  0d 00 2a 12 c9 32 3a e7  5a 25 21 26 43 3d 4a 5f  |..*..2:.Z%!&C=J_|
000009f0  25 8c 0d 00 2b 25 c8 99  37 30 2c 5a 25 2b 34 34  |%...+%..70,Z%+44|
00000a00  b8 41 24 3a e7 41 24 3d  22 3c 57 69 6d 70 24 53  |.A$:.A$="<Wimp$S|
00000a10  63 72 61 70 3e 22 8c 0d  00 2c 57 c8 99 26 32 30  |crap>"...,W..&20|
00000a20  30 32 33 2c 22 57 69 6d  70 24 53 63 72 61 70 22  |023,"Wimp$Scrap"|
00000a30  2c 2c 2d 31 b8 2c 2c 41  25 3a e7 41 25 3d 30 8c  |,,-1.,,A%:.A%=0.|
00000a40  c8 99 26 34 30 30 44 46  2c 22 20 20 20 20 53 63  |..&400DF,"    Sc|
00000a50  72 61 70 20 66 69 6c 65  20 6e 6f 74 20 73 65 74  |rap file not set|
00000a60  22 2c 31 2c 22 36 35 30  32 45 6d 22 3a e1 0d 00  |",1,"6502Em":...|
00000a70  2d 0b cd 3a e7 54 79 25  8c 0d 00 2e 10 f2 5f 28  |-..:.Ty%......_(|
00000a80  41 24 29 3a 21 5a 3d 67  25 0d 00 2f 12 cc 3a f2  |A$):!Z=g%../..:.|
00000a90  61 28 41 24 29 3a 21 5a  3d 64 25 0d 00 30 18 cd  |a(A$):!Z=d%..0..|
00000aa0  3a e7 c0 41 24 2c 36 29  3c 3e 22 3c 57 69 6d 70  |:..A$,6)<>"<Wimp|
00000ab0  24 22 8c 0d 00 31 20 5a  21 34 3d 31 3a c8 99 26  |$"...1 Z!4=1:..&|
00000ac0  34 30 30 43 45 2c 2c 5a  3a 24 28 5a 21 32 38 29  |400CE,,Z:$(Z!28)|
00000ad0  3d 41 24 0d 00 32 2c cd  3a 5a 25 21 31 36 3d 33  |=A$..2,.:Z%!16=3|
00000ae0  3a 5a 25 21 26 43 3d 5a  25 21 38 3a c8 99 26 34  |:Z%!&C=Z%!8:..&4|
00000af0  30 30 45 37 2c 31 37 2c  5a 25 2c 5a 25 21 34 0d  |00E7,17,Z%,Z%!4.|
00000b00  00 33 05 cd 0d 00 34 1d  c9 33 3a c8 99 37 30 2c  |.3....4..3:..70,|
00000b10  5a 25 2b 34 34 b8 41 24  3a c8 8e 5a 25 21 34 30  |Z%+44.A$:..Z%!40|
00000b20  ca 0d 00 35 11 c9 26 42  32 32 3a f2 46 79 28 41  |...5..&B22:.Fy(A|
00000b30  24 29 0d 00 36 0f c9 52  79 25 3a f2 56 28 41 24  |$)..6..Ry%:.V(A$|
00000b40  29 0d 00 37 18 c9 26 46  46 42 2c 26 46 46 45 3a  |)..7..&FFB,&FFE:|
00000b50  f2 4e 28 41 24 29 3a f2  50 0d 00 38 05 cb 0d 00  |.N(A$):.P..8....|
00000b60  39 0f c9 35 3a c8 8e 5a  25 21 34 30 ca 0d 00 3a  |9..5:..Z%!40...:|
00000b70  48 c9 52 79 25 3a 5a 25  21 31 36 3d 34 3a 5a 25  |H.Ry%:Z%!16=4:Z%|
00000b80  21 26 43 3d 5a 25 21 38  3a c8 99 26 34 30 30 45  |!&C=Z%!8:..&400E|
00000b90  37 2c 31 37 2c 5a 25 2c  5a 25 21 32 30 3a c8 99  |7,17,Z%,Z%!20:..|
00000ba0  37 30 2c 5a 25 2b 34 34  b8 41 24 3a f2 56 28 41  |70,Z%+44.A$:.V(A|
00000bb0  24 29 3a f2 50 0d 00 3b  0c 7f 3a e7 ac a6 2d 31  |$):.P..;..:...-1|
00000bc0  8c 0d 00 3c 53 c8 99 37  30 2c 5a 25 2b 34 34 b8  |...<S..70,Z%+44.|
00000bd0  41 24 3a 5a 24 3d 41 24  3a c8 99 38 2c 35 2c 5a  |A$:Z$=A$:..8,5,Z|
00000be0  24 b8 57 79 25 2c 2c 65  25 2c 6f 25 2c 78 25 3a  |$.Wy%,,e%,o%,x%:|
00000bf0  e7 57 79 25 3d 32 80 c0  c2 5a 24 2c a9 5a 24 2d  |.Wy%=2...Z$,.Z$-|
00000c00  a9 a4 53 28 5a 24 29 2d  31 29 2c 31 29 3c 3e 22  |..S(Z$)-1),1)<>"|
00000c10  21 22 8c e1 0d 00 3d 77  e7 57 79 25 3d 32 8c 5a  |!"....=w.Wy%=2.Z|
00000c20  24 3d 41 24 2b 22 2e 21  52 75 6e 22 3a c8 99 38  |$=A$+".!Run":..8|
00000c30  2c 35 2c 5a 24 b8 57 79  25 2c 2c 65 25 2c 6f 25  |,5,Z$.Wy%,,e%,o%|
00000c40  2c 78 25 3a e7 28 65 25  80 26 46 46 46 30 30 29  |,x%:.(e%.&FFF00)|
00000c50  3d 26 42 42 43 30 30 8c  5a 25 21 31 36 3d 34 3a  |=&BBC00.Z%!16=4:|
00000c60  5a 25 21 26 43 3d 5a 25  21 38 3a c8 99 26 34 30  |Z%!&C=Z%!8:..&40|
00000c70  30 45 37 2c 31 37 2c 5a  25 2c 5a 25 21 32 30 3a  |0E7,17,Z%,Z%!20:|
00000c80  f2 56 28 5a 24 29 3a f2  50 3a e1 0d 00 3e 3e e7  |.V(Z$):.P:...>>.|
00000c90  57 79 25 3d 30 8c 5a 24  3d 41 24 2b 22 2e 22 2b  |Wy%=0.Z$=A$+"."+|
00000ca0  c2 41 24 2c a9 41 24 2d  a9 a4 53 28 41 24 29 2d  |.A$,.A$-..S(A$)-|
00000cb0  32 29 3a c8 99 38 2c 35  2c 5a 24 b8 57 79 25 2c  |2):..8,5,Z$.Wy%,|
00000cc0  2c 65 25 2c 6f 25 2c 78  25 0d 00 3f 48 e7 28 28  |,e%,o%,x%..?H.((|
00000cd0  65 25 3e 3e 3e 31 36 29  3d 30 84 28 65 25 3e 3e  |e%>>>16)=0.(e%>>|
00000ce0  3e 31 36 29 3d 26 46 46  46 46 84 28 65 25 3e 3e  |>16)=&FFFF.(e%>>|
00000cf0  3e 31 36 29 3d 26 46 46  29 80 28 65 25 80 26 46  |>16)=&FF).(e%.&F|
00000d00  46 46 46 29 3c 26 38 30  30 30 80 57 79 25 3d 31  |FFF)<&8000.Wy%=1|
00000d10  8c 0d 00 40 35 5a 25 21  31 36 3d 34 3a 5a 25 21  |...@5Z%!16=4:Z%!|
00000d20  26 43 3d 5a 25 21 38 3a  c8 99 26 34 30 30 45 37  |&C=Z%!8:..&400E7|
00000d30  2c 31 37 2c 5a 25 2c 5a  25 21 32 30 3a f2 4e 28  |,17,Z%,Z%!20:.N(|
00000d40  5a 24 29 3a f2 50 0d 00  41 05 cd 0d 00 42 05 cd  |Z$):.P..A....B..|
00000d50  0d 00 43 05 cb 0d 00 44  0b c9 26 34 30 30 43 31  |..C....D..&400C1|
00000d60  0d 00 45 07 cb 3a e1 0d  00 46 0f dd f2 79 79 3a  |..E..:...F...yy:|
00000d70  c8 8e 21 5a 25 ca 0d 00  47 1a c9 6d 25 3a e7 5a  |..!Z%...G..m%:.Z|
00000d80  25 21 32 34 3d 26 44 80  5a 25 21 34 3d 31 36 8c  |%!24=&D.Z%!4=16.|
00000d90  0d 00 48 1e c8 99 26 34  30 30 43 45 2c 2c 5a 25  |..H...&400CE,,Z%|
00000da0  3a f2 47 28 bb 24 28 5a  25 21 32 38 29 29 0d 00  |:.G(.$(Z%!28))..|
00000db0  49 14 cc 3a c8 99 26 34  30 30 44 43 2c 5a 25 21  |I..:..&400DC,Z%!|
00000dc0  32 34 0d 00 4a 05 cd 0d  00 4b 1c c9 64 25 2c 67  |24..J....K..d%,g|
00000dd0  25 3a e7 5a 25 21 34 3d  31 80 5a 25 21 32 34 3d  |%:.Z%!4=1.Z%!24=|
00000de0  26 44 8c 0d 00 4c 3c 21  5a 3d 21 5a 25 3a 5a 21  |&D...L<!Z=!Z%:Z!|
00000df0  34 3d 31 3a c8 99 26 34  30 30 43 45 2c 2c 5a 3a  |4=1:..&400CE,,Z:|
00000e00  e7 21 5a 25 3d 64 25 8c  f2 61 28 24 28 5a 21 32  |.!Z%=d%..a($(Z!2|
00000e10  38 29 29 8b f2 5f 28 24  28 5a 21 32 38 29 29 0d  |8)).._($(Z!28)).|
00000e20  00 4d 0f c8 99 26 34 30  30 44 34 2c 2d 31 0d 00  |.M...&400D4,-1..|
00000e30  4e 14 cc 3a c8 99 26 34  30 30 44 43 2c 5a 25 21  |N..:..&400DC,Z%!|
00000e40  32 34 0d 00 4f 05 cd 0d  00 50 07 cb 3a e1 0d 00  |24..O....P..:...|
00000e50  51 40 dd f2 76 79 3a 6b  25 3d 5a 25 21 30 3a 70  |Q@..vy:k%=Z%!0:p|
00000e60  25 3d 5a 25 21 34 3a 6e  25 3d 5a 25 21 38 3a 62  |%=Z%!4:n%=Z%!8:b|
00000e70  25 3d 5a 25 21 26 43 3a  55 79 25 3d 5a 25 21 31  |%=Z%!&C:Uy%=Z%!1|
00000e80  36 3a e7 62 25 3d 6d 25  8c f2 77 79 3a e1 0d 00  |6:.b%=m%..wy:...|
00000e90  52 0b e7 62 25 3d 2d 32  8c 0d 00 53 1f e7 6e 25  |R..b%=-2...S..n%|
00000ea0  3d 32 8c f2 4a 28 72 79  25 2c 6b 25 2d 36 34 2c  |=2..J(ry%,k%-64,|
00000eb0  39 36 2b 37 2a 34 34 29  0d 00 54 0a e7 6e 25 3d  |96+7*44)..T..n%=|
00000ec0  31 8c 0d 00 55 06 f2 6d  0d 00 56 0c cd 3a e7 6e  |1...U..m..V..:.n|
00000ed0  25 3d 34 8c 0d 00 57 0f  e7 a6 2d 31 84 a6 2d 32  |%=4...W...-1..-2|
00000ee0  8c f2 49 0d 00 58 06 f2  50 0d 00 59 05 cd 0d 00  |..I..X..P..Y....|
00000ef0  5a 26 cd 3a e7 55 79 25  3d 33 80 28 62 25 3d 64  |Z&.:.Uy%=3.(b%=d|
00000f00  25 84 62 25 3d 67 25 29  8c c8 99 26 34 30 30 44  |%.b%=g%)...&400D|
00000f10  34 2c 2d 31 0d 00 5b 25  e7 28 62 25 3d 64 25 84  |4,-1..[%.(b%=d%.|
00000f20  62 25 3d 67 25 29 80 55  79 25 3d 32 80 28 6e 25  |b%=g%).Uy%=2.(n%|
00000f30  3d 31 84 6e 25 3d 34 29  8c 0d 00 5c 3a 21 5a 3d  |=1.n%=4)...\:!Z=|
00000f40  62 25 3a 5a 21 34 3d 31  3a c8 99 26 34 30 30 43  |b%:Z!4=1:..&400C|
00000f50  45 2c 2c 5a 3a e7 62 25  3d 64 25 8c f2 61 28 24  |E,,Z:.b%=d%..a($|
00000f60  28 5a 21 32 38 29 29 8b  f2 5f 28 24 28 5a 21 32  |(Z!28)).._($(Z!2|
00000f70  38 29 29 0d 00 5d 16 e7  6e 25 3c 3e 31 8c c8 99  |8))..]..n%<>1...|
00000f80  26 34 30 30 44 34 2c 2d  31 0d 00 5e 13 cd 3a e7  |&400D4,-1..^..:.|
00000f90  62 25 3d 64 25 80 55 79  25 3d 30 8c 0d 00 5f 96  |b%=d%.Uy%=0..._.|
00000fa0  54 79 25 3d a3 3a 21 4c  3d 64 25 3a c8 99 26 34  |Ty%=.:!L=d%:..&4|
00000fb0  30 30 43 43 2c 2c 4c 3a  21 5a 3d 64 25 3a 5a 21  |00CC,,L:!Z=d%:Z!|
00000fc0  34 3d 30 3a c8 99 26 34  30 30 43 45 2c 2c 5a 3a  |4=0:..&400CE,,Z:|
00000fd0  4a 21 30 3d 30 3a 4a 21  38 3d 4c 21 34 2b 5a 21  |J!0=0:J!8=L!4+Z!|
00000fe0  38 3a 4a 21 26 43 3d 4c  21 31 36 2b 5a 21 26 43  |8:J!&C=L!16+Z!&C|
00000ff0  3a 4a 21 31 36 3d 4c 21  34 2b 5a 21 31 36 3a 4a  |:J!16=L!4+Z!16:J|
00001000  21 32 30 3d 4c 21 31 36  2b 5a 21 32 30 3a c8 99  |!20=L!16+Z!20:..|
00001010  36 2c 26 41 31 2c 32 38  b8 2c 2c 76 79 25 3a e7  |6,&A1,28.,,vy%:.|
00001020  65 79 25 3e 32 39 39 80  28 76 79 25 80 32 29 3d  |ey%>299.(vy%.2)=|
00001030  32 8c 0d 00 60 0f 4a 21  34 3d 37 3a 4a 79 25 3d  |2...`.J!4=7:Jy%=|
00001040  b9 0d 00 61 11 cc 3a 4a  21 34 3d 35 3a 4a 79 25  |...a..:J!4=5:Jy%|
00001050  3d a3 0d 00 62 5e cd 3a  4a 21 32 34 3d 2d 26 36  |=...b^.:J!24=-&6|
00001060  34 3a 4a 21 32 38 3d 2d  26 36 34 3a 4a 21 33 32  |4:J!28=-&64:J!32|
00001070  3d 26 37 35 33 30 3a 4a  21 33 36 3d 26 37 35 33  |=&7530:J!36=&753|
00001080  30 3a e7 4a 79 25 8c c8  99 26 34 32 34 30 30 2c  |0:.Jy%...&42400,|
00001090  26 43 35 2c 31 2c 22 66  69 6c 65 5f 42 42 43 22  |&C5,1,"file_BBC"|
000010a0  2c 4a 2b 38 8b c8 99 26  34 30 30 44 30 2c 2c 4a  |,J+8...&400D0,,J|
000010b0  0d 00 63 13 cd 3a e7 62  25 3d 67 25 80 55 79 25  |..c..:.b%=g%.Uy%|
000010c0  3d 30 8c 0d 00 64 96 54  79 25 3d b9 3a 21 48 3d  |=0...d.Ty%=.:!H=|
000010d0  67 25 3a c8 99 26 34 30  30 43 43 2c 2c 48 3a 21  |g%:..&400CC,,H:!|
000010e0  5a 3d 67 25 3a 5a 21 34  3d 30 3a c8 99 26 34 30  |Z=g%:Z!4=0:..&40|
000010f0  30 43 45 2c 2c 5a 3a 4a  21 30 3d 30 3a 4a 21 38  |0CE,,Z:J!0=0:J!8|
00001100  3d 48 21 34 2b 5a 21 38  3a 4a 21 26 43 3d 48 21  |=H!4+Z!8:J!&C=H!|
00001110  31 36 2b 5a 21 26 43 3a  4a 21 31 36 3d 48 21 34  |16+Z!&C:J!16=H!4|
00001120  2b 5a 21 31 36 3a 4a 21  32 30 3d 48 21 31 36 2b  |+Z!16:J!20=H!16+|
00001130  5a 21 32 30 3a c8 99 36  2c 26 41 31 2c 32 38 b8  |Z!20:..6,&A1,28.|
00001140  2c 2c 76 79 25 3a e7 65  79 25 3e 32 39 39 80 28  |,,vy%:.ey%>299.(|
00001150  76 79 25 80 32 29 3d 32  8c 0d 00 65 0f 4a 21 34  |vy%.2)=2...e.J!4|
00001160  3d 37 3a 4a 79 25 3d b9  0d 00 66 11 cc 3a 4a 21  |=7:Jy%=...f..:J!|
00001170  34 3d 35 3a 4a 79 25 3d  a3 0d 00 67 5e cd 3a 4a  |4=5:Jy%=...g^.:J|
00001180  21 32 34 3d 2d 26 36 34  3a 4a 21 32 38 3d 2d 26  |!24=-&64:J!28=-&|
00001190  36 34 3a 4a 21 33 32 3d  26 37 35 33 30 3a 4a 21  |64:J!32=&7530:J!|
000011a0  33 36 3d 26 37 35 33 30  3a e7 4a 79 25 8c c8 99  |36=&7530:.Jy%...|
000011b0  26 34 32 34 30 30 2c 26  43 35 2c 31 2c 22 66 69  |&42400,&C5,1,"fi|
000011c0  6c 65 5f 46 46 39 22 2c  4a 2b 38 8b c8 99 26 34  |le_FF9",J+8...&4|
000011d0  30 30 44 30 2c 2c 4a 0d  00 68 07 cd 3a e1 0d 00  |00D0,,J..h..:...|
000011e0  69 a0 dd f2 4b 79 3a ea  50 25 3a f2 42 28 72 79  |i...Ky:.P%:.B(ry|
000011f0  25 2c 22 36 35 30 32 45  6d 22 2c a9 22 53 69 6e  |%,"6502Em",."Sin|
00001200  67 6c 65 20 54 61 73 6b  20 22 2a 31 36 2b 26 43  |gle Task "*16+&C|
00001210  29 3a f2 46 28 30 2c 64  79 25 2c 26 37 30 30 30  |):.F(0,dy%,&7000|
00001220  30 30 31 2c 22 49 6e 66  6f 22 29 3a f2 46 28 30  |001,"Info"):.F(0|
00001230  2c 6b 79 25 2c 26 37 30  30 30 30 30 31 2c 22 52  |,ky%,&7000001,"R|
00001240  4f 4d 73 22 29 3a f2 46  28 30 2c 6d 79 25 2c 26  |OMs"):.F(0,my%,&|
00001250  37 30 30 30 30 30 31 2c  22 4d 69 73 63 22 29 3a  |7000001,"Misc"):|
00001260  f2 46 28 30 2c 64 25 2c  26 37 30 30 30 30 30 31  |.F(0,d%,&7000001|
00001270  2c 22 53 61 76 65 22 29  3a e7 55 3d 30 8c 0d 00  |,"Save"):.U=0...|
00001280  6a 25 f2 46 28 30 2c 67  25 2c 26 37 30 30 30 30  |j%.F(0,g%,&70000|
00001290  30 31 84 28 32 5e 32 32  29 2c 22 53 70 72 69 74  |01.(2^22),"Sprit|
000012a0  65 22 29 0d 00 6b 30 cc  3a f2 46 28 30 2c 67 25  |e")..k0.:.F(0,g%|
000012b0  2c 26 37 30 30 30 30 30  31 84 2d 28 32 5e 32 32  |,&7000001.-(2^22|
000012c0  29 2a 28 55 21 34 3d 30  29 2c 22 53 70 72 69 74  |)*(U!4=0),"Sprit|
000012d0  65 22 29 0d 00 6c 82 cd  3a f2 46 28 30 2c 2d 31  |e")..l..:.F(0,-1|
000012e0  2c 26 37 30 30 30 30 30  31 2c 22 43 6f 6e 66 69  |,&7000001,"Confi|
000012f0  67 2e 2e 2e 22 29 3a f2  46 28 26 38 30 2c 2d 31  |g..."):.F(&80,-1|
00001300  2c 26 37 30 30 30 30 30  31 2c 22 51 75 69 74 22  |,&7000001,"Quit"|
00001310  29 3a 5a 21 30 3d 30 3a  5a 21 34 3d 30 3a 5a 21  |):Z!0=0:Z!4=0:Z!|
00001320  38 3d 30 3a c8 99 33 35  2c 22 36 35 30 32 45 6d  |8=0:..35,"6502Em|
00001330  24 4b 65 79 6d 61 70 22  2c 5a 2c 26 46 46 b8 2c  |$Keymap",Z,&FF.,|
00001340  42 24 3a 4b 79 25 3d a4  48 28 42 24 29 3a e7 68  |B$:Ky%=.H(B$):.h|
00001350  25 3c 3e 30 8c 0d 00 6d  55 f2 42 28 56 79 25 2c  |%<>0...mU.B(Vy%,|
00001360  22 4b 65 79 6d 61 70 22  2c 26 43 2a 31 36 2b 26  |"Keymap",&C*16+&|
00001370  43 29 3a e3 49 25 3d 31  b8 68 25 3a f2 46 28 2d  |C):.I%=1.h%:.F(-|
00001380  26 38 30 2a 28 49 25 3d  68 25 29 2d 28 4b 79 25  |&80*(I%=h%)-(Ky%|
00001390  3d 49 25 29 2c 2d 31 2c  26 37 30 30 30 30 30 31  |=I%),-1,&7000001|
000013a0  2c 53 24 28 49 25 29 29  3a ed 0d 00 6e 0d cd 3a  |,S$(I%)):...n..:|
000013b0  e7 76 25 3c 3e 30 8c 0d  00 6f 68 f2 42 28 71 79  |.v%<>0...oh.B(qy|
000013c0  25 2c 22 50 61 74 63 68  65 73 22 2c 26 43 2a 31  |%,"Patches",&C*1|
000013d0  36 2b 26 43 29 3a e3 49  25 3d 31 b8 76 25 3a f2  |6+&C):.I%=1.v%:.|
000013e0  46 28 2d 32 2a 28 49 25  3d 76 25 29 2c 2d 31 2c  |F(-2*(I%=v%),-1,|
000013f0  26 37 30 30 30 30 30 31  2c 4d 24 28 49 25 29 29  |&7000001,M$(I%))|
00001400  3a ed 3a f2 46 28 26 38  30 2c 2d 31 2c 26 37 30  |:.:.F(&80,-1,&70|
00001410  30 30 30 30 31 2c 22 28  6e 6f 6e 65 29 22 29 0d  |00001,"(none)").|
00001420  00 70 f2 cd 3a f2 42 28  77 79 25 2c 22 53 70 65  |.p..:.B(wy%,"Spe|
00001430  65 64 22 2c 36 2a 31 36  2b 26 43 29 3a e3 49 25  |ed",6*16+&C):.I%|
00001440  3d 30 b8 41 79 25 3a f2  46 28 2d 26 38 30 2a 28  |=0.Ay%:.F(-&80*(|
00001450  49 25 3d 41 79 25 29 2c  2d 31 2c 26 37 30 30 30  |I%=Ay%),-1,&7000|
00001460  30 30 31 2c 46 24 28 49  25 29 29 3a ed 3a f2 42  |001,F$(I%)):.:.B|
00001470  28 6b 79 25 2c 22 50 72  6f 74 65 63 74 65 64 3f  |(ky%,"Protected?|
00001480  22 2c 26 43 2a 31 36 2b  26 43 29 3a e3 49 25 3d  |",&C*16+&C):.I%=|
00001490  26 46 b8 30 88 2d 31 3a  f2 46 28 2d 28 3f 28 52  |&F.0.-1:.F(-(?(R|
000014a0  4f 4d 52 41 4d 2b 49 25  29 3c 3e 30 29 2d 26 38  |OMRAM+I%)<>0)-&8|
000014b0  30 2a 28 49 25 3d 30 29  2c 2d 31 2c 26 37 30 30  |0*(I%=0),-1,&700|
000014c0  30 30 30 31 2c a4 51 28  49 25 29 29 3a ed 3a f2  |0001,.Q(I%)):.:.|
000014d0  42 28 6d 79 25 2c 22 4d  69 73 63 22 2c a9 22 44  |B(my%,"Misc",."D|
000014e0  69 73 61 62 6c 65 20 54  61 70 65 20 22 2a 31 36  |isable Tape "*16|
000014f0  2b 26 43 29 3a f2 46 28  30 2c 2d 31 2c 26 37 30  |+&C):.F(0,-1,&70|
00001500  30 30 30 30 31 2c 22 52  65 61 64 20 43 53 44 22  |00001,"Read CSD"|
00001510  29 0d 00 71 29 f2 46 28  30 2c 2d 31 2c 26 37 30  |)..q).F(0,-1,&70|
00001520  30 30 30 30 31 2c 22 52  65 73 65 74 22 29 3a e7  |00001,"Reset"):.|
00001530  61 25 3d 30 84 61 25 3d  34 8c 0d 00 72 24 f2 46  |a%=0.a%=4...r$.F|
00001540  28 30 2c 2d 31 2c 26 37  30 30 30 30 30 31 2c 22  |(0,-1,&7000001,"|
00001550  44 69 73 61 62 6c 65 20  54 61 70 65 22 29 0d 00  |Disable Tape")..|
00001560  73 2b cc 3a f2 46 28 30  2c 2d 31 2c 26 37 30 30  |s+.:.F(0,-1,&700|
00001570  30 30 30 31 84 32 5e 32  32 2c 22 44 69 73 61 62  |0001.2^22,"Disab|
00001580  6c 65 20 54 61 70 65 22  29 0d 00 74 f6 cd 3a f2  |le Tape")..t..:.|
00001590  46 28 26 38 30 2c 2d 31  2c 26 37 30 30 30 30 30  |F(&80,-1,&700000|
000015a0  31 2c 22 4e 6f 20 4a 6f  79 73 74 69 63 6b 22 29  |1,"No Joystick")|
000015b0  3a f2 42 28 61 79 25 2c  22 4d 61 63 68 69 6e 65  |:.B(ay%,"Machine|
000015c0  22 2c a9 22 4d 61 73 74  65 72 20 31 32 38 20 22  |",."Master 128 "|
000015d0  2a 31 36 2b 26 43 29 3a  f2 46 28 30 2c 2d 31 2c  |*16+&C):.F(0,-1,|
000015e0  26 37 30 30 30 30 30 31  84 2d 28 32 5e 32 32 29  |&7000001.-(2^22)|
000015f0  2a 28 5a 25 28 30 29 3d  30 29 2c 41 24 28 30 29  |*(Z%(0)=0),A$(0)|
00001600  29 3a f2 46 28 30 2c 2d  31 2c 26 37 30 30 30 30  |):.F(0,-1,&70000|
00001610  30 31 84 2d 28 32 5e 32  32 29 2a 28 5a 25 28 31  |01.-(2^22)*(Z%(1|
00001620  29 3d 30 29 2c 41 24 28  31 29 29 3a f2 46 28 30  |)=0),A$(1)):.F(0|
00001630  2c 2d 31 2c 26 37 30 30  30 30 30 31 84 2d 28 32  |,-1,&7000001.-(2|
00001640  5e 32 32 29 2a 28 5a 25  28 32 29 3d 30 29 2c 41  |^22)*(Z%(2)=0),A|
00001650  24 28 32 29 29 3a f2 46  28 30 2c 2d 31 2c 26 37  |$(2)):.F(0,-1,&7|
00001660  30 30 30 30 30 31 84 2d  28 32 5e 32 32 29 2a 28  |000001.-(2^22)*(|
00001670  5a 25 28 33 29 3d 30 29  2c 41 24 28 33 29 29 0d  |Z%(3)=0),A$(3)).|
00001680  00 75 31 f2 46 28 26 38  30 2c 2d 31 2c 26 37 30  |.u1.F(&80,-1,&70|
00001690  30 30 30 30 31 84 2d 28  32 5e 32 32 29 2a 28 5a  |00001.-(2^22)*(Z|
000016a0  25 28 34 29 3d 30 29 2c  41 24 28 34 29 29 3a e1  |%(4)=0),A$(4)):.|
000016b0  0d 00 76 65 dd f2 42 28  41 25 2c 51 24 2c 47 25  |..ve..B(A%,Q$,G%|
000016c0  29 3a 50 25 3d 41 25 3a  24 50 25 3d 51 24 2b bd  |):P%=A%:$P%=Q$+.|
000016d0  26 44 3a 50 25 3f 26 43  3d 37 3a 50 25 3f 26 44  |&D:P%?&C=7:P%?&D|
000016e0  3d 32 3a 50 25 3f 26 45  3d 37 3a 50 25 3f 26 46  |=2:P%?&E=7:P%?&F|
000016f0  3d 30 3a 50 25 21 31 36  3d 47 25 3a 50 25 21 32  |=0:P%!16=G%:P%!2|
00001700  30 3d 34 34 3a 50 25 21  32 34 3d 30 3a 50 25 2b  |0=44:P%!24=0:P%+|
00001710  3d 32 38 3a e1 0d 00 77  45 dd f2 46 28 41 25 2c  |=28:...wE..F(A%,|
00001720  42 25 2c 43 25 2c 53 24  29 3a 50 25 21 30 3d 41  |B%,C%,S$):P%!0=A|
00001730  25 3a 50 25 21 34 3d 42  25 3a 50 25 21 38 3d 43  |%:P%!4=B%:P%!8=C|
00001740  25 3a 24 28 50 25 2b 26  43 29 3d 53 24 2b bd 26  |%:$(P%+&C)=S$+.&|
00001750  44 3a 50 25 2b 3d 32 34  3a e1 0d 00 78 0f dd f2  |D:P%+=24:...x...|
00001760  44 79 3a c8 8e 6e 79 25  ca 0d 00 79 0c c9 72 79  |Dy:..ny%...y..ry|
00001770  25 3a f2 4f 79 0d 00 7a  23 c9 61 79 25 3a e7 21  |%:.Oy..z#.ay%:.!|
00001780  5a 25 3c 3e 2d 31 80 21  5a 25 3c 3e 61 25 8c 61  |Z%<>-1.!Z%<>a%.a|
00001790  25 3d 21 5a 25 3a f2 55  0d 00 7b 1f c9 56 79 25  |%=!Z%:.U..{..Vy%|
000017a0  3a e7 21 5a 25 3c 3e 2d  31 8c f2 52 28 53 24 28  |:.!Z%<>-1..R(S$(|
000017b0  21 5a 25 2b 31 29 29 0d  00 7c 12 c9 71 79 25 3a  |!Z%+1))..|..qy%:|
000017c0  e7 21 5a 25 3e 3d 76 25  8c 0d 00 7d 18 79 25 3d  |.!Z%>=v%...}.y%=|
000017d0  30 3a f2 57 28 26 45 2c  22 28 6e 6f 6e 65 29 22  |0:.W(&E,"(none)"|
000017e0  29 0d 00 7e 1c cc 3a e7  79 25 3c 3e 21 5a 25 2b  |)..~..:.y%<>!Z%+|
000017f0  31 8c 79 25 3d 21 5a 25  2b 31 3a f2 4f 0d 00 7f  |1.y%=!Z%+1:.O...|
00001800  05 cd 0d 00 80 24 c9 77  79 25 3a f2 47 28 bb 28  |.....$.wy%:.G(.(|
00001810  c0 46 24 28 21 5a 25 29  2c a9 46 24 28 21 5a 25  |.F$(!Z%),.F$(!Z%|
00001820  29 2d 31 29 29 29 0d 00  81 2a cb 3a c8 99 26 34  |)-1)))...*.:..&4|
00001830  30 30 43 46 2c 2c 5a 25  3a e7 28 5a 25 21 38 80  |00CF,,Z%:.(Z%!8.|
00001840  31 29 3e 30 8c f2 4a 28  6e 79 25 2c 30 2c 30 29  |1)>0..J(ny%,0,0)|
00001850  0d 00 82 05 e1 0d 00 83  0f dd f2 4f 79 3a c8 8e  |...........Oy:..|
00001860  21 5a 25 ca 0d 00 84 06  c9 30 0d 00 85 09 c9 35  |!Z%......0.....5|
00001870  3a f2 6d 0d 00 86 10 c9  31 3a e7 5a 25 21 34 3e  |:.m.....1:.Z%!4>|
00001880  2d 31 8c 0d 00 87 2b 53  25 3d 26 46 2d 28 5a 25  |-1....+S%=&F-(Z%|
00001890  21 34 80 26 46 29 3a e7  a4 4e 28 53 25 29 84 3f  |!4.&F):..N(S%).?|
000018a0  28 52 4f 4d 52 41 4d 2b  53 25 29 3d 32 8c 0d 00  |(ROMRAM+S%)=2...|
000018b0  88 3e e7 3f 28 52 4f 4d  52 41 4d 2b 53 25 29 3d  |.>.?(ROMRAM+S%)=|
000018c0  32 8c 3f 28 52 4f 4d 52  41 4d 2b 53 25 29 3d 30  |2.?(ROMRAM+S%)=0|
000018d0  8b 3f 28 52 4f 4d 52 41  4d 2b 53 25 29 3d 31 2d  |.?(ROMRAM+S%)=1-|
000018e0  3f 28 52 4f 4d 52 41 4d  2b 53 25 29 0d 00 89 14  |?(ROMRAM+S%)....|
000018f0  cc 3a 3f 28 52 4f 4d 52  41 4d 2b 53 25 29 3d 32  |.:?(ROMRAM+S%)=2|
00001900  0d 00 8a 05 cd 0d 00 8b  05 cd 0d 00 8c 10 c9 32  |...............2|
00001910  3a e7 5a 25 21 34 3e 2d  31 8c 0d 00 8d 0b c8 8e  |:.Z%!4>-1.......|
00001920  5a 25 21 34 ca 0d 00 8e  09 c9 30 3a f2 49 0d 00  |Z%!4......0:.I..|
00001930  8f 0c c9 31 3a f2 44 28  32 29 0d 00 90 09 c9 32  |...1:.D(2).....2|
00001940  3a f2 77 0d 00 91 0c c9  33 3a 62 79 25 3d a3 0d  |:.w.....3:by%=..|
00001950  00 92 05 cb 0d 00 93 05  cd 0d 00 94 06 c9 33 0d  |..............3.|
00001960  00 95 06 c9 34 0d 00 96  07 7f f2 58 0d 00 97 07  |....4......X....|
00001970  cb 3a e1 0d 00 98 16 dd  f2 50 79 3a e7 4a 79 25  |.:.......Py:.Jy%|
00001980  8c c8 99 26 34 32 34 30  31 0d 00 99 1a 58 24 3d  |...&42401....X$=|
00001990  22 22 3a e7 54 79 25 8c  21 4a 3d 67 25 8b 21 4a  |"":.Ty%.!J=g%.!J|
000019a0  3d 64 25 0d 00 9a 3a 4a  21 34 3d 31 3a c8 99 26  |=d%...:J!4=1:..&|
000019b0  34 30 30 43 45 2c 2c 4a  3a 50 25 3d 4a 21 32 38  |400CE,,J:P%=J!28|
000019c0  2d 31 3a f5 50 25 2b 3d  31 3a e7 3f 50 25 3c 3e  |-1:.P%+=1:.?P%<>|
000019d0  26 44 8c 58 24 3d 58 24  2b bd 3f 50 25 0d 00 9b  |&D.X$=X$+.?P%...|
000019e0  18 e7 3f 50 25 3d 34 36  84 3f 50 25 3d 35 38 8c  |..?P%=46.?P%=58.|
000019f0  58 24 3d 22 22 0d 00 9c  39 fd 3f 50 25 3d 26 44  |X$=""...9.?P%=&D|
00001a00  3a c8 99 26 34 30 30 43  46 2c 2c 5a 25 3a e7 5a  |:..&400CF,,Z%:.Z|
00001a10  25 21 26 43 3c 3e 64 25  80 5a 25 21 26 43 3c 3e  |%!&C<>d%.Z%!&C<>|
00001a20  67 25 8c c8 99 26 34 30  30 44 34 2c 2d 31 0d 00  |g%...&400D4,-1..|
00001a30  9d 39 5a 25 21 32 30 3d  5a 25 21 26 43 3a 5a 25  |.9Z%!20=Z%!&C:Z%|
00001a40  21 32 34 3d 5a 25 21 31  36 3a 5a 25 21 32 38 3d  |!24=Z%!16:Z%!28=|
00001a50  5a 25 21 30 3a 5a 25 21  33 32 3d 5a 25 21 34 3a  |Z%!0:Z%!32=Z%!4:|
00001a60  e7 54 79 25 3d a3 8c 0d  00 9e 19 5a 25 21 33 36  |.Ty%=......Z%!36|
00001a70  3d 36 35 36 36 37 3a 5a  25 21 34 30 3d 52 79 25  |=65667:Z%!40=Ry%|
00001a80  0d 00 9f 1e cc 3a 5a 25  21 33 36 3d 38 30 2a 26  |.....:Z%!36=80*&|
00001a90  34 30 30 3a 5a 25 21 34  30 3d 26 46 46 39 0d 00  |400:Z%!40=&FF9..|
00001aa0  a0 5c cd 3a 5a 25 21 26  43 3d 30 3a 5a 25 21 31  |.\.:Z%!&C=0:Z%!1|
00001ab0  36 3d 31 3a 24 28 5a 25  2b 34 34 29 3d 58 24 2b  |6=1:$(Z%+44)=X$+|
00001ac0  bd 30 3a 5a 25 21 30 3d  28 34 38 2b a9 58 24 29  |.0:Z%!0=(48+.X$)|
00001ad0  80 35 30 38 3a c8 99 26  36 30 30 45 37 2c 31 37  |.508:..&600E7,17|
00001ae0  2c 5a 25 2c 5a 25 21 32  30 2c 5a 25 21 32 34 3a  |,Z%,Z%!20,Z%!24:|
00001af0  4a 5f 25 3d 5a 25 21 38  3a e1 0d 00 a1 39 dd a4  |J_%=Z%!8:....9..|
00001b00  53 28 41 24 29 3a ea 49  25 3a 49 25 3d a9 41 24  |S(A$):.I%:I%=.A$|
00001b10  2b 31 3a f5 49 25 2d 3d  31 3a fd c1 41 24 2c 49  |+1:.I%-=1:..A$,I|
00001b20  25 2c 31 29 3d 22 2e 22  3a 3d c0 41 24 2c 49 25  |%,1)=".":=.A$,I%|
00001b30  2d 31 29 0d 00 a2 0c dd  f2 53 79 3a ee 85 87 0d  |-1)......Sy:....|
00001b40  00 a3 13 e7 a4 47 28 f6  24 2c b9 29 8c f2 58 8b  |.....G(.$,.)..X.|
00001b50  f2 4b 0d 00 a4 05 e1 0d  00 a5 16 dd f2 4d 79 28  |.K...........My(|
00001b60  4d 25 29 3a ea 85 3a ee  85 ea f2 53 79 0d 00 a6  |M%):..:....Sy...|
00001b70  18 e7 6a 25 3c 3e 30 8c  c8 99 26 32 30 30 30 44  |..j%<>0...&2000D|
00001b80  2c 30 2c 6a 25 0d 00 a7  22 c8 99 26 36 30 30 45  |,0,j%..."..&600E|
00001b90  33 2c 4d 25 3a c8 99 26  36 43 34 38 42 3a e7 67  |3,M%:..&6C48B:.g|
00001ba0  79 25 3d b9 8c f2 71 0d  00 a8 13 e7 a4 47 28 f6  |y%=...q......G(.|
00001bb0  24 2c b9 29 8c f2 58 8b  f2 4b 0d 00 a9 05 e1 0d  |$,.)..X..K......|
00001bc0  00 aa 17 dd a4 47 28 78  24 2c 45 25 29 3a ea 41  |.....G(x$,E%):.A|
00001bd0  25 3a e7 45 25 8c 0d 00  ab 3c c8 99 26 36 30 30  |%:.E%....<..&600|
00001be0  44 46 2c 22 20 20 20 20  49 6e 74 65 72 6e 61 6c  |DF,"    Internal|
00001bf0  20 65 72 72 6f 72 20 22  2b c3 9e 2b 22 3a 20 22  | error "+..+": "|
00001c00  2b 78 24 2c 33 2c 22 36  35 30 32 45 6d 22 b8 2c  |+x$,3,"6502Em".,|
00001c10  41 25 0d 00 ac 26 cc c8  99 26 36 30 30 44 46 2c  |A%...&...&600DF,|
00001c20  22 20 20 20 20 22 2b 78  24 2c 31 2c 22 36 35 30  |"    "+x$,1,"650|
00001c30  32 45 6d 22 b8 2c 41 25  0d 00 ad 09 cd 3a 3d 41  |2Em".,A%.....:=A|
00001c40  25 0d 00 ae 26 dd a4 4c  3a c8 99 26 43 2c 36 2c  |%...&..L:..&C,6,|
00001c50  2c 5a 3a 5a 3f 28 5a 3f  31 2b 32 29 3d 26 44 3a  |,Z:Z?(Z?1+2)=&D:|
00001c60  3d 24 28 5a 2b 32 29 0d  00 af 73 dd f2 49 3a ea  |=$(Z+2)...s..I:.|
00001c70  85 3a ee 85 ea 3a f7 85  3a 57 24 3d 22 41 44 46  |.:...:..:W$="ADF|
00001c80  53 3a 22 3a 46 24 3d 22  22 3a 4d 24 3d 22 24 22  |S:":F$="":M$="$"|
00001c90  3a 50 24 3d 22 22 3a c8  99 26 36 30 30 44 46 2c  |:P$="":..&600DF,|
00001ca0  22 20 20 20 20 45 72 72  6f 72 20 69 6e 20 72 65  |"    Error in re|
00001cb0  61 64 69 6e 67 20 63 75  72 72 65 6e 74 20 64 69  |ading current di|
00001cc0  72 65 63 74 6f 72 79 3a  20 22 2b f6 24 2c 31 2c  |rectory: "+.$,1,|
00001cd0  22 36 35 30 32 45 6d 22  3a e1 0d 00 b0 5d e3 49  |"6502Em":....].I|
00001ce0  25 3d 30 b8 31 3a c8 99  39 b8 70 79 25 3a c8 99  |%=0.1:..9.py%:..|
00001cf0  34 31 2c 33 33 2c 70 79  25 2c c4 32 30 2c 22 20  |41,33,py%,.20," |
00001d00  22 29 2c 32 30 b8 2c 2c  57 24 3a e7 57 24 3c 3e  |"),20.,,W$:.W$<>|
00001d10  22 22 8c 57 24 3d 57 24  2b 22 3a 22 3a 49 25 3d  |"".W$=W$+":":I%=|
00001d20  31 8b ff 22 44 49 52 20  3c 36 35 30 32 45 6d 24  |1.."DIR <6502Em$|
00001d30  44 69 72 3e 2e 5e 22 0d  00 b1 4d ed 3a c8 99 26  |Dir>.^"...M.:..&|
00001d40  43 2c 35 2c 2c 5a 3a 5a  3f 28 3f 5a 2b 31 29 3d  |C,5,,Z:Z?(?Z+1)=|
00001d50  26 44 3a 46 24 3d 24 28  5a 2b 31 29 3a e7 46 24  |&D:F$=$(Z+1):.F$|
00001d60  3d bd 33 34 2b 22 55 6e  73 65 74 22 2b bd 33 34  |=.34+"Unset"+.34|
00001d70  8c 46 24 3d 22 22 8b 46  24 3d 22 3a 22 2b 46 24  |.F$="".F$=":"+F$|
00001d80  2b 22 2e 22 0d 00 b2 13  4d 24 3d a4 4c 3a e7 4d  |+"."....M$=.L:.M|
00001d90  24 3c 3e 22 24 22 8c 0d  00 b3 4a f5 3a c8 99 34  |$<>"$"....J.:..4|
00001da0  31 2c 30 2c 22 5e 22 3a  73 24 3d a4 4c 3a 4d 24  |1,0,"^":s$=.L:M$|
00001db0  3d 73 24 2b 22 2e 22 2b  4d 24 3a fd 73 24 3d 22  |=s$+"."+M$:.s$="|
00001dc0  24 22 3a e7 c2 4d 24 2c  37 29 3d bd 33 34 2b 22  |$":..M$,7)=.34+"|
00001dd0  55 6e 73 65 74 22 2b bd  33 34 8c 4d 24 3d 22 24  |Unset"+.34.M$="$|
00001de0  22 0d 00 b4 0d c8 99 34  31 2c 30 2c 4d 24 0d 00  |"......41,0,M$..|
00001df0  b5 0d cd 3a 50 24 3d 22  22 3a e1 0d 00 b6 f7 dd  |...:P$="":......|
00001e00  f2 49 79 3a 21 26 39 37  30 30 30 3d 2d 26 35 46  |.Iy:!&97000=-&5F|
00001e10  35 46 35 46 36 30 3a 21  26 39 37 30 30 34 3d 2d  |5F5F60:!&97004=-|
00001e20  26 35 46 35 46 35 46 36  30 3a 21 26 39 37 30 30  |&5F5F5F60:!&9700|
00001e30  38 3d 2d 26 35 46 35 46  35 46 36 30 3a 21 26 39  |8=-&5F5F5F60:!&9|
00001e40  37 30 30 43 3d 2d 26 35  46 35 46 35 46 36 30 3a  |700C=-&5F5F5F60:|
00001e50  62 79 25 3d b9 3a de 41  25 28 37 29 3a de 4a 24  |by%=.:.A%(7):.J$|
00001e60  28 26 37 43 29 2c 50 24  28 26 37 38 29 2c 43 24  |(&7C),P$(&78),C$|
00001e70  28 33 2c 26 44 29 3a f7  3a e3 49 25 3d 30 b8 33  |(3,&D):.:.I%=0.3|
00001e80  3a e3 4a 25 3d 26 44 b8  30 88 2d 31 3a f3 43 24  |:.J%=&D.0.-1:.C$|
00001e90  28 49 25 2c 4a 25 29 3a  ed 3a ed 3a e3 49 25 3d  |(I%,J%):.:.:.I%=|
00001ea0  30 b8 37 3a e3 4a 25 3d  30 b8 26 43 3a f3 4a 24  |0.7:.J%=0.&C:.J$|
00001eb0  28 49 25 2a 31 36 2b 4a  25 29 3a ed 3a ed 3a e3  |(I%*16+J%):.:.:.|
00001ec0  49 25 3d 30 b8 26 37 38  3a f3 50 24 28 49 25 29  |I%=0.&78:.P$(I%)|
00001ed0  3a ed 3a f2 59 79 3a f2  6e 79 28 22 3c 36 35 30  |:.:.Yy:.ny("<650|
00001ee0  32 45 6d 24 52 65 73 3e  2e 45 6c 6b 4b 65 79 73  |2Em$Res>.ElkKeys|
00001ef0  22 29 0d 00 b7 ed c8 99  26 34 43 34 38 36 3a de  |")......&4C486:.|
00001f00  41 24 28 34 29 2c 5a 25  28 34 29 2c 5a 24 28 34  |A$(4),Z%(4),Z$(4|
00001f10  29 3a 78 79 25 3d a3 3a  5f 3d a3 3a 49 79 25 3d  |):xy%=.:_=.:Iy%=|
00001f20  30 3a 41 24 28 30 29 3d  22 42 42 43 20 42 22 3a  |0:A$(0)="BBC B":|
00001f30  5a 24 28 30 29 3d 22 4f  53 a0 31 2e 32 22 3a 41  |Z$(0)="OS.1.2":A|
00001f40  24 28 31 29 3d 22 4d 61  73 74 65 72 20 31 32 38  |$(1)="Master 128|
00001f50  22 3a 5a 24 28 31 29 3d  22 4f 53 a0 33 2e 32 22  |":Z$(1)="OS.3.2"|
00001f60  3a 41 24 28 32 29 3d 22  20 20 20 4d 4f 53 20 33  |:A$(2)="   MOS 3|
00001f70  2e 35 22 3a 5a 24 28 32  29 3d 22 4f 53 a0 33 2e  |.5":Z$(2)="OS.3.|
00001f80  35 22 3a 41 24 28 33 29  3d 22 43 6f 6d 70 61 63  |5":A$(3)="Compac|
00001f90  74 22 3a 5a 24 28 33 29  3d 22 4f 53 a0 35 2e 31  |t":Z$(3)="OS.5.1|
00001fa0  22 3a 41 24 28 34 29 3d  22 45 6c 65 63 74 72 6f  |":A$(4)="Electro|
00001fb0  6e 22 3a 5a 24 28 34 29  3d 22 4f 53 a0 31 2e 30  |n":Z$(4)="OS.1.0|
00001fc0  22 3a 41 3d 8e 22 3c 36  35 30 32 45 6d 24 52 6f  |":A=."<6502Em$Ro|
00001fd0  6d 50 61 74 68 3e 45 6c  65 63 74 72 6f 6e 22 0d  |mPath>Electron".|
00001fe0  00 b8 1d e7 41 3c 3e 30  8c d9 23 41 3a 5a 25 28  |....A<>0..#A:Z%(|
00001ff0  34 29 3d b9 8b 5a 25 28  34 29 3d a3 0d 00 b9 38  |4)=..Z%(4)=....8|
00002000  41 3d 8e 22 3c 36 35 30  32 45 6d 24 52 6f 6d 50  |A=."<6502Em$RomP|
00002010  61 74 68 3e 4f 53 31 2c  32 22 3a e7 41 3c 3e 30  |ath>OS1,2":.A<>0|
00002020  8c d9 23 41 3a 5a 25 28  30 29 3d b9 8b 5a 25 28  |..#A:Z%(0)=..Z%(|
00002030  30 29 3d a3 0d 00 ba 12  e7 5a 25 28 30 29 3d a3  |0)=......Z%(0)=.|
00002040  8c 49 79 25 3d 31 0d 00  bb 3d 41 3d 8e 22 3c 36  |.Iy%=1...=A=."<6|
00002050  35 30 32 45 6d 24 52 6f  6d 50 61 74 68 3e 4d 31  |502Em$RomPath>M1|
00002060  32 38 2e 4f 53 33 2c 32  22 3a e7 41 3c 3e 30 8c  |28.OS3,2":.A<>0.|
00002070  d9 23 41 3a 5a 25 28 31  29 3d b9 8b 5a 25 28 31  |.#A:Z%(1)=..Z%(1|
00002080  29 3d a3 0d 00 bc 1a e7  5a 25 28 30 29 3d a3 80  |)=......Z%(0)=..|
00002090  5a 25 28 31 29 3d a3 8c  49 79 25 3d 32 0d 00 bd  |Z%(1)=..Iy%=2...|
000020a0  3d 41 3d 8e 22 3c 36 35  30 32 45 6d 24 52 6f 6d  |=A=."<6502Em$Rom|
000020b0  50 61 74 68 3e 4d 31 32  38 2e 4f 53 33 2c 35 22  |Path>M128.OS3,5"|
000020c0  3a e7 41 3c 3e 30 8c d9  23 41 3a 5a 25 28 32 29  |:.A<>0..#A:Z%(2)|
000020d0  3d b9 8b 5a 25 28 32 29  3d a3 0d 00 be 22 e7 5a  |=..Z%(2)=....".Z|
000020e0  25 28 30 29 3d a3 80 5a  25 28 31 29 3d a3 80 5a  |%(0)=..Z%(1)=..Z|
000020f0  25 28 32 29 3d a3 8c 49  79 25 3d 33 0d 00 bf 40  |%(2)=..Iy%=3...@|
00002100  41 3d 8e 22 3c 36 35 30  32 45 6d 24 52 6f 6d 50  |A=."<6502Em$RomP|
00002110  61 74 68 3e 43 6f 6d 70  61 63 74 2e 4f 53 35 2c  |ath>Compact.OS5,|
00002120  31 22 3a e7 41 3c 3e 30  8c d9 23 41 3a 5a 25 28  |1":.A<>0..#A:Z%(|
00002130  33 29 3d b9 8b 5a 25 28  33 29 3d a3 0d 00 c0 4f  |3)=..Z%(3)=....O|
00002140  e7 5a 25 28 30 29 3d a3  80 5a 25 28 31 29 3d a3  |.Z%(0)=..Z%(1)=.|
00002150  80 5a 25 28 32 29 3d a3  80 5a 25 28 33 29 3d a3  |.Z%(2)=..Z%(3)=.|
00002160  8c 85 30 2c 22 4e 6f 20  52 4f 4d 73 20 66 6f 75  |..0,"No ROMs fou|
00002170  6e 64 20 2d 20 70 6c 65  61 73 65 20 72 75 6e 20  |nd - please run |
00002180  21 52 69 70 36 35 48 6f  73 74 22 0d 00 c1 7a de  |!Rip65Host"...z.|
00002190  4d 25 28 36 33 29 3a f2  63 79 3a de 53 25 28 26  |M%(63):.cy:.S%(&|
000021a0  46 46 29 3a f2 68 79 3a  71 24 3d 22 22 3a 63 79  |FF):.hy:q$="":cy|
000021b0  25 3d 30 3a 4e 79 25 3d  2d 31 3a f2 49 3a 59 24  |%=0:Ny%=-1:.I:Y$|
000021c0  3d 57 24 3a 5f 24 3d 46  24 3a 61 24 3d 4d 24 3a  |=W$:_$=F$:a$=M$:|
000021d0  4b 24 3d 50 24 3a f2 74  79 3a f2 75 79 3a e7 59  |K$=P$:.ty:.uy:.Y|
000021e0  8c ff 22 49 63 6f 6e 53  70 72 69 74 65 73 20 3c  |.."IconSprites <|
000021f0  36 35 30 32 45 6d 24 52  65 73 3e 2e 66 69 6c 65  |6502Em$Res>.file|
00002200  5f 78 78 78 22 0d 00 c2  0c 2a 46 58 32 32 39 2c  |_xxx"....*FX229,|
00002210  31 0d 00 c3 0a 79 25 3d  30 3a e1 0d 00 c4 25 dd  |1....y%=0:....%.|
00002220  f2 43 3a 3f 28 52 4f 4d  52 41 4d 2b 5f 25 29 3d  |.C:?(ROMRAM+_%)=|
00002230  30 3a 5f 25 3d 28 5f 25  2d 31 29 80 26 46 3a e1  |0:_%=(_%-1).&F:.|
00002240  0d 00 c5 42 dd f2 73 79  28 53 25 29 3a ea 49 25  |...B..sy(S%):.I%|
00002250  3a 3f 28 52 4f 4d 52 41  4d 2b 53 25 29 3d 32 3a  |:?(ROMRAM+S%)=2:|
00002260  e3 49 25 3d 30 b8 26 46  46 88 31 36 3a 49 25 21  |.I%=0.&FF.16:I%!|
00002270  28 72 6f 6d 73 2b 55 25  2a 53 25 29 3d 30 3a ed  |(roms+U%*S%)=0:.|
00002280  3a e1 0d 00 c6 29 dd f2  4d 28 64 24 2c 52 25 29  |:....)..M(d$,R%)|
00002290  3a ea 51 25 3a e7 61 25  3d 34 80 28 5f 25 3d 39  |:.Q%:.a%=4.(_%=9|
000022a0  84 5f 25 3d 38 29 8c 5f  25 3d 37 0d 00 c7 67 53  |._%=8)._%=7...gS|
000022b0  25 3d 5f 25 3a 5f 25 3d  28 5f 25 2d 31 29 80 26  |%=_%:_%=(_%-1).&|
000022c0  46 3a c8 99 26 44 2c 37  38 2c 64 24 2c 22 36 35  |F:..&D,78,d$,"65|
000022d0  30 32 45 6d 24 52 4f 4d  50 61 74 68 22 b8 51 25  |02Em$ROMPath".Q%|
000022e0  3a c8 99 26 43 2c 33 2c  51 25 2c 72 6f 6d 73 2b  |:..&C,3,Q%,roms+|
000022f0  55 25 2a 53 25 2c 26 34  30 30 30 3a d9 23 51 25  |U%*S%,&4000:.#Q%|
00002300  3a 3f 28 52 4f 4d 52 41  4d 2b 53 25 29 3d 52 25  |:?(ROMRAM+S%)=R%|
00002310  3a e1 0d 00 c8 28 dd f2  56 79 3a ea 53 25 3a e3  |:....(..Vy:.S%:.|
00002320  53 25 3d 30 b8 26 46 3a  3f 28 52 4f 4d 52 41 4d  |S%=0.&F:?(ROMRAM|
00002330  2b 53 25 29 3d 32 3a ed  3a e1 0d 00 c9 24 dd a4  |+S%)=2:.:....$..|
00002340  51 28 53 25 29 3a e7 3f  28 52 4f 4d 52 41 4d 2b  |Q(S%):.?(ROMRAM+|
00002350  53 25 29 3d 32 8c 3d 22  45 6d 70 74 79 22 0d 00  |S%)=2.="Empty"..|
00002360  ca 25 ea 54 24 2c 49 25  3a 49 25 3d 72 6f 6d 73  |.%.T$,I%:I%=roms|
00002370  3f 28 55 25 2a 53 25 2b  37 29 3a e7 a4 4e 28 53  |?(U%*S%+7):..N(S|
00002380  25 29 8c 0d 00 cb 3e e3  49 25 3d 30 b8 26 42 3a  |%)....>.I%=0.&B:|
00002390  54 24 3d 54 24 2b bd 72  6f 6d 73 3f 28 55 25 2a  |T$=T$+.roms?(U%*|
000023a0  53 25 2b 39 2b 49 25 29  3a e7 72 6f 6d 73 3f 28  |S%+9+I%):.roms?(|
000023b0  55 25 2a 53 25 2b 26 42  29 3d 30 8c 49 25 3d 26  |U%*S%+&B)=0.I%=&|
000023c0  42 0d 00 cc 05 ed 0d 00  cd 14 cc 3a 54 24 3d 22  |B..........:T$="|
000023d0  52 41 4d 20 22 2b c3 7e  53 25 0d 00 ce 09 cd 3a  |RAM "+.~S%.....:|
000023e0  3d 54 24 0d 00 cf 67 dd  a4 4e 28 53 25 29 3a ea  |=T$...g..N(S%):.|
000023f0  49 25 3a 49 25 3d 72 6f  6d 73 3f 28 55 25 2a 53  |I%:I%=roms?(U%*S|
00002400  25 2b 37 29 3a e7 72 6f  6d 73 3f 28 55 25 2a 53  |%+7):.roms?(U%*S|
00002410  25 2b 49 25 2b 31 29 3d  34 30 80 72 6f 6d 73 3f  |%+I%+1)=40.roms?|
00002420  28 55 25 2a 53 25 2b 49  25 2b 32 29 3d 36 37 80  |(U%*S%+I%+2)=67.|
00002430  72 6f 6d 73 3f 28 55 25  2a 53 25 2b 49 25 2b 33  |roms?(U%*S%+I%+3|
00002440  29 3d 34 31 8c 3d b9 8b  3d a3 0d 00 d0 06 3d 30  |)=41.=..=.....=0|
00002450  0d 00 d1 10 dd f2 44 28  41 25 29 3a e7 5f 8c e1  |......D(A%):._..|
00002460  0d 00 d2 22 e7 41 25 3e  3d 32 8c f2 59 28 6d 65  |...".A%>=2..Y(me|
00002470  6d 6f 72 79 2c 6d 65 6d  6f 72 79 2b 26 38 30 30  |mory,memory+&800|
00002480  30 29 0d 00 d3 0b e7 41  25 3e 3d 31 8c 0d 00 d4  |0).....A%>=1....|
00002490  6f 3f 56 79 3d 26 38 30  3a 3f 62 3d 26 38 30 3a  |o?Vy=&80:?b=&80:|
000024a0  3f 6f 3d 32 3a 3f 44 79  3d 30 3a 3f 70 3d 30 3a  |?o=2:?Dy=0:?p=0:|
000024b0  21 6a 3d 26 46 30 3c 3c  32 34 3a 21 79 3d 26 46  |!j=&F0<<24:!y=&F|
000024c0  30 3c 3c 32 34 3a 21 6d  3d 26 46 30 3c 3c 32 34  |0<<24:!m=&F0<<24|
000024d0  3a 21 69 3d 26 46 30 3c  3c 32 34 3a ff 22 4c 4f  |:!i=&F0<<24:."LO|
000024e0  41 44 20 3c 36 35 30 32  45 6d 24 52 65 73 3e 2e  |AD <6502Em$Res>.|
000024f0  53 48 45 49 4c 41 20 22  2b c3 7e 51 0d 00 d5 5d  |SHEILA "+.~Q...]|
00002500  cd 3a 3f 57 79 3d 33 34  3a 51 21 26 43 30 3d 26  |.:?Wy=34:Q!&C0=&|
00002510  37 30 37 30 42 37 41 42  3a f2 63 3a 3f 61 3d 30  |7070B7AB:.c:?a=0|
00002520  3a f2 68 3a 3f 50 3d 34  3a 51 3f 33 32 3d 32 3a  |:.h:?P=4:Q?32=2:|
00002530  21 4e 3d 28 6d 65 6d 6f  72 79 3f 26 46 46 46 43  |!N=(memory?&FFFC|
00002540  2b 28 6d 65 6d 6f 72 79  3f 26 46 46 46 44 3c 3c  |+(memory?&FFFD<<|
00002550  38 29 29 3c 3c 31 36 3a  e1 0d 00 d6 3b dd f2 50  |8))<<16:....;..P|
00002560  3a ea 85 3a c8 99 26 32  30 30 33 39 2c 2c 22 49  |:..:..&20039,,"I|
00002570  6d 61 67 65 44 46 53 5f  56 65 72 73 69 6f 6e 22  |mageDFS_Version"|
00002580  b8 3b 53 3a e7 28 53 80  31 29 3d 30 8c 44 3d b9  |.;S:.(S.1)=0.D=.|
00002590  8b 44 3d a3 0d 00 d7 23  e7 44 c8 99 22 49 6d 61  |.D=....#.D.."Ima|
000025a0  67 65 44 46 53 5f 45 6e  74 65 72 69 6e 67 45 6d  |geDFS_EnteringEm|
000025b0  75 6c 61 74 6f 72 22 0d  00 d8 08 2a 46 58 39 0d  |ulator"....*FX9.|
000025c0  00 d9 2f 73 3d eb 3a 3f  65 3d 26 46 46 3a c8 99  |../s=.:?e=&FF:..|
000025d0  26 34 30 36 43 32 3a f2  76 3a c8 99 26 34 43 34  |&406C2:.v:..&4C4|
000025e0  38 41 2c 73 3a ee 85 ea  f2 4d 79 28 73 29 0d 00  |8A,s:....My(s)..|
000025f0  da e9 21 7a 3d 28 28 61  25 3c 3e 34 29 80 28 79  |..!z=((a%<>4).(y|
00002600  25 3e 30 29 80 31 29 2b  28 62 79 25 80 32 29 2b  |%>0).1)+(by%.2)+|
00002610  28 60 25 80 34 29 2b 28  42 79 25 80 38 29 2b 28  |(`%.4)+(By%.8)+(|
00002620  ac 75 25 80 31 36 29 3a  21 68 3d 71 2a 26 31 45  |.u%.16):!h=q*&1E|
00002630  38 34 38 30 2f 35 30 30  30 3a ef 32 33 2c 31 36  |8480/5000:.23,16|
00002640  2c 31 2c 26 46 45 7c 3a  c8 99 36 2c 26 43 41 2c  |,1,&FE|:..6,&CA,|
00002650  30 2c 26 46 46 b8 2c 53  79 3a c8 99 36 2c 26 46  |0,&FF.,Sy:..6,&F|
00002660  37 2c 30 2c 26 46 46 b8  2c 55 79 3a c8 99 36 2c  |7,0,&FF.,Uy:..6,|
00002670  26 46 37 2c 26 46 46 2c  30 3a c8 99 36 2c 26 36  |&F7,&FF,0:..6,&6|
00002680  41 2c 26 38 31 3a c8 97  fb 33 2c 26 46 46 2c 26  |A,&81:...3,&FF,&|
00002690  46 46 2c 26 46 46 3a c8  99 36 2c 26 43 41 2c 6d  |FF,&FF:..6,&CA,m|
000026a0  65 6d 6f 72 79 3f 36 30  32 80 31 36 2c 26 45 46  |emory?602.16,&EF|
000026b0  3a c8 99 36 2c 26 37 36  3a 6a 25 3d 8e 56 24 3a  |:..6,&76:j%=.V$:|
000026c0  3f 48 79 3d 6a 25 3a f5  3a e7 4e 79 25 3e 3d 30  |?Hy=j%:.:.Ny%>=0|
000026d0  63 79 25 3d 4e 79 25 0d  00 db 21 e7 73 79 25 8c  |cy%=Ny%...!.sy%.|
000026e0  f2 7a 28 26 46 46 45 30  2c 49 29 8b f2 7a 28 26  |.z(&FFE0,I)..z(&|
000026f0  46 46 45 30 2c 33 35 29  0d 00 dc 58 3f 43 79 3d  |FFE0,35)...X?Cy=|
00002700  31 2b 44 79 25 3a 3f 4a  79 3d 31 2b 5a 79 25 3a  |1+Dy%:?Jy=1+Zy%:|
00002710  f2 63 3a 41 25 3d 72 6f  6d 73 3a 44 25 3d 6d 65  |.c:A%=roms:D%=me|
00002720  6d 6f 72 79 3a c8 99 26  36 30 30 46 41 2c 30 3a  |mory:..&600FA,0:|
00002730  50 79 25 3d ba 28 58 2b  21 42 79 29 3a c8 99 26  |Py%=.(X+!By):..&|
00002740  36 30 30 46 41 2c 31 3a  f2 68 3a 2a 46 58 31 35  |600FA,1:.h:*FX15|
00002750  0d 00 dd 0a c8 8e 50 79  25 ca 0d 00 de 0d c9 26  |......Py%......&|
00002760  42 3a e7 a6 2d 32 8c 0d  00 df 1e e7 6a 25 3c 3e  |B:..-2......j%<>|
00002770  30 8c cf 23 6a 25 3d a4  52 28 30 2c 8f 23 6a 25  |0..#j%=.R(0,.#j%|
00002780  2d 33 35 30 29 0d 00 e0  16 cc 3a e7 a6 2d 31 8c  |-350).....:..-1.|
00002790  6c 25 2b 3d 35 8b 6c 25  2d 3d 35 0d 00 e1 12 e7  |l%+=5.l%-=5.....|
000027a0  6c 25 3e 26 37 46 8c 6c  25 3d 26 37 46 0d 00 e2  |l%>&7F.l%=&7F...|
000027b0  0e e7 6c 25 3c 30 8c 6c  25 3d 30 0d 00 e3 09 f2  |..l%<0.l%=0.....|
000027c0  71 3a f2 76 0d 00 e4 05  cd 0d 00 e5 10 c9 26 41  |q:.v..........&A|
000027d0  3a db 3a 3f 65 3d 26 46  46 0d 00 e6 10 c9 36 36  |:.:?e=&FF.....66|
000027e0  3a f1 7e 21 4e 3a 41 3d  a5 0d 00 e7 18 c9 26 46  |:.~!N:A=......&F|
000027f0  3a e7 a6 2d 33 8c f2 44  28 32 29 8b f2 44 28 30  |:..-3..D(2)..D(0|
00002800  29 0d 00 e8 26 c9 33 3a  e7 a4 58 28 21 4e 3e 3e  |)...&.3:..X(!N>>|
00002810  3e 31 36 29 3d 33 80 28  21 4e 3e 3e 3e 31 36 29  |>16)=3.(!N>>>16)|
00002820  3c 26 43 30 30 30 8c 0d  00 e9 16 c8 8e a4 58 28  |<&C000........X(|
00002830  28 21 4e 3e 3e 3e 31 36  29 2b 31 29 ca 0d 00 ea  |(!N>>>16)+1)....|
00002840  09 c9 30 3a f2 6b 0d 00  eb 09 c9 31 3a f2 75 0d  |..0:.k.....1:.u.|
00002850  00 ec 09 c9 32 3a f2 66  0d 00 ed 09 c9 33 3a f2  |....2:.f.....3:.|
00002860  73 0d 00 ee 09 c9 34 3a  f2 6a 0d 00 ef 09 c9 35  |s.....4:.j.....5|
00002870  3a f2 74 0d 00 f0 09 c9  36 3a f2 6e 0d 00 f1 0a  |:.t.....6:.n....|
00002880  c9 36 34 3a f2 67 0d 00  f2 0b c9 36 35 3a f2 55  |.64:.g.....65:.U|
00002890  79 0d 00 f3 0c c9 26 38  30 3a f2 61 79 0d 00 f4  |y.....&80:.ay...|
000028a0  0c c9 26 38 31 3a f2 47  79 0d 00 f5 0c c9 26 38  |..&81:.Gy.....&8|
000028b0  32 3a f2 71 79 0d 00 f6  0c c9 26 38 33 3a f2 43  |2:.qy.....&83:.C|
000028c0  79 0d 00 f7 0c c9 26 44  30 3a f2 64 79 0d 00 f8  |y.....&D0:.dy...|
000028d0  0b c9 26 44 31 3a f2 6f  0d 00 f9 0c c9 26 44 32  |..&D1:.o.....&D2|
000028e0  3a f2 57 79 0d 00 fa 0b  c9 26 44 33 3a f2 70 0d  |:.Wy.....&D3:.p.|
000028f0  00 fb 15 c9 26 44 35 3a  f2 4e 79 3a 46 3f 33 3d  |....&D5:.Ny:F?3=|
00002900  30 3a f2 41 0d 00 fc 0c  c9 26 44 36 3a f2 54 79  |0:.A.....&D6:.Ty|
00002910  0d 00 fd 12 c9 26 46 46  3a 50 79 25 3d 26 43 3a  |.....&FF:Py%=&C:|
00002920  f2 41 0d 00 fe 05 cb 0d  00 ff 12 cc 3a c8 8e 28  |.A..........:..(|
00002930  21 4e 3e 3e 3e 31 36 29  ca 0d 01 00 13 c9 26 46  |!N>>>16)......&F|
00002940  46 46 31 2c 26 45 37 45  42 3a f2 67 0d 01 01 0e  |FF1,&E7EB:.g....|
00002950  c9 26 46 46 45 30 3a f2  72 79 0d 01 02 0d c9 26  |.&FFE0:.ry.....&|
00002960  46 46 44 37 3a f2 6a 0d  01 03 0d c9 26 46 46 44  |FFD7:.j.....&FFD|
00002970  34 3a f2 73 0d 01 04 0d  c9 26 46 46 44 44 3a f2  |4:.s.....&FFDD:.|
00002980  6e 0d 01 05 0d c9 26 46  46 44 41 3a f2 74 0d 01  |n.....&FFDA:.t..|
00002990  06 0d c9 26 46 46 44 31  3a f2 66 0d 01 07 0d c9  |...&FFD1:.f.....|
000029a0  26 46 46 43 45 3a f2 75  0d 01 08 13 c9 26 46 31  |&FFCE:.u.....&F1|
000029b0  42 31 2c 26 46 30 45 38  3a f2 6b 0d 01 09 05 cb  |B1,&F0E8:.k.....|
000029c0  0d 01 0a 05 cd 0d 01 0b  60 c9 37 3a 47 3d 28 43  |........`.7:G=(C|
000029d0  3f 33 29 3c 3c 38 3a 47  2b 3d 57 3f 33 3a 47 2b  |?3)<<8:G+=W?3:G+|
000029e0  3d 6d 65 6d 6f 72 79 3a  e3 49 25 3d 30 b8 37 3a  |=memory:.I%=0.7:|
000029f0  41 25 28 49 25 29 3d 47  21 28 39 2b 49 25 2a 34  |A%(I%)=G!(9+I%*4|
00002a00  29 3a e7 28 47 3f 34 80  28 31 3c 3c 49 25 29 29  |):.(G?4.(1<<I%))|
00002a10  3c 3e 30 8c 41 25 28 49  25 29 3d a4 41 28 41 25  |<>0.A%(I%)=.A(A%|
00002a20  28 49 25 29 29 0d 01 0c  2e ed 3a 43 79 25 3d 47  |(I%)).....:Cy%=G|
00002a30  3f 30 3a 43 79 25 2b 3d  28 47 3f 31 29 3c 3c 38  |?0:Cy%+=(G?1)<<8|
00002a40  3a 43 79 25 2b 3d 28 47  3f 32 29 3c 3c 31 36 3a  |:Cy%+=(G?2)<<16:|
00002a50  e7 44 8c 0d 01 0d 0a c8  8e 43 79 25 ca 0d 01 0e  |.D.......Cy%....|
00002a60  1d c9 26 36 31 31 34 30  3a 42 3d 47 21 39 3a c8  |..&61140:B=G!9:.|
00002a70  8e 6d 65 6d 6f 72 79 3f  42 ca 0d 01 0f 0c c9 30  |.memory?B......0|
00002a80  2c 31 2c 32 2c 33 0d 01  10 12 c9 33 33 3a 6d 65  |,1,2,3.....33:me|
00002a90  6d 6f 72 79 3f 42 3d 30  0d 01 11 12 c9 37 35 3a  |mory?B=0.....75:|
00002aa0  6d 65 6d 6f 72 79 3f 42  3d 31 0d 01 12 13 c9 26  |memory?B=1.....&|
00002ab0  45 30 3a 6d 65 6d 6f 72  79 3f 42 3d 32 0d 01 13  |E0:memory?B=2...|
00002ac0  13 c9 26 45 41 3a 6d 65  6d 6f 72 79 3f 42 3d 33  |..&EA:memory?B=3|
00002ad0  0d 01 14 1d 7f 3a f1 22  44 72 69 76 65 20 22 3b  |.....:."Drive ";|
00002ae0  6d 65 6d 6f 72 79 3f 42  3b 22 20 20 22 0d 01 15  |memory?B;"  "...|
00002af0  27 cb 3a e7 6d 65 6d 6f  72 79 3f 28 42 2b 36 29  |'.:.memory?(B+6)|
00002b00  3d 26 38 30 8c 6d 65 6d  6f 72 79 3f 28 42 2b 36  |=&80.memory?(B+6|
00002b10  29 3d 38 33 0d 01 16 25  e7 6d 65 6d 6f 72 79 3f  |)=83...%.memory?|
00002b20  28 42 2b 36 29 3d 26 41  30 8c 6d 65 6d 6f 72 79  |(B+6)=&A0.memory|
00002b30  3f 28 42 2b 36 29 3d 37  35 0d 01 17 31 e7 6d 65  |?(B+6)=75...1.me|
00002b40  6d 6f 72 79 3f 28 42 2b  26 42 29 3c 3e 30 8c 6d  |mory?(B+&B)<>0.m|
00002b50  65 6d 6f 72 79 3f 28 42  2b 39 29 3d 6d 65 6d 6f  |emory?(B+9)=memo|
00002b60  72 79 3f 28 42 2b 39 29  2b 31 0d 01 18 6b 6d 65  |ry?(B+9)+1...kme|
00002b70  6d 6f 72 79 3f 28 42 2b  39 29 3d 28 6d 65 6d 6f  |mory?(B+9)=(memo|
00002b80  72 79 3f 28 42 2b 39 29  80 33 31 29 84 33 32 3a  |ry?(B+9).31).32:|
00002b90  e7 6d 65 6d 6f 72 79 3f  28 42 2b 36 29 3c 3e 26  |.memory?(B+6)<>&|
00002ba0  38 31 8c c8 99 22 58 49  6d 61 67 65 44 46 53 5f  |81..."XImageDFS_|
00002bb0  4f 53 57 4f 52 44 37 46  22 2c 2c 42 83 32 35 36  |OSWORD7F",,B.256|
00002bc0  2c 42 81 32 35 36 2c 6d  65 6d 6f 72 79 b8 41 25  |,B.256,memory.A%|
00002bd0  28 30 29 3b 53 0d 01 19  0b c9 26 36 31 31 34 31  |(0);S.....&61141|
00002be0  0d 01 1a 0b c9 26 36 31  31 34 32 0d 01 1b 0b c9  |.....&61142.....|
00002bf0  26 36 31 31 34 33 0d 01  1c 74 7f 3a c8 99 28 43  |&61143...t.:..(C|
00002c00  79 25 84 32 5e 31 37 29  2c 41 25 28 30 29 2c 41  |y%.2^17),A%(0),A|
00002c10  25 28 31 29 2c 41 25 28  32 29 2c 41 25 28 33 29  |%(1),A%(2),A%(3)|
00002c20  2c 41 25 28 34 29 2c 41  25 28 35 29 2c 41 25 28  |,A%(4),A%(5),A%(|
00002c30  36 29 2c 41 25 28 37 29  b8 41 25 28 30 29 2c 41  |6),A%(7).A%(0),A|
00002c40  25 28 31 29 2c 41 25 28  32 29 2c 41 25 28 33 29  |%(1),A%(2),A%(3)|
00002c50  2c 41 25 28 34 29 2c 41  25 28 35 29 2c 41 25 28  |,A%(4),A%(5),A%(|
00002c60  36 29 2c 41 25 28 37 29  3b 53 0d 01 1d 05 cb 0d  |6),A%(7);S......|
00002c70  01 1e 74 cc 3a c8 99 28  43 79 25 84 32 5e 31 37  |..t.:..(Cy%.2^17|
00002c80  29 2c 41 25 28 30 29 2c  41 25 28 31 29 2c 41 25  |),A%(0),A%(1),A%|
00002c90  28 32 29 2c 41 25 28 33  29 2c 41 25 28 34 29 2c  |(2),A%(3),A%(4),|
00002ca0  41 25 28 35 29 2c 41 25  28 36 29 2c 41 25 28 37  |A%(5),A%(6),A%(7|
00002cb0  29 b8 41 25 28 30 29 2c  41 25 28 31 29 2c 41 25  |).A%(0),A%(1),A%|
00002cc0  28 32 29 2c 41 25 28 33  29 2c 41 25 28 34 29 2c  |(2),A%(3),A%(4),|
00002cd0  41 25 28 35 29 2c 41 25  28 36 29 2c 41 25 28 37  |A%(5),A%(6),A%(7|
00002ce0  29 3b 53 0d 01 1f 0e cd  3a e7 47 3f 33 3c 3e 30  |);S.....:.G?3<>0|
00002cf0  8c 0d 01 20 36 e3 49 25  3d 30 b8 47 3f 33 2d 31  |... 6.I%=0.G?3-1|
00002d00  3a e7 28 47 3f 35 80 28  31 3c 3c 49 25 29 29 3c  |:.(G?5.(1<<I%))<|
00002d10  3e 30 8c 41 25 28 49 25  29 3d 41 25 28 49 25 29  |>0.A%(I%)=A%(I%)|
00002d20  2d 6d 65 6d 6f 72 79 0d  01 21 17 47 21 28 39 2b  |-memory..!.G!(9+|
00002d30  49 25 2a 34 29 3d 41 25  28 49 25 29 3a ed 0d 01  |I%*4)=A%(I%):...|
00002d40  22 1d cd 3a e7 28 53 80  31 29 3c 3e 30 80 28 43  |"..:.(S.1)<>0.(C|
00002d50  79 25 80 32 5e 31 37 29  3d 30 8c 0d 01 23 0f 41  |y%.2^17)=0...#.A|
00002d60  25 3d 41 25 28 30 29 3a  f2 53 0d 01 24 17 cc 3a  |%=A%(0):.S..$..:|
00002d70  e7 28 53 80 31 29 3c 3e  30 80 47 3f 38 3c 3e 30  |.(S.1)<>0.G?8<>0|
00002d80  8c 0d 01 25 55 4f 3d 47  3f 36 3a 4f 2b 3d 28 47  |...%UO=G?6:O+=(G|
00002d90  3f 37 29 3c 3c 38 3a 4f  2b 3d 6d 65 6d 6f 72 79  |?7)<<8:O+=memory|
00002da0  3a 4a 25 3d a3 3a 4f 3f  30 3d 30 3a e3 49 25 3d  |:J%=.:O?0=0:.I%=|
00002db0  30 b8 47 3f 38 2d 32 3a  4f 3f 28 49 25 2b 31 29  |0.G?8-2:O?(I%+1)|
00002dc0  3d 41 25 28 30 29 3f 49  25 3a e7 4f 3f 49 25 3d  |=A%(0)?I%:.O?I%=|
00002dd0  30 8c 4a 25 3d b9 0d 01  26 17 ed 3a e7 4a 25 3d  |0.J%=...&..:.J%=|
00002de0  a3 8c 4f 3f 28 47 3f 38  2d 31 29 3d 30 0d 01 27  |..O?(G?8-1)=0..'|
00002df0  2f cd 3a 21 4e 3d 21 4e  2b 28 31 3c 3c 31 36 29  |/.:!N=!N+(1<<16)|
00002e00  3a 3f 50 3d 3f 50 80 39  39 3a e7 28 53 80 31 29  |:?P=?P.99:.(S.1)|
00002e10  3c 3e 30 8c 3f 50 3d 3f  50 84 36 34 0d 01 28 15  |<>0.?P=?P.64..(.|
00002e20  e7 28 53 80 32 29 3c 3e  30 8c 3f 50 3d 3f 50 84  |.(S.2)<>0.?P=?P.|
00002e30  31 0d 01 29 15 e7 28 53  80 34 29 3c 3e 30 8c 3f  |1..)..(S.4)<>0.?|
00002e40  50 3d 3f 50 84 32 0d 01  2a 17 e7 28 53 80 38 29  |P=?P.2..*..(S.8)|
00002e50  3c 3e 30 8c 3f 50 3d 3f  50 84 26 38 30 0d 01 2b  |<>0.?P=?P.&80..+|
00002e60  05 cd 0d 01 2c 07 c9 26  43 0d 01 2d 05 7f 0d 01  |....,..&C..-....|
00002e70  2e 22 cb 3a fd 50 79 25  3d 26 43 3a e7 6a 25 3c  |.".:.Py%=&C:.j%<|
00002e80  3e 30 8c c8 99 26 32 30  30 30 44 2c 30 2c 6a 25  |>0...&2000D,0,j%|
00002e90  0d 01 2f 40 c8 99 36 2c  26 43 41 2c 53 79 3a c8  |../@..6,&CA,Sy:.|
00002ea0  99 36 2c 26 46 37 2c 55  79 3a c8 99 36 2c 26 36  |.6,&F7,Uy:..6,&6|
00002eb0  41 2c 31 3a 2a 53 65 74  20 4b 65 79 24 31 31 20  |A,1:*Set Key$11 |
00002ec0  22 3c 36 35 30 32 45 6d  24 4b 65 79 31 31 3e 22  |"<6502Em$Key11>"|
00002ed0  0d 01 30 20 2a 53 65 74  20 4b 65 79 24 31 32 20  |..0 *Set Key$12 |
00002ee0  22 3c 36 35 30 32 45 6d  24 4b 65 79 31 32 3e 22  |"<6502Em$Key12>"|
00002ef0  0d 01 31 16 c8 99 26 34  43 34 38 42 3a f2 71 3a  |..1...&4C48B:.q:|
00002f00  e7 55 3c 3e 30 8c 0d 01  32 59 55 21 30 3d 38 30  |.U<>0...2YU!0=80|
00002f10  2a 26 34 30 30 2b 32 35  36 3a 55 21 38 3d 31 36  |*&400+256:U!8=16|
00002f20  3a c8 99 26 32 30 30 32  45 2c 32 35 36 2b 39 2c  |:..&2002E,256+9,|
00002f30  55 3a c8 99 26 32 30 30  32 45 2c 32 35 36 2b 31  |U:..&2002E,256+1|
00002f40  36 2c 55 2c 22 42 42 43  53 63 72 65 65 6e 22 2c  |6,U,"BBCScreen",|
00002f50  31 2c 30 2c 30 2c 26 34  46 46 2c 26 33 46 46 0d  |1,0,0,&4FF,&3FF.|
00002f60  01 33 18 cd 3a c8 99 26  34 30 30 45 33 2c 73 3a  |.3..:..&400E3,s:|
00002f70  2a 46 58 31 35 2c 30 0d  01 34 22 e7 44 c8 99 22  |*FX15,0..4".D.."|
00002f80  49 6d 61 67 65 44 46 53  5f 4c 65 61 76 69 6e 67  |ImageDFS_Leaving|
00002f90  45 6d 75 6c 61 74 6f 72  22 0d 01 35 05 e1 0d 01  |Emulator"..5....|
00002fa0  36 1d dd a4 52 28 41 25  2c 42 25 29 3a e7 41 25  |6...R(A%,B%):.A%|
00002fb0  3e 42 25 8c 3d 41 25 8b  3d 42 25 0d 01 37 06 3d  |>B%.=A%.=B%..7.=|
00002fc0  30 0d 01 38 f8 dd f2 74  79 3a 46 3d 6d 65 6d 6f  |0..8...ty:F=memo|
00002fd0  72 79 2d 32 35 36 2b 30  3a 46 3d 6d 65 6d 6f 72  |ry-256+0:F=memor|
00002fe0  79 2d 32 35 36 2b 30 3a  57 3d 6d 65 6d 6f 72 79  |y-256+0:W=memory|
00002ff0  2d 32 35 36 2b 34 3a 43  3d 6d 65 6d 6f 72 79 2d  |-256+4:C=memory-|
00003000  32 35 36 2b 38 3a 50 3d  6d 65 6d 6f 72 79 2d 32  |256+8:P=memory-2|
00003010  35 36 2b 26 43 3a 52 3d  6d 65 6d 6f 72 79 2d 32  |56+&C:R=memory-2|
00003020  35 36 2b 31 36 3a 4e 3d  6d 65 6d 6f 72 79 2d 32  |56+16:N=memory-2|
00003030  35 36 2b 32 30 3a 6a 3d  6d 65 6d 6f 72 79 2d 32  |56+20:j=memory-2|
00003040  35 36 2b 33 32 3a 79 3d  6d 65 6d 6f 72 79 2d 32  |56+32:y=memory-2|
00003050  35 36 2b 34 30 3a 6d 3d  6d 65 6d 6f 72 79 2d 32  |56+40:m=memory-2|
00003060  35 36 2b 34 38 3a 69 3d  6d 65 6d 6f 72 79 2d 32  |56+48:i=memory-2|
00003070  35 36 2b 35 36 3a 78 79  3d 6d 65 6d 6f 72 79 2d  |56+56:xy=memory-|
00003080  32 35 36 2b 36 34 3a 77  79 3d 6d 65 6d 6f 72 79  |256+64:wy=memory|
00003090  2d 32 35 36 2b 37 36 3a  56 79 3d 6d 65 6d 6f 72  |-256+76:Vy=memor|
000030a0  79 2d 32 35 36 2b 37 37  3a 5f 79 3d 6d 65 6d 6f  |y-256+77:_y=memo|
000030b0  72 79 2d 32 35 36 2b 37  38 0d 01 39 fd 62 3d 6d  |ry-256+78..9.b=m|
000030c0  65 6d 6f 72 79 2d 32 35  36 2b 37 39 3a 69 79 3d  |emory-256+79:iy=|
000030d0  6d 65 6d 6f 72 79 2d 32  35 36 2b 39 36 3a 43 79  |memory-256+96:Cy|
000030e0  3d 6d 65 6d 6f 72 79 2d  32 35 36 2b 39 32 3a 56  |=memory-256+92:V|
000030f0  3d 6d 65 6d 6f 72 79 2d  32 35 36 2b 39 36 3a 4a  |=memory-256+96:J|
00003100  79 3d 6d 65 6d 6f 72 79  2d 32 35 36 2b 26 41 34  |y=memory-256+&A4|
00003110  3a 52 4f 4d 52 41 4d 3d  6d 65 6d 6f 72 79 2d 32  |:ROMRAM=memory-2|
00003120  35 36 2b 26 36 34 3a 7a  3d 6d 65 6d 6f 72 79 2d  |56+&64:z=memory-|
00003130  32 35 36 2b 26 42 30 3a  21 7a 3d 30 3a 65 3d 6d  |256+&B0:!z=0:e=m|
00003140  65 6d 6f 72 79 2d 32 35  36 2b 26 42 32 3a 57 79  |emory-256+&B2:Wy|
00003150  3d 6d 65 6d 6f 72 79 2d  32 35 36 2b 26 42 33 3a  |=memory-256+&B3:|
00003160  48 79 3d 6d 65 6d 6f 72  79 2d 32 35 36 2b 26 37  |Hy=memory-256+&7|
00003170  35 3a 76 79 3d 6d 65 6d  6f 72 79 2d 32 35 36 2b  |5:vy=memory-256+|
00003180  26 42 34 3a 61 3d 6d 65  6d 6f 72 79 2d 32 35 36  |&B4:a=memory-256|
00003190  2b 26 41 43 3a 70 3d 6d  65 6d 6f 72 79 2d 32 35  |+&AC:p=memory-25|
000031a0  36 2b 26 42 43 3a 6f 3d  6d 65 6d 6f 72 79 2d 32  |6+&BC:o=memory-2|
000031b0  35 36 2b 26 42 44 0d 01  3a ef 44 79 3d 6d 65 6d  |56+&BD..:.Dy=mem|
000031c0  6f 72 79 2d 32 35 36 2b  26 42 45 3a 66 79 3d 6d  |ory-256+&BE:fy=m|
000031d0  65 6d 6f 72 79 2d 32 35  36 2b 26 42 46 3a 68 3d  |emory-256+&BF:h=|
000031e0  6d 65 6d 6f 72 79 2d 32  35 36 2b 26 43 34 3a 50  |memory-256+&C4:P|
000031f0  25 3d 58 3a 5b 4f 50 54  32 3a 2e 65 79 3a 26 30  |%=X:[OPT2:.ey:&0|
00003200  3a 2e 72 79 3a 26 30 3a  2e 63 79 3a 26 30 3a 2e  |:.ry:&0:.cy:&0:.|
00003210  7a 79 3a 26 30 3a 2e 6a  79 3a 26 30 3a 2e 71 79  |zy:&0:.jy:&0:.qy|
00003220  3a 26 30 3a 2e 42 79 3a  26 30 3a 2e 64 79 3a 26  |:&0:.By:&0:.dy:&|
00003230  30 3a 2e 73 79 3a 26 30  3a 2e 46 79 3a 26 30 3a  |0:.sy:&0:.Fy:&0:|
00003240  2e 74 79 3a 26 30 3a 2e  62 79 3a 26 30 3a 2e 79  |.ty:&0:.by:&0:.y|
00003250  79 3a 26 30 3a 2e 4f 79  3a 26 30 3a 2e 68 79 3a  |y:&0:.Oy:&0:.hy:|
00003260  26 30 3a 2e 6c 79 3a 26  30 3a 2e 59 79 3a 26 30  |&0:.ly:&0:.Yy:&0|
00003270  3a 2e 6f 79 3a 26 30 3a  2e 75 79 20 26 30 3a 2e  |:.oy:&0:.uy &0:.|
00003280  67 79 20 26 30 3a 2e 70  79 20 26 30 3a 2e 6e 79  |gy &0:.py &0:.ny|
00003290  20 26 30 3a 2e 6d 79 20  26 30 3a 2e 50 79 20 26  | &0:.my &0:.Py &|
000032a0  30 3a 5d 3a e1 0d 01 3b  55 dd f2 41 3a 52 3f 33  |0:]:...;U..A:R?3|
000032b0  3d 52 3f 33 2b 31 3a 4e  3f 32 3d 6d 65 6d 6f 72  |=R?3+1:N?2=memor|
000032c0  79 3f 28 32 35 36 2b 52  3f 33 29 3a 52 3f 33 3d  |y?(256+R?3):R?3=|
000032d0  52 3f 33 2b 31 3a 4e 3f  33 3d 6d 65 6d 6f 72 79  |R?3+1:N?3=memory|
000032e0  3f 28 32 35 36 2b 52 3f  33 29 3a 21 4e 3d 21 4e  |?(256+R?3):!N=!N|
000032f0  2b 28 31 3c 3c 31 36 29  3a e1 0d 01 3c 25 dd f2  |+(1<<16):...<%..|
00003300  6e 3a 4d 3d 6d 65 6d 6f  72 79 2b 57 3f 33 2b 28  |n:M=memory+W?3+(|
00003310  43 3f 33 29 2a 32 35 36  3a c8 8e 46 3f 33 ca 0d  |C?3)*256:..F?3..|
00003320  01 3d 8a c9 30 3a 63 25  3d 46 3f 33 3a 43 24 3d  |.=..0:c%=F?3:C$=|
00003330  a4 57 28 24 28 a4 41 28  4d 21 30 80 26 46 46 46  |.W($(.A(M!0.&FFF|
00003340  46 29 29 29 3a 57 25 3d  4d 21 32 3a 77 25 3d 4d  |F))):W%=M!2:w%=M|
00003350  21 36 3a 73 25 3d a4 41  28 28 4d 21 26 41 80 26  |!6:s%=.A((M!&A.&|
00003360  46 46 46 46 29 29 3a 71  25 3d a4 41 28 28 4d 21  |FFFF)):q%=.A((M!|
00003370  26 45 80 26 46 46 46 46  29 29 3a c8 99 26 32 30  |&E.&FFFF)):..&20|
00003380  30 30 38 2c 63 25 2c 43  24 2c 57 25 2c 77 25 2c  |008,c%,C$,W%,w%,|
00003390  73 25 2c 71 25 b8 41 25  3b 53 3a e7 28 53 80 31  |s%,q%.A%;S:.(S.1|
000033a0  29 3d 30 8c f2 41 8b f2  53 0d 01 3e 52 c9 35 3a  |)=0..A..S..>R.5:|
000033b0  43 24 3d 24 28 a4 41 28  4d 21 30 80 26 46 46 46  |C$=$(.A(M!0.&FFF|
000033c0  46 29 29 3a c8 99 26 32  30 30 30 38 2c 26 44 2c  |F)):..&20008,&D,|
000033d0  a4 46 28 43 24 29 2c 2c  2c a4 43 28 43 24 29 b8  |.F(C$),,,.C(C$).|
000033e0  41 25 2c 2c 57 25 2c 77  25 2c 73 25 2c 71 25 3b  |A%,,W%,w%,s%,q%;|
000033f0  53 3a e7 28 53 80 31 29  3d 31 8c 0d 01 3f 06 f2  |S:.(S.1)=1...?..|
00003400  53 0d 01 40 2d cc 3a 46  3f 33 3d 41 25 3a 4d 21  |S..@-.:F?3=A%:M!|
00003410  32 3d 57 25 3a 4d 21 36  3d 77 25 3a 4d 21 26 41  |2=W%:M!6=w%:M!&A|
00003420  3d 73 25 3a 4d 21 26 45  3d 71 25 3a f2 41 0d 01  |=s%:M!&E=q%:.A..|
00003430  41 05 cd 0d 01 42 48 c9  36 3a 43 24 3d 24 28 a4  |A....BH.6:C$=$(.|
00003440  41 28 4d 21 30 80 26 46  46 46 46 29 29 3a c8 99  |A(M!0.&FFFF)):..|
00003450  26 32 30 30 30 38 2c 36  2c a4 57 28 43 24 29 b8  |&20008,6,.W(C$).|
00003460  41 25 2c 2c 57 25 2c 77  25 2c 73 25 2c 71 25 3b  |A%,,W%,w%,s%,q%;|
00003470  53 3a e7 28 53 80 31 29  3d 31 8c 0d 01 43 06 f2  |S:.(S.1)=1...C..|
00003480  53 0d 01 44 2d cc 3a 46  3f 33 3d 41 25 3a 4d 21  |S..D-.:F?3=A%:M!|
00003490  32 3d 57 25 3a 4d 21 36  3d 77 25 3a 4d 21 26 41  |2=W%:M!6=w%:M!&A|
000034a0  3d 73 25 3a 4d 21 26 45  3d 71 25 3a f2 41 0d 01  |=s%:M!&E=q%:.A..|
000034b0  45 05 cd 0d 01 46 54 c9  26 46 46 3a 63 25 3d 46  |E....FT.&FF:c%=F|
000034c0  3f 33 3a 43 24 3d 24 28  a4 41 28 4d 21 30 80 26  |?3:C$=$(.A(M!0.&|
000034d0  46 46 46 46 29 29 3a 57  25 3d a4 41 28 4d 21 32  |FFFF)):W%=.A(M!2|
000034e0  80 26 46 46 46 46 29 3a  e7 28 4d 21 32 80 2d 36  |.&FFFF):.(M!2.-6|
000034f0  35 35 33 36 29 3d 2d 26  32 30 30 30 30 8c 57 25  |5536)=-&20000.W%|
00003500  2d 3d 37 37 38 32 34 0d  01 47 47 77 25 3d 4d 3f  |-=77824..GGw%=M?|
00003510  36 3a e7 77 25 3c 3e 30  8c c8 99 26 32 30 30 30  |6:.w%<>0...&2000|
00003520  38 2c 26 44 2c a4 46 28  43 24 29 2c 2c 2c a4 43  |8,&D,.F(C$),,,.C|
00003530  28 43 24 29 b8 2c 2c 57  25 3a 77 25 3d 30 3a 57  |(C$).,,W%:w%=0:W|
00003540  25 3d a4 41 28 57 25 80  26 46 46 46 46 29 0d 01  |%=.A(W%.&FFFF)..|
00003550  48 4b c8 99 26 32 30 30  30 38 2c 26 44 2c a4 46  |HK..&20008,&D,.F|
00003560  28 43 24 29 2c 2c 2c a4  43 28 43 24 29 b8 2c 2c  |(C$),,,.C(C$).,,|
00003570  2c 2c 78 25 3a e7 57 25  2b 78 25 3e 6d 65 6d 6f  |,,x%:.W%+x%>memo|
00003580  72 79 2b 26 38 30 30 30  80 57 25 3c 6d 65 6d 6f  |ry+&8000.W%<memo|
00003590  72 79 2b 26 38 30 30 30  8c 0d 01 49 66 78 25 3d  |ry+&8000...Ifx%=|
000035a0  6d 65 6d 6f 72 79 2b 26  37 46 46 46 2d 57 25 3a  |memory+&7FFF-W%:|
000035b0  c8 99 26 32 30 30 30 44  2c 37 37 2c a4 46 28 43  |..&2000D,77,.F(C|
000035c0  24 29 2c a4 43 28 43 24  29 b8 41 25 3b 53 3a e7  |$),.C(C$).A%;S:.|
000035d0  28 53 80 31 29 3d 30 8c  c8 99 26 32 30 30 30 43  |(S.1)=0...&2000C|
000035e0  2c 34 2c 41 25 2c 57 25  2c 78 25 3a c8 99 26 32  |,4,A%,W%,x%:..&2|
000035f0  30 30 30 44 2c 30 2c 41  25 3a f2 41 8b f2 53 0d  |000D,0,A%:.A..S.|
00003600  01 4a 6a cc 3a c8 99 26  32 30 30 30 38 2c 26 43  |.Jj.:..&20008,&C|
00003610  2c a4 46 28 43 24 29 2c  57 25 2c 30 2c a4 43 28  |,.F(C$),W%,0,.C(|
00003620  43 24 29 b8 41 25 2c 2c  57 25 2c 77 25 2c 73 25  |C$).A%,,W%,w%,s%|
00003630  2c 71 25 3b 53 3a 46 3f  33 3d 41 25 3a 4d 21 32  |,q%;S:F?3=A%:M!2|
00003640  3d 57 25 3a 4d 21 36 3d  77 25 3a 4d 21 26 41 3d  |=W%:M!6=w%:M!&A=|
00003650  73 25 3a 4d 21 26 45 3d  71 25 3a e7 28 53 80 31  |s%:M!&E=q%:.(S.1|
00003660  29 3d 30 8c f2 41 8b f2  53 0d 01 4b 0b cd 3a 46  |)=0..A..S..K..:F|
00003670  3f 33 3d 31 0d 01 4c 18  7f 3a f1 22 4f 53 46 49  |?3=1..L..:."OSFI|
00003680  4c 45 20 22 3b 46 3f 33  3a 41 3d a5 0d 01 4d 07  |LE ";F?3:A=...M.|
00003690  cb 3a e1 0d 01 4e 49 dd  f2 53 3a ea 41 24 3a 41  |.:...NI..S:.A$:A|
000036a0  24 3d 22 22 3a e3 49 25  3d 30 b8 26 46 44 3a 6d  |$="":.I%=0.&FD:m|
000036b0  65 6d 6f 72 79 3f 28 32  35 38 2b 49 25 29 3d 41  |emory?(258+I%)=A|
000036c0  25 3f 28 49 25 2b 34 29  3a e7 41 25 3f 28 49 25  |%?(I%+4):.A%?(I%|
000036d0  2b 34 29 3d 30 8c 49 25  3d 26 46 44 0d 01 4f 2e  |+4)=0.I%=&FD..O.|
000036e0  ed 3a 6d 65 6d 6f 72 79  3f 32 35 36 3d 30 3a 6d  |.:memory?256=0:m|
000036f0  65 6d 6f 72 79 3f 32 35  37 3d 3f 41 25 3a 21 4e  |emory?257=?A%:!N|
00003700  3d 32 35 36 3c 3c 31 36  3a e1 0d 01 50 6a dd f2  |=256<<16:...Pj..|
00003710  5a 28 41 25 2c 41 24 29  3a 41 24 3d 41 24 2b bd  |Z(A%,A$):A$=A$+.|
00003720  30 3a e3 49 25 3d 30 b8  a9 41 24 2d 31 3a 6d 65  |0:.I%=0..A$-1:me|
00003730  6d 6f 72 79 3f 28 32 35  38 2b 49 25 29 3d 97 c1  |mory?(258+I%)=..|
00003740  41 24 2c 49 25 2b 31 2c  31 29 3a ed 3a 6d 65 6d  |A$,I%+1,1):.:mem|
00003750  6f 72 79 3f 32 35 36 3d  30 3a 6d 65 6d 6f 72 79  |ory?256=0:memory|
00003760  3f 32 35 37 3d 41 25 3a  21 4e 3d 32 35 36 3c 3c  |?257=A%:!N=256<<|
00003770  31 36 3a e1 0d 01 51 1c  dd a4 4b 28 41 25 2c 42  |16:...Q...K(A%,B|
00003780  25 29 e7 41 25 3c 42 25  8c 3d 41 25 8b 3d 42 25  |%).A%<B%.=A%.=B%|
00003790  0d 01 52 06 3d 30 0d 01  53 46 dd f2 66 3a 66 25  |..R.=0..SF..f:f%|
000037a0  3d 6d 65 6d 6f 72 79 2b  57 3f 33 2b 28 43 3f 33  |=memory+W?3+(C?3|
000037b0  3c 3c 38 29 3a 50 79 25  3d 3f 66 25 3a 57 25 3d  |<<8):Py%=?f%:W%=|
000037c0  66 25 21 31 3a 77 25 3d  66 25 21 35 3a 73 25 3d  |f%!1:w%=f%!5:s%=|
000037d0  66 25 21 39 3a e7 46 3f  33 3d 39 8c 0d 01 54 4c  |f%!9:.F?3=9...TL|
000037e0  c8 99 26 32 30 30 30 43  2c 46 3f 33 2c 57 24 2b  |..&2000C,F?3,W$+|
000037f0  46 24 2b 4d 24 2b 50 24  2c a4 41 28 57 25 80 26  |F$+M$+P$,.A(W%.&|
00003800  46 46 46 46 29 2c 50 79  25 2c 73 25 2c 77 25 2c  |FFFF),Py%,s%,w%,|
00003810  30 b8 41 25 2c 2c 2c 77  25 2c 73 25 3b 53 3a e7  |0.A%,,,w%,s%;S:.|
00003820  28 53 80 31 29 3d 30 8c  0d 01 55 2f 3f 66 25 3d  |(S.1)=0...U/?f%=|
00003830  77 25 3a 66 25 21 39 3d  73 25 3a e7 28 53 80 32  |w%:f%!9=s%:.(S.2|
00003840  29 3d 30 8c 3f 50 3d 28  3f 50 80 26 46 45 29 8b  |)=0.?P=(?P.&FE).|
00003850  3f 50 3d 3f 50 84 31 0d  01 56 06 f2 41 0d 01 57  |?P=?P.1..V..A..W|
00003860  08 cc 3a f2 53 0d 01 58  05 cd 0d 01 59 50 cc 3a  |..:.S..X....YP.:|
00003870  c8 99 34 31 2c 26 42 2c  57 24 3a c8 99 34 31 2c  |..41,&B,W$:..41,|
00003880  30 2c 46 24 2b 4d 24 2b  50 24 3a e7 28 46 3f 33  |0,F$+M$+P$:.(F?3|
00003890  3d 33 84 46 3f 33 3d 34  29 80 57 25 3c 26 38 30  |=3.F?3=4).W%<&80|
000038a0  30 30 80 57 25 2b 73 25  3e 26 38 30 30 30 8c 73  |00.W%+s%>&8000.s|
000038b0  25 3d 26 38 30 30 30 2d  57 25 0d 01 5a 48 c8 99  |%=&8000-W%..ZH..|
000038c0  26 32 30 30 30 43 2c 46  3f 33 2c 50 79 25 2c a4  |&2000C,F?3,Py%,.|
000038d0  41 28 57 25 80 26 46 46  46 46 29 2c 77 25 2c 73  |A(W%.&FFFF),w%,s|
000038e0  25 b8 41 25 2c 2c 57 25  2c 77 25 2c 73 25 3b 53  |%.A%,,W%,w%,s%;S|
000038f0  3a c8 99 34 31 2c 31 39  3a e7 28 53 80 31 29 3d  |:..41,19:.(S.1)=|
00003900  30 8c 0d 01 5b 3f 66 25  21 31 3d 57 25 2d 6d 65  |0...[?f%!1=W%-me|
00003910  6d 6f 72 79 3a 66 25 21  35 3d 77 25 3a 66 25 21  |mory:f%!5=w%:f%!|
00003920  39 3d 73 25 3a e7 28 53  80 32 29 3d 30 8c 3f 50  |9=s%:.(S.2)=0.?P|
00003930  3d 28 3f 50 80 26 46 45  29 8b 3f 50 3d 3f 50 84  |=(?P.&FE).?P=?P.|
00003940  31 0d 01 5c 06 f2 41 0d  01 5d 08 cc 3a f2 53 0d  |1..\..A..]..:.S.|
00003950  01 5e 05 cd 0d 01 5f 07  cd 3a e1 0d 01 60 0e dd  |.^...._..:...`..|
00003960  f2 74 3a c8 8e 46 3f 33  ca 0d 01 61 0f c9 30 3a  |.t:..F?3...a..0:|
00003970  e7 43 3f 33 3c 3e 30 8c  0d 01 62 3c c8 99 26 32  |.C?3<>0...b<..&2|
00003980  30 30 30 39 2c 46 3f 33  2c 43 3f 33 b8 41 25 2c  |0009,F?3,C?3.A%,|
00003990  2c 4c 25 3b 53 3a e7 28  53 80 31 29 3d 30 8c 6d  |,L%;S:.(S.1)=0.m|
000039a0  65 6d 6f 72 79 21 28 57  3f 33 29 3d 4c 25 3a f2  |emory!(W?3)=L%:.|
000039b0  41 8b f2 53 0d 01 63 0e  cc 3a 46 3f 33 3d 34 3a  |A..S..c..:F?3=4:|
000039c0  f2 41 0d 01 64 05 cd 0d  01 65 38 c9 31 3a c8 99  |.A..d....e8.1:..|
000039d0  26 32 30 30 30 39 2c 46  3f 33 2c 43 3f 33 2c 6d  |&20009,F?3,C?3,m|
000039e0  65 6d 6f 72 79 21 28 57  3f 33 29 b8 41 25 3b 53  |emory!(W?3).A%;S|
000039f0  3a e7 28 53 80 31 29 3d  30 8c f2 41 8b f2 53 0d  |:.(S.1)=0..A..S.|
00003a00  01 66 3f c9 32 3a c8 99  26 32 30 30 30 39 2c 46  |.f?.2:..&20009,F|
00003a10  3f 33 2c 43 3f 33 b8 41  25 2c 2c 4c 25 3b 53 3a  |?3,C?3.A%,,L%;S:|
00003a20  e7 28 53 80 31 29 3d 30  8c 6d 65 6d 6f 72 79 21  |.(S.1)=0.memory!|
00003a30  28 57 3f 33 29 3d 4c 25  3a f2 41 8b f2 53 0d 01  |(W?3)=L%:.A..S..|
00003a40  67 2d c9 26 46 46 3a c8  99 26 32 30 30 30 39 2c  |g-.&FF:..&20009,|
00003a50  46 3f 33 2c 43 3f 33 b8  41 25 3b 53 3a e7 28 53  |F?3,C?3.A%;S:.(S|
00003a60  80 31 29 3d 30 8c f2 41  8b f2 53 0d 01 68 07 7f  |.1)=0..A..S..h..|
00003a70  f2 41 0d 01 69 07 cb 3a  e1 0d 01 6a 62 dd a4 5a  |.A..i..:...jb..Z|
00003a80  28 41 24 29 3a ea 49 25  2c 51 24 3a e3 49 25 3d  |(A$):.I%,Q$:.I%=|
00003a90  31 b8 a9 41 24 3a e7 c1  41 24 2c 49 25 2c 31 29  |1..A$:..A$,I%,1)|
00003aa0  3e 3d 22 61 22 80 c1 41  24 2c 49 25 2c 31 29 3c  |>="a"..A$,I%,1)<|
00003ab0  3d 22 7a 22 8c 51 24 3d  51 24 2b bd 28 97 c1 41  |="z".Q$=Q$+.(..A|
00003ac0  24 2c 49 25 2c 31 29 2d  33 32 29 8b 51 24 3d 51  |$,I%,1)-32).Q$=Q|
00003ad0  24 2b c1 41 24 2c 49 25  2c 31 29 0d 01 6b 09 ed  |$+.A$,I%,1)..k..|
00003ae0  3a 3d 51 24 0d 01 6c 0b  dd f2 58 3a ee 85 87 0d  |:=Q$..l...X:....|
00003af0  01 6d 2e c8 99 26 36 43  34 38 37 b8 41 25 3a e7  |.m...&6C487.A%:.|
00003b00  41 25 3d 30 8c c8 99 26  32 30 30 31 45 2c 34 2c  |A%=0...&2001E,4,|
00003b10  22 36 35 30 32 53 75 70  70 6f 72 74 22 0d 01 6e  |"6502Support"..n|
00003b20  10 c8 99 26 34 30 30 44  44 3a e0 3a e1 0d 01 6f  |...&400DD:.:...o|
00003b30  76 dd f2 61 28 5a 24 29  3a e7 a7 5a 24 2c 22 2e  |v..a(Z$):..Z$,".|
00003b40  22 29 3d 30 80 a7 5a 24  2c 22 3a 22 29 3d 30 80  |")=0..Z$,":")=0.|
00003b50  c0 5a 24 2c 36 29 3c 3e  22 3c 57 69 6d 70 24 22  |.Z$,6)<>"<Wimp$"|
00003b60  8c c8 99 26 34 30 30 44  46 2c 22 20 20 20 20 54  |...&400DF,"    T|
00003b70  6f 20 73 61 76 65 2c 20  64 72 61 67 20 74 68 65  |o save, drag the|
00003b80  20 66 69 6c 65 20 69 63  6f 6e 20 74 6f 20 61 20  | file icon to a |
00003b90  64 69 72 65 63 74 6f 72  79 20 76 69 65 77 65 72  |directory viewer|
00003ba0  22 3a e1 0d 01 70 51 ea  41 2c 49 25 3a 78 25 3d  |":...pQ.A,I%:x%=|
00003bb0  36 36 30 34 38 20 2d 26  38 30 30 30 3a 21 5a 3d  |66048 -&8000:!Z=|
00003bc0  64 25 3a 5a 21 34 3d 34  3a c8 99 26 34 30 30 43  |d%:Z!4=4:..&400C|
00003bd0  45 2c 2c 5a 3a e7 28 5a  21 32 34 80 32 5e 32 31  |E,,Z:.(Z!24.2^21|
00003be0  29 3c 3e 30 8c 78 25 3d  36 36 30 34 38 20 2d 26  |)<>0.x%=66048 -&|
00003bf0  34 30 30 30 0d 01 71 34  21 5a 3d 64 25 3a 5a 21  |4000..q4!Z=d%:Z!|
00003c00  34 3d 35 3a c8 99 26 34  30 30 43 45 2c 2c 5a 3a  |4=5:..&400CE,,Z:|
00003c10  e7 28 5a 21 32 34 80 32  5e 32 31 29 3c 3e 30 8c  |.(Z!24.2^21)<>0.|
00003c20  78 25 3d 36 36 30 34 38  0d 01 72 55 41 3d ae 5a  |x%=66048..rUA=.Z|
00003c30  24 3a d5 23 41 2c 22 42  42 43 20 53 6e 61 70 73  |$:.#A,"BBC Snaps|
00003c40  68 6f 74 31 30 31 22 3a  c8 99 26 43 2c 32 2c 41  |hot101":..&C,2,A|
00003c50  2c 6d 65 6d 6f 72 79 2d  35 31 32 2c 78 25 3a d9  |,memory-512,x%:.|
00003c60  23 41 3a ff 22 53 65 74  54 79 70 65 20 22 2b 5a  |#A:."SetType "+Z|
00003c70  24 2b 22 20 22 2b c3 7e  52 79 25 3a e1 0d 01 73  |$+" "+.~Ry%:...s|
00003c80  48 dd f2 56 28 4e 24 29  3a ea 7a 25 2c 49 25 2c  |H..V(N$):.z%,I%,|
00003c90  79 79 25 2c 52 24 2c 4d  25 2c 7a 24 3a 7a 25 3d  |yy%,R$,M%,z$:z%=|
00003ca0  8e 28 4e 24 29 3a 49 24  3d be 23 7a 25 3a e7 a2  |.(N$):I$=.#z%:..|
00003cb0  23 7a 25 3d 30 8c 49 24  3d 22 42 42 43 20 53 63  |#z%=0.I$="BBC Sc|
00003cc0  72 69 70 74 22 0d 01 74  3b e7 c0 49 24 2c 36 34  |ript"..t;..I$,64|
00003cd0  29 3d c4 34 38 2c bd 30  29 2b 22 21 42 42 43 20  |)=.48,.0)+"!BBC |
00003ce0  74 61 70 65 20 66 69 6c  65 21 22 2b bd 30 8c 49  |tape file!"+.0.I|
00003cf0  24 3d 22 42 42 43 20 54  61 70 65 66 69 6c 65 22  |$="BBC Tapefile"|
00003d00  0d 01 75 09 c8 8e 49 24  ca 0d 01 76 1e c9 22 42  |..u...I$...v.."B|
00003d10  42 43 20 54 61 70 65 66  69 6c 65 22 3a d9 23 7a  |BC Tapefile":.#z|
00003d20  25 3a 56 24 3d 4e 24 0d  01 77 5a c9 22 42 42 43  |%:V$=N$..wZ."BBC|
00003d30  20 53 63 72 69 70 74 22  3a ea 85 3a ee 85 ea 3a  | Script":..:...:|
00003d40  f7 85 3a c8 99 26 36 30  30 44 46 2c 22 20 20 20  |..:..&600DF,"   |
00003d50  20 45 72 72 6f 72 20 69  6e 20 73 63 72 69 70 74  | Error in script|
00003d60  3a 20 22 2b f6 24 2c 33  2c 22 36 35 30 32 45 6d  |: "+.$,3,"6502Em|
00003d70  22 b8 2c 41 25 3a e7 41  25 3d 32 8c f2 58 8b f2  |".,A%:.A%=2..X..|
00003d80  4b 0d 01 78 10 42 79 25  3d a3 3a e7 c5 23 7a 25  |K..x.By%=.:..#z%|
00003d90  8c 0d 01 79 09 41 24 3d  22 22 0d 01 7a 11 cc 3a  |...y.A$=""..z..:|
00003da0  41 24 3d a4 5a 28 be 23  7a 25 29 0d 01 7b 26 cd  |A$=.Z(.#z%)..{&.|
00003db0  3a f5 3a 51 24 3d c0 41  24 2c a7 41 24 2c 22 20  |:.:Q$=.A$,.A$," |
00003dc0  22 29 2d 31 29 3a 79 79  25 3d b9 3a c8 8e 51 24  |")-1):yy%=.:..Q$|
00003dd0  ca 0d 01 7c 25 c9 22 50  41 4c 45 54 54 45 22 3a  |...|%."PALETTE":|
00003de0  e7 a7 41 24 2c 22 4f 4e  22 29 8c 5a 79 25 3d b9  |..A$,"ON").Zy%=.|
00003df0  8b 5a 79 25 3d a3 0d 01  7d 22 c9 22 43 55 52 53  |.Zy%=...}"."CURS|
00003e00  4f 52 22 3a e7 a7 41 24  2c 22 4f 4e 22 29 8c 60  |OR":..A$,"ON").`|
00003e10  25 3d b9 8b 60 25 3d a3  0d 01 7e 2e c9 22 45 58  |%=..`%=...~.."EX|
00003e20  41 43 54 53 50 45 45 44  22 3a e7 a7 41 24 2c 22  |ACTSPEED":..A$,"|
00003e30  4f 4e 22 29 8c f2 47 28  26 36 34 29 8b f2 47 28  |ON")..G(&64)..G(|
00003e40  26 32 37 31 30 29 0d 01  7f 21 c9 22 53 4f 55 4e  |&2710)...!."SOUN|
00003e50  44 22 3a e7 a7 41 24 2c  22 4f 4e 22 29 8c 75 25  |D":..A$,"ON").u%|
00003e60  3d b9 8b 75 25 3d a3 0d  01 80 15 c9 22 44 49 53  |=..u%=......"DIS|
00003e70  41 42 4c 45 54 41 50 45  22 3a f2 77 0d 01 81 17  |ABLETAPE":.w....|
00003e80  c9 22 53 43 52 4f 4c 4c  48 41 43 4b 22 3a 42 79  |."SCROLLHACK":By|
00003e90  25 3d b9 0d 01 82 29 c9  22 4b 45 59 4d 41 50 22  |%=....)."KEYMAP"|
00003ea0  3a 58 24 3d c2 41 24 2c  a9 41 24 2d a7 41 24 2c  |:X$=.A$,.A$-.A$,|
00003eb0  22 20 22 29 29 3a f2 52  28 58 24 29 0d 01 83 14  |" ")):.R(X$)....|
00003ec0  c9 22 50 41 54 43 48 22  3a e7 76 25 3c 3e 30 8c  |."PATCH":.v%<>0.|
00003ed0  0d 01 84 38 79 25 3d 30  3a e3 49 25 3d 31 b8 76  |...8y%=0:.I%=1.v|
00003ee0  25 3a 7a 24 3d c2 41 24  2c a9 4d 24 28 49 25 29  |%:z$=.A$,.M$(I%)|
00003ef0  29 3a f2 79 28 7a 24 29  3a e7 a4 5a 28 4d 24 28  |):.y(z$):..Z(M$(|
00003f00  49 25 29 29 3d 7a 24 8c  0d 01 85 0c 79 25 3d 49  |I%))=z$.....y%=I|
00003f10  25 3a f2 4f 0d 01 86 07  cd 3a ed 0d 01 87 05 cd  |%:.O.....:......|
00003f20  0d 01 88 1c c9 22 53 50  45 45 44 22 3a f2 47 28  |....."SPEED":.G(|
00003f30  bb c2 41 24 2c a9 41 24  2d 36 29 29 0d 01 89 77  |..A$,.A$-6))...w|
00003f40  c9 22 49 4e 44 45 58 46  49 4c 45 22 3a 4c 24 3d  |."INDEXFILE":L$=|
00003f50  c2 41 24 2c a9 41 24 2d  26 41 29 3a 54 25 3d 8e  |.A$,.A$-&A):T%=.|
00003f60  28 a4 53 28 4e 24 29 2b  22 2e 22 2b 4c 24 29 3a  |(.S(N$)+"."+L$):|
00003f70  e7 54 25 3c 3e 30 8c d9  23 54 25 3a 71 24 3d a4  |.T%<>0..#T%:q$=.|
00003f80  53 28 4e 24 29 2b 22 2e  22 2b 4c 24 3a 63 79 25  |S(N$)+"."+L$:cy%|
00003f90  3d 30 8b 85 31 2c 22 49  6e 64 65 78 20 46 69 6c  |=0..1,"Index Fil|
00003fa0  65 20 22 2b 4c 24 2b 22  20 6e 6f 74 20 66 6f 75  |e "+L$+" not fou|
00003fb0  6e 64 22 0d 01 8a 6e c9  22 54 41 50 45 46 49 4c  |nd"...n."TAPEFIL|
00003fc0  45 22 3a 4c 24 3d c2 41  24 2c a9 41 24 2d 39 29  |E":L$=.A$,.A$-9)|
00003fd0  3a 54 25 3d 8e 28 a4 53  28 4e 24 29 2b 22 2e 22  |:T%=.(.S(N$)+"."|
00003fe0  2b 4c 24 29 3a e7 54 25  3c 3e 30 8c d9 23 54 25  |+L$):.T%<>0..#T%|
00003ff0  3a 56 24 3d a4 53 28 4e  24 29 2b 22 2e 22 2b 4c  |:V$=.S(N$)+"."+L|
00004000  24 8b 85 31 2c 22 54 61  70 65 20 46 69 6c 65 20  |$..1,"Tape File |
00004010  22 2b 4c 24 2b 22 20 6e  6f 74 20 66 6f 75 6e 64  |"+L$+" not found|
00004020  22 0d 01 8b 29 c9 22 4c  4f 41 44 52 4f 4d 22 3a  |"...)."LOADROM":|
00004030  55 24 3d c2 41 24 2c a9  41 24 2d 38 29 3a e7 a7  |U$=.A$,.A$-8):..|
00004040  55 24 2c 22 3a 22 29 3d  30 8c 0d 01 8c 17 f2 4d  |U$,":")=0......M|
00004050  28 a4 53 28 4e 24 29 2b  22 2e 22 2b 55 24 2c 31  |(.S(N$)+"."+U$,1|
00004060  29 0d 01 8d 0e cc 3a f2  4d 28 55 24 2c 31 29 0d  |).....:.M(U$,1).|
00004070  01 8e 05 cd 0d 01 8f 29  c9 22 4c 4f 41 44 52 41  |.......)."LOADRA|
00004080  4d 22 3a 55 24 3d c2 41  24 2c a9 41 24 2d 38 29  |M":U$=.A$,.A$-8)|
00004090  3a e7 a7 55 24 2c 22 3a  22 29 3d 30 8c 0d 01 90  |:..U$,":")=0....|
000040a0  17 f2 4d 28 a4 53 28 4e  24 29 2b 22 2e 22 2b 55  |..M(.S(N$)+"."+U|
000040b0  24 2c 30 29 0d 01 91 0e  cc 3a f2 4d 28 55 24 2c  |$,0).....:.M(U$,|
000040c0  31 29 0d 01 92 05 cd 0d  01 93 42 c9 22 4b 49 4c  |1)........B."KIL|
000040d0  4c 52 4f 4d 22 3a 55 24  3d c2 41 24 2c a9 41 24  |LROM":U$=.A$,.A$|
000040e0  2d 38 29 3a e3 49 25 3d  30 b8 26 46 3a e7 c0 a4  |-8):.I%=0.&F:...|
000040f0  5a 28 a4 51 28 49 25 29  29 2c a9 55 24 29 3d 55  |Z(.Q(I%)),.U$)=U|
00004100  24 8c f2 73 79 28 49 25  29 0d 01 94 05 ed 0d 01  |$..sy(I%).......|
00004110  95 29 c9 22 4d 41 43 48  49 4e 45 22 3a 52 24 3d  |.)."MACHINE":R$=|
00004120  c2 41 24 2c a9 41 24 2d  38 29 3a f2 79 28 52 24  |.A$,.A$-8):.y(R$|
00004130  29 3a c8 8e 52 24 ca 0d  01 96 1e c9 22 42 42 43  |):..R$......"BBC|
00004140  22 2c 22 42 42 43 42 22  2c 22 42 42 43 20 42 22  |","BBCB","BBC B"|
00004150  3a 4d 25 3d 30 0d 01 97  2b c9 22 4d 41 53 54 45  |:M%=0...+."MASTE|
00004160  52 22 2c 22 4d 41 53 54  45 52 31 32 38 22 2c 22  |R","MASTER128","|
00004170  4d 41 53 54 45 52 20 31  32 38 22 3a 4d 25 3d 31  |MASTER 128":M%=1|
00004180  0d 01 98 2b c9 22 4f 53  33 2e 35 22 2c 22 4f 53  |...+."OS3.5","OS|
00004190  20 33 2e 35 22 2c 22 4f  53 33 2c 35 22 2c 22 4f  | 3.5","OS3,5","O|
000041a0  53 20 33 2e 35 22 3a 4d  25 3d 32 0d 01 99 24 c9  |S 3.5":M%=2...$.|
000041b0  22 43 4f 4d 50 41 43 54  22 2c 22 4d 41 53 54 45  |"COMPACT","MASTE|
000041c0  52 20 43 4f 4d 50 41 43  54 22 3a 4d 25 3d 33 0d  |R COMPACT":M%=3.|
000041d0  01 9a 1a c9 22 45 4c 45  43 54 52 4f 4e 22 2c 22  |...."ELECTRON","|
000041e0  45 4c 4b 22 3a 4d 25 3d  34 0d 01 9b 28 7f 3a d9  |ELK":M%=4...(.:.|
000041f0  23 7a 25 3a 85 31 2c 22  55 6e 6b 6e 6f 77 6e 20  |#z%:.1,"Unknown |
00004200  6d 61 63 68 69 6e 65 20  27 22 2b 52 24 2b 22 27  |machine '"+R$+"'|
00004210  22 0d 01 9c 16 cb 3a e7  4d 25 3c 3e 61 25 8c 61  |".....:.M%<>a%.a|
00004220  25 3d 4d 25 3a f2 55 0d  01 9d 0b 7f 3a 79 79 25  |%=M%:.U.....:yy%|
00004230  3d a3 0d 01 9e 0b cb 3a  e7 79 79 25 8c 0d 01 9f  |=......:.yy%....|
00004240  0a e7 c5 23 7a 25 8c 0d  01 a0 09 41 24 3d 22 22  |...#z%.....A$=""|
00004250  0d 01 a1 11 cc 3a 41 24  3d a4 5a 28 be 23 7a 25  |.....:A$=.Z(.#z%|
00004260  29 0d 01 a2 05 cd 0d 01  a3 ea cd 3a fd a4 4d 28  |)..........:..M(|
00004270  22 50 41 54 43 48 22 29  80 a4 4d 28 22 50 41 4c  |"PATCH")..M("PAL|
00004280  45 54 54 45 22 29 80 a4  4d 28 22 4d 41 43 48 49  |ETTE")..M("MACHI|
00004290  4e 45 22 29 80 a4 4d 28  22 49 4e 44 45 58 46 49  |NE")..M("INDEXFI|
000042a0  4c 45 22 29 80 a4 4d 28  22 54 41 50 45 46 49 4c  |LE")..M("TAPEFIL|
000042b0  45 22 29 80 a4 4d 28 22  4b 45 59 4d 41 50 22 29  |E")..M("KEYMAP")|
000042c0  80 a4 4d 28 22 43 55 52  53 4f 52 22 29 80 a4 4d  |..M("CURSOR")..M|
000042d0  28 22 45 58 41 43 54 53  50 45 45 44 22 29 80 a4  |("EXACTSPEED")..|
000042e0  4d 28 22 44 49 53 41 42  4c 45 54 41 50 45 22 29  |M("DISABLETAPE")|
000042f0  80 a4 4d 28 22 4c 4f 41  44 52 4f 4d 22 29 80 a4  |..M("LOADROM")..|
00004300  4d 28 22 4c 4f 41 44 52  41 4d 22 29 80 a4 4d 28  |M("LOADRAM")..M(|
00004310  22 4b 49 4c 4c 52 4f 4d  22 29 80 a4 4d 28 22 53  |"KILLROM")..M("S|
00004320  4f 55 4e 44 22 29 80 a4  4d 28 22 53 43 52 4f 4c  |OUND")..M("SCROL|
00004330  4c 48 41 43 4b 22 29 80  a4 4d 28 22 53 50 45 45  |LHACK")..M("SPEE|
00004340  44 22 29 3a d9 23 7a 25  3a e7 41 24 3d 22 22 8c  |D"):.#z%:.A$="".|
00004350  0d 01 a4 2b 41 24 3d a4  53 28 4e 24 29 3a f2 4e  |...+A$=.S(N$):.N|
00004360  28 41 24 2b 22 2e 22 2b  c2 41 24 2c a9 41 24 2d  |(A$+"."+.A$,.A$-|
00004370  a9 a4 53 28 41 24 29 2d  32 29 29 0d 01 a5 2c cc  |..S(A$)-2))...,.|
00004380  3a e7 c0 41 24 2c 35 29  3d 22 43 48 41 49 4e 22  |:..A$,5)="CHAIN"|
00004390  84 c0 41 24 2c 31 29 3d  22 2a 22 84 a7 41 24 2c  |..A$,1)="*"..A$,|
000043a0  22 20 22 29 3e 30 8c 0d  01 a6 34 44 24 3d 41 24  |" ")>0....4D$=A$|
000043b0  2b bd 26 44 3a f2 44 28  32 29 3a 4f 79 25 3d 30  |+.&D:.D(2):Oy%=0|
000043c0  3a 72 3d 49 3a 49 3d 33  3a f2 64 28 a4 53 28 4e  |:r=I:I=3:.d(.S(N|
000043d0  24 29 2b 22 2e 4a 55 4e  4b 22 29 0d 01 a7 17 cc  |$)+".JUNK").....|
000043e0  3a f2 4e 28 a4 53 28 4e  24 29 2b 22 2e 22 2b 41  |:.N(.S(N$)+"."+A|
000043f0  24 29 0d 01 a8 05 cd 0d  01 a9 05 cd 0d 01 aa 23  |$).............#|
00004400  c9 22 42 42 43 20 53 6e  61 70 73 68 6f 74 20 20  |."BBC Snapshot  |
00004410  20 22 3a e7 a2 23 7a 25  3d 36 35 38 30 38 8c 0d  | ":..#z%=65808..|
00004420  01 ab 3d c8 99 26 43 2c  34 2c 7a 25 2c 6d 65 6d  |..=..&C,4,z%,mem|
00004430  6f 72 79 2d 32 35 36 2c  36 35 37 39 32 3a cf 23  |ory-256,65792:.#|
00004440  7a 25 3d 36 35 38 30 38  2d 35 31 32 3a c8 99 26  |z%=65808-512:..&|
00004450  43 2c 34 2c 7a 25 2c 51  2c 32 35 36 0d 01 ac 33  |C,4,z%,Q,256...3|
00004460  cc 3a c8 99 26 43 2c 34  2c 7a 25 2c 6d 65 6d 6f  |.:..&C,4,z%,memo|
00004470  72 79 2d 32 35 36 2c a2  23 7a 25 2d 32 37 32 3a  |ry-256,.#z%-272:|
00004480  c8 99 26 43 2c 34 2c 7a  25 2c 51 2c 32 35 36 0d  |..&C,4,z%,Q,256.|
00004490  01 ad 0a cd 3a d9 23 7a  25 0d 01 ae 38 c9 22 42  |....:.#z%...8."B|
000044a0  42 43 20 53 6e 61 70 73  68 6f 74 31 30 31 22 3a  |BC Snapshot101":|
000044b0  c8 99 26 43 2c 34 2c 7a  25 2c 6d 65 6d 6f 72 79  |..&C,4,z%,memory|
000044c0  2d 35 31 32 2c a2 23 7a  25 2d 31 36 3a d9 23 7a  |-512,.#z%-16:.#z|
000044d0  25 0d 01 af 13 7f 3a d9  23 7a 25 3a f2 4d 28 41  |%.....:.#z%:.M(A|
000044e0  24 2c 31 29 0d 01 b0 07  cb 3a e1 0d 01 b1 1c dd  |$,1).....:......|
000044f0  a4 4d 28 51 24 29 3a e7  a7 41 24 2c 51 24 29 3d  |.M(Q$):..A$,Q$)=|
00004500  30 8c 3d b9 8b 3d a3 0d  01 b2 06 3d 30 0d 01 b3  |0.=..=.....=0...|
00004510  54 dd f2 4e 28 5a 24 29  3a 78 79 25 3d a3 3a f2  |T..N(Z$):xy%=.:.|
00004520  64 28 5a 24 29 3a e3 49  25 3d 31 b8 a9 5a 24 3a  |d(Z$):.I%=1..Z$:|
00004530  e7 c1 5a 24 2c a9 5a 24  2d 49 25 2c 31 29 3d 22  |..Z$,.Z$-I%,1)="|
00004540  2e 22 84 c1 5a 24 2c a9  5a 24 2d 49 25 2c 31 29  |."..Z$,.Z$-I%,1)|
00004550  3d 22 3a 22 8c 4c 25 3d  49 25 3a 49 25 3d a9 5a  |=":".L%=I%:I%=.Z|
00004560  24 0d 01 b4 53 ed 3a 41  24 3d c2 5a 24 2c 4c 25  |$...S.:A$=.Z$,L%|
00004570  29 3a c8 99 38 2c 35 2c  5a 24 b8 48 5f 25 2c 2c  |):..8,5,Z$.H_%,,|
00004580  5f 79 25 2c 75 79 25 2c  78 25 3a 65 25 3d 5f 79  |_y%,uy%,x%:e%=_y|
00004590  25 80 26 46 46 46 46 3a  6f 25 3d 75 79 25 80 26  |%.&FFFF:o%=uy%.&|
000045a0  46 46 46 46 3a e7 48 5f  25 3d 30 8c 6f 25 3d 26  |FFFF:.H_%=0.o%=&|
000045b0  46 46 46 46 0d 01 b5 63  44 24 3d 22 2a 2f 22 2b  |FFFF...cD$="*/"+|
000045c0  41 24 2b bd 26 44 3a e7  6f 25 3d 26 38 30 31 46  |A$+.&D:.o%=&801F|
000045d0  84 6f 25 3d 26 38 30 32  33 84 6f 25 3d 26 38 30  |.o%=&8023.o%=&80|
000045e0  32 42 84 6f 25 3d 26 38  30 45 37 8c 44 24 3d 22  |2B.o%=&80E7.D$="|
000045f0  50 41 47 45 3d 26 22 2b  c3 7e 65 25 2b bd 26 44  |PAGE=&"+.~e%+.&D|
00004600  2b 22 43 48 41 49 4e 22  2b bd 33 34 2b 41 24 2b  |+"CHAIN"+.34+A$+|
00004610  bd 33 34 2b bd 26 44 0d  01 b6 32 e7 28 5f 79 25  |.34+.&D...2.(_y%|
00004620  80 26 46 46 46 30 30 29  3d 26 46 46 42 30 30 8c  |.&FFF00)=&FFB00.|
00004630  44 24 3d 22 43 48 41 49  4e 22 2b bd 33 34 2b 41  |D$="CHAIN"+.34+A|
00004640  24 2b bd 33 34 2b bd 26  44 0d 01 b7 69 e7 6f 25  |$+.34+.&D...i.o%|
00004650  3d 26 46 46 46 46 84 28  5f 79 25 80 26 46 46 46  |=&FFFF.(_y%.&FFF|
00004660  30 30 29 3d 26 46 46 45  30 30 84 28 5f 79 25 3d  |00)=&FFE00.(_y%=|
00004670  30 80 75 79 25 3d 30 29  8c 44 24 3d 22 2a 45 58  |0.uy%=0).D$="*EX|
00004680  45 43 20 22 2b 41 24 2b  bd 26 44 3a e7 61 25 3d  |EC "+A$+.&D:.a%=|
00004690  30 8c 44 24 3d 22 50 41  47 45 3d 26 31 39 30 30  |0.D$="PAGE=&1900|
000046a0  22 2b bd 26 44 2b 22 4e  45 57 22 2b bd 26 44 2b  |"+.&D+"NEW"+.&D+|
000046b0  44 24 0d 01 b8 19 f2 44  28 32 29 3a 4f 79 25 3d  |D$.....D(2):Oy%=|
000046c0  30 3a 72 3d 49 3a 49 3d  33 3a e1 0d 01 b9 3b dd  |0:r=I:I=3:....;.|
000046d0  f2 72 79 3a 4f 79 25 2b  3d 31 3a 46 3f 33 3d 97  |.ry:Oy%+=1:F?3=.|
000046e0  c1 44 24 2c 4f 79 25 2c  31 29 3a f2 41 3a e7 4f  |.D$,Oy%,1):.A:.O|
000046f0  79 25 3d a9 44 24 8c 49  3d 72 3a f2 7a 28 26 46  |y%=.D$.I=r:.z(&F|
00004700  46 45 30 2c 49 29 0d 01  ba 05 e1 0d 01 bb 4b dd  |FE0,I)........K.|
00004710  f2 64 28 5a 24 29 3a c8  99 33 39 2c 5a 24 2c 5a  |.d(Z$):..39,Z$,Z|
00004720  2c 26 46 46 b8 2c 5a 24  3a 57 24 3d c0 5a 24 2c  |,&FF.,Z$:W$=.Z$,|
00004730  a7 5a 24 2c 22 3a 22 29  29 3a 5a 24 3d c2 5a 24  |.Z$,":")):Z$=.Z$|
00004740  2c a9 5a 24 2d a9 57 24  29 3a e7 c0 5a 24 2c 31  |,.Z$-.W$):..Z$,1|
00004750  29 3d 22 3a 22 8c 0d 01  bc 24 46 24 3d c0 5a 24  |)=":"....$F$=.Z$|
00004760  2c a7 5a 24 2c 22 2e 22  29 29 3a 5a 24 3d c2 5a  |,.Z$,".")):Z$=.Z|
00004770  24 2c a9 5a 24 2d a9 46  24 29 0d 01 bd 0b cc 3a  |$,.Z$-.F$).....:|
00004780  46 24 3d 22 22 0d 01 be  3f cd 3a 4d 24 3d a4 53  |F$=""...?.:M$=.S|
00004790  28 5a 24 29 3a 50 24 3d  22 22 3a e7 c1 4d 24 2c  |(Z$):P$="":..M$,|
000047a0  a9 4d 24 2d 31 2c 31 29  3d 22 2e 22 8c 50 24 3d  |.M$-1,1)=".".P$=|
000047b0  c2 4d 24 2c 32 29 3a 4d  24 3d c0 4d 24 2c a9 4d  |.M$,2):M$=.M$,.M|
000047c0  24 2d 32 29 0d 01 bf 05  e1 0d 01 c0 22 dd a4 42  |$-2)........"..B|
000047d0  28 41 24 29 3a e7 41 24  3e 3d 22 30 22 80 41 24  |(A$):.A$>="0".A$|
000047e0  3c 3d 22 39 22 8c 3d b9  8b 3d a3 0d 01 c1 06 3d  |<="9".=..=.....=|
000047f0  30 0d 01 c2 3f dd a4 46  28 5a 24 29 3a e7 c0 5a  |0...?..F(Z$):..Z|
00004800  24 2c 31 29 3d 22 3a 22  80 a4 42 28 c1 5a 24 2c  |$,1)=":"..B(.Z$,|
00004810  32 2c 31 29 29 80 c1 5a  24 2c 33 2c 31 29 3d 22  |2,1))..Z$,3,1)="|
00004820  2e 22 8c 5a 24 3d c2 5a  24 2c a9 5a 24 2d 33 29  |.".Z$=.Z$,.Z$-3)|
00004830  0d 01 c3 11 e7 a7 5a 24  2c 22 3a 22 29 8c 3d 5a  |......Z$,":").=Z|
00004840  24 0d 01 c4 2a e7 c0 5a  24 2c 31 29 3d bd 33 34  |$...*..Z$,1)=.34|
00004850  80 c2 5a 24 2c 31 29 3d  bd 33 34 8c 5a 24 3d c1  |..Z$,1)=.34.Z$=.|
00004860  5a 24 2c 32 2c a9 5a 24  2d 32 29 0d 01 c5 1d e7  |Z$,2,.Z$-2).....|
00004870  28 5a 24 3d 22 22 84 a7  5a 24 2c 22 7c 22 29 29  |(Z$=""..Z$,"|"))|
00004880  80 71 24 3c 3e 22 22 8c  0d 01 c6 2f 41 3d 8e 71  |.q$<>""..../A=.q|
00004890  24 3a cf 23 41 3d 63 79  25 3a 5a 24 3d be 23 41  |$:.#A=cy%:Z$=.#A|
000048a0  3a 4e 79 25 3d 8f 23 41  3a e7 4e 79 25 3d a2 23  |:Ny%=.#A:.Ny%=.#|
000048b0  41 8c 4e 79 25 3d 30 0d  01 c7 07 d9 23 41 0d 01  |A.Ny%=0.....#A..|
000048c0  c8 14 cd 3a e7 c1 5a 24  2c 32 2c 31 29 3d 22 2e  |...:..Z$,2,1)=".|
000048d0  22 8c 0d 01 c9 1b e7 c0  5a 24 2c 31 29 3d 22 24  |".......Z$,1)="$|
000048e0  22 8c 3d c2 5a 24 2c a9  5a 24 2d 32 29 0d 01 ca  |".=.Z$,.Z$-2)...|
000048f0  07 3d 5a 24 0d 01 cb 09  cc 3a 3d 5a 24 0d 01 cc  |.=Z$.....:=Z$...|
00004900  09 cd 3a 3d 22 22 0d 01  cd 3f dd a4 43 28 5a 24  |..:=""...?..C(Z$|
00004910  29 3a e7 c0 5a 24 2c 31  29 3d 22 3a 22 80 a4 42  |):..Z$,1)=":"..B|
00004920  28 c1 5a 24 2c 32 2c 31  29 29 80 c1 5a 24 2c 33  |(.Z$,2,1))..Z$,3|
00004930  2c 31 29 3d 22 2e 22 8c  5a 24 3d c2 5a 24 2c a9  |,1)=".".Z$=.Z$,.|
00004940  5a 24 2d 33 29 0d 01 ce  11 e7 a7 5a 24 2c 22 3a  |Z$-3)......Z$,":|
00004950  22 29 8c 3d 22 22 0d 01  cf 12 e7 c1 5a 24 2c 32  |").=""......Z$,2|
00004960  2c 31 29 3d 22 2e 22 8c  0d 01 d0 11 3d 57 24 2b  |,1)=".".....=W$+|
00004970  46 24 2b 4d 24 2b 22 2e  22 0d 01 d1 16 cc 3a 3d  |F$+M$+".".....:=|
00004980  57 24 2b 46 24 2b 4d 24  2b 50 24 2b 22 2e 22 0d  |W$+F$+M$+P$+".".|
00004990  01 d2 09 cd 3a 3d 22 22  0d 01 d3 3f dd a4 57 28  |....:=""...?..W(|
000049a0  5a 24 29 3a e7 c0 5a 24  2c 31 29 3d 22 3a 22 80  |Z$):..Z$,1)=":".|
000049b0  a4 42 28 c1 5a 24 2c 32  2c 31 29 29 80 c1 5a 24  |.B(.Z$,2,1))..Z$|
000049c0  2c 33 2c 31 29 3d 22 2e  22 8c 5a 24 3d c2 5a 24  |,3,1)=".".Z$=.Z$|
000049d0  2c a9 5a 24 2d 33 29 0d  01 d4 11 e7 a7 5a 24 2c  |,.Z$-3)......Z$,|
000049e0  22 3a 22 29 8c 3d 5a 24  0d 01 d5 2a e7 c0 5a 24  |":").=Z$...*..Z$|
000049f0  2c 31 29 3d bd 33 34 80  c2 5a 24 2c 31 29 3d bd  |,1)=.34..Z$,1)=.|
00004a00  33 34 8c 5a 24 3d c1 5a  24 2c 32 2c a9 5a 24 2d  |34.Z$=.Z$,2,.Z$-|
00004a10  32 29 0d 01 d6 12 e7 c1  5a 24 2c 32 2c 31 29 3d  |2)......Z$,2,1)=|
00004a20  22 2e 22 8c 0d 01 d7 22  e7 c0 5a 24 2c 31 29 3d  |"."...."..Z$,1)=|
00004a30  22 24 22 8c 3d 4d 24 2b  22 2e 22 2b c2 5a 24 2c  |"$".=M$+"."+.Z$,|
00004a40  a9 5a 24 2d 32 29 0d 01  d8 14 3d 57 24 2b 46 24  |.Z$-2)....=W$+F$|
00004a50  2b 4d 24 2b 22 2e 22 2b  5a 24 0d 01 d9 19 cc 3a  |+M$+"."+Z$.....:|
00004a60  3d 57 24 2b 46 24 2b 4d  24 2b 50 24 2b 22 2e 22  |=W$+F$+M$+P$+"."|
00004a70  2b 5a 24 0d 01 da 09 cd  3a 3d 22 22 0d 01 db 44  |+Z$.....:=""...D|
00004a80  dd a4 49 28 5a 24 29 3a  ea 49 25 3a f5 49 25 2b  |..I(Z$):.I%:.I%+|
00004a90  3d 31 3a fd c1 5a 24 2c  49 25 2c 31 29 3c 3e 22  |=1:..Z$,I%,1)<>"|
00004aa0  2a 22 80 c1 5a 24 2c 49  25 2c 31 29 3c 3e 22 20  |*"..Z$,I%,1)<>" |
00004ab0  22 3a 3d c2 5a 24 2c a9  5a 24 2d 49 25 2b 31 29  |":=.Z$,.Z$-I%+1)|
00004ac0  0d 01 dc 44 dd f2 79 28  f8 47 24 29 3a c8 95 c0  |...D..y(.G$):...|
00004ad0  47 24 2c 31 29 3d 22 20  22 3a 47 24 3d c1 47 24  |G$,1)=" ":G$=.G$|
00004ae0  2c 32 29 3a ce 3a c8 95  c2 47 24 2c 31 29 3d 22  |,2):.:...G$,1)="|
00004af0  20 22 3a 47 24 3d c0 47  24 2c a9 47 24 2d 31 29  | ":G$=.G$,.G$-1)|
00004b00  3a ce 3a e1 0d 01 dd 5a  dd f2 78 28 f8 47 24 29  |:.:....Z..x(.G$)|
00004b10  3a c8 95 c0 47 24 2c 31  29 3d 22 20 22 84 c0 47  |:...G$,1)=" "..G|
00004b20  24 2c 31 29 3d 22 2a 22  3a 47 24 3d c1 47 24 2c  |$,1)="*":G$=.G$,|
00004b30  32 29 3a ce 3a c8 95 c2  47 24 2c 31 29 3d 22 20  |2):.:...G$,1)=" |
00004b40  22 84 c2 47 24 2c 31 29  3d 22 2a 22 3a 47 24 3d  |"..G$,1)="*":G$=|
00004b50  c0 47 24 2c a9 47 24 2d  31 29 3a ce 3a e1 0d 01  |.G$,.G$-1):.:...|
00004b60  de 5b dd f2 42 79 28 53  24 29 3a 59 24 3d 57 24  |.[..By(S$):Y$=W$|
00004b70  3a 5f 24 3d 46 24 3a 61  24 3d 4d 24 3a 4b 24 3d  |:_$=F$:a$=M$:K$=|
00004b80  50 24 3a ea 49 25 3a f5  49 25 2b 3d 31 3a fd c1  |P$:.I%:.I%+=1:..|
00004b90  53 24 2c 49 25 2c 31 29  3c 3e 22 20 22 3a 53 24  |S$,I%,1)<>" ":S$|
00004ba0  3d c2 53 24 2c a9 53 24  2d 49 25 2b 31 29 3a e7  |=.S$,.S$-I%+1):.|
00004bb0  a7 53 24 2c 22 20 22 29  8c 0d 01 df 16 53 24 3d  |.S$," ").....S$=|
00004bc0  c0 53 24 2c a7 53 24 2c  22 20 22 29 2d 31 29 0d  |.S$,.S$," ")-1).|
00004bd0  01 e0 27 cc 3a e7 a9 53  24 3d 34 80 c0 a4 5a 28  |..'.:..S$=4...Z(|
00004be0  53 24 29 2c 33 29 3d 22  44 49 52 22 8c 53 24 3d  |S$),3)="DIR".S$=|
00004bf0  c2 53 24 2c 31 29 0d 01  e1 0e cd 3a e7 53 24 3d  |.S$,1).....:.S$=|
00004c00  22 5e 22 8c 0d 01 e2 16  e7 50 24 3c 3e 22 22 8c  |"^"......P$<>"".|
00004c10  50 24 3d 22 22 3a f2 41  3a e1 0d 01 e3 1b e7 a7  |P$="":.A:.......|
00004c20  4d 24 2c 22 2e 22 29 3d  30 8c 4d 24 3d 22 24 22  |M$,".")=0.M$="$"|
00004c30  3a f2 41 3a e1 0d 01 e4  32 49 25 3d a9 4d 24 3a  |:.A:....2I%=.M$:|
00004c40  f5 49 25 2d 3d 31 3a fd  c1 4d 24 2c 49 25 2c 31  |.I%-=1:..M$,I%,1|
00004c50  29 3d 22 2e 22 3a 4d 24  3d c0 4d 24 2c 49 25 2d  |)=".":M$=.M$,I%-|
00004c60  31 29 3a f2 41 3a e1 0d  01 e5 1e cd 3a e7 53 24  |1):.A:......:.S$|
00004c70  3d 22 24 22 84 a9 53 24  3d 30 8c 50 24 3d 22 22  |="$"..S$=0.P$=""|
00004c80  3a f2 41 3a e1 0d 01 e6  0b e7 a9 53 24 3d 31 8c  |:.A:.......S$=1.|
00004c90  0d 01 e7 35 c8 99 26 32  30 30 30 38 2c 26 44 2c  |...5..&20008,&D,|
00004ca0  53 24 2c 2c 2c 57 24 2b  46 24 2b 4d 24 2b 22 2e  |S$,,,W$+F$+M$+".|
00004cb0  22 b8 41 25 3b 53 3a e7  28 53 80 31 29 3c 3e 30  |".A%;S:.(S.1)<>0|
00004cc0  8c f2 53 3a e1 0d 01 e8  1e e7 28 41 25 80 32 29  |..S:......(A%.2)|
00004cd0  3d 30 80 a9 53 24 3d 31  8c 50 24 3d 22 22 3a f2  |=0..S$=1.P$="":.|
00004ce0  41 3a e1 0d 01 e9 41 e7  28 41 25 80 32 29 3d 30  |A:....A.(A%.2)=0|
00004cf0  8c f2 5a 28 26 44 36 2c  22 44 69 72 65 63 74 6f  |..Z(&D6,"Directo|
00004d00  72 79 20 27 22 2b 53 24  2b 22 27 20 6e 6f 74 20  |ry '"+S$+"' not |
00004d10  66 6f 75 6e 64 22 29 8b  50 24 3d 22 2e 22 2b 53  |found").P$="."+S|
00004d20  24 3a f2 41 0d 01 ea 05  e1 0d 01 eb 12 cd 3a e7  |$:.A..........:.|
00004d30  a7 53 24 2c 22 3a 22 29  3e 31 8c 0d 01 ec 33 e7  |.S$,":")>1....3.|
00004d40  c2 53 24 2c 31 29 3c 3e  22 3a 22 8c c8 99 26 32  |.S$,1)<>":"...&2|
00004d50  30 30 30 38 2c 31 37 2c  53 24 b8 41 25 3b 53 3a  |0008,17,S$.A%;S:|
00004d60  e7 28 53 80 31 29 3c 3e  30 8c f2 53 3a e1 0d 01  |.(S.1)<>0..S:...|
00004d70  ed 5d c8 99 34 31 2c 26  42 2c 53 24 b8 2c 77 24  |.]..41,&B,S$.,w$|
00004d80  2c 45 25 3a e7 45 25 3c  3e 2d 31 8c c8 99 34 31  |,E%:.E%<>-1...41|
00004d90  2c 31 39 3a 57 24 3d c0  53 24 2c a9 53 24 2d a9  |,19:W$=.S$,.S$-.|
00004da0  77 24 29 3a 53 24 3d 77  24 8b f2 5a 28 26 46 38  |w$):S$=w$..Z(&F8|
00004db0  2c 22 4e 6f 20 73 75 63  68 20 66 69 6c 69 6e 67  |,"No such filing|
00004dc0  20 73 79 73 74 65 6d 22  29 3a e1 0d 01 ee 29 4d  | system"):....)M|
00004dd0  24 3d 22 22 3a 50 24 3d  22 22 3a 46 24 3d 22 22  |$="":P$="":F$=""|
00004de0  3a e7 c0 53 24 2c 31 29  3c 3e 22 3a 22 8c 4d 24  |:..S$,1)<>":".M$|
00004df0  3d 22 24 22 0d 01 ef 12  cd 3a e7 c0 53 24 2c 31  |="$".....:..S$,1|
00004e00  29 3d 22 3a 22 8c 0d 01  f0 5d 49 25 3d 30 3a 46  |)=":"....]I%=0:F|
00004e10  24 3d 22 22 3a f5 49 25  2b 3d 31 3a 46 24 3d 46  |$="":.I%+=1:F$=F|
00004e20  24 2b c1 53 24 2c 49 25  2c 31 29 3a fd c1 53 24  |$+.S$,I%,1):..S$|
00004e30  2c 49 25 2b 31 2c 31 29  3d 22 2e 22 84 49 25 3d  |,I%+1,1)=".".I%=|
00004e40  a9 53 24 3a e7 49 25 3d  a9 53 24 8c 53 24 3d 22  |.S$:.I%=.S$.S$="|
00004e50  22 8b 53 24 3d c2 53 24  2c a9 53 24 2d a9 46 24  |".S$=.S$,.S$-.F$|
00004e60  2d 31 29 0d 01 f1 0f 4d  24 3d 22 22 3a 50 24 3d  |-1)....M$="":P$=|
00004e70  22 22 0d 01 f2 32 cd 3a  e7 c0 53 24 2c 31 29 3d  |""...2.:..S$,1)=|
00004e80  22 24 22 80 a9 53 24 3e  32 8c 4d 24 3d 22 24 22  |"$"..S$>2.M$="$"|
00004e90  3a 50 24 3d 22 22 3a 53  24 3d c2 53 24 2c a9 53  |:P$="":S$=.S$,.S|
00004ea0  24 2d 32 29 0d 01 f3 28  e7 46 24 3c 3e 22 22 80  |$-2)...(.F$<>"".|
00004eb0  c2 46 24 2c 31 29 3c 3e  22 2e 22 80 4d 24 3c 3e  |.F$,1)<>".".M$<>|
00004ec0  22 22 8c 46 24 3d 46 24  2b 22 2e 22 0d 01 f4 47  |"".F$=F$+"."...G|
00004ed0  c8 99 26 32 30 30 30 38  2c 26 44 2c 53 24 2c 2c  |..&20008,&D,S$,,|
00004ee0  2c 57 24 2b 46 24 2b 4d  24 2b 50 24 2b 22 2e 22  |,W$+F$+M$+P$+"."|
00004ef0  b8 41 25 3b 53 3a e7 46  24 3c 3e 22 22 80 c2 46  |.A%;S:.F$<>""..F|
00004f00  24 2c 31 29 3c 3e 22 2e  22 8c 46 24 3d 46 24 2b  |$,1)<>".".F$=F$+|
00004f10  22 2e 22 0d 01 f5 15 e7  28 53 80 31 29 3c 3e 30  |".".....(S.1)<>0|
00004f20  8c f2 69 3a f2 53 3a e1  0d 01 f6 0e e7 28 41 25  |..i:.S:......(A%|
00004f30  80 32 29 3d 30 8c 0d 01  f7 2d f2 69 3a f2 5a 28  |.2)=0....-.i:.Z(|
00004f40  26 44 36 2c 22 44 69 72  65 63 74 6f 72 79 20 27  |&D6,"Directory '|
00004f50  22 2b 53 24 2b 22 27 20  6e 6f 74 20 66 6f 75 6e  |"+S$+"' not foun|
00004f60  64 22 29 0d 01 f8 0e cc  3a e7 53 24 3c 3e 22 22  |d").....:.S$<>""|
00004f70  8c 0d 01 f9 27 e7 4d 24  3c 3e 22 22 8c 4d 24 3d  |....'.M$<>"".M$=|
00004f80  4d 24 2b 50 24 2b 22 2e  22 2b 53 24 3a 50 24 3d  |M$+P$+"."+S$:P$=|
00004f90  22 22 8b 4d 24 3d 53 24  0d 01 fa 08 cd 3a f2 41  |"".M$=S$.....:.A|
00004fa0  0d 01 fb 13 cd 3a e7 4d  24 3d 22 22 8c 4d 24 3d  |.....:.M$="".M$=|
00004fb0  22 24 22 0d 01 fc 05 e1  0d 01 fd 2a dd f2 4e 79  |"$"........*..Ny|
00004fc0  3a c8 94 57 24 2c 59 24  3a c8 94 46 24 2c 5f 24  |:..W$,Y$:..F$,_$|
00004fd0  3a c8 94 4d 24 2c 61 24  3a c8 94 50 24 2c 4b 24  |:..M$,a$:..P$,K$|
00004fe0  3a e1 0d 01 fe 21 dd f2  69 3a 57 24 3d 59 24 3a  |:....!..i:W$=Y$:|
00004ff0  46 24 3d 5f 24 3a 4d 24  3d 61 24 3a 50 24 3d 4b  |F$=_$:M$=a$:P$=K|
00005000  24 3a e1 0d 01 ff 0e dd  f2 6b 3a c8 8e 46 3f 33  |$:.......k:..F?3|
00005010  ca 0d 02 00 2e c9 31 3a  c8 99 26 32 30 30 30 39  |......1:..&20009|
00005020  2c 35 2c 57 3f 33 b8 41  25 2c 2c 57 3f 33 3b 53  |,5,W?3.A%,,W?3;S|
00005030  3a e7 28 53 80 31 29 3d  30 8c f2 41 8b f2 53 0d  |:.(S.1)=0..A..S.|
00005040  02 01 13 e7 57 3f 33 3c  3e 30 8c 57 3f 33 3d 26  |....W?3<>0.W?3=&|
00005050  46 46 0d 02 02 57 c9 33  3a 4d 3d a4 41 28 57 3f  |FF...W.3:M=.A(W?|
00005060  33 2b 28 28 43 3f 33 29  3c 3c 38 29 29 3a 43 24  |3+((C?3)<<8)):C$|
00005070  3d a4 49 28 24 4d 29 3a  c8 99 26 32 30 30 30 44  |=.I($M):..&2000D|
00005080  2c 37 37 2c a4 46 28 43  24 29 2c a4 43 28 43 24  |,77,.F(C$),.C(C$|
00005090  29 b8 41 3b 53 3a 41 25  3d 41 3a e7 41 3d 30 84  |).A;S:A%=A:.A=0.|
000050a0  28 53 80 31 29 3c 3e 30  8c 0d 02 03 30 e7 c0 a4  |(S.1)<>0....0...|
000050b0  5a 28 43 24 29 2c 34 29  3d 22 44 49 52 20 22 84  |Z(C$),4)="DIR ".|
000050c0  28 c0 a4 5a 28 43 24 29  2c 33 29 3d 22 44 49 52  |(..Z(C$),3)="DIR|
000050d0  22 80 a9 43 24 3d 34 29  8c 0d 02 04 13 f2 42 79  |"..C$=4)......By|
000050e0  28 c2 43 24 2c a9 43 24  2d 34 29 29 0d 02 05 0b  |(.C$,.C$-4))....|
000050f0  cc 3a e7 51 79 25 8c 0d  02 06 23 c8 99 26 32 30  |.:.Qy%....#..&20|
00005100  30 30 35 2c 43 24 b8 41  25 3b 53 3a e7 28 53 80  |005,C$.A%;S:.(S.|
00005110  31 29 3d 30 8c f2 41 8b  f2 53 0d 02 07 1b cc 3a  |1)=0..A..S.....:|
00005120  f2 5a 28 26 46 45 2c 22  42 61 64 20 43 6f 6d 6d  |.Z(&FE,"Bad Comm|
00005130  61 6e 64 22 29 0d 02 08  05 cd 0d 02 09 05 cd 0d  |and")...........|
00005140  02 0a 4e cc 3a d9 23 41  3a 43 24 3d a4 57 28 43  |..N.:.#A:C$=.W(C|
00005150  24 29 3a c8 99 38 2c 35  2c 43 24 b8 2c 2c 57 25  |$):..8,5,C$.,,W%|
00005160  2c 77 25 3a 57 25 3d a4  41 28 57 25 80 26 46 46  |,w%:W%=.A(W%.&FF|
00005170  46 46 29 3a c8 99 38 2c  26 46 46 2c 43 24 2c 57  |FF):..8,&FF,C$,W|
00005180  25 2c 30 3a 21 4e 3d 77  25 3c 3c 31 36 0d 02 0b  |%,0:!N=w%<<16...|
00005190  05 cd 0d 02 0c 96 c9 32  2c 34 3a 4d 3d a4 41 28  |.......2,4:M=.A(|
000051a0  57 3f 33 2b 28 28 43 3f  33 29 3c 3c 38 29 29 3a  |W?3+((C?3)<<8)):|
000051b0  43 24 3d 24 4d 3a c8 99  26 32 30 30 30 38 2c 26  |C$=$M:..&20008,&|
000051c0  44 2c a4 46 28 43 24 29  2c 2c 2c a4 43 28 43 24  |D,.F(C$),,,.C(C$|
000051d0  29 b8 41 25 2c 2c 57 25  2c 77 25 2c 78 25 3b 71  |).A%,,W%,w%,x%;q|
000051e0  25 3a 57 25 3d a4 41 28  57 25 80 26 46 46 46 46  |%:W%=.A(W%.&FFFF|
000051f0  29 3a e7 57 25 2b 78 25  3e 6d 65 6d 6f 72 79 2b  |):.W%+x%>memory+|
00005200  26 38 30 30 30 80 57 25  3c 6d 65 6d 6f 72 79 2b  |&8000.W%<memory+|
00005210  26 38 30 30 30 8c 78 25  3d 6d 65 6d 6f 72 79 2b  |&8000.x%=memory+|
00005220  26 38 30 30 30 2d 57 25  0d 02 0d 4f c8 99 26 32  |&8000-W%...O..&2|
00005230  30 30 30 44 2c 37 37 2c  a4 46 28 43 24 29 2c a4  |000D,77,.F(C$),.|
00005240  43 28 43 24 29 b8 41 25  3b 71 25 3a e7 28 71 25  |C(C$).A%;q%:.(q%|
00005250  80 31 29 3d 30 8c c8 99  26 32 30 30 30 43 2c 34  |.1)=0...&2000C,4|
00005260  2c 41 25 2c 57 25 2c 78  25 3a c8 99 26 32 30 30  |,A%,W%,x%:..&200|
00005270  30 44 2c 30 2c 41 25 0d  02 0e 1a e7 28 71 25 80  |0D,0,A%.....(q%.|
00005280  31 29 3d 30 8c 21 4e 3d  77 25 3c 3c 31 36 8b f2  |1)=0.!N=w%<<16..|
00005290  53 0d 02 0f 09 c9 35 3a  f2 41 0d 02 10 0d c9 30  |S.....5:.A.....0|
000052a0  2c 36 2c 38 3a f2 41 0d  02 11 0f c9 39 2c 26 41  |,6,8:.A.....9,&A|
000052b0  2c 26 42 3a f2 41 0d 02  12 16 7f f1 22 4f 53 46  |,&B:.A......"OSF|
000052c0  53 43 20 22 3b 46 3f 33  3a 41 3d a5 0d 02 13 07  |SC ";F?3:A=.....|
000052d0  cb 3a e1 0d 02 14 23 dd  f2 75 3a 4d 3d a4 41 28  |.:....#..u:M=.A(|
000052e0  57 3f 33 2b 28 43 3f 33  29 2a 32 35 36 29 3a e7  |W?3+(C?3)*256):.|
000052f0  46 3f 33 3d 30 8c 0d 02  15 20 c8 99 26 32 30 30  |F?3=0.... ..&200|
00005300  30 44 2c 30 2c 43 3f 33  b8 41 25 3b 53 3a 41 25  |0D,0,C?3.A%;S:A%|
00005310  3d 30 3a 53 3d 30 0d 02  16 29 cc 3a c8 99 26 32  |=0:S=0...).:..&2|
00005320  30 30 30 44 2c 28 46 3f  33 29 84 31 2c a4 46 28  |000D,(F?3).1,.F(|
00005330  24 4d 29 2c a4 43 28 24  4d 29 b8 41 25 3b 53 0d  |$M),.C($M).A%;S.|
00005340  02 17 1b cd 3a e7 28 53  80 31 29 3d 30 8c 46 3f  |....:.(S.1)=0.F?|
00005350  33 3d 41 25 3a f2 41 8b  f2 53 0d 02 18 05 e1 0d  |3=A%:.A..S......|
00005360  02 19 28 dd f2 6a 3a c8  99 26 32 30 30 30 41 2c  |..(..j:..&2000A,|
00005370  46 3f 33 2c 43 3f 33 b8  41 25 3b 46 25 3a e7 28  |F?3,C?3.A%;F%:.(|
00005380  53 80 31 29 3d 30 8c 0d  02 1a 25 46 3f 33 3d 41  |S.1)=0....%F?3=A|
00005390  25 3a 3f 50 3d 3f 50 80  26 46 45 3a e7 28 46 25  |%:?P=?P.&FE:.(F%|
000053a0  80 32 29 3c 3e 30 8c 3f  50 2b 3d 31 0d 02 1b 06  |.2)<>0.?P+=1....|
000053b0  f2 41 0d 02 1c 08 cc 3a  f2 53 0d 02 1d 07 cd 3a  |.A.....:.S.....:|
000053c0  e1 0d 02 1e 2c dd f2 73  3a c8 99 26 32 30 30 30  |....,..s:..&2000|
000053d0  42 2c 46 3f 33 2c 43 3f  33 b8 41 25 3b 53 3a e7  |B,F?3,C?3.A%;S:.|
000053e0  28 53 80 31 29 3d 30 8c  f2 41 8b f2 53 0d 02 1f  |(S.1)=0..A..S...|
000053f0  05 e1 0d 02 20 76 dd f2  5f 28 5a 24 29 3a e7 a7  |.... v.._(Z$):..|
00005400  5a 24 2c 22 2e 22 29 3d  30 80 a7 5a 24 2c 22 3a  |Z$,".")=0..Z$,":|
00005410  22 29 3d 30 80 c0 5a 24  2c 36 29 3c 3e 22 3c 57  |")=0..Z$,6)<>"<W|
00005420  69 6d 70 24 22 8c c8 99  26 34 30 30 44 46 2c 22  |imp$"...&400DF,"|
00005430  20 20 20 20 54 6f 20 73  61 76 65 2c 20 64 72 61  |    To save, dra|
00005440  67 20 74 68 65 20 66 69  6c 65 20 69 63 6f 6e 20  |g the file icon |
00005450  74 6f 20 61 20 64 69 72  65 63 74 6f 72 79 20 76  |to a directory v|
00005460  69 65 77 65 72 22 3a e1  0d 02 21 16 c8 99 34 36  |iewer":...!...46|
00005470  2c 32 35 36 2b 26 43 2c  55 2c 5a 24 3a e1 0d 02  |,256+&C,U,Z$:...|
00005480  22 2f dd a4 48 28 41 24  29 3a ea 49 25 3a e3 49  |"/..H(A$):.I%:.I|
00005490  25 3d 31 b8 68 25 3a e7  a4 5a 28 53 24 28 49 25  |%=1.h%:..Z(S$(I%|
000054a0  29 29 3d a4 5a 28 41 24  29 8c 3d 49 25 0d 02 23  |))=.Z(A$).=I%..#|
000054b0  08 ed 3a 3d 30 0d 02 24  42 dd f2 52 28 41 24 29  |..:=0..$B..R(A$)|
000054c0  3a ea 49 25 3a 4f 24 3d  22 44 65 66 61 75 6c 74  |:.I%:O$="Default|
000054d0  22 3a e7 a4 5a 28 41 24  29 3d 22 52 49 53 43 50  |":..Z(A$)="RISCP|
000054e0  43 22 84 a4 5a 28 41 24  29 3d 22 41 52 43 48 49  |C"..Z(A$)="ARCHI|
000054f0  4d 45 44 45 53 22 8c 0d  02 25 10 41 24 3d 22 44  |MEDES"...%.A$="D|
00005500  65 66 61 75 6c 74 22 0d  02 26 59 cd 3a ff 22 53  |efault"..&Y.:."S|
00005510  65 74 20 36 35 30 32 45  6d 24 4b 65 79 6d 61 70  |et 6502Em$Keymap|
00005520  20 22 2b 41 24 3a f2 57  28 26 43 2c 41 24 29 3a  | "+A$:.W(&C,A$):|
00005530  e3 49 25 3d 31 b8 68 25  3a e7 a4 5a 28 53 24 28  |.I%=1.h%:..Z(S$(|
00005540  49 25 29 29 3d a4 5a 28  41 24 29 8c 4f 24 3d 41  |I%))=.Z(A$).O$=A|
00005550  24 3a 4b 79 25 3d 49 25  3a 49 25 3d 26 33 45 38  |$:Ky%=I%:I%=&3E8|
00005560  0d 02 27 27 ed 3a f2 41  79 28 22 3c 36 35 30 32  |..''.:.Ay("<6502|
00005570  45 6d 24 44 69 72 3e 2e  4b 65 79 6d 61 70 73 2e  |Em$Dir>.Keymaps.|
00005580  22 2b 4f 24 29 3a e1 0d  02 28 70 dd f2 59 79 3a  |"+O$):...(p..Yy:|
00005590  ea 74 25 2c 4e 25 3a 4b  79 25 3d 30 3a 68 25 3d  |.t%,N%:Ky%=0:h%=|
000055a0  30 3a f5 3a c8 99 26 43  2c 39 2c 22 3c 36 35 30  |0:.:..&C,9,"<650|
000055b0  32 45 6d 24 44 69 72 3e  2e 4b 65 79 6d 61 70 73  |2Em$Dir>.Keymaps|
000055c0  22 2c 5a 25 2c 26 36 34  2c 74 25 2c 32 35 36 2c  |",Z%,&64,t%,256,|
000055d0  30 b8 2c 2c 2c 4e 25 2c  74 25 3a 68 25 2b 3d 4e  |0.,,,N%,t%:h%+=N|
000055e0  25 3a fd 74 25 3d 2d 31  3a e7 68 25 3d 30 8c 56  |%:.t%=-1:.h%=0.V|
000055f0  79 25 3d 2d 31 3a e1 0d  02 29 6a de 53 24 28 68  |y%=-1:...)j.S$(h|
00005600  25 29 2c 56 79 25 33 32  2b 32 34 2a 68 25 3a 74  |%),Vy%32+24*h%:t|
00005610  25 3d 30 3a e3 4e 25 3d  31 b8 68 25 3a c8 99 26  |%=0:.N%=1.h%:..&|
00005620  43 2c 39 2c 22 3c 36 35  30 32 45 6d 24 44 69 72  |C,9,"<6502Em$Dir|
00005630  3e 2e 4b 65 79 6d 61 70  73 22 2c 5a 25 2c 31 2c  |>.Keymaps",Z%,1,|
00005640  74 25 2c 32 35 36 2c 30  b8 2c 2c 2c 2c 74 25 3a  |t%,256,0.,,,,t%:|
00005650  53 24 28 4e 25 29 3d a4  44 28 5a 25 29 3a ed 3a  |S$(N%)=.D(Z%):.:|
00005660  e1 0d 02 2a 57 dd f2 62  79 3a ea 49 25 3a 41 3d  |...*W..by:.I%:A=|
00005670  8e 22 3c 36 35 30 32 45  6d 24 52 65 73 3e 2e 53  |."<6502Em$Res>.S|
00005680  70 65 65 64 4d 65 6e 75  22 3a 41 79 25 3d 2d 31  |peedMenu":Ay%=-1|
00005690  3a f5 41 79 25 2b 3d 31  3a 41 24 3d be 23 41 3a  |:.Ay%+=1:A$=.#A:|
000056a0  fd c5 23 41 84 41 24 3d  22 22 3a e7 41 24 3d 22  |..#A.A$="":.A$="|
000056b0  22 8c 41 79 25 2d 3d 31  0d 02 2b 41 cf 23 41 3d  |".Ay%-=1..+A.#A=|
000056c0  30 3a de 46 24 28 41 79  25 29 2c 77 79 25 33 32  |0:.F$(Ay%),wy%32|
000056d0  2b 32 34 2a 20 28 41 79  25 2b 33 29 3a e3 49 25  |+24* (Ay%+3):.I%|
000056e0  3d 30 b8 41 79 25 3a 46  24 28 49 25 29 3d be 23  |=0.Ay%:F$(I%)=.#|
000056f0  41 3a ed 3a d9 23 41 3a  e1 0d 02 2c 6f dd f2 66  |A:.:.#A:...,o..f|
00005700  79 3a ea 74 25 2c 4e 25  3a 79 25 3d 30 3a 76 25  |y:.t%,N%:y%=0:v%|
00005710  3d 30 3a f5 3a c8 99 26  43 2c 39 2c 22 3c 36 35  |=0:.:..&C,9,"<65|
00005720  30 32 45 6d 24 44 69 72  3e 2e 50 61 74 63 68 65  |02Em$Dir>.Patche|
00005730  73 22 2c 5a 25 2c 26 36  34 2c 74 25 2c 32 35 36  |s",Z%,&64,t%,256|
00005740  2c 30 b8 2c 2c 2c 4e 25  2c 74 25 3a 76 25 2b 3d  |,0.,,,N%,t%:v%+=|
00005750  4e 25 3a fd 74 25 3d 2d  31 3a e7 76 25 3d 30 8c  |N%:.t%=-1:.v%=0.|
00005760  71 79 25 3d 2d 31 3a e1  0d 02 2d 6f de 4d 24 28  |qy%=-1:...-o.M$(|
00005770  76 25 29 2c 71 79 25 33  32 2b 32 34 2a 20 28 76  |v%),qy%32+24* (v|
00005780  25 2b 32 29 3a 74 25 3d  30 3a e3 4e 25 3d 31 b8  |%+2):t%=0:.N%=1.|
00005790  76 25 3a c8 99 26 43 2c  39 2c 22 3c 36 35 30 32  |v%:..&C,9,"<6502|
000057a0  45 6d 24 44 69 72 3e 2e  50 61 74 63 68 65 73 22  |Em$Dir>.Patches"|
000057b0  2c 5a 25 2c 31 2c 74 25  2c 32 35 36 2c 30 b8 2c  |,Z%,1,t%,256,0.,|
000057c0  2c 2c 2c 74 25 3a 4d 24  28 4e 25 29 3d a4 44 28  |,,,t%:M$(N%)=.D(|
000057d0  5a 25 29 3a ed 3a e1 0d  02 2e 36 dd a4 44 28 41  |Z%):.:....6..D(A|
000057e0  25 29 3a ea 41 24 2c 49  25 3a f5 3a 41 24 3d 41  |%):.A$,I%:.:A$=A|
000057f0  24 2b bd 28 41 25 3f 49  25 29 3a 49 25 2b 3d 31  |$+.(A%?I%):I%+=1|
00005800  3a fd 41 25 3f 49 25 3d  30 3a 3d 41 24 0d 02 2f  |:.A%?I%=0:=A$../|
00005810  52 dd f2 4f 3a ff 22 4c  6f 61 64 20 3c 36 35 30  |R..O:."Load <650|
00005820  32 45 6d 24 44 69 72 3e  2e 50 61 74 63 68 65 73  |2Em$Dir>.Patches|
00005830  2e 22 2b 4d 24 28 79 25  29 2b 22 20 22 2b c3 7e  |."+M$(y%)+" "+.~|
00005840  28 58 2b 21 50 79 29 3a  3f 7a 3d 3f 7a 84 31 3a  |(X+!Py):?z=?z.1:|
00005850  f2 57 28 26 45 2c 4d 24  28 79 25 29 29 3a e1 0d  |.W(&E,M$(y%)):..|
00005860  02 30 1f dd a4 4a 28 41  25 29 3a 3f 5a 3d 31 3a  |.0...J(A%):?Z=1:|
00005870  c8 99 37 2c 26 45 2c 5a  3a 3d 5a 3f 41 25 0d 02  |..7,&E,Z:=Z?A%..|
00005880  31 12 dd f2 61 79 3a c8  8e 57 3f 33 80 36 33 ca  |1...ay:..W?3.63.|
00005890  0d 02 32 10 c9 30 3a 43  3f 33 3d a4 4a 28 36 29  |..2..0:C?3=.J(6)|
000058a0  0d 02 33 0c c9 31 3a 43  3f 33 3d 31 0d 02 34 10  |..3..1:C?3=1..4.|
000058b0  c9 32 3a 43 3f 33 3d a4  4a 28 35 29 0d 02 35 0c  |.2:C?3=.J(5)..5.|
000058c0  c9 33 3a 43 3f 33 3d 31  0d 02 36 10 c9 34 3a 43  |.3:C?3=1..6..4:C|
000058d0  3f 33 3d a4 4a 28 34 29  0d 02 37 0c c9 35 3a 43  |?3=.J(4)..7..5:C|
000058e0  3f 33 3d 31 0d 02 38 10  c9 36 3a 43 3f 33 3d a4  |?3=1..8..6:C?3=.|
000058f0  4a 28 33 29 0d 02 39 10  c9 37 3a 43 3f 33 3d a4  |J(3)..9..7:C?3=.|
00005900  4a 28 32 29 0d 02 3a 10  c9 38 3a 43 3f 33 3d a4  |J(2)..:..8:C?3=.|
00005910  4a 28 31 29 0d 02 3b 10  c9 39 3a 43 3f 33 3d a4  |J(1)..;..9:C?3=.|
00005920  4a 28 30 29 0d 02 3c 0e  c9 26 41 3a 43 3f 33 3d  |J(0)..<..&A:C?3=|
00005930  33 32 0d 02 3d 0d c9 26  42 3a 43 3f 33 3d 32 0d  |32..=..&B:C?3=2.|
00005940  02 3e 0d c9 26 43 3a 43  3f 33 3d 30 0d 02 3f 0d  |.>..&C:C?3=0..?.|
00005950  c9 26 44 3a 43 3f 33 3d  30 0d 02 40 13 7f 43 3f  |.&D:C?3=0..@..C?|
00005960  33 3d 4d 25 28 57 3f 33  80 36 33 29 0d 02 41 12  |3=M%(W?3.63)..A.|
00005970  cb 3a 46 3f 33 3d 43 3f  33 3a f2 41 3a e1 0d 02  |.:F?3=C?3:.A:...|
00005980  42 21 dd f2 71 79 3a 43  3f 33 3d 53 25 28 57 3f  |B!..qy:C?3=S%(W?|
00005990  33 29 3a 46 3f 33 3d 43  3f 33 3a f2 41 3a e1 0d  |3):F?3=C?3:.A:..|
000059a0  02 43 28 dd f2 47 79 3a  4d 25 28 57 3f 33 80 36  |.C(..Gy:M%(W?3.6|
000059b0  33 29 3d 43 3f 33 3a f2  41 3a e7 28 57 3f 33 80  |3)=C?3:.A:.(W?3.|
000059c0  36 33 29 3e 26 44 8c 0d  02 44 31 41 3d ad 22 3c  |63)>&D...D1A=."<|
000059d0  36 35 30 32 45 6d 24 52  65 73 3e 2e 43 4d 4f 53  |6502Em$Res>.CMOS|
000059e0  22 3a cf 23 41 3d 57 3f  33 80 36 33 3a d5 23 41  |":.#A=W?3.63:.#A|
000059f0  2c 43 3f 33 3a d9 23 41  0d 02 45 07 cd 3a e1 0d  |,C?3:.#A..E..:..|
00005a00  02 46 46 dd f2 43 79 3a  53 25 28 57 3f 33 29 3d  |.FF..Cy:S%(W?3)=|
00005a10  43 3f 33 3a f2 41 3a 41  3d ad 22 3c 36 35 30 32  |C?3:.A:A=."<6502|
00005a20  45 6d 24 52 65 73 3e 2e  45 45 50 52 4f 4d 22 3a  |Em$Res>.EEPROM":|
00005a30  cf 23 41 3d 57 3f 33 3a  d5 23 41 2c 43 3f 33 3a  |.#A=W?3:.#A,C?3:|
00005a40  d9 23 41 3a e1 0d 02 47  41 dd f2 63 79 3a ea 41  |.#A:...GA..cy:.A|
00005a50  2c 49 25 3a 41 3d 8e 22  3c 36 35 30 32 45 6d 24  |,I%:A=."<6502Em$|
00005a60  52 65 73 3e 2e 43 4d 4f  53 22 3a e3 49 25 3d 30  |Res>.CMOS":.I%=0|
00005a70  b8 36 33 3a 4d 25 28 49  25 29 3d 9a 23 41 3a ed  |.63:M%(I%)=.#A:.|
00005a80  3a d9 23 41 3a e1 0d 02  48 44 dd f2 68 79 3a ea  |:.#A:...HD..hy:.|
00005a90  41 2c 49 25 3a 41 3d 8e  22 3c 36 35 30 32 45 6d  |A,I%:A=."<6502Em|
00005aa0  24 52 65 73 3e 2e 45 45  50 52 4f 4d 22 3a e3 49  |$Res>.EEPROM":.I|
00005ab0  25 3d 30 b8 26 46 46 3a  53 25 28 49 25 29 3d 9a  |%=0.&FF:S%(I%)=.|
00005ac0  23 41 3a ed 3a d9 23 41  3a e1 0d 02 49 41 dd f2  |#A:.:.#A:...IA..|
00005ad0  48 28 4a 24 29 3a ff 22  4c 4f 41 44 20 3c 36 35  |H(J$):."LOAD <65|
00005ae0  30 32 45 6d 24 44 69 72  3e 2e 22 2b 4a 24 2b 22  |02Em$Dir>."+J$+"|
00005af0  20 22 2b c3 7e 58 3a d6  58 2b 21 46 79 3a f2 4a  | "+.~X:.X+!Fy:.J|
00005b00  79 3a e7 79 25 3c 3e 30  8c f2 4f 0d 02 4a 05 e1  |y:.y%<>0..O..J..|
00005b10  0d 02 4b e9 dd f2 67 79  3a f2 48 28 22 43 6f 64  |..K...gy:.H("Cod|
00005b20  65 4d 22 29 3a ff 22 4c  4f 41 44 20 3c 36 35 30  |eM"):."LOAD <650|
00005b30  32 45 6d 24 44 69 72 3e  2e 52 4f 4d 53 2e 4d 31  |2Em$Dir>.ROMS.M1|
00005b40  32 38 2e 4f 53 33 2c 32  20 22 2b c3 7e 28 6d 65  |28.OS3,2 "+.~(me|
00005b50  6d 6f 72 79 2b 26 43 30  30 30 29 3a ff 22 4c 4f  |mory+&C000):."LO|
00005b60  41 44 20 3c 36 35 30 32  45 6d 24 44 69 72 3e 2e  |AD <6502Em$Dir>.|
00005b70  52 4f 4d 53 2e 4d 31 32  38 2e 4f 53 33 2c 32 20  |ROMS.M128.OS3,2 |
00005b80  22 2b c3 7e 28 72 6f 6d  73 2b 55 25 2a 31 36 29  |"+.~(roms+U%*16)|
00005b90  3a ff 22 4c 4f 41 44 20  3c 36 35 30 32 45 6d 24  |:."LOAD <6502Em$|
00005ba0  52 65 73 3e 2e 53 48 45  49 4c 41 20 22 2b c3 7e  |Res>.SHEILA "+.~|
00005bb0  51 3a 5f 25 3d 26 46 3a  f2 4d 28 22 4d 31 32 38  |Q:_%=&F:.M("M128|
00005bc0  2e 54 65 72 6d 69 6e 61  6c 22 2c 31 29 3a 3f 28  |.Terminal",1):?(|
00005bd0  72 6f 6d 73 2b 55 25 2a  26 46 2b 36 33 32 37 29  |roms+U%*&F+6327)|
00005be0  3d 33 3a 3f 28 72 6f 6d  73 2b 55 25 2a 26 46 2b  |=3:?(roms+U%*&F+|
00005bf0  36 33 32 38 29 3d 26 38  30 0d 02 4c b8 3f 28 72  |6328)=&80..L.?(r|
00005c00  6f 6d 73 2b 55 25 2a 26  46 2b 36 33 37 32 29 3d  |oms+U%*&F+6372)=|
00005c10  33 3a 3f 28 72 6f 6d 73  2b 55 25 2a 26 46 2b 36  |3:?(roms+U%*&F+6|
00005c20  33 37 33 29 3d 26 38 31  3a f2 4d 28 22 4d 31 32  |373)=&81:.M("M12|
00005c30  38 2e 56 69 65 77 22 2c  31 29 3a f2 4d 28 22 56  |8.View",1):.M("V|
00005c40  44 46 53 22 2c 31 29 3a  f2 4d 28 22 4d 31 32 38  |DFS",1):.M("M128|
00005c50  2e 42 41 53 49 43 49 56  38 34 22 2c 31 29 3a f2  |.BASICIV84",1):.|
00005c60  4d 28 22 4d 31 32 38 2e  45 64 69 74 31 2c 30 30  |M("M128.Edit1,00|
00005c70  22 2c 31 29 3a f2 4d 28  22 4d 31 32 38 2e 56 69  |",1):.M("M128.Vi|
00005c80  65 77 53 68 65 65 74 22  2c 31 29 3a f2 4d 28 22  |ewSheet",1):.M("|
00005c90  4d 31 32 38 2e 44 46 53  32 2c 32 34 22 2c 31 29  |M128.DFS2,24",1)|
00005ca0  3a f2 43 3a f2 43 3a f2  43 3a f2 43 3a f2 43 3a  |:.C:.C:.C:.C:.C:|
00005cb0  e1 0d 02 4d eb dd f2 6a  79 3a f2 48 28 22 43 6f  |...M...jy:.H("Co|
00005cc0  64 65 4d 22 29 3a ff 22  4c 4f 41 44 20 3c 36 35  |deM"):."LOAD <65|
00005cd0  30 32 45 6d 24 44 69 72  3e 2e 52 4f 4d 53 2e 4d  |02Em$Dir>.ROMS.M|
00005ce0  31 32 38 2e 4f 53 33 2c  35 20 22 2b c3 7e 28 6d  |128.OS3,5 "+.~(m|
00005cf0  65 6d 6f 72 79 2b 26 43  30 30 30 29 3a ff 22 4c  |emory+&C000):."L|
00005d00  4f 41 44 20 3c 36 35 30  32 45 6d 24 44 69 72 3e  |OAD <6502Em$Dir>|
00005d10  2e 52 4f 4d 53 2e 4d 31  32 38 2e 4f 53 33 2c 35  |.ROMS.M128.OS3,5|
00005d20  20 22 2b c3 7e 28 72 6f  6d 73 2b 55 25 2a 31 36  | "+.~(roms+U%*16|
00005d30  29 3a ff 22 4c 4f 41 44  20 3c 36 35 30 32 45 6d  |):."LOAD <6502Em|
00005d40  24 52 65 73 3e 2e 53 48  45 49 4c 41 20 22 2b c3  |$Res>.SHEILA "+.|
00005d50  7e 51 3a 5f 25 3d 26 46  3a f2 4d 28 22 4d 31 32  |~Q:_%=&F:.M("M12|
00005d60  38 2e 54 65 72 6d 69 6e  61 6c 33 35 22 2c 31 29  |8.Terminal35",1)|
00005d70  3a 3f 28 72 6f 6d 73 2b  55 25 2a 26 46 2b 35 37  |:?(roms+U%*&F+57|
00005d80  39 35 29 3d 33 3a 3f 28  72 6f 6d 73 2b 55 25 2a  |95)=3:?(roms+U%*|
00005d90  26 46 2b 35 37 39 36 29  3d 26 38 30 0d 02 4e be  |&F+5796)=&80..N.|
00005da0  3f 28 72 6f 6d 73 2b 55  25 2a 26 46 2b 35 38 34  |?(roms+U%*&F+584|
00005db0  30 29 3d 33 3a 3f 28 72  6f 6d 73 2b 55 25 2a 26  |0)=3:?(roms+U%*&|
00005dc0  46 2b 35 38 34 31 29 3d  26 38 31 3a f2 4d 28 22  |F+5841)=&81:.M("|
00005dd0  4d 31 32 38 2e 56 69 65  77 42 33 2c 33 22 2c 31  |M128.ViewB3,3",1|
00005de0  29 3a f2 4d 28 22 56 44  46 53 22 2c 31 29 3a f2  |):.M("VDFS",1):.|
00005df0  4d 28 22 4d 31 32 38 2e  42 41 53 49 43 34 72 33  |M("M128.BASIC4r3|
00005e00  32 22 2c 31 29 3a f2 4d  28 22 4d 31 32 38 2e 45  |2",1):.M("M128.E|
00005e10  64 69 74 31 2c 35 30 72  22 2c 31 29 3a f2 4d 28  |dit1,50r",1):.M(|
00005e20  22 4d 31 32 38 2e 56 69  65 77 53 68 31 2c 30 31  |"M128.ViewSh1,01|
00005e30  22 2c 31 29 3a f2 4d 28  22 4d 31 32 38 2e 44 46  |",1):.M("M128.DF|
00005e40  53 32 2c 34 35 22 2c 31  29 3a f2 43 3a f2 43 3a  |S2,45",1):.C:.C:|
00005e50  f2 43 3a f2 43 3a f2 43  3a e1 0d 02 4f e3 dd f2  |.C:.C:.C:...O...|
00005e60  5f 79 3a f2 48 28 22 43  6f 64 65 4d 22 29 3a ff  |_y:.H("CodeM"):.|
00005e70  22 4c 4f 41 44 20 3c 36  35 30 32 45 6d 24 44 69  |"LOAD <6502Em$Di|
00005e80  72 3e 2e 52 4f 4d 53 2e  43 6f 6d 70 61 63 74 2e  |r>.ROMS.Compact.|
00005e90  4f 53 35 2c 31 20 22 2b  c3 7e 28 6d 65 6d 6f 72  |OS5,1 "+.~(memor|
00005ea0  79 2b 26 43 30 30 30 29  3a ff 22 4c 4f 41 44 20  |y+&C000):."LOAD |
00005eb0  3c 36 35 30 32 45 6d 24  44 69 72 3e 2e 52 4f 4d  |<6502Em$Dir>.ROM|
00005ec0  53 2e 43 6f 6d 70 61 63  74 2e 4f 53 35 2c 31 20  |S.Compact.OS5,1 |
00005ed0  22 2b c3 7e 28 72 6f 6d  73 2b 26 34 30 30 30 2a  |"+.~(roms+&4000*|
00005ee0  31 36 29 3a ff 22 4c 4f  41 44 20 3c 36 35 30 32  |16):."LOAD <6502|
00005ef0  45 6d 24 52 65 73 3e 2e  53 48 45 49 4c 41 20 22  |Em$Res>.SHEILA "|
00005f00  2b c3 7e 51 3a 5f 25 3d  26 46 3a f2 4d 28 22 43  |+.~Q:_%=&F:.M("C|
00005f10  6f 6d 70 61 63 74 2e 55  74 69 6c 73 22 2c 31 29  |ompact.Utils",1)|
00005f20  3a 3f 28 72 6f 6d 73 2b  55 25 2a 26 46 2b 26 39  |:?(roms+U%*&F+&9|
00005f30  45 33 41 20 2d 26 38 30  30 30 29 3d 33 0d 02 50  |E3A -&8000)=3..P|
00005f40  98 3f 28 72 6f 6d 73 2b  55 25 2a 26 46 2b 26 39  |.?(roms+U%*&F+&9|
00005f50  45 33 42 20 2d 26 38 30  30 30 29 3d 26 38 32 3a  |E3B -&8000)=&82:|
00005f60  3f 28 72 6f 6d 73 2b 55  25 2a 26 46 2b 26 39 46  |?(roms+U%*&F+&9F|
00005f70  33 41 20 2d 26 38 30 30  30 29 3d 33 3a 3f 28 72  |3A -&8000)=3:?(r|
00005f80  6f 6d 73 2b 55 25 2a 26  46 2b 26 39 46 33 42 20  |oms+U%*&F+&9F3B |
00005f90  2d 26 38 30 30 30 29 3d  26 38 33 3a f2 4d 28 22  |-&8000)=&83:.M("|
00005fa0  43 6f 6d 70 61 63 74 2e  42 41 53 49 43 49 56 38  |Compact.BASICIV8|
00005fb0  36 22 2c 31 29 3a f2 4d  28 22 56 44 46 53 22 2c  |6",1):.M("VDFS",|
00005fc0  31 29 3a 5f 25 3d 37 3a  f2 43 3a f2 43 3a f2 43  |1):_%=7:.C:.C:.C|
00005fd0  3a f2 43 3a e1 0d 02 51  6e dd f2 4c 79 3a f2 48  |:.C:...Qn..Ly:.H|
00005fe0  28 22 43 6f 64 65 45 22  29 3a ff 22 4c 4f 41 44  |("CodeE"):."LOAD|
00005ff0  20 3c 36 35 30 32 45 6d  24 44 69 72 3e 2e 52 4f  | <6502Em$Dir>.RO|
00006000  4d 53 2e 45 4c 45 43 54  52 4f 4e 20 22 2b c3 7e  |MS.ELECTRON "+.~|
00006010  28 6d 65 6d 6f 72 79 2b  26 43 30 30 30 29 3a 5f  |(memory+&C000):_|
00006020  25 3d 26 46 3a f2 4d 28  22 42 41 53 49 43 49 49  |%=&F:.M("BASICII|
00006030  22 2c 31 29 3a f2 4d 28  22 56 44 46 53 22 2c 31  |",1):.M("VDFS",1|
00006040  29 3a e1 0d 02 52 93 dd  f2 5a 79 3a f2 48 28 22  |):...R...Zy:.H("|
00006050  43 6f 64 65 22 29 3a 3f  61 3d 30 3a ff 22 4c 4f  |Code"):?a=0:."LO|
00006060  41 44 20 3c 36 35 30 32  45 6d 24 44 69 72 3e 2e  |AD <6502Em$Dir>.|
00006070  52 4f 4d 53 2e 4f 53 31  2c 32 20 22 2b c3 7e 28  |ROMS.OS1,2 "+.~(|
00006080  6d 65 6d 6f 72 79 2b 26  43 30 30 30 29 3a ff 22  |memory+&C000):."|
00006090  4c 4f 41 44 20 3c 36 35  30 32 45 6d 24 52 65 73  |LOAD <6502Em$Res|
000060a0  3e 2e 53 48 45 49 4c 41  20 22 2b c3 7e 51 3a 5f  |>.SHEILA "+.~Q:_|
000060b0  25 3d 26 46 3a f2 4d 28  22 42 41 53 49 43 49 49  |%=&F:.M("BASICII|
000060c0  22 2c 31 29 3a f2 4d 28  22 56 44 46 53 22 2c 31  |",1):.M("VDFS",1|
000060d0  29 3a f2 43 3a e1 0d 02  53 48 dd f2 55 3a f2 59  |):.C:...SH..U:.Y|
000060e0  28 72 6f 6d 73 2c 72 6f  6d 73 2b 31 36 2a 55 25  |(roms,roms+16*U%|
000060f0  29 3a f2 59 28 6d 65 6d  6f 72 79 2d 35 31 32 2c  |):.Y(memory-512,|
00006100  6d 65 6d 6f 72 79 2b 36  34 2a 26 34 30 30 29 3a  |memory+64*&400):|
00006110  f2 56 79 3a e7 61 25 3e  34 8c 61 25 3d 30 0d 02  |.Vy:.a%>4.a%=0..|
00006120  54 17 f2 57 28 26 41 2c  41 24 28 61 25 29 29 3a  |T..W(&A,A$(a%)):|
00006130  c8 8e 61 25 ca 0d 02 55  1a c9 31 3a e7 5a 25 28  |..a%...U..1:.Z%(|
00006140  31 29 3d 30 8c 61 25 2b  3d 31 3a f2 55 3a e1 0d  |1)=0.a%+=1:.U:..|
00006150  02 56 07 f2 67 79 0d 02  57 1a c9 32 3a e7 5a 25  |.V..gy..W..2:.Z%|
00006160  28 32 29 3d 30 8c 61 25  2b 3d 31 3a f2 55 3a e1  |(2)=0.a%+=1:.U:.|
00006170  0d 02 58 07 f2 6a 79 0d  02 59 1a c9 33 3a e7 5a  |..X..jy..Y..3:.Z|
00006180  25 28 33 29 3d 30 8c 61  25 2b 3d 31 3a f2 55 3a  |%(3)=0.a%+=1:.U:|
00006190  e1 0d 02 5a 07 f2 5f 79  0d 02 5b 0a c9 34 3a f2  |...Z.._y..[..4:.|
000061a0  4c 79 0d 02 5c 08 7f f2  5a 79 0d 02 5d 28 cb 3a  |Ly..\...Zy..](.:|
000061b0  49 3d 6d 65 6d 6f 72 79  3f 26 46 46 45 30 3a f2  |I=memory?&FFE0:.|
000061c0  48 79 28 5a 24 28 61 25  29 29 3a f2 44 28 31 29  |Hy(Z$(a%)):.D(1)|
000061d0  3a e1 0d 02 5e 75 dd f2  72 3a 56 24 3d 22 3c 36  |:...^u..r:V$="<6|
000061e0  35 30 32 45 6d 24 44 69  72 3e 2e 5e 2e 54 61 70  |502Em$Dir>.^.Tap|
000061f0  65 2d 49 6e 22 3a 5a 79  25 3d b9 3a 73 79 25 3d  |e-In":Zy%=.:sy%=|
00006200  b9 3a 44 79 25 3d b9 3a  60 25 3d a3 3a 51 79 25  |.:Dy%=.:`%=.:Qy%|
00006210  3d a3 3a 61 25 3d 49 79  25 3a 75 25 3d b9 3a 42  |=.:a%=Iy%:u%=.:B|
00006220  79 25 3d a3 3a 59 3d a3  3a 6c 25 3d 26 37 46 3a  |y%=.:Y=.:l%=&7F:|
00006230  f2 52 28 22 44 65 66 61  75 6c 74 22 29 3a f2 47  |.R("Default"):.G|
00006240  28 26 36 34 29 3a e1 0d  02 5f 7d dd f2 51 79 3a  |(&64):..._}..Qy:|
00006250  41 3d ae 22 3c 36 35 30  32 45 6d 24 52 65 73 3e  |A=."<6502Em$Res>|
00006260  2e 4f 70 74 69 6f 6e 73  22 3a f1 23 41 2c 5a 79  |.Options":.#A,Zy|
00006270  25 3a f1 23 41 2c 73 79  25 3a f1 23 41 2c 44 79  |%:.#A,sy%:.#A,Dy|
00006280  25 3a f1 23 41 2c 60 25  3a f1 23 41 2c 51 79 25  |%:.#A,`%:.#A,Qy%|
00006290  3a f1 23 41 2c 30 3a f1  23 41 2c 61 25 3a f1 23  |:.#A,0:.#A,a%:.#|
000062a0  41 2c 75 25 3a f1 23 41  2c 59 3a f1 23 41 2c 6c  |A,u%:.#A,Y:.#A,l|
000062b0  25 3a f1 23 41 2c 4f 24  3a f1 23 41 2c 71 3a d9  |%:.#A,O$:.#A,q:.|
000062c0  23 41 3a e1 0d 02 60 48  dd f2 75 79 3a 56 24 3d  |#A:...`H..uy:V$=|
000062d0  22 3c 36 35 30 32 45 6d  24 44 69 72 3e 2e 5e 2e  |"<6502Em$Dir>.^.|
000062e0  54 61 70 65 2d 49 6e 22  3a 41 3d 8e 22 3c 36 35  |Tape-In":A=."<65|
000062f0  30 32 45 6d 24 52 65 73  3e 2e 4f 70 74 69 6f 6e  |02Em$Res>.Option|
00006300  73 22 3a e7 41 3d 30 8c  f2 72 3a e1 0d 02 61 6d  |s":.A=0..r:...am|
00006310  e8 23 41 2c 5a 79 25 3a  e8 23 41 2c 73 79 25 3a  |.#A,Zy%:.#A,sy%:|
00006320  e8 23 41 2c 44 79 25 3a  e8 23 41 2c 60 25 3a e8  |.#A,Dy%:.#A,`%:.|
00006330  23 41 2c 51 79 25 3a e8  23 41 2c 56 5f 25 3a e8  |#A,Qy%:.#A,V_%:.|
00006340  23 41 2c 61 25 3a e8 23  41 2c 75 25 3a 42 79 25  |#A,a%:.#A,u%:By%|
00006350  3d a3 3a e8 23 41 2c 59  3a e8 23 41 2c 6c 25 3a  |=.:.#A,Y:.#A,l%:|
00006360  e8 23 41 2c 58 24 3a f2  52 28 58 24 29 3a e8 23  |.#A,X$:.R(X$):.#|
00006370  41 2c 71 3a d9 23 41 3a  e1 0d 02 62 6c dd f2 4c  |A,q:.#A:...bl..L|
00006380  28 41 25 2c 42 25 2c 43  25 29 3a 50 25 3d 5a 3a  |(A%,B%,C%):P%=Z:|
00006390  5b 4f 50 54 32 3a 2e 64  3a 53 55 42 53 32 2c 32  |[OPT2:.d:SUBS2,2|
000063a0  2c 23 34 3a 4c 44 52 33  2c 5b 30 2c 32 5d 3a 4c  |,#4:LDR3,[0,2]:L|
000063b0  44 52 34 2c 5b 31 2c 32  5d 3a 53 54 52 33 2c 5b  |DR4,[1,2]:STR3,[|
000063c0  31 2c 32 5d 3a 53 54 52  34 2c 5b 30 2c 32 5d 3a  |1,2]:STR4,[0,2]:|
000063d0  42 4e 45 20 64 3a 4d 4f  56 70 63 2c 26 45 3a 5d  |BNE d:MOVpc,&E:]|
000063e0  3a d6 64 3a e1 0d 02 63  6a dd f2 59 28 53 25 2c  |:.d:...cj..Y(S%,|
000063f0  45 25 29 3a 50 25 3d 5a  3a 5b 4f 50 54 32 3a 26  |E%):P%=Z:[OPT2:&|
00006400  53 25 3a 26 45 25 3a 2e  49 79 3a 4d 4f 56 30 2c  |S%:&E%:.Iy:MOV0,|
00006410  23 30 3a 4c 44 52 31 2c  5a 3a 4c 44 52 32 2c 5a  |#0:LDR1,Z:LDR2,Z|
00006420  2b 34 3a 2e 6c 3a 53 54  52 30 2c 5b 31 5d 2c 23  |+4:.l:STR0,[1],#|
00006430  34 3a 43 4d 50 31 2c 32  3a 42 4e 45 20 6c 3a 4d  |4:CMP1,2:BNE l:M|
00006440  4f 56 70 63 2c 26 45 3a  5d 3a d6 49 79 3a e1 0d  |OVpc,&E:]:.Iy:..|
00006450  02 64 0d dd f2 55 79 3a  f2 41 3a e1 0d 02 65 53  |.d...Uy:.A:...eS|
00006460  dd f2 67 3a ea 4d 2c 47  79 25 2c 74 79 25 2c 66  |..g:.M,Gy%,ty%,f|
00006470  79 25 2c 60 79 25 2c 77  2c 69 25 3a 4d 3d 6d 65  |y%,`y%,w,i%:M=me|
00006480  6d 6f 72 79 3f 26 46 30  3a 4d 2b 3d 6d 65 6d 6f  |mory?&F0:M+=memo|
00006490  72 79 3f 26 46 31 3c 3c  38 3a 4d 3d a4 41 28 4d  |ry?&F1<<8:M=.A(M|
000064a0  29 3a c8 8e 6d 65 6d 6f  72 79 3f 26 45 46 ca 0d  |):..memory?&EF..|
000064b0  02 66 0c c9 26 37 46 3a  e7 44 8c 0d 02 67 3e c8  |.f..&7F:.D...g>.|
000064c0  99 22 58 49 6d 61 67 65  44 46 53 5f 4f 53 57 4f  |."XImageDFS_OSWO|
000064d0  52 44 37 46 22 2c 2c 6d  65 6d 6f 72 79 3f 26 46  |RD7F",,memory?&F|
000064e0  30 2c 6d 65 6d 6f 72 79  3f 26 46 31 2c 6d 65 6d  |0,memory?&F1,mem|
000064f0  6f 72 79 3a 46 3f 33 3d  30 0d 02 68 fe cc 3a 69  |ory:F?3=0..h..:i|
00006500  25 3d 4d 3f 30 3a 66 79  25 3d a4 41 28 4d 21 31  |%=M?0:fy%=.A(M!1|
00006510  80 26 46 46 46 46 29 3a  60 79 25 3d 4d 3f 37 3a  |.&FFFF):`y%=M?7:|
00006520  47 79 25 3d 4d 3f 38 3a  74 79 25 3d 28 4d 3f 39  |Gy%=M?8:ty%=(M?9|
00006530  29 80 33 31 3a 77 3d 28  28 4d 3f 39 29 3e 3e 35  |).31:w=((M?9)>>5|
00006540  29 2b 37 3a 5a 3f 30 3d  77 3a 5a 3f 31 3d 26 41  |)+7:Z?0=w:Z?1=&A|
00006550  3a 5a 3f 32 3d 31 3a 5a  3f 33 3d 31 3a 5a 21 34  |:Z?2=1:Z?3=1:Z!4|
00006560  3d 30 3a 5a 21 38 3d 30  3a 5a 21 26 43 3d 31 3c  |=0:Z!8=0:Z!&C=1<|
00006570  3c 32 39 3a 5a 21 31 36  3d 26 36 34 30 30 30 3a  |<29:Z!16=&64000:|
00006580  5a 21 32 30 3d 30 3a 5a  21 32 34 3d 30 3a 5a 21  |Z!20=0:Z!24=0:Z!|
00006590  32 38 3d 30 3a c8 99 26  36 30 32 34 30 2c 2c 31  |28=0:..&60240,,1|
000065a0  2b 28 5a 3c 3c 36 29 2c  28 60 79 25 2a 26 41 2b  |+(Z<<6),(`y%*&A+|
000065b0  47 79 25 29 2a 32 5e 77  2b 28 6f 73 77 6f 72 64  |Gy%)*2^w+(osword|
000065c0  37 46 5f 64 72 69 76 65  25 3c 3c 32 39 29 2c 66  |7F_drive%<<29),f|
000065d0  79 25 2c 74 79 25 2a 32  5e 77 b8 41 25 3b 53 3a  |y%,ty%*2^w.A%;S:|
000065e0  e7 28 53 80 31 29 3d 30  8c 4d 3f 26 41 3d 30 8b  |.(S.1)=0.M?&A=0.|
000065f0  4d 3f 26 41 3d 41 25 0d  02 69 09 46 3f 33 3d 30  |M?&A=A%..i.F?3=0|
00006600  0d 02 6a 05 cd 0d 02 6b  10 c9 26 37 32 3a e7 4d  |..j....k..&72:.M|
00006610  3f 35 3d 38 8c 0d 02 6c  92 47 79 25 3d 4d 3f 38  |?5=8...l.Gy%=M?8|
00006620  3a 47 79 25 2b 3d 4d 3f  37 3c 3c 38 3a 47 79 25  |:Gy%+=M?7<<8:Gy%|
00006630  2b 3d 28 4d 3f 36 80 33  31 29 3c 3c 31 36 3a 74  |+=(M?6.31)<<16:t|
00006640  79 25 3d 4d 3f 39 3a 66  79 25 3d a4 41 28 4d 21  |y%=M?9:fy%=.A(M!|
00006650  31 80 26 46 46 46 46 29  3a c8 99 26 36 30 32 34  |1.&FFFF):..&6024|
00006660  30 2c 2c 31 2c 47 79 25  2a 32 35 36 2b 28 6f 73  |0,,1,Gy%*256+(os|
00006670  77 6f 72 64 37 32 5f 64  72 69 76 65 25 3c 3c 32  |word72_drive%<<2|
00006680  39 29 2c 66 79 25 2c 74  79 25 2a 32 35 36 b8 41  |9),fy%,ty%*256.A|
00006690  25 3b 53 3a e7 28 53 80  31 29 3d 30 8c 3f 4d 3d  |%;S:.(S.1)=0.?M=|
000066a0  30 8b 3f 4d 3d 41 25 0d  02 6d 09 46 3f 33 3d 30  |0.?M=A%..m.F?3=0|
000066b0  0d 02 6e 05 cd 0d 02 6f  05 7f 0d 02 70 0a cb 3a  |..n....o....p..:|
000066c0  f2 41 3a e1 0d 02 71 70  dd f2 51 28 f8 41 24 2c  |.A:...qp..Q(.A$,|
000066d0  f8 51 24 29 3a ea 49 25  3a c8 95 c0 41 24 2c 31  |.Q$):.I%:...A$,1|
000066e0  29 3d 22 20 22 3a 41 24  3d c2 41 24 2c a9 41 24  |)=" ":A$=.A$,.A$|
000066f0  2d 31 29 3a ce 3a e3 49  25 3d 32 b8 a9 41 24 3a  |-1):.:.I%=2..A$:|
00006700  e7 c1 41 24 2c 49 25 2c  31 29 3d 22 2b 22 8c 41  |..A$,I%,1)="+".A|
00006710  24 3d c0 41 24 2c 49 25  2d 31 29 2b 22 20 22 2b  |$=.A$,I%-1)+" "+|
00006720  c2 41 24 2c 31 2b a9 41  24 2d 49 25 29 3a 49 25  |.A$,1+.A$-I%):I%|
00006730  3d 26 46 46 0d 02 72 2f  ed 3a 49 25 3d a7 41 24  |=&FF..r/.:I%=.A$|
00006740  2c 22 20 22 29 3a 51 24  3d c0 41 24 2c 49 25 2d  |," "):Q$=.A$,I%-|
00006750  31 29 3a 41 24 3d c2 41  24 2c a9 41 24 2d 49 25  |1):A$=.A$,.A$-I%|
00006760  29 3a e1 0d 02 73 5c dd  f2 6d 79 28 f8 41 24 2c  |):...s\..my(.A$,|
00006770  f8 51 24 29 3a ea 49 25  3a c8 95 c0 41 24 2c 31  |.Q$):.I%:...A$,1|
00006780  29 3d 22 20 22 3a 41 24  3d c2 41 24 2c a9 41 24  |)=" ":A$=.A$,.A$|
00006790  2d 31 29 3a ce 3a 49 25  3d a7 41 24 2c 22 20 22  |-1):.:I%=.A$," "|
000067a0  29 3a 51 24 3d c0 41 24  2c 49 25 2d 31 29 3a 41  |):Q$=.A$,I%-1):A|
000067b0  24 3d c2 41 24 2c a9 41  24 2d 49 25 29 3a e1 0d  |$=.A$,.A$-I%):..|
000067c0  02 74 72 dd f2 54 28 f8  41 24 2c f8 51 24 29 3a  |.tr..T(.A$,.Q$):|
000067d0  ea 49 25 2c 4a 25 3a c8  95 28 c0 41 24 2c 31 29  |.I%,J%:..(.A$,1)|
000067e0  3d 22 20 22 84 c0 41 24  2c 31 29 3d 22 2e 22 29  |=" "..A$,1)=".")|
000067f0  3a 41 24 3d c2 41 24 2c  a9 41 24 2d 31 29 3a ce  |:A$=.A$,.A$-1):.|
00006800  3a 49 25 3d a7 41 24 2c  22 20 22 29 3a 4a 25 3d  |:I%=.A$," "):J%=|
00006810  a7 41 24 2c 22 2e 22 29  3a e7 4a 25 3e 30 80 28  |.A$,"."):.J%>0.(|
00006820  4a 25 3c 49 25 84 49 25  3d 30 29 8c 49 25 3d 4a  |J%<I%.I%=0).I%=J|
00006830  25 0d 02 75 21 51 24 3d  c0 41 24 2c 49 25 2d 31  |%..u!Q$=.A$,I%-1|
00006840  29 3a 41 24 3d c2 41 24  2c a9 41 24 2d 49 25 29  |):A$=.A$,.A$-I%)|
00006850  3a e1 0d 02 76 72 dd f2  6f 3a ea 41 24 2c 4a 24  |:...vr..o:.A$,J$|
00006860  2c 4d 2c 49 25 2c 4a 25  3a 4d 3d 6d 65 6d 6f 72  |,M,I%,J%:M=memor|
00006870  79 3f 26 46 32 3a 4d 2b  3d 28 6d 65 6d 6f 72 79  |y?&F2:M+=(memory|
00006880  3f 26 46 33 29 3c 3c 38  3a 4d 3d a4 41 28 4d 29  |?&F3)<<8:M=.A(M)|
00006890  3a 4d 2b 3d 43 3f 33 3a  4a 24 3d 24 4d 3a f2 51  |:M+=C?3:J$=$M:.Q|
000068a0  28 4a 24 2c 41 24 29 3a  e7 a9 41 24 3e 34 8c f2  |(J$,A$):..A$>4..|
000068b0  5a 28 30 2c 22 42 61 64  20 41 64 64 72 65 73 73  |Z(0,"Bad Address|
000068c0  22 29 3a e1 0d 02 77 4e  e3 49 25 3d 31 b8 a9 41  |"):...wN.I%=1..A|
000068d0  24 3a 4a 25 3d 97 c1 41  24 2c 49 25 2c 31 29 3a  |$:J%=..A$,I%,1):|
000068e0  e7 28 4a 25 3c 34 38 84  4a 25 3e 35 37 29 80 28  |.(J%<48.J%>57).(|
000068f0  4a 25 3c 36 35 84 4a 25  3e 37 30 29 8c f2 5a 28  |J%<65.J%>70)..Z(|
00006900  30 2c 22 42 61 64 20 41  64 64 72 65 73 73 22 29  |0,"Bad Address")|
00006910  3a e1 0d 02 78 34 ed 3a  58 79 25 3d a0 28 22 26  |:...x4.:Xy%=.("&|
00006920  22 2b 41 24 29 3a e7 58  79 25 3e 26 38 30 30 30  |"+A$):.Xy%>&8000|
00006930  8c f2 5a 28 30 2c 22 42  61 64 20 41 64 64 72 65  |..Z(0,"Bad Addre|
00006940  73 73 22 29 3a e1 0d 02  79 35 f2 51 28 4a 24 2c  |ss"):...y5.Q(J$,|
00006950  41 24 29 3a e7 c0 41 24  2c 31 29 3d 22 2b 22 8c  |A$):..A$,1)="+".|
00006960  4c 79 25 3d 58 79 25 3a  41 24 3d c2 41 24 2c a9  |Ly%=Xy%:A$=.A$,.|
00006970  41 24 2d 31 29 8b 4c 79  25 3d 30 0d 02 7a 20 e7  |A$-1).Ly%=0..z .|
00006980  a9 41 24 3e 34 8c f2 5a  28 30 2c 22 42 61 64 20  |.A$>4..Z(0,"Bad |
00006990  41 64 64 72 65 73 73 22  29 3a e1 0d 02 7b 4e e3  |Address"):...{N.|
000069a0  49 25 3d 31 b8 a9 41 24  3a 4a 25 3d 97 c1 41 24  |I%=1..A$:J%=..A$|
000069b0  2c 49 25 2c 31 29 3a e7  28 4a 25 3c 34 38 84 4a  |,I%,1):.(J%<48.J|
000069c0  25 3e 35 37 29 80 28 4a  25 3c 36 35 84 4a 25 3e  |%>57).(J%<65.J%>|
000069d0  37 30 29 8c f2 5a 28 30  2c 22 42 61 64 20 41 64  |70)..Z(0,"Bad Ad|
000069e0  64 72 65 73 73 22 29 3a  e1 0d 02 7c 3d ed 3a 4c  |dress"):...|=.:L|
000069f0  79 25 2b 3d a0 28 22 26  22 2b 41 24 29 3a e7 4c  |y%+=.("&"+A$):.L|
00006a00  79 25 3c 58 79 25 84 4c  79 25 3e 26 38 30 30 30  |y%<Xy%.Ly%>&8000|
00006a10  8c f2 5a 28 30 2c 22 42  61 64 20 41 64 64 72 65  |..Z(0,"Bad Addre|
00006a20  73 73 22 29 3a e1 0d 02  7d 2b f2 51 28 4a 24 2c  |ss"):...}+.Q(J$,|
00006a30  41 24 29 3a e7 a9 41 24  3c 3e 34 8c f2 5a 28 30  |A$):..A$<>4..Z(0|
00006a40  2c 22 42 61 64 20 41 64  64 72 65 73 73 22 29 3a  |,"Bad Address"):|
00006a50  e1 0d 02 7e 4e e3 49 25  3d 31 b8 a9 41 24 3a 4a  |...~N.I%=1..A$:J|
00006a60  25 3d 97 c1 41 24 2c 49  25 2c 31 29 3a e7 28 4a  |%=..A$,I%,1):.(J|
00006a70  25 3c 34 38 84 4a 25 3e  35 37 29 80 28 4a 25 3c  |%<48.J%>57).(J%<|
00006a80  36 35 84 4a 25 3e 37 30  29 8c f2 5a 28 30 2c 22  |65.J%>70)..Z(0,"|
00006a90  42 61 64 20 41 64 64 72  65 73 73 22 29 3a e1 0d  |Bad Address"):..|
00006aa0  02 7f 3e ed 3a 48 79 25  3d a0 28 22 26 22 2b 41  |..>.:Hy%=.("&"+A|
00006ab0  24 29 3a e7 48 79 25 3c  26 38 30 30 30 84 48 79  |$):.Hy%<&8000.Hy|
00006ac0  25 3e 26 42 46 46 46 8c  f2 5a 28 30 2c 22 42 61  |%>&BFFF..Z(0,"Ba|
00006ad0  64 20 41 64 64 72 65 73  73 22 29 3a e1 0d 02 80  |d Address"):....|
00006ae0  14 f2 51 28 4a 24 2c 41  24 29 3a c8 8e a9 41 24  |..Q(J$,A$):...A$|
00006af0  ca 0d 02 81 28 c9 31 3a  41 25 3d 97 41 24 3a e7  |....(.1:A%=.A$:.|
00006b00  41 25 3e 3d 38 37 80 41  25 3c 3d 39 30 8c 41 25  |A%>=87.A%<=90.A%|
00006b10  3d 41 25 2d 38 37 2b 35  32 0d 02 82 16 e7 41 25  |=A%-87+52.....A%|
00006b20  3e 36 34 80 41 25 3c 37  31 8c 41 25 2d 3d 37 0d  |>64.A%<71.A%-=7.|
00006b30  02 83 2d 5f 25 3d 41 25  2d 34 38 3a e7 5f 25 3e  |..-_%=A%-48:._%>|
00006b40  26 46 84 5f 25 3c 30 8c  f2 5a 28 30 2c 22 42 61  |&F._%<0..Z(0,"Ba|
00006b50  64 20 53 6f 63 6b 65 74  22 29 3a e1 0d 02 84 48  |d Socket"):....H|
00006b60  c9 32 3a e7 c0 41 24 2c  31 29 3c 22 30 22 84 c0  |.2:..A$,1)<"0"..|
00006b70  41 24 2c 31 29 3e 22 39  22 84 c2 41 24 2c 31 29  |A$,1)>"9"..A$,1)|
00006b80  3c 22 30 22 84 c2 41 24  2c 31 29 3e 22 39 22 8c  |<"0"..A$,1)>"9".|
00006b90  f2 5a 28 30 2c 22 42 61  64 20 53 6f 63 6b 65 74  |.Z(0,"Bad Socket|
00006ba0  22 29 3a e1 0d 02 85 2b  5f 25 3d bb 41 24 3a e7  |"):....+_%=.A$:.|
00006bb0  5f 25 3e 26 46 84 5f 25  3c 30 8c f2 5a 28 30 2c  |_%>&F._%<0..Z(0,|
00006bc0  22 42 61 64 20 53 6f 63  6b 65 74 22 29 3a e1 0d  |"Bad Socket"):..|
00006bd0  02 86 1a 7f 3a f2 5a 28  30 2c 22 42 61 64 20 53  |....:.Z(0,"Bad S|
00006be0  6f 63 6b 65 74 22 29 3a  e1 0d 02 87 67 cb 3a e3  |ocket"):....g.:.|
00006bf0  49 25 3d 30 b8 a4 4b 28  4c 79 25 2d 58 79 25 2c  |I%=0..K(Ly%-Xy%,|
00006c00  26 42 46 46 46 2d 48 79  25 29 88 34 3a 21 28 72  |&BFFF-Hy%).4:!(r|
00006c10  6f 6d 73 2b 55 25 2a 5f  25 2b 49 25 2b 48 79 25  |oms+U%*_%+I%+Hy%|
00006c20  2d 26 38 30 30 30 29 3d  58 79 25 21 28 6d 65 6d  |-&8000)=Xy%!(mem|
00006c30  6f 72 79 2b 49 25 29 3a  ed 3a 52 4f 4d 52 41 4d  |ory+I%):.:ROMRAM|
00006c40  3f 5f 25 3d 30 3a 46 3f  33 3d 30 3a f2 41 3a e1  |?_%=0:F?3=0:.A:.|
00006c50  0d 02 88 74 dd f2 54 79  3a ea 41 24 2c 4a 24 2c  |...t..Ty:.A$,J$,|
00006c60  4d 2c 69 25 3a 4d 3d 6d  65 6d 6f 72 79 3f 26 46  |M,i%:M=memory?&F|
00006c70  32 3a 4d 2b 3d 28 6d 65  6d 6f 72 79 3f 26 46 33  |2:M+=(memory?&F3|
00006c80  29 3c 3c 38 3a 4d 3d a4  41 28 4d 29 3a 4a 24 3d  |)<<8:M=.A(M):J$=|
00006c90  24 4d 3a f2 78 28 4a 24  29 3a e7 c0 a4 5a 28 4a  |$M:.x(J$):...Z(J|
00006ca0  24 29 2c 35 29 3d 22 4d  4f 55 4e 54 22 8c 4a 24  |$),5)="MOUNT".J$|
00006cb0  3d 22 4d 4f 55 4e 54 20  22 2b c2 4a 24 2c a9 4a  |="MOUNT "+.J$,.J|
00006cc0  24 2d 35 29 0d 02 89 42  f2 54 28 4a 24 2c 4e 24  |$-5)...B.T(J$,N$|
00006cd0  29 3a f2 54 28 4a 24 2c  41 24 29 3a 69 25 3d bb  |):.T(J$,A$):i%=.|
00006ce0  41 24 3a c8 99 26 34 30  32 34 32 b8 44 25 2c 46  |A$:..&40242.D%,F|
00006cf0  25 2c 48 25 3a e7 41 24  3d 22 22 8c 46 3f 33 3d  |%,H%:.A$="".F?3=|
00006d00  30 3a f2 41 3a e1 0d 02  8a 1a e7 69 25 3c 46 25  |0:.A:......i%<F%|
00006d10  84 28 69 25 3e 33 80 69  25 3c 48 25 2b 34 29 8c  |.(i%>3.i%<H%+4).|
00006d20  0d 02 8b 33 57 24 3d 22  41 44 46 53 3a 22 3a 46  |...3W$="ADFS:":F|
00006d30  24 3d 22 3a 22 2b c3 69  25 2b 22 2e 22 3a 4d 24  |$=":"+.i%+".":M$|
00006d40  3d 22 24 22 3a 50 24 3d  22 22 3a 46 3f 33 3d 30  |="$":P$="":F?3=0|
00006d50  3a f2 41 0d 02 8c 1d cc  3a f2 5a 28 30 2c 22 42  |:.A.....:.Z(0,"B|
00006d60  61 64 20 64 72 69 76 65  20 22 2b 41 24 29 3a e1  |ad drive "+A$):.|
00006d70  0d 02 8d 07 cd 3a e1 0d  02 8e 74 dd f2 57 79 3a  |.....:....t..Wy:|
00006d80  ea 41 24 2c 4a 24 2c 4d  2c 69 25 3a 4d 3d 6d 65  |.A$,J$,M,i%:M=me|
00006d90  6d 6f 72 79 3f 26 46 32  3a 4d 2b 3d 28 6d 65 6d  |mory?&F2:M+=(mem|
00006da0  6f 72 79 3f 26 46 33 29  3c 3c 38 3a 4d 3d a4 41  |ory?&F3)<<8:M=.A|
00006db0  28 4d 29 3a 4a 24 3d 24  4d 3a f2 78 28 4a 24 29  |(M):J$=$M:.x(J$)|
00006dc0  3a e7 c0 a4 5a 28 4a 24  29 2c 35 29 3d 22 44 52  |:...Z(J$),5)="DR|
00006dd0  49 56 45 22 8c 4a 24 3d  22 44 52 49 56 45 20 22  |IVE".J$="DRIVE "|
00006de0  2b c2 4a 24 2c a9 4a 24  2d 35 29 0d 02 8f 24 f2  |+.J$,.J$-5)...$.|
00006df0  54 28 4a 24 2c 4e 24 29  3a f2 54 28 4a 24 2c 41  |T(J$,N$):.T(J$,A|
00006e00  24 29 3a 69 25 3d bb 4a  24 3a c8 8e 4a 24 ca 0d  |$):i%=.J$:..J$..|
00006e10  02 90 18 c9 22 30 22 2c  22 31 22 2c 22 32 22 2c  |...."0","1","2",|
00006e20  22 33 22 3a e7 44 8c 0d  02 91 09 e7 78 79 25 8c  |"3":.D......xy%.|
00006e30  0d 02 92 1d 4d 24 3d c0  4d 24 2c a7 4d 24 2c 22  |....M$=.M$,.M$,"|
00006e40  44 46 53 53 69 64 65 32  22 29 2d 32 29 0d 02 93  |DFSSide2")-2)...|
00006e50  4a cc 3a c8 99 22 49 6d  61 67 65 44 46 53 5f 44  |J.:.."ImageDFS_D|
00006e60  46 53 54 6f 41 44 46 53  44 72 69 76 65 22 2c 69  |FSToADFSDrive",i|
00006e70  25 b8 58 5f 25 3a 57 24  3d 22 41 44 46 53 3a 22  |%.X_%:W$="ADFS:"|
00006e80  3a 46 24 3d 22 3a 22 2b  c3 58 5f 25 2b 22 2e 22  |:F$=":"+.X_%+"."|
00006e90  3a 4d 24 3d 22 24 22 0d  02 94 05 cd 0d 02 95 1f  |:M$="$".........|
00006ea0  cc 3a 4d 24 3d c0 4d 24  2c a7 4d 24 2c 22 44 46  |.:M$=.M$,.M$,"DF|
00006eb0  53 53 69 64 65 32 22 29  2d 32 29 0d 02 96 17 cd  |SSide2")-2).....|
00006ec0  3a 50 24 3d 22 22 3a e7  69 25 3d 32 84 69 25 3d  |:P$="":.i%=2.i%=|
00006ed0  33 8c 0d 02 97 37 c8 99  38 2c 35 2c 57 24 2b 46  |3....7..8,5,W$+F|
00006ee0  24 2b 4d 24 2b 22 2e 44  46 53 53 69 64 65 32 22  |$+M$+".DFSSide2"|
00006ef0  b8 41 3a e7 41 3c 3e 30  4d 24 3d 4d 24 2b 22 2e  |.A:.A<>0M$=M$+".|
00006f00  44 46 53 53 69 64 65 32  22 0d 02 98 05 cd 0d 02  |DFSSide2".......|
00006f10  99 0f c9 22 52 22 2c 22  72 22 3a f2 49 0d 02 9a  |..."R","r":.I...|
00006f20  1d 7f 3a f2 5a 28 30 2c  22 42 61 64 20 44 72 69  |..:.Z(0,"Bad Dri|
00006f30  76 65 20 22 2b 4a 24 29  3a e1 0d 02 9b 10 cb 3a  |ve "+J$):......:|
00006f40  46 3f 33 3d 30 3a f2 41  3a e1 0d 02 9c 7f dd f2  |F?3=0:.A:.......|
00006f50  64 79 3a ea 41 24 2c 4a  24 2c 4d 2c 49 25 2c 4a  |dy:.A$,J$,M,I%,J|
00006f60  25 3a 4d 3d 6d 65 6d 6f  72 79 3f 26 46 32 3a 4d  |%:M=memory?&F2:M|
00006f70  2b 3d 28 6d 65 6d 6f 72  79 3f 26 46 33 29 3c 3c  |+=(memory?&F3)<<|
00006f80  38 3a 4d 3d a4 41 28 4d  29 3a 4d 2b 3d 43 3f 33  |8:M=.A(M):M+=C?3|
00006f90  3a 4a 24 3d 24 4d 3a f2  6d 79 28 4a 24 2c 4e 24  |:J$=$M:.my(J$,N$|
00006fa0  29 3a f2 51 28 4a 24 2c  41 24 29 3a e7 a9 41 24  |):.Q(J$,A$):..A$|
00006fb0  3c 3e 34 8c f2 5a 28 30  2c 22 42 61 64 20 41 64  |<>4..Z(0,"Bad Ad|
00006fc0  64 72 65 73 73 22 29 3a  e1 0d 02 9d 4e e3 49 25  |dress"):....N.I%|
00006fd0  3d 31 b8 a9 41 24 3a 4a  25 3d 97 c1 41 24 2c 49  |=1..A$:J%=..A$,I|
00006fe0  25 2c 31 29 3a e7 28 4a  25 3c 34 38 84 4a 25 3e  |%,1):.(J%<48.J%>|
00006ff0  35 37 29 80 28 4a 25 3c  36 35 84 4a 25 3e 37 30  |57).(J%<65.J%>70|
00007000  29 8c f2 5a 28 30 2c 22  42 61 64 20 41 64 64 72  |)..Z(0,"Bad Addr|
00007010  65 73 73 22 29 3a e1 0d  02 9e 3b ed 3a 65 25 3d  |ess"):....;.:e%=|
00007020  a0 28 22 26 22 2b 41 24  29 3a e7 65 25 3c 26 38  |.("&"+A$):.e%<&8|
00007030  30 30 30 84 65 25 3e 26  42 46 46 46 8c f2 5a 28  |000.e%>&BFFF..Z(|
00007040  30 2c 22 42 61 64 20 41  64 64 72 65 73 73 22 29  |0,"Bad Address")|
00007050  3a e1 0d 02 9f 27 f2 51  28 4a 24 2c 41 24 29 3a  |:....'.Q(J$,A$):|
00007060  e7 c2 41 24 2c 31 29 3d  22 51 22 8c 41 24 3d c0  |..A$,1)="Q".A$=.|
00007070  41 24 2c a9 41 24 2d 31  29 0d 02 a0 0a c8 8e a9  |A$,.A$-1).......|
00007080  41 24 ca 0d 02 a1 28 c9  31 3a 41 25 3d 97 41 24  |A$....(.1:A%=.A$|
00007090  3a e7 41 25 3e 3d 38 37  80 41 25 3c 3d 39 30 8c  |:.A%>=87.A%<=90.|
000070a0  41 25 3d 41 25 2d 38 37  2b 35 32 0d 02 a2 16 e7  |A%=A%-87+52.....|
000070b0  41 25 3e 36 34 80 41 25  3c 37 31 8c 41 25 2d 3d  |A%>64.A%<71.A%-=|
000070c0  37 0d 02 a3 2d 5f 25 3d  41 25 2d 34 38 3a e7 5f  |7...-_%=A%-48:._|
000070d0  25 3e 26 46 84 5f 25 3c  30 8c f2 5a 28 30 2c 22  |%>&F._%<0..Z(0,"|
000070e0  42 61 64 20 53 6f 63 6b  65 74 22 29 3a e1 0d 02  |Bad Socket"):...|
000070f0  a4 48 c9 32 3a e7 c0 41  24 2c 31 29 3c 22 30 22  |.H.2:..A$,1)<"0"|
00007100  84 c0 41 24 2c 31 29 3e  22 39 22 84 c2 41 24 2c  |..A$,1)>"9"..A$,|
00007110  31 29 3c 22 30 22 84 c2  41 24 2c 31 29 3e 22 39  |1)<"0"..A$,1)>"9|
00007120  22 8c f2 5a 28 30 2c 22  42 61 64 20 53 6f 63 6b  |"..Z(0,"Bad Sock|
00007130  65 74 22 29 3a e1 0d 02  a5 2b 5f 25 3d bb 41 24  |et"):....+_%=.A$|
00007140  3a e7 5f 25 3e 26 46 84  5f 25 3c 30 8c f2 5a 28  |:._%>&F._%<0..Z(|
00007150  30 2c 22 42 61 64 20 53  6f 63 6b 65 74 22 29 3a  |0,"Bad Socket"):|
00007160  e1 0d 02 a6 1a 7f 3a f2  5a 28 30 2c 22 42 61 64  |......:.Z(0,"Bad|
00007170  20 53 6f 63 6b 65 74 22  29 3a e1 0d 02 a7 36 cb  | Socket"):....6.|
00007180  3a c8 99 26 32 30 30 30  44 2c 36 34 2b 26 44 2c  |:..&2000D,64+&D,|
00007190  a4 46 28 4e 24 29 2c a4  43 28 4e 24 29 b8 41 25  |.F(N$),.C(N$).A%|
000071a0  3b 53 3a e7 28 53 80 31  29 3c 3e 30 8c f2 53 3a  |;S:.(S.1)<>0..S:|
000071b0  e1 0d 02 a8 48 48 25 3d  41 25 3a c8 99 26 32 30  |....HH%=A%:..&20|
000071c0  30 30 43 2c 34 2c 41 25  2c 65 25 2d 26 38 30 30  |00C,4,A%,e%-&800|
000071d0  30 2b 72 6f 6d 73 2b 55  25 2a 5f 25 2c 26 43 30  |0+roms+U%*_%,&C0|
000071e0  30 30 2d 65 25 b8 41 25  3b 53 3a e7 28 53 80 31  |00-e%.A%;S:.(S.1|
000071f0  29 3c 3e 30 8c f2 53 3a  e1 0d 02 a9 34 3f 28 52  |)<>0..S:....4?(R|
00007200  4f 4d 52 41 4d 2b 5f 25  29 3d 30 3a c8 99 26 32  |OMRAM+_%)=0:..&2|
00007210  30 30 30 44 2c 30 2c 48  25 b8 41 25 3b 53 3a e7  |000D,0,H%.A%;S:.|
00007220  28 53 80 31 29 3c 3e 30  8c f2 53 3a e1 0d 02 aa  |(S.1)<>0..S:....|
00007230  0e 46 3f 33 3d 30 3a f2  41 3a e1 0d 02 ab 59 dd  |.F?3=0:.A:....Y.|
00007240  f2 6e 79 28 5a 24 29 3a  ea 41 2c 42 24 2c 4b 25  |.ny(Z$):.A,B$,K%|
00007250  2c 41 24 3a c8 99 26 34  43 34 39 31 b8 4b 3a e3  |,A$:..&4C491.K:.|
00007260  49 25 3d 30 b8 26 33 46  46 88 34 3a 4b 21 49 25  |I%=0.&3FF.4:K!I%|
00007270  3d 26 46 46 3a ed 3a 41  3d 8e 5a 24 3a e7 41 3d  |=&FF:.:A=.Z$:.A=|
00007280  30 8c 85 30 2c 5a 24 2b  22 20 6e 6f 74 20 66 6f  |0..0,Z$+" not fo|
00007290  75 6e 64 22 0d 02 ac 18  f5 3a 42 24 3d a4 50 3a  |und".....:B$=.P:|
000072a0  e7 c0 42 24 2c 31 29 3d  22 23 22 8c 0d 02 ad 25  |..B$,1)="#"....%|
000072b0  f2 65 3a e7 a7 42 24 2c  22 52 69 73 63 50 43 22  |.e:..B$,"RiscPC"|
000072c0  29 80 a6 2d 32 35 36 3c  26 41 35 8c 42 24 3d 22  |)..-256<&A5.B$="|
000072d0  22 0d 02 ae 0e cc 3a e7  42 24 3c 3e 22 22 8c 0d  |".....:.B$<>""..|
000072e0  02 af 1e 53 25 3d a4 56  28 42 24 29 3a f5 3a 41  |...S%=.V(B$):.:A|
000072f0  24 3d a4 50 3a e7 41 24  3c 3e 22 22 8c 0d 02 b0  |$=.P:.A$<>""....|
00007300  19 4b 25 3d a4 55 28 41  24 29 3a 4b 21 28 4b 25  |.K%=.U(A$):K!(K%|
00007310  2a 34 29 3d 53 25 0d 02  b1 0c cd 3a fd 41 24 3d  |*4)=S%.....:.A$=|
00007320  22 22 0d 02 b2 05 cd 0d  02 b3 16 cd 3a fd 42 24  |""..........:.B$|
00007330  3d 22 22 84 c5 23 41 3a  d9 23 41 3a e1 0d 02 b4  |=""..#A:.#A:....|
00007340  5e dd f2 41 79 28 5a 24  29 3a ea 41 2c 42 24 2c  |^..Ay(Z$):.A,B$,|
00007350  4b 25 2c 41 24 2c 68 79  25 3a c8 99 26 34 43 34  |K%,A$,hy%:..&4C4|
00007360  38 39 b8 4b 3a e3 49 25  3d 30 b8 26 46 46 2b 32  |89.K:.I%=0.&FF+2|
00007370  35 36 3a 4b 3f 49 25 3d  26 46 46 3a ed 3a 41 3d  |56:K?I%=&FF:.:A=|
00007380  8e 5a 24 3a e7 41 3d 30  8c 85 30 2c 5a 24 2b 22  |.Z$:.A=0..0,Z$+"|
00007390  20 6e 6f 74 20 66 6f 75  6e 64 22 0d 02 b5 18 f5  | not found".....|
000073a0  3a 42 24 3d a4 50 3a e7  c0 42 24 2c 31 29 3d 22  |:B$=.P:..B$,1)="|
000073b0  23 22 8c 0d 02 b6 25 f2  65 3a e7 a7 42 24 2c 22  |#"....%.e:..B$,"|
000073c0  52 69 73 63 50 43 22 29  80 a6 2d 32 35 36 3c 26  |RiscPC")..-256<&|
000073d0  41 35 8c 42 24 3d 22 22  0d 02 b7 0e cc 3a e7 42  |A5.B$="".....:.B|
000073e0  24 3c 3e 22 22 8c 0d 02  b8 2f e7 c0 42 24 2c 31  |$<>""..../..B$,1|
000073f0  29 3d 22 73 22 80 a9 42  24 3e 31 8c 68 79 25 3d  |)="s"..B$>1.hy%=|
00007400  b9 3a 42 24 3d c2 42 24  2c a9 42 24 2d 31 29 8b  |.:B$=.B$,.B$-1).|
00007410  68 79 25 3d a3 0d 02 b9  1e 53 25 3d a4 54 28 42  |hy%=.....S%=.T(B|
00007420  24 29 3a f5 3a 41 24 3d  a4 50 3a e7 41 24 3c 3e  |$):.:A$=.P:.A$<>|
00007430  22 22 8c 0d 02 ba 1c 4b  25 3d a4 55 28 41 24 29  |"".....K%=.U(A$)|
00007440  3a e7 68 79 25 3d a3 8c  4b 3f 4b 25 3d 53 25 0d  |:.hy%=..K?K%=S%.|
00007450  02 bb 11 4b 3f 28 4b 25  2b 32 35 36 29 3d 53 25  |...K?(K%+256)=S%|
00007460  0d 02 bc 0c cd 3a fd 41  24 3d 22 22 0d 02 bd 05  |.....:.A$=""....|
00007470  cd 0d 02 be 16 cd 3a fd  42 24 3d 22 22 84 c5 23  |......:.B$=""..#|
00007480  41 3a d9 23 41 3a e1 0d  02 bf 2e dd a4 50 3a ea  |A:.#A:.......P:.|
00007490  49 25 2c 41 24 3a f5 49  25 3d 9a 23 41 3a fd 49  |I%,A$:.I%=.#A:.I|
000074a0  25 3e 33 32 84 49 25 3d  26 41 3a e7 49 25 3d 26  |%>32.I%=&A:.I%=&|
000074b0  41 8c 3d 22 22 0d 02 c0  39 41 24 3d bd 49 25 3a  |A.=""...9A$=.I%:|
000074c0  f5 49 25 3d 9a 23 41 3a  41 24 3d 41 24 2b bd 49  |.I%=.#A:A$=A$+.I|
000074d0  25 3a fd 49 25 3c 33 33  3a cf 23 41 3d 8f 23 41  |%:.I%<33:.#A=.#A|
000074e0  2d 31 3a 3d c0 41 24 2c  a9 41 24 2d 31 29 0d 02  |-1:=.A$,.A$-1)..|
000074f0  c1 1c dd f2 65 3a ea 49  25 3a f5 49 25 3d 9a 23  |....e:.I%:.I%=.#|
00007500  41 3a fd 49 25 3d 26 41  3a e1 0d 02 c2 4d dd a4  |A:.I%=&A:....M..|
00007510  56 28 41 24 29 3a ea 49  25 2c 4a 25 2c 4b 25 3a  |V(A$):.I%,J%,K%:|
00007520  e3 49 25 3d 30 b8 33 3a  e3 4a 25 3d 30 b8 26 44  |.I%=0.3:.J%=0.&D|
00007530  3a e7 43 24 28 49 25 2c  4a 25 29 3d 41 24 8c 4b  |:.C$(I%,J%)=A$.K|
00007540  25 3d 28 49 25 3c 3c 38  29 2b 4a 25 3a 49 25 3d  |%=(I%<<8)+J%:I%=|
00007550  34 3a 4a 25 3d 26 45 0d  02 c3 0b ed 3a ed 3a 3d  |4:J%=&E.....:.:=|
00007560  4b 25 0d 02 c4 34 dd a4  54 28 41 24 29 3a ea 49  |K%...4..T(A$):.I|
00007570  25 2c 4a 25 3a e3 49 25  3d 30 b8 26 37 43 3a e7  |%,J%:.I%=0.&7C:.|
00007580  4a 24 28 49 25 29 3d 41  24 8c 4a 25 3d 49 25 3a  |J$(I%)=A$.J%=I%:|
00007590  49 25 3d 26 38 30 0d 02  c5 09 ed 3a 3d 4a 25 0d  |I%=&80.....:=J%.|
000075a0  02 c6 34 dd a4 55 28 41  24 29 3a ea 49 25 2c 4a  |..4..U(A$):.I%,J|
000075b0  25 3a e3 49 25 3d 30 b8  26 37 38 3a e7 50 24 28  |%:.I%=0.&78:.P$(|
000075c0  49 25 29 3d 41 24 8c 4a  25 3d 49 25 3a 49 25 3d  |I%)=A$.J%=I%:I%=|
000075d0  26 36 38 0d 02 c7 09 ed  3a 3d 4a 25 0d 02 c8 2d  |&68.....:=J%...-|
000075e0  dc 20 45 73 63 61 70 65  2c 31 2c 32 2c 33 2c 34  |. Escape,1,2,3,4|
000075f0  2c 35 2c 36 2c 37 2c 38  2c 39 2c 30 2c 2d 2c 4c  |,5,6,7,8,9,0,-,L|
00007600  65 66 74 2c 52 69 67 68  74 0d 02 c9 2f dc 20 43  |eft,Right.../. C|
00007610  61 70 73 4c 6f 63 6b 2c  51 2c 57 2c 45 2c 52 2c  |apsLock,Q,W,E,R,|
00007620  54 2c 59 2c 55 2c 49 2c  4f 2c 50 2c 55 70 2c 44  |T,Y,U,I,O,P,Up,D|
00007630  6f 77 6e 2c 43 6f 70 79  0d 02 ca 2a dc 20 43 74  |own,Copy...*. Ct|
00007640  72 6c 2c 41 2c 53 2c 44  2c 46 2c 47 2c 48 2c 4a  |rl,A,S,D,F,G,H,J|
00007650  2c 4b 2c 4c 2c 3b 2c 3a  2c 52 65 74 75 72 6e 2c  |,K,L,;,:,Return,|
00007660  22 22 0d 02 cb 31 dc 20  53 68 69 66 74 2c 5a 2c  |""...1. Shift,Z,|
00007670  58 2c 43 2c 56 2c 42 2c  4e 2c 4d 2c 22 2c 22 2c  |X,C,V,B,N,M,",",|
00007680  2e 2c 2f 2c 22 22 2c 44  65 6c 65 74 65 2c 53 70  |.,/,"",Delete,Sp|
00007690  61 63 65 0d 02 cc 41 dc  20 53 68 69 66 74 2c 43  |ace...A. Shift,C|
000076a0  74 72 6c 2c 62 69 74 37  2c 62 69 74 36 2c 62 69  |trl,bit7,bit6,bi|
000076b0  74 35 2c 62 69 74 34 2c  62 69 74 33 2c 62 69 74  |t5,bit4,bit3,bit|
000076c0  32 2c 62 69 74 31 2c 62  69 74 30 2c 22 22 2c 22  |2,bit1,bit0,"","|
000076d0  22 2c 22 22 0d 02 cd 27  dc 20 51 2c 33 2c 34 2c  |",""...'. Q,3,4,|
000076e0  35 2c 66 34 2c 38 2c 66  37 2c 2d 2c 5e 2c 4c 65  |5,f4,8,f7,-,^,Le|
000076f0  66 74 2c 4b 36 2c 4b 37  2c 22 22 0d 02 ce 26 dc  |ft,K6,K7,""...&.|
00007700  20 66 30 2c 57 2c 45 2c  54 2c 37 2c 49 2c 39 2c  | f0,W,E,T,7,I,9,|
00007710  30 2c 5f 2c 44 6f 77 6e  2c 4b 38 2c 4b 39 2c 22  |0,_,Down,K8,K9,"|
00007720  22 0d 02 cf 28 dc 20 31  2c 32 2c 44 2c 52 2c 36  |"...(. 1,2,D,R,6|
00007730  2c 55 2c 4f 2c 50 2c 5b  2c 55 70 2c 4b 2b 2c 4b  |,U,O,P,[,Up,K+,K|
00007740  2d 2c 4b 52 65 74 75 72  6e 0d 02 d0 35 dc 20 43  |-,KReturn...5. C|
00007750  61 70 73 4c 6f 63 6b 2c  41 2c 58 2c 46 2c 59 2c  |apsLock,A,X,F,Y,|
00007760  4a 2c 4b 2c 40 2c 3a 2c  52 65 74 75 72 6e 2c 4b  |J,K,@,:,Return,K|
00007770  2f 2c 4b 44 65 6c 65 74  65 2c 22 4b 2e 22 0d 02  |/,KDelete,"K."..|
00007780  d1 31 dc 20 53 68 69 66  74 4c 6f 63 6b 2c 53 2c  |.1. ShiftLock,S,|
00007790  43 2c 47 2c 48 2c 4e 2c  4c 2c 3b 2c 5d 2c 44 65  |C,G,H,N,L,;,],De|
000077a0  6c 65 74 65 2c 4b 23 2c  4b 2a 2c 22 4b 2c 22 0d  |lete,K#,K*,"K,".|
000077b0  02 d2 2f dc 20 54 61 62  2c 5a 2c 53 70 61 63 65  |../. Tab,Z,Space|
000077c0  2c 56 2c 42 2c 4d 2c 22  2c 22 2c 22 2e 22 2c 2f  |,V,B,M,",",".",/|
000077d0  2c 43 6f 70 79 2c 4b 30  2c 4b 31 2c 4b 33 0d 02  |,Copy,K0,K1,K3..|
000077e0  d3 32 dc 20 45 73 63 61  70 65 2c 66 31 2c 66 32  |.2. Escape,f1,f2|
000077f0  2c 66 33 2c 66 35 2c 66  36 2c 66 38 2c 66 39 2c  |,f3,f5,f6,f8,f9,|
00007800  5c 2c 52 69 67 68 74 2c  4b 34 2c 4b 35 2c 4b 32  |\,Right,K4,K5,K2|
00007810  0d 02 d4 3e dc 20 45 73  63 61 70 65 2c 66 31 2c  |...>. Escape,f1,|
00007820  66 32 2c 66 33 2c 66 34  2c 66 35 2c 66 36 2c 66  |f2,f3,f4,f5,f6,f|
00007830  37 2c 66 38 2c 66 39 2c  66 31 30 2c 66 31 31 2c  |7,f8,f9,f10,f11,|
00007840  22 22 2c 50 72 69 6e 74  2c 22 22 2c 22 22 0d 02  |"",Print,"",""..|
00007850  d5 b7 dc 20 60 2c 31 2c  32 2c 33 2c 34 2c 35 2c  |... `,1,2,3,4,5,|
00007860  36 2c 37 2c 38 2c 39 2c  30 2c 2d 2c 3d 2c a3 2c  |6,7,8,9,0,-,=,.,|
00007870  3c 2d 7c 2c 49 6e 73 65  72 74 2c 48 6f 6d 65 2c  |<-|,Insert,Home,|
00007880  50 61 67 65 55 70 2c 4e  75 6d 4c 6f 63 6b 2c 4b  |PageUp,NumLock,K|
00007890  2f 2c 4b 2a 2c 4b 23 2c  54 61 62 2c 51 2c 57 2c  |/,K*,K#,Tab,Q,W,|
000078a0  45 2c 52 2c 54 2c 59 2c  55 2c 49 2c 4f 2c 50 2c  |E,R,T,Y,U,I,O,P,|
000078b0  5b 2c 5d 2c 5c 2c 44 65  6c 65 74 65 2c 43 6f 70  |[,],\,Delete,Cop|
000078c0  79 2c 50 61 67 65 44 6f  77 6e 2c 4b 37 2c 4b 38  |y,PageDown,K7,K8|
000078d0  2c 4b 39 2c 4b 2d 2c 4c  43 74 72 6c 2c 41 2c 53  |,K9,K-,LCtrl,A,S|
000078e0  2c 44 2c 46 2c 47 2c 48  2c 4a 2c 4b 2c 4c 2c 3b  |,D,F,G,H,J,K,L,;|
000078f0  2c 27 2c 52 65 74 75 72  6e 2c 4b 34 2c 4b 35 2c  |,',Return,K4,K5,|
00007900  4b 36 2c 4b 2b 0d 02 d6  71 dc 20 4c 53 68 69 66  |K6,K+...q. LShif|
00007910  74 2c 2c 5a 2c 58 2c 43  2c 56 2c 42 2c 4e 2c 4d  |t,,Z,X,C,V,B,N,M|
00007920  2c 22 2c 22 2c 2e 2c 2f  2c 52 53 68 69 66 74 2c  |,",",.,/,RShift,|
00007930  55 70 2c 4b 31 2c 4b 32  2c 4b 33 2c 43 61 70 73  |Up,K1,K2,K3,Caps|
00007940  4c 6f 63 6b 2c 4c 41 6c  74 2c 53 70 61 63 65 2c  |Lock,LAlt,Space,|
00007950  52 41 6c 74 2c 52 43 74  72 6c 2c 4c 65 66 74 2c  |RAlt,RCtrl,Left,|
00007960  44 6f 77 6e 2c 52 69 67  68 74 2c 4b 30 2c 4b 2e  |Down,Right,K0,K.|
00007970  2c 45 6e 74 65 72 0d 02  d7 35 dc 20 22 22 2c 22  |,Enter...5. "","|
00007980  22 2c 22 22 2c 22 22 2c  22 22 2c 22 22 2c 22 22  |","","","","",""|
00007990  2c 22 22 2c 22 22 2c 22  22 2c 22 22 2c 22 22 2c  |,"","","","","",|
000079a0  22 22 2c 22 22 2c 22 22  2c 22 22 0d 02 d8 1c dc  |"","","","".....|
000079b0  20 23 20 3a 20 52 45 4d  20 52 69 73 63 20 50 43  | # : REM Risc PC|
000079c0  20 6b 65 79 20 23 7e 0d  02 d9 1e dd f2 63 3a e7  | key #~......c:.|
000079d0  70 61 67 69 6e 67 25 3d  a3 84 61 25 3d 30 84 61  |paging%=..a%=0.a|
000079e0  25 3d 34 8c e1 0d 02 da  fb 21 26 39 37 30 30 30  |%=4......!&97000|
000079f0  3d 2d 26 35 46 35 46 35  46 36 30 3a 21 26 39 37  |=-&5F5F5F60:!&97|
00007a00  30 30 34 3d 2d 26 35 46  35 46 35 46 36 30 3a 21  |004=-&5F5F5F60:!|
00007a10  26 39 37 30 30 38 3d 2d  26 35 46 35 46 35 46 36  |&97008=-&5F5F5F6|
00007a20  30 3a 21 26 39 37 30 30  43 3d 2d 26 35 46 35 46  |0:!&9700C=-&5F5F|
00007a30  35 46 36 30 3a f2 4c 28  26 41 38 30 30 30 2c 72  |5F60:.L(&A8000,r|
00007a40  6f 6d 73 2b 28 3f 56 80  26 46 29 2a 55 25 2c 55  |oms+(?V.&F)*U%,U|
00007a50  25 29 3a 3f 26 39 37 30  30 38 3d 36 38 2b 28 3f  |%):?&97008=68+(?|
00007a60  56 80 26 46 29 2a 34 3a  3f 26 39 37 30 30 39 3d  |V.&F)*4:?&97009=|
00007a70  36 38 2b 28 3f 56 80 26  46 29 2a 34 3a 3f 26 39  |68+(?V.&F)*4:?&9|
00007a80  37 30 30 41 3d 36 38 2b  28 3f 56 80 26 46 29 2a  |700A=68+(?V.&F)*|
00007a90  34 3a 3f 26 39 37 30 30  42 3d 36 38 2b 28 3f 56  |4:?&9700B=68+(?V|
00007aa0  80 26 46 29 2a 34 3a e7  28 3f 61 80 38 29 3c 3e  |.&F)*4:.(?a.8)<>|
00007ab0  30 8c 3f 26 39 37 30 30  43 3d 26 38 39 3a 3f 26  |0.?&9700C=&89:?&|
00007ac0  39 37 30 30 44 3d 26 38  39 3a f2 4c 28 26 41 43  |9700D=&89:.L(&AC|
00007ad0  30 30 30 2c 26 39 35 30  30 30 2c 38 31 39 32 29  |000,&95000,8192)|
00007ae0  0d 02 db 33 e7 28 3f 56  80 26 38 30 29 3c 3e 30  |...3.(?V.&80)<>0|
00007af0  8c 3f 26 39 37 30 30 38  3d 26 38 39 3a f2 4c 28  |.?&97008=&89:.L(|
00007b00  26 41 38 30 30 30 2c 26  39 44 30 30 30 2c 34 30  |&A8000,&9D000,40|
00007b10  39 36 29 0d 02 dc 05 e1  0d 02 dd 1e dd f2 68 3a  |96)...........h:|
00007b20  e7 70 61 67 69 6e 67 25  3d a3 84 61 25 3d 30 84  |.paging%=..a%=0.|
00007b30  61 25 3d 34 8c e1 0d 02  de 27 e7 28 3f 56 80 26  |a%=4.....'.(?V.&|
00007b40  38 30 29 3c 3e 30 8c f2  4c 28 26 41 38 30 30 30  |80)<>0..L(&A8000|
00007b50  2c 26 39 44 30 30 30 2c  34 30 39 36 29 0d 02 df  |,&9D000,4096)...|
00007b60  25 e7 28 3f 61 80 38 29  3c 3e 30 8c f2 4c 28 26  |%.(?a.8)<>0..L(&|
00007b70  41 43 30 30 30 2c 26 39  35 30 30 30 2c 38 31 39  |AC000,&95000,819|
00007b80  32 29 0d 02 e0 23 f2 4c  28 26 41 38 30 30 30 2c  |2)...#.L(&A8000,|
00007b90  72 6f 6d 73 2b 28 3f 56  80 26 46 29 2a 55 25 2c  |roms+(?V.&F)*U%,|
00007ba0  55 25 29 3a e1 0d 02 e1  13 dd a4 58 28 41 25 29  |U%):.......X(A%)|
00007bb0  3d 3f a4 41 28 41 25 29  0d 02 e2 15 dd a4 41 28  |=?.A(A%)......A(|
00007bc0  41 25 29 3d 6d 65 6d 6f  72 79 2b 41 25 0d 02 e3  |A%)=memory+A%...|
00007bd0  1d dd f2 7a 28 41 25 2c  56 25 29 3a 6d 65 6d 6f  |...z(A%,V%):memo|
00007be0  72 79 3f 41 25 3d 56 25  3a e1 0d 02 e4 14 dd f2  |ry?A%=V%:.......|
00007bf0  77 3a e7 61 25 3e 30 80  61 25 3c 34 8c e1 0d 02  |w:.a%>0.a%<4....|
00007c00  e5 fb 59 79 25 3d 6d 65  6d 6f 72 79 3f 26 46 46  |..Yy%=memory?&FF|
00007c10  42 37 2b 28 6d 65 6d 6f  72 79 3f 26 46 46 42 38  |B7+(memory?&FFB8|
00007c20  3c 3c 38 29 3a 59 79 25  3d a4 41 28 59 79 25 29  |<<8):Yy%=.A(Yy%)|
00007c30  3a 66 25 3d 59 79 25 3f  33 30 2b 28 59 79 25 3f  |:f%=Yy%?30+(Yy%?|
00007c40  33 31 3c 3c 38 29 3a 54  3d 72 6f 6d 73 2b 55 25  |31<<8):T=roms+U%|
00007c50  2a 31 36 20 2d 26 43 30  30 30 3a 6d 65 6d 6f 72  |*16 -&C000:memor|
00007c60  79 3f 66 25 3d 33 3a 54  3f 66 25 3d 33 3a 6d 65  |y?f%=3:T?f%=3:me|
00007c70  6d 6f 72 79 3f 26 46 46  43 45 3d 33 3a 54 3f 26  |mory?&FFCE=3:T?&|
00007c80  46 46 43 45 3d 33 3a 6d  65 6d 6f 72 79 3f 26 46  |FFCE=3:memory?&F|
00007c90  46 44 31 3d 33 3a 54 3f  26 46 46 44 31 3d 33 3a  |FD1=3:T?&FFD1=3:|
00007ca0  6d 65 6d 6f 72 79 3f 26  46 46 44 34 3d 33 3a 54  |memory?&FFD4=3:T|
00007cb0  3f 26 46 46 44 34 3d 33  3a 6d 65 6d 6f 72 79 3f  |?&FFD4=3:memory?|
00007cc0  26 46 46 44 37 3d 33 3a  54 3f 26 46 46 44 37 3d  |&FFD7=3:T?&FFD7=|
00007cd0  33 3a 6d 65 6d 6f 72 79  3f 26 46 46 44 41 3d 33  |3:memory?&FFDA=3|
00007ce0  3a 54 3f 26 46 46 44 41  3d 33 3a 6d 65 6d 6f 72  |:T?&FFDA=3:memor|
00007cf0  79 3f 26 46 46 44 44 3d  33 0d 02 e6 0f 54 3f 26  |y?&FFDD=3....T?&|
00007d00  46 46 44 44 3d 33 3a e1  0d 02 e7 13 dd f2 70 3a  |FFDD=3:.......p:|
00007d10  f2 41 3a e7 61 25 3c 3e  30 8c e1 0d 02 e8 4a 41  |.A:.a%<>0.....JA|
00007d20  3d 8e 28 57 24 2b 46 24  2b 4d 24 2b 50 24 2b 22  |=.(W$+F$+M$+P$+"|
00007d30  2e 21 42 6f 6f 74 22 29  3a e7 41 3c 3e 30 8c d9  |.!Boot"):.A<>0..|
00007d40  23 41 3a 5f 3d b9 3a f2  4e 28 57 24 2b 46 24 2b  |#A:_=.:.N(W$+F$+|
00007d50  4d 24 2b 50 24 2b 22 2e  21 42 6f 6f 74 22 29 3a  |M$+P$+".!Boot"):|
00007d60  5f 3d a3 3a e1 0d 02 e9  48 41 3d 8e 28 57 24 2b  |_=.:....HA=.(W$+|
00007d70  46 24 2b 4d 24 2b 50 24  2b 22 2e 21 52 75 6e 22  |F$+M$+P$+".!Run"|
00007d80  29 3a e7 41 3c 3e 30 8c  d9 23 41 3a 5f 3d b9 3a  |):.A<>0..#A:_=.:|
00007d90  f2 56 28 57 24 2b 46 24  2b 4d 24 2b 50 24 2b 22  |.V(W$+F$+M$+P$+"|
00007da0  2e 21 52 75 6e 22 29 3a  5f 3d a3 3a e1 0d 02 ea  |.!Run"):_=.:....|
00007db0  1e f2 5a 28 26 44 36 2c  22 46 69 6c 65 20 6e 6f  |..Z(&D6,"File no|
00007dc0  74 20 66 6f 75 6e 64 22  29 3a e1 0d 02 eb 34 dd  |t found"):....4.|
00007dd0  f2 4a 28 53 5f 25 2c 58  25 2c 59 25 29 3a f2 4b  |.J(S_%,X%,Y%):.K|
00007de0  79 3a c8 99 26 34 30 30  44 34 2c 2c 53 5f 25 2c  |y:..&400D4,,S_%,|
00007df0  58 25 2c 59 25 3a 6e 79  25 3d 53 5f 25 3a e1 0d  |X%,Y%:ny%=S_%:..|
00007e00  02 ec 17 dd f2 77 79 3a  5a 25 21 30 3d 6d 25 3a  |.....wy:Z%!0=m%:|
00007e10  c8 8e 55 79 25 ca 0d 02  ed 30 c9 31 3a 5a 25 21  |..Uy%....0.1:Z%!|
00007e20  34 3d 31 3a c8 99 26 34  30 30 43 45 2c 2c 5a 25  |4=1:..&400CE,,Z%|
00007e30  3a 44 79 25 3d 28 28 5a  25 21 32 34 80 32 5e 32  |:Dy%=((Z%!24.2^2|
00007e40  31 29 3c 3e 30 29 0d 02  ee 30 c9 32 3a 5a 25 21  |1)<>0)...0.2:Z%!|
00007e50  34 3d 32 3a c8 99 26 34  30 30 43 45 2c 2c 5a 25  |4=2:..&400CE,,Z%|
00007e60  3a 5a 79 25 3d 28 28 5a  25 21 32 34 80 32 5e 32  |:Zy%=((Z%!24.2^2|
00007e70  31 29 3c 3e 30 29 0d 02  ef 2f c9 33 3a 5a 25 21  |1)<>0).../.3:Z%!|
00007e80  34 3d 33 3a c8 99 26 34  30 30 43 45 2c 2c 5a 25  |4=3:..&400CE,,Z%|
00007e90  3a 60 25 3d 28 28 5a 25  21 32 34 80 32 5e 32 31  |:`%=((Z%!24.2^21|
00007ea0  29 3c 3e 30 29 0d 02 f0  30 c9 34 3a 5a 25 21 34  |)<>0)...0.4:Z%!4|
00007eb0  3d 34 3a c8 99 26 34 30  30 43 45 2c 2c 5a 25 3a  |=4:..&400CE,,Z%:|
00007ec0  51 79 25 3d 28 28 5a 25  21 32 34 80 32 5e 32 31  |Qy%=((Z%!24.2^21|
00007ed0  29 3c 3e 30 29 0d 02 f1  30 c9 35 3a 5a 25 21 34  |)<>0)...0.5:Z%!4|
00007ee0  3d 35 3a c8 99 26 34 30  30 43 45 2c 2c 5a 25 3a  |=5:..&400CE,,Z%:|
00007ef0  42 79 25 3d 28 28 5a 25  21 32 34 80 32 5e 32 31  |By%=((Z%!24.2^21|
00007f00  29 3c 3e 30 29 0d 02 f2  79 c9 36 3a 5a 25 21 34  |)<>0)...y.6:Z%!4|
00007f10  3d 36 3a c8 99 26 34 30  30 43 45 2c 2c 5a 25 3a  |=6:..&400CE,,Z%:|
00007f20  59 3d 28 28 5a 25 21 32  34 80 32 5e 32 31 29 3c  |Y=((Z%!24.2^21)<|
00007f30  3e 30 29 3a e7 59 8c ff  22 49 63 6f 6e 53 70 72  |>0):.Y.."IconSpr|
00007f40  69 74 65 73 20 3c 36 35  30 32 45 6d 24 52 65 73  |ites <6502Em$Res|
00007f50  3e 2e 66 69 6c 65 5f 78  78 78 22 8b ff 22 49 63  |>.file_xxx".."Ic|
00007f60  6f 6e 53 70 72 69 74 65  73 20 3c 36 35 30 32 45  |onSprites <6502E|
00007f70  6d 24 52 65 73 3e 2e 6e  6f 5f 78 78 78 22 0d 02  |m$Res>.no_xxx"..|
00007f80  f3 2f c9 37 3a 5a 25 21  34 3d 37 3a c8 99 26 34  |./.7:Z%!4=7:..&4|
00007f90  30 30 43 45 2c 2c 5a 25  3a 75 25 3d 28 28 5a 25  |00CE,,Z%:u%=((Z%|
00007fa0  21 32 34 80 32 5e 32 31  29 3c 3e 30 29 0d 02 f4  |!24.2^21)<>0)...|
00007fb0  1e c9 26 41 3a e7 6e 25  3d 32 8c f2 4a 28 61 79  |..&A:.n%=2..J(ay|
00007fc0  25 2c 6b 25 2d 36 34 2c  70 25 29 0d 02 f5 18 c9  |%,k%-64,p%).....|
00007fd0  26 42 3a f2 4a 28 61 79  25 2c 6b 25 2d 36 34 2c  |&B:.J(ay%,k%-64,|
00007fe0  70 25 29 0d 02 f6 1d c9  26 43 3a e7 6e 25 3d 32  |p%).....&C:.n%=2|
00007ff0  f2 4a 28 56 79 25 2c 6b  25 2d 36 34 2c 70 25 29  |.J(Vy%,k%-64,p%)|
00008000  0d 02 f7 18 c9 26 44 3a  f2 4a 28 56 79 25 2c 6b  |.....&D:.J(Vy%,k|
00008010  25 2d 36 34 2c 70 25 29  0d 02 f8 1d c9 26 45 3a  |%-64,p%).....&E:|
00008020  e7 6e 25 3d 32 f2 4a 28  71 79 25 2c 6b 25 2d 36  |.n%=2.J(qy%,k%-6|
00008030  34 2c 70 25 29 0d 02 f9  18 c9 26 46 3a f2 4a 28  |4,p%).....&F:.J(|
00008040  71 79 25 2c 6b 25 2d 36  34 2c 70 25 29 0d 02 fa  |qy%,k%-64,p%)...|
00008050  1d c9 31 36 3a e7 6e 25  3d 32 f2 4a 28 77 79 25  |..16:.n%=2.J(wy%|
00008060  2c 6b 25 2d 36 34 2c 70  25 29 0d 02 fb 18 c9 31  |,k%-64,p%).....1|
00008070  37 3a f2 4a 28 77 79 25  2c 6b 25 2d 36 34 2c 70  |7:.J(wy%,k%-64,p|
00008080  25 29 0d 02 fc 0d c9 32  30 3a f2 72 3a f2 62 0d  |%).....20:.r:.b.|
00008090  02 fd 0b c9 32 31 3a f2  51 79 0d 02 fe 1b c9 32  |....21:.Qy.....2|
000080a0  32 3a 21 5a 25 3d 6d 25  3a c8 99 26 34 30 30 43  |2:!Z%=m%:..&400C|
000080b0  36 2c 2c 5a 25 0d 02 ff  07 cb 3a e1 0d 03 00 e0  |6,,Z%.....:.....|
000080c0  dd f2 62 3a 21 5a 25 3d  6d 25 3a 5a 25 21 26 43  |..b:!Z%=m%:Z%!&C|
000080d0  3d 32 5e 32 31 3a 5a 25  21 34 3d 31 3a 5a 25 21  |=2^21:Z%!4=1:Z%!|
000080e0  38 3d 2d 32 5e 32 31 2a  28 44 79 25 3c 3e 30 29  |8=-2^21*(Dy%<>0)|
000080f0  3a c8 99 26 34 30 30 43  44 2c 2c 5a 25 3a 5a 25  |:..&400CD,,Z%:Z%|
00008100  21 34 3d 32 3a 5a 25 21  38 3d 2d 32 5e 32 31 2a  |!4=2:Z%!8=-2^21*|
00008110  28 5a 79 25 3c 3e 30 29  3a c8 99 26 34 30 30 43  |(Zy%<>0):..&400C|
00008120  44 2c 2c 5a 25 3a 5a 25  21 34 3d 33 3a 5a 25 21  |D,,Z%:Z%!4=3:Z%!|
00008130  38 3d 2d 32 5e 32 31 2a  28 60 25 3c 3e 30 29 3a  |8=-2^21*(`%<>0):|
00008140  c8 99 26 34 30 30 43 44  2c 2c 5a 25 3a 5a 25 21  |..&400CD,,Z%:Z%!|
00008150  34 3d 34 3a 5a 25 21 38  3d 2d 32 5e 32 31 2a 28  |4=4:Z%!8=-2^21*(|
00008160  51 79 25 3c 3e 30 29 3a  c8 99 26 34 30 30 43 44  |Qy%<>0):..&400CD|
00008170  2c 2c 5a 25 3a 5a 25 21  34 3d 35 3a 5a 25 21 38  |,,Z%:Z%!4=5:Z%!8|
00008180  3d 2d 32 5e 32 31 2a 28  42 79 25 3c 3e 30 29 3a  |=-2^21*(By%<>0):|
00008190  c8 99 26 34 30 30 43 44  2c 2c 5a 25 0d 03 01 a6  |..&400CD,,Z%....|
000081a0  5a 25 21 34 3d 36 3a 5a  25 21 38 3d 2d 32 5e 32  |Z%!4=6:Z%!8=-2^2|
000081b0  31 2a 28 59 3c 3e 30 29  3a c8 99 26 34 30 30 43  |1*(Y<>0):..&400C|
000081c0  44 2c 2c 5a 25 3a 5a 25  21 34 3d 37 3a 5a 25 21  |D,,Z%:Z%!4=7:Z%!|
000081d0  38 3d 2d 32 5e 32 31 2a  28 75 25 3c 3e 30 29 3a  |8=-2^21*(u%<>0):|
000081e0  c8 99 26 34 30 30 43 44  2c 2c 5a 25 3a f2 57 28  |..&400CD,,Z%:.W(|
000081f0  31 36 2c c3 71 2b 22 25  22 29 3a 5a 21 30 3d 30  |16,.q+"%"):Z!0=0|
00008200  3a 5a 21 34 3d 30 3a 5a  21 38 3d 30 3a c8 99 33  |:Z!4=0:Z!8=0:..3|
00008210  35 2c 22 36 35 30 32 45  6d 24 4b 65 79 6d 61 70  |5,"6502Em$Keymap|
00008220  22 2c 5a 2c 26 46 46 b8  2c 42 24 3a 4b 79 25 3d  |",Z,&FF.,B$:Ky%=|
00008230  a4 48 28 42 24 29 3a f2  57 28 26 43 2c 42 24 29  |.H(B$):.W(&C,B$)|
00008240  3a e1 0d 03 02 58 dd f2  57 28 4e 25 2c 41 24 29  |:....X..W(N%,A$)|
00008250  3a 5a 25 21 30 3d 6d 25  3a 5a 25 21 34 3d 4e 25  |:Z%!0=m%:Z%!4=N%|
00008260  3a c8 99 26 34 30 30 43  45 2c 2c 5a 25 3a 24 28  |:..&400CE,,Z%:$(|
00008270  5a 25 21 32 38 29 3d 41  24 2b bd 30 3a 5a 25 21  |Z%!28)=A$+.0:Z%!|
00008280  38 3d 30 3a 5a 25 21 26  43 3d 30 3a c8 99 26 34  |8=0:Z%!&C=0:..&4|
00008290  30 30 43 44 2c 2c 5a 25  3a e1 0d 03 03 20 dd f2  |00CD,,Z%:.... ..|
000082a0  47 28 6b 79 29 3a 71 3d  6b 79 3a f2 57 28 31 36  |G(ky):q=ky:.W(16|
000082b0  2c c3 71 2b 22 25 22 29  3a e1 0d 03 04 3d dd f2  |,.q+"%"):....=..|
000082c0  46 79 28 41 24 29 3a c8  99 26 32 30 30 33 39 2c  |Fy(A$):..&20039,|
000082d0  2c 22 49 6d 61 67 65 44  46 53 5f 56 65 72 73 69  |,"ImageDFS_Versi|
000082e0  6f 6e 22 b8 3b 53 3a e7  28 53 80 31 29 3d 30 8c  |on".;S:.(S.1)=0.|
000082f0  44 3d b9 8b 44 3d a3 0d  03 05 51 e7 44 3d a3 8c  |D=..D=....Q.D=..|
00008300  f2 60 28 22 49 6d 61 67  65 44 46 53 20 28 61 76  |.`("ImageDFS (av|
00008310  61 69 6c 61 62 6c 65 20  66 72 6f 6d 20 57 53 53  |ailable from WSS|
00008320  29 20 6d 75 73 74 20 62  65 20 6c 6f 61 64 65 64  |) must be loaded|
00008330  20 74 6f 20 61 63 63 65  73 73 20 74 68 69 73 20  | to access this |
00008340  66 69 6c 65 22 29 3a e1  0d 03 06 1e 78 79 25 3d  |file"):.....xy%=|
00008350  b9 3a f2 4e 28 41 24 2b  22 2e 21 42 4f 4f 54 22  |.:.N(A$+".!BOOT"|
00008360  29 3a f2 50 3a e1 0d 03  07 2c dd f2 60 28 41 24  |):.P:....,..`(A$|
00008370  29 3a c8 99 26 34 30 30  44 46 2c 22 20 20 20 20  |):..&400DF,"    |
00008380  22 2b 41 24 2c 32 35 2c  22 36 35 30 32 45 6d 22  |"+A$,25,"6502Em"|
00008390  3a e1 0d 03 08 27 dd f2  6d 3a f2 62 3a 5a 25 21  |:....'..m:.b:Z%!|
000083a0  30 3d 6d 25 3a c8 99 26  34 30 30 43 42 2c 2c 5a  |0=m%:..&400CB,,Z|
000083b0  25 3a e7 7a 79 25 3d a3  8c 0d 03 09 b1 c8 99 35  |%:.zy%=........5|
000083c0  33 2c 2d 31 2c 34 b8 2c  2c 4e 5f 25 3a c8 99 35  |3,-1,4.,,N_%:..5|
000083d0  33 2c 2d 31 2c 35 b8 2c  2c 57 5f 25 3a c8 99 35  |3,-1,5.,,W_%:..5|
000083e0  33 2c 2d 31 2c 26 42 b8  2c 2c 43 5f 25 3a c8 99  |3,-1,&B.,,C_%:..|
000083f0  35 33 2c 2d 31 2c 26 43  b8 2c 2c 50 5f 25 3a 53  |53,-1,&C.,,P_%:S|
00008400  79 25 3d 5a 25 21 26 43  2d 5a 25 21 34 3a 46 79  |y%=Z%!&C-Z%!4:Fy|
00008410  25 3d 5a 25 21 31 36 2d  5a 25 21 38 3a 5a 25 21  |%=Z%!16-Z%!8:Z%!|
00008420  34 3d 28 28 43 5f 25 3c  3c 4e 5f 25 29 2d 53 79  |4=((C_%<<N_%)-Sy|
00008430  25 29 2f 32 3a 5a 25 21  38 3d 28 28 50 5f 25 3c  |%)/2:Z%!8=((P_%<|
00008440  3c 57 5f 25 29 2d 46 79  25 29 2f 32 3a 5a 25 21  |<W_%)-Fy%)/2:Z%!|
00008450  26 43 3d 5a 25 21 34 2b  53 79 25 3a 5a 25 21 31  |&C=Z%!4+Sy%:Z%!1|
00008460  36 3d 5a 25 21 38 2b 46  79 25 0d 03 0a 1d cd 3a  |6=Z%!8+Fy%.....:|
00008470  5a 25 21 32 38 3d 2d 31  3a c8 99 26 34 30 30 43  |Z%!28=-1:..&400C|
00008480  35 2c 2c 5a 25 3a e1 0d  6f f5 1d dd f2 6c 3a 51  |5,,Z%:..o....l:Q|
00008490  5f 25 3d 26 41 3a 4c 5f  25 3d 28 31 3c 3c 51 5f  |_%=&A:L_%=(1<<Q_|
000084a0  25 29 3a e1 0d 6f f6 98  dd f2 58 79 3a ea 46 2c  |%):..o....Xy:.F,|
000084b0  71 25 3a f2 6c 3a de 6a  79 25 20 28 34 2a 4c 5f  |q%:.l:.jy% (4*L_|
000084c0  25 29 3a de 69 79 25 36  34 3a de 4d 79 25 35 31  |%):.iy%64:.My%51|
000084d0  32 3a de 47 5f 25 26 38  30 3a e3 71 25 3d 30 b8  |2:.G_%&80:.q%=0.|
000084e0  26 33 46 46 3a 3f 28 6a  79 25 2b 71 25 29 3d 71  |&3FF:?(jy%+q%)=q|
000084f0  25 2a 26 41 3a ed 3a c8  99 26 34 30 31 38 30 2c  |%*&A:.:..&40180,|
00008500  26 37 46 b8 78 3a e3 71  25 3d 30 b8 26 37 46 3a  |&7F.x:.q%=0.&7F:|
00008510  c8 99 26 34 43 34 38 45  2c 71 25 2c 41 25 3a 46  |..&4C48E,q%,A%:F|
00008520  3d b5 28 28 71 25 2f 26  38 30 29 2a af 29 3a e7  |=.((q%/&80)*.):.|
00008530  46 3c 3e 30 8c 46 3d 46  5e 30 2e 32 0d 6f f7 e9  |F<>0.F=F^0.2.o..|
00008540  c8 99 26 34 30 31 38 31  2c 26 37 46 46 46 46 46  |..&40181,&7FFFFF|
00008550  46 46 2a 46 b8 46 3a 3f  28 4d 79 25 2b 71 25 29  |FF*F.F:?(My%+q%)|
00008560  3d 46 3a 3f 28 4d 79 25  2b 26 38 30 2b 71 25 29  |=F:?(My%+&80+q%)|
00008570  3d 46 2b 31 3a ed 3a e3  71 25 3d 30 b8 36 33 3a  |=F+1:.:.q%=0.63:|
00008580  3f 28 4d 79 25 2b 32 35  36 2b 71 25 29 3d 3f 28  |?(My%+256+q%)=?(|
00008590  4d 79 25 2b 71 25 2a 28  38 2f 34 29 29 3a ed 3a  |My%+q%*(8/4)):.:|
000085a0  e3 71 25 3d 30 b8 26 42  46 3a 3f 28 4d 79 25 2b  |.q%=0.&BF:?(My%+|
000085b0  32 37 32 2b 71 25 29 3d  3f 28 4d 79 25 2b 26 38  |272+q%)=?(My%+&8|
000085c0  30 2b 71 25 2a 28 38 2f  26 43 29 29 3a ed 3a c8  |0+q%*(8/&C)):.:.|
000085d0  99 26 34 30 31 38 30 2c  78 3a 72 25 3d 58 2b 21  |.&40180,x:r%=X+!|
000085e0  28 58 2b 32 32 2a 34 29  3a 21 28 72 25 2b 30 29  |(X+22*4):!(r%+0)|
000085f0  3d 6a 79 25 3a 21 28 72  25 2b 34 29 3d 69 79 25  |=jy%:!(r%+4)=iy%|
00008600  3a 21 28 72 25 2b 38 29  3d 4d 79 25 3a 21 28 72  |:!(r%+8)=My%:!(r|
00008610  25 2b 26 43 29 3d 47 5f  25 2b 36 34 3a 72 25 2b  |%+&C)=G_%+64:r%+|
00008620  3d 31 36 3a e1 0d 6f f8  54 dd f2 4a 79 3a 72 25  |=16:..o.T..Jy:r%|
00008630  3d 58 2b 21 28 58 2b 32  32 2a 34 29 3a 21 28 72  |=X+!(X+22*4):!(r|
00008640  25 2b 30 29 3d 6a 79 25  3a 21 28 72 25 2b 34 29  |%+0)=jy%:!(r%+4)|
00008650  3d 69 79 25 3a 21 28 72  25 2b 38 29 3d 4d 79 25  |=iy%:!(r%+8)=My%|
00008660  3a 21 28 72 25 2b 26 43  29 3d 47 5f 25 2b 36 34  |:!(r%+&C)=G_%+64|
00008670  3a 72 25 2b 3d 31 36 3a  e1 0d 6f f9 14 dd f2 76  |:r%+=16:..o....v|
00008680  3a e7 ac 75 25 8c 67 79  25 3d a3 3a e1 0d 6f fa  |:..u%.gy%=.:..o.|
00008690  fa ea 71 25 2c 63 25 3a  c8 99 26 34 30 31 38 33  |..q%,c%:..&40183|
000086a0  2c 72 25 2c 30 b8 2c 55  5f 25 3a c8 99 26 34 30  |,r%,0.,U_%:..&40|
000086b0  31 34 30 2c 34 2c 26 44  30 2c 34 38 2c 30 2c 30  |140,4,&D0,48,0,0|
000086c0  b8 58 79 2c 4e 79 2c 54  79 2c 4c 79 2c 47 79 3a  |.Xy,Ny,Ty,Ly,Gy:|
000086d0  c8 99 26 34 30 31 38 35  2c 31 2c 31 b8 2c 51 79  |..&40185,1,1.,Qy|
000086e0  3a c8 99 26 34 30 31 38  35 2c 32 2c 31 b8 2c 4b  |:..&40185,2,1.,K|
000086f0  79 3a c8 99 26 34 30 31  38 35 2c 33 2c 31 b8 2c  |y:..&40185,3,1.,|
00008700  60 3a c8 99 26 34 30 31  38 35 2c 34 2c 31 b8 2c  |`:..&40185,4,1.,|
00008710  6e 3a c8 99 26 34 30 31  38 41 2c 31 2c 22 36 35  |n:..&4018A,1,"65|
00008720  30 32 45 6d 75 6c 61 74  6f 72 22 3a c8 99 26 34  |02Emulator":..&4|
00008730  30 31 38 41 2c 32 2c 22  36 35 30 32 45 6d 75 6c  |018A,2,"6502Emul|
00008740  61 74 6f 72 22 3a c8 99  26 34 30 31 38 41 2c 33  |ator":..&4018A,3|
00008750  2c 22 36 35 30 32 45 6d  75 6c 61 74 6f 72 22 3a  |,"6502Emulator":|
00008760  c8 99 26 34 30 31 38 41  2c 34 2c 22 36 35 30 32  |..&4018A,4,"6502|
00008770  45 6d 75 6c 61 74 6f 72  22 3a c8 99 26 34 30 31  |Emulator":..&401|
00008780  38 30 2c 6c 25 b8 78 0d  6f fb 93 e3 71 25 3d 30  |80,l%.x.o...q%=0|
00008790  b8 26 46 3a 63 25 3d 71  25 2b 28 71 25 3c 3c 34  |.&F:c%=q%+(q%<<4|
000087a0  29 3a 63 25 3d 63 25 2b  28 63 25 3c 3c 38 29 3a  |):c%=c%+(c%<<8):|
000087b0  63 25 3d 63 25 2b 28 63  25 3c 3c 31 36 29 3a c8  |c%=c%+(c%<<16):.|
000087c0  99 26 34 30 31 38 31 2c  28 63 25 3e 3e 3e 31 29  |.&40181,(c%>>>1)|
000087d0  b8 63 25 3a 3f 28 69 79  25 2b 71 25 29 3d 63 25  |.c%:?(iy%+q%)=c%|
000087e0  3a ed 3a d4 31 2c 2d 31  2c 31 2c 26 46 46 3a d4  |:.:.1,-1,1,&FF:.|
000087f0  32 2c 2d 31 2c 31 2c 26  46 46 3a d4 33 2c 2d 31  |2,-1,1,&FF:.3,-1|
00008800  2c 31 2c 26 46 46 3a d4  34 2c 2d 31 2c 31 2c 26  |,1,&FF:.4,-1,1,&|
00008810  46 46 3a 67 79 25 3d b9  3a e1 0d 6f fc 0e dd f2  |FF:gy%=.:..o....|
00008820  71 3a e7 ac 75 25 8c e1  0d 6f fd 73 c8 99 26 34  |q:..u%...o.s..&4|
00008830  30 31 38 30 2c 78 3a c8  99 26 34 30 31 34 30 2c  |0180,x:..&40140,|
00008840  58 79 2c 4e 79 2c 54 79  2c 4c 79 2c 47 79 3a c8  |Xy,Ny,Ty,Ly,Gy:.|
00008850  99 26 34 30 31 38 35 2c  31 2c 51 79 3a c8 99 26  |.&40185,1,Qy:..&|
00008860  34 30 31 38 35 2c 32 2c  4b 79 3a c8 99 26 34 30  |40185,2,Ky:..&40|
00008870  31 38 35 2c 33 2c 60 3a  c8 99 26 34 30 31 38 35  |185,3,`:..&40185|
00008880  2c 34 2c 6e 3a c8 99 26  34 30 31 38 34 2c 30 2c  |,4,n:..&40184,0,|
00008890  55 5f 25 3a 67 79 25 3d  a3 3a e1 0d ff           |U_%:gy%=.:...|
0000889d