subroutine LPR (text,n) c c prints the given text on the LaserWriter page c logical*1 text(n),plcmd(80) plcmd(1)='(' call insert(text,plcmd,2) call insert(') show',plcmd,(n+2)) call scopy(10,plcmd(n+8)) call sendl(plcmd,(n+8)) return end