#!/bin/csh -f
# 

echo "C 0 25 25 112" >>back$$.as   # good for on screen using tube
echo "C 7 255 128 0" >>back$$.as   # good text for onscreen

plas <back$$.as >back$$.v
vppen back$$.v $1.v erase=once txsquare=y xsize=7 ysize=5 |vppen align=lb | vppen fat=4 >$1.v.screen
#
rm -f back$$.v back$$.as
# encapsulate and add  pict data fork
#
