ô > HexDiff ,Þ ctrl% 31,name% 127,mem1% 255,mem2% 255 î … ö:òCloseAll:ñ:òexit(Ÿ):à (9A$=¤OS_GetEnv:in1%=0:in2%=0:out%=0:X%=ctrl%:Y%=X%256 2?eol$=½13:ços%>5:eol$=½10 ‹ ços%=32:eol$=½13+½10:òWin_TextIO <@in1$=¤cl("",1):in2$=¤cl("",1):out$=¤cl("",1):base$=¤cl("",1) FPçin1$="-?":ñ"Usage: HexDiff () ()":òexit(0):à Pçout$="":out$=in2$:in2$="" Zç—in2$=34:in2$="" dZçin1$="":è"Base file: "in1$:è"Diff file: "in2$:è"Output: "out$:è"Base address: &"base$ nEX%!2=0:ç¤file(in1$,5)<>1:ñ"File1 '"in1$"' not found":òexit(214):à x.load1%=X%!2:çbase$<>"":load1%= ("&"+base$) ‚OX%!2=0:çin2$<>"":ç¤file(in2$,5)<>1:ñ"File2 '"in2$"' not found":òexit(214):à Œ.load2%=X%!2:çbase$<>"":load2%= ("&"+base$) –'in1%=Ž(in1$):çin2$<>"":in2%=Ž(in2$) çout$<>"":out%=®(out$) ª/ext1%=¢#in1%:ext2%=ext1%:çin2%:ext2%=¢#in2% ´line$="":base%=0:õ ¾&ç¬Å#in1%:ògbpb(4,in1%,mem1%,256,0) È,çin2%:ç¬Å#in2%:ògbpb(4,in2%,mem2%,256,0) Ò)max%=ext2%-base%-1:çmax%>255:max%=255 Ü%ã byte%=0 ¸ max%:ç©line$>31:òEmit æ$çin2%=0:line$=line$+½mem1%?byte% ð3çin2%:çmem1%?byte%=mem2%?byte%:çline$<>"":òEmit úPçin2%:çmem1%?byte%<>mem2%?byte% „ base%+byte%>ext1%:line$=line$+½mem2%?byte% 8í:base%=base%+256:eof%=Å#in1%:çin2%:eof%=eof%„Å#in2% *ýeof%:çline$<>"":base%=base%-256:òEmit 5òOut(":0000000000"+eol$):òCloseAll:î … òexit(0):à "<çout$<>"":ços%<32:ÿ"SetType "+out$+" FFF":ÿ"Stamp "+out$ ,òexit(0):à 6ÝòCloseAll @'in1%=in1%:çin1%:A%=in1%:in1%=0:Ù#A% J'in2%=in2%:çin2%:A%=in2%:in2%=0:Ù#A% T'out%=out%:çout%:A%=out%:out%=0:Ù#A% ^á h ÝòEmit r#addr%=load1%+base%+byte%-©line$ |-òOut(":"+¤h0(©line$,2)+¤h0(addr%,4)+"00") †2ã lp%=1 ¸ ©line$:òOut(¤h0(—Áline$,lp%,1),2)):í 'sum%=©line$+(addr%256)+(addr%€255) š/ã lp%=1 ¸ ©line$:sum%=sum%+—Áline$,lp%,1):í ¤/òOut(¤h0(256-(sum%€255),2)+eol$):line$="":á ®&ÝòOut(A$):çout%:òwr(out%,A$):á ‹ á ¸@Ý¤OS_GetEnv:êA$,A%,X%,Y%:X%=1:os%=((º&FFF4)€&FF00)256:ÞX%-1 ÂJços%=32:ç>&FFFF:È™"GetModuleFileName",0,X%,255:A$=$$X%:run$=A$:=@cmd$ Ìços%=32:A$=$&100 Ö{ç©A$=0:ç>&7FFF:run$=$&8100:È™"OS_GetEnv"¸A$,,A%:È™"OS_WriteEnv","",A%:A$=ÁA$,1+§A$+" "," ",1+§A$," "))):ç©A$=0:A$=run$ à2ç©A$=0:ç?(¸P-3):A$=$&600 ‹ ç©A$=0:A$=$(-&300) ê7A%=§A$+" "," "):run$=ÀA$,A%-1):çrun$<>"":=ÁA$,A%+1) ôbY%=X%256:A%=9:?X%=0:X%!1=X%+16:X%!16=0:Ö&FFD1:A%=X%+16:ç!A%€?A%+A%?2<>8:A%?(A%+1)=13:=$(A%+1) þ="" &Ýòos(A$):ç—A$=42:ÿA$ ‹ çA$<>"":×A$ á @Ýòexit(A%):ÿ"FX1,"+ÃA%:quit$=quit$:A$=quit$:quit$="":òos(A$) &ços%=32:È˜ A% 0ços%<6:à ‹ *Quit :á DbÝ¤cl(l$,n%):çl$="":A$=¤s(A$):ç—A$=34:A%=§A$+""" ",""" ",2):l$=ÁA$,2,A%-3):A$=¤s(ÁA$,A%+1)):=l$ N<çl$="":A%=§A$+" "," "):l$=ÀA$,A%-1):A$=¤s(ÁA$,A%+1)):=l$ XGçn%=0:çl$<>"":A%=§A$,l$):çA%:A$=¤s(ÀA$,A%-1)+ÁA$,§A$," ",A%)+1)):=¹ bçn%=0:çl$<>"":=£ l%A%=§À" ",—l$=32)+A$,l$):çA%=0:="" v'A$=ÀA$,A%-1)+¤s(ÁA$,§A$," ",A%)+1)) €Cç—l$=32:l$=ÁA$,A%):A$=ÀA$,A%-1):=Ál$,1-(—l$=34),©l$+2*(—l$=34)) ŠPç—ÁA$,A%,1)<>34:l$=ÁA$,A%,§A$+" "," ",A%)-A%):A$=ÀA$,A%-1)+ÁA$,A%+©l$+1):=l$ ”Jl$=ÁA$,A%+1,§A$+""" ",""" ",A%+1)-A%-1):A$=ÀA$,A%-1)+ÁA$,A%+©l$+3):=l$ ž/Ý¤s(A$):çÀA$,1)=" ":õA$=ÁA$,2):ýÀA$,1)<>" " ¨+çÂA$,1)=" ":õA$=ÀA$,©A$-1):ýÂA$,1)<>" " ²=A$ ¼#Ý¤h0(A%,N%)=Â"0000000"+Ã~A%,N%) ÆJÝ¤file(A$,A%):ços%<32:$name%=A$:?X%=name%:X%?1=name%256:=(º&FFDD)€&FF Ðç§A$,".")=0:A$=A$+"." Ú;çA%=255 „ A%=5:X%!14=Ž(A$):çX%!14:X%!10=¢#X%!14:Ù#X%!14 ä1çA%=255:çX%?6=0:ÿ"LOAD """+A$+""" "+Ã~X%!2:=1 îçA%=5:çX%!14:=1 ‹ ç A%=5:=0 øFçA%=0:ÿ"SAVE """+A$+""" "+Ã~X%!10+" "+Ã~X%!14:X%!10=X%!14-X%!10:=1 BçA%=7:ÿ"SAVE """+A$+""" "+Ã~+"+"+Ã~X%!10:X%!10=X%!14-X%!10:=1 çA%=8 Œ ê …:î … ê:=2 ÿ"MKDIR "+A$:=2 *Í 4=0 >#Ýògbpb(A%,chn%,addr%,num%,ptr%) H=?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:ços%<32:Ö &FFD1:á RçA%=1„A%=3:Ï#?X%=X%!9 \5õ:çA%=1„A%=2:Õ#?X%,?X%!1 ‹ çA%=3„A%=4:?X%!1=š#?X% f5X%!1=X%!1+1:X%!5=X%!5-1:ý(Å#?X% € A%>2)„ X%!5<1:á pÝòwr(o%,A$):çA$="":á z!ãA%=1¸©A$:Õ#o%,—ÁA$,A%,1):í:á „ÝòWin_TextIO Ž/È™ "GetStdHandle",-10 ¸ @hfile%(1):*INPUT 1 ˜0È™ "GetStdHandle",-11 ¸ @hfile%(2):*OUTPUT 2 ¢&È™ "SetConsoleMode",@hfile%(1),0:á ÿ¢¨ ðB(C)© Úÿ„©©ò…¨ ƒ{¥¬H ƒ{¥¬…©h…¨Ð¥©ÉÐ ÿ¹ÿ™ˆÐ÷ð ˜H ƒ{h¨¥¬™ÈðÉ Ðí©*©ƒ ôÿ†p„q©+…r©k…s ¢±r‘pÈÐùæqæsÊÐò “{¢Û {L÷ÿ¢¨ © ñÿæ¨Ðæ©`¢½¨½§{˜§{Êï`{¼{HÉ ÐÎ«{Ð “{h`†p®¬{½Ë{î¬{¦p`Q%=PAGE OLD RUN BASIC