L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`宠ЯӠ䮍ɠɠɠŮנàŠ箍ɠɠɠɠ𮠠묠𭭭墬嬠㮠àР堢嬠󿬠宠ЯӠ䮍ɠɠɠŮנàŠ箍ɠɠɠɠ󮠠蠠箠宠󮠍箠𮠠묠𭭭墬嬠㮠àР堢嬠󿬠󮍠嬠󠠠󮠠堠宠蠨䬠婠硠ЮŮҠٍٍҍҍ׍ҍ׍ҍÍ׍ұ̍̍""SACRAMENTO, CALIFORNIA 95821"2 -X12000:XF 2:D$;"BRUN EZ"c d COLLECTED BY TED PERRYESKM6ccc,a(ӠĠ٠Π) ca(Π)QӠŮ(]ԧ((Q'`'`.?6@r$B'j'd6?eM6['d6?eK_j' '\'o "'P a(ŠĠ)Qi']ΠϠŠŠƠΠϠҠŠƠӠ٠G (]ԠĮǮҠ_` d6?eK['Q'M6oa()'ca(Ҡ)$'c!.'cca(Ӡ̠͠)/8'a(ӠƠҠŠӭӭé) B'oa(ӠçϠ)(L'a(ӠŠҠϠŮ)V'`.?6@r$8rP8r bGY$UVW .f8lm'nBY Lco.Va(ҠкȠŠҠϠ)``.?6@r$jq2?rftUVW'~i!j'k"oP$a()GP% bY̨)F Ӱ@p()`.?6?r%Ӱ@p() ӱ@p()`.?6?r%ӱ@p()o a(װӠ)EӰ@GPa(ױӠ)Eӱ@`.?6@r$,"_d ,d6?e6o@a(ԠŠ)J_'L M6UVWo2M6\'NӰ@"rCӱ@"r \ 2M6"<oa(ŠĠȠ)"Foa(ȠŠҠϠ)dq2?rUVW Ynq2?rUVW YoP a()GPa(̨)FGPa()GPa(  d6?eM6cc[9d6?eKM6o P a(ŠĠ)QA]٠٠׮ΠҠŠҧӠŮ\]ΠϠŠŠƠΠϠҠŠƠӠ̠]H]Ԡτoa@E(Ӡ)H()H()q\r_7Qq`$*a()H()H()H()H()[&q.?%rd%e8rM6\_7-ca(ϠŠ٠Ӡ٠ٮ)%`.?6@r$`.?6@r$_Ϡؠة)a(Р)H(Ӡ)\ia@E(ؠ)H()H()jccIka(ҠؠؠϠҩ)a(Р)H(ؠ)\la@E()H()H()mccJna(ӮҠؠؠϠˠҩ)a(Р)H(ؠ)\I^a(ٮҠҠϠؠ٩)a(Р)H()\_a@E(٠)H()H() acccIca(Ҡؠ٠Ϡҩ)a(Р)H(٠)\da@E()H()H()g\Jha(خҠˠҠTa(ٮŠؠ٠Π٩)a(Р)H(٠)\LUa@E(٠)H()H()a@E(٬ؠ)H()H()a@E(٠)H()H() WcccIYa(خҠҠϠؠة)a(Р)H()\Za@E(ؠ)H()H()]\@E(ؠ)H()H()a@E(٠)H()H()a@E(ة)H()H()a@E(٩)H()H()Mcc?Oa(خŠؠؠΠ٩)a(Р)H(ؠ)\LPa@E(ؠ)H()H()a@E(جؠ)H()H()a@E(ؠ)H()H()S\?a(ɮԠԠŠө)a(Р)H()\Fa@E(ɠ)H()H()I\CJa(ŠҠΠ٩)a(Р)H()\OKa@E()H()H()a@E(ؠ)H()H()a@E()H()H()kLaت)a@E(èةű)H()H()a@E(è٩Ʊ)H()H()9cc8;a(îԠ٠ǩ)a(Р)H()\<a@E(à)H()H()?\;@a(ĮԠ̠ũ)a(Р)H()\Aa@E(ĠƸ)H()H() CcccFE)H()H()c5\L6a(îԠͮ͠ծȠ٩)a(Р)H(ͭà)\i7a@E(àŹ)H()H()a@E(àŵ)H()H()a@E(àؠƵ)H()H()a@E(à)H()H()n8a@E(àؠ)H()H()a@E(à٠ƹ)H()H(Ҡؠ)H()H()9.a@E(Ҡ)H()H()a@E(Ҡؠ)H()H()cD/a(ɮΠ͠ԩ)a(Р)H(͠)\0a@E(Ա)H()H()c?1a(ӮΠ͠ũ)a(Р)H(ë)\2a@E(Ӡ)a@E(̠)H()H()a@E(̠ؠ)H()H()9)a@E(̠)H()H()a@E(̠ؠ)H()H()c+\L,a(ҮŠŠԠԨͮҠî)a(Р)H(àà)\P-a@E(Ҡ)H()H()a@E(Ҡ)H()H()a@E()H()\a@E()H()H()!\A"a(Ю̠Ҡ͠˩)a(Р)H(Р)\#a@E(Р)H()H()%ccM'a(̮ŠŠԠԠͮҠî)a(Р)H(ͼ͠Ҡ)\P(a@E(̠)H()H(ȠҠΠ˩)a(Р)H()\a@E()H()H()\Fa(ЮȠҠӠΠ˩)a(Р)H(Р)\a@E(Р)H()H()ccCa(̠Ҡ͠˩)a(Рũ)a(Р)H(ͽ)\ia@E()H()H()a@E()H()H()a@E(ؠ)H()H()a@E()H()H()ma@E(ؠ)H()H()a@E(٠)H()H()a@E(ة)H()H()a@E(٩)H()H()ccAa(Р)a@E(Ҡ)H()H()a@E(Ҡؠ)H()H()9a@E(Ҡ)H()H()a@E(Ҡؠ)H()H()ccA a(ЮϠΩ)a(Р)H(ϠРө)\ a@E(Р)H()H() \Ba(Ҡ٠Ƞ(͠)\Pa@E(٠)H()H()a@E(٠)H()H()a@E(٠ؠ´)H()H()9a@E(٠)H()H()a@E(٠ؠ)H()H()c\Ha(ҮԠԠŠԠͮҠî)a(Р)H()\Pa@E(Ҡ)H()H(@a(خĠؠؠȠ٩)a(Р)H(͠)\Pa@E(ؠ)H()H()a@E(ؠ)H()H()a@E(ؠ٠¶)H()H()9a@E(ؠ)H()H()a@E(ؠ٠)H()H()cBa(ٮĠؠ٠Ƞ٩)a(Р)HȠ٩)a(Р)H(;)\ia@E()H()H()a@E()H()H()a@E(ؠµ)H()H()a@E()H()H()na@E(ؠ)H()H()a@E(٠¹)H()H()a@E(ة)H()H()a@E(٩±)H()H()\ЮРϠנΩ)a(Р)H(ë̬ë)\<a@E(Р)H()H()a(ԠР)H()H()\3a(ҮРϠ׬ǠΠө)\a@E(Ҡ)H()H()ccBa(ĠҠԳ)H()a@E(àؠ)H()H()ccBa(خԠؠؠ٠ũ)a(Р)H(ث)\a@E(ؠŸ)H()H()\Ba(ٮԠؠ٠٠ũ)a(Р)H(٫)\a@E(٠ø)H()H() cccNa(ʹ)na@E(Ҡؠ)H()H()a@E(Ҡ٠)H()H()a@E(Ҩة)H()H()a@E(Ҩ٩)H()H()\?a(îԠ٠٠ũ)a(Р)H(ͫ)\ia@E(àŶ)H()H()a@E(àؠƶ)H()H()a@E(à)H(Ԡؠ٠٠ũ)a(Р)H(٭)\a@E(٠)H()H()ccEa(ҮŭҠͮȠծ)a(Р)H(͠)\ia@E(Ҡ)H()H()a@E(Ҡ)H()H()a@E(Ҡؠ)H()H()a@E(Ҡ)H()H(͠)\ia@E(àö)H()H()a@E(àؠĶ)H()H()a@E(à)H()H()a@E(àؠ)H()H()ccGa(خԠؠؠ٠ũ)a(Р)H(ؠ)\a@E(ؠ)H()H()\Ba(ٮؠŴ)H()H()a@E(ؠ)H()H()ccEa(ٮŠ٠Ġؠ٩)a(Р)H(٠)\Oa@E(٠ð)H()H()a@E(٠ô)H()H()a@E(٠)H()H()\Da(îԠ٠٠ũ)a(Р)H()H()a@E(Р)H()H()na@E(Рؠ)H()H()a@E(Р٠Ĺ)H()H()a@E(Шةñ)H()H()a@E(Ш٩ı)H()H()\Ea(خŠ٠Ġؠة)a(Р)H(ؠ)\Oa@E(ؠŰ)H()H()a@E(б)H()\>a(֮Ҡנǩ)a(Р)H()\a@E(֠¸)H()H()cGa(ЮŠ٠Ġҩ)a(Р)H()\ia@E(Рù)H()H()a@E(Рõ)H()H()a@E(Рؠĵ)H(Р)H()\a@E(à)H()H()\=a(ĮҠ̠ũ)a(Р)H()\a@E(Ġĸ)H()H() cccFa(ɮҠԠŠԩ)a(Р)H()\a@E(ɠ)H(Ja(îȠΠנҩ)a(Р)H(ȠΠֽ)\a@E(à)H()H()\Ia(ӮȠΠנԩ)a(Р)H(ȠΠֽ)\a@E(Ӡ)H()H() ccc;a(îҠ٠ǩ)a(Ҏa@E(Šİ)H()H()ccGa(̮ȠΠԠө)a(Р)H(ȠΠν)\a@E(̠)H()H()\Ha(ˮŠ˩)a(Р)H(ĠԠë)\a@E(ˠ)H()H() cccͬͷά;)\5a@E(Ԡ)H()H()a@E(Ԡ)H()H()ccEa(ɮȠΠԠө)a(Р)H(Ƞν)\a@E(ɠ)H()H()\Ha(ŮȠΠԠԠϩ)a(Р)H(Ƞڽ)\ȠΠ٠ԩ)a(Р)H(Ƞý)\za@E(Ӡ°)H()H(){ccD}a(ѮȠΠԠϩ)a(Р)H(Ƞڽ)\a@E(Ѡư)H()H()\Oa(ԮԠӠΠ٠Ƞծ)a(Р)H(a@E(̠)H()H()a@E(̠)H()H()a@E(̠ؠ)H()H()6pa@E(̠)H()H()a@E(̠ؠ)H()H()qccDsa(îȠΠ٠ҩ)a(Р)H(Ƞý)\ua@E(à)H()H()w\Bxa(ӮH()H()6ka@E(Ġؠ)H()H()a@E(Ġ)H()H()mla@E(Ġؠ)H()H()a@E(Ġ٠)H()H()a@E(Ĩة)H()H()a@E(Ĩ٩)H()H()m\Ina(̮ԠԠŠԠͮҠî)a(Р)H(ü)\Ooa@E(à)H()H()nfa@E(àؠ)H()H()a@E(à٠)H()H()a@E(èة)H()H()a@E(è٩)H()H()h\Cia(ĮĠ٠Ƞҩ)a(Р)H(;)\7ja@E(Ġ)H()H()a@E(Ġ)VqM6_WqM6_'XqM6_;YqM6_YZq9M6_dIda(îĠ٠ϠծȠ٩)a(Р)H(ͫþ)\iea@E(à)H()H()a@E(à)H()H()a@E(àؠ)H()H()@9()$WJ`@9()$X`@9()$YK`@9()$Z`@9()%QLa(ԧӠŠҮ)c#Ma(٠ΠҠǧ̠Ġ) No_BPqM6_dQq M6_sRqM6_SqM6_TqM6_UqM6_̠Ҡɠ)\@a(ӠàĠɠؠ)a(Ԡؠ٠ؠӠ)a(ؠ̠ƠŠŮ)Acc)Ba(ŠŠҠή)GR@F`@9()$P`@9()$QG`@9()$R`@9()$SH`@9()$T`@9()$UI`@9()$V`à٠٠)N=ca(àĠ)a( àӠѠԠ)a(Š̠ˠà)_>a(ààĠɠ֠)a(ؠ)a(Ġàؠ٠)a(ɠàؠ٠Р)P?a(̠ؠ٠Ҡ)a(РР)a(ҠؤĬؠ٤ĬW5]ФĠڤϠŠؤϠŬ46]٤ϠŬ٠Ҥ7M6^q 8^qc8<a(àӠ)ca(Ϡؠ)@p(Ϡ٠)6^@p(Š)@p(Ŭ)@p(Ŭ)&^@p()@p(Š)42]äҠ63]ؤŬؠ٤ŬU4]ͤŠU)]ԠϠӠԠ) N@" rC@" rC@" rC@" r N@" rC@" rC@" r N@" rC@" rC@" r N@" rC@" rK^@p(Š)@p(Ġ)^@p(Ĭؠ)^@p(Ĭ٠)6^@p(ϠŠ)@p(                         NG RECORDED."-4D$;"OPEN STUDENT FILE,L";LO>D$;"WRITE STUDENT FILE,R";RN`H"T":N$:Z$pRD$;"CLOSE"v\P10);"YOUR ANSWER (A-";(64NA);:") ---> ";R$:R$(R$,1) R$"A"R$(64NA)ĺ:"PLEASE ANSWER WITH A SINGLE LETTER A-";(64NA):750 R$(X)R$ I Z$"" I1NQ:Z$Z$R$(I):I :10 *"PLEASE WAIT WHILE YOUR ANSWERS ARE"::"BEITION #";I: NX((1)NQ)1. XR(X)15909 bR(X)1N l(Q$(X))40700] vY3911w (Q$(X),Y,1)" "660~ Y (Q$(X),Y1) Q$(X)(Q$(X),(Q$(X))Y) 620 Q$(X)  J1NA :(64J);") ";A$(X,J) J9 :ORRY, ";N$;", BUT YOU":G "ARE NOT REGISTERED TO TAKE THIS TEST.":n "PLEASE CHECK WITH YOUR TEACHER."t  RNI:V$"N"550 :N$;", YOU HAVE ALREADY TAKEN" :"THIS TEST!!!"  &I1NQ 0 :(40(T$))2);T$ D:"QUESD$;"OPEN STUDENT FILE"2 TD$;"READ STUDENT FILE"> ^L$,NS$N hD$;"CLOSE"d rL(L$):NS(NS$) |D$;"OPEN STUDENT FILE,L";L I1NS D$;"READ STUDENT FILE,R";I V$,S$ S$N$ĺD$;"CLOSE":500 I D$;"CLOSE"  "I'M SEASE TYPE IN YOUR NAME.":( "---> ";2 N$""U X(16384):X128Y(1):280x "XX128:16368,0:X13ĺ:330 'X8(N$)1ĺ(8);(32);(8);:N$(N$,(N$)1):280 (X8N$"":(8);(32);(8);:280 ,(X); 6N$N$(X) @280 JwdnD$(4),xD$;"OPEN TEST FILE"ED$;"READ TEST FILE"UNQ$,NA$,T$mNQ(NQ$):NA(NA$)Q$(NQ),A$(NQ,NA),R(NQ),R$(NQ)I1NQQ$(I)J1NAA$(I,J)J,ID$;"CLOSE"(40(T$))2);T$5 "PL  1003180/ Q$(NQQ9),A$(NQQ9,NA),C$(NQQ9)B D$;"READ";NF$N I1NQY Q$(I)e J1NAr A$(I,J)y J C$(I) I D$;"CLOSE";NF$ Q90320 BNQ1:ENQQ9:NQNQQ9 160Z($ D$;"READ";NF$! NQ$,NA$9& NQ(NQ$):NA(NA$)?0 n: "YOUR QUIZ HAS ";NQ;" QUESTIONS IN IT.":vD D$N "DO YOU WANT TO ADD ANY QUESTIONS? ";R$X R$"Y"R$"YES"3180b 3200 l :"HOW MANY NEW QUESTIONS? ";Q9$:Q9(Q9$):Q90Q9: 4"CORRECT ANSWER: ";C$(I)&>, 8 D$(4)J D$;"CATALOG"z :"PLEASE TYPE THE NAME OF THE QUIZ YOU": "WANT TO RECALL. DO NOT INCLUDE THE": "SUFFIX '.QUIZ'.": "NAME OF QUIZ: ";NF$ NF$NF$".QUIZ" D$;"OPEN";NF:R$(R$,1):R$"Y"R$"N"ĺ"PLEASE ANSWER YES OR NO.":1200`R$"Y"ĺD$;"RUN MASTER MENU"fl PRINT OUT THE QUESTION ON SCREEN"QUESTION #";I:Q$(I):J1NA 5(64J);") ";A$(I,J): J*"WRITE";NF$#8NQ$(NQ):NA$(NA)1BNQ$:NA$=LI1NQHVQ$(I)T`J1NAajA$(I,J)htJs~C$(I)zID$;"CLOSE";NF$15:"YOUR FILE ";(NF$,(NF$)5);" HAS BEEN RECORDED."20>"DO YOU WANT TO RETURN TO THE MENU? ";R$)64NA)5102(C$(I))65((C$(I))64NA)510;360BXI_ DISK RECORDING ROUTINEyD$(4): CONTROL 'D'"NAME FOR QUIZ FILE? ";NF$NF$NF$".QUIZ"10:" RECORDING THE QUIZ --- PLEASE WAIT"$D$;"OPEN";NF$ .D$;36023:39):23:1]"WANT TO CHANGE THE CORRECT ANSWER? ";R$:R$(R$,1):R$"N"600r23:39):23:1"PLEASE TYPE IN THE CORRECT ANSWER(A-";(64NA);"): ";"";C$(I) (C$(I))1510 (C$(I))1510  (C$(I))65((C$(I)9):23:1E "WANT TO CHANGE AN ANSWER? ";R$:R$(R$,1):R$"N"495Z 23:39):23:1 "WHICH ANSWER (A-";(64NA);")? "; "";R$:(R$)65((R$)64NA)460 23:39):23:1 "PLEASE RETYPE ANSWER ";R$;". " "";A$(I,(R$)64)1NQ h2000 r23Q |"WANT TO CHANGE ANYTHING? ";R$:R$(R$,1):R$"N"600f 23:39):23:1 "WANT TO CHANGE THE QUESTION? ";R$:R$(R$,1):R$"N"440 23:39):23:1 "PLEASE RETYPE THE QUESTION:" "";Q$(I) 360 23:3"WHICH ANSWER (A-";(64NA);") IS CORRECT? ";= "";C$(I)R "(C$(I))1270x ,(C$(I))65((C$(I))64NA)270 6I @ J"WOULD YOU LIKE TO REVIEW? ";R$:R$(R$,1):R$"Y"R$"N"ĺ"PLEASE ANSWER YES OR NO.":330 TR$"N"1000 ^IEASE TYPE IN QUESTION #";I;".":. "";Q$(I)A Q$(I)""200 :"DO YOU WANT TO TERMINATE? (Y/N) ";R$:R$(R$,1):R$"Y"170 NQI1:NQ01200 320 : J1NA "ANSWER ";(64J);") "; "";A$(I,J) J :/  n13);"CREATING A QUIZ"8 x13);"-------- - ----"[ ::"HOW MANY QUESTIONS? ";NQ :"HOW MANY MULTIPLE CHOICE ANSWERS? ";NA: NA2ĺ"MUST HAVE AT LEAST 2 ANSWERS!":140 Q$(NQ),A$(NQ,NA),C$(NQ) B1:ENQ IBE "PL  ::255%15);"QUIZ MAKER";15)"---- -----"B5]"DO YOU WANT TO:"::4)"1) CREATE A NEW QUIZ, OR":#4)"2) EDIT AN EXISTING QUIZ?"::(" CHOICE (1-2): ";R$-R(R$):R1R2402R100,3000 d::255     UN PRINT" D$;"RUN TRANSFER"7 D$;"RUN EVALUATE"? :PICE (1-5) ";) R$:R(R$):R1R52105 19:33= R;M 2R6:6:Y L$(R);e 19:33k s C$ C$(13)400 C(C$):C1C5260 "2R6 ,6:L$(R); 6RC:215 :R410,420,430,440,450 D$"RUN CREATE" D$"RA ZD$(4)d::2551n14)"QUIZ MAKER"Hx14)"---- -----"a:14)"MASTER MENU"uI15:L$(I): CREATE A QUIZ,PRINT A QUIZ,TRANSFER A QUIZ,EVALUATE A QUIZ,EXITI152I6" ";I;" ";L$(I) ::20)"CHO  90  THIS PROGRAM ALLOWS@ THE OPERATOR TO COMMAND Z THE COMPUTER TO "SHUT UP!"!  A$(A$,1)"Z"ī4010(12210<A$FI1800:IP Z z#Xò   ̠Š ̠Š̠Š ȠΠҠՠŠ Ԡ ԠԠŠ ŠؠŠؠ ̠ӠŠҠ ͠Ԡ!ŠԠ"ŠԠϠԭŠ ŠԠɠ(ڠӮԮҮŠĠӠ Š֠e :936*"IUM ADULT"412< D$(13)(4)C5\"TEACHER UTILITIES":"EDUCATIONAL PROGRAMS FOR THE APPLE"15"COLLECTED AND DISTRIBUTED BY": :"APPLE FOR THE TEACHER & ABC SOFTWARE "!"2331 RAINBOW AVE"! ԍō gW'  `^ :F Y %^LǏLZ^[_\Z][`1''I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4      Ӎɍ׍Ҵҍҍٍԍ׍ԍٍҍҍҍƍōōōVENTIONS UPDATE. 2 'FORMAT-SUBROUTINE'; P A PROGRAM BY:i ROLAND GUSTAFSSON (415) 572-8429(N100.5)100:FR((N(N))100.5)100:TATA(((N))):(N)0TATA1e:TA);N;:FR0ĺ".00";{D((FR))2ĺ"0";Nb GIVEN TO APPLE CORE SAN FRANCISCO FOR USE OF MEMBERS,JULY 1979. v LAST MOD. AUG.1979 FOR CON":"SUBROUTINE WILL AUTOMATICALLY BE PUT"A,"IN YOUR PROGRAM."6::"TO SUMMARIZE, N=NUMBER TO PRINTED,":"TA=HORIZONTAL POSITION OF DECIMAL POINT"@"THEN 'GOSUB 62000', TO PRINT NUMBER"J22:"GOOD LUCK !!!";:"ERROR >>>":220J0N$"N"250 230& A$:A$"N"ė:0 400{ "OPEN FORMATTER":"WRITE FORMATTER":33,33:62000,62030::"CLOSE" :6:"TO USE THIS SUBROUTINE IN YOUR OWN":"PROGRAMS NOW, ALL THAT YOU WILL NEED")""TO DO IS TYPE 'EXEC FORMATTER', AND THE:"TA=HORIZONTAL LOCATION OF DECIMAL POINT" ::"FOR EXAMPLE: N=1.2:TA=10:":"GOSUB 62000 (FORMAT SUBROUTINE),":"PRODUCES THE FOLLOWING:" N1.2:TA10:62000 ::"WOULD YOU LIKE TO SAVE THE SUBROUTINE":"ON DISK ? (Y/N) "; A$:A$"Y"ARE LINED UP !!!": 24:"PRESS 'RETURN' TO CONTINUE...";R (16384)141150r :"HOW TO USE SUBROUTINE:" :"VARIABLES USED: 'N' AND 'TA'" :"N=NUMBER TO PRINTED (SUBROUTINE AUTO-":"MATICALLY ROUNDS OFF 'N' TO NEAREST":"HUNDRETH)", 6368,0::" BEFORE AFTER"S dA14:A;4);B(A);:NB(A):TA20:62000::A n::"IN EXAMPLES '1'-'3', ONE TRAILING ZERO":"IS ADDED ": x"IN EXAMPLE '4', TWO TRAILING ZEROS ARE":"ADDED" :"IN ALL THE EXAMPLES, THE DECIMAL POINTS":"AINTING OUT NUMBERS IN":"APPLESOFT, TRAILING ZEROS ARE TRUNCATED!" <"SOLUTION: USE A SUBROUTINE THAT APPENDS":"THOSE TRAILING ZEROS BACK ON." F:"INTRODUCING THAT SUBROUTINE !!!":24:"PRESS 'RETURN' TO CONTINUE..."; P(16384)14180" Z1# :::"FORMATTER SUBROUTINE"M B(1).5:B(2)313.1:B(3)5495.2:B(4)1k:"BY ROLAND GUSTAFSSON"10:"IF YOU ARE USING YOUR APPLE FOR BUSINESSAPPLICATIONS, THIS LITTLE SUBROUTINE"("SHOULD PROVE VERY VALUABLE."B 2:"PROBLEM: WHEN PR     E A DATA BASE ***5n :"DELETE WHICH : ";S$:S(S$)`x S1SJ1ĺ(7);:(37)1:868:2670 :(9):"READY TO DELETE "(34);R$(S);(34);".": "ONCE DELETED, THIS DATA CANNOT BE" "RECOVERED. ARE YOU SURE THAT YOU" "WANT TO DELETE ITSE"  " "WHICH ";S$:S(S$)2 SJ12660Y S1SJĺ(7);:(37):868:2540g DB$R$(S)v SJ1140| ( 26202 1013< J0J1F "NAME FOR NEW DATA BASE FILE :";R$(J)P NRJ:4280Z DB$R$(J1):1140d *** DELET :"RECORD NUMBER "DR" DELETED!":9 "MORE (Y/N) ";L$J L$"Y"2360e F$"INDEX":4280:4810 *** BASENAMEFILE ROUTINES ***  "SELECT FROM:": J1NR:J" "R$(J):J: J" CREATE A NEW DATA BASE" J1ĺJ1" DELETE A DATA BA "H$(0)": ";JI1NH4I" "H$(I)": "N$(Y,I);IAN LLNH2X 5310^ x$ ***DELETE RECORDS***~. 8 "ENTER RECORD NUMBER YOU WANT DELETED ";DR$:DR(DR$)B DR1DRNR2360L JDRNR1V R(J)R(J1)t J:NRNR1#~R"";S$:S(S$)&\S1SNH2130,fIp"FROM "H$(S)": "N$(Y,S)Ozp"TO "H$(S)": ";:"";N$(Y,S)|:2240" MORE CHANGES (Y/N) ";L$L$"Y"2080F$"INDEX":4280:4810***PRINT A RECORD***PF5230,5250", ESC FOR MENU";L$+(L$)274810?(L$)132064KL0::b ***CHANGE DATA****" ENTER THE NUMBER OF THE RECORD"4"YOU WANT TO CHANGE ";J$:J(J$):YR(J)>:2240H" ENTER THE NUMBER OF THE FIELD YOU WANT":"TO CHANGE ";2060 J("THAT'S ALL OF THEM. ";<"NOW YOU MAY:"V"1 DO MORE SEARCHES"l"2 MAKE CHANGES""3 RETURN TO THE MAIN MENU"" WHICH ";S$:S(S$)S1S32030S1800,2080,4810 PF02070:"PRESS RETURN TO CONTINUEMAY"::I" MAKE CHANGES""D;N"WHICH ";S$:S(S$)PXS0SNH11870abSNH12080glv"PLEASE ENTER THE "H$(S):"YOU WANT TO FIND....... ":"";Q$J1NR:YR(J)N$(Y,0)(J)(N$(Y,S),(Q$))Q$İ2240LNH20İ(NR,I)I$)I$"/"N$(NR,I)N$(NR1,I)0I6L"MORE (Y/N) ";L$]L$"N"1750g1640vF$"INDEX"42804810***SEARCH/CHANGE***L0"YOU MAY SEARCH BY ANY OF THE FOLLOWING:"&38800:"OR YOU RAGE RECORD SIZE ";R$(NR):(R$(NR))0R$(NR)(NR1)10G J4280:1160` T***ENTER RECORDS***f ^ h"THERE ARE "NR" RECORDS" r"IN THE "DB$" FILE" |NRNR1:R(NR)NR "YOU ARE ENTERING RECORD # "NR  I1NH H$(I)":";:4720:N$LY" " "WHICH ";L$:L(L$)7 :"SORTING ";:\ 1013:*** CREATE HEADERFILE ***e NR1 :"PRESS 'RETURN' TO EXIT TO MENU"  "HEADER FOR COLUMN NUMBER "NR": ";:"";R$(NR) "R$(NR)""NR201600 ,NRNR1 615607 @"AVEWANT TO SAVE THE "DB$" FILE":"SORTED BY "H$(S)" TO DISK ";:"Y/N) ?";L$:L$"Y"F$"INDEX":4280k 4810z MF1:3880 "ENTER # OF FIELD FOR SORT ";S$:S(S$):S1SNH1450 :"DO YOU WANT TO SORT:": "1 ALPHABETICALLY" "2 NUMERICALNM:J1:"SORTING ";:M0ĺ"DONE":- IJp LLIM:I2R(I):L2R(LL):L1290:(N$(I2,S))(N$(L2,S))1300z 1295 N$(I2,S)N$(L2,S)1300 YR(I):R(I)R(LL):R(LL)Y:IIM:I11270 JJ1:JK1250 1260 1440:1240a "":"ME":2610 `4110 j24705 tF$"HEADER":1520? ~4110Z I1NR:H$(I)R$(I):It NHNR1:NR0:MEM(0) B(MEM(3NH(H$(NH1)))) N$(B,NH),R(B) F$"INDEX":4830 4110 4810 *** SORT *** NNR:MN% M(M2):KР& 216,00MODIFIED BY GARY FOOTE 5/16/79B"MAXFILES1"UD$"":CTRL DjD$"NOMON,I,O,C"r:|5180$R$(65),AC(21),K(65),H$(21),RN$(21).Z$(21)8COMMA$"NO"BD$"":CTRL DLH$(0)"REC#" VDB$"":F$"BASENA               READ"DB$" "F$"FILE"&6NR'&@J1NR4&JFF4230@&TI1NHJ&^4720Y&hN$(J,I)I$`&rIk&wR(J)Ju&|4240&R$(J)&J&D$"CLOSE"&FF0&&*** SAVE FILES ***&F$"INDEX"FF1&D$"OPEN"DB$" "F$"FILE" 'D$"WRITE"DBRN$(S)R$(S):E1:NRNS:3810&%4100T%1013::"NO REPORT FORMATS ON DISK...":]%NN1%"DO YOU WANT TO CREATE ONE (Y/N) ?";L$:L$"Y"4810%3880:NRNS:3010%*** READ FILES ***%F$"INDEX"FF1%"D$"OPEN"DB$" "F$"FILE"&,D$"**&$nNN0:I021:RN$(I)"":I:NSNR:$xF$"RPTFMTNAME"E$4070O$4110k$I1NR:RN$(I)R$(I):I$:"SELECT FROM:":$I1NR:I" "R$(I):I:$I" CREATE A NEW REPORT FORMAT":$"WHICH ";S$:S(S$):S1SI4030$NNS%SIRH(NR3)3:I1NR:K(I)(R$(I)):IG# K(0)(R$(I3)):LL(R$(I1))Q#NRNSc#3880::3160y#(*** SUB MENU ***#2:"SELECT FROM:":#<MF0ĺ"0 "H$(0)#FI1NH:I" "H$(I):I:#PMF0#Z$d*** READ REPORTNAMEFILE & SELECT REPORT *FMTFILE ***"NSNRD":"ENTER THE REPORT FORMAT NAME ";RN$(NN)]"F$RN$(NN)" RPTFMT"k"NR3RH3"I1NR:R$(I)(K(I)):I"R$(I3)(K(0))"4280:4440""*** SET-UP TO READ RPTFMTFILE ***"F$RN$(NN)" RPTFMT""4110%#RN$(NN)" REPORT FOR "H$(S)":"Q$;1!.X$"@"3650N!8" AND "H$(X)":"X$:3660W!B" "c!LI1RH!V36,K(3I1):H$(K(3I2));![K(3I)XK(3I1)!`I!jK(0)0ĭXK(3I1)Ĺ36,K(3I1):"TOTAL";!t:!~L4: "*** SET-UP TO SAVE RPT2)); I RR1* K(0)2LL1:0 < N3I2f V(N$(Y,K(N))):AC(I)AC(I)V:HCHCVl :I139((PF1)39):"-";:I: I1RH AC(I)03580 36,K(3I1):AC(I); I GT0Ĺ36,K(3I1):GT; :  !$AT":"(Y/N) ";L$,\ L$"Y"İ3880:E1:29806f 4810k K(0)0ĭN$(Y,S)Z$Ĺ36,K(3I1):HC:GTGTHC:HC0:RR0:LL1:L18İ2060:3610m RR0ĭK(0)1ĺp I1RHu K(3I)İ3510:K(0)23470w K(0)2ĭRR03470 z 36,K(3I1):N$(Y,K(3I L0İ3610 JF K(0)0Ĺ36,K(3I1):HC:GTGTHC:HC0:3540L Y T93540c* 5310o4 E3410> :"DO YOU WANT TO SAVE THE FORMAT":"FOR THIS REPORT TO DISK (Y/N) ";L$H L$"Y"E1:3720R :"MORE REPORTS USING THE "RN$(NN)" FORM LL0LLL:1240 I PF5230,5250,5280:3610:Z$N$(R(1),S):RR0\ J1NR:YR(J)m N$(Y,0)(J)~ Q$"@"3320 (N$(Y,S),(Q$))Q$3330 X$"@"3320 (N$(Y,X),(X$))X$3330 3435:Z$N$(Y,S) PF1ĭL18İ2060:3610 S$)b (S$)0Q$"@":3230Wl :"'AND' 2ND HEADER (Y/N) ";L$:L$"Y"X$"@":3200v :"ENTER # OF 'AND' HEADER ";X$:X(X$) :"@ WILL SELECT ALL RECORDS." :"SELECT RECORDS FOR "H$(S)"= ";:"";Q$: L$"Y"ĺ"AND "H$(X)"= ";:"";X$K(0)0:T91:3143LD K(I1)(A$):K(I1)0K(I1)131ĺ"":(37)1:3120G "DO YOU WANT A SUMMARY REPORT?";S$:S$"Y"K(0)2K LL0:"DO YOU WANT THIS REPORT SORTED? ";S$:S$"Y"LL1:K(I2)1N X "SELECT RECORDS BY WHICH HEADER # ";S$:S(K(I)(K$)# K(I)0K(I)NH3040Y "ENTER TAB FOR "H$(K(I))" ";:"";K$:K(I1)(K$)w K(I1)0K(I1)2553060 "TOTAL ON "H$(K(I))" (Y/N) ";:L$ L$"Y"K(I2)1:K(0)1 I& K(0)131470 "ENTER TAB FOR TOTAL: ";A$: (A$)00 I03NH3:K(I)0:I= I0NH:AC(I)0:I:HC0:GT0I E3150S 3940 :"HOW MANY HEADERS ";RH$:RH(RH$):RH1RHNH13010 E0RN$(NN)"PRESENT" I1RH33  "ENTER # OF HEADER YOU WANT IN":"POSITION #"(I2)3" ";:"";K$:RPTFMTNAMEFILE". D$"DELETE"DB$" INDEXFILE"N" D$"DELETE"DB$" HEADERFILE"Y, DB$""q6 F$"BASENAME":4110@ NR1ĺD$"DELETE BASENAMEFILE":4810J ISNR1T R$(I)R$(I1)^ Ih NRNR1:4280r 2470| ***REPORT*** T90 :E? (Y/N) ";:"";S$# S$"Y"2470S :12:11::(91);" DELETING DATABASE ]":^ 2830l DB$R$(S) F$"RPTFMTNAME" 4110 D$;"DELETE"DB$" "F$"FILE" I1NR D$;"DELETE"DB$" "R$(I)" RPTFMTFILE" I 1013:D$"DELETE"DB$" 168,104,166,223,154,72,152,72,96..nD$"PR#1":.x" K":H.D$"PR#1"V." K 80N"\.j.D$"PR#1"y." K 132N"..PF0ı.D$"PR#0".R OPTIONS:"-"1 40 COLUMNS"3-"2 80 COLUMNS"H-"3 132 COLUMNS"f- :"WHICH ";PF$:PF(PF$)z-PF1PF35130-4810-(PF0:4810-2"MAXFILES3":-<*** APPLESOFT ONERR CORRECTION-FI10131022:PP:I,PP:I-PI0-Z .d104,DS",t"5 REPORT"#,~"6 SORT"=,"7 TURN ON PRINTER"X,"8 TURN OFF PRINTER"s,"9 LIST ALL RECORDS","10 QUIT",,"WHICH ";S$:S(S$),S1S104810,S1050,1780,1620,2340,2940,1415,5080,5160,4500,5170, -"PRINTENTLY CONTAINS: "NR" RECORDS"::"ROOM FOR "BNR" MORE RECORDS"D+$s+.PF1ĺ"THE PRINTER IS ";::"ON"::4930+8"THE PRINTER IS OFF"+B+L"1 SELECT DATA BASE"+V"2 SEARCH AND/OR CHANGE DATA"+`"3 ENTER RECORDS",j"4 DELETE RECOR*A$(13)ı*I$I$A$'*4750>**** MAIN MENU ***H*4840R*1013X**"******* DATA BASE MANAGEMENT II ******"*:" APPLE COMPUTER INC"*" MODIFIED BY GARY A. FOOTE"*"CURRENT DATA BASE: "DB$:>+"CURRE53103)>"PRESS RETURN TO CONTINUE, ESC FOR MENU";;)@L$N)B(L$)274810a)D(L$)134680k)F4672u)H:L0)RPF5230,5250,5280)\4620)f)p *** INPUT ROUTINES ***)zI$"")COMMA$"NO"Ą"";I$:)A$)A$(3)ij*A$;S:( *** LIST ***(L0$(7(J1NR:YR(J)N(PF5230,5250,5280i(" "H$(0)": ";J:LL1u(I1NH(I" "H$(I)": "N$(Y,I)(LL1(I(:LL1(LNH204660( J(5310( "HIT RETURN FOR MENU...";L$(*4810)4$" "F$"FILE"'NR 'J1NR-'FF43908'YR(J)D'I1NHQ'N$(Y,I)X'Ib'4400m'&R$(J)t'0J':D$"CLOSE"'DFF0'N'X*** SAVE REPORTNAMEFILE ***'bNRNN'lF$"RPTFMTNAME"'vI1NR:R$(I)RN$(I):I'4280(NRN604100F504120-G(410(3F))2074130HG(150F)10R4130bG(110F)5l4130G(280(3F))10"FOG.4(HE)'155,4!255(#A0 VV1V1V11 320&l1K16P(A$(X),N1,1)V$(K)2040WKaVV1mV1V11v320 WW1 V13HH1 V10VV1 V10 280EWSQVWF206.835(1.015E)(84.6Q)F704080F(A$(X),N2,1)V$(K)1430%K/ 1410K(A$(X),N2,1)B$1350VK16u((A$(X),N2,1)P$(K)1350|2K<1410FK35P(A$(X),N1,1)C$(K)1410ZKd(A$(X),N1,1)C$(6)1430nK16x(A$(X),N2,1)V$(6)143N1,1)V$(K)1430VK"`1410Bj(A$(X),N1,1)C$(6)1430IKS1410o(A$(X),N2,1)B$1220zK16(A$(X),N2,1)P$(K)12201410K13(A$(X),N1,1)C4(K)1410K(A$(X),N1,1)C$(6)1430K16YE, FOR NOW......"::=255:12:"T H E E N D ! !"CISSS1\270x(A$(X),N1,1)B$1130K16$(A$(X),N1,1)P$(K)1130)K.(A$(X),N1,1)C$(1)11808(A$(X),N1,1)C$(5)1300BK16L(A$(X),LENT= ";G)"NO. OF HI-CAL WORDS = ";HG"FOG INDEX GRADE = ";FOGm" (FOR COMPARISON WITH FLESCH)"w"":::" DO YOU WANT ANOTHER? (Y/N)"A$A$"Y"Ľ::54180::"WELL, I HOPE I HAVE BEEN OF SOME HELP TO YOU! GOOD B$(R)ī20006R@NJX)T40003X:10OY"NO. OF SENTENCES= ";Sk^"NO. OF WORDS = ";Wh"NO. OF SYLLABLES= ";Vr"AVG. SENTENCE LENGTH= ";E|"AVG. SYLLABLES/WORD = ";Q"F L E S C H INDEX = ";F "GRADE LEVEL EQUIVA(X))N1LP157(A$(X),N,1)P$(P)1000:12:14:"= = = = = = = = ="::14:"A N A L I Z I N G"::14:"= = = = = = = = ="P(A$(X),N,1)B$(A$(X),N1,1)B$3000(A$(X),N,1)V$(6)2000"R15 ,(A$(X),N,1)V B$(32)/ P$(1)".":P$(2)":":P$(3)";"Q P$(4)"?":P$(5)"!":P$(6)","s C$(1)"D":C$(2)"T":C$(3)"E" C$(4)"Z":C$(5)"S":C$(6)"L" I1 A$(I) (A$(I),1,1)"*"210 A$(I)A$(I)B$ II1:175 X1IL(A$EL OF THESE INSTRUCTIONS IS 8.1.":N 6"WHEN A QUESTION MARK APPEARS ON THE"v 7"SCREEN BEGIN TO ENTER TEXT.":255| 8 dA$(100),V$(6),G$(6),P$(6) nW0:S0:V0:J1:V10M1:H0 xV$(1)"A":V$(2)"I":V$(3)"O" V$(4)"U":V$(5)"Y":V$(6)"E" KEY' TO START THE ANALYSIS."L 0:" (PRESS THE SPACE BAR TO CONTINUE)"\ 116384,128b 2 3" A SAMPLE OF ABOUT 150 WORDS TAKES APPROXIMATELY 2 MINUTES.": 4" THE COMPUTER WILL 'B E E P' WHEN IT IS FINISHED.":# 5"THE GRADE LEV" &"BETWEEN WORDS.":F ("A PERIOD, SEMICOLON, QUESTION MARK OR" *"EXCLAMATION POINT ARE INDICATIONS OF THE END OF A SENTENCE.": ," WHEN THE SAMPLE TEXT HAS BEEN ENTERED, PRESS THE 'RETURN KEY'" ." TYPE AN ASTERISK, AND PRESS THE 'RETURN"N"100 :4:180H "ENTER THE TEXT SAMPLE FROM THE KEYBOARD.": " PRESS THE 'RETURN KEY' AT THE END OF EACH LINE.": "OMIT COMMAS AND QUOTATION MARKS.": ""REPLACE A COLON WITH A PERIOD.": $"THERE SHOULD BE AT LEAST ONE SPACE := 2:"***************************************":` " **** S.T.A.R. ****":"***************************************":" SIMPLE TEST APPROACH FOR READABILITY":"DO YOU WANT INSTRUCTIONS? (Y/N)"Y$ Y$     XsbTT1100:"-";:TT::L$:"TOTALS.....";:36,32:OO;:36,42:RO;:36,52:MO;:36,62:BO;:36,72:EO;:36,82lP((EO)OO100.5):PvD$"PR#0":"FINISHED"::"FOR ANOTHER COPY, PRESS 'RETURN'.":Z$:300 NCENTAGE E D":TT1100:"-";:TT:+:L$DX127:T(X)0ī600T$(X);:36,32:T(X);:36,42:R(X);:36,52:M(X);:36,62:B(X);:36,72:UR(X)M(X)B(X):U;:36,82P((U)T(X)100.5):P:OOOOT(X):ROROR(X):MOMOM(X):BOBOB(X):EOEOUXONALLY DISADVANTAGED' IS HERE DEFINED AS:":" COMPREHENSION SCORE BELOW 9TH GRADE, OR" " MATH SCORE BELOW 50%, OR BOTH.":L$:L$!"CLASS";:36,30:"# TESTED";:36,40:"READING";:36,50:"MATH";:36,60:"BOTH";:36,70:"TOTAL";:36,80:"PER"THE PRINTER IS ";::"OFF":4 -(49601)254ī301 .:(2):"THE PRINTER IS ON."::"POSITION THE PAPER AND":"PRESS RETURN.":Z$ 6D$;"PR#1":(9);"130N"Z "EDUCATIONALLY DISADVANTAGED -- STATISTICS FOR SCHOOL YEAR 1979-1980":L$:L$:"'EDUCATI"# TESTED ";T(X)::"E D READING ONLY ";R(X)::"E D MATH ONLY ";M(X)::"E D BOTH ";B(X) ::"ALL ENTRIES CORRECT (Y/N)";A$:A$"Y"ī250 A$"N"ė:(2):205 "USE ONLY Y OR N":TT12000:T:220 X ,:(2):49296,141:(49601)254ĺTURE":T$(22)"INSTRUMENT.":T$(23)"MACHINE SHOP":T$(24)"OPER. ROOM TECH.":T$(25)"PLUMBING":T$(26)"PRACT. NURSING":T$(27)"WELDING" d:(2):"EDUCATIONALLY DISADVANTAGED STATS":::"PRESS 'RETURN' TO START.":Z$ X127::(2) T$(X):::\ "DENTAL LAB"} T$(11)"DISPL. HOMEMAKERS":T$(12)"DRAFTING":T$(13)"ELECTRICITY":T$(14)"ELEC - MECH":T$(15)"ELECTRONICS" T$(16)"E B C E":T$(17)"FASHION MER.":T$(18)"FLORICULTURE":T$(19)"GRAPHIC ARTS":T$(20)"HEATING & AIR" T$(21)"HORTICUL% T(30),R(30),M(30),B(30),T$(30): D$(4):L$(10)T$(1)"ACCOUNTING":T$(2)"AUTO BODY":T$(3)"AUTO MECHANICS":T$(4)"BRICK MASONRY":T$(5)"BUILDING & GRNDS" T$(6)"CARPENTRY":T$(7)"CHILD CARE":T$(8)"CLER/SEC":T$(9)"CULINARY ARTS":T$(10)     (J310)İ375  J3 ( :. G AVE(100AVE5)100^ " AVE = ";AVE::w $SDV(100SDV5)100 %" STANDARD DEVIATION IS ";SDV:: o p u z"CONTINUE ? ";C$  (C$,1)"N"Ĭ  A J2 ! SDV(T2(K1)) $ THIS SETS MEAN STANDARD SCORE OF 50 J31K STD(J3)10((S(J3)AVE))SDV50 3); S(J3),20);(STD(J3).5) J310A+  93,86,80,79,79,76,75,74,72,72,72,70^  67,66,66,63,60,57,56,51,50,48,44,43,41,38,35m  26,25,21w  -99}  "SCORE","STANDARD " ," SCORE"  I511000:I5 J21K D(J2)S(J2)AVE SDD(J2)D(J2) T2T2SDJ)STD(J)A N(J)(N(J).5)) 3);= S(J),20);N(J)C "Z '(J10)J10İ375a ,Ji T: ^"NEW SCORE FOUND BY ADDING ";A;" TO STANDARD SCORE" h v999 w THIS IS DELAY SUBROUTINE |MLT$   DAT iS(60),N(60)% jSTD(60),D(60)1 nI150; xS(I)M S(I)99150W KK1d TTS(I)k Iq } AVETK 1000 6000 "WHAT TO ADD TO STANDARD SCORE ";A : "SCORE","NEW SCORE" : J1K N( PROGRAM TO ALLOW FOR A: LINEAR TRANSFORMATIONg OF SCORES TO FIT INTO  A 90-80-70-60 FORMAT ** ========================  *** JBTATE FOR MLTATE ***# -------8001166---------- d     STD(J3)10((S(J3)AVE))SDV50> S(J3);Q);(STD(J3).5)D \ (J310)J310ľZ$d J3j r :x  AVE(100AVE5)100 " AVE = ";AVE:: $SDV(100SDV5)100 %" STANDARD DEVIATION IS ";SDV:: ;," SCORE " ! J21K5 D(J2)S(J2)AVEH SDD(J2)D(J2)U T2T2SD] J2c w SDV(T2(K1)) $ THIS SETS MEAN STANDARD SCORE OF 50 J31K! mA$"Y"ī210 n? o"SAME MULTIPLIER, DIFFERENT ADDER ? "E pM qA$^ rA$"Y"ī170d sm v999x  DATA  58,57,46.5,44.5,43.5,42,41,40  38,38,35,35,32,32.5,30,30,30  25,23.5,23,9  -99  "SCORE "," STANDARD " CORE";A :( "SCORE","NEW SCORE"0 :6 A J1KS N(J)MS(J)Ab S(J),N(J)h "~ '(J10)J10ľZ$ ,J T: ^"WITH A MULTIPLIER OF ";M;" AND ADDING ";A c f"WANT TO SEE THE SAME DISTRIBUTION ? " h iA$ *** JBTATE FOR MLTATE ***; # -------8001166----------A dR iS(60),N(60)e jSTD(60),D(60)q nI150{ xS(I) S(I)99150 KK1 TTS(I) I AVETK 1000 " WHAT MULTIPLIER ";M  " WHAT TO ADD TO SAQ21: AMT. TO TAB IN STANDARD SCORE OUTPUT ^ PROGRAM TO ALLOW FOR Az LINEAR TRANSFORMATION OF SCORES TO FIT INTO  A 90-80-70-60 FORMAT ** ========================       Y1ĺ"BREAK","SCORE" &8G(Y)10010YLW(Y)(G(Y)A)MeW(Y)(100W(Y))100tG(Y),W(Y)zY"WITH A MULTIPLILIER OF ";M;" AND ADDING ";A: 'STD(J3)10((S(J3)AVE))SDV50?S(J3);Q);(STD(J3).5)E](J310)J310ľZ$eJ3ks:y AVE(100AVE5)100 " AVE = ";AVE::$SDV(100SDV5)100%" STANDARD DEVIATION IS ";SDV:: Y14 ," SCORE " " J21K6 D(J2)S(J2)AVEI SDD(J2)D(J2)V T2T2SD^ J2d x SDV(T2(K1)) $ THIS SETS MEAN STANDARD SCORE OF 50 J31K"RENT MULTIPLIER ?": xA$- zA$"Y"ī1606 |999A  DATA}  46,46,46,45,44,44,44,44,43,43,42,42,41,41,41,40,40,40  38,38,37,36,35,34,34,33,31,31,30,29,29,29,29  27,26,25,25,22,19,19,15,14  -99  "SCORE "," STANDARD "( d"WANT TO SEE THE BREAK POINTS ? ":> eA$:A$"Y"İ4000j f"WANT TO SEE THE SAME DISTRIBUTION ? "p hx iA$ mA$"Y"ė:210 n o" ' SAME MULTIPLIER BUT DIFFERENT ADDER ?" p qA$ rA$"Y"ī170 s v"DO YOU WANT A DIFFE * "WHAT TO ADD TO SCORE ? "0 6 = AE :K d "SCORE","NEW SCORE"l :r } J1K N(J)MS(J)A S(J),N(J) " '(J10)J10ľZ$ ,J T: ^"WITH A MULTIPLIER OF ";M;" AND ADDING ";A c== 8  *** JBTATE FOR MLTATE ***X # -------8001166----------^ do iS(60),N(60) jSTD(60),D(60) nI150 xS(I) S(I)99150 KK1 TTS(I) I AVETK 1000 " WHAT MULTIPLIER ";M *** UPDATED 810208 ***^Q21: AMT. TO TAB IN STANDARD SCORE OUTPUT { PROGRAM TO ALLOW FOR A LINEAR TRANSFORMATION OF SCORES TO FIT INTO  A 90-80-70-60 FORMAT **  ======================     1 8,7,8,7,9,-2@ ::::::::::::::::::::: n -999 : LAST ONE t' K,  12 : STUD. NO. T  :::::::::::TEST SCORES m  60,70,80,90,100,-1  :::::::::::QUIZ SCORES  1,3,5,7,9,-2  ***** NEXT STUDENT  20 85,90,90,95,100,- < **** AVERAGE LOOP :::: ::::::::::H I110P T1^ T10230u T2(K,L)T2(K,L)T1| I AV(K,L)T2(K,L)(I1) AV(K,L)AV(K,L).05 AV(K,L)(10(AV(K,L))) AV(K,L)AV(K,L)10 AV(K,L), L   # "STUDENT","TEST","QUIZ"B "NUMBER ","SCORE","SCORE"H p **** STUDENT LOOP *** | K140 S(K):S(K)010000 S(K),: *** TEST LOOP :::::::::::::::::::::::: L12: TESTS THEN QUIZES BOTH DONE HERE ER ":2 :"QUIZ GRADES ALSO END THE SAME WAY."g :"EX 2000 DATA 100,-1 "::"ETC. OK ?" :" THE LAST STUDENT NO. IS ALSO NEGATIVE.": " ( DON'T FORGET THE WORD 'DATA' ! )": :"LIST 2000- FOR AN EXAMPLE......": B$ \ T2(40,1)= TOTAL OF TESTS A ] T2(40,2)= TOTAL ...QUIZES_ _ AV(40,1)= AVE OF TESTS ` AV(40,2)= AVE OF QUIZES d n"TYPE IN DATA LINES STARTING AT " x:"LINE 2000 - ."  " TEST GRADES END WITH A NEGATIVE NUMBv PROGRAM TO ADD/AVERAGE; *** JBTATE ** **X ===== 800309 =========^(d<PS(40),T2(40,2),AV(40,2)U Z S(40) = STUDENT NO [      TINUE >" 226 7);" < HIT 'ESC' KEY TO STOP >"> Z$R (Z$)27ī1000[ 196f TTJo SJu {  15 18 " BYE " I12500:I :(L1K @J1511, JA$(L)G$(J)İ5003 TJ: ^LT hV1TK:V2(TS)(K1)p rV1(V1.5):V2(V2.5)x w20 |"AVE IS ";G$(V1);" OR ";G$(V2);" IF FINAL COUNTED DOUBLE. " V10:V20 S0:T0 5 5 "< HIT SPACE BAR TO CON"4 :"WHERE STANDS FOR CARRIAGE RETURN.Y :" HIT SPACE BAR TO CONTINUE."_ g Z$m *** INPUT SECTION *** 10 === MAX OF 10 GRADES ! I110 A$(I) (A$(I))48ī300 I ,KI1: NO. OF GRADES 6DIRECTIONS ";D$% (D$,1)"N"ī200- 10Z "TYPE IN YOUR GRADES, ONE AT A TIME ":~ "ENTER '0' AS THE LAST ENTRY " :"(THIS WILL NOT BE AVERAGED OF COURSE.)" 17 "EXAMPLE " :"?A "?B+ " "?D- " "?0  GRADE AVERAGER+ *** JBTATE ***@ === 801208 ===n( -G$(15),A$(15)2< ASSIGN GRADES TO PTS.FI1511PG$(I)ZId A+,A,A-,B+,B,B-,C+,C,C-n D+,D,D-,F+,F,F- x"    A$(L)220, T$A$(I):A$(I)A$(L):A$(L)T$6 IIMC I1220L 160V JJ1c JK120l 150z I1LAST A$(I), F11500:F: TIMING LOOP I  :"TOTAL SORTED = "N : 20  :A$(1000)G"HOW MANY ITEMS DO YOU WISH TO SORT ? ";LAST::UI1LAST`(A$(I)f-m2I7:10:13:"SORTING NOW"cA1$TIME$:A1$dNLASTnMNxM(M2)M0A2$TIME$:400J1:KNMIJLIM A$(I)  "TYPE STRING #";I;": ";" 8A$(I)4 :A$(I)""40: <U >"WHAT FILE NAME? ";N$h FD$;"OPEN ";N$| PD$;"WRITE ";N$ ZI1 dJ1I1 n:A$(J) xJ D$;"CLOSE ";N$ T A$(100):I0'D$(4): CTRL D-\"THIS PROGRAM LETS YOU WRITE TEXT FILES."b ""YOU GET TO TYPE ONE STRING AT A TIME."$&"A STRING MAY HAVE UP TO 239 CHARACTERS."(2II14"(PRESS THE RETURN KEY TO QUIT.) 6!! ) <J1I F:A$(J) PJ3 ZD$;"CLOSE ";Z$I dD$;"NOMON C,I,O" MK D$(4): CTRL D? "THIS PROGRAM RETRIEVES TEXT FILES"l"CREATED BY THE 'CREATE TEXT' PROGRAM.""MON C,I,O IS IN EFFECT.""NAME OF TEXT FILE? ";Z$D$;"MON C,I,O"D$;"OPEN ";Z$(D$;"READ ";Z$2I 7A$(I""