' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( B  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`OOK, 2ND":" ED., NOV. 1985, 642." <#"INTRODUCTION TO MICROPASCAL: APPLE":" PASCAL FILER AND EDITOR, DISK AND":" PHOTOCOPY MASTERS (AVAILABLE FOR ":" COMMODORE 64/PET, IBM PC/PCJR AND ":" TRS-80 MODELS III/4). MAY 1986, 393."!F#"MICROPASCAL .3. MAR.":" 1986, 221, 223.".r3200:18008(#31002#"COMAL: THE AMAZING ADVENTURES OF CAP-":" TAIN COMAL, BOOK 2: COMAL FROM ":" A TO Z; BOOK 3: THE COMAL LIBRARY OF"# 3#" FUNCTIONS AND PROCEDURES, COMMODORE":" 64, DISKS, THE COMAL HANDBKBOOK, APPLE II+, IIE, DOS":" 3.3, 64K RAM. OCT. 1985, 565."T"EPIC: EXPLORARTION PROGRAMS IN CALC-":" ULUS, IBM PC, 64K. FEB. 1986, 148."^"TECMATH: PRECALCULUS AND CALCULUS":" GRAPHING AND TUTORIAL PROGRAMS,":" APPLE II FAMILY, 48K. DOS 3IE,":" IIC, 48K, DISK (AVAILABLE COMMODORE":" 64; PET, 32K, CASSETTE AND DISK - THE":" COST FOR APPLE OR CORVUS NETWORKS IS":" 3 TIMES LIST PRICE). OCT. 1985, 566."3200:1800@3100>J"COMPUCALC PROGRAM DISKETTE AND COMPU-":" CALC WOR1."*"THE KING'S RULE: MATHEMATICS AND DIS-":" COVERY, COMMODORE 64, DISK (AVAIL-":" ABLE APPLE II, TRS-80). OCT. 1985,":" 656-66."4"MATHWARE BASIC MATH SYSTEM S, APPLE ":" II FAMILY. JAN. 1986, 68.">"ORDER OF OPERATIONS, APPLE II+, IDOS 3.3, DISKS (AVAILABLE TRS-80":" MODEL III, 48K). OCT. 1985, 565."W3200:3100"INTEGER ARCADE, APPLE II FAMILY, 48K.":" APR. 1986, 301." "INTERACTIVE LESSONS: SET 1 -- ARITH-":" METIC AND ALGEBRA, APPLE II FAMILY.":" MAR. 1986, 22 AVAILABLE APPLE":" II+, IIE, IIC; TRS-80, MODELS":" III/4). NOV. 1985, 642-43.""GALAXY MATH FACTS GAME I. GALAXY MATH":" GAMES: PLACE VALUE; FRACTIONS I;":" FRACTIONS II; INTEGERS; DECIMALS;":" AND ESTIMATING AND ROUNDING, APPLE,"G" ONS":" AND PROCESSES, WHOLE NUMBER DIVISION":" AND EXPONENTS AND ROOTS, APPLE "w" II+, IIE, IIC, DISK (CAN BE USED ON":" A NETWORK FOR AN ADDITIONAL FEE).":" DEC. 1985, 714."T"DECIMALS: ADDITION AND SUBTRACTION,":" COMMODORE 64, DISK (R)":" INSTRUCTIONAL MODULE: GRAPHS AND":" CHARTS, APPLE II+, IIE, IIC, DISK"m" (CAN BE USED ON A NETWORK FOR AN ":" ADDITIONAL FEE). DEC. 1985, 713."q3200:3100Sv"BEST (BASIC EDUCATIONAL SKILLS TUTOR)":" INSTRUCTIONAL MODULE: OPERATIST (BASIC EDUCATIONAL SKILLS TUTOR)":" INSTRUCTIONAL MODULE: COMPARATIVE":" AND DESCRIPTIVE TERMS, APPLE II+,"h" IIE, IIC, DISK (CAN BE USED ON":" A NETWORK FOR AN ADDITIONAL FEE).":" DEC. 1985, 712."Pl"BEST (BASIC EDUCATIONAL SKILLS TUTOPC).":" MAY 1986, 392-93."y"PROPORTIONS AND PERCENTS, APPLE II ":" FAMILY, 48K, DOS 3.3. MAY 1986,":" 393-94."~32001800X3100b"ALGEBRA-64 SKILL BUILDERS FOR THE":" COMMODORE-64 COMPUTER, DISK. NOV.":" 1985, 642."rg"BE":" TRS-80 MODEL III). JAN. 1986, 70-71."5F3200?1800Ip3100z"CURRICULUM COMPARER, APPLE II FAMILY, ":" 48K. JAN. 1986, 67-68.""MATHEMATICS ACTIVITIES COURSEWARE, ":" LEVELS 7 AND 8, APPLE II":" FAMILY, 48K, (AVAILABLE IBM ING AND TUTORIAL PROGRAMS, APPLE II":" FAMILY, 48K, DOS 3.3, MAR. 1986,":" 221, 223.""TOPICS IN ALGEBRA, IBM PC, 160K, APR."" 1986, 67-68."3200:3100+"WORD PROBLEMS IN ALGEBRA, APPLE II":" FAMILY, 48K (AVAILABLE IBM PC, 64K;644.)"v"SUPERPLOT: FUNCTION GRAPHING PROGRAM,":" APPLE II FAMILY, 64K, DOS 3.3 OR":" PRODOS. APR. 1986, 302.""TK!SOLVER, IBM PC/XT/AT, MS-DOS, APPLE":" II FAM., MACINTOSH. JAN. 1986, 69-70."["TECMATH: PRECALCULUS & CALCULUS GRAPH-":", IIC, 48K (AVAILABLE IBM).":" DEC. 1985, 715."A3200:3100"MATH UTILITIES: CURVES, DIFFS, & SURFS,":" IBM PC, 128K, IBM COLOR GRAPHICS"" ADAPTER NEEDED, DISK (NETWORK PRICING":" AND SPECIAL PCJR VERSIONS AVAILABLE).":" NOV. 1985, 64K, DISK (AVAILABLE COMMODORE 64;":" IBM PC OR PCJR). NOV. 1985, 643-44.""INTERACTIVE LESSONS: SET 2 -- ALGEBRA,":" APPLE II FAMILY, MAR. 1986, 221"1"MATHLAB I: ALGEBRA & TRIGONOMETRY,":" APPLE II (WITH LANGUAGE CARD), APPLE":" II+, IIE`>@>p>xx>p?p?px>pG?pC f f @0`L ~3CyO@0|CqOa@03>p~p>@?p~@>@?px?>~`>`|~>p?p?px>pG?pC  f0 @y0`>ppGa 3CLa@A?|qCLa@A?|q>p~p>?p`|~x>`8p@ ~>xx>pATHEMATICS TEACHER"- 13:"NOVEMBER, 1985"A 16:"PAGE 627"K 5210Q d -ENTER SHORT DESCRIPTIONg "PROGRAM TO FIND THE ROOTS OF THE ":3:"POLYNOMIAL FUNCTION:":3: 5:"F(X)=2*X^3-11*X^2+2*X+15 3::3:"BY NEWTON'S METHOD. YOU ENTER THE":3:"FIRST GUESS." 16:4:"FOR DETAILS, CONSULT:" 8:"THE M 11:"VOLUME 78 NUMBER 8": 11:"(C) COPYRIGHT 1985"B 23L (5210f --- GO TO DESCRIPTIONp .6000v 2 <:23 F5210:I421:I:2:J237:" ";:J:" ":I P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z5:3I I138:"*";:I:"*":# - 5040C -- ARTICLE TITLEg 5:9:"ROOTS: NEWTON'S METHOD"x 7:18:"BY" -- AUTHOR'S NAME 9:11:"CLARK KIMBERLING" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO.O YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$k Y$"Y"ĉ:::10s : D$(4):D$"RUN SYSTEM MENU" : 5090  : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":S 5000:# NEWTON'S METHOD.X(50)MY(X)2X311X22X15e(Z(X)6X222X2}2"INPUT X(1)=";X(1)<I149FX(I1)X(I)Y(X(I))Z(X(I))P"X("I") = "X(I);25);Y(X(I))Z(Y(X(I)))106110dInU ~:"D     |?>~?`>p?pxx>px?pg ` 0`x>p?pL 30C@@a03CLa@a03~>p?p~p>pp?x~p>~?p>p>p|>?`x>px?pC ` ~|yx>p?pCq< f~ ~|yL 0C@@0CLa@03>p~p>`8p<`~~>?p3200:3100^"BALANCE, APPLE II FAMILY (AVAILABLE":" COMMODORE 64). MAY 1986, 392.""CALCU-PLOT: THE EQUATION SOLVER":" AND PLOTTER FOR THE APPLE II/IIE,":" 48K, DISK. OCT. 1985, 564-65."L"EASY GRAPH, APPLE II, IIC, IIE, II+,":" 3 (AVAILABLE":" IBM PC, XT, PCJR, OR MOST PC":" COMPATIBLES). NOV. 1985, 642.""ALGEBRA PLUS, IBM PC, PCJR, 64K, DOS ":" 1.0, 1.1, 2.0, OR 2.1; BASICA":" REQUIRED. JAN. 1986, 67.""ALGEBRA WORD PROBLEMS, APPLE, DISK,":" OCT. 1985, 564."":" APPLE II FAMILY, 48K. MAY 1986, 392.""ALGEBRA I, VOLUME I: SETS AND NOTATION,":" IBM PC, PCJR, 128K (AVAILABLE APPLE, "" COMMODORE 64, & ATARI). JAN.1986, 67."R"ALGEBRA PAK: ALGEBRA I AND ALGEBRA II,":" APPLE II, II+, IIE, DOS3.X . 23:"PRESS ANY KEY TO CONTINUE ";:Z$4 r P5000,6000,7000,8000,9000,10000,11000,12000,13000,14000 "ERROR": 3100+"ALGEBRA COACH:#1-- MULTIPLYING AND":" FACTORING BINOMIALS, #2 -- INTRO-":" DUCTION TO QUADRATIC EQUATIONS,D$(4), PMİ2250:D$;"RUN SYSTEM MENU" 22:"INCORRECT RESPONSE -TRY AGAIN":"PRESS RETURN TO CONTINUE: ";X$:KK15:  :"SUBJECT: ";N$(P) 0 D "REVIEW TITLE, ISSUE & PAGE NUMBER" N "-------------------------------------" AT COMPLETES THE MENU."::"NO SELECTION MADE":23:"PRESS RETURN TO CONTINUE";X$:: 22:"ENTER THE DESIRED NUMBER, OR":"PRESS RETURN FOR THE NEXT SCREEN: ";P$:P(P$) " (P$)0KMı T (P$)0KM1ī2750 P(P) P1PM14000 ." F . :10:5:"INCORRECT ENTRY - TRY AGAIN":J11500:J:240P ::y :I13:I:J038:"*";:J:"*":: :I420:I:1:"*";:40:"*":I ( 21::I038:"*";:I:"*": Z 2:7:" MT COURSEWARE REVIEW INDEX " U :10:"THPROCESSING", N$(11)"RETURN TO MAIN MENU"5 M11? 2450T :5:8:K1M:T3c lK10T2x T:K;". ";N$(K) K15(K15)İ2800::2450:5 K 42800 f1800  :10:8:"LOADING THE PROGRAM INTO":9:"THE COMPUTER'S MEMORYp?||1pGpG|aCqpG|a~>p@?p~s>pp~>pp@A|qC@A|ad:N$(50):M=25)N$(1)"ALGEBRA"BN$(2)"APPLICATIONS"YN$(3)"ARITHMETIC"n,N$(4)"CALCULUS"EN$(5)"COMPUTER SCIENCE"JN$(6)"GAMES AND PUZZLES"^N$(7)"GEOMETRY"N$(8)"STATISTICS"N$(9)"TRIGONOMETRY" N$(10)"WORD           ONSULT:"*8:"THE MATHEMATICS TEACHER"C13:"OCTOBER, 1985"W16:"PAGE 562"24:5:"PRESS ANY KEY TO CONTINUE.";:R$dIP3Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$9xCp5040Mz5:3k-ENTER SHORT DESCRIPTION"PROGRAM TO COMPUTE PLAYOFF POS-":3:"SIBILITIES BY MONTE CARLO METHODS":3:"CONSIDERING A HOME AND AWAY SERIES."16:4:"FOR DETAILS, C14:17:"FROM"416:8:"THE MATHEMATICS TEACHER"K---ENTER VOL. NO.i11:"VOLUME 78 NUMBER 7"11:"(C) COPYRIGHT 1985"23(5210--- GO TO DESCRIPTION.60002<:23F5210:I421:I:2:J237:" ";:J:" ":I:I13:I:J138:"*";:J:"*":IJI421:I:1:"*";:39:"*":IfI138:"*";:I:"*":lv5040-- ARTICLE TITLE5:5:"WHO'S GOING TO WIN THE PLAYOFF?"7:18:"BY"-- AUTHOR'S NAME9:13:"JACK A. OTT"ND ITS CHANCE TO WIN AN"O"AWAY GAME IS "100PAWAY"% IS "AVICT0RYTRIALS"."~:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$Y$"Y"2D$(4):D$"RUN SYSTEM MENU":5090:&(NUMBER1)2ĪBVICT0RYBVICT0RY1:GAMESNUMBER: END LOOP H NGAMEST XSERIESZ b} g"THE APPROXIMATE PROBABILITY" l"THAT TEAM A WILL WIN" v"A(AN) "NUMBER" GAME SERIES IF ITS" "CHANCE TO WIN A SINGLE HOME GAME IS"100PH0ME"% AW0N1< PAWAYXGAMES2(GAMES2)ĪAGAMESW0NAGAMESW0N1t &PAWAYXGAMES2(GAMES2)ĪBGAMESW0NBGAMESW0N1 0 SEE IF THIS PARTICULAR SERIES IS FINISHED YET :AGAMESW0N(NUMBER1)2ĪAVICT0RYAVICT0RY1:GAMESNUMBER: END LOOP= DBGAMESW0NO WON THIS GAME - THE RESULT IS BASED ON THEd  PROBABILITIES INPUT BY THE USER WITH ODD NUMBERED  GAMES BEING USED AS HOME GAMES FOR TEAM A PH0MEXGAMES2(GAMES2)ĪAGAMESW0NAGAMESW0N1 PH0MEXGAMES2(GAMES2)ĪBGAMESW0NBGAMESMANY TRIALS SHOULD I MAKE IN"/ "THIS RUN ";; TRIALSP SERIES1TRIALS  INITIALIZE COUNTERS FOR GAMES WON DURING ONE SERIES AGAMESW0N0 BGAMESW0N0 GAMES1NUMBER  PICK A RANDOM NUMBER FROM 0 TO 1 X(1),  SEE WH "HOW MANY GAMES IN THIS SERIES ";1 "NUMBER7 ,b 6"WHAT IS THE PROBABILITY THAT TEAM A" @"WILL WIN A GAME AT HOME "; JPH0ME T ^"WHAT IS THE PROBABILITY THAT TEAM A" h"WILL WIN A GAME PLAYED AWAY "; rPAWAY | "HOW 5000:@ INITIALIZE COUNTERS FOR NUMBER OF SERIES WONPAVICT0RY0`BVICT0RY0"REMEMBER THAT TEAM A IS THE TEAM THAT""WILL BE THE HOME TEAM ONE MORE TIME""THAN TEAM B WILL BE." INPUT PARAMETERS FOR THIS RUN%     "8:"THE MATHEMATICS TEACHER";13:"JANUARY, 1986"O16:"PAGE 52"Y5210_dIRESS ANY KEY TO CONTINUE. ";:R$&x0p5040:z5:3X-ENTER SHORT DESCRIPTION"PROGRAM COMPUTES P(X)/(AX+B),":3:"WHERE P(X) IS A USER-CHOSEN POLY-":3:"NOMIAL, AND AX+B IS A USER-CHOSEN":3:"DIVISOR."16:4:"FOR DETAILS, CONSULT:"16:8:"THE MATHEMATICS TEACHER"8---ENTER VOL. NO.V11:"VOLUME 79 NUMBER 1"t11:"(C) COPYRIGHT 1986"|23(5210--- GO TO DESCRIPTION.60002<:23F5210:I421:I:2:J237:" ";:J:" ":IP Z24:7:"P38:"*";:J:"*":I8I421:I:1:"*";:39:"*":ITI138:"*";:I:"*":Zd5040z-- ARTICLE TITLE5:8:"FACTORING AND UNFACTORING"7:18:"BY"-- AUTHOR'S NAME9:11:"CLARK KIMBERLING"14:17:"FROM"!"READY TO DIVIDE Q(X) BY ANOTHER AX+B?"-l~:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$Y$"Y"ĉ:::10:D$(4):D$"RUN SYSTEM MENU":5090::I13:I:J1I RA(C(0)UQ(0)), F(R)ERI(R)2 ] :"THE POLYNOMIAL Q(X) IS GIVEN BY":h I1N "COEFFICIENT OF X^"NI": "Q(NI) &I 0:"THE REMAINDER R IS "R"." : DZ1:L$ NI0N:C(I)Q(I):Q(I)0:I XNN1:N0620'bUOTIENT CONSISTS OF A POLYNOMIAL"N "Q(X) AND REMAINDER R. THE CONNECTION"| "THESE HAVE WITH P(X) AND AX+B IS THIS:" :" P(X)/(AX+B) = Q(X) + R/(AX+B)"  I1N Q(NI)C(N1I)UQ(N1I) F(Q(NI))EQ(NI)I(Q(NI)) NI) C(N)0300: "SORRY, BUT C(N) MUST NOT = 0."C "250L ,I:R 6u @"INPUT A,B ON ONE LINE: ";A,B JA0360 T"SORRY, BUT A MUST NOT = 0. TRY AGAIN." ^320 hUBA rI0N:C(I)C(I)A:I | Z1110! :"THE Q "AND AX+B IS A USER-CHOSEN DIVISOR."U :"PLEASE INPUT THE DEGREE OF P(X): ";Ni N0N(N)240 "SORRY, BUT N MUST BE A POS. INTEGER." 200 :"INPUT THE "N1" COEFFICIENTS OF P(X).": I0N "COEFFICIENT OF X^"NI;:": ";C( OUTPUT [QUOTIENT Q(X) & REMAINDER R] C n450: COMPUTE Q(X) & R^ x520: PRINT Q(X) & R 580: INVITE ANOTHER DIVISOR AX+B N0160 90 4990 "THIS PROGRAM COMPUTES P(X)/(AX+B)," "WHERE P(X) IS A USER-CHOSEN POLYNOMIAL,"(a 5000: DIVIDE 12C(200),Q(200)>E107Q(I(X)(.5X)g2F(X)(XI(X))<I039:L$L$"_":IFP170: EXPLAIN PROGRAM & INPUT POLYNOMIAL P(X)Z320: INPUT A,B (i.e., THE DIVISOR, AX+B)& d390: EXPLAIN  AILS, CONSULT:"18:"THE MATHEMATICS TEACHER"J13:"OCTOBER, 1985"^16:"PAGE 562"24:5:"PRESS ANY KEY TO CONTINUE.";:R$dCF5210:I421:I:2:J237:" ";:J:" ":I4PcZ24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ixsp5040}z5:3-ENTER SHORT DESCRIPTION"PROGRAM TO COMPUTE PLAYOFF POS-":3:"SIBILITIES BY MONTE CARLO METHODS."16:4:"FOR DET-- AUTHOR'S NAME*9:13:"JACK A. OTT">14:17:"FROM"d16:8:"THE MATHEMATICS TEACHER"{---ENTER VOL. NO.11:"VOLUME 78 NUMBER 7"11:"(C) COPYRIGHT 1985"23(5210--- GO TO DESCRIPTION.60002<:23. SYSTEM MENU" : 5090% - :V :I13:I:J138:"*";:J:"*":Iz I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE 5:5:"WHO'S GOING TO WIN THE PLAYOFF?" 7:18:"BY"x>pg?pC  f0 0`>>p `~>p`?p~>pp>ppa03pa03A>p~>p~@x>pw=?p[qG|c0~ 0`>| `~>p@?p~>ppG>p `a03g`a03?p>@x>pA~x>pw=?p `00`x>p?p WIN". "A(AN) "NUMBER" GAME SERIES IF ITS"T &"CHANCE TO WIN A SINGLE GAME IS"| 0100PROBA"% IS "AVICT0RYTRIALS"." ~:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$ Y$"Y"ė:2 D$(4):D$"RUNRIES IS FINISHED YET] AGAMESW0N(NUMBER1)2ĪAVICT0RYAVICT0RY1:GAMESNUMBER: END LOOP BGAMESW0N(NUMBER1)2ĪBVICT0RYBVICT0RY1:GAMESNUMBER: END LOOP GAMES SERIES  "THE APPROXIMATE PROBABILITY" "THAT TEAM A WILLN0 GAMES1NUMBER>  PICK A RANDOM NUMBER FROM 0 TO 1J X(1)o  SEE WHO WON THIS GAME BASED ON  THE PROBABILITY GIVEN BY THE USER PROBAXĪAGAMESW0NAGAMESW0N1 PROBAXĪBGAMESW0NBGAMESW0N1  SEE IF THIS PARTICULAR SE PLEASE ENTER AS A"; ""DECIMAL NUMBER BETWEEN 0 AND 1 ";F ,PROBAL 6t @"HOW MANY TRIALS SHOULD I MAKE IN" J"THIS RUN "; TTRIALS ^SERIES1TRIALS h INITIALIZE COUNTERS FOR GAMES WON DURING ONE SERIES rAGAMESW0N0 |BGAMESW0 5000:@ INITIALIZE COUNTERS FOR NUMBER OF SERIES WONPAVICT0RY0`BVICT0RY0 INPUT PARAMETERS FOR THIS RUN"HOW MANY GAMES IN THIS SERIES ";NUMBER"WHAT IS THE PROBABILITY THAT TEAM A" "WILL WIN A GAME -       URN' KEY."P255UIPAGE 201"5210d"FOR DETAILS, CONSULT:"W8:"THE MATHEMATICS TEACHER"n14:"MARCH, 1986"16:"PAGE 201"5210dE z5:3(-ENTER SHORT DESCRIPTION"PROGRAM DIVIDES USER-SUPPLIED":3:"POLYNOMIAL EXPRESSION BY A USER":3:"SUPPLIED QUADRATIC EXPRESSION."16:4:"FOR DETAILS, CONSULT:"8:"THE MATHEMATICS TEACHER"14:"MARCH, 1986" 16:">p ?~>p`?p~~>pp>p?|c|q pG?@a03[qGa@a03~>|@~p>~?pxpVOL. NO.&11:"VOLUME 79 NUMBER 3"D11:"(C) COPYRIGHT 1986"L23V(5210p--- GO TO DESCRIPTIONz.60002<:23F5210:I421:I:2:J237:" ";:J:" ":IPZ24:7:"PRESS ANY KEY TO CONTINUE. ";:R$xp5040*":I!I138:"*";:I:"*":'15040G-- ARTICLE TITLEq5:6:"ROOTS OF QUADRATIC EQUATIONS"7:18:"BY"-- AUTHOR'S NAME9:11:"CLARK KIMBERLING"14:17:"FROM"16:8:"THE MATHEMATICS TEACHER"---ENTER :"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$oY$"Y"ĉ:::10w:D$(4):D$"RUN SYSTEM MENU":5090::I13:I:J138:"*";:J:"*":II421:I:1:"*";:39:"HE POLYNOMIAL Q(X) IS GIVEN BY":,NI2NRX"COEFFICIENT OF X^"NI": "Q(NI)YbIol:"REMAINDER: ";v"("U")X+("V")"Z1:L$I0N:C(I)Q(I):Q(I)0:INN2:N2150"READY TO DIVIDE Q(X) BY ANOTHER D(X)?"Y~C(0)S:570& Q(N3)C(N1)RQ(N2)3 N3530> I4Nh Q(NI)C(N2I)RQ(N1I)SQ(N2I) F(Q(NI))EQ(NI)I(Q(NI)) I UA(C(1)RQ(0)SQ(1)) F(U)EUI(U) &VA(C(0)SQ(0)) 0F(V)EVI(V) :!D:"T4403 :"THE QUOTIENT CONSISTS OF A POLYNOMIAL"X "Q(X) AND REMAINDER UX+V. THE" "CONNECTION THESE TWO HAVE WITH P(X)" "AND D(X) = A(X^2)+BX+C IS GIVEN BY" :"P(X)/D(X) = Q(X) + (UX+V)/D(X)"  Q(N2)C(N) N2UC(1)R:V ";C(NI) C(N)0290A "SORRY, BUT C("N") MUST NOT = 0."J 240S "I:Y , 6"INPUT A,B,C ON ONE LINE: ";A,B,C @A0350 J"SORRY, BUT A MUST NOT = 0. TRY AGAIN." T310 ^RBA:SCA hI0N:C(I)C(I)A:I r |Z1D A(X^2)+BX+C ARE CHOSEN"- "BY THE USER."Z :"PLEASE INPUT THE DEGREE OF P(X): ";Nn N1N(N)230 "SORRY, BUT N MUST BE AN INTEGER > 1." 190 :"INPUT THE "N1" COEFFICIENTS OF P(X).": I0N "COEFFICIENT OF X^"NI;:": ? d380: EXPLAIN OUTPUT [QUOTIENT Q(X) & REMAINDER UX+V]_ n450: COMPUTE Q(X) & UX+V} x580: PRINT Q(X) & UX+V 650: INVITE ANOTHER DIVISOR A(X^2)+BX+C 90 4990 "THIS PROGRAM FINDS P(X)/[A(X^2)+BX+C]," "WHERE P(X) AN 5000:, DIVIDE BY A(X^2)+BX+C?C(200),Q(200)KE107^(I(X)(.5X)t2F(X)(XI(X))<I039:L$L$"_":IFP160: EXPLAIN PROGRAM & INPUT POLYNOMIAL P(X) Z310: INPUT A,B [i.e., THE DIVISOR, A(X^2)+BX+C]       DOS 3.3, DISKS (AVAILABLE TRS-80":" MODEL III, 48K). OCT. 1985, 565."W3200:3100"INTEGER ARCADE, APPLE II FAMILY, 48K.":" APR. 1986, 301." "INTERACTIVE LESSONS: SET 1 -- ARITH-":" METIC AND ALGEBRA, APPLE II FAMILY.":" MAR. 1986, 22 AVAILABLE APPLE":" II+, IIE, IIC; TRS-80, MODELS":" III/4). NOV. 1985, 642-43.""GALAXY MATH FACTS GAME I. GALAXY MATH":" GAMES: PLACE VALUE; FRACTIONS I;":" FRACTIONS II; INTEGERS; DECIMALS;":" AND ESTIMATING AND ROUNDING, APPLE,"G" Lx>pg?pCq f0 ~0`>`ACHER"14:"MARCH, 1986"116:"PAGE 200";5210AdCNY KEY TO CONTINUE. ";:R$ x*p50404z5:3R-ENTER SHORT DESCRIPTION"PROGRAM TO FIND THE ROOTS OF THE":3:"EQUATION:":8:"A*X^2 +B*X + C =0. ":3:"YOU ENTER A,B, AND C."16:4:"FOR DETAILS, CONSULT:"8:"THE MATHEMATICS TE:"THE MATHEMATICS TEACHER"2---ENTER VOL. NO.P11:"VOLUME 79 NUMBER 3"n11:"(C) COPYRIGHT 1986"v23(5210--- GO TO DESCRIPTION.60002<:23F5210:I421:I:2:J237:" ";:J:" ":IPZ24:7:"PRESS A:J:"*":I/I421:I:1:"*";:39:"*":IKI138:"*";:I:"*":Q[5040q-- ARTICLE TITLE5:6:"ROOTS OF QUADRATIC EQUATIONS"7:18:"BY"-- AUTHOR'S NAME9:11:"CLARK KIMBERLING"14:17:"FROM"16:8 AND" V" - ("R1")*I"  ~22:1:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$ Y$"Y"ĉ:::10 : D$(4):D$"RUN SYSTEM MENU" : 5090  : :I13:I:J138:"*";LLED 'REPEATED,' SINCE"B "THE FACTORING OF THE QUADRATIC USES"Y "THE ROOT TWICE:" :"A(X^2) + BX + C = "A"(X-"V")^2."  R1(D)(2A) :"YOUR EQUATION HAS 2 COMPLEX ROOTS:" F(R1)ER1(.5R1) :V" + ("R1")*I" " " ,R(B(D))(2A)/ 6S(B(D))(2A)F @F(R)ER(.5R)] JF(S)ES(.5S) T:"YOUR EQUATION HAS 2 REAL ROOTS:" ^:" "R" AND "S h r:"YOUR EQUATION HAS 1 REAL ROOT:" |:"(-B)/(2*A) = "V :"SUCH A ROOT IS CA"INPUT A,B,C ON ONE LINE, SEPARATED BY"L "COMMAS:";:" A,B,C = ";A,B,CZ A0240 "SORRY, BUT IF A=0, YOUR P(X) (LINE 20)" "IS ONLY LINEAR, NOT QUADRATIC." :180 DBB4AC V(B)(2A) F(V)EV(.5V) E D (DISCRIMINANT) AND V (VERTEX)I nD0İ300: 2 DISTINCT REAL ROOTSp xD0İ370: 1 REPEATED REAL ROOT D0İ440: 2 COMPLEX CONJUGATE ROOTS "ENTER ANOTHER SET OF A,B,C?":"STRIKE Y OR N"; A$ A$"Y"ė:80 4990( C 5000: QUADRATIC6P(X)AXXBXCNF(X)(X(.5X))](:E11024v2I039:L$L$"_":I<"THIS PROGRAM FINDS THE SOLUTIONS OF"F"THE EQUATION A(X^2) + BX + C = 0."P:L$Z180: INPUT A,B,C! d260: COMPUT     "THEN IT ENABLES SUBSEQUENT ":3:"MULTIPLICATIONS BY MORE":3:"LINEAR FACTORS."u16:4:"FOR DETAILS, CONSULT:"8:"THE MATHEMATICS TEACHER"13:"JANUARY, 1986"16:"PAGE 50"5210dT2<:23?F5210:I421:I:2:J237:" ";:J:" ":IEPtZ24:7:"PRESS ANY KEY TO CONTINUE. ";:R$zxp5040z5:3-ENTER SHORT DESCRIPTIONQ"PROGRAM MULTIPLIES TWO USER-CHOSEN":3:"LINEAR FACTORS: X-R TIMES X-S,":3::"BY"-- AUTHOR'S NAME;9:11:"CLARK KIMBERLING"O14:17:"FROM"u16:8:"THE MATHEMATICS TEACHER"---ENTER VOL. NO.11:"VOLUME 79 NUMBER 1"11:"(C) COPYRIGHT 1986"23(5210--- GO TO DESCRIPTION.6000 D$(4):D$"RUN SYSTEM MENU"' :1 50907 ? :h :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE 5:8:"FACTORING AND UNFACTORING"7:18M A(I)C(I):C(I)0 IR :"ENTER * TO QUIT OR S = ";:"";B$:B(0)(B$)k (B$,1)"*"ĝ:4990{ R(P1)B(0)  ~:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$ Y$"Y"ĉ:::10 :/ ,"THE POLYNOMIAL OF DEGREE "P" GIVEN BY":: 6I0Pg @"COEFFICIENT OF X^"PI": "C(PI)(1)In JI T:"ROOTS: "; ^I1P hR(I)" "; rI |  :"READY TO MULTIPLY BY ANOTHER LINEAR" "FACTOR X-S? "; MP I0 FACTOR X-R: ";A(0)E "INPUT ROOT S OF LINEAR FACTOR X-S: ";B(0)] R(1)A(0):R(2)B(0)c m PM1x J0P IJ1J I0IM260 C(PJ)C(PJ)A(MI)B(IJ1) I,J  L$: ":"THE PRODUCT OF YOUR LINEAR FACTORS IS"NVITE & RECEIVE NEW LINEAR FACTOR) d703 n4990b x"THIS PROGRAM MULTIPLIES TWO USER-CHOSEN" "LINEAR FACTORS: X-R TIMES X-S. THEN" "IT ENABLES SUBSEQUENT MULTIPLICATIONS" "BY MORE LINEAR FACTORS."  "INPUT ROOT R OF LINEAR 5000:% LINEAR FACTORS+ EA(200),C(200),R(200)[M1:A(1)1:B(1)1t(I039:L$L$"_":Iz2<120: EXPLAIN PROGRAM & INPUT LINEAR FACTORSF210: MULTIPLY THEMP280: PRINT COEFFICIENTS & ROOTS! Z400: I        ETAILS, CONSULT:"3 8:"THE MATHEMATICS TEACHER"L 13:"OCTOBER, 1985"` 16:"PAGE 551" 24:5:"PRESS ANY KEY TO CONTINUE.";:R$ dP5:3# -ENTER SHORT DESCRIPTION "PROGRAM TO COMPUTE THE RATE NEEDED":3:"FOR AN INVESTMENT TO REACH ":3:"A PRESET VALUE IN A SET PERIOD.":3: 3:"YOU ENTER THE PRINCIPAL, TIME," 3:"AND AMOUNT YOU WANT TO RECEIVE." 16:4:"FOR DNO.! 11:"VOLUME 78 NUMBER 7"? 11:"(C) COPYRIGHT 1985"G 23Q (5210k --- GO TO DESCRIPTIONu .6000{ 2 <:23 F5210:I421:I:2:J237:" ";:J:" ":I P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z:I I138:"*";:I:"*":% / 5040E -- ARTICLE TITLEl 5:7:"FROM SIMPLE INTEREST TO E"} 7:18:"BY" -- AUTHOR'S NAME 9:11:"CLARK KIMBERLING" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. (AP)Tg ~:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$u Y$"Y"4 D$(4):D$"RUN SYSTEM MENU" : 5090  : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*" 5000>"THIS PROGRAM COMPUTES THE RATE NEEDED"g"FOR AN INVESTMENT TO REACH A PRE-""SCRIBED VALUE IN A FIXED PERIOD OF TIME."  "PRINCIPAL = ";P"TIME = ";T"AMOUNT FROM A = P*EXP(R*T) =";A( 2"RATE = ";  ST (BASIC EDUCATIONAL SKILLS TUTOR)":" INSTRUCTIONAL MODULE: COMPARATIVE":" AND DESCRIPTIVE TERMS, APPLE II+,"h" IIE, IIC, DISK (CAN BE USED ON":" A NETWORK FOR AN ADDITIONAL FEE).":" DEC. 1985, 712."Pl"BEST (BASIC EDUCATIONAL SKILLS TUTOPC).":" MAY 1986, 392-93."y"PROPORTIONS AND PERCENTS, APPLE II ":" FAMILY, 48K, DOS 3.3. MAY 1986,":" 393-94."~32001800X3100b"ALGEBRA-64 SKILL BUILDERS FOR THE":" COMMODORE-64 COMPUTER, DISK. NOV.":" 1985, 642."rg"BE":" TRS-80 MODEL III). JAN. 1986, 70-71."5F3200?1800Ip3100z"CURRICULUM COMPARER, APPLE II FAMILY, ":" 48K. JAN. 1986, 67-68.""MATHEMATICS ACTIVITIES COURSEWARE, ":" LEVELS 7 AND 8, APPLE II":" FAMILY, 48K, (AVAILABLE IBM ING AND TUTORIAL PROGRAMS, APPLE II":" FAMILY, 48K, DOS 3.3, MAR. 1986,":" 221, 223.""TOPICS IN ALGEBRA, IBM PC, 160K, APR."" 1986, 67-68."3200:3100+"WORD PROBLEMS IN ALGEBRA, APPLE II":" FAMILY, 48K (AVAILABLE IBM PC, 64K;644.)"v"SUPERPLOT: FUNCTION GRAPHING PROGRAM,":" APPLE II FAMILY, 64K, DOS 3.3 OR":" PRODOS. APR. 1986, 302.""TK!SOLVER, IBM PC/XT/AT, MS-DOS, APPLE":" II FAM., MACINTOSH. JAN. 1986, 69-70."["TECMATH: PRECALCULUS & CALCULUS GRAPH-":", IIC, 48K (AVAILABLE IBM).":" DEC. 1985, 715."A3200:3100"MATH UTILITIES: CURVES, DIFFS, & SURFS,":" IBM PC, 128K, IBM COLOR GRAPHICS"" ADAPTER NEEDED, DISK (NETWORK PRICING":" AND SPECIAL PCJR VERSIONS AVAILABLE).":" NOV. 1985, 64K, DISK (AVAILABLE COMMODORE 64;":" IBM PC OR PCJR). NOV. 1985, 643-44.""INTERACTIVE LESSONS: SET 2 -- ALGEBRA,":" APPLE II FAMILY, MAR. 1986, 221"1"MATHLAB I: ALGEBRA & TRIGONOMETRY,":" APPLE II (WITH LANGUAGE CARD), APPLE":" II+, IIE3200:3100^"BALANCE, APPLE II FAMILY (AVAILABLE":" COMMODORE 64). MAY 1986, 392.""CALCU-PLOT: THE EQUATION SOLVER":" AND PLOTTER FOR THE APPLE II/IIE,":" 48K, DISK. OCT. 1985, 564-65."L"EASY GRAPH, APPLE II, IIC, IIE, II+,":" 3 (AVAILABLE":" IBM PC, XT, PCJR, OR MOST PC":" COMPATIBLES). NOV. 1985, 642.""ALGEBRA PLUS, IBM PC, PCJR, 64K, DOS ":" 1.0, 1.1, 2.0, OR 2.1; BASICA":" REQUIRED. JAN. 1986, 67.""ALGEBRA WORD PROBLEMS, APPLE, DISK,":" OCT. 1985, 564."":" APPLE II FAMILY, 48K. MAY 1986, 392.""ALGEBRA I, VOLUME I: SETS AND NOTATION,":" IBM PC, PCJR, 128K (AVAILABLE APPLE, "" COMMODORE 64, & ATARI). JAN.1986, 67."R"ALGEBRA PAK: ALGEBRA I AND ALGEBRA II,":" APPLE II, II+, IIE, DOS3.X . 23:"PRESS ANY KEY TO CONTINUE ";:Z$4 r P5000,6000,7000,8000,9000,10000,11000,12000,13000,14000 "ERROR": 3100+"ALGEBRA COACH:#1-- MULTIPLYING AND":" FACTORING BINOMIALS, #2 -- INTRO-":" DUCTION TO QUADRATIC EQUATIONS,D$(4), PMİ2250:D$;"RUN SYSTEM MENU" 22:"INCORRECT RESPONSE -TRY AGAIN":"PRESS RETURN TO CONTINUE: ";X$:KK15:  :"SUBJECT: ";N$(P) 0 D "REVIEW TITLE, ISSUE & PAGE NUMBER" N "-------------------------------------" NY USER-CHOSEN":3:"POLYNOMIAL P(Z) FOR ANY COMPLEX":3:"NUMBER Z= A+BI."p16:4:"FOR DETAILS, CONSULT:"8:"THE MATHEMATICS TEACHER"14:"APRIL, 1986"16:"PAGE 281"5210dI6" 23(5210.--- GO TO DESCRIPTION8.6000>2H<:23yF5210:I421:I:2:J237:" ";:J:" ":IPZ24:7:"PRESS ANY KEY TO CONTINUE. ";:R$xp5040z5:3-ENTER SHORT DESCRIPTIONL"PROGRAM EVALUATES AEX ROOTS: THE BAIRSTOW-HITCHCOCK":16:"METHOD"@ 7:18:"BY"V -- AUTHOR'S NAMEu 9:11:"CLARK KIMBERLING" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 79 NUMBER 4"11:"(C) COPYRIGHT 198 Y$"Y"ĉ::::10 :? D$(4):D$"RUN SYSTEM MENU"G :Q 5090W _ : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE/ 5:2:"COMPLPQQ) 5 " P("A" + I("B")) = ";P" + I("Q")"; \ "ABS(P("A" + I("B"))) = ";Mb  "INPUT ANOTHER? (Y/N):";R$ "(R$,1)"Y"190 , ~22:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$TA REPRESENTS A6 COEFFICIENT OF P(Z); e.g., IF_ N = 3, THE DATA PAIRS 1,0 3,2 5,2 4,0 REPRESENT THE POLYNOMIAL Z^3 + (3+2I)Z^2 + (5+2I)Z + 4 KN11:RP PAPBQP(K1) QBRAQQ(K1) K M(P205.":6 -"THE POLYNOMIAL FOR THIS RUN IS GIVEN BY"C 2101189n 7"INPUT DEGREE OF POLYNOMIAL: N = ";N <K0N:P(NK),Q(NK):K e 1,0 f 2,0 g 3,0 h 4,0 PP(N):QQ(N): "INPUT A+BI AS A,B: ";A,B EACH PAIR OF DA 5000:8 EVALUATE POLYNOMIAL ('RIFLE TEST')M:P(100),Q(100)y"THIS PROGRAM EVALUATES A USER-CHOSEN""POLYNOMIAL P(Z) AT USER-CHOSEN COMPLEX""NUMBERS A+BI.":#"TO TYPE IN DATA FOR YOUR POLYNOMIAL," ("SEE LINES 201-      AT COMPLETES THE MENU."::"NO SELECTION MADE":23:"PRESS RETURN TO CONTINUE";X$:: 22:"ENTER THE DESIRED NUMBER, OR":"PRESS RETURN FOR THE NEXT SCREEN: ";P$:P(P$) " (P$)0KMı T (P$)0KM1ī2750 P(P) P1PM14000 ." F . :10:5:"INCORRECT ENTRY - TRY AGAIN":J11500:J:240P ::y :I13:I:J038:"*";:J:"*":: :I420:I:1:"*";:40:"*":I ( 21::I038:"*";:I:"*": Z 2:7:" MT COURSEWARE REVIEW INDEX " U :10:"THPROCESSING", N$(11)"RETURN TO MAIN MENU"5 M11? 2450T :5:8:K1M:T3c lK10T2x T:K;". ";N$(K) K15(K15)İ2800::2450:5 K 42800 f1800  :10:8:"LOADING THE PROGRAM INTO":9:"THE COMPUTER'S MEMORYH d:N$(50):M=25)N$(1)"ALGEBRA"BN$(2)"APPLICATIONS"YN$(3)"ARITHMETIC"n,N$(4)"CALCULUS"EN$(5)"COMPUTER SCIENCE"JN$(6)"GAMES AND PUZZLES"^N$(7)"GEOMETRY"N$(8)"STATISTICS"N$(9)"TRIGONOMETRY" N$(10)"WORD 1985" 16:"PAGE 550"H 24:5:"PRESS ANY KEY TO CONTINUE.";:R$N dI"PROGRAM TO COMPUTE THE VALUE OF AN":3:"INVESTMENT WHEN INTEREST IS":3:"COMPOUNDED CONTINUOUSLY.":3: 3:"YOU ENTER THE PRINCIPAL, RATE," 3:"AND TIME." 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 13:"OCTOBER,:"(C) COPYRIGHT 1985" 23( (5210B --- GO TO DESCRIPTIONL .6000R 2\ <:23 F5210:I421:I:2:J237:" ";:J:" ":I P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z5:3 -ENTER SHORT DESCRIPTIONj 5040 -- ARTICLE TITLEC 5:7:"FROM SIMPLE INTEREST TO E"T 7:18:"BY"j -- AUTHOR'S NAME 9:11:"CLARK KIMBERLING" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 78 NUMBER 7" 11ROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$L Y$"Y"4m D$(4):D$"RUN SYSTEM MENU"u : 5090  : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  P 5000>"THIS PROGRAM COMPUTES THE VALUE OF AN"l"INVESTMENT WHEN INTEREST IS COMPOUNDED""CONTINUOUSLY."  "PRINCIPAL = ";P"RATE = ";R"TIME = ";T(2"AMOUNT = ";P(RT)> ~:"DO YOU WISH TO RUN THE P       ITS DIGITS, THEN DO THE SAME"|5:"THING WITH THE SUM, YOU WILL":5:"EVENTUALLY REACH A SUM THAT IS":5:"PALINDROMIC."16:4:"FOR DETAILS, CONSULT:"8:"THE MATHEMATICS TEACHER"15:"MAY, 1986"16:"PAGE 377"5210dINY KEY TO CONTINUE. ";:R$ x*p50404z5:3R-ENTER SHORT DESCRIPTION"PROGRAM THAT APPLIES THE FOLLOWING":3:"RULE TO PRODUCE PALINDROMES:":3:5:"IF YOU ADD ANY POSITIVE INTEGER":5:"TO THE NUMBER OBTAINED BY REVERS-":5:"ING :"THE MATHEMATICS TEACHER"2---ENTER VOL. NO.P11:"VOLUME 79 NUMBER 5"n11:"(C) COPYRIGHT 1986"v23(5210--- GO TO DESCRIPTION.60002<:23F5210:I421:I:2:J237:" ";:J:" ":IPZ24:7:"PRESS AI:1:"*";:39:"*":I3 I138:"*";:I:"*":9 C 5040Y -- ARTICLE TITLE 5:4:"LARGE INTEGERS WITH SMALL NUMBERS" 7:18:"BY" -- AUTHOR'S NAME 9:3:"EDWARD C. WALLACE & JOSEPH E. CHANCE" 14:17:"FROM"16:8rI |k ~22:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$ Y$"Y"ĉ:::10 : D$(4):D$"RUN SYSTEM MENU" : 5090  : :I13:I:J138:"*";:J:"*":I I421: 6120Y ;: LINES 320-370 PRINT THE PALINDROME USING STRINGS TO AVOID IMBEDDED BLANKS @Z$;" WAS TRANSFORMED INTO A PALINDROME":10:"AFTER ";K" ITERATIONS."::"THE PALINDROME RESULTING IS":10 JB$"0123456789" TI1R h(B$,C(I)1,1); -280 DETERMINE IF THE SUM IS PALINDROMIC5 A$"YES"@ I1RO A(I)C(I)f C(I)C(RI1)280r A$"NO"y I : LINES 290-310 RETURN THE PROGRAM TO LINE 120 TO REPEAT THE ALGORITHM IF THE SUM IS NOT PALINDROMIC "KK1 ,A$"YES"320O CONTINUE.";:R$dIR$"Y"ė:10::49907dR YEAR WILL VARY FROM"3 3:"FROM 1 TO 12.":3:\ 3:"YOU ENTER THE PRINCIPAL, RATE,"p 3:"AND TIME." 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 13:"OCTOBER, 1985" 16:"PAGE 550"24:5:"PRESS ANY KEY T P4 Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$: xD p5040N z5:3l -ENTER SHORT DESCRIPTION "PROGRAM TO COMPUTE THE VALUE OF ANY":3:"INVESTMENT GIVEN THE INTEREST RATE,":3:"PRINCIPAL, AND TIME. THE NUMBER OF ":3:"COMPOUNDINGS PE14:17:"FROM"5 16:8:"THE MATHEMATICS TEACHER"L ---ENTER VOL. NO.j 11:"VOLUME 78 NUMBER 7" 11:"(C) COPYRIGHT 1985" 23 (5210 --- GO TO DESCRIPTION .6000 2 <:23 F5210:I421:I:2:J237:" ";:J:" ":I( :I13:I:J138:"*";:J:"*":IL I421:I:1:"*";:39:"*":Ih I138:"*";:I:"*":n x 5040 -- ARTICLE TITLE 5:7:"FROM SIMPLE INTEREST TO E" 7:18:"BY" -- AUTHOR'S NAME 9:11:"CLARK KIMBERLING" 2"N","AMOUNT" <N1121 FAP(1RN)(NT)J PN,0.01(0.5100A)Q ZN ~:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$ Y$"Y"4 D$(4):D$"RUN SYSTEM MENU" : 5090  : 5000="THIS PROGRAM COMPUTES THE VALUE A(T)"h"OF AN INVESTMENT, WHERE P, R, T ARE""CONSTANTS, AND COMPOUNDING VARIES FROM""1 TO 12 TIMES A YEAR."  "PRINCIPAL = ";P"RATE = ";R"TIME = ";T#(      H TO LOW xI1R& B(RI1)A(I)- Iv LINES 150-210 ADD THE ORIGINAL TO THE INTEGER WITH DIGITS REVERSED~ C0 I1R C(I)A(I)B(I)C C(C(I)10) C(I)C(I)C10 IRC0C(R1)C I C0RR1( LINES 230 5000: P ARRAYS A,B, AND C LIMIT SIZE OF INTEGERS TO 550 DIGITSjA(500),B(500),C(500)("ENTER THE NUMBER ";N$2Z$N$<PR(N$)ZI1RdA(I)((N$,RI1,1))nI s LINES 120-140 INTERCHANGE DIGITS FROM HIG THE VALUES R, S, T AND U."? 16:4:"FOR DETAILS, CONSULT:"a 8:"THE MATHEMATICS TEACHER"z 13:"JANUARY, 1986" 16:"PAGE 49" 5210 dIFFICIENTS OF ":3:"THE QUARTIC POLYNOMIAL:":5:"X^4 + A*X^3 + C*X^2 + D*X + E.":3:"YOU ENTER VALUES OF R, S, T AND U" 3:"THAT FORM THE FACTORS OF:":8:"(X-R)*(X-S)*(X-T)*(X-U).":3::2:"THE PROGRAM UNFACTORS THE POLYNOMIAL." 3:"YOU ENTER 23 (5210* --- GO TO DESCRIPTION4 .6000: 2D <:23u F5210:I421:I:2:J237:" ";:J:" ":I{ P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z5:3 -ENTER SHORT DESCRIPTIONy "PROGRAM TO FIND THE COEITLE+ 5:8:"FACTORING AND UNFACTORING"< 7:18:"BY"R -- AUTHOR'S NAMEq 9:11:"CLARK KIMBERLING" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 79 NUMBER 1" 11:"(C) COPYRIGHT 1986"RESS RETURN:";:" ";Y$, Y$"Y"ĉ:::104 :U D$(4):D$"RUN SYSTEM MENU"] :g 5090m u : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE T 5000:& "R,S,T,U =";R,S,T,U5A1RSTUSBRSRTRUSTSUTUr(C1RSTRSURTUSTU2DRSTU<AA1:CC1AFA;" ";B;" ";C;" ";D ~22:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN Pd"R$"Y"ė:10::4990# d:3:"USING THE FORMULA I=PRT."H 3:"YOU ENTER THE PRINCIPAL, RATE,"\ 3:"AND TIME." 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 13:"OCTOBER, 1985" 16:"PAGE 549" 24:5:"PRESS ANY KEY TO CONTINUE.";:R$ 5210 --- GO TO DESCRIPTION( .6000. 28 <:23i F5210:I421:I:2:J237:" ";:J:" ":Io P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z5:3 -ENTER SHORT DESCRIPTION "PROGRAM TO COMPUTE SIMPLE INTEREST"7:"FROM SIMPLE INTEREST TO E"0 7:18:"BY"F -- AUTHOR'S NAMEe 9:11:"CLARK KIMBERLING"y 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 78 NUMBER 7" 11:"(C) COPYRIGHT 1985" 23 (EN PRESS RETURN:";:" ";Y$( Y$"Y"4I D$(4):D$"RUN SYSTEM MENU"Q :[ 5090a i : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE 5: 5000>"THIS PROGRAM COMPUTES SIMPLE INTEREST"^"USING THE FORMULA I=PRT."d z "PRINCIPAL = ";P"RATE = ";R"TIME = ";T(2"INTEREST = ";PRT ~:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' TH    OR ALL INTEGERS":3:"FROM 1 THROUGH 70."M16:4:"FOR DETAILS, CONSULT:"o8:"THE MATHEMATICS TEACHER"15:"MAY, 1986"16:"PAGE 376"5210dIdIESCRIPTION .6000 2$ <:23U F5210:I421:I:2:J237:" ";:J:" ":I[ P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z5:3 -ENTER SHORT DESCRIPTION)"PROGRAM COMPUTES AND DISPLAYS ":3:"N! (N FACTORIAL) F18:"BY" -- AUTHOR'S NAMEQ 9:3:"EDWARD C. WALLACE & JOSEPH E. CHANCE"e 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 79 NUMBER 5" 11:"(C) COPYRIGHT 1986" 23 (5210 --- GO TO D(4):D$"RUN SYSTEM MENU"" :, 50902 : :c :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE 5:4:"LARGE INTEGERS WITH SMALL NUMBERS" 7:D(3)K10W48 D(4)326 "X14:A$A$(D(X)):X? ,A$;I 1A$""P 6IV @d JN70360n TNN1v ^60| h ~:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$ Y$"Y"ĉ:::10 : D$SS THE OUTPUT BY REMOVING LEADING ZEROES AND SUPPRESSING BLANKS USING STRING ADDITION^ xJ10d q N;"!=";~ I1100 KA(101I) K0190 J11 J10310 W(K100) D(1)W48 KK100W W(K10) D(2)W48  5000: A(100)|: LINES 40-60 INITIALIZE THE ITERATIVE PROCEDURE FOR CALCULATING THE FACTORIAL FUNCTION(A(1)12N1<C0FI1100PA(I)NA(I)CZC(A(I)1000)dA(I)A(I)1000CnIU s LINES 120-320 COMPRE TEACHER"" 13:"JANUARY, 1986"6 16:"PAGE 49"@ 5210F dII.":3:"YOU ENTER VALUES OF R, S AND T THAT" 3:"FORM THE FACTORS OF:":6:"(X-R)*(X-S)*(X-T).":3::2:"THE PROGRAM UNFACTORS THE POLYNOMIAL." 3:"YOU ENTER THE VALUES OF R, S AND T." 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS F5210:I421:I:2:J237:" ";:J:" ":I5 Pd Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$j xt p5040~ z5:3 -ENTER SHORT DESCRIPTION, "PROGRAM TO FIND THE COEFFICIENTS OF ":3:"THE CUBIC POLYNOMIAL.":10:"X^3 + A*X^2 + C*X + DUTHOR'S NAME+ 9:11:"CLARK KIMBERLING"? 14:17:"FROM"e 16:8:"THE MATHEMATICS TEACHER"| ---ENTER VOL. NO. 11:"VOLUME 79 NUMBER 1" 11:"(C) COPYRIGHT 1986" 23 (5210 --- GO TO DESCRIPTION .6000 2 <:23/UN SYSTEM MENU" :! 5090' / :X :I13:I:J138:"*";:J:"*":I| I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE 5:8:"FACTORING AND UNFACTORING" 7:18:"BY" -- AH 5000:" "R,S,T =";R,S,T/A1RSTABRSRTSTN(C1RST^2AA1:CC1d7o<A,B,C~22:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$Y$"Y"ĉ:::10: D$(4):D$"R     z# ٮǮŠ ҮǮٮ Š ԭؠ% ҮǮà ҮǮٮ  ҮǮΧӠ ٮǮŠӠ ٮǮӠ ŠҮǮӠƠ  ®ǮԠ!ҮǮӮŠ ®Ǯˠ ҮǮà ҮǮΧӠ ٮǮӠԮǮŠ  ήǮǭ"ήǮǭ ®Ǯ̠ ήǮŠ٠ح ήǮҠӠ ®ǮͦĮƠ ήǮΠĮ ֮ǮΧӠ  ֮ǮŠƠ֮ǮĠîǮŭîǮŭήǮҠΠήǮǭ ԮǮԮԠԮǮƠ® ԮǮĠԠ֮ǮàԮǮƠ® ԭؠ"֮ǮΧӠϠ͠ՠij"Ϡ ĠƠҠΠĠ"ԮǮԠ$ "A("N")+B("N")*I IS GIVEN BY"? :"COEF. OF Z^"N": 1"J K1Ne "COEF. OF Z^"NK": "; Q(N,NK)0ĺ(1)KP(N,NK):450 (1)KP(N,NK)" + ("(1)KQ(N,NK)")*I" K :"ANOTHER FACTOR? ENTER (Y/N):";:" ";R$ (R$,1)"A(N)P(N1,K)B(N)Q(N1,K)P(N1,K1)Y 6Q(N,K)A(N)Q(N1,K)B(N)P(N1,K)Q(N1,K1)` @K} JP(N,N1)A(N)P(N1,N2) TQ(N,N1)B(N)Q(N1,N2) ^ hL$ r"THE MONIC POLYNOMIAL HAVING AS ITS" |N" ROOTS THE NUMBERS A(1)+B(1)*I, ..., ""2nd ROOT A(2)+B(2)*I, ETC.":( 2 NN1^ "INPUT A("N"),B("N")";:": ";A(N),B(N)z P(1,0)A(1):Q(1,0)B(1) N1210 P(N,0)A(N)P(N1,0)B(N)Q(N1,0) Q(N,0)A(N)Q(N1,0)B(N)P(N1,0) N2330 "K1N2' ,P(N,K)CIENTS& n360: REPORT COEFFICIENTS. x908 4990d "THIS PROGRAM FINDS COEFFICIENTS OF A" "POLYNOMIAL P(Z) FROM ITS ROOTS BY" "ACCUMULATING A PRODUCT OF LINEAR" "FACTORS Z-(A+B*I)." :"PLEASE INPUT 1ST ROOT A(1)+B(1)*I,"" 5000:3 FIND COEFFICIENTS FROM ROOTSFI(X)(.5X)\A(X)(XI(X))y(A(20),B(20),S(20),T(20)2P(20,20),Q(20,20)<I039:L$L$"_":IFP140: EXPLAIN PROGRAMZ210: INPUT ROOTS d260: COMPUTE COEFFINTER SHORT DESCRIPTIONp"PROGRAM TO COMPUTE THE MEAN AND":3:"STANDARD DEVIATION OF A SET OF":3:"VALUES."16:4:"FOR DETAILS, CONSULT:"8:"THE MATHEMATICS TEACHER"13:"JANUARY, 1986"16:"PAGE 625210dN"VOLUME 79 NUMBER 1"2 11:"(C) COPYRIGHT 1986": 23D (5210^ --- GO TO DESCRIPTIONh .6000n 2x <:23 F5210:I421:I:2:J237:" ";:J:" ":I P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z5:3-EE TITLEP 5:5:"CENTRAL TENDENCY AND DISPERSION:":11:"THE ESSENTIAL UNION"a 8:18:"BY"w -- AUTHOR'S NAME 10:5:"IVAN W. KELLY & JAMES E. BEAMER" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:N PRESS RETURN:";:" ";Y$/ Y$"Y"ĉ:::107 :X D$(4):D$"RUN SYSTEM MENU"` :j 5090p x : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICL "I ,: 6MEANSUMN" 8:: ;"MEAN","STD. DEV."I @::MEAN,O J:Y TSSQ0d ^I1Nw h::DFA(I)MEAN r::SSQSSQDFDF |I : SD(SSQN) SD :: ~:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEETWEEN THE SCORE AND THE MEAN> SD STANDARD DEVIATIOND J t "HOW MANY VALUES WILL YOU ENTER? ";N~ A(N) SUM0 :"ENTER YOUR VALUES NOW." "PRESS RETURN AFTER EACH VALUE." : I1N ::A(I) ::SUMSUMA(I) 5000: @2 CALCULATES MEAN AND STANDARD DEVIATIONPd VARIABLESnn N NUMBER OF VALUESx A() ARRAY TO STORE VALUES SUM SUM OF VALUES MEAN MEAN OF VALUES SSQ SUM OF SQUARES DF DIFEERENCE B    m -- DOS 3.3 HELLO  0::C$(4)Y(:16302,0:C$;"BLOAD HEAD3,A$4000"l<C$;"RUN LOGO""2,0:N12500:N<C$;"RUN LOGO"14:17:"FROM":16:8:"THE MATHEMATICS TEACHER"Q---ENTER VOL. NO.o11:"VOLUME 79 NUMBER 3"11:"(C) COPYRIGHT 1986"23(5210--- GO TO DESCRIPTION.60002<:23F5210:I421:I:2:J237:" ";:J:" *:I13:I:J138:"*";:J:"*":INI421:I:1:"*";:39:"*":IjI138:"*";:I:"*":pz5040-- ARTICLE TITLE5:6:"ROOTS OF QUADRATIC EQUATIONS"7:18:"BY"-- AUTHOR'S NAME9:11:"CLARK KIMBERLING"Y"130 = :"READY TO MULTIPLY BY ANOTHER Z-(A+B*I):"C  ~:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$ Y$"Y"ĉ:::10 : D$(4):D$"RUN SYSTEM MENU" : 5090 :MADE"Q 23:"DO YOU WISH TO RETURN TO THE MAIN MENU?":"ENTER 'Y' OR 'N': ";R$_ R$"Y"ıh 110 D$(4)::D$"RUN END OF COMPUTER SESSION" 22:"ENTER THE DESIRED NUMBER, OR":"PRESS RETURN FOR THE NEXT SCREEN: ";P$:P(P$)" (P$)0K":J11500:J:240` # ::L :I13:I:J038:"*";:J:"*"::r :I420:I:1:"*";:40:"*":I( 21::I038:"*";:I:"*":X TAG0Ė11Y TAG1TAG2Ė8Z 2:F$  :10:"THAT COMPLETES THE MENU."::"NO SELECTION 00 2450!:5:8:K1M:T30lK10T2ET:K;". ";N$(K)hK15(K15)İ2800::2450:5oKy42800f1800:10:8:"LOADING THE PROGRAM INTO":9:"THE COMPUTER'S MEMORY.". :10:5:"INCORRECT ENTRY - TRY AGAIN6:PG.281- POLY. EVALUATION"KN$(33)"MAY.86:PG.371- LAGRANGE POLYNOMIAL"vN$(34)"MAY.86:PG.375- LARGE INTEGERS"N$(35)"MAY.86:PG.376- FACTORIALS"N$(36)"MAY.86:PG.377- PALINDROMES"N$(37)"END OF COMPUTER SESSION"M37GG180OTS"3N$(27)"MAR.86:PG.201- QUADRATIC DIVISION"bN$(28)"MAR.86:PG.202- POLY. COEFFICIENTS"N$(29)"MAR.86:PG.212- BUFFON'S NEEDLE-1"N$(30)"MAR.86:PG.213- BUFFON'S NEEDLE-2"N$(31)"APR.86:PG.280-ROOTS OF POLYNOMIALS"N$(32)"APR.8FEB.86:PG.120- SUM&PROD. OF DIGITS"RN$(22)"FEB.86:PG.121- CANCEL INCORRECTLY"~N$(23)"FEB.86:PG.121- PERFECT NUMBERS"N$(24)"FEB.86:PG.142- PATCHWORK QUILT"N$(25)"MAR.86:PG.196- ABS. VALUE GRAPHS"N$(26)"MAR.86:PG.200- QUADRATIC RO5)"JAN.86:PG. 48- FACTORING-1"G N$(16)"JAN.86:PG. 49- FACTORING-2"o N$(17)"JAN.86:PG. 49- FACTORING-3" @N$(18)"JAN.86:PG. 50- LINEAR FACTORS" rN$(19)"JAN.86:PG. 52- DIVIDE BY (X-A)" |N$(20)"JAN.86:PG. 62- MEAN & STD. DEV."#N$(21)"5:PG.633- THREE LEAF ROSE"I N$(10)"NOV.85:PG.634- CONCENTRIC CIRCLES"x N$(11)"NOV.85:PG.635- INSCRIBED ASTROIDS" FN$(12)"DEC.85:PG.709- DIOPHANTINE-1" xN$(13)"DEC.85:PG.710- DIOPHANTINE-2" N$(14)"JAN.86:PG. 10- NUMBER PATTERN" N$(1- CONT. INTEREST"? N$(4)"OCT.85:PG.551- FIND INTEREST RATE"j N$(5)"OCT.85:PG.562- PLAYOFF PROB.-1" N$(6)"OCT.85:PG.562- PLAYOFF PROB.-2" LN$(7)"NOV.85:PG.627- NEWTON'S METHOD-1" ~N$(8)"NOV.85:PG.628- NEWTON'S METHOD-2" N$(9)"NOV.8THE DESIRED NUMBER: ";P$:P(P$)4 P1GG0:TAG1H P2GG1:TAG2a P800,800,7000,2775j 110 N$(1)"OCT.85:PG.549- SIMPLE INTEREST" !8:F$" THE MATHEMATICS TEACHER " RN$(2)"OCT.85:PG.550- INVESTMENT VALUE" N$(3)"OCT.85:PG.550L TOPIC:":11:"ALGEBRA, GEOMETRY, ETC.)"m 14:8:"3. MATHEMATICS TEACHER":11:"COURSEWARE REVIEW INDEX" 19:3:"NOTE: THE ARITHMETIC TEACHER PROGRAMS":9:"ARE ON SIDE 2 OF THIS DISK." 17:8:"4. END OF COMPUTER SESSION" 23:5:"ENTER d:N$(50),A$(20)i255AnF$" SELECT YOUR MENU ":TAG0Kx2450w5:8:"WHICH MENU DO YOU WISH TO USE?"7:8:"1. MATHEMATICS TEACHER"11:"(CHRONOLOGICALLY BY ISSUE)"10:8:"2. MATHEMATICS TEACHER") 11:"(BY MATHEMATICA     PREPARE TO MULT. ALL X-X(I) EXCEPT X-X(Q)V d600: MULTIPLY THE N-1 LINEAR FACTORS n i.e., form the coefficients C(Q,I) xQ 720: ASSEMBLE COEFFICIENTS P(Q) OF POLYNOMIAL P(X) 770: CHANGE COEFFICIENTS P(Q) INTO L(Q)'S 5000:2R$"PRESS 'RETURN' TO CONTINUE."cS$" "i(2210: EXPLAIN PROGRAM & INPUT N<340: INPUT N POINTS X(I),Y(I)F:"PROGRESS (1 TO "N"): ";PQ1N:Q" ";:D(Q)1) Z540:      1: SIMPLE PROGRAMS AND":" LOOPS, PHOTOCOPY MASTERS COMBO. ":" INCLUDES 'LEARNING PASCAL' MASTERS":" AND MICROPASCAL DISKETTE (AVAILABLE"!G#" COMMODORE 64/PET, IBM PC/PCJR, AND":" TRS-80 MODELS III/4). MAY 1986, 393."!O#3200:3100;"P#"PASCAM."(16:4:"FOR DETAILS, CONSULT:"J8:"THE MATHEMATICS TEACHER"a14:"MARCH, 1986"u16:"PAGE 202"5210d":I P9Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$?xIp5040Sz5:3q-ENTER SHORT DESCRIPTION"PROGRAM FINDS COEFFICIENTS OF A ":3:"POLYNOMIAL BY MULTIPLYING ITS ":3:"COMPLEX FACTORS. INSTRUCTIONS ARE":3:"GIVEN IN THE PROGRLT:"&8:"THE MATHEMATICS TEACHER"@13:"NOVEMBER, 1985"T16:"PAGE 628"^5210ddNOMIAL FUNCTION:":3:55:"F(X)=X^3-2*X^2+10*X-20y3::3:"BY NEWTON'S METHOD. YOU ENTER THE":3:"FIRST GUESS."3:"AFTER THE FIRST RUN YOU CAN ENTER":3:"YOUR OWN FUNCTION BY CHANGING":3:"LINES 40 AND 50."16:4:"FOR DETAILS, CONSU-- GO TO DESCRIPTION.6000$2.<:23_F5210:I421:I:2:J237:" ";:J:" ":IePZ24:7:"PRESS ANY KEY TO CONTINUE. ";:R$xp5040z5:3-ENTER SHORT DESCRIPTION"PROGRAM TO FIND THE ROOTS OF THE ":3:"POLYNOTS: NEWTON'S METHOD"& 7:18:"BY"< -- AUTHOR'S NAME[ 9:11:"CLARK KIMBERLING"o 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 78 NUMBER 8" 11:"(C) COPYRIGHT 1985" 23 (5210-;Y$ Y$"Y"ĉ:::10! :B D$(4):D$"RUN SYSTEM MENU"J :T 5090Z b : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE 5:9:"ROPROXIMATION, INPUT A NUMBER THAT YOU"R "THINK IS CLOSE TO THE DESIRED ROOT.": "FOR THIS RUN, Y(X) AND ITS DERIVATIVE" ""ARE GIVEN BY" ,4050 6 ~:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" "IMATE A REAL ROOT OF A FUNCTION"J "Y(X). AFTER THE FIRST RUN, YOU MAY"s "TYPE IN YOUR OWN FUNCTION Y(X) AS" "FN Y(X) AT LINE 40. YOU MUST ALSO TYPE" "THE DERIVATIVE OF Y(X) AS FN Z(X) AT" "LINE 50. WHEN PROMPTED FOR A FIRST"% "AP(Z(X(N)))5 xYEĺX(N);" IS A ROOT OF Y(X)":180P ZEX(N)X(N).5:110r X(N1)X(N)Y(X(N))Z(X(N)) N;:36,5:X(N);:36,22:Y(X(N)) Y(X(N))0180 NN1:120 4990 :"THIS PROGRAM USES NEWTON'S METHOD TO" "APPROXf 5000:# NEWTON'S METHOD3N1:E109?X(200)\(Y(X)X32X210X20t2Z(X)3X24X10}<190F:"FIRST APPROXIMATION = ";X(1)P::"N";:36,5:"X(N)";Z36,22:"Y(X(N))"dI039:"-";:I: nY(Y(X(N))):Z         MBERS WITH THE":3:"PROPERTY THAT THE SUM OF THE":3:"NUMBER'S DIGITS EQUALS THE PRODUCT":3:"OF ITS DIGITS." 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 13:"FEBRUARY, 1986" 16:"PAGE 120" 5210 d86" 23 (5210/ --- GO TO DESCRIPTION9 .6000? 2I <:23z F5210:I421:I:2:J237:" ";:J:" ":I P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z5:3 -ENTER SHORT DESCRIPTIONp "PROGRAM TO FIND NURING NUMBER THEORY WITH A":13:"MICROCOMPUTER"@ 8:18:"BY"V -- AUTHOR'S NAMEv 10:11:"FREDERIC FISCHER" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 79 NUMBER 2" 11:"(C) COPYRIGHT 19 Y$"Y"ĉ:::10 :? D$(4):D$"RUN SYSTEM MENU"G :Q 5090W _ : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE/ 5:5:"EXPLO 5000:5 PROGRAM FOR FINDING SUM = PRODUCT@ I19KJ19VK19b(SIJKn2PIJK<(S)(P)80FI;J;KPKZJdI ~:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$ION OF SUCH A PROGRAM,"> 5:"PERFORM THE FOLLOWING STEPS:"G5:o8:"1. DEPRESS THE CONTROL (CTRL)"(11:"KEY AND STRIKE THE 'C' KEY."28:"2. TYPE THE MESSAGE:"75:<12:"RUN SYSTEM MENU"A5: F11:"THEN PRESS THE 'RET516:2:" NOTE "$5:5K"SEVERAL OF THE PROGRAMS ON THIS"u5:"DISKETTE PERFORM A LARGE NUMBER"5:"OF COMPUTATIONS AND EXECUTE FOR"5:"A LONG PERIOD OF TIME."5:5:"IF YOU WISH TO TERMINATE THE"5:"EXECUT 2:% 3:"TO LIST A PROGRAM:"T $3:"1. SELECT THE PROGRAM FROM THE MENU," )3:"2. WHEN TITLE APPEARS, KEY CONTROL-C":6:"(CTRL-C) THEN PRESS 'RETURN'," .3:"3. TYPE THE COMMAND 'LIST', THEN":6:"PRESS 'RETURN'." 3255 8:2 MAKE A"4 3:"COPY FOR EACH OF THEIR COMPUTERS."} 3:"PLEASE DO NOT ALLOW UNAUTHORIZED":3:"COPIES TO BE MADE.":3: 3:"'MATHDISK' PROGRAMS ARE IN 'AS IS'" 3:"FORM FROM NCTM JOURNALS. YOU ARE" 3:"ENCOURAGED TO LEARN FROM THEM."37:" ";:J:" ":I H 24:7:"PRESS ANY KEY TO CONTINUE. ";:R$N X :25 4:3:"NCTM 'MATHDISK' PROGRAMS ARE" 3:"PRODUCED FROM ARTICLES COPYRIGHTED" 3:"BY THE NCTM, BUT MAY BE COPIED FOR" 3:"PERSONAL USE. SCHOOLS MAYL0":2:9);"DONALD W. SCHEUER, JR." >16:6:"NATIONAL COUNCIL OF TEACHERS":13:"OF MATHEMATICS":9:"1906 ASSOCIATION DRIVE":12:"RESTON, VA 22091" ?11:"(C) COPYRIGHT 1986" A23 F255 P1000 :23 255:I421:I:2:J2MATHDISK' III ":2:5:"PROGRAMS FROM THE MATHEMATICS TEACHER"a 38:"& THE ARITHMETIC TEACHER" 42:"-------------------------------------":2: 67:"SEPTEMBER 1985 - MAY 1986" 810:10:"COMPILED & EDITED BY":2:$ <2:12);"JAMES M. RUBILI12500:I:" 50, 1200N:10:11:"LOADING THE MENU"pD$(4):D$;"RUN SYSTEM MENU"x::I13:I:J138:"*";:J:"*":I#I421:I:1:"*";:39:"*":I(I138:"*";:I:"*":-> 225:2:10:" NCTM '     X1X(U):X2X(UW)/Y1L(9)X1:Y2L(9)X2=I811aY1(Y1L(I))X1:Y2(Y2L(I))X2hIY1Y1L(0):Y2Y2L(0)V1V(Y1):V2V(Y2)V10V1191V2191V2191:1300V10V1191V20V20:1300V1191V2191V20V1191:,98280U,96280U,98:U:V96191T:138,V140,VV138,192V140,192V:V\$g.I1N8VV(Y(I))ZV(Y(I))ZBV0V1911130LU1U(X(I))Z:U2U(X(I))ZVU10U22791130`U1,VU2,VjV,It~U0279WW: ";fL(Q)pQ(zR$;:A$:::.AU(X)140SXSV(Y)96TYhX(U)(U140)SyZ3:N4W6N4N5W5N6N7W2N7W1:3U0279:U,96:UV19001:140,V:VU140279S:U,96U1N"P(Q)P(Q)F(L)C(L,NQ1)+L,Q1>Q0N1] L(Q)P(N1Q)(1)(N1Q)nL(L(Q).5)u Q}*:4>"THE LAGRANGE POLYNOMIAL PASSING THROUGH"H"YOUR "N" POINTS IS GIVEN BY"RQN101\"COEFFICIENT OF X^"Q"B(1)1:M1NXK0N1'bPM1;lJ0P:IJ1JLvI0IM650rC(Q,PJ)C(Q,PJ)A(MI)B(IJ1){I,JKN3710MPI0M:A(I)C(Q,I):C(Q,I)0:IB(0)U(K3)KQ1N:F(Q)Y(Q)D(Q):QQ0N1:L"SORRY, BUT NO POLYNOMIAL PASSES THROUGH"Z"2 POINTS HAVING THE SAME X COORDINATE."q"TRY AGAIN.":430xJIL1N:U(L)X(L):LQ560&D(Q)D(Q)(X(Q)X(L))0L:LQN1:U(L)U(L1):L DA(0)U(1):B(0)U(2):A(1)1:HAVE" r, |S1(1139S):S2(1140S)K T1(195T):T2(196T)i " ";S1;" < X < ";S2; " AND ";T1;" < Y < ";T2 :S$:: I1N "INPUT X("I"), Y("I")"; ": ";X(I),Y(I) I1520 J1I1:X(J)X(I)520,ND" "TO INPUT?";- "" INPUT N = ";N:? ,N2N10330i 6"SORRY, BUT N MUST BE ONE OF THESE:" @" 3,4,5,6,7,8,9. TRY AGAIN.":290 J TS20:T2 ^"SCALE FACTORS S = "S" AND T = "T" AT LINE" h"340 ENABLE POINTS TO APPEAR THAT M FINDS A POLYNOMIAL L(X)"J "THAT PASSES THROUGH USER-INPUT POINTS.":x "IT IS CALLED A 'LAGRANGE INTERPOLATING" "POLYNOMIAL' AFTER THE FRENCH MATHEMA-" "TICIAN J. L. LAGRANGE (1736-1813)."  "HOW MANY POINTS (3 TO 9) DO YOU INTE8 830: PRINT COEFFICIENTS L(Q) OF POLYNOMIAL L(X)o 910: PREPARE TO GRAPH LAGRANGE POLYNOMIAL L(X) 990: DRAW X,Y AXES 1070: DRAW USER'S POINTS AS SMALL SQUARES 1150: GRAPH LAGRANGE POLYNOMIAL L(X)"  "THIS PROGRA$ I421:I:1:"*";:39:"*":I@ I138:"*";:I:"*":F P 5040f -- ARTICLE TITLE 5:8:"HIGH-RESOLUTION PLOTS OF":8:"TRIGONOMETRIC FUNCTIONS" 8:18:"BY" -- AUTHOR'S NAME 10:3:"MARVIN E. STICK & MICHAEL J. STIC A Z$ x ~:22:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$ Y$"Y"ĉ:::10 : D$(4):D$"RUN SYSTEM MENU" : 5090  : :I13:I:J138:"*";:J:"*":I 5000:7 PROGRAM TO DRAW A THREE LEAVED ROSEN BY MICHAEL STICKWL90](c2j<7F GENERATE ONE REVOLUTION FOR X,Y POINTSPA03.14.02ZRL(3A)dX115R(A):Y95R(A)nA0FX:GYxF,GX,Y FX:GY    x:10=}"****************************************":l"REMOVE THE DISKETTE FROM THE DISK DRIVE":" AND TURN THE COMPUTER OFF !!!!!!":"****************************************" 186, 70."$'3200:1800"$*3100$+"BEST (BASIC EDUCATIONAL SKILLS TUTOR)":" INSTRUCTIONAL MODULE: GEOMETRY, ":" APPLE II+, IIE, IIC, DISK (CAN BE":" USED ON A NETWORK FOR AN ADDITIONAL":" FEE). DEC. 1985, 713."(% +"GEOMETRY WITH LOGO, APPLE APPLE II ":" FAMILY. JAN. 1986, 68."#$'"PRIME NUMBERS, APPLE II FAMILY, 48K, ":" (AVAILABLE IBM PC, PCJR). JAN. 1986,":" 68-69."$.'"WHAT'S MY LOGIC?, APPLE II FAMILY, ":" 48K, DOS 3.3 (AVAIL. COMMODORE 64,":" COLOR VERSION ONLY). JAN. 19AL SYNTAX POSTERS, SET OF 18 ":" POSTERS. MAY 1986, 393.""Z#"SUPERCALC 3, IBM PC APPRENTICE SERIES,":" IBM PC, IBM PC/XT, IBM PORTABLE PC,":" 128K, DOS 1.1 OR HIGHER. FEB. 1986,":" 148-49.""#3200:1800"'3100'#'"MATH ANXIETY REDUCTION,S":3:"ESTIMATION OF PI.">16:4:"FOR DETAILS, CONSULT:"`8:"THE MATHEMATICS TEACHER"w14:"MARCH, 1986"16:"PAGE 213"5210dT5040z5:3--ENTER SHORT DESCRIPTION"THIS ARTICLE MAKES REFERENCE TO A ":3:"PROGRAM BY RONALD J. CARLSON ":3:"WHICH APPEARED ON PAGE 640 ":3:"OF THE MATHEATICS TEACHER":3:"(NOVEMBER, 1981)."3::3:"THE PROGRAM USES DE BUFFON'NTER VOL. NO.+11:"VOLUME 79 NUMBER 3"I11:"(C) COPYRIGHT 1986"Q23[(5210u--- GO TO DESCRIPTION.60002<:23F5210:I421:I:2:J237:" ";:J:" ":IPZ24:7:"PRESS ANY KEY TO CONTINUE. ";:R$xp138:"*";:I:"*":%5040;-- ARTICLE TITLEy5:8:"USING A MICROCOMPUTER TO":11:"TEACH STATISTICS"7:18:"BY"-- AUTHOR'S NAME9:12:"TERRY GOODMAN"14:17:"FROM"16:8:"THE MATHEMATICS TEACHER" ---ESH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$c Y$"Y"ĉ:::10k : D$(4):D$"RUN SYSTEM MENU" : 5090  : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":IID COUNTING VERTICAL NEEDLES WITH THE END POINTS ON THE HORIZONTAL LINESl |Y10(Y10)Y110(Y110)400 (Y10)(Y110)HITHIT1 Z 21 "PI ESTIMATE =";2TRIALHIT "PRESS RETURN TO CONTINUE: ";R$: :M ~22:"DO YOU WIE SUCH THAT 0<=ANGLE<1000. "X1X10(ANGLE)[ , SCALE CHANGED TO 10 FOR GRAPHIC SCREENp 6Y1Y10(ANGLE) @X10X1279360 JY10Y1159360 TX,YX1,Y1 ^ SPECIAL CASE OF HORIZONTAL INCIDENCE hYY1(Y10)Y10HITHIT1G r AVOINTAL LINES AT INTERVALS OF 10 UNITS2 0,Y279,Y9 YC HIT0J 3Y Z1TRIALt ON APPLE 0<=RND(A)<1 X((Z)280) X AND Y ARE POINTS CHOSEN AT RANDOM ON THE GRID Y((Z)160) ANGLE(Z)1000  ANGLE HAS A RANDOM VALUUNIT APART AND": F"DROPPING NEEDLES IN THE LINED PAPER"j P"RECORDING THE NUMBER OF HITS AND MISSES."p Z d"PI=2*(# OF NEEDLES)/(# OF HITS)" n x"HOW MANY NEEDLES DO YOU WISH TO DROP?";TRIAL 2 Y015910# HORIZO 5000:: PLYMOUTH CANTON H.S. PROGRAMMING CLASSc COUNT DE BUFFON'S ESTIMATION OF PI"THIS IS A COMPUTER SIMULATION OF COUNT"("DE BUFFON'S NEEDLE DROP ESTIMATION OF"2"PI. PI CAN BE ESTIMATED BY DRAWING" <"PARALLEL LINES 1 3::3:"WHERE L IS THE LENGTH OF ONE LEAF."P 16:4:"FOR DETAILS, CONSULT:"r 8:"THE MATHEMATICS TEACHER" 13:"NOVEMBER, 1985" 16:"PAGE 633" 5210 dL" ":I P; Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$A xK p5040U z5:3s -ENTER SHORT DESCRIPTION "PROGRAM TO GRAPH THREE-LEAVED ROSE":3:"ON A POLAR COORDINATE SYSTEM.":3:"THE EQUATION GRAPHED IS:":3::10:"R=L*COS(3*A),", K" 14:17:"FROM"< 16:8:"THE MATHEMATICS TEACHER"S ---ENTER VOL. NO.q 11:"VOLUME 78 NUMBER 8" 11:"(C) COPYRIGHT 1985" 23 (5210 --- GO TO DESCRIPTION .6000 2 <:23 F5210:I421:I:2:J237:" ";:J:MıT (P$)0KM1ī2750' P(P)T P1PMD$(4):2250:D$"RUN ";N$(P) 22:"INCORRECT RESPONSE -TRY AGAIN":"PRESS RETURN TO CONTINUE: ";X$:KK15:XD$(4)::10:8:"LOADING COURSEWARE INDEX"bD$"RUN MT-INDEX"@.3. MAR.":" 1986, 221, 223.".r3200:18008(#31002#"COMAL: THE AMAZING ADVENTURES OF CAP-":" TAIN COMAL, BOOK 2: COMAL FROM ":" A TO Z; BOOK 3: THE COMAL LIBRARY OF"# 3#" FUNCTIONS AND PROCEDURES, COMMODORE":" 64, DISKS, THE COMAL HANDBKBOOK, APPLE II+, IIE, DOS":" 3.3, 64K RAM. OCT. 1985, 565."T"EPIC: EXPLORARTION PROGRAMS IN CALC-":" ULUS, IBM PC, 64K. FEB. 1986, 148."^"TECMATH: PRECALCULUS AND CALCULUS":" GRAPHING AND TUTORIAL PROGRAMS,":" APPLE II FAMILY, 48K. DOS 3IE,":" IIC, 48K, DISK (AVAILABLE COMMODORE":" 64; PET, 32K, CASSETTE AND DISK - THE":" COST FOR APPLE OR CORVUS NETWORKS IS":" 3 TIMES LIST PRICE). OCT. 1985, 566."3200:1800@3100>J"COMPUCALC PROGRAM DISKETTE AND COMPU-":" CALC WOR1."*"THE KING'S RULE: MATHEMATICS AND DIS-":" COVERY, COMMODORE 64, DISK (AVAIL-":" ABLE APPLE II, TRS-80). OCT. 1985,":" 656-66."4"MATHWARE BASIC MATH SYSTEM S, APPLE ":" II FAMILY. JAN. 1986, 68.">"ORDER OF OPERATIONS, APPLE II+, I00MAPPLE":" II, II+, IIE, IIC, 48K, DOS 3.3":" (LICENSE FEES FOR NETWORKS ON":" REQUEST). OCT. 1985, 566."'6"PUZZLE MASTER, TRS-80, MODEL III, 4,":" 48K. JAN. 1986, 69."'63200:1800M-80, MODEL III, 4,":" 48K. JAN. 1986, 69."(63200:18GONOMETRY, DISKETTE 3: TRIG- ":" ONOMETRIC GRAPHING, APPLE II FAMILY.":" JAN. 1986, 70."n&23200:1800x&63100&6"EASYSEARCH: RESOURCES IN A NUTSHELL, ":" APPLE II, 64K, DISKS. DEC. 1985,":" 714-15."m'6"MATHEMATICS WORKSHEET GENERATOR, II FAMILY, ":" 48K. APR. 1986, 301."_%+"TRIANGLES, APPLE, DISK. NOV. 1985,":" 644-45."o%+3200:1800y%.3100%."STAT1 AND STAT2, IBM PCJR. APR. 1986, ":" 301-302."%/3200:1800%23100^&2"WEPCO ELECTRONIC STUDY GUIDE FOR ":" TRIM TO FORM CONCENTRIC CIRCLES":3:"WITH CONGRUENT CHORDS."^ 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 13:"NOVEMBER, 1985" 16:"PAGE 634" 5210 dRCOPYRIGHT 1985" 23! (5210; --- GO TO DESCRIPTIONE .6000K 2U <:23 F5210:I421:I:2:J237:" ";:J:" ":I P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z5:3 -ENTER SHORT DESCRIPTION: "PROGRAON PLOTS OF":8:"TRIGONOMETRIC FUNCTIONS"; 8:18:"BY"Q -- AUTHOR'S NAME 10:3:"MARVIN E. STICK & MICHAEL J. STICK" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 78 NUMBER 8" 11:"(C) "Y"ĉ:::10 :7 D$(4):D$"RUN SYSTEM MENU"? :I 5090O W : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE* 5:8:"HIGH-RESOLUTIY TH) GENERATE CONGRUENT CHORDS< TH11900100G ATHDd X140R(A):Y95R(A)u TH1.1ēX,Y X,Y TH ,Z$ 6 ~:22:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$ Y$ 5000:7 PROGRAM TO FORM CONCENTRIC CIRCLES d WITH CONGRUENT CHORDS BY MICHAEL STICKtD.01745329}(R902<F7P PLOT THE LARGER CIRCLEZTH13612dATHDnX140R(A):Y95R(A)xTH1.1ēX,Y X,     LITY & STATISTICS"3 8:"9. RETURN TO MAIN MENU"d 22:"ENTER THE DESIRED NUMBER: ";R$:R(R$) R9010,9020,9030,9040,9050,9060,9070,9080,110& 81000 24505 4:3:"TOPIC: ";MX$: 5:8:K1M:T3D K10T2N T:K;". ";A$(K) 245075:3:"WHICH TOPIC DO YOU WISH TO EXAMINE?"R7:8:"1. ARITHMETIC"g8:"2. ALGEBRA"8:"3. ANALYTIC GEOM./TRIG."8:"4. APPLICATIONS"8:"5. GEOMETRY"8:"6. NUMBER THEORY"8:"7. PREALGEBRA"8:"8. PROBABITER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$A Y$"Y"ĉ:::10I :j D$(4):D$"RUN SYSTEM MENU"r :| 5090  : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5(A))3 A0FX:GY% F,GX,Y1 FX:GY8 AX DRAW CIRCUMSCRIBED CIRCLEf TH1361q ATHD X140L(A) Y95L(A) TH2ēX,Y X,Y TH T ,Z$ 6+ ~:22:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"EN 5000:6 PROGRAM TO DRAW INSCRIBED ASTROIDSLBY MICHAEL STICKbD.01745329:L180k(R90q2x<7F DRAW INSCRIBED ASTROIDSPT13ZLL2d FOUR CUSPS OF THE ASTROIDnA06.28.01xX140L((A))3 Y95L( D$(4), PMİ2250:D$;"RUN SYSTEM MENU" 22:"INCORRECT RESPONSE -TRY AGAIN":"PRESS RETURN TO CONTINUE: ";X$:KK15:  :"SUBJECT: ";N$(P) 0 D "REVIEW TITLE, ISSUE & PAGE NUMBER" N "-------------------------------------" AT COMPLETES THE MENU."::"NO SELECTION MADE":23:"PRESS RETURN TO CONTINUE";X$:: 22:"ENTER THE DESIRED NUMBER, OR":"PRESS RETURN FOR THE NEXT SCREEN: ";P$:P(P$) " (P$)0KMı T (P$)0KM1ī2750 P(P) P1PM14000 ." F . :10:5:"INCORRECT ENTRY - TRY AGAIN":J11500:J:240P ::y :I13:I:J038:"*";:J:"*":: :I420:I:1:"*";:40:"*":I ( 21::I038:"*";:I:"*": Z 2:7:" MT COURSEWARE REVIEW INDEX " U :10:"THPROCESSING", N$(11)"RETURN TO MAIN MENU"5 M11? 2450T :5:8:K1M:T3c lK10T2x T:K;". ";N$(K) K15(K15)İ2800::2450:5 K 42800 f1800  :10:8:"LOADING THE PROGRAM INTO":9:"THE COMPUTER'S MEMORY d:N$(50):M=25)N$(1)"ALGEBRA"BN$(2)"APPLICATIONS"YN$(3)"ARITHMETIC"n,N$(4)"CALCULUS"EN$(5)"COMPUTER SCIENCE"JN$(6)"GAMES AND PUZZLES"^N$(7)"GEOMETRY"N$(8)"STATISTICS"N$(9)"TRIGONOMETRY" N$(10)"WORD 0:I421:I:2:J237:" ";:J:" ":I.P]Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$cxmp5040wz5:3-ENTER SHORT DESCRIPTION"PROGRAM FINDS A POLYNOMIAL THAT":3:"PASSES THROUGH USER-DEFINED POINTS.":3:"DETAILS ARE IN THE P NAME$9:11:"CLARK KIMBERLING"814:17:"FROM"^16:8:"THE MATHEMATICS TEACHER"u---ENTER VOL. NO.11:"VOLUME 79 NUMBER 5"11:"(C) COPYRIGHT 1986"23(5210--- GO TO DESCRIPTION.60002<:23(F521SYSTEM MENU":5090$,:U:I13:I:J138:"*";:J:"*":IyI421:I:1:"*";:39:"*":II138:"*";:I:"*":5040-- ARTICLE TITLE5:10:"LAGRANGE POLYNOMIALS"7:18:"BY"-- AUTHOR'S1300&V10V20V2191V10:1300<V10V11911300RV20V21911300c U,V1UW,V2jU~22:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$Y$"Y"ĉ::::40: D$(4):D$"RUN   "~p>?p`|~x>`8p@ ~>xx>p240Un#MX$"PREALGEBRA":A$(1)N$(1):A$(2)N$(14):A$(3)N$(23):A$(4)N$(36):M3:8240x#MX$"PROBABILITY & STATISTICS":A$(1)N$(5):A$(2)N$(6):A$(3)N$(20):A$(4)N$(29):A$(5)N$(30):M5:8240y$(9)N$(35):M9:8240Fh4040240CATIONS":A$(1)N$(1):A$(2)N$(2):A$(3)N$(3):A$(4)N$(4):M4:8240Z#MX$"GEOMETRY":A$(1)N$(10):A$(2)N$(11):A$(3)N$(24):M3:8240d#MX$"NUMBER THEORY":A$(1)N$(14):A$(2)N$(21):A$(3)N$(22):A$(4)N$(23):A$(5)N$(34):A$(6)N$(35):A$(7)N$(36):M7:89)N$(19):A$(10)N$(22):A$(11)N$(25)>#A$(12)N$(26):A$(13)N$(27):A$(14)N$(28):A$(15)N$(31):A$(16)N$(32):A$(17)N$(33):M17:8240F#MX$"ANALYTIC GEOM./TRIG.":A$(1)N$(9):A$(2)N$(10):A$(3)N$(11):A$(4)N$(25):A$(5)N$(33):M5:8240BP#MX$"APPLIRY AGAIN":"PRESS RETURN TO CONTINUE: ";X$:KK15:2#MX$"ARITHMETIC":A$(1)N$(14):A$(2)N$(21):A$(3)N$(34):M3:8240<#MX$"ALGEBRA":A$(1)N$(7):A$(2)N$(8):A$(3)N$(12):A$(4)N$(13):A$(5)N$(15)%=#A$(6)N$(16):A$(7)N$(17):A$(8)N$(18):A$("R$"Y"ıD"110l`"22:"ENTER THE DESIRED NUMBER, OR":"PRESS RETURN FOR THE NEXT SCREEN: ";P$:P(P$)|y"PM18100"(P$)0KMı"(P$)0KM1ī8750"P(P)#P1PMD$(4):2250:D$"RUN ";A$(P): #22:"INCORRECT RESPONSE -TX K15(K15)İ2800::2450:5'b K:g 3:M110Ė2^h M1;". RETURN TO SUBJECT MENU"hl 8800rv 8240.":10:"THAT COMPLETES THE MENU."::"NO SELECTION MADE"8"23:"DO YOU WISH TO RETURN TO THE TOPIC MENU?":"ENTER 'Y' OR 'N': ";R$ B   0 :* D$(4):D$"RUN SYSTEM MENU"2 :< 5090B J :s :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE 5:5:"EXPLORING NUMBER THEORY WI B IS AN INTEGER! 2B(B)100H 7 TO SEE IF B IS NOT LARGER THAN 9W <9B0100d FM10ABq PN10BC~ ZM;"/";N dC nA ~:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$ Y$"Y"ĉ:::1 5000:c PROGRAM FOR FINDING CASES OF IMPROPER CANCELLATION THAT GIVE THE CORRECT ANSWERn A19yC19 TO AVOID CASES IN WHICH A=C (WHICH WOULD BE TRIVIAL SOLUTIONS SUCH AS 44/44)AC100(B(9AC)(10AC) - TO SEE IF     z5:3& -ENTER SHORT DESCRIPTIONQ "PROGRAM TO DRAW INSCRIBED ASTROIDS."u 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 13:"NOVEMBER, 1985" 16:"PAGE 635" 5210 dIL. NO.$ 11:"VOLUME 78 NUMBER 8"B 11:"(C) COPYRIGHT 1985"J 23T (5210n --- GO TO DESCRIPTIONx .6000~ 2 <:23 F5210:I421:I:2:J237:" ";:J:" ":I P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040040 -- ARTICLE TITLE] 5:8:"HIGH-RESOLUTION PLOTS OF":8:"TRIGONOMETRIC FUNCTIONS"n 8:18:"BY" -- AUTHOR'S NAME 10:3:"MARVIN E. STICK & MICHAEL J. STICK" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VO":" TRS-80 MODEL III). JAN. 1986, 70-71."5F3200?1800Ip3100z"CURRICULUM COMPARER, APPLE II FAMILY, ":" 48K. JAN. 1986, 67-68.""MATHEMATICS ACTIVITIES COURSEWARE, ":" LEVELS 7 AND 8, APPLE II":" FAMILY, 48K, (AVAILABLE IBM ING AND TUTORIAL PROGRAMS, APPLE II":" FAMILY, 48K, DOS 3.3, MAR. 1986,":" 221, 223.""TOPICS IN ALGEBRA, IBM PC, 160K, APR."" 1986, 67-68."3200:3100+"WORD PROBLEMS IN ALGEBRA, APPLE II":" FAMILY, 48K (AVAILABLE IBM PC, 64K;644.)"v"SUPERPLOT: FUNCTION GRAPHING PROGRAM,":" APPLE II FAMILY, 64K, DOS 3.3 OR":" PRODOS. APR. 1986, 302.""TK!SOLVER, IBM PC/XT/AT, MS-DOS, APPLE":" II FAM., MACINTOSH. JAN. 1986, 69-70."["TECMATH: PRECALCULUS & CALCULUS GRAPH-":", IIC, 48K (AVAILABLE IBM).":" DEC. 1985, 715."A3200:3100"MATH UTILITIES: CURVES, DIFFS, & SURFS,":" IBM PC, 128K, IBM COLOR GRAPHICS"" ADAPTER NEEDED, DISK (NETWORK PRICING":" AND SPECIAL PCJR VERSIONS AVAILABLE).":" NOV. 1985, 64K, DISK (AVAILABLE COMMODORE 64;":" IBM PC OR PCJR). NOV. 1985, 643-44.""INTERACTIVE LESSONS: SET 2 -- ALGEBRA,":" APPLE II FAMILY, MAR. 1986, 221"1"MATHLAB I: ALGEBRA & TRIGONOMETRY,":" APPLE II (WITH LANGUAGE CARD), APPLE":" II+, IIE3200:3100^"BALANCE, APPLE II FAMILY (AVAILABLE":" COMMODORE 64). MAY 1986, 392.""CALCU-PLOT: THE EQUATION SOLVER":" AND PLOTTER FOR THE APPLE II/IIE,":" 48K, DISK. OCT. 1985, 564-65."L"EASY GRAPH, APPLE II, IIC, IIE, II+,":" 3 (AVAILABLE":" IBM PC, XT, PCJR, OR MOST PC":" COMPATIBLES). NOV. 1985, 642.""ALGEBRA PLUS, IBM PC, PCJR, 64K, DOS ":" 1.0, 1.1, 2.0, OR 2.1; BASICA":" REQUIRED. JAN. 1986, 67.""ALGEBRA WORD PROBLEMS, APPLE, DISK,":" OCT. 1985, 564."":" APPLE II FAMILY, 48K. MAY 1986, 392.""ALGEBRA I, VOLUME I: SETS AND NOTATION,":" IBM PC, PCJR, 128K (AVAILABLE APPLE, "" COMMODORE 64, & ATARI). JAN.1986, 67."R"ALGEBRA PAK: ALGEBRA I AND ALGEBRA II,":" APPLE II, II+, IIE, DOS3.X . 23:"PRESS ANY KEY TO CONTINUE ";:Z$4 r P5000,6000,7000,8000,9000,10000,11000,12000,13000,14000 "ERROR": 3100+"ALGEBRA COACH:#1-- MULTIPLYING AND":" FACTORING BINOMIALS, #2 -- INTRO-":" DUCTION TO QUADRATIC EQUATIONS,ROGRAM.",16:4:"FOR DETAILS, CONSULT:"N8:"THE MATHEMATICS TEACHER"c15:"MAY, 1986"w16:"PAGE 370"5210dI. Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$4 x> p5040H z5:3f -ENTER SHORT DESCRIPTION "PROGRAM TO FIND SOLUTIONS OF THE":3:"DIOPHANTINE EQUATION:":3: 8:"X^2 + Y^2 = Z^3." 3::3:"ALL PAIRS OF SQUARES WHOSE SUM IS":3:7:"FROM"/ 16:8:"THE MATHEMATICS TEACHER"F ---ENTER VOL. NO.d 11:"VOLUME 78 NUMBER 9" 11:"(C) COPYRIGHT 1985" 23 (5210 --- GO TO DESCRIPTION .6000 2 <:23 F5210:I421:I:2:J237:" ";:J:" ":I P:"*";:I:"*":  50406 -- ARTICLE TITLE 5:2:"HOW TO SOLVE THE DIOPHANTINE EQUATION":3:"EQUATION X ^ 2 + Y ^ 2 = Z ^ 3 WITH":7:"ONLY ONE LITERAL SYMBOL" 9:18:"BY" -- AUTHOR'S NAME 11:12:"PETER FLUSSER" 14:1 RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$^ Y$"Y"ĉ:::10f : D$(4):D$"RUN SYSTEM MENU" : 5090  : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138 5000: dW0'nZ1203xMZZZ>X0MNNZZZXX]NM2220wY(10000(N))10000Y(Y).00001210WW1"(";X;",";Y;",";Z;") ";UW3:V(U)UVĺXZH ~22:"DO YOU WISH TO    R)":" INSTRUCTIONAL MODULE: GRAPHS AND":" CHARTS, APPLE II+, IIE, IIC, DISK"m" (CAN BE USED ON A NETWORK FOR AN ":" ADDITIONAL FEE). DEC. 1985, 713."q3200:3100Sv"BEST (BASIC EDUCATIONAL SKILLS TUTOR)":" INSTRUCTIONAL MODULE: OPERATIST (BASIC EDUCATIONAL SKILLS TUTOR)":" INSTRUCTIONAL MODULE: COMPARATIVE":" AND DESCRIPTIVE TERMS, APPLE II+,"h" IIE, IIC, DISK (CAN BE USED ON":" A NETWORK FOR AN ADDITIONAL FEE).":" DEC. 1985, 712."Pl"BEST (BASIC EDUCATIONAL SKILLS TUTO     PC).":" MAY 1986, 392-93."y"PROPORTIONS AND PERCENTS, APPLE II ":" FAMILY, 48K, DOS 3.3. MAY 1986,":" 393-94."~32001800X3100b"ALGEBRA-64 SKILL BUILDERS FOR THE":" COMMODORE-64 COMPUTER, DISK. NOV.":" 1985, 642."rg"BE":3:"(NOVEMBER, 1981)."]3::3:"THE PROGRAM USES DE BUFFON'S":3:"ESTIMATION OF PI."16:4:"FOR DETAILS, CONSULT:"8:"THE MATHEMATICS TEACHER"14:"MARCH, 1986"16:"PAGE 212"5210dI:I P8 Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$> xH p5040R z5:3p -ENTER SHORT DESCRIPTION"THIS ARTICLE MAKES REFERENCE TO A ":3:"PROGRAM BY RONALD J. CARLSON ":3:"WHICH APPEARED ON PAGE 639 ":3:"OF THE MATHEATICS TEACHER 14:17:"FROM"9 16:8:"THE MATHEMATICS TEACHER"P ---ENTER VOL. NO.n 11:"VOLUME 79 NUMBER 3" 11:"(C) COPYRIGHT 1986" 23 (5210 --- GO TO DESCRIPTION .6000 2 <:23 F5210:I421:I:2:J237:" ";:J:" "J138:"*";:J:"*":I< I421:I:1:"*";:39:"*":IX I138:"*";:I:"*":^ h 5040~ -- ARTICLE TITLE 5:8:"USING A MICROCOMPUTER TO":11:"TEACH STATISTICS" 7:18:"BY" -- AUTHOR'S NAME 9:12:"TERRY GOODMAN"PIPIP Z/ :"FINAL AVERAGE PI=";PI10 ~22:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$ Y$"Y"ĉ:::10 : D$(4):D$"RUN SYSTEM MENU" : 5090  : :I13:I:, Y1, HAS BEEN CALCULATED< x CALCULATE THE NUMBER OF HITSw THE SPECIAL CASES OF HORIZONTAL AND VERTICAL NEEDLES YY1Y0HITHIT1 Y0Y11170 (Y)(Y1)HITHIT1 X P2TRIALHIT "TRIAL #";Z;15);"PI EST. = ";P  5000:0 DE BUFFON'S ESTIMATION OF PIP"NUMBER OF NEEDLES ";TRIAL\Z110f(HIT0u2X1TRIAL<Y(X)F Y IS A RANDOM COORDINATEPANGLE(Z)1000Z 0<=ANGLE<1000(IN RADIANS)dY1Y(ANGLE) n THE SECOND END POINT  OPER CANCELLATION THAT":3:"GIVE THE CORRECT ANSWER. EXAMPLE:":6:"(10A + B)/(10B + C) = A/C" 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 13:"FEBRUARY, 1986" 16:"PAGE 121" 5210 d  --- GO TO DESCRIPTION$ .6000* 24 <:23e F5210:I421:I:2:J237:" ";:J:" ":Ik P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z5:3 -ENTER SHORT DESCRIPTION_ "PROGRAM FOR FINDING CASES OF":3:"IMPRTH A":13:"MICROCOMPUTER"+ 8:18:"BY"A -- AUTHOR'S NAMEa 10:11:"FREDERIC FISCHER"u 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 79 NUMBER 2" 11:"(C) COPYRIGHT 1986" 23 (5210"A CUBE."- 16:4:"FOR DETAILS, CONSULT:"O 8:"THE MATHEMATICS TEACHER"i 13:"DECEMBER, 1985"} 16:"PAGE 709" 5210 dI OOK, 2ND":" ED., NOV. 1985, 642." <#"INTRODUCTION TO MICROPASCAL: APPLE":" PASCAL FILER AND EDITOR, DISK AND":" PHOTOCOPY MASTERS (AVAILABLE FOR ":" COMMODORE 64/PET, IBM PC/PCJR AND ":" TRS-80 MODELS III/4). MAY 1986, 393."!F#"MICROPASCAL .3. MAR.":" 1986, 221, 223.".r3200:18008(#31002#"COMAL: THE AMAZING ADVENTURES OF CAP-":" TAIN COMAL, BOOK 2: COMAL FROM ":" A TO Z; BOOK 3: THE COMAL LIBRARY OF"# 3#" FUNCTIONS AND PROCEDURES, COMMODORE":" 64, DISKS, THE COMAL HANDBKBOOK, APPLE II+, IIE, DOS":" 3.3, 64K RAM. OCT. 1985, 565."T"EPIC: EXPLORARTION PROGRAMS IN CALC-":" ULUS, IBM PC, 64K. FEB. 1986, 148."^"TECMATH: PRECALCULUS AND CALCULUS":" GRAPHING AND TUTORIAL PROGRAMS,":" APPLE II FAMILY, 48K. DOS 3IE,":" IIC, 48K, DISK (AVAILABLE COMMODORE":" 64; PET, 32K, CASSETTE AND DISK - THE":" COST FOR APPLE OR CORVUS NETWORKS IS":" 3 TIMES LIST PRICE). OCT. 1985, 566."3200:1800@3100>J"COMPUCALC PROGRAM DISKETTE AND COMPU-":" CALC WOR1."*"THE KING'S RULE: MATHEMATICS AND DIS-":" COVERY, COMMODORE 64, DISK (AVAIL-":" ABLE APPLE II, TRS-80). OCT. 1985,":" 656-66."4"MATHWARE BASIC MATH SYSTEM S, APPLE ":" II FAMILY. JAN. 1986, 68.">"ORDER OF OPERATIONS, APPLE II+, IDOS 3.3, DISKS (AVAILABLE TRS-80":" MODEL III, 48K). OCT. 1985, 565."W3200:3100"INTEGER ARCADE, APPLE II FAMILY, 48K.":" APR. 1986, 301." "INTERACTIVE LESSONS: SET 1 -- ARITH-":" METIC AND ALGEBRA, APPLE II FAMILY.":" MAR. 1986, 22 AVAILABLE APPLE":" II+, IIE, IIC; TRS-80, MODELS":" III/4). NOV. 1985, 642-43.""GALAXY MATH FACTS GAME I. GALAXY MATH":" GAMES: PLACE VALUE; FRACTIONS I;":" FRACTIONS II; INTEGERS; DECIMALS;":" AND ESTIMATING AND ROUNDING, APPLE,"G" ONS":" AND PROCESSES, WHOLE NUMBER DIVISION":" AND EXPONENTS AND ROOTS, APPLE "w" II+, IIE, IIC, DISK (CAN BE USED ON":" A NETWORK FOR AN ADDITIONAL FEE).":" DEC. 1985, 714."T"DECIMALS: ADDITION AND SUBTRACTION,":" COMMODORE 64, DISK ( THEMATICS TEACHER", 13:"DECEMBER, 1985"@ 16:"PAGE 709"J 5210P d z5:3& -ENTER SHORT DESCRIPTIONr "PROGRAM TO FIND ALL CUBES THAT ARE":3:"THE SUM OF TWO SQUARES":3: 8:"X^2 + Y^2 = Z^3." 3::3:"ALL PAIRS OF SQUARES WHOSE SUM IS":3:"A CUBE." 16:4:"FOR DETAILS, CONSULT:" 8:"THE MAL. NO.$ 11:"VOLUME 78 NUMBER 9"B 11:"(C) COPYRIGHT 1985"J 23T (5210n --- GO TO DESCRIPTIONx .6000~ 2 <:23 F5210:I421:I:2:J237:" ";:J:" ":I P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040:"HOW TO SOLVE THE DIOPHANTINE EQUATION":3:"EQUATION X ^ 2 + Y ^ 2 = Z ^ 3 WITH":7:"ONLY ONE LITERAL SYMBOL" 9:18:"BY" -- AUTHOR'S NAME 11:12:"PETER FLUSSER" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VO:" ";Y$ Y$"Y"ĉ:::10& :G D$(4):D$"RUN SYSTEM MENU"O :Y 5090_ g : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLEq 5:2R 5000: dW0&nC151xB0C?ABBCCIWW1]XAB:YAC:ZA}"(";X;",";Y;",";Z;") ";UW2:V(U)UVĺ: ~22:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";      ""BY Z AND START AGAIN."& ,160D 6:"INPUT 1ST APPROX: ";X @"P,Q = ";P1,Q1e JN2370r TN2560 ^N1680 h:" END OF LIST":700 rPP1:QQ1:N1N1:N2N2:N3N3:T10 |B(1)A(1)P:B(2)A(2)PB(1)Q I3N:B(I)A(I)POEFFICIENT OF Z^"NI;:": ";A(I)8 (A(0)).001240e "LEADING COEFFICIENT A(0) MUST SATISFY" "|A(0)| > .001. TRY AGAIN.":200 I0260 A(I)(1)IA(I)A(0) I:A(0)1 A(N)0310 "ZERO IS A ROOT; DIVIDE YOUR POLYNOMIAL" PS$ Z:? d" EXAMPLE: THE ROOTS OF Z^3 + Z "n n" ARE I, -I, AND 0. "t x A(30),B(30),C(29) E107 T100 "INPUT DEGREE OF YOUR POLYNOMIAL (1 TO" "16): ";:"N = ";N I0N" "CH 5000:0 BAIRSTOW-HITCHCOCK METHOD6gS$" "s(::S$2" THIS PROGRAM FINDS ROOTS OF A USER- "<" CHOSEN POLYNOMIAL HAVING ALL COEF- " F" FICIENTS REAL. "RS":3:"OF THE NUMBERS EQUALS THE NUMBER)."P 16:4:"FOR DETAILS, CONSULT:"r 8:"THE MATHEMATICS TEACHER" 13:"FEBRUARY, 1986" 16:"PAGE 121" 5210 dIN .6000 2 <:23L F5210:I421:I:2:J237:" ";:J:" ":IR P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z5:3 -ENTER SHORT DESCRIPTION, "PROGRAM FOR FINDING PERFECT":3:"NUMBERS (THE SUM OF THE DIVISO" 8:18:"BY"( -- AUTHOR'S NAMEH 10:11:"FREDERIC FISCHER"\ 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 79 NUMBER 2" 11:"(C) COPYRIGHT 1986" 23 (5210 --- GO TO DESCRIPTIO"RUN SYSTEM MENU" :# 5090) 1 :Z :I13:I:J138:"*";:J:"*":I~ I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE 5:5:"EXPLORING NUMBER THEORY WITH A":13:"MICROCOMPUTER OF DIVISORS (S) FSSD! PDW U TO SEE IF THE SUM OF THE DIVISORS OF I EQUALS Ie ZSI110l dIs nI ~:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$ Y$"Y"ĉ:::10 : D$(4):D$ 5000:7 PROGRAM FOR FINDING PERFECT NUMBERSC I699KS1 TO CUT DOWN THE NUMBER OF DIVISORS TO BE CHECKEDJ(I2)(D2J2MID7 TO SEE IF D IS A DIVISOR OF I<M(M)80 A TO ADD THE DIVISOR (D) TO THE SUM FIND NUMBERS THAT CAN BE":3:"WRITTEN AS A SUM OF POWERS OF ITS":3:"DIGITS."~ 3::4:"EXAMPLES: 1^3 + 5^3 + 3^3 = 153 3::5:" 1^4 + 6^4 + 3^4 + 4^4 = 1634" 3::3:"PROGRAM RUNS FOR A LONG TIME!" 16:4:"FOR DETAILS, CONSULT:"RIGHT 1986" 23 (52107 --- GO TO DESCRIPTIONA .6000G 2Q <:23 F5210:I421:I:2:J237:" ";:J:" ":I P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z5:3 -ENTER SHORT DESCRIPTIONP "PROGRAM TO -- ARTICLE TITLE7 5:10:"WHAT IS THE PATTERN?"H 7:18:"BY"^ -- AUTHOR'S NAME~ 9:11:"RICHARD B. DUNCAN" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 79 NUMBER 1" 11:"(C) COPYAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$D Y$"Y"10e D$(4):D$"RUN SYSTEM MENU"m :w 5090}  : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 5000: A(6)"I26:I;" DIGIT NUMBERS"Q(N10(I1)10I1Y2KNa<T0oFJI11PA(J)(K(10(J1)))ZKKA(J)(10(J1))dTTA(J)InJx(T)(N)ĺNNI5 ~:"DO YOU WISH TO RUN THE PROGRAM AG    DEC. 1985,":" 714-15."'6"MATHEMATICS WORKSHEET GENERATOR, APPLE":" II, II+, IIE, IIC, 48K, DOS 3.3":" (LICENSE FEES FOR NETWORKS ON":" REQUEST). OCT. 1985, 566."'6"PUZZLE MASTER, TRS-80, MODEL III, 4,":" 48K. JAN. 1986, 69."(63200:181800&23100&2"WEPCO ELECTRONIC STUDY GUIDE FOR ":" TRIGONOMETRY, DISKETTE 3: TRIG- ":" ONOMETRIC GRAPHING, APPLE II FAMILY.":" JAN. 1986, 70."&23200:1800&63100'6"EASYSEARCH: RESOURCES IN A NUTSHELL, ":" APPLE II, 64K, DISKS. ONAL":" FEE). DEC. 1985, 713."h% +"GEOMETRY WITH LOGO, APPLE II FAMILY, ":" 48K. APR. 1986, 301."%+"TRIANGLES, APPLE, DISK. NOV. 1985,":" 644-45."%+3200:1800%.3100%."STAT1 AND STAT2, IBM PCJR. APR. 1986, ":" 301-302."&/3200: MODEL III, DISKS":" (AVAIL. ATARI, NO. 1162-BC).":" MAY 1985, 392."X$'3200:1800b$*3100 %+"BEST (BASIC EDUCATIONAL SKILLS TUTOR)":" INSTRUCTIONAL MODULE: GEOMETRY, ":" APPLE II+, IIE, IIC, DISK (CAN BE":" USED ON A NETWORK FOR AN ADDITI FAMILY, 48K, ":" (AVAILABLE IBM PC, PCJR). JAN. 1986,":" 68-69."#.'"WHAT'S MY LOGIC?, APPLE II FAMILY, ":" 48K, DOS 3.3 (AVAIL. COMMODORE 64,":" COLOR VERSION ONLY). JAN. 1986, 70."H$~'"TARGETS: A NUMBER GAME, TRS-80, NO.":" 1235-BC, 48K,AL SYNTAX POSTERS, SET OF 18 ":" POSTERS. MAY 1986, 393.""Z#"SUPERCALC 3, IBM PC APPRENTICE SERIES,":" IBM PC, IBM PC/XT, IBM PORTABLE PC,":" 128K, DOS 1.1 OR HIGHER. FEB. 1986,":" 148-49.""#3200:1800"'3100F#$'"PRIME NUMBERS, APPLE II1: SIMPLE PROGRAMS AND":" LOOPS, PHOTOCOPY MASTERS COMBO. ":" INCLUDES 'LEARNING PASCAL' MASTERS":" AND MICROPASCAL DISKETTE (AVAILABLE"!G#" COMMODORE 64/PET, IBM PC/PCJR, AND":" TRS-80 MODELS III/4). MAY 1986, 393."!O#3200:3100;"P#"PASCCS TEACHER""14:"APRIL, 1986"616:"PAGE 280"@5210Fd' KEY TO CONTINUE. ";:R$x(p50402z5:3P-ENTER SHORT DESCRIPTION"PROGRAM FINDS THE COMPLEX ROOTS OF":3:"ANY USER-DEFINED POLYNOMIAL VIA":3:"THE BAIRSTOW-HITCHCOCK METHOD."16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATI"THE MATHEMATICS TEACHER"0---ENTER VOL. NO.N11:"VOLUME 79 NUMBER 4"l11:"(C) COPYRIGHT 1986"t23~(5210--- GO TO DESCRIPTION.60002<:23F5210:I421:I:2:J237:" ";:J:" ":IPZ24:7:"PRESS ANYI:1:"*";:39:"*":I2I138:"*";:I:"*":8B5040X-- ARTICLE TITLE5:2:"COMPLEX ROOTS: THE BAIRSTOW-HITCHCOCK":16:"METHOD"7:18:"BY"-- AUTHOR'S NAME9:11:"CLARK KIMBERLING"14:17:"FROM"16:8::330 j~:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$Y$"Y"ĉ:::10:D$(4):D$"RUN SYSTEM MENU":5090::I13:I:J138:"*";:J:"*":II421:PQ:D0640!DP0X1P(D)6NP0X1P(D)BXX2QX1Wb:"REAL ROOTS:"pl(X1)" AND "(X2)yv660:"COMPLEX CONJUGATE ROOTS:"P" +- ("(D)")I"NN2:I1N:A(I)B(I):I330:"REAL ROOT: ";A(1)NN1' (D5)Eĺ:"TRY ANOTHER P,Q.":320D S1(B(N1)C(N2)B(N))D5d S2(B(N)C(N2)B(N1)P2)D5 PPS1:QQS2:S(S1)(S2) T1T11 SE570 T1T550 "METHOD FAILS. TRY ANOTHER P,Q.":320 &380 0PA(1):QA(2) :PP2:DPB(I1)QB(I2):I6 C(1)B(1)P:C(2)B(2)PC(1)Qa I3N1:C(I)B(I)PC(I1)QC(I2):I} P2C(N1)B(N1):N3460 D5C(N2)C(N2)P2C(N3) (D5)Eĺ:"TRY ANOTHER P,Q.":320 S1(B(N1)C(N2)B(N)C(N3))D5:490 D5C(N2)C(N2)P2! 8:"THE MATHEMATICS TEACHER": 13:"JANUARY, 1986"N 16:"PAGE 10"| 24:5:"PRESS ANY KEY TO CONTINUE.";:R$ d 5000: *A(12),B(12),C(24)d: LINES 30-130 ACCEPT THE DIGITS OF THE FIRST FACTOR"TYPE THE FIRST FACTOR-":"USE COMMAS TO SEPARATE"(I122N1$"":N2$""<A$FA$;ZA$(13)ĪN1$N1$A$ dA$(13)ĪA(I)(F1$):F !!!!"""""BW)575EB,T(2BW)57:`pN3:TWBEB:5T,5NB5T,5SB::TNBSB:5WB,5T5EB,5T:gN2NT5RNRS5:5RE,T5RW,T:N1200I TEACHER"#13:"FEBRUARY, 1986"716:"PAGE 138"A5210Gdv N ---- PICTURING THE RECTANGLE WITH BORDER|4NHN1:T5WB75WB:T,5NB7T,5SB7:T5(2BL)7,5NB7T(2BL)57,5SB7:\NT5NB75NB:5WB,T5EB,T:5WB,T(2xp5040z5:36-ENTER SHORT DESCRIPTION"PROGRAM TO PRODUCE PATCHWORK QUILT":3:"TYPE PATTERNS ON THE HIGH":3:"RESOLUTION SCREEN. ":3::5:"COLOR MONITOR PREFERRED."16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS---ENTER VOL. NO.411:"VOLUME 79 NUMBER 2"R11:"(C) COPYRIGHT 1986"Z23d(5210~--- GO TO DESCRIPTION.60002<:23F5210:I421:I:2:J237:" ";:J:" ":IPZ24:7:"PRESS ANY KEY TO CONTINUE. ";:R$II138:"*";:I:"*":#-5040C-- ARTICLE TITLE5:9:"REFLECTION BORDERS FOR":12:"PATCHWORK QUILTS"8:18:"BY"-- AUTHOR'S NAME10:12:"DUANE DE TEMPLE"14:17:"FROM"16:8:"THE MATHEMATICS TEACHER"O YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$kY$"Y"ĉ:::10s:D$(4):D$"RUN SYSTEM MENU":5090::I13:I:J138:"*";:J:"*":II421:I:1:"*";:39:"*":"HOW MANY ABOVE THE CORNER? (1 TO ";362B;")";D16368,0:U`IHWB:IKSBU:IV1:IW1j1180 --- FILL IN THE SMALL SQUARES 3:H2,K2H2,K2:H2,K1H2,K1:H2,KH2,K:H2,K1H2,K1:H2,K2H2,K2:X$:U~:22:"D28 L"START ON THE BOTTOM (B)":"OR ON THE LEFT (L)?"D VA$:15U `A$"L"1500 t"HOW MANY SPACES FROM THE CORNER?":" (1 TO ";562B;" ) ":16368,0:U IHWBU:IKSB:IV1:IW1 20020 H5IH2:K5IK3:3020 PHIH:PKIK:903HE SIZES --3 :10:"SIZE OF BORDER (2 TO 9) ";Bj 15:"LENGTH OF RECTANGLE( < ";522B;" )";:" ";L $20:"WIDTH OF RECTANGLE( < ";322B;" )";:" ";W 8:10:NB18BW2:SB18BW2:EB28BL2:WB28BL2:RE28L2:RW28L2:RN18W2:RS18W0 PH.1WBIV1:90L RNPK1.1RSPK1.1RWPH.1PH.1REIW1:90 RNPK.1RSPK.1RWPH.1PH.1REIW1:90 RWPH1.1REPH1.1RNPK.1PK.1RSIV1:90 RWPH.1REPH.1RNPK.1PK.1RSIV1:90 90  -- SELECT T( 15:"THE BORDERS WERE ";B;" WIDE."^ 18:"PRESS Q TO SEE THE COMPLETED QUILT. "::A$ A$"Q"Ĺ16304,0:16299,0:16297,0 "4000 6 -- TEST FOR A BOUNDARY POINT -- JPK1.1NBIW1:90 ^PK.1SBIW1:90 rPH1.1EBIV1:9H2,K2% (PHIH)(PKIK).5330t :3:"NUMBER OF TIMES IT WINDS AROUND ";((CT2)(LW2(B1)).0001);"." 6:"FINISHED WITH ";CT;" MOVES." 9:"LENGTH OF THE INNER RECTANGLE WAS ";L;"." 12:"WIDTH OF THE INNER RECTANGLE WAS ";W;"." 5000:5 -- GENERATING PATCHWORK QUILTS --Q -- GO FETCH INPUTS --[21020F -- CONTROL FOR MAKING PATTERN --ZCTCT1:PHPHIV:PKPKIW:H5PH2:K5PK3 nH2,K2H2,K2:H2,K1H2,K1:H2,KH2,K:H2,K1H2,K1:H2,K2        SSA(J)B(IJ1) J* C(S1000)< C(I)S1000CC I  LINES 490-630 REMOVE POSSIBLE LEADING ZEROES FROM THE PRODUCT AND CONVERT THE OUTPUT TO A FORM FREE FROM BLANKS USING STRING ADDITION J10 I112 KC(13I) K0540 JF1$"" T240 ^P161 hPI112390P rB(P)B(PI1):B(PI1)0W |Pp N1$;" X ";N2$;" = "  LINE 400-800 PERFORM THE MULTIPLICATION AND CARRIES FOR THREE SUCCESSIVE DIGITS OF THE PRODUCT C0 I112 SC J1I INES 220-380 ACCEPT THE DIGITS FROM THE SECOND FACTORn "TYPE THE SECOND FACTOR-":"USE COMMAS TO SEPARATE"w I12 A$:A$; A$(13)ĪN2$N2$A$ A$(13)ĪB(I)(F1$):350 "A$","320 ,F1$F1$A$ 6240 @B(I)(F1$):II11$"":170- i:CHR$(13)IS A CARRIAGE RETURN= nA$","140L xF1$F1$A$T 60k A(I)(F1$):II1v F1$""~ 60 LINES 170-200 ADJUSTS THE LOCATION OF THE DIGITS P16 PI112210 A(P)A(PI1):A(PI1)0 P5 L$16:4:"FOR DETAILS, CONSULT:"F8:"THE MATHEMATICS TEACHER"]15:"MARCH, 1986"q16:"PAGE 196"{5210dIP3Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$9xCp5040Mz5:3k-ENTER SHORT DESCRIPTION"PROGRAM TO ILLUSTRATE THE":3:"TRANSLATION AND DILATION OF ":3:"ABSOLUTE VALUE GRAPHS."3::3:"GENERAL FORM:":17:"Y=A*ABS(X-B) +C14:17:"FROM"416:8:"THE MATHEMATICS TEACHER"K---ENTER VOL. NO.i11:"VOLUME 79 NUMBER 3"11:"(C) COPYRIGHT 1986"23(5210--- GO TO DESCRIPTION.60002<:23F5210:I421:I:2:J237:" ";:J:" ":I9:"*":I%I138:"*";:I:"*":+55040K-- ARTICLE TITLE5:8:"RELATING GRAPHS TO THEIR":5:"EQUATIONS WITH A MICROCOMPUTER"8:18:"BY"-- AUTHOR'S NAME10:11:"JOHN C. BURRILL &":10:"HENRY S. KEPNER, JR.":22:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$sY$"Y"ĉ:::10{:D$(4):D$"RUN SYSTEM MENU":5090::I13:I:J138:"*";:J:"*":I I421:I:1:"*";:320B:Y180A X1,Y1! B:A' 4  PLOT X; 6H T0120] X120T:X1120Th Y80Tv T80790 X,Y X1,Y T A$" "460 A$" "460 *: 4"THIS GRAPH REPRESENTS Y=ABS(X)" >J13500:J: R50]~ :::  PLOTS AXES0 120,0120,160A 0,80240,80R  INCREMENTSe A12012012q &B22 0X120A:Y80B :X,Y DB:A NA0808 XB22 bX1120B:Y180A lX1,Y1 vB:A A0808 B22 X11370 J370 TY0370) ^X,Y:X1,Y0 hT< r:::V |"Y="A"*ABS(X+"B")+"Cg J14000:Js ::: "WOULD YOU LIKE TO CHANGE A,B, OR C AGAIN(Y/N)"; Y$ Y$"Y"450 Y$"N"470 480 700 4990 :3::::21WEEN -9 AND 9. B=";B :::Q "C SHOULD BE CHOSEN BETWEEN -7 AND 7. C=";C] B1B12i ::: "WE WILL NOW PLOT Y="A"*ABS(X+"B")+"C J12000:J ::::3 "T080.5 ,X120B1T:X1120B1T 6Y808C(AT) @(AT)80 n::G x"WOULD YOU LIKE TO CHANGE THE VALUE OF A,B, OR C?(Y/N)";O Y$[ :::k Y$"Y"180{ Y$"N"470 110 ::::: "A MUST BE CHOSEN BETWEEN -0.1 AND -20 OR +0.1 AND +20. A=";A ::: "B SHOULD BE CHOSEN BET 5000:E TRANSLATION AND DILATION OF ABSOLUTE VALUE GRAPHSKT480](7002"A MORE GENERAL EQUATION IS":" Y=A*ABS(X-B)+C"<JL3000:JFJ11000:JP::Z"FOR THIS GRAPH A=1, B=0 AND C=0"dJ13000:J!! ! ! ! ! !!!!!AL SYNTAX POSTERS, SET OF 18 ":" POSTERS. MAY 1986, 393.""Z#"SUPERCALC 3, IBM PC APPRENTICE SERIES,":" IBM PC, IBM PC/XT, IBM PORTABLE PC,":" 128K, DOS 1.1 OR HIGHER. FEB. 1986,":" 148-49.""#3200:1800"'3100'#'"MATH ANXIETY REDUCTION,1: SIMPLE PROGRAMS AND":" LOOPS, PHOTOCOPY MASTERS COMBO. ":" INCLUDES 'LEARNING PASCAL' MASTERS":" AND MICROPASCAL DISKETTE (AVAILABLE"!G#" COMMODORE 64/PET, IBM PC/PCJR, AND":" TRS-80 MODELS III/4). MAY 1986, 393."!O#3200:3100;"P#"PASCOOK, 2ND":" ED., NOV. 1985, 642." <#"INTRODUCTION TO MICROPASCAL: APPLE":" PASCAL FILER AND EDITOR, DISK AND":" PHOTOCOPY MASTERS (AVAILABLE FOR ":" COMMODORE 64/PET, IBM PC/PCJR AND ":" TRS-80 MODELS III/4). MAY 1986, 393."!F#"MICROPASCAL 00M DESCRIPTION_"PROGRAM TO MULTIPLY LARGE INTEGERS.":3:"PRODUCT MAY HAVE UP TO 24 DIGITS."16:4:"FOR DETAILS, CONSULT:"8:"THE MATHEMATICS TEACHER"15:"MAY, 1986"16:"PAGE 375"5210dI NUMBER 5"(11:"(C) COPYRIGHT 1986"023:(5210T--- GO TO DESCRIPTION^.6000d2n<:23F5210:I421:I:2:J237:" ";:J:" ":IPZ24:7:"PRESS ANY KEY TO CONTINUE. ";:R$xp5040z5:3 -ENTER SHORT-- ARTICLE TITLEB5:4:"LARGE INTEGERS WITH SMALL NUMBERS"S7:18:"BY"i-- AUTHOR'S NAME9:3:"EDWARD C. WALLACE & JOSEPH E. CHANCE"14:17:"FROM"16:8:"THE MATHEMATICS TEACHER"---ENTER VOL. NO. 11:"VOLUME 79' OR 'N' THEN PRESS RETURN:";:" ";Y$;Y$"Y"ĉ:::10C:dD$(4):D$"RUN SYSTEM MENU"l:v5090|::I13:I:J138:"*";:J:"*":II421:I:1:"*";:39:"*":II138:"*";:I:"*":5040 J11 J10660& &W(K100)4 :D(1)W48B DKK100WP NW(K10)^ XD(2)W48q bD(3)K10W48} lD(4)32 vA$"" X14:A$A$(D(X)):X A$; A$"" I %~22:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y10 dII"Z 3:"FORM THE FACTORS (X-R)*(X-S).":3::2:"THE PROGRAM UNFACTORS THE POLYNOMIAL." 3:"YOU ENTER THE VALUES OF R AND S." 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 13:"JANUARY, 1986" 16:"PAGE 48" 52:J:" ":I P@ Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$F xP p5040Z z5:3x -ENTER SHORT DESCRIPTION "PROGRAM TO FIND THE COEFFICIENTS OF ":3:"THE QUADRATIC POLYNOMIAL:":10:"X^2 + A*X + B.":3:"YOU ENTER VALUES OF R AND S THATERLING" 14:17:"FROM"A 16:8:"THE MATHEMATICS TEACHER"X ---ENTER VOL. NO.v 11:"VOLUME 79 NUMBER 1" 11:"(C) COPYRIGHT 1986" 23 (5210 --- GO TO DESCRIPTION .6000 2 <:23 F5210:I421:I:2:J237:" "; :4 :I13:I:J138:"*";:J:"*":IX I421:I:1:"*";:39:"*":It I138:"*";:I:"*":z  5040 -- ARTICLE TITLE 5:8:"FACTORING AND UNFACTORING" 7:18:"BY" -- AUTHOR'S NAME 9:11:"CLARK KIMB  5000: "R,S=";R,S(A1RS2BRS<(AA1B-K2A,B~22:"DO YOU WISH TO RUN THE PROGRAM AGAIN?":"ENTER 'Y' OR 'N' THEN PRESS RETURN:";:" ";Y$Y$"Y"ĉ:::10:D$(4):D$"RUN SYSTEM MENU":5090 "" " " " "