home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
C64Educational
/
PRACTICE-MATH14
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
3KB
|
113 lines
1 REM DO NOT LIST ME RUN ME
2 REM PRACTICE MATH(null)
5 PRINT"[147]"
6 LET M = 0
7 LET EX = 0
9 PRINT""
10 POKE53281,0:POKE53280,0:POKE646,1
15 PRINT" [196][207][213][199]'[211][160][205][193][212][200][160][208][210][207][199][210][193][205]"
20 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT" 1 - [208]RACTICE YOUR ADDITION"
30 PRINT:PRINT" 2 - [208]RACTICE YOUR SUBTRACTION"
40 PRINT:PRINT" 3 - [208]RACTICE YOUR MULTIPLICATION"
50 PRINT:PRINT" 4 - [208]RACTICE YOUR SQUARE ROOTS"
55 PRINT:PRINT" 5 - [208]RACTICE YOUR DIVISION"
57 PRINT:PRINT" 6 - [208]RACTICE YOUR RADIUS'"
58 PRINT:PRINT" 7 - [208]RACTICE YOUR DIAMETERS"
59 PRINT:PRINT" 8 - [197]ND PROGRAM"
60 PRINT:PRINT" [197]NTER YOUR CHOICE";
70 INPUT CHOICE
80 IF CHOICE = 8 THEN SYS64738
100 PRINT:INPUT" HOW MANY EXAMPLES DO YOU WANT";EX
410 PRINT:INPUT" WHAT LEVEL DO YOU WANT(1 TO 3)";LEVEL
420 IF LEVEL = 1 THEN LET NU = 1:LET NUM = 100
430 IF LEVEL = 2 THEN LET NU = 100:LET NUM = 1000
440 IF LEVEL = 3 THEN LET NU = 1000:LET NUM = 10000
450 IF CHOICE = 2 THEN GOTO 595
460 IF CHOICE = 3 THEN GOTO 710
470 IF CHOICE = 4 THEN GOTO 830
480 IF CHOICE = 5 THEN GOTO 930
482 IF CHOICE = 6 THEN GOTO 1030
483 IF CHOICE = 7 THEN GOTO 2040
485 REM - ADDITION
490 FOR I = 1 TO EX
510 GOSUB 4050
540 LET C = A + B
560 PRINT"[147]":PRINT:PRINT:PRINTA"+"B"=";
580 INPUT ANSWER
582 GOSUB 4250
585 NEXT I
587 PRINT"YOU GOT"M"OUT OF"EX"!!":FOR J = 1 TO 2000:NEXT J
590 GOTO 5
592 REM - SUBTRACTION
595 FOR I = 1 TO
23820 GOSUB 4050
620 LET C = A - B
630 PRINT"[147]":PRINT:PRINT:PRINTA"-"B"=";
640 INPUT ANSWER
665 GOSUB 4250
680 NEXT I
690 PRINT"YOU GOT"M"OUT OF"EX"!!":FOR J = 1 TO 2000:NEXT J
700 GOTO 5
705 REM - MULTIPICATION
710 FOR I = 1 TO EX
725 GOSUB 4050
740 LET C = A * B
750 PRINT"[147]":PRINT:PRINT:PRINTA"*"B"=";
760 INPUT ANSWER
785 GOSUB 4250
800 NEXT I
810 PRINT"YOU GOT"M"OUT OF"EX"!!":FOR J = 1 TO 2000:NEXT J
820 GOTO 5
830 FOR I = 1 TO EX
835 LET NUM = 25
840 GOSUB 4100
850 LET C = B * B
860 PRINT"[147]":PRINT"WHAT IS THE SQUARE ROOT OF";C
870 INPUT ANSWER
880 IF ANSWER=B THEN PRINT"THAT'S CORRECT!!!":FOR J = 1 TO 2000:NEXT J:LETM=M+1
890 IF ANSWER
42784 PRINT"THAT'S WRONG!!!":FOR J = 1 TO 2000:NEXT J
900 NEXT I
910 PRINT"YOU GOT"M"OUT OF"EX"!!":FOR J = 1 TO 2000:NEXT J
920 GOTO 5
930 FOR I = 1 TO EX
940 GOSUB 4050
945 IF A = 0 THENGOTO940
950 LET C= B/A
955 IF C <> INT(C) THEN PRINT" ONE MOMENT PLEASE":GOTO940
960 PRINT"[147]":PRINT:PRINT:PRINTB"/"A"="
970 INPUT ANSWER
980 IF ANSWER = C THEN PRINT"THAT'S CORRECT!!":FORJ=1TO2000:NEXTJ:LETM=M+1
990 IF ANSWER <> C THEN PRINT"THAT'S WRONG!!":FOR J = 1 TO 2000:NEXT J
1000 NEXT I
1010 PRINT"YOU GOT"M"OUT OF"EX"!!!":FOR J = 1 TO 2000:NEXT J
1020 GOTO 5
1030 FOR I = 1 TO EX
1040 LET A = (RND(NU)*NUM)
1060 LET R = A*A
1070 LET C = 3.14 * R
1080 PRINT
8857 FIND THE RADIUS OF"A
1090 [133] ANSWER
2000 [141] 4250
2010 [130] I
2020 [153]"YOU GOT"M"OUT OF"EX"!!!":[129] J [178] 1 [164] 2000:[130] J
2030 [137] 5
2040 [129] I [178] 1 [164] EX
2050 [136] A [178] [181]([187](NU)[172]NUM)
2060 [136] C [178] A[173]2
2070 [153]"LOAD":[153]"FIND THE RADIUS OF THIS DIAMETER OF"A
2080 [133] ANSWER
2090 [141] 4250
3000 [130] I
3010 [153]"YOU GOT"M"OUT OF"EX"!!!":[129] J [178] 1 [164] 2000:[130] J
3020 [137] 5
4000 [128]
4050 [136] A [178] [181]([187](NU)[172]NUM)
4100 [136] B [178] [181]([187](NU)[172]NUM)
4150 [142]
4200 [128]
4250 [139] ANSWER[178]C [167] [153]"THAT'S CORRECT!!!":[129] J [178] 1 [164] 2000:[130] J:[136]M[178]M[170]1
4300 [139] ANSWER [179][177] C [167] [153]"THAT'S WRONG!!!":[129] J [178] 1 [164] 2000:[130] J
4350 [142]