subroutine ROTAT (ntimes) c c rotates characters anticlockwise ntimes (0-3) w.r.t. the x-axis. c c n.b. the coordinate frame stays rotated until ROTAT is called c again with the corresponding negative argument. c logical*1 plcmd(11) ideg=ntimes*90 encode (11,12,plcmd) ideg,10 12 format(i3' rotate'a1) call sendl(plcmd,11) return end