13 lines
322 B
Plaintext
13 lines
322 B
Plaintext
10 DIM a(10,10)
|
|
20 FOR i=1 TO 10: FOR j=1 TO 10
|
|
30 LET a(i,j)=INT (RND*20)+1
|
|
40 NEXT j: NEXT i
|
|
50 LET b=0: REM flag to abort loops
|
|
60 FOR i=1 TO 10: FOR j=1 TO 10
|
|
70 PRINT (" " AND a(i,j)<10);a(i,j);" ";
|
|
80 IF a(i,j)=20 THEN LET i=10: LET j=10: LET b=1: REM abort loops
|
|
90 NEXT j
|
|
100 IF b=0 THEN PRINT
|
|
110 NEXT i
|
|
120 STOP
|