' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 7777777 7777JJJJx 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*` 䖰#egiehj ,0 l,`L 8n N<= e,L׭<=<虥=Ѝ限,, ,``,`D D`DED`  GHI <= <ȭ<ȭ<ȭG<ȭI<><ȥ?< <<= H <=HI<G q ȱ 8ȱ >? c6p"˜>Ø? c!p <=`8`@A    `@ i @ ȱ Ș`g˜?Ø )%)>? cPL; 8`  ghȱ}qLLLJ `x@8MɭɊ=L2 `,0 (!U XT`I`I0, `<=ʱD>` <=<>$-----,?????'------,??????'------%=??????'-------$$$$$$$$$6676666666?$$$$$$$,76666666>???'$$$$$$$$76666666>$$$$$$$$66?7666666?--$$$$$$4W$$$$$$$,u--uv6666??????$$$,$5%5%.,.,&5%5%5%5%5%5%.,&5%5%5%5%5%5%.,.,.,.,.,.4%5%5%5%5$ۻ$$<<'?$5757575757575757575757575/>.>.>.>.>.,.,.,.,.4%5%5%5%5%5%5%5%5%5%5%5%5%5%5%5%5%5%5%5%5%5%5%5%???'$$$<666>$$$<666&$@5757=.>.>.>.>.>5757=.>.>.>.>.>.>.7575'---------------------------%7<<<<<<<<777>??/--------------------------07575757=.>.>.>.>.>.>57575757575/>./>.>-4%1 $%%#,dp% Lp"% $`"H *+)hi#"H !*0+i+ibH#b hb`"%$$%H hi#`$% a,b*+Mc,bPMa*!0 +i+`%J) `+je *`PPPP򠥹͠rL"$!e (' !!%##`d`" e$$ ",p0qr(!#L"L$` ,  #   `L _,ePeA[8 & & &mf)mg e$*+Mc$(Ma,bp ,apP!pA* +i+Mc$$!pq"r`,T`@0,U`* L" yLB$!$$"% %L"a`e`e`,,Lҩa`@_`bc` oLXbc`q$r%L$tb`c`e`d`Yb`c`L$e (' 8!$!$%",p0 !%# L5 '5`)_W Lz HHGH_`E|!)>FNVqyEE)P$_`1  emfg` `` ,p0p`h$q%r`@``q$$hLbc`,pSh`L L L#L# A `s8967 ,R,W S ,P`ɭӠҠΠΠ ((*)  `+*HN OI*P,h*,H,^0ɛ^ ɍ $h`ɐ 6+^ oL L yL 00>3>3333300>333>3633>03333 00003333 ++++333333333>33>003063333>333 5555>3 3333>0? ?? 8DDD  ?3??33?33??33??333????????;3?333??33?? ??3;;3??!3??333337?;33?333??3??##+.?3?;3?0??? 33333?33333 333??3!33 33333 ?? ??8p`/RNJ3:???? ??0? '<:9..  88888*>* ??  >>`p833333<630000?38???0>0?8<63?00??0?33??0 ?33??3>0> ??>>>>0~~0?3 3e朩*ƛƜ`  e朩*` ߠ 0i#(#ѝ ` ߠ0 Ș` L*)ZA$:TC1566V:14:K$"B - ";:ZA$GT$(4O1):ZE119,144:LL8L\ªȱ` `  !Ȋi#`Z؅ Sȱȱ R80Bj oo88 o Sȥoȥp` :2 ߠȱȱ ߠȱȱ ߄ , g 椡̗%Hh جȢР  +`E "S$"C";,24:4:O$W$;:240:" "ZA$"R"ZZ$"=RETURN TO LINE GRAPH"O$S$;8-6:ZA$"R"ZA$"r"āI0T(M ߠ\ ȱbȱc ᥡ !  i  !!  b fL=`Hh8 [&ee0j >L^ʈ&]&&]& Ɵ`,Y(42)BF1:TC1BF0:165:DK0hHHt0%f$ I i $ %i $ iPII)if Э$pI $ I 0 A    D   `))@򊙈`l)`,1)XXB(I,2)XXXB(I,3)/#XX3X6SB@ x ) ' X88 Ņ jjj) @  Z    T 1 6  )fa8&HH G 0 $ 5 6  2 8 0 (  hhh Y ߢ8鴑))ȱi ߩ v d ߩ v d`ȩ8񃑃`E8 `    ɵ`) i iP W` v 8`L6)B(I,5)B(I,4):I0   !!""##$%%&&''(())**++,,--..//00112223344556667788899:::;;;<<<===>>>???@@@@AAABBBBCCCCCDDDDDEEEEEFFFFFFFGGGGGGGGGGHHHHHHHHHHHHHH((K65)" - "GT$(3K);7:I0L%(K,15)1::XX3P(DK,L%(K,I))ST(M,0 '67--66??$$)6?$)1:ZH(36):K$;:2049:ZA$ZA$"":(767)2780 5271ZA$:(767)2780 ZX$""18 ZZ$((767)):4608ZX$,ZZ$,ZP:ZX$"" 7: 11:ZZZE:ZE$NULL$:ZE1:2049:ZEZZ:ZA$ZA$"":7: :L(2)12:L(3)8:L(4)8:L(5)8:51E A(16384):A1286:77:A1558\ AA128:ZA$(A): A(16384):A1288:77:A1557:80 ZT0:ZU32:ZA$"":ZC$ESC$"YN":ZL1:12: K$;:VZY((ZZ$)2.5)1:ZZ1(ZZ$):VZZ:ZX:(ZZ$,ZZ,1);:   : ..L  L L 䈾 L t L   hhL ` Sू0 L刱䈱`a{8 `8 `)8:HT(2)15:HT(3)21:HT(4)28:HT(5)34 L(0)20:L(1) 2  `$0%m$!!% " ) )  L+ $CL:3&!A [6a{.00:#  t :L 0-E.,0ʬZV ʎH ʎ!L T E    $ . ,0  ׎呃 䑃  $% "  L            || x````8p`````lxx|| |x ````l8|x0x0x| x0`0````0``0``v000|````` xxxxlxx x000000xx0x0xx0000 0``0 0x`0x |||| ||x|8l````0``0`000`~<~0000`` 0`xx0p0000xx 8` 8 x8x x<`x 0```xxxx| ```0``0`00`x000||0xxx| ,aq0]q q) Iq q9rq,aq0 ,aq0LrpLrp VqLrp ` ֩PyQ AL Iqrqbq`Aq@q !q@qAq` ~L+qH)hJJJbq` ` @`lllll~~~0` pvv0`5p3p^` , g \q ,1p Bqnq) oq pqqq)^q ߍ l 6p ) L{ q,aq0- HHH]q hhh ɛ M q q0Lq qɈd`ɿɯ,`q 詍0Sɍ\qJ,^q  i5880`L \q]q^q1paqbq ( BqLp {$0$ ]qnaq ,Lo {$0LoN1p 5pLo3p oH-?n`qLyo !q o4p o !q-4p4p4p +qLyo3phh,mp` ֩PyQ ALŠҠ僁iimiʈii &'iq&i$20Lj N8`'g `.'g`nn ` ң Σ  i`+ iR("  l  h,,l,`L, HHHHHHHHH l ީm gkmNO,ɍɠ ɛ8nm,mP۩ mhhhhhhhʍiii LjL #l $lM%l#l g<>=M%l?'<>#l#l$l` H g Rh PQ`L     խ)?` ` @)`,` >k ެL/kz~C*UUFy9)iYYBy UU*fBEB`ExB`ABBHffTIH*JIUPj C/#( BPt}_Wu}?GU**B_Wu}}kzC **U3L3BB|N|pNH 3LX?EHUJI*W xzz{{z~J*UUCA~z{;KOoB UU*ffBBNB*uB*?B|BBAINHWJI*PWHUCU**NB}ABxBAINH*JIUPI*C*UUJ?n@Z?BpAINHUJI*PHU`CU**GX`CxS]vX`ZBINH*JIUPE*Jr|?#( BPu_UC?PVP|O3LBS;n;l0@DB@RI ?LCs?I*C ')jz~')Z* bx~MBUuBUBBBAIIACAsqBsaC~~BIUB|}}sOSTNUACUBBUEq|QB*uB*BBBAII33?BaBLaJI*FO~^VTUC~U**SBUuBUBBBAIID~CACJIUR?/+D*C*UUQ?IUM`?KB*QaLB|LaCLL LORB*BBBAIIaOALAC ypr3sgcBgCI*J')jxb\ IBUQCBy CSBUBBBAIIBCBpg`f`CCyIUF ?OSTu}?OSPUQAq|JB*\xCsSB*BBBAIGgcBg Cyy`yyIcBUQOCOABy SBUBBBAII`~pgpCB3 pf~pgfpIUB@@GppBpUB*Q3102B3C3BsSB*BBBAII`LL`||BBfgCaL@|AI*Bx_yxUBUQ`~~p~~`C~gSBUBBBAIGqDsaC BOCAByAwGLHB*uB*BBBAIGF?AaDsaJI*BD~~A~F?/ok{z~~J`yHBUuBUBBBAIGpDfpC`CLJIUBD@psssGsKspHB*uB*BBBAIG yx9yy0GsaBsBA?A?BI*BGBUU*H?A=0?3B?**UUD pp|@p|BINHUJI*IECBGP~x`QffPA* %R$A% **D?`x~BAINH*JIUI@DOCB|A< << << .njzzF~fF~xBUu~BU~CBBAINHjJIUBM?JB}UWWyyDyUU**DffT`x~DH*JIUID?B0Bcc>cc>>cc>0000000t` ```````8pt8<0`0``0`00000`Z<`~~6 SN$" series. This series, along with four others, is part of MECC's Computing and Information collection."O:"This collection introduces students to the concepts and skills necessary to live in the Information Age."YAFT,1:WIND:47:y41985"CC$:47:BOXXEWIND:AFT,2:CO,55,12:CN$" !"(34)"#"CO$:WIND,90,17,279,191:COF"Computing and":" Information":3:SN$"Displaying Information":WIND,30,47,260,171:COkJGCP,ZX,ZY:TI$CA$;:GCP,X,ZY:ZX,ZY8X,ZY8:" is a package in the "$:Y2180:6000:AFT,1:WIND,20,25,259,176:CO:CN$"Computing and Information"CO$CC$::3::GCP,ZX,ZY:TI$CC$CA$;:GCP,X,Y::98,ZY9X,ZY9::AVSP,4::6)"Minnesota":8)"Educational":10)"Computing":12)"Corporation":VSP:CO,20,165:"Copyright L,Y2DYLX2DXL,Y2DYLX2DXL,Y2DYLX2DXL,Y2LX1DXL,Y2LX1DXL,Y2DYLX1L,Y2DYLX1L,Y1DYLX1DXL,Y1DYLX1DXL,Y1L:YY2:1:L02:9,6L432L,6L:2352L,6L269,6L:9,YL392L,YL:2392L,YL269,YL::@CLLX2L,Y2DYLX2L,Y2DYLX2DXL,Y2DYLX2DXL,Y2LX1DXL,Y2LX1DXL,Y2DYLX1L,Y2DYLX1L,Y1DYLX1DXL,Y1DYLX1DXL,Y1L::6:X10:Y10:X2278:DX18:DY12:L02X1DXL,Y1LX2DXL,Y1LX2DXL,Y1DYLX2L,Y1DYLX2is handled by this program. The data is plotted on line graphs with continuous X- and Y- axes.":" These graphs cannot be converted to bar or pie graphs."p1:X11:Y10:X2279:DX10:DY8:L02:X1DXL,Y1LX2DXL,Y1LX2DXL,Y1DYLX2L,Y1DY8"bar graphs, line graphs, and pie graphs. Data entered for one style of graph can also be displayed in the other two styles.","Graph Number Pair Data","MENU OF 1","Graph Menu"`9"Data made up of two numbers, such as numbers of foxes and rabbits, ","k drive and diskette.":47:: "Graph Name/Number Data","MENU OF 3","Graph Menu"6"Data made up of names matched with numbers, "7"such as the names and scores of athletes, is handled by this program. Three styles of graphs are available: "SP:VSP:CO,0,80:ZE6ĺ"Error: File not found.";:53R2ZE8ĺ"I/O Error.";:533ZE0ZE16ĺ"DOS Error #"ZE" in line #"ZN:47:4"Error #"ZE" in line #"ZN" in Menu Program. Please report this error to MECC.":47:S5" Please check your dise these colors to"CC$:"adjust your monitor or"CC$:"television."CC$:L03:BOX,12(66L),41,70(66L),141,5(L0)1(L1)6(L2)2(L3):CO,(1366L),147:BR$(L)::47:/:SPACE::0ZE(222):ZN(218)(219)256:ZE255Ĭ51CO$CL$:WIND:H43&A49A(48N)37+'(A);DL$;CA$;<(45:Z1343^)Z8Z127įCO,ZX,ZY:CEL:37f*40{+AA48:A1A1,XX(XX)::-ZL11:XX(1):Z(16384):ZL(Z127)::ZZ128:16368,0:.CA$:CL$:WIND,13,10,265,37:CO:"You may uswant to quit in the middle of a program. If so, press the Escape (ESC) Key twice whenever the computer is waiting for you to type.":WIND:VSP:47:46:#$CA$;:16368,0:GCP,ZX,ZY:WIND,ZX,ZY,250,ZY12:DL$(127)%DL$:CO,ZX,ZY:45:AZ:A1$12:" Direct inquiries to:"::" "CC$;:GCP,ZX,ZY::WIND,ZX,ZY,279:CO:"MECC Distribution":"3490 Lexington Avenue North":"St. Paul, Minnesota 55126":"(612) 481-3527":47:CL$:WINDVSP,4:CL$:::"Use of ESC Key"CC$:::"You may CEWbMN$(L)::" ";:GCP,ZX,ZY:WIND,ZX,ZY,279,191:L11DP:DS$(L,L1);:L1::WIND:::L:47CL$:CO:VSP,10::"A manual to aid in the use of this diskette is available from MECC.":VSP:9:" Title: ";CA$;:GCP,ZX,ZY:TI$:PA$""įCO,ZX:PAo types of data and four styles of graphs may be printed.";" The graph scales and ranges may be adjusted. The data may be changed and redisplayed in other graph styles.":47:VSP:CO,X1,Y1:CEWL1NP:GCP,ZX,ZY:ZY150ZYY1İ47::CO,X1,Y1:MECC Graph is part of the Displaying Information series in the Computing and Information collection. MECC Graphing Primer is a related MECC product.":47:CO,X1,Y1:CEW;"MECC Graph is a tool for students to quickly graph data they have collected. Tw,0:968,1:CL$:HSP:VSP:CO,0,89:"Getting "F1$"...":UNHOOK:D$"MAXFILES 1":38272,F2$: :CL$:11:"Insert another diskette."CC$:47:CL$:CS(P(P(999))1)16:CS1CS7CS6 CS: CL$TI$CC$:PA$""ĺPA$CC$VE$CC$:::GCP,X1,Y1:"S(2)A1F1$"the Management Options":F2$"OPTIONS":A0q AS(3)F1$"Printer Support":F2$"PRINTER SUPPORT" AS(4)F1$"Diskette Support":F2$"DISKETTE SUPPORT" AS(6)16 A0ANPF1$F1$(A):F2$CN$(A)Z 104,64:16384,0:967,A:961ation" NN1:2(N9):S(3)N:N". Printer Support":NN1:2(N9):S(4)N:N". Diskette Support":NN1:2(N9):S(6)N:N". End" CO,ML,172:"Print Option is "("OFFON",1(965)3,3)"."::CO,ML,152:"Which number? ";:35:WIND:AS(1)İ20:49 A HSP:VSP:WIND:CL$:X158:Y185:Y2191:6000:CO,0,MT:CN$TI$CO$CC$:PA$""ĺPA$CC$ ::GCP,ZX,ZY:WIND,ML,ZYSP,270:CO:"Program";:NP1ĺ"s"; ":"::L1NP:2(L9):L". "MN$(L):::"Options:"::NNP1:2(N9):S(1)N:N". General Inform0:CO$(15):CN$(14):CO$ P(S)(S)(S1)256:NP2:DP3:MO0:TI$"MECC Graph":PART2$"":VE$"Version 1.1":38275,"OPTION DATA":MN$(NP),CN$(NP),F1$(DP),DS$(NP,DP):L1NP:MN$(L),CN$(L),F1$(L):L11DP:DS$(L,L1):: (975)255İ8000:975,1X~38275,"HITITLE.PFT"53248:38275,"C.FNT"54504:230,32:38272,"PPRINT.OBJ":HSP,2:DFT,1,53248:AFT,1:DFT,2,54504:48 8192:BR$(3):BR$(0)"Orange":BR$(1)"Green":BR$(2)"Blue":BR$(3)"Violet":CA$(1):CC$(3):D$(4):CL$(12):MT13:ML30:SP              85=RYE0YE16ĺK$"DOS E"L$"RROR #"YE" IN LINE #"YN:9:S"ERROR #"YE" IN LINE #"YN" IN PROGRAM"M$"OPTIONS."DM$S$"PLEASE REPORT THIS ERROR TO "K$"MECC."L$:9:TDM$S$"PLEASE CHECK YOUR DISK DRIVE"DM$"AND DISKETTE."U9:1::864: 1:I1L5MXX1:65:T077::X$(CN$(X),4,16):bNYE(222):YN(218)(219)256:YE255ĬOP$DM$:YE6ĺS$"ERROR: FILE NOT FOUND.":84PYE8ĺK$"I/O E"L$"RROR.":84QYE4ĺ"PLEASE REMOVE THE WRITE-PROTECT TAB"M$"FROM YOUR DISKETTE.":CN$(X),20,5):T(X$DA$)(X$LI$):XD4870,S:4864:X06:65:T255CN(S)CN(S)8:71ETCN(S)CN(S)1:ST15STST1:SC$(ST)(CN$(X),4,16)FXGHQ15ILCN(Q):L7LL8JLXQQ1:XXL:73KLX:QSSQ:4870,S:4864 LXTPP1:LLLL1:LLSL63J<LLLL1:IX%(FS):X%(FS)0:(FSTP)(FSB)62w=3FSTP1:3:K$SC$(FSTP1);:21:ST$;>FSI?P3:3:X%(TPP1)0ĺSC$(P);:21:ST$;:@ST$;:21:SC$(P);:AT(CN$(X)):T0T255:BT255T0:"CX$(P1)0ĺSC$(P);:$421:SC$(P);:N5TPP1FSIX%(FS):X%(FS)0:FSI:57W6IFSv7RX%(I):RTPP1IR:558X%(I)X%(R):X%(R)0:RLSLSI9LLLL1:63:LL0X%(TPP1)200:FSTPP1:LSFS:LL1:63;X%(TPP1)200:X%(LS)TPP1:LS39!-A13LNFS:34,0:35,24:).39Y/TP139:XTP1:72:TPTP1:BMXBB1:49l0BTP14BB115111SC$:SC$(1)X$:P1BTP1:51::P1:392BMX39:XB1:72:TPTP1:BB1:5150SC$:SC$(15)X$:19:M$;:51:393P3:3:E$;:X%(TPHED.";:34,3:35,18:P1:BST:TP1:11E'X%(TPP1)0X$SC$(P):41P(X$ST$)P3:3:I$K$X$N$;:4:3:K$X$;:ZA$"U"A11ĴP147:PP1:39*ZA$"D"A10ĴPTP1B50:PP1:39+A21ĴX%(TPP1)039:58:39,A8ĴX%(TPP1)039:53:%P$:2:2:S$MS$:I1ST:3I:3:K$SC$(I)::0,147279,147:20:S$"OPTIONS:":" "A$1S$"U"A$0" = CURSOR UP";:22:A$1S$"D"A$0" = CURSOR DOWN":A$1" >"A$0" = DELETE DATA";:22:A$1"<"A$0" = PUT DATA BACK"%&24:8:S$"PRESS "K$"RETURN"L$" WHEN FINIS I:X$(CN$(X),4,21):QQQQ1:1:M$D$"DELETE "X$",D"(966)::22!4876:5092,(966):LL0:FS0:LS0:MX0:ST0:I014:CN(I)100::I0105:X%(I)0::S15"CN(S)0:68:CN(S)7MXMXCN(S)8:36#MXMXCN(S):SS1:34$EF0:MX0LL0:EF1:DATA TO DELETE.":9:22$LL022fQQ0:O0:P0:Q15:J0:P$;:12:15:S$"PLEASE WAIT.":II1LL|PP1:X%(P)026XPLCN(Q):L7LL8XOLQQ1:OOL:QQ0:28RXOQQ:X1:4870,Q:4876:4864:I1RXX1:65:T031C"M$:5:B$"1. "S$"DELETE "S$"STUDENT "S$"DATA"ZA$;:"2. "S$"RETURN TO "S$"MENU"D$:15:S$"WHICH NUMBER? ";:ZC$"12":12:X(ZA$):X23,21P$:12:15:S$"PLEASE WAIT.":SL300:MS$"Select data to be deleted:":33:P$:EFĢ5:M$S$"THERE IS NO STUDENT (X$,I,1))128):I: 34,0:35,24:P$:12:S$"GETTING MAIN MENU...":1:M$D$"BSAVE OPTION DATA,A962,L5,D1":D$"IN#0":D$"PR#0":969,0:D$"BRUN RNH.OBJ":104,8:2048,0:38272,"MECCMENU" P$:4:11:S$"MANAGEMENT "S$"OPTIONS"M$:ZA$C$:DM$"YOU MAY:ZU0\ ZE$"[ ]"ESC$ZX$:2747,ZU:ZV(37)1:ZH(36):K$;:2049:ZA$ZA$"":(767)2721t 5271ZA$:ZX$""17 ZZ$((767)):4608ZX$,ZZ$,ZP:ZX$"" 7: 13:ZZZE:ZE$NULL$:ZE1:2049:ZEZZ:ZA$ZA$"":7: Z$"":I1(X$):Z$Z$((7# AA128:A97A122AA322 ZA$(A):\ A(16384):A1287:8:A1555:21l 16368,0: 24:6:S$"PRESS "K$"SPACE BAR"L$" TO CONTINUE";:11 4:A32A1311:10 16368,0: ZC$ESC$ZC$:ZA$"":ZT0:ZX$"":ZL1:18 160)" "(160):SP$"!#$%&()'*:=-+;,./><][{}\|~`^@ "(34)ESC$:ZA$"" ST$" ":RT$(21):UA$(11)(10):AR$UA$(8)RT$:4867CN$:X$".DATA":20:DA$Z$:X$".LINE":20:LI$Z$:232,0:233,96:0:1:7:22 A(16384):A1284:8:A155 78A$(1):B$(2):C$(3):D$(4):E$(5):F$(6):I$(9):K$(11):L$(12):M$(13):N$(14):O$(15):P$(16):S$(19):W$(23):(968)Ĺ968,0:D$"BLOAD NIBBLES AND BITS"F 6145:DM$M$M$:CN(15),X%(105),CN$(6),SC$(15):ESC$(27):NULL$(          <fDM$S$"PLEASE CHECK YOUR DISK DRIVE"DM$"AND DISKETTE."Og9:1::864:S103QbYE4ĺ"PLEASE REMOVE THE WRITE-PROTECT TAB"M$"FROM YOUR DISKETTE.":103cYE0YE16ĺ"DISK ERROR #"YE" IN LINE #"YN:101d"ERROR #"YE" IN LINE #"YN" IN PROGRAM"M$"PRINTER SUPPORT."DM$S$"PLEASE REPORT THIS ERROR TO "K$"MECC."L$e9:4,16):4^YE(222):YN(218)(219)256:YE255Ĭl_P$DM$:YE6ĺ"DISK ERROR. FILE NOT FOUND.":102`YE9ĺS$"THERE IS NO MORE ROOM TO STORE DATA ON THIS DISKETTE."M$:D$"CLOSE "F1$:D$"DELETE "F1$:961,0:103aYE8ĺS$"DISK I/O ERROR."::4864:X06:81:T255CN(S)CN(S)8:87eUTCN(S)CN(S)1:ST15STST1:SC$(ST)(CN$(X),4,16)lVXrW{XQ15YLCN(Q):L7LL8ZLXQQ1:XXL:89[LX:QSSQ:4870,S:4864\X1:I1L]XX1:81:T093::X$(CN$(X),:X%(FS)0:(FSTP)(FSB)78IM3FSTP1:3:K$SC$(FSTP1);:21:ST$;RNFSIOP3:3:X%(TPP1)0ĺSC$(P);:21:ST$;:PST$;:21:SC$(P);:QT(CN$(X)):T0T255:RT255T0:SX$(CN$(X),20,5):T(X$DA$)(X$LI$):*T4870,S1FSIX%(FS):X%(FS)0:FSI:73)FIFSHGRX%(I):RTPP1IR:71kHX%(I)X%(R):X%(R)0:RLSLSI{ILLLL1:79JLL0X%(TPP1)200:FSTPP1:LSFS:LL1:79KX%(TPP1)200:X%(LS)TPP1:LSTPP1:LLLL1:LLSL79LLLLL1:IX%(FS)TP155:XTP1:88:TPTP1:BMXBB1:65>@BTP14BB1oA5111SC$:SC$(1)X$:P1BTP1:67::P1:55BBMX55:XB1:88:TPTP1:BB1:5150SC$:SC$(15)X$:19:M$;:67:55CP3:3:E$;:X%(TPP1)0ĺSC$(P);:D21:SC$(P);: ETPP1!7X%(TPP1)0X$SC$(P):57,8X$ST$k9P3:3:I$K$X$N$;:4:3:K$X$;:ZA$"U"ĴP163:PP1:55:ZA$"D"ĴPTP1B66:PP1:55;A21ĴX%(TPP1)055:74:55<A8ĴX%(TPP1)055:69:55=A13LNFS:34,0:35,24:>55+?:K$SC$(I)::0,147279,147:20:S$"OPTIONS:":" "A$1S$"U"A$0" = CURSOR UP";:22:A$1S$"D"A$0" = CURSOR DOWN":A$1" >"A$0" = DELETE DATA";:22:A$1"<"A$0" = PUT DATA BACK"624:8:S$"PRESS "K$"RETURN"L$" WHEN FINISHED.";:34,3:35,18:P1:BST:TP1:1Z$"")"CHARTS.":M$M$S$"DO YOU WISH TO TURN THE PRINT"M$"OPTION "K$PO$((965))"? ";:13:ZA$"N"25{1965,(965):252CN(S)0:84:CN(S)7MXMXCN(S)8:523MXMXCN(S):SS1:504EF0:MX0LL0:EF1:5P$:2:2:S$MS$:I1ST:3I:3TION":7:X$K$PO$((965))L$:Z$" NOT":(965)Z$""N-(965)X$"NOW "X$.M$S$"THE PRINT OPTION IS "X$". "S$"THIS MEANS"M$"THE STUDENTS WILL"Z$" BE GIVEN THE ";:Z$""ĺ"OPTION":48/M$"OPTION ";f0"TO PRINT THEIR GRAPHS AND DATA "(M$,1,VE THIS SCREEN"M$:"PRINTED ON THE PRINTER, OR PRESS"DM$K$"RETURN"L$" TO GO TO THE MENU."w(4:A3241:A1340:25)1:M$D$"PR#"(962)::(963)3Ĺ6,(962):7,3:3840:43*I$"GDR"+1:L$M$D$"PR#0":6145:255,P$:4:14:S$"PRINT "S$"OP$S$"WHICH SLOT? ";:ZC$"12":12:X(ZA$):962,X:25&P$:(963)(962)0ĺM$M$S$"TO TEST THE PRINTER, BOTH A PRINTER TYPEAND AN INTERFACE CARD SLOT NUMBER MUST BE SELECTED.":9:25Y'2:14:S$"TEST "S$"PRINTER":6:S$"PRESS "K$"SPACE BAR"L$" TO HAS$"PRINTER "S$"SLOT "S$"NUMBER":M$S$"THE INTERFACE CARD FOR THE PRINTER MUST BE INSERTED INTO EITHER "S$"SLOT #1":"OR "S$"SLOT #2 OF THE COMPUTER."M$:S$"IS THE INTERFACE CARD IN ONE OF"M$"THESE SLOTS? ";:13$ZA$"N"Ĺ962,0:963,0:254%M$M"2. "PR$(2)M$"3. "PR$(3):M$M$S$"DO YOU HAVE ONE OF THESE"M$"COMBINATIONS? ";:13:ZA$"Y"34!962,0:963,0:M$M$L$S$"YOU CANNOT PRINT STUDENT GRAPHS.":9:25"M$M$S$"WHICH NUMBER? ";:ZC$"123":12:X(ZA$):963,X:25#P$:4:7:S$"SELECT "CH NUMBER? ";:ZM1:ZC$"12345":12:X(ZA$):X522LZM0:X31,35,38,44P$:4:10:S$"IDENTIFY "S$"PRINTER "S$"TYPE":M$S$"STUDENT GRAPHS CAN BE PRINTED WITH THE FOLLOWING COMBINATIONS OF PRINTERS AND INTERFACE CARDS:"M$` M$"1. "K$PR$(1)M$MAIN MENU"D$7:0,131279,131:Z$A$"1"S$:X$A$"0"K$:18:11:Z$"CURRENT "S$"CONFIGURATION"M$:Z$"PRINTER: "X$PR$((963))M$:22:Z$"PRINTER "S$"SLOT # "X$;:(962)0ĺ(962);:29"N/A";420:Z$"PRINT OPTION: "X$PO$((965)):14:M$S$"WHIR "S$"SUPPORT"DM$:ZA$C$:"YOU MAY:"M$:5:B$"1. "S$"IDENTIFY "S$"PRINTER "S$"TYPE"ZA$;"2. "S$"SELECT "S$"PRINTER "S$"SLOT "S$"NUMBER"ZA$;:"3. "S$"TEST "S$"PRINTER"ZA$;:"4. "S$"SELECT "S$"PRINT "S$"OPTION "K$"(ON/OFF)"ZA$;:"5. "S$"RETURN TO "PR#0":969,0:D$"BRUN RNH.OBJ":104,8:2048,0:38272,"MECCMENU" PR$(3),PO$(1):PR$(0)"N/A":PR$(1)"Apple DMP / Parallel Card":PR$(2)"Apple Imagewriter / Serial Card":PR$(3)"Printer / Grappler Card":PO$(0)"OFF":PO$(1)"ON"YP$:4:12:S$"PRINTELL$:ZE1:2049:ZEZZ:ZA$ZA$"":7:c ZU32:15:ZZZE:ZE$NULL$:ZE1:2049:ZEZZ:ZA$ZA$"":7: Z$"":I1(X$):Z$Z$(((X$,I,1))128):I: ZM0Ĭ@ P$:12:S$"GETTING MAIN MENU...":1:M$D$"BSAVE OPTION DATA,A962,L5,D1":D$"IN#0":D$0:ZX$"":ZL1:19@ ZT0:ZA$"":ZC$ESC$"YN":ZW1:ZL1:20:I ZU0 ZE$"[ ]"ESC$ZX$:2747,ZU:ZV(37)1:ZH(36):K$;:2049:ZA$ZA$"":(767)2722 5271ZA$:ZX$""18 ZZ$((767)):4608ZX$,ZZ$,ZP:ZX$"" 7:$ 14:ZZZE:ZE$NU384):A1284:8:A1557: AA128:A97A122AA32I ZA$(A):s A(16384):A1287:8:A1555:22 16368,0: 24:6:S$"PRESS "K$"SPACE BAR"L$" TO CONTINUE";:11 4:A32A1311:10 16368,0: ZC$ESC$ZC$:ZA$"":ZT15):ESC$(27):NULL$(160)" "(160):SP$"!#$%&()'*:=-+;,./><][{}\|~`^@ "(34)ESC$:ZA$"" ST$" ":RT$(21):UA$(11)(10):AR$UA$(8)RT$:4867CN$:X$".DATA":21:DA$Z$:X$".LINE":21:LI$Z$:232,0:233,96:0:1:7:24 A(16P 94A$(1):B$(2):C$(3):D$(4):E$(5):F$(6):I$(9):K$(11):L$(12):M$(13):N$(14):O$(15):P$(16):S$(19):W$(23):(968)Ĺ968,0:D$"BLOAD NIBBLES AND BITS":D$"BLOAD PRINT CHECK"] 6145:DM$M$M$:CN(15),X%(105),CN$(6),SC$(                TINUE":16368,0:A$:1::(4)"PR#6")LEASE REPORT THIS ERROR TO "K$"MECC."L$:10:h-DM$S$"PLEASE CHECK YOUR DISK DRIVE"DM$"AND DISKETTE."|.10:1::864:/47%0:10:"THIS IS A DATA DISKETTE CREATED FOR"::"MECC GRAPH"::"INSERT A PROGRAM DISKETTE AND PRESS"::"A KEY TO CON FILE NOT FOUND.":458)YE8ĺK$"I/O E"L$"RROR.":45*YE4ĺ"PLEASE REMOVE THE WRITE-PROTECT TAB"M$"FROM YOUR DISKETTE.":46+YE0YE16ĺK$"DOS E"L$"RROR #"YE" IN LINE #"YN:10:-,"ERROR #"YE" IN LINE #"YN" IN"M$"PROGRAM OPTIONS."DM$S$"P"YOU MAY:"M$:5:B$"1. SELECT ONE DISK DRIVE"ZA$;:"2. SELECT TWO DISK DRIVES"ZA$;:"3. MAKE NO CHANGE"D$DM$:S$"WHICH NUMBER? ";:ZC$"123":13:X(ZA$):X325&966,X:25'YE(222):YN(218)(219)256:YE255Ĭ(P$DM$:YE6ĺS$"ERROR: DISKETTE FROM DRIVE ONE AND INSERT THE MECC G RAPH DISKETTE IN DRIVE ONE.":10:25$P$:2:8:S$"CHANGE DISK DRIVE SETUP"DM$:4:"THE CURRENT SETUP SELECTION IS:"M$:12:("ONETWO",13((966)1),3)" DISK DRIVE"("S",1,(966)1)DM$:ZA$C$%O",13((966)1),3)".":10:23:M$E$;:(966)233<33e15:M$D$"BLOAD OPTION DATA,D1":39 DM$S$"THIS IS THE MECC G RAPH PROGRAM"M$"DISKETTE.":10:25!39"1:M$D$"INIT DATA DISK,D"(966):(966)225V#7:M$F$"REMOVE THE DATAE WILL ERASE WHATEVER INFORMATION IS CURRENTLY ON THEDISKETTE."DM$:S$"DO YOU WANT TO CONTINUE? ";:14:ZA$"N"253P$:4:9:S$"CREATE A DATA DISKETTE"DM$:DM$S$"PLEASE INSERT THE DISKETTE THAT YOU WILLUSE FOR STORING DATA IN DISK DRIVE "("ONETW"1. CHANGE THE DISK DRIVE SETUP"ZA$;:"2. CREATE A DATA DISKETTE"ZA$;:"3. RETURN TO THE MENU"D$DM$:S$"WHICH NUMBER? ";:ZM1:ZC$"123":13:X(ZA$):X323ZM0:X36,28wP$:4:9:S$"CREATE A DATA DISKETTE":DM$DM$"CREATING A DATA DISKETT#0":D$"PR#0":969,0:D$"BRUN RNH.OBJ,D1":104,8:2048,0:38272,"MECCMENU" P$:2:12:S$"DISKETTE SUPPORT"DM$:4:"THE CURRENT SETUP SELECTION IS:"M$:12:("ONETWO",13((966)1),3)" DISK DRIVE"("S",1,(966)1)DM$:ZA$C$"YOU MAY:"M$:5:B$1:2049:ZEZZ:ZA$ZA$"":7:] ZU32:16:ZZZE:ZE$NULL$:ZE1:2049:ZEZZ:ZA$ZA$"":7: Z$"":I1(X$):Z$Z$(((X$,I,1))128):I: ZM0ĬJ 34,0:35,24:P$:12:S$"GETTING MAIN MENU...":1:M$D$"BSAVE OPTION DATA,A962,L5,D1":D$"IN"":ZL1:20: ZT0:ZA$"":ZC$ESC$"YN":ZW1:ZL1:21:C ZU0 ZE$"[ ]"ESC$ZX$:2747,ZU:ZV(37)1:ZH(36):K$;:2049:ZA$ZA$"":(767)2723 5271ZA$:ZX$""19 ZZ$((767)):4608ZX$,ZZ$,ZP:ZX$"" 7: 15:ZZZE:ZE$NULL$:ZEA1285:9:A15584 AA128:A97A122AA32C ZA$(A):m A(16384):A1288:9:A1556:23} 16368,0: 24:6:S$"PRESS "K$"SPACE BAR"L$" TO CONTINUE";:12 5:A32A1312:11 16368,0: ZC$ESC$ZC$:ZA$"":ZT0:ZX$C$(27):NULL$(160)" "(160):SP$"!#$%&()'*:=-+;,./><][{}\|~`^@ "(34)ESC$:ZA$"" ST$" ":RT$(21):UA$(11)(10):AR$UA$(8)RT$:4867CN$:X$".DATA":22:DA$Z$:X$".LINE":22:LI$Z$:232,0:233,96:0:1:7:25 A(16384):& 39(104)847A$(1):B$(2):C$(3):D$(4):E$(5):F$(6):I$(9):K$(11):L$(12):M$(13):N$(14):O$(15):P$(16):S$(19):W$(23):(968)Ĺ968,0:D$"BLOAD NIBBLES AND BITS"W 6145:DM$M$M$:CN(15),X%(105),CN$(6),SC$(15):ES           :961,0:239p248ALCC."L$o49:JoDM$"PLEASE CHECK YOUR DISK DRIVE"DM$"AND DISKETTE."co49:1::864:DFĊ0ioo"INFORMATION.";:YE(220):YN(221):DF(223):252o1:M$D$"CLOSE"o254o1:M$D$"DELETE "F1$ pD$"":220,YE:221,YN:223,DF:DF18ĺ"DISK I/O ERROR.":247hnYE4ĺ"PLEASE REMOVE THE WRITE-PROTECT TAB"M$"FROM YOUR DISKETTE.":248nYE0YE16ĺ"DISK ERROR #"YE" IN LINE #"YN:246o"ERROR #"YE" IN LINE #"YN" IN PROGRAM"M$"LINE GR."DM$"PLEASE REPORT THIS ERROR TO "K$"ME NOT FOUND.":247mYE9ĺ"THERE IS NO MORE ROOM TO STORE DATA ON THIS DISKETTE."DM$"TO STORE MORE DATA ON THIS DISKETTE, ASKYOUR TEACHER TO ERASE DATA YOU NO LONGERWANT, OR USE ANOTHER DISKETTE. SEE THE TEACHER'S MANUAL FOR MORE ";:250nYEil22:J$"SELECT THE SIZE OF YOUR "ZZ$" PRINT-OUT: "10)A$1S$"S"A$0"= SMALL "A$1S$"L"A$0"= LARGE ";l6:ZA$"S"ZA$"L"238l236l964,12(ZA$"L"):lDF0:YE(222):YN(218)(219)256:YE255ĬmP$DM$:YE6ĺ"DISK ERROR. FILE$(1):PI$(2);:40(PI$(3)):PI$(3);:221:22:M$F$;:{kZA$PI$(I):ZE0:ZT3:ZL36(36):ZC$SP$:ZX$"":12:PI$(I)ZA$:k22:M$F$;:221k(965)0ĺ" ";:kS$A$"1P"A$"0=PRINT GRAPH";:kEF0:(965)0ıkZA$"P"EF1l WANT TO IDENTIFY YOUR "ZZ$"? ";:10:ZA$"N"229j22:J$"TYPE YOUR NAME: ";:I0:228:22:J$"TYPE YOUR CLASS NAME: ";:I1:228:22:J$"TYPE YOUR PROJECT NAME: ";:I2:228:22:J$"TYPE THE DATE: ";:I3:2286k22:M$F$K$PI$(0);:40(PI$(1)):PI(ZA$)D1:i220bi768:(76868)2Ģ22:J$"YOUR PRINTER IS NOT TURNED ON AND READY.";:49:iSL(962):PT(963):SX(964):1:M$D$"PR#"SL::6,SL:7,SX:PT3Č3840:224iI$"GR"("D",1,(SX1))iL$M$D$"PR#0":6145:2j235:22:J$"DO YOUX((X3PST(M,0)20)7)7:YY015:X2,Y4X40,Y4X40,Y8X2,Y8X2,Y4:hST(DL,KQ)X%(J30):X2,Y4X06,Y4X06,Y8X2,Y8X2,Y4:hZA$(ST$,1,ZL(ZA$))ZA$:hLP:138hX$".":4608ZA$,X$,D1:ST(DL,KQ)D1:D10ı iST(DL,KQ)X0(SC$(JKQ8))77:Y((Y3PST(M,KQ)2.5)2)2:211pgX((X3PST(M,0)(SC$(JKQ8))3.51)2)2:YY07g(KQ0)(DD4)(J2(J2))212:4352SC$(JKQ8),X,YggST(DL,KQ)X%(J30):ZL5:KQ1Y((Y3PST(M,KQ))8)8:XX07ZL7:215Oh%fX%(LS2)(X3YST(M,KQ).5)ıgf7:Y0Y1:48:X%(LS2)0ĕ4X%(LS2),Y01:4X%(LS2)1,Y01fX9X3YST(M,KQ).5:X9X9(X92(X92)):X9X1X9X02X%(LS2)1:208fX%(LS2)X9:4X%(LS2),Y01:4X%(LS2)1,Y01f1:0:8gKQ1XSC$(JKQ8):5271ZA$:AD2ST(M,KQ):1T(ST(DL,KQ))ADAD1T(ST(DL,KQ))NezeKQ0204:X%(LS)(Y3YST(M,KQ).5)ıe7:X1X06:0:X%(LS)0ĕ4X02,X%(LS)eX9Y3YST(M,KQ).5:X9Y1X9Y0X%(LS)1:203eX%(LS)X9:4X02,X%(LS)f1:,KQ)X%(X)ST(DL,KQ)X%(X) dEdKQ0193:KQ0:S8S80:29:165Nd168d22:M$F$A$1S$"OPTIONS: A"A$0"=ADJUST SCALE "A$1S$"G"A$0"=GRAPH";d6:ZA$"A"KQ1:168dZA$"G"İ65:57:59d194He209:7:213:VY81:HX72(KQ0):ZA$("XY",KQ1,1)" INCREMENT VALUE.";:184^cST(IN,KQ)(ST(MX,KQ)ST(MN,KQ))ZX$"SMALLER":186cPST(IN5,KQ):4:213:PST(IN,KQ):217:SC$(KKQ8)ZA$:V:H:ZQ216:" ";:PST(IN5,KQ):209:ST(DL,KQ)0:X31:189:X36:189:X30K:189:191dST(DLOR THE "S$("XY",KQ1,1)" AXIS.";:PST(IN,KQ):217bZL5:V:H:ZC$".":ZX$"":ZE$" "(0)ESC$:ZU32:ZT2:14:218:X%(30K)ST(DL,KQ):ST(IN,KQ)(ZA$):ST(IN,KQ)0ĭ(ST(MX,KQ)ST(MN,KQ))ST(IN,KQ)7187bZX$"LARGER"&c22:J$"TYPE A "ZX$" "S$MUST BE SMALLER THAN MAXIMUM.";:49:LM1:138:176aYST(MN,KQ):199:PST(MN5,KQ):4:213:PST(MN,KQ):217:SC$(J8KQ)ZA$:V:H:KQ216:" ";:PST(MN5,KQ):209:PST(IN5,KQ):JK:1972bZLX%(K20):ST(DL,KQ)X%(K30):22:J$"TYPE THE INCREMENT F$" "(0)ESC$ZX$:ZU32:ZT2:14:218:X%(31)ST(DL,KQ):ZZ$"L"180:ST(MN,KQ)ST(MN,KQ)AD:ST(MN,KQ)ST(MX,KQ)ST(MN,KQ)M1`LST(MN,KQ):138:177`ZZ$"S"ST(MN,KQ)ST(MN,KQ)AD:1792aST(MN,KQ)(ZA$):ST(MN,KQ)ST(MX,KQ)Ģ22:J$"MINIMUM ";:PST(MX5,KQ):209:M1ST(MN,KQ):LS12:J1:PST(MN5,KQ):197_22:J$"TYPE A MINIMUM, OR PRESS THE L OR S KEY"M$"TO MAKE THE VALUE LARGER OR SMALLER.";_(ZA$)ZLPM1:217`V:H:ST(MN,KQ)(ZA$):M1ST(MN,KQ):YM1:199:ZC$".-":ZX$"LS":ZEST(MN,KQ)ST(MX,KQ)M21^LST(MX,KQ):138:170^ST(MX,KQ)(ZA$):ST(MX,KQ)ST(MN,KQ)Ģ22:J$"MAXIMUM MUST BE LARGER THAN MINIMUM.";:49:ZA$(M2):169?_YST(MX,KQ):199:PST(MX5,KQ):4:213:PST(MX,KQ):217:SC$(JKQ8)ZA$:V:H:KQ216:" OR SMALLER.";&](ZA$)ZLPM2:217]V:H:ST(MX,KQ)(ZA$):M2ST(MX,KQ):YM2:199:ZC$"-.":ZX$"LS":ZE$" "(0)ESC$ZX$:ZU32:ZT2:14:218:X%(36)ST(DL,KQ):ZZ$"L"ST(MX,KQ)ST(MX,KQ)AD:173^ZZ$"S"174:ST(MX,KQ)ST(MX,KQ)AD:ST(MX,KQ)KQ))KJ1\:J25:JKP(SC$(J8KQ)):209r\:X%(31)ST(DL,KQ):X%(36)X%(31):X%(30K)X%(31):X%(60KQ)K\KX%(60KQ):M2ST(MX,KQ):LS11:J6:PST(MX5,KQ):197 ]22:J$"TYPE A MAXIMUM, OR PRESS THE L OR S KEY"M$"TO MAKE THE VALUE LARGER Y:XX0XX.00012[EF0:X5X(Y5Y)(X4X)XX:o[S9āI04:ST(I,0)ST(I5,0):ST(I,1)ST(I5,1)::65:57[S91:S81:KQ1:J1114:X%(J)1::ZX1:ZY10:ZX$"":L12:C32:30:ZZ$ZA$:11:1:1:E$;\J16:((SC$(JKQ8))ST(IN,KQ))1T(ST(DL,X1,Y04:(DD4)(P2(P2))155YZX((X(SC$(P))3.51)2)2:YY07:4352SC$(P),X,YhZPP1:151nZZ(X5XX5X4)(X5XX5X4)EF1:ZXXX4X:XX0XX.0001ZEF0:Y5Y(X5X)(Y4Y)XX:Z(Y5YY5Y4)(Y5YY5Y4)EF1:[XXY41Y136:JII:I10150MYY((Y3(SC$(P))ST(M,1)2.5)2)2:YY14147YXX0(SC$(P))77:4352SC$(P),X,Y:X03,Y3X03,Y3:PP1:147YP1:I0:KQIY136:JII:I10156YJST(MX,0)1.1155!ZXX3JST(M,0):X,Y02X,Y04:X1,Y02(ZA$)Y)X2X138:(ZA$,1)"."ZA$"0"ZA$XX(ZA$,2)"-."ZA$"-0."(ZA$,3)^XXP$;:28,128:62454:7:0,171279,171:(0ST(MN,1))(0ST(MX,1))ēX0,Y3X12,Y3YXX01X01:X,Y12X,Y0::YY0Y02:X01,YX12,Y::26:P9:I0:KQWX(L)5T(ST(DL,KQ)1):43:ZA$("-",1,(L)0)ZZ$:X$".":4608ZA$,X$,Y:YYY:Y0Y(ZA$):ST(DL,KQ)0ZA$ZA$".":YY1W(ZA$)YST(DL,KQ)ZA$(ZA$,YST(DL,KQ)(ST(DL,KQ)0)(YY0)):ZA$"."141:ZA$"0": XZA$ZA$("00000000",1,ST(DL,KQ)V:XXC:YYCVX0133dV4:IIX2X(ZA$)72:II,Y4II,Y5::XX3:YY3:4352ZA$,X,YlV:VXX(I)X(J):YY(I)Y(J):(XXYY)14X%(I40)1:X%(J40)1VVIIST(MN,KQ)ST(IN,KQ)I:IIST(MX,KQ)1T(ST(DL,KQ))I9VII1:}0::TC1127(U}I1:J2:134:TC2127FU~I1:J3:134:I2:J3:134UX(0)0:Y(0)0:I1TC:X%(I40)0XX(I):YY(I):ZA$(64I):131UX%(I40)1133UC0:ZA$"":X0:Y0:J1TC:X%(J40)1ZA$ZA$(J64):X%(J40)1:XXX(J):YYY(J):CC1X4,Y4:X1,YX41,Y4TvFTwX4X(LI1)X(LI1)X4:Y(LI1)Y4:121mTxX4X(LI1)ĭY4Y(LI1)Y(LI1)Y4TyXX(LI1)X(LI1)X:Y(LI1)Y:123TzXX(LI1)ĭYY(LI1)Y(LI1)YT{X4X2:Y4Y2:II:Y(LI1)Y07Y(LI1)Y07 U|LI:I4143:X%(I)SlYY01110:Y5Y019Sm160:XX5:YY5:EF118:111NSnYY1Y5Y1:109hSoX4X02113:X5X02Sp157:X4X5:Y4Y5:EF118:114SqX4X1X5X1:112SrY4Y01116:Y5Y01Ss160:X4X5:Y4Y5:EF118:117StY4Y1Y5Y1:115TuEF0:X,Y):X(LI1)0:Y(LI1)Y0:I1:II0L%(J,15)1GRgII1:L%(J3,I)0103Rh7(LI1)(LI2):XX3P(J2,I)ST(M,0):YY3P(J21,I)ST(M,1):X2X:Y2Y:II0123:105:EF1119,123RiXX02107:X5X02Rj157:XX5:YY5:EF118:108SkXX1X5X1:106FST(MN,K)(5X):99&QbFST(MX,K)57QcGX:FEEFsQdXE:78:ST(IN,K)(X$):ST(IN,K)0ST(IN,K)T(ST(DL,K))QeST(MN,K)(G5)ST(IN,K):ST(MX,K)ST(MN,K)ST(IN,K)5:I04:ST(I5,K)ST(I,K):I,K:,Rf145:V21:ZE1:ZT0:22:ZE0:LI0TC1:JX%(LI:K01:ST(MN,K)ST(MN,K):ST(MX,K)0ST(MN,K)0X3:95TPYST(MX,K)0X0:95mPZST(MN,K)0X5:95P[DST(MX,K)(ST(MX,K)ST(MN,K)):D.7X4:95P\D.5X3:95P]D.3X2:95P^X1P_X0EST(MX,K)X:97P`EST(MN,K)5QaX5QP(I,L%(LI,J))ST(MX,K)ST(MX,K)P(I,L%(LI,J)):OR:85mOSP(I,L%(LI,0))ST(MN,K)ST(MN,K)P(I,L%(LI,0))OTP(I,L%(LI,L1))ST(MX,K)ST(MX,K)P(I,L%(LI,L1))OUI:ST(MN,K)0ST(MN,K)0OV75:OWK:TC0:I02:L%(I,15)0X%(TC)I:TCTC1;PXX$SS$(((X)T(ST(DL,K))1)T(ST(DL,K))):NOMN0:MX1:IN2:DL3:M4:S90:42:X1248:Y111:Y0130:K01:ST(MX,K)1E10:ST(MN,K)1E10:IKO2KO242:LI(I2):LL%(LI,15):L085NPK083:J0L1:P(I,L%(LI,J))ST(MN,K)ST(MN,K)P(I,L%(LI,J))0O YOUR DISK DRIVE"DM$"AND DISKETTE."=I7131:1::864:DFĊ0CI8|I9"INFORMATION.";:YE(220):YN(221):DF(223):315I:1:M$D$"CLOSE"I;317I<1:M$D$"DELETE "F1$I=D$"":220,YE:221,YN:223,DF:DF1:961,0:302I>311)PLEASE REMOVE THE WRITE-PROTECT TAB"M$"FROM YOUR DISKETTE.":311wH3YE0YE16ĺ"DISK ERROR #"YE" IN LINE #"YN:309H4"ERROR #"YE" IN LINE #"YN" IN PROGRAM"M$"LINE ED."DM$"PLEASE REPORT THIS ERROR TO "K$"MECC."L$H5131:#I6DM$"PLEASE CHECKNO MORE ROOM TO STORE DATA ON THIS DISKETTE."DM$"TO STORE MORE DATA ON THIS DISKETTE, ASKYOUR TEACHER TO ERASE DATA YOU NO LONGERWANT, OR USE ANOTHER DISKETTE. SEE THE TEACHER'S MANUAL FOR MORE ";:313G1YE8ĺ"DISK I/O ERROR.":310@H2YE4ĺ"Q:4870,S:4864 F+X1:I1LNF,XX1:289:T0300::X$(CN$(X),4,16):zF-XLN:295:X$(CN$(X),4,21):LNX%(LN):F.DF0:S40:YE(222):YN(218)(219)256:YE255ĬF/P$DM$:YE6ĺ"DISK ERROR. FILE NOT FOUND.":310G0YE9ĺ"THERE IS z# ΠƠŠ ŠŠ ٠"Π ٠ Ġ"ΠŠ ȮʠЮ ȠӠĠƮŠ٠Š ΠɠǠˠŠ ʠŠ ԮʠӠĠӠӠΠԠˠ ȠӠ îԠ  ŠҠ2 ŠԠ ҠԠ Ӡ ՠ ŮԠϠàȠϠ ՠƠ ՠƠҠŠN Š?ŠĠC:269I1O23O2:J012:L%(I,J)0:J:P(I,12)0:J011:ZZ$D$(I,J):P(I,J)(ZZ$):P(I,12)P(I,12)P(I,J):5271ZZ$:ZZ$""59:L%(I,L%(I,12))J:L%(I,12)L%(I,12)1;J,I:<NL%(I,12)1"=SW0:J0N1:P(I,L%(I,J))P(I,L%(I,J1))TL%(I,J):3T465:19:J$U$"USE DATA STORED ON THEDISKETTE? ";:11:S3(R$"Y"):S354e518:V$;:266S40:SL1:MS$"SELECT A DATA NAME:":340:EFS41:S30:18:J$"THERE IS NO DATA STORED ON THE DISKETTE.";:150:537LL0528383:D(966):3192:49:ZZ$R$:12M.ZX$G$(1O1):L12:C32:49:ZX105:ZY148:4352R$,ZX,ZY:/I0TC1:5(I2)(I1):X390I:JV88V811(I2):X,JX10,J:J,I:0I0TC1:7:X390I:I1X,V87::1ZX$""ZX$(C)24871,L:4872,C:4873:R$ZA$:G$(4O1):ZE120,16:G$(4O1)R$:TC241n(V:29:("- ",1(GT3),2);:R$G$(5O1):ZE120,16:G$(5O1)R$t)*21:V$U$"CHANGE ANY LABELS? ";:11:+44:45:46,ZX$G$(O1):L36:C32:49:1:3:K$R$;:-ZX1:ZY10:ZX$G$(2O1):L12:C3THE VERTICAL AXIS(Y):":R$G$(2):24:15:13:G$(2)R$:45:%22:"TYPE NAMES OF UP TO THREE "T$":":TC3:V24:ZE1:38:ZE0&ZE$NULL$:ZL7:V:3:("- ",1(GT3),2);:R$G$(3O1):ZE120,16:G$(3O1)R$:TC141)'V:16:("- ",1(GT3),2);:R$3,Y::}#0,163279,163:21:V$"WHAT IS THE TITLE OF YOUR GRAPH?";:R$G$(0):ZL36:ZC$SP$:ZT3:24:3:13:G$(0)R$:44:;$21:V$"TYPE LABEL FOR THE HORIZONTAL AXIS(X):":R$G$(1):ZL12:24:15:13:ZZ$R$:46:G$(1)ZZ$:46:21:V$"TYPE LABEL FOR (I):XXW::7:XX0W2:I16:1X2,X%(I)2:XXW:Iw 35:36:21:V$;:I02:I13I90,185::37:42:R$"Y"32!94"P$;:7:X1279:Y111:Y0131:X070:Y3Y0:XX01X01:X,Y12X,Y0::YY0Y02:X01,YX1,Y::YY0Y1(Y0Y1)5:X03,YX06:W(X1X0)7:XX0W2:I16:YY01Y0(Y0Y1)(1)1:X,YX8,Y::XXW::735:36:21:V$;:TC3:V24:47:37:42:R$"Y"2994634:6:W(X1X0)7:XX0W2:I16:X%(I)Y0(Y0Y1)(1)::I26:X,X%(I1)XW,X%(I):X1,X%(I1)XW1,X%$"":7:3 GT(960):GT1T$"SETS OF BARS":24J T$"SETS OF LINES"l (961)Ĺ961,0:318:DC1:169t 51 S465:19:V$"DO YOU WANT HELP ENTERING LABELS FOR YOUR GRAPH? ";:11:HELPR$"Y":HELPS40:GT28,31 S3181,103Q34:(37)1:ZH(36):ZA$R$:K$;:2049:R$ZA$"":(767)27164S 5271R$:ZX$""19| ZZ$((767)):4608ZX$,ZZ$,ZP:ZX$"" 7: 13:ZZZE:ZE$NULL$:ZE1:ZA$R$:2049:ZEZZ:R$ZA$"":7: ZU32:14:ZZZE:ZE$NULL$:ZE1:ZA$R$:2049:ZEZZ:R$ZAA128:A97A122AA32( R$(A):V A(16384):A12810:152:A1558:166 ZT0:ZU32:R$"":ZC$ESC$"YN":ZL1:14: K$;:VZY((ZZ$)2.5)1:ZZ1(ZZ$):VZZ:ZX:(ZZ$,ZZ,1);:: ZU0 ZE$"[ ]"ESC$ZX$ 2747,ZU< ZVO10:O20:970,0:232,0:233,12:0:1:7 T1:I010:T(I)T:TT10::V(0)1:V(1)3:V(2)3:V(3)5:V(4)5:V(5)5:H(0)3:H(1)2:H(2)20:H(3)13:H(4)22:H(5)31:L(0)36:L(1)12:L(2)12:L(3)7:L(4)7:L(5)7:22 A(16384):A1287:152:A15510 A5),L(5):NULL$(160)" "(160):SP$"!#$%&()'*:=-+;,./><][{}\|~`^@ "(34)ESC$:ZA$"":U$"DO YOU WANT TO ":V$M$F$( ST$" ":RT$(21):UA$(11)(10):AR$UA$(8)RT$:ZH$AR$"UDLR?SGTMQ"("P",1,(965)):Y$"TYPE YOUR ":4876:4867CN$:L 3876145:A$(1):B$(2):C$(3):D$(4):E$(5):F$(6):I$(9):K$(11):L$(12):M$(13):N$(14):P$(16):S$(19):J$M$F$S$:DM$M$M$:QT$(34):ESC$(27)u D$(7,11),G$(11),CN$(6),SC$(15),CN(15),X%(105),P(7,15),L%(7,12),T(10),H(5),V(                        .QT$GT$(II3)QT$:DF23[/III2II21:J014:QT$DT$(I,J)QT$:DF23:J,I:D$"CLOSE"c0IIk1232FL$(II)"":18:M$F$M$" THIS NAME HAS ALREADY BEEN USED.";:8:353X$CN$(X):T(X$):T0T255T255T:4T((X$,20,5)LI$):o5X$06:51:T25542:T041:(CN$(X),4)ZA$508)X:Sm*II:21:M$F$"ANY CHANGES? ";:11:ZA$"Y"34+II02:L%(II,15)0FL$(II)""48,1:M$:DF0:F1$FL$(II):D$"OPEN "FL$(II)",D"(966):DF23-F1$FL$(II):D$"WRITE "FL$(II):DF23FL$(II)"":429$(ZA$)1637:ZA$ZA$(ST$,16(ZA$))f%ZA$ZA$".LINE ":ZA$FL$(II)42z&I02:III40'FL$(I)ZA$50.(:FL$(II)ZA$:X$"":I130:X$X$(((ZA$,I,1))128)::ZA$X$:4876:5092,(966):S1511:4870,S:4864:X27:FL$(0)"":FL$(1)"":FL$(2)"":L%(0,15)L%(1,15)L%(2,15)049]"II02:L%(II,15)042#12:M$F$"WHAT NAME DO YOU WANT TO GIVE THE "("FIRST SECONDTHIRD ",II61,6)"LINE?"M$:12:ZA$FL$(II):ZL16:ZX$"":ZC$" "ESC$:ZT1:17:5271ZA$:(ZA$)0,J)0:J0L8:J014:ZZ$DT$(I,J):ZZ$""31YK(I2):K2I31:DT$(K2,J)""31L%(K3,J)1:L%(K,L%(K,15))J:L%(K,15)L%(K,15)1J,I: P$:7:M$"DO YOU WANT TO STORE THIS INFORMATION"M$"FOR FUTURE USE? ";:11:ZA$"N"23A!53:4):P$:12:"GETTING "N$(GT)"...":GT224:1:M$D$"MAXFILES1":D$"BRUN RNH.OBJ,D1":38272,"LINE ED"D$"IN#0":D$"PR#0":969,0:D$"BRUN RNH.OBJ,D1":104,8:2048,0:38272,"MECCMENU"(970)((961)0)2332IO25O2:II23āJ015:L%(I MAY CHOOSE TO GRAPH YOUR DATA AGAIN."M$"OR YOU MAY RETURN TO THE MAIN MENU." 18:10:1". "N$(1)M$:10:"2. RETURN TO MAIN MENU"M$::10:"ENTER YOUR CHOICE: ";:ZU32:ZA$"":ZC$ESC$"12":ZT0:ZL1:17:GT(ZA$):960,4:GT225e6145:D$(E:ZE$NULL$:ZE1:2049:ZEZZ:ZA$ZA$"":7:9 GT2:23j P$;:28,128:62454:2118,20:10:(961)21 "THIS DATA TYPE AND GRAPH STYLE ARE"DM$"USED ONLY TO GRAPH PAIRS OF NUMBERS."DM$"CHOOSE LINE GRAPH OR RETURN TO MAIN"DM$"MENU.":22N "YOU2A1310:9 16368,0:K ZT0:ZU32:ZA$"":ZC$ESC$"YN":ZL1:13: ZE$"[ ]"ESC$ZX$:2747,ZU:ZV(37)1:ZH(36):K$;:2049:ZA$ZA$"":(767)2718 5271ZA$:ZX$""16 ZZ$((767)):4608ZX$,ZZ$,ZP:ZX$"" 7:, ZU32:13:ZZZ,1))128):T 232,0:233,96:0:1:7:N$(1)"LINE GRAPH":N$(2)"MAIN MENU":19z A(16384):A1285:10:A1557 AA128:ZA$(A): A(16384):A1287:10:A1556:18 24:6:"PRESS "K$"SPACE BAR"L$" TO CONTINUE";:10 5:A3(27):DT$(6,14),GT$(6),L%(6,15),CN$(6):4876:4867CN$ NULL$(160)" "(160):SP$"!#$%&()'*:=-+;,./><][{}\|~`^@ "(34)ESC$:ZA$"":ST$" ":RT$(21):UA$(11)(10):AR$UA$(8)RT$:DM$M$M$:X$".LINE":LI$"":I15:LI$LI$(((X$,I 5424575:A$(1):B$(2):C$(3):D$(4):E$(5):F$(6):I$(9):K$(11):L$(12):M$(13):N$(14):O$(15):P$(16):S$(19):W$(23):D$"BLOAD ICONS,A$6000":(968)Ĺ968,0:D$"BLOAD NIBBLES AND BITS":D$"BLOAD PRINT CHECK"5 6145:ESC$     6384,128:16368,0:32000. D$"BRUNRNH.OBJ"p 230,64:38272,"LOGO":16304,0:16297,0:16299,0:16302,0 L969,255:975,255 38272,"MECCMENU" } }:BS(P(P(999))1)16:BS1BS7BS6 }BS  GRAPHING UTILITY SYSTEM2PROGRAM: HELLOPCOPYRIGHT (C) MECC, 1985o(LAST UPDATE: 85/05/13 CPE{32000D$(13)(4):P(X)(X)(X1)256D$"MAXFILES1" :::(978)157Ģ12:"THIS PRODUCT NEEDS AT LEAST 48K TO RUN.":1 ED.";:20:68%XT%X:5189T%:TT%:ZX$"TEMP.DATA":1:M$D$"OPEN "X$",D1":D$"READ "X$:I05:GT$(I)::I03:J011:DT$(I,J):J,I:D$"CLOSE":_DF0:YE(222):YN(218)(219)256:YE255Ĭ`P$DM$:YE6ĺ"DISK ERROR. FILE NOT FOUND.":1X:SO1:M$:90:F1$ZA$:DF0:D$"OPEN "ZA$",D"(966):DF85:D$"WRITE "ZA$:DF85:I05:(34)GT$(I)(34):DF85::I03:J011:(34)DT$(I,J)(34):DF85:J,I:D$"CLOSE "ZA$U6145:D$(4):53 V18:M$F$M$" THIS NAME HAS ALREADY BEEN USZL16:ZX$"":ZC$" "ESC$:ZT1:38:5271ZA$:(ZA$)053cG(ZA$)1672:ZA$ZA$(ST$,16(ZA$))HZA$ZA$".DATA ":X$"":I130:X$X$(((ZA$,I,1))128)::ZA$X$:S1511:4870,S:4864:X06:88:T25579:T078:(CN$(X),4)ZA$86N"BRUN RNH.OBJ,D1":104,8:2048,0:38272,"MECCMENU"LA(970)((961)0)53BP$:7:M$S$"DO YOU WANT TO STORE THIS INFORMATION"M$"FOR FUTURE USE? ";:23:ZA$"N"538D12:J$"WHAT NAME DO YOU WANT TO GIVE THE DATA"M$"ON THE DISKETTE?"M$:12:ZA$"":R CHOICE: ";:ZU32:ZA$"":ZC$ESC$"1234":ZT0:ZL1:38:GT(ZA$):960,GT:GT4655P$:12:S$"GETTING "N$(GT)"...":GT460:1:M$D$"MAXFILES1":D$"BRUNRNH.OBJ,D1":GT58,58,59:38272,"BAR LINE";38272,"PIE"2<D$"IN#0":D$"PR#0":969,0:D$HEM OR RETURN TO THE MAIN MENU.":47 .S$"YOU MAY CHOOSE TO GRAPH YOUR DATA AGAIN"DM$"USING ANY OF THESE THREE GRAPH STYLES."DM$"OR YOU MAY RETURN TO THE MAIN MENU."S/18:I13:10:I". "N$(I)::10:"4. RETURN TO MAIN MENU"::10:"ENTER YOUL$:ZE1:2049:ZEZZ:ZA$ZA$"":7:0 'GT4:53 (P$;:28,128:62454:324,20:1118,20:4242,36:9:" "N$(1)" "N$(2)" "N$(3):11:(961)46$ -S$"THESE THREE GRAPH STYLES ARE USED ONLY"DM$"WITH NAME AND NUMBER DATA. CHOOSE ANY"DM$"OF T21 16368,0:B ZT0:ZU32:ZA$"":ZC$ESC$"YN":ZL1:28: ZE$"[ ]"ESC$ZX$:2747,ZU:ZV(37)1:ZH(36):K$;:2049:ZA$ZA$"":(767)2739 5271ZA$:ZX$""36 "ZZ$((767)):4608ZX$,ZZ$,ZP:ZX$"" $7:# &ZU32:28:ZZZE:ZE$NULE GRAPH":N$(3)"PIE GRAPH":N$(4)"MAIN MENU":4876:4867CN$:40l A(16384):A12817:22:A15519 AA128:ZA$(A): A(16384):A12819:22:A15518:39 24:6:S$"PRESS "K$"SPACE BAR"L$" TO CONTINUE";:22 17:A32A1322:6145:ESC$(27):NULL$(160)" "(160):SP$"!#$%&()'*:=-+;,./><][{}\|~`^@ "(34)ESC$:ZA$"":ST$" ":RT$(21):UA$(11)(10):AR$UA$(8)RT$D DM$M$M$:DT$(3,11),GT$(6),CN$(6):232,0:233,96:0:1:7:N$(1)"BAR GRAPH":N$(2)"LIN 9524575:A$(1):B$(2):C$(3):D$(4):E$(5):F$(6):I$(9):K$(11):L$(12):M$(13):N$(14):O$(15):P$(16):S$(19):W$(23):J$M$F$S$:D$"BLOAD ICONS,A$6000":(968)Ĺ968,0:D$"BLOAD NIBBLES AND BITS":D$"BLOAD PRINT CHECK"     ND DISKETTE."%?8:1::864:DFĊ0+@cA"INFORMATION.";:YE(220):YN(221):DF(223):67wB1:M$D$"CLOSE"C69D1:M$D$"DELETE "F1$ED$"":220,YE:221,YN:223,DF:DF1:961,0:54F63RITE-PROTECT TAB"M$"FROM YOUR DISKETTE.":63b;YE0YE16ĺ"DISK ERROR #"YE" IN LINE #"YN:61<"ERROR #"YE" IN LINE #"YN" IN PROGRAM"M$"MENU OF 1."DM$"PLEASE REPORT THIS ERROR TO "K$"MECC."L$=8: >DM$"PLEASE CHECK YOUR DISK DRIVE"DM$"ATORE DATA ON THIS DISKETTE."DM$"TO STORE MORE DATA ON THIS DISKETTE, ASKYOUR TEACHER TO ERASE DATA YOU NO LONGERWANT, OR USE ANOTHER DISKETTE. SEE THE TEACHER'S MANUAL FOR MORE ";:659YE8ĺ"DISK I/O ERROR.":62,:YE4ĺ"PLEASE REMOVE THE W"TEMP.DATA":1:M$D$"OPEN "X$",D1":D$"READ "X$:I05:GT$(I)::I05:J014:DT$(O2I,J):J,I:D$"CLOSE":6DF0:YE(222):YN(218)(219)256:YE255Ĭ7P$DM$:YE6ĺ"DISK ERROR. FILE NOT FOUND.":628YE9ĺ"THERE IS NO MORE ROOM TO S";:169"!|R$D$(DC,DR):OL$R$ı1!}R$""129n!~970,0:OL$""L%(DC,L%(DC,12))DR:L%(DC,12)L%(DC,12)1!P(DC,12)P(DC,12)OLP(DC,DR):IDC:MO0128:L%(I,12)160:133:JDC:70!"I0L%(DC,12)1:L%(DC,I)DR130::"MESSED UP LINKS":1tDRDR1:DR12109:DR0:DCDC1:DC4109:DC0:97O uDRDR1:DR0109:81q vDRDR1:DR12109:DR11:109 wDCDC1:DC0109:97 xDR0 yDCDC1:DC4109:DC0:97 z192MO:V$;:ZZ$"DATA":327:103!{183MO:V$M$"GETTING GRAPH...DC,DR)(R$):ZZ$R$SoD$(DC,DR)ZZ$:L7:DR6:29DC2(DC0):80:124:ZP0116p4608ZH$,ZG$,ZP:ZP117,118,119,120,117,118,119,121,113,154,123,81,114,163,122q139:104rMOMO:18:V$;:MOĺM$"CALCULATING...";:64:138:67:104s1044 TLES":ZZ$"?"ZX$"=HELP "ZZ$"S"ZX$"=SAVE "ZZ$"G"ZX$"=GRAPH "ZZ$"Q"ZX$"=MENU ";:(965)ĺZZ$"P"ZX$"=PRINT";sl152mR$D$(DC,DR):OL$R$:OLP(DC,DR):ZX$ZH$:ZT2:ZC$".- ":ZE0:ZL7:DR6:2DC92(DC0):21:ZG$ZZ$:R$""ZZ$"":P(DC,DR)0:111nP(18:V$M$13)"TYPE DATA IN THESE COLUMNS."iZZ$A$"1"S$:ZX$A$"0":22:1:F$ZZ$"OPTIONS:"15)"M"ZX$"=";:MOĺ"DISPLAY STATISTICS":107j"ERASE STATISTICS"jkZZ$"U"ZX$"=UP "ZZ$"D"ZX$"=DOWN "ZZ$"L"ZX$"=LEFT "ZZ$"R"ZX$"=RIGHT "ZZ$"T"ZX$"=TITO THE NEXT COLUMN.";cDR6:2:ZT3:ZL8:R$D$(DC,DR):ZX$RT$"?"UA$:ZC$SP$:20:D$(DC,DR)R$:ZG$ZZ$:ZZ$R$:L8:73:2:ZZ$;:ZG$RT$103dZG$"?"İ139:98eZG$(11)DRDR1:DR099:81fDRDR1:DR1299gDC1:DR0+hS465:MO":ZE0:ZC$SP$:ZT3:20:ZZ$"?"İ139:82c]G$(I)R$:LL(I):V(I):H(I):ZZ$R$:80::21:V$;:94w^HELPS4MOİ67_S4İ65`DR0:DC0:DC0197,104aMOĢ18:V$;b193MO:J$"TYPE A LEGEND NAME OR PRESS THE RIGHTARROW KEY TO MOVE VY$"Y-AXIS LABEL.";:88GW"TYPE NAMES OF UP TO THREE "T$".";:88SXI392YR$G$(I):ZLL(I):V(I):H(I):ZX$"?":ZE0:ZC$SP$:ZT3:20:ZZ$"?"İ139:82ZG$(I)R$:69:II1:I1GT3I3[83)\I35:R$G$(I):ZLL(I):V(I):H(I):ZX$"?XX(X$):ZZ$ZZ$X$:((ZZ$)9)(X0)78/OVP73:33,(36)L1:ZZ$E$;:33,40:cQS4İ65R183MO:V$;:22MO2:1:"(PRESS ? FOR HELP.)";:I0S20MO3:1:E$S$;:I184,85,86,87TY$"GRAPH TITLE.";:88UY$"X-AXIS LABEL.";:88,I):L8:75:2J92(J0):71:I:OG(ZZ$)LZZ$(ZZ$,L((ZZ$,L,1)"."))WH80I5271ZZ$:ZZ$""ZX$"":C95:49:ZZ$R$JK(X)1ZZ$(X):L(X)5E7ZZ$"0":MZZ$"0.":X0ZZ$"-0.":XX)NXX10:X$("0123456789",X1,1):D";:I011:6I:J03:L8(J0)RBZZ$D$(JO2,I):73:2J92(J0):ZZ$;:J,I]CMOıD19:1:F$" "K$B$"MEAN"C$"MEDIAN"C$"ST. DEV."D$;:J13:70::EZX$G$(IO1):LL(I):C3263(ZX$""):49:V(I):H(I):K$R$;:#FI1315:I6:XP(JO2L%(I,J)L%(I,J1):L%(I,J1)T:SW16>J:NN1:SW61<?U@I1O23O2:60::!AS41:P$;:7:0,139271,139:0,27271,27:73,2773,139:74,2774,139:0,140271,140:I022(GT3):69::I35:V(I):H(I):LL(I):ZZ$G$(IO1):80::5:3:K$"LEGENo104o:<gDM$"PLEASE CHECK YOUR DISK DRIVE"DM$"AND DISKETTE."Uh20:1::864:DFĊ0[ij"INFORMATION.";:YE(220):YN(221):DF(223):108k1:M$D$"CLOSE"l110m1:M$D$"DELETE "F1$nD$"":220,YE:221,YN:223,DF:DF1:961,0:95RROR.":103YcYE4ĺ"PLEASE REMOVE THE WRITE-PROTECT TAB"M$"FROM YOUR DISKETTE.":104dYE0YE16ĺ"DISK ERROR #"YE" IN LINE #"YN:102e"ERROR #"YE" IN LINE #"YN" IN PROGRAM"M$"MENU OF 3."DM$"PLEASE REPORT THIS ERROR TO "K$"MECC."L$f2003aYE9ĺ"THERE IS NO MORE ROOM TO STORE DATA ON THIS DISKETTE."DM$"TO STORE MORE DATA ON THIS DISKETTE, ASKYOUR TEACHER TO ERASE DATA YOU NO LONGERWANT, OR USE ANOTHER DISKETTE. SEE THE TEACHER'S MANUAL FOR MORE ";:106 bYE8ĺ"DISK I/O E3MX:R4MN:R5IN:R6DL:R7TR:j1238:V21:47:ZE1:ZT0:38:ZE0:PWX1TR4X0:W(PW(TRTC)):W8W4w1W8W81BW5:W8BW91W12:W23:W8W16:W271W44(TC1)5:W8W4W421TC2W4W41 2SP((X1X0(W4TR))TR):SP2(S0X5:201,0DMX(MXMN):D.7X4:201?0D.5X3:201R0D.3X2:201Z0X1p0X0EMXX:203{0EMN50X5FMN(5X):2050FMX50GX:FEEF0XE:187:IN(X$):IN0INT(DL)1MN(G5)IN:MXMNIN5:R10:R2TR1:RL%(I,12):L0193I/TCTC1:X%(TC)I:M0:K0L1:ML%(I,K)ML%(I,K)`/:MM1:MTRTRM/P(I,L%(I,0))MNMNP(I,L%(I,0))/P(I,L%(I,L1))MXMXP(I,L%(I,L1))/I:MN0MN0/184:MNMN:MX0MN0X3:201/MX0X0:201 0MN0DL0.181R.X$".":DL0:I0TR1:JO21O2TC:4608D$(J,I),X$,X:X0186p.L(D$(J,I))X:LDLDLL{.J,I:.SS$("-",1(X0)):X$SS$(((X)T(DL)1)T(DL)):/S90:64:X1279:Y111:Y0131:MX1E10:MN1E10:TC0:TR0:I1O23O2:LV$;:ZZ$"GRAPH":327:170#-171[-M(Y0Y1)(MXMN):Y3Y0(MMN):P1:DD0:I0:X$"."-229:I10179:LII:235:SC$(P)R$:X(SC$(P)):PP1:XDDDDX-177-X0(DD3)7:X02(X02)X0X01--176:DL0DD8ı.DLDL(DD7):DL188:181:TC0ı$,GT208,243:7,167:TC0104,R$A$"1"S$:ZZ$A$"0":22:M$R$"OPTIONS: A"ZZ$"=ADJUST SCALE"27)R$"C"ZZ$"=CHANGE DATA"M$10)R$"Q"ZZ$"=MENU"27);:331,7:R$"C"İ65:104,R$"Q"163,R$"A"ī261-333:EFĢ22:X:S0+1:M$:D(966):X$R$:321:DFİ65:103;+970,1H+67:104+18:V$M$" THIS NAME HAS ALREADY BEEN USED.";:150:155+961,1:320:165+961,0+34,0:35,24:P$:12:"GETTING GRAPH MENU..."+1:M$D$"RUN MENU OF 3,D1","":ZL16:ZX$"":ZC$" "ESC$:ZT1:21:5271R$:(R$)0161b*(R$)16157:R$R$(ST$,16(R$))*R$R$".DATA ":X$"":I130:X$X$(((R$,I,1))128)::R$X$:S1511:4870,S:4864:X06:372:T255159:T0158:(CN$(X),4)R$162+0,1970,1980,MARCH,3.5,3.6,3.6,APRIL,3.5,6.9,4.1: MAY,3.1,2.3,0.5,JUNE,1.7,3.4,4.1,JULY,1.3,0.6,0.4)18:V$M$U$"STORE THIS INFORMATIONFOR FUTURE USE? ";:11:R$"N"161:*19:J$"WHAT NAME DO YOU WANT TO GIVE THE DATAON THE DISKETTE?":23:12:R$(MOZM:O10:O20:65:M(I35:V(I):H(I):LL(I):ZZ$G$(IO1):80::(I04:6I:2J9(J0)2:K$D$(JO2,I);::(24:6:"PRESS SPACE BAR TO CONTINUE";:152(7:(A32)(A13)152:151(16368,0:c)RAINFALL,MONTH,INCHES,196149:N$;:150:149:J:19:J$"THIS ENTRY MEANS 3.4 INCHES OF RAINFALL IN THE MONTH OF JUNE IN 1970.";(9:22:I$"3.4"N$;:150:9:22:"3.4";:19:J$U$"SEE THE GRAPHOF THIS EXAMPLE? "D$;:11:R$"Y"Ģ19:V$M$"GETTING GRAPH...";:57:167:150148:N$;:150:148&19:J$"THE LEGENDS FOR THE HORIZONTAL AXISARE SHOWN IN THE FIRST COLUMN."I$;:J0:149:N$;:150:149:J13:ZZ$("FIRST SECONDTHIRD",J65,5(J2))m'19:J$"THE VALUES FOR THE "ZZ$" SET OF DATAARE SHOWN IN THIS COLUMN."I$;:IS NOT NEEDED FOR A PIE GRAPH.)"I$;:I1:69:N$;:150:69:19:J$"THE VERTICAL AXIS IS LABELED INCHES.(THIS IS NOT NEEDED FOR A PIE GRAPH.)"I$;&I2:69:N$;:150:69:19:J$"THE NAMES OF THE THREE "T$DM$"ARE SHOWN AT THE TOP OF THESE COLUMNS."I$;:19:J$"THE DATA ENTERED ON THIS TABLE SHOWSRAINFALL IN INCHES DURING FIVE MONTHSOF THE YEARS 1960, 1970, AND 1980.":150:19:V$M$"THE TITLE OF THE GRAPH IS RAINFALL."I$;%I0:69:N$;:150:69:19:J$"THE HORIZONTAL AXIS IS LABELED MONTH.(THIS J0L%(I,12)1:XX(MP(I,L%(I,J)))(MP(I,L%(I,J)))::L%(I,12)2P(I,15)0:m#P(I,15)(X(L%(I,12)1))s##I13:133::#P$;::O16:O24:I05:G$(IO1)::I04:J03:D$(JO2,I):J,I:ZMMO:MO0:GT3GT0:65:GT3:141#65$50:"IL%(DC,12)1132F"IIL%(DC,12)2:L%(DC,I)L%(DC,I1):e"L%(DC,12)L%(DC,12)1:127"L%(I,12)0137:P(I,13)P(I,12)L%(I,12):XL%(I,12)2:X(X)P(I,14)(P(I,L%(I,X1))P(I,L%(I,X)))2:135"P(I,14)P(I,L%(I,X))O#X0:MP(I,13):";:LS13:P0:X%(LS)1304KA 7:R$"L"ĴR10288:R1R11:PR1:304:288yA!R$"R"ĴR1R2288:R1R11:PR1:304:288A"A13288:22:J$"PRESS THE L OR R KEY TO MOVE THE END"L$M$"OF THE GRAPH LEFT OR RIGHT.";:LS14:PR21:304!B#7:R$"L"ĴRMN)ZX$"SMALLER":282@PR5:4:312:PIN:314:SC$(K)R$:313:V:H:(ST$,ZL);:PR5:311:DL0:X31:285:X36:285:X30K:285:287@DLX%(X)DLX%(X)@A22:J$"PRESS THE L OR R KEY TO MOVE THE"M$K$"BEGINNING OF THE GRAPH LEFT OR RIGHT.297:ZLDD:DLX%(K30):22:J$"TYPE THE INCREMENT VALUE.";:PIN:314?V:H:ZC$".":ZX$"":ZE$" "(0)ESC$:ZU32:ZT2:15:315:X%(30K)DL:IN(R$):IN0ĭ(MXMN)IN7283?ZX$"LARGER"?22:J$"TYPE A "ZX$" INCREMENT VALUE.";:280@IN(MXD:MNMXMNM1">LMN:231:274=>ZZ$"S"MNMNAD:276>MN(R$):MNMXĢ22:J$"MINIMUM MUST BE SMALLER THAN MAXIMUM.";:150:LM1:231:273C?315:X%(31)DL:YMN:299:4:PR4:312:PMN:314:SC$(J)R$:313:H:V:(ST$,ZL);:PR4:311:PR5:JK:M1MN:LS12:J1:PR4:297w=22:J$"TYPE A MINIMUM VALUE OR PRESS L OR S KEYTO MAKE THE VALUE LARGER OR SMALLER.";=(R$)ZLPM1:314>V:H:MN(R$):M1MN:YMN:299:ZC$".-":ZX$"LS":ZE$" "(0)ESC$ZX$:ZU32:ZT2:15:ZZ$"L"277:MNMNAMXMXAD:2706< ZZ$"S"271:MXMXAD:MXMNMXM2I<LMX:231:267<315:X%(36)DL:MX(R$):MXMNĢ22:J$"MAXIMUM MUST BE LARGER THAN MINIMUM.";:150:R$(M2):266=YMX:299:4:PR3:312:PMX:314:SC$(J)R$:313:H:V:(ST$,ZL);:PR3:311:0K)DL%; M2MX:LS11:J6:PR3:297; 22:J$"TYPE A MAXIMUM VALUE OR PRESS L OR S KEYTO MAKE THE VALUE LARGER OR SMALLER.";; (R$)ZLPM2:314 < V:H:MX(R$):M2MX:YMX:299:ZC$"-.":ZX$"LS":ZE$" "(0)ESC$ZX$:ZU32:ZT2:15:ZZ$"L"W)(YK):251:257T:S9S90:MXR3:MNR4:INR5:DLR6:R10:TRR7:R2TR1:181:168:S91:J1114:X%(J)1::ZX1:ZY10:ZX$(ST$,12):12:1:3:E$;:J16:((SC$(J))IN)1T(DL)KJ::J25:JKP(SC$(J)):311;:X%(31)DL:X%(36)DL:X%(3Y01ĴYY1YY01259:248:257:9YY1YY01İ250:257i95(J3)(J2):XW,KX,Y:XW1,KX1,Y:95(J3)(J2):X4,Y4X5,Y5:X41,Y4X51,Y599KY1ĴYY1258:Y5Y1:X5X((YY5)W)(YK):251:257:YY01258:Y5Y01:X5X((YY5)YY3MK:YY1YY01247+87:JX2,Y2=8J:XXW:I:_8X5X:Y5Y:Y4Y01:KY1Y4Y1{8X4X((YY4)W)(YK):8X5XW:Y5K8Y4Y01:YY1Y4Y18X4XW((KY4)W)(KY):8KX%(J10):X%(J10)Y:(IR1)(IL%(J,12))ı9KY1KW12:W5W:X7X0W2:W4W:XX0W2W2:X2(X2)XX18X6X:IR1R2:L(W41)8:R$(D$(O2,I),L):5271R$:X4X((R$)8)22.5:YY05:R$R$(" ",1,(R$)0):4352R$,X4,Y:J1TC:KP(X%(J),I):YY3MK:253:J:XXW:I:XX6:IR1R2:J1TC:KP(X%(J),I):2X,Y0::YY0Y02:X01,YX1,Y::43:P1:I0G6229:JII:I102426XX0(SC$(P))77:YY3JM2.5:4352SC$(P),X,Y:X03,Y3X03,Y3:PP1:24066238:V21:48:ZE1:ZT0:38:ZE0:PWX1X0TR:W(PWTR):W2(W2)WW177W1PWTRW:W2;5(R$)YDLR$(R$,YDL(DL0)):R$"."234:R$"0":b5R$R$("00000000",1,DL(R$)Y):h55231:(R$,1)"."R$"0"R$5(R$,2)"-."R$"-0"(R$,2)55P$;:7:0,171279,171:(0MN)(0MX)ēX0,Y3X1,Y3/6XX01X01:X,Y1(Y2Y):X,KXW1,K:4XXW;47:J:XXSP(TC2):I:N4Y4Y1Y4Y1:c4Y4Y01Y4Y01i44IIMNINI:IIMX1T(DL)I94II1:4X(L)5T(DL1):75:R$("-",1,(L)0)ZZ$:X$".":4608R$,X$,Y:Y0Y(R$):DL0R$R$".":YY1)M:K0K1Mm3YY3KM:Y4Y:226:YY4:Y2Y3(Y3Y):Y4Y2:226:Y2Y4:Y2YĭY(Y01)YY1ĴJ224,222,2203J223,221,21935:KY2Y2(Y2Y):X,KXW1,K:3XXBW:22537:KY2Y(Y2Y):X,KXW2,K:3XXBW:22546:KY2YP2)SPSP1E2XX0((X1X0W4TRSP(TR1))2):X2(X2)XX13W5WBW(TC1)SP:X7XSP22:IR1R2:L(W4SP1)8:R$(D$(O2,I),L):5271R$:X4XW42((R$)8)2.5:YY05:R$R$(" ",1,(R$)0):4352R$,X4,Y:J1TC:KP(X%(J),I):(K)1MK(KL/Q~XX1:372:T0382::X$(CN$(X),4,16):CQLNTPLNB385\QX$SC$(LNTP1):386jQXLN:377QX$X$".DATA":LNX%(LN):QDF0:S40:YE(222):YN(218)(219)256:YE255ĬQP$DM$:YE6ĺ"DISK ERROR. FILE NOT FOUND.":395RYEPtT%X:5189T%:TT%:OPu4870,S:4864:X06:372:T255CN(S)CN(S)8:376PvTCN(S)CN(S)1:ST15STST1:SC$(ST)(CN$(X),4,16)PwXPxPyQ15PzLCN(Q):L7LL8P{LXQQ1:XXL:378P|LX:QSSQ:4870,S:4864Q}X1:I1:LSFS:LL1:370OOnX%(TPP1)200:X%(LS)TPP1:LSTPP1:LLLL1:LLSL370OoLLLL1:IX%(FS):X%(FS)0:(FSTP)(FSB)369Op3FSTP1:3:K$SC$(FSTP1);:21:ST$;OqFSIOrP3:3:X%(TPP1)0ĺSC$(P);:21:ST$;:OsST$;:21:SC$(P);:5)X$:19:M$;:358:346BNfP3:3:E$;:X%(TPP1)0ĺSC$(P);:UNg21:SC$(P);:NhTPP1FSIX%(FS):X%(FS)0:FSI:364NiIFSNjRX%(I):RTPP1IR:362NkX%(I)X%(R):X%(R)0:RLSLSINlLLLL1:370OmLL0X%(TPP1)200:FSTPP1346)M_A8ĴX%(TPP1)0346:360:346HM`A13LNFS:34,0:35,24:QMa346MbTP1346:XTP1:377:TPTP1:BMXBB1:356McBTP14BB1Md5111SC$:SC$(1)X$:P1BTP1:358::P1:346NeBMX346:XB1:377:TPTP1:BB1:5150SC$:SC$(18:"PRESS RETURN WHEN FINISHED";:34,3:35,18:P1:BST:TP1:152dLZX%(TPP1)0X$SC$(P):348oL[X$ST$L\P3:3:I$K$X$N$;:7:3:K$X$;:R$"U"A11ĴP1354:PP1:346L]R$"D"A10ĴPTP1B357:PP1:346M^A21ĴX%(TPP1)0346:365:MXCN(S):SS1:341)KWEF0:MX0EF1:KXP$:2:2:S$MS$:I1ST:3I:3:K$SC$(I)::0,147279,147:20:A$1"OPTIONS:":" U"A$0" = CURSOR UP";:22:A$1"D"A$0" = CURSOR DOWN":A$1" >"A$0" = SELECT DATA";:22:A$1"<"A$0" = PUT DATA BACK"CLY24:T: "10)A$1"S"A$0"= SMALL "A$1"L"A$0"= LARGE ";NJQ7:R$"S"R$"L"339WJR337oJS964,12(R$"L"):JT4876:5092,(966):LL0:FS0:LS0:MX0:ST0:I014:CN(I)100::I0105:X%(I)0::S15JUCN(S)0:373:CN(S)7MXMXCN(S)8:343KVMX2:V$;:KIIR$PI$(I):ZE0:ZT3:ZL36(36):ZC$SP$:ZX$"":13:PI$(I)R$:]IJ22:V$;:323IK(965)0ĺ" ";:ILS$A$"1P"A$"0=PRINT GRAPH";:IMEF0:(965)0ıINR$"P"EF1IO4JP22:J$"SELECT THE SIZE OF YOUR "ZZ$" PRINT-OUTIFY YOUR "ZZ$"? ";:11:R$"N"330IH22:J$Y$"NAME: ";:I0:329:22:J$Y$"CLASS NAME: ";:I1:329:22:J$Y$"PROJECT NAME: ";:I2:329:22:J$"TYPE THE DATE: ";:I3:329:22:V$K$PI$(0);:40(PI$(1)):PI$(1):PI$(2);:40(PI$(3)):PI$(3);:323:2GBD$(4):6145:bGC768:(76868)2Ģ22:J$"YOUR PRINTER IS NOT TURNED ON AND READY.";:150:GDSL(962):PT(963):SX(964):1:M$D$"PR#"SL::6,SL:7,SX:PT3Č3840:326GEI$"GR"("D",1,(SX1))GFL$M$D$"PR#0":6145:$HG336:22:J$U$"IDEND"D:D$"READ "X$:I05:G$(I)::I03:J011:D$(I,J):J,I:D$"CLOSE":57:eF@X$"TEMP.DATA":D1FADF0:F1$X$:1:M$D$"OPEN "X$",D"D:DF322:D$"WRITE "X$:DF322:I05:QT$G$(I)QT$:DF322::I03:J011:QT$D$(I,J)QT$:DF322:J,I:D$"CLOSE"jE8Y((Y3PM)8)8:DLX%(J30):ZLDD:X((X07ZL7)7)7:X2,Y4X06,Y4X06,Y8X2,Y8X2,Y4:E9R$(ST$,1,ZL(R$))R$:E:LP:231E;X$".":4608R$,X$,DL:DL0ıE<DL(R$)DL:E=317E>X$"TEMP.DATA":D1NF?1:M$D$"OPEN "X$",Y1:48:X%(LS)0ĕ4X%(LS),Y01:4X%(LS)1,Y01ID2PTRX%(LS)1:310cD3P0X%(LS)X02:309D4X%(LS)X7W5P:X%(LS)X%(LS)(X%(LS)2(X%(LS)2))D54X%(LS),Y01:4X%(LS)1,Y01D61:0:E7XX0(SC$(J))77:YY3PM2.5:4352SC$(J),X,Y:H(X7.5)1:R$SC$(J):5271R$:AD2M:1T(DL)ADAD1T(DL)CC*^C+X%(LS)(Y3YM.5)ıC,7:X1X06:0:X%(LS)0ĕ4X02,X%(LS)C-X9Y3YM.5:X9Y1X9Y0X%(LS)1:303C.X%(LS)X9:4X02,X%(LS)C/1:C0X%(LS)X7W5Pı0D17:Y02R1291:R2R21:PR21:304:291SB$R$"R"ĴR2TR1291:R2R21:PR21:304:291B%A13291:22:V$A$1"OPTIONS: A"A$0"=ADJUST SCALE "A$1"G"A$0"=GRAPH";B&7:R$"A"265B'R$"G"TRR2R11:181:168:170B(294=C)311:7:312:VY81:HANGE DATA"13)ZA$"Q"ZZ$"=MENU"28);:230:O$S$;CK<6:ZA$"C"48SK=ZA$"Q"52eK>ZA$"A"ī163K?232:EFĢ22:M$F$;:ZZ$"GRAPH":225:59K@60KAK101KBMM(ST(MX,K)ST(MN,K)):K0ST(M,K)(X1X0)MM:X3X0ST(M,K)ST(MN,K):68$LCST(M,1J26:A3250:$J316368,0:3J4961,1:54>J5961,0gJ6P$:12:S$"GETTING GRAPH MENU..."J71:M$D$"RUN MENU OF 1"J879:65J9102:J:560K;ZA$A$"1"S$:ZZ$A$"0":22:O$W$M$ZA$"OPTIONS: A"ZZ$"=ADJUST SCALE"28)ZA$"C"ZZ$"=CZZ$"0.":X0ZZ$"-0.":XXkI.XX10:X$("0123456789",X1,1):XX(X$):ZZ$ZZ$X$:((ZZ$)9)(X0)46qI/I022:M$F$M$S$"GETTING DATA...";:961,1:1:M$D$"BRUN RNH.OBJ,D1":38272,"LINE ED"J124:6:S$"PRESS "K$"SPACE BAR"L$" TO CONTINUE";:5:L%(K,15)L%(K,15)1H$J,I:6H%NL%(I,15)1:KI2iH&SW0:J0N1:P(K,L%(I,J))P(K,L%(I,J1))40H'TL%(I,J):L%(I,J)L%(I,J1):L%(I,J1)T:SW1H(J:NN1:SW38H)H*IO22O2:37::H+(X)1ZZ$(X):H,(X)5E7ZZ$"0":I-.5:ZY148:4352ZX$,ZX,ZY:/GZX$""ZX$(C)KG4871,L:4872,C:4873:wG IO25O2:II23āJ015:L%(I,J)0:JG!L8:J014:ZZ$DT$(I,J):P(I,J)(ZZ$):5271ZZ$:ZZ$""36G"K(I2):K2I36:DT$(K2,J)""36H#L%(K3,J)1:L%(K,L%(K,15))JTC225EFV:27:K$"C - ";:ZA$GT$(5O1):ZE119,15:GT$(5O1)ZA$KF[F27:28:29FZX$GT$(O1):L36:C32:30:1:3:K$ZA$;:FZX1:ZY10:ZX$GT$(2O1):L12:C32:30:ZZ$ZA$:11GZX$GT$(1O1)(" ",1,(GT$(1O1))0):ZX(X0X1)2(ZX$)3"X$",D1":D$"READ "X$:I05:GT$(I)::I05:J014:DT$(O2I,J):J,I:I03:PI$(I)::D$"CLOSE":32:58EZE$NULL$:ZL8:V:1:K$"A - ";:ZA$GT$(3O1):ZE119,15:GT$(3O1)ZA$:TC125FV:14:K$"B - ";:ZA$GT$(4O1):ZE119,15:GT$(4O1)ZA$:$D2747,ZUJDZV(37)1:ZH(36):K$;:2049:ZA$ZA$"":(767)2753bD5271ZA$:ZX$""18DZZ$((767)):4608ZX$,ZZ$,ZP:ZX$""D7:D12:ZZZE:ZE$NULL$:ZE1:2049:ZEZZ:ZA$ZA$"":7:kEGT(960):X$"TEMP.DATA":F1$X$:1:M$D$"OPEN 6:51:A15590CAA128:A97A122AA32?CZA$(A):jC A(16384):A1289:51:A1557:55C ZT0:ZU32:ZA$"":ZC$ESC$"YN":ZL1:13:C K$;:VZY((ZZ$)2.5)1:ZZ1(ZZ$):VZZ:ZX:(ZZ$,ZZ,1);::C ZU0D ZE$"[ ]"ESC$ZX3,12:0:1:7:T1:I010:T(I)T:TT10:BV(0)1:V(1)3:V(2)3:V(3)5:V(4)5:V(5)5:H(0)3:H(1)4:H(2)27:H(3)4:H(4)17:H(5)30:HT(0)2:HT(1)8:HT(2)15:HT(3)21:HT(4)28:HT(5)34:L(0)36:L(1)12:L(2)12:L(3)8:L(4)8:L(5)8:20CA(16384):A128CN(15),X%(105),P(11,14),L%(11,15),T(10),HT(5),ST(9,1),X(3),Y(3),B(15,7))BNULL$(160)" "(160):SP$"!#$%&()'*:=-+;,./><][{}\|~`^@ "(34)ESC$:ZA$"":ST$" ":RT$(21):UA$(11)(10):AR$UA$(8)RT$:4876:4867CN$:O10:O20:232,0:230 @239@6145:A$(1):B$(2):C$(3):D$(4):E$(5):F$(6):I$(9):K$(11):L$(12):M$(13):N$(14):O$(15):P$(16):S$(19):W$(23)GADM$M$M$:QT$(34):ESC$(27):TYPE$(4)"LINES":J$M$F$S$:DT$(11,14),PI$(3),GT$(11),CN$(6),SC$(16),                YOUR DISK DRIVEAND DISKETTE.":T150:1::864:DFĊ0@TyT"INFORMATION.";:YE(220):YN(221):DF(223):400T1:M$D$"CLOSE"T402T1:M$D$"DELETE "F1$TD$"":220,YE:221,YN:223,DF:DF1:961,0:387T3966YE4ĺ"PLEASE REMOVE THE WRITE-PROTECT TABFROM YOUR DISKETTE.":396SYE0YE16ĺ"DISK ERROR #"YE" IN LINE #"YN:394S"ERROR #"YE" IN LINE #"YN" IN PROGRAMBAR LINE.PLEASE REPORT THIS ERROR TO MECC."L$S150: TDM$"PLEASE CHECK9ĺ"THERE IS NO MORE ROOM TO STORE DATA ON THIS DISKETTE.TO STORE MORE DATA ON THIS DISKETTE, ASKYOUR TEACHER TO ERASE DATA YOU NO LONGERWANT, OR USE ANOTHER DISKETTE. SEE THE TEACHER'S MANUAL FOR MORE ";:398RYE8ĺ"DISK I/O ERROR.":395HS4,2774,139:0,140271,140:I022(GT3):61::I35:V(I):H(I):LL(I):ZZ$GT$(IO1):72::5:3:K$"LEGEND";:I011:6I:J03:L8(J0):ZZ$DT$(JO2,I):65:2J92(J0):ZZ$;:J,I;MOı<19:1:F$" "K$B$"MEAN"C$"MEDIAN"C$"ST. DEV.")J:L%(I,12)L%(I,12)1"3J,I:34NL%(I,12)15SW0:J0N1:P(I,L%(I,J))P(I,L%(I,J1))TL%(I,J):L%(I,J)L%(I,J1):L%(I,J1)T:SW16J:NN1:SW5378I1O23O2:52::9S41:P$;:7:0,139271,139:0,27271,27:73,2773,139:7EFS41:S30:18:J$"THERE IS NO DATA STORED ON THE DISKETTE.";:139:45U/LL044p0292:D(966):227:211I1O23O2:J012:L%(I,J)0:J:P(I,12)0:J011:ZZ$DT$(I,J):P(I,J)(ZZ$):P(I,12)P(I,12)P(I,J):5271ZZ$:ZZ$""512L%(I,L%(I,12)GT$(O1):L36:C32:41:1:3:K$ZA$;:;)ZX$""ZX$(C)W*4871,L:4872,C:4873:]+,57:19:M$F$"DO YOU WANT TO USE DATA STORED ON THE"M$"DISKETTE? ";:9:S3(ZA$"Y"):S346-18:M$F$;:21H.S40:SL1:MS$"SELECT A DATA NAME:":249:17,13:GT$(3O1)ZA$:TC135n!V:16:("- ",1(GT3),2);:ZA$GT$(4O1):ZE117,13:GT$(4O1)ZA$:TC235"V:29:("- ",1(GT3),2);:ZA$GT$(5O1):ZE117,13:GT$(5O1)ZA$#$21:M$F$;"DO YOU WANT TO CHANGE ANY LABELS? ";:9:&%ZX$3279,163:21:M$F$"WHAT IS THE TITLE OF YOUR GRAPH?";:ZA$GT$(0):ZL36:ZC$SP$:ZT3:24:3:11:GT$(0)ZA$:37:22:"TYPE NAMES OF UP TO THREE "TYPE$(GT)":":TC3:V24:ZE1:32:ZE0 ZE$NULL$:ZL7:V:3:("- ",1(GT3),2);:ZA$GT$(3O1):ZE1JX%(I):X%(I)X%(I1):X%(I1)J:S10:S24A1260:I14:DA720(X%(I)T):2I2:1:K$(64I)" -":I1Ē5(I2)(I3):4CN(I1)A:AADA:I:7:N4:222:3764,X01:3718:3764,X0:371830:21:M$F$;:31:36:ZA$"Y"2882q0,16+ GT(960):(961)Ĺ961,0:226:DC1:1593 43 S457:19:M$F$"DO YOU WANT HELP ENTERING LABELS FOR YOUR GRAPH? ";:9:HELPZA$"Y":HELPS40:23 S3173,91 221:T0:I14:X%(I)(1)1001:TTX%(I):$S0:I14:X%(I)X%(I1)= ZV(37)1:ZH(36):K$;:2049:ZA$ZA$"":(767)27153U 5271ZA$:ZX$""16~ ZZ$((767)):4608ZX$,ZZ$,ZP:ZX$"" 7: 11:ZZZE:ZE$NULL$:ZE1:2049:ZEZZ:ZA$ZA$"":7: ZU32:12:ZZZE:ZE$NULL$:ZE1:2049:ZEZZ:ZA$ZA$"":7:58$ AA128:A97A122AA323 ZA$(A):` A(16384):A1288:141:A1556:153 ZT0:ZU32:ZA$"":ZC$ESC$"YN":ZL1:12: K$;:VZY((ZZ$)2.5)1:ZZ1(ZZ$):VZZ:ZX:(ZZ$,ZZ,1);:: ZU0 ZE$"[ ]"ESC$ZX$:2747,ZUI010:T(I)T:TT10::V(0)1:V(1)3:V(2)3:V(3)5:V(4)5:V(5)5:H(0)3:H(1)2:H(2)20:H(3)13:H(4)22:H(5)31:L(0)36:L(1)12:L(2)12:L(3)7:L(4)7:L(5)7:19 IIAADA1:I%II:3584I%,X%,Y%:X0,Y0X0X%,Y0Y%:: A(16384):A1285:141:A15SC$(15),CN(15),X%(105),P(7,15),L%(7,12),T(10):NULL$(160)" "(160):SP$"!#$%&()'*:=-+;,./><][{}\|~`^@ "(34)ESC$:ZA$"":ST$" ":RT$(21):UA$(11)(10):AR$UA$(8)RT$:4876:4867CN$ O10:O20:970,0:232,0:233,12:0:1:7:T1:*= 2966145:X00:Y00:II0:I0:X%0:Y%0:A$(1):B$(2):C$(3):D$(4):E$(5):F$(6):I$(9):K$(11):L$(12):M$(13):N$(14):P$(16):S$(19):DM$M$M$:QT$(34):ESC$(27):TYPE$(3)"PIE CHARTS":J$M$F$S$ DT$(7,11),GT$(11),CN$(6),                   )69 MHK0DD(SC$(P2)):74AMIX087:X02(X02)X0X01IMJ:MKX$".":ST(DL,K)0:JO2KO2K42:LIJ2:I0L%(LI,15)1:4608DT$(J,L%(LI,I)),X$,X:X077MLL(DT$(J,L%(KI,I)))X:LST(DL,K)ST(DL,K)LMMI,J:-NNSS$("-",1(X0)):K)(Y0Y1)MM:Y3Y0ST(M,K)ST(MN,K)?LDP1:D0:JST(MN,K):LJLEKQK:142:SC$(PK8)ZA$:X(SC$(PK8)):PP1:JJST(IN,K):LJ:XDDXLF(D6)(ST(DL,K)0)71:D5ST(DL,K)ST(DL,K)(D5):ST(DL,K)066:ST(DL,K)0:66MGJST(MX,K)1T(ST(DL,K)E FIRST COLUMN."ZI$;:J0:138:ZN$;:139:138$J13:ZZ$("FIRST SECONDTHIRD",J65,5(J2)):19:J$"THE VALUES FOR THE "ZZ$" PIE"DM$"ARE SHOWN IN THIS COLUMN."ZI$;:138:ZN$;:139:138a%J:19:J$"THIS ENTRY MEANS 3.4 "K$"INCHES"L$" OF "K$"RAINFAL$"INCHES."DM$"(THIS IS NOT NEEDED ON A PIE GRAPH.)"ZI$;:I2:61:ZN$;:139:61:19:J$"THE NAMES OF THE THREE "TYPE$(GT)" ARE"DM$"SHOWN AT THE TOP OF THESE COLUMNS."ZI$;-$137:ZN$;:139:137:19:J$"THE LEGENDS FOR THE PIE SECTIONS ARE"DM$"SHOWN IN THN$N$:19:M$F$M$S$"THE TITLE OF THE GRAPH IS "K$"RAINFALL."ZI$;"I0:61:ZN$;:139:61:19:J$"THE HORIZONTAL AXIS IS LABELED "K$"MONTH."DM$"(THIS IS NOT NEEDED FOR A PIE GRAPH.)"ZI$;#I1:61:ZN$;:139:61:19:J$"THE VERTICAL AXIS IS LABELED "KP$;::O16:O24:I05:GT$(IO1)::I04:J03:DT$(JO2,I):J,I:ZMMO:MO0:GT3GT0:57:GT3:129q!57@"19:J$"THE DATA ENTERED ON THIS TABLE SHOWS"M$"RAINFALL IN INCHES DURING FIVE MONTHS"M$"OF THE YEARS 1960, 1970, AND 1980.":139:ZI$I$:Z%(I,12):XL%(I,12)2:X(X)P(I,14)(P(I,L%(I,X1))P(I,L%(I,X)))2:123b zP(I,14)P(I,L%(I,X)) {X0:MP(I,13):J0L%(I,12)1:XX(MP(I,L%(I,J)))(MP(I,L%(I,J)))::L%(I,12)2P(I,15)0: |P(I,15)(X(L%(I,12)1)) } ~I13:121::i!C,DR):IDC:MO0116:L%(I,12)152:121:JDC:627tyuI0L%(DC,12)1:L%(DC,I)DR118::"MESSED UP LINKS":139:vIL%(DC,12)1120wIIL%(DC,12)2:L%(DC,I)L%(DC,I1):xL%(DC,12)L%(DC,12)1:115I yL%(I,12)0125:P(I,13)P(I,12)LDCDC1:DC497:DC0:85An192MO:M$F$;:ZZ$"DATA":235:91xo18MO3:M$F$;:22:M$S$"GETTING GRAPH...";:159pZA$DT$(DC,DR):OL$ZA$ıq970,0:ZA$""117rOL$""L%(DC,L%(DC,12))DR:L%(DC,12)L%(DC,12)11sP(DC,12)P(DC,12)OLP(D,111,73,102,152,110 e127:92bfMOMO:18:M$F$;:MOĺM$S$"CALCULATING...";:56:126:59:92jg92hDRDR1:DR1297:DR0:DCDC1:DC497:DC0:85iDRDR1:DR097:73jDRDR1:DR1297:DR11:97kDCDC1:DC097:85lDR0m):ZH$ZX$:ZT2:ZC$".- ":ZE0:ZL7:DR6:2DC92(DC0):18:ZG$ZZ$:ZA$""ZZ$"":P(DC,DR)0:99bP(DC,DR)(ZA$):ZZ$ZA$cDT$(DC,DR)ZZ$:L7:DR6:29DC2(DC0):72:112:ZP0104d4608ZH$,ZG$,ZP:ZP105,106,107,108,105,106,107,109,101,143ZZ$"D"ZX$"=DOWN "ZZ$"L"ZX$"=LEFT "ZZ$"R"ZX$"=RIGHT "ZZ$"T"ZX$"=TITLES":ZZ$"?"ZX$"=HELP "ZZ$"S"ZX$"=SAVE "ZZ$"G"ZX$"=GRAPH "ZZ$"Q"ZX$"=MENU ";:(965)ĺZZ$"P"ZX$"=PRINT";`141caZA$DT$(DC,DR):OL$ZA$:OLP(DC,DR):ZX$AR$"UDLR?SGTMQ"("P",1,(965)087:73ZDRDR1:DR1287-[DC1:DR0m\S457:MOĢ18:M$F$M$13)S$"TYPE DATA IN THESE COLUMNS."]ZZ$A$"1"S$:ZX$A$"0":22:1:F$ZZ$"OPTIONS:"15)S$"M"ZX$"=";:MOĺ"DISPLAY STATISTICS":95^"ERASE STATISTICS"_ZZ$"U"ZX$"=UP " A LEGEND NAME, OR PRESS THE RIGHT"M$"ARROW KEY TO MOVE TO THE NEXT COLUMN.";WDR6:2:ZT3:ZL8:ZA$DT$(DC,DR):ZX$RT$"?"UA$:ZC$SP$:17:DT$(DC,DR)ZA$:ZG$ZZ$:ZZ$ZA$:L8:65:2:ZZ$;:ZG$RT$91XZG$"?"İ127:86 YZG$(11)DRDR1:DRZPI35:ZA$GT$(I):ZLL(I):V(I):H(I):ZX$"?":ZE0:ZC$SP$:ZT3:17:ZZ$"?"İ127:74QGT$(I)ZA$:LL(I):V(I):H(I):ZZ$ZA$:72::21:M$F$;:82RHELPS4MOİ59SS4İ57TDR0:DC0:DC0185,92UMOĢ18:M$F$;PV193MO:J$"TYPE? FOR HELP.)";:I04K20MO3:1:E$S$;:I176,77WL"TYPE YOUR GRAPH TITLE.";:78M"TYPE NAMES OF UP TO THREE "TYPE$(GT)".";:78NI80:ZA$GT$(I):ZLL(I):V(I):H(I):ZX$"?":ZE0:ZC$SP$:ZT3:17:ZZ$"?"İ127:74OGT$(I)ZA$:61:II1:75(X)1ZZ$(X):,D(X)5E7ZZ$"0":MEZZ$"0.":X0ZZ$"-0.":XXFXX10:X$("0123456789",X1,1):XX(X$):ZZ$ZZ$X$:((ZZ$)9)(X0)70GH65:33,(36)L1:ZZ$E$;:33,40:IS4İ57J183MO:M$F$;:22MO2:1:"(PRESS D$;:J13:62::V=ZX$GT$(IO1):LL(I):C3263(ZX$""):41:V(I):H(I):K$ZA$;:>I1315:I6:XP(JO2,I):L8:67:2J92(J0):63:I:?(ZZ$)LZZ$(ZZ$,L((ZZ$,L,1)"."))@72A5271ZZ$:ZZ$""ZX$"":C95:41:ZZ$ZA$BC$"0"PP$.415(PP$):I0PP$"1000"ĺ" ";Y4(PP$,(PP$)1)"."(PP$,1);:I0ĺ"%"_457:P$;:28,128:62454:R72:X0183:Y084:PI3.14:0,171279,171:ZLL:37:ZX$GT$(O12JO2):L8:C32:41:LZL:ZY161:ZX112:4352ZA$,ZX,ZY:3774,Y0:3764,X0.65(K)X016.5:YR.65(K)Y03:IIY1Y7:4:X1,IIX(ZA$)7,II:34352ZA$,X,Y:EFĢ17:M$"* INDICATES"M$"NEGATIVE VALUE.";3Y12ēX1,Y1X1,22:X11,Y1X11,2232053P4P(J,L%(J,I)):P40P40 4PP$((P4T1000.5)):(PP$)1PP"*":EF1h23I(1(L8)):1:K$ZA$"-"DT$(O2,L%(J,I));:216::DAA630:4:A630:NLZA$(64L):2112ZA$"Other":DA902122K(A(DA2)).01745332:X1X0(R2)(K):Y1Y0(R2)(K):XX1(ZA$)3.51.5:Y12:213I3K(A(DA2)).01745332:XR(K)X02.5:YR.6(K)Y03:ZA$(I65):IIY1Y7:4:X1,IIX7,II::4352ZA$,X,Y:3I(1(L8)):1:K$ZA$"-"DT$(O2,L%(J,I));:216:17:3764,X01:3718:3764,X0:3718:22211MI:EF0:IML1:ZA$"O":LNZA$(65I) 2P(J,L%(J,I))0ZA$CN(I)A:DA30NI1:EF1:202,0AADA:I0I%630:3584I%,X%,Y%:7:X0,Y0X0X%,Y0Y%:CN(N)630:I0N1:CI4(I4)4:CC(C6)(13C)(C5):I1N(C4C5)C70C:ACN(I):DAACN(I1):EFIN12071C44:K(A(DA2)).01745332:XR.6N:MXMNIN5:R10:R2TR1:R3MX:R4MN:R5IN:R6DL:R7TR:~/JX%(P):LL%(J,12):T0:I0L1:P(J,L%(J,I))0TTP(J,L%(J,I))/:T0Ģ19:J$"NO POSITIVE DATA TO GRAPH.";:139:19:J$;:2060221:A1350:NL:EF0:I0L1:DA(P(J,L%(J,I))720T.5):.MX0X0:191'.MN0X5:191G.DMX(MXMN):D.7X4:191Z.D.5X3:191m.D.3X2:191u.X1.X0EMXX:193.EMN5.X5FMN(5X):195.FMX5.GX:FEEF.XE:177:IN(X$):IN0INT(DL)9/MN(G5)I10:TC0:TR0:I1O23O2:LL%(I,12):L0183d-TCTC1:X%(TC)I:M0:K0L1:ML%(I,K)ML%(I,K){-:MM1:MTRTRM-P(I,L%(I,0))MNMNP(I,L%(I,0))-P(I,L%(I,L1))MXMXP(I,L%(I,L1))-I:MN0MN0-174:MNMN:MX0MN0X3:1913(D8))7:X02(X02)X0X01&,l,X$".":DL0:I0TR1:JO21O2TC1:4608DT$(J,I),X$,X:X0176,L(DT$(J,I))X:LDLDLL,J,I:,SS$("-",1(X0)):X$SS$(((X)T(DL)1)T(DL)):--S90:56:X1279:Y111:Y0131:MX1E10:MN1EGRAPH";+27);:240/+5:ZA$"C"İ57:92@+ZA$"Q"152k+(TC1)ĭZA$"N"PP1:PTC161:160+242:EFĢ22:M$F$;:ZZ$"GRAPH":235:162+165+8465:SC$(P)ZA$:X(SC$(P)):PP1:JJIN:LLINT(DL):XDDX+JMX170 ,X0(D":1:M$D$"RUN MENU OF 3,D1"-*178:TC0ı5*P1U*198:PP1:PTCİ139:157[*m*178:TC092u*P1~*198*ZA$A$"1"S$:ZZ$A$"0":22:M$ZA$"OPTIONS: C"ZZ$"=CHANGE DATA"27)ZA$"Q"ZZ$"=MENU":TC1164+10)ZA$"N"ZZ$"=NEXT PIE T0147:(CN$(X),4)ZA$151&)X:SR)1:M$:X$ZA$:D(966):229:DFİ57:91])970,1i)59:92)18:M$F$M$" THIS NAME HAS ALREADY BEEN USED.";:139:144)961,1:228:154)961,0*34,0:35,24:P$:12:S$"GETTING GRAPH MENU...ZA$"":ZL16:ZX$"":ZC$" "ESC$:ZT1:18:5271ZA$:(ZA$)0150l((ZA$)16146:ZA$ZA$(ST$,16(ZA$)))ZA$ZA$".DATA ":X$"":I130:X$X$(((ZA$,I,1))128)::ZA$X$:4876:5092,(966):S1511:4870,S:4864:X06:281:T255148:6,1.7,APRIL,3.5,6.9,2.1: MAY,3.1,2.3,1.6, JUNE,1.7,3.4,2.1: JULY,1.3,2.1,0.7'18:M$F$M$"DO YOU WANT TO STORE THIS INFORMATION"DM$"FOR FUTURE USE? ";:9:ZA$"N"150@(19:J$"WHAT NAME DO YOU WANT TO GIVE THE DATA"M$"ON THE DISKETTE?":23:12:35:V(I):H(I):LL(I):ZZ$GT$(IO1):72::_&I04:6I:2J9(J0)2:K$DT$(JO2,I);::&24:6:S$"PRESS "K$"SPACE BAR"L$" TO CONTINUE";:141&5:A32A13141:140&16368,0:P' RAINFALL,MONTH,INCHES,1960,1970,1980: MARCH,3.5,2.L"L$M$"IN THE "K$"MONTH"L$" OF "K$"JUNE"L$" IN 1970."D$;:9:22:ZI$"3.4"ZN$;:139:9:22:"3.4";%19:J$"DO YOU WANT TO SEE THE GRAPH"M$"OF THIS EXAMPLE? ";:9:ZA$"Y"Ģ19:M$F$M$"GETTING GRAPH...";:49:155:139%MOZM:O10:O20:57::,&IS ERROR TO "K$"MECC."L$"D/139:\D0DM$"PLEASE CHECK YOUR DISK DRIVE"DM$"AND DISKETTE."vD1139:1::864:DFĊ0|D2D3"INFORMATION.";:YE(220):YN(221):DF(223):309D41:M$D$"CLOSE"D5311D61:M$D$"DELETE "F1$ E7D$"":220,YE: MORE ";:3070C+YE8ĺ"DISK I/O ERROR.":304~C,YE4ĺ"PLEASE REMOVE THE WRITE-PROTECT TAB"M$"FROM YOUR DISKETTE.":305C-YE0YE16ĺ"DISK ERROR #"YE" IN LINE #"YN:303D."ERROR #"YE" IN LINE #"YN" IN PROGRAM"M$"PIE."DM$"PLEASE REPORT THIĺ"DISK ERROR. FILE NOT FOUND.":304 C*YE9ĺ"THERE IS NO MORE ROOM TO STORE DATA ON THIS DISKETTE."DM$"TO STORE MORE DATA ON THIS DISKETTE, ASKYOUR TEACHER TO ERASE DATA YOU NO LONGERWANT, OR USE ANOTHER DISKETTE. SEE THE TEACHER'S MANUAL FOR7!A!LX:QSSQ:4870,S:48641A"X1:I1L_A#XX1:281:T0291::X$(CN$(X),4,16):sA$LNTPLNB294A%X$SC$(LNTP1):295A&XLN:286A'X$X$".DATA":LNX%(LN):A(DF0:S40:YE(222):YN(218)(219)256:YE255Ĭ'B)P$DM$:YE60ĺSC$(P);:21:ST$;:/@ST$;:21:SC$(P);:G@T%X:5189T%:TT%:@4870,S:4864:X06:281:T255CN(S)CN(S)8:285@TCN(S)CN(S)1:ST15STST1:SC$(ST)(CN$(X),4,16)@X@@Q15@LCN(Q):L7LL8A LXQQ1:XXL:28LLLL1:279@?LL0X%(TPP1)200:FSTPP1:LSFS:LL1:279?X%(TPP1)200:X%(LS)TPP1:LSTPP1:LLLL1:LLSL279?LLLL1:IX%(FS):X%(FS)0:(FSTP)(FSB)278?3FSTP1:3:K$SC$(FSTP1);:21:ST$;?FSI@P3:3:X%(TPP1)BMX255:XB1:286:TPTP1:BB1:5150SC$:SC$(15)X$:19:M$;:267:255r> P3:3:E$;:X%(TPP1)0ĺSC$(P);:> 21:SC$(P);:> TPP1FSIX%(FS):X%(FS)0:FSI:273>IFS>RX%(I):RTPP1IR:271>X%(I)X%(R):X%(R)0:RLSLSI ?266:PP1:2554=A21ĴX%(TPP1)0255:274:255Y=A8ĴX%(TPP1)0255:269:255x=A13LNFS:34,0:35,24:=255=TP1255:XTP1:286:TPTP1:BMXBB1:265=BTP14BB1= 5111SC$:SC$(1)X$:P1BTP1:267::P1:255H> :A$1"<"A$0" = PUT DATA BACK"q<24:8:S$"PRESS "K$"RETURN"L$" WHEN FINISHED";:34,3:35,18:P1:BST:TP1:141<X%(TPP1)0X$SC$(P):257<X$ST$<P3:3:I$K$X$N$;:5:3:K$X$;:ZA$"U"A11ĴP1263:PP1:255=ZA$"D"A10ĴPTP1B2:CN(S)7MXMXCN(S)8:2528;MXMXCN(S):SS1:250N;EF0:MX0EF1:<P$:2:2:S$MS$:I1ST:3I:3:K$SC$(I)::0,147279,147:20:A$1S$"OPTIONS:":" U"A$0" = CURSOR UP";:22:A$1S$"D"A$0" = CURSOR DOWN":A$1" >"A$0" = SELECT DATA";:22 THE SIZE OF YOUR "ZZ$" PRINT-OUT: "10)A$1S$"S"A$0"= SMALL "A$1S$"L"A$0"= LARGE ";r:5:ZA$"S"ZA$"L"248{:246:964,12(ZA$"L")::4876:5092,(966):LL0:FS0:LS0:MX0:ST0:I014:CN(I)100::I0105:X%(I)0::S15;CN(S)0:28(PI$(3)):PI$(3);:231:22:M$F$;:h9ZA$PI$(I):ZE0:ZT3:ZL36(36):ZC$SP$:ZX$"":11:PI$(I)ZA$:|922:M$F$;:2319(965)0ĺ" ";:9S$A$"1P"A$"0=PRINT GRAPH";:9EF0:(965)0ı9ZA$"P"EF19V:22:J$"SELECTYOUR "ZZ$"? ";:9:ZA$"N"239822:J$"TYPE YOUR NAME: ";:I0:238:22:J$"TYPE YOUR CLASS NAME: ";:I1:238:22:J$"TYPE YOUR PROJECT NAME: ";:I2:238:22:J$"TYPE THE DATE: ";:I3:238#922:M$F$K$PI$(0);:40(PI$(1)):PI$(1):PI$(2);:408)2Ģ22:J$"YOUR PRINTER IS NOT TURNED ON AND READY.";:139:7SL(962):PT(963):SX(964):1:M$D$"PR#"SL::6,SL:7,SX:PT3ĺESC$"N":3840:ESC$"E":2347I$"GR"("D",1,(SX1))7L$M$D$"PR#0":6145:8245:22:J$"DO YOU WANT TO IDENTIFY :J011:DT$(I,J):J,I:D$"CLOSE":49:?6X$"TEMP.DATA":D16DF0:F1$X$:1:M$D$"OPEN "X$",D"D:DF230:D$"WRITE "X$:DF230:I05:QT$GT$(I)QT$:DF230::I03:J011:QT$DT$(I,J)QT$:DF230:J,I:D$"CLOSE"6D$(4):6145:>7768:(7686:3718:Q5II0N1:JCN(II):I%J:3584I%,X%,Y%:X1X0X%:Y1Y0Y%:X0,Y0X1,Y15JJ1:I%J:3584I%,X1%,Y1%:X%X1%Y%Y1%2235X0,Y0X0X1%,Y0Y1%::52255X$"TEMP.DATA":D1(61:M$D$"OPEN "X$",D"D:D$"READ "X$:I05:GT$(I)::I03IPI2:LN20054756:26I8IO25O2:II23āJ015:L%(I,J)0:J9L8:J014:ZZ$DT$(I,J):P(I,J)(ZZ$):5271ZZ$:ZZ$""60:K(I2):K2I60:DT$(K2,J)""60;L%(K3,J)1:L%(K,L%(K,15))J:L%(K,15)L%(K,15)1<J,I:=NL%(I,15)O, OR THREE DATA NAMES:":257:EFS41:S30:21:F$M$S$"THERE IS NO DATA STORED ON THE DISKETTE.";:131:50x4LL0495PI06S0:301:1:M$D$"OPEN "X$",D"(966):D$"READ "X$:GT$(PI2O13):IPIPI1:J014:DT$(IO2,J):J,I:970,1:D$"CLOSE":PGT$(2O1):L12:C32:11:ZZ$ZA$:15c.ZX$GT$(1O1):L12:C32:11:ZX105:ZY148:4352ZA$,ZX,ZY:i0169:21:M$F$"DO YOU WANT TO USE DATA STORED ON THE"M$"DISKETTE? ";:14:S3(ZA$"Y"):S351221:M$F$;:26k3S40:SL3:MS$"SELECT ONE, TWA$GT$(4O1):ZE122,18:GT$(4O1)ZA$:TC241m(V:27:K$"C - ";:ZA$GT$(5O1):ZE122,18:GT$(5O1)ZA$s)*21:M$F$;"DO YOU WANT TO CHANGE ANY LABELS? ";:14:+44:45:46,ZX$GT$(O1):L36:C32:11:1:3:K$ZA$;:$-ZX1:ZY10:ZX$YPE LABEL FOR THE VERTICAL AXIS (Y):":ZA$GT$(2):24:15:16:GT$(2)ZA$:45:%22:"TYPE NAMES OF UP TO THREE LINES:":TC3:V24:ZE1:38:ZE0&ZE$NULL$:ZL8:V:1:K$"A - ";:ZA$GT$(3O1):ZE122,18:GT$(3O1)ZA$:TC141/'V:14:K$"B - ";:ZY04::#0,163279,163:21:M$F$"WHAT IS THE TITLE OF YOUR GRAPH?":ZA$GT$(0):ZL36:ZC$SP$:ZT3:24:3:16:GT$(0)ZA$:44:N$21:M$F$"TYPE LABEL FOR THE HORIZONTAL AXIS (X):":ZA$GT$(1):ZL12:24:15:16:ZZ$ZA$:46:GT$(1)ZZ$:46:21:M$F$"T+35:36:21:M$F$;:37:42:ZA$"Y"317!69:89"P$;:28,128:62454:7:X1279:Y111:Y0131:X070:Y3Y0:XX01X01:X,Y12X,Y0::YY0Y02:X01,YX1,Y::YY0Y1(Y0Y1)5:X03,YX03,Y::XX0X1(X1X03)5:X,Y02X,Y04:X1,Y02X1,961,0:24348S469:21:M$F$"DO YOU WANT HELP ENTERING LABELS FOR YOUR GRAPH? ";:14:HELPZA$"Y":HELPS40:28S3175,9034:XX015:I16:Y(Y0Y1)(1)Y1:I130X,YX2,Y2:X1,YX21,Y2X2X:Y2Y:XX25(1)10:I):K$;:2049:ZA$ZA$"":(767)27153> 5271ZA$:ZX$""21g ZZ$((767)):4608ZX$,ZZ$,ZP:ZX$""p 7: 16:ZZZE:ZE$NULL$:ZE1:2049:ZEZZ:ZA$ZA$"":7: ZU32:17:ZZZE:ZE$NULL$:ZE1:2049:ZEZZ:ZA$ZA$"":7: GT(960):(961)Ĺ73:I I014:6I:J05:ZZ$DT$(JO2,I):L5:9:HT(J):ZZ$;:J,I:70x ZT0:ZU32:ZA$"":ZC$ESC$"YN":ZL1:17: K$;:VZY((ZZ$)2.5)1:ZZ1(ZZ$):VZZ:ZX:(ZZ$,ZZ,1);:: ZU0 ZE$"[ ]"ESC$ZX$:2747,ZU& ZV(37)1:ZH(3612:L(3)8:L(4)8:L(5)8:24C A(16384):A1285:133:A1558d AA128:A97A122AA32s ZA$(A): A(16384):A1288:133:A1556:153 5271ZZ$:ZZ$""ZX$"":C95:11:ZZ$ZA$ ZX$""ZX$(C) 4871,L:4872,C:48"":I15:LI$LI$(((X$,I,1))128): 232,0:233,12:0:1:7:T1:I010:T(I)T:TT10::V(0)1:V(1)3:V(2)3:V(3)5:V(4)5:V(5)5:H(0)3:H(1)4:H(2)27:H(3)4:H(4)17:H(5)30:HT(0)2:HT(1)8:HT(2)15:HT(3)21:HT(4)28:HT(5)34:L(0)36:L(1)12:L(2)1,14),L%(11,15),T(10),HT(5),ST(9,1),X(3),Y(3),B(14,7),FL$(2):NULL$(160)" "(160):SP$"!#$%&()'*:=-+;,./><][{}\|~`^@ "(34)ESC$:ZA$""( ST$" ":RT$(21):UA$(11)(10):AR$UA$(8)RT$:4876:4867CN$:O10:O20:970,0:X$".LINE":LI$A 3026145:A$(1):B$(2):C$(3):D$(4):E$(5):F$(6):I$(9):K$(11):L$(12):M$(13):N$(14):P$(16):S$(19):DM$M$M$:QT$(34):ESC$(27):TYPE$(4)"LINES":J$M$F$S$ DT$(11,14),PI$(3),GT$(11),CN$(6),SC$(16),CN(15),X%(105),P(1                !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""  221,YN:223,DF:DF1:961,0:296)E8305%JJJ42:I014:6I:HT(J):K$DT$(JO2,I);:I,J:r%24:6:S$"PRESS "K$"SPACE BAR"L$" TO CONTINUE";:133%5:A32A13133:132%16368,0:q& EXERCISE,MINUTES,PULSE RATE,Kim,Lynn,Marion: 0,60.1,0,70.3,0,81.4,1,70.1,1,83.2,1,98.2: 2, SEE THE GRAPH"M$"OF THIS EXAMPLE? ";:14:ZA$"Y"Ģ22:M$F$M$"GETTING GRAPH...";:56:174:161:197:131$~MOZM:O10:O20:69::$ZY2183:ZX1:4352X$,ZX,ZY:ZYZY8:4352Z$,ZX,ZY:$V(I):H(I):LL(I):ZZ$GT$(IO1):74:$I35:71::8e table.":127#|J1:130:ZN$;:131:J1:130:20:M$F$;:X$"This entry means a PULSE RATE for LYNN":Z$"of 123.1 after 6.1 MINUTES.":127:13:HT(2):ZI$"6.1";:HT(3):"123.1"ZN$;:131:13:HT(2):"6.1";:HT(3):"123.1";l$}20:M$F$M$S$"DO YOU WANT TO the top of these tables.":127:129:ZN$;:131:129:20:M$F$I$;:X$"The X coordinates are shown in the":Z$"first columns of each table.":127#{J0:130:ZN$;:131:J0:130:20:M$F$ZI$;:X$"The Y coordinates are shown in the":Z$"second columns of thrizontal or X-axis will be ":Z$"labeled MINUTES.":127:I1:128:ZN$;:131:128:20:M$F$ZI$;:X$"The vertical or Y-axis will be":Z$"labeled PULSE RATE.":127:I2:128:ZN$;:131:128"z20:M$F$K$ZI$;:X$"The names of the three lines":Z$"are shown atO:MO0 x69:20:M$F$;:X$"The numbers in these tables are the":Z$"coordinates of points for three lines.":127:131:ZI$I$:ZN$N$:20:M$F$ZI$;:X$"The title of the graph will be":Z$"EXERCISE.":127:I0:71:ZN$;:131:71!y20:M$F$ZI$;:X$"The hoIL%(D2,15)2:L%(D2,I)L%(D2,I1):CqL%(D2,15)L%(D2,15)1:110zrII1:128:IDC(DC2)21:I1I:I$;:128:N$;:93sII1:128t115:136u115:160v115:75 wP$;::O16:O26:I05:GT$(IO1)::I014:J05:DT$(JO2,I):J,I:ZMM970,0:KD22:KK(KDC):ZA$""110ylOL$""ĴDT$(K,DR)""109:L%(D23,DR)1:L%(D2,L%(D2,15))DR:L%(D2,15)L%(D2,15)1mnL%(D23,DR)0109:L%(D23,DR)0:I0L%(D2,15)1:L%(D2,I)DR111::"MESSED UP LINKS":131:oIL%(D2,15)1113$pI119:90&bDC2(DC2)DCDC1:114FcDRDR1:DR15DCDC1:114Od104ieDRDR1:DR093:75fDRDR1:DR1593:DR14:93gDCDC1:DC0114:DC0:114hDR0iDCDC1:DC6114:DC0:114j115:21:M$F$;:ZZ$"DATA":248:90#k):ZG$ZZ$:ZA$""ZZ$"":P(DC,DR)0:95C^P(DC,DR)(ZA$):ZZ$ZA$_DT$(DC,DR)ZZ$:L5:DR6:HT(DC):74:HT((DC2)21)1:"|";:ZA$DT$(DC,DR):ZA$OL$107:ZP098`4608ZH$,ZG$,ZP:ZP101,102,103,104,101,102,103,105,97,116,117,118,152,106a?"ZX$"=HELP "ZZ$"S"ZX$"=SAVE "ZZ$"G"ZX$"=GRAPH "ZZ$"Q"ZX$"=MENU ";:(965)ĺZZ$"P"ZX$"=PRINT";x\133:D2(DC2):114']ZA$DT$(DC,DR):OL$ZA$:OLP(DC,DR):ZX$AR$"UDLR?SGTQ"("P",1,(965)):ZH$ZX$:ZT2:ZC$".- ":ZE0:ZL5:DR6:HT(DC):23:D2(DC2?":ZE0:ZC$SP$:ZT3:22:ZZ$"?"İ119:76JXGT$(I)ZA$:71::21:M$F$;]YDC0:DR0:I12ZS469:22:1:F$A$1S$"OPTIONS:":ZZ$A$"1"S$:ZX$A$"0":ZZ$"U"ZX$"=UP "ZZ$"D"ZX$"=DOWN "ZZ$"L"ZX$"=LEFT "ZZ$"R"ZX$"=RIGHT "ZZ$"T"ZX$"=TITLES"_Z$" NAMES OF UP TO THREE "TYPE$(GT)".";0RI387SZA$GT$(I):ZLL(I):V(I):H(I):ZX$"?":ZE0:ZC$SP$:ZT3:22:ZZ$"?"İ119:76TGT$(I)ZA$:I0LL(I):V(I):H(I):ZZ$ZA$:74:86U71VII1:77*WI35:ZA$GT$(I):ZLL(I):V(I):H(I):ZX$"J9:33,(36)L1:K$ZZ$E$;:33,40:2KS4İ69eL21:M$F$;:24:1:"(PRESS ? FOR HELP.)";:I0M22:1:E$S$;:I178,79,80,81N"TYPE YOUR GRAPH TITLE.";:82O"TYPE YOUR X-AXIS LABEL.";:82P"TYPE YOUR Y-AXIS LABEL.";:82$Q"TYPE71:I35:71::3:1:K$"X:";:24:"Y:";:IO11O12:V(IO1):H(IO1):LL(IO1):ZZ$GT$(I):74::13F7:45,4345,160:136,43136,160:227,43227,160:0,27279,27:0,28279,28:GZX$GT$(IO1):LL(I):C3263(ZX$""):11:V(I):H(I):K$ZA$;:%1:KI2:>SW0:J0N1:P(K,L%(I,J))P(K,L%(I,J1))65?P(K,L%(I,J))P(K,L%(I,J1))ĭP(K1,L%(I,J))P(K1,L%(I,J1))65@66ATL%(I,J):L%(I,J)L%(I,J1):L%(I,J1)T:SW1BJ:NN1:SW62CDIO222O22:61::hES41:P$;:I0:1:204 5X4X02208:X5X02B5238:X4X5:Y4Y5:EF213:209X5X4X1X5X1:207p5Y4Y01211:Y5Y05240:X4X5:Y4Y5:EF213:2125Y4Y1Y5Y1:2105EF0:X,YX4,Y4:X1,YX41,Y455X4X(LI1)X(LI1)X4:Y(LI1)Y4:216#68l47(LI1)(LI2):XX3P(J2,I)ST(M,0):YY3P(J21,I)ST(M,1):X2X:Y2Y:II0218:200:EF1214,2184XX02202:X5X024238:XX5:YY5:EF213:2034XX1X5X1:2014YY01205:Y5Y04240:XX5:YY5:EF213:2065YY1Y5Y73:ST(IN,K)(X$):ST(IN,K)0ST(IN,K)T(ST(DL,K))3ST(MN,K)(G5)ST(IN,K):ST(MX,K)ST(MN,K)ST(IN,K)5:I04:ST(I5,K)ST(I,K):I,K:3235:V21:ZE1:38:ZE0:LI0TC1:JX%(LI):X(LI1)0:Y(LI1)Y0:I1:II0L%(J,15)14II1:L%(J3,I)0190X0:190&2ST(MN,K)0X5:190X2DST(MX,K)(ST(MX,K)ST(MN,K)):D.7X4:190k2D.5X3:190~2D.3X2:1902X12X0EST(MX,K)X:1922EST(MN,K)52X5FST(MN,K)(5X):1942FST(MX,K)52GX:FEEF23XE:1)ST(MN,K)P(I,L%(LI,0))O1P(I,L%(LI,L1))ST(MX,K)ST(MX,K)P(I,L%(LI,L1))m1I:ST(MN,K)0ST(MN,K)0x1170:1K:TC0:I02:L%(IO22,15)0X%(TC)IO22:TCTC11:K01:ST(MN,K)ST(MN,K):ST(MX,K)0ST(MN,K)0X3:190 2ST(MX,K)8:Y111:Y0130:K01:ST(MX,K)1E10:ST(MN,K)1E10:IKO2KO242:LI(I2):LL%(LI,15):L01800K0178:J0L1:P(I,L%(LI,J))ST(MN,K)ST(MN,K)P(I,L%(LI,J))0P(I,L%(LI,J))ST(MX,K)ST(MX,K)P(I,L%(LI,J))0:1801P(I,L%(LI,0))ST(MN,KL,K)0:JO2KO2K42:LIJ2:I0L%(LI,15)1:4608DT$(J,L%(LI,I)),X$,X:X0172/L(DT$(J,L%(KI,I)))X:LST(DL,K)ST(DL,K)L/I,J:/SS$("-",1(X0)):X$SS$(((X)T(ST(DL,K))1)T(ST(DL,K))):b0MN0:MX1:IN2:DL3:M4:S90:68:X1240:JST(MN,K):LJT(ST(DL,K)):X$".".KQK:232:SC$(PK8)ZA$:X(SC$(PK8)):PP1:JJST(IN,K):LLST(IN,K)T(ST(DL,K)):XDDX.K0TSTSX.JST(MX,K)164.K0169.D5:X0(D3(D8))7:X02(X02)X0X01.:R/X$".":ST(D-6145:D$(4):P$;:a-157:12:"GETTING GRAPH..."M$D$"BRUN RNH.OBJ,D1":38272,"LINE GR"j-155-TS0:K101:MM(ST(MX,K)ST(MN,K)):K0ST(M,K)(X1X0)MM:X3X0ST(M,K)ST(MN,K):163-ST(M,K)(Y0Y1)MM:Y3Y0ST(M,K)ST(MN,K)$.P1:D1,D1"",I02:L%(I,15)0Ă:933,21:J$:159,DF0:X$"TEMP.DATA":F1$X$:1:M$D$"OPEN "X$",D1":DF158:D$"WRITE "X$:DF158:I05:QT$GT$(I)QT$::DF158:I05:J014:QT$DT$(I,J)QT$:DF158:J,I:I03:QT$PI$(I)QT$:DF158::D$"CLOSE "X$50:J,I:D$"CLOSE"!+II:970,1-+70:90G+D$(4):6145:69:89+FL$(II)"":20:M$F$M$" THIS NAME HAS ALREADY BEEN USED.";:131:139+961,1:157:154+961,0,34,0:35,24:P$:12:S$"GETTING GRAPH MENU...":1:M$D$"RUN MENU OF X:S7*II:21:J$"ANY CHANGES? ";:14:ZA$"Y"138_*II02:L%(II,15)0FL$(II)""148+1:M$:DF0:F1$FL$(II):D$"OPEN "FL$(II)",D"(966):DF150:D$"WRITE "FL$(II):DF150:QT$GT$(II3)QT$:DF150:III2II21:J014:QT$DT$(I,J)QT$:DF1(ZA$))4)ZA$ZA$".LINE ":ZA$FL$(II)145U)I02:IIIZA$FL$(I)151):FL$(II)ZA$:X$"":I130:X$X$(((ZA$,I,1))128)::ZA$X$:4876:5092,(966):S1511:4870,S:4864:X06:289:T255145:T0144:(CN$(X),4)ZA$151*9(II02:L%(II,15)0145(20:M$F$M$S$"WHAT NAME DO YOU WANT TO GIVE THE "("FIRST SECONDTHIRD",II61,6):23:"LINE?":24:12:ZA$FL$(II):ZL16:ZX$"":ZC$" "ESC$:ZT1:23:5271ZA$:(ZA$)0FL$(II)"":145)(ZA$)16141:ZA$ZA$(ST$,16.4,9.8,103.4,,,10.1,80.3,10.6,100.1,,,11.2,75.6,11.8,95.2,,,13.5,70.5,12.9,86.2,,,,,15.0,82.3'20:M$F$M$S$"DO YOU WANT TO STORE THIS INFORMATION"M$"FOR FUTURE USE? ";:14:ZA$"N"149(FL$(0)"":FL$(1)"":FL$(2)"":L%(0,15)L%(1,15)L%(2,15)01475.3,1.5,98.6,2.1,112.4,3.5,87.6,2.6,103.7,3.3,129.6: 4.5,98.2,3.8,129.4,4.4,141.5,5.0,107.1,4.7,139.6,5.0,161.5]' 6.1,94.3,5.0,143.4,5.8,149.8,7.5,86.5,6.1,123.1,6.6,128.6: 8.3,70.3,7.3,101.6,7.8,118.1,9.5,60.6,8.4,99.1,8.9,111.6: 10.1,60.3,9.2,86:T(X$):T0T255T255T:6E"T((X$,20,5)LI$):nE#4870,S:4864:X06:289:T255CN(S)CN(S)8:294E$TCN(S)CN(S)1:ST15STST1:SC$(ST)(CN$(X),4,16)E%XE&E'Q15E(LCN(Q):L7LL8E)LXQQ1:XXL:296F*LX:QSS287BDX%(TPP1)200:X%(LS)TPP1:LSTPP1:LLLL1:LLSL287tDLLLL1:IX%(FS):X%(FS)0:(FSTP)(FSB)286D3FSTP1:3:K$SC$(FSTP1);:21:ST$;DFSIDP3:3:X%(TPP1)0ĺSC$(P);:21:ST$;:D ST$;:21:SC$(P);:E!X$CN$(X);:275:2635CP3:3:E$;:X%(TPP1)0ĺSC$(P);:HC21:SC$(P);:sCTPP1FSIX%(FS):X%(FS)0:FSI:281|CIFSCRX%(I):RTPP1IR:279CX%(I)X%(R):X%(R)0:RLSLSICLLLL1:287DLL0X%(TPP1)200:FSTPP1:LSFS:LL1:ĴX%(TPP1)0263:277:263;B A13LNFS:34,0:35,24:DB263wBTP1263:XTP1:295:TPTP1:BMXBB1:273BBTP14BB1B5111SC$:SC$(1)X$:P1BTP1:275::P1:263 CBMX263:XB1:295:TPTP1:BB1:5150SC$:SC$(15)X$:19:M$"L$" WHEN FINISHED";:34,3:35,18:P1:BST:TP1:133UAX%(TPP1)0X$SC$(P):265`AX$ST$A P3:3:I$K$X$N$;:5:3:K$X$;:ZA$"U"A11ĴP1271:PP1:263A ZA$"D"A10ĴPTP1B274:PP1:263A A21ĴX%(TPP1)0263:282:263B A8EF0:MX0EF1:@P$:2:2:S$MS$:I1ST:3I:3:K$SC$(I)::0,147279,147:20:A$1S$"OPTIONS:":" U"A$0" = CURSOR UP";:22:A$1S$"D"A$0" = CURSOR DOWN":A$1" >"A$0" = SELECT DATA";:22:A$1"<"A$0" = PUT DATA BACK"4A24:6:S$"PRESS "K$"RETURN "A$1S$"L"A$0"= LARGE ";5?5:ZA$"S"ZA$"L"256>?254W?964,12(ZA$"L"):?4876:5092,(966):LL0:FS0:LS0:MX0:ST0:I014:CN(I)100::I0105:X%(I)0::S15?CN(S)0:291:CN(S)7MXMXCN(S)8:260?MXMXCN(S):SS1:258@:M$F$K$PI$(0);:40(PI$(1)):PI$(1):PI$(2);:40(PI$(3)):PI$(3);:244:22:M$F$;:>ZA$PI$(I):ZE0:ZT3:ZL36(36):ZC$SP$:ZX$"":16:PI$(I)ZA$:>22:M$F$;:244?22:J$"SELECT THE SIZE OF YOUR "ZZ$" PRINT-OUT: "10)A$1S$"S"A$0"= SMALL ":6145:S=253:22:J$"DO YOU WANT TO IDENTIFY YOUR "ZZ$"? ";:14:ZA$"N"252=22:J$"TYPE YOUR NAME: ";:I0:251:22:J$"TYPE YOUR CLASS NAME: ";:I1:251:22:J$"TYPE YOUR PROJECT NAME: ";:I2:251:22:J$"TYPE THE DATE: ";:I3:251W>22):J,I:I03:PI$(I)::D$"CLOSE":56:S41:69:89<768:(76868)2Ģ22:J$"YOUR PRINTER IS NOT TURNED ON AND READY.";:131:<SL(962):PT(963):SX(964):1:M$D$"PR#"SL::6,SL:7,SX:PT3Č3840:247<I$"GR"("D",1,(SX1)) =L$M$D$"PR#0;(X5XX5X4)(X5XX5X4)EF1:I;EF0:Y5Y(X5X)(Y4Y)(X4X):o;(Y5YY5Y4)(Y5YY5Y4)EF1:;EF0:X5X(Y5Y)(X4X)(Y4Y):;2423<X$"TEMP.DATA":1:M$D$"OPEN "X$",D1":D$"READ "X$:I05:GT$(I)::I05:J014:DT$(O2I,JSC$(P))ST(M,1)2.5)2)2:4352SC$(P),X,Y:X03,Y3X03,Y3:PP1:J:S1((X1X0)((TS5)7)):P1:K1:JST(MN,0)ST(MX,0)ST(IN,0):XX3JST(M,0):X,Y02X,Y04:X1,Y02X1,Y04:X((X(SC$(P))3.51)2)2:YY07:4352SC$(P),X,Y:PP1:K3K:J:$9(ZA$,2)"-."ZA$"-0."(ZA$,3)*99P$;:28,128:62454:7:0,171279,171:(0ST(MN,1))(0ST(MX,1))ēX0,Y3X12,Y3^:XX01X01:X,Y12X,Y0::YY0Y02:X01,YX12,Y::43:P9:JST(MN,1)ST(MX,1)ST(IN,1):XX0(SC$(P))77:Y((Y3(:D8XX(I)X(J):YY(I)Y(J):(XXYY)10X%(I40)1:X%(J40)1J88ZA$((L)((L))T(ST(DL,KQ))):4608ZA$,X$,Y:Y0Y(ZA$):ST(DL,KQ)0ZA$ZA$".":YY18ZA$ZA$("00000000",1,ST(DL,KQ)(ZA$)Y):8230:(ZA$,1)"."ZA$"0"ZA$$)0XX(I):YY(I):ZA$(64I):22577X%(I40)12277C0:ZA$"":X0:Y0:J1TC:X%(J40)1ZA$ZA$(J64):X%(J40)1:XXX(J):YYY(J):CC17:XXC:YYC7X022774:IIX2X(ZA$)72:II,Y4II,Y5::XX3:YY3:4352ZA$,X,Y8X4X(LI1)ĭY4Y(LI1)Y(LI1)Y4K6XX(LI1)X(LI1)X:Y(LI1)Y:218o6XX(LI1)ĭYY(LI1)Y(LI1)Y6X4X2:Y4Y2:II:LI:I4143:X%(I)0::TC12216I1:J2:228:TC22216I1:J3:228:I2:J3:228"7X(0)0:Y(0)0:I1TC:X%(I40