/************************* ICE-5100 TUTORIAL SCREEN Q6 ****************************/
menu = 1
define literally PR   = 'include scrq.5 nolist'
define literally R   = 'include scrq.6 nolist'
define literally N   = '''To get the next screen, enter M or RTN'''
define literally M   = 'include FMOD nolist'
load MESSG
source = true 
presrc = 0
postsrc = 0
SET :MAIN_DISPLAY TO MESSG.LST    
cls
/*******************************************************************************/
'                                                   ---------------------------'
'Use POSTSRC to see source code after an execution | SCRQ6: SOURCE CODE 6      |'
'break.  For example, enter:                       | N = Next screen           |'
'                                                  | R = Rewrite SCRQ6         |'
'    POSTSRC = 5                                   | PR = Previous screen      |'
'    GO FROM 0 TIL #10                             | M = Go to main menu       |'
'                                                  | Q = Quit tutorial         |'
'Note that the source code before the break is     | RTN = Return to main path |'
'shown also.                                       | SCR# = Screen desired     |'
'                                                   -------------------------- '
'Entering this command may cause the tutorial screen to scroll out of view'
'Once this command is through displaying, enter R to rewrite this screen.'
' '
'This concludes our discussion of source code display.  For more information'
'on source code display see the ICE-5100 Reference Manual. '
' '
'This ends Feature Module Q.  Enter RTN <Enter> to return to the main path of '
'the tutorial, or M <Enter> to go to the FMOD menu.'
'###################### END OF FEATURE MODULE Q ############################# '