[Win32forth-cvs] win32forth-stc/demos bench.f,NONE,1.1

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth-stc/demos
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv2950/demos

Added Files:
	bench.f 
Log Message:
win32forth-stc base comit

--- NEW FILE: bench.f ---

\ IN-SYSTEM

create TIME-BUF
here
        0 w,    \ +0  year
        0 w,    \ +2  month
        0 w,    \ +4  day of week
        0 w,    \ +6  day of month
        0 w,    \ +8  hour
        0 w,    \ +10 minute
        0 w,    \ +12 second
        0 w,    \ +14 milliseconds
here swap - constant TIME-LEN

create date$ 32 allot
create time$ 32 allot
                      
: get-local-time ( -- )                 \ get the local computer date and time
[...1054 lines suppressed...]

   cr cr
   .ann ." This system's application performance" .specifics CR
   .header
   [$  
     $SIEVE$  $FIB$  $SORT$  $RAND$  $CODE77$ $DHRY$
\   [ ANSSYSTEM ] [IF]  $DHRY$  [THEN]
   CR  ." Total:"  1 $]
;


decimal
cr cr .( Benchmark code size = ) code-here start-here - . .( bytes.) cr

BENCHMARK

CR CR .( To run the benchmark program again, type BENCHMARK )