/******************************* PRE7 ******************************/
/*           I2ICE TUTORIAL MODULE L PREREQUISITE LOADER           */
/*******************************************************************/
menu = 1
cls
write screen (15t,4t) '        Loading Module prerequisites'
write screen (15t,5t) '---------------------------------------------'
write screen (15t,6t) 'Defining procedure IOPROC '
define proc IOPROC = do
  define char io_char
  if %1 then
    io_char = ci
    portdata = io_char
  else
    io_char = portdata
    write using ('0,>') io_char
  end
end





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 (IOPROC)" '
reset mapio
mapio 0 length 40H ice (ioproc)
write screen (15t,9t)'Setting BASE to hexadecimal '
base=16t
write screen (15t,10t)'Loading CMKER1.ABS '
load cmker1.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 */


