3 \ Requires an ANSI compatible terminal.
\r
5 \ To get Windows computers to use ANSI mode in their DOS windows,
\r
6 \ Add this line to "C:\CONFIG.SYS" then reboot.
\r
8 \ device=c:\windows\command\ansi.sys
\r
11 \ Copyright 1988 Phil Burk
\r
12 \ Revised 2001 for pForth
\r
14 ANEW TASK-TERMIO.FTH
\r
17 $ 08 constant ASCII_BACKSPACE
\r
18 $ 7F constant ASCII_DELETE
\r
19 $ 1B constant ASCII_ESCAPE
\r
20 $ 01 constant ASCII_CTRL_A
\r
21 $ 05 constant ASCII_CTRL_E
\r
22 $ 18 constant ASCII_CTRL_X
\r
24 \ ANSI Terminal Control
\r
25 : ESC[ ( send ESCAPE and [ )
\r
30 : CLS ( -- , clear screen )
\r
34 : TIO.BACKWARDS ( n -- , move cursor backwards )
\r
42 : TIO.FORWARDS ( n -- , move cursor forwards )
\r
50 : TIO.ERASE.EOL ( -- , erase to the end of the line )
\r
56 : BELL ( -- , ring the terminal bell )
\r
60 : BACKSPACE ( -- , backspace action )
\r
64 0 [IF] \ for testing
\r
66 : SHOWKEYS ( -- , show keys pressed in hex )
\r
70 ." , $ " dup .hex cr
\r
75 : AZ ascii z 1+ ascii a DO i emit LOOP ;
\r