0 VALUE ActiveLibrary
: FUNCTION ActiveLibrary SWAP GETPROCADDRESS VALUE ;
" kernel32.dll" LOADLIBRARY VALUE kernel32
kernel32 TO ActiveLibrary

" GlobalAlloc" FUNCTION GlobalAlloc@
: ALLOCATE
  0x0040 SWAP GlobalAlloc@ API2
  DUP IF ELSE " Ошибка! Не удалось получить память." PRINT CR ABORT THEN
;

" GlobalFree" FUNCTION GlobalFree@
: FREE   GlobalFree@ API1 DROP ;

" GetFileSize" FUNCTION GetFileSize@
: FSIZE
  HF-OUT 0 GetFileSize@ API2
  DUP -1 = IF " Ошибка! Не удалось получить размер файла." PRINT CR ABORT THEN
;

: LOAD1   \ ( str -- )
  OPEN TO HF-OUT
  HF-OUT FSIZE DUP 4 + ALLOCATE DUP >R SWAP READFILE
  HF-OUT CLOSE
  R@ PRINT
  R> FREE
;


: my-print
  BEGIN DUP C@ DUP WHILE
    EMIT
    1+
  REPEAT
  2DROP
;

: LOAD2   \ ( str -- )
  OPEN TO HF-OUT
  HF-OUT FSIZE DUP 4 + ALLOCATE DUP >R SWAP READFILE
  HF-OUT CLOSE
  R@ my-print
  R> FREE
;


CLS
" C:\test.txt" LOAD1  \ <-- Только первая строка
CR
" C:\test.txt" LOAD2  \ <-- Все строки

1 >L  LOCALDEPTH

1.0 F>L
LOCALSTACK F@
F. L>F F.

CLS
' ['] 1- C@  \ 1 - слово немедленного исполнения
' USE 1- C@  \ 0 - а тут явно нет флага IMMEDIATE

: ТЕСТ " ТЕСТ Выполнено." PRINT ;

: r1  \ ( -- cfa ) Вернуть CFA слова ТЕСТ
  ['] ТЕСТ
;

: r  \ ( -- cfa ) В теории: Вернуть CFA слова ТЕСТ
  USE ТЕСТ
;
\ А на самом деле то же самое что и это:
: r2
  ' ТЕСТ
;


r1
r ТЕСТ
r2 ТЕСТ

: НАСТРАИВАЕМ-ВЕКТОРЫ

USE MY_WORD1 TO VECT1
USE MY_WORD2 TO VECT2
;