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` REYOU CAN BUY USED APPLE SOFTWARE AT" d"ANAZING PRICES OR SELL YOUR OWN UNNEEDEDUSED SOFTWARE. WE HOPE THAT YOU WILL ENJOY OUR PRODUCTS AND SERVICES.":23 ANDEXCHANGED."::"WE ALSO SELL MAPS/CLUES/SOLUTION/TRIVIA BOOKS TO MANY POPULAR COMPUTER ADVENTUREGAMES FOR ONLY $2.65 PER TITLE POSTPAID.OUR HINT BOOKS ARE THE BEST!"% Z:"WRITE US FOR INFORMATION ABOUT THIS OR ALSO ABOUT OUR USED SOFTWARE LISTS WHE PER DISK WHICHINCLUDES RETURN POSTAGE. OR WE CAN SELLYOU THE BLANK DISKS NEEDED FOR AN" F"ADDITIONAL FEE OF $1.10 EACH. WE CAN COPY SINGLE-SIDED OR DOUBLE-SIDED. ALL OUR THOUSANDS OF PROGRAMS ARE IN THE" P"PUBLIC DOMAIN AND CAN BE FREELY USED* ' * GEOFFREY GENZ *9 ' * *U ' * AGES 15 & 14 *q' * *' *********************I *!,# ********************* =' *********************Y' * *u' * MATH *' * *' * BY *' * * ' * PAUL BRAUN * ' * & AAXİ690AAXī1680+AAXİ620c"SORRY, THAT IS WRONG":"THE CORRECT ANSWER IS ";Xm1680"?WRONG KEY ERROR"(# *********************)# * CORRECTIONS BY **# * TOM KOVACIC *+# * 8-26-83 "D,"WOULD YOU LIKE EASY,MEDIUM,":"OR HARD PROBLEMS(E,M,OR H)"L6R$]@R$"E"1650nJR$"M"1660TR$"H"1670^1760h1580rW4:1680|W9:1680W49:1680X(W(1))1:Y(W(1))1XY;" / ";Y;" ="AA 17601390P5:1480,P10:1480;P50:1480WQ(P(1)):R(P(1))kQ;" X ";R;" ="rSSQRİ690SQR1480SQRİ620"SORRY, THAT IS WRONG ":"THE CORRECT ANSWER IS ";QR::1480G ":"THE CORRECT ANSWER IS ";KJ+2::1<lF"SORRY, THAT IS WRONG.":"THE CORRECT ANSWER IS ";JKvP::|Zdn"WOULD YOU LIKE EASY, MEDIUM,":"OR HARD PROBLEMS(E,M,OR H)"xO$:O$"E"1450O$"M"1460O$"H"1470120LNOİ6200"SORRY, THAT IS WRONG"R"THE CORRECT ANSWER IS ";NO\::f1120mL}LONİ690LON1120LONİ620 "SORRY, THAT IS WRONG""THE CORRECT ANSWER IS ";ON1120!("SORRY, THAT IS WRONI10940L%$LJKİ6904.LJK940E8LJKİ620OB1350^LM10I10gV940`N(100(1)):O(100(1))jNOĺN;" - ";O;" ="tNOī1170~ONĺO;" - ";N;" ="ONī1250LLNOİ690LNOī1920pI$"H"1120z1760'8405I10:930CI75:940LM10\K(I(1))lJ(I(1))KJĺK;" - ";J;" =":KJ980KJĺJ;" - ";K;" =":KJ1050LLKJİ690LKJ940LKJİ6201320M10I G H H T"34)" RRRR I G G HHHH T"U 4)" R R I G G H H T"w4)" R R III GGGG H H T" A1750:A*4>H"WOULD YOU LIKE EASY, MEDIUM, OR HARD":"PROBLEMS?(E,M,OR H)RI$\I$"E"910fI$"M"769,50:770:A1100:A:768,175:769,85:770uA1100:A:768,200:769,75:770:A1100:A:768,175:769,85:770A1100:A:768,160:769,255A1100:A:768,155:769,255:770:(12):5)"RRRR III GGGG H H TTTTT"4)" R R 0NECDİ550"XECDİ620+b6603lI1GvSOUND(16336)YII1:I75ıb630"SORRY, YOUR WRONG":"THE CORRECT ANSWER IS ";CD:550768,200:769,85:770:A1100:A:768,200:769,65:770-A125:A:768,200:LD YOU LIKE EASY, MEDIUM, OR":"HARD PROBLEMS? (E,M,OR H)"BB$SB$"E"İ510dB$"M"İ520uB$"H"İ5301760440B10:550B75:550B300:550B&C(B(1)):D(B(1))0C;" + ";D;" =":EDECDİ6932,4' 65)"WHAT IS YOUR NAME?":A$- @ JA$" WOULD YOU LIKE TO ADD,":"SUBTRACT, MULTIPLY, OR DIVIDE?":"(A,S,M,OR D)" TB$ ^B$"A"430 hB$"S"830 rB$"M"1380 |B$"D"1570 1760 330 1760 330 :"WOU"::"THESE THINGS. TO CHANGE" :"TO ANOTHER OPERATION OR LEVEL OF"::"DIFFICULTY, HIT 'RESET' THEN RUN MATH"::"OR WHICH EVER PROGRAM THAT YOU LIKE.":::"HIT 'RETURN' TO CONTINUE" H$  "5)"HELLO, I'M THE APPLE]"(91)" COMPUTER." ,91):17)"MATH" 34,4% :::Y "WOULD YOU LIKE INSTRUCTIONS?":G$:G$"N"280_  "YOU WILL PICK THE OPERATION THAT YOU"::"WOULD LIKE, THEN PICK THE LEVEL OF"::"DIFFICULTY THAT YOU WANT. YOU DON'T"::"NEED TO HIT 'RETURN' FOR ANY OF36,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96 x 165,50,160,50,0,100,190,50,185,50,0,100,215,50,210,50,0,100,235,100 -1,-1 I,J:J1180 I0āA1J::140 768,I:769,J:770 140 A11000:A  16)"APPLE]";(]]]] "(91);(91);(91);(91)H F::::" M M A TTTTT H H"k P" MM MM A A T H H" Z" M M M A A T HHHH" d" M M AAAAA T H H" n" M M A A T H H" oI770790:J:I,J:4 p 173,48,192,1  :O(7):" A PPPP PPPP L EEEEE ]]]] "(91);(91);(91);(91)~" A A P P P P L E ] "(91)(" A A PPPP PPPP L EEEE ] "(91)2" AAAAA P P L E ] "(91) <" A A P P LLLL EEEEE      (2)R(2))' B(V(1)R(1)V(2)R(2))2a BB((V(1)R(1))2(R(1)1)(V(2)R(2))2(R(2)1))2o B(B.5)u  "T-VALUE = "(A) "DEGREES OF FREEDOM = "B   THELLO" R) I  T2340( T3380> ""VALUE OF MEAN";E ,Ma 6A(M(1)M)(R(1)V(1))n @BR(1)1w J420 TA(M(1)M(2))(1R(1)1R(2)) ^BR(1)R(2)2 hAA(((R(1)1)V(1)(R(2)1)V(2))B) r420 |A(M(1)M(2))(V(1)R(1)Vd nI1(T1)1 xV(I)0+ D(I)0@ "SAMPLE ";I;":"] " NUMBER OF ELEMENTS";g R(I)u J1R(I) " ELEMENT "J; P(J,I) V(I)V(I)P(J,I) D(I)D(I)P(J,I)2 J M(I)V(I)R(I) V(I)(D(I)V(I)2R(I))(R(I)1"A*B=";Y1Z2Z1Y2;",";Z1X2X1Z2;",";X1Y2Y1X2: x[ "MORE DATA? (1=YES, 0=NO)";b Xn X120 "RUNHELLO"1" "OPERATIONS ON TWO VECTORS"(L"VECTOR A: X,Y,Z COORDINATES";Z(X1,Y1,Z1~2"VECTOR B: X,Y,Z COORDINATES";<X2,Y2,Z2FP"A+B=";X1X2;",";Y1Y2;",";Z1Z2Z"A-B=";X1X2;",";Y1Y2;",";Z1Z2d"A.B=";X1X2Z1Z2Y1Y24 n   M(2)0310< J(X(1)X(2)Y(1)Y(2)Z(1)Z(2))M(1)M(2)J J0300S J90\ "310r ,J((1J2)J)S 6"ANGLE BETWEEN VECTORS: ";J @ J"MORE DATA? (1=YES, 0=NO)"; TZ ^Z140 h"RUNHELLO"220 x"VECTOR ";I;":"/ "MAGNITUDE: "M(I)> S57.29578N JX(I)M(I)q "ANGLE WITH X-AXIS: ";A(J)S JY(I)M(I) "ANGLE WITH Y-AXIS: ";A(J)S JZ(I)M(I) "ANGLE WITH Z-AXIS: ";A(J)S I J0 M(1)0310  :+A(X)(X(XX1))1.5708J "ANALYSIS OF TWO VECTORS"cX(2),Y(2),Z(2),M(2)i#("VECTOR 1: X,Y,Z";2X(1),Y(1),Z(1)<"VECTOR 2: X,Y,Z";FX(2),Y(2),Z(2)PZI12dM(I)(X(I)2Y(I)2Z(I)2) nM(I)0   Z0 50' "RUNHELLO" W) "TRIG POLYNOMIAL"[ - ENTER NUMBER OF PAIRS OF TERMS AND COEFFICIENTS HERE("(ENTER ANGLE=99999 TO END PROGRAM)"2"ANGLE";<RFR99999180PNZI1NdA,BnZZA(IR)B(IR)xI"F(";R;")=";Z  REES" I  60 3 "NO SOLUTION"9 A &60R 0"RUNHELLO" A220$ "ENTER SIDE, SIDE, SIDE";8 S(1),S(2),S(3)d A(1)(S(2)2S(3)2S(1)2)2S(2)S(3)v A(1)B(A(1)) 220  I13 A(I)0520 "SIDE ";I;" = ";(S(I)1000.5)1000 "OPPOSITE ANGLE = ";(A(I)C1000.5)1000;" DEG A(3),A(2),X(3)" A(3)A(3)C2 A(2)A(2)CG A(1)PA(2)A(3)P "160p ,"ENTER SIDE, SIDE, ANGLE"; 6S(1),S(2),A(1) ;A(1)A(1)C @TS(2)(A(1)) JS(1)T520 TS(3)S(3)Y ^S(1)T380 hY(S(1)2T2) rS(3)S(3)Y | 440( "ENTER SIDE, ANGLE, SIDE";< S(3),A(1),S(2)L A(1)A(1)Cz S(1)(S(3)2S(2)22S(3)S(2)(A(1))) A(2)(A(1))S(1)S(2) - ARCSIN FUNCTION A(2)A(A(2)) A(3)PA(1)A(2) 440 "ENTER ANGLE, ANGLE, SIDE"; TYPE BY NUMBER"; FX% PX65602 ZX5390? dX4300L nX3260Y xX2190z "ENTER ANGLE, SIDE, ANGLE"; A(1),S(3),A(2) A(1)A(1)C A(2)A(2)C A(3)PA(1)A(2) S(1)S(3)(A(1))(A(3)) S(2)S(3)(A(2))(A(3))TA(X)(X(XX1))4B(X)A(X)1.5708>936Y "PARTS OF A TRIANGLE"_nA(3),S(3)~(P3.1415927-C.01745329272"PROBLEM TYPES:":"1. ASA":"2. SAS":"3. AAS":"4. SSA":"5. SSS":"6. END PROGRAM": <"ENTER PROBLEM       0,0,0 32767" ACH$(Y)ī5+ 255S*************";P d:"A","B","C"::"****************************************"t n"THE ANGLES ARE"::A1,B1,C1: x"THE SIDES ARE"::R(A),R(B),R(C): "AND THE AREA IS ";R(A2) 40  24,51,10  30,60,15  45,45,20 10999# : FIND THE THIRD ANGLE7 <C1180(A1B1)f D 70 AND 80 COMPUTE THE OTHER TWO SIDES} FBAT(B1)T(A1) PCBT(C1)T(B1) X COMPUTE AREA ZA2.5ABT(C1) b NOW PRINT THE RESULTS c"***************************-1707 WE COMPUTE THE COVERSION FACTORJ K3.14159180r DEFINE TRIG FUNCTION FOR DEGRESST(G)(GK) DEFINE A ROUNDING FUNCTIONR(X)(X100.5)100& A1 AND B1 ARE ANGLES AND A IS A SIDE(A1,B1,A 2A   I((A)C(B))2)D( "INTEGRAL = ";I. 6 50G "RUNHELLO"EI& "INTEGRATION: TRAPEZOIDAL RULE",;C(X)X3]("(ENTER 0,0 TO END PROGRAM)"2"INTEGRATION LIMITS (LOWER, UPPER)";<A,BFAB190P"NUMBER OF INTERVALS";ZNdI0nD(BA)NxJABDIIC(J)J I(  "T DISTRIBUTION TEST""/P(10,2)H(V(2),R(2),M(2),D(2)^2"TEST 1: MEAN=X"<"TEST 2: MEAN=MEAN,STANDARD DEVIATION=STANDARD DEVIATION"F"TEST 3: MEAN=MEAN,STANDARD DEVIATION<>STANDARD DEVIATION"P"WHICH HYPOTHESIS";ZT      T NHELLO" ) K29R4 L((1K)Z(13)1J)(KZ(23)J)q X.5(1L(.196854L(.115194L(.000344L.019527))))4 X(X10000.5)10000 290 LL(1.08L4R3 240 "T1310 ,X1X 6"RIGHT TAIL VALUE = "X @ J40 T  "T DISTRIBUTION"J"(TO END PROGRAM ENTER A T-VALUE OF 0)"Z("T-VALUE";a2Tn<T0340F"DEGREES OF FREEDOM";PDZX1dY1nTT2xT1170SYRDZT200SDRYZ1TJ29S    IJ 380 TYA(I,J)) ^ K1 R1D hA(I,K)A(I,K)YA(J,K)L r KT | I\  Jb p  I1 R "X";I;"=";(A(I,R1)10005)1000  I  I J J1 R* IJ RA A(I,J) 0 230I Ic "NO UNIQUE SOLUTION"m 440} K1 R1 XA(J,K) A(J,K)A(I,K) A(I,K)X  K Y1A(J,J) " K1 R1 ,A(J,K) YA(J,K) 6 K @ I1 R J% "SIMULTANEOUS EQUATIONS"+9 A(9,10)U("NUMBER OF EQUATIONS";]2 Rz<" COEFFICIENT MATRIX:"F J1 RP"EQUATION";JZ I1 R1d IR1 130n " COEFFICIENT";I;x 140" CONSTANT"; A(J,I)    (AIX1) I2(I2)280& CCY/ 2909 DDY@ "Ii ,"INTEGRAL IS ";X13(Y14C2DY2)z 6"RUNHELLO" J _VR(BA)X1! dVR(VR)80. nS1150P x"FIRST. LAST VALUE OF F(X)";[ Y1,Y2d 170q Y1C(A)~ Y2C(B) C0 D0 I1(BA)X1.5 S1240 "VALUE OF F(X) AT INTERVAL ";I;" (X=";AIX1;")"; Y 250 YC|$ "INTEGRATION: SIMPSON'S RULE"*`"SELECTION: 1=KNOWN FORMULA, 0=UNKNOWN FORMULA";g(S2 - DEFINE YOUR FUNCTION HERE IN THE FORM "FNC(X)='YOUR FUNCTION'"<"LOWER, UPPER LIMIT OF INTEGRAION";FA,BP"INCREMENT OF X";ZX1 A1200 &"RUNHELLO" 2OR","DERIV." X,F0,F1 B "ANOTHER VALUE (1=YES,0=NO)";I AV A1170| "ANOTHER FUNCTION (1=YES,0=NO)"; A A130 550 "100 ITERATIONS COMPLETED:" " X = ";X;" F(X) = ";F0 " CONTINUE (1=YES,0=NO)"; A "; X Q0 S1" F10+ F005 QQ1B I1N1S F0F0A(I)Sd F1F1B(I)Sn SSXu "I ,F10360 6SXF0F1 @XS380 JXS TQ100490 ^210 h"DERIVATIVE = 0 AT X = ";X r180 | " ROOT"," ERR* "REAL ROOTS OF POLYNOMIALS: NEWTON"0AA(11),B(11)M(I111X2A(I)0c<B(I)0jFIP"DEGREE OF EQUATION";ZNdI1N1n"COEFFICIENT A(";I1;")";xA(I)II110B(I)A(I1)II "GUESS   N HELLO" OF SIGN FOUND" 60 BX, D(2A1)A: "D(2A1)BN ,Y(D(1)D(3))2^ 6Y1(R(Y))l @Y10400z JD(2Y1)Y T(D(1)D(3))(D(1)(D(3)))5E6400 ^300 hA10390 rYB1 |400 YA1 "ROOT = ";Y  60 "RUE EQUAL!--" n60 xAB150N "--LOWER LIMIT MUST BE ENTERED FIRST!--"V 60f A1(R(A))v B1(C(B)) A1B10360 A1B10280 I11000 XA(2)(BA) X1(R(X)) X10400 A1X10270 I "NO CHANGE 3 "ROOTS OF POLYNOMIALS: HALF-INTERVAL SEARCH"9l - ENTER FUNCTION (DEFFNR(X)="FUNCTION") HEREv(D(3)2"(TO END SEARCH ENTER 0,0)"<"INTERVAL (LOWER,UPPER LIMIT)";FA,BPAB120ZA0430 d"--INTERVAL LIMITS CAN'T B     HIT RETURN TO CONTINUE";:X$:10000-;X0XM4@IJ:" *** DESIRED ACCURACY NOT ATTAINED ***"::"HIT RETURN TO CONTINUE";:X$:10000':10:"DO YOU WANT TO GO AGAIN ";:X$:(X$,1)"Y"1000'(X$,1)"N"10000$':NNTINUE";:X$::"ITERATION";20);"X-LEFT";32);"X-RIGHT"::I%1]XMXLFL(XRXL)(FRFL)oXXM:20:FMYFLFM0FRFM:XRXM"FLFM0FLFM:XLXM,5);I;16);XL;29);XR#6(XMX0)ACCĺ:" *** DESIRED ACCURACY ATTAINED ***"::":100009"WHAT IS THE MAXIMUM # OF ITERATIONS ";:MAX"HOW MANY DECIMAL PLACES IN YOUR ANSWER ";:N:N1N9ĺ:" *** BETWEEN 1 & 9 PLEASE !! ***"::4080I%18ACC.1NX0XLI1MAX@I%I%1:I%19Ģ24:"HIT RETURN TO CO"WHAT IS THE RIGHT HAND ENDPOINT ";:XRXLXR0ĺ:"*** ENDPOINTS IN THE WRONG ORDER !! ***"::"HIT RETURN TO CONTINUE";:X$:10000XXL:20:FLY:XXR:20:FRYFLFR0ĺ:" *** NO ROOT IN INTERVAL ***"::"HIT RETURN TO CONTINUE";:X$SITION METHOD, YOU":"MUST GIVE ME THE ENDPOINTS OF AN":"INTERVAL CONTAINING A ROOT, THE MAXIMUM":"# OF TIMES THE ALGORYTHYM IS ITERATED &""THE NUMBER OF DECIMAL PLACES YOU WANT":"IN THE ANSWER.":::"WHAT IS THE LEFT HAND ENDPOINT ";:XL*ES HALVED";18);"X-LEFT";28);"X-RIGHT"::I%1M XM(XRXL)2:XXM:20:FMYm! FLFM0XRXM:FRFM:3120" FLFM0XLXM:FLFM0 5);J;16);XL;28);XR: J::"*** DONE ***"::"HIT RETURN TO CONTINUE ";:X$:10000:" FOR THE FALSE POFRFL0ĺ:"THERE'S NOT AN ODD NUMBER OF ROOTS IN":"THE INTERVAL YOU GAVE ME.":"":"HIT RETURN TO CONTINUE ";:X$:10000 J1:I150:JJ2:BJSIG3090 I I50 I%18. J1I:I%I%1:I%19Ģ24:"HIT RETURN TO CONTINUE";:X$::"TIMXR:i "HOW MANY DECIMAL PLACES IN ANSWER ";:N:N1N9ĺ:"*** BETWEEN 1 AND 9 PLEASE ***"::3060v SIG.1N BXRXL:B0ĺ:"YOU GAVE ME THE ENDPOINTS WRONG !!":"HIT RETURN TO CONTINUE ";:X$:10000 XXL:20:FLY:XXR:20:FRY} ST GIVE":"ME THE ENDPOINTS OF AN INTERVAL THAT" "CONTAIN A ROOT. YOU ALSO MUST GIVE ME":"THE NUMBER OF DECIMAL PLACES YOU'D" "LIKE IN THE ANSWER." : "WHAT IS THE LEFT HAND ENDPOINT ";:XL: "WHAT IS THE RIGHT HAND ENDPOINT ";:;XN;23);FX" \(XNX0)ACC2200/ fX0XN:I p:" *** FAILED TO CONVERGE ***"::"HIT RETURN TO CONTINUE";:X$:10000 :" *** DESIRED ACCURACY ATTAINED ***"::"HIT RETURN TO CONTINUE ";:X$:100000 :" FOR INTERVAL HALVING, YOU MU ACC(.1)10 SIG10N.51 XX0:20:FXY; I%18H I1MAXT I%I%1 I%19Ģ24:"HIT RETURN TO CONTINUE";:X$::"ITERATION";16);"X";30);"F(X)"::I%1 *XX0.001:20:FDY 4XNX0FX(FDFX).001 >XXN:20:FXY R5);I;11)> "NUMBER OF DECIMAL PLACES YOU WANT IN ":"THE ANWER."::f "GIVE ME AN INITIAL GUESS ";:X0: "GIVE ME A MAXIMUM # OF ITERATIONS ";:MAX: "GIVE ME THE # OF DECIMAL PLACES ";:N:N1N9ĺ:" *** BETWEEN 1 AND 9 PLEASE ! ***"::2050G" =' B" 3. FALSE POSITION"K L::"WHICH ";:X:X1X31060a VX2000,3000,4000 :" NEWTON-RAPHSON REQUIRES THAT YOU":"GIVE ME AN INITIAL GUESS AT THE " "ROOT, A MAXIMUM NUMBER OF TIMES TO":"ITERATE THE ALGORYTHYM, AND THE "=F(X) "d :"WHERE F IS AN APPROPRIATE FUNCTION":"OF X. AFTER ENTERING YOUR FUNCTION," "TYPE:"::" RUN ":: " $:4:"SELECT METHOD TO BE USED:": ) ." 1. NEWTON-RAPHSON" 3 8" 2. INTERVAL HALVIN  1000Y(X)3X N:4:5);"***** ROOT FINDING DEMO *****"8:"CURRENT FUNCTION:"::20:::"DO YOU WANT A DIFFERENT FUNCTION ";:X$(X$,1)"N"1060(X$,1)"Y"1000 :"TYPE YOUR FUNCTION AS IN THIS EX:"::"20 Y          :5003200+& FRED L. MORING:& 2321 LEES& WACO, TEXAS 76711n' JULY 24, 1979ALOPE = "::500G 3200(H "RISE = "1M 200:N BBATR I((H2)(BB2)):BIme "BASE= ":BI::500p HSSI:BH:"SLOPE="::500u 3200 "SLOPE =" 200 HA IHSS::BI:"BASE =":500 BB((H2)(I2)):BBB "RISE=":IHm "AT SAME BEVEL":"IF YOU KNOW BASE HIT (1)":"IF YOU KNOW RISE HIT (2)":"IF YOU KNOW SLOPE HIT (3) t M M13300 M23400 M33500 TTBBI:"BASE=" 200 IA BBTTI:BBB "RISE="::500 HSSI:BH "SSIXTEENTHS)":"IF NONE HIT (0)":*! 2002& IAH0 BB((H2)(I2))Q2 BBBb5 "RISE = ":k: 500}? "BEVEL = ":A TTBBIB SSHID JTT12N K(J)X L((JK)16).5] M(L)b "INCHES = ";Kl "SIXTEENTHS = ";M::v CC"::500 2200 ' "SLOPE ="0 2008 SAZ BBSSS::"BASE= ":BBB:500{ RTTBB::BR:"RISE= ":500 2200  "ENTER SLOPE(FEET, INCHES, SIXTEENTHS)":"IF NONE ENTER (0)": 200 HA! "ENTER BASE(FEET, INCHES, M12300M22400%M325004"BASE = "= 200F BBAV RTTBB:BRl "RISE = "::500|# SSSBB:BS$ "SLOPE ="::500_ 2200` "RISE = "e 200f RA} BBRTT:BBB:"BASE= "::500 SBBCC BS "SLOPE= YTTRBBZSSSBB$[CCBBS0\JTT12;fK(J)OpL((JK)16).5ZuM(L)mz"INCHES = ";K"SIXTEENTHS = ";M::"AT SAME BEVEL":"IF YOU KNOW BASE HIT (1)":"IF YOU KNOW RISE HIT (2)":"IF YOU KNOW SLOPE HIT (3) M 12001200X"ENTER SLOPE(FEET, INCHES, SIXTEENTHS)":"IF NONE ENTER (0)":a200iSA4"ENTER RISE(FEET, INCHES, SIXTEENTHS)":"IF NONE HIT (0)":9200>RAHBB((S2)(R2)):BBBM"BASE= ":R500W"BEVEL :":BBSSD:BBB" <"SLOPE ="::500, w1200; x"RISE = "D }200L ~EAm DETT:BD:"BASE = "::500 BBSSD:BBB:"SLOPE="::500 1200 "SLOPE =" 200 BBA DBBSS::BD:"BASE=":500 ETTD::BE:"RISE =":500 "SIXTEENTHS = ";M::~ "AT SAME BEVEL":"IF YOU KNOW BASE HIT (1)":"IF YOU KNOW RISE HIT (2)":"IF YOU KNOW SLOPE HIT (3) M M11300 M21400 M31500 TTED:"BASE = " 200 DA 1ETTD:BE 2"RISE = "::500 ; RISE(FEET, INCHES, SIXTEENTHS)":"IF NONE ENTER (0)":@ Q200H VEAc `BB((D2)(E2)):BBBt e"SLOPE :":} j500 o"BEVEL : ": qTTED rSSBBD sCCED tJTT12 ~K(J) L((JK)16).5 M(L) "INCHES = ";K 2) AA(C192) # U(B)2 V(BU)12= W(V)Q X((VW)16).5\ Y(X)m "FEET = ";U &"INCHES = ";W 0"SIXTEENTHS = ";Y :: "ENTER BASE (FEET, INCHES, SIXTEENTHS)":"IF NONE ENTER (0)": 200 DA7 L"ENTER@ <"TO FIND BASE WHEN SLOPE AND RISE":"ARE KNOWN HIT (2)": F"TO FIND RISE WHEN SLOPE AND BASE":"ARE KNOWN HIT (3)":: PA ZA11000 dA22000 nA33000 "FEET = ";A "INCHES = ";B "SIXTEENTHS = ";C  AA(B1o  FRED L. MORING4 2321 LEE STREET N WACO, TEXAS 76711b :::::::t"PROGRAM:":"RIGHT TRIANGLE SOLUTIONS"("************************"::::::: 2"TO FIND SLOPE WHEN BASE AND RISE":"ARE KNOWN HIT (1)":     ...8 r PROGRAM CLASSIFIED - PUBLIC DOMAIN -> | "Ā  CONTROL C X2 ":"JOB DONE."::8 'K , BY ED HANLEYY 6 BOX 437r @ CARTHAGE, TN 37030x J T 'QUADRATIC SURFACE' ^ h THIS PROGRAM GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS BY AUTHOR: ED HANLEY" X "," Y ","F(X,Y)"/ "---","---","------"? YYSYFSYf FAB1XB2YB3X2B4Y2B5XY ROUND F TO 2 PLACES F(F100.5)100 X,Y,F II1 I21ĺ"(HIT ANY KEY.)":T$:I0 T$""Ā: 'CONTROL C' Y A$:A$"B4 n"B5";:B5 s? x GET LIMITS ON X,Y ACROSS SURFACEi "X DIRECTION (E-W): FROM,TO";:XS,XFz "STEP";:SX "Y DIRECTION (N-S): FROM, TO ";:YS,YF "STEP";:SY CALCULATE VALUES, 1 E-W ROW AT A TIME XXSXFSX I0 ? s"THIS PROGRAM WILL GIVE POINT VALUES":"AT REGULAR INTERVALS OVER A QUADRATIC":"SURFACE, DEFINED BY:"(:"F(X,Y)=A+B1X+B2Y+B3X^2+B4Y^2+B5XY"2 GET VARIABLES7:<"A";:AF"B1";:B1P"B2";:B2Z"B3";:B3 d"B4";:  x"MORE DATA (1=YES,0=NO)";# X/ X120@ "RUNHELLO" LB% "ROOTS OF QUADRATIC EQUATIONS"+F"COEFFICIENTS A,B,C";Q(A,B,Ca2SB24ACo<R((S))|FS0100P"ROOTS (REAL): ";(BR)(2A);", ";(BR)(2A)Z110d"ROOTS (COMPLEX): ";B(2A);" + OR - ";R(2A);" I"n    "-" : A BX138 L"-"; V# `"-") / H  DISPLAY COMMENTARYN  "THIS PROGRAM WILL TAKE ANY INTEGER AND CALCULATE ITS PRIME FACTORS. "  SUBHEADING ((40(ARG$))2) ARG$  X138  "-"; &  0 S0170D - PRINT FACTORS WITH EXPONENTS; I^S = I TO THE S POWERQ I;"^";SX I^ v - RESTART PROGRAM~ 40   SCREEN HEADING   BELL$(7): BELL SOUND BELL$ ((40(ARG$))2) $ .ARG$ 8 A FACTOR F(Z)? O - USE ABSOLUTE VALUE FOR CALCULATIONSJ PZ(Z) Y - LOOP TO TEST ALL INTEGERS (2 THRU Z) AS PRIME FACTORS ZI2Z dS0 n(ZI)(ZI)150 xZZI SS1 110 - FIND A PRIME FACTOR? IF YES, PRINT , ARG$"PRIME FACTORS OF INTEGERS":1000W ARG$"ADAM OSBORNE & ASSOCIATES":3000]g2000"(ENTER 0 TO END PROGRAM)"#((7): BELL-"ENTER NUMBER:";Z; - END PROGRAM<Z0200 E - THE SIGN OF THE NUMBER IS ALWAYSLLO" N" "PRIME FACTORS OF INTEGERS"(H"(ENTER 0 TO END PROGRAM)"V("NUMBER"]2Zj<Z0200tF(Z)PZ(Z)ZI2ZdS0nZI(ZI)150xZZISS1110S0170I;"^";SI40 "RUNHE"YES"İ2000, "DO YOU WANT TO CONTINUE?"4 A$C A$"Y"ī8I O V 3c X1190r YAO(XA)~ Y190Y Y1ī2090 X,Y X *E11000:E / X;XA:"INTERCEPT M = ";AD/ z"R-SQUARED = ";RS; |Y0:X0A }n ~"Y=A*(X^B), TO FIGURE Y, ENTER IN X ";X} YAO(XA) "Y = ";Y:"X = ";X:"SLOPE = ";A:"INTERSEPT = ";A0 "DO YOU WANT THE GRAPHED RESULTS?" B$ B$"Y"İ2000 B$Y)(2) P I8 dA ((EEXY(EXEYN))(SX(EX2N)))L nYAEYN:XAEXN_ pAO (YAAXA)u uZA(EEEXEYN)2 vZB(SX(EX2)N) wZC(SY(EY2)N) xRS((ZA)((ZB)(ZC))) y"SLOPE =";A:"Y-AVERAGE = ";YA:"X-AVERAGE = ";XA:"INTERCEPT = "SSXYO:N0. A0:B0:YA0:XA0:RS0:AO0:N0W ("ENTER IN NUMBER OF PAIRS OF X AND"o )"Y COORDINATES ";Nz *I1N 2"ENTER IN X,Y FOR POINT ";I 3X,Y 4Y(Y):X(X) FEXEXX:EYEYY:EEXYEEXY(XY):SXSX(X2):SYSY(Y2):SSXYSSXY(Xʼ::::::::::68);"POWER CURVE FIT"Q8);"BY T.D. MOTELES"o8);"AND NEIL D. LIPSON":8);"COPYRIGHT 10,9,78"8);"ALL RIGHTS RESERVED":X11300:X DONATED PUBLIC DOMAIN :: EX0:EY0:EEXY0:SX0:SY0:    ) 169,0,160,0,32,113,248,141,42,3,96G I784 794:J:I,J: IM5XKXY0 I1 D114YYB(I)X(I1)< IG 3010P KXVt"ERASE LAST PLOT?";: Z$ Z$"NO" 4700 0 4002\787,XX:785,YY:784 (810)13 CC1 D1784:D2785:D3787:D4810:D5127 13 YPYY1% XXX1C XXXXSCALE:YYYPYSCALE P YY39YYk XX 39 XX0 3090 YY39 YY0 3090 4800 CC1 3075 XX,YY CC0 3100 "OFF SCALE !"  D11KXX1 X2 X3  I C(1)1C(1) 660 - I2 D2BB(I1)B(I)B(2)J IXB(D22)Y`R0p I1 D22  JI D22RR1 C(R)C(R)B(I)B(J)* J4 I>S1S1B(2)HS2S2B(2)2RS3S3Y\S4S4YYfS5S5B(2)YBPS L J#VT(D21)(D22)23` I1 D21?jTT1IOtC(T)1C(T)_~ J1 D2InPD21IJPP(D21(P1)2)IRPJS0UIJ1VP K1 JVVUKSSC(RK)C(V) KC(P)SC(R) JOUGH POINTS"P1:W1*D2D219 J1 D2JC(P)(C(P))\ I1 D2J1sC(PI)C(PI)C(P){ IRPISR L1 D2JPP1 M1 D22JLC(RM1)C(RM1)C(P)C(PM1)$ M.RRM18 L2# "FINISHED WITH GRAPH";: Z$9  Z$ "YES" 750D  4000O  4500Y  620_ v "COEFFIECIENTS ="|   I1 D11 "B(";I1;")=";B(I)  I  "R SQUARE = ";R1T0   600   ND2 930 "NOT EN11 B(I)0!  J1 D1I2? R(IJ1)(D22.5(IJ))Y B(I)B(I)C(TJ)C(R)a  Jv TI(D2(3I)2)~  I R10  I2 D11 MZI(D2(3I)2) R1R1C(MZ )2  I MX(D21)(D22)2 T0C(MX) T0T0C(D21)S3N;"STD DEV=";S9* 0"CORR. COEFF.=";R9K :"ENTER 1 TO CONTINUE";: Z$a X N (D2W) 620z ]"NOT ENOUGH POINTS" b l"ENTER DEG REGRESSION"; v D1  D1D2W 650 "MAX DEG =";D2W  620  W0 900 T0  I1 D POINTS"  410!  QQ 1 N= "ENTER X,Y POINT #";QQJ  B(2),YU XB(2)`  3000k  2000t  QQ S8((S2S12N)(N1)) S9((S4S32N)(N1)) R9(S5S1S3N)(N1)S8S9 "X: MEAN=";S1N;"STD DEV=";S8 &"Y: MEAN=";"ENTER X MIN, X MAX";% X1,X2 @ "ENTER Y MIN, Y MAX";L Y1,Y2b DXX2X1:DYY2Y1 XSCALE39DX:YSCALE39DY X3DX50 14 0,3939: 0,390 "ENTER NUMBER OF POINTS";  N  ND2 460 "NOT ENOUGHO  C(253),B(22) 5000- I1 22?C(I)0:B(I)0G( IX2 I23 253c<C(I)0kF IvPB(1)1ZW0:N0:S10:S20:S30:S40:S50_"INPUT 1 TO PLOT";` K3d"MAX DEGREE=";n D2x D220 100 K31 410   :"HIT RETURN WHEN FINISHED"% ; "X=";X$:X$""ıG X(X$)O Y0] IN11p YA(I,N1)XYw I 998:15:"Y="Y 3010DL4:5000:922:::LCNTLCNTDLLCNT22ıA$:LCNT1:DA(MI,J):A(MI,J)A(K,J):A(K,J)SWAP)J9JN1K1RA(K,J)A(K,J)A(K,K)YJnI1N:IK1058~JN1K1A(I,J)A(I,J)A(I,K)A(K,J) J"I$K.:M$"?";:A$:A$A$"Y"F1:A$"N"F0:2000VALUES IN "A" FOR+ COEFF'S AND TOTALS,F GOSUB 1000, AND FINDc UNKNOWN XI IN A(I,N+1)nK1N}FIND ROW MA0IKNAI(A(I,K)):AI(MA)MAAI:MIIIDO ROW PIVOT--ROWS K&MIMIK1040 J1N1" SWAPRINT"Q$"2) DO ANOTHER POLYFIT, OR"Q$0 "RUN"DD$"CLOSE TEMP"WD$"EXEC TEMP"]uGAUSS ELIMINATION.SOLVES N EQUATIONS IN N UNKNOWNS.EQUATION I (1<=I<=N): A(I,1)X1 + A(I,2)X2 + ...A(I,N)XN = A(I,N+1)PUT M$"DO YOU WANT TO DO ANOTHER FIT":2000:F14 K D$"NOMON C,I,O":` D$"DELETE TEMP"s D$"OPEN TEMP" D$"WRITE TEMP" "LOAD GRAPH/2" "60 "C$ "90 P$="Q$"POLYFIT"Q$ "210 "F$:"520 "F$ "610 PRINT"Q$;F$;Q$%"806 PED BASIC FORM IT IS:" :F$0 ILAST0480K DL4((C$)40):5000x :"THE VALUES OF THE COEFFICIENTS ARE:" :C$ DL1:5000:M$"DO YOU WANT TO CALCULATE POINTS":2000:Fİ3000 M$"DO YOU WANT TO PLOT THE FUNCTION":2000:F500. z#?XIJ ҠӠ  ԠΠ ԠΠԠ ̠Š ŠӠ ŠӠ Ǡ̠ ҠӠ àŠԠŠҠ ԠҠ ӠƠ٠Ơ ӠƠӠ ΧӠŠ ӠӠ ҠΠԠԠ  ̠Π  ҠŠԠéŠӠɠŠӠɠ à ̠ΠȠҠΠ ҠӠ ԠΠΠɠΠΠɠ ΠΠ Ƞڠ Ӡ ؠΠɠ ؠΠؠΠŠΠɠҠɠŠҠΠ ͠ ҠΠҠǠҠΠ Π٠ՠԠȠ̠ɠȠ٠̠ ̠ΠҠϠ ̠ΠƠΠΠŠɠ àΠàΠԠΠҠ ɠŠΠ ɠŠԠ ŠΠŠԠҠΠŠԠΠˠñ""ŠΠ"ϠϠàɠ !ƠΠ!̠Π ٠Š6)332(I10)İ4000::4303 (36)0İ4000:430G A(I,N1)0442V FTĺ" +";s " A";:922:I1;:998 I1ĺ" X"; I2Č998:I1;:922 FT1 II1 420 DL3:5000 922:: DL4((F$)40):5000 "IN NESTC$""C$C$":"& rC$C$A$"="(A)- |I: F$F$P$@ K LCNT0 "IN EXPANDED ALGEBRAIC FORM,":"THE POLYNOMIAL IS:"  ILAST2ĭA(1,N1)A(2,N1)0ĺ ILAST0ĺ"Y=0"::460 "Y ="; FT0 I1 IILAST450 (3=":C$"":P$"" @ILAST0% BI1N> DA(I,N1)0ILASTIE FI` HILAST0F$"Y=0":400o JI1ILAST TI1F$F$"X*" ^AA(I,N1) `A0380 hI1IILASTF$F$"(":P$P$")" jA$"A"(I1) lF$F$A$ nIILASTF$F$"+" p  "D$(4):Q$(34): "# OF POINTS = ";NF N110TA(N,N1)ZedI1Nwn"POINT # "I;p14:"X=";Xr998:28:"Y=";YxPWR1J1NA(I,J)PWRPWRPWRXJA(I,N1)YI1000 6F$"Y     ST J060$ X(S)J830. "+";= KSTP1P X(K)X(S)810X SKa 840h *Kq 4840{ >"*"; HJ R"X"; \ fI p30);"Y" z"RUNHELLO" 40 X(TL1)A X(TL)C% L, &J: 0I18730C :L1K DS0X NK0P1j XX(TK)L690w bLX(TK) lL30660 vL30670 S1670 30);"*"; S1 L60860 L);"+"; K S1860 30);"*"; 8600320 6P @I036$ JTTP, TP09 ^TN370I hY(T)I420W rI18400f |30);"*";o 860y SN1 740 LTN Y(L)Y(T)460 PP1 L P1560 J1P L1PJ CX(TL1) AX(TL) CA05NCTION OF D)- X(I)(((F(D)Z1)30).5)O Y(I)(((F(D)Z1)18).5)V Ia J1Nn I1NJy AX(I) BY(I) BY(I1)260 X(I)X(I1) Y(I)Y(I1) X(I1)A Y(I1)B I J T1 "P0N1 ,Y(P1) "PLOT OF POLAR EQUATION"%6X(91),Y(90)?(N90c2"ABSOLUTE VALUE OF ENDPOINTS";j<ZpFP"INCREMENT OF X-AXIS = ";Z30Z"INCREMENT OF Y-AXIS = ";Z18dnI1NxD.06981317I - ENTER FUNCTION HERE (F AS A FU    40 "RUNHELLO" A! "POISSON DISTRIBUTION"#C"(TO END PROGRAM ENTER 0)"`("CALCULATED FREQUENCY";g2Lt<L0180F"TEST FREQUENCY";PXZA1dI1XnAAIxIA(A)A(LX(L)A) "PROBABILITY OF "X" OCCURRENCES = "A   IT ON A BENCH IF THERE IS ONLY ROOM FOR 2 AT A TIME?"A G M ^ SUBHEADINGd z ((40(ARG$))2) ARG$  X138  "-"; & 0 "-" : ATIONS OF N OB- JECTS TAKEN D AT A TIME."/ ? "EXAMPLE:"E  " 1) HOW MANY PERMUTATIONS AND COMBINA- TIONS CAN BE MADE OF THE 26 LETTERS OF THE ALPHABET, TAKING 5 AT A TIME?"; " 2) HOW MANY DIFFERENT WAYS CAN 12 PEOPLE SEN HEADING  2 BELL$(7): BELL SOUND= BELL$S ((40(ARG$))2)Y $c .ARG$i 8u BX138 L"-"; V `"-"    DISPLAY COMMENTARY ) "THIS PROGRAM COMPUTES THE NUMBER OF PERMUTATIONS AND COMBINAMORE THAN 9.9E32 PERMUTATIONS"( 2802 PPI9 Iq - COMPUTE INTERMEDIATE FACTORIAL FOR COMPUTATIONS| J2D CCJ J P;" PERMUTATIONS" PC;" COMBINATIONS"   - RESTART PROGRAM 40    SCRER SIZE OF SUBGROUP:";DQ Y SIZE OF SUBGROUP CANNOT BE LARGER THAN SIZE OF GROUP_ ZDN130z d"SUBGROUP TOO LARGE" n x40 P1 C1 IND1N - DON'T ALLOW NUMBER SIZE TO OVERFLOW MACHINE CAPACITY 9.9E32IP190 ". ARG$"PERMUTATIONS & COMBINATIONS":1000T ARG$"OSBORNE & ASSOCIATES":3000t2000: PROGRAM DESCRIPTIONz"(ENTER 0 TO END PROGRAM)"#("ENTER TOTAL NUMBER OF OBJECTS:";N; - TEST FOR END OF PROGRAM<N0280 F"ENTE7IP1904 "MORE THAN 9.9 * 10^37 PERMUTATIONS"= 280G PPIN IY J2Dc CCJj J P;" PERMUTATIONS" PC;" COMBINATIONS"  40 "RUNHELLO" & "PERMUTATIONS AND COMBINATIONS",L"(ENTER 0 TO END PROGRAM)"l("TOTAL NUMBER OF OBJECTS";s2N<N0280F"SIZE OF SUBGROUP";PDZDN130d"SUBGROUP TOO LARGE"nx40P1C1IND1N 9.9E3v Q(X)X2&<X3.93.92ZY039CxYQ(X)210L"";SY]"*";dXo32767uU BY R! ZXR11 dCCX$ nX/ xN,R,C7 }:? 14E NI$;" BASE ";BI%;" = ";NO$;" BASE ";BO% : 380 X"BASE NOT IN RANGE" b"OF 2 TO 16" 360 ' BASE CONVERSION ROUTINE t' CONVERT TO DECIMAL 'L%(NROUPS":" 4. PUSH RETURN"C :" TO STOP ENTER O,O "P ::N,R] N0150 ::"NUMBER SIZE COMBINATIONS" : NO150 C1 ( 30 TO 50 FIND NPR 2XNNR11 <CCX FX P 60 TO 80 DIVIDE F5 THIS PROGRAM PREPARED BY W MCKAY 2/8/78V " THIS PROGRAM IS TO: " :"CALCULATE NUMBERS OF COMBINATIONS"" ::"AFTER THE PROMPT (?) ENTER:":" 1. THE NUMBER OF THINGS":" 2. COMMA":" 3. THE NUMBER OF G    N = "(J)7 "STANDARD ERROR OF ESTIMATE = "((ZI))= l "INTERPOLATION: (ENTER 0 TO END PROGRAM)"{ PR(1,D2) "X = ";X X0790 J1D PPR(J1,D2)XJ J "Y = "P  690 "RUNHELLO" REE COEFFICIENT = ";R(J1,D2)% J+ 3 P0@ &J2D1d 0PPR(J,D2)(T(J)A(J)T(1)N)k :J DQT(D2)T(1)2N NZQP XIND1 bJPK l vJPQ "COEFFICIENT OF DETERMINATION (R^2) = "J "COEFFICIENT OF CORRELATIOII)R(K,I) ^R(K,I)S hI, rZ1R(J,J)9 |I1D2M R(J,I)ZR(J,I)T Ia K1D1n KJ470| ZR(K,J) I1D2 R(K,I)R(K,I)ZR(J,I) I K J  " CONSTANT = ";R(1,D2) J1D J;" DEGT(K)YX(K1)& T(K)T(K)YX(K1)- KC T(D2)T(D2)Y2J IW J1D1d K1D1x R(J,K)A(JK1) K J J1D1 KJD1 R(K,J)0320 "K ,"NO UNIQUE SOLUTION" 6790 @I1D2 JSR(J,I) TR(J, "NTH-ORDER REGRESSION"#:A(13),R(7,8),T(8)U("DEGREE OF EQUATION";\2D{<"NUMBER OF KNOWN POINTS";FNPA(1)NZI1Nd"X,Y OF POINT ";I;nX,YxJ22D1A(J)A(J)X(J1)JK1D1 R(K,D2) OX99999290 X(XM)S" X:A R((X2)2)2.5066282746V "FREQUENCY = "R^ ZXv T1(1.33267(X)) T.5(R(.4361836T(.1201676(T2)).937298(T3))) Z0260 T1T "PROBABILITY = "T  150 ""RUNHELLO" "NORMAL DISTRIBUTION""E"(0=STANDARD,1=NON-STANDARD)"d("WHICH TYPE OF VARIABLE";k2Sx<S0120F"MEAN";PMZ"STANDARD DEVIATION ";dSn130xS1"(TO END PROGRAM ENTER X=99999)""X = ";X 2)X J* "DEPENDENT VARIABLE = "P0 9 710J *"RUNHELLO"ETERMINATION (R^2) = ";IK "COEFFICIENT OF MULTIPLE CORRELATION = ";(I)x "STANDARD ERROR OF ESTIMATE ";((ZL))~  "INTERPOLATION: (ENTER 0 TO END PROGRAM)" PA(1,V2) J1V "VARIABLE ";J; X X0810 PPA(J1,VN COEFFICIENTS:"/ " CONSTANT:";A(1,VV)< I2V1\ "VARIABLE("I1"):"A(I,V2)c &Ik 0P0x :I2V1 DPPA(I,V2)(S(I)T(I)S(1)N) NI XRS(V2)S(1)2N bZRP lLNV1 vIPV  IPR "COEFFICIENT OF DLUTION" J810 TK1V2* ^BA(I,K)< hA(I,K)A(J,K)I rA(J,K)BP |K_ Z1A(I,I)l K1V2 A(I,K)ZA(I,K) K J1V1 JI490 ZA(J,I) K1V2 A(J,K)A(J,K)ZA(I,K) K J I  "EQUATIOENDENT VARIABLE"; X(V2)* K1V17 L1V2S A(K,L)A(K,L)X(K)X(L)e S(K)A(K,V2)l Ls K S(V2)S(V2)X(V2)2 I I2V1 T(I)A(1,I) I I1V1 "JIV1 ,A(J,I)0340 6J @"NO UNIQUE SOK# "MULTIPLE LINEAR REGRESSION")EX(9),S(9),T(9),A(9,19)d("NUMBER OF KNOWN POINTS";k2N<"NUMBER OF INDEPENDENT VARIABLES";FVPX(1)1ZI1Nd"POINT ";InJ1Vx" VARIABLE ";J;X(J1)J " DEP     ,(V10000.5)10000,((V)10000.5)100001 TO ^"MORE DATA(1=YES,0=NO)";V hSb rS120s |"RUNHELLO" UENCY ";I; A,B RRBA) PPB7 MMBA2> IH RRP^ V(MPR2)(PS)g 310r I1N "ITEM ";I; D PPD MMD2 I "RPN ,V(MNR2)(NS) 6 @"MEAN","VAR","ST DEV"+ J(R10000.5)10000u+ "MEAN, VARIANCE, STANDARD DEVIATION"1^"WHICH METHOD (0=POPULATION,1=SAMPLE)";e(S2"KIND OF DATA (0=GROUPED,1=UNGROUPED)";<KF"NUMBER OF OBSERVATIONS";PNZR0dM0nP0xK1230I1N "ITEM, FREQ2350 TB(J,I)B(J,I)% ^D3380> hA(J,I)B(J,I);" ";G r390[ |A(J,I)S;" ";b Ih o Ju  "MORE DATA? (1=YES,0=NO)"; D D170 "RUNHELLO" X (R,C)"; R,C K12* K2180; "MATRIX 1:"D 190U "MATRIX 2:"` J1Rn "ROW ";Jy I1C "VALUE COLUMN ";I; K2260 A(J,I) 270 B(J,I) I J "D3310 ,K 6J1R @I1C JDϻ< "MATRIX ADDITION, SUBTRACTION, SCALAR MULTIPLICATION"BUA(3,3),B(3,3)g("1-ADDITION"|2"2-SUBTRACTION"<"3-SCALAR MULTIPLICATION"F"WHICH OPERATION";PDZD3120d"VALUE OF SCALAR";nS x"DIMENSION OF MATRIB(K,J) TK ^S;" ";! hJ' r. |I? "RUNHELLO"1R1 "ROW ";J I1C15 "VALUE COLUMN";I;A A(J,I)H IO JU f "MATRIX 2:"r J1R2 "ROW ";J I1C2 "VALUE COLUMN ";I; B(J,I) I J  "I1R1 ,J1C2 6S0 @K1C1 JSSA(I,K)@ "MATRIX MULTPLICATION"#:A(10,10),B(10,10)^("DIMENSION OF MATRIX 1 (R,C)";i2R1,C1<"DIMENSION OF MATRIX 2 (R,C)";FR2,C2PC1R2110Z"CANNOT BE MULTIPLIED; OTHER DIMENSION NECESSARY"d40n"MATRIX 1:" xJ   rK1R$ |A(L,K)A(L,K)TA(J,K)? B(L,K)B(L,K)TB(J,K)F KM LT JZ e I1Rp J1R (B(I,J)1000.5)1000;" "; J  I "RUNHELLO"N I "SINGULAR MATRIX"% 5000 K1R= SA(J,K)O A(J,K)A(I,K)\ A(I,K)Si SB(J,K){ B(J,K)B(I,K) B(I,K)S K "T1A(J,J) ,K1R 6A(J,K)TA(J,K) @B(J,K)TB(J,K) JK TL1R ^LJ410 hYA(L,J)  "MATRIX INVERSION " 7A(10,10),B(10,10)S("DIMENSION OF MATRIX";Z2Rr<"MATRIX ELEMENTS:"}FJ1RP"ROW ";JZI1Rd"VALUE COLUMN ";I;nA(J,I)xIB(J,J)1JJ1RIJRA(I,J)0210   :I1RA:J1RA:" ";(A(I,J)100.5)100;:::_::"HIT RETURN TO CONTINUE ";:X$:1012:18);::"SMILE"::24:X1RA:J1RA:(J1)81);((C(I,J)),7);::::"THE INVERSE OF A":I1RA:J1RA:(J1)81);((A(I,JRA)),7);:::::"HIT RETURN TO SEE THEIR PRODUCT"I1RA:J1RA:S0:T1RA:SSA(I,RAT)C(T,J)::A(I,J)S::X$:34EBB.00001ĺ:"NON-INVERTIBLE MATRIX. HIT RETURN. ";:X$:10yTA(I,I):KI12RA:A(I,K)A(I,K)T::A(I,I)1K1RA:KI450TA(K,I):A(K,I)0:LI12RA:A(K,L)A(K,L)TA(I,L):KK11000::"MATRIX A"2I)81);((A(IX,JX)),7);::::x::"INVERSE OF A":IX1RA:JXRA12RA:(JX1RA)81);((A(IX,JX)),7);:::BB(A(I,I)):IBI:RAI428KI1RA:(A(K,I))BBBB(A(K,I)):IBK:IIBāKI2RA:TA(I,K):A(I,K)A(IB,K):A(IB,K)T:OR A !!":X11000::10"TRA{CATĢ12:"A MUST HAVE THE SAME NUMBER OF ROWS":"AND COLUMNS !":X11000::10I1RA:J1RA:C(I,J)A(I,J)::I1RA:JRA12RA:A(I,J)IJRA:: I1RA::"MATRIX A":IX1RA:JX1RA:(JX1CA:(J1)81);((A(I,J)),7);::::mt"MATRIX B":I1RB:J1CB:(J1)81);((B(I,J)),7);::::v"PRODUCT MATRIX":I1RA:J1CB:(J1)81);((C(I,J)),7);::::x"HIT RETURN TO CONTINUE";:X$:10RA0Ģ12:"INPUT A MATRIX F(JX1)81);((B(IX,JX)),7);::) D:A J:"PRODUCT MATRIX"^ TIX1I:TCB:IIXTJ1k UT0345 VJX1T:(JX1)81);((C(IX,JX)),7);: Y: ^S0:T1CA:SA(I,T)B(T,J)S::C(I,J)S h:T1D:::(r:"MATRIX A":I1RA:J1MNS IN A MUST EQUAL THE":"NUMBER OF ROWS IN B.":X11000::10V 1I1RA:J1CBh 5:"MATRIX A"u 6IX1RA 8IXIĞ :JX1CA:(JX1)81);((A(IX,JX)),7);:JX <::IX =:"MATRIX B" >IX1RB @JX1CB:" ";:JXJĞ! B:"IS LIMITED TO A 5 BY 5. ENTER TEH":"INFORMATION AS PROMPTED."s :"HOW MANY ROWS IN B ";:RB:RB1RB5210 :"HOW MANY COLUMNS IN B ";:CB:CB1CA5220 RRB:CCB SA0:SB1 150 10 ,D2000B .CARBĢ12:"NUMBER OF COLULUMNS IN A ";:CA:CA1CA5120. yRRA:CCA< zSA1:SB0E }150M 10X J1Ca :4w 10);"COLUMN ";J} I1R:5);"ROW ";I;13);:X SA1A(I,J)X SB1B(I,J)X : B " FOR DISPLAY PURPOSES, THE SIZE OF B":10);"WHICH NUMBER ";:X+ #X1X5301 %L (X100,200,300,400,500 d" FOR DISPLAY PURPOSES, THE SIZE OF A":"IS LIMITED TO A 5 BY 5. ENTER THE":"INFORMATION AS PROMPTED." n:"HOW MANY ROWS IN A ";:RA:RA1RA5110 x:"HOW MANY CO A(5,10),C(5,5),B(5,5)? ::4:12);"M A T R I C E S"b8:10);"1. ENTER A MATRIX A"10);"2. ENTER A MATRIX B"10);"3. COMPUTE THE MATRIX PRODUCT":13);"OF A AND B"10);"4. COMPUTE THE INVERSE OF A"10);"5. STOP"     * *2 ' * PAUL BRAUN *N ' * & *j ' * GEOFFREY GENZ * ' * * ' * AGES 15 & 14 *' * *' *********************:"THE CORRECT ANSWER IS ";X&1680?"?WRONG KEY ERROR"EKn' ' *********************' * *' * MATH *' * *' * BY *'6R$@R$"E"1650'JR$"M"16608TR$"H"1670B^1760Lh1580ZrW4:1680h|W9:1680wW49:1680X(W(1))1:Y(W(1))1XY;" / ";Y;" ="AAAAXİ690AAXī1680AAXİ620"SORRY, THAT IS WRONG"(1)):R(P(1))$Q;" X ";R;" ="+S;SQRİ690KSQR1480\SQRİ620"SORRY, THAT IS WRONG ":"THE CORRECT ANSWER IS ";QR::1480","WOULD YOU LIKE EASY,MEDIUM,":"OR HARD PROBLEMS(E,M,OR H)"WRONG.":"THE CORRECT ANSWER IS ";JK/P::5Z;d}n"WOULD YOU LIKE EASY, MEDIUM,":"OR HARD PROBLEMS(E,M,OR H)"xO$:O$"E"1450O$"M"1460O$"H"147017601390P5:1480P10:1480P50:1480Q(PER IS ";NO::1120&L6LONİ690FLON1120WLONİ620s "SORRY, THAT IS WRONG""THE CORRECT ANSWER IS ";ON1120("SORRY, THAT IS WRONG ":"THE CORRECT ANSWER IS ";KJ2::<%F"SORRY, THAT IS B1350LM10I10 V940@`N(100(1)):O(100(1))ZjNOĺN;" - ";O;" ="jtNOī1170~ONĺO;" - ";N;" ="ONī1250LLNOİ690LNOī1120LNOİ620"SORRY, THAT IS WRONG" "THE CORRECT ANSWM10K(I(1))%J(I(1))IKJĺK;" - ";J;" =":KJ980nKJĺJ;" - ";K;" =":KJ1050uLLKJİ690LKJ940LKJİ6201320M10I10940L$LJKİ690.LJK9408LJKİ620G G H H T"04)" R R III GGGG H H T"@ A1750:AF*L4R>H"WOULD YOU LIKE EASY, MEDIUM, OR HARD":"PROBLEMS?(E,M,OR H)RI$\I$"E"910fI$"M"920pI$"H"1120z1760840I10:930I75:940769,75:770:A1100:A:768,175:769,85:770PA1100:A:768,160:769,255wA1100:A:768,155:769,255:770}:(12):5)"RRRR III GGGG H H TTTTT"4)" R R I G H H T"4)" RRRR I G G HHHH T" 4)" R R I II1:I75ı630R"SORRY, YOUR WRONG":"THE CORRECT ANSWER IS ";CDZ:c550768,200:769,85:770:A1100:A:768,200:769,65:770A125:A:768,200:769,50:770:A1100:A:768,175:769,85:770.A1100:A:768,200:B$"E"İ510B$"M"İ520.B$"H"İ53081760A440OB10:550]B75:550lB300:550sB&C(B(1)):D(B(1))0C;" + ";D;" =":EDECDİ690NECDİ550XECDİ620b660lI1vSOUND(16336)O ADD,":"SUBTRACT, MULTIPLY, OR DIVIDE?":"(A,S,M,OR D)"A TB$Q ^B$"A"430a hB$"S"830r rB$"M"1380 |B$"D"1570 1760 330 1760 330  "WOULD YOU LIKE EASY, MEDIUM, OR":"HARD PROBLEMS? (E,M,OR H)" B$ "::"DIFFICULTY, HIT 'RESET' THEN RUN MATH"::"OR WHICH EVER PROGRAM THAT YOU LIKE.":::"HIT 'RETURN' TO CONTINUE"~ H$  "5)"HELLO, I'M THE APPLE]"(91)" COMPUTER." ,32,4 65)"WHAT IS YOUR NAME?":A$ @9 JA$" WOULD YOU LIKE T?":G$:G$"N"280 "YOU WILL PICK THE OPERATION THAT YOU"::"WOULD LIKE, THEN PICK THE LEVEL OF"::"DIFFICULTY THAT YOU WANT. YOU DON'T"::"NEED TO HIT 'RETURN' FOR ANY OF"::"THESE THINGS. TO CHANGE"v :"TO ANOTHER OPERATION OR LEVEL OF0,185,50,0,100,215,50,210,5 0,0,100,235,100 C -1,-1V I,J:J1180m I0āA1J::140 768,I:769,J:770 140 A11000:A 16)"APPLE]";(91):17)"MATH" 34,4 ::: "WOULD YOU LIKE INSTRUCTIONS]]]] "(91);(91);(91);(91)H F::::" M M A TTTTT H H"k P" MM MM A A T H H" Z" M M M A A T HHHH" d" M M AAAAA T H H" n" M M A A T H H"8 x 165,50,160,50,0,100,190, 5  :O(7):" A PPPP PPPP L EEEEE ]]]] "(91);(91);(91);(91)~" A A P P P P L E ] "(91)(" A A PPPP PPPP L EEEE ] "(91)2" AAAAA P P L E ] "(91) <" A A P P LLLL EEEEE        ENZ *" ' * & *= ' * PAUL BRAUN *X ' * *t ' * AGES 14 & 15 *' * *' ******************** K:I'"TOTAL NUMBER RIGHT, "TT".":J' e' ********************' * *' * MULTIPLICATION *' * *' * BY *' * * ' * GEOFFREY G15,2114:16,2016:16,2019:17,1815:17,1821:PW PRINTOUT CORRECT TABLE}\16368,0:::" ";:I110:" "I;:I:f:I110:I;:4pJ110z(J1J2I1I2I10J10)A(I,J)0A(I,J)1A(I,J)0TTTT1A(I,J)" ";J:21:15,1816:18,2119:T*4:16,1915:16,1918:16,1921:18,2119:15,2116:44:16,1915:15,1719:18,18:19,2117:>4:16,1915:16,1918:16,1921:15,2116:15,2119:H4:16,1915:16,1918:16,1921:15,1816:15,2119:3R4:0,450,460,470,480'A13000:A:120K4:15,2118:17,16:17,1921:4:16,1915:16,1918:16,1921:15,1819:18,2116: 4:16,1915:16,1918:16,1921:15,2119:4:15,1816:15,2119:16,1918: 4:16,1915:16,1918:16,19:A:A2327:0:0,39A:A.ZZ1:Z2ī7107490R PRINT CORRECT ANSWER~::23)"^":"THE CORRECT ANSWER IS !"D%A%B%10:D%0740D%760,770,780,790,800,810,820,830,840,850E%(A%B%)(10D%):1E%380,390,400,410,420,430,44:23,265:6,27:23,2678v9,1225:23,279:23,2712d14,1723:14,1727:23,2714:23,271719,2223:19,2227:23,2719:23,272224,2723:24,2725:23,2724:23,252729,3223:29,3225:29,3227:23,2529:25,2732A110006,1927:21,2427:23,2721MD29,335:29,318:5,829:5,831:7,32:8,33N10,1229:10,1233:29,3311:14,1729:14,1733:29,3314:31,3317:16,31X29,3319:29,3322:19,2231:24,2829:29,3326bI11000:I:130l1:23,263:4,27ANSWER$K(16384):K27128860216368,0l2:25,2710:25,2714:10,1426:11,24:12,23:13,24A(A%,B%)A(A%,B%)1A%1B%1A(A%,B%)A(A%,B%)1&A%10B%10A(A%,B%)A(A%,B%)10A%2B%2A(A%,B%)A(A%,B%)1:23,2716:12122:B4:21,2415:21,2418:21,2421:15,2121:15,2124:}4:21,2415:21,2418:21,2421:15,1821:15,2124:4:15,2121:15,2123:15,2125:23,2515:23,2521:C%:C%A%B%620 ASK FOR ANSWER THEN CHECK FOR WRONG 18,2121:<4:21,2415:21,2418:21,2421:15,2124:c4:15,1821:15,2124:21,2418:4:21,2415:21,2418:21,2421:15,1821:18,2124:4:21,2415:21,2418:21,2421:18,2124:15,2121:4:21,2415:15,1724:23,18:19,113:Ah4:10,1315:10,1318:10,1321:15,1810:15,2113:{r4:15,219:15,2111:15,2113:11,1315:11,1321:|4:22,2315:22,2321:16,2021:16,2024:4:15,2123:22,16:22,2421: 4:21,2415:21,2418:21,2421:15,1824:4:15,1810:15,2113:10,1318' 6b @4:10,1315:10,1318:10,1321:15,1810:18,2113: J4:10,1315:10,1318:10,1321:15,2110:18,2113: T4:10,1315:15,1713:12,18:19,2111:^4:10,1315:10,1318:10,1321:15,2110:15,28,19:19,16:19,20* 27,3017:27,30193 490d 4:11,1215:11,1221:16,2010:16,2013: 4:15,2112:11,16:11,1321  4:10,1315:15,1813:10,1318:18,2110:10,1321: 4:10,1315:10,1318:10,1321:15,2113 "! ,27128860 16368,05 CHECK IF USED ALREADYJ A(A%,B%)2130R Z0` NUMBERS A%1240,250,270,280,300,320,330,340,350,360,370 B%1380,390,400,410,420,430,440,450,460,470,480 4:15,16:15,20:16,17:16,19:17,18:18,17:1(ONCE FOR 1'S, 2'S, AND 10'S), IT WILL NOT SHOW UP AGAIN. TO EXIT THE PROGRAM PRESS ESCAPE."~ P24:"PRESS ESC TO BEGIN."; ZK(16384):K27128110 d90 n16368,0 x } CREATE PROBLEM A%10(1)1:B%10(1)1 (16384)S ON THE SCREEN AND HE WILL ANSWER THEM THROUGH THE KEYBOARD." <:"BE SURE TO PRESS "(91)"RETURN] AFTER EVERY ANSWER."^ F:"AFTER TWO MISSES, THE ANSWER WILL BE SHOWN ON THE SCREEN. AFTER A PROBLEM HAS BEEN SUCCESFULLY COMPLETED TWICE  INITIALIZE  A(10,10)-::255A16)"APPLE ]["[(13)"MULTIPLICATION"n- INSTRUCTIONS@ 2::"THIS IS A PROGRAM DESIGNED TO HELP YOUNGSTUDENTS TO LEARN THE MULTIPLICATION TABLES. THE COMPUTER WILL GIVE THE STUDENT PROBLEM     DECENT""---WOW---WOW---"="YOU SHOULD BE A TEACHER"Q"UNBELIEVABLE"h(# FLAGING DATAx-#"TERRIFIC"'A$"TERRIFIC"Į':N ""SUPER"'$"YOUR GETTING GOOD":."GROOVY WORK"K8"EXCELLENT"`B"YOU'RE MOVING"kL"WOW"V"YOU'RE THE BEST"`"YOU'RE REALLY TRUCKING"j"SUPERIOR"t"YOU'RE INTELLIGENT"~"YOU GOT LUCKY""GEE, THAT WAS GOOD""17:X,26:X:X2326:X,26:X>u14,27:15,27:25,27:26,27Pz14,28:26,28d TIME LOOPyT15000:T::  COMPLIMENT DATA"THAT WAS GREAT""FANTASTIC""FAR OUT""THAT'S GREATX1921:X,Y:X:Y4HY1415:X1822:X,Y:X:YJMX1129:X,16:X`RX1228:X,17:XvWX1327:X,18:X\X1525:X,19:XaY2021:X1624:X,Y:X:YfY2224:X1525:X,Y:X:YkX1418:X,25:X:X2226:X,25:XpX14UARE $%X832:X,7:X@*Y830:X83224:X,Y:X:YU/X832:X,31:Xi3 TIME LOOPz4T15000:T9:"BUT SO WE WON'T MESS UP THE SCREEN":"I WILL DO IT FOR YOU"< - - - STAR - - ->K:20,10:20,11CY1213:HT GREEN":K12:790+B$"PINK":K11:790W"YOU DIDN'T GET ENOUGH RIGHT TO GET A"p"STAR, SORRY ! ! !" TIME LOOPT15000:T: S T A R - - -"YOU CAN COLOR IN A ";B$;" STAR" :7!"# PLOTTING SQST TRY"P1PN100.P190ĭP100710EP180ĭP190720\P170ĭP180730sP160ĭP170740P150ĭP160750760 STAR COLORSB$"WHITE":K15:790B$"AQUA":K14:790B$"YELLOW":K13:790B$"LIGA$:T11000:T) CLEAR SCREEN:T125::TIX:700:1] REPRIMAND"THAT WAS NOT QUITE RIGHT, TRY IT AGAIN": END OF SET, PRINTING STAR"YOU GOT ";PN100;"% OF ";N;" PROBLEMS""RIGHT ON THE FIR" -";B:440/" -";BI" --------"`" ";Qy ANSWER CORRECTQABPP1:500:420P0PO1 FIND COMPLIMENTA$:10000 PRINT COMPLIMENT TIME LOOP SUBTRACTION!6X1N:PP1:OPP FINDING NUMBERSlA(H(1)):B(H(1)) 1ST# - 2ND# = +#AB410:"WHAT IS ";AB10ĭA99ĺ" -";B:440B100ĭA99435B10ĭA9435 ANSWER CORRECT.hQABPP1:500:320>jP0PO1Xl FIND COMPLIMENTgmA$:10000p PRINT COMPLIMENTq TIME LOOPrA$:T11000:T{ CLEAR SCREEN|T125::TX:700:1 STARTING OF 1ST# HAVE MORE-C DIGITS THAN 2ND#ED THEN GOTO 335nEB10ĭA99ĺ" +";B:340FB100ĭA99ī335GB10ĭA9335J" +";B:340O" +";BT" --------"^" ";Qg @( @aFCGE"(37"2E#,06" 1eIqa2 !25PZSRPXRRQeXp `0Q0*Qb8p`FAFD@#/- D!--6,(/"-1gt ` @XPRRPQbp`@BAFD03/-0DY--6,8.")1"p`DAEE4// 0+**1ta AY PRTPRZ!bpCDEqB +#5E6 s"$)apaRRXZ!br8ZӹPPZbwbp `CDABD16G07.(`---"" ";B2:" ";QK ANSWER CORRECTgABQPP1:500:220wP0PO1 FIND COMPLIMENT A$:10000  PRINT COMPLIMENT  TIME LOOPA$:T11000:T CLEAR SCREEN ON#X1N:PP1:OP= FINDING NUMBERSYA(H(1)):B(H(1))q 1ST# < 2ND# ?~AB210 DIVIDE BY 0B0210 1ST#/2ND# = INTEGERAB(AB)210:"WHAT IS ";A" ----T ? QABPP1:500:120/ P0PO1I FIND COMPLIMENTX A$:10000s PRINT COMPLIMENT TIME LOOP A$:T11000:T SCREEN CLEAR T125::T X:700:1 STARTING OF DIVISIE { DIGITS THAN 2ND# ?5 | THEN GOTO135^ }B10ĭA99ĺ" X";B:140t ~B100ĭA99ī135 B10ĭA9ī135 " X";B:140 " X";B " -------" " ";Q ANSWER CORREC d e STARTING OF4 f MULTIPLICATION: g@ hU iX1N:PP1:OPo m FINDING NUMBERS nA(H(1)):B(H(1)) pC99115 qAC:120 r 1ST# < 2ND# ? sAB110 x:"WHAT IS ";A z DOES 1ST# HAVE MOR4 @ THEN IT GOES TO 904 A(W2)(W4)090G E DECISIONm F"DO YOU WANT ANY CERTAIN # ?";A$ J DECISION CHECK KA$"N"ĭA$"O"90 O DECISION P"WHAT IS THAT # ?";C Y BRANCH TO PROBLEMS ZW100,200,300,400 ' DECISION. ("HOW MANY PROBLEMS?";NG , DECISION CHECKS -N140f 1 DECISION 2"HIGHEST NUMBER OF DIGITS YOU CAN DO," 3"EX.(1,2,OR 3)?";U:H10U 6 DECISION CHECK 7U150 <U190 ? IF DECISION IS 2 OR  *** CREATED BY ***> *** DANIEL R CARRIKER ***DUT125::ThP0:Z0:C99:n *** DECISION *** "MULT.=1,DIV.=2,ADD.=3,SUB.=4?";W SEEING IF DECISION WAS A LEGAL ONEW410W110     XXR vII1 RR1" 330E U1N(1)N(2)N(1)(N(1)1)2Xh U2N(1)N(2)N(2)(N(2)1)2Yn  "FIRST SAMPLE PRECEEDING, U = "U1 "SECOND SAMPLE PRECEEDING, U = "U2 "RUNHELLO" I1 JJ1 IN(1)4803 X(I)X(I1)480= II1F 510V JN(2)550l Y(J)Y(J1)550v JJ1 R1R1R RR1 KK1 440 &XX(IM)R1K 0YY(JL)R1K :330 DJN(2)660 NYYR XJJ1 b640 l Y(K1)C K J! . I2270< J1N(1)J X(J)Y(J)Q JX I` R1h "I0p ,J0z 6II1 @JJ1 JIN(1)580 TJN(2)480 ^X(I)Y(J)620 hY(J)X(I)590 rK2 |MI LJ R12R1 RR2 I "MANN-WHITNEY U-TEST""3X(25),Y(25)=(N(2)H2I12[<"SAMPLE "I":"jF" SIZE ";tPN(I)ZJ1N(I)d" DATA "J;nY(J)xJJ1N(I)K1N(I)JCY(K)DY(K1)Y(K)Y(K1)200 Y(K)Y(K1)    @"INTERPOLATION: (ENTER X=0 TO END PROGRAM)"< J"X = ";XI ^X0390[ h"Y = ";ABXa rj |330{ "RUNHELLO" )BJ)N / "F(X) = ";A;" + (";B;" * X)"B JB(R2JKN)P MMK2NZ KMJ` k R2JM "COEFFICIENT OF DETERMINATION (R^2) = ";R2 ""COEFFICIENT OF CORRELATION = "(R2) ,"STANDARD ERROR OF ESTIMATE = "((K(N2))) 6. } "LINEAR REGRESSION" ?"NUMBER OF KNOWN POINTS";F(NN2J0V<K0^FL0fPM0oZR20zdI1Nn"X,Y OF POINT ";I;xX,YJJXKKYLLX2MMY2R2R2XYIB(NR2KJ)(NLJ2) A(K (J)0 960 I2C1- A(I,J)19504 IH B(J)A(I,VC1)O J` ZA(1,VC1)f  "FUNCTION = ";Z(1) I1V "X(";I;")=";B(I) I  M1880 B(R)0 ZA(P,R)% I1VC19 A(P,I)A(P,I)Z@ IM I1C2Z IP820g ZA(I,R)v J1VC1 A(I,J)A(I,J)ZA(P,J) *J 4I >440 H"INFEASIBLE" R1030 \"UNBOUNDED" f1030 pJ1V zB(J)0920 B70 M1880% A(M,P).0001840- &M16 0440> :P1K DI2C1^ NA(I,R)0640v XZA(I,CV1)A(I,R) bP1630 lZA(P,CV1)A(P,R)640 vPI I P1860 I1VC B(I)1690 A(P,I)1700 I B(I)1 I1V TB(I)1 ^I$ hI2C1< rA(I,VI1)1430K |B(VI1)1X J1CVu A(C2,J)A(C2,J)A(I,J)| J MC2 I P1 R1 I2CV A(M,I)A(M,P)490 PI A(M,I)A(M,R)510 RI I A(M,R)05 (1 OR -1)"; A(I,V1). " CONSTANT ";< A(I,V2)T A(I,CV1)A(I,V2)c A(I,V2)0p I2240 A(I,VI1)A(I,V1) A(I,V1)0 I "FUNCTION:" I1V " COEFFICIENT ";I; "A(1,I) ,I 6 @M1 J "LINEAR PROGRAMMING"!5A(10,14),B(13)Q("NUMBER OF VARIABLES";X2Vv<"NUMBER OF CONSTRAINTS";}FCP"MATRIX ELEMENTS:"ZI2C1d"CONSTRAINT ";I1nJ1Vx" COEFFICIENT ";J;A(I,J)J " RELATION(1=YES, 0=NO)"; Z ( Z170F "NEW LINE (1=YES,0=NO)";M ZY Z120j "RUNHELLO" Ol "LINEAR INTERPOLATION"#>"X,Y OF FIRST POINT";I(X1,Y1e2"X,Y OF SECOND POINT";p<X2,Y2F"INTERPOLATE: X= ";PXZYY1(Y2Y1)(X2X1)(XX1)d" Y= ";(Y1000.5)1000n x"MORE POINTS ON THIS LINE   ,10 NOM 0 TO";F9) M"1 STAR=";F966;"UNITS."/ T: ^I1NI cTX(I)F9Y hI;4);"!";m mJ0(T660.5)w r"*";~ wJ | I 24 42,29,36 30,27,33 29,21,23 24,20,20 25,11,15 14,12,10 18,10,11 17,08F }F0150" F999999150+ 200< *DATA ERRORX "ERROR IN DATA ITEM";I "FREQUENCY OF";F;"IS OUT OF BOUNDS (0-999999)" FF9250 270 F9F X(I)F I ,**SCALING FOR WIDTH: /F10 @ J"SCALED FR '**PRODUCES HISTOGRAMS (SIDEWAYS)3 X(100)Q**READ NUMBER OF SCORES:XNdN150r#N10050{(1002"ONLY 1 TO 100 SCORES, PLEASE"<"RE-EXAMINE DATA STATEMENTS"Fd**FIND MAXIMUM FOR SCALING:nF90xI1N z   "THE GREATEST COMMON DENOMINATOR OF"::X" AND "Y" IS ";::" "B" ";::"."~ ::"THAT'S HOW EUCLID'S ALGORITHM WORKS!!!"A IF A > = B"% Z" THEN A=A-B"? d" ELSE B=B-A"N n" GCD=B"Y "END" ::"PRESS SPACE BAR TO CONTINUE";:A$ :5 "X= ";X "Y= ";Y 15 AX:BY ABAAB:195 BBA "A="A" B="B A0180L  1/5/80 DENNIS WARD2 STEMS FROM APPLE K VOL 3 ISSUE 4 PG 7\ APRIL,1980::9:10::"EUCLID'S ALGORITHM"::12"GCD = GREATEST COMMON DENOMINATOR":("GCD OF (X,Y):"2" A=X"<" B=Y"F" WHILE A>0" P" (K(N2))) J? T"INTERPOLATION (ENTER 0 TO END PROGRAM)"M ^"X = ";XZ rX0410n |"Y = "(A)XBt } 350 " CATALOG" J2KJ)(NLJ2) A(KBJ)N& C "F(X) = ";(A);" * X^"BV JB(R2JKN)d MMK2Nn KMJt  "R2JM ,"COEFFICIENT OF DETERMINATION (R^2) = ";R2 6"COEFFICIENT OF CORRELATION = "(R2) @"STANDARD ERROR OF ESTIMATE = "( "GEOMETRIC REGRESSION"#B"NUMBER OF KNOWN POINTS";I(NQ2J0Y<K0aFL0iPM0rZR20}dI1Nn"X,Y OF POINT ";I;xX,YY(Y)X(X)JJXKKYLLX2MMY2R2R2XYI B(NR))2)))! "GEOMETRIC MEAN = "M@ "GEOMETRIC DEVIATION = "RF N 40_ "RUNHELLO" a% "GEOMETRIC MEAN AND DEVIATION"+X"(TO END PROGRAM ENTER 0 OBSERVATIONS)"w("NUMBER OF OBSERVATIONS";~2N<N0200FP1NPM1ZI1Nd"ITEM "I;nDxMMDPQQ(D)2I R((Q(N1)(N(N1)((M   J  RRPS% TT2S, IA "INTEGRAL = ";RG i "CHANGE DATA AND RECOMPUTE?" "(0=NO,1=NEW INTEGRATION LIMITS, 2=NEW NO. OF INTERVALS)"; "S ,S180 6S2100 @"RUNHELLO" S91223443A F .062672048,.96397183,.04060143,.9931286,.017614007j P"INTEGRATION LIMITS (LOWER,UPPER)";s ZX,Y d"NUMBER OF INTERVALS"; nN xS(YX)N2 TXS R0 I1N P0 J110 A,B PPB(C(SAT)C(TSA))) "INTEGRATION: GAUSSIAN QUADRATURE"/a - ENTER FUNCTION HEE (DEFFNC(X)="FUNCTION")( .076526521,.15275339,.22778585,.14917299,.373706092 .14209611,.510867,.13168864,.6305368,.11819453 < .74633191,.10193012,.83911697,.083276742,.   310 ,X1X& 6"PERCENTILE = ";1X@ @"TAIL-END VALUE = "XF EN J40_ T"RUNHELLO"1 200 SD2 TD1% Z1F1 J29S= K29Tg Y((1K)Z(13)1J)(KZ(23)J)t T4270 X.5(1Y(.196854Y(.115194Y(.000344Y.019527))))4 X(X10000.5)10000 290 YY(1.08Y4T3) 240 "F1a "F-DISTRIBUTION"K"(TO END PROGRAM ENTER AN F-VALUE OF 0)"[("F-VALUE";b2Fo<F0340F"DEGREES OF FREEDOM IN NUMERATOR";PD1Z"DEGREES OF FREEDOM IN DENOMINATOR";dD2nX1xF1170SD1TD2 ZF))) J8 T"INTERPOLATION: (ENTER 0 TO END PROGRAM)"F ^"X = ";XS rX0410k |"Y = ";(A)(BX)q z 350 " CATALOG" @LJ2) A(KBJ)N , "A = "(A)9 "B = "BL JB(R2JKN)Z MMK2Nd KMJj u "R2JM ,"COEFFICIENT OF DETERMINATION (R^2) = ";R2 6"COEFFICIENT OF CORRELATION = ";(R2) @"STANDARD ERROR OF ESTIMATE = ";((K(N2 "EXPONENTIL REGRESSION"$C"NUMBER OF KNOWN POINTS";J(NR2J0Z<K0bFL0jPM0sZR20~dI1Nn"X,Y OF POINT ";I;xX,YY(Y)JJXKKYLLX2MMY2R2R2XYI B(NR2KJ)(NE'S METHOD"45);"6. QUARTIC RUNGE-KUTTA METHOD"G5);"7. STOP"Mm"WHICH ";:X:X1X71045z$X7700)XXX,X5490.200LVING ";N:?:5:"DIFFERENTIAL EQUATION SOLVER DEMO"g::"CURRENT FUNCTION :":20:::5);"1. CHANGE FUNCTION"5);"2. EULER'S METHOD"5);"3. EXTENDED EULER'S METHOD"5);"4. MODIFIED EULER'S METHOD" 5);"5. MILNTIMES YOU"/"WANT THE INTERVAL HALVED."::u"WHAT IS THE X-COORDINATE OF THE INITIAL":"CONDITION ";:X1:"WHAT IS THE Y-COORDINATE OF THE INITIAL":"CONDITION ";:Y1:"AT WHAT DO YOU WANT THE FUNCTION ";:B :"HOW MANY HAE FUNCTION IS":"REQUIRED FOR MILNE'S METHOD, THE MOD-":"IFIED EULER'S METHOD WILL BE USE TO" "START THIS ALGORYTHYM. I WILL ASK YOU":"THE INITIAL CONDITION AND THE VALUE":"AT WHICH YOU WOULD TO KNOW THE FUNCTION.";:"I WILL ALSO ASK YOU HOW MANY N XXO:YYO J1M:203 XX1,2,3,4,5,6@ XXOJWG JY 8);M;28);Yl WW2:M2M:I :" HIT RETURN TO CONTINUE";:X$:1000 :10:"**** OPTION NOT AVAILABLE ****":I11000:I:1000^:" SINCE FOUR VALUES OF THAT WHICH YOU WANT THE":"VALUE OF THE FUNCTION ";:Y1T :"HOW MANY HALVING ";:N` :20: "INITIAL CONDITION : Y ( ";XO;" ) = ";YO::: 5);"DIVISIONS";28);"Y ( ";Y1;" )" 5);"---------";28);"-----------": M1:WY1XO I1 ALSO"W "ASK YOU FOR THE MAXIMUM NUMBER OF TIMES":"YOU WANT THE INTERVAL HALVED. " :"WHAT IS THE X-COORDINATE OF THE INITIAL":"CONDITION ";:XO :"WHAT IS THE Y-COORDINATE OF THE INITIAL":"CONDITION ";:YO5 :"WHAT IS THE POINT ,Y) IS AN APPROPRIATE RIGHT-"| n"HAND SIDE OF A DIFFERENTIAL EQUATION ":"IN THE FORM OF :"::" Y' = F ( X , Y ) ": p :" I WILL ASK YOU FOR THE INITIAL CON-":"DITION AND THE POINT AT WHICH YOU WANT":"THE VALUE OF THE FUNCTION. I WILLWA XAW:YBK3:20:K4YPRIMEW:YB(K12(K2K3)K4)6:XA:N YPRIMEYT w d:" CURRENT FUNCTION : ":20 i::" TO CHANGE THE DIFFERENTIAL EQUATION,":"TYPE :" k:"20 YPRIME = F( X,Y ) ":"RUN " m:"WHERE F(X 1000YYYPRIMEW:oAY:BX:XX.001:YY.001:CYPRIME:20:YACWWW2((YPRIMEC).001):XB:AY:BX:CYPRIME:2:XXW:20:YAW2(CYPRIME):XB: K1WYPRIME:AX:BY:XAW2:YK12B:20:K2YPRIMEW:YBK22:20:K3YPRIME     A$(F);":"::"B = ";B(F)::"M = ";M(F)::"CORR. COEFF. = ";C(F)::1300:60h A$(5);A$(F);" FIT":XL0:YL0:XY0:XS0:YS0:X0:Y0:NM14008936:"DATA NOT ENTERED: START AGAIN.":Q0 pFL884'rYB(F)(M(F)X):890AtX(YB(F))M(F):890MzFL894b|:"Y = ";Y:900r~:"X = ";X:"(RETURN)=MORE, (O)=OPTIONS ?";:Q$:Q$"O"60:810:" (PRESS ANY KEY TO CONTINUE)";:Q$:936:SEČ936N:X:819 .:"INPUT TEST Y ?";Y73F820,840,860,880C4FL830\6YB(F)(M(F)X):890u>X(YB(F))M(F):890HFL850JYB(F)(X(M(F))):890RX(YB(F))(1(M(F))):890\FL870^YB(F)((M(F)(X))):890fX((YB(F))M(F)):89G 936:"USE THIS ROUTINE AFTER COMPUTATION."::"AVAILABLE FITS:":p"Q14::C(Q)0ĺ"(";Q;") ";;A$(Q)$Q::" WHICH ?";F&F4800'C(F)0800(:"X TO Y (X), OR Y TO X (Y) ?";Q$:FL(Q$"Y")*FL814,:"INPUT TEST X ?";::" WHICH DATA PAIR ?";N`:"DATA ";N;" PRESENTLY:"::"X = ";X(N)::"Y = ";Y(N)::"INPUT NEW DATA:"::ID756"X = ?";X(N):760"X = ";N:"Y = ?";Y(N):" (RETURN)=MORE, (O)=OPTIONS ?";:Q$:Q$"O"60750606\CC(Q):PFQ&^Q:FPF:2000f936:" (RETURN) = LIST, (E) = EDIT ?";:Q$:Q$"E"750tN1NM:"N=";N:"X=";X(N):"Y=";Y(N):(37)19708N:1300:60:" (RETURN)=MORE, (O)=OPTIONS ?";:Q$:Q$"O"60936:706!(X2)))))B(4)((YNM)(M(4)(XNM)))`C(4)(XY((1NM)XY))2:C(4)C(4)(XS((X2)NM))~C(4)C(4)(YS((Y2)NM))SEı2000&3000:519X936:"BEST FIT SEARCH":ZSE1:F1:200:F2:300:F3:400:F4:500:C0:Q14:C(Q)C(3)(XS((1NM)(X2)))9C(3)C(3)(YS((1NM)(Y2)))CSEıM2000\3000:419n4000:N1NMY(N)0550XLX(N):YL(Y(N))XXXL:YYYL:XYXY(XLYL)XSXS(XL2):YSYS(YL2):NM(4)((XY((1NM)XY))(XS((1NM)2000^3000:317%4000:N1NM6X(N)0450MXL(X(N)):YLY(N)mXXXL:YYYL:XYXY(XLYL)XSXS(XL2):YSYS(YL2):NM(3)((XY((1NM)XY))(XS((1NM)(X2))))B(3)(1NM)(Y(M(3)X))C(3)(XY((1NM)XY))2:C(3)CL(X(N)):YL(Y(N))4 4XXXL:YYYL:XYXY(XLYL)R 6XSXS(XL2):YSYS(YL2) 8N:M(2)XY(XYNM):M(2)M(2)(XS((X2)NM)) :B(2)((YNM)(M(2)XNM)) <C(2)(XY(XYNM))2:C(2)C(2)(XS((X2)NM)):C(2)C(2)(YS((Y2)NM)) =SEı>)2):YSYS(Y(N)2)= N:M(1)(XY(XYNM))(XS((X2)NM))[ B(1)(YNM)(M(1)(XNM))v C(1)(XY((XY)NM))2 C(1)C(1)(XS((X2)NM)) C(1)C(1)(YS((Y2)NM)) SEı 2000 ,4000:N1NM /X(N)0350 0Y(N)0350 2X:"ENTER 'E' AT END OF DATA"::"N = ";N::ID106O g"X = ?";Q$:Q$"E"120c hX(N)(Q$):110x jX(N)N:"X = ";N n:"Y = ?";Q$:Q$"E"120 sY(N)(Q$):N xNMN1:60 4000:N1NM XXX(N):YYY(N):XYXY(X(N)Y(N)) XSXS(X(N(4)::"(5) FIND BEST FIT"z P:"(6) LIST AND EDIT DATA"::"(7) ENTER DATA TABLE "::"(8) TEST FIT"::" WHICH ?";F ZSE0:F200,300,400,500,600,700,100,800 d936:"DATA ENTRY MODE:"::"SHALL X = INDEX (Y/N) ?";Q$3 fID(Q$"Y")::N1100: X,Y DATA <*>"::"FOUR FITS AVAILABLE:": 2A$(1);": Y=B+MX"::A$(2);": Y=BX^M"::A$(3);": Y=B+M LN X"::A$(4);": Y=B EXP(MX)": 71300 <936:"OPTIONS:"::"(1) ";A$(7);A$(1)::"(2) ";A$(7);A$(2) F:"(3) ";A$(7);A$(3)::"(4) ";A$(7);A$ CURFIT REV. A8X(100):Y(100):A$(10):Q$(1)NB(4):M(4):C(4)A$(1)"LINEAR":A$(2)"POWER":A$(3)"LOGARITHMIC":A$(4)"EXPONENTIAL" A$(5)"DATA UNSUITED TO ":A$(6)"DATA ERROR":A$(7)"COMPUTE "* (936:"<*> MULTIPLE REGRESSION ON      "DERIVATIVE"6 - ENTER DEFFNC(X) HERE\("(ENTER X=99999 TO END PROGRAM)"w2"DERIVATIVE AT X=";X1FX199999160PD.0001" IS ";(C(X1D)C(X1))D50"RUNHELLO" IS ";2DD150))(X(J)X(I)) I$ BBTY(J)+ JF " Y = ";BL w "MORE X ON THIS CURVE (1=YES, 0=NO)";~ C C1100 "MORE X ON ANOTHER CURVE (1=YES, 0=NO)"; C "C120 ,"RUNHELLO"S" "CURVILINEAR INTERPOLATION"3X(50),Y(50)9X("NUMBER OF KNOWN POINTS";_2Pj<I1PF"X,Y OF POINT";I;PX(I),Y(I)ZIdn"INTERPOLATE: X = ";xAB0J1PT1I1PIJ190 TT(AX(I"."RUNHELLO" 60 HZ);"+"; RZY(TJ)$ \J2 fZ01040A pZB21040O zZ);"+";Y 1040c STLo J0B2 Y(S)J1010 "+"; KSTP1 Y(K)Y(S)990 SK 1020 K 1020 "*"; J "Y";  I$"X1730 J1P L1PJ- DY(TL1): BY(TL)H DB710W Y(TL1)Bd Y(TL)Dk Lr J L0P1 ZY(TL) Z0770 L I0910 Z0800 "*"; LP1870 *JLP1 4ZB21040 >Y(TJ)Z81)A Y(I1)B I J' T14 P0N1F X(P1)0490M Pg I0((A2A1)A3.5)q TTPy P0 TN540 X(T)I590 I0570 &"*"; 01040 :SN1 D920 NLTN XX(L)X(T)630 bPP1 lL vP(I)((Y(I)B1)B3.5) I3 Y(N1)(B2.5)1Q X(N1)((A2A1)A3.5)1W " ,"INTERSECTION OF AXES AT (";A1;",";B1;")" 6 @J1N JI1NJ TAX(I) ^BY(I) hCX(I1) rDY(I1) |AC430 X(I)C Y(I)D X(Iȫ60* x"NUMBER OF POINTS TO BE PLOTTED";1 N? N01070N N99180e "TOO MANY POINTS"n 120y I1N I1220 "COORDINATES OF POINT ";I; 230 " POINT ";I; X(I),Y(I) X(I)((X(I)A1)A3.5) Y "COORDINATE PLOT"1X(100),Y(100)j("X-AXIS: LEFT ENDPOINT, RIGHT ENDPOINT, INCREMENT";x2A1,A2,A3<"Y-AXIS: LOWER ENDPOINT, UPPER ENDPOINT, INCREMENT";FB1,B2,B3PB2(B2B1)B3ZB240120d"Y-RANGE TOO LARGE" n