REQUIRE ?DEFINED     devel\~moleg\lib\util\ifdef.f
 REQUIRE own          devel\~moleg\lib\util\priority.f
 REQUIRE FOR          devel\~mOleg\lib\util\for-next.f

console.f

screen# * DUP ALLOCATE THROW VALUE frame VALUE frame#

frame frame# CHAR . FILL

 REQUIRE PrintС devel\~pi\lib\console.f

 REQUIRE ResetProfiles  devel\~pinka\lib\Tools\profiler.f

\ : .... frame frame# TYPE ;
\ : .... [ screen# * ] LITERAL FOR [CHAR] . EMIT TILL ;
\ : .... [ screen# ] LITERAL LITERAL FOR frame OVER TYPE TILL DROP ;
\ : .... frame frame# 0 0 PrintС ;
\ : .... [ screen# ] LITERAL LITERAL FOR frame OVER 0 0 PrintС TILL DROP ;
: .... 0 0 setxy frame frame# TYPE ;

: test ( --> )
       realtime own 0= THROW \ не могу установить приоритет
       ResetProfiles
        100 FOR .... TILL
       0 0 setxy
       .AllStatistic
       .AllStatistic_o
       normal own DROP
       ;

\ test

\EOF
     Calls │     Ticks        │  AverageTicks  │
───────────┼──────────────────┼────────────────┤
1      100 │   40,321,155,844 │    403,211,558 │
2      100 │   58,294,241,284 │    582,942,412 │
3      100 │   40,756,840,556 │    407,568,405 │
4      100 │      689,286,976 │      6,892,869 │
5      100 │    1,148,443,788 │     11,484,437 │
6      100 │    2,354,529,070 │     23,545,290 │