RANDOMIZE TIMER / 3

FOR FLIP = 1 TO 100
        COIN = RND
        COIN = INT(2 * COIN) + 1
        IF COIN = 1 THEN GOTO ISHEADS
        LET TAILS = TAILS + 1
        GOTO MOREFLIP

ISHEADS:
        LET HEADS = HEADS + 1

MOREFLIP:
NEXT FLIP

PRINT HEADS; "Heads, and "; TAILS; "Tails."
END