Т > InsertFile *Т Insert file into BSD2.11 disk images : (disk$="2.11BSD_rq.dsk" 2disk$="bsd2-11.dsk" <: Fwr%=2:rd%=4:blsz%=512 P5ч ctrl% 31,mem% blsz%-1,chk% 7:X%=ctrl%:Y%=X%│256 ZН ┘ Я:Ж:РCloseAll:Я:Ю dХ "File to import: "in$ n%in%=▌(in$):Г in%=0:in%=▌(in$+".") x'Г in%=0:Я"File '"in$"' not found":Ю ┌Fup%=ґ(disk$):Г up%=0:Я"Disk image '"disk$"' not found":РCloseAll:Ю ▄: √$chk%="FILE" ═ptr%=0:ext%=╒#up% ╙(done%=0:size%=(╒#in%+blsz%-1)─-blsz% ЄУ Ў$Рgbpb(rd%-1,up%,mem%,blsz%,ptr%) хГ !mem%=!chk%:Рsector рptr%=ptr%+blsz% эЩ done%>=size% └ ptr%>=ext% ФЯ П РCloseAll ЗЯ ┼0,25);"Press a key";:Г╔ х≤ : щРsector ";fail%=mem%?4<>32:Ц A%=8 ╦ blsz%-1:Г mem%?A%<>32:fail%=╧ ,М A%:Г fail%:А 6/Ц A%=5 ╦ 7:Г mem%?A%>95:mem%?A%=mem%?A%─&DF @%М:mem%?8=13:sec%=═("&"+$(mem%+5)) J$Я┼40*(sec% │ 24),1+(sec% ┐ 24)); TЯ"Offset: &";$(mem%+5); ^Г sec%*blsz%>size%:Я:А h*Рgbpb(rd%-1,in%,mem%,blsz%,sec%*blsz%) r$Рgbpb(wr%-1,up%,mem%,blsz%,ptr%) ├done%=done%+blsz% ░Я" ";done%;" of ";size% А є: ў: ╦щРCloseAll б"up%=up%:Гup%:A%=up%:up%=0:ы#A% л"in%=in%:Гin%:A%=in%:in%=0:ы#A% жА Ю: Й#щРgbpb(A%,chn%,addr%,num%,ptr%) Т>?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:Г░<&FFFFF:ж&FFD1:А ЧГA%=1└A%=3:о#?X%=X%!9 5У:ГA%=1└A%=2:у#?X%,?X%!1 ▀ ГA%=3└A%=4:?X%!1= #?X% 5X%!1=X%!1+1:X%!5=X%!5-1:Щ(е#?X% ─ A%>2)└ X%!5<1:А Ъ