/******** ICE-5100 EMULATOR (DOS) TUTORIAL FEATURE MODULE SCREEN #H.3 **********/ menu = 1 define literally PR = 'include scrH.2 nolist' define literally R = 'include scrH.3 nolist' define literally N = 'include scrH.4 nolist' define literally M = 'include FMOD nolist' load MESSG namescope = rotate cls /******************************************************************************/ ' ---------------------------' 'Once NAMESCOPE is set to a procedure, you can | SCRH3: NAMESCOPE 3 |' 'reference variables in any higher-level enclosing | N = Next screen |' 'procedure without preceding them with the module | R = Rewrite SCRH3 |' 'name. For example, the following variable | PR = Previous screen |' 'references in MESSG are still legal. Enter: | M = Go to features menu |' ' | Q = Quit tutorial |' ' INT_FLAG | RTN = Return to main path |' ' BYTE .DISP_BUFFER LENGTH 32T | SCR# = Screen desired |' ' ---------------------------' 'NOTE: NAMESCOPE must be set to the starting address of a procedure to work ' 'correctly.' ' ' '-------------Enter N to continue with this Feature Module--------------'