C MESAGE C C WRITTEN BY MICHAEL BOORSTEIN C C DATE MARCH 11,1978 C C SUBROUTINE MESAGE(TXT) IMPLICIT INTEGER(A-Z) BYTE TXT(65),ESC,Y,LINE,COLUMN DATA ESC,K,Y/"33,'K','Y'/ C C BEGIN C POINT=1 10 IF(TXT(POINT).EQ.0)GOTO 20 POINT=POINT+1 GOTO 10 C C SET PLACE C 20 IF(POINT.EQ.1)RETURN POINT=POINT-1 LINE="40+20 COLUMN="40+15 TYPE 100,ESC,Y,LINE,COLUMN,(TXT(I),I=1,POINT) 100 FORMAT(X,4A1,65A1) CALL WAIT(3,2,IDS) TYPE 200,ESC,Y,LINE,COLUMN,ESC,K 200 FORMAT(X,6A1) RETURN END