/************************** I2ICE TUTORIAL SCREEN #15 **************************/
menu=1
define literally P   = 'include scr.14 nolist'     
define literally R   = 'include scr.15 nolist'
define literally RTN = 'include scr.15 nolist'
define literally N   = 'include scr.16 nolist'
define literally M   = 'include scr.2 nolist'      
cls
/*******************************************************************************/
'                                                      ------------------------'
'You just entered 150 as the amount paid.  You were   | SCR15:  PRICE REQUEST  |'
'asked to exit emulation so that the next steps in    | M = Go to main menu    |'
'emulation could be explained in this tutorial        | N = Next screen        |'
'screen.  The steps are given below.                  | P = Previous screen    |'
' 1. Resume emulation by entering                     | Q = Quit tutorial      |'
'       GO FROM :CMAKER#5 <Enter>                     | R = Rewrite SCR15      |'
' 2. To complete the entry of the 150 paid amount,    | SCR# = Screen desired  |'
'    enter the following as an input byte (0D is       ------------------------'
'    the ASCII value for a carriage return):          '
'       0D <Enter> '
' 3. The next set of eight output bytes translates as "Price = ". (Price is '
'    preceded by a line feed and a carriage return.) Enter the price (108) as '
'    follows:'
'       31 <Enter>  '
'       30 <Enter>  '
'       38 <Enter>  '
'       0D <Enter>  '
' '
'-------------------------------------------------------------------------------'