home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / PRACTICE-MATH14 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.6 KB  |  113 lines
  1. 1 REM DO NOT LIST ME RUN ME
  2. 2 REM PRACTICE MATH(null)
  3. 5 PRINT"[147]"
  4. 6 LET M = 0
  5. 7 LET EX = 0
  6. 9 PRINT""
  7. 10 POKE53281,0:POKE53280,0:POKE646,1
  8. 15 PRINT"        [196][207][213][199]'[211][160][205][193][212][200][160][208][210][207][199][210][193][205]"
  9. 20 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"    1 - [208]RACTICE YOUR ADDITION"
  10. 30 PRINT:PRINT"    2 - [208]RACTICE YOUR SUBTRACTION"
  11. 40 PRINT:PRINT"    3 - [208]RACTICE YOUR MULTIPLICATION"
  12. 50 PRINT:PRINT"    4 - [208]RACTICE YOUR SQUARE ROOTS"
  13. 55 PRINT:PRINT"    5 - [208]RACTICE YOUR DIVISION"
  14. 57 PRINT:PRINT"    6 - [208]RACTICE YOUR RADIUS'"
  15. 58 PRINT:PRINT"    7 - [208]RACTICE YOUR DIAMETERS"
  16. 59 PRINT:PRINT"    8 - [197]ND PROGRAM"
  17. 60 PRINT:PRINT"    [197]NTER YOUR CHOICE";
  18. 70 INPUT CHOICE
  19. 80 IF CHOICE = 8 THEN SYS64738
  20. 100 PRINT:INPUT"    HOW MANY EXAMPLES DO YOU WANT";EX
  21. 410 PRINT:INPUT"    WHAT LEVEL DO YOU WANT(1 TO 3)";LEVEL
  22. 420 IF LEVEL = 1 THEN LET NU = 1:LET NUM = 100
  23. 430 IF LEVEL = 2 THEN LET NU = 100:LET NUM = 1000
  24. 440 IF LEVEL = 3 THEN LET NU = 1000:LET NUM = 10000
  25. 450 IF CHOICE = 2 THEN GOTO 595
  26. 460 IF CHOICE = 3 THEN GOTO 710
  27. 470 IF CHOICE = 4 THEN GOTO 830
  28. 480 IF CHOICE = 5 THEN GOTO 930
  29. 482 IF CHOICE = 6 THEN GOTO 1030
  30. 483 IF CHOICE = 7 THEN GOTO 2040
  31. 485 REM - ADDITION
  32. 490 FOR I = 1 TO EX
  33. 510 GOSUB 4050
  34. 540 LET C = A + B
  35. 560 PRINT"[147]":PRINT:PRINT:PRINTA"+"B"=";
  36. 580 INPUT ANSWER
  37. 582 GOSUB 4250
  38. 585 NEXT I
  39. 587 PRINT"YOU GOT"M"OUT OF"EX"!!":FOR J = 1 TO 2000:NEXT J
  40. 590 GOTO 5
  41. 592 REM - SUBTRACTION
  42. 595 FOR I = 1 TO     
  43. 23820 GOSUB 4050
  44. 620 LET C = A - B
  45. 630 PRINT"[147]":PRINT:PRINT:PRINTA"-"B"=";
  46. 640 INPUT ANSWER
  47. 665 GOSUB 4250
  48. 680 NEXT I
  49. 690 PRINT"YOU GOT"M"OUT OF"EX"!!":FOR J = 1 TO 2000:NEXT J
  50. 700 GOTO 5
  51. 705 REM - MULTIPICATION
  52. 710 FOR I = 1 TO EX
  53. 725 GOSUB 4050
  54. 740 LET C = A * B
  55. 750 PRINT"[147]":PRINT:PRINT:PRINTA"*"B"=";
  56. 760 INPUT ANSWER
  57. 785 GOSUB 4250
  58. 800 NEXT I
  59. 810 PRINT"YOU GOT"M"OUT OF"EX"!!":FOR J = 1 TO 2000:NEXT J
  60. 820 GOTO 5
  61. 830 FOR I = 1 TO EX
  62. 835 LET NUM = 25
  63. 840 GOSUB 4100
  64. 850 LET C = B * B
  65. 860 PRINT"[147]":PRINT"WHAT IS THE SQUARE ROOT OF";C
  66. 870 INPUT ANSWER
  67. 880 IF ANSWER=B THEN PRINT"THAT'S CORRECT!!!":FOR J = 1 TO 2000:NEXT J:LETM=M+1
  68. 890 IF ANSWER     
  69. 42784  PRINT"THAT'S WRONG!!!":FOR J = 1 TO 2000:NEXT J
  70. 900 NEXT I
  71. 910 PRINT"YOU GOT"M"OUT OF"EX"!!":FOR J = 1 TO 2000:NEXT J
  72. 920 GOTO 5
  73. 930 FOR I = 1 TO EX
  74. 940 GOSUB 4050
  75. 945 IF A = 0 THENGOTO940
  76. 950 LET C= B/A
  77. 955 IF C <> INT(C) THEN PRINT"    ONE MOMENT PLEASE":GOTO940
  78. 960 PRINT"[147]":PRINT:PRINT:PRINTB"/"A"="
  79. 970 INPUT ANSWER
  80. 980 IF ANSWER = C THEN PRINT"THAT'S CORRECT!!":FORJ=1TO2000:NEXTJ:LETM=M+1
  81. 990 IF ANSWER <> C THEN PRINT"THAT'S WRONG!!":FOR J = 1 TO 2000:NEXT J
  82. 1000 NEXT I
  83. 1010 PRINT"YOU GOT"M"OUT OF"EX"!!!":FOR J = 1 TO 2000:NEXT J
  84. 1020 GOTO 5
  85. 1030 FOR I = 1 TO EX
  86. 1040 LET A = (RND(NU)*NUM)
  87. 1060 LET R = A*A
  88. 1070 LET C = 3.14 * R
  89. 1080 PRINT    
  90. 8857 FIND THE RADIUS OF"A
  91. 1090 [133] ANSWER
  92. 2000 [141] 4250
  93. 2010 [130] I
  94. 2020 [153]"YOU GOT"M"OUT OF"EX"!!!":[129] J [178] 1 [164] 2000:[130] J
  95. 2030 [137] 5
  96. 2040 [129] I [178] 1 [164] EX
  97. 2050 [136] A [178] [181]([187](NU)[172]NUM)
  98. 2060 [136] C [178] A[173]2
  99. 2070 [153]"LOAD":[153]"FIND THE RADIUS OF THIS DIAMETER OF"A
  100. 2080 [133] ANSWER
  101. 2090 [141] 4250
  102. 3000 [130] I
  103. 3010 [153]"YOU GOT"M"OUT OF"EX"!!!":[129] J [178] 1 [164] 2000:[130] J
  104. 3020 [137] 5
  105. 4000 [128]
  106. 4050 [136] A [178] [181]([187](NU)[172]NUM)
  107. 4100 [136] B [178] [181]([187](NU)[172]NUM)
  108. 4150 [142]
  109. 4200 [128]
  110. 4250 [139] ANSWER[178]C [167] [153]"THAT'S CORRECT!!!":[129] J [178] 1 [164] 2000:[130] J:[136]M[178]M[170]1
  111. 4300 [139] ANSWER [179][177] C [167] [153]"THAT'S WRONG!!!":[129] J [178] 1 [164] 2000:[130] J
  112. 4350 [142]
  113.