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