100 0 DO I 10 / ->1st-symbol \ положить в позицию первого X
I I 10 / 10 * - ->2nd-symbol \ положить в позицию второго X
\ тут делать свои дела с именем файла
LOOP ;

VARIABLE SYM-COUNTER

CREATE NAME[] 256 ALLOT

: EMIT-TO-NAME  // пишем символ в буфер
  NAME[] SYM-COUNTER @ + C!
  1 SYM-COUNTER +!
;

FROM EMIT
  ' EMIT-TO-NAME TO EMIT
  123 .
TO EMIT

FROM EMIT
  ' EMIT-TO-NAME TO EMIT
  123 .
TO EMIT

" .txt" 9 " File-" PRINT . PRINT

".txt" 9 " File-" PRINT . PRINT

0 ?.SPACE !  // отключаем пробел после чисел извлеченных со стека

VARIABLE STEP   // переменная что будет пресутствовать в имени файла

VARIABLE SYM-COUNTER
CREATE FILENAME[] 256 ALLOT

: EMIT-TO-NAME  // пишем символ в буфер
  FILENAME[] SYM-COUNTER @ + C!
  1 SYM-COUNTER +!
;

FROM EMIT
  ' EMIT-TO-NAME TO EMIT // теперь весь вывод последовательно перенаправляется в буфер
" File-" PRINT STEP @ . " .txt" PRINT //напечатать File- значение переменной Step (у нас по умолчанию 0) и .txt теперь FILENAME[] содержит следующую строку но без завершающего нуля "File-0.txt".
TO EMIT
FILENAME[] SYM-COUNTER @ + C! 0 помещаем в конце буфера 0 и заканчиваем строку.

FILENAME[] NEWFILE CLOSE //создаем файл с именем File-0.txt и закрываем его