ô > HexPatch !Þ ctrl% 31,name% 127,mem% 255 î … ö:òCloseAll:ñž:òexit(Ÿ) (9A$=¤OS_GetEnv:in1%=0:in2%=0:out%=0:X%=ctrl%:Y%=X%256 2@in1$=¤cl("",1):in2$=¤cl("",1):out$=¤cl("",1):base$=¤cl("",1) ) ()":òexit(0) F(çout$="":out$=in2$:in2$=in1$:in1$="" Pç—in1$=34:in1$="" Zcçin2$="":è"Base file: "in1$:è"Hexpatch file: "in2$:è"Output file: "out$:è"Base address: &"base$ dLX%!2=0:çin1$<>"":ç¤file(in1$,5)<>1:ñ"File '"in1$"' not found":òexit(214) nHload1%=X%!2:exec1%=X%!6:çbase$<>"":load1%= ("&"+base$):exec1%=load1% xNbase%=load1%€&FFFF:ç¤file(in2$,5)<>1:ñ"File '"in2$"' not found":òexit(214) ‚çin1$<>"":in1%=Ž(in1$) Œ6in2%=Ž(in2$):out%=®(out$):çin1%:òCopyTo(in1%,out%) –õ:òLine:ýÅ#in2%:òCloseAll =X%!2=load1%:A%=¤file(out$,2):X%!6=exec1%:A%=¤file(out$,3) ªòexit(0):à ´ ÝòLine ¾-õ:line$=¤rd(in2%):ýÅ#in2% „ Àline$,1)=":" ÈçÀline$,1)<>":":á Ònum%= ("&"+Áline$,2,2)) Üaddr%= ("&"+Áline$,4,4)) ætype%= ("&"+Áline$,8,2)) ðline$=Áline$,10) úçtype%<>0:á çnum%=0:á Ï#out%=addr%-base%:õ Õ#out%, ("&"+Àline$,2)) "line$=Áline$,3):ý©line$<3 ,á 6ÝòCopyTo(i%,o%):çÅ#i%:á @,ê l%:õ:l%=256:ç#i%+l%>¢#i%:l%=¢#i%-#i% J/ògbpb(4,i%,mem%,l%,0):ògbpb(2,o%,mem%,l%,0) Tý Å#i%:á ^ÝòCloseAll h'in1%=in1%:çin1%:A%=in1%:in1%=0:Ù#A% r'in2%=in2%:çin2%:A%=in2%:in2%=0:Ù#A% |'out%=out%:çout%:A%=out%:out%=0:Ù#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% ços%<6:à ‹ *Quit á bÝ¤cl(l$,n%):çl$="":A$=¤s(A$):ç—A$=34:A%=§A$+""" ",""" ",2):l$=ÁA$,2,A%-3):A$=¤s(ÁA$,A%+1)):=l$ &<çl$="":A%=§A$+" "," "):l$=ÀA$,A%-1):A$=¤s(ÁA$,A%+1)):=l$ 0Gçn%=0:çl$<>"":A%=§A$,l$):çA%:A$=¤s(ÀA$,A%-1)+ÁA$,§A$," ",A%)+1)):=¹ :çn%=0:çl$<>"":=£ D%A%=§À" ",—l$=32)+A$,l$):çA%=0:="" N'A$=ÀA$,A%-1)+¤s(ÁA$,§A$," ",A%)+1)) XCç—l$=32:l$=ÁA$,A%):A$=ÀA$,A%-1):=Ál$,1-(—l$=34),©l$+2*(—l$=34)) bPç—ÁA$,A%,1)<>34:l$=ÁA$,A%,§A$+" "," ",A%)-A%):A$=ÀA$,A%-1)+ÁA$,A%+©l$+1):=l$ lJl$=ÁA$,A%+1,§A$+""" ",""" ",A%+1)-A%-1):A$=ÀA$,A%-1)+ÁA$,A%+©l$+3):=l$ v/Ý¤s(A$):çÀA$,1)=" ":õA$=ÁA$,2):ýÀA$,1)<>" " €+çÂA$,1)=" ":õA$=ÀA$,©A$-1):ýÂA$,1)<>" " Š=A$ ”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 øÍ =0 #Ýògbpb(A%,chn%,addr%,num%,ptr%) =?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:ços%<32:Ö &FFD1:á çA%=1„A%=3:Ï#?X%=X%!9 *5õ:çA%=1„A%=2:Õ#?X%,?X%!1 ‹ çA%=3„A%=4:?X%!1=š#?X% 45X%!1=X%!1+1:X%!5=X%!5-1:ý(Å#?X% € A%>2)„ X%!5<1:á >Ý¤rd(i%):êA$:õ H&A%=š#i%:çA%<>10 € A%<>13:A$=A$+½A% RýA%=10 „ A%=13 „ Å#i%:=A$ ÿ¢¨ ðB(C)© Úÿ„©©ò…¨ ƒ{¥¬H ƒ{¥¬…©h…¨Ð¥©ÉÐ ÿ¹ÿ™ˆÐ÷ð ˜H ƒ{h¨¥¬™ÈðÉ Ðí©*©ƒ ôÿ†p„q©‘…r©m…s ¢±r‘pÈÐùæqæsÊÐò “{¢Û {L÷ÿ¢¨ © ñÿæ¨Ðæ©`¢½¨½§{˜§{Êï`{¼{HÉ ÐÎ«{Ð “{h`†p®¬{½Ë{î¬{¦p`Q%=PAGE OLD RUN BASIC