/******** ICE-5100 EMULATOR (DOS) TUTORIAL FEATURE MODULE SCREEN #G.5 **********/
menu = 1
define literally PR = 'include scrG.4 nolist'
define literally R  = 'include scrG.5 nolist'
define literally N  = 'include scrG.6 nolist'
define literally M  = 'include FMOD   nolist'
DEFINE WORD VAR1
cls
/******************************************************************************/
'                                                   ---------------------------'
'The REPEAT .. END construct executes statements   | SCRG5: DEBUG PROCs 5      |'
'WHILE or UNTIL a specified condition is TRUE.     | N  = Next Screen          |'
'                                                  | R  = Rewrite SCRG5        |'
'In the following example, VAR1 is set to zero,    | PR = Previous screen      |'
'then incremented until it is equal to 5.  Enter   | M  = Go to features menu  |'
'the following PROC.  Enter:                       | Q  = Quit tutorial        |'
'                                                  | RTN = Return to main path |'
'   DEFINE PROC INCVAR = DO  <Enter>               | SCR# = Screen desired     |'
'    VAR1 = 0  <Enter>                              ---------------------------'
'    REPEAT  <Enter>'
'     VAR1 = VAR1 + 1  <Enter>'
'     WRITE ''VAR1 ='',VAR1  <Enter>'
'     UNTIL VAR1 == 5  <Enter>'
'     END  <Enter>'
'    END  <Enter> '
' '
'Now invoke the PROC.  Enter: '
' '
'   INCVAR <Enter> '
' '
'Now remove the proc by entering:'
'    REMOVE INCVAR <Enter>'
'-------------Enter N <Enter> to continue with this Feature Module--------------'