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 14 15set para [string trim { 16This software is copyrighted by William H. Duquette. 17The following terms apply to all files associated 18with the software unless explicitly disclaimed in 19individual files. 20}] 21 22vt::showat 5 3 [mt::frame $para] 23puts "" 24exit 25