10 A$='abcde`fghijklmnopqrstuvwxy~z}{|_ABCDE@FGHIJKLMNOPQRSTUVWXY^Z][\'
20 REM Test av sorteringstekvens.
30 REM [ndra A$ till |nskad sekvens
40 REM och skriv RUN.
50 DIM I%(64%)
60 IF LEN(A$)-64% THEN ; 'sekvensen inneh}ller';LEN(A$);' tecken' : ; '(ska vara 64)' : END 
70 FOR K%=1% TO 64% : I%(K%)=0% : NEXT K%
80 FOR K%=1% TO 64% : L%=ASC(MID$(A$,K%,1%))
90 IF L%<64% OR L%>127% THEN ; 'felaktigt tecken i position';K% : END 
100 IF I%(L%-63%) THEN ; 'sekvensen ej unik: ';CHR$(L%);' i position';K% : END 
110 I%(L%-63%)=K%+63% : NEXT K%
120 ; 'sekvensen korrekt'