' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`wsownw_opq?xg~xA?oOoy]_{??oogO{}qqpnpqan`{qq{wqq`}Oox>?|}?~?xp~@|_>?7{ox?s}|q_o~{o??oo~o@_~{~?g]{m?_}vw?~~~?~PO>zog>{k/{~{>}w>s}{}v?|>{o7ow[n_?Wwxo?~_|pn6|Xg]_cnw_opg?xw~xA?o/wu>o{{^o_k~s}wg?|{_ox<@}~??|_Oox?g}xG_o~{o??go?~o@|?p>{m?_}vw?ppx?X_~zoo>{k/?{~{>}w{>{}{}v?~>{o7owoW?O~ox_8onV;W[]_]nw_ox?|g?~xc?oox p|ao?lxg}sO{_qq~{nqan{`xq`o88`}~{8@|A{}{}x?~~gox?O}x~`~{o??|p{{@|~?~~1wvwg?o@q?|C>{m?_}~w?@~`?@_O~zog>{K/{~8|A{}?@}x??~>{o7_ow[oO?_  D$(4)+"WHAT IS THE FILE NAME";3A$LD$;"OPEN";A$;",L35"TU0\(C0d2P0p<I125F"ENTER WORD ";I;PW$ZD$;"WRITE";A$;",R";IdW$nUxCPD$ID$;"CLOSE";A$   16400D$(4)$I125+(A92B16400IB<B,AIFIhPD$;"BSAVE BDF,A16401,L25"Z 8,92,16,84,32,168,64,200,128,0,11,251d 72,181,3,99,255,54,247,108,231,216n 19,66,25x yxA?ooo}={{^o^k|sg~np{p{~`{{aq{wxO8oJV[_{]n]vox?>pp}xO?w>{m??X_{{@ww~_>?wvyx?o`}?__`_@_~{~?p_0G~~{>}{>;}{}v?]{o}_ow[g_?^wgog?wox?o@?~?x>{m?_9vs}xA?ooo}];?oogy{s~nnun{~n{{nn{w?~oxp67\_{]qcfoxG?G|}xz>{m??X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~??~wp`}xxs~xXcA|>[}{~?c>{o~_ow[k_?]wwoO?w{nsox|?xO>n?_}xw|xA?ooo}@?Wt?~Ox?x|}_o~{0@?OO|O@_~{~?k{m?_}vw?|x~0W]v[k6wmo.{~{>}w>k}{}v?y>x`ow[m_?[  D$(4)+"WHAT IS THE FILE NAME";3A$LD$;"OPEN";A$;",L20"XI125m("ENTER WORD ";Iu2W$<D$;"WRITE";A$;",R";IFW$PD$ZIdD$;"CLOSE";A$n I ̠ǍύŠƠҍō٠ΠŠҍ͍D$ I$ D$;"CLOSE NANDP050"* D,  D$(4))D$;"OPEN NANDP050,L50"R"HOW MANY PEOPLE ARE IN THE CLASS";Y(Pu2D$;"WRITE NANDP050,R0"|<PFD$PI1PZ"ENTER NAME ";I;dN$n"ENTER TELEPHONE ";I;xT$D$"WRITE NANDP050,R";IN$T$   D$! D$;"CLOSE SAMPLEC3P9"' DDWER IS ";A$4 x9:"WHAT IS THE NEW QUESTION ";:Q$h 12:"DO YOU WANT TO CHANGE THE ANSWER ";:958{ B$:B$(B$,1) B$"N"B$"Y"130 B$"N"ī180 15:"ENTER THE ANSWER ";:A$ D$;"WRITE SAMPLEC3P9,R";P Q$ B$"Y"ĺA$(  :D$(4)6D$;"OPEN SAMPLEC3P9,L20,D1"t(3:"WHICH PROBLEM DO YOU WANT TO":"CHANGE (1-3)";:958|2P$<(P$)1(P$)340FP((P$)1)21PD$;"READ SAMPLEC3P9,R";PZQ$,A$dD$ n6:"THE PROBLEM IS ";Q$:"THE ANS    D$(4))D$;"OPEN PRIMES004,L4"FD$;"WRITE PRIMES004,R1"M(2U2D$]<X3eFY2rPI2X1ZXI(XI)160dInD$;"WRITE PRIMES004,R"YxXD$Y25180YY1XX180D$;"CLOSE PRIMES004"  A9" nX120, xA$(X);",";A(X);",";B(X)3 XN D$;"CLOSE SAMPLEC2A9"T S LVA$(20),A(20),B(20)% D$(4)?D$;"OPEN SAMPLEC2A9"YD$;"READ SAMPLEC2A9"e(X120z2A$(X),A(X),B(X)<A$(X)"BENJAMIN MORE"A$(X)"BENJAMIN MOORE"FXPD$;"CLOSE SAMPLEC2A9"ZD$;"OPEN SAMPLEC2A9" dD$;"WRITE SAMPLEC2  D$(4)'D$;"OPEN SAMPLEC2A9"ID$;"POSITION SAMPLEC2A9,R10"c(D$;"READ SAMPLEC2A9"o2X110{<A$,A,BFA$,A,BPXZD$;"CLOSE SAMPLEC2A9"d  D$(4)(D$;"OPEN RFONE006,L6"\"ENTER A STRING WITH LESS THAN SIX CHARACTERS"d(S$t2(S$)630<"WHICH RECORD SHOULD THIS GO TO";FAPD$;"WRITE RFONE006,R";AZS$dD$nD$;"CLOSE RFONE006"xLŬ٠ҬĠάӠ٬٠άȬ׬ԮŮĬǮάŠά ȬƠӬ̠٬ΠȬΠŬҠŬΠ٬Ԡ٬ΠŬʮĬĠ NSWER"; xB$$ (B$,1)"N"160= "ENTER THE ANSWER";E A$d D$;"WRITE RFTHREE010,R";Pl Q$ (B$,1)"Y"ĺA$ D$ D$;"CLOSE RFTHREE010" L  D$(4)+D$;"OPEN RFTHREE010,L10"V"WHICH PROBLEM DO YOU WANT TO CHANGE"](P{2D$;"READ RFTHREE010,R";P<Q$,A$FD$P"PROBLEM IS ";Q$;" ANSWER IS ";A$Z"WHAT IS THE NEW QUESTION";dQ$ n"DO YOU WANT TO CHANGE THE A  D$(4)'D$;"OPEN SAMPLEC2A9"A(D$;"READ SAMPLEC2A9"M2X120Y<A$,A,BeFA$,A,BlPXZD$;"CLOSE SAMPLEC2A9"d C D  D$(4)%"STARTING PROGRAM"DD$;"OPEN RFONE006,L6"LSIT`(D$;"WRITE RFONE006,R1"k2"SIX"s<D$F"PRINTING NOW AT RECORD 3"PD$;"WRITE RFONE006,R3"Z"SEVEN"dD$n"FINISHED - CLOSING FILE"xD$;"CLOSE RFONE006"  ŠӍƠōˍō  D$(4)+D$;"OPEN RFTHREE010,L10"6I12H(J((1)3)1f2D$;"READ RFTHREE010,R";Jq<Q$,A$yFD$P"WHAT IS ";Q$;ZB$dB$A$ĺ"CORRECT"nB$A$ĺ"WRONG THE ANSWER IS ";A$xID$;"CLOSE RFTHREE010" D   D$(4)'D$;"OPEN SAMPLEC2A8"CD$;"APPEND SAMPLEC2A8"^#D$;"WRITE SAMPLEC2A8"f(A$n2A$<A$"SATURDAY"80F40PD$;"CLOSE SAMPLEC2A8"U SUNDAY,MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAYZ R  D$(4)(D$;"OPEN RFONE006,L6"0I1L(D$;"READ RFONE006,R";IT2A$\<D$dFA$nPII2zZI740dD$;"CLOSE RFONE006"n D ٍٍ ΠӍ̠΍͠΍Š΍٠΍Π΍ٍ͠٠ҍ OSE RFTHREE010"   D$(4)4"PROGRAM TO CREATE A RANDOM FILE"RD$;"OPEN RFTHREE010,L10"](I13h2A$,B$<D$;"WRITE RFTHREE010,R";IFA$PB$ZIdD$n "-10+8=","-2","1+2=","3","8+10=","18"x"THE FILE HAS BEEN CREATED" D$;"CL  "CLOSE SAMPLEC2A7" L  D$(4)'D$;"OPEN SAMPLEC2A7"AD$;"READ SAMPLEC2A7"L(X18W2A$(X)<A$(X)"JOHN LARSON"A$(X)"JOHN LARSEN"FXPD$;"CLOSE SAMPLEC2A7"ZD$;"OPEN SAMPLEC2A7"dD$;"WRITE SAMPLEC2A7"nX18xA$(X)X D$;  D$;"CLOSE RFTWO010" D  D$(4)/"PROGRAM TO CREATE RFTWO010"KD$;"OPEN RFTWO010,L10"y("ENTER WORDS OF LESS THAN 10 CHARACTERS"2I137<"ENTER WORD ";I;" ";FA$P(A$)960ZD$;"WRITE RFTWO010,R",IdA$nD$xI"DONE"   D$(4)'D$;"OPEN SAMPLEC2A5"HD$;"POSITION SAMPLEC2A5,R3"c(D$;"WRITE SAMPLEC2A5"k2A$s<A$FA$"CANDACE JAW"90P50ZD$;"CLOSE SAMPLEC2A5"d "JAMES ANDERSON","TERRI LAWRENCE","MARIE RUETER","CANDACE JAW"n L E006" L   D$(4))"STARTING THE PROGRAM"DD$;"OPEN RFONE006,L6"O(I15W2A$t<D$;"WRITE RFONE006,R";I|FA$PIZD$d "ONE","TWO","THREE","FOUR","FIVE"n"THE RANDOM FILE RFONE006 HAS BEEN "s"CREATED" xD$;"CLOSE RFON gxs_X_nfWO{]_>nwOo?~?o?x?ocO}{o_nn~{v{nn{{wn{O0?~}~{>}w{>{}{}v?_qwlw`\o<~`ox?a@}xx_o@n?p?8o{;?o{~_}~.wvsw?o@G?xx>{m?_mvw??`@?`@?W~v[k>w-w.{~?> x`\o_`wpg_X_nvW_{]_~nwoo|?o?x?o~_}?@{?|c@ooo}}`|a?l?~gO~n~{z{fn{{on{_ |~{>}{>{|{}v?_?|k{o;_ow[o_?>_ox? }xc_o>{m??X_{{?ww~_>wv{w?o@?x?~>{m?_UvuG_@X~nx1{~?G wpO_X_lfW_{_>fwooq?o      5:B$ 0CC1 :B$$ DCN640- N530W X:7);"PRESS SPACE BAR TO CONTINUE";_ bC$g lC0p v395 D$;"CLOSE";A$ :6: "YOUR FILE IS COMPLETE"  :"PRESS SPACE BAR TO CONTINUE"; A$:10  B$ CN430 D$$ 3507 D$;"CLOSE";A$@ 650S  LIST ROUTINEj :"NAME OF FILE";r A$ D$;"OPEN";A$  "HOW MANY FIELDS IN YOUR FILE"; N  10);"CONTENTS OF THE FILE" D$;"READ";A$ B$ &:1B$ D$ X& D$;"CLOSE";A$/ 440A  ADD ROUTINEX ":"NAME OF FILE";` ,A$r 6D$;"OPEN";A$ @D$"APPEND";A$ E J:"HOW MANY FIELDS WILL BE ADDED"; TN ^CC1 h:"ENTER ADDED VALUE #";C rB$ |D$;"WRITE";A$N dN140,280,460,700? n:"PLEASE TYPE IN A 1,2,3 OR 4."G x60\ CREATE ROUTINEt :"NAME YOU FILE";| A$ D$;"OPEN";A$ "HOW MANY FIELDS"; N X1N :"ENTER VALUE FOR FIELD #";X B$ D$;"WRITE";A$   :D$(4)C0N(10:"THIS PROGRAM WILL ALLOW YOU TO CREATE"~2:"ADD TO OR LIST A SEQUENTIAL DATA FILE."<::"WOULD YOU LIKE TO CREATE A FILE,ADD"F:"TO A FILE, OR END THE PROGRAM?"P:"1=CREATE 2=ADD 3=LIST 4=END"; Z    z #? ó! ô" Р Ϡ" ű Ӱ ų ó ó ó ó ó ó ó ó ó ó óó óó ò òòó ó ó ó" ò ò ò ò ò ò ò  Ԡ ò ò ò ò ò! ò ôд ôе ôж ôж ôз õб õв óзóиóйóйôбôвôг òбóбóв óг óд óе óж òзòиòйòй òб!òб"òбϠòбòвòгòдòеòж"; xL$. D$;"WRITE NAMES050,R";I;",B25"6 L$> D$E I^ D$;"CLOSE NAMES050"d Rf  D$(4))D$;"OPEN NAMES050,L50"C"HOW MANY STUDENTS";J(Sf*D$;"WRITE NAMES050,R0"m,Su.D$2I1S<"ENTER STUDENT ";I;" FIRST NAME";FF$PD$;"WRITE NAMES050,R";IZF$dD$ n"ENTER STUDENT ";I;" LAST NAME  2.8,21.1,43.7,182,0,76.5,57.181.1,18.8O 13.3,12.2,6.3,8.2,11.3,182.6,133.6n D$;"BSAVE BFR,A16401,L50" p 16400D$(4)*(I12512A<<AA10KF10:15:ISPLA[ZH0jdA256130ynH(A256)xL(A256(A256))256(16401(I1)2),H(16402(I1)2),LI 17.6,12.4,32,9.2,101.5,66.1,98.6,200,7.2& 1  D$(4))D$;"OPEN PRIMES004,L4"7I6186T(D$;"READ PRIMES004,R";I[2Pz<"THE ";I;"TH PRIME IS ";PFIPD$;"CLOSE PRIMES004"Z D NBIA"$ D$;"BSAVE SBF,A16401,L25"* D, 16400D$(4))(I1512A$@<J1(A$)QFB$(A$,J,1)]PB(B$)wZP16401(J1)(I1)5dP,BnJx(A$)5170J(A$)15P16401(J1)(I1)5P,32JI "ABC","XYZ","QWRTY","MPLS", "R  D$(4))D$;"OPEN NANDP050,L50"DD$;"READ NANDP050,R0"K(NS2D$^<I1NzFD$;"READ NANDP050,R";IPN$,T$ZD$d"STUDENT ";I,N$,T$nIxD$;"CLOSE NANDP050" L  16400D$(4)9(D$;"BLOAD BFR,A16401"G2I5255^<H(16401(I1)2)uFL(16402(I1)2)PNH256LZI,NdIn DU C P D$ I3 D$;"CLOSE";A$9 " L5:10:" "7 n"SPELL THE WORD";? xW$N W$S$170m "WRONG, THE WORD WAS ";S$~ K11500:K UU1 200 "CORRECT" K11500:K UU1 CC1 P(CU1000)10 D$;"WRITE";A$;",R";J S$ ;  D$(4)+"WHAT IS THE FILE NAME";3A$LD$;"OPEN";A$;",L35"r RANDOMLY GIVE 20 SPELLING WORDS~(I110-.P02J((1)251)<D$;"READ";A$;",R";JFS$,U,CKD$P15:10:S$;" "ZK11500:K d1  16400D$(4)9(D$;"BLOAD SBF,A16401"A2A2K<S$""VFI15pPP16401(A1)5(I1){ZQ(P)dS$S$(Q)nIxS$AA1A416060 D O ON"; '(1023)12353# (JJ0K )(16384)1281JJJJ1:JJ30041Y *1023,123_ +q 516368,0:10 6(16384)16054 8:16368,0 :(13);(4);"CATALOG" <dD1::D$(13)(4):16368,0:(1023)12310FD$;"BLOAD LOGO"h16297,0:16304,0:16302,0p 104:"PROGRAM DISKETTE FOR SAMPLE PROGRAMS"18:"FROM"::12:"FILES ON THE APPLE."#$ &24:9:"PRESS SPACE BAR TO G  D$(4))D$;"OPEN NAMES050,L50"DD$;"READ NAMES050,R0"K(NS2D$^<I1NFD$;"READ NAMES050,R";I;",B25"PL$ZD$d"STUDENT ";I;" LAST NAME ";L$nIxD$;"CLOSE NAMES050" ,161.6W 61.6,103.4,64.1,111,65.8,118.7,67.8,129.7,69.5,114.4,70.7,157.3,73.1,170.5 62.6,110.5,65.2,117.5,66.8,124.5,68.4,136.2,70.1,151.4,71.5,164.6,73.5,175.6  62.8,113,65.5,120,67,127.1,68.7,139,70.4,155.7,71.8,169,73.9,179 2,66.5,141.1,67.7,157.7g 59.4,93.9,61.5,102.8,62.6,110.4,64,119.1,65.4,129.6,66.7,143.3,67.8,159.5 59.4,94.5,61.5,103.5,62.6,111.2,64,119.9,65.4,130.8,66.7,114.5,67.8,160.7 59.7,91.3,62.1,99.4,63.9,108.2,66.1,120.1,68.1,135,69.6,147.8,71.6 (20000(I1)28(J1)2),HB (20000(I1)28(J1)21),LI JP Iw D$;"BSAVE SAMPLEC4P6,A20000,L120" 59.1,89,61.1,97.4,62.1,105.1,63.4,113.5,64.9,123.9,66.2,138.1,67.6,155.2 59.4,91.8,61.5,100.9,62.4,108.4,63.9,117,65.2,127. 20000D$(4))(I18g2I5Ģ10:"DATA FOR FEMALE AGE ";I14;" BEING ENTERED"" <I4Ģ10:"DATA FOR MALE AGE ";I10;" BEING ENTERED"FJ114PH0ZAdLA10nL256ī140xH(L256) L(L256(L256))256    u  D$(4)"D$;"OPEN FILE1"8D$;"WRITE FILE1"G("JANUARY"W2"FEBRUARY"m<D$;"CLOSE FILE1"sFdY$ (Y$,1)"Y"300 D$;"CLOSE RFTWO010"6 8  D$(4))D$;"OPEN RFTWO010,L10"T"WHICH RECORD DO YOU WANT TO CHANGE";[(R2"WHAT DO YOU WANT TO CHANGE IT TO"<C$F(C$)9ĺ"TOO LONG"P(C$)950ZD$;"WRITE RFTWO010,R"RdC$nD$x"ANY MORE TO CHANGE";   NxOzcmzoeRgp<)RgrP;Rg rXyGUm  A$(12),A(12)D$(4)m"ENTER A NAME AND NUMBER AFTER EACH QUESTION MARK SEPARATED BY A COMMA."(D$;"OPEN FILE2"2X112<A$(X),A(X)FD$;"WRITE FILE2"PA$(X)UA(X)XD$ZXdD$;"CLOSE FILE2"n IN$ D$;"WRITE";A$;",R";I& N$- U4 C; PN D$;"CLOSE";A$T  LV  D$(4)+"WHAT IS THE FILE NAME";3A$LD$;"OPEN";A$;",L35"TU0\(C0d2P0<"WHICH WORD DO YOU WANT TO CHANGE"FP$PI125ZD$;"READ";A$;",R";IdW$nP$W$130xID$"WHAT IS THE NEW WORD";  WITH"::"A HEIGHT OF ";H;" INCHES":230 :5:"I BELIEVE A ";S1$;" AGED ";A;" WITH"::"A HEIGHT OF ";H;" INCHES"::"SHOULD WEIGH ";W1;" TO ";W2;" POUNDS." A$:A(A$):A15A1860 AD20000A128 I17E HE(AD(I1)4)256(AD1(I1)4)R HEHE10} W2(AD2(I1)4)256(AD3(I1)4) W2W210 HHEW10210 HHE220 W1W2 I) :5:"SORRY, I DO NOT HAVE DATA FOR "::"A ";S1$;" AGED ";A;"+ <7:5:"ENTER YOUR AGE (15-18)";:958I FA$:A(A$):A15A1860y P11:5:"ENTER YOUR HEIGHT (INCHES)";:958 ZH$:H(H$):H0ī80 dD$;"BLOAD SAMPLEC4P6,A20000" nA1A15:S$"M"A1A14 sS1$"FEMALE":S$"M"S1$"MALE" xW10 20000D$(4)s :4:"THIS PROGRAM WILL DETERMINE THE"::"WEIGHT RANGE FOR PEOPLE AGED 15-18."#20:5:"ENTER A SPACE TO CONTINUE";:16368,0:A$:(3:5:"ENTER YOUR SEX (M OR F)";:958 2S$:S$(S$,1):S$"M"S$"F"ī40     D$(4)"D$;"OPEN FILE3"-X17`("TYPE IN THE NAME OF DAY ";X;" OF EACH WEEK."k2A$(X)<D$;"WRITE FILE3"FA$(X)PD$ZXdD$;"CLOSE FILE3"n ",B25" L$ D$? "DO YOU WANT TO MAKE MORE CHANGES";G A$[ (A$,1)"Y"60t "D$;"CLOSE NAMES050"z , LL$ D$, "STUDENT NAME ";F$;" ";L$M "DO YOU WANT TO CHANGE IT";U A$j (A$,1)"N"260 "INPUT FIRST AND LAST NAMES SEPARATED" "WITH A COMMA" F$,L$ D$;"WRITE NAMES050,R";R F$ D$ D$;"WRITE NAMES050,R";R;|  D$(4))D$;"OPEN NAMES050,L50"DD$;"READ NAMES050,R0"K(NS2D$}<"WHICH RECORD DO YOU WANT TO CHECK";FRPRNĺ"MAXIMUM RECORD USED IS ";NZRN60dD$;"READ NAMES050,R";RnF$xD$;"READ NAMES050,R";R;",B25"  ATEMENTS" L  D$(4)'D$;"OPEN STATEMENTS"P"HOW MANY COMMANDS WILL BE ENTERED"W(N2"ENTER A COMMAND AFTER EACH QUESTION MARK"<X1NFA$PD$;"WRITE STATEMENTS"ZA$_D$dXnD$;"CLOSE STATEMENTS"xD$ D$;"EXEC ST  p  D$(4)"D$;"OPEN FILE1"7D$;"READ FILE1"B(A$,B$J2A$R7B$h<D$;"CLOSE FILE1"nFdL  D$(4))D$;"OPEN PRIMES004,L4"FD$;"READ PRIMES004,R25"O(P25W2Y1a<XP25kFXX1xPI2X1ZXI(XI)70dInD$;"WRITE PRIMES004,R";Y25xXD$YY1Y1017070D$;"CLOSE" L  D$(4)(D$;"OPEN STATEMENTS1"DD$;"WRITE STATEMENTS1"L(A$T2A$e<A$"RUN"80mF40PD$;"CLOSE STATEMENTS1"ZD$;"EXEC STATEMENTS1"d "LOAD HT","LIST","RUN"n L  A$(12),A(12)D$(4)4D$;"OPEN FILE2"I(D$;"READ FILE2"U2X112e<A$(X),A(X)uFA$(X),A(X)|PXZD$;"CLOSE FILE2"d DD$;"WRITE";A$;",R0" N253 D$;"CLOSE";A$9 L;  D$(4)+"WHAT IS THE FILE NAME";3A$LD$;"OPEN";A$;",L35"l"HOW MANY WORDS WOULD YOU"#"LIKE TO ADD";(N2I26N25<"ENTER WORD ";I25;FW$PD$;"WRITE";A$;",R";IZW$d0n0x0D$I   U::10:5, "THIS IS THE PROGRAM:"2=15::G"HT"M(S2   D$(4)"D$;"OPEN FILE3"7D$;"READ FILE3"BX17Z("READ FIELD #";X1o2D$;"READ FILE3"w<A$FA$PXZD$;"CLOSE FILE3"d D D$ I+ D$;"WRITE NANDP050,R0"4 NAD D$;"CLOSE"J L  D$(4))D$;"OPEN NANDP050,L50"DD$;"READ NANDP050,R0"K(NS2D$q<"HOW MANY NAMES TO ADD";xFAPIN1NAZ"ENTER NAME ";IN;dN$n"ENTER ";N$;" S PHONE NUMBER";xT$D$;"WRITE NANDP050,R";IN$ T$   D$(4)'D$;"OPEN SAMPLEC2A1"BD$;"WRITE SAMPLEC2A1"J(A$R2A$d<A$"PEAR"90lF40P APPLE,ORANGE,BANANA,PEARZD$;"CLOSE SAMPLEC2A1"d L  D$;"CLOSE FILE30" "JANUARY","FEBRUARY","MARCH","APRIL","MAY", "JUNE","JULY","AUGUST","SEPTEMBER","OCTOBER","NOVEMBER","DECEMBER" D A$(12) D$(4)/D$;"OPEN FILE30"FD$;"WRITE FILE30"R(X112]2A$(X)h<A$(X)oFXPD$;"CLOSE FILE30"ZD$;"OPEN FILE30"dD$;"POSITION FILE30,R6"nD$;"READ FILE30"xA$A$A$"DECEMBER"160120 "   D$(4)*D$;"OPEN SCORES040,L40"E"ENTER STUDENT NAME";M(S$j2"ENTER STUDENT NUMBER";q<NFD$;"WRITE SCORES040,R";NPS$Z0d0nD$x"ANY MORE NAMES TO ADD";A$(A$,1)"Y"30 D$;"CLOSE SCORES040 d C D$(4)7 "HOW MANY EMPLOYEES WILL BE WRITTEN"K"ON THE FILE";RNmD$;"OPEN SAMPLEC2A2""ENTER ONE NAME AFTER EACH QUESTION MARK."2I1N<A$AD$;"WRITE SAMPLEC2A2"FA$KD$PIZD$;"CLOSE SAMPLEC2A2"    D$(4)#D$;"OPEN FILE30"9D$;"READ FILE30"A(A$I-A$S2CC1_<C380gF40PD$;"POSITION FILE30,R6"ZD$;"READ FILE30"dC0nA$sA$xCC1C3150110D$;"CLOSE FILE30"D"WRITE SCORES040,R";N S$$ S+ T3 D$R "ANY MORE SCORES TO ADD";Z W$n (W$,1)"Y"30 D$;"CLOSE SCORED040"    D$(4)*D$;"OPEN SCORES040,L40"F"ENTER STUDENT NUMBER"M(Nj2D$;"READ SCORES040,R";Nv<S$,S,T~FD$P"STUDENT ";S$Z"TOTAL SCORE = ";S;" TOTAL TESTS = ";Td"WHAT IS NEW TEST SCORE";nAxSSATT1 D$;   D$(4)'D$;"OPEN SAMPLEC2A3"AD$;"READ SAMPLEC2A3"L(X14W2A$,B$b<A$,B$iFXPD$;"CLOSE SAMPLEC2A3"Z D$;"CLOSE SAMPLE20" N  D$(4)%D$;"OPEN SAMPLE20"=D$;"READ SAMPLE20"I(X110T2A$(X)[<XgFX110PA$(X)"JOHN DOE"A$(X)"JANE DOE"ZXdD$;"CLOSE SAMPLE20"nD$;"OPEN SAMPLE20"xD$;"WRITE SAMPLE20"X110A$(X)X  040" DEST SCORE"; nA xSSA( }TPTPA2 TT1> TTTTT\ D$;"WRITE SCORES040,R";Nd S$k Sr Tz D$ "ANY MORE SCORES TO ADD"; W$ (W$,1)"Y"30 D$;"WRITE SCORES040,R0" TP TT D$ D$;"CLOSE SCORED   D$(4)*D$;"OPEN SCORES040,L40"FD$;"READ SCORES040,R0"QTP,TTYD$u"ENTER STUDENT NUMBER"|(N2D$;"READ SCORES040,R";N<S$,S,TFD$P"STUDENT ";S$Z"TOTAL SCORE = ";S;" TOTAL TESTS = ";T d"WHAT IS NEW T  ȠōԮ̍Ƞˍ Π΍Šō̠ӍŠ΍Πō͠ÍȍĠӍ͠ύΠӍ= ";S* "TOTAL TEST = ";T;" AVE = ";STN "TOTAL CLASS AVERAGE = ";TPTT^ D$;"CLOSE"d f  D$(4)*D$;"OPEN SCORES040,L40"FD$;"READ SCORES040,R0"Q(TP,TTY2D$r<"ENTER YOU NUMBER";yFNPD$;"READ SCORES040,R";NZS$,S,TdD$n"WHAT IS YOUR NAME";xN$N$S$170 "DATA FOR ";N$;" TOTAL POINTS  D$(4)9"HOW MANY EMPLOYEES WILL BE READ FROM"J"THE FILE";QNk(D$;"OPEN SAMPLEC2A2"2D$;"READ SAMPLEC2A2"<X1NFA$PA$ZXdD$;"CLOSE SAMPLEC2A2"n  D$(4)"D$;"OPEN FILE1"9D$;"APPEND FILE1"O#D$;"WRITE FILE1"W(A$_2A$u<A$"DECEMBER"80}F40PD$;"CLOSE FILE1"Z MARCH,APRIL,MAY,JUNE,JULY,AUGUSTd SEPTEMBER,OCTOBER,NOVEMBER,DECEMBERnD  17500D$(4)8("ENTER FILE NAME";F$U2D$;"BLOAD";F$;",A17501"p<"ENTER ITEM NUMBER";AFN(17501(A1)2)256(17502(A1)2)PNZ60d D!  D$(4)'D$;"OPEN SAMPLEC2A5"HD$;"POSITION SAMPLEC2A5,R4"b#D$;"READ SAMPLEC2A5"j(A$r2A$<A$"CARRIE HEIN"80F40PD$;"CLOSE SAMPLEC2A5"Z D! "DLD$ CF170 1100 D$;"CLOSE SAMPLE6"9 290P D$;"OPEN SAMPLE6"v "HOW MANY FIELDS WILL BE ADDED";} B A$ DD1 D$;"APPEND SAMPLE6" D$;"WRITE SAMPLE6" A$ D$ DB280 220 D$;"CLOSE SAMPLE6"  D$(4)M"ARE YOU CREATING OR ADDING TO A FILE. 1=CREATE, 2=ADD"TN`(N180m2N2190<"PLEASE TYPE IN 1 OR 2"F30PD$;"OPEN SAMPLE6"Z"HOW MANY FIELDS";dFnA$xCC1D$;"WRITE SAMPLE6"A$ !! ! ]D2|@\H;+z?Rq"8" ٠ӍĠҍ٠΍Πč٠΍͠΍Š΍"  D$(4)#D$;"OPEN FILE36":D$;"WRITE FILE36"L("JOHN,JONES"^2"TOM,LARSON"u<D$;"CLOSE FILE36"FD$;"OPEN FILE36"PD$;"READ FILE36"ZA$,B$dB$nB$"LARSON"130x90D$;"CLOSE FILE36"D"