C QUESTN C C MICHAEL BOORSTEIN C C DATE MARCH 11,1978 C C SUBROUTINE QUESTN(TEXT) IMPLICIT INTEGER(A-Z) BYTE BLANK(30),ESC,Y,LINE,COLUMN,TEXT(20) DATA BLANK/30*' '/ DATA ESC,Y/"33,'Y'/ C C BEGIN C LINE="40+21 COLUMN="40 TYPE 100,ESC,Y,LINE,COLUMN,(BLANK(I),I=1,30) 100 FORMAT(X,4A1,30A1) POINT=1 IF(TEXT(POINT).EQ.0)RETURN 10 IF(TEXT(POINT).EQ.0)GOTO 20 POINT=POINT+1 GOTO 10 20 POINT=POINT-1 TYPE 200,ESC,Y,LINE,COLUMN,(TEXT(J),J=1,POINT) 200 FORMAT('$',4A1,20A1) RETURN END