home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pctchnqs
/
1991
/
number3
/
breakout.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-07-16
|
373b
|
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.