Return to main.c CVS log

Up to [Research Unix] / researchv10no / games / trek

Annotation of researchv10no/games/trek/main.c, revision 1.1

1.1     ! root        1: # include      "trek.h"
        !             2: 
        !             3: /**
        !             4:  **            S T A R   T R E K
        !             5:  **
        !             6:  **    C version by Eric P. Allman 5/76 (U.C. Berkeley) with help
        !             7:  **            from Jeff Poskanzer and Pete Rubinstein.
        !             8:  **
        !             9:  **    Please send comments, questions, and suggestions about this
        !            10:  **            game to:
        !            11:  **                    Eric P. Allman
        !            12:  **                    Project INGRES
        !            13:  **                    Electronics Research Laboratory
        !            14:  **                    Cory Hall
        !            15:  **                    University of California
        !            16:  **                    Berkeley, California  94720
        !            17:  **
        !            18:  **    FORTRASH version by Kay R. Fisher (DEC) "and countless others".
        !            19:  **    That was adapted from the "original BASIC program" (ha!) by
        !            20:  **            Mike Mayfield (Centerline Engineering).
        !            21:  **
        !            22:  **    Additional inspiration taken from FORTRAN version by
        !            23:  **            David Matuszek and Paul Reynolds which runs on the CDC
        !            24:  **            7600 at Lawrence Berkeley Lab, maintained there by
        !            25:  **            Andy Davidson.  This version is also available at LLL
        !            26:  **            and at LMSC.  In all fairness, this version was the
        !            27:  **            major inspiration for this version of the game (trans-
        !            28:  **            lation:  I ripped off a whole lot of code).
        !            29:  **
        !            30:  **    Minor other input from the "Battelle Version 7A" by Joe Miller
        !            31:  **            (Graphics Systems Group, Battelle-Columbus Labs) and
        !            32:  **            Ross Pavlac (Systems Programmer, Battelle Memorial
        !            33:  **            Institute).  That version was written in December '74
        !            34:  **            and extensively modified June '75.  It was adapted
        !            35:  **            from the FTN version by Ron Williams of CDC Sunnyvale,
        !            36:  **            which was adapted from the Basic version distributed
        !            37:  **            by DEC.  It also had "neat stuff swiped" from T. T.
        !            38:  **            Terry and Jim Korp (University of Texas), Hicks (Penn
        !            39:  **            U.), and Rick Maus (Georgia Tech).  Unfortunately, it
        !            40:  **            was not as readable as it could have been and so the
        !            41:  **            translation effort was severely hampered.  None the
        !            42:  **            less, I got the idea of inhabited starsystems from this
        !            43:  **            version.
        !            44:  **
        !            45:  **    Permission is given for use, copying, and modification of
        !            46:  **            all or part of this program and related documentation,
        !            47:  **            provided that all reference to the authors are maintained.
        !            48:  **/
        !            49: 
        !            50: fault()
        !            51: {
        !            52:        signal(SIGINT,fault);
        !            53:        mkfault=1;
        !            54: }
        !            55: 
        !            56: CVNTAB Ngtab[]
        !            57: {
        !            58:        "n",    "o",
        !            59:        "y",    "es",
        !            60:        "pm",   "",
        !            61:        "r",    "epeat",
        !            62:        0
        !            63: };
        !            64: 
        !            65: int    repflg; /*Set when repeat games wanted*/
        !            66: main(argc, argv)
        !            67: int    argc;
        !            68: char   **argv;
        !            69: {
        !            70:        int                     two;
        !            71: 
        !            72:        time(&inittime);
        !            73:        printf("\n   * * *   S T A R   T R E K   * * *\n\n");
        !            74:        /* %%% begin */
        !            75: 
        !            76:        two=0;
        !            77:        setjmp(errjmp);
        !            78:        signal(2,0);
        !            79:        if(two) {
        !            80:                switch(getcodpar("Another game", Ngtab)) {
        !            81:                    default:
        !            82:                        exit(0);
        !            83:                    case 3:
        !            84:                        repflg++;
        !            85:                        break;
        !            86:                    case 2:
        !            87:                        eventpr();
        !            88:                        scanall(1);
        !            89:                    case 1:
        !            90:                        break;
        !            91:                }
        !            92:        }
        !            93:        signal(SIGINT, fault);
        !            94:        while(setup(two++) && play());
        !            95:        printf("\n");
        !            96:        exit(0);
        !            97: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.