L0DISCDUPLIC(C)A L S 1985 `hhh`HHHCȱOȱPȱYȱ ӥqsprsȱrpqsrpO L D R U N hhh`  <>&1600 =&1600:*COPY  *FX14,6 g7:I%=052:"COPYRIGHT";::"ALS":6,28,14,14,24,12,12,23,1,0;0;0;0;:'"DISCDUP"; (A= 2 *FX13,6 < *FX5,0 FwID%=&900:V%=&C40:W%=&C48:@%=3:TF%=&1200:SF%=&1300: buf% &5000:T$="DISK DUPLICATOR III":C$="(C) A L S 1985":DS%=0 PF6::10,12)"HELA, GLUURDER"12,18)"PressSPACE":=32:Dd@ Z3 DISK DUPLICATOR II Version 1.3 HOS8406211300+ dw7:F%=:E%=0:""9,0)T$37,0)""'""9,1)T$37,1)"";0,23)" "C$37,23)"";:28,0,21,39,2:*FX200,2 n: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 x8,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 ~C%=L%<>Q%:U%=L%: L%>Q% U%=Q%:0,14)"WARNING:"'"Source is larger than destination"'"Only 40 tracks will be copied!" (DS%-DD%)2S%t`@ C%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% Q279;0;0;0;0;::12,18)"READY?":7: (&DF)=89::swap("source",0,DS%,L%) dseek(DS%,0):?&82=9:!&85=&1005303:!&89=34:ow:!&9A3<>&7261776F ?&A47+1 TBC,TLC,TLC !-4 ;''"Please wait ...":seek(DS%,0):I%=L%+1:T%=1:id(I%) ?&71<19 1,-12,180,5:1,-12,120,5:''"NOTE"'"Source disc contains track ";I%:'"Do you wish to transfer this track Y/N"::P%="YyNn",):P%:P%<3 U%=I% G:''"Copying ";U%+1;" tracks from"'"Drive ";DS%;" to Drive ";DD% XJ%=0U%8:swap("source",0,DS%,L%):'"Reading ...":I%=J%J%+7:T%=I%8:I%>U%dz@ :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>18 8,152 I%; : Uswap("destination",1,DD%,Q%):'"Formatting ...":I%=J%J%+7:T%=I%8:I%>U%TvA {:K%=0:?&80=DD%:!&81=ID%+72*T%:!&85=&6305:?&87=I%:!&88=&10002A10:?&8C=0:?&89=T%?&70+32*T%?&78:T%?&70=30 !&88=&00006F00 ow:?&8C K%=K%+1 A%=0 "K%>4 A% ,-(131+(K%=0)+2*(A%<>0)):T%?&70>18 8,152 6=I%;::'''"Writing ...":I%=J%J%+7:T%=I%8:I%>U%DhA @ J-seek(DD%,I%):T%?&70>18 152,9,9,9:DhA TW%?T% wtn(DD%,V%?T%) ^3write(V%?T%):W%?T% seek(DD%,0):seek(DD%,I%) hI%:" "'':J% r&E% swap("source",0,DS%,L%):t|B |6,E%+5,12:1,-15,200,20:14,7)141"FINISHED"14,8)141"FINISHED"10,18)"PressSPACEto repeat":=32:E% :T|@:Dd@ swap(A$,G%,D%,N%):*FX15,0 1C% ST$="set to "+(N%+1)+" tracks " ST$="" S% 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) E%:: read(O%):T%?&70>18  T%?&70<>10 TF%?T%=&4F:dLA V?&80=DS%:!&81=buf%+2560*T%:!&85=&5703:?&87=O%:!&88=&2A00:ow:TF%?T%=?&8A:?&8A=0 Rsnf:Z%=0T%?&70-1:P%=ID%+4*(Z%+18*T%):N%=SF%?(18*T%+Z%):T%?&90wtn(DS%,?P%) Y?&80=DS%:!&81=buf%+2560*T%+Z%*128*2^N%:!&85=&5703:?&87=?P%:?&88=P%?2:!&89=32*N%+1:ow qTF%?(18*T%+Z%+8)=?&8A:snf:(?&8A 14)=0:N%=0''"READ CRC ERROR":A%=:P:N%=N%-1:SF%?(18*T%+Z%)=N%:dVA : write(O%):Z%=0T%?&70-1:N%=SF%?(18*T%+Z%):?&80=DD%:!&81=buf%+2560*T%+Z%*128*2^N%:!&85=&4B03:?&87=O%:?&88=ID%?(4*(Z%+18*T%)+2):!&89=32*N%+1 $TF%?T%=0 !&88=&2A00:Z%=10:T\B $TF%?(18*T%+Z%+8)&20>0 ?&86=&4F 5TF%?(18*T%+Z%+8)>0 129:O%;".";Z%;:8,8,8,8,8,8 $ow:?&8A=24 W%?T% 129:O%;: &T?&8A<>0 ?&8A<>TF%?(18*T%+Z%+8) 6:''" WRITE ERROR ---Press a key":A%=: 0:131+(TF%?T%=0):O%;: :id(H%):?&80=DS%:!&84=&FF5B03FF:!&88=&1300:B%=ID%+72*T%:!&81=B%&FFFF0000:?&87=H%:N%=0:W%?T%=0:ow:?&8A=24 T%?&70=30:seek(DS%,H%): DIX%=017:Y%=X%+118:B%!(4*X%)=B%!(4*Y%) M%=Y%-X%:Y%=30:M%>N% N%=M% N: XT%?&70=N%-30*(N%=0):M%=(17/(N%+3))+(N%>10)-(N%>14):V%?T%=?B%:T%?&90=diff(B%):T%?&98=diff(B%+3):T%?&78=M%:X%=017:SF%?(18*T%+X%)=M%: b(H%<>?B%N%<19 W%?T%=:wtn(DS%,?B%) l : vCseek(D%,R%):!&80=&FF800000:!&84=&6901FF:?&80=D%:?&87=R%:ow: Nwtn(D%,R%):!&80=&FF0000FF:!&84=&127A02FF:!&88=R%:?&87=&12+8*(D%2):ow: $ow:A%=&7F:X%=&80:Y%=0:&FFF1: Aload(P%,K%,Z%,N%):seek(DS%,0):seek(DS%,P%-5):wtn(DS%,P%) L?&80=DS%:!&81=N%:!&85=&5703:?&89=&40+Z%:?&87=P%:?&88=K%:ow:?&8A=32: E%=21:ow:?&7D55>50 P%=: load(39,0,1,&1400):seek(DS%,0):?&82=10:!&85=&2005303:!&89=33:ow:?&13F7=?&A47:?&A47=((?&A47+?&7D55)=52):?&86=&4B:ow:?&8A  load(39,1,4,&3000):*FX200,3 ?&86=&4F:?&88=0:ow:?&8A 28;20,4647;12: 5ݤdiff(P%):Y%=0:X%=0T%?&70:?P%<>P%?(4*X%) Y%=  :=Y% ?snf:?&8A=24seek(DS%,0):seek(DS%,I%):W%?T%wtn(DS%,O%)  $load(39,3,1,&7CF0):=32:Dd@  /load(39,0,1,&7CF0):?&7D55>50 =32:Dd@ (?&7D55>?&A47+48 load(39,2,1,&7CF0)  =32:thB::TtC *O"CopyingDISK DUPLICATOR III"'"from Drive ";DS%;" to Drive ";DD%:dR@: 4:swap("source",0,DS%,L%):seek(DS%,0):?&82=10:!&85=&2005303:!&89=33:ow:?&A47=?&13F7:?&86=&4B:ow:load(39,0,1,&3000):?&86=&4F:?&82=&14:ow:?&1465=?&1465-1:?&1465>48 ?&88=2:ow >66,7,12:"Copy failed due to write error"':T|@ Le DISC DOCTOR 1.0B(C) COMPUTERCONCEPTSBy Paul Hiscock+Oliver Wurstlin of POM SOFTWARE 1983HHH , %Lz ex  Q 9 L 轠轠ƭZ)ݠ*CK.$L+轠  LL  `}v`x} lA к轟"nHnou v武 aH h LL)8a:6: v ȁ $v0LU L uLG u|L`&&/:: Ȧ`$v0 ``u  u`L8`wʆ}"ȥIB}LL 2$0 *|x ȁ| ަLx wL$0 }܆}w `ȱ%I /ŏ+ ˂eeeL`80  !Ŏ`[@@ `٪ȹɁ ǃɉ 2 ǃL ȹKC L:$`ȹ d|. LS)8bH $0( < ȹ-* $ Lƪh> $0) LS$0L` 6 ; * 2 L | o%ho"hhh(`L  . L̃  ` $ x $i0L00HH hh`*MENU O. RUN *D. T. DIR = DR. Bad disc sizeBad driveBad numberBad quotesNot foundCan't openBad nameToo bigSyntax:Bad keyFormat errorVerify error fsp*afsp*str**trk>