home *** CD-ROM | disk | FTP | other *** search
- 5 REM***COLORED ADDITION PRACTISE***
- 6 PRINT"[147]"
- 7 POKE53280,14
- 8 POKE53281,0
- 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]"
- 15 PRINT"[145][221] "CHR$(18)"SUBTRACTION PRACTISE"CHR$(146)" [221]"
- 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]"
- 21 CN=0:CC=0:CF=0
- 25 PRINTCHR$(18)CHR$(158)"SET UPPER LIMIT FOR SUBTRAHEND "
- 27 INPUT"";LA
- 28 PRINTCHR$(18)"SET UPPER LIMIT FOR SUBTRACTOR "
- 29 INPUT"";LB
- 40 AA=INT(LA*RND(1))+1:AB=INT(LB*RND(1))+1
- 42 IFRS<0THEN40
- 45 RS=AA-AB
- 50 PRINTCHR$(18)CHR$(159)" HOW MUCH IS ";AA
- 60 PRINTCHR$(18)CHR$(159)" MINUS ";AB:PRINT:
- 70 INPUT" YOUR ANSWER ";RB
- 75 PRINTCHR$(18)" "
- 80 IFRB<>RSTHENCF=CF+1:PRINTCHR$(28) "WRONG! TRY AGAIN!":GOTO50
- 90 IFRB=RSTHENCC=CC+1
- 100 PRINTCHR$(18) "RIGHT! "CHR$(146) "ANOTHER PROBLEM? (Y/N)"
- 105 INPUT"";A$
- 110 IFA$="Y"THEN40
- 120 IFA$="N"THEN200
- 125 IFA$<>"Y"ANDA$<>"N"THEN105
- 200 CN=CC+CF:PRINT:PRINT
- 205 PRINTCHR$(159)"YOU SOLVED PROBLEMS RANGING TO NUMBER:"
- 210 PRINTCHR$(18)" ",LA," ":PRINT
- 215 PRINT"TOTAL # OF PROBLEMS SOLVED:";CN:PRINT
- 220 PRINT"# OF CORRECT ANSWERS:";CC:PRINT
- 230 PRINT"# OF INCORRECT ASNSWER:";CF:PRINT
- 240 IFCN=CCTHENPRINTCHR$(158)"TERRIFFIC!YOU GOT THEM ALL!KEEP IT UP!"
- 250 IFCN<>CCTHENPRINTCHR$(5)"YOUR SCORE IS";100/CN*CC;"PERCENT."
- 256 END
-