set print on
??chr(27)+"@"
?chr(27)+chr(77)+chr(15)
?".   "
set print off
wait
retu