/******************************** TMAC FOR MODM ******************************/
menu = 1
cls
write screen(20t,7t) 'Loading prerequisites for Module M'
write screen(20t,8t)'----------------------------------'
write screen(20t,11t) 'Defining procedure A1'
write screen(20t,13t) 'Defining procedure A2'
define proc A1 =DO
'******************** WELCOME TO THE I2ICE SCREEN EDITOR *********************'
'You are now in the I2ICE edit mode.  While using the editor, you are unable  '
'to access I2ICE operating software.  The I2ICE editor is a menu-driven edi-  '
'tor capable of performing many different functions.  Note the menu at the    '
'bottom of the screen.  It is a circular menu (as in the I2ICE software) that '
'you move through using the tab key.  Do this now, noting the various edit    '
'commands available.  You can choose an item from the menu by entering the    '
'first letter of that item.  Before we get the file containing our source pro-'
'gram from the tutorial directory on the hard disk, you should become familiar'
'with some of the screen edit commands that allow movement within the editor. '
'    <UP-ARROW> key................Moves the cursor up one row                '
'    <DOWN-ARROW> key..............Moves the cursor down one row              '
'    <DOWN-ARROW> and <Home> key...Displays the next page                     '
'    <UP-ARROW> and <Home> key.....Displays the previous page                 '
'Next we will use the editor and look at the source code for our sample pro-  '
'gram.  Using the <DOWN-ARROW> key, scroll the cursor past the line of aster- '
'isks (*) and the word END below.  To retrieve the source code file from the  '
'disk we will use the GET command.  Enter G.  The editor prompts you for the  '
'input file name.  Enter                                                      '
'    CMKER2.S1 <Enter>                                                        '
'*****************************************************************************'
 END

define proc A2=do
'***************WELCOME AGAIN TO THE I2ICE SCREEN EDITOR *********************'
'Screen editing is necessary when editing debug procedures, debug registers,  '
'LITERALLYs, or files (e.g., source and listing files).  Several of the       '
'screen editor commands prompt you for additional information or display sub- '
'menus from which you can choose.  Before we begin to use the editor to       '
'correct our source code, let`s review some of the screen editor commands and '
'add some new ones to the list.                                               '
'  <UP-ARROW>..............Moves the cursor up one row                        '
'  <DOWN-ARROW>............Moves the cursor down one row                      '
'  <UP-ARROW> & <Home>.....Displays the previous page                         '
'  <DOWN-ARROW> & <Home>...Displays the next page                             '
'  Find...........Searches forward from the cursor for a specified string     '
'  -find..........Searches backwards from the cursor for a specified string   '
'  Replace........Searches for a specified string and replaces it with a new  '
'                 string or deletes it if found                               '
'  Xchange........Enables you to replace characters by typing over them       '
'You need to bring the file containing the source code in from the hard disk. '
'Position the cursor below the line of asterisks (*) and the word END below.  '
'Enter G.  Enter the input file name:                                         '
'   CMKER2.S2 <Enter>                                                         '
'After you have entered the above command, use the <DOWN-ARROW> key.          '
'*****************************************************************************'
END

write screen(29t,16t) 'LOADING COMPLETE'
write screen(20t,19t) '-----Hit the spacebar to continue-----'
define char reply = ci
remove reply
cls
GTS