' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 7777777 7777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*` @ii i`Ġ ȱĠ ȱ p`Ġ ȥĠ ȥ L'{a `0`z>?{z ;א-JzL'>?z Aװة{`z ,{H h |`i `iL' fi נּL5  + 4`  +L4  F  0  e 4`L'麎p{ʎz oאL'`p,{ {ʎz`DDɅ @O`@Dé \ fi'  ه2  L' +  +L4 + LY +L4  b X jO  ff < O נּ +Lȱȱ  Q, V هG L3L'  L  0  ȩȩ ȩ ȩ 4`L'  Ȅ  L' '   \  ȩ L'   + 4`  L4  5 ȩȩ 8  4`L'  L4 P0  \ 0 \i愊i L  b  r @ޠҩ r @ޠ0 r @ޠ r`HŠ 협hp`   ,Ԧ L' *HhHh!H !h о8} 0*i8 8@ I @ @ގ @ @掲`$8 @߅=<(LtL^<{a <` Ñ?= Ñ= `/. 0 |ԍ @ @ @ @! @ @# @ @% @ @' @ @) @ @* @ @{ @-^+_, @ @1 @ @2 ) @ެ3_ @ީL  @߅ @ @g @RPQ @㭠 @`n @{ @^_ @( @ @{ @R ԰"egiehj ,0 @l` I @!8n Q<= @e I׭<=<=Ѝ,, `` I  mⅅmⅆ @ @ @{` @{ @∱^ T` @{ @^_ @ @{ @^_ @ޭ<=>? ѐȐ p` @) @ @{ @^H @ @h` / @ |ԍ∱ @l @ Fа/>? kװ>?2ȱ쨊 kאLԠ   i#ǍLz LrȌiLɠʱT900ȩȢ)   @lݩ @ @ I{`a @g @R^_  @ @g @R`a^ N` Lp ;װ ` Aא  I( @掲 oװ` ?> @ =<8?4 e<,8>'>> @ @g @R>P>Q Ñ?=<` I @#8 @.ੈ. @` @ @` @߿ |ԅ<= @ @g @R<e<<=PQPPQ` @{ @(^_ xх<= @ޤ<=Lr I @{ @娌!ሱ^! ȩ @ @ߍ:/'ʎ0 L>ީ,60 @4 @`,30L,:0LAޝ::8m1'L @֩PyQ @A I ;K`ߪߊ k߮` ~LuH)hJJJK`,5 @ @ @ @ @`,8 @',38m1઎.4੠,5 @,"-"(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:!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(22:DN%L:X:L$(L)DN$DI$:z/CNCC:21020:L1OS:DN$(L$(L),25):DI$(L$(L),9):A::NSDN%:R:AC61,NS1:22620:CF1:/:Setup Menu0:"Setup","Grade Manager Menu",4,"Create/Use Class List","Add/Edit/Delete Categories","Choose Grading Method","Beg students 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),255:-:DN%L:M:n-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-B.:"User will 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"H+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ıw,20500::"Beginning a new quarte**~12,96,90,87,83,80,77,73,70,67,63,60,0?*5,90,80,70,60,0T*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 DATA00:ZEıF(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)DS3ZBq'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:301"You 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:GM2ZB 3800:Z6:20000:ZETMTM4:V% GMZN:GM$"Percentage":ZN2GM$"Standard Scores"m% 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)";& TM3:A)ā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%CA)". If":"you want to do this, type 'YES'."::"Do you want to do this? ";:20950k#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:h$z DC%CN:R:B(C:"New Name? ";:BMI,(10,"_- ",1),Z$:Z$(27)3315T" C$(CA)Z$:DC$(CA)Z$:3315h"> 20400:22600:"H DELETE SCORE CATS"R 20150:20350"W :21500:ZE(CA)3490T#\ 20550::11:"You are about to PERMANENTLY delete all scores in category "C$(18:C$(L)""ZL:L87! :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)33905" 20850:BM3:"Current name: "C$(CA)::CS:"Current Category Names":Q 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:Ld in thiscategory.":30000:TMTM1:20300:3510" ZN1:B(CA)1Ģ10:"Which score item would you like to":E$" (1-"B(CA)")? ";:ZB1:ZTB(CA):30200:ZETMTM1:20300:3510" ITZN:20450:" TEST SCORES?# ZE0:Z0:L18:ZZB(L)::Zė:11:(GS%(ZZ1)0):SP(3))Z:PRĺK!k PR(16384)155Ĺ16368,0:ZZNI:ZE1]!p :PRİ30000q!z PRįFEED:POFFw! ! GET THE CAT AND ITEM! 20350:3550:ZEı! :21500:ZEı! 20650:20550/" B(CA)Ģ12:"No score items have been entere:CTCT1 ::FEED,4,Z* * :ZįFEED? / :POFF:20300:T H PRINT GRADE KEYu R :20150:20350:23000:ZEı \ PRİ23100:ZEı a PROT$"Letter Grade Key":23200!f ::ZZ1NI:1220PR)G$(ZZ)3);:ZGS%(ZZ):SP(3))Z" - ";:ZGS%(ZZ1)1s"' L1PA:SCCA:ENLMC:ENFENFH Z1:ZZ1NS:ZCASC:10700f DN%ZZ:X:DT2ĺDN$" ";y DT1ĺDI$" "; CT1:L2BEEN:Z(AS(L$(CT))):Z$(Z):Z255Z$"***" (16384)155L2EN:ZZNS:LPA:16368,0:3360  (SP$Z$,4)" ";:SF1:ZSN:22200 C0:36008 TMTM1:20300:3210G PRINT ALLe 20150:20350:3550:ZEı{ PR1:23400:ZEı FZ: PR1:23100:ZEı LM26(DT2)11(DT1):MC((80LM)6):PA((F1)MC)1:IT1:CA1:OT$"Entire Class, All ScorePRINT INDIVIDUAL SF08 20150:20350:3550:ZEıT E$"print":10100:ZEıe 21400:ZEır Z3210 SNZ:Z$"Student: "DN$:20800:Z$"Select Student":20200:23000:ZE3290 ZA1:10800:ZA0:ZE3290 TP3OT2SF3260 10600:20100:21300:ZEı 20500F Z4:ZF1:20010:ZF0:ZETMTM2:h ZN3100,3200,3300,3400:3030{ PRINT ONE SET! 20150:E$"print":3500:ZEı& NPSZ%(A(IT)):C2:ZA(IT):22000:C0:C$"Category: "C$(CA):10500:TMTM2:20300:3105 > L$(IT1)L$(IT1)(SP$Z$,3)"/"(SP$(SZ%(Z)),3)" ":TT GET AND TEST CATn^ 20350::21500:ZEıyc 20650h 20550:B(CA)Ģ12:"No score items have been entered in thiscategory.":30000:TMTM1:2910r  PRINT REST,15400:Z$Converting "DN$;:CE:IT1B(CA):SC%(A(IT))255SC%(A(IT))0V :ZL:22400::Eo 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$"***":ZL:22200:12:1:"Converting "DN$;:CE:CA18:B(CA)2640oF IT1B(CA):SC%(A(IT))255SC%(A(IT))0uK P :ZL:22400::E: convert selected scores TI$L$(ZN1) Z$TI$:20100 2900:ZEı@ :L1NS:ZL:22200:12:1:":ZF1:20010:ZF0:ZEı/ ZN2600,2700:2520G( 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ı?< :L1NST,15600: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:andard Scores":0d","Use Standard Scores":Ztage Method","Use Standard Scores":<"Choose Grading Method","Setup",2,"Use Percentage Method","Use Standard Scores":2ategories~2<"Add/Edit/Delete Categories","Setup",3,"Add Score Categories","Edit Score Categories","Delete Score Categories"2'C$(CA)::LM);:Z0@%GIT1B(CA):Zė:ZT$::LM);:Z0:LI2n%LZIT:SP(2))Z;:SZ%(A(IT))ĺ".";:3670x%Q"X";%V" ";:NPSZ%(A(IT)):SDSD(A(IT)):MEME(A(IT)):ZSC%(A(IT)):10300:Z$" ";%~Z0:CTCT1:CTMCĺ:LM):CT0:LILI1&PR3"Student: "DN$:J$)ZT$"":OT2ZT$"Score/Possible":OT1ZT$ZT$" ("q$+GT$"Percent":TP2GT$"Standard"$.OT1ZT$ZT$GT$" Score":OT3ZT$ZT$")"$3PRĺZT$:$8CA18:B(CA)3735$=CT0:PRİ20650:Z1%BPRĺ"Score Category: ""There have been no scores entered this quarter.":30000:ZE1E# b#PRINT INDIVIDUAL SCORES#Z58(OT2)4(OT1)2(OT3):MC(40(PR1)Z):LM(40(PR1)ZMC)2#PR3625#23100:ZETMTM1:3210$$OT$"Individual Scores":23200::Z(L$(L)):1310PR)SP(3))Z:PRĺ:(16384)155Ĺ16368,0:L12IB(cB(PRİ30000:ZE10490B(PROVNI12:ZS7::OV0:10476B(PRįFEED:POFFB(B)PRINT ONE SETC)ZDFD:SD0:FD0:NPė:10:"Do you want a frequency":"distribution? "37)1:PACT3A(OV0:ZS1:PRNI12ZNI:NI6:OV1A(55PR)"Score Interval"1010PR)"Frequency":55PR)"--------------"1010PR)"---------":PRĺA(LZSNI:55PR)G$(L)3);:ZGS%(L):SP(3))Z" - ";:ZGS%(L1)1(GS%(L1)0):SP(3))Z;CB(0:L1NS:SC%(L)25510468L@(ZI(W(SC%(L))):TP2ZI(T(Z(SC%(L))))~@(ZZ112:ZGS%(ZZ)L$(ZZ)L$(ZZ)(L):ZZ12@(ZZ@(L:C2 A(PRė:TM4:"If you wish to stop printing and return to a menu, press the Escape key."::34,(37):35,(ge"2120PRSP(6))Z::ZME:10PR)"Mean"2220PRSP(6))Z:ZSD::10PR)"Standard Deviation"820PRSP(6))Z?(PRİ30000::ZEı?(PRĺ::::POFF:(16384)155Ĺ16368,0:PACT:10486?(Z$"Frequency Distribution":20100@(BLANK,L$,13:C "IT>(PRĺ::G>(HS0:LS0:L25401:(L$(L))0LSL:HSHSLM>(>(ZZN:10PR)"Number of Scores";1020PRSP(6))Z::ZHS:10PR)"Highest Score"1320PRSP(6))Z:ZLS::10PR)"Lowest Score"1420PRSP(6))Z:r?(ZHSLS:10PR)"Ran"Entire Class, One Ordered Set of Scores":SF1:PRİ23120T=(3810:SF0:ZEįPOFF:=(Z$"Statistical Data":OT$Z$" for One Set of Scores":20100:SDė:12:"Computing Standard Deviation...":C2:24100>(:PRİ23120:23200::C$:CA9ĺ"Score Item:(SP$(NP),3)" ":OT3Z$Z$"("P*D>:COMPUTE MENU>:"Compute Grades","Grade Manager Menu",3,"Calculate Grades","Assign/Edit Weights","Print/Display Weights">:WEIGHTS5?;"Assign/Edit Weights","Compute Grades","Use which grading p40@=)L1(C$)NPSZ%(Z):SCW(SC%(Z)):TP2SCT(Z(SC%(Z)))g=)TT(SCCW%(CA1)):W1W1CW%(CA1)=)DBĺ"SC="SCCW%(CA1),"SW="CW%(CA1)=):T0W11=)C0:SCI(TW1):ASIT,SC:ASIT10,BG:DN%L:M=*DBĺ"GRADE="SC:30000,>*:TP2ė:#;F$Z$:IP0:TL0:4500:/#hEDIT COMMENTSN#r20150:20350:10000:ZEı_#w10100:ZEı#|MWL,0,0,F$".COM",IP,TL:IP0:4500:#DELETE COMMENTS#20150:20350#10000:ZEı#10100:ZEı$F$"MECC"ė:12:"You cannot delete thatthis Grade Manager diskette.":4135k"":"Comments on this diskette:"::L0ZN1:5:L1". "L$(L):{"'4900:ZEı"1F0:L0ZN1:Z$L$(L)F1"6:Fė:12:"That Comment is already on this Grade Manager diskette.":30000:ZEı#7F4130____________________ _____ ______":::DN$29)SP(3))Z" "G$:30000:ZEıX! 3210l!PRINT PROGRESS!Z1:20000:ZEı!ZN5000,4100,4200,4300:4020!CREATE COMMENTS!20150:20350:10000:ZEı'"ZNĢ12:"There are no comments on :"What is the name (or I.D. number) of thestudent whose grade you would like to display? ";::20750:ZEı~ 21400:ZEı Z3210 Z$"Pct":TP2Z$"Std" ZSC%(IT):24300::9:29)Z$" Letter":"Student Name"28)"Grade Grade"N! "_____3))Z;> ZSD(L):1310PR)SP(3))Z::E(S)Ĺ16368,0:LNIE LU FEED:POFF[ r PRINT INDIVIDUAL?& :L$(0)"Print Entire Class":L$(1)"Display Individual Students":9:ZL2:ZY(37):ZS1:ZI0:20700:ZNZN1: DISPLAY INDIVIDUALm rn to a menu, press the Escape key."::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(ard Deviation"820PRSP(6))ZJ ::POFF:E(S)Ĺ16368,0:PACT:3072} L112:SD(L)0::C0:L1NS:SC%(L)2553054 ZSC%(L) ZZ112:ZGS%(ZZ)SD(ZZ)SD(ZZ)1:ZZ12 ZZ L:C2B :TM4:"If you wish to stop printing and retuZN:10PR)"Number of Scores";1020PRSP(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)"StandZO$OT$:OT$OT$": Ordered Set":SF1:23120@ 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  Z(1)H$(1)"Grade":H$(2)H$(2)"-----"Z| OC$"":OT2OC$"Letter ":OT3OC$OC$"and "w OT1OC$OC$"Numeric " OC$OC$"Grades": FREQUED+ ZN$"":Z((C$,1)):C2:22000:C0:NPSZ%(Z):24200:L25401:ZN$ZN$L$(L)::ZN$ZN$L$(255):0)H$(0)"Student ":H$(1)H$(1)"Number ":H$(2)H$(2)"--------- "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$:ZEıx FDİ3000 0 FIX GRADE STRINGQ Z$" ":(ASIT10)1Z$"*"` G$G$Z$:zT BUILD HEADER STRINGS^ H$(0)"":H$(1)"":H$(2)"":DT2H$(0)(SP$,26):H$(1)("Student Name"SP$,26):H$(2)"------------------------- "Gc DT1H$(:SD0::TM4:"Do you want a frequency":"distribution? ";:30100:FD(Z$"Y"):ZEıl2 :PR1:23400:ZEı< (C$)1İ10800:ZEıF (C$)1OT2P 23100:ZEıZ 2900:(C$)1OC$"Letter and "OC$d LM(80(H$(2)))2:LM10LM10n 2500)255CW%(CA1)10720,<)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<)(ASZ10)1BG1:10740=)SZ%(Z)255107E(L)ME;(:%;h)TRANSFORM COLUMND;r)C2:ZIT:22000:24100:C0];w)DBĺ"SD="SD,"ME="ME;|)L1NS:ZL:22200:(ASIT)255ĹASIT,I(T(Z((ASIT)))):DN%L:M;):;)COMPUTE SEM/FIN;)24:1:CE:TP310720<)CA((C$,1)):ZA(1):SZ%(ZRADE="Z:30000I::(:TP2ė:12:"Transforming Quarter Grades...":10600O:;(`:<(MAKE STRING:F(Z$(SP$(Z),3):Z255Z$"***":P(:(COMPUTE STD;(:12:"Computing Standard Deviations...":C2:L050:SZ%(L)255ZL:22000:24100:SD(L)SD:M:20800:ZB0:ZTZN:5550:TMTM1:63JMISSING SCORESN3O:PR1:23100:ZEız3TL1NS:ZL:22200:(ASIT10)1İ57003Y:POFF:3|SCORE RANGE320150:20350::"Choose students with scores from? ";:ZB0:ZT250:30200:ZEı"4Z1ZN:ZX6:" greater thanor equal to? ";:ZB0:ZT250:30200:ZEıs2Z$"Scores >= "(ZN):20800:ZBZN:ZT254:5550:TMTM1:2LOW SCORE2"20150:20350::"Choose students with scores less than orequal to? ";:ZB0:ZT250:30200:ZEı"3,Z$"Scores <= "(ZN)21400:Z52101iZEıw1nZ$"Select Student":20200:Z$"Student: "DN$:20800:PR1:10900:ZETMTM1:20300:52101s23100:ZETMTM1:20300:52101x5700:POFF:TMTM1:20300:52101HI SCORE5220150:20350::"Choose students with scores3:0INDIVIDUAL STUDENT50Z5:ZF1:20010:ZEıq0TI$"Choose by "TI$:ZN5200,5300,5400,5500,5450:5110~0PBY NAME0Z20150:20350::"What is the name (or I.D. number) of thestudent whose report you want to print? ";:20750:ZEı1dmputed for this quarter. You must compute grades beforeyou can print progress reports.":30000:TMTM1:20300:5037/TP2ė:12:"Computing Standard Deviations...":10200/Z4:ZF1:20010:ZETMTM1:20300:5037/ZN5100,5600:50600TMTM 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:5037u/(ACIT)255ė:12:"Grades have not been co$"Select Progress Report Comments":20150:20350:10000:ZETMTM2:_-10110:ZETMTM2:-Z$"Comment: "F$:20800:20400:MWL,0,0,F$".COM",IP,TL:IP0-Z$"Select Comments":20200:ZD2:T1:33000:ZETMTM1:20300:5015c.:10:"For whichZ$(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ı,20500F-TI$"Use Existing Comments":PM: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$eP劭eQ f g R}}}} g RP}8m}}Q}m}}}}<}}=,, <<=<}=},` { 媭,<-=^8@ Ց<ȑ<^_` ㊅<䊅= ,` c)(0@, ߅ &,`L  !"#$銥% , Lq H ҏ h ޭ 񋭇 !"#`  ,` { 6⍠^*)+-8@"㍝` ` g R㊍ g R߅$0  c`Lv g R<= J<=mLK,, !}*, ޭm) n ޭ ` 抮bΝ0 L`b θ0 L` { 媤^_ C, ҏ(ȑ`L { 媤^_„7S슰= :8BCeB@iA@劥A抰 FBLp`H)hJJJ拢JLƋ括 ` m`B!B!  p< `8` D늰Lc 8 g R @A튈 p`8`#m犨犅銅m슅(LL׭늍͊͊ @A p͊8͊ c ``H ,h`,0 ۆ<>=?`ꊰ `((((PPPP,0`LՊL< mi`㊅<䊅=< <<=L`,,`m犨芰 # ;!` 1L g@AA8㊅D䊅EDBECDBEC8BC<8B>=C? `8DEDE8@A@ADBECDBECeBeC<eB>=eC? `>=?,0 ۆ@?<>5=eA=?eA?A@<>0: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 MENUI=:"Print Grade Reports","Grade Manager Menu","You may print:",5,"Quarter Grades",T1Z$Z$(SP$ZN$,3):OT3Z$Z$") "-;(;;0*GET TYPEb;:*ZI0:OTZIOT1(OT3(PRZA))2;D*L$(0)"Letter Grades":L$(1)"Numeric Grades":L$(2)"Both"::"You may use:"::ZY(37):ZS1:ZL2(PRZA):20700:OTZN:;*GET SCORE OUTPUT TYPE <*ZI255Z$"***":P(+:(BUILD OUTPUT STRINGB:(10300:OT2Z$""]:(NP0ZN$"***":10440m:(OT110440:(C0:ZNI(W(Z)):TP2ZNI(T(Z(Z))):(ZN$(ZN):Z255ZN$"***":(OT2Z$(SP$Z$,3)"/"(SP$(NP),3)" ":OT3Z$Z$"("';(OECTION FROM USER Y9~':"Comment files:"::ZY(37):ZS0:ZI0:ZLZN:20700:ZEık9'F$L$(ZN1):9'COMPUTE STANDARD DEVIATIONS9'L1050:SZ%(L1)255ZL1:22000:24100:SD(L1)SD:ME(L1)ME9':9<(MAKE STRING :F(Z$(SP$(Z),3):ZSDSD(ZZ):MEME(ZZ):ZSC%(ZZ):10400:Z$" ";P8Z0:CTCT1:CTMCĺ:LM):CT0}8E(S)Z0:16368,0:ZE1:L1B(CA):CA88L1::8CA857158'GET COMMENT FILES8'WP1:ZD1:T0:33000:ZEı8$':FCN,".COM",L$,ZN:9t'GET COMMENT SEL2GT$"Standard"B7OT1ZT$ZT$GT$" Score":OT3ZT$ZT$")"M7ZT$:g7CA18:B(CA)6087p7CT07"Score Category: "C$(CA)::LM);:Z07L11B(CA):ZZA(L1)7ZL1:SP(2))Z;:SZ%(ZZ)ĺ".";:60707"X";,8" ";:NPSZ%(ZZ): Date: ";:Z(ASIT):24300:2800:G$::"Comments:":P6bFPRT,BA,1,Z,ZE:FEEDV6r6pPRINT INDIVIDUAL SCORE6uZ58(OT2)4(OT1)2(OT3):MC(80Z):LM(80ZMC)26ZT$"":OT2ZT$"Score/Possible":OT1ZT$ZT$" ("7GT$"Percent":TP:POFF:34,TM1:35,BM:,5WHOLE CLASSB5ZB0:ZT255:5550T5DPRINT REPORT5I"Progress Report for "DN$:"Class: "CL$(CN):"Quarter: "IT50:5N"Current Scores (*** means missing score)"::60005SZEįFEED:579066X:"Estimated Grade to to? ";:ZBZN:ZT250:30200:ZEın4Z$"Scores from "(Z1)" to "(ZN):20800:ZBZ1:ZTZN:5550:TMTM1:4PRINT SCORES IN A RANGE4:PR1:10900:ZEı423100:ZEı4L1NS:ZL:22200:SC%(IT)ZBSC%(IT)ZTİ5700:ZEĹ16368,0:LNS57".":30000:ZEİ500:f 7DC2TT1:ZD2:WP0:33000:PTZP:ZU1:ZE0:ZEįDR,34,1534,15161287ZU0:ZEİ700:143007ID(16128)(7ZD1:1600027OKZEİ500:+<7:12:"Preparing your backup diskette...":DT$",S"((953))",D"((950:ZTZE:PTZP:ZU1:ZEįDR,34,1534,1516128<6ZTİ500:U6ZU0:ZEİ700:143006:12:"Please insert your backup diskette";:(S36)2ĺ:"in drive 1 and your "T$(T1)" diskette":"in drive 2";6(S36)3DC2ĺ:"and your "T$(T1)" diskette";hebackup diskette."::"Do you want to continue? ";:ZD1:30100:Z$"N"ZEİ500:l6DC(S36):DC3140406Z$"Special Copy Setup":20100:Q$"backup":14400:ZEQ$T$(T1):14400:DC(D1$D2$)16ZEİ500:-6ZT0:ZE0:DC1TT1:ZD1:WP0:33001,CN:E:31100& ZN2000,3000:1010; GET INFORMATIONU Z1:ZF1:20010:ZEı TI$"Get from "TI$:ZN2100,2500:2010 4LLL 9PN$"Labels, Letters, and Lists":20150:20350 >T2: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:102909.(CXCWCW1O9/(WFAXAX((CXCW)CW%(CA1)):BFQWQWCW%(CA1)e92(:AX0QW0QW1~93(DBĺ"AX="AX",QW="QW94(WFAXAX100:Z(AXQW):Z101Z101:1029696(C0:ZI(AXQW):Z101Z10198(ASIT,Z:ASIT10,BG:DN%L:M:9(DBĺ"G255),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%(o$ PROGRAM:XFER2PROGRAMMER:S. P. MCCARRONMCOPYRIGHT: MECC, 1985l(LAST UPDATE: 85/09/16 SPM<APP,"COMMON.LIB":8409612256:(175)(176)2562:B18409612256dINITIALIZATIONe32000 n919,0:D$(4):CE868:CS958:QP$"(CA):ZA(L1):SC%(Z)255(WFSW%(Z))L1ZN10280H8(SZ%(Z)WF10280Y8(SZ%(Z)BF18(WFZZSW%(Z)254(SW%(Z)255):CXCXSC(Z)ZZ:CWCWZZ(SZ%(Z)0)8#(WFCXCXSC(Z):CWCWSZ%(Z)8((8*(DBĺ"CX="CX",CW="CW9-(WFAXAXCX:BFQWQWCWBC ^<_=>?B@CAeBeC ,L  ,`!a` g RPLePMeQ g RLePMeQ` ޥ8LM ޥ8LM `|}y=,, <<=<ȑ<^_` U  L?B@CAeBeC ,Lҏ  ,`!` g RePeQ g RePeQ` ޥ8㊨ ޥ8㊨ `P         CA):ZA(L1):SZ%(Z)(SC(Z)255)ZZSC(Z)SZ%(Z):ZZFFZZ:ZNL1O7 (:102657(MECXCO:F32768:L11B(CA):ZA(L1):ZZSW%(Z)254(SW%(Z)255):SZ%(Z)SC%(Z)255(WFSW%(Z)0)102607(ZZ(SC(Z)ME)ZZ:ZZFFZZ:ZNL17(28(CX0:CW0:L11B)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ĺ6(:CO102656(ZN0:LS%(CA)102656 (WF10254B7 (F32768:L11B(TP2İ10400:WFāL07:CW%(L)1::WF1t5':L1NS:ZL:22200:BG0:QW0:AX0::12:"Calculating "DN$"...";:CS:5'CA18:B(CA)0CW%(CA1)102905'DBĺ"CA="CA5'CO0:CX0:BF0:L11B(CA):ZA(L1):SW%(Z)0WF102456'SC(Z)SC%(Z):SZ%(ZU0::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#?  ͠͠͠͠!Ʈ͠ Ԡ ͠͠ ͠! ͠͠͠! Ԡ: àҮ̠ ҠԠ "ŠԠҠ&!̮ʠ î͠ äˠՠĠή #Р-ӠF Š:ŠҠϠϮʠϠ ̮ʠ̮̠!ҠӮΠ(Z$,Z1)-\ (Z$,1,1)" "Z$(Z$,2):3164;^ Z$:3190Db Z11jd FCS," ",(Z$,Z1),Z:ZZ1Z:3172g (Z$,1,Z11):Z$(Z$,Z1(Z10))h (Z$,1,1)" "Z$(Z$,2):3176i Z$:3190l FCS," ",Z$,Z:Z1$(Z$,1,Z1(Z0)):Z$(Z$,Z(Z0))n 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  2,(DRDC)1:958,0:DC3āZ02:956Z,(LL37Z):^ 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 }:SL 230,64:8192,"LOGO":16304,0:16297,0:16299,0:16302,0:8192,"GRADEUTIL.OBJ":8192,"GRADEUTIL.OVL":RFL,"PRINTER COMMANDS.BIN"P(948) (941)64āZ14000::90003 LL704:RFL,"MECC$$DISK"LL:DC(LL36):953,SL:954,DR:955,VO:956,SL:957 GRADE MANAGER 2.0,PROGRAM: HELLOJCOPYRIGHT (C) MECC, 1985i(LAST UPDATE: 85/09/20 SPMu32000:(4)"MAXFILES1":::P(X)(X)(X1)256:LP(P(999)):SL(L1)16:DR(L2):VO(L14):(4)"BRUNHELLO.OBJ":(941)489000   +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:114096152561 :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: 85/09/20 SPM<16384:APP,"COMMON.LIB":DBL,21000,29999:(175)(176)2562dINITIALIZATIONn32000 xDL1:CA0:DR1:PR1:IN0:HO0:DI0:TM4:BM2  is exchange diskette is now ready for Student Mark Reporting.":30000K]READ 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:24100NS:(L$(L),(L$(L))8,7)F L114:SE%(L1)ZIT%(L,L1):24300:G$e :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"E:12:"Thhe Final Exam and Final 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 L1(Z$,1,1)" "Z$(Z$,2):3182+p Z$:Z1$<v SE%(0)ĺDI$h L117:SE%(L1)ZIT%(L,L1):10700:Z$ ::D$"CLOSE"::12:"This exchange diskette is now ready for Labels, Letters, and Lists.":30000: MRg 20150:20350::"In addition to tD# D`-#D.#ED`  ### <= <ȭ<ȭ<ȭ#<ȭ#<><ȥ?< <<= H <=#I<#<##`<C? "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! <!=!< =Ѝ ,   $""Ė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 utilityMMWLEMWBUMWTMWFMMWPULMWADMWODMWCC (w6Z!agpqLA5&d:8:?>,>$f<<` @߅$0 @ @c` IvSj =o$H)ph0,q0RLx67 ڰ` <=ݜ >ݠ?Ȑ۩`?)8鍸ζ`H88HHHha {8 $h`а ,,i,,`8,nHhhIhL.ɐyz.,, ,`ɯL\ 8ɀ   Lޤȱ 0:,јe湥 i!i Ñ , ,`yzL<=>?      @,) @߅ @lݭ'/,3 (1(`,60 ߢ02 ,),04Lߠ2,60C0rn.L0-,3е,708n7 (L '఑,9`  ߮09;,64L߽ @0L>#,37: W) X Y Z)9 .ީ @ @ I{ ( L @{$0( @'n6 ,L @{$0L) @,Lݠ* ݰJ[n8_n5$n3- k ݰ+ ݐ kߩ-+ભ++ u߰*,*^` , @g @( @h] t n+L&n+i tِ׭_п `Lܙ`,),_` PP((((PPPP( ܝ` ܍ܹ܍`)(1'ʝK: +݄ `______ ۬]tܐ,Z0 ] `\mtK\ , ح\mtK L$ ۬]܈0] `,Z0t܈\ ,\ L\,Z0 2] `2] ک2Uܐ U܈0Ȍ `2T܅RȄԠ ` More 2] `80,+0&5t.H ۻ`=څL܅=ڹ_܅ ;0 >ڌ?ک>ڢ =ڭ=tܐ` . , 80:n+ܠu  ڐްH y܍~ڹz܍h `ژm\܍ iȱ0ȱ1`܅^܅Ҡ 憮ڥ01 ׆Ҡ ` HV܅W܅X܈hц$8`2T܅RUz_j`S縎X]`6ٌ7مI,Z0 K܍tܩ\]8\܍]ܭR8NܪKܐK܎t ,[ Bڠ\ܑȭ]ܑȭ_ܑ,Z `L,[i^ܭNܢ`Yitܐ`مI܅J܅ ٭tܐ,Z0`tK\mtKܰ ΢Ȍؤȩʌ؍؎vإإ gؠ' ?؈8冪? `ؽ܍ؽ܍轃܍ؽ܍خؽؐح͡`բ ؠL٭#ٮ$٬% ح&ٮ'٬(Lٍ m؍تؽ خؽؽL`e7פ ܥ2 @0צ )@`)I) `@@H?e@??h gװ@ ?88` ,׎׌ <= <ȭ<ȭ<ȭב<ȭב<><ȥ?< <H<= H <= I<א<׮`ؤօ>օ?օ֭֭֩@A ֑  ֠ `@ i @ ȱ kע`,f`D D`օDօED`>=?@3<>)=eA=?eA?A@ <><>=?gեhՠȱ> ձo ȱ Ñՠ8ȱ ձ>? Hְ4p >? Hְ!p խՅ<Յ=,`խ8쭰` ÑՎ FЊp g֥D֥E֥BօCօ@օA荻ҹҹ5ӹ>ӹG |Ґ%\ɩ` Z^] ZLӠ< ^Ϭ\Ƚ`g? HְPLխ; 8` >*@%@@ (E@L`ɪɭ`8`PȱQ @֥>?PPȱQLӱQPQ @ _i8囅@圅A<= _ԍm`]ԩ^ А` u а<\ԭ\ m\Ԩ荲ҹ,lӠӠŠҍԠŠŠԠŠ͠ˍĠӠή`҈Μ Ұ *$8` 8L'ӈɪɖ8*(ӽ-(Ӎ(ӽ*<%<<*>%>dd7ю8ѩ:Ѣ .:8ѐ m7ѐ:9јm9ѐ:Ѭ:`0d dddȌrѢsѢt.s(t 0s 0r` (P<= Ҋ0<a {8 ᩧ` ,Q,R,T X+JJJJ % "\  , XpU#٭_$٭j%٭S&٭X'٭](٭P7 {ʎz`<=ʱD>` Lн`н݌$8`ЩЍЭ и`pЩЍ,p8`          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$te an exchange diskette 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 :L1NS:IT%(L,8)SC%(L):'Z(0):><CREATE A DISKETTESF10300:ZEOKıP20400:SNOPRO:ZE0:ZU1:ZEĺD$"INITHELLO"D2$ZZE4ė:11:"Please remove the write-protect tab fromthis diskette.":30000:ZE3990m dZEė:12:"Unable to crea128: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.1",5>"Setup","SETUP" >"Add/Edit/Print ScoresoBSHANEn","Grade Manager Menu",2,"Get Information","Send Information"S*:GET INFORMATION*;"Get Information","Exchange Information","Get information from:",2,"Labels, Letters, and Lists","Student Mark Reporting"*`;SEND INFORMATIONe+j;"Send Information",kette for"PN$;:QC2ĺ" in":"drive "ZD;)|)QC3ZL953(ZD2)3:" in the drive located at:"::" Slot: "(ZL):" Drive: "(ZL1);))".":30000:))CONVERT SCORE))Z$(Z):Z255Z$"***"))):DATA FOR MENU>*:"Exchange InformatioDW,ZT,0ZT,0512:WP0:105706(;)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 disS:33200:(TZT)(PN$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:ZEK0:&n(ZD2:10200&(1&(CREATEMECC$$DISKw&(ZS704:LZSZS39:L,0::ZS,2:L1(QN$):ZSL,((QN$,L,1)):}&(&)FIND EXCHANGE DISKETTE& )ZU1:SET,ZD:ZS704:ZV0:CPRO,ZP:ZPįCPRO,ZP&)ZPįSPRO,ZP ')ZE0:ZEįRFL,"MECC$$DISK"Zu want to continue? ";: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:ZEOabout to erase a "T$(ZT):"diskette for "ZN$".":::"Are you sure you want to do":"this? ";:ZD0:30100:OK(Z$"Y"){$($<(CREATE DATA DISK4%F(::"Creating an exchange diskette will erasewhatever information is currently on thediskette."::"Do yoEįRFL,"MECC$$DISK"ZS*#':ZEİ10240:0#'>#'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::10u$ ("You are "B'SE%(Z)SE%(Z):10100:ZYZN1:ZX2:Z$:10040Z"j'BMBM1:22:1:CE:23:CE:20300:n"t'CREATE POINTER"~'Z$"-->":SE%(Z)Z$" ""'"'CAN DISK BE DESTROYED?"'SET,ZD:CPRO,ZP:ZPįCPRO,ZP:ZPOK1:#'SPRO,ZP:ZU1:ZE0:ZS640:Z","SCORES"*>"Compute Grades","COMPUTE"M>"Print Grade Reports","PRINT"p>"Exchange Information","XFER":?","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","Ginformation?"::::ZY(37):ZX10:ZW17:ZI0!$'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):100902>(Grade ManagerFU2):22620::12:"Quarter "QU" calculations complete.":30000:TMTM1:_THROW OUT SCORES :"When calculating grades for this quarteryou may elect to throw out the lowest score in one or more categories.";a WFĺ" All the score items wia:Zİ30000:n:12:"For which 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:I10200:AC50QU,10QU(Q8:B(CA)21454JIT0:B(CA)CW%(CA1)2552135nLZL0:IT1B(CA):ZLZL(SW%(A(IT))255)::ZL2145RIT1B(CA):SW%(A(IT))2552140WZė:"Weights have not been assigned in":"these categories:"::Z1Y10:C$(CA):IT2145\204COMPUTE 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)<8 PROGRAM:COMPUTE5PROGRAMMER:S. P. MCCARRONPCOPYRIGHT: MECC, 1985o(LAST UPDATE: 85/09/17 SPM<APP,"COMMON.LIB":(175)(176)2562F(16384)4(16384)132DB1dINITIALIZATIONe32000 n919,0:D$(4):CE868:CS95          !!!!!!!       NAME AND TYPE)ZN$"":Z1R)ā(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:33220_)΁ZT(ZS)e)؁:"Exchange Information","Send information to:",2,"Labels, Letters, and Lists","Student Mark Reporting"r+>OPTIONS,>8,"Student Number","Quarter 1 Grade","Quarter 2 Grade","Semester 1 Grade","Quarter 3 Grade","Quarter 4 Grade","Semester 2 Grade","Final "Semester 1 Grades","Semester 2 Grades","Final Grades","Progress Reports"_=:PROGRESS REPORTS=;"Select Progress Report Comments","Print Grade Reports",4,"Use Existing Comments","Create Comments","Edit Comments","Delete Comments"=`;INDIVIDUALu>j; {` > >ʈ` >{`mi & & &Ș )Ji(j`ʈ` `mi & & &Ș )Ji(j`Z$"N"WFė::"You are about to PERMANENTLY delete any grading weights you have defined 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:ms. If you do not enter weights, Grade Manager will automatically assign them weights equal to their total possible points when"! "calculating grades."::"Do you want to enter your own":"weights? ";:ZDWF:30100:ZEı" Z$"Y"WF1:3110# IGHTS 20150:21300:ZEı( 20500J Z1:ZF1:20010:ZETMTM2: TI$"Assign/Edit "TI$" Weights":20150:20350:MZN:ZN3100,3400,3400,3500:3010 GET QUARTER 10000:::"Weights may be entered for score":"categories and score ite (ACIT)255Z$"Y":ZE0: :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 WE000:- IT60:Z$"final":2700:Z$"N"ZEı 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 CONFIRMATIONalculated. Pleasecalculate them before continuing.":30000:m 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.":30(AC56)255(AC58)2552530H L1718:(AC(CA$(L)))LC$C$(L)T :2540 L03:Z11L(L1):(AC(CA$(Z)))ZC$C$(Z)  (AC59)19C$C$(19)= (C$)ė:12:"None of the grades that will make up this grade have been c"Create/Edit/Delete Comments","Select Progress Report Comments",3,"Create Comments","Edit Comments","Delete Comments">;GRADING PERIOD DATA>;"Quarter","Semester 1","Semester 2","Final">(TYPESm,>4,"Lastname, Firstname","Lastname,Firstname","Lastname Firstname","Firstname Lastname":D@@@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/09/16 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)):e AC50,255:ACSW(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 RESscore 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)D PROGRAM: SCORES5PROGRAMMER:S. P. MCCARRONPCOPYRIGHT: MECC, 1985o(LAST UPDATE: 85/09/19 SPM<APP,"COMMON.LIB":(175)(176)2562AIF PEEK ( - 16384) = 146 OR PEEK ( - 16384) = 18 THEN RA = 1dINITIALIZATIONe32000.                           weights assigned for any score items or categories in this class.":30000:b-23000:ZE5190-IW0:L050:SW%(L)255IW1:L50-- OT$"Weights for Score Categories":IWOT$OT$" and Score Items"-PRİ23100:ZEı.LI0:Z1:CA18S%(SC%(Z))Z$" ",,,PRINT WEIGHTSD,20150:21300:ZEıV,10000:20500x,Z3:ZF1:20010:ZETMTM2:,TI$"Print "TI$" Weights":20150:20350:ZN5100,5200,5200,5300:5010,PRINT QUARTERN-:WFĢ12:"There are currently no shed.";:CED+MENU,L$,ZL,ZX,ZY,(27)(13)" ",128,ZI,ZI,ZE:ZNZIl+ZE27ZE13TCCN:ZE(ZE27):4090+LS%(SC%(ZN))LS%(SC%(ZN)):ZZN:4100+ZYZI1:ZX2:Z$:4060+22:1:CE:23:CE:BMBM1:20300:+SET UP POINTER,Z$"-->":L:SC%(ZL)ZZ:ZLZL1*i*ZLė:12:"This class has no score categories defined.":30000:4090 +21:CE:BMBM1:20300::"Select categories"::ZY(37):ZX10:ZI0:22:1:"Use arrows and SPACE BAR to select.";:23:1:"Press RETURN when fini)A)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:4090)4050*ZL0:ZZ18:C$(ZZ)""L$(ZL)C$(ZZ)" ("(B(ZZ))")"L5)(IT4)4)ZN:L$(IT)(L$(IT),(L$(IT))3)Z$:3620K(L20400:10100:e(THROW OUT LOW SCORES{(L18:LS%(L)0:(WF4030(ZL0:CA18:C$(CA)""B(CA)4027(B(CA)1F0:4025(SCSZ%(A(1)):F0:L2B(CA):SCSZ%(A(L))F1ZT02'$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:ZTET:ZE3620'8ZN$""ZN2557(BZZN:10300:CW%(7SE3IT(IT1IT4Z "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 WEIGHTS'"Current weights:"::QY(37):LYBM1:ZW(L$(0)):QX19ZW2:LXQXZW1:ZI0:)21)" "Z$::ZCW%(9SE3):10300:L$(2)"Semester "(SE)" Exam "Z$:ZL3:3600j% GET FINAL}% 10000:SEZN1& (AC56)255(AC58)255ė:L01:ZCW%(16L):10300:L$(L)"Semester "(L1)" "Z$::ZCW%(18):10300:L$(2)"Final Exam10300:ITCW%(CA1)ZN:L$(0)C$(CA)" "Z$:3340y$ SW%(A(IT))ZN:L$(IT)" "C$(CA)(SP$(IT),3)" "Z$:3340$> 20400:10100:TMTM1:20300:3310$H GET SEMS$R 10000:SEZN1[%f :L01:ZCW%(7SE3L):10300:L$(L)"Quarter "(L(SE1LXQXZW1:ZI0:ZT0:ZLB(CA)1S# 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:ZT250:ZC1:30200:ZC0:ZIEL:ZTET:ZE3340# ZN$""ZN2557$ ZZN: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$: # "Weights in this category: "::QY(37):LYBM1:ZW(L$(0)):QX19ZW2:ZE3290V! 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 + SCORE! 20150:20350::21500:ZEı:" 20650::B(CA)ĺ"No score (ZZ)SP$,10)" "Z$:SC%(ZL)ZZ:ZLZL1z :ZLė:12:"This class has no score categories":"defined.":30000:TMTM1: :"Current category weights:":::QY(37):ZS0:ZI0:QLZL:LXZX14:LYBM1:ZT0:ZI0:ZW14! 20350:ZYQY:ZLQL:ZX12:20900: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 CATEGORY& CA0:ZL0:ZZ18:C$(ZZ)""ZCW%(ZZ1):10300:L$(ZL)(C$:10100:% Z$"N"ı:& ZD0:L050:SW%(L)255ZD1@5 : ::"Do you want to assign weights to individual score items? ";:30100:ZEıD Z$"Y"3300I ZD3200]N ::"You are about to PERMANENTLY delete any grading weights you % OT3ĺLM26(DT2)10(DT1)); OT1āL11(C$):ZSC%(L1):10300:" "Z$" ";::OT2IT((C$,1)):24300:2800:" "G$; OT1ĺ E(S)LNS:ZE1 FEED,4,Z:L:ZįFEED POFF:34,TM1:35,BM ( PRINT THE REPORTT- ZDFD1))! X:LM);:DT2ĺDN$" ";4 DT1ĺDI$" "; L11(C$):IT((C$,L1,1)):NPSZ%(IT):Z(ASIT):SCZ:NP255SCI(W(Z)):TP2SCI(T(Z(Z))) SC%(L1)SC:L1 OT2āL11(C$):IT((C$,L1,1)):ZSC%(L1):24300:2800:" "G$" ";::C$C$(Z$,L,1)X >[ BMBM1:22:1:CE:23:CE:20300:R` CREATE POINTERqj Z$"-->":SE%(Z)Z$" "wt  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,o select.";:23:1:"Press RETURN when finished.";:CEM L1ZL:SE%(L)0: 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) Exam Scores" 2300:ZE2290SC$C$(60):OT$"Report of Final Grades":2600aTMTM2:tGET SELECTION 21:CE:BMBM1:20300::"With this you may include:"::::ZL(C$):ZY(37):ZX10:ZW17:ZI06 22:1:"Use arrows and SPACE BAR t00:ZE2290%ZNIT60:3200:2290OC$"":(AC56)255(AC58)2552240L01:L$(L)"Semester "(L1)" Grades":C$(56)(58):L2:22502250L03:L$(L)"Quarter "(L1)" Grades":C$C$(51L): C$C$(59):L$(L)"Final"(L1SE2)" Grades":C$C$(50L1SE2)::L$(2)"Semester "(SE)" Exam Scores":C$C$(53SE2):2300:ZE2190\C$C$(54SE2):OT$"Report of Semester "(SE)" Grades":2600TMTM2:PRINT FINAL20150:21300:ZEı 20500:310:ZE2090ZN20501IT(C$):3200:2090dOT$"Report of Quarter "(QU)" Grades":2600r*TMTM3:4PRINT SEMESTER>SEZN1:20150:21300:ZEıH20500:3100:ZE2190MZNIT54SE2:3200:2190uRC$"":L01:L$(L)"Quarter "Print "TI$4ZN2000,2100,2100,2200,4000:1010GPRINT QUARTER_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):310MECC$$DISK"704:33200:QN$ZN$:QC(ZS36)P REST,15000:Z$:20100:Z$:20200n ZD2:T1:33000:ZE31100 919,1:21000:PR(902):1000 FAST SUBROUTINES MAIN PROGRAM TM4:BM20:20300 Z0:ZF1:20010:ZEĹ901,CN:E:31100 TI$" ":T$(0)"program":T$(1)"data" 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,"((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)):D(I)((CA$(I),IT,1)) C2:GINIT,AC,AD,AS,AL:PR(902)F DC%0:ER%0:DN%0:DN$"":DI$"":SP$ITIALIZATION G$(12),GS%(12),SC%(255),SZ%(80),CL$(15),DC$(8),L$(255),C$(8),CA$(8),P$(2),SE%(5),H1$(9),H2$(9),H$(2),SD(50),ME(50) 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)C WRITER.OVL":BA28929:MWBUF,BA,2046,BA511,500:BA1,0:BA512,0:MWLEG,"-LNPM":MWTC,"[RS":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 IN28 PROGRAM:PRINT3PROGRAMMER:S. P. MCCARRONNCOPYRIGHT: MECC, 1985m(LAST UPDATE: 85/09/09 SPM<28416:APP,"COMMON.LIB":DBL,21500,21599:DBL,22300,22499:DBL,24000,24099:(175)(176)2562dINITIALIZATIONe32000t iRNH,"MEC                             !  8 `,Gm銪 ,G0  ɍ( )@`)? ` Ί` 튐`0`>?8ȱ> 0Șe>?i`>?>?>> 0J>?>?`B@@eBeC`8@A@(%8e>>?>?(>? ۆL+`<=(o <0=18e>A?ֆ튰N 銠>$>  ɍ Șe>>?ꊰ ,0 ۆֆՆЪ``Ʉ,`8BB0 ӉBC W` )0 e W` Ӊ a`㊅䊅 Ί` Ί` -(+mo*+I8m튦0@1A p Ί`LH<>=?*+,,,0),슰>) ߍ,),)))>0+ >>)>*ɛɀ8LAɍ,&0ɠ#,0pF,p08@з)<])<0 kj< Lڃʊ8BC,0,0 H Fh ʇ ^Lڃ,0 ^Lڃ Lڃ`  Ȅ< a` W` BCBC ,biZ-ci[犅%"m튍芅#銅$ 슅!m銍J!!㊅<䊅=<=<< <=<< 8犍J느, " }}㊅<䊅= H`L8 v8BC쥉 Xz%`Hzh nyH XzhLz) },zz㊅䊅8㊨ȥ z} Xz}`亠 , , 0 N 8 , 0  L납R  ۆ Ճ 0 䊅Ls ɛ ɠɍ,`Hz%zh ly%L) %L8BC B%L FeBeCz΁zρ ȑ %3,ň剰iL%KޮL ,N 8 MLMLMLML LM`€,0N8 ,0 ]L.0,ɛ,€N€P,À0LՊL[y `㊅䊅 H` H` 8 "㊅~)ʭb) ~ɛa)ꩀ`,8`f = ~=`h Q ~Q`eȢ z`KF: - H`@A8 p` BC B@CA튈 p`튈ÀjNmLK M Oɍ\Ɉ?ɠM0Mɠ,G~ 扈,E~0݌F~ NG~ɍE~L}8nlF~0```i`ɮX~~~ F;)Ld~~ ~~~ ~) `Nl`8`, ,,``)o ~N ɍNl' jIjL~ ~,j ~ }}}} `,,` }(jil q}`ga > } } H~ q} ~ *,m }`n`eco8codd8$`,} y,,`΍`ȱn``m``,i8LD~lG~E~F~d3A C=<= l| L{` F`BC`) 8 `}h|}i|}j|}k|`h|}i|}j|}k|}` }} }B}}}} }}}}}}}}}}}}$8 `H }}}h}}}}}} }}}}}}A{B{A{.B{C{?{mA{A{@{mB{B{hmA{?{B{i@{Ц?{@{`$8n }셊텋 {, }08劅B勅C &| Lp$8n } {Lp`ƋƊ H |h +|ٰ$8 ` 6|셊텋BCBC l| +| &|, } O| &|7 |BCBeBz?z@zAzBzCzDzzEzz z z z Dzzzzz z uz             GHTS 4~'DC%CN:R:AC1295,WF4'L07:AC12932L,CW%(L)::L07:AC12940L,SW%(L)::L018:AC129191L,SW%(L8)::L023:AC129222L,SW%(L27):4'L08:AC129246L,CW%(10L):4'22620:4'COMPUTE QUARTER GRADES'5'24:1:CE:C1295):WFāL09:CW%(L)255::L051:SW%(L)255::100253$'L07:CW%(L)(AC12932L)::L07:SW%(L)(AC12940L)::L018:SW%(L8)(AC129191L)::L023:SW%(L27)(AC129222L):3)'L08:CW%(10L)(AC129246L):3.'4t'PUT WEIL):10300:10)"Semester "(L1)" "Z$::53502L03:ZCW%(10L(L1)):10300:10)"Quarter "(L1)" "Z$:E(S)ZE1:L42:ZE53602ZCW%(18):10300:10)"Final Exam "Z$2PRİ300002PRįFEED:POFF22'GET WEIGHTS=3'WF(AE1ZCW%(9SE3):10300:10)"Semester "(SE)" Exam "Z$:PRİ30000Y1PRįFEED:POFF_1j1FINAL}1:23000:ZEı1PRİ23100:ZEı1:OT$"Weights for Final Grade Computations":PRİ23200.2(AC56)255(AC58)255āL01:ZCW%(16PRİ300000<PRįPOFF0F30PPRINT SEMESTERQ0ZSEZN1::23000:ZE52900dOT$"Weights for Semester "(SE)" Grade Computations":PRİ23100:ZEı0n:PRİ232000xL01:ZCW%(7SE3L):10300:10)"Quarter "(L(SE1)21)" "Z$:0:ZE5190t/-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///2IWĺ:LILI1:Z(LI(BMTM)):PRįFEED,4,Z/3ZPRİ30000:ZE5190/4:ZPRįFEED 07ZMWMMWLEMWBUMWTMWFMMWPULMWADMWODMWCC=\wƓ򒅕~A51dY:u1 EgЌ9Z2Ď׏ٍL@I1AB.JK`rvwrST`v w vSwT` L ` mͳ   ފ `FILNOFILPINIPOFPACFEEBMBLANCBTRIDBCPRDDFMFCFCFKGSRFRNMOVGSSMENMENAPP4RESSNOPRSPRSELUWFGINIFPRCFPGFPMW$6h7h6cba`ɍɌ ͳ ` n`H)hHɍ h`ST  ,5S,N 9”I7”Ô߭ ``6Labc6H7H67,0 aɍ LL$H8$$ da  @ d$hiaect Period","You may print progress reports for:",2,"Individual Students","Entire Class"x??>,>$f<<`쒍 @߅$0쒭 @ @c` IvS $H)h0,0RLǓ߅67mk mlڰm` <= >?Ȑ۩`?)8鍸ζ`H88HHHha {8 $h`а ,,i,,`8,nhhhHL}ɐȐɐ},, ,`ɯL 8ɀ   Lޤȱ 0:,јe湥 ri si  , ,`ȐɐLkl??@! ! ! ! !!!:C$(CA)""5172!.ZPRİ232003. ZPRė:LI0y.#ZCW%(CA1):10300:10PR)"Category: "(C$(CA)SP$,14)Z$:LILI1.%E(S)Z0:CA8:5172.&Z(LI(BMTM)):PRįFEED,4,Z.(B(CA)IW5170.+IT1B(CA):ZPRİ23200 /,ZPRİ30000::LITE 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"" " " " " """""""""