/******************************* PRE10 *****************************/
/*           I2ICE TUTORIAL MODULE R PREREQUISITE LOADER           */
/*******************************************************************/
menu = 1
cls
write screen (15t,4t) '        Loading Module prerequisites'
write screen (15t,5t) '---------------------------------------------'
write screen (15t,7t) 'Setting MAP to "0 length 3K HS" '
reset map
map 0 length 3k hs
write screen (15t,8t)'Setting MAPIO to "0 length 40H ICE " '
reset mapio
mapio 0 length 40H ice 
write screen (15t,9t)'Setting BASE to hexadecimal '
base=16t
write screen (15t,10t)'Loading CMKER0.ABS '
load cmker0.abs
write screen (15t,11t)'Defining TOP = $ '
define pointer top = $
write screen (15t,12t)'Setting NAMESCOPE to :CMAKER '
namescope = :cmaker
write screen (15t,13t)'Defining literally CM = :CMAKER '
define literally cm = ':cmaker'
write screen (29t,15t)'LOADING COMPLETE'
write screen (15t,17t)'-------Press the space bar to continue-------'
define char reply = ci
remove reply
cls
GTS  /* go to first screen of module */
