[Win32forth-cvs] win32forth/src/lib small.f,NONE,1.1

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv17265

Added Files:
	small.f 
Log Message:
Jos: The new small.f

--- NEW FILE: small.f ---
\ Build on the kernel with: fload src\lib\small.f

cr .( SMALL.F ) cr
sys-FLOAD src\comment.f
FLOAD src\numconv.f          \ general number conversions

\ Used in primutil.f
          1  constant PM_REMOVE
          25 constant cols \ console
          : ?LINE ( n - ) drop cr ;
          8192 CONSTANT PROC_MASK
FLOAD src\primutil.f         \ primitive utilities

sys-FLOAD src\order.f       \ vocabulary support
sys-FLOAD src\module.f      \ scoping support for modules
FLOAD src\paths.f           \ multi path support words

\ Used in imageman.f
          : tab ( - ) 8 spaces ;
          8 value tab-size
sys-fload src\imageman.f    \ fsave, application & turnkey words

0 proc MessageBox

: ?MessageBox   { flag adr len \ message$ -- }
                MAXSTRING localAlloc: message$
                flag
                if      adr len message$ place
                        message$ +NULL
                        MB_OK MB_ICONINFORMATION or MB_TASKMODAL or
                        z" Notice!"
                        message$ 1+
                        NULL call MessageBox drop
                then    ;

: SMALL true s" Message from SMALL.EXE" ?MessageBox bye ;

 ' small turnkey small.exe
\s