 
4Т ---------------------------------------------- Т CLONE : Disk Copier 4Т ---------------------------------------------- ((ч param 12, sectab 39, data 256*10-1 2osword=&FFF1 <К 7 F;Рbegin               :Т get source drive and dest drive P5Рhowmany             :Т how many tracks on source Z*Рinsert              :Т get user ready d nЦ T%=0 ╦ maxtrack% x  Т seek track 0 on source ┌  Рseek0(sdrive%) ▄ √$  Т read sectors IDs from source ═  Рsectorids(T%) ╙ Є$  Т if sectors found, clone them Ў  Г param?10 = 0:Рclone хМ р0Я ┼0,22);Ґ133;"      cloning complete      " эЮ Ф ПщРclone З!Т establish lowest sector numРlowest*Т set source track register to logical"Рtrack(sdrive%, ?sectab),6"Т read the data for this track@Рread(?sectab)JT"Т if drives are the same, swap^Г sdrive%=ddrive%:РswapohrТ seek track 0 on dest|Рseek0(ddrive%)├░'Т copy source format to dest format Рformat(T%)єў(Т set dest track register to logical╦Рtrack(ddrive%,?sectab)бл#Т copt source data to dest dataжРwrite(?sectab)ЮЙ"Т if drives are the same, swapТГ sdrive%=ddrive%:РswapiЧАщРbegin,Т find out source and destination drives&	Рhead0У:  Я ┼0,5);д38," ")D0  Я ┼0,5);Ґ134;"enter source drive (0-3) >";N  Х " " sdrive%XЩ sdrive%>-1 ─ sdrive%<4bУl  Я ┼0,7);д38," ")v5  Я ┼0,7);Ґ134;"enter destination drive (0-3) >";─  Х " " ddrive%┼Щ ddrive%>-1 ─ ddrive%<4■А·╗щРdisplay╡'Т display the track being processed╪	Рheadф&Я ┼0,5);Ґ134;" drive";Ґ130;sdrive%п%Я Ґ134;" physcial track ";Ґ130;T%зГ param?10<>0:АДЯ ┼00,8);Ґ134;"phys"НЯ ┼00,9);Ґ134;"sect"ЬЯ ┼06,8);Ґ134;"log "Я ┼06,9);Ґ134;"trck"Я ┼12,8);Ґ134;"head"Я ┼18,8);Ґ134;"log " Я ┼18,9);Ґ134;"sect"*Я ┼24,8);Ґ134;"size"4@%=3>Ц I%=0 ╦ 9H  J%=I%+10R  Я ┼02,J%);Ґ130;I%\  Я ┼08,J%);sectab?(4*I%+0)f  Я ┼14,J%);sectab?(4*I%+1)p  Я ┼20,J%);sectab?(4*I%+2)z  Я ┼26,J%);sectab?(4*I%+3)└М▌А≤╒щРformat(track%)╛&Т format dest disk to match sourceІ0param?0  = ddrive%      :Т dest drive numberю+param!1  = sectab       :Т sector tableй3param?5  = &05          :Т number of parametersт2param?6  = &63          :Т format command codeч4param?7  = track%       :Т physical track numberХ(param?8  = 21           :Т gap3 sizeР<param?9  = &2A          :Т sector size/number of sectorsЭ(param?10 = 0            :Т gap5 size(param?11 = 16           :Т gap1 size
A%=&7FX%=param$Y%=X% │ 256.ж osword8Г param?12=0:АB6Я ┼4,22);Ґ133;"format: bad result = &";~param?12:ЮLАV`
щРheadjТ screen headertш~#Я ┼8,2);Ґ141;Ґ131;"DISK CLONER"┬#Я ┼8,3);Ґ141;Ґ131;"DISK CLONER"▓А°іщРhowmany╟(Т find out how many tracks on source╨Т *DRIVE sdrive%дЪ "DRIVE "+цsdrive%нТ get number of sectorsь
A%=&7EБX%=paramЛY%=X% │ 256Жж osword maxtrack%=(!param │ 2560)-1
АщРinsert(*Т get disks in drive amd wait for user2Г sdrive%=ddrive%:Рswapi:А<	РheadF7Я ┼0,5);Ґ134;"insert source disk in drive ";sdrive%P<Я ┼0,6);Ґ134;"insert destination disk in drive ";ddrive%Z/Я ┼3,8);Ґ133;"press SPACE when ready to go"dУnЩ і(100)=32x	Рhead┌А▄√щРlowest═$Т find out lowest logical sector╙lowsec%=sectab?2ЄЦ I%=1 ╦ 9Ў9  Г sectab?(4*I%+2) < lowsec%:lowsec%=sectab?(4*I%+2)хМрАэФщРread(track%)ПТ read a track from sourceЗ2param?0  = sdrive%      :Т source drive number*param!1  = data         :Т data buffer3param?5  = &03          :Т number of parameters(param?6  = &57          :Т read code"3param?7  = track%       :Т logical track number,-param?8  = lowsec%      :Т logical sector6<param?9  = &2A          :Т sector size/number of sectors@
A%=&7FJX%=paramTY%=X% │ 256^ж oswordh+del%=param?10 ─ &20   :Т get delete bitr0res%=param?10 ─ &1E   :Т mask off delete bit|del$="ordinary data marks"├&Г del%<>0:del$="delete data marks"░Я ┼4,21);Ґ130;del$ Г res%=0:Ає4Я ┼4,22);Ґ133;"read: bad result = &";~param?10:ЮўА╦бщРsectorids(track%)л'Т read sector IDs from source trackж2param?0  = sdrive%      :Т source drive numberЮ+param!1  = sectab       :Т sector tableЙ3param?5  = &03          :Т number of parametersТ3param?6  = &5B          :Т read sector IDs codeЧ3param?7  = track%       :Т logical track numberparam?8  = 00param?9  = 10           :Т number of sectors
A%=&7F&X%=param0Y%=X% │ 256:ж oswordDРdisplayNГ param?10=0:АX1Я ┼2,44);Ґ133;"ids: bad result = &";~param?10bАlvщРseek0(drive%)─Т seek to track 0┼$param?0  = drive%       :Т drive■)param!1  = -1           :Т no address·3param?5  = 1            :Т number of parameters╗0param?6  = &69          :Т seek command code╡&param?7  = 0            :Т track 0╪
A%=&7FфX%=paramпY%=X% │ 256зж oswordДГ param?8=0:АН2Я ┼2,44);Ґ133;"seek0: bad result = &";~param?8ЬАщРswapiТ swap back to source disk 	Рhead*7Я ┼0,5);Ґ134;"insert source disk in drive ";sdrive%4/Я ┼0,8);Ґ134;"press SPACE when ready to go">УHЩ і(100)=32R	Рhead\АfpщРswapoz#Т swap back to destination disk└	Рhead▌<Я ┼0,5);Ґ134;"insert destination disk in drive ";ddrive%≤/Я ┼0,8);Ґ134;"press SPACE when ready to go"╒У╛Щ і(100)=32І	РheadюАйтщРtrack(drive%,to%)чТ alter track registerХ0param?0  = &FF          :Т use current driveР)param!1  = -1           :Т no addressЭ3param?5  = 2            :Т number of parameters	3param?6  = &7A          :Т write track reg code	%Т pick the correct track register	#Т for drive 0/2, register = &12	$#Т for drive 1/3, register = &1A	.!param?7  = &12+8*(drive% ┐ 2)	8/param?8  = to%          :Т new track number	B
A%=&7F	LX%=param	VY%=X% │ 256	`ж osword	jГ param?9=0:А	t4Я ┼2,44);Ґ133;"track: bad result = &";~param?9:Ю	~А	┬	▓щРwrite(track%)	°/Т copy data from source track to dest track	і0param?0  = ddrive%      :Т dest drive number	╟*param!1  = data         :Т data buffer	╨3param?5  = &03          :Т number of parameters	дТ pick correct write code	н"Т if not deleted data, use &4B	ьТ if deleted data, use &4F	Б)param?6  = &4B          :Т write code	ЛГ del%<>0:param?6=&4F	Ж3param?7  = track%       :Т logical track number
 -param?8  = lowsec%      :Т logical sector

<param?9  = &2A          :Т sector size/number of sectors

A%=&7F
X%=param
(Y%=X% │ 256
2ж osword
<-res%=param?10 ─ &1E:Т mask off delete bit
FГ res%=0:А
P5Я ┼4,22);Ґ133;"write: bad result = &";~param?10:Ю
ZАЪ