SUBROUTINE DRWABS(IX,IY) COMMON /TKTRNX/ TMINVX,TMINVY,TMAXVX,TMAXVY,TREALX,TREALY, 1 TIMAGX,TIMAGY,TRCOSF,TRSINF,TRSCAL,TRFACX,TRFACY, 2 TRPAR1,TRPAR2,TRPAR3,TRPAR4,TRPAR5,TRPAR6,KMOFLG(8),KPAD2, 3 KBAUDR,KGNFLG,KGRAFL,KHOMEY,KKMODE,KHORSZ,KVERSZ,KTBLSZ, 4 KSIZEF,KLMRGN,KRMRGN,KFACTR,KTERM,KLINE,KZAXIS,KBEAMX,KBEAMY, 5 KMOVEF,KPCHAR(5),KDASHT,KMINSX,KMINSY,KMAXSX,KMAXSY,KEYCON, 6 KINLFT,KOTLFT,KUNIT C * NON-4014/15 PRUNING BOUNDARY C * SET TERMINAL TO DRAW SOLID LINES C * THIS SECTION IS FOR 4014 ENHANCED IF(KLINE .EQ. 0)GO TO 5 KLINE=0 CALL CWSEND 5 CONTINUE IF(KKMODE.NE.1)CALL VECMOD IF(KMOVEF.EQ.1)CALL XYCNVT(KBEAMX,KBEAMY) CALL XYCNVT(IX,IY) KGRAFL=0 RETURN END