Rand8 ld a,Seed ; Seed is usually 0 ld b,a add a,a add a,a add a,b inc a ; another possibility is ADD A,7 ld (Rand8+1),a ret
ld hl,(RandSeed) ld a,r ld d,a ld e,(hl) add hl,de add a,l xor h ld (RandSeed),hl
...czasem zachowuje się losowo a czasem nie i wstawieniem jakiejś zupełnie niezwiązanej instrukcji można tę losowość popsuć.
FOR i=adres TO adres+4000 : POKE i, INT (RND*256) : NEXT i
FillRandomld hl,STARTld bc,4096Rand ld a,0 ld b,a add a,a add a,a add a,b inc a ld (Rand+1),ald (hl),ainc hldec bcld a,bor cjp nz,Randret