home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / PCTV2N3.ZIP / BREAKOUT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-07-16  |  373 b   |  21 lines
  1. PROGRAM BreakOut;
  2. USES Dos,Crt;
  3.  
  4. CONST Max = 5;
  5.       K: ARRAY[1..Max] OF Integer = (1,2,3,4,5);
  6.  
  7. VAR I,J: Integer;
  8.  
  9. BEGIN
  10.   ClrScr;
  11.   FOR I := 1 TO Max DO
  12.     FOR J := 1 TO Max DO BEGIN
  13.       WriteLn(K[J]);
  14.       IF (J = I) THEN BEGIN
  15.         J := Max;
  16.         WriteLn('Quitting at ',I,'; J = ',J);
  17.       END;
  18.     END;
  19.   REPEAT UNTIL KeyPressed;
  20. END.
  21.