> TapeCopy : [106j*256-1:mem=106j*256:"Copy tape files to serial server"' ("240:340T:drive="S" 2="Dest. pathname: ";d$:d$"" f$=d$:410:d$=d$+"/" <: F;:#0;"Press PLAY"; Pbc=23300[ Ztype=buffer d6size=(buffer+11 )+256*(buffer+12 ) n6load=(buffer+13 )+256*(buffer+14) x6exec=(buffer+15)+256*(buffer+16) *f$="":a=buffer+1 buffer+10 a>32 f$=f$+¾a a .f$;11 ;type;" ";load;"+";size;" ";exec 5mem+size>65536 "Too long to copy":80P bc=23303[ ;:#0;"Pause tape."; (f$=d$+f$+" "+type+" "+load+" "+exec -start=mem:length=size:380|:70F : Fbuffer=23296[+40(:bc=buffer-256*(buffer/256) ,a=23296[ buffer-1:b:a,b:a: F0,mem/256,0,0 :EQUW mem:EQUB 0 Z195,10 ,91[,195,25,91[ :JP TapeInfo:JP TapeLoad X221,33!,bc,91[,17,17,0 :LD IX,buffer:LD DE,17 "O175,557,205,86V,5 :XOR:SCF:CALL &0556 ,C480,242,201 :JR NC,TapeInfo:RET 6n221,42*,0,91[,237,91[,bc+11 ,91[:LD IX,(23296):LD DE,(buffer+11) @b62>,255,557,195,86V,5,0 :LD A,255:SCF:JP &0556:NOP J: Tcdrive="0"+23766\:int1=0:0:23734\244 int1=1 ^9drive<"1" drive>"8" int1=0 drive="T" hint1 #:9 ,"b" r |$f$(2)":" f$=drive+":"+f$ D#9 ;"S";(f$(3 ))'a$;#2;(a$(2 ))':a$"" *"b"start,length: $f$(2)":" f$=drive+":"+f$ =#9 ;"M";(f$(3 ))'a$;#2;(a$(2 ))':