
RAILROAD TYCOON: SOURCE CODE 

/*-----------------------------------------------*/
/* Function: <RWData>                            */
/*  Read or write all game data.                 */
/*-----------------------------------------------*/

near RWData ()
{
    RWFile (tr, sizeof (struct Train)*NTRAINS);
    RWFile (st, sizeof (struct Station)*NSTATION);
    RWFile (sd, sizeof (struct StationData)*NSDATA);
    RWFile (sw, sizeof (struct Switch)*NSWITCH);
    RWFile (eg, sizeof (struct Engine)*NENGINE);
    RWFile (sg, sizeof (struct Segment)*NSEGMENT);

    RWFile (&rseed, 2);  /* 2 = # of bytes */
    RWFile (&ntrak, 2);
    RWFile (&etrak, 2);
    RWFile (&year, 2);
    RWFile (&Rtime, 2);
    RWFile (&YTime, 2);
    RWFile (&EOYtime, 2);
    RWFile (&Disaster, 2);
    RWFile (&FirstYear, 2);
    RWFile (&Funds, 2);
    RWFile (&Loans, 2);
    RWFile (&Stock, 2);
    RWFile (&Bankrupted, 2);
    RWFile (&Economy, 2);
    RWFile (&Interest, 2);
    RWFile (&MaxPrice, 2);
    RWFile (&FireMe, 2);
    RWFile (&Auth, 2);
    RWFile (Expenses, 2*2*10);
    RWFile (Revenues, 2*2*10);
    RWFile (Profits, 2*150);

    RWFile (&farming, 2);
    RWFile (&LastFunds, 2);
    RWFile (&NextNews, 2);
    RWFile (&Worth, 2);
    RWFile (&Miles, 2);
    RWFile (&Industry, 2);
    RWFile (&NextSeg, 2);
    RWFile (&World, 2);
    RWFile (&StockPrice, 2);
    RWFile (&diff, 2);
    RWFile (&Bankrupt, 2);
    RWFile (&Equity, 2);
    RWFile (&MaxSpeed, 2);
    RWFile (&NextPool, 2);
    RWFile (&OurName, 2);
    RWFile (&reality, 2);
    RWFile (&DiffPoints, 2);
    RWFile (&Messages, 2);
    RWFile (&DisX, 2);
    RWFile (&DisY, 2);
    RWFile (lastval, 10*2);

    RWFile (InBlock, 2*NBLOCK);

    RWFile (SystemDist, 2*2);
    RWFile (SystemTime, 2*2);
    RWFile (TonMiles, 2*2);
    RWFile (&NextTrain, 2);
    RWFile (&FirstP, 2);
    RWFile (&FirstD, 2);
    RWFile (histo, 8*50*2);
    RWFile (record, 10*2);
    RWFile (TM, NREV*2);

    RWFile (&BonusF, 2);
    RWFile (&BonusT, 2);
    RWFile (&BonusTime, 2);
    RWFile (&BonusType, 2);
    RWFile (accomp, NACCOMP*2);
 
    RWFile (Eterm, NCITY);
    RWFile (Ename, NENEMY*2);
    RWFile (Ecash, NENEMY*2);
    RWFile (Erev , NENEMY*2);
    RWFile (Eworth, NENEMY*2);
    RWFile (Ebuild, NENEMY*2);
    RWFile (Eprice, NENEMY*2);
    RWFile (Eauth, NENEMY*2);
    RWFile (Eloans, NENEMY*2);
    RWFile (Einterest, NENEMY*2);
    RWFile (Estatus, NENEMY*2);
    RWFile (Eguy, NENEMY*2);
    RWFile (Ecanbuild, NENEMY*2);
    RWFile (Estock, NENEMY*2*3);
    RWFile (Egoto, NENEMY*2);
    RWFile (Txt, NENEMY*2);
    RWFile (RRSName, 4);
}

Copyright 1991 by Sid Meier and MicroProse                                                                                                                                                                                                                                                                