L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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 iõ`  \ 濭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- ( t Ϡ@跻~!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䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`P#K Z##HND6$DBASEBASEBASEHNBASEBASE^ $DBASEBASEBASEBASEHNBASEBASEj$VNDHNp$~'20:958'"PLEASE RESPOND WITH A,B,C,D,E OR F."$':"PRESS RETURN TO TRY AGAIN...".'J$8' V1V11:V2V21-V10V1VN:H1H11GV2VN1V21:H2H21N(IT2p|C1(V1)DXAX:C3C1DXC2AYHDY:C4C2DY(#DN(DN)DDN:N1:2#K1PP<#PKPRIME(K)F#(DPK(DPK))(NPK(NPK))DDPK:NNPK:9020H2((CDNU)VN),V2((CDNU)VNH2)VNNV2V21:V2VN1V21:H2H21`V21H2H21qV10V1VNI1CMOVEAXA1:BXB1HH1:VV1:55000:SPACE128003:2000AXA2:BXB2HH2:VV2:5500SPACE6:2800"IN REDUCED FORM: ";A$(5),K11000:K2"gN0N5A1176:B1276:A20:B2100:WMOVEN5:NUN0N0N5A10:B1100:A2176:B2276:WMOVEN0:NUN5CMOVECDNUWMOVECMOVECMOVEWMOVEH1((CDWMOVE)VN)V1((CDWMOVE)VNH1)VN(NTNK)(N0D0)(N5D5)İ5000d(NTNK)((N0D0)(N5D5))ĺ"THERE ARE ";NK;" SHADED BOXES."{"PRESS RETURN";S$"SINCE THERE ARE ";NK;" SHADED BOXES""AND THE COMMON DENOMINATOR IS ";CD;" SO THE""ANSWER IS ";NK;"/";CD;" ";NKN0N5NT$:NT(NT$)PNT$"F"(NT$,1)"H"ĺ"OK, I'LL HELP..":4062NT0ĺ"PLEASE, A POSITIVE INTEGER!":4030NTNKĺ"THAT'S RIGHT "N$;:K13:(7);:K:NTNKĺ"SORRY, "N$" THAT'S NOT RIGHT.":"I'LL HELP.":K12000:K"ޢ10, +"HOW MANY PROBLEMS DO YOU WANT?";NP4*+:N:" AFTER YOU DO THIS TYPE 'RUN'."+K&I:SFSF40::CD"DEMONSTRATION OF CONVERGENCE":lN"OF UPPER AND LOWER APPROXIMATIONS"X:"TO THE DEFINITE INTEGRAL."b:l"INSERT YOUR FUNCTION AT LINE 20":v"INSERT IT IN THE FORM:":" 20 DEF FNA(X)=..."%"BUT I'VE ONLY GRAPHED A FEW"$**AU180Y19:U280Y29CZ0Z279U10U1179U20U21791970SZ,U1:Z,U2[:k EMPTY SET22:22:"NO SOLUTION" WEIRD722:"ANY ORDERED PAIR WILL WORK"X1100:P(279(3)):Q(159(3)):P,Q: 10X140:U1809Y1:U2809Y2L:Z0Z279U10U1179U20U21791870\DZ,U1:Z,U2dN:X7:YFE:0,809Y279,809Ybl INTERSECTING LINESv7X1515.1Y1XD(2A)E(C2):Y2XD(2A)E(2C)Z10X140:6:X1313.1'Y(DXF)E7Y18010YMY10Y11791760^10X140,Y1dj HORIZONTAL LINES7C01880X1515.4:P(AX2DXFE2(4C))C23:P&Y1E(2C)(P):Y2E(2C)(P) 0Z0TA0H11690E^7:Y1515.4:P(CY2EYFD2(4A))AmhX1D(2A)(P):X2D(2A)(P)rZ110X1140:Z210X2140:U809Y|Z10Z1279Z20Z2279U0U1791680Z1,U:Z2,U:7:X140(FD)X,0X,159:(AC)):G3D(2A)$X2525.3JY1G1G2(XG3):Y2G1G2(XG3)oZ10X140:U1809Y1:U2809Y2Z0Z279U1179U10U20U21791580Z,U1:Z,U2"22:28:"-ASYMPTOTES-",:6 VERTICAL LINES@H11780JXT317115(WAX2CDXCFCE2(4C2)9W0W(W)GW01490iY1E(2C)W:Y2E(2C)WZ10X140:U1809Y1:U2809Y2Z0Z279U10U1179U20U21791490Z,U1:Z,U2: ASYMPTOTES1:G1E(2C):G2(DOMLY SELECTED."::"1. THE 1ST 14 TERMS WILL BE PRINTED OUT"j"2. THE 1ST 14 TERMS WILL BE GRAPHED":"3. YOU ARE TO DETERMINE THE LIMIT OF":" THE SEQUENCE IF IT EXISTS"::"READY":T$X(6(8)1):N0:C0:K10:K20:K30NOSITIVE NUMBER 'M' SUCH THAT"2b"ABS(A(N)-A)::"A SEQUENCE WILL BE RAN:SN5X20(X20)ĺ"PUSH RETURN TO CONTINUE":T$=:S&: SEQ LIMITS u02:10:"LIMITS OF SEQUENCES":::"AS YOU MAY KNOW...."D:"A SEQUENCE HAS A LIMIT 'A' PROVIDED EACH";N"POSITIVE NUMBER 'H' CAN BE PAIRED WITH A";X"P THE FIRST TERM":A15 "TYPE IN A COMMON RATIO":Rg "HOW MANY TERMS DO YOU WANT PRINTED OUT?":Nw :310:500 :"PUSH RETURN":T$ 1340 I90,370,1440 X1N:R1SNXA1 R1SN(A1A1RX)(1R)X;:6:A1R(X1);:2320)ĺ"PUSH RETURN TO CONTINUE":T$+ h:V r:2:"GEOMETRIC SEQUENCES AND SERIES" |4:"EXAMPLE..."::5:"1ST TERM =-4"::5:"COMMON RATIO = .5" : A14:R.5:N10 310 500 :"READY TO TRY A NEW ONE?":T$ :2:"TYPE INDO YOU WANT PRINTED OUT":N+ :310:330D :"PUSH RETURN":T$N "1340a 'I90,240,1440 ,2:10:"LIMITS OF SEQUENCES" 6"N";:10:"A(N)";:25:"S(N)" @: JX1N TX;:10:P(A1(X1)D);:25:P(X2(2A1(X1)D))# ^X20(XM = 5"::5:"COMMON DIFFERENCE = 3":A15:D3:N10= :F 310O 330t :"READY TO TRY A NEW ONE?":T$ :2:"ARITHMETIC SEQUENCES AND SERIES":"TYPE IN THE FIRST TERM":A1 :"TYPE IN THE COMMON DIFFERANCE":D :"HOW MANY TERMS ND SERIES"6 x:"2. GEOMETRIC SEQUENCES AND SERIES"W :"3. LIMITS OF SEQUENCES"l :"TYPE 1-3":I I0I3I(I)ĺI;" WON'T DO, ";:140 I170,370,550 :2:"ARITHMETIC SEQUENCES AND SERIES" 4:"EXAMPLE ..."5 :5:"1ST TER$ SEQUENCES, SERIES AND LIMITS> CHERYL LEMKE 1980_P(X)(X100000.5)100000h(175~2:5:"SEQUENCES"<10:"SERIES"F15:"LIMITS"PX12500:Z MENUd:4:"YOUR CHOICE..." n::"1. ARITHMETIC SEQUENCES A DERSTAND YOUR EQUATION":1095,4#Q811330?7#E53E13350]<#ZH(37):ZH:1:868:ZHcF#Q5:868:5:"ANOTHER EQUATION ON SAME SCREEN?";A$:(A$,1,1)"N"1020:(13);(4);"RUN MENU"IULT ACCOMPANYING WRITTEN"::"DOCUMENTATION FOR MORE INFORMATION":e"ON THIS PROGRAM.":8999:'#24:1:"PRESS 'SPACE BAR' TO CONTINUE";:X$:::(#768:E(222):E255ģ22015:43000-#(218)15ġ:Q902#E16Ģ23:868:23:"I CAN NOT UNU - LOOK ABOVE CURRENT SCREEN":5:"WINDOW":S"D - LOOK BELOW SCREEN WINDOW":{"L - LOOK LEFT OF SCREEN WINDOW":"R - LOOK RIGHT OF SCREEN WINDOW":"S - SHRINK (ZOOM IN)":"E - EXPAND (ZOOM AWAY)":32,0::8999E3:" CONSL EQUATIONS"::"MUST BE IN THE FORM:":v11:"Y = EXPRESION"::18:"- OR -"::9:"Y^2 = EXPRESION (FOR CONICS)":89993:" ONCE A RELATION IS PLOTTED, YOU MAY"::"CHOOSE ONE OF 6 OPTIONS CONCERNING THE"::"SCREEN WINDOW."-32,3::"$):(Z$,J,1)" "A$A$(Z$,J,1)1zJ:Z$A$:X:::3:15:"POLYGRAPH":::" POLYGRAPH WILL PLOT ANY MATHEMATICAL":b"RELATION EXPRESSED USING 'X' AS THE"::"INDEPENDENT VARIABLE, AND 'Y' AS":)l"THE DEPENDENT VARIABLE. ALZ4((MYR)100)100:1090JA$"":J1(Z$):(Z$,J,3)"SQR"A$A$"-"`A$A$(Z$,J,1):J3(A$):(A$,J2,3)"---"A$(A$,1,J2)(A$,J1,(A$)J):Z$A$:Z9(Z$):16:2:50Z$"Y=SQR("(Z$,5,(Z$)4)")":1098"pA$"":J1(ZELECTION":"3. END":I:I1I3I(I)ĺ:"TYPE IN 1-3":AFqPL$(1)"N/(N+1)":AN:BN1:D1:V1:P0:Q1:ZL$(2)"1/N":A1:BN:D0:V1:P0:Q1:dL$(3)"-1^N * 2N":A1N2N:B1:D999:V2:P10:Q10: nL$(4)"N/(2N+3)":AN:B2N3:D12:P11:35:J/ DJĺ:22:"CORRECT":1320N:22:"NO, IT'S ";D:13208:22:"SINCE IT'S":22:"DIVERGENT,"::22:"THERE'S NO LIMIT"(::22:"PUSH RETURN";:T$213407I90,650,1440;<:4:"1. MENU OF SELECTIONS":"2. SAME SV1Ė22:"WRONG!":22:"IT'S DIVERGENT"VV2Ė22:"WRONG!":22:"IT'S CONVERGENT"fZ11500:200:Z824:Z:22:" ":V213108:22:"SINCE IT'S":22:"CONVERGENT":22:"LIM ";L$(X);" = "24:"N-> INF"K0İ1420:6:1:"<-OFF":1120)B1420>L6:KK:"TERM";NMV5:K:"*"S`cjZ11500:t8:25:"IS THE SEQUENCE"~:25:"1. CONVERGENT":25:"2. DIVERGENT":25:"TYPE 1 OR 2 ";T:TVĺ:25:"CORRECT":1230(C)BC(BC)AAC:BBC:970%+6:N8G" ";N;:15ZB1ĺA;:1030yB0A0ĺ1;"/";B;:1030(A);"/";BK(K2(ABP)K1)KKKK40İ1420:6:35:"OFF->":1120$K40K39.K35(K)39KK35850>QP6K40K41:8500HK439K41860<RK4:Y;K\K3K3W:Tf110kp REDUCE FRACTIONSz:8:"# OF TERM A(N)"N114:X1360,1370,1380,1390,1400,1410ABR(A):930R(B)R2970CR21AC(A1 NUMBER LINE9X1360,1370,1380,1390,1400,1410W:2:13:"A(N) = ";L$(X)aK30x5:Z039:"-";:K1(40(QP)) K2(40K1(QP))2W1:QP6W2 4:YPQW:K4K2K3K1*Y0K4K414QP6K440K439:8THE SAME POLYNOMIAL, BUT FOR A DIFFERENT NUMBER OF TRIANGLES"}"3 INDICATES YOU WISH TO WORK WITH A DIFFERENT POLYNOMIAL""ENTER 0,1,2, OR 3"HH700,310,220,110570 AZXZ0700bZ1310*lZ22207vZ3110k"0 INDICATES YOU WISH TO PROGRAM TO TERMINATE""1 INDICATER YOU WISH TO CONTINUE WITH THE SAME POLYNOMIAL""-----OVER THE SAME INTERVAL,BUT FOR A DIFFERENT INTERVAL"="2 INDICATES IS ";N;"."# "THE FUNCTION IS "J A;"X^3+ ";B;"X^2+ ";C;"X+ ";D;"."P  "THE APPROXIMATION TO THE AREA IS *****";T;"*****" & 0 :"SELECT ONE OF THE OPTIONS (0,1,2, OR 3); IF YOU DO NOT KNOW WHAT" D"THE OPTIONS ARE TYPE A 4"N400 NP4309 "N MUST BA A POSITIVE WHOLE NUMBER"Z "LESS THAN 500. TRY AGAIN"c 320l T0{ W(SR)N XR(SW)W TT(AX3BX2CXD)  TTW "THE INTERVAL IS (";R;",";S;")." "THE NUMBER OF RECTANGLESD S, REMEMBER R "O.K., ASSIGN NUMERICAL VALUES TO A,B,C, AND D."I "A=";P A[ "B=";b Bm "C=";t C "D="; D SELECTING AN INTERVAL ON THE X-AXIS "SELECT AN INTERVAL (R,S) ON THE X-AXIS" "BY ASSIGNING VALUES TO R AN RECTANGLES WHOSE SUM WILL BE AN APPROXIMATION"Y <"TO THE AREA WE ARE TRYING TO FIND." F"THE POLYNOMIAL FUNCTION IS OF THE FORM" P Z"A*X^3+B*X^2+C*X+D" d n INDICATE THE POLYNOMIAL x"YOU CAN GIVE ANY VALUES (INCLUDING 0) TO A,B,C,9 "THIS PROGRAM COMPUTES APPROXIMATIONS TO THE AREA"v"BOUNDED BY THE X-AXIS AND THE GRAPH OF ANY POLYNOMIAL""FUNCTION OF DEGREE THREE OF LESS OVER AN INTERVAL OF"("THE X-AXIS. THE METHOD USED TO APPROXIMATE THE AREA"/ 2"IS TO BUILD     3 Y10000!ZX110:"":Xx[G$::(10):10)"THE EQUATION OF THAT GRAPH WAS"::10)"Y = "AB;" "F$;" "BB;"X."\:::h"WHAT IS THE AMPLITUDE?jGA::"WHAT IS THE PERIOD?"kGB::(5)lXY((1)51)mGAAB375rGB2BBRAPH":"BEFORE PRESSING THE SPACE BAR.":"I'LL BEEP WHEN I'VE COMPLETED EACH":"GRAPH."d::MO$G$::RA0:KW0:KI0:KH0 AB((1)71)CC((1)41)CC326,327,328,329FBB.5:340GBB1:340HBB2:340IBB4:340T:TION. I'LL DRAW A GRAPH OF":"THE EQUATION"::10)"Y = A "F$" BX."::5)"YOU'LL BE ASKED TO DETERMINE THE":"PERIOD AND AMPLITUDE OF SEVERAL":"GRAPHS."::MO$G$W:(10):"REMEMBER TO DETERMINE THE AMPLITUDE":"AND PERIOD OF EACH GW YOU MAY SELECT EITHER THE":"SINE OR THE COSINE FUNCTION":"TO STUDY MORE CLOSELY.":::"TYPE '1' FOR SINE OR '2' FOR COSINE."KTKT2F$"COS":250KT1:F$"SIN":(10):5)"YOU'VE ELECTED TO STUDY THE"::18)F$::D"FUNCG$:::3:KT2100002X15:"":X:G$::(10):5)"NOW I'LL DRAW THEM BOTH ON THE":"SAME AXIS. WHICH IS WHICH?"::15)MO$:G$::7:KT1:10000KT2:T0:3:10000X15:"":XG$::T1:(10)[5)"NOLOWER BOUND,"3"THE AMPLITUDE, AND THE PERIOD."H::15)MO$:G$S::7fAB1:BB1:KT1q10000X15:"":XG$::(10)5)"HERE'S THE GRAPH OF 'Y = COS X'":"SEE IF YOU CAN TELL THE DIFFERENCE."::15)MO$E EACH GRAPH,":"YOU'LL NEED TO PRESS THE SPACE ":"BAR TO CONTINUE THE LESSON.":"I'LL 'BEEP' WHEN I'VE FINISHED":"A GRAPH."::MO$:G$ :5)"HERE'S THE GRAPH OF A SINE WAVE."::"SEE IF YOU CAN IDENTIFY THE LEAST":"UPPER BOUND, THE GREATEST )"VALUES REPEAT THEMSELVES":10)"EVERY 2 PI UNITS." ::5)"2. THEY ARE BOTH 'BOUNDED' ":10)"ABOVE BY +1 AND BELOW BY -1 " 10)"THIS GIVES THEM AN 'AMPLITUDE'":10)"OF '1'.":::15)"PRESS SPACE BAR" G$~:(10):5)"AFTER I COMPLETING YOU WITH ARE THE"2 "SINE AND COSINE"::: 5)"HERE'S SOME NICE THINGS TO KNOW AND":"REMEMBER ABOUT Y = SIN X AND":"Y = COS X." :::5)"1. THEY ARE PERIODIC. BOTH HAVE A":10)"PERIOD OF 2 PI."4 10)"THIS MEANS THE FUNCTION":10S THE SPACE BAR WHEN YOU'RE"S "READY TO GET WITH THE....":::17)"PROGRAM!!!"[ G$d 170 :(10):5)"I APPRECIATE YOUR ENTHUSIASM,":"SO LET'S GET RIGHT TO WORK." X12000:X :5)"THE TRIGONOMETRIC FUNCTIONS":"THAT I'LL BE HELP FAIR TO YOU?"A ::"TYPE 'YES' OR 'NO',THEN HIT RETURN KEY."J SR$] SR$"YES"160 :(10):5)"IT MAY NOT REALLY BE FAIR, BUT":"SINCE I'M THE ONE DRAWING THE PRETTY" "PICTURES, I'LL HAVE TO DISREGARD":"YOUR PROTEST!" :::"PRES0:V1:Q1:ExL$(5)"N^2 / (N+1)":AN2:BN1:D999:P0:V2:Q20:L$(6)"1- N^2 / (N+1)":AN1N2:BN1:D999:P12:Q2:V2::6:" "(4);"RUN MATH ANALYSIS CHAIN"2000: D$(4)1 X(16384):X1272000B X1552050P 16368,0t D$;"RUN MENU": D$=(CTRL-D) :255:::CPH140H ZK20(80K)* d"INPUT A";A3 iAA; jN0H nX1279Z xYA(XH)2Ke YY20x Y0Y159160 N1 X,Y 165 N1170 X C :24:"HIT ANY KEY TO CONTINUE OR HIT TO RETURN TO MAIN PROGRAM."  :: 3)0,80279,80<(140,0140,159)100:24:"THIS PROGRAM WILL PLOT SEVEN ":"PARABOLAS WHERE F(X)=A*(X-H)^2+K "*"WITH (H,K) THE VERTEX.":2552C177C4Ē6:70<CF"INPUT COORDINATES FOR VERTEX ";H,K   4600 :::MO$:G$::(15)r5)"LET'S TRY ANOTHER ONE OF THOSE TO":"SEE IF YOU'VE GOT IT YET.":::MO$G$::265KIKI1XY520,530,5405)"YOU WERE RIGHT ABOUT THE PERIOD, BUT":"THE AMPLITUDE WAS "AB;:550F5)"IF EVER HAT STATEMENT. THE CORRECT"H"PERIOD OF THE GRAPH WAS "2BB".":4205)"TRICKY, WASN'T IT? YOU GOT THE":"AMPLITUDE CORRECT, BUT YOU DIDN'T":"FARE SO WELL WITH THE PERIOD. THE""CORRECT PERIOD FOR THAT GRAPH":"WAS "2BB;".":420KWUT"p"WHAT THE PERIOD IS, JUST DETERMINE":"HOW FAR YOU HAVE TO GO OUT ON THE":"X-AXIS BEFORE THE Y-VALUES""BEGIN REPEATING.":4205)"THE PERIOD IS SOMETIMES HARDER":"TO DETERMINE THAN THE AMPLITUDE.":"YOUR ANSWER APPEARS TO SUPPORT":"T500 u575wGB2BB700*|KWKW1>~XY390,400,4105)"YOU'RE PARTIALLY RIGHT, THE PERIOD":"WAS "2BB;"PI. YOU SHOULD HAVE":"JUST ENTERED "2BB"."4205)"YOU GOT THE AMPLITUDE CORRECT, BUT":"THE PERIOD WAS "2BB;". TO FIND O,0140,159::1 (4);"RUN MATH ANALYSIS CHAIN"73P0M.02,A$"COS"RWC(ZP)GA$"SIN"RWC(ZP)`XR(P):YR(P)|Y1809Y:X110X140Y10Y1159X10X1279750X1,Y1P:"PUSH RETURN WHEN READY TO CONTINUE":R$:100 :6:0,80279,80::140 FUNCTION...SIN OR COS?":A$Sl:"R= ";A$;"(Z*0) ... CHOOSE A VALUE FOR Z":Zv:"R= C*";A$;"(";Z;"*0). . . CHOOSE C":C"R= W + ";C;"*";A$;"(";Z;"*0). . . CHOOSE W":W"RADIANS":M22:"R = ";W;" + ";C;"*";A$;"(";Z;"*0)"770:CP(P)140:Y80CP(P)(X,Y:P5T1475@&TT1n021:"R=";C;"*0 ..... ARCHIMEDES SPIRAL":"PUSH RETURN WHEN READY TO CONTINUE";:T$D100N BUILD AN EQUATIONX::b"YOU'RE GOING TO BUILD AN EQUATION..... CHOOSE A ENTER WHEN READY TO CONTINUE":B$:1009 ARCH SPIRALt:6:17:"R=C*0":::5:"(RHO = A CONSTANT * THETA)":" CHOOSE A CONSTANT BETWEEN -5 AND 5":CC5C5ĺ"OUT OF RANGE":470M0:N12.56:Q.05770:7PMNQX80:22:"A HORIZONTAL LINE THROUGH THE POLE"::440 P90(P90)āX1900::2:140,0140,159:22:"A VERTICAL LINE THROUGH THE POLE"::440 R8080:XRW:YRV.85:X140,80Y:R 21:"0=";P;" DEGREES OR Y = TAN(";P;")*X" '"PUSHREADY TO CONTINUE";:B$:100@ T POLAR LINE 0=MEASURE OF ANGLE ^:4:17:"0 = C":::5:"THETA = DEGREE MEASURE OF AN ANGLE" h:"YOUR CHOICE . . .":P r770:1: |P1P.017453:W(P1):V(P1)3 P180(P180)āX1900::2:0,80279,70( "OUT OF RANGE... TRY AGAIN":2306 770:3:g P06.28.05:X8C(P)140:Y807C(P)w "X,Y:P:22 ,"R=";C;" OR X^2 + Y^2 =";C2 6:C0ĺ"A SINGLE POINT":330 @"A CIRCLE WITH A RADIUS OF ";(C) J"PUSH RETURN WHEN ": TE T0T5T(T)ĺ"YOU MUST TYPE IN 1,2,3,4 OR 5":180` T210,340,450,590,780 : RHO=A CONSTANT--CIRCLE 5:16:"RHO = C" :2:"(C IS A CONSTANT BETWEEN -10 AND 10)" : :"YOUR CHOICE ...":C C10C102PH THE EQUATION OF YOUR CHOICE."I n6:6:"1. R = C (RHO = A CONSTANT)"O x| 6:"2. 0 = C (THETA = DEGREE OF ANGLE)" 6:"3. R=C*0 (RHO = CONSTANT * THETA)" 6:"4. EQUATIONS INVOLVING SIN AND COS" :6:"5. END THE PROGRAM8  *** ADVANCED MATH ***#< ** POLAR GRAPHS **P( *** LEMKE ***e2 *** 1979 ***n7255t<F:6:16);"GRAPHS":12:18);"OF"P18:12);"POLAR EQUATIONS"ZX11000:X d::4:"YOUR WISH IS MY COMMAND":3:"I'LL GRA     1,1)"Y"FA1:1020,(A$,1,1)"N"2010w5:868:5:"ANOTHER EQUATION ON SAME SCREEN?";A$:(A$,1,1)"N"1020(A$,1,1)"Y"20201090 Z3Z11.75:Z4Z21.75 15:868:15:"MEAN Y VALUE?";MY R(Z4Z3)2:Z3((MYR)100)100::Z2R1SX10:Z1R1SX10:1800zX$"E"R1(Z4Z3)2:Z4R1ST10:Z3R1ST10:R1(Z2Z1)2:Z2R110SX:Z1R110SX:1800::1:"ANOTHER GRAPH?";A$:(A$,1,1)"N"57(A$,1,1)"Y"2000FA0:3:868:3:"REUSE THE SAME EQUATION?";A$:(A$,""/vR1Z2Z1:X$"R"Z1Z1R1:Z2Z2R1:1800SX$"L"Z1Z1R1:Z2Z2R1:1800R1Z4Z3:X$"D"Z4Z4R1:Z3Z3R1:1800X$"U"Z4Z4R1:Z3Z3R1:1800SX(Z2Z1)2:ST(Z4Z3)2X$"S"R1(Z4Z3)2:Z4R1ST10:Z3R1ST10:R1(Z2Z1)2YZ3Z3Y(YZ4Z4Y'2XZ21310S<Q80:Z3(Z3):Z4(Z4.99):ZF1Z3Z4]F1100fxST1xV1V10ıV1VV10:STST10:1410VV10:STST10:1410:1096l16368,0:24:"PRESS U,D,L,R,S,E, OR 'SPACE BAR'";:X$::ZL$ЭZ3J01260ZC158ZC158AZZ,ZC1ZY,ZC1:ZZ,ZCZY,ZCJ:J0Z4ST:ZC159(Z3J)(Z4Z3)159:ZC0ZC1591290Z3J01290ZC158ZC158ZZ,ZC1ZY,ZC1:ZZ,ZCZY,ZC J:Z39999:Z49999:XZ11:Q81 XX1:15: ";(Z41000)1000;" SCALE = ";STOKZ1:XX0:JZ1Z2SX:KKSX:J0XXKSXyJ:Z5(Z1XX)(Z2Z1)279:Z50Z50Z5279Z5279ZZZ55:ZYZ55:ZZ0ZZ0ZY279ZY279J0Z3ST:ZC159(Z3J)(Z4Z3)159:ZC0ZC1591260 )(Z2Z1)279:ZC0ZC27912302ZC278ZC278TZC1,ZZZC1,ZY:ZC,ZZZC,ZYJ:J0Z2SX:ZC(Z1J)(Z2Z1)279:ZC0ZC2791242ZC278ZC278ZC1,ZZZC1,ZY:ZC,ZZZC,ZYJ!23:868:23:"VERTICAL: ";(Z31000)1000;" TOHORIZONTAL: ";(Z11000)1000;" TO ";(Z21000)1000;" SCALE = ";SXqKZ3:XX0:JZ3Z4ST:KKST:J0XXKSTJ:Z6159((Z3XX)(Z4Z3)159):Z60Z60Z6159Z6159ZZZ65:ZYZ65:ZZ0ZZ0ZY159ZY159J0Z1SX:ZC(Z1J2:(Z$,I,3)"SQR"ZF1:.KI:ZL$"Y"1300RL16304,0:2:1200:XZ1Z7:Q90~(Z3)(Z4)ē0,Z6279,Z6:0,Z61279,Z61(Z1)(Z2)ēZ5,0Z5,159:Z51,0Z51,1593:50V(Z2Z1)2:1400:SXST:V(Z4Z3)2:1400C22:868:22:"";Z39 $17:868:17:"MAXIMUM Y?";Z4:Z3Z4Z3Z41050h B19:868:19:"NUMBER OF PLOT POINTS?";ZP G16:FA1Ģ21:868:21:"INPUT YOUR EQUATION? ";Z$:6000 HZ7(Z2Z1)ZP:21:868:21:Z$:(Z$,2,1)"^"5000JZ9(Z$):2:ZF0:I1(Z$)2:Z1Z2Z1Z21020a 11:868:11:"SHOULD I COMPUTE THE Y LIMITS?";ZK$:(ZK$,1,1)"Y"1050 13:868:13:"EQUAL SPACING?";A$:(A$,1,1)"Y"3000 (A$,1,1)"N"1045 ZL$"Y":1090 (ZK$,1,1)"N"1040 15:868:15:"MINIMUM Y?91:50 PZC,ZD Z50e 8190:I768777:Y:I,Y:I:104,168,104,166,223,154,72,152,72,96:16 ZO$"+-*/^>=<":ZA$"SGNINTABSSQRRNDLOGEXPCOSSINTANATN":7000:9000 7:868:7:"ENTER MINIMUM X?";Z1:Q90:62450 9:868:9:"MAXIMUM X?";Z 2XZ253 3XXZ7:157 4ZC(Z1X)(Z2Z1)279^ 5XZ2ZF1XZ1Z7:ZF0:Q90:4000m 8XZ21900 9XZ2İ16:22016:43000 :ZC0ZC279Q90:50 <ZD159(Z3Y)(Z4Z3)159:ZD0ZD159Q90:50 BZ3Y0Q90:50 FQ90ēZC,ZD:Q,1)):ZHZH1:ZI:i ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ZI23262406:ZI,58:: COPYRIGHT 1979 MECC NAME: POLYGRAPH VERSION 10/22/79 AUTHOR: DARRELL RICKE #LANGUAGE: APPLESOFT (FP) (1000:SEE LINES 20-35 FOR REMARKSkZH2326:ZI1Z9:ZJ010:(Z$,ZI,3)(ZA$,3ZJ1,3)ĂZJ:11 ZH,(210ZJ(ZJ2)5):ZIZI2:ZHZH1:ZI ZJ07:(Z$,ZI,1)(ZO$,ZJ1,1)ĂZJ:14 ZH,(200ZJ(ZJ4)2):ZHZH1:ZI ZH,((Z$,ZI         'T GET THAT ONE."7755)"YOU THINK YOU'RE PRETTY GOOD, DON'T":"YOU? WELL THAT WAS EASY. THE":"NEXT TIME I'LL GET YOU THOUGH, EH?"7755)"YOU DID IT!!!!"775+3)"ARE YOU TRYING TO RUIN MY REPUTATION?":"I CAN'T SEEM TO MAc875g:172%RARA1:(15)4RA3ī800PXY720,730,740,750,7605)"THAT'S NOT TOO SHABBY, BUT I THINK":"THE NEXT ONE WILL STUMP YOU."7753)"I'M GLAD I'M NOT A GAMBLER - - -":"I'D HAVE BET MY 'ASTERICK' (*)":"YOU WOULDNTO BE HAVING TROUBLE.":"IF YOU WOULD LIKE TO REVIEW THE ":"INFORMATION AT THE BEGINNING OF THE":"PROGRAM, YOU MAY."[:"IF NOT, I RECOMMEND SEEING YOUR":"TEACHER FOR ASSISTANCE."::"TYPE 'YES' TO REVIEW OR 'NO' TO STOP."`L$bL$"YES"615"AB::&KI46000425:?KHKH1:KIKI1:KWKW1H@KH2600D5)"THAT WAS A ROUGH ONE, WASN'T IT?":"LET'S TRY SOME MORE NOW."E::"THE PERIOD WAS "2BB;", AND THE":"AMPLITUDE WAS "AB"."I::15)MO$:431vX(15):5)"YOU SEEM THERE WAS A HALF TRUTH YOU'VE":"JUST FOUND IT. THE PERIOD REALLY IS"s GB;" BUT THE AMPLITUDE WAS "AB;".":5505)"YOU GOT THE PERIOD, BUT THE AMPLITUDE":"WAS "AB:5505)"GOOD TRY! YOU FIGURED THE PERIOD":"CORRECTLY, BUT THE AMPLITUDE IS NOT COMPLETELY REDUCED"4"WHEN YOU ENTERED IT.">::r"WOULD YOU OR A FRIEND LIKE TO TRY":"AGAIN ";z.Q$8(Q$,1)"Y"60B I ANOTHER PROBLEM."::?"PRESS RETURN TO CONTINUE";I$I::PNZ936"ON THIS DRILL "K$" WORKED "N1" PROBLEMS.""YOU WORKED "R" PROBLEMS CORRECTLY."S01040:"ON "C1" PROBLEM(S), THE ANSWER YOU":"GAVE WASOWEST TERMS:"Y\"DIVIDE BOTH THE NUMERATOR AND THE":"DENOMINATOR BY THE SAME NUMBER."dfCTT2p:"IN THIS PROBLEM BOTH NUMBERS ARE":"DIVISIBLE BY "Cz:T"/"C" = "T2:B"/"C" = "B2"SO!!!! "T"/"B" = "T2"/"B2::"LET'S TRY BAD, BUT NOT QUITE RIGHT."V T"/"B" = "T1"/"B1" BUT IT ISN'T":"IN LOWEST TERMS."r::"LET'S TRY AGAIN."{ 430*"IS "T1"/"B1" YOUR ANSWER";4A$>(A$,1)"Y"430H"I'M AFRAID YOU MADE A MISTAKE." R"TO REDUCE A FRACTION TO L PSK1! B1A(P)(10B1)( P8 B1B2740H T1T2740R ::x "VERY GOOD, "T"/"B"="T2"/"B2" !" "AND YOUR ANSWER IS IN LOWEST TERMS." RR1 930 TT1(TT1)810 TT1BB1810 C1C11::"NOT REAL(S))0520 S% :"WHAT???":. 3709 KSAR A(K)(9A(K))0530Y Kg T10:B10t PSK1 !T1A(P)T110 &P 0SKA :A(S)(9A(S))0600 DS N490 XKSA bA(K)(9A(K))0640 lK v650 KK1 -- TO LOWEST TERMS" 420E N". REDUCE -- TO LOWEST TERMS"Z " "Bw "WHAT IS YOUR ANSWER "; A$ A(A$) K1A X$(K)(A$,K,1) A(K)(X$(K)) K K1A A(K)A(K)48 K S1A A(S)(9A:T2T K2T2( T2K(T2K)330? "B2K(B2K)330K ,B2B2KW 6T2T2K` @270g JKu TBB2220 ^936:"ENTER YOUR ANSWER USING THE SLASH '/'" h"FOR THE FRACTION LINE." r |" "T N10410 N". REDUCE REETINGS, "K$;". I AM THE APPLE II"+ }:S :"TODAY WE ARE GOING TO PRACTICE"n "REDUCING FRACTIONS."t ::"HOW MANY PROBLEMS WOULD YOU LIKE"; N1 N10150 936 N1N1 B(97(1))4 T((B2)(1))2 B2B  TITLE - REDUCET THIS IS AN INTERACTIVE CAI LESSON ON REDUCING FRACTIONSo# ENTERED FOR APPLE BY$ SUSAN MANUEL( GRADE LEVEL IS 5 - 122A(72)<936FC10:R0:C0P::"HI! WHAT IS YOUR NAME";nK$s:# x:"G      TO CONTINUE THIS,":"TYPE '2' IF YOU WANT TO STOP,":"OR TYPE '3' TO STUDY THE OTHER TRIG":"FUNCTION."r!CLL:!ELL810,860!H230!\(10):5)"ITS BEEN FUN":5)"ITS BEEN FINE":5)"THIS AIN'T A POEM":5)"'CAUSE THE WORDS DON'T RHYME.""a:"ARE YOU TRYING TO CRUNCH MY":"CIRCUITS? PLEASE ENTER A NUMBER":"LESS THAN 8, OKAY?"` .806 /::5)"ENTER A VALUE FOR 'B'.":BB 3::7:10000 4X15:"":X:G$ 9::(10)h!?5)"YOU MAY NOW EXERCISE ANY OF THREE":"OPTIONS, TYPE '1'5)"TELL YOU WHAT I'M GOING TO DO.":"YOU GIVE ME SOME VALUES FOR ":"'A' AND 'B' IN THE EQUATION"%"'Y = A "F$" BX ', AND I'LL SEE IF":"I CAN GRAPH IT FOR YOU."&:MO$:G$:*(15):5)"ENTER A VALUE FOR 'A'.":AB,AB8815W -:(10):5)KE THESE QUESTIONS":"HARD ENOUGH FOR YOU."4775~5)"SO YOU GOT LUCKY! BUT I HAVE A ":"DANDY IN STORE FOR YOU NOW.":::MO$G$::265 5)"WELL, I FINALLY HAVE TO FACE THE":"FACTS. - - YOU REALLY KNOW YOUR":"STUFF.a#:::STAFF.~d}:<><> COPYRIGHT (C) AUGUST 1979 BY MINNESOTA SCHOOL DISTRICTS DATA PROCESSING JOINT BOARD (TIES). C  2100"*D(A)((A2)A2)/4KDB2?>C3(K)2THKC(KC)2150[RCg\K;" ";nfKtp~z1060}:<><> CONVERTED FROM HP2000F BASIC TO APPLESOFT BASIC, SUMMER 1979, BY TIES INSTRUCTIONAL DESIGN AND DEVELOPMENT 940 C1XDB%A2(X):XA(XA)1990AAKCC1RXp"THERE ARE ";C;" PRIMES""BETWEEN ";D;" AND ";B1060 PRIME NUMBER LIST"PRIME NUMBERS BETWEEN ";A;" AND ";B;" :"A22090 "2 ";D3TORIZATION OF ";N;" IS "&N117704" 1 * 1">1060KD2N1`ND(ND)1820gDuD," * 1"1060NND&N118600D"*";:1780DDN1060X PRIME NUMBER COUNT bDAlD11930vC016BD(BD)1610@1570$JD.T1060R^ LEAST COMMON MULTIPLE (LCM)[hN1frMBN{|MA(MA)1690NN11650M;" IS THE LCM OF ";A;" AND ";B1060 COMPLETE PRIME FACTORIZATIONNA"THE PRIME FACACTOR LIST MA4 "THE FACTORS OF ";M;" ARE ";? D1MT MD(MD)1510[ Da k 1060w D;" "; 1480  GREATEST COMMON FACTOR (GCF) "GCF OF ";A;" AND ";B;" IS "; DA AD(AD)1590 "DD1 ,1560) A0ABB100014208 ("CHECK ENTERED NUMBERS"B 21230H <x F"ENTER NUMBER FOLLOWED BY ";::"RETURN": PA Z dA(A) nA0A50001420 x"CHECK ENTERED NUMBER" 1340 P1430,1530,1630,1710,1880,2030,2180  FRIME NUMBER LIST"! "7 = STOP"@ :"OPTION? TYPE 1-7 : ";G PN P` P1P71100r P1P41340 P72180  "ENTER NUMBERS SEPARATED BY A COMMA," "AND FOLLOWED BY ";::"RETURN"  A,B  A(A) B(B936: (CZCZ1@ ." FACPAC "o 8" FACTOR PACKAGE "w B: L:"1 = FACTOR LIST" V"2 = GCF" `"3 = LCM" j"4 = COMPLETE PRIME FACTORIZATION" t"5 = PRIME NUMBER COUNT" ~"6 = PORESMAN CAMP SERIES * x  * REVISED TIES, DECEMBER 1973 *  ******************************************************************* $CZ01063 %" PRESS RETURN TO CONTINUE":A$ ': L *******************************************************************  * THE FOLLOWING REMARKS ARE FROM THE ORIGINAL TIMESHARE VERSION. *  * FACTOR PACKAGE * -  * ADAPTED FROM SCOTT-F       '$'R10.4'&'SK(12AB)+')'M01260SK7'.'VM.01G'3'KT1İ5000W'8'KT2İ6000b'='XV20m'B'Y(Y)|'G'X15,80Y'L'M'V'            ***** # 1 ***********(&A2,BA2,B7.&$M&t********* PI ************\&~A,BA7,Bo&A3,BA2,B5&A5,BA6,B5&&YAB(BBV)R.001&&pYAB(BBV)R.001&z&'***********VALUE COMP ******&'T010020&'1000% %% ********** # 4 ***********<% A,BA,B4A4,B4O% A4,BA4,B7U% u%H ********** # 3 ***********%R A,BA5,BA2,B3A5,B5A3,B7A,B5%\ % ********** # 2 ***********% A,B2A3,BA5,B2A,B7A5,B7% &******* # 7 ************0$ A1,B1A4,B1A2,B66$ V$ ******** # 6 *************$& A4,BA1,B1A,B3A,B6A2,B7A4,B6A4,B5A3,B3A,B4$0 $ ********* # 5 ***********$ A4,B1A,B1A,B2A3,B2A4,B4A4,B5A2,B6A,B517#$BR103:#)R3000,3100,3200,3300,3400,3500,3600F#LB155BW#V0,B32,B3#`R3000,3100,3200,3300,3400,3500,3600#eR#jA75:B90#o3700#tX24#yAX644#~X3000,3500,3400,3300#AA7#3700#X#$ ******::MO$"fG$,"k:(20):15)"BYE, NOW."="pX12000:XE"u:d"****COORDINATE AXIS******u"0,80279,80"15,015,159"H4627732"H,79H,81"H"B015010" 14,B16,B"B"*********VERT ID*******"A3#RHIS, "A$"?"E1 E110Ā?E1(E1)E11E110980h"YOUR CHOICES ARE FROM 1 TO 9 ONLY"q930w} A"NO, THE CORRECT ANSWER WAS "C1*R790?\G100(F.5S)NEfKptz"YOU GOT "F" PROBLEMS RIGHT ON THE"|"FIRST TRY"S" PROBLEMS RIGHT ON THE SECOND TRY""THIS GIVES YOU A SCORE OF "G" %"990 "WHAT TYPE OF EQUATION IS T1N10860,"TRY ANOTHER PROBLEM"28>F95p"NO, YOU ARE INCORRECT...TRY AGAIN."y930E1C1840SS1 "GOOD, SO YOU GOT IT RIGHT THIS TIME"N10860 "TRY ANOTHER PROBLEM"*4>95!HNOWN,ONLY PART OF IT WAS VISIBLE IN THE BOOK,IN LINE 520***D 560M C17V &630u 0(A0B0C0D0E0)580~ :600 DC18 N630 X(A0B0C0D0E0)620 b630 lC19 v930  E1C1740 "YOU ARE CORRECT"FF0B0)(B0A0D0)420$ 440- C146 630S (A0B0C0D0)460\ 480e C15n 630 (B0D0A0)(A0C0B0)500 520 C16 630 (A0B0C0D0)(A0B0D0C0)540; ***THE NUMBER '540' WAS UNK(3)115) D((4)115)0 E((5)115)6 b "A"X^2 + "B"Y^2 + "C"X + "D"Y + "E"= 0"h ,z 6ABA0340 @C11 J630 T(A0B0)(A0B0)370 ^C12 h630 r(A0B0)(A0B0)400 |C13 630 (A0C0)"4 PARABOLA"$ 20)"5 LINE"> 20)"6 TWO POINTS"W 20)"7 ONE POINT"t 20)"8 UNIVERSAL SET" 20)"9 EMPTY SET" 19)"10 TYPE '10' TO EXIT" N0 F0 S0 A((1)115) NN1 B((2)115) C( WILL PRINT THE EQUATION"B U"AND YOU WILL HAVE TO IDENTIFY IT."J ^:^ _"(HIT RETURN)"g aZZ$m c d"YOUR CHOICES WILL BE (USE THE NUMBER" i"NEXT TO THE WORD)" n20)"1 CIRCLE" x20)"2 ELLIPSE" 20)"3 HYPERBOLA" 2 A$(12)9"PLEASE TYPE IN YOUR FIRST NAME"GA$:::p("IN THIS PROGRAM YOU WILL IDENTIFY"-"QUADRATIC EQUATIONS."2:<"EACH EQUATION WILL BE IN THE FORM"F"AX^2 + BY^2 + CX + DY + E = 0."K:: P"THE COMPUTER     I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4 ` $$$$$$$$$$$$$$----------  KEY TO BEGIN ADDING";:G$:,RSP(SH1)HCY\SP(SH1)255SP(SH1)SP(SH1)256:860lfFB2(HC256)zpK0:V0:BENTER NAME OF TABLE TO BE EXTENDED:"::N$=(4)"BLOAD"N$MSH(16384)d FB(163842SH1)}SP(SH)(163842SH) K16384FB256SP(SH)*VV14(KV)0HCKV116896:840>810H::"CURRENT # OF SHAPES = "SH:23:"PRESS ANYAND B (1-YES,0-NO)";~Q1*Q10199j"TO USE A NEW FUNCTION YOU NEED ONLY RETYPE LINE 220 AND ""'RUN '. SEE INSTRUCTIONS FOR MORE DETAILS.""IF YOU ARE FINISHED, '1' AND THE 'RETURN' KEY." C0(D11)`Y1Y(AIH1)7bV2V23.14159Y1Y1H1>dIDfqh"FOR "D1"CYLINDERS THE VOLUME IS "V2"."wjk"WOULD YOU LIKE TO TRY AGAIN (1-YES,0-NO)";lQ6mQ60338yz"*****"{|"WOULD LIKE TO TRY NEW VALUES OF A OU LIKE TO TRY";SD1&TD11343\U"NUMBER OF CYLINDERS MUST BE GREATER THAN ZERO!"eV338vWD11000347X"THIS IS A VERY LARGE NUMBER OF CYLINDERS AND MAY TAKE"Y"A LONG TIME TO RUN"[V20\H1(BA)D1]D1(D1.5) ^I1 6D,V,"",P 8P.5330& 9318Y ;D,V," NO PREV. VALUE, OR IT WAS ZERO"c >V1Vj @Np Jv M N"WOULD YOU LIKE TO TRY YOUR OWN 'NUMBER OF CYLINDERS' (1-YES)"; O"0-NO)"; PQ5 QQ51377R"HOW MANY CYLINDERS WOULD Y****** #3 ******R A,BA5,BA2,B3A5,B5A3,B7A,B5\  ******* # 2 ********** A,B2A3,BA5,B2A,B7A5,B7 *** #1*****'A2,BA2,B7-$EYAB(VBB2A4,B4A4,B5E2,B6A,B5% @ ******** # 4*********W A,BA,B4A4,B4j A4,BA4,B7p H * LINES(L): ";S$ 2A1:B.7- <:3:140,96< FR0200D^ PXR(R):YR(R):XXA:YYB ZXX140:YY96:X0X280Y0Y192ī140 dS$"D"ī120 nX,Y:130 xX,Y R Q$:(Q$)13ĉ::30 ::A ::12:6);"***** ARCHIMEDES SPIRAL *****":DE12000:DE12:958:"WHEN DONE PUSH 'RETURN' TO CONTINUE OR 'ESC' TO QUIT":DE12000:DE12:958:"SEPARATION OF POINTS IN DEGREES: ";D:DD57.29578 (12:958:"DO YOU WANT DOTS(D) OR    ****************************"2 n(4);"BRUNMENU" 7hhhh`) ) $L #`$`<``HHH)H ) )h,0,0L8h L)hL)hLh4IL 0hL L ')&JJ&&'***&'*&'*f&') ') e''`H    ,P H  Lv   h &I&I0 ,P睿H~* h(8,pLy  L4  ξ '&I&` Ӡ̭þϠԍӠþϠԍӠϠŠҠōӠžϠŠҍӠξϠĠٍǍѠˠϠՍĠ֍HHH    2 hhh`H hL )?,I?P Ԡźź̯čźԯōκԯүԍǍ٠ӍԠӍנŠ͠ĩҠΠĠحӍéҠӬÍ( ( wLw 9 hhh`#,7-----8??'---%???'----???'----0???L$---?'--8?g-< 60P -| $<%$?6e $$$$$$$$$$$?-56-  $$,((,,$$$$''?7666666?8 ?(<$$$8,dd $$$$$,.66>66666?????????$$??$$$$,------5--655.6656% d$,-55 8%????h-------;?????`.-----m8?????,----- 8????????(--------8??????? ----*APPLESOFT MENU***, :BY LARRY L. FREEMAND DAND JAMES P. DAVISW N OF ABACUS...D128):& iB(C1)1ĺ(4);"BRUN ";P$D nB(C1)0ĺ(4);"RUN ";P$ :5:"TOO MANY FILES ON THE DISK TO USE THE AUTO MENU. SORRY." I12000:I (4);"CATALOG" T9,1707,1835,1963  1107,1235,1363,1491 & 1619,1747,1875,2003 0**(PROGNUM)0:A("B")B(PROGNUM)1O PPROGNUMPROGNUM1:5);(64PROGNUM):55] U:V(37) ZV1:958:"WHICH PROGRAM (A-";(64PROGNUM);")?";:A$::C(A$)64:C37Ā _C1CPROGNUM90 dP$"":P2(C1)2:C2736:P$P$(C2,P2)C2,P21)16BY "+ DK$(4):DK$;"NOMON C,I,O":B(56)H :DK$;"CATALOG":24::e #(1024)("D")128200t (1:TITLE$ 2PROGNUM0: 7P2(PROGNUM2)2:7,P2)7,P21)1616085 <A1,P2)1,P21)16128:A("T")V(37):34,V:24:::V1:55" FB/"DISKETTE CREATED ON A 48K SYSTEM"W "BY GARY P. BAGBY ON JUNE 9, 1980" "INITIALIZED WITH 3.2 PLUS DOS SYSTEM MASTER." "SLIGHT MODIFICATION BY" "LYNN SCHWANDT, 12-14-'80"TITLE$ "AUTO MENU PROGRAM MODIFIED BY G. BAG we will delete that"6 "program from our library."> :g "WILLAMETTE APPLE CONNECTION, INC."{ "P.O. Box 7252 "SALEM, OREGON 97303-0053 ::-  40 S30:R90: STARTING POSITION' nX1M%2 xSC,RQ T1ET:T: EXPOSURE TIME} SC,R: ERASES SHAPE DRAWN IN LINE 120 CCI: INCREMENTS THE COLUMN COORDINATE X : "DO YOU WANT TO CONTINUE EXPERIMENTING? (Y/N) ";Y$ Y$"Y"  :** MOTION **6(4)"BLOAD SAMPLE SHAPES"I232,0:233,48o("SHAPE DEFINTION (1 TO 5) = ";S2"SPACING INCREMENT (1 TO 200) = ";I<"EXPOSURE TIME (POSITIVE NUMBER) = ";ETF:3P0:1ZM%200I: NUMBER OF MOVES dC YR(I)15IIS5(16384)128420C16368,0L370RX0P)I0LS"R(NI)+,XR(I)86YR(I)@@15WJ(16384)128360eT16368,0n^370uhIr24:6:"PRESS ";::" SPACE BAR ";::" TO CONTINUE";|SP$:SP$" "380100I0:S.031R(NI)XR(I)1:XL1:YS1:YL1:106X11.6:X21.6:Y10:Y20:20SX10:Y11:X20:Y21:20dX(N2)2Nk3w21:11"R = COS (";N;" * THETA)":8);"PRESS ANY KEY TO STOP PLOT";(N)N400L6.28X3.14PN:X0PN2SL(5)P3(2),Q3(2):# FP3(1)P3(2)68B GP3(2),Q3(2)P3(1),Q3(1):a I"PLOT SUBROUTINE ERROR": d::10:10:"R = COS (N * THETA) " n23:1:"ENTER NEGATIVE OR ZERO N TO EXIT PROGRAM" x12:15:"ENTER N ";N N0500 : 1XS 3 473) 5P1,Q1P3(G9),Q3(G9):I 7P2N0P2N2Q2N0Q2N166W 8P1P260{ 9G912:P3(G9)P1P3(G9)P264 : <G912:P3(G9)P1P3(G9)P264 = ?73 @P3(G9),Q3(G9)P2,Q2: BP1P270 CP3(1)P3(2)71 DP3(1),Q3(1G9G9G0:P3(G9)P:Q3(G9)N0) )G9G045F *PP1:G70P(N1G8)G7X +PN0PN245x ,G9G9G0:P3(G9)P:Q3(G9)N1 -G90ı .P1N0P1N2Q1N0Q1N155 /P1P250 0G912:P3(G9)P1P3(G9)P253 1 2G912:P3(G9)P1P3(G9)P253130 P1,Q1P2,Q2:? G7(Q2Q1)(P2P1):G8Q2G7P2:G90R G80G8N134s G9G9G0:P3(G9)N0:Q3(G9)G8 !G9G045 "QG7N2G8 #QN0QN138 $G9G9G0:P3(G9)N2:Q3(G9)Q %G9G045 &PP1:G70PG8G7 'PN0PN242 (N0G5N2ı G6N0G6N1ı* G5,G6:^ P1G1X1G2:P2G1X2G2:Q1G3Y1G4:Q2G3Y2G4m P1P228 P1N0P1N2ı Q1N1Q1N1 Q2N0Q2N0 Q2N1Q2N1 Q1N0Q1N0 29 P1N0P1N2Q1N0Q1N1P2N0P2N2Q2N0Q2NY 100{ BY CHANGING COS IN STATEMENTS 100, 220, 290, AND 420 TO SIN, YOU MAY OBTAIN THE GRAPHS OF R = SIN (N*I). G1181(XLXS) G249G1XS G3159(YSYL) G4G3YLN00:N1159:N2279:G01:G5G1XG2:G6G3YG4 G5     PROBLEM A LITTLE AND"= "PRESS RETURN WHEN YOU'RE READY.."E Q$O 1000U _:21"NOW, "N$" ALL YOU HAVE TO DO""IS COUNT THE SHADED BOXES.""HOW MANY ARE SHADED";CDD0N5N5CDD5:D5CDCDD5N0N0CDD0:D0CD T,YHALT" Y!, XC1C3SPACE<6 XHALTC3:YHALTC4C3Xa@ YHALTC2YHALTC2:XHALTXC4C2wJ X,C4XHALT,YHALT~T X^  21:J13:" ":J 21 "OK, "N$" I'LL HELP YOU." "THINK ABOUT THE CL&**DOES ANY LEFT OVER BOXES**7RBNNCLBPLCRB0ıOSPACE6\HL1RBf2800|C1C1DX:C3C3DXHL  DDC1C2 YC2C4SPACE YHALTC2:XHALTYDD XHALTC3YHALTC2XHALTC3:XHALTC3 C1,YXHALDX:XP,AYXP,BY4K9'>BPLVNICC1AX:C3C1DX:C4BY:C2C4DYfHNCL(NBPL):NCL02210W**DOES COMPLETE LINES**XSPACE6\CL1NCLfHL1BPLp2800zC1C1DX:C3C3DXHLC2C2DY:C4C4DYC1AX:C3C1DX4:K13:(7):K:J(F2$"F")(F2$A0$(REV(5)))İ4000@Tb **DRAWS BOX AND PARTITION**i3AX,AYBX,AYBX,BYAX,BYAX,AYDY(BYAY)HN:DX(BXAX)VNYPAY:XPAXK1HN YPYPDY:AX,YPBX,YPK K1VN*XPXPK1400:KAD0D5AX176:AY0:BY155:BX276:HNH0:VNV0pD5D0AX0:BX100:AY0:BY155:HNH5:VNV5}CDHNVN2000:21:700"WHAT IS YOUR ANSWER NOW";(7);"F2$,F2$(F2$,1)6F2$"F"İ4000@F2$A0$(REV(5))Ģ2EV(5))Ģ24:K15:(7):K:"THAT'S CORRECT "N$KoF1$A0$(REV(5))ī1150t(F1$"F")(F1$A0$(REV(5)))ĺ"SORRY, "N$", THAT'S NOT CORRECT.":K11000:Ky(F1$"F")(F1$A0$(5))İ1500~"PRESS RETURN";S$:21:"OK, I'LL HELP.."HN:V0VN'AX176:AY0:BX276:BY1555$DD5:NN5?.9200I82000S=2110cBH5HN:V5VN~D24:"PRESS RETURN";S$G:21:700L1:24:"NOW WHAT IS YOUR ANSWER";(7);:F1$Q:21:700VF1$(F1$,1)`F1$"F"İ15000jF1$A0$(R;A$(L(2));$30);"C.) ";A$(L(3))*@"D.) ";A$(L(4));[15);"E.) ";A$(L(5));u30);"F.) ";A$(L(6)){ AX0:AY0:BX100:BY155DD0:NN09200200021:7:N0;"/";D0;33:N5;"/";D5 2110 H0D)" ND0N5N0D5:DD0D5:9000: !A$(5)(N)"/"(D)K &A$(6)"HELP"_ 0J15:L(J)0:j :J15y DTEMPR(5) NK1J XTEMPL(K)580 bK lL(J)TEMP:REV(TEMP)J vJ L(6)6:REV(6)6  "A.) ";A$(L(1)); 15);"B.) "1:J:S0300 O::62450% TPC+ E NN0N5:DD0D5:9000] A$(1)(N)"/"(D){ NN0D01:DD0D51:9000 A$(2)(N)"/"(D) ND0N0N5:DD0D5:9000 A$(3)(N)"/"(D) ND0D51:DD0N5D5N0:9000 A$(4)(N)"/"(  20:958:21 "700E ,5:5:"WHICH IS THE SUM";:868:F$Z 1(F$)0İ10000l 2(F$)0280 6F$A0$(REV(5))ĺ"CORRECT "N$"!":J11000:J 8F$A0$(REV(5))335 @F$"F"İ1000 EF$"F"335 J3000 LS0:J16:F$A0$(J)S:9000 N0N:D0D8 D2R(MAX):D5BASED1:N5R(D5)L NN5:DD5:9000Z N5N:D5Dy (D51)(D01)(D0D5)180 10:10 10);N0;20);N5 9);"--- + ---" 10);D0;20);D5 500 ** 500 GENERATES 4 WRONG ANSWERS***SE TYPE YOUR NAME:";N$' n(N$)0100D x:10:10);"THANKS ";N$T }I12000:} :" HOW MANY PROBLEMS DO YOU WANT"; NP BASE2 MAX3:MIN1 R(X)((1)(XMIN1)MIN) PC1NP D1R(MAX):D0BASED1:N0R(D0) NN0:DD0  :22A$(6),L(6),A0$(6),PRIMES(12),REV(6)W<A0$(1)"A":A0$(2)"B":A0$(3)"C"|FA0$(4)"D":A0$(5)"E":A0$(6)"F"PPRIME(1)2:PRIME(2)3:PRIME(3)5:PRIME(4)7:PRIME(8)11:PRIME(9)13:PRIME(10)17:PRIME(11)19:PRIME(12)23 d:10:10:"PLEA     ŠŠz#?XñŠŭԮΠ ŠĠΠΠ ŠӠ ԠҠ Ϡ ՠحʠ  ֠  ɭŠ ҠԠԠ͠ĠӠ̠ĠҠ̠  ӠҽӨΪà  ҽӨΪƠ Ӡ$ӭĠӠس Š  ٠Ӡ Ϯ٠à ŠӠ ҠҠ ӠԠ  !ΠԠ"Ǡ̠ǠӠҽӨΪ ɠŠ ŠΠ Ӡ̠ ΠȠ̠ΠҠҠ ҠӠ Ǡ ǨŠũ ҽΨΪ ΧӠĠ ϠŠҠ̠Ԡ ӠƠӠàΠΠ֠ԠӠӠӠ gW'  `^ :F Y %^LǏLZ^[_\Z][`1'' 9T X k : ɱɹ(  k : ɱɸ  9T X$% w0ɍ k  w&:ɍ&(ɺ &ɯ&Lɠ H&h)?Hh : ɃL     370 G(16384)128360T16368,0(^370/hIjr24:6:"PRESS ";::" SPACE BAR ";::" TO CONTINUE";|SP$:SP$" "380100I0:S.031R(NI)XR(I)YR(I)15IIS(16384)12842016368,0X(N2)2N3%OLDCLR3121:11P"R = COS (";N;" * THETA)"y:8);"PRESS ANY KEY TO STOP PLOT";(N)N400L6.28X3.14PN:X0PN2SL(50P)I0LS"R(NI),XR(I)6YR(I)@15J(TK$"Y"TK$"YES")ī150+16304,0916301,0G16300,0U16297,0lOLDCLR3OLDCLR4OLDCLROLDCLR1OLDCLR210:1XS1:XL1:YS1:YL1:10X11.6:X21.6:Y10:Y20:20X10:Y11:X20:Y21:20:"R = COS (N * THETA) "O n23:1:"ENTER NEGATIVE OR ZERO N TO EXIT PROGRAM"i x12:15:"ENTER N ";N }22:" " N0500 22:10:"DO YOU WANT TO PRINT OVER":23:12:"THE PREVIOUS PICTURE"; TK$(G9)P264 :4 <G912:P3(G9)P1P3(G9)P264: =B ?73] @P3(G9),Q3(G9)P2,Q2:k BP1P270 CP3(1)P3(2)71 DP3(1),Q3(1)P3(2),Q3(2): FP3(1)P3(2)68 GP3(2),Q3(2)P3(1),Q3(1): I"PLOT SUBROUTINE ERROR": d::10:10(G9)N1 -G90ı3 .P1N0P1N2Q1N0Q1N155A /P1P250e 0G912:P3(G9)P1P3(G9)P253k 1 2G912:P3(G9)P1P3(G9)P253 3 473 5P1,Q1P3(G9),Q3(G9): 7P2N0P2N2Q2N0Q2N166 8P1P260 9G912:P3(G9)P1P3G8 !G9G045 "QG7N2G81 #QN0QN138Q $G9G9G0:P3(G9)N2:Q3(G9)Q_ %G9G045x &PP1:G70PG8G7 'PN0PN242 (G9G9G0:P3(G9)P:Q3(G9)N0 )G9G045 *PP1:G70P(N1G8)G7 +PN0PN245 ,G9G9G0:P3(G9)P:Q3P1N0P1N2ı Q1N1Q1N11 Q2N0Q2N0B Q2N1Q2N1S Q1N0Q1N0[ 29 P1N0P1N2Q1N0Q1N1P2N0P2N2Q2N0Q2N130 P1,Q1P2,Q2: G7(Q2Q1)(P2P1):G8Q2G7P2:G90 G80G8N134 G9G9G0:P3(G9)N0:Q3(G9) 100 G1181(XLXS)- G249G1XS@ G3159(YSYL)N G4G3YLlN00:N1159:N2279:G01:G5G1XG2:G6G3YG4G5N0G5N2ıG6N0G6N1ıG5,G6:P1G1X1G2:P2G1X2G2:Q1G3Y1G4:Q2G3Y2G4P1P228     4 559("****************************"@-5F2M75q<" NATIONAL COUNCIL OF "xA5F" TEACHERS OF MATHEMATICS "K5P" TOPEKA, KANSAS 1982 "U5Z" "_5 d" O HELP"4 "YOU STUDY THE GRAPHS OF YOUR FAVORITE"T ("TRIGONOMETRIC FUNCTIONS."i <::15)MO$:G$o Fy P(10) Z5)"I WOULD LIKE TO REVIEW A FEW THINGS" d"WITH YOU BEFORE I SHOW YOU ALL I KNOW." nX11500:X x:5)"DOES THAT SEEM"T1*MO$"PRESS SPACE BAR!"W(7):7)"THE GRAPHS OF SINE AND COSINE"::22)"BY":::15)"ROBERT L. TICE"::::X11500:X:10)MO$G$ (10):10)"GREETINGS WISE ONE!!!!?" ::5)"THANKS FOR ASKING ME T               ~L$(C);" ="(1):!):1160M(R,C)010700M(R,C)101050M(5C4):"-";(M(R,C));W1110u(5C4):"- ";(M(R,C));$1110.M(R,C)1011008(5C3):M(R,C);B1110L(5C2):;M(R,C);VJ11160`CN1150jL$(C);" +"t1160M(R,C)I(R,C)p900+zM(R,C)I(R,A1)2C9RANAHKQ950mW(1)M(1,2):W(0)M(1,1)xX1AP(X)W(X)W(0):Y1000P(X):ZY.5:Y(Z):P(X)Y1000L$(X);" =";P(X),X1170(R24):J1CN1Ė(5N2):M(R,CT1750R1T1!C1N5M(R,C)M(R,C1)<CCRPTA480]RT1NhC1N~M(R,C)M(R1,C1) CR 480*DET(M(1,1)M(2,2)M(1,2)M(2,1))D4W(K)DET>KA920HR1ARC1A\CK1890fM(R,1)M(R1,1)S1N8M(R,S)M(R,S)FM(R1,S)?&SQ0M(R,1)0630b:(R2)N630vDM(R2,1)0630NFM(R,1)M(R2,1)XS1NbM(R,S)M(R,S)FM(R2,S)lSvRT1NM(T,1)0670TNN1:DM(T,1)D 1C(C)C0390B(2N9):" AND THE CORRECT COEFFICIENT?"t958:(2N9):(33):"";M(R,C):I(R,C)M(R,C)J1:1000(2N6):958:320K0AD1N1940N2810R1N1M(R,1)0630M(R1,1)0560FING?(Y OR N)" JE$; TE$"N"ĺ"I'M THINKING..."::460\ ^E$"Y"Ģ(2N6):958:320} h(2N7):"WHAT IS THE ROW?" r958:(2N7):(18):"";R |RNR(R)R0360 (2N8):" AND THE COLUMN?" 958:(2N8):(20):"";CCN36):X$; M(N1,N1),I(N,N1)::(13):"<<>>"F R1NQ C1Ng (R24):(5C2) "";M(R,C):I(R,C)M(R,C) 1000 C "(2R4):(5N2) ,"";M(R,N1):I(R,N1)M(R,N1) 6R @(2N6):"DO YOU WISH TO CHANGE ANYTHTHE COMPUTER"3 " WILL TAKE CARE OF THE REST."b :"REMEMBER ALSO THAT EACH EQUATION MUST" " NOT BE EQUIVILENT TO ANY OF THE" " OTHERS,(OR NO SOLUTION EXISTS)." (23):"PRESS ";::" SPACE BAR ";::" TO CONTINUE" (23):( P:"ENTER 'N' . . . 'N'=";N:AN:J0> ZN(N)N0N8140n d:"'N' MUST BE A WHOLE NUMBER LESS THAN 8" n"TRY AGAIN." xX11500:X (12):958:(9):80 (15):"WHEN THE SCREEN CLEARS, START ENTERING" " ONLY THE COEFFICIENTS. ,"A","B","C","D"% X17:L$(X):XS (3):"THIS PROGRAM SOLVES 'N' EQUATIONS" (" SIMULTANEOUSLY WITH 'N' VARIABLES." 2:"YOU MUST THINK OF 'N' EQUATIONS" <" INVOLVING 'N' VARIABLES IN ORDER FOR" F" THE COMPUTER TO SOLVE THEM."&# & $$$$$$$$$$$$$$$$$$$$$$$E $$$$$$$$$$$$$$$$$$$$$$$d $$ EQUATIONS $$ $$ BY $$ $$ DAVID MILLER $$ $$$$$$$$$$$$$$$$$$$$$$$ $$$$$$$$$$$$$$$$$$$$$$$  "X","Y","Z"      ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as""Public Domain. If any person has valid""evidence that a program is, in fact, ""not in the Public Domain, please " "contact us andGH." DZCĺ"DEPTH OK." N& XHER GAME (Y OR N)";A$% A$"Y"100P "OK. HOPE YOU ENJOYED YOURSELF.":600p "SONAR REPORTS SHOT WAS "; YBĺ"NORTH"; YBĺ"SOUTH"; X(A)ĺ"EAST"; X(A)ĺ"WEST"; &YBX(A)ĺ" AND "; 0ZCĺ"TOO LOW." :ZCĺ"TOO HI:C(G(1))/ xD1N::"TRIAL # ";D;:X,Y,ZO (XA)(YB)(ZC)0300] 500::D :"YOU HAVE BEEN TORPEDOED! ABANDON SHIP!" "THE SUBMARINE WAS AT ";A;", ";B;", ";C:400 ,:"B O O M ! ! YOU FOUND IT IN ";D;" TRIES!" ::"ANOTS ". F"TO DESTROY IT. YOU HAVE ";N;" SHOTS"Z K"SPECIFY DEPTH CHARGE EXPLOSION POINT" P"WITH A TRIO OF NUMBERS -- THE FIRST" Z"TWO ARE THE SURFACE COORDINATES; " _"THE THIRD IS THE DEPTH." d:"GOOD LUCK!!": nA(G(1)):B(G(1))( 25);"DEPTH CHARGE"*::E "DEPTH CHARGE GAME":j"DIMINSION OF SEARCH AREA ";G:N((G)(2))1("YOU ARE THE CAPTAIN OF THE DESTROYER"2"USS COMPUTER. AN ENEMY SUB HAS BEEN" <"CAUSING YOU TROUBLE. YOUR MISSION I(R.00005)))10000;" IS A ROOT"& /!8105"c#((10000(S.00005)))10000;" IS A ROOT"i$o*u4ZYAX6BX5CX4DX3EX2FXG7 l(Y1)1640I v(Y1)1660V Y0700c Y0740p Y0740} Y0700 X;" IS A ROOT" 810 RX LL1 LN780 580 SX LL1 LN802 580  ((10000260   T0500* TI520U "POSSIBLY AN EVEN NUMBER OF ROOTS IS"f "IMAGINARY"o 530 "NO REAL ROOTS" 530 "NO IMAGINARY ROOTS"  L0 &N16 0R(10(X1.05))10 :SX2 DM(RS)2 NM XXM& bHANGE BETWEEN ";(10(X1.05))10;" AND ";X22 ,< 6TT1E @540T JY20240e TX1X2.00005 ^X2(10(X1.05))101 h260 rX2;" IS A ROOT" | TT1 (Y1)(F(X2.0005))1290 X1X2.0005 X2(10(X1.05))101 T ENDPOINT: K = ";K x & U F(X)AX6BX5CX4DX3EX2FXG] T0f X1Hs X2X1.5 Y1F(X1) Y2F(X2) (Y1)(Y2)1290 (Y1)(Y2)0370 X1X2 X2X1.5 X2K200 460 , ""SIGN C":I' 7::"ENTER THE COEFFICIENTS:"6 9"A = ";AE ;"B = ";BT ="C = ";Cc ?"D = ";Dy A14:15:"E = ";E C15:15:"F = ";F E16:15:"G = ";G G::"ENTER THE ENDPOINTS OF THE DOMAIN" K" LEFT ENDPOINT: H = ";H O" RIGHw6 SOLVE AN EQUATION UP TO THE SIXTH DEGREE_ IMAGINARY ROOTS WILL NOT BE LISTED12);"GIVEN THE FUNCTION:"#::Z621:436Z);Z;::("Y = AX + BX + CX + DX + EX + FX + G" 2::"ENTER THE DEGREE OF THE EQUATION:      ʍ           I WILL BE GLAD TO"= ^"HELP YOU. OH,IN CASE YOU FORGOT MY"h h"NAME IS MATRIX AND I WAS WRITTEN BY" r"ROBERT SYNOVEC." w255 | C"THE DETERMINANT = ";A(9)! ' V " DO YOU WANT TO RUN THIS PROGRAM AGAIN?"{ ""IF YES INPUT Y,IF NO INPUT N." ,Z$ 6Z$"Y"1 @" IF YOU EVER AGAIN NEED HELP FINDING" J"THE DETERMINANT OF A 3 BY 3 MATRIX" T"CONSULT ME,BECAUSEA(1)X(1,1)X(2,2)X(3,3)8 A(2)X(1,2)X(2,3)X(3,1)V A(3)X(1,3)X(2,1)X(3,2)n A(4)A(1)A(2)A(3) A(5)X(1,3)X(2,2)X(3,1) A(6)X(1,1)X(2,3)X(3,2) A(7)X(1,2)X(2,1)X(3,3) A(8)A(5)A(6)A(7) A(9)A(4)A(8) (1) ARE"2 ("THE NUMBERS OF THE SECOND ROW,AND THE"_ -"LAST THREE NUMBERS ARE THE NUMBERS OF"u 2"THE THIRD ROW."{ < F P"THE MATRIX IS:" ZC13 dR13 g(122(C1)) i(214(R1)) n"";X(R,C) x(214C) R C 110> " THIS PROGRAM COMPUTES THE DETERMINANT"["OF ANY 3 BY 3 MATRIX."" INPUT THE NUMBERS OF THE MATRIX.""THE FIRST THREE NUMBERS ENTERED ARE""THE NUMBERS IN THE FIRST ROW OF THE" #"MATRIX,THE SECOND THREE NUMBERS2 RT29.RT3D$(4):D$;"RUN MENU"7420 X3. EXIT FROM PROGRAM"::" RT3 RT1ė:112? RT29` RT3D$(4):D$;"RUN MENU"i 420 D$(4):D$;"RUN MENU" 420 SFFERENT INTERVAL" :"2. DIFFERENT POLYNOMIAL" :"3. EXIT FROM PROGRAM":: RTRT1ė:11 ***";:3771 uDP8(ZM)(GH)ZM0ĺ" ***";: y:D@ |F g "PRESS RETURN TO CONTINUE."o A$u ~ ZZ0 "SELECT ONE OF THESE OPTIONS:" ::"1. SAME POLYNOMIAL, DIFFERENT INTERVAL" :"2. DIFFERENT POLYNOMIAL" :"(J) J ZZ13495 **** PRINT TOP LINE ***B P1K1U 8P2);A(P);\ "Pd ,: \ *** PRINT OTHER LINES *** ](1000D.5)1000; ^R1K1 `C(R)(100C(R).5)100 h8R2);C(R); mR oZMGH:GHC(K1) sGH0ĺ""AS A DIVISOR: ";:P8X r::"ENTER THE LAST NUMBER TO BE USED":"AS A DIVISOR: ";:P9 t::"ENTER THE DIFFERENCE BETWEEN":"CONSECUTIVE DIVISORS: ";:P10 v DP8P9P10 ZZZZ1 C(1)A(1) J2K1 B(J)C(J1)D C(J)B(J)A: - "ENTER DEGREE OF POLYNOMIAL ";KR :"NOW ENTER THE COEFFICIENTS."z "A(1) IS THE LEADING COEFFICIENT." "A("K1") IS THE CONSTANT TERM.": Q1K1 "A("Q") =";:" ";A(Q) Q p::"ENTER THE FIRST NUMBER TO BE USED":k  WRITTEN BY CHUCK FRIESEN: LINCOLN HIGH SCHOOLL MARCH, 1981:"THIS PROGRAM WILL ALLOW YOU TO"::"SYNTHETICALLY DIVIDE A POLYNOMIAL"::"BY CONSECUTIVE TERMS OF AN"::"ARITHMETIC SEQUENCE.":::"PRESS 'RETURN' TO CONTINUE." A$     ЍgQ50200Gl"TO USE A NEW FUNCTION YOU NEED ONLY EDIT LINE 300"{m"AND 'RUN'. SEE INSTRUCTIONS FOR MORE DETAILS"n"IF YOU ARE FINISHED, TYPE '1' AND THE 'RETURN' KEY." AS(UV)(H3)!(100S)100(N6D64310X((CS)((CS)2)).0001310^&0"NOTE THAT SIMPSON'S RULE (IV) CONVERGES FASTEST."Xb"WOULD YOU LIKE TO TRY NEW VALUES FOR A AND B (1-YES, 0-NO)";cQ5de"*****"fI0(D1) PPHY(AIH)7QQHY(AIHH)>Ib(100P)1002)(100Q)1002)qT(PQ)2(100Q)1002)UY(A)Y(B)J2(D2)2UU2Y(AJH)JV0K1(D1)2VV4Y(AKH)KTANGLES","RECTANGLES","TRAPEZOIDS",4 "PARABOLAS"q "------------","----------","----------","-----------", "----------" M2 S0 ,Y(X)X3 6MM3 @NMM2 JCS TQ0 ^P0 hD2N mD5) rH(BA)D |I CHANGED THE FOLLOWING STEPY "WHAT ARE YOUR VALUES FOR A AND B (SMALLER FIRST:A,B)";b A,Bp AB210 "A MUST BE LESS THAN B" 201 "NUMBER OF","I. SUM OF","II. SUM OF","III. SUM OF", "IV. SUM OF"# "SUBINTERVALS","REC, TO FIND THE AREA UNDER A CURVE Y=X+3 YOU"= "WOULD TYPE"C Z 13);"1 GOTO 200"y 13);"300 DEF FNY(X)=X+3" 13);"RUN" "YOU MIGHT TRY THAT AS YOUR FIRST RUN" "END EACH LINE, INCLUDING 'RUN', WITH THE 'RETURN' KEY." TRAPEZOIDS"0 v"IV PARABOLAS (SIMPSON'S RULE)"6 wv x"AFTER THE PROGRAM STOPS, YOU MAY ENTER YOUR FUNCTION AS"; y"FOLLOWS" z {13);"1 GOTO 200" |13);"300 DEF FNY(X)=...(YOUR FUNCTION OF X)..." }13);"RUN" ~+ "FOR EXAMPLEGRATION" oO p" THIS PROGRAM EVALUATES THE DEFINITE INTEGRAL OF F(X)" q"FROM X=A TO X=B BY FOUR METHODS OF NUMERICAL APPROXIMATION:" r s"I RECTANGLES (INITIALHEIGHT OF F(X))" t"II RECTANGLES (INITIAL HEIGHT OF F(X+H))"; u"III (e (COMBINATION OF DEFIN AND ACCUQ)af IMPORTANT VARIABLES:D-NO. OF SUBINTERVALS; AREA BYg RECTANGLES(F(X))-P, BY RECTANGLES (F(X+H))-Q,h BY TRAPEZOIDS-T, BY PARABOLAS-S;C-STORES PREVIOUS i VALUE OF 5 n"AREA UNDER A CURVE - INTE  "P ,: ]D;" ^R1K> `C(R)(100C(R).5)100Q h6R2);C(R);Z rR:a sDg |m u 23 "PRESS 'RETURN' TO CONTINUE":ZZ$: 109 NSYN DIV CORRECT PROBLEMS" ISORS: ";:P10 v! xN11602 Z18(N1)< Q(Z)C ZN I18X A(I)k A(I)99KI1r I DP8P9P10 ZZZZ1 C(1)A(1) J2K B(J)C(J1)D C(J)B(J)A(J) J ZZ1349 P1K 6P2);A(P);MBER OF THE EQUATION YOU":"WISH TO DIVIDE SYNTHETICALLY: ";:N p::"ENTER THE FIRST NUMBER TO BE USED":"AS A DIVISOR: ";:P8 r::"ENTER THE LAST NUMBER TO BE USED":"AS A DIVISOR: ";:P9 t::"ENTER THE DIFFERENCE BETWEEN":"CONSECUTIVE DIV 1,4,1,6,99,0,0,0= WRITTEN BY CHUCK FRIESENX 3,2,-15,-14,99,0,0,0r LINCOLN HIGH SCHOOL MARCH, 1981 1,4,1,6,99,0,0,0  1,2,1,99,0,0,0,0  3,2,-15,-14,99,0,0,0 dQ(200)m:? n"TYPE THE NU   Y(AX2DXF)(E)/Z10X140:U809YM Z0Z279U0U1791310VZ,U^:o(Y1515.12X(CY2EYF)C<Z10X140:U809YFZ0Z279U0U1791370PZ,UZ:d HYPERBOLAn1510x3X2525..24V(AX2CDXCFCE2(4C2)):V01220\Y1E(2C)(V):Y2E(2C)(V)Z10X140:U1809Y1:U2809Y2Z0Z279U10U1179U20U21791220Z,U1:Z,U2X PARABOLA7:A01320X1515.1"PUSH C TO CONTINUE, E TO END";+T$17$F.T$"C"10P82090yB:22:"YOUR PREDICTION WAS CORRECT"L"IT IS";C$V:" TO CONTINUE PUSH C. TO END PUSH E";`1040jt CIRCLE AND ELLIPSE:HCOLOR = 7~3X1010"IT'S A POINT BUT OFF THE EXIST ING GRAPH":Z10,U10R21:32:"(";X;",";Y;")"^R175sHI07:HI:Z,UR1Ģ19:(7)24:10:"PUSH RETURN";:T$:22:C$T$(I)1090T$(I);" IS WRONG...":"THE GRAPH IS";C$# FOR X = 10 TO 270 STEP 10 @\ FOR Y = 8 TO 152 STEP 9 cf HPLOT X,Y: NEXT : NEXT pW1140,1140,1380,1240,900,1590,1590,1590,1980,2010z1000 A POINTXD(2A):YE(2C):Z14010X:U809Y5Z279Z0U0U159ĺ"YOU">:"TO BELIEVE"::"THE GRAPH"::"WOULD BE . . . "Y 22:T$(I):X11000:b*255424:A;"X^2 + ";C;"Y^2 + ";D;"X + ";E;"Y + ";F;" = 0">:2H0,80279,80:140,0140,160Q***** 850-870 PRINT DOTS ON THE GRAPH ********R AC7303(Q0).01C$T$(5):W5:760: A=CIQ0C$T$(9):W9_Q0C$T$(1):W1h760(Q0).01C$T$(5):W5:760Q0C$T$(2):W2Q0C$T$(9):W9:125 4:"SO...":::"YOUR"::"CONCLUSIONS"::"LED"::D0E0C$T$(6):W6:XT3%D760LNF0C$" ALL ORDERED PAIRS ":W10cXF0C$T$(9):W9lb760xl A*C<0vFD2(4A)E2(4C)0C$T$(7):W7:760C$T$(3):W3760QFD2(4A)E2(4C): A*C>0Q E N C$=T$(6):W=6:H=1AD24RC0C$T$(8):W8:H1_D24FC0C$T$(9):W9yF0C$T$(6):W6:H1FC0C$T$(8):W8:H1FC0C$T$(9):W9760D0E0590&D0C$T$(6):W6:H10E0C$T$(6):W6:V1:T$(6):W6:V1, rD24FA0C$T$(9):W95 |760O F0C$T$(6):W6:V1g AF0C$T$(9):W9 AF0C$T$(8):W8:V1 760  A=0,C<>0 D0E0C$T$(4):W4:760 D0E0500 E0C$T$(4):W4 D=0:IF D^2-4*C*F=0 THERED PAIRS " I" AC02801 AC0620C 660: A*C>0O  A*C=0` "A0C0540m ,A0430| 6 A<>0,C=0 @D0E0390 JD0E0C$T$(4):W4:760 TD0C$T$(4):W4 ^D24AF0C$T$(8):W8:V1: E=0 hD24AF0C$(6)" A LINE "V :6:"7. TWO INTERSECTING LINES":T$(7)" TWO INTERSECTING LINES " :6:"8. TWO PARALLEL LINES":T$(8)" TWO PARALLEL LINES " :6:"9. THE EMPTY SET":T$(9)" THE EMPTY SET " :6:"10. ALL ORDERED PAIRS":T$(10)" ALL ORD:6:"1. A CIRCLE ":T$(1)" A CIRCLE "[ :6:"2. AN ELLIPSE":T$(2)" AN ELLIPSE " :6:"3. A HYPERBOLA":T$(3)" A HYPERBOLA " :6:"4. A PARABOLA":T$(4)" A PARABOLA " :6:"5. A POINT":T$(5)" A POINT" :6:"6. A LINE":T$ YOU'LL TYPE IN VALUES FOR A,C,D,E,F"3 Z"A = ";AA \"C = ";CO ^"D = ";D] `"E = ";Ek b"F = ";Ft d100 n:3:"NOW FOR YOUR PREDICTION OF THE GRAPH OF " x::6:A;"X^2 + ";C;"Y^2 + ";D;"X + ";E;"Y + ";F;" = 0" :"WILL IT BE..."+ +  **** MATH ANALYSIS ****B *** QUADRATIC FUNCTIONS ***X *** LEMKE ***n( *** 1979 ***2A0:C0:D0:E0:F0:I0:P0:Q0:H0:V0:XT0<::3:"I'LL GRAPH THE EQUATION"F::6:"A*X^2 + C*Y^2 + D*X + E*Y + F = 0"% P:"IF          IN SUM"Q "--------- ---------------- ----------"[ V10j Y(X)X2v N110 D2(N1) H(BA)D V0 I0(D1) YY(AIH) "VV3.14159YYH ,I 1V10315 3P100((VV1))V D "WHAT ARE YOUR VALUES FOR A AND B (SMALLER FIRST :A,B)";M A,BZ AB214{ "A MUST BE SMALLER THAN B!" 200 "NUMBER OF SUM OF % CHANGE" "CYLINDERS CYLINDER VOLUMES USE THE FUNCTION Y=X^2 YOU WOULD TPYE:". K " 1 GO TO 200"o " 220 DEF FNY(X)=X^2" " RUN" "YOU MIGHT TRY THAT AS YOUR FRIST EXAMPLE." "END EACH LINE, INCLUUDING 'RUN', WITH THE 'RETURN' KEY." F(X), THE LINE X=A AND X=B, AND THE X-AXIS."2 o "TO INPUT YOUR FUNCTION OF X (Y=F(X)) TYPE AS FOLLOWS:"u " 1 GO TO 200" " 220 DEF FNY(X)=....(YOUR FUNCTION OF X)...." " RUN" ( "FOR EXAMPLE, TOd34n15);"VOLUME OF A SOLID OF REVOLUTION":ozs" THIS PROGRAM USES CYLINDICAL DISCE TO APPROXIMATE"u" THE VOLUME OF A SOLID OF REVOLUTION, THE SOLID IS GENE-"x"RATED BY ROTAING ABOUT THE X-AXIS THE AREA BOUNDED BY", "Y=   HIS, "A$"?"E1 E110Ā?E1(E1)E11E110980h"YOUR CHOICES ARE FROM 1 TO 9 ONLY"q930w} A"NO, THE CORRECT ANSWER WAS "C1*R790?\G100(F.5S)NEfKptz"YOU GOT "F" PROBLEMS RIGHT ON THE"|"FIRST TRY"S" PROBLEMS RIGHT ON THE SECOND TRY""THIS GIVES YOU A SCORE OF "G" %"990 "WHAT TYPE OF EQUATION IS T1N10860,"TRY ANOTHER PROBLEM"28>F95p"NO, YOU ARE INCORRECT...TRY AGAIN."y930E1C1840SS1 "GOOD, SO YOU GOT IT RIGHT THIS TIME"N10860 "TRY ANOTHER PROBLEM"*4>95!HNOWN,ONLY PART OF IT WAS VISIBLE IN THE BOOK,IN LINE 520***D 560M C17V &630u 0(A0B0C0D0E0)580~ :600 DC18 N630 X(A0B0C0D0E0)620 b630 lC19 v930  E1C1740 "YOU ARE CORRECT"FF0B0)(B0A0D0)420$ 440- C146 630S (A0B0C0D0)460\ 480e C15n 630 (B0D0A0)(A0C0B0)500 520 C16 630 (A0B0C0D0)(A0B0D0C0)540; ***THE NUMBER '540' WAS UNK(3)115) D((4)115)0 E((5)115)6 b "A"X^2 + "B"Y^2 + "C"X + "D"Y + "E"= 0"h ,z 6ABA0340 @C11 J630 T(A0B0)(A0B0)370 ^C12 h630 r(A0B0)(A0B0)400 |C13 630 (A0C0)"4 PARABOLA"$ 20)"5 LINE"> 20)"6 TWO POINTS"W 20)"7 ONE POINT"t 20)"8 UNIVERSAL SET" 20)"9 EMPTY SET" 19)"10 TYPE '10' TO EXIT" N0 F0 S0 A((1)115) NN1 B((2)115) C( WILL PRINT THE EQUATION"B U"AND YOU WILL HAVE TO IDENTIFY IT."J ^:^ _"(HIT RETURN)"g aZZ$m c d"YOUR CHOICES WILL BE (USE THE NUMBER" i"NEXT TO THE WORD)" n20)"1 CIRCLE" x20)"2 ELLIPSE" 20)"3 HYPERBOLA" 2 A$(12)9"PLEASE TYPE IN YOUR FIRST NAME"GA$:::p("IN THIS PROGRAM YOU WILL IDENTIFY"-"QUADRATIC EQUATIONS."2:<"EACH EQUATION WILL BE IN THE FORM"F"AX^2 + BY^2 + CX + DY + E = 0."K:: P"THE COMPUTER     6N163842SH,SP(SH):163842SH1,FB:FB2(HC256):H%0:X%0:SH255710n23:"ANOTHER DESIGN? ";G$G$"Y"ė:90"NAME OF SHAPE TABLE? ";N$(4)"BSAVE "N$",A$4000,L"512HC:"00","01","10","11","I","K","M","J"*:"(CH$,Z,1):M(M$):H%M2(4Z)H%:ZZ14:M((CH$,Z4,1)):X%M2(4Z)X%:Z:HX%H%16X%:16896HC,HX%:HCHC1:H%0:X%0S0:CF1CF0:550VKV0:K0:HCHC1:670540SHSH1:16384,SH:SP(SH1)HC:HC255SP(SH1)SP(SH1)25(BC$(V))0CH$(S)BC$(V):540TD(BC$(V1))12(BC$(V1))0CH$(S)BC$(V):540]NCF1XCH$(S)"000":CH$(S1)"000":630b(BC$(V))12(BC$(V))0CH$(S)BC$(V):630lCH$(S)"000":CF1$v:CH$CH$(3)CH$(2)CH$(1):CH$(CH$,8):Z14:M$ THE TABLE?";G$SG$"N"K0:23:" ":69023:" "V0:S0:22:" ENCODING "VV1:VKSS1:600&SS1:S560,570,6100CH$(S)BC$(V):540: FL0:C1401490< 450:CC1:BC$(K)P$(T)DC$(X):100B :V T0āZ125:Zy 3:C140,R75:T0āZ135:Z T:C140,R75: 23:"";:"ILLEGAL MOVE":Z1200:Z:23:" ":KK1:10:10023:"DO YOU WANT THIS DESIGN INT3FL2FL0 TR751490F ^450:RR1:BC$(K)P$(T)DC$(X):100Y hT3FL1ī490q rFL0:C140278490 |450:CC1:BC$(K)P$(T)DC$(X):100 T3FL1ī490 FL0:R75150490 450:RR1:BC$(K)P$(T)DC$(X):100 T3FL1ī490FLFL1:BSBS1:2405 0:140C,75R:T:KK1:100P G27T3T0:10:100k G27T0T3:10:100 30:22:S$(T)" "G$" "K1" ":10 "X14:G$D$(X)KK1:X310,360,390,420 ,X:100 6T0FLFL1:FL2ī490 @T3FL1ī490 J:(BC$(K1),2)DC$(Z)G$D$(Z):180+ ZG (BC$(K),2)"00"RR1c (BC$(K),2)"01"CC1 (BC$(K),2)"10"RR1 (BC$(K),2)"11"CC1 G0:(BC$(K1),1)"1"G3 BS1:30:22:S$(G)" "G$" "K1" ":10:FL0 BC$(KBS)"000"$(3)"1" F: PBR2İ750F Z22:30:"BEGIN":10::R0:C0:T3Y dG$:G$""100k iG$(13)100 nK450Ģ22:"MAXIMUM CODES = 500" xG$"Q"K500500 G(G$) G8260 K2Ė1:23:"RESTARTING":Z1500:Z:K0::90$ Z14{  :"OPTIONS ARE: "B:"1. CREATE NEW SHAPE TABLE"s(:"2. ADD SHAPES TO AN EXISTING TABLE"::2"ENTER 1 OR 2: ";BR:BR1BR250 <BC$(500),SP(255)::S$(0)"OFF":S$(3)"ON"::FB2:X14:DC$(X):X:X14:D$(X):X:P$(0)"0":P   140)))140,(F2(1(D140)))80% 5 Z120::M "MORE?(Y OR N)";A$\ A$"Y"10AEC(A1) 160" FFEC(X1)( 6 XH11C XH185X F1G(H)EG(H1)a 190t F1F1EG(X1)z F10240 F2FF1 3 F20Ē0 (F2(1(D140)))75240 (F2(1(D140)))75240 F2F2 (E(1(DAPH SCALE(UP TO 140) :";D> P:3:0,80279,80:139,0139,159| nB1140(140D):138B,79138B,81:140B,79140B,81: sB180(140D):138,81B140,81B:138,79B140,79B: xEDD((2D)280) MA XM11 XM155 FC(A)]  :."DEGREE OF NUMERATOR: ";A<BA11_("COEFFICIENT #";B;" :";:C(B)e2<"CONSTANT VALUE :";C(0)>"DEGREE OF DENOMINATOR: ";H@BH11B"COEFFICIENT #";B;" :";:G(B)DE"CONSTANT VALUE :";G(0) F"GR    R1--(-66? `676M666--666M!$$$$l 656 $?66- a?w76r $?66m76M$ ?w6L?v-? $ 8?R16 $66v- $ $66 $$$367 n  V6(-5ֻ.-%ғ--6.%'%'%? d-6d-568((( 8? --(888c-C6-$g?66-%-V$$667--  ?w6A?66- 3-e$$?w6%8?766--%8?766-6?$$ --$676M!$$ 8?0<'0;GP\eimt}$0<IR^iu~  $$$ 6*$g< l-*,,? .- 5M2' cvm $$ `$<Ln %$*.8J8??d $ 0ġ:700VV1200,1210 5R(T)3(11T);MR(T)1(T)S0ATES, WITH OR WITHOUT"08"THE RADIUS VECTOR."9BAN$?LYV"SELECT A FUNCTION:"_`}j"<0> YOUR OWN FUNCTION."t:"<1> R = 3 + SIN (11*T)"~:"<2> R = 1 + COS(T)"16384,0:NUM$VV(NUM$)48VV0VV21160VV"THEN TYPE 'RUN' . "**::"EXAMPLE :"K4:"100 DEF FNR(T)=COS(3*T)"o>:"THIS PLOTS R=COS(3*T) ."uH{2:5"POLAR PLOTTER"I139:"-";:I:$" PROGRAM PLOTS AN ARBITRARY FUNTION"."IN POLAR COORDIN"N")672 A$"Y"ī150+ :62450::1 ^ :"THIS PROGRAM PLOTS POLAR EQUATIONS." :"ENTER R AS A FUNCTION OF THETA" :"AS FOLLOWS : "   "100 DEF FNR(T)=...."  :"(NOTE THAT T = THETA HERE.)"  Y4Y0! X(Y50)(Y5279)Y5Y04 ]XU,Y4XU,Y5:X bYU(Y21)YSYC:X4X0W:X5X0Wo l(YU0)(YU159)ı v(X40)(X4279)X4X0 (X50)(X5279)X5X0 X4,YUX5,YU: "NEW THETA INTERVAL? (Y/N)"; 16384,0:A$ (A$"Y")(A$(B$"Y")ēX0,Y0XP,YP" XP,YP( 1 670B X0X1XSXCR Y0Y2YSYCZ !W4 &(Y00)(Y0159)ē0,Y0XA,Y0:580 +(X00)(X0279)ēX0,YAX0,0:610 0 DXU(1X1)XSXC:Y4Y0W:Y5Y0W N(XU0)(XU279)ı S(Y40)(Y4279) XSXAXR:YSYAYR2 X1(X1X2)2:Y2(Y1Y2)2C XSYSYSXST YSXSXSYSa YSYS.9o :3:530z I0N XP(X(I)X1)XSXC YP(Y2Y(I))YSYC XP0XP279510 YP0YP159510 X00X0279500 Y00Y0159500 50N150 N50N501 X1R(T1)(T1):X2X1K Y1R(T1)(T1):Y2Y1V I0Nf TT1TRINx "XPR(T)(T) ,YPR(T)(T) 6XPX1X1XP @XPX2X2XP JYPY1Y1YP TYPY2Y2YP ^X(I)XP:Y(I)YP h |XRX2X1:YRY2Y1T d1000n(24)xN150.X(N),Y(N)MXA274:XC139:YA155:YC80W:21"WANT RADIUS VECTOR DRAWN ?";:16384,0:B$(B$"Y")(B$"N")150:21:"ENTER LIMITS FOR THETA :";T1,T2NB30TRT2T1N(TRNB) N1         P FOR VIEWING PLEASUREQ x::: CLEAS GRAPHICS AND TEXT PAGES, RETURNS TO TEXT} "WANT TO VIEW SHAPES AGAIN? (Y/N) ";G$ G$"Y"30: REPEATED VIEWING OPTION XDRAWN AT DEFINED SIZE; <0: SHAPE DRAWN WITHOUT ROTATIONj FX15: LOOP DRAWS ALL 5 SHAPES ON SCREEN PCC40: CHANGES COLUMN COORDINATES FOR DRAWING EACH SHAPE ZXC,100: DETERMINES SHAPE TO BE DRAWN AND WHERE dX nX15000:X: LOO** DEBUT PROGRAM **" Z232,0:233,48: POKES ADDRESS OF TABLE INTO MEMORY(4)"BLOAD SAMPLE SHAPES": LOADS TABLE FROM DISK :C0: SETS GRAPHICS MODE, PAGE 2(3: SETS COLOR FOR DRAWING SHAPES TO WHITE 21: SHAPE CTION:KB(16384)%16368,04KB127ı=AN$C`pXP,VCXP,YPH1,VCXP,VCfyX DRAW CIRCLE;]3bH1DFX(1),VCDFY(1)vIFILIH1DFX(I),VCDFY(I) JJ1250:J 5000 0& 6000- 33 ? XP,YPE T J120:Jh 0:XP,VCXP,YPq* 3: DRAW DOTTED LINE:LP15XW(X9X8)LP:YW(Y9Y8)LPXZX8:YZY8IZ0LP:XZ,YZ:XZXZXW:YZYZYW:h FREEZE AH1DFX(I):YPVCDFY(I) 3) 60009 J1250:JC 5000J 0T 6000[ 3a  XPH1DFX(I):YPVCDFY(I)& 30 6000: J1250:J? 5000D 0N 6000] 3b  XPH1DFX(I):YPVCDFY(I) 3 6000  IF$"Y"ĉ:100"N::62450:K"PLEASE! A NUMBER BETWEEN 1 AND 6!"T200gLA(X)RR(X)mV~A(X)RR(X)A(X)RR(X)3A(X)RR(3(X))A(X)RR(3(X))FA(X)RR(3(X))P XPY(I1). IFI1ēH1DFX(I2),VCDFY(I2)\ F1DFA((I.95)DT):F2DFA((I.05)DT)n (F1)78550 (F2)78550 3 H2I1,VCF1H2I,VCF2 !J1DL:J &I 0:33,33:34,0 :22:5:"MORE"; DF$:F$"N"F$"Y"580X,VCTH:I DF1:FI1:LINP1* 7000` 21:"PRESS RETURN TO STOP":"OR RESTART ACTION."m IFILI{ J15:J 3 (F1)(F5)İ3000 (F2)(F4)İ3100 (F3)(F6)İ3200 H1DFX(I),VCDFY(I) IFIēH1DFX(I1),VCDF F6İ1350 ,F$"N"$ 6DL0:< @(F$,1)"Y"DL100E :3\ VC80:H185:H2155n H2,VC278,VC RTRR3:(F1)(F2)RTRR H23,VCRTH23,VCRT:H23,VCRTH23,VCRT H2,0H2,159 DX20:TH3 I16:H2IDX,VCTHH2IDN" :"2.) COS"$ :"3.) TAN"5 :"4.) SEC"F :"5.) CSC"W :"6.) COT"b 1000u F$:F(F$)48 F1F6210 216,0 ((F6)(F1))(F(F))İ1000 F1İ1100 F2İ1150 F3İ1200 F4İ1250 F5İ1300:Y(I1)RR(IDT) PI X2 Z" TRIGO"U \"---------------------------"[ ] ^"CIRCLE DEFINITIONS AND GRAPHS OF": `"TRIGONOMETRIC FUNCTIONS DEVELOPED": b"SIMULTANEOUSLY.": cAN$ d x"PICK A FUNCTION :" :"1.) SI  FOR INFORMATION APPLY TO M.J. CHRISTENSEN, C/O SCHOOL OF MATHEMATICS, GEORGIA INSTITUTE OF TECHNOLOGY, ATLANTA, GA. 30332 X(121),Y(121),W(121)NP121PI(1)12RR60(DTPI(NP1)2NM1NP1<I0NM1 FX(I1)RR(IDT)         WROWI:COLUMNHL:230 ; 0:BLANKCOLUMN,ROW:SP:A D70& dCH13ROWROWI:COLUMNSP:1904 nCH3250C xCH21170X CH32İ240:170g CH8İ210t CH540| 60 COLUMNCOLUMNI COLUMNHLCOLUMNSP:ROWROWI ROWVLROWSP 60 COLUMNSPCOLUMNCOLUMNI:230 ROW3ROC :D$(4):232,0:233,48<D$;"BLOAD CHARACTER SET"hHL275:VL187:I8:SP3:CURS59:BLANK60v(0:1:SP2:ROWSP:COLUMNSP<CURSCOLUMN,ROW:CH$:CURSCOLUMN,ROWFCH$""60PCH(CH$) ZCH32CH91İ240:CH32COLUMN,ROW:1D(G): (B(G)(XC(G)))D(G):::YA(G)(B(G)(XC(G)))D(G):VD(B(G)(XC(G)))0440~NYA(G)1((B(G)(XC(G))))D(G):X(B(G)(XC(G)))0440bYA(G)1((B(G)(XC(G))))D(G):l(B(G)(XC(G)))0440vYA(G)1((B(G)(XC(G))))F YOU'LL TYPE IN VALUES FOR A,B,C"-GG1AA(G),B(G),C(G)LD(G)0`C(G)C(G)B(G)s16304,0:310"ANOTHER ";T$(Z);" FUNCTION? (Y/N)":N$N$"Y"N$"YES"ė:3:470G1::3:150&YA(G)(B(G)(XC(G)))D(G):0YA(G)P.009X6.286.28P:Z550,560,570,580,600,620WX1X22140:Y180Y16lY10Y1159440wX1,Y1:"PUSH RETURN";:T$::3:G2520G3ė:3:150"I'LL GRAPH THE EQUATION "::6:"Y = A*";T$(Z);"(B*X+C)":"I "Y015916:140,Y:= , NEED MACHINE LANG FOR PI,2, 1N 6 GRAPH w @22:CO$(1);" -> Y = ";T$(Z);"(X)" JG1370 TL2G ^21L:CO$(L);"->";:12:"Y = ";A(L);"*";T$(Z);"(";B(L);"X + ";(B(L)C(L));")" h rG|P.04:B2 Y=SEC(X)"- :" 7. END PROGRAM"A ::Z:Z7710[ Z1Z6(Z)Z230 "YOU BLEW IT!! TYPE A NUMBER 1-6 NOT ";Z:200 AXIS 140,80 :6 0,80279,80:140,0140,159  SCALE 4:1,80:70,80 210,80:279,80YES OR NO":110: :3:"YOU'VE COME TO THE RIGHT PLACE" G1::"STATE YOUR PREFERENCE BY TYPING THE CORRESPONDING NUMBER." :" 1. Y=TAN(X) 4. Y=COT(X)" :" 2. Y=SIN(X) 5. Y=CSC(X)" :" 3. Y=COS(X) 6. 0C Z:"YOUR ANSWER ";T$;" DOES NOT COMPUTE. TYPE YES OR NO":60r d18:"IS ALL THAT GRAPHING GETTING TO YOU" nT$:T$"YES"T$"Y"140 xT$"NO"T$"N"ĺ"WELL, SMARTIE WATCH ANYWAY....":X13000:X:140 :"I CAN'T UNDERSTAND ANYTHING BUT 5)"CSC":T$(6)"SEC"= A(1)1:B(1)1:C(1)0:D(1)0:G1C (q 210:"ARE YOU STUDING CIRCULAR FUNCTIONS"y <T$ FT$"YES"T$"Y"100 PT$"N"T$"NO"ĺ::"PROGRAM IS TERMINATED"::"***************************************":X11500::71  **** MATH ANALYSIS ****@ *** CIRCULAR FUNCTIONS ***_ *** GRAPHING ***~ *** LEMKE ***  *** 1979 *** CO$(1)"GREEN":CO$(2)"PINK":CO$(3)"WHITE" T$(1)"TAN":T$(2)"SIN":T$(3)"COS":T$(4)"COT":T$(      LSPCOLCOLI:ROWSP:230 ? 0:BLANKCOLUMN,ROW:SP:E PH91İ240:CH32COLUMN,ROW:170A dCH13COLCOLI:ROWVL:190O nCH3250^ xCH21170s CH32İ240:170 CH8İ210 CH540 60 ROWROWI ROWSPROWVL:COLCOLI COLHLCOLSP 60 ROWVLROWROWI:230 COG** VERTICAL KEYBOARD **; :D$(4):232,0:233,48YD$;"BLOAD CHARACTER SET"HL275:VL187:I8:SP3:CURS59:BLANK60(48:1:SP2:ROWVL:COLUMNSP<CURSCOLUMN,ROW:CH$:CURSCOLUMN,ROWFCH$""60PCH(CH$) ZCH32C(G)))05913NYA(G)1((B(G)(XC(G))))D(G):9OUX(B(G)(XC(G)))0611}bYA(G)1((B(G)(XC(G))))D(G):cl(B(G)(XC(G)))0631vYA(G)1((B(G)(XC(G))))D(G):wGOF BOUNDS":GG1:441(16304,0:310U"ANOTHER ";T$(Z);" FUNCTION? (Y/N)":N$tN$"Y"N$"YES"ė:3:470G1::3:150&YA(G)(B(G)(XC(G)))D(G):0YA(G)(B(G)(XC(G)))D(G)::YA(G)(B(G)(XC(G)))D(G): D(B(G)(XCUSH RETURN";:T$$::3:G25207G3ė:3:150u"I'LL GRAPH THE EQUATION "::6:"Y = A*";T$(Z);"(B*X+C):"IF YOU'LL TYPE IN VALUES FOR A,B,C"GG1A(G),B(G),C(G)D(G)0C(G)C(G)B(G)C(G)6.28C(G)6.28ĺ"OUT B2P.009,XC(G)C(G)6.28(B(G))PKZ550,560,570,580,600,620g(B(G)(XC(G)))0440(B(G)(XC(G)))0440(B(G)(XC(G)))0440X1X22140:Y180Y16Y10Y1159440X10X1279441X1,Y1X"P79,80 "Y015916:140,Y:B , NEED MACHINE LANG FOR PI,2, 1S 6 GRAPH | @22:CO$(1);" -> Y = ";T$(Z);"(X)" JG1370 TL2G ^21L:CO$(L);"->";:12:"Y = ";A(L);"*";T$(Z);"(";B(L);"X + ";(B(L)C(L));")" h rG |P.04: 6. Y=SEC(X)"2 :" 7. END PROGRAM"F ::Z:Z7710` Z1Z6(Z)Z230 "YOU BLEW IT!! TYPE A NUMBER 1-6 NOT ";Z:200 AXIS 140,80 :6 0,80279,80:140,0140,159  SCALE 4:1,80:70,80 210,80:2 BUT YES OR NO":110? :3:"YOU'VE COME TO THE RIGHT PLACE" G1::"STATE YOUR PREFERENCE BY TYPING THE CORRESPONDING NUMBER." :" 1. Y=TAN(X) 4. Y=COT(X)" :" 2. Y=SIN(X) 5. Y=CSC(X)" :" 3. Y=COS(X) :710H Z:"YOUR ANSWER ";T$;" DOES NOT COMPUTE. TYPE YES OR NO":60w d18:"IS ALL THAT GRAPHING GETTING TO YOU" nT$:T$"YES"T$"Y"140 xT$"NO"T$"N"ĺ"WELL, SMARTIE WATCH ANYWAY....":X13000:X:140 :"I CAN'T UNDERSTAND ANYTHING:T$(5)"CSC":T$(6)"SEC"A A(1)1:B(1)1:C(1)0:D(1)0:G1G (v 210:"ARE YOU STUDYING CIRCULAR FUNCTIONS"~ <T$ FT$"YES"T$"Y"100 PT$"N"T$"NO"ĺ::"PROGRAM IS TERMINATED"::"***************************************":X11500:  **** MATH ANALYSIS ****@ *** CIRCULAR FUNCTIONS ***` ***GRAPH ONE CYCLE ***~ *** FRIESEN ***  *** 1981 ***  CO$(1)"GREEN":CO$(2)"PINK":CO$(3)"WHITE" T$(1)"TAN":T$(2)"SIN":T$(3)"COS":T$(4)"COT"       X13000:X: TIME LOOP! ::T "WANT TO TRY ANOTHER COMBINATION? (Y/N) ";Y$c Y$"Y"40i N (1 TO 5) = ";SD< F"COLUMN COORDINATE (0 TO 279) = ";Cc P"ROW COORDINATE (0 TO 191) = ";Rm Z:BGw d1:0 n0,0: PLOTS A POINT BEFORE BACKGROUND COLOR CAN BE SET x62454: SETS BACKGROUND TO LAST PLOTTED COLOR SC SDC,R k** COLOR TRIAL **" f(4)"BLOAD SAMPLE SHAPES": COPIES TALBE INTO MEMORY FROM DISK232,0:233,48: STARTING ADDRESS OF TABLE IN MEMORY("BACKGROUND COLOR (0 TO 7) = ";BG2"SHAPE COLOR (0 TO 7) = ";SC <"SHAPE DEFINITIOR(NI)XR(I)"YR(I)*154IISK(16384)128420Y16368,0b370hnI:X0PN2SL(50P)'I0LS4"R(NI)A,XR(I)N6YR(I)V@15mJ(16384)128360{T16368,0^370hIr24:6:"PRESS ";::" SPACE BAR ";::" TO CONTINUE";|SP$:SP$" "380100I0:S.031:XL1:YS1:YL1:105X11.6:X21.6:Y10:Y20:20RX10:Y11:X20:Y21:20cX(N2)2N"R = SIN(";N;" * THETA)"21:11"R = SIN (";N;" * THETA)":8);"PRESS ANY KEY TO STOP PLOT";(N)N400L6.28X3.14 PN)P3(2),Q3(2):# FP3(1)P3(2)68B GP3(2),Q3(2)P3(1),Q3(1):a I"PLOT SUBROUTINE ERROR": d::10:10:"R = SIN (N * THETA)" n23:1:"ENTER NEGATIVE OR ZERO N TO EXIT PROGRAM" x12:15:"ENTER N ";N N0500 : 1XS1 3 473) 5P1,Q1P3(G9),Q3(G9):I 7P2N0P2N2Q2N0Q2N166W 8P1P260{ 9G912:P3(G9)P1P3(G9)P264 : <G912:P3(G9)P1P3(G9)P264 = ?73 @P3(G9),Q3(G9)P2,Q2: BP1P270 CP3(1)P3(2)71 DP3(1),Q3(1G9G9G0:P3(G9)P:Q3(G9)N0) )G9G045F *PP1:G70P(N1G8)G7X +PN0PN245x ,G9G9G0:P3(G9)P:Q3(G9)N1 -G90ı .P1N0P1N2Q1N0Q1N155 /P1P250 0G912:P3(G9)P1P3(G9)P253 1 2G912:P3(G9)P1P3(G9)P253130 P1,Q1P2,Q2:? G7(Q2Q1)(P2P1):G8Q2G7P2:G90R G80G8N134s G9G9G0:P3(G9)N0:Q3(G9)G8 !G9G045 "QG7N2G8 #QN0QN138 $G9G9G0:P3(G9)N2:Q3(G9)Q %G9G045 &PP1:G70PG8G7 'PN0PN242 (N0G5N2ı G6N0G6N1ı* G5,G6:^ P1G1X1G2:P2G1X2G2:Q1G3Y1G4:Q2G3Y2G4m P1P228 P1N0P1N2ı Q1N1Q1N1 Q2N0Q2N0 Q2N1Q2N1 Q1N0Q1N0 29 P1N0P1N2Q1N0Q1N1P2N0P2N2Q2N0Q2No 100{ BY CHANGING COS IN STATEMENTS 100, 220, 290, AND 420 TO SIN, YOU MAY OBTAIN THE GRAPHS OF R = SIN (N*I). G1181(XLXS) G249G1XS G3159(YSYL) G4G3YLN00:N1159:N2279:G01:G5G1XG2:G6G3YG4 G5      3 PSV:RV ZSD140,90- dX13000:X7 n::c x"WANT ANOTHER COMBINATION? (Y/N) ";Y$i x Y$"Y"40~ D D!** SCALE AND ROTATION **[ :D$(4): ASSIGN CONTROL D CHARACTER TO VARIABLE D$n232,0:233,96#D$;"BLOAD TWO"("SHAPE DEFINITION (1 TO 5) = ";SD2"SCALE VALUE (0 TO 255) = ";SV<"ROTATION VALUE (0 TO 255) = ";RV F:  YA(X)15X"ENTER EITHER 1 OR 2";N,N0N251028T&Y10:Y20:X1B:X2E:20r0X10:X20:Y1YS:Y2YL:20:Y1H1:Y2H2DX1M1M2M3NX2X1:20XX1bX1H3:X2H4lY1M4M5M6vY2Y1:20Y121:1:F$XBES.2*A(X)C1X(C2X(C3X(C4XC8)))KB(X)C2X(C5X(C6XC7))yF$"(X^4 - 2X^3 - 21X^2 + 22X - 122) / 5"C117:C215:C32:C41:C53A(X)C2X(C1X(C4X))B(X)C1X(C3XC5)F$"X^3 - X^2 - 17X - 15":X2XO:Y2F1:20/@X1XO:Y1F1:X2XN:Y20:20FJ(16384)127360PTXOXNY^270gh16368,0pr255|"PRESS ";::" SPACE BAR ";::" TO CONTINUE.";I$:I$" "390230C124.4:C24.4:C34.2:C4.4:C58.4:C61.2:C7.8:C8MARKS)M450:M550:M610:H3.1:H4.1A510:PC.0000000001PN410,460Y540g:21:F$"GUESS (>90 EXITS TO MENU)";XOXO901001022:868:XOF1A(XO)"XNXOF1B(XO),(XNXO)(XN)PC3706X1XO:Y103(1)P3(2)68, GP3(2),Q3(2)P3(1),Q3(1):K I"PLOT SUBROUTINE ERROR":a d SCALE CONSTANTSh n3 xXS5:XL5:YS50:YL50:10 BXS(XLXS).3 EXL(XLXS).3 S(EB)280 X-AXIS MARKS M18:M28:M31:H11:H21 Y-AXIS ,Q1P3(G9),Q3(G9):3 7P2N0P2N2Q2N0Q2N166A 8P1P260e 9G912:P3(G9)P1P3(G9)P264k : <G912:P3(G9)P1P3(G9)P264 = ?73 @P3(G9),Q3(G9)P2,Q2: BP1P270 CP3(1)P3(2)71 DP3(1),Q3(1)P3(2),Q3(2): FP9)N0 )G9G0450 *PP1:G70P(N1G8)G7B +PN0PN245b ,G9G9G0:P3(G9)P:Q3(G9)N1n -G90ı .P1N0P1N2Q1N0Q1N155 /P1P250 0G912:P3(G9)P1P3(G9)P253 1 2G912:P3(G9)P1P3(G9)P253 3 473 5P1) G7(Q2Q1)(P2P1):G8Q2G7P2:G90< G80G8N134] G9G9G0:P3(G9)N0:Q3(G9)G8k !G9G045z "QG7N2G8 #QN0QN138 $G9G9G0:P3(G9)N2:Q3(G9)Q %G9G045 &PP1:G70PG8G7 'PN0PN242 (G9G9G0:P3(G9)P:Q3(GG6N1ı G5,G6:H P1G1X1G2:P2G1X2G2:Q1G3Y1G4:Q2G3Y2G4W P1P228j P1N0P1N2ı{ Q1N1Q1N1 Q2N0Q2N0 Q2N1Q2N1 Q1N0Q1N0 29 P1N0P1N2Q1N0Q1N1P2N0P2N2Q2N0Q2N130 P1,Q1P2,Q2: 100/"OPEN HIRES EXEC":33,33J"WRITE HIRES EXEC":e"CLOSE HIRES EXEC":x G1175(XLXS) G252G1XS G3159(YSYL) G4G3YLN00:N1159:N2279:G01:G5G1XG2:G6G3YG4G5N0G5N2ı G6N0      ALEAXLE0YARTBXRT0-I10109YVISFV(YVLY)(YVUY)İ1780]IcxXVAXD1(XVLX)XV,XATPXV,XABOYVAYD2(UYYV)YALE,YVYART,YVI119(CRDS(I))(CRDS(I1))SFDS(I):I197UYLY0XAAYUY(BYAY)(UYLY):AX,XABX,XAk"UXLX0YABXUX(BXAX)(UXLX):YA,AYYA,BYq,6TP4:BO4@XABOBYBO0JXATPAYTP0TI1010^XVISFh(XVLX)(XVUX)İ1750rI|LE4:RT4 YRYCRCRRYC2CR2?MX(UXLX)2:UXMXC2:LXMXC2bMY(UYLY)2:UYMYC2:LYMYC2htLIDO1XP(XF),YP(YF)NP1ıXJXF:YJYFKK2NPXJXJXI:YJYJYIDOēXP(XJ),YP(YJ)LIēXP(XJ),YP(YJ)KKLY)XJXF:YJYF! II1NP=XP(XJ)AXD1(X(XJ)LX)YYP(YJ)AYD2(UYY(YJ))o(XJXJXI:YJYJYIw2II}<F(AC1)(UY0)UY0P(AC1)(LY0)LY0Z(AC1)(UX0)UX0d(AC1)(LX0)LX0nxRXUXLX:RYUYLY:CRRXL1 `jUXX(XF):LXUX/tUYY(YF):LYUY;~NP1ıKXJXF:YJYFXII2NPnXJXJXI:YJYJYITXX(XJ):TYY(YJ)TXUXUXTXTXLXLXTXTYUYUYTYTYLYLYTYIID1(BXAX)(UXLX)D2(BYAY)(UYAD(L)0J1NB1Z0(J)A(X0):Z1(J)Z0(J)<K14SX0X0F0:TZA(X0)jTZZ1(J)Z1(J)TZ$TZZ0(J)Z0(J)TZ.K3UR(L)UR(L)BWZ1(J)4LR(L)LR(L)BWZ0(J)8AD(L)AD(L)BW(Z1(J)Z0(J))BJLNS(L)NBVLL1:L50OF RECT";2);"UPPER RECT";2);"LOWER RECT";2);"DIFF";wHzI1L1NS(I);12);(1000UR(I).5)1000;24);(1000LR(I).5)1000;36);AD(I)I:"PRESS RETURN WHEN READY.";F$BW(X4X3)NBX0X3:F0BW4D1(X0LX):X2AXD1(X0BWLX)6 Z0(J)0TZZ0(J)LZ0(J)0TZZ1(J)k (Z0(J)0)(Z1(J)0)850*ZHAYD2(UYTZ)4PPX1X22>PP,XAPP,ZHHPPRX0X0BW\Jfp:u11);"AREA OF";5);"AREA OF";5);"AREA5v"# (X0BWLX)#HZAYD2(UYZ0(J))@X1,XAX1,HZX2,HZX2,XAPX0X0BW:JV`X0X3lJ1NBX1AXD1(X0LX):X2AXD1(X0BWLX)HZAYD2(UYZ1(J))X1,XAX1,HZX2,HZX2,XAX0X0BW:JX0X3J1NBX1AX3:1 16368,0O "DO YOU WANT A NUMERICAL SUMMARY OF THE AREAS?";D$e &(D$,1)"Y"İ880r 0:22:1 :16368,0 D"CONTINUE?";A$:A$(A$,1) NA$"Y"ė::62450:340 X:62450:: bX0X3 lJ1NB vX1AXD1(X0LX):X2AXD1 24:1 16368,07 "HOW MANY RECTANGLES?";NB@ 980v 16368,0:"PRESS RETURN FOR UPPER RECTANGLES";A$ 680 16368,0:"NOW PRESS RETURN FOR LOWER RECTANGLES";E$ 610 :22 "SHADE?";A$:A$(A$,1) A$"Y"İ750 2OTS OR LINES?";V$ ,V$(V$,1)= 6((V$)0)(V$"L")DO0N @V$"D"DO1^ J1350:1260g T:3q ^1560 hCRUXLX:1810 r1590::22:5:"ONE HORIZONTAL DIVISION= ";SF |CRUYLY:1810 1670:5:"ONE VERTICAL DIVISION= ";SF 1460X IN(UXLX)(NP1) AC1m X(NP),XP(NP),Y(NP),YP(NP),Z0(2NP),Z1(2NP),AD(50),NS(50),LR(50),UR(50)y I1NP X(I)X3:X3X3IN Y(I)A(X(I)) I X3LX:X4UX XF1:XI1:YF1:YI1 1130 : 10:1 ""DO YOU WANT DN: M.J. CHRISTENSEN9 nDS(20):I120:DS(I)2(I10):IA x:i "WHAT ARE YOUR LIMITS ON X?";LX,UX LXUXĺ"YOU REVERSED THE LIMITS. TRY AGAIN.":130 LXUXĺ"SORRY, LIMITS CAN'NT BE EQUAL"::"TRY AGAIN":130 NP((BXAX)4)1 X3L,G C. FRIESEN HAS CHANGED STATEMENTS 200,540,885,886,900,1075,1076R 16390aA(X)X2iL1y(AX1:BX2782AY4:BY158< FOR INFORMATION CONTACTF SCHOOL OF MATHEMATICSP OF TECHNOLOGYZ ATLANTA, GEORGIA 30332 d ATT!! ! ! ! ! !!!!!!!!!380d(SIDE0V(I)V(I1)DIXn((SIDE0)(U(I1)DILG)DILGU(I1):U(I)LG:10380kx(U(I)U(I1)DIz(SIDESIDE(SIDE010320(NUMI(U(I)LGV(I)LGı(I(*:+10 +"HOW MANY SUBDIVISIONS ON EACH SIDE?";GID+:HCLRILGGID,VCLR'I('J1GIDW(HCLR,VCLRJLGGIDHCLR,VCLRJLGGID^ (Jd(<(*** DETERMINES AND STORES THE ENDPOINTS OF THE RANDOM LINE SEGMENTSF(I2GID5P(DI((1)GID)LGGIDZ((SIDE0)(V(I1)DILG)V(I)LG:10LRLG:C2VCLRV(K1)4'U(K1)LGV(K1)010120>'2800v'V(K1)LGU(K1)LGAREAAREAV(K1)(LGU(K1)):'HCLRU(K1),VCLRV(K1)'K''*** DRAWS 16 HORIZONTAL AND VERTICAL GRID LINES.'I1GID'HCLRILGGID,VCLRANCE TO MOVE'SIDE2"$'103004.'U(1)0:V(1)0C8'K1NUM1^L'C1HCLRU(K):C4VCLR|V'HCLRU(K),VCLRV(K1)`'HCLRU(K1),VCLRV(K1)j'SPACE6t'AREAAREAV(K1)(U(K1)U(K)):C3HCLRU(K1):C2VCLRV(K1)~'V(K1)LGC3HC RC2C4SPACE( YHALTC2:XHALTRDDQ XHALTC3YHALTC2XHALTC3:XHALTC3g C1,RXHALT,YHALTn" R, SC1C3SPACE6 XHALTC3:YHALTC4C3S@ YHALTC2YHALTC2:XHALTSC4C2J S,C4XHALT,YHALTT S^ '*** PICK A RANDOM DIST0:"NOW TRY AGAIN.":LEVEL5!bVl*** TRANSLATES A STRING FRACTION INTO A NUMBER.evI1(A$)(A$,I,1)"/"DSTI:1950IWR1:UP((A$,DST1))DN((A$,DST1))DN0WR2:ANSUPDNWR0 DDC1C2NSFR0ĺQ8$:10200:"NOW TRY AGAIN.":LEVEL47X1890p]ANSFR0SM0ĺQ8$:10200:"NOW TRY AGAIN.":LEVEL5^ANSFR0SM1ĺQ9$:10200:"NOW TRY AGAIN.":LEVEL5_ANSFR0SM1ĺQ3$:10200:"NOW TRY AGAIN.":LEVEL5`ANSFR0SM0ĺQ2$:1020";RD:LEVEL2:?!(ANSFR)T1B1ĺ:Q5$;WU;"/";WD:LEVEL2:Q&LEVEL31885l+LEVEL3LEVEL6:18900(ANSFR)T2ANSFR0ĺQ6$:LEVEL3::(ANSFR)T2ANSFR0ĺQ7$:LEVEL3:SM1:DANSFR0ĺQ9$:10200:"NOW TRY AGAIN.":LEVEL4-NAFDRD(GIDGID1I)NFU(FU.00001)FD(FD.00001)BI:RUFU:RDFD:1730UIpA3$" OR SIMPLIFYING "v ***TEST THE ANSWER AGAINST CERTAIN TOLERANCES(ANSFR).0001ĺQ4$:LEVEL1:(ANSFR)T1B1ĺ:Q5$;WU;"/";WD;A3$;RU;"/S OF THE ENDPOINTS OF THE PATH SEGMENTS6 JJ2GID5H TV(J)0:U(J)0O ^JU h ***GET THE NUMERATOR AND DENOMINATOR OF THE CORRECT ANSWER RU(FRGIDGID.00001) RDGIDGID B1:WURU:WDRD IBGIDGID1FURU(GIDGID1I):ON BY ZERO NOT ALLOWED!":960' 1800@ LEVEL2LEVEL6950` LEVEL6B1ĺQ0$;WU;"/";WD LEVEL6B1ĺQ0$;WU;"/";WD;A3$;RU;"/";RD "PRESS ANY KEY FOR MORE...";:F$ 1600:LEVEL0 :21 KKK ::' @ *** CLEARS THE VALUE OF THE A REA IS SHADED?", 206 (7)a "WHAT PART OF THE AREA IS SHADED?";A$k 1900 WR1S1$"YOUR ANSWER MUST BE IN THE FORM X/Y WHERE X IS ":S2$"THE NUMERATOR AND Y IS THE DENOMINATOR.":S1$;S2$:960 WR2ĺ"DIVISIGID5),V(GID5) >HC140:VC80& H9 RLG128:LRLG2G WKKK1NPP X:3[ YAREA0g \X0:Y0x fHCLR,VCLR pHCLR,VCLR zHCLR,VCLR HCLR,VCLR HCLR,VCLR 10000 FRAREA(LGLG) 1700$ Q1$"WHAT FRACTIONS "< Q6$"YOUR ANSWER IS TOO LARGE BUT CLOSE. TRY AGAIN."u Q7$"YOUR ANSWER IS TOO SMALL BUT CLOSE. TRY AGAIN." Q8$"YOUR ANSWER IS TOO SMALL." Q9$"YOUR ANSWER IS TOO LARGE." Q0$"YOUR ANSWER IS STILL WRONG. THE CORRECT AREA IS " 6U(6 1639011000-T1.51(GIDGID)9T23T1bQ2$"YOUR ANSWER IS STILL TOO LARGE"Q3$"YOUR ANSWER IS STILL TOO SMALL"Q4$"YOUR ANSWER IS EXACTLY CORRECT!!!" Q5$"VERY CLOSE. YOUR ANSWER IS ACCEPTED."(13)(10)"THE ANSWER I"" " " " " """""""""