LАВ RFS(C)╔ЁC╔ ЁL<АHШ╔░I┼ЇРй│ЕЎйАЕўеЇIЕїhй`h`╔╨√HеїI┼Ї╨ёа▒ЎицЎ╨цўhй`HКHШHйyв│ Ї КйН Ї вЬаАй@ ╬ и ╫ ░ у LuА(hH╨взаА ў hиhкhй`hиhкh`!TITLE EXEC !BOOT *!BOOT         А▄АЖыCH."FAST-SE" =5*!TITLE        АБ9EБFAST SELECTIVE COPIER zп*FAST-SE#А╧Фо┬ Ї FAST selective Copier Ї version 0.7 Ї (Ї BBC B OS 1.2 Basic 2 2Ї <Ї VWG Tiwon FЇ Coenderstraat 1 PЇ DELFT (c) 1985 ZЇ HOLLAND d"Ї----------------------------- nЇ This program uses mBF#emory xЇ locations &840 to &CFF ВЇ and &1100 to &7C00 МЇ make sure no ROM's ЦЇ uses these а"Ї----------------------------- к ╥=╕P+&FF ┤ "LOAD FASTCO2 "+├~╕P ╛8юЕч Я=17 М ╪:╥=╕P+&FF:хНdH@ Л  "FX4,0":Ў:A%=ж(100):∙ ╚ *DISC ╥ *FX4,1 ▄*FX212,16╗г#8 ц*FX213,240 Ё *FX214,2 · Єinit ї ы7  Єheader " ёЙ(8); , ¤ дsure 6Єgetdir(Source%) @ Єsavedir Jї TЄdisplaycat ^ ЄclearC h Єselect rя31,0,24:я10,10 | ¤ дsure Жtoolong%=г:toomuch%=г РЄgetneededfiles Ъzч toolong%=╣ ё'': "INFO"+(╕#F$:ёЙ(30);╜136;╜94;'"Can't copy files longer than &6B00"''"Hit a key to restart":я7:G=е:хНDJA д чN%=0 ё"That's easy !!":я7:р оЄdisplayall ╕ ЄclearC ┬Єsortneededfiles ╠ё ╓ *FX11,0 р *FX15,1 ъ *OPT1 2 Ї I%=&680 ■Єsave_string G%=Source%:H%=De^'#st%  E%=ref% F%=0 0уA%=0╕&F0И4 :A%!&C00=A%!╕P Dэ NJ%=I%+8:K%=I%+&1B:L%=I%+&2F O *FX15,1 P1Єkey_in("HIMEM=&D00"+╜13+"OLD"+╜13+"RUN"+╜13) X ╨=&C00 b *FX200,2 l *FX3,6 v *FX4,1 Ар К Ф ▌Єinit Юj▐ fname$(32),C%(32),La%(32),La$(32),Laa%(╫-#32),Ea%(32),Ea$(32),Eaa%(32),Fl%(32),Fl$(32),Fal%(32),fn$(32) ис ▓ ╝ ▌дsure ╞ъ G$ ╨ё"Is this OK ?(Y/N)";:я7 ┌ї:G$=╛:¤з"YyNn",G$)<>0 фёG$ ючз"Yy",G$) М=-1 Л=0 °  ▌Єheader  Gя31,0,3:уI%=0╕1:я132,157,135:ё╜141;Й(6)"FAST Selective Copier":эЖ╝#:я7 ёЙ(12)╜130"by VWG Tiwon"  Fё''"Copy files from Disc ] Disc with"'Й(11)"MINIMUM disc swapping" *ё''"Limit :" 4)ё" -Maximum file length : &6B00"''' >)ё"Source drive (0_3) :( * for *CAT)"; HРSource%=е-48:ч Source%>-1 А Source%<4 М ё├(Source%)'ЛСc# ч Source%=-6 ё''"CAT Which drive?";:їA%=е-48:¤A%>-1АA%<5:ё├A%: "CAT"+├A%:хНT~C Л хНDHC R-ё"Destination drive (0_3) :(* for *CAT)"; \ЖDest%=е-48:ч Dest%>-1 А Dest%<4 М ё├(Dest%)'Л ч Dest%=-6 ё''"CAT Which drive?";:їA%=е-48:¤A%>-1АA%<5:ё├A%: "CAT"+├A%:хНDRL#RC Л хНD\C f "DRIVE"+├(Source%) pс z Д▌Єsave_string О$(I%)="Insert " Ш$(I%+8)="source" в$(I%+&F)="destination" м#$(I%+&1B)=" disk and hit a key" ╢$$(I%+&2F)="Hit "+╜7+╜136+"BREAK" └с ╩ ╘▌Єkey_in(a$) ▐у A%=1 ╕ йa$ ш "FX138,0,"+├(Ч(╚н#┴a$,A%,1))) Єэ №с  "▌ЄclearC:уI%=0╕32:C%(I%)=0:э:с  $▌Єdisplaycat .█ 8у I%=0 ╕ 1 B.ёЙ(7)╜141╜129"CATALOGUE Drive ";├(Source%) Lэ V ёК0,4); `у I%=1 ╕ F% И 2 j#A$=├~(Fl%(I%)):B$=├~(Fl%(I%+1)) tZёК3);fname$(I%);" ";─5-йA$,"0")+A$;:ч ╙0#I%<=F%-1 М ёК23);fname$(I%+1);" ";─5-йB$,"0")+B$ ~э Иё Тс Ь ж ▌Єselect ░я23,1,0;0;0;0; ║╗ёК0,20)╜130"Use"╜131"cursor keys"╜130"and"╜131"["╜130"to select"'К4)╜131"TAB or SPACEBAR"╜130"to mark file"'К4)╜131"DELETE"╜130"for corrections"'К4)╜131"CO0Ў#PY"╜130" initiates copying"; ─'ё'К4)╜131"ESCAPE"╜130" to restart"; ╬ *FX4,1 ╪ *FX12,10 т *FX11,20 ь X=19:Y=4 Ў ёКX,Y)"[" ї  G=е _ч G=138 А м((Y=3+(F%+1)Б2-1)А(X=39)А(F%Г2=1))А м(Y>2+(F%+1)Б2) Мя31,X,Y,32:Y=Y+1:я31,X,Y,91 .ч G=139 А Y>4 Мя31,$Y#X,Y,32:Y=Y-1:я31,X,Y,91 (Bч G=137 А м((Y=3+(F%+1)Б2)А F%Г2=1)Мя31,X,Y,32:X=39:я31,X,Y,91 2&ч G=136 Мя31X,Y,32:X=19:я31,X,Y,91 &6B00 М toolong%=╣:F$=fname$(T%) NFl$(N%)=дstrs(Fl%(T%)) XFal%(N%)=Fl%(T%) bэ lс v А▌дstrs(adVЙ#r%) Къ A$ ФA$=├~(adr%) Ю=─(4-йA$)*Ф(йA$<>5),"0")+A$ и ▓▌Єsortneededfiles ╝)aant%=0:ALLSET%=г:ref%=&840:offset%=0 ╞ї ╨ tot%=0 ┌у I%=1 ╕ NF% фчC%(I%)=1 МНTBH ю!ч tot%+Fal%(I%)<=&6B00 М Єadd °"ч aant%=NF% М ALLSET%=╣:I%=NF% э  ЄmrktabfZ#le ¤ ALLSET%=╣  $(ref%+offset%-2)="#" *с 4 > ▌Єadd Hbot%=&1100+tot% Rtot%=tot%+Fal%(I%) \C%(I%)=1:aant%=aant%+1 fЄfilltable poffset%=offset%+31 zс Д О▌Єfilltable Ш[$(ref%+offset%)=fn$(I%)+" "+дstrs(bot%)+"+"+дstrs(Fal%(I%))+" "+E+=*FAST-SE#АMАC]a$(I%)+" "+La$(I%)+" " вс м ╢▌Єmrktable └$(ref%+offset%-2)="*" ╩с  ╜u*Fastco2#А╬А╗Х═  "FX3,0":юЕЎ:хНTh@ pї:уD%=0╕1:ё$I%;$(J%+D%*7);$K%: "FX15,1":A%=е:B%=E%+F%:ї:чD%=0 "L.:"+├G%+"."+└$B%,14)Л "S.:"+├H%+"."+└$B%,29) 2C%=?(B%+29):B%=B%+31:¤C%<>32:э:F%=B%-E%:¤C%=35 (ё'$L%:?&FE4E=127  KP+    Ё                  Ё                И                      Ё       Ё              Ё                                                  Ё            Ё                    ─                      Ё       Ё              Ё                                                  Ё            Ё                ?                              Ё               є Ё                                            Ё                  Ё  ┐         ?                               Ё               є Ё                                            Ё                  Ё                И                    @  Ё       °              Ё                                                  Ё            Ё                                        А  Ё       Ї             Ё                                                  Ё            Ё                ;                                Ё               Є Ё                                            Ё                  Ё            є                               Ё               ё Ё                                            Ё                  Ё                И                      Ё       Ё              Ё                                                  Ё            Ё                    И                      Ё       °             Ё                                                  Ё            Ё