44 lines
849 B
Plaintext
44 lines
849 B
Plaintext
10 LET A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ "
|
|
20 LET T$="METHINKS IT IS LIKE A WEASEL"
|
|
30 LET L=LEN T$
|
|
40 LET C=10
|
|
50 LET M=0.05
|
|
60 LET G=0
|
|
70 DIM C$(C,L)
|
|
80 LET P$=""
|
|
90 FOR I=1 TO L
|
|
100 LET P$=P$+A$(INT (RND*LEN A$)+1)
|
|
110 NEXT I
|
|
120 PRINT AT 1,0;P$
|
|
130 LET S$=P$
|
|
140 GOSUB 390
|
|
150 LET N=R
|
|
160 PRINT AT 1,30;N
|
|
170 PRINT AT 0,4;G
|
|
180 IF P$=T$ THEN GOTO 440
|
|
190 FOR I=1 TO C
|
|
200 FOR J=1 TO L
|
|
210 LET C$(I,J)=P$(J)
|
|
220 IF RND<=M THEN LET C$(I,J)=A$(INT (RND*LEN A$)+1)
|
|
230 PRINT AT I+2,J-1;C$(I,J)
|
|
240 NEXT J
|
|
250 PRINT AT I+2,30;" "
|
|
260 NEXT I
|
|
270 LET F=0
|
|
280 FOR I=1 TO C
|
|
290 LET S$=C$(I)
|
|
300 GOSUB 390
|
|
310 PRINT AT I+2,30;R
|
|
320 IF R>N THEN LET F=I
|
|
330 IF R>N THEN LET N=R
|
|
340 NEXT I
|
|
350 IF F>0 THEN LET P$=C$(F)
|
|
360 LET G=G+1
|
|
370 PRINT AT 1,0;P$
|
|
380 GOTO 160
|
|
390 LET R=0
|
|
400 FOR K=1 TO L
|
|
410 IF S$(K)=T$(K) THEN LET R=R+1
|
|
420 NEXT K
|
|
430 RETURN
|