 
Т > TubeHost $Т Simple Serial Tube Host System 4Т v0.26  - Added client/host filename conversion (&Т v0.27  - Configurable .inf usage 2(Т v0.27a - "" is a wildcard filename <: F: P&A%=0:X%=1:os%=((╨&FFF4)─&FF00)│256 Z"_baud$="19200" :Т Default baud d#_debug$="0"    :Т Default debug n+_PFX$="127"    :Т Default escape prefix x4_RST$="0"      :Т Send reset sequence on startup ┌$_INF$="1"      :Т Use .inf files ▄: √uч ctrl0% 131,string% 255,escflg% 0:ctrl%=ctrl0%+2:ch%=0:in%=0:out%=0:ser%=0:serout%=0:serin%=0:fn$="":ver$="0.27" ═Cclient%=0:host%=2*(os%─32)+4*(os%─8):Н ┘ Ж:Рclose:Я:Рexit(÷):х≤ ╙mРChoices_Init("J.G.Harston","TubeHost"):speed%=╩_baud$:dbg%=╩_debug$:_PFX%=╩_PFX$:_INF%=╩_INF$:inf%=_INF% Є=Я"Tube Host v";ver$;" at ";speed%:tmp$="<Wimp$ScrapDir>." ЎKРf_init:Гos%=32:х≥ "SetWindowText",@hwnd%,"Tube Host v"+ver$:tmp$=@tmp$ х1Н ┘ Рreport:Р_ERROR:Рclose:Г єerr:Рexit(÷):х≤ рEquit%=ё:Гє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,fГos%=32:serin%=ґ("COM1: baud="+цspeed%+" parity=N data=8 stop=1 octs=on"):serout%=serin%:=serin%=061A%=speed%:ГA%>63:A%=╙(A%│75)/╙2:ГA%<4:A%=A%+1@"Ъ"FX7,"+цA%:Ъ"FX8,"+цA%:*FX2,2JGГos%=6:serin%=▌"Serial:":serout%=ў"Serial:":=(serin%=0)└(serout%=0)T=0^:hщРcloserГch% :A%=ch% :ch%=0 :ы#A%|Гin% :A%=in% :in%=0 :ы#A%├Гout%:A%=out%:out%=0:ы#A%░Гserout%=serin%:serout%=0 (Гserout%:A%=serout%:serout%=0:ы#A%:Ає(Гserin% :A%=serin% :serin%=0 :ы#A%:Аў*FX2╦Аб:л	щєerrж(=і-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):х≤0А::D#щєd0(A%,N%)=б"00000000"+цA%,N%)N#щєh0(A%,N%)=б"0000000"+ц~A%,N%)X1щєc(A%):A%=A%─127:ГA%<32 └ A%=127:="." ▀ =ҐA%b:l:vТ Inward─Т   x                 VDU x┼!Т   esc,esc           VDU esc■=Т   esc,n             MOS function, control block follows·Т╗:╡:╪Т OS_RDCHфТ =======п"Т Tube data  &00 -- Carry Charз0щє_0                   :Гdbg%─2:Я"OS_RDCH ";ДРEscOff:A%=╔:РEscOnН7РWrByte((A%=27)─&80) :Гdbg%─2:Я"-- "єh0(&00,2)"  ";Ь.РWrByte(A%)            :Гdbg%─2:Яєh0(A%,2)=0:: Т OS_CLI*Т ======4-Т Tube data  &02 string &0D -- &7F or &80>,щє_2                 :Гdbg%:Я"OS_CLI  ";H-РRdString            :Гdbg%:Я$string%" ";RY%=string%:A%=єmos_cli\.Г A%>=0:РWrByte(A%) :Гdbg%:Я"-- "єh0(A%,2)f=0p:z:└Т SHORT_BYTE▌Т ==========≤Т Tube data  &04 X A -- X╒%щє_4          :Гdbg%:Я"OS_BYTE ";╛)X%=єRdByte      :Гdbg%:Яєh0(X%,2)" ";І)A%=єRdByte      :Гdbg%:Яєh0(A%,2)" ";юA%=єmos_byteй(Р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84Г A%<0:=0       :Т Reply already sent, eg *FX142B5РWrByte((A%─&100)│2) :Гdbg%:Я"-- "єh0(A%│2,2)" ";L2РWrByte(Y%)              :Гdbg%:Яєh0(Y%,2)" ";V.РWrByte(X%)              :Гdbg%:Яєh0(X%,2)`=0j:t:~Т OS_WORD┬Т =======▓4Т Tube data  &08 A in_len block out_len -- block°*щє_8               :Гdbg%:Я"OS_WORD ";і.A%=єRdByte           :Гdbg%:Яєh0(A%,2)" ";╟2inlen%=єRdByte       :Гdbg%:Яєh0(inlen%,2)" ";╨HР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 ";2fР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F/Г(A%─&100)        :Гdbg%─2:Я"-- "єh0(&80,2)PГ(A%─&100):РWrByte(&80):=0Z4РWrByte(&7F)       :Гdbg%─2:Я"-- "єh0(&7F,2)" ";d)РWrString          :Гdbg%─2:Я$string%n=0x:┌:▄Т OS_ARGS√Т =======═:Т Tube data  &0C handle block function -- result block╙*щє_C               :Гdbg%:Я"OS_ARGS ";Є.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 ";60Y%=єRdByte           :Гdbg%─1:Яєh0(Y%,2)" ";@Y%=Y%─&7F:A%=єmos_bgetJ=РWrByte((A%─&100)│2):Гdbg%─1:Я"-- "єh0((A%─&100)│2,2)" ";T*РWrByte(A%)        :Гdbg%─1:Яєh0(A%,2)^=0h:r:|Т OS_BPUT├Т =======░'Т Tube data  &10 handle byte -- &7F ,щє_10              :Гdbg%─1:Я"OS_BPUT ";є0Y%=єRdByte           :Гdbg%─1:Яєh0(Y%,2)" ";ў0A%=єRdByte           :Гdbg%─1:Яєh0(A%,2)" ";╦Y%=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 ▄0,Y%=єRdByte         :Гdbg%:Яєh0(Y%,2)" ";:KY%=Y%─&7F:A%=єmos_find:Г Y%=0 └ Y%=serin%:A%=єopen:Т Reopen serial portD,РWrByte(&7F)     :Гdbg%:Я"-- "єh0(&7F,2)N=0Xмb+РRdString          :Гdbg%:Я$string%" ";l3Y%=string%-1:УY%=Y%+1:Щ?Y%<33:?Y%=13:Y%=string%vNГєwildcardsNull:=0  :Т BB4W throws up a dialogue box with wildcards and ""─&$Y%=єfn_convert($Y%,client%,host%)┼ Y%=єmos_find:ГY%:Y%=Y% └ &80■-РWrByte(Y%)        :Гdbg%:Я"-- "єh0(Y%,2)·=0╗:╡:╪Т OS_FILEфТ =======п?Т Tube data  &14 block string <cr> 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);4FРWrBlock(16)       :Гdbg%:Ц D%=0 ╦ 12 ┬ 4:Я" "єh0(ctrl%!D%,8);:М:Я>=0H:R:\Т OS_GBPBfТ =======p9Т Tube data  &16 block function -- block Carry resultz*щє_16              :Гdbg%:Я"OS_GBPB ";└VРRdBlock(13)       :Гdbg%:Яєh0(?ctrl%,2)" ";:Ц D%=1 ╦ 9 ┬ 4:Яєh0(ctrl%!D%,8)" ";:М▌.A%=єRdByte           :Гdbg%:Яєh0(A%,2)" ";≤X%=ctrl%:?X%=?X%─&7F╒A%=єmos_gbpb╛`РWrBlock(13)            :Гdbg%:Я"-- "єh0(?ctrl%,2)" ";:Ц D%=1 ╦ 9 ┬ 4:Яєh0(ctrl%!D%,8)" ";:МІ6Р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)" ";	8CГdbg%:Яа"OPTEOF*/ CMDRUNCATNEWHNDWRNEX INFRUNREN",A%*3+1,3)" ";	B:	L*Г A%>127 └ A%<2 └ A%=6 └ A%=7 └ A%=8 ▄	VГA%=1:Y%=Y%─127  :Т =EOF	`A%=єmos_fsc	j1РWrByte(&FF)      :Гdbg%:Я"-- "єh0(&FF,2)" ";	t+РWrByte(Y%)       :Гdbg%:Яєh0(Y%,2)" ";	~'РWrByte(X%)       :Гdbg%:Яєh0(X%,2)	┬=0	▓м	°3РWrByte(&7F)        :Гdbg%:Я"-- "єh0(&7F,2)" ";	і,РRdString           :Гdbg%:Я$string%" ";	╟Y%=string%:A%=єmos_fsc	╨(Г 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
2+щє_1E               :Гdbg%:Я"OS_SYNC ";
</РWrByte(&00)        :Гdbg%:Я"-- "єh0(&00,2)
F=0
P:
Z:
dщР_ERROR
n_$string%=ю"HostFS error: ",÷<128 ─ ÷<>17 ─ ÷<>28)+Ж$+ю" ("+ц·+")",÷<128 ─ ÷<>17 ─ ÷<>28)+Ґ0
xGРWrCmd(&00)         :Гdbg%:Я"ERROR   "єh0(_PFX%,2)" "єh0(&00,2)" ";
┌0A%=÷:Г ÷=28:A%=253:$string%="Bad address"+Ґ0
▄,РWrByte(A%)        :Гdbg%:Яєh0(A%,2)" ";
√B%=0
═У
╙A%=string%?B%
Є$РWrByte(A%)      :Гdbg%:Яєc(A%);
ЎB%=B%+1
хЩA%=0             :Гdbg%:Я
рА
э:
Ф:
ПщР_RESET
ЗFР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,А6:@:JщєwildcardsNull:Гos%<>32:=ёT+Г?Y%=13 └ $Y%="""":┘ 204,"Bad filename"^щєwildcards:Гos%<>32:=ёh-Г(client%─96)=0:Гї$Y%,"*")+ї$Y%,"#")=0:=ёr-Г(client%─96)  :Гї$Y%,"*")+ї$Y%,"?")=0:=ё|┘ 253,"Wildcards"├=╧░: :є!щРEscOff:Гos%─32:Ъ"ESC OFF":АўЪ"FX229":А╦ щРEscOn:Гos%─32:Ъ"ESC OFF":АбЪ"FX229,1":Ал:ж:ЮТ I/O routinesЙТ ============Т:ЧщєRdByteУdb%=єSerIn:Гb%=_PFX%:b%=єSerIn:Гb%<>_PFX%:Г(b%─&81)=0:client%=b%─&60:A%=═("FN_"+ц~(b%─&1E)):b%=-1Щ b%>=0&=b%0::щРWrByte(A%)D&РSerOut(A%):Г A%=_PFX%:РSerOut(A%)NАX:bщРWrCmd(A%)l РSerOut(_PFX%):РSerOut(A%):Аv:─щРRdBlock(N%):Г N%=0:А┼+Ц D%=N%-1 ╦ 0 ┬ -1:ctrl%?D%=єRdByte:М:А■:·щРWrBlock(N%):Г N%=0:А╗,Ц D%=N%-1 ╦ 0 ┬ -1:РWrByte(ctrl%?D%):М:А╡:╪щР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4:>(щРSerOut(A%):Гserout%:у#serout%,A%:АHАR:\2щРSerFlush:Гserin%:х∙ ╒#serin%:B%= #serin%:н:АfАp:z:└щєargs(A%,Y%,X%)▌2Я"@ARGS "єh0(A%,2)" "єh0(Y%,2)" "єh0(X%,8)" ";≤=0╒:╛:ІТ 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")84РChoices_Rd("Choices:"+Pub$+"."+App$+".Choices")BмLАV:`щРChoices_Rd(file$):Й A$,A%jin%=▌(file$)t
Гin% ▄~У┬A$=Ў#in%:Г юA$,1)="#":A$=""▓A%=їA$,":"):Г A% ▄°&A%=A%-1:У:A%=A%+1:Щ аA$,A%,1)<>" "і6РVar_Assign("_"+юA$,A%-1)+"$",""""+аA$,A%+1)+"""")╟м╨Щ е#in%:ы#in%:in%=0дмнАь 
Т > ByteTx 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 2; <: FТ File load/save routines PТ ======================= Z>Т fn$ set by external caller to originally passed filename dщєhost_file nГA%>0 ─ A%<5 ▄ xL%=X%!2:E%=X%!6:T%=X%!14 ┌%?X%=єfile_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% ЄhY%=string%:A$=$Y%:$Y%=єfn_leaf(A$)+" "+єh0(X%!2,8)+" "+єh0(X%!6,8)+" "+єh0(X%!10,8)+" "+єh0(X%!14,8) Ў=Ъ"SAVE "+єfn_noext(A$)+s$+"inf "+ц~Y%+"+"+ц~(╘$Y%+1):=?X% хм р%ГA%=&FF:ГX%?6:?X%=єfile_info($Y%) э0ГA%=&FF:ГX%!2=0:┘ 252,"No file load address" ФГA%=&FF:A%=&40 ▀ A%=&80 Пch%=єmos_find З3ГA%=&40:Гch%=0:┘ 214,"File '"+fn$+"' not found"/ГA%=&80:Гch%=0:┘ 192,"Can't save '"+fn$+"'"ГA%=&40 ▄YY%=╒#ch%:РWrCmd(&E0)                                           :Т Send 'load' command"QРWrByte(X%?5):РWrByte(X%?4):РWrByte(X%?3):РWrByte(X%?2) :Т Send start address,BГ Y%:У:РWrByte( #ch%):Ще#ch%                      :Т Send data6_X%!2=0:X%!6=0:X%!10=Y%:X%!14=&33                                    :Т Update control block@лJ[Y%=X%!14-X%!10:РWrCmd(&F0)                                       :Т Send 'save' commandTTРWrByte(X%?13):РWrByte(X%?12):РWrByte(X%?11):РWrByte(X%?10):Т Send start address^_X%!10=Y%:X%!14=&33                                                  :Т Update control blockhFГ Y%:У:у#ch%,єRdByte:Y%=Y%-1:ЩY%=0                    :Т Read datarм|VРWrCmd(&B0)                                                        :Т End transfer├ РSerFlush:B%=і(10):РSerFlush░ы#ch%:ch%=0 #Г A%=&80 ─ (os%─32) ─ inf%<>0 ▄єFY%=string%:A$=$Y%:$Y%=єfn_leaf(A$)+" "+єh0(X%!2,8)+" "+єh0(X%!6,8)ў8Ъ"SAVE "+єfn_noext(A$)+s$+"inf "+ц~Y%+"+"+ц~(╘$Y%+1)╦мбZ=1                                                                    :Т Return 'File'л:ж:ЮТ File read/write routinesЙТ ========================Тщєhost_gbpbЧТ X%=>control blockBГA%=0 └ A%>4:=єhost_info     :Т Read filing system information)Y%=?X%:Г(A%─1):о#Y%=X%!9   :Т Set PTR6Г A%>2:РWrCmd(&E0) ▀ РWrCmd(&F0) :Т Load/Save data&0РWrByte(X%?4)                :Т Send address0РWrByte(X%?3):РWrByte(X%?2)DРWrByte(X%?1)NZГ A%>2:Г X%!5:У:РWrByte(єmos_bget):X%!1=X%!1+1:X%!5=X%!5-1:ЩX%!5=0 └ е#Y% :Т Send dataX`Г A%<3:Г X%!5:У:A%=єRdByte:A%=єmos_bput:X%!1=X%!1+1:X%!5=X%!5-1:ЩX%!5=0        :Т Fetch datab0РWrCmd(&B0)                  :Т End transferl РSerFlush:A%=і(10):РSerFlushv7X%!9=▐#Y%                     :Т Return updated PTR─Q=(е#Y%)─&100                :Т Return Carry in b8, 0 in b0-b7 for 'supported'┼:■:·$Т File filing system information╗$Т ==============================╡щє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)4РWrByte(1)>РWrByte(≈B$)HРWrByte(╘A$)R$string%=A$+Ґ0\РWrStringf)РWrCmd(&B0)           :Т End transferpX%!1=X%!1+╘$string%z=0└и 8▌ptr%=X%!9≤@х≥ "FindFirstFile",".\*.*",dir% ╦ sh%   :Т Initialise search╒Г sh%<>-1 ▄╛УІ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8)РWrCmd(&B0)           :Т End transferB1X%!1=X%!1+1+╘A$        :Т Update data addressL=X%!5=X%!5-1              :Т Count=Count-number transferedV:X%!9=X%!9+1              :Т Increment returned pointer`=0jмt=ptr%=ptr%-1                :Т Decrement requested pointer~=х≥ "FindNextFile",sh%,dir% ╦ res%  :Т Step to next object┬BЩ res%=0                           :Т Loop until no more found▓х≥ "FindClose",sh%°мі@=0                             :Т Return at end of directory╟к╨=A%д:н:ьТ Filing control routinesБТ =======================Лщєhost_fscЖТ  0 - *OPT Т  1 - EOF - done by BBCMOS
Т  2 - */CТ  3 - *command - *command -> fsc/file translation already doneТ  4 - *RUN(Т  5 - *CAT2Т  6 - New filing system<Т  7 - HandlesFТ  8 - OSCLI warningPТ  9 - *EXZТ 10 - *INFOdТ 11 - LIBRUNnТ 12 - *RENAMExosc%=A% ─ 256:A%=A% ─ 255┌х▌ A% й▄@и 5,9:                                           :Т CAT, *EX√Г?Y%<>13:$Y%=$Y%+"."═EГєwildcards:=0    :Т BB4W throws up a dialogue box with wildcards╙out%=ў(tmp$+"!")ЄWГ(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  :Т < $6$Г A%=61 └ A%=64:A%=A%┌125 :Т = @@$Г A%=62 └ A%=94:A%=A%┌96  :Т > ^JмTLГ((host%─64)=64 ─ (client%─96)=32) └ ((host%─96)=32 ─ (client%─64)=64) ▄^!Г A%=47:A%=92 ▀ Г A%=92:A%=47hмrГ osc%:О A% ▀ РWrByte(A%)|Ще#in%:ы#in%:in%=0├!Т 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ў?и 7:X%=&80:Y%=&9F:=0                             :Т Handles╦=и 10:                                            :Т *INFOбEГєwildcards:=0    :Т BB4W throws up a dialogue box with wildcardsл#X%=Y%-1:УX%=X%+1:Щ?X%<33:?X%=13ж7fn$=$Y%:$Y%=єfn_convert($Y%,client%,host%):X%=ctrl%Ю>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Г osc%=0:РWrByte(&40)     :Гdbg%:Яєh0(&40,2)РPrText(A$)=0&Bи 3:                                               :Т *command0@Y%=Y%-1:У:Y%=Y%+1:Щ?Y%<>32 ─ ?Y%<>≈"*" :Т Skip '*'s and ' 's:MX%=Y%:Г?Y%=≈"\":Y%=Y%+1                          :Т *\command -> *commandD4A%=ї$Y%+" "," "):B%=ї$Y%,"."):ГB%:ГA%>B%+1:A%=B%N?A$=":"+єuc(ю$Y%,A%-1)):Y%=Y%+A%-1             :Т A$=commandX<х∙ ?Y%=32:Y%=Y%+1:н                       :Т Skip spacesb)ГбA$,1)=".":A$=юA$,╘A$-1) ▀ A$=A$+":"l;C$=":ACCESS:DIR:FREE:HELP:GO:LOAD:LIB:SAVE:":A%=їC$,A$)v3Г A%:=═("FNhost_"+аC$,A%+1,їC$,":",A%+1)-A%-1))─(Г A%=0:Г?X%=≈"\":┘ 254,"Bad command"┼UY%=X%:A%=3                                          :Т Fall through to */filename■к·Г 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(fn$)з=Г ?X%=0:ГA%=3:┘ 254,"Bad command"             :Т *commandД>Г ?X%=0:┘ 214,"File '"+fn$+"' not found"       :Т */, *RUNНLГ X%!2=0 └ X%!6=0:┘ 252,"Bad address"         :Т No load or exec addressЬA%=&40:ch%=єmos_find+Г ch%=0:┘ 214,"Couldn't open '"+fn$+"'"YY%=╒#ch%:РWrCmd(&E0)                                           :Т Send 'load' commandQРWrByte(X%?5):РWrByte(X%?4):РWrByte(X%?3):РWrByte(X%?2) :Т Send start address BГ Y%:У:РWrByte( #ch%):Ще#ch%                      :Т Send data*TРWrCmd(&B0)                                                      :Т End transfer4 РSerFlush:A%=і(10):РSerFlush>ы#ch%:ch%=0H^РWrCmd(&C0)                                                      :Т Send 'address' commandRQРWrByte(X%?9):РWrByte(X%?8):РWrByte(X%?7):РWrByte(X%?6) :Т Send start address\[=&80                                                                :Т Return 'execute'fмp=0z:└:▌Т Support *commands≤Т =================╒щєhost_HELP╛%A%=єuc(ю$Y%,4))="TUBE" └ ?Y%=≈"."І0Г osc%=0:РWrByte(&40)     :Гdbg%:Яєh0(&40,2)юРPrText(Ґ10)й!РPrText("TubeHost "+ver$+Ґ10)тГ A%=0:=0ч!РPrText("  CAT (<path>)"+Ґ10)Х'РPrText("  CREATE <fsp> <len>"+Ґ10)РРPrText("  CDIR <dir>"+Ґ10)Э!РPrText("  DELETE <fsp>"+Ґ10)	РPrText("  DIR <dir>"+Ґ10)	(Т PROCPrText("  EX (<path>)"+CHR$10)	!Т PROCPrText("  FREE"+CHR$10)	$РPrText("  GO <addr>"+Ґ10)	.#РPrText("  HELP (<words>)"+Ґ10)	8РPrText("  INFO <fsp>"+Ґ10)	B(РPrText("  LOAD <fsp> (<addr>)"+Ґ10)	L&Т PROCPrText("  LIB <dir>"+CHR$10)	V#РPrText("  RUN <filename>"+Ґ10)	`-РPrText("  RENAME <oldfsp> <newfsp>"+Ґ10)	jFРPrText("  SAVE <fsp> <start> <end>/+<len> (<load> (<exec>))"+Ґ10)	t=0	~:	┬щєhost_ACCESS:=0	▓щєhost_FREE:=0	°щєhost_LIB:=0	і:	╟5щєhost_DIR:Г?Y%=13:$Y%=єfn_convert("&",0,client%)	╨fn$=$Y%:Гєwildcards:=0	д8Р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)
2=&80
<:
Fщєhost_LOAD
PX%=Y%:У:X%=X%+1:Щ?X%<33
ZA%=X%-1:У:A%=A%+1:Щ?A%<>32
d-?X%=13:Г?A%=13:A%=-1 ▀ A%=═("&"+єuc($A%))
nX%=ctrl%:X%!2=A%:X%?6=A%=-1
xA%=&FF:=єhost_file
┌:
▄щєhost_SAVE
√	X%=Y%
═FX%=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%)A%=&00:=єhost_file:":,щРPrText(A$)6Гosc%:ЯA$;Ґ13;:А@$string%=A$:РWrStringJАT:^:hщєfile_info(A$):Й A%r+I$=єfn_noext(A$)+s$+"inf":X%!2=0:X%!6=0|Й ┘:Н ┘ Й:=єf_info(A$)├!Г єf_info(I$)=1 ─ X%!10<120 ▄░2A%=X%!10:Ъ"LOAD "+I$+" "+ц~X%:X%!A%=&D20:A%=X% 7У:A%=A%+1:Щ?A%=32:УA%=A%+1:Щ?A%<>32:X%!2=═("&"+$A%)є7У:A%=A%+1:Щ?A%=32:УA%=A%+1:Щ?A%<>32:X%!6=═("&"+$A%)ўм╦=єf_info(A$)б:л:жТ 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0Т x1xxxxxx - DOS:1Г(from%─96)=0 :Г(to%─64)=64:=єfn_bbctodos(A$)D2Г(from%─96)=0 :Г(to%─96)=32:=єfn_bbctounix(A$)N1Г(from%─64)=64:Г(to%─96)=0 :=єfn_dostobbc(A$)X2Г(from%─64)=64:Г(to%─96)=32:=єfn_dostounix(A$)b2Г(from%─96)=32:Г(to%─96)=0 :=єfn_unixtobbc(A$)l2Г(from%─96)=32:Г(to%─64)=64:=єfn_unixtodos(A$)v=A$─:┼2Т Support functions from BLib.File, BLib.FInfo■2Т ============================================·2щРf_dir(A$):Гos%─40:A$="cd "+A$ ▀ A$="dir "+A$╗	ЪA$:А╡:╪*щєf_access(A%,T%):ЙA$:Г(A%─128):A$="P"фГ(T%─2):A$=A$+"D"пГ(A%─8):A$=A$+"L"зГ(A%─2):A$=A$+"W"ДГ(A%─1):A$=A$+"R"НГ(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) 
Т > BBCMOS Т BBC MOS Interface >Т Within this library, all filenames are locally formatted (; 2щєmos_args <'Г Y%=0:Г A%=0:=єfs           :Т =FS FГ (Y%─-512) ▄ Pх▌ A% й Z'и 0:!X%=0:=0             :Т =PTR#-1 d>и 2:!X%=255-√(-1):=0 :Т =EXT#-1, number in keyboard buffer n;и 5:!X%=√(-1)=0:=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:Г ░>&8000:х≥ "OS_Args",A%,Y%,!X% ╦ A%,Y%,!X%:=A%!X%=єargs(A%,Y%,!X%)<=A%                             :Т Unchanged=unsupported:"щєmos_bget,8Г Y%=0:=╔                                 :Т =BGET#06/Г os%─32:=((▐#Y%=╒#Y%)─256)+ #Y% :Т =BGET#Y@A%=╨&FFD7J$=((A%─&1000000)│&10000)└(A%─&FF)T:^щєmos_bputhГ Y%=0:О A% ▀ у#Y%,A%r=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%<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%)ТIГ A%=6:Рf_delete($Y%):Г inf%<>0 ─ (os%─32):Рf_delete($Y%+s$+"inf"):=1ЧГ A%=6:=1?Г A%=7:Ъ"SAVE "+єf_name($Y%)+" "+ц~░+"+"+ц~(X%!14-X%!10):=1Г A%=8:Рf_cdir($Y%):=2=A%&:0щєmos_gbpb:=єhost_gbpb::Dщєmos_cliNDY%=Y%-1:У:Y%=Y%+1:Щ?Y%<>32 ─ ?Y%<>≈"*"     :Т Skip '*'s and ' 'sXQA%=&103:Г ?Y%=≈"/":Y%=Y%+1:A%=&102                   :Т Fall through into FSCb:lщєmos_fscvOosc%=A%─256:A%=A%─255                               :Т b8=called from OSCLI─х▌ A% й┼=и 1:A%=5:X%=ctrl%:A%=єmos_args:X%=?X%:Y%=X%:=A%   :Т =EOF■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$+":"ДNA%=ї":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 ▄@X%=Y%-1:УX%=X%+1:Щ?X%<33:?X%=13          :Т Terminate stringГ A%=7 ▄ EX%=X%-1:У:X%=X%+1:Щ?X%<>32             :Т *CREATE filename length*ctrl%!14=═("&"+$X%)4"ctrl%!2=0:ctrl%!6=0:ctrl%!10=0>мHA$Y%=єfn_convert($Y%,client%,host%):X%=ctrl%:!X%=Y%:=єmos_fileRм\A%=A%└osc%fкp=єhost_fscz:└щєmos_word▌х▌ A% й≤&и 0:Х ├""A$:$Y%=A$:X%=Y%:Y%=╘A$:=0╒и 1:!X%=▒:=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чи 14:$X%=▒$:=0Хи 15:я$=$X%:=0РЭY%=X%│256:A%=(╨&FFF1)─&FFк=A%:$щєmos_byte.Г A%=0 ▄82X%=(os%─&D7)└((client%─64)│2)└((client%─32)│4)BГ X%<>os%:X%=X%└&80LB=0                                                    :Т =HOSTVм`KГ A%>123:ГA%<127:?escflg%=128*(A%─1):Ъ"FX15"    :Т Clear/Set/Ack EscapejAГ A%=&7F:A%=5:X%=ctrl%:A%=єmos_args:X%=?X%:Y%=X%:=&7F :Т =EOFtGГ 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Ж5и  2,129:х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=ctrl%!4 5и  4,130:х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=ctrl%!8
6и  6,131:х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=ctrl%!12$и  8,132:X%=@vdu%!24 │ @vdu%!216&и  9,133:X%=@vdu%!36 │ @vdu%!220-1(&и 10,134:X%=@vdu%!28 │ @vdu%!216-12$и 11,135:X%=@vdu%!32 │ @vdu%!220<и 12,136:X%=2*@vdu%!0Fи 14,137:X%=2*@vdu%!4Pи 16,138:X%=2*@vdu%!8ZEи 18,139:х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=2*(ctrl%!12-@vdu%!12-1)dи 20,142:X%=@vdu%!16nCи 22,143:х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=(ctrl%!12-@vdu%!20-1)xи 36:X%=@vdu%!8┌?и 38:х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=(ctrl%!12-@vdu%!12-1)▄и 87,155:X%=@vdu%?70√и 88,156:X%=@vdu%?71═и 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рэX%=0ФкПY%=X%│256:=&A0Змм:Г A%=&80:X%=√((X%─255)+256*Y%):Y%=X%│256:=A% :Т =ADVALГ A%=&A0 ▄"@Г X%<16:Г X%<>3:=A%                               :Т =VDU(n),Г X%=3:X%=966х▌ r%(1) й@и 16:A%=138Jи 18:A%=139Tи 20:A%=142^и 22:A%=143hи 36:A%=144rи 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X%=ctrl%!8:Y%=X%│256:=&A0м7A%=╨&FFF4:X%=(A%─&FFFF00)│256:Y%=(A%─&FF0000)│65536&"=(A%─&1000000)│&10000+(A%─&FF)0: 
&Т > BLib.Filename 1.00 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: <5щєfn_bbctodos(A$):ЙA%,B%,H%:H%=32:щ:єfn_frombbc() F5щєfn_bbctounix(A$):ЙA%,B%,H%:H%=8:щ:єfn_frombbc() P%щєfn_frombbc(A$):ЙA%,B%,H%:H%=os% ZГA$=""└(H%─40)=0:=A$ dLГюA$,1)=":":A%=їA$+".","."):A$=аA$,2,A%-2)+":"+аA$,A%-(аA$,A%+1,1)="$")) n A%=0:У:A%=A%+1:B%=≈аA$,A%,1) x7Г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%─40)=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) р2ГB%=≈".":Г(H%─40)=8:A$=юA$,A%-1)+"/"+аA$,A%+1) э0ГB%=≈".":Г(H%─32):A$=юA$,A%-1)+"\"+аA$,A%+1) Ф0Г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$:Xщєfn_fromunix(A$):Г(os%─40)=8:=A$ ▀ Г(os%─40)=0:=єfn_unixtobbc(A$):щ:єfn_dostounix()Tщєfn_fromdos(A$):Г(os%─32):=A$ ▀ Г(os%─40)=0:=єfn_dostobbc(A$):щ:єfn_dostounix()"Vщєfn_tounix(A$):Г(os%─40)=8:=A$ ▀ Г(os%─40)=0:=єfn_bbctounix(A$):щ:єfn_dostounix(),Rщєfn_todos(A$):Г(os%─32):=A$ ▀ Г(os%─40)=0:=єfn_bbctodos(A$):щ:єfn_dostounix()6(щєfn_unixtodos(A$):щ:єfn_dostounix()@щєfn_dostounix(A$)JГїA$,"/")+їA$,"\")=0:=A$TZЙ A%,B%:A%=0:У:A%=A%+1:B%=≈аA$,A%,1):ГB%=≈"/"└B%=≈"\":A$=юA$,A%-1)+Ґ(B%┌115)+аA$,A%+1)^ЩA%>=╘A$:=A$h:r3щє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%─40)=0:=A$ ГA$="/":Г(H%─40)=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%─40)=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)Ч0ГB%=≈"\":Г(H%─32):A$=юA$,A%-1)+"."+аA$,A%+1)0ГB%=≈"/":Г(H%─32):A$=юA$,A%-1)+"\"+аA$,A%+1)2ГB%=≈"/":Г(H%─40)=8:A$=юA$,A%-1)+"."+аA$,A%+1)4ГB%=≈":":A$=":"+юA$,A%-1)+".$"+аA$,A%+1):A%=A%+2&ЩA%>╘A$:=A$0: 
"Т > BLib.File 1.00 J.G.Harston +Т Platform-independant filing functions Т!Keep PROCf_cdir() (|Keep Рf_cdir() 2: <: F5Т PROCf_init - initialise filing-system variables P5Т ----------------------------------------------- ZщРf_init d6d$=".":s$="/":Гos%─40:d$="/":s$=".":Гos%─32:d$="\" nА x: ┌: ▄,Т FNfn_root(path$) - return root of path √,Т -------------------------------------- ═;щєfn_root(A$):ЙA%,B%:ГюA$,2)=d$+d$:=юA$,їA$+d$,d$,3)-1) ╙3A%=їA$,":",2):B%=їA$,d$,A%)─(A%<>0):Г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,)Т -----------------------------------6&щєfn_path(A$):ЙA%,B%:A%=їA$,":",2)@)УB%=A%:A%=їA$,d$,A%+1):ЩA%=0:=юA$,B%)J:T:^4Т FNfn_ext(path$) - returns leafname's extensionh4Т ----------------------------------------------rщєfn_ext(A$):ГїA$,s$)=0:=""|1Й A%:A%=╘A$+1:УA%=A%-1:Щї":"+d$+s$,аA$,A%,1))├ Га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%─40)=0:=A$ГїA$,":")└юA$,1)=d$:=A$=P$+юd$,бP$,1)<>d$)+A$&:0::9Т PROCf_gbpb() - multiple get-bytes or put-bytes callD9Т ---------------------------------------------------N%щРf_gbpb(A%,chn%,addr%,num%,ptr%)X@?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:Г(os%─32)=0:ж&FFD1:АbГA%=1└A%=3:о#?X%=X%!9l5У:ГA%=1└A%=2:у#?X%,?X%!1 ▀ ГA%=3└A%=4:?X%!1= #?X%v5X%!1=X%!1+1:X%!5=X%!5-1:Щ(е#?X% ─ A%>2)└ X%!5<1:А─:┼:■-Т FNfs - get current filing system number·-Т ---------------------------------------╗,щєfs:Г(os%─32)=0:ЙA%,Y%,E%:=(╨&FFDA)─&FF╡=29╪:ф:п+Т PROCf_delete(object$) - delete objectз+Т -------------------------------------ДBщРf_delete(A$):Г(os%─8):A$="rm "+A$ ▀ A$="delete "+єf_name(A$)Н:ЬDТ PROCf_cdir(dir$) - create a directory only if it doesn't existDТ --------------------------------------------------------------9щРf_cdir(A$):Г(os%─40):A$="mkdir "+A$ ▀ A$="cdir "+A$	Г ё ▄ 	ЪA$:А*м4Й ┘:Н ┘ Й:А>ЪA$HАR:\:fEТ FNf_name(path$) - ensure no extension if no extension specifiedpEТ ---------------------------------------------------------------zщєf_name(A$)└IГos%─32:Й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@Т FNf_info(object$) - returns file type, file info in X%!...L@Т ----------------------------------------------------------VRщєf_info(A$):Г(os%─32)=0:$name%=A$:?X%=name%:X%?1=name%│256:A%=5:=(╨&FFDD)─&FF`Йdir%,sh%:чdir%Й319j*х≥"FindFirstFile",єf_name(A$),dir%╦sh%tLГsh%=-1:х≥"GetFileAttributes",єf_name(A$)╦sh%:=((sh%─16)│16+1)─(sh%<>-1)~5х≥"FindClose",sh%:X%!10=dir%!32:Гdir%!28:X%!10=-1┬BX%?14=(dir%?0─1)*8+&33:х≥ "FileTimeToSystemTime",dir%+20,X%+16▓BA%=(X%!16─&FFFF)-1981:X%?15=X%?22+(A%─&70)*2:X%?16=X%?18+A%*16°9X%?17=X%?24:X%?18=X%?26:X%?19=X%?28:=(dir%?0─16)│16+1і:╟:╨3Т PROCf_settype(object%, type%) - set file typeд3Т ---------------------------------------------н"щРf_settype(A$,A%):Г(os%─32):Аь?Гєf_info(A$):X%?3=A%:X%?4=(A%│256)└&F0:X%?5=&FF:A%=1:ж&FFDDБАЛ:Ж: 
"Т > 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$ р: 
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%ЙмТА 
Т > 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 П:Ъ