/******************************* PRE3 ******************************/
/*           I2ICE TUTORIAL MODULE 3 PREREQUISITE LOADER           */
/*******************************************************************/
menu = 1
cls
write screen (15t,5t) '        Loading Module prerequisites '
write screen (15t,6t) '---------------------------------------------'

write screen (15t,7t) '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,8t) 'Setting MAP to "0 length 3K HS" '
reset map
map 0 length 3k hs
write screen (15t,9t)'Setting MAPIO to "0 length 40H ICE (IOPROC)" '
reset mapio
mapio 0 length 40H ice (ioproc)
write screen (15t,10t)'Setting BASE to hexadecimal '
base=16t
write screen (15t,11t)'Loading CMKER2.ABS '
load cmker2.abs
write screen (15t,12t)'Defining TOP = $ '
define pointer top = $
write screen (15t,13t)'Setting NAMESCOPE to :CMAKER '
namescope = :cmaker
write screen (15t,14t)'Defining literally CM = :CMAKER '
define literally cm = ':cmaker'
write screen (15t,15t)'Resetting BREAK '
reset break
write screen (15t,16t)'Defining literally DEF = DEFINE, LIT = LITERALLY '
define literally def = 'define'
define literally lit = 'literally'

write screen (29t,17t)'LOADING COMPLETE'
write screen (15t,18t)'-------Press the space bar to continue-------'
define char reply = ci
remove reply
cls
GTS  /* go to first screen of module */
