10 lines
374 B
Plaintext
10 lines
374 B
Plaintext
1 C = 5
|
|
2 R = 4
|
|
3 C = C - 1:R = C - 1: DIM A(C,R)
|
|
4 FOR J = 0 TO R: FOR I = 0 TO C:N = N + 1:A(I,J) = N: NEXT I,J
|
|
5 FOR J = 0 TO R: FOR I = 0 TO C:X = INT ( RND (1) * C):Y = INT ( RND (1) * R):N = A(I,J):A(I,J) = A(X,Y):A(X,Y) = N: NEXT I,J
|
|
6 FOR J = 0 TO R
|
|
7 FOR I = 0 TO C
|
|
8 PRINT S$A(I,J);:S$ = " "
|
|
9 IF A(I,J) < > 20 THEN NEXT I,J
|