вот что родилось, пока пыхтел:
Код:
new_r
 call random;x=random(x-1)+1
 ld l,a
 call random
 ld h,a

find_r
push hl
ld de,319
or a
sbc hl,de
pop hl
jr c,got_r
or a
sbc hl,de
jr find_r
got_r
ex de,hl