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