/* strek_stats.f -- translated by f2c (version of 19 December 1990  16:50:21).
   You must link the resulting object file with the libraries:
	-lF77 -lI77 -lm -lc   (in that order)
*/

#include "f2c.h"

/* Table of constant values */

static integer c__9 = 9;
static integer c__1 = 1;

/* Main program */ MAIN__()
{
    /* Builtin functions */
    integer s_wsle(), do_lio(), e_wsle(), s_rsfe(), do_fio(), e_rsfe();
    /* Subroutine */ int s_stop();

    /* Local variables */
    extern /* Subroutine */ int strek_scores__();
    static char answer[1];
    extern /* Subroutine */ int strek_ships__();

    /* Fortran I/O blocks */
    static cilist io___1 = { 0, 6, 0, 0, 0 };
    static cilist io___2 = { 0, 6, 0, 0, 0 };
    static cilist io___3 = { 0, 6, 0, 0, 0 };
    static cilist io___4 = { 0, 6, 0, 0, 0 };
    static cilist io___5 = { 0, 6, 0, 0, 0 };
    static cilist io___6 = { 0, 5, 0, "(a)", 0 };



/*    ******************************************************************* 
*/
/*    *****                                                         ***** 
*/
/*    *****                STAR TREK VERSION 3.0                    ***** 
*/
/*    *****                                                         ***** 
*/
/*    *****                     written by                          ***** 
*/
/*    *****                                                         ***** 
*/
/*    *****                Justin S. Revenaugh                      ***** 
*/
/*    *****                                                         ***** 
*/
/*    *****                       7/87                              ***** 
*/
/*    *****                                                         ***** 
*/
/*    *****        Massachussetts Institute of Technology           ***** 
*/
/*    *****  Department of Earth, Atmospheric and Planetary Science ***** 
*/
/*    *****                                                         ***** 
*/
/*    ******************************************************************* 
*/

/*    STREK_STATS allows the user to peruse the STREK database without */
/*    playing the game. */

/*    version 1 */
/*                                             -jsr 8/85 */


/*    begin loop over options */

L10:
    s_wsle(&io___1);
    do_lio(&c__9, &c__1, " ", 1L);
    e_wsle();
    s_wsle(&io___2);
    do_lio(&c__9, &c__1, "Enter <r> to view the ship registry,", 36L);
    e_wsle();
    s_wsle(&io___3);
    do_lio(&c__9, &c__1, "      <s> to view the top ten scores or", 39L);
    e_wsle();
    s_wsle(&io___4);
    do_lio(&c__9, &c__1, "      <return> to quit.", 23L);
    e_wsle();
    s_wsle(&io___5);
    do_lio(&c__9, &c__1, " ", 1L);
    e_wsle();
    s_rsfe(&io___6);
    do_fio(&c__1, answer, 1L);
    e_rsfe();
    if (*answer == 'r') {
	strek_ships__();
	goto L10;
    } else if (*answer == 's') {
	strek_scores__();
	goto L10;
    } else {
	s_stop("", 0L);
    }
} /* MAIN__ */

/* Main program alias */ int strek_stats__ () { MAIN__ (); }