/******** ICE-5100 EMULATOR (DOS) TUTORIAL FEATURE MODULE SCREEN #G.7 **********/
menu = 1
define literally PR = 'include scrG.6 nolist'
define literally R  = 'include scrG.7 nolist'
define literally N  = '''To go to the next screen, enter RTN or M'''
define literally M  = 'include FMOD   nolist'
cls
/******************************************************************************/
'Procedures can be used to read characters from      ---------------------------'
'the keyboard using the CI (char in) function.     | SCRG7: DEBUG PROCs 7      |'
'Create and execute procedure CHK.  Enter:         | N  = Next screen          |'
'                                                  | R  = Rewrite SCRG7        |'
'   DEFINE PROC CHK = DO  <Enter>                  | PR = Previous screen      |'
'    WRITE ''EXAMINE REG (y/n)?''  <Enter>           | M  = Go to features menu  |'
'    DEFINE BYTE REPLY = CI  <Enter>               | Q  = Quit tutorial        |'
'    IF (REPLY == ''Y'') OR  <Enter>                 | RTN = Return to main path |'
'     (REPLY == ''y'') THEN  <Enter>                 | SCR# = Screen desired     |' 
'     REGS  <Enter>                                 --------------------------- '
'     END  <Enter>'
'    END  <Enter>'
'   CHK <Enter>'
' '
'Reset the base to HEX and remove the PROC you have just defined before'
'continuing with the tutorial. '
'Enter:'
'   BASE = HEX <Enter> '
'   REMOVE CHK <Enter>'
' '
'This ends Feature Module G.  Enter RTN <Enter> to return to the main path of'
'the tutorial, or M <Enter> to go to the features menu.'
'########################## END OF FEATURE MODULE G ############################'