 
Т > FSTest "Т Test filing system interface (Т v1.00 17-Feb-1992 Original version (GТ v1.10 08-Sep-2006 Tweeked FNargs0() to avoid zero page on RISC OS 2FТ v1.11 12-Sep-2006 If OPENUP"*" fails, uses GBPB 8 to find a name <6Т v1.12 14-Sep-2007 Add display of context handles F: PО26:ш:Н ┘ Ж:РClose:Я:Ю Z1ч ctrl% 31,name% 255:X%=ctrl%:Y%=X%│256:Рgo:Ю d: n/щРClose:chn%=chn%:Гchn%:A%=chn%:chn%=0:ы#A% xА ┌: ▄6щРWait:Н ┘ ┤:Я"Press SPACE to continue...";:A%=╔:А √: ═#щРdump:Цd%=name% ╦ name%+40 ┬ 4 ╙Яєh0(!d%,8);"  ";:М:Я'""""; Є%Цd%=name% ╦ name%+40:Рv(?d%):М:Я' ЎА х: рщРpr(ad%):Й l% э"Я"Len=";?ad%;┴(3-╘ц?ad%);""""; Ф,Г ?ad%>0 Ц l%=ad%+1 ╦ ad%+?ad%:Рv(?l%):М ПЯ"""";:А З:#щєd0(A%,N%)=б"00000000"+цA%,N%)#щєh0(A%,N%)=б"0000000"+ц~A%,N%)щєdrv(A%)=Ґ(48+A%-7*(A%>9))"4щРv(A%):Г A%<31 └ A%>126 Я"""(";~A%;")"""; ▀ ОA%,А6:@	щРdirJЯ"Drive: ";:Рpr(name%)T&Я'┴6"Dir:   ";:Рpr(name%+1+?name%)^*o%=?(name%+2+?name%+?(name%+1+?name%))h6Я'┴6"Owner: ";~o%;"  ";:Гo%=0:Я"Owner" ▀ Я"Public"rА|:├
щРinfo░,Я"&05: ";fn$;┴(11-╘fn$);:A%=єfile(fn$,5) BЯ"A%="єh0(A%,2)" "єh0(X%!2,8)" "єh0(X%!6,8)" "єh0(X%!10,8)" ";є:Яєh0(X%!14,8)" "єf_access(X%?14,A%)" "єf_prdate(X%!15)ў.Я"&FD: ";fn$;┴(11-╘fn$);:A%=єfile(fn$,&FD)╦BЯ"A%="єh0(A%,2)" "єh0(X%!2,8)" "єh0(X%!6,8)" "єh0(X%!10,8)" ";б'Яєh0(X%!14,8)" "єf_prdate(X%!6)" ";л/ГX%?13<127:Яєf_prtime(X%!8) ▀ Яєh0(X%!11,6)жЪ"Info "+fn$:ЯЮАЙ:Тщєf_prdate(A%):A%=A%─&FFFFЧJ=єd0(A%─31,2)+"/"+єd0((A%│256)─15,2)+"/"+ц(1981+(A%│&1000)+(A%─&E0)/2) щєf_prtime(A%):A%=A%─&FFFFFFD=єd0(A%─255,2)+":"+єd0((A%│256)─255,2)+":"+єd0((A%│65536)─255,2):&щєf_access(A%,B%):Й A$0Г B%=2:A$="D" ▀ A$="-":#Г(A%─128):A$=A$+"P" ▀ A$=A$+"-"D!Г(A%─8):A$=A$+"L" ▀ A$=A$+"-"N!Г(A%─4):A$=A$+"E" ▀ A$=A$+"-"X!Г(A%─2):A$=A$+"W" ▀ A$=A$+"-"b!Г(A%─1):A$=A$+"R" ▀ A$=A$+"-"lA$=A$+"/"v"Г(A%─64):A$=A$+"e" ▀ A$=A$+"-"─"Г(A%─32):A$=A$+"w" ▀ A$=A$+"-"┼"Г(A%─16):A$=A$+"r" ▀ A$=A$+"-"■=юA$+"        ",10)·:╗-щєargs0(A%,Y%,ptr%):Г?(╦P-3)=0:E%=Y%:Y%=0╡+Г ░<&8000:X%=&70:!X%=ptr%:=(╨&FFDA)─&FF╪4х≥"OS_Args",A%,Y%,ptr% ╦ A%,Y%,ptr%:!X%=ptr%:=A%ф:п3щєargs(A%,Y%,ptr%):ЙX%,E%:Г?(╦P-3)=0:E%=Y%:Y%=0з.Г░<&8000:Й!&70:X%=&70:!X%=ptr%:ж&FFDA:=!X%Д'х≥"OS_Args",A%,Y%,ptr%╦,,ptr%:=ptr%Н:Ь#щєgbpbA(A%,ch%,addr%,num%,ptr%)8!X%=ch%:X%!1=addr%:X%!5=num%:X%!9=ptr%:=(╨&FFD1)─&FF:Eщєgbpb8(ptr%):X%!1=name%:X%!5=1:X%!9=ptr%:A%=8:ж&FFD1:ГX%!5=1:="" #A%=name%:A%?(1+?A%)=13:=$(A%+1)*:4Bщєfile(A$,A%):$name%=A$:?X%=name%:X%?1=name%│256:=(╨&FFDD)─&FF>:H,щєopen:ЙA%:A%=ґ"*":ГA%:=A% ▀ =ґєgbpb8(0)R:\:f:pщРgozТ OSARGS TEST└Т ===========▌,X%=ctrl%:Y%=X%│256:ш:Я"OSARGS"'"======";≤test$=єgbpb8(0)╒-ч A$(11,1):ЦB%=0╦1:ЦA%=0╦9:СA$(A%,B%):М:М╛A%=-3:B%=0:chn%=0:ext%=0І=Н ┘ Я┼51,╪);Ґ19;Ґ0;Ґ0;Ґ0;:Ж:Я:A%=A%+1:ГA%>6:A%=-3:B%=B%+1юУ:ГA%=-3:Я:ГB%:chn%=ґtest$й2ГA%=-3:ГB%:ext%=єargs0(&FE,chn%,ext%):ext%=!X%тГA%>-3:ГB%:ext%=╒#chn%чQЯ"A%=";єh0(A%,2);", Y%=";єh0(chn%,2);", !X%=";єh0(ext%,8);": ";A$(A%+3,B%─1);Х'retA%=єargs0(A%,chn%,ext%):ret%=!X%Р3Я┴(51-╠);"A%=";єh0(retA%,2);" !X%=";єh0(ret%,8)ЭA%=A%+1:ГA%>6:A%=-3:B%=B%+1ЩB%>1:РClose<э FD,Last drive,Ensure all files,Current FS,Command lineBэ Version type,libfs number,Disk space used,Disk free space,06$=э FD,FE,Ensure file,Read PTR,Write PTR,Read EXT,Write EXT.)э Read allocated,Read EOF,Ensure size86Т On RISC OS, FSControl 49 reads device free spaceB:LЯ:Ц Y%=25 ╦ 29:С A$V5Я"A%=FE, Y%=";єh0(Y%,2);","┴(15)"Read HADFS ";A$;`#retA%=єargs0(&FE,Y%,0):ret%=!X%j3Я┴(51-╠);"A%=";єh0(retA%,2);" !X%=";єh0(ret%,8)tМ:Я~э CSD,LIB,URD,OPT/USER,CURR┬:▓Н ┘ ┤:РWait°:і:╟Т OSGBPB TEST╨Т ===========д+X%=ctrl%:Y%=X%│256:ш:Я"OSGBPB"'"======"нЯ"A%=5, Read disk title:"ь%!name%=0:A%=єgbpbA(5,0,name%,0,0)БЯ"A%=";A%;"  ";:Рpr(name%)ЛFЯ'┼6)"Opt: ";?(name%+1+?name%);"  Drive: ";єdrv(?(name%+2+?name%))Ж: "Я'"A%=6, Read directory name:"
%!name%=0:A%=єgbpbA(6,0,name%,0,0)Я"A%=";A%;"  ";:Рdir:( Я'"A%=7, Read library name:"2%!name%=0:A%=єgbpbA(7,0,name%,0,0)<Я"A%=";A%;"  ";:РdirF:P%Я'"A%=8, Read directory entries:"ZЯ┴11"Num: 3  Index: 0"d%!name%=0:A%=єgbpbA(8,0,name%,3,0)n0Я"A%=";A%;┼11);"Num: ";X%!5;"  Index: ";X%!9x6d%=name%:Цz%=X%!5 ╦ 2:Я┴6;:Рpr(d%):Я:d%=d%+1+?d%:М┌:▄"Я'"Checking OSGBPB extensions"√Achn%=▌"%":Гchn%=0:chn%=▌"@":Гchn%=0:Я"Can't open '%' or '@'."═XB%=9*2-1:Н ┘ Я"A%=";B%│2;┴(6-╠);" XY%?0=";chn%─((B%─1)<>0);┴(18-╠);Ґ19;Ґ0;Ґ0;Ґ0;:Ж:Я╙У:B%=B%+1Є]Г B%<32:Г(B%─1)=0 └ chn%<>0:!name%=0:name%!8=0:A%=єgbpbA(B%│2,chn%─((B%─1)<>0),name%,3,0)Ў⌡Г B%<32:Г(B%─1)=0 └ chn%<>0:Г!name% └ name%!8:Я'"A%=";B%│2;"/";chn%─((B%─1)<>0);┼11)"Num: 3  Index: 0"'"A%=";A%;┼11)"Num: ";X%!5;"  Index: ";X%!9:РdumpхЩB%>30:Н ┘ ┤:Я:РClose:РWaitр:э:ФТ OSFILE TESTПТ ===========З+X%=ctrl%:Y%=X%│256:ш:Я"OSFILE"'"======"-Ц A%=1 ╦ 6:С A$(A%,0):М:A$(0,0)=єgbpb8(0),B%=-1:Н ┘ О11:Ж:Я" with *INFO"':Г ÷=17:ЮУ:B%=B%+1"Г B%<7:fn$=A$(B%,0):Рinfo,	ЩB%>66э NOFILE,$,%,&,@,^@:J:T	РWait^Я:ЮЪ