美しくないけどこんなもんかな。ループ仕様なので注意。
*define
dim ?0[5]
game
*start
prnumclear
rnd %10,99:mov %10,%10+1:mov ?0[0],%10
for %1 = 1 to 5
*randam_set
rnd %10,99:mov %10,%10+1:mov %3,0
for %2 = 0 to %1-1
if ?0[%2] == %10 mov %3,1:break
next
if %3 == 1 goto *randam_set
mov ?0[%1],%10
next
for %0 = 0 to 5:prnum %0,?0[%0],50,50+32*%0,24,24,#ffffff:next:print 1:click
for %1 = 4 to 0 step -1:for %2 = 0 to %1
if ?0[%2] > ?0[%2+1] mov %3,?0[%2]:mov ?0[%2],?0[%2+1]:mov ?0[%2+1],%3
next:next
for %0 = 0 to 5:prnum 6+%0,?0[%0],150,50+32*%0,24,24,#ffffff:next:print 1:click:goto *start