home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / MULTIPLICATION1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  36 lines
  1. 5 REM***COLORED MULTIPLICATION 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)"MULTIPLICATION 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 1ST FACTOR          "
  10. 27 INPUT"";LA
  11. 28 PRINTCHR$(18)"SET UPPER LIMIT FOR 2ND FACTOR          "
  12. 29 INPUT"";LB
  13. 40 AA=INT(LA*RND(1))+1:AB=INT(LB*RND(1))+1
  14. 45 RS=AA*AB
  15. 50 PRINTCHR$(18)CHR$(159)"  HOW MUCH IS     ";AA
  16. 60 PRINTCHR$(18)CHR$(159)"        TIMES     ";AB:PRINT:
  17. 70 INPUT"  YOUR ANSWER    ";RB
  18. 75 PRINTCHR$(18)"                                        "
  19. 80 IFRB<>RSTHENCF=CF+1:PRINTCHR$(28) "WRONG! TRY AGAIN!":GOTO50
  20. 90 IFRB=RSTHENCC=CC+1
  21. 100 PRINTCHR$(18)  "RIGHT!  "CHR$(146) "ANOTHER PROBLEM?  (Y/N)"
  22. 105 INPUT"";A$
  23. 110 IFA$="Y"THEN40
  24. 120 IFA$="N"THEN200
  25. 125 IFA$<>"Y"ANDA$<>"N"THEN105
  26. 200 CN=CC+CF:PRINT:PRINT
  27. 205 PRINTCHR$(159)"YOU SOLVED PROBLEMS RANGING TO NUMBER:"
  28. 210 PRINTCHR$(18)"           ",LA*LB,"          ":PRINT
  29. 215 PRINT"TOTAL # OF PROBLEMS SOLVED:";CN:PRINT
  30. 220 PRINT"# OF CORRECT ANSWERS:";CC:PRINT
  31. 230 PRINT"# OF INCORRECT ASNSWER:";CF:PRINT
  32. 240 IFCN=CCTHENPRINTCHR$(158)"TERRIFFIC!YOU GOT THEM ALL!KEEP IT UP!"
  33. 250 IFCN<>CCTHENPRINTCHR$(5)"YOUR SCORE IS";100/CN*CC;"PERCENT."
  34. 260 END
  35. 6682 
  36.