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)
8 FORT=1TOS:L%(T)=RND(0)*S:X=L%(T):Y=T:GOSUB2:NEXT:TI$="000000"
9 FORI=S-1TO1STEP-1:FORT=1TOI
10 IFL%(T)>L%(T+1)THENGOSUB15:TE=L%(T):L%(T)=L%(T+1):L%(T+1)=TE
11 NEXT:NEXT:T$=TI$:POKE198,0
12 GETA$:IFA$=""THEN12
13 PRINT"[147]":POKEV+5,240:POKEV,5:POKEV+1,25:POKEV+2,150:POKEV+3,46
14 PRINTS"ITEMS SORTED IN":PRINTMID$(T$,3,2)":"RIGHT$(T$,2)".":END
15 Y=T:X=L%(T):GOSUB3:Y=T+1:X=L%(T+1):GOSUB3
16 Y=T:X=L%(T+1):GOSUB2:Y=T+1:X=L%(T):GOSUB2:RETURN