 
Т > BBCHost $Т Simple Serial Tube Host System : (: 2&A%=0:X%=1:os%=((╨&FFF4)─&FF00)│256 <speed%=19200 :Т Baud Fdbg%=-2      :Т Debug P_PFX=127 Z: daч ctrl0% 131,string% 255:ctrl%=ctrl0%+2:ch%=0:in%=0:out%=0:ser%=0:fn$="":Я"HostFS Host v1.00" nJН ┘ Ж:Яю" at line "+ц·,÷<128 ─ ÷<>17):Р_ERROR:Рclose:Г єerr:Рexit(÷):Ю x;quit%=ё:Гєopen:Я"Couldn't open serial port":Рexit(-1):Ю ┌У:Яєc(єRdByte);:Щ quit% ▄Рclose:Рexit √Ю ═: ╙: Є
щєopen ЎSГos%=32:ser%=ґ("COM1: baud="+цspeed%+" parity=N data=8 stop=1 octs=on"):=ser%=0 х"Гos%=6:ser%=ґ"Serial:":=ser%=0 р#A%=speed%:ГA%>63:A%=╙(A%│75)/╙2 э%Ъ"FX7,"+цA%:Ъ"FX8,"+STR%A%:*FX2,2 Ф=0 П: ЗщРcloseГch% :A%=ch% :ch%=0 :ы#A%Гin% :A%=in% :in%=0 :ы#A%Гout%:A%=out%:out%=0:ы#A%"Гser%:A%=ser%:ser%=0:ы#A%:А,*FX26А@:J	щєerrT =і-1 └ (÷<128 ─ ÷<>17 ─ і-1)^:hщРexit(A%)rЮ|А├:░#щє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ж=Т   esc,n             MOS function, control block followsЮТЙ:Т:ЧТ OS_RDCHТ ======="Т Tube data  &00 -- Carry Char%щє_0          :Гdbg%:Я"OS_RDCH ";&A%=╔0.РWrByte(0)    :Гdbg%:Я"-- "єh0(&00,2)"  ";:#РWrByte(A%)   :Гdbg%:Яєh0(A%,2)D=0N:X:bТ OS_CLIlТ ======v-Т Tube data  &02 string &0D -- &7F or &80─%щє_2          :Гdbg%:Я"OS_CLI  ";┼&РRdString     :Гdbg%:Я$string%" ";■Y%=string%:A%=єmos_cli·)РSerOut(&7F)  :Гdbg%:Я"-- "єh0(&7F,2)╗=0╡:╪:фТ 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((A%─&FF00)│&100)/:                :Гdgb%:Я"-- "єh0(A%│256,2) =0*:4Т LONG_BYTE>Т =========H$Т Tube data  &06 X Y A -- Cy Y XRщє_6          :Я"OS_BYTE ";\)X%=єRdByte      :Гdbg%:Яєh0(X%,2)" ";f)Y%=єRdByte      :Гdbg%:Яєh0(Y%,2)" ";p)A%=єRdByte      :Гdbg%:Яєh0(A%,2)" ";zA%=єmos_byte└CРWrByte((A%─&1000000)│&20000) :Гdgb%:Я"-- "єh0(A%│&20000,2)" ";▌>РWrByte((A%─&FF0000)│&10000)  :Гdgb%:Яєh0(A%│&10000,2)" ";≤8РWrByte((A%─&FF00)│&100)      :Гdgb%:Яєh0(A%│&100,2)╒=0╛:І:юТ 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(B%)       :Гdbg%:Гinlen%:ЦD%=0╦inlen%-1:Яєh0(ctrl%?D%,2);:М3outlen%=єRdByte      :Гdbg%:Яєh0(outlen%,2)" ";X%=ctrl%:A%=єmos_wordQРWrBlock(outlen%)  :Гdbg%:Я"-- ";:Гoutlen%:ЦD%=0╦inlen%-1:Яєh0(ctrl%?D%,2);:М$":                     :Гdbg%:Я.=08:B:LТ OS_RDLINEVТ =========`3Т Tube data  &0A block -- &FF or &7F string &0Dj*щє_A               :Гdbg%:Я"OS_RDLN ";t^РRdBlock(5)        :Гdbg%:Яєh0(ctrl%!0,4)" "єh0(ctrl%?2)" "єh0(ctrl%?3)" "єh0(ctrl%?4)" ";~X%=ctrl%:A%=єmos_word┬.Г(A%─&1000000)     :Гdbg%:Я"-- "єh0(&80,2)▓"Г(A%─&1000000):РWrByte(&80):=0°2РWrByte(&7F)       :Гdbg%:Я"-- "єh0(&7F,2)" ";і'РWrString          :Гdbg%:Я$string%╟=0╨:д:нТ 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)2=0<:F:PТ OS_BGETZТ =======d)Т Tube data  &0E handle -- Carry byten,щє_E               :Гdbg%─1:Я"OS_BGET ";x0Y%=є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╙:Є:ЎТ 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6Т =======@2Т Tube data  &12 function string &0D -- handleJ&Т            &12 &00 handle -- &7FT*щє_12              :Гdbg%:Я"OS_FIND ";^.A%=єRdByte           :Гdbg%:Яєh0(A%,2)" ";hГ A%=0 ▄r,Y%=єRdByte         :Гdbg%:Яєh0(Y%,2)" ";|>Y%=Y%─&7F:A%=єmos_find:ГY%=0: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%╦GГєwildcards:=0      :Т BB4W throws up a dialogue box with wildcardsб$Y%=єfn_frombbc($Y%)л 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)" ";:М0,РRdString          :Гdbg%:Я$string%;" ";:.A%=єRdByte           :Гdbg%:Яєh0(A%,2)" ";D3Y%=string%-1:УY%=Y%+1:Щ?Y%<33:?Y%=13:Y%=string%NGГєwildcards:=0      :Т BB4W throws up a dialogue box with wildcardsX fn$=$Y%:$Y%=єfn_frombbc($Y%)bX%=ctrl%-2:A%=єmos_filel.РWrByte(A%)        :Гdbg%:Я"-- "єh0(A%,2);vFРWrBlock(16)       :Гdbg%:Ц D%=0 ╦ 12 ┬ 4:Я" "єh0(ctrl%!D%,8);:М:Я─=0┼:■:·Т OS_GBPB╗Т =======╡9Т Tube data  &16 block function -- block Carry result╪*щє_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4Т ======>%Т Tube data  &18 X Y A -- &FF Y XHBТ                      -- &7F  then  string &0D -- &7F/&40/&80R*щє_18              :Гdbg%:Я"OS_FSC  ";\.X%=єRdByte           :Гdbg%:Яєh0(X%,2)" ";f.Y%=єRdByte           :Гdbg%:Яєh0(Y%,2)" ";p.A%=єRdByte           :Гdbg%:Яєh0(A%,2)" ";zCГ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╛0РWrByte(&FF)     :Гdbg%:Я"-- "єh0(&FF,2)" ";І*РWrByte(X%)      :Гdbg%:Яєh0(X%,2)" ";ю&РWrByte(Y%)      :Гdbg%:Яєh0(Y%,2)й=0тмч2РWrByte(&7F)       :Гdbg%:Я"-- "єh0(&7F,2)" ";Х+РRdString          :Гdbg%:Я$string%" ";РY%=string%:A%=єmos_fscЭ)РWrByte(&00)       :Гdbg%:Яєh0(&00,2)	=0	:	:	$щР_ERROR	.G$string%=ю"HostFS error: ",÷<128)+Ж$+ю" ("+ц·+")",÷<128 ─ ÷<>17)+Ґ0	8EРWrCmd(&00)        :Гdbg%:Я"ERROR   "єh0(_PFX,2)" "єh0(&00,2)" ";	B)РWrByte(÷)       :Гdbg%:Яєh0(÷,2)" ";	LB%=0	VУ	`A%=string%?B%	j$РSerOut(A%)      :Гdbg%:Яєc(A%);	tB%=B%+1	~ЩA%=0             :Гdbg%:Я	┬А	▓:	°:	іщєwildcards:Гos%<>32:=ё	╟Гї$Y%,"*")+ї$Y%,"#")=0:=ё	╨┘ 253,"Wildcards"	д=╧	н:	ь:	БТ I/O routines	ЛТ ============	Ж:
 щєRdByte

У
Tb%=єSerIn:Г b%=_PFX:b%=єSerIn:Гb%<>_PFX:Г(b%─1)=0:Гb%<&19:A%=═("FN_"+ц~b%):b%=-1
Щ b%>=0
(=b%
2:
<щРWrByte(A%)
F%РSerOut(A%):Г A%=_PFX:РSerOut(A%)
PА
Z:
dщРWrCmd(A%)
nРSerOut(_PFX):РSerOut(A%):А
x:
┌щРRdBlock(N%)
▄+Ц D%=N%-1 ╦ 0 ┬ -1:ctrl%?D%=єRdByte:М:А
√:
═щРWrBlock(N%)
╙,Ц 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:Гser%:= #ser%,=06:@"щРSerOut(A%):Гser%:у#ser%,A%:АJАT:^,щРSerFlush:Гser%:х∙ ╒#ser%:A%= #ser%:н:АhАr:|:├щєargs(A%,Y%,X%)░2Я"@ARGS "єh0(A%,2)" "єh0(Y%,2)" "єh0(X%,8)" "; =0є: 
Т > PacketTx 0Т Encapsulates data in error-checked packets : ('Т Working on: GBPB write (incoming) 2: <Т File load/save routines FТ ----------------------- P: Zщєhost_file d.ГA%=&FF:ГX%?6:┘ 252,"No file load address" nГA%=&FF:A%=&40 ▀ A%=&80 xch%=єmos_find ┌4ГA%=&40:Гch%=0:┘ 214,"File '"+$fn%+"' not found" ▄0Г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 Ў_X%!2=0:X%!6=0:X%!10=Y%:X%!14=&33                                    :Т Update control block хл р[Y%=X%!14-X%!10:РWrCmd(&F0)                                       :Т Send 'save' command эTРWrByte(X%?13):РWrByte(X%?12):РWrByte(X%?11):РWrByte(X%?10):Т Send start address Ф_X%!10=Y%:X%!14=&33                                                  :Т Update control block ПFГ Y%:У:у#ch%,єRdByte:Y%=Y%-1:ЩY%=0                    :Т Read data ЗмVРWrCmd(&B0)                                                        :Т End transfer РSerFlush:A%=і(10):РSerFlushы#ch%:ch%=0"Z=1                                                                    :Т Return 'File',:6:@щєhost_gbpbJТ X%=>control blockT:ГA%=0 └ A%>4:=A%              :Т Unchanged=unsupported^)Y%=?X%:Г(A%─1):о#Y%=X%!9   :Т Set PTRh6Г A%>2:РWrCmd(&E0) ▀ РWrCmd(&F0) :Т Load/Save datar0РWrByte(X%?4)                :Т Send address|РWrByte(X%?3)├РWrByte(X%?2)░РWrByte(X%?1) ZГ A%>2:Г X%!5:У:РWrByte(єmos_bget):X%!1=X%!1+1:X%!5=X%!5-1:ЩX%!5=0 └ е#Y% :Т Send dataєГ A%<3 ▄ўГ X%!5 ▄╦УбNГ X%!5>255 ▄ len%=256 ▀ len%=X%?5   :Т 256 bytes or <256 for final portionлJРWrByte(len%)                           :Т Send required packet lengthжAchk%=0:Ц cnt%=1 ╦ len%:A%=єRdByte:chk%=chk%+A%:A%=єmos_bput:МЮBA%=єRdByte                                :Т Wait for checksumЙ_Г A%=(chk%─255):РWrByte(chk%):X%!5=X%!5-len%:X%!1=X%!1+len% ▀ РWrByte(╛chk%):о#Y%=▐#Y%-len%ТЩ X%!5=0Чмм0РWrCmd(&B0)                  :Т End transfer РSerFlush:A%=і(10):РSerFlush&7X%!9=▐#Y%                     :Т Return updated PTR0Q=(е#Y%)─&100                :Т Return Carry in b8, 0 in b0-b7 for 'supported':: 
Т > BBCMOS Т BBC MOS Interface ; (щєmos_args 2'Г Y%=0:Г A%=0:=єfs           :Т =FS <Г (Y%─-512) ▄ Fх▌ A% й P'и 0:!X%=0:=0             :Т =PTR#-1 Z>и 2:!X%=255-√(-1):=0 :Т =EXT#-1, number in keyboard buffer d;и 5:!X%=√(-1)=0:=0   :Т =EOF#-1, keyboard buffer empty? nк 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,/Г os%─32:=((▐#Y%=╒#Y%)─256)+ #Y% :Т =BGET#Y6A%=╨&FFD7@$=((A%─&1000000)│&10000)└(A%─&FF)J:Tщєmos_bput^Г Y%=0:О A% ▀ у#Y%,A%h=A%r:|щє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%=0 └ 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%ЮFГ A%=5:X%!2=0:X%!6=0:X%!10=0:X%!14=0:A%=Y%:Y%=X%│256:=єf_info($A%)ЙГ A%=6:Рf_delete($Y%):=1Т?Г A%=7:Ъ"SAVE "+єf_name($Y%)+" "+ц~░+"+"+ц~(X%!14-X%!10):=1ЧГ A%=8:Рf_cdir($Y%):=2=A%:щєmos_gbpb:=єhost_gbpb&:0щєmos_fsc:х▌ A% йD=и 1:A%=5:X%=ctrl%:A%=єmos_args:X%=?X%:Y%=X%:=A%   :Т =EOFNBи 3:                                               :Т *commandXMГ?Y%=≈"\":Y%=Y%+1                                :Т *\command -> *commandb/A%=ї$Y%," "):ГA%=0:A%=ї$Y%,"."):ГA%:A%=A%+1l?A$=":"+єuc(ю$Y%,A%-1)):Y%=Y%+A%-1             :Т A$=commandv<х∙ ?Y%=32:Y%=Y%+1:н                       :Т Skip spaces─)ГбA$,1)=".":A$=юA$,╘A$-1) ▀ A$=A$+":"┼@A%=ї":CAT::::DELETE:CREATE:CDIR:::EX:::::INFO:::RENAME:",A$)■%Г A%=0:A%=3:Y%=string%:=єhost_fsc·A%=5+A%│7╗Г 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%)з"ctrl%!2=0:ctrl%!6=0:ctrl%!10=0ДмНX%=ctrl%:!X%=Y%:=єmos_fileЬмк=єhost_fsc: щєmos_word*х▌ A% й4&и 0:Х ├""A$:$Y%=A$:X%=Y%:Y%=╘A$:=0>и 1:!X%=▒:=0Hи 2:я=!X%:=0Rи 5:X%?4=?!X%:=0\и 6:?!X%=X%?4:=0fи 7:т !X%,X%!2,X%!4,X%!6:=0pVи 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zи 14:$X%=▒$:=0└и 15:я$=$X%:=0▌≤Y%=X%│256:A%=(╨&FFF1)─&FF╒к╛=A%І:ющєmos_byteй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чGГ 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:=&A0      :Т =ADVAL(7)$?Г A%=&80:ГX%=8:х≈ A%,X%,A%:Y%=X%│256:=&A0      :Т =ADVAL(8).?Г A%=&80:ГX%=9:х≈ A%,A%,X%:Y%=X%│256:=&A0      :Т =ADVAL(9)8AГ A%=0:X%=32:=A%                                     :Т =HOSTB7Г A%=&87:X%=╔(╠,╪):Y%=К:=A%                :Т =MODELГ A%=&A0 ▄Vх▌ X% й`5и  0,128:х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=ctrl%!0j5и  2,129:х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=ctrl%!4t5и  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і$и 11,135:X%=@vdu%!32 │ @vdu%!220╟и 12,136:X%=2*@vdu%!0╨и 14,137:X%=2*@vdu%!4ди 16,138:X%=2*@vdu%!8нEи 18,139:х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=2*(ctrl%!12-@vdu%!12-1)ьи 20,142:X%=@vdu%!16БCи 22,143:х≥ "GetRgnBox",@vdu%!60,ctrl%:X%=(ctrl%!12-@vdu%!20-1)Ли 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2+и 92,152:X%=3-(@vdu%?66-7)│2:ГX%<0:X%=1<и 96,3:X%=@vdu%?73FPX%=0ZкdY%=X%│256:=&A0nмxм┌:Г 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╙х▌ r%(1) йЄи 16:A%=138Ўи 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6и 91:A%=151@и 92:A%=152Jи 96:A%=3T^!A%=X%:Г A%<128:X%=0:Y%=0:=&A0hкr?!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)є: 
&Т > 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() (F;Keep єfn_frombbc(), єfn_tobbc(), єfn_unixtodos(), єfn_dostounix() 2: <: F%щєfn_bbctodos(A$):ЙA%,B%,H%:H%=32 P%щєfn_bbctounix(A$):ЙA%,B%,H%:H%=8 Z%щєfn_frombbc(A$):ЙA%,B%,H%:H%=os% dГA$=""└(H%─40)=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) ┌2Г(B%=35└B%=63):A$=юA$,A%-1)+Ґ(B%┌28)+а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) э,ГB%=≈"&":A$=юA$,A%-1)+"%HOME%"+аA$,A%+1) ФЩA%>╘A$:=A$ П: ЗFщєfn_fromunix(A$):Г(os%─40)=8:=A$ ▀ Г(os%─40)=0:=єfn_unixtobbc(A$)Bщєfn_fromdos(A$):Г(os%─32):=A$ ▀ Г(os%─40)=0:=єfn_dostobbc(A$)Dщєfn_tounix(A$):Г(os%─40)=8:=A$ ▀ Г(os%─40)=0:=єfn_bbctounix(A$)@щєfn_todos(A$):Г(os%─32):=A$ ▀ Г(os%─40)=0:=єfn_bbctodos(A$)"щєfn_unixtodos(A$),щєfn_dostounix(A$)6Гї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)JЩA%>=╘A$:=A$T:^%щєfn_dostobbc(A$):ЙA%,B%,H%:H%=32h%щєfn_unixtobbc(A$):ЙA%,B%,H%:H%=8r#щє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)є2Г(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ж7ГаA$,A%,6)="%HOME%":A$=юA$,A%-1)+"&"+а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$: 
"Т > 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 √,Т -------------------------------------- ═7щєfn_root:Й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j5х≥"FindFirstFile",єf_name(A$),dir%╦sh%:Гsh%=-1:=0t5х≥"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$ р:Ъ