/******************** ICE-1500 (DOS) TUTORIAL SCREEN #17 **********************/
menu = 1
map 0k length 12k ice
load messg
namescope = rotate
define literally PR  = 'include scr.16 nolist'
define literally R   = 'include scr.17 nolist'
define literally RTN = 'include scr.17 nolist'
define literally N   = 'include scr.18 nolist'
define literally M   = 'include scr.2  nolist'
cls
/******************************************************************************/
'                                                      ------------------------'
'Create the CRT procedure as shown below.  Enter:     | SCR17: PROCs 2         |'
'                                                     | N  = Next screen       |'
'   DEFINE PROC CRT = DO  <Enter>                     | R  = Rewrite SCR17     |'
'    CURY = 20T  <Enter>                              | PR = Previous screen   |'
'    CHAR .DISP_BUFFER LENGTH BUFF_SIZE  <Enter>      | M  = Go to main menu   |'
'    RETURN FALSE  <Enter>                            | Q  = Quit tutorial     |'
'    END  <Enter>                                     | SCR# = Screen desired  |'
'                                                      ------------------------'
'This PROC will be called by a break register (BRKREG).  Break registers are '
'used to halt program execution at a specific location, and can execute the '
'commands associated with the break register.  If a break register is used to'
'call a PROC (such as CRT), the PROC must return a boolean value telling the '
'emulator to remain in halt mode (TRUE), or return to emulation (FALSE). '
' '
'The CRT procedure returns the value FALSE, causing emulation to continue after'
'the PROC has been executed.'
' '
'------------------To learn more about PROCs, enter MODG <Enter>----------------'