' +JJJJ ?\>m0M='+l> /+l  P˵B̵CõDĵEµµDB ĵ ⵭µ ۰ µL` B H@Aﳈ  @A ਦ@A LL$ 鷎귭෍ᷩ췩緈JJJJx i L8ᷭ緍췩 i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&" ʎ L/ ɃL`  !"#$%&'()*+,-./0123456789:;<=>? ( 1 +".*$ (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#01)*#;?;/4>:(+02&<#)#0*Eb ;1h  !"`H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌` ƥ LꢭɛL`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\޼e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& $`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV  ȟ QlV eօ3L׮ʊHLQ &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ȿõ` F`  \ 濭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`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUTYP!pppp p p p p`" t""#x"p0p@p@@@p@!y q q t@  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- E Ϡ@跻~!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 ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ ŤL~H hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / X ED / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8DH ؿ 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뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵ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#"A"ĺ:(4)"RUN "A$((A$)64)# *@ -(4)"BRUN "A$((A$)64)A :(4)"NOMONICO"6 44460,88:44461,252H(4)"MONICO"X15:A$(X):: HELLO,HARD HAT MACK,MONTEZUMA'S REVENGE,SPY'S DEMISE,H.E.R.O.X15:X2:(X64)"]":32,2 (4)"CATALOG"#%A$:A$"A"A$"E"37 (A$ z#     ˹!Ϡ Ġ bǠŠwxOwwxO_~w}?yOw0&cGwxO_~w}?yOwwxO_~w}?yOw?|@>~xxyccwx8~~FOwwxxOwwxFcFbqF?|OwwxO_;{0w_C{~_w}^_:xyOwpwxO_~w}?yOwwxOwwxOwwxOo8yrw^;}~_{w}w>+?OyyOwgswyOg33^gIdsyNI?fLws}Gs?O93sywwyO_~w}?ywwyO_~w}?ywwyOon}]_]{~__w}w:o:O9~yw`cGC{||wywwyO_~w}?yw 3fLwyO_~w}?ywwyO_~w}?ywwy~wwyO_~w}?ywwyFcFpqF?|wwyOg;-v_]w~_;w}_=|ywwyOAbC}_Gc~FwGo=CpywwywwywwyOo?7_;{~Oww}w:k>OyywWuwxO'3s_8syp|yOw7vwyO80^gsy8N9fsw}A3>O0>pywwyxww|@;>nyx9gcwyO_~w}?ywwyOon}}_]{~_w}w:_=O xyw@wNc9wnwyxwwyO_~w}?ywcCwyxwwywwywwyOm"DC[Gc~Gw}_o=|ywwyFcp| `0|wwyO;_]n~O;w}wV+?~yw wyO;;w?__;]~o;w=w:_:x|ywwywwwwyO_~w}?ywwT*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*w          wxxOwwxO_~w}?yOw@wxO3^OLd ryIdgw}I92>O3syOwwxO_~w}?yOwwnA;wnm;7w wxF`Fq|1 cF1|OwwxO_cq~_Gw}wnk>~yOwwxxOwwxO_~w}?yOww*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*wwxO_~w}?yOww@wwxOwwxO/7wn7_;]~_;w}w>o:OyyOwwyO_~w}?ywwyOon}}_]{~_;w}w:+?O9~ywpvNc9wf=nwyOC9wg__;]~?;w=w:7?O||ywwyxwwywwyO_~w}?yw cAwyO98@_ xy><0pOw}c~ywwyxwwyOC'qb_s`~gw}?yw7vwyO_~w}?ywwwwywwyO/7wnw^;]~_;w}w>_:OyywwxO_|~xw}>yOwwxOog|}_]y~O;w}w:k>OyyOw`cgw;w||}wxO;;w{__;]~:w=w:+?~|yOwwxO_~w}?yOwwxOwwxOw0&cLwxOGy_~x>|Lw}c?OysyOwwxOwwnA;wn=|;wqwxxOcFqp1 cF1xOwwxO_~w}?yOwwxG`xp8|OwwxO;,7w_on~__w}Oo=CpyOwWuwxxOwwxOwwxOwwxO/7wnw^;]~_;w}w>_=OyyOwwyO_gy~Osw}s<ywwyOGn}x_c{~_Gw}G>|yw@cwyO;s;_O;]~w:ww:k>~ywwyOs_~w}?ywwywwyw0fLwyOcp_~y>|aw}c?|qywwywwnA;wn]];wvwyxpxbp8@wwyO_~w}?ywwyFcFsFq gF3|wwyO?;77w__}~_?w}?_o:gyywgswyO_~w}?ywwywwywwyO/76lw^Ga~_Cw}O7?|ywpwxOC9 _C `p!@@ws=n><`0xyOwwxO_~w}?yOwowxOA;w__Gc~Gw=G>~yOwwxO-Dx@}_cq~gw}Go=|yOwD$"UNLOCK CLASS NAMES"]AA49_D$"OPEN CLASS NAMES"S`D$"READ CLASS NAMES"laNC:I1NC:C$(I):}bD$"CLOSE":c::G$;G$"THERE HAS BEEN A DISK ERROR..."::"PRESS WHEN READY ":X$:216,0:40000dMAX40:RS(MAX),PS(MAX),W(35)"CLOSE":FAABB:400001P** GET CLASS# **"eQ"WHICH CLASS ?"::I1NC:" ";I;". ";C$(I):R:"ENTER YOUR CHOICE -> ";S7:(X$)183T(X$)NC83UX$:C(X$)VFI$"ID-"C$(C)::Z** READ CLASSES **[AA3:40000\D$"CLOSE":40010( <** READ NAMES **3 =FCıb >FC:1::"READING DATA FROM DISK "::99t ?D$"OPEN";FI$ @D$"READ";FI$ AAS:AS0āK1AS:AS$(K): BNS:NS068 CK1NS:N$(K),ID$(K),ID(K),AV(ID(K)),RS(ID(K)),PS(ID(K)): DD$"(N$(N),3):JL1:ID(N)N -6 2** WRITE NAMES **` 31::" WRITING DATA TO DISK "::70q 4D$"OPEN"FI$ 5D$"WRITE"FI$ 8AS:AS0āK1AS:AS$(K): 9NS:K1NS:N$(K);CR$;ID$(K);CR$;ID(K);CR$;AV(ID(K));CR$;RS(ID(K));CR$;PS(ID(K)): ;" MG$" IS THIS CORRECT? (Y/N) "7 TB20((MG$)2)M 23:TB::MG$;:Z 51000:r ( ** ENTER NAMES ** )L28:Y$"":Y0:"STUDENT # ";N;" ";:10: *N$(N)Y$:L1(Y$):J1L1:(Y$,J,1)(32)Ă +JL1ER1: ,ID$(N)(N$(N),L1J)" Y0X12716H X127X8Y$(Y$,(Y$)1):YY1:(8);(32);(8);:16S YLıe X42X5716 YY1:Y$Y$X$:X$;:16 MG$" ARE YOU SURE?????? (Y/N) ":29 MG$" COMPLETED -- PRESS ANY KEY ":29 MG$" PRESS WHEN READY ":29 X127ĭY1Y0:Y$"":(8);(32);(8);:10f X127Y$(Y$,(Y$)1):YY1:(8);(32);(8);:10q YLı YY1:Y$Y$X$:X$;:10 7:X13ı X46PP1PP0:23 X127ĭY1Y0:Y$"":(8);(32);(8);:16 X42PR1PR0: _(:(4);"PR#0":SL6:DD1:PR1:100CX$:X$(8)X$(127)nX$""X$","X$":"X$";"X$(34)1|X(X$):"END AT 4"::1X324"END AT 6"::1:X13X127ıX32X577  1:X13ı Y0X12710.                              I|govΠΠ Ǡ٠A ` ^ &I&` : ȱ ȱFKJ  F`,U,R@ ,T,R WP` HȭGȩȭKȭJȥ  ȭIHȭG H` ^) ) *  R v`HGI KJ ,` ɍH hɋؠ   ad ȱ  ` / X ȹ `     :(4)"BRUN LD":::(4)"PR#0":K"ONE MOMENT PLEASE ..."b:(4)"RUN GRB": wxxOwwxO/n}}_c{~_;w}G7?<~yOwpqNc9w|~wxO;;w___;]~_;w=w:_=pyOwwxxOw"ENTER CORRECT GRADE -> ";;L3:Y0:Y$"":10:GD(Y$):VY$""Ģ23:958:1410nX(Y$):X57İ1200OXGD(ID(CC),AS)GD(ID(CC),AS)GD:XGGD:XG1KXKX1:SMSMOX:1450XGX2X2XGSMSMOXXG:XGX1X1XG1300 OZ0ıė:1500dX$"N"1370#iOZ1Yn:22:958:23:"ENTER STUDENT # TO CORRECT-> ";xL3:Y0:Y$"":16:CC(Y$):CC1CCNS1300zY$""1390}N$(CC)"*"ĺ::"STUDENT HAS BEEN DROPPED";G$;G$;:I11200:::1390:22:958:23::N$"*"ĺBB;::"** DROPPED **":1360LALB(ID$(BB)):LB11LB:LB0LB0BLB1ĺBB;::(ID$(BB),11);LB);GD(ID(BB),AS):1355FBB;::ID$(BB);LB);GD(ID(BB),AS)KBB(NS2)Ģ2:B20LBB(NS2).5ĭB20Ģ2:B20P::23Z28:X$"Y")X67GDA(2)%X68GDA(3)5X69GD1GX70GDA(4)V(Y$)1ır(Y$,1)"+"GDGDA(5)(Y$,1)"-"GDGDA(6)** DISP GR **34,0:MSG$AS$(AS):55000(B1:BB1NS2B::BB10ĺ" ";&<N$N$(BB)~TP111706AV(ID(I))(((TT.005)TP)1000)10STT1TT0AV(ID(I))TTjTP0AV(ID(I))1RS(ID(I))TT:PS(ID(I))TP".";:::AA1150"ERR IN GRADE ENTRY RTN":** CONVERT **X65GDA(0)X66GDA(1NS:N$(I)"*"1120!VNUMID(I)IX:"SAVING GRADES FOR ";::N$(I):R[500X`rb"COMPUTING AVERAGES"eI1NS:N$(I)"*"1170jTT0:TP0:GD(ID(I),AS)1TTRS(ID(I)):TPPS(ID(I)):1170tTTRS(ID(I))GD(ID(I),AS):TPPS(ID(I))NP(AS):X$:X$"Y"ĺ:1065E=GD(ID(I),AS)GD:XGGD:XG1KXKX1:1092VBXGX2X2XGpCSMSMXG:XGX1X1XGvD|FG:1300:::"PREPARING GRADE ANALYSIS"::34,0H10000K::"SAVING GRADES":LNUM0:GD(NUM,AS)NP(AS):500QI1:34,2& SM0:KXNS:X11000:X2100[$I1NS:N$(I)"*"KXKX1:GD(ID(I),AS)1:1095)"GRADE FOR ";N$(I);" -> ";:PT1:L6:Y0:Y$"":10:GD(Y$).Y$""ĺ:10658X(Y$):X57İ1200:GDNP(AS)ĺG$;G$::"IS THIS CORRECT?????? (Y/N) ";:7İ1200:NPGD:LG$Y$:1052JX70X49ĺG$;G$::"ERROR--REENTER":1043YNP(Y$):gNP(AS)NP:3:"DESCRIPTOR = ";AS$(AS)::"NUMBER POSSIBLE = ";NP,LG$:28:X$"Y"1010::" ENTER GRADE OR - 1 IF ABSENT/EXCUSED "::Q139:"=";::DESCRIPTOR: "::" -> ";KL12:Y$"":Y0:10:AS$(AS)Y$:Y$""ASAS1:]:700:LG$"":15:958:"ENTER HIGHEST POSSIBLE SCORE OR GRADE":"FOR THIS ASSIGNMENT -> ";L4:Y0:Y$"":10::X48ı(Y$)0ĺG;G$:1043X(Y$)X5)A(6)/" F = ANY SCORE BELOW ";A(3)A(6)ACH1LI36ıN"799":f** ENTER GRADES **q1199:80:60:ASAS1AS35ĺ::"GRADEBOOK IS FULL!!";G$;G$:27::10::"** ENTER GRADES **"::"ENTER ASSIGNMENT # ";AS;" $"** CURRENT GRADE SCALE **":55000^:" A+ = ";A(0)A(5),"A = ";A(0),"A- = ";A(0)A(6)" B+ = ";A(1)A(5),"B = ";A(1),"B- = ";A(1)A(6)" C+ = ";A(2)A(5),"C = ";A(2),"C- = ";A(2)A(6)" D+ = ";A(3)A(5),"D = ";A(3),"D- = ";A(3:NN99\R1NUM:NNR1ı+]:699:799H^D$;"OPEN";C$(C);",L135"a_Q1AS:B1((Q1)5)bD$;"READ";C$(C);",R";R1;",B";B1gA$:GD(NUM,Q)(A$)l:NNR1vD$;"CLOSE":1::"READING GRADE FILE"::** GRADE SCALE **$:MSG WRITE **"R1NUM:B1((AS1)5)=D$"OPEN"C$(C);",L135"aD$"WRITE"C$(C);",R";R1;",B";B1vA$(GD(NUM,AS))~ A$D$"CLOSE":W1::"WRITING GRADES TO DISK"::X** GRADE FILE READ **YRFCıZNUM0ĭGFCı[NUM0GFCH2CH3CH4CH6))ė:10:2::"YOU MUST INITIALIZE A CLASS FILE FIRST.";G$;G$;:27:106CH1000,2000,3000,5000,220,8000,7000,4000,60000,8999CH5110106PO(PO1):Z22:2:" ";:NZ1:106,A$:(A$): ** GRADE FILE:G$(7):D$(13)(4)deN$(MAX),AS$(35),GD(MAX,35),AV(MAX),ID$(MAX),C$(9),NP(35),FG(MAX),ID(MAX)}fCR$(13):AA1:3900iNZ0:90j:50000lNZ1Ģ18:12::"INITIALIZE CLASS FILES":n50040 Z = Selection #CHZZ(NZ1(CH1CS:I1TEMP:ASI:NUMID(N):GD(NUM,I)1 ";?- 7:V(X$):V1V73060J- V7ıc- V6ė:80:CFİ60- V5V4ĭAS0ĺ:G$;G$::"NO GRADES ON FILE"::27:3000- V63070- :V3100,3200,3300,3400,3500,3600:3000- ** ADD NAME **. BB13:AA1W STUDENT"*, :" 2. DROP A STUDENT"P, :" 3. CHANGE NAME SPELLING"v, :" 4. CHANGE STUDENT GRADE", :" 5. CHANGE ASSIGNMENT DESCRIPTOR", :" 6. CHANGE GRADING SCALE", :" 7. RETURN TO ";::"MAIN";::" MENU""-)):" ";:+ PO0ĺ20);.+ AV(ID(I)),LG$4+ C+ D$;"PR#0"Q+ PO0İ27x+ ::"DISPLAY HISTOGRAM? (Y/N) ";:+ X$:X$"Y"ı+ HS1:8300:HS0:+ ** CHANGES **+ MM1MM0:+ :10::"** MAKE CHANGES **": , :" 1. ADD NE";PR:C$(C):Q140:"=";:::2450A* :MSG$C$(C):55000::R0]* I1NS:N$(I)"*"2490* PO0RR1:R20İ27:R0::MSG$C$(C):55000:* AVAV(ID(I)):AV1ĺ" ";N$(I);20);"NO GRADE":2490* 5200* " ";N$(I); + PO1āZZ120((N$(I):" LETTER GRADE = ";LG$()PO02250>)ZZ1Z:"=";::O)D$;"PR#0":)23:"PRESS ANY KEY TO CONTINUE-- TO EXIT") 51000:)` ** LIST AV **)e :10::"** LIST AVERAGES **":)j 2005:ER1ı)t PO02440)y :R0#*~ D$;"PR#(J);%(ZZ1(17(AS$(J))):" ";:T(GD(NUM,J)1ĺ"EXCUSED";:33:NP(J):2230o(GD(NUM,J);:33:NP(J)(J13J26ĭPO0İ27::N$(QQ)," GRADE";:32:"POSSIBLE":ZZ139:"=";::((:" AVERAGE = ";AV(NUM);" %")AVAV(NUM):5200 RTN":'** PRINT GR **1':Z39:PO1Z58@'PO02210Q'D$;"PR#";PR'N$(QQ),C$(C):ZZ1Z:"=";::"=";:PO1ĺ'"ASSIGNMENT "," GRADE";:33:"POSSIBLE":4'ZZ1Z:"=";::"=";:PO1ĺ'J1AS:J;". ";:J10ĺ" ";(AS$& 27:X$(13)2080&*0&4** LIST ALL **?&5NUM0:603[&6Q1AS:NP(Q)GD(0,Q):y&9QQ1NS:N$(QQ)"*"2120&>NUMID(QQ):600&?2199&C2200:PO12120&D2300:X$"C"2120&EX$"E"QQ1E2:2140&H:RFC&\'"ERR IN LIST-> ";2% L3:Y0:Y$"":16:V(Y$):V1VNS2055B% Y$""2060%N$(V)"*"ĺ:"STUDENT HAS BEEN DROPPED";G$;G$;:I11200::2055%QQV:NUMID(QQ)%IF RF = C THEN 2073%NUM0:600%NUMID(QQ):604%Q1AS:NP(Q)GD(0,Q):%2200(X$):V1V22019%$X$:V12100=$:MSG$C$(C):55010e$B1:I1NS:B:I;". ";:I10ĺ" ";$N$ID$(I):N$(I)"*"N$"**DROPPED**"$N$:I(NS2)Ģ2:B20$I(NS2).5ĭB20Ģ2:B20$%22:958::"LIST WHICH STUDENT'S GRADES? 8,2400:2000=#:12::"** LIST GRADES **"::2005:ER1ı`#:12::"** LIST GRADES **":#:" 1. LIST GRADES FOR ";::"ALL";::" STUDENTS"#:" 2. LIST GRADES FOR ";::"SINGLE";::" STUDENT"#:" ENTER YOUR CHOICE -> ";$7:V":5::"** LIST GRADES/AVERAGES **":R":" 1. LIST ";::" GRADES ":}":" 2. LIST ";::" AVERAGES ":":" 3. RETURN TO MAIN MENU"":" ENTER YOUR CHOICE -> ";"7:V(X$):V1V32015"X$:V3ı #V201))(((TT.005)TP)1000)109!TT1TT0AV(ID(I))TTP!TP0AV(ID(I))1n!RS(ID(I))TT:PS(ID(I))TPt!!AA12:50!!** LIST ** !ER0:2010!:80:60!AS0ĺ::"NO GRADES ON FILE FOR THIS CLASS";G$;G$:27:ER1!) X11000:X2100. ZX1NS:OXGD(ZX,AS)C N$(ZX)"*"1540S OX11540d OXX2X2OXu OXX1X1OX} : @::"COMPUTING AVERAGES": YI1NS:N$(I)"*"1670 ^TT0:TP0 hTTRS(ID(I)):TPPS(ID(I)) rTP11670!|AV(ID(IFOR MINUS (-) ";1?8L3:Y$"":Y0:16:A(6)(Y$)A?B:700:LI0V?G28:X$"Y"3675h?LX$"N"3655r?V3600?[20:2:958:"PERMANENTLY SAVE THIS SCALE (Y/N)? ";?`X$:X$:X$"N"ı?eX$"Y"3675?f::"SAVING GRADE SCALE":@j3950:2>A(0)(Y$)@>:I13:"ENTER VALUE FOR ";(65I);" -> ";e>L3:Y$"":Y0:16:A(I)(Y$)::>"ENTER VALUE FOR F -> ";>$L3:Y$"":Y0:16:A(4)(Y$)::>)"ENTER VALUE FOR PLUS (+) ";>.L3:Y$"":Y0:16:A(5)(Y$):?3"ENTER VALUE :0=:I1AS:I;". ";AS$(I);:17:NP(I)::266=Q=** CHANGE GR SCALE **=:8::"** CHANGE GRADING SCALE **"::::LI36:700=::"ENTER NEW VALUES OR -1 TO EXIT":=:"ENTER VALUE FOR ";(65);" -> ";>L3:Y$"":Y0:16:(Y$)1ı958::CD;". ";AS$(CD)::V3İ3700:EX13500<< V33595Q< V2İ3750:3595< "ENTER DESCRIPTOR -> ";:L12:Y0:Y$"":10:AS$(CD)Y$:1:1< <AA17:50<:3598<  ** UPDATE **< 1600:V3ĭAS03500= :"DESCRIPTOR","# POSSIBLE"*"+; 55010::"DESCRIPTOR"," # POSSIBLE"T; :I1AS:I;". ";AS$(I);:20:NP(I)d; I18İ27:j; ; 23:1:958:V3ĺ"DELETE WHICH ASSIGNMENT? -> ";:3578; "CHANGE WHICH ASSIGNMENT? -> ";; L3:Y0:Y$"":16:CD(Y$):Y0ı.< 22:1:URN TO ";::"MAIN";::" MENU"E: :" ENTER YOUR CHOICE -> ";:b: 7:V(X$):V1V53560m: V4ı}: V5MM1:: V: NUM0:600: P1AS:NP(P)GD(0,P):: :V3MSG$"** DELETE ASSIGNMENT **":3572; MSG$"** CHANGE ASSIGNMENT *CHG ASSIGNMENT **9 MM1ı&9 MM009 :V1f9 AS0ĺ::G$;G$;"NO ASSIGNMENTS ON FILE"::27:p9 35649 :" 2. CHANGE # POSSIBLE"9 :" 3. DELETE ASSIGNMENT"9 :" 4. RETURN TO ";::"CHANGES";::" MENU": :" 5. RET TT0:TP0:GD(NUM,G)1TTRS(NUM):TPPS(NUM):3480_8 TTRS(NUM)GD(NUM,G):TPPS(NUM)NP(G)z8 TP1AV(NUM)1:34828 AV(NUM)(((TT.005)TP)1000)108 RS(NUM)TT:PS(NUM)TP8 TEMPAS:ASG:599:500:ASTEMP:AA16:508 2200:26:9 ** 27 GD(NUM,G);:34:NP(G)P7 RS(NUM)RS(NUM)GD(NUM,G):PS(NUM)PS(NUM)NP(G)7 ::"ENTER GRADE OR -1 IF ABSENT OR EXCUSED":7 "ENTER NEW GRADE -> ";:PT1:L5:Y0:Y$"":10:Y0ĺG$;G$:34727 GD(Y$):X(Y$):X57İ12007 :GD(NUM,G)GD58M(ID(QQ)):6046u 2200F6z 23:1:958:"CHANGE WHICH GRADE? -> ";c6 L3:Y0:Y$"":16:Y0ı6 G(Y$):G1GASĺG$;G$:34506 :N$(NUM):"ASSIGNMENT","GRADE","POSSIBLE"6 ::G;". ";AS$(G);:177 GD(NUM,G)1ĺ"EXCUSED";:34:NP(G):347FILE"::27:5R 3160T5W 23:1:958:"CHANGE WHICH STUDENT? -> ";:L3:Y0:Y$""c5X 16:Y0ı5\ QQ(Y$):QQ1QQNSĺ:34155h N$(QQ)"*"ĺ:G$;G$;::"STUDENT HAS BEEN DROPPED":Q11200::34155i NUM0:6035j P1AS:NP(P)GD(0,P):6k NU):JL14 ET1ı@4 3150:1:23:"MORE CORRECTIONS? (Y/N) ";e4 X$:X$"Y"Ė1:23:958::3315w4% X$"N"336044 440049 AA9:BB10:504> 3150:26:4H ** CHANGE GRA **4M :MSG$"** CHANGE GRADE **":55010 5N AS0Ģ5::"NO GRADES ON 1800::22:1:958:3315.3 ET1Č958:22[3 1:22:958::"OLD SPELLING= ";N$(Q):n3 L28:Y$"":Y03 :"ENTER CORRECTION -> ";:103 Y$""33353 N$(Q)Y$:L1(N$(Q)):J1L1:(N$(Q),J,1)(32)Ă4 ID$(Q)(N$(Q),L1J)" "(N$(Q),3AS:DX1AS:NUMID(Q):ASDX:GD(NUM,DX)1:500:A2 3150:27:\2 ** CHANGE SPELLING **2 :10::"** CHANGE SPELLING **":2 31602 "CHANGE WHICH STUDENT? -> ";2 L3:Y0:Y$""2 16:Q(Y$):Q1ı3 QNSĺG$;G$:"OUT OF RANGE!!";:Q!":318271v ID$(N)(N$(N),L1J)" "(N$(N),3):JL11=1{ C1 S1 ** DROP **]1 31501 :23:958:"DROP WHICH STUDENT? -> ";:1 L3:Y0:Y$""1 16:Y0ı1 Q(Y$):Q1QNS32051 :DR$N$(Q):N$(Q)"*":AV(ID(Q))1:AA15:5012 TEMP$0c I(NS2)Ģ2:B2070d I(NS2).5ĭB20Ģ2:B20C0g :::V0l L28:Y$"":Y0~0m ::"ENTER FIRST NAME LAST NAME":0n :"ENTER NAME -> ";:10:0o Y0NSNS1:0q N$(N)Y$:L1(Y$):J1L1:(N$(N),J,1)(32)Ă1r JL1ĺG$;G$;"REENTER! 3. RETURN TO MAIN MENU" ";YOv7:X(X$):X1X37030dO{X3ıwOX2ĺX$:7100OX$:::G$;G$;::"ERASE ALL NAMES AND GRADES"::25:X$"Y"ıO7099OD$;"DELETE CLASS NAMES"OI1NCPFI$"ID-"CNAVA(3)LG$"D":5NAVA(3)A(6)LG$"D-":CNLG$"F":^No"ERROR IN S/R 4000":uNX ** NEW GR PER **N]:MSG$"** BEGIN NEW GRADING PERIOD **":55010Nb:" 1. ERASE ALL NAMES AND GRADES"Ng:" 2. ERASE GRADES ONLY"Ol:" ":M_AVA(0)LG$"A":9MdAVA(0)A(6)LG$"A-":WMiAVA(1)A(5)LG$"B+":oMnAVA(1)LG$"B":MsAVA(1)A(6)LG$"B-":MxAVA(2)A(5)LG$"C+":M}AVA(2)LG$"C":MAVA(2)A(6)LG$"C-":MAVA(3)A(5)LG$"D+":L80:60::PO0İ3150:5100/LD$;"PR#";PR ";H2X$:X$"Y"ė:H4X$:::"ALPHABETIZING NAMES";:H5N9NSI:S1:MN$ID$(S WANT TO USE THIS ROSTER FOR":"ALL OTHER CLASSES (Y/N) ?";:1:X$:X$"N"4200aGX$"Y"4099mG4400:G JINC:FI$"ID-"C$(J):CJGAA6:BB5:NSNS(J):50GJ:I1E2:4220Gh:FI$"ID-"C$(I):CIGmNSNS(I):4400GrAA8:BB7:50H|ME LAST NAME":?F:"EXAMPLE: JOE STUDENT":Q139:"=";::rF"CLASS ";::C$(I)::Q139:"=";:::34,10FN1NS(I)FER0:40FER1ĺG$;G$;::"REENTER NAME"::4091F:34,0F4500:ET1ET0:4094FINC4200OG:"DO YOUY"4040-E:"SAVING CLASS NAMES AND SIZES"GED$"OPEN CLASS NAMES"aED$"WRITECLASS NAMES"zENC:I1NC:C$(I):ED$"CLOSE":NZ0E:8:"** ENTER CLASS ROSTER **":E"ENTER STUDENT NAMES FOR EACH CLASS":FI1NC::"ENTER FIRST NA:8:"** ENTER CLASS SIZES **"MD:"ENTER # OF STUDENTS FOR EACH CLASS.":YDJ1NCD"CLASS SIZE FOR ";::C$(J);::" -> ";DY0:Y$"":L3:16:NS(J)(Y$):DNS(J)44ĺ:G$;G$;::"MAX. # OF STUDENTS = ";MAX:::4050DE28:X$";::"MAXIMUM IS 9 CLASSES":I11500::4008hCNC::"EACH CLASS OR SUBJECT":"MUST BE DIFFERENT: ";C"(EX. MATH 1, MATH 2)"C:"ENTER CLASS NAMES: "::I1NCC"CLASS ";I;" ";:Y0:Y$"":L25:10CC$(I)Y$::C28:X$"Y"4008D00/B:MSG$"INITIALIZE ANYWAY? (Y/N)":55000KB51000:X$"N"X$"n"ıeBX$"Y"X$"y"4005nBAS0B:MSG$"** INITIALIZE NEW FILES **":55000B:"HOW MANY CLASSES OR SUBJECTS"::"DO YOU TEACH? -> ";:7:NC(X$):NC1ı-CNC9ĺG$;G$ITE GR SCALE **+AsD$"OPEN GRADING SCALE"HAxD$"WRITE GRADING SCALE"[A}I06:A(I):jAD$"CLOSE"pA{A40000A** NEW FILES ** A::5:10AMSG$"INITIALIZING NEW FILES WILL DESTROY":55000BMSG$"ANY EXISTING INFORMATION!":5506:@<** READ GR SCALE **'@>3930R@?D$"UNLOCK GRADING SCALE,S";SL;",D";DDn@AD$"OPEN GRADING SCALE"@FD$"READ GRADING SCALE"@KI06:A(I):@PD$"CLOSE":3975@Z216,0:A94:I04:A(I)A(I10)::A(5)4:A(6)4@dAA4:99An** WRDJUSTED GRADES";::" OLD AVERAGE=";XB:"NAME";7);"OLD NEW":B1__'SM0:KXNS:X11000:X2100_'AJ1NS:GD(ID(AJ),AS)1KXKX1:10250_'N$(ID(AJ))"*"KXKX1:10250_'XGD(ID(AJ),AS):YY9X(XM)(X9(X9M))X(XX9)(MX9)`(GD(ID(AJ),AS)MKX)/^V'XB(XB10.5)10:SM((SM10).5)10@^`':FG0:8340^^j'X$:X$"Y"İ10200:10000q^o'X$"N"10090w^t'^'** ADJ **^':"ENTER DESIRED AVERAGE (MEAN) -> ";^'L3:Y0:Y$"":16^'(Y$)0ı^'Y9(Y$):X9XB:MNP(AS):@_'::"AR CHOICE -> ";!]!D$;"PR#";PR:C]'#::" GRADEBOOK CLOSED...":W]'** ANALYSIS **m]'HG15:H(HG)0:]'XBSMKX:SM0:HG1NS]'GD(HG,AS)110050]$'XGGD(HG,AS)NP(AS)100:8400:XGGD(HG,AS)])'].']8'SMSM(XGXB)2]B'^L'SM(Sı\ 22:958:27:HS1ı&\ 80003\ XG1ıT\ XGA(0)A(6)H(1)H(1)1:u\ XGA(1)A(6)H(2)H(2)1:\ XGA(2)A(6)H(3)H(3)1:\ XGA(3)A(6)H(4)H(4)1:\ H(5)H(5)1:]:!:" 3. RETURN TO MAIN MENU":::" ENTER YOU3[ :"CLASS AVERAGE = ";XB:"STANDARD DEV. = ";SMe[ "HIGHEST GRADE = ";X2:"LOWEST GRADE = ";X1[ D$;"PR#0":HS18396[ :"DO YOU WANT TO ADJUST GRADES? (Y/N) ";:FG0ı[ X$:X$:X$"Y"İ10200:8302[ IFPO=1THEN GOSUB 8500 \ WA12)0āPP1H(2):"*";:AZ :"C ";:H(3)0āPP1H(3):"*";:jZ :"D ";:H(4)0āPP1H(4):"*";:Z :"F ";:H(5)0āPP1H(5):"*";:Z ::II138:"=";::Z " ' ' ' '"Z " 0 10 20 30"".";:Y SM(SMKX)BY XB((XB10).5)10:SM((SM10).5)10RY PO1İ8700sY FG1MG$"** HISTOGRAM **"Y ::C$(C);" ";::MG$::Y ADJ1Ğ:"GRADES HAVE BEEN ADJUSTED"::Y "A ";:H(1)0āPP1H(1):"*";::Z :"B ";:H((ID(I))FG(ID(I)):!XI AA20:506Xl ** HISTOGRAM **jXn :12000:FG1MG$"** FINAL GRADE ANALYSIS **"X HG15:H(HG)0:X XBSMKX:SM0X HG1NS:XGAV(ID(HG)):WA1XGFG(ID(HG))X N$(HG)"*"XG18336X 8400X SMSM(XGXB)2Y FG;:35:LG$:PO082304W D$;"PR#";PR:(9);"80N"\W! N$(J);".....";AV(ID(J));".....";FGkW% D$;"PR#0"W& :WA1:XT11200::34,0W+ 8300:WA0W0 :34,0:::"SAVE WEIGHTED AVERAGES (Y/N) ";:W5 X$:X$"N"8000W: X$"Y"8245XD I1NS:AVJ1AS-VGD(NUM,JJ)1SZSZ(W(JJ)):8190JVWGGD(NUM,JJ)NP(JJ)100_VTSTS(WGW(JJ))oV:FGTS100V SZ0FGFG100(100SZ)V FG(FG1000.5)100V FG(NUM)FG:AVFG:5200V VT:VTVT1:VT22ė:VT3W N$(J);:18:AV(ID(J));:26:0%"::::27:34,0:8116%UTEMPAS[U34,0::MSG$"COMPUTING WEIGHTED AVERAGES":55010U"NAME";:18:"OLD AV WT.AV GRADE":34,2:VT3UJ1NS:N$(J)"*"8230UAV(ID(J))1FG1:LG$"NONE":8220UNUMID(J):RFCİ605VTS0:SZ0:J POSSIBLE WEIGHT %"+TI139:"=";::5T34,5VTSS0:I1AS:I;:I10ĺ" ";T" ";AS$(I);:21:NP(I);:29:"-> ";TL6:PP1:Y0:Y$"":16:Y0Y$"0":Y$;TW(I)(Y$)TSSSSW(I):TUSS100ĺG$;G$;::"WEIGHTS MUST EQUAL 10:80:60DSAS0Ģ10:G$;G$;::"** NO GRADES ON FILE **"::27:SSNUM0:600bSVV28300~SI1AS:NP(I)GD(0,I):S:"THERE ARE ";AS;" ASSIGNMENTS"S:"ENTER WEIGHTS FOR EACH ASSIGNMENT":SI139:"=";::T" ASSIGNMENT # GR ** R@RMSG$"*** COMPUTE FINAL GRADES ***":55010:FG1R:" 1. ASSIGN WEIGHTS TO GRADES"::" 2. FINAL GRADE ANALYSIS"R:" 3. RETURN TO MAIN MENU":::" ENTER YOUR CHOICE -> ";R7:VV(X$):VV1VV38107RVV3ı S:60:AS07135&QD$;"DELETE";C$(I)XQAS0:II1NS:AV(II)AS:RS(II)AS:PS(II)AS:hQAA19:50:Q (I3):"ERASING GRADES FOR ";::C$(I)::Q%Q*:G$;G$;"GRADEKEEPER IS READY":"FOR A NEW GRADING PERIOD"::Q426:Q@R** FINAL$(I):60:AS07060*PD$;"DELETE";C$(I)?PD$;"DELETE";FI$KP:26:QPP:::G$;G$;"ERASE GRADES ONLY":::"NAMES WILL BE SAVED BUT...":::"GRADES AND AVERAGES WILL BE ERASED":P25:X$"Y"ıP:90PI1NCQFI$"ID-"C$(I)1:28hX$"Y"600008h:"ONE MOMENT PLEASE...":PRINTER SLOT # ";:PR$:PR(PR$)qhPR1PR760030yhPRh11:28hX$"Y"60000h:"ONE MOMENT PLEASE...":DISK -> ";:DD$:DD(DD$).gyDD1DD2600206gzDDig~9:1:"ENTER PRINTER SLOT # ";:PR$:PR(PR$)~gPR1PR760030gPRg11:28gX$"Y"60000g:00g:60000g:"Y"60000g: MOMENT PLEASE...":1)2):MSG$:-f֖20((MSG$)2):::MSG$::Uf`::1:MSG$"GRADE KEEPER"::55000fe3:MSG$"*** NO NON-SENSE SOFTWARE ***":55000fj5:1:"ENTER DISK DRIVE SLOT# -> ";:SL$:SL(SL$)foSL1SL760010fpSLgt7:1:"ENTER DRIVE# FOR DATA S ROSTER" eà "PRINTER ON/OFF"