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