ф > TapeCopy : CШ 106*256-1:й mem=106*256:с "Copy tape files to serial server"' (!д Ќdp@:д ЌDTA:й drive=CODE"S" 2Cи "Dest. pathname: ";† d$:з d$<>"" Њ й f$=d$:д ЌtZA:й d$=d$+"/" <: Fи;:с #0;"Press PLAY"; Pй bc=є 23300 Zй type=PEEK buffer d0й size=PEEK (buffer+11)+256*PEEK (buffer+12) n0й load=PEEK (buffer+13)+256*PEEK (buffer+14) x0й exec=PEEK (buffer+15)+256*PEEK (buffer+16) ‚$й f$="":г a=buffer+1 ё buffer+10 Њ"з PEEK a>32 Њ й f$=f$+Ѕ PEEK a –н a Є.с f$;TAB11;type;" ";load;"+";size;" ";exec ґ2з mem+size>65536 Њ с "Too long to copy":е ЌDP@ ѕй bc=є 23303 Ии;:с #0;"Pause tape."; Т,й f$=d$+f$+" "+Гtype+" "+Гload+" "+Гexec Ь+й start=mem:й length=size:д ЌD|A:е ЌDF@ ж: р3й buffer=23296+40:й bc=buffer-256*Ё(buffer/256) ъ+г a=23296 ё buffer-1:у b:POKE a,b:н a:ш 5Ь 0,mem/256,0,0 :REM EQUW mem:EQUB 0 =Ь 195,10,91,195,25,91 :REM JP TapeInfo:JP TapeLoad ;Ь 221,33,bc,91,17,17,0 :REM LD IX,buffer:LD DE,17 "8Ь 175,55,205,86,5 :REM XOR:SCF:CALL &0556 ,8Ь 48,242,201 :REM JR NC,TapeInfo:RET 6EЬ 221,42,0,91,237,91,bc+11,91:REM LD IX,(23296):LD DE,(buffer+11) @?Ь 62,255,55,195,86,5,0 :REM LD A,255:SCF:JP &0556:NOP J: THй drive=CODE"0"+PEEK 23766:й int1=0:Щ#0:з PEEK 23734<>244 Њ й int1=1 ^>з driveCODE"8" „ int1=0 Њ й drive=CODE"T" hз int1 Њ Ш#:OPEN#9,"b" rш |%з f$(2)<>":" Њ й f$=Ѕdrive+":"+f$ †1и#9;"S";(f$(3 ё))'a$;#2;(a$(2 ё))':зa$<>""Њ ш ђЗљ*"b"CODE start,length:ш љ%з f$(2)<>":" Њ й f$=Ѕdrive+":"+f$ ¤(и#9;"M";(f$(3 ё))'a$;#2;(a$(2 ё))':ш я