CORE                                
60 12 NEWTXTWIND MyWindow
: OpenIt MyWindow OPENTXTWIND ;      
: SetIt MyWindow SETTXTWIND ;
: SetBack FORTHTXTWIND SETTXTWIND ;
: PrintOn PRINT_MODE DUP @ SWAP 1 SWAP ! ;
: RestorePMode PRINT_MODE ! ;
: hello PrintOn OpenIt SetIt CLS ." hello world" SetBack RestorePMode ;
OpenIt
" New Window " MyWindow TITLETXTWIND
400 800 MyWindow MOVETXTWIND
hello
