/******** ICE-1500 EMULATOR (DOS) TUTORIAL FEATURE MODULE SCREEN #G.2 *********/ menu = 1 define literally PR = 'include SCRG.1 nolist' define literally R = 'include SCRG.2 nolist' define literally N = 'include SCRG.3 nolist' define literally M = 'include FMOD nolist' cls /******************************************************************************/ ' ---------------------------' 'The DO .. END construct executes commands as a | SCRG2: DEBUG PROCs 2 |' 'block. Enter the following PROC. Dots will | N = Next Screen |' 'appear in the prompt indicating the nesting | R = Rewrite SCRG2 |' 'level. Enter: | PR = Previous screen |' ' | M = Go to features menu |' ' DEFINE PROC CNT = DO <Enter> | Q = Quit tutorial |' ' WRITE ''ICE-5100'' <Enter> | RTN = Return to main path |' ' WRITE ''252'' <Enter> | SCR# = Screen desired |' ' END <Enter> ---------------------------' ' ' 'NOTE: If you make a syntax error you must re-type the entire procedure.' ' ' 'Now invoke the PROC. Enter: ' ' ' ' CNT <Enter> ' ' ' 'Now remove the proc by entering:' ' REMOVE CNT <Enter>' '-------------Enter N <Enter> to continue with this Feature Module--------------'