RANDOMIZE TIMER / 3

FOR FLIP = 1 TO 100
        COIN = RND
        IF COIN < .5 THEN GOTO ISHEADS
        LET TAILS = TAILS + 1
        GOTO NEXTFLIP
ISHEADS:
        LET HEADS = HEADS + 1
NEXTFLIP:
NEXT FLIP

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