/************************** I2ICE TUTORIAL SCREEN #26 **************************/ menu=1 define literally P = 'include scr.25 nolist' define literally R = 'include scr.26 nolist' define literally RTN = 'include scr.26 nolist' define literally N = 'include scr.27 nolist' define literally M = 'include scr.2 nolist' cls /*******************************************************************************/ ' ------------------------' 'In SCR24 we saw that VALUE, when passed to PUR- | SCR26: BREAKPOINT |' 'CHASED, is 0 instead of 108. What about VALUE when | M = Go to main menu |' 'passed to PAID? Since emulation calls GET_INPUT | N = Next screen |' 'twice, the second call erases the first value in | P = Previous screen |' 'VALUE. To examine VALUE after the first call, we | Q = Quit tutorial |' 'need to break emulation after VALUE is computed the | R = Rewrite SCR26 |' 'first time. Since line 75 returns VALUE to the | SCR# = Screen desired |' 'calling procedure, let''s use a breakpoint to break ------------------------' 'the first time line 75 is executed. Breakpoints ' 'can be specified in the GO command using the TIL option. Enter the following' '(entering 150 when prompted). Remember you can now omit :CMAKER.' ' GO FROM TOP TIL :CMAKER#75; WAIT ' 'Emulation broke at :CMAKER#75 as requested. (NOTE: In some circumstances' 'breakpoint slippage may be indicated; the number of bytes slipped is given' 'as a number following a "+" symbol in the emulation break message.) Will' 'VALUE be set to the 150 you supplied? Enter' ' VALUE ' 'Once again VALUE equals zero. (Notice that here you do not need a fully qual-' 'ified reference. If emulation breaks within a procedure, you can omit the ' 'qualifiers needed to refer to the procedure.)' '-------------------------------------------------------------------------------'