For K,1,16
WriteB(Z+K,K
End
call Lbl "SHUFFLE
.SHUFFLE
length(Z→K
While K>1
randInt(1,K→A
(Z+K→B
WriteB(Z+K,(Z+A
WriteB(Z+A,B
K-1→K
End
End