' +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- ( % Ϡ@跻~!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`(X$,M%1)2LXLA:I0LX:X%(I)A%(I):A%(I)0:14:958:"ENTER THE NUMBER Y";:B%10ĺ", INSERTING DIGITS BETWEEN DIGITS"; ". ";Y$:B%10Y$" "Y$(Y$,1)" "Y$(Y$,(Y$)1):5140A$Y$:FLAG2:5300:B%10Y$(Y$,M%1)!(LYSE IS TOO SMALL.":I12000:::5040B A%(520),X%(520),Y%(520) 11:958:"ENTER THE NUMBER X ";:B%10ĺ", INSERTING SPACES BETWEEN DIGITS"; ". ";X$:B%10X$" "X$ (X$,1)" "X$(X$,(X$)1):5090 A$X$:FLAG1:5300:B%10X$:"THIS PROGRAM WILL ADD, SUBTRACT, OR MULTIPLY POSITIVE INTEGERS WRITTEN IN A BASE LESS THAN 182." 8:958:"ENTER THE BASE. ";A$:5310:K(A$):K181ĺ::BELL$;"THIS BASE IS TOO LARGE.":I12000:::5040% B%K:B%2ĺ::BELL$"THIS BA K0LX1 J0LY1; A%(KJ)X%(K)Y%(J)A%(KJ) A%(KJ)B%M%A%(KJ)B%:A%(KJ)A%(KJ)M%B%:A%(KJ1)A%(KJ1)M% J,K LALXLY:A%(LXLY1)0LALA1 6000  INTRODUCTION 33,40:: BELL$(7)(7)(7)l 2"TRIANGLE BY SPECIFYING TERMS":3:"WITH THE GENERAL FORM."` 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 13:"DECEMBER, 1983" 16:"PAGE 687" 5210 d"5210 --- GO TO DESCRIPTION* .60000 2: <:23k F5210:I421:I:2:J237:" ";:J:" ":Iq P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z5:3 -ENTER SHORT DESCRIPTION< "PROGRAM TO GENERATE PASCAL'S":3::11:"PASCAL'S TRIANGLE-2", 7:18:"BY"B -- AUTHOR'S NAMEg 9:9:"MARITA ENG & JOHN CASEY"{ 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 76 NUMBER 9" 11:"(C) COPYRIGHT 1983" 23 (D$(4):D$"RUN SYSTEM MENU"" 5 D$" "(P)D D$(D$,4)J R :\ 5090b j : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE 5 5000: N08)202N);1;6N0135AK1NITNU#K170b(Q1K1p2TT(NQ)w<QFD1PR1KZDDRdRnPTDs500xD$;KN:"AGAIN? Y OR N: ";R$R$"Y"ė:10 :TER YOUR INTEGERS."7 16:4:"FOR DETAILS, CONSULT:"Y 8:"THE MATHEMATICS TEACHER"r 13:"OCTOBER, 1983" 15:"PAGE 511" 5210 dI0 F5210:I421:I:2:J237:" ";:J:" ":I6 Pe Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$k xu p5040 z5:3 -ENTER SHORT DESCRIPTION "PROGRAM TO FIND THE GREATEST COMMON":3:"DIVISOR OF ANY PAIR OF INTEGERS.":3::3:"YOU ENAUTHOR'S NAME, 9:11:"CLARK KIMBERLING"@ 14:17:"FROM"f 16:8:"THE MATHEMATICS TEACHER"} ---ENTER VOL. NO. 11:"VOLUME 76 NUMBER 7" 11:"(C) COPYRIGHT 1983" 23 (5210 --- GO TO DESCRIPTION .6000 2 <:23TEM MENU"   :' 5090- 5 :^ :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE 5:10:"GCD OF TWO INTEGERS" 7:18:"BY" --  5000:5"ENTER A PAIR OF INTEGERS A AND B"I "A=";A:"B=";BQJ0YCAaDBr(RAB(AB)~2R090<ABFBRP40Z"GCD OF "C" AND "D" IS "Bd:"ANOTHER PAIR? Y OR N:";R$nR$"Y"ė:6 xD$(4):D$"RUN SYS     16:4:"FOR DETAILS, CONSULT:"A8:"THE MATHEMATICS TEACHER"[13:"FEBRUARY, 1984"n16:"PAGE 93"x5210~dIPROGRAM TO CONVERT AN INPUT DECIMAL":3:"INTEGER TO A BINARY NUMBER.":3::3:"YOU INPUT THE DESIRED NUMBER." 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 12:"NOVEMBER, 1983" 15:"PAGE 599" 5210 d2"(C) COPYRIGHT 1983" 23' (5210A --- GO TO DESCRIPTIONK .6000Q 2[ <:23 F5210:I421:I:2:J237:" ";:J:" ":I P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z5:3 -ENTER SHORT DESCRIPTIONo " 5040" -- ARTICLE TITLEB 5:11:"CONVERT TO BINARY"S 7:18:"BY"i -- AUTHOR'S NAME 9:11:"CLARK KIMBERLING" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 76 NUMBER 8" 11: "BINARY EQUIVALENT: ";A$= :"ANOTHER? Y OR N: ";R$L R$"Y"12m D$(4):D$"RUN SYSTEM MENU"s { : 5090  : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5000:? PROGRAM N CONVERTED TO BASE B, FOR 2<=B<=10E S :D$(99)[J0cB2("NUMBER YOU WISH TO CONVERT N=";N2DNB(NB)<D$(J1)(D)FN(ND)BPJJ1ZN0110d50nI1JxA$D$(I)A$I S. THAT IS:":3::3:"FIND A, B, C SO THAT A^2 + B^2 =C^2"_16:4:"FOR DETAILS, CONSULT:"8:"THE MATHEMATICS TEACHER"14:"MARCH, 1984"16:"PAGE 191"5210dDESCRIPTION.60002%<:23VF5210:I421:I:2:J237:" ";:J:" ":I\PZ24:7:"PRESS ANY KEY TO CONTINUE. ";:R$xp5040z5:3-ENTER SHORT DESCRIPTION;"PROGRAM TO GENERATE PRIMITIVE":3:"PYTHAGOREAN TRIPLEN TRIPLES" 7:18:"BY"1 -- AUTHOR'S NAMER 9:11:"RONALD SZCZEPANSKI"f 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 77 NUMBER 3" 11:"(C) COPYRIGHT 1984" 23 (5210 --- GO TO ė::100* D$(4):D$"RUN SYSTEM MENU"0 8 :B 5090H P :y :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE 5:6:"PRIMITIVE PYTHAGOREAJ1) NE(J)E(J1)$ XF(J)F(J1)1 bF(J1)K> lE(J1)LK vF(J1)MS U1Z Jg U1520p 100 "SOME PRIMITIVE PYTHAGOREAN TRIPLES"  J1N D(J);6);E(J);11);F(J) J 255 :"AGAIN? Y OR N: ";R$ R$"Y"B430 KA AB BK:  STORE TRIPLES IN D,E,FE D(J)AP E(J)B[ F(J)Ce JJ1o NN1v S} R  ORDER TRIPLES BY  BUBBLE SORT U0 J1(N1) D(J)D(J1)650 &KD(J) 0LE(J) :MF(J) DD(J)D( OF R AND S G1R G2S3 G3G1G2(G1G2)A G30320K G1G2U G2G3^ 240s " IF R AND S ARE , RELATIVELY PRIME, 6 THEIR G.C.D. =1 @G21340 J480 TARRSS ^B2RS hCRRSS r ORDER TRIPLES ASR215S114SR490 CHECK PARITY OF R AND S(RS)2((RS)2)480 FIND G.C.D.     (K)A%(K)B%:CARRY%1 K' LALXO A%(LA1)0LA0LALA1:LA12280Y 6000w DETERMINE SIGN OF X%-Y% LYLXSG1: LYLXSG1: KLX101 Y%(K)X%(K)SG1: Y%(K)X%(K)SG1: K SG0:  A%=X%*Y%MINUEND & SUBTRAHEND 3000. SG02200P 4 SWITCH MINUEND & SUBTRAHEND\ >I0LY~ HM%Y%(I):Y%(I)X%(I):X%(I)M% RI \LLY:LYLX:LXL  SUBTRACTION CARRY%0 K0LX1 A%(K)X%(K)Y%(K)CARRY% CARRY%0 A%(K)0A% 9000:d5000& A%=X%+Y%3CARRY%0HLLX:LYLXLLYUK0L1rA%(K)X%(K)Y%(K)CARRY%CARRY%0$A%(K)B%A%(K)A%(K)B%:CARRY%1.K8A%(K)CARRY%BLAL:A%(L)0LALA1L6000 A%=X%-Y%  COMPARE IPTIONF "PROGRAM TO GENERATE PASCAL'S":3:"TRIANGLE RECURSIVELY."j 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 13:"DECEMBER, 1983" 16:"PAGE 687" 5210 dIR 9"" 11:"(C) COPYRIGHT 1983"* 234 (5210N --- GO TO DESCRIPTIONX .6000^ 2h <:23 F5210:I421:I:2:J237:" ";:J:" ":I P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z5:3 -ENTER SHORT DESCR  5040' -- ARTICLE TITLEI 5:11:"PASCAL'S TRIANGLE-1"Z 7:18:"BY"p -- AUTHOR'S NAME 9:9:"MARITA ENG & JOHN CASEY" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 76 NUMBE Y OR N:";R$ R$"Y"Ľ:100@ "D$(4):D$"RUN SYSTEM MENU"F ,R D$(P)c D$" "D$r D$(D$,4)x  : 5090  : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*": 5000:dA8%nP(A1,A2)0xN0A=P(N,1)1NP(N1,N2)1UN`N1AkM1AP(N,M)P(N1,M1)P(N1,M)M,N21);1N1A182N);M1N1PP(N,M)500D$;M::N :"AGAIN?ER SHORT DESCRIPTION "PROGRAM APPROXIMATES THE AREA UNDER ":3:"THE CURVE Y=SIN(X) OVER THE INTERVAL":3:"A TO B BY THE MONTE CARLO METHOD.":3:"YOU ENTER THE VALUES OF A, B AND" 3:"THE NUMBER OF RANDOM POINTS YOU":3:"WISH TO 'THROW'."OLUME 77 NUMBER 2"0 11:"(C) COPYRIGHT 1984"8 23B (5210\ --- GO TO DESCRIPTIONf .6000l 2v <:23 F5210:I421:I:2:J237:" ";:J:" ":I P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z5:3 -ENT"*":  5040+ -- ARTICLE TITLE\ 5:3:"APPROXIMATION OF AREA UNDER A CURVE"m 7:18:"BY" -- AUTHOR'S NAME 9:10:"JAMES M. SCONYERS" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VTHE REGION"( "IS APPROXIMATELY: ";A1C :"AGAIN? Y OR N:";R$U R$"Y"ĺ:10v D$(4):D$"RUN SYSTEM MENU"|  : 5090  : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:F(B) dY1Y2130 nY3Y2( x1403 Y3Y1? I1N2S XA(BA)(1)b YY3(1)t YF(X)190 *** IF Y>=FNF(X) THE POINT IS NOT IN THE REGION N1N11 I A1(N1N2)(BA)Y3 *** (B-A)*Y3=A2 "THE AREA OF  5000 7 "DEFINE THE FUNCTION IN LINE 20"=MF(X)(X)q"WHAT ARE A AND B? NOTE: AL5(U2U1)HU10U10RU1279U1279 ,VU2,VvV:I"V1190RR)3AY1Y(V):Y2Y(VR)YB1BY1D:B2BY2D{D1B1B14A(CY1Y1EY1F)D2B2B24A(CY2Y2EY2F)D10D20950X1(B1(D1))(2A)X2(B1(D1))(2A)U1I(U(X1)):U2I(U(X26,17:Z(5)+"CONSTANT TERM:";:36,17:1K:"PRESS 'RETURN'.";:A$:v&AZ(1):BZ(2):CZ(3):DZ(4):EZ(5):F10:49234,0:3:I1NDVV(Y(I))3V(Y(I))3NV0V191630XU1U(X(I))3:U2U(X(I))3bU10U2279630lU11:I I1N:J1N1 Z(I)Z(I)W(I,J):J,I^ :"THE CONIC THROUGH YOUR 5 POINTS HAS" :"COEF. OF X^2:";:36,17:Z(1) "COEF. OF XY:";:36,17:Z(2) "COEF. OF Y^2:";:36,17:Z(3) "COEF. OF X:";:36,17:Z(4) "COEF. OF Y:";:3ZED TO NEW VALUES:":A ^I1N:"X("I"),Y("I")= "X(I)","Y(I):IL hI1Nc rW(I,I)W(I,I)1:Iy |M1N:PW(M,M)1 J1N:W(M,J)W(M,J)P:J I1N:IM430 QW(I,M):J1N W(I,J)W(I,J)QW(M,J):J I:M I1N:W(I,I)W(I,I)X(I)(1)(2S)) Y(I)Y(I)(1)(2T)> W(I,1)X(I)X(I)S "W(I,2)X(I)Y(I)h ,W(I,3)Y(I)Y(I) 6W(I,4)X(I):W(I,5)Y(I):I: @:"TO AVOID A SINGULAR MATRIX IN THE METH-" J"OD OF SOLUTION, YOUR CHOICES OF X,Y ARE" T"SLIGHTLY RANDOMI" 5,0 5,0 5,0 4,5"C " 0,5 0,5 0,5 5,4"f " -5,0 -5,0 -5,0 2,4" " 0,-5 0,-5 0,-5 4,2" " 4,4 2,2 2,-2 -5,7" :N5:I15 "INPUT POINT #"I": X("I"),Y("I")" " ";X(I),Y(I) X(I) 5 POINTS"( d"WHICH YOU MAY INPUT.":N n"IN ORDER TO SEE YOUR 5 POINTS,"p x"AS WELL AS THE CONIC, KEEP" :" -13 D$(4):D$"RUN SYSTEM MENU"D L :V 5090\ d : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE%5:3:":M(N)M(N)C(N,D)$ |D:M(N)M(N)B? 7N:R(M(N));:N::e :"PRESS 'RETURN' TO CONTINUE.";q Z$:: "AMONG THE 300 DIGITS: " D0B1:"THE TOTAL NUMBER OF "D"'S IS "; N13:T(D)T(D)C(N,D):N:T(D)"." D :"AGAIN? Y OC(N,D)C(N,D)1 J,I2 7N:C(N,D);:N::D@ :"MIN";e "N13:7N:LC(N,0):G(N)C(N,0)r ,D1B1 6C(N,D)LLC(N,D) @C(N,D)G(N)G(N)C(N,D) JD TL;:N::"MAX"; ^N13:7N:G(N);:N h:"MEAN "; rN13:D0B1THE NUMBER OF 0'S"? "IN BATCH 1, THEN THE NUMBER OF 1'S IN"V "BATCH 1, ETC.": "COLUMNS 3 AND 4 WILL LIST NUMBERS" "OF OCCURENCES OF THE "B" DIGITS IN" "BATCHES 2 AND 3.": D0B1:D;:N13 I110:J110 A(N,I,J)D10:A(N,I,J)(B(1))) dA(N,I,J);:J,N4 n:I:Z x:"PRESS 'RETURN' TO CONTINUE.":f Z$:: "THESE 300 DIGITS IN 3 BATCHES OF 100" "WILL NOW BE ANALYZED. COLUMN 1 WILL" "LIST THE DIGITS 0 TO ";B1;".": "COLUMN 2 WILL LIST  5000:2 PROGRAM: EQUIDISTRIBUTION TESTKC(3,100),A(3,10,10)hR(X)(.51000X)1000p(B32"FIRST, 3 BATCHES OF 100 DIGITS, TO BE"<"CHECKED FOR EQUIDISTRIBUTION ARE"F"GENERATED:":PI110:N13:(12N9) ZJ1       210:I421:I:2:J237:" ";:J:" ":I0 P_ Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$e xo p5040y z5:3 -ENTER SHORT DESCRIPTION "GGGGGGGGGGGGGGGGG" 18:4:"FOR DETAILS, CONSULT THE JOURNAL." 5210 dI:11:"CLARK KIMBERLING", 14:17:"FROM"R 16:8:"THE MATHEMATICS TEACHER"i ---ENTER VOL. NO. 11:"VOLUME 77 NUMBER 1" 13:"JANUARY, 1984" 16:"PAGE 43" 23 (5210 --- GO TO DESCRIPTION .6000 2 <:23* F5 :5090!:J:I13:I:J138:"*";:J:"*":InI421:I:1:"*";:39:"*":II138:"*";:I:"*":5040-- ARTICLE TITLE5:10:"PROBABILITY MACHINE"7:18:"BY"-- AUTHOR'S NAME 9  "CLARK KIMBERLING"' 14:17:"FROM"M 16:8:"THE MATHEMATICS TEACHER"d ---ENTER VOL. NO. 11:"VOLUME 76 NUMBER 9" 13:"DECEMBER, 1983" 15:"PAGE 684" 23 (5210 --- GO TO DESCRIPTION .6000 2 <:23' F5210: 5090  :E :I13:I:J138:"*";:J:"*":Ii I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE 5:9:"COLORFUL RANDOM WALK" 7:18:"BY" -- AUTHOR'S NAME 9:11:J$T$9030^$5:38h$-ENTER SHORT DESCRIPTIONQr$"GGGGGGGGGGGGGGGGG"|$18:4:"FOR DETAILS, CONSULT THE JOURNAL."$9280$IR VOL. NO.(#11:"VOLUME 77 NUMBER 1"A#13:"JANUARY, 1984"T#16:"PAGE 43"\#23f#9280$-- GO TO DESCRIPTION$9300$"$:23,$9280:I421:I:2:J237:" ";:J:" ":I6$@$24:7:"PRESS ANY KEY TO CONTINUE. ";:R$dI THE DESIRED INTEGER.": 16:4:"FOR DETAILS, CONSULT:"\ 8:"THE MATHEMATICS TEACHER"w 12:"SEPTEMBER, 1983" 15:"PAGE 435" 5210 dI <:23= F5210:I421:I:2:J237:" ";:J:" ":IC Pr Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$x x p5040 z5:3 -ENTER SHORT DESCRIPTION "PROGRAM TO FIND ALL THE DIVISORS":3:"OF ANY POSITIVE INTEGER.":3:"YOU ENTER"BY" -- AUTHOR'S NAME9 9:11:"CLARK KIMBERLING"M 14:17:"FROM"s 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 76 NUMBER 6" 11:"(C) COPYRIGHT 1983" 23 (5210 --- GO TO DESCRIPTION .6000 2D$(4):D$"RUN SYSTEM MENU"$ :. 50904 < :e :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE 5:8:"ALL DIVISORS OF AN INTEGER" 7:18:P(N)0P(N)1 N& I10E(1)5 I20E(2)D I30E(3)S I40E(4)b I50E(5)l @JJ1 JHP(1)I1P(2)I2P(3)I3P(4)I4P(5)I5 ^J,H hI5 rI4 |I3 I2 I1 :"ANOTHER? Y OR N: ";R$ R$"Y"Ľ:10  5000& ALL DIVISORS OF A>=2, ;P(5),E(5)H"A= ";Al("LIST OF ALL DIVISORS OF "A":"r2z7J0<I2AFC0PAI(AI)120ZAAIdCC1n80xC0160NN1P(N)IE(N)CIN15    COUNCIL OF TEACHERS":13:"OF MATHEMATICS":9:"1906 ASSOCIATION DRIVE":12:"RESTON, VA 22091"} ?11:"(C) COPYRIGHT 1984" A23 F255 P1000 :23 255:I421:I:2:J237:" ";:J:" ":I 24:7:"PRESS ANY KEY TO CON"PROGRAMS FROM THE MATHEMATICS TEACHER"] 42:"-------------------------------------":2: 68:"JANUARY 1983 - MAY 1984" 810:10:"COMPILED & EDITED BY":2: <2:12);"JAMES M. RUBILL0":2:9);"DONALD W. SCHEUER, JR."_ >16:6:"NATIONAL  : 50 1200=:10:11:"LOADING THE MENU"_D$(4):D$;"RUN SYSTEM MENU"g::I13:I:J138:"*";:J:"*":I#I421:I:1:"*";:39:"*":I(I138:"*";:I:"*":-( 225:2:12:"NCTM 'MATHDISK' ":2:5:   E E. SPENCE!v AND@ CHARLES VANDEN EYNDEN_ MATHEMATICS DEPARTMENT ILLINOIS STATE UNIVERSITY ****************************(#:2#9080<#F#:P#:I13:I:J138:"*";:J:"*":IZ#I421:I:1:"Z(5)%"CONSTANT TERM:";:36,17:1E:"PRESS 'RETURN'.";:A$:p&AZ(1):BZ(2):CZ(3):DZ(4):EZ(5):F10:49234,0:3:I1NDVV(Y(I))3V(Y(I))3NV0V191630XU1U(X(I))3:U2U(X(I))3bU10U2279630lU1,VU2, I1N:J1N+ Z(I)Z(I)W(I,J):J,IX :"THE CONIC THROUGH YOUR 5 POINTS HAS"} :"COEF. OF X^2:";:36,17:Z(1) "COEF. OF XY:";:36,17:Z(2) "COEF. OF Y^2:";:36,17:Z(3) "COEF. OF X:";:36,17:Z(4)"COEF. OF Y:";:36,17:ER, 1983"15:"PAGE 684"'5210-dI p5040 z5:34 -ENTER SHORT DESCRIPTION "PROGRAM PRODUCES A RANDOM":3:"PATTERN OF POLYGONS WITH DIAGONALS." 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 13:"DECEMBER, 1983" 15:"PAGE 684" 5210 ---ENTER VOL. NO.2 11:"VOLUME 76 NUMBER 9"P 11:"(C) COPYRIGHT 1983"X 23b (5210| --- GO TO DESCRIPTION .6000 2 <:23 F5210:I421:I:2:J237:" ";:J:" ":I P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ xI421:I:1:"*";:39:"*":I; I138:"*";:I:"*":A K 5040a -- ARTICLE TITLE} 5:12:"RANDOM SHAPES" 7:18:"BY" -- AUTHOR'S NAME 9:11:"CLARK KIMBERLING" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ) ZX(I),Y(I):I% dI1T:J1T> nX(I),Y(I)X(J),Y(J)I xJ,I,T^ I11500:I::| 23:"AGAIN? Y OR N: ";R$ R$"Y"50 D$(4):D$"RUN SYSTEM MENU" : 5090  : :I13:I:J138:"*";:J:"*":I 5000::# RANDOM SHAPESP:"THIS PROGRAM USES RANDOM NUMBERS TO""GENERATE RANDOM POLYGONS WITH DIAGONALS."("PRESS 'RETURN' TO START THE ACTION.";:A$23:T310<::49234,0:I1TFX(I)(280(1)) PY(I)(192(1)  LA:I0LY:Y%(I)A%(I):A%(I)0:T218:958:"ENTER THE OPERATION (+,-,*): ";OS$h<OS$" "OS$" "|FOS$" + "1000POS$" - "2000ZOS$" * "4000dBELL$;:5170 CONVERT STRINGS INTO ARRAYSLA1:M%(A$):K%0:E$"":M%0536ER, 1983"15:"PAGE 684"'5210-dI4:7:"PRESS ANY KEY TO CONTINUE. ";:R$. x8 p5040B z5:3` -ENTER SHORT DESCRIPTION "PROGRAM PRODUCES A RANDOM":3:"PATTERN OF CONCENTRIC RECTANGLES." 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 13:"DECEMBOM") 16:8:"THE MATHEMATICS TEACHER"@ ---ENTER VOL. NO.^ 11:"VOLUME 76 NUMBER 9"| 11:"(C) COPYRIGHT 1983" 23 (5210 --- GO TO DESCRIPTION .6000 2 <:23 F5210:I421:I:2:J237:" ";:J:" ":I P( Z23:I:J138:"*";:J:"*":IA I421:I:1:"*";:39:"*":I] I138:"*";:I:"*":c m 5040 -- ARTICLE TITLE 5:8:"RANDOM NESTED RECTANGLES" 7:18:"BY" -- AUTHOR'S NAME 9:11:"CLARK KIMBERLING" 14:17:"FRNTER:" J0R3 KJC(JC):C(K):1);C(K);C BAJ:DAJc B,DB:B,DD:D,BD:D,BBw J:W11200:W :"AGAIN? Y OR N: ";R$ R$"Y"110 ::D$(4):D$"RUN SYSTEM MENU"  : 5090  : :I1USED ON 12 RECTANGLES, THE 4 COLORS"P P"WILL BE REPEATED UNTIL 12 RECTANGLES"l Z"HAVE BEEN PLOTTED.": d"PRESS 'RETURN' TO START THE ACTION.":A$ nA20:R(A(1)):C8(1) xI0C:C(I)(16(1)):I ::"NESTED COLORS, BEGINNING AT CE. 5000* RANDOM NESTED RECTANGLESW:"THIS PROGRAM USES RANDOM NUMBERS TO""PRODUCE A RANDOM SELECTION OF COLORS,"("TO BE PLOTTED IN A RANDOM NUMBER OF"2"CONCENTRIC RECTANGLES.":<"FOR EXAMPLE, IF 4 COLORS ARE TO BE"$ F"HE COMPUTER'S MEMORY."Z. :10:5:"INCORRECT ENTRY - TRY AGAIN":J11500:J:240`` j :: :I13:I:J038:"*";:J:"*":: :I420:I:1:"*";:40:"*":I( 21::I038:"*";:I:"*":Z 2:8:" THE MATHEMATICS TEACHERFIND THE PRIME FACTORS OF":3:"EVERY POSITIVE INTEGER UP TO 1000."g 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 12:"SEPTEMBER, 1983" 15:"PAGE 434" 5210 d"IGHT 1983" 23 (52106 --- GO TO DESCRIPTION@ .6000F 2P <:23 F5210:I421:I:2:J237:" ";:J:" ":I P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z5:3 -ENTER SHORT DESCRIPTIONC "PROGRAM TO ARTICLE TITLE7 5:7:"PRIME FACTORIZATIONS TO 1000"H 7:18:"BY"^ -- AUTHOR'S NAME} 9:11:"CLARK KIMBERLING" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 76 NUMBER 6" 11:"(C) COPYR :: B- :"AGAIN? Y OR N: ";R$= R$"Y"ī10^ D$(4):D$"RUN SYSTEM MENU"f :p 5090v ~ : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 --  5000:9 FACTOR CONSECUTIVE POSITIVE INTEGERS"? ESB21000[(ABf2B"=";q<I2AyFC0PAI200ZAI(AI)130dAAInCC1x90C0190I;V(37)V1(36))C;V1 I    , 1983" 15:"PAGE 682"% 5210+ dIND USE ITS PALINDROMIC SUM TO":3:"EVENTUALLY FIND A PALINDROME."f 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 14:"APRIL, 1984" 15:"PAGE 271" 5210 dI7:" ";:J:" ":I PG Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$M xW p5040a z5:3 -ENTER SHORT DESCRIPTION "PROGRAM TO DETERMINE IF TWO DIGIT":3:"NUMBER IS A PALINDROME. IF NOT,":3:"THE PROGRAM WILL TAKE THE NUMBER"B 3:"ARD J. DONAHUE"" 14:17:"FROM"H 16:8:"THE MATHEMATICS TEACHER"_ ---ENTER VOL. NO.} 11:"VOLUME 77 NUMBER 4" 11:"(C) COPYRIGHT 1984" 23 (5210 --- GO TO DESCRIPTION .6000 2 <:23 F5210:I421:I:2:J23 5090  :A :I13:I:J138:"*";:J:"*":Ie I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE 5:12:"PALINDROMIC SUMS" 7:18:"BY" -- AUTHOR'S NAME 9:11:"RICHALINDROME."  3009 "YOUR VALUE IS TOO LARGE."B 300b "YOUR VALUE IS TOO SMALL."k 300 "YOUR NUMBERS ARE TOO BIG TO CONTINUE." 300 ,:"AGAIN? Y OR N: ";R$ 6R$"Y"ė:10 @D$(4)::D$"RUN SYSTEM MENU"  : 5000:/ "ENTER A 2 DIGIT NUMBER: ";A=A99200KA10220U(R$""a2A$(A)s<X(A$)11FR$R$(A$,X,1)PXZR(R$)dAR150nA;" IS NOT A PALINDROME."xA544444444240AAR40 :A;" IS A PA4:7:"PRESS ANY KEY TO CONTINUE. ";:R$. x8 p5040B z5:3` -ENTER SHORT DESCRIPTION "PROGRAM PRODUCES A RANDOM":3:"PATTERN OF CONCENTRIC RECTANGLES." 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 13:"DECEMBOM") 16:8:"THE MATHEMATICS TEACHER"@ ---ENTER VOL. NO.^ 11:"VOLUME 76 NUMBER 9"| 11:"(C) COPYRIGHT 1983" 23 (5210 --- GO TO DESCRIPTION .6000 2 <:23 F5210:I421:I:2:J237:" ";:J:" ":I P( Z23:I:J138:"*";:J:"*":IA I421:I:1:"*";:39:"*":I] I138:"*";:I:"*":c m 5040 -- ARTICLE TITLE 5:8:"RANDOM NESTED RECTANGLES" 7:18:"BY" -- AUTHOR'S NAME 9:11:"CLARK KIMBERLING" 14:17:"FRNTER:" J0R3 KJC(JC):C(K):1);C(K);C BAJ:DAJc B,DB:B,DD:D,BD:D,BBw J:W11200:W :"AGAIN? Y OR N: ";R$ R$"Y"110 ::D$(4):D$"RUN SYSTEM MENU"  : 5090  : :I1USED ON 12 RECTANGLES, THE 4 COLORS"P P"WILL BE REPEATED UNTIL 12 RECTANGLES"l Z"HAVE BEEN PLOTTED.": d"PRESS 'RETURN' TO START THE ACTION.":A$ nA20:R(A(1)):C8(1) xI0C:C(I)(16(1)):I ::"NESTED COLORS, BEGINNING AT CE. 5000* RANDOM NESTED RECTANGLESW:"THIS PROGRAM USES RANDOM NUMBERS TO""PRODUCE A RANDOM SELECTION OF COLORS,"("TO BE PLOTTED IN A RANDOM NUMBER OF"2"CONCENTRIC RECTANGLES.":<"FOR EXAMPLE, IF 4 COLORS ARE TO BE"$ F"      -ENTER SHORT DESCRIPTION"PROGRAM TO GRAPH STRAIGHT LINES ":3:"OF THE FORM AX + BY = C.":3:"YOU INPUT THE VALUES OF A, B, AND C."16:4:"FOR DETAILS, CONSULT:"8:"THE MATHEMATICS TEACHER"13:"NOVEMBER, 1983"16:"PAGE 11:"VOLUME 76 NUMBER 8": 11:"(C) COPYRIGHT 1983"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 p5040z5:3  5040$ -- ARTICLE TITLEI 5:9:"GRAPHING STRAIGHT LINES"Z 7:18:"BY"p -- AUTHOR'S NAME 9:3:"ELLEN H. HASTINGS & DANIEL S. YATES" 10:"WITH CHRISTIAN HIRSH" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO."Y ="C r. |"ANOTHER GRAPH? Y OR N: ";R$B R$"Y"ĺ::60c D$(4):D$"RUN SYSTEM MENU"o Z180u } : 5090  : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*": PLOT THE STRAIGHT LINE' B0343: "X1413.9.1L ,YABXCBY 6Y8340i @Y7.9340 J14010X,8010Y TX V345 W14010CA,014010CA,159 Y PRINT LINEAR EQUATION ^:37,20: h"THIS IS THE GRAPH OF "A"X + "BF B: ";B( i"ENTER THE VALUE OF C: ";C2 n::B x DRAW AXESU 140,0140,159f 0,80279,80v H027010 H,77H,83 H K016010 137,K143,K K 271,65277,71 277,65271,71 147,0151,6 155,0147,12 TIONS.":3::3:"EQUILIBRIUM POINT:":5:"300 $ UNITS VS. 200 $ UNITS"k 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 13:"FEBRUARY, 1984" 16:"PAGE 140" 5210 dI:235 F5210:I421:I:2:J237:" ";:J:" ":I; Pj Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$p xz p5040 z5:3 -ENTER SHORT DESCRIPTIONG "PROGRAM TO SIMULATE THE SOLVING OF":3:"AN ARMS RACE PROBLEM VIA":3:"DIFFERENCE EQUA-- AUTHOR'S NAME1 9:11:"LEONARD M. WAPNER"E 14:17:"FROM"k 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 77 NUMBER 2" 11:"(C) COPYRIGHT 1984" 23 (5210 --- GO TO DESCRIPTION .6000 2 <N SYSTEM MENU" : 5090& . :W :I13:I:J138:"*";:J:"*":I{ I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE 5:5:"DIFFERENCE EQUATIONS: ARMS RACE" 7:18:"BY" 125,.1,6.25/ d"ENTER INITIAL VALUE IF X: ";XS n"ENTER INITIAL VALUE IF Y: ";Yb x"X","Y":k X,Yy T11000 XX(AYBXC) YY(DXEYF) X,Y T "X","Y": "AGAIN? Y OR N: ";R$ R$"Y"ė:100 D$(4):D$"RU 5000: ARMS RACE8 DELTA X = AY-BX+C P DELTA Y = DX-EY+Fa(A,B,C,D,E,F2 THE VALUES OF A,B,C,D,E AND F< GIVEN IN THE DATA STATEMENT BELOWF WILL RESULT IN A STABLE EQUILIBRIUMP AT X=140, Y=80. Z .01,.02,2,.0  1000ĺS$; hA(K)100ĺS$;/ rA(K)10ĺS$;> |A(K);" ";I S$"0"P KX :v 23:"AGAIN? Y OR N: ";R$ R$"Y"ė:120 D$(4):D$"RUN SYSTEM MENU" : 5090  : :I13:I:J138:"*";:J:"*":I I421: MULTIPLY BY I I;:1/ C0: CARRY: KOEI PA(K)ICV C(PB)e A(K)PCBl Ky C0280 EE1 A(E)C I " OUTPUT ,N;"! ="; 6S$" " @KE01 JEK6((EK)6)ĺ TA(K)10000ĺS$; ^A(K) 50002 FULL PRECISION FACTORIAL PROGRAMF ROBERT MESSERa DEPT. OF MATHEMATICSv( ALBION COLLEGE2 ALBION, MICHIGAN 49224ZdA(1000)nB100000: BASEx:"N = ";N:N0ĀE0: EXPONENTA(E)1 I1N   z#?ٮǮǠ ٮǮŠԠҮǮ̠îŠ îǮ͠ӠîǮĠ! ҮǮΠ îǮ͠ˠҮǮҠŠҮǮàîǮ̧Ӡ ֮ǮӠƠ ֮ǮԠϠ ֮ǮɭîǮ͠ӠîǮ̧ӠîǮΠŠ֮ǮԠؼ ԮǮĠƠϠЮǮԺϠԮǮĠԮǮΠ"֮ǮԠӠ ֮ǮΠ ֮ǮӠƠ ĠƠҠΠ ЮǮŠƠЮǮŠڠ "ЮǮĠŠЮǮŠԮǮ֮ĠԮǮŠ  ®ǮӠŠ ЮǮ̠ӠҮǮΠ  ҮǮàҮǮĠҮǮĠΠҮǮԠӠ ®Ǯ͠Ӯ ήǮ̡ ®Ǯ͠Ӯ®Ǯخ!ήǮ٠ ®Ǯ͠Ӯ®ǮĠϠ"͠ՠ Ġ ®Ǯ®Ԡà ®Ǯ͠Ӯ ®Ǯҭ٠ Ϡ 18:"BY" -- AUTHOR'S NAME= 9:11:"CLARK KIMBERLING"Q 14:17:"FROM"w 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 76 NUMBER 7" 11:"(C) COPYRIGHT 1983" 23 (5210 --- GO TO DESCRIPTION .6000D$(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:11:"RELATIVE PRIMES" 7: 5000 J08"ENTER YOUR INTEGER N=";NEC1N1M(ANU2BCf<RAB(AB)sFR0110{PABZBRd60nB1140xJJ1N" AND "C" HAVE NO COMMON FACTOR"C:"ANOTHER? Y OR N: ";R$R$"Y"10  TION:":3::10:"1 1 1":10:"- + - = -":10:"A B C":3::3:"WHERE A,B,C ARE INTEGERS." 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 14:"MARCH, 1984" 16:"PAGE 205" 5210 dIESCRIPTION .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 DESCRIPTIONc "PROGRAM TO GENERATE INTEGER":3:"SOLUTIONS OF THE EQUAION IN ALGEBRA" 7:18:"BY"6 -- AUTHOR'S NAMEQ 9:13:"M. J. WINTER"e 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 77 NUMBER 3" 11:"(C) COPYRIGHT 1984" 23 (5210 --- GO TO D R$"Y"ė:1004 D$(4):D$"RUN SYSTEM MENU": B :L 5090R Z : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE 5:8:"INVESTIGAT  5000:-5:"WORKING - BE PATIENT."3?dA250MnBA150]xCBA(BA)n(C)C200}BAC200F2AAF(AF)BF(BF)CF(CF)200F"A= ";A,"B= ";B,"C= ";CBA :"AGAIN? Y OR N: ";R$UNTIL THE SYSTEM IS REBOOTED..."& ,A32,96: 769" (768)1250) M --IF THERE, LOAD INTG AND PA#1T s --WRITE PROTECT THE CARD A(16254): $C082 --NO CARD OR CAN'T RELOAD  (768)0Ā ":"...LANGUAGE CARD CANNOT BE RELOADED":" R n804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:8776,104:[ _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:B -- DOS 3.3 HELLO  .:C$(4)A<C$;"RUN LOGO"M THE MATHEMATICS TEACHER":12:"TYPE THE WORD 'CATALOG' AND PRESS RETURN"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:    PTION$9300$"$:23P,$9280:I421:I:2:J237:" ";:J:" ":IV6$@$24:7:"PRESS ANY KEY TO CONTINUE. ";:R$J$T$9030^$5:3h$-ENTER SHORT DESCRIPTIONDr$"PROGRAM TO PERMIT +,-,* OF TWO":3:"NUMBERS OF ANY BASE. TH NAMEL#9:12:"LAWRENCE E. SPENCE":19:"&":10:"CHARLES VANDEN EYNDEN"`#14:17:"FROM"#16:8:"THE MATHEMATICS TEACHER"#---ENTER VOL. NO.#11:"VOLUME 77 NUMBER 4"#11:"(C) COPYRIGHT 1984"#23#9280$-- GO TO DESCRIU"^(#:2#9080 <#(F#:QP#:I13:I:J138:"*";:J:"*":IuZ#I421:I:1:"*";:39:"*":Id#I138:"*";:I:"*":n#x#9030#-- ARTICLE TITLE#5:8:"MULTIPRECISION ARITHMETIC"#7:18:"BY"#-- AUTHOR'S LAWRENCE E. SPENCE)v ANDH CHARLES VANDEN EYNDENg MATHEMATICS DEPARTMENT ILLINOIS STATE UNIVERSITY ****************************@:"AGAIN? Y OR N: ";R$JR$"Y"ė::100TD$(4):D$"RUN SYSTEM MEN10ĺ" ";Y$;:B%10ĺ" ";," = ":DLA0ĺA%(LA):8000USG1ĺ"-";fKLA101rA%(K);B%10ĺ" ";K:::8000X ***************************] MULTIPRECISION ARITHMETICb PROGRAMMED BYl LESS THAN THE BASE, ";B%,"."::5500KB%11LALA1:A%(LA)(E$):E$""RI`"LALA1:}| ERROR-HANDLING ROUTINEI12000::FLAG05040FLAG150705120p PRINT THE RESULTz::X$;:B%10ĺ" "; OS$;:B%0 I1M%&K%((A$,M%I1,1))6E$(K%)E$hK%32B%10LALA1:A%(LA)(E$):E$"":5400K%48K%57ĺ::BELL$"THIS IS NOT A POSITIVE INTEGER."::5000B%05400%(E$)B%ĺ::BELL$;"THIS NUMBER CONTAINS A DIGIT THAT IS NOTLA:I0LY:Y%(I)A%(I):A%(I)0:T218:958:"ENTER THE OPERATION (+,-,*): ";OS$h<OS$" "OS$" "|FOS$" + "1000POS$" - "2000ZOS$" * "4000dBELL$;:5170 CONVERT STRINGS INTO ARRAYSLA1:M%(A$):K%0:E$"":M%0536:"WITH THE INTEGER THAT YOU ENTER.":3::3:"YOU ENTER YOUR INTEGER."k 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 13:"OCTOBER, 1983" 15:"PAGE 510" 5210 dI 2 <:23A F5210:I421:I:2:J237:" ";:J:" ":IG Pv Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$| x p5040 z5:3 -ENTER SHORT DESCRIPTIONG "PROGRAM IDENTIFIES ALL OF THE":3:"INTEGERS THAT HAVE NO COMMON FACTOR":3ULT:"' 8:"THE MATHEMATICS TEACHER"A 13:"FEBRUARY, 1984"U 16:"PAGE 119"_ 5210i :23o I1:I:2:J237:" ";:J:" ":I& PU Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$[ xe p5040 z5:3:"PROGRAM COUNTS THE NUMBER OF ZEROES" 3:"RANDOMLY SELECTED IN 100 SELECTIONS":3:"OF ONE DIGIT (0 ... 9)" 16:4:"FOR DETAILS, CONS 9:11:"CLARK KIMBERLING"1 14:17:"FROM"W 16:8:"THE MATHEMATICS TEACHER"n ---ENTER VOL. NO. 11:"VOLUME 77 NUMBER 2" 11:"(C) COPYRIGHT 1984" 23 (5210 ---GO TO DESCRIPTION .6000 2 <:23 F5210:I42 5090  :? :I13:I:J138:"*";:J:"*":Ic I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE 5:3:"GENERATING YOUR OWN RANDOM NUMBERS-1" 7:18:"BY" -- AUTHOR'S NAMEr 5000 A(100)S0?N1100:A(N)(10(1)):NZN1100:A(N)0SS1a(Ng-2"NUMBER OF 0'S AMONG YOUR":"100 RANDOM DIGITS IS "S<23:"AGAIN - Y OR N: ";R$AR$"Y"15FD$(4):D$"RUN SYSTEM MENU"P:    INUE. ";:R$  :25O 4:2:"NCTM 'MATHDISK' PROGRAMS ARE PRODUCED"z 2:"FROM ARTICLES COPYRIGHTED BY THE" 2:"NCTM, BUT MAY BE COPIED FOR PERSONAL" 2:"USE. SCHOOLS MAY MAKE A COPY FOR" 2:"EACH OF THEIR COMPUTERS. PLEASE OUNCIL OF TEACHERS":13:"OF MATHEMATICS":9:"1906 ASSOCIATION DRIVE":12:"RESTON, VA 22091"| ?11:"(C) COPYRIGHT 1984" A23 F255 P1000 :23 255:I421:I:2:J237:" ";:J:" ":I 24:7:"PRESS ANY KEY TO CONT"PROGRAMS FROM THE MATHEMATICS TEACHER"\ 42:"-------------------------------------":2:~ 68:"JANUARY 1983 - MAY 1984" 810:10:"COMPILED & EDITED BY":2: <2:12);"JAMES M. RUBILL0":2:9);"DONALD W. SCHEUER, JR."^ >16:6:"NATIONAL C : 503:10:11:"LOADING THE MENU";X$]D$(4):D$;"RUN SYSTEM MENU"e::I13:I:J138:"*";:J:"*":I#I421:I:1:"*";:39:"*":I(I138:"*";:I:"*":-' 225:2:12:" NCTM 'MATHDISK' ":2:5:T:"%8:"THE MATHEMATICS TEACHER":15:"MAY, 1984"O15:"PAGE 366"Y5210_dKEY TO CONTINUE. ";:R$x'p50401z5:3O-ENTER SHORT DESCRIPTION"PROGRAM TO GRAPH THE CONIC SECTION":3:"THAT WILL PASS THROUGH ANY 5":3:"CARTESIAN COORDINATES."3::3:"ENTER THE FIVE POINTS."16:4:"FOR DETAILS, CONSULE PROGRAM":3:"CAN PERMIT AS MANY AS":3:"520 SIGNIFICANT DIGITS."h|$16:4:"FOR DETAILS, CONSULT:"$8:"THE MATHEMATICS TEACHER"$14:"APRIL, 1984"$15:"PAGE 288"$9280$IE)."*16:4:"FOR DETAILS, CONSULT:":L8:"THE MATHEMATICS TEACHER"c15:"MARCH, 1983"w16:"PAGE 165"5210d$"PROGRAM TO SIMULATE SHIPBOARD":3:"WEATHER OBSERVATION. YOU ENTER:":3: 3:"OBSERVED WIND SPEED,":3:"WIND ANGLE RELATIVE TO SHIP'S PATH,":3:"AND SHIP'S SPEED.":3:3:"THE OUTPUT WILL BE THE ACTUAL":3:"WIND VECTOR(SPEED AND ACTUAL ANGL1:"(C) COPYRIGHT 1983" 23) (5210C --- GO TO DESCRIPTIONM .6000S 2] <:23 F5210:I421:I:2:J237:" ";:J:" ":I P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z5:3 -ENTER SHORT DESCRIPTIONK  -- ARTICLE TITLE@ 5:6:"SHIPBOARD WEATHER OBSERVATION"Q 7:18:"BY"g -- AUTHOR'S NAME 9:10:"RICHARD J. PALMACCIO" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 76 NUMBER 3" 1"L;" DEGREES" - "AGAIN? Y OR N: ";R$? R$"Y"ė:10` D$(4):D$"RUN SYSTEM MENU"f n :x 5090~  : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 AND SHIP'S SPEED= ";S","1 C"THEN:":N FA(W2S22WS(X))^ PBW(X)S} ZC(W(X)B)1803.14159 dB0140 nB0160 xL180C 170 LC 170 L90 "ACTUAL WIND SPEED IS ";A:"AT THE ANGLE  5000:5 "WHAT IS THE OBSERVED WIND SPEED";<W["WHAT IS THE WIND ANGLE";b(Gw-XG3.141591802"WHAT IS THE SHIP'S SPEED";<S>:A"IF THE OBSERVED WIND SPEED= ";W" B" WIND ANGLE = "G;",":"       INTO":9:"THE COMPUTER'S MEMORY.")g. :10:5:"INCORRECT ENTRY - TRY AGAIN":J11500:J:240m` w :: :I13:I:J038:"*";:J:"*":: :I420:I:1:"*";:40:"*":I( 21::I038:"*";:I:"*":Z 2:8:" THE MATHEM B*X*Y +C*Y^2 + D*X + E*Y = 0"Q3::3:"ENTER THE VALUES OF A,B,C,D,E, & F."18:4:"FOR DETAILS, CONSULT THE JOURNAL."5210d000 2<:23DF5210:I421:I:2:J237:" ";:J:" ":IJPyZ24:7:"PRESS ANY KEY TO CONTINUE. ";:R$xp5040z5:3-ENTER SHORT DESCRIPTION"PROGRAM TO GRAPH ANY CONIC SECTION":3:"OF THE FORM:":3::3:"A*X^2 + -- AUTHOR'S NAME4 9:11:"CLARK KIMBERLING"H 14:17:"FROM"n 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 77 NUMBER 5" 15:"MAY, 1984" 15:"PAGE 365" 23 (5210 --- GO TO DESCRIPTION.6UB1UVC1VV  :( 5090. 6 :_ :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE 5:7:"GRAPHING ANY CONIC SECTIONS" 7:18:"BY":"YOU REALLY SHOULD TRY MANY OTHERS, TOO."^ :"PLEASE INPUT COEFFICIENTS A,B,C,D,E,F:"s " ";A,B,C,D,E,F~ ::3 B0320 "ACG(1):310 ,G.5(B(AC)) 6U(G):V(G) @A1A:B1B:C1C:D1D:E1E:F1F JB0390 TAA1U 0 0 25 HYPER.,HORIZ."K "0 1 0 0 0 -25 HYPER.,45 DEG."w "1 0 0 0 -9 0 PARABOLA,UP" "0 0 1 9 0 0 PARABOLA,LEFT" "0 0 0 >0 >0 >0 LINE DX+BY=-C" "1 0 -1 0 0 0 TWO LINES". FROM THE MENU,"] )3:"2. WHEN TITLE APPEARS, KEY CONTROL-C":6:"(CTRL-C) THEN 'RETURN'," .3:"3. TYPE THE COMMAND 'LIST', THEN":6:"PRESS 'RETURN'." 3255 8DO"B 2:"NOT ALLOW UNAUTHORIZED COPIES TO BE":2:"MADE.":3:o 2:"'MATHDISK' PROGRAMS ARE IN 'AS IS'" 2:"FORM FROM NCTM JOURNALS. YOU ARE" 2:"ENCOURAGED TO LEARN FROM THEM." 2:"TO LIST A PROGRAM:" $3:"1. SELECT THE PROGRAMTINUE. ";:R$  :25G 4:3:"NCTM 'MATHDISK' PROGRAMS ARE"t 3:"PRODUCED FROM ARTICLES COPYRIGHTED" 3:"BY THE NCTM, BUT MAY BE COPIED FOR" 3:"PERSONAL USE. SCHOOLS MAY MAKE A" 3:"COPY FOR EACH OF THEIR COMPUTERS."B 3UCE THE CONTINUED":3:"FRACTION OF (1 + SQR(5))/2.":3::3:"YOU MUST READ THE ARTICLE!!" 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 13:"OCTOBER, 1983" 15:"PAGE 511" 5210 dI 1983" 23 (52102 --- GO TO DESCRIPTION< .6000B 2L <:23} F5210:I421:I:2:J237:" ";:J:" ":I P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z5:3 -ENTER SHORT DESCRIPTION[ "PROGRAM TO PROD-- ARTICLE TITLE3 5:10:"CONTINUED FRACTIONS"D 7:18:"BY"Z -- AUTHOR'S NAMEy 9:11:"CLARK KIMBERLING" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 76 NUMBER 7" 11:"(C) COPYRIGHTA(J)","; J ; "PRESS RETURN TO CONTINUE. ";R$\ D$(4):D$"RUN SYSTEM MENU"b j :t 5090z  : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040  5000 J0*R(1(5))25B109B(A(RB)J2CAR<DB\FJJ1lPA(J)(AB)zZJ10150dRABA(J)nR0150xABBR70"CONTINUED FRACTION FOR R=(1+SQR(5))/2""BEGINS WITH ";J19     "L;" DEGREES" - "AGAIN? Y OR N: ";R$? R$"Y"ė:10` D$(4):D$"RUN SYSTEM MENU"f n :x 5090~  : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 AND SHIP'S SPEED= ";S","1 C"THEN:":N FA(W2S22WS(X))^ PBW(X)S} ZC(W(X)B)1803.14159 dB0140 nB0160 xL180C 170 LC 170 L90 "ACTUAL WIND SPEED IS ";A:"AT THE ANGLE E PROGRAM FROM THE MENU,"l )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 :25 16:2:" NOTE " 5:5"SEVERAL OF THE P:"PLEASE DO NOT ALLOW UNAUTHORIZED":3:"COPIES TO BE MADE.":3:o 3:"'MATHDISK' PROGRAMS ARE IN 'AS IS'" 3:"FORM FROM NCTM JOURNALS. YOU ARE" 3:"ENCOURAGED TO LEARN FROM THEM." 2: 3:"TO LIST A PROGRAM:" $3:"1. SELECT TH CONVERT AN INPUT POSITIVE":3:"DECIMAL NUMBER X<1 TO A BINARY":3:"NUMBER.":3::3:"YOU INPUT THE DESIRED NUMBER." 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 12:"NOVEMBER, 1983" 15:"PAGE 600" 5210 dVRIGHT 1983" 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 DESCRIPTIONw "PROGRAM TO -- ARTICLE TITLE8 5:9:"CONVERT X<1 TO BINARY"I 7:18:"BY"_ -- AUTHOR'S NAME~ 9:11:"CLARK KIMBERLING" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 76 NUMBER 8" 11:"(C) COPY:"OF A SINGLE DIGIT (0, 1, 2)."D 16:4:"FOR DETAILS, CONSULT:"f 8:"THE MATHEMATICS TEACHER" 13:"FEBRUARY, 1984" 16:"PAGE 119" 5210 :23 I TO DESCRIPTION .6000 2) <:23Z F5210:I421:I:2:J237:" ";:J:" ":I` P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z5:3:"PROGRAM COUNTS THE NUMBER OF EACH" 3:"RANDOMLY SELECTED DIGIT IN 100 PICKS":3RANDOM NUMBERS-2"" 7:18:"BY"8 -- AUTHOR'S NAMEW 9:11:"CLARK KIMBERLING"k 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 77 NUMBER 2" 11:"(C) COPYRIGHT 1984" 23 (5210 ---GOzR$"Y"ė:150 {D$(4):D$"RUN SYSTEM MENU"8 :B 5090H P :y :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE 5:3:"GENERATING YOUR OWN  5000 A(100) 4N1100:A(N)0:N<B3[N1100:A(N)(B(1)):Nh(D0B1u2N1100<A(N)DSS1FNP"NUMBERS OF "D"'S AMONG YOUR 100"Z"DIGITS IS "S"."_dSOnDx23:"AGAIN Y OR N: ";R$    I1 ZI10500 d::"ANOTHER? Y OR N: ";R$? nR$"Y"10` xD$(4):D$"RUN SYSTEM MENU"f n :x 5090~  : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 5000i PROGRAM BASE B REPRESENTA TION OF X, WHERE 2<=B<=10 AN D 0<=X<1 o wI0B2"ENTER A NUMBER X, 0<=X<=1"#"X=";X$:"BINARY EQUIVALENT IS:":("0.";2D(BX)<D;FXBXD PI ROGRAMS ON THIS":5:"DISKETTE PERFORM A LARGE NUMBER"d5:"OF COMPUTATIONS AND EXECUTE FOR"5:"A LONG PERIOD OF TIME."5:5:"IF YOU WISH TO TERMINATE THE"5:"EXECUTION OF SUCH A PROGRAM," 5:"PERFORM THE FOLLOWING STEPE PROGRAM FROM THE MENU,"l )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 :25 16:2:" NOTE " 5:5"SEVERAL OF THE P:"PLEASE DO NOT ALLOW UNAUTHORIZED":3:"COPIES TO BE MADE.":3:o 3:"'MATHDISK' PROGRAMS ARE IN 'AS IS'" 3:"FORM FROM NCTM JOURNALS. YOU ARE" 3:"ENCOURAGED TO LEARN FROM THEM." 2: 3:"TO LIST A PROGRAM:" $3:"1. SELECT THTINUE. ";:R$  :25G 4:3:"NCTM 'MATHDISK' PROGRAMS ARE"t 3:"PRODUCED FROM ARTICLES COPYRIGHTED" 3:"BY THE NCTM, BUT MAY BE COPIED FOR" 3:"PERSONAL USE. SCHOOLS MAY MAKE A" 3:"COPY FOR EACH OF THEIR COMPUTERS."B 3COUNCIL OF TEACHERS":13:"OF MATHEMATICS":9:"1906 ASSOCIATION DRIVE":12:"RESTON, VA 22091"} ?11:"(C) COPYRIGHT 1984" A23 F255 P1000 :23 255:I421:I:2:J237:" ";:J:" ":I 24:7:"PRESS ANY KEY TO CON"PROGRAMS FROM THE MATHEMATICS TEACHER"] 42:"-------------------------------------":2: 68:"JANUARY 1983 - MAY 1984" 810:10:"COMPILED & EDITED BY":2: <2:12);"JAMES M. RUBILL0":2:9);"DONALD W. SCHEUER, JR."_ >16:6:"NATIONAL  : 50 1200=:10:11:"LOADING THE MENU"_D$(4):D$;"RUN SYSTEM MENU"g::I13:I:J138:"*";:J:"*":I#I421:I:1:"*";:39:"*":I(I138:"*";:I:"*":-( 225:2:12:"NCTM 'MATHDISK' ":2:5:ES OF M AND B."316:4:"FOR DETAILS, CONSULT:"U8:"THE MATHEMATICS TEACHER"l14:"MARCH, 1983 16:"PAGE 185"5210dC<:238 F5210:I421:I:2:J237:" ";:J:" ":I> Pm Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$s x} p5040 z5:3 -ENTER SHORT DESCRIPTION"PROGRAM TO GRAPH STRAIGHT LINES ":3:"OF THE FORM Y= MX+B.":3:"YOU INPUT THE VALUAME4 9:3:"ELLEN H. HASTINGS & DANIEL S. YATES"H 14:17:"FROM"n 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 76 NUMBER 3" 11:"(C) COPYRIGHT 1983" 23 (5210 --- GO TO DESCRIPTION .6000 2 U"  : 5090 ( :Q :I13:I:J138:"*";:J:"*":Iu I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE 5:9:"GRAPHING STRAIGHT LINES" 7:18:"BY" -- AUTHOR'S NX1413.9.1 ,YMXB' 6Y83407 @Y7.9340M J14010X,8010YT TXp Y PRINT LINEAR EQUATION ^:37,20: h"THIS IS THE GRAPH OF Y="M"*X+"B r |"ANOTHER GRAPH? Y OR N: ";R$ R$"Y"ĺ::60 D$(4):D$"RUN SYSTEM MENB n:: x DRAW AXES" }35 140,0140,159F 0,80279,80V H027010e H,77H,83l H| K016010 137,K143,K K 271,65277,71 277,65271,71 147,0151,6 155,0147,12  PLOT THE STRAIGHT LINE " 5000: 12?"THIS PROGRAM GRAPHS STRAIGHT LINES"f(:"IN THE GENERAL FORM Y=M*X+B."2N12500:N: PAUSE LOOP<F:37,20:P:"GIVEN THE GENERAL FORM Y=M*X+B"Z"ENTER THE VALUE OF M: ";M d"ENTER THE VALUE OF B: ";     U ":3:"WERE ABLE TO KEEP TEARING AND":3:"STACKING IN THIS MANNER MANY TIMES,":3:"HOW HIGH IS THE STACK?" 3:"YOU ENTER THE PAPER'S THICKNESS,":3:"THE GROWTH CONSTANT(2 FOR DOUBLE),":3:"AND THE NUMBER OF CYCLES(RIPS)." 18:4:"FOR DETAIL:3! -ENTER SHORT DESCRIPTION "PROGRAM TO COMPUTE THE CLASSICAL":3:"PAPER PILE PROBLEM:":3:"SUPPOSE YOU HAVE A LARGE SHEET OF":3:"PAPER, AND YOU TEAR THE PAPER IN"n 3:"HALF AND PUT THE PIECES ON TOP":3:"OF EACH OTHER. SUPPOSE THAT YO. 11:"VOLUME 77 NUMBER 4"= 11:"(C) COPYRIGHT 1984"E 23O (5210i --- GO TO DESCRIPTIONs .6000y 2 <:23 F5210:I421:I:2:J237:" ";:J:" ":I P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z538:"*";:I:"*": " 50408 -- ARTICLE TITLEY 5:11:"PAPER PILE PROBLEM"j 7:18:"BY" -- AUTHOR'S NAME 9:4:"DAN KUNKLE & CHARLES I. BURCH, JR." 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO:"THE HEIGHT OF THE PILE IS "::5);X;" UNITS."P P23:"AGAIN? Y OR N: ";R$b ZR$"Y"ė:10 dD$(4):D$"RUN SYSTEM MENU"  : 5090  : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I1j 5000:T "ENTER INITIAL VALUE (PAPER THICKNESS)":"TRY 0.015: ";X$:X(X$)Z"ENTER GROWTH CONSTANT (FOR DOUBLE":"TRY 2.0: ";A$:A(A$)"ENTER NUMBER OF CYCLES (REPEATS":"TRY 50: ";N$:N(N$)(I1N2XAX<I2 FICS TEACHER"& 12:"NOVEMBER, 1983": 15:"PAGE 600"D 5210J dIM":3:"3 TO 1000 AS THE SUM OF FIBONACCI":3:"NUMBERS. 3::3:"THAT IS- ANY INTEGER X CAN BE":3:"WRITTEN AS:":3:"A*1+B*2+C*3+D*5+E*8+F*13+G*21.....":3: 3:"A,B,C,... EQUAL 1 OR 0" 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMAT5210 --- 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 DESCRIPTION8 "PROGRAM TO EXPRESS EVERY NUMBER FRO5:9:"FIBONACCI-BASED NUMBERS"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 76 NUMBER 8" 11:"(C) COPYRIGHT 1983" 23 ("AGAIN? Y OR N: ";R$$ R$"Y"10E D$(4):D$"RUN SYSTEM MENU"K S :] 5090c k : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE K FIBONACCI-BASE NUMBERS(5000. 9F(20)KF(1)1:F(2)1mN320:F(N)F(N1)F(N2):N{(M310002AM<A"=";FN220PAF(N)120ZNxF(N1);AAF(N1)A0170"+";70M :     x:10=}"****************************************":l"REMOVE THE DISKETTE FROM THE DISK DRIVE":" AND TURN THE COMPUTER OFF !!!!!!":"****************************************" 1 AND B.",16:4:"FOR DETAILS, CONSULT:"N8:"THE MATHEMATICS TEACHER"e14:"MARCH, 1983 y16:"PAGE 185"5210dI1 F5210:I421:I:2:J237:" ";:J:" ":I7 Pf Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$l xv p5040 z5:3 -ENTER SHORT DESCRIPTION"PROGRAM TO GRAPH STRAIGHT LINES ":3:"OF THE FORM Y= MX+B.":3:"YOU INPUT THE VALUES OF M9:3:"ELLEN H. HASTINGS & DANIEL S. YATES"A 14:17:"FROM"g 16:8:"THE MATHEMATICS TEACHER"~ ---ENTER VOL. NO. 11:"VOLUME 76 NUMBER 3" 11:"(C) COPYRIGHT 1983" 23 (5210 --- GO TO DESCRIPTION .6000 2 <:23 : 5090 ! :J :I13:I:J138:"*";:J:"*":In I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE 5:9:"GRAPHING STRAIGHT LINES" 7:18:"BY" -- AUTHOR'S NAME- 3.9.1 ,YMXB 6Y83400 @Y7.9340F J14010X,8010YM TXi Y PRINT LINEAR EQUATIONx ^:37,20: h"THIS IS THE GRAPH OF Y="M"*X+"B r |"ANOTHER GRAPH? Y OR N: ";R$ R$"Y"ĺ::60 D$(4):D$"RUN SYSTEM MENU" B n:: x DRAW AXES. 140,0140,159? 0,80279,80O H027010^ H,77H,83e Hu K016010 137,K143,K K 271,65277,71 277,65271,71 147,0151,6 155,0147,12  PLOT THE STRAIGHT LINE "X141 5000: 12?"THIS PROGRAM GRAPHS STRAIGHT LINES"f(:"IN THE GENERAL FORM Y=M*X+B."2N12500:N: PAUSE LOOP<F:37,20:P:"GIVEN THE GENERAL FORM Y=M*X+B"Z"ENTER THE VALUE OF M: ";M d"ENTER THE VALUE OF B: ";S:" 5:48:"1. DEPRESS THE CONTROL (CTRL)"[(11:"KEY AND STRIKE THE 'C' KEY."z28:"2. TYPE THE MESSAGE:"75:<12:"RUN SYSTEM MENU"A5:F11:"THEN PRESS THE 'RETURN' KEY."P255US, CONSULT:".8:"THE MATHEMATICS TEACHER"E14:"APRIL, 1984"Y15:"PAGE 267"c5210idI, 5000 CHAR(22)&2-(292I120S<CHAR(I)(6526(1))dF(CHAR(I));nP" ";uZI~dOK1nJ1I1xCHAR(J)CHAR(J1)170TCHAR(J)CHAR(J)CHAR(J1)CHAR(J1)TOK0JOK1004:3:"OF THE CONTINUED FRACTION":3:"IN THIS CASE LINE 30 CONTAINS:":2:"1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0" 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 13:"OCTOBER, 1983" 15:"PAGE 512" 5210 dM37:" ";:J:" ":I PH Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$N xX p5040b z5:3 -ENTER SHORT DESCRIPTION "PROGRAM TO FIND A REAL NUMBER R":3:"GIVEN ITS CONTINUED FRACTION.":3::3:q "IN LINE 30 YOU ENTER UP TO 20 TERMS "ARK KIMBERLING"# 14:17:"FROM"I 16:8:"THE MATHEMATICS TEACHER"` ---ENTER VOL. NO.~ 11:"VOLUME 76 NUMBER 7" 11:"(C) COPYRIGHT 1983" 23 (5210 --- GO TO DESCRIPTION .6000 2 <:23 F5210:I421:I:2:J2  :7 :I13:I:J138:"*";:J:"*":I[ I421:I:1:"*";:39:"*":Iw I138:"*";:I:"*":}  5040 -- ARTICLE TITLE 5:5:"FIND R FROM CONTINUED FRACTION" 7:18:"BY" -- AUTHOR'S NAME 9:11:"CL)Q(N1)Q(N2) N< "R EQUALS APPROX. "P(K1)Q(K1)B o "THE FIRST "K1" CONVERGENTS TO R ARE "| N1K1 P(N)"/"Q(N)" = "P(N)Q(N) N :"PRESS RETURN TO CONTINUE";R$ D$(4):D$"RUN SYSTEM MENU" , : 5090 5000 (A(20),P(20),Q(20)V 1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0s(N120:A(N):A(N)070{2KN<80FNPK0K20ZP(1)A(1):P(2)A(2)A(1)1dQ(1)1:Q(2)A(2)nN3KxP(N)A(N)P(N1)P(N2) Q(N)A(N "PROGRAM TO CREATE A ROUND ROBIN":3:"COMPETITION SCHEDULE FOR ANY":3:"NUMBER OF TEAMS (INDIVIDUALS).":3:"YOU INPUT THE NUMBER OF TEAMS." 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 14:"MARCH, 1983"16:"PAGE 11:"(C) COPYRIGHT 1983"# 23- (5210G --- GO TO DESCRIPTIONQ .6000W 2a <:23 F5210:I421:I:2:J237:" ";:J:" ":I P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z5:3 -ENTER SHORT DESCRIPTION 5040" -- ARTICLE TITLEF 5:10:"ROUND ROBIN SCHEDULES"W 7:18:"BY"m -- AUTHOR'S NAME 9:11:"MICHAEL A. IANNONE" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 76 NUMBER 3" NENT FOR RTH ROUND( XYĺX;" VS. ";YG XYSIGNAL0ĺX;" VS. ";Ng "XYSIGNAL1ĺX;" VS. BYE"m ,s { : 5090  : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*": "AGAIN? Y OR N: ";R$& R$"Y"ė:10G D$(4):D$"RUN SYSTEM MENU"o THIS SUBROUTINE DETERMINES IF THE NUMBER OF TEAMS IS ODD OR EVEN SIGNAL=1(ODD) SIGNAL=0(EVEN) SIGNAL1 Q(N2) RNQ2 R0SIGNAL0   OPPO 5000:5 PROGRAM FOR ROUND ROBIN SCHEDULESY"ENTER THE NUMBER OF TEAMS ";Nb(180v2SIGNAL1NN1<R1(N1)FP"ROUND ";RZ"--------"dX1NnXRYRXxXRYR(N1)X260XR :     S:" 5:48:"1. DEPRESS THE CONTROL (CTRL)"[(11:"KEY AND STRIKE THE 'C' KEY."z28:"2. TYPE THE COMMAND:"75:<12:"RUN SYSTEM MENU"A5:F11:"THEN PRESS THE 'RETURN' KEY."P255U9ROGRAMS ON THIS":5:"DISKETTE PERFORM A LARGE NUMBER"d5:"OF COMPUTATIONS AND EXECUTE FOR"5:"A LONG PERIOD OF TIME."5:5:"IF YOU WISH TO TERMINATE THE"5:"EXECUTION OF SUCH A PROGRAM," 5:"PERFORM THE FOLLOWING STEP195"5210dI FOR THE NEXT SCREEN: ";P$:P(P$)5" (P$)0KMıNT (P$)0KM1ī2750Y P(P) P1PMD$(4):2250:D$"RUN ";N$(P) 22:"INCORRECT RESPONSE -TRY AGAIN":"PRESS RETURN TO CONTINUE: ";X$:KK15::SHORT DESCRIPTION "PROGRAM TURNS RANDOM NUMBERS INTO":3:"RANDOM LETTERS, PRINTS THEM IN THEIR":3:"ORDER OF SELECTION, THEN PRINTS":3:"THEM ALPHABETICALLY." 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 13:"DECEMBERME 76 NUMBER 9"- 11:"(C) COPYRIGHT 1983"5 23? (5210Y --- GO TO DESCRIPTIONc .6000i 2s <:23 F5210:I421:I:2:J237:" ";:J:" ":I P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z5:3 -ENTER 38:"*";:I:"*": " 50408 -- ARTICLE TITLEU 5:12:"RANDOM LETTERS"f 7:18:"BY"| -- AUTHOR'S NAME 9:8:"ROBERT C. EARHART, JR." 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLU 1 K121# (CHAR(K));- " ";4 KP :"AGAIN? Y OR N: ";R$b R$"Y"Ľ:10 D$(4):D$"RUN SYSTEM MENU"  : 5090  : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I1THEMATICS TEACHER", 13:"FEBRUARY, 1983"@ 16:"PAGE 103"J 5210P dDESCRIPTIONu "PROGRAM TO FIND ALL BACKWARD":3:"MULTIPLES LESS THAN 9999.":3:"EXAMPLE OF A BACKWARD MULTIPLE:" 3::10:"8799912 = 4*(2199978)":3::2:"2199978 IS A BACKWARD MULT.OF 8799912" 16:4:"FOR DETAILS, CONSULT:" 8:"THE MANUMBER 2"' 11:"(C) COPYRIGHT 1984"/ 239 (5210S --- GO TO DESCRIPTION] .6000c 2m <:23 F5210:I421:I:2:J237:" ";:J:" ":I P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z5:3 -ENTER SHORT ";:I:"*":  50402 -- ARTICLE TITLES 5:10:"BACKWARD MULTIPLES"d 7:18:"BY"z -- AUTHOR'S NAME 9:11:"RICHARD B. DUNCAN" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 77 * PT:M;" IS A BACKWARD MULTIPLE OF ";J4 RTT2; UJb Z"PRESS 'RETURN' TO CONTINUE: ";X$ dD$(4):D$"RUN SYSTEM MENU" : 5090  : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*R 5000:T1'J9999101AT:15:"CHECKING ";JL I29a(J10)J1085t(JI)JI35{I85#R$(JI)(W(R$)-K02C1W7KK((R$,C,1))10(C1)<CA(K)J75F25KMJI LTT2     "1 0 -1 0 0 25 HYPER.,HORIZ."W "0 1 0 0 0 -25 HYPER.,45 DEG." "1 0 0 0 -9 0 PARABOLA,UP" "0 0 1 9 0 0 PARABOLA,LEFT" "0 0 0 >0 >0 >0 LINE DX+BY=-C" "1 0 -1 0 0 0 TEXAMPLES:":2 x"A B C D E F GRAPH"I I039:"-";:I:p "1 0 1 0 0 -25 CIRCLE" "1 0 2 0 0 -25 ELLIPSE,VERT." "2 0 1 0 0 -25 ELLIPSE,HORIZ." "1 0 -1 0 0 -25 HYPER.,VERT."( Q 5000:% GRAPH MANY CONICS8I(X)(.5X)MX(X)(U140)Sa(Y(V)(96V)Tt2U(X)140SX<V(Y)96TYFS10:T10P:"THIS PROGRAM GRAPHS EQUATIONS OF CONICS"Z:36,2d"AX^2+BXY+CY^2+DX+EY+F=0" n:36,15:"   "%16:4:"FOR DETAILS, CONSULT:"G8:"THE MATHEMATICS TEACHER"a13:"NOVEMBER, 1983"u15:"PAGE 571"5210dI ":I P:Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$@xJp5040Tz5:3r-ENTER SHORT DESCRIPTION"PROGRAM TO SIMULATE THE GALTON":3:"QUINCUNX. THE QUINCUNX IS A DEVICE":3:"THAT IS USED TO APPROXIMATE A NORMAL":3:"DISTRIBUTION."14:17:"FROM";16:8:"THE MATHEMATICS TEACHER"R---ENTER VOL. NO.p11:"VOLUME 76 NUMBER 8"11:"(C) COPYRIGHT 1983"23(5210--- GO TO DESCRIPTION.60002<:23F5210:I421:I:2:J237:" ";:J:":I13:I:J138:"*";:J:"*":IJI421:I:1:"*";:39:"*":IfI138:"*";:I:"*":lv5040-- ARTICLE TITLE5:13:"GALTON QUINCUNX"7:18:"BY"-- AUTHOR'S NAME9:3:"JOSEPH HILSENRATH & BRUCE F. FIELD' :23:12::"THE GALTON QUINCUNX":I D21:"DROPS= "DR;:I32:"."_ N22:I32:H(I);k XDRDR1~ bDROPS500360 l24:"AGAIN? Y OR N: ";R$ vR$"Y"Ľ:10 :D$(4):D$"RUN SYSTEM MENU"   : 5090  :&)100 21:35:P$ PBIAS4504 X1X8:470? X1X8f  ADJUST THIS LOOP TO CHANGE SPEEDx I1102Z:I S16336:B14 BOUNCE(S)(S) B Y 1X,Y8 I(XX0)166 H(I)H(I)1 &Y159H(I)2 0X6,YX7,Y I192 XX08(I1)/ YY08(I1)? J1I:X,YM "XX16:J` ,XX0I8:YY8m 6J1I1} @X,Y:XX16 JJ:I T DROP BALL ^DROPS1 hXX0 rYY0YO808 |YY0400 1X,Y8:XX1 1X,Y R(1):P((100R)I1SR:R(1):I:304 1,0,4,0,35,45,54,63,4,0T GENERATE BALL-SHAPE TABLE_ H(11)r 232,0:233,64 I1638416393:A:I,A:I I111 H(I)0:I :2:8:3 50,0230,0230,15950,15950,0 SET UP GRID X0140:Y010"DO YOU WISH TO BIAS THE DISTRIBUTION?"::"(Y/N)==>";A$I ZA$"N"110z d:"TYPE A NUMBER BETWEEN .3 AND .7==>";BIAS n:"TYPE A SPEED BETWEEN O-100==>";Z x:"ENTER A NUMBER BETWEEN 0 AND 100 TO"::"SEED THE RANDOM NUMBER GENERATOR==>";SR 5000:" :BIAS.5:33,40< ORIGINAL CONCEPT BYV SIR FRANCIS GALTONl( DESIGN BY2 JOSEPH HILSENRATH< PROGRAM BY BRUCE FIELDF5:"PROGRAM PRODUCES A GALTON QUINCUNX"::"TO SIMULATE A NORMAL DISTRIBUTION."9 P:     S WILL BE DROPPED.":5::5:"BE PATIENT."N16:4:"FOR DETAILS, CONSULT:"p8:"THE MATHEMATICS TEACHER"13:"JANUARY, 1984"16:"PAGE 43"5210:23I9 5000 *"POSITIVE INTEGERS"M"SATISFYING C^2 = A^2 + B^2:"V#150c(N3100w2V1((N1)2)<UNVF(UV)2((UV)2)180PAUZBVdRAB(AB)nR0150xABBR100B1180 CUUVV:   "SEPTEMBER, 1983"%15:"PAGE 410"/52105dIJ:" ":I P> Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$D xN p5040X z5:3v -ENTER SHORT DESCRIPTION "THE GEOMETRIC SERIES IN A DIFFERENT":3:"CONTEXT." 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER"12:DWIN" 14:17:"FROM"? 16:8:"THE MATHEMATICS TEACHER"V ---ENTER VOL. NO.t 11:"VOLUME 76 NUMBER 6" 11:"(C) COPYRIGHT 1983" 23 (5210 --- GO TO DESCRIPTION .6000 2 <:23 F5210:I421:I:2:J237:" ";:90  :9 :I13:I:J138:"*";:J:"*":I] I421:I:1:"*";:39:"*":Iy I138:"*";:I:"*":  5040 -- ARTICLE TITLE 5:11:"THE GOLF PROBLEM" 7:18:"BY" -- AUTHOR'S NAME 9:11:"GEORGE G. GOOFOR REMAINING HOLES7 *****************************C H218M AA2W SSAp H;8);"$"A;18)"$"Sw H ***************************** ,:"AGAIN? Y OR N: ";R$ 6R$"Y"ė:10 @D$(4):D$"RUN SYSTEM MENU" J : 50*********2 Z"HOLE";8);"AMOUNT";18);"SUBTOTAL"U d ****************************v n *** INITIALIZE FOR HOLE #1 xH1 A.01 S.01 H;8);"$"A;18)"$"S ***************************** *** LOOP TO GENERATE AMOUNTS *** 6 5000:( *** THE GOLF PROBLEMN********************************g*** VARIABLES USED(*** H- STORES HOLE NUMBER2 *** A- STORES AMOUNT WAGERED< *** AT EACH HOLEF *** S- STORES SUBTOTAL P ********************NUE. ";:R$ x p5040% z5:3C -ENTER SHORT DESCRIPTION "PROGRAM TO SIMULATE THE MC DONALD'S":3:"STAR RAIDER'S RUBOFF CONTEST." 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 13:"FEBRUARY, 1984" 16:"PAGICS TEACHER"# ---ENTER VOL. NO.A 11:"VOLUME 77 NUMBER 2"_ 11:"(C) COPYRIGHT 1984"g 23q (5210 --- GO TO DESCRIPTION .6000 2 <:23 F5210:I421:I:2:J237:" ";:J:" ":I P Z24:7:"PRESS ANY KEY TO CONTI:39:"*":I( I138:"*";:I:"*":. 8 5040N -- ARTICLE TITLE{ 5:5:"PROB. OF WINNING AT MC DONALD'S" 7:18:"BY" -- AUTHOR'S NAME 9:3:"JIM R. RIDENHOUR & ERNEST WOODWARD" 14:17:"FROM" 16:8:"THE MATHEMAT 60 I$ "N= ";N,"S= ";SN "THE REL. FREQ. OF SUCCESS WAS ";SNl 23:"AGAIN? Y OR N: ";R$~ R$"Y"ė:20 D$(4):D$"RUN SYSTEM MENU" : 5090  : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";  5000:6"HOW MANY PERFORMANCES (TRIES): ";N>S0I(I1Nn-5:"WORKING - BE PATIENT. "I:|2C10:C20<TC1C2FA(2C1)(10T):BA2(10T)PR(1)ZAR120dRB150nC2C21:60xC1C11 C12SS1:150    p5040z5:3/-ENTER SHORT DESCRIPTION"PROGRAM TO GRAPH ANY CONIC SECTION":3:"OF THE FORM:":3::2:"A*X^2 + B*X*Y +C*Y^2 + D*X + E*Y +F=0"3::3:"ENTER THE VALUES OF A,B,C,D,E, & F."16:4:"FOR DETAILS, CONSULT:"8:"TH-ENTER VOL. NO.-11:"VOLUME 77 NUMBER 5"K11:"(C) COPYRIGHT 1984"S23](5210w--- GO TO DESCRIPTION.60002<:23F5210:I421:I:2:J237:" ";:J:" ":IPZ24:7:"PRESS ANY KEY TO CONTINUE. ";:R$x;:39:"*":I)I138:"*";:I:"*":/95040O-- ARTICLE TITLEx5:7:"GRAPHING ANY CONIC SECTIONS"7:18:"BY"-- AUTHOR'S NAME9:11:"CLARK KIMBERLING"14:17:"FROM"16:8:"THE MATHEMATICS TEACHER"--"INPUT A,B,C,D,E,F:"+`" ";A,B,C,D,E,F{e::::21:"DO YOU WISH TO ERASE THE CURRENT GRAPH?":"ENTER Y OR N: ";R$fR$"Y"270j280t:5090::I13:I:J138:"*";:J:"*":I I421:I:1:"*"VI(V(Y)) V0V1591030)U,V0U:1090HD01090X$V15901h.U(FD),Vo8VB:::21:"ANOTHER GRAPH? Y OR N: ";R$FR$"N"ĉ::D$(4):D$"RUN SYSTEM MENU"H:21L"READY TO GRAPH YOUR NEXT EQUATION."V *U1,V4U20U2279840)>U2,V0HV:R1090G\B0960TfU0279`pXX(U)pzXEB940Y(DXF)(BXE)VI(V(Y))V0V191940U,VU1090E01050U0279XX(U)YDXEFE 70 U,V1!V20V2159690+U,V22U<1090IA0860YV15901eYY(V)rB1BYDD1B1B14A(EYF)D10840X1(B1(D1))(2A) X2(B1(D1))(2A)U1I(U(X1)):U2I(U(X2)) U10U1279820RRENT COEFFICI-";&"ENTS ARE "A", "B", "C", "D", "E", "FH0C0710U:U0279aDXX(U)nNB1BXEXD1B1B14C(AXXDXF)bD10690lY1(B1(D1))(2C)vY2(B1(D1))(2C)V1I(V(Y1)):V2I(V(Y2))V10V11596C1:DD1:EE1:FF1' U0279:U,96:UA V19001:140,V:V] U140279S:U,96U,98w 280U,96280U,98:U V96191T:138,V140,V 138,192V140,192V:V 21:"PLEASE WAIT. IF NO GRAPH APPEARS, IT ""IS 'OFF THE SCREEN'. CU0 TAA1UUB1UVC1VV= ^BB1(UUVV)2(C1A1)UVX hCA1VVB1UVC1UUh rDD1UE1V~ |ED1VE1U:FF1 C0430 QDDEEAC4AF Q1((Q)) KE(2C) A0460 HD(2A) R(Q1(2A)) AA1:BB1:CWO LINES": :"YOU REALLY SHOULD TRY MANY OTHERS, TOO."j :"PLEASE INPUT COEFFICIENTS A,B,C,D,E,F:" " ";A,B,C,D,E,F ::3 B0320 "ACG(1):310 ,G.5(B(AC)) 6U(G):V(G) @A1A:B1B:C1C:D1D:E1E:F1F JB03913:"OCTOBER, 1983"( 15:"PAGE 512"2 52108 d" p5040 z5:30 -ENTER SHORT DESCRIPTION} "PROGRAM TO FIND SETS OF PRIMITIVE":3:"PYTHAGOREAN TRIPLES.":3::3: "FIND A,B, AND C SUCH THAT:":6:"A^2 + B^2 = C^2" 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" --ENTER VOL. NO.. 11:"VOLUME 76 NUMBER 7"L 11:"(C) COPYRIGHT 1983"T 23^ (5210x --- GO TO DESCRIPTION .6000 2 <:23 F5210:I421:I:2:J237:" ";:J:" ":I P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x:1:"*";:39:"*":I1 I138:"*";:I:"*":7 A 5040W -- ARTICLE TITLEy 5:10:"PYTHAGOREAN TRIPLES" 7:18:"BY" -- AUTHOR'S NAME 9:11:"CLARK KIMBERLING" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" -AUUVV:B2UVA "C="C;8)"A="A;16)"B="B;24);"AREA="AB2H VO NX 255r :"AGAIN? Y OR N";R$ R$"Y"10 D$(4):D$"RUN SYSTEM MENU" : 5090  : :I13:I:J138:"*";:J:"*":I I421:I":3:"SCREEN."3 16:4:"FOR DETAILS, CONSULT:"U 8:"THE MATHEMATICS TEACHER"o 13:"DECEMBER, 1983" 15:"PAGE 683" 5210 dI24:7:"PRESS ANY KEY TO CONTINUE. ";:R$1 x; p5040E z5:3c -ENTER SHORT DESCRIPTION "PROGRAM SIMULATES A SET OF BALLONS":3:"RANDOMLY DRIFTING IN THE SKY. A":3:"WINNER IS DECLARED WHEN THE FIRST":3:"BALLOON REACHES THE TOP OF THE"FROM", 16:8:"THE MATHEMATICS TEACHER"C ---ENTER VOL. NO.a 11:"VOLUME 76 NUMBER 9" 11:"(C) COPYRIGHT 1983" 23 (5210 --- GO TO DESCRIPTION .6000 2 <:23 F5210:I421:I:2:J237:" ";:J:" ":I P+ ZI13:I:J138:"*";:J:"*":IE I421:I:1:"*";:39:"*":Ia I138:"*";:I:"*":g q 5040 -- ARTICLE TITLE 5:11:"WILL'S BALLOON RACE" 7:18:"BY" -- AUTHOR'S NAME 9:11:"WILLIAM D. TRILLICH" 14:17:R(C)1 R(C)W120+ C115(C15)6 X1W? C,XF Xn "AVG HT ABOVE STARTING LEVEL:"T40 X11000:X "AGAIN? Y OR N: ";R$ R$"Y"ė::10 ::D$(4):D$"RUN SYSTEM MENU" , : 5090  :! : 5000 R(39):1W(930(1))=(C039H2R(C)0\<C115(C15)gFC,W1nPCtZ|dT0n"STARTING LEVEL FOR THIS RACE: "WxC(40(1))R(C)R(C)1TT1C115(C15)C,WR(C)0 C,W3-ENTER SHORT DESCRIPTIONe"AN EXPLORATION OF THE NUMBER":3:"OF RECTANGLES IN A DISPLAY."16:4:"FOR DETAILS, CONSULT:"8:"THE MATHEMATICS TEACHER"12:"SEPTEMBER, 1983"15:"PAGE 413"5210dI11:"VOLUME 76 NUMBER 6";11:"(C) COPYRIGHT 1983"C23M(5210g--- GO TO DESCRIPTIONq.6000w2<:23F5210:I421:I:2:J237:" ";:J:" ":IPZ24:7:"PRESS ANY KEY TO CONTINUE. ";:R$xp5040z5:9:"*":I% I138:"*";:I:"*":+ 5 5040K -- ARTICLE TITLEh 5:12:"RECTANGLE QUIZ"y 7:18:"BY" -- AUTHOR'S NAME 9:11:"LARRY STRASBAUGH" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO.F,HK,H 8X3ı BJ,DJ,I* LX4ı7 `F,GK,GB ~X5ı^ :"AGAIN? Y OR N: ";R$s R$"Y"ĉ::290{ : D$(4):D$"RUN SYSTEM MENU" : 5090  : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:3G D,HL,H F,DF,I( I,DI,I5 J,DJ,IB K,DK,IN B150:X 3000 D50:E75:F100:G115:H125:I150:J176:K200:L212 :6 X6ı F,DK,DK,IF,IF,D I,DI,I F,FK,F X1ı $F,EK,E )X2ı .00  FIGURE 1 1000% B9:4  FIGURE 2> 1000I :B18:X X FIGURE 3b b1000m B30:|  FIGURE 4 1000 B60:  FIGURE 5 *1000 pB90:  FIGURE 6 1000 D,DL,DL,ID,ID,D D,EL,E D,GL,RY WELL DONE!":"THANK YOU FOR PLAYING":3000t @ABĺ"VERY GOOD! YOU DESERVE":"A MORE CHALLENGING PROBLEM.":350 JABĺ"WRONG, TRY AGAIN.":CC1:C2310 T"THIS FIGURE HAS "B" RECTANGLES.":"THANKS FOR PLAYING.":3000 ^P11500:P:XX1:3 5000:+d ***********************An RECTANGLE QUIZPx BYg LARRY STRASBAUGH ***********************"X1,X400,500,600,700,800,900,9991C02:216"HOW MANY RECTANGLES DO YOU SEE? ";A- ;ABB150ĺ"VE     T THE JOURNAL." 5210 d 5:3" -ENTER SHORT DESCRIPTION^ "PROGRAM TO PROJECT THE WORLD'S":3:"POPULATION:":3: 3:"YOU ENTER THE CURRENT POPULATION,":3:"THE POPULATION GROWTH RATE, AND THE":3:"NUMBER OF YEARS YOU WISH TO PROJECT." 18:4:"FOR DETAILS, CONSULVOLUME 77 NUMBER 4"* 14:"APRIL, 1984"> 15:"PAGE 268"F 23P (5210j --- GO TO DESCRIPTIONt .6000z 2 <:23 F5210:I421:I:2:J237:" ";:J:" ":I P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z":  5040) -- ARTICLE TITLEM 5:10:"POPULATION PROJECTION"^ 7:18:"BY"t -- AUTHOR'S NAME 9:4:"DAN KUNKLE & CHARLES I. BURCH, JR." 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"X <I# F:"YEAR","POPULATION"? P:"AGAIN? Y OR N: ";R$Q ZR$"Y"ė:10t dD$(4)::D$"RUN SYSTEM MENU"z  : 5090  : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*591"5210dIE MATHEMATICS TEACHER"+15:"MAY, 1984"@15:"PAGE 365"J5210Pd " E :10:"THAT COMPLETES THE MENU."::"NO SELECTION MADE" 23:"DO YOU WISH TO RETURN TO THE MENU?":"ENTER 'Y' OR 'N': ";R$ R$"Y"ı D$(4)::D$"RUN END OF COMPUTER SESSION"" 22:"ENTER THE DESIRED NUMBER, OR":"PRESS RETURNE":3:"PREDATOR-PREY MODEL.":3::3:"EQUILIBRIUM POINT:":5:"300 RABBITS AND 200 WOLVES" 16:4:"FOR DETAILS, CONSULT:" 8:"THE MATHEMATICS TEACHER" 13:"FEBRUARY, 1984" 16:"PAGE 138" 5210 dI 23 (5210+ --- GO TO DESCRIPTION5 .6000; 2E <:23v F5210:I421:I:2:J237:" ";:J:" ":I| P Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$ x p5040 z5:3 -ENTER SHORT DESCRIPTION\ "PROGRAM TO SIMULATE TH5:3:"DIFFERENCE EQUATIONS: PREDATOR-PREY"< 7:18:"BY"R -- AUTHOR'S NAMEr 9:11:"LEONARD M. WAPNER" 14:17:"FROM" 16:8:"THE MATHEMATICS TEACHER" ---ENTER VOL. NO. 11:"VOLUME 77 NUMBER 2" 11:"(C) COPYRIGHT 1984"AIN? Y OR N: ";R$$ R$"Y"ė:100E D$(4):D$"RUN SYSTEM MENU"K S :] 5090c k : :I13:I:J138:"*";:J:"*":I I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE+  .04,.0002,.0001,.03E d"ENTER THE INITIAL NUMBER OF RABBITS: ";Rt n"ENTER THE INITIAL NUMBER OF WOLVES: ";W x"RABBITS","WOLVES": R,W T11000 RR(ARBRW) WW(CRWDW) R,W T "RABBITS","WOLVES": "AG 5000:' PREDATOR-PREY MODEL@ DELTA R = AR - BRWY DELTA W = CRW - DWf(A,B,C,D2 THE VALUES OF A, B, C, AND D< GIVEN IN THE DATA STATEMENTF BELOW WILL GIVE AN EQUILIBRIUMP POINT AT 300 RABBITS AND 200 WOLVES. Z  NTS"" d"WHICH YOU MAY INPUT.":H n"IN ORDER TO SEE YOUR 5 POINTS,"j x"AS WELL AS THE CONIC, KEEP" :" -13 "ENTER THE CURRENT POPULATION: ";X$:X(X$)D"ENTER THE POPULATION GROWTH RATE:":"EXAMPLE: 3% ENTER 1.03: ";A$:A(A$)"ENTER THE NUMBER OF YEARS: ";N$:N(N$)#:"YEAR","POPULATION"(I1N2XXA 7I,!!!!!!LT. OF U THEN UPDATE COUNTS ****O JH1H2:21:22JV);D((JH1)2);:Jx 3:JH1H2:Z140JS:X(JH1)2 / **** IF I A MULT. OF U, THEN UPDATE BARS **** 0K0(D(X)U):Z,159KZ2S,159K:K DJ: XI b24:"PRESS 'RETURN'QPM1 M1M1MS  **** FALL RIGHT (M=1) O R LEFT (M=-1) ****z A,T(J1)SAM(S1),T1(J2)S AAMS:J  **** D(X)= # BALLS IN REGISTER #X **** X(HM1)2:M10:D(X)D(X)1 IU(IU)600  **** IF I A MUI2: 140(R2J)SI,TRS140JSI2,TJSI2:I,J\ + **** MAKE SPACE AT TOP ****m ,YTST2S @140T2SY,Y140T2SY,Y:Y J TI1N:A140:C(I) g **** DROP BALL #I OVER H OBSTACLES **** hJ1H:Q(1) |QPM1 IGHT." :3:RH27 **** FORM BIG TRIANGLE ****` YTSTRS:140TY,Y140TY,Y:Y J1RR2:X140JS:X,T10RSX,158:J **** MAKE PATH AMONG OBSTACLES **** 0:JR111:IWW 140(R2J)SI,TRS140JSI2,TJS JANUARY 1984- PAGE 43'5000FC(I)1IC(IC):D(20)U(N,T,W,C,Vj< 200 ,-9,4,5,2sPP.5{dH7xS15U10 "FOR THIS RUN, EACH BALL MEETS H="H" OBSTA-CLES, EACH OF SIZE S="S", WITH PROBABILI-TY"P" OF FALLING TO THE R!! ! ! !    5000: 12?"THIS PROGRAM GRAPHS STRAIGHT LINES"j(:"IN THE GENERAL FORM AX + BY = C."2N12500:N: PAUSE LOOP<A7F:37,20:P:"GIVEN THE FORM AX + BY = C"Z"ENTER THE VALUE OF A: ";A d"ENTER THE VALUE O" 16:4:"FOR DETAILS, CONSULT:"C 8:"THE MATHEMATICS TEACHER"^ 12:"SEPTEMBER, 1983"r 15:"PAGE 434"| 5210 dI21:I:2:J237:" ";:J:" ":I( PW Z24:7:"PRESS ANY KEY TO CONTINUE. ";:R$] xg p5040q z5:3 -ENTER SHORT DESCRIPTION "PROGRAM TO FIND THE PRIME FACTORS":3:"OF ANY POSITIVE INTEGER.":3:"YOU INPUT ANY POSITIVE INTEGER."!  9:11:"CLARK KIMBERLING"2 14:17:"FROM"X 16:8:"THE MATHEMATICS TEACHER"o ---ENTER VOL. NO. 11:"VOLUME 76 NUMBER 6" 11:"(C) COPYRIGHT 1983" 23 (5210 --- GO TO DESCRIPTION .6000 2 <:23" F5210:I4 : 5090  :I :I13:I:J138:"*";:J:"*":Im I421:I:1:"*";:39:"*":I I138:"*";:I:"*":  5040 -- ARTICLE TITLE 5:7:"PRIME FACTORS OF AN INTEGER" 7:18:"BY" -- AUTHOR'S NAME 5000: FACTOR A>=2, "A= ";A7<I2A?FC0TZAI(AI)130^dAAIhnCC1px90}C0190I"^("C")*";A1195I1:"ANOTHER? Y OR N: ";R$R$"Y"ė:10D$(4):D$"RUN SYSTEM MENU" """"""-N$(15)"NOV.83:PG.572- GALTON QUINCUNX"VN$(23)"DEC.83:PG.683- BALLOON RACE"N$(24)"DEC.83:PG.684- NESTED RECTANGLES"N$(25)"DEC.83:PG.684- RANDOM SHAPES"N$(26)"DEC.83:PG.684- RANDOM WALK"N$(27)"DEC.83:PG.687- PASCAL'S TRIAN83:PG.591- SYSTEMS OF LINES-1"M @N$(18)"NOV.83:PG.598- SYSTEMS OF LINES-2"{ rN$(19)"NOV.83:PG.599- CONVERT TO BINARY" N$(20)"NOV.83:PG.600- CONVERT X<1:BASE 2" N$(21)"NOV.83:PG.600- FIBONACCI-BASED"N$(22)"DEC.83:PG.682- RANDOM LETTERSMES"4 N$(11)"OCT.83:PG.511- GCD OF TWO INTEGERS"d FN$(12)"OCT.83:PG.511- CONTINUED FRACTIONS" xN$(13)"OCT.83:PG.512- REV. CONTINUED FRAC" N$(14)"OCT.83:PG.512- PYTHAGOREAN TRIPLES" N$(16)"NOV.83:PG.591- STRAIGHT LINES" N$(17)"NOV.$(5)"SEP.83:PG.413- RECTANGLE QUIZ"R N$(6)"SEP.83:PG.434- FIND PRIME FACTORS" LN$(7)"SEP.83:PG.434- PRIME FACTORIZATION" ~N$(8)"SEP.83:PG.435- ALL DIVISORS" N$(9)"SEP.83:PG.436- FERMAT: TWO SQUARES" N$(10)"OCT.83:PG.510- RELATIVE PRIG.191- PYTHAGOREAN TRIPLES"I N$(41)"MAR.84:PG.205- ALGEBRAIC INVEST."v N$(1)"MAR.83:PG.168- SHIPBOARD WEATHER" RN$(2)"MAR.83:PG.185- STRAIGHT LINES" N$(3)"MAR.83:PG.195- ROUND ROBIN SCHED." N$(4)"SEP.83:PG.410- THE GOLF PROBLEM"$ N03- BACKWARD MULTIPLES"G N$(37)"FEB.84:PG.127- PROB. AT MC DONALDS"q N$(38)"FEB.84:PG.138- PREDATOR-PREY" &N$(39)"FEB.84:PG.140- ARMS RACE" XN$(35)"FEB.84:PG.120- RANDOM NOS.-3" N$(36)"FEB.84:PG.121- RANDOM NOS.-4" N$(40)"MAR.84:P d:N$(50)>N$(29)"JAN.84:PG.43- PROBABILITY MACHINE"dN$(30)"JAN.84:PG.51- FACTORIAL!"N$(31)"FEB.84:PG.93- APPROX. AREA / CURVE",N$(33)"FEB.84:PG.119- RANDOM NOS.-1"^N$(34)"FEB.84:PG.119- RANDOM NOS.-2" N$(32)"FEB.84:PG.1"" " " " " "