RANDOMIZE TIMER / 3
FOR N = 1 TO 1000
    NUM = INT(10 * RND)
    IF NUM <> 0 THEN GOTO TRYONE
    LET ZERO = ZERO + 1
    GOTO NEXTNUM

TRYONE:
    IF NUM <> 1 THEN GOTO TRYTWO
    LET ONE = ONE + 1
    GOTO NEXTNUM

TRYTWO:
    IF NUM <> 2 THEN GOTO TRYTHREE
    LET TWO = TWO + 1
    GOTO NEXTNUM

TRYTHREE:
    IF NUM <> 3 THEN GOTO TRYFOUR
    LET THREE = THREE + 1
    GOTO NEXTNUM

TRYFOUR:
    IF NUM <> 4 THEN GOTO TRYFIVE
    LET FOUR = FOUR + 1
    GOTO NEXTNUM

TRYFIVE:
    IF NUM <> 5 THEN GOTO TRYSIX
    LET FIVE = FIVE + 1
    GOTO NEXTNUM

TRYSIX:
    IF NUM <> 6 THEN GOTO TRYSEVEN
    LET SIX = SIX + 1
    GOTO NEXTNUM

TRYSEVEN:
    IF NUM <> 7 THEN GOTO TRYEIGHT
    LET SEVEN = SEVEN + 1
    GOTO NEXTNUM

TRYEIGHT:
    IF NUM <> 8 THEN GOTO ISNINE
    LET EIGHT = EIGHT + 1
    GOTO NEXTNUM

ISNINE:
    LET NINE = NINE + 1

NEXTNUM:
NEXT N
PRINT ZERO; "Zeros", FOUR; "Fours"
PRINT ONE; "Ones", FIVE; "Fives", EIGHT; "Eights"
PRINT TWO; "Twos", SIX; "Sixes", NINE; "Nines"
PRINT THREE; "Threes", SEVEN; "Sevens "
END