home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
C64Educational
/
KINDR-MATH
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
9KB
|
369 lines
1 REM MATH 4 PROGRAM
10 REM MATH PROGRAM-FINALIZED.
20 PRINTCHR$(147)
22 PRINTCHR$(18)"COPYRIGHT (C) FEB 87; HATHORN.":PRINT
24 PRINTCHR$(18)"ALL RIGHTS RESERVED.":PRINT:PRINT
26 PRINTCHR$(18)"WAIT ABOUT 15 SECONDS AND"
27 PRINTCHR$(18)"PROGRAM WILL CONTINUE.":GOSUB 4500
28 PRINTCHR$(147):GOSUB 5000
30 INPUT"ENTER YOUR FIRST NAME PLEASE";N$
40 PRINTCHR$(147)
50 PRINT" THIS PROGRAM DEVELOPED FOR":PRINT
60 PRINT:PRINT:PRINT
70 PRINT" ";N$
80 PRINT"+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-"
90 PRINT:PRINT:PRINT
100 PRINT" PLEASE STAND BY WHILE I GET READY ":PRINT:PRINT:PRINT
110 PRINT"+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-"
120 READA
130 IFA=-1THENGOTO180
140 POKE53281,A
150 FORB=1TO300:NEXTB
160 GOTO120
170 DATA1,2,3,4,5,6,7,8,9,10,11,12,13,1,4,15,-1
180 POKE53281,6
190 PRINTCHR$(147)
200 PRINTCHR$(28):PRINTCHR$(18)"PRESS A TO ADD..S TO SUBTRACT..Q TO QUIT"
210 PRINTCHR$(31)
220 POKE53281,5
230 POKE53280,6
240 GETA$:IF A$=""THEN240:PRINT:PRINT
250 PRINTCHR$(147)
260 IF A$="A"THEN 340
270 IFA$="S"THEN740:PRINT:PRINT
280 IFA$="Q"THEN1150
290 PRINT:PRINT:PRINT:PRINT
300 PRINT:PRINTCHR$(18)"WRONG CHOICE"
310 GOSUB2880
320 PRINT:PRINT:PRINTCHR$(18)"TRY AGAIN.":PRINT:PRINT
330 GOTO 200
340 PRINTCHR$(18)"I LOVE TO ADD.":PRINT:PRINT
350 CRR=RIT:PRINTCHR$(144)
360 PRINTCHR$(18)"YOU HAVE"CRR"RIGHT.":PRINT
370 WRG=ERR
380 PRINTCHR$(18)"YOU HAVE"WRG"WRONG.":PRINT
390 A=0:B=0
395 PRINT"PRESS-RETURN-KEY AFTER EACH NUMBER.":PRINT:PRINT
400 INPUT"ENTER FIRST NUMBER";A
410 PRINT" +"
420 INPUT"ENTER NEXT NUMBER ";B
430 PRINT" [164][164][164][164][164][164][164]"
440 C=A+B
450 INPUT" YOUR ANSWER IS ";D
460 PRINT:PRINT
470 IFD=CTHEN590
480 IFD<>CTHEN490:PRINT:PRINT:PRINT
490 PRINTCHR$(18)"SORRY-WRONG ANSWER."
495 GOSUB2999
500 PRINT
510 IFD<>CTHENERR=ERR+1
520 IFD=CTHENRIT=RIT+1
530 PRINTCHR$(144)
540 PRINTCHR$(18)"[161][191][191][191][191][191][191][191][191][191][181] YOU HAVE"RIT"RIGHT. [181][191][191][191][191][191][191][191][181]"
550 PRINTCHR$(18)"[161][191][191][191][191][191][191][191][191][191][181] YOU HAVE"ERR"WRONG. [181][191][191][191][191][191][191][191][181]"
555 PRINTCHR$(18):PRINT:PRINTA;:PRINT"+";:PRINTB;:PRINT"=";:PRINTC
560 PRINTCHR$(129)
570 PRINT:PRINT:PRINT
580 GOTO200
590 POKE53280,7
600 PRINTCHR$(158)
610 POKE53281,4
620 PRINTCHR$(18)"YOU GOT IT RIGHT !"
625 GOSUB4000
630 PRINT
640 PRINTCHR$(18)""N$;" IS SMART.":PRINT
650 PRINTA;:PRINT"+";:PRINTB;:PRINT"=";:PRINTC:PRINT
660 IFD=CTHENRIT=RIT+1
670 PRINTCHR$(18)"[161][191][191][191][191][191][191][191][191][191][181] YOU HAVE"RIT"RIGHT. [181][191][191][191][191][191][191][191][181]"
680 PRINTCHR$(18)"[181][191][191][191][191][191][191][191][191][191][181] YOU HAVE"ERR"WRONG. [181][191][191][191][191][191][191][191][181]"
690 PRINT:PRINT
700 GOTO200
710 GETA$:IFA$=""GOTO710
720 GOTO200
730 PRINT:PRINT:PRINT"YOU MADE THE WRONG CHOICE."
735 FORCT=1TO500:NEXTCT
737 GOTO200
740 PRINTCHR$(18)"I LOVE TO SUBTRACT.":PRINT:PRINT
750 CRR=RIT:PRINTCHR$(5)
760 PRINTCHR$(18)"YOU HAVE"CRR"RIGHT.":PRINT
770 WRG=ERR
780 PRINTCHR$(18)"YOU HAVE"WRG"WRONG.":PRINT:PRINT:PRINT
790 E=0:F=0
795 PRINT"PRESS-RETURN-KEY AFTER EACH NUMBER.":PRINT
800 INPUT"ENTER FIRST NUMBER";E
810 PRINT" -"
820 IFE=FTHENG=0
830 INPUT"ENTER NEXT NUMBER ";F
840 PRINT" [164][164][164][164][164][164][164][164]"
850 INPUT"YOUR ANSWER IS ";G
860 IFE>FTHENH=E-F
870 IFE<FTHENH=E-F
880 IFE=FTHENH=E-F
890 IFG=HTHEN990
900 PRINT:PRINT:PRINT:PRINT:REM
910 PRINTCHR$(18)"WRONG ANSWER. TRY AGAIN.":PRINT
915 GOSUB2999
920 ERR=ERR+1
930 PRINTCHR$(5)
940 PRINTCHR$(18)"[161][191][191][191][191][191][191][191][191][191][181] YOU HAVE"RIT"RIGHT. [181][191][191][191][191][191][191][191][181]"
950 PRINTCHR$(18)"[161][191][191][191][191][191][191][191][191][191][181] YOU HAVE"ERR"WRONG. [181][191][191][191][191][191][191][191][181]"
960 PRINT:PRINT:PRINTE;:PRINT"-";:PRINTF;:PRINT"=";:PRINTH
970 PRINT:PRINT
980 GOTO200
990 PRINT:PRINT:PRINT:PRINT:REM
1000 PRINTCHR$(30)
1010 POKE53281,5
1020 PRINTCHR$(144)
1030 PRINTCHR$(18)"HOORAY FOR ";:PRINTN$;:PRINT". YOU GOT IT RIGHT.":PRINT
1035 GOSUB4000
1040 RIT=RIT+1
1050 PRINTCHR$(18)"[161][191][191][191][191][191][191][191][191][191][181] YOU HAVE"RIT"RIGHT. [181][191][191][191][191][191][191][191][181]"
1060 PRINTCHR$(18)"[161][191][191][191][191][191][191][191][191][191][181] YOU HAVE"ERR"WRONG. [181][191][191][191][191][191][191][191][181]":PRINT
1070 PRINTE;:PRINT"-";:PRINTF;:PRINT"=";:PRINTH:PRINT:PRINT
1080 GOTO200
1090 GETA$:IFA$=""THEN1090
1100 IFA$="G"THENPRINTCHR$(5):PRINTCHR$(147):GOTO200
1110 IFA$="Q"THEN1150
1120 PRINTCHR$(147)
1130 PRINT:PRINT:PRINTCHR$(18)"WRONG CHOICE. PRESS G OR Q.":PRINT:PRINT:PRINT
1140 GOTO1080
1150 PRINTCHR$(147)
1160 PRINTCHR$(18)"ARE YOU SURE YOU WANT TO QUIT?":PRINT
1170 PRINTCHR$(18)"PRESS-Y-FOR YES.":PRINT
1180 PRINTCHR$(18)"PRESS-N-FOR NO."
1190 GETA$:IF A$=""GOTO1190
1200 IF A$="Y"THENPRINTCHR$(147):GOTO1270
1210 IF A$="N"THEN180
1215 PRINTCHR$(147)
1220 PRINT"YOU MADE THE WRONG CHOICE.":PRINT
1230 GOSUB2880
1233 FORCT=1TO500:NEXTCT
1237 PRINTCHR$(147):GOTO1160
1240 PRINT
1250 PRINT:GOTO1190
1260 PRINTCHR$(147)
1270 PRINT"BYE BYE ";:PRINTN$;:PRINT". I HOPE YOU LEARNED A"
1280 PRINT"LOT TODAY. DID YOU?"
1290 PRINTCHR$(154)
1300 PRINT:PRINT" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]NOTICE[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":PRINT:PRINT
1310 PRINT:PRINT "THIS EDUCATIONAL PROGRAM WAS WRITTEN BY":PRINT
1320 PRINTCHR$(18)" LEGUSTA HATHORN ":PRINT
1330 PRINT"MASTERED AT 12 MIDNIGHT ON FEB 24, 1987. COPYRIGHT (C) FEB 87."
1334 PRINT
1335 PRINT"APPROVED TO COPY/DISTRIBUTE UNDER FREE WARE CONCEPT-CANNOT BE SOLD."
1340 READA
1350 IFA=-1THENGOTO1400
1360 POKE53281,A
1370 FORB=1TO300:NEXTB
1380 GOTO1340
1390 DATA1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,-1
1400 POKE53281,0
1410 RESTORE
1420 PRINTCHR$(147)
1430 TTT=ERR+RIT
1440 IFTTT=0THENGOTO2720
1450 AVG=RIT/TTT*100
1460 IFAVG<70THENGOTO1540"
1470 [139]AVG[177]69[175]AVG[179]80[167][137]1720
1480 [139]AVG[177]79[175]AVG[179]85[167][137]1900
1490 [139]AVG[177]85[175]AVG[179]89[167][137]2070
1500 [139]AVG[177]89[175]AVG[179]95[167][137]2210
1510 [139]AVG[177]94[175]AVG[179]100[167][137]2350
1520 [139]AVG[178]100[176]AVG[177]100[167][137]2540
1530 [153]:[153]:[153]
1540 [153][199](144)
1550 [151]53280,7
1560 [151]53281,1
1570 [153]" SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
1580 [153]" SPC(SPC("
1590 [153]" SPC(SPC("
1600 [153]" SPC(SPC("
1610 [153]" SPC(SPC(SPC(SPC(SPC(SPC("
1620 [153]" SPC(SPC("
1630 [153]" SPC(SPC("
1640 [153]" SPC(SPC("
1650 [153]" SPC(SPC("
1660 [153]" SPC(SPC("
1670 [153][199](154)
1680 [153]
1681 [141]2999
1690 [153]"BAD WORK--YOU HAVE TO TRY HARDER. GOT TO BE REAL SMART IN MATH."
1691 [129]DL[178]1[164]500:[130]DL
1693 [141]2999
1700 [153]
1710 [137]2700
1720 [151]53280,5
1730 [151]53281,7
1740 [153][199](144):[153]
1750 [153]" SPC(SPC(SPC(SPC(SPC(SPC("
1760 [153]" SPC(SPC( SPC("
1770 [153]" SPC(SPC(CLOSECLOSECLOSECLOSECLOSESPC("
1780 [153]" SPC(SPC( SPC("
1790 [153]" SPC(SPC( SPC("
1800 [153]" SPC(SPC( SPC("
1810 [153]" SPC(SPC( SPC("
1820 [153]" SPC(SPC( SPC("
1830 [153]" SPC(SPC( SPC("
1840 [153]" SPC(SPC(SPC(SPC(SPC(SPC("
1850 [153]:[153]
1860 [153][199](154)
1870 [153][199](18)"THIS IS GETTING BAD. ASK FOR HELP AND STUDY HARDER PLEASE."
1871 [141]2999
1880 [153]
1890 [137]2700
1900 [153][199](5)
1910 [151]53280,14
1920 [151]53281,6
1930 [153]" SPC(SPC(SPC(SPC(SPC(SPC(SPC("
1940 [153]" SPC(SPC( SPC("
1950 [153]" SPC(SPC("
1960 [153]" SPC(SPC("
1970 [153]" SPC(SPC("
1980 [153]" SPC(SPC("
1990 [153]" SPC(SPC("
2000 [153]" SPC(SPC("
2010 [153]" SPC(SPC( SPC("
2020 [153]" SPC(SPC(SPC(SPC(SPC(SPC(SPC("
2030 [151]54276,17
2040 [153][199](158)
2050 [153][199](18)"GRADE OF - C - IS OK BUT YOU CAN DO A LOT BETTER.":[153]
2060 [137]2700
2070 [151]53281,13
2080 [151]53280,4
2090 [153][199](31)
2100 [153]" SPC(SPC(SPC(SPC(SPC(SPC(SPC("
2110 [153]" SPC( SPC("
2120 [153]" SPC( SPC((null)"
2130 [153]" SPC( SPC("
2140 [153]" SPC(SPC(SPC(SPC(SPC(SPC((null)"
2150 [153]" SPC( SPC("
2160 [153]" SPC( SPC("
2170 [153]" SPC( SPC("
2180 [153]" SPC(SPC(SPC(SPC(SPC(SPC(SPC((null)(null)":[153]
2190 [153][199](144):[153]
2200 [153]:[153][199](18)"B IS NOT A BAD GRADE. GOOD WORK.":[153]:[137]2700
2210 [153][199](155)
2220 [151]53280,5
2230 [151]53281,6
2240 [153]" SPC(SPC(SPC(SPC(SPC(SPC(SPC("
2250 [153]" SPC( SPC("
2260 [153]" SPC( SPC((null) (null)"
2270 [153]" SPC( SPC( NOTNOT(null)NOTNOT"
2280 [153]" SPC(SPC(SPC(SPC(SPC(SPC((null) (null)"
2290 [153]" SPC( SPC( (null)"
2300 [153]" SPC( SPC("
2310 [153]" SPC( SPC("
2320 [153]" SPC(SPC(SPC(SPC(SPC(SPC(SPC((null)(null)":[153]:[153]
2330 [153][199](18)"GOOD WORK HERE. VERY SMART IN MATH."
2340 [137]2700
2350 [153]:[153]
2360 [153][199](156)
2370 [151]53281,1
2380 [151]53280,3
2390 [153]" SPC(SPC(SPC(SPC(SPC(SPC(SPC("
2400 [153]" SPC(SPC("
2410 [153]" SPC( SPC("
2420 [153]" SPC( SPC("
2430 [153]" SPC(NOTNOTNOTNOTNOTNOTNOTSPC("
2440 [153]" SPC( SPC("
2450 [153]" SPC( SPC("
2460 [153]" SPC( SPC("
2470 [153]" SPC( SPC("
2480 [153]" SPC( SPC("
2490 [153]" NOTSPC(NOTNOTSPC(NOT":[153]:[153]
2500 [153][199](153)
2510 [153][199](18)"SUPER FANTASTIC. VERY SMART. GREAT WORK."
2515 [141]4000
2516 [129]DL[178]1[164]300:[130]DL
2517 [141]4000
2520 [153]:[153]
2530 [137]2700
2540 [153][199](28)
2550 [151]53281,1
2560 [151]53280,4:[141]4000
2570 [153]" SPC(SPC(SPC(SPC(SPC(SPC(SPC("
2580 [153]" SPC(SPC("
2590 [153]" SPC( SPC("
2600 [153]" SPC( SPC( (null) "
2610 [153]" SPC(NOTNOTNOTNOTNOTNOTNOTSPC( NOTNOTNOT(null)NOTNOT"
2620 [153]" SPC( SPC( (null) "
2630 [153]" SPC( SPC( (null) "
2640 [153]" SPC( SPC("
2650 [153]" SPC( SPC("
2660 [153]" SPC( SPC("
2670 [153]" NOTSPC(NOTNOTSPC(NOT"
2680 [153][199](144):[129]D[178]1[164]500:[130]D:[141]4000
2690 [153][199](18)"EXCELLENT WORK. SMARTEST ONE IN THE CLASS.":[153]
2696 [129]DL[178]1[164]500:[130]DL
2697 [141]4000
2700 [153]"YOU WORKED"TTT"PROBLEM(S). "RIT" RIGHT AND"ERR" WRONG.":[153]
2701 [129]DL[178]1[164]700:[130]DL
2710 AVG[178]RIT[173]TTT[172]100:[153][199](18)"YOUR SCORE IS ";AVG:[153]:[137]2750
2720 [153]:[153]:[153]:[153]
2730 [153][199](18)"YOU DID NOT WORK ANY PROBLEMS. NO SCORE GIVEN."
2740 [153]:[153]:[153]:[153]:[153]
2750 [153][199](18)"DO YOU WANT TO CONTINUE? PRESS [Y] FOR YES OR [N] FOR NO."
2760 [161]A$:[139]A$[178]""[137]2760
2770 [139] A$[178]"Y"[167][137]180
2780 [139]A$[178]"N"[167][137]2800
2790 [153]:[141]2880:[137]2750
2800 [153][199](147)
2805 [153]
2810 [153]"THIS PROGRAM COMES UNDER U.S. COPYRIGHT (C) LAWS.";
2820 [153]" DUPLICATION OR (LIST) FOR RE- TYPING IS PUNISHABLE BY LAW.":[153]
2830 [153]"VIOLATORS ARE SUBJECT TO THE MAXIMUM PROSECUTION ALLOWED BY LAW."
2840 [153]:[153]
2845 [153]"TO ORDER EXTRA COPIES, SEND $9.95 TO THE FOLLOWING ADDRESS:":[153]
2847 [153]"THE DATA CENTER, 387 GINGER DR., BILOXI, MS. 39532":[153]
2848 [153]"ALSO ASK ABOUT OUR NEW DISK..MULTIPLICA-TION AND DIVISION.":[153]
2849 [153][199](18)"THE PRICE IS ONLY $12.95., WITH SHIPPING"
2850 [153]:[153]"THAT'S THE END.....WHAT'S NEXT?"
2860 [141]2880
2870 [128]
2880 [129]CT[178]1[164]4:[143]
2890 [151]54296,8
2900 [151]54278,248
2910 [151]54273,17
2920 [151]54276,17
2930 [139]CT[178]4[167][137]2950
2940 [130]CT
2950 [151]54296,0
2960 [142]
2999 [129]CT[178]1[164]30
3000 [151]54296,15
3010 [151]54278,248
3020 [151]54273,17
3030 [151]54276,17
3040 [139]CT[178]30[167][137]3054
3050 [130]CT
3054 [151]54296,0
3055 [142]
4000 T[178]87:U$[178]"251331421502421502"
4010 S[178]54272:[151]S[170]6,96:[151]S[170]24,15
4020 [129]I[178]1[164]18 [169]3
4030 [151]S[170]1,[197]([202](U$,I,2)):[151]S[170]4,33
4040 [129]J[178]1[164]T[172][197]([202](U$,I[170]2,1)):[130]
4050 [151]S[170]4,0:[130]
4055 [151]54296,0
4060 [142]
4500 [153]:[153]:[153]:[153]
4501 [153]"COPYRIGHT PROGRAM RELEASED FOR DOWNLOAD-ING/UPLOADING AND DISTRIBUTION";
4510 [153]"UNDER FREEWARE CONCEPT. CANNOT BE SOLD OR DISTRIBUTED FOR";
4520 [153]"PROFIT...UNLESS AUTHORIZED BY THE DATA CENTER."
4522 [129]DL[178]1[164]9000:[130]
4525 [153][199](147):[142]
5000 [153]"KINDER MATH IS A FREEWARE PROGRAM.":[153]
5005 [153]"IF YOU FIND THE PROGRAM USEFUL...PLEASE SUPPORT THE FREEWARE CONCEPT BY";
5010 [153]"SENDING $2-$5.00 TO THE ADDRESS LISTED BELOW.";
5015 [153]"YOUR SUPPORT ENABLES US TO CONTINUE PRO-DUCING USEFUL PROGRAMS AT";
5020 [153]"LOW COST.":[153]:[153]:[153]:[153]:[153]:[153]
5025 [153][199](18)"SEND CONTRIBUTION TO":[153]
5030 [153]"THE DATA CENTER"
5035 [153]"ATTN: LEGUSTA HATHORN (OWNER)"
5040 [153]"387 GINGER DRIVE"
5050 [153]"BILOXI, MS 39532"
5051 [153]:[153][199](18)"WAIT...WAIT...WAIT...WAIT"
5052 [129]DL[178]1[164]20000:[130]
5053 [153][199](147)
5055 [142]