/******************************* PRE4 ******************************/
/*           (DOS) FEATURE MODULE K PREREQUISITE LOADER            */
/*******************************************************************/
menu = 1
cls
write screen (15t,4t) '    Loading Feature Module prerequisites'
write screen (15t,5t) '---------------------------------------------'
write screen (15t,7t) 'Loading the sample program MESSG '
load MESSG
write screen (15t,9t) 'Setting NAMESCOPE to ROTATE'
namescope = rotate
write screen (15t,11t)'Defining CHKREG PROC (used in this module) '
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 */
write screen (29t,14t)'LOADING COMPLETE'
write screen (15t,16t)'-----------Press any key to continue-----------'
define char reply = ci
remove reply
cls
GTS  /* go to first screen of module */
