/******************** ICE-1500 (DOS) TUTORIAL SCREEN #21 **********************/
menu = 1
define literally PR  = 'include scr.20 nolist'
define literally R   = 'include scr.21 nolist'
define literally RTN = 'include scr.21 nolist'
define literally N   = 'include scr.22 nolist'
define literally M   = 'include scr.2  nolist'
map 0k length 12k ice
load messg
namescope = rotate
DEFINE PROC CRT = DO 
 CURY = 20T  
 CHAR .DISP_BUFFER LENGTH BUFF_SIZE 
 RETURN FALSE   
 END
DEFINE BRKREG CRTBRK = CHAR_DISPLAY CALL CRT
cls
/******************************************************************************/
'                                                      ------------------------'
'Now, compare the value of TEMP with the first        | SCR21: VERIFY TEMP 2   |'
'character of the buffer.  They should be equal.      | N  = Next screen       |'
'Enter:                                               | R  = Rewrite SCR21     |'
'                                                     | PR = Previous screen   |'
'    TEMP <Enter>                                     | M  = Go to main menu   |'
'    DISP_BUFFER <Enter>                              | Q  = Quit tutorial     |'
'                                                     | SCR# = Screen desired  |'
'It appears that the TEMP variable is being assigned   ------------------------'
'correctly. '
' '
'-------------------------------------------------------------------------------'