home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 Mobile / Chip_Mobile_2001.iso / palm / hobby / tapemeas / tapemeas.EXE / rdwin next >
Encoding:
Text File  |  2000-07-07  |  207 b   |  11 lines
  1. \ rdwin
  2.  
  3. \ --- WinDraw stuff from Ron Doerfler
  4. : a-str>win ( y x len a-addr. -- )
  5. \ Prints string to window
  6. WinDrawChars ;
  7.  
  8. : string>win ( y x c-addr len -- )
  9. \ Prints string to window
  10. swap >abs a-str>win ;
  11.