home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / SUBTRACTION1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  36 lines

  1. 5 REM***COLORED ADDITION PRACTISE***
  2. 6 PRINT"[147]"
  3. 7 POKE53280,14
  4. 8 POKE53281,0
  5. 10 PRINT"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  6. 15 PRINT"[145][221]     "CHR$(18)"SUBTRACTION PRACTISE"CHR$(146)"             [221]"
  7. 20 PRINT"[145][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  8. 21 CN=0:CC=0:CF=0
  9. 25 PRINTCHR$(18)CHR$(158)"SET UPPER LIMIT FOR SUBTRAHEND          "
  10. 27 INPUT"";LA
  11. 28 PRINTCHR$(18)"SET UPPER LIMIT FOR SUBTRACTOR          "
  12. 29 INPUT"";LB
  13. 40 AA=INT(LA*RND(1))+1:AB=INT(LB*RND(1))+1
  14. 42 IFRS<0THEN40
  15. 45 RS=AA-AB
  16. 50 PRINTCHR$(18)CHR$(159)"  HOW MUCH IS     ";AA
  17. 60 PRINTCHR$(18)CHR$(159)"        MINUS     ";AB:PRINT:
  18. 70 INPUT"  YOUR ANSWER    ";RB
  19. 75 PRINTCHR$(18)"                                        "
  20. 80 IFRB<>RSTHENCF=CF+1:PRINTCHR$(28) "WRONG! TRY AGAIN!":GOTO50
  21. 90 IFRB=RSTHENCC=CC+1
  22. 100 PRINTCHR$(18)  "RIGHT!  "CHR$(146) "ANOTHER PROBLEM?  (Y/N)"
  23. 105 INPUT"";A$
  24. 110 IFA$="Y"THEN40
  25. 120 IFA$="N"THEN200
  26. 125 IFA$<>"Y"ANDA$<>"N"THEN105
  27. 200 CN=CC+CF:PRINT:PRINT
  28. 205 PRINTCHR$(159)"YOU SOLVED PROBLEMS RANGING TO NUMBER:"
  29. 210 PRINTCHR$(18)"           ",LA,"          ":PRINT
  30. 215 PRINT"TOTAL # OF PROBLEMS SOLVED:";CN:PRINT
  31. 220 PRINT"# OF CORRECT ANSWERS:";CC:PRINT
  32. 230 PRINT"# OF INCORRECT ASNSWER:";CF:PRINT
  33. 240 IFCN=CCTHENPRINTCHR$(158)"TERRIFFIC!YOU GOT THEM ALL!KEEP IT UP!"
  34. 250 IFCN<>CCTHENPRINTCHR$(5)"YOUR SCORE IS";100/CN*CC;"PERCENT."
  35. 256 END
  36.