/******************************* PRE2 ******************************/
/*           I2ICE TUTORIAL MODULE 2 PREREQUISITE LOADER           */
/*******************************************************************/
menu = 1
cls
write screen (15t,3t) '        Loading Module prerequisites'
write screen (15t,4t) '---------------------------------------------'
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 CMKER2.ABS '
load cmker2.abs
write screen (15t,11t)'Defining TOP = $ '
define pointer top = $
write screen (15t,12t)'Resetting BREAK '
reset break
write screen (15t,13t) 'Defining Procedure BUG1'
define proc bug1 = do
value=value*10T
value=value+"char-'0'
$=:cmaker#74
return false
end
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 */
