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 6term::ansi::send::import vt 7 8vt::init 9vt::clear 10 11puts \n\n\n\n\n\n\n\n\n\n\n 12 13vt::showat 3 5 "Hello world,\nhow are you" 14vt::showat 10 10 "Hello world,\nhow are you" 15 16puts "" 17exit 18