;781,VT:782,HT:783,(783)254:65520:VT0:HT0:QA:i ******************************** * * * TABLES * * * * A PROGRAM TO HELP STUDENTS *.  * MASTER MULTIPLICATION *U  * *|  * RELEASED TO PUBLIC DOMAIN *  * *  * R. CROSWELL 1986 *  * *  ******************************** :S Q1:58692:S53280:S,11:S1,11:646,15:(142)s (32768)16V1: COMVOICE "(32768)54V1: PROVOICE $SD54272:ISDSD23:I,0::SD24,15 &160,0:I139143:A((0)2541):I,A::A(TI)A (M$" THIS PROGRAM IS COMPATIBLE WITH  COMVOICE AND PROVOICE"b *M1$"NOW LETS TRY IT AGAIN!" ,M$(1)"YOU GOT THIS ONE" .M$(2)"I NEW YOU COULD DO IT" 0M$(3)"I THINK YOU WERE JUST LUCKY" 2M$(4)"YOUR ANSWER IS CORRECT" 4M$(5)"KEEP UP THE GOOD WORK"- 6M$(6)"THAT WILL NEVER DO"V 8M$(7)"YOUR ANSWER DOES NOT COMPUTE"~ :M$(8)"SORRY, YOU GOOFED THIS TIME" <M$(9)"NO WAY. TRY AGAIN" >M$(10)"NOT THIS TIME" @X$" " BV058692:VTAB12:HTAB3::M$:I14000: D:5 F ---------------K H -TABLES SELECT-a J ---------------g L: N" " P11)" PRACTICE TABLES " RQ2V:"HELLO. I AM YOUR MATH HELPER. LETS MULTIPLY."T" WHAT TABLE DO YOU WANT TO PRACTICE?"QVV:"WHAT TABLE DO YOU WANT TO PRACTICE":I1500:hX29)""Z" TYPE THE NUMBER OR TYPE ALL "\29)"":Q198^V:"TYPE THE TABLE NUMBER THEN PRESS RETURN. IF YOU WOULD LIKE"2`V:"TO PRACTICE ALL OF THE TABLES, THEN TYPE A L L.":Q2cb" TYPE (Q) WHEN YOU WANT TO QUIT."dQ1V:"TYPE Q WHEN YOU ARE READY TO QUIT"fVTAB14:HTAB30::300hT$"ALL" P64:P$T$:122jT$"Q"282lP(T$):P1P19 350:78Q WHEN YOU WANT QUIT-nP$(" "(P),3)3p:Hr --------------]t -TABLES DRILL-rv --------------xx:z""28)"";| " 0 "P$" TABLE DRILL"7)" 0";~ ""28)"" "WRONG "29)"RIGHT"VTAB11:HTAB25::""-25)" "MVTAB13:HTAB25::""mVTAB14:HTAB25::"ANSWER"VTAB22::"----------------------------------------";" (_)BACK UP - (H) HELP - (Q) QUIT"AP:B((1)13)P64A((1)13)J((1)2).PRPR1:J1JA:AB:BJQVTAB12:HTAB10::A" X "B" ="uVTAB18::X$:VTAB12:HTAB26:A$(A):B$(B)V: A$:"TIMES": B$:"EQUELS"TJTI:300:T$"Q"400:196T$"H"VTAB12:HTAB26::AB:W1:446:1763I1(T$):(T$,I,1)"A"(T$,I,1)"L"T$"0"B:V: T$z(T$)ABC$M$(((1)51)):R1:TCTC(TITJ):386(T$)ABC$M$(((1)56)):W1:372: ERRORVTAB18:HTAB20((C$)2)::C$:V: C$I1500::V176I12000:,W1 NWNWW:VTAB12:HTAB26::" "=R1NRNRRtW1W0:S$(" "(NW),4):VT2:HT1::S$:152R1R0:S$(" "(NR),4):VT2:HT35::S$VTAB11::I19:X$::130: -------------- -REPORT SCORE-  --------------:0TF(TC60):TU$"SECONDS"fTF60TF(((TF60).005)100)100:TU$"MINUTES"TW((((TC60)PR).05)10)10:TW$(TW)SC(((NR(NRNW))100).5)58692:VTAB2:HTAB32::""" YOUR SCORE IS............. "3)" ":32)""DVTAB3:HTAB33::SC:V$(SC)" PERCENT"bV:"YOUR SCORE IS": V$VTAB6:HTAB32::""" PROBLEMS DONE............. "3)" ":32)""PR$(PR)" PROBLEMS"VTAB7:HTAB33::PR:V:SPEAK"YOU COMPLETED":SPEAK PR$5VTAB10:HTAB32::""s" TIME REQUIRED............. "3)" ":32)""VTAB11:HTAB15::" ("TU$")..."TF$(TF)" "TU$VTAB11:HTAB33::TF:V:SPEAK"THIS TOOK YOU":SPEAK TF$ VTAB14:HTAB32::""G" TIME PER PROB.(SECONDS)... ":32)""nVTAB15:HTAB33::(TW$,(TW$)1)V:SPEAK"YOUR AVERAGE TIME PER WORD IS":SPEAK TW$:SPEAK "SECONDS"G$"F":V$"YOUR GRADE IS NOT PASSING"TW10SCSC.7:248TW8SCSC.8:248(TW5SCSC.9:248ATW3SCSC.95:248~SC59G$"D":V$"YOUR GRADE IS D. YOU MUST WORK HARDER"SC69G$"C":V$"YOUR GRADE IS C. YOU CAN DO BETTER"SC79G$"B":V$"YOUR GRADE IS B. THAT IS GOOD"'SC89G$"A":V$"YOUR GRADE IS A. THAT IS VERY GOOD"GVTAB18:HTAB32::""" YOUR GRADE IS............. "3)" ":32)""VTAB19:HTAB34::G$:NW0:NR0:PR0:TF0:TC0:TJ0V:V$VTAB23:HTAB10::"PRESS RETURN TO GO ON"  Z$:Z$""266# Z$:Z$(13)268+781:I -----------------a -QUITING PROGRAM-y -----------------:58692:VTAB12:HTAB12::"HAVE A NICE DAY"V:"THIS PROGRAM WILL NOW END. HAVE A NICE DAY"V0I15000:. "TYPE RUN TO RESTART PROGRAM":S,14:S1,6:4":Q$ ----------------------n& --DATA ENTRY VIA GET--( ----------------------*:,T$"". (166);:"";: PRINT CURSOR CHARACTER0Y$:Y$""3042 Y$"H"Y$"Q"3184Y$"_"328: BACKSPACE!6Y$(13)320<8(Y$)48(Y$)76304W:(Y$)57(Y$)65304r<(Y$)65(Y$)76304>T$T$Y$:Y$;:Y$"":302@" ":B:D BACKSPACE ROUTINEF:H(T$)1304J" ";L(166);:""; NL(T$):L1T$"":338PT$(T$,L1)&R304,T:BV ---------------XX -ERROR MESSAGE-nZ ---------------t\:}^372`58692:VTAB12::""b" ERROR : YOU ENTERED THE WRONG KEYS!" dV:"SORRY. YOU N TERD THE WRONG KEYS. PLEASE TRY AGAIN"fV0I14000:$h*j:Jl -------------------------jn --SOUND FOR ERROR ENTRY--p -------------------------r:tSD5,31:SD6,208:SD,240:SD1,4:SD4,33v430:SD4,0:SD,0:SD1,0:x: z -------------------------' | --SOUND FOR VALID ENTRY--G ~ -------------------------M :{ SD5,8:SD6,240:SD,0:SD1,90:SD4,17 414:SD4,0:SD,0:SD1,0: :  -------------------------  --SPECIAL REPEATE SOUND--! -------------------------!:>!I15:SD5,8:SD6,230:SD,0:SD1,128:SD4,17a!414:SD4,0:SD,0:SD1,0::g!:! ---------------------! --1/15 SECOND DELAY--! ---------------------!:!TXTI!TITX4416!!:" --------------------" --1/2 SECOND DELAY--9" --------------------?":I"TXTI["TITX30432a"g":|" --------------" -HELP MESSAGE-" --------------":"V$(AB):V: A$:"TIMES": B$:"EQUELS": V$"I12000:#V: "NOW LETS TRY IT AGAIN"1#V0VTAB18:HTAB9::M1$F#V0I13000:L#