SUBROUTINE SCREEN
C** ROUTINE TO PUT UP SCREEN FOR LANDER
       COMMON /DRAWER/ITIME,IHIGH,ISCALE
       DIMENSION IMILES(10,2)
       DATA IMILES/'45','40','35','30','25','20','15','10',' 5',' 0',
     *             ' 9',' 8',' 7',' 6',' 5',' 4',' 3',' 2',' 1',' 0'/
       CALL CURSOR(9,1,1,0,' ')
       CALL CURSOR(13,1,1,0,' ')
C** MAKE GRID
       CALL CURSOR(11,1,7,1,'M')
       CALL CURSOR(11,1,8,1,'I')
       CALL CURSOR(11,1,9,1,'L')
       CALL CURSOR(11,1,10,1,'E')
       CALL CURSOR(11,1,11,1,'S')
C** MARK MILES
       J = 1
       DO 5 I=2,20,2
       CALL CURSOR(11,3,I,2,IMILES(J,ISCALE))
       J = J + 1
 5     CONTINUE
       DO 10 I=2,20
       CALL CURSOR(11,6,I,1,'|')
 10    CONTINUE
       DO 20 I=7,70
       CALL CURSOR(11,I,20,1,'-')
 20    CONTINUE
       CALL CURSOR(11,46,2,18,'ALTITUDE (MILES) =')
       CALL CURSOR(11,46,3,18,'VELOCITY (M/SEC) =')
       CALL CURSOR(11,46,4,18,'GRAVITY (M/SEC2) =')
       CALL CURSOR(11,46,5,18,'IMPACT (SECONDS) =')
       CALL CURSOR(11,46,6,18,'FUEL   (SECONDS) =')
       RETURN
       END