"ô > BLib.FileIO 1.05 18Apr2008 0ô v1.04 22Mar2008 JGH: FNgbpb8 strips spaces <ô v1.01 07Sep2006 JGH: FNargs avoid zero page on RISC OS (*ô v1.00 09Aug1988 JGH: Initial version 2: <%ô General File Interface Routines F%ô =============================== P: Z,ô Returns file type, file info in X%!... d,ô -------------------------------------- nBݤfile(A$,A%):$name%=A$:?X%=name%:X%?1=name%256:=(º&FFDD)€&FF x: ‚ô General OSGBPB call Œô ------------------- –TÝògbpb(A%,chn%,addr%,num%,ptr%):?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:Ö&FFD1:á  : ª@ô Return current disk (5), directory (6) or library (7) name ´@ô ---------------------------------------------------------- ¾Yݤgbpb(A%):X%!1=name%:Ö&FFD1:A%=name%+((1+?name%)€((A%€-2)=6)):A%?(1+?A%)=13:=$(A%+1) È: ÒBô Returns entry in current directory, or null string if at end ÜBô ------------------------------------------------------------ æEݤgbpb8(ptr%):X%!1=name%:X%!5=1:X%!9=ptr%:A%=8:Ö&FFD1:çX%!5=1:="" ð7A%=name%+1:A%!(A%?-1)=&D20:A%?(§$A%," ")-1)=13:=$A% ú: Kô Returns entry and info in current directory, or null string if at end Kô --------------------------------------------------------------------- ݤgbpb11(ptr%) "Nços%=6:ç“>&FFFF:È™"OS_GBPB",11,"",name%,1,ptr%,79¸,,,X%!5,X%!9:çX%!5=0:="" ,Eços%=6:ç“>&FFFF:È™"OS_WriteN",name%+29 ¸ $(name%+29):=$(name%+29) 6?X%?0=0:X%!1=name%:X%!5=1:X%!9=ptr%:A%=11:Ö&FFD1:çX%!5=0:="" @Cname%!39=&D00:A%=§$(name%+29),½0):name%?(A%+28)=13:=$(name%+29) J: T6ô OSARGS call with data. Returns any returned data ^6ô ------------------------------------------------ h3ݤargs(A%,Y%,ptr%):êX%,E%:ç?(¸P-3)=0:E%=Y%:Y%=0 r/ç“<&10000:ê!&70:X%=&70:!X%=ptr%:Ö&FFDA:=!X% |'È™"OS_Args",A%,Y%,ptr%¸,,ptr%:=ptr% †: 'ô OSARGS call ignoring X, returns A š'ô --------------------------------- ¤=ݤargsA(A%):ç“<&10000:êX%,Y%,E%,!&70:X%=&70:=(º&FFDA)€&FF ®È™"OS_Args",A%¸A%:=A% ¸: Â&ô Get current filing system number Ì&ô -------------------------------- Ö Ý¤fs:êA%,Y%,E%:=(º&FFDA)€&FF à: ÿ