home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / forth / !FORTH / TestProgs / windows < prev   
Encoding:
Text File  |  1990-05-02  |  391 b   |  13 lines
  1. CORE                                
  2. 60 12 NEWTXTWIND MyWindow
  3. : OpenIt MyWindow OPENTXTWIND ;      
  4. : SetIt MyWindow SETTXTWIND ;
  5. : SetBack FORTHTXTWIND SETTXTWIND ;
  6. : PrintOn PRINT_MODE DUP @ SWAP 1 SWAP ! ;
  7. : RestorePMode PRINT_MODE ! ;
  8. : hello PrintOn OpenIt SetIt CLS ." hello world" SetBack RestorePMode ;
  9. OpenIt
  10. " New Window " MyWindow TITLETXTWIND
  11. 400 800 MyWindow MOVETXTWIND
  12. hello
  13.