From d80736ab6e8e3cad2f1a30c6eaba2d6883dbe967 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 26 Aug 2017 20:31:40 +0200 Subject: Remove AmForth --- amforth-6.5/common/lib/hardware/vt100.frt | 59 ------------------------------- 1 file changed, 59 deletions(-) delete mode 100644 amforth-6.5/common/lib/hardware/vt100.frt (limited to 'amforth-6.5/common/lib/hardware/vt100.frt') diff --git a/amforth-6.5/common/lib/hardware/vt100.frt b/amforth-6.5/common/lib/hardware/vt100.frt deleted file mode 100644 index ca84bd6..0000000 --- a/amforth-6.5/common/lib/hardware/vt100.frt +++ /dev/null @@ -1,59 +0,0 @@ -\ ansi terminal codes - -: ESC[ #27 emit [char] ] emit ; - -\ some helper words: print a number *without* -\ leading space in decimal -: .n base @ swap decimal 0 u.r base ! ; -: .;n [char] ; emit .n ; -: ESC[ #27 emit [char] [ emit ; - -\ position curser on terminal -: at-xy ( u1 u2 -- ) - 1+ swap 1+ swap ESC[ .n .;n [char] H emit -; - -\ clear page -: page ( -- ) - ESC[ ." 2J" 0 0 at-xy -; - -\ more definitions based on gforth' ansi.fs - -: foreground ( n -- | set foreground color to n ) - ESC[ #30 + .n [char] m emit -; - -: background ( n -- | set background color to n ) - ESC[ #40 + .n [char] m emit -; - -: text_normal ( -- | set normal text display ) - ESC[ [char] 0 emit [char] m emit -; - -: text_bold ( -- | set bold text ) - ESC[ [char] 1 emit [char] m emit -; - -: text_underline ( -- | set underlined text ) - ESC[ [char] 4 emit [char] m emit -; - -: text_blink ( -- | set blinking text ) - ESC[ [char] 5 emit [char] m emit -; - -: text_reverse ( -- | set reverse video text ) - ESC[ [char] 7 emit [char] m emit -; - - -#0 constant Black -#1 constant Red -#2 constant Green -#3 constant Yellow -#4 constant Blue -#5 constant Brown -#6 constant Cyan -#7 constant White -- cgit v1.2.3