/************************** I2ICE TUTORIAL SCREEN #41 **************************/
menu=1
define literally P   = 'include scr.40 nolist'
define literally R   = 'include scr.41 nolist'
define literally RTN = 'include scr.41 nolist'
define literally N   = 'include scr.42 nolist'
define literally M   = 'include scr.2 nolist'
cls
/*******************************************************************************/
'                                                      ------------------------'
'Line 30 sets ASCII_DIGIT equal to DECIMAL_DIGIT      | SCR41: DECIMAL_DIGIT 1 |'
'plus the ASCII hex code for the number 0.  Since the | M = Go to main menu    |'
'the hex code for 0 is 30, DECIMAL_DIGIT should be    | N = Next screen        |'
'equal to 31.  Is it?  Let''s see.  Enter the fol-     | P = Previous screen    |'
'lowing command:                                      | Q = Quit tutorial      |'
'    :CMAKER.CONVERT_DECIMAL_DIGIT.DECIMAL_DIGIT      | R = Rewrite SCR41      |'
'Press <Enter> to execute the command.                | SCR# = Screen desired  |'
'                                                      ------------------------'
'Error again!  The error message suggests that        '
'DECIMAL_DIGIT is a dynamic variable active only when we are within the proce-'
'dure that uses the variable.  We can test this by using the ACTIVE command '
'(placing the name of the variable in parentheses after it).  Use the '
'<UP-ARROW> key to retrieve the previous command.  Modify it as follows:'
'    ACTIVE(:CMAKER.CONVERT_DECIMAL_DIGIT.DECIMAL_DIGIT)'
'Press <Enter> to execute the command.  If DECIMAL_DIGIT were a static vari-'
'able, ACTIVE would return TRUE.  See what ACTIVE returns for the static vari-'
'able ASCII_DIGIT.  Use the <UP-ARROW> key to modify and then execute '
'    ACTIVE(:CMAKER.CONVERT_DECIMAL_DIGIT.ASCII_DIGIT) <Enter>'
'ASCII_DIGIT is shown to be active. '
'-------------------------------------------------------------------------------'