' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩 緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  ( 9 +"  "*  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0).).*#!.*'!.8)(#/-)(#/-,,eb)++$ h( ,!!"@h !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD# H8`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  L IH  /JJJJ"LL뷩 ᷩ췩 ɛ LDLSAVBPILOCUNLOCIBPIBPIBPPRBPIBLISCALBPIBUZZOFӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIZRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLOɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L׭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRR3\ɄSɊ"RQJ(0Fw6. ^-%p 㩠RP.Q I* P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLLӜv  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(`# dנz# u``H)=hJJJ>?J==L>> `> =m=`B!B! @g @R<= @ @J<=@L ㊥* @ޭ@) A D @ޭ D`Џ @抮Џ5Џ0 @L`폮폽5 D0 @L֏`8BC쥉 Q %`HVh H hLz) },QRDE8DȥE } }`亠 QM= :8QBCeB@iA@FAG BL>9  `; $ $`eȢ c`KF:HQ%Rh %L) %L8FBGC B%L eBeC_΍`ύ ȑ %3,ň剰iL%Lʋ8n? 03`3<`ɮX F;)L> hi ) 3N?`8` @`3B N ɍN?' =I=Lь ,= ʭ5 ɛ4ꩀ`,8`:4   " 3  ,@ `A`86B86B778$`z{$oL,o y,,`΍3ȱA`3m3`,<8L?! 73A ɠ,! 扈,0݌ N!ɍbabY`NabLJ ON  Y`|}݊ފ8[)80P ⊰EH⊍ኩߊߊ.ነ݊mߊߊފmhmߊ݊iފЦ݊ފ` W(=_?`@]A^B[C\DWaEXb̫ DSTUOP  BY` 8`UVOPSTWX `OP ` 牭a     "-"(ZB)(ZT)A vZX:ZY:BMI,(((ZT)),ZL$,ZC),ZN$:ZN(ZN$)^ vZE(ZN$(27)):ZE30240 v(ZNZBZNZT)(ZCZN$"")ĢBM1:ZF1:Z$" Enter a number from "(ZB)" to "(ZT)". ":S(20):Z$;:30220! vZFĢBM1:1:"____________________________(Z$"Y"):30120)uZ$"No":ZNZ$"Yes"7uZ2ĺZ$;]uCE:Z$(Z$,1):Z(Z$"Y"):ZY::guZNĞuP4S,ZX,ZY," Yes "::ZNĞuP4S,ZX5,ZY," No "::uuRANGED NUMERIC INPUT vZX(36)1:ZY(37)1::ZF0:ZL$"-09":ZB10ZT10ZL$30020QNuZE(Z155):21:7:"_____________________________";:TM:1:16368,0:cuYES-NO INPUTuZX(36):ZY(37):ZL$(27)(13)(21)(8)"YN":ZNZDu30180:WFK,ZL$,Z:ZE(Z1):ZEZ230150uZ3Z4ZNZ3:30120uZ$(7811(Z5)):ZNZZ))L$(SC%(ZZ))(ZZ):^:^CALCULATE LETTER GRADEO^Z255G$"NA":s^ZZ1NI:ZGS%(ZZ)GZZ:ZZNI_:G$G$(G) _0uSPACE BAR:u21:7:" Press SPACE BAR to continue ";Du16368,0:16384,128:Z(16384):Z160Z155Z141Z0:ME0:ZZ1NS:SC%(ZZ)255ZZSC%(ZZ):ZNZN1E]:ZNMEZZNK]\$^COMPUTE STD.^ZN0:Z0:SD.01:ZZ1NS:SC%(ZZ)255ZNZN1:ZZ((SC%(ZZ)ME)2)8^:ZSDI((ZZN))B^^SORT NUMBERS^C0:ZN0:BLANK,L$,256:ZZ1NS:L$(SC%([GET OUTPUT TYPE#[23400:ZEı0[10800:Hh[GET NAME OR NUMBERr[L$(0)"Student Names":L$(1)"Student Numbers":L$(2)"Both":ZL2PR:ZI0:DTZIDT1(DT3PR)2|[:"You may use:"::ZY(37)1:ZS1:20700:DTZN:]COMPUTE MEAN3]ZN0::23130~PZ:TM4:"If you wish to stop printing and return to a menu, press the Escape Key."::34,(37):35,(37)1:PINITUZ(64435)6(64448)0ĺ(9)"0N":1401,0ZZdZZPRINT CLASS HEADERZOT$;68(OT$))DA$:"Class: "CL$(CN)::DA$""Ģ12:"Please enter the date: ";:BMI,(10,"- ",0),DA$:DA$(27)DA$"":ZE1:FZ:12:"Please prepare your printer...":30000:ZEıKZPINIT:POFF:(952)0ė:12:"You must have a printer attached to use this option.":30000:ZE1:902,0:PR0Z)::HXSAVE CLASS$RXDC%CN:Ry\XAD,TP:ZZ111:ADZZ,GS%(ZZ)::ZZ18:DC$(ZZ)C$(ZZ)""::DN$CL$(CN):W:E:YPRINTER PROMPTY12:"Do you want to use a printer? ";:ZDPR:30100:PR(Z$"Y"):902,PR:m Zİ23200:"Student Name"14)"Number ";:2980:2990r DN%L:X:DN$" "DI$;:2980:2990:ZEE(S):ZELNS:Z0:2935t FEED,1,Zw :ZįFEED| POFF:20300: ZZ19:"! ";::"! !": ZZ179:"-";::"-": C/E/D CATSE(S):ZEZ0:LNS:2880)8 PRįFEED,4,ZS; PRLI(BMTM)2İ30000:Z1:ZELNSh@ :ZPRİ30000yE PRZįFEEDJ PRįPOFF:20300:O T Print Blank Score Sheets^ OT$"Blank Score Sheet":PR1:23100:ZEıh Z1:L1NS:E(S)LNS:dents"- ZEı71 Z1:LI0:L1NS:E(S)LNS:2880D2 Z2870O3 PRė`4 PRİ23200:5 15PR)"Student Name Student I.D.":15PR)"---------------------------------------":LI2:Z06 DN%L:X:15PR)DN$" "DI$:LILI1:PRZE²print/display data( Z4:20000:ZEı1 MZNE 21300:ZE2810 Z$DN$:20500:NS0ė:12:"There are no students in this class.":30000:TMTM2:2810 M2850,2900:TMTM2:2810" Print Class List, 23000:PRİ23100:OT$"List of all stuM,DN$,DN$ :TM4:"You are about to PERMANENTLY delete student "DN$". If":"you want to do this, type 'YES'."::"Do you want to do this? ";:20950:ZE2790 Z$"YES"2720 :12:"Deleting "DN$"...":T:E:NSNS1:2720 TMTM2: TMTM2: delete students6 20150:21300:ZEıH Z$DN$:20500_ NS0İ20600:2790 TM1:1:CS:"What is the name (or I.D. number) of the student you wish to":"delete? ";:20750:ZE2690 21400:ZE2790 Z2720  DN%F:TRI(9,"_- ",1),Z$:ZE(Z$(27)):ZEZ$DI$:(37):13:DI$n SI$Z$:TN$DN$:TI$DI$:20400:DN%F:T:DN$SN$:DI$SI$:A:ER%1ė:12:"That student is already in this class.":DN$TN$:DI$TI$:Ax DN$DN$"":LU,DN$:DI$DI$"":E:N:ZDN%:22400:2620  E2690F 21400:Z2620'P ZE26906U ZF:22200xZ TM:CS:TM4:"Student name: "DN$:"Student number: "DI$::_ 20850:TM8:"New name: ";:BMI,(25,"_- "(126),1),Z$:ZE(Z$(27)):ZEZ$DN$:(37):11:Z$8d SN$Z$::"New number: ";:BMI,a diskette? ";:ZD0:30100:ZEZ$"Y"ZE1:'.20400:CBS,"Grade Manager.",Z:MOVE,Z,256512:L0(QN$)1:755L,((QN$,L1,1))::ZU1:ZE0:ZEįDW,0,00,0512:33040'1ZU1:ZE0:ZEįDW,0,00,0512:33040'3ZE432100N(6:11:"Please re"":L755767:Z$Z$((L))::Z$QN$330409&ZE33025e&$ZEįDR,0,10,1512:(518)25533025&&ZE(518)25533025/'):10:"If this is a Grade Manager data disketteit was created before version 2.0. Are you sure this is a Grade Manager datZU1:ZE0:ZT17(T0):ZEįDR,ZT,0ZT,0512:ZEįDW,ZT,0ZT,0512:WP0:33090i%WP0:ZEZE432100%ZE4ė:11:"Please remove the write-protect tab fromyour "QT$(T)" diskette.":WP1:30000:ZEZU0:%33005+&ZE0:ZEįDR,0,00,0512:Z$33050c$ZV(ZE7)::11:"Please insert your "QT$(T)" diskette for":QN$;:QC2ĺ" in drive "ZD;$QC3ZL953(ZD2)3:" in the drive located at:"::" Slot: "(ZL):" Drive: "(ZL1);$ ".":30000:ZEZU0:$ 33005$WP33090P%ZU1:SET,ZD:ZS704:ZV0:CPRO,ZP:ZPįCPRO,ZPA#ZPįSPRO,ZP#ZE0:ZET1įRFL,"MECC$$DISK"ZS:33200:(TZT)(QN$ZN$)33040#ZVZE7ė:11:"The volume number of this diskette does not match the current setting.":30000:ZEZU0:$T12):ZN(218)(219)256:216,0:32000;"}ZUZE0ZE16ĦT"d}PROGRAMMERS REENTRYs"n}ZE255Ĵ(919)031000:"s}::(4)"CLOSE""x}12:"Error "ZE" at line #"ZN" in "QP$"."::"Please report this error to MECC.":30000:31000"耲DISK VERIFY0#___________";:ZY:ZX:-![v34,TM1:35,BM:>!yMENU ENDINGO!"y54915:1000b!|yNORMAL ENDING!ySET,1:T0:ZD1:WP0:33000:ZE31000!y:12:"Getting the "QN$" Menu...":RNH,"MENU"!y!}ERROR PROCESSING!}ZI0:ZC0:ZF0:POFF&" }ZE(22N%L:X:L$(L)DN$DI$:x/CNCC:21020:L1OS:DN$(L$(L),25):DI$(L$(L),9):A::NSDN%:R:AC61,NS1:22620:CF1:/:Setup Menu 0:"Setup","Grade Manager Menu",4,"Create/Use Class List","Add/Edit/Delete Categories","Choose Grading Method","Begintudents from which class? ";::ZY(37)1:ZI0:ZS0:20700:ZEı.OCSC%(ZN1):Z$"":20800:Z$"From Class: "CL$(OC):20800:DC%OC:R:MSDN%:.TRANSFER THE STUDENTS/24:1:CE::12:"Copying the students...":CCCN:CNOC:21020:OSNS:L1OS:D255:-:DN%L:M:l-L050:ACL,255::L050:SW(L),255::L050:SZ%(L)255::L08:CA$(L)"":-22620:22300:TMTM2:-SELECT ANOTHER CLASS FOR DATA-ZL0:ZZ115:CL$(ZZ)""L$(ZL)CL$(ZZ):SC%(ZL)ZZ:ZLZL1-@.:"Use swill PERMANENTLYdestroy all the score items for the current quarter. If you really want to do this, type 'YES'.",:"Do you really want to do this? ";:20950:Z$"YES"TMTM2:-20400:L1NS:DN%L:X:CA18:B(CA)āIT1B(CA):ASA(IT),Percentage":TP2Z$"Standard Scores"F+TM4:1:"Method: "Z$;:CE+Z$"None":TP0Z$"5-Letter":TP1TP4Z$"12-Letter"+TM3:1:"Scale: "Z$;:CE:TM::+BEGIN NEW QUARTER+20150:21300:ZEıu,20500::"Beginning a new quarter ~12,96,90,87,83,80,77,73,70,67,63,60,0=*5,90,80,70,60,0R*5,65,55,45,35,0}*12,68,65,62,58,55,52,48,45,42,38,35,0*"A ","A-","B+","B ","B-","C+","C ","C-","D+","D ","D-","F "*A,B,C,D,F*UPDATE METHOD TITLES&+Z$"None":TP0Z$"L1)1L1DS%(L)DS%(L1)1])=3695:DS%(L)0LNIāL1LNI1:LL1:DS%(L)0:3695:3690:{)B:3695:3690::CS:3630)jTM1L:24:ZDS%(L1)1(DS%(L1)0)(L1)100:SP(4))Z;:)oTM1L:18:ZDS%(L):SP(4))Z;:)tDEFAULT SCORES DATA(*:ZEıD(3Z$"N"İ20400:L112:GS%(L)DS%(L)::TPT:22600:31000(8ZY:1:CS:L1NI1:BM:1:"Press RETURN to keep the former value.";:3690:ZB0:ZTDS%(L1)(L1)1001:19(ZT10):ZC1:30200:ZC0:ZEı);DS%(L)ZN(ZN$"")DS%(L):DS%(L)DS%(ZBo'ZTZTZB:TZT:REST,376010GT:L1NI:G$(L)::L112:DS%(L)0::TPZTāL1NI:DS%(L)GS%(L)::3620'REST,370010ZT:Z:L1Z:DS%(L):'$:L1NI:13)G$(L)" ";:3695:" -";:3690::(.:"Do you want to change these? ";:ZD0:30100You may use:"::ZY(37)1:ZI0:ZS1:ZL2:20700:ZE3520]& GTZN:GT$(L$(ZN1),15(ZN2))& Z$GM$" - "GT$:20100:Z$GM$:20200:TMTM2:20300:3600:TMTM2:20300:3800:3535&EDIT SCORE INTERVALS'NI57(GT1):ZT(GM2)2:ZBGT:GM2ZB33800:Z6:20000:ZETMTM4:T% GMZN:GM$"Percentage":ZN2GM$"Standard Scores"k% TM4:9:GM$;:CE% Z$GM$:20100:Z$"Choose Grading Method":20200:CS% L$(0)"12-Letter Scale (A, A-, ...)":L$(1)"5-Letter Scale (A, B, C, D, F)"9& TM3:"āITB(CA)11:ZA(IT):L1Z150:ACL11,(ACL1):SZ%(L11)SZ%(L1):SW(L11),(SW(L1)):L1:IT$ AC12931CA,255:CA$(CA)"":22620:22300:21020:3410$ $ choose grading method$ 20150:ZA1:21305:ZEı$ 20500:TMTM2:20300% )". If":"you want to do this, type 'YES'."::"Do you want to do this? ";:20950i#f Z$"YES"ZE3410#p 20400:C$(CA)"":B(CA)3450#u L1NS:DN%L:X:ITB(CA)11:ZA(IT):L1Z150:ASL11,(ASL1):L1:IT:DN%L:M:f$z DC%CN:R:B(CA)"New Name? ";:BMI,(10,"_- ",1),Z$:Z$(27)3315R" C$(CA)Z$:DC$(CA)Z$:3315f"> 20400:22600:}"H DELETE SCORE CATS"R 20150:20350"W :21500:ZE(CA)3490R#\ 20550::11:"You are about to PERMANENTLY delete all scores in category "C$(CA8:C$(L)""ZL:L85! :C$(Z)Z$:CCCC1:CC83218}! :10:"You have now added the maximum number ofcategories.":30000! 20400:22600:! edit score cats! 20150! 20350::21500:ZE(CA)33903" 20850:BM3:"Current name: "C$(CA)::CS:"Current Category Names":O Z0:L18:C$(L)""ĺC$(L)" ("B(L)")":Z1 :ZĢ12:"No categories have been added." ZY(37)2 ZY:1:CS:"Category Name? ";:BMI,(10,"_- ",1),Z$:Z$(27)3290 TRIM,Z$,Z$:Z$""3240! Z0:L1EM" 20350:3550:ZEı3" 20350::21500:ZEıE" 20650:20550" B(CA)Ģ12:"No score items have been entered in thiscategory.":30000:TMTM1:20300:3510)# ZN1:B(CA)1Ģ10:"Which score item would you like to":E$" (1-"B(CA)")? ";:ZB1:PROT$"Letter Grade Key":23200!f ::ZZ1NI:1220PR)G$(ZZ)3);:ZGS%(ZZ):SP(3))Z" - ";:ZGS%(ZZ1)1(GS%(ZZ1)0):SP(3))Z:PRĺ!k PR(16384)155Ĺ16368,0:ZZNI:ZE1!p :PRİ30000!z PRįFEED:POFF! " GET THE CAT AND IT(AS(L$(CT))):Z$(Z):Z255Z$"***"[  (16384)155L2EN:ZZNS:LPA:16368,0:3360y  (SP$Z$,4)" ";:CTCT1 ::FEED,4,Z * :ZįFEED / :POFF:20300: H PRINT GRADE KEY R :20150:20350:23000:ZEı \ PRİ23100:ZEı!!a g LM26(DT2)11(DT1):MC((80LM)6):PA((F1)MC)1:IT1:CA1:OT$"Entire Class, All Scores" L1PA:SCCA:QIIT:ENLMC:ENFENF Z1:ZZ1NS:ZCASC:ITQI:10700 DN%ZZ:X:DT2ĺDN$" "; DT1ĺDI$" ";'  CT1:L2BEEN:Zelect Student":20200:23000:ZE3290C ZA1:10800:ZA0:ZE3290Z TP3OT2SF3260v 10600:SF1:ZSN:22200 C0:3600 TMTM1:20300:3210 PRINT ALL 20150:20350:3550:ZEı PR1:23400:ZEı FZ: PR1:23100:ZEıı`& NPSZ%(A(IT)):C2:ZA(IT):22000:C0:C$"Category: "C$(CA):10500:TMTM2:20300:3105v PRINT INDIVIDUAL SF0 20150:20350:3550:ZEı E$"print":10100:ZEı 21400:ZEı Z3210% SNZ:Z$"Student: "DN$:20800:Z$"S0100:21300:ZEı 20500:TPė:TM4:"You must choose a Grading Method before displaying or printing scores.":30000:TMTM2: Z4:ZF1:20010:ZF0:ZETMTM2: ZN3100,3200,3300,3400:3030 PRINT ONE SET! 20150:E$"print":3500:ZE L$(IT1)L$(IT1)(SP$Z$,3)"/"(SP$(SZ%(Z)),3)" ":QT GET AND TEST CATk^ 20350::21500:ZEıvc 20650h 20550:B(CA)Ģ12:"No score items have been entered in thiscategory.":30000:TMTM1:2910r  PRINT REST,15400:Z$:2verting "DN$;:CE:IT1B(CA):SC%(A(IT))255SC%(A(IT))0S :ZL:22400::El TMTM1:20300:2715 MAKE A SCORE LINE ZA(IT):L$(IT1)(SP$(IT),2):Z$" ":SZ%(Z)Z$"X " L$(IT1)L$(IT1)Z$:Z$(SC%(Z)):SC%(Z)255Z$"***";L:22200:12:1:"Converting "DN$;:CE:CA18:B(CA)2640lF IT1B(CA):SC%(A(IT))255SC%(A(IT))0rK P :ZL:22400::E: convert selected scores TI$L$(ZN1) Z$TI$:20100 2900:ZEı= :L1NS:ZL:22200:12:1:"Con1:20010:ZF0:ZEı, ZN2600,2700:2520D( convert all scores2 Z$L$(ZN1):20100:20350::10:"You are about to convert all missing scores in this class to 0's. Do you really want to do this? ";:ZD0:30100:Z$"Y"ZEı<< :L1NS:Z5600:Z$:20100:20350 ::"This option allows you to automatically change all missing scores to 0's. Sincesome students may have legitimate reasons for a missing score, care shouldbe exercised in using this option." 30000:ZEı Z6:ZF:andard Scores":0d","Use Standard Scores":Ztage Method","Use Standard Scores":<"Choose Grading Method","Setup",2,"Use Percentage Method","Use Standard Scores":2egories|2<"Add/Edit/Delete Categories","Setup",3,"Add Score Categories","Edit Score Categories","Delete Score Categories"2)<MAIN PRINT LOOPY)FLM);:DT2ĺDN$" ";l)KDT1ĺDI$" ";)PZ(ASA(IT)):Z$(Z):Z255Z$"***":G$"NA")UOT23935)Z(SP$Z$,4)" ";)_OT13965)dZ2553960*iNPZ$(Z):G$"NA":30(PRİ23200::C$:CA9ĺ"Score Item: "IT;X$:(PRĺl( :LI0:ZZ02:(P$(ZZ))ĺLM)P$(ZZ):LILI1(:LM);:ZZ1(P$(2)):"-";:::LILI1(SF(ZN$)Z0:3870(DN%L:SFDN%((ZN$,L,1))(X:3900(:ZPRİ30000)(PRA8'PRTMTM1:20300''PRĺ:<'CA:PRZįFEEDJ'PRįPOFFP'c'PRINT ONE SETt'23100:ZEı'Z26(DT2)10(DT1)7(OT2)12(OT1):LM(40(PR1)Z)2'X$"":NPX$"X"'C0(Z1:LI0:L1NSSF(ZN$)SF:Z3865%(A(IT)):SDSD(A(IT)):MEME(A(IT)):ZSC%(A(IT)):10300:Z$" ";n&~Z0:CTCT1:CTMCĺ:LM):CT0:LILI1{&PR3720&LI(BMTM)1İ30000:Z1:ZEITB(CA):CA8&PR(16384)155Z0:16368,0:ZE1:ITB(CA):CA8'IT:PRZİ30000:ZEC" Score":OT3ZT$ZT$")")%3PRĺZT$:C%8CA18:B(CA)3735\%=CT0:PRİ20650:Z1%BPRĺ"Score Category: "C$(CA)::LM);:Z0%GIT1B(CA):Zė:ZT$::LM);:Z0:LI2%LZIT:SP(2))Z;:SZ%(A(IT))ĺ".";:3670%Q"X";B&V" ";:NPSZC(40(PR1)Z):LM(40(PR1)ZMC)24$PR3625Q$23100:ZETMTM1:3210$$OT$"Individual Scores":23200::"Student: "DN$:$)ZT$"":OT2ZT$"Score/Possible":OT1ZT$ZT$" ("$+GT$"Percent":TP2GT$"Standard"%.OT1ZT$ZT$GT$ZTB(CA):30200:ZETMTM1:20300:3510<# ITZN:20450:M# TEST SCORES# ZE0:Z0:L18:ZZB(L)::Zė:11:"There have been no scores entered this quarter.":30000:ZE1# #PRINT INDIVIDUAL SCORES&$Z58(OT2)4(OT1)2(OT3):MNI12ZNI:NI6:OV1}B(55PR)"Score Interval"1010PR)"Frequency":55PR)"--------------"1010PR)"---------":PRĺB(LZSNI:55PR)G$(L)3);:ZGS%(L):SP(3))Z" - ";:ZGS%(L1)1(GS%(L1)0):SP(3))Z;%C(Z(L$(L)):1310PR)SP(3))A(ZI(W(SC%(L))):TP2ZI(T(Z(SC%(L))))`A(ZZ112:ZGS%(ZZ)L$(ZZ)L$(ZZ)(L):ZZ12hA(ZZsA(L:C2A(PRė:TM4:"If you wish to stop printing and return to a menu, press the Escape key."::34,(37):35,(37)1:PACTB(OV0:ZS1:PR10PR)"Mean"2220PRSP(6))Z:ZSD::10PR)"Standard Deviation"820PRSP(6))Zl@(PRİ30000::ZEı@(PRĺ::::POFF:(16384)155Ĺ16368,0:PACT:10486@(Z$"Frequency Distribution":20100@(BLANK,L$,13:C0:L1NS:SC%(L)25510468.0:L25401:(L$(L))0LSL:HSHSL/?(?(ZQN:10PR)"Number of Scores";1020PRSP(6))Z::ZHS:10PR)"Highest Score"1320PRSP(6))Z:ZLS::10PR)"Lowest Score"1420PRSP(6))Z:T@(ZHSLS:10PR)"Range"2120PRSP(6))Z::ZME:of Scores":SF1:PRİ231205>(3810:SF0:ZEįPOFF:>(Z$"Statistical Data":OT$Z$" for One Set of Scores":20100::12:"Computing Standard Deviation...":C2:24100:QNZN>(:PRİ23120:23200::C$:CA9ĺ"Score Item: "IT>(PRĺ::)?(HS0:LS"("1=n(OT1Z$Z$(SP$ZN$,3):OT3Z$Z$") "7=x(D=(FREQUEDw=(Z$"Ordered List of Scores":20100:PRİ20400>(ZN$"":ZA(IT):C2:22000:C0:NPSZ%(A(IT)):24200:L25401:ZN$ZN$L$(L)::ZN$ZN$L$(255):OT$"Entire Class, One Ordered Set 00<( <<(BUILD SCORE STRING<? dװة` ,H h `i &`i &`  ʈ` `mi & & &Ș &)Ji(j`i(j``Ln麎ʎ אLn`, ʎ`DDɅ @O`@DÅ @ii i`Ġ BȱĠ Bȱ `Ġ BȥĠ Bȥ Ln{a `0`>? ^א-Weights","Compute Grades","Use which grading period?",4,"Quarter","Semester 1","Semester 2","Final"r@`;CALCULATE@j;"Calculate Grades","Compute Grades","Use which grading period?",4,"Quarter","Semester 1","Semester 2","Final"@;PRINThA;"Print/Disal Student Scores","All Scores","The Letter Grade Key"LL zfi@ z%{a)_{a)_ڰ̐2  VLn s L  zL L u b0 8 N0 i愊i LV u 9b 8ȱȱ s , V zهG sLzLn u 9 > LB u 90 s 8ȩȩ > ȩ ȩ `Ln h!H !h о8} 0*i8 8@ ȩ Ln   ` u VL u 95 8ȩȩ N8  `Ln u L Pa <LEժՖՖխժժժժխՖխժ G @ޠҩ G @ޠ0 G @ޠ G`HŠ Bh` u 9 ,Ԧ Ln *HhHʊLL @ (L` I @ @ގ @ @掲`$8 @߅=<(LL<{a <` ? `捇 ԍwx @y @z @| @~ @)7 @ @{ @^_ @ީ7L  @߅ @ @g @R cd  @㥠 @`n0 @{ @^_ ( @ @{ @R ԰"egiehj ,00 @l` I @!8n0 <.=/ȩ9Ȣ) 06>=68` I6 m;ⅅm<ⅆ @ @ @{` @{ @::∱^ }` @{ @^_ @ @{ @^_ @ޭ<=>? ʐȐ E`g @R>P>Q ?=<` I @#H @ @h` X @ ԍ;<=∱> @l @ `а/>?6 װ>?2ȱ쨊 אLԠ 7 7 7i#Ǎ7L6LG8Ȍ9i9Lɠ:ʱ}9900^J ȩ @ @ߍ @lݩ @ @ I{ @g @R猇ፈ  @ @g @R猉ፊᩇ h` LE ^װ ` dא  I( @掲 װ` ?> @ =<8?4 e<,8>'>> @ @:M?*DBĺ"GRADE="SC:30000Z?*:TP2ė:12:"Transforming Computed Grades...":10600`?*r?:COMPUTE MENU?:"Compute Grades","Grade Manager Menu",3,"Calculate Grades","Assign/Edit Weights","Print/Display Weights"?:WEIGHTSc@;"Assign/Edit )(ASZ10)1BG1:107400>)SZ%(Z)25510740n>)L1(C$)NPSZ%(Z):SCW(SC%(Z)):TP2SCT(Z(SC%(Z)))>)TT(SCCW%(CA1)):W1W1CW%(CA1)>)DBĺ"SC="SCCW%(CA1),"SW="CW%(CA1)>):T0W11?)C0:SCI(TW1):ASIT,SC:ASIT10,BG:DN%LE:TP310720D=)CA((C$,1)):ZA(1):SZ%(Z)255CW%(CA1)10720Z=)C2:22000:24100=)L1NS:ZL:22200::12:"Calculating "DN$"...":BG0:T0:W10:L11(C$):CA((C$,L1,1)):CW%(CA1)010745=)Z(CA$(CA)):SCSC%(Z):SC255BG1:10745>Z$:IP0:TL0:4500:(#hEDIT COMMENTSG#r20150:20350:10000:ZEı_#w10500:10100:ZEı#|MWL,0,0,F$".COM",IP,TL:IP0:4500:#DELETE COMMENTS#20150:20350#10000:ZEı#10100:ZEı$F$"MECC"ė:12:"You cannot delete thatger diskette.":4135d"":"Comments on this diskette:"::L0ZN1:5:(" "(L1),2)". "L$(L):t"'4900:ZEı"1F0:L0ZN1:Z$L$(L)F1"6:Fė:12:"That Comment is already on this Grade Manager diskette.":30000:ZEı"7F4130#;F$_":::DN$29)SP(3))Z" "G$:30000:ZEı7! 3210K!PRINT PROGRESSc!E:Z1:20000:ZEı!ZN5000,4100,4200,4300:4020!CREATE COMMENTS!20150:20350:10000:ZEı!10500"ZNĢ12:"There are no comments on this Grade Manaber) of thestudent whose grade you would like to display? ";::20750:ZEı] 21400:ZEıj Z3210 Z$"Pct":TP2Z$"Std" ZSC%(IT):24300::9:29)Z$" Letter":"Student Name"28)"Grade Grade"-! "_________________________ _____ _____(3))Z::E(S)Ĺ16368,0:LNI$ L4 FEED:POFF: Q PRINT INDIVIDUAL?& :L$(0)"Print Entire Class":L$(1)"Display Individual Students":9:ZL2:ZY(37):ZS1:ZI0:20700:ZNZN1: DISPLAY INDIVIDUALL :"What is the name (or I.D. numy."::34,(37):35,(37)1:PACT 55PR)"Score Interval"1010PR)"Frequency":55PR)"--------------"1010PR)"---------": L1NI:55PR)G$(L)3);:ZGS%(L):SP(3))Z" - ";:ZGS%(L1)1(GS%(L1)0):SP(3))Z; ZSD(L):1310PR)SP ::POFF:E(S)Ĺ16368,0:PACT:3072\ L112:SD(L)0::C0:L1NS:SC%(L)2553054i ZSC%(L) ZZ112:ZGS%(ZZ)SD(ZZ)SD(ZZ)1:ZZ12 ZZ L:C2! :TM4:"If you wish to stop printing and return to a menu, press the Escape ke020PRSP(6))Z::ZHS:10PR)"Highest Score"1320PRSP(6))Z:ZLS::10PR)"Lowest Score"1420PRSP(6))Z: ZHSLS:10PR)"Range"2120PRSP(6))Z::ZME:10PR)"Mean"2220PRSP(6))Z:ZSD::10PR)"Standard Deviation"820PRSP(6))Z) MEM1:SDS1:2530:SF0:ZEı OT$ZO$": Statistical Data"::12:"Computing Standard Deviation...":Z((C$,1)):22000:C2:24100 :23120:23200: HS0:LS0:L25401:(L$(L))0LSL:HSHSL s ZZN:10PR)"Number of Scores";1C$"Letter ":OT3OC$OC$"and "> OT1OC$OC$"Numeric "U OC$OC$"Grades":b FREQUED M1ME:S1SD:ZN$"":Z((C$,1)):C2:22000:C0:NPSZ%(Z):24200:L25401:ZN$ZN$L$(L)::ZN$ZN$L$(255):ZO$OT$:OT$OT$": Ordered Set":SF1:23120)"--------- "h L1(C$):Z((C$,L,1))51:H$(0)H$(0)(H1$(Z)SP$,6):H$(1)H$(1)(H2$(Z)SP$,6):H$(2)H$(2)"----- ":SZ%(Z51)255ZZ51:22000:24100r w OT2H$(0)H$(0)" Ltr":H$(1)H$(1)"Grade":H$(2)H$(2)"-----"!| OC$"":OT2O ":(ASIT10)1Z$"*"' G$G$Z$:AT BUILD HEADER STRINGS^ H$(0)"":H$(1)"":H$(2)"":DT2H$(0)(SP$,26):H$(1)("Student Name"SP$,26):H$(2)"------------------------- "c DT1H$(0)H$(0)"Student ":H$(1)H$(1)"Number ":H$(2)H$(2";:30100:FD(Z$"Y"):ZEı32 :PR1:23400:ZEıM< (C$)1İ10800:ZEı_F (C$)1OT2pP 23100:ZEıZ 2900:(C$)1OC$"Letter and "OC$d LM(80(H$(2)))2:LM10LM10n 2500:ZEıx FDİ3000  FIX GRADE STRING Z$"<(::/(WFAXAX((CXCW)CW%(CA1)):BFQWQWCW%(CA1)T:2(:AX0QW0QW1m:3(DBĺ"AX="AX",QW="QW:4(WFAXAX100:Z(AXQW):Z101Z101:5(WF10296:6(C0:ZI(AXQW):Z101Z101:8(ASIT,Z:ASIT10,BG:DN%L:M;9(DBĺ"GRADE="Z:";:ZB0:ZT250:30200:ZEıW3,Z$"Scores <= "(ZN):20800:ZB0:ZTZN:5550:TMTM1:k3JMISSING SCORES3O:PR1:10900:ZEı3Q23100:ZEı3TL1NS:ZL:22200:(ASIT10)1İ57003Y:POFF:3|SCORE RANGE3420150:20350::"Choose stuOREj220150:20350::"Choose students with scores greater thanor equal to? ";:ZB0:ZT250:30200:ZEı2Z$"Scores >= "(ZN):20800:ZBZN:ZT254:5550:TMTM1:2LOW SCORE3"20150:20350::"Choose students with scores less than orequal to? report you want to print? ";:20750:ZEıD1d21400:Z5210N1iZEı1nZ$"Select Student":20200:Z$"Student: "DN$:20800:PR1:10900:ZETMTM1:20300:52101s23100:ZETMTM1:20300:52101x5700:POFF:TMTM1:20300:52102HI SCTM1:20300:5039*0ZN5100,5600:506080TMTM3:P0INDIVIDUAL STUDENTj0Z5:ZF1:20010:ZEı0TI$"Choose by "TI$:ZN5200,5300,5400,5500,5450:51100PBY NAME01Z20150:20350::"What is the name (or I.D. number) of thestudent whose 039/(ACIT)255ė:12:"Grades have not been computed for this quarter. You must compute grades beforeyou can print progress reports.":30000:TMTM1:20300:5039/TP2ė:12:"Computing Standard Deviations...":102000Z4:ZF1:20010:ZETM.Z$"Select Comments":20200.:10:"For which quarter would you like to print progress reports? ";:ZB1:ZT4:30200:ZETMTM1:20300:5015.Z$"Select Period":20200/Z$"Quarter: "(ZN):T$Z$:20800:IT50ZN:ZN0:ZETMTM1:20300:5:PM$"Select Progress Report Comments":20150:20350:10000:ZETMTM2:b-10110:ZETMTM2:-Z$"Comment: "F$:20800:20400:10500:MWL,0,0,F$".COM",IP,TL:IP0-Z$"Select Comments":20200:ZD2:T1:33000:ZETMTM1:20300:5015-21020Z$(27)ZE1:3,B(Z$,1)"A"(Z$,1)"Z"4910],L34,TM1:35,BM:23:1:CE:TM:ZE0:x,USE EXISTING COMMENTS,TI$"Use Existing Comments":PM$"Select Progress Report Comments":20150:21300:ZEı,20500I-E:TI$"Use Existing Comments":ZU1:ZE0:ZEįMWS,TL,F$".COM":MF06+@ZE94690X+CZE0:ZEĺD$"DELETE"F$".COM"+E:12:"This diskette is full.":30000+R+$GET COMMENT FILE NAME+.:23:1:"New Comment name? ";:CE:BMI,(15,"- +--_",1),Z$:TRIM,Z$,Z$:Z$""4910,8w name":20700:ZEı#*%ZN146703**4900:ZEıu*/Z$"MECC"ė:12:"That comment cannot be replaced.":30000:*4F$Z$:TM3:1:"Comment: "F$;:CE:4615*>F$"MECC"ė:12:"That comment cannot be replaced.":30000:&+?:12:"Saving "F$"..."):ZD1:T0:33000:ZEıS) ::ZL0:ZU1:ZE0:ZEĺD$"VERIFY"F$".COM"D1$:ZL1k)ZU0:ZE0:ZL4670* :"That comment is already on this Grade Manager diskette.":::ZY(37):ZL2:ZI0:ZS1:L$(0)"Replace the old comment":L$(1)"Save with a ne00:20150:20350:4520$(MF4599(:11:"You have made changes to these comments.Do you really want to throw these changes out? ";:ZD0:30100:ZE4593(Z$"N"4520(TMTM2:(SAVE TEXT(Z$"Save Comments":20100:Z$TI$:20200end of Comments.":(940)2ĺ"Ctrl-J Move cursor up one line.":"Ctrl-K Move cursor down one line."'"Ctrl-S Save Comments."("Ctrl-W Delete a word.":"Ctrl-V Restore a word.":"Ctrl-X Delete a paragraph.":"Ctrl-Z Restore a paragraph.":300&ZE19İ4600:20150:20350:4520&23:1:CE:Z$"Reference Screen":20100:Z$TI$:20200:::"Escape Quit editing.":"Ctrl-B Move to beginning of Comments.":(940)2ĺ"Ctrl-D ";:4540&"Delete ";e'"Delete a character.":"Ctrl-E Move to "YES"4370.%20400:D$"DELETE"F$".COM"D1$N%TMTM2:20300:10000:ZEıX%4306k%EDIT THE TEXT%2:1:CE:TMTM1:Z$"Comment: "F$:20800:MF0%23:1:"Ctrl-R for Reference";:TM:1:MW,40,BMTM1,IP,TL,IP,TL,ZE,Z:MFMFZ:ZE274590# comment.":30000:F$"":ZEı-$F$""4306$Z$"Comment: "F$:2:1:CE:TMTM1:20800:10:"You are about to PERMANENTLY delete this comment. If you really want to do this, type 'YES'."::"Do you really want to do this? ";:20950:ZEı %Z$@P,\8mZ઎W]੠,^ @,a @WੈW @` @ @` @߿ ԅ<= @ @g @R<e<<=PQPPQ` @{ @(^_ х<= @ޤ<=LG I @{ @娌Jሱ9߽ @YLg#,\`c cXPʎY Lgީ,_0 @] @`,\0L,c0Ljޝcc8mZPL @֩PyQ @A I dt`ߪߊ ߮` ~LH)hJJJt`,^ @ @ @ @ @`,a SUS^` , @g @Q @ @,R @߅ @lݭPX,\ QZQ`,_0 ߢY[ A,),Y]L9ߠ[,_0CYrn.LY-,\е,`08n` QL9 P఑,b`  ߮Y9d,_]LRQZPʝtc Tݭ) )b Wީ @ @ I{ ( L2 @{$0( @Pn_ ,L @{$0LR @UL ޠS ݰJ[na_n^$n\- ݰT ݐ ߩ-TભTT ߰ $` More 2 `80,[0&5ͤ.H h n[LVn[i ِͤ׭п `|ܙ`,),` >ۀۀ>((((PPPP(` ܍ܹ܍`$` >H܅܅܈hц$8`2܅Ȅ8 $`______ ܬ̤ܐ,0 `m{ \ $حm{ LT ܬ܈0 `,0܈ \Ό  L,0 2 `2 ک2ͅܐ ܈0Ȍ `2܅Ȅ"ͤܐ,0`{m{ܰ ``څ|܅`ڹ܅ U0 aڌbکaڢ $`ڭ`ͤܐ` . , h ۰20:n[ܠ٥0H ܍ڹ܍h `ژmܢ e0e10ȱ0ȱ010܅܅ $憮ۥ01 $׆ ,500:BA1,0:BA512,0:MWLEG,"-LNPM":MWTC,"[RS":A<0*GET TYPEh<:*ZI0:OTZIOT1(OT3(PRZA))2T2:ZD2:10500:ZEıH20400:D$"OPENEXCHANGE.SEQ"D2$:D$"18:IL%(L)::51,52,56,53,54,58,60,59j ZS704:SET,1:RFL,"MECC$$DISK"704:33200:QN$ZN$:QC(ZS36) REST,15000:Z$:20100:Z$:20200 919,1:21000:PR(902):1000 FAST SUBROUTINES MAIN PROGRAM TM4:BM20 Z0:20000:ZEĹ90.5)10C:Z(I)(IME)(SD(SD0).001):T(I)I1050:W(I)(INP)100x SP(I)I((Z)):D(I)((CA$(I),IT,1)) C2:GINIT,AC,AD,AS,AL:PR(902) DC%0:ER%0:DN%0:DN$"":DI$"":SP$" "' REST,185:L%(Z)255(WFSW%(Z))L1ZN1028079(SZ%(Z)WF10280H9(SZ%(Z)BF19(WFZZSW%(Z)254(SW%(Z)255):CXCXSC(Z)ZZ:CWCWZZ(SZ%(Z)0)9#(WFCXCXSC(Z):CWCWSZ%(Z)9((9*(DBĺ"CX="CX",CW="CW9-(WFAXAXCX:BFQWQWCW:10290:.(CX255),SZ%(80),CL$(15),DC$(8),L$(250),C$(8),CA$(20),SE%(9),IT%(250,8),IL%(8)e D$(4):CT0:QU$(34) S(I)I((Z$)2):A(I)((CA$(CA(CA8)CA),I,1)((CA8)IT)):B(I)(CA$(I)):E(S)((16384)155)I P(I)(I)(I1)256:I(I)(I10CXfer":901,0:CN0U x33100:QT$(2):QT$(0)"program":QT$(1)"data":QT$(2)"exchange"x TM4:BM20:34,TM1:35,BM:TM INITIALIZATION REST,145:ZN:OF%(ZN1):L0ZN1:OF%(L)::16,0,14,13,12,11,10,9,8,7,6,5,4,3,2,1,15J G$(12),GS%(12),SC%(\$ PROGRAM:XFER2PROGRAMMER:S. P. MCCARRONMCOPYRIGHT: MECC, 1985l(LAST UPDATE: 87/05/29 SPM<APP,"COMMON.LIB":8409612256:(175)(176)2562:B18409612256dINITIALIZATIONe32000 n919,0:D$(4):CE868:CS958:QP$"10256-8(CXCXSC(Z)ZZ:CWCWZZ:FF1:ZNL1>8(:F210265}8(F32768:L11B(CA):ZA(L1):ZZ1:SW%(Z)255ZZSW%(Z)8(SZ%(Z)SC%(Z)255SW%(Z)0102608(Z1(CXSC(Z)ZZ)(CWZZ):Z1FFZ1:ZNL18(!9(CX0:CW0:L11B(CA):ZA(L1):SCٽ ٮٽ&ٽ%'L3Uz_j`S縎X]`YٌZمy,0 {܍ܩ8܍ܭ8~ܪ{ܐ{܎ , # eڠܑȭܑȭܑ, `|,iܭ~ܢ͉iܐ`"څy܅z܅" "<ؐ<خ`ؤ΢Ȍؤȩʌ؍؎إإ ؠ' b؈8冪b $`ؽ܍ؽ܍轳܍ؽ܍خؽؐح`բ ٠L3٭FٮG٬H ٭IٮJ٬KL3ٍ mٍ٪eA=?eA?A@ <><>=?`eZפ ܥ2 @Sצ y)@`)I) `@@H?e@??h װ@ ?88` ,؎، <= <ȭ<ȭ<ȭؑ<ȭؑ<><ȥ?< <H<= H <= I ֥D֥E֥BօCօ@օAօ>օ?օ֭֭֩@A ֑  ֠ `@ i @ ȱ ע`,`D D`օDօED`>=?@3<>`=E 8` gեhՠ8ȱG8ժ ձu ȱ ՠ8ȱ ձ>? mְ4p >? mְ!p խՅ<Յ=,`խ8` Վ `Њp         (:CO10265'7(ZN0:LS%(CA)1026557 (WF102537 (F32768:L11B(CA):ZA(L1):SZ%(Z)(SC(Z)255)ZZSC(Z)SZ%(Z):ZZFFZZ:ZNL17 (:102657 (F0:CW0:CX0:L11B(CA):ZA(L1):ZZ1:SW%(Z)255ZZSW%(Z)8(SZ%(Z)SC%(Z)255SW%(Z)0:CX0:BF0:L11B(CA):ZA(L1):SW%(Z)0WF10245b6'SC(Z)SC%(Z):SZ%(Z)SC(Z)255BG1:102456(NPSZ%(Z):COCO1:SC(Z)SC%(Z):WFSZ%(Z)SC(Z)W(SC%(Z)):TP2SDSD(Z):MEME(Z):SC(Z)T(Z(SC%(Z)))6(DBĺ"SC="SC(Z);:WFĺ",NP="NP;6(DBĺ7246L,CW%(10L):5'22620::5'COMPUTE QUARTER GRADESr5'24:1:CE:TP2İ10400:WFāL07:CW%(L)1::WF15':L1NS:ZL:22200:BG0:QW0:AX0::12:"Calculating "DN$"...";:CS:5'CA18:B(CA)0CW%(CA1)102905'DBĺ"CA="CA36'CO0U0::C17010%BZU0::2(ZL1);#$B".":30000:ZEī17010-$BZEı<$BWP17110r$BDR,17,017,016128:ZE0:ZEįDW,17,017,016128$BWP(WP1):ZE4ė:12:"Please remove the write-protect tab":"from your "T$(T)" diskette.":WP2:30000:ZEė:17010$BZU0::V%BZ80##BT2(16128)IBZE0:17080D#BT1(16128)IDZE0:17080#B:10:"Please insert your "T$(T)" diskette":"for "QN$;:ZC(S36):ZC2ĺ" in drive "ZD;$BZC3ZL953(ZD2)3:" in the drive located at:"::" Slot: "(ZL):" Drive: "his? ";:ZD0:30100:OK(Z$"Y")%">T"hBSPECIAL DISK VERIFY USED ONLY DURING COPY"rBZU1:SET,ZD:ZSS0:CPRO,ZP:ZPįCPRO,ZP#|BSPRO,ZP(ZP):ZE0:ZT1:SET,ZD:ZEįDR,34,1534,1516128:ZEįRFL,"MECC$$DISK"ZS:33200:(T0)(TZT)(QN$ZN$)170:"This appears to be a MECC "Z$:"diskette. Are you sure you want to":"erase it? ";:ZD0:30100:OK(Z$"Y")t!>!>MECC$$DISK FOUND!>33200::10">"You are about to erase a "T$(ZT):"diskette for "ZN$".":::"Are you sure you want to do":"tD:CPRO,ZP:ZPįCPRO,ZP:ZPOK1:\ >SPRO,ZP:ZU1:ZE0:ZS640:ZEįRFL,"MECC$$DISK"ZSp >:ZEİ16080: >ZU1:ZE0:Z9503ZD::ZEĺD$"VERIFY LOGO,S"((Z))",D"((Z1))",V"((Z2)) >Z$"program":ZEZ$"data"n!>:10:"WARNING:":nge the Disk Drive Setup","Create a Data Diskette","Copy a Data Diskette"U:CHANGE;"Change Disk Drive Setup","Diskette Support",3,"Select One Disk Drive","Select Two Disk Drives","Select a Special Drive Setup">CAN DISK BE DESTROYED?$ >SET,Ze: ":DF$((OS2)):300:OS2,(Z$):ZEı|8CS:TM17YY:CE:TM7YY:CE:"Copy will look for your "Q$:"diskette in:":TM77YY:"Is this correct? ";:ZD1:30100:Z$"N"144108:MENU DATAI:"Diskette Support","Grade Manager Menu",3,"ChaY CONFIGYJ8YY(Q$T$(T1)):OS9533YY:TM7YY:CS:"Where will your "Q$" diskette be?"T8::ZB1:ZT7:L$" Slot: ":DF$((OS)):300:OS,(Z$):ZEı^8ZB1:ZT2:L$" Drive: ":DF$((OS1)):300:OS1,(Z$):ZEı*h8ZB0:ZT254:L$" VolumS,15163847ZEİ700:14290J7K64QS34ZEįDW,5IS,07IS,1553248W7ZEİ700d7ZU0:IS7Z$"is":EFZ$"could not be"7:11:"The copy of your "T$(T1)" diskette":Z$" finished.":300007500:T0:ZD1:WP0::170007@8GET COPIS4:QS34QS34:x7ZU1:ZE0:ZEįDR,IS,0QS,1516384N7ZEİ700:14290z7K64QS34ZEįDR,5IS,07IS,15532487ZEİ700:142907ZD1:T2:WP1::17000:ZEİ500: 7:12:"Writing to backup diskette...":SET,1:ZU1:ZE0:ZEįDW,IS,0Q4))",V"((955)):SPRO,PT:400:ZEİ500:sF7IB(ID1)256(ID0):16128,IB:ZU1:ZE0:ZEįDW,34,1534,1516128P7ZU0:ZEİ700:14300Z7EF0d7IS0345:TT1:ZD2:WP0::17000:ZEİ500:n7:12:"Reading from "T$(T1)" diskette...":SET,2:QS:z#8  ͠͠͠͠!Ʈ͠ ŮΠӮ͠͠ ͠! ͠͠͠! Ԡ;àҮ̠ ҠԠ "ŠԠҠ&àҲ̠ î͠ äˠՠĠή #Р-ӠG Š;ŠҠϠ ϮʠϠ ̮ʠ! ̮̠!ҠӮΠ(Z$,Z1)-\ (Z$,1,1)" "Z$(Z$,2):3164;^ Z$:3190Db Z11^d FCS," ",Z$,Z:ZZ1Z|g (Z$,1,Z11):Z$(Z$,Z1)h (Z$,1,1)" "Z$(Z$,2):3176i Z$:3190l FCS," ",Z$,Z:Z1$(Z$,1,Z1(Z0)):Z$(Z$,Z(Z0)) n (Z$,1,1)" "Z$(EXCHANGE.SEQ":QN$/? Z0:L07:SE%(L)ZZ1[D :NFZ:NF2:"Last Name":"First Name"iI NF3150K L07:SE%(L)ĺCA$(L)M N NSS L1NS:DI$(L$(L),9):TRIM,(L$(L),25),Z$:NT3170,3180X FCS,",",Z$,Z:Z3170 Z (Z$,1,Z1):Z$L$(L):CA$(L)L$(L)::10000:ZEı( REST,16100:ZL:L0ZL1:L$(L):::"In which form are the student names for this class:":::ZY(37):ZS1:ZI0:20700:ZEı* NTZN2(ZN1)0 3800:3900:ZEOKı: 20400:D$"OPENEXCHANGE.SEQ"D2$:D$"WRITE20:DN%0 TMTM2:, SEND INFORMATIONH 20150:21300:ZECNıS 20500u Z2:ZF1:20010:ZETMTM2: MZN:TI$"Send to "TI$:ZD2:T1:33000:ZETMTM2: M3100,3500:3030 TO LLL!& 20150:20350:REST,16000:ZL:L0ZL1:L18:DC$(L)" ": DN%ZN:TP0:20400:C:ER%ER%9ė:10:"There is not enough room on this data diskette for that many students.";:30000:ZE1:2990 ER%21100 CNDC%:R:TRIM,DN$,DN$:CL$(CN)DN$:L18:C$(L)""::TP0:AC61,1:22620:210_- "(126),1),Z$:35,BM1:ZE(Z$(27)):ZETMTM(OC0)2:Lw 23:1:CEj| TRIM,Z$,DN$:DN$""2930 Z$"":20800:Z$"Class: "DN$:20800 11:"What will be the maximum number of":"students in this class? ";:ZBSN:ZT250:30200:ZE2990 is diskette.":2930fc NC15Ģ12:"There are already 15 classes on this diskette.":30000:ZE1:h :"Current Class Names:"::L1:ZZ115:CL$(ZZ)""ĢTM1L:4(L10):L". "CL$(ZZ);:LL1m =r 23:1:CE:"Class Name? ";:35,24:BMI,(25,"(L$(L))1::L$(0)"NAME"Z0) Z1:8" GET BLOCK, Z(BL8):ZN(BL(Z8))2:DR,Z,OF%(ZN)Z,OF%(ZN)B1:DR,Z,OF%(ZN1)Z,OF%(ZN1)B1256:B1512,13:OFF0:T CREATE CLASS LISTY 21200^ :NC0Ģ12:"There are currently no classes on thrk Reporting Exchange diskette.":30000:A READ FIELD NAMESa L01:SC%(L)(B1253L): BL6:2850:L12:GSB,Z$,B1OFF:OFFOFF(Z$)1::NF(Z$):NF2OFF15(B1OFF)Z0: L01:B1253L,SC%(L)::L01:GSB,L$(L),B1OFF:OFFOFF22620.2 :12:"Transfer complete.":30000:>Z GET STRINGld GSB,Z$,B1OFF:OFFOFF(Z$)1:OFF512ın CT(OFF513):BLBL1:2850:CTįGSB,Z1$,B1OFF:OFFOFF(Z1$)1:Z$Z$Z1$x  DISK ERROR+ :12:"This is not a properly formatted Ma0400:SN1O L1NF:2650:L$(SN)(Z$SP$,25):2650:L$(SN)L$(SN)(Z$SP$,9)n :(B1OFF)SNSN1:2550 ZD2:T1:WP1:33000:ZEı 2900:ZEı( L1SN:DN$(L$(L),25):DI$(L$(L),9):12:1:"Writing "DN$;:CE:A::NSDN%:R:AC61,NS1:12:1:"Writing "DN$;:CE:A::NSDN%:R:AC61,NS1:22620d:12:"Transfer complete.":30000:l MR PN$"Mark Reporting":20150:20350 ZD2:T2:10600:ZEı 958,0:SET,2:CPRO,Z:ZįCPRO,Z:Z12700 SPRO,Z:2800:Z2700  2L:957,(DRDC)1:958,0:DC3āZ02:956Z,(LL37Z):d FILT:901,0:902,0:903,0:RNH,"MENU" (#:11:"THIS PRODUCT REQUIRES AT LEAST 64K OF RAM TO OPERATE."::"THIS APPLE HAS ONLY "(941)"K OF RAM.":16368,0:16384,128:16368,0 }:SLBA8192:230,64:BA,"LOGO":16304,0:16297,0:16299,0:16302,0 BA,"GRADEUTIL.OBJ":BA,"GRADEUTIL.OVL":RFL,"PRINTER COMMANDS.BIN"P(948) (941)64āZ14000::90009 LL704:RFL,"MECC$$DISK"LL:DC(LL36):953,SL:954,DR:955,VO:956,S GRADE MANAGER 2.0,PROGRAM: HELLOJCOPYRIGHT (C) MECC, 1985i(LAST UPDATE: 86/01/15 SPMu32000:(4)"MAXFILES1":::P(X)(X)(X1)256:LP(P(999)):SL(L1)16:DR(L2):VO(L14):(4)"BRUNHELLO.OBJ":(941)489000D   ! +11060:P1$P2$İ11260:L10I *+L1:18:958:214,0:24:1:CE:TM:X 4+ * INPUT >+XA16384:XP1:19:BL$:Z101:WFK,LE$,Z:Z((LE$,Z,1))128:(XP1Z155)FROM11100 C+Z15531000 H+Z140İ11140:11120R+Z142İ11160:L11:Z141:114096132561 :12:"Getting "Z1$"...":RNH,Z$C *GET PASSWORDv +ZT$Z$:Z$"Grade Manager Menu":20200::Z$ZT$ +LE$(12)(13)(14)(8)(27):L32127:LE$LE$(L): +BL$"#######" +11240:18:CS:"Enter your password:":L101:L112PRZ$"DISKETTE SUPPORT"2 AN2PRDRİ14000D  AN1İ14500i ANZ$CN$(A):Z1$MN$(A):4000  AN1ANPRDR1Z1$L$(A1):4000  RUN THE PROGRAM PR$Z$:ZD1:T0:33000:Z$PR$ 24:1:CE:(903)1İ11000:903,1 8704:SET,1:RFL,"MECC$$DISK"704:33200:QN$ZN$:QC(ZS36)N MAIN PROGRAMd TM4:BM20:20300| BE A HELLO PROGRAM 3000:1210 RESPOND TO USER'S CHOICE Z0:ZF2:20010:ZE3010 AZN PRAN2Z$"PRINTER SUPPORT" DRAN0:CE868:CS958:QP$"Menu"T D$(4):P(S)(S)(S1)256:S(S)21((Z$)2) READ IN DESCRIPTIONS AND FORMAT SCREEN REST,16000:DN$,D2$,DV$,N MN$(N),CN$(N) L1N:MN$(L),CN$(L): QT$(1):QT$(0)"program":QT$(1)"data"< ZSr PROGRAM: MENU3PROGRAMMER:SHANE MCCARRONMCOPYRIGHT:MECC, 1983l(LAST UPDATE: 87/05/29 SPM<16384:APP,"COMMON.LIB":DBL,21000,29999:(175)(176)2562dINITIALIZATIONn32000 xDL1:CA0:DR1:PR1:IN0:HO0:DI0:TM4:BM2  e is now ready for Student Mark Reporting.":300008JREAD IN DATA:L1NS:DN%L:X:12:"Reading "DN$:L$(L)DN$:SE%(0)L$(L)L$(L)DI$L117:SE%(L1)IT%(L,L1)(ASIL%(L1))L1:LSE%(8)Z59:22000:24100:L1NS:IT%(L,8)S))8,7)3 L114:SE%(L1)ZIT%(L,L1):24300:G$R :G$"":(AC59)193570 SCIT%(L,8):ZI(W(SC)):TP2ZI(T(Z(SC))) 24300 G$:G$"":(AC60)203580 ZIT%(L,7):24300 G$:L:D$"CLOSE"2:12:"This exchange diskettinal Grade, which Quarter Grade would you like to send? ";:ZB1:ZT4:30200:ZEı L09:SE%(L)0::SE%(0)1:SE%(7)1:SE%(8)1:SE%(ZN)1:3800:3900:ZEOKı 20400:D$"OPENEXCHANGE.SEQ"D2$:D$"WRITEEXCHANGE.SEQ":NS L1NS:(L$(L),(L$(LZ$,2):3182p Z$:Z1$)v SE%(0)ĺDI$U L117:SE%(L1)ZIT%(L,L1):10700:Z$ ::D$"CLOSE"::12:"This exchange diskette is now ready for Labels, Letters, and Lists.":30000: MRT 20150:20350::"In addition to the Final Exam and F 宠 󠨪 䮠 $""Ė11:D2$./:" Direct inquiries to:"/:11:"MECC Distribution":11:"3490 Lexington Avenue North":11:"St. Paul, Minnesota 55126":11:"(612) 481-3527"D/30000:N/6END OPTION6FEZ$"Grade Manager Menu":202006:11:8::XP1:19:BL$:ER1:w,18:"Illegal password. Program terminated.":214,128:958:24:1:868:30000:FE1:14000.SUPPORT BOOK INFO.::"A manual to aid in the use of this diskette is available from MECC.".::" Title: ";DN$:D2)"":XPXP1:112305+XP1:Z$(XP)"":19:958:BL$;+N+ * READ FILE +D$"BLOAD PASSWORD,A760":P2$"":Z317:P2$P2$((759Z3)2)::+ * ERR ,ER0Ģ20:1:"Invalid password -- Try again.";:Z311000::20:1:CE:Z317:Z$(Z3)""Enter your new password:":FROM1:11060:FROM0:Z317:Z$(Z3)""Z$(Z3)" "r+759Z3,(Z$(Z3))2:Z3:20:958+D$"UNLOCK PASSWORD":D$"BSAVE PASSWORD,A760,L7":P2$"":Z317:P2$P2$Z$(Z3)::P1$P2$:+ * BKSP +XP1Ģ19:XP1:"#":Z$(XP1120"\+Z136Z255İ11200:11120Xf+Z159Z255Z$(XP)(Z128):19:XP:"*":XPXP1p+Z1(Z141)(XP7):Z1:P1$"":Z117:Z$(Z1)""Z$(Z1)" "z+P1$P1$Z$(Z1)::+ * LISTPW +20:P2$;:1:Z311000::20:CE:+ * NEWPW L+18:" AC|~}~JUsBsB63Cwx{JUNGKGsBs600p00CBnJ*NGKGsBcB6cCtwutJUNGKGsBsB63CCnJ*N[sBc600`CFJUOZs``wBfgC{9{{ J*^ MBlLC8W0W8JU^BgBlgC k { J*^BCqCFJ*NG_ssbGs00{C3ACFJUNG_99x|bGsvC6ACFJ*NG_`@O@@`dGsBcB6f`CBwJUNG_ DydGsBBCFB;FJ*NG_~||hGsB`B0`Ca]a}}JUNGKGsBgB0gC.5B;J*NGKGBFACFJUNG\gc`ddDgdGOD@CAAGA <B~BBBYCFJUNGKGQF@`Dp`@HB@@_BY_CFJ*NG\OFOdGOG|L|HBAABBGlo`OCFJ*NG\ 8||8dGO~x`FBAQB oBlOCFJUNG]A~'CfgdGP?D@B`ABpAB8ABAABBLBlOCFJ*NG_x03B?eGOaHBAQBBOB`OCFJUNG_BdGQ|0TAA ~~B@@oBLOCFJ*NG_??C*B*B***B*AB*C*BBB3CFJ*NGKGJ`@UCUBUBUUUBUABUCUBOBfFCFJUNGKGN~C*B*B* FBC BBB CFJ*NGKGOCUBWBB@B`@CFJUNGKGOCC@B`ABpAB8A     ^B0xXCFJ*^037B6ACFJU^BC3ACFJ*XA_BBC3ACFJUN[]??B/++*C*BB3?>CFJ*NGKGO?_WUUUBUABUCUBB>0CFJUNGTvGJ((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP                   t BC#< |t=>0)?><@=0)?><@=@ |t>0BDHt&cu'Ch&BDBBC`((((((((((((((((      RETURN :9::"The Escape Key will let you leave what you are currently doing. A message in the lower left corner of the screen shows the destination or result.":30000::MENU DATA:"Grade Manager","Programs and Options",9,"Setup","Add/ing. If you want todo this, press the ESC (Escape) key whenever the computer is waiting for a response. A message which tells you"09PRINT "what will happen when you press Escape is displayed in the lower left corner ofthe screen.": GOSUB 30000:.":9"Exchange Information"::" This option allows GRADE MANAGER to swap data with other MECC products. See the manual for details.":30000:ZEı912000:ZEı&9PRINT:PRINT"The Escape key will let you leave what you are currently dobe entered, and low"m8" scores automatically thrown out":" before grades are computed.":30000:ZEı9::"Print Grade Reports"::" A variety of printed grade reports and student progress reports may be printed through this programchange total points possible, and convert missing scores to zeroes.":30000:ZEı8::"Compute Grades"::" This program calculates grades based on the grading method and score":" intervals specified by the teacher. Weights may also re starting a new quarter."0830000:ZEı8::"Add/Edit/Print Scores"::" Allows teachers to enter scores and print a variety of score reports. Extensive editing options allow the teacher to modify individual scores,"W8" for helping teachers with grading tasks, contains the following programs:":8"Setup"::" Allows teachers to enter class names, add and edit student names, establish score categories, choose a grading method, and erase old scores befo:"Insert another diskette."1630000:ZEFEı96:\6CS(P(P(999))1)16:SLOT #p6CS1CS7CS6z6CS:8DESCRIPTIONS 8:1:CE:DN$;:40(DV$):DV$8Z$"Grade Manager Menu":20200R8::"GRADE MANAGER, a powerful utility0 Q L8XY L8` n | Ȅ< ` ^ 2` nB~CBCBB0 7BC ` n 0 | ` n 7 `DEQ 2` ^ 2` +Rm͐I8mN0@1A ^ 2`L< @" @OPUV,<0:;D`EDƋƊ H h Gٰ$8 ` R셊텋BCBC  G B,=          QL L z @ @{ @BC ^<_=>?B@CAeBeC L  n` @jn<`!Z` @g @RDePEeQ @ @g @RDePEeQ` @ޥ8DE G @ޥ8DE G` @RP88m26Q9m3724<35=,, <<=<6=7` @{ @媭,<-=^8@ 9<ȑ<^_` @M D=eC? `V>=?,W0 @@?<>5=eA=?eA?A@<>,W0 @<>=?`K y`((((PPPP,U0U`L9<Q TTQmQi`D?i`>?>?>> 0J>?>?`B@@eBeC`8@A@A8DDEEDBECDBEC8BC<8B>=C? `8FDGEDE8@A@ADBECDBECeBeC<eB| ɍ |Șe>>?K |,W0 @;:Ъ``PɄ,OP`8Q8 n`,QmJR ,0  ɍ( )@`)? |` ^ 2` N`0`>?8ȱ> 0Șe>>=?,0M>) ߍ猎,̎>0 >>)>(%8e>>?>?>? @L `<=R <0=18e>A?;NN J>$> 1C:PP1L,((IN$,L,1))::LL1O PPL,0:PPL1,255:PPL2,255:10000:eTEST THE PRINTER20150:20350::12:"Please prepare your printer...":30000:ZEı:12:"Testing the printer...":PINIT:"Printer test":'I13:J3295:"^"3270 C143220L CC1:IN$IN$Z$:Z(Z$):Z33Z$" "IN$(Z)" "b P(Z$)39ĺ:P1{ Z$;:PP(Z$):3220 Cĺ"None" 20350:23:1:CE:12::"Are the above commands":"correct? ";:ZD1:30100:ZEı Z$"N"3200" L2:CāL(ZN)X P(Z$)39ĺ:P09b Z$;:ZZ1:PP(Z$):3130bv :14:"Is this OK? ";:ZD0:30100:w GET WEIRD INPUT IN$"":P1:C0:23:1:"Enter Printer Commands, Press ^ to end.";:CE:24:1:CE:TM:1:CS BMI,(0,"-"(0)(127)),Z$:CE:Z$ manual for thecorrect one.":30000- ZEıD 3100:ZEZ$"Y"ıP 3200:f  DISPLAY COMMANDS & :"Current control characters are:": 0 (PP2)0ĺ"None":3190 5 ZPP2:P0 : ZN(Z):ZN3190 D ZN33Z$" "IN$(ZN)" ":3160N Z$ette from this diskette. Be sure that your disk drive door is shut.":30000:OK0:3990 nZE0:ZEĺD$"DELETEHELLO":10400:ZEĺD$"BSAVEMECC$$DISK,A"ZS",L40" ZU0: 'GET SELECTION!'21:CE:BMBM1:20300::"Send which information?":::C%(L):Z(0):+<CREATE A DISKETTE@F10300:ZEOKıtP20400:SNOPRO:ZE0:ZU1:ZEĺD$"INITHELLO"D2$ZZE4ė:11:"Please remove the write-protect tab fromthis diskette.":30000:ZE3990Z dZEė:12:"Unable to create an exchange disk128:2090' ZN((TI$,1)):PP,ZN1284 *10000:N GET SPECIAL COMMANDS` 20150:20350# ::::"The default setting in Grade Manager is to have no Printer Commands. If this setting does not seem to work with your printer, see your printer" Printer":(PP)128Z$Z$" (Slot "((PP)128)")"^ TM3:1:"Setup: "Z$;:CE:TM:1:h MENU 2:1:CS:TM6:BM20:20300 200:Z0:20000:ZE31100 ZN2000,3000,4000:1010 change setting Z1:ZF1:20010:ZEı ZN1ĹPP,(IN$(L)))IN$(L)"Control-"(L64)) L QT$(0)"program":QT$(1)"data" ZS704:SET,1:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:QC(ZS36):919,1:1000 SET TOP LINE Z$"Standard":(PP2)Z$"Custom" (PP)128Z$"Look for "Z$6 Z$Z$1 TO ALLOW USER TO ADJUST PAPER LENGTHX xD$(4):CE868:CS958:QP$"Printer Support"z PP(948)(949)256:Q$(34) L$(9),QT$(1) S(S)S((Z$)2):P(S)(S)(S1)256:SP(S)4((Z))# REST,16000:Z:IN$(Z1):L0Z1:IN$(L):(  PROGRAM: PRINTER SUPPORT<PROGRAMMER: P. BOUCHARDYCOPYRIGHT (C) MECC 1983x(LAST UPDATE: 85/07/31 SPM2GRADE MANAGER VERSION<APP,"COMMON.LIB":DBL,21000,29999:(175)(176)256dINITIALIZATIONi32000& nAPL0:SET TO      move the write-protect tab fromyour "QT$(T)" diskette.":WP1:30000:ZEZU0:Y(833073i(BZU0:ZE0:(LBUILD DRIVE STRINGS(VD1$",S"((953))",D"((954))",V"((955))(`D2$",S"((956))",D"((957))",V"((958))(j)GET DISKEdit/Print Scores","Compute Grades","Print Grade Reports","Exchange Information","General Information","Printer Support","Diskette Support","End">DESCRIPTION DATA>"Grade Manager","","Version 2.3",5>"Setup","SETUP" >"Add/Edit/Print ScoresyBSHANEnenu",2,"Get Information","Send Information"@*:GET INFORMATION*;"Get Information","Exchange Information","Get information from:",2,"Labels, Letters, and Lists","Student Mark Reporting"*`;SEND INFORMATIONR+j;"Send Information","Exchange Informati2ĺ" in":"drive "ZD;y)|)QC3ZL953(ZD2)3:" in the drive located at:"::" Slot: "(ZL):" Drive: "(ZL1);))".":30000:))CONVERT SCORE))Z$(Z):Z255Z$"***"))):DATA FOR MENU+*:"Exchange Information","Grade Manager MP0:10570#(;)WP0:ZEZE432100(@)ZE4ė:11:"Please remove the write-protect tab fromyour "QT$(T)" diskette.":WP1:30000:ZEZU0:(E)10505(J)ZU0:ZE0:(h)GIVE INSERT MESSAGE)r):11:"Please insert your exchange diskette for"PN$;:QCN$ZN$)10545|'):11:ZVZE7ĺ"The volume number of this diskette does not match the current setting.":30000:ZEZU0:')ZV(ZE7):10600:ZEZU0:',)10505'1)WP10570 (6)ZU1:ZE0:ZT17(T0):ZEįDR,ZT,0ZT,0512:ZEįDW,ZT,0ZT,0512:W00&(&(CREATEMECC$$DISKd&(ZS704:LZSZS39:L,0::ZS,2:L1(QN$):ZSL,((QN$,L,1)):j&(&)FIND EXCHANGE DISKETTE& )ZU1:SET,ZD:ZS704:ZV0:CPRO,ZP:ZPįCPRO,ZP&)ZPįSPRO,ZP ')ZE0:ZEįRFL,"MECC$$DISK"ZS:33200:(TZT)(P ";:ZD1:30100:ZEZ$"N"OK0:%P(:10:"Please insert the diskette that you willuse for exchanging";:QC3ĺ" in the drive":"located at:"::" Slot: "(956):" Drive: "(957);%Z(QC2ĺ" in drive 2";%d(".":30000:ZEOK0:&n(ZD2:102$(ZT):"diskette for "ZN$".":::"Are you sure you want to do":"this? ";:ZD0:30100:OK(Z$"Y")h$(~$<(CREATE DATA DISK!%F(::"Creating an exchange diskette will erasewhatever information is currently on thediskette."::"Do you want to continue?ZS#':ZEİ10240:#'+#'Z$"data"#':10:"WARNING:"::"This appears to be a MECC "Z$:"diskette. Are you sure you want to":"erase it? ";:ZD0:30100:OK(Z$"Y")#'#(MECC$$DISK FOUND#(33200::10b$ ("You are about to erase a "T10100:ZYZN1:ZX2:Z$:10040G"j'BMBM1:22:1:CE:23:CE:20300:["t'CREATE POINTERz"~'Z$"-->":SE%(Z)Z$" ""'"'CAN DISK BE DESTROYED?"'SET,ZD:CPRO,ZP:ZPįCPRO,ZP:ZPOK1:#'SPRO,ZP:ZU1:ZE0:ZS640:ZEįRFL,"MECC$$DISK"","SCORES"*>"Compute Grades","COMPUTE"M>"Print Grade Reports","PRINT"p>"Exchange Information","XFER":S":N","Slot 7">INPUT DATA>33,"","","","","","","","","","","","","","Return","","","","","","","","","","","","","","Escape","","","","","Space":,"","Space":Mrade Manager Menu",3,"Set Printer Slot","Specify Printer Commands","Test Printer Setup"q:SET PRINTER LOCATION ;"Set Printer Slot","Printer Support","How is the printer accessed?",7,"Look in Slots 1 and 2","Slot 1","Slot 2","Slot 4","Slot 5","Slot 6(J);:::J96127:(J);:::::FEED\POFF:::12:" Printer test complete.":30000b'SAVE PRINTER COMMANDS FILE'ZD1:T0:WP1:33000:ZEı$':D$"BSAVEPRINTER COMMANDS.BIN,A"PP",L128".':MENU DATAW:"Printer Support","G:ZY(37):ZX10:ZW17:ZI0x!$'22:1:"Use arrows and SPACE BAR to select.";:23:1:"Press RETURN when finished.";:CE!.'L09:SE%(L)0:!8'MENU,L$,ZL,ZX,ZY,(27)(13)" ",128,ZI,ZN,ZE:ZIZN:ZZN:ZE27ZE13ZE(ZE27):10090"B'SE%(Z)SE%(Z):>(Grade ManagerFlculations complete.":30000:TMTM1:<THROW OUT SCORESR L08:LS%(L)0: :"When calculating grades for this quarteryou may elect to throw out the lowest score in one or more categories.";T WFĺ" All the score items within a score hich quarter would you like to":"compute grades? ";:ZB1:ZT4:30200:ZEıQUZN:ITQU50:Z$"Quarter "(ZN):20800:Z$"quarter":2700:Z$"N"ZETMTM1:TP3İ2300:ZETMTM1:&10200:AC50QU,10QU(QU2):22620::12:"Quarter "QU" ca8:B(CA)21454JIT0:B(CA)CW%(CA1)2552135xLZL0:IT1B(CA):ZLZL(SW%(A(IT))255)::ZLZLB(CA)2145WZė:"Weights have not been assigned in":"these categories:"::Z1Y10:C$(CA):IT2145a:Zİ30000:K:12:"For w204COMPUTE QUARTER)>20150:20350?Z0:L18:ZZB(L)::Zė:11:"There have been no scores entered this quarter.":30000:@WFTP2ė:11:"Weights must be assigned when using Standard Scores.":30000:CWF2200HZ0:CA1 COMPUTE GRADES. 20150:21300:ZEı 20500:TPė:TM4:"You must choose a Grading Method before calculating grades.":30000:TMTM2: Z2:ZF1:20010:ZETMTM2: TI$"Compute "TI$" Grades"10000:ZN2100,2400,2400,2500:20$ZN$:QC(ZS36)7 REST,15000:Z$:20100:Z$:20200Z WP1:ZD2:T1:33000:ZE31100| 919,1:21000:PR(902):1000 FAST SUBROUTINES MAIN PROGRAM TM4:BM20:20300 Z0:20000:ZEĹ901,CN:E:31100 ZN2000,3000,5000:1010 D(I)((CA$(I),IT,1))< C2:GINIT,AC,AD,AS,AL:PR(902) DC%0:ER%0:DN%0:DN$"":DI$"":SP$" " REST,185:L1120:CA$(L)::51,52,55,53,54,57,56,58,59,60 ZS704:SET,1:RFL,"MECC$$DISK"704:33200:QN D$(4):CT0:QU$(34)t S(I)I((Z$)2):A(I)((CA$(CA),I,1)):B(I)(CA$(I)):E(S)((16384)155) P(I)(I)(I1)256:I(I)(I10C.5)10C:Z(I)(IME)(SD(SD0).001):T(I)I1050:W(I)(INP)100 SP(I)I((Z)):8:QP$"Compute"A x33100:QT$(1):QT$(0)"program":QT$(1)"data"d TM4:BM20:34,TM1:35,BM:TMx INITIALIZATION 32000 G$(12),GS%(12),SC%(255),SZ%(80),CL$(15),DC$(8),L$(101),C$(8),CA$(20),SD(50),ME(50),P$(2),SW%(51),CW%(20),LS%(8),SC(51)j9 PROGRAM:COMPUTE5PROGRAMMER:S. P. MCCARRONPCOPYRIGHT: MECC, 1985o(LAST UPDATE: 87/08/21 SPM<APP,"COMMON.LIB":(175)(176)2562F(16384)4(16384)132DB1dINITIALIZATIONe32000 n919,0:D$(4):CE868:CS95          !!!!!!!       .L%ɐrs%,, ,`ɯL )8ɀ   Lޤȱ 0:,јe湥 {i|i , ,`rsL<쐥=퐥>鐥?ꐢ NAME AND TYPE)ZN$"":Z1R)ā(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:33220_)΁ZT(ZS)e)؁:1:33220~)΁ZT(ZS))؁:1on","Send information to:",2,"Labels, Letters, and Lists","Student Mark Reporting"_+>OPTIONS+>8,"Student Number","Quarter 1 Grade","Quarter 2 Grade","Semester 1 Grade","Quarter 3 Grade","Quarter 4 Grade","Semester 2 Grade","Final Grade"+>TYPESZ&=*ZI0:OTZIOT1(OT3(PRZA))2=*L$(0)"Raw Scores":L$(1)"Calculated Scores":L$(2)"Both"::"You may use:"::ZY(37):ZS1:ZL2(PRZA):20700:OTZN:=:MAIN MENUO>:"Print Grade Reports","Grade Manager Menu","You may print:",5,"Quarter Gr   ned for this quarter. If you want to do this, type 'YES'."::"Do you want to do this? ";:20950:Z$"YES"ı$ 20400:WF0:L07:CW%(L)255::L051:SW%(L)255::10100:% Z$"N"ı& ZD0:L050:SW%(L)255ZD15 : :"You may alsoweights, Grade":"Manager will use the Total Points methodof grading."! :"Do you want to enter your own":"weights? ";:ZDWF:30100:ZEı" Z$"Y"WF1:3110r# Z$"N"WFė::"You are about to PERMANENTLY delete any grading weights you have defi150:21300:ZEı 20500= Z1:ZF1:20010:ZETMTM2: TI$"Assign/Edit "TI$" Weights":20150:20350:MZN:ZN3100,3400,3400,3500:3010 GET QUARTERF 10000:::"Weights may be entered for score":"categories."::"If you do not enter 255Z$"Y":ZE0:t :11:IT60ĺ"Final grades for this class have alreadybeen calculated. Do you want to":2730 "Grades have already been calculated for this "Z$". Do you want to" "recalculate them? ";:ZD0:30100: A/E WEIGHTS 2060:Z$"final":2700:Z$"N"ZEıw IT60:10700:ACIT,20:22620::12:"Final Grade calculations complete.":30000:( BUILD CATEGORIES2 REST,2650:L1120:Z:CA$(L)(Z)::Z 51,52,55,53,54,57,56,58,59,60 GET CONFIRMATION (ACIT)leasecalculate them before continuing.":30000:` F0:L1(C$):CW%(((C$,L,1))1)255F1 :Fė:10:"An item needed for computing this grade does not have a weight assigned. You must assign its weight before":"continuing.":30000:  IT(AC58)2552530; L1718:(AC(CA$(L)))LC$C$(L)G :2540} L03:Z11L(L1):(AC(CA$(Z)))ZC$C$(Z)  (AC59)19C$C$(19)0 (C$)ė:12:"None of the grades that will make up this grade have been calculated. Pades","Semester 1 Grades","Semester 2 Grades","Final Grades","Progress Reports"e>:PROGRESS REPORTS>;"Select Progress Report Comments","Print Grade Reports",4,"Use Existing Comments","Create Comments","Edit Comments","Delete Comments"?`;INDIVIDUAL must assign its weight before":"continuing.":30000:it IT54SE2:Z$"semester":2700:Z$"N"ZEı~ 10700:ACIT,16SE:22620::12:"Semester "SE" calculations complete.":30000: COMPUTE FINAL 20150:20350:2600:C$"":(AC56)255e grades that will make up this grade have been calculated. Pleasecalculate them before continuing.":30000:q F0:L1(C$):CW%(((C$,L,1))1)255F19r :Fė:10:"An item needed for computing this grade does not have a weight assigned. You in "Z$":"::L18:LS%(L)ĺ" "C$(L)03 :\8 "Is this correct? ";:ZD1:30100:ZEımB Z$"N"2320sL ` COMPUTE SEMESTERj SEZN1:20150:20350:C$"":2600:L02:Z8SE3L:((CA$(Z))AC)ZC$C$(Z)qo :(C$)ė:12:"None of th0100:ZEZ$"N"ı! 4000:ZEı, ZLıx :Z$"this category":Z0:L07:ZZLS%(L)::Z1Z$"these categories"$ Zĺ"You have selected to throw out low scores in no categories."::2360(. "You have selected to throw out the low scorecategory must have the same number of total":"points in order to use this option."; :"Although these scores will not be":"permanently deleted, they will be":"ignored for this calculation." :"Do you want to throw out low":"scores? ";:ZD0:3,>4,"Lastname, Firstname","Lastname,Firstname","Lastname Firstname","Firstname Lastname":mstname":e Lastname":r@@@@rVLOAD STUDENT ZERO SCORESH^VDN%0:X:21100:ZZ060:SZ%(ZZ)(ASZZ)NhVTrVnVLOAD STUDENT N ARRAYVDN%Z:X:TRIM,DN$,DN$:TRIM,DI$,DI$:ZZ079:SC%(ZZ)(ASZZ)::WSTORE STUDENT ZERO ARRAY&WDN%0:X:ZZ079:ASZZ,SZ%(ZZ)::DN%0E1:?T"Use which category? "::ZY(37)1:ZS0:ZI0:20700N$TZECA0:.TZL0:ZZ18:C$(ZZ)""ZLZL1:ZLZNCAZZ:ZZ88T:ULOAD SCORE ITEMUDN%Z:S:ZZ0NS:SC%(ZZ)(ALZZ)::NPSC%(0)VME0:DN%MEI(P(254)DN%)VTM6:CS:"That student is not on this list.":30000:F0:Z0MSZF:Zİ22200SSeSGET CATEGORYTCA0:ZL0:ZZ18:C$(ZZ)""L$(ZL)C$(ZZ)" ("(B(ZZ))")":ZLZL1TTZLĢ12:"This class has no score categories defined.":30000:Z0:SN$Z$:LU,SN$:L(SN$):F0:ZZ1NS:DN%ZZ:X:Z1$DN$"":LU,Z1$:Z2$DI$"":LU,Z2$S(Z2$,1,L)SN$(Z1$,1,L)SN$įTRIM,DN$,Z$:ZF1:TM6:CS:"Is "Z$" the":"student you want? ";:ZD1:30100:Z$"Y"FZZ:ZZNS;SZZZZNSZE::FZEZ0:ZFĢT0:ZEıAUSZT0:ZZ115:CL$(ZZ)""ZTZT1:ZTZNZ1ZZ:ZZ15XWS:Z1CNDC%CN:RqZSZ1CNCNZ1:21020\SNS(ZA)ıfS20500::10:"There are no students in this class.":30000:TMTM2:20300:ZEıpS:21315SGET STUDENTVSZF0:ZE20350:ZD2:T1:WP1:33000:ZEıw>SE:21200:NC0ė:12:"There are no classes on this diskette.":30000:CN0:ZE1:?SZL0:ZZ115:CL$(ZZ)""L$(ZL)CL$(ZZ):SC%(ZZ)ZL:ZLZL1@SCS:"Use which class?"::ZY(37):ZISC%(CN)(CN0):ZS0:2070","C-","D+","D ","D-","F "+lRPROCESS ER%7qRER%ıcvR:12:"GFM ERROR "ER%".":30000:31000xRGET CLASS NAMESRNC0:ZZ115:DC%ZZ:CL$(ZZ)"":R:ER%NCNC1:TRIM,DN$,CL$(ZZ)RER%ER%621100R:4SGET CLASS NAME5SZA0 9S!RER%6CN0:S&RNSDN%:TP(AD):22500:22100:R:DN$DN$"":TRIM,DN$,CL$(CN)0RGS%(0)101:ZZ111:GS%(ZZ)(ADZZ)::Z(TP1TP4):REST,21080Z10:NI57Z:ZZ1NI:G$(ZZ)::XR"A ","B ","C ","D ","F "bR"A ","A-","B+","B ","B-","C+","C Y,ZX(LXZX)23,ZW,(27)(13),ZT,ZI,ET,EL,ZE:ZNEL:ZE(ZE27):23:1:CE:TM:ZEZN0]QoQGET ABSOLUTEQBMI,(3,"YESNOyesno",0),Z$:LU,Z$:ZE(Z$(27)):RINITIALIZE CLASS ON RUNRCN(901):CNıRDC%CN:R:ER%ER%6İ21100:CN0:Z$:TRIM,Z$,Z$:ZE(Z$(27)):3 @QInsert top dataU JQTMTM1:TM3:Z$;:CE:20300i rQRESTORE FORMER |QZ$"Restore former entry":20200: QSELECT A SCROLLING MENU ITEM Q23:1:"Use arrows, then press RETURN.";:CEWQSMENU,L$,ZL,ZX,ZY,LX,L PSELECT A MENU ITEMK P23:1:"Type number, then press RETURN.";:CE PMENU,L$,ZL,4,ZY,(27)(13),ZS,ZI,ZN,ZE:ZE(ZE27):ZNZN1:23:1:CE:TM:ZEZN0 PZNĢZYZN(1ZS)ZS:5:"-->";:TM: P QGET STUDENT NAME QBMI,(25,"- ",1),LASS HEADER? P2:1:CS:3:"Class: "CL$(CN):TMTM2:20300:U FPESCAPE TO SELECTw PPZ$"Select Category":20200: xPNo Students P:12:"There are no students in this class.":30000: PPRINT CATEGORY LINE PZ$"Category: "C$(CA):20800:____________"::TM2:1:Z$;:BM1:Z$;:35,BM:TM1:CS:34,TM1:TM:X ~OSTD BOTTOMj OZ$PM$:20200 OONE MOMENT PLEASE O:12:"One moment please...": OPRINT ITEM LINE OZ$"Item: "(IT):SZ%(A(IT))Z$Z$"X" O20800 PPRINT CYTMZ21:ZI0:20700:ZNTI$L$(ZN1)- \NA NPRINT TOP LINEe N1:1:S(20))Z$;:CE:TM:1:v NPRINT TITLE NZ$TI$:20100 NPrint Escape Line N24:1:"Escape: "Z$;:CE:TM:1: LOPRINT THE LINESH VOZ$"____________________________g! NMenu Driver%NZF00*NZ = Menu Numberi4NREST,15000Z100:Z$:PM$Z$:20100:20300:TM1:CS~>NZF2ćZ$:20200@NZF2Ģ24:1:CECNZFćZ$:TM:1:Z$HNZN:ZS0:ZBMTM(ZN1)(ZF0)3:ZZNZZZN:ZS1' RNL0ZN1:L$(L)::ZLZN:Z             :AC61,(AC61)1((AC61)255)255:22620:2560@ TMTM2:S( edit studentsk2 20150:21300:ZEı7 Z$DN$:20500:NS0İ20600:2690< 20350:TM1:1:CS:"What is the name (or I.D. number) of the student you wish to":"edit? ";:20750:Zr automatic numbering.":(37)1:"Student number: ";:BMI,(9,"_- "(126),0),Z$:Z$(27)2590 TRIM,Z$,DI$:Z$""DI$((AC61)):(37):17:DI$ A:ER%1Ģ(37)1:CS:"That student is already in this class.":30000:ZE2590:25602 NSDN%:R"":Z$"":L115:DN$DN$(((1)26)65):::12:DN$:2575 TM4:"The number of students currently on":"this list is "NS" ("(AC125)").";:CS:::"Student name: ";:BMI,(25,"_- "(126),1),Z$:Z$(27)2590_ TRIM,Z$,DN$:::"Press return fo do this? ";:20950:Z$"YES"ıP~ :12:"Deleting "CL$(CN)"...":D:E:CN0:b add students Z$"Add Students":20100:20350:CFZA1:21305:ZEı Z$DN$:20500 NS(AC125)ė:12:"This class is full.":30000:2590= (RA)DN$"":DI$"New name? ";:20750 ZEı6$ CL$(CN)Z$:22620:M` delete class Listj Z$"Delete Class List":20100:ZA1:21305:ZECNı t :TM4:"You are about to PERMANENTLY delete":CL$(CN)"."::"If you want to do this, type 'YES'."::"Do you want to0ER%21100qCNDC%:R:TRIM,DN$,DN$:CL$(CN)DN$:L18:C$(L)""::TP0:AC61,1:22620:21020:DN%0:CF1OCİ5100TMTM2(OC0):edit class List 20150:ZA1:21305:ZECNı :TM4:"Class name: "CL$(CN) 20850:TM6:11:"What will be the maximum number of":"students in this class? ";:ZBMS:ZT250:30200:ZE2280|L18:DC$(L)" ":DN%ZN:TP0:20400:C:ER%ER%9ė:10:"There is not enough room on this data diskette for that many students.";:30000:228. "CL$(ZZ);:LL123:1:CE:"Class Name? ";:35,24:BMI,(25,"_- "(126),1),Z$:35,BM1:ZE(Z$(27)):ZETMTM(OC0)2:23:1:CETRIM,Z$,DN$:DN$""2240Z$"To Class: ":OCZ$"":20800:Z$"Class: "Z$Z$DN$:20800dady 15 classes on this diskette.":30000:MS1:OC0::11:"Do you want to add students from anotherclass on this diskette? ";:ZD0:30100:ZEıZ$"Y"İ5000:ZEı:"Current Class Names:"::L1:ZZ115:CL$(ZZ)""ĢTM1L:4(L10):L":2010$ 4create/edit/delete class9 >Z3:20000:ZEı_ HCF0:ZN2200,2300,2400:CF2110e R| create class List 21200:20150:20350 :NC0Ģ12:"There are currently no classes on this diskette.":2240-NC15Ģ12:"There are alre FAST SUBROUTINES( MAIN PROGRAM> TM4:BM20:20300c Z0:20000:ZEĹ901,CN:E:31100 ZN2000,3100,3500,4000:1010 create/use Z1:20000:ZEı ZN2100,2500,2600,2700,2800:CF2010 PM$"Create/Use Class List":2500:CF0(S)((16384)155). C2:GINIT,AC,AD,AS,ALR DC%0:ER%0:DN%0:DN$"":DI$"" ZS704:SET,1:RFL,"MECC$$DISK"704:33200:QN$ZN$:QC(ZS36) REST,15000:Z$:20100:Z$:20200 ZD2:T1:WP1:33000:ZE31100 919,1:21000:PR(902):1000QU$(34)K S(I)I((Z$)2):A(I)((CA$(CA),I,1)):B(I)(CA$(I)) P(I)(I)(I1)256:I(I)(I10C.5)10C:Z(I)(IME)SD:T(I)I1050:W(I)(INP%)100 SP(I)I((Z)):SW(I)AC12940(I8)183(I7I27)195(I26)I:En919,0:D$(4):CE868:CS958:QP$"Setup"^ x33100:QT$(1):QT$(0)"program":QT$(1)"data" TM4:BM20:34,TM1:35,BM:TM INITIALIZATION G$(12),GS%(12),DS%(12),SC%(255),SZ%(80),CL$(15),DC$(8),CA%(50),L$(255),C$(8),CA$(8) D$(4):CT0:* PROGRAM: SETUP4PROGRAMMER:S. P. MCCARRONOCOPYRIGHT: MECC, 1985n(LAST UPDATE: 85/11/22 SPM<APP,"COMMON.LIB":(175)(176)2562AIF PEEK ( - 16384) = 146 OR PEEK ( - 16384) = 18 THEN RA = 1dINITIALIZATIONe32000,             (ACL):SZ%(L1)SZ%(L):SW(L1),(SW(L)):b AC50,255:SW(50),255:22620:SZ%(50)255:22300 L1NS:DN%L:X:ZN50āL1ZN150:ASL11,(ASL1): AS50,255:DN%L:M::E 21020 TMTM2:20300:2415 CONVERT MISSING REST,1score item will PERMANENTLY destroy the data. If you want to do this, type 'YES'." :"Do you want to do this? ";:20950:Z$"YES"2490 :12:"Deleting "C$(CA)" "IT"...":Z(0):DC%CN:R:ZNA(IT):ZN502467, LZN150:ACL1,N),3):ZTET:ZIEL:2340)` DELETE SCORE@j Z$L$(ZN1):20100Po 2900:ZEı~ ZN1:B(CA)1Ģ10:"Which score item would you like to delete (1-"B(CA)")? ";:ZB1:ZTB(CA):30200:ZETMTM1:20300:2415_ ITZN:20450::10:"Deleting this ):20900:ZEİ20400:22300:TMTM1:20300:2315n) ITZN:20850:23:1:"Type new value, then press RETURN.";. TM3ELET:ZX(L$(0))1:ZB0:ZT250:30200:ZEZTET:ZIEL:2340B SZ%(A(IT1))ZN:L$(IT)C$(CA)" "(" "(IT1),2)": "(" "(ZCHANGE TOTAL$ Z$L$(ZN1):201004 2900:ZEı :"Total Possible Points in this Category:"::IT1B(CA):L$(IT1)C$(CA)" "(SP$(IT),2)": "(SP$(SZ%(A(IT))),3): ZI0:ZT0/$ 20550:ZLB(CA):ZX10:ZYTM2:LX30:LYBM1:ZW(L$(0)LYBM1:ZW16:20900:ZEİ20400:ZF:22400:E:TMTM1:20300:2220ZITZN:20850:10000TM3ELET:ZX5:ZB0:ZT250:ZC1:35,BM1:30200:35,BM:ZC0:ZEZTET:ZIEL:2240ZN$""ZN255SC%(A(IT1))ZN:ITIT1:2800:ZTET:ZIEL:2240 /20550::E$"edit":10100:ZETMTM1:2210L21400:ZETMTM1:2210YZ2220Z$"Student: "DN$:20800::"Scores in this category: ":IT1B(CA):2800:ZI0:ZT0BZ$"Select Student":20200:ZLB(CA):ZX11:ZYTM2:LXZX13:X" 102001*23:1:CE:TMTM2:20300:2015B4edit scoresj9REST,15300:Z$:20100:21300:ZEıu>20500C3550:ZETMTM2:HZ3:20000:ZETMTM2:RZN2200,2300,2400,2500:2120EDIT INDIVIDUAL20300:20150:2900:ZEı2030"21500:CAZETMTM2:S20550:20650:Z$"Item: "(B(CA)1):20800:12:"What is the total possible points for this item? ";:(RA)ZB0:ZT250:30200:ZE2090(RA)ZN((1)250)1:ZN$(ZN):ZN$ZN0ĢTM3:7:B(CA)1"31100( ZN2000,2100,3000,4000:10108 add scoresP 20150:21300:ZEıf Z$CL$(CN):20500 IT1:L049:(ACL)8ITL:L50 :IT1ė:12:"There are already 50 score items this quarter.":30000:TMTM2:20350:20300:RA(CA):SET,1:RFL,"MECC$$DISK"704:33200:QN$ZN$:QC(ZS36)^ REST,15000:Z$:20100:Z$:20200 WP1:ZD2:T1:33000:ZE31100 919,1:21000:PR(902):1000 FAST SUBROUTINES MAIN PROGRAM TM4:BM20:20300 Z1:20000:ZEĹ901,CN:E:a SP(I)I((Z)):D(I)((C$(I),IT,1)):SW(I)AC12940(I8)183(I7I27)195(I26)I C2:GINIT,AC,AD,AS,AL:PR(902) DC%0:ER%0:DN%0:DN$"":DI$"":SP$" ":T$(0)"program":T$(1)"data"8 ZS704 D$(4):CT0:QU$(34) S(I)I((Z$)2):A(I)((CA$(CA(CA8)CA),I,1)((CA8)IT)):B(I)(CA$(I)):E(S)((16384)155) P(I)(I)(I1)256:I(I)(I10C.5)10C:Z(I)(IME)(SD(SD0).001):T(I)I1050:W(I)(INP)100 n919,0:D$(4):CE868:CS958:QP$"Scores"` x33100:QT$(1):QT$(0)"program":QT$(1)"data" TM4:BM20:34,TM1:35,BM:TM INITIALIZATION 32000 G$(12),GS%(12),SC%(255),SZ%(80),CL$(15),DC$(8),L$(255),C$(8),CA$(8),SD(50),ME(50),P$(2)sE PROGRAM: SCORES5PROGRAMMER:S. P. MCCARRONPCOPYRIGHT: MECC, 1985o(LAST UPDATE: 86/03/10 SPM<APP,"COMMON.LIB":(175)(176)2562AIF PEEK ( - 16384) = 146 OR PEEK ( - 16384) = 18 THEN RA = 1dINITIALIZATIONe32000.                            0,5300:5010-PRINT QUARTER-:WFĢ12:"There are currently no weights assigned for any score items or categories in this class.":30000:-23000:ZE5190-IW0:L050:SW%(L)255IW1:L50-. OT$"Weights for Score Categories":22:1:CE:23:CE:BMBM1:20300:7,SET UP POINTER[,Z$"-->":LS%(SC%(Z))Z$" "a,t,PRINT WEIGHTS,20150:21300:ZEı,10000:20500,Z3:ZF1:20010:ZETMTM2: -TI$"Print "TI$" Weights":20150:20350:ZN5100,5200,520:"Use arrows and SPACE BAR to select.";:23:1:"Press RETURN when finished.";:CE+MENU,L$,ZL,ZX,ZY,(27)(13)" ",128,ZI,ZI,ZE:ZNZI+ZE27ZE13TCCN:ZE(ZE27):4090+LS%(SC%(ZN))LS%(SC%(ZN)):ZZN:4100+ZYZI1:ZX2:Z$:4060#, *4050[*ZL0:ZZ18:C$(ZZ)""L$(ZL)C$(ZZ)" ("(B(ZZ))")":SC%(ZL)ZZ:ZLZL1a**ZLė:12:"This class has no score categories defined.":30000:4090S+21:CE:BMBM1:20300::"Select categories"::ZY(37):ZX10:ZI0:22:1B(CA)1F0:4025G)SCSZ%(A(1)):F0:L2B(CA):SCSZ%(A(L))F1M))FL$(ZL)C$(CA)" ("(B(CA))")":SC%(ZL)CA:ZLZL1*:ZLė:12:"This class has no score categories in which all the Total Points are the same.":30000:4090T:ZE3620(8ZN$""ZN255(BZZN:10300:CW%(7SE3IT(IT1IT4ZL5)(IT4)4)ZN:L$(IT)(L$(IT),(L$(IT))3)Z$:3620(L20400:10100:(THROW OUT LOW SCORES(L18:LS%(L)0:(WF4030(ZL0:CA18:C$(CA)""B(CA)4027)ent weights:"::QY(37):LYBM1:ZW(L$(0)):QX19ZW2:LXQXZW1:ZI0:ZT0z'$Z$PM$:20200:ZXQX:ZYQY:20900:ZE3660 (.ITZN:20850:23:1:"Press RETURN for a missing weight.";:CE:ZYELET1:ZX(L$(0))1:ZB0:ZT250:ZC1:30200:ZC0:ZIEL:ZTE00:L$(L)"Semester "(L1)" "Z$::ZCW%(18):10300:L$(2)"Final Exam "Z$:ZL3:3600& :SE1:L03:ZCW%(10L(L1)):10300:L$(L)"Quarter "(L1)" "Z$::ZCW%(18):10300:L$(4)"Final Exam "Z$:ZL5:3600&GETSEM/FINAL WEIGHTSL'"Curr0:SEZN1%f :L01:ZCW%(7SE3L):10300:L$(L)"Quarter "(L(SE1)21)" "Z$::ZCW%(9SE3):10300:L$(2)"Semester "(SE)" Exam "Z$:ZL3:3600% GET FINAL% 10000:SEZN1Y& (AC56)255(AC58)255ė:L01:ZCW%(16L):103T250:ZC1:30200:ZC0:ZIEL:ZTET:ZE3340>$ ZN$""ZN255$ ZZN:10300:ITCW%(CA1)ZN:L$(0)C$(CA)" "Z$:3340$ SW%(A(IT))ZN:L$(IT)" "C$(CA)(SP$(IT),3)" "Z$:3340$> 20400:10100:TMTM1:20300:3310$H GET SEMS %R 1000"Weights in this category: "::QY(37):LYBM1:ZW(L$(0)):QX19ZW2:LXQXZW1:ZI0:ZT0:ZLB(CA)1# 20550:ZLB(CA)1:ZXQX:ZYQY:20900:ZE3390+$ ITZN:20850:23:1:"Press RETURN for a missing weight.";:CE:ZYELET1:ZX(L$(0))1:ZB0:ZSCORE&" 20150:20350::21500:ZEı" 20650::B(CA)ĺ"No score items have been entered in thiscategory.":30000:TMTM1:" ZCW%(CA1):10300:L$(0)C$(CA)" "Z$:L1B(CA):ZSW%(A(L)):10300:L$(L)" "C$(CA)(SP$(L),3)" "Z$:h# ZL:LXZX14:LYBM1:ZT0:ZI0:ZW14P! 20350:ZYQY:ZLQL:ZX12:20900:ZE3290! CASC%(ZN):20850:ZYZN1:ZX13:ZB0:ZT250:30200:ZIEL:ZTET:ZE3240! CW%(CA1)ZN:ZZN:10300:L$(ZI)(C$(CA)SP$,11)Z$:3240! 20400:10100:" GET CAT + ATEGORYn CA0:ZL0:ZZ18:C$(ZZ)""ZCW%(ZZ1):10300:L$(ZL)(C$(ZZ)SP$,10)" "Z$:SC%(ZL)ZZ:ZLZL1 :ZLė:12:"This class has no score categories":"defined.":30000:TMTM1:#! :"Current category weights:":::QY(37):ZS0:ZI0:QL0N ::"You are about to PERMANENTLY delete any grading weights you have assigned to individual items for this quarter. If you want to do this, type 'YES'."X :"Do you want to do this? ";:20950:Z$"YES"ıb L050:SW%(L)255: GET C assign weights to":"individual score items. If you do not assign them weights, Grade Manager will automatically weight them the same."? :"Do you want to assign weights to individual score items? ";:30100:ZEıD Z$"Y"3300I ZD320$):ZSC%(L1):10300:" "Z$" ";::OT2IT((C$,1)):24300:2800:" "G$;W OT1ĺl E(S)LNS:ZE1 FEED,4,Z:L:ZįFEED POFF:34,TM1:35,BM ( PRINT THE REPORT- ZDFD:SD0::TM4:"Do you want a frequency":"distribution? ((C$,L1,1)):NPSZ%(IT):Z(ASIT):SCZ:NP255NP0SC255SCI(W(Z)):TP2SCI(T(Z(Z)))w SC%(L1)SC:L1 OT2āL11(C$):IT((C$,L1,1)):ZSC%(L1):24300:2800:" "G$" ";:: OT3ĺLM26(DT2)10(DT1));K OT1āL11(CATE POINTER*j Z$"-->":SE%(Z)Z$" "0t H MAIN REPORT OUTPUT C0:Z1:L1NSSF(ZN$)SF:Zİ23200:OC$::LM)H$(0):LM)H$(1):LM)H$(2) DN%L:SFDN%((ZN$,L,1)) X:LM);:DT2ĺDN$" "; DT1ĺDI$" ";d L11(C$):ITL)0:d MENU,L$,ZL,ZX,ZY,(27)(13)" ",128,ZI,ZN,ZE:ZIZN:ZZN1:ZE27ZE13ZE(ZE27):2390 SE%(Z)SE%(Z):2400:ZYZN1:ZX2:Z$:2320V Z$C$:C$"":L1(Z$):SE%(L)C$C$(Z$,L,1)X [ BMBM1:22:1:CE:23:CE:20300: ` CRErades":2600TMTM2:-GET SELECTION 21:CE:BMBM1:20300::"With this you may include:"::::ZL(C$):ZY(37):ZX10:ZW17:ZI0 22:1:"Use arrows and SPACE BAR to select.";:23:1:"Press RETURN when finished.";:CE L1ZL:SE%(25522408L01:L$(L)"Semester "(L1)" Grades":UC$(56)(58):L2:2250_2250L03:L$(L)"Quarter "(L1)" Grades":C$C$(51L):C$C$(59):L$(L)"Final Exam Scores"2300:ZE2290 C$C$(60):OT$"Report of Final G" Exam Scores":C$C$(53SE2):2300:ZE2190s\C$C$(54SE2):OT$"Report of Semester "(SE)" Grades":2600TMTM2:PRINT FINAL20150:21300:ZEı20500:3100:ZE2290ZNIT60:3200:2290C$"":(AC56)255(AC58)arter "(QU)" Grades":2600+*TMTM3:?4PRINT SEMESTER_>SEZN1:20150:21300:ZEıyH20500:3100:ZE2190MZNIT54SE2:3200:2190.RC$"":L01:L$(L)"Quarter "(L1SE2)" Grades":C$C$(50L1SE2)::L$(2)"Semester "(SE)20150:21300:ZEı20500::12:"For which quarter would you like to print grades? ";:ZB1:ZT4:30200:ZETMTM2:QUZN:Z$"Quarter "(QU):20800:C$(50ZN):3100:ZE2090ZN2050IT(C$):3200:2090OT$"Report of QuZ$:20200' ZD2:T1:33000:ZE31100I 919,1:21000:PR(902):1000_ FAST SUBROUTINESq MAIN PROGRAM TM4:BM20:20300 Z0:ZF1:20010:ZEĹ901,CN:E:31100 TI$"Print "TI$ ZN2000,2100,2100,2200,4000:1010PRINT QUARTER REST,185:L09:H1$(L),H2$(L)::"","Qtr 1","","Qtr 2","","Qtr 3","","Qtr 4","Sem 1","Exam","","Sem 1","Sem 2","Exam","","Sem 2","Final","Exam","","Final" ZS704:SET,1:RFL,"MECC$$DISK"704:33200:QN$ZN$:QC(ZS36) REST,15000:Z$:20100:(I)(IME)(SD(SD0).001):T(I)I1050:W(I)(INP)100k SP(I)I((Z)):D(I)((CA$(I),IT,1)) C2:GINIT,AC,AD,AS,AL:PR(902) DC%0:ER%0:DN%0:DN$"":DI$"":SP$" ":T$(0)"program":T$(1)"data"),C$(8),CA$(8),P$(2),SE%(5),H1$(9),H2$(9),H$(2),SD(50),ME(50)X D$(4):CT0:QU$(34) S(I)I((Z$)2):A(I)((CA$(CA(CA8)CA),I,1)((CA8)IT)):B(I)(CA$(I)):E(S)((16384)155)< P(I)(I)(I1)256:I(I)(I10C.5)10C:ZC WRITER.OVL":BA32513:CFPP,0,66,0,5,70,75,0\ n919,0:D$(4):CE868:CS958:QP$"Print" x33100:QT$(1):QT$(0)"program":QT$(1)"data" TM4:BM20:34,TM1:35,BM:TM INITIALIZATION= G$(12),GS%(12),SC%(255),SZ%(80),CL$(15),DC$(8),L$(25589 PROGRAM:PRINT3PROGRAMMER:S. P. MCCARRONNCOPYRIGHT: MECC, 1985m(LAST UPDATE: 86/04/04 SPM<32000:APP,"COMMON.LIB":DBL,21500,21599:DBL,22300,22499:DBL,24000,24099:(175)(176)2562dINITIALIZATIONe32000- iRNH,"MEC                             !  !  Nhb D# D`-#D.#ED`  ### <= <ȭ<ȭ<ȭ#<ȭ#<><ȥ?< <<= H <=#I<#<##`q" ""ȱ h!"8ȱ ">? "6p"5#>6#? "!p ""<"=`""8쭇"`+#*#)#@A %#  # `@ i @ ȱ ;#`,"`, ,`<=ʱD>` <=5#?6# "!)">? "PLj"" 8` "L L L x@8MɭɊ=Le 2 `,0 (!U XT`I`I0, `n! J! { ^_ ( { R !,`L8n! <!=!< =Ѝ ,    [HeL@IABJKy`t%+i0pv$gJm[ :R*fIяSF{[HeL@I܍ABٍJKl`FCFKGSRFRNMWMWMOVSMENMENAPP4RESSNOPRSPRSELUWFGINIFPRCFPGFPMMWLEMWBUMWTMWFMMWPULMWADMWODMWCCMWDBLkc܃J>80d+f vt-AHЏSF{ʆ%$() 6 7 H h6 xɍxͳɌx`% ()`STɁST` ST` yL$8L mͳ   ފ D`FILNOFILPINIPOFPACFEEBMBLANCBTRIDBCPRDDFMFCnc$\ ,c@ 6zy)B6)8|' zy z67  7$x`us5u `St`%8 <(@)DH ʎ`蓎ᓌ㓥7H6H $8x 铈 7x$h6h7`#H,( ,0hHHH,,(`?<>?>,>$f<<`rs @߅$0rs @ @c` Iv ڰ` <=r >u?ݩ?)`H8HHHha {8 $h`а ,,i,,`8,nhhhȱ,0m(AC129222L):84)'L08:CW%(10L)(AC129246L):>4.'O4t'PUT WEIGHTSk4~'DC%CN:R:AC1295,WF4'L07:AC12932L,CW%(L)::L07:AC12940L,SW%(L)::L018:AC129191L,SW%(L8)::L023:AC129222L,SW%(L27):5'L08:AC129 "Z$3PRİ30000(3PRįFEED:POFF.3?3'GET WEIGHTS3'WF(AC1295):WFāL09:CW%(L)255::L051:SW%(L)255::100254$'L07:CW%(L)(AC12932L)::L07:SW%(L)(AC12940L)::L018:SW%(L8)(AC129191L)::L023:SW%(L27) Computations":PRİ23200y2(AC56)255(AC58)255āL01:ZCW%(16L):10300:10)"Semester "(L1)" "Z$::53502L03:ZCW%(10L(L1)):10300:10)"Quarter "(L1)" "Z$:E(S)ZE1:L42:ZE53603ZCW%(18):10300:10)"Final Exam L01:ZCW%(7SE3L):10300:10)"Quarter "(L(SE1)21)" "Z$:1ZCW%(9SE3):10300:10)"Semester "(SE)" Exam "Z$:PRİ300001PRįFEED:POFF11FINAL1:23000:ZEı1PRİ23100:ZEı2:OT$"Weights for Final GradeBMTM)):PRįFEED,4,Z003ZPRİ30000:ZE5190C04:ZPRįFEEDV07ZPRİ30000d0<PRįPOFFj0F~0PPRINT SEMESTER0ZSEZN1::23000:ZE52900dOT$"Weights for Semester "(SE)" Grade Computations":PRİ23100:ZEı0n:PRİ23200J1xB(CA)IW51700/+IT1B(CA):ZPRİ23200R/,ZPRİ30000::LI0:ZE5190/-ZSW%(A(IT)):10300:10PR10)(C$(CA)(SP$(IT),3)SP$,14)Z$:LILI1:E(S)Z0:IT50:CA8:5167/.Z(LI(BMTM)):PRįFEED,4,Z//02IWZĺ:LILI1:Z(LI(pԭp mpԨҹҹҹ%Oӹ&Xӹ'a Ґ%pɩ` Zrq ZLӠ< rЬpȽ`g? mְPLխɅ<%<<*>%>>*@%@@ BE@L`ɪɭ`8`PȱQ @֥>?PPȱQLӱQPQ @ si8囅@圅A<= sԅe`qԩr А` а< , X,lӠӠŠҍԠŠŠԠŠ͠ˍĠӠή`҈ζ Ұ D$8` 8LAӈɪɖ8*Bӽ-BӍBӽ*`pЩэ,p8`ddQюRѩTѢ .TRѐ mQѐTSјmSѐTѬT`0d dddȌѢѢݎ.( 0 0` (P<=:Ҋ0<a {8 :` ,Q,R,T X+JJJJ % "\ {?j;"Create/Edit/Delete Comments","Select Progress Report Comments",3,"Create Comments","Edit Comments","Delete Comments"?;GRADING PERIOD DATA?;"Quarter","Semester 1","Semester 2","Final"?(ʱD>` Lн`н݌$8`ЩэЭ и P:16368,0:16384,128:16368,0- }:SL7 @DATAu J6,"MENU","COMMON.LIB","SCORES","COMPUTE","PRINT","SETUP" ER","MECC WRITER2.OVL","MECC WRITER.OVL" ! ! !!!             ","Low Scores"6A<"Range of Scores","Missing Scores":IWOT$OT$" and Score Items"3.PRİ23100:ZEıX.LI0:Z1:CA18:C$(CA)""5172i.ZPRİ23200{. ZPRė:LI0.#ZCW%(CA1):10300:10PR)"Category: "(C$(CA)SP$,14)Z$:LILI1.%E(S)Z0:CA8:5172.&Z(LI(BMTM)):PRįFEED,4,Z/(TE HEREy^3:12:"This diskette is now prepared to handle data from "QN$".":30000:ZU1:ZE0::ZEĺD$"VERIFY LOGO"D1$h3ZU0:6COPY DISK6T1U1:20150:20350Q6:"Copying a data diskette will erase":"whatever information is currently on t0,0AD@3AD = 16128: & DR,17,0 TO 17,0 AT AD: POKE AD + 60,255: POKE AD + 61,255: POKE AD + 64,255: POKE AD + 65,255: & DW,17,0 TO 17,0 AT ADJ3POKE S,T1: PRINT D$"BSAVE MECC$$DISK,A"S",L$28"D2$: POKE S,0T3ADD ANY FEATURES TO NEWLY CREATED DISKETOK13160:3:12:"Now creating a "T$(T1)" diskette..."]"3DT$D2$:SNOPRO:400:ZE13160,3ZSS:CBS,QN$".",AD:MOVE,AD,25616128:AD16128:Z$"Grade Manager":L0(Z$)1:16371L,((Z$,L1,1))::ZU1:ZE0:ZEįDW,0,00,0AD63ZU0:ZEįDW,0,0"Please insert the diskette that you willuse for storing "T$(T1);2(S36)3ĺ" in the drive":"located at:"::" Slot: "(S37):" Drive: "(S38):" Volume: "(S39);2(S36)2ĺ" in drive 2";3".":30000:ZEı 3ZD2:16000 32Ĺ957,3(954)%.ZC1Ĺ957,(954)+C/<2CREATE DISKN220150:203502T11:::"Creating a data diskette will erase":"whatever information is currently on thediskette."::"Do you want to continue? ";:ZD0:30100:Z$"N"ZE13160A2:11:or":CE:"your "T$(U1)" diskette in:":TM13:"Is this correct? ";:ZD1:30100:ZEıf +Z$"N"11020R+S37,SL:S38,DR:S39,VO[+.SET PAGE 3 VARS.ZC(S36):ZC3Ĺ956,(S37):957,(S38):958,(S39).ZC3Ĺ956,(953):958,254:ZCe will your data diskette be?"a+:ZB1:ZT7:L$" Slot: ":DF$((956)):300:SL(Z$):ZEı+ZT2:L$" Drive: ":DF$((957)):300:DR(Z$):ZEı+ZB0:ZT254:L$" Volume: ":DF$((958)):300:VO(Z$):ZEıT+TM6:CE:QN$" will look f3'S36,SC48':D$"BSAVE MECC$$DISK,A"S",L$28"D1$RB'12000:33100:600:10010e*SPECIAL SETUPw*20150:20350+:"Your PROGRAM diskette was started from:"::" Slot: "(953):" Drive: "(954):" Volume: "(955) +TM6:CS::"Wherd.":30000:EF1:IS34:"320404MAIN PROGRAMT2:1:CS:TM6:BM20:20300r200:Z0:20000:ZE31100ZN10000,13000,14000:1010'CHANGE SETUP'200:Z1:20000:ZEı$'SCZN:SC3İ11000:ZE10010.'T0:ZD1:WP1:33000:ZEı RESTORE DRIVE SETTINGST 953,PS:954,PD:955,PV:956,DS:957,DD:958,DV:33100Z Wr XGET DRIVE SETTINGS bPS(953):PD(954):PV(955):DS(956):DD(957):DV(958)  WRITE/READ ERRORZE8ė:12:"This "T$(T)" diskette is damagehe write-protect tab fromthis diskette.":30000::ZE1420,499R ZE0:ZEįFMT` ZE4420 ZU0:ZE8ė:12:"Unable to create a "T$(T1):"diskette from this diskette. Be sure that your disk drive door is shut.":30000: ZE32100  1:"Setup: "Z$;:CE:TM 7 ,SLOT,DRIVE,VOL INPUTk 6ZC1:L$;:17:"["DF$"]";:12:30200:ZC0:ZEı ;Z$ZN$:Z$""Z$DF$ @ZY:12:Z$;:CE:  INIT DISK ZU1:ZE0::ZEĺD$"BSAVE JUNK,A0,L1"DT$? ZE4ė:12:"Please remove tp":T$(3)"student":T$(4)"results":T$(5)"word lists":L05:QT$(L)T$(L):\ 901,1:1000t SHOW CURRENT SETUP Z$"One Disk Drive":Z(S36):Z1Z$"Two Disk Drives":Z3Z$"Special (S"((S37))",D"((S38))",V"((S39))")" TM3:?f kPN$"Grade Manager":QP$"Diskette Support":CE868:CS958:S(S)S((Z$)2):SP(S)S((Z))| nD$(4):QU$(34) x33100 S16064:S016000:RFL,"MECC$$DISK"S ZSS:33200:QN$ZN$:600K U11:T$(0)"program":T$(1)"data":T$(2)"backu DISKETTE SUPPORT-TEXT=PROGRAMMER: ANDY HOLLENBECKZCOPYRIGHT (C) MECC 1984y(LAST UPDATE: 85/07/10 SPM<APP,"COMMON.LIB":DBL,21000,29999:(175)(176)256d901,0:32000f:(4)"MAXFILES1":16000 iCR1:Use create option"" " " " " """""""""