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

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.