0 MODE7 10 REM Edit a file's catalogue entry 20 REM (C)1997 SPROW 30 DIM block% &12:REM control block 40 DIM name% &10:REM Incase of other FSs 50 osfi=&FFDD 60 CLS:PRINT"OSFILE R/W file's catalogue entry":PRINT 70 INPUT"Name of file (inc.dir): "name$ 80 ?(block%+0)=name% MOD256 90 ?(block%+1)=name% DIV256 100 $name%=name$:?(name%+LEN(name$))=13 110 A%=5:X%=block% MOD256:Y%=block% DIV256:A%=USR(osfi)AND&FF:REM A=type 120 IFA%=0 THENPRINT:PRINT"File not found":END 130 PRINT"Load addr=&";~!(block%+2) 140 PRINT"Exec addr=&";~!(block%+6) 150 PRINT"Length=&";~!(block%+10) 160 PRINT"Attributes=&";~!(block%+14);" and is a "; 170 IFA%=1 THENPRINT"file" 180 IFA%=2 THENPRINT"dir" 190 PRINT:ONERRORPRINT:REPORT:PRINT:END 200 INPUT"Load addr=&"load$ 210 load%=EVAL("&"+load$) 220 INPUT"Exec addr=&"exec$ 230 exec%=EVAL("&"+exec$) 240 PRINT"Length=&";~!(block%+10) 250 INPUT"Attributes=&"attr$ 260 attr%=EVAL("&"+attr$) 270 ONERROROFF 280 !(block%+2)=load% 290 !(block%+6)=exec% 300 !(block%+14)=attr% 310 A%=1:X%=block% MOD256:Y%=block% DIV256:CALLosfi