/******** ICE-5100 EMULATOR (DOS) TUTORIAL FEATURE MODULE SCREEN #G.6 **********/ menu = 1 define literally PR = 'include scrG.5 nolist' define literally R = 'include scrG.6 nolist' define literally N = 'include scrG.7 nolist' define literally M = 'include FMOD nolist' cls /******************************************************************************/ ' ---------------------------' 'You can pass values to PROCs using the symbol "%" | SCRG6: DEBUG PROCs 6 |' 'followed by a number. The following PROC shows | N = Next screen |' 'how this works with a PROC that averages 3 values | R = Rewrite SCRG6 |' 'passed to it. Enter: | PR = Previous screen |' ' | M = Go to features menu |' ' DEFINE PROC AVERAGE = DO | Q = Quit tutorial |' ' DEFINE BYTE RESULT = 0 | RTN = Return to main path |' ' RESULT = (%0 + %1 + %2) / 3 | SCR# = Screen desired |' ' WRITE ''AVERAGE ='',RESULT ---------------------------' ' END ' ' ' 'Set the number base to decimal and execute the PROC by entering: ' ' ' ' BASE = DECIMAL ' ' AVERAGE (9,21,15) ' ' ' 'In a PROC, "% number" refers to the input value position in the calling ' 'command. In procedure AVERAGE, "%0" becomes the first value in the calling ' 'command (9), "%1" becomes 21, and "%3" becomes 15. ' ' ' 'Now remove the proc by entering:' ' REMOVE AVERAGE ' '-------------Enter N to continue with this Feature Module--------------'