aboutsummaryrefslogtreecommitdiff
path: root/forth/forth/vt100-test.fs
blob: e3982c4b97aeaeb1f0da7f7fa8f675cade7b5009 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
\ *********************************************************************
\ 
\    Filename:       vt100-test.txt
\    Date:           02.03.2014
\    FF Version:     5.0 
\    Author:         Attila Herman
\ *********************************************************************
\    FlashForth is licensed acording to the GNU General Public License*
\ *********************************************************************
\ Frequently used commands for VT100 compatible terminals
\ Unfortunately there is some differencies between terminal emulators!
\ Maybe some words doesn't work, or does another function depending on
\ terminal.

-vt100-test
marker -vt100-test

: vt100-test
  \cls \c-
  2 8 \cp
  \bri s" *** " type
  \res  \rev s"  Terminal test " type \res
  \bri s"  ***" type
  6 8 \cp \unl s" ^^^^^^^^^^^^^^^^^^^^^^" type
  8 8 \cp \res s"  Press any key to quit! " type
  \res \bri \rev
  0
  begin
   4 #16 \cp bl emit
   dup . 1+  s" sec " type
   #1000 ms
   key?
  until
  key 2drop \res  5 \cdn \nl \c+
;