 
Т > QDCopy 1.17 Т Quick & Dirty Copier Т Can't find original (Т v1.10 ->DOS and <-DOS 2Т v1.11 Skips Directories <Т v1.12 '`'->'_' F4Т v1.13 Full char conversion, recursive From DOS P%Т v1.14 19-Nov-98 Tweeked subdirs Z"Т v1.15 05-Dec-98 Fuller ToDOS d3Т v1.16 07-Jan-99 Forces DOS dest to upper case n+Т v1.17 02-Feb-99 Avoid W9x name blocks x: ┌(К7:О28,0,24,39,0:Я"Quick DOS Copier" ▄CГ⌠<>&7C00:Я"Screen not in language memory -"'"Can't proceed.":Ю √'Char0$="#`_#":Char1$="&++%pp~--$dd" ═+Х"(T)o DOS or (F)rom DOS? "A$:A$=юA$,1) ╙ГA$="T":РToDos:Я:Ю ЄГA$="F":РFromDos:Я:Ю ЎЯ:Ю х: рщРFromDos эН ┘ Ж:РvduOff:Я:Ю ФРvduAss П*DOS ЗРvduOn:Ъ".":РvduOff%Х"Destination filing system: "fs$Ъfs$:*. Я"Press SPACE to copy";:A%=╔"РFrom(""):А,:6щРCat:ш:РvduOn:*.@РvduOff:Я''"Dir: ";path$:АJ:TщРFrom(path$)^Й F$,Addr%h
ш:*DOSrРCat:Addr%=&7C00:У|&Addr%?8=13:Addr%?12=13:Addr%?16=13├(Т Get filename, extension, attribute░*F$=$Addr%:E$=$(Addr%+9):A$=$(Addr%+14) &Addr%?8=47:Addr%?12=42:Addr%?16=32єF$=юF$,їF$+" "," ")-1)ўE$=юE$,їE$+" "," ")-1)╦A$=юA$,їA$+" "," ")-1)бГF$<>"":РFromObjectлAddr%=Addr%+20:ЩF$="":Аж:Ю%щРFromObject:ГE$<>"":F$=F$+"/"+E$ЙГїF$,"?"):АТ:F$=єCheckName(F$,Char0$):D$=єCheckName(юF$,10),Char1$)ЧГїA$,"D"):РFromDir:А;Я┼0,╪);"Copying ";F$;" to -"fs$"-"D$;┴(20-╘D$);Ґ11;Ґ13;Ъ"MOVE "+F$+" -"+fs$+"-"+D$А&:0щРFromDir:*Ъ"DIR "+F$:Ъfs$:Ъ"CDIR "+D$:Ъ"DIR "+D$D*РFrom(path$+"."+F$):Ъfs$:Ъ"Dir ^":*DOSN'Ъ"DIR "+ю".",path$="")+path$:РCat:АX:bщРToDoslРvduAssvЪ"DOS":*.─ Х"Source filing system: "fs$┼Ъfs$:*.■,Я"NB: Can't create DOS directories yet."· Я"Press SPACE to copy";:A%=╔╗РTo(""):А╡:╪щРTo(path$)фЙ F$,Addr%пЪfs$:ш:Ъ".":Addr%=&7CA0:УзAddr%?10=13:Addr%?19=13ДТ Get filename, attributeНF$=$Addr%:A$=$(Addr%+11)ЬAddr%?10=42:Addr%?19=32F$=юF$,їF$+" "," ")-1)A$=юA$,їA$+" "," ")-1)ГF$<>"":РToObject Addr%=Addr%+20:ЩF$="":А*:42щРToObject:F$=єCheckName(F$,Char0$):D$=єup(F$)>ГїA$,"D"):РToDir:АHI%=їD$,"/"):ГI%=0:D$=юD$,8)R/ГI%>0 ─ I%<╘D$-3:D$=аD$,I%+1)+"/"+юD$,I%-1)\(Т Checks for HTM, TXT, COM, EXE, BBCfГаD$,9,2)="/H":D$=D$+"TM"pГаD$,8,3)="/HT":D$=D$+"M"zГаD$,9,2)="/T":D$=D$+"XT"└ГаD$,8,3)="/TX":D$=D$+"T"▌ГаD$,9,2)="/C":D$=D$+"OM"≤ГаD$,8,3)="/CO":D$=D$+"M"╒ГаD$,9,2)="/E":D$=D$+"XE"╛ГаD$,8,3)="/EX":D$=D$+"E"ІГаD$,9,2)="/B":D$=D$+"BC"юГаD$,8,3)="/BB":D$=D$+"C"й	*DISKт9Я┼0,╪);"Copying -"fs$"-"F$" to "D$;┴(20-╘F$);Ґ11;Ґ13;ч$Ъ"MOVE -"+fs$+"-"+F$+" -DOS-"+D$ХАР:ЭщРToDir:А:$щєCheckName(A$,C$):Ц I%=1 ╦ ╘ A$BГїC$,аA$,I%,1)):A$=юA$,I%-1)+аC$,1+їC$,аA$,I%,1)),1)+аA$,I%+1)$	М:=A$.:8щєup(A$):ГA$="":АBIЙz%:Цz%=1╦╘A$:ГаA$,z%,1)>="`":A$=юA$,z%-1)+Ґ(≈аA$,z%,1)-32)+аA$,z%+1)L	М:=A$V:`щРvduAssjvduX%=vduX%:ГvduX%:АtчvduX% 256:WRCHV=&20E~Цp=0╦1:P%=vduX%┬[OPT p*2▓.SwapVectors°1LDA WRCHV:LDX oldWRCHV:STA oldWRCHV:STX WRCHVі9LDA WRCHV+1:LDX oldWRCHV+1:STA oldWRCHV+1:STX WRCHV+1╟RTS╨.oldWRCHVдEQUW newWRCHн.newWRCHьCMP #12:BCS jmpOldБLDA #≈"?"Л.jmpOldЖJMP (oldWRCHV) ]М:А
:#щРvduOn:vduOn%=vduOn%:ГvduOn%:АжSwapVectors:vduOn%=╧:А(:29щРvduOff:vduOn%=vduOn%:ГvduOn%:ж SwapVectors:vduOn%=ё<АЪ