1 V=36864:M=4096:H=248:W=7680:R=38400:GOTO4
2 Z=(YANDH)*15+Y+(XANDH)+M:POKEZ,PEEK(Z)ORT%(XAND7):RETURN
3 Z=(YANDH)*15+Y+(XANDH)+M:POKEZ,PEEK(Z)ANDNOTT%(XAND7):RETURN
4 FORI=0TO7:T%(7-I)=2^I:NEXT:POKEV+1,37:POKEV+3,32
5 FORI=MTO6143:POKEI,0:NEXT:POKEV+5,252:POKEV,11:POKEV+2,144
6 POKEV+15,27:FORI=0TO255:POKEW+I,I:POKER+I,6:NEXT
7 S=75:DIML%(S),S%(20)
8 FORT=1TOS:L%(T)=RND(0)*S:X=L%(T):Y=T:GOSUB2:NEXT:TI$="000000":S%(1)=1:S%(2)=S:P=2
9 L=S%(P):P=P-1:F=S%(P):P=P-1:I=F
10 J=L
11 D=L%((F+L)/2)
12 IFL%(I)<DTHENI=I+1:GOTO12
13 IFL%(J)>DTHENJ=J-1:GOTO13
14 IFI<=JTHENGOSUB24:T=L%(I):L%(I)=L%(J):L%(J)=T:I=I+1:J=J-1
15 IFI<=JTHEN12
16 IFF<JTHENP=P+1:S%(P)=F:P=P+1:S%(P)=J
17 F=I
18 IFF<LTHEN10
19 IFP<>0THEN9
20 T$=TI$:POKE198,0
21 GETA$:IFA$=""THEN21
22 PRINT"[147]":POKEV+5,240:POKEV,5:POKEV+1,25:POKEV+2,150:POKEV+3,46
23 PRINTS"ITEMS SORTED IN":PRINTMID$(T$,3,2)":"RIGHT$(T$,2)".":END
24 Y=I:X=L%(I):GOSUB3:Y=J:X=L%(J):GOSUB3
25 Y=I:X=L%(J):GOSUB2:Y=J:X=L%(I):GOSUB2:RETURN