C C SYSTEM/MACHINE - IAS V1.1 / PDP-11/45 C C AUTHOR - RANDALL ADAMS C C DATE - DECEMBER 1976 C C TYPE/LANGUAGE - SUBROUTINE / FORTRAN IV C C C RESTRICTIONS - VT52 TERMINALS ONLY C C C C C ABSTRACT - THIS SUBROUTINE PLOTS SELECTED SYMBOL ON VT52 AT C SELECTED X,Y POINT C C C C SUBROUTINE VTPLOT(IX,IMY,IVAL) INTEGER ISTAT(2),IPRM(6) INTEGER HIT LOGICAL*1 IBUF(5) DATA IWVB /"11010/ DATA IALT,IY/"033,"131/ CALL GETADR(IPRM,IBUF) IPRM(2)=5 IBUF(1)=IALT IBUF(2)=IY IF(IX.GT.80)IX=IX-80 IF(IX.LT.0)IX=IX+80 IBUF(4)="40+IX IBUF(3)="67 - IMY IF(IBUF(3).LT.0)RETURN IF(IBUF(4).LT.0)RETURN IF(IBUF(3).GT."67)RETURN IBUF(5)=IVAL IPRM(3)="53 CALL WTQIO(IWVB,1,3,60,ISTAT,IPRM,ISW) RETURN END