PageRenderTime 26ms CodeModel.GetById 27ms RepoModel.GetById 0ms app.codeStats 0ms

/share/examples/bootforth/screen.4th

https://repo.or.cz/dfdiff.git
Forth | 37 lines | 28 code | 9 blank | 0 comment | 0 complexity | c557edb5f2591b58dd60e59df00dd7c9 MD5 | raw file
Possible License(s): AGPL-1.0, GPL-3.0, CC-BY-SA-3.0, BSD-3-Clause, ISC, GPL-2.0 
    

  1. \ Screen manipulation related words.
    2. 

  2. \ $FreeBSD: src/share/examples/bootforth/screen.4th,v 1.2 1999/08/28 00:19:10 peter Exp $
    3. 

  3. \ $DragonFly: src/share/examples/bootforth/screen.4th,v 1.2 2003/06/17 04:36:57 dillon Exp $
    4. 

  4. 

  5. marker task-screen.4th
    6. 

  6. 

  7. : escc	( -- )	\ emit Esc-[
    8. 

  8. 	91 27 emit emit
    9. 

  9. ;
    10. 

  10. 

  11. : ho	( -- )	\ Home cursor
    12. 

  12. 	escc 72 emit	\ Esc-[H
    13. 

  13. ;
    14. 

  14. 

  15. : cld	( -- )	\ Clear from current position to end of display
    16. 

  16. 	escc 74 emit	\ Esc-[J
    17. 

  17. ;
    18. 

  18. 

  19. : clear	( -- )	\ clear screen
    20. 

  20. 	ho cld
    21. 

  21. ;
    22. 

  22. 

  23. : at-xy	( x y -- )	\ move cursor to x rows, y cols (1-based coords)
    24. 

  24. 	escc .# 59 emit .# 72 emit	\ Esc-[%d;%dH
    25. 

  25. ;
    26. 

  26. 

  27. : fg	( x -- )	\ Set foreground color
    28. 

  28. 	escc 3 .# .# 109 emit	\ Esc-[3%dm
    29. 

  29. ;
    30. 

  30. 

  31. : bg	( x -- )	\ Set background color
    32. 

  32. 	escc 4 .# .# 109 emit	\ Esc-[4%dm
    33. 

  33. ;
    34. 

  34. 

  35. : me	( -- )	\ Mode end (clear attributes)
    36. 

  36. 	escc 109 emit
    37. 

  37. ;
    38. 

  38.