SC0589 B01 WBG

The Would-Be Gentleman A simulation of social mobility set during the life and reign of Louis XIV of France, 1638 -1715 -- - · - . --- ..:,.- .... '~-'-':..~ Faculcy Author . Development Program Stanford University • User: Tom Maliska, FAD Program Application: Edit Document: Source Code:SUNKING/4.1/FINANCE.TEXT • Date: Tuesday, September 30, 1986 Time: 5:01:21 PM Printer: LaserWriter Plus • {$M+} {mac code} {$X-} {no automatic stack expansion} {$R-} {no range checking, paslib is buggy} (***************************************************************************************) {The Would-Be Gentleman, Faculty Author Development Program at Stanford University. } • {Version 4.1, Steve Fisher (version 1.0) 12/20/84 and Tom Maliska (versions to 4.1) 3/12/86,9/15/86. } {Faculty Author Development Team: Carolyn Lougee, Michael Carter, Ed McGuigan, Steve Fisher, } {and Tom Maliska. } {Copyright 1986 Carolyn Lougee and the Board of Trustees of the Leland Stanford Junior University. } { } {This program simulates social mobility in 17th Century France during the reign of the Sun King } {Louis XIV. It is used in a History seminar, The France of Louis XIV, at Stanford University by } {Professor Carolyn Lougee to teach economic aspects of social mobility. The simulation allows students } {to act out the life of a French bourgeois from simple peasant to possible social and political success. } {Decision making is based upon a model of French economy ftrst developed by Michael Carter in his } {simulation program ANCIEN REGIME and modified to suit the current simulation. } { } {Virtually all procedures and functions use the variable ASSETS in some form to make calculations and } {change player status; in most cases, only explicit uses of the entire data structure ASSETS are recorded } {in the GLOBALS note. Familiarity with ASSETS is the key to understanding action in the program. } (***************************************************************************************) program Finances; (* This USES statement lists the Macintosh Libraries used by the program to compile Macintosh code. *) uses {$U-} {$U obj/MemTypes) MemTypes, {$U obj/QuickDraw} QuickDraw, • {$U obj…