CLS
RANDOMIZE TIMER / 3
LOCATE 5, 19
PRINT "HEADS"
LOCATE 5, 39
PRINT "TAILS"
LOCATE 6, 20
PRINT HEADS
LOCATE 6, 40
PRINT TAILS

FOR COIN = 1 TO 2500
        LET FLIP = INT(2 * RND) + 1
        IF FLIP = 1 THEN GOTO ISHEADS
        LET TAILS = TAILS + 1
        LOCATE 6, 40
        PRINT TAILS
        GOTO NEXTFLIP
ISHEADS:
        LET HEADS = HEADS + 1
        LOCATE 6, 20
        PRINT HEADS
NEXTFLIP:
NEXT COIN

END