> MkImage v1.04 E ctrl%127,name%79,cat%511,zp%9:A$=OS_GetEnv:in%=0:out%=0:inc%=0 75:size%=size%1024 Zinc$="":A%=" "+A$," -i@") d= A%:inc$=A$,A%+3,A$," ",A%)-A%-3):A%=cl("-i@"+inc$,0) n out$=cl("",0):in$=cl("",0) x debug%:" run$='"run$"'"'"quit$='"quit$"'"'" out$='"out$"'"'" in$='"in$"'"'" inc$='"inc$"'"'"recurse=";rc%;" verbose=";vb% , :" at line ";:Close_All:exit() -X%=ctrl%:Y%=X%256:sj%=:date%=0:cycle%=0 )max%=--8000: mem% max%:wr%=2:rd%=4 ' out$="":"Destination file: "out$ 2type$<>"dfs":"Only DFS supported.":exit(-1) type$="dfs":dmax%=&400 size%:dmax%=size%*4 #upd%:ChkDir:Enter0:exit(0) ;out%=(out$): out%=0:"Can't open '"out$"'":exit(214) ܀title$=title$+" ",12):$mem%=title$,8):$(mem%+256)=title$,9):mem%!260=0:A%=82554:mem%!A%=0:mem%!(A%+256)=0: 'files%=0:gbpb(wr%,out%,mem%,512,0) L#out%:out%=0:X%!2=&FFFB2200:A%=file(out$,2):out%=(out$):#out%=#out% "A%=0: in$<>"":A%=file(in$,5) b in$="" inc$<>"" stdin%:Enter:A%=2 A%=2:"Dir "+in$:fs%=fs:sj%=fs%=5:Scan(""):A%=2 % A%<>2:"Dir. '"in$"' not found" =size%:#out%=256+6:#out%,opt%*16+size%256:#out%,size% "#out%:out%=0 ,exit(0): 6Enter0:stdin%: @-:""A$:11;(A$);ĩA$,127);:A$="": JEnter:p$="" TAinc$="" stdin%:"Enter files to include, end with RETURN" ^;inc$<>"" stdin%:"Exec "+inc$:inc%=byte(198,0,255) h in$<>"":"Dir "+in$ r'fs%=fs:sj%=fs%=5:inc%:#inc%=0: |#: inc%=0:"Enter filename: "; , ""in$:stdin%:11;(A$);ĩA$,127); >leaf$=in$:A%=in$,","):A%:leaf$=in$,A%+1):in$=in$,A%-1) 6t%=0: in$<>"":t%=f_info(in$): inc% stdin%:11 3 t%:add in$<>"":"File '"in$"' not found" A%=0: inc%:A%=#inc% " in$="" A%: inc$<>"":*Exec  ;ݤChkDir:fs%=fs:sj%=fs%=5:in0$=in$:in$=out$:in$="":= :A%=f_info(in$):date%=z_date(X%!15):in$=in0$:A%=0:= 4A%=f_info(in$): z_date(X%!15)>date% A%=0:= A%=2:"Dir "+in$ = Scan(p$): p%,r% 7:in$=s(gbpb8(p%)):r%=X%!5:p%=X%!9: r%=0:RdName  r%=1: %RdName: in$=46 or in$=exc$: &=cycle%=X%?0:t%=0:t%=f_info(in$):leaf$=in$:add: t%<>2: 06rc%t%=2:"Dir "+in$:Scan(p$+in$+"."):"Dir ^": : D add N2load%=X%!2:exec%=X%!6:fsize%=X%!10:attr%=X%?14 XBmdate%=X%!15:mtime%=X%!17:cdate%=X%!20:ctime%=X%!22:acc%=X%!25 b(vb%v1%:"Adding ";p$;in$;"... "; lfiles%>30:"cat full": v+#out%+fsize%>dmax%*256:"disk full": 7 t%<>2:in%=(in$): in%=0:"Can't open '"in$"'.": &leaf$,2,1)<>"/":leaf$="$/"+leaf$ )leaf$=leaf$+" ",3,7)+leaf$,1) #out%=#out% >A%=256-(#out%255):A%<256:gbpb(wr%,out%,mem%,A%,#out%) 1#out%=#out%:ptr0%=#out%:trans:#in%:in%=0 >A%=256-(#out%255):A%<256:gbpb(wr%,out%,mem%,A%,#out%) 0files%=files%+1:sect%=ptr0%256:ptr0%=#out% '#out%=0:gbpb(rd%,out%,cat%,512,0) J A%=252 16 -4:cat%!A%=cat%!(A%-8):cat%!(256+A%)=cat%!(256+A%-8): '#out%=0:gbpb(wr%,out%,cat%,512,0) 6$mem%=leaf$:#out%=8:gbpb(wr%,out%,mem%,8,#out%) 8mem%!0=load%:mem%!2=exec%:mem%!4=fsize%:mem%?7=sect% Rmem%?6=sect%256+(load%&30000)16384+(fsize%&30000)4096+(exec%&30000)1024  .#out%=256+8:gbpb(wr%,out%,mem%,8,#out%) .#out%=256+4:#out%,cycle%:#out%,files%*8  =#out%,opt%*16+ptr0%65536:#out%,ptr0%256:#out%=#out% *$vb%v1%:8,8,8:"Done.";:vb%: 4'v1%:13:A%=16+p$+in$:(A%);13; > Htrans: fsize%=0 t%=2: Rcopyend%=fsize% \+ptr%=0:: vb%: sofar(ptr%,copyend%); f5len%=max%: ptr%+len%>copyend%:len%=copyend%-ptr% p!gbpb(rd%,in%,mem%,len%,ptr%) z$gbpb(wr%,out%,mem%,len%,#out%) #ptr%=ptr%+len%: ptr%>=copyend%  Fݤz_date(A%):=(A%31)+(A%&F00)8+((A%&F000)8+(A%&E0)*256)+&200 9ݤsofar(A%,B%):8,8,8: d0(A%/(B%+1)*100,2);"%";:="" Close_All:*EXEC "in%=in%:in%:A%=in%:in%=0:#A% 'out%=out%:out%:A%=out%:out%=0:#A%  :ݤOS_GetEnv:A$,A%:X%=1:os%=((&FFF4)&FF00)256:X%-1 Jos%=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$ 2A$=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$ . 8@exit(A%):"FX1,"+A%:quit$=quit$:A$=quit$:quit$="":os(A$) Bos%=32:Ș A% Los%<6: *Quit V `Hݤcl(l$,n%):l$="":I%=A$+" "," "):l$=A$,I%-1):A$=s(A$,I%+1)):=l$ jl$=32 A$<>"":A$=" "+A$ tbI%=A$,l$):l$="":I%>0n%>0:l$=A$,A$+" "," ",I%+1)+1):A$,I%,1)<>" ":l$=l$,l$+" "," ")-1) ~qI%:A$,I%,1)=" ":A$=A$,2+(A$<>32),I%-2-(I%=1)) I%:A$=A$,I%-1)+A$,A$+" "," ",A$+" "," ",I%)+l$)+1) "A$=s(A$):n%:=s(l$) =I%<>0 /ݤs(A$):A$,1)=" ":A$=A$,2):A$,1)<>" " +A$,1)=" ":A$=A$,A$-1):A$,1)<>" " =A$ #ݤd0(A%,N%)="00000000"+A%,N%) Bݤfile(A$,A%):$name%=A$:?X%=name%:X%?1=name%256:=(&FFDD)&FF Ugbpb(A%,chn%,addr%,num%,ptr%):?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%: &FFD1: 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) !ݤfs: A%,Y%,E%:=(&FFDA)&FF <ݤf_info(A$): F%,L%,E%,S%,T%,U%:F%=file(A$,5):F%=0:=0 'X%!17=0:X%!21=0:X%!25=0:fs<>5:=F% %L%=X%!2:E%=X%!6:S%=X%!10:T%=X%!14  $NetFS_Op(18,65+in$)=0:U%=X%!5 nNetFS_Op(18,64+in$)=0:X%!15=X%!10:X%?19=X%?14:X%!20=X%!5:X%?24=X%?9 X%!14=T%:X%!19=T%:X%?19=0:X%!22=0 2X%!2=L%:X%!6=E%:X%!10=S%:X%?14=T%:X%!25=U%:=F% (/ݤs(A$):A$,1)=" ":A$=A$,2):A$,1)<>" " 2+A$,1)=" ":A$=A$,A$-1):A$,1)<>" " <=A$ Fݤlc(A$): B$:A$="":="" P5B$=B$+(A$((A$<"_")&20)):A$=A$,2):A$="":=B$ ZNݤNetFS_Op(A%,A$):!X%=0:X%?1=8+ A$:X%!3=A%:$(X%+7)=A$:A%=&14:&FFF1:=X%?3 d`ݤNetFS_OpN(A%,T%,O%,A$):!X%=0:X%?1=O%+1+A$:X%!3=A%:X%?7=T%:$(X%+O%)=A$:A%=&14:&FFF1:=X%?3 B(C) {H {h H {h * pqrasrpqs {۠{L `{{`{{H Ϋ{ {h`p{{{p`Q%=PAGE OLD RUN BASIC