home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug044.ark / ROBO.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  2KB  |  65 lines
  1.    PRINT "THIS IS A PROGRAM TO ADD TWO NUMBERS"
  2. 10 PRINT "What is your name";
  3.    INPUT NAME$
  4.    L%=0  REM Number correct answers
  5.    K%=0  REM Number wrong answers in a batch
  6.    J%=0  REM Total of wrong answers
  7. 11 RANDOMIZE
  8.    N%=INT(15*RND)
  9.    M%=INT(13*RND)
  10. 15 K%=0
  11.    PRINT
  12.    PRINT "--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|"
  13.    PRINT "  0  1  2  3  4  5  6  7  8  9  10 11 12 13 14 15 16 17 18 19 20  "
  14.    PRINT NAME$;", Here are two numbers for you to add:"; N%;" + ";M%
  15. 18 PRINT "WHAT DO YOU THINK THE ANSWER IS";
  16.    INPUT D%                     
  17.    S%= N%+M%   
  18.            
  19. 21 IF D%= S% THEN 25    
  20.    PRINT "No. I'm sorry that your answer is not correct.  Try again."
  21.    K%=K%+1
  22.    J%=J%+1
  23.    WHILE K%=4  REM stop before too many mistakes are made
  24.        PRINT
  25.        PRINT
  26.        PRINT "Perhaps this problem is too grownup for you. We'll try another."
  27.        PRINT
  28.        PRINT
  29.        GOTO 11
  30.        WEND
  31.    GOTO 18
  32. 25 PRINT CHR$(07)    REM ring the bell
  33.    PRINT "VERY GOOD; THE SUM OF THE NUMBERS IS"; S%  
  34.    L%=L%+1
  35. 30 PRINT "DO YOU HAVE MORE TO DO (YES OR NO)";
  36. 32 INPUT C$
  37. 35 IF C$ ="YES" THEN 11  
  38.    PRINT "You just answered ";L%;" questions right and ";J%; " not correct."
  39.    PERCENT =  L%/(L%+J%) * 100.0
  40. REM   PRINT "Your score is ";PERCENT;"%."              **************
  41. REM   IF PERCENT>80.0 THEN PRINT "That's very good!"   **************
  42. 60 PRINT ""
  43. 65 PRINT "YOU HAVE BEEN A GREAT LITTLE PLAYER AND I HOPE YOU'LL PLAY AGAIN."
  44. 70 PRINT "Will you play again sometime, ";NAME$;"?"
  45. 75 INPUT B$
  46. 80 IF B$ = "YES" THEN 82
  47. 81 GOTO 91
  48. 82 PRINT
  49.    PRINT
  50.    PRINT
  51.    PRINT "       O            BBBBB         O       YY    YY    II  "
  52. 85 PRINT "      OOO           BB  BB       OOO       YY  YY     II  "
  53. 86 PRINT "     OO OO          BB   BB     OO OO       YYYY      II  "
  54. 87 PRINT "     OO OO          BBBBB       OO OO        YY       II  "
  55. 88 PRINT "      OOO           BB   BB      OOO         YY           "
  56. 89 PRINT "       O            BBBBB         O          YY       **  "
  57.    PRINT                  
  58.    PRINT
  59. 90 PRINT "GEE, THANKS A LOT,";NAME$;" ,I CAN HARDLY WAIT!!!!"   
  60. 91 PRINT "IT WOULD MAKE ME UNHAPPY NOT TO PLAY AGAIN!"
  61.    PRINT "Is there someone else out there who wants to play?";
  62.    INPUT WRD$
  63.    IF WRD$="YES" THEN GOTO 10
  64. 95 END
  65. EOF