#include "hspda.as" *saisho dim a,6 randomize repeat 6,0 *yarinaoshi a(cnt)=rnd(43)+1 if cnt=1 & a(1)=a(0) :goto *yarinaoshi if cnt=2 & (a(2)=a(1) or a(2)=a(0)) :goto *yarinaoshi if cnt=3 & (a(3)=a(2) or a(3)=a(1) or a(3)=a(0)) :goto *yarinaoshi if cnt=4 & (a(4)=a(3) or a(4)=a(2) or a(4)=a(1) or a(4)=a(0)) :goto *yarinaoshi if cnt=5 & (a(5)=a(4) or a(5)=a(3) or a(5)=a(2) or a(5)=a(1) or a(5)=a(0)) :goto *yarinaoshi loop sortval a, repeat 6 mes a(cnt) loop
mes "\n enterでもう一回。ESCで終了"
*keycode stick key if key&32 :cls :goto *saisho if key&128 :end await 1 goto *keycode
