ࡱ>  ( / 00DArialr Ne2(0(z[ 0 DTahoma Ne2(0(z[ 0 " DWingdings2(0(z[ 0 0DCourier New2(0(z[ 0 1 A .  @n?" dd@  @@`` `+%      !"#$%&'()* 0AA@83ʚ;ʚ;g4SdSd@z[ 0ppp@ <4ddddl 01 80___PPT10 *Grouchy Programmers meet Hidden Features!!DEBUG Testing Program%> debug > + Program AJGTEST Lib TEST All ....+....1....+....>>> Source has been stowed <<<..+....Mode Struct.. 0010 DEFINE DATA LOCAL 0020 1 #I (P3) 0030 1 #WORD (A10) 0040 END-DEFINE 0050 * 0060 FOR #I = 1 TO 10 0070 /* 0080 ASSIGN #WORD = 'STUDY' 0090 ASSIGN #WORD = 'HARDER' X 0100 ASSIGN #WORD = 'GREAT' 0110 ASSIGN #WORD = 'GPA' 0120 /* 0130 IF #I = 3 0140 ASSIGN #WORD = 'GRADUATE!' 0150 END-IF 0160 /* 0170 END-FOR 0180 * 0190 END 0200&P& \DEBUG Menu  Type  DEBUG at the Command line/!17:41:26 *** NATURAL TEST UTILITIES *** 98-04-07 Test Mode OFF - Debug Main Menu - Object Code Function ---- ----------------------------- T Set Test Mode ON E Debug Environment Maintenance S Spy Maintenance B Breakpoint Maintenance W Watchpoint Maintenance C Call Statistic Maintenance L List Object Source V Variable Facility ? Help . Exit ---- ----------------------------- Code .. l Object Name .. ajgtest_ Command ===> Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- Help Exit Last Flip CancP , AList Object Source 17:42:08 *** NATURAL TEST UTILITIES *** 98-04-07 Test Mode OFF - List Object Source - Object AJGTEST Top of Data C Line Source Message -- ---- ------------------------------------------------------- ------------ __ 0010 DEFINE DATA LOCAL : __ 0020 1 #I (P3) : __ 0030 1 #WORD (A10) : __ 0040 END-DEFINE : __ 0050 * : __ 0060 FOR #I = 1 TO 10 : __ 0070 /* : __ 0080 ASSIGN #WORD = 'STUDY' : __ 0090 ASSIGN #WORD = 'HARDER' : se 0100 ASSIGN #WORD = 'GREAT' : __ 0110 ASSIGN #WORD = 'GPA' : __ 0120 /* : __ 0130 IF #I = 10 : __ 0140 ASSIGN #WORD = 'GRADUATE!' : __ 0150 END-IF : Command ===> Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- Help Exit Last Scan Flip - + Left Right Canc!P! Set Breakpoint,17:42:44 *** NATURAL TEST UTILITIES *** 98-04-07 Test Mode OFF - List Object Source - Object AJGTEST Top of Data C Line Source Message -- ---- ------------------------------------------------------- ------------ __ 0010 DEFINE DATA LOCAL : __ 0020 1 #I (P3) : __ 0030 1 #WORD (A10) : __ 0040 END-DEFINE : __ 0050 * : __ 0060 FOR #I = 1 TO 10 : __ 0070 /* : __ 0080 ASSIGN #WORD = 'STUDY' : __ 0090 ASSIGN #WORD = 'HARDER' : __ 0100 ASSIGN #WORD = 'GREAT' : AJGTEST0100 __ 0110 ASSIGN #WORD = 'GPA' : __ 0120 /* : __ 0130 IF #I = 10 : __ 0140 ASSIGN #WORD = 'GRADUATE!' : __ 0150 END-IF : Command ===> Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- Help Exit Last Scan Flip - + Left Right Canc-P-  Build Watchpoint 17:43:53 *** NATURAL TEST UTILITIES *** 98-04-07 Test Mode OFF - Debug Main Menu - Object AJGTEST Code Function ---- ----------------------------- T Set Test Mode ON E Debug Environment Maintenance S Spy Maintenance B Breakpoint Maintenance W Watchpoint Maintenance C Call Statistic Maintenance L List Object Source V Variable Facility ? Help . Exit ---- ----------------------------- Code .. w Object Name .. AJGTEST_ Command ===> Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- Help Exit Last Flip CancP   Define Watchpoint Variable  17:50:27 *** NATURAL TEST UTILITIES *** 98-04-07 Test Mode OFF - Watchpoint Maintenance - Object AJGTEST Code Function ---- --------------------- T Set Test Mode ON A Activate Watchpoint B Deactivate Watchpoint C Delete Watchpoint D Display Watchpoint M Modify Watchpoint S Set Watchpoint ? Help . Exit ---- --------------------- Code .. s Object ...... AJGTEST_ Variable .... #word______________________________ Command ===> Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- Help Exit Last Flip CancP l  * & ' & #  Set Watchpoint 17:52:14 *** NATURAL TEST UTILITIES *** 98-04-07 Test Mode OFF - Watchpoint Maintenance - Object AJGTEST Code Function ---- --------------------- T Set Test Mode ON A Activate Watchpoint B Deactivate Watchpoint C Delete Watchpoint D Display Watchpoint M Modify Watchpoint S Set Watchpoint ? Help . Exit ---- --------------------- Code .. m Object ...... AJGTEST_ Variable .... #WORD___________________________ Watchpoint #WORD set for variable #WORD . Command ===> Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- Help Exit Last Flip CancP l  * & ' & #   Modify Watchpoint 417:58:46 *** NATURAL TEST UTILITIES *** 98-04-07 Test Mode OFF - Modify Watchpoint - Object AJGTEST Spy Number ............... 2 Initial State ............ A ( A - Active, P - Pending) Watchpoint Name .......... #WORD_______ Object Name .............. AJGTEST_ Variable Name ............ #WORD_____________________________________ Skips before Execution.... 0____ Number of Executions ..... 0____ Commands .. BREAK_______________________________________________________ ____________________________________________________________ ____________________________________________________________ ____________________________________________________________ ____________________________________________________________ ____________________________________________________________ Command ===> Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- Help Exit Last Save Flip Alpha Hex Canc5P5 ,v w 4  Open Modificationj18:01:47 *** NATURAL TEST UTILITIES *** 98-04-07 Test Mode OFF - Modify Watchpoint (alphanumeric) - Object AJGTEST Spy Number ............... 2 Initial State ............ A ( A - Active, P - Pending) Watchpoint Name .......... #WORD Object Name .............. AJGTEST Variable Name ............ #WORD Skips before Execution ... 0 Number of Executions ..... 0 MOD __________ __________ Command ===> Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- Help Exit Last Save Flip Alpha Hex CanckPk ,o  h Modify Watch Values`18:01:47 *** NATURAL TEST UTILITIES *** 98-04-07 Test Mode OFF - Modify Watchpoint (alphanumeric) - Object AJGTEST Spy Number ............... 2 Initial State ............ A ( A - Active, P - Pending) Watchpoint Name .......... #WORD Object Name .............. AJGTEST Variable Name ............ #WORD Skips before Execution ... 0 Number of Executions ..... 0 eq graduate!_ Command ===> Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- Help Exit Last Save Flip Alpha Hex CancaPa >o   Return to DEBUG Menu 18:05:35 *** NATURAL TEST UTILITIES *** 98-04-07 Test Mode OFF - Watchpoint Maintenance - Object AJGTEST Code Function ---- --------------------- T Set Test Mode ON A Activate Watchpoint B Deactivate Watchpoint C Delete Watchpoint D Display Watchpoint M Modify Watchpoint S Set Watchpoint ? Help . Exit ---- --------------------- Code .. _ Object ...... AJGTEST_ Variable .... #WORD___________________________ Watchpoint #WORD modified. Command ===> Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- Help Exit Last Flip CancP l  * & ' & #   Activate DEBUGger 18:06:35 *** NATURAL TEST UTILITIES *** 98-04-07 Test Mode OFF - Debug Main Menu - Object AJGTEST Code Function ---- ----------------------------- T Set Test Mode ON E Debug Environment Maintenance S Spy Maintenance B Breakpoint Maintenance W Watchpoint Maintenance C Call Statistic Maintenance L List Object Source V Variable Facility ? Help . Exit ---- ----------------------------- Code .. t Object Name .. AJGTEST_ Command ===> Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- Help Exit Last Flip CancP   *How you know it s on!18:07:59 *** NATURAL TEST UTILITIES *** 98-04-07 Test Mode ON - Debug Main Menu - Object AJGTEST Code Function ---- ----------------------------- T Set Test Mode OFF E Debug Environment Maintenance S Spy Maintenance B Breakpoint Maintenance W Watchpoint Maintenance C Call Statistic Maintenance L List Object Source V Variable Facility ? Help . Exit ---- ----------------------------- Code .. _ Object Name .. AJGTEST_ Test mode started. Command ===> Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- Help Exit Last Flip CancRPP      Execute the Program!r> AJGTEST > + Program AJGTEST Lib TEST All ....+....1....+....>>> Source has been stowed <<<..+....Mode Struct.. 0010 DEFINE DATA LOCAL 0020 1 #I (P3) 0030 1 #WORD (A10) 0040 END-DEFINE 0050 * 0060 FOR #I = 1 TO 10 0070 /* 0080 ASSIGN #WORD = 'STUDY' 0090 ASSIGN #WORD = 'HARDER' X 0100 ASSIGN #WORD = 'GREAT' 0110 ASSIGN #WORD = 'GPA' 0120 /* 0130 IF #I = 3 0140 ASSIGN #WORD = 'GRADUATE!' 0150 END-IF 0160 /* 0170 END-FOR 0180 * 0190 END 0200 ....+..Current Source Size: 312 Char. Free: 126361 ...+... S 19 L 1sPs <First Breakpoint   L to List> AJGTEST > + Program AJGTEST Lib TEST All ....+....1....+....>>> Source has been stowed <<<..+....Mode Struct.. 0010 DEFINE DATA +-----------------------------------+ 0020 1 #I (P3) | >>> Debugging Facility <<< | 0030 1 #WORD (A10 | | 0040 END-DEFINE | Break by Breakpoint AJGTEST0100 | 0050 * | at line 100 of object AJGTEST | 0060 FOR #I = 1 T | | 0070 /* | G Go | 0080 ASSIGN #WO | L List Break | 0090 ASSIGN #WO | M Debug Main Menu | X 0100 ASSIGN #WO | R Run (Test Mode Off) | 0110 ASSIGN #WO | V Variable Facility | 0120 /* | | 0130 IF #I = 3 | Enter Code ..: l | 0140 ASSIGN # | | 0150 END-IF +-----------------------------------+ 0160 /* 0170 END-FOR 0180 * 0190 END 0200 ....+..Current Source Size: 312 Char. Free: 126361 ...+... S 19 L 1P Display the Variable18:37:41 *** NATURAL TEST UTILITIES *** 98-04-07 Test Mode ON - List Object Source - Object AJGTEST C Line Source Message -- ---- ------------------------------------------------------- ------------ __ 0030 1 #WORD (A10) : __ 0040 END-DEFINE : __ 0050 * : __ 0060 FOR #I = 1 TO 10 : __ 0070 /* : __ 0080 ASSIGN #WORD = 'STUDY' : __ 0090 ASSIGN #WORD = 'HARDER' : Lastline __ 0100 ASSIGN #WORD = 'GREAT' : AJGTEST0100 __ 0110 ASSIGN #WORD = 'GPA' : __ 0120 /* : __ 0130 IF #I = 3 : __ 0140 ASSIGN #WORD = 'GRADUATE!' : __ 0150 END-IF : __ 0160 /* : __ 0170 END-FOR : Command ===> display variable #i Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- Help Step Exit Last Scan Flip - + Li Br Left Right CancNP   J  Edit Variable Value18:42:45 *** NATURAL TEST UTILITIES *** 98-04-07 Test Mode ON - Display Variable (alphanumeric) - Object AJGTEST Variable .. #I Format .... P 3.0 1 Command ===> Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- Help Step Exit Last Mod Flip Li Br Alpha Hex CancP >Return to Program List and  GO  (18:46:13 *** NATURAL TEST UTILITIES *** 98-04-07 Test Mode ON - List Object Source - Object AJGTEST C Line Source Message -- ---- ------------------------------------------------------- ------------ __ 0030 1 #WORD (A10) : __ 0040 END-DEFINE : __ 0050 * : __ 0060 FOR #I = 1 TO 10 : __ 0070 /* : __ 0080 ASSIGN #WORD = 'STUDY' : __ 0090 ASSIGN #WORD = 'HARDER' : Lastline __ 0100 ASSIGN #WORD = 'GREAT' : AJGTEST0100 __ 0110 ASSIGN #WORD = 'GPA' : __ 0120 /* : __ 0130 IF #I = 3 : __ 0140 ASSIGN #WORD = 'GRADUATE!' : __ 0150 END-IF : __ 0160 /* : __ 0170 END-FOR : Command ===>GO Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- Help Step Exit Last Scan Flip - + Li Br Left Right CancP Type  G twice18:46:13 *** NATURAL TEST UTILITIES *** 98-04-07 Test Mode ON - List Object Source - Object AJGTEST C Line Source +-----------------------------------+ Message -- ---- ---------- | >>> Debugging Facility <<< | ------ ------------ __ 0030 1 #WORD (A | | : __ 0040 END-DEFINE | Break by Breakpoint AJGTEST0100 | : __ 0050 * | at line 100 of object AJGTEST | : __ 0060 FOR #I = 1 | | : __ 0070 /* | G Go | : __ 0080 ASSIGN # | L List Break | : __ 0090 ASSIGN # | M Debug Main Menu | : Lastline __ 0100 ASSIGN # | R Run (Test Mode Off) | : AJGTEST0100 __ 0110 ASSIGN # | V Variable Facility | : __ 0120 /* | | : __ 0130 IF #I = | Enter Code ..: g | : __ 0140 ASSIGN | | : __ 0150 END-IF +-----------------------------------+ : __ 0160 /* : __ 0170 END-FOR : Command ===> go Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- Help Step Exit Last Scan Flip - + Li Br Left Right CancP 0Type  L to List Program18:46:13 *** NATURAL TEST UTILITIES *** 98-04-07 Test Mode ON - List Object Source - Object AJGTEST C Line Source +-----------------------------------+ Message -- ---- ---------- | >>> Debugging Facility <<< | ------ ------------ __ 0030 1 #WORD (A | | : __ 0040 END-DEFINE | Break by Watchpoint #WORD | : __ 0050 * | at line 170 of object AJGTEST | : __ 0060 FOR #I = 1 | | : __ 0070 /* | G Go | : __ 0080 ASSIGN # | L List Break | : __ 0090 ASSIGN # | M Debug Main Menu | : Lastline __ 0100 ASSIGN # | R Run (Test Mode Off) | : AJGTEST0100 __ 0110 ASSIGN # | V Variable Facility | : __ 0120 /* | | : __ 0130 IF #I = | Enter Code ..: l | : __ 0140 ASSIGN | | : __ 0150 END-IF +-----------------------------------+ : __ 0160 /* : __ 0170 END-FOR : Command ===> go Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- Help Step Exit Last Scan Flip - + Li Br Left Right CancP , i Display #WORD18:53:36 *** NATURAL TEST UTILITIES *** 98-04-07 Test Mode ON - List Object Source - Object AJGTEST Bottom of Data C Line Source Message -- ---- ------------------------------------------------------- ------------ __ 0100 ASSIGN #WORD = 'GREAT' : AJGTEST0100 __ 0110 ASSIGN #WORD = 'GPA' : __ 0120 /* : __ 0130 IF #I = 3 : __ 0140 ASSIGN #WORD = 'GRADUATE!' : Lastline __ 0150 END-IF : __ 0160 /* : __ 0170 END-FOR : #WORD __ 0180 * : __ 0190 END : Command ===> display variable #word Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- Help Step Exit Last Scan Flip - + Li Br Left Right CancP  GRADUATE! 18:59:19 *** NATURAL TEST UTILITIES *** 98-04-07 Test Mode ON - Display Variable (alphanumeric) - Object AJGTEST Variable .. #WORD Format .... A 10 GRADUATE! Command ===> stop Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- Help Step Exit Last Mod Flip Li Br Alpha Hex CancP End Session - STOPPF3= EXIT takes you back a screen PF2 steps thru code one line at a time DI VA is the same as DISPLAY VARIABLE STOP returns to program editor RUN turns off DEBUG and continues program execution.SYSVAR Command{ - System Variables - Variable Name Fmt Contents *APPLIC-ID A8 TEST *APPLIC-NAME A32 TEST Functions *COM A128  |z STEP SKIPSUBLEVEL Command(TEST MODE ON - LIST OBJECT SOURCE - OBJECT DEBUG2 CO LINE SOURCE MESSAGE __ 0300 INPUT USING MAP 'DEBUG2M' | __ 0310 * | __ 0320 IF *PF-KEY EQ 'PF3' | LAST LINE __ 0330 WRITE 'EXIT MAIN' | __ 0340 ESCAPE ROUTINE | __ 0350 END-IF | __ 0360 * | __ 0370 PERFORM DEBUG2S-CHECK-REGISTRATION #REGISTER-ERROR # | STEP MODE __ 0380 * | __ 0390 IF #REGISTER-ERROR | __ 0400 REINPUT 'INVALID REGISTRATION' ALARM | __ 0410 END-IF | __ 0420 * | __ 0430 * | __ 0440 END-REPEAT | P ,PF17  Skip Subroutineu__ 0370 PERFORM DEBUG2S-CHECK-REGISTRATION #REGISTER-ERROR # | __ 0380 * | __ 0390 IF #REGISTER-ERROR | STEP MODE __ 0400 REINPUT 'INVALID REGISTRATION' ALARM | __ 0410 END-IF | vu PF21 To See Last LineTEST MODE ON - LIST OBJECT SOURCE - OBJECT DEBUG2S BOTTOM OF DATA CO LINE SOURCE MESSAGE __ 0270 DEFINE SUBROUTINE DEBUG2S-CHECK-REGISTRATION | __ 0280 * | __ 0290 IF #VEH.REG-NUM EQ ' ' | __ 0300 MOVE TRUE TO #REGISTER-ERROR | __ 0310 ELSE | __ 0320 MOVE FALSE TO #REGISTER-ERROR | __ 0330 END-IF | __ 0340 * | __ 0350 * IF #REGISTER-ERROR | __ 0360 * WRITE 'INVALID REGISTRATION' | __ 0370 * END-IF | __ 0380 * | __ 0390 END-SUBROUTINE | __ 0400 * | __ 0410 END | P  OBJCHAIN,TEST MODE ON - LIST OBJECT SOURCE - OBJECT DEBUG2M BOTTOM OF DATA CO LINE SOURCE MESSAGE __ 0030 / | __ 0031 / | __ 0032 / | __ 0033 / | __ 0034 / | __ 0035 / | __ 0036 / | __ 0037 / | __ 0038 / | __ 0039 / | __ 0040 / | __ 0041 / | __ 0042 * MAP2: VALIDATION ************************************ | __ 0043 * MAP2: END OF MAP ************************************ | __ 0044 END | STEP MODE COMMAND ===> OBJCHAIN ENTER-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- HELP STEP EXIT LAST SCAN FLIP - + LI BR < > CANC $-P+  !Results{ - BREAK INFORMATION - NO GDA ACTIVE FOR THE CURRENT PROGRAM. BREAK BY STEP MODE AT LINE 44 IN MAP DEBUG2M (LEVEL 2) IN LIBRARY TRTEST IN SYSTEM FILE (111,111). - CURRENT OBJECT CHAIN - LEVEL NAME TYPE LINE LIBRARY DBID FNR 2 DEBUG2M MAP 12 TRTEST 111 111 1 DEBUG2 PROGRAM 300 TRTEST 111 111 || ,&N"$STEP # - STEP set number of Commands%% TEST MODE ON - LIST OBJECT SOURCE - OBJECT DEBUG2 CO LINE SOURCE MESSAGE __ 0320 IF *PF-KEY EQ 'PF3' | DEBUG20320 __ 0330 WRITE 'EXIT MAIN' | __ 0340 ESCAPE ROUTINE | __ 0350 END-IF | __ 0360 * | __ 0370 PERFORM DEBUG2S-CHECK-REGISTRATION #REGISTER-ERROR # | __ 0380 * | __ 0390 WRITE #REGISTER-ERROR | STEP MODE __ 0400 WRITE #VEH.REG-NUM | __ 0410 WRITE #VEH.PERSONNEL-ID | __ 0420 WRITE #VEH.CURR-CODE | __ 0430 WRITE #I | __ 0440 IF #REGISTER-ERROR | __ 0450 REINPUT 'INVALID REGISTRATION' ALARM | __ 0460 END-IF | COMMAND ===> STEP 4 ENTER-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- HELP STEP EXIT LAST SCAN FLIP - + LI BR < > CANC P #Results STEP 4TEST MODE ON - LIST OBJECT SOURCE - OBJECT DEBUG2 CO LINE SOURCE MESSAGE __ 0360 * | __ 0370 PERFORM DEBUG2S-CHECK-REGISTRATION #REGISTER-ERROR # | __ 0380 * | __ 0390 WRITE #REGISTER-ERROR | __ 0400 WRITE #VEH.REG-NUM | __ 0410 WRITE #VEH.PERSONNEL-ID | __ 0420 WRITE #VEH.CURR-CODE | LAST LINE __ 0430 WRITE #I | STEP MODE __ 0440 IF #REGISTER-ERROR | __ 0450 REINPUT 'INVALID REGISTRATION' ALARM | __ 0460 END-IF | __ 0470 * | __ 0480 * | __ 0490 END-REPEAT | __ 0500 * | P $ Check Values on the Stack+TEST MODE ON - LIST OBJECT SOURCE - OBJECT DEBUG2 CO LINE SOURCE MESSAGE __ 0360 * | __ 0370 PERFORM DEBUG2S-CHECK-REGISTRATION #REGISTER-ERROR # | __ 0380 * | __ 0390 WRITE #REGISTER-ERROR | __ 0400 WRITE #VEH.REG-NUM | __ 0410 WRITE #VEH.PERSONNEL-ID | __ 0420 WRITE #VEH.CURR-CODE | LAST LINE __ 0430 WRITE #I | STEP MODE __ 0440 IF #REGISTER-ERROR | __ 0450 REINPUT 'INVALID REGISTRATION' ALARM | __ 0460 END-IF | __ 0470 * | __ 0480 * | __ 0490 END-REPEAT | __ 0500 * | COMMAND ===> STACK ENTER-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- HELP STEP EXIT LAST SCAN FLIP - + LI BR < > CANC ,P, %!Results*############################ TOP OF STACK ############################* $ *DATA = 0 (TRUNCATED OUTPUT IS MARKED WITH '*') $ $ V $ $ CONTENTS TYPE $ $ STACK IS EMPTY. $ *######################################################################*P &"No More Grouchy Programmer!(Use DEBUG not WRITE or DISPLAY Allows control without altering code See each line as it executes Check logic to see what really happens!n ` 33PP` 13` 3333` Q_{` 333fpKNāvI` j@v۩ῑ΂H>?" dd@,?n<d@ `7 `2@`7``2 n?" dd@   @@``PR    @ ` ` p>>   @ & (    <Ȏ" F 0   T,d" F 0   <Ĕ"U_ F 0   Txd">& F 0   Nؖ"P F 0   <"p F 0   C x?d?"bUv F 0    < #" `   T Click to edit Master title style! !$   0 "   RClick to edit Master text styles Second level Third level Fourth level Fifth level!     S   6| "]}  `*0   6 "] }   b*0   6и "]T}  b*0B  s *޽h ? 333380___PPT10.(г%  Blends   ; 3 P (  T +  "+bb P@ # "Dwoh  s *"PP  Bd" P@bb P 0  # "Nyh  s *"P    Bd"P 0 z   <" a*h   s *"    f?d?"+)   BTh ?#" ` p  T Click to edit Master title style! !   0k " `    W#Click to edit Master subtitle style$ $  6X "`p   d* 0  6 "`p   f*"0  6Xq "`  f*"0B  s *޽h ? 333380___PPT10.(г%_   _(  x  c $        c $|  P `    ;'(How to Use the Natural DEBUG Facility)H  0޽h ? 3380___PPT10.o$  $$(  $r $ S       r $ S L! W  H $ 0޽h ? 333380___PPT10.ς!$  ($(  (r ( S D     r ( S D    H ( 0޽h ? 333380___PPT10. k$  ,$(  ,r , S @h     r , S h 0  H , 0޽h ? 333380___PPT10.l5$  0$(  0r 0 S x     r 0 S y    H 0 0޽h ? 333380___PPT10.ކ-$  4$(  4r 4 S      r 4 S     H 4 0޽h ? 333380___PPT10.h1M$  8$(  8r 8 S      r 8 S d    H 8 0޽h ? 333380___PPT10.Ab$  <$(  <r < S      r < S l    H < 0޽h ? 333380___PPT10.5I$  @$(  @r @ S      r @ S     H @ 0޽h ? 333380___PPT10.:$  D$(  Dr D S ,     r D S     H D 0޽h ? 333380___PPT10.da$   H$(  Hr H S      r H S     H H 0޽h ? 333380___PPT10.W\$  0L$(  Lr L S  "     r L S "    H L 0޽h ? 333380___PPT10.$  @P$(  Pr P S h2     r P S <3    H P 0޽h ? 333380___PPT10.0o$  PT$(  Tr T S >     r T S     H T 0޽h ? 333380___PPT10.$  `X$(  Xr X S `}     r X S 4~    H X 0޽h ? 333380___PPT10.p`D$  p\$(  \r \ S h     r \ S <    H \ 0޽h ? 333380___PPT10.@"Y$  `$(  `r ` S      r ` S q    H ` 0޽h ? 333380___PPT10.m$  d$(  dr d S d     r d S 8    H d 0޽h ? 333380___PPT10. \$  h$(  hr h S D\     r h S     H h 0޽h ? 333380___PPT10.$  l$(  lr l S ѥ     r l S ҥ    H l 0޽h ? 333380___PPT10.d$  p$(  pr p S p     r p S D    H p 0޽h ? 333380___PPT10.,E0$  t$(  tr t S      r t S     H t 0޽h ? 333380___PPT10.N$  x$(  xr x S 4&    & r x S &   & H x 0޽h ? 333380___PPT10.gl$  |$(  |r | S &    & r | S &   & H | 0޽h ? 333380___PPT10.p$  $(  r  S P&    & r  S $&   & H  0޽h ? 333380___PPT10.$  $(  r  S (&    & r  S )&   & H  0޽h ? 333380___PPT10. )$   $(  r  S :&    & r  S \;&   & H  0޽h ? 333380___PPT10.0cx`$  0$(  r  S G&    & r  S G&   & H  0޽h ? 333380___PPT10.ƒ$  @$(  r  S U&    & r  S V&   & H  0޽h ? 333380___PPT10.$  P$(  r  S f&    & r  S g&   & H  0޽h ? 333380___PPT10.p$  `$(  r  S u&    & r  S u&   & H  0޽h ? 333380___PPT10.Ѝ$  p$(  r  S |&    & r  S P&   & H  0޽h ? 333380___PPT10.@g$  $(  r  S (&    & r  S &   & H  0޽h ? 333380___PPT10.N$  $(  r  S &    & r  S &   & H  0޽h ? 333380___PPT10. q!$  $(  r  S       r  S X      H  0޽h ? 333380___PPT10.0ȸDr`]Ht$P|,X4`<hDp ?  &UOh+'08 hp    (4<+Grouchy Programmers meet Hidden Features!!  Tanya RhodesammBlendsh Tanya Rhodesamm5nyMicrosoft PowerPointeet@P @‘@ЬvHF G7g    x-- @ !x--'-- @ !<--'- -- @ !;+--,-- @ !;,--?-- @ !;---R-- @ !;.--d-- @ !;/--x-- @ !;0--݊-- @ !;1---- @ !;2---- @ !;3---- @ !;4---- @ !;5---- @ !;6---- @ !;7---- @ !;8---- @ !;9---- @ !;:---- @ !;;---'33-- @ !S--'-55-- @ !R1-->>-- @ !R2--JJ-- @ !R3--WW-- @ !R4--ee-- @ !R5--ss-- @ !R6---- @ !R7---- @ !R8---- @ !R9---- @ !R:---- @ !R;---- @ !R<---- @ !R=---- @ !R>---- @ !R?---- @ !R@---- @ !RA---- @ !RB---- @ !RC---- @ !RD---'A N( ||ppeeZZOODD99..sshh]]RRGG<<11vvkk``UUJJ??zznnccXXMM}}qqff[[ttiixxuvjlm?@oBi[\^0L !#z{|}C~ijklm/nopq4rst8A[\]^_`a"bcdefghALMNOPQRSTUVWXYZ>?@ABCDEFGHIJK/0123456789:;<= !"#$%&'()*+,-. '-- @ !96)--'--- @ !`---- @ !`-- -- @ !`--"""-- @ !`--$$$-- @ !`!--&&&-- @ !`$--(((-- @ !`'--***-- @ !`*--,,,-- @ !`,--...-- @ !`/--000-- @ !`3--222-- @ !`5--444-- @ !`9--666-- @ !`<--888-- @ !`>--:::-- @ !`A--<<<-- @ !`E-->>>-- @ !`G--@@@-- @ !`J--BBB-- @ !`M--DDD-- @ !`P--FFF-- @ !`S--HHH-- @ !`V--JJJ-- @ !`Y--LLL-- @ !`[--NNN-- @ !`_--PPP-- @ !`a--RRR-- @ !`d--TTT-- @ !`h--VVV-- @ !`j--XXX-- @ !`m--ZZZ-- @ !`p--\\\-- @ !`r--^^^-- @ !`v--```-- @ !`x--bbb-- @ !`{--ddd-- @ !`~--fff-- @ !`--hhh-- @ !`--jjj-- @ !`--mmm-- @ !`--ooo-- @ !`--qqq-- @ !`--sss-- @ !`--uuu-- @ !`--www-- @ !`--yyy-- @ !`--{{{-- @ !`--}}}-- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !` ---- @ !` ---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`---- @ !`"---- @ !`'---- @ !`+---- @ !`0---- @ !`3---- @ !`9---- @ !`<---- @ !`B---- @ !`G---- @ !`L---- @ !`Q---- @ !`W---- @ !`^---- @ !`e---- @ !`l---- @ !`s---- @ ! `z---- @ ! `---- @ ! `---- @ !`---- @ !`---- @ !`---- @ !`---'@"Tahoma-. 33-2 /DGrouchy Programmers meet        ."Systemhi-@"Tahoma-. 33!2 SDHidden Features!!    .-@"Tahoma-. B2 '(How to Use the Natural DEBUG Facility)          .-՜.+,0@    On-screen ShowSolution Specialists d #A (ArialTahoma Wingdings Courier NewBlends+Grouchy Programmers meet Hidden Features!!DEBUG Testing Program/DEBUG Menu Type DEBUG at the Command lineList Object SourceSet BreakpointBuild WatchpointDefine Watchpoint VariableSet WatchpointModify WatchpointOpen ModificationModify Watch ValuesReturn to DEBUG MenuActivate DEBUGgerHow you know its on!Execute the Program!First Breakpoint L to ListDisplay the VariableEdit Variable Value Return to Program List and GOType G twiceType L to List ProgramDisplay #WORD GRADUATE!End Session - STOPSYSVAR CommandSTEP SKIPSUBLEVEL CommandPF17 Skip SubroutinePF21 To See Last Line OBJCHAINResults%STEP # - STEP set number of CommandsResults STEP 4Check Values on the StackResultsNo More Grouchy Programmer!  Fonts UsedDesign Template Slide Titles#$_@  &Tanya RhodesTanya Rhodes  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root EntrydO)Current UserSummaryInformation(9PowerPoint Document(d DocumentSummaryInformation8Root EntrydO)Vʶ~l@Current User5SummaryInformation(9PowerPoint Document(d _@ groebmagroebma