home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / FLIPCOIN / FLIPCOIN.PRG < prev   
Encoding:
Text File  |  1993-01-31  |  1.3 KB  |  33 lines
  1. *****************************************************************
  2. *     * 09/92               FLIPCOIN.PRG                        *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description: Flips a coin...                            *
  7. *     * This program illustrates the use of RAND() function     *
  8. *     *                                                         *
  9. *****************************************************************
  10. =RAND(-1)  && Initialize seed value from system clock
  11. CLEAR
  12. Answer = 'Y'
  13. STORE 0 to Tails, Heads
  14. DO WHILE UPPER(Answer) = 'Y'
  15.      IF RAND() > .5       && Call with no arguments
  16.           @ 2,2 TO 14,28 STYLE '99' PATTERN 1 PEN 2 COLOR 'B/B'
  17.           @ 6,7 SAY "HEADS"   color w+/B FONT "roman",24
  18.           Heads = Heads + 1
  19.      ELSE
  20.          @ 2,2 TO 14,28 STYLE '99' PATTERN 1 PEN 2 COLOR 'B/R'
  21.          @ 6,7 SAY "TAILS"   color w+/R FONT "roman",24
  22.          Tails = Tails + 1         
  23.      ENDIF
  24.      @ 15,4  SAY "Flip another coin? (Y/N):" GET Answer
  25.      @ 16,4  SAY "Heads:"
  26.      @ 16,11 SAY LTRIM(STR(Heads))
  27.      @ 16,24 SAY "Tails: "
  28.      @ 16,31 SAY LTRIM(STR(Tails))
  29.      READ
  30. ENDDO
  31. CLEAR
  32. RETURN
  33.