' +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*`T$)5#Q1000,2200,2300,1500,1600,1700,1800,22,1900?T$90009800,22,1900XT$9000,1800,22,1900sT$9000E000 : SET";Q$;"ROOTS,MAXIMA,MINIMA";Q$;" FLAG":\#4);"7 : REVIEW EQUATION TO BE PLOTTED":|#4);"8 : START PLOTTING":#4);"9 : END":#22:" YOUR CHOICE ?":35:22:T$:T$:Q(T$)#Q1100,2200,2300,1500,1600,1700,1800,100,1900T$9C#11);"NUMERICAL ANALYSIS";40);" ":MF#4);"1 : SET RANGE FOR X & Y":uZ#4);"2 : SET INTEGRAL PLOT FLAG":d#4);"3 : SET DERIVATIVE PLOT FLAG":n#4);"4 : SET X AXIS PLOT INCREMENT":x#4);"5 : SET";Q$;"GRID";Q$;" FLAG":-#4);"6000 : SET";Q$;"ROOTS,MAXIMA,MINIMA";Q$;" FLAG":\#4);"7 : REVIEW EQUATION TO BE PLOTTED":|#4);"8 : START PLOTTING":#4);"9 : END":#22:" YOUR CHOICE ?":35:22:T$:T$:Q(T$)#Q1100,2200,2300,1500,1600,1700,1800,100,1900T$9C#11);"NUMERICAL ANALYSIS";40);" ":MF#4);"1 : SET RANGE FOR X & Y":uZ#4);"2 : SET INTEGRAL PLOT FLAG":d#4);"3 : SET DERIVATIVE PLOT FLAG":n#4);"4 : SET X AXIS PLOT INCREMENT":x#4);"5 : SET";Q$;"GRID";Q$;" FLAG":-#4);"6"EQUATION ANALYZED" 210" 25UTILITIESB4100:PR#0n23:"HIT ANY KEY TO CONTINUE";39);" "|F3İ4110A$:A$D$;"PR#0":" ":D$;"PR#";PS:" ":(#5MENUE2#<#:12);"SPECTRUM SOFTWARE";40);" "A#2(EQ. PLOT ";D15SET DERIVATIVE PLOT FLAG; :10i "PLOT THE DERIVATIVE (Y/N) ";:A$:A$ F10:A$"Y"F11 F12350$ "DERIVATIVE SCALE FACTOR") "RELATIVE TO EQ. PLOT ";C.  5LIST EQUATION 4110:PR#PS 8);NT$ X!l5END OF PROGRAMMm:20:1:"END OF NUMERICAL ANALYSIS":n5SET INTEGRAL SUM PLOT FLAGx:10"PLOT THE INTEGRAL SUM (Y/N) ";:A$:A$F20:A$"Y"F21F22250"INTEGRAL SUM SCALE FACTOR" "RELATIVE TO "Y"F31%5CURRENT EQUATION/ :10U "CURRENT EQUATION TO BE PLOTTED"^210"IF YOU WISH TO CHANGE THE EQUATION"&"EXIT THE PROGRAM , THEN TYPE 51 THEN"0"YOUR EQUATION. THEN RUN THE PROGRAM"::"HIT ANY KEY TO RETURN"LE(A$)!(LE)DX(A$):1505'?@5SET THE GRID FLAGIJ:10uT"SET THE GRID FLAG (Y/N) ";:A$:A$^FLAG0:A$"Y"FLAG1h5FLAG PRINTED OUTPUT:10"PRINTED OUTPUT TO PRINTER (Y/N) ";A$:A$:F30:A$= ";28);XS>(QL2):"MAXIMUM PLOT VALUE FOR X = ";28);XLq(QL4):"MINIMUM PLOT VALUE FOR Y = ";28);YS(QL6):"MAXIMUM PLOT VALUE FOR Y = ";28);YL5SET X AXIS INCREMENT:QL:"X AXIS PLOTTING INCREMENT = ";DX;" ";:A$LE)1149#eI1131,1132,1133,1134-j1149@kXS(A$):1145SlXL(A$):1145fmYS(A$):1145ynYL(A$):1145yI4İ1200z}~XR(XS)(XL)A279XRYR(YL)(YS)B159YR :QL:"MINIMUM PLOT VALUE FOR X :10);"MAXIMA AND MINIMA";40);" ":I"NO. ";5);" Y";20);" X"UR1CTuR;5);YM(R,0);20);YM(R,1){T$4100:PR#0L5SET RANGE FOR X & YQ1200:LIST VALUESVI14[(102(I1)):35:A$:LE(A$)`(#"INTEGRATION INTERVAL OF ";DXT"THE INTEGRAL FROM ";XS;" TO ";XL;" = ";SUM^4000o 5PRINT PG#2u!}%:*/:10);"ROOT LOCATIONS";40);" ":4R1T:"ROOT(";R;") = ";;ROOT(R):940005PRINT PG#3:'T INTREGRATION SUMF16002L0L159620?1:XX,L[X5PLOT DERIVATIVE SLOPEhYF2620{]I(YLDSUM)BbI0I159620g2:XX,Il5PRINT PG#14000:::12:F3İ3000"USING TRAPEZOIDAL INTEGRATION AND AN"LB11277,YLB4- r270,YLB4277,YLB11< w2,104,13K |8,104,13Z 4,174,13g 5PLOT Yw XXSXLDX 200 XX((XS)X)A L(YLCSL)B YY(YLY)B XX279705 YY159620 XX0YY0620 3:XX,YY5PLOM1:YM(CT,0)YM1SL OLSSL$ 1 ,5H GRIDG 1::3:FLAG355W 6R028028h ;R280R279y @R,0R,159: E5V GRID FG016016 JG160G159 O0,G279,G: ^5BORDER c0,YLB279,YLB h(XS)A,0(XS)A,159 m270,Y 5NEW INTREGRATION SUM9 SUMSUMDXYHDX(YYH)P5B 150Z 5NEW ZERO CROSSINGo (YH)(Y)ī250 TT1:ROOT(T)XDX(Y(YYH)) 5NEW MAX. OR MIN. SL(YYH)DX:(OLS)(SL)OLS0260 CTCT1:M1DX(SL)(SLOLS):YM(CT,1)X4 XXS175% 20:868::210s 22:1:"XMIN=";XS;"XMAX=";XL;" YMIN=";YS;" YMAX=";YL;" INC=";DX;39);" " 23:"ITGL X(";((E2XS));":";8);") = ";:868 23:17:((E2X));")=";((E2SUM)): 5NEW Y YHY Y(1(6XDR))2"OPEN STDS" D$;"READ STDS", PS:RAMA D$;"CLOSE STDS"Y YM(50,1):ROOT(50)y PI3.14156265:E2100:P50.5 DRPI180:RD1DR 9000:MENU d5PLOT Y=F(X) i1150 nCT0:T0:SUM0:Y0 s150 x250 5PRINT TEXT LINES 21:26NUMERICAL ANALYSIS4SETUP THE USR VECTORK10,76:11,0:12,3k(4);"BLOAD PRINT USING.A"ED$" .00":FORMAT QL10:QUESTION LINE D$(4):CNTRL DQ$(34):DBL QUOTESDX1:XS30:XL30:YS0:YL2:C.4:D.1 D$;       z #????     ԠǮԠԠǠΠίϠҠŠРϠ̠ӠӠԠǠ ϯԠ0 (13);(4);"INIT HELLO".A$:A$:10 A PROGRAM ON ANOTHER DISC AND"# 8G "RE-INITIALIZE THIS DISC. SEE"N 8s "DOS 3.2 MANUAL PAGE 140,NOTE1"z 8 ::8:"PRINTER OUTPUT TO SLOT # 5" 8 "DISC OUTPUT TO SLOT # 6" 8 "HIT ANY KEY FOR MENUE" 6T$ h90 S$;"OPEN STDS"# S$;"WRITE STDS"0 PS:RAME S$;"CLOSE STDS"M X50 SOFTWARE"k 18);"1980"s 10 8);"INITIALIZED ON A 48K SYSTEM" 8 "IF YOUR SYSTEM HAS A DIFFERENT" 8 "RAM YOU MAY NEED TO SAVE THE" 8 " THE PRINTER SLOT= ";PS< n"CHANGE THIS LINE IF NECESSARY"` x:"ENTER ANY KEY TO CONTINUE";i T$: CR$;D$;"RUN PLOT"" NUMERICAL ANALYSIS" h90  p:12 z"INPUT DESIRED PRINTER SLOT NO.";PS "INPUT SYSTEM RAM SIZE";RAM HELLO PROGRAM- PS1:PRINTER SLOT #BD$(4):CNTRL DUCR$(13):C/R^(:5}212);"NUMERICAL ANALYSIS"<8);"COPYRIGHT SPECTRUM SOFTWARE"F18);"1980"P10Z8);"INITIALIZED ON A 48K SYSTEM" d15:"LINE 10 SPECIFIES    :22:T$:T$:Q(T$)F#Q1100,2200,2300,1500,1600,1700,1800,42,1900PT$9000MATIVE":1n#4);"4 : SPECIFY PLOT INCREMENTS":Qx#4);"5 : ADD GRID MARKS":{#4);"6 : FIND ROOTS,MAXIMA,MINIMA":#4);"7 : REVIEW EQUATION TO BE PLOTTED":#4);"8 : START PLOTTING":#4);"9 : END":#22:" YOUR CHOICE ?":35S)D$;"PR#";(PS)T$$01(#: MENUE72#a<#:12);"SPECTRUM SOFTAWARE";40);" "hA#2C#11);"NUMERICAL ANALYSIS";40);" ":F#4);"1 : SPECIFY RANGE OF X AND Y"P#Z#4);"2 : PLOT THE INTEGRAL":d#4);"3 : PLOT THE DERIVE TO THE EQUATION PLOT) DO YOU WISH TO USE ?";C5 I D$;"PR#";(PS)] D$;"PR#";(PS)z 8);"EQUATION ANALYZED" 51 D$;"PR#0"D$;"PR#0"23:"HIT ANY KEY TO CONTINUE";39);" "RP$"Y"40084010D$;"PR#";(PN THE PROGRAM"-::"HIT ANY KEY TO RETURN"5NT$;XOlD$;"RUN HELLO"cmD$;"RUN HELLO"lF21v:10"WHAT SCALE FACTOR (RELATIVE TO THE EQUATION PLOT) DO YOU WISH TO USE ?";DF11 :10/ "WHAT SCALE FACTOR (RELATIVAG1::10F"WOULD YOU LIKE A PRINTED LIST OF THESE ? (Y/N)"ORP$U_:10 "CURRENT EQUATION TO BE PLOTTED"51"IF YOU WISH TO CHANGE THE EQUATION"&"EXIT THE PROGRAM , THEN TYPE 51 THEN"0"YOUR EQUATION. THEN RU1L:10:"ENTER MAXIMUM VALUE OF X IN PLOT";XLb:10:"ENTER MAXIMUM VALUE OF Y IN PLOT";YL:10:"ENTER MINIMUM VALUE OF X IN PLOT";XSx:10:"ENTER MINIMUM VALUE OF Y IN PLOT";YS:10:"ENTER PLOTTING INCREMENT";DX@FLLOCATIONS";40);" ":=R1T:"ROOT(";R;") = ";;ROOT(R):G4000M U : :10);"MAXIMA AND MINIMA";40);" ":"NO. ";5);" Y";20);" X"R1CTR;5);YM(R,0);20);YM(R,1)"T$'D$;"PR#0"(D$;"PR#0",0200 I159200" 2:XX,I( < 4000:::12:O RP$"Y"İ3000{ "USING TRAPEZOIDAL INTEGRATION AND AN" "INTEGRATION INTERVAL OF ";DX "THE INTEGRAL FROM ";XS;" TO ";XL;" = ";SUM 4000 : :10);"ROOT 4,174,13 XXSXLDX" 505 XX((XS)X)AG L(YLCSL)BW YY(YLY)Bg YY159200w XX279202 XX0200 YY0200 3:XX,YY F10192 L0200 L159200 1:XX,L F20200 I(YLDSUM)B ILAG0155 R028028* R280R2799 R,0R,159? O G016016` G160G159o 0,G279,Gu 0,YLB279,YLB (XS)A,0(XS)A,159 270,YLB11277,YLB4 270,YLB4277,YLB11 2,104,13 8,104,13 SL(YYH)DX:(OLS)(SL)OLS0İ651 8OLSSL7 9Z :TT1:ROOT(T)XDX(Y(YYH))` ; ACTCT1:MMXDX(SL)(SLOLS):YM(CT,1)XMMX:YM(CT,0)YMMXSL: Z dYR(YL)(YS) nXR(XS)(XL) xA279XR B159YR 3 F"INTEGRAL FROM X=";.01(100XS);" TO X=";.01(100X);" =";.0001(SUM10000);39);" " 123:"YMAX=";YL;"YMIN=";YS;" XMAX=";XL;" XMIN=";XS;" INC=";DX;39);" ": 2YHY 3Y(X10)(X) 4SUMSUMDXYHDX(YYH)2 547 6(YH)(Y)İ58& 7R NUMERICAL ANALYSIS/1% SUM00 D$""UDX.1:XL30:YS1:YL1:C.4:D.1iD$;"OPEN STDS"}D$;"READ STDS"PS:RAMD$;"CLOSE STDS"YM(50,1):ROOT(50)9000*CT0:T0:SUM0:Y0+47,90/20::51W 022:      IT TO A/S TO BE PRINTED BUFFER-1,X #'0' LO ORDER BYTE #0HI ORDER BYTE #INTFPCONVERT TO INT. AND RETURN  ICONVERT TO INT. AND RETURN  ` TO $ SIGN #'$' DONE #'.' NEXT1 #' ' BUFFER-1,X NEXT1 DONE LENGTH BLANK DONE #1 +LOOP4 BUFFER-1,XPRINT THE OUTPUT BUFFER COUT EXCEPT THE LAST CHAR. LENGTH LOOP4 ;CONVERT THE LAST CHAR. TO FP, $;AND RETURN SKIPIT CHECK   DONE DIGIT BUFFER-1,X #' 'SPACE? DROPIT #':'COLON? SKIPIT #'0'ZERO? SKIPIT DROPITGET IT BACK BUFFER-1,X  DONE #0END OF STRING? EDLOOP   NEXT1 (BLANK BUFFER-1,XBLANK FROMN KEEP !;GOING LEFT STORING BLANKS UNTIL $;BUFFER END OR WE COME TO A $ SIGN. ; NEXT2 LENGTHFIELD WIDTH EDLOOP STRING,YGET A CHAR. SAVE IT CHECK  #'-'MINUS SIGN? DIGITNO. SKIP MINUS BUFFER-1,X #'-'MINUS SIGN? DROPIT#0 LOOP STRING,YGET CHAR. NEXT2  LOOP #;MOVE STRING TO BUFFER, FROM RIGHT #;TO LEFT, FILLING OVER NUMBERS BUT ;SKIPPING COMMA'S AND PERIODS. "; IF WE COME TO A MINUS SIGN THEN #;KEEP GOING LEFT UNTIL THE PATTERN !;HAS A BLANK OR COMMA, THE. PNTR+1  (VARBLE),YGET LO ADR. PNTR  (VARBLE),YGET LENGTH #16 LENOKMAX. LENGTH=16 #16IF TOO LONG, SET=16 LENOK LENGTH ; ;MOVE PATTERN TO BUFFER   LOOP2 (PNTR),Y BUFFER,Y  LOOP2 ; FIND THE STRING END ; !;CONVERT THE FP ACCUM. TO STRING START AFLAGSAVE THE A/S FLAG  FPSTR1 FPSTR2 RESTORE THE A/S FLAG AFLAG ; ;FIND THE VARIABLE ED$ $SEARCH#'E'1ST LETTER OF VARIABLE NAME #"D" NAME+1 FIND #4 (VARBLE),YGET HI ADRG $100NUMBER PUT HERE AS A CHAR. STRING ; ;ROM A/S SUB-ROUTINE ADDRESSES FPSTR1 $ED34FP TO STRING "FPSTR2 $E3E7CONVERSION ROUTINES COUT $DB5CPRINT A CHAR. $INTFP $E2F2INT. TO FP CONVERSION FIND $E053FIND A VARIABLE ;  $300  $800 |%;PRINT USING MICRO 10/80 PG.26:15 ; ;Z E R O P A G E ; AFLAG $52MODE FLAG FOR A/S NAME $81VARIABLE NAME !PNTR $83PNTR TO EDIT PATTERN VARBLE $9BPOINTER TO VARIABLE LENGTH $D0PATTERN LENGTH BUFFER $02F0EDIT BUFFER /STRIN     SIZE TO DISK u:12? z"INPUT DESIRED PRINTER SLOT NO.";PS` "INPUT SYSTEM RAM SIZE";RAMt D$;"OPEN STDS" D$;"WRITE STDS" PS:RAM D$;"CLOSE STDS"  ::8:"PRINTER OUTPUT TO SLOT #";PS- 8R "TO CHANGE PRINTER SLOT OR RAM"w 8:"SIZE HIT 'P. HIT ANY OTHER" 8:"KEY TO RUN THE PROGRAM" 20:T$:T$ @T$"P"İ6000:4000 TD$;"RUN NUMERICAL ANALYSIS"  pPRINTER SLOT & RAM HELLO/1#2D$(4):CNTRL D7<D$;"OPEN STDS"KAD$;"READ STDS"XFPS:RAMmKD$;"CLOSE STDS"v:512);"NUMERICAL ANALYSIS"8);"COPYRIGHT SPECTRUM SOFTWARE"18);"1980"108);"INITIALIZED ON A 48K SYSTEM"&   ;"4 : SPECIFY PLOT INCREMENTS":@x#4);"5 : ADD GRID MARKS":j#4);"6 : FIND ROOTS,MAXIMA,MINIMA":#4);"7 : REVIEW EQUATION TO BE PLOTTED":#4);"8 : START PLOTTING":#4);"9 : END":#22:" YOUR CHOICE ?":35:22:T$:T$:Q((PS) T$0 (#: MENUE&2#P<#:12);"SPECTRUM SOFTAWARE";40);" "WA#2C#11);"NUMERICAL ANALYSIS";40);" ":F#4);"1 : SPECIFY RANGE OF X AND Y"P#Z#4);"2 : PLOT THE INTEGRAL":d#4);"3 : PLOT THE DERIVATIVE": n#4) PLOT) DO YOU WISH TO USE ?";C$ 8 D$;"PR#";(PS)L D$;"PR#";(PS)i 8);"EQUATION ANALYZED"q 36w D$;"PR#0"D$;"PR#0"23:"HIT ANY KEY TO CONTINUE";39);" "RP$"Y"40084010D$;"PR#";(PS)D$;"PR#";10S"WHAT SCALE FACTOR (RELATIVE TO THE EQUATION PLOT) DO YOU WISH TO USE ?";DYSET D E R I V A T I V E P L O TF11::10:"SET DERIVATIVE PLOT(Y/N) ";:A$A$"N"F10: :10 "WHAT SCALE FACTOR (RELATIVE TO THE EQUATIONAM , THEN TYPE 51 THEN"B0"YOUR EQUATION. THEN RUN THE PROGRAM"a::"HIT ANY KEY TO RETURN"iNT$oXl:5:5:"END OF PLOT ROUTINE":SET I N T E G R A L P L O TF21::10:"SET INTEGRAL PLOT(Y/N) ";:A$A$"N"F20:::10:"ENTER PLOTTING INCREMENT";DX-:@FLAG1:D:10z"WOULD YOU LIKE A PRINTED LIST OF THESE ? (Y/N)"RP$:10 "CURRENT EQUATION TO BE PLOTTED"36"IF YOU WISH TO CHANGE THE EQUATION"&"EXIT THE PROGRYM(R,0);20);YM(R,1)""T$1'D$;"PR#0"@(D$;"PR#0"F,\SET X & Y LIMITSu::10:"XMIN= ";XS11:"XMAX= ";XL13:"ENTER XMIN,XMAX ";XS,XL15:"YMIN= ";YS16:"YMAX= ";YL18:"ENTER YMIN,YMAX ";YS,YL$'S;" TO ";XL;" = ";SUM4000%-:3[:10);"ROOT LOCATIONS";40);" ":R1T:"ROOT(";R;") = ";;ROOT(R):4000  : :10);"MAXIMA AND MINIMA";40);" ":"NO. ";5);" Y";20);" X"R1CTR;5);00L1592001:XX,L,F20200?I(YLDSUM)BLI0200[I159200h2:XX,In4000:::12:RP$"Y"İ3000"USING TRAPEZOIDAL INTEGRATION AND AN""INTEGRATION INTERVAL OF ";DX"THE INTEGRAL FROM ";XX 270,YLB4277,YLB112 2,104,13:LTRYA 8,104,13P 4,174,13` XXSXLDXh 34{ XX((XS)X)A L(YLCSL)B YY(YLY)B YY159200 XX279202 XX0200 YY0200 3:XX,YY F10192L02FLAG0155" P L O T G R I D2 R028028C R280R279R R,0R,159X h G016016y G160G159 0,G279,G P L O T A X I S 0,YLB279,YLB:XAX (XS)A,0(XS)A,159:YAX 270,YLB11277,YLB4:LTRSL(YYH)DX:(OLS)(SL)OLS0İ542 .OLSSL8 0[ 2TT1:ROOT(T)XDX(Y(YYH))a 4 6CTCT1:MMXDX(SL)(SLOLS):YM(CT,1)XMMX:YM(CT,0)YMMXSL: 8 dXR(XL)(XS) nYR(YL)(YS) xA279XR B159YR 3 ";XL;" INC=";DX;39);" ":Z 22:21:((E2X(X)0.5));")=";((E2SUM(SUM)0.5)):y ! P L O T R O U T I N E "YHY:SAVE LAST Y VALUE $Y(XDR) %U P D A T E I N T E G R A L &SUMSUMP5(YYH)DX (28 *(YH)(Y)İ50' ,NTER SLOT NO.% YM(50,1):ROOT(50)/ 9000E  P L O T Y=F(X)\ CT0:T0:SUM0:Y0d 28l 56z XXS32 20::36 22:"INTEGRAL X(";((E2XS(XS)P5));;":";8);")= ";SUM:868 23:"YMIN=";YS;"YMAX=";YL;" XMIN=";XS;" XMAX=@PLOT ROUTINE/ SET UP THE USR VECTORF10,76:11,0:12,3f(4);"BLOAD PRINT USING.A"ED$" .00": FORMATPI3.14159265:DRPI180:RD1DR SUM0:P50.5 E2100 D$""DX.1:XL30:YS1:YL1:C.4:D.1 PS4:PRI     RH 4 hREĆ SШЈHhH--h5 :0h$. А \АI0LD$(4):CNTRL D4 D$;"BLOAD PRINT USING.A"K10,76:11,0:12,3`ED$"$ , 0.00"{2"ENTER TEST VALUE ";X<"THE ROUNDED VALUE IS ";((X100(X)0.5))>X99ė:5:1:"END OF PROGRAM":A:50F D ! T(T10000(T)0.5). T$(T):; LE(T$)U LE4T$"0"T$:1020 LE4T$(T$,(LE4))"."(T$,4):1098 T$"0""."(T$,4) LE(T$) LE10T$" "T$:1040 JT$; KPLES" KIN360NH: P:2:"ANGLE";:15:"X";:25:"Y":V UAAD(AD(NH1)IN)INi ZX(ADR)DXC| _Y(ADR)DYC dTA:1000:11:TX:1000:21:TY:1000: i n:"ANOTHER HOLE(Y/N)? ";:A$ xA$"N"30 ::5:"END OF PROGRAM"::0DY0ARPI2:55. 0DX0DY0ARPI2:55N 1DX0DY0ĺ"TRY AGAIN":30^ 2AR(DYDX)q 3DX0ARARPI~ 7ADARRD <:5:1 ATD:1000:" INCHES AT ANGLE OF ";:TAD:1000:" DEG." F"HOW MANY HOLES? ";NH G1:998:868:10:NH;" HO  :-PI3.14159265:DRPI180:RD1DRF"CIRCLE X-COOR ";XC_"CIRCLE Y-COOR ";YC:"CENTER AT ";:TXC:1000:25:TYC:1000:34,2:"ENTER HOLE POSITION(X,Y) ";XP,YP#:DXXPXC(DYYPYC-D(DX2DY2) /DX   040 JT$; K&  8.875,-7.375 ;  4.0578,-3.7070P  2.3785,-2.0276e  1.9365,-1.5857z  3.0856,-0.4366  4.765,-2.116  5.2069,-2.5579Pi nA$:31" x"END OF DATA"D "AND THUS, END OF PROGRAM":J d T(T10000(T)0.5)q T$(T):~ LE(T$) LE4T$"0"T$:1020 LE4T$(T$,(LE4))"."(T$,4):1098 T$"0""."(T$,4) LE(T$) LE10T$" "T$:1 OF ";:TAD:1000:" DEG."5 F"HOW MANY HOLES? ";NHY G1:998:868:10:NH;" HOLES"g KIN360NH P:2:"ANGLE";:15:"X";:25:"Y": UAAD(AD(NH1)IN)IN ZX(ADR)DXC _Y(ADR)DYC dTA:1000:12:TX:1000:23:TY:1000: DXXPXC (DYYPYC( -D(DX2DY2)C /DX0DY0ARPI2:55_ 0DX0DY0ARPI2:55 1DX0DY0ĺ"TRY AGAIN":30 2AR(DYDX) 3DX0ARARPI 7ADARRD <:5:1:"X= ";:TXP:1000:20:TYP:1000: ATD:1000:" INCHES AT ANGLE 120 5PI3.14159265:DRPI180:RD1DRW: INPUT "CIRCLE X-COOR ";XC w INPUT "CIRCLE Y-COOR ";YCXC,YC"CENTER AT ";:TXC:1000:25:TYC:1000:34,2INPUT "ENTER HOLE POSITION(X,Y) ";XP,YP XP,YP #:    50 $ T(T10000(T)0.5)1 T$(T):> LE(T$)X LE4T$"0"T$:1020 LE4T$(T$,(LE4))"."(T$,4):1098 T$"0""."(T$,4) LE(T$) LE10T$" "T$:1040 JT$; KP +PI3.14159265:DRPI180:RD1DRP"INITIAL POSITION (X,Y) ";XC,YC`-XPXC:YPYC2"MOVE(DISTANCE,ANGLE)? ";D,A7D99ĺ"END OF PROGRAM":<XPXP(ADR)DAYPYP(ADR)DF"X= ";:TXP:1000:15K"Y= ";:TYP:1000: P 128::72,0:144:  FILEDUMP COMMAND POKER7 CALL APPLE JUNE 82L PATCHED JULY 82dHEX$"BCDF:20 8E FD 20 A3 A2 20 8C A6 F0 05 20 ED FD D0 F6 20 FC A2 60 N A8E7:46 49 4C 45 44 55 4D D0 N 9D48:DE BC N A933:20 30 N D9C6G" nI1(HEX$):511I,((HEX$,I,1)) NT$ X!l5END OF PROGRAMMm:20:1:"END OF NUMERICAL ANALYSIS":n5SET INTEGRAL SUM PLOT FLAGx:10"PLOT THE INTEGRAL SUM (Y/N) ";:A$:A$F20:A$"Y"F21F22250"INTEGRAL SUM SCALE FACTOR" "RELATIVE TO "Y"F31%5CURRENT EQUATION/ :10U "CURRENT EQUATION TO BE PLOTTED"^210"IF YOU WISH TO CHANGE THE EQUATION"&"EXIT THE PROGRAM , THEN TYPE 51 THEN"0"YOUR EQUATION. THEN RUN THE PROGRAM"::"HIT ANY KEY TO RETURN"LE(A$)!(LE)DX(A$):1505'?@5SET THE GRID FLAGIJ:10uT"SET THE GRID FLAG (Y/N) ";:A$:A$^FLAG0:A$"Y"FLAG1h5FLAG PRINTED OUTPUT:10"PRINTED OUTPUT TO PRINTER (Y/N) ";A$:A$:F30:A$= ";28);XS>(QL2):"MAXIMUM PLOT VALUE FOR X = ";28);XLq(QL4):"MINIMUM PLOT VALUE FOR Y = ";28);YS(QL6):"MAXIMUM PLOT VALUE FOR Y = ";28);YL5SET X AXIS INCREMENT:QL:"X AXIS PLOTTING INCREMENT = ";DX;" ";:A$LE)1149#eI1131,1132,1133,1134-j1149@kXS(A$):1145SlXL(A$):1145fmYS(A$):1145ynYL(A$):1145yI4İ1200z}~XR(XS)(XL)A279XRYR(YL)(YS)B159YR :QL:"MINIMUM PLOT VALUE FOR X :10);"MAXIMA AND MINIMA";40);" ":I"NO. ";5);" Y";20);" X"UR1CTuR;5);YM(R,0);20);YM(R,1){T$4100:PR#0L5SET RANGE FOR X & YQ1200:LIST VALUESVI14[(102(I1)):35:A$:LE(A$)`(#"INTEGRATION INTERVAL OF ";DXT"THE INTEGRAL FROM ";XS;" TO ";XL;" = ";SUM^4000o 5PRINT PG#2u!}%:*/:10);"ROOT LOCATIONS";40);" ":4R1T:"ROOT(";R;") = ";;ROOT(R):940005PRINT PG#3:'T INTREGRATION SUMF16002L0L159620?1:XX,L[X5PLOT DERIVATIVE SLOPEhYF2620{]I(YLDSUM)BbI0I159620g2:XX,Il5PRINT PG#14000:::12:F3İ3000"USING TRAPEZOIDAL INTEGRATION AND AN"LB11277,YLB4- r270,YLB4277,YLB11< w2,104,13K |8,104,13Z 4,174,13g 5PLOT Yw XXSXLDX 200 XX((XS)X)A L(YLCSL)B YY(YLY)B XX279705 YY159620 XX0YY0620 3:XX,YY5PLOM1:YM(CT,0)YM1SL OLSSL$ 1 ,5H GRIDG 1::3:FLAG355W 6R028028h ;R280R279y @R,0R,159: E5V GRID FG016016 JG160G159 O0,G279,G: ^5BORDER c0,YLB279,YLB h(XS)A,0(XS)A,159 m270,Y 5NEW INTREGRATION SUM9 SUMSUMDXYHDX(YYH)P5B 150Z 5NEW ZERO CROSSINGo (YH)(Y)ī250 TT1:ROOT(T)XDX(Y(YYH)) 5NEW MAX. OR MIN. SL(YYH)DX:(OLS)(SL)OLS0260 CTCT1:M1DX(SL)(SLOLS):YM(CT,1)X4 XXS175% 20:868::210s 22:1:"XMIN=";XS;"XMAX=";XL;" YMIN=";YS;" YMAX=";YL;" INC=";DX;39);" " 23:"ITGL X(";((E2XS));":";8);") = ";:868 23:17:((E2X));")=";((E2SUM)): 5NEW Y YHY Y(1(6XDR))2"OPEN STDS" D$;"READ STDS", PS:RAMA D$;"CLOSE STDS"Y YM(50,1):ROOT(50)y PI3.14156265:E2100:P50.5 DRPI180:RD1DR 9000:MENU d5PLOT Y=F(X) i1150 nCT0:T0:SUM0:Y0 s150 x250 5PRINT TEXT LINES 21:26NUMERICAL ANALYSIS4SETUP THE USR VECTORK10,76:11,0:12,3k(4);"BLOAD PRINT USING.A"ED$" .00":FORMAT QL10:QUESTION LINE D$(4):CNTRL DQ$(34):DBL QUOTESDX1:XS30:XL30:YS0:YL2:C.4:D.1 D$;      "   EQ. PLOT ";D15SET DERIVATIVE PLOT FLAG; :10i "PLOT THE DERIVATIVE (Y/N) ";:A$:A$ F10:A$"Y"F11 F12350$ "DERIVATIVE SCALE FACTOR") "RELATIVE TO EQ. PLOT ";C.  5LIST EQUATION 4110:PR#PS 8); : END":>#22:" YOUR CHOICE ?":35:22:T$:T$:Q(T$)p#Q1100,2200,2300,1500,1600,1700,1800,42,1900zT$9000SDERIVATIVE PLOT FLAG":Bn#4);"4 : SET X AXIS PLOT INCREMENT":lx#4);"5 : SET";Q$;"GRID";Q$;" FLAG":#4);"6 : SET";Q$;"ROOTS,MAXIMA,MINIMA";Q$;" FLAG":#4);"7 : REVIEW EQUATION TO BE PLOTTED":#4);"8 : START PLOTTING": #4);"9;"PR#";(PS) D$;"PR#";(PS)(T$.0;(#: MENUEA2#k<#:12);"SPECTRUM SOFTAWARE";40);" "rA#2C#11);"NUMERICAL ANALYSIS";40);" ":F#4);"1 : SET RANGE FOR X & Y":Z#4);"2 : SET INTEGRAL PLOT FLAG":d#4);"3 : SET THE R (RELATIVE TO THE EQUATION PLOT) DO YOU WISH TO USE ?";C? S D$;"PR#";(PS)g D$;"PR#";(PS) 8);"EQUATION ANALYZED" 51 D$;"PR#0"D$;"PR#0"23:"HIT ANY KEY TO CONTINUE";39);" "RP$"Y"40084010 D$N TYPE 51 THEN":0"YOUR EQUATION. THEN RUN THE PROGRAM"Y::"HIT ANY KEY TO RETURN"aNT$gXmlvF21:10"WHAT SCALE FACTOR (RELATIVE TO THE EQUATION PLOT) DO YOU WISH TO USE ?";DF11 :109 "WHAT SCALE FACTO:"ENTER PLOTTING INCREMENT";DX%2@FLAG1:<:10r"WOULD YOU LIKE A PRINTED LIST OF THESE ? (Y/N)"{RP$:10 "CURRENT EQUATION TO BE PLOTTED"51"IF YOU WISH TO CHANGE THE EQUATION"&"EXIT THE PROGRAM , THE1145yI4İ1200z }&~W:QL:"MINIMUM PLOT VALUE FOR X = ";28);XS(QL2):"MAXIMUM PLOT VALUE FOR X = ";28);XL(QL4):"MINIMUM PLOT VALUE FOR Y = ";28);YS(QL6):"MAXIMUM PLOT VALUE FOR Y = ";28);YL:10'D$;"PR#0"(D$;"PR#0"#,?L:QL10:QUESTION LINE #VQ1200:LIST VALUESaVI14[(102(I1)):35:A$:LE(A$)`(LE)1149eI1131,1132,1133,1134j1149kXS(A$):1145lXL(A$):1145mYS(A$):1145nYL(A$): :8:10);"ROOT LOCATIONS";40);" ":`R1T:"ROOT(";R;") = ";;ROOT(R):j4000p x : :10);"MAXIMA AND MINIMA";40);" ":"NO. ";5);" Y";20);" X"R1CTR;5);YM(R,0);20);YM(R,1)"T$F20200 I(YLDSUM)B) I02008 I159200E 2:XX,IK _ 4000:::12:r RP$"Y"İ3000 "USING TRAPEZOIDAL INTEGRATION AND AN" "INTEGRATION INTERVAL OF ";DX "THE INTEGRAL FROM ";XS;" TO ";XL;" = ";SUM 4000 2,104,13 8,104,13- 4,174,13= XXSXLDXE 50X XX((XS)X)Aj L(YLCSL)Bz YY(YLY)B YY159200 XX279202 XX0200 YY0200 3:XX,YY F10192 L0200 L159200 1:XX,L XR B159YR  3, FLAG0155< R028028M R280R279\ R,0R,159b r G016016 G160G159 0,G279,G 0,YLB279,YLB (XS)A,0(XS)A,159 270,YLB11277,YLB4 270,YLB4277,YLB112 547 6(YH)(Y)İ58I 7SL(YYH)DX:(OLS)(SL)OLS0İ65T 8OLSSLZ 9} :TT1:ROOT(T)XDX(Y(YYH)) ; ACTCT1:MMXDX(SL)(SLOLS):YM(CT,1)XMMX:YM(CT,0)YMMXSL: Z dYR(YL)(YS) nXR(XS)(XL) xA279˰47 ,90 /20::51z 022:"INTEGRAL FROM X=";.01(100XS);" TO X=";.01(100X);" =";.0001(SUM10000);39);" " 123:"YMAX=";YL;"YMIN=";YS;" XMAX=";XL;" XMIN=";XS;" INC=";DX;39);" ": 2YHY 3Y(X10)(X) 4SUMSUMDXYHDX(YYH)|6NUMERICAL ANALYSIS$ SUM09 D$(4):CNTRL DS Q$(34): DBL QUOTESxDX.1:XL30:YS1:YL1:C.4:D.1D$;"OPEN STDS"D$;"READ STDS"PS:RAMD$;"CLOSE STDS"YM(50,1):ROOT(50)9000*CT0:T0:SUM0:Y0 +!! ! ! ! ! !!!!!!!!!"EQUATION ANALYZED" 210" 25UTILITIESB4100:PR#0n23:"HIT ANY KEY TO CONTINUE";39);" "|F3İ4110A$:A$D$;"PR#0":" ":D$;"PR#";PS:" ":(#5MENUE2#<#:12);"SPECTRUM SOFTWARE";40);" "A#2(