/******************************** PRE9 **********************************/
/*                   I2ICE TUTORIAL MODULE N PREREQUISITE LOADER        */
/************************************************************************/
menu = 1
cls
write screen (15T,3T) '        Loading Module prerequisites'
write screen (15t,4t) '---------------------------------------------'
write screen (15t,5t) 'Defining Procedure ASK'
define proc ask = do
curhome
cleareos
write'Are you ready to go on to the next tutorial screen?'
define char xxx = ci
if xxx =='Y' or xxx =='y' then
write'Enter N <Enter> to continue with the tutorial.'
end
end
write screen (29t,13t)'LOADING COMPLETE'
write screen (15t,15t)'-------Press the space bar to continue------'
define char reply = ci
remove reply
cls
GTS
