C STATUS C C MICHAEL BOORSTEIN C C MARCH 11,1978 C C SUBROUTINE STATUS(STRING) IMPLICIT INTEGER(A-Z) BYTE STRING(11),BLANK(11) BYTE ESC,Y,LINE,COLUMN DATA ESC,Y/"33,'Y'/ DATA BLANK/11*' '/ C C BEGIN C LINE="40+15 COLUMN="40+34 IF(STRING(1).EQ.0)GOTO 10 IF(STRING(1).EQ.1)GOTO 20 COLUMN=COLUMN+1 TYPE 100,ESC,Y,LINE,COLUMN,(STRING(I),I=1,11) 100 FORMAT(X,4A1,11A1) RETURN 10 COLUMN=COLUMN+1 TYPE 100,ESC,Y,LINE,COLUMN,(BLANK(I),I=1,11) RETURN 20 LINE="40+13 TYPE 200,ESC,Y,LINE,COLUMN 200 FORMAT(X,4A1,'*************') DO 30 J=1,3 LINE =LINE+1 30 TYPE 300,ESC,Y,LINE,COLUMN 300 FORMAT(X,4A1,'* *') LINE=LINE+1 TYPE 200,ESC,Y,LINE,COLUMN RETURN END