1#!/bin/sh
2# -*- tcl -*- \
3exec tclsh "$0" ${1+"$@"}
4lappend auto_path [file join [file dirname [file dirname [file dirname [info script]]]] modules]
5
6package require term::ansi::send
7package require term::ansi::ctrl::unix
8package require term::interact::menu
9
10term::ansi::send::import vt
11vt::init
12vt::clear
13
14term::interact::menu m {
15    {[ 0] uri}   a
16    {[ 1] aes}   b
17    {[ 2] irc}   c
18    {[ 3] log}   d
19    {[ 4] rc4}   e
20    {[ 5] md5}   f
21    {[ 6] ntp}   g
22    {[ 7] rcs}   h
23    {[ 8] tie}   i
24    {[ 9] tar}   j
25    {[10] taser} k
26} -line 2 -column 2 -height 5 \
27	-hilitleft 1 -hilitright 2 -framed 1
28
29term::ansi::ctrl::unix::raw
30set res [m interact]
31term::ansi::ctrl::unix::cooked
32
33puts $res
34exit
35