/************************* ICE-5100 TUTORIAL SCREEN Q3 ****************************/
menu = 1
define literally PR   = 'include SCRQ.2 nolist'
define literally R   = 'include SCRQ.3 nolist'
define literally N   = 'include SCRQ.4 nolist'
define literally M   = 'include FMOD nolist'
load MESSG
source = false
presrc = 0
postsrc = 0
SET :MAIN_DISPLAY TO MESSG.LST    
cls
/*******************************************************************************/
'                                                   ---------------------------'
'The SHOWSRC command displays a sequence of text   | SCRQ3: SOURCE CODE 3      |'
'lines from the list file.  Try it now by entering:| N = Next screen           |'
'                                                  | R = Rewrite SCRQ3         |'
'     SHOWSRC #32                                  | PR = Previous screen      |'
'                                                  | M = Go to main menu       |'
'This example uses a program line number as a      | Q = Quit tutorial         |'
'reference for display.  Any expression can be     | RTN = Return to main path |'
'specified in the command as long as it evaluates  | SCR# = Screen desired     |'
'to an executable statement in the module.          -------------------------- '
'For instance: '
' '
'     SHOWSRC #32 LENGTH 5     '
' '
'Expressions can be a single address, address ranges (#34 TO #39), or address'
'lengths ($ LENGTH 5). '
' '
'-------------- Enter N <Enter> to continue with Aid Module Q ------------------'