z$&F98="COPYRIGHT Howard Spurr (c) 1985":!&CEC=-1:!&CF0=&9BE54CE8:!&CF4=&79153863:!&CF8=&2E3D4E62:!&CFC=&0B1521:*FX5,0 7:ID%=&900:V%=&C40:W%=&C48:@%=3:TF%=&1200:SF%=&1300:buf%&51FF:279;0;0;0;0;:T$=141+"DISC DUPLICATOR ":C$=$&FA2:W$="Only copying 40 tracks":DS%=0 N<>176,E%+5,12:16,11)"ABORTED"13,15)"PressSPACE"::::Th@ (r7:F%=:E%=0:""9,0)T$37,0)""'""9,1)T$37,1)"";0,23)" "C$37,23)"";:28,0,21,39,2:*FX200,0 2:8,4)"Source Drive? ";:DS%=-48:DS%>=0DS%<4:;DS%::8,6)"Tracks 40/80? ";:L%=-48:L%=4L%=8:L%=L%*10-1:;L%+1 <8,9)"Destination Drive? ";:DD%=-48:DD%>=0DD%<4:S%=DD%=DS%:;DD%::8,11)"Tracks 40/80? ";:Q%=-48:Q%=4Q%=8:Q%=Q%*10-1:;Q%+1 F+C%=L%<>Q%:U%=L%: L%>Q% U%=Q%:0,15)W$ P(DS%-DD%)2S%Dd@ ZC%S%=-1 2,15)"Do you wish to swap discs between"2)"reading and writing? Y/N ";: P%="YyNn",):P%:S%=P%<3:78-11*S% d\279;0;0;0;0;::12,18)"READY?":7:(&DF)=89::swap("source",0,DS%,L%):笤ns thB nseek(DS%,0):I%=L%+1:T%=1:id(I%):?&71<197:'''"Source disc contains track ";I%:'"Do you wish to transfer this track Y/N"::P%="YyNn",):P%:P%<3 U%=I% xG:''"Copying ";U%+1;" tracks from"'"Drive ";DS%;" to Drive ";DD% FJ%=0U%8:swap("source",0,DS%,L%):E%ns:'"Reading ...":dxB 9B%=buf%:!&98=0:!&9C=0:I%=J%J%+7:T%=I%8:I%>U%tt@ :id(I%):read(V%?T%):W%?T%seek(DS%,0):seek(DS%,I%) <130+(TF%?T%>0)-2*(TF%?T%=&20)-4*W%?T%:T%?&70>188,152 I%; : Uswap("destination",1,DD%,Q%):'"Formatting ...":I%=J%J%+7:T%=I%8:I%>U%dp@ ȆN%=T%?&70:T%?&78=m:K%=0::?&80=DD%:!&81=ID%+72*T%:!&85=&6305:?&87=I%:!&88=N%?&CEC:!&8B=16:?&89=N%+32*T%?&78:T%?&70=30 !&88=&A100 ow:?&8CK%=K%+1A%=0 K%>4A% -(131+(K%=0)+2*(A%<>0)):T%?&70>188,152 EI%;::B%=buf%:'''"Writing ...":I%=J%J%+7:T%=I%8:I%>U%TXA -seek(DD%,I%):T%?&70>18152,9,9,9:TXA W%?T%wtn(DD%,V%?T%) 3write(V%?T%):W%?T%seek(DD%,0):seek(DD%,I%) I%:" "'':J% "EE%swap("source",0,DS%,L%):DlB:n:?&A47=?&13F7-1:?&86=&4B:ow ,}6,E%+5,12:1,-15,200,20:14,7)"FINISHED"14,8)"FINISHED"10,18)"PressSPACEto repeat":=32:E% :T^@:Th@ 6swap(A$,G%,D%,N%)*FX15,0 @/C%ST$="set to "+(N%+1)+" tracks "ST$="" JS%G%<>F% F%=G%:6,7:'"Load ";A$;" disk in Drive ";D%'""ST$;"and hit a key";:P%=:11,13,152,10,152,10,13:seek(D%,0) T E%: ^Yread(O%)K%=ID%+72*T%:?&80=DS%:!&85=&5703:T%?&70>18:T%?&70<>10TF%?T%=&4F:DrA hC!&81=B%:?&87=O%:!&88=&2A00:ow:TF%?T%=?&8A:?&8A=0B%=B%+2560: r1snf:M%=8:Z%=0T%?&70-1:P%=K%+4*Z%:N%=T%?&78 |g!&81=B%:!&85=&5703:?&87=?P%:?&88=P%?2:!&89=32*N%+1:ow:TF%?(18*T%+Z%+8)=?&8A:snf:(?&8A 14)tZA  T%?&98<=Z%:T%?&98=Z%+1:N%=5 .N%N%=N%-1:D|A:''"READ ERROR":A%=P 0B%=B%+128*2^N%:SF%?(18*T%+Z%)=N%:N%m Z%=30:: .Z%=N%-10-1:Y%=?(SF%?(18*T%+Z%)-M%+7584) Y%>0X%=18Z%+Y%-1:A%=18*T%+X%:K%!(4*X%)=K%!(4*(X%-Y%)):SF%?A%=SF%?(A%-Y%):TF%?(A%+8)=TF%?(A%+8-Y%)::X%=Z%+1Z%+Y%:K%!(4*X%)=K%!(4*X%)&FFAAFF00:TF%?(18*T%+X%+8)=-1::T%?&70=T%?&70+Y%:::: ̢write(O%)Z%=0T%?&70-1:K%=18*T%+Z%:N%=SF%?K%:?&80=DD%:!&81=B%:!&85=&4B03:?&87=O%:?&88=ID%?(4*K%+2):!&89=32*N%+1:TF%?T%=0 !&88=&2A00:Z%=10:B%=B%+2560:djA  T%?&98TF%?(K%+8)=255d~A -B%=B%+128*2^N%:TF%?(K%+8)&20>0?&86=&4F #ow:?&8A=24 W%?T%129:O%;: H?&8A<>0?&8A<>TF%?(K%+8)6:''"WRITE ERROR --Hit a key":A%=:P :131+(TF%?T%=0):O%;: jid(H%)?&80=DS%:!&85=&5B03:!&88=&1F00:K%=ID%+72*T%:!&81=K%:?&87=H%:N%=0:W%?T%=0:ow:?&8A T%?&70=30: HX%=017:Y%=X%+130:K%!(4*X%)=K%!(4*Y%)M%=Y%-X%:Y%=40:M%>N%N%=M% J::T%?&70=N%:V%?T%=?K%:T%?&78=m:H%<>?K%N%<19W%?T%=:wtn(DS%,?K%) & 01seek(D%,R%)!&85=&6901:!&80=D%:?&87=R%:ow: :Gwtn(D%,R%):!&80=-1:!&84=&127A02FF:!&88=R%:?&87=&12+8*(D%2):ow: D"ow:A%=&7F:X%=&80:Y%=0:-15: Nload(P%,K%,Z%,N%)seek(DS%,0):seek(DS%,P%-5):wtn(DS%,P%):!&81=N%:!&85=&5703:?&89=&40+Z%:?&87=P%:?&88=K%:ow:?&8A=32: X!E%=21:ow:?&7D55>50P%=:!-4 bCload(39,0,1,&6300):n:?5111=?&A47:?&A47=3:?&86=&4B:ow:?&8A l load(39,1,4,&3000):*FX200,3 v!?&86=&4F:?&88=0:ow:?&8A: $ݤm=(17/(N%+3))+(N%>10)-(N%>14) Xݤns:seek(DS%,0):?&82=9:!&85=&1005303:!&89=34:ow:?&FAF=13:?&9AF=13:=($&998<>$&F98) ?snf:?&8A=24seek(DS%,0):seek(DS%,I%):W%?T%wtn(DS%,O%)  ;load(39,4+4*(?&A47>0),1,&7CF0):?&7D55>50=32:Th@ 3!-4 (?&7D55>?&A47+48load(39,2,1,&7CF0) =32:DXB:dZB p6,16)"CopyingDISK DUPLICATOR II"7)"from Drive ";DS%;" to Drive ";DD%''''''''''''':28;20,4647;12:tB@ x:swap("source",0,DS%,L%):n:?&A47=?5111:?&86=&4B:ow:load(39,0,3,&3000):!&86=&4301274F:ow:!&88=&4100:?&82=99:ow .6,7,12:"SORRY! --- Copy failed"':T^@ 8n:seek(DS%,0):?&82=10:!&85=&2005303:!&89=33:ow:  *FX200,3 2!647=&00000:!&81=&7C00:!&88=&2404:ow:G=:!-4