C MODULE PTWORM C C AUTHOR MICHAEL BOORSTEIN C C DATE MARCH 26, 1978 C C COMMENTS: C C THIS ROUTINE PRINTS A CHARACTER IN THE APPROPRIATE LOCATION C C SUBROUTINE PTWORM(X,Y,CHAR) IMPLICIT INTEGER(A-Z) BYTE X,Y,CHAR,ESC,WHY,LINE,COLUMN BYTE F,G DATA F,G/'F','G'/ DATA ESC,WHY/"33,'Y'/ C C BEGIN C LINE="40+Y-1 COLUMN="40+X-1 C C PUT THE TERMINAL IN GRAPHICS MODE C TYPE THE CHARACTER C TAKE THE TERMINAL OUT OF GRAPHICS MODE C TYPE 100,ESC,F,ESC,WHY,LINE,COLUMN,CHAR,ESC,G 100 FORMAT(X,9A1) RETURN END