' +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*`ŭٍŠΩŠӮé  ō΍ōӮÍ  ōӍԯڮӍ ōӍԯڮӍ ōӍԯڮӍōӍԯڮӍŭōŠήŠήǩ z #<    ŭ̠͠ӠЩ; Р б  ŭ٠ŭŠ ŭ̠ӠŠ ŭ̠ӠŠŭӠŭӠ ŭӲ  ĠŭŠ̠ŭϠŭŠŭ  ŭԠӠȠ ŭԠӠĠϠ ̠ӠɠϠ" ̠Ӡ;ҠӠ ŮӮʰҠ"Ҡ  pp@p@  ppp~@    $$$ @D@ p@@CCCa0`a@a@a0`@0`0 `?*U*U*U*U*U  "D~@C@a00xxx@@ `0|a  ?pp@p@  0@?xpp@~ |  p $$d x80 @@CCCa0`@aCa@a0`000 xj*U*U*U*U*U@p  L~@C@a00xx  pp@p@?  @`{pp@@  F  p @c#$ DD Os?~~~@00x?@CCCa0`@aCa@a0`000 \**U*U*U*U*U@p  ~?H@@C@a000             GREETINGS PROGRAM9D$(4): CHR$(4)IS CNTRL D MASTER DISKETTE CREATED ON JULY 29, 1982 BY D. VERNIER D$;"BLOAD GRAPHICAL ANALYSIS II LOGO, A$4000"D$;"RUN GRAPHICAL ANALYSIS" HICAL ANALYSIS"   @x`pp@@   @ 88|  pGp|p~@c @  @ 8xC@C?`3`@a@Oa`p0x|a `w `@CC@a0` 0 Nr@CC@a00 f~C@@?`?`@a<a0`@0`?0  @<@|pp@@ @    `pxp|@C ` p  @  @aC@Ca<`@a@apa@`000  @CC@a0` 0 BBw@CC@a00  @3`0  @|pp@@ `    @C#$ p<88   @aC@Ca<`@a@apa@`000 |w ~~@CC0xx? BBCC@a0x? @3`0  |pp@@ 0 `pp|@    $dC' @DD  @CCCa0`a@a@a0`@0`0 ~ ~~@CC0xx? "FCC@a0x?x@@ `0|a VU$J1N1X(J)& Y(J)-JAD$;"CLOSE ";N$G(]F SET UP GRAPH uK1600: MODIFY DATAPXMAXXA(1):YMAXYA(1): SET MAXIMUM VALUES TO VALUES OF FIRST DATA PAIRUMXXA(1):MYYA(1): SET MINIMUM VALUES TO VALUESSOR BACK UP TO THE RIGHT LEVELhB(25):A$:Y(J)(A$):A$"Q"X(J)9999:Y(J)9999:NJ1:J200: EXIToLJV34,0:35,24: RESTORE NORMAL WINDOW` WRITE A FILE D$;"OPEN ";N$D$;"WRITE ";N$HL$HU$VL$OM OF SCREEN="ENTER THE APPROPRIATE DATA AT THE CURSOR";l"LOCATION. ENTER 'Q' TO END DATA ENTRY."w35,21~5$JN1200.J;:(10):A$:X(J)(A$):A$"Q"X(J)9999:Y(J)9999:NJ1:J200:1100: EXIT 8((37)): MOVE CURNUMp(37)22(A$)0910Wz24::" PRESS SPACE BAR TO CONTINUE SCROLLING ";:s{A$:A$" "891: WAIT}~22:J:34,0:35,24: RESTORE NORMAL WINDOW INPUT DATA 34,3 24: MOVE CURSOR TO BOTTNE #";:10:(HM$,14);:25:(VM$,14)H *10:(HM$,15);:25:(VM$,15)r >"**** ********** **********"x ? @ PRINT TABLE BJ1N C34,3:35,23: SET TEXT WINDOW HJ; R(11):NUMXA(J):200:NUM;f(26):NUMYA(J):200:TA FILE NAME  :109 8:"ENTER NAME OF DATA FILE"Z :10:"(OR 'C' TO CATALOG)"k :11:"";N${ N$(N$,30) N$"C"ĺD$;"CATALOG"::720 N$"C1"N$"C2"ĺD$;"CATALOG ,D";(N$,2)::720   TABLE HEADINGS #% %"LI INTERCEPT? SX((X2SNXM2)(N1)): STANDARD DEVIATION\ SY((Y2SNYM2)(N1)) RX(PSNXMYM)((N1)SXSY): CORRELATION COEFFICIENT  X SET SCALING b200:NUMNUMPWR lNUM(23(NUM2)5(NUM5))PWR v  GET DANE  1600: MODIFY DATA= X1S0:Y1S0:X2S0:Y2S0:PS0H J1Nh X1SX1SXA(J):Y1SY1SYA(J) X2SX2SXA(J)2:Y2SY2SYA(J)2 PSPSXA(J)YA(J) J XMX1SN:YMY1SN: MEANS A(PSNXMYM)(X2SNXM2): SLOPE BYMAXM:FCTR "2 , HIRES PRINTING ROUTINE 9 O0@ T1P YC1(PR$)b ^VP191VP10t cHP275HP10 gCC((PR$,C,1))31:CC1CC59365 hCCHP,VP mO$"V"VPVPSC9 rO$"H"HPHPSC7 wC |  REGRESSION ROUTI7* COPYRIGHT 1983 VERNIER SOFTWAREC 1800: MAIN PROGRAM] ROUNDING ROUTINE gPWR1y(NUM)1250(NUM)PWRPWRPWR10:230260(NUM)PWR10PWRPWR10:250FCTR10PWRDECNUM0290 NUM(NUMFCTR.5)                 @pqpp@@ ` p 0DD@  xgp~p?@s   @ pxC@C?`3`@a@Oa`p0x|a   x@@C@a000 H`w~~@00x?f~C@@?`?`@a<a0`@0`?0 RN TO LEAVE)!"THE ROUNDING UNCHANGED.1!A$A!A$""5060~!(A$)1(A$)8ĺ"IMPROPER ENTRY, SELECT AGAIN ":5035!ROUND(A$)!DEC1:I1ROUND:DEC10DEC:I!2010!(# NUMERICAL ANALYSIS !2#!<#:" CALCULATING ..."6"F#4007000 L M1$"T"13000) V M1$"R"5000< j M1$"O"20000F t 2010[  SET ROUNDING f :(5) "THE PROGRAM WILL NOW ROUND ALL NUMBERS "WITH ";ROUND" SIGNIFICANT DIGITS. "SELECT A NEW VALUE (1-8)." !"MAKE NO ENTRY AND PRESS RETU5000M1$"I"12000+M1$"L"10000>M1$"D"22000 N0ĺ:10::"NO DATA TABLE IN MEMORY"::I11000:I:2010 M1$"M"10000 M1$"S"11000 M1$"A"18000$ M1$"C"16000. M1$"P"140008 M1$"N"9000 B M1$"E"1T GRAPH *"*z"N = NUMERICAL ANALYSIS *"H"T = PRINT DATA TABLE *"f"O = OUTPUT TO PRINTER *"D = DUMP GRAPH TO PRINTER""Q = QUIT"32,0::"* INDICATES DATA MANIPULATION ALLOWED"M$M1$(M$,1)M1$"Q"ĀM1$"R""L = LOAD DATA FROM DISK"9>"M = MERGE DATA FROM DISK"^H"S = SAVE CURRENT DATA ON DISK"R"A = ADD TO CURRENT DATA TABLE"\"C = CHANGE CURRENT DATA"f"E = EXCHANGE AXES"k"R = SET ROUNDING (NOW ";::ROUND;::" PLACES)" p"P = PLO GRAPHICAL ANALYSIS II>" VERNIER SOFTWARE^" COPYRIGHT 1983dzN$""N$"*NONE* 16(N$)2:"FILE: ";N$"SELECT MODE:";32,9: MOVE LEFT MARGIN OVER *"I = INPUT NEW DATA"4A$8000": LOAD LETTERS USED IN PRINTING GRAPH LABELS^bD$;"BLOAD IMAGE.HIRES.$9000.OBJ0"l232,00:233,128: SET SHAPETABLE POINTER TO $8000vX(200),Y(200),XP(200),YP(200),XA(200),YA(200)ROUND3:DEC1000 MENU :"( COPYRIGHT 1983 VERNIER SOFTWARE80INITIALIZED525000:25088:107,0:108,98:109,0:110,98: MOVE VARIABLES ABOVE GRAPHICSD8163: SET HIMEM BELOW SHAPE TABLE AT $8000ND$(4): D$= CONTROL7XD$;"BLOAD HGR LETTERS,J1N:XA(J)(X(J)):J:HM$"LOG "HL$:1710|(E$,1)""(E$,1)" "(E$,1)"S"āJ1N:XA(J)X(J):J:HM$HL$" ("HU$")":1710: LEAVE X() UNCHANGEDJ1NXA(J)X(J)(E$)JHM$HL$" TO THE POWER "E$ MAIN PROGRAM @ MODIFY DATA GJE$(M$,2): CHECK FOR MODIFICATION DESIREDT(E$,2,1)"L"āJ1N:YA(J)(Y(J)):J:VM$"LOG "VL$:1650: MODIFIY YA() AND LABLE^J1N:YA(J)Y(J):J:VM$VL$" ("VU$")": LEAVE YA() UNCHANGED+r(E$,1)"L"ā1MXXS)10XS:"NUMYS:600:YSNUM:VS(.1MYYS)10YSW'(HS(XMAXHS)).1HS0t,(VS(YMAXVS)).1VS01J1N: CALCULATE SCALED VALUES6XP(J)(XA(J)HS)XS15:YP(J)176((YA(J)VS)YS): CALCULATE SCALED VALUES;J=XS(XMAX)260:YS(YMAX)155: CALCULATE RANGE OF VALUESPNUMXS:600:XSNUMg NUMYS:600:YSNUM1585: END OF MODE A SCALING MODE B SCALINGXS(XMAXMX)260:YS(YMAXMY)155: CALCULATE RANGE OF VALUESNUMXS:600:XSNUM:HS(0."ENTER STARTING VALUE FOR VERT. AXIS ";VS1^"ENTER VALUE OF EACH HORIZ. SQUARE ";XS"ENTER VALUE OF EACH VERT. SQUARE ";YS1585: SKIP AUTOMATIC SCALING IN MANUAL MODE MODE A SCALINGHS0:VS0: SET ORIGIN AT 0,0 9XMAX 6"RANGE OF VERT. VALUES TO BE PLOTTED:"JMY;" TO ";YMAXx:"THE SCREEN (OUR GRAPH PAPER) IS 265 ""SQUARES WIDE AND 160 SQUARES VERTICALLY.:"ENTER STARTING VALUE FOR HORIZ. AXIS ";A$:HS(A$):A$"Z"HSMX:VSMY:1505+"B - AUTOMATIC SCALING, VARIABLE ORIGIND:"C - MANUAL SCALING N:A$]A$(A$,1)nA$"B"1555A$"C"14501525: DEFAULT SCALING MODE"MANUAL SCALING MODE":"RANGE OF HORIZ. VALUES TO BE PLOTTED:"MX;" TO "; OF FIRST DATA PAIR ZJ1N:_XA(J)XMAXXMAXXA(J)UdYA(J)YMAXYMAXYA(J)liXA(J)MXMXXA(J)nYA(J)MYMYYA(J)sJx::: CLEAR HGR2 SCREEN }"SELECT SCALING MODE:":"A - AUTOMATIC SCALING WITH ORIGIN AT 0,0";':2,YP(J)2.1:XP(J)2,YP(J)2XP(J)2,YP(J)2S1:XP(J)2,YP(J)2XP(J)2,YP(J)21:(S$,2,1)"N"PR$(J):HPXP(J):VPYP(J)8:300: NUMBER POINT1:XP(J),YP(J)1:J 2;(S$,1)"R"(S$,1)"S"15220: SKIP THE NEXT FEW STEPS IF NO REG3YP(J)188Č198:15100: RING BELL AND SKIP PLOTTING IF OFF SCREEN0:(S$,1)"L"J1ēXP(J),YP(J): PLOT FIRST POINT0:(S$,1)"L"ēXP(J),YP(J)0: DRAW PT. PROTECTORS:0:XP(J)2,YP(J)2XP(J)2,YP(J)2 1:XP(J)2,YP(J)2XP(J)S),4):HP3:VP174:300-/R:NUM100YSVS:200T/\:O$"V":HP10:VP70:PR$(NUM):300k/f:NUM200XSHS:200/p:O$"H":VP181:HP210:PR$(NUM):300/z: PLOT POINTS/:16304,1:16299,1:16297,1: TURN ON HGR2/:J1NH0:XP(J)3XP(J)276YP(J)).9(J15)50((J15)50)ēJ,176J,164:.9J,176J,169o.:(S$,2,1)"G"āI166010:J,I:I: DRAW GRIDv. :J.:J166010. :(176J)50((176J)50)ē15,J25,J.*:15,J20,J.4:J.>:HP15:VP181:PR$((HS),4):O$"H":300/H:PR$((V SET UP FOR PRINTING VERTICAL LABEL2-:9PR$VM$;-D9300G-N9PR$HM$X-X9VP188:HP90-b9O$"H": SET UP FOR HORZ LABEL-l9300-9 DRAW AXES AND LABEL:-915,6275,6-9275,6275,176-9275,17615,176-915,17615,6.9J2527510ATA BY ENTERING AN 'R'.,,8:"GRAPHING..."X,8(S$,1)"Q"15250: EXIT PLOTTINGu,8S$""S$"DG": DEFAULT,8(S$,1)"D"(S$,1)"L"(S$,1)"R"(S$,1)"S"14490,9 GRAPHICS,&93: SET COLOR WHITE&-09SC1:O$"V":VP5:HP3: R MAY BE USED TO ADD:":6+8" G - GRID ON GRAPHZ+8" N - NUMBERING OF POINTSd+8:S$+8:"NOTE: AFTER GRAPH IS COMPLETED, YOU MAY"+8"RETURN TO THE MAIN MENU BY PRESSING THE+8:"RETURN";::" KEY. YOU MAY REGRAPH THE SAME,8"DSET UP GRAPH*8:::*88*8"SELECT GRAPH STYLE:W*8" D = DOTS AT POINTS*8" L = POINT TO POINT LINE DRAWN*8" R = REGRESSION LINE"*8" S = WITH STATISTICS*8" Q = RETURN TO MAIN MENU+8:"A SECOND CHARACTEST PRESS RETURN FOR SCREEN DISPLAY"+)2A$I)2(A$)0ĺD$;"PR#";(A$)d)2800: TABLE HEADINGS|)2832: PRINT TABLE)2D$;"PR#0": TURN OFF PRINTER)2" PRESS RETURN TO CONTINUE ";A$)22010)6 SCREEN GRAPH *71350: ENTER UNITS OF THE VERTICAL AXIS DATA: ";VU$:VU$(VU$,8)K(/E$"1":1600S(/N0o(!/800: TABLE HEADINGS("/1000: INPUT LOOP(#/2010(2 DATA TABLE ROUTINE (21600: MODIFY(2::"ENTER SLOT NUMBER OF PRINTER TO BE USED"#)2"OR JUEP LABELS FOR AXES? ";:A$:(A$,1)"Y"120626'.:w'."ENTER LABEL FOR HORIZONTAL AXIS DATA: ";HL$:HL$(HL$,8)'/"ENTER UNITS OF THE HORIZONTAL AXIS DATA:";HU$:HU$(HU$,8)'/"ENTER LABEL FOR VERTICAL AXIS DATA: ";VL$:VL$(VL$,8):(/"J).&'X(J)9999Y(J)9999NJ1:J200: EXIT5&'JI&'D$;"CLOSE ";N$S&'2010n&* STORE DATA ON DISK w&+700& +1200&+"DATA SAVED IN A FILE NAMED ";N$& +::"PRESS ANY KEY TO CONTINUE. ";:A$&*+2010&. DATA INPUT .'.:N0ĺ"KENTER,%,$::"PRESS RETURN TO CONTINUE ";A$6%@$2010R%' READ DATA FROM DISK [%'700%$'M1$"L"N0: READ IN NEW FILE%.'D$;"VERIFY ";N$%8'D$;"OPEN ";N$%B'D$;"READ ";N$%L'HL$%V'HU$%`'VL$%j'VU$%t'JN1200%~'X(J)&'Y(OLATE VALUES$#4$#"DO YOU WANT TO INTERPOLATE"X$#"OR EXTRAPOLATE (Y OR N) ":A$o$#(A$,1)"Y"9255$$"ENTER VALUE FOR HORIZONTAL AXIS VALUE ":V$$NUMAVB:200$$"THE VERTICAL AXIS VALUE IS ";NUM$"$%'$D$;"PR#0": TURN OFF PRI#x#:"X-AXIS DATA: "HM$4##:"Y-AXIS DATA: "VM$W##:"NUMBER OF DATA PAIRS = ";Nf##NUMA:200|##:"SLOPE = ";NUM##NUMB:200##:"Y-INTERCEPT = ";NUM##NUMRX:200##:"CORRELATION COEFFICIENT = ";NUM $# INTERPOLATE OR EXTRAP: CALCULATES SLOPE AND INTERCEPT OF REGRESSION LINEi"K#::"ENTER SLOT NUMBER OF PRINTER TO BE USED""M#"OR JUST PRESS RETURN FOR SCREEN DISPLAY""N#A$"O#(A$)0ĺD$;"PR#";(A$)"P#"Z#:" NUMERICAL ANALYSIS#d#:"FILE NAME: ";N$LEAR STACKAe2000L@aEL(219)256(218)>@a(222)6Ğ:"FILE NOT FOUND":@a(222)53(EL1620EL1650)Ğ:"YOU CANNOT TAKE THE LOG OF A NUMBER <=0":@a@a"****** ERROR ON LINE ";EL;" ******@a@aJ1900:J: TIME DELAY TO READ SCREEN Ab3288: CU CANNOT TAKE THE LOG OF A NUMBER <=0":.?aW?a"****** ERROR ON LINE ";EL;" ******]?a?aJ1900:J: TIME DELAY TO READ SCREEN?b3288: CLEAR STACK?e2000INE ?aD$;"PR#0": TURN OFF PRINTER?a(222)255ij@a198: RING BELLER+ DUMP .>TV36864,SL,1: IMAGEWRITER DUMP8>W2010P>a ERROR HANDLING r>aD$;"PR#0": TURN OFF PRINTER>a(222)255ij>a198: RING BELL>aEL(219)256(218)>a(222)6Ğ:"FILE NOT FOUND":(?a(222)53(EL1620EL1650)Ğ:"YO=ND$;"RUN PRINTER")=U DUMP GRAPH /=Ub=V"SELECT:":"G = GRAPPLER+":"I = IMAGEWRITER"q=V"[G] ";Q$="V"ENTER SLOT # FOR PRINTER [1] ";QQ$:QQ$""QQ$"1"='VSL(QQ$) >,V(Q$,1)"I"ĺD$;"PR#";SL:(9);"G2E":D$;"PR#0":22300: GRAP<*N1350: SET UP GRAPH@N1200: SAVE DATAj?(A$,1)"Y"162509H?"TYPE IN THE CORRECT LABELS":"MAKE NO ENTRY AND PRESS RETURN":"IF LABEL IS ALR7>J0JN16090"7>J016180>7?800: TABLE HEADINGSF7?22X7?"ENTER DATA"7?"( ENTER 'D' TO DELETE THE DATA LINE ) "7?67?" "J;7?(11):A$:A$"D"X(J)999:Y(J)999:161707?A$""16157: NO CHANGE7?X(J)(A$)8?((37DO YOU NEED TO SEE THE DATA TABLEL6>"DISPLAYED WITH LINE NUMBERS (Y/N)? "T6>A$l6>(A$,1)"Y"160906>800:832: PRINT TABLE6>22:"ENTER LINE NUMBER OF DATA TO BE CHANGED":9587>"(ENTER 'Q' WHEN CHANGES ARE COMPLETE)";:"";A$:J(A$)PEAT GRAPH IF AN 'R'5;201025> CHANGE DATA Q5>E$"1":1600: DATA MODS|5>D0: NUMBER OF DELETIONS TO BE MADE5>:55>"BEFORE CHANGING DATA, YOU WILL NEED TO5>"KNOW THE LINE NUMBER OF THE DATA WHICH5>"IS TO BE CHANGED.!6>:"RX:200:PR$PR$"R= "(NUM): STATS STRING74s;15221e4t;PR$(VM$" VS "HM$,39): PRINT TITLE4u;VP2:HP1407((PR$)2)4x;3004|;4~;XX(0): STRING HOUSECLEANING5;S$:S$"R"ĉ::"THE SAME DATA WILL BE GRAPHED AGAIN"::14485: RE)YSVSB)AHS)XS15)(3V;HP279:VPY9p3`;X9HP(VP0VP176)(VP0VP176)((((176VP)YSVSB)AHS)XS15)3j;X0,Y0X9,Y93n;(S$,1)"S"15220: SKIP STATS3o;NUMA:200:PR$"A= "(NUM)" "3p;NUMB:200:PR$PR$"B= "(NUM)" ",4q;NUMRESSION LINE02;400: CALCUALTE REGRESSION FITM2;Y0(176(BAHSVS)YS)s2$;Y0Y0(Y0176Y00)176(Y0176)2.;Y9(176(BA(HS264XS)VS)YS)28;Y9Y9(Y9176Y90)176(Y9176)2B;HP15:VPY03L;X0HP(VP0VP176)(VP0VP176)((((176VP 5TH SPACE TO GIVE THE EFFECT OF THE LINES ON THE GRAPH PAPER. DELETE LINES 3130 TO 3180 IF YOU DO NOT WANT LINES ON THE GRAPHS D Y4055 N X5655 X P(X,Y)AC b X l Yv AC171: SET UP TO PUT "+" SYMBOLS IN THE ZEROTH ROW AND COLUMN ONE SO THAT THEY FIT PROPERLY ON PRINTED GRAPH 5 JU CALCULATE PLOTTING ARRAY FIRST PUT ASC$ CODE FOR A SPACE IN EACH ELEMENT AC160  X167  Y140  P(X,Y)AC & Y 0 X : AC174: SET UP TO PUT DOTS ON THE GRAPH EVERYYP(J) J" D$;"CLOSE SWAP1"B  *************************V PLOT ROUTINE :"CALCULATING GRAPH COORDINATES..." J1N. XP(J)((XP(J)13)4):YP(J)((178YP(J))4):YP(J)0YP(J)0: ADJUST VALUES USED IN SCREEN PLOTTING ROUTIWAP" D$;"READ SWAP"! HL$* HU$3 VL$< VU$I J1200S X(J)] *Y(J) 4X(J)9999Y(J)9999NJ1:J200: EXIT >J HD$;"OPEN SWAP1" RD$;"READ SWAP1" \N$ fHM$:VM$ pXS:YS zHS:VS J1N XP(J):ARRAY) **************************1 :` "GRAPHICAL ANALYSIS II-HARD COPY PRINTER" " VERNIER SOFTWARE" " COPYRIGHT 1983 : "ENTER SLOT # OF PRINTER TO BE USED ";SL  READ SWAP FILE  D$;"OPEN Sh $d GRAPHICAL ANALYSIS - PRINTERLn COPYRIGHT 1983 VERNIER SOFTWAREyx 2920 S.W. 89TH PORTLAND, OR 97225  INITIALIZED$(4): CONTROL DX(200),Y(200),XP(200),YP(200) P(67,40): DIMINSION HARD COPY GRAPH PRINTING           hh` LH LhLLɾ 46` `@@AABBCC(@@(AA(BB(CCP@@PAAPBBPCC ) )D ) ) )JJJJ)  `l)` ) 8=5 + ) 1 )Z ) )` "ȱXȱ0`I)p2h`h4 ,ȱH% `HI)ph`) LSi0LꑅLS,LL0L(L_,0  Ƒ )F ) 8i  Ƒ )G ) L_ . 8  $ . `  ) L` *  . . 0 ` )A ) )cLLŠǠ ; ) )jjj) ) )n ) )T )1 )6 )ϩυ 34i$%f$fʊ iL$pI, )LL$, ) I $0Lc,0L8LL_ )   ;5-,<35577,,55-$3.56%%??177---*56??55>?', $,-%%??V177=-$??6-6??$--$??6m16,:>55--=?/8/?'$$-55??2??$$,-5)>>>'$$-.??$,$--E8?7.6&*5>?'$$---$4.6fI&$$/=66>- $66>?',%66fQ!''?R1??$$4<<66fI&$$7.6%$$3=$766 $??66.-%$;xz|~(246?HQSUboy"-7CO\ku%%, >>fI>,$-26-$?26?4-6$-)-7%%%377%%??66%.-%$$7 6>-%%??N2?6---$??2--$-$6--6&?$-  YRp11);"! ! ! ! ! ! ! ! ! ! ! ! ! !"z11);" !"(12):HS;:(39):" ";(((200XSHS)100.5)100): PRINT HORIZONTAL AXIS VALU17ĺ"(";VU$;")";:(12):2060: PRINT VERTICAL AXIS UNITS Y5(Y5)ĺ10);"-";:2060: PRINT A TICK MARK EVERY 5TH SPACE 11);: PRINT BLANK SPACES TO THE LEFT OF THE VERTICAL AXIS  X067(P(X,Y)); X*"+"4100.5)100);:(12):2060: PRINT VALUE OF LARGE TICK MARKuY25ĺ9);"--";:2060: PRINT LARGE TICK MARKY0ĺVS;:(11):"-";:2060: PRINT VERTICAL AXIS STARTING VALUE Y18ĺVL$;:(12):2060: PRINT VERTICAL AXIS LABEL=YE$"1"ĺHL$" TO THE POWER "E$:2030: PRINT END OF TITLE IF A POWER IS USEDHL$: PRINT END OF TITLE IF NO POWER WAS USED:11);"+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"Y4001@Y26ĺ(((100YSVS)POINT TO BE PLOTTED WOULD BE OFF THE GRAPH, DO NOT TRY TO PLOT ITXXP(XP(J),YP(J))AC_bJ|l LABEL AND DRAW Y AXISvD$;"PR#";SL DRAW GRAPH (LINE BY LINE)"FILE NAME: ";N$30);VL$" VS. ";: PRINT FIRST PART OF TITLE OBOLS IN THE ZEROTH ROW AND COLUMN OF THE PLOTTING ARRAYCBX167QCP(X,0)ACXDXdEY040rFP(0,Y)ACyGYIAC170: SET UP TO PUT A "*" AT EACH DATA POINT IN PLOTTING ARRAYNJ1NASXP(J)0XP(J)67YP(J)0YP(J)401890: IF THE SET UP TO PUT DOTS ON THE GRAPH EVERY 5TH SPACE TO GIVE THE EFFECT OF THE LINES ON THE GRAPH PAPER. DELETE LINES 1851 TO 1856 IF YOU DO NOT WANT LINES ON THE GRAPHS<Y4055=X5655>P(X,Y)AC?X@Y7AAC171: SET UP TO PUT "+" SYMT VALUES USED IN SCREEN PLOTTING ROUTINE SO THAT THEY FIT PROPERLY ON PRINTED GRAPH [TJ{ CALCULATE PLOTTING ARRAY  FIRST PUT ASC$ CODE FOR A SPACE IN EACH ELEMENTAC160X167Y140&P(X,Y)AC0Y:X;AC174: G GRAPH COORDINATES..."A@J1N: CALCULATE SCALED VALUESJXP(J)(XA(J)HS)XS15:YP(J)176((Y(J)VS)YS): CALCULATE SCALED VALUESM +++++++++++++++++++++TOXP(J)((XP(J)13)4):YP(J)((178YP(J))4):YP(J)0YP(J)0: ADJUS*********************<0u COPYRIGHT 1983 VERNIER SOFTWAREg:u 2920 S.W. 89TH PORTLAND, OR 97225ND, OR 97225N OR 97225HR 972252H PORTLAND, OR 97225" 2920 S.W. 89TH PORTLAND, OR 972255TLAND, OR 97225DAX150;:"CALCULATIN" ";(200XSHS): PRINT HORIZONTAL AXIS VALUESY 27:HM$| D$;"PR#0": TURN OFF PRINTER ***********************************' RETURN TO MAIN PROGRAM '(4)"EXEC RELOAD"$'.' **************SPACES TO THE LEFT OF THE VERTICAL AXIS 4z X067D (P(X,Y));K XT "+"[ Y 11);"! ! ! ! ! ! ! ! ! ! ! ! ! !" 11);" !"L (12):HS;:(39):RKTR Y0ĺ" ";VS;:(11):"-";:3450: PRINT VERTICAL AXIS STARTING VALUE \ Y25Y25(VM$)Ė7:(VM$,25Y,1);:12: PRINT VERTICAL LABELf Y5(Y5)Ė11:"-";: PRINT A TICK MARK EVERY 5TH SPACE (p 12: PRINT BLANK TITLE IF A POWER IS USEDm* :11);"+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"|4 Y4001> Y26ĺ" ";100YSVS;:(12):3450: PRINT VALUE OF LARGE TICK MARKH Y25ĺ9);"--";:3450: PRINT LARGE TICK MAE GRAPH, DO NOT TRY TO PLOT IT5 P(XP(J),YP(J))AC< JY LABEL AND DRAW Y AXISj D$;"PR#";SL DRAW GRAPH (LINE BY LINE) " FILE NAME: ";N$ : 30);VM$" VS. ";: PRINT FIRST PART OF TITLE  HM$: PRINT END OFF THE PLOTTING ARRAY  X167. P(X,0)AC5 XA Y040O P(0,Y)ACV Y AC170: SET UP TO PUT A "*" AT EACH DATA POINT IN PLOTTING ARRAY J1N XP(J)0XP(J)67YP(J)0YP(J)403300: IF THE POINT TO BE PLOTTED WOULD BE OFF TH4 FILE$"":DR$"": INITIALIZE FILE INPUT STRINGS_ "ENTER NAME OF FILE TO BE CONVERTED:"k X134s X$| X$; (X$)13550 (X$)44DR$DR$X$:530 DR$""DR$DR$X$:530: ADD A CHARACTER TO THE DRIVE STRING, FILE$FILE$E YOU INPUT, BUT THEB r"SUFFIX '.GA' WILL BE ADDED. FOR EXAMPLEn |"IF YOU ENTER A FILE NAMED 'DATA' THE "NEW CONVERTED FILE WILL HAVE THE NAME "'DATA.GA'.  T1(100),T2(100),T3(100),T4(100),X(100),Y(100) ---------------------NVERT0 ,"DATA FILES CREATED USING THE VERNIERZ 6"SOFTWARE PROGRAM 'PRECISION TIMER'" @"TO FILES READY FOR USE WITH THE VERNIER" J"SOFTWARE PROGRAM 'GRAPHICAL ANALYSIS'." T ^"THE CONVERTED FILE WILL HAVE THE SAME  h"NAME AS THE FIL ," FILE CONVERTER PROGRAM"Q" **********************"Wx" VERNIER SOFTWARE" 2920 S.W. 89TH" PORTLAND, OR" 97225 : ""THIS PROGRAM IS INTENDED TO CO    H PORTLAND, OR 97225 ESPONSE AGAIN.'Y:'["************ ERROR ************@']n'`J1500:J: TIME DELAY TO READ SCREEN'e100: RETURN TO MAIN MENU'j ***********************************'t' COPYRIGHT 1983 VERNIER SOFTWARE(  2920 S.W. 89T***************************<&L ERROR HANDLING ROUTINE^&MD$;"PR#0": TURN OFF PRINTERv&O198: RING BELL&V(222)2553700: END PROGRAM WITH CNTRL C'X(222)254Ħ: IF THE ERROR IS SIMPLY A BAD RESPONSE AT AN INPUT, ASK FOR AN RON!% X1SX1SXA(J):Y1SY1SY(J)D% X2SX2SXA(J)2:Y2SY2SY(J)2Y% PSPSXA(J)Y(J)`%J%BX((1N)X1SY1SPS)((1N)X1S2X2S)%AX(Y1SBXX1S)N%$BY1(((1N)X1SY1SPS)((1N)Y1S2Y2S))%.AY(Y1SBYX1S)N%8&B ********l D$;"PR#0"$ ;$ ******************************Z$ REGRESSION ROUTINE$ N03640: EMPTY DATA TABLE$ E$(M$,2,2)$ E$""E$" "E$"1"$ X1S0:Y1S0:X2S0:Y2S0:PS0$ J1N% XA(J)X(J)(E$): DATA MANIPULATI :" REGRESSION OF Y ON X"3# :"SLOPE = ";BXL#& "Y-INTERCEPT = ";AXq#0 "CORRELATION COEFFICIENT = ";RX#: :" REGRESSION OF X ON Y"#D :"SLOPE = ";BY#N "Y-INTERCEPT = ";AY#X INTERPOLATE OR EXTRAPOLATE VALUES ROUTINE #b $ D$;"PR#";SL1" :" NUMERICAL ANALYSISI" :"FILE NAME: ";N$]" :VL$;" VS. ";" E$"1"ĺHL$" TO THE POWER "E$:3083: PRINT LABLE IF A POWER WAS USED" HL$: PRINT LABLE IF NO POWER WAS USED" :"NUMBER OF DATA PAIRS = ";N# CALCULATE VALUES NEEDED FOR COEFFICIENT OF CORRELATION\! DX2SDX2S(Y(J)BXXA(J)AX)2! DY2SDY2S(Y(J)BYXA(J)AY)2! SX((X2SN(X1SN)2)(N1))! SY((Y2SN(Y1SN)2)(N1))! RX(PSN(X1SN)(Y1SN))((N1)SXSY)! J! "ER OF DATA PAIRS READ ^ D h ******************************j r NUMERICAL ANALYSIS ROUTINEp | :" CALCULATING ..." 3490: GOTO SUBROUTINE THAT CALCULATES SLOPE AND INTERCEPT OF REGRESSION LINE DX2S0:DY2S09! J1N:   :; "ENTER THE NAME OF DATA FILE TO BE READ"C N$V D$;"OPEN ";N$i D$;"READ ";N$r HL${ HU$ VL$ VU$ J132" X(J), Y(J)6 X(J)9999Y(J)99992890@ JJ D$;"CLOSE ";N$ T NJ1: SET N= NUMBESiE$"1"Ė(27):HL$" TO THE POWER "E$:2220: PRINT LABEL WHEN X DATA IS R AISED TO A POWER x(27):HL$(27):"(";HU$;")"D$;"PR#0": TURN OFF PRINTER ***************************** READ DATA FROM DISKōήōήǍō̠ȲōԍōîčͯÍ͠ĠΠ͍Ġ̠Ӡ΍̍ЍY(J)T1(J)C2Y(J)T2(J)3C3Y(J)T3(J)GC4Y(J)T4(J)RX(J)J\X(J)f$Y(J)m.Jw89999B9999: END OF DATA MARKERSLD$;"CLOSE ";FILE$;".GA"V"DATA SAVED IN A FILE NAMED ";FILE$;".GA"`*********3z"THE CONVERTED FILE IS BEING SAVED."Q STORE DATA ON DISKqD$;"OPEN ";FILE$;".GA";DR$D$;"DELETE ";FILE$;".GA"D$;"OPEN ";FILE$;".GA"D$;"WRITE ";FILE$;".GA"HL$HU$VL$VU$J1N C1ISKETTE IN / "DISK DRIVE AND PRESS RETURN."8*DR$4DR$"1"DR$"2"DR$",D"DR$: SET-UP A STRING TO SELECT DISK DRIVE FOR OUTPUT>--------------HHL$"RUN NO."RHU$" "\VL$"TIME"fVU$"SECONDS" p ******************D$;"CLOSE ";FILE$;34,0: RESTORE NORMAL SCREEN WINDOWAc ***************************"WHICH COLUMN OF TIMES SHOULD BE""USED AS THE VERTICAL AXIS DATA?""(ENTER 1, 2, 3, OR 4)" C$:C(C$) "PLACE GRAPHICAL ANALYSIS D4,6: 'FREEZE' TOP OF SCREEN SO COLUMN HEADINGS ARE NOT SCROLLED OFF SCREEN d lD$;"READ ";FILE$k vNv J1N T1(J) T2(J) T3(J) T4(J) J;4);((T1(J)),7);13);((T2(J)),7);22);((T3(J)),7);31);((T4(J)),7) JX$: ADD A CHARACTER TO THE FILE NAME STRING3 XL -------------------v &:"THE FILE WILL BE DISPLAYED BELOW:| 0 ::"FILE NAME: ";FILE$;DR$: DD$(4): CONTROL D ND$;"OPEN ";FILE$;DR$ X"# T1 T2 T3 T4"N b3ōӍōӍԯڮӍōӍԯڮӍȍͮӍ͍ō΍ōӮÍč͍ōÍ ԍ͍ōÍ ō͍ōӍNUMp(37)22(A$)0910Wz24::" PRESS SPACE BAR TO CONTINUE SCROLLING ";:s{A$:A$" "891: WAIT}~22:J:34,0:35,24: RESTORE NORMAL WINDOW INPUT DATA 34,3 24: MOVE CURSOR TO BOTTNE #";:10:(HM$,14);:25:(VM$,14)H *10:(HM$,15);:25:(VM$,15)r >"**** ********** **********"x ? @ PRINT TABLE BJ1N C34,3:35,23: SET TEXT WINDOW HJ; R(11):NUMXA(J):200:NUM;f(26):NUMYA(J):200:TA FILE NAME  :109 8:"ENTER NAME OF DATA FILE"Z :10:"(OR 'C' TO CATALOG)"k :11:"";N${ N$(N$,30) N$"C"ĺD$;"CATALOG"::720 N$"C1"N$"C2"ĺD$;"CATALOG ,D";(N$,2)::720   TABLE HEADINGS #% %"LI INTERCEPT? SX((X2SNXM2)(N1)): STANDARD DEVIATION\ SY((Y2SNYM2)(N1)) RX(PSNXMYM)((N1)SXSY): CORRELATION COEFFICIENT  X SET SCALING b200:NUMNUMPWR lNUM(23(NUM2)5(NUM5))PWR v  GET DANE  1600: MODIFY DATA= X1S0:Y1S0:X2S0:Y2S0:PS0H J1Nh X1SX1SXA(J):Y1SY1SYA(J) X2SX2SXA(J)2:Y2SY2SYA(J)2 PSPSXA(J)YA(J) J XMX1SN:YMY1SN: MEANS A(PSNXMYM)(X2SNXM2): SLOPE BYMAXM:FCTR "2 , HIRES PRINTING ROUTINE 9 O0@ T1P YC1(PR$)b ^VP191VP10t cHP275HP10 gCC((PR$,C,1))31:CC1CC59365 hCCHP,VP mO$"V"VPVPSC9 rO$"H"HPHPSC7 wC |  REGRESSION ROUTI7* COPYRIGHT 1983 VERNIER SOFTWAREC 1800: MAIN PROGRAM] ROUNDING ROUTINE gPWR1y(NUM)1250(NUM)PWRPWRPWR10:230260(NUM)PWR10PWRPWR10:250FCTR10PWRDECNUM0290 NUM(NUMFCTR.5)                     !!! ΠϮōӍ  ҍͮčî ҍͮčîT GRAPH *"*z"N = NUMERICAL ANALYSIS *"H"T = PRINT DATA TABLE *"f"O = OUTPUT TO PRINTER *"D = DUMP GRAPH TO PRINTER""Q = QUIT"32,0::"* INDICATES DATA MANIPULATION ALLOWED"M$M1$(M$,1)M1$"Q"ĀM1$"R""L = LOAD DATA FROM DISK"9>"M = MERGE DATA FROM DISK"^H"S = SAVE CURRENT DATA ON DISK"R"A = ADD TO CURRENT DATA TABLE"\"C = CHANGE CURRENT DATA"f"E = EXCHANGE AXES"k"R = SET ROUNDING (NOW ";::ROUND;::" PLACES)" p"P = PLO GRAPHICAL ANALYSIS II>" VERNIER SOFTWARE^" COPYRIGHT 1983dzN$""N$"*NONE* 16(N$)2:"FILE: ";N$"SELECT MODE:";32,9: MOVE LEFT MARGIN OVER *"I = INPUT NEW DATA"4A$8000": LOAD LETTERS USED IN PRINTING GRAPH LABELS^bD$;"BLOAD IMAGE.HIRES.$9000.OBJ0"l232,00:233,128: SET SHAPETABLE POINTER TO $8000vX(200),Y(200),XP(200),YP(200),XA(200),YA(200)ROUND3:DEC1000 MENU :"( COPYRIGHT 1983 VERNIER SOFTWARE80INITIALIZED525000:25088:107,0:108,98:109,0:110,98: MOVE VARIABLES ABOVE GRAPHICSD8163: SET HIMEM BELOW SHAPE TABLE AT $8000ND$(4): D$= CONTROL7XD$;"BLOAD HGR LETTERS,J1N:XA(J)(X(J)):J:HM$"LOG "HL$:1710|(E$,1)""(E$,1)" "(E$,1)"S"āJ1N:XA(J)X(J):J:HM$HL$" ("HU$")":1710: LEAVE X() UNCHANGEDJ1NXA(J)X(J)(E$)JHM$HL$" TO THE POWER "E$ MAIN PROGRAM @ MODIFY DATA GJE$(M$,2): CHECK FOR MODIFICATION DESIREDT(E$,2,1)"L"āJ1N:YA(J)(Y(J)):J:VM$"LOG "VL$:1650: MODIFIY YA() AND LABLE^J1N:YA(J)Y(J):J:VM$VL$" ("VU$")": LEAVE YA() UNCHANGED+r(E$,1)"L"ā1MXXS)10XS:"NUMYS:600:YSNUM:VS(.1MYYS)10YSW'(HS(XMAXHS)).1HS0t,(VS(YMAXVS)).1VS01J1N: CALCULATE SCALED VALUES6XP(J)(XA(J)HS)XS15:YP(J)176((YA(J)VS)YS): CALCULATE SCALED VALUES;J=XS(XMAX)260:YS(YMAX)155: CALCULATE RANGE OF VALUESPNUMXS:600:XSNUMg NUMYS:600:YSNUM1585: END OF MODE A SCALING MODE B SCALINGXS(XMAXMX)260:YS(YMAXMY)155: CALCULATE RANGE OF VALUESNUMXS:600:XSNUM:HS(0."ENTER STARTING VALUE FOR VERT. AXIS ";VS1^"ENTER VALUE OF EACH HORIZ. SQUARE ";XS"ENTER VALUE OF EACH VERT. SQUARE ";YS1585: SKIP AUTOMATIC SCALING IN MANUAL MODE MODE A SCALINGHS0:VS0: SET ORIGIN AT 0,0 9XMAX 6"RANGE OF VERT. VALUES TO BE PLOTTED:"JMY;" TO ";YMAXx:"THE SCREEN (OUR GRAPH PAPER) IS 265 ""SQUARES WIDE AND 160 SQUARES VERTICALLY.:"ENTER STARTING VALUE FOR HORIZ. AXIS ";A$:HS(A$):A$"Z"HSMX:VSMY:1505+"B - AUTOMATIC SCALING, VARIABLE ORIGIND:"C - MANUAL SCALING N:A$]A$(A$,1)nA$"B"1555A$"C"14501525: DEFAULT SCALING MODE"MANUAL SCALING MODE":"RANGE OF HORIZ. VALUES TO BE PLOTTED:"MX;" TO "; OF FIRST DATA PAIR ZJ1N:_XA(J)XMAXXMAXXA(J)UdYA(J)YMAXYMAXYA(J)liXA(J)MXMXXA(J)nYA(J)MYMYYA(J)sJx::: CLEAR HGR2 SCREEN }"SELECT SCALING MODE:":"A - AUTOMATIC SCALING WITH ORIGIN AT 0,0";':VU$J1N1X(J)& Y(J)-JAD$;"CLOSE ";N$G(]F SET UP GRAPH uK1600: MODIFY DATAPXMAXXA(1):YMAXYA(1): SET MAXIMUM VALUES TO VALUES OF FIRST DATA PAIRUMXXA(1):MYYA(1): SET MINIMUM VALUES TO VALUESSOR BACK UP TO THE RIGHT LEVELhB(25):A$:Y(J)(A$):A$"Q"X(J)9999:Y(J)9999:NJ1:J200: EXIToLJV34,0:35,24: RESTORE NORMAL WINDOW` WRITE A FILE D$;"OPEN ";N$D$;"WRITE ";N$HL$HU$VL$OM OF SCREEN="ENTER THE APPROPRIATE DATA AT THE CURSOR";l"LOCATION. ENTER 'Q' TO END DATA ENTRY."w35,21~5$JN1200.J;:(10):A$:X(J)(A$):A$"Q"X(J)9999:Y(J)9999:NJ1:J200:1100: EXIT 8((37)): MOVE CUR).9(J15)50((J15)50)ēJ,176J,164:.9J,176J,169o.:(S$,2,1)"G"āI166010:J,I:I: DRAW GRIDv. :J.:J166010. :(176J)50((176J)50)ē15,J25,J.*:15,J20,J.4:J.>:HP15:VP181:PR$((HS),4):O$"H":300/H:PR$((V SET UP FOR PRINTING VERTICAL LABEL2-:9PR$VM$;-D9300G-N9PR$HM$X-X9VP188:HP90-b9O$"H": SET UP FOR HORZ LABEL-l9300-9 DRAW AXES AND LABEL:-915,6275,6-9275,6275,176-9275,17615,176-915,17615,6.9J2527510ATA BY ENTERING AN 'R'.,,8:"GRAPHING..."X,8(S$,1)"Q"15250: EXIT PLOTTINGu,8S$""S$"DG": DEFAULT,8(S$,1)"D"(S$,1)"L"(S$,1)"R"(S$,1)"S"14490,9 GRAPHICS,&93: SET COLOR WHITE&-09SC1:O$"V":VP5:HP3: R MAY BE USED TO ADD:":6+8" G - GRID ON GRAPHZ+8" N - NUMBERING OF POINTSd+8:S$+8:"NOTE: AFTER GRAPH IS COMPLETED, YOU MAY"+8"RETURN TO THE MAIN MENU BY PRESSING THE+8:"RETURN";::" KEY. YOU MAY REGRAPH THE SAME,8"DSET UP GRAPH*8:::*88*8"SELECT GRAPH STYLE:W*8" D = DOTS AT POINTS*8" L = POINT TO POINT LINE DRAWN*8" R = REGRESSION LINE"*8" S = WITH STATISTICS*8" Q = RETURN TO MAIN MENU+8:"A SECOND CHARACTEST PRESS RETURN FOR SCREEN DISPLAY"+)2A$I)2(A$)0ĺD$;"PR#";(A$)d)2800: TABLE HEADINGS|)2832: PRINT TABLE)2D$;"PR#0": TURN OFF PRINTER)2" PRESS RETURN TO CONTINUE ";A$)22010)6 SCREEN GRAPH *71350: ENTER UNITS OF THE VERTICAL AXIS DATA: ";VU$:VU$(VU$,8)K(/E$"1":1600S(/N0o(!/800: TABLE HEADINGS("/1000: INPUT LOOP(#/2010(2 DATA TABLE ROUTINE (21600: MODIFY(2::"ENTER SLOT NUMBER OF PRINTER TO BE USED"#)2"OR JUEP LABELS FOR AXES? ";:A$:(A$,1)"Y"120626'.:w'."ENTER LABEL FOR HORIZONTAL AXIS DATA: ";HL$:HL$(HL$,8)'/"ENTER UNITS OF THE HORIZONTAL AXIS DATA:";HU$:HU$(HU$,8)'/"ENTER LABEL FOR VERTICAL AXIS DATA: ";VL$:VL$(VL$,8):(/"J).&'X(J)9999Y(J)9999NJ1:J200: EXIT5&'JI&'D$;"CLOSE ";N$S&'2010n&* STORE DATA ON DISK w&+700& +1200&+"DATA SAVED IN A FILE NAMED ";N$& +::"PRESS ANY KEY TO CONTINUE. ";:A$&*+2010&. DATA INPUT .'.:N0ĺ"KENTER,%,$::"PRESS RETURN TO CONTINUE ";A$6%@$2010R%' READ DATA FROM DISK [%'700%$'M1$"L"N0: READ IN NEW FILE%.'D$;"VERIFY ";N$%8'D$;"OPEN ";N$%B'D$;"READ ";N$%L'HL$%V'HU$%`'VL$%j'VU$%t'JN1200%~'X(J)&'Y(OLATE VALUES$#4$#"DO YOU WANT TO INTERPOLATE"X$#"OR EXTRAPOLATE (Y OR N) ":A$o$#(A$,1)"Y"9255$$"ENTER VALUE FOR HORIZONTAL AXIS VALUE ":V$$NUMAVB:200$$"THE VERTICAL AXIS VALUE IS ";NUM$"$%'$D$;"PR#0": TURN OFF PRI#x#:"X-AXIS DATA: "HM$4##:"Y-AXIS DATA: "VM$W##:"NUMBER OF DATA PAIRS = ";Nf##NUMA:200|##:"SLOPE = ";NUM##NUMB:200##:"Y-INTERCEPT = ";NUM##NUMRX:200##:"CORRELATION COEFFICIENT = ";NUM $# INTERPOLATE OR EXTRAP: CALCULATES SLOPE AND INTERCEPT OF REGRESSION LINEi"K#::"ENTER SLOT NUMBER OF PRINTER TO BE USED""M#"OR JUST PRESS RETURN FOR SCREEN DISPLAY""N#A$"O#(A$)0ĺD$;"PR#";(A$)"P#"Z#:" NUMERICAL ANALYSIS#d#:"FILE NAME: ";N$RN TO LEAVE)!"THE ROUNDING UNCHANGED.1!A$A!A$""5060~!(A$)1(A$)8ĺ"IMPROPER ENTRY, SELECT AGAIN ":5035!ROUND(A$)!DEC1:I1ROUND:DEC10DEC:I!2010!(# NUMERICAL ANALYSIS !2#!<#:" CALCULATING ..."6"F#4007000 L M1$"T"13000) V M1$"R"5000< j M1$"O"20000F t 2010[  SET ROUNDING f :(5) "THE PROGRAM WILL NOW ROUND ALL NUMBERS "WITH ";ROUND" SIGNIFICANT DIGITS. "SELECT A NEW VALUE (1-8)." !"MAKE NO ENTRY AND PRESS RETU5000M1$"I"12000+M1$"L"10000>M1$"D"22000 N0ĺ:10::"NO DATA TABLE IN MEMORY"::I11000:I:2010 M1$"M"10000 M1$"S"11000 M1$"A"18000$ M1$"C"16000. M1$"P"140008 M1$"N"9000 B M1$"E"1LER+ DUMP .>TV36864,SL,1: IMAGEWRITER DUMP8>W2010P>a ERROR HANDLING r>aD$;"PR#0": TURN OFF PRINTER>a(222)255ij>a198: RING BELL>aEL(219)256(218)>a(222)6Ğ:"FILE NOT FOUND":(?a(222)53(EL1620EL1650)Ğ:"YO=ND$;"RUN PRINTER")=U DUMP GRAPH /=Ub=V"SELECT:":"G = GRAPPLER+":"I = IMAGEWRITER"q=V"[G] ";Q$="V"ENTER SLOT # FOR PRINTER [1] ";QQ$:QQ$""QQ$"1"='VSL(QQ$) >,V(Q$,1)"I"ĺD$;"PR#";SL:(9);"G2E":D$;"PR#0":22300: GRAP<*N1350: SET UP GRAPH@N1200: SAVE DATAj?(A$,1)"Y"162509H?"TYPE IN THE CORRECT LABELS":"MAKE NO ENTRY AND PRESS RETURN":"IF LABEL IS ALR7>J0JN16090"7>J016180>7?800: TABLE HEADINGSF7?22X7?"ENTER DATA"7?"( ENTER 'D' TO DELETE THE DATA LINE ) "7?67?" "J;7?(11):A$:A$"D"X(J)999:Y(J)999:161707?A$""16157: NO CHANGE7?X(J)(A$)8?((37DO YOU NEED TO SEE THE DATA TABLEL6>"DISPLAYED WITH LINE NUMBERS (Y/N)? "T6>A$l6>(A$,1)"Y"160906>800:832: PRINT TABLE6>22:"ENTER LINE NUMBER OF DATA TO BE CHANGED":9587>"(ENTER 'Q' WHEN CHANGES ARE COMPLETE)";:"";A$:J(A$)PEAT GRAPH IF AN 'R'5;201025> CHANGE DATA Q5>E$"1":1600: DATA MODS|5>D0: NUMBER OF DELETIONS TO BE MADE5>:55>"BEFORE CHANGING DATA, YOU WILL NEED TO5>"KNOW THE LINE NUMBER OF THE DATA WHICH5>"IS TO BE CHANGED.!6>:"RX:200:PR$PR$"R= "(NUM): STATS STRING74s;15221e4t;PR$(VM$" VS "HM$,39): PRINT TITLE4u;VP2:HP1407((PR$)2)4x;3004|;4~;XX(0): STRING HOUSECLEANING5;S$:S$"R"ĉ::"THE SAME DATA WILL BE GRAPHED AGAIN"::14485: RE)YSVSB)AHS)XS15)(3V;HP279:VPY9p3`;X9HP(VP0VP176)(VP0VP176)((((176VP)YSVSB)AHS)XS15)3j;X0,Y0X9,Y93n;(S$,1)"S"15220: SKIP STATS3o;NUMA:200:PR$"A= "(NUM)" "3p;NUMB:200:PR$PR$"B= "(NUM)" ",4q;NUMRESSION LINE02;400: CALCUALTE REGRESSION FITM2;Y0(176(BAHSVS)YS)s2$;Y0Y0(Y0176Y00)176(Y0176)2.;Y9(176(BA(HS264XS)VS)YS)28;Y9Y9(Y9176Y90)176(Y9176)2B;HP15:VPY03L;X0HP(VP0VP176)(VP0VP176)((((176VP2,YP(J)2.1:XP(J)2,YP(J)2XP(J)2,YP(J)2S1:XP(J)2,YP(J)2XP(J)2,YP(J)21:(S$,2,1)"N"PR$(J):HPXP(J):VPYP(J)8:300: NUMBER POINT1:XP(J),YP(J)1:J 2;(S$,1)"R"(S$,1)"S"15220: SKIP THE NEXT FEW STEPS IF NO REG3YP(J)188Č198:15100: RING BELL AND SKIP PLOTTING IF OFF SCREEN0:(S$,1)"L"J1ēXP(J),YP(J): PLOT FIRST POINT0:(S$,1)"L"ēXP(J),YP(J)0: DRAW PT. PROTECTORS:0:XP(J)2,YP(J)2XP(J)2,YP(J)2 1:XP(J)2,YP(J)2XP(J)S),4):HP3:VP174:300-/R:NUM100YSVS:200T/\:O$"V":HP10:VP70:PR$(NUM):300k/f:NUM200XSHS:200/p:O$"H":VP181:HP210:PR$(NUM):300/z: PLOT POINTS/:16304,1:16299,1:16297,1: TURN ON HGR2/:J1NH0:XP(J)3XP(J)276YP(J)LEAR STACKAe2000L@aEL(219)256(218)>@a(222)6Ğ:"FILE NOT FOUND":@a(222)53(EL1620EL1650)Ğ:"YOU CANNOT TAKE THE LOG OF A NUMBER <=0":@a@a"****** ERROR ON LINE ";EL;" ******@a@aJ1900:J: TIME DELAY TO READ SCREEN Ab3288: CU CANNOT TAKE THE LOG OF A NUMBER <=0":.?aW?a"****** ERROR ON LINE ";EL;" ******]?a?aJ1900:J: TIME DELAY TO READ SCREEN?b3288: CLEAR STACK?e2000INE ?aD$;"PR#0": TURN OFF PRINTER?a(222)255ij@a198: RING BELōήōήǍ""