/************************** I2ICE TUTORIAL SCREEN #27 **************************/
menu=1
define literally P   = 'include scr.26 nolist'
define literally R   = 'include scr.27 nolist'
define literally RTN = 'include scr.27 nolist'
define literally N   = 'include scr.28 nolist'
define literally M   = 'include scr.2 nolist'
cls
/*******************************************************************************/
'                                                      ------------------------'
'Why is VALUE equal to 0?  Study lines 64 through 72. | SCR27:  BUG#1          |'
'VALUE is based on the value of the variable CHAR.    | M = Go to main menu    |'
'CHAR, in turn, is set equal to a value passed in     | N = Next screen        |'
'from the procedure READ.  READ receives an ASCII     | P = Previous screen    |'
'value from the input port.  Thus, when you entered   | Q = Quit tutorial      |'
'150 <Enter> in response to "Paid", CHAR, in turn,    | R = Rewrite SCR27      |'
'should have been passed the ASCII values for 1, 5,   | SCR# = Screen desired  |'
'0, and <Enter>, namely (in hex): 31, 35, 30, and 0D.  ------------------------'
'Let''s check to see whether CHAR is now equal to 0D.  '
'Enter the following command (use " before CHAR, because CHAR is also an I2ICE'
'keyword):'
'    :CMAKER.GET_INPUT."CHAR <Enter>      ' 
' '
'CHAR is 0DH as expected. The bug must lie in the conversion from CHAR to'
'VALUE.  '
' '
'----------To learn more about I2ICE keywords, enter MOD_G <Enter>--------------'