/******** ICE-1500 EMULATOR (DOS) TUTORIAL FEATURE MODULE SCREEN #G.3 *********/
menu = 1
define literally PR = 'include SCRG.2 nolist'
define literally R  = 'include SCRG.3 nolist'
define literally N  = 'include SCRG.4 nolist'
define literally M  = 'include FMOD   nolist'
cls
/******************************************************************************/
'                                                   ---------------------------'
'The IF .. THEN .. ELSE .. END construct is used   | SCRG3: DEBUG PROCs 3      |'
'to check various debug and user variable          | N  = Next Screen          |'
'conditions.                                       | R  = Rewrite SCRG3        |'
'                                                  | PR = Previous screen      |'
'The following example defines a debug variable    | M  = Go to features menu  |'
'named VAR1.  Then a PROC is defined which uses    | Q  = Quit tutorial        |'
'an IF construct to check its value.  Enter:       | RTN = Return to main path |'
'                                                  | SCR# = Screen desired     |'
'   DEFINE WORD VAR1 = 2  <Enter>                   ---------------------------'
' '
'   DEFINE PROC CHKVAR = DO  <Enter> '
'    IF VAR1 == 2 THEN  <Enter>'
'     WRITE ''VAR1 IS 2''  <Enter>'
'     ELSE  <Enter>'
'     WRITE ''VAR1 IS NOT 2''  <Enter>'
'     END  <Enter> '
'    END  <Enter> '
' '
'Now invoke the CHKVAR PROC.  Enter: '
'   CHKVAR <Enter> '
' '
'Now remove the proc by entering:'
'    REMOVE CHKVAR <Enter>'
'-------------Enter N <Enter> to continue with this Feature Module--------------'