![]() |
||
| Home | SwiftForth Archive | SwiftX Archive | |

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.Received on Mon Jul 15 2002 - 21:48:29 PDT
This archive was generated by hypermail 2.2.0 : Fri Nov 21 2008 - 03:04:23 PST