**TI92P*econ1RrealgdpKZ/;Senter 1 to cont 2 to end-zdf0QzReal GDP is-zlk0df/Qbseszreal GDP is-zdsesdsSfor base yr-zenter item $ amount-zasbsasScurrent yr-zenter basket #-zop0lk/  Sfor current yr-zenter nominal GDP-zSbase yr-zenter basket $ amount-zScurrent yr-zenter basket $ amount-zQamount base yr-zdivided by basket-zbasket amount current yr-zPrice index for given yr=-zQprice index-zdivided by-znominal GDP-zadjusted for inflation-zReal GDP=nominal GDP-zio0op/ io/qw;qwSshortcut enter 2-zto figure GDP-zenter 1-zto figure GDP conventional-z  esdsbsasqw}0}