/******************** ICE-1500 (DOS) TUTORIAL SCREEN #18 **********************/
menu = 1
map 0k length 12k ice
load messg
namescope = rotate
define literally PR  = 'include scr.17 nolist'
define literally R   = 'include scr.18 nolist'
define literally RTN = 'include scr.18 nolist'
define literally N   = 'include scr.19 nolist'
define literally M   = 'include scr.2  nolist'
/* Re-define the CRT procedure for the user, just in case of user entry error */
DEFINE PROC CRT = DO 
 CURY = 20T  
 CHAR .DISP_BUFFER LENGTH BUFF_SIZE 
 RETURN FALSE   
 END
cls
/******************************************************************************/
'                                                      ------------------------'
'Verify that the PROC is in memory by entering:       | SCR18: BREAK REGISTERS |'
'                                                     | N  = Next screen       |'
'   DIR PROC <Enter>                                  | R  = Rewrite SCR18     |'
'                                                     | PR = Previous screen   |'
'You want to execute the CRT procedure whenever       | M  = Go to main menu   |'
'program execution reaches the CHAR_DISPLAY           | Q  = Quit tutorial     |'
'procedure (refer to MESSG line #22 (address 005DH)). | SCR# = Screen desired  |'
'To do this, define a break register to break at the   ------------------------'
'location of CHAR_DISPLAY and call the CRT procedure.  Enter:'
' '
'   DEFINE BRKREG CRTBRK = CHAR_DISPLAY CALL CRT <Enter> '
' '
'------------To learn more about break registers, enter MODK <Enter>------------'