' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x˵*̵+뷮浭õL H8`BĵC µLµBõĵܭɵBʵCȱBȱB BȱBȌµõĵĵµ ˵̵ LLҦ  `   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL徭 õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-(  @跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`  d ֠z# u`+6121+6"DO YOU WANT A FREQUENCY HISTOGRAM";<+651010Q+6A$E$Ė1:12200c+6A$"N"16000+6*** FIND MAX FREQUENCY+7F9F(1)+ 7J2N1+7F9F(J)14120+7F9F(J)+(7J+27D1(F930)1+<7+F7:10:2+P7"FREQUENCY HISTOGRAM"52010&*3A$E$JK1:KK10:130808*3J1ė:12200C*313010X*3I140:"-";:Ig*3"TOTALS";*3T924:X9C(N1):50010*3T932:X9H(C(N1)N):50010*352010*3A$E$14010*3J1ė:12200*313010*6*** FREQUENCY HISTOGRAM *6)3KN1KN1)"37:1:958)),3IJKG)63T95:X9K(B(I1)):50010d)@3T915:X9K(M(I)):50010})J3T924:X9F(I):50010)T3T929:X9C(I):50010)^3T932:X9H(F(I)N):50010)h3T938:X9H(C(I)N):50010)r3(36)0ĺ)|3I)3KN113240*3D";(/51010 (/A$"N"140100(/A$E$9000J(2*** FREQUENCY TABLE S(2:9q(2"FREQUENCY DISTRIBUTION"x(23(237);"CUM"(2" UPPER";26);"CUM REL REL"(2"BOUNDARY MIDPOINT FREQ FREQ FREQ FREQ";(3I140:"-";:I(3J1:K10I)B(J1)JJ1:12065)'&/F(J)F(J)1:Ic'X/*** GET GROUP MIDPOINTS AND CUMULATIVE FREQUENCIES q'b/C(1)F(1)'l/M(1)(B(1)B(2))2'v/I2N1'/M(I)(B(I)B(I1))2'/C(I)C(I1)F(I)'/I'/'/12(/"DO YOU WANT FREQUENCY TABLE PRINTE+I &+!&+M2B(N11)12010c&+14:B$;"LARGEST VALUE EXCEEDS UPPER BOUNDARY,":"TRY AGAIN."n&+11000&.*** GET FREQUENCIES OF THE GROUPS &.:10&."CALCULATING GROUP FREQUENCIES ..."&.I1M9:F(I)0:I&/&/J1&/I1N'!/X(RST GROUP: ";%R+530107%\+A$E$Ė1:10:958:11010C%f+B(1)A9M%p+958S%z+g%+M1B(1)11190%+14:B$;"LOWER BOUNDARY EXCEEDS SMALLEST VALUE,":"TRY AGAIN."%+11070%+*** SET UP GROUP BOUNDARIES %+%+I2N11%+B(I)B(I1)D&LLEST VALUE."$(10310/$(M2B(N11)12010c$(12:B$;"LARGEST VALUE EXCEEDS UPPER BOUNDARY."n$(10310|$*10:868$+"ENTER GROUP WIDTH";$ +53010$+A$E$Ė1:8:958:9230$ +DA9$*+958$4+$>+12:868 %H+"LOWER BOUNDARY OF FIUSE THE ";::"E";::"DITOR";)#Z(550103#d(958D#n(A$"R"9000V#x(A$"E"10220#(1:24:B$;"PRESS ";::"R";::" OR ";::"E";::" ONLY. YOU PRESSED - ";::A$;::1:17:868:10310#(M1B(1)10410 $(12:B$;"LOWER BOUNDARY EXCEEDS SMA*** CALL BOUNDS EDITOR"''"'19510-"'9"(I1N1Q" (B(I)B(I1)10280X"(Ic"(10380k"((12"2(B$;"BOUNDARY VALUES MUST BE ENTERED IN""<(:"ASCENDING ORDER.""F(1:16#P("DO YOU WANT TO ";::"R";::"EENTER THE BOUNDARIES"::"OR 958:92306!t'J0Ģ(37)1:958:II1:JJ1:10060U!~'15:958:II1:J0:10060a!'B(I)A9k!'JJ1!'J5J0:15:958!'I!'21!'"DO YOU WANT TO PROOFREAD YOUR BOUNDS";!'51010!'A$E$Ė1:10:958:10010!'A$"N"10230"'GROUP BOUNDARIES - INCLUDE LOWER":"BOUNDARY OF THE FIRST GROUP AND UPPER" $'"BOUNDARY OF LAST GROUP. PLEASE ENTER":"THE BOUNDS ONE AT A TIME AS REQUESTED." .' 8'J0 B'I1N11 L'6);"BOUND #";I; V'53010 `'A$E$10120 !j'I1Ė1:8:ST BE AN INTEGER,">#" GREATER THAN OR EQUAL TO 1, AND"h#" LESS THAN OR EQUAL TO ";M9;"."r#9100|#958#$8$"ARE GROUPS TO BE OF EQUAL WIDTH";$51010"$A$"Y"11000,$A$E$Ė1:6:958:9110'10J '"ENTER "LARGEST VALUE IS";,Z#T926:X9M2:50010:=d#"RANGE IS";Yn#T926:X9M2M1:50010:_x#e#r#6:868#"ENTER NUMBER OF GROUPS";#53010:A$E$ė:8010#N1A9#N1(N1)9160#(1N1)(N1M9)09200#8:B$;"YOUR ANSWER MU3KI15JKN81800J101:X(K);7J=D IO 52010` A$E$8250r& X91ė:8010|0 8070: T945N9000D X9X960:T9X914N 1:4:958:8120(#2#<#"SMALLEST VALUE IS";F#T926:X9M1:50010:P##Tӹ36,CH:CV1:958:A$;:54020Dֲ *** SINGLE CHARACTER INPUTXֹ16368,0:A$:0;aA$E$21010;aI8A9s;aI8(I8)I81I8N8ĺB$::I8;::" IS NOT AN INTEGER BETWEEN 1 AND ";N8;:25010};a958;a10:20;b"CURRENT VALUE: ";T(I8); b10:21:868;b"NEW VALUE";; b53010;*bA$E$Ė10:19:958:28010<>bT(I8)H THE EDITOR.";:zS21170(:U*** HELP3:U31000>:V21050L:Y*** BACKY:YS8S810i:YS8021010t:Y20190:]*** NEXT:]E8N821050:]S8S810:]S8N8S8N89:]21010:a *** CHANGE:a10:19:868:a"ENTER ITEM #";;a5301ė:9RA$"H"A$"?"2201009RA$" "A$"?"89RA$J9SA$"N"24010\9 SA$"B"23010n9SA$"C"250109*SA$"D"2601094SA$"A"270109>S1:239HSB$;::A$;:9RS" IS NOT AN EDIT COMMAND, PRESS ";9\S:"H";:9fS" FOR":pS"HELP WITT$))2)1);T$8DR3=8NR"A LISTING OF ITEMS # ";S8;" - ";E8D8XR5c8bR5);"ITEM #";15);"VALUE"q8lRI8S8E88vRT98:X9I8:500108RT918:X9T(I8):500108R8RI88R 8R1:18:8688R"COMMAND? ";8R550108R9589RA$"E"A$E$7N"THIS EDITOR";7N51010/7NA$"N"20190>7NA$E$ė:a7N CALL EDITOR HELP SUBROUTINEl7N30010u7NS817R PRINT NEXT 10 ITEMS OR LAST 10 ITEMS7RS89N8E8S89:210507RS81E8N8:210507&RS8S8170R210107:R 8?R((40(ITING ROUTINE $6*N N8 - # OF ITEMS;64N M8 - MAX # ITEMSR6>N S8 - START INDEXg6HN E8 - END INDEXx6RN I8 - INDEX6\N T8 - TEMP6fN6pN86zN" --- INTERACTIVE DATA EDITING AID ---"6N126N"DO YOU NEED INSTRUCTIONS ON HOW TO USE"6N 5LJM8N95VJT$"DATA POINTS"-5`JSWAP(X,T)85jJ20070A5tJNN8P5~JSWAP(X,T)V5Jx5,L*** EDITOR ENTRY FOR BOUNDS 56LN8N115@LM8M95JLT$"GROUP BOUNDARIES"5TLSWAP(B,T)5^L200705hLN1N815rLSWAP(B,T)5|L6 N*** INTERACTIVE DATA EDISKETTE."4XC90104bC1600034lC(222)917310f4vCB$:"DISKETTE IS FULL, DATA CAN NOT BE SAVED"4C:"ON THIS DISKETTE."4C90104C160004C:124CB$;"ONERR CODE OF ";(222);" DURING SAVE."4C48J*** EDITOR ENTRY FOR DATA 4BJN8NAVE OF DATA COMPLETED.""3B52010-3C16000C3C(222)1017210r3CB$:"FILE ALREADY EXISTS ON DISK. USE A"3&C:"DIFFERENT FILE NAME."30C170203:C(222)4172603DCB$:"DISKETTE IS WRITE PROTECTED, DATA CAN" 4NC:"NOT BE SAVED ON THIS D1,1)"Z"ĺB$:"FILE NAMES MUST BEGIN WITH A LETTER AND"::"BE FROM 1 TO 8 CHARACTERS LONG";:17020m2B958y2B171702BD$;"OPEN ";A$;C$2BD$;"WRITE ";A$;C$2BN2BI1N:X(I):I2BD$;"CLOSE ";A$;C$2BD$;"LOCK ";A$;C$2BD$3B:"S;::", ";1?:"M";::", ";71?:"U";::", OR ";J1?:"R";::"."a1@"YOU PRESSED - ";s1@:A$;::"."~1@161901hB*** SAVE FILE1rB1|B1:8:868:"ENTER SAVE NAME";1B540101BA$E$16000c2B(A$)0(A$)8(A$,1,1)"A"(A$,R CHOICE? ";0R?55010*0\?A$"C"16250@0f?I1M9:F(I)0:IJ0p?9000\0z?A$"S"17010m0?A$"M"6075~0?A$"U"40000?A$"R"ĺ::D$;"RUN MENU"0?A$E$150000?A$" "A$"?"0?B$0?230?"PRESS ";0?:"C";::", "; 1?:"S" />:"S";:2/>"AVE THIS SET OF DATA ON DISK,":/>10H/>:"M";:g/>"ODIFY THIS SET OF DATA,"o/?12}/ ?:"U";:/?"SE DIFFERENT DATA WITH THIS PROGRAM, OR"/ ?14/*?:"R";:/4?"ETURN TO THE MENU OF PROGRAMS."/>?18 0H?"ENTER YOUA9 .;958(.$;(F9D1.5)3214150p..;:B$;"UNIT TOO SMALL TO PRODUCE A GOOD GRAPH."::"INCREASE UNIT."{.8;15060.>.>2.>"DO YOU WANT TO:".>4.>:"C";:.>"HANGE THE FREQUENCY GROUPS FOR THIS".>:" SET OF DATA,".>8010-7A$E$14010-::10C-:"DO YOU WISH TO CHANGE ";D1;","`-::"THE VERTICAL SCALE";k-:51010|-:A$E$14010-:A$"N"16000-:1:12-:868-:"ENTER DESIRED UNIT IN TERMS OF"-::"FREQUENCY";-:53010-;A$E$15000.;D1,Z7"MIDPOINT",d7 ,n7I1N15,x7N2(F(I)D1.5)D,7K(M(I));N,78);Z,7J1N2j,7N2014250x,7:"/";:,7J,7,7I,7,7,7"EACH ";::"/";::" ON VERTICAL SCALE OF HISTOGRAM",7"REPRESENTS A FREQUENCY OF ";D1-752:"Y":K0R970:41010"K::4KD"PRESSING ";BKN:"Y";:fKX"ES DELETES THE VALUES, WHILE"lKbzKl:"N";:Kv"O STOPS THE DELETE FROM HAPPENING."KR990:41010K40010KA$"S"ıKA$E$34000K:3K"PRESSING ";LELETION, THE ENDPOINTS AND THEIR"MJ̈"VALUES ARE PRINTED FOR VERIFICATION."SJֈrJ"CONTINUING THE EXAMPLE:"JR9160:41010J:J10);"DELETE ITEM #";I8;" (";T(I8);")"JJ10);"THRU ITEM #";T8;" (";T(T8);")? ";JR970:41010 K&ER:"IHR9180:41010IR:9I\10);"FROM ITEM #? ";JIfR940:41010[IpR9I8:42010lIzR940:41010rII10);"TO ITEM #? ";IR940:41010IR9T8:42010IR940:41010I40010IA$"S"ıIʅA$E$33000I:3!Jˆ"BEFORE DHڄ"IF YOU PRESS ";#H䄞:"D";:CH" FOR DELETE, YOU WILL BE"IHvH"PROMPTED FOR THE RANGE OF ITEM #'S TO"|H H"DELETE. FOR EXAMPLE, TO DELETE ITEMS"H I8(N8.25)1H*T8I81:T8N8T8N8H4I>I8;" THRU ";T8;", YOU WOULD ENT90:41010GB10);"ITEM #? ";0GLR940:41010AGVR9I8:42010GG`XGjR930:41010zGt10);"CURRENT VALUE: ";T(G2)G~G10);"NEW VALUE? ";GR970:41010GR9T8:42010GR940:41010G40010GA$"S"ıGāA$E$32000GЄ:3:"FOR A REPLACEMENT VALUE."'FZ}400105Fd}A$"S"ıFFn}A$E$31000OF耗:3bFI8(N8.75)1sFT8T(I8)2.5F"FOR EXAMPLE, TO CHANGE THE VALUE OF"FF"ITEM # ";I8;" FROM ";T(I8);" TO ";T8;","F$F."YOU WOULD TYPE:"F8: G=R9"S"ıEzA$E$30010 E}:36E }"IF YOU PRESS ";DE}:"C";:cE}" FOR 'CHANGE', YOU WILL"iE(}E2}"BE PROMPTED FOR ITEM # (INDEX NUMBER OF"E<}:"ITEM - DISPLAYED IN FIRST COLUMN), BE"EF}:"SHOWN ITS CURRENT VALUE, AND BE PROMPTED";FP}EW ITEMS"DyDy:"E";:>Dy"ND THE USE OF THIS EDITOR"DDyRDy:"H";:{Dy"ELP TO REDISPLAY THIS EXPLANATION"DyDy:"N";:Dy"EXT 10 ITEMS ARE DISPLAYED"DyDy:"B";:Dy"ACK PRINTS THE PREVIOUS 10 ITEMS"Dy40010EzA$F THE FOLLOWING EDITING"+Cu:"COMMANDS."6Cu40010JCvA$"S"A$E$ıPCyfC"y16);"COMMANDS:"mC,y3{C6y:"C";:C@y"HANGE ONE OF THE DISPLAYED VALUES"CJyCTy:"D";:C^y"ELETE A GROUP OF ITEMS"ChyCry:"A";: D|y"DD A GROUP OF N30080Blu"IN BLOCKS OF 10";(Bvu30090@Bu"ON YOUR DISPLAY";IBu"."OBurBu"AFTER YOUR ";T$;" HAVE BEEN"xBuBu"PRINTED, A 'COMMAND' PROMPT WILL BE"BuBu"DISPLAYED. YOU MUST RESPOND WITH THE"BuBu:"LETTER";:Cu" FOR ONE O$27300A|jE8E8S81#AjN8N8E8DAjI8S8N8:T(I8)T(E8I8):I8OAj27090`AjI8E827330lAjI8I81wAj27240AjS8S85AjS8120190Aj21010A0u*** EDITOR HELP INSTRUCTIONSA:uADu3ANuT$;" WILL FIRST BE PRINTED"AXuBbuN81010:19:958:27010@iS8A9>@jS8(S8)S80S8N827180R@j:B$;::S8;:~@j" IS NOT AN INTEGER BETWEEN 0 AND ";N8@"j27090@,jS8S81@6jI8N8S81:T(E8I8)T(I8):I8@@j44010@JjI8S8@TjN8N8E8@^jE8S8E81@hj43010ArjA$E* ADD?i10:19:868!?iT8S88?i"# ITEMS TO ADD";C?i53010[?iA$E$S8T8:21010e?iE8A9?iE8(E8)E81E8N8M8ĺB$::E8;::" IS NOT BETWEEN 1 AND ";M8N8;:27010?i958?i10:20:868?i"AFTER ITEM #";?i53010@iA$E$Ė+>:f10);"DELETE ITEM #";S8;" (";T(S8);")"V>Df10);"THRU ITEM #";E8;" (";T(E8);")";a>Nf51010{>XfA$E$Ė10:20:26080>bfA$"N"S8T8:21010>lfI81N8E8:T(S8I81)T(E8I8):I8>vfN8N8(E8S81)>fS8S85>fS8120190>f21010?xi **20:868=e"THRU ITEM #";(=e53010H=fA$E$Ė10:19:958:26030R=fE8A9=fE8(E8)E8S8N8E8ĺB$::E8;::" IS NOT AN INTEGER BETWEEN ";S8:"AND ";N8;:26090=&fS81E8N8ĺB$:"DELETING ALL ITEMS IS NOT ACCEPTABLE.";:26010=0f1:21A94+D1(F9W)1J>+I1N1aH+G(I)(F(I)D1.5)hR+Is\+12240. *** REL FREQ LINE GRAPH..41W:2."RELATIVE FREQUENCY LINE GRAPH"//" VALUE";/P010(F9N)&/P0(P0)12ALL INTEGERS)j' *** FIND MAX FREQUENCY5t'F9F(1)A~'J2N1T'F9F(J)10140`'F9F(J)g'Jr'1:12'"PLOTTED WITH FREQUENCIES";'51010'A$E$10000'F$A$'F$"N"12010* *** FREQUENCY LINE GRAPH+ +41W:2$T919:X9N:50010+@$T930:X9C0N:500106J$52010HT$A$E$10000V^$J16010`h$9010f'n'10$'"DO YOU WANT A LINE GRAPH";.'510108'A$E$9010B'A$"N"16000L'958V'W32: PRINT WIDTH FOR INTEGERS `'C1NW29: NOT C(I)):50010%#T919:X9F(I):50010<#T926:X9C0:50010[#T930:X9H(F(I)N):50010x#T937:X9H(C0N):50010~##I#KN19250#52010$A$E$JK1:KK10:9090$J16010$9010"$I139:"-";:I,$:"TOTALS";6 2#)<#9);"FREQUENCY DISTRIBUTION"0F#3@H#36);"CUM"]P#23);"CUM REL REL"Z#5);"VALUE FREQ FREQ FREQ FREQ"d#I139:"-";:In#C00x#J1:K10#KN1KN1#1:7:958#IJK#C0C0F(I) #T99:X9K(58:A$;:54020/Vֲ *** SINGLE CHARACTER INPUTCVֹ16368,0:A$::CH(36):CV(37):A$""0UӾAA$:AA$" "54040KUA$A$AA$:AA$;:54020eUӭAA$(13)ĺ:: U"ӭAA$E$A$E$::: U,ӭAA$(8)ĺB$;:54020: U6ӭA$""ĺB$;:54020U@ӭ(A$)1A$"":54100UJA$(A$,(A$)1)VTӹ36,CH:CV1:9:AA$"0"AA$"9"53050:T0ND%1:N$(N$,2):N$""53038ET2ϫ53030[T:ϖCH1:CV1:958hTDϖ1:CV3qTNϺB$;~TXϞ:A$;:TbϺ" IS NOT A RECOGNIZED NUMBER.";TlϖCH1:CV1:53010Tvϖ1:CV2:958TA9(A$)TϱTҲ *** INPUTUҺ"? ";0:A$""53050>SN$A$:AA$(N$,1):AA$"+"AA$"-"53026ZS N$(A$,2):N$""53050S"AA$(N$,1):AA$"0"AA$"9"53034S$ND%1:N$(N$,2):N$""53026S&ϭND%153110S(ϫ53050S*ϭAA$"."53038S,N$(N$,2):N$""53030T.AA$(N$,1)";RǢCV1:CH1Rnj868'Rǫ51030@R ˲*** CONTINUE PROMPTKR*˖4:24bR4˺5);"PRESS THE ";xR>˞:"SPACE BAR";:RH˺" TO CONTINUE. ";RR˰55010R\˭A$" "A$E$52090Rf˺B$;Rp˫52010Rz˱Rϲ *** NUMERIC INPUTRϰ54010:A$E$ıSND%, NO INPUTQBǺ"? ";+QLCV(37):CH(36)6QVǰ55010UQ`ǭA$"N"A$"Y"ĺA$:958:jQjǭA$E$Č958::uQtǖ1:24Q~ǺB$;"PLEASE PRESS ";QǞ:"Y";:QǺ" OR ";QǞ:"N";:QǺ". YOU PRESSED - ";QǭA$" "A$"Z"A$"?"QǞ:A$;:RǺ".20PfT(I8)A9Pp-P૲ *** ITEMS BANNER3P꫗:P2eP"ENTER THE ";T$;", ONE":"AT A TIME."lP5P5);"ITEM #";15);"VALUE"PPPò*** FORMATTED TAB PRINTPZT9T9(((X9)))Pdí(X9)1X90T9T91PnúT9);X9;Pxñ Q8Dz*** YES9R91OF41010%O*** SLOW PRINT-O403O$;O.R9AO8JOB255POLfO *** ITEM INPUTO(37)20Ė1:6:958O 6);I8;15);O53010O A$E$43110O*I8S8ė:O4I8I81O>1:(37)OH(37)5Ģ(37)OR958P\430EDITOR HELPNJ1:23)NT"PRESS THE ";?N^:"SPACE BAR";:]Nh" FOR MORE EXPLANATION";iNr"OR ";wN|:"S";:N" TO STOP THESE INSTRUCTIONS. ";N55010NA$" "A$"S"A$E$ıNB$;N40010N(*** DELAY ROUTINEN2R90ıOS1:230*HSB$;::A$;:X*RS" IS NOT AN EDIT COMMAND, PRESS ";f*\S:"H";:r*fS" FOR"*pS"HELP WITH THE EDITOR.";*zS21170*U*** HELP*U31000*V21050*Y*** BACK*YS8S810*YS8021010*Y20190+]*** N8:50010")RT918:X9T(I8):50010()R0)RI87)R H)R1:18:868Z)R"COMMAND? ";e)R55010o)R958)RA$"E"A$E$ė:)RA$"H"A$"?"22010)RA$" "A$"?")RA$)SA$"N"24010) SA$"B"23010)SA$"C"25010**SA$"D"2601NT NEXT 10 ITEMS OR LAST 10 ITEMS>(RS89N8E8S89:21050U(RS81E8N8:21050a(&RS8S81l(0R21010r(:R(?R((40(T$))2)1);T$(DR3(NR"A LISTING OF ITEMS # ";S8;" - ";E8(XR5(bR5);"ITEM #";15);"VALUE"(lRI8S8E8)vRT98:X9IT8 - TEMP'fN'pN8C'zN" --- INTERACTIVE DATA EDITING AID ---"K'N12y'N"DO YOU NEED INSTRUCTIONS ON HOW TO USE"'N'N"THIS EDITOR";'N51010'NA$"N"20190'NA$E$ė:'N CALL EDITOR HELP SUBROUTINE'N30010'NS81!(R PRI&jJ20070&tJNN8,&~JC10: COUNT INTEGERSW&JI1N:X(I)T(I):X(I)(X(I))C1C11^&JId&J& N*** INTERACTIVE DATA EDITING ROUTINE &*N N8 - # OF ITEMS&4N M8 - MAX # ITEMS&>N S8 - START INDEX&HN E8 - END INDEX&RN I8 - INDEX '\N 73107%vCB$:"DISKETTE IS FULL, DATA CAN NOT BE SAVED"R%C:"ON THIS DISKETTE."\%C9010g%C16000q%C:12%CB$;"ONERR CODE OF ";(222);" DURING SAVE."%C%8J*** EDITOR ENTRY FOR DATA %BJN8N%LJM8N9%VJT$"DATA POINTS"%`JSWAP(X,T) $C(222)1017210C$CB$:"FILE ALREADY EXISTS ON DISK. USE A"a$&C:"DIFFERENT FILE NAME."l$0C17020$:C(222)417260$DCB$:"DISKETTE IS WRITE PROTECTED, DATA CAN"$NC:"NOT BE SAVED ON THIS DISKETTE."$XC9010$bC16000%lC(222)91TER AND"::"BE FROM 1 TO 8 CHARACTERS LONG";:17020>#B958J#B17170`#BD$;"OPEN ";A$;C$w#BD$;"WRITE ";A$;C$~#BN#BI1N:X(I):I#BD$;"CLOSE ";A$;C$#BD$;"LOCK ";A$;C$#BD$#B:"SAVE OF DATA COMPLETED."#B52010#C16000", OR ";"?:"R";::"."2"@"YOU PRESSED - ";D"@:A$;::"."O"@16190b"hB*** SAVE FILEh"rB"|B1:8:868:"ENTER SAVE NAME";"B54010"BA$E$160004#B(A$)0(A$)8(A$,1,1)"A"(A$,1,1)"Z"ĺB$:"FILE NAMES MUST BEGIN WITH A LET" !>?14%!H?"ENTER YOUR CHOICE? ";0!R?55010B!z?A$"S"17010S!?A$"M"6075d!?A$"U"4000!?A$"R"ĺ::D$;"RUN MENU"!?A$E$10000!?A$" "A$"?"!?B$!?23!?"PRESS ";!?:"S";::", ";!?:"M";::", ";"?:"U";::>"DO YOU WANT TO:" >4( >:"S";:M >"AVE THIS SET OF DATA ON DISK,"T >6b >:"M";: >"ODIFY THIS SET OF DATA," ?8 ?:"U";: ?"SE DIFFERENT DATA WITH THIS PROGRAM, OR" ?10 *?:"R";:!4?"ETURN TO THE MENU OF PROGRAMS.7(36)0ĺ( 7I15(I15)141403752010D7A$E$10000N(71:6X27958h<7IN114020nF7tP7Z7F$"N"14210d7"EACH ";n7:"/";:x7" REPRESENTS A FREQUENCY OF ";D17520107A$E$10000716000>>2 T3II1^3IC(N1)141504h3I15(I15)13030?r352010P|3A$E$10000Z31:6d3958o3130306 *** NOT ALL INTEGERS, DON'T PRINT IN BETWEENS6I06II16T97:X9K(C(I)):50010612);6J1G(I)6:"/";:6J /1:6/C1N14010M2 *** ALL INTEGERS, PRINT INTERMEDIATE NUMBERS V2I21a2IC(1)u2IC(I2)131202T97:X9C(I2):5001029);3J1G(I2)3:"/";:3J"3(36)0ĺ,3I2I216313140@3T97:X9I:50010J30900/P0(P0)1':/P1P0(10(W1))7D/P2(.1P1)HN/41W);"0";TX/I1P0kb/J1P22:"-";:Jl/I10ĺ".";I;:12160v/"1.";/I//I1N1/A9100F(I)N/X9(A910)/G(I)X9P2(((A910X9)100)P1)1/I/41010 ;:9;10);"DELETE ITEM #";I8;" (";T(I8);")"?;l;10);"THRU ITEM #";T8;" (";T(T8);")? ";};R970:41010;&:"Y":;0R970:41010;::;D"PRESSING ";;N:"Y";:;X"ES DELETES THE VALUES, WHILE";b;l:"N";:%I8;" THRU ";T8;", YOU WOULD ENTER:"9HR9180:410109R:9\10);"FROM ITEM #? ";9fR940:410109pR9I8:420109zR940:410109 :10);"T810);"NEW VALUE? ";+8R970:41010<8R9T8:42010M8R940:41010X840010f8A$"S"ıw8āA$E$320008Є:38ڄ"IF YOU PRESS ";8䄞:"D";:8" FOR DELETE, YOU WILL BE"88"PROMPTED FOR THE RANGE OF ITEM #'S TO"8 *9XAMPLE, TO CHANGE THE VALUE OF"%7T7"ITEM # ";I8;" FROM ";T(I8);" TO ";T8;","Z7$q7."YOU WOULD TYPE:"y78:7=R990:410107B10);"ITEM #? ";7LR940:410107VR9I8:420107`7jR930:410107t10);"CURRENT VALUE: ";T(G2)8~ ITEM # (INDEX NUMBER OF"H6<}:"ITEM - DISPLAYED IN FIRST COLUMN), BE"{6F}:"SHOWN ITS CURRENT VALUE, AND BE PROMPTED";6P}:"FOR A REPLACEMENT VALUE."6Z}400106d}A$"S"ı6n}A$E$310006耗:36I8(N8.75)16T8T(I8)2.57"FOR Ey5y:"N";:25y"EXT 10 ITEMS ARE DISPLAYED"85yF5y:"B";:n5y"ACK PRINTS THE PREVIOUS 10 ITEMS"y5y400105zA$"S"ı5zA$E$300105}:35 }"IF YOU PRESS ";5}:"C";:5}" FOR 'CHANGE', YOU WILL"5(}62}"BE PROMPTED FORy"HANGE ONE OF THE DISPLAYED VALUES"+4Jy94Ty:"D";:W4^y"ELETE A GROUP OF ITEMS"]4hyk4ry:"A";:4|y"DD A GROUP OF NEW ITEMS"4y4y:"E";:4y"ND THE USE OF THIS EDITOR"4y4y:"H";:4y"ELP TO REDISPLAY THIS EXPLANATION"5PRINTED, A 'COMMAND' PROMPT WILL BE"*3uW3u"DISPLAYED. YOU MUST RESPOND WITH THE"]3up3u:"LETTER";:3u" FOR ONE OF THE FOLLOWING EDITING"3u:"COMMANDS."3u400103vA$"S"A$E$ı3y3"y16);"COMMANDS:"3,y336y:"C";:%4@S852jS81201902j21010A20u*** EDITOR HELP INSTRUCTIONSG2:uN2Du3o2NuT$;" WILL FIRST BE PRINTED"u2Xu2buN810300802lu"IN BLOCKS OF 10";2vu300902u"ON YOUR DISPLAY";2u"."2u2u"AFTER YOUR ";T$;" HAVE BEEN"2u$3u" 1"j270901,jS8S81:16jI8N8S81:T(E8I8)T(I8):I8E1@j44010O1JjI8S8\1TjN8N8E8k1^jE8S8E81v1hj430101rjA$E$273001|jE8E8S811jN8N8E81jI8S8N8:T(I8)T(E8I8):I81j270901jI8E8273301jI8I811j272402jS8M8ĺB$::E8;::" IS NOT BETWEEN 1 AND ";M8N8;:27010B0i958T0i10:20:868i0i"AFTER ITEM #";t0i530100iA$E$Ė10:19:958:270100iS8A90jS8(S8)S80S8N8271800j:B$;::S8;:0j" IS NOT AN INTEGER BETWEEN 0 AND ";N8fA$"N"S8T8:21010=/lfI81N8E8:T(S8I81)T(E8I8):I8Q/vfN8N8(E8S81)]/fS8S85m/fS8120190x/f21010/xi *** ADD/i10:19:868/iT8S8/i"# ITEMS TO ADD";/i53010/iA$E$S8T8:21010/iE8A980iE8(E8)E81E8N8S NOT AN INTEGER BETWEEN ";S8:"AND ";N8;:26090u.&fS81E8N8ĺB$:"DELETING ALL ITEMS IS NOT ACCEPTABLE.";:26010.0f1:21.:f10);"DELETE ITEM #";S8;" (";T(S8);")".Df10);"THRU ITEM #";E8;" (";T(E8);")";.Nf51010.XfA$E$Ė10:20:26080/bS8T8:21010-eS8A9n-eS8(S8)S81S8N8ĺB$::S8;::" IS NOT AN INTEGER BETWEEN 1 AND ";N8;:26010x-e958-e10:20:868-e"THRU ITEM #";-e53010-fA$E$Ė10:19:958:26030-fE8A90.fE8(E8)E8S8N8E8ĺB$::E8;::" I,a10:20',b"CURRENT VALUE: ";T(I8)9, b10:21:868K,b"NEW VALUE";V, b53010v,*bA$E$Ė10:19:958:28010,>bT(I8)A9,HbS8I85,RbS8120190,\b21010,e*** DELETE,e10:19:868,eT8S8,e"FROM ITEM #";,e53010 -eA$E$.'"DO YOU WANT MEASURES OF DISPERSION";38'51010FB'A$E$ė:9170XL'A$"N"16000^V'iX'1:12Z'"COMPUTING MEASURES OF DISPERSION ..."`' MEAN ABS DEVIATIONj'M40t'I1N:M4M4(X(I)M1):I~'M4M4N' VARIANCE 'V(S2NM1%H2,159H1,V0H1,V0V11%52010:A$E$9610<"%52210T&%T3:21:"MIDRANGE"d:%T3:22:M3|N%H1A(M3):H2B(T3)X%H2B(T3)b%H2,159H1,V0H1,V0V1%52010%%A$E$ė:8010' *** MEASURES OF DISPERSION':$'1:12(27:T314:9370|$T214$M1M3T114:T327:9370D$T127:T314X$T1:21:"MEAN"l$T1:22:K(M1)$H1A(M1):H2B(T1)$H2,159H1,V0H1,V0V1$52010:A$E$9610$52210$T2:21:"MEDIAN"$T2:22:M2%H1A(M2):H2B(T2) RANGE: ";X(N)X(1);" (";X(1);" TO ";X(N);")"8$52010H $A$E$9610S!$52210k"$ SET ORDER OF PLOT{,$M1M292906$M3M29340@$T127:T214:T31:9370J$M1M39310T$T114:T227:T31:9370^$T11h$M2M3T214:T327:9370r$T2M2(X(K)X(K1))2: N IS EVEN.# MIDRANGEC#M3(X(1)X(N))2I#U#LOX(1)#H0(X(N)X(1)1)280: HOR. SCALE IS RANGE#H00H0.0001#V0100#V14$0,V0V10,V0V1$0,V0279,V0$279,V0V1279,V0V1$1:23-$"PLOTESC>&F,ӭAA$(8)ĺB$;:54020: =F6ӭA$""ĺB$;:54020WF@ӭ(A$)1A$"":54100lFJA$(A$,(A$)1)FTӹ36,CH:CV1:958:A$;:54020Fֲ *** SINGLE CHARACTER INPUTFֹ16368,0:A$:'$EbϺ" IS NOT A RECOGNIZED NUMBER.";;ElϖCH1:CV1:53010NEvϖ1:CV2:958[EA9(A$)aEϱvEҲ *** INPUTEҺ"? ";:CH(36):CV(37):A$""EӾAA$:AA$" "54040EA$A$AA$:AA$;:54020EӭAA$(13)ĺ:: F"ӭAA$E$A$E$::: <34%D$ND%1:N$(N$,2):N$""530266D&ϭND%153110AD(ϫ53050UD*ϭAA$"."53038qD,N$(N$,2):N$""53030D.AA$(N$,1):AA$"0"AA$"9"53050D0ND%1:N$(N$,2):N$""53038D2ϫ53030D:ϖCH1:CV1:958DDϖ1:CV3DNϺB$;DXϞ:A$;: TO CONTINUE. ";CR˰550103C\˭A$" "A$E$52090˞:"SPACE BAR";:CH˺"15);"VALUE"A/APò*** FORMATTED TAB PRINTEAZT9T9(((X9)))`Adí(X9)1X90T9T91nAnúT9);X9;tAxñA8Dz*** YES, NO INPUTABǺ"? ";ALCV(37):CH(36)AVǰ55010A`ǭA$"N"A$"Y"ĺA$:958:AjǭA$E$Č958::Atǖ1:24B~ǺB$;"8@ 6);I8;15);@530100@ A$E$43110?@*I8S8ė:K@4I8I81Y@>1:(37)n@H(37)5Ģ(37)x@R958@\43020@fT(I8)A9@p@૲ *** ITEMS BANNER@꫗@2@"ENTER THE ";T$;", ONE":"AT A TIME."@5 A5);"ITEM #";TO STOP THESE INSTRUCTIONS. ";)?55010D?A$" "A$"S"A$E$ıM?B$;X?40010o?(*** DELAY ROUTINE{?2R90ı?2>"WILL BE PROMPTED FOR EACH ITEM VALUE."C>R980:41010N>52010_>A$E$35000e>>@*** CONTINUE OR LEAVE EDITOR HELP>J1:23>T"PRESS THE ";>^:"SPACE BAR";:>h" FOR MORE EXPLANATION";>r"OR ";>|:"S";:?" 10);"AFTER ITEM #:"'=R990:41010/=:>=""ENTER ";L=,:"0";:s=6" FOR 'AFTER ITEM #' IF YOU WANT"y=@=J"TO ADD ITEMS TO THE BEGINNING OF THE"=T=^"LIST."=hR9100:41010=r:=|"AFTER ENTERING THESE TWO NUMBERS, YOU""O STOPS THE DELETE FROM HAPPENING."6bT(I8)A9+HbS8I85+RbS8120190+\b21010+e*** DELETE+e10:19:868+eT8S8+e"FROM ITEM #"; *Y20190*]*** NEXT(*]E8N8210505*]S8S810H*]S8N8S8N89S*]21010d*a *** CHANGEv*a10:19:868*a"ENTER ITEM #";*a53010*aA$E$21010*aI8A9+aI8(I8)I81I8N8ĺB$::I8;::" IS NOT AN INTEGER BETWEEN 1 AND ";N8010)*SA$"D"26010')4SA$"A"270102)>S1:23D)HSB$;::A$;:l)RS" IS NOT AN EDIT COMMAND, PRESS ";z)\S:"H";:)fS" FOR")pS"HELP WITH THE EDITOR.";)zS21170)U*** HELP)U31000)V21050)Y*** BACK)YS8S810)YS8021010 ;"VALUE"D(lRI8S8E8:T98:X9I8:50010:T918:X9T(I8):50010::I8K(R \(R1:18:868n(R"COMMAND? ";y(R55010(R958(RA$"E"A$E$ė:(RA$"H"A$"?"22010(RA$" "A$"?"(RA$(SA$"N"24010( SA$"B"23010)SA$"C"25OUTINE'N30010'NS81E'R PRINT NEXT 10 ITEMS OR LAST 10 ITEMSb'RS89N8E8S89:21050y'RS81E8N8:21050'&RS8S81'0R21010':R'?R((40(T$))2)1);T$'DR3'NR"A LISTING OF ITEMS # ";S8;" - ";E8'XR5(bR5);"ITEM #";15)EMS), S8(START INDEX), E8(END INDEX), I8(INDEX), T8(TEMP)?&fNF&pN8s&zN" --- INTERACTIVE DATA EDITING AID ---"&N12:"DO YOU NEED INSTRUCTIONS ON HOW TO USE"::"THIS EDITOR";&N51010&NA$"N"20190&NA$E$ė:'N CALL EDITOR HELP SUBR:125%CB$;"ONERR CODE OF ";(222);" DURING SAVE.";%C[%8J*** EDITOR ENTRY FOR DATA {%BJN8N:M8N9:T$"DATA POINTS"%`JSWAP(X,T)%jJ20070%tJNN8%~JSWAP(X,T)%J% N*** INTERACTIVE DATA EDITING ROUTINE 9&*N N8(# OF ITEMS), M8(MAX # IT$:C(222)417260F$DCB$:"DISKETTE IS WRITE PROTECTED, DATA CAN"n$NC:"NOT BE SAVED ON THIS DISKETTE."x$XC9010$bC16000$lC(222)917310$vCB$:"DISKETTE IS FULL, DATA CAN NOT BE SAVED"$C:"ON THIS DISKETTE."$C9010$C16000%CITE ";A$;C$#BN&#BI1N:X(I):I=#BD$;"CLOSE ";A$;C$S#BD$;"LOCK ";A$;C$[#BD$|#B:"SAVE OF DATA COMPLETED."#B52010#C16000#C(222)1017210#CB$:"FILE ALREADY EXISTS ON DISK. USE A"#&C:"DIFFERENT FILE NAME."$0C17020B1:8:868:"ENTER SAVE NAME";+"B54010<"BA$E$16000"B(A$)0(A$)8(A$,1,1)"A"(A$,1,1)"Z"ĺB$:"FILE NAMES MUST BEGIN WITH A LETTER AND"::"BE FROM 1 TO 8 CHARACTERS LONG";:17020"B958"B17170"BD$;"OPEN ";A$;C$ #BD$;"WR"!z?A$E$10010%!?A$" "A$"?"-!?B$5!?23D!?"PRESS ";Y!?:"C";::", ";n!?:"S";::", ";!?:"M";::", ";!?:"U";::", OR ";!?:"R";::"."!?"YOU PRESSED - ";!?:A$;::".";!?16150!hB*** SAVE FILE!rB "|S SET OF DATA,"L >10::"U";::"SE DIFFERENT DATA WITH THIS PROGRAM, OR" >12::"R";::"ETURN TO THE MENU OF PROGRAMS." ?1:16:"ENTER YOUR CHOICE? "; *?55010 R?A$"S"17010 \?A$"M"6080 f?A$"U"4000!p?A$"R"ĺ::D$;"RUN MENUVAR)"'@)25:22:K(S);" (";K(V);")"MT)H1B(25):H2A(M1S):H3A(M1S)qr)H1,159H2,V0H2,V2H3,V2H3,V0|)52010:A$E$10010):>>2:"DO YOU WANT TO:">6::"S";::"AVE THIS SET OF DATA ON DISK," >8::"M";::"ODIFY THI(V2V02V1#(M4SV2V04V15(1:21:"MAD"H(1:22:K(M4)o(H1B(1):H2A(M1M4):H3A(M1M4)(H1,159H2,V0H2,V2H3,V2H3,V0(52010:A$E$10010)52210) STD DEV)V2V04V1")M4SV2V02V1,)25:21:"STD DEV (H1,V06V1"(52010:A$E$10010-(522109( RANGED((1:23w2("RANGE: ";X(N)X(1);" (";X(1);" TO ";X(N);")"4(H1A(X(1)):H2A(X(N))<(H1,V0V1H1,V0V1F(H1,V0H2,V0P(H2,V0V1H2,V0V1Z(52010:A$E$10010n(52210( MADM1)(N1)'S(V)4'H1X(1):M1M4H1H1M1M4I'M1SH1H1M1Sh'H2X(N):M1M4H2H2M1M4}'M1SH2H2M1S'H0(H2H11)280'LOH1'' MEAN'14:21:"MEAN"'14:22:K(M1)'H1A(M1):H2B(14) 'H2,159H1,V0;l:"N";:9;v"O STOPS THE DELETE FROM HAPPENING."J;R990:41010U;40010c;A$"S"ıt;A$E$34000};:3;"PRESSING ";;:"A";:;" TO ADD ITEMS PRODUCES";Ȍ;Ҍ"THE PROMPTS:";܌R960:41010;挺: <10);"# ITEMAMPLE:":R9160:41010!::M:10);"DELETE ITEM #";I8;" (";T(I8);")"S::10);"THRU ITEM #";T8;" (";T(T8);")? ";:R970:41010:&:"Y"::0R970:41010::::D"PRESSING ";:N:"Y";::X"ES DELETES THE VALUES, WHILE";b09 910);"TO ITEM #? ";19R940:41010B9R9T8:42010S9R940:41010^940010l9A$"S"ı}9ʅA$E$330009:39ˆ"BEFORE DELETION, THE ENDPOINTS AND THEIR"9̈"VALUES ARE PRINTED FOR VERIFICATION."9ֈ:"CONTINUING THE EXTEM #'S TO"8 >8"DELETE. FOR EXAMPLE, TO DELETE ITEMS"Q8 I8(N8.25)1j8*T8I81:T8N8T8N8p848>I8;" THRU ";T8;", YOU WOULD ENTER:"8HR9180:410108R:8\10);"FROM ITEM #? ";8fR940:410108pR9I8:420109zR940:4101 VALUE: ";T(G2)7~.710);"NEW VALUE? ";?7R970:41010P7R9T8:42010a7R940:41010l740010z7A$"S"ı7āA$E$320007Є:37ڄ"IF YOU PRESS ";7䄞:"D";:7" FOR DELETE, YOU WILL BE"7 8"PROMPTED FOR THE RANGE OF I(I8)2.536"FOR EXAMPLE, TO CHANGE THE VALUE OF"96h6"ITEM # ";I8;" FROM ";T(I8);" TO ";T8;","n6$6."YOU WOULD TYPE:"68:6=R990:410106B10);"ITEM #? ";6LR940:410106VR9I8:420106`6jR930:410107t10);"CURRENT52}"BE PROMPTED FOR ITEM # (INDEX NUMBER OF"\5<}:"ITEM - DISPLAYED IN FIRST COLUMN), BE"5F}:"SHOWN ITS CURRENT VALUE, AND BE PROMPTED";5P}:"FOR A REPLACEMENT VALUE."5Z}400105d}A$"S"ı5n}A$E$310005耗:35I8(N8.75)16T8THIS EXPLANATION"4y$4y:"N";:F4y"EXT 10 ITEMS ARE DISPLAYED"L4yZ4y:"B";:4y"ACK PRINTS THE PREVIOUS 10 ITEMS"4y400104zA$"S"ı4zA$E$300104}:34 }"IF YOU PRESS ";4}:"C";:4}" FOR 'CHANGE', YOU WILL"4(}-336y:"C";:93@y"HANGE ONE OF THE DISPLAYED VALUES"?3JyM3Ty:"D";:k3^y"ELETE A GROUP OF ITEMS"q3hy3ry:"A";:3|y"DD A GROUP OF NEW ITEMS"3y3y:"E";:3y"ND THE USE OF THIS EDITOR"3y3y:"H";:4y"ELP TO REDISPLAY TE BEEN" 2u82u"PRINTED, A 'COMMAND' PROMPT WILL BE">2uk2u"DISPLAYED. YOU MUST RESPOND WITH THE"q2u2u:"LETTER";:2u" FOR ONE OF THE FOLLOWING EDITING"2u:"COMMANDS."2u400102vA$"S"A$E$ı2y2"y16);"COMMANDS:"3,y1 1j272401jS8S85(1jS812019031j21010U10u*** EDITOR HELP INSTRUCTIONS[1:ub1Du31NuT$;" WILL FIRST BE PRINTED"1Xu1buN810300801lu"IN BLOCKS OF 10";1vu300901u"ON YOUR DISPLAY";1u"."1u2u"AFTER YOUR ";T$;" HAV BETWEEN 0 AND ";N80"j27090*0,jS8S81N06jI8N8S81:T(E8I8)T(I8):I8Y0@j44010c0JjI8S8p0TjN8N8E80^jE8S8E810hj430100rjA$E$273000|jE8E8S810jN8N8E80jI8S8N8:T(I8)T(E8I8):I80j270900jI8E8273301jI8I8E8(E8)E81E8N8M8ĺB$::E8;::" IS NOT BETWEEN 1 AND ";M8N8;:27010V/i958h/i10:20:868}/i"AFTER ITEM #";/i53010/iA$E$Ė10:19:958:27010/iS8A9/jS8(S8)S80S8N827180/j:B$;::S8;:0j" IS NOT AN INTEGER$Ė10:20:26080).bfA$"N"S8T8:21010Q.lfI81N8E8:T(S8I81)T(E8I8):I8e.vfN8N8(E8S81)q.fS8S85.fS8120190.f21010.xi *** ADD.i10:19:868.iT8S8.i"# ITEMS TO ADD";.i53010.iA$E$S8T8:21010.iE8A9L/iE8ĺB$::E8;::" IS NOT AN INTEGER BETWEEN ";S8:"AND ";N8;:26090-&fS81E8N8ĺB$:"DELETING ALL ITEMS IS NOT ACCEPTABLE.";:26010-0f1:21-:f10);"DELETE ITEM #";S8;" (";T(S8);")"-Df10);"THRU ITEM #";E8;" (";T(E8);")";-Nf51010.XfA$E,e53010!,eA$E$S8T8:21010+,eS8A9,eS8(S8)S81S8N8ĺB$::S8;::" IS NOT AN INTEGER BETWEEN 1 AND ";N8;:26010,e958,e10:20:868,e"THRU ITEM #";,e53010,fA$E$Ė10:19:958:26030,fE8A9D-fE8(E8)E8S8N8)S81S8N8ĺB$::S8;::" IS NOT AN INTEGER BETWEEN 1 AND ";N8;:26010S#e958e#e10:20:868z#e"THRU GROUP #";#e53010#fA$E$Ė10:19:958:26030#fE8A9 $fE8(E8)E8S8N8E8ĺB$::E8;::" IS NOT AN INTEGER BETWEEN ";S8:"AND 1050"Y*** BACK"YS8S810/"YS8021010:"Y20190H"]*** NEXTY"]E8N821050f"]S8S810y"]S8N8S8N89"]21010"e*** DELETE"e10:19:868"eT8S8"e"FROM GROUP #";"e53010"eA$E$S8T8:21010"eS8A9I#eS8(S8! SA$"B"23010"!SA$"F"280104! SA$"M"29010F!*SA$"D"26010X!4SA$"A"27010c!>S1:23u!HSB$;::A$;:!RS" IS NOT AN EDIT COMMAND, PRESS ";!\S:"H";:!fS" FOR"!pS"HELP WITH THE EDITOR.";!zS21170!U*** HELP!U31000"V2lRI8S8E8! vRT96:X9I8:50010; RT917:X9X(I8):50010U RT930:X9F(I8):50010[ Rc RI8j R { R1:18:868 R"COMMAND? "; R55010 R958 RA$"E"A$E$ė: RA$"H"A$"?"22010 RA$" "A$"?" RA$ SA$"N"24010INEN30010NS81DR PRINT NEXT 10 GROUPS OR LAST 10 GROUPSaRS89N8E8S89:21050xRS81E8N8:21050&RS8S810R21010:RDR2NR"A LISTING OF GROUPS # ";S8;" - ";E8XR4bR"GROUP #";13);"MIDPOINT";25);"FREQUENCY" END INDEXRN I8 - INDEX*\N T8 - TEMP0fN7pN8dzN" --- INTERACTIVE DATA EDITING AID ---"lN12N"DO YOU NEED INSTRUCTIONS ON HOW TO USE"NN"THIS EDITOR";N51010NA$"N"20190NA$E$ė:N CALL EDITOR HELP SUBROUT, ";$:"U";: "$", OR ";.,$:"R";:H6$". YOU PRESSED - ";b@$A$" "A$"Z"A$"?"oJ$:A$;:yT$".";^$9130 N*** INTERACTIVE DATA EDITING ROUTINE *N N8 - # OF GROUPS4N M8 - MAX # GROUPS>N S8 - START INDEX HN E8 - 4020DӭAA$(13)ĺ:: ^D,ӭAA$(8)ĺB$;:54020: uD6ӭA$""ĺB$;:54020D@ӭ(A$)1A$"":54100DJA$(A$,(A$)1)DTӹ36,CH:CV1:958:A$;:54020Dֲ *** SINGLE CHARACTER INPUTDֹ16368,0:A$:C:ϖCH1:CV1:958!CDϖ1:CV3*CNϺB$;7CXϞ:A$;:\CbϺ" IS NOT A RECOGNIZED NUMBER.";sClϖCH1:CV1:53010Cvϖ1:CV2:958CA9(A$)CϱCҲ *** INPUTCҺ"? ";:CH(36):CV(37):A$""CӾAA$:AA$" "54040DA$A$AA$:AA$;:5SPACE BAR";:$BH˺" TO CONTINUE. ";/BR˰55010GB\˭A$" "A$E$52090PBf˺B$;[Bp˫52010aBz˱zB˲ *** ERASE CONTINUEB˖1:24Bˌ868ḆBϲ *** NUMERIC INPUTBϰ54010BϭA$E$ıB&ϭ(A$)(((A$)))53050B0ϭ(A$)0A$"0"53110 Atǖ1:24#A~ǺB$;"PLEASE PRESS ";1AǞ:"Y";:>AǺ" OR ";LAǞ:"N";:fAǺ". YOU PRESSED - ";AǭA$" "A$"Z"A$"?"AǞ:A$;:AǺ".";AǢCV1:CH1Anj868Aǫ51030A ˲*** CONTINUE PROMPTA*˖4:24A4˺5);"PRESS THE "; B>˞:"5 @5);"ITEM #";15);"VALUE"&@C@Pò*** FORMATTED TAB PRINTY@ZT9T9(((X9)))t@dí(X9)1X90T9T91@núT9);X9;@xñ@8Dz*** YES, NO INPUT@BǺ"? ";@LCV(37):CH(36)@Vǰ55010@`ǭA$"N"A$"Y"ĺA$:958:@jǭA$E$Č958::(37)20Ė1:6:958'? 6);I8;15);2?53010D? A$E$43110S?*I8S8ė:_?4I8I81m?>1:(37)?H(37)5Ģ(37)?R958?\43020?fT(I8)A9?p?૲ *** ITEMS BANNER?꫗?2?"ENTER THE ";T$;", ONE":"AT A TIME."@>|:"S";:2>" TO STOP THESE INSTRUCTIONS. ";=>55010X>A$" "A$"S"A$E$ıa>B$;l>40010>(*** DELAY ROUTINE>2R90ı>F41010>*** SLOW PRINT>40>$>.R9>8>B255>L> *** ITEM INPUT?E TWO NUMBERS, YOU"=F="WILL BE PROMPTED FOR EACH ITEM VALUE."W=R980:41010b=52010s=A$E$35000y==@*** CONTINUE OR LEAVE EDITOR HELP=J1:23=T"PRESS THE ";=^:"SPACE BAR";:=h" FOR MORE EXPLANATION";=r"OR "; S TO ADD:"<*<10);"AFTER ITEM #:";<R990:41010C<:R<""ENTER ";`<,:"0";:<6" FOR 'AFTER ITEM #' IF YOU WANT"<@3f10);"FROM GROUP #? ";O3pR940:41010`3zR9I8:42010q3R940:41010w3310);"THRU GROUP #? ";3R940:410103R9T8:420103R940:410103400103ʅA$"S"ı3ԅA$E$330003:3(4ˆ"ڄ"IF YOU PRESS ";!2䄞:"D";:A2" FOR DELETE, YOU WILL BE"G2u2"PROMPTED FOR THE RANGE OF GROUP #'S TO"{2 2"DELETE. FOR EXAMPLE, TO DELETE GROUPS"2 I8(N8.25)12*T8I8124T8N8T8N82>3HI8;" THRU ";T8;", YOU WOULD1L10);"GROUP #? ";&1VR940:4101071`R9I8:42010=1jN1tR930:41010t1~10);"CURRENT FREQUENCY: ";F(I8)z1110);"NEW FREQUENCY? ";1R970:410101R9T8:420101R940:410101400101āA$"S"ı1΁A$E$320001Є:32CEMENT VALUE."0P}40010'0Z}A$"S"ı80d}A$E$31000A0耗:3T0I8(N8.75)1c0T8F(I8)30"FOR EXAMPLE, TO CHANGE THE FREQUENCY OF"00"GROUP # ";I8;" FROM ";F(I8);" TO ";T8;","0$0."YOU WOULD TYPE:"08:0BR990:4101030010/}:3%/ }"IF YOU PRESS ";3/}:"F";:V/}" FOR 'FREQUENCY', YOU WILL";/(}:"BE PROMPTED FOR GROUP # (INDEX NUMBER OF";/2}:"GROUP - DISPLAYED IN FIRST COLUMN), BE"/<}:"SHOWN ITS CURRENT VALUE, AND BE PROMPTED";0F}:"FOR A REPLAy:"E";:+.y"ND THE USE OF THIS EDITOR"1.y?.y:"H";:h.y"ELP TO REDISPLAY THIS EXPLANATION"n.y|.y:"N";:.y"EXT 10 GROUPS ARE DISPLAYED".y.z:"B";:.z"ACK PRINTS THE PREVIOUS 10 GROUPS".z40010.&zA$"S"ı/0zA$E$-,y3-6y:"F";:?-@y"REQUENCY CHANGES A GROUP'S FREQUENCY"E-JyS-Ty:"M";:}-^y"IDPOINT CHANGES A GROUP'S MIDPOINT"-hy-ry:"D";:-|y"ELETE MIDPOINT AND FREQUENCY PAIRS"-y-y:"A";:-y"DD MIDPOINT AND FREQUENCY PAIRS"-y .HAVE BEEN PRINTED, A",uL,u"'COMMAND' PROMPT WILL BE DISPLAYED. YOU";R,uq,u"MUST RESPOND WITH THE ";,u:"LETTER";:,u" FOR ONE OF",u,u"THE FOLLOWING EDITING COMMAND.",v40010, vA$"S"A$E$ı,y,"y16);"COMMANDS:"qS8120190+q210109+0u*** EDITOR HELP INSTRUCTIONS?+:uF+Du3u+Nu"MIDPOINTS AND FREQUENCIES WILL FIRST BE"{+Xu+bu"PRINTED ";+luN81030090+vu"IN GROUPS OF 10";+u30100+u"ON YOUR DISPLAY";+u"."+u:,u"AFTER YOUR DATA EGER BETWEEN 1 AND ";N8;:28510)*o958/*oI*Hq *** CHANGE MIDPOINTT*Rq28510e*\qA$E$21010q*fq10:20*pq"CURRENT MIDPOINT: ";X(I8)*zq10:21:868*q"NEW MIDPOINT";*q53010*qA$E$Ė10:19:958:29010*qX(I8)A9*qS8S85 +$:"FREQUENCY MUST BE A POSITIVE INTEGER";:28050>)mF(I8)A9J)mS8I85Z)mS8120190e)m21010~)To *** CHANGE GROUP #)^o10:19:868)ho"ENTER GROUP #";)ro53010)|oA$E$ı)oI8A9*oI8(I8)I81I8N8ĺB$::I8;::" IS NOT AN INT (j27240(jS8S85'(jS81201902(j21010M(`m *** CHANGE FREQUENCYX(jm28510i(tmA$E$21010u(~m10:20(m"CURRENT FREQUENCY: ";F(I8)(m10:21:868(m"NEW FREQUENCY";(m53010(mA$E$Ė10:19:958:280101)mA9(A9)A90ĺB ',jS8S81>'6jI8N8S81:X(E8I8)X(I8):F(E8I8)F(I8):I8I'@j44010S'JjI8S8`'TjN8N8E8o'^jE8S8E81z'hj43010'rjA$E$27300'|jE8E8S81'jN8N8E8'jI8S8N8:X(I8)X(E8I8):F(I8)F(E8I8):I8'j27090'jI8E827330(jI8I818;::" IS NOT BETWEEN 1 AND ";M8N8;:270106&i958H&i10:20:868^&i"AFTER GROUP #";i&i53010&iA$E$Ė10:19:958:27010&iS8A9&jS8(S8)S80S8N827180&j:B$;::S8;:&j" IS NOT AN INTEGER BETWEEN 0 AND ";N8&"j270908E8:X(S8I81)X(E8I8):F(S8I81)F(E8I8):I8D%vfN8N8(E8S81)P%fS8S85`%fS8120190k%f21010y%xi *** ADD%i10:19:868%iT8S8%i"# GROUPS TO ADD";%i53010%iA$E$S8T8:21010%iE8A9,&iE8(E8)E81E8N8M8ĺB$::E";N8;:26090R$&fS81E8N8ĺB$:"DELETING ALL GROUPS IS NOT ACCEPTABLE.";:26010]$0f1:21$:f10);"DELETE GROUP #";S8;" (";X(S8);")"$Df10);"THRU GROUP #";E8;" (";X(E8);")";$Nf51010$XfA$E$Ė10:20:26080$bfA$"N"S8T8:210100%lfI81Nժ>"">>"<"<""ժЎժǪ A6ӭA$""ĺB$;:540206A@ӭ(A$)1A$"":54100KAJA$(A$,(A$)1)nATӹ36,CH:CV1:958:A$;:54020Aֲ *** SINGLE CHARACTER INPUTAֹ16368,0:A$:.";@lϖCH1:CV1:53010-@vϖ1:CV2:958:@A9(A$)@@ϱU@Ҳ *** INPUTx@Һ"? ";:CH(36):CV(37):A$""@ӾAA$:AA$" "54040@A$A$AA$:AA$;:54020@ӭAA$(13)ĺ:: @"ӭAA$E$A$E$::: A,ӭAA$(8)ĺB$;:54020:3026?&ϭND%153110 ?(ϫ530504?*ϭAA$"."53038P?,N$(N$,2):N$""53030w?.AA$(N$,1):AA$"0"AA$"9"53050?0ND%1:N$(N$,2):N$""53038?2ϫ53030?:ϖCH1:CV1:958?Dϖ1:CV3?NϺB$;?XϞ:A$;:@bϺ" IS NOT A RECOGNIZED NUMBERA$" "A$E$52090>f˺B$;&>p˫52010,>z˱D>ϲ *** NUMERIC INPUTX>ϰ54010:A$E$ıo>ND%0:A$""53050>N$A$:AA$(N$,1):AA$"+"AA$"-"53026> N$(A$,2):N$""53050>"AA$(N$,1):AA$"0"AA$"9"53034?$ND%1:N$(N$,2):N$""5Ǻ" OR ";=Ǟ:"N";:1=Ǻ". YOU PRESSED - ";K=ǭA$" "A$"Z"A$"?"X=Ǟ:A$;:b=Ǻ".";r=ǢCV1:CH1|=nj868=ǫ51030= ˲*** CONTINUE PROMPT=*˖4:24=4˺5);"PRESS THE ";=>˞:"SPACE BAR";:=H˺" TO CONTINUE. ";=R˰55010>\˭TTED TAB PRINT$1:(37)1:H(37)5Ģ(37);:R958S:\3);I8;15);X(I8);^:f43140k:pX(I8)A9v:z(37)~:25:868:53010:A$E$43210:1:(37):868:43020;ʨA9(A9)A90ĺB$::A$;::" IS NOT A POSITIVE I; 940010#9(*** DELAY ROUTINE/92R90ı;9ժp?ճժժتغ3? ժժ"<""<<<A,<<<","< <"<<6<<, ","<< "<"<֪> >6<<< "<"<<<"ոժժЪժ֊3333 ժժ"" """6""Y2 $ """$*"2$"""<*""<"""""2" """<""" "'1''.1.9.1.'1 $""<ժ""""$"$""լժժк֪᪍ժ`Վ3;33 ժժ"<"""*>>" E  ">>""<*"""">"> >">*>"*"""2""""">""""">"' '<9  >>"""z!#?    !ԠźŠ Ϯà"ˠӮԠӮԠȮԠΠŠ Ԡéՠ׮ϮԠԠJ @Ӡ>Р5  MOVE START OF TEXT POINTER FOR SORTPAK>  CHANGE TO $E01[ 103,1:104,14:25614,0x ,(4);"RUN HOW.TO.INPUT"T7,0: HRES GRAPHICS/ n16302,0: FULL-SCREENG x16304,0: DISPLAY SHOW TITLE PAGE FOR A FEW SECONDS OR UNTIL KEYBOARD IS TOUCHED 16368,0: RESET KEYBOARD STROBE E1000 I1E (16384)127200 XXX I )  2 ANY OPINIONS, FINDINGS, CONCLUSIONS, OR RECOMMENDATIONS EXPRESSED OR IMPLIED ARE THOSE OF THE AUTHOR AND DO NOT NECESSARILY REFLECT THE VIEWS OF FIPSE. <3: NEUTRALIZE COLOR F P(4);"BLOAD LOGO.PIC,A$2000" Z16300,0: PAGE 1 d1629y *** STA114 ***@ #STA114, DESCRIPTIVE STATISTICS t LAST REVISION 2/81 BY PETE TROTTER, CONDUIT( THIS PACKAGE IS DISTRIBUTED WITH THE SUPPORT OF THE FUND FOR THE IMPROVEMENT OF POSTSECONDARY EDUCATION (FIPSE), GRANT # G007905216   ING OF PROGRAM& N14: NON-GRAPHICSB A$"S"N64: GRAPHICSf 104,N:N256,0:(4);"RUN ";P$  bA$"G"P$"GROUP":700+ lA$"E"ė:E vA$" "A$"Z"A$"?"Z (7);" (NOT ";g :A$;:p ")"y 500  13:12 "LOADING ";P$  *** SETUP POINTERS DEPENDING ON USE OF HIRES GRAPHICS: 104 - HIMEM LOCATION; N*256 - BEGINN 12 "DATA" 21. "PRESS THE ";A :"LETTER";:a " OF THE PROGRAM YOU WISH"{ "TO USE, OR PRESS "; &:"E";: 0" TO END? "; :A$ DA$"D"P$"FREQDIST":700 NA$"T"P$"FREQTAB":700 XA$"S"P$"STATMEAS":700:"S";: T"TATMEAS";! ^10? h"- COMPUTES MEASURES OF"G r12f |"LOCATION AND DISPERSION"n 15| :"G";: "ROUP"; 10 "- COMPUTES GROUPED MEAN," 12 "VARIANCE, AND STANDARD" 12 "DEVIATION FOR CONTINUOUS"ST"; 10, "- CONSTRUCTS A FREQUENCY"4 12U "DISTRIBUTION AND GRAPHS A"] 12x "FREQUENCY HISTOGRAM" 9 "FREQ"; :"T";: "AB"; 10 "- CONSTRUCTS A FREQUENCY" 12 ""TABLE AND A LINE GRAPH" @12 Jh *** MENU ***> #STA114, DESCRIPTIVE STATISTICS r LAST REVISION 2/81 BY PETE TROTTER, CONDUIT( SEE PROGRAM 'STA114' FOR CAVEAT AND COPYRIGHT.dn2:10x"DESCRIPTIVE STATISTICS"5"FREQ";:"D";: "I     INPUT-Һ"? ";:CH(36):CV(37):A$""EӾAA$:AA$" "54040`A$A$AA$:AA$;:54020zӭAA$(13)ĺ:: "ӭAA$E$A$E$::: ,ӭAA$(8)ĺB$;:54020: 6ӭA$""ĺB$;:54020@ӭ(A$)1A$"":54100JA$(A$,(A$)1)A$" "A$"Z"A$"?"!Ǟ:A$;:+Ǻ".";;ǢCV1:CH1Enj868Pǫ51030i ˲*** CONTINUE PROMPTt*˖4:244˺5);"PRESS THE ";>˞:"SPACE BAR";:H˺" TO CONTINUE. ";R˰55010\˭A$" "A$E$52090f˺B$;p˫52010z˱ Ҳ *** SORTPAK"D$;"RUN MENU"38Dz*** YES, NO INPUT>BǺ"? ";TLCV(37):CH(36)_Vǰ55010~`ǭA$"N"A$"Y"ĺA$:958:jǭA$E$Č958::tǖ1:24~ǺB$;"PLEASE PRESS ";Ǟ:"Y";:Ǻ" OR ";Ǟ:"N";:Ǻ". YOU PRESSED - ";ǭx:"ESC";:,"APE KEY (UPPER LEFT OF"424b"KEYBOARD) TO END THESE INSTRUCTIONS. ";m55010}A$E$6010B$;5280p *** GO SELECT A PROGRAMz11:11"LOADING PROGRAM MENU" INSTALL SORTPAK D$;"BRUN11. "TO 'BACKUP' ONE PROMPT. THIS MAY BE"613d"HELPFUL TO YOU IF YOU WANT TO CHANGE A"l(152"PREVIOUSLY ENTERED RESPONSE OR IF YOU"<17F"WANT TO REPEAT A STEP WITH DIFFERENT"P19Z"INPUT."d22n"PRESS THE ";ECTLY."@52010" *** (/2J14);"THE ESCAPE KEY"Q5^"THE ";n:"ESC";:"APE KEY CAN BE PRESSED AT MOST"7"INPUT REQUESTS (SINGLE KEYSTROKE OR"9"VARIABLE LENGTH) TO CAUSE THE PROGRAM"T IS NOT ACCEPTABLE, YOU" 7L"WILL HERE A 'BEEP' AND BE REPROMPTED"S9"FOR THE INPUT. AS AN EXAMPLE, FIRST"11"PRESS ANY KEY BUT THE SPACE BAR IN"13""RESPONSE TO THE PROMPT BELOW. NEXT,",156"RESPOND CORRVARIABLE LENGTH INPUT BY TYPING YOUR";. 20N "NAME AND THEN PRESSING ";a :"RETURN";:s " AFTER YOU"{ 22 "FINISH READING THIS PAGE. "; 54010 *** ERROR MSG213);"INCORRECT INPUT"5"IF YOUR INPU*X "ANOTHER EXAMPLE IS THE NAME OF DATA"2b 11Yl "FILES STORED ON DISK, SUCH AS ";mv :"HEIGHTS";:v "."~ 13 "THE "; :"RETURN";: " KEY MUST BE PRESSED AFTER" 15 "TYPING VARIABLE LENGTH INPUT." 18& "TRY ` 2310 *** INPUT" ) 2K 10);"VARIABLE LENGTH INPUT"R 5 "VARIABLE LENGTH INPUT TYPICALLY IMPLIES" 7  "NUMERIC INPUT SUCH AS ";  :"257";:  ", "; & :"-6.2";: 0 ", OR "; : :"8";: D "." N 9203 "TRY SINGLE KEYSTROKE INPUT BY PRESSING"; 22H "THE ";^ :"SPACE BAR";: " AFTER YOU FINISH READING"  1:24  "THIS PAGE. ";  55010 $ A$" "3010 . B$; 8 " (NOT "; B A$" "A$"?" L :A$;: V ")"; A QUESTION OR SELECTING FROM";& f11W p"A SET OF OPTIONS IDENTIFIED BY DIFFERENT";_ z13s :"LETTERS";: " FROM THE KEYBOARD. THE "; :"RETURN": 15 "KEY SHOULD NOT BE PRESSED AFTER SINGLE" 17 "KEYSTROKE INPUT." ~20!  *** SINGLE KEYSTROKE' . 2Q 10);"SINGLE KEYSTROKE INPUT"X 5 "EXAMPLES OF SINGLE KEYSTROKE INPUT ARE" 7 "PRESSING "; *:"Y";: 4" FOR 'YES' OR "; >:"N";: H" FOR 'NO' IN" R9 \"RESPONSE TO 1:10 "PRESS ";' :"Y";:M "ES IF YOU WANT INSTRUCTIONS ON"S } $"HOW TO ENTER RESPONSES THROUGH THE" . 8"KEYBOARD OR PRESS "; B:"N";: L"O TO SEE THE MENU OF" V `"PROGRAMS. "; j51010 tA$"Y"6010Y *** HOW.TO.INPUT ***F #STA114, DESCRIPTIVE STATISTICS z LAST REVISION 2/81 BY PETE TROTTER, CONDUIT( SEE PROGRAM 'STA114' FOR CAVEAT AND COPYRIGHT.dD$(4): DOS COMMAND PREFIXnB$(7): BELLxE$(27): ESCAPE     N)M1X(1)M2X(N)7@ *** PRINT ORDERED DATABJ1:14nT"DO YOU WISH TO SEE THE ORDERED DATA";y^51010hA$"N"9000rA$E$6010|:215);"ORDERED DATA"X91T915NT9T9NIX9T9J0T DATAz:123"WOULD YOU LIKE TO PROOFREAD"G:"YOUR DATA";R51010cA$"N"7010sA$E$4000*** CALL EDITOR SUBROUTINE19010X*** SORT DATA b:12l"SORTING DATA ..."vSHELL(X,P%,N)PERMUTE(X,P%,N DISK."d5010(nD$;"OPEN ";A$;C$>xD$;"READ ";A$;C$ENPI1NZX(I)aIxD$;"CLOSE ";A$;C$D$N;" DATA POINTS READ FROM DISK FILE."52010A$E$Ė1:3:958:5020p*** OFFER USER OPPORTUNITY TO EDI8::A$;:," IS NOT A VALID FILE NAME."2_"FILE NAMES ARE FROM 1 TO 8 CHARACTERS"e"AND BEGIN WITH AN ALPHABETIC." 50109585180(D$;"RUN ";A$;C$2<216,0:(222)135230FD$PB$Z"FILE NOT O0A$E$ė:4050#I8N4330/I8I8194280QI1N:X(I)T(I):I[6010t *** FILE SELECTION3:868"ENTER FILE NAME";54010A$E$4000(A$)1(A$)8(A$,1,1)"A"(A$,1,1)"Z"ī5140B$ 86F DATA POINTS MUST BE AN",K6"INTEGER, GREATER THAN OR EQUAL TO 1,"Q@zJ"AND LESS THAN OR EQUAL TO ";N9;"."T^"YOU ENTERED ";h:N;:r"."|1:3:8684060T$"DATA POINTS"44010S81I814301" X 52010b A$E$2000"="ARE DATA IN A FILE";H51010XA$E$1000iA$"Y"5010p3"ENTER NUMBER OF DATA POINTS";53010A$E$4000NA9N(N)4120(1N)(NN9)04240"B$;"THE NUMBER OCAN BE REENTERED"/ " (RETURN TO STEP 5)."^& :"9. FINALLY, YOU CAN SAVE YOUR DATA ON"0 " DISK, MODIFY YOUR DATA (RETURN TO": " STEP 3), USE DIFFERENT DATA (RETURN"D " TO STEP 1), OR RETURN TO THE PROGRAM"N " SELECTION MENU. BOUNDARY";: " POINTS OF GROUPS WITH UNEQUAL WIDTHS"U " CAN BE EDITTED)." :"6. A FREQUENCY TABLE CAN BE PRINTED." :"7. A FREQUENCY HISTOGRAM CAN BE PRINTED" " AND ITS SCALE CHANGED FOR REDISPLAY." :"8. FREQUENCY GROUPS ">" ORDER."BH:"3. THE DATA CAN OPTIONALLY BE EDITTED."nR:"4. AFTER SORTING, YOU CAN LIST THE"\" ORDERED DATA."f52010pA$E$1000   "5. FREQUENCY GROUPS CAN BE ENTERED OF"  " EQUAL OR UNEQUAL WIDTHS (THETER THE FOLLOWING"&"INFORMATION:",] :"1. IF THE DATA IS IN A DISK FILE, ENTER"x" THE FILE'S NAME." :"2. IF THE DATA IS TO BE ENTERED AT THE"*" KEYBOARD, ENTER THE NUMBER OF DATA"4" POINTS AND THEN EACH VALUE IN ANYAM FOR DATA STORED IN A DISK FILE"K14:"OR ENTERED FROM THE KEYBOARD."p$18:"DO YOU WANT INSTRUCTIONS";{.510108A$E$ĺ:D$;"RUN MENU"BA$"N"4000"INSTRUCTIONS - YOU WILL BE REQUESTED IN""THE STATED ORDER TO ENFIXB$(7): BELL,E$(27): ESCAPEKN9500: MAX # DATA POINTSjM950: MAX # FREQUENCIESp4:12:"PROGRAM -FREQDIST-"8:"THIS PROGRAM CONSTRUCTS A FREQUENCY"10:"DISTRIBUTION AND GRAPHS A FREQUENCY""12:"HISTOGRPOINTSF(50): FREQUENCIES<M(50): GROUP MIDPOINTSZB(51): GROUP BOUNDARIES~C(50): CUMULATIVE FREQUENCIEST(500): EDITOR WORKSPACEP%(500): PERMUTE INDICESD$(4): DOS COMMAND PREFIXC$".DAT": DATA FILE NAME SUFDH *** FREQDIST ***B #STA114, DESCRIPTIVE STATISTICS v LAST REVISION 2/81 BY PETE TROTTER, CONDUIT( SEE PROGRAM 'STA114' FOR CAVEAT AND COPYRIGHT.dK(X)((X.0005)1000)1000nH(X)((X.005)100)100xX(500): DATA                          1-hI1N:X(I)C(N1)N1N11:N1M98140<rC(N1)X(I)Q|F(N1)F(N1)1:I[9010cB$k12"MORE THAN ";M9;" DIFFERENT DATA VALUES."14"THIS SET OF DATA CAN NOT BE USED."52010 4000(# *** PRINT FREQUENCY TABLE0A$E$40001*** CALL EDITOR SUBROUTINE7B19010VX*** SORT DATA `b:12xl"SORTING DATA ..."vSHELL(X,P%,N)PERMUTE(X,P%,N)@ *** DETERMINE FREQUENCIES AND DISTINCT VALUES JI1M9:F(I)0:ITC(1)X(1)^N1D$;"CLOSE ";A$;C$D$$ON;" DATA POINTS READ FROM DISK FILE."Z52010wA$E$Ė1:3:958:5020p*** OFFER USER OPPORTUNITY TO EDIT DATAz:12"WOULD YOU LIKE TO PROOFREAD":"YOUR DATA";51010A$"N"7019585180((D$;"RUN ";A$;C$.2I<216,0:(222)135230QFD$YPB$rZ"FILE NOT ON DISK."|d5010nD$;"OPEN ";A$;C$xD$;"READ ";A$;C$NC10I1NX(I)(X(I))X(I)C1C11: COUNT INTEGERSIE";54010A$E$4000Y(A$)1(A$)8(A$,1,1)"A"(A$,1,1)"Z"ī5140aB$t868::A$;:" IS NOT A VALID FILE NAME.""FILE NAMES ARE FROM 1 TO 8 CHARACTERS""AND BEGIN WITH AN ALPHABETIC." 5010$"DATA POINTS"44010#S81,I81743010JA$E$ė:4050YI8N4330eI8I81o4280C10: COUNT INTEGERSI1N:X(I)T(I):X(I)(X(I))C1C11I6010 *** FILE SELECTION3:868"ENTER FILE NAM(1N)(NN9)04240 O"B$;"THE NUMBER OF DATA POINTS MUST BE AN"U,6"INTEGER, GREATER THAN OR EQUAL TO 1,"@J"AND LESS THAN OR EQUAL TO ";N9;"."T^"YOU ENTERED ";h:N;:r"."|1:3:8684060T, OR RETURN TO THE PROGRAM"7 :" SELECTION MENU."B 52010R& A$E$2000Xs"ARE DATA IN A FILE";~51010A$E$1000A$"Y"50103"ENTER NUMBER OF DATA POINTS";53010A$E$4000NA9N(N)4120. :" IT CAN BE PLOTTED WITH FREQUENCIES"] :" OR WITHOUT (RELATIVE FREQUENCIES)." :"7. FINALLY, YOU CAN SAVE YOUR DATA ON" :" DISK, MODIFY YOUR DATA (RETURN TO" :" STEP 3), USE DIFFERENT DATA (RETURN" :" TO STEP 1) EACH VALUE IN ANY"& >:" ORDER."V H:"3. THE DATA CAN OPTIONALLY BE EDITTED." R:"4. A FREQUENCY TABLE WILL BE PRINTED." \52010 fA$E$1000 :"5. A LINE GRAPH CAN BE PRINTED." :"6. IF THE LINE GRAPH IS TO BE PRINTED," ORDER TO ENTER THE FOLLOWING"2 "INFORMATION:"8 i :"1. IF THE DATA IS IN A DISK FILE, ENTER" :" THE FILE'S NAME." :"2. IF THE DATA IS TO BE ENTERED AT THE" *:" KEYBOARD, ENTER THE NUMBER OF DATA" 4:" POINTS AND THEN 12:"DATA STORED IN A DISK FILE OR ENTERED"M $14:"FROM THE KEYBOARD."[ .17:868| 8"DO YOU WISH INSTRUCTIONS"; B51010 LA$E$ĺ:D$;"RUN MENU" VA$"N"4000   "INSTRUCTIONS - YOU WILL BE REQUESTED IN" "THE STATEDME SUFFIX B$(7): BELL2 E$(27): ESCAPER N91000: MAX # DATA POINTSu M9100: MAX # DISTINCT VALUES{  12:6 "PROGRAM -FREQTAB-" 8:"THIS PROGRAM CONSTRUCTS A FREQUENCY" 10:"TABLE AND OPTIONALLY A LINE GRAPH FOR"/ POINTS" F(100): FREQUENCIESD C(100): VALUES OF THE DATAe T(1000): EDITOR WORKSPACE G(100): SCALED FREQUENCIES FOR GRAPHING P%(1000): PERMUTATION VECTOR FOR SORTING D$(4): DOS COMMAND PREFIX C$".DAT": DATA FILE NA> *** FREQTAB ***A #STA114, DESCRIPTIVE STATISTICS u LAST REVISION 2/81 BY PETE TROTTER, CONDUIT( SEE PROGRAM 'STA114' FOR CAVEAT AND COPYRIGHT.dK(X)((X.0005)1000)1000nH(X)((X.005)100)100 xX(1000): DATA                     UTING MEASURES OF LOCATION ..."D<# COMPUTE SUM AND SUM OF SQUARESRF#S10:S20{Z#I1N:S1S1X(I):S2S2X(I)X(I):Id# MEANn#M1S1Nx# MEDIAN#(N2)N29130#K(N1)2: N IS ODD#M2X(K1)#9150#KN2: N IS EVEN#T9T9N/IX9T9:J03:KI15J:KN8180BJ101:X(K);IJR:Ij 52010:A$E$8250|& X91ė:80100 8070: T945N9010D X9X960:T9X914N 1:4:958:8120(# *** MEASURES OF LOCATION2#4#1:126#"COMP"SORTING DATA ..."'vSHELL(X,P%,N)<PERMUTE(X,P%,N)Y@ *** PRINT ORDERED DATAdJ1:14T"DO YOU WISH TO SEE THE ORDERED DATA";^51010hA$"N"9010rA$E$6010|:215);"ORDERED DATA"X91:T915N$Ė1:3:958:5020@p*** OFFER USER OPPORTUNITY TO EDIT DATAJz:12m"WOULD YOU LIKE TO PROOFREAD":"YOUR DATA";51010A$"N"7010A$E$4000*** CALL EDITOR SUBROUTINE19010X*** SORT DATA b:12l$;C$ 2%<216,0:(222)135230-FD$5PB$NZ"FILE NOT ON DISK."Xd5010nnD$;"OPEN ";A$;C$xD$;"READ ";A$;C$NI1N:X(I):ID$;"CLOSE ";A$;C$D$:N;" DATA POINTS READ FROM DISK FILE."52010A$E(A$)1(A$)8(A$,1,1)"A"(A$,1,1)"Z"ī5140=B$P868::A$;:r" IS NOT A VALID FILE NAME."x"FILE NAMES ARE FROM 1 TO 8 CHARACTERS""AND BEGIN WITH AN ALPHABETIC." 50109585180(D$;"RUN ";A 4060T$"DATA POINTS"*440103S81<I81G43010ZA$E$ė:4050iI8N4330uI8I814280I1N:X(I)T(I):I6010 *** FILE SELECTION3:868"ENTER FILE NAME";54010A$E$40005E$4000NA9#N(N)4120=(1N)(NN9)04240o:B$;"THEN NUMBER OF DATA POINTS MUST BE AN",:"INTEGER, GREATER THAN OR EQUAL TO 1,"@:"AND LESS THAN OR EQUAL TO ";N9;"."T:"YOU ENTERED ";::N;:r"."|1:3:868, USE DIFFERENT DATA (RETURN"L " TO STEP 1), OR RETURN TO THE PROGRAM"f " SELECTION MENU."}& 52010:A$E$2000"ARE DATA IN A FILE";51010:A$E$1000A$"Y"50103"ENTER NUMBER OF DATA POINTS";53010:A$:A$E$1000  4@ "5. MEASURES OF LOCATION WILL BE"U " DISPLAYED." :"6. MEASURES OF DISPERSION CAN BE" " DISPLAYED." :"7. FINALLY, YOU CAN SAVE YOUR DATA ON" " DISK, MODIFY YOUR DATA (RETURN TO" " STEP 3)F THE DATA IS TO BE ENTERED AT THE":" KEYBOARD, ENTER THE NUMBER OF DATA":" POINTS AND THEN EACH VALUE IN ANY" >" ORDER." H:"3. THE DATA CAN OPTIONALLY BE EDITTED." R:"4. AFTER SORTING, YOU CAN LIST THE":" ORDERED DATA." f52010.51010$ 8A$E$ĺ:D$;"RUN MENU"5 BA$"N"4000= : "INSTRUCTIONS - YOU WILL BE REQUESTED IN":"THE STATED ORDER TO ENTER THE FOLLOWING":"INFORMATION:": ::"1. IF THE DATA IS IN A DISK FILE, ENTER":" THE FILE'S NAME."t :"2. I# DATA POINTS 4 6:12:"PROGRAM -STATMEAS-"c 10:"THIS PROGRAM WILL ORDER AND COMPUTE" 12:"MEASURES OF LOCATION FOR DATA STORED IN" 14:"A DISK FILE OR ENTERED FROM THE KEY-" 16:"BOARD." $20:"DO YOU WANT INSTRUCTIONS"; )H0)! B(M)93((M1)13)20= X(500): DATA POINTS^ T(500): EDITOR WORKSPACE} P%(500): PERMUTE INDICES D$(4): DOS COMMAND PREFIX C$".DAT": DATA FILE NAME SUFFIX B$(7): BELL E$(27): ESCAPE N9500: MAX < *** STATMEAS ***B #STA114, DESCRIPTIVE STATISTICS v LAST REVISION 2/81 BY PETE TROTTER, CONDUIT( SEE PROGRAM 'STA114' FOR CAVEAT AND COPYRIGHT.dK(X)((X.0005)1000)1000nH(X)((X.005)100)100 xA(M)((MLO                                 #"SE DIFFERENT DATA, OR"(#4:96#:"R";:\#"ETURN TO THE MENU OF PROGRAMS."m#4:12:868x#55010#A$E$8010#A$"M"6090#A$"U"4000#A$"R"ĺ::D$;"RUN MENU"#B$#1:24#"PRESS ";$:"M";:$"33:X9K(V):500101:15@"GROUPED STANDARD DEVIATION";]T933:X9K((V)):50010h52010xA$E$6010(# *** END OF MAIN ROUTINE2#<#2F#"DO YOU WANT TO"P#4:5Z#:"M";:d#"ODIFY THIS DATA,"n#4:7x#:"U";:** DISPLAY STATISTICSJ"T9;^"NUMBER OF GROUPS";QhT933:X9K:50010[rMMNf|1:11{"GROUPED MEAN";T933:X9K(M):50010V0I1K:VVF(I)(X(I)M)(X(I)M):IVV(N1)1:13"GROUPED VARIANCE";T9 PRESSED - ";:A$;:$".";.72204E1:12:868m"ENTER THE NUMBER OF DATA POINTS";x53010A$E$ė:7070NA9$N(N)N07010.B$8"MUST BE A POSITIVE INTEGER. YOU"B:"ENTERED: ";NL7410@ *"R";:2*"EENTER ALL MIDPOINTS & FREQUENCIES."C44:17:868N>55010^HA$E$6010oRA$"E"6090\A$"C"7400fA$"R"4000pB$z24"PRESS ";:"E";:", ";:"C";:", OR ";:"R";: ". YOU"SUM OF FREQUENCIES (";S;")"&6U"DOES NOT EQUAL # OF DATA POINTS (";N;")"\9r"DO YOU WANT TO"}4:11:"E";:"DIT MIDPOINTS & FREQUENCIES,"4:13:"C";: "HANGE THE # OF DATA POINTS, OR"4:15 :51010A$"N"7010<A$E$İ44010:S81:I8K:5040\*** CALL EDITOR SUBROUTINEbkN8KtM8L20070KN8X *** COMPUTE STATISTICSblS0vM0I1K:SSF(I):MMX(I)F(I):ISN8010B$4 41403 *** INPUT MIDPOINTS AND FREQUENCIES>44010GS81PI81[43010kA$E$4140zI8K6010I8I815040p*** OFFER USER OPPORTUNITY TO EDIT DATAz:12"WOULD YOU LIKE TO PROOFREAD":"YOUR DATA"; TO ";L"4010,1:12%6868M@"ENTER THE NUMBER OF DATA POINTS";XJ53010hTA$E$4000r^958{hNA9rN(N)N05010|B$14"THE NUMBER OF DATA POINTS MUST BE A":"POSITIVE INTEGER.":"YOU ENTERED: ";N0zA$E$1000"1:10,868O"ENTER THE NUMBER OF GROUPS";Z53010jA$E$1000t958}KA9K(K)(1K)(KL)04140B$12"THE NUMBER OF GROUPS MUST BE A POSITIVE":"INTEGER LESS THAN OR EQUAL . THE DATA CAN OPTIONALLY BE EDITTED."Y>:"5. AFTER THE STATISTICS ARE PRINTED, YOU";H" CAN MODIFY YOUR DATA (RETURN TO STEP"R" 4), ENTER NEW DATA (RETURN TO STEP"\" 1), OR RETURN TO THE PROGRAM"f" SELECTION MENU."p5201UCTIONS - YOU WILL BE REQUESTED IN"R"THE STATED ORDER TO ENTER THE FOLLOWING"f"INFORMATION:"l :"1. THE NUMBER OF GROUPS.":"2. THE NUMBER OF DATA POINTS." :"3. THE MIDPOINT AND FREQUENCY FOR EACH"*" GROUP."&4:"4GRAM -GROUP-"?8:"THIS PROGRAM COMPUTES THE GROUPED MEAN,"o10:"VARIANCE, AND STANDARD DEVIATION FOR"12:"CONTINUOUS DATA."16:"DO YOU WANT INSTRUCTIONS";$51010.A$E$ĺ:D$;"RUN MENU"8A$"N"4000#"INSTRTSF(50): FREQUENCIESEL50: MAX # MIDPOINTS OR FREQUENCIES\M0: GROUPED MEANyS0: SUM OF FREQUENCIESD$(4): DOS COMMAND PREFIXC$".DAT": DATA FILE NAME SUFFIXB$(7): BELLE$(27): ESCAPE 4:13:"PRO3 *** GROUP ***? #STA114, DESCRIPTIVE STATISTICS u LAST REVISION 9/82 BY PETE TROTTER, CONDUIT ( SEE PROGRAM 'STA114' FOR CAVEAT AND COPYRIGHT.dK(X)((X.0005)1000)1000nH(X)((X.005)100)100xX(50): MIDPOIN                           ժՆ3?33 ժժ> """*""" E<<""""" *""""""""""""""""*""""""""""*""''#'.'''9#'#"""""ժլ"""""" " ""ժՁժխժՃ3733 ժ":: <""< :Y"":"<<":6""" "< ""&"""" <<""*":<<<'>'>>><<"ժխ""< ժעժխժ33??՚תǪ""" A " "$""" """""" ""6"'# տժ ժժղժժժ՚ֺ"" >>>  "">  ">  `ժ  V          `FHhJH ee&`TL GH  ee F0GIHJLȱK8GKHL^KL  eeF0LJKI L* e e KL  F0GHL D E*ee8)8Α΅υ 8GΥH8NȭOii8LML I Gȹ H GȌIL i8ȱ 8 P &&&& ȥ8Я`* *  ( GH8DGEHL G H*eeEee8Ѡ@ J*KJeLKeMEJHDj)iGH8G ȭH ȐI GHGiHieeNȱO 8GΥ H8Υϰ4ΪȱΨ %Αg 륡DE ee >ȱ?l>@ABC0F 0F0LޠLޠDEȱDELeeee@`@ABCQ0`L ( FLޭD6x ʽ8iMiX`PERMSHEL PERM# SWAP,  (LPydeW2z2L  :(  : ( 5    ee ȱ @A BCee              ;! "TO RUN THE PROGRAM TYPE:"'9"RUN STA114"L