' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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 < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`(F$):(F$,J,1)" "A$A$(F$,J,1)4dJ:F$A$:On768:E(222):E255Ānx(218)70(218)80ġ:G0E16Ģ23:868:23:"THAT IS A BAD EQUATION, PLEASE REDO":1540:::440F1950E53E133160L(37):L END OF M:(A$,I,1)"X"(A$,I1,1)"P"Z$Z$"T":1330F(Z$Z$(A$,I,1)]2I:L2366:20:160<M(A$)9:Z$"X=("(A$,3,M9)")*COS(T)":L2289:20FZ$"Y=("(A$,3,M9)")*SIN(T)":L2366:20:160PA$"R=SQR("(A$,5,(A$)4)")":%ZA$"":J1MUM RADIUS?";D:CD:D012408AC1.75:BD1.75:420S17:"MEAN Y VALUE?";LiCA1.75:DB1.75R(DC)2:C((LR)100)100:D((LR)100)100:420 A$(A$,2)"-"(A$,3):90:S21340M3:Z$"X=T":L2289:202M(A$):Z$"Y=":I36.3:FL01230*(A$,1,1)"Y"FL1420_3:"LOWER LIMIT (IN DEGREES)?";LL:LLLL57.29585:"UPPER LIMIT (IN DEGREES)?";UL:ULUL57.2958FL1FA14207:"DO YOU WANT THE AXES COMPUTED?";A$:(A$,1,1)"N"3409:"WHAT IS THE MAXION SAME SCREEN?";A$:(A$,1,1)"N"300/tFL18~310M::1:S21180ZS1340"LOWER LIMIT OF PARAMETER?";LL::"UPPER LIMIT OF PARAMETER?";ULFL1420340"DO YOU WANT THE DEFAULT THETA (0-360)?";A$:(A$,1,1)"Y"LL0:UL YOU WANT TO:":3:" 1) CONSTRUCT ANOTHER GRAPH?"::" 2) RETURN TO MENU?":~W10:"WHICH ?";A$:A$"1"A$"2"1111X(A$)1120,210`FA0::3:"REUSE THE SAME EQUATION?";A$:(A$,1,1)"Y"FA1:FL0:62450:1170&j5:"ANOTHER EQUATION wpO_wpO_X_lfW_{_>f_X_lfW_{_>flfW_{_>f52,169,0,133d 36,173,2,3,240,9,237,1,3,233,247,144,4,105,31,133,36,104,96,108,3,3,0,0,0,255,255,255,044,98,3,240,3,238,2,3,8,32,169,3,40,104,72,144,228,73,13,10,208,13,141,2,3,169,138,32,169,3,169,88,32,168,252,169,0,133d 36,173,2,3,240,9,237,1,3,233,247,144,4,105,31,133,36,104,96,108,3,3,0,0,0,255,255,255,00,10,168,169,3,153,142,192,169,17,153,142,192,169,155,141,1,3,169,54,133,42,160,0,140,2,3,132,43,40,144,14,173 Z 231,3,233,110,133,42,173,232,3,233,0,133,43,169,99,145,42,200,169,3,145,42,104,168,96,72,72,173,2,3,197,36,104,176,3,72,169 w_ 160,V1:ZH1:P×.2Z$:Z$"PRINTER"60210O D$;"OPEN PRINTER":D$;"WRITE PRINTER"H PTYPER PTYPE1ĺSP:WI:3460\ If J1Ip (3";SP$:SP(SP$)' SP10SP303220D 10:14:"PRINTER WIDTH"h 12:"HOW WIDE IS YOUR PRINTER" 13:958:"ENTER NUMBER OF CHARACTERS? ";WI$:WI(WI$) WI1WI1323260 3390 5:"ENTER THE COMMANDS NECESSARY TO TURN":"ON YOUR PROMMUNICATIONS CARD"2N :" 2) PARALLEL CARD"NX :" 3) OTHER TYPE"ub 18:958:"ENTER 1, 2, OR 3? ";A$l A$"1"A$"2"A$"3"3170v PTYPE1::A$"1"3300 5:14:"PRINTER SPEED" 7:958:"DO YOU WANT TO USE 10 OR 30 CPS? R.)"5 ::"NOTE: THE ACTIVATED PRINTER MAY SLOW"d " DOWN THE PRINTING ON THE SCREEN." 23:958:"DO YOU WANT TO USE THE PRINTER OPTION? ";A$:A$(A$,1)& A$"N"A$"Y"31000 A$"N"ı: :10:"DO YOU HAVE A"D :" 1) CNTER 1, 2, OR 3 ?";A$:A$"1"A$"2"A$"3"1415H:(A$)343000Z(A$)21424lNUM0İ44000u370:CD$(8),OP(8):21332D$(13)(4):I18:CD$(I):I:270 INSTRUCTIONS:5:"INTEGRATION WILL COMPUTE NUMERICA1395pK(((ZB$)1)2)ĺ*s:20200=xD$"PR#0"::9V}"WOULD YOU LIKE TO":" 1. TRY DIFFERENT ENDPOINTS OR A":" DIFFERENT NUMBER OF SUBINTERVALS":" 2. TRY A DIFFERENT EQUATION":" 3. RETURN TO MENU"319:958:"EXADX:N2N11/I1N2:XX2DX:20665:YDYI(TX:XXDX:20665:XT\2RR4YD2Y:<XA:20665:RRY:XB:20665:RRYPXBDX:20665:R(R4Y)DX3Z PRINTOUT OF RESULTS\CV:36,CH:958dCV:36,CH:958fRn(ZB$)5ĺ:MNUM7RLOOP1NUM:CMD$(LOOP):LOOP:44000:43100W:10:"PRINTER CAN NOT BE ACTIVATED. YOU MUST":"USE THE 'PR' OPTION IN THE HELLO PROGRAM":590\:D$"CLOSE PRINTER":216,0:240ુLOOP1NUM:CMD$(LOOP):LOOP:BA$"2"232!NUM0İ44000+"560:3006%22016J*(1023)123Ā^4D$;"RUN HELLO"u5 TURN PRINTER ON943095:D$"OPEN PRINTER":D$"READ PRINTER">PTYPE:PTYPE143085CSP,WI:SP10Ĺ802,82:818,82H775:769,WI:43100216,0:240/ુLOOP1NUM:CMD$(LOOP):LOOP:VTYPE143085/CSP,WI:SP10Ĺ802,82:818,82GH775:769,WI:43100PMNUMRLOOP1NUM:CMD$(LOOP):LOOP:44000:43100W:10:"PRINTER CAN NOT BE ACTIVATED. YOU MUST":"USE THE 'PR' OPTION IN THE HELLO PROGRAM":590 \:D$"CLOSE PRINTER":"USE THE 'PR' OPTION IN THE HELLO PROGRAM":810T\:D$"CLOSE PRINTER":216,0:24xુLOOP1NUM:CMD$(LOOP):LOOP:DINTER ON943095<:D$"OPEN PRINTER":D$"READ PRINTER"W>PTYPE:PTYPE143085yCSP,WI:SP10Ĺ802,82:818,82H775:769,WI:43100MNUMRLOOP1NUM:CMD$(LOOP):LOOP:44000:431000W:10:"PRINTER CAN NOT BE ACTIVATED. YOU MUST":G T Ѝ TTMD$(LOOP):LOOP:44000:43100W:10:"PRINTER CAN NOT BE ACTIVATED. YOU MUST":"USE THE 'PR' OPTION IN THE HELLO PROGRAM":810\:D$;"CLOSE PRINTER":216,0:390ુLOOP1NUM:CMD$(LOOP):LOOP: T ` uS `- TT) 0:uZ(ZZ$)11:(ZZ$,Z,1)" "ZZ$(ZZ$,1,Z1)(ZZ$,Z1)DDu:[5 TURN PRINTER ONg943095:D$"OPEN PRINTER":D$"READ PRINTER">PTYPE:PTYPE143085CSP,WI:SP10Ĺ802,82:818,82H775:769,WI:43100MNUMRLOOP1NUM:CT POKING, 8 HAS THE MAXIMUM BYTES TO POKE.DPZO(9): ERROR FLAGQPZO0ı]P20654}PX1:Y1:TT100,50:216,0:P216,0:ZP(222):ZO128(ZP69ZP53ZP133ZP191)255(ZP191):768:PZIZ1Z169:ZI,58::8,69:0uZZ$""ı<2,169,34,72,96 $PTT92,42:20670NPH(X)(X256):L(X)X256(X256)P6,L(Z1):7,H(Z1): LOW AND HIGH BYTES OF THE STARTING LOCATION TO POKE LINE*P21332: PARSE STRING AND POKE INTO LINE 20665. 6, 7 SHOULD HAVE THE LOCATION TO STAR16368,0:1:868:L(37):L*? END OF PROGRAMQD$(13)(4)eD$;"RUN HELLO"u SPACE BAR16368,0:24:1:868:7"PRESS ";::"SPACE BAR";::" TO CONTINUE";16384,128:16368,0:1:868:AAPROGRAMD$(13)(4)-D$;"RUN HELLO"= SPACE BAR[16368,0:24:1:868:7"PRESS ";::"SPACE BAR";::" TO CONTINUE";16384,128:16368,0:1:868:@LLA:ULB:1020AULB:1020";::" TO CONTINUE";16384,128:ESIAN COORDINATES8:"1) DX DY DZ";:22:"4) DY DZ DX"a<:"2) DX DZ DY";:22:"5) DZ DX DY">:"3) DY DX DZ";:22:"6) DZ DY DX"@850B CYLINDRICAL COORDINATESD"1) DR DTHETA DZ";:22:"4) DTHETA DZ DR"F:"2) DR DZ DTHETA";:22:&VP8:MAX2:TY28162( CARTESIAN COORDINATESS*"1) DX DY";:22:"2) DY DX"\,850t. POLAR COORDINATES0"1) DR DTHETA";:22:"2) DTHETA DR"28504 ORDER OF INTEGRATION FOR TRIPLE INTEGRAL6VP12:MAX6:TY826,836,8448 CARTO255ĺ"SORRY, THAT FUNCTION IS TOO LONG.":790r"SORRY, THAT FUNCTION ISN'T FORMED":"CORRECTLY. TRY AGAIN."KK11500:KK::3 "PLEASE CHOOSE THE ORDER OF INTEGRATION":"IN2822$ ORDER OF INTEGRATION FOR DOUBLE INTEGRALHE HELLO PROGRAM":20210=&\:D$"CLOSE PRINTER":216,0:272a&ુLOOP1NUM:CMD$(LOOP):LOOP:SD$"OPEN PRINTER":D$"READ PRINTER"=%>PTYPE:PTYPE143085_%CSP,WI:SP10Ĺ802,82:818,82w%H775:769,WI:43100%MNUM%RLOOP1NUM:CMD$(LOOP):LOOP:44000:43100&W:10:"PRINTER CAN NOT BE ACTIVATED. YOU MUST":"USE THE 'PR' OPTION IN T13)20712$PZA$;!$QZO(ZB$)9$QZC(ZV1.75)17.675?$QM$0uZZ$""ı$:uZ(ZZ$)11:(ZZ$,Z,1)" "ZZ$(ZZ$,1,Z1)(ZZ$,Z1)$Du:$D$(13)(4): END OF PROGRAM $:$4D$;"RUN HELLO"$5 TURN PRINTER ON$943095"%:C$" "ZC$;:ZVZV1+#PK((ZB$,1)):OP(K)0G#PZOZO1:ZB$(ZB$,1,ZO)o#PVVK1:2:" ":VT:ZO2HT:20714#PZA$"1"ZA$"8"20733#PK(ZA$):OP(K)20712#POP(K)1:ZA$",";:ZB$ZB$ZA$:ZO(ZB$):VVK1:2:"-":VT:ZO2HT:20714 $PZA$(ZHR"PZWZW1:(16384)128ZA$((16384)128):16368,0:" "ZC$;:ZH1:20718w"PZZZVZZZC256:" "ZC$:20760"PZW7ZVZV.5:20711"PZVZV1:ZHĞ"P" "ZC$;::20710"P:"PZA$(8)20727"PZO1ZVZV1.15:20711#PZC$" "ZC$Z25X2:::::::::::::::::::::::::::::::::::::::::::::::::::::::::c!PZIZ1Z169:ZI,58::8,69:|!P LINE INPUT ROUTINE!PVT(37)1:HT(36)1!PZB$"":ZC$(8):ZO0:ZV0:ZH1!PZZZT17.675:ZZ0ZZ0!P"";!P16368,0:20714"PZW0:ZHE MAXIMUM BYTES TO POKE. 2 PZO(9): ERROR FLAG? PZO0ıK P20654c PX1:20665:216,0: P216,0:ZP(222):ZO128(ZP69ZP53ZP133ZP191)255(ZP191):768: P DO NOT CHANGE NEXT TWO LINES PZ1(121)256(122)35:A!PY3X P20660:20670=PH(X)(X256):L(X)X256(X256)P6,L(Z1):7,H(Z1): LOW AND HIGH BYTES OF THE STARTING LOCATION TO POKE LINE P21332: PARSE STRING AND POKE INTO LINE 20665. 6, 7 SHOULD HAVE THE LOCATION TO START POKING, 8 HAS THUATION ROUTINE&}P TODD BAILEY, MECC;P (C) MECC, 1980BP P ROUTINE EXPECTS BINARY 'TAPA' TO BE AT 21332 ($5354)PZZ$ = F(X)PPZX$:ZX$"*SRESET*"20622PZI09:ZX:768ZI,ZX::*SRESET*,166,223,154,169,216,72,169,34,72,96):CH$"."Z2Z21:150406:Z11ĭCH$"-"15040P:CH$"0"CH$"9"NU0a::Z21NU0g:vNSPACE BARN16368,0:24:1:868:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";N16384,128:16368,0:1:868:10:xP EQUATION EVALLIC RULE"T20200:270%U LOOP1NUM:CMD$(LOOP):LOOP:44000:43100t'::"PLEASE KEEP THE NUMBERS LESS":"THAN 10 CHARACTERS LONG.":'::"PLEASE ENTER A NUMBER."::NU1:IN$""NU0::Z20:Z11(IN$):CH$(IN$,Z1,1) RECTANGLES - CHOICES OF FUNCTION"E19:"EVALUATION POINTS ARE:"s6:"A) LEFT ENDPOINTS";:27:"D) MINIMA"6:"B) RIGHT ENDPOINTS";:27:"E) MAXIMA"6:"C) MIDPOINTS";:27:"F) RANDOM":3:"2) TRAPEZOIDAL RULE" :3:"3) PARABOL"1:"INTEGRATION VALUES FOR ANY CONTINUOUS"_:"FUNCTION OF ONE VARIABLE ON A FINITE"r:"INTERVAL."20200::5"YOU MAY SELECT AS MANY OF THE FOLLOWING":"METHODS OF NUMERICAL INTEGRATION AS YOU":"WISH."#::3:"1D$"CLOSE PRINTER":216,0:702A)ુLOOP1NUM:CMD$(LOOP):LOOP:7ER"(>PTYPE:PTYPE143085@(CSP,WI:SP10Ĺ802,82:818,82X(H775:769,WI:43100a(MNUM(RLOOP1NUM:CMD$(LOOP):LOOP:44000:43100(W:10:"PRINTER CAN NOT BE ACTIVATED. YOU MUST":"USE THE 'PR' OPTION IN THE HELLO PROGRAM":1530)\:(222):ZO128(ZP69ZP53ZP133ZP191)255(ZP191):768:c'PZIZ1Z169:ZI,58::8,69:q'0uZZ$""ı':uZ(ZZ$)11:(ZZ$,Z,1)" "ZZ$(ZZ$,1,Z1)(ZZ$,Z1)'Du:'5 TURN PRINTER ON'943095(:D$"OPEN PRINTER":D$"READ PRINT STARTING LOCATION TO POKE LINE&P21332: PARSE STRING AND POKE INTO LINE 20665. 6, 7 SHOULD HAVE THE LOCATION TO START POKING, 8 HAS THE MAXIMUM BYTES TO POKE. &PZO(9): ERROR FLAG&PZO0ı&P20654&PT11,21,31:216,0:A'P216,0:ZP32 ($5354)%P ZZ$=F(X)%P?%PZX$:ZX$"*SRESET*"20622%PZI09:ZX:768ZI,ZX:: *SRESET*,166,223,154,169,216,72,169,34,72,96%PT10,20,30:20670%PH(X)(X256):L(X)X256(X256)&P6,L(Z1):7,H(Z1): LOW AND HIGH BYTES OF THEENTER 1, 2, OR 3? ";A$8$6A$"1"A$"2"A$"3"1580T$@A$"3"ĺD$;"RUN HELLO"d$EA$"2"701v$JNUM0İ44000$T792$xP EQUATION EVALUATION ROUTINE$}P TODD BAILEY, MECC$P (C) MECC, 1980 %P ROUTINE EXPECTS BINARY 'TAPA' TO BE AT 213#D$"PR#0"::10:"DO YOU WANT TO"w#:" 1) RUN THIS PROGRAM AGAIN USING A":" DIFFERENT SIZE INTERVAL"#:" 2) RUN THIS PROGRAM AGAIN USING A":" NEW INTEGRAND AND NEW LIMITS"#":" 3) RETURN TO MENU"$,20:958:":24:1:868:7B""PRESS ";::"SPACE BAR";::" TO CONTINUE";i"16384,128:16368,0:1:868::" ERROR IN COMPUTATION":10:"UNABLE TO EVALUATE THE FUNCTION"::ZZ$;" IN THE GIVEN INTERVAL.""1530:216,0:1550" END OF PROGRAM$G A"(!U:"DOUBLE OR TRIPLE INTEGRAL."[!Z::"FINALLY, YOU WILL BE ASKED TO ENTER THE"!d:"SUBINTERVAL SIZE. THE SUMMATION USED TO"!n"APPROXIMATE THE INTEGRAL WILL USE THE"!x:"MIDPOINTS OF THE SUBINTERVALS."! SPACE BAR"16368,0 THE INTEGRAL HAS BEEN DEFINED,"F (:"YOU MUST CHOOSE THE ORDER OF"x 2:"INTEGRATION. THE PROGRAM WILL PRINT OUT" <"WHICH ORDERS OF INTEGRATION YOU MAY" F:"CHOOSE FROM DEPENDING ON THE COORDINATE"!P:"SYSTEM USED AND IF YOU ARE COMPUTIN"COORDINATE SYSTEM VARIABLE NAMES"R"----------------- --------------"s"CARTESIAN";:23:"X, Y, Z":"POLAR";:23:"R, THETA":"CYLINDRICAL";:23:"R, THETA, Z" :"SPHERICAL";:23:"RHO, THETA, PHI"1530 "NOW THATED TO ENTER THE"B:"LIMITS OF INTEGRATION AND THE INTEGRAND."q"THE LIMITS OF INTEGRATION AND INTEGRAND":"CAN BE EITHER CONSTANTS OR FUNCTIONS.":"IF YOU USE FUNCTIONS YOU MUST USE THE":"VARIABLE NAMES INDICATED BELOW."&:/`:"INTEGRAL YOU CAN USE THE CARTESIAN OR"aj:"POLAR COORDINATE SYSTEMS. IF YOU CHOOSE"t"TO COMPUTE A TRIPLE INTEGRAL YOU CAN USE"~"THE CARTESIAN, CYLINDRICAL, OR SPHERICAL""COORDINATE SYSTEMS."1530"YOU WILL NOW BE ASKGRALS PERFORMS DOUBLE OR"F.:"TRIPLE ITERATED INTEGRATION. AFTER"v8:"CHOOSING TO COMPUTE EITHER A DOUBLE OR"B:"TRIPLE INTEGRAL, YOU MUST THEN SELECT"L:"THE COORDINATE SYSTEM YOU WANT TO USE."V:"IF YOU CHOOSE TO COMPUTE A DOUBLE"DTHETA DRHO"<RVP:958:"ENTER A NUMBER FROM 1 TO ";MAX;RT"? ";A$:NT(A$)qVNT1NTMAXNT(NT)850(37)3:958:"ENTER SIZE OF SUBINTERVALS? ";A$:D(A$):958:D0990450 INSTRUCTIONS SUBROUTINE$:"MULTI-INTE"5) DZ DR DTHETA"BH:"3) DTHETA DR DZ";:22:"6) DZ DTHETA DR"KI850gJ SPHERICAL COORDINATESL"1) DRHO DTHETA DPHI";:22:"4) DTHETA DPHI DRHO"N"2) DRHO DPHI DTHETA";:22:"5) DPHI DRHO DTHETA" P"3) DTHETA DRHO DPHI";:22:"6) DPHI 972(&\:D$"CLOSE PRINTER":216,0:100L&ુLOOP1NUM:CMD$(LOOP):LOOP:"READ PRINTER")%>PTYPE:PTYPE143085K%CSP,WI:SP10Ĺ802,82:818,82c%H775:769,WI:43100l%MNUM%RLOOP1NUM:CMD$(LOOP):LOOP:44000:43100&W:10:"PRINTER CAN NOT BE ACTIVATED. YOU MUST":"USE THE 'PR' OPTION IN THE HELLO PROGRAM":1128:16368,0:::::@$ SUBROUTINE TO RESET X AND Y ARRAYSO$TP22020x$I1N:X(I)(X(I)):Y(I)(Y(I))::$I1N:Y(I)(Y(I))::$I:$` TIME DELAY$ KK12000:KK:$5 TURN PRINTER ON$943095%:D$"OPEN PRINTER":D$LIST"4#:"THE ERRORS OF ESTIMATE, DETERMINE THE"f#:"STANDARD ERROR OF ESTIMATE, AND PLOT THE"#"CURVE OVER A SCATTERGRAM OF THE DATA."# SPACE BAR#16368,0:24:1:868:7#"PRESS ";::"SPACE BAR";::" TO CONTINUE";$16384,CURVE IS A POLYNOMIAL,">":"THE NUMBER OF DATA POINTS TO BE"n"X:"CONSIDERED, AND THE SOURCE OF THE DATA""b:"(I.E. TO BE ENTERED DURING PROGRAM""v:"EXECUTION OR TO BE READ FROM A DATA"::"FILE)."#16:"AT YOUR REQUEST, THE PROGRAM WILL L DISK FILE."W!::"THE CURVE CAN BE"::" 1) A POLYNOMIAL OF DEGREE LESS THAN 10."{!" 2) A POWER FUNCTION Y=A*X^B"!:" 3) AN EXPONENTIAL FUNCTION Y=A*EXP(B*X)"!1970!&"YOU MUST ENTER THE TYPE OF CURVE USED,""0:"THE DEGREE IF THE 1.E6A(I,J)0  5 I1D1:IKA(I,K)0? ::f  SUBROUTINE TO PRINT INSTRUCTIONS 4:"LEAST SQUARES WILL DETERMINE A LEAST" :"SQUARES CURVE FIT TO ANY SET OF DATA" !:"ENTERED FROM EITHER THE KEYBOARD OR A"::"SEQUENTIAI,K)):P0ı RK1580PJ1D11:TA(K,J):A(K,J)A(R,J):A(R,J)T:c,JD11K11@A(K,J)A(K,J)A(K,K):(A(K,J))1.E6A(K,J)0JTI1D1:IK1680^IK1680hJK1D11rA(I,J)A(I,J)A(I,K)A(K,J) |(A(I,J)):" 1) RUN THE PROGRAM AGAIN"E:" 2) RETURN TO MENU"h16:958:"ENTER 1 OR 2? ";A$A$"1"A$"2"1486A$"1"Ľ:5D$"RUN HELLO" SUBROUTINE TO ROW REDUCE MATRIXK1D1:P0:IKD1P(A(I,K))RI:P(A(** 1970`::CV7:"DO YOU WANT THE SCATTERGRAM"::"WITH THE FUNCTION? ";A$:A$(A$,1)zA$"N"A$"Y"1420D$"PR#0":A$"N"1480F0TP3İ1990XX(0)D$;"BLOAD CHAIN,A520":520"SCAT"34,0::10:"DO YOU WANT TO"%(I)Z)2I34,9:19705F0Ĺ216,0:1370@(216,0L2:CV2aFF0TP3İ1990wPF0ĥ1300:1140Z:"STANDARD ERROR"::"OF ESTIMATE IS ";nF1:PPN:P:x PLOT FUNCTION OVER SCATTERGRAM OF DATA *** CHAIN TO SCAT *-f5);"-----";2);"-------";4);"--------"<tP0:I1NS~TP1160,1170,1180hZAX(I)B:1190ZA(BX(I)):1190Z0:J1D1:ZZB(I,J)C(J):F01210I;")";:6:X(I);:13:Z;:24:(Y(I)Z)I10(I10)İ1970PP(YDO YOU WANT THE ERRORS OF ESTIMATE?";:868:" ";A$:958QB(A$,1,1)"Y"1100iD(A$,1,1)"N"1330sF1080LF1:TP3İ1990V:34,13[`1282b5);"X";6);"VALUE OF";3);"ERROR OF"d5);"VALUE";2);"FN AT X";4);"ESTIMATE" ";C(I);" X^";I1:10304" +";C(I);" X^";I1GI:1970:1080"POWER FUNCTION IS"::" Y = "A" * X ^ "B:1970:1080$"EXP FUNCTION IS"::" Y = "A"EXP("B"*X)":1970. PRINT ERRORS OF ESTIMATE AND STANDARD ERROR OF ESTIMATE98:" COEFFICIENT MATRIX C IS FROM LAST COLUMN OF MATRIX AWI1D1:C(I)A(I,D11)::rTP3A(C(1)):BC(2) PRINT RESULTS:TP11050TP21060"THE POLYNOMIAL IS":"Y = ";C(D1);" X^";D11ID1111C(I)0ĺ" A(I,J)A(I,J)B(K,I)B(K,J):::LH AUGMENT MATRIX A WITH (B-TRANS) * Y_RI1D1:K1N\A(I,D11)A(I,D11)B(K,I)Y(K)::p ROW REDUCE MATRIX A1500:P0940:"MATRIX NOT INVERTIBLE - ABNORMAL"::"TERMINATION":1970:14808(LOOP):LOOP:44000:43100W:10:"PRINTER CAN NOT BE ACTIVATED. YOU MUST":"USE THE 'PR' OPTION IN THE HELLO PROGRAM":20210\:D$"CLOSE PRINTER":216,0:180ુLOOP1NUM:CMD$(LOOP):LOOP:43030 :R$"1"Ľ:10.*(1023)123ĀA4D$"RUN HELLO"X5 TURN PRINTER ONd943095:D$"OPEN PRINTER":D$"READ PRINTER">PTYPE:PTYPE143085CSP,WI:SP10Ĺ802,82:818,82H775:769,WI:43100MNUMRLOOP1NUM:CMD$OW TO MAKE":"CORRECTIONS; ENTER 0 TO DO A DIFFERENT":"ROW OPERATION.":a END OF PROGRAM sD$"PR#0":: 10:"DO YOU WANT TO:" :" 1) RUN AGAIN WITH A NEW MATRIX?"::" 2) RETURN TO MENU?"16:868:"WHICH ?";R$:R$"1"R$"2")::NUM0İ44000}1:ZV13}ZX1024(ZV)128G(}ZV7ZXZX984\2}ZV15ZXZX984i<}ZC039F}ZC$((ZXZC)128)P}ZC$;:ZCZ}(13);(4);"PR#0"d}I19:1:958:"PRESS SPACE BAR AFTER ENTERING EACH":"NUMBER. USE THE BACK ARRELE1:30300 v19:1:958:"PLEASE ENTER A ROW NUMBER FROM 1 TO "M".":20200:19:958:16:LELE(IN$(CI)):P1$(P1$,1,HP(A,CI)LE1)(P$,HP(A,CI)):IN$(CI)"":30030\vCI:16:(P1$,HP1);:868:1fv} DUMP ONE LINE TO PRINTER }ZV(371:HPHP(A,CI):IN$(CI)(IN$(CI),1,(IN$(CI))1):P1$(P1$,1,HPLE1)(P$,HP)Yu30030iuNEXT-BLANKvIN$(CI)""30050 v(IN$(CI))0ġ:465vP1$(P1$,1,HP1)(P1$,HP1)v16:1:P1$;:868:1 vV1(IN$(CI)):V11V1MIC(A,CI)0LuCH830100#vuCH32CH1330200@{uCH45CH57CH4730050uIN$(CI)IN$(CI)CH$:LELE1:P1$(P1$,1,HP1)CH$(P1$,HP):30030uBACKUPu(IN$(CI))0LELE1:IN$(CI)(IN$(CI),1,(IN$(CI))1):P1$(P1$,1,HP2)(P1$,HP):30030NuCICICI5)17.675Q)0uFILL-IN-BLANKS INPUT45u35000O:uP1$P$:AA1:16368,0X?uLE0jDuCI0NI(A)1yIuIN$(CI)""NuHPHP(A,CI)LEXu16:1:P1$;:868::16:HP:"?";::1buNEXT-CHARgu16384,128:CH(16384)128:16368,0:CH$(CH) l" 3X + 5/3"h:18:"X = 5/4":j:18:"Y = -2/3X - 5"Js SPACE BARhx16368,0:24:1:868:7z"PRESS ";::"SPACE BAR";::" TO CONTINUE";|16384,128:16368,0:1:868: END OF PROGRAM:D$(13)(4)D$;"RUN HELLO"ANOTHER LINE OR CHANGE THE X AND Y"S2:"INTERVALS AND SEE THE LINES REPLOTTED."b<1400::5P"THE EQUATIONS OF THE LINES MUST BE "Z:"IN THE FORM X=B OR Y=MX+B"d:"WHERE M AND B ARE INTEGERS OR FRACTIONS." f::7:"EXAMPLES: Y =1:1250.M1LMIKU279M1RMII1:12504X INSTRUCTIONS SUBROUTINE  :5:"LINE GRAPH WILL PLOT UP TO 10 LINES ON A""GRAPH. YOU SELECT X AND Y INTERVALS."::"AFTER ANY LINE HAS BEEN PLOTTED, YOU CAN"#("PLOT (D)M2TM:M1LM,H279M1RM,H:YHFI0:Y10:Y2159:Y30Y1Y3ZY3159Y2Y3zM1LMIKU279M1RM1270M1LMIKU,Y1M1LMIKU,Y2 CHECK FOR MIDPOINT PLOTK0U70I0ēM1LMIKUMP,Y12M1LMIKUMP,Y22IICK FOR MIDPOINT PLOTPxK0U70I0ēX12,M2TMIKUMPX22,M2TMIKUMP`zII1:1140nC01190M1LM,159M2BM279M1RM,159M2BMY159M2BM:1230D01220M1LM,M2TM279M1RM,M2TMYM2TM:TM9:BM0:1230$HUM1RMLM,0279M1RMLM,159M2BMDLX279M1RMLM:LM0:RM9:1120pVVU(A)M1LM:V,M2TMV,159M2BM:XV`I0:X10:X2279:X30X1X3jX3279X2X3rMPKU2tM2TMIKU159M2BM1160vX1,M2TMIKUX2,M2TMIKUw CHE:1000 IBI1:A$"":IIBIEFA$A$C$(I)::DD(A$):B(LL)NDDSX(0):q PLOT AXES SUBROUTINE LM9:BM9:RM0:TM0K1:U5K10U100K.1A01080$M1LM,0M1LM,159M2BM.XM1LM:11208B01110!B279,C(J)))P1I:P2J:P(W3(R(I),C(J)))4&*:P02120<&4:i&> RECORD ANY ROW OR COLUMN INTERCHANGES&HTR(K):R(K)R(P1):R(P1)T&RTC(K):C(K)C(P2):C(P2)T&\DDW3(R(K),C(K)):KP1DD&fKP2DD&pJC3C41&zJJ1'W3(R(K),C(J) ROW REDUCTION SUBROUTINEL% SET UP ROW AND COLUMN INTERCHANGE MATRICES e%D1:I1R3:R(I)I:}%J1C3C4:C(J)J:% MAIN LOOP TO ROW REDUCE%ER3:C3R3EC3%K1E:P0%  LOCATE PIVOT ELEMENT%JKC3:IKC3$& P(W3(R(I))W3(I,J)$v::C1C3:R1R3:>$ MOVE W3 TO W2 SUBROUTINEb$I1R3:J1C3:W2(I,J)W3(I,J)x$::C2C3:R2R3:$ MULTIPLICATION SUBROUTINE$I1R1:J1C2:W3(I,J)0$K1R2:W3(I,J)W3(I,J)W1(I,K)W2(K,J)$:::R3R1:C3C2:%J,K):::&#D$;"CLOSE ";B$(NN)::<#& MOVE W1 TO W3`#0I1R1:J1C1:W3(I,J)W1(I,J)v#:::R3R1:C3C1:#D MOVE W2 TO W3#NI1R2:J1C2:W3(I,J)W2(I,J)#X::R3R2:C3C2:#b MOVE W3 TO W1 SUBROUTINE $lI1R3:J1C3:W1(I,JD$;"OPEN ";B$(NN):D$;"READ ";B$(NN)?"K15:J010:I010S"A(I,J,K):::m"D$;"CLOSE ";B$(NN):" SUBROUTINE ARRAY TO DISK"23:15:"WRITING TO DISK":23"D$;"OPEN ";B$(NN):D$;"WRITE ";B$(NN)"K15:J010:I010 #A(I,1740:NCN:-! SUBROUTINE MOVE W3 TO A V!I1R3:J1C3:A(I,J,M)W3(I,J)::t!A(1,0,M)R3:A(0,1,M)C3:! SUBROUTINE MOVE A TO W3!C3A(0,1,M):R3A(1,0,M)!I1R3:J1C3:W3(I,J)A(I,J,M):::! SUBROUTINE DISK TO ARRAY$"ROUTINE STORAGE LOCATIONB J"ENTER STORAGE LOCATION NUMBER? ";A$d TM(A$):M0M51M(M)1640 ^:"ERROR - PLEASE ENTER A NUMBER BETWEEN 0 AND 51.":2950:1610 hN(M5.95):MM5(N1):NCNı rNC0NNN:1740:NCN: !|NNNC:1790:NNN: TERMINATION PROCEDURE06NC0NNNC:17907D$"PR#0":::10:"DO YOU WANT TO"::" 1) RUN THIS PROGRAM AGAIN?"::" 2) RETURN TO MENU"816:868:"WHICH ?";R$:R$"1"R$"2"15929(R$)1Ľ:15;D$;"RUN HELLO"@: E SUB- EIGENVALUES ***!R3C3350+ 1900e:"ENTER LAMBDA (0 TO QUIT)? ";A$:L(A$):L01330I1R3:W3(I,I)W1(I,I)LL:::2802I1R3:W3(I,I)W3(I,I)L::2010FK1R3D0P22:12:"DETERMINANT = ";D:LLL:1840:2900:130011,K)W1(1,K)W2(1,K):,W2(1,I)0:J1C3[K1I1:W3(I,J)W3(I,J)W1(1,K)W3(K,J):W2(1,I)W2(1,I)W3(I,J)W3(I,J)::I1R3:J1C3:W3(I,J)W3(I,J)(W2(1,I))::23:7:"ORTHONORMAL BASIS COMPLETED":2950:280 *** OPTION 15 2010:1840:K1R3D0C~22:12:"DETERMINANT = ";D:2900:280o *** OPTION 14 - ORTHONORMAL BASIS ***}W2(1,1)0I1C3:W2(1,1)W2(1,1)W3(1,I)W3(1,I):I2R3:K1I1:W1(1,K)0J1C3:W1(1,K)W1(1,K)W3(I,J)W3(K,J):W1(RM OF THE AUGMENTED PART":"IS STORED IN LOCATION NUMBER "(A$)L:"AND THE REDUCED FORM OF THE ORIGINAL":"MATRIX IS THE CURRENT MATRIX."V22:9:"ROW REDUCTION COMPLETED":2900:280` *** OPTION 13 - DETERMINANT ***jR3C3350t1900:W3(I,K)W1(R(I),K):W3(I,K10)W2(R(I),K)::=C401110:"ENTER A STORAGE NUMBER FOR THE AUGMENTEDPART OF YOUR MATRIX?";:" ";A$:1620$1900.I1R3:J1C4:W3(I,J)W3(I,JC3)::8CTC3:C3C4:1680:C3CT:1840?B:"THE REDUCED FO2010?:"DO YOU WANT THE MATRIX":"IN ECHELON FORM? ";A$W(A$,1,1)"N"1040o(A$,1,1)"Y"1000:"I DO NOT UNDERSTAND. ENTER YES OR NO.":2950:962I1R3:J110W1(I,J)W3(I,J):W2(I,J)W3(I,J10)::I1R3:K110.EQUATIONS? ";A$1D1:(A$,1,1)"Y"C40:960y:"ENTER NUMBER OF SYSTEMS? ";A$:C4(A$):C411C40C4(C4)940:"NUMBER OF SYSTEMS MUST BE < 10":2950:900:"ENTER CONSTANTS ONE ROW AT A TIME"IB1:IER3:JBC31:JEC3C4:23200:2950:280 RI1R3:J1C3:\W3(I,J)W3(R(I),C3J)jf::23:12:"INVERSE COMPLETED":2950:280p *** OPTION 12 - ROW REDUCE ***z SET UP AUGMENTED MATRIX IF REQUIRED :"DO YOU WANT TO AUGMENT THE MATRIX FOR":"SOLVING SYSTEMS OF TABLEAUS AND THE"7:"TERMINATION OF THE PROGRAM."G SPACE BARVD$;"PR#0"t16368,0:24:1:868:7"PRESS ";::"SPACE BAR";::" TO CONTINUE";16368,0:16384,128:NUM0İ44000:D$"PR#0":35,24::10"DOS FOUND IN"::"THE BOTTOM ROW LAST COLUMN."91500:4"AFTER ANY TABLEAU IS PRINTED, A NEW"::"TABLEAU CAN BE OBTAINED. BUT YOU, THE":"USER, MUST SELECT THE PIVOT COLUMN AND"::"THE PIVOT ROW. HENCE YOU CONTROL THE":"SELECTION OFVF"THE PROGRAM WILL NEXT PRINT THE FIRST"::"TABLEAU IN SECTIONS DEPENDENT ON THE"Z:"WIDTH OF YOUR PRINTER OR SCREEN. THE"::"OBJECTIVE FUNCTION IS LISTED WITH THE",n:"NEGATIVES OF THE COEFFICIENTS IN THE"::"BOTTOM ROW. THE VALUE OF F I THE COEFFICIENTS FOR THE X":" VARIABLES"_:" 3) THE NUMBER OF CONSTRAINTS IN AX<=B":" 4) FOR EACH CONSTRAINT, THE X":" COEFFICIENTS (INCLUDING ZEROS) AND":" CONSTANT."2:"THE X >= 0 CONSTRAINTS ARE NOT ENTERED.":1500:4E. PROGRAMS OF THE TYPE"::10)"MAXIMIZE: F = CX"o:10)"SUBJECT TO: AX <= B"::12)"X >= 0 AND B > 0":12)"(IN MATRIX FORM)":15004:"YOU MUST ENTER:"::" 1) THE NUMBER OF VARIABLES IN THE"." OBJECTIVE FUNCTION F"::" 2)980$L3K1NL3:1080'.NK1M811NK(C$))(C$,N)(C$,K);:`L7)"0.000";:sV INSTRUCTIONS`:4:"LINEAR PROGRAMS WILL SOLVE SMALL MAXIMUM"t"TYPE LINEAR PROGRAMS THAT ARE WRITTEN IN"~"STANDARD FORM."412:" I.:C(I,PC)0*:TT1:CV1:35,22:670T SUBROUTINE TO PRINT ARRAY ELEMENTS`C$(X)nX01100K1(C$):(C$,K,1)"E"ĂL1K1:(C$,L,1)"."ĂK(C$)(X)100000ĺ12(C$))C$;:K(C$)KL4XX.0001(X):$"CLOSE PRINTER":216,0:60?/ુLOOP1NUM:CMD$(LOOP):LOOP:,R".>PTYPE:PTYPE143085?.CSP,WI:SP10Ĺ802,82:818,82W.H775:769,WI:43100`.MNUM.RLOOP1NUM:CMD$(LOOP):LOOP:44000:43100.W:10:"PRINTER CAN NOT BE ACTIVATED. YOU MUST":"USE THE 'PR' OPTION IN THE HELLO PROGRAM":2910/\:DATION ON" - :"THIS PROGRAM."0-T SPACE BARN-^ 16368,0:24:1:868:7-h "PRESS ";::"SPACE BAR";::" TO CONTINUE";-r 16384,128:16368,0:::- KK11000:KK::-5 TURN PRINTER ON-943095.:D$"OPEN PRINTER":D$"READ PRINTEEDS SPACE ON YOUR DISK TO"I, :"STORE 10 ARRAYS (S1-S10). IF THEY DO"y, :"NOT EXIST ON YOUR DISK FROM A PREVIOUS", :"RUN, THE PROGRAM WILL CREATE THEM.", 2900:5, "CONSULT THE ACCOMPANYING WRITTEN" - :"DOCUMENTATION FOR MORE INFORM"0+x :"MATRIX. WHEN THE PROGRAM REQUESTS AN"a+ :"OPTION, ENTER 'LIST' IF YOU WANT A LIST"+ :"OF THE OPTIONS, 'END' IF YOU WANT TO END"+ "THE PROGRAM, OR A NUMBER 1-15 TO PERFORM"+ "A MATRIX OPERATION."+ 2900:5, "THE PROGRAM NEB$):B$" "::(A$(K))13ĺ+* :F0:I:K*( INSTRUCTIONS SUBROUTINET*2 :5h*< 17)"MATRIX":*F "CAN BE USED TO SAVE AND OPERATE ON UP TO"*P "50 MATRICES OF SIZE 10X10 OR SMALLER."*d 2900:5+n "THERE ARE 15 OPTIONS FOR OPERATING ON A)"."A$(K)"E"24204)B A$(K)","(A$(K))132430T)L (A$(K))27B$" "::2330j)V (A$(K))82430~)` KK1:K02340)j ::"PLEASE REENTER ENTIRE LINE.":KK12000:KK:CV1:958:2330)t KK1:2340)~ L1K1:B$B$A$(L):* W3(I,J)()0 ((II1:IR32230A(I1R3:IKW3(R(I),C(K))0K(::j( MATRIX INPUT SUBROUTINE( :F0:B$"":IIBIE( "ROW ";I;" ?";:CV(37):JJBJE:K1($ A$(K):A$(K);(. (A$(K))47(A$(K))582420)8 A$(K)"-"A$(K)"+"A$(K)W3(R(K),C(J))W3(R(K),C(K))I'(W3(R(K),C(J)))1.E6W3(R(K),C(J))0X'JK2170t' REDUCE ALL OTHER ROWS|'I1'IK2280'JK1C3C4'W3(R(I),C(J))W3(R(I),C(J))W3(R(I),C(K))W3(R(K),C(J))((W3(R(I),C(J)))1.E6W3(R(I),C(J)   LOOP:44000:43100zW:10:"PRINTER CAN NOT BE ACTIVATED. YOU MUST":"USE THE 'PR' OPTION IN THE HELLO PROGRAM":1502\:D$"CLOSE PRINTER":216,0:290ુLOOP1NUM:CMD$(LOOP):LOOP:EE((ZXZC)128)P}ZC$;:ZC4Z}(13);(4);"PR#0":d}Q5 TURN PRINTER ON]943095:D$"OPEN PRINTER":D$"READ PRINTER">PTYPE:PTYPE143085CSP,WI:SP10Ĺ802,82:818,82H775:769,WI:43100MNUMRLOOP1NUM:CMD$(LOOP):"18:868:"ENTER 1 OR 2? ";A$<A$"1"A$"2"1518NA$"1"Ľ:40bD$;"RUN HELLO"} DUMP ONE LINE TO PRINTER  }ZV(37)::NUM0İ44000}1:ZV1}ZX1024(ZV)128(}ZV7ZXZX9842}ZV15ZXZX984<}ZC039F}ZC$16368,0:24:1:868:7I"PRESS ";::"SPACE BAR";::" TO CONTINUE";c16384,128:16368,0y::NUM0İ44000:D$"PR#0":35,24::10"DO YOU WANT TO:":" 1) START THE PROGRAM OVER":" 2) RETURN TO THE MENU"TIVES OF THE COEFFICIENTS IN THE"::"BOTTOM ROW. THE VALUE OF F IS FOUND IN"x:"THE BOTTOM ROW LAST COLUMN. THE PROGRAM""WILL THEN DETERMINE AND PRINT THE FINAL":"TABLEAU USING THE SIMPLEX METHOD." SPACE BARD$;"PR#0"NSTANT."B2:"THE X >= 0 CONSTRAINTS ARE NOT ENTERED.":1500:4F"THE PROGRAM WILL NEXT PRINT THE FIRST"::"TABLEAU IN SECTIONS DEPENDENT ON THE"Z:"WIDTH OF YOUR PRINTER OR SCREEN. THE"::"OBJECTIVE FUNCTION IS LISTED WITH THE"Nn:"NEGA OF VARIABLES IN THE"6" OBJECTIVE FUNCTION F"q:" 2) THE COEFFICIENTS FOR THE X":" VARIABLES":" 3) THE NUMBER OF CONSTRAINTS IN AX<=B":" 4) FOR EACH CONSTRAINT, THE X":" COEFFICIENTS (INCLUDING ZEROS) AND":" CO THAT ARE"-~:"WRITTEN IN STANDARD FORM."s::" I.E. PROGRAMS OF THE TYPE"::10)"MAXIMIZE: F = CX":10)"SUBJECT TO: AX <= B"::12)"X >= 0 AND B > 0":12)"(IN MATRIX FORM)":15004:"YOU MUST ENTER:"::" 1) THE NUMBER00ĺ12(C$))C$;:<K(C$)KL4XX.0001(X):980V$L3K1NL3:1080`.NK1811NK(C$))(C$,N)(C$,K);:L7)"0.000";:V INSTRUCTIONS`:4:"LINEAR PROGRAMS 2 WILL SOLVE SMALL" t:"MAXIMUM TYPE LINEAR PROGRAMSOOP1NUM:CMD$(LOOP):LOOP:ESP,WI:SP10Ĺ802,82:818,824 H775:769,WI:43100= MNUMm RLOOP1NUM:CMD$(LOOP):LOOP:44000:43100 W:10:"PRINTER CAN NOT BE ACTIVATED. YOU MUST":"USE THE 'PR' OPTION IN THE HELLO PROGRAM":1502 \:D$"CLOSE PRINTER":216,0:290!ુL:ZV1}ZX1024(ZV)128/(}ZV7ZXZX984D2}ZV15ZXZX984Q<}ZC039iF}ZC$((ZXZC)128)wP}ZC$;:ZCZ}(13);(4);"PR#0"d}5 TURN PRINTER ON943095:D$"OPEN PRINTER":D$"READ PRINTER">PTYPE:PTYPE143085 C YOU WANT TO:"6:" 1) START THE PROGRAM OVER"Z:" 2) RETURN TO THE MENU"}18:868:"ENTER 1 OR 2? ";A$A$"1"A$"2"1518A$"1"Ľ:40D$;"RUN HELLO"} DUMP ONE LINE TO PRINTER }ZV(37)::NUM0İ44000}1wpg_X_nvW_{]_~nwoo|?o?x?o~_}?@{?|c@ooo}}`|a?l?~gO~n~{z{fn{{on{_ |~?_?|k{o;_ow[o_?~{ox? }xc?[}>_o~[mw{ow_?X_{{?ww~_>wv{w?o@?x?~>{m?_Uv^G_@X~nx1{~?G wpO_X_lfW_{_>fwooq?o           gxs_X_nfWO{]_>nwOo?~?o?x?ocO}{o_nn~{v{nn{{wn{O0?~}~?_qwlw`\o<>@ox?a@}xx?_}>``{mw{ow?p?8o{;?o{~_}~.wvsw?o@G?xx>{m?_mv^??`@?`@?W~v[k>w-w.{~?> x`\o_{       wxo?~_|pn6|Xg]_cnw_opg?xw~xA?o/wu>o{{^o_k~s}wg?|{_ox<@}~??|_Oox?g}xG?_}>_o~{mw{ow{o?go?~o@|?p>{m?_}v_?ppx?X_~zoo>{k/?{~?~>{o7owoWz~ox_8onV;W[]_]nw_ox?|g?~xc?oox p|ao?lxg}sO{_qq~{nqan{`xq`o88`}~?~~gox?O}x~?_>_o~{ p{owo?|p{{@|~?~~1wvwg?o@q?|C>{m?_}~?@~`?@_O~zog>{K/{~??~>{o7_ow[oOy    ң|xA?ooo}@@?Wt?~Ox?x|}?_}>_o{mw{x`ow[m_{wsownw_opq?xg~xA?oOoy]_{??oogO{}qqpnpqan`{qq{wqq`}Oox>?|}?~?xp~@|_>?7{ox?s}|q?_}>_o~{mw{ow[o?oo~o@_~{~?g]{m?_}v_?~~~?~PO>zog>{k/{~?|>{o7ow[n_{   ȱ` T ` uS `ȍ T T) 0G T Ѝ T " T T  ڍ T&1 T TЫ T T8` T T T`LwS T T8`LS[T\Tij[T\Tkl8`iiLTȱTS  TZ T ` uS `ȍ T T) 0G T Ѝ T " T T  ڍ T&1 T TЫ T T8` T T T`LwS T T8`LS[T\Tij[T\Tkl8`iiLTȱ ox?>pp}xO?U;?_o~+]{{ow[?X_{{@ww~_>?wvyx?o`}?__`_@_~{~?p_0G~~?]{o}_ow[g_{wgog?wox?o@?~?x>{m?_9v^}xA?ooo}];?oogy{s~nnun{~n{{nn{w?~oxp67\_{]qcfoxG?G|}x?NW?_o~s<}{ow[o?X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~??~wp`}x_xs~xXc{o~_ow[k_{wwoO?w{nsox|?xO>n?_}x^    膢 ȱ " <67 L  8ij v vo>"POWER, EXPONENTIAL, OR POLYNOMIAL","FUNCTION."R"LINE GRAPH",LINGRAPH\ "PLOTS UP TO 10 LINES ON A SINGLE","SCREEN.""SUCCESSIVE APPROXIMATIONS TO A ROOT"N"OF A DIFFERENTIABLE FUNCTION."i "INTEGRATION",NUMINT"CALCULATES VARIOUS NUMERICAL" "APPROXIMATIONS OF A DEFINITE","INTEGRAL."! "MULTI-INTEGRALS",MULTINT ""CALCULATES A NUMERICAL APPR3"ANY REAL POLYNOMIAL OF DEGREE 32 OR","LESS."J "NEWTON 1",NEWT1u"USES NEWTON'S METHOD TO CALCULATE A""SINGLE APPROXIMATION TO A ROOT OF A""DIFFERENTIABLE FUNCTION." "NEWTON 2",NEWT2"USES NEWTON'S METHOD OF FINDING")N OR POLAR"1"COORDINATES USING EQUATIONS IN"U"STANDARD OR PARAMETRIC FORM."u "FUNCTION LIMITS",LIMFCTN"INVESTIGATES THE LIMIT OF A FUNCTION""OF TWO VARIABLES.","" POLYROOT,POLYRT "CALCULATES REAL AND COMPLEX ROOTS OF"1:!/14:"DESCRIPTIONS":34,4'2G4T1N1:(37)18İ20500:X6N$(T,0)" -"9C24:N$(T,C)""N$(T,C)" "835>" "N$(T,C):CC:T:20500H::200"MATHEMATICS VOLUME 4",13 GRAPH,GRAPH "PLOTS CURVES IN CARTESIAX$(VX$,1)K lVX$"Y"ė:10:9:"INSERT THE NEW DISKETTE.":20500::720] vVX$"N"610j ::255p  A(999)(1000)256 B(A)(A1)256 CS(B1)16:SLOT # CS1CS7CS6 (4)"PR#"CS  DESCRIPTIONS*:34,)520 (ZN$)0ZN$"0"5405 ZN$"PR"ZN0:r 958:ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:550:500 ZM:868:CV1(CV23):ZN(ZN$): &CV1:36,CH:868: X: b10:1:"DO YOU WANT TO RUN ANOTHER"::"DISKETTE";:868:VX$:VZN0İ3000::200 QZN. Q0QN2470r 958:20:1:"PLEASE ENTER A NUMBER FROM 1 TO "N1".":17:280 QN800 QN1600 ::10:"GETTING "N$(Q,0)"..." D$;"RUN ";N$(Q,1) CH(36):CV(37) "";ZN$:(ZN$)(((ZN$)) IF DOUBLE SPACING WANTED, CHANGE TO 'PRINT'A TN1Ģ(37)2N N7270d T((N3)2)ĢVV| T:(1023)123280 J1(16384)128:J10JJ1:J300275 16368,0:1023,123 18:2:"WHICH NUMBER? ";:868 16303,0 "490 ,T$,N:NN1:N$(N1,4)^ xT1N1:C04:N$(T,C):::N$(N,0)"DESCRIPTIONS":N$(N1,0)"END "u 1:20(T$)2:T$ VV4(N17) 2:11:"AVAILABLE PROGRAMS":VV T1N1 N7Ė10:250 2TN3Ė20 T10ĺ" "; T" "N$(T,0)- M HELLOVERSION D-1.0>LAST UPDATE: 81/01/18 AWMR(C) MECC 1980X :j 22016:16384|D$(13)(4):::255:(1023)123100::16303,0:D$"BLOADLOGO":16302,0:16304,0:16368,02D$"NOMON CIO"dZM24 n:          :BBR:16000$RDC:A$"D"DDR:CCR:1600N.A$"U"DDR:CCR:1600f8P(BA)2:Q(DC)2BA$"S"R(DC)2:DRQ2:CRQ2:R(BA)2:BRP2:ARP2:1600LA$"E"R(DC)2:DRQ2:CRQ2:R(BA)2:BR2P:AR2P:1600RV:1:"DOD(D.9999):ZF1CD 590(Q1:R1R10ıVR1RR10:QQ10:990mRR10:QQ10:990{S3FA1:46016368,0:24:"PRESS U,D,L,R,S,E, OR 'SPACE BAR'";:A$::E$""RBA:A$"R"AAR:BBR:1600 A$"L"AARRU158U158)\W,U1V,U1:W,UV,U_fJ:J0DQ:U159(CJ)(DC)159:U0U159910npCJ0910zU158U158W,U1V,U1:W,UV,UJ:C9999:D9999:TLL:F1TT1:80:YCCYYDDYTUL930F0:C(C):C1000)1000;" TO ";(D1000)1000;" SCALE = ";QV KA:X0:JABP:KKP:J0XKP|J:Z5(AX)(BA)279:Z50Z50 Z5279Z5279*WZ55:VZ55:W0W04V279V279>J0CQ:U159(CJ)(DC)159:U0U159870HCJ08705:VZ65:W0W0#V159V159SJ0AP:U(AJ)(BA)279:U0U279730dU278U278~U1,WU1,V:U,WU,VJ:J0BP:U(AJ)(BA)279:U0U279760U278U278U1,WU1,V:U,WU,VJ023:868:23:"VER: ";(9:Z51,0Z51,159l3:160DvR(BA)2:980:PQ:R(DC)2:98022:868:22:"HOR: ";(A1000)1000;" TO ";(B1000)1000;" SCALE = ";PKC:Y0:JCDQ:KKQ:J0YKQJ:Z6159((CY)(DC)159):Z60Z60Z6159Z6159WZ6FA1570R0"INPUT YOUR EQUATION FOR Y? ";F2$:TT$F$:F$F2$:1370:F2$F$:F$TT$:21:M2:958:F2$:M(F2$):Z$F2$:L2366:20DE$"N"920N16304,0:2:630:TLLH:G0X(C)(D)ē0,Z6279,Z6:0,Z61279,Z61b(A)(B)ēZ5,0Z5,159)")*COS(T)":L2289:20MZ$"Y=("(A$,3,M9)")*SIN(T)":L2366:20:580iM3:Z$"X=T":L2289:20M(A$):Z$"Y=":I3M:(A$,I,1)"X"(A$,I1,1)"P"Z$Z$"T":540Z$Z$(A$,I,1)I:L2366:20:580&M(F$):Z$F$:L2289:20 (UMBER OF PLOT POINTS (> 49)?";N:N504209H(ULLL)NGFA146023:"INPUT YOUR EQUATION ";:S3Ą"FOR X? ";F$:1370:460F$:137090::21:F$:S3550A$F$:(A$,2,1)"^"ZF1:1360S1510M(A$)9:Z$"X=("(A$,3,MAB340 hS1ULBZ r13:"DO YOU WANT THE LIMITS COMPUTED?";A$:(A$,1,1)"Y"400 |15:"EQUAL SPACING?";A$:(A$,1,1)"Y"1260 E$"N":420 17:958:"MINIMUM VERTICAL Y VALUE?";C 19:"MAXIMUM VERTICAL?";D:CDCD400)21:"N0 +310 ,FL0::62450s 6:3:"INPUT GRAPH TYPE:":" 1 - CARTESIAN":" 2 - POLAR":" 3 - PARAMETRIC" @S:S1S3S(S)310 JS11170 OFL1420 T9:"MINIMUM HORIZONTAL X VALUE?";A:S1LLA ^11:"MAXIMUM HORIZONTAL?";B:0< "DO YOU WANT INSTRUCTIONS? ";A$::(A$,1,1)"Y"289e (4)"PR#0":(4);"BLOAD CHAIN,A520"v 520"GRINST" !8192:I768777:Y:I,Y:I: 104,168,104,166,223,154,72,152,72,96:90 "O$"+-*/^>=<":L$"SGNINTABSSQRRNDLOGEXPCOSSINTANATN":139:80 U(XA)(BA)279= TULZF1TLL:G0:ZF0:1290L TUL1030g TULİ90:22016:1500 U0U279G0:160 V159(CY)(DC)159:V0V159G0:160 CY0G0:160 G0ēU,V:G1:160 U,V 160 ::33,40::1::::::::::::::::::::::::::::::::::::::::::::::::::::::::: PYT:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ZI22892359:I,58: dI23662436:I,58:: x NAME: POLYGRAPH VERSION 10/22/79 TUL190 TTH:70* 280: SEE LINES 110-160 FOR REMARKS^I1M:J010:(Z$,I,3)(L$,3J1,3)ĂJ:40L,(210J(J2)5):II2:LL1:I(J07:(Z$,I,1)(O$,J1,1)ĂJ:602L,(200J(J4)2):LL1:I<L,((Z$,I,1)):LL1:I:: FXT:::::::::::     ION EVALUATION ROUTINE/}P TODD BAILEY, MECCEP (C) MECC, 1980MP P ROUTINE EXPECTS BINARY 'TAPA' TO BE AT 21332 ($5354)P ZZ$ = F(X)PPZX$:ZX$"*SRESET*"20622PZI09:ZX:768ZI,ZX:: *SRESET*,166,223,154,169,216,7T FUNCTION"+:" 3) RETURN TO MENU"S$20:958:"ENTER 1, 2, OR 3? ";AA$x.AA$"1"AA$"2"AA$"3"10608AA$"2"28BAA$"3"ĺD$;"RUN HELLO"LNUM0İ44000V:"ENTER FUNCTION OF X AND Y.":3:" F = ";Z1$:398xP EQUATRESS ";::"SPACE BAR";::" TO CONTINUE";H16384,128:16368,0::nD$"PR#0"::10:"DO YOU WANT TO":" 1) USE THE SAME FUNCTION WITH A"" DIFFERENT PATH":" 2) RUN THE PROGRAM AGAIN USING A" " DIFFERENTER THE PATH"9>:"FUNCTION AND THE POINT YOU WISH TO"iH:"CONSIDER IN THE DOMAIN. THE PATH MUST"R:"BE OF THE FORM"\::10:"Y = ...FUNCTION OF X"f:6:"OR X = ...FUNCTION OF Y" SPACE BAR16368,0:24:1:868:7*"P0BG160690-TB:40:ER0AG160hER0:22:"THE POINT "A","B" IS NOT ON THE PATH.":360r1000 INSTRUCTIONS :3:"FUNCTION LIMITS WILL SEARCH FOR A LIMIT"*:"OF ANY FUNCTION OF X AND Y." 4::"YOU WILL BE ASKED TO ENOACH (";A;",";B;") FROM THE":" RIGHT (OR ABOVE)":" 2) APPROACH (";A;",";B;") FROM THE":" LEFT (OR BELOW)"20:958:"ENTER 1 OR 2? ";AA$AA$"1"AA$"2"645S1:AA$"2"S1VA:FL1VB:680 TA:40:ERN IS TOO LONG.":530W"SORRY, THAT FUNCTION ISN'T FORMED":"CORRECTLY. TRY AGAIN."oKK11500:KK:41010:958:"ENTER POINT (A,B)? ";P1$,P2$:A(P1$):B(P2$)(A)P1$(B)P2$64012:958:"DO YOU WANT TO"8:" 1) APPR$,3)  CONVERT Y AND X TO T0ZZ$ZZ$" "ELOOP3(ZZ$)1(ZZ$,LOOP,1)"Y"((ZZ$,LOOP,1)"X"(ZZ$,LOOP1,1)"P")ZZ$(ZZ$,1,LOOP1)"T"(ZZ$,LOOP1)LOOP30000:TT2:20600ZO064011:ZO255ĺ"SORRY, THAT FUNCTIO":A$"":B$"":BB$""`5:"ENTER THE PATH FUNCTION AS":"Y = ...FN OF X OR X = ...FN OF Y."8:958:" ";Z2$:Z2$""410ZZ$Z2$:30000(ZZ$,2)"Y="(ZZ$,2)"X="410(ZZ$,2)"Y="FL0(ZZ$,2)"X="FL1ZZ$"G="(ZZ Y.", 3:958:" F = ";Z1$:Z1$""392P ZZ$"F="Z1$:30000:TT1:20600^ ZO0398 6:ZO255ĺ"SORRY, THAT FUNCTION IS TOO LONG.":397 "SORRY, THAT FUNCTION ISN'T FORMED":"CORRECTLY. TRY AGAIN." KK11500:KK:392SW0:G$"0000000270 170(  CONCLUSIONSf :10:"A LIMIT CANNOT BE FOUND ON THIS PATH.":970:1000 T:10:"THE LIMIT OF YOUR FUNCTION ";Z1$::"ALONG THE PATH ";Z2$;" IS ";F h970:1000 | DATA AND PATH INPUT :"ENTER FUNCTION OF X ANDUPDATE: 12/17/81 RPB/ LOOP TO FIND LIMITQ K10:23:17::"COMPUTING":_ H911 TVHSK:40:ER1ER0:220 YG:XT:FL1XG:YT 90:SW0SW1:220 (FFO)1E06340 FOF::240 216,0:768:: KK10:K100UTINE Z230 [1006 \Z1(121)256(122)35: dFXY:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::216,0: x LIMFCTN 7/1/80 FP AUTHOR: BEVERLY DURKEE AUGSBURG COLLEGE  LAST YOU WANT TO USE THE PRINTER? ";A$:(A$,1)"Y"43065= 390U  PATH SUBROUTINE^ (70f )50 *Z1(121)256(122)35: 2G1:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::216,0: F216,0:ER1: P FUNCTION SUBRO2D$(13)(4):21332:D$;"BLOAD TAPA,A$5354"wZ109:ZX:768Z1,ZX:: 166,223,154,169,216,72,169,34,72,96  R$(13)::33,4010:"DO YOU WANT INSTRUCTIONS? ";A$:A$(A$,1)A$"Y"A$"N"20A$"Y"İ8004 :10:"DO           :NUM0İ44000(ZV2:9} DUMP ONE LINE TO PRINTERV }ZV(37)::NUM0İ44000c}1:ZV1x}ZX1024(ZV)128(}ZV7ZXZX9842}ZV15ZXZX984<}ZC039F}ZC$((ZXZC)128)P}ZC$;:ZCZ}(13);(4);"PR#0"d}5 TURN PR.":810:10000'((ZC$,1)"-"10400j(HCOUNT2:958:"- ";(ZC$,(ZC$)1);" ";(TERM$,(TERM$)1);v(HTHT1(HCOUNTHCOUNTHT(TERM$)(DEG110450(HCOUNT:" + ";(HCOUNTHCOUNT3(HCOUNT30İ32000:HCOUNT9(DEG(32000THT1<(A$;" ";A$;TERM$;1F(958:HCOUNTHTSP(((ZC$,(ZC$),1))46REAL0gZ((ZC$)110090d(ZC$(ZC$,(ZC$)1)n(10100x( COEFFICIENT COMPLETE(" ";(XC(DEG)(ZC$)(XC(M1)0ĺ:10:"COEFFICIENT OF FIRST TERM CAN NOT BE 0100'A13A3210360''A810280A'A45A47A5710100['A45(ZC$)010100r'A46REAL110100'A46REAL1'HCOUNTHT'HTHT1'A$;TERM$;(HCOUNTHT (ZC$ZC$A$(10100( BACKARROW(((ZC$)1100902(HOUNT9$'DEGM1111.'TERM$"?X^"(DEG1):8'HT0FB'HCOUNTRL'TERM$;^V'HCOUNTt`' CHARACTER INPUTj'ZC$"":REAL0t'16368,0~'A$'A(A$)' CHECK FOR VALID INPUT'(A13A32)(ZC$)010100'(A13A32)ZC$"-"100İ44000H10:' END OF PROGRAM;D$;"RUN HELLO"S ERROR CALCULATION$:10:"AN OVERFLOW HAS OCCURRED WHILE TRYING TO":"SOLVE YOUR POLYNOMIAL.".810:682' COEFFICIENT INPUT ROUTINE'D$;"PR#0"'3:958:"P(X) = ";'HC:"OF DEGREE 32 OR LESS USING NEWTON-"Q:"RAPHSON ITERATIVE TECHNIQUES."^800::n  SPACE BAR}%D$;"PR#0"*16368,0:24:1:868:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";416384,128:16368,0:1:868>22:40::NUMϺ"WOULD YOU LIKE TO"9:" 1) RUN THIS PROGRAM AGAIN"V:" 2) RETURN TO MENU"15:958:"ENTER 1 OR 2? ";A$:A$"1"A$"2"686:(A$)22,10003:"POLYROOT WILL LOCATE ALL REAL AND":"COMPLEX ROOTS FOR ANY REAL POLYNOMIAL"*OOTS OF THE POLYNOMIAL:":<"REAL PART"8)"COMPLEX PART"J34,(37)WP1MNl(37)20İ800:RR(P)," "RI(P)P:N0680:"NO FURTHER ROOTS CAN BE ":"FOUND BY THIS ROUTINE."800D$"PR#0":216,0:34,0::932(M)A$470> :"ENTER COEFFICIENTS (INCLUDING ZEROS)"^ 10000: INPUT COEFFICIENTSk 0CV(37) :23:15:868:"COMPUTING" D1060 F50 X37,CV:958 lNMĺ:"NO FURTHER ROOTS CAN BE ":"FOUND BY THIS ROUTINE.":680v:" RL2N:CO(L1)CO(L1)ALCO(L)SSCO(L1):C RI(N2)Y:RR(N2)X[ (Y)1E8RI(N2)0s (X)1E8RR(N2)0 N2N21 SS0450 YY:SS0:420 N080  :"ENTER DEGREE OF POLYNOMIAL (32 MAX)"; "? ";A$:M(A$):M(M)MTEXC(KJL1):XC(KJL1)CO(L):CO(L)TE:G ,ITN:NNX:NXIT:IZ0110P @350] JIZ090k TXXP:YYPt ^IZ0 h((Y)(1E4(X)))0390 rALXX:SSXXYY:NN2:400 |X0:NXNX1:NYNY1 Y0:SS0:ALX:NN1 CO(2)CO(2)ALCO(1)- XT:UUTEX2:VVTEY2E UXUXIXTTE:UYUYIYTTE:XTX2:YTY2:b SSUXUXUYUY:SS0330 DX(VUYUUX)SS:XXDX DY(UUYVUX)SS:YYDY ((DY)(DX))1E5290 ICIC1:IC500130 IZ0290 IN590 ) "L1NY:1)"Y"43065 470: 2IZ0:NM:NXN:NYN1:N21:KJN1Y FL1KJ:CO(KJL1)XC(L):b PIN0~ ZX.1000101:Y.0500101 nIZ1:XPX:YPY xIC0 UX0:UY0:V0:YT0:XT1:UCO(N1):U0380 I1N:LNI1:TECO(L):X2XXTYYT Y2XYTYy POLYRT 6/1/80 FP> AUTHOR: BEVERLY DURKEE` AUGSBURG COLLEGELAST UPDATE: 12/17/81 RPBXC(34),CO(34),RR(33),RI(33):D$(13)(4)::33,40:690 :10:NUM0:"DO YOU WANT TO USE THE PRINTER? ";A$:(A$,      2 OR 3? ";A$0A$"1"A$"2"A$"3"43026D:A$"3"43045T A$"2"232f!NUM0İ44000t"560:300%22016*(1023)123Ā4D$;"RUN HELLO"5 TURN PRINTER ON943095:D$"OPEN PRINTER":D$"READ PRINTER" >PTYPE:P"Z1$(Z1$,1,ZI1)(Z1$,ZI1):ZIZI/DuZI:G END OF PROGRAM YD$"PR#0"::s 10:"DO YOU WANT TO" :" 1) TRY ANOTHER INITIAL APPROXIMATION"" 2) TRY ANOTHER EQUATION":" 3) RETURN TO MENU" 18:958:"ENTER 1,2X1:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::`PZ1(121)256(122)35:PD2X2:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::PZIZ1Z169:ZI,58::8,69:0uZ1$""ı%:uZI(Z1$)11:(Z1$,ZI,1)" UM BYTES TO POKE.*PZO(9): ERROR FLAG7PZO0ıCP20654dPX1:TT20665,20668:216,0:P216,0:ZP(222):ZO128(ZP69ZP53ZP133ZP191)255(ZP191):768:P DO NOT CHANGE NEXT TWO LINESPZ1(121)256(122)35:BPFX220667:206706PH(X)(X256):L(X)X256(X256)P6,L(Z1):7,H(Z1): LOW AND HIGH BYTES OF THE STARTING LOCATION TO POKE LINEP21332: PARSE STRING AND POKE INTO LINE 20665. 6, 7 SHOULD HAVE THE LOCATION TO START POKING, 8 HAS THE MAXIMTINE}P TODD BAILEY, MECC1P (C) MECC, 19808P sP ROUTINE EXPECTS BINARY 'TAPA' TO BE AT 21332 ($5354)P "ZZ$" IS EQUATION, "ZF=1" - DON'T ERASE EQUATIONP:ZI09:ZX:768ZI,ZX:: 166,223,154,169,216,72,169,34,72,96 PTT20660,ORMED PROPERLY."::"TRY AGAIN.":540r0958:20:"INITIAL ROOT APPROXIMATION? ";A$:X(A$):958:(X)A$560z::N24:868:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";X16384,128:16368,0::xP EQUATION EVALUATION ROU)16:868:" D = ";F2$:F2$""540IZ1$"D="F2$:30000:F2$Z1$a&ZZ$F2$:TT2:20600(ZO255Ģ16:958:18:(7)"SORRY, BUT THE DERIVATIVE WAS TOO LONG."::"TRY AGAIN.":540%,ZO128Ģ16:958:18:(7)"SORRY, YOUR DERIVATIVE WAS NOT F958:18:(7)"SORRY, BUT THE FUNCTION WAS TOO LONG."::"TRY AGAIN.":520ZO128Ģ9:958:18:(7)"SORRY, YOUR FUNCTION WAS NOT FORMED PROPERLY."::"TRY AGAIN.":52012:"ENTER THE DERIVATIVE OF F IN THE FORM"::" D = ...DERIVATIVE FUNCTION"* :"APPROXIMATION TO THE ROOT OF THE"= :"FUNCTION."H 590: 5:"ENTER THE FUNCTION IN THE FORM"::" F = ...FUNCTION OF X" 9:868:" F = ";F1$:F1$""520 Z1$"F="F1$:30000:F1$Z1$ ZZ$F1$:TT1:20600I ZO255Ģ9:ɰ590:43000 C :5:"NEWTON 1 USES NEWTON'S METHOD TO FIND"t :"APPROXIMATE ROOTS TO ANY DIFFERENTIABLE" :"FUNCTION. YOU WILL BE ASKED TO ENTER A" :"FUNCTION AND ITS DERIVATIVE. YOU WILL" :"ALSO BE ASKED TO ENTER AN INITIAL"CV18CVCV2 35,24:21:958:"WOULD YOU LIKE ANOTHER"::"APPROXIMATION (YES OR NO)? ";A$:A$(A$,1):A$"Y"A$"N"420 A$"N"43000 D0XXFD:380 :21:(7)"THE DERIVATIVE IS ZERO. NO FURTHER":"APPROXIMATIONS CAN BE FOUND.":-----------"29)"-----"& @34,8:CV8> JA(X)(((X))2)O |216,0:390t ~20665:20668:216,0:35,18:400 216,0:768::21:958 "NO FURTHER APPROXIMATIONS ARE POSSIBLE.":590:43000 CV::11A(X):X;:31A(F):F:CVCV2:1 NSTRUCTIONS? ";A$:A$(A$,1)5 A$"Y"A$"N"200F A$"Y"İ500 :10:NUM0:"DO YOU WANT TO USE THE PRINTER? ";A$:(A$,1)"Y"43065 :510 ,1:" "F1$:3:" "F2$:5:9:"ROOT"27)"FUNCTION":5:"APPROXIMATION"29)"VALUE" 65:"--0  NEWT1+LAST UPDATE: 12/17/81 RPB1l(AUTHOR: BEVERLY DURKEE, AUGSBURG COLLEGE2 (C) MECC, 1980< USES TAPA,A$5354,L$109 F:d21332:D$(13)(4)nD$"BLOAD TAPA,A$5354":::255 10:"DO YOU WANT I     ECTS BINARY 'TAPA' TO BE AT 21332 ($5354)aP "ZZ$" IS EQUATION, "ZF=1" - DON'T ERASE EQUATIONP:ZI09:ZX:768ZI,ZX:: 166,223,154,169,216,72,169,34,72,96 PTT20660,20667:20670PH(X)(X256):L(X)X256(X256)@P6,L(Z1):7,HS? ";A$:N(A$):958:255:(N)A$5700D:yN24:868:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";X16384,128:16368,0::xP EQUATION EVALUATION ROUTINE}P TODD BAILEY, MECCP (C) MECC, 1980P )P ROUTINE EXP LONG."::"TRY AGAIN.":540,ZO128Ģ16:958:18:(7)"SORRY, YOUR DERIVATIVE WAS NOT FORMED PROPERLY."::"TRY AGAIN.":5400958:20:"INITIAL ROOT APPROXIMATION? ";A$:X(A$):958:(X)A$560(:20:958:225:"MAXIMUM NUMBER OF ITERATIONIN.":520]12:"ENTER THE DERIVATIVE OF F IN THE FORM"::" D = ...DERIVATIVE FUNCTION"16:868:" D = ";F2$:F2$""540Z1$"D="F2$:30000:F2$Z1$&ZZ$F2$:TT2:20600(ZO255Ģ16:958:18:(7)"SORRY, BUT THE DERIVATIVE WAS TOO = ";F1$:F1$""5204 Z1$"F="F1$:30000:F1$Z1$L ZZ$F1$:TT1:20600 ZO255Ģ9:958:18:(7)"SORRY, BUT THE FUNCTION WAS TOO LONG."::"TRY AGAIN.":520 ZO128Ģ9:958:18:(7)"SORRY, YOU FUNCTION WAS NOT FORMED PROPERLY."::"TRY AGASKED TO ENTER AN INITIAL"C :"APPROXIMATION TO THE ROOT OF THE"s :"FUNCTION AS WELL AS THE MAXIMUM NUMBER" :"OF ITERATIONS TO BE PERFORMED." 590: 5:"ENTER THE FUNCTION IN THE FORM"::" F = ...FUNCTION OF X"9:868:" FFTER "NN" ITERATION(S).":* 590:43000\ :5:"NEWTON 2 USES NEWTON'S METHOD TO FIND" :"APPROXIMATE ROOTS TO ANY DIFFERENTIABLE" :"FUNCTION. YOU WILL BE ASKED TO ENTER A" :"FUNCTION AND ITS DERIVATIVE. YOU WILL" :"ALSO BE A14:"NO FURTHER APPROXIMATIONS ARE POSSIBLE.":420K (F)1E6İ418:420 D0İ418:14:"THE DERIVATIVE IS ZERO. NO FURTHER"::"APPROXIMATIONS ARE POSSIBLE.":420 X1X:F1F:XXFD:NN:NNNN1:418:420 9:11A(X):X;31A(F));F:12:"A----------"29)"-----". JA(X)(((X))2)A rNN0N:F1E10R |216,0:390p ~20665:20668:216,0:400 216,0:768::21:958 NN0F1E10Ģ9:11A(X):X:12:(7)"FUNCTION VALUE TOO LARGE.":420 F1E10NNNN1:XX1:FF12 418:STRUCTIONS? ";A$:A$(A$,1)4 A$"Y"A$"N"200E A$"Y"İ500 :10:NUM0:"DO YOU WANT TO USE THE PRINTER? ";A$:(A$,1)"Y"43065 :510 ,1:" "F1$:3:" "F2$:5:9:"ROOT"27)"FUNCTION":5:"APPROXIMATION"29)"VALUE" 65:"---  NEWT2+LAST UPDATE: 12/16/81 RPB1l(AUTHOR: BEVERLY DURKEE, AUGSBURG COLLEGE2 (C) MECC, 1980<F USES TAPA,A$5354,L$109d21332:D$(13)(4)nD$"BLOAD TAPA,A$5354":::255 10:"DO YOU WANT IN