06601030305800
F0110030
9[...........................]001
€i%=INSTR(f$,".")!Filenaam formatteren.
IF i%
'***Dezeregelanders
  a$=MID$(f$,4,i%-4)+SPACE$(12-i%=>
)+RIGHT$(f$,LEN(f$)-i%)+SPACE$(3-=>
(LEN(f$)-i%))
'***restvanprogramma
ELSE
  a$=f$+SPACE$(11-LEN(f$))
ENDIF