' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( v Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠Ġ堠z# u`UTE,"! 30);"INIT,CLOCK"0! 30);"CHANGE,"C! 30);"STATES,V!( 30);"PRINT,"l!2 30);"PLOT,GRID"!< 30);"DELAY,END"!d 34,6:33,28! LRUN SIMULATION"2 "S SAVE T TEXT MODE"` "*****************************FUNCTIONS"s 30);"AND,OR" 30);"NOR,NAND" 30);"INV,EXOR" 30);"EXNOR," 30);"JK-FF,D-FF" 30);"1-SHOT" 29);"*COMMANDS"! 30);"EXEC$"R"ĺ"IN LINE ";In8 768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96wB 768L :100V ` "A APPEND C CHANGE"j "D DELETE I INSERT"t "L LOAD P PRINT" ~ "Q QUIT R KK1"N%(D%(J));1K3);:J:;SI120Ą"";A$:I1SE2190T SI12190d G0G1:| 7:JP1A%(I1)1 SI1,N%(D%(J))5O:OO12:J$ SI1275Ą"";A$:I1S::G1Ē6:J0279G:J,0J,191:J:7) 2190. "ERROR "3 A)D%(P2))D%(P2)SD%(P3)N%(D%(P1))N%(D%(P1))?2190[SD%(P2)N%(V)N%(V)e2190tSI12190K0:G0G2::JP1A%(I1)1:KK1:D%(J);1K3);:J::"======================================="K0JP1A%(I1)14B$"GRID"T%(0)18:2140:>B$"DELAY"T%(0)19:2140WHB$"END"T%(0)20:2140gRT%(1)(B$){\ININ1:ILLıfB$"":1850pIP4L1zPA%(I):VD%(P1)D%(P)112200,2210,2230,2240,2245,2305I:21905((SD%(P3)40"B$"1-SHOT"T%(0)10:2140CB$"EXECUTE"T%(0)11:2140aB$"INIT"T%(0)12:2140B$"CLOCK"T%(0)13:2140 B$"CHANGE"T%(0)14:2140B$"STATES"T%(0)15:2140 B$"PRINT"T%(0)16:2140*B$"PLOT"T%(0)17:2140B$"AND"T%(0)1:21407B$"OR"T%(0)2:2140TB$"NAND"T%(0)3:2140pB$"NOR"T%(0)4:2140B$"INV"T%(0)5:2140B$"EXOR"T%(0)6:2140B$"EXNOR"T%(0)7:2140B$"JK-FF"T%(0)8:2140B$"D-FF"T%(0)9:21G2100110"";A$1(A$)0EF2:DA$"."EF3:]&P1:IN1:EF0:B$""j0LL(A$):IPLL:C$(A$,I,1)DC$" "1880NB$B$C$:IXPI1bILL1ılB$""1850vIN11930ININ1:T%(IN)(B$):B$"":1850)N%(D%(P5))1690)N%(V)N%(D%(P2))EM%(V)N%(D%(P5)):1760bM%(V)N%(D%(P2))1740O%(V)D%(P3)N%(V)0:O%(V)0:1750O%(V)O%(V)O%(V)11750N%(V)1:O%(V)1:1750M%(V)N%(D%(P2))IP31İ2160S )):KN%(D%(P3)):JKN%(V)N%(V):1590:JJKN%(V)1LTKJN%(V)0V^1590hN%(D%(P3))N%(D%(P4))N%(V)1:1690rN%(D%(P3))N%(D%(P4))N%(V)0:1690|N%(D%(P3))N%(D%(P4))ĺ"LOGIC HAZARD S AND R=1 AT GATE ";V:1690M%(V1760N%(V)0:1760CN%(D%(P4))N%(D%(P5))N%(V)1:1590oN%(D%(P4))N%(D%(P5))N%(V)0:1590"N%(D%(P4))N%(D%(P5))ĺ"LOGIC HAZARD S AND R=1 AT GATE ";V:1590,M%(V)N%(D%(P6))16006M%(V)N%(D%(P6)):1760(@JN%(D%(P22C N%(V)N%(V)N%(D%(K)):K7N%(V)N%(V):1760LN%(V)0:KP2CiN%(V)N%(V)N%(D%(K)):KN%(V)N%(V):1760N%(V)N%(D%(P2)):1760N%(D%(P2))N%(D%(P3))N%(V)0:1760N%(V)1:1760N%(D%(P2))N%(D%(P3))N%(V)1:A%(I1)1PPA%(I)$ZVD%(P1)adD%(P)1400,1420,1440,1470,1500,1510,1530,1550,1640,1700~n"ERROR IN LINE ";I:110xN%(V)1:KP2CN%(V)N%(V)N%(D%(K)):K:1760N%(V)0:KP2CN%(V)N%(D%(K))N%(V):K:1760N%(V)1:KPA%(I):KD%(P)/K12N%(D%(P1))D%(P2):IdK18GD%(P1)::6:J0279G:J,0J,191:J:I}K11P2I1:P4I:IK19P1P2:P20:P31:I K15I1D%(P1):I2D%(P2):IIS1I2(O02P31İ2160<IP1P2P3 FCj"CLOCK ";:870't"CHANGE ";:870<~"STATES ";:870P"PRINT ";:870c"PLOT ";:870v"GRID ";:870"DELAY";:870"END";:870L0110I0100:N%(I)0:M%(I)0:O%(I)0:IG0:I11:I2100:P10:P31I0L1P90,1200"??? ";:870+"AND ";:870<"OR ";:870O"NAND ";:870a"NOR ";:870s"INV ";:870$"EXOR ";:870."EXNOR ";:8708"JK-FF ";:870B"D-FF ";:870L"1-SHOT ";:870V"EXECUTE";:870`"INIT ";:870);" ";:P:N1N11&N1N2110/950?N1L1110RN2L1N2L1cN1;4);"=";kI1xPA%(N1)D%(P)11ĺD%(P1);" ";:I2D%(P)1010,1020,1030,1040,1050,1060,1070,1080,1090,1100,1110,1120,1130,1140,1150,1160,1170,1180,11A%(I):I#I0A%(L)1:D%(I):I5 " CLOSE";B$>*110m4"READ FROM TAPE (Y/N) ? ";B$:B$"Y"110>"START TAPE PLAYER THEN RETURN";B$HA%:D%RLA%(150)\"DONE":110fA%(N11)A%(N1)2900pPA%(N1)IA%(N11)1 zD%(PI0L:A%(I):I+I0A%(L)1:D%(I):I=" CLOSE";B$F110s"SAVE ON TAPE (Y/N) ? ";B$:B$"Y"110"START RECORDER THEN RETURN";B$A%(150)L:A%:D%"DONE":110B$""820" OPEN";B$" READ";B$ L:I0L:"N"110 LLA%(N21)A%(N1)3 IA%(N1)A%(L)I &D%(I)D%(LLI):IW 0PN2N11g :IN11L1 DA%(I)A%(PI)LL:I NLLP XA$"C"410 b110 lB$""710 v" OPEN";B$ " DELETE";B$ " OPEN";B$ " WRITE";B$L:F2110 EF1410@ PLN11:A%(P1)A%(P)IN1:P:LL1Y PA%(L1)A%(N1)1q D%(PIN1)D%(P):P} P0IN D%(A%(N1)P)T%(P):P N1N11:410 N1L1110 N2L1N2L1 "DELETING LINE ";N1;" TO ";N2;:" (Y/N)";B$:B$0):1210 "A$"T"ĉ:100) ,A$"Q"Ā8 6A$""110G @"";:110Q JA$""a TL;4);"=";z ^1800:EF1EF2330 hEF3110 rA%(L1)A%(L)IN1 |I0IN D%(IA%(L))T%(I):I LL1:330 A$"":N1;4);"="; 1800 EF3E1) N1((B$))5 I2(B$):(B$,I,1)";"180G I:N2N1:200_ N2((B$,(B$)I))p N2N1N2N1 A$(A$,1) A$"A"330 A$"I"410 A$"D"510 A$"C"510 A$"S"620 A$"L"750 A$"P"930 A$"R"J(ALL RIGHTS RESERVED.  BY TOM ENGLE 10-4-809 2350? (E 2s <A%(150),D%(1000),N%(100),M%(100),O%(100) FT%(40) PA%(0)0 ZL0 d"DO YOU WANT A MENU(Y/N)";B$ iB$"Y"İ2390 n":";A$ xB$"" (A$)2200 B$(A$,(A$)p::10);"*******************":10);"* LOGIC SIMULATOR *":10);"*******************"::::10);"WRITTEN BY TOM ENGLE"::10);"DISTRIBUTUTED EXCLUSIVELY BY"15);"DYNACOMP, INC.":::: LOGIC INTERPETER VERSION TWO           *>N $$,-? %' $d-9?-% @6- l65*-`$$$$$-?w1>7-6.$$$@.,.,577777.,.,.!$$$,-->?76->7.-5??1666.$$$$5%557?.5w5'6666%$$$,-?w)?.75?7- @6666--%??$$$lI666.$$$$-?w)>-5?w)>. -- ?? d-->?7..6??1%5666.$$$$5% 6666--%??$-<'$,.,.l6666%$$$,-?w)>>7->5'$$$-?N1?N @65*-( $H5 . g5K(-666???8888 $$d --u66??888 $d 66- -?L?6&66.-d666>$$$<666> $767?,%$7>7?6?,<$$d66.$$6.$,6%$$$76&66>???g---N2 ! DATA INPUT( ""INPUT DATA:". #9 $I1NN %I;6);"X,Y : ";] &X(I),Y(I)k 'C(I)X(I)y (D(I)Y(I) )I * DEFINE THE ORDINATE END POINTS +X1X(1) ,X2X(N) - ."PLOT DATA (Y/N): "; /A$ 0A$"Y"İ200 1129EN PLOT "- "THE DATA AND ITS SPECTRUM IN"R "TERMS OF AMPLITUDE AND PHASE."Z :o  INITIALIZATION "INPUT TERMINAL WIDTH: "; L  "HOW MANY DATA POINTS: "; N NN2 A(N),C(N),D(N),X(N),Y(N),V1(N),V2(N),E(N) N:I: :. "THIS PROGRAM TRANSFORMS A"M "GIVEN DATA SET INTO ITS"t "FREQUENCY DOMAIN REPRESENTATION" "USING THE FOURIER INTEGRAL." : "THE USER INPUTS THE NUMBER" "OF DATA POINTS TO BE TREATED." "THE PROGRAM WILL TH U3@ U AFFECTS THE PLOT SPACING. U>1 REDUCES SPACING.k:"*** FOURIER SPECTRUM ANALYZER ***"qw" COPYRIGHT 1980 BY"" DYNACOMP" " P.O. BOX 162" " WEBSTER, NEW YORK 14580" I14000          "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 n3104 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"RUNHELLO"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  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 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(  , ";M;" MONTHS" 5 - RESTART OR END PROGRAM?V "MORE DATA? (1=YES, 0=NO)";] Xi X120{ "RUN HELLO" 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;   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 "RUN HELLO" 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 XATE"; F ZZ1WF! I' 5 Z(ZT)T "SYSTEM RELIABILITY = ";ZZ b 40s "RUNHELLO" Su "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(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 "RUNHELLO" R))(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";     T"RUNHELLO" )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  BUTION 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"> "CHI-SQUARE TEST","STUDENT'S T-DISTRIBUTION","STUDENT'S Y-DISTRI 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    )A(I,K)YA(J,K) rK |I& J, 7 I1Ra "X";I;" = ";(A(I,R1)1000.5)1000h Iy "RUNHELLO"Axhxhhxhx~!|{hxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxz "SIMULTANEOUS EQUATIONS"%2A(9,10)N("NUMBER OF EQUATIONS";U2Rp<"COEFFICIENT MATRIX:"{FJ1RP"EQUATION ";JZI1R1dIR1130n" COEFFICIENT ";I;x140" CONSTANT ";A(J,I)IJ J    (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 2350 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 MATRI   (1=YES, 0=NO)!; X" X1203 "RUNHELLO"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    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    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  CE = $";(B0100.5)100 = - RESTART OR END PROGRAM^ "MORE DATA? (1=YES, 0=NO)";e Xq X120 "RUN HELLO"  - 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    - 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 "RUNHELLO" 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    " ,N1)(NY))4 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 "RUNHELLO"PRINCIPAL"; <P1 F"ANNUAL INTEREST RATE";8 PI[ Z"NUMBER OF PAYMENTS PER YEAR"b dN l - CALCULATE AMOUNT OF REGULAR PAYMENT BY FORMULA m - INTEREST CONVERTED FROM PERCENT TO DECIMAN FOR CALCULATIONS nR((I100)PN)(11((I100)# "REGULAR PAYMENT ON A LOAN";] - ROUND OFF TO NEARES T CENT, PRINT c - STATEMENTS 30 TO 100 REQUEST USER INPUT"TERM IN YEARS, MONTHS";(Y0,M,- CALCULATE YEARS FROM YEARS AND MONTHS-Y(12Y0M)12 2 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 "RUN HELLO" 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   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 "RUNHELLO" " "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   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   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 HELLO" "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!  40 "RUNHELLO" Z" "PRIME FACTORS OF INTEGERS"(H"(ENTER 0 TO END PROGRAM)"V("NUMBER"]2Zj<Z0200tF(Z)PZ(Z):DZZI2ZdS0nZI(ZI)150xZZISS1110S0170I;"^";SZ140I  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   7IP1904 "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.9E3  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   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   NAL INTEREST RATE = ";I2;"%"" B "MORE DATA: (1=YES,0=NO)";I XU X120f "RUNHELLO"Kh, "NOMINAL INTEREST RAE ON INVESTMENTS"2D"PRINCIPAL";K(P_2"TOTAL VALUE";f<TF"NUMBER OF YEARS, MONTHS";PY0,MTYY0M12Z"NUMBER OF COMPOUNDING PERIODS PER YEAR";dNnI2N((TP)(1(NY))1)100 x"NOMI   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 " DEPCHANGE DATA AND RECOMPUTE? (1=YES, 0=NO)";1 Z= Z120J "PR#0"\ "RUN HELLO" S40);I2 :J1 DC1NY600P N" LAST PAYMENT = $";((R100.5))100^ XJ0X640g b" " l"YR.";J0;10);I3;20);A2 v" " J0Y720 I30 A20 J0 YJ0720 N1((Y(Y))12)12N J0J01 280 * " K7 KKN3! J11N1? I1((B0IN)100.5)100K C1C11V ARI1b A1A1An B0PA1 C1NY520 RRB0 AAB0 A1A1B0 B00 I2I2I1 I3I3I1 A2A2A &J0X570 0J1;10);I1;20);A;30);B0; MORTGAGE AMORTIZATION TABLE"} ^" PRINCIPAL $";P;" AT ";I100;"% FOR ";Y0;" YEARS ";M;" MONTHS" h" REGULAR PAYMENT = $";R r" " |"NO.";10);"INTEREST";20);"AMORTIZED";30);"BALANCE";40);"ACCUM INTEREST"TART PRINTING WITH WHAT YEAR";% X: "PR#1":" K":E X(X)N C10W I20` I30i J00r N1N{ K66 B0P A10 A20 (Y)1690 J01(Y) J0X410 "KN358400 ,K1K66 6 @K1 J" "0 T"^$ "MORTGAGE AMORTIZATION TABLE"*B"REGULAR PAYMENT";I(Rg2"TERM IN YEARS, MONTHS";q<Y0,MAY(12Y0M)12F"PRINCIPAL";PPZ"ANNUAL INTEREST RATE";dInII100x"NUMBER OF PAYMENTS PER YEAR";N "S   AL INTEREST RATE"CA$ I CD$;"RUN";A$ "SYSTEM RELIABILITY","AVERAGE GROWTH RATE","FEDERAL WITHHOLDING TAXES","TAX DEPRECIATION SCHEDULE","CHECK WRITER" "RECIPE COST","MAP CHECK","DAY OF THE WEEK","DAYS BETWEEN TWO DATES","ANGLO TO METRIC" "NOMIN  CD$""$CD$;"NOMON C,I,O"N:"MISCELLANEOUS CATAGORY PROGRAMS:"V(:b2I111j<A$FI10ĺ" ";:90P" ";ZI;". ";A$dIn:::x"WHICH PROGRAM WOULD YOU LIKE TO USE?";AA(A)A1A1130I1A   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 "RUNHELLO" 0,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"NUMINAL INTEREST RATE";<IF"NUMBER OF WITHDRAWALS PER YEAR";PNZ"NUMBER OF YEARS, MONTHS"; dY,(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, FREQB(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  堠z#ҠҮʠ àҠ͠ƠΠ ̠ŠǠ̠ҠӠҠӠ Ӡ ҠҠ ΧӠŠ ӠӠ Ԡ ԧӠԭΠ ԧӠ٭ΠԠ͠٠ؠΠŠ ҠԠΠΠ ҠӠ ǠŠΠΠ ӠƠ٠Π ӯٯƭҭà ŠŠ ŠؠӠ ΠΠ ҠΠԠ ŠӠ ̠ΠΠ à ŠԠ ҠӠ ԠԠŠŠҠΠ ̠ԠŠ ̠ΠȠҠΠӠƠŠ ӠĠӠ Рˠ ȠؠΠ ؠΠέҭԠΠΠԠҠӠà  Ϡ ̠ԠԠԠΠΠҠΠҠǠҠΠέ٠ՠԠ   ̠ǠӠΠԠŠŠƠΠԠ ΠŠ àΠàΠԠΠҠ   ΠŠŠԠ̠ҠĠԠŠ ŠԠŠ̠ΠƭΠ   ɭŠԠŠΠŠԠ ҠΠ٠ƠŠˠӠΠϠӠΠԠ  ٠ƠΠŠȠŠ̠Π ӠˠҠɭŠΠ"ؠӠ! ǠӠ̠Ӡ Š ŠΠϠϠà̠ԠŠΠΠN"CRATURE","TRAPEZOIDAL RULE","DERIVATIVE"  "QUADRATIC FORMULA","REAL ROOTS:NEWTON","REAL ROOTS:HALF-INTERVAL SEARCH","TRIG POLYNOMIAL","SIMULTANEOUS EQUATIONS" "LINEAR PROGRAMMING","SIMPLE MATRIX OPERATIONS","MATRIX MULTIPLICATION","MATRIX INVERSIOYGON","VECTOR ANALYSIS","PARTS OF TRIANGLE" "VECTOR OPERATIONS","COORDINATE CONVERSION","COORDINATE PLOT","ANGLE CONVERSION","POLAR EQUATION PLOT"' "FUNCTION PLOT","LINEAR INTERPOLATION","CURVILINEAR INTERPOLATION","SIMPSON'S RULE","GAUSSIAN QUAD130 x110 :! I2126) A$< " ";I;". ";A$C Is :"WHICH PROGRAM WOULD YOU LIKE TO USE?";A A(A)A1A27170 I1A A$ I CD$;"RUN";A$+ "GREATEST COMMON DENOMINATOR","PRIME FACTORS","AREA OF POLCD$"": CONTROL 'D'4CD$;"NOMON C,I,O":Z "MATHEMATICS CATAGORY PROGRAMS:"`lI120t(A$2I10ĺ" ";:70<" ";FI;". ";A$PIZ:"HIT ANY KEY TO CONTINUE LISTING";d16368,0 n(16384)127Ĺ16368,0:6368,0)<(16384)127Ĺ16368,0:13603F1340DP"RUNHELLO"O"B(K1)01130Q31250=B(K1)270(90B(K1))(1)QG1260fB(K1)90(90B(K1))(1)Q" DISTANCE (NEGATIVE IF RADIAL)";L(K1)L(K1)01300 (L(K1))(L(K11))1260("HIT ANY KEY TO END PROGRAM"21" ";D1;M;S;" R=";R(D);"A=";R(A1);"C=";R(C1);"T=";R(T)C250KLQ0WVB(K1)0c`L(K1)0j"COURSE ";K1;":QUADRANT,DEGREES,MINUTES,SECONDS";tQ,D,M,S~Q01300FQ41130Q11130B(K1)DM60S3600B(K1)901130415927D2 fC12D(C2R)- pC180910> zTD(C2R)G 920X T999999.999m B0B(K1)B(K11)~ B9180980 B0180960 B00980 AAA1 990 AAA1 D1(C) M1(CD1)60 M(M1) S((M1M)60.5):X X170 A(A2)! K "TOTAL AREA IS ";R(A);" SQ. FT. (";| (A43560100000000.5)100000000;" ACRES)"  1310 C(B(K1)B(K11)) *C180830 4C(180C) >C(180C) HDL(K1) RL(K1)L(K1) \A1C1803.1560 B1$"N" 560- B(K1)B(K1)3606 &300F 0D1(B(K1))[ :M1(B(K1)D1)60g DM(M1)} NS((M1M)60.5) XB1$;B2$;" ";D1;" ";M;" ";S,R(L(K1)),R(L);",";R(D),R(N);",";R(E) bL(K1)L1 lK1 v "ANY MORE COURSES"; K1)0560 TB2$"E" ^560* hB1$"."6 rB2$"E"J |B(K1)180420\ B(K1)90560h B1$"S"q 560} B1$"S" B2$"." B(K1)270480 B(K1)180560 B2$"W" 560 B1$"." B2$"W" B(K1)360540 B(K1)270 / "BEARING","DISTANCE","LAT,LON","N,E"? ,,,N;",";EL K11K2Y L1L(K1)j L(K1)0800{ L(K1)0630 LL(K1)(B(K1)R) DL(K1)(B(K1)R) NNL EED "AAELND ,B1$"N" 6B2$"." @B(K1)90360 JB(F "MAP CHECK")B(10),L(10)F(R(X)(X1000.5)1000[2R.0174532925199e<K210F"**NEXT SET OF COURSES**"PK11K2Z1100dQ0120nK1xK10"CHANGE COURSE NUMBER";K1K101801100120     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 B0)100.5)100 5 - RESTART OR END PROGRAM?V "MORE DATA? (1=YES, 0=NO)";] Xi X120{ "RUN HELLO"LIAREST 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.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 "RUNHELLO" 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@E(Π)_(UVWY['Qź)c2a()<a()Fa()Pa()ZUVW cY0da(Ƞ٠ĠՠŠϠˠ)GnTx`%a@E(Π)`%a@E(Π)`%a@E(Π)`/@p()]Ĥ̠ħa@E(Πìɬ) M6UVWcYVPa(ŠΠàӪ)UVWcYP a(Ԡ)%Pa(͠Š)\@(M6UVWcYa(ӠƠӠ  "RUNHELLO":$ "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(K(N2))) J? T"INTERPOLATION (ENTER 0 TO END PROGRAM)"M ^"X = ";XZ rX0410n |"Y = "(A)XBt } 350 "RUNHELLO" 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))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,.    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 "RUNHELLO"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" " X "X"E  "1","2","3","4","5","6","7","8","9","+","+"V "RUNHELLO" 229 I1N+ Y(I)((Y(I)Y1)Y3.5)2 I> I0Y2F S0Q J1Nb "Y(J)I320l ,SS1t 6TJ{ @J JS0360 TA$((I)10); ^400 hS1390 rA$(T); |400 "*"; I SS1430 "Y";  A$(11) xY1,Y2,Y3 Y2(Y2Y1)Y30 Y270170I "Y-RANGE TOO LARGE"R 110X ^ "X-AXIS CROSSES Y-AXIS AT Y=";Y1 "Y-AXIS CROSSES X-AXOS AT X=";X1 XX1X2X3 - FUNCTIONS Y(1) TO Y(9) SHOULD BE ENTERED AT INES 221 TOX "PLOT OF FUNCTIONS" 1Y(9),A$(11)=(I111H2A$(I)O<IyF"NUMBER OF FUNCTIONS TO BE PLOTTED";PNZ"X-AXIS: LEFT ENDPOINT, RIGHT ENDPOINT, INCREMENT";dX1,X2,X3 n"Y-AXIS: LOWER ENDPOINT, UPER ENDPOINT, INCREMENT";0 "TAXABLE = $"P. "INCOME TAX = $";T1@ "FICA = $"T2F e "MORE DATA (1=YES,0=NO)";l Sy S1120 "RUNHELLO" US S1120  F "3301 ,T1T1(F1(X1)F1(X1))F1(X2)1008 6IX ;T1T1(GF1(X1))F1(X)100x @T1T1(GF1(X1))F1(X)100 JT1((T1N)100.5)100 TT20 ^YF2400 hYPF2360 rT2((PF1)100.5)100 |400 T2(((F2Y)F1)100.5)10=SINGLE,2=MARRIED)"; S> "WITHHOLDING TAX EXEMPTIONS";E WY "TAXABLE PAY";` Px "YTD TAXABLE PAY"; Y GPNW1W T10 I27 X2I14(S1)1 GF1(X1)330 GF1(X1)300 T1T1(GF1(X1))F1(X2)100H 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)xI "MARITAL STATUS (1   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 "RUNHELLO" 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)(N"ANNUAL INTEREST RATE =";((TP)(1Y)1)100;"%"j c - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTIONp d m - RESTART OR END PROGRAM? n"MORE DATA? (1=YES, 0=NO)"; xX X120 "RUN HELLO" F/ "EFFECTIVE INTEREST RATE ON INVESTMENTS"5a - STATEMENTS 30-80 REQUEST USER INPUT|"INITIAL INVESTMENT";(P2"TOTAL VALUE AFTER Y YEARS";<TF"NUMBER OF YEARS";PYY - CALCULATE EFFECTIVE INTEREST RATE, PRINT2 ZESTART OR END PROGRAM?G"CHANGE DATA AND RECOMPUTE? (1=YES, 0=NO)";N ZT*`4Z120rH"RUN HELLO"AWALS ARE ENTERED AS A NEGATIVE NUMBERINGS I30KK1X - TEAR NUMBER PRINTED WITH FIRST POSTING IN EACH YEAR ONLY^hB0B2 - NO MORE LINES TO PRINT IN LAST YEARJ0J1N1Y780J1 - START PRINTING?J0X770KK1J0  - RP2P1J1N640bI2R(I2)+lB2R(B2)7vP2P21W - TEAR TO START PRINTING?eJ0X710 - TIME TO PRINT A LINE?J1NL1L2710L1L11R(B2),R(I3),R(I2) - INTEREST POSTED, REINITIALIZE INTEREST ACCUM. BETWEEN POST0B2B0(1IN)H9 - I1=AMOUNT INTEREST WITH EACH COMPOUNDING PERIODU:I1B2B0C - I3=AMOUNT INTEREST ACCUMULATED BETWEEN POSTINGDI3I3I1M - I2=TOTAL INTEREST ACCUMULATED TO DATENI2I2I1W - ROUND AT INTEREST POSTING TIMEX L11N21P21)J11NV - DEPOSIT/WITHDRAW ANY MORE THIS YEAR?eN2N1560 - 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 " EFECTIVE 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"; xs  - 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     120 "RUN HELLO"  dD1TDN360( n"DESCOUNT = $";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 "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 ";2DD150ATE =";(1000D.5)1000;"%"" nB w - RESTART OR END PROGRAM?b x"MORE DATA (1=YES, 0=NO)";i Xu X120 "RUNHELLO"U  "DEPRECIATION RATE" 7"ORIGINAL PRICE";>(PS2"RESALE PRICE";Z<ThF"YEARS";oPYY - REM - CALCULATE DEPRECIATION RATE BY FORMULA, CONVERT TO PERCENTZD100(1(TP)(1Y))c - ROUND OFF, PRINT d"DEPRECIATION R   OR END PROGRAM?/ "MORE DATA (1=YES, 0=NO)";6 XB X120S "RUNHELLO" 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 U "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  "RUNHELLO"  FF1NO)"; 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=AY" "340 ,N5330) 6"THURSDAY"2 @340@ J"FRIDAY"F TN ^40_ h"RUNHELLO" M17 ND2M(.6(M1))Y(Y4)(Y100)(Y400)2R N((N7(N7))7.5)_ N0180o "SATURDAY"x 340 N1210 "SUNDAY" 340 N2240 "MONDAY" 340 N3270 "TUESDAY" 340 N4300 "WEDNESDa  :936$ "DAY OF THE WEEK"= "--- -- --- ----":Cg"(ENTER 0,0,0 TO END PROGRAM)"q::{ 34,5("MONTH, DAY, YEAR (7,19,1979) ";2M,D,Y<M0100FD0100PY0100Z360dM2130nMM12 xYY))(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  " 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 |"RUNHELLO"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 = ";I(J1)C Y(V1(X)P)2P' ZZY: " ";V1(X),P,YA JH IN e "CHI-SQUARE = ";Z "DEGREES OF FREEDOM = ";(C1)(R1) "RUNHELLO" TI1R 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"OBS VAL","EXPCT VAL","X-PART" TI1C ^" COLUMN ";I hJ1R rPA(J)V2(I)L |XС "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     180 L1 M1# VV2/ MMWVC M.0000001250M LLMV 200v "TAIL END VALUE = "1JKL "PERCENTILE = "JKL  40 "RUNHELLO" 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)  "RUNHELLO" A1000 X0$ X0$;/ A3N1(N110)10= A30760G "-";Q FFA3[ FFA3e 1000n 740x FFN1 FFN1 1000 X0$ X0$;" ";  ,"*****VOID*****" 570   FF1ı I1FF1 A$ IN10490 A1500 510( 6409 "DOLLARS ";F A1A1N1V A1.01600c A1550q " AND "; &A1A1100 0(A1.5);" CENTS" : D N X b l v120 N121730 FF(N120)1020 FF(N120)1020 ,,,"$";A ,,," ";A ", ,,F$;" ";L$2 6@ @A0770I JA1AZ TN1(A11E3)i ^N199770w hN10390 r640 |"THOUSAND "; A1A1N11E3 N1(A1100) N10440 640 "HUMDRED "; A1A1N1100 N1(A1) F$"END"790* "LAST NAME OF PAYEE";2 L$J "AMOUNT OF CHECK";Q An "READY TO PRINT CHECK";v X$ D1(D10000) D2((DD110000)100) D3(D(D1100D2)100) FF27D1 1000 X0$ ,,,X0$" ";D2;" ";D3 SEVENTY","EIGHTY","NINETY"Y F "JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY" P "AUGUST","SEPTEMBER","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","LOAN","ANNUAL INTEREST RATE ON LOAN","MORT AMORT TABLE"= CT RATE","EARNED INTEREST TABLE", "DEPRECIATION RATE" "DEPRECIATION AMOUNT","SALVAGE VALUE","DISCOUNT COMMERCIAL PAPER","PRINCIPAL ON A LOAN","REGULAR PAYMENT ON A LOAN"7 "LAST PAYMENT ON A LOAN","REMAINING BALANCE ON LOAN","TERM OF A d nA1ćA$:150 xI1A( A$/ IA CD$;"RUN";A$ "FUTURE VALUE OF AN INVESTMENT","ANNUITY","REGULAR DEPOSITS","REGULAR WITHDRAWALS","INITIAL INVESTMENT"? "MIN INVEST FOR WITHDRAWALS","NOMINAL INTEREST RATE ","EFFECTIVE INTERES>CD$"": - CONTROL 'D'5CD$;"NOMON C,I,O";e "PROGRAMS IN THE BUSINESS CATAGORY:"kwI120A$(I10ĺ" ";2I9ĺ" ";<I;". ";A$FIP:"WHICH PROGRAM WOULD YOU LIKE TO USE?";AZA(A)A1A205    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 "RUNHELLO" 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(  1S(1G)(Y11)C ," =";(S1100.5)100L 6260] @"RUNHELLO"(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(S1) Y(N1)Y(1) A0% I1NI AA(X(I)X(I1))(Y(I)Y(I1))P Ib "AREA =";A2h p 40 "RUNHELLO" 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( $";(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 HELLO" 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 HELLO" SS 130L - COMPUTE INTEREST TO PROPER PROPORTIONS, ROUND OFF, PRINTr I((((I1000)100.5))100)1000 "ANNUAL INTEREST RATE = ";I100;"%"  - RESTART OR END PROGRAM "MORE DATA? (1=YES, 0=NO)"; X X120 ""RUN AST RATE GUESSED=APPROXIMATE REG. PAYMENT7 R1R230E R1R210x - R1R, 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"    520R(I32)59DI;" DEGREES FAHRENHEIT = "R;" CELSIUS"JS100d"RUNHELLO" US"r{100"RUNHELLO" ERS" r520. |I;" GALLONS = ";R;" LITERS"7 520X I;" BUSHELS = ";R;" LITERS"a 520 I;" PECKS = ";R;" LITERS" 520 I;" OUNCES = ";R;" GRAMS" 520 I;" POUNDS = ";R;" KILOGRAMS" 520 I;" TONS = ";R;" KILOGRAMS"520' I;" MILES = ";R;" KILOMETERS"0 520Y I;" TSP. = ";R;" CUBIC CENTIMETERS"b "520 ,I;" TBSP. = ";R;" CUBIC CENTIMETERS" 6520 @I;" CUPS = ";R;" LITERS" J520 TI;" PINTS = ";R;" LITERS" ^520 hI;" QUARTS = ";R;" LITVERTED"; I RIC(N)[ N180,200,220,240,260,280,300,320,340,360,380,400,420,440 I;" INCHES = ";R;" CENTIMETERS" 520 I;" FEET = ";R;" CENTIMETERS" 520 I;" FEET = ";R;" METERS" 520 I;" YARDS = ";R;" METERS" C(N) <NK F 2.540,30.480,.3048,.9144,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 xN0540 N17100 "VALUE TO BE CON. 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) (N117 2f :"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"\ "7. TABLESPOONS TO CUBIC CENTIMETERS":"8. CUPS TO LITERS":"9 PADM60S3600) Z"RADIANS =";AC1 d50V "INPUT THE ANGLE IN RADIANS?";A\ f AAC} "DEGREES = ";(A) AA(A) "MINUTES = ";(A60) AA60(A60) "SECONDS = ";(A60) 50 "RUNHELLO" ) 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   J I  I1N( A$(I)/ I5 = 40N "RUNHELLO"PP "ALPHABETIZE":"(TO END PROGRAM ENTER 0)"R("NUMBER OF ITEMS";Y2Nf<N0270rFA$(25)}PI1NZ"ITEM ";I;dA$(I)nIxI1NJ1NIA$A$(J)B$A$(J1)A$B$190A$(J)B$A$(J1)A$  ";N1;:SFWO1N170.&E::S1(SF):Z:71>&F" EXACT"E&G5K&H2810]& PXRm& Y1 100u& ZP& RRR1& P(XPRRRRP)R & (ZP)((A)(P))1E82800& & P(P10S.5)(10S.5)' ::"THE ";R;" ROOT OF ";X;" IT.:"IF A RATIONAL NUMBER IS ENTERED, THE":"PROGRAM WILL INDICATE THAT THE FINAL"&D"ANSWER IS EXACT.":4:"ENTER THE NUMBER: ";S::"HOW MANY ITERATIONS? ";Q:WS:A10:N10:O11:B11:4:Z1Q:F(S):TO1:O1FO1A1:A1T:TN1:N1FN1B1:B1T::O1;"/T? ";W:4:O0:I1W:T0:J1K:R(1):TTR::FS(12K)(TK2)M:OO1:O17İ10:O0d$BF::5T%C11)"RATIONAL FRACTIONS":3:"THIS PROGRAM WILL ACCEPT ANY NUMBER AS":"AN INPUT AND PRODUCE SUCCESSIVELY FINER":"RATIONAL FRACTION APPROXIMATIONS OFS NORMALLY DISTRI-":"BUTED RANDOM NUMBERS. YOU MUST ENTER":"THE DESIRED STANDARD DEVIATION, MEAN":"AND K (LARGE FOR ACCURACY, SMALL FOR":"SPEED)":4X$A"ENTER STANDARD DEVIATION: ";S:"ENTER K: ";K:"ENTER THE MEAN: ";M:"HOW MANY NUMBERS DO YOU WAN"::58";R0P1:63h"<PCR: U1 100:ZP:H1R1:P(CPH1H1P)R :(ZP)((A)(P))1E862n"=">P(P10S.5)(10S.5)"?::"THE ";R;" ROOT OF ";C;" IS ";P:5#@" NORMALLY DISTRIBUTED RANDOM NUMBERS":3:"THIS PROGRAM GENERATE3:"THIS PROGRAM WILL FIND THE NTH ROOT OF":"ANY NUMBER. YOU MUST ENTER THE NUMBER":"AND THE ROOT DESIRED.":::"WHAT IS THE NUMBER: ";C"::"WHAT ROOT DO YOU WANT? ";R::"TO HOW MANY DECIMAL PLACES? ";S:::R0ĺ"THE ROOT MUST BE ZERO OR LARGER.R.5)100 8"THE CIRCLE DEFINED BY THE FOLLOWING":"THREE POINTS:"::" X1 = ";H,"Y1 = ";N:" X2 = ";E1,"Y2 = ";F1:" X3 = ";K1,"Y3 = ";M1:4:"HAS A RADIUS = ";R::"AT A CENTER LOCATED AT:"::"X = ";C;" Y = ";U:5!910)"NTH ROOT OF A NUMBER":: ";H,N:"ENTER SECOND POINT (X,Y): ";E1,F1 7"ENTER THIRD POINT (X,Y): ";K1,M1:4:L((E1H)(E1H)(F1N)(F1N))(2(E1H)):M((K1H)(K1H)(M1N)(M1N))(2(K1H)):F(F1N)(E1H):P(M1N)(K1H):U(ML)(PF):CMPU:R((K1C)2(M1U)2):R(100F FNA(X)=F(X) EG SIN(X)":3)"RUN 2170":4:+613)"CIRCLE FINDER":3:"THIS PROGRAM FINDS T HE CENTER AND THE":"RADIUS OF A CIRCLE THAT IS DETERMINED":"BY ANY THREE POINTS IN A PLANE THAT DO":"NOT FORM A STRAIGHT LINE.":4:"ENTER FIRST POINT (X,Y) X: ";E1,H,K1:::: CE1 H K1:UA(C):L1(39(UF1)(NF1) .5): Z1 L1:"*";:::::"TYPE IN:"::" 2180 J=1":" GOTO 130":-5"THIS PROGRAM PLOTS A HISTOGRAM. YOU " :"ENTER THE FUNCTION TO BE PLOTTED BY" :"TYPING:" ::3)"2180 DEMENSION TOO LARGE":481:4:SQP:"SCALE FACTOR = ";S:4:O0:C1F:OO1:D(C);" ";;D$;" SCALES TO ";(100SD(C).5)100;" ";C$:O17İ10:O02:53:16)"HISTOGRAM":3:J0:J1:J1534"ENTER YMIN,YMAX: ";F1,N:"ENTER XMIN, XMAX, DELTA:"WHAT ARE YOUR OBJECT UNITS? ";D$::"HOW MANY DIMENSIONS DO YOU WANT" ."TO CONVERT? ";F:F0ĺ:"SCALE FACTOR = ";QP:5/4: D(F):"ENTER ALL DIMENSIONS IN DECIMAL FORM" ::: C1 F0"ENTER DIMENSION ";C;": ";:"";D(C):D(C)Pĺ"DIN OF THE OBJECT AND THE":"LARGEST DIMENSION THAT IS POSSIBLE ON":"THE DRAWING. "::J-"WHAT IS THE LARGEST DIMENSION OF THE":"OBJECT? ";P::"WHAT IS THE LARGEST DIMENSION OF THE":"DRAWING? ";Q:::"WHAT ARE YOUR DRAWING UNITS (E.G INCHES)?";C$::O HOW MANY PLACES? ";R:4:H1(10R.5): R6 H11E6{+I1(H1F.5):J1I1H1:F;" ROUNDED TO ";R;" PLACES IS"::J1:5V,12)"DIMENSION SCALER":3::"THIS PROGRAM DETERMINES THE DIMENSIONS":"REQUIRED TO DRAW TO SCALE GIVEN THE":"LARGEST DIMENSIO(I)B BA(I) '( A(I)S0 SA(I)q):4:"THE LARGEST NUMBER IS ";B : :"THE SMALLEST NUMBER IS ";S:56*3:13)"NUMBER ROUNDER":3:"THIS PROGRAM WILL ROUND OFF ANY GIVEN":"NUMBER TO ANY NUMBER OF PLACES.":4:"ENTER NUMBER: ";F::"ROUND TT IS ";S:5&13)"MAX/MIN LOCATOR":3:"THIS PROGRAM FINDS THE LARGEST AND":"SMALLEST NUMBERS IN A LIST OF NUMBERS":4::"HOW MANY NUMBERS IN LIST? ";F:A(F)::"ENTER THE NUMBERS:":: I1 F :"A";I;" = "; :A(I)::SA(1):BS: I 1 F ' A$"X = ";C;" Y = ";U;" Z = ";Z :5 %13)"SCALAR PRODUCT" :3: "THIS PROGRAM CALCULATES THE SCALAR PRO-":"DUCT OF TWO VECTORS.":4:"ENTER VECTOR 1 (X,Y,Z): ";H,N,D1:"ENTER VECTOR 2 (X,Y,Z): ";E1,F1,G1:4:SHE1NF1D1G1:"THE SCALAR PRODUCE." "5#13)"CROSS PRODUCT":3: "THIS PROGRAM CALCULATES THE CROSS PRO-" :"DUCT OF TWO VECTORS.":4:"ENTER VECTOR 1 (X,Y,Z): ";H,N,D1:"ENTER VECTOR 2 (X,Y,Z): ";E1,F1,G1::::CNG1D1F1:UD1E1HG1:ZHF1NE1:"THE CROSS PRODUCT IS:" :*PUT ERROR - N9F90:60M:F270 :60W;F180c<O163="MAGNITUDE = ";E:"ANGLE = ";F;" DEGREES":: :>6j?FF57.2958:C(N),D(N):L1N:P1N:QF2L3.14159:QQN:C(L)EP(Q):C(L)(1E3C(L).5)ILL CALCULATE THE 'N'":"NTH ROOTS OF A COMPLEX NUMBER."2:::"ENTER ROOT DESIRED: ";N:::"ENTER REAL AND IMAGINARY PARTS";:C,D:O1:33E(100(C2D2).5)100:C0D0584C0D0575C0D0596F ((DC)57.2958100.5)100:(K2M2):D(JKIM)(K2M2): : (D)D A$"+" -"THE ANSWER IS ";C;" ";A$;" J ";(D)::"DO YOU WANT IT IN POLAR FORM";:"? ";B$:(B$,1)"N"İ20:47.10/(B$,1)"Y"4406816)"NTH ROOTS OF A COMPLEX NUMBER":3:"THIS PROGRAM W? ";B$:(B$,1)"N"İ20:41#(107)(B$,1)"Y"38>*6+12)"COMPLEX DIVISION":3:"THIS PROGRAM PERFORMS DIVISION OF" :"COMPLEX NUMBERS." 6, :"WHAT NUMBER (FIRST) ARE YOU DIVIDING" :"BY THE OTHER (SECOND)?":::31:A$"-":C(IKJM)":3:"THIS PROGRAM PERFORMS MULTIPLICATION OF" :"COMPLEX NUMBERS." &:"WHAT NUMBERS ARE YOU MULTIPLYING?"::31:A$"-":CIK(JM) :DJKIM : (D)D A$"+" ' :"THE PRODUCT IS ";C;" ";A$;" J ";(D)::"DO YOU WANT IT IN POLAR FORM";:"MAGINARY PARTS: ";::A$"-":"";I,J:"";K,M:N CIK:DJM::(D)DA$"+"!"THE DIFFERENCE IS ";C;" ";A$;" J";(D)::"DO YOU WANT IT IN POLAR FORM";:"? ";B$:(B$,1)"N"İ20:35"10#(B$,1)"Y"30$6E%11)"COMPLEX MULTIPLICATION;:"? ";B$:(B$,1)"N"İ20:27'10;(B$,1)"Y"24B612)"COMPLEX SUBTRACTION":3:"THIS PROGRAM PERFORMS COMPLEX MATH.":"IT WILL SUBTRACT COMPLEX NUMBERS.":"WHAT NUMBERS ARE YOU SUBTRACTING?"::31:32-"ENTER THE REAL AND I"HOW MANY NUMBERS ARE YOU ADDING? ";G:"ENTER THE REAL AND IMAGINARY PARTS: ";:: H1 G:A$"-"::"NUMBER ";H;" ";:"";A(H),B(H):CCA(H):D D B(H) : (D)D A$"+" H:::"THE SUM IS ";C;" ";A$;" J ";(D)::"DO YOU WANT IT IN POLAR FORM"UDE = ";E ::"ANGLE = ";F;" DEGREES"R : :"DO YOU HAVE MORE DATA? ";B$:4:e (B$,1)"Y"9l 6 ::::12)"COMPLEX ADDITION":::::"THIS PROGRAM PERFORMS COMPLEX MATH.":"IT WILL ADD ANY NUMBER OF COMPLEX":"NUMBERS." 4:C0:D0: AND IMAGINARY PARTS: ";:"";C,D:10:21V 3:E(100(C2D2).5)100:C0D017f C0D016v C0D018 F ((DC)57.2958100.5)100:C0D0F180F  C0 D0 FF180 19 F90:19 F270 :19 F180& "MAGNITMBER TO A REAL POWER":"9. END THE PROGRAM":A$"-":C0:D0:::"ENTER YOUR CHOICE: ";:A::4:A8,23,29,37,43,49,67,74,93 13)"ABSOLUTE VALUE":3:"THIS PROGRAM CALCULATES THE ABSOLUTE":"VALUE OF A COMPLEX NUMBER AND ITS ANGLE."( 4:"ENTER REAL:::5:"INDEX TO COMPLEX MATHEMATICS PROGRAMS":10:"1. ABSOLUTE VALUE":"2. COMPLEX ADDITION":"3. COMPLEX SUBTRACTION":"4. COMPLEX MULTIPLICATION":"5. COMPLEX DIVISION":"6. NTH ROOTS OF A COMPLEX NUMBER"{ "7. COMPLEX EXPONENTIAL":"8. COMPLEX NU5 :::::2:8)"HAYDEN BOOK COMPANY INC."::10)"MATHEMATICS IN BASIC":2:10)"COMPLEX MATHEMATICS"::11)"BY JULES H. GILDER":21:"COPYRIGHT (C) 1979 HAYDEN BOOK CO. INC."::9)"ALL RIGHTS RESERVED":B14000: """ " " " " """""""""!!! ! !