1 C$='\[]Z^YXWVUTSRQPONMLKJIHGF@EDCBA_|{}z~yxwvutsrqponmlkjihgf`edcba'
10 N%=200% : A%=65% : \%=30%
11 DIM B$(N%)=3%,P9$=10%
12 P9$='B$' : REM Prova P9$='B$,C$'!!!
13 ; 'Generera';N%;' textstr{ngar' : ; 
14 FOR I%=1% TO N%
15 K1%=\%*RND : K2%=\%*RND : K3%=\%*RND
16 B$(I%)=CHR$(A%+K1%,A%+K2%,A%+K3%)
17 ; ' ';B$(I%); : NEXT I% : ; 
18 ; 'Starta sorteringen med RETURN ';
19 INPUT A$ : POKE 65008,255,255
20 K%=CALL(-3703%)
21 T=(255-PEEK(65008))*.02
22 T=T+(255-PEEK(65009))*5.12
23 ; CHR$(7) : ; 
24 FOR I%=1% TO N%
25 ; ' ';B$(I%);
26 NEXT I% : ; 
27 ; ' Tid:'T' sek     ';
28 ; 'Antal {ndras med ED10';
29 REM Obs Pr|va fallande sortering med
30 REM 12 P9$='B$,C$' --- se rad 12 !