L0BASIL(C)BASIL `hhh`HHHBȱAȱSȱIȱLȱ ̥qsprsɐȱrpqsrpO L D R U N hhh`  2  "* COPIER * "  ;  "Modifications byM.P.Haynes."  ( *FX200 3 2 7 < A$=30," ") F7:=&2B00 PP%=&1700:STORE=&8E:[OPT0:.START LDY#0:LDA#0:.LOOP STA(STORE),Y:INY:BNE LOOP:RTS:.START2 LDY#0:LDA#66:LDX#10:.LOOP2 STA(STORE),Y:INY:BNE LOOP2:INC STORE+1:DEX:BNE LOOP2:RTS:]:I Z% 10,0)(141)+"* COPIER * " d% 10,1)(141)+"* COPIER * " n :0,4)A$ x$ 0,4)"No.OF TRACKS ";  D%: D%=40 D%=80  :0,6)A$ $ 0,6)"SOURCE DRIVE ";  A: A>-1 A<4 E%=A  :0,8)A$ $ 0,8)" DESTINATION DRIVE";  A: A>-1 A<4 F%=A - 3,12)"ARE YOUABSOLUTELYSURE";  Q$: Q$,1)<>"Y" .3,17)"INSERTSOURCEDISK INTODRIVE";E% < E%<>F% 0,19)"INSERT DESTINATIONDISK INTODRIVE";F%  : ,3,24)"PRESS SPACE TO PROCEED ";  (-99) " AC%=0 ,! AC%=1 ** FOR REPAIRED COPY 6 T%=0::''''' @S(0,E%):E%<>F%S(0,F%) J T%=0D%-18:T%L("SOURCE") Tr!STORE=&1200:START:!STORE=&1300:START:!STORE=&1400:START:ID(T%):R(T%):L("DESTINATION"):F(T%):W(T%):T% ^ :end h rRW(ADDR,DRIVE,TRACK,SECTOR,TYPE,SIZE):?H%=DRIVE:H%!1=ADDR:H%?6=TYPE:H%?7=TRACK:H%?8=SECTOR:H%?9=SIZE:TYPE<>&7A H%?5=3H%?5=2 | &FFF1: L(M$):E%<>F%tnA 7:*FX21,0 2:0,10)"INSERT ";M$;" DISK AND PRESSSPACE"  (-99)  *FX21,0  DS(TRACK,DV):?H%=DV:H%!1=B%:H%?5=1:H%?6=&69:H%?7=TRACK:&FFF1: dI:H%=&900:B%=&1200:A%=&7F:X%=0:Y%=&9:L%=&1460:N%=&1468:C%=&1470:J%=&1490:JJ%=&1498:DD%=&149F: jF(FT%):?H%=F%:S(0,F%):S%:AT%=FT%FT%+7:" FORMATTING ";AT%;" ":11:Z%=AT%-FT%:S(AT%,F%) RAC%=1S%=09:K%=B%+76*Z%+4*S%:K%?0=AT%:K%?1=0:K%?3=1:K%?2=S%:S%:Q%=&2A:d~A L%?Z%=9TRB Q%=&20*J%?Z%+JJ%?Z% H%!1=B%+76*Z% EH%?9=Q%:H%?5=5:H%?6=&63:H%?7=AT%:H%?8=&10:H%?10=0:H%?11=10:&FFF1  AT%: eR(RT%):!JJ%=&A0A0A0A:JJ%!4=&A0A0A0A:S(RT%,E%):G%=&2B00:AT%=RT%RT%+7:Z%=AT%-RT%:L%?Z%=9TzB &dRW(G%,E%,AT%,0,&57,42):"READING ";AT%;" ":11:H%?10=0L%?Z%=0:N%?Z%=0:J%?Z%=1:TzB 06L%?Z%=1:C:(N%?Z%=&FL%?Z%=8)RSEC(E%,&57):DDB :G%=G%+&A00 D AT%: NID(IT%):S(0,E%):AT%=IT%IT%+7:Z%=AT%-IT%:?H%=E%:H%!1=B%+76*Z%:H%?5=&03:H%?6=&5B:H%?7=AT%:H%?8=0:H%?9=19:&FFF1:"READING ID ";AT%;" ":H%?10<>0L%?Z%=9 X11:AT%: bQC:M%=B%+Z%*76:I%=0:W%=0724:M%?W%=AT%C%?I%=0C%?I%=M%?W%:M%?W%=0L%?Z%=8 l8I%=I%+1:W%:W%=017:C%?W%=C%?(W%+1)U%=U%=:W%=18 v3W%:(U%=C%?2=0)N%?Z%=0U%=N%?Z%=1N%?Z%=&F '(M%?3<0M%?W%>4)J%?Z%=1J%?Z%=M%?3 \I%=1:W%=6764:M%?2<>M%?W%I%=I%+1I%>3(I%<4M%?22=M%?(22+I%*4))JJ%?Z%=I%:W%=77W%=77  W%: PRSEC(DR%,TYPE):V%=?M%:S(AT%,DR%):O%=J%?Z%*32+1:Z:(DR%1)SR%=&1ASR%=&12 ZTYPE=&57S%=M%?2:RW(&8000,DR%,SR%,V%,&7A,&2A):RW(G%,DR%,V%,S%,TYPE,O%):H%?10&1FSR ]AA%=1A:S%=?(M%+2+4*(AA%-1)):TYPE=&57"READING ";AT%;".";AA%;" ":11:dFB 'DD%?(Z%*19+AA%)=1TYPE=&4FTYPE=&4B ;RW(&8000,DR%,SR%,V%,&7A,&2A):RW(G%,DR%,V%,S%,TYPE,O%) ]RW(&8000,DR%,SR%,AT%,&7A,&2A):TYPE<>&57"WRITING ";AT%;".";AA%;" ":11:ddB 3(H%?10&20)DD%?(Z%*19+AA%)=1DD%?(Z%*19+AA%)=0 G%=G%+ZA%:AA%:G%=G%+ZB%: `W(WT%):G%=&2B00:AT%=WT%WT%+7:Z%=AT%-WT%:?&911=&FFAT%=0?&3254=&30:?&327C=&30:?&30F7=&30 e(L%?Z%=0AC%=1)RW(G%,F%,AT%,0,&4B,42):G%=G%+&A00:"WRITING ";AT%;" ":11:TVC '(N%?Z%=&FL%?Z%>7)G%=G%+&A00:TVC  M%=B%+Z%*76:RSEC(F%,&4B)  AT%:  SR:R%=1 *KRW(G%,DR%,V%,S%,TYPE,R%):(H%?10&1F)=0J%?Z%=(R%-1)/32:O%=R%:Z:R%=&81 4R%=R%+32:R%<&82TjC >1Z:ZA%=&80*2^J%?Z%:A=JJ%?Z%:ZB%=&A00-A*ZA%: H!::" AT ";:X=0 2000:: R end \9 0,12)"Do you want toCOPYanotherDISC"; f Q$ p Q$,1)="Y" z &D9CD