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:S=50
7 DIML%(S):FORT=1TOS:L%(T)=RND(0)*S:X=L%(T):Y=T:GOSUB2:NEXT:TI$="000000":G=INT(S/2)
8 N=0:FORI=1TOS-G
9 IFL%(I)>L%(I+G)THENGOSUB16:T=L%(I):L%(I)=L%(I+G):L%(I+G)=T:N=1
10 NEXT:IFN=1THEN8
11 G=INT(G/2):IFG>=1THEN8
12 T$=TI$:POKE198,0
13 GETA$:IFA$=""THEN13
14 PRINT"[147]":POKEV+5,240:POKEV,5:POKEV+1,25:POKEV+2,150:POKEV+3,46
15 PRINTS"ITEMS SORTED IN":PRINTMID$(T$,3,2)":"RIGHT$(T$,2)".":END
16 Y=I:X=L%(I):GOSUB3:Y=I+G:X=L%(I+G):GOSUB3
17 Y=I:X=L%(I+G):GOSUB2:Y=I+G:X=L%(I):GOSUB2:RETURN