home *** CD-ROM | disk | FTP | other *** search
- 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]
-