'Simulación dados 

RANDOMIZE TIMER
DIM AS INTEGER I, J, K
DIM DADO(1 TO 20000) AS SINGLE
DIM DIFMAX(1 TO 1000000) AS SINGLE
DIM RESUL(1 TO 6) AS SINGLE
DIM Temp AS SINGLE
DIM DIF(1 TO 6) AS SINGLE
DIM ORDEN(1 TO 6) AS SINGLE
'
OPEN "SALIDA.txt" FOR OUTPUT AS #1
'
FOR K=1 TO 1000000
    FOR I=1 TO 6
        RESUL(I)=0
    NEXT I
'
    FOR I=1 TO 20000
    DADO(I) = INT(RND(1) * 6) + 1
    IF DADO(I)=1 THEN
        RESUL(1)=RESUL(1)+1
    ELSEIF DADO(I)=2 THEN
        RESUL(2)=RESUL(2)+1
    ELSEIF DADO(I)=3 THEN
        RESUL(3)=RESUL(3)+1
    ELSEIF DADO(I)=4 THEN
        RESUL(4)=RESUL(4)+1
    ELSEIF DADO(I)=5 THEN
        RESUL(5)=RESUL(5)+1
    ELSEIF DADO(I)=6 THEN
        RESUL(6)=RESUL(6)+1
    END IF
    NEXT I
    FOR I=1 TO 6
        DIF(I)=ABS(RESUL(I)-3333)
        ORDEN(I)=DIF(I)
    NEXT I
    FOR I=1 TO 5
        FOR J=I+1 TO 6
            IF ORDEN(I)>ORDEN(J) THEN
                Temp=ORDEN(J)
                ORDEN(J)=ORDEN(I)
                ORDEN(I)=Temp
            END IF
        NEXT J
    NEXT I
    'FOR I=1 TO 6
    '   PRINT RESUL(I), DIF(I), ORDEN(I)
    'NEXT I
    DIFMAX(K)=ORDEN(6)
    WRITE #1, DIFMAX(K)
    PRINT K, DIFMAX(K)
NEXT K
'
CLOSE #1
SLEEP