Thank you Mike. That is what I need.

>
> Jodell,
>
> Try the following:
>
> REQUIRES DOSBOX
>
> : TEST ( -- )
> DOS-CONSOLE OPEN-PERSONALITY
> CR ." Hello world!"
> CR ." Press a Key " KEY EMIT
> CR ." Exiting ... "
> 0 5 DO I . 1000 Sleep DROP ( wait a second )
> -1 +LOOP
> 0 ExitProcess ;
>
> ' TEST 'MAIN !
>
> -1 THRESHOLD \ No Xref file
>
> PROGRAM TESTBOX
>
> \ -----------------------------------
>
> Mike
>

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.377 / Virus Database: 211 - Release Date: 7/15/2002
----------------------------------------------------------------------
sftalk_at_forth.com      The SwiftForth programming discussion email list
To unsubscribe,  send subject "unsubscribe sftalk" to listar_at_forth.com
For help with listar commands, send subject "help" to listar_at_forth.com
Archives are located at http://www.forth.com/sftalk -- check them out!
Search the archives!    Visit http://www.forth.com/search for details.