10REM Set Type Program V0.10
20REM By M.T.Farnworth
30REM (c) Mikesoft/Andersonic
40CLS
50DIM tbuff% 100
60INPUT"Filename:"file$
70INPUT"File Type:&"a$
80filetype=EVAL("&"+a$)
90A%=2
100X%=tbuff% MOD 256
110Y%=tbuff% DIV 256
120!tbuff%=tbuff%+&12
130tbuff%!2=&FFF00000
140tbuff%!6=0
150tbuff%!10=0
160tbuff%!14=0
170$(tbuff%+&12)=file$
180tbuff%?4=(filetype DIV 256)+&F0
190tbuff%?3=filetype MOD 256
200CALL &FFDD
210A%=3
220CALL &FFDD
230*
240REM Some Common Filetypes
250REM Code Type
260REM FFF Plain Ascii text
270REM FFE Command (Exec) file
280REM FFD Data
290REM FFB Basic
300REM FEB Obey
310REM BBC BBC ROM file (ROMFS)