/************************** I2ICE TUTORIAL SCREEN #23 **************************/
menu=1
define literally P   = 'include scr.22 nolist'
define literally R   = 'include scr.23 nolist'
define literally RTN = 'include scr.23 nolist'
define literally N   = 'include scr.24 nolist'
define literally M   = 'include scr.2 nolist'
cls
/*******************************************************************************/
'                                                      ------------------------'
'With IOPROC and WAIT, it is easier to see that      | SCR23: CHANGE          |'
'the program is not running correctly.  It is time   | M = Go to main menu    |'
'to debug the program.                               | N = Next screen        |'
'                                                    | P = Previous screen    |'
'Look at the PL/M program listing in Chapter 2 of    | Q = Quit tutorial      |'
'the I2ICE System User''s Guide.  In lines 86, 88,    | R = Rewrite SCR23      |'
'90, and 91 the values for the variables QUARTERS,   | SCR# = Screen desired  |'
'DIMES, NICKELS, and PENNIES are calculated.          ------------------------'
'Earlier we checked these variables'' values and      '
'found them all to be 0.'
' '                                                                           
'The variables'' values all derive from CHANGE.  CHANGE (on line 83) is set '
'equal to PAID minus PURCHASED.  We would expect this value to equal 150 minus'
'108 (i.e., 42 decimal or 2A hex).  Enter'
'    :CMAKER.CHANGE <Enter>'
' '
'Again we get 0.  '
'------------------------------------------------------------------------------'