/******************************* PRE1 ******************************/
/*          (DOS) MAIN PATH MODULE 2 PREREQUISITE LOADER           */
/*******************************************************************/
menu = 1
cls
write screen(15t,5t)  '       Loading Module 2 Prerequisites'
write screen(15t,6t)  '---------------------------------------------'
write screen(15t,8t)  'Loading the sample program MESSG '
source = false
presrc = 0
postsrc = 0
load MESSG
write screen (15t,10t)'Setting NAMESCOPE to ROTATE'
namescope = rotate
write screen (15t,12t)'Mapping 0K to 12K ICE '
map 0k length 12k ice
write screen (29t,15t)'LOADING COMPLETE'
write screen (15t,17t)'-----------Press any key to continue-----------'
define char reply = ci
remove reply
cls
GTS  /* go to first screen of module */
