home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug054.ark / ARITH.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  1.0 KB  |  39 lines
  1. 10      RANDOMIZE
  2. 15      PRINT "HI.  TO STOP, TYPE 9999 FOR YOUR ANSWER."
  3. 20      PRINT "WHAT IS YOUR GRADE LEVEL";
  4. 30      INPUT G1
  5. 40      G2=G1-.5+RND
  6. 50      R=INT(2*1.73*G2^4)
  7. 60      A=INT(100*G2*RND)
  8. 70      IF A>R THEN 60
  9. 80      B=R-A
  10. 100     PRINT
  11. 102        FOR I=1 TO LEN(STR$(B))-LEN(STR$(A))+3
  12. 104        PRINT " ";
  13. 106        NEXT
  14. 108        PRINT A
  15. 120     PRINT " + ";B
  16. 140     R=A+B
  17. 200     PRINT "_______"
  18. 210     INPUT G
  19. 220     IF G=R THEN 310
  20. 225     IF G=9999 THEN 500
  21. 230     W=W+1
  22. 240     IF W>1 THEN 270
  23. 250     PRINT "WRONG, TRY AGAIN."
  24. 260     GOTO 100
  25. 270     PRINT "YOU MISSED THAT ONE TWICE."
  26. 280     PRINT "THE CORRECT ANSWER IS ";R
  27. 285     W=0
  28. 290     IF G2>G1 THEN 400
  29. 300     GOTO 350
  30. 310     W=0
  31. 320     PRINT "CORRECT !!!"
  32. 330     IF G2>G1 THEN 400
  33. 350     G1=.9*G1+.1*SQR(SQR(R/2/1.73))
  34. 400     PRINT: PRINT "HERE'S ANOTHER..."
  35. 410     GOTO 40
  36. 500     PRINT "OKAY.  SO LONG.  HOPE YOU ENJOYED IT."
  37. 510     PRINT "YOUR GRADE LEVEL IS NOW ";G1
  38. 999     END
  39.