/************************** I2ICE TUTORIAL SCREEN #40 **************************/
menu=1
define literally P   = 'include scr.39 nolist'
define literally R   = 'include scr.40 nolist'
define literally RTN = 'include scr.40 nolist'
define literally N   = 'include scr.41 nolist'
define literally M   = 'include scr.2 nolist'
cls
/*******************************************************************************/
'                                                      ------------------------'
'Look again at the program listing in Chapter 2 of    | SCR40: ASCII_DIGIT     |'
'the I2ICE System User''s Guide.  The procedure WRITE  | M = Go to main menu    |'
'(line 11), which writes ASCII code to the output, is | N = Next screen        |'
'called from the procedure CONVERT_DECIMAL_DIGIT      | P = Previous screen    |'
'line 31).  This procedure passes an ASCII hex code   | Q = Quit tutorial      |'
'to WRITE.  At line 30, the variable ASCII_DIGIT      | R = Rewrite SCR40      |'
'stores the value passed to WRITE.  What value is     | SCR# = Screen desired  |'
'stored there now?  Enter                              ------------------------'
'    ASCII_DIGIT <Enter>                              '
' '
'The I2ICE system responds with an error message because this variable name'
'is not local to the procedure where emulation broke (WRITE).  We need to use a'
'fully qualified reference as follows:'
'    :CMAKER.CONVERT_DECIMAL_DIGIT.ASCII_DIGIT <Enter>'
' '
'We see that 61 (the ASCII hex code for "a") is now stored at the variable ad-'
'dress.  How does it get there?'
' '
'--------To learn more about I2ICE error messages, enter MOD_K <Enter>----------'