home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib21a.dsk / AUGUST.1984 / RANDOM.MADNESS.bas < prev    next >
BASIC Source File  |  2023-02-26  |  486b  |  14 lines
  1. 10  REM  **********************
  2. 20  REM  *   RANDOM.MADNESS   *
  3. 30  REM  *   BY PAUL RAYMER   *
  4. 40  REM  * COPYRIGHT (C) 1984 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * LINCOLN, MA, 01773 *
  7. 70  REM  **********************
  8. 100  TEXT : HOME : CLEAR 
  9. 200 R = (10 * RND(1)) +1
  10. 210  INPUT "WHAT IS YOUR GUESS? ";G$:G =  VAL(G$): IF G = 0  THEN  PRINT R: END 
  11. 220  IF G >R  THEN  PRINT "TOO HIGH"
  12. 230  IF G <R  THEN  PRINT "TOO LOW"
  13. 240  IF G = R  THEN  PRINT "CORRECT!": END 
  14. 250  GOTO 210