/******** ICE-1500 EMULATOR (DOS) TUTORIAL FEATURE MODULE SCREEN #G.4 *********/
menu = 1
define literally PR = 'include SCRG.3 nolist'
define literally R  = 'include SCRG.4 nolist'
define literally N  = 'include SCRG.5 nolist'
define literally M  = 'include FMOD   nolist'
DEFINE WORD VAR1 = 2
cls
/******************************************************************************/
'                                                   ---------------------------'
'The COUNT .. END construct is used to execute     | SCRG4: DEBUG PROCs 4      |'
'statements a specified number of times.           | N  = Next Screen          |'
'                                                  | R  = Rewrite SCRG4        |'
'The following example squares the value of VAR1   | PR = Previous screen      |'
'three times.  Enter the following PROC.  Enter:   | M  = Go to features menu  |'
'                                                  | Q  = Quit tutorial        |'
'   DEFINE PROC SQRVAR = DO  <Enter>               | RTN = Return to main path |'
'    COUNT 3  <Enter>                              | SCR# = Screen desired     |'
'     VAR1 = VAR1 * VAR1  <Enter>                   ---------------------------'
'     WRITE ''VAR1 ='',VAR1  <Enter>'
'     END  <Enter> '
'    END  <Enter>'
' '
'Now invoke the PROC.  Enter: '
' '
'   SQRVAR  <Enter> '
' '
'Now remove the proc by entering:'
'    REMOVE SQRVAR <Enter>'
'-------------Enter N <Enter> to continue with this Feature Module--------------'