CLS
RANDOMIZE TIMER
LOCATE 9, 15
COLOR 5
PRINT "This program will simulate the fliping of a coin"

start:
c = 0
f = 0
h = 0
t = 0
CLS
LOCATE 9, 18
COLOR 4
PRINT "How many times do you wish to flip the coin?"
INPUT f
CLS
LOCATE 9, 3
COLOR 4
PRINT "If you wish to see the results of each flip press Y. If you don't press N."
DO
DO
r$ = INKEY$
LOOP WHILE (r$ = "")
LOOP UNTIL (r$ = "y") OR (r$ = "n")
CLS
IF UCASE$(r$) = "N" THEN GOTO car:

FOR p = 1 TO f
c = RND
IF c < .5 THEN h = h + 1
IF c >= .5 THEN t = t + 1
q = q + 1
LOCATE 9, 35
COLOR 1
IF c < .5 THEN PRINT q; " Heads"
IF c >= .5 THEN PRINT q; " Tails"
NEXT
GOTO quick

car:
LOCATE 9, 25
COLOR 18
PRINT "The computer is fliping your coin"
FOR p = 1 TO f
c = RND
IF c < .5 THEN h = h + 1
IF c >= .5 THEN t = t + 1
NEXT
CLS
quick:
CLS
LOCATE 8, 25
COLOR 5
PRINT "You fliped the coin"; f; "times"
PRINT
COLOR 4
PRINT TAB(28); "Heads came up"; h; "times"
PRINT TAB(28); "Tails came up"; t; "times"
PRINT
COLOR 11
PRINT TAB(21); "Heads came up"; INT(h / f * 100); "percent of the time"
PRINT TAB(21); "Tails came up"; INT(t / f * 100); "percent of the time"
COLOR 15
LOCATE 24
PRINT "Press any key to continue"
COLOR 0
DO
b$ = INKEY$
LOOP WHILE (b$ = "")
CLS
LOCATE 9, 11
COLOR 11
PRINT "If you wish to run this program again press Y. If you don't press N."
DO
m$ = INKEY$
LOOP WHILE (m$ = "")
IF UCASE$(m$) = "Y" THEN GOTO start
COLOR 15