/******** ICE-5100 EMULATOR (DOS) TUTORIAL FEATURE MODULE SCREEN #J.4 **********/
menu = 1
define literally PR = 'include scrJ.3 nolist' 
define literally R  = 'include scrJ.4 nolist'
define literally N  = '''To go to the next screen, enter RTN or M'''
define literally M  = 'include FMOD   nolist'
load MESSG
set :main_display to messg.lst
source = false
namescope = rotate
cls
/******************************************************************************/
'                                                   ---------------------------'
'Before exiting this module, set the MESSG program | SCRJ4: GO COMMAND 4       |'
'to a condition similar to the way it was before   | N  = Next screen          |'
'executing this module.  Enter:                    | R  = Rewrite SCRJ4        |'
'                                                  | PR = Previous screen      |'
'   GO FROM 0 TIL CHAR_DISPLAY <Enter>             | M  = Go to features menu  |'
'                                                  | Q  = Quit tutorial        |'
'NOTE: TRACE options to the GO command are         | RTN = Return to main path |'
'discussed in MODL.  Break registers, frequently   | SCR# = Screen desired     |' 
'used with GO commands, are discussed in MODK.      ---------------------------'
' '
' '
'This ends Feature Module J.  Enter RTN <Enter> to return to the main path of'
'the tutorial, or M <Enter> to go to the features menu.'
' '
'########################## END OF FEATURE MODULE J ############################'