#!/bin/rc
# plumb to unix machine
rfork e
scr=(`{cat /dev/draw/new >[2]/dev/null})
w=$scr(11)
h=$scr(12)
switch($h){
case 1024
	host=$user
case 800 1050 1080
	host=fk99
}
ssh $host $*