/******** ICE-5100 EMULATOR (DOS) TUTORIAL FEATURE MODULE SCREEN #K.3 **********/
menu = 1
define literally PR = 'include scrK.2 nolist'
define literally R  = 'include scrK.3 nolist'
define literally N  = 'include scrK.4 nolist'
define literally M  = 'include FMOD   nolist'
load MESSG
namescope = rotate
define proc CHKREG = do
  write ' '                          /* Display a blank line */
  REGS                               /* Display registers */
  write 'Do you wish to break (y/n)?'
  define char REPLY = ci             /* Read a single character from keyboard */
  IF (REPLY == 'Y') or (REPLY == 'y') then
    return TRUE
  ELSE
    return FALSE
  ENDIF
end   /* of CHKREG */
cls
/******************************************************************************/
'                                                   ---------------------------'
'A debug procedure named CHKREG was defined when   | SCRK3: BREAK REGISTERS 3  |'
'this feature module was started.  This debug      | N  = Next screen          |'
'procedure displays the values of the emulator     | R  = Rewrite SCRK3        |'
'registers and asks the user if a break is desired.| PR = Previous screen      |'
'You can examine this procedure by entering:       | M  = Go to features menu  |'
'                                                  | Q  = Quit tutorial        |'
'   PROC CHKREG <Enter>                            | RTN = Return to main path |'
'                                                  | SCR# = Screen desired     |' 
'Now define a BRKREG to call the CHKREG procedure.  ---------------------------'
'Enter:'
' '
'   DEFINE BRKREG BRK2 = #29 CALL CHKREG <Enter> '
' '
'Re-execute the GO command.  Use the <Up-Arrow> key to retrieve the previous'
'GO USING command and modify it to use BRK2:'
' '
'   GO USING BRK2 <Enter> '
' '
'-------------Enter N <Enter> to continue with this Feature Module--------------'