003 File Manager
Current Path:
/usr/src/share/examples/bootforth
usr
/
src
/
share
/
examples
/
bootforth
/
📁
..
📄
README
(1.27 KB)
📄
boot.4th
(461 B)
📄
frames.4th
(1.66 KB)
📄
loader.rc
(644 B)
📄
menu.4th
(1.55 KB)
📄
menuconf.4th
(1.89 KB)
📄
screen.4th
(623 B)
Editing: screen.4th
\ Screen manipulation related words. \ $FreeBSD$ marker task-screen.4th : escc ( -- ) \ emit Esc-[ 91 27 emit emit ; : ho ( -- ) \ Home cursor escc 72 emit \ Esc-[H ; : cld ( -- ) \ Clear from current position to end of display escc 74 emit \ Esc-[J ; : clear ( -- ) \ clear screen ho cld ; : at-xy ( x y -- ) \ move cursor to x rows, y cols (1-based coords) escc .# 59 emit .# 72 emit \ Esc-[%d;%dH ; : fg ( x -- ) \ Set foreground color escc 3 .# .# 109 emit \ Esc-[3%dm ; : bg ( x -- ) \ Set background color escc 4 .# .# 109 emit \ Esc-[4%dm ; : me ( -- ) \ Mode end (clear attributes) escc 109 emit ;
Upload File
Create Folder