16 lines
565 B
Plaintext
16 lines
565 B
Plaintext
100 randomize timer
|
|
110 for i = 1 to 10
|
|
120 inicio$ = "RKR"
|
|
130 pieza$ = "QNN"
|
|
140 for n = 1 to len(pieza$)
|
|
150 posic = int(rnd(len(inicio$)+1))+1
|
|
160 inicio$ = left$(inicio$,posic-1)+mid$(pieza$,n,1)+right$(inicio$,len(inicio$)-posic+1)
|
|
170 next n
|
|
180 posic = int(rnd(len(inicio$)+1))+1
|
|
190 inicio$ = left$(inicio$,posic-1)+"B"+right$(inicio$,len(inicio$)-posic+1)
|
|
200 posic = posic+1+2*int(int(rnd(len(inicio$)-posic))/2)
|
|
210 inicio$ = left$(inicio$,posic-1)+"B"+right$(inicio$,len(inicio$)-posic+1)
|
|
220 print inicio$
|
|
230 next i
|
|
240 end
|