ô > FindWrdByt : 5Þ ctrl% 31,name% 80,mem% &3FFF:X%=ctrl%:Y%=X%256 (òScan:à 2: <ÝòScan:ê i%,n% F/õf$=¤s(¤gbpb8(i%)):i%=X%!9:n%=©f$:çn%:òFile Pýn%=0:á Z ÝòFile d!ç—f$=46 „ —f$=45 „ §f$,"<"):á n.ç¤file(f$,5)=2:ÿ"Dir "+f$:òScan:ÿ"Dir ^":á xA%=X%!3€&FFF ‚"çA%=&FAF „ A%=&FFB „ A%=&FFF:á ŒL%=X%!10:çL%>&4000:á –ÿ"LOAD "+f$+" "+Ã~mem% : ª8A%=9:title$="":õ:ç mem%?A%>31:title$=title$+½mem%?A% ´@A%=A%+1:ý mem%?A%<32 „ mem%?A%>126 „ A%>63:title$=¤s(title$) ¾-ver$="":õ:ç mem%?A%>31:ver$=ver$+½mem%?A% È=A%=A%+1:ý mem%?A%<32 „ mem%?A%>126 „ A%>127:ver$=¤s(ver$) Ò:A%=mem%?7:copy$="":õ:ç mem%?A%>31:copy$=copy$+½mem%?A% Ü?A%=A%+1:ý mem%?A%<32 „ mem%?A%>126 „ A%>255:copy$=¤s(copy$) æ"ç Àcopy$,3)<>"(C)":ver$=Âf$,4) ðç ver$=copy$:ver$="" úGç ver$="":A%=§title$,"."):ver$=Átitle$,A%-1,4):title$=Àtitle$,A%-2) $ç ver$="":ver$=ÀÃ~mem%?8+"00",3) /ç ¤uc(Àver$,7))="VERSION":ver$=¤s(Áver$,8)) )ç ¤uc(Àver$,1))="V":ver$=¤s(Áver$,2)) "7ç Àver$,1)>"9":A%=§ver$,"."):çA%:ver$=Áver$,A%-1,4) , ç Àver$,1)>"9":ver$=Áver$,2) 6/ç Áver$,2,1)="-":ver$=Àver$,1)+"."+Áver$,3) @+ç Áver$,2,1)>"9":ver$=Àver$,1)+Áver$,3) Jver$=¤s(ver$) T0ç Áver$,2,1)<>".":ver$=Àver$,1)+"."+Áver$,2) ^ ç ©ver$<5:ver$=Àver$+"00",4) h@ç Áver$,3,1)<"0" € Áver$,3,1)>"0":ver$=Àver$,2)+"0"+Áver$,3) r@ç Áver$,4,1)<"0" € Áver$,4,1)>"0":ver$=Àver$,3)+"0"+Áver$,3) |!copy$=Àcopy$,3)+¤s(Ácopy$,4)) †ç ©title$<3:title$=f$ : šA%=mem%:pr%=¹:õ ¤@ç ¤chk1:òpr:ñ;~A%-mem%+&8000;": LDA &EF ";title$;" ";ver$ ®Mç ¤chk2:òpr:ñ;~A%-mem%+&8002;": CMP #&";¤h0(A%?3,2);" ";title$;" ";ver$ ¸Mç ¤chk3:òpr:ñ;~A%-mem%+&8002;": SBC #&";¤h0(A%?3,2);" ";title$;" ";ver$ Â@ç ¤chk4:òpr:ñ;~A%-mem%+&8002;": BPL xxxx ";title$;" ";ver$ Ì@ç ¤chk5:òpr:ñ;~A%-mem%+&8002;": BMI xxxx ";title$;" ";ver$ Ö"A%=A%+1:ýA%>=mem%+L%:ç pr%=£:ñ àá ê: ôÝòpr:ç pr%:ñ f$:pr%=£ þá *Ý¤chk1:ç?A%=&A5:çA%?1=&EF:=¹:ô LDA &EF =£ <Ý¤chk2:ç?A%=&A5:çA%?1=&EF:çA%?2=&C9:=¹:ô LDA &EF:CMP #nn &=£ 0<Ý¤chk3:ç?A%=&A5:çA%?1=&EF:çA%?2=&E9:=¹:ô LDA &EF:SBC #nn :=£ D<Ý¤chk4:ç?A%=&A5:çA%?1=&EF:çA%?2=&10:=¹:ô LDA &EF:BPL xxx N=£ X<Ý¤chk5:ç?A%=&A5:çA%?1=&EF:çA%?2=&30:=¹:ô LDA &EF:BMI xxx b=£ l: vÝ¤uc(A$):ê B$:çA$="":="" €5õB$=B$+½(—A$€((A$<"@")„&DF)):A$=ÁA$,2):ýA$="":=B$ Š/Ý¤s(A$):çÀA$,1)=" ":õA$=ÁA$,2):ýÀA$,1)<>" " ”+çÂA$,1)=" ":õA$=ÀA$,©A$-1):ýÂA$,1)<>" " ž=A$ ¨#Ý¤h0(A%,N%)=Â"0000000"+Ã~A%,N%) ²"Ý¤d(A%,N%)=Â" "+ÃA%,N%) ¼BÝ¤file(A$,A%):$name%=A$:?X%=name%:X%?1=name%256:=(º&FFDD)€&FF ÆUÝògbpb(A%,chn%,addr%,num%,ptr%):?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:Ö &FFD1:á ÐBÝ¤gbpb(A%):X%!1=name%:Ö&FFD1:A%=name%+((1+?name%)€((A%€-2)=6)) ÚA%?(1+?A%)=13:=$(A%+1) äEÝ¤gbpb8(ptr%):X%!1=name%:X%!5=1:X%!9=ptr%:A%=8:Ö&FFD1:çX%!5=1:="" î#A%=name%:A%?(1+?A%)=13:=$(A%+1) ø4Ý¤args(A%,Y%,ptr%):ê X%,E%:ç?(¸P-3)=0:E%=Y%:Y%=0 /ç<&8000:ê !&70:X%=&70:!X%=ptr%:Ö&FFDA:=!X% )È™"OS_Args",A%,Y%,ptr% ¸ ,,ptr%:=ptr% =Ý¤argsA(A%):ç<&8000:ê X%,Y%,E%,!&70:X%=&70:=(º&FFDA)€&FF È™"OS_Args",A% ¸ A%:=A% *!Ý¤fs:ê A%,Y%,E%:=(º&FFDA)€&FF ÿ