DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦9d0653677⟧ TextFile

    Length: 503 (0x1f7)
    Types: TextFile
    Names: »trade.c«

Derivation

└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
    └─⟦this⟧ »EUUGD18/General/Galaxy/src/trade.c«

TextFile

/*
 * %W% (mrdch&amnnon) %G%
 */

# include "header"

trading (s)
char   *s;
{
    int     i;

    i = atoi (s);               /* take the amount specified */
    assert_money (i);           /* see if legal and available */
    skipword (s);               /* skip over it */
    assert_end (s);             /* see if it ends well */
    say ("I pray for a good trading year, my lord.");
    teller[player] -= i;        /* take his money */
    trade[player] += i;         /* and invest it in trade */
}