L( MATH-IS-FUN SHAREWARE COPYRIGHT 1986 BY O FRANK SMITHV2 160w<GD0:LY(R2$): EDIT NUMBERF R2$"" 150PCC1LYZ (R2$,CC,1)"9"GD1: 140dCC1 130n (R2$,CC,1)"-" 140x (R2$,CC,1)"+" 140 (R2$,CC,1)"0"GD1 $ h TZ2:TXTZ1 :BB0:BT1:BM12:FB0:FT1:53280,0:53281,0:"": DS$(1)"":DS$(2)"":DS$(3)"":DS$(4)"":DS$(5)"":DS$(6)"" SO1: SOUND ON = 0 FOR NO SOUND =2 FOR SOUND ONLY FOR BAD ANSWERS DW$""] TT$ " MATH-IS-FUN" TT$TT$"PRACTICE FOR SUCCESS" 2050 TU$ " MATH-IS-FUN" TU$TU$"@ 1986 O.FRANK SMITH" SF1: 520: SF=SCORE FACTOR/  BB0 440T F1((.)C1)1:C19F110 270k C199F1100 270 "F2((1)C1)1:C19F210 290 ,C199F2100 290 6F3((1)C1)1:C19F310 310 @C199F3100 310 JF4((1)C1)1:C19F410 330 TC199F4100 330D ^F5((1)C2)1:C29F510 350[ hC299F5100 350 rF6((1)C2)1:C29F610 370 |C299F6100 370 F7((1)C2)1:C29F710 390 C299F7100 390 F8((1)C2)1:C29F810 410 C299F8100 410  4803  FBBMFBBB:FTFT1K  FTBMFTBT:FBBBu F1FT:F2FT:F3FT:F4FT: TOP NUMBERS F5FB:F6FB1:F7FB2:F8FB3:FBFB4 T1TA:T2TB:T3TC:T4TD:T5TA:T6TB:T7TC:T8TD  SN$"/" 1900  2510 !X15:Y11 :C1999:C2999:L$"", 1070VTA4:TB12:TC22:TD32: TAB SETTINGS&T14:T212:T322:T432: TAB SETTINGS0T54:T612:T722:T832: TAB SETTINGS: TI$TL$ 2360D 260N"";: SN$"+"" ADDITION"(X SN$"-"" SUBTRACTION"Wb SN$"X"" MULTIPLICATION"l SN$"/"" DIVISION"vT11);"( 1 )";T21);"( 2 )";T31);"( 3 )" ;T41);"( 4 ) T1);F1;T2);F2;T3);F3;T4);F4 T5);F5;T6);F6;T7);F7;T8);F8? T11);L$;T21);L$;T31);L$;T41);L$O" ";SN$R15:R25:R35:R45:DS((1)6)1:DT$DS$(DS)DS((1)65)1:DSDS65:DT$(DS)"";:DS139:DT$;::DS123:DS20:" ": 730DT$""DT$!6DS139:DT$;:@DW$;M53280,4\"";R2$p  60:GD1 750~R1(R2$) DW$;*53280,54" ";R2$> 60:GD1 790HR2(R2$)RDW$;\53280,6f" ";R2$p 60:GD1 850(zR3(R2$)2DW$;?53280,8j" ";R2$~ 60:GD1 900R4(R2$)53280,0 R19999 160 1490 TT1300:TM$"TIME="(TI$,2)" HRS. "&TM$TM$(TI$,3,2)" MIN. " (TI$,2)" SEC. """7TXTZTU$:JTX TZTT$:\TXTX1: TM$"SCORE=";SC;" #CORRECT=";S2;"OUT OF";CT::"" TXTZTX0$ 570.TT$8"TO BEGIN AGAIN TYPE 9999 AS 1ST ANSWER"BC19:C29:SN$"+":0L"0=COMPUTER #S,1-999=# TO BEGIN TEACHING:"AVR2$"0":BB0Y`"0 OR 1-999:";R2$vj 60:GD1"": 1120tBB(R2$)~BMBB10 BB0FBBB: 1370R2$"9":C19"FACTOR 1 SIZE: 9 99 OR 999:";R2$ 60:GD1"": 1180C1(R2$)!C19 12502C199 1250DC1999 1250MC19aC199SFSF2:vC1999SFSF4:R2$"9":C29"FACTOR 2 SIZE: 9 99 OR 999:";R2$  60:GD1"": 1280C2(R2$)C29 1350(C299 13502C2999 1350<C29+FC299SFSF2:@PC2999SFSF4:kZ "EXERCISE : + - X OR / :";SN$dSN$"-" SFSF2:nSN$"X" SFSF4:xSN$"/" SFSF5: SN$"+" SN$"-" SN$"X" SN$"/" 1430"";: 1370TI$"000000":+TM$"TIME="(TI$,2)" HRS. "bTM$TM$(TI$,3,2)" MIN. " (TI$,2)" SEC. """qTT$: TM$"SCORE=";SC;" #CORRECT=";S2; "OUT OF";CT::""NSS24: NEW SCORE IF ALL CORRECT SN$ "+" 1540 SN$"-" 1590 SN$"X" 1640( SN$"/" 16905A1F5F1BA2F6F2OA3F7F3\"A4F8F4g, 1770t6A1F1F5@A2F2F6JA3F3F7TA4F4F8^ 1770hA1F1F5rA2F2F6|A3F3F7A4F4F8 1770 F50 1710A1F1F5 F60 1730!A2F2F62 F70 1750?A3F3F7P F80 1770]A4F4F8iCTCT4 R1A1SCSCSF:S2S21 R3A3SCSCSF:S2S21 R3A3SCSCSF:S2S21 R4A4SCSCSF:S2S21 SO1 NSS2 2690: 1830 & NSS290T12);A1;T22);A2;T32);A3;T42);A4M: SO0 2690D"HIT ANY KEY";"NA$:A$"" 1870Xb(3 DIGITS) AHER 3 POSlMT((.)10)1vBB0MTFTF1F5MT MT((.)10)1BB0MTFT(F2F6MT9BB0MTFTMMT((.)10)1^BB0MTFTkF3F7MT|BB0MTFTMT((.)10)1BB0MTFTF4F8MTTT$: "2+6=8 2-6=-4 6-2=4 2X6=12 6/2=3" " SCORING IS AS FOLLOWS:"6 " NORMAL SCORING IS 1 POINT"^*" FOR EACH CORRECT ANSWER"4" 99 (2 DIGITS) = ANOTHER 2 POINTS">" 999 (3 DIGITS) = ANOTHER 3 POINTS"H" SUBTRACTION = ANOTHER 3 POINTS"R" MULTIPLICATION = ANOTHER 4 POINTS":\" DIVISION = ANOTHER 5 POINTS""]f "HIT ANY KEY"rpA$:A$"" 2160zTI$"000000" TT$"0. NO SOUND EFFECTS""1. ALWAYS SOUND EFFECTS""2. SOUND EFFECTS FOR WRONG ANSWER ONLY"R2$"2":SO2% "";R2$C 60:GD1"": 2220RSO(R2$):n SO 0 SO 2 SO2x TT$"HOW LONG DO YOU WANT TO PRACTICE?"" ENTER HHMMSS FOR HOURS MIN. SEC." ": 000500";R2$ 60:GD1"": 23009 LY6"": 2300E TL$R2$O$ TL$U. ^8 TT$B "YOUR SCHEDULED PRACTICE TIME"L " IS OVER"V " ";TL$ ` "SCORE=";SC;" #CORRECT=";S2;"OUT OF";CT::"" j 2690H t "HIT ANY KEY";"P ~ A$d CO((1)16)1r 53280,CO A11300: A$"" 2430 TI$"000000" TT$ F110T1TA2: F210T2TB2: F310T3TC2:! F410T4TD2:! F510T5TA2:,! F610T6TB2:@! F710T7TC2:T! F810T8TD2:q! F1100F19 T1TA1:!( F2100F29 T2TB1:!2 F3100F39 T3TC1:!< F4100F49 T4TD1:!F F5100F59 T5TA1:"P F6100F69 T6TB1:"Z F7100F79 T7TC1:<"d F8100F89 T8TD1:B"n "x SHAREWARE COPYRIGHT 1986 BY O FRANK SMITH-SCHAUMBURG IL" SOUND21" " OP((1)21)1" "";OP:""# FOR SOUNDS :GOSUB1200# 3380# ;# L5427254295:L,0::54296,15]# 54277,8:54278,255:54276,23}# Z13:F12: NO. OF CYCLES# Y13:F28: RATIO OF LENGTHS# 54273,F1: MAIN FREQUENCY# X15:54287,F2: PITCH$ F2F21.4:X:F1F11.5:Y: PITCH)$ W110:54287,F2: W IS TOP PITCHH$ F2F21.05:W:Z:54278,15Y$" LISTd$, 3370j$6 $@ L5427254295:L,0::54296,15: CLEAR SOUND CHIP, SET VOLUME$J 54277,8:54278,255:54276,21: ENVELOPE AND WAVEFORM%T 54287,40: VOICE 3 FREQ. CONTROLS MAIN PITCH9%^ Z14: Z IS NO. OF CYCLESx%h F125506:54273,F1:F1: STEP SIZE CONTROLS DOWN SPEED%r F1025520:54273,F1:F1:Z: STEP SIZE CONTROLS UP SPEED%| 54278,15: STOPS SOUND% LIST% 3370% & L5427254295:L,0::54296,15<& 54277,8:54278,255:54276,23Z& Z13:F110:Y16:F230h& 54273,F1& X13:54287,F2: RANGE& F2F21.2:X:F1F11.5:Y& W18: LENGTH OF UP TO DOWN TIME& 54273,F1& 54287,5:V15:V ' F1F11.5:W:Z:54278,15' LIST#' 3370)' M'& L5427254295:L,0::54296,15o'0 54277,8:54278,255:54276,21': Z14:F120: NO. OF CYCLES'D Y13:F2100: NO. OF INCREMENTS'N 54273,F1: VOICE ONE FREQUENCY'X X15:54287,F2: SPEED(b F1F11.05:F2F2.1&(l X:Y:Z:54278,156(v LISTA( 3370G( k( L5427254295:L,0::54296,15( 54277,8:54278,255:54276,21:F2255( Z150:54287,F2: NO. OF CYCLES( F1255020:54273,F1:F2F2.4:F1:Z:54278,15( LIST ) 3370) R) L5427254295:L,0::54296,15: CLEAR SOUND CHIP, SET VOLUME) 54277,8:54278,255:54276,23: ENVELOPE AND WAVEFORM) 54287,40: VOICE 3 FREQ. CONTROLS MAIN PITCH) Z14: Z IS NO. OF CYCLES* F125506:54273,F1:F1: STEP SIZE CONTROLS DOWN SPEED]* F1025520:54273,F1:F1:Z: STEP SIZE CONTROLS UP SPEEDy* 54278,15: STOPS SOUND* LIST** *4 SI54272:W1SI4:W3SI18:VSI24:PWSI27:PESI28*> ISIPE:I,0:+H W11,17:W12,251:W31,187:W32,140+R V,143:W3,17R+\ POKE214,22:PRINT:POKE211,9 :REM INPUT" TYPE 1-15:";OPc+f OP1 3680t+p OP2 3720+z OP3 3790+ OP4 3850+ OP5 3910+ OP6 3970+ OP7 4020+ OP8 4080+ OP9 4130+ OP10 4170, OP11 4240!, OP12 43103, OP13 4380E, OP14 4450W, OP15 4510i, OP16 2750{,OP17 2870,OP18 2970,OP19 3100,$OP20 3210,.OP21 3280,8V,0:W1,0:W3,0,BISIPE:I,0:,L-V #1 SWEEP -`W1,17&-jI302003:SI1,I:,-t=-~ #2 WHISTLEH-W1,17b-I302003:SI1,I:~-W1,0:I1150::W1,17-I301203:SI1,I:-I120201.5:SI1,I:-- #3 ROCKET-W12,253:W1,129-I090:SI,0:SI1,I.J1254II21:SI,J:J,I3.W1,128:I15000:9.X. #4 RING MODULATION -GONGf. W12,122|.W13,30:W33,23.I18:W1,21.(J1200::W1,20.2J11500:::.< #5 RING MODULATION - CHIME.FW12,122.PW13,50:W33,56/ZI16:W1,21%/dJ1200::W1,209/nJ11000:::R/x #6 SYNCHRONIZATIONf/W13,31:W1,19{/I18:W33,4I/J1300::// #7 SYNCHRONIZATION + WAVER/W13,31:W1,19/I115/J010:W33,20(J5)://0 #8 RING MOD AND SWEEP.0W13,31:W1,21>0I1175.1L0W33,I:R0c0 #9 BEATING0"W13,13:W33,12:W34,225:W1,210,I13000::W1,2006I11500::0@ #10 ENVELOPE GENERATOR0JW11,187:W12,140:W1,331TW3,0:W3,33 1^I1150:W13,(PE)310:21hW1,32:W3,32R1rI1300:W13,(PE)310:X1|k1 #11 SIREN #11W11,224:W12,2531W34,15:W1,331W3,171I1500:W13,(PW)1025::W1,321I1500:W13,(PW)1025:12 #12 SIREN #22W11,224:W12,25302W34,15:W1,33;2W3,33c2I1500:W13,(PW)1025::W1,322I1500:W13,(PW)1025:22 #13 SIREN #32W11,224:W12,2532&W34,15:W1,3320W3,65:W31,83:I1500:W13,(PW)1025::W1,32%3DI1500:W13,(PW)1025:+3N?3X #14 BUBBLINGS3bW33,15:W1,17_3lW3,1293vI1300:54273,(54299)73:333 #15 SATELLITE3W33,15:W1,193W3,1293I1300:54273,(54299):34CYP$(67)(79)(80)(89)(82)(73)(71)R4CYP$CYP$(72)(84)(32)(49)(57)(56)(54)4NM$(79)(46)(70)(82)(65)(78)(75)(32)4NM$NM$(83)(77)(73)(84)(72)4" ";CYP$4" ";NM$4 4610