/******************** ICE-1500 (DOS) TUTORIAL SCREEN #19 **********************/
menu = 1
define literally PR  = 'include scr.18 nolist'
define literally R   = 'include scr.19 nolist'
define literally RTN = 'include scr.19 nolist'
define literally N   = 'include scr.20 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 that the break register is defined, the emulator | SCR19: GO USING BRKREG |'
'must be told to use it during emulation.  This is    | N  = Next screen       |'
'accomplished via the USING option of the GO          | R  = Rewrite SCR19     |'
'command.  Also use the FROM option to execute the    | PR = Previous screen   |'
'MESSG program from the beginning.  Enter:            | M  = Go to main menu   |' 
'                                                     | Q  = Quit tutorial     |'
'    GO FROM 0 USING CRTBRK <Enter>                   | SCR# = Screen desired  |'
'                                                      ------------------------'
'NOTE: Do not use the <Esc> key to halt emulation.  With the default key '
'definition set the  <Esc> key invokes the internal editor.  With the enhanced'
'key definition set <Esc> deletes the current command line.  For more '
'information on the Debug Editor refer to your Debug Editor User''s Guide.'
'For more information on the enhanced definition key set see the ICE-5100'
'Emulator Reference Manual.'
' '
'In situations where a break register calls a procedure,<Ctrl>-<Break> must'
'be entered to abort the procedure.  Multiple <Ctrl>-<Break>''s may be'
'required to halt emulation.  Press the <Ctrl> and <Break> keys now.'
'-------------------------------------------------------------------------------'