home *** CD-ROM | disk | FTP | other *** search
- 5 PRINT"[147]":POKE 53281,1:POKE 53280,1:POKE 774,0
- 6 PRINT"[159] ";
- 7 PRINT" [159][146][161][156]FREEWARE SOFTWARE[159][161] ";
- 8 PRINT" [155][146] [158][161][155][146] [158][191][172][190][155] [159] ";
- 9 PRINT" [155][146] [158][190][155] [158][146][188][187][162][155][146] [158][172]";
- 10 PRINT"[191][155] [159][146][161][156]C.C.DENNIS 1987[155] [159][161] [158][146][188][162]";
- 11 PRINT"[162][162][155][146] [158][162][162][146][190] [155][146] [158][188][155] [158][190][155] [158][190][155] [159] ";
- 12 PRINT" [146] [158][190] ";
- 13 PRINT" [159] [144][146]OWINGS MILLS, MD[159] [159] ";
- 14 PRINT" [129] ";
- 15 PRINT" [146][161] [161] [146][161] [161] ";
- 16 PRINT" [156] [129][146][161] [161][146] [162][155] [172][187][155] [172][162] [172][162][162][162][155] [187]";
- 17 PRINT"[155] [172][155] [129][161] [161][156] [129] [156] [144][146]GRADE[156] [129][146][161] [161]";
- 18 PRINT"[146] [161][191][190][161][155] [191][146][188][187][155] [161][155] [161][155] [161][146] [129][161] [161][156] [144]";
- 19 PRINT"[146]GRADE[156] [129] [156] [129][146][161] [161][155][146] [161][155] [161][172][162][162]";
- 20 PRINT"[146][191][155] [161][155] [172][162][187][146] [129][161] [161][156] [129] [156] [144][146]3";
- 21 PRINT"[156] [129][146][161] [161][155][146] [190][155] [190][188][155] [188][155] [190][155] [190][155] ";
- 22 PRINT"[188] [129][161] [161][156] [144][146]4[156] [129] [156] [129][146][161] [161] ";
- 23 PRINT" [129][146][161] [161][156] [129] [156] ";
- 24 PRINT"[129][146][161] [161] [129][146][161] [161][156] [129]";
- 25 PRINT" [156] [129][146][161] [161] [144][146]VER 4.0 [129]";
- 26 PRINT"[146][161] [161][156] [129] [156] [129][146][161] [161] ";
- 27 PRINT" [129][146][161] [161][156] [129] [146][161] [161] ";
- 28 PRINT" [146][161] [161] [159][146] [155] ";
- 29 PRINT" [159] [155] ";
- 30 PRINT" [155] [159] [155] ";
- 31 PRINT" PRESS F7 FOR INSTRUCTIONS[155] ";
- 32 PRINT"[159] [155] ";
- 33 PRINT" [159] [155] PRESS F1 TO CONTINUE ON [155] ";
- 34 PRINT" [159] [155] ";
- 35 PRINT" ";
- 37 GET F$:IF F$=""THEN37:IF F$=CHR$(133)THEN 100
- 38 IF F$=CHR$(136)THEN6000
- 100 PRINTCHR$(147)
- 110 POKE 53280,8:POKE 53281,8:PRINT
- 300 PRINT "[144]WHAT IS YOUR NAME ?":PRINT
- 305 POKE 19,32:INPUT "";N$
- 310 PRINT "[147]HELLO "N$
- 315 POKE 53280,8:POKE 53281,12
- 320 PRINT "[144]WHAT WOULD YOU[144] LIKE TO DO ?"
- 321 E=0:PRINT "SELECT THE LETTER":PRINT:PRINT
- 325 PRINT "[193][193][159][193][156][193][193][193][158][193][144][193][193][159][193][156][193][193][193][158][193][144][193][193][159][193][156][193]"
- 327 PRINT "[193] [156] [193]"
- 329 PRINT "[193] M[146]ULTIPLICATION [193]"
- 330 PRINT "[193] D[146]IVISION[144] [158] [193]"
- 335 PRINT "[193] A[146]DDITION[144] [156][193]"
- 340 PRINT "[193] S[146]UBTRACTION[144] [193]"
- 341 PRINT"[193] Q[146]UIT [144] [193]"
- 345 PRINT "[193] [159] [193]"
- 347 PRINT "[193][156][193][158][193][193][193][193][193][193][156][193][158][193][159][193][193][156][193][193][193][156][193][193][193]"
- 450 GET MM$:IF MM$=""GOTO 450
- 455 IF MM$="M"THEN GOTO 1000
- 456 IF MM$="S" THEN GOTO 3000
- 457 IF MM$="A"THEN GOTO 2000
- 459 IF MM$="D" THEN GOTO 4000
- 600 IF MM$="Q" THEN GOTO 5500
- 1000 POKE 53280,11:POKE 53281,12
- 1010 PRINTCHR$(147):J=RND(-TI)
- 1015 FOR J=1TO10
- 1100 R=INT(RND(0)*9+1)
- 1120 PRINT ""R
- 1130 S=INT(RND(0)*9+1)
- 1140 PRINT "X"S
- 1142 PRINT "[163][163][163][163]"
- 1145 PRINT "[145][145][145][145][145][145]"R" TIMES "S" EQUALS ?"
- 1150 A=R*S
- 1160 INPUT "";D
- 1170 IF D=A THEN PRINT"GREAT "N$:E=E+1:GOTO 1251
- 1180 IF D<>A THEN PRINT "OH NO THAT'S THE WRONG ANSWER":GOTO 1250
- 1250 PRINT"THE ANSWER IS"A
- 1251 NEXT
- 1252 PRINT"[147]"
- 1254 IF E=10 THEN PRINT"GREAT JOB "N$
- 1255 IF E>5ANDE<10 THEN PRINT"GOOD TRY "N$
- 1300 PRINT"WOULD YOU LIKE ANOTHER TEN ?"
- 1302 PRINT "YOU GOT"E"OUT OF TEN RIGHT OR"E*10"[157]%"
- 1310 INPUT H$:IF H$="Y" THEN E=0:GOTO1010
- 1330 IF H$<>"Y" THEN PRINT "[147]":GOTO 315
- 2000 PRINT"[147]":POKE 53280,2:POKE 53281,10
- 2002 FOR J=1TO10
- 2010 T=INT(RND(0)*99+1)
- 2020 PRINT ""T
- 2030 V=INT(RND(0)*99+1)
- 2040 PRINT "+"V
- 2050 PRINT "[163][163][163][163]"
- 2055 PRINT "[145][145][145][145][145][145][145][145]"T" PLUS "V" EQUALS ?"
- 2060 B=T+V
- 2070 INPUT "";D
- 2075 IF D=B THEN PRINT"YOUR TEACHER WOULD BE PROUD "N$:E=E+1:GOTO 2091
- 2080 IF D<>B THEN PRINT "DARN IT "N$:GOTO 2090:PRINT
- 2090 PRINT"THE ANSWER IS "B
- 2091 NEXT
- 2092 PRINT"[147]":IF E=10 THEN PRINT"EXCELLENT "N$
- 2093 IF E<10ANDE>5 THEN PRINT"KEEP TRYING "N$
- 2094 IF E<5 THEN PRINT "I TNINK "N$" NEEDS MORE WORK"
- 2095 PRINT"YOU GOT "E" OUT OF TEN RIGHT OR "E*10"[157]%"
- 2100 PRINT"WOULD YOU LIKE ANOTHER TEN ?"
- 2110 INPUT J$:IF J$="Y" THEN E=0:GOTO 2000
- 2120 IF J$<>"Y" THEN PRINT "[147]":GOTO 315
- 3000 PRINT CHR$(147):POKE 53280,5:POKE 53281,7
- 3010 FORJ=1TO10:X=INT(RND(0)*99+1)
- 3020 PRINT ""X
- 3030 Y=INT(RND(0)*99+1)
- 3035 IF Y>X THEN GOTO 3030
- 3040 PRINT "-"Y
- 3050 PRINT "[163][163][163][163]"
- 3055 PRINT "[145][145][145][145][145][145][145][145]"Y" SUBTRACTED FROM "X" EQUALS ?"
- 3060 C=X-Y
- 3070 INPUT "";D
- 3080 IF D=C THEN PRINT"YOU THINK YOUR REAL SMART "N$:E=E+1:GOTO 3096
- 3090 IF D<>C THEN PRINT "WE KNOW THAT ISN'T RIGHT "N$
- 3095 PRINT"THE RIGHT ANSWER IS "C
- 3096 NEXT:PRINT"[147]"
- 3097 IF E=10THEN PRINT"EXCELLENT "N$
- 3098 IF E<10ANDE>5 THEN PRINT"KEEP TRYING "N$
- 3099 PRINT "YOU GOT "E" OUT OF TEN RIGHT OR "E*10"[157]%"
- 3100 PRINT"WOULD YOU LIKE ANOTHER TEN ?"
- 3110 INPUT K$:IF K$="Y" THEN GOTO 3000
- 3120 IF K$<>"Y" THEN PRINT "[147]":GOTO 315
- 4000 PRINT CHR$(147):POKE 53280,9:POKE 53281,3:J=RND(-TI)
- 4010 FOR J=1TO10:A%=10*RND(1)+1:B%=10*RND(1)+1:C%=A%*B%
- 4015 PRINT "[198][198][198][198][198][198][198]"
- 4020 PRINT "[206]"C%
- 4040 PRINT "[145]"B%
- 4050 PRINT "[145][145][145][145][145][145]"B%" GOES INTO "C%" HOW MANY TIMES"
- 4060 A%=C%/B%
- 4070 POKE 19,32:INPUT "";D
- 4075 PRINT:PRINT:PRINT:
- 4080 IF D=A%THEN PRINT"HOT DOG ";N$;"!":E=E+1:GOTO 4097
- 4090 IF D<>L THEN PRINT "GOOD TRY !":GOTO 4095
- 4095 PRINT"THE ANSWER IS "A%
- 4097 NEXT
- 4098 PRINT"[147]":IF E=10THEN PRINT"EXCELLENT "N$
- 4099 IF E>5 AND E<10 THEN PRINT"KEEP TRYING "N$
- 4100 PRINT"WOULD YOU LIKE ANOTHER TEN ?"
- 4105 PRINT "YOU GOT";E;"OUT OF TEN RIGHT, OR";E*10;"[157]%"
- 4110 INPUT K$:IF K$="Y" THEN E=0:GOTO 4000
- 4120 IF K$<>"Y" THEN PRINT "[147]":GOTO 315
- 5500 PRINT "[147]SEE YOU SOON "N$
- 5505 PRINT "KEEP UP THE GOOD WORK !"
- 5510 PRINT"PRESS F1 TO END PROGRAM"
- 5515 GET H$:IF H$=""THEN 5515
- 5520 IF F$=CHR$(133)THEN GOTO 5525
- 5525 NEW
- 6000 PRINT "[147]":POKE 53280,3:POKE 53281,3
- 6010 PRINT"MATH HELPER GRADES 3 AND 4[146]"
- 6015 PRINT"THIS UTILITY PROGRAM HAS BEEN PUT "
- 6020 PRINT"TOGETHIER TO AID MY SON IN DEVELOPING"
- 6025 PRINT"HIS MATH POTENTIAL. IT IS A SIMPLE"
- 6030 PRINT"PROGRAM WHICH YOU ARE INVITED TO"
- 6035 PRINT"OPEN UP AND CHANGE AT ANY TIME"
- 6040 PRINT"I WOULD APPRECIATE ANY SUGGESTIONS"
- 6045 PRINT"THAT WOULD HELP ME DEVELOP A BETTER "
- 6050 PRINT"PROGRAM."
- 6055 PRINT"PUSH ANY KEY TO CONTINUE"
- 6056 GET T$:IF T$=""THEN 6056
- 6057 IF T$<>""THEN GOTO 6060
- 6060 PRINT"[147]"
- 6062 PRINT"MATH HELPER GRADES 3 AND 4[146]"
- 6065 PRINT"SUGGESTIONS MAY BE MAILED TO:"
- 6070 PRINT"CHUCK DENNIS"
- 6075 PRINT"9915 LIBERTY ROAD"
- 6080 PRINT"RANDALLSTOWN, MARYLAND"
- 6085 PRINT"21133"
- 6090 PRINT"OR YOU CAN E-MAIL TO CHUCKLES2"
- 6091 PRINT"TO LIST YOU MUST POKE A MYSTERY CODE"
- 6092 PRINT"WHICH IS POKE 774,?"
- 6095 PRINT"PRESS ANY KEY TO RETURN TO MENU"
- 6099 GET Y$:IF Y$=""THEN 6099
- 6100 IF Y$<>""THEN 100
-