/******************************* PRE3 ******************************/
/*            (DOS) FEATURE MODULE J 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
set :main_display to messg.lst
source = false
write screen (15t,9t) 'Setting NAMESCOPE to ROTATE'
namescope = rotate
write screen (15t,11t)'Clearing any current break conditions'
go from 0 forever;halt                   /* clear break conditions */
cury=0;cleareol
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 */