home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP_ADV.ZIP / LIST0206.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-07-31  |  827 b   |  39 lines
  1. Program BreakpointExamples;
  2. { This program is an example of several different types of   }
  3. { breakpoints that can be set within the Turbo Debugger.     }
  4.  
  5. {$I Debug.Inc}  { Include the debugging definition file      }
  6.  
  7. Uses Crt, Dos;  { Link in necessary standard units           }
  8.  
  9. Type
  10.   ArrayType = Array[1..10] of Byte;
  11.  
  12. Var
  13.   ChangedMemory : ArrayType;
  14.   Count,
  15.   I, J : Integer;
  16.  
  17. Procedure BreakpointEval;
  18. Begin
  19.   I := 0;
  20.   J := 0;
  21. End;
  22.  
  23. Begin
  24.   BreakpointEval;
  25.   FillChar( ChangedMemory, SizeOf( ChangedMemory ), #0 );
  26.   I := 5;
  27.   For Count := 1 to 20 Do
  28.   Begin
  29.     I := I + 1;
  30.     J := J + 2;
  31.     If( ( Count > 5 ) And ( Count <= 10 ) ) Then
  32.       ChangedMemory[Count] := Count;
  33.   End;
  34.   For Count := 1 to 10 Do
  35.     Write( ChangedMemory[Count], '   ' );
  36.   Writeln( I, J );
  37. End.
  38.  
  39.