,$&F98="COPYRIGHT Howard Spurr (c) 1985" *FX5,0 (™ë7:ID%=&900:V%=&C40:W%=&C48:@%=3:TF%=&1200:SF%=&1300:Þbuf% &5200:ï279;0;0;0;0;:T$=½141+"DISC DUPLICATOR ":C$=$&FA2:W$="†Only copying 40 tracks":DS%=0 2Qî… çŸ<>17Œï6,E%+5,12:ñŠ16,11)"ABORTED"Š13,15)"ƒPress‚SPACE":ö:ñž:ú:åDi@ ‹ ù d@ô Line 105 to start at &1560 ================== irë7: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 n‚õ:ñŠ8,4)"Source Drive? ";:DS%=¥-48:ýDS%>=0€DS%<4:ñ;DS%:õ:ñŠ8,6)"Tracks 40/80? ";:L%=¥-48:ýL%=4„L%=8:L%=L%*10-1:ñ;L%+1 ‚õñŠ8,9)"Destination Drive? ";:DD%=¥-48:ýDD%>=0€DD%<4:S%=DD%=DS%:ñ;DD%:õ:ñŠ8,11)"Tracks 40/80? ";:Q%=¥-48:ýQ%=4„Q%=8:Q%=Q%*10-1:ñ;Q%+1 –+C%=L%<>Q%:U%=L%:ç L%>Q% U%=Q%:ñŠ0,15)W$ ˜ç(DS%-DD%)ƒ2„S%Œ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% \ï279;0;0;0;0;:õ:ñŠ12,18)"ƒˆREADY?":ï7:ý(¥€&DF)=89:Û:òswap("source",0,DS%,L%):ç¬¤ns ŒdZG ¤òseek(DS%,0):I%=L%+1:T%=1:òid(I%):ç?&71<19 ï7:ñ'''"ƒˆ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% FãJ%=0¸U%ˆ8:òswap("source",0,DS%,L%):çE%„¤ns:ñ'"†Reading ...":‹t`O "9B%=buf%:!&98=0:!&9C=0:ãI%=J%¸J%+7:T%=I%ƒ8:çI%>U%ŒDrA J:ò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 hñI%; rí:ñ |Uòswap("destination",1,DD%,Q%):ñ'"…Formatting ...":ãI%=J%¸J%+7:T%=I%ƒ8:çI%>U%Œd`A ¤‡N%=T%?&70:T%?&78=¤m:K%=0:õ:?&80=DD%:!&81=ID%+72*T%:!&85=&6305:?&87=I%:!&88=N%?&27EA:!&8B=16:?&89=N%+32*T%?&78:çT%?&70=30 !&88=&A100 ¸òow:ç?&8C K%=K%+1 ‹A%=0 ÌýK%>4 „¬A% Ö-ï(131+(K%=0)+2*(A%<>0)):çT%?&70>18 ï8,152 àLñI%;:í:B%=buf%:ñ'''"ƒWriting ...":ãI%=J%¸J%+7:T%=I%ƒ8:çI%>U%ŒTRB:ô -òseek(DD%,I%):çT%?&70>18 ï152,9,9,9:åTRB çW%?T% òwtn(DD%,V%?T%) 3òwrite(V%?T%):çW%?T% òseek(DD%,0):òseek(DD%,I%) íI%:ñ" "'':íJ% EçE% òswap("source",0,DS%,L%):ädXD:òn:?&A47=?&13F7-1:?&86=&4B:òow &}ï6,E%+5,12:Ô1,-15,200,20:ñŠ14,7)"ƒˆFINISHED"Š14,8)"ƒˆFINISHED"Š10,18)"ˆPressƒSPACE‡to repeat":õý¥=32:çE% Û:åTr@:‹åDi@ 0Ýòswap(A$,G%,D%,N%):*FX15,0 21çC% ST$="set to "+Ã(N%+1)+" tracks " ‹ ST$="" 5€ç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%:á:ô DZÝòread(O%):K%=ID%+72*T%:?&80=DS%:!&85=&5703:çT%?&70>18 á:‹çT%?&70<>10 TF%?T%=&4F:åt@B bC!&81=B%:?&87=O%:!&88=&2A00:òow:TF%?T%=?&8A:ç?&8A=0 B%=B%+2560:á €1òsnf:M%=8:ãZ%=0¸T%?&70-1:P%=K%+4*Z%:N%=T%?&78 Šf!&81=B%:!&85=&5703:?&87=?P%:?&88=P%?2:!&89=32*N%+1:òow:TF%?(18*T%+Z%+8)=?&8A:òsnf:ç(?&8A €14)‹tcB çT%?&98<=Z%:T%?&98=Z%+1:N%=5 ¡.çN%N%=N%-1:åtJB:‹ñ''"ˆREAD ERROR":A%=¥¸P £0B%=B%+128*2^N%:SF%?(18*T%+Z%)=N%:çN%¤m Z%=30:í‹í:á ¨.ãZ%=N%-1¸0ˆ-1:Y%=?(SF%?(18*T%+Z%)-M%+7584) ªÈçY%>0ãX%=18¸Z%+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%+1¸Z%+Y%:K%!(4*X%)=K%!(4*X%)‚&FFAAFF00:TF%?(18*T%+X%+8)=-1:í:T%?&70=T%?&70+Y%:í:á:‹í:á ¼£Ýòwrite(O%):ãZ%=0¸T%?&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:åTBC ä çT%?&98ŒçTF%?(K%+8)=255ŒTVC î-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%;:á 4kÝòid(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:á RHãX%=0¸17:ãY%=X%+1¸30:çK%!(4*X%)=K%!(4*Y%) M%=Y%-X%:Y%=40:çM%>N%N%=M% fJí:í:T%?&70=N%:V%?T%=?K%:T%?&78=¤m:çH%<>?K%€N%<19 W%?T%=¹:òwtn(DS%,?K%) pá:ô z2Ýòseek(D%,R%):!&85=&6901:!&80=D%:?&87=R%:òow:á „GÝòwtn(D%,R%):!&80=-1:!&84=&127A02FF:!&88=R%:?&87=&12+8*(D%ƒ2):òow:á è"Ýòow:A%=&7F:X%=&80:Y%=0:Ö-15:á LÝòload(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á:‹… °!E%=21:òow:ç?&7D55>50P%=¥:Ö!-4 ºCòload(39,0,1,&6300):òn:?5111=?&A47:?&A47=3:?&86=&4B:òow:ç?&8A ù Ø òload(39,1,4,&3000):*FX200,3 â!?&86=&4F:?&88=0:òow:ç?&8A…:‹ø x%Ý¤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=24òseek(DS%,0):òseek(DS%,I%):çW%?T%òwtn(DS%,O%) há Ú;òload(39,4+4*(?&A47>0),1,&7CF0):ç?&7D55>50 õý¥=32:åDi@ ß<ç?&A47=3 òload(39,1,1,&7CF0):õý¥=32:åDi@:‹ç?&A47>3 Ö!-4 ä(ç?&7D55>?&A47+48 òload(39,2,1,&7CF0) îõý¥=32:ätpD:î…åTBH øpñŠ6,16)"ƒCopying‚DISK DUPLICATOR II"Š7)"ƒfrom Drive ";DS%;" to Drive ";DD%''''''''''''':ï28;20,4647;12:åTXA 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"':åTr@ ¸8Ýòn:òseek(DS%,0):?&82=10:!&85=&2005303:!&89=33:òow:á *FX200,3 ¡2!647=&2874C:!&81=&7C00:!&88=&2404:òow:G=¥:Ö!-4 p#ô8412311200 ÿÿÿÿÿHÿP0€`0 ÿ