PROGRAM 18


'  FILENAME:  PROG18.BAS
'  THIS PROGRAM ALLOWS THE USER TO CHOOSE HOW MANY TIMES THEY WANT A COIN
'  FLIPPED.  IT SHOWS EACH COIN FLIP AND THEN CALCULATES AND
'  PRINTS HOW MANY HEADS AND TAILS.
CLS
COLOR 0, 7
DO
        CLS
        GOSUB INPUT.DATA
        GOSUB PRINT.FLIPS
        GOSUB PRINT.COUNT
        GOSUB INPUT.ANOTHER
        DO
                CLS
                GOSUB PRINT.ERRORMESSAGE
        LOOP UNTIL UCASE$(ANS$) = "YES" OR UCASE$(ANS$) = "NO"
        COUNT2 = 0
        COUNT3 = 0
LOOP UNTIL UCASE$(ANS$) = "NO"
CLS
END
INPUT.DATA:
        INPUT "ENTER THE NUMBER OF COIN FLIPS? ", FLIPS
        PRINT
RETURN
PRINT.FLIPS:
        RANDOMIZE TIMER
        FOR COUNT = 1 TO FLIPS
                LET FLIPS2 = INT(RND * 2 + 1)
                IF FLIPS2 = 1 THEN
                        COLOR 4, 7
                        PRINT "HEAD"
                        LET COUNT2 = COUNT2 + 1
                        COLOR 7, 7
                ELSE
                        COLOR 1, 7
                        PRINT "TAIL"
                        LET COUNT3 = COUNT3 + 1
                        COLOR 7, 7
                END IF
                SOUND 500, 4
                SLEEP 1
        NEXT COUNT
RETURN
PRINT.COUNT:
        PRINT
        COLOR 4, 7
        PRINT "HEAD COUNT ="; COUNT2
        COLOR 7, 7
        PRINT
        COLOR 1, 7
        PRINT "TAIL COUNT ="; COUNT3
        COLOR 0, 7
RETURN
INPUT.ANOTHER:
        PRINT
        INPUT "WOULD YOU LIKE TO ENTER ANOTHER?  (TYPE 'YES' TO CONTINUE OR TYPE 'NO' TO STOP.)", ANS$
RETURN
PRINT.ERRORMESSAGE:
        IF UCASE$(ANS$) <> "YES" AND UCASE$(ANS$) <> "NO" THEN
                INPUT "ERROR, TYPE 'YES' TO CONTINUE OR 'NO' TO QUIT. ", ANS$
                PRINT
        END IF
RETURN

'  FILENAME:  PROG18.OUT

ENTER THE NUMBER OF COIN FLIPS? 10

HEAD
HEAD
HEAD
HEAD
TAIL
TAIL
HEAD
TAIL
HEAD
HEAD

HEAD COUNT = 7

TAIL COUNT = 3

WOULD YOU LIKE TO ENTER ANOTHER?  (TYPE 'YES' TO CONTINUE OR TYPE 'NO' TO STOP.)
NO




BACK TO CIS133 PAGE.