/************************** I2ICE TUTORIAL SCREEN #24 **************************/
menu=1
define literally P   = 'include scr.23 nolist'
define literally R   = 'include scr.24 nolist'
define literally RTN = 'include scr.24 nolist'
define literally N   = 'include scr.25 nolist'
define literally M   = 'include scr.2 nolist'
cls
/*******************************************************************************/
'                                                     ------------------------'
'If CHANGE is 0 (but should be 42), what are PAID    | SCR24: VALUE           |'
'and PURCHASED?  Let''s see.  Enter                   | M = Go to main menu    |'
'    :CMAKER.PAID <Enter>                            | N = Next screen        |'
'    :CMAKER.PURCHASED <Enter>                       | P = Previous screen    |'
'Again we find both variables are 0.  But PAID and   | Q = Quit tutorial      |'
'PURCHASED should be 150 and 108 respectively.  In   | R = Rewrite SCR24      |'
'lines 80 and 81, PAID and PURCHASED are set equal   | SCR# = Screen desired  |'
'to values passed from the PL/M procedure GET_INPUT.  ------------------------'
'On line 75, at the end of GET_INPUT, the variable   '
'named VALUE is returned to the calling line.' 
'                                                 '
'Let''s check VALUE''s value.  Since GET_INPUT was called twice (once for PAID'
'and once for PURCHASED), VALUE should now be equal to the second amount you'
'entered (108).  Enter the following command to display the value of VALUE:'
'follows:   '
'    :CMAKER.GET_INPUT.VALUE <Enter>                                     '    
' '
'Again we get 0. '
'-------------------------------------------------------------------------------'