/******** ICE-1500 EMULATOR (DOS) TUTORIAL FEATURE MODULE SCREEN #G.2 *********/
menu = 1
define literally PR = 'include SCRG.1 nolist'
define literally R  = 'include SCRG.2 nolist'
define literally N  = 'include SCRG.3 nolist'
define literally M  = 'include FMOD   nolist'
cls
/******************************************************************************/
'                                                   ---------------------------'
'The DO .. END construct executes commands as a    | SCRG2: DEBUG PROCs 2      |'
'block.  Enter the following PROC.  Dots will      | N  = Next Screen          |'
'appear in the prompt indicating the nesting       | R  = Rewrite SCRG2        |'
'level.  Enter:                                    | PR = Previous screen      |'
'                                                  | M  = Go to features menu  |'
'   DEFINE PROC CNT = DO  <Enter>                  | Q  = Quit tutorial        |'
'    WRITE ''ICE-5100''  <Enter>                     | RTN = Return to main path |'
'    WRITE ''252''  <Enter>                          | SCR# = Screen desired     |'
'    END  <Enter>                                   ---------------------------'
' '
'NOTE: If you make a syntax error you must re-type the entire procedure.'
' '
'Now invoke the PROC. Enter: '
' '
'    CNT <Enter> '
' '
'Now remove the proc by entering:'
'    REMOVE CNT <Enter>'
'-------------Enter N <Enter> to continue with this Feature Module--------------'