Return to getcodi.c CVS log

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

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

1.1     ! root        1: /**
        !             2:  **    get course and distance
        !             3:  **/
        !             4: 
        !             5: getcodi(co, di)
        !             6: int    *co;
        !             7: float  *di;
        !             8: {
        !             9:        if(getintpar("Course", co)==0) return(0);
        !            10:        fixco(co);
        !            11:        readsep(",");
        !            12:        if(getfltpar("Distance", di)==0) return(0);
        !            13:        if(*di<0.0) {
        !            14:                *di = -*di;
        !            15:                *co =- 180;
        !            16:                fixco(co);
        !            17:        }
        !            18:        return(1);
        !            19: }
        !            20: 
        !            21: fixco(co)
        !            22: int    *co;
        !            23: {
        !            24:        register int    neg;
        !            25: 
        !            26:        neg = *co<0;
        !            27:        *co =% 360;
        !            28:        if(neg) *co =+ 360;
        !            29: }

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