)":РEnd:Ю �╙qГin$="":Х "Source tapefile: "in$:Х "Destination microdrive file: "out$:Х "Microdrive cartridge title: "title$ �ЄГin$=""└out$="":РEnd:Ю �Ў6in%=▌(in$):Гin%=0:Я"File '"in$"' not found":РEnd:Ю �хJout%=ў(out$):Гout%=0:Я"Couldn't open file '"out$"'":ы#in%:in%=0:РEnd:Ю �р: �э sect%=255 �Ф7SpType%=0:SpName$="":SpLen%=0:SpStart%=0:SpExtra%=0 �П1SpTitle$=title$:Гtitle$="":SpTitle$=бout$,10) �ЗУ (num%=( #in%+256* #in%)-1:flag%= #in% 7Гflag%=&00:РRdHeader ▀ Гflag%=&FF:РRdData ▀ РRdSkip Ще#in% "РFillToEnd ,=у#out%,0 :Т Not write protected 6 РCloseAll @ РEnd:Ю J: TщРEnd:Гos%<6:Ю ▀ *Quit ^А h: rщРRdHeader |;Рgbpb(4,in%,mem%,num%,0) :Т Read header block ├SpType% =mem%?0 ░SpLen% =(mem%!11)─&FFFF SpStart%=(mem%!13)─&FFFF єSpExtra%=(mem%!15)─&FFFF ў mem%?11=13:SpName$=$(mem%+1) ╦А б: лщРRdData жnum%=num%-1 ЮТ Do first block: Й;sect%=sect%-1:block%=0:len%=512-9:Г num%<len%:len%=num% ТРSecHeader Ч7mem%!17=len%+9 :Т Block size 4$(mem%+19)=єpad(SpName$,10) :Т Filename Bmem%?29=єchk(15,28) :Т Checksum next 14 bytes mem%?30=SpType% &mem%!31=SpLen% 0=mem%!33=SpStart%:Г SpType%=1 └ SpType%=2:mem%!33=SpExtra% :Nmem%!35=SpExtra%:Г SpType%=1 └ SpType%=2:mem%!33=SpStart%:mem%!35=SpExtra% Dmem%!37=SpStart% N:Рgbpb(4,in%,mem%+30+9,len%,0) :Т Read first block X<mem%?542=єchk(30,541) :Т Checksum of data b;Рgbpb(2,out%,mem%,543,0) :Т Write first block lnum%=num%-len% v1Г num%<1:A%= #in%:А :Т Only one block ─: ┼Т Do following blocks: ■У ·@sect%=sect%-1:block%=block%+1:len%=512:Г num%<len%:len%=num% ╗РSecHeader ╡5mem%!17=len% :Т Block size ╪2$(mem%+19)=єpad(SpName$,10) :Т Filename ф@mem%?29=єchk(15,28) :Т Checksum next 14 bytes п4Рgbpb(4,in%,mem%+30,len%,0) :Т Read a block з:mem%?542=єchk(30,541) :Т Checksum of data Д9Рgbpb(2,out%,mem%,543,0) :Т Write first block Нnum%=num%-len% ЬЩ num%<1:A%= #in% А : щРRdSkip:о#in%=▐#in%+num%:А : *)щРSecClear:Ц A%=0 ╦ 542:mem%?A%=0:М:А 4: >щРSecHeader H РSecClear R/mem%?0=1 :Т Header block \0mem%?1=sect% :Т Sector number f0$(mem%+4)=єpad(SpTitle$,10):Т Cartridge name p9mem%?14=єchk(0,13) :Т Checksum first 14 bytes z-mem%?15=4 :Т Data block └+Г len%=num%:mem%?15=6 :Т EOF block ▌mem%?16=block% ≤А ╒: ╛щРFillToEnd Іblock%=0:Г sect%<0:А юУ:sect%=sect%-1 й*РSecHeader:mem%?15=0 :Т Free block тРgbpb(2,out%,mem%,543,0) чЩ sect%<2:А Х: Рщєchk(st%,en%):Й chk% ЭIЦ A%=st% ╦ en%:chk%=chk%+mem%?A%:Г chk%<256:chk%=chk%+1 ▀ chk%=chk%+2 &chk%=chk%─&FF:Гchk%<>0:chk%=chk%-1 М:=chk% : $-щєpad(A$,L%):A$=юA$,L%):=A$+дL%-╘ A$," ") .: 8щРCloseAll:*Exec B#in%=in%:Г in%:A%=in%:in%=0:ы#A% L(out%=out%:Г out%:A%=out%:out%=0:ы#A% VА `: j#щРgbpb(A%,chn%,addr%,num%,ptr%) t>Гos%<>32:!X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:ж &FFD1:А ~ГA%=1 └ A%=3:о#chn%=ptr% ┬=У:ГA%=1 └ A%=2:у#chn%,?addr% ▀ ГA%=3 └ A%=4:?addr%= #chn% ▓'addr%=addr%+1:num%=num%-1:Щnum%<1:А °: і#Т > BLib.ProgEnv 1.03 22Sep2001 ╟: ╨#Т Program Environment Functions д#Т ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ н: ь?Т Return command line tail, sets run$ to execution filename Б6Т Works with Basic on I/O,T6502,Arc,TZ80bbc,PC,Win Л;Т Needs: 270 free bytes above end of heap for temp. w/s Ж?щєOS_GetEnv:ЙA$,A%,X%,Y%:A%=0:X%=1:os%=((╨&FFF4)─&FF00)│256 �AГos%=6─░>&8000:х≥"OS_GetEnv"╦A$:A$=аA$,1+їA$," ",1+їA$," "))) `чX%-1:Гos%=32:Г░>&FFFF:х≥"GetModuleFileName",0,X%,255:X%?255=13:run$=ю$X%,ї$X%,Ґ0)-1):=@cmd$ Гos%=32:A$=$&100 2Г╘A$=0:Г?(╦P-3):A$=$&600 ▀ Г╘A$=0:A$=$(░-&300) (7A%=їA$+" "," "):run$=юA$,A%-1):Гrun$<>"":=аA$,A%+1) 2hчX%-1:Y%=X%│256:A%=9:?X%=0:X%!1=X%+16:X%!16=0:ж&FFD1:A%=X%+16:Г!A%─?A%+A%?2<>8:A%?(1+A%)=13:=$(A%+1) <="" F: P.Т Run a program, passing it a command line Z=Т If program is *Command, called with OSCLI, else CHAINed d&щРos(A$):ГA$=""└≈A$=42:ЪA$:А ▀ вA$ Ъ

Т > TAPtoMDR 1.00 Т (C) J.G.Harston 1Т Copy Spectrum tapefile to a microdrive file (: 2$Т v1.00 Based on FileToMDR v1.03 <: FН ┘ Ж:РCloseAll:РEnd:Ю P3ч ctrl% 31,name% 80,mem% 547:X%=ctrl%:Y%=X%│256 Z7A$=єOS_GetEnv:in$="":out$="":title$="":in%=0:out%=0 d7Гos%=32:х≥ "GetStdHandle",-10 ╦ @hfile%(1):*INPUT 1 n8Гos%=32:х≥ "GetStdHandle",-11 ╦ @hfile%(2):*OUTPUT 2 x,Гos%=32:х≥ "SetConsoleMode",@hfile%(1),0 ┌2A%=їA$+" "," "):ГA%:in$=юA$,A%-1):A$=аA$,A%+1) ▄3A%=їA$+" "," "):ГA%:out$=юA$,A%-1):A$=аA$,A%+1) √5A%=їA$+" "," "):ГA%:title$=юA$,A%-1):A$=аA$,A%+1) ═TГin$="-?" └ (in$<>"" ─ out$=""):Я"Usage: TAPtoMDR ()":РEnd:Ю �╙qГin$="":Х "Source tapefile: "in$:Х "Destination microdrive file: "out$:Х "Microdrive cartridge title: "title$ �ЄГin$=""└out$="":РEnd:Ю �Ў6in%=▌(in$):Гin%=0:Я"File '"in$"' not found":РEnd:Ю �хJout%=ў(out$):Гout%=0:Я"Couldn't open file '"out$"'":ы#in%:in%=0:РEnd:Ю �р: �э sect%=255 �Ф7SpType%=0:SpName$="":SpLen%=0:SpStart%=0:SpExtra%=0 �П1SpTitle$=title$:Гtitle$="":SpTitle$=бout$,10) �ЗУ (num%=( #in%+256* #in%)-1:flag%= #in% 7Гflag%=&00:РRdHeader ▀ Гflag%=&FF:РRdData ▀ РRdSkip Ще#in% "РFillToEnd ,=у#out%,0 :Т Not write protected 6 РCloseAll @ РEnd:Ю J: TщРEnd:Гos%<6:Ю ▀ *Quit ^А h: rщРRdHeader |;Рgbpb(4,in%,mem%,num%,0) :Т Read header block ├SpType% =mem%?0 ░SpLen% =(mem%!11)─&FFFF SpStart%=(mem%!13)─&FFFF єSpExtra%=(mem%!15)─&FFFF ў mem%?11=13:SpName$=$(mem%+1) ╦А б: лщРRdData жnum%=num%-1 ЮТ Do first block: Й;sect%=sect%-1:block%=0:len%=512-9:Г num%<len%:len%=num% ТРSecHeader Ч7mem%!17=len%+9 :Т Block size 4$(mem%+19)=єpad(SpName$,10) :Т Filename Bmem%?29=єchk(15,28) :Т Checksum next 14 bytes mem%?30=SpType% &mem%!31=SpLen% 0=mem%!33=SpStart%:Г SpType%=1 └ SpType%=2:mem%!33=SpExtra% :Nmem%!35=SpExtra%:Г SpType%=1 └ SpType%=2:mem%!33=SpStart%:mem%!35=SpExtra% Dmem%!37=SpStart% N:Рgbpb(4,in%,mem%+30+9,len%,0) :Т Read first block X<mem%?542=єchk(30,541) :Т Checksum of data b;Рgbpb(2,out%,mem%,543,0) :Т Write first block lnum%=num%-len% v1Г num%<1:A%= #in%:А :Т Only one block ─: ┼Т Do following blocks: ■У ·@sect%=sect%-1:block%=block%+1:len%=512:Г num%<len%:len%=num% ╗РSecHeader ╡5mem%!17=len% :Т Block size ╪2$(mem%+19)=єpad(SpName$,10) :Т Filename ф@mem%?29=єchk(15,28) :Т Checksum next 14 bytes п4Рgbpb(4,in%,mem%+30,len%,0) :Т Read a block з:mem%?542=єchk(30,541) :Т Checksum of data Д9Рgbpb(2,out%,mem%,543,0) :Т Write first block Нnum%=num%-len% ЬЩ num%<1:A%= #in% А : щРRdSkip:о#in%=▐#in%+num%:А : *)щРSecClear:Ц A%=0 ╦ 542:mem%?A%=0:М:А 4: >щРSecHeader H РSecClear R/mem%?0=1 :Т Header block \0mem%?1=sect% :Т Sector number f0$(mem%+4)=єpad(SpTitle$,10):Т Cartridge name p9mem%?14=єchk(0,13) :Т Checksum first 14 bytes z-mem%?15=4 :Т Data block └+Г len%=num%:mem%?15=6 :Т EOF block ▌mem%?16=block% ≤А ╒: ╛щРFillToEnd Іblock%=0:Г sect%<0:А юУ:sect%=sect%-1 й*РSecHeader:mem%?15=0 :Т Free block тРgbpb(2,out%,mem%,543,0) чЩ sect%<2:А Х: Рщєchk(st%,en%):Й chk% ЭIЦ A%=st% ╦ en%:chk%=chk%+mem%?A%:Г chk%<256:chk%=chk%+1 ▀ chk%=chk%+2 &chk%=chk%─&FF:Гchk%<>0:chk%=chk%-1 М:=chk% : $-щєpad(A$,L%):A$=юA$,L%):=A$+дL%-╘ A$," ") .: 8щРCloseAll:*Exec B#in%=in%:Г in%:A%=in%:in%=0:ы#A% L(out%=out%:Г out%:A%=out%:out%=0:ы#A% VА `: j#щРgbpb(A%,chn%,addr%,num%,ptr%) t>Гos%<>32:!X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:ж &FFD1:А ~ГA%=1 └ A%=3:о#chn%=ptr% ┬=У:ГA%=1 └ A%=2:у#chn%,?addr% ▀ ГA%=3 └ A%=4:?addr%= #chn% ▓'addr%=addr%+1:num%=num%-1:Щnum%<1:А °: і#Т > BLib.ProgEnv 1.03 22Sep2001 ╟: ╨#Т Program Environment Functions д#Т ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ н: ь?Т Return command line tail, sets run$ to execution filename Б6Т Works with Basic on I/O,T6502,Arc,TZ80bbc,PC,Win Л;Т Needs: 270 free bytes above end of heap for temp. w/s Ж?щєOS_GetEnv:ЙA$,A%,X%,Y%:A%=0:X%=1:os%=((╨&FFF4)─&FF00)│256 �AГos%=6─░>&8000:х≥"OS_GetEnv"╦A$:A$=аA$,1+їA$," ",1+їA$," "))) `чX%-1:Гos%=32:Г░>&FFFF:х≥"GetModuleFileName",0,X%,255:X%?255=13:run$=ю$X%,ї$X%,Ґ0)-1):=@cmd$ Гos%=32:A$=$&100 2Г╘A$=0:Г?(╦P-3):A$=$&600 ▀ Г╘A$=0:A$=$(░-&300) (7A%=їA$+" "," "):run$=юA$,A%-1):Гrun$<>"":=аA$,A%+1) 2hчX%-1:Y%=X%│256:A%=9:?X%=0:X%!1=X%+16:X%!16=0:ж&FFD1:A%=X%+16:Г!A%─?A%+A%?2<>8:A%?(1+A%)=13:=$(A%+1) <="" F: P.Т Run a program, passing it a command line Z=Т If program is *Command, called with OSCLI, else CHAINed d&щРos(A$):ГA$=""└≈A$=42:ЪA$:А ▀ вA$ Ъ