[BasiEgaXorz] SEGA MEGA DRIVE / GENESIS better random sample

    seed = 0                    'define a variável de alimentação como 0
    print "  Para obter um novo numero aleatorio"
    locate 1, 10
    print "pressione START"
main0:
    while joypad().7 = 0        'segura no loop enquanto o botão START não é pressionado
        seed = seed + 1         'incremento seguro seed++ também é possível mas para o BEX prefiro esse modo
        if seed = 65535 then    'se o seed atinge 65535(0xFFFFh/1111111111111111b), ele retorna a 0
             seed = 0
        endif
        randomize seed          'sempre altera o valor do seed e re-executa o chamado para encher linguiça no program counter
    wend
    aleatorio = rnd(100)        'gera um numero aleatorio de acordo com o seed
    print "Numero aleatorio da vez: ", aleatorio    'imprime na tela o numero aleatorio
    sleep 10                    'para a execução por 1/6 segundo
    goto main0                  'retorna para o rótulo main0 para o próximo seed