15 lines
288 B
Plaintext
15 lines
288 B
Plaintext
10 RAND
|
|
20 LET A$=""
|
|
30 FOR I=1 TO 26
|
|
40 LET A$=A$+CHR$ (37+I)
|
|
50 NEXT I
|
|
60 PRINT A$
|
|
70 FOR I=26 TO 2 STEP -1
|
|
80 LET J=1+INT (RND*I)
|
|
90 LET T$=A$(I)
|
|
100 LET A$(I)=A$(J)
|
|
110 LET A$(J)=T$
|
|
120 PRINT AT 0,I-1;CHR$ (CODE A$(I)+128)
|
|
130 PRINT AT 0,J-1;CHR$ (CODE A$(J)+128)
|
|
140 NEXT I
|