SUBROUTINE TYPE(ITYPE)
C       THIS ROUTINE QUERIES THE USER REGARDING THE VARIOUS OPTIONS
C       AVAILABLE VIA THE ITYPE FLAG
C
        BYTE ANS
        ITYPE=0
        WRITE(7,100)
100     FORMAT(' THESE ARE THE OPTIONS AVAILABLE (DEFAULT IN'
     1     ,' PARENTHESES)'/'  RESPOND WITH  Y  OR  N   :'/
     2     '  COMPLETE BOX (JUST X,Y AXES)? ',$)
        READ(5,110) ANS
110     FORMAT(A1)
        IF(ANS.EQ.'Y') ITYPE=1
        WRITE(7,200)
200     FORMAT('  SUPPRESS CORNER NUMBERS (LABEL CORNERS OF AXES)? '
     1     ,$)
        READ(5,110) ANS
        IF(ANS.EQ.'Y') ITYPE=ITYPE+2
        WRITE(7,300)
300     FORMAT('  SUPPRESS LEGEND (PRINT LEGEND TO RIGHT OF GRAPH)? '
     1     ,$)
        READ(5,110) ANS
        IF(ANS.EQ.'Y') ITYPE=ITYPE+4
        IF(IBIT(ITYPE,1).EQ.0) GOTO 450
        WRITE(7,400)
400     FORMAT('  SUPPRESS TICK MARKS ON TOP AND RIGHT OF BOX'/
     1     '       (PRINT TICK MARKS ALL AROUND BOX)? ',$)
        READ(5,110) ANS
        IF(ANS.EQ.'Y') ITYPE=ITYPE+8
450     WRITE(7,500)
500     FORMAT('  TRIM PLOT CHAR. AT AXES (ALLOW 2% OVERLAP)? ',$)
        READ(5,110) ANS
        IF(ANS.EQ.'Y') ITYPE=ITYPE+16
        WRITE(7,600)
600     FORMAT('  DRAW BORDER OF PAPER (NO BORDER AT PAPER EDGE)? ',$)
        READ(5,110) ANS
        IF(ANS.EQ.'Y') ITYPE=ITYPE+32
        WRITE(7,700) ITYPE
700     FORMAT(' GRAPH TYPE =',I4)
        RETURN
        END