Added David P's scripts to appinit.tcl