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