' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|66e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  Ϡ跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`i d ֠z# u`....................................R\.......................................\.......................................\.......................................\....................................... \.............................P"RUNMENU"R END PROGRAM"2216368,0U<(16384)127Ĺ16368,0:1360_F1340oP"RUNMENU" B(K1)DM60S3600)B(K1)901130;B(K1)01130IQ31250iB(K1)270(90B(K1))(1)Qs1260B(K1)90(90B(K1))(1)Q" DISTANCE (NEGATIVE IF RADIAL)";L(K1)L(K1)01300 (L(K1))(L(K11))1260D1)60M(M1)(S((M1M)60.5)s" ";D1;" ";M;" ";S;" R=";R(D);" A=";R(A1);" C=";R(C1);" T=";R(T)|250LQ0VB(K1)0`L(K1)0j"COURSE ";K1;":QUAD, DEG, MIN, SEC";tQ,D,M,S~Q01300FQ41130Q11130@"INTERPOLATION: (ENTER X=0 TO END PROGRAM)"< J"X = ";XI ^X0390[ h"Y = ";ABXa rj |330z "RUNMENU" )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 hA10390 rYB1 |400) YA1: "ROOT = ";Y@ H 60X "RUNMENU" 0 \ fI p36,20:"Y"& u:^ z"WOULD YOU LIKE ANOTHER PLOT?";R$:(R$,1)"Y"ė:o "RUN MENU" S1670 36,20:"*";# S11 L40860A 36,L:"+";H KU S1860f 36,20:"*";o 860w ST J038 X(S)J830 "+"; KSTP1 X(K)X(S)810 SK 840 *K 4840 >"*"; HJ R"X";:87 L P1560 J1$ L13 CX(TL1)@ AX(TL)P CA0540_ X(TL1)Al X(TL)C LL1:LPJ490 &JJ1:JP480 0I12730 :L1 DS0 NK0P1 XX(TK)L690 bLX(TK) lL20660 vL20670 Y(I)Y(I1) X(I1)A% Y(I1)B, I3 J; T1H "P0N1[ ,Y(P1)0320b 6Pn @I024x JTTP TP0 ^TN370 hY(T)I420 rI12400 |36,20:"*"; 860 SN1 740 LTN Y(L)Y(T)460 PP1= ";Z12 d nI1N+ xD.06981317I` - ENTER THE FUNCTION HERE (F AS FUNCTION OF D) X(I)(((F(D)Z1)20).5) Y(I)(((F(D)Z1)12).5) I J1N I1NJ AX(I) BY(I) BY(I1)260 X(I)X(I1) q "PLOT OF POLAR EQUATION"%q"HAVE YOU ENTERED THE EQUATION ON LINE 130?";R$:(R$,1)"Y"ĀwX(91),Y(90)(N902"ABSOLUTE VALUE OF ENDPOINTS";<ZFP"INCREMENT OF X-AXIS = ";Z20 Z"INCREMENT OF Y-AXIS       \.......................................Z\.......................................\.......................................\.......................................\.......................................\.............................................F\.......................................t \....................................... \....................................... \....................................... \.......................................,....2\.......................................`\.......................................\.......................................\.......................................\.......................................\.............................................L\.......................................z\.......................................\.......................................\.......................................\.............................................8\.......................................f\.......................................\.......................................\.......................................\.......................................\.........2)X J* "DEPENDENT VARIABLE = "P0 9 710I *"RUNMENU"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 SOJ# "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  "RUNMENU" C PADM60S3600) Z"RADIANS =";AC1 d50V "INPUT THE ANGLE IN RADIANS?";A\ } AAC:A(A360(A360))360 "DEGREES = ";(A) AA(A) "MINUTES = ";(A60) AA60(A60) "SECONDS = ";(A60100.5)100 50  936$ "ANGLE CONVERSION:"*`"1. DEGREES TO RADIANS":"2. RADIANS TO DEGREES"v#"3. END PROGRAM"(C1803.14159272"WHICH OPTION? (BY NUMBER):";O<O70,150A240 F"INPUT THE ANGLE IN DEGREES, MINUTES, SECONDS?";D,M,S  ................................N$\.......................................|%\.......................................&\.......................................'\.......................................(\.............................................:\.......................................h\....................................... \.......................................!\......................................."\....................................... #\.............................................T\.......................................\.......................................\.......................................\....................................... \.............................................@\.......................................n\.......................................\.......................................\.......................................\.......................................&\.MK2)) 6 "COEFFICIENT OF CORRELATION = ";R2l :"HIT RETURN TO RETURN TO MENU";R$:"RUN MENU" Sn' "LINEAR CORRELATION COEFFICIENT"-F"NUMBER OF POINTS";M(NU2J0]<K0eFL0mPM0uZR0dI1Nn"X,Y OF POINT ";I;xX,YJJXKKYLLX2MMY2RRXYI R2(NRJK)((NLJ2)(N PLOT?";R$)B(R$,1)"Y"ĺ"RUN MENU"3L:40 AL:40 :KK11020"*";!J+"Y";1>I:II1G$"X"n8"WOULD YOU LIKE ANOTHER PLOT?";R$B(R$,1)"Y"ĺ"RUN MENU"L:40 A A"*";J"Y";I$"X"." 40N":"PR#0" 8"WOULD YOU LIKE ANOTHERP1870 *JLP1$ 4ZB210406 >Y(TJ)Z860H H36,Z1:"+";U RZY(TJ)\ \Jj fZ01040y pZB21040 z36,Z:"+"; 1040 STL J0B2 Y(S)J1010 "+"; KSTP1 Y(K)Y(S)990 SK 1020K30 bPP1 lL vP1730( J10 L1? DY(TL1)L BY(TL)Z DB710i Y(TL1)Bv Y(TL)D LL1:LPJ660 JJ1:JP650 L0P1 ZY(TL) Z0770 L:LL1 I0910 Z0800 "*"; L X(I1)A Y(I1)B% I:II12 J:JJ1: T1G P0N1Z X(P1)0490g P:PP1 I0((A2A1)A3.5) TTP P0 TN540 X(T)I590 I0570 &"*"; 01040 :SN1 D920 NLTN XX(L)X(T)6) Y(I)((Y(I)B1)B3.5)$ I: Y(N1)(B2.5)1X X(N1)((A2A1)A3.5)1^ " ,"INTERSECTION OF AXES AT (";A1;",";B1;")" 6 @J1N JI1NJ TAX(I) ^BY(I) hCX(I1) rDY(I1) |AC430 X(I)C Y(I)D E" n601 x"NUMBER OF POINTS TO BE PLOTTED";8 NF N01070U N99180l "TOO MANY POINTS"u 120 I1N I1220 "COORDINATES OF POINT ";I; 230 " POINT ";I; X(I),Y(I) X(I)((X(I)A1)A3.5 "COORDINATE PLOT"$7X(100),Y(100)q("X-AXIS: LEFT ENDPOINT, RIGHT ENDPOINT, INCREMENT";2A1,A2,A3<"Y-AXIS: LOWER ENDPOINT, UPPER ENDPOINT,INCREMENT";FB1,B2,B3PB2(B2B1)B3ZB240120 d"Y-RANGE TOO LARG     ........6"P\.......................................d"Q\......................................."R\......................................."S\......................................."T\.......................................#U\.............................................P!K\.......................................~!L\.......................................!M\.......................................!N\......................................."O\.............................................< E\.......................................j F\....................................... G\....................................... H\....................................... I\......................................."!J\.....\.......................................V@\.......................................A\.......................................B\.......................................C\....................................... D\.............................................B:\.......................................p;\.......................................<\.......................................=\.......................................>\.......................................(?.4\.......................................\5\.......................................6\.......................................7\.......................................8\.......................................9\.............................................H/\.......................................v0\.......................................1\.......................................2\.......................................3\.............................................4)\.......................................b*\.......................................+\.......................................,\.......................................-\........................................\.............310 ,X1X& 6"PERCENTILE = ";1X@ @"TAIL-END VALUE = "XF EN J40^ T"RUNMENU"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 "F1` "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  " A = 0" "60" ," A = 180"* 6606 @"R,A";? JR,Ad TM(A(A360)360)3.1415927180 ^"X = ";(R(M)100.5)100;","; h" Y = ";(R(M)100.5)100 r60 |"RUNMENU"V((X)(X2Y2)100.5)100;",";R " A = ";((YX)1803.1415927100.5)100Z 60g Y0240} "R = ";(Y);","; Y0220 " A = 90" 60 " A = 270" 60 "R = 0, A = 0" 60 "R = ";(X);"," X0300  "COORDINATE CONVERSION"$H" ( 1=CARTESIAN TO POLAR)"l(" (-1=POLAR TO CARTESIAN)"2" ( 0=END PROGRAM)"<"WHICH DIRECTION";FDPD0380ZD1320d"X,Y";nX,YxX0170Y0260! "R = ";  1500:I:25000*K'*L GOT ONE! H*NVTVT1:VT21PR1İ1300\*PFO1Ģ12:868i*QPRİ700y*VVT:1:NA$*`PRİ750*tINRı*PRİ700:" ":" ":" ":" ":750*22:868:"THAT'S ALL OF THEM! - PRESS 'RETURN' ";:"";S$:25000Z)FO0:I1NR1)NA$:(NA$,1)(92)1040W)SK0SK1ĭ(NA$,(S$))S$1075h)II1(NA$))$(NA$,II,(S$))S$FOFO1:1100:1075).II)3I:FO1200)812:868:12::"<< NOT FOUND >>"::PRİ700:S14:" "::750*B(7):I1PLEASE ENTER THE SEARCH KEY:":13:5:"";S$:S$""25000O(PRİ700:" ":" "(:1:" NAME PHONE NUMBER":"----------------------------------------"(PRİ750(S22510(12:868:12::"<< SEARCHING >>"::VT2):N SAVED!!":22:'z::22:/' SEARCH D'3000:OP11010':9:5:"WOULD YOU LIKE TO SEARCH BY"::10:"1 WORD (FAST)":7:"OR 2 CHARACTER (SLOW)"'14:868:20:"WHICH: ";SK$:SK(SK$):SK1SK2(SK$)1ĺ"":10078(:11:5:":&  END ROUTINE %&*MF0890U&4DISKĺ(4)"SAVE PHONE LIST":::22:976:&>:11:"INSERT A NEW TAPE INTO THE RECORDER, SET";:"ON RECORD, AND PRESS 'RETURN' ";:"";S$&HI11500:::I12000::'R:12:"THE PROGRAM AND DATA HAVE BEE)(1001)192DISK13%DISKĺ(4)"NOMON C,I,O":`% GET ADDRESS OF FIRST DATA STATEMENT %START((103)(104)256458)%& SET FAST/SLOW SEARCH %0OP0%:25000% ACTIVATE PRINTER %SL:% DE-ACTIVATE PRINTER &0..0$[\.......................................^$\\.......................................$]\.......................................$^\.......................................$ SET PRINTER SLOT $SL1$ DISK SYSTEM?? %(994............................J#V\.......................................x#W\.......................................#X\.......................................#Y\.......................................$Z\.....................................(1)R(1)V(2)R(2))1 B(V(1)R(1)V(2)R(2))2k BB((V(1)R(1))2(R(1)1)(V(2)R(2))2(R(2)1))2y B(B.5)  "T-VALUE = "(A) "DEGREES OF FREEDOM = "B :"HIT RETURN TO RETURN TO MENU";R$:"RUN MENU" ))(R(I)1) I % T23402 T3380H ""VALUE OF MEAN";O ,Mk 6A(M(1)M)(R(1)V(1))x @BR(1)1 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 ZT d nI1(T1)1* xV(I)05 D(I)0J "SAMPLE ";I;":"g " NUMBER OF ELEMENTS";q R(I) 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& "STUDENT'S T-DISTRIBUTION TEST",9P(10,2)R(V(2),R(2),M(2),D(2)h2"TEST 1: MEAN=X"<"TEST 2: MEAN=MEAN,STANDARD DEVIATION=STANDARD DEVIATION"F"TEST 3: MEAN=MEAN,STANDARD DEVIATION<>STANDARD DEVIATION" P"WHICH HYPOTHESIS";   "A*B=";Y1Z2Z1Y2;",";Z1X2X1Z2;",";X1Y2Y1X2: x[ "MORE DATA? (1=YES, 0=NO)";b Xn X120~ "RUNMENU"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 ";::"NAME";::" ENTRY:":10:14:NN$c/12:"AND THE ";::"PHONE NUMBER";::":":14:14:NP$/,18:8:868:"ARE THEY CORRECT (Y/N) ";S$:(S$,1)"Y"4180/6(S$,1)"Y"S5ġ:6000/@(S$,1)"N"ĺ"":4100/J4000/OS542000TS54020].10:958:"ENTER NEW NUMBER THEN PRESS 'RETURN'.":"(USE THE FORMAT: XXX XXX XXXX)".13:"-> ";A$:6100:NP$B$:NP$""S5Ĺ32,0::25000.NP$""Ĺ32,0:25000.(NP$)12ĺ"":4050. IS ENTRY CORRECT? '/::8:"HERE IS THE :I12000::25000-32,3:10:958:"ENTER NEW NAME AND PRESS 'RETURN'.":"(USE NO COMMAS, COLONS OR QUOTES.":"TWENTY-FIVE CHARACTERS, MAXIMUM.)"-14:"-> ";A$:6100:NN$B$:NN$""S5Ĺ32,0::25000-NN$""Ĺ32,0:25000.(NN$)25ĺ"":(NA$,1)(92)INR2540#, 1100=, VT22VT2:3:958D, IN, 1200k, IS DATA FILE EMPTY? , ::NR0Ģ12:9::"<< NO NAMES ON FILE >>"::I12000:I::25000, , ENTER LISTINGS -:NR150Ģ12:12:"DATA TABLE FULL!"++ GOT A FULL PAGE Z+22:958:"ENTER 'RTN' TO CONT - 'ESC' FOR MENU ";:T$q+(T$(27)ġ:25000+2T$(13)Ģ3:1:958:VT3:+<(7):1300+ + LIST EVERYTHING + 3000+ 1012+ :Z+ VT2:FO0:I1NR, NA$: T"RUNMENU" )J29S K29R> L((1K)Z(13)1J)(KZ(23)J){ 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! "STUDENT'S T-DISTRIBUTION"'T"(TO END PROGRAM ENTER A T-VALUE OF 0)"d("T-VALUE";k2Tx<T0340F"DEGREES OF FREEDOM";PDZX1dY1nTT2xT1170SYRDZT200SDRYZ1T REES" I  60 3 "NO SOLUTION"9 A &60Q 0"RUNMENU" 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))SA(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     APPLE COMPUTER, INC. PHONE LIST ";::"----------------------------------------"7a"PROGRAM CURRENTLY CONTAINS "NR" LISTING";:NR1ĺ"S";7a:"ROOM FOR "(150NR)" ADDITIONAL LISTINGS"7a8:"THE PRINTER IS";:PRĺ" OFF";)8aPRĢ9:" TROL CHARS. 6B$""%6(A$)ı46I1(A$)Y6((A$,I,1))26B$B$(A$,I,1)`6If6~6] PRINTER ON/OFF 6]PRPR:250506]6a MAIN MENU 6a:NR:NRNR10006a::1:"----------------------------------------";:X7a" EDIT AND PRESS":"'RETURN'.":5020i513:868:"DO YOU WISH TO EDIT THIS DATA (Y/N) ";S$:S$""250005(S$,1)"Y"NN$NA$:60505(S$,1)"N"İ50705"":60205 GO EDIT THE LINE 5:8:NN$:4020:4360525000 6 REMOVE CON(S$,1)"N"ĺ"":5130 45081<4P OK THEN, KILL IT! M4ZUD1:4250k4dCU(START((LN201)46))|4nCU,((92))4x4450:250004p EDIT A DATA LINE 4z:3000#5|:10:"PLEASE ENTER THE NAME OF THE PARTY WHOSE";:"LISTING YOU WISH TO(NA$,(K$))K$510033(NA$,1)(92)UUNR5070?3UUUU1P3UUNR5070]3:25000t3 FOUND A MATCH 3LN(123)(124)256:UUUU13:11:NA$:S5ı3 13:868:"DO YOU WISH TO DELETE THIS DATA (Y/N) ";S$:(S$,1)"Y"52004 DELETE DATA CONTENTS $2:30002:10:"PLEASE ENTER THE NAME OF THE PARTY YOU":"WISH DELETED FROM THE DIRECTORY AND":"PRESS 'RETURN'."214:"-> ";K$:K$""S5ġ:250002K$""250002 FIND AN EXACT MATCH 2:Z:UU13NA$:E 1T$:(T$,1)(92)4310:1LN(123)(124)256T1 CALCULATE OFFSET r1CU(START((LN201)46))10 POKE DATA LINE 1:ICU(CU39)1DI,((NN$,I1CU,1)):1b SET UPDATE FLAG 1lMFMF1:S4S5ı1v250001242000^UD1-0h PAD TO 40 CHARACTERS U0rI(NN$)(39(NP$)):NN$NN$".":m0|NN$NN$NP$:S5ı0 UPDATE DATA NUMBER 0:T:TTUD:CU(START11)0T$(T):I1(T$)0(CUI),((T$,I,1)):0S4ı1 FIND EMPTY DATA LIN)C Y(V1(X)P)2P! ZZY\ " ";V1(X),(P10000.5)10000,(Y10000.5)10000c Jj Ip  "CHI-SQUARE = ";Z "DEGREES OF FREEDOM = ";(C1)(R1) :"HIT RETURN TO RETURN TO MENU";R$:"RUN MENU" RI1R J1C& A(I)A(I)V1(M)0 MM17 JD LLA(I)K IU NRC` I1Cm JINC "V2(I)V2(I)V1(J) ,J 6I @Z0 J"OBSER","EXPECT","CHI^2" TI1C ^" COLUMN ";I hJ1R rPA(J)V2(I)L |XI(J1 "CHI-SQUARE TEST"5V1(25),V2(5),A(5)L("NUMBER OF ROWS";S2Rm<"NUMBER OF COLUMNS";tFCP"CONTINGENCY TABLE:"ZI1Rd"ROW ";InJ1Cx"ELEMENT ";J;V1((I1)CJ)JIL0M1 3104 J(X(1)X(2)Y(1)Y(2)Z(1)Z(2))M(1)M(2)B J0300K J90T "310j ,J((1J2)J)S 6"ANGLE BETWEEN VECTORS: ";J @ J"MORE DATA? (1=YES, 0=NO)"; TZ ^Z120 h"RUNMENU"A"VECTOR ";I;":"' "MAGNITUDE: "M(I)6 S57.29578F JX(I)M(I)i "ANGLE WITH X-AXIS: ";A(J)Sy 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 M(2)0#A(X)(X(XX1))1.5708B "ANALYSIS OF TWO VECTORS"[X(2),Y(2),Z(2),M(2)a#y("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)0220 x  :5000/ ZZ05500SPEED500:ZZ:HNOQ1547 99= d "PRESS RETURN KEY FOR ANSWERS";A$r H1::: :4:X0:Y0:PH:1800 X0:Y10:15 PA(H):1800:XX8 X20B(H)0200 X16:YY8 D(H)1100,1110,1120,1130:XX8:X0:Y10 A(H)991081 PA(H):1800:XX8E X20X16:Y18i D(H)1100,1110,1120,1130:XX8 PB(H):1800:XX8 D(H)145,146,147,148 C(H)A(H)B(H):150 C(H)A(H)B(H):150 C(H)A(H)B(H):150 C(H)A(H)B(H) CF10 cHH1& d:4:X0:Y0:PH:1800/ gRA0T iD(H)1((7)SSS):D(H)3RA9 lA(H)((34)(12RA)):B(H)((61)(12RA)) mD(H)4120 nA(H)A(H)B(H):A(H)0105 s128 xD0A(H)B(H)128 }C(H)A(H):A(H)B(H):B(H)C(H) 15GROUP (2) ";CF:CF1CF2522 5CF1İ2005:60< 72000X <B65,70,75,80,85,90,95i ASS0:S1:98z FSS1:S1:98 KSS2:S1:98 PSS3:S1:98 USS0:S4:98 ZSS0:S2:98 _SS2:S2 b"PRESS RETURN KEY TO START ";A$:HDIVIDUAL OR GROUP)"7 :" DEVELOPED BY P.D.KILLEN"= k #"**************************************" -" *** CARDINAL NUMBERS MENU ***": /I17:A$:4:I;"...........";A$:I: 2"YOUR CHOICE ";B:B7B150 4"INDIVIDUAL (1) OR ̠ұ̠ҲӬSE11500:PAUSE: DELAY6 120: DRAW A NEW PATTERNV y16298,0: TURN OFF HI-RESx y16388,0: CLEAR KBD STROBE y:936::A15531111 @S,X; TY0158I%: STEP THROUGH Y VALUES` hS01: 2 LINES, FROM Y AND Y+1 |3S: FIRST LINE BLACK, NEXT WHITE  DRAW LINE THROUGH "CENTER" TO OPPOSITE SIDE 279,YSA,B0,159YS (16384)15531111 S,Y PAU"6 PRINTER ON/OFF"79b"7 EXIT THIS PROGRAM":32,0:C9 b32,0:k9*b22:20:868:"WHICH: ";S$:S(S$)94bS1S7ĺ(7):251309>bS1000,2500,4000,5000,6000,24000,8009Hb9 9APPLE COMPUTER, INC.9 COPYRIGHT 4/1/1979S ":25070?8a" ";::" ON ":w8a10:"YOU MAY CHOOSE FROM THE FOLLOWING:":32,5::8a"1 SEARCH FOR A LISTING":"2 LIST THE ENTIRE FILE"8b"3 ENTER NEW LISTINGS":"4 DELETE A LISTING"9 b"5 EDIT A LISTING": 180 L1 M1# VV2/ MMWVC M.0000001250M LLMV 200v "TAIL END VALUE = "1JKL "PERCENTILE = "JKL  40 "RUNMENU" I  "CHI-SQUARE DISTRIBUTION"&F"(TO END PROGRAM ENTER 0)"a("DEGREES OF FREEDOM";h2Vu<V0280F"CHI-SQUARE";PWZR1dIV22nFFIxIKW(((V1)2))(W2)R(V2)V2170 J(2W3.1415927) 1) Y(N1)Y(1) A0% I1NI AA(X(I)X(I1))(Y(I)Y(I1))P Ib "AREA =";A2h p 40 "RUNMENU" A "AREA OF A POLYGON" 1X(25),Y(25)e("NUMBER OF VERTICES (ENTER 0 TO END PROGRAM)";l2Ny<N0230FI1NPI1110Z"COORDINATES OF VERTEX ";I;d120n" VERTEX ";I;xX(I),Y(I)I X(N1)X(  / 24:" ";W X0278I%: STEP THROUGH X VALUES| S01: 2 LINES, FROM X AND X+1 3S: FIRST LINE BLACK, NEXT WHITE  DRAW LINE THROUGH "CENTER" TO OPPOSITE SIDE ,XS,0A,B279XS,159 6(16384) P: CLEAR THE TEXT AREA< d22: MOVE CURSOR TO MIDDLEf x: SET HIGH RESOLUTION GRAPHICS MODE A(1)279: PICK AN X FOR "CENTER" B(1)159: PICK A Y FOR "CENTER" I%((1)4)2: PICK A STEP SIZE :22 15:"STEPPING BY ";I% : CLEAR THE TEXT WINDOW= :216,0: TURN OFF ONERRZ7:15:"BRIAN'S THEME"o9:17:" BY"11:16:"BRIAN HOWARD"15:" COPYRIGHT 1979, APPLE COMPUTER INC."#23:9:"PRESS RETURN TO CONTINUE...";(A$:A$(13)40     OX99999290 X(XM)S8 R((X2)2)2.5066282746M "FREQUENCY = "RU ZXm T1(1.33267(X)) T.5(R(.4361836T(.1201676(T2)).937298(T3))) Z0260 T1T "PROBABILITY = "T  150 ""RUNMENU" MENU" "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   J0:J0J01YJ07204N1((Y(Y))12)12N@J0J01I280b::" 40N":"PR#0""CHANGE DATA AND RECOMPUTE? (1=YES, 0=NO)";ZZ120"RUNMENU" Z,10:I1;:36,20:A;:36,30:B0;:36,40:I22 :J1C DC1NY600t N" LAST PAYMENT = $";((R100.5))100 XJ0X640 b" " gJ0A(J0):I3A(I3):A2A(A2) l"YR.";J0;:36,10:I3;:36,20:A2 v" " J0Y720 I30 A20 1 I1((B0IN)100.5)100+ C1C116 ARI1B A1A1AN B0PA1_ C1NY520j RRB0u AAB0 A1A1B0 B00 I2I2I1 I3I3I1 A2A2A &J0X570 +J1A(J1):I1A(I1):AA(A):B0A(B0):I2A(I2)* 0J1;:36M ^" PRINCIPAL $";P;" AT ";I100;"% FOR ";Y0;" YEARS ";M;" MONTHS"v h" REGULAR PAYMENT = $";R r" " |"NO.";:36,10:"INTEREST";:36,20:"AMORTIZED";:36,30:"BALANCE";:36,40:"ACCUM INTEREST" K7 KKN3 J11N:" K 80N" X(X) C10' I200 I309 J00B N1NK K66T B0P] A10f A20v (Y)1690 J01(Y) J0X410 "KN358400 ,K1K66 6 @K1 J" " T" MORTGAGE AMORTIZATION TABLE"AR PAYMENT"; (R1 2"TERM IN YEARS, MONTHS";; <Y0,MN AY(12Y0M)12` F"PRINCIPAL";g PP Z"ANNUAL INTEREST RATE"; dI nII100 x"NUMBER OF PAYMENTS PER YEAR"; N "START PRINTING WITH WHAT YEAR"; X :"PR#";SLA(ZZ)(ZZ100.5)100A "MORTGAGE AMORTIZATION TABLE"G"THIS PROGRAM REQUIRES AN 80 COLUMN PRINTER. DO YOU WISH TO CONTINUE";:R$:(R$,1)"Y"ĺ"RUN MENU""PRINTER SLOT?";SL:SL1SL7Ģ(37):868:27: "REGUL  ................>\.......................................l\.......................................\.......................................\.......................................\.......................................$\...\.......................................X\.......................................\.......................................\.......................................\.......................................\.............................................D\.......................................r\.......................................\.......................................\.......................................\.......................................*..0 \.......................................^ \....................................... \....................................... \....................................... \.......................................\.............................................J \.......................................x \....................................... \....................................... \....................................... \.....................................351 48006 \.......................................d \....................................... \....................................... \....................................... \....................................... \........... BROWNING.............075 351 053$P HELLO.......................075 746 7644~ POLICE......................XXX XXX X000 TROY COOL MENYWEATHER.......075 354 3650 JASON TAYLOR................075 357 1340 KERRY STEWART...............075 SS *# m* THAN 400!! *@ n* *] o* PROGRAM WILL *z p* SELF-DESTRUCT! * q* * r*********************** s 1007 NICK TOL....................074 747 8484" LEISHA1d***********************;e* *Xf* W A R N I N G *ug* - - - - - - - *h* *i* DO NOT MODIFY *j* ANY LINE IN THIS *k* PROGRAM WITH A * l* LINE NUMBER LE                   40 "RUNMENU" 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 NU" N" "PRIME FACTORS OF INTEGERS"(H"(ENTER 0 TO END PROGRAM)"V("NUMBER"]2Zj<Z0200tF(Z)PZ(Z)ZI2ZdS0nZI(ZI)150xZZISS1110S0170I;"^";SI40 "RUNME  R1)1?P1000,1010,1020,1030,1040,1050,1060,1070,1080,1090E&j936:" SPEED TABLE"ZZ19::ZZ;"............................SPEED.";ZZ:ZZ:"10...........................SPEED.10"" SPEED 10 IS THE FASTEST "11804 1100:XX8 PP8 V1(P100):V11810q V1000,1010,1020,1030,1040,1050,1060,1070,1080,1090{XX8RR1(P10)10(V1)V1RR11820RR1000,1010,1020,1030,1040,1050,1060,1070,1080,1090:XX8PP100(V1)10(R4:#VX2,X6Y4:Y2,Y6X4:T`X5,Y5:X3,Y5:X3,Y3:X4,Y4:X5,Y3|aX6,Y6:X2,Y6:X2,Y2:X6,Y2ejX2,X6Y4:X4,Y2:X4,Y6:t2X,6XY3:2X,6XY5vA(S)_SSA101100:D(H)AP1ďY1,Y7X2(Y4,Y7X6#-4.X2,X4Y1E/Y1,Y7X4K7\8X2,X6Y1m9X2,X6Y4~:X2,X6Y7;Y1,Y7X2<Y1,Y7X6ABX2,X6Y1CX2,X6Y3DY1,Y3X2EY1,Y7X6KLX2,X6YȎX2,X6Y1X2,X6Y4.X2,X6Y7? Y1,Y7X6E VX2,X6Y5gY1,Y5X2xY3,Y7X5~X2,X6Y1X2,X6Y3X2,X6Y7Y3,Y7X6Y1,Y3X2#$X2,X6Y7%X2,X6Y4 'P (Y/N)";A$:9361A$"Y"A$"YES"45998?PX2,X6Y1aX2,X6Y7rY1,Y7X6Y1,Y7X2Y1,Y7X4X2,X6Y1X2,X6Y4X2,X6Y7Y1,Y4X6Y4,Y7X2 PB(H):1800:XX8126YY8:X8:1140:XX8GPC(H):1800ZZZ01500:ZZiHNOQ600sHH115:170X"* FINISHED *"l"DO YOU WISH TO TRY AGAIN (Y/N)";A$vA$"Y"A$"YES"ĉ:: "SAME SET UICS","STATISTICS","MISCELLANEOUS"N"dD$(4):CNTRL D,gD$;"NOMON C,I,O"4i:Xn6:"CATEGORIES AVAILABLE ARE:"`x10kI14A$(I):I;". ";A$(I)I20"WHICH WOULD YOU LIKE? ";N(N)NN1N4170D$;"RUN";(A$(N),4)! "BUSINESS","MATHEMAT  I)0220 A1 J1M(I)( AAJ/ J= M(I)(A)D Ip R(M(1)M(2)M(3)X(P)(NX)(1P)) "PROBABILITY OF "X" SUCCESSES IN "N" TRIALS = "R 50 "RUNMENU" 6 "BINOMIAL DISTRIBUTION"$.M(3)N("(TO END PROGRAM ENTER 0)"g2"NUMBER OF TRIALS";n<N{FN0270P"EXACT NUMBER OF SUCCESSES";ZXd"PROBABILITY OF SUCCESS";nPxM(1)NM(2)XM(3)NXI13 M( "RUNMENU":$ "GREATEST COMMON DENOMINATOR"*L"(ENTER 0,0 TO END PROGRAM)"f("ENTER TWO NUMBERS";o2A,B|<A090FB090P190ZA(A)dB(B)nRAB(AB)xR0160ABBR110"G.C.D.=";B40  ETURN> "6"E TO END :: <-- TO DELETE LAST NUMERAL">A$oA$"E"ĉ::12:"TOO HARD FOR YOU AH !!!":A1$""A$(8)A1$(A1$,1,(A1$)1):XX8:0:N1N11:I18:X,X8YI:I:12:5020(13)A$5200(A$)0A$"0"5020N1"SPEED REQUIRED ";SPEED:SPEED10SPEED12004;936q(10):"NUMBER OF QUESTIONS REQUIRED (1-100)";NOQNOQ100NOQ02005:4 IND RTX2:Y20:N10:4:A10:1140:12:XX8:A1$""22"TYPE IN YOUR ANSWER THEN R, RATE MUST BE LOWER THAN LAST GUESS III3 - RETEST WITH NEW GUE(NY)))* - ROUND OFF TO NEAREST CNETB R1(R1100.5)100v - I3=NUMBER USED TO CLOSE IN ON INTEREST RATE I3(II2)2 - SAVE THIS GUESS I2I - COMPARE COMPUTED PAYMENT (R1) TO INPUT PAYMENT (R);) - IF THEY'RE EQUAL, L Z"NUMBER OF PAYMENTS PER YEAR";) dNb m - GUESS AN INTEREST RATE (10%) TO INITIATE TESTINGk nI10 w - I2*LAST GUESS OR ESTIMATE ( START WITH 0 ) xI20 - COMPUTE REGULAR PAYMENT USING GUESSED INTEREST RATE R1(IPN)(11((IN1)' "ANNUAL INTEREST RATE ON A LOAN"-] - STATEMENTS 30 TO 100 REQUEST USER INPUTu"REGULAR PAYMENT";|(R2"TERM IN YEARS, MONTHS";<Y0,M@ - CALCULATE YEARS FROM YEARS AND MONTHSAY(12Y0M)12F"PRINCIPAL";PP"     (180C)HDL(K1)%RL(K1)L(K1)@\A1C1803.1415927D2TfC12D(C2R)cpC180910tzTD(C2R)}920T999999.999B0B(K1)B(K11)B9180980B0180960AAA1990AAA1D1(C)M1(CE COURSES"; X X170+ A(A2)F "PR#";SL:" K 80N":p "TOTAL AREA IS ";R(A);" SQ. FT. ("; (A43560100000000.5)100000000;" ACRES)" :" 40N":"PR#0" 1310 C(B(K1)B(K11)) *C180830 4C(180C)>C B(K1)B(K1)360 &300, 0D1(B(K1))A :M1(B(K1)D1)60M DM(M1)c NS((M1M)60.5) XB1$;B2$;" ";D1;" ";M;" ";S;:36,20:R(L(K1));:36,40:R(L);",";R(D);:36,60:R(N);",";R(E) bL(K1)L1 lK1 v" 40N":"PR#0" "ANY MOR560 hB1$"." rB2$"E"0 |B(K1)180420B B(K1)90560N B1$"S"W 560c B1$"S"o B2$"." B(K1)270480 B(K1)180560 B2$"W" 560 B1$"." B2$"W" B(K1)360540 B(K1)270560 B1$"N" 560N";:36,60:"N,E"% 36,60:N;",";E2 K11K2? L1L(K1)P L(K1)0800a L(K1)0630x LL(K1)(B(K1)R) DL(K1)(B(K1)R) NNL EED "AAELND ,B1$"N" 6B2$"." @B(K1)90360 JB(K1)0560 TB2$"E" ^74532925199 <K2104 F"**NEXT SET OF COURSES**"A PK11K2K Z1100X dQ0120` nK1i xK10 "CHANGE COURSE NUMBER"; K1 K10180 1100 120 :"PR#";SL:" K 80N": "BEARING";:36,20:"DISTANCE";:36,40:"LAT,LO  "MAP CHECK""THIS PROGRAM REQUIRES THE USE OF AN 80 COLUMN PRINTER. DO YOU WISH TO CONTINUE?";R$:(R$,1)"Y"1360"PRINTER SLOT NUMBER?";SL:SL1SL7Ģ(37):868:26B(10),L(10)(R(X)(X1000.5)1000 2R.01,(V10000.5)10000,((V)10000.5)100001 TO ^"MORE DATA(1=YES,0=NO)";V hSb rS120r |"RUNMENU" 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)10000t+ "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, FREQ  , ";M;" MONTHS" 5 - RESTART OR END PROGRAM?V "MORE DATA? (1=YES, 0=NO)";] Xi X120z "RUN MENU" MC m - INTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCULATIONt nY((1(P(I100))(NR))((1I100N)N)) r - CALCULATE YEARS AND MONTHS FROM YEARS sM(Y12.5) tY0(M12) uMMY012 w - PRINT RESULTS x"TERM = ";Y0;" YEARS| "TERM OF A LOAN"M - STATEMENTS 30 TO 100 REQUEST USER INPUTe"REGULAR PAYMENT";l(R~2"PRINCIPAL";<PF"ANNUAL INTEREST RATE";PIZ"NUMBER OF PAYMENTS PER YEAR";dN l - CALCULATE TERM IN YEARS BY FORMULA;    :936> 16298,0: ENSURE CORRE CT SCREEN JA$(10)nA(100):B(100):C(100):D(100)I140:"*";:I3:" CARDINAL NUMBERS"" OPERATIONS"6:" A TEACHING & TESTING AID" " (IN           TRIBUTION TEST","F-DISTRIBUTION","LINEAR CORRELATION COEFFICIENT" "MULTIPLE LINEAR REGRESSION","LINEAR REGRESSION","NTH ORDER REGRESSION","GEOMETRIC REGRESSION","EXPONENTIAL REGRESSION" "MEAN-VAR-ST DEVIATION" :CD$;"RUN";A$ "PERMUTATIONS AND COMBINATIONS","MANN-WHITNEY U TEST","GEOMETRIC MEAN","BINOMIAL DISTRIBUTION","POISSON DISTRIBUTION","NORMAL DISTRIBUTION","CHI-SQUARE DISTRIBUTION"A "CHI-SQUARE TEST","STUDENT'S T-DISTRIBUTION","STUDENT'S T-DIS CD$""$CD$;"NOMON C,I,O"B :"STATISTICS PROGRAMS:"HTI118\(A$q2I10ĺ" ";:70{<" ";FI;". ";A$PIZ::"WHICH PROGRAM WOULD YOU LIKE TO USE?";A_dA(A)A1A1810nI1AxA$I 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 :"HIT RETURN TO RETURN TO MENU";R$ "RUN MENU" XI1 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) CE = $";(B0100.5)100 = - RESTART OR END PROGRAM^ "MORE DATA? (1=YES, 0=NO)";e Xq X120 "RUNMENU"  - CALCULATE INTEREST PAID WITH EACH PAYMENTN I1((B0IN)100.5)100 - CALCULATE AMOUNT AMORTIZED WITH EACH PAYMENT ARI1 - CALCULATE REMAINING BALANCE ON PRINCIPAL B0B0A J1 ROUND OFF, PRINT "REMAINING BALANO DECIMAL nII100R w - ENTER THE PAYMENT NUMBER WITHIN THE YEAR, I.E. N1<=N x"LAST PAYMENT MADE ( PAYMENT N0. , YEAR )"; N1,Y - INITIALIZE REMAINING BALANCE B0P - LOOP TO ACCUMULATE AMOUNT PAID SO FAR J11N(Y1)N10$ "REMAINING BALANCE ON A LOAN"*Z - STATEMENTS 30 TO 130 REQUEST USER INPUTr"REGULAR PAYMENT";y(R2"PRINCIPAL";<PF"NUMBER OF PAYMENTS PER YEAR";PNZ"ANNUAL INTEREST RATE";dI m - CONVERT FROM PERCENT T   z#ӠԠ!ŠӠ"ŠӠӠԠРˠ à ՠ ŠԠ3 ΧӠŠ͠ŠԠ٠ƠŠˠӠΠϠӠϠϠà ̠ԠŠ!ɠ"Ƞ̠ΠŠ͠٠ŠȠŠ̠ǠӠؠΠŠˠҠ ԧӠԭΠԠ ƭΠҠΠ ŠҠΠҠΠ ȠҠΠ àΠàΠ ̠Π ΠΠ ̠Π ɭŠΠ ɭŠԠԧӠԭΠ ҠǠ ŠؠӠ ؠΠ! ؠΠ" ӠĠӠ έ٠ՠԠ έҭԠΠ  ̠Š Š à ̠ӺΠ̠Ӻƭ̠ Ǡ̠ ӠӠ ŠΠҠΠԠΠԠ ҠΠ ҠΠ ΧӠŠ ΠŠ ԠԠŠ ƠΠ ҠӠӠƠŠҠӠŠΠŠԠ !ҠԠΠΠ"ԠԠΠΠǠŠΠΠ͠ƠΠ̠ԠŠΠΠ ԠΠҠ ŠӠ ŠԠŠ ĠԠŠ ΠŠΠԠŠŠԠ̠Ҡ ̠ΠΠϠŠŠƠΠԠ٠ҠӠҠӠ̠ԠΠԠҠӠ)[,qq\[t@O4rD4rD4r-rq\-rq-rq-rq?-rq-rq9-rq-rq)TN@"rC@"rC@"rC@" r;h-rq!KM6o\\cPY[,dededeM[,\,`$\(q8drl_qqqhq8rq:m:R 8r`%qS[q\,[0a(8d-rr8d-rr88d-rrd-rdrVdq8d-rr8&88d-rrd-rdrrq'8'r8(r5xgh`.?6@r%[]ԠҠŧƠBqqdededeMYd3e]Ԡ_d"ed#e[ d"ed#e[ qq _$I(UVWf8r 8r8rlm'n!o"<UVWq8-rr-r_Pq88-rdrr8d-rr = ";(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 "RUNMENU" DREE 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 CORRELATIONI)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) Y";  A$(11)" " X( "X"Z  "1","2","3","4","5","6","7","8","9","+","+" "WOULD YOU LIKE ANOTHER PLOT?";R$:(R$,1)"Y"ĺ"RUN MENU" 20 R" 20 RXX1X2X3 Y(1)X2$ I1N@ Y(I)((Y(I)Y1)Y3.5)G IS I0Y2[ S0f J1Nw "Y(J)I320 ,SS1 6TJ @J JS0360 TA$((I)10); ^400 hS1390 rA$(T); |400 "*"; I XX1430 "NT"; dX1,X2,X3L n"Y-AXIS: LOWER ENDPOINT, UPPER ENDPOINT, INCREMENT";Z xY1,Y2,Y3l Y2(Y2Y1)Y3| Y239170 "Y-RANGE TOO LARGE" 110 "X-AXIS CROSSES Y-AXIS AT Y=";Y1 "Y-AXIS CROSSES X-AXIS AT X=";X1 ܦ "PLOT OF FUNCTIONS" k"HAVE YOU ENTERED THE FUNCTIONS ON LINES 221-229?";R$:(R$,1)"Y"ij|Y(9),A$(11)(I1112A$(I)<IF"NUMBER OF FUNCTIONS TO BE PLOTTED";PN Z"X-AXIS: LEFT ENDPOINT, RIGHT ENDPOINT, INCREME   d"ed#e" ocoa(ҠԬ)G*`7;@r$>F4UVW;@ra@*#rG`<@*rr%Y`;@r%d$e.?$r_H>d$e.?$r/HS()&@`;@r$`@*#r:()$R\M61\oS(٠ɠԠŠŬjkijk%lmno\UVWXJ`$qq 8 r\`%qq5bG` %a()Ga()GqYa(РŠ)o'oa(ӠĠ)GP bG\( d6?e,UVWYq q \Abd2e?a(ӠâϠРԭ)d2eelLUVW f8r 8r8rgh'ghY^qocUVWXfijkYiŠͯį٩)G\*`8r8r$!qα`%qS&ocM6dT0oP`  %a()G`  %a()Ga(Š)G9DoP 8  rbE()FE()FGoq)X\`;@r$@p@*#;@rr`<@r%@p()Aa@GocM6da(Šͯį٩)G\oPqqqqLqqqqa(Š)FE()FE()FG\oαqM6d\coM6d0`7%a(Ԡa() |c\)P a(٠Ҡ)c\\,cca(Ġ٠Š)#\oq q \?\M6\oS(ҠŬſ)&@oD`7;@r$UVW;@r`<@*rr%Y(K(N2))) J? T"INTERPOLATION (ENTER 0 TO END PROGRAM)"M ^"X = ";XZ rX0410n |"Y = "(A)XBt } 350 "RUNMENU" I2KJ)(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(1=YES, 0=NO)"; Z ( Z170F "NEW LINE (1=YES,0=NO)";M ZY Z120i "RUNMENU" Ok "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   GY, INC." dW12000:W+ n"RUN MENU"1 ENU"? 2"NOMONC,I,O" :#5D10:"OSBORNE & ASSOCIATES'"Jz"C O M M O N B A S I C P R O G R A M S"(:217:"EDITED"7<18:"AND"AF11:"TRANSFERRED TO DISK"KP19:"BY"U Z10:"HIGH TECHNOLO ܠŠԠŠܭ (q.?$r9<d$eM6dqqqR@`;@r$<P\t`7$<qd` $<x\t`7$<q`$<\t`7$<q)@r%[7`;@r%[qUVW;@rq<@*rr`$`$+`  $q[q Y2q8rqq[e]de`oLdede0dededede ded ed ed ed ed e`_@ft]ܠǠŠŠܭ!qq`;%q 8 r`7%qq\,q_Sq8  r8r878r8drr[ $]]8dededededededeLdedeſ)&@f`7;@r$\p\M6u`@*#r9()$=zoPa()cP a(٠Ҡ)G)qqUVW\Y_oPa(ˠ)Q]ŠϠԠqqqB`7))) J8 T"INTERPOLATION: (ENTER 0 TO END PROGRAM)"F ^"X = ";XS rX0410k |"Y = ";(A)(BX)q z 350 "RUNMENU" 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)(NI))(X(J)X(I)) I% BBTY(J), JG " Y = ";BM x "MORE X ON THIS CURVE (1=YES, 0=NO)"; C C1100 "MORE X ON ANOTHER CURVE (1=YES, 0=NO)"; C "C120 ,"RUN MENU"" "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(  00.5)100B - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTIONH | - RESTART OR END PROGRAM? USER INPUT REQUIRED "MORE DATA? (1=YES,0=NO)"; X X120 "RUNMENU"OY0,M2 h - CALCULATE YEARS FROM YEARS AND MONTHSE iY(12Y0M)12q l - CALCULATE INTEREST RATE PER PERIOD; m - CONVERT FROM PERCENTTO DECIMAL nIIN100 w - CALCULATE FUTURE VALUE BY FORMULA xTP(1I)(NY) "FUTURE VALUE=$";(T1& "FUTURE VALUE OF AN INVESTMENT",] - STATEMENTS 30 TO 100 REQUEST USER INPUTx"INITIAL INVESTMENT";(P2"NOMINAL INTEREST RATE";<IF"NUMBER OF COMPOUNDING PERIODS PER YEAR";PNZ"NUMBER OF YEARS, MONTHS"; d  s'SUBTRACTION,ADDITION,MULTIPLICATION,DIVISION,ALL OF THE ABOVE,ADDITION & SUBTRACTION,MULTIPLICATION & DIVISION* 1100>-:1110>+:1120>*:1130>/:1140>=* 1800>GR DIGITS: VARS X.Y.P.V,RR.S,SS^+ 12/3/81_+ P.D.KILLENIORRECT CORRECT CORRECT"::"PRESS ANY KEY TO CONTINUE"HW5201XNOQHĉ::"YOU ARE FINISHED":12:" GOOD-BYE":Y99ZX30:Y30:3:1120d::22:" PRESS ANY KEY AND TRY AGAIN":nA$x0:I120:0,3919I:I:500325210+P(A$):1800:A1$A1$A$:N1N115XX8?5020VP(A1$)C(H)5210kQPC(H):X10:Y20RIIII1:II:I17:32I,37I:I:32,36:31,35SII15II0T((13)151):1800URK(16384):16368,0:RK1275208>V:22:::"C`8dr8k r$_<\`$<[9]̠͠Ԡ٠ŠҠ}]נ̠ԠŠɠïϠҠӠЮ٠ĮΠϬ`)A$ J I # I1N. A$(I)5 I; C 40S "RUNMENU"NU "ALPHABETIZE":"(TO END PROGRAM ENTER 0)"R("NUMBER OF ITEMS";X-_2Nl<N0270xFA$(25)PI1NZ"ITEM ";I;dA$(I)nIxI1NJ1NIA$A$(J)B$A$(J1)A$B$190A$(J)B$ A$(J14C2DY2) 620 170 Y1C(A)! Y2C(B)) C01 D0F I1(BA)X1.5S S1240 "VALUE OF F(X) AT INTERVAL ";I;" (X=";AIX1;")"; Y 250 YC(AIX1) I2(I2)280 CCY 290 DDY "I ,"INTEGRAL IS ";X13(Y1";R$:R$"Y"ĀO 2 - DEFINE YOUR FUNCTION HERE: FNC(X)=(YOUR FUNCTION IN X)z <"LOWER, UPPER LIMITS OF INTEGRATION"; FA,B P"INCREMENT OF X"; ZX1 _VR(BA)X1 dVR(VR)80 nS1150 x"FIRST. LAST VALUE OF F(X)"; Y1,Y2$ "INTEGRATION: SIMPSON'S RULE"*0T"SELECTION: 1 = KNOWN FORMULA"z" 2 = UNKNOWN FORMULA" " 3 = END PROGRAM"(S-S3ĺ"RUNMENU" /S1Ą"HAVE YOU DEFINED YOUR FUNCTION IN LINE 50 (Y OR N)?   $";(T100.5)100K - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTIONQ - RESTATE OR END PROGRAM? USER INPUT REQUIRED "MORE DATA? (1=YES, 0=NO)"; X X120 "RUN MENU" S"; dY0,M iYY0M12H l - CALCULATE INTEREST RATE PER DEPOSIT,p m - CONVERT FROM PERCENT TO DECIMAL~ nII100N w - CALCULATE FUTURE VALUE BY FORMULA xTR((1I)(NY)1)I - ROUND OFF TO NEAREST CENT, PRINT "FUTURE VALUE =3 "FUTURE VALUE OF REGULAR DEPOSITS (ANNUITY)"9i - STATEMENTS 30 TO 100 REQUEST USER INPUT"AMOUNT OF REGULAR DEPOSITS";(R2"NOMINAL INTEREST RATE";<IF"NUMBER OF DEPOSITS PER YEAR";PN Z"NUMBER OF YEARS, MONTH  )$.`@9()%q`@9()%q_n7]ŠĠΠ̠ٮӠԠŠԠſHa@@p()a(ӠŠ̠էŠǠƠ)GUVWM`@*#r9@*#r%a()GYca@*rGS()&@`7;@r$na@ xa@F0R@`@*#r9()$TTh]נŠΠϠˮҠӠԠĠϠϠϠƠŠӠӬҠƠŠӠϮa@Jca@GS()&@q`7;@r$@p@*#r`@:()@:(m_]]]Ӻ]Ԡ٠]ŠҠî]],dq]ŠӠŠ͠ATE"; F ZZ1WF! I' 5 Z(ZT)T "SYSTEM RELIABILITY = ";ZZ b 40r "RUNMENU" St "SYSTEM RELIABILITY"!A"(TO END PROGRAM ENTER 0)"a("OPERATING TIME IN HOURS";h2Tu<T0230F"NUMBER OF COMPONENTS";PNZZ0dI1Nn"COMPONENT ";Ix" AVERAGE WEAROUT TIME";W " AVERAGE FAILURE R ,S180 6S2100( @"RUNMENU"  R0 I1N P0& J110/ A,BO PPB(C(SAT)C(TSA))V J\ h RRPSt TT2S{ I "INTEGRAL = ";R  "CHANGE DATA AND RECOMPUTE?" "(0=NO,1=NEW INTEGRATION LIMITS, 2=NEW NO. OF INTERVALS)"; "S7,.13168864,.6305368,.11819453W < .74633191,.10193012,.83911697,.083276742,.91223443 F .062672048,.96397183,.04060143,.9931286,.017614007 P"INTEGRATION LIMITS (LOWER,UPPER)"; ZX,Y d"NUMBER OF INTERVALS"; nN xS(YX)N2 TXS*) "INTEGRATION: GAUSSIAN QUADRATURE"/~"HAVE YOU DEFINED YOUR FUNCTION IN LINE 30 (Y OR N)?";R$:R$"Y"Ā - ENTER FUNCTION HEE (DEFFNC(X)="FUNCTION")( .076526521,.15275339,.22778585,.14917299,.37370609 2 .14209611,.51086  AREST CENT,PRINT< "REGULAR DEPOSITS = $";(R100.5)100t - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTIONz - RESTRT OR END PROGAM? USER INPUT REQUIRED "MORE DATA? (1=YES, 0=NO)"; X X120 "RUNMENU" OULATE YEARS FROM YEARS AND MONTHS4 iY(12Y0M)12a l - CALCULATE INTEREST RATE PER DEPOSIT; m - CONVERT FROM PERCENT TO DECIMAL nIIN100 w - CALCULATE AMOUNT OF REGULAR DEPOSIT BY FORMULA xRTI((I1)(NY)1) - ROUND OFF TO NE "REGULAR DEPOSITS"O - STATEMENTS 30 TO 100 REQUEST USER INPUTr"TOTAL VALUE AFFTER Y YEARS";y(T2"NOMINAL INTEREST RATE";<IF"NUMBER OF DEPOSITS PER YEAR";PNZ"NUMBER OF YEARS, MONTHS";dY0,M! h - CALC  ]͠ӠӠ ]ԠӠӠ ]͠ŠҮ ] ]͠Ӻ ]ˠ٬ˠɠ ] ]ҮΠ )FE(ӡ)_> ]ɠԠԠԡ*UVW cY4a(ɠԠԠԡ)>>cS(ԠϠ٠ο)&@`;@r%`@*#r9()%Q_d ] ] ]̺ 5qqbE()Fa@FR@TTa@F*a@`@9()$bb_bba@F$a@`@9()$bb_bb a@Fa@a@(a(ɠננ)E@*ra(Ġ)E@*rG-DS()&@`@*;@rr9()%@p@*#;@rrkNca(ԠĠŠԠҠҠ)a@*rE(ſ)GR@@p@*#r`@:()@:()$NXa@ ba@Fl]ŠҠĮvT'a@F6@p@*#r`@:()@:()$`@9()$ ,]ɠΧԠנԠ̠ԠӬˠF&cca(̠ԬɠŠЮԠ̠)a(ՠǠƿ)G0@p()R@Brd:ca(ŠŠΠԠ)a(Ƞ1S(1G)(Y11)C ," =";(S1100.5)100L 6260\ @"RUNMENU"(I)) TTL VV(I1)L% IE A6(2V(N1)T)(N)(N1)R G(A)1 "AVERAGE GROWTH RATE = "(G10000.5)100;"%" S(TNA(N1)2) "(ENTER 0 TO END PROGRAM)" "PROJECTED SALES FOR YEAR "; Y1 Y10320 "S]0 "AVERAGE GROWTH RATE, FUTURE PROJECTIONS"6AS(20)m("NUMBER OF YEARS FIGURES ESTABLISHED";t2N<I1NFI1100P"FIGURE: YEAR "I;Z110d" YEAR ";I;nS(I)xIT(S(1))V0I2N L(S P"NUMBER OF INTERVALS";! ZN) dI07 nD(BA)ND xJABDR IIC(J)Y Ju I(I(C(A)C(B))2)D "INTEGRAL = ";I 50 "RUNMENU"I& "INTEGRATION: TRAPEZOIDAL RULE",{"HAVE YOU DEFINED YOUR FUNCTION IN LINE 30 (Y OR N)?";R$:R$"Y"Ā DEFINE FUNCTION HERE("(ENTER 0,0 TO END PROGRAM)"2"INTEGRATION LIMITS (LOWER, UPPER)";<A,BFAB190  - ROUND OFF TO NEAREST CENT, PRINTV "AMOUNT OF EACH WITHDRAWAL =$";(R100.5)100 - PRINT BLANK LINE TO SEPARATE QUESTION FROM DATA - RESTART OR END PROGRAM? "MORE DATA? (1=YES, 0=NO)"; X X120 "RUNMENU" LY0,M2 h - CALCULATE YEARS FROM YEARS AND MONTHSE iY(12Y0M)12u l - CALCULATE INTEREST RATE PER WITHDRAWAL; m - CONVERT FROM PERCENT TO DECIMAL nIIN100 w - CALCULATE REGULAR WITHDRAWAL BY FORMULA xRP(I((1I)(NY)1)I)" / "REGULAR WITHDRAWALS FROM AN INVESTMENT"5e - STATEMENTS 30 TO 100 REQUEST USER INPUT"INITIAL INVESTMENT";(P2"NOMINAL INTEREST RATE";<IF"NUMBER OF WITHDRAWALS PER YEAR";PNZ"NUMBER OF YEARS, MONTHS"; d  $dg$ca(Ӻ)ca(ՠ̠ˠƠΠ̬Ġɠ)a(٠ϠӠԠ̠ՠ)U.a(ǠƮɠ̠ϠӠ٠)a(ՠӠƠӠԠ)r8a(̬ϠȠՠĠ)a(ӠҠϮԠƤŠԠŠҢӠҠ͠ӠϠӮ]a(LJҠŠ٠Ԡ)a(ŠĠΠҠϠ٠)a(š)moa(̠ǠŠ)ca(ŠՠҠĠſ)GR@`;@r%`@*#r9()Ŭ)@p(ŠŬ)@p()@p(ΠŬ̸)a@v]ŠŠӠŠԠϠԠŠ٠ĠϠԠǠҠΠŠŠŠήźq]ҠΠԠĤĠŬҢŠ] ] ]ĺ ]a(ΠɬϬ)^KM6N@"FrC@"FrC@"FrC@"FrC@"rC@"rC@" rC@"rC@"(rf@p(Ġ0" T2(((F2Y)F1)100.5)1006 "TAXABLE = $"PO "INCOME TAX = $";T1a "FICA = $"T2g  "MORE DATA (1=YES,0=NO)"; S S1130 "RUNMENU" F! T1T1(GF1(X1))F1(X2)100* "330R ,T1T1(F1(X1)F1(X1))F1(X2)100Y 6Iy ;T1T1(GF1(X1))F1(X)100 @T1T1(GF1(X1))F1(X)100 JT1((T1N)100.5)100 TT20 ^YF2400 hYPF2360 rT2((PF1)100.5)100 |40I 5 "MARITAL STATUS (1=SINGLE,2=MARRIED)";< S_ "WITHHOLDING TAX EXEMPTIONS";f Wz "TAXABLE PAY"; P "YTD TAXABLE PAY"; Y GPNW1W T10 I27 X2I14(S1)1 GF1(X1)330 GF1(X1)300" "FEDERAL WITHHOLDING TAXES"(i 16,1300,20,3500,23,6000,21,9500,26,12500,30,14500,36,18000( 17,2500,20,5000,17,9000,25,13750,28,18000,32,22500,36,260002F1.0585<F216500FW1750PN12ZF1(28)dI128nF1(I) x 50 L "DERIVATIVE"6 - ENTER DEFFNC(X) HERE\("(ENTER X=99999 TO END PROGRAM)"w2"DERIVATIVE AT X=";X1FX199999160PD.0001" IS ";(C(X1D)C(X1))D50"RUNMENU" IS ";2DD150  .5)100? - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTIONE y - RESTART OR END PROGRAM? USER INPUT REQUIRED "MORE DATA?(1=YES, 0=NO)"; X X120 "RUNMENU" TD MONTHS UY(12Y0M)129 Z"NOMINAL INTEREST RATE";@ dIl l - CALCULATE INTEREST RATE PER PERIOD; m - CONVERT FROM % TO DECIMAL nIIN100 xPT(1I)(NY) - ROUND OFF TO NEAREST CENT, PRINT "INITIAL INVESTMENT = $";(P100Ⱦ "INITIAL INVESTMENT"!Q - STATEMENTS 30 TO 100 REQUEST USER INPUTs"TOTAL VALUE AFTER Y YEARS";z(T2"NUMBER OF COMPOUNDING PERIODS PER YEAR";<NF"NUMBER OF YEARS, MONTHS";PY0,M T - CALCULATE YEARS FROM YEARS AN   a@F a()_d"]]͠"]]]٬Ӡ]ӠŠŠƠ" ]٠ŠŮ#]ŠҠϠӠſ)XWa(ŠŧҠŠϠԠԠ)a(ŠĠРϠנҠƠϠŠ)4XS(ԠŠǠԺ)&@`@:()$d `a@F ja() ta@F*~a(ӠԠŠΠŠ)bb a@F a()٬Š٧)a(ΧŠӠԩ)WBa(ƠɠϠԠӠԠҠ̠Ӭ)a(ɠ̠ˠՠנӠϠ)6La(ԠŠɠ̠נԠҠ)a(Ӯ)cQVa(ϠՠԠŠϠԠǬ)a(ŠՠԠŠ METHOD ";M100;"%" v> "YEAR","DEPREC","BALANCE"[ R1((RMY)100.5)100f RRR1r I,R1,R| NN1 I  "MORE DATA? (1=YES,0=NO)"; X X120 "RUNMENU" N66 RD  I1Y. N55650; I1N66A I &I1Q 0N8~ :" DECLINING BALANCE TAX DEPRECIATION" D" PRICE $";V N" SALVAGE VALUE $";S X" NET DEPRECIATED $";D b" LIFE ";Y;" YEARS" l" LIFE ";Y;" YEARS" 6= @"YEAR","DEPREC","BALANCE"Y JR2D(YI1)((Y1)Y)o TR(R100.5)100{ ^R1R1R hBDR1 rB0410 |R1R1B RRB B0 I,R,B NN1 I 700 "METHOD IN %"; M MM1002450 X1120 R10% N66+ 1 < I1YJ N55330W I1N66] e I1m N7 " SUM OF DIGITS TAX DEPRECIATION" " PRICE $";V " SALVAGE VALUE $2;S "" NET DEPRECIATED $2;V-S ," " "TAX DEPRECIATION SCHEDULE"(?"PURCHASE PRICE";F(V\2V(V100.5)100r<"SALVAGE VALUE";yFSPS(S100.5)100ZDVSd"LIFE IN YEARS";nYx"ENTER 1 FOR SUM OF DIGITS, 2 FOR DECLINING BALANCE";X Xx"MORE DATA (1=YES,0=NO)";# X/ X120? "RUNMENU" LA% "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   M INVESTMENT = $";(100P.5)100Y - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION_ - RESTART OR END PROGRAM? USER INPUT REQUIRED "MORE DATA (1=YES,0=NO)"; X X120 "RUN MENU" R0,M1 h - CALCULATE YEARS FROM YEARS AND MONTHSD iY(12Y0M)12l m - CONVERT FROM PERCENT TO DECIMALx nII100 w - CALCULATE MINIMUM INVESTMENT BY FORMULA xPRNI(11((1IN)(NY))) - ROUND OFF TO NEAREST CENT, PRINT! "MINIMU+ "MINIMUM INVESTMENT FOR WITHDRAWALS"1a - STATEMENTS 30 TO 100 REQUEST USER INPUT"AMOUNT OF WITHDRAWALS";(R2"NOMINAL INTEREST RATE";<IF"NUMBER OF WITHDRAWALS PER YEAR";PNZ"NUMBER OF YEARS, MONTHS"; dY  I1FF1A$I! " (N120)1020 1000! X0$+ X0$;A A3N1(N110)10O A30760Y "-";c FFA3m FFA3w 1000 740 FFN1 FFN1 1000 X0$ X0$;" ";  ,"*****VOID*****" 570 "RUN MENU"  FF1ı N1(A1) N10490( A15001 510: 640K "DOLLARS ";X A1A1N1h A1.01600u A1550 " AND "; &A1A1100 0(A1.5);" CENTS" : D N X b l v120 N121730 FF(N120)1020 FF 36,60:"$";A" 36,60:"$";A( "> ,36,30:F$;" ";L$D 6R @A0770[ JA1Al TN1(A11E3){ ^N199770 hN10390 r640 |"THOUSAND "; A1A1N11E3 N1(A1100) N10440 640 "HUMDRED "; A1A1N1100F$"END"790) "LAST NAME OF PAYEE";1 L$I "AMOUNT OF CHECK";P Am "READY TO PRINT CHECK";u X$ D1(D10000) D2((DD110000)100) D3(D(D1100D2)100) FF27D1 1000 X0$ 36,60:X0$;" ";D2;" ";D3SEVENTY","EIGHTY","NINETY"Y F "JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY" P "AUGUST","SUPTEMBER","OCTOBER","NOVEMBER","DECEMBER" Z"DATE (MMDDYY)"; dD n"-(TO END PROGRAM ENTER 'END')--" x"FIRST NAME OF PAYEE"; F$ # "CHECK WRITER"` "ONE","TWO","THREE","FOUR","FIVE","SIX","SEVEN","EIGHT","NINE"( "TEN","ELEVEN","TWELVE","THIRTEEN","FOURTEEN","FIFTEEN","SIXTEEN"2"SEVENTEEN","EIGHTEEN","NINETEEN","TWENTY","THIRTY","FORTY" <"FIFTY","SIXTY","A1200 &"RUNMENU" 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   NTEREST RATE, PRINTI Z"ANNUAL INTEREST RATE =";((TP)(1Y)1)100;"%" c - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION d m - RESTART OR END PROGRAM? n"MORE DATA? (1=YES, 0=NO)"; xX X120 "RUNMENU" ,/ "EFFECTIVE INTEREST RATE ON INVESTMENTS"5a - STATEMENTS 30-80 REQUEST USER INPUT|"INITIAL INVESTMENT";(P2"TOTAL VALUE AFTER Y YEARS";<TF"NUMBER OF YEARS, MONTHS";PY1,M1:YY1M112 Y - CALCULATE EFFECTIVE I (2)(BA) X1(R(X))) X10400: A1X10270A I` "NO CHANGE OF SIGN FOUND"h 60p BX~ D(2A1)A "D(2A1)B ,Y(D(1)D(3))2 6Y1(R(Y)) @Y10400 JD(2Y1)Y T(D(1)D(3))(D(1)(D(3)))5E6400 ^300UPPER LIMIT)"; FA,B% PAB1202 ZA0430] d"--INTERVAL LIMITS CAN'T BE EQUAL!--"e n60r xAB150 "--LOWER LIMIT MUST BE ENTERED FIRST!--" 60 A1(R(A)) B1(R(B)) A1B10360 A1B10280 I11000 XAZ3 "ROOTS OF POLYNOMIALS: HALF-INTERVAL SEARCH"9"HAVE YOU DEFINED YOUR FUNCTION IN LINE 30 (Y OR N)?";R$:R$"Y"Ā - DEFINE FUNCTION: DEF FNR(X)="FUNCTION"(D(3)2"(TO END SEARCH ENTER 0,0)" <"INTERVAL (LOWER,RESTART OR END PROGRAM?H"CHANGE DATA AND RECOMPUTE? (1=YES, 0=NO)";O ZU*a4Z120qH"RUNMENU"AWALS ARE ENTERED AS A NEGATIVE NUMBERTINGSI30KK1Y - TEAR NUMBER PRINTED WITH FIRST POSTING IN EACH YEAR ONLY_iB0B2 - NO MORE LINES TO PRINT IN LAST YEARJ0J1N1Y780J1 - START PRINTING?J0X770KK1J0  - P2P1J1N640bI2R(I2),lB2R(B2)8vP2P21X - TEAR TO START PRINTING?fJ0X710 - TIME TO PRINT A LINE?J1NL1L2710L1L11R(B2),R(I3),R(I2) - INTEREST POSTED, REINITIALIZE INTEREST ACCUM. BETWEEN POS0B2B0(1IN)I9 - I1=AMOUNT INTEREST WITH EACH COMPOUNDING PERIODV:I1B2B0C - I3=AMOUNT INTEREST ACCUMULATED BETWEEN POSTINGDI3I3I1M - I2=TOTAL INTEREST ACCUMULATED TO DATENI2I2I1W - ROUND AT INTEREST POSTING TIMEX L11N21P21*J11NW - DEPOSIT/WITHDRAW ANY MORE THIS YEAR?fN2N1560 - TIME TO MAKE DEP/WTHDRW?N2N1J1N560 - CALCULATE NEW BALANCEB0B0R% - COUNT DEPOSITS/WTHDRWLS MAKE PER YEAR&N2N21: "REGULAR DEPST./WITHDRWL $";R;" ";N1;" TIMES PER YR."p  - K COUNTS THE NUMBER OF PRINTED LINES PER PAGEz KK1 " EFFECTIVE INTEREST RATE ";R(100((1IN)N1));"% PER YEAR"  "YEAR ";J0  "BALANCE","INTRST.","ACC.INT"SPACE TO NEXT PAGE, PRINT HEADINS (ASSUMED 24 LINES PER PAGE)J TK1K24P ^X hK1` rK6 |" EARNED INTEREST TABLE" " PRINC. $";P;" AT ";I100;"% NOMIN. FOR ";Y;" YEARS"  - SKIP DEP/WITHDRWL HEADING IF THERE ARE NONE N10430Y4 - START PRINTING AT THE BEGINNING OF A YEAR? X(X)_ - INITIATE RUNNING TOTALSh B0Pq I10z I20 I30 "K24 ,P14 6J01(Y)1 ? - START PRINTING? @J0X480 I - TEST FOR END OF PAGE JK22450= S - R N3605 - PRINT AT EACH DEPOSIT/WITHDRAWAL? L2N1H 200x "NUMBER OF COMPOUNDING PEROIDS PER YEAR"; N N10 - PRINT FOUR TIMES PER YEAR L24 "START WITH WHAT YEAR"; X "END PRINTING WITH WHAT YEAR"; MBER OF DEPOSITS/WITHDRAWALS PER YEAR";/ ZN1a c - DON'T ASK FOR AMOUNT IF FREQUENCY IS ZEROo dN10160 l - DEPOSITS ARE ENTERED AS A POSITIVE NUMBER m - WITHDRAWALS ARE ENTERED AS A NEGATIVE NUMBER n"AMOUNT OF DEPOSIT/WITHDRAWAL"; xr  - ROUND OFF FUNCTION7R(X)(X100.5)100T "EARNED INTEREST TABLE"Z - STATEMENTS 30 TO 230 REQUEST USER INPUT"PRINCIPLE";(P2"NOMINAL INTEREST RATE";<IE - CONVERT PERCENT TO DECIMALFII100' P"NU     1950 I!B(J)A(I,VC1)(J9ZA(1,VC1)A:["FUNCTION = ";Z(1)c:nI1V"X(";I;")=";B(I)I:" HIT ANY KEY ";A$"RUN MENU" AŠŮp]z]̠͠]Ϡӿ](]ԠŠҠî ]ҠŠӠҠϬ#*]̠ŠŠŠ!4]ԠҠԮƠŠϠ!>]ӠŠ̠٬"H]Š٠ԠŠנ#R]ĠΠϠ \]Ԡ͠ҠӬ f]ŠŠF RECIPE UNITS CALLED FOR";" R2 PPCUFR9 IT "NUMBER OF SERVINGS";[ Sa "TOTAL COST FOR 1 RECIPE = $";(P100.5)100 "CHANGE NUMBER OF SERVINGS (1=YES,0=NO)"; N N1170 "RUNMENU" " "RECIPE COST"8"NUMBER OF INGREDIENTS";?(NJ2I1Nc<"INGREDIENT ";I;":"F" COST FOR BULK UNIT IN STORE";PCZ" NUMBER OF UNITS IN BULK";dUn" NUMBER OF RECIPE UNITS PER BULK UNIT";xF " NUMBER O PN ZI1N dA,B5 nZZA(IR)B(IR)< xIO "F(";R;")=";ZU [ c Z0k 50{ "RUNMENU" )} "TRIG POLYNOMIAL"m"HAVE YOU ENTERED THE NECESSARY DATA ON LINE 30 (Y OR N)?";R$:R$"Y"Ās - ENTER NUMBER OF PAIRS OF TERMS AND COEFFICIENTS HERE("(ENTER ANGLE=99999 TO END PROGRAM)"2"ANGLE";<R FR99999180  OR END PROGRAM?/ "MORE DATA (1=YES, 0=NO)";6 XB X120S "RUN MENU" F LATING FOR THIS ITEM?% nY0160V w - CALCULATE DEPRECIATION AMOUNT BY FORMULAl xDPI(1I)(Y1) - ROUND OFF TO NEAREST CENT, PRINT "DEPRECIATION = $";(D100.5)100 - RETURN FOR NEXT YEAR NUMBER 90 - RESTART  "DEPRECIATION RATE" 7"ORIGINAL PRICE";>(PS2"RESALE PRICE";Z<ThF"YEARS";oPYZD100(1(TP)(1Y))d"DEPRECIATION RATE = ";(1000D.5)1000;"%"x"MORE DATA (1=YES, 0=NO)";XX120"RUN MENU"  Und$ed%ed&ed'e d(ed)ed*ed+ed,eUsd-ed.ed/ed0ed1ed2ed3ed4ed5eUxd6ed7ehd8ed9ed:ed;ed<ed=ed>eU_d eHd ed ed ed ede#dededeUddededededededededeUidededededeJd ed!ed"ed#ev ]Ӡ]Kc (M6*2a(ӠΠ)1<ca(ŠɠĠ͠)F] P]ŠŠĠUZdededededeHdedededeh   ^40 h"RUNMENU" MN7))7.5) N0180( "SATURDAY"1 340> N1210L "SUNDAY"U 340b N2240p "MONDAY"y 340 N3270 "TUESDAY" 340 N4300 "WEDNESDAY" "340 ,N5330 6"THURSDAY" @340 J"FRIDAY" T "DAY OF THE WEEK"B"(ENTER 0,0,0 TO END PROGRAM)"[("MONTH, DAY, YEAR";f2M,D,Yt<M0100FD0100PY0100Z360dM2130nMM12xYY1ND2M(.6(M1))Y(Y4)(Y100)(Y400)2 N((N7( JIJ380 TYA(I,J)( ^K1R1C hA(I,K)A(I,K)YA(J,K)J rKQ |IX J^ i I1R "X";I;" = ";(A(I,R1)1000.5)1000 I ::40" CONSTANT "; A(J,I)# I* J5 J1R@ IJRS A(I,J)0230Z Iu "NO UNIQUE SOLUTION "~ 440 K1R1 XA(J,K) A(J,K)A(I,K) A(I,K)X K Y1A(J,J) "K1R1 ,A(J,K)YA(J,K) 6K @I1R "SIMULTANEOUS EQUATIONS"%2A(9,10)j("ENTER "0" TO END PROGRAM":"NUMBER OF EQUATIONS";q2R7R0ĺ"RUN MENU"<"COEFFICIENT MATRIX:"FJ1RP"EQUATION ";JZI1R1dIR1130n" COEFFICIENT ";I;x140   OR END PROGRAM?/ "MORE DATA (1=YES, 0=NO)";6 XB X120R "RUNMENU" ULCULATING FOR THIS ITEM?% nY0160V w - CALCULATE DEPRECIATION AMOUNT BY FORMULAl xDPI(1I)(Y1) - ROUND OFF TO NEAREST CENT, PRINT "DEPRECIATION = $";(D100.5)100 - RETURN FOR NEXT YEAR NUMBER 90 - RESTART T "DEPRECIATION AMOUNT""9"ORIGINAL PRICE";@(PZ2"DEPRECIATION RATE";a<IE- CONVERT FROM PERCENT TO DECIMALFII100P"--(ENTER YEAR=0 WHEN NO MORE AMOUNTS DESIRED FOR THIS ITEM)--"Z"YEAR";dY m - THROUGH CA   VR1FF1 GH VR% & $0 ^ 0,31,59,90,120,151,181,212,243,273,304,3349 hFFMB m500I rAt |AAY365(Y4)D1(Y100)(Y400) (Y4)Y4410 450 Y400(Y400)430 Y100(Y100)440 M2450 AA1  "RUNMENU"  FF1ıNO)"; X X120! 460X M260,280,260,340,260,340,260,260,340,260,340,260k "UNREAL DATE"q  D31240 350 Y4(Y4)290 "Y400(Y400)320 ,Y100(Y100)310 6K28240 @D29240 J350 TD30240' "DAYS BETWEEN TWO DATES"%8"FIRST DATE";F(M1,D1,Y1Z2"SECOND DATE";h<M2,D2,Y2qFMM1zPDD1ZYY1d230nNAxMM2DD2YY2230NAN"DIFFERENCE = "N;" DAYS" "MORE DATA (1=YES,0= A(P,I)A(P,I)Z I& I1C23 IP820@ ZA(I,R)O J1VC1j A(I,J)A(I,J)ZA(P,J)q *Jx 4I >440 H"INFEASIBLE" R1030 \"UNBOUNDED" f1030 pJ1V zB(J)0920 B(J)0 960 I2C1A(I,J) &M1 0440 :P1$ DI2C17 NA(I,R)0640O XZA(I,CV1)A(I,R)\ bP1630z lZA(P,CV1)A(P,R)640 vPI I P1860 I1VC B(I)1690 A(P,I)1700 I B(I)1 B(R)0 ZA(P,R) I1VC1rA(I,VI1)1430$ |B(VI1)11 J1CVN A(C2,J)A(C2,J)A(I,J)U J_ MC2f In P1v R1 I2CV A(M,I)A(M,P)490 PI A(M,I)A(M,R)510 RI I A(M,R)0570 M1880 A(M,P).0001840TANT "; A(I,V2)- A(I,CV1)A(I,V2)< A(I,V2)0I I2240a A(I,VI1)A(I,V1)p A(I,V1)0w I} "FUNCTION:" I1V " COEFFICIENT ";I; "A(1,I) ,I 6 @M1 JI1V TB(I)1 ^I hI2C1 A(10,14),B(13)* ("NUMBER OF VARIABLES";1 2VO <"NUMBER OF CONSTRAINTS";V FCn P"MATRIX ELEMENTS:"{ ZI2C1 d"CONSTRAINT ";I1 nJ1V x" COEFFICIENT ";J; A(I,J) J " RELATION (1 OR -1)"; A(I,V1) " CONS :# "LINEAR PROGRAMMING"I::" FOR MINIMIZATION PROBLEM ":"( FOR MAXIMIZATION, MULTIPLY OBJECTIVE":"FUNCTION COEFF. BY -1)"::" NOTE: RELATION ":"-1 : LESS THAN OR EQUAL TO ":" 1 : GREATER THAN OR EQUAL TO "::   (1=YES, 0=NO)!; X" X1203 "RUN MENU"LVAGE VALUE BY FORMULA, ROUND OFF, PRINT.p m - DEPRECIATION RATE CONVERTED TO DECIMAL FOR USE IN CALCULATIONS n"VALUE = $";(100P(1I100)Y.5)100 x - RETURN FOR NEXT YEAR NUMBER 80 - RESTART OR END PROGRAM? "MORE DATA 4 "SALVAGE VALUE"3"ORIGINAL PRICE";:(PT2"DEPRECIATION RATE";[<IF"--(ENTER YEARS=0 WHEN NO MORE VALUES DESIRED FOR THIS ITEM)--"P"YEARS";ZYc - CALCULATE ANOTHER SALVAGE VALUE?dY0140) l - CALCULATE SA  GRAMS"5200I;" TONS = ";R;" KILOGRAMS"9520JR(I32)59vI;" DEGREES FAHRENHEIT = "R;" CELSIUS"|100"RUNMENU" N";R;" LITERS" ^5206 hI;" QUARTS = ";R;" LITERS"? r520` |I;" GALLONS = ";R;" LITERS"i 520 I;" BUSHELS = ";R;" LITERS" 520 I;" PECKS = ";R;" LITERS" 520 I;" OUNCES = ";R;" GRAMS" 520I;" POUNDS = ";R;" KILOTERS" 520- I;" YARDS = ";R;" METERS"6 520Y I;" MILES = ";R;" KILOMETERS"b 520 I;" TSP. = ";R;" CUBIC CENTIMETERS" "520 ,I;" TBSP. = ";R;" CUBIC CENTIMETERS" 6520 @I;" CUPS = ";R;" LITERS" J520 TI;" PINTS = 40 N17100. "VALUE TO BE CONVERTED";5 IB RIC(N) N180,200,220,240,260,280,300,320,340,360,380,400,420,440,460,480,500 I;" INCHES = ";R;" CENTIMETERS" 520 I;" FEET = ";R;" CENTIMETERS" 520 I;" FEET = ";R;" ME(N117 2C(N) <Nq F 2.540,30.480,.3048,.914 4,1.609,4.929,14.788,.2366,. 4732 P .9463,3.785,35.24,8.809,28.3495,.4536,907.2,.6214 Z"(TO END PROGRAM ENTER 0)" d"WHICH CONVERSION DO YOU NEED"; nN xN05 LITERS":"9. PINTS TO LITERS":"10. QUARTS TO LITERS":"11. GALLONS TO LITERS":"12. BUSHELS TO LITERS" "13. PECKS TO LITERS":"14. OUNCES TO GRAMS":"15. POUNDS TO KILOGRAMS":"16. TONS TO KILOGRAMS":"17. FAHRENHEIT TO CELCIUS"  C(17)  :"ANGLO TO METRIC"::"1. INCHES TO CENTIMETERS":"2. FEET TO CENTIMETERS":"3. FEET TO METERS":"4. YARDS TO METERS":"5. MILES TO KILOMETERS" "6. TEASPOONS TO CUBIC CENTIMETERS"i "7. TABLESPOONS TO CUBIC CENTIMETERS":"8. CUPS TO2350 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 "RUNMENU" 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 MATRI  120 "RUNMENU"+ V"DISCOUNT = $";D1 T dD1TDN360( n"DISCOUNT = $";D1F w - CALCULATE COST, PRINT_ x" COST = $";TD1 - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION - RESTART OR END PROGRAM? USER INPUT REQUIRED "MORE DATA (1=YES, 0=NO)"; X X-" "DISCOUNT COMMERCIAL PAPER"(W - STATEMENTS 30 TO 90 REQUEST USER INPUTl"FUTURE VALUE";s(T2"DISCOUNT RATE";<DE - CONVERT PERCENT TO DECIMALFDD100P"DAYS TO MATURITY";ZN c - CLACULATE DISOUNT, PRINT  ]"`.?r$6P,a(ŠĠԠŠ)a(̠Š͠ӠĮ) 6a()}d?ed@e`M`.?r$]]ƠŬĠ]2o a(ǠԠϠŠĩ)a(Ġìİ)]ŠԠŠq.?6~?r]ð_6]]ϠĠҠΧԠINAL INTEREST RATE = ";I2;"%"# C "MORE DATA: (1=YES,0=NO)";J XV X120f "RUNMENU",h- "NOMINAL INTEREST RATE ON INVESTMENTS"3E"PRINCIPAL";L(P`2"TOTAL VALUE";g<TF"NUMBER OF YEARS, MONTHS";PY0,MTYY0M12Z"NUMBER OF COMPOUNDING PERIODS PER YEAR";dNnI2N((TP)(1(NY))1)100 x"NOM  B(K,J) TK ^S;" ";! hJ' r. |IW :"HIT RETURN TO RETURN TO MENU";R$g "RUNMENU"E1R1 "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)h "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 PAL = $";(P100.5)100P - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTIONV v - RESTART OR END PROGRAM? "MORE DATA? (1=YES, 0=NO)"; X X120 "RUN MENU" "Z"NUMBER OF PAYMENTS PER YEAR";( dNZ l - CALCULATE AMOUNT OF PRINCIPAL BY FORMULA; m - INTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCULATIONS nPRN(11((I100)N1)(NY))(I100) w - ROUND OFF TO NEAREST CENT, PRINT x"PRINCI "PRINCIPAL ON A LOAN""R - STATEMENTS 30 TO 100 REQUEST USER INPUTj"REGULAR PAYMENT";q(R2"TERM IN YEAR, MONTHS";<Y0,M@ - CALCULATE YEARS FROM YEARS AND MONTHSAY(12Y0M)12F"ANNUAL INTEREST RATE";PI!  ̠Š͍ō΍̠ԬӬԠũԠũˠԬŠŬ! A LOAN","ANNUAL INTEREST RATE ON LOAN","MORT AMORT TABLE"? CEST RATE","EARNED INTEREST TABLE", "DEPRECIATION RATE" "DEPRECIATION AMOUNT","SALVAGE VALUE","DISCOUNT COMMERCIAL PAPER","PRINCIPAL ON A LOAN","REGULAR PAYMENT ON A LOAN"9 "LAST PAYMENT ON A LOAN","REMAINING BALANCE ON LOAN","TERM OF d nA1ćA$:150 xI1A( A$/ IC :CD$;"RUN";A$ "FUTURE VALUE OF AN INVESTMENT","ANNUITY","REGULAR DEPOSITS","REGULAR WITHDRAWALS","INITIAL INVESTMENT"A "MIN INVEST FOR WITHDRAWALS","NOMINAL INTEREST RATE ","EFFECTIVE INTER@CD$"": - CONTROL 'D'5CD$;"NOMON C,I,O";e "PROGRAMS IN THE BUSINESS CATEGORY:"kwI120A$(I10ĺ" ";2I9ĺ" ";<I;". ";A$FIP:"WHICH PROGRAM WOULD YOU LIKE TO USE?";AZA(A)A1A205 !!!! 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 :"HIT RETURN TO RETURN TO MENU";R$ "RUNMENU"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! !! ,1)(NY))3 w - ROUND OFF TO NEAREST CENT, PRINT^ x"REGULAR PAYMENT = $";(R100.5)100 - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION - RESTART OR END PROGRAM "MORE DATA? (1=YES, 0=NO)"; X X120 "RUNMENU""PRINCIPAL"; <P0 F"ANNUAL INTEREST RATE";7 PIZ Z"NUMBER OF PAYMENTS PER YEAR"a dN l - CALCULATE AMOUNT OF REGULAR PAYMENT BY FORMULA m - INTEREST CONVERTED FROM PERCENT TO DECIMAN FOR CALCULATIONS nR((I100)PN)(11((I100)N" "REGULAR PAYMENT ON A LOAN"\ - ROUND OFF TO NEARES T CENT, PRINT b - STATEMENTS 30 TO 100 REQUEST USER INPUT"TERM IN YEARS, MONTHS";(Y0,M,- CALCULATE YEARS FROM YEARS AND MONTHS-Y(12Y0M)12 2!! ! ! ӠԠŠΠŠҍǍō"RIX INVERSION"UIX INVERSION"z  "QUADRATIC FORMULA","REAL ROOTS:NEWTON","REAL ROOTS:HALF-INTERVAL SEARCH","TRIG POLYNOMIAL","SIMULTANEOUS EQUATIONS" "LINEAR PROGRAMMING","SIMPLE MATRIX OPERATIONS","MATRIX MULTIPLICATION","MATRIX INVERSION""NS","MATRIX MULTIPLICATION","MATLE"p "VECTOR OPERATIONS","COORDINATE CONVERSION","COORDINATE PLOT","ANGLE CONVERSION","POLAR EQUATION PLOT" "FUNCTION PLOT","LINEAR INTERPOLATION","CURVILINEAR INTERPOLATION","SIMPSON'S RULE","GAUSSIAN QUADRATURE","TRAPEZOIDAL RULE","DERIVATIVE"";I;". ";A$ IC :"WHICH PROGRAM WOULD YOU LIKE TO USE";:A] A(A)A1A27170c i t I1A| A$ I :CD$;"RUN";A$ "GREATEST COMMON DENOMINATOR","PRIME FACTORS","AREA OF POLYGON","VECTOR ANALYSIS","PARTS OF TRIANGCD$"": CONTROL 'D'4CD$;"NOMON C,I,O":Z "MATHEMATICS CATEGORY PROGRAMS:"`lI120t(A$2I10ĺ" ";:70<" ";FI;". ";A$PIZ:"HIT ANY KEY TO CONTINUE THE LISTING";:A$:I2126A$ " """""7IP1904 "MORE THAN 9.9 * 10^37 PERMUTATIONS"= 280G PPIN IY J2Dc CCJj J P;" PERMUTATIONS" PC;" COMBINATIONS"  40 "RUNMENU" & "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.9E3" "B0)100.5)100 5 - RESTART OR END PROGRAM?V "MORE DATA? (1=YES, 0=NO)";] Xi X120y "RUNMENU"LLIAREST CENT( I1((B0IN)100.5)100] - CALCULATE AMOUNT AMORTIZED WITH EACH PAYMENTh ARI1 - BALANCE REMAINING DECREASES WITH EACH PAYMENT B0B0A J1 - CALCULATE LAST PAYMENT, ROUND OFF, PRINT "LAST PAYMENT =$";((RAL INTEREST RATE"; dIH m - CONVERT ITERST FROM PERCENT TO DECIMALT nII100x x"NUMBER OF PAYMENTS PER YEAR"; N B0P - COMPUTE ALL PAYMENTS, BALANCES THROUGH LAST PAYMENT USING R J11NY - ROUND OFF INTEREST PAID TO NE{ "LAST PAYMENT ON A LOAN$T - STATEMENTS 30 TO 130 REQUEST USER INPUTl"REGULAR PAYMENT";s(R2"PRINCIPAL";<PF"TERM IN YEARS, MONTHS";PY0,MT - CALCULATE YEARS FROM YEARS AND MONTHSUY(12Y0M)12 Z"ANNU"" " "