Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/PCTV2N3.ZIP/BREAKOUT.PAS

Pascal/Delphi Source File | 1991-07-16 | 373 b | 21 lines

PROGRAM BreakOut;
USES Dos,Crt;

CONST Max = 5;
      K: ARRAY[1..Max] OF Integer = (1,2,3,4,5);

VAR I,J: Integer;

BEGIN
  ClrScr;
  FOR I := 1 TO Max DO
    FOR J := 1 TO Max DO BEGIN
      WriteLn(K[J]);
      IF (J = I) THEN BEGIN
        J := Max;
        WriteLn('Quitting at ',I,'; J = ',J);
      END;
    END;
  REPEAT UNTIL KeyPressed;
END.