1#!/bin/sh
2# -*- tcl -*- \
3exec tclsh "$0" ${1+"$@"}
4lappend auto_path [file join [file dirname [file dirname [file dirname [info script]]]] modules]
5package require term::ansi::send
6package require term::ansi::code::macros
7term::ansi::send::import         vt
8term::ansi::code::macros::import mt
9
10vt::init
11vt::clear
12
13puts \n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n
14
15vt::showat  3  5 [mt::menu {Exit E Up U Down D}]
16vt::showat 10 10 [mt::menu {Exit E Up < Down > Previous P Next N}]
17
18puts ""
19exit
20