/******************** ICE-1500 (DOS) TUTORIAL SCREEN #27 **********************/
menu = 1
define literally PR  = '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'
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
ASM 066h = 'setb c'                            /* in case of user entry error */
cls
/******************************************************************************/
'                                                      ------------------------'
'Start the program over, and see if it works.         | SCR27: VERIFY PROGRAM  |'
'                                                     | N  = Next screen       |'
'   GO FROM 0 USING CRTBRK <Enter>                    | R  = Rewrite SCR27     |'
'                                                     | PR = Previous screen   |'
'NOTE: Going "FROM 0" causes the re-initialization    | M  = Go to main menu   |'
'of the display buffer.                               | Q  = Quit tutorial     |'
'                                                     | SCR# = Screen desired  |'
'Use the <Ctrl>-<Break> keys to stop emulation.        ------------------------'
' '
'-------------------------------------------------------------------------------'