Т > TubeHost Т Serial Tube Host System 4Т v0.26 - Added client/host filename conversion (&Т v0.27 - Configurable .inf usage 2(Т v0.27a - "" is a wildcard filename <4Т v0.27b - host_LOAD, host_SAVE convert filename FXТ v0.28 - reads file header, correct filename for *command, */command, *RENAME done PPТ v0.29 - *RUN looks for file.bin, data transfer in blocks, implemented *EX ZТ v0.29a - COM configurable d=Т v0.29b - Uses KBD translation, RDCH sends Escape change nJТ v0.29c - hnd% used for handles that don't need to be closed on error x: ┌!Т Note, os% test differences: ▄Т os%=6 - RISC OS √6Т os%=%000x0xxx - Any dir.file/ext filing system ═&Т os%=8 - Unix/Linux/etc ╙6Т os%=%000x1xxx - Any dir/file.ext filing system Є-Т os%=32 - BBC BASIC for Windows Ў6Т os%>31 - Any dir\file.ext filing system х: р&A%=0:X%=1:os%=((╨&FFF4)─&FF00)│256 э"_BAUD$="19200" :Т Default baud Ф#_DEBUG$="0" :Т Default debug П+_PFX$="&9B" :Т Default escape prefix З)_COM$="1" :Т Default serial port 4_RST$="0" :Т Send reset sequence on startup ._MTU$="32" :Т Maximum transaction size $_INF$="1" :Т Use .inf files ": ,vч ctrl0% 131,string% 255,escflg% 0:ctrl%=ctrl0%+2:ch%=0:in%=0:out%=0:ser%=0:serout%=0:serin%=0:fn$="":ver$="0.29c" 6Hclient%=0:host%=2*((os%>31)─32)+4*(os%─8):Н ┘ Ж:Рclose:Я:Рexit(÷):х≤ @GРChoices_Init("J.G.Harston","TubeHost"):baud%=╩_BAUD$:dbg%=╩_DEBUG$ JQPFX%=═_PFX$:INF%=╩_INF$:inf%=INF%:max%=╩_MTU$*1024:Г max%<1024:max%=&7FFFFFFF TJЯ"Tube Host v";ver$;" at ";baud%;", MTU=";max%:tmp$="." ^KРf_init:Гos%=32:х≥ "SetWindowText",@hwnd%,"Tube Host v"+ver$:tmp$=@tmp$ h1Н ┘ Рreport:Р_ERROR:Рclose:Г єerr:Рexit(÷):х≤ rEquit%=ё:Гєopen:Я"Couldn't open serial port":A%=і(100):Рexit(-1):Ю |'Г╩_RST$:Р_RESET:_RST$="0":РSerFlush ├,Т REPEAT:PRINTFNc(FNRdByte);:UNTIL quit% ░У:О єRdByte:Щ quit% Рclose:Рexit(0) єх≤ ў: ╦: б щєopen лmГos%=32:serin%=ґ("COM"+_COM$+": baud="+цbaud%+" parity=N data=8 stop=1 octs=on"):serout%=serin%:=serin%=0 ж0A%=baud%:ГA%>63:A%=╙(A%│75)/╙2:ГA%<4:A%=A%+1 Ю"Ъ"FX7,"+цA%:Ъ"FX8,"+цA%:*FX2,2 ЙGГos%=6:serin%=▌"Serial:":serout%=ў"Serial:":=(serin%=0)└(serout%=0) Т=0 Ч: щРclose Гch% :A%=ch% :ch%=0 :ы#A% Гin% :A%=in% :in%=0 :ы#A% &Гout%:A%=out%:out%=0:ы#A% 0Гserout%=serin%:serout%=0 :(Гserout%:A%=serout%:serout%=0:ы#A%:А D(Гserin% :A%=serin% :serin%=0 :ы#A%:А N*FX2 XА b: l щєerr v(=і-1 └ (÷<128 ─ ÷<>17 ─ ÷<>28 ─ і-1) ─: ┼щРreport:Гdbg%=0:А ■Гos%=32:*OUTPUT 0 ·-Ж:Яю" at line "+ц·,÷<128 ─ ÷<>17 ─ ÷<>28) ╗А ╡: ╪щРexit(A%) ф)Г os%=32:х≤ A% ▀ Ъ"FX1,"+ц(A%─255):х≤ пА з: Д#щєd0(A%,N%)=б"00000000"+цA%,N%) Н#щєh0(A%,N%)=б"0000000"+ц~A%,N%) Ь1щєc(A%):A%=A%─127:ГA%<32 └ A%=127:="." ▀ =ҐA% : : Т Inward Т x VDU x *!Т esc,esc VDU esc 4=Т esc,n MOS function, control block follows >Т H: R: \ Т OS_RDCH f Т ======= p"Т Tube data &00 -- Carry Char z0щє_0 :Гdbg%─2:Я"OS_RDCH "; └&РEscOff:Гos%=32:A%=єkbd_GET ▀ A%=╔ ▌1РEscOn:ГA%=27:РWrCmd(&81):Т Send EscapeChange ≤7РWrByte((A%=27)─&80) :Гdbg%─2:Я"-- "єh0(&00,2)" "; ╒.РWrByte(A%) :Гdbg%─2:Яєh0(A%,2) ╛=0 І: ю: йТ OS_CLI тТ ====== ч-Т Tube data &02 string &0D -- &7F or &80 Х,щє_2 :Гdbg%:Я"OS_CLI "; Р-РRdString :Гdbg%:Я$string%" "; ЭY%=string%:A%=єmos_cli .Г A%>=0:РWrByte(A%) :Гdbg%:Я"-- "єh0(A%,2) =0 : $: .Т SHORT_BYTE 8Т ========== BТ Tube data &04 X A -- X L%щє_4 :Гdbg%:Я"OS_BYTE "; V)X%=єRdByte :Гdbg%:Яєh0(X%,2)" "; `)A%=єRdByte :Гdbg%:Яєh0(A%,2)" "; jA%=єmos_byte t>Г A%>&7B:Г A%<&7F:РWrCmd(&80-(A%=125)):Т Send EscapeChange ~(РWrByte(X%) :Гdbg%:Я"-- "єh0(X%,2) ┬=0 ▓: °Т LONG_BYTE іТ ========= ╟$Т Tube data &06 X Y A -- Cy Y X ╨%щє_6 :Гdbg%:Я"OS_BYTE "; д)X%=єRdByte :Гdbg%:Яєh0(X%,2)" "; н)Y%=єRdByte :Гdbg%:Яєh0(Y%,2)" "; ь)A%=єRdByte :Гdbg%:Яєh0(A%,2)" "; БA%=єmos_byte Л4Г A%<0:=0 :Т Reply already sent, eg *FX142 Ж4Г A%=&81:Г X%=27:РWrCmd(&81):Т Send EscapeChange 5РWrByte((A%─&100)│2) :Гdbg%:Я"-- "єh0(A%│2,2)" "; 2РWrByte(Y%) :Гdbg%:Яєh0(Y%,2)" "; .РWrByte(X%) :Гdbg%:Яєh0(X%,2) =0 (: 2: < Т OS_WORD F Т ======= P4Т Tube data &08 A in_len block out_len -- block Z*щє_8 :Гdbg%:Я"OS_WORD "; d.A%=єRdByte :Гdbg%:Яєh0(A%,2)" "; n2inlen%=єRdByte :Гdbg%:Яєh0(inlen%,2)" "; xHРRdBlock(inlen%) :Гdbg%:Гinlen%:ЦD%=0╦inlen%-1:Яєh0(ctrl%?D%,2);:М ┌3outlen%=єRdByte :Гdbg%:Яєh0(outlen%,2)" "; ▄#X%=ctrl%:Y%=X%│256:A%=єmos_word √RРWrBlock(outlen%) :Гdbg%:Я"-- ";:Гoutlen%:ЦD%=0╦outlen%-1:Яєh0(ctrl%?D%,2);:М ═": :Гdbg%:Я ╙=0 Є: Ў: хТ OS_RDLINE рТ ========= э3Т Tube data &0A block -- &FF or &7F string &0D Ф,щє_A :Гdbg%─2:Я"OS_RDLN "; ПfРRdBlock(5) :Гdbg%─2:Яєh0(ctrl%!0,4)" "єh0(ctrl%?2,2)" "єh0(ctrl%?3,2)" "єh0(ctrl%?4,2)" "; З)X%=ctrl%:Y%=string%:A%=0:A%=єmos_word 0Г(A%─&100) :Гdbg%─2:Я"-- "єh0(&80,2) Г(A%─&100):РWrByte(&80):=0 4РWrByte(&7F) :Гdbg%─2:Я"-- "єh0(&7F,2)" "; ")РWrString :Гdbg%─2:Я$string% ,=0 6: @: J Т OS_ARGS T Т ======= ^:Т Tube data &0C handle block function -- result block h*щє_C :Гdbg%:Я"OS_ARGS "; r.X%=ctrl%:Y%=єRdByte :Гdbg%:Яєh0(Y%,2)" "; |.РRdBlock(4) :Гdbg%:Яєh0(!X%,8);" "; ├.A%=єRdByte :Гdbg%:Яєh0(A%,2)" "; ░Y%=Y%─&7F:A%=єmos_args 1РWrByte(A%) :Гdbg%:Я"-- "єh0(A%,2)" "; є)РWrBlock(4) :Гdbg%:Яєh0(!X%,8) ў=0 ╦: б: л Т OS_BGET ж Т ======= Ю)Т Tube data &0E handle -- Carry byte Й,щє_E :Гdbg%─1:Я"OS_BGET "; Т0Y%=єRdByte :Гdbg%─1:Яєh0(Y%,2)" "; ЧY%=Y%─&7F:A%=єmos_bget =РWrByte((A%─&100)│2):Гdbg%─1:Я"-- "єh0((A%─&100)│2,2)" "; *РWrByte(A%) :Гdbg%─1:Яєh0(A%,2) =0 &: 0: : Т OS_BPUT D Т ======= N'Т Tube data &10 handle byte -- &7F X,щє_10 :Гdbg%─1:Я"OS_BPUT "; b0Y%=єRdByte :Гdbg%─1:Яєh0(Y%,2)" "; l0A%=єRdByte :Гdbg%─1:Яєh0(A%,2)" "; vY%=Y%─&7F:A%=єmos_bput ─0РWrByte(&7F) :Гdbg%─1:Я"-- "єh0(&7F,2) ┼=0 ■: ·: ╗ Т OS_FIND ╡ Т ======= ╪2Т Tube data &12 function string &0D -- handle ф&Т &12 &00 handle -- &7F п*щє_12 :Гdbg%:Я"OS_FIND "; з.A%=єRdByte :Гdbg%:Яєh0(A%,2)" "; ДГ A%=0 ▄ Н,Y%=єRdByte :Гdbg%:Яєh0(Y%,2)" "; ЬKY%=Y%─&7F:A%=єmos_find:Г Y%=0 └ Y%=serin%:A%=єopen:Т Reopen serial port ,РWrByte(&7F) :Гdbg%:Я"-- "єh0(&7F,2) =0 м +РRdString :Гdbg%:Я$string%" "; *3Y%=string%-1:УY%=Y%+1:Щ?Y%<33:?Y%=13:Y%=string% 4NГєwildcardsNull:=0 :Т BB4W throws up a dialogue box with wildcards and "" >&$Y%=єfn_convert($Y%,client%,host%) H Y%=єmos_find:ГY%:Y%=Y% └ &80 R-РWrByte(Y%) :Гdbg%:Я"-- "єh0(Y%,2) \=0 f: p: z Т OS_FILE └ Т ======= ▌?Т Tube data &14 block string function -- result block ≤*щє_14 :Гdbg%:Я"OS_FILE "; ╒DРRdBlock(16) :Гdbg%:Ц D%=0 ╦ 12 ┬ 4:Яєh0(ctrl%!D%,8)" ";:М ╛,РRdString :Гdbg%:Я$string%;" "; І.A%=єRdByte :Гdbg%:Яєh0(A%,2)" "; ю3Y%=string%-1:УY%=Y%+1:Щ?Y%<33:?Y%=13:Y%=string% йNГєwildcardsNull:=0 :Т BB4W throws up a dialogue box with wildcards and "" т.fn$=$Y%:$Y%=єfn_convert($Y%,client%,host%) чX%=ctrl%-2:A%=єmos_file Х.РWrByte(A%) :Гdbg%:Я"-- "єh0(A%,2); РFРWrBlock(16) :Гdbg%:Ц D%=0 ╦ 12 ┬ 4:Я" "єh0(ctrl%!D%,8);:М:Я Э=0 : : Т OS_GBPB $ Т ======= .9Т Tube data &16 block function -- block Carry result 8*щє_16 :Гdbg%:Я"OS_GBPB "; BVРRdBlock(13) :Гdbg%:Яєh0(?ctrl%,2)" ";:Ц D%=1 ╦ 9 ┬ 4:Яєh0(ctrl%!D%,8)" ";:М L.A%=єRdByte :Гdbg%:Яєh0(A%,2)" "; VX%=ctrl%:?X%=?X%─&7F `A%=єmos_gbpb:?X%=?X%└&80 j`РWrBlock(13) :Гdbg%:Я"-- "єh0(?ctrl%,2)" ";:Ц D%=1 ╦ 9 ┬ 4:Яєh0(ctrl%!D%,8)" ";:М t6РWrByte((A%─&100)│2):Гdbg%:Яєh0((A%─&100)│2,2)" "; ~-РWrByte(A%) :Гdbg%:Яєh0(A%,2) ┬=0 ▓: °: іТ OS_FSC ╟Т ====== ╨%Т Tube data &18 X Y A -- &FF Y X дBТ -- &7F then string &0D -- &7F/&40/&80 н+щє_18 :Гdbg%:Я"OS_FSC "; ь/X%=єRdByte :Гdbg%:Яєh0(X%,2)" "; Б/Y%=єRdByte :Гdbg%:Яєh0(Y%,2)" "; Л/A%=єRdByte :Гdbg%:Яєh0(A%,2)" "; ЖCГdbg%:Яа"OPTEOF*/ CMDRUNCATNEWHNDWRNEX INFRUNREN",A%*3+1,3)" "; : *Г A%>127 └ A%<2 └ A%=6 └ A%=7 └ A%=8 ▄ ГA%=1:Y%=Y%─127 :Т =EOF A%=єmos_fsc (1РWrByte(&FF) :Гdbg%:Я"-- "єh0(&FF,2)" "; 2+РWrByte(Y%) :Гdbg%:Яєh0(Y%,2)" "; <'РWrByte(X%) :Гdbg%:Яєh0(X%,2) F=0 Pм Z3РWrByte(&7F) :Гdbg%:Я"-- "єh0(&7F,2)" "; d,РRdString :Гdbg%:Я$string%" "; nY%=string%:A%=єmos_fsc x(Г A%>=0:РWrByte(A%):Гdbg%:Яєh0(A%,2) ┌=0 ▄: √: ═Т Null routines ╙Т ============= Єщє_1A=0 Ўщє_1C=0 х: рLТ OS_RESYNC - Called within error handler to allow Host to resynchronise эТ ========= ФТ Tube data &1E -- &00 П+щє_1E :Гdbg%:Я"OS_SYNC "; З/РWrByte(&00) :Гdbg%:Я"-- "єh0(&00,2) =0 : : "щР_ERROR ,_$string%=ю"HostFS error: ",÷<128 ─ ÷<>17 ─ ÷<>28)+Ж$+ю" ("+ц·+")",÷<128 ─ ÷<>17 ─ ÷<>28)+Ґ0 6FРWrCmd(&00) :Гdbg%:Я"ERROR "єh0(PFX%,2)" "єh0(&00,2)" "; @0A%=÷:Г ÷=28:A%=253:$string%="Bad address"+Ґ0 J,РWrByte(A%) :Гdbg%:Яєh0(A%,2)" "; TB%=0 ^У hA%=string%?B% r$РWrByte(A%) :Гdbg%:Яєc(A%); |B%=B%+1 ├ЩA%=0 :Гdbg%:Я ░А : є: ўщР_RESET ╦EРWrCmd(&00) :Гdbg%:Я"RESET "єh0(PFX%,2)" "єh0(&00,2)" "; б-РWrByte(&00) :Гdbg%:Яєh0(&00,2)" "; л)РWrByte(&00) :Гdbg%:Яєh0(&00,2) ж8Т REPEAT:A%=FNRdByte:IFA%:VDUA% :REM Startup string Ю=Т UNTILA%=0:PROCWrByte(&00) :REM Acknowledge startup ЙА Т: Ч: щєwildcardsNull:Гos%<>32:=ё +Г?Y%=13 └ $Y%="""":┘ 204,"Bad filename" щєwildcards:Гos%<>32:=ё &-Г(client%─96)=0:Гї$Y%,"*")+ї$Y%,"#")=0:=ё 0-Г(client%─96) :Гї$Y%,"*")+ї$Y%,"?")=0:=ё :┘ 253,"Wildcards" D=╧ N: X: b!щРEscOff:Гos%=32:Ъ"ESC OFF":А lЪ"FX229":А v щРEscOn:Гos%=32:Ъ"ESC OFF":А ─Ъ"FX229,1":А ┼: ■: ·Т I/O routines ╗Т ============ ╡: ╪щєRdByte фУ пbB%=єSerIn:ГB%=PFX%:B%=єSerIn:ГB%<>PFX%:Г(B%─&81)=0:client%=B%─&60:A%=═("FN_"+ц~(B%─&1E)):B%=-1 зЩ B%>=0 Д=B% Н: ЬщРWrByte(A%) %РSerOut(A%):Г A%=PFX%:РSerOut(A%) А : щРWrCmd(A%) *РSerOut(PFX%):РSerOut(A%):А 4: >щРRdBlock(N%):Г N%=0:А H+Ц D%=N%-1 ╦ 0 ┬ -1:ctrl%?D%=єRdByte:М:А R: \щРWrBlock(N%):Г N%=0:А f,Ц D%=N%-1 ╦ 0 ┬ -1:РWrByte(ctrl%?D%):М:А p: zщРRdString └4D%=0:У:B%=єRdByte:string%?D%=B%:D%=D%+1:ЩB%=13:А ▌: ≤щРWrString ╒5D%=0:У:B%=string%?D%:РWrByte(B%):D%=D%+1:ЩB%=13:А ╛: І: юТ Low level routines йТ ================== т: чщєSerIn:Гserin%:= #serin% Х=0 Р: Э(щРSerOut(A%):Гserout%:у#serout%,A%:А А : 2щРSerFlush:Гserin%:х∙ ╒#serin%:B%= #serin%:н:А $А .: 8: Bщєargs(A%,Y%,X%) L2Я"@ARGS "єh0(A%,2)" "єh0(Y%,2)" "єh0(X%,8)" "; V=0 `: j: tТ Choices System ~Т ============== ┬%щРChoices_Init(Pub$,App$):Й A$,A% ▓Г os%=32 ▄ °&РChoices_Rd(@dir$+"\"+App$+".ini") і5A$=єReg_Rd("Software\"+Pub$+"\"+App$+"\Settings") ╟ГA$<>"":РChoices_Rd(A$) ╨м д Г os%=6 ▄ н?х≥ "OS_GetEnv" ╦ A$:A$=аA$,їA$,"""")+1):A$=юA$,їA$,"""")-1) ь4У A%=їPub$,"."):ГA%:Pub$=юPub$,A%-1)+аPub$,A%+1) Б8ГA%=0:A%=їPub$," "):ГA%:Pub$=юPub$,A%-1)+аPub$,A%+1) Л&ЩA%=0:РChoices_Rd(A$+".^.Choices") Ж4РChoices_Rd("Choices:"+Pub$+"."+App$+".Choices") м А : щРChoices_Rd(file$):Й A$,A% (in%=▌(file$) 2 Гin% ▄ <У FA$=Ў#in%:Г юA$,1)="#":A$="" PA%=їA$,":"):Г A% ▄ Z&A%=A%-1:У:A%=A%+1:Щ аA$,A%,1)<>" " d6РVar_Assign("_"+юA$,A%-1)+"$",""""+аA$,A%+1)+"""") nм xЩ е#in%:ы#in%:in%=0 ┌м ▄А √ Т > BBCMOS Т BBC MOS Interface >Т Within this library, all filenames are locally formatted (; 2щєmos_args <'Г Y%=0:Г A%=0:=єfs :Т =FS FГ Y%=-1 └ Y%=&7F ▄ Pх▌ A% й Z4и 0:!X%=0:=0 :Т =PTR#-1 dIи 2:!X%=((os%=32)─255)-√(-1):=0 :Т =EXT#-1, number in keyboard buffer nFи 5:!X%=((os%=32)─255)=√(-1):=0 :Т =EOF#-1, keyboard buffer empty? xк ┌м ▄ Г Y% ▄ √х▌ A% й ═"и 0:!X%=▐#Y%:=0 :Т =PTR ╙"и 1:о#Y%=!X%:=0 :Т PTR= Є"и 2:!X%=╒#Y%:=0 :Т =EXT Ў"и 3:╒#Y%=!X%:=0 :Т EXT= х$и 4:!X%=╒#Y%:=0 :Т =Alloc р"и 5:!X%=е#Y%:=0 :Т =EOF э$и 6:╒#Y%=!X%:=0 :Т Alloc= Фк Пм З<Г os%=6:Г ⌠>&FFFF:х≥ "OS_Args",A%,Y%,!X% ╦ A%,Y%,!X%:=A% !X%=єargs(A%,Y%,!X%) <=A% :Т Unchanged=unsupported : "щєmos_bget ,Г Y%=0 ▄ 60Г os%=32:A%=єkbd_GET ▀ A%=╔ :Т =BGET#0 @=((A%=27)─&100)+A% Jм T/Г os%=32:=((▐#Y%=╒#Y%)─256)+ #Y% :Т =BGET#Y ^ A%=╨&FFD7 h$=((A%─&1000000)│&10000)└(A%─&FF) r: |щєmos_bput ├Г Y%=0:О A% ▀ у#Y%,A% ░=A% : єщєmos_find ўГ A%=0:ы#Y%:=A% ╦"Г (A%─&C0)=&40:=єf_openin($Y%) б#Г (A%─&C0)=&80:=єf_openout($Y%) л"Г (A%─&C0)=&C0:=єf_openup($Y%) ж=0 Ю: Йщєmos_file ТГ A%=6:Й ┘:Н ┘ Й:=0 Ч A%=A%─&FF Г A%<5 └ A%=&FF:=єhost_file TГ os%=6:х≥ "OS_File",A%,Y%,X%!2,X%!6,X%!10,X%!14 ╦ A%,,X%!2,X%!6,X%!10,X%!14:=A% IГ A%=5:X%!2=0:X%!6=0:X%!10=0:X%!14=0:A%=Y%:Y%=X%│256:=єfile_info($A%) &`Г A%=6:Рf_delete($Y%):Г inf%<>0 ─ os%=32:Рf_delete($Y%+s$+"inf"):=1:Т Should return filetype 0&Г A%=6:=1:Т Should return filetype :CГ A%=7:Ъ"SAVE """+єf_name($Y%)+""" "+ц~░+"+"+ц~(X%!14-X%!10):=1 DГ A%=8:Рf_cdir($Y%):=2 N=A% X: bщєmos_gbpb:=єhost_gbpb l: v щєmos_cli ─DY%=Y%-1:У:Y%=Y%+1:Щ?Y%<>32 ─ ?Y%<>≈"*" :Т Skip '*'s and ' 's ┼QA%=&103:Г ?Y%=≈"/":Y%=Y%+1:A%=&102 :Т Fall through into FSC ■: · щєmos_fsc ╗Oosc%=A%─256:A%=A%─255 :Т b8=called from OSCLI ╡х▌ A% й ╪>и 0: :Т *OPT фх▌ X% й п/и 0: :Т *OPT 0 - reset options зmax%=╩_MTU$*1024 Дdbg%=╩_DEBUG$ Н=0 ЬGи 1: :Т *OPT 1 - message levels (needs Client support) 6и 2: :Т *OPT 2 - error handling level Jи 3: :Т *OPT 3 - maximum block size (CFS: interblock gap) 9Г Y%=0:Y%=╩_MTU$ :Т *OPT 3,0 - use default size ?Г Y%=255:Y%=0 :Т *OPT 3,255 - unlimited block size *+max%=Y%*1024:Г max%<1024:max%=&7FFFFFFF 4=0 >-и 4: :Т *OPT 4 - boot option H-и 5:dbg%=Y%:=0 :Т *OPT 5 - debug level Rcи 6: :Т *OPT 6 - transmission delay (HADFS: internal drive, ANFS: claim workspace) \`и 7: :Т *OPT 7 - (HADFS: external drive, ANFS: user options) fк p=0 z=и 1:A%=5:X%=ctrl%:A%=єmos_args:X%=?X%:Y%=X%:=A% :Т =EOF └Aи 7:X%=&80:Y%=&9F:=0 :Т Handles ▌Lи 255:=0 :Т Boot filing system ≤`Т X%=Break type, Y%=0 Boot, Y<>0 NoBoot (Y%=0 Shift Break, Y%=8 Break, Y%=&FF CoPro startup) ╒3Т CoPro checks returned X.b7 for startup action ╛;Т Filing system checks returned Y.b1-b0 for boot action І: юBи 3: :Т *command йBГ ?Y%=≈"|":=0 :Т *| comment тMГ ?Y%=≈"\":Y%=Y%+1 :Т *\command -> *command чEГ ?Y%=13:=0 :Т Null string Х6A%=ї$Y%+" "," "):B%=ї$Y%,"."):ГB%:ГA%>B%+1:A%=B%+1 Р?A$=":"+єuc(ю$Y%,A%-1)):Y%=Y%+A%-1 :Т A$=command Э<х∙ ?Y%=32:Y%=Y%+1:н :Т Skip spaces *Г бA$,1)=".":A$=юA$,╘A$-1) ▀ A$=A$+":" UA%=ї":CAT::::RUN::::CAT::::DELETE:CREATE:CDIR:::EX:::::INFO::::::::::RENAME:",A$) *Г A%=0:A%=3└osc%:Y%=string%:=єhost_fsc $A%=3+A%│7:Г A%=3:A%=5 .Г A%>5 ─ A%<9 ▄ 8@X%=Y%-1:УX%=X%+1:Щ?X%<33:?X%=13 :Т Terminate string BГ A%=7 ▄ LEX%=X%-1:У:X%=X%+1:Щ?X%<>32 :Т *CREATE filename length Vctrl%!14=═("&"+$X%) `"ctrl%!2=0:ctrl%!6=0:ctrl%!10=0 jм tL$Y%=єfn_convert($Y%,client%,host%):X%=ctrl%:!X%=Y%:A%=A%└&100:=єmos_file ~м ┬A%=A%└osc% ▓к °=єhost_fsc і: ╟щєmos_word ╨х▌ A% й д&и 0:Х ├""A$:$Y%=A$:X%=Y%:Y%=╘A$:=0 ни 1:!X%=▒:X%?4=0:=0 ьи 2:я=!X%:=0 Би 5:X%?4=?!X%:=0 Ли 6:?!X%=X%?4:=0 Жи 7:т !X%,X%!2,X%!4,X%!6:=0 Vи 8:Б X%?0,X%?1,X%?2,X%?3,X%?4,X%?5,X%?6,X%?7,X%?8,X%?9,X%?10,X%?11,X%?12,X%?13:=0 &и 9:X%?4=╟!X%─&FFFF,X%!2─&FFFF):=0 и 14:$X%=▒$:=0 и 15:я$=$X%:=0 ( 2Y%=X%│256:A%=(╨&FFF1)─&FF <к F=A% P: Zщєmos_byte dГ A%=0 ▄ n2X%=(os%─&D7)└((client%─64)│2)└((client%─32)│4) xГ X%<>os%:X%=X%└&80 ┌B=0 :Т =HOST ▄м √KГ A%>123:ГA%<127:?escflg%=128*(A%─1):Ъ"FX15" :Т Clear/Set/Ack Escape ═AГ A%=&7F:A%=5:X%=ctrl%:A%=єmos_args:X%=?X%:Y%=X%:=&7F :Т =EOF ╙WГ A%=&81:Гos%=32:X%=єkbd_INKEY((X%─255)+256*Y%):Y%=X%│256:=A%-256*(X%=-1) :Т =INKEY ЄUГ A%=&81:X%=і((X%─255)+256*Y%):Y%=X%│256:=A%-256*(X%=-1) :Т =INKEY ЎLГ A%=&82:X%=membot%│65536:Y%=X%│256:=A% :Т high order address хLГ A%=&83:X%=membot%:Y%=X%│256:=A% :Т bottom of memory рIГ A%=&84:X%=memtop%:Y%=X%│256:=A% :Т top of memory эDГ A%=&86:X%=╠:Y%=╪:=A% :Т =POS, =VPOS ФГ os%=32 ▄ П?Г A%=&80:ГX%=7:х≈ X%,A%,A%:Y%=X%│256:=&80 :Т =ADVAL(7) З?Г A%=&80:ГX%=8:х≈ A%,X%,A%:Y%=X%│256:=&80 :Т =ADVAL(8) ?Г A%=&80:ГX%=9:х≈ A%,A%,X%:Y%=X%│256:=&80 :Т =ADVAL(9) 7Г A%=&87:X%=╔(╠,╪):Y%=К:=A% :Т =MODE Г A%=&A0 ▄ "х▌ X% й ,5и 0,128:х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=ctrl%!0 65и 1 :х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=ctrl%!1 @5и 2,129:х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=ctrl%!4 J5и 3 :х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=ctrl%!5 T5и 4,130:х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=ctrl%!8 ^=и 5 :х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=(ctrl%!8-1)│256 h6и 6,131:х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=ctrl%!12 r@и 7 :х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=(ctrl%!12/2-1)│256 |$и 8,132:X%=@vdu%!24 │ @vdu%!216 ├&и 9,133:X%=@vdu%!36 │ @vdu%!220-1 ░&и 10,134:X%=@vdu%!28 │ @vdu%!216-1 $и 11,135:X%=@vdu%!32 │ @vdu%!220 єи 12,136:X%=2*@vdu%!0 ўи 13 :X%=2*@vdu%!0 │ 256 ╦и 14,137:X%=2*@vdu%!4 би 15 :X%=2*@vdu%!4 │ 256 ли 16,138:X%=2*@vdu%!8 жи 17 :X%=2*@vdu%!8 │ 256 ЮEи 18,139:х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=2*(ctrl%!12-@vdu%!12-1) ЙKи 19 :х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=2*(ctrl%!12-@vdu%!12-1) │ 256 Ти 20,142:X%=@vdu%!16 Чи 21 :X%=@vdu%!16 │ 256 Cи 22,143:х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=(ctrl%!12-@vdu%!20-1) Iи 23 :х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=(ctrl%!12-@vdu%!20-1) │ 256 и 24 :X%=╠ &и 25 :X%=╪ 0и 36 :X%=@vdu%!8 :и 37 :X%=@vdu%!8 │ 256 DCи 38 :х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=(ctrl%!12-@vdu%!12-1) NIи 39 :х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=(ctrl%!12-@vdu%!12-1) │ 256 Xи 85 :X%=К bи 87,155:X%=@vdu%?70 lи 88,156:X%=@vdu%?71 vи 89,153:X%=@vdu%?65 ─и 90,154:X%=@vdu%?67 ┼+и 91,151:X%=3-(@vdu%?64-7)│2:ГX%<0:X%=1 ■+и 92,152:X%=3-(@vdu%?66-7)│2:ГX%<0:X%=1 ·и 96,3 :X%=@vdu%?73 ╗и 98 :Т Left colour mask ╡ и 99 :Т Right colour mask ╪и 109 :X%=@vdu%?65 фи 110 :X%=@vdu%?67 пи 155 :X%=@vdu%?70 зи 156 :X%=@vdu%?71 Ди 153 :X%=@vdu%?65 Ни 154 :X%=@vdu%?67 Ь X%=0 к Y%=X%│256:=&A0 м *м 4EТ Note: Client program should do ((os%=32)AND255)-ADVAL for -1/-2 >CГ A%=&80:X%=√((X%─255)└((X%>127)─-256)):Y%=X%│256:=A% :Т =ADVAL HГ A%=&A0 ▄ R@Г X%<16:Г X%<>3:=A% :Т =VDU(n) \Г X%=3:X%=96 fх▌ r%(1) й pи 16:A%=138 zи 18:A%=139 └и 20:A%=142 ▌и 22:A%=143 ≤и 36:A%=144 ╒и 38:A%=145 ╛и 77:A%=148 Іи 80:A%=149 юи 83:A%=150 йи 87:A%=155 ти 88:A%=156 чи 89:A%=153 Хи 90:A%=154 Ри 91:A%=151 Эи 92:A%=152 и 96:A%=3 !A%=X%:Г A%<128:X%=0:Y%=0:=&A0 $к .?!ctrl%=A%:ctrl%!4=-1:х≥ "OS_ReadVduVariables",ctrl%,ctrl%+8 8X%=ctrl%!8:Y%=X%│256:=&A0 Bм L7A%=╨&FFF4:X%=(A%─&FFFF00)│256:Y%=(A%─&FF0000)│65536 V"=(A%─&1000000)│&10000+(A%─&FF) `: Т > HostTx aТ Assumes a reliable (all bytes get through) error-free (no bytes are corrupted) link channel cТ Within this library, all filenames are passed as internal filenames with external name in fn$ (Т v0.27 OSFILE 1-4 2lТ v0.28 Reads file header, correct filename for *command, */command, *RENAME done, *file checks for .bin <5Т v0.29 Data transfers done in blocks, added *EX. FBТ Changed name to HostTx as now almost completely generalised. PHТ v0.29c hnd% used for handles that don't need to be closed on error Z2Т Added dng%AND8 output from PROCsend/PROCread d; n: xТ File load/save routines ┌Т ======================= ▄>Т fn$ set by external caller to originally passed filename √щєhost_file ═=L%=X%!2:E%=X%!6:T%=X%!14:ГA%:?X%=єfile_info($Y%):S%=X%!10 ╙ГA%>0 ─ A%<5 ▄ ЄТ L%=X%!2:E%=X%!6:T%=X%!14 ЎТ ?X%=FNfile_info($Y%) хГ inf%=0:=?X% р#Г A%=1:X%!2=L%:X%!6=E%:X%!14=T% эГ A%=2:X%!2=L% ФГ A%=3:X%!6=E% ПГ A%=4:X%!14=T% ЗlY%=string%:A$=$Y%:$Y%=єfn_leaf(A$)+" "+єh0(X%!2,8)+" "+єh0(X%!6,8)+" "+єh0(X%!10,8):Т +" "+FNh0(X%!14,2) 2Ъ"SAVE "+A$+s$+"inf "+ц~Y%+"+"+ц~(╘$Y%+1):=?X% LТ OSCLI"SAVE "+FNfn_noext(A$)+s$+"inf "+STR$~Y%+"+"+STR$~(LEN$Y%+1):=?X% м "'ГA%=&FF:T%=X%!2:Г(E%─255)=0:X%!2=L% ,-ГA%=&FF:Г?X%:ГX%!2=-1:┘ 252,"Bad address" 6ГA%=&FF:A%=&40 ▀ A%=&80 @ch%=єmos_find J3ГA%=&40:Гch%=0:┘ 214,"File '"+fn$+"' not found" T/ГA%=&80:Гch%=0:┘ 192,"Can't save '"+fn$+"'" ^ ГA%=&40 ▄ hUY%=єhost_send(X%+2,ch%,╒#ch%):X%!2=T% :Т Send the file rл |XY%=X%!14-X%!10:T%=єhost_read(X%+10,ch%,Y%):X%!10=Y%:X%!14=&33 :Т Fetch the file ├м ░ы#ch%:ch%=0 !Г A%=&80 ─ os%>31 ─ inf%<>0 ▄ єbY%=string%:?X%=єfile_info($Y%):ГX%!2=L%:ГX%!6=E%:ГX%!10=S%:=?X% :Т No change, no new .inf file ўHA$=$Y%:$Y%=єfn_leaf(A$)+" "+єh0(L%,8)+" "+єh0(E%,8)+" "+єh0(X%!10,8) ╦-Ъ"SAVE "+A$+s$+"inf "+ц~Y%+"+"+ц~(╘$Y%+1) бGТ OSCLI"SAVE "+FNfn_noext(A$)+s$+"inf "+STR$~Y%+"+"+STR$~(LEN$Y%+1) лX%!2=L%:X%!6=E% жм ЮZ=1 :Т Return 'File' Й: Т: ЧТ File read/write routines Т ======================== щєhost_gbpb Т X%=>control block &DГA%=0 └ A%>4:=єhost_info :Т Read filing system information 0+hnd%=?X%:Г(A%─1):о#hnd%=X%!9 :Т Set PTR :KГA%>2:X%!5=єhost_send(X%+1,hnd%,X%!5) ▀ X%!5=єhost_read(X%+1,hnd%,X%!5) D9X%!9=▐#hnd% :Т Return updated PTR NS=(е#hnd%)─&100 :Т Return Carry in b8, 0 in b0-b7 for 'supported' X: b: l$Т File filing system information v$Т ============================== ─щєhost_info ┼Г os%<>32:=A% ■%Й sh%,dir%,res%,ptr%:ч dir% Й 317 ·х▌ A% й ╗и 6: ╡5х≥ "GetCurrentDirectory",255,string%:A$=$$string% ╪,B$=юA$,1):A$=єfn_leaf(A$):Г A$="":A$="\" ф$A$=єfn_convert(A$,host%,client%) п&РWrCmd(&E0) :Т Load data з)РWrByte(X%?4) :Т Send address ДРWrByte(X%?3) НРWrByte(X%?2) ЬРWrByte(X%?1) РWrByte(1) РWrByte(≈B$) РWrByte(╘A$) $string%=A$+Ґ0 * РWrString 4)РWrCmd(&B0) :Т End transfer >X%!1=X%!1+╘$string% H=0 Rи 8 \ ptr%=X%!9 f@х≥ "FindFirstFile",".\*.*",dir% ╦ sh% :Т Initialise search pГ sh%<>-1 ▄ zУ └7A$=$$(dir%+44) :Т Get object name ▌SГ A$="." └ A$=".." └ єuc(бA$,4))=".INF":ptr%=ptr%+1:Т Step past special objects ≤Г ptr%=0 ▄ ╒х≥ "FindClose",sh% ╛$A$=єfn_convert(A$,host%,client%) І&РWrCmd(&E0) :Т Load data ю)РWrByte(X%?4) :Т Send address йРWrByte(X%?3) тРWrByte(X%?2) чРWrByte(X%?1) Х&РWrByte(╘A$) :Т name length Р$string%=A$ Э(РWrString :Т Name string )РWrCmd(&B0) :Т End transfer 1X%!1=X%!1+1+╘A$ :Т Update data address =X%!5=X%!5-1 :Т Count=Count-number transfered $:X%!9=X%!9+1 :Т Increment returned pointer .=0 8м B=ptr%=ptr%-1 :Т Decrement requested pointer L=х≥ "FindNextFile",sh%,dir% ╦ res% :Т Step to next object VBЩ res%=0 :Т Loop until no more found `х≥ "FindClose",sh% jм t@=0 :Т Return at end of directory ~к ┬=A% ▓: °: іТ Filing control routines ╟Т ======================= ╨щєhost_fsc д!Т 0 - *OPT - done by BBCMOS н!Т 1 - EOF - done by BBCMOS ьТ 2 - */ БТ 3 - *command ЛТ 4 - *RUN ЖТ 5 - *CAT /Т 6 - New filing system - done by BBCMOS /Т 7 - Handles - done by BBCMOS /Т 8 - OSCLI warning - done by BBCMOS Т 9 - *EX (Т 10 - *INFO 2Т 11 - LIBRUN <Т 12 - *RENAME FFТ 255 - Boot filing system - done by BBCMOS (should this be here?) PТ String has spaces skipped Z%Й sh%,dir%,res%,ptr%:ч dir% Й 317 dZosc%=A% ─ 256:A%=A% ─ 255:Г A%=9:Г os%<>32:A%=5 :Т *EX not implemented for non-Windows nх▌ A% й x<и 5: :Т *CAT ┌Г?Y%<>13:$Y%=$Y%+"." ▄EГєwildcards:=0 :Т BB4W throws up a dialogue box with wildcards √out%=ў(tmp$+"!") ═VГ os%=32:Ъ "OUTPUT "+цout%:Ъ "DIR "+єfn_convert($Y%,client%,host%)+"*.*":*OUTPUT 0 ╙ы#out%:out%=0 Є4Г osc%=0:РWrByte(&40) :Гdbg%:Яєh0(&40,2)" "; Ўin%=▌(tmp$+"!"):У:A%= #in% х%Г(host%─64)=64 ─ (client%─96)=0 ▄ р1Г A%=46:A%=47 ▀ Г A%=47:A%=92 ▀ Г A%=92:A%=46 эм Ф%Г(host%─96)=0 ─ (client%─64)=64 ▄ П1Г A%=46:A%=92 ▀ Г A%=47:A%=46 ▀ Г A%=92:A%=47 Зм JГ((host%─96)<>0 ─ (client%─96)=0) └ ((host%─96)=0 ─ (client%─96)<>0) ▄ $Г A%=35 └ A%=63:A%=A%┌28 :Т # ? $Г A%=36 └ A%=60:A%=A%┌24 :Т < $ "$Г A%=61 └ A%=64:A%=A%┌125 :Т = @ ,$Г A%=62 └ A%=94:A%=A%┌96 :Т > ^ 6м @LГ((host%─64)=64 ─ (client%─96)=32) └ ((host%─96)=32 ─ (client%─64)=64) ▄ J!Г A%=47:A%=92 ▀ Г A%=92:A%=47 Tм ^Г osc%:О A% ▀ РWrByte(A%) hЩе#in%:ы#in%:in%=0 r!Т in%=OPENIN(tmp$+"!"):REPEAT |OТ PROCPrText(FNfn_convert(GET$#in%,host%,client%)):IF osc%=0:PROCWrByte(10) ├5Т UNTILEOF#in%:CLOSE#in%:in%=0:PROCPrText(CHR$10) ░=0 Bи 9,10: :Т *EX, *INFO єEГєwildcards:=0 :Т BB4W throws up a dialogue box with wildcards ўex%=A%=9:res%=0 ╦JX%=Y%-1:УX%=X%+1:Щ?X%<33:?X%=13 :Т Terminate at space or б7fn$=$Y%:$Y%=єfn_convert($Y%,client%,host%):X%=ctrl% л5Г osc%=0:РWrByte(&40) :Гdbg%:Яєh0(&40,2);" "; ж"Г ex%:fn$=$Y%:Г fn$="":fn$="." ЮGГ ex%:х≥ "FindFirstFile",fn$+"\*.*",dir% ╦ sh% :Т Initialise search ЙУ ТUГ ex%:Г sh%<>-1:$Y%=$$(dir%+44):Г $Y%="." └ $Y%=".." └ єuc(б$Y%,4))=".INF":$Y%="" Ч#Г ex%:Г $Y%<>"":$Y%=fn$+"\"+$Y% HГ $Y%<>"":A%=єfile_info($Y%):Г A%=0:┘ 214,"File '"+fn$+"' not found" 4A$=юєfn_convert(єfn_leaf($Y%),host%,client%),12) 2A$=A$+д13-╘A$," ")+єh0(X%!2,8)+" "+єh0(X%!6,8) &IA$=A$+" "+єh0(X%!10,8)+" "+єf_access(X%?14,A%)+" "+єf_date(X%!15)+Ґ10 0Г $Y%<>"":РPrText(A$) :+Г ex%:х≥ "FindNextFile",sh%,dir% ╦ res% DЩ res%=0 NГ ex%:х≥ "FindClose",sh% X=0 b?и 12 :Т *RENAME l3Гєwildcards:=0 :Т Can't do wildcarded rename vVX%=Y%-1:УX%=X%+1:Щ?X%<33:A%=?X%:?X%=13:fn1$=$Y% :Т fn1$ terminate at space or ─I?X%=A%:X%=X%-1:У:X%=X%+1:Щ?X%<>32 :Т Skip spaces to fn2 ┼VA%=X%:X%=X%-1:УX%=X%+1:Щ?X%<33:?X%=13:fn2$=$A% :Т fn2$ terminate at space or ■9$Y%=єf_name(єfn_convert(fn1$,client%,host%)):X%=ctrl% ·9Г єfile_info($Y%)=0:┘ 214,"File '"+fn1$+"' not found" ╗=A%=Y%+╘$Y%+1:$A%=єf_name(єfn_convert(fn2$,client%,host%)) ╡AГ fn1$<>fn2$:Г єfile_info($A%):┘ 196,"File '"+fn2$+"' exists" ╪-fn1$=$Y%:fn2$=$A%:A%?-1=32:Ъ"Rename "+$Y% фfn1$=fn1$+s$+"inf" пfn2$=fn2$+s$+"inf" з$Т fn1$=FNfn_noext(fn1$)+s$+"inf" Д$Т fn2$=FNfn_noext(fn2$)+s$+"inf" НЙ ┘:Н ┘ Й:=0 ЬPЪ "Rename "+fn1$+" "+fn2$ :Т Rename any .inf file =0 Bи 3: :Т *command @Y%=Y%-1:У:Y%=Y%+1:Щ?Y%<>32 ─ ?Y%<>≈"*" :Т Skip '*'s and ' 's MX%=Y%:Г?Y%=≈"\":Y%=Y%+1 :Т *\command -> *command *4A%=ї$Y%+" "," "):B%=ї$Y%,"."):ГB%:ГA%>B%+1:A%=B% 4?A$=":"+єuc(ю$Y%,A%-1)):Y%=Y%+A%-1 :Т A$=command ><х∙ ?Y%=32:Y%=Y%+1:н :Т Skip spaces H)ГбA$,1)=".":A$=юA$,╘A$-1) ▀ A$=A$+":" R;C$=":ACCESS:DIR:FREE:GO:HELP:LOAD:LIB:SAVE:":A%=їC$,A$) \3Г A%:=═("FNhost_"+аC$,A%+1,їC$,":",A%+1)-A%-1)) f(Г A%=0:Г?X%=≈"\":┘ 254,"Bad command" pUY%=X%:A%=3 :Т Fall through to */filename zк └Г A%=2 └ A%=3 └ A%=4 ▄ ▌M: :Т */, *command, *RUN ≤EГ ?Y%=13:=0 :Т Null string ╒"X%=Y%:У:X%=X%+1:Щ?X%<33:?X%=13 ╛.fn$=$Y%:$Y%=єfn_convert($Y%,client%,host%) І.X%=ctrl%:X%!2=0:X%!6=0:?X%=єfile_info($Y%) юDГ ?X%=0:Г б$Y%,4)<>s$+"bin":$Y%=$Y%+s$+"bin":?X%=єfile_info($Y%) й=Г ?X%=0:ГA%=3:┘ 254,"Bad command" :Т *command т>Г ?X%=0:┘ 214,"File '"+fn$+"' not found" :Т */, *RUN чKГ (X%!2 ─ X%!6)=-1:┘ 252,"Bad address" :Т No load or exec address ХA%=&40:ch%=єmos_find Р+Г ch%=0:┘ 214,"Couldn't open '"+fn$+"'" ЭAY%=єhost_send(X%+2,ch%,╒#ch%) :Т Send file ы#ch%:ch%=0 ^РWrCmd(&C0) :Т Send 'address' command QРWrByte(X%?9):РWrByte(X%?8):РWrByte(X%?7):РWrByte(X%?6) :Т Send start address $[=&80 :Т Return 'execute' .м 8=0 B: L,щєhost_send(addr%,hnd%,num%):Й blk%,len% V%У:len%=num%:Г len%>max%:len%=max% `<Г dbg%─8:Я'┴6;"Load ";єh0(!addr%,8);"+";єh0(len%,8);" "; jgblk%=len%:РWrCmd(&E0) :Т Send 'load' command tWРWrByte(addr%?3):РWrByte(addr%?2):РWrByte(addr%?1):РWrByte(addr%?0) :Т Send address ~RГ blk%:Г ╛ е#hnd%:У:РWrByte( #hnd%):blk%=blk%-1:Щ blk%=0 └ е#hnd% :Т Send data ┬llen%=len%-blk%:!addr%=!addr%+len%:num%=num%-len% :Т Update address, count ▓`РWrCmd(&B0) :Т End transfer °"РSerFlush:blk%=і(10):РSerFlush іЩ num%=0 └ е#hnd% ╟ =num% ╨: д,щєhost_read(addr%,hnd%,num%):Й blk%,len% н%У:len%=num%:Г len%>max%:len%=max% ь<Г dbg%─8:Я'┴6;"Save ";єh0(!addr%,8);"+";єh0(len%,8);" "; Бgblk%=len%:РWrCmd(&F0) :Т Send 'save' command ЛWРWrByte(addr%?3):РWrByte(addr%?2):РWrByte(addr%?1):РWrByte(addr%?0) :Т Send address ЖRГ blk%:У:у#hnd%,єRdByte:blk%=blk%-1:Щ blk%=0 :Т Read data llen%=len%-blk%:!addr%=!addr%+len%:num%=num%-len% :Т Update address, count `РWrCmd(&B0) :Т End transfer "РSerFlush:blk%=і(10):РSerFlush Щ num%=0 ( =num% 2: <: FТ Support *commands PТ ================= Zщєhost_HELP d=A%=єuc(ю$Y%,4))="TUBE" └ єuc(ю$Y%,4))="HOSTFS" └ ?Y%=≈"." n0Г osc%=0:РWrByte(&40) :Гdbg%:Яєh0(&40,2) xРPrText(Ґ10) ┌!РPrText("TubeHost "+ver$+Ґ10) ▄ Г A%=0:=0 √3Т PROCPrText(" ACCESS "+CHR$10) ═!РPrText(" CAT ()"+Ґ10) ╙'РPrText(" CREATE "+Ґ10) ЄРPrText(" CDIR "+Ґ10) Ў!РPrText(" DELETE "+Ґ10) хРPrText(" DIR "+Ґ10) р РPrText(" EX ()"+Ґ10) э!Т PROCPrText(" FREE"+CHR$10) ФРPrText(" GO "+Ґ10) П#РPrText(" HELP ()"+Ґ10) ЗРPrText(" INFO "+Ґ10) (РPrText(" LOAD ()"+Ґ10) РPrText(" OPT ,"+Ґ10) &Т PROCPrText(" LIB "+CHR$10) "#РPrText(" RUN "+Ґ10) ,-РPrText(" RENAME "+Ґ10) 6FРPrText(" SAVE |+ ( ())"+Ґ10) @=0 J: Tщєhost_ACCESS:=0 ^щєhost_FREE:=0 hщєhost_LIB:=0 r: |5щєhost_DIR:Г?Y%=13:$Y%=єfn_convert("&",0,client%) ├fn$=$Y%:Гєwildcards:=0 ░7Рf_dir(єfn_convert($Y%,client%,host%)):INF%=inf%:=0 : є щєhost_GO ўГ dbg%:Г ?Y%=13:Я ╦Г ?Y%=13:Р_RESET:=-1 б!X%=═("&"+$Y%) л$РWrCmd(&C0) :Т Set Address ж%РWrByte(X%?3) :Т Send address ЮРWrByte(X%?2) ЙРWrByte(X%?1) ТРWrByte(X%?0) Ч=&80 : щєhost_LOAD X%=Y%:У:X%=X%+1:Щ?X%<33 &A%=X%-1:У:A%=A%+1:Щ?A%<>32 0-?X%=13:Г?A%=13:A%=-1 ▀ A%=═("&"+єuc($A%)) :X%=ctrl%:X%!2=A%:X%?6=A%=-1 D.fn$=$Y%:$Y%=єfn_convert($Y%,client%,host%) NA%=&FF:A%=єhost_file:=0 X: bщєhost_SAVE l X%=Y% vFX%=X%-1:У:X%=X%+1:Щ?X%<33:A%=X%:$A%=єuc($A%) :Т A%=end of filename ─FX%=X%-1:У:X%=X%+1:Щ?X%<>32:S%=X%:?A%=13 :Т S%=start of START ┼BX%=X%-1:У:X%=X%+1:Щ?X%<≈"0":A%=X% :Т A%=end of START ■3X%=X%-1:У:X%=X%+1:Щ?X%=≈"+" └ ?X%>≈"/" └ ?X%=13 ·&P%=?X%=≈"+":ГP%:У:X%=X%+1:Щ?X%<>32 ╗QE%=X%:L%=S%:R%=S% :Т E%=start of END/LEN ╡,X%=X%-1:У:X%=X%+1:Щ?X%<≈"0":?A%=13:A%=X% ╪X%=X%-1:У:X%=X%+1:Щ?X%<>32 фeГ?X%<>13:R%=X%:X%=X%-1:У:X%=X%+1:Щ?X%<≈"0":?A%=13:A%=X%:X%=X%-1:У:X%=X%+1:Щ?X%<>32:Г?X%<>13:L%=X% п3?A%=13:X%=ctrl%:X%!2=═("&"+$L%):X%!6=═("&"+$R%) зBX%!10=═("&"+$S%):ГP%:X%!14=═("&"+$E%)+X%!10 ▀ X%!14=═("&"+$E%) Д.fn$=$Y%:$Y%=єfn_convert($Y%,client%,host%) НA%=&00:A%=єhost_file:=0 Ь: : щРPrText(A$) Гosc%:ЯA$;Ґ13;:А $string%=A$:РWrString *А 4: >: H*щєfile_info(A$):Й A%,L%,E%:L%=-1:E%=-1 R: \Т Check for file header fin%=єf_openin(A$):Г in% ▄ p.Ц A%=0 ╦ 127:Г е#in%:X%?A%=0 ▀ X%?A%= #in% z&М A%:ы#in%:in%=0 :Т Read header └Г X%!(X%?7)=&29432800 ▄ ▌)A%=X%?6 :Т Code type ≤,L%=&FFFF8000 :Т Sideways ROM ╒)Г A%─&40:L%=&8000 :Т Language ROM ╛Г A%─&20 ▄ І&A%=X%?7:УA%=A%+1:ЩX%?A%=0 └ A%>123 ю/Г A%<124:L%=X%!(A%+1) :Т Relocation address йм т E%=L% чм Хм Р: ЭТ Check for .inf file AI$=A$+s$+"inf":Т IF FNf_info(I$)=0:I$=FNfn_noext(A$)+s$+"inf" Й ┘:Н ┘ Й:=єf_info(A$) !Г єf_info(I$)=1 ─ X%!10<120 ▄ $2A%=X%!10:Ъ"LOAD "+I$+" "+ц~X%:X%!A%=&D20:A%=X% .5У:A%=A%+1:Щ?A%=32:УA%=A%+1:Щ?A%<>32:L%=═("&"+$A%) 85У:A%=A%+1:Щ?A%=32:УA%=A%+1:Щ?A%<>32:E%=═("&"+$A%) Bм LX%!2=L%:X%!6=E% VP=єf_info(A$):Т Fills in Size and Attr, on RISCOS also fills in Load and Exec `: j: tТ Convert filenames ~Т ================= ┬щєfn_convert(A$,from%,to%) ▓ inf%=INF% °)Гєuc(юA$,5))=":INF:":inf%=╧:A$=аA$,6) і+Гєuc(юA$,7))=":NOINF:":inf%=ё:A$=аA$,8) ╟Гfrom%=to% └ A$="":=A$ ╨Т x00xxxxx - BBC дТ x01xxxxx - Unix нТ x1xxxxxx - DOS ь1Г(from%─96)=0 :Г(to%─64)=64:=єfn_bbctodos(A$) Б2Г(from%─96)=0 :Г(to%─96)=32:=єfn_bbctounix(A$) Л1Г(from%─64)=64:Г(to%─96)=0 :=єfn_dostobbc(A$) Ж2Г(from%─64)=64:Г(to%─96)=32:=єfn_dostounix(A$) 2Г(from%─96)=32:Г(to%─96)=0 :=єfn_unixtobbc(A$) 2Г(from%─96)=32:Г(to%─64)=64:=єfn_unixtodos(A$) =A$ : (6Т REM Support functions from BLib.File, BLib.FInfo 26Т REM ============================================ <: F*щєf_access(A%,T%):ЙA$:Г(A%─128):A$="P" PГ(T%─2):A$=A$+"D" ZГ(A%─8):A$=A$+"L" dГ(A%─2):A$=A$+"W" nГ(A%─1):A$=A$+"R" xГ(A%─5)=4:A$=A$+"E" ┌ A$=A$+"/":Г(A%─32):A$=A$+"w" ▄Г(A%─16):A$=A$+"r" √Г(A%─80)=64:A$=A$+"e" ═=юA$+" ",8) ╙: Єaщєf_date(A%)=єd0(A%─31,2)+"/"+єd0((A%─&F00)│256,2)+"/"+єd0((A%─&F000)│4096+(A%─&E0)/2+1981,4) &Т > BLib.Filename 1.01 25-Jan-2011 AТ Convert between BBC, DOS/Windows and UNIX/ZIP/URL filenames KТ!Keep FNfn_frombbc(), FNfn_tobbc(), FNfn_unixtodos(), FNfn_dostounix() 2: <: F5щєfn_bbctodos(A$):ЙA%,B%,H%:H%=32:щ:єfn_frombbc() P5щєfn_bbctounix(A$):ЙA%,B%,H%:H%=8:щ:єfn_frombbc() Z%щєfn_frombbc(A$):ЙA%,B%,H%:H%=os% dГA$=""└(H%─-24)=0:=A$ nLГюA$,1)=":":A%=їA$+".","."):A$=аA$,2,A%-2)+":"+аA$,A%-(аA$,A%+1,1)="$")) x A%=0:У:A%=A%+1:B%=≈аA$,A%,1) ┌7ГB%=35└B%=63:A$=юA$,A%-1)+Ґ(B%┌28)+аA$,A%+1) :Т # ? ▄7ГB%=61└B%=64:A$=юA$,A%-1)+Ґ(B%┌125)+аA$,A%+1):Т = @ √7ГB%=36└B%=60:A$=юA$,A%-1)+Ґ(B%┌24)+аA$,A%+1) :Т < $ ═7ГB%=62└B%=94:A$=юA$,A%-1)+Ґ(B%┌96)+аA$,A%+1) :Т > ^ ╙=ГB%=≈"$":Г(H%─-24)=8:A$=юA$,A%-1)+"/"+аA$,A%+1-(A%<>╘A$)) Є;ГB%=≈"$":Г(H%─-32):A$=юA$,A%-1)+"\"+аA$,A%+1-(A%<>╘A$)) Ў'ГB%=≈"@":A$=юA$,A%-1)+"."+аA$,A%+1) х0ГB%=≈"^":A$=юA$,A%-1)+".."+аA$,A%+1):A%=A%+1 р'ГB%=≈"/":A$=юA$,A%-1)+"."+аA$,A%+1) э3ГB%=≈".":Г(H%─-24)=8:A$=юA$,A%-1)+"/"+аA$,A%+1) Ф1ГB%=≈".":Г(H%─-32):A$=юA$,A%-1)+"\"+аA$,A%+1) П1ГB%=≈"\":Г(H%─-32):A$=юA$,A%-1)+"/"+аA$,A%+1) З:Т IFB%=ASC"&":A$=LEFT$(A$,A%-1)+"%HOME%"+MID$(A$,A%+1) ЩA%>╘A$:=A$ : Zщєfn_fromunix(A$):Г(os%─-24)=8:=A$ ▀ Г(os%─-24)=0:=єfn_unixtobbc(A$):щ:єfn_dostounix() "Vщєfn_fromdos(A$):Г(os%─-32):=A$ ▀ Г(os%─-24)=0:=єfn_dostobbc(A$):щ:єfn_dostounix() ,Xщєfn_tounix(A$):Г(os%─-24)=8:=A$ ▀ Г(os%─-24)=0:=єfn_bbctounix(A$):щ:єfn_dostounix() 6Tщєfn_todos(A$):Г(os%─-32):=A$ ▀ Г(os%─-24)=0:=єfn_bbctodos(A$):щ:єfn_dostounix() @(щєfn_unixtodos(A$):щ:єfn_dostounix() Jщєfn_dostounix(A$) TГїA$,"/")+їA$,"\")=0:=A$ ^ZЙ A%,B%:A%=0:У:A%=A%+1:B%=≈аA$,A%,1):ГB%=≈"/"└B%=≈"\":A$=юA$,A%-1)+Ґ(B%┌115)+аA$,A%+1) hЩA%>=╘A$:=A$ r: |3щєfn_dostobbc(A$):ЙA%,B%,H%:H%=32:щ:єfn_tobbc() ├3щєfn_unixtobbc(A$):ЙA%,B%,H%:H%=8:щ:єfn_tobbc() ░#щєfn_tobbc(A$):ЙA%,B%,H%:H%=os% ГA$=""└(H%─-24)=0:=A$ єГA$="/":Г(H%─-24)=8:="$" ўГA$="\":Г(H%─-32):="$" ╦ A%=0:У:A%=A%+1:B%=≈аA$,A%,1) б6ГB%=35└B%=63:A$=юA$,A%-1)+Ґ(B%┌28)+аA$,A%+1):Т # ? л;ГаA$,A%,2)="..":A$=юA$,A%-1)+"^"+аA$,A%+2):A%=A%-1:B%=0 ж&ГаA$,A%)=".":A$=юA$,A%-1)+"@":B%=0 Ю?ГаA$,A%,2)="./":Г(H%─-24)=8:A$=юA$,A%-1)+"@"+аA$,A%+1):B%=0 Й=ГаA$,A%,2)=".\":Г(H%─-32):A$=юA$,A%-1)+"@"+аA$,A%+1):B%=0 ТGТ IFMID$(A$,A%,6)="%HOME%":A$=LEFT$(A$,A%-1)+"&"+MID$(A$,A%+6):B%=0 Ч'ГB%=≈".":A$=юA$,A%-1)+"/"+аA$,A%+1) 1ГB%=≈"\":Г(H%─-32):A$=юA$,A%-1)+"."+аA$,A%+1) 1ГB%=≈"/":Г(H%─-32):A$=юA$,A%-1)+"\"+аA$,A%+1) 3ГB%=≈"/":Г(H%─-24)=8:A$=юA$,A%-1)+"."+аA$,A%+1) &4ГB%=≈":":A$=":"+юA$,A%-1)+".$"+аA$,A%+1):A%=A%+2 0ЩA%>╘A$:=A$ :: "Т > BLib.File 1.02 J.G.Harston +Т Platform-independant filing functions : (: 25Т PROCf_init - initialise filing-system variables <5Т ----------------------------------------------- FщРf_init P0):ГB%:A%=B%-1 ═ГA%:=юA$,A%) ╙+Гї":$%&^@\-",юA$,1)):=юA$,їA$+d$,d$)-1) Є="" Ў: х: р)Т FNfn_leaf(path$) - returns leafname э)Т ----------------------------------- Ф&щєfn_leaf(A$):ЙA%,B%:A%=їA$,":",2) П+УB%=A%:A%=їA$,d$,A%+1):ЩA%=0:=аA$,B%+1) З: : )Т FNfn_path(path$) - returns pathname )Т ----------------------------------- "&щєfn_path(A$):ЙA%,B%:A%=їA$,":",2) ,)УB%=A%:A%=їA$,d$,A%+1):ЩA%=0:=юA$,B%) 6: @: J4Т FNfn_ext(path$) - returns leafname's extension T4Т ---------------------------------------------- ^щєfn_ext(A$):ГїA$,s$)=0:="" h1Й A%:A%=╘A$+1:УA%=A%-1:Щї":"+d$+s$,аA$,A%,1)) r ГаA$,A%,1)=s$:=аA$,A%) ▀ ="" |: ├: ░8Т FNfn_noext(path$) - returns path with no extension 8Т -------------------------------------------------- є!щєfn_noext(A$):ГїA$,s$)=0:=A$ ў1Й A%:A%=╘A$+1:УA%=A%-1:Щї":"+s$+d$,аA$,A%,1)) ╦"ГаA$,A%,1)=s$:=юA$,A%-1) ▀ =A$ б: л: ж=Т FNfn_fullpath(path$, file$) - return full absolute path Ю=Т ------------------------------------------------------- Йщєfn_fullpath(P$,A$) Т'Гї"$%&^\-",юA$,1)):Г(os%─-24)=0:=A$ ЧГїA$,":")└юA$,1)=d$:=A$ =P$+юd$,бP$,1)<>d$)+A$ : : &9Т PROCf_gbpb() - multiple get-bytes or put-bytes call 09Т --------------------------------------------------- :%щРf_gbpb(A%,chn%,addr%,num%,ptr%) D=?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:Г░<&FFFF:ж&FFD1:А NГA%=1└A%=3:о#?X%=X%!9 X5У:ГA%=1└A%=2:у#?X%,?X%!1 ▀ ГA%=3└A%=4:?X%!1= #?X% b5X%!1=X%!1+1:X%!5=X%!5-1:Щ(е#?X% ─ A%>2)└ X%!5<1:А l: v: ─-Т FNfs - get current filing system number ┼-Т --------------------------------------- ■)щєfs:Г░<&FFFF:ЙA%,Y%,E%:=(╨&FFDA)─&FF ·=29 ╗: ╡: ╪(Т PROCf_dir(dir$) - select directory ф+Т PROCf_delete(object$) - delete object п+Т ------------------------------------- з>щРf_dir(A$):Г(os%─-24):A$="cd "+A$ ▀ A$="dir "+єf_name(A$) ДFщРf_delete(A$):Г(os%─-24)=8:A$="rm "+A$ ▀ A$="delete "+єf_name(A$) Н ЪA$:А Ь: : DТ PROCf_cdir(dir$) - create a directory only if it doesn't exist DТ -------------------------------------------------------------- :щРf_cdir(A$):Г(os%─-24):A$="mkdir "+A$ ▀ A$="cdir "+A$ * Г ё ▄ 4 ЪA$:А >м HЙ ┘:Н ┘ Й:А R ЪA$:А \: f: pEТ FNf_name(path$) - ensure no extension if no extension specified zEТ --------------------------------------------------------------- └щєf_name(A$) ▌IГos%>31:ЙA%,B%:УB%=A%:A%=їA$,"\",A%+1):ЩA%=0:ГїA$,".",B%)=0:A$=A$+"." ≤=A$ ╒: ╛: ІBТ FNf_openin(file$) - open an input file ensuring no extension юBТ ------------------------------------------------------------ й!щєf_openin(A$)=▌(єf_name(A$)) т: ч: ХCТ FNf_openup(file$) - open an update file ensuring no extension РCТ ------------------------------------------------------------- Э!щєf_openup(A$)=ґ(єf_name(A$)) : : DТ FNf_openout(file$) - open an output file ensuring no extension $DТ -------------------------------------------------------------- ."щєf_openout(A$)=ў(єf_name(A$)) 8: B: L@Т FNf_info(object$) - returns file type, file info in X%!... V@Т ---------------------------------------------------------- `Oщєf_info(A$):Г░<&FFFF:$name%=A$:?X%=name%:X%?1=name%│256:A%=5:=(╨&FFDD)─&FF jГos%<>32:=0 tЙdir%,sh%:чdir%Й319 ~*х≥"FindFirstFile",єf_name(A$),dir%╦sh% ┬LГsh%=-1:х≥"GetFileAttributes",єf_name(A$)╦sh%:=((sh%─16)│16+1)─(sh%<>-1) Т Eh? Shouldn't exit there ▓5х≥"FindClose",sh%:X%!10=dir%!32:Гdir%!28:X%!10=-1 °,X%?14=(?dir%─1)*8+(&33 ─ ((?dir%─16)=0)) і*х≥"FileTimeToSystemTime",dir%+20,X%+16 ╟BA%=(X%!16─&FFFF)-1981:X%?15=X%?22+(A%─&70)*2:X%?16=X%?18+A%*16 ╨8X%?17=X%?24:X%?18=X%?26:X%?19=X%?28:=(?dir%─16)│16+1 д: н: ь3Т PROCf_settype(object%, type%) - set file type Б3Т --------------------------------------------- Л щРf_settype(A$,A%):Гos%=32:А ЖHГ░<&FFFF:Гєf_info(A$):X%?3=A%:X%?4=(A%│256)└&F0:X%?5=&FF:A%=1:ж&FFDD А : : Т > BLib.Win.BBCKbd 0.11 'Т Returns BBC-style keypress values : (2щєkbd_GET:Й A%:УA%=єkbd_INKEY(100):ЩA%<>-1:=A% 2: <&щєkbd_INKEY(T%):Й A%,S%:ГT%<0:=іT% F*A%=і(T%):S%=(і-1─16)+(і-2─32)+(і-3─48) PГA%=8└A%=&87:A%=&7F ZГA%<&80:=A% d4A%=A%-&10:ГA%>&7F:Г(A%─15)>9:A%=A%┌&40:ГS%=0:=A% n9ГS%:ГA%>&CA:ГA%<&D0:=═("&"+а"09E8ABAFAE",A%*2-405,2)) xFГA%<&80:=═("&"+а"8C8DC88B9F9ECD7F8C8D8E8FCECFCECF",A%*2-223,2))┌S% ┌=A% "Т > BLib.String 1.00 09Aug1998 : #Т String Manipulation Functions (#Т ============================= 2: <7Т FNs() - strip spaces from start and end of string F7Т ------------------------------------------------- P/щєs(A$):ГюA$,1)=" ":УA$=аA$,2):ЩюA$,1)<>" " Z+ГбA$,1)=" ":УA$=юA$,╘A$-1):ЩбA$,1)<>" " d=A$ n: x+Т FNuc() - convert string to upper case ┌+Т ------------------------------------- ▄щєuc(A$):Й B$:ГA$="":="" √5УB$=B$+Ґ(≈A$─((A$<"@")└&DF)):A$=аA$,2):ЩA$="":=B$ ═: ╙+Т FNlc() - convert string to lower case Є+Т ------------------------------------- Ўщєlc(A$):Й B$:ГA$="":="" х5УB$=B$+Ґ(≈A$└((A$<"_")─&20)):A$=аA$,2):ЩA$="":=B$ р: Т > BLib.Variable #Т Variable assignment functions #Т ============================= (@Т!Keep FNVar_S(), FNVar_I(), FNVar_B(), FNVar_F(), FNVar_R() 2;|!Keep єVar_S(); єVar_I(); єVar_B(); єVar_F(); єVar_R() <: FТ Var_Assign(Var$,Val$) P8Т Sets the variable in 'Var$' to the value in 'Val$' Z8Т -------------------------------------------------- d: nщРVar_Assign(Var$,Val$) x7Г бVar$,1)="$":A%=═("FNVar_S("+Var$+","+Val$+")"):А ┌7Г бVar$,1)="%":A%=═("FNVar_I("+Var$+","+Val$+")"):А ▄7Г бVar$,1)="&":A%=═("FNVar_B("+Var$+","+Val$+")"):А √7Г бVar$,1)="#":A%=═("FNVar_F("+Var$+","+Val$+")"):А ═(A%=═("FNVar_R("+Var$+","+Val$+")"):А ╙А Є: ЎщєVar_S(Ь a$,b$):a$=b$:=0 хщєVar_I(Ь a%,b%):a%=b%:=0 рщєVar_B(Ь a&,b&):a&=b&:=0 эщєVar_F(Ь a#,b#):a#=b#:=0 ФщєVar_R(Ь a, b ):a =b :=0 П: 0Т > BLib.Win.Reg v1.04 20Sep2010 J.G.Harston %Т v1.00 18May2006 Initial version 0Т v1.01 09Feb2007 Finds required buffer size ("Т v1.02 13Aug2007 B% localised 2DТ v1.03 25Apr2009 Michael Hutton: uses $$B%, added PROCReg_Del() <.Т v1.04 20Sep2010 Shortened variable names F: P.Т Simple Windows registry access functions Z.Т ======================================== d: n/Т Reg_Rd(Key$) - Read a user registry entry x/Т ----------------------------------------- ┌: ▄'щєReg_Rd(K$):Й K%,R%,L%,T%,I$,V$,B% √(I$=K$:У:K%=їI$,"\"):ГK%:I$=аI$,K%+1) ═ЩK%=0:K$=юK$,╘K$-╘I$-1) ╙4х≥ "RegOpenKeyEx",&80000001,K$,0,&20001,^K% ╦ R% ЄГ R%=0 ▄ Ў4х≥ "RegQueryValueEx",K%,I$,0,^T%,0,^L%:ч B% Й L% х0х≥ "RegQueryValueEx",K%,I$,0,^T%,B%,^L% ╦ R% рГ R%=0:B%?(L%-1)=0:V$=$$B% эх≥ "RegCloseKey",K% Фм П=V$ З: : 7Т Reg_Wr(Key$,Value$) - Write a user registry entry 7Т ------------------------------------------------- ": ,!щРReg_Wr(K$,V$):Й K%,D%,R%,I$ 6(I$=K$:У:K%=їI$,"\"):ГK%:I$=аI$,K%+1) @ЩK%=0:K$=юK$,╘K$-╘I$-1) JAх≥ "RegCreateKeyEx",&80000001,K$,0,"",0,&F003F,0,^K%,^D% ╦ R% TГ R%=0 ▄ ^)х≥ "RegSetValueEx",K%,I$,0,1,V$,╘V$+1 hх≥ "RegCloseKey",K% rм |А ├: ░: 2Т Reg_Del(Key$) - delete a user registry entry є2Т -------------------------------------------- ў: ╦щРReg_Del(K$):Й K%,R% б?х≥ "RegCreateKeyEx",&80000001,K$,0,"",0,&F003F,0,^K%,0 ╦ R% лГ R%=0 ▄ ж х≥ "RegDeleteTree",K%,0 ╦ R% Юх≥ "RegCloseKey",K% Йм ТА Ъ